Index: LMDZ5/trunk/libf/phylmd/clesphys.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/clesphys.h	(revision 1985)
+++ LMDZ5/trunk/libf/phylmd/clesphys.h	(revision 1989)
@@ -73,5 +73,5 @@
        REAL freq_COSP
        LOGICAL :: ok_cosp,ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP
-       INTEGER :: ip_ebil_phy, iflag_rrtm, iflag_ice_thermo
+       INTEGER :: ip_ebil_phy, iflag_rrtm, iflag_ice_thermo,NSW
        LOGICAL :: ok_strato
        LOGICAL :: ok_hines, ok_gwd_rando
@@ -113,5 +113,5 @@
      &     , ok_lic_melt,           aer_type                            &
      &     , iflag_rrtm, ok_strato,ok_hines                             &
-     &     , iflag_ice_thermo, ok_gwd_rando
+     &     , iflag_ice_thermo, ok_gwd_rando, NSW
      
        save /clesphys/
Index: LMDZ5/trunk/libf/phylmd/conf_phys_m.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/conf_phys_m.F90	(revision 1985)
+++ LMDZ5/trunk/libf/phylmd/conf_phys_m.F90	(revision 1989)
@@ -101,4 +101,5 @@
     integer,SAVE        :: iflag_radia_omp
     integer,SAVE        :: iflag_rrtm_omp
+    integer,SAVE        :: NSW_omp
     integer,SAVE        :: iflag_cldcon_omp, ip_ebil_phy_omp
     integer,SAVE        :: iflag_ratqs_omp
@@ -831,4 +832,13 @@
     iflag_rrtm_omp = 0
     call getin('iflag_rrtm',iflag_rrtm_omp)
+
+    !
+    !Config Key  = NSW 
+    !Config Desc =  
+    !Config Def  = 0
+    !Config Help = 
+    !
+    NSW_omp = 2
+    call getin('NSW',NSW_omp)
 
     !
@@ -1797,4 +1807,5 @@
     iflag_radia = iflag_radia_omp
     iflag_rrtm = iflag_rrtm_omp
+    NSW = NSW_omp
     iflag_cldcon = iflag_cldcon_omp
     iflag_ratqs = iflag_ratqs_omp
@@ -1945,4 +1956,5 @@
     write(lunout,*)' iflag_radia = ', iflag_radia
     write(lunout,*)' iflag_rrtm = ', iflag_rrtm
+    write(lunout,*)' NSW = ', NSW
     write(lunout,*)' iflag_ratqs = ', iflag_ratqs
     write(lunout,*)' seuil_inversion = ', seuil_inversion
Index: LMDZ5/trunk/libf/phylmd/iniradia.F
===================================================================
--- LMDZ5/trunk/libf/phylmd/iniradia.F	(revision 1985)
+++ LMDZ5/trunk/libf/phylmd/iniradia.F	(revision 1989)
@@ -21,11 +21,13 @@
 !         CALL suphel     ! initialiser constantes et parametres phys.
 !     print*,'Physiq: apres suphel '
-!        CALL SUINIT(klon,klev)
-!     print*,'iniradia: apres suinit '
+#if CPP_RRTM
+      CALL SUINIT(klon,klev)
+      print*,'iniradia: apres suinit '
 ! calcul des niveaux de pression de reference au bord des couches pour
 ! l'intialisation des aerosols. Momentannement, on passe un point de
 ! grille du profil de pression.
-!        CALL SURAYOLMD(pres(klev+1))  ! initialiser le rayonnement RRTM
-!     print*,'iniradia: apres surayolmd '
+      CALL SURAYOLMD(pres(klev+1))  ! initialiser le rayonnement RRTM
+      print*,'iniradia: apres surayolmd '
+#endif
 
       RETURN
Index: LMDZ5/trunk/libf/phylmd/mod_phys_lmdz_mpi_transfert.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/mod_phys_lmdz_mpi_transfert.F90	(revision 1985)
+++ LMDZ5/trunk/libf/phylmd/mod_phys_lmdz_mpi_transfert.F90	(revision 1989)
@@ -9,5 +9,5 @@
                      bcast_mpi_i,bcast_mpi_i1,bcast_mpi_i2,bcast_mpi_i3,bcast_mpi_i4, &
                      bcast_mpi_r,bcast_mpi_r1,bcast_mpi_r2,bcast_mpi_r3,bcast_mpi_r4, &
-		     bcast_mpi_l,bcast_mpi_l1,bcast_mpi_l2,bcast_mpi_l3,bcast_mpi_l4
+                     bcast_mpi_l,bcast_mpi_l1,bcast_mpi_l2,bcast_mpi_l3,bcast_mpi_l4
   END INTERFACE
 
@@ -15,5 +15,5 @@
     MODULE PROCEDURE scatter_mpi_i,scatter_mpi_i1,scatter_mpi_i2,scatter_mpi_i3, &
                      scatter_mpi_r,scatter_mpi_r1,scatter_mpi_r2,scatter_mpi_r3, &
-		     scatter_mpi_l,scatter_mpi_l1,scatter_mpi_l2,scatter_mpi_l3
+                     scatter_mpi_l,scatter_mpi_l1,scatter_mpi_l2,scatter_mpi_l3
   END INTERFACE
 
@@ -22,5 +22,5 @@
     MODULE PROCEDURE gather_mpi_i,gather_mpi_i1,gather_mpi_i2,gather_mpi_i3, &
                      gather_mpi_r,gather_mpi_r1,gather_mpi_r2,gather_mpi_r3, &
-		     gather_mpi_l,gather_mpi_l1,gather_mpi_l2,gather_mpi_l3  
+                     gather_mpi_l,gather_mpi_l1,gather_mpi_l2,gather_mpi_l3  
   END INTERFACE
   
@@ -28,5 +28,5 @@
     MODULE PROCEDURE scatter2D_mpi_i,scatter2D_mpi_i1,scatter2D_mpi_i2,scatter2D_mpi_i3, &
                      scatter2D_mpi_r,scatter2D_mpi_r1,scatter2D_mpi_r2,scatter2D_mpi_r3, &
-		     scatter2D_mpi_l,scatter2D_mpi_l1,scatter2D_mpi_l2,scatter2D_mpi_l3
+                     scatter2D_mpi_l,scatter2D_mpi_l1,scatter2D_mpi_l2,scatter2D_mpi_l3
   END INTERFACE
 
@@ -34,5 +34,5 @@
     MODULE PROCEDURE gather2D_mpi_i,gather2D_mpi_i1,gather2D_mpi_i2,gather2D_mpi_i3, &
                      gather2D_mpi_r,gather2D_mpi_r1,gather2D_mpi_r2,gather2D_mpi_r3, &
-		     gather2D_mpi_l,gather2D_mpi_l1,gather2D_mpi_l2,gather2D_mpi_l3
+                     gather2D_mpi_l,gather2D_mpi_l1,gather2D_mpi_l2,gather2D_mpi_l3
   END INTERFACE 
   
@@ -45,5 +45,5 @@
     MODULE PROCEDURE grid1dTo2d_mpi_i,grid1dTo2d_mpi_i1,grid1dTo2d_mpi_i2,grid1dTo2d_mpi_i3, &
                      grid1dTo2d_mpi_r,grid1dTo2d_mpi_r1,grid1dTo2d_mpi_r2,grid1dTo2d_mpi_r3, &
-		     grid1dTo2d_mpi_l,grid1dTo2d_mpi_l1,grid1dTo2d_mpi_l2,grid1dTo2d_mpi_l3
+                     grid1dTo2d_mpi_l,grid1dTo2d_mpi_l1,grid1dTo2d_mpi_l2,grid1dTo2d_mpi_l3
  END INTERFACE 
 
@@ -51,5 +51,5 @@
     MODULE PROCEDURE grid2dTo1d_mpi_i,grid2dTo1d_mpi_i1,grid2dTo1d_mpi_i2,grid2dTo1d_mpi_i3, &
                      grid2dTo1d_mpi_r,grid2dTo1d_mpi_r1,grid2dTo1d_mpi_r2,grid2dTo1d_mpi_r3, &
-		     grid2dTo1d_mpi_l,grid2dTo1d_mpi_l1,grid2dTo1d_mpi_l2,grid2dTo1d_mpi_l3
+                     grid2dTo1d_mpi_l,grid2dTo1d_mpi_l1,grid2dTo1d_mpi_l2,grid2dTo1d_mpi_l3
  END INTERFACE 
     
@@ -1493,5 +1493,5 @@
         displs(rank)=Index-1
         counts(rank)=nb*dimsize
-	Index=Index+nb*dimsize
+        Index=Index+nb*dimsize
       ENDDO
      
@@ -1503,5 +1503,5 @@
 #endif
 
-		          
+                          
     IF (is_mpi_root) THEN
       Index=1
@@ -1510,5 +1510,5 @@
         DO i=1,dimsize
           VarOut(klon_mpi_para_begin(rank):klon_mpi_para_end(rank),i)=VarTmp(Index:Index+nb-1)
-	  Index=Index+nb
+          Index=Index+nb
         ENDDO
       ENDDO
@@ -1542,5 +1542,5 @@
         displs(rank)=Index-1
         counts(rank)=nb*dimsize
-	Index=Index+nb*dimsize
+        Index=Index+nb*dimsize
       ENDDO
     ENDIF
@@ -1555,5 +1555,5 @@
                       MPI_REAL_LMDZ,mpi_root_x, COMM_LMDZ_PHY,ierr)
 #endif
-		          
+                          
     IF (is_mpi_root) THEN
       Index=1
@@ -1562,5 +1562,5 @@
         DO i=1,dimsize
           VarOut(klon_mpi_para_begin(rank):klon_mpi_para_end(rank),i)=VarTmp(Index:Index+nb-1)
-	  Index=Index+nb
+          Index=Index+nb
         ENDDO
       ENDDO
@@ -1599,5 +1599,5 @@
         displs(rank)=Index-1
         counts(rank)=nb*dimsize
-	Index=Index+nb*dimsize
+        Index=Index+nb*dimsize
       ENDDO
     ENDIF
@@ -1608,5 +1608,5 @@
                       MPI_LOGICAL,mpi_root_x, COMM_LMDZ_PHY,ierr)
 #endif
-		          
+                          
     IF (is_mpi_root) THEN
       Index=1
@@ -1615,5 +1615,5 @@
         DO i=1,dimsize
           VarOut(klon_mpi_para_begin(rank):klon_mpi_para_end(rank),i)=VarTmp(Index:Index+nb-1)
-	  Index=Index+nb
+          Index=Index+nb
         ENDDO
       ENDDO
@@ -1707,5 +1707,5 @@
         DO ij=1,nbp_lon
          VarOut(ij,i)=VarIn(1,i)
-	ENDDO
+        ENDDO
       ENDDO
     ENDIF
@@ -1715,5 +1715,5 @@
         DO ij=nbp_lon*(jj_nb-1)+1,nbp_lon*jj_nb
          VarOut(ij,i)=VarIn(klon_mpi,i)
-	ENDDO
+        ENDDO
       ENDDO
     ENDIF
@@ -1751,5 +1751,5 @@
         DO ij=1,nbp_lon
          VarOut(ij,i)=VarIn(1,i)
-	ENDDO
+        ENDDO
       ENDDO
     ENDIF
@@ -1759,5 +1759,5 @@
         DO ij=nbp_lon*(jj_nb-1)+1,nbp_lon*jj_nb
          VarOut(ij,i)=VarIn(klon_mpi,i)
-	ENDDO
+        ENDDO
       ENDDO
     ENDIF
@@ -1796,5 +1796,5 @@
         DO ij=1,nbp_lon
          VarOut(ij,i)=VarIn(1,i)
-	ENDDO
+        ENDDO
       ENDDO
     ENDIF
@@ -1804,5 +1804,5 @@
         DO ij=nbp_lon*(jj_nb-1)+1,nbp_lon*jj_nb
          VarOut(ij,i)=VarIn(klon_mpi,i)
-	ENDDO
+        ENDDO
       ENDDO
     ENDIF
Index: LMDZ5/trunk/libf/phylmd/mod_phys_lmdz_omp_transfert.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/mod_phys_lmdz_omp_transfert.F90	(revision 1985)
+++ LMDZ5/trunk/libf/phylmd/mod_phys_lmdz_omp_transfert.F90	(revision 1989)
@@ -25,5 +25,5 @@
                      bcast_omp_i,bcast_omp_i1,bcast_omp_i2,bcast_omp_i3,bcast_omp_i4, &
                      bcast_omp_r,bcast_omp_r1,bcast_omp_r2,bcast_omp_r3,bcast_omp_r4, &
-		     bcast_omp_l,bcast_omp_l1,bcast_omp_l2,bcast_omp_l3,bcast_omp_l4
+                     bcast_omp_l,bcast_omp_l1,bcast_omp_l2,bcast_omp_l3,bcast_omp_l4
   END INTERFACE
 
@@ -31,5 +31,5 @@
     MODULE PROCEDURE scatter_omp_i,scatter_omp_i1,scatter_omp_i2,scatter_omp_i3, &
                      scatter_omp_r,scatter_omp_r1,scatter_omp_r2,scatter_omp_r3, &
-		     scatter_omp_l,scatter_omp_l1,scatter_omp_l2,scatter_omp_l3
+                     scatter_omp_l,scatter_omp_l1,scatter_omp_l2,scatter_omp_l3
   END INTERFACE
 
@@ -38,5 +38,5 @@
     MODULE PROCEDURE gather_omp_i,gather_omp_i1,gather_omp_i2,gather_omp_i3, &
                      gather_omp_r,gather_omp_r1,gather_omp_r2,gather_omp_r3, &
-		     gather_omp_l,gather_omp_l1,gather_omp_l2,gather_omp_l3  
+                     gather_omp_l,gather_omp_l1,gather_omp_l2,gather_omp_l3  
   END INTERFACE
   
Index: LMDZ5/trunk/libf/phylmd/newmicro.F
===================================================================
--- LMDZ5/trunk/libf/phylmd/newmicro.F	(revision 1985)
+++ LMDZ5/trunk/libf/phylmd/newmicro.F	(revision 1989)
@@ -9,5 +9,6 @@
      .                  xflwp, xfiwp, xflwc, xfiwc,
      .                  mass_solu_aero, mass_solu_aero_pi, 
-     .                  pcldtaupi, re, fl, reliq, reice)
+     .                  pcldtaupi, re, fl, 
+     .                  reliq, reice, reliq_pi, reice_pi)
 c
       USE dimphy
@@ -143,5 +144,6 @@
       REAL dh(klon, klev)     !--dz pour la couche
       REAL zfice(klon, klev)
-      REAL rad_chaud(klon, klev) !--rayon pour les nuages chauds
+      REAL rad_chaud(klon, klev)    !--rayon pour les nuages chauds
+      REAL rad_chaud_pi(klon, klev) !--rayon pour les nuages chauds pre-industriels
       REAL zflwp_var, zfiwp_var
       REAL d_rei_dt
@@ -149,4 +151,5 @@
 ! Abderrahmane oct 2009
       Real reliq(klon, klev), reice(klon, klev)
+      Real reliq_pi(klon, klev), reice_pi(klon, klev)
 
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
@@ -176,4 +179,6 @@
       reliq=0.
       reice=0.
+      reliq_pi=0.
+      reice_pi=0.
 c
       DO k = 1, klev
@@ -222,8 +227,8 @@
 c
 c--pre-industrial case
-                radius = 
+                rad_chaud_pi(i,k) = 
      &               1.1*((pqlwp(i,k)*pplay(i,k)/(RD * T(i,k)))  
      &               /(4./3.*RPI*1000.*cdnc_pi(i,k)))**(1./3.)
-                radius = MAX(radius*1.e6, 5.) 
+                rad_chaud_pi(i,k) = MAX(rad_chaud_pi(i,k)*1.e6, 5.) 
 c 
 c--pre-industrial case
@@ -247,7 +252,6 @@
 c for ice clouds, Ebert & Curry (1992)] 
 c                  
-                if (zflwp_var.eq.0.) radius = 1. 
                 if (zfiwp_var.eq.0. .or. rei.le.0.) rei = 1. 
-                pcldtaupi(i,k) = 3.0/2.0 * zflwp_var / radius
+                pcldtaupi(i,k) = 3.0/2.0 * zflwp_var / rad_chaud_pi(i,k)
      &                 + zfiwp_var * (3.448e-03  + 2.431/rei)
 c
@@ -264,4 +268,5 @@
            DO i = 1, klon
                rad_chaud(i,k) = rad_chau2
+               rad_chaud_pi(i,k) = rad_chau2
            ENDDO            
          ENDDO
@@ -269,4 +274,5 @@
            DO i = 1, klon
                rad_chaud(i,k) = rad_chau1
+               rad_chaud_pi(i,k) = rad_chau1
            ENDDO            
          ENDDO
@@ -349,5 +355,4 @@
              ENDIF
 c
-             reliq(i,k)=rel
              reice(i,k)=rei 
 c
@@ -364,7 +369,16 @@
             DO i = 1, klon
                pcldtaupi(i,k)=pcltau(i,k)
+               reice_pi(i,k)=reice(i,k)
             ENDDO
          ENDDO               
       ENDIF
+c
+      DO k = 1, klev
+         DO i = 1, klon
+            reliq(i,k)   =rad_chaud(i,k)
+            reliq_pi(i,k)=rad_chaud_pi(i,k)
+            reice_pi(i,k)=reice(i,k)
+         ENDDO
+      ENDDO               
 C     
 C     COMPUTE CLOUD LIQUID PATH AND TOTAL CLOUDINESS
Index: LMDZ5/trunk/libf/phylmd/phys_local_var_mod.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/phys_local_var_mod.F90	(revision 1985)
+++ LMDZ5/trunk/libf/phylmd/phys_local_var_mod.F90	(revision 1989)
@@ -93,4 +93,12 @@
       REAL, SAVE, ALLOCATABLE :: topswcf_aero(:,:),  solswcf_aero(:,:)  ! diag
       !$OMP THREADPRIVATE(topswcf_aero,solswcf_aero)
+! Special RRTM
+      REAL, SAVE, ALLOCATABLE :: ZLWFT0_i(:,:),  ZSWFT0_i(:,:)      ! diag
+      !$OMP THREADPRIVATE(ZLWFT0_i,ZSWFT0_i)
+      REAL, SAVE, ALLOCATABLE :: ZFLDN0(:,:),  ZFLUP0(:,:)      ! diag
+      !$OMP THREADPRIVATE(ZFLDN0,ZFLUP0)
+      REAL, SAVE, ALLOCATABLE :: ZFSDN0(:,:),  ZFSUP0(:,:)      ! diag
+      !$OMP THREADPRIVATE(ZFSDN0,ZFSUP0)
+!
       REAL, SAVE, ALLOCATABLE :: tausum_aero(:,:,:) 
       !$OMP THREADPRIVATE(tausum_aero) 
@@ -243,4 +251,6 @@
       REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: ref_liq, ref_ice, theta, zphi
 !$OMP THREADPRIVATE(ref_liq, ref_ice, theta, zphi)
+      REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: ref_liq_pi, ref_ice_pi
+!$OMP THREADPRIVATE(ref_liq_pi, ref_ice_pi)
       REAL,ALLOCATABLE,SAVE,DIMENSION(:,:) :: wake_omg, zx_rh
 !$OMP THREADPRIVATE(wake_omg, zx_rh)
@@ -313,4 +323,8 @@
       allocate(d_u_lif(klon,klev),d_v_lif(klon,klev))
       allocate(d_ts(klon,nbsrf), d_tr(klon,klev,nbtr))
+! Special RRTM
+      allocate(ZLWFT0_i(klon,klev+1),ZSWFT0_i(klon,klev+1),ZFLDN0(klon,klev+1))
+      allocate(ZFLUP0(klon,klev+1),ZFSDN0(klon,klev+1),ZFSUP0(klon,klev+1))
+!
       allocate(topswad_aero(klon), solswad_aero(klon))
       allocate(topswai_aero(klon), solswai_aero(klon))
@@ -400,4 +414,5 @@
       ALLOCATE(fl(klon, klev), re(klon, klev), flwc(klon, klev))
       ALLOCATE(ref_liq(klon, klev), ref_ice(klon, klev), theta(klon, klev))
+      ALLOCATE(ref_liq_pi(klon, klev), ref_ice_pi(klon, klev))
       ALLOCATE(zphi(klon, klev), wake_omg(klon, klev), zx_rh(klon, klev))
       ALLOCATE(pmfd(klon, klev), pmfu(klon, klev))
@@ -550,4 +565,5 @@
       DEALLOCATE(fl, re, flwc)
       DEALLOCATE(ref_liq, ref_ice, theta)
+      DEALLOCATE(ref_liq_pi, ref_ice_pi)
       DEALLOCATE(zphi, wake_omg, zx_rh)
       DEALLOCATE(pmfd, pmfu)
Index: LMDZ5/trunk/libf/phylmd/physiq.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/physiq.F90	(revision 1985)
+++ LMDZ5/trunk/libf/phylmd/physiq.F90	(revision 1989)
@@ -640,4 +640,5 @@
   save ok_newmicro
   !$OMP THREADPRIVATE(ok_newmicro)
+  !real ref_liq_pi(klon,klev), ref_ice_pi(klon,klev)
   save fact_cldcon,facttemps
   !$OMP THREADPRIVATE(fact_cldcon,facttemps)
@@ -2900,5 +2901,6 @@
           flwp, fiwp, flwc, fiwc, &
           mass_solu_aero, mass_solu_aero_pi, &
-          cldtaupi, re, fl, ref_liq, ref_ice) 
+          cldtaupi, re, fl, ref_liq, ref_ice, &
+          ref_liq_pi, ref_ice_pi)
   else
      CALL nuage (paprs, pplay, &
@@ -3037,4 +3039,5 @@
              cldtaupirad,new_aod, &
              zqsat, flwc, fiwc, &
+             ref_liq, ref_ice, ref_liq_pi, ref_ice_pi, &
              heat,heat0,cool,cool0,radsol,albpla, &
              topsw,toplw,solsw,sollw, &
@@ -3048,5 +3051,7 @@
              topsw_aero, topsw0_aero, &
              solsw_aero, solsw0_aero, &
-             topswcf_aero, solswcf_aero)
+             topswcf_aero, solswcf_aero, &
+             ZLWFT0_i, ZFLDN0, ZFLUP0, &
+             ZSWFT0_i, ZFSDN0, ZFSUP0)
 
         !
@@ -3080,4 +3085,5 @@
                    cldtaupi,new_aod, &
                    zqsat, flwc, fiwc, &
+                   ref_liq, ref_ice, ref_liq_pi, ref_ice_pi, &
                    heatp,heat0p,coolp,cool0p,radsolp,albplap, &
                    topswp,toplwp,solswp,sollwp, &
@@ -3091,5 +3097,7 @@
                    topsw_aerop, topsw0_aerop, &
                    solsw_aerop, solsw0_aerop, &
-                   topswcf_aerop, solswcf_aerop)
+                   topswcf_aerop, solswcf_aerop, &
+                   ZLWFT0_i, ZFLDN0, ZFLUP0, &
+                   ZSWFT0_i, ZFSDN0, ZFSUP0)
            endif
         endif
Index: LMDZ5/trunk/libf/phylmd/radlwsw_m.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/radlwsw_m.F90	(revision 1985)
+++ LMDZ5/trunk/libf/phylmd/radlwsw_m.F90	(revision 1989)
@@ -15,4 +15,5 @@
    cldtaupi, new_aod, &
    qsat, flwc, fiwc, &
+   ref_liq, ref_ice, ref_liq_pi, ref_ice_pi, &
    heat,heat0,cool,cool0,radsol,albpla,&
    topsw,toplw,solsw,sollw,&
@@ -26,5 +27,7 @@
    topsw_aero, topsw0_aero,&
    solsw_aero, solsw0_aero, &
-   topswcf_aero, solswcf_aero)
+   topswcf_aero, solswcf_aero,&
+   ZLWFT0_i, ZFLDN0, ZFLUP0,&
+   ZSWFT0_i, ZFSDN0, ZFSUP0)
 
 
@@ -33,6 +36,31 @@
   USE assert_m, ONLY : assert
   USE infotrac, ONLY : type_trac
+  USE write_field_phy
 #ifdef REPROBUS
   USE CHEM_REP, ONLY : solaireTIME, ok_SUNTIME, ndimozon
+#endif
+#ifdef CPP_RRTM
+!    modules necessaires au rayonnement 
+!    -----------------------------------------
+!     USE YOMCST   , ONLY : RG       ,RD       ,RTT      ,RPI
+!     USE YOERAD   , ONLY : NSW      ,LRRTM    ,LINHOM   , LCCNL,LCCNO,
+!     USE YOERAD   , ONLY : NSW      ,LRRTM    ,LCCNL    ,LCCNO ,&
+! NSW mis dans .def MPL 20140211
+      USE YOERAD   , ONLY : LRRTM    ,LCCNL    ,LCCNO ,&
+          NRADIP   , NRADLP , NICEOPT, NLIQOPT ,RCCNLND  , RCCNSEA
+      USE YOELW    , ONLY : NSIL     ,NTRA     ,NUA      ,TSTAND   ,XP
+      USE YOESW    , ONLY : RYFWCA   ,RYFWCB   ,RYFWCC   ,RYFWCD,&   
+          RYFWCE   ,RYFWCF   ,REBCUA   ,REBCUB   ,REBCUC,&   
+          REBCUD   ,REBCUE   ,REBCUF   ,REBCUI   ,REBCUJ,&  
+          REBCUG   ,REBCUH   ,RHSAVI   ,RFULIO   ,RFLAA0,&  
+          RFLAA1   ,RFLBB0   ,RFLBB1   ,RFLBB2   ,RFLBB3,&  
+          RFLCC0   ,RFLCC1   ,RFLCC2   ,RFLCC3   ,RFLDD0,&  
+          RFLDD1   ,RFLDD2   ,RFLDD3   ,RFUETA   ,RASWCA,& 
+          RASWCB   ,RASWCC   ,RASWCD   ,RASWCE   ,RASWCF
+!    &    RASWCB   ,RASWCC   ,RASWCD   ,RASWCE   ,RASWCF, RLINLI
+      USE YOERDU   , ONLY : NUAER  ,NTRAER ,REPLOG ,REPSC  ,REPSCW ,DIFF
+      USE YOETHF   , ONLY : RTICE
+      USE YOERRTWN , ONLY : DELWAVE   ,TOTPLNK      
+      USE YOMPHY3  , ONLY : RII0
 #endif
 
@@ -88,4 +116,24 @@
   !                        aerosol direct forcing is F_{AD} = topswai-topswad
   !
+  ! --------- RRTM: output RECMWFL
+  ! ZEMTD (KPROMA,KLEV+1)         ; TOTAL DOWNWARD LONGWAVE EMISSIVITY
+  ! ZEMTU (KPROMA,KLEV+1)         ; TOTAL UPWARD   LONGWAVE EMISSIVITY
+  ! ZTRSO (KPROMA,KLEV+1)         ; TOTAL SHORTWAVE TRANSMISSIVITY
+  ! ZTH   (KPROMA,KLEV+1)         ; HALF LEVEL TEMPERATURE
+  ! ZCTRSO(KPROMA,2)              ; CLEAR-SKY SHORTWAVE TRANSMISSIVITY
+  ! ZCEMTR(KPROMA,2)              ; CLEAR-SKY NET LONGWAVE EMISSIVITY
+  ! ZTRSOD(KPROMA)                ; TOTAL-SKY SURFACE SW TRANSMISSITY
+  ! ZLWFC (KPROMA,2)              ; CLEAR-SKY LONGWAVE FLUXES
+  ! ZLWFT (KPROMA,KLEV+1)         ; TOTAL-SKY LONGWAVE FLUXES
+  ! ZLWFT0(KPROMA,KLEV+1)         ; CLEAR-SKY LONGWAVE FLUXES      ! added by MPL 090109
+  ! ZSWFC (KPROMA,2)              ; CLEAR-SKY SHORTWAVE FLUXES
+  ! ZSWFT (KPROMA,KLEV+1)         ; TOTAL-SKY SHORTWAVE FLUXES
+  ! ZSWFT0(KPROMA,KLEV+1)         ; CLEAR-SKY SHORTWAVE FLUXES     ! added by MPL 090109
+  ! ZFLUX (KLON,2,KLEV+1)         ; TOTAL LW FLUXES  1=up, 2=DWN   ! added by MPL 080411
+  ! ZFLUC (KLON,2,KLEV+1)         ; CLEAR SKY LW FLUXES            ! added by MPL 080411
+  ! ZFSDWN(klon,KLEV+1)           ; TOTAL SW  DWN FLUXES           ! added by MPL 080411
+  ! ZFCDWN(klon,KLEV+1)           ; CLEAR SKY SW  DWN FLUXES       ! added by MPL 080411
+  ! ZFSUP (klon,KLEV+1)           ; TOTAL SW  UP  FLUXES           ! added by MPL 080411
+  ! ZFCUP (klon,KLEV+1)           ; CLEAR SKY SW  UP  FLUXES       ! added by MPL 080411
   
   !======================================================================
@@ -122,4 +170,5 @@
 
   LOGICAL, INTENT(in)  :: ok_ade, ok_aie                                 ! switches whether to use aerosol direct (indirect) effects or not
+  LOGICAL              :: lldebug
   INTEGER, INTENT(in)  :: flag_aerosol                                   ! takes value 0 (no aerosol) or 1 to 6 (aerosols)
   LOGICAL, INTENT(in)  :: flag_aerosol_strat                             ! use stratospheric aerosols
@@ -133,4 +182,8 @@
   REAL,    INTENT(in)  :: flwc(klon,klev) ! Variable pour iflag_rrtm=1
   REAL,    INTENT(in)  :: fiwc(klon,klev) ! Variable pour iflag_rrtm=1
+  REAL,    INTENT(in)  :: ref_liq(klon,klev) ! cloud droplet radius present-day from newmicro
+  REAL,    INTENT(in)  :: ref_ice(klon,klev) ! ice crystal radius   present-day from newmicro
+  REAL,    INTENT(in)  :: ref_liq_pi(klon,klev) ! cloud droplet radius pre-industrial from newmicro
+  REAL,    INTENT(in)  :: ref_ice_pi(klon,klev) ! ice crystal radius   pre-industrial from newmicro
 
 ! Output arguments
@@ -155,4 +208,6 @@
   REAL, DIMENSION(kdlon,3), INTENT(out) :: topswcf_aero
   REAL, DIMENSION(kdlon,3), INTENT(out) :: solswcf_aero
+  REAL, DIMENSION(kdlon,kflev+1), INTENT(out) :: ZSWFT0_i
+  REAL, DIMENSION(kdlon,kflev+1), INTENT(out) :: ZLWFT0_i
 
 ! Local variables
@@ -167,6 +222,10 @@
   REAL(KIND=8) zx_alpha1, zx_alpha2
   INTEGER k, kk, i, j, iof, nb_gr
+  INTEGER ist,iend,ktdia,kmode
   REAL(KIND=8) PSCT
   REAL(KIND=8) PALBD(kdlon,2), PALBP(kdlon,2)
+!  MPL 06.01.09: pour RRTM, creation de PALBD_NEW et PALBP_NEW
+! avec NSW en deuxieme dimension       
+  REAL(KIND=8) PALBD_NEW(kdlon,NSW), PALBP_NEW(kdlon,NSW)
   REAL(KIND=8) PEMIS(kdlon), PDT0(kdlon), PVIEW(kdlon)
   REAL(KIND=8) PPSOL(kdlon), PDP(kdlon,KLEV)
@@ -178,6 +237,6 @@
   ! "POZON(:, :, 1)" is for the average day-night field, 
   ! "POZON(:, :, 2)" is for daylight time.
-
-  REAL(KIND=8) PAER(kdlon,kflev,5)
+!!!!! Modif MPL 6.01.09 avec RRTM, on passe de 5 a 6  
+  REAL(KIND=8) PAER(kdlon,kflev,6)
   REAL(KIND=8) PCLDLD(kdlon,kflev)
   REAL(KIND=8) PCLDLU(kdlon,kflev)
@@ -206,11 +265,73 @@
   REAL(KIND=8) zsolsw_aero(kdlon,9), zsolsw0_aero(kdlon,9)
   REAL(KIND=8) ztopswcf_aero(kdlon,3), zsolswcf_aero(kdlon,3)     
+! real, parameter:: dobson_u = 2.1415e-05 ! Dobson unit, in kg m-2 deje declare dans physiq.F MPL 20130618
+!MPL input supplementaires pour RECMWFL
+! flwc, fiwc = Liquid Water Content & Ice Water Content (kg/kg)
+      REAL(KIND=8) GEMU(klon)
+!MPL input RECMWFL: 
+! Tableaux aux niveaux inverses pour respecter convention Arpege
+      REAL(KIND=8) ref_liq_i(klon,klev) ! cloud droplet radius present-day from newmicro (inverted)
+      REAL(KIND=8) ref_ice_i(klon,klev) ! ice crystal radius present-day from newmicro (inverted)
+      REAL(KIND=8) paprs_i(klon,klev+1)
+      REAL(KIND=8) pplay_i(klon,klev)
+      REAL(KIND=8) cldfra_i(klon,klev)
+      REAL(KIND=8) POZON_i(kdlon,kflev, size(wo, 3)) ! mass fraction of ozone 
+  ! "POZON(:, :, 1)" is for the average day-night field, 
+  ! "POZON(:, :, 2)" is for daylight time.
+!!!!! Modif MPL 6.01.09 avec RRTM, on passe de 5 a 6      
+      REAL(KIND=8) PAER_i(kdlon,kflev,6)
+      REAL(KIND=8) PDP_i(klon,klev)
+      REAL(KIND=8) t_i(klon,klev),q_i(klon,klev),qsat_i(klon,klev)
+      REAL(KIND=8) flwc_i(klon,klev),fiwc_i(klon,klev)
+!MPL output RECMWFL:
+      REAL(KIND=8) ZEMTD (klon,klev+1),ZEMTD_i (klon,klev+1)       
+      REAL(KIND=8) ZEMTU (klon,klev+1),ZEMTU_i (klon,klev+1)      
+      REAL(KIND=8) ZTRSO (klon,klev+1),ZTRSO_i (klon,klev+1)    
+      REAL(KIND=8) ZTH   (klon,klev+1),ZTH_i   (klon,klev+1)   
+      REAL(KIND=8) ZCTRSO(klon,2)       
+      REAL(KIND=8) ZCEMTR(klon,2)     
+      REAL(KIND=8) ZTRSOD(klon)        
+      REAL(KIND=8) ZLWFC (klon,2)      
+      REAL(KIND=8) ZLWFT (klon,klev+1),ZLWFT_i (klon,klev+1)    
+      REAL(KIND=8) ZSWFC (klon,2)      
+      REAL(KIND=8) ZSWFT (klon,klev+1),ZSWFT_i (klon,klev+1)
+      REAL(KIND=8) ZFLUCDWN_i(klon,klev+1),ZFLUCUP_i(klon,klev+1)
+      REAL(KIND=8) PPIZA_DST(klon,klev,NSW)
+      REAL(KIND=8) PCGA_DST(klon,klev,NSW)
+      REAL(KIND=8) PTAUREL_DST(klon,klev,NSW)
+      REAL(KIND=8) PSFSWDIR(klon,NSW)
+      REAL(KIND=8) PSFSWDIF(klon,NSW)
+      REAL(KIND=8) PFSDNN(klon)
+      REAL(KIND=8) PFSDNV(klon)
+!MPL On ne redefinit pas les tableaux ZFLUX,ZFLUC,
+!MPL ZFSDWN,ZFCDWN,ZFSUP,ZFCUP car ils existent deja
+!MPL sous les noms de ZFLDN,ZFLDN0,ZFLUP,ZFLUP0,
+!MPL ZFSDN,ZFSDN0,ZFSUP,ZFSUP0
+      REAL(KIND=8) ZFLUX_i (klon,2,klev+1)
+      REAL(KIND=8) ZFLUC_i (klon,2,klev+1)
+      REAL(KIND=8) ZFSDWN_i (klon,klev+1)
+      REAL(KIND=8) ZFCDWN_i (klon,klev+1)
+      REAL(KIND=8) ZFSUP_i (klon,klev+1)
+      REAL(KIND=8) ZFCUP_i (klon,klev+1)
+! 3 lignes suivantes a activer pour CCMVAL (MPL 20100412)
+!      REAL(KIND=8) RSUN(3,2)
+!      REAL(KIND=8) SUN(3)
+!      REAL(KIND=8) SUN_FRACT(2)
   real, parameter:: dobson_u = 2.1415e-05 ! Dobson unit, in kg m-2
+!--OB
+      REAL tau(6), alt, zdz, zrho
+      character (len=20) :: modname='radlwsw'
+      character (len=80) :: abort_message
 
   call assert(size(wo, 1) == klon, size(wo, 2) == klev, "radlwsw wo")
   ! initialisation
+  ist=1
+  iend=klon
+  ktdia=1
+  kmode=ist 
   tauaero(:,:,:,:)=0.
   pizaero(:,:,:,:)=0.
   cgaero(:,:,:,:)=0.
+  lldebug=.FALSE.
   
   !
@@ -250,10 +371,21 @@
     DO i = 1, kdlon
       zfract(i) = fract(iof+i)
+!     zfract(i) = 1.     !!!!!!  essai MPL 19052010
       zrmu0(i) = rmu0(iof+i)
       PALBD(i,1) = alb1(iof+i)
       PALBD(i,2) = alb2(iof+i)
+!
+         PALBD_NEW(i,1) = alb1(iof+i)   !!!!! A REVOIR (MPL) PALBD_NEW en fonction bdes SW
+         do kk=2,NSW
+           PALBD_NEW(i,kk) = alb2(iof+i)
+         enddo
       PALBP(i,1) = alb1(iof+i)
       PALBP(i,2) = alb2(iof+i)
-      PEMIS(i) = 1.0 
+!
+         PALBP_NEW(i,1) = alb1(iof+i)     !!!!! A REVOIR (MPL) PALBP_NEW en fonction bdes SW
+         do kk=2,NSW
+           PALBP_NEW(i,kk) = alb2(iof+i)
+         enddo
+      PEMIS(i) = 1.0    !!!!! A REVOIR (MPL) 
       PVIEW(i) = 1.66
       PPSOL(i) = paprs(iof+i,1)
@@ -277,4 +409,7 @@
         POZON(i,k, :) = wo(iof+i, k, :) * RG * dobson_u * 1e3 &
              / (paprs(iof+i, k) - paprs(iof+i, k+1))
+!       A activer pour CCMVAL on prend l'ozone impose (MPL 07042010)
+!       POZON(i,k,:) = wo(i,k,:)  
+!       print *,'RADLWSW: POZON',k, POZON(i,k,1) 
         PCLDLD(i,k) = cldfra(iof+i,k)*cldemi(iof+i,k)
         PCLDLU(i,k) = cldfra(iof+i,k)*cldemi(iof+i,k)
@@ -313,8 +448,9 @@
     ENDDO
     !
-    DO kk = 1, 5
+!!!!! Modif MPL 6.01.09 avec RRTM, on passe de 5 a 6 
+    DO kk = 1, 6
       DO k = 1, kflev
         DO i = 1, kdlon
-          PAER(i,k,kk) = 1.0E-15
+          PAER(i,k,kk) = 1.0E-15   !!!!! A REVOIR (MPL)
         ENDDO
       ENDDO
@@ -334,5 +470,31 @@
 !===== iflag_rrtm ================================================
 !      
-    IF (iflag_rrtm == 0) THEN
+    IF (iflag_rrtm == 0) THEN       !!!! remettre 0 juste pour tester l'ancien rayt via rrtm
+!--- Mise a zero des tableaux output du rayonnement LW-AR4 ----------              
+      DO k = 1, kflev+1
+      DO i = 1, kdlon
+!     print *,'RADLWSW: boucle mise a zero i k',i,k
+      ZFLUP(i,k)=0.
+      ZFLDN(i,k)=0.
+      ZFLUP0(i,k)=0.
+      ZFLDN0(i,k)=0.
+      ZLWFT0_i(i,k)=0.
+      ZFLUCUP_i(i,k)=0.
+      ZFLUCDWN_i(i,k)=0.
+      ENDDO
+      ENDDO
+      DO k = 1, kflev
+      DO i = 1, kdlon
+      zcool(i,k)=0.
+      zcool0(i,k)=0.
+      ENDDO
+      ENDDO
+      DO i = 1, kdlon
+      ztoplw(i)=0.
+      zsollw(i)=0.
+      ztoplw0(i)=0.
+      zsollw0(i)=0.
+      zsollwdown(i)=0.
+      ENDDO
        ! Old radiation scheme, used for AR4 runs
        ! average day-night ozone for longwave
@@ -347,5 +509,34 @@
             zsollwdown,&
             ZFLUP, ZFLDN, ZFLUP0,ZFLDN0)
-
+!----- Mise a zero des tableaux output du rayonnement SW-AR4 
+      DO k = 1, kflev+1
+      DO i = 1, kdlon
+      ZFSUP(i,k)=0.
+      ZFSDN(i,k)=0.
+      ZFSUP0(i,k)=0.
+      ZFSDN0(i,k)=0.
+      ZSWFT0_i(i,k)=0.
+      ZFCUP_i(i,k)=0.
+      ZFCDWN_i(i,k)=0.
+      ENDDO
+      ENDDO
+      DO k = 1, kflev
+      DO i = 1, kdlon
+      zheat(i,k)=0.
+      zheat0(i,k)=0.
+      ENDDO
+      ENDDO
+      DO i = 1, kdlon
+      zalbpla(i)=0.
+      ztopsw(i)=0.
+      zsolsw(i)=0.
+      ztopsw0(i)=0.
+      zsolsw0(i)=0.
+      ztopswadaero(i)=0.
+      zsolswadaero(i)=0.
+      ztopswaiaero(i)=0.
+      zsolswaiaero(i)=0.
+      ENDDO
+!     print *,'Avant SW_LMDAR4: PSCT zrmu0 zfract',PSCT, zrmu0, zfract
        ! daylight ozone, if we have it, for short wave
        IF (.NOT. new_aod) THEN 
@@ -385,9 +576,342 @@
        ENDIF
 
+	      
+          DO i=1,kdlon
+          DO k=1,kflev+1
+         ZSWFT0_i(1:klon,k) = ZFSDN0(1:klon,k)-ZFSUP0(1:klon,k)
+         ZLWFT0_i(1:klon,k)=-ZFLDN0(1:klon,k)-ZFLUP0(1:klon,k)
+!        print *,'iof i k klon klev=',iof,i,k,klon,klev
+         lwdn0 ( iof+i,k)   = ZFLDN0 ( i,k)
+         lwdn  ( iof+i,k)   = ZFLDN  ( i,k)
+         lwup0 ( iof+i,k)   = ZFLUP0 ( i,k)
+         lwup  ( iof+i,k)   = ZFLUP  ( i,k)
+         swdn0 ( iof+i,k)   = ZFSDN0 ( i,k)
+         swdn  ( iof+i,k)   = ZFSDN  ( i,k)
+         swup0 ( iof+i,k)   = ZFSUP0 ( i,k)
+         swup  ( iof+i,k)   = ZFSUP  ( i,k)
+          ENDDO  
+          ENDDO  
+!          print*,'SW_AR4 ZFSDN0 1 , klev:',ZFSDN0(1:klon,1),ZFSDN0(1:klon,klev)
+!          print*,'SW_AR4 swdn0  1 , klev:',swdn0(1:klon,1),swdn0(1:klon,klev)
+!          print*,'SW_AR4 ZFSUP0 1 , klev:',ZFSUP0(1:klon,1),ZFSUP0(1:klon,klev)
+!          print*,'SW_AR4 swup0  1 , klev:',swup0(1:klon,1),swup0(1:klon,klev)
+!          print*,'SW_AR4 ZFSDN  1 , klev:',ZFSDN(1:klon,1) ,ZFSDN(1:klon,klev)
+!          print*,'SW_AR4 ZFSUP  1 , klev:',ZFSUP(1:klon,1) ,ZFSUP(1:klon,klev)
     ELSE  
+#ifdef CPP_RRTM
+!      if (prt_level.gt.10)write(lunout,*)'CPP_RRTM=.T.' 
 !===== iflag_rrtm=1, on passe dans SW via RECMWFL ===============
-       WRITE(lunout,*) "Option iflag_rrtm=T ne fonctionne pas encore !!!"
-       CALL abort_gcm('radlwsw','iflag_rrtm=T not valid',1) 
-
+
+      DO k = 1, kflev+1
+      DO i = 1, kdlon
+      ZEMTD_i(i,k)=0.
+      ZEMTU_i(i,k)=0.
+      ZTRSO_i(i,k)=0.
+      ZTH_i(i,k)=0.
+      ZLWFT_i(i,k)=0.
+      ZSWFT_i(i,k)=0.
+      ZFLUX_i(i,1,k)=0.
+      ZFLUX_i(i,2,k)=0.
+      ZFLUC_i(i,1,k)=0.
+      ZFLUC_i(i,2,k)=0.
+      ZFSDWN_i(i,k)=0.
+      ZFCDWN_i(i,k)=0.
+      ZFSUP_i(i,k)=0.
+      ZFCUP_i(i,k)=0.
+      ENDDO
+      ENDDO
+!      
+!--OB Valeurs de tau(NSW) calculees par O.Boucher (MPL 20130417)
+!-- voir aod_2bands.F90, aod_4bands.F90, aod_6bands.F90 dans BENCH48x36x19
+      SELECT CASE (NSW)
+      CASE (2)
+       tau(1)=0.22017828
+       tau(2)=0.110565394
+      CASE (4)
+       tau(1)=0.22017743
+       tau(2)=0.12738435
+       tau(3)=0.07157799
+       tau(4)=0.03301198
+      CASE (6)
+       tau(1)=0.49999997
+       tau(2)=0.28593913
+       tau(3)=0.20057647
+       tau(4)=0.12738435
+       tau(5)=0.07157799
+       tau(6)=0.03301198
+      END SELECT
+!     tau1=0.2099  ! anciennes valeurs de Nicolas Huneeus (20130326)
+!     tau2=0.1022
+!     tau(1)=1.0e-15
+!     tau(2)=1.0e-15
+!     tau(3)=1.0e-15
+!     tau(4)=1.0e-15
+!     tau(5)=1.0e-15
+!     tau(6)=1.0e-15
+      print *,'Radlwsw: NSW tau= ',NSW,tau(:)
+      DO i = 1, kdlon
+      alt=0.0
+      DO k = 1, kflev
+      zrho=pplay(i,k)/t(i,k)/RD
+      zdz=(paprs(i,k)-paprs(i,k+1))/zrho/RG
+      DO kk=1, NSW
+      PTAUREL_DST(i,kflev+1-k,kk)=(tau(kk)/2000.0)*max(0.0,min(zdz,2000.0-alt))
+      PTAUREL_DST(i,kflev+1-k,kk)=MAX(PTAUREL_DST(i,kflev+1-k,kk), 1e-15)
+      ENDDO
+      alt=alt+zdz
+      ENDDO
+      ENDDO
+
+!
+      DO k = 1, kflev
+      DO i = 1, kdlon
+      DO kk = 1, NSW
+!     PPIZA_DST(i,k,kk)=1.0   
+      PPIZA_DST(i,k,kk)=0.8   
+      PCGA_DST(i,k,kk)=0.7
+      ENDDO
+      ENDDO
+      ENDDO
+!      
+      DO i = 1, kdlon
+      ZCTRSO(i,1)=0.
+      ZCTRSO(i,2)=0.
+      ZCEMTR(i,1)=0.
+      ZCEMTR(i,2)=0.
+      ZTRSOD(i)=0.
+      ZLWFC(i,1)=0.
+      ZLWFC(i,2)=0.
+      ZSWFC(i,1)=0.
+      ZSWFC(i,2)=0.
+      PFSDNN(i)=0.
+      PFSDNV(i)=0.
+      DO kk = 1, NSW
+      PSFSWDIR(i,kk)=0.
+      PSFSWDIF(i,kk)=0.
+      ENDDO
+      ENDDO
+!----- Fin des mises a zero des tableaux output de RECMWF -------------------              
+!        GEMU(1:klon)=sin(rlatd(1:klon))
+! On met les donnees dans l'ordre des niveaux arpege
+         paprs_i(:,1)=paprs(:,klev+1)
+         do k=1,klev
+            paprs_i(1:klon,k+1) =paprs(1:klon,klev+1-k)
+            pplay_i(1:klon,k)   =pplay(1:klon,klev+1-k)
+            cldfra_i(1:klon,k)  =cldfra(1:klon,klev+1-k)
+            PDP_i(1:klon,k)     =PDP(1:klon,klev+1-k)
+            t_i(1:klon,k)       =t(1:klon,klev+1-k)
+            q_i(1:klon,k)       =q(1:klon,klev+1-k)
+            qsat_i(1:klon,k)    =qsat(1:klon,klev+1-k)
+            flwc_i(1:klon,k)    =flwc(1:klon,klev+1-k)
+            fiwc_i(1:klon,k)    =fiwc(1:klon,klev+1-k)
+            ref_liq_i(1:klon,k) =ref_liq(1:klon,klev+1-k)
+            ref_ice_i(1:klon,k) =ref_ice(1:klon,klev+1-k)
+         enddo
+         do k=1,kflev
+           POZON_i(1:klon,k,:)=POZON(1:klon,kflev+1-k,:)
+!!!            POZON_i(1:klon,k)=POZON(1:klon,k)	    !!! on laisse 1=sol et klev=top 
+!          print *,'Juste avant RECMWFL: k tsol temp',k,tsol,t(1,k)
+!!!!!!! Modif MPL 6.01.09 avec RRTM, on passe de 5 a 6      
+            do i=1,6
+            PAER_i(1:klon,k,i)=PAER(1:klon,kflev+1-k,i)
+            enddo
+         enddo
+!       print *,'RADLWSW: avant RECMWFL, RI0,rmu0=',solaire,rmu0
+
+!  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+! La version ARPEGE1D utilise differentes valeurs de la constante
+! solaire suivant le rayonnement utilise.
+! A controler ...
+! SOLAR FLUX AT THE TOP (/YOMPHY3/)
+! introduce season correction
+!--------------------------------------
+! RII0 = RIP0
+! IF(LRAYFM)
+! RII0 = RIP0M   ! =rip0m if Morcrette non-each time step call.
+! IF(LRAYFM15)
+! RII0 = RIP0M15 ! =rip0m if Morcrette non-each time step call.
+         RII0=solaire/zdist/zdist
+	print*,'+++ radlwsw: solaire ,RII0',solaire,RII0
+!  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+! Ancien appel a RECMWF (celui du cy25)
+!        CALL RECMWF (ist , iend, klon , ktdia , klev   , kmode ,
+!    s   PALBD    , PALBP   , paprs_i , pplay_i , RCO2   , cldfra_i,
+!    s   POZON_i  , PAER_i  , PDP_i   , PEMIS   , GEMU   , rmu0,
+!    s    q_i     , qsat_i  , fiwc_i  , flwc_i  , zmasq  , t_i  ,tsol,
+!    s   ZEMTD_i  , ZEMTU_i , ZTRSO_i ,
+!    s   ZTH_i    , ZCTRSO  , ZCEMTR  , ZTRSOD  ,
+!    s   ZLWFC    , ZLWFT_i , ZSWFC   , ZSWFT_i ,
+!    s   ZFLUX_i  , ZFLUC_i , ZFSDWN_i, ZFSUP_i , ZFCDWN_i,ZFCUP_i)
+!    s   'RECMWF ')
+!
+      if(lldebug) then
+        CALL writefield_phy('paprs_i',paprs_i,klev+1)
+        CALL writefield_phy('pplay_i',pplay_i,klev)
+        CALL writefield_phy('cldfra_i',cldfra_i,klev)
+        CALL writefield_phy('pozon_i',POZON_i,klev)
+        CALL writefield_phy('paer_i',PAER_i,klev)
+        CALL writefield_phy('pdp_i',PDP_i,klev)
+        CALL writefield_phy('q_i',q_i,klev)
+        CALL writefield_phy('qsat_i',qsat_i,klev)
+        CALL writefield_phy('fiwc_i',fiwc_i,klev)
+        CALL writefield_phy('flwc_i',flwc_i,klev)
+        CALL writefield_phy('t_i',t_i,klev)
+        CALL writefield_phy('palbd_new',PALBD_NEW,NSW)
+        CALL writefield_phy('palbp_new',PALBP_NEW,NSW)
+      endif
+
+! Nouvel appel a RECMWF (celui du cy32t0)
+         CALL RECMWF (ist , iend, klon , ktdia  , klev   , kmode ,&
+         PALBD_NEW,PALBP_NEW, paprs_i , pplay_i , RCO2   , cldfra_i,&
+         POZON_i  , PAER_i  , PDP_i   , PEMIS   , rmu0   ,&
+          q_i     , qsat_i  , fiwc_i  , flwc_i  , zmasq  , t_i  ,tsol,&
+         ref_liq_i, ref_ice_i, &
+         ZEMTD_i  , ZEMTU_i , ZTRSO_i ,&
+         ZTH_i    , ZCTRSO  , ZCEMTR  , ZTRSOD  ,&
+         ZLWFC    , ZLWFT_i , ZSWFC   , ZSWFT_i ,&
+         PSFSWDIR , PSFSWDIF, PFSDNN  , PFSDNV  ,&
+         PPIZA_DST, PCGA_DST,PTAUREL_DST,ZFLUX_i  , ZFLUC_i ,&
+         ZFSDWN_i , ZFSUP_i , ZFCDWN_i, ZFCUP_i)
+            
+         print *,'RADLWSW: apres RECMWF'
+      if(lldebug) then
+        CALL writefield_phy('zemtd_i',ZEMTD_i,klev+1)
+        CALL writefield_phy('zemtu_i',ZEMTU_i,klev+1)
+        CALL writefield_phy('ztrso_i',ZTRSO_i,klev+1)
+        CALL writefield_phy('zth_i',ZTH_i,klev+1)
+        CALL writefield_phy('zctrso',ZCTRSO,2)
+        CALL writefield_phy('zcemtr',ZCEMTR,2)
+        CALL writefield_phy('ztrsod',ZTRSOD,1)
+        CALL writefield_phy('zlwfc',ZLWFC,2)
+        CALL writefield_phy('zlwft_i',ZLWFT_i,klev+1)
+        CALL writefield_phy('zswfc',ZSWFC,2)
+        CALL writefield_phy('zswft_i',ZSWFT_i,klev+1)
+        CALL writefield_phy('psfswdir',PSFSWDIR,6)
+        CALL writefield_phy('psfswdif',PSFSWDIF,6)
+        CALL writefield_phy('pfsdnn',PFSDNN,1)
+        CALL writefield_phy('pfsdnv',PFSDNV,1)
+        CALL writefield_phy('ppiza_dst',PPIZA_DST,klev)
+        CALL writefield_phy('pcga_dst',PCGA_DST,klev)
+        CALL writefield_phy('ptaurel_dst',PTAUREL_DST,klev)
+        CALL writefield_phy('zflux_i',ZFLUX_i,klev+1)
+        CALL writefield_phy('zfluc_i',ZFLUC_i,klev+1)
+        CALL writefield_phy('zfsdwn_i',ZFSDWN_i,klev+1)
+        CALL writefield_phy('zfsup_i',ZFSUP_i,klev+1)
+        CALL writefield_phy('zfcdwn_i',ZFCDWN_i,klev+1)
+        CALL writefield_phy('zfcup_i',ZFCUP_i,klev+1)
+      endif
+! --------- output RECMWFL
+!  ZEMTD        (KPROMA,KLEV+1)  ; TOTAL DOWNWARD LONGWAVE EMISSIVITY
+!  ZEMTU        (KPROMA,KLEV+1)  ; TOTAL UPWARD   LONGWAVE EMISSIVITY
+!  ZTRSO        (KPROMA,KLEV+1)  ; TOTAL SHORTWAVE TRANSMISSIVITY
+!  ZTH          (KPROMA,KLEV+1)  ; HALF LEVEL TEMPERATURE
+!  ZCTRSO       (KPROMA,2)       ; CLEAR-SKY SHORTWAVE TRANSMISSIVITY
+!  ZCEMTR       (KPROMA,2)       ; CLEAR-SKY NET LONGWAVE EMISSIVITY
+!  ZTRSOD       (KPROMA)         ; TOTAL-SKY SURFACE SW TRANSMISSITY
+!  ZLWFC        (KPROMA,2)       ; CLEAR-SKY LONGWAVE FLUXES
+!  ZLWFT        (KPROMA,KLEV+1)  ; TOTAL-SKY LONGWAVE FLUXES
+!  ZSWFC        (KPROMA,2)       ; CLEAR-SKY SHORTWAVE FLUXES
+!  ZSWFT        (KPROMA,KLEV+1)  ; TOTAL-SKY SHORTWAVE FLUXES
+!  PPIZA_DST    (KPROMA,KLEV,NSW); Single scattering albedo of dust 
+!  PCGA_DST     (KPROMA,KLEV,NSW); Assymetry factor for dust 
+!  PTAUREL_DST  (KPROMA,KLEV,NSW); Optical depth of dust relative to at 550nm
+!  PSFSWDIR     (KPROMA,NSW)     ;
+!  PSFSWDIF     (KPROMA,NSW)     ;
+!  PFSDNN       (KPROMA)         ;
+!  PFSDNV       (KPROMA)         ;
+! ---------
+! ---------
+! On retablit l'ordre des niveaux lmd pour les tableaux de sortie
+! D autre part, on multiplie les resultats SW par fract pour etre coherent
+! avec l ancien rayonnement AR4. Si nuit, fract=0 donc pas de 
+! rayonnement SW. (MPL 260609)
+      DO k=0,klev
+         DO i=1,klon
+         ZEMTD(i,k+1)  = ZEMTD_i(i,k+1)
+         ZEMTU(i,k+1)  = ZEMTU_i(i,k+1)
+         ZTRSO(i,k+1)  = ZTRSO_i(i,k+1)
+         ZTH(i,k+1)    = ZTH_i(i,k+1)
+!        ZLWFT(i,k+1)  = ZLWFT_i(i,klev+1-k)
+!        ZSWFT(i,k+1)  = ZSWFT_i(i,klev+1-k)
+         ZFLUP(i,k+1)  = ZFLUX_i(i,1,k+1)
+         ZFLDN(i,k+1)  = ZFLUX_i(i,2,k+1)
+         ZFLUP0(i,k+1) = ZFLUC_i(i,1,k+1)
+         ZFLDN0(i,k+1) = ZFLUC_i(i,2,k+1)
+         ZFSDN(i,k+1)  = ZFSDWN_i(i,k+1)*fract(i)
+         ZFSDN0(i,k+1) = ZFCDWN_i(i,k+1)*fract(i)
+         ZFSUP (i,k+1) = ZFSUP_i(i,k+1)*fract(i)
+         ZFSUP0(i,k+1) = ZFCUP_i(i,k+1)*fract(i)
+!   Nouveau calcul car visiblement ZSWFT et ZSWFC sont nuls dans RRTM cy32
+!   en sortie de radlsw.F90 - MPL 7.01.09
+         ZSWFT(i,k+1)  = (ZFSDWN_i(i,k+1)-ZFSUP_i(i,k+1))*fract(i)
+         ZSWFT0_i(i,k+1) = (ZFCDWN_i(i,k+1)-ZFCUP_i(i,k+1))*fract(i)
+!        WRITE(*,'("FSDN FSUP FCDN FCUP: ",4E12.5)') ZFSDWN_i(i,k+1),&
+!        ZFSUP_i(i,k+1),ZFCDWN_i(i,k+1),ZFCUP_i(i,k+1)
+         ZLWFT(i,k+1) =-ZFLUX_i(i,2,k+1)-ZFLUX_i(i,1,k+1)
+         ZLWFT0_i(i,k+1)=-ZFLUC_i(i,2,k+1)-ZFLUC_i(i,1,k+1)
+!        print *,'FLUX2 FLUX1 FLUC2 FLUC1',ZFLUX_i(i,2,k+1),&
+!    & ZFLUX_i(i,1,k+1),ZFLUC_i(i,2,k+1),ZFLUC_i(i,1,k+1)
+         ENDDO
+      ENDDO
+
+!     print*,'SW_RRTM ZFSDN0 1 , klev:',ZFSDN0(1:klon,1),ZFSDN0(1:klon,klev)
+!     print*,'SW_RRTM ZFSUP0 1 , klev:',ZFSUP0(1:klon,1),ZFSUP0(1:klon,klev)
+!     print*,'SW_RRTM ZFSDN  1 , klev:',ZFSDN(1:klon,1),ZFSDN(1:klon,klev)
+!     print*,'SW_RRTM ZFSUP  1 , klev:',ZFSUP(1:klon,1),ZFSUP(1:klon,klev)	
+!     print*,'OK1'
+! ---------
+! ---------
+! On renseigne les champs LMDz, pour avoir la meme chose qu'en sortie de
+! LW_LMDAR4 et SW_LMDAR4
+      DO i = 1, kdlon
+         zsolsw(i)    = ZSWFT(i,1)
+         zsolsw0(i)   = ZSWFT0_i(i,1)
+!        zsolsw0(i)   = ZFSDN0(i,1)     -ZFSUP0(i,1)
+         ztopsw(i)    = ZSWFT(i,klev+1)
+         ztopsw0(i)   = ZSWFT0_i(i,klev+1)
+!        ztopsw0(i)   = ZFSDN0(i,klev+1)-ZFSUP0(i,klev+1)
+!         
+!        zsollw(i)    = ZFLDN(i,1)      -ZFLUP(i,1)
+!        zsollw0(i)   = ZFLDN0(i,1)     -ZFLUP0(i,1)
+!        ztoplw(i)    = ZFLDN(i,klev+1) -ZFLUP(i,klev+1)
+!        ztoplw0(i)   = ZFLDN0(i,klev+1)-ZFLUP0(i,klev+1)
+         zsollw(i)    = ZLWFT(i,1)
+         zsollw0(i)   = ZLWFT0_i(i,1)
+         ztoplw(i)    = ZLWFT(i,klev+1)*(-1)
+         ztoplw0(i)   = ZLWFT0_i(i,klev+1)*(-1)
+!         
+           IF (fract(i) == 0.) THEN
+!!!!! A REVOIR MPL (20090630) ca n a pas de sens quand fract=0
+! pas plus que dans le sw_AR4
+          zalbpla(i)   = 1.0e+39
+         ELSE
+          zalbpla(i)   = ZFSUP(i,klev+1)/ZFSDN(i,klev+1)
+         ENDIF
+         zsollwdown(i)= ZFLDN(i,1)
+      ENDDO
+      print*,'OK2'
+
+! extrait de SW_AR4
+!     DO k = 1, KFLEV
+!        kpl1 = k+1
+!        DO i = 1, KDLON
+!           PHEAT(i,k) = -(ZFSUP(i,kpl1)-ZFSUP(i,k)) -(ZFSDN(i,k)-ZFSDN(i,kpl1))
+!           PHEAT(i,k) = PHEAT(i,k) * RDAY*RG/RCPD / PDP(i,k)
+! ZLWFT(klon,k),ZSWFT
+
+      do k=1,kflev
+         do i=1,kdlon
+           zheat(i,k)=(ZSWFT(i,k+1)-ZSWFT(i,k))*RDAY*RG/RCPD/PDP(i,k)
+           zheat0(i,k)=(ZSWFT0_i(i,k+1)-ZSWFT0_i(i,k))*RDAY*RG/RCPD/PDP(i,k)
+           zcool(i,k)=(ZLWFT(i,k)-ZLWFT(i,k+1))*RDAY*RG/RCPD/PDP(i,k)
+           zcool0(i,k)=(ZLWFT0_i(i,k)-ZLWFT0_i(i,k+1))*RDAY*RG/RCPD/PDP(i,k)
+!          print *,'heat cool heat0 cool0 ',zheat(i,k),zcool(i,k),zheat0(i,k),zcool0(i,k)
+!	   ZFLUCUP_i(i,k)=ZFLUC_i(i,1,k)
+!	   ZFLUCDWN_i(i,k)=ZFLUC_i(i,2,k)	   
+         enddo
+      enddo
+#else
+    call abort_gcm(modname, abort_message, 1)
+#endif
     ENDIF ! iflag_rrtm
 !======================================================================
Index: LMDZ5/trunk/libf/phylmd/rrtm/abor1.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/abor1.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/abor1.F90	(revision 1989)
@@ -0,0 +1,10 @@
+SUBROUTINE ABOR1(CDTEXT)
+
+IMPLICIT NONE
+
+CHARACTER(LEN=*), INTENT(IN) :: CDTEXT
+
+print*,'ABOR1 CALLED',CDTEXT
+
+return
+end
Index: LMDZ5/trunk/libf/phylmd/rrtm/abor1.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/abor1.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/abor1.intfb.h	(revision 1989)
@@ -0,0 +1,5 @@
+INTERFACE
+SUBROUTINE ABOR1(CDTEXT)
+CHARACTER(LEN=*) :: CDTEXT
+END SUBROUTINE ABOR1
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/abort_trans_mod.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/abort_trans_mod.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/abort_trans_mod.F90	(revision 1989)
@@ -0,0 +1,30 @@
+MODULE ABORT_TRANS_MOD
+CONTAINS
+SUBROUTINE ABORT_TRANS(CDTEXT)
+
+USE TPM_GEN  , ONLY : NOUT,NERR
+USE TPM_DISTR, ONLY : NPROC,MYPROC
+!USE MPL_MODULE, ONLY : MPL_ABORT   ! MPL 1.12.08
+USE SDL_MODULE, ONLY : SDL_TRACEBACK, SDL_SRLABORT
+
+IMPLICIT NONE
+
+
+CHARACTER(LEN=*),INTENT(IN) :: CDTEXT
+
+WRITE(NOUT,'(1X,A)') 'ABORT_TRANS CALLED'
+
+WRITE(NOUT,'(1X,A)') CDTEXT
+WRITE(NERR,'(1X,A,1X,I3,1X,A)') 'ABORT! ',MYPROC,CDTEXT
+CLOSE(NOUT)
+IF (NPROC > 1) THEN
+! CALL MPL_ABORT(CDTEXT)  ! MPL 1.12.08
+  CALL ABOR1('DANS ABORT_TRANS_MOD')
+ELSE
+  CALL SDL_TRACEBACK
+  CALL FLUSH(0)
+  CALL SDL_SRLABORT
+ENDIF
+
+END SUBROUTINE ABORT_TRANS
+END MODULE ABORT_TRANS_MOD
Index: LMDZ5/trunk/libf/phylmd/rrtm/cpledn_mod.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/cpledn_mod.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/cpledn_mod.F90	(revision 1989)
@@ -0,0 +1,164 @@
+MODULE CPLEDN_MOD
+CONTAINS
+SUBROUTINE CPLEDN(KN,KDBLE,PX,DDX,KFLAG,PW,PXN,DDXN,PXMOD)
+
+!**** *CPLEDN* - Routine to compute the Legendre polynomial of degree N
+
+!     Purpose.
+!     --------
+!           Computes Legendre polynomial of degree N
+
+!**   Interface.
+!     ----------
+!        *CALL* *CPLEDN(KN,KDBLE,PX,DDX,KFLAG,PW,PXN,DDXN,PXMOD)*
+
+!        Explicit arguments :
+!        --------------------
+!              KN       :  Degree of the Legendre polynomial
+!              KDBLE    :  0, single precision
+!                          1, double precision
+!              PX       :  abcissa where the computations are performed
+!              DDX      :  id in double precision
+!              KFLAG    :  When KFLAG.EQ.1 computes the weights
+!              PW       :  Weight of the quadrature at PXN
+!              PXN      :  new abscissa (Newton iteration)
+!              DDXN     :  id in double precision
+!              PXMOD    :  PXN-PX
+
+!        Implicit arguments :
+!        --------------------
+!       None
+
+!     Method.
+!     -------
+!        See documentation
+
+!     Externals.
+!     ----------
+!        None
+
+!     Reference.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+
+!     Author.
+!     -------
+!        Mats Hamrud and Philippe Courtier  *ECMWF*
+
+!     Modifications.
+!     --------------
+!        Original : 87-10-15
+!        Michel Rochas, 90-08-30 (Lobatto+cleaning)
+!     ------------------------------------------------------------------
+
+
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE PARKIND2  ,ONLY : JPRH
+
+IMPLICIT NONE
+
+
+!     DUMMY INTEGER SCALARS
+INTEGER(KIND=JPIM) :: KDBLE
+INTEGER(KIND=JPIM) :: KFLAG
+INTEGER(KIND=JPIM) :: KN
+
+!     DUMMY REAL SCALARS
+REAL(KIND=JPRB) :: PW
+REAL(KIND=JPRB) :: PX
+REAL(KIND=JPRB) :: PXMOD
+REAL(KIND=JPRB) :: PXN
+
+
+REAL(KIND=JPRH) :: DDX,DDXN,DLX,DLK,DLKM1,DLKM2,DLLDN,DLXN,DLMOD
+REAL(KIND=JPRH) :: DLG,DLGDN
+
+INTEGER(KIND=JPIM), PARAMETER :: JPKS=KIND(PX)
+INTEGER(KIND=JPIM), PARAMETER :: JPKD=KIND(DDX)
+
+!     LOCAL INTEGER SCALARS
+INTEGER(KIND=JPIM) :: IZN, JN
+
+!     LOCAL REAL SCALARS
+REAL(KIND=JPRB) :: ZG, ZGDN, ZK, ZKM1, ZKM2, ZLDN, ZMOD, ZX, ZXN
+
+
+!      -----------------------------------------------------------------
+
+!*       1. Single precision computations.
+!           ------------------------------
+
+IZN = KN
+
+ZK = 0.0_JPRB
+DLK = 0.0_JPRB
+DLXN = 0.0_JPRB
+IF(KDBLE == 0)THEN
+
+!*       1.1   NEWTON ITERATION STEP.
+
+  ZKM2 = 1
+  ZKM1 = PX
+  ZX   = PX
+  DO JN=2,IZN
+    ZK = (REAL(2*JN-1,JPRB)*ZX*ZKM1-REAL(JN-1,JPRB)*ZKM2)/REAL(JN,JPRB)
+    ZKM2 = ZKM1
+    ZKM1 = ZK
+  ENDDO
+  ZKM1 = ZKM2
+  ZLDN = (REAL(KN,JPRB)*(ZKM1-ZX*ZK))/(1.0_JPRB-ZX*ZX)
+  ZMOD = -ZK/ZLDN
+  ZXN = ZX+ZMOD
+  PXN = ZXN
+  DDXN = REAL(ZXN,JPKD)
+  PXMOD = ZMOD
+
+!     ------------------------------------------------------------------
+
+!*         2.    Double precision computations.
+!                ------------------------------
+
+ELSE
+
+!*       2.1   NEWTON ITERATION STEP.
+
+  DLKM2 = 1.0_JPRB
+  DLKM1 = DDX
+  DLX = DDX
+  DO JN=2,IZN
+    DLK = (REAL(2*JN-1,JPKD)*DLX*DLKM1-REAL(JN-1,JPKD)*DLKM2)/REAL(JN,JPKD)
+    DLKM2 = DLKM1
+    DLKM1 = DLK
+  ENDDO
+  DLKM1 = DLKM2
+  DLLDN = (REAL(KN,JPKD)*(DLKM1-DLX*DLK))/(1.0_JPRB-DLX*DLX)
+  DLMOD = -DLK/DLLDN
+  DLXN = DLX+DLMOD
+  PXN = REAL(DLXN,JPKS)
+  DDXN = DLXN
+  PXMOD = REAL(DLMOD,JPKS)
+ENDIF
+!     ------------------------------------------------------------------
+
+!*         3.    Computes weight.
+!                ----------------
+
+
+IF(KFLAG == 1)THEN
+  DLKM2 = 1.0_JPRB
+  DLKM1 = DLXN
+  DLX = DLXN
+  DO JN=2,IZN
+    DLK = (REAL(2*JN-1,JPKD)*DLX*DLKM1-REAL(JN-1,JPKD)*DLKM2)/REAL(JN,JPKD)
+    DLKM2 = DLKM1
+    DLKM1 = DLK
+  ENDDO
+  DLKM1 = DLKM2
+  PW = REAL((1.0_JPRB-DLX*DLX)/(REAL(KN*KN,JPKD)*DLKM1*DLKM1),JPKS)
+ENDIF
+
+!     ------------------------------------------------------------------
+
+END SUBROUTINE CPLEDN
+END MODULE CPLEDN_MOD
Index: LMDZ5/trunk/libf/phylmd/rrtm/dates.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/dates.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/dates.F90	(revision 1989)
@@ -0,0 +1,1202 @@
+subroutine dates_demo
+! --------------------------------------------------------------
+!
+! Conseils a l'utilisateur:
+!
+! 1. VOUS COMPILEZ LES ENTIERS EN 32 BITS:
+! Utilisez alors les routines
+! - ecartds: Ecart en secondes entre deux dates.
+! - ecartdj: Ecart en jours entre deux dates.
+! - dapluss: Date dans n secondes.
+! - daplusj: Date dans n jours.
+! - qqmmaa: Conversion d'un entier type AAAAQQMM vers une date en clair.
+! - ijoursem: Jour de la semaine de la date d'entree.
+! - quant: quantieme de l'annee d'une date donnee.
+! Ces routines sont compatibles avec des entiers 32 bits.
+! En effet elles appelent les routines citees ci-dessous, mais avec
+! les parametres subsequents assurant que seuls des entiers
+! representables en 32 bits y soient utilises.
+!
+! 2. VOUS COMPILEZ LES ENTIERS EN 64 BITS:
+! Vous pouvez alors utiliser toutes les routines ci-dessus
+! plus les suivantes, qui traitent des formats de dates
+! en entree/sortie en JOURS, HEURES, MINUTES ou SECONDES:
+! - ecartd: Ecart entre deux dates.
+! - gregod: Conversion Date > Ecart par rapport a une date fixe.
+! - gregoi: Conversion Ecart par rapport a une date fixe > Date.
+! - daplus: Quelle sera la date dans n jours (ou heures, etc...)?
+! - amqhms_vers_dj: Conversion date grégorienne (en 5 entiers et un réel) > date julienne.
+! - dj_vers_amqhms: Conversion date julienne > date grégorienne (en 5 entiers et un réel).
+! - amqhmsree_vers_dj: Conversion date grégorienne (en un seul réel) > date julienne.
+! - dj_vers_amqhmsree: Conversion date julienne > date grégorienne (en un seul réel).
+!
+! --------------------------------------------------------------
+!
+! Définition des dates employées ci-dessous:
+!
+! Date julienne DJ:
+!       Elle est composée d'un réel.
+!       R1: Ce réel croît de 1 tous les jours,
+!               et vaut 2451545.0 le 1er janvier 2000 à 12 UTC.
+!
+! Date grégorienne "en clair" AMQHMS:
+!       Elle est composée de 5 entiers et d'un réel.
+!       E1: Année (4 chiffres!)
+!       E2: Mois
+!       E3: Jour
+!       E4: Heure
+!       E5: Minute
+!       R1: Seconde
+! --------------------------------------------------------------
+
+
+IMPLICIT NONE
+end
+subroutine date_plus_ech(kan,kmo,kqu,psssss,pstati,cdtit)
+! --------------------------------------------------------------
+! Ecriture en clair d'une date de type BASE 2000.01.15 00:00 +72H VALID 2000.01.18 15:00.
+! --------------------------------------------------------------
+! Sujet:
+! Arguments explicites:
+! Arguments implicites:
+! Methode:
+! Externes:
+! Auteur:   2000-09, J.M. Piriou.
+! Modifications:
+! --------------------------------------------------------------
+! En entree:
+! kan,kmo,kqu,psssss,pstati
+! En sortie:
+! cdtit
+! --------------------------------------------------------------
+
+
+IMPLICIT NONE
+INTEGER(KIND=4) :: kan,kmo,kqu,ihe,imi,imiv,ihev,iquv,imov,ianv,ilze
+REAL(KIND=8) :: psssss,pstati
+REAL(KIND=8) :: zs
+REAL(KIND=8) :: zsssss,zdj,zsv
+REAL(KIND=8) :: zech
+character*200 clzue,clze,clech
+character *(*) cdtit
+!
+!-------------------------------------------------
+! Date de validité.
+!-------------------------------------------------
+!
+zs=0.
+zsssss=psssss/3600.
+ihe=int(zsssss) ! heure de la base.
+zsssss=(zsssss-real(ihe))*60.
+imi=int(zsssss) ! minute de la base.
+zsssss=zsssss-real(imi)
+call amqhms_vers_dj(kan,kmo,kqu,ihe,imi,zs,zdj)
+zdj=zdj+pstati/86400. ! date julienne de validité.
+call dj_vers_amqhms(zdj,ianv,imov,iquv,ihev,imiv,zsv) ! date grégorienne de validité.
+if(pstati < 3600.) then
+!
+!-------------------------------------------------
+! Echéance en minutes.
+!-------------------------------------------------
+!
+	zech=pstati/60. ; clzue='mn'
+elseif(pstati < 259200.) then
+!
+!-------------------------------------------------
+! Echéance en heures.
+!-------------------------------------------------
+!
+	zech=pstati/3600. ; clzue='h'
+else
+!
+!-------------------------------------------------
+! Echéance en jours.
+!-------------------------------------------------
+!
+	zech=pstati/86400. ; clzue='j'
+endif
+!
+! Affichage de l'echeance avec deux chiffres apres la virgule.
+!
+write(clze,fmt='(f9.2)') zech
+!
+! Si l'echeance est voisine d'un entier a mieux que 10**-2 pres,
+! on l'affiche au format entier.
+!
+if(clze(len_trim(clze)-2:len_trim(clze)) == '.00') then
+	clze=clze(1:len_trim(clze)-3)
+endif
+clze=adjustl(clze)
+ilze=len_trim(clze)
+clech=clze(1:ilze)//clzue
+!
+!-------------------------------------------------
+! Titre 3, de type
+! BASE 2000.01.15 00:00 +72H VALID 2000.01.18 15:00.
+!-------------------------------------------------
+!
+if(imi == 0 .and. imiv == 0) then
+!
+!-------------------------------------------------
+! Les minutes de base et validité sont nulles.
+! On ne les affiche pas.
+!-------------------------------------------------
+!
+	write(cdtit,fmt='(a,i2,a,i2.2,a,i4.4,a,i2.2,3a,i2,a,i2.2,a,i4.4,a,i2.2,a)')&
+	&'BASE ',kqu,'.',kmo,'.',kan,' ',ihe,'h UTC + ',clech(1:len_trim(clech))&
+	&,', VALID ',iquv,'.',imov,'.',ianv,' ',ihev,'h UTC'
+else
+!
+!-------------------------------------------------
+! Les minutes de base ou validité sont non nulles.
+! On les affiche.
+!-------------------------------------------------
+!
+	write(cdtit,fmt='(a,i2,a,i2.2,a,i4.4,a,i2.2,a,i2.2,3a,i2,a,i2.2,a,i4.4,a,i2.2,a,i2.2,a)')&
+	&'BASE ',kqu,'.',kmo,'.',kan,' ',ihe,':',imi,' UTC + ',clech(1:len_trim(clech))&
+	&,' VALID ',iquv,'.',imov,'.',ianv,' ',ihev,':',imiv,' UTC'
+endif
+end
+subroutine datc(kaaaa,kmm,kqq,khh,kmi,kss,kjs,cdjs,cddt)
+! --------------------------------------------------------------
+! **** *datc* Date courante machine.
+! --------------------------------------------------------------
+! Sujet:
+! ------
+! Arguments explicites:
+! ---------------------
+! Arguments implicites:
+! ---------------------
+! Methode:
+! --------
+! Externes:
+! ---------
+! Auteur:   95-05, J.M. Piriou.
+! -------
+! Modifications:
+! --------------------------------------------------------------
+! En entree:
+! En sortie:
+! kaaaa      annee.
+! kmm      mois.
+! kqq      quantieme.
+! khh      heure.
+! kmi      minute.
+! kss      seconde.
+! kjs      jour de la semaine (0: dimanche, 6 samedi).
+! cdjs      jour de la semaine sur 3 caracteres (Dim, Lun, etc...).
+! cddt      date totale (19950301-Mer-16:56:32).
+! --------------------------------------------------------------
+
+
+IMPLICIT NONE
+INTEGER(KIND=4) :: idatat(8)
+INTEGER(KIND=4) :: kjs
+INTEGER(KIND=4) :: kss
+INTEGER(KIND=4) :: kmi
+INTEGER(KIND=4) :: khh
+INTEGER(KIND=4) :: kqq
+INTEGER(KIND=4) :: kmm
+INTEGER(KIND=4) :: kaaaa
+INTEGER(KIND=4) :: iaaaammqq
+INTEGER(KIND=4) :: ijoursem
+REAL(KIND=8) :: zs
+character*200 clgol1,clgol2,clgol3
+character*3 cdjs
+character*(*) cddt
+character*3 cljour(0:6)
+data cljour/'Dim','Lun','Mar','Mer','Jeu','Ven','Sam'/
+!
+!-------------------------------------------------
+! Date courante à la f90.
+!-------------------------------------------------
+!
+clgol1=' '
+clgol2=' '
+clgol3=' '
+call date_and_time(clgol1,clgol2,clgol3,idatat)
+!
+!-------------------------------------------------
+! clgol1 est du type "AAAAMMQQ".
+!-------------------------------------------------
+!
+read(clgol1,fmt='(i4,2i2)') kaaaa,kmm,kqq
+!
+!-------------------------------------------------
+! clgol2 est du type "HHMMSS.SSS".
+!-------------------------------------------------
+!
+read(clgol2,fmt='(2i2)') khh,kmi
+read(clgol2(5:),fmt=*) zs
+kss=nint(zs)
+read(clgol1,fmt='(i8)') iaaaammqq
+!
+!-------------------------------------------------
+! Jour de la semaine.
+!-------------------------------------------------
+!
+kjs=ijoursem(iaaaammqq)
+cdjs=cljour(kjs)
+!
+!-------------------------------------------------
+! Date totale.
+!-------------------------------------------------
+!
+write(cddt,fmt='(i4.4,a,2(i2.2,a),2a,i2.2,a,i2.2,a,i2.2)') &
+&kaaaa,'_',kmm,'_',kqq,'_',cdjs,'_',khh,':',kmi,':',kss
+end
+subroutine amqhms_vers_dj(kaaaa,kmm,kqq,khh,kmn,ps,pdj)
+! --------------------------------------------------------------------------
+! **** *amqhms_vers_dj*
+! --------------------------------------------------------------------------
+! Auteur:
+! -------
+! 1999-08-17, J.M. Piriou.
+!
+! Modifications:
+! --------------
+!
+! --------------------------------------------------------------------------
+! En entree:
+! kaaaa année (4 chiffres!)
+! kmm   mois
+! kqq   quantième du mois
+! khh   heure
+! kmn   minute
+! ps    seconde
+! En sortie:
+! pdj date julienne associée à la date grégorienne UTC d'entrée
+! --------------------------------------------------------------------------
+
+
+IMPLICIT NONE
+INTEGER(KIND=4) :: IDATE1
+INTEGER(KIND=4) :: IDATE2
+INTEGER(KIND=4) :: IECART
+INTEGER(KIND=4) :: KAAAA
+INTEGER(KIND=4) :: KHH
+INTEGER(KIND=4) :: KMM
+INTEGER(KIND=4) :: KMN
+INTEGER(KIND=4) :: KQQ
+REAL(KIND=8) :: PDJ
+REAL(KIND=8) :: PS
+
+idate1=20000101
+idate2=kaaaa*10000+kmm*100+kqq
+!
+!-------------------------------------------------
+! Nombre de jours écoulés entre la date
+! d'entrée à 0h UTC et le 1er janvier 2000 à 0h UTC.
+!-------------------------------------------------
+!
+call ecartdj(idate1,idate2,iecart)
+!
+!-------------------------------------------------
+! Date julienne.
+!-------------------------------------------------
+!
+pdj=2451545.0- 0.5 +real(iecart)+real(khh)/24. &
+& +real(kmn)/1440.+ps/86400.
+end
+subroutine daplus(kdat1,kopt,kdelt,kdat2)
+! --------------------------------------------------------------------------
+! **** *DAPLUS* Quelle sera la date dans n jours (ou heures, etc...)?
+! --------------------------------------------------------------------------
+! Auteur:
+! -------
+! 94-10-31, J.M. Piriou.
+!
+! Modifications:
+! --------------
+!
+! --------------------------------------------------------------------------
+! En entree:
+! kdat1
+! kopt option de precision sur les dates:
+! 1 : au jour pres
+! 2 : a l'heure pres
+! 3 : a la minute pres
+! 4 : a la seconde pres
+! - si kopt=1 : kdat au format AAAAMMQQ
+! - si kopt=2 : kdat au format AAAAMMQQHH
+! - si kopt=3 : kdat au format AAAAMMQQHHMM
+! - si kopt=4 : kdat au format AAAAMMQQHHMMSS
+! (cf. GREGOD).
+! kdelt duree a ajouter a kdat1, unite: celle imposee par kopt.
+! En sortie:
+! kdat2 date finale.
+!
+! --------------------------------------------------------------------------
+! Exemple: call DAPLUS(19940503,1,456,ires) fournira
+! dans ires la date au format AAAAMMQQ situee 456 jours apres
+! le 3 mai 1994.
+! --------------------------------------------------------------------------
+! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+! ATTENTION A LA PRECISION:
+! 1. Vous compilez les entiers sur 32 bits:
+! Vous devez alors vous limiter a kopt <= 2.
+! 2. Vous compilez les entiers sur 64 bits:
+! Vous pouvez utiliser toutes les valeurs de kopt.
+! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+
+
+IMPLICIT NONE
+INTEGER(KIND=4) :: IGRE
+INTEGER(KIND=4) :: KDAT1
+INTEGER(KIND=4) :: KDAT2
+INTEGER(KIND=4) :: KDELT
+INTEGER(KIND=4) :: KOPT
+call gregod(kdat1,kopt,igre)
+igre=igre+kdelt
+call gregoi(igre,kopt,kdat2)
+end
+subroutine daplusj(k1,kec,k2)
+! --------------------------------------------------------------
+! **** *daplusj* Date dans n jours.
+! --------------------------------------------------------------
+! Sujet:
+! Arguments explicites:
+! Arguments implicites:
+! Methode:
+! Externes:
+! Auteur:   97-11, J.M. Piriou.
+! Modifications:
+! --------------------------------------------------------------
+! En entree:
+! k1 date de depart au format AAAAMMQQ.
+! kec nombre de jours ecoules.
+! En sortie:
+! k2 date d'arrivee au format AAAAMMQQ.
+! --------------------------------------------------------------
+! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+! PRECISION:
+! Cette routine est utilisable avec des entiers 32 bits ou 64 bits.
+! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+!
+! -------------------------------------------------
+! Date d'arrivee au jour pres.
+! -------------------------------------------------
+!
+
+
+IMPLICIT NONE
+INTEGER(KIND=4) :: K1
+INTEGER(KIND=4) :: K2
+INTEGER(KIND=4) :: KEC
+call daplus(k1,1,kec,k2)
+end
+subroutine dapluss(cd1,kec,cd2)
+! --------------------------------------------------------------
+! **** *dapluss* Date dans n secondes.
+! --------------------------------------------------------------
+! Sujet:
+! Arguments explicites:
+! Arguments implicites:
+! Methode:
+! Externes:
+! Auteur:   97-11, J.M. Piriou.
+! Modifications:
+! --------------------------------------------------------------
+! En entree:
+! cd1 date de depart au format 'AAAAMMQQHHNNSS'.
+! kec nombre de secondes ecoulees.
+! En sortie:
+! cd2 date d'arrivee au format 'AAAAMMQQHHNNSS'.
+! --------------------------------------------------------------
+! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+! ATTENTION A LA PRECISION:
+! Cette routine est utilisable avec des entiers 32 bits,
+! si l'ecart entre les deux dates est inferieur a 2**31 secondes,
+! soit 68 ans!...
+!
+! Au-dela de cette duree, les entiers doivent etre 64 bits.
+! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+
+
+IMPLICIT NONE
+INTEGER(KIND=4) :: IAMQ1
+INTEGER(KIND=4) :: IAMQ2
+INTEGER(KIND=4) :: IDELTA
+INTEGER(KIND=4) :: IECJOURS
+INTEGER(KIND=4) :: IH1
+INTEGER(KIND=4) :: IH2
+INTEGER(KIND=4) :: IM1
+INTEGER(KIND=4) :: IM2
+INTEGER(KIND=4) :: IRESTE
+INTEGER(KIND=4) :: IS1
+INTEGER(KIND=4) :: IS2
+INTEGER(KIND=4) :: ISEC
+INTEGER(KIND=4) :: KEC
+character*(*) cd1,cd2
+!
+! -------------------------------------------------
+! On lit les dates sur des entiers.
+! -------------------------------------------------
+!
+read(cd1,fmt='(i8,3i2)') iamq1,ih1,im1,is1
+!
+! -------------------------------------------------
+! Calculs d'ecarts et de leur partition
+! en multiples de 86400 et sous-multiples.
+! -------------------------------------------------
+!
+isec=ih1*3600+im1*60+is1 ! nombre de secondes ecoulees depuis cd10h.
+idelta=kec+isec ! nombre de secondes entre cd10h et cd2.
+ireste=modulo(idelta,86400) ! nombre de secondes entre cd20h et cd2.
+iecjours=(idelta-ireste)/86400 ! nombre de jours entre cd10h et cd20h.
+!
+! -------------------------------------------------
+! Date d'arrivee au jour pres.
+! -------------------------------------------------
+!
+call daplus(iamq1,1,iecjours,iamq2)
+!
+! -------------------------------------------------
+! Date finale a la seconde pres.
+! -------------------------------------------------
+!
+ih2=ireste/3600
+ireste=ireste-3600*ih2
+im2=ireste/60
+ireste=ireste-60*im2
+is2=ireste
+write(cd2,fmt='(i8,3i2.2)') iamq2,ih2,im2,is2
+end
+subroutine dj_vers_amqhms(pdj,kaaaa,kmm,kqq,khh,kmn,ps)
+! --------------------------------------------------------------------------
+! **** *dj_vers_amqhms*
+! --------------------------------------------------------------------------
+! Auteur:
+! -------
+! 1999-08-17, J.M. Piriou.
+!
+! Modifications:
+! --------------
+!
+! --------------------------------------------------------------------------
+! En entree:
+! pdj date julienne associée à la date grégorienne UTC d'entrée
+! En sortie:
+! kaaaa année (4 chiffres!)
+! kmm   mois
+! kqq   quantième du mois
+! khh   heure
+! kmn   minute
+! ps    seconde
+! --------------------------------------------------------------------------
+!
+!-------------------------------------------------
+! Nombre de jours entre le 1er janvier 2000 à 0 UTC
+! et la date julienne courante.
+!-------------------------------------------------
+!
+
+
+IMPLICIT NONE
+INTEGER(KIND=4) :: IDATE1
+INTEGER(KIND=4) :: IDATE2
+INTEGER(KIND=4) :: IECART
+INTEGER(KIND=4) :: KAAAA
+INTEGER(KIND=4) :: KHH
+INTEGER(KIND=4) :: KMM
+INTEGER(KIND=4) :: KMN
+INTEGER(KIND=4) :: KNOUV
+INTEGER(KIND=4) :: KQQ
+REAL(KIND=8) :: PDJ
+REAL(KIND=8) :: PS
+REAL(KIND=8) :: ZECART
+REAL(KIND=8) :: ZFRAC
+zecart=pdj-2451544.5
+!
+!-------------------------------------------------
+! Nombre entier de jours.
+!-------------------------------------------------
+!
+zfrac=modulo(zecart, 1._8 )
+iecart=nint(zecart-zfrac)
+!
+!-------------------------------------------------
+! Date grégorienne associée.
+!-------------------------------------------------
+!
+idate1=20000101
+call daplusj(idate1,iecart,idate2)
+kqq=mod(idate2,100)
+knouv=idate2/100
+kmm=mod(knouv,100)
+kaaaa=knouv/100
+!
+!-------------------------------------------------
+! Calcul de des heure, minute et seconde.
+!-------------------------------------------------
+!
+zfrac=(zecart-real(iecart))*24.
+khh=int(zfrac)
+zfrac=(zfrac-real(khh))*60.
+kmn=int(zfrac)
+ps=(zfrac-real(kmn))*60.
+end
+subroutine dj_vers_amqhmsree(pdj,pgrer)
+! --------------------------------------------------------------------------
+! **** **
+! --------------------------------------------------------------------------
+! Auteur:
+! -------
+! 2002-11, J.M. Piriou.
+!
+! Modifications:
+! --------------
+!
+! --------------------------------------------------------------------------
+! En entree:
+! pdj date julienne
+! En sortie:
+! pgrer date en clair au format AAAAMMQQ.HHMMSS
+! --------------------------------------------------------------------------
+!
+
+IMPLICIT NONE
+REAL(KIND=8), intent(in) :: PDJ
+REAL(KIND=8), intent(out) :: pgrer
+REAL(KIND=8) :: ZS
+INTEGER(KIND=4) :: iaaaa,imm,iqq,ihh,imn
+!
+!-------------------------------------------------
+! Conversion grégorien julien; cible 5 entiers et un réel.
+!-------------------------------------------------
+!
+call dj_vers_amqhms(pdj,iaaaa,imm,iqq,ihh,imn,zs)
+!
+!-------------------------------------------------
+! On passe de ces 5 entiers et un réel à un seul réel.
+!-------------------------------------------------
+!
+pgrer=real(iaaaa)*10000.+real(imm)*100. &
+& + real(iqq)+real(ihh)/100. &
+& + real(imn)/10000.+zs/1.E+06
+end
+subroutine amqhmsree_vers_dj(pgrer,pdj)
+! --------------------------------------------------------------------------
+! **** **
+! --------------------------------------------------------------------------
+! Auteur:
+! -------
+! 2002-11, J.M. Piriou.
+!
+! Modifications:
+! --------------
+!
+! --------------------------------------------------------------------------
+! En entree:
+! pgrer date en clair au format AAAAMMQQ.HHMMSS
+! En sortie:
+! pdj date julienne associée à la date grégorienne
+! --------------------------------------------------------------------------
+!
+
+IMPLICIT NONE
+REAL(KIND=8), intent(out) :: PDJ
+REAL(KIND=8), intent(in) :: pgrer
+REAL(KIND=8) :: ZS,zloc
+INTEGER(KIND=4) :: iaaaa,imm,iqq,ihh,imn,iloc
+!
+!-------------------------------------------------
+! On passe de cette date grégorienne donnée
+! comme un seul réel à 5 entiers et un réel.
+!-------------------------------------------------
+!
+iloc=int(pgrer)
+iqq=mod(iloc,100)
+iloc=iloc/100
+imm=mod(iloc,100)
+iaaaa=iloc/100
+
+iloc=nint((pgrer-real(int(pgrer)))*1.E+06)
+zs=real(mod(iloc,100))
+iloc=iloc/100
+imn=mod(iloc,100)
+ihh=iloc/100
+!
+!-------------------------------------------------
+! Conversion grégorien julien; cible 5 entiers et un réel.
+!-------------------------------------------------
+!
+call amqhms_vers_dj(iaaaa,imm,iqq,ihh,imn,zs,pdj)
+end
+subroutine ecartd(kdat1,kdat2,kopt,kgre)
+! --------------------------------------------------------------------------
+! **** *ECART* Ecart entre deux dates.
+! --------------------------------------------------------------------------
+! Auteur:
+! -------
+! 97-01-09, J.M. Piriou.
+!
+! Modifications:
+! --------------
+!
+! --------------------------------------------------------------------------
+! En entree: kopt option de precision sur les dates:
+! 1 : au jour pres
+! 2 : a l'heure pres
+! 3 : a la minute pres
+! 4 : a la seconde pres
+! - si kopt=1 : kdat au format AAAAMMQQ
+! - si kopt=2 : kdat au format AAAAMMQQHH
+! - si kopt=3 : kdat au format AAAAMMQQHHMM
+! - si kopt=4 : kdat au format AAAAMMQQHHMMSS
+! kdat1 et kdat2 dates au format ci-dessus.
+! En sortie:
+! - si kopt=1 : kgre nombre de jours    entre kdat1 et kdat2
+! - si kopt=2 : kgre nombre d'heures    entre kdat1 et kdat2
+! - si kopt=3 : kgre nombre de minutes  entre kdat1 et kdat2
+! - si kopt=4 : kgre nombre de secondes entre kdat1 et kdat2
+! --------------------------------------------------------------------------
+! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+! ATTENTION A LA PRECISION:
+! 1. Vous compilez les entiers sur 32 bits:
+! Vous devez alors vous limiter a kopt <= 2.
+! L'ecart entre les deux dates doit etre inferieur a
+! - 2**31 heures si kopt=2
+! - 2**31 jours si kopt=1
+! 2. Vous compilez les entiers sur 64 bits:
+! Vous pouvez utiliser toutes les valeurs de kopt.
+! L'ecart entre les deux dates doit etre inferieur a
+! - 2**63 secondes si kopt=4
+! - 2**63 minutes si kopt=3
+! - 2**63 heures si kopt=2
+! - 2**63 jours si kopt=1
+! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+
+
+IMPLICIT NONE
+INTEGER(KIND=4) :: IGRE1
+INTEGER(KIND=4) :: IGRE2
+INTEGER(KIND=4) :: KDAT1
+INTEGER(KIND=4) :: KDAT2
+INTEGER(KIND=4) :: KGRE
+INTEGER(KIND=4) :: KOPT
+call gregod(kdat1,kopt,igre1)
+call gregod(kdat2,kopt,igre2)
+kgre=igre2-igre1
+end
+subroutine ecartdj(k1,k2,kec)
+! --------------------------------------------------------------
+! **** *ecartdj* Ecart en jours entre deux dates.
+! --------------------------------------------------------------
+! Sujet:
+! Arguments explicites:
+! Arguments implicites:
+! Methode:
+! Externes:
+! Auteur:   97-11, J.M. Piriou.
+! Modifications:
+! --------------------------------------------------------------
+! En entree:
+! k1 date de depart au format AAAAMMQQ.
+! k2 date d'arrivee au format AAAAMMQQ.
+! En sortie:
+! kec: nombre de jours entre les deux dates.
+! --------------------------------------------------------------
+! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+! ATTENTION A LA PRECISION:
+! Cette routine est utilisable avec des entiers 32 bits,
+! si l'ecart entre les deux dates est inferieur a 2**31 jours,
+! soit 5879489 ans!...
+!
+! Au-dela de cette duree, les entiers doivent etre 64 bits.
+! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+!
+! -------------------------------------------------
+! Ecart entre les deux dates au jour pres.
+! -------------------------------------------------
+!
+
+
+IMPLICIT NONE
+INTEGER(KIND=4) :: K1
+INTEGER(KIND=4) :: K2
+INTEGER(KIND=4) :: KEC
+call ecartd(k1,k2,1,kec)
+end
+subroutine ecartds(cd1,cd2,kec)
+! --------------------------------------------------------------
+! **** *ecartds* Ecart en secondes entre deux dates.
+! --------------------------------------------------------------
+! Sujet:
+! Arguments explicites:
+! Arguments implicites:
+! Methode:
+! Externes:
+! Auteur:   97-11, J.M. Piriou.
+! Modifications:
+! --------------------------------------------------------------
+! En entree:
+! cd1 date de depart au format 'AAAAMMQQHHNNSS'.
+! cd2 date d'arrivee au format 'AAAAMMQQHHNNSS'.
+! En sortie:
+! kec: nombre de secondes entre les deux dates.
+! --------------------------------------------------------------
+! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+! ATTENTION A LA PRECISION:
+! Cette routine est utilisable avec des entiers 32 bits,
+! si l'ecart entre les deux dates est inferieur a 2**31 secondes,
+! soit 68 ans!...
+!
+! Au-dela de cette duree, les entiers doivent etre 64 bits.
+! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+
+
+IMPLICIT NONE
+INTEGER(KIND=4) :: IAMQ1
+INTEGER(KIND=4) :: IAMQ2
+INTEGER(KIND=4) :: IH1
+INTEGER(KIND=4) :: IH2
+INTEGER(KIND=4) :: IM1
+INTEGER(KIND=4) :: IM2
+INTEGER(KIND=4) :: IS1
+INTEGER(KIND=4) :: IS2
+INTEGER(KIND=4) :: KEC
+INTEGER(KIND=4) :: KECQ
+character*(*) cd1,cd2
+!
+! -------------------------------------------------
+! On lit les dates sur des entiers.
+! -------------------------------------------------
+!
+read(cd1,fmt='(i8,3i2)') iamq1,ih1,im1,is1
+read(cd2,fmt='(i8,3i2)') iamq2,ih2,im2,is2
+!
+! -------------------------------------------------
+! Ecart entre les deux dates au jour pres.
+! -------------------------------------------------
+!
+call ecartd(iamq1,iamq2,1,kecq)
+!
+! -------------------------------------------------
+! Ecart en secondes.
+! -------------------------------------------------
+!
+kec=kecq*86400+(ih2-ih1)*3600+(im2-im1)*60+is2-is1
+end
+subroutine gregod(kdat,kopt,kgre)
+! --------------------------------------------------------------------------
+! **** *GREGOD *  - Conversion Date > Ecart par rapport a une date fixe.
+! --------------------------------------------------------------------------
+! Auteur:
+! -------
+! 92-05-27, J.M. Piriou.
+!
+! Modifications:
+! --------------
+!
+! --------------------------------------------------------------------------
+! En entree: kopt option de precision sur les dates:
+! 1 : au jour pres
+! 2 : a l'heure pres
+! 3 : a la minute pres
+! 4 : a la seconde pres
+! - si kopt=1 : kdat au format AAAAMMQQ
+! - si kopt=2 : kdat au format AAAAMMQQHH
+! - si kopt=3 : kdat au format AAAAMMQQHHMM
+! - si kopt=4 : kdat au format AAAAMMQQHHMMSS
+! En sortie:
+! - si kopt=1 : kgre nombre de jours    entre 19000101       et kdat
+! - si kopt=2 : kgre nombre d'heures    entre 1900010100     et kdat
+! - si kopt=3 : kgre nombre de minutes  entre 190001010000   et kdat
+! - si kopt=4 : kgre nombre de secondes entre 19000101000000 et kdat
+! --------------------------------------------------------------------------
+! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+! ATTENTION A LA PRECISION:
+! 1. Vous compilez les entiers sur 32 bits:
+! Vous devez alors vous limiter a kopt <= 2.
+! 2. Vous compilez les entiers sur 64 bits:
+! Vous pouvez utiliser toutes les valeurs de kopt.
+! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+
+
+IMPLICIT NONE
+INTEGER(KIND=4) :: idebm(12)
+INTEGER(KIND=4) :: I0
+INTEGER(KIND=4) :: IA100
+INTEGER(KIND=4) :: IA4
+INTEGER(KIND=4) :: IA400
+INTEGER(KIND=4) :: IAAAA
+INTEGER(KIND=4) :: IBISSEXT
+INTEGER(KIND=4) :: ICONV
+INTEGER(KIND=4) :: IFRJOUR
+INTEGER(KIND=4) :: II
+INTEGER(KIND=4) :: II1
+INTEGER(KIND=4) :: IJOURP
+INTEGER(KIND=4) :: IMM
+INTEGER(KIND=4) :: IN
+INTEGER(KIND=4) :: IN1
+INTEGER(KIND=4) :: IN2
+INTEGER(KIND=4) :: IQQ
+INTEGER(KIND=4) :: KDAT
+INTEGER(KIND=4) :: KGRE
+INTEGER(KIND=4) :: KOPT
+data idebm/0,31,59,90,120,151,181,212,243,273,304,334/
+!
+! --------------------------------------------------------------------------
+! **      1. Calcul du nb de jours separant ki2 du 1er janv 1900
+!
+! *       1.1 Extraction des quantieme, mois et annee
+if(kopt == 1) then
+  ! Date de type AAAAMMQQ
+  iconv=1
+  ifrjour=0
+  ii=kdat
+elseif(kopt == 2) then
+  ! Date de type AAAAMMQQHH
+  iconv=24
+  ifrjour=mod(kdat,100)
+  ii=kdat/100
+elseif(kopt == 3) then
+  ! Date de type AAAAMMQQHHMM
+  iconv=1440
+  ifrjour=mod(kdat,100)
+  ii=kdat/100
+  ifrjour=ifrjour+mod(ii,100)*60
+  ii=ii/100
+elseif(kopt == 4) then
+  ! Date de type AAAAMMQQHHMMSS
+  iconv=86400
+  ifrjour=mod(kdat,100)
+  ii=kdat/100
+  ifrjour=ifrjour+mod(ii,100)*60
+  ii=ii/100
+  ifrjour=ifrjour+mod(ii,100)*3600
+  ii=ii/100
+else
+  ! Cas d'entree erronee de l'utilisateur.
+  print*,'GREGODR/ERREUR: argument kopt errone!...'
+  print*,kopt
+  stop 'call abort'
+endif
+iqq=ii-(ii/100)*100
+in=(ii-iqq)/100
+imm=in-(in/100)*100
+iaaaa=(in-imm)/100
+! *       1.2 L'annee est-elle bissextile?
+! Une annee est bissextile ssi elle est
+! (mult de 4 et non mult de 100) ou (mult de 400)
+iaaaa=iaaaa
+ia400=400*(iaaaa/400)
+ia100=100*(iaaaa/100)
+ia4=4*(iaaaa/4)
+if((iaaaa == ia400).or.((iaaaa == ia4).and.(iaaaa /= ia100)))then
+  ibissext=1
+else
+  ibissext=0
+endif
+if ((ibissext == 1).and.(imm > 2)) then
+  ijourp=1
+else
+  ijourp=0
+endif
+! *       1.3 Nombre de jours ecoules depuis le 1er janv
+if(imm > 12) then
+  print*,'GREGODR/ERREUR: mois errone.'
+  print*,imm
+  stop 'call abort'
+endif
+in2=idebm(imm)+ijourp+iqq-1
+! *       1.4 Calcul du nb de jours separant les 1er janvier de ii et 1900
+i0=1900
+in2=in2+365*(iaaaa-i0)+int((iaaaa-1)/4)-int((i0-1)/4)&
+&-int((iaaaa-1)/100)+int((i0-1)/100)&
+&+int((iaaaa-1)/400)-int((i0-1)/400)
+! --------------------------------------------------------------------------
+! **      2. Calcul du nb de jours separant ii1 du 1er janv 1900
+!
+! *       2.1 Extraction des quantieme, mois et annee
+ii1=19000101
+ii=ii1
+iqq=ii-(ii/100)*100
+in=(ii-iqq)/100
+imm=in-(in/100)*100
+iaaaa=(in-imm)/100
+! *       2.2 L'annee est-elle bissextile?
+! Une annee est bissextile ssi elle est
+! (mult de 4 et non mult de 100) ou (mult de 400)
+iaaaa=iaaaa
+ia400=400*(iaaaa/400)
+ia100=100*(iaaaa/100)
+ia4=4*(iaaaa/4)
+if((iaaaa == ia400).or.((iaaaa == ia4).and.(iaaaa /= ia100)))then
+  ibissext=1
+else
+  ibissext=0
+endif
+if ((ibissext == 1).and.(imm > 2)) then
+  ijourp=1
+else
+  ijourp=0
+endif
+! *       2.3 Nombre de jours ecoules depuis le 1er janv
+in1=idebm(imm)+ijourp+iqq-1
+! *       2.4 Calcul du nb de jours separant les 1er janvier de ii et 1900
+i0=1900
+in1=in1+365*(iaaaa-i0)+int((iaaaa-1)/4)-int((i0-1)/4)&
+&-int((iaaaa-1)/100)+int((i0-1)/100)&
+&+int((iaaaa-1)/400)-int((i0-1)/400)
+! --------------------------------------------------------------------------
+! **      3. Difference in2-in1
+kgre=(in2-in1)*iconv+ifrjour
+end
+subroutine gregoi(kgre,kopt,kdat)
+! --------------------------------------------------------------------------
+! **** *GREGOI *  - Conversion Ecart par rapport a une date fixe > Date.
+! --------------------------------------------------------------------------
+! Auteur:
+! -------
+! 92-05-27, J.M. Piriou.
+!
+! Modifications:
+! --------------
+!
+! --------------------------------------------------------------------------
+! En entree: kopt option de precision sur les dates:
+! 1 : au jour pres
+! 2 : a l'heure pres
+! 3 : a la minute pres
+! 4 : a la seconde pres
+! - si kopt=1 : kgre nombre de jours    entre 19000101       et kdat
+! - si kopt=2 : kgre nombre d'heures    entre 1900010100     et kdat
+! - si kopt=3 : kgre nombre de minutes  entre 190001010000   et kdat
+! - si kopt=4 : kgre nombre de secondes entre 19000101000000 et kdat
+! En sortie:
+! - si kopt=1 : kdat au format AAAAMMQQ
+! - si kopt=2 : kdat au format AAAAMMQQHH
+! - si kopt=3 : kdat au format AAAAMMQQHHMM
+! - si kopt=4 : kdat au format AAAAMMQQHHMMSS
+! --------------------------------------------------------------------------
+! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+! ATTENTION A LA PRECISION:
+! 1. Vous compilez les entiers sur 32 bits:
+! Vous devez alors vous limiter a kopt <= 2.
+! 2. Vous compilez les entiers sur 64 bits:
+! Vous pouvez utiliser toutes les valeurs de kopt.
+! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+
+
+IMPLICIT NONE
+INTEGER(KIND=4) :: ijours(12)
+INTEGER(KIND=4) :: IA100
+INTEGER(KIND=4) :: IA4
+INTEGER(KIND=4) :: IA400
+INTEGER(KIND=4) :: IAAAA
+INTEGER(KIND=4) :: IBISSEXT
+INTEGER(KIND=4) :: ICONV
+INTEGER(KIND=4) :: IDAT
+INTEGER(KIND=4) :: IEC
+INTEGER(KIND=4) :: IECI
+INTEGER(KIND=4) :: IGII2P
+INTEGER(KIND=4) :: II2P
+INTEGER(KIND=4) :: IMM
+INTEGER(KIND=4) :: IMOD
+INTEGER(KIND=4) :: IQQ
+INTEGER(KIND=4) :: KDAT
+INTEGER(KIND=4) :: KGRE
+INTEGER(KIND=4) :: KOPT
+REAL(KIND=8) :: ZARRDEC
+data ijours/31,28,31,30,31,30,31,31,30,31,30,31/
+! --------------------------------------------------------------------------
+! **   On determine la date approximative d'arrivee en annees decimales
+!
+if(kopt == 1) then
+  ! Date de type AAAAMMQQ
+  iconv=1
+elseif(kopt == 2) then
+  ! Date de type AAAAMMQQHH
+  iconv=24
+elseif(kopt == 3) then
+  ! Date de type AAAAMMQQHHMM
+  iconv=1440
+elseif(kopt == 4) then
+  ! Date de type AAAAMMQQHHMMSS
+  iconv=86400
+else
+  ! Cas d'entree erronee de l'utilisateur.
+  print*,'GREGOI/ERREUR: argument kopt errone!...'
+  print*,kopt
+  stop 'call abort'
+endif
+zarrdec=1900.+(real(kgre)/real(iconv)-5.)/365.2425
+! --------------------------------------------------------------------------
+! **   On determine la date en clair ii2p associee a la date decimale
+!
+iaaaa=int(zarrdec)
+zarrdec=12.*(zarrdec-real(iaaaa))
+imm=int(zarrdec)+1
+zarrdec=28.*(zarrdec-real(imm-1))
+iqq=int(zarrdec)+1
+ii2p=iqq+imm*100+iaaaa*10000
+! --------------------------------------------------------------------------
+! **   On calcule le nombre de jours separant 19000101 de ii2p
+!
+call gregod(ii2p,1,igii2p)
+imod=mod(kgre,iconv)
+if(imod < 0) imod=imod+iconv
+iec=(kgre-imod)/iconv-igii2p
+! --------------------------------------------------------------------------
+! **   On avance de iec jours par rapport a ii2p
+!
+! *       L'annee est-elle bissextile?
+! Une annee est bissextile ssi elle est
+! (mult de 4 et non mult de 100) ou (mult de 400)
+iaaaa=iaaaa
+ia400=400*(iaaaa/400)
+ia100=100*(iaaaa/100)
+ia4=4*(iaaaa/4)
+if((iaaaa == ia400).or.((iaaaa == ia4).and.(iaaaa /= ia100)))then
+  ibissext=1
+else
+  ibissext=0
+endif
+! Si oui, 29 jours en fevrier
+if(ibissext == 1) ijours(2)=29
+! *       Boucle sur les jours
+do ieci=1,iec
+  iqq=iqq+1
+  if(iqq > ijours(imm)) then
+    iqq=1
+    imm=imm+1
+  endif
+  if(imm > 12) then
+    imm=1
+    iaaaa=iaaaa+1
+  endif
+enddo
+! --------------------------------------------------------------------------
+! **   On met en forme la date finale
+!
+idat=iqq+imm*100+iaaaa*10000
+if(kopt == 2) then
+  imod=mod(kgre,iconv)
+  if(imod < 0) imod=imod+iconv
+  idat=idat*100+imod
+elseif(kopt == 3) then
+  imod=mod(kgre,iconv)
+  if(imod < 0) imod=imod+iconv
+  idat=idat*100+imod/60
+  imod=mod(imod,60)
+  idat=idat*100+imod
+elseif(kopt == 4) then
+  imod=mod(kgre,iconv)
+  if(imod < 0) imod=imod+iconv
+  idat=idat*100+imod/3600
+  imod=mod(imod,3600)
+  idat=idat*100+imod/60
+  imod=mod(imod,60)
+  idat=idat*100+imod
+endif
+kdat=idat
+end
+function ijoursem(kdat)
+! --------------------------------------------------------------------------
+! **** *IJOURSEM* Jour de la semaine de la date d'entree.
+! --------------------------------------------------------------------------
+! Auteur:
+! -------
+! 94-10-31, J.M. Piriou.
+!
+! Modifications:
+! --------------
+!
+! --------------------------------------------------------------------------
+! En entree:
+! kdat1 au format AAAAMMQQ
+! En sortie:
+! ijour=0 si dimanche, 1 lundi, ..., 6 samedi.
+! --------------------------------------------------------------------------
+
+
+IMPLICIT NONE
+INTEGER(KIND=4) :: IDATDIM
+INTEGER(KIND=4) :: IECART
+INTEGER(KIND=4) :: IGRE
+INTEGER(KIND=4) :: IGREDIM
+INTEGER(KIND=4) :: KDAT
+INTEGER(KIND=4) :: ijoursem
+call gregod(kdat,1,igre)
+idatdim=19941030 ! cette date etait un dimanche.
+call gregod(idatdim,1,igredim)
+iecart=igre-igredim
+ijoursem=modulo(iecart,7)
+end
+subroutine qqmmaa(kdatd,cdresd)
+! --------------------------------------------------------------------------
+! **** *QQMMAA *  - Conversion d'un entier type AAAAQQMM vers une date en clair.
+! --------------------------------------------------------------------------
+! Auteur:
+! -------
+! 92-05-27, J.M. Piriou.
+!
+! Modifications:
+! --------------
+!
+! --------------------------------------------------------------------------
+
+
+IMPLICIT NONE
+INTEGER(KIND=4) :: IAN
+INTEGER(KIND=4) :: IGRE
+INTEGER(KIND=4) :: ILOC
+INTEGER(KIND=4) :: IMM
+INTEGER(KIND=4) :: IQQ
+INTEGER(KIND=4) :: KDATD
+character*(*) cdresd
+character*03 cljour
+iqq=mod(kdatd,100)
+iloc=kdatd/100
+imm=mod(iloc,100)
+ian=iloc/100
+call gregod(kdatd,1,igre)
+igre=mod(igre,7)
+if(igre == 0) then
+  cljour='Lun'
+elseif(igre == 1) then
+  cljour='Mar'
+elseif(igre == 2) then
+  cljour='Mer'
+elseif(igre == 3) then
+  cljour='Jeu'
+elseif(igre == 4) then
+  cljour='Ven'
+elseif(igre == 5) then
+  cljour='Sam'
+elseif(igre == 6) then
+  cljour='Dim'
+endif
+write(cdresd,fmt='(a3,a1,i2,a1,i2.2,a1,i4.4)')&
+&cljour,' ',iqq,'.',imm,'.',ian
+end
+subroutine quant(kdate,kquant)
+! --------------------------------------------------------------
+! **** *quant* Quantieme de l'annee d'une date donnee.
+! --------------------------------------------------------------
+! Sujet:
+! Arguments explicites:
+! Arguments implicites:
+! Methode:
+! Externes:
+! Auteur:   1999-04, J.M. Piriou.
+! Modifications:
+! --------------------------------------------------------------
+! En entree:
+! kdate date au format AAAAMMQQ.
+! En sortie:
+! quantieme de l'annee (1 le 1er janvier, 32 le 1er fevrier, etc...)
+! --------------------------------------------------------------
+
+
+IMPLICIT NONE
+INTEGER(KIND=4) :: IBASE
+INTEGER(KIND=4) :: IEC
+INTEGER(KIND=4) :: KDATE
+INTEGER(KIND=4) :: KQUANT
+ibase=10000*(kdate/10000)+0101 ! 1er janvier de l'annee courante.
+call ecartdj(ibase,kdate,iec)
+kquant=iec+1
+end
Index: LMDZ5/trunk/libf/phylmd/rrtm/dump2ds.F
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/dump2ds.F	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/dump2ds.F	(revision 1989)
@@ -0,0 +1,113 @@
+      SUBROUTINE dump2ds(im,jm,z,nom_z)
+C Copyright (C) 2005 Centre National de la Recherche Scientifique
+c ==================================================================
+c Perform a scatter plot print of big matrices using regular
+c intervals between min and max matrix coefficient values.
+c ==================================================================
+c adapted from LMD3 by Alain Lahellec and retranscipted for LMDZ5
+c NAN et INF ajoute aux plots                           Pat fin 2006
+c ==================================================================
+c Comme dump2d sauf que le signe est préservé, la valeur zero
+c identifiee par un blanc.
+c detection des Infty (= ou -) et NaN (?)
+c ==================================================================
+      IMPLICIT NONE
+      INTEGER im,jm
+      REAL z(im,jm),az
+      CHARACTER*32 jform,jline*1000
+      CHARACTER*1 iform(32)
+      CHARACTER*16 F1000
+      logical zinf,znan,zsign
+      CHARACTER (len=*) :: nom_z
+      INTEGER*4 icheck(2)
+      EQUIVALENCE(az,icheck)
+      EQUIVALENCE(iform,jform)
+      DATA jform/'-@zyxwvutsrqpon NOPQRSTUVWXYZ*+?'/
+      INTEGER i,j,k,imin,imax,jmin,jmax,kzero,kchar(im)
+      REAL zmin,zmax,zllu,zllm
+      write(F1000,'(''(4x,'',I3,''(1H-))'')')im+3
+      DO 10001 i=1,200
+      jline(1+(i-1)*5:5*i)='.    '
+10001 CONTINUE
+10002 zmin=z(1,1)
+      imin=1
+      jmin=1
+      zmax=z(1,1)
+      imax=1
+      jmax=1
+      kzero=0
+      DO 10003 j=1,jm
+      DO 10005 i=1,im
+      IF(.NOT.( z(i,j).GT.zmax))GOTO 10007
+      zmax=z(i,j)
+      imax=i
+      jmax=j
+10007 IF(.NOT.( z(i,j).LT.zmin))GOTO 10009
+      zmin=z(i,j)
+      imin=i
+      jmin=j
+10009 IF(.NOT.( z(i,j).eq.0.))GOTO 10011
+      kzero=kzero+1
+10011 CONTINUE
+10005 CONTINUE
+10006 CONTINUE
+10003 CONTINUE
+10004 zsign=(sign(1.,zmin)*sign(1.,zmax).gt.0.)
+      WRITE(*,*)'>>> dump2ds: ',trim(nom_z)
+      PRINT*,'>>>  ',kzero,' zero values  <<<'
+      IF(.NOT.( ZMin.lt.0.))GOTO 10013
+      PRINT2000,' [MIN:',zmin,'(',imin,',',jmin,') (-@zyxwvutsrqpon NOPQ
+     *RSTUVWXYZ*+) ',zmax,'(',imax,',',jmax,'):MAX]'
+      GOTO 10014
+10013 PRINT2000,' [MIN:',zmin,'(',imin,',',jmin,') ( NOPQRSTUVWXYZ*+) ',
+     *zmax,'(',imax,',',jmax,'):MAX]'
+10014 CONTINUE
+2000  Format(a,1pg11.4,a1,i3,a1,i3,a,1pg11.4,a1,i3,a1,i3,a)
+      IF(.NOT.( zmax.GT.zmin))GOTO 10015
+      zllm=max(abs(zmax),abs(zmin))
+      zllu=min(abs(zmax),abs(zmin))
+      if(im.ge.100)WRITE(*,'(104x,900i1)')(mod(i/100,10),i=100,im)
+      WRITE(*,'(14x,1000i1)')(mod(i/10,10),i=10,im)
+      WRITE(*,'(5x,1009i1)')(mod(i,10),i=1,im)
+      write(*,F1000)
+      zinf=.false.
+      znan=.false.
+      DO 10017 j=1,jm
+      DO 10019 i=1,im
+      az=abs(z(i,j))
+      IF(.NOT.( az.eq.0.))GOTO 10021
+      kchar(i)=16
+      GOTO 10022
+10021 IF(.NOT.((az.ne.0.and.icheck(1).eq.0.and.icheck(2).eq.2146435072))
+     *)GOTO 10023
+      kchar(i)=31
+      zinf=.true.
+      GOTO 10022
+10023 IF(.NOT.((az.ne.0.and.icheck(1).eq.0.and.icheck(2).eq.2146959360))
+     *)GOTO 10024
+      kchar(i)=32
+      znan=.true.
+      GOTO 10022
+10024 IF(.NOT.( zsign))GOTO 10025
+      kchar(i)=NINT(13.*(az-zllu)/(zllm-zllu)+17)
+      GOTO 10026
+10025 kchar(i)=NINT(13.*az/zllm+17)
+10026 CONTINUE
+10022 IF(.NOT.( z(i,j).lt.0.))GOTO 10027
+      kchar(i)=32-kchar(i)
+10027 CONTINUE
+10019 CONTINUE
+10020 WRITE(*,'(1x,i3,''|'',1000a)')j+1,(iform(kchar(i)),i=1,im),'|','| 
+     *'
+10017 CONTINUE
+10018 write(*,F1000)
+      WRITE(*,'(5x,1000i1)')(mod(i,10),i=1,im)
+      WRITE(*,'(14x,1000i1)')(mod(i/10,10),i=10,im)
+      if(im.ge.100)WRITE(*,'(104x,900i1)')(mod(i/100,10),i=100,im)
+      GOTO 10016
+10015 print*,'>>> ZERO MAP  <<<'
+10016 if(zinf)print*,' *** Infty value(s) (+ or -) in map ***'
+      if(znan)print*,' *** NaN value(s) (?) in map ***'
+      print*
+      RETURN
+      END
Index: LMDZ5/trunk/libf/phylmd/rrtm/eq_regions_mod.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/eq_regions_mod.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/eq_regions_mod.F90	(revision 1989)
@@ -0,0 +1,363 @@
+module eq_regions_mod
+!
+!     Purpose.
+!     --------
+!           eq_regions_mod provides the code to perform a high level 
+!           partitioning of the surface of a sphere into regions of
+!           equal area and small diameter.
+!           the type.
+!
+!     Background.
+!     -----------
+!     This Fortran version of eq_regions is a much cut down version of the 
+!     "Recursive Zonal Equal Area (EQ) Sphere Partitioning Toolbox" of the
+!     same name developed by Paul Leopardi at the University of New South Wales. 
+!     This version has been coded specifically for the case of partitioning the 
+!     surface of a sphere or S^dim (where dim=2) as denoted in the original code.
+!     Only a subset of the original eq_regions package has been coded to determine 
+!     the high level distribution of regions on a sphere, as the detailed 
+!     distribution of grid points to each region is left to IFS software.
+!     This is required to take into account the spatial distribution of grid 
+!     points in an IFS gaussian grid and provide an optimal (i.e. exact) 
+!     distribution of grid points over regions.
+!
+!     The following copyright notice for the eq_regions package is included from 
+!     the original MatLab release.
+!
+!     +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+!     + Release 1.10 2005-06-26                                                 +
+!     +                                                                         +
+!     + Copyright (c) 2004, 2005, University of New South Wales                 +
+!     +                                                                         +
+!     + Permission is hereby granted, free of charge, to any person obtaining   +
+!     + a copy of this software and associated documentation files (the         +
+!     + "Software"), to deal in the Software without restriction, including     +
+!     + without limitation the rights to use, copy, modify, merge, publish,     +
+!     + distribute, sublicense, and/or sell copies of the Software, and to      +
+!     + permit persons to whom the Software is furnished to do so, subject to   +
+!     + the following conditions:                                               +
+!     +                                                                         +
+!     + The above copyright notice and this permission notice shall be included +
+!     + in all copies or substantial portions of the Software.                  +
+!     +                                                                         +
+!     + THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,         +
+!     + EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF      +
+!     + MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  +
+!     + IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY    +
+!     + CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,    +
+!     + TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE       +
+!     + SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.                  +
+!     +                                                                         +
+!     +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
+!
+!     Author.
+!     -------
+!        George Mozdzynski *ECMWF*
+!
+!     Modifications.
+!     --------------
+!        Original : 2006-04-15
+!
+!--------------------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+PRIVATE
+
+PUBLIC eq_regions,l_regions_debug,n_regions_ns,n_regions_ew,n_regions,my_region_ns,my_region_ew
+
+real(kind=jprb) pi
+logical :: l_regions_debug=.false.
+integer(kind=jpim) :: n_regions_ns
+integer(kind=jpim) :: n_regions_ew
+integer(kind=jpim) :: my_region_ns
+integer(kind=jpim) :: my_region_ew
+integer(kind=jpim),allocatable :: n_regions(:)
+
+CONTAINS
+
+subroutine eq_regions(N)
+!
+! eq_regions uses the zonal equal area sphere partitioning algorithm to partition
+! the surface of a sphere into N regions of equal area and small diameter.
+!
+integer(kind=jpim),intent(in) :: N
+integer(kind=jpim) :: n_collars,j
+real(kind=jprb),allocatable :: r_regions(:)
+real(kind=jprb) :: c_polar
+
+pi=2.0_jprb*asin(1.0_jprb)
+
+n_regions(:)=0
+
+if( N == 1 )then
+
+  !
+  ! We have only one region, which must be the whole sphere.
+  !
+  n_regions(1)=1
+  n_regions_ns=1
+
+else
+
+  !
+  ! Given N, determine c_polar
+  ! the colatitude of the North polar spherical cap.
+  !
+  c_polar = polar_colat(N)
+  !
+  ! Given N, determine the ideal angle for spherical collars.
+  ! Based on N, this ideal angle, and c_polar,
+  ! determine n_collars, the number of collars between the polar caps.
+  !
+  n_collars = num_collars(N,c_polar,ideal_collar_angle(N))
+  n_regions_ns=n_collars+2
+  !
+  ! Given N, c_polar and n_collars, determine r_regions,
+  ! a list of the ideal real number of regions in each collar,
+  ! plus the polar caps.
+  ! The number of elements is n_collars+2.
+  ! r_regions[1] is 1.
+  ! r_regions[n_collars+2] is 1.
+  ! The sum of r_regions is N.
+  allocate(r_regions(n_collars+2))
+  call ideal_region_list(N,c_polar,n_collars,r_regions)
+  !
+  ! Given N and r_regions, determine n_regions, a list of the natural number 
+  ! of regions in each collar and the polar caps.
+  ! This list is as close as possible to r_regions.
+  ! The number of elements is n_collars+2.
+  ! n_regions[1] is 1.
+  ! n_regions[n_collars+2] is 1.
+  ! The sum of n_regions is N.
+  !
+  call round_to_naturals(N,n_collars,r_regions)
+  deallocate(r_regions)
+  if( N /= sum(n_regions(:)) )then
+    write(*,'("eq_regions: N=",I10," sum(n_regions(:))=",I10)')N,sum(n_regions(:))
+    call abor1('eq_regions: N /= sum(n_regions)')
+  endif
+
+endif
+
+if( l_regions_debug )then
+  write(*,'("eq_regions: N=",I6," n_regions_ns=",I4)') N,n_regions_ns
+  do j=1,n_regions_ns
+    write(*,'("eq_regions: n_regions(",I4,")=",I4)') j,n_regions(j)
+  enddo
+endif
+n_regions_ew=maxval(n_regions(:))
+
+return
+end subroutine eq_regions
+
+function num_collars(N,c_polar,a_ideal) result(num_c)
+!
+!NUM_COLLARS The number of collars between the polar caps
+!
+! Given N, an ideal angle, and c_polar,
+! determine n_collars, the number of collars between the polar caps.
+!
+integer(kind=jpim),intent(in) :: N
+real(kind=jprb),intent(in) :: a_ideal,c_polar
+integer(kind=jpim) :: num_c
+logical enough
+enough = (N > 2) .and. (a_ideal > 0)
+if( enough )then
+  num_c = max(1,nint((pi-2.*c_polar)/a_ideal))
+else
+  num_c = 0
+endif
+return
+end function num_collars
+
+subroutine ideal_region_list(N,c_polar,n_collars,r_regions)
+!
+!IDEAL_REGION_LIST The ideal real number of regions in each zone
+!
+! List the ideal real number of regions in each collar, plus the polar caps.
+!
+! Given N, c_polar and n_collars, determine r_regions, a list of the ideal real 
+! number of regions in each collar, plus the polar caps.
+! The number of elements is n_collars+2.
+! r_regions[1] is 1.
+! r_regions[n_collars+2] is 1.
+! The sum of r_regions is N.
+!
+integer(kind=jpim),intent(in) :: N,n_collars
+real(kind=jprb),intent(in) :: c_polar
+real(kind=jprb),intent(out) :: r_regions(n_collars+2)
+integer(kind=jpim) :: collar_n
+real(kind=jprb) :: ideal_region_area,ideal_collar_area
+real(kind=jprb) :: a_fitting
+r_regions(:)=0.0_jprb
+r_regions(1) = 1.0_jprb
+if( n_collars > 0 )then
+  !
+  ! Based on n_collars and c_polar, determine a_fitting,
+  ! the collar angle such that n_collars collars fit between the polar caps.
+  !
+  a_fitting = (pi-2.0_jprb*c_polar)/float(n_collars)
+  ideal_region_area = area_of_ideal_region(N)
+  do collar_n=1,n_collars
+    ideal_collar_area = area_of_collar(c_polar+(collar_n-1)*a_fitting, &
+     & c_polar+collar_n*a_fitting)
+    r_regions(1+collar_n) = ideal_collar_area / ideal_region_area
+  enddo
+endif
+r_regions(2+n_collars) = 1.
+return
+end subroutine ideal_region_list
+
+function ideal_collar_angle(N) result(ideal)
+!
+! IDEAL_COLLAR_ANGLE The ideal angle for spherical collars of an EQ partition
+!
+! IDEAL_COLLAR_ANGLE(N) sets ANGLE to the ideal angle for the
+! spherical collars of an EQ partition of the unit sphere S^2 into N regions.
+!
+integer(kind=jpim),intent(in) :: N
+real(kind=jprb) :: ideal
+ideal = area_of_ideal_region(N)**(0.5_jprb)
+return
+end function ideal_collar_angle
+
+subroutine round_to_naturals(N,n_collars,r_regions)
+!
+! ROUND_TO_NATURALS Round off a given list of numbers of regions
+!
+! Given N and r_regions, determine n_regions, a list of the natural number 
+! of regions in each collar and the polar caps.
+! This list is as close as possible to r_regions, using rounding.
+! The number of elements is n_collars+2.
+! n_regions[1] is 1.
+! n_regions[n_collars+2] is 1.
+! The sum of n_regions is N.
+!
+integer(kind=jpim),intent(in) :: N,n_collars
+real(kind=jprb),intent(in) :: r_regions(n_collars+2)
+integer(kind=jpim) :: zone_n
+real(kind=jprb) :: discrepancy
+n_regions(1:n_collars+2) = r_regions(:)
+discrepancy = 0.0_jprb
+do zone_n = 1,n_collars+2
+    n_regions(zone_n) = nint(r_regions(zone_n)+discrepancy);
+    discrepancy = discrepancy+r_regions(zone_n)-float(n_regions(zone_n));
+enddo
+return
+end subroutine round_to_naturals
+
+function polar_colat(N) result(polar_c)
+!
+! Given N, determine the colatitude of the North polar spherical cap.
+!
+integer(kind=jpim),intent(in) :: N
+real(kind=jprb) :: area
+real(kind=jprb) :: polar_c
+if( N == 1 ) polar_c=pi
+if( N == 2 ) polar_c=pi/2.0_jprb
+if( N > 2 )then
+  area=area_of_ideal_region(N)
+  polar_c=sradius_of_cap(area)
+endif
+return
+end function polar_colat
+
+function area_of_ideal_region(N) result(area)
+!
+! AREA_OF_IDEAL_REGION(N) sets AREA to be the area of one of N equal
+! area regions on S^2, that is 1/N times AREA_OF_SPHERE.
+!
+integer(kind=jpim),intent(in) :: N
+real(kind=jprb) :: area_of_sphere
+real(kind=jprb) :: area
+area_of_sphere = (2.0_jprb*pi**1.5_jprb/gamma(1.5_jprb))
+area = area_of_sphere/float(N)
+return
+end function area_of_ideal_region
+
+function sradius_of_cap(area) result(sradius)
+!
+! SRADIUS_OF_CAP(AREA) returns the spherical radius of
+! an S^2 spherical cap of area AREA.
+!
+real(kind=jprb),intent(in) :: area
+real(kind=jprb) :: sradius
+sradius = 2.0_jprb*asin(sqrt(area/pi)/2.0_jprb)
+return
+end function sradius_of_cap
+
+function area_of_collar(a_top, a_bot) result(area)
+!
+! AREA_OF_COLLAR Area of spherical collar
+!
+! AREA_OF_COLLAR(A_TOP, A_BOT) sets AREA to be the area of an S^2 spherical 
+! collar specified by A_TOP, A_BOT, where A_TOP is top (smaller) spherical radius,
+! A_BOT is bottom (larger) spherical radius.
+!
+real(kind=jprb),intent(in) :: a_top,a_bot
+real(kind=jprb) area
+area = area_of_cap(a_bot) - area_of_cap(a_top)
+return
+end function area_of_collar
+
+function area_of_cap(s_cap) result(area)
+!
+! AREA_OF_CAP Area of spherical cap
+!
+! AREA_OF_CAP(S_CAP) sets AREA to be the area of an S^2 spherical
+! cap of spherical radius S_CAP.
+!
+real(kind=jprb),intent(in) :: s_cap
+real(kind=jprb) area
+area = 4.0_jprb*pi * sin(s_cap/2.0_jprb)**2
+return
+end function area_of_cap
+
+function gamma(x) result(gamma_res)
+real(kind=jprb),intent(in) :: x
+real(kind=jprb) :: gamma_res
+real(kind=jprb) :: p0,p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11,p12,p13
+real(kind=jprb) :: w,y
+integer(kind=jpim) :: k,n
+parameter (&
+& p0 =   0.999999999999999990e+00_jprb,&
+& p1 =  -0.422784335098466784e+00_jprb,&
+& p2 =  -0.233093736421782878e+00_jprb,&
+& p3 =   0.191091101387638410e+00_jprb,&
+& p4 =  -0.024552490005641278e+00_jprb,&
+& p5 =  -0.017645244547851414e+00_jprb,&
+& p6 =   0.008023273027855346e+00_jprb)
+parameter (&
+& p7 =  -0.000804329819255744e+00_jprb,&
+& p8 =  -0.000360837876648255e+00_jprb,&
+& p9 =   0.000145596568617526e+00_jprb,&
+& p10 = -0.000017545539395205e+00_jprb,&
+& p11 = -0.000002591225267689e+00_jprb,&
+& p12 =  0.000001337767384067e+00_jprb,&
+& p13 = -0.000000199542863674e+00_jprb)
+n = nint(x - 2)
+w = x - (n + 2)
+y = ((((((((((((p13 * w + p12) * w + p11) * w + p10) *&
+&    w + p9) * w + p8) * w + p7) * w + p6) * w + p5) *&
+&    w + p4) * w + p3) * w + p2) * w + p1) * w + p0
+if (n .gt. 0) then
+  w = x - 1
+  do k = 2, n
+    w = w * (x - k)
+  end do
+else
+  w = 1
+  do k = 0, -n - 1
+    y = y * (x + k)
+  end do
+end if
+gamma_res = w / y
+return
+end function gamma
+
+end module eq_regions_mod
Index: LMDZ5/trunk/libf/phylmd/rrtm/fctast.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/fctast.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/fctast.h	(revision 1989)
@@ -0,0 +1,29 @@
+!      -----------------------------------------------------------
+
+! - Astronomical functions
+! you will find the description in the annex 1 of the documentation
+! RRS is the distance Sun-Earth
+! RDS is the declination of the Earth
+! RET is the equation of time
+
+! Orbit of the earth
+
+REAL(KIND=JPRB) :: RTETA,REL,REM,RRS,RLLS,RLLLS,RDS,RET
+REAL(KIND=JPRB) :: PTIME,PTETA
+
+RTETA(PTIME)=PTIME/(RDAY*365.25_JPRB)
+REL(PTETA)=1.7535_JPRB+6.283076_JPRB*PTETA
+REM(PTETA)=6.240075_JPRB+6.283020_JPRB*PTETA
+RRS(PTETA)=REA*(1.0001_JPRB-0.0163_JPRB*SIN(REL(PTETA))&
+          &+0.0037_JPRB*COS(REL(PTETA)))
+! Relative movement Sun/Earth
+RLLS(PTETA)=4.8951_JPRB+6.283076_JPRB*PTETA
+RLLLS(PTETA)=4.8952_JPRB+6.283320_JPRB*PTETA-0.0075_JPRB*SIN(REL(PTETA))&
+         &-0.0326_JPRB*COS(REL(PTETA))-0.0003_JPRB*SIN(2.0_JPRB*REL(PTETA))&
+         &+0.0002_JPRB*COS(2.0_JPRB*REL(PTETA))
+RDS(PTETA)=ASIN(SIN(REPSM)*SIN(RLLLS(PTETA)))
+RET(PTETA)=591.8_JPRB*SIN(2.0_JPRB*RLLS(PTETA))-459.4_JPRB*SIN(REM(PTETA))&
+  &+39.5_JPRB*SIN(REM(PTETA))*COS(2.0_JPRB*RLLS(PTETA))&
+  &-12.7_JPRB*SIN(4._JPRB*RLLS(PTETA))-4.8_JPRB*SIN(2.0_JPRB*REM(PTETA))
+!    -------------------------------------------------------------
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/fcttim.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/fcttim.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/fcttim.h	(revision 1989)
@@ -0,0 +1,46 @@
+!     ------------------------------------------------------------------
+
+! - Time functions
+!   the descriptions are in the annex 1 of the documentation
+
+! TIME
+
+! NDD   : extraxt dd from ccaammdd
+! NMM   : extract mm from ccaammdd
+! NAA   : extract aa from ccaammdd
+! NCCAA : extract ccaa from ccaammdd
+! NAMD  : extract aammdd from ccaammdd
+! NCENT : return centuary of ccaammdd
+! NYEARC: returns year of the centuary from ccaammdd
+! NCONSTRUCT_DATE : returns ccaammdd given centuary,year,month and day
+! NCTH  : turn seconds into hours
+! RTIME : returns the time of the model (in seconds of course!)
+
+INTEGER(KIND=JPIM) :: NDD,NMM,NCCAA,NAA,NAMD,NCTH,NZZAA,NZZMM,NCENT,NYEARC,&
+&NCONSTRUCT_DATE
+REAL(KIND=JPRB) :: RJUDAT,RTIME
+INTEGER(KIND=JPIM) :: KGRDAT,KSEC,KAAAA,KMM,KDD,KSS
+INTEGER(KIND=JPIM) :: KCENT,KYEARC,KMONTH,KDAY
+
+NDD(KGRDAT)  =MOD(KGRDAT,100)
+NMM(KGRDAT)  =MOD((KGRDAT-NDD(KGRDAT))/100,100)
+NCCAA(KGRDAT)=KGRDAT/10000
+NAA(KGRDAT)=MOD(NCCAA(KGRDAT),100)
+NAMD(KGRDAT)=MOD(KGRDAT,1000000)
+NCTH(KSEC)=KSEC/3600
+NCENT(KGRDAT)=NCCAA(KGRDAT)/100+MIN(NAA(KGRDAT),1)
+NYEARC(KGRDAT)=NAA(KGRDAT)+100*(1-MIN(NAA(KGRDAT),1))
+NCONSTRUCT_DATE(KCENT,KYEARC,KMONTH,KDAY)=&
+&(KCENT-1)*10**6+KYEARC*10**4+KMONTH*10**2+KDAY
+
+NZZAA(KAAAA,KMM)=KAAAA-( (1-SIGN(1,KMM-3))/2 )
+NZZMM(KMM)=KMM+6*(1-SIGN(1,KMM-3))
+RJUDAT(KAAAA,KMM,KDD)=1720994.5_JPRB + REAL(&
+  &2-NZZAA(KAAAA,KMM)/100 + (NZZAA(KAAAA,KMM)/100)/4 &
+&+ INT(365.25_JPRB*REAL(NZZAA(KAAAA,KMM),JPRB))&
+&+ INT(30.601_JPRB*REAL(NZZMM(KMM)+1,JPRB))&
+&+ KDD,JPRB)
+RTIME(KAAAA,KMM,KDD,KSS)=(RJUDAT(KAAAA,KMM,KDD)-2451545._JPRB)&
+    &*RDAY+REAL(KSS,JPRB)
+!    -------------------------------------------------------------
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/fcttrm.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/fcttrm.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/fcttrm.h	(revision 1989)
@@ -0,0 +1,100 @@
+!*
+!     ------------------------------------------------------------------
+#ifdef DOC
+
+!     CE COMDECK CONTIENT DEUX GROUPES DE FONCTIONS THERMODYNAMIQUES :
+
+!        * LE PREMIER (RLV,RLS,RLF,ESW,ESS,ES) CORRESPOND A DES
+!     FONCTIONS ABSOLUES (OU INTRINSEQUES) QUI DOIVENT ETRE UTILISEES
+!     POUR TOUT CE QUI CONCERNE LE MONDE REEL (DONNEES OBSERVEES ET
+!     SORTIES DESTINEES A ETRE COMPAREES A DE TELLES DONNEES).
+
+!        * LE SECOND (FOEW,FODLEW,FOQS,FODQS,FOLH) CORRESPOND AU MONDE
+!     DE LA PHYSIQUE DU MODELE (ET PAR CONSEQUENT DE TOUTE LES PARTIES
+!     DU CODE QUI DOIVENT ETRE COMPATIBLES AVEC CETTE PHYSIQUE :
+!     ANALYSE/DYNAMIQUE/POST-PROCESSING ... ). LES DIFFERENCES ENTRE LES
+!     DEUX GROUPES VIENNENT, DANS LA CONFIGURATION ACTUELLE DE LA
+!     PHYSIQUE, DES POINTS SUIVANTS :
+!         - CALCULS RELATIFS A LA VARIABLE Q DU MODELE
+!         - CALCULS DE DERIVATION PAR RAPPORT A LA TEMPERATURE
+!         - ABSENCE D'ETATS HORS-EQUILIBRE = UNE SEULE CHALEUR LATENTE
+!           DE FUSION
+!         - POSSIBILITE DE TRAVAILLER SANS LA PHASE GLACE = INDICE DE
+!           TEST BINAIRE.
+
+!     ------------------------------------------------------------------
+#endif
+!     ABSOLUTE THERMODYNAMICAL FUNCTIONS .
+
+
+!     RLV : LATENT HEAT OF VAPOURISATION
+!     RLS : LATENT HEAT OF SUBLIMATION
+!     RLF : LATENT HEAT OF FUSION
+!     ESW : SATURATION IN PRESENCE OF WATER
+!     ESS : SATURATION IN PRESENCE OF ICE
+!     ES  : SATURATION (IF T>RTT THEN WATER ; IF T<RTT THEN ICE)
+!        INPUT (FOR ALL SIX FUNCTIONS) : PTARG = TEMPERATURE .
+REAL(KIND=JPRB) :: RLV,RLS,RLF,ESW,ESS,ES
+REAL(KIND=JPRB) :: PTARG
+
+RLV(PTARG)=RLVTT+(RCPV-RCW)*(PTARG-RTT)
+RLS(PTARG)=RLSTT+(RCPV-RCS)*(PTARG-RTT)
+RLF(PTARG)=RLS(PTARG)-RLV(PTARG)
+ESW(PTARG)=EXP(RALPW-RBETW/PTARG-RGAMW*LOG(PTARG))
+ESS(PTARG)=EXP(RALPS-RBETS/PTARG-RGAMS*LOG(PTARG))
+ES (PTARG)=EXP(&
+          &(RALPW+RALPD*MAX(0.0_JPRB,SIGN(1.0_JPRB,RTT-PTARG)))&
+         &-(RBETW+RBETD*MAX(0.0_JPRB,SIGN(1.0_JPRB,RTT-PTARG)))/PTARG &
+         &-(RGAMW+RGAMD*MAX(0.0_JPRB,SIGN(1.0_JPRB,RTT-PTARG)))*LOG(PTARG))
+
+!     ------------------------------------------------------------------
+!     FONCTIONS THERMODYNAMIQUES : FONCTIONS DEFINIES DE LA PHYSIQUE .
+
+
+!     FONCTION DE LA TENSION DE VAPEUR SATURANTE .
+!        INPUT : PTARG = TEMPERATURE
+!                PDELARG = 0 SI EAU (QUELQUE SOIT PTARG)
+!                          1 SI GLACE (QUELQUE SOIT PTARG).
+REAL(KIND=JPRB) :: FOEW
+REAL(KIND=JPRB) :: PDELARG
+FOEW ( PTARG,PDELARG ) = EXP (&
+    &( RALPW+PDELARG*RALPD )&
+  &- ( RBETW+PDELARG*RBETD ) / PTARG &
+  &- ( RGAMW+PDELARG*RGAMD ) * LOG(PTARG) )
+
+!     FONCTION DERIVEE DU LOGARITHME NEPERIEN DE LA PRECEDENTE (FOEW) .
+!        INPUT : PTARG = TEMPERATURE
+!                PDELARG = 0 SI EAU (QUELQUE SOIT PTARG)
+!                          1 SI GLACE (QUELQUE SOIT PTARG).
+REAL(KIND=JPRB) :: FODLEW
+FODLEW ( PTARG,PDELARG ) = (&
+      &( RBETW+PDELARG*RBETD )&
+    &- ( RGAMW+PDELARG*RGAMD ) * PTARG )&
+    &/ ( PTARG*PTARG )
+
+!     FONCTION HUMIDITE SPECIFIQUE SATURANTE .
+!        INPUT : PESPFAR = RAPPORT FOEW SUR PRESSION.
+REAL(KIND=JPRB) :: FOQS
+REAL(KIND=JPRB) :: PESPFAR
+FOQS ( PESPFAR ) = PESPFAR / ( 1.0_JPRB+RETV*MAX(0.0_JPRB,&
+    &(1.0_JPRB-PESPFAR)) )
+
+!     FONCTION DERIVEE EN TEMPERATURE DE LA PRECEDENTE (FOQS) .
+!        INPUT : PQSFARG = FOQS
+!                PESPFAR = RAPPORT FOEW SUR PRESSION
+!                PDLEFAR = FODLEW.
+REAL(KIND=JPRB) :: FODQS 
+REAL(KIND=JPRB) :: PQSFARG,PDLEFAR 
+FODQS ( PQSFARG,PESPFAR,PDLEFAR ) = ( PQSFARG &
+   &* (1.0_JPRB-PQSFARG)*PDLEFAR ) / (1.0_JPRB-PESPFAR)
+
+!     FONCTION CHALEUR LATENTE .
+!        INPUT : PTARG = TEMPERATURE
+!                PDELARG = 0 SI EAU (QUELQUE SOIT PTARG)
+!                          1 SI GLACE (QUELQUE SOIT PTARG).
+REAL(KIND=JPRB) :: FOLH
+FOLH ( PTARG,PDELARG ) =  RV * (&
+    &( RBETW+PDELARG*RBETD )&
+  &- ( RGAMW+PDELARG*RGAMD ) * PTARG )
+!     ------------------------------------------------------------------
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/gfl_subs.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/gfl_subs.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/gfl_subs.F90	(revision 1989)
@@ -0,0 +1,867 @@
+MODULE GFL_SUBS
+
+!     Purpose.
+!     --------
+
+!      GFL_SUBS contains routines to do basic manipulatutions of GFL descriptors 
+
+!     Author.
+!     -------
+!     Mats Hamrud(ECMWF)
+
+!     Modifications.
+!     --------------
+!        Original : 2003-03-01
+!        Modifications:
+!        03/07/09 C. Fischer - add Arome/Aladin attributes
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        M. Tudor      31-Oct-2003 physics tendencies
+!        Y.Tremolet    03-Mar-2004 Protect *EACT_CLOUD_GFL for multiple calls
+!        Y.Tremolet    12-Mar-2004 Save/falsify GFLC
+!        J.Haseler     10-Oct-2005 Switch for I/O to trajectory  structure
+!        Y. Bouteloup  28-Jan-2005 Add YR (rain !) in DEACT_CLOUD_GFL
+!        20-Feb-2005 J. Vivoda  3TL PC Eulerian scheme, GWADV scheme for PC_FULL 
+!        Y. Bouteloup  25-Dec-2005 Add YS (snow !) in DEACT_CLOUD_GFL
+!        A. Trojakova  29-June-2006 Add YCPF in DEACT_CLOUD_GFL
+!-------------------------------------------------------------------------
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOMLUN   , ONLY : NULOUT
+USE TYPE_GFLS ,ONLY : TYPE_GFL_COMP 
+USE YOM_YGFL , ONLY : YGFL,JPGFL,YGFLC,YL,YI,YA,YR,YS,YCPF
+USE YOPHNC   , ONLY : LENCLD2
+USE YOMSLPHY  ,ONLY : MSAVTEND_S
+USE YOMDIM   , ONLY : NFLEVG   ,NFLSUL
+
+IMPLICIT NONE
+SAVE
+
+PRIVATE
+!PUBLIC DEFINE_GFL_COMP,PRINT_GFL,SET_GFL_ATTR,DEACT_CLOUD_GFL,REACT_CLOUD_GFL
+! MPL 10.12.08
+PUBLIC DEFINE_GFL_COMP,PRINT_GFL,SET_GFL_ATTR
+
+! For internal use
+TYPE(TYPE_GFL_COMP),POINTER :: YLASTGFLC ! Pointer to last defined field
+TYPE(TYPE_GFL_COMP),POINTER :: YPTRC     ! Temporary field pointer
+TYPE(TYPE_GFL_COMP)  :: YL_SAVE ! For saving status of cloud fields
+TYPE(TYPE_GFL_COMP)  :: YI_SAVE ! For saving status of cloud fields
+TYPE(TYPE_GFL_COMP)  :: YA_SAVE ! For saving status of cloud fields
+TYPE(TYPE_GFL_COMP)  :: YR_SAVE ! For saving status of cloud fields
+TYPE(TYPE_GFL_COMP)  :: YS_SAVE ! For saving status of cloud fields
+TYPE(TYPE_GFL_COMP)  :: YCPF_SAVE ! For saving status of cloud fields
+LOGICAL :: L_CLD_DEACT=.FALSE.
+
+#include "abor1.intfb.h"
+
+!-------------------------------------------------------------------------
+CONTAINS
+!-------------------------------------------------------------------------
+
+SUBROUTINE DEFINE_GFL_COMP(YDGFLC,CDNAME,KGRIB,LDGP,KREQIN,PREFVALI, &
+ & LDREQOUT,LDERS,LD5,LDT1,LDGPINGP,LDTRAJIO,LDTHERMACT,PR,PRCP)
+
+!**** *DEFINE_GFL_COMP*  - Setup indivual GFL field
+ 
+!     Purpose.
+!     --------
+!     Basic allocation of GFL descriptor structure (on first call)
+!     Setup basic attributes of individual GFL component
+
+!        Explicit arguments :
+!        --------------------
+
+!        YDGFLC  - field handle
+!        CDNAME  - field ARPEGE name
+!        KGRIB   - GRIB code
+!        LDGP    - if TRUE gridpoint field
+!        KREQIN  - 1 if required in input, 0 if not, -1 if initialised with refernence value
+!        PREFVALI - reference value for initialisation in case NREQIN==-1
+!        LDREQOUT- TRUE if requiered in output
+!        LDERS   - TRUE if derivatives required (only possible for spectral field)
+!        LD5     - TRUE if field needs to be present in trajectory (T5)
+!        LD1     - TRUE if field needs to be present in t+dt array (GFLT1) 
+!        LDTRAJIO- TRUE if field written to/from trajectory structure files
+
+!     Author.
+!     -------
+!      Mats Hamrud  *ECMWF*
+
+!     Modifications.
+!     --------------
+!      Original : 2003-03-01
+!      Modifications:
+!      03/07/09 C. Fischer - add Arome/Aladin attributes
+!-------------------------------------------------------------------------
+
+TYPE(TYPE_GFL_COMP),TARGET,INTENT(INOUT) :: YDGFLC
+CHARACTER(LEN=16),INTENT(IN) :: CDNAME
+INTEGER(KIND=JPIM),INTENT(IN) :: KGRIB
+INTEGER(KIND=JPIM),INTENT(IN) :: KREQIN
+REAL(KIND=JPRB),INTENT(IN),OPTIONAL :: PREFVALI
+LOGICAL,INTENT(IN)::   LDREQOUT
+LOGICAL,INTENT(IN) ::   LDGP
+LOGICAL,INTENT(IN) ::   LDERS 
+LOGICAL,INTENT(IN) ::   LD5 
+LOGICAL,INTENT(IN) ::   LDT1
+LOGICAL,INTENT(IN),OPTIONAL ::   LDGPINGP
+LOGICAL,INTENT(IN),OPTIONAL ::   LDTRAJIO
+LOGICAL,INTENT(IN),OPTIONAL ::   LDTHERMACT
+REAL(KIND=JPRB),INTENT(IN),OPTIONAL :: PR
+REAL(KIND=JPRB),INTENT(IN),OPTIONAL :: PRCP
+ 
+INTEGER(KIND=JPIM) :: JGFL, ICURFLDPT, ICURFLDPC
+LOGICAL,SAVE :: LLFIRSTCALL = .TRUE.
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!-------------------------------------------------------------------------
+
+!       1. Initialization of YGFL on first call to this routine
+!          ----------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('GFL_SUBS:DEFINE_GFL_COMP',0,ZHOOK_HANDLE)
+IF(LLFIRSTCALL) THEN
+  YGFL%NUMFLDS     = 0
+  YGFL%NUMFLDS9    = 0
+  YGFL%NUMFLDS1    = 0
+  YGFL%NUMFLDS5    = 0
+  YGFL%NUMFLDSPHY  = 0
+  YGFL%NUMFLDS_SPL = 0
+  YGFL%NUMFLDS_SL1 = 0
+  YGFL%NUMFLDSPT   = 0
+  YGFL%NUMFLDSPC   = 0
+  YGFL%NDIM        = 0
+  YGFL%NDIM0       = 0
+  YGFL%NDIM9       = 0
+  YGFL%NDIM1       = 0
+  YGFL%NDIM5       = 0
+  YGFL%NDIMSLP     = 0
+  YGFL%NDIM_SPL    = 0
+  YGFL%NDIMPT      = 0
+  YGFL%NDIMPC      = 0
+  YGFL%NDERS       = 0
+  YGFL%NUMSPFLDS   = 0
+  YGFL%NUMGPFLDS   = 0
+  YGFL%NUMSPFLDS1  = 0
+  DO JGFL=1,JPGFL
+    CALL FALSIFY_GFLC(YGFLC(JGFL))
+    YGFLC(JGFL)%MP        = -HUGE(JPGFL)
+    YGFLC(JGFL)%MPL       = -HUGE(JPGFL)
+    YGFLC(JGFL)%MPM       = -HUGE(JPGFL)
+    YGFLC(JGFL)%MP9       = -HUGE(JPGFL)
+    YGFLC(JGFL)%MP9_PH    = -HUGE(JPGFL)
+    YGFLC(JGFL)%MP1       = -HUGE(JPGFL)
+    YGFLC(JGFL)%MP5       = -HUGE(JPGFL)
+    YGFLC(JGFL)%MP5L      = -HUGE(JPGFL)
+    YGFLC(JGFL)%MP5M      = -HUGE(JPGFL)
+    YGFLC(JGFL)%MPSLP     = -HUGE(JPGFL)
+    YGFLC(JGFL)%MPSP      = -HUGE(JPGFL)
+    YGFLC(JGFL)%MP_SPL    = -HUGE(JPGFL)
+    YGFLC(JGFL)%MP_SL1    = -HUGE(JPGFL)
+    YGFLC(JGFL)%MP_SLX    = -HUGE(JPGFL)
+    YGFLC(JGFL)%MPPT      = -HUGE(JPGFL)
+    YGFLC(JGFL)%MPPC      = -HUGE(JPGFL)
+  ENDDO
+  NULLIFY(YLASTGFLC)
+  LLFIRSTCALL = .FALSE.
+ENDIF
+
+!-------------------------------------------------------------------------
+
+!      2. Define GFL component
+!         --------------------
+
+!      2.1 Some checks
+IF(LDGP) THEN
+  DO JGFL=1,YGFL%NUMFLDS
+    IF(.NOT. YGFLC(JGFL)%LGP) THEN
+      !        Grid-point fields should be defined before any spectral field 
+      CALL ABOR1('YOMMFL:DEFINE_GFL_COMP:GRIDPOINT BEFORE SPECTRAL')
+    ENDIF
+  ENDDO
+ENDIF
+IF(LDGP) THEN
+  IF(LDERS) THEN
+    !      Derivatives can only be defined for spectral fields
+    CALL ABOR1('YOMMFL:DEFINE_GFL_COMP:DERIVATIVES ONLY WITH SPECTRAL')
+  ENDIF
+ENDIF
+IF(YGFL%NUMFLDS == JPGFL) THEN
+  WRITE(NULOUT,*) ' MAXIMUM NUMBER OF FIELDS ALREADY DEFINED'
+  CALL ABOR1('YOMMFL: EXCEED NUMBER OF FIELDS')
+ENDIF
+
+!      2.2 Define field attributes
+
+ICURFLDPT = YGFL%NUMFLDS+1
+ICURFLDPC = YGFL%NUMFLDS+1
+
+YDGFLC%LACTIVE = .TRUE.
+YDGFLC%CNAME = CDNAME
+YDGFLC%IGRBCODE = KGRIB
+YDGFLC%NREQIN = KREQIN
+IF (PRESENT(PREFVALI)) THEN
+  YDGFLC%REFVALI = PREFVALI
+ENDIF 
+YDGFLC%LREQOUT = LDREQOUT
+YDGFLC%LGP = LDGP
+YDGFLC%LSP= .NOT. YDGFLC%LGP
+YDGFLC%LT5 = LD5
+YDGFLC%LT1 = LDT1
+YDGFLC%LCDERS  = LDERS
+IF(PRESENT(LDGPINGP)) YDGFLC%LGPINGP=LDGPINGP
+IF(PRESENT(LDTRAJIO)) YDGFLC%LTRAJIO=LDTRAJIO
+IF(PRESENT(LDTHERMACT)) YDGFLC%LTHERMACT=LDTHERMACT
+IF(YDGFLC%LTHERMACT) THEN
+  IF(.NOT.PRESENT(PR)) &
+   &CALL ABOR1('GFL_SUBS:DEFINE_GFL_COMPONENT - PR MISSING')
+  IF(.NOT.PRESENT(PRCP)) &
+   &CALL ABOR1('GFL_SUBS:DEFINE_GFL_COMPONENT - PRCP MISSING')
+  YDGFLC%R = PR
+  YDGFLC%RCP = PRCP
+ENDIF
+
+!    2.3  Numbers of fields and dimensions
+YGFL%NUMFLDS = YGFL%NUMFLDS+1
+IF (YDGFLC%LT5) YGFL%NUMFLDS5 = YGFL%NUMFLDS5+1
+
+IF(YDGFLC%LCDERS) THEN
+  YGFL%NDIM = YGFL%NDIM+3
+  YGFL%NDIM0 = YGFL%NDIM0+3
+  YGFL%NDERS = YGFL%NDERS+1
+  IF (YDGFLC%LT5) YGFL%NDIM5 = YGFL%NDIM5+3
+ELSE
+  YGFL%NDIM = YGFL%NDIM+1
+  YGFL%NDIM0 = YGFL%NDIM0+1
+  IF (YDGFLC%LT5) YGFL%NDIM5 = YGFL%NDIM5+1
+ENDIF
+
+IF(YDGFLC%LSP) THEN
+  YGFL%NUMSPFLDS =YGFL%NUMSPFLDS+1
+ELSE
+  YGFL%NUMGPFLDS =YGFL%NUMGPFLDS+1
+ENDIF
+
+IF (YDGFLC%LT1)  THEN
+  YGFL%NUMFLDS1 = YGFL%NUMFLDS1+1
+  YGFL%NDIM1 = YGFL%NDIM1+1
+  IF (YDGFLC%LSP) YGFL%NUMSPFLDS1 =YGFL%NUMSPFLDS1+1
+ENDIF  
+
+!    2.4  Define field "pointers"
+YDGFLC%MP5 = -HUGE(JPGFL)
+IF (YDGFLC%LGP) THEN
+  YDGFLC%MP = YGFL%NDIM0
+  IF (YDGFLC%LT5) YDGFLC%MP5 = YGFL%NDIM5
+ELSE
+  YDGFLC%MP = YGFL%NUMFLDS
+  IF (YDGFLC%LT5) YDGFLC%MP5 = YGFL%NUMFLDS5
+ENDIF
+IF (YDGFLC%LCDERS) THEN
+  YDGFLC%MPM = YDGFLC%MP+YGFL%NDERS
+  YDGFLC%MPL = YDGFLC%MP+2*YGFL%NDERS
+  IF(YDGFLC%LT5) THEN
+    YDGFLC%MP5M = YDGFLC%MP5+YGFL%NDERS
+    YDGFLC%MP5L = YDGFLC%MP5+2*YGFL%NDERS
+  ENDIF
+ELSE
+  YDGFLC%MPL = -HUGE(JPGFL)
+  YDGFLC%MPM = -HUGE(JPGFL)
+  YDGFLC%MP5L = -HUGE(JPGFL)
+  YDGFLC%MP5M = -HUGE(JPGFL)
+ENDIF
+
+IF(YDGFLC%LSP) THEN
+  YDGFLC%MPSP = YGFL%NUMSPFLDS
+ELSE
+  YDGFLC%MPSP = -HUGE(JPGFL)
+ENDIF
+
+IF (YDGFLC%LT1)  THEN
+  YDGFLC%MP1 = YGFL%NUMFLDS1
+ELSE
+  YDGFLC%MP1 = -HUGE(JPGFL)
+ENDIF  
+  
+!      2.6  Possibly reassign pointers (needed for multiple fields with derivatives)
+
+IF(ASSOCIATED(YLASTGFLC)) THEN
+  YPTRC=>YLASTGFLC
+  DO
+    IF(.NOT.LDGP) THEN
+      IF(YPTRC%LCDERS) THEN
+        YPTRC%MPM = YPTRC%MPM+1
+        IF(LDERS)THEN
+          YPTRC%MPL = YPTRC%MPL+2
+        ELSE
+          YPTRC%MPL = YPTRC%MPL+1
+        ENDIF
+      ENDIF
+      WRITE(NULOUT,*)' DEFINE_GFL_COMP:CHECKING ',YPTRC%CNAME
+      WRITE(NULOUT,*)' REASSIGNED MPL=',YPTRC%MPL,' MPM=',YPTRC%MPM
+      IF (YDGFLC%LT5) THEN
+        IF(YPTRC%LT5) THEN
+          IF(YPTRC%LCDERS) THEN
+            YPTRC%MP5M = YPTRC%MP5M+1
+            IF(LDERS)THEN
+              YPTRC%MP5L = YPTRC%MP5L+2
+            ELSE
+              YPTRC%MP5L = YPTRC%MP5L+1
+            ENDIF
+          ENDIF
+          WRITE(NULOUT,*)' REASSIGNED MP5L=',YPTRC%MP5L,' MP5M=',YPTRC%MP5M
+        ENDIF
+      ENDIF
+
+    ENDIF
+    IF(.NOT.ASSOCIATED(YPTRC%PREVIOUS)) EXIT
+    YPTRC=>YPTRC%PREVIOUS
+  ENDDO
+ENDIF
+
+!    2.7  Point to last defined field
+YDGFLC%PREVIOUS=>YLASTGFLC
+YLASTGFLC => YDGFLC
+IF (LHOOK) CALL DR_HOOK('GFL_SUBS:DEFINE_GFL_COMP',1,ZHOOK_HANDLE)
+
+!     ------------------------------------------------------------------
+END SUBROUTINE DEFINE_GFL_COMP
+
+!=========================================================================
+
+SUBROUTINE SET_GFL_ATTR(YDGFLC,LDADV,LDT9,LDPHY,LDPT,LDPC,LDADJUST0,&
+ & LDADJUST1,KCOUPLING,PREFVALC,LDBIPER,CDSLINT)  
+
+!**** *SET_GFL_ATTR* Add attributes to previously setup GFL components
+
+!     Purpose.
+!     --------
+!     Add further attributes to previously setup, by call to DEFINE_GFL_COMP, GFL components
+
+!        Explicit arguments :
+!        --------------------
+!        LDADV   - TRUE if field to be advected
+!        LDT9    - TRUE if field present in t-dt
+!        LDPHY   - TRUE if field updated by physics
+!        LDPT    - TRUE if field present in phy. tend.
+!        LDPC    - TRUE if field in predictor/corrector time stepping treatment (3TL)
+!        LDADJUST0  - TRUE if field to be adjusted at t
+!        LDADJUST1  - TRUE if field to be adjusted at t+dt
+!        KCOUPLING - 1 if field to be coupled, 0 if not, -1 if coupled with REFVALC
+!        REVALC     - refernce value for coupling, used only in case NCOUPLING==-1
+!        LDBIPER    - TRUE if field to be biperiodised
+!        CDSLINT - S.L. interpolator
+
+!     Author.
+!     -------
+!      Mats Hamrud  *ECMWF*
+
+!     Modifications.
+!     --------------
+!      Original : 2003-03-01
+!      Modifications:
+!      03/07/09 C. Fischer - add Arome/Aladin attributes
+!      2004-Nov F. Vana - update of CDSLINT
+!-------------------------------------------------------------------------
+
+TYPE(TYPE_GFL_COMP),TARGET,INTENT(INOUT) :: YDGFLC
+LOGICAL,INTENT(IN),OPTIONAL :: LDADV
+LOGICAL,INTENT(IN),OPTIONAL :: LDT9 
+LOGICAL,INTENT(IN),OPTIONAL :: LDPHY
+LOGICAL,INTENT(IN),OPTIONAL :: LDPT
+LOGICAL,INTENT(IN),OPTIONAL :: LDPC
+LOGICAL,INTENT(IN),OPTIONAL :: LDADJUST0
+LOGICAL,INTENT(IN),OPTIONAL :: LDADJUST1
+INTEGER(KIND=JPIM),INTENT(IN),OPTIONAL :: KCOUPLING
+REAL(KIND=JPRB),INTENT(IN),OPTIONAL :: PREFVALC
+LOGICAL,INTENT(IN),OPTIONAL :: LDBIPER
+CHARACTER(LEN=12),INTENT(IN),OPTIONAL  :: CDSLINT
+
+INTEGER(KIND=JPIM) :: IGFLPTR
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!-------------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('GFL_SUBS:SET_GFL_ATTR',0,ZHOOK_HANDLE)
+IF(YDGFLC%MP < 1 .OR. YDGFLC%MP > YGFL%NUMFLDS) THEN
+  CALL ABOR1('SET_GFL_ATTR: GFL COMPONENT NOT SET UP')
+ELSE
+  IGFLPTR=YDGFLC%MP
+ENDIF
+
+IF(PRESENT(LDADV)) THEN
+  YDGFLC%LADV = LDADV
+ENDIF
+IF(YDGFLC%LADV) THEN
+  IF(.NOT.YDGFLC%LT1) THEN
+    CALL ABOR1(' GFL field to be advected but LT1=false')
+  ENDIF
+  YGFL%NUMFLDS_SL1 = YGFL%NUMFLDS_SL1+1
+  YDGFLC%MP_SL1 = YGFL%NUMFLDS_SL1
+  YDGFLC%MP_SLX = (YGFL%NUMFLDS_SL1-1)*(NFLEVG+2*NFLSUL)
+ENDIF
+  
+
+! Other timelevels etc.
+
+IF(PRESENT(LDT9)) THEN
+  YDGFLC%LT9 = LDT9
+ENDIF
+IF(YDGFLC%LT9 .AND. YDGFLC%MP9 == -HUGE(JPGFL) ) THEN
+  YGFL%NUMFLDS9 = YGFL%NUMFLDS9+1
+  YGFL%NDIM  = YGFL%NDIM+1
+  YGFL%NDIM9 = YGFL%NDIM9+1
+  YDGFLC%MP9 = YGFL%NDIM0+YGFL%NUMFLDS9
+  YDGFLC%MP9_PH = YDGFLC%MP9
+ELSE
+  YDGFLC%MP9 = YDGFLC%MP
+  YDGFLC%MP9_PH = YDGFLC%MP9
+  WRITE(NULOUT,*) 'WARNING YDGFLC%MP9 = YDGFLC%MP',YDGFLC%MP9,YDGFLC%MP
+ENDIF
+
+IF(PRESENT(LDPHY)) THEN
+  YDGFLC%LPHY = LDPHY
+ENDIF
+IF(YGFL%NUMFLDSPHY == 0)YGFL%NUMFLDSPHY=YGFL%NUMFLDSPHY-MSAVTEND_S
+IF(YDGFLC%MPSLP == -HUGE(JPGFL)) THEN
+  IF(YDGFLC%LPHY) THEN
+    IF(.NOT.YDGFLC%LT1) THEN
+      CALL ABOR1(' GFL field to be modified by physics but LT1=false')
+    ENDIF
+    YGFL%NUMFLDSPHY = YGFL%NUMFLDSPHY+1+MSAVTEND_S
+    YGFL%NDIMSLP = YGFL%NDIMSLP+1+MSAVTEND_S
+    YDGFLC%MPSLP = YGFL%NUMFLDSPHY
+  ENDIF
+ENDIF
+
+IF(PRESENT(LDPT)) THEN
+  YDGFLC%LPT = LDPT
+ENDIF
+IF(YDGFLC%MPPT == -HUGE(JPGFL)) THEN
+  IF(YDGFLC%LPT) THEN
+    YGFL%NUMFLDSPT = YGFL%NUMFLDSPT+1
+    YGFL%NDIMPT = YGFL%NDIMPT+1
+    YDGFLC%MPPT = YGFL%NUMFLDSPT
+  ENDIF
+ENDIF
+IF(PRESENT(LDPC)) THEN
+  YDGFLC%LPC = LDPC
+ENDIF
+IF(YDGFLC%MPPC == -HUGE(JPGFL)) THEN
+  IF(YDGFLC%LPC) THEN
+    YGFL%NUMFLDSPC = YGFL%NUMFLDSPC+1
+    YGFL%NDIMPC = YGFL%NDIMPC+1
+    YDGFLC%MPPC = YGFL%NUMFLDSPC
+  ENDIF
+ENDIF
+
+
+! LAM attributes (do not involve extra dimensioning or pointers)
+
+IF(PRESENT(LDADJUST0)) THEN
+  YDGFLC%LADJUST0 = LDADJUST0
+ENDIF
+IF(PRESENT(LDADJUST1)) THEN
+  YDGFLC%LADJUST1 = LDADJUST1
+ENDIF
+IF(PRESENT(KCOUPLING)) THEN
+  YDGFLC%NCOUPLING = KCOUPLING
+ENDIF
+IF(PRESENT(PREFVALC)) THEN
+  YDGFLC%REFVALC = PREFVALC
+ENDIF
+IF(PRESENT(LDBIPER)) THEN
+  YDGFLC%LBIPER = LDBIPER
+ENDIF
+
+IF(PRESENT(CDSLINT)) THEN
+  YDGFLC%CSLINT=CDSLINT
+  IF(YDGFLC%MP_SPL == -HUGE(JPGFL)) THEN
+    IF(CDSLINT == 'LAITVSPCQM  ') THEN
+      YGFL%NUMFLDS_SPL = YGFL%NUMFLDS_SPL+1
+      YGFL%NDIM_SPL = YGFL%NDIM_SPL+1
+      YDGFLC%MP_SPL = YGFL%NUMFLDS_SPL
+    ENDIF
+  ENDIF
+ENDIF
+IF (LHOOK) CALL DR_HOOK('GFL_SUBS:SET_GFL_ATTR',1,ZHOOK_HANDLE)
+
+!     -------------------------------------------------------------------
+END SUBROUTINE SET_GFL_ATTR
+
+!=========================================================================
+
+SUBROUTINE PRINT_GFL
+
+!**** *PRINT_GFL*  - Print GFL attributes
+
+!     -------------------------------------------------------------------
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('GFL_SUBS:PRINT_GFL',0,ZHOOK_HANDLE)
+WRITE(NULOUT,*) ' ---- GFL COMPONENT ATTRIBUTES ----'
+IF(ASSOCIATED(YLASTGFLC)) THEN
+  YPTRC=>YLASTGFLC
+  DO
+    WRITE(NULOUT,*) ' GFL COMPONENT DEFINED - NAME=',&
+     & YPTRC%CNAME,' GRIBCODE=', YPTRC%IGRBCODE  
+    WRITE(NULOUT,*)' LGP=',YPTRC%LGP,' NREQIN=',YPTRC%NREQIN, &
+     & ' LREQOUT=',YPTRC%LREQOUT,' REFVALI=',YPTRC%REFVALI, &
+     & ' LCDERS=', YPTRC%LCDERS,' LADV=',YPTRC%LADV, &
+     & ' LPHY=',YPTRC%LPHY,' LPT=',YPTRC%LPT,' LPC=',YPTRC%LPC
+    WRITE(NULOUT,*)' LADJUST0=',YPTRC%LADJUST0,' LADJUST1=',YPTRC%LADJUST1,&
+     & ' NCOUPLING=',YPTRC%NCOUPLING,' REFVALC=',YPTRC%REFVALC,&
+     & ' LBIPER=',YPTRC%LBIPER  
+    WRITE(NULOUT,*)' LTRAJIO=',YPTRC%LTRAJIO,' LGPINGP=',YPTRC%LGPINGP
+    WRITE(NULOUT,*)' CSLINT=',YPTRC%CSLINT
+     WRITE(NULOUT,*)'LTHERMACT=',YPTRC%LTHERMACT,&
+      & ' R=',YPTRC%R,' RCP=',YPTRC%RCP
+    WRITE(NULOUT,*)' MP=',YPTRC%MP,' MPL=',YPTRC%MPL,&
+     & ' MPM=',YPTRC%MPM,' MP9=',YPTRC%MP9,' MP1=',YPTRC%MP1,&
+     & ' MP5=',YPTRC%MP5,' MP5L=',YPTRC%MP5L,' MP5M=',YPTRC%MP5M, &
+     & ' MPSLP=',YPTRC%MPSLP,' MPSP=',YPTRC%MPSP,&
+     & ' MPPT=',YPTRC%MPPT, ' MPPC=',YPTRC%MPPC
+    IF(.NOT.ASSOCIATED(YPTRC%PREVIOUS)) EXIT
+    YPTRC=>YPTRC%PREVIOUS
+  ENDDO
+ENDIF
+
+WRITE(NULOUT,*) ' ---- YGFL ATTRIBUTES ----'
+WRITE(NULOUT,*) ' YGFL%NUMFLDS=',YGFL%NUMFLDS,&
+ & ' YGFL%NUMSPFLDS=',YGFL%NUMSPFLDS,' YGFL%NUMGPFLDS=',YGFL%NUMGPFLDS,&
+ & ' YGFL%NDERS=',YGFL%NDERS,' YGFL%NUMFLDSPT=',YGFL%NUMFLDSPT,&
+ & ' YGFL%NUMFLDSPC=',YGFL%NUMFLDSPC 
+WRITE(NULOUT,*) ' YGFL%NUMFLDS_SL1=',YGFL%NUMFLDS_SL1 
+WRITE(NULOUT,*) ' YGFL%NDIM=',YGFL%NDIM,' YGFL%NDIM0=',YGFL%NDIM0,&
+ & ' YGFL%NDIM9=',YGFL%NDIM9,' YGFL%NDIM1=',YGFL%NDIM1,&
+ & ' YGFL%NDIM5=',YGFL%NDIM5,' YGFL%NDIMSLP=',YGFL%NDIMSLP,&
+ & ' YGFL%NDIMPT=',YGFL%NDIMPT,' YGFL%NDIMPC=',YGFL%NDIMPC
+!!$WRITE(NULOUT,*) ' YGFL%CNAMES=',YGFL%CNAMES(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%IGRBCODE=',YGFL%IGRBCODE(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%NREQIN=',YGFL%NREQIN(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%REFVALI=',YGFL%REFVALI(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%LREQOUT=',YGFL%LREQOUT(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%LADV=',YGFL%LADV(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%CSLINT=',YGFL%CSLINT(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%MP=',YGFL%MP(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%LSP=',YGFL%LSP(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%MPSP=',YGFL%MPSP(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%LCDERS=',YGFL%LCDERS(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%LTRAJIO=',YGFL%LTRAJIO(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%MPL=',YGFL%MPL(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%MPM=',YGFL%MPM(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%LT9=',YGFL%LT9(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%MP9=',YGFL%MP9(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%LT1=',YGFL%LT1(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%MP1=',YGFL%MP1(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%LT5=',YGFL%LT5(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%MP5=',YGFL%MP5(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%MP5L=',YGFL%MP5L(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%MP5M=',YGFL%MP5M(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%LPHY=',YGFL%LPHY(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%MPSLP=',YGFL%MPSLP(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%LPT=',YGFL%LPT(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%MPPT=',YGFL%MPPT(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%LPC=',YGFL%LPC(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%MPPC=',YGFL%MPPC(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%LADJUST0=',YGFL%LADJUST0(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%LADJUST1=',YGFL%LADJUST1(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%NCOUPLING=',YGFL%NCOUPLING(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%REFVALC=',YGFL%REFVALC(1:YGFL%NUMFLDS)
+!!$WRITE(NULOUT,*) ' YGFL%LBIPER=',YGFL%LBIPER(1:YGFL%NUMFLDS)
+WRITE(NULOUT,*) ' --------------------------------------------'
+IF (LHOOK) CALL DR_HOOK('GFL_SUBS:PRINT_GFL',1,ZHOOK_HANDLE)
+END SUBROUTINE PRINT_GFL
+
+!=========================================================================
+
+!SUBROUTINE DEACT_CLOUD_GFL  ! commente par MPL 10.12.08 (et REACT_CLOUD_GFL)
+!
+!**** *DEACT_CLOUD_GFL* Deactivate prognostic cloud variables
+!
+!     ------------------------------------------------------------------
+!
+!INTEGER(KIND=JPIM) :: JGFL
+!REAL(KIND=JPRB) :: ZHOOK_HANDLE
+!
+!#include "suslb.intfb.h"
+!
+!IF (LHOOK) CALL DR_HOOK('GFL_SUBS:DEACT_CLOUD_GFL',0,ZHOOK_HANDLE)
+!
+!IF (.NOT.L_CLD_DEACT .AND. &
+! & (YL%LACTIVE .OR. YI%LACTIVE .OR. &
+! &  YR%LACTIVE .OR. YS%LACTIVE .OR. YA%LACTIVE .OR. YCPF%LACTIVE ) ) THEN
+!  CALL COPY_GFLC_GFLC(YL_SAVE,YL)
+!  CALL COPY_GFLC_GFLC(YI_SAVE,YI)
+!  CALL COPY_GFLC_GFLC(YR_SAVE,YR)
+!  CALL COPY_GFLC_GFLC(YS_SAVE,YS)
+!  CALL COPY_GFLC_GFLC(YA_SAVE,YA)
+!  CALL COPY_GFLC_GFLC(YCPF_SAVE,YCPF)
+!  
+!  IF( .NOT. LENCLD2) THEN
+!    IF (YL%LGP) YGFL%NUMGPFLDS=YGFL%NUMGPFLDS-1
+!    IF (YI%LGP) YGFL%NUMGPFLDS=YGFL%NUMGPFLDS-1
+!    IF (YR%LGP) YGFL%NUMGPFLDS=YGFL%NUMGPFLDS-1
+!    IF (YS%LGP) YGFL%NUMGPFLDS=YGFL%NUMGPFLDS-1
+!    IF (YA%LGP) YGFL%NUMGPFLDS=YGFL%NUMGPFLDS-1
+!    IF (YCPF%LGP) YGFL%NUMGPFLDS=YGFL%NUMGPFLDS-1
+!
+!    IF (YL%LT5) YGFL%NUMFLDS5=YGFL%NUMFLDS5-1
+!    IF (YI%LT5) YGFL%NUMFLDS5=YGFL%NUMFLDS5-1
+!    IF (YR%LT5) YGFL%NUMFLDS5=YGFL%NUMFLDS5-1
+!    IF (YS%LT5) YGFL%NUMFLDS5=YGFL%NUMFLDS5-1
+!    IF (YA%LT5) YGFL%NUMFLDS5=YGFL%NUMFLDS5-1
+!    IF (YCPF%LT5) YGFL%NUMFLDS5=YGFL%NUMFLDS5-1
+!
+!    CALL FALSIFY_GFLC(YL)
+!    CALL FALSIFY_GFLC(YI)
+!    CALL FALSIFY_GFLC(YR)
+!   CALL FALSIFY_GFLC(YS)
+!   CALL FALSIFY_GFLC(YA)
+!   CALL FALSIFY_GFLC(YCPF)
+! ELSE
+!   CALL NOADVECT_GFLC(YL)
+!   CALL NOADVECT_GFLC(YI)
+!   CALL NOADVECT_GFLC(YR)
+!   CALL NOADVECT_GFLC(YS)
+!   CALL NOADVECT_GFLC(YA)
+!   CALL NOADVECT_GFLC(YCPF)
+! ENDIF
+! YGFL%NUMFLDS_SL1 = 0
+! DO JGFL=1,YGFL%NUMFLDS
+!   YGFLC(JGFL)%MP_SL1 = -HUGE(JPGFL)
+!   IF(YGFLC(JGFL)%LADV) THEN
+!     YGFL%NUMFLDS_SL1 = YGFL%NUMFLDS_SL1+1
+!     YGFLC(JGFL)%MP_SL1 = YGFL%NUMFLDS_SL1
+!     YGFLC(JGFL)%MP_SLX = (YGFLC(JGFL)%MP_SL1-1)*(NFLEVG+2*NFLSUL)
+!   ENDIF
+! ENDDO
+! CALL SUSLB
+!
+! L_CLD_DEACT=.TRUE.
+! WRITE(NULOUT,*)' CLOUD FIELDS DE-ACTIVATAD, YGFL%NUMGPFLDS=', &
+! & YGFL%NUMGPFLDS,' YGFL%NUMFLDS_SL1=', YGFL%NUMFLDS_SL1
+!ENDIF
+!
+!IF (LHOOK) CALL DR_HOOK('GFL_SUBS:DEACT_CLOUD_GFL',1,ZHOOK_HANDLE)
+!
+!END SUBROUTINE DEACT_CLOUD_GFL
+!
+!!=========================================================================
+!
+!SUBROUTINE REACT_CLOUD_GFL
+!!**** *REACT_CLOUD_GFL* Reactivate prognostic cloud variables
+!
+!INTEGER(KIND=JPIM) :: JGFL
+!REAL(KIND=JPRB) :: ZHOOK_HANDLE
+!LOGICAL :: LLGPI,LLGPL,LLGPA
+!#include "suslb.intfb.h"
+!!     ------------------------------------------------------------------
+!IF (LHOOK) CALL DR_HOOK('GFL_SUBS:REACT_CLOUD_GFL',0,ZHOOK_HANDLE)
+!
+!IF (L_CLD_DEACT) THEN
+!  LLGPL = YL%LGP
+!  LLGPI = YI%LGP
+!  LLGPA = YA%LGP
+!  
+!  CALL COPY_GFLC_GFLC(YL,YL_SAVE)
+!  CALL COPY_GFLC_GFLC(YI,YI_SAVE)
+!  CALL COPY_GFLC_GFLC(YA,YA_SAVE)
+!
+!  IF (.NOT. LLGPL .AND. YL%LGP) YGFL%NUMGPFLDS=YGFL%NUMGPFLDS+1
+!  IF (.NOT. LLGPI .AND. YI%LGP) YGFL%NUMGPFLDS=YGFL%NUMGPFLDS+1
+!  IF (.NOT. LLGPA .AND. YA%LGP) YGFL%NUMGPFLDS=YGFL%NUMGPFLDS+1
+!
+!  YGFL%NUMFLDS_SL1 = 0
+!  DO JGFL=1,YGFL%NUMFLDS
+!    YGFLC(JGFL)%MP_SL1 = -HUGE(JPGFL)
+!    IF(YGFLC(JGFL)%LADV) THEN
+!      YGFL%NUMFLDS_SL1 = YGFL%NUMFLDS_SL1+1
+!      YGFLC(JGFL)%MP_SL1 = YGFL%NUMFLDS_SL1
+!      YGFLC(JGFL)%MP_SLX = (YGFLC(JGFL)%MP_SL1-1)*(NFLEVG+2*NFLSUL)
+!    ENDIF
+!  ENDDO
+!  CALL SUSLB
+!
+!  L_CLD_DEACT=.FALSE.
+!  WRITE(NULOUT,*)' CLOUD FIELDS RE-ACTIVATAD, YGFL%NUMGPFLDS=', &
+!  & YGFL%NUMGPFLDS,' YGFL%NUMFLDS_SL1=', YGFL%NUMFLDS_SL1
+!ENDIF
+!
+!IF (LHOOK) CALL DR_HOOK('GFL_SUBS:REACT_CLOUD_GFL',1,ZHOOK_HANDLE)
+!
+!!     ------------------------------------------------------------------
+!END SUBROUTINE REACT_CLOUD_GFL
+
+!=========================================================================
+
+SUBROUTINE FALSIFY_GFLC(YDGFLC)
+
+!     Purpose.
+!     --------
+!       Set field descriptors to false.
+
+!     Author.
+!     -------
+!      Y. Tremolet
+
+!     Modifications.
+!     --------------
+!      Original : 2004-03-12
+!-------------------------------------------------------------------------
+
+TYPE(TYPE_GFL_COMP),INTENT(INOUT) :: YDGFLC
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('GFL_SUBS:FALSIFY_GFLC',0,ZHOOK_HANDLE)
+YDGFLC%CNAME     = ''
+YDGFLC%IGRBCODE  = -HUGE(JPGFL)
+YDGFLC%LADV      = .FALSE.
+YDGFLC%NREQIN    = 0
+YDGFLC%REFVALI   = 0.0_JPRB
+YDGFLC%LREQOUT   = .FALSE.
+YDGFLC%LGPINGP   = .TRUE.
+YDGFLC%LTRAJIO   = .FALSE.
+YDGFLC%LGP       = .FALSE.
+YDGFLC%LSP       = .FALSE.
+YDGFLC%LCDERS    = .FALSE.
+YDGFLC%LACTIVE   = .FALSE.
+YDGFLC%LTHERMACT = .FALSE.
+YDGFLC%LT9       = .FALSE.
+YDGFLC%LT1       = .FALSE.
+YDGFLC%LT5       = .FALSE.
+YDGFLC%LPHY      = .FALSE.
+YDGFLC%LPT       = .FALSE.
+YDGFLC%LPC       = .FALSE.
+YDGFLC%LADJUST0  = .FALSE.
+YDGFLC%LADJUST1  = .FALSE.
+YDGFLC%NCOUPLING = 0
+YDGFLC%REFVALC   = 0.0_JPRB
+YDGFLC%LBIPER    = .FALSE.
+YDGFLC%CSLINT    = ''
+YDGFLC%R         = 0.0_JPRB
+YDGFLC%RCP       = 0.0_JPRB
+!yt YDGFLC%MP        = -HUGE(JPGFL)
+!yt YDGFLC%MPL       = -HUGE(JPGFL)
+!yt YDGFLC%MPM       = -HUGE(JPGFL)
+!yt YDGFLC%MP9       = -HUGE(JPGFL)
+!yt YDGFLC%MP1       = -HUGE(JPGFL)
+!yt YDGFLC%MP5       = -HUGE(JPGFL)
+!yt YDGFLC%MP5L      = -HUGE(JPGFL)
+!yt YDGFLC%MP5M      = -HUGE(JPGFL)
+!yt YDGFLC%MPSLP     = -HUGE(JPGFL)
+!yt YDGFLC%MPSP      = -HUGE(JPGFL)
+!yt YDGFLC%MP_SPL    = -HUGE(JPGFL)
+!yt;-) YDGFLC%MPPT   = -HUGE(JPGFL)
+!yt;-) YDGFLC%MPPC   = -HUGE(JPGFL)
+!yt NULLIFY(YDGFLC%PREVIOUS)
+IF (LHOOK) CALL DR_HOOK('GFL_SUBS:FALSIFY_GFLC',1,ZHOOK_HANDLE)
+
+END SUBROUTINE FALSIFY_GFLC
+!=========================================================================
+
+SUBROUTINE NOADVECT_GFLC(YDGFLC)
+
+!     Purpose.
+!     --------
+!       Switch off advection ect.
+
+!     Author.
+!     -------
+!      Y. Tremolet
+
+!     Modifications.
+!     --------------
+!      Original : 2004-03-12
+!-------------------------------------------------------------------------
+
+TYPE(TYPE_GFL_COMP),INTENT(INOUT) :: YDGFLC
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('GFL_SUBS:NOADVECT_GFLC',0,ZHOOK_HANDLE)
+YDGFLC%LADV      = .FALSE.
+YDGFLC%LCDERS    = .FALSE.
+YDGFLC%LT1       = .FALSE.
+YDGFLC%LT5       = .FALSE.
+YDGFLC%LPHY      = .FALSE.
+YDGFLC%LPT       = .FALSE.
+YDGFLC%LADJUST0  = .FALSE.
+YDGFLC%LADJUST1  = .FALSE.
+YDGFLC%LBIPER    = .FALSE.
+YDGFLC%CSLINT    = ''
+IF (LHOOK) CALL DR_HOOK('GFL_SUBS:NOADVECT_GFLC',1,ZHOOK_HANDLE)
+
+END SUBROUTINE NOADVECT_GFLC
+
+!=========================================================================
+
+SUBROUTINE COPY_GFLC_GFLC(YDGFLC1,YDGFLC2)
+
+!     Purpose.
+!     --------
+!       Copy field descriptors.
+
+!     Author.
+!     -------
+!      Y. Tremolet
+
+!     Modifications.
+!     --------------
+!      Original : 2004-03-12
+!-------------------------------------------------------------------------
+
+TYPE (TYPE_GFL_COMP), INTENT(INOUT) :: YDGFLC1
+TYPE (TYPE_GFL_COMP), INTENT(IN)    :: YDGFLC2
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('GFL_SUBS:COPY_GFLC_GFLC',0,ZHOOK_HANDLE)
+YDGFLC1%CNAME     = YDGFLC2%CNAME
+YDGFLC1%IGRBCODE  = YDGFLC2%IGRBCODE
+YDGFLC1%LADV      = YDGFLC2%LADV
+YDGFLC1%NREQIN    = YDGFLC2%NREQIN
+YDGFLC1%REFVALI   = YDGFLC2%REFVALI
+YDGFLC1%LREQOUT   = YDGFLC2%LREQOUT
+YDGFLC1%LGPINGP   = YDGFLC2%LGPINGP
+YDGFLC1%LTRAJIO   = YDGFLC2%LTRAJIO
+YDGFLC1%LGP       = YDGFLC2%LGP
+YDGFLC1%LSP       = YDGFLC2%LSP
+YDGFLC1%LPT       = YDGFLC2%LPT
+YDGFLC1%LPC       = YDGFLC2%LPC
+YDGFLC1%LCDERS    = YDGFLC2%LCDERS
+YDGFLC1%LACTIVE   = YDGFLC2%LACTIVE
+YDGFLC1%LTHERMACT = YDGFLC2%LTHERMACT
+YDGFLC1%LT9       = YDGFLC2%LT9
+YDGFLC1%LT1       = YDGFLC2%LT1
+YDGFLC1%LT5       = YDGFLC2%LT5
+YDGFLC1%LPHY      = YDGFLC2%LPHY
+YDGFLC1%LADJUST0  = YDGFLC2%LADJUST0
+YDGFLC1%LADJUST1  = YDGFLC2%LADJUST1
+YDGFLC1%NCOUPLING = YDGFLC2%NCOUPLING
+YDGFLC1%REFVALC   = YDGFLC2%REFVALC
+YDGFLC1%LBIPER    = YDGFLC2%LBIPER
+YDGFLC1%CSLINT    = YDGFLC2%CSLINT
+YDGFLC1%R         = YDGFLC2%R
+YDGFLC1%RCP       = YDGFLC2%RCP
+YDGFLC1%MP        = YDGFLC2%MP
+YDGFLC1%MPL       = YDGFLC2%MPL
+YDGFLC1%MPM       = YDGFLC2%MPM
+YDGFLC1%MP9       = YDGFLC2%MP9
+YDGFLC1%MP1       = YDGFLC2%MP1
+YDGFLC1%MP5       = YDGFLC2%MP5
+YDGFLC1%MP5L      = YDGFLC2%MP5L
+YDGFLC1%MP5M      = YDGFLC2%MP5M
+YDGFLC1%MPSLP     = YDGFLC2%MPSLP
+YDGFLC1%MP_SPL    = YDGFLC2%MP_SPL
+YDGFLC1%MP_SL1    = YDGFLC2%MP_SL1
+YDGFLC1%MPSP      = YDGFLC2%MPSP
+YDGFLC1%MPPT      = YDGFLC2%MPPT
+YDGFLC1%MPPC      = YDGFLC2%MPPC
+!yt YDGFLC1%PREVIOUS => YDGFLC2%PREVIOUS
+IF (LHOOK) CALL DR_HOOK('GFL_SUBS:COPY_GFLC_GFLC',1,ZHOOK_HANDLE)
+
+END SUBROUTINE COPY_GFLC_GFLC
+
+!=========================================================================
+
+END MODULE GFL_SUBS
Index: LMDZ5/trunk/libf/phylmd/rrtm/gppre.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/gppre.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/gppre.F90	(revision 1989)
@@ -0,0 +1,92 @@
+SUBROUTINE GPPRE(KPROMA,KSTART,KPROF,KFLEV,PVAH,PVBH,PRESH,PRESF)
+
+!**** *GPPRE* - Computes half and full level pressure
+
+!     Purpose.
+!     --------
+!           Computes pressures at half and full model levels.
+
+!**   Interface.
+!     ----------
+!        *CALL* *GPPRE(KPROMA,KSTART,KPROF,KFLEV,PVAH,PVBH,PRESH,PRESF)
+
+!        Explicit arguments :
+!        --------------------
+!                              KPROMA :  dimensioning
+!                              KSTART :  start of work
+!                              KPROF  :  depth of work
+!                              KFLEV     : vert. dimensioning
+!                              PRESH(KPROMA,0:KFLEV) - HALF LEVEL PRESSURE
+!                              PRESF(KPROMA,KFLEV)   - FULL LEVEL PRESSURE
+!                              PVAH(KFLEV),PVBH(KFLEV)- vertical coordinate
+!        Implicit arguments :  NONE.
+!        --------------------
+
+!     Method.
+!     -------
+!        See documentation
+
+!     Externals.  None.
+!     ----------
+
+!     Reference.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+!     Half level P:     PHk = Ak + Bk * Ps
+
+!                                PHk*ln(PHk) - PHk-1*ln(PHk-1)
+!     Full level P: ln(PFk) = [ ------------------------------- - 1. ]
+!                                        PHk - PHk-1
+
+!     Author.
+!     -------
+!        Mats Hamrud and Philippe Courtier  *ECMWF*
+
+!     Modifications.
+!     --------------
+!        Original : 88-02-04
+!     Erik Andersson  920326: Altered computation of full level pressure
+!     Erik Andersson  930225: Use GPPREH/F.
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOMGEM   , ONLY : VC       ,VDELB
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KPROMA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFLEV 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KSTART 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KPROF 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PVAH(0:KFLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PVBH(0:KFLEV) 
+REAL(KIND=JPRB)   ,INTENT(INOUT) :: PRESH(KPROMA,0:KFLEV) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PRESF(KPROMA,KFLEV) 
+REAL(KIND=JPRB) ::    ZLNPR(KPROMA,KFLEV) ,  ZALPH (KPROMA,KFLEV)
+REAL(KIND=JPRB) ::    ZDELP(KPROMA,KFLEV) ,  ZRDELP(KPROMA,KFLEV)
+REAL(KIND=JPRB) ::    ZRTGR(KPROMA,KFLEV) ,  ZRPRES(KPROMA,KFLEV)
+REAL(KIND=JPRB) ::    ZRPP (KPROMA,KFLEV)
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+#include "gppref.intfb.h"
+#include "gppreh.intfb.h"
+#include "gpxyb.intfb.h"
+
+!     ------------------------------------------------------------------
+
+!*       1.    COMPUTES HALF AND FULL LEVEL PRESSURES
+!              --------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('GPPRE',0,ZHOOK_HANDLE)
+CALL GPPREH(KPROMA,KSTART,KPROF,KFLEV,PVAH,PVBH,PRESH)
+CALL GPXYB(KPROMA,KSTART,KPROF,KFLEV,VDELB,VC,PRESH,ZDELP,&
+ & ZRDELP,ZLNPR,ZALPH,ZRTGR,ZRPRES,ZRPP)  
+CALL GPPREF(KPROMA,KSTART,KPROF,KFLEV,PVAH,PVBH,ZALPH,PRESH,PRESF)
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('GPPRE',1,ZHOOK_HANDLE)
+END SUBROUTINE GPPRE
Index: LMDZ5/trunk/libf/phylmd/rrtm/gppre.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/gppre.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/gppre.intfb.h	(revision 1989)
@@ -0,0 +1,13 @@
+INTERFACE
+SUBROUTINE GPPRE(KPROMA,KSTART,KPROF,KFLEV,PVAH,PVBH,PRESH,PRESF)
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KPROMA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFLEV
+INTEGER(KIND=JPIM),INTENT(IN) :: KSTART
+INTEGER(KIND=JPIM),INTENT(IN) :: KPROF
+REAL(KIND=JPRB) ,INTENT(IN) :: PVAH(0:KFLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PVBH(0:KFLEV)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PRESH(KPROMA,0:KFLEV)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PRESF(KPROMA,KFLEV)
+END SUBROUTINE GPPRE
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/gppref.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/gppref.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/gppref.F90	(revision 1989)
@@ -0,0 +1,172 @@
+SUBROUTINE GPPREF(KPROMA,KSTART,KPROF,KFLEV,PVAH,PVBH,PALPH,PRESH,PRESF)
+
+!**** *GPPREF* - Computes full level pressure
+
+!     Purpose.
+!     --------
+!           Computes pressures at half and full model levels.
+
+!**   Interface.
+!     ----------
+!        *CALL* *GPPREF(...)
+
+!        Explicit arguments :
+!        --------------------
+!                              KPROMA :  dimensioning
+!                              KSTART :  start of work
+!                              KPROF  :  depth of work
+!                              KFLEV     : vert. dimensioning
+!                              PVAH(KFLEV),PVBH(KFLEV)- vertical coordinate
+!                              PALPH (KPROMA,KFLEV)  - COEFF OF THE HYDROST
+!                              PRESH(KPROMA,0:KFLEV) - HALF LEVEL PRESSURE
+!                              PRESF(KPROMA,KFLEV)   - FULL LEVEL PRESSURE
+!
+!        Implicit arguments :  NONE.
+!        --------------------
+
+!     Method.
+!     -------
+!        See documentation
+
+!     Externals.  None.
+!     ----------
+
+!     Reference.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+
+!                                PHk*ln(PHk) - PHk-1*ln(PHk-1)
+!     Full level P: ln(PFk) = [ ------------------------------- - 1. ]
+!                                        PHk - PHk-1
+
+!     which simplifies to:  PFk = Pk+1/2 * exp(-ALPHA)
+
+!     In case of NDLNPR=1 it becomes even simpler (no need of LAPRXP any
+!     more in principle !) :
+!                           PFk = Pk+1/2 * (1.-ALPHA) except at the top
+!     level :
+!                           PF1 = P1.5 / (2+Cv/R)
+
+!     Author.
+!     -------
+!        Erik Andersson, Mats Hamrud and Philippe Courtier  *ECMWF*
+
+!     Modifications.
+!     --------------
+!        Original : 92-11-23
+!        Modified : 95-01-31 by Radmila Bubnova: correction in the case
+!                            of the other approximation of d (ln p).
+!        Modified : 00-11-22 by Agathe Untch: modifications for vertical
+!                            finite elements
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        Modified : 04-11-15 by K. YESSAD: improve the hierarchy of tests
+!        Modified : 15-Feb-2005 by K. YESSAD: ZTOPPRES becomes TOPPRES
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOMCT0   , ONLY : LAPRXPK
+USE YOMDYN   , ONLY : NDLNPR
+USE YOMCST   , ONLY : RD       ,RCVD
+USE YOMCVER  , ONLY : LVERTFE
+USE YOMGEM   , ONLY : VAF      ,VBF      ,TOPPRES
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KPROMA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFLEV 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KSTART 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KPROF 
+REAL(KIND=JPRB)                  :: PVAH(0:KFLEV) ! Argument NOT used
+REAL(KIND=JPRB)                  :: PVBH(0:KFLEV) ! Argument NOT used
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PALPH(KPROMA,KFLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PRESH(KPROMA,0:KFLEV) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PRESF(KPROMA,KFLEV) 
+
+!     ------------------------------------------------------------------
+
+INTEGER(KIND=JPIM) :: IFIRST, JLEV, JLON
+REAL(KIND=JPRB) :: ZMUL
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('GPPREF',0,ZHOOK_HANDLE)
+
+!     ------------------------------------------------------------------
+
+!*       1.    Level to begin normal computations
+!              ----------------------------------
+
+! This is introduced to allow the use of GPPREF without the implicit
+! assumption that the top level input for pressure is 0 hPa.
+! This restriction is only necessary in the case of use of NDLNPR=1.
+!
+! LVERTFE : .T./.F. Finite element/conventional vertical discretisation.
+! NDLNPR  : NDLNPR=0: conventional formulation of delta, i.e. ln(P(l)/P(l-1)).
+!           NDLNPR=1: formulation of delta used in non hydrostatic model,
+! LAPRXPK : way of computing full-levels pressures in primitive equation
+!
+LVERTFE=.TRUE.    !!!!! A REVOIR (MPL) comment faut-il vraiment calculer PRESF ?
+
+IF ((.NOT.LVERTFE).AND.(NDLNPR == 1)) THEN
+  IF(PRESH(KSTART,0) <= TOPPRES)THEN
+    IFIRST=2
+  ELSE
+    IFIRST=1
+    DO JLON=KSTART,KPROF
+      IF(PRESH(JLON,0) <= TOPPRES)THEN
+        IFIRST=2
+        EXIT
+      ENDIF
+    ENDDO
+  ENDIF
+ENDIF
+
+!     ------------------------------------------------------------------
+
+!*       2.    COMPUTES FULL LEVEL PRESSURES.
+!              ------------------------------
+
+IF (LVERTFE) THEN
+  DO JLEV=1,KFLEV
+!   print *,'GPPREF: LVERTFE KFLEV KSTART KPROF JLEV',LVERTFE,KFLEV,KSTART,KPROF,JLEV
+    PRESF(KSTART:KPROF,JLEV)=VAF(JLEV)+VBF(JLEV)*PRESH(KSTART:KPROF,KFLEV)  
+  ENDDO
+ELSE
+  IF (NDLNPR == 0) THEN
+    IF (LAPRXPK) THEN
+      DO JLEV=1,KFLEV
+        DO JLON=KSTART,KPROF
+          PRESF(JLON,JLEV)=(PRESH(JLON,JLEV-1)+PRESH(JLON,JLEV))*0.5_JPRB
+        ENDDO
+      ENDDO
+    ELSE
+      DO JLEV=1,KFLEV
+        DO JLON=KSTART,KPROF
+          PRESF(JLON,JLEV)=EXP(-PALPH(JLON,JLEV))*PRESH(JLON,JLEV)
+        ENDDO
+      ENDDO
+    ENDIF
+  ELSEIF (NDLNPR == 1) THEN
+    DO JLEV=IFIRST,KFLEV
+      DO JLON=KSTART,KPROF
+        PRESF(JLON,JLEV)=(1.0_JPRB-PALPH(JLON,JLEV))*PRESH(JLON,JLEV)
+      ENDDO
+    ENDDO
+    ZMUL=1.0_JPRB/(2.0_JPRB+RCVD/RD)
+    DO JLEV=1,IFIRST-1
+      DO JLON=KSTART,KPROF
+        PRESF(JLON,JLEV)=PRESH(JLON,JLEV)*ZMUL
+      ENDDO
+    ENDDO
+  ENDIF
+ENDIF
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('GPPREF',1,ZHOOK_HANDLE)
+END SUBROUTINE GPPREF
Index: LMDZ5/trunk/libf/phylmd/rrtm/gppref.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/gppref.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/gppref.intfb.h	(revision 1989)
@@ -0,0 +1,14 @@
+INTERFACE
+SUBROUTINE GPPREF(KPROMA,KSTART,KPROF,KFLEV,PVAH,PVBH,PALPH,PRESH,PRESF)
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KPROMA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFLEV
+INTEGER(KIND=JPIM),INTENT(IN) :: KSTART
+INTEGER(KIND=JPIM),INTENT(IN) :: KPROF
+REAL(KIND=JPRB) :: PVAH(0:KFLEV)
+REAL(KIND=JPRB) :: PVBH(0:KFLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PALPH(KPROMA,KFLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PRESH(KPROMA,0:KFLEV)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PRESF(KPROMA,KFLEV)
+END SUBROUTINE GPPREF
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/gppreh.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/gppreh.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/gppreh.F90	(revision 1989)
@@ -0,0 +1,76 @@
+SUBROUTINE GPPREH(KPROMA,KSTART,KPROF,KFLEV,PVAH,PVBH,PRESH)
+
+!**** *GPPREH* - Computes half and full level pressure
+
+!     Purpose.
+!     --------
+!           Computes pressures at half and full model levels.
+
+!**   Interface.
+!     ----------
+!        *CALL* *GPPREH(KPROMA,KSTART,KPROF,KFLEV,PVAH,PVBH,PRESH)
+
+!        Explicit arguments :
+!        --------------------
+!                              KPROMA :  dimensioning
+!                              KSTART :  start of work
+!                              KPROF  :  depth of work
+!                              KFLEV     : vert. dimensioning
+!                              PRESH(KPROMA,0:KFLEV) - HALF LEVEL PRESSURE
+!                              PVAH(KFLEV),PVBH(KFLEV)- vertical coordinate
+!        Implicit arguments :  NONE.
+!        --------------------
+
+!     Method.
+!     -------
+!        See documentation
+
+!     Externals.  None.
+!     ----------
+
+!     Reference.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+!     Half level P:     PHk = Ak + Bk * Ps
+
+!     Author.
+!     -------
+!        Erik Andersson, Mats Hamrud and Philippe Courtier  *ECMWF*
+
+!     Modifications.
+!     --------------
+!        Original : 92-11-23
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KPROMA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFLEV 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KSTART 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KPROF 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PVAH(0:KFLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PVBH(0:KFLEV) 
+REAL(KIND=JPRB)   ,INTENT(INOUT) :: PRESH(KPROMA,0:KFLEV) 
+INTEGER(KIND=JPIM) :: JLEV, JLON
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!     ------------------------------------------------------------------
+
+!*       1.    COMPUTES HALF LEVEL PRESSURES.
+!              ------------------------------
+
+IF (LHOOK) CALL DR_HOOK('GPPREH',0,ZHOOK_HANDLE)
+DO JLEV=0,KFLEV-1
+  DO JLON=KSTART,KPROF
+    PRESH(JLON,JLEV)=PVAH(JLEV)+PVBH(JLEV)*PRESH(JLON,KFLEV)
+  ENDDO
+ENDDO
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('GPPREH',1,ZHOOK_HANDLE)
+END SUBROUTINE GPPREH
Index: LMDZ5/trunk/libf/phylmd/rrtm/gppreh.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/gppreh.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/gppreh.intfb.h	(revision 1989)
@@ -0,0 +1,12 @@
+INTERFACE
+SUBROUTINE GPPREH(KPROMA,KSTART,KPROF,KFLEV,PVAH,PVBH,PRESH)
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KPROMA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFLEV
+INTEGER(KIND=JPIM),INTENT(IN) :: KSTART
+INTEGER(KIND=JPIM),INTENT(IN) :: KPROF
+REAL(KIND=JPRB) ,INTENT(IN) :: PVAH(0:KFLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PVBH(0:KFLEV)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PRESH(KPROMA,0:KFLEV)
+END SUBROUTINE GPPREH
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/gpxyb.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/gpxyb.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/gpxyb.F90	(revision 1989)
@@ -0,0 +1,240 @@
+SUBROUTINE GPXYB(KPROMA,KSTART,KPROF,KFLEV,PVDELB,PVC,&
+ & PRES,PDELP,PRDELP,PLNPR,PALPH,PRTGR,&
+ & PRPRES,PRPP)  
+
+!**** *GPXYB* - Computes auxillary arrays
+
+!     Purpose.
+!     --------
+!           COMPUTES AUXILLARY ARRAYS RELATED TO THE HYBRID COORDINATE
+
+!**   Interface.
+!     ----------
+!        *CALL* *GPXYB(..)
+
+!        Explicit arguments :
+!        --------------------
+!     KPROMA : dimensioning
+!     KSTART : start of work
+!     KPROF  : depth of work
+!     KFLEV     : vert. dimensioning
+
+!     PVDELB(KPROMA,0:KFLEV) : related to vert. coordinate        (input)
+!     PVC   (KPROMA,0:KFLEV) :  "     "      "     "    "         (input)
+!     PRES (KPROMA,0:KFLEV)  : HALF LEVEL PRESSURE                (input)
+!     PDELP (KPROMA,KFLEV)   : PRESSURE DIFFERENCE ACROSS LAYERS  (output)
+!     PRDELP(KPROMA,KFLEV)   : THEIR INVERSE                      (output)
+!     PLNPR (KPROMA,KFLEV)   : LOGARITHM OF RATIO OF PRESSURE     (output)
+!     PALPH (KPROMA,KFLEV)   : COEFFICIENTS OF THE HYDROSTATICS   (output)
+!     PRTGR (KPROMA,KFLEV)   : FOR PRES. GRAD. TERM AND ENE. CONV.(output)
+!                              ((rssavnabla prehyd/prehyd)_[layer]
+!                              = prtgr_[layer] * (rssavnabla prehyds))
+!     PRPRES(KPROMA,KFLEV)   : inverse of HALF LEVEL PRESSURE     (output)
+!     PRPP  (KPROMA,KFLEV)   : inverse of PRES(J)*PRES(J-1)       (output)
+
+!        Implicit arguments :  None.
+!        --------------------
+
+!     Method.
+!     -------
+!        See documentation
+
+!     Externals.      None.
+!     ----------
+
+!     Reference.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+
+!     Author.
+!     -------
+!        Mats Hamrud and Philippe Courtier  *ECMWF*
+
+!     Modifications.
+!     --------------
+!        Original : 88-02-04
+!        Modified : 94-10-11 by Radmila Bubnova: correction in the case
+!                            of the other approximation of d (ln p).
+!        Modified : 99-06-04 Optimisation   D.SALMOND
+!        Modified : 02-03-08 K. YESSAD: consistent discretisations of
+!                    "alpha" (PALPH) and "prtgr" (PRTGR)
+!                    for finite element vertical discretisation
+!                    to allow model to run with MF-physics and DDH.
+!        Modified : 03-07-07 J. Hague:  Replace divides with reciprocal
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        Modified : 15-Feb-2005 by K. YESSAD: ZTOPPRES becomes TOPPRES
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOMDYN   , ONLY : NDLNPR   ,RHYDR0
+USE YOMCST   , ONLY : RD       ,RCVD
+USE YOMGEM   , ONLY : VDELA    ,VAF      ,VBF      ,TOPPRES
+USE YOMCVER  , ONLY : LVERTFE
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KPROMA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFLEV 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KSTART 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KPROF 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PVDELB(KFLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PVC(KFLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PRES(KPROMA,0:KFLEV) 
+REAL(KIND=JPRB)   ,INTENT(INOUT) :: PDELP(KPROMA,KFLEV) 
+REAL(KIND=JPRB)   ,INTENT(INOUT) :: PRDELP(KPROMA,KFLEV) 
+REAL(KIND=JPRB)   ,INTENT(INOUT) :: PLNPR(KPROMA,KFLEV) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PALPH(KPROMA,KFLEV) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PRTGR(KPROMA,KFLEV) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PRPRES(KPROMA,KFLEV) 
+REAL(KIND=JPRB)   ,INTENT(INOUT) :: PRPP(KPROMA,KFLEV) 
+
+!     ------------------------------------------------------------------
+
+INTEGER(KIND=JPIM) :: IFIRST, JLEV, JLON, JJ, JTEMP, JM
+
+REAL(KIND=JPRB) :: ZPRESF
+REAL(KIND=JPRB) :: ZRPRES(KPROMA,2)
+REAL(KIND=JPRB) :: ZPRESFD
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!     ------------------------------------------------------------------
+
+#include "abor1.intfb.h"
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('GPXYB',0,ZHOOK_HANDLE)
+
+!     ------------------------------------------------------------------
+
+!*       0.    Level to begin normal computations
+!              ----------------------------------
+
+! This is introduced to allow the use of GPXYB without the implicit
+! assumption that the top level input for pressure is 0 hPa. This
+! is used in the surface observation operators where you do not want
+! to compute geopotential at all model levels.
+! The first block if is for economy (no do loop start up) and the second
+! for safety.
+!print *,'GPXYB: NDLNPR RHYDR0=',NDLNPR,RHYDR0
+TOPPRES=0.1  !!!!! A REVOIR (MPL) 29042010 passe de 0 a 0.1 comme ARPEGE
+IF(PRES(KSTART,0) <= TOPPRES)THEN
+  IFIRST=2
+ELSE
+  IFIRST=1
+  DO JLON=KSTART,KPROF
+    IF(PRES(JLON,0) <= TOPPRES)then
+      IFIRST=2
+      EXIT
+    ENDIF
+  ENDDO
+ENDIF
+!     ------------------------------------------------------------------
+
+!*       1.    COMPUTES EVERYTHING.
+!              --------------------
+
+!print *,'NDLNPR LVERTFE',NDLNPR,LVERTFE
+IF(NDLNPR == 0) THEN
+
+  IF(LVERTFE) THEN
+    DO JLEV=1,KFLEV
+      DO JLON=KSTART,KPROF
+        PDELP(JLON,JLEV)=VDELA(JLEV) + PVDELB(JLEV)*PRES(JLON,KFLEV)
+        PRDELP(JLON,JLEV)=1.0_JPRB/PDELP(JLON,JLEV)
+        ZPRESF =VAF(JLEV) + VBF(JLEV)*PRES(JLON,KFLEV)
+        ZPRESFD=1.0_JPRB/ZPRESF
+        PLNPR(JLON,JLEV)=PDELP(JLON,JLEV)*ZPRESFD
+        ! * PRTGR needed for DDH and option LVERCOR=T.
+        !   for finite element vertical discretisation,
+        !   "prtgr_[layer]" is simply B_[layer]/prehyd_[layer]
+        PRTGR (JLON,JLEV)=VBF(JLEV)*ZPRESFD
+        ! * PALPH needed for MF physics:
+        PALPH(JLON,JLEV)=(PRES(JLON,JLEV)-ZPRESF)*ZPRESFD
+      ENDDO
+    ENDDO
+  ELSE
+    JJ=1
+    JM=2
+    DO JLON=KSTART,KPROF
+      ZRPRES(JLON,JM)=1.0_JPRB/PRES(JLON,IFIRST-1)
+    ENDDO
+    DO JLEV=IFIRST,KFLEV
+      DO JLON=KSTART,KPROF
+        ZRPRES(JLON,JJ)=1.0_JPRB/PRES(JLON,JLEV)
+        PDELP (JLON,JLEV)=PRES(JLON,JLEV)-PRES(JLON,JLEV-1)
+        PRDELP(JLON,JLEV)=1.0_JPRB/PDELP(JLON,JLEV)
+        PLNPR (JLON,JLEV)=LOG(PRES(JLON,JLEV)*ZRPRES(JLON,JM))
+        PRPRES(JLON,JLEV)=ZRPRES(JLON,JJ)
+        PALPH (JLON,JLEV)=1.0_JPRB-PRES(JLON,JLEV-1)*PRDELP(JLON,JLEV)&
+         & *PLNPR(JLON,JLEV)  
+        PRPP  (JLON,JLEV)=ZRPRES(JLON,JJ)*ZRPRES(JLON,JM)
+        PRTGR (JLON,JLEV)=PRDELP(JLON,JLEV)&
+         & *(PVDELB(JLEV)+PVC(JLEV)*PLNPR(JLON,JLEV)*PRDELP(JLON,&
+         & JLEV))  
+!       print *,'GPXYB JLEV JLON JJ PRES ZPRES PDELP ', JLEV,JLON,JJ,PRES(JLON,JLEV),ZRPRES(JLON,JJ),PDELP(JLON,JLEV)
+!       print *,'GPXYB JLEV JLON JM PRDELP PLNPR ', JLEV,JLON,JM,PRDELP(JLON,JLEV),PLNPR (JLON,JLEV)
+!       print *,'GPXYB JLEV JLON JJ PRPRES PALPH ', JLEV,JLON,JJ,PRPRES(JLON,JLEV),PALPH (JLON,JLEV)
+!       print *,'GPXYB JLEV JLON PRPP PRTGR PVDELB PVC ', JLEV,JLON,PRPP  (JLON,JLEV),PRTGR (JLON,JLEV),PVDELB(JLEV),PVC(JLEV)
+      ENDDO
+      JTEMP=JM
+      JM=JJ
+      JJ=JTEMP
+    ENDDO
+    DO JLEV=1,IFIRST-1
+      DO JLON=KSTART,KPROF
+        PDELP (JLON,JLEV)=PRES(JLON,JLEV)-PRES(JLON,JLEV-1)
+        PRDELP(JLON,JLEV)=1.0_JPRB/PDELP(JLON,JLEV)
+        PLNPR (JLON,JLEV)=LOG(PRES(JLON,1)/TOPPRES)
+        PRPRES(JLON,JLEV)=1.0_JPRB/PRES(JLON,1)
+        PALPH (JLON,JLEV)=RHYDR0
+        PRPP  (JLON,JLEV)=1.0_JPRB/(PRES(JLON,1)*TOPPRES)
+        PRTGR (JLON,JLEV)=PRDELP(JLON,JLEV)*PVDELB(JLEV)
+      ENDDO
+    ENDDO
+  ENDIF
+
+ELSEIF(NDLNPR == 1) THEN
+  IF(LVERTFE) THEN
+    CALL ABOR1(' LVERTFE=.T. NOT COMPATIBLE WITH NDLNPR == 1')
+  ENDIF
+
+  DO JLEV=IFIRST,KFLEV
+    DO JLON=KSTART,KPROF
+      PDELP (JLON,JLEV)=PRES(JLON,JLEV)-PRES(JLON,JLEV-1)
+      PRDELP(JLON,JLEV)=1.0_JPRB/PDELP(JLON,JLEV)
+      PRPP  (JLON,JLEV)=1.0_JPRB/(PRES(JLON,JLEV)*PRES(JLON,JLEV-1))
+      PLNPR (JLON,JLEV)=PDELP(JLON,JLEV)*SQRT(PRPP(JLON,JLEV))
+      PALPH (JLON,JLEV)=1.0_JPRB-PRES(JLON,JLEV-1)*PRDELP(JLON,JLEV)&
+       & *PLNPR(JLON,JLEV)  
+      PRTGR (JLON,JLEV)=PRDELP(JLON,JLEV)&
+       & *(PVDELB(JLEV)+PVC(JLEV)*PLNPR(JLON,JLEV)*PRDELP(JLON,&
+       & JLEV))  
+      PRPRES(JLON,JLEV)=1.0_JPRB/PRES(JLON,JLEV)
+    ENDDO
+  ENDDO
+
+  DO JLEV=1,IFIRST-1
+    DO JLON=KSTART,KPROF
+      PDELP (JLON,JLEV)=PRES(JLON,JLEV)
+      PRDELP(JLON,JLEV)=1.0_JPRB/PDELP(JLON,JLEV)
+      PLNPR (JLON,JLEV)=2.0_JPRB+RCVD/RD
+      PALPH (JLON,JLEV)=1.0_JPRB
+      PRTGR (JLON,JLEV)=PRDELP(JLON,JLEV)*PVDELB(JLEV)
+      PRPRES(JLON,JLEV)=1.0_JPRB/PRES(JLON,1)
+      PRPP  (JLON,JLEV)=(PLNPR(JLON,JLEV)*PRDELP(JLON,JLEV))**2
+    ENDDO
+  ENDDO
+
+ENDIF
+
+! (PLNPR(JLON,1) AND PRPP(JLON,1) ARE A PRIORI NOT USED LATER)
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('GPXYB',1,ZHOOK_HANDLE)
+END SUBROUTINE GPXYB
Index: LMDZ5/trunk/libf/phylmd/rrtm/gpxyb.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/gpxyb.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/gpxyb.intfb.h	(revision 1989)
@@ -0,0 +1,21 @@
+INTERFACE
+SUBROUTINE GPXYB(KPROMA,KSTART,KPROF,KFLEV,PVDELB,PVC,&
+ & PRES,PDELP,PRDELP,PLNPR,PALPH,PRTGR,&
+ & PRPRES,PRPP) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KPROMA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFLEV
+INTEGER(KIND=JPIM),INTENT(IN) :: KSTART
+INTEGER(KIND=JPIM),INTENT(IN) :: KPROF
+REAL(KIND=JPRB) ,INTENT(IN) :: PVDELB(KFLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PVC(KFLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PRES(KPROMA,0:KFLEV)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PDELP(KPROMA,KFLEV)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PRDELP(KPROMA,KFLEV)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PLNPR(KPROMA,KFLEV)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PALPH(KPROMA,KFLEV)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PRTGR(KPROMA,KFLEV)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PRPRES(KPROMA,KFLEV)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PRPP(KPROMA,KFLEV)
+END SUBROUTINE GPXYB
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/gridpoint_buffers.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/gridpoint_buffers.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/gridpoint_buffers.F90	(revision 1989)
@@ -0,0 +1,117 @@
+MODULE GRIDPOINT_BUFFERS
+
+!     Purpose.
+!     --------
+!           GRIDPOINT_BUFFERS defines the type "gridpoint buffer",
+!           and the operations to create and destroy instances of
+!           the type.
+
+!     Author.
+!     -------
+!        Mike Fisher *ECMWF*
+
+!     Modifications.
+!     --------------
+!        Original : 1999-11-10
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOMCT0   , ONLY : NPRINTLEV , LALLOPR
+USE YOMGEM   , ONLY : NGPTOT
+USE YOMLUN   , ONLY : NULOUT
+
+IMPLICIT NONE
+SAVE
+
+PRIVATE
+PUBLIC gridpoint_buffer, &
+ & ALLOCATE_GRIDPOINT_BUFFER, &
+ & ALLOCATED_GRIDPOINT_BUFFER, &
+ & DEALLOCATE_GRIDPOINT_BUFFER  
+
+TYPE gridpoint_buffer 
+CHARACTER(LEN=1), POINTER :: CLNAME(:)
+INTEGER(KIND=JPIM) :: IFIELDS
+INTEGER(KIND=JPIM) :: IDGEN
+INTEGER(KIND=JPIM) :: IDGENL
+INTEGER(KIND=JPIM) :: IBLEN
+INTEGER(KIND=JPIM) :: IPACK
+LOGICAL   :: LFILLED
+REAL(KIND=JPRB),    POINTER :: GPBUF(:)
+END TYPE gridpoint_buffer
+
+#include "abor1.intfb.h"
+
+!-----------------------------------------------------------------------
+
+CONTAINS
+SUBROUTINE ALLOCATE_GRIDPOINT_BUFFER (CDNAME,YDGPBUF,KFIELDS,KPACK, &
+                                &     KGPTOT)
+
+TYPE (gridpoint_buffer),INTENT(OUT)        :: YDGPBUF
+CHARACTER(LEN=*) , INTENT(IN)  :: CDNAME
+INTEGER(KIND=JPIM)        , INTENT(IN)  :: KFIELDS,KPACK
+INTEGER(KIND=JPIM)        , INTENT(IN),OPTIONAL  :: KGPTOT
+
+INTEGER(KIND=JPIM)   ::   J, IGPTOT
+REAL(KIND=JPRB)      :: ZDUM
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('GRIDPOINT_BUFFERS:ALLOCATE_GRIDPOINT_BUFFER',0,ZHOOK_HANDLE)
+
+IF(PRESENT(KGPTOT))THEN
+   IGPTOT=KGPTOT
+ELSE
+   IGPTOT=NGPTOT
+ENDIF
+
+ALLOCATE (YDGPBUF%CLNAME(LEN(CDNAME)))
+
+DO J=1,LEN(CDNAME)
+  YDGPBUF%CLNAME(J)  = CDNAME(J:J)
+ENDDO
+
+YDGPBUF%IFIELDS = KFIELDS
+YDGPBUF%IPACK   = KPACK
+
+IF (KPACK > 1) CALL ABOR1('ALLOCATE_GRIDPOINT_BUFFER: KPACK > 1')
+YDGPBUF%IBLEN = IGPTOT  * KFIELDS
+
+ALLOCATE (YDGPBUF%GPBUF(YDGPBUF%IBLEN))
+IF (NPRINTLEV >= 1.OR. LALLOPR) &
+ & WRITE(NULOUT,91) CDNAME,SIZE(YDGPBUF%GPBUF),SHAPE(YDGPBUF%GPBUF)  
+YDGPBUF%GPBUF(:) = HUGE(ZDUM)
+YDGPBUF%LFILLED = .FALSE.
+
+IF (LHOOK) CALL DR_HOOK('GRIDPOINT_BUFFERS:ALLOCATE_GRIDPOINT_BUFFER',1,ZHOOK_HANDLE)
+91  FORMAT(1X,'ALLOCATED GRIDPOINT BUFFER ',A,', SIZE=',I8,', SHAPE=',7I8)
+END SUBROUTINE ALLOCATE_GRIDPOINT_BUFFER
+
+SUBROUTINE DEALLOCATE_GRIDPOINT_BUFFER (YDGPBUF)
+TYPE (gridpoint_buffer),INTENT(INOUT) :: YDGPBUF
+INTEGER(KIND=JPIM) :: J
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('GRIDPOINT_BUFFERS:DEALLOCATE_GRIDPOINT_BUFFER',0,ZHOOK_HANDLE)
+IF (NPRINTLEV >= 1.OR. LALLOPR) &
+ & WRITE(NULOUT,92) (YDGPBUF%CLNAME(J),J=1,SIZE(YDGPBUF%CLNAME))  
+
+DEALLOCATE (YDGPBUF%GPBUF)
+DEALLOCATE (YDGPBUF%CLNAME)
+YDGPBUF%LFILLED = .FALSE.
+
+IF (LHOOK) CALL DR_HOOK('GRIDPOINT_BUFFERS:DEALLOCATE_GRIDPOINT_BUFFER',1,ZHOOK_HANDLE)
+92  FORMAT(1X,'DEALLOCATED GRIDPOINT BUFFER:,',100A1)
+END SUBROUTINE DEALLOCATE_GRIDPOINT_BUFFER
+
+LOGICAL FUNCTION ALLOCATED_GRIDPOINT_BUFFER (YDGPBUF)
+TYPE (gridpoint_buffer),INTENT(IN) :: YDGPBUF
+ALLOCATED_GRIDPOINT_BUFFER =  ASSOCIATED (YDGPBUF%GPBUF)
+END FUNCTION ALLOCATED_GRIDPOINT_BUFFER
+
+END MODULE GRIDPOINT_BUFFERS
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/gstats.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/gstats.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/gstats.F90	(revision 1989)
@@ -0,0 +1,309 @@
+SUBROUTINE GSTATS(KNUM,KSWITCH)
+
+!**** *GSTATS*  - Gather timing statistics
+
+!     PURPOSE.
+!     --------
+!       To gather timings for subsequent output by routine STATS_OUTPUT 
+
+
+!**   INTERFACE.
+!     ----------
+!       *CALL* *GSTATS(KNUM,KSWITCH)
+
+!        EXPLICIT ARGUMENTS
+!        --------------------
+!        KNUM - timing event number (for list of already defined events
+!               see routine STATS_OUTPUT)
+!        KSWITCH  - KSWITCH=0 - switch on timer
+!                   KSWITCH=1 - switch off timer
+!                   KSWITCH=2 - suspend timer
+!                   KSWITCH=3 - resume  timer
+
+!        IMPLICIT ARGUMENTS
+!        --------------------
+!        Module YOMSTATS
+
+!     METHOD.
+!     -------
+
+
+!     EXTERNALS.   USER_CLOCK - timing routine
+!     ----------   MPL_BARRIER - syncronization of processors
+
+!     REFERENCE.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+
+!     AUTHOR.
+!     -------
+!        Mats Hamrud ECMWF
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 98-11-15
+!        D.Salmond: 02-02-25  Return if not master thread when called from a 
+!                             parallel region. 
+!        J.Hague:   03-06-11  Memory tracing (for NSTATS_MEM MPI tasks)
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB     ,JPIB
+USE YOMHOOK   ,ONLY : LHOOK, DR_HOOK
+
+USE YOMGSTATS  
+!USE MPL_MODULE   ! MPL 28.11.08
+USE YOMOML
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN) :: KNUM
+INTEGER(KIND=JPIM),INTENT(IN) :: KSWITCH
+
+INTEGER(KIND=JPIM) :: IMOD,ICALL
+INTEGER(KIND=JPIM) :: IIMEM, IIPAG, IIMEMC
+INTEGER(KIND=JPIB) :: IMEM, IMEMH, IMEMS, IMEMC, IPAG, INUM
+INTEGER(KIND=JPIB) :: GETRSS, GETHWM, GETSTK, GETCURHEAP, GETPAG
+EXTERNAL GETRSS, GETHWM, GETSTK, GETCURHEAP, GETPAG
+REAL(KIND=JPRB) :: ZTIMED,ZCLOCK,ZTIME,ZTCPU,ZVCPU
+REAL(KIND=JPRB) :: ZLAST_PAR_TIME
+LOGICAL :: LLFIRST=.TRUE.
+LOGICAL :: LLMFIRST=.TRUE.
+  CHARACTER(LEN=32), SAVE :: CCDESC_DRHOOK(JPMAXSTAT)
+  CHARACTER(LEN=32), SAVE :: CCDESC_BARR(JPMAXSTAT)
+SAVE ZLAST_PAR_TIME
+SAVE IIMEM, IIPAG, IIMEMC
+
+INTEGER(KIND=JPIM),SAVE :: NUM_THREADS
+REAL(KIND=JPRB),ALLOCATABLE,SAVE :: ZHOOK_HANDLE(:)
+REAL(KIND=JPRB),SAVE :: ZHOOK_HANDLE_COMMS, ZHOOK_HANDLE_COMMS1
+REAL(KIND=JPRB),SAVE :: ZHOOK_HANDLE_TRANS
+REAL(KIND=JPRB),SAVE :: ZHOOK_HANDLE_BARR
+CHARACTER*4 CC
+
+INTEGER(KIND=JPIM) :: NMAX_STATS, KULNAM
+
+INTERFACE
+#include "user_clock.h"
+END INTERFACE
+
+! write(0,*) "GSTATS:LSTATS,JPMAXSTAT,LGSTATS_LABEL,KNUM=",LSTATS,JPMAXSTAT,LGSTATS_LABEL,KNUM
+
+IF(LSTATS) THEN
+
+  IF(.NOT.ALLOCATED(ZHOOK_HANDLE))THEN
+    NUM_THREADS=OML_MAX_THREADS()
+    ALLOCATE(ZHOOK_HANDLE(NUM_THREADS))
+  ENDIF
+
+  IF(LGSTATS_LABEL)THEN
+    DO INUM=1,JPMAXSTAT
+      WRITE(CC,'(I4)')INUM
+      CCDESC_BARR(INUM)='>BAR-'//CCDESC(INUM)(1:21)//'('//CC//')'
+    ENDDO
+    DO INUM=1,JPMAXSTAT
+      WRITE(CC,'(I4)')INUM
+!     write(6,*) inum,cctype(inum)
+      IF(CCTYPE(INUM).EQ."TRS".OR.CCTYPE(INUM).EQ.'MP-'.OR.CCTYPE(INUM).EQ.'MPL'&
+                            & .OR.CCTYPE(INUM).EQ.'BAR'.OR.CCTYPE(INUM).EQ.'OMP') THEN
+        CCDESC_DRHOOK(INUM)='>'//CCTYPE(INUM)//'-'//CCDESC(INUM)(1:21)//'('//CC//')'
+      ENDIF
+    ENDDO
+    LGSTATS_LABEL=.FALSE.
+  ENDIF
+!     ------------------------------------------------------------------
+
+!J  IF((KNUM > 1000 .AND.KNUM < 2001).AND.(.NOT.LSTATS_OMP))GOTO 99999
+!J  IF((KNUM > 500  .AND.KNUM < 1001).AND.(.NOT.LSTATS_COMMS))GOTO 99999
+  IF(OML_MY_THREAD() > 1)GOTO 99999
+
+!J  IF(KNUM/=0) THEN
+!J    IF(LSYNCSTATS .AND.(KSWITCH==0.OR. KSWITCH==2)) THEN
+!J      IF(.NOT.OML_IN_PARALLEL().AND. KNUM < 500 )THEN
+!J        IF(LHOOK)CALL DR_HOOK(CCDESC_BARR(KNUM),0,ZHOOK_HANDLE_BARR)
+!J        CALL MPL_BARRIER(CDSTRING='GSTATS:')
+!J        IF(LHOOK)CALL DR_HOOK(CCDESC_BARR(KNUM),1,ZHOOK_HANDLE_BARR)
+!J      ENDIF
+!J    ENDIF
+!J  ENDIF
+
+  IF (LHOOK .AND. (KSWITCH == 0 .OR. KSWITCH == 1)) THEN
+!   write(0,*) "KNUM,SWITCH=",KNUM,KSWITCH
+!   write(0,*) "CCTYPE=",CCTYPE(KNUM)
+!   write(0,*) "CCDESC_DRHOOK=",CCDESC_DRHOOK(KNUM)
+    IF(CCTYPE(KNUM).EQ."TRS")THEN
+      CALL DR_HOOK(CCDESC_DRHOOK(KNUM),KSWITCH,ZHOOK_HANDLE_TRANS)
+    ELSEIF(CCTYPE(KNUM).EQ.'MP-')THEN
+      CALL DR_HOOK(CCDESC_DRHOOK(KNUM),KSWITCH,ZHOOK_HANDLE_COMMS)
+    ELSEIF(CCTYPE(KNUM).EQ.'MPL'.AND.KNUM.NE.682)THEN
+      CALL DR_HOOK(CCDESC_DRHOOK(KNUM),KSWITCH,ZHOOK_HANDLE_COMMS1)
+    ELSEIF(CCTYPE(KNUM).EQ.'OMP')THEN
+!     CALL DR_HOOK(CCDESC_DRHOOK(KNUM),KSWITCH,ZHOOK_HANDLE)
+! MPL 1.12.08 : erreur a la compilation car zhook_handle est un tableau et non un
+! scalaire (PKEY)
+      CALL DR_HOOK(CCDESC_DRHOOK(KNUM),KSWITCH,ZTIME)
+    ELSEIF(CCTYPE(KNUM).EQ.'BAR')THEN
+      CALL DR_HOOK(CCDESC_DRHOOK(KNUM),KSWITCH,ZHOOK_HANDLE_BARR)
+    ENDIF
+  ENDIF
+
+  CALL USER_CLOCK(PELAPSED_TIME=ZCLOCK)
+  IF (LSTATSCPU.OR.KNUM==0) THEN
+    CALL USER_CLOCK(PTOTAL_CP=ZTCPU,PVECTOR_CP=ZVCPU)
+  ELSE
+    ZTCPU = 0.0_JPRB
+    ZVCPU = 0.0_JPRB
+  ENDIF
+
+  IF (LLFIRST) THEN
+
+!   write(0,*) "JPMAXSTAT:2=",JPMAXSTAT
+
+    NCALLS(:) = 0
+    TIMESUM(:) = 0.0_JPRB
+    TIMESQSUM(:) = 0.0_JPRB
+    TIMEMAX(:) = 0.0_JPRB
+    TIMESUMB(:) = 0.0_JPRB
+    TTCPUSUM(:) = 0.0_JPRB
+    TVCPUSUM(:) = 0.0_JPRB
+    TIMELCALL(:) = ZCLOCK
+    CCDESC=""
+    CCTYPE=""
+    NTMEM      = 0
+    NTMEM(:,5) = 99999999
+    IIMEM=0
+    IIPAG=0
+    IIMEMC=0
+    TIME_LAST_CALL = ZCLOCK
+    ZLAST_PAR_TIME=ZCLOCK
+    LLFIRST = .FALSE.
+  ENDIF
+
+  IF(KNUM < 0.OR. KNUM > JPMAXSTAT) CALL ABOR1('GSTATS')
+  IF(KSWITCH == 0.OR. KSWITCH == 1) THEN
+    NCALLS(KNUM) = NCALLS(KNUM)+1
+  ENDIF
+  IMOD = MOD(NCALLS(KNUM),2)
+  IF(.NOT.((KSWITCH == 0.AND. IMOD == 1) .OR.&
+   &(KSWITCH == 2.AND. IMOD == 1) .OR.&
+   &(KSWITCH == 3.AND. IMOD == 1) .OR.&
+   &(KSWITCH == 1.AND. IMOD == 0))) THEN
+    WRITE(JPERR,*) 'KNUM,KSWITCH,IMOD,NCALLS(KNUM)',&
+     &KNUM,KSWITCH,IMOD,NCALLS(KNUM)
+    CALL ABOR1('GSTATS')
+  ENDIF
+
+  IF( KSWITCH == 0 ) THEN
+! Start timing event
+    IF(KNUM < 500) THEN
+      ZTIMED = ZCLOCK-TIME_LAST_CALL
+    ELSE
+      ZTIMED = ZCLOCK - ZLAST_PAR_TIME
+    ENDIF
+    TIMESUMB(KNUM) = TIMESUMB(KNUM)+ZTIMED
+    THISTIME(KNUM) = 0.0_JPRB
+    TIMELCALL(KNUM) = ZCLOCK
+    TTCPULCALL(KNUM) = ZTCPU
+    TVCPULCALL(KNUM) = ZVCPU
+    THISTCPU(KNUM) = 0.0_JPRB
+    THISVCPU(KNUM) = 0.0_JPRB
+    IF(MYPROC_STATS.LE.NSTATS_MEM.AND.MYPROC_STATS.NE.0) THEN
+!     CALL getrss(IMEM)
+!     IMEM = getrss()/1024
+      IPAG = getpag()
+      IMEMH = gethwm()/1024
+      IMEMS = getstk()/1024
+      IMEMC = 0
+      IF(LSTATS_ALLOC) IMEMC = GETCURHEAP()/1024
+      IF(IMEM > IIMEM.OR.IPAG > IIPAG.OR.(LSTATS_ALLOC.AND.(IMEMC.NE.IIMEMC))) THEN
+        IF(LLMFIRST) THEN
+          WRITE(0,*) ".---------------------------------------------------------"
+          WRITE(0,*) "| Memory trace details"
+          WRITE(0,*) "| --------------------"
+          WRITE(0,*) "| Memory examined at each GSTATS call if NSTATS_MEM>0."
+          WRITE(0,*) "| Header for each trace line is:"    
+          WRITE(0,*) "|"
+          WRITE(0,*) "|   RSS_INC: Increase in RSS_MAX (KB)"
+          WRITE(0,*) "|   RSS_MAX: Maximum real working set so far (KB)"
+          WRITE(0,*) "|   HEAP_MX: High Water Mark for heap so far (KB)"
+          WRITE(0,*) "|   STK:     Current Stack usage (KB)"
+          WRITE(0,*) "|   PGS:     Page faults w I/O since last trace line"
+          WRITE(0,*) "|   CALL:    Number of gstats call"
+          WRITE(0,*) "|   HEAP:    Current malloc'd total (KB)"
+          WRITE(0,*) "|" 
+          WRITE(0,*) "| Trace line written for NSTATS_MEM MPI tasks if RSS_MAX"
+          WRITE(0,*) "| RSS_MAX increases, PGS>0, or HEAP changed"
+          WRITE(0,*) "| (if LTATS_ALLOC=.TRUE.)"
+          WRITE(0,*) "`---------------------------------------------------------"
+          WRITE(0,*) ""
+          WRITE(0,'(A10,A5,21X,A7,2A8,A7,A5,A5,A8)') &
+           & "MEMORY    "," KNUM","RSS_INC"," RSS_MAX"," HEAP_MX","    STK", &
+           & "  PGS"," CALL","    HEAP"
+          LLMFIRST=.FALSE.
+        ENDIF
+        WRITE(0,'(A10,I5,1X,A20,1X,I6,2(1X,I7),1X,I6,1X,I4,1X,I4,1X,I7)') &
+             & "MEMORY bfr",KNUM,CCDESC(KNUM),IMEM-IIMEM,IMEM,IMEMH,IMEMS, &
+             & IPAG-IIPAG,(NCALLS(KNUM)+1)/2,IMEMC
+      ENDIF
+      NTMEM(KNUM,2)=IMEM
+      IIMEM=IMEM
+      IIPAG=IPAG
+      IIMEMC=IMEMC
+    ENDIF
+  ELSEIF( KSWITCH == 1 ) THEN
+! Finish timing event
+    ZTIME = THISTIME(KNUM)+(ZCLOCK-TIMELCALL(KNUM))
+    TIMESUM(KNUM) = TIMESUM(KNUM)+ZTIME
+    TIMESQSUM(KNUM) = TIMESQSUM(KNUM)+ZTIME**2
+    TIMEMAX(KNUM) = MAX(TIMEMAX(KNUM),ZTIME)
+    TTCPUSUM(KNUM) = TTCPUSUM(KNUM)+THISTCPU(KNUM)+ZTCPU-TTCPULCALL(KNUM)
+    TVCPUSUM(KNUM) = TVCPUSUM(KNUM)+THISVCPU(KNUM)+ZVCPU-TVCPULCALL(KNUM)
+    IF(MYPROC_STATS.LE.NSTATS_MEM.AND.MYPROC_STATS.NE.0) THEN
+!     CALL getrss(IMEM)
+      IMEM = GETRSS()/1024
+      IPAG = GETPAG()
+      IMEMH = GETHWM()/1024
+      IMEMS = GETSTK()/1024
+      IMEMC = 0
+      IF(LSTATS_ALLOC) IMEMC = GETCURHEAP()/1024
+      IF(IMEM > IIMEM.OR.IPAG > IIPAG.OR.(LSTATS_ALLOC.AND.(IMEMC.NE.IIMEMC))) THEN
+        WRITE(0,'(A10,I5,1X,A20,1X,I6,2(1X,I7),1X,I6,1X,I4,1X,I4,1X,I7)') &
+             & "MEMORY aft ",KNUM,CCDESC(KNUM),IMEM-IIMEM,IMEM,IMEMH,IMEMS, &
+             & IPAG-IIPAG,NCALLS(KNUM)/2,IMEMC
+      ENDIF
+      IIMEM=IMEM
+      IIPAG=IPAG
+      IIMEMC=IMEMC 
+      IMEM=IMEM-NTMEM(KNUM,2)
+      NTMEM(KNUM,4)=NTMEM(KNUM,4)+IMEM
+      IF(IMEM > NTMEM(KNUM,1)) THEN
+        NTMEM(KNUM,1)=IMEM
+        NTMEM(KNUM,3)=NCALLS(KNUM)
+      ENDIF
+      IF(IMEM < NTMEM(KNUM,5)) NTMEM(KNUM,5)=IMEM
+    ENDIF
+  ELSEIF( KSWITCH == 2 ) THEN
+! Suspend timing event
+    ZTIMED = ZCLOCK-TIMELCALL(KNUM)
+    THISTIME(KNUM) = THISTIME(KNUM)+ZTIMED
+    THISTCPU(KNUM) = THISTCPU(KNUM)+ZTCPU-TTCPULCALL(KNUM)
+    THISVCPU(KNUM) = THISVCPU(KNUM)+ZVCPU-TVCPULCALL(KNUM)
+  ELSEIF( KSWITCH == 3 ) THEN
+! Resume timing event
+    TIMELCALL(KNUM) = ZCLOCK
+    TTCPULCALL(KNUM) = ZTCPU
+    TVCPULCALL(KNUM) = ZVCPU
+  ENDIF
+  TIME_LAST_CALL = ZCLOCK
+  IF(KNUM > 500.OR.KNUM == 102.OR.KNUM == 103) ZLAST_PAR_TIME = ZCLOCK
+!   Trace stats
+  NCALLS_TOTAL = NCALLS_TOTAL+1
+  IF (LTRACE_STATS .AND. NCALLS_TOTAL <= NTRACE_STATS) THEN
+    ICALL = NCALLS_TOTAL
+    TIME_TRACE(ICALL) = ZCLOCK
+    NCALL_TRACE(ICALL) = (JPMAXSTAT+1)*KSWITCH+KNUM
+  ENDIF
+
+ENDIF
+
+99999 CONTINUE
+END SUBROUTINE GSTATS
Index: LMDZ5/trunk/libf/phylmd/rrtm/lw.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/lw.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/lw.F90	(revision 1989)
@@ -0,0 +1,182 @@
+SUBROUTINE LW &
+ & ( KIDIA, KFDIA , KLON  , KLEV  , KMODE,&
+ & PCCO2, PCLDLD, PCLDLU,&
+ & PDP  , PDT0  , PEMIS , PEMIW,&
+ & PPMB , PQOF  , PTL,&
+ & PAER , PTAVE , PVIEW , PWV,&
+ & PEMIT, PFLUX , PFLUC &
+ & )  
+
+!**** *LW*   - ORGANIZES THE LONGWAVE CALCULATIONS
+
+!     PURPOSE.
+!     --------
+!           COMPUTES LONGWAVE FLUXES 
+
+!**   INTERFACE.
+!     ----------
+
+!        *LW* IS CALLED FROM *RADLSW*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+! PAER   : (KLON,6,KLEV)     ; OPTICAL THICKNESS OF THE AEROSOLS
+! PCCO2  :                   ; CONCENTRATION IN CO2 (PA/PA)
+! PCLDLD : (KLON,KLEV)       ; DOWNWARD EFFECTIVE CLOUD FRACTION
+! PCLDLU : (KLON,KLEV)       ; UPWARD EFFECTIVE CLOUD FRACTION
+! PDP    : (KLON,KLEV)       ; LAYER PRESSURE THICKNESS
+! PDT0   : (KLON)            ; SURFACE TEMPERATURE DISCONTINUITY  
+! PEMIS  : (KLON)            ; SURFACE LW EMISSIVITY
+! PEMIW  : (KLON)            ; SURFACE LW WINDOW EMISSIVITY
+! PPMB   : (KLON,KLEV+1)     ; HALF LEVEL PRESSURE
+! PQOF   : (KLON,KLEV)       ; CONCENTRATION IN OZONE (PA/PA)
+! PTAVE  : (KLON,KLEV)       ; TEMPERATURE
+! PTL    : (KLON,KLEV+1)     ; HALF LEVEL TEMPERATURE
+! PVIEW  : (KLON)            ; COSECANT OF VIEWING ANGLE
+! PWV    : (KLON,KLEV)       ; SPECIFIC HUMIDITY  (PA/PA)
+!     ==== OUTPUTS ===
+! PEMIT(KLON)                ; SURFACE TOTAL LW EMISSIVITY
+! PFLUX(KLON,2,KLEV+1)       ; RADIATIVE FLUXES :
+!                     1  ==>  UPWARD   FLUX TOTAL
+!                     2  ==>  DOWNWARD FLUX TOTAL
+! PFLUC(KLON,2,KLEV+1)       ; RADIATIVE FLUXES CLEAR SKY:
+!                     1  ==>  UPWARD   FLUX TOTAL
+!                     2  ==>  DOWNWARD FLUX TOTAL
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+!          1. COMPUTES THE PRESSURE AND TEMPERATURE WEIGHTED AMOUNTS OF
+!     ABSORBERS.
+!          2. COMPUTES THE PLANCK FUNCTIONS ON THE INTERFACES AND THE
+!     GRADIENT OF PLANCK FUNCTIONS IN THE LAYERS.
+!          3. PERFORMS THE VERTICAL INTEGRATION DISTINGUISHING THE CON-
+!     TRIBUTIONS OF THE ADJACENT AND DISTANT LAYERS AND THOSE FROM THE
+!     BOUNDARIES.
+!          4. COMPUTES THE CLEAR-SKY DOWNWARD AND UPWARD EMISSIVITIES.
+!          5. INTRODUCES THE EFFECTS OF THE CLOUDS ON THE FLUXES.
+
+!     EXTERNALS.
+!     ----------
+
+!          *LWU*, *LWBV*, *LWC*
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 89-07-14
+!        99-05-25   JJMorcrette    Revised aerosols
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOELW    , ONLY : NUA
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLON 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KIDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KMODE 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCCO2 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCLDLD(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCLDLU(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PDP(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PDT0(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PEMIS(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PEMIW(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PPMB(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PQOF(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTL(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PAER(KLON,6,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAVE(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PVIEW(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PWV(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(INOUT) :: PEMIT(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFLUX(KLON,2,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(INOUT) :: PFLUC(KLON,2,KLEV+1) 
+!-----------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+!-------------------------------------------------------------------------
+
+!              ------------
+REAL(KIND=JPRB) :: ZABCU(KLON,NUA,3*KLEV+1)&
+ & ,  ZBINT(KLON,KLEV+1)        , ZBSUI(KLON)&
+ & ,  ZCNTRB(KLON,KLEV+1,KLEV+1)  
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+#include "lwbv.intfb.h"
+#include "lwc.intfb.h"
+#include "lwu.intfb.h"
+
+!     ------------------------------------------------------------------
+
+!*         1.    INITIALIZATION
+!                --------------
+
+!100  CONTINUE
+
+!     ------------------------------------------------------------------
+
+!*         1.1   COMPUTES ABSORBER AMOUNTS
+!                -------------------------
+
+IF (LHOOK) CALL DR_HOOK('LW',0,ZHOOK_HANDLE)
+print *,'	LW: Avant LWU'
+CALL LWU &
+ & (  KIDIA, KFDIA, KLON, KLEV,&
+ & PAER , PCCO2, PDP , PPMB, PQOF , PTAVE, PVIEW, PWV,&
+ & ZABCU &
+ & )  
+
+!     ------------------------------------------------------------------
+
+!*         2.    COMPUTES PLANCK FUNCTIONS
+!                -------------------------
+!                PERFORMS THE VERTICAL INTEGRATION
+!                ---------------------------------
+
+print *,'	LW: Avant LWBV'
+CALL LWBV &
+ & ( KIDIA, KFDIA, KLON , KLEV  , KMODE,&
+ & PDT0 , PEMIS, PEMIW, PTL   , PTAVE,&
+ & PEMIT, PFLUC,&
+ & ZABCU, ZBINT, ZBSUI, ZCNTRB &
+ & )  
+
+!     ------------------------------------------------------------------
+
+!*         4.    INTRODUCES THE EFFECTS OF CLOUDS
+!                --------------------------------
+
+print *,'	LW: Avant LWC'
+CALL LWC &
+ & ( KIDIA , KFDIA, KLON  , KLEV,&
+ & ZBINT , ZBSUI, PCLDLD, PCLDLU,&
+ & ZCNTRB, PEMIT, PFLUC,&
+ & PFLUX    &
+ & )  
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('LW',1,ZHOOK_HANDLE)
+END SUBROUTINE LW
Index: LMDZ5/trunk/libf/phylmd/rrtm/lw.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/lw.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/lw.intfb.h	(revision 1989)
@@ -0,0 +1,35 @@
+INTERFACE
+SUBROUTINE LW&
+ & ( KIDIA, KFDIA , KLON , KLEV , KMODE,&
+ & PCCO2, PCLDLD, PCLDLU,&
+ & PDP , PDT0 , PEMIS , PEMIW,&
+ & PPMB , PQOF , PTL,&
+ & PAER , PTAVE , PVIEW , PWV,&
+ & PEMIT, PFLUX , PFLUC&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE YOELW , ONLY : NUA
+INTEGER(KIND=JPIM),INTENT(IN) :: KLON
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KMODE
+REAL(KIND=JPRB) ,INTENT(IN) :: PCCO2
+REAL(KIND=JPRB) ,INTENT(IN) :: PCLDLD(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCLDLU(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PDP(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PDT0(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PEMIS(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PEMIW(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PPMB(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PQOF(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTL(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PAER(KLON,6,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTAVE(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PVIEW(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PWV(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PEMIT(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFLUX(KLON,2,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PFLUC(KLON,2,KLEV+1)
+END SUBROUTINE LW
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/lwb.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/lwb.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/lwb.F90	(revision 1989)
@@ -0,0 +1,272 @@
+SUBROUTINE LWB &
+ & ( KIDIA, KFDIA, KLON  , KLEV  , KMODE,&
+ & PDT0 , PTAVE, PTL,&
+ & PB   , PBINT, PBSUR , PBTOP , PDBSL,&
+ & PGA  , PGB  , PGASUR, PGBSUR, PGATOP, PGBTOP    &
+ & )  
+
+!**** *LWB*   - COMPUTES BLACK-BODY FUNCTIONS FOR LONGWAVE CALCULATIONS
+
+!     PURPOSE.
+!     --------
+!           COMPUTES PLANCK FUNCTIONS
+
+!**   INTERFACE.
+!     ----------
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+! PDT0   : (KLON)            ; SURFACE TEMPERATURE DISCONTINUITY
+! PTAVE  : (KLON,KLEV)       ; TEMPERATURE
+! PTL    : (KLON,KLEV+1)     ; HALF LEVEL TEMPERATURE
+!     ==== OUTPUTS ===
+! PB     : (KLON,NSIL,KLEV+1); SPECTRAL HALF LEVEL PLANCK FUNCTION
+! PBINT  : (KLON,KLEV+1)     ; HALF LEVEL PLANCK FUNCTION
+! PBSUR  : (KLON,NSIL)       ; SURFACE SPECTRAL PLANCK FUNCTION
+! PBTOP  : (KLON,NSIL)       ; TOP SPECTRAL PLANCK FUNCTION
+! PDBSL  : (KLON,NSIL,KLEV*2); SUB-LAYER PLANCK FUNCTION GRADIENT
+! PGA    : (KLON,8,2,KLEV)   ; dB/dT-weighted LAYER PADE APPROXIMANTS
+! PGB    : (KLON,8,2,KLEV)   ; dB/dT-weighted LAYER PADE APPROXIMANTS
+! PGASUR, PGBSUR (KLON,8,2)  ; SURFACE PADE APPROXIMANTS
+! PGATOP, PGBTOP (KLON,8,2)  ; T.O.A. PADE APPROXIMANTS
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+!          1. COMPUTES THE PLANCK FUNCTION ON ALL LEVELS AND HALF LEVELS
+!     FROM A POLYNOMIAL DEVELOPMENT OF PLANCK FUNCTION
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS           "
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 89-07-14
+!        MODIFIED : 99-06-14  D.SALMOND  Optimisation
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOELW    , ONLY : MXIXT    ,NSIL     ,NIPD     ,PDGA     ,&
+ & PDGB     ,TINTP    ,TSTAND   ,TSTP     ,XP  
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLON 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KIDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KMODE 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PDT0(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAVE(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTL(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PB(KLON,NSIL,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PBINT(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PBSUR(KLON,NSIL) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PBTOP(KLON,NSIL) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PDBSL(KLON,NSIL,KLEV*2) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PGA(KLON,NIPD,2,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PGB(KLON,NIPD,2,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PGASUR(KLON,NIPD,2) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PGBSUR(KLON,NIPD,2) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PGATOP(KLON,NIPD,2) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PGBTOP(KLON,NIPD,2) 
+!-----------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+!-------------------------------------------------------------------------
+
+!              ------------
+INTEGER(KIND=JPIM) :: INDB(KLON)   , INDS(KLON)
+REAL(KIND=JPRB) :: ZBLAY(KLON,KLEV), ZBLEV(KLON,KLEV+1)&
+ & ,  ZRES(KLON)      , ZRES2(KLON)&
+ & ,  ZTI(KLON)       , ZTI2(KLON)  
+
+INTEGER(KIND=JPIM) :: ILEV2, INDSU, INDT, INDTO, INDTP, INUE, INUS,&
+ & IXTOX, IXTX, JF, JG, JK, JK1, JK2, JL, JNU  
+
+REAL(KIND=JPRB) :: ZDST1, ZDSTO1, ZDSTOX, ZDSTX
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!     ------------------------------------------------------------------
+
+!*         1.0     PLANCK FUNCTIONS AND GRADIENTS
+!                  ------------------------------
+
+print *,'dans LWB'
+IF (LHOOK) CALL DR_HOOK('LWB',0,ZHOOK_HANDLE)
+ILEV2=2*KLEV
+INUS=1
+INUE=NSIL
+IF (KMODE == 2) THEN
+  INUS=3
+  INUE=4
+ENDIF
+
+DO JK = 1 , KLEV+1
+  DO JL = KIDIA,KFDIA
+    PBINT(JL,JK) = 0.0_JPRB
+  ENDDO
+ENDDO
+
+DO JNU=1,NSIL
+  DO JL=KIDIA,KFDIA
+    PBSUR(JL,JNU)=0.0_JPRB
+    PBTOP(JL,JNU)=0.0_JPRB
+  ENDDO
+  DO JK=1,KLEV
+    DO JL=KIDIA,KFDIA
+      PB(JL,JNU,JK)=0.0_JPRB
+    ENDDO
+  ENDDO
+  DO JK=1,ILEV2
+    DO JL=KIDIA,KFDIA
+      PDBSL(JL,JNU,JK)=0.0_JPRB
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JNU=INUS,INUE
+
+!*         1.1   LEVELS FROM SURFACE TO KLEV
+!                ----------------------------
+
+  DO JK = 1 , KLEV
+    DO JL = KIDIA,KFDIA
+      ZTI(JL)=(PTL(JL,JK)-TSTAND)/TSTAND
+      ZRES(JL) = XP(1,JNU)+ZTI(JL)*(XP(2,JNU)+ZTI(JL)*(XP(3,JNU)&
+       & +ZTI(JL)*(XP(4,JNU)+ZTI(JL)*(XP(5,JNU)+ZTI(JL)*(XP(6,JNU)&
+       & )))))  
+      PBINT(JL,JK)=PBINT(JL,JK)+ZRES(JL)
+      PB(JL,JNU,JK)= ZRES(JL)
+      ZBLEV(JL,JK) = ZRES(JL)
+
+      ZTI2(JL)=(PTAVE(JL,JK)-TSTAND)/TSTAND
+      ZRES2(JL)=XP(1,JNU)+ZTI2(JL)*(XP(2,JNU)+ZTI2(JL)*(XP(3,JNU)&
+       & +ZTI2(JL)*(XP(4,JNU)+ZTI2(JL)*(XP(5,JNU)+ZTI2(JL)*(XP(6,&
+       & JNU)&
+       & )))))  
+      ZBLAY(JL,JK) = ZRES2(JL)
+    ENDDO
+  ENDDO
+
+!*         1.2   TOP OF THE ATMOSPHERE AND SURFACE
+!                ---------------------------------
+
+  DO JL = KIDIA,KFDIA
+    ZTI(JL)=(PTL(JL,KLEV+1)-TSTAND)/TSTAND
+    ZTI2(JL) = (PTL(JL,1) + PDT0(JL) - TSTAND) / TSTAND
+    ZRES(JL) = XP(1,JNU)+ZTI(JL)*(XP(2,JNU)+ZTI(JL)*(XP(3,JNU)&
+     & +ZTI(JL)*(XP(4,JNU)+ZTI(JL)*(XP(5,JNU)+ZTI(JL)*(XP(6,JNU)&
+     & )))))  
+    ZRES2(JL) = XP(1,JNU)+ZTI2(JL)*(XP(2,JNU)+ZTI2(JL)*(XP(3,JNU)&
+     & +ZTI2(JL)*(XP(4,JNU)+ZTI2(JL)*(XP(5,JNU)+ZTI2(JL)*(XP(6,JNU)&
+     & )))))  
+    PBINT(JL,KLEV+1) = PBINT(JL,KLEV+1)+ZRES(JL)
+    PB(JL,JNU,KLEV+1)= ZRES(JL)
+    ZBLEV(JL,KLEV+1) = ZRES(JL)
+    PBTOP(JL,JNU) = ZRES(JL)
+    PBSUR(JL,JNU) = ZRES2(JL)
+  ENDDO
+
+!*         1.3   GRADIENTS IN SUB-LAYERS
+!                -----------------------
+
+  DO JK = 1 , KLEV
+    JK2 = 2 * JK
+    JK1 = JK2 - 1
+    DO JL = KIDIA,KFDIA
+      PDBSL(JL,JNU,JK1) = ZBLAY(JL,JK  ) - ZBLEV(JL,JK)
+      PDBSL(JL,JNU,JK2) = ZBLEV(JL,JK+1) - ZBLAY(JL,JK)
+    ENDDO
+  ENDDO
+
+ENDDO
+
+!*         2.0   CHOOSE THE RELEVANT SETS OF PADE APPROXIMANTS
+!                ---------------------------------------------
+
+DO JL=KIDIA,KFDIA
+  ZDSTO1 = (PTL(JL,KLEV+1)-TINTP(1)) / TSTP
+  IXTOX = MAX( 1, MIN( MXIXT, INT( ZDSTO1 + 1.0_JPRB ) ) )
+  ZDSTOX = (PTL(JL,KLEV+1)-TINTP(IXTOX))/TSTP
+  IF (ZDSTOX < 0.5_JPRB) THEN
+    INDTO=IXTOX
+  ELSE
+    INDTO=IXTOX+1
+  ENDIF
+  INDB(JL)=INDTO
+  ZDST1 = (PTL(JL,1)-TINTP(1)) / TSTP
+  IXTX = MAX( 1, MIN( MXIXT, INT( ZDST1 + 1.0_JPRB ) ) )
+  ZDSTX = (PTL(JL,1)-TINTP(IXTX))/TSTP
+  IF (ZDSTX < 0.5_JPRB) THEN
+    INDT=IXTX
+  ELSE
+    INDT=IXTX+1
+  ENDIF
+  INDS(JL)=INDT
+ENDDO
+
+DO JF=1,2
+  DO JG=1,NIPD
+    DO JL=KIDIA,KFDIA
+      INDSU=INDS(JL)
+      PGASUR(JL,JG,JF)=PDGA(INDSU,2*JG-1,JF)
+      PGBSUR(JL,JG,JF)=PDGB(INDSU,2*JG-1,JF)
+      INDTP=INDB(JL)
+      PGATOP(JL,JG,JF)=PDGA(INDTP,2*JG-1,JF)
+      PGBTOP(JL,JG,JF)=PDGB(INDTP,2*JG-1,JF)
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JK=1,KLEV
+  DO JL=KIDIA,KFDIA
+    ZDST1 = (PTAVE(JL,JK)-TINTP(1)) / TSTP
+    IXTX = MAX( 1, MIN( MXIXT, INT( ZDST1 + 1.0_JPRB ) ) )
+    ZDSTX = (PTAVE(JL,JK)-TINTP(IXTX))/TSTP
+    IF (ZDSTX < 0.5_JPRB) THEN
+      INDT=IXTX
+    ELSE
+      INDT=IXTX+1
+    ENDIF
+    INDB(JL)=INDT
+  ENDDO
+
+  DO JF=1,2
+    DO JL=KIDIA,KFDIA
+      INDT=INDB(JL)
+      DO JG=1,NIPD
+        PGA(JL,JG,JF,JK)=PDGA(INDT,2*JG,JF)
+        PGB(JL,JG,JF,JK)=PDGB(INDT,2*JG,JF)
+      ENDDO
+    ENDDO
+  ENDDO
+
+ENDDO
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('LWB',1,ZHOOK_HANDLE)
+END SUBROUTINE LWB
Index: LMDZ5/trunk/libf/phylmd/rrtm/lwb.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/lwb.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/lwb.intfb.h	(revision 1989)
@@ -0,0 +1,31 @@
+INTERFACE
+SUBROUTINE LWB&
+ & ( KIDIA, KFDIA, KLON , KLEV , KMODE,&
+ & PDT0 , PTAVE, PTL,&
+ & PB , PBINT, PBSUR , PBTOP , PDBSL,&
+ & PGA , PGB , PGASUR, PGBSUR, PGATOP, PGBTOP&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE YOELW , ONLY : MXIXT ,NSIL ,NIPD ,PDGA ,&
+ & PDGB ,TINTP ,TSTAND ,TSTP ,XP 
+INTEGER(KIND=JPIM),INTENT(IN) :: KLON
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KMODE
+REAL(KIND=JPRB) ,INTENT(IN) :: PDT0(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTAVE(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTL(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PB(KLON,NSIL,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PBINT(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PBSUR(KLON,NSIL)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PBTOP(KLON,NSIL)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PDBSL(KLON,NSIL,KLEV*2)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PGA(KLON,NIPD,2,KLEV)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PGB(KLON,NIPD,2,KLEV)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PGASUR(KLON,NIPD,2)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PGBSUR(KLON,NIPD,2)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PGATOP(KLON,NIPD,2)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PGBTOP(KLON,NIPD,2)
+END SUBROUTINE LWB
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/lwbv.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/lwbv.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/lwbv.F90	(revision 1989)
@@ -0,0 +1,168 @@
+SUBROUTINE LWBV &
+ & ( KIDIA, KFDIA, KLON , KLEV  , KMODE,&
+ & PDT0 , PEMIS, PEMIW,&
+ & PTL  , PTAVE,&
+ & PEMIT, PFLUC,&
+ & PABCU, PBINT, PBSUI, PCNTRB &
+ & )  
+
+!**** *LWBV*   - COMPUTE PLANCK FUNC., PERF. VERT. INTEGRATION
+
+!     PURPOSE.
+!     --------
+!           TO COMPUTE THE PLANCK FUNCTION AND PERFORM THE
+!           VERTICAL INTEGRATION. SPLIT OUT FROM LW FOR MEMORY
+!           SAVING
+
+!**   INTERFACE.
+!     ----------
+
+!        *LWVB* IS CALLED FROM *LW*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+! PDT0   : (KLON)            ; SURFACE TEMPERATURE DISCONTINUITY
+! PEMIS  : (KLON)            ; SURFACE LW EMISSIVITY
+! PEMIW  : (KLON)            ; SURFACE LW WINDOW EMISSIVITY
+! PTAVE  : (KLON,KLEV)       ; TEMPERATURE
+! PTL    : (KLON,KLEV+1)     ; HALF LEVEL TEMPERATURE
+!     ==== OUTPUTS ===
+! PABCU  :
+! PBINT  :
+! PBSUI  :
+! PCNTRB : 
+! PCOLC  :
+! PEMIT  :
+! PFLUC  :
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+!          1. COMPUTES THE PLANCK FUNCTIONS ON THE INTERFACES AND THE
+!     GRADIENT OF PLANCK FUNCTIONS IN THE LAYERS.
+!          2. PERFORMS THE VERTICAL INTEGRATION DISTINGUISHING THE CON-
+!     TRIBUTIONS OF THE ADJACENT AND DISTANT LAYERS AND THOSE FROM THE
+!     BOUNDARIES.
+!          3. COMPUTES THE CLEAR-SKY COOLING RATES.
+
+!     EXTERNALS.
+!     ----------
+
+!          *LWB*, *LWV*
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 89-07-14
+!        MODIFICATION : 93-10-15 M.HAMRUD (SPLIT OUT FROM LW TO SAVE
+!                                          MEMORY)
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOELW    , ONLY : NSIL     ,NIPD     ,NUA
+USE YOERDU   , ONLY : NUAER    ,NTRAER
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLON 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KIDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KMODE 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PDT0(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PEMIS(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PEMIW(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTL(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAVE(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PEMIT(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFLUC(KLON,2,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PABCU(KLON,NUA,3*KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(INOUT) :: PBINT(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PBSUI(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PCNTRB(KLON,KLEV+1,KLEV+1) 
+!-----------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+!-------------------------------------------------------------------------
+
+!              ------------
+REAL(KIND=JPRB) ::&
+ & ZB(KLON,NSIL,KLEV+1), ZBSUR(KLON,NSIL)   , ZBTOP(KLON,NSIL)&
+ & ,  ZDBSL(KLON,NSIL,KLEV*2)&
+ & ,  ZGA(KLON,NIPD,2,KLEV)  , ZGB(KLON,NIPD,2,KLEV)&
+ & ,  ZGASUR(KLON,NIPD,2)    , ZGBSUR(KLON,NIPD,2)&
+ & ,  ZGATOP(KLON,NIPD,2)    , ZGBTOP(KLON,NIPD,2)  
+
+INTEGER(KIND=JPIM) :: JL, JLW
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+#include "lwb.intfb.h"
+#include "lwv.intfb.h"
+
+!     ------------------------------------------------------------------
+
+!*         2.    COMPUTES PLANCK FUNCTIONS
+!                -------------------------
+
+IF (LHOOK) CALL DR_HOOK('LWBV',0,ZHOOK_HANDLE)
+print *,'LWBV: avant LWB'
+CALL LWB &
+ & ( KIDIA, KFDIA, KLON  , KLEV  , KMODE,&
+ & PDT0 , PTAVE, PTL,&
+ & ZB   , PBINT, ZBSUR , ZBTOP , ZDBSL,&
+ & ZGA  , ZGB  , ZGASUR, ZGBSUR, ZGATOP, ZGBTOP    &
+ & )  
+
+!     ------------------------------------------------------------------
+
+!*         3.    PERFORMS THE VERTICAL INTEGRATION
+!                ---------------------------------
+
+CALL LWV &
+ & ( KIDIA , KFDIA, KLON  , KLEV,&
+ & NUAER , NTRAER,&
+ & PABCU , ZB   , PBINT , ZBSUR , ZBTOP , ZDBSL,&
+ & PEMIS , PEMIW,&
+ & ZGA   , ZGB  , ZGASUR, ZGBSUR, ZGATOP, ZGBTOP,&
+ & PCNTRB, PFLUC &
+ & )  
+
+DO JL=KIDIA,KFDIA
+  PEMIT(JL)=0.0_JPRB
+  PBSUI(JL)=0.0_JPRB
+ENDDO
+DO JLW=1,NSIL
+  DO JL=KIDIA,KFDIA
+    PBSUI(JL)=PBSUI(JL)+ZBSUR(JL,JLW)
+    IF (JLW >= 3.AND. JLW <= 4) THEN
+      PEMIT(JL)=PEMIT(JL)+ZBSUR(JL,JLW)*PEMIW(JL)
+    ELSE
+      PEMIT(JL)=PEMIT(JL)+ZBSUR(JL,JLW)*PEMIS(JL)
+    ENDIF
+  ENDDO
+ENDDO
+DO JL=KIDIA,KFDIA
+  PEMIT(JL)=PEMIT(JL)/PBSUI(JL)
+ENDDO
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('LWBV',1,ZHOOK_HANDLE)
+END SUBROUTINE LWBV
Index: LMDZ5/trunk/libf/phylmd/rrtm/lwbv.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/lwbv.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/lwbv.intfb.h	(revision 1989)
@@ -0,0 +1,28 @@
+INTERFACE
+SUBROUTINE LWBV&
+ & ( KIDIA, KFDIA, KLON , KLEV , KMODE,&
+ & PDT0 , PEMIS, PEMIW,&
+ & PTL , PTAVE,&
+ & PEMIT, PFLUC,&
+ & PABCU, PBINT, PBSUI, PCNTRB&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE YOELW , ONLY : NSIL ,NIPD ,NUA
+INTEGER(KIND=JPIM),INTENT(IN) :: KLON
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KMODE
+REAL(KIND=JPRB) ,INTENT(IN) :: PDT0(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PEMIS(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PEMIW(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTL(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTAVE(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PEMIT(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFLUC(KLON,2,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PABCU(KLON,NUA,3*KLEV+1)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PBINT(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PBSUI(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PCNTRB(KLON,KLEV+1,KLEV+1)
+END SUBROUTINE LWBV
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/lwc.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/lwc.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/lwc.F90	(revision 1989)
@@ -0,0 +1,420 @@
+SUBROUTINE LWC &
+ & ( KIDIA , KFDIA, KLON  , KLEV,&
+ & PBINT , PBSUI, PCLDLD, PCLDLU,&
+ & PCNTRB, PEMIT, PFLUC,&
+ & PFLUX                              &
+ & )  
+
+!**** *LWC*   - LONGWAVE RADIATION, CLOUD EFFECTS
+
+!     PURPOSE.
+!     --------
+!           INTRODUCES CLOUD EFFECTS ON LONGWAVE FLUXES OR
+!           RADIANCES
+
+!**   INTERFACE.
+!     ----------
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+! PBINT  : (KLON,KLEV+1)       ; HALF LEVEL PLANCK FUNCTION
+! PBSUI  : (KLON)              ; SURFACE PLANCK FUNCTION
+! PCLDLD : (KLON,KLEV)         ; DOWNWARD EFFECTIVE CLOUD FRACTION
+! PCLDLU : (KLON,KLEV)         ; UPWARD EFFECTIVE CLOUD FRACTION
+! PCNTRB : (KLON,KLEV+1,KLEV+1); CLEAR-SKY ENERGY EXCHANGE MATRIX
+! PEMIT  : (KLON)              ; SURFACE TOTAL LW EMISSIVITY
+! PFLUC  : (KLON,2,KLEV+1)     ; CLEAR-SKY LW RADIATIVE FLUXES
+!     ==== OUTPUTS ===
+! PFLUX  : (KLON,2,KLEV+1)     ; TOTAL SKY LW RADIATIVE FLUXES :
+!                     1  ==>  UPWARD   FLUX TOTAL
+!                     2  ==>  DOWNWARD FLUX TOTAL
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+!          1. INITIALIZES ALL FLUXES TO CLEAR-SKY VALUES
+!          2. EFFECT OF ONE OVERCAST UNITY EMISSIVITY CLOUD LAYER
+!          3. EFFECT OF SEMI-TRANSPARENT, PARTIAL OR MULTI-LAYERED
+!     CLOUDS
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 89-07-14
+!        JJ Morcrette 97-04-18   Cleaning
+!        JJMorcrette 01-02-16 Hogan & Illingworth (2001)'s mixed overlap
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERAD   , ONLY : NOVLP
+USE YOERDI   , ONLY : REPCLC
+USE YOEOVLP  , ONLY : RA1OVLP
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLON 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KIDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFDIA 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PBINT(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PBSUI(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCLDLD(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCLDLU(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCNTRB(KLON,KLEV+1,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PEMIT(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PFLUC(KLON,2,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFLUX(KLON,2,KLEV+1) 
+!-----------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+!-----------------------------------------------------------------------
+
+!              ------------
+
+REAL(KIND=JPRB) :: ZCLEAR(KLON)            , ZCLOUD(KLON)&
+ & ,  ZCLM(KLON,KLEV+1,KLEV+1), ZDNF(KLON,KLEV+1,KLEV+1)&
+ & ,  ZFD(KLON)               , ZFU(KLON)&
+ & ,  ZUPF(KLON,KLEV+1,KLEV+1)  
+
+INTEGER(KIND=JPIM) :: IKCP1, IKM1, IKP1, IMAXC, IMXM1, IMXP1, JCLOUD,&
+ & JK, JK1, JK2, JKJ, JL  
+
+REAL(KIND=JPRB) :: ZALPHA1, ZCFRAC
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!     ------------------------------------------------------------------
+
+!*         1.     INITIALIZATION
+!                 --------------
+
+!100  CONTINUE
+
+!      print *,' Enter LWC '
+IF (LHOOK) CALL DR_HOOK('LWC',0,ZHOOK_HANDLE)
+DO JL = KIDIA,KFDIA
+  ZCLOUD(JL) = 0.0_JPRB
+ENDDO
+
+DO JK = 1 , KLEV+1
+  DO JL = KIDIA,KFDIA
+    PFLUX(JL,1,JK) = PFLUC(JL,1,JK)
+    PFLUX(JL,2,JK) = PFLUC(JL,2,JK)
+  ENDDO
+ENDDO
+
+!GM*******
+IMAXC=KLEV
+!GM*******
+
+!     ------------------------------------------------------------------
+
+!*         2.      EFFECT OF CLOUDINESS ON LONGWAVE FLUXES
+!                  ---------------------------------------
+
+IMXP1 = IMAXC + 1
+IMXM1 = IMAXC - 1
+
+!*         2.0     INITIALIZE TO CLEAR-SKY FLUXES
+!                  ------------------------------
+
+!200  CONTINUE
+
+DO JK1=1,KLEV+1
+  DO JK2=1,KLEV+1
+    DO JL = KIDIA,KFDIA
+      ZUPF(JL,JK2,JK1)=PFLUC(JL,1,JK1)
+      ZDNF(JL,JK2,JK1)=PFLUC(JL,2,JK1)
+    ENDDO
+  ENDDO
+ENDDO
+!      print *,' LWC after Initialisation to clear-sky fluxes'
+
+!*         2.1     FLUXES FOR ONE OVERCAST UNITY EMISSIVITY CLOUD
+!                  ----------------------------------------------
+
+!210  CONTINUE
+
+DO JCLOUD = 1 , IMAXC
+  IKCP1=JCLOUD+1
+
+!*         2.1.1   ABOVE THE CLOUD
+!                  ---------------
+
+!2110 CONTINUE
+
+  DO JK=IKCP1,KLEV+1
+    IKM1=JK-1
+    DO JL = KIDIA,KFDIA
+      ZFU(JL)=0.0_JPRB
+    ENDDO
+
+    IF (JK  >  IKCP1) THEN
+      DO JKJ=IKCP1,IKM1
+        DO JL = KIDIA,KFDIA
+          ZFU(JL) = ZFU(JL) + PCNTRB(JL,JK,JKJ)
+        ENDDO
+      ENDDO
+    ENDIF
+
+    DO JL = KIDIA,KFDIA
+      ZUPF(JL,IKCP1,JK)=PBINT(JL,JK)-ZFU(JL)
+    ENDDO
+  ENDDO
+
+!*         2.1.2   BELOW THE CLOUD
+!                  ---------------
+
+!2120 CONTINUE
+
+  DO JK=1,JCLOUD
+    IKP1=JK+1
+    DO JL = KIDIA,KFDIA
+      ZFD(JL)=0.0_JPRB
+    ENDDO
+
+    IF (JK  <  JCLOUD) THEN
+      DO JKJ=IKP1,JCLOUD
+        DO JL = KIDIA,KFDIA
+          ZFD(JL) = ZFD(JL) + PCNTRB(JL,JK,JKJ)
+        ENDDO
+      ENDDO
+    ENDIF
+
+    DO JL = KIDIA,KFDIA
+      ZDNF(JL,IKCP1,JK)=-PBINT(JL,JK)-ZFD(JL)
+    ENDDO
+  ENDDO
+
+ENDDO
+!      print *,' LWC after 213: Fluxes for unity emissivity'
+
+!*         2.2     CLOUD COVER MATRIX
+!                  ------------------
+
+!*    ZCLM(JK1,JK2) IS THE OBSCURATION FACTOR BY CLOUD LAYERS BETWEEN
+!     HALF-LEVELS JK1 AND JK2 AS SEEN FROM JK1
+
+!220  CONTINUE
+
+DO JK1 = 1 , KLEV+1
+  DO JK2 = 1 , KLEV+1
+    DO JL = KIDIA,KFDIA
+      ZCLM(JL,JK1,JK2) = 0.0_JPRB
+    ENDDO
+  ENDDO
+ENDDO
+!      print *,' LWC after Initialisation CC matrix'
+
+!*         2.4     CLOUD COVER BELOW THE LEVEL OF CALCULATION
+!                  ------------------------------------------
+
+!240  CONTINUE
+
+DO JK1 = 2 , KLEV+1
+  DO JL = KIDIA,KFDIA
+    ZCLEAR(JL)=1.0_JPRB
+    ZCLOUD(JL)=0.0_JPRB
+  ENDDO
+
+  DO JK = JK1 - 1 , 1 , -1
+    ZALPHA1=RA1OVLP(KLEV+1-JK)
+    
+    DO JL = KIDIA,KFDIA
+!++MODIFCODE
+      IF ((NOVLP==1).OR.(NOVLP==6).OR.(NOVLP==8)) THEN
+!--MODIFCODE
+!* maximum-random       
+        ZCLEAR(JL)=ZCLEAR(JL)*(1.0_JPRB-MAX(PCLDLU(JL,JK),ZCLOUD(JL)))&
+         & /(1.0_JPRB-MIN(ZCLOUD(JL),1.0_JPRB-REPCLC))  
+        ZCLM(JL,JK1,JK) = 1.0_JPRB - ZCLEAR(JL)
+        ZCLOUD(JL) = PCLDLU(JL,JK)
+!++MODIFCODE
+      ELSEIF ((NOVLP==2).OR.(NOVLP==7)) THEN
+!--MODIFCODE
+!* maximum      
+        ZCLOUD(JL) = MAX(ZCLOUD(JL) , PCLDLU(JL,JK))
+        ZCLM(JL,JK1,JK) = ZCLOUD(JL)
+!++MODIFCODE
+      ELSEIF ((NOVLP == 3).OR.(NOVLP==5)) THEN
+!--MODIFCODE
+!* random      
+        ZCLEAR(JL) = ZCLEAR(JL)*(1.0_JPRB - PCLDLU(JL,JK))
+        ZCLOUD(JL) = 1.0_JPRB - ZCLEAR(JL)
+        ZCLM(JL,JK1,JK) = ZCLOUD(JL)
+      ELSEIF (NOVLP == 4) THEN
+!** Hogan & Illingworth (2001)      
+        ZCLEAR(JL)=ZCLEAR(JL)*( &
+         & ZALPHA1*(1.0_JPRB-MAX(PCLDLU(JL,JK),ZCLOUD(JL))) &
+         & /(1.0_JPRB-MIN(ZCLOUD(JL),1.0_JPRB-REPCLC)) &
+         & +(1.0_JPRB-ZALPHA1)*(1.0_JPRB-PCLDLU(JL,JK)) )  
+        ZCLM(JL,JK1,JK) = 1.0_JPRB - ZCLEAR(JL) 
+        ZCLOUD(JL) = PCLDLU(JL,JK)
+      ENDIF
+    ENDDO
+  ENDDO
+
+ENDDO
+!      print *,' LWC after 244: CC below level of calculation'
+
+!*         2.5     CLOUD COVER ABOVE THE LEVEL OF CALCULATION
+!                  ------------------------------------------
+
+!250  CONTINUE
+
+DO JK1 = 1 , KLEV
+  DO JL = KIDIA,KFDIA
+    ZCLEAR(JL)=1.0_JPRB
+    ZCLOUD(JL)=0.0_JPRB
+  ENDDO
+
+  DO JK = JK1 , KLEV
+    ZALPHA1=RA1OVLP(KLEV+1-JK)
+    
+    DO JL = KIDIA,KFDIA
+!++MODIFCODE
+      IF ((NOVLP == 1).OR.(NOVLP==6).OR.(NOVLP==8)) THEN
+!--MODIFCODE
+!* maximum-random       
+        ZCLEAR(JL)=ZCLEAR(JL)*(1.0_JPRB-MAX(PCLDLD(JL,JK),ZCLOUD(JL)))&
+         & /(1.0_JPRB-MIN(ZCLOUD(JL),1.0_JPRB-REPCLC))  
+        ZCLM(JL,JK1,JK) = 1.0_JPRB - ZCLEAR(JL)
+        ZCLOUD(JL) = PCLDLD(JL,JK)
+!++MODIFCODE
+      ELSEIF ((NOVLP == 2).OR.(NOVLP==7)) THEN
+!--MODIFCODE
+!* maximum      
+        ZCLOUD(JL) = MAX(ZCLOUD(JL) , PCLDLD(JL,JK))
+        ZCLM(JL,JK1,JK) = ZCLOUD(JL)
+!++MODIFCODE
+      ELSEIF ((NOVLP == 3).OR.(NOVLP==5)) THEN
+!--MODIFCODE
+!* random      
+        ZCLEAR(JL) = ZCLEAR(JL)*(1.0_JPRB - PCLDLD(JL,JK))
+        ZCLOUD(JL) = 1.0_JPRB - ZCLEAR(JL)
+        ZCLM(JL,JK1,JK) = ZCLOUD(JL)
+      ELSEIF (NOVLP == 4) THEN
+!** Hogan & Illingworth (2001)      
+        ZCLEAR(JL)=ZCLEAR(JL)*( &
+         & ZALPHA1*(1.0_JPRB-MAX(PCLDLD(JL,JK),ZCLOUD(JL))) &
+         & /(1.0_JPRB-MIN(ZCLOUD(JL),1.0_JPRB-REPCLC)) &
+         & +(1.0_JPRB-ZALPHA1)*(1.0_JPRB - PCLDLD(JL,JK)) )  
+        ZCLM(JL,JK1,JK) = 1.0_JPRB - ZCLEAR(JL)
+        ZCLOUD(JL) = PCLDLD(JL,JK)
+      ENDIF
+    ENDDO
+  ENDDO
+ENDDO
+!      print *,' LWC after 254: CC above level of calculation'
+
+!*         3.      FLUXES FOR PARTIAL/MULTIPLE LAYERED CLOUDINESS
+!                  ----------------------------------------------
+
+!300  CONTINUE
+
+!*         3.1     DOWNWARD FLUXES
+!                  ---------------
+
+!310  CONTINUE
+
+DO JL = KIDIA,KFDIA
+  PFLUX(JL,2,KLEV+1) = 0.0_JPRB
+ENDDO
+
+DO JK1 = KLEV , 1 , -1
+
+!*                 CONTRIBUTION FROM CLEAR-SKY FRACTION
+
+  DO JL = KIDIA,KFDIA
+    ZFD (JL) = (1.0_JPRB - ZCLM(JL,JK1,KLEV)) * ZDNF(JL,1,JK1)
+
+!*                 CONTRIBUTION FROM ADJACENT CLOUD
+
+    ZFD(JL) = ZFD(JL) + ZCLM(JL,JK1,JK1) * ZDNF(JL,JK1+1,JK1)
+  ENDDO
+
+!*                 CONTRIBUTION FROM OTHER CLOUDY FRACTIONS
+
+  DO JK = KLEV-1 , JK1 , -1
+    DO JL = KIDIA,KFDIA
+      ZCFRAC = ZCLM(JL,JK1,JK+1) - ZCLM(JL,JK1,JK)
+      ZFD(JL) =  ZFD(JL) + ZCFRAC * ZDNF(JL,JK+2,JK1)
+    ENDDO
+  ENDDO
+
+  DO JL = KIDIA,KFDIA
+    PFLUX(JL,2,JK1) = ZFD (JL)
+  ENDDO
+
+ENDDO
+!      print *,' LWC after 317: Downward fluxes'
+
+!*         3.2     UPWARD FLUX AT THE SURFACE
+!                  --------------------------
+
+!320  CONTINUE
+
+DO JL = KIDIA,KFDIA
+  PFLUX(JL,1,1) = PEMIT(JL)*PBSUI(JL)-(1.0_JPRB-PEMIT(JL))*PFLUX(JL,2,1)
+ENDDO
+
+!*         3.3     UPWARD FLUXES
+!                  -------------
+
+!330  CONTINUE
+
+DO JK1 = 2 , KLEV+1
+
+!*                 CONTRIBUTION FROM CLEAR-SKY FRACTION
+
+  DO JL = KIDIA,KFDIA
+    ZFU (JL) = (1.0_JPRB - ZCLM(JL,JK1,1)) * ZUPF(JL,1,JK1)
+
+!*                 CONTRIBUTION FROM ADJACENT CLOUD
+
+    ZFU(JL) =  ZFU(JL) + ZCLM(JL,JK1,JK1-1) * ZUPF(JL,JK1,JK1)
+  ENDDO
+
+!*                 CONTRIBUTION FROM OTHER CLOUDY FRACTIONS
+
+  DO JK = 2 , JK1-1
+    DO JL = KIDIA,KFDIA
+      ZCFRAC = ZCLM(JL,JK1,JK-1) - ZCLM(JL,JK1,JK)
+      ZFU(JL) =  ZFU(JL) + ZCFRAC * ZUPF(JL,JK  ,JK1)
+    ENDDO
+  ENDDO
+
+  DO JL = KIDIA,KFDIA
+    PFLUX(JL,1,JK1) = ZFU (JL)
+  ENDDO
+
+ENDDO
+!      print *,' LWC after 337: Upward fluxes'
+
+!-----------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('LWC',1,ZHOOK_HANDLE)
+END SUBROUTINE LWC
Index: LMDZ5/trunk/libf/phylmd/rrtm/lwc.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/lwc.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/lwc.intfb.h	(revision 1989)
@@ -0,0 +1,22 @@
+INTERFACE
+SUBROUTINE LWC&
+ & ( KIDIA , KFDIA, KLON , KLEV,&
+ & PBINT , PBSUI, PCLDLD, PCLDLU,&
+ & PCNTRB, PEMIT, PFLUC,&
+ & PFLUX&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KLON
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
+REAL(KIND=JPRB) ,INTENT(IN) :: PBINT(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PBSUI(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCLDLD(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCLDLU(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCNTRB(KLON,KLEV+1,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PEMIT(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PFLUC(KLON,2,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFLUX(KLON,2,KLEV+1)
+END SUBROUTINE LWC
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/lwtt.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/lwtt.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/lwtt.F90	(revision 1989)
@@ -0,0 +1,199 @@
+!OPTIONS XOPT(HSFUN)
+SUBROUTINE LWTT ( KIDIA, KFDIA, KLON, PGA  , PGB, PUU  , PTT             )
+
+!**** *LWTT* - LONGWAVE TRANSMISSION FUNCTIONS
+
+!     PURPOSE.
+!     --------
+!           THIS ROUTINE COMPUTES THE TRANSMISSION FUNCTIONS FOR ALL THE
+!     ABSORBERS (H2O, UNIFORMLY MIXED GASES, AND O3) IN ALL SIX SPECTRAL
+!     INTERVALS.
+
+!**   INTERFACE.
+!     ----------
+!          *LWTT* IS CALLED FROM *LWVN*, *LWVD*, *LWVB*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+! KND    :                    ; WEIGHTING INDEX
+! PUU    : (KLON,NUA)         ; ABSORBER AMOUNTS
+!     ==== OUTPUTS ===
+! PTT    : (KLON,NTRA)        ; TRANSMISSION FUNCTIONS
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+!          1. TRANSMISSION FUNCTION BY H2O AND UNIFORMLY MIXED GASES ARE
+!     COMPUTED USING PADE APPROXIMANTS AND HORNER'S ALGORITHM.
+!          2. TRANSMISSION BY O3 IS EVALUATED WITH MALKMUS'S BAND MODEL.
+!          3. TRANSMISSION BY H2O CONTINUUM AND AEROSOLS FOLLOW AN
+!     A SIMPLE EXPONENTIAL DECREASE WITH ABSORBER AMOUNT.
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 88-12-15
+!        97-04-18  JJ Morcrette        Revised continuum
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+    
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOELW    , ONLY : NTRA     ,NUA      ,RPTYPE   ,RETYPE   ,&
+ & RO1H     ,RO2H     ,RPIALF0  
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLON 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KIDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFDIA 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PGA(KLON,8,2) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PGB(KLON,8,2) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PUU(KLON,NUA) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTT(KLON,NTRA) 
+!     ------------------------------------------------------------------
+
+!*        0.1   ARGUMENTS
+!               ---------
+
+INTEGER(KIND=JPIM) :: JA, JL
+
+REAL(KIND=JPRB) :: ZA11, ZA12, ZAERCN, ZEU10, ZEU11, ZEU12,&
+ & ZEU13, ZODH41, ZODH42, ZODN21, ZODN22, ZPU10, &
+ & ZPU11, ZPU12, ZPU13, ZSQ1, ZSQ2, ZSQH41, &
+ & ZSQH42, ZSQN21, ZSQN22, ZTO1, ZTO2, ZTTF11, &
+ & ZTTF12, ZUU11, ZUU12, ZUXY, ZVXY, ZX, ZXCH4, &
+ & ZXD, ZXN, ZXN2O, ZY, ZYCH4, ZYN2O, ZZ  
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!     ------------------------------------------------------------------
+
+!               ------------
+
+!     ------------------------------------------------------------------
+!DIR$ VFUNCTION SQRTHF
+
+!*         1.     HORNER'S ALGORITHM FOR H2O AND CO2 TRANSMISSION
+!                 -----------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('LWTT',0,ZHOOK_HANDLE)
+DO JA = 1 , 8
+  DO JL = KIDIA,KFDIA
+    ZZ  = SQRT(PUU(JL,JA))
+    ZXD = PGB( JL,JA,1) + ZZ* (PGB( JL,JA,2) + ZZ )
+    ZXN = PGA( JL,JA,1) + ZZ* (PGA( JL,JA,2)      )
+    PTT(JL,JA) = ZXN / ZXD
+  ENDDO
+ENDDO
+
+DO JL = KIDIA,KFDIA
+  PTT(JL,3)=MAX(PTT(JL,3),0.0_JPRB)
+ENDDO
+!     ------------------------------------------------------------------
+
+!*         2.     CONTINUUM, OZONE AND AEROSOL TRANSMISSION FUNCTIONS
+!                 ---------------------------------------------------
+
+DO JL = KIDIA,KFDIA
+  PTT(JL, 9) = PTT(JL, 8)
+
+!-  CONTINUUM ABSORPTION: E- AND P-TYPE (from Giorgetta and Wild, 1997)
+
+  ZPU10 = RPTYPE(1) * PUU(JL,10)
+  ZPU11 = RPTYPE(2) * PUU(JL,10)
+  ZPU12 = RPTYPE(3) * PUU(JL,10)
+  ZPU13 = RPTYPE(4) * PUU(JL,10)
+  ZEU10 = RETYPE(1) * PUU(JL,11)
+  ZEU11 = RETYPE(2) * PUU(JL,11)
+  ZEU12 = RETYPE(3) * PUU(JL,11)
+  ZEU13 = RETYPE(4) * PUU(JL,11)
+
+!-  OZONE ABSORPTION
+
+  ZX = PUU(JL,12)
+  ZY = PUU(JL,13)
+  ZUXY = 4._JPRB * ZX * ZX / (RPIALF0 * ZY)
+  ZSQ1 = SQRT(1.0_JPRB + RO1H * ZUXY ) - 1.0_JPRB
+  ZSQ2 = SQRT(1.0_JPRB + RO2H * ZUXY ) - 1.0_JPRB
+  ZVXY = RPIALF0 * ZY / (2.0_JPRB * ZX)
+  ZAERCN = PUU(JL,17) + ZEU12 + ZPU12
+  ZTO1 = EXP( - ZVXY * ZSQ1 - ZAERCN )
+  ZTO2 = EXP( - ZVXY * ZSQ2 - ZAERCN )
+
+!-- TRACE GASES (CH4, N2O, CFC-11, CFC-12)
+
+!* CH4 IN INTERVAL 800-970 + 1110-1250 CM-1
+
+  ZXCH4 = PUU(JL,19)
+  ZYCH4 = PUU(JL,20)
+  ZUXY = 4._JPRB * ZXCH4*ZXCH4/(0.103_JPRB*ZYCH4)
+  ZSQH41 = SQRT(1.0_JPRB + 33.7_JPRB * ZUXY) - 1.0_JPRB
+  ZVXY = 0.103_JPRB * ZYCH4 / (2.0_JPRB * ZXCH4)
+  ZODH41 = ZVXY * ZSQH41
+
+!* N2O IN INTERVAL 800-970 + 1110-1250 CM-1
+
+  ZXN2O = PUU(JL,21)
+  ZYN2O = PUU(JL,22)
+  ZUXY = 4._JPRB * ZXN2O*ZXN2O/(0.416_JPRB*ZYN2O)
+  ZSQN21 = SQRT(1.0_JPRB + 21.3_JPRB * ZUXY) - 1.0_JPRB
+  ZVXY = 0.416_JPRB * ZYN2O / (2.0_JPRB * ZXN2O)
+  ZODN21 = ZVXY * ZSQN21
+
+!* CH4 IN INTERVAL 1250-1450 + 1880-2820 CM-1
+
+  ZUXY = 4._JPRB * ZXCH4*ZXCH4/(0.113_JPRB*ZYCH4)
+  ZSQH42 = SQRT(1.0_JPRB + 400._JPRB * ZUXY) - 1.0_JPRB
+  ZVXY = 0.113_JPRB * ZYCH4 / (2.0_JPRB * ZXCH4)
+  ZODH42 = ZVXY * ZSQH42
+
+!* N2O IN INTERVAL 1250-1450 + 1880-2820 CM-1
+
+  ZUXY = 4._JPRB * ZXN2O*ZXN2O/(0.197_JPRB*ZYN2O)
+  ZSQN22 = SQRT(1.0_JPRB + 2000._JPRB * ZUXY) - 1.0_JPRB
+  ZVXY = 0.197_JPRB * ZYN2O / (2.0_JPRB * ZXN2O)
+  ZODN22 = ZVXY * ZSQN22
+
+!* CFC-11 IN INTERVAL 800-970 + 1110-1250 CM-1
+
+  ZA11 = 2.0_JPRB * PUU(JL,23) * 4.404E+05_JPRB
+  ZTTF11 = 1.0_JPRB - ZA11 * 0.003225_JPRB
+
+!* CFC-12 IN INTERVAL 800-970 + 1110-1250 CM-1
+
+  ZA12 = 2.0_JPRB * PUU(JL,24) * 6.7435E+05_JPRB
+  ZTTF12 = 1.0_JPRB - ZA12 * 0.003225_JPRB
+
+  ZUU11 = - PUU(JL,15) - ZEU10 - ZPU10
+  ZUU12 = - PUU(JL,16) - ZEU11 - ZPU11 - ZODH41 - ZODN21
+  PTT(JL,10) = EXP( - PUU(JL,14) )
+  PTT(JL,11) = EXP( ZUU11 )
+  PTT(JL,12) = EXP( ZUU12 ) * ZTTF11 * ZTTF12
+  PTT(JL,13) = 0.7554_JPRB * ZTO1 + 0.2446_JPRB * ZTO2
+  PTT(JL,14) = PTT(JL,10) * EXP( - ZEU13 - ZPU13 )
+  PTT(JL,15) = EXP ( - PUU(JL,14) - ZODH42 - ZODN22 )
+
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('LWTT',1,ZHOOK_HANDLE)
+END SUBROUTINE LWTT
Index: LMDZ5/trunk/libf/phylmd/rrtm/lwtt.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/lwtt.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/lwtt.intfb.h	(revision 1989)
@@ -0,0 +1,14 @@
+INTERFACE
+SUBROUTINE LWTT ( KIDIA, KFDIA, KLON, PGA , PGB, PUU , PTT )
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE YOELW , ONLY : NTRA ,NUA ,RPTYPE ,RETYPE ,&
+ & RO1H ,RO2H ,RPIALF0 
+INTEGER(KIND=JPIM),INTENT(IN) :: KLON
+INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
+REAL(KIND=JPRB) ,INTENT(IN) :: PGA(KLON,8,2)
+REAL(KIND=JPRB) ,INTENT(IN) :: PGB(KLON,8,2)
+REAL(KIND=JPRB) ,INTENT(IN) :: PUU(KLON,NUA)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PTT(KLON,NTRA)
+END SUBROUTINE LWTT
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/lwttm.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/lwttm.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/lwttm.F90	(revision 1989)
@@ -0,0 +1,199 @@
+!OPTIONS XOPT(HSFUN)
+SUBROUTINE LWTTM ( KIDIA, KFDIA, KLON, PGA  , PGB, PUU1 , PUU2 , PTT        )
+
+!**** *LWTTM* - LONGWAVE TRANSMISSION FUNCTIONS
+
+!     PURPOSE.
+!     --------
+!           THIS ROUTINE COMPUTES THE TRANSMISSION FUNCTIONS FOR ALL THE
+!     ABSORBERS (H2O, UNIFORMLY MIXED GASES, AND O3) IN ALL SIX SPECTRAL
+!     INTERVALS.
+
+!**   INTERFACE.
+!     ----------
+!          *LWTTM* IS CALLED FROM *LWVD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+! PGA, PGB                    ; PADE APPROXIMANTS
+! PUU1   : (KLON,NUA)         ; ABSORBER AMOUNTS FROM TOP TO LEVEL 1
+! PUU2   : (KLON,NUA)         ; ABSORBER AMOUNTS FROM TOP TO LEVEL 2  
+!     ==== OUTPUTS ===
+! PTT    : (KLON,NTRA)        ; TRANSMISSION FUNCTIONS
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+!          1. TRANSMISSION FUNCTION BY H2O AND UNIFORMLY MIXED GASES ARE
+!     COMPUTED USING PADE APPROXIMANTS AND HORNER'S ALGORITHM.
+!          2. TRANSMISSION BY O3 IS EVALUATED WITH MALKMUS'S BAND MODEL.
+!          3. TRANSMISSION BY H2O CONTINUUM AND AEROSOLS FOLLOW AN
+!     A SIMPLE EXPONENTIAL DECREASE WITH ABSORBER AMOUNT.
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 88-12-15
+!        97-04-18 JJ Morcrette        Revised continuum
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOELW    , ONLY : NTRA     ,NUA      ,RPTYPE   ,RETYPE   ,&
+ & RO1H     ,RO2H     ,RPIALF0  
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLON 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KIDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFDIA 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PGA(KLON,8,2) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PGB(KLON,8,2) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PUU1(KLON,NUA) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PUU2(KLON,NUA) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTT(KLON,NTRA) 
+!     ------------------------------------------------------------------
+
+!*        0.1   ARGUMENTS
+!               ---------
+
+INTEGER(KIND=JPIM) :: JA, JL
+
+REAL(KIND=JPRB) :: ZA11, ZA12, ZAERCN, ZEU, ZEU10, ZEU11, ZEU12,&
+ & ZEU13, ZODH41, ZODH42, ZODN21, ZODN22, ZPU, &
+ & ZPU10, ZPU11, ZPU12, ZPU13, ZSQ1, ZSQ2, ZSQH41, &
+ & ZSQH42, ZSQN21, ZSQN22, ZTO1, ZTO2, ZTTF11, &
+ & ZTTF12, ZUU11, ZUU12, ZUXY, ZVXY, ZX, ZXCH4, &
+ & ZXD, ZXN, ZXN2O, ZY, ZYCH4, ZYN2O, ZZ  
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!     ------------------------------------------------------------------
+!DIR$ VFUNCTION SQRTHF
+
+!*         1.     HORNER'S ALGORITHM FOR H2O AND CO2 TRANSMISSION
+!                 -----------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('LWTTM',0,ZHOOK_HANDLE)
+DO JA = 1 , 8
+  DO JL = KIDIA,KFDIA
+    ZZ  = SQRT(PUU1(JL,JA) - PUU2(JL,JA))
+    ZXD = PGB( JL,JA,1) + ZZ * (PGB( JL,JA,2) + ZZ )
+    ZXN = PGA( JL,JA,1) + ZZ * (PGA( JL,JA,2) )
+    PTT(JL,JA) = ZXN / ZXD
+  ENDDO
+ENDDO
+
+DO JL = KIDIA,KFDIA
+  PTT(JL,3)=MAX(PTT(JL,3),0.0_JPRB)
+ENDDO
+!     ------------------------------------------------------------------
+
+!*         2.     CONTINUUM, OZONE AND AEROSOL TRANSMISSION FUNCTIONS
+!                 ---------------------------------------------------
+
+DO JL = KIDIA,KFDIA
+  PTT(JL, 9) = PTT(JL, 8)
+
+!-  CONTINUUM ABSORPTION: E- AND P-TYPE
+
+  ZPU   = (PUU1(JL,10) - PUU2(JL,10))
+  ZPU10 = RPTYPE(1) * ZPU
+  ZPU11 = RPTYPE(2) * ZPU
+  ZPU12 = RPTYPE(3) * ZPU
+  ZPU13 = RPTYPE(4) * ZPU
+  ZEU   = (PUU1(JL,11) - PUU2(JL,11))
+  ZEU10 = RETYPE(1) * ZEU
+  ZEU11 = RETYPE(2) * ZEU
+  ZEU12 = RETYPE(3) * ZEU
+  ZEU13 = RETYPE(4) * ZEU
+
+!-  OZONE ABSORPTION
+
+  ZX = (PUU1(JL,12) - PUU2(JL,12))
+  ZY = (PUU1(JL,13) - PUU2(JL,13))
+  ZUXY = 4._JPRB * ZX * ZX / (RPIALF0 * ZY)
+  ZSQ1 = SQRT(1.0_JPRB + RO1H * ZUXY ) - 1.0_JPRB
+  ZSQ2 = SQRT(1.0_JPRB + RO2H * ZUXY ) - 1.0_JPRB
+  ZVXY = RPIALF0 * ZY / (2.0_JPRB * ZX)
+  ZAERCN = (PUU1(JL,17) -PUU2(JL,17)) + ZEU12 + ZPU12
+  ZTO1 = EXP( - ZVXY * ZSQ1 - ZAERCN )
+  ZTO2 = EXP( - ZVXY * ZSQ2 - ZAERCN )
+
+!-- TRACE GASES (CH4, N2O, CFC-11, CFC-12)
+
+!* CH4 IN INTERVAL 800-970 + 1110-1250 CM-1
+
+  ZXCH4 = (PUU1(JL,19) - PUU2(JL,19))
+  ZYCH4 = (PUU1(JL,20) - PUU2(JL,20))
+  ZUXY = 4._JPRB * ZXCH4*ZXCH4/(0.103_JPRB*ZYCH4)
+  ZSQH41 = SQRT(1.0_JPRB + 33.7_JPRB * ZUXY) - 1.0_JPRB
+  ZVXY = 0.103_JPRB * ZYCH4 / (2.0_JPRB * ZXCH4)
+  ZODH41 = ZVXY * ZSQH41
+
+!* N2O IN INTERVAL 800-970 + 1110-1250 CM-1
+
+  ZXN2O = (PUU1(JL,21) - PUU2(JL,21))
+  ZYN2O = (PUU1(JL,22) - PUU2(JL,22))
+  ZUXY = 4._JPRB * ZXN2O*ZXN2O/(0.416_JPRB*ZYN2O)
+  ZSQN21 = SQRT(1.0_JPRB + 21.3_JPRB * ZUXY) - 1.0_JPRB
+  ZVXY = 0.416_JPRB * ZYN2O / (2.0_JPRB * ZXN2O)
+  ZODN21 = ZVXY * ZSQN21
+
+!* CH4 IN INTERVAL 1250-1450 + 1880-2820 CM-1
+
+  ZUXY = 4._JPRB * ZXCH4*ZXCH4/(0.113_JPRB*ZYCH4)
+  ZSQH42 = SQRT(1.0_JPRB + 400._JPRB * ZUXY) - 1.0_JPRB
+  ZVXY = 0.113_JPRB * ZYCH4 / (2.0_JPRB * ZXCH4)
+  ZODH42 = ZVXY * ZSQH42
+
+!* N2O IN INTERVAL 1250-1450 + 1880-2820 CM-1
+
+  ZUXY = 4._JPRB * ZXN2O*ZXN2O/(0.197_JPRB*ZYN2O)
+  ZSQN22 = SQRT(1.0_JPRB + 2000._JPRB * ZUXY) - 1.0_JPRB
+  ZVXY = 0.197_JPRB * ZYN2O / (2.0_JPRB * ZXN2O)
+  ZODN22 = ZVXY * ZSQN22
+
+!* CFC-11 IN INTERVAL 800-970 + 1110-1250 CM-1
+
+  ZA11 = (PUU1(JL,23) - PUU2(JL,23)) * 4.404E+05_JPRB
+  ZTTF11 = 1.0_JPRB - ZA11 * 0.003225_JPRB
+
+!* CFC-12 IN INTERVAL 800-970 + 1110-1250 CM-1
+
+  ZA12 = (PUU1(JL,24) - PUU2(JL,24)) * 6.7435E+05_JPRB
+  ZTTF12 = 1.0_JPRB - ZA12 * 0.003225_JPRB
+
+  ZUU11 = - (PUU1(JL,15) - PUU2(JL,15)) - ZEU10 - ZPU10
+  ZUU12 = - (PUU1(JL,16) - PUU2(JL,16)) - ZEU11 - ZPU11 -ZODH41 - ZODN21
+  PTT(JL,10) = EXP( - (PUU1(JL,14)- PUU2(JL,14)) )
+  PTT(JL,11) = EXP( ZUU11 )
+  PTT(JL,12) = EXP( ZUU12 ) * ZTTF11 * ZTTF12
+  PTT(JL,13) = 0.7554_JPRB * ZTO1 + 0.2446_JPRB * ZTO2
+  PTT(JL,14) = PTT(JL,10) * EXP( - ZEU13 - ZPU13 )
+  PTT(JL,15) = EXP( - (PUU1(JL,14) - PUU2(JL,14)) - ZODH42-ZODN22 )
+
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('LWTTM',1,ZHOOK_HANDLE)
+END SUBROUTINE LWTTM
Index: LMDZ5/trunk/libf/phylmd/rrtm/lwttm.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/lwttm.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/lwttm.intfb.h	(revision 1989)
@@ -0,0 +1,15 @@
+INTERFACE
+SUBROUTINE LWTTM ( KIDIA, KFDIA, KLON, PGA , PGB, PUU1 , PUU2 , PTT )
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE YOELW , ONLY : NTRA ,NUA ,RPTYPE ,RETYPE ,&
+ & RO1H ,RO2H ,RPIALF0 
+INTEGER(KIND=JPIM),INTENT(IN) :: KLON
+INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
+REAL(KIND=JPRB) ,INTENT(IN) :: PGA(KLON,8,2)
+REAL(KIND=JPRB) ,INTENT(IN) :: PGB(KLON,8,2)
+REAL(KIND=JPRB) ,INTENT(IN) :: PUU1(KLON,NUA)
+REAL(KIND=JPRB) ,INTENT(IN) :: PUU2(KLON,NUA)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PTT(KLON,NTRA)
+END SUBROUTINE LWTTM
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/lwu.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/lwu.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/lwu.F90	(revision 1989)
@@ -0,0 +1,336 @@
+SUBROUTINE LWU &
+ & ( KIDIA, KFDIA, KLON, KLEV,&
+ & PAER , PCCO2, PDP , PPMB, PQOF , PTAVE, PVIEW, PWV,&
+ & PABCU &
+ & )  
+
+!**** *LWU* - LONGWAVE EFFECTIVE ABSORBER AMOUNTS
+
+!     PURPOSE.
+!     --------
+!           COMPUTES ABSORBER AMOUNTS INCLUDING PRESSURE AND
+!           TEMPERATURE EFFECTS
+
+!**   INTERFACE.
+!     ----------
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+! PAER   : (KLON,6,KLEV)     ; OPTICAL THICKNESS OF THE AEROSOLS
+! PCCO2  :                   ; CONCENTRATION IN CO2 (PA/PA)
+! PDP    : (KLON,KLEV)       ; LAYER PRESSURE THICKNESS (PA)
+! PPMB   : (KLON,KLEV+1)     ; HALF LEVEL PRESSURE
+! PQOF   : (KLON,KLEV)       ; CONCENTRATION IN OZONE (PA/PA)
+! PTAVE  : (KLON,KLEV)       ; TEMPERATURE
+! PWV    : (KLON,KLEV)       ; SPECIFIC HUMIDITY PA/PA
+! PVIEW  : (KLON)            ; COSECANT OF VIEWING ANGLE
+!     ==== OUTPUTS ===
+! PABCU  :(KLON,NUA,3*KLEV+1); EFFECTIVE ABSORBER AMOUNTS
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+!          1. COMPUTES THE PRESSURE AND TEMPERATURE WEIGHTED AMOUNTS OF
+!     ABSORBERS.
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 89-07-14
+!        JJ Morcrette 97-04-18 Revised Continuum + Clean-up
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOMCST   , ONLY : RG
+USE YOESW    , ONLY : RAER
+USE YOELW    , ONLY : NSIL     ,NUA      ,NG1      ,NG1P1    ,&
+ & ALWT     ,BLWT     ,RO3T     ,RT1      ,TREF     ,&
+ & RVGCO2   ,RVGH2O   ,RVGO3  
+USE YOERDI   , ONLY : RCH4     ,RN2O     ,RCFC11   ,RCFC12
+USE YOERDU   , ONLY : R10E     ,REPSCO   ,REPSCQ
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLON 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KIDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFDIA 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PAER(KLON,6,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCCO2 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PDP(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PPMB(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PQOF(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAVE(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PVIEW(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PWV(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PABCU(KLON,NUA,3*KLEV+1) 
+!-----------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+!-----------------------------------------------------------------------
+
+!              ------------
+REAL(KIND=JPRB) :: ZABLY(KLON,7,3*KLEV+1)  , ZDPM(KLON,3*KLEV)&
+ & ,  ZDUC(KLON, 3*KLEV+1)    , ZFACT(KLON)&
+ & ,  ZUPM(KLON,3*KLEV)  
+REAL(KIND=JPRB) :: ZPHIO(KLON),ZPSC2(KLON) , ZPSC3(KLON), ZPSH1(KLON)&
+ & ,  ZPSH2(KLON),ZPSH3(KLON) , ZPSH4(KLON), ZPSH5(KLON)&
+ & ,  ZPSH6(KLON),ZPSIO(KLON) , ZTCON(KLON)&
+ & ,  ZPHM6(KLON),ZPSM6(KLON) , ZPHN6(KLON), ZPSN6(KLON)  
+REAL(KIND=JPRB) :: ZSSIG(KLON,3*KLEV+1)    , ZTAVI(KLON)&
+ & ,  ZUAER(KLON,NSIL)        , ZXOZ(KLON) , ZXWV(KLON)  
+
+INTEGER(KIND=JPIM) :: IAE1, IAE2, IAE3, IC, ICP1, IG1, IJ, IJPN,&
+ & IKIP1, IKJ, IKJP, IKJPN, IKJR, IKL, JA, JAE, &
+ & JK, JKI, JKK, JL  
+
+REAL(KIND=JPRB) :: ZALUP, ZCAC8, ZCAH1, ZCAH2, ZCAH3, ZCAH4,&
+ & ZCAH5, ZCAH6, ZCBC8, ZCBH1, ZCBH2, ZCBH3, &
+ & ZCBH4, ZCBH5, ZCBH6, ZDIFF, ZDPMG, ZDPMP0, &
+ & ZFPPW, ZTX, ZTX2, ZU6, ZUP, ZUPMCO2, ZUPMG, &
+ & ZUPMH2O, ZUPMO3, ZZABLY  
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!-----------------------------------------------------------------------
+
+!*         1.    INITIALIZATION
+!                --------------
+
+!-----------------------------------------------------------------------
+
+!*         2.    PRESSURE OVER GAUSS SUB-LEVELS
+!                ------------------------------
+
+IF (LHOOK) CALL DR_HOOK('LWU',0,ZHOOK_HANDLE)
+DO JL = KIDIA,KFDIA
+  ZSSIG(JL, 1 ) = PPMB(JL,1) * 100._JPRB
+ENDDO
+
+DO JK = 1 , KLEV
+  IKJ=(JK-1)*NG1P1+1
+  IKJR = IKJ
+  IKJP = IKJ + NG1P1
+  DO JL = KIDIA,KFDIA
+    ZSSIG(JL,IKJP)=PPMB(JL,JK+1)* 100._JPRB
+  ENDDO
+  DO IG1=1,NG1
+    IKJ=IKJ+1
+    DO JL = KIDIA,KFDIA
+      ZSSIG(JL,IKJ)= (ZSSIG(JL,IKJR) + ZSSIG(JL,IKJP)) * 0.5_JPRB &
+       & + RT1(IG1) * (ZSSIG(JL,IKJP) - ZSSIG(JL,IKJR)) * 0.5_JPRB  
+    ENDDO
+  ENDDO
+ENDDO
+
+!-----------------------------------------------------------------------
+
+!*         4.    PRESSURE THICKNESS AND MEAN PRESSURE OF SUB-LAYERS
+!                --------------------------------------------------
+
+DO JKI=1,3*KLEV
+  IKIP1=JKI+1
+  DO JL = KIDIA,KFDIA
+    ZUPM(JL,JKI)=(ZSSIG(JL,JKI)+ZSSIG(JL,IKIP1))*0.5_JPRB
+    ZDPM(JL,JKI)=(ZSSIG(JL,JKI)-ZSSIG(JL,IKIP1))/(10._JPRB*RG)
+  ENDDO
+ENDDO
+
+DO JK = 1 , KLEV
+  IKL = KLEV+1 - JK
+  DO JL = KIDIA,KFDIA
+    ZXWV(JL) = MAX (PWV(JL,IKL) , REPSCQ )
+    ZXOZ(JL) = MAX (PQOF(JL,IKL) / PDP(JL,IKL) , REPSCO )
+  ENDDO
+  IKJ=(JK-1)*NG1P1+1
+  IKJPN=IKJ+NG1
+  DO JKK=IKJ,IKJPN
+    DO JL = KIDIA,KFDIA
+      ZDPMG = ZDPM(JL,JKK)
+      ZDPMP0 = ZDPMG / 101325._JPRB
+      ZUPMG = ZUPM(JL,JKK) * ZDPMP0
+      ZUPMCO2 = ( ZUPM(JL,JKK) + RVGCO2 ) * ZDPMP0
+      ZUPMH2O = ( ZUPM(JL,JKK) + RVGH2O ) * ZDPMP0
+      ZUPMO3  = ( ZUPM(JL,JKK) + RVGO3  ) * ZDPMP0
+      ZDUC(JL,JKK) = ZDPMG
+      ZABLY(JL,6,JKK) = ZXOZ(JL) * ZDPMG
+      ZABLY(JL,7,JKK) = ZXOZ(JL) * ZUPMO3
+      ZU6 = ZXWV(JL) * ZUPMG
+      ZFPPW = 1.6078_JPRB * ZXWV(JL) / (1.0_JPRB+0.608_JPRB*ZXWV(JL))
+      ZABLY(JL,1,JKK)  = ZXWV(JL) * ZUPMH2O
+      ZABLY(JL,5,JKK) = ZU6 * ZFPPW
+      ZABLY(JL,4,JKK) = ZU6 * (1.0_JPRB-ZFPPW)
+      ZABLY(JL,3,JKK)  = PCCO2 * ZUPMCO2
+      ZABLY(JL,2,JKK)  = PCCO2 * ZDPMG
+    ENDDO
+  ENDDO
+ENDDO
+
+!-----------------------------------------------------------------------
+
+!*         5.    CUMULATIVE ABSORBER AMOUNTS FROM TOP OF ATMOSPHERE
+!                --------------------------------------------------
+
+DO JA = 1, NUA
+  DO JL = KIDIA,KFDIA
+    PABCU(JL,JA,3*KLEV+1) = 0.0_JPRB
+  ENDDO
+ENDDO
+
+DO JK = 1 , KLEV
+  IJ=(JK-1)*NG1P1+1
+  IJPN=IJ+NG1
+  IKL=KLEV+1-JK
+
+!*         5.1  CUMULATIVE AEROSOL AMOUNTS FROM TOP OF ATMOSPHERE
+!               --------------------------------------------------
+! --            NB: 'PAER' AEROSOLS ARE ENTERED FROM TOP TO BOTTOM
+
+  IAE1=3*KLEV+1-IJ
+  IAE2=3*KLEV+1-(IJ+1)
+  IAE3=3*KLEV+1-IJPN
+! print *,'IAE1= ',IAE1
+! print *,'IAE2= ',IAE2
+! print *,'IAE3= ',IAE3
+! print *,'KIDIA= ',KIDIA
+! print *,'KFDIA= ',KFDIA
+! print *,'KLEV= ',KLEV
+  DO JAE=1,6
+    DO JL = KIDIA,KFDIA
+!   print *,'JL= ',JL,'-JAE= ',JAE,'-JK= ',JK,'-NSIL= ',NSIL
+      ZUAER(JL,JAE) =&
+       & (RAER(JAE,1)*PAER(JL,1,JK)+RAER(JAE,2)*PAER(JL,2,JK)&
+       & +RAER(JAE,3)*PAER(JL,3,JK)+RAER(JAE,4)*PAER(JL,4,JK)&
+       & +RAER(JAE,5)*PAER(JL,5,JK)+RAER(JAE,6)*PAER(JL,6,JK))&
+       & /(ZDUC(JL,IAE1)+ZDUC(JL,IAE2)+ZDUC(JL,IAE3))  
+    ENDDO
+  ENDDO
+
+!*         5.2  INTRODUCES TEMPERATURE EFFECTS ON ABSORBER AMOUNTS
+!               --------------------------------------------------
+
+  DO JL = KIDIA,KFDIA
+    ZTAVI(JL)=PTAVE(JL,IKL)
+    ZFACT(JL)=1.0_JPRB-ZTAVI(JL)/296._JPRB
+    ZTCON(JL)=EXP(6.08_JPRB*(296._JPRB/ZTAVI(JL)-1.0_JPRB))
+!     ZTCON(JL)=EXP(6.08*ZFACT(JL))
+    ZTX=ZTAVI(JL)-TREF
+    ZTX2=ZTX*ZTX
+    ZZABLY = ZABLY(JL,1,IAE1)+ZABLY(JL,1,IAE2)+ZABLY(JL,1,IAE3)
+    ZUP=MIN( MAX( 0.5_JPRB*R10E*LOG( ZZABLY ) + 5._JPRB, 0.0_JPRB), 6.0_JPRB)
+    ZCAH1=ALWT(1,1)+ZUP*(ALWT(1,2)+ZUP*(ALWT(1,3)))
+    ZCBH1=BLWT(1,1)+ZUP*(BLWT(1,2)+ZUP*(BLWT(1,3)))
+    ZPSH1(JL)=EXP( ZCAH1 * ZTX + ZCBH1 * ZTX2 )
+    ZCAH2=ALWT(2,1)+ZUP*(ALWT(2,2)+ZUP*(ALWT(2,3)))
+    ZCBH2=BLWT(2,1)+ZUP*(BLWT(2,2)+ZUP*(BLWT(2,3)))
+    ZPSH2(JL)=EXP( ZCAH2 * ZTX + ZCBH2 * ZTX2 )
+    ZCAH3=ALWT(3,1)+ZUP*(ALWT(3,2)+ZUP*(ALWT(3,3)))
+    ZCBH3=BLWT(3,1)+ZUP*(BLWT(3,2)+ZUP*(BLWT(3,3)))
+    ZPSH3(JL)=EXP( ZCAH3 * ZTX + ZCBH3 * ZTX2 )
+    ZCAH4=ALWT(4,1)+ZUP*(ALWT(4,2)+ZUP*(ALWT(4,3)))
+    ZCBH4=BLWT(4,1)+ZUP*(BLWT(4,2)+ZUP*(BLWT(4,3)))
+    ZPSH4(JL)=EXP( ZCAH4 * ZTX + ZCBH4 * ZTX2 )
+    ZCAH5=ALWT(5,1)+ZUP*(ALWT(5,2)+ZUP*(ALWT(5,3)))
+    ZCBH5=BLWT(5,1)+ZUP*(BLWT(5,2)+ZUP*(BLWT(5,3)))
+    ZPSH5(JL)=EXP( ZCAH5 * ZTX + ZCBH5 * ZTX2 )
+    ZCAH6=ALWT(6,1)+ZUP*(ALWT(6,2)+ZUP*(ALWT(6,3)))
+    ZCBH6=BLWT(6,1)+ZUP*(BLWT(6,2)+ZUP*(BLWT(6,3)))
+    ZPSH6(JL)=EXP( ZCAH6 * ZTX + ZCBH6 * ZTX2 )
+    ZPHM6(JL)=EXP(-5.81E-4_JPRB * ZTX - 1.13E-6_JPRB * ZTX2 )
+    ZPSM6(JL)=EXP(-5.57E-4_JPRB * ZTX - 3.30E-6_JPRB * ZTX2 )
+    ZPHN6(JL)=EXP(-3.46E-5_JPRB * ZTX + 2.05E-7_JPRB * ZTX2 )
+    ZPSN6(JL)=EXP( 3.70E-3_JPRB * ZTX - 2.30E-6_JPRB * ZTX2 )
+  ENDDO
+
+  DO JL = KIDIA,KFDIA
+    ZTAVI(JL)=PTAVE(JL,IKL)
+    ZTX=ZTAVI(JL)-TREF
+    ZTX2=ZTX*ZTX
+    ZZABLY = ZABLY(JL,3,IAE1)+ZABLY(JL,3,IAE2)+ZABLY(JL,3,IAE3)
+    ZALUP = R10E * LOG ( ZZABLY )
+    ZUP   = MAX( 0.0_JPRB , 5.0_JPRB + 0.5_JPRB * ZALUP )
+    ZPSC2(JL) = (ZTAVI(JL)/TREF) ** ZUP
+    ZCAC8=ALWT(8,1)+ZUP*(ALWT(8,2)+ZUP*(ALWT(8,3)))
+    ZCBC8=BLWT(8,1)+ZUP*(BLWT(8,2)+ZUP*(BLWT(8,3)))
+    ZPSC3(JL)=EXP( ZCAC8 * ZTX + ZCBC8 * ZTX2 )
+    ZPHIO(JL) = EXP( RO3T(1) * ZTX + RO3T(2) * ZTX2)
+    ZPSIO(JL) = EXP( 2.0_JPRB* (RO3T(3)*ZTX+RO3T(4)*ZTX2))
+  ENDDO
+
+  DO JKK=IJ,IJPN
+    IC=3*KLEV+1-JKK
+    ICP1=IC+1
+    DO JL = KIDIA,KFDIA
+      ZDIFF = PVIEW(JL)
+!- H2O continuum      
+      PABCU(JL,10,IC)=PABCU(JL,10,ICP1)+ ZABLY(JL,4,IC)          *ZDIFF
+      PABCU(JL,11,IC)=PABCU(JL,11,ICP1)+ ZABLY(JL,5,IC)*ZTCON(JL)*ZDIFF
+!- O3      
+      PABCU(JL,12,IC)=PABCU(JL,12,ICP1)+ ZABLY(JL,6,IC)*ZPHIO(JL)*ZDIFF
+      PABCU(JL,13,IC)=PABCU(JL,13,ICP1)+ ZABLY(JL,7,IC)*ZPSIO(JL)*ZDIFF
+!- CO2
+      PABCU(JL,7,IC)=PABCU(JL,7,ICP1)+ ZABLY(JL,3,IC)*ZPSC2(JL)*ZDIFF
+      PABCU(JL,8,IC)=PABCU(JL,8,ICP1)+ ZABLY(JL,3,IC)*ZPSC3(JL)*ZDIFF
+      PABCU(JL,9,IC)=PABCU(JL,9,ICP1)+ ZABLY(JL,3,IC)*ZPSC3(JL)*ZDIFF
+!- H2O
+      PABCU(JL,1,IC)=PABCU(JL,1,ICP1)+ ZABLY(JL,1,IC)*ZPSH1(JL)
+      PABCU(JL,2,IC)=PABCU(JL,2,ICP1)+ ZABLY(JL,1,IC)*ZPSH2(JL)
+      PABCU(JL,3,IC)=PABCU(JL,3,ICP1)+ ZABLY(JL,1,IC)*ZPSH5(JL)*ZDIFF
+      PABCU(JL,4,IC)=PABCU(JL,4,ICP1)+ ZABLY(JL,1,IC)*ZPSH3(JL)
+      PABCU(JL,5,IC)=PABCU(JL,5,ICP1)+ ZABLY(JL,1,IC)*ZPSH4(JL)
+      PABCU(JL,6,IC)=PABCU(JL,6,ICP1)+ ZABLY(JL,1,IC)*ZPSH6(JL)*ZDIFF
+!- aerosols
+      PABCU(JL,14,IC)=PABCU(JL,14,ICP1)+ ZUAER(JL,1)    *ZDUC(JL,IC)*ZDIFF
+      PABCU(JL,15,IC)=PABCU(JL,15,ICP1)+ ZUAER(JL,2)    *ZDUC(JL,IC)*ZDIFF
+      PABCU(JL,16,IC)=PABCU(JL,16,ICP1)+ ZUAER(JL,3)    *ZDUC(JL,IC)*ZDIFF
+      PABCU(JL,17,IC)=PABCU(JL,17,ICP1)+ ZUAER(JL,4)    *ZDUC(JL,IC)*ZDIFF
+      PABCU(JL,18,IC)=PABCU(JL,18,ICP1)+ ZUAER(JL,5)    *ZDUC(JL,IC)*ZDIFF
+!- CH4
+      PABCU(JL,19,IC)=PABCU(JL,19,ICP1)&
+       & + ZABLY(JL,2,IC)*RCH4/PCCO2*ZPHM6(JL)*ZDIFF  
+      PABCU(JL,20,IC)=PABCU(JL,20,ICP1)&
+       & + ZABLY(JL,3,IC)*RCH4/PCCO2*ZPSM6(JL)*ZDIFF  
+!- N2O
+      PABCU(JL,21,IC)=PABCU(JL,21,ICP1)&
+       & + ZABLY(JL,2,IC)*RN2O/PCCO2*ZPHN6(JL)*ZDIFF  
+      PABCU(JL,22,IC)=PABCU(JL,22,ICP1)&
+       & + ZABLY(JL,3,IC)*RN2O/PCCO2*ZPSN6(JL)*ZDIFF  
+!- CFC11
+      PABCU(JL,23,IC)=PABCU(JL,23,ICP1)&
+       & + ZABLY(JL,2,IC)*RCFC11/PCCO2        *ZDIFF  
+!- CFC12
+      PABCU(JL,24,IC)=PABCU(JL,24,ICP1)&
+       & + ZABLY(JL,2,IC)*RCFC12/PCCO2        *ZDIFF  
+    ENDDO
+  ENDDO
+
+ENDDO
+!      print *,'END OF LWU'
+
+!-----------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('LWU',1,ZHOOK_HANDLE)
+END SUBROUTINE LWU
Index: LMDZ5/trunk/libf/phylmd/rrtm/lwu.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/lwu.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/lwu.intfb.h	(revision 1989)
@@ -0,0 +1,25 @@
+INTERFACE
+SUBROUTINE LWU&
+ & ( KIDIA, KFDIA, KLON, KLEV,&
+ & PAER , PCCO2, PDP , PPMB, PQOF , PTAVE, PVIEW, PWV,&
+ & PABCU&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE YOELW , ONLY : NSIL ,NUA ,NG1 ,NG1P1 ,&
+ & ALWT ,BLWT ,RO3T ,RT1 ,TREF ,&
+ & RVGCO2 ,RVGH2O ,RVGO3 
+INTEGER(KIND=JPIM),INTENT(IN) :: KLON
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
+REAL(KIND=JPRB) ,INTENT(IN) :: PAER(KLON,6,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCCO2
+REAL(KIND=JPRB) ,INTENT(IN) :: PDP(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PPMB(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PQOF(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTAVE(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PVIEW(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PWV(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PABCU(KLON,NUA,3*KLEV+1)
+END SUBROUTINE LWU
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/lwv.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/lwv.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/lwv.F90	(revision 1989)
@@ -0,0 +1,188 @@
+SUBROUTINE LWV &
+ & ( KIDIA, KFDIA, KLON , KLEV , KUAER , KTRAER,&
+ & PABCU, PB   , PBINT, PBSUR, PBTOP , PDBSL,&
+ & PEMIS, PEMIW,&
+ & PGA  , PGB  , PGASUR,PGBSUR,PGATOP, PGBTOP,&
+ & PCNTRB,PFLUC &
+ & )  
+
+!**** *LWV*   - LONGWAVE RADIATION, VERTICAL INTEGRATION
+
+!     PURPOSE.
+!     --------
+!           CARRIES OUT THE VERTICAL INTEGRATION TO GIVE LONGWAVE
+!           FLUXES OR RADIANCES
+
+!**   INTERFACE.
+!     ----------
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+! PABCU : (KLON,NUA,3*KLEV+1); ABSORBER AMOUNTS
+! PB     : (KLON,NSIL,KLEV+1); SPECTRAL HALF-LEVEL PLANCK FUNCTIONS
+! PBINT  : (KLON,KLEV+1)     ; HALF-LEVEL PLANCK FUNCTIONS
+! PBSUR  : (KLON,NSIL)       ; SURFACE SPECTRAL PLANCK FUNCTION
+! PBTOP  : (KLON,NSIL)       ; T.O.A. SPECTRAL PLANCK FUNCTION
+! PDBSL  : (KLON,KLEV*2)     ; SUB-LAYER PLANCK FUNCTION GRADIENT
+! PEMIS  : (KLON)            ; SURFACE LW EMISSIVITY
+! PEMIW  : (KLON)            ; SURFACE LW WINDOW EMISSIVITY
+! PGA, PGB                   ; PADE APPROXIMANTS
+! PGASUR, PGBSUR             ; SURFACE PADE APPROXIMANTS
+! PGATOP, PGBTOP             ; T.O.A. PADE APPROXIMANTS
+!     ==== OUTPUTS ===
+! PCNTRB : (KLON,KLEV+1,KLEV+1); CLEAR-SKY ENERGY EXCHANGE MATRIX
+! PFLUC(KLON,2,KLEV)           ; RADIATIVE FLUXES CLEAR-SKY
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+!          1. PERFORMS THE VERTICAL INTEGRATION DISTINGUISHING BETWEEN
+!     CONTRIBUTIONS BY -  THE NEARBY LAYERS
+!                      -  THE DISTANT LAYERS
+!                      -  THE BOUNDARY TERMS
+!          2. COMPUTES THE CLEAR-SKY DOWNWARD AND UPWARD EMISSIVITIES.
+
+!     EXTERNALS.
+!     ----------
+
+!          *LWVN*, *LWVD*, *LWVB*
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 89-07-14
+!        JJ Morcrette 96-06-07 Surface LW window emissivity
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOELW    , ONLY : NSIL     ,NIPD     ,NUA
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLON 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KIDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KUAER 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KTRAER 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PABCU(KLON,NUA,3*KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PB(KLON,NSIL,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PBINT(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PBSUR(KLON,NSIL) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PBTOP(KLON,NSIL) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PDBSL(KLON,NSIL,KLEV*2) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PEMIS(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PEMIW(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PGA(KLON,NIPD,2,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PGB(KLON,NIPD,2,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PGASUR(KLON,NIPD,2) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PGBSUR(KLON,NIPD,2) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PGATOP(KLON,NIPD,2) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PGBTOP(KLON,NIPD,2) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PCNTRB(KLON,KLEV+1,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFLUC(KLON,2,KLEV+1) 
+!-----------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+!-----------------------------------------------------------------------
+
+!              ------------
+
+REAL(KIND=JPRB) :: ZADJD(KLON,KLEV+1)  , ZADJU(KLON,KLEV+1)&
+ & ,  ZDBDT(KLON,NSIL,KLEV)&
+ & ,  ZDISD(KLON,KLEV+1)  , ZDISU(KLON,KLEV+1)&
+ & ,  ZDWFSU(KLON,NSIL)  
+
+INTEGER(KIND=JPIM) :: JA, JK, JL
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+#include "lwvb.intfb.h"
+#include "lwvd.intfb.h"
+#include "lwvn.intfb.h"
+
+!-----------------------------------------------------------------------
+
+!*         1.    INITIALIZATION
+!                --------------
+
+!*         1.1     INITIALIZE LAYER CONTRIBUTIONS
+!                  ------------------------------
+
+IF (LHOOK) CALL DR_HOOK('LWV',0,ZHOOK_HANDLE)
+DO JK=1,KLEV+1
+  DO JL=KIDIA,KFDIA
+    ZADJD(JL,JK)=0.0_JPRB
+    ZADJU(JL,JK)=0.0_JPRB
+    ZDISD(JL,JK)=0.0_JPRB
+    ZDISU(JL,JK)=0.0_JPRB
+  ENDDO
+ENDDO
+DO JA=1,NSIL
+  DO JL=KIDIA,KFDIA
+    ZDWFSU(JL,JA)=0.0_JPRB
+  ENDDO
+ENDDO
+
+!     ------------------------------------------------------------------
+
+!*         2.      VERTICAL INTEGRATION
+!                  --------------------
+
+!     ------------------------------------------------------------------
+
+!*         2.1     CONTRIBUTION FROM ADJACENT LAYERS
+!                  ---------------------------------
+
+CALL LWVN &
+ & ( KIDIA, KFDIA, KLON  , KLEV , KUAER,&
+ & PABCU, PDBSL, PGA   , PGB,&
+ & ZADJD, ZADJU, PCNTRB, ZDBDT, ZDWFSU  &
+ & )  
+
+!     ------------------------------------------------------------------
+
+!*         2.2     CONTRIBUTION FROM DISTANT LAYERS
+!                  ---------------------------------
+
+CALL LWVD &
+ & ( KIDIA , KFDIA, KLON , KLEV  , KTRAER,&
+ & PABCU , ZDBDT, PGA  , PGB,&
+ & PCNTRB, ZDISD, ZDISU, ZDWFSU &
+ & )  
+
+!     ------------------------------------------------------------------
+
+!*         2.3     EXCHANGE WITH THE BOUNDARIES
+!                  ----------------------------
+
+CALL LWVB &
+ & ( KIDIA , KFDIA , KLON  , KLEV  , KUAER,&
+ & PABCU , ZADJD , ZADJU,&
+ & PB    , PBINT , PBSUR , PBTOP,&
+ & ZDISD , ZDISU , PEMIS , PEMIW,&
+ & PGASUR, PGBSUR, PGATOP, PGBTOP,&
+ & ZDWFSU,PFLUC  &
+ & )  
+
+!-----------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('LWV',1,ZHOOK_HANDLE)
+END SUBROUTINE LWV
Index: LMDZ5/trunk/libf/phylmd/rrtm/lwv.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/lwv.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/lwv.intfb.h	(revision 1989)
@@ -0,0 +1,34 @@
+INTERFACE
+SUBROUTINE LWV&
+ & ( KIDIA, KFDIA, KLON , KLEV , KUAER , KTRAER,&
+ & PABCU, PB , PBINT, PBSUR, PBTOP , PDBSL,&
+ & PEMIS, PEMIW,&
+ & PGA , PGB , PGASUR,PGBSUR,PGATOP, PGBTOP,&
+ & PCNTRB,PFLUC&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE YOELW , ONLY : NSIL ,NIPD ,NUA
+INTEGER(KIND=JPIM),INTENT(IN) :: KLON
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KUAER
+INTEGER(KIND=JPIM),INTENT(IN) :: KTRAER
+REAL(KIND=JPRB) ,INTENT(IN) :: PABCU(KLON,NUA,3*KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PB(KLON,NSIL,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PBINT(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PBSUR(KLON,NSIL)
+REAL(KIND=JPRB) ,INTENT(IN) :: PBTOP(KLON,NSIL)
+REAL(KIND=JPRB) ,INTENT(IN) :: PDBSL(KLON,NSIL,KLEV*2)
+REAL(KIND=JPRB) ,INTENT(IN) :: PEMIS(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PEMIW(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PGA(KLON,NIPD,2,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PGB(KLON,NIPD,2,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PGASUR(KLON,NIPD,2)
+REAL(KIND=JPRB) ,INTENT(IN) :: PGBSUR(KLON,NIPD,2)
+REAL(KIND=JPRB) ,INTENT(IN) :: PGATOP(KLON,NIPD,2)
+REAL(KIND=JPRB) ,INTENT(IN) :: PGBTOP(KLON,NIPD,2)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PCNTRB(KLON,KLEV+1,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFLUC(KLON,2,KLEV+1)
+END SUBROUTINE LWV
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/lwvb.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/lwvb.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/lwvb.F90	(revision 1989)
@@ -0,0 +1,259 @@
+SUBROUTINE LWVB &
+ & ( KIDIA , KFDIA , KLON  , KLEV  , KUAER,&
+ & PABCU , PADJD , PADJU,&
+ & PB    , PBINT , PBSUR , PBTOP,&
+ & PDISD , PDISU , PEMIS , PEMIW,&
+ & PGASUR, PGBSUR, PGATOP, PGBTOP,&
+ & PDWFSU,PFLUC                  &
+ & )  
+
+!**** *LWVB*   - L.W., VERTICAL INTEGRATION, EXCHANGE WITH BOUNDARIES
+
+!     PURPOSE.
+!     --------
+!           INTRODUCES THE EFFECTS OF THE BOUNDARIES IN THE VERTICAL
+!           INTEGRATION
+
+!**   INTERFACE.
+!     ----------
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+! PABCU : (KLON,NUA,3*KLEV+1); ABSORBER AMOUNTS
+! PADJ.. : (KLON,KLEV+1)     ; CONTRIBUTION BY ADJACENT LAYERS
+! PB     : (KLON,NSIL,KLEV+1); SPECTRAL HALF-LEVEL PLANCK FUNCTIONS
+! PBINT  : (KLON,KLEV+1)     ; HALF-LEVEL PLANCK FUNCTIONS
+! PBSUR  : (KLON,NSIL)       ; SPECTRAL SURFACE PLANCK FUNCTION
+! PBTOP  : (KLON,NSIL)       ; SPECTRAL T.O.A. PLANCK FUNCTION
+! PDIS.. : (KLON,KLEV+1)     ; CONTRIBUTION BY DISTANT LAYERS
+! PEMIS  : (KLON)            ; SURFACE LW EMISSIVITY
+! PEMIW  : (KLON)            ; SURFACE LW WINDOW EMISSIVITY
+! PGASUR, PGBSUR             ; SURFACE PADE APPROXIMANTS
+! PGATOP, PGBTOP             ; T.O.A. PADE APPROXIMANTS 
+!     ==== OUTPUTS ===
+! PDWFSU : (KLON,NSIL)       ; SPECTRAL DOWNWARD FLUX AT SURFACE
+! PFLUC(KLON,2,KLEV)         ; RADIATIVE FLUXES CLEAR-SKY:
+!                     1  ==>  UPWARD   FLUX TOTAL
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+!          COMPUTES THE ENERGY EXCHANGE WITH TOP AND SURFACE OF THE
+!     ATMOSPHERE AND ADDS UP ALL CONTRIBUTIONS TO GET THE CLEAR-SKY 
+!     FLUXES
+
+!     EXTERNALS.
+!     ----------
+
+!          *LWTT*
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 89-07-14
+!        JJ Morcrette 96-06-07  Surface LW Window Emissivity
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOELW    , ONLY : NSIL     ,NIPD     ,NTRA     ,NUA      ,NG1P1
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLON 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KIDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KUAER 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PABCU(KLON,NUA,3*KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PADJD(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PADJU(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PB(KLON,NSIL,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PBINT(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PBSUR(KLON,NSIL) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PBTOP(KLON,NSIL) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PDISD(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PDISU(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PEMIS(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PEMIW(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PGASUR(KLON,NIPD,2) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PGBSUR(KLON,NIPD,2) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PGATOP(KLON,NIPD,2) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PGBTOP(KLON,NIPD,2) 
+REAL(KIND=JPRB)   ,INTENT(INOUT) :: PDWFSU(KLON,NSIL) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFLUC(KLON,2,KLEV+1) 
+!-----------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+!-----------------------------------------------------------------------
+
+!              ------------
+
+REAL(KIND=JPRB) :: ZBSUR(KLON,NSIL)&
+ & ,  ZTT(KLON,NTRA), ZTT1(KLON,NTRA), ZTT2(KLON,NTRA)&
+ & ,  ZUU(KLON,NUA) , ZCNSOL(KLON)   , ZCNTOP(KLON)  
+
+INTEGER(KIND=JPIM) :: IN, JA, JK, JL
+
+REAL(KIND=JPRB) :: ZCNTOP1, ZCNTOP2, ZCNTOP3, ZCNTOP4, ZCNTOP5, ZCNTOP6
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+#include "lwtt.intfb.h"
+
+!-----------------------------------------------------------------------
+
+!*         1.    INITIALIZATION
+!                --------------
+
+!*         1.2     INITIALIZE TRANSMISSION FUNCTIONS
+!                  ---------------------------------
+
+IF (LHOOK) CALL DR_HOOK('LWVB',0,ZHOOK_HANDLE)
+DO JA=1,NTRA
+  DO JL=KIDIA,KFDIA
+    ZTT (JL,JA)=1.0_JPRB
+    ZTT1(JL,JA)=1.0_JPRB
+    ZTT2(JL,JA)=1.0_JPRB
+  ENDDO
+ENDDO
+
+DO JA=1,NUA
+  DO JL=KIDIA,KFDIA
+    ZUU(JL,JA)=1.0_JPRB
+  ENDDO
+ENDDO
+
+!     ------------------------------------------------------------------
+
+!*         2.      VERTICAL INTEGRATION
+!                  --------------------
+
+!*         2.3     EXCHANGE WITH TOP OF THE ATMOSPHERE
+!                  -----------------------------------
+
+DO JK = 1 , KLEV
+  IN=(JK-1)*NG1P1+1
+
+  DO JA=1,KUAER
+    DO JL=KIDIA,KFDIA
+      ZUU(JL,JA)=PABCU(JL,JA,IN)
+    ENDDO
+  ENDDO
+
+  CALL LWTT &
+   & ( KIDIA        , KFDIA        , KLON,&
+   & PGATOP(1,1,1), PGBTOP(1,1,1),&
+   & ZUU          , ZTT &
+   & )  
+
+  DO JL = KIDIA,KFDIA
+    ZCNTOP1=PBTOP(JL,1)*ZTT(JL,1)          *ZTT(JL,10)
+    ZCNTOP2=PBTOP(JL,2)*ZTT(JL,2)*ZTT(JL,7)*ZTT(JL,11)
+    ZCNTOP3=PBTOP(JL,3)*ZTT(JL,4)*ZTT(JL,8)*ZTT(JL,12)
+    ZCNTOP4=PBTOP(JL,4)*ZTT(JL,5)*ZTT(JL,9)*ZTT(JL,13)
+    ZCNTOP5=PBTOP(JL,5)*ZTT(JL,3)          *ZTT(JL,14)
+    ZCNTOP6=PBTOP(JL,6)*ZTT(JL,6)          *ZTT(JL,15)
+    ZCNTOP(JL)=ZCNTOP1+ZCNTOP2+ZCNTOP3+ZCNTOP4+ZCNTOP5+ZCNTOP6
+    PFLUC(JL,2,JK)=ZCNTOP(JL)-PBINT(JL,JK)-PDISD(JL,JK)-PADJD(JL,JK)
+    IF (JK == 1) THEN
+      PDWFSU(JL,1)=ZCNTOP1-PB(JL,1,JK)-PDWFSU(JL,1)
+      PDWFSU(JL,2)=ZCNTOP2-PB(JL,2,JK)-PDWFSU(JL,2)
+      PDWFSU(JL,3)=ZCNTOP3-PB(JL,3,JK)-PDWFSU(JL,3)
+      PDWFSU(JL,4)=ZCNTOP4-PB(JL,4,JK)-PDWFSU(JL,4)
+      PDWFSU(JL,5)=ZCNTOP5-PB(JL,5,JK)-PDWFSU(JL,5)
+      PDWFSU(JL,6)=ZCNTOP6-PB(JL,6,JK)-PDWFSU(JL,6)
+    ENDIF
+  ENDDO
+
+ENDDO
+
+JK = KLEV+1
+IN=(JK-1)*NG1P1+1
+
+DO JL = KIDIA,KFDIA
+  ZCNTOP(JL)= PBTOP(JL,1)&
+   & + PBTOP(JL,2)&
+   & + PBTOP(JL,3)&
+   & + PBTOP(JL,4)&
+   & + PBTOP(JL,5)&
+   & + PBTOP(JL,6)  
+  PFLUC(JL,2,JK)=ZCNTOP(JL)-PBINT(JL,JK)-PDISD(JL,JK)-PADJD(JL,JK)
+ENDDO
+
+!*         2.5     EXCHANGE WITH LOWER LIMIT
+!                  -------------------------
+
+JK = 1
+IN=(JK-1)*NG1P1+1
+
+DO JL = KIDIA,KFDIA
+  ZBSUR(JL,1)=PBSUR(JL,1)*PEMIS(JL) -(1.0_JPRB-PEMIS(JL))*PDWFSU(JL,1)
+  ZBSUR(JL,2)=PBSUR(JL,2)*PEMIS(JL) -(1.0_JPRB-PEMIS(JL))*PDWFSU(JL,2)
+  ZBSUR(JL,3)=PBSUR(JL,3)*PEMIW(JL) -(1.0_JPRB-PEMIW(JL))*PDWFSU(JL,3)
+  ZBSUR(JL,4)=PBSUR(JL,4)*PEMIW(JL) -(1.0_JPRB-PEMIW(JL))*PDWFSU(JL,4)
+  ZBSUR(JL,5)=PBSUR(JL,5)*PEMIS(JL) -(1.0_JPRB-PEMIS(JL))*PDWFSU(JL,5)
+  ZBSUR(JL,6)=PBSUR(JL,6)*PEMIS(JL) -(1.0_JPRB-PEMIS(JL))*PDWFSU(JL,6)
+
+  PFLUC(JL,1,JK) = ZBSUR(JL,1)&
+   & + ZBSUR(JL,2)&
+   & + ZBSUR(JL,3)&
+   & + ZBSUR(JL,4)&
+   & + ZBSUR(JL,5)&
+   & + ZBSUR(JL,6)  
+
+  ZBSUR(JL,1)=ZBSUR(JL,1)-PB(JL,1,1)
+  ZBSUR(JL,2)=ZBSUR(JL,2)-PB(JL,2,1)
+  ZBSUR(JL,3)=ZBSUR(JL,3)-PB(JL,3,1)
+  ZBSUR(JL,4)=ZBSUR(JL,4)-PB(JL,4,1)
+  ZBSUR(JL,5)=ZBSUR(JL,5)-PB(JL,5,1)
+  ZBSUR(JL,6)=ZBSUR(JL,6)-PB(JL,6,1)
+ENDDO
+
+DO JK = 2 , KLEV+1
+  IN=(JK-1)*NG1P1+1
+
+  DO JA=1,KUAER
+    DO JL=KIDIA,KFDIA
+      ZUU(JL,JA)=PABCU(JL,JA,1)-PABCU(JL,JA,IN)
+    ENDDO
+  ENDDO
+
+  CALL LWTT &
+   & ( KIDIA        , KFDIA        , KLON,&
+   & PGASUR(1,1,1), PGBSUR(1,1,1),&
+   & ZUU, ZTT &
+   & )  
+
+  DO JL = KIDIA,KFDIA
+    ZCNSOL(JL)=ZBSUR(JL,1)*ZTT(JL,1)          *ZTT(JL,10)&
+     & +ZBSUR(JL,2)*ZTT(JL,2)*ZTT(JL,7)*ZTT(JL,11)&
+     & +ZBSUR(JL,3)*ZTT(JL,4)*ZTT(JL,8)*ZTT(JL,12)&
+     & +ZBSUR(JL,4)*ZTT(JL,5)*ZTT(JL,9)*ZTT(JL,13)&
+     & +ZBSUR(JL,5)*ZTT(JL,3)          *ZTT(JL,14)&
+     & +ZBSUR(JL,6)*ZTT(JL,6)          *ZTT(JL,15)  
+    PFLUC(JL,1,JK)=ZCNSOL(JL)+PBINT(JL,JK)-PDISU(JL,JK)-PADJU(JL,JK)
+  ENDDO
+
+ENDDO
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('LWVB',1,ZHOOK_HANDLE)
+END SUBROUTINE LWVB
Index: LMDZ5/trunk/libf/phylmd/rrtm/lwvb.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/lwvb.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/lwvb.intfb.h	(revision 1989)
@@ -0,0 +1,35 @@
+INTERFACE
+SUBROUTINE LWVB&
+ & ( KIDIA , KFDIA , KLON , KLEV , KUAER,&
+ & PABCU , PADJD , PADJU,&
+ & PB , PBINT , PBSUR , PBTOP,&
+ & PDISD , PDISU , PEMIS , PEMIW,&
+ & PGASUR, PGBSUR, PGATOP, PGBTOP,&
+ & PDWFSU,PFLUC&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE YOELW , ONLY : NSIL ,NIPD ,NTRA ,NUA ,NG1P1
+INTEGER(KIND=JPIM),INTENT(IN) :: KLON
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KUAER
+REAL(KIND=JPRB) ,INTENT(IN) :: PABCU(KLON,NUA,3*KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PADJD(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PADJU(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PB(KLON,NSIL,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PBINT(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PBSUR(KLON,NSIL)
+REAL(KIND=JPRB) ,INTENT(IN) :: PBTOP(KLON,NSIL)
+REAL(KIND=JPRB) ,INTENT(IN) :: PDISD(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PDISU(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PEMIS(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PEMIW(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PGASUR(KLON,NIPD,2)
+REAL(KIND=JPRB) ,INTENT(IN) :: PGBSUR(KLON,NIPD,2)
+REAL(KIND=JPRB) ,INTENT(IN) :: PGATOP(KLON,NIPD,2)
+REAL(KIND=JPRB) ,INTENT(IN) :: PGBTOP(KLON,NIPD,2)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PDWFSU(KLON,NSIL)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFLUC(KLON,2,KLEV+1)
+END SUBROUTINE LWVB
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/lwvd.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/lwvd.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/lwvd.F90	(revision 1989)
@@ -0,0 +1,278 @@
+SUBROUTINE LWVD &
+ & ( KIDIA,  KFDIA, KLON , KLEV  , KTRAER,&
+ & PABCU,  PDBDT,&
+ & PGA  ,  PGB,&
+ & PCNTRB, PDISD, PDISU, PDWFSU &
+ & )  
+
+!**** *LWVD*   - L.W., VERTICAL INTEGRATION, DISTANT LAYERS
+
+!     PURPOSE.
+!     --------
+!           CARRIES OUT THE VERTICAL INTEGRATION ON THE DISTANT LAYERS
+
+!**   INTERFACE.
+!     ----------
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+! PABCU  : (KLON,NUA,3*KLEV+1) ; ABSORBER AMOUNTS
+! PDBDT  : (KLON,KLEV)         ; LAYER PLANCK FUNCTION GRADIENT
+! PGA, PGB                     ; PADE APPROXIMANTS
+!     ==== OUTPUTS ===
+! PCNTRB : (KLON,KLEV+1,KLEV+1); ENERGY EXCHANGE MATRIX
+! PDIS.. : (KLON,KLEV+1)       ; CONTRIBUTION BY DISTANT LAYERS
+! PDWFSU : (KLON,NSIL)         ; SPECTRAL DOWNWARD FLUX AT SURFACE
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+!          1. PERFORMS THE VERTICAL INTEGRATION CORRESPONDING TO THE
+!     CONTRIBUTIONS OF THE DISTANT LAYERS USING TRAPEZOIDAL RULE
+
+!     EXTERNALS.
+!     ----------
+
+!          *LWTT*
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 89-07-14
+!        JJ Morcrette 97-04-18 Revised continuum + Surf. Emissiv.
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOELW    , ONLY : NSIL     ,NIPD     ,NTRA     ,NUA      ,NG1P1
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLON 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KIDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KTRAER 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PABCU(KLON,NUA,3*KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PDBDT(KLON,NSIL,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PGA(KLON,NIPD,2,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PGB(KLON,NIPD,2,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PCNTRB(KLON,KLEV+1,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PDISD(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PDISU(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(INOUT) :: PDWFSU(KLON,NSIL) 
+!-----------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+!-----------------------------------------------------------------------
+
+!              ------------
+
+REAL(KIND=JPRB) :: ZTT(KLON,NTRA), ZTT1(KLON,NTRA), ZTT2(KLON,NTRA)
+
+INTEGER(KIND=JPIM) :: IJKL, IKD1, IKD2, IKJ, IKJP1, IKM1, IKN,&
+ & IKP1, IKU1, IKU2, ITT, JA, JK, JKJ, JL, JLK  
+
+REAL(KIND=JPRB) :: ZWW, ZWW1, ZWW2, ZWW3, ZWW4, ZWW5, ZWW6
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+#include "lwttm.intfb.h"
+
+!-----------------------------------------------------------------------
+
+!*         1.    INITIALIZATION
+!                --------------
+
+!*         1.1     INITIALIZE LAYER CONTRIBUTIONS
+!                  ------------------------------
+
+IF (LHOOK) CALL DR_HOOK('LWVD',0,ZHOOK_HANDLE)
+DO JK = 1, KLEV+1
+  DO JL = KIDIA,KFDIA
+    PDISD(JL,JK) = 0.0_JPRB
+    PDISU(JL,JK) = 0.0_JPRB
+  ENDDO
+ENDDO
+
+!*         1.2     INITIALIZE TRANSMISSION FUNCTIONS
+!                  ---------------------------------
+
+DO JA = 1, NTRA
+  DO JL = KIDIA,KFDIA
+    ZTT (JL,JA) = 1.0_JPRB
+    ZTT1(JL,JA) = 1.0_JPRB
+    ZTT2(JL,JA) = 1.0_JPRB
+  ENDDO
+ENDDO
+
+!     ------------------------------------------------------------------
+
+!*         2.      VERTICAL INTEGRATION
+!                  --------------------
+
+!*         2.2     CONTRIBUTION FROM DISTANT LAYERS
+!                  ---------------------------------
+
+!*         2.2.1   DISTANT AND ABOVE LAYERS
+!                  ------------------------
+
+!*         2.2.2   FIRST UPPER LEVEL
+!                  -----------------
+
+DO JK = 1 , KLEV-1
+  IKP1=JK+1
+  IKN=(JK-1)*NG1P1+1
+  IKD1= JK  *NG1P1+1
+
+  CALL LWTTM &
+   & ( KIDIA         , KFDIA          , KLON,&
+   & PGA(1,1,1,JK) , PGB(1,1,1,JK),&
+   & PABCU(1,1,IKN), PABCU(1,1,IKD1), ZTT1 &
+   & )  
+
+!*         2.2.3   HIGHER UP
+!                  ---------
+
+  ITT=1
+  DO JKJ=IKP1,KLEV
+    IF(ITT == 1) THEN
+      ITT=2
+    ELSE
+      ITT=1
+    ENDIF
+    IKJP1=JKJ+1
+    IKD2= JKJ  *NG1P1+1
+
+    IF(ITT == 1) THEN
+      CALL LWTTM &
+       & ( KIDIA         , KFDIA          , KLON,&
+       & PGA(1,1,1,JKJ), PGB(1,1,1,JKJ),&
+       & PABCU(1,1,IKN), PABCU(1,1,IKD2), ZTT1 &
+       & )  
+
+    ELSE
+      CALL LWTTM &
+       & ( KIDIA         , KFDIA          , KLON,&
+       & PGA(1,1,1,JKJ), PGB(1,1,1,JKJ),&
+       & PABCU(1,1,IKN), PABCU(1,1,IKD2), ZTT2 &
+       & )  
+
+    ENDIF
+
+    DO JA = 1, KTRAER
+      DO JL = KIDIA,KFDIA
+        ZTT(JL,JA) = (ZTT1(JL,JA)+ZTT2(JL,JA))*0.5_JPRB
+      ENDDO
+    ENDDO
+
+    DO JL = KIDIA,KFDIA
+      ZWW1=PDBDT(JL,1,JKJ)*ZTT(JL,1)          *ZTT(JL,10)
+      ZWW2=PDBDT(JL,2,JKJ)*ZTT(JL,2)*ZTT(JL,7)*ZTT(JL,11)
+      ZWW3=PDBDT(JL,3,JKJ)*ZTT(JL,4)*ZTT(JL,8)*ZTT(JL,12)
+      ZWW4=PDBDT(JL,4,JKJ)*ZTT(JL,5)*ZTT(JL,9)*ZTT(JL,13)
+      ZWW5=PDBDT(JL,5,JKJ)*ZTT(JL,3)          *ZTT(JL,14)
+      ZWW6=PDBDT(JL,6,JKJ)*ZTT(JL,6)          *ZTT(JL,15)
+      ZWW=ZWW1+ZWW2+ZWW3+ZWW4+ZWW5+ZWW6
+      PDISD(JL,JK)=PDISD(JL,JK)+ZWW
+      PCNTRB(JL,JK,IKJP1)=ZWW
+      IF (JK == 1) THEN
+        PDWFSU(JL,1)=PDWFSU(JL,1)+ZWW1
+        PDWFSU(JL,2)=PDWFSU(JL,2)+ZWW2
+        PDWFSU(JL,3)=PDWFSU(JL,3)+ZWW3
+        PDWFSU(JL,4)=PDWFSU(JL,4)+ZWW4
+        PDWFSU(JL,5)=PDWFSU(JL,5)+ZWW5
+        PDWFSU(JL,6)=PDWFSU(JL,6)+ZWW6
+      ENDIF
+    ENDDO
+
+  ENDDO
+ENDDO
+
+!*         2.2.4   DISTANT AND BELOW LAYERS
+!                  ------------------------
+
+!*         2.2.5   FIRST LOWER LEVEL
+!                  -----------------
+
+DO JK=3,KLEV+1
+  IKN=(JK-1)*NG1P1+1
+  IKM1=JK-1
+  IKJ=JK-2
+  IKU1= IKJ  *NG1P1+1
+
+  CALL LWTTM &
+   & ( KIDIA          , KFDIA         , KLON,&
+   & PGA(1,1,1,IKJ) , PGB(1,1,1,IKJ),&
+   & PABCU(1,1,IKU1), PABCU(1,1,IKN), ZTT1 &
+   & )  
+
+!*         2.2.6   DOWN BELOW
+!                  ----------
+
+  ITT=1
+  DO JLK=1,IKJ
+    IF(ITT == 1) THEN
+      ITT=2
+    ELSE
+      ITT=1
+    ENDIF
+    IJKL=IKM1-JLK
+    IKU2=(IJKL-1)*NG1P1+1
+
+    IF(ITT == 1) THEN
+      CALL LWTTM &
+       & ( KIDIA          , KFDIA          , KLON,&
+       & PGA(1,1,1,IJKL), PGB(1,1,1,IJKL),&
+       & PABCU(1,1,IKU2), PABCU(1,1,IKN) , ZTT1 &
+       & )  
+
+    ELSE
+      CALL LWTTM &
+       & ( KIDIA          , KFDIA          , KLON,&
+       & PGA(1,1,1,IJKL), PGB(1,1,1,IJKL),&
+       & PABCU(1,1,IKU2), PABCU(1,1,IKN) , ZTT2 &
+       & )  
+
+    ENDIF
+
+    DO JA = 1, KTRAER
+      DO JL = KIDIA,KFDIA
+        ZTT(JL,JA) = (ZTT1(JL,JA)+ZTT2(JL,JA))*0.5_JPRB
+      ENDDO
+    ENDDO
+
+    DO JL = KIDIA,KFDIA
+      ZWW=PDBDT(JL,1,IJKL)*ZTT(JL,1)          *ZTT(JL,10)&
+       & +PDBDT(JL,2,IJKL)*ZTT(JL,2)*ZTT(JL,7)*ZTT(JL,11)&
+       & +PDBDT(JL,3,IJKL)*ZTT(JL,4)*ZTT(JL,8)*ZTT(JL,12)&
+       & +PDBDT(JL,4,IJKL)*ZTT(JL,5)*ZTT(JL,9)*ZTT(JL,13)&
+       & +PDBDT(JL,5,IJKL)*ZTT(JL,3)          *ZTT(JL,14)&
+       & +PDBDT(JL,6,IJKL)*ZTT(JL,6)          *ZTT(JL,15)  
+      PDISU(JL,JK)=PDISU(JL,JK)+ZWW
+      PCNTRB(JL,JK,IJKL)=ZWW
+    ENDDO
+
+  ENDDO
+ENDDO
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('LWVD',1,ZHOOK_HANDLE)
+END SUBROUTINE LWVD
Index: LMDZ5/trunk/libf/phylmd/rrtm/lwvd.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/lwvd.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/lwvd.intfb.h	(revision 1989)
@@ -0,0 +1,24 @@
+INTERFACE
+SUBROUTINE LWVD&
+ & ( KIDIA, KFDIA, KLON , KLEV , KTRAER,&
+ & PABCU, PDBDT,&
+ & PGA , PGB,&
+ & PCNTRB, PDISD, PDISU, PDWFSU&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE YOELW , ONLY : NSIL ,NIPD ,NTRA ,NUA ,NG1P1
+INTEGER(KIND=JPIM),INTENT(IN) :: KLON
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KTRAER
+REAL(KIND=JPRB) ,INTENT(IN) :: PABCU(KLON,NUA,3*KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PDBDT(KLON,NSIL,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PGA(KLON,NIPD,2,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PGB(KLON,NIPD,2,KLEV)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PCNTRB(KLON,KLEV+1,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PDISD(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PDISU(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PDWFSU(KLON,NSIL)
+END SUBROUTINE LWVD
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/lwvn.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/lwvn.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/lwvn.F90	(revision 1989)
@@ -0,0 +1,238 @@
+SUBROUTINE LWVN &
+ & ( KIDIA, KFDIA, KLON  , KLEV , KUAER,&
+ & PABCU, PDBSL, PGA   , PGB,&
+ & PADJD, PADJU, PCNTRB, PDBDT, PDWFSU &
+ & )  
+
+!**** *LWVN*   - L.W., VERTICAL INTEGRATION, NEARBY LAYERS
+
+!     PURPOSE.
+!     --------
+!           CARRIES OUT THE VERTICAL INTEGRATION ON NEARBY LAYERS
+!           TO GIVE LONGWAVE FLUXES OR RADIANCES
+
+!**   INTERFACE.
+!     ----------
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!     ==== INPUTS ===
+! PABCU : (KLON,NUA,3*KLEV+1)  ; ABSORBER AMOUNTS
+! PDBSL  : (KLON,KLEV*2)       ; SUB-LAYER PLANCK FUNCTION GRADIENT
+! PGA, PGB                     ; PADE APPROXIMANTS
+!     ==== OUTPUTS ===
+! PADJ.. : (KLON,KLEV+1)       ; CONTRIBUTION OF ADJACENT LAYERS
+! PCNTRB : (KLON,KLEV+1,KLEV+1); CLEAR-SKY ENERGY EXCHANGE MATRIX
+! PDBDT  : (KLON,NUA,KLEV)     ; LAYER PLANCK FUNCTION GRADIENT
+! PDWFSU : (KLON,NSIL)         ; SPECTRAL DOWNWARD FLUX AT SURFACE
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+!          1. PERFORMS THE VERTICAL INTEGRATION CORRESPONDING TO THE
+!     CONTRIBUTIONS OF THE ADJACENT LAYERS USING A GAUSSIAN QUADRATURE
+
+!     EXTERNALS.
+!     ----------
+
+!          *LWTT*
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 89-07-14
+!        JJ Morcrette 97-04-18 Revised Continuum + Surf.Emissiv.
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOELW    , ONLY : NSIL     ,NIPD     ,NTRA     ,NUA      ,&
+ & NG1      ,NG1P1    ,WG1  
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLON 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KIDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KUAER 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PABCU(KLON,NUA,3*KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PDBSL(KLON,NSIL,KLEV*2) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PGA(KLON,NIPD,2,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PGB(KLON,NIPD,2,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PADJD(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PADJU(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PCNTRB(KLON,KLEV+1,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PDBDT(KLON,NSIL,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(INOUT) :: PDWFSU(KLON,NSIL) 
+!-----------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+!-----------------------------------------------------------------------
+
+!              ------------
+
+REAL(KIND=JPRB) :: ZTT(KLON,NTRA), ZTT1(KLON,NTRA), ZTT2(KLON,NTRA),  ZUU(KLON,NUA)
+
+INTEGER(KIND=JPIM) :: IBS, IDD, IM12, IMU, IND, INU, IXD, IXU,&
+ & JA, JG, JK, JK1, JK2, JL, JNU  
+
+REAL(KIND=JPRB) :: ZWTR, ZWTR1, ZWTR2, ZWTR3, ZWTR4, ZWTR5, ZWTR6
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+#include "lwtt.intfb.h"
+
+!-----------------------------------------------------------------------
+
+!*         1.    INITIALIZATION
+!                --------------
+
+!*         1.1     INITIALIZE LAYER CONTRIBUTIONS
+!                  ------------------------------
+
+IF (LHOOK) CALL DR_HOOK('LWVN',0,ZHOOK_HANDLE)
+DO JK = 1 , KLEV+1
+  DO JL = KIDIA,KFDIA
+    PADJD(JL,JK) = 0.0_JPRB
+    PADJU(JL,JK) = 0.0_JPRB
+  ENDDO
+ENDDO
+
+!*         1.2     INITIALIZE TRANSMISSION FUNCTIONS
+!                  ---------------------------------
+
+DO JA = 1 , NTRA
+  DO JL = KIDIA,KFDIA
+    ZTT (JL,JA) = 1.0_JPRB
+    ZTT1(JL,JA) = 1.0_JPRB
+    ZTT2(JL,JA) = 1.0_JPRB
+  ENDDO
+ENDDO
+
+DO JA = 1 , NUA
+  DO JL = KIDIA,KFDIA
+    ZUU(JL,JA) = 0.0_JPRB
+  ENDDO
+ENDDO
+
+!     ------------------------------------------------------------------
+
+!*         2.      VERTICAL INTEGRATION
+!                  --------------------
+
+!*         2.1     CONTRIBUTION FROM ADJACENT LAYERS
+!                  ---------------------------------
+
+DO JK = 1 , KLEV
+
+!*         2.1.1   DOWNWARD LAYERS
+!                  ---------------
+
+  IM12 = 2 * (JK - 1)
+  IND = (JK - 1) * NG1P1 + 1
+  IXD = IND
+  INU = JK * NG1P1 + 1
+  IXU = IND
+
+  DO JG = 1 , NG1
+    IBS = IM12 + JG
+    IDD = IXD + JG
+
+    DO JA = 1 , KUAER
+      DO JL = KIDIA,KFDIA
+        ZUU(JL,JA) = PABCU(JL,JA,IND) - PABCU(JL,JA,IDD)
+      ENDDO
+    ENDDO
+
+    CALL LWTT &
+     & ( KIDIA        , KFDIA        , KLON,&
+     & PGA(1,1,1,JK), PGB(1,1,1,JK),&
+     & ZUU          , ZTT &
+     & )  
+
+    DO JL = KIDIA,KFDIA
+      ZWTR1=PDBSL(JL,1,IBS)*ZTT(JL,1)          *ZTT(JL,10)
+      ZWTR2=PDBSL(JL,2,IBS)*ZTT(JL,2)*ZTT(JL,7)*ZTT(JL,11)
+      ZWTR3=PDBSL(JL,3,IBS)*ZTT(JL,4)*ZTT(JL,8)*ZTT(JL,12)
+      ZWTR4=PDBSL(JL,4,IBS)*ZTT(JL,5)*ZTT(JL,9)*ZTT(JL,13)
+      ZWTR5=PDBSL(JL,5,IBS)*ZTT(JL,3)          *ZTT(JL,14)
+      ZWTR6=PDBSL(JL,6,IBS)*ZTT(JL,6)          *ZTT(JL,15)
+      ZWTR=ZWTR1+ZWTR2+ZWTR3+ZWTR4+ZWTR5+ZWTR6
+      PADJD(JL,JK) = PADJD(JL,JK) + ZWTR * WG1(JG)
+      IF (JK == 1) THEN
+        PDWFSU(JL,1)=PDWFSU(JL,1)+WG1(JG)*ZWTR1
+        PDWFSU(JL,2)=PDWFSU(JL,2)+WG1(JG)*ZWTR2
+        PDWFSU(JL,3)=PDWFSU(JL,3)+WG1(JG)*ZWTR3
+        PDWFSU(JL,4)=PDWFSU(JL,4)+WG1(JG)*ZWTR4
+        PDWFSU(JL,5)=PDWFSU(JL,5)+WG1(JG)*ZWTR5
+        PDWFSU(JL,6)=PDWFSU(JL,6)+WG1(JG)*ZWTR6
+      ENDIF
+    ENDDO
+
+!*         2.1.2   UPWARD LAYERS
+!                  -------------
+
+    IMU = IXU + JG
+    DO JA = 1 , KUAER
+      DO JL = KIDIA,KFDIA
+        ZUU(JL,JA) = PABCU(JL,JA,IMU) - PABCU(JL,JA,INU)
+      ENDDO
+    ENDDO
+
+    CALL LWTT &
+     & ( KIDIA        , KFDIA        , KLON,&
+     & PGA(1,1,1,JK), PGB(1,1,1,JK),&
+     & ZUU          , ZTT &
+     & )  
+
+    DO JL = KIDIA,KFDIA
+      ZWTR=PDBSL(JL,1,IBS)*ZTT(JL,1)          *ZTT(JL,10)&
+       & +PDBSL(JL,2,IBS)*ZTT(JL,2)*ZTT(JL,7)*ZTT(JL,11)&
+       & +PDBSL(JL,3,IBS)*ZTT(JL,4)*ZTT(JL,8)*ZTT(JL,12)&
+       & +PDBSL(JL,4,IBS)*ZTT(JL,5)*ZTT(JL,9)*ZTT(JL,13)&
+       & +PDBSL(JL,5,IBS)*ZTT(JL,3)          *ZTT(JL,14)&
+       & +PDBSL(JL,6,IBS)*ZTT(JL,6)          *ZTT(JL,15)  
+      PADJU(JL,JK+1) = PADJU(JL,JK+1) + ZWTR * WG1(JG)
+    ENDDO
+
+  ENDDO
+
+  DO JL = KIDIA,KFDIA
+    PCNTRB(JL,JK,JK+1) = PADJD(JL,JK)
+    PCNTRB(JL,JK+1,JK) = PADJU(JL,JK+1)
+    PCNTRB(JL,JK  ,JK) = 0.0_JPRB
+  ENDDO
+
+ENDDO
+
+DO JK = 1 , KLEV
+  JK2 = 2 * JK
+  JK1 = JK2 - 1
+
+  DO JNU = 1 , NSIL
+    DO JL = KIDIA,KFDIA
+      PDBDT(JL,JNU,JK) = PDBSL(JL,JNU,JK1) + PDBSL(JL,JNU,JK2)
+    ENDDO
+  ENDDO
+ENDDO
+
+!-----------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('LWVN',1,ZHOOK_HANDLE)
+END SUBROUTINE LWVN
Index: LMDZ5/trunk/libf/phylmd/rrtm/lwvn.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/lwvn.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/lwvn.intfb.h	(revision 1989)
@@ -0,0 +1,25 @@
+INTERFACE
+SUBROUTINE LWVN&
+ & ( KIDIA, KFDIA, KLON , KLEV , KUAER,&
+ & PABCU, PDBSL, PGA , PGB,&
+ & PADJD, PADJU, PCNTRB, PDBDT, PDWFSU&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE YOELW , ONLY : NSIL ,NIPD ,NTRA ,NUA ,&
+ & NG1 ,NG1P1 ,WG1 
+INTEGER(KIND=JPIM),INTENT(IN) :: KLON
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KUAER
+REAL(KIND=JPRB) ,INTENT(IN) :: PABCU(KLON,NUA,3*KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PDBSL(KLON,NSIL,KLEV*2)
+REAL(KIND=JPRB) ,INTENT(IN) :: PGA(KLON,NIPD,2,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PGB(KLON,NIPD,2,KLEV)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PADJD(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PADJU(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PCNTRB(KLON,KLEV+1,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PDBDT(KLON,NSIL,KLEV)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PDWFSU(KLON,NSIL)
+END SUBROUTINE LWVN
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/mod_const_para.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/mod_const_para.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/mod_const_para.F90	(revision 1989)
@@ -0,0 +1,16 @@
+MODULE mod_const_mpi
+
+  INTEGER :: COMM_LMDZ
+  INTEGER :: MPI_REAL_LMDZ
+ 
+
+CONTAINS 
+
+  SUBROUTINE Init_const_mpi
+  IMPLICIT NONE
+  
+    COMM_LMDZ=0
+    MPI_REAL_LMDZ=0
+  END SUBROUTINE Init_const_mpi
+
+END MODULE mod_const_mpi
Index: LMDZ5/trunk/libf/phylmd/rrtm/myrecvset_mod.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/myrecvset_mod.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/myrecvset_mod.F90	(revision 1989)
@@ -0,0 +1,74 @@
+MODULE MYRECVSET_MOD
+CONTAINS
+FUNCTION MYRECVSET(KSETS,KMYSET,KSET)
+
+#ifdef DOC
+
+!**** *MYRECVSET* RETURNS SET NUMBER TO SEND TO
+
+!     Purpose.
+!     --------
+!       
+
+!**   Interface.
+!     ----------
+!        ISENDSET = MYRECVSET(KSETS,KMYSET,KSET)
+
+!        Explicit arguments :  
+!        --------------------
+!                  input:   KSETS
+
+!        Implicit arguments :  NONE
+!        --------------------
+!     Method.
+!     -------
+
+!        
+
+!     Externals.
+!     ----------
+!         NONE
+
+!     Reference.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+
+!     Author.
+!     -------
+!        Mats Hamrud *ECMWF*
+
+!     Modifications.
+!     --------------
+!        Original : 00-02-03
+
+!     ------------------------------------------------------------------
+#endif
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE ABORT_TRANS_MOD
+
+IMPLICIT NONE
+INTEGER(KIND=JPIM) :: MYRECVSET
+INTEGER(KIND=JPIM),INTENT(IN)  :: KSETS,KMYSET,KSET
+
+
+!     ------------------------------------------------------------------
+
+!*       1.    Check input argument for validity 
+!              ---------------------------------
+
+IF(KSETS < 1 .OR. KMYSET > KSETS .OR. KSET > KSETS-1) THEN
+
+  CALL ABORT_TRANS(' MYRECVSET: INVALID ARGUMENT ')
+
+ELSE
+
+!*       2.    Compute output parameters
+!              -------------------------
+
+  MYRECVSET = MOD(-KSET-1+KMYSET+KSETS,KSETS)+1
+
+ENDIF
+
+END FUNCTION MYRECVSET
+END MODULE MYRECVSET_MOD
Index: LMDZ5/trunk/libf/phylmd/rrtm/mysendset_mod.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/mysendset_mod.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/mysendset_mod.F90	(revision 1989)
@@ -0,0 +1,72 @@
+MODULE MYSENDSET_MOD
+CONTAINS
+FUNCTION MYSENDSET(KSETS,KMYSET,KSET)
+
+#ifdef DOC
+
+!**** *MYSENDSET* RETURNS SET NUMBER TO SEND TO
+
+!     Purpose.
+!     --------
+!       
+
+!**   Interface.
+!     ----------
+!        ISENDSET = MYSENDSET(KSETS,KMYSET,KSET)
+
+!        Explicit arguments :  
+!        --------------------
+!                  input:   KSETS
+
+!        Implicit arguments :  NONE
+!        --------------------
+!     Method.
+!     -------
+
+!     Externals.
+!     ----------
+!         NONE
+
+!     Reference.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+
+!     Author.
+!     -------
+!        Mats Hamrud *ECMWF*
+
+!     Modifications.
+!     --------------
+!        Original : 00-02-03
+
+!     ------------------------------------------------------------------
+#endif
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE ABORT_TRANS_MOD
+
+IMPLICIT NONE
+INTEGER(KIND=JPIM) :: MYSENDSET
+INTEGER(KIND=JPIM),INTENT(IN)  :: KSETS,KMYSET,KSET
+
+
+!     ------------------------------------------------------------------
+
+!*       1.    Check input argument for validity 
+!              ---------------------------------
+
+IF(KSETS < 1 .OR. KMYSET > KSETS .OR. KSET > KSETS-1) THEN
+
+  CALL ABORT_TRANS(' MYSENDSET: INVALID ARGUMENT ')
+
+ELSE
+
+!*       2.    Compute output parameters
+!              -------------------------
+
+  MYSENDSET = MOD(KMYSET+KSET-1,KSETS)+1
+
+ENDIF
+
+END FUNCTION MYSENDSET
+END MODULE MYSENDSET_MOD
Index: LMDZ5/trunk/libf/phylmd/rrtm/naeaer.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/naeaer.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/naeaer.h	(revision 1989)
@@ -0,0 +1,9 @@
+!     -----------------------------------------------------------------
+NAMELIST/NAEAER/&
+  & LEPAERO  , LAERCLIMG, LAERCLIMZ, LAERCLIST, LAERDRYDP, LAEREXTR , &
+  & LAERGBUD , LAERNGAT , LAERPRNT , LAERSCAV , LAERSEDIM, LAERSURF , &
+  & LAER6SDIA, &
+  & NTAER    , NTYPAER  , INDBG    , NDDUST   , &
+  & RLATVOL  , RLONVOL  , KSTPDBG
+!     -----------------------------------------------------------------
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/naephy.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/naephy.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/naephy.h	(revision 1989)
@@ -0,0 +1,17 @@
+!     -----------------------------------------------------------------
+NAMELIST/NAEPHY/&
+       &LEPHYS, LECOND, LECUMF, LEDCLD, LEEVAP &
+ &,     LEGWDG, LEOZOC, LEQNGT, LERADI, LERADS &
+ &,     LESHCV, LESICE, LESURF, LEVDIF, LE4ALB &
+ &,     LEPCLD, LAGPHY ,LEO3CH, LECO2DIU &
+ &,     LWCOU  ,LWCOU2W, LBUD23,LEMETHOX,LERA40,LERAIN &
+ &,     LVDFTRAC,LMFTRAC,LEOCWA,LEOCCO,LEOCSA,NSTPW &
+ &,     LECURR,RSOUTW ,RNORTW ,RDEGREW &
+ &,     RTHRFRTI &
+!&,     RCLDTOPP &      MPL 24.11.08
+!&,     NPHYINT &       MPL 24.11.08
+ &,     NEPHYS_PCFULL &
+ &,     LEMWAVE
+!     -----------------------------------------------------------------
+
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/naerad.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/naerad.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/naerad.h	(revision 1989)
@@ -0,0 +1,21 @@
+!     -----------------------------------------------------------------
+NAMELIST/NAERAD/&
+&  LERAD1H, LERADHS, LEPO3RA, LRADLB , LONEWSW &
+&, LCCNL  , LCCNO  , LECSRAD, LRAYL  , LRRTM  , LSRTM  &
+&, LHVOLCA, LNEWAER, LDIFFC , LNOTROAER &
+&, LRADONDEM &
+&, NICEOPT, NLIQOPT, NMCICA , NRADIP , NRADLP &
+&, NAER   , NMODE  , NOZOCL , NINHOM , NLAYINH &
+&, NOVLP  , NLW    , NSW    , NRADFR , NLNGR1H &
+&, NRADPFR, NRADPLA, NRINT  , NRPROMA, NCSRADF &
+&, NRADINT, NRADRES, CRTABLEDIR, CRTABLEFIL &
+&, RCCNSEA, RCCNLND, NPERTAER, NPERTOZ &
+&, RPERTOZ, RLWINHF, RSWINHF, RRe2De  &
+&, RCCO2  , RCCH4  , RCN2O  , RCCFC11, RCCFC12  &
+&, NHINCSOL,LECO2VAR,LHGHG  , NSCEN  &
+&, LEDBUG  &
+&, LUVPROC, LUVTDEP, LUVDBG , NUV    , NUVTIM , NRADUV , RUVLAM, RMUZUV
+!     -----------------------------------------------------------------
+
+
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/namcape.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/namcape.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/namcape.h	(revision 1989)
@@ -0,0 +1,1 @@
+NAMELIST/NAMCAPE/ NCAPEITER, NETAPES, GCAPERET, GCAPEPSD
Index: LMDZ5/trunk/libf/phylmd/rrtm/namclop15.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/namclop15.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/namclop15.h	(revision 1989)
@@ -0,0 +1,3 @@
+!     ------------------------------------------------------------------
+NAMELIST/NAMCLOP15/ REFFWIA15
+!     ------------------------------------------------------------------
Index: LMDZ5/trunk/libf/phylmd/rrtm/namgem.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/namgem.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/namgem.h	(revision 1989)
@@ -0,0 +1,5 @@
+!     ------------------------------------------------------------------
+NAMELIST/NAMGEM/RMUCEN,RLOCEN,RSTRET,NSTTYP,NHTYP,&
+               &REFLKUO,REFLCAPE,REFLRHC,RNLGINC
+!     ------------------------------------------------------------------
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/namjfh.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/namjfh.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/namjfh.h	(revision 1989)
@@ -0,0 +1,1 @@
+NAMELIST/NAMJFH/ N_VMASS
Index: LMDZ5/trunk/libf/phylmd/rrtm/namphy.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/namphy.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/namphy.h	(revision 1989)
@@ -0,0 +1,26 @@
+!     ------------------------------------------------------------------
+NAMELIST/NAMPHY/&
+! * GROUPE DES CLES GENERALES.
+  &LMPHYS,LSLC &
+! * GROUPE DES CLES NE COMMANDANT PAS L'APPEL AUX ROUTINES AM-----.
+  &,LCAPE,LCONDWT,LCVCAS,LCVDD,LCVLIS,LCVPP,LHUNEG,LNEIGE &
+  &,LRNUMX,LCLSATUR,LSRCON,LSRCONT,L2PHYS,LRRGUST,LO3ABC,LNEBNXR &
+  &,LFPCOR,LNOIAS,LGLT,LNEWD,LHUCN,LQXRTGH &
+  &,LPROCLD,LEVAPP,LCOLLEC,LNSMLIS,LRELAXT,LRELAXW &
+  &,LAEROSEA,LAEROLAN,LAEROSOO,LAERODES,LAEROVOL,LAEROSUL &
+  &,LSSD,LPHCDPI,LBLVAR &
+  &,LZ0HSREL,LCVPRO,LCDDPRO &
+
+! * GROUPE DES CLES COMMANDANT L'APPEL AUX ROUTINES AM-----.
+  &,CGMIXLEN,LPRGML,LCVRA,LGWD,LGWDC,LNEBCO,LNEBN,LNEBR,LNEBT,LND2DIFF &
+  &,LOZONE,LRAY,LRAYLU,LREWS &
+  &,LRPROX,LRMIX,LRSTAB,LRAUTOEV,LVOIGT,LVFULL,LRTPP,LRTDL,LRAYPL &
+  &,LRAYFM,LRAYFM15,LRRMES,LSFHYD,LSNV,LSOLV,LFGEL,LSTRA,LSTRAS &
+  &,LVDIF,L3MT,LSCMF &
+! * GROUPE DES INDICES DE CALCUL.
+  &,NBITER,NOIR,NDPSFI,NPHYREP,LVGSN,LDIFCONS,LECT,LPTKE,LCVPGY,LPBLE &
+  &,LADJCLD,LCVPPKF,LECTFL,LAJUCV,LNEBGR,LNEBGY,LCVRAV3,LBCCOND &
+  &,LPIL, LSTRAPRO, LNEWSTAT, LPHSPSH, LSMNIMBT, LSMROT, LSMTPS &
+  &,L1DRHCRI, LGWRHCRI, NSMTBOT, NSMDNEB, NPRAG, NPRAC, NPRRI &
+  &,LAUTONEB
+!     ------------------------------------------------------------------
Index: LMDZ5/trunk/libf/phylmd/rrtm/namphy0.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/namphy0.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/namphy0.h	(revision 1989)
@@ -0,0 +1,41 @@
+!     ------------------------------------------------------------------
+NAMELIST/NAMPHY0/&
+  &AERCS1,AERCS3,AERCS5,ALMAV,BEDIFV,ECMNP,ETACUT,AHCLPV &
+  &,EDB,EDC,EDD,EVAP,FONT,GALP,GCISMIN,GCCSV,GCVADS,GCVALFA,GCVBETA,GCVMLT &
+  &,GCVNU,GCVPSI,GCVPSIE,GCOMOD &
+  &,GDDEVA,GDDSDE,GPBLHK0,GPBLHRA,GRCVPP,GWDAMP,GWDBC,GWDCCO,GWDCD &
+  &,GWDLT,GWDSE,GWDPROF,GWDVALI,HOBST,HUCOE,HUTIL,HUTIL1,HUTIL2,NPCLO1 &
+  &,NPCLO2,QSSC,QSMIN,QSNEBC,QSNEBS,QSSUSC,QSSUSS,QSSUSV,QSUSXC,QSUSXS &
+  &,QXRAL,QXRDEL,QXRHX,QXRR,QXRTGH,RPHI0,RPHIR &
+  &,RCIN,RCVEVAP,RDTFAC,REVGSL,RTCAPE,RICRLM,RNEGAT,RNLCURV,RRGAMMA,RRSCALE &
+  &,SCO,SENSL &
+  &,SNNBCO,SPNBCO &
+  &,SXNBCO,TCA,TCT,TCW,TENTR,TENTRX,TDDGP,TUDGP,TURB,TVF &
+  &,TYM,UHDIFV,USDMLT,USUPRC,USURIC,USURID,USURIDE,USURICE,USURICL,UTILGUST &
+  &,VCHRNK,VKARMN,VZ0CM,VZIUSTAR0,XNBMAX,XBLM,XMAXLM,XMINLM,XNBMAX,EDK,XKLM &
+  &,ADISE,ADISI,AECLS3,AECLS4,AKN,ALD,ALPHAE,ALPHAT,ECTMIN &
+  &,UCWSTAR,UDECT,USHEARM,UPRETMIN,UPRETMAX &
+  &,ARSCH,ARSCQ,ARSC1,ARSB2,ACBRPHIM,ALMAVE,RICRET,STTBMIN,AGREKE &
+  &,RAUTEFS,RNINTR,RNINTS,RQLCR,RQICRMAX,RQICRMIN,RACCEF,RRIMEF,RAGGEF &
+  &,RHCRIT1,RHCRIT2,RETAMIN,RFACNSM,TFVR,TFVS,RAUTEFR,RAUTSBET,GRHCMOD &
+  &,RQICRT1,RQICRT2,RQICRSN,RQCRNS,RQICVMAX,RQICVMIN,RQLCV,RHEVAP &
+  &,AGRE1,AGRERICR,AJBUMIN,RCOFLM,A0ML_AU,A0ML_AT,A0ML_BU,A0ML_BT &
+  &,NUPTKE,GAMTKE,RCOLL,RFALLL &
+  &,TDDBU,TDDFR,TUDBU,TUDFR,GCVACHI,GCVALMX,GCVADMW,GCVBEE,GCVEEX,ECMNPI &
+  &,GFRIC,GCVSQDN,GCVSQDR,GCVSQDCX,GRRINTE,GRRMINA,GDDBETA,GDDEVF,GDDWPF &
+  &,TENTRD &
+!     For old ACCVIMP
+  &,TENTRVL,TRENTRV &
+!     For TKE scheme 
+  &,UETEPS,UPRECLP &
+  &,ARSC2,ARSCT &
+!     For Grenier (2000) top-PBL entrainment scheme 
+  &,AGRE2,AGREF &
+!     For dry conv. adjustment scheme 
+  &,AJ1MEPS,AJ1PEPS,NAJITER &
+!     For ACCVIMPGY 
+  &,ALFX,TCTC,TVFC,GAMAP1,RKDN,VVN,VVX,FENTRT,HCMIN,FQLIC,FNEBC,FEVAPC &
+!
+  &,RDPHIC,GWBFAUT,RWBF1,RWBF2,RAUITN,RAUITX,RAUIUSTE &
+  &,RSMDNEBX,RSMDTX,NSMTPA,NSMTPB
+!     ------------------------------------------------------------------
Index: LMDZ5/trunk/libf/phylmd/rrtm/namphy1.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/namphy1.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/namphy1.h	(revision 1989)
@@ -0,0 +1,21 @@
+!     ------------------------------------------------------------------
+NAMELIST/NAMPHY1/&
+&ALBGLA   , ALBMAX   , ALBMER   , ALBMIN   , ALCRIN   , ALRCN1   ,&
+&ALRCN2   , EA       , EC2REF   , EMCRIN   , EMMGLA   , EMMMER   ,&
+&EWFC     , EWWILT   , GA       , GC1      ,&
+&GC1S1    , GC1S2    , GC1S3    , GC1S4    , GC1Y1    , GTSVAP   ,&
+&GVEGMX   , GLAIMX   , GNEIMX   , GWPIMX   , GCGEL    ,&
+&GC2      , GC2REF   , GC3      , GC31     , GC32     ,&
+&GCZ0H    , GF1      , GF3      , GF4      , GWFC     , GWLEX    ,&
+&GWLMX    , GWWILT   , G1B      ,&
+&G1CGSAT  , G1C1SAT  , G1P      , G1WSAT   , G2B      , G2CGSAT  ,&
+&G2C1SAT  , G2P      , G2WSAT   , G3CGSAT  , GSNC1    , GSNC2    ,&
+&HSOL     , HSOLIWR  , HSOLIT0  , OMTPRO   , OMWPRO   , RC1MAX   ,&
+&RCTGLA   , RCGMAX   , RCTVEG   , RD1      , RD2GLA   , RD2MER   ,&
+&RGL      , RHOMAX   , RHOMIN   , RSMAX    , RTINER   , RZ0GLA   ,&
+&RZ0MER   , RZHZ0G   , RZHZ0M   , TMERGL   , TOEXP    , TOLIN    ,&
+&TREF4    , SODELX   , WCRIN    , WCRINC   , WCRING   , WNEW     ,&
+&WPMX     , WSMX     , XCRINR   , XCRINV   ,&
+&LIMC     , LIMW     , LC1VAP   ,&
+&NTVGLA   , NTVMER   , GCGELS   , GVEGMXS  , GLAIMXS  , GNEIMXS  ,&
+&ALB1     , ALB2     , RLAIMX   , RLAI     ,NCHSP
Index: LMDZ5/trunk/libf/phylmd/rrtm/namphy2.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/namphy2.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/namphy2.h	(revision 1989)
@@ -0,0 +1,9 @@
+!     ------------------------------------------------------------------
+NAMELIST/NAMPHY2/&
+  &XMUCVPP,XMULAF,XDAMP,LMULAF,&
+  &HCLP,&
+  &RIPBLC,&
+  &GZ0RAF,FACRAF,LRAFTUR,&
+  &HTSHM,HTSML
+!     ------------------------------------------------------------------
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/namphy3.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/namphy3.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/namphy3.h	(revision 1989)
@@ -0,0 +1,12 @@
+!     ------------------------------------------------------------------
+NAMELIST/NAMPHY3/&
+  &BSFSA,BSFSI,BSFSN,BSFTA,BSFTI,BSFTN,EARRT,EOASA,EOASI,EOASN &
+  &,EOATA,EOATI,EOATN,EODSA,EODSI,EODSN,EODTA,EODTI,EODTN,EORAY &
+  &,GCA,GCB,GCC,GCD4,GCE4,GIREC1,GIREC2,GIREC3,GIREC4 &
+  &,QCO2,QLIMI,QLIP0,RII0,USAA,USAI,USAN,USBA,USBI,USBN,VDP,VNP &
+  &,FCM_DEL_A,FCM_DEL_D,FCM_MU_A,FCM_MU_D,FCM_N_I,FCM_N_L &
+  &,FCM_P_AI,FCM_P_AL,FCM_P_DI,FCM_P_DL,FCM_P_GI,FCM_P_GL &
+  &,FCM_Q_AI,FCM_Q_AL,FCM_Q_DI,FCM_Q_DL,FCM_Q_GI,FCM_Q_GL &
+  &,REXP_NEB
+!     ------------------------------------------------------------------
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/namrad15.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/namrad15.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/namrad15.h	(revision 1989)
@@ -0,0 +1,9 @@
+!     -----------------------------------------------------------------
+NAMELIST/NAMRAD15/&
+           &LERAD6H15, LERADHS15, LRADAER15, LNEWAER15 &
+ &,         NAER15   , NFLUX15  , NMODE15  &
+ &,         NOVLP15  , NRAD15   , NRADFR15 &
+ &,         NRADPFR15, NRADPLA15, NRINT15 , NRPROMA15 &
+ &,         NRADF2C15, NRADC2F15
+!     -----------------------------------------------------------------
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/namrcoef.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/namrcoef.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/namrcoef.h	(revision 1989)
@@ -0,0 +1,6 @@
+!   -----------------------------------------------------------------
+
+NAMELIST/NAMRCOEF/ LRCOEF,LTLADDIA,LGLOBRAD
+
+!   ----------------------------------------------------------------
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/namrgri.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/namrgri.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/namrgri.h	(revision 1989)
@@ -0,0 +1,6 @@
+!-----------------------------------------------------------------------------
+
+NAMELIST/NAMRGRI/NRGRI
+
+!-----------------------------------------------------------------------------
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/namscen.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/namscen.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/namscen.h	(revision 1989)
@@ -0,0 +1,3 @@
+!     ------------------------------------------------------------------
+NAMELIST/NAMSCEN/ XCARDI, XCH4, XN2O, XCFC11, XCFC12, RI0
+!     ------------------------------------------------------------------
Index: LMDZ5/trunk/libf/phylmd/rrtm/namscm.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/namscm.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/namscm.h	(revision 1989)
@@ -0,0 +1,5 @@
+NAMELIST/NAMSCM/ &
+& LGSCM, NFRSCM, NSCMTS, NSCM_SPACE_S &
+& , GSCM_LON1, GSCM_LON2, GSCM_LAT1, GSCM_LAT2 &
+& , GSCM_RADIUS, NSCM_ADD_SAMPL
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/namtoph.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/namtoph.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/namtoph.h	(revision 1989)
@@ -0,0 +1,9 @@
+!     ------------------------------------------------------------------
+NAMELIST/NAMTOPH/&
+   &ETQSAT,ETDIFU,ETCOEF,ETDRAG,ETCVIM,ETPLUI,ETRADI,ETNEBU &
+  &,ETOZON,ETDRME,ETCOET &
+  &,XDRMUK,XDRMUX,XDRMUP,XDRMTK,XDRMTX,XDRMTP &
+  &,XDRMQK,XDRMQP,RFMESOQ &
+  &,ETAJUC,NTAJUC,RCLX,TPSCLIM
+!     ------------------------------------------------------------------
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/namvdoz.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/namvdoz.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/namvdoz.h	(revision 1989)
@@ -0,0 +1,11 @@
+!  ---------------------------------------------------------------
+NAMELIST/NAMVDOZ/&
+     &VDHJS,VDHJH,VDHNS,VDHNH &
+    &,VDPJS,VDPJH,VDPNS,VDPNH &
+    &,VDEJS,VDEJH,VDENS,VDENH &
+    &,VDAJS,VDAJH,VDANS,VDANH &
+    &,VDNJS,VDNJH,VDNNS,VDNNH &
+    &,VOZNJ,VOZHS &
+    &,LRDIFOZ,LRDEPOZ
+
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/naphlc.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/naphlc.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/naphlc.h	(revision 1989)
@@ -0,0 +1,7 @@
+!     -----------------------------------------------------------------
+NAMELIST/NAPHLC/ LSPHLC, LVDFLC, LSDRLC, LCZDEB, LZMCON, LKEXP &
+               &,LVDFDS, LSDRDS &
+               &,ALPHA, AH0, USTARL, USTARS, ALANDZ0, ASEAZ0
+!     -----------------------------------------------------------------
+
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/pardim.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/pardim.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/pardim.F90	(revision 1989)
@@ -0,0 +1,24 @@
+MODULE PARDIM
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+
+!     JPMXLE : MAXIMUM NUMBER OF LEVELS
+!     JPMXGL : MAXIMUM NUMBER OF GAUSSIAN LATITUDES 
+
+!     JPFPPYX : Maximum number of fields in catalogue cilipdy
+
+!     JPNULNAM : Fortran unit number used for namelist reading
+
+INTEGER(KIND=JPIM), PARAMETER :: JPMXLE=200
+INTEGER(KIND=JPIM), PARAMETER :: JPMXGL=2056
+INTEGER(KIND=JPIM), PARAMETER :: JPFPPYX=17
+INTEGER(KIND=JPIM), PARAMETER :: JPNULNAM=4
+
+!     ------------------------------------------------------------------
+END MODULE PARDIM
Index: LMDZ5/trunk/libf/phylmd/rrtm/parfpos.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/parfpos.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/parfpos.F90	(revision 1989)
@@ -0,0 +1,74 @@
+MODULE PARFPOS
+
+USE PARKIND1  ,ONLY : JPIM
+
+USE PARDIM
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+
+! === basic dimensions for Full POST-PROCESSING ===
+
+!     JPOSDOM : Maximum number of horizontal (sub)domains
+!     JPOSLEN : Maximum length of a (sub)domain name
+!     JPOSLIS : Maximum number of groups of subdomains
+!     JPOSDIR : Maximum length of the path (or prefix) for the output files
+!     JPOSLE  : Maximum number of eta levels on the output subdomain
+!     JPOSGL  : Maximum number of latitude rows of the output gaussian grid
+
+!     JPOSSCVA: Maximum number of post-processable passive scalars
+!     JPOSPHY : Maximum number of physical fields
+!     JPOSSGP : Maximum number of surface gridpoint fields
+!     JPOSCFU : Maximum number of cumulated fluxes
+!     JPOSXFU : Maximum number of instantaneous fluxes
+!     JPOS3P  : Maximum number of pp. pressure levels
+!     JPOS3H  : Maximum number of pp. height (above orography) levels
+!     JPOS3TH : Maximum number of pp. potential temperature levels
+!     JPOS3PV : Maximum number of pp. potential vorticity levels
+!     JPOS3S  : Maximum number of pp. eta levels
+!     JPOSSCVA: Maximum number of passive scalars
+!     JPOSVX2 : Maximum number of free gp/sp upper air fields or extra surface fields
+!     JPOSFSU : Maximum number of free gp/sp surface fields 
+!     JPOS3DF : Maximum number of 3D dynamic fields
+!     JPOS2DF : Maximum number of 2D dynamic fields
+!     JPOSDYN : Maximum number of dynamic fields 
+!     JPOSGHG : Maximum number of post-processable greenhouse gases
+!     JPOSTRAC : Maximum number of post-processable tracers (used for diagnostics only)
+!     JPOSGRG : Maximum number of post-processable reactive gases
+!     JPOSAERO: Maximum number of post-processable aerosols
+
+INTEGER(KIND=JPIM), PARAMETER :: JPOSDOM=15
+INTEGER(KIND=JPIM), PARAMETER :: JPOSLEN=10
+INTEGER(KIND=JPIM), PARAMETER :: JPOSLIS=10
+INTEGER(KIND=JPIM), PARAMETER :: JPOSDIR=180
+INTEGER(KIND=JPIM), PARAMETER :: JPOSLE=JPMXLE
+INTEGER(KIND=JPIM), PARAMETER :: JPOSGL=JPMXGL
+
+INTEGER(KIND=JPIM), PARAMETER :: JPOSCFU=63
+INTEGER(KIND=JPIM), PARAMETER :: JPOSXFU=63
+INTEGER(KIND=JPIM), PARAMETER :: JPOS3P=75
+INTEGER(KIND=JPIM), PARAMETER :: JPOS3H=127
+INTEGER(KIND=JPIM), PARAMETER :: JPOS3TH=75
+INTEGER(KIND=JPIM), PARAMETER :: JPOS3PV=75
+INTEGER(KIND=JPIM), PARAMETER :: JPOS3S=JPOSLE
+INTEGER(KIND=JPIM), PARAMETER :: JPOSSCVA=5
+INTEGER(KIND=JPIM), PARAMETER :: JPOSGHG=3
+INTEGER(KIND=JPIM), PARAMETER :: JPOSTRAC=2
+INTEGER(KIND=JPIM), PARAMETER :: JPOSGRG=5
+INTEGER(KIND=JPIM), PARAMETER :: JPOSAERO=12
+INTEGER(KIND=JPIM), PARAMETER :: JPOSAERO2=2*JPOSAERO
+INTEGER(KIND=JPIM), PARAMETER :: JPOSVX2=70
+! 15 + 2 (Non-Hydro) + 4 (Modis-Albedo) + 3 (ocean T)
+INTEGER(KIND=JPIM), PARAMETER :: JPOSFSU=24
+INTEGER(KIND=JPIM), PARAMETER :: JPOSSGP=157+JPOSVX2+JPOSFSU
+INTEGER(KIND=JPIM), PARAMETER :: JPOSPHY=JPOSSGP+JPOSCFU+JPOSXFU
+INTEGER(KIND=JPIM), PARAMETER :: &
+ & JPOS3DF=63+JPOSSCVA+JPOSVX2+JPOSAERO+JPOSGHG+JPOSGRG+JPOSTRAC
+INTEGER(KIND=JPIM), PARAMETER :: JPOS2DF=63+JPOSFSU+JPOSAERO2
+INTEGER(KIND=JPIM), PARAMETER :: JPOSDYN=JPOS3DF+JPOS2DF
+
+!     ------------------------------------------------------------------
+END MODULE PARFPOS
Index: LMDZ5/trunk/libf/phylmd/rrtm/parkind1.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/parkind1.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/parkind1.F90	(revision 1989)
@@ -0,0 +1,33 @@
+MODULE PARKIND1
+!
+!     *** Define usual kinds for strong typing ***
+!
+IMPLICIT NONE
+SAVE
+!
+!     Integer Kinds
+!     -------------
+!
+INTEGER, PARAMETER :: JPIT = SELECTED_INT_KIND(2)
+INTEGER, PARAMETER :: JPIS = SELECTED_INT_KIND(4)
+INTEGER, PARAMETER :: JPIM = SELECTED_INT_KIND(9)
+INTEGER, PARAMETER :: JPIB = SELECTED_INT_KIND(12)
+
+!Special integer type to be used for sensative adress calculations
+!should be *8 for a machine with 8byte adressing for optimum performance
+#ifdef ADDRESS64
+INTEGER, PARAMETER :: JPIA = JPIB
+#else
+INTEGER, PARAMETER :: JPIA = JPIM
+#endif
+
+!
+!     Real Kinds
+!     ----------
+!
+INTEGER, PARAMETER :: JPRT = SELECTED_REAL_KIND(2,1)
+INTEGER, PARAMETER :: JPRS = SELECTED_REAL_KIND(4,2)
+INTEGER, PARAMETER :: JPRM = SELECTED_REAL_KIND(6,37)
+INTEGER, PARAMETER :: JPRB = SELECTED_REAL_KIND(13,300)
+!
+END MODULE PARKIND1
Index: LMDZ5/trunk/libf/phylmd/rrtm/parkind2.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/parkind2.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/parkind2.F90	(revision 1989)
@@ -0,0 +1,22 @@
+MODULE PARKIND2
+!
+!     *** Define huge kinds for strong typing ***
+!
+IMPLICIT NONE
+SAVE
+!
+!     Integer Kinds
+!     -------------
+!
+INTEGER, PARAMETER :: JPIH = SELECTED_INT_KIND(18)
+!
+!     Real Kinds
+!     ----------
+!
+#ifdef REALHUGE
+INTEGER, PARAMETER :: JPRH = SELECTED_REAL_KIND(31,291)
+#else
+INTEGER, PARAMETER :: JPRH = SELECTED_REAL_KIND(13,300)
+#endif
+!
+END MODULE PARKIND2
Index: LMDZ5/trunk/libf/phylmd/rrtm/parrint.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/parrint.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/parrint.F90	(revision 1989)
@@ -0,0 +1,16 @@
+MODULE PARRINT
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     PARAMETERS REQUIRED FOR RADIATION INTERPOLATION
+
+INTEGER(KIND=JPIM), PARAMETER :: JPRADCW=2
+INTEGER(KIND=JPIM), PARAMETER :: JPRADCE=2
+INTEGER(KIND=JPIM), PARAMETER :: JPRADCT=JPRADCW+JPRADCE
+INTEGER(KIND=JPIM), PARAMETER :: JPRADFW=1
+INTEGER(KIND=JPIM), PARAMETER :: JPRADFE=1
+END MODULE PARRINT
Index: LMDZ5/trunk/libf/phylmd/rrtm/parrrtm.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/parrrtm.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/parrrtm.F90	(revision 1989)
@@ -0,0 +1,57 @@
+MODULE PARRRTM
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!     Parameters relevant to AER's RRTM-LW radiation scheme
+
+!     980714  JJMorcrette
+!     ------------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: JPLAY  = 100
+
+INTEGER(KIND=JPIM), PARAMETER :: JPG    = 16
+INTEGER(KIND=JPIM), PARAMETER :: JPBAND = 16
+INTEGER(KIND=JPIM), PARAMETER :: JPXSEC = 4
+INTEGER(KIND=JPIM), PARAMETER :: JPINPX = 35
+INTEGER(KIND=JPIM), PARAMETER :: JPGPT  = 140
+
+INTEGER(KIND=JPIM), PARAMETER :: NG1  = 8
+INTEGER(KIND=JPIM), PARAMETER :: NG2  = 14
+INTEGER(KIND=JPIM), PARAMETER :: NG3  = 16
+INTEGER(KIND=JPIM), PARAMETER :: NG4  = 14
+INTEGER(KIND=JPIM), PARAMETER :: NG5  = 16
+INTEGER(KIND=JPIM), PARAMETER :: NG6  = 8
+INTEGER(KIND=JPIM), PARAMETER :: NG7  = 12
+INTEGER(KIND=JPIM), PARAMETER :: NG8  = 8
+INTEGER(KIND=JPIM), PARAMETER :: NG9  = 12
+INTEGER(KIND=JPIM), PARAMETER :: NG10 = 6
+INTEGER(KIND=JPIM), PARAMETER :: NG11 = 8
+INTEGER(KIND=JPIM), PARAMETER :: NG12 = 8
+INTEGER(KIND=JPIM), PARAMETER :: NG13 = 4
+INTEGER(KIND=JPIM), PARAMETER :: NG14 = 2
+INTEGER(KIND=JPIM), PARAMETER :: NG15 = 2
+INTEGER(KIND=JPIM), PARAMETER :: NG16 = 8
+
+INTEGER(KIND=JPIM), PARAMETER :: NGS1  = 8
+INTEGER(KIND=JPIM), PARAMETER :: NGS2  = 22
+INTEGER(KIND=JPIM), PARAMETER :: NGS3  = 38
+INTEGER(KIND=JPIM), PARAMETER :: NGS4  = 52
+INTEGER(KIND=JPIM), PARAMETER :: NGS5  = 68
+INTEGER(KIND=JPIM), PARAMETER :: NGS6  = 76
+INTEGER(KIND=JPIM), PARAMETER :: NGS7  = 88
+INTEGER(KIND=JPIM), PARAMETER :: NGS8  = 96
+INTEGER(KIND=JPIM), PARAMETER :: NGS9  = 108
+INTEGER(KIND=JPIM), PARAMETER :: NGS10 = 114
+INTEGER(KIND=JPIM), PARAMETER :: NGS11 = 122
+INTEGER(KIND=JPIM), PARAMETER :: NGS12 = 130
+INTEGER(KIND=JPIM), PARAMETER :: NGS13 = 134
+INTEGER(KIND=JPIM), PARAMETER :: NGS14 = 136
+INTEGER(KIND=JPIM), PARAMETER :: NGS15 = 138
+
+!     ------------------------------------------------------------------
+END MODULE PARRRTM
Index: LMDZ5/trunk/libf/phylmd/rrtm/parsrtm.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/parsrtm.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/parsrtm.F90	(revision 1989)
@@ -0,0 +1,86 @@
+MODULE PARSRTM
+
+USE PARKIND1  ,ONLY : JPIM
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!     Parameters relevant to AER's RRTM-SW radiation scheme
+
+!     030224  JJMorcrette
+
+!     Modified for g-point reduction from 224 to 112.  
+!     Swap code below to restore 224 g-point set. 
+!     Mar2004 MJIacono, AER
+!     ------------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: JPLAY  = 100
+
+INTEGER(KIND=JPIM), PARAMETER :: JPG    = 16
+INTEGER(KIND=JPIM), PARAMETER :: JPBAND = 29
+INTEGER(KIND=JPIM), PARAMETER :: JPSW   = 14
+INTEGER(KIND=JPIM), PARAMETER :: JPB1   = 16
+INTEGER(KIND=JPIM), PARAMETER :: JPB2   = 29
+! Use for 112 g-points
+INTEGER(KIND=JPIM), PARAMETER :: JPGPT  = 112
+! Use for 224 g-points
+!INTEGER(KIND=JPIM), PARAMETER :: JPGPT  = 224
+
+INTEGER(KIND=JPIM), PARAMETER :: JMCMU  = 32
+INTEGER(KIND=JPIM), PARAMETER :: JMUMU  = 32
+INTEGER(KIND=JPIM), PARAMETER :: JMPHI  = 3
+INTEGER(KIND=JPIM), PARAMETER :: JMXANG = 4
+INTEGER(KIND=JPIM), PARAMETER :: JMXSTR = 16
+
+! Use for 112 g-points
+INTEGER(KIND=JPIM), PARAMETER :: NG16 = 6
+INTEGER(KIND=JPIM), PARAMETER :: NG17 = 12
+INTEGER(KIND=JPIM), PARAMETER :: NG18 = 8
+INTEGER(KIND=JPIM), PARAMETER :: NG19 = 8
+INTEGER(KIND=JPIM), PARAMETER :: NG20 = 10
+INTEGER(KIND=JPIM), PARAMETER :: NG21 = 10
+INTEGER(KIND=JPIM), PARAMETER :: NG22 = 2
+INTEGER(KIND=JPIM), PARAMETER :: NG23 = 10
+INTEGER(KIND=JPIM), PARAMETER :: NG24 = 8
+INTEGER(KIND=JPIM), PARAMETER :: NG25 = 6
+INTEGER(KIND=JPIM), PARAMETER :: NG26 = 6
+INTEGER(KIND=JPIM), PARAMETER :: NG27 = 8
+INTEGER(KIND=JPIM), PARAMETER :: NG28 = 6
+INTEGER(KIND=JPIM), PARAMETER :: NG29 = 12
+
+! Use for 224 g-points
+!INTEGER(KIND=JPIM), PARAMETER :: NG16 = 16
+!INTEGER(KIND=JPIM), PARAMETER :: NG17 = 16
+!INTEGER(KIND=JPIM), PARAMETER :: NG18 = 16
+!INTEGER(KIND=JPIM), PARAMETER :: NG19 = 16
+!INTEGER(KIND=JPIM), PARAMETER :: NG20 = 16
+!INTEGER(KIND=JPIM), PARAMETER :: NG21 = 16
+!INTEGER(KIND=JPIM), PARAMETER :: NG22 = 16
+!INTEGER(KIND=JPIM), PARAMETER :: NG23 = 16
+!INTEGER(KIND=JPIM), PARAMETER :: NG24 = 16
+!INTEGER(KIND=JPIM), PARAMETER :: NG25 = 16
+!INTEGER(KIND=JPIM), PARAMETER :: NG26 = 16
+!INTEGER(KIND=JPIM), PARAMETER :: NG27 = 16
+!INTEGER(KIND=JPIM), PARAMETER :: NG28 = 16
+!INTEGER(KIND=JPIM), PARAMETER :: NG29 = 16
+
+INTEGER(KIND=JPIM), PARAMETER :: NGS16 = 0
+INTEGER(KIND=JPIM), PARAMETER :: NGS17 = 16
+INTEGER(KIND=JPIM), PARAMETER :: NGS18 = 32
+INTEGER(KIND=JPIM), PARAMETER :: NGS19 = 48
+INTEGER(KIND=JPIM), PARAMETER :: NGS20 = 64
+INTEGER(KIND=JPIM), PARAMETER :: NGS21 = 80
+INTEGER(KIND=JPIM), PARAMETER :: NGS22 = 96
+INTEGER(KIND=JPIM), PARAMETER :: NGS23 = 112
+INTEGER(KIND=JPIM), PARAMETER :: NGS24 = 128
+INTEGER(KIND=JPIM), PARAMETER :: NGS25 = 144
+INTEGER(KIND=JPIM), PARAMETER :: NGS26 = 160
+INTEGER(KIND=JPIM), PARAMETER :: NGS27 = 176
+INTEGER(KIND=JPIM), PARAMETER :: NGS28 = 192
+INTEGER(KIND=JPIM), PARAMETER :: NGS29 = 208
+
+!     ------------------------------------------------------------------
+END MODULE PARSRTM
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/pe2set_mod.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/pe2set_mod.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/pe2set_mod.F90	(revision 1989)
@@ -0,0 +1,113 @@
+MODULE PE2SET_MOD
+CONTAINS
+SUBROUTINE PE2SET(KPE,KPRGPNS,KPRGPEW,KPRTRW,KPRTRV)
+
+#ifdef DOC
+
+!**** *PE2SET* - Convert from PE number to set numbers
+
+!     Purpose.
+!     --------
+!        Convert from PE number to set numbers in both
+!                  grid-point space and spectral space
+
+!**   Interface.
+!     ----------
+!        *CALL* *PE2SET(KPE,KPRGPNS,KPRGPEW,KPRTRW,KPRTRV)
+
+!        Explicit arguments :  
+!        --------------------
+!                  input:   KPE     - integer processor number 
+!                                     in the range 1 .. NPROC
+!                  output:  KPRGPNS - integer A set number in grid space
+!                                     in the range 1 .. NPRGPNS
+!                           KPRGPEW - integer B set number in grid space
+!                                     in the range 1 .. NPRGPEW
+!                           KPRTRW  - integer A set number in spectral space
+!                                     in the range 1 .. NPRTRW 
+!                           KPRTRV  - integer B set number in spectral space
+!                                     in the range 1 .. NPRTRV 
+
+!        Implicit arguments :  YOMMP parameters
+!                              NPRGPNS,NPRGPEW,NPRTRW,NPRTRV,NPROC
+
+!        --------------------
+!     Method.
+!     -------
+
+!        PE allocation order is row oriented (e.g. NPRGPNS or NPRTRW = 4):
+
+!                1  2  3  4 
+!                5  6  7  8 
+!                9 10 11 12 
+!               13 14 15 16 
+!                .  .  .  .
+
+!     Externals.
+!     ----------
+!         NONE
+
+!     Reference.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+
+!     Author.
+!     -------
+!        David Dent *ECMWF*
+
+!     Modifications.
+!     --------------
+!        Original : 98-08-19
+!        Revision : 98-10-13 row ordering
+!     ------------------------------------------------------------------
+#endif
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+USE TPM_DISTR
+USE EQ_REGIONS_MOD
+USE ABORT_TRANS_MOD
+
+
+IMPLICIT NONE
+INTEGER(KIND=JPIM),INTENT(IN)  :: KPE
+INTEGER(KIND=JPIM),INTENT(OUT) :: KPRGPNS,KPRGPEW,KPRTRW,KPRTRV
+
+INTEGER(KIND=JPIM) :: IPE,JA
+!     ------------------------------------------------------------------
+
+!*       1.    Check input argument for validity 
+!              ---------------------------------
+
+IF(KPE <= 0.OR.KPE > NPROC) THEN
+  WRITE(*,'(A,2I8)') ' PE2SET INVALID ARGUMENT ',KPE,NPROC
+  CALL ABORT_TRANS(' PE2SET INVALID ARGUMENT ')
+
+ELSE
+
+!*       2.    Compute output parameters
+!              -------------------------
+
+  IF( LEQ_REGIONS )THEN
+    KPRGPNS=1
+    IPE=KPE
+    DO JA=1,N_REGIONS_NS
+      IF( IPE > N_REGIONS(JA) )THEN
+        IPE=IPE-N_REGIONS(JA)
+        KPRGPNS=KPRGPNS+1
+        CYCLE
+      ENDIF
+      KPRGPEW=IPE
+      EXIT
+    ENDDO
+  ELSE
+    KPRGPEW=MOD(KPE-1,NPRGPEW)+1
+    KPRGPNS=(KPE-1)/NPRGPEW+1
+  ENDIF
+  KPRTRV =MOD(KPE-1,NPRTRV)+1
+  KPRTRW =(KPE-1)/NPRTRV+1
+
+ENDIF
+
+END SUBROUTINE PE2SET
+END MODULE PE2SET_MOD
Index: LMDZ5/trunk/libf/phylmd/rrtm/posnam.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/posnam.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/posnam.F90	(revision 1989)
@@ -0,0 +1,108 @@
+SUBROUTINE POSNAM(KULNAM,CDNAML)
+
+!**** *POSNAM* - position namelist file for reading
+
+!     Purpose.
+!     --------
+!     To position namelist file at correct place for reading
+!     namelist CDNAML. Replaces use of Cray specific ability
+!     to skip to the correct namelist.
+
+!**   Interface.
+!     ----------
+!        *CALL* *POSNAM*(..)
+
+!        Explicit arguments :     KULNAM - file unit number (input)
+!        --------------------     CDNAML - namelist name    (input)
+
+!        Implicit arguments :     None
+!        --------------------
+
+!     Method.
+!     -------
+!        See documentation
+
+!     Externals.   None
+!     ----------
+
+!     Reference.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+
+!     Author.
+!     -------
+!        Mats Hamrud *ECMWF*
+
+!     Modifications.
+!     --------------
+!        Original : 93-06-22
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        M.Hamrud      01-Dec-2003 CY28R1 Cleaning
+!      R. El Khatib 04-08-10 Apply norms + proper abort if namelist is missing
+!     --------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KULNAM 
+CHARACTER(LEN=*)  ,INTENT(IN)    :: CDNAML 
+
+
+CHARACTER (LEN = 40) ::  CLINE
+CHARACTER (LEN =  1) ::  CLTEST
+
+INTEGER(KIND=JPIM) :: ILEN, IND1, ISTATUS, ISCAN
+REAL(KIND=JPRB)    :: ZHOOK_HANDLE
+
+#include "abor1.intfb.h"
+
+!      -----------------------------------------------------------
+
+!*       1.    POSITION FILE
+!              -------------
+
+IF (LHOOK) CALL DR_HOOK('POSNAM',0,ZHOOK_HANDLE)
+
+CLINE='                                        '
+REWIND(KULNAM)
+ILEN=LEN(CDNAML)
+ISTATUS=0
+ISCAN=0
+print *,'On cherche a lire:',CDNAML
+DO WHILE (ISTATUS==0 .AND. ISCAN==0)
+  READ(KULNAM,'(A)',IOSTAT=ISTATUS) CLINE
+! print *,'CLINE,ISTATUS= ',CLINE,ISTATUS
+  SELECT CASE (ISTATUS)
+  CASE (:-1)
+    CLINE='POSNAM:CANNOT LOCATE '//CDNAML//' '
+    CALL ABOR1(CLINE)
+  CASE (0)
+    IF (INDEX(CLINE(1:10),'&') == 0) THEN
+      ISCAN=0
+    ELSE
+      IND1=INDEX(CLINE,'&'//CDNAML)
+      IF (IND1 == 0) THEN
+        ISCAN=0
+      ELSE
+        CLTEST=CLINE(IND1+ILEN+1:IND1+ILEN+1)
+        IF (   (LGE(CLTEST,'0').AND.LLE(CLTEST,'9')) &
+         & .OR.(LGE(CLTEST,'A').AND.LLE(CLTEST,'Z')) ) THEN
+          ISCAN=0
+        ELSE
+          ISCAN=1
+        ENDIF
+      ENDIF
+    ENDIF
+  CASE (1:)
+    CLINE='POSNAM:READ ERROR IN NAMELIST FILE'
+    CALL ABOR1(CLINE)
+  END SELECT
+ENDDO
+BACKSPACE(KULNAM)
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('POSNAM',1,ZHOOK_HANDLE)
+END SUBROUTINE POSNAM
Index: LMDZ5/trunk/libf/phylmd/rrtm/posnam.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/posnam.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/posnam.intfb.h	(revision 1989)
@@ -0,0 +1,7 @@
+INTERFACE
+SUBROUTINE POSNAM(KULNAM,CDNAML)
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KULNAM
+CHARACTER(LEN=*) ,INTENT(IN) :: CDNAML
+END SUBROUTINE POSNAM
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/radlsw.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/radlsw.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/radlsw.F90	(revision 1989)
@@ -0,0 +1,1260 @@
+SUBROUTINE RADLSW &
+ & ( KIDIA, KFDIA , KLON , KLEV  , KMODE, KAER,&
+ & PRII0,&
+ & PAER , PALBD , PALBP, PAPH , PAP,&
+ & PCCNL, PCCNO,&
+ & PCCO2, PCLFR , PDP  , PEMIS, PEMIW , PLSM , PMU0, POZON,&
+ & PQ   , PQIWP , PQLWP, PQS  , PQRAIN, PRAINT,&
+ & PTH  , PT    , PTS  , PNBAS, PNTOP,&
+ & PREF_LIQ, PREF_ICE,&
+ & PEMIT, PFCT  , PFLT , PFCS , PFLS,&
+ & PFRSOD,PSUDU , PUVDF, PPARF, PPARCF, PTINCF,&
+ & PSFSWDIR, PSFSWDIF,PFSDNN,PFSDNV ,&  
+ & LRDUST,PPIZA_DST,PCGA_DST,PTAUREL_DST,PFLUX,PFLUC,&
+ & PFSDN ,PFSUP , PFSCDN , PFSCUP)
+
+use write_field_phy
+
+!**** *RADLSW* - INTERFACE TO ECMWF LW AND SW RADIATION SCHEMES
+
+!     PURPOSE.
+!     --------
+!           CONTROLS RADIATION COMPUTATIONS
+
+!**   INTERFACE.
+!     ----------
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+! PAER   : (KLON,6,KLEV)     ; OPTICAL THICKNESS OF THE AEROSOLS
+! PALBD  : (KLON,NSW)        ; SURF. SW ALBEDO FOR DIFFUSE RADIATION
+! PALBP  : (KLON,NSW)        ; SURF. SW ALBEDO FOR PARALLEL RADIATION
+! PAPH   : (KLON,KLEV+1)     ; HALF LEVEL PRESSURE
+! PAP    : (KLON,KLEV)       ; FULL LEVEL PRESSURE
+! PCCNL  : (KLON)            ; CCN CONCENTRATION OVER LAND
+! PCCNO  : (KLON)            ; CCN CONCENTRATION OVER OCEAN
+! PCCO2  :                   ; CONCENTRATION IN CO2 (KG/KG)
+! PCLFR  : (KLON,KLEV)       ; CLOUD FRACTIONAL COVER
+! PDP    : (KLON,KLEV)       ; LAYER PRESSURE THICKNESS
+! PEMIS  : (KLON)            ; SURFACE LW EMISSIVITY
+! PEMIW  : (KLON)            ; SURFACE LW WINDOW EMISSIVITY
+! PLSM   : (KLON)            ; LAND-SEA MASK
+! PMU0   : (KLON)            ; SOLAR ANGLE
+! PNBAS  : (KLON)            ; INDEX OF BASE OF CONVECTIVE LAYER
+! PNTOP  : (KLON)            ; INDEX OF TOP OF CONVECTIVE LAYER
+! POZON  : (KLON,KLEV)       ; OZONE AMOUNT in LAYER (KG/KG*PA)
+! PQ     : (KLON,KLEV)       ; SPECIFIC HUMIDITY KG/KG
+! PQIWP  : (KLON,KLEV)       ; SOLID  WATER KG/KG
+! PQLWP  : (KLON,KLEV)       ; LIQUID WATER KG/KG
+! PQS    : (KLON,KLEV)       ; SATURATION WATER VAPOR  KG/KG
+! PQRAIN : (KLON,KLEV)       ; RAIN WATER KG/KG
+! PRAINT : (KLON,KLEV)       ; RAIN RATE (m/s)
+! PTH    : (KLON,KLEV+1)     ; HALF LEVEL TEMPERATURE
+! PT     : (KLON,KLEV)       ; FULL LEVEL TEMPERATURE
+! PTS    : (KLON)            ; SURFACE TEMPERATURE
+! LDDUST                     ; Dust properties switch
+! PPIZA_DST  : (KPROMA,KLEV,NSW); Single scattering albedo of dust 
+! PCGA_DST   : (KPROMA,KLEV,NSW); Assymetry factor for dust 
+! PTAUREL_DST: (KPROMA,KLEV,NSW); Optical depth of dust relative to at 550nm
+! PREF_LIQ (KPROMA,KLEV)        ; Liquid droplet radius (um)
+! PREF_ICE (KPROMA,KLEV)        ; Ice crystal radius (um)
+!     ==== OUTPUTS ===
+! PFCT   : (KLON,KLEV+1)     ; CLEAR-SKY LW NET FLUXES
+! PFLT   : (KLON,KLEV+1)     ; TOTAL LW NET FLUXES
+! PFCS   : (KLON,KLEV+1)     ; CLEAR-SKY SW NET FLUXES
+! PFLS   : (KLON,KLEV+1)     ; TOTAL SW NET FLUXES
+! PFRSOD : (KLON)            ; TOTAL-SKY SURFACE SW DOWNWARD FLUX
+! PEMIT  : (KLON)            ; SURFACE TOTAL LONGWAVE EMISSIVITY
+! PSUDU  : (KLON)            ; SOLAR RADIANCE IN SUN'S DIRECTION
+! PPARF  : (KLON)            ; PHOTOSYNTHETICALLY ACTIVE RADIATION
+! PUVDF  : (KLON)            ; UV(-B) RADIATION
+! PPARCF : (KLON)            ; CLEAR-SKY PHOTOSYNTHETICALLY ACTIVE RADIATION
+! PTINCF : (KLON)            ; TOA INCIDENT SOLAR RADIATION 
+! Ajout flux LW et SW montants et descendants, et ciel clair (MPL 19.12.08)
+! PFLUX  : (KLON,2,KLEV+1)   ; LW total sky flux (1=up, 2=down)
+! PFLUC  : (KLON,2,KLEV+1)   ; LW clear sky flux (1=up, 2=down)
+! PFSDN(KLON,KLEV+1)         ; SW total sky flux down
+! PFSUP(KLON,KLEV+1)         ; SW total sky flux up
+! PFSCDN(KLON,KLEV+1)        ; SW clear sky flux down
+! PFSCUP(KLON,KLEV+1)        ; SW clear sky flux up
+
+
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+
+!     EXTERNALS.
+!     ----------
+
+!     REFERENCE.
+!     ----------
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+
+!     AUTHORS.
+!     --------
+!        J.-J. MORCRETTE         *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 88-02-04
+!        J.-J. MORCRETTE 94-11-15 DIRECT/DIFFUSE SURFACE ALBEDO
+!        08/96: J.-J. Morcrette/Ph. Dandin: tests of eff. radius param.
+!        9909 : JJMorcrette effect.radius + inhomogeneity factors
+!        JJMorcrette 990128 : sunshine duration
+!        JJMorcrette : 990831 RRTM-140gp
+!        JJMorcrette : 010112 Sun-Rikus ice particle Diameter
+!        JJMorcrette : 010301 cleaning liq/ice cloud optical properties
+!        JJMorcrette : 011005 CCN --> Re liquid water clouds
+!        JJMorcrette : 011108 Safety checks
+!        JJMorcrette : 011108 Safety checks
+!        DJSalmond   : 020211 Check before R-To-R
+!        JJMorcrette : 020901 PAR & UV
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        JJMorcrette : 050402 New sets of optical properties (NB: inactive)
+!        Y.Seity       04-11-18 : add 4 arguments for AROME externalized surface
+!        Y.Seity       05-10-10 : add 3 optional arg. for dust SW properties
+!        JJMorcrette 20060721 PP of clear-sky PAR and TOA incident solar radiation 
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOMCST   , ONLY : RG       ,RD       ,RTT      ,RPI
+!USE YOERAD   , ONLY : NSW      ,LRRTM    ,LCCNL    ,LCCNO, LDIFFC, &
+! NSW mis dans .def MPL 20140211
+USE YOERAD   , ONLY : LRRTM    ,LCCNL    ,LCCNO, LDIFFC, &
+ & NRADIP , NRADLP , NICEOPT, NLIQOPT, NINHOM ,NLAYINH ,&
+ & RCCNLND, RCCNSEA, RLWINHF, RSWINHF, RRe2De ,&  
+ & LEDBUG  
+USE YOELW    , ONLY : NSIL     ,NTRA     ,NUA      ,TSTAND   ,XP
+USE YOESW    , ONLY : RYFWCA   ,RYFWCB   ,RYFWCC   ,RYFWCD   ,&
+ & RYFWCE   ,RYFWCF   ,REBCUA   ,REBCUB   ,REBCUC   ,&
+ & REBCUD   ,REBCUE   ,REBCUF   ,REBCUI   ,REBCUJ   ,&
+ & REBCUG   ,REBCUH   ,RHSAVI   ,RFULIO   ,RFLAA0   ,&
+ & RFLAA1   ,RFLBB0   ,RFLBB1   ,RFLBB2   ,RFLBB3   ,&
+ & RFLCC0   ,RFLCC1   ,RFLCC2   ,RFLCC3   ,RFLDD0   ,&
+ & RFLDD1   ,RFLDD2   ,RFLDD3   ,RFUETA   ,RFUETB   ,RFUETC  ,RASWCA   ,&
+ & RASWCB   ,RASWCC   ,RASWCD   ,RASWCE   ,RASWCF   ,&
+ & RFUAA0   ,RFUAA1   ,RFUBB0   ,RFUBB1   ,RFUBB2   ,&
+ & RFUBB3   ,RFUCC0   ,RFUCC1   ,RFUCC2   ,RFUCC3   ,& 
+ & RLILIA   ,RLILIB  
+USE YOERDU        , ONLY : NUAER    ,NTRAER   ,REPLOG   ,REPSC    ,REPSCW   ,DIFF
+USE YOETHF        , ONLY : RTICE
+USE YOEPHLI       , ONLY : LPHYLIN
+USE YOERRTWN      , ONLY :                     DELWAVE   ,TOTPLNK   
+
+USE YOMLUN_IFSAUX , ONLY : NULOUT
+USE YOMCT3        , ONLY : NSTEP
+
+IMPLICIT NONE
+
+include "clesphys.h"
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLON 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KIDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KMODE 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KAER 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PRII0 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PAER(KLON,6,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PALBD(KLON,NSW) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PALBP(KLON,NSW) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PAPH(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PAP(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCCNL(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCCNO(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCCO2 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCLFR(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PDP(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PEMIS(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PEMIW(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PLSM(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PMU0(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: POZON(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PQ(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PQIWP(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PQLWP(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PQS(KLON,KLEV) 
+REAL(KIND=JPRB)                  :: PQRAIN(KLON,KLEV) ! Argument NOT used
+REAL(KIND=JPRB)                  :: PRAINT(KLON,KLEV) ! Argument NOT used
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTH(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PT(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTS(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PNBAS(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PNTOP(KLON) 
+LOGICAL           ,INTENT(IN)    :: LRDUST
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PPIZA_DST(KLON,KLEV,NSW)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCGA_DST(KLON,KLEV,NSW)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAUREL_DST(KLON,KLEV,NSW)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PREF_LIQ(KLON,KLEV)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PREF_ICE(KLON,KLEV)
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PEMIT(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFCT(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFLT(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFCS(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFLS(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFRSOD(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PSUDU(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PUVDF(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PPARF(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PPARCF(KLON), PTINCF(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PSFSWDIR(KLON,NSW) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PSFSWDIF(KLON,NSW) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFSDNN(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFSDNV(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFLUX(KLON,2,KLEV+1) ! LW total sky flux (1=up, 2=down)
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFLUC(KLON,2,KLEV+1) ! LW clear sky flux (1=up, 2=down)
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFSDN(KLON,KLEV+1)   ! SW total sky flux down
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFSUP(KLON,KLEV+1)   ! SW total sky flux up
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFSCDN(KLON,KLEV+1)  ! SW clear sky flux down
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFSCUP(KLON,KLEV+1)  ! SW clear sky flux up
+
+
+!     -----------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+!     ==== COMPUTED IN RADLSW ===
+!     -----------------------------------------------------------------
+
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+!     -----------------------------------------------------------------
+
+!-- ARRAYS FOR LOCAL VARIABLES -----------------------------------------
+
+INTEGER(KIND=JPIM) :: IBAS(KLON)     , ITOP(KLON)
+
+REAL(KIND=JPRB) ::&
+ & ZALBD(KLON,NSW)    , ZALBP(KLON,NSW)&
+ & , ZCG(KLON,NSW,KLEV) , ZOMEGA(KLON,NSW,KLEV)&
+ & , ZTAU (KLON,NSW,KLEV) &
+ & , ZTAUCLD(KLON,KLEV,16), ZTCLEAR(KLON)  
+REAL(KIND=JPRB) ::&
+ & ZCLDLD(KLON,KLEV)  , ZCLDLU(KLON,KLEV)&
+ & , ZCLDSW(KLON,KLEV)  , ZCLD0(KLON,KLEV)&
+ & , ZDT0(KLON)        &
+ & , ZEMIS(KLON)        , ZEMIW(KLON)&
+ & , ZFIWP(KLON)        , ZFLWP(KLON)      , ZFRWP(KLON)&
+ & , ZIWC(KLON)         , ZLWC(KLON)&
+ !cc            , ZRWC(KLON)
+ & , ZMU0(KLON)         , ZOZ(KLON,KLEV)   , ZOZN(KLON,KLEV)&
+ & , ZPMB(KLON,KLEV+1)  , ZPSOL(KLON)&
+ & , ZTAVE (KLON,KLEV)  , ZTL(KLON,KLEV+1)&
+ & , ZVIEW(KLON)  
+REAL(KIND=JPRB) ::&
+ & ZFCDWN(KLON,KLEV+1), ZFCUP(KLON,KLEV+1)&
+ & , ZFSDWN(KLON,KLEV+1), ZFSUP(KLON,KLEV+1)&
+ & , ZFSUPN(KLON)       , ZFSUPV(KLON)&
+ & , ZFCUPN(KLON)       , ZFCUPV(KLON)&
+ & , ZFSDNN(KLON)       , ZFSDNV(KLON)&
+ & , ZFCDNN(KLON)       , ZFCDNV(KLON)&  
+ & , ZDIRFS(KLON,NSW)   , ZDIFFS(KLON,NSW)  
+REAL(KIND=JPRB) ::&
+ & ZALFICE(KLON)      , ZGAMICE(KLON)     , ZBICE(KLON)   , ZDESR(KLON)&
+ & , ZRADIP(KLON)       , ZRADLP(KLON)     &
+ !cc           , ZRADRD(KLON)
+ & , ZRAINT(KLON)       , ZRES(KLON)&
+ & , ZTICE(KLON)        , ZEMIT(KLON),  ZBICFU(KLON)&
+ & , ZKICFU(KLON)
+REAL(KIND=JPRB) :: ZSUDU(KLON)   , ZPARF(KLON)       , ZUVDF(KLON), ZPARCF(KLON)
+INTEGER(KIND=JPIM) :: IKL, JK, JKL, JKLP1, JKP1, JL, JNU, JRTM, JSW, INDLAY
+
+REAL(KIND=JPRB) :: ZASYMX, ZDIFFD, ZGI, ZGL, ZGR, ZIWGKG, ZLWGKG,&
+ & ZMSAID, ZMSAIU, ZMSALD, ZMSALU, ZRSAIA, ZRSAID, ZRSAIE, ZRSAIF, ZRSAIG, ZRSALD, &
+ & ZMULTI, ZMULTL, ZOI   , ZOL, &
+ & ZOMGMX, ZOR, ZRMUZ, ZRWGKG, ZTAUD, ZTAUMX, ZTEMPC, &
+ & ZTOI, ZTOL, ZTOR, ZZFIWP, ZZFLWP, ZDPOG, ZPODT  
+
+REAL(KIND=JPRB) :: ZALND, ZASEA, ZD, ZDEN, ZNTOT, ZNUM, ZRATIO, Z1RADI, &
+ & Z1RADL, ZBETAI, ZOMGI, ZOMGP, ZFDEL, ZTCELS, ZFSR, ZAIWC, &
+ & ZBIWC, ZTBLAY, ZADDPLK, ZPLANCK, ZEXTCF, Z1MOMG, &
+ & ZDefRe, ZRefDe, ZVI , ZMABSD 
+
+!REAL(KIND=JPRB) :: ZAVDP(KLON), ZAVTO(KLON), ZSQTO(KLON)
+REAL(KIND=JPRB) :: ZAVTO(KLON), ZSQTO(KLON)
+REAL(KIND=JPRB) :: ZSQUAR(KLON,KLEV), ZVARIA(KLON,KLEV)
+INTEGER(KIND=JPIM) :: IKI, JKI, JEXPLR, JXPLDN
+LOGICAL         :: LLDEBUG
+
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+#include "lw.intfb.h"
+#include "rrtm_rrtm_140gp.intfb.h"
+#include "sw.intfb.h"
+
+!     -----------------------------------------------------------------
+
+!*         1.     SET-UP INPUT QUANTITIES FOR RADIATION
+!                 -------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('RADLSW',0,ZHOOK_HANDLE)
+
+LLDEBUG=.FALSE.
+ZRefDe = RRe2De
+ZDefRe = 1.0_JPRB / ZRefDe
+
+DO JL = KIDIA,KFDIA
+  ZFCUP(JL,KLEV+1) = 0.0_JPRB
+  ZFCDWN(JL,KLEV+1) = REPLOG
+  ZFSUP(JL,KLEV+1) = 0.0_JPRB
+  ZFSDWN(JL,KLEV+1) = REPLOG
+  PFLUX(JL,1,KLEV+1) = 0.0_JPRB
+  PFLUX(JL,2,KLEV+1) = 0.0_JPRB
+  PFLUC(JL,1,KLEV+1) = 0.0_JPRB
+  PFLUC(JL,2,KLEV+1) = 0.0_JPRB
+  ZFSDNN(JL) = 0.0_JPRB
+  ZFSDNV(JL) = 0.0_JPRB
+  ZFCDNN(JL) = 0.0_JPRB
+  ZFCDNV(JL) = 0.0_JPRB
+  ZFSUPN(JL) = 0.0_JPRB
+  ZFSUPV(JL) = 0.0_JPRB
+  ZFCUPN(JL) = 0.0_JPRB
+  ZFCUPV(JL) = 0.0_JPRB
+  ZPSOL(JL) = PAPH(JL,KLEV+1)
+  ZPMB(JL,1) = ZPSOL(JL) / 100.0_JPRB
+  ZDT0(JL) = PTS(JL) - PTH(JL,KLEV+1)
+  PSUDU(JL) = 0.0_JPRB
+  PPARF(JL) = 0.0_JPRB
+  PPARCF(JL)= 0.0_JPRB
+  PUVDF(JL) = 0.0_JPRB
+  PSFSWDIR(JL,:)=0.0_JPRB
+  PSFSWDIF(JL,:)=0.0_JPRB
+  IBAS(JL) = INT ( 0.01_JPRB + PNBAS(JL) )
+  ITOP(JL) = INT ( 0.01_JPRB + PNTOP(JL) )
+ENDDO
+
+!*         1.1    INITIALIZE VARIOUS FIELDS
+!                 -------------------------
+
+DO JSW=1,NSW
+  DO JL = KIDIA,KFDIA
+    ZALBD(JL,JSW)=PALBD(JL,JSW)
+    ZALBP(JL,JSW)=PALBP(JL,JSW)
+  ENDDO
+ENDDO
+DO JL = KIDIA,KFDIA
+  ZEMIS(JL)  =PEMIS(JL)
+  ZEMIW(JL)  =PEMIW(JL)
+  ZMU0(JL)   =PMU0(JL)
+ENDDO
+
+DO JK = 1 , KLEV
+  JKP1 = JK + 1
+  JKL = KLEV+ 1 - JK
+  JKLP1 = JKL + 1
+  DO JL = KIDIA,KFDIA
+    ZPMB(JL,JK+1)=PAPH(JL,JKL)/100.0_JPRB
+
+!-- ZOZ in cm.atm for SW scheme    
+    ZOZ(JL,JK)   = POZON(JL,JKL) * 46.6968_JPRB / RG
+
+    ZCLD0(JL,JK) = 0.0_JPRB
+    ZFCUP(JL,JK) = 0.0_JPRB
+    ZFCDWN(JL,JK) = 0.0_JPRB
+    ZFSUP(JL,JK) = 0.0_JPRB
+    ZFSDWN(JL,JK) = 0.0_JPRB
+    PFLUX(JL,1,JK) = 0.0_JPRB
+    PFLUX(JL,2,JK) = 0.0_JPRB
+    PFLUC(JL,1,JK) = 0.0_JPRB
+    PFLUC(JL,2,JK) = 0.0_JPRB
+  ENDDO
+ENDDO
+
+DO JK=1,KLEV
+  JKL=KLEV+1-JK
+  JKLP1=JKL+1
+  DO JL=KIDIA,KFDIA
+    ZTL(JL,JK)=PTH(JL,JKLP1)
+    ZTAVE(JL,JK)=PT(JL,JKL)
+  ENDDO
+ENDDO
+DO JL=KIDIA,KFDIA
+  ZTL(JL,KLEV+1)= PTH(JL,1)
+  ZPMB(JL,KLEV+1) = PAPH(JL,1)/100.0_JPRB
+ENDDO
+!***
+
+!     ------------------------------------------------------------------
+
+!*         2.     CLOUD AND AEROSOL PARAMETERS
+!                 ----------------------------
+
+DO JK = 1 , KLEV
+  IKL = KLEV + 1 - JK
+
+!          2.1    INITIALIZE OPTICAL PROPERTIES TO CLEAR SKY VALUES
+!                 -------------------------------------------------
+
+  DO JSW = 1,NSW
+    DO JL = KIDIA,KFDIA
+      ZTAU(JL,JSW,JK)  = 0.0_JPRB
+      ZOMEGA(JL,JSW,JK)= 1.0_JPRB
+      ZCG(JL,JSW,JK)   = 0.0_JPRB
+    ENDDO
+  ENDDO
+  DO JL = KIDIA,KFDIA
+    ZCLDSW(JL,JK)  = 0.0_JPRB
+    ZCLDLD(JL,JK)  = 0.0_JPRB
+    ZCLDLU(JL,JK)  = 0.0_JPRB
+  ENDDO
+
+!          2.2    CLOUD ICE AND LIQUID CONTENT AND PATH
+!                 -------------------------------------
+
+  DO JL = KIDIA,KFDIA
+
+! --- LIQUID WATER CONTENT (g.m-3) AND LIQUID WATER PATH (g.m-2)
+    IF (PCLFR(JL,IKL) > REPSC ) THEN
+      ZLWGKG=MAX(PQLWP(JL,IKL)*1000.0_JPRB,0.0_JPRB)
+      ZIWGKG=MAX(PQIWP(JL,IKL)*1000.0_JPRB,0.0_JPRB)
+      ZLWGKG=ZLWGKG/PCLFR(JL,IKL)
+      ZIWGKG=ZIWGKG/PCLFR(JL,IKL)
+    ELSE
+      ZLWGKG=0.0_JPRB
+      ZIWGKG=0.0_JPRB
+    ENDIF
+    ZRWGKG=0.0_JPRB
+    ZRAINT(JL)=0.0_JPRB
+
+! --- RAIN LIQUID WATER CONTENT (g.m-3) AND LIQUID WATER PATH (g.m-2)
+!    IF (PRAINT(JL,IKL) >= REPSCW) THEN
+!      ZRWGKG=MAX(PQRAIN(JL,IKL)*1000., 0.0)
+!      ZRAINT(JL)=PRAINT(JL,IKL)*3600.*1000.
+!- no radiative effect of rain (for the moment)
+!      ZRWGKG=0.
+!      ZRAINT(JL)=0.
+! ===========================================================
+
+! Modifications Martin et al.
+!    ELSE
+!    ENDIF
+    ZDPOG=PDP(JL,IKL)/RG
+    ZFLWP(JL)= ZLWGKG*ZDPOG
+    ZFIWP(JL)= ZIWGKG*ZDPOG
+    ZFRWP(JL)= ZRWGKG*ZDPOG
+    ZPODT=PAP(JL,IKL)/(RD*PT(JL,IKL))
+    ZLWC(JL)=ZLWGKG*ZPODT
+    ZIWC(JL)=ZIWGKG*ZPODT
+!    ZRWC(JL)=ZRWGKG*ZPODT
+
+  ENDDO
+  DO JL = KIDIA,KFDIA
+! --- EFFECTIVE RADIUS FOR WATER, ICE AND RAIN PARTICLES
+
+! very old parametrization as f(pressure)
+
+    IF (NRADLP == 0) THEN
+!-- very old parametrization as f(pressure) ERA-15
+      ZRADLP(JL)=10.0_JPRB + (100000.0_JPRB-PAP(JL,IKL))*3.5_JPRB
+
+    ELSEIF (NRADLP == 1) THEN
+! simple distinction between land (10) and ocean (13) Zhang and Rossow
+      IF (PLSM(JL) < 0.5_JPRB) THEN
+        ZRADLP(JL)=13.0_JPRB
+      ELSE
+        ZRADLP(JL)=10.0_JPRB
+      ENDIF
+      
+    ELSEIF (NRADLP == 2) THEN
+!--  based on Martin et al., 1994, JAS
+      IF (PLSM(JL) < 0.5_JPRB) THEN
+        IF (LCCNO) THEN
+!          ZASEA=50.0_JPRB
+          ZASEA=PCCNO(JL)
+        ELSE  
+          ZASEA=RCCNSEA
+        ENDIF  
+        ZD=0.33_JPRB
+        ZNTOT=-1.15E-03_JPRB*ZASEA*ZASEA+0.963_JPRB*ZASEA+5.30_JPRB
+      ELSE
+        IF (LCCNL) THEN 
+!          ZALND=900.0_JPRB
+          ZALND=PCCNL(JL)
+        ELSE  
+          ZALND=RCCNLND
+        ENDIF  
+        ZD=0.43_JPRB
+        ZNTOT=-2.10E-04_JPRB*ZALND*ZALND+0.568_JPRB*ZALND-27.9_JPRB
+      ENDIF
+      ZNUM=3.0_JPRB*ZLWC(JL)*(1.0_JPRB+3.0_JPRB*ZD*ZD)**2
+      ZDEN=4.0_JPRB*RPI*ZNTOT*(1.0_JPRB+ZD*ZD)**3
+      IF((ZNUM/ZDEN) > REPLOG)THEN
+        ZRADLP(JL)=100.0_JPRB*EXP(0.333_JPRB*LOG(ZNUM/ZDEN))
+        ZRADLP(JL)=MAX(ZRADLP(JL), 4.0_JPRB)
+        ZRADLP(JL)=MIN(ZRADLP(JL),16.0_JPRB)
+      ELSE
+        ZRADLP(JL)=4.0_JPRB
+      ENDIF
+
+    ELSEIF (NRADLP == 3) THEN  
+! one uses the cloud droplet radius from newmicro
+! IKL or JK ?? - I think IKL but needs to be verified
+        ZRADLP(JL)=PREF_LIQ(JL,IKL)
+    ENDIF  
+
+! ===========================================================
+! ___________________________________________________________
+
+! rain drop from          : unused as ZRAINT is 0.
+!    ZRADRD(JL)=500.0_JPRB*ZRAINT(JL)**0.22_JPRB
+!    IF (ZFLWP(JL).GT.0.) THEN
+!      ZRADRD(JL)=ZRADLP(JL)+ZRADRD(JL)
+!    ENDIF   
+
+  ENDDO
+  DO JL = KIDIA,KFDIA
+
+! diagnosing the ice particle effective radius/diameter
+
+!- ice particle effective radius =f(T) from Liou and Ou (1994)
+ 
+    IF (PT(JL,IKL) < RTICE) THEN
+      ZTEMPC=PT(JL,IKL)-RTT
+    ELSE
+      ZTEMPC=RTICE-RTT
+    ENDIF
+    ZRADIP(JL)=326.3_JPRB+ZTEMPC*(12.42_JPRB + ZTEMPC*(0.197_JPRB + ZTEMPC*&
+      & 0.0012_JPRB))    
+
+    IF (NRADIP == 0) THEN
+!-- fixed 40 micron effective radius
+      ZRADIP(JL)= 40.0_JPRB
+      ZDESR(JL) = ZDefRe * ZRADIP(JL)
+      
+    ELSEIF (NRADIP == 1) THEN 
+
+!-- old formulation based on Liou & Ou (1994) temperature (40-130microns)    
+      ZRADIP(JL)=MAX(ZRADIP(JL),40.0_JPRB)
+      ZDESR(JL) = ZDefRe * ZRADIP(JL)
+      
+    ELSEIF (NRADIP == 2) THEN  
+!-- formulation following Jakob, Klein modifications to ice content    
+      ZRADIP(JL)=MAX(ZRADIP(JL),30.0_JPRB)
+      ZRADIP(JL)=MIN(ZRADIP(JL),60.0_JPRB)
+      ZDESR(JL)= ZDefRe * ZRADIP(JL)
+ 
+    ELSEIF (NRADIP == 3  ) THEN
+ 
+!- ice particle effective radius =f(T,IWC) from Sun and Rikus (1999)
+! revised by Sun (2001)
+      IF (ZIWC(JL) > 0.0_JPRB ) THEN
+        ZTEMPC = PT(JL,IKL)-83.15_JPRB
+        ZTCELS = PT(JL,IKL)-RTT
+        ZFSR = 1.2351_JPRB +0.0105_JPRB * ZTCELS
+! Sun, 2001 (corrected from Sun & Rikus, 1999)
+        ZAIWC = 45.8966_JPRB * ZIWC(JL)**0.2214_JPRB
+        ZBIWC = 0.7957_JPRB * ZIWC(JL)**0.2535_JPRB
+        ZDESR(JL) = ZFSR * (ZAIWC + ZBIWC*ZTEMPC)
+!-new        ZDESR(JL) = MIN ( MAX( ZDESR(JL), 30.0_JPRB), 155.0_JPRB)
+        ZDESR(JL) = MIN ( MAX( ZDESR(JL), 45.0_JPRB), 350.0_JPRB)
+        ZRADIP(JL)= ZRefDe * ZDESR(JL)
+      ELSE
+!        ZDESR(JL) = 92.5_JPRB
+        ZDESR(JL) = 80.0_JPRB
+        ZRADIP(JL)= ZRefDe * ZDESR(JL)
+      ENDIF  
+ 
+    ELSEIF (NRADIP == 4  ) THEN
+! one uses the cloud droplet radius from newmicro
+! IKL or JK ?? - I think IKL but needs to be verified
+        ZRADIP(JL)=PREF_ICE(JL,IKL)
+    ENDIF  
+    
+  ENDDO
+
+!          2.3    CLOUD SHORTWAVE OPTICAL PROPERTIES
+!                 ----------------------------------
+
+!   -------------------------
+! --+ SW OPTICAL PARAMETERS +  Water clouds after Fouquart (1987)
+!   -------------------------  Ice clouds (Ebert, Curry, 1992)
+
+  DO JSW=1,NSW
+    DO JL = KIDIA,KFDIA
+      ZTOL=0.0_JPRB
+      ZGL =0.0_JPRB
+      ZOL =0.0_JPRB
+      ZTOI=0.0_JPRB
+      ZGI =0.0_JPRB
+      ZOI =0.0_JPRB
+      ZTOR=0.0_JPRB
+      ZGR =0.0_JPRB
+      ZOR =0.0_JPRB
+      IF (ZFLWP(JL)+ZFIWP(JL)+ZFRWP(JL) > 2.0_JPRB * REPSCW ) THEN
+        IF (ZFLWP(JL) >= REPSCW ) THEN
+          IF (NLIQOPT /= 0 ) THEN
+!-- SW: Slingo, 1989
+            ZTOL = ZFLWP(JL)*(RASWCA(JSW)+RASWCB(JSW)/ZRADLP(JL))
+            ZGL  = RASWCE(JSW)+RASWCF(JSW)*ZRADLP(JL)
+            ZOL  = 1. - RASWCC(JSW)-RASWCD(JSW)*ZRADLP(JL)
+          ELSE          
+!-- SW: Fouquart, 1991
+            ZTOL = ZFLWP(JL)*(RYFWCA(JSW)+RYFWCB(JSW)/ZRADLP(JL))
+            ZGL  = RYFWCF(JSW)
+!            ZOL  = RYFWCC(JSW)-RYFWCD(JSW)*EXP(-RYFWCE(JSW)*ZTOL)
+!-- NB: RSWINHF is there simply for making the CY29R2 branch bit compatible with 
+! the previous. Should be cleaned when RRTM_SW becomes active
+            ZOL  = RYFWCC(JSW)-RYFWCD(JSW)*EXP(-RYFWCE(JSW)*ZTOL*RSWINHF)
+          ENDIF 
+        ENDIF
+
+        IF (ZFIWP(JL) >= REPSCW ) THEN
+          IF (NICEOPT <= 1) THEN
+!-- SW: Ebert-Curry          
+            ZTOI = ZFIWP(JL)*(REBCUA(JSW)+REBCUB(JSW)/ZRADIP(JL))
+            ZGI  = REBCUE(JSW)+REBCUF(JSW)*ZRADIP(JL)
+            ZOI  = 1.0_JPRB - REBCUC(JSW)-REBCUD(JSW)*ZRADIP(JL)
+            
+          ELSEIF (NICEOPT == 2) THEN  
+!-- SW: Fu-Liou 1993
+            Z1RADI = 1.0_JPRB / ZDESR(JL)
+            ZBETAI = RFLAA0(JSW)+Z1RADI* RFLAA1(JSW)
+            ZTOI = ZFIWP(JL) * ZBETAI
+            ZOMGI= RFLBB0(JSW)+ZRADIP(JL)*(RFLBB1(JSW) + ZRADIP(JL) &
+             & *(RFLBB2(JSW)+ZRADIP(JL)* RFLBB3(JSW) ))              
+            ZOI  = 1.0_JPRB - ZOMGI
+            ZOMGP= RFLCC0(JSW)+ZRADIP(JL)*(RFLCC1(JSW) + ZRADIP(JL) &
+             & *(RFLCC2(JSW)+ZRADIP(JL)* RFLCC3(JSW) ))   
+            ZFDEL= RFLDD0(JSW)+ZRADIP(JL)*(RFLDD1(JSW) + ZRADIP(JL) &
+             & *(RFLDD2(JSW)+ZRADIP(JL)* RFLDD3(JSW) ))   
+            ZGI  = ((1.0_JPRB -ZFDEL)*ZOMGP + ZFDEL*3.0_JPRB) / 3.0_JPRB
+            
+          ELSEIF (NICEOPT == 3) THEN  
+!-- SW: Fu 1996
+            Z1RADI = 1.0_JPRB / ZDESR(JL)
+            ZBETAI = RFUAA0(JSW)+Z1RADI* RFUAA1(JSW)
+            ZTOI = ZFIWP(JL) * ZBETAI
+            ZOMGI= RFUBB0(JSW)+ZDESR(JL)*(RFUBB1(JSW) + ZDESR(JL) &
+             &   *(RFUBB2(JSW)+ZDESR(JL)* RFUBB3(JSW) ))            
+            ZOI  = 1.0_JPRB - ZOMGI
+            ZGI  = RFUCC0(JSW)+ZDESR(JL)*(RFUCC1(JSW) + ZDESR(JL) &
+             &   *(RFUCC2(JSW)+ZDESR(JL)* RFUCC3(JSW) )) 
+            ZGI  = MIN(1.0_JPRB, ZGI)
+      
+          ENDIF
+        ENDIF
+
+!        IF (ZFRWP(JL) >= REPSCW ) THEN
+!          ZTOR= ZFRWP(JL)*0.003_JPRB * ZRAINT(JL)**(-0.22_JPRB)         
+!          ZOR = 1.0_JPRB - RROMA(JSW)*ZRAINT(JL)**RROMB(JSW)
+!          ZGR = RRASY(JSW)
+!        ENDIF   
+
+!  - MIX of WATER and ICE CLOUDS
+        ZTAUMX= ZTOL + ZTOI + ZTOR
+        ZOMGMX= ZTOL*ZOL + ZTOI*ZOI + ZTOR*ZOR
+        ZASYMX= ZTOL*ZOL*ZGL + ZTOI*ZOI*ZGI + ZTOR*ZOR*ZGR
+
+        ZASYMX= ZASYMX/ZOMGMX
+        ZOMGMX= ZOMGMX/ZTAUMX
+
+! --- SW FINAL CLOUD OPTICAL PARAMETERS
+
+        ZCLDSW(JL,JK)  = PCLFR(JL,IKL)
+        ZTAU(JL,JSW,JK)  = ZTAUMX
+        ZOMEGA(JL,JSW,JK)= ZOMGMX
+        ZCG(JL,JSW,JK)   = ZASYMX
+      ENDIF
+    ENDDO
+  ENDDO
+
+  IF(LLDEBUG) THEN
+   call writefield_phy("radlsw_ztau",ztau(:,1,:),klev)
+  ENDIF
+
+!          2.4    CLOUD LONGWAVE OPTICAL PROPERTIES FOR EC-OPE
+!                 --------------------------------------------
+
+!   -------------------------
+! --+ LW OPTICAL PARAMETERS +  Water (and Ice) from Smith and Shi (1992)
+!   -------------------------  Ice clouds (Ebert, Curry, 1992)
+
+  IF (.NOT.LRRTM) THEN
+
+    DO JL = KIDIA,KFDIA
+      ZALFICE(JL)=0.0_JPRB
+      ZGAMICE(JL)=0.0_JPRB
+      ZBICE(JL)=0.0_JPRB
+      ZTICE(JL)=(PT(JL,IKL)-TSTAND)/TSTAND
+      IF (NICEOPT == 1) THEN
+        ZBICFU(JL)=1.0_JPRB
+      ELSE
+        ZBICFU(JL)=0.0_JPRB
+      ENDIF
+      ZKICFU(JL)=0.0_JPRB
+    ENDDO
+    
+    DO JNU= 1,NSIL
+      DO JL = KIDIA,KFDIA
+        ZRES(JL)  = XP(1,JNU)+ZTICE(JL)*(XP(2,JNU)+ZTICE(JL)*(XP(3,&
+         & JNU)&
+         & +ZTICE(JL)*(XP(4,JNU)+ZTICE(JL)*(XP(5,JNU)+ZTICE(JL)*(XP(6,&
+         & JNU)&
+         & )))))  
+        ZBICE(JL) = ZBICE(JL) + ZRES(JL)
+        ZGAMICE(JL) = ZGAMICE(JL) + REBCUI(JNU)*ZRES(JL)
+        ZALFICE(JL) = ZALFICE(JL) + REBCUJ(JNU)*ZRES(JL)
+      ENDDO
+    ENDDO
+    
+!-- Fu et al. (1998) with M'91 LW scheme    
+    IF (NICEOPT == 2 .OR. NICEOPT == 3) THEN
+      DO JRTM=1,16
+        DO JL=KIDIA,KFDIA
+          IF (PT(JL,IKL) < 160.0_JPRB) THEN
+            INDLAY=1
+            ZTBLAY =PT(JL,IKL)-160.0_JPRB
+          ELSEIF (PT(JL,IKL) < 339.0_JPRB ) THEN
+            INDLAY=PT(JL,IKL)-159.0_JPRB
+            INDLAY=MAX(INDLAY,1)
+            ZTBLAY =PT(JL,IKL)-INT(PT(JL,IKL))
+          ELSE 
+            INDLAY=180
+            ZTBLAY =PT(JL,IKL)-339.0_JPRB
+          ENDIF
+          ZADDPLK = TOTPLNK(INDLAY+1,JRTM)-TOTPLNK(INDLAY,JRTM)
+          ZPLANCK = DELWAVE(JRTM) * (TOTPLNK(INDLAY,JRTM) + ZTBLAY*ZADDPLK)
+          ZBICFU(JL) = ZBICFU(JL) + ZPLANCK
+        
+          IF (ZIWC(JL) > 0.0_JPRB ) THEN
+            ZRATIO =  1.0_JPRB / ZDESR(JL) 
+            IF (NICEOPT == 2) THEN
+! ice cloud spectral emissivity a la Fu & Liou (1993)
+              ZMABSD = RFULIO(JRTM,1) + ZRATIO &
+               & *(RFULIO(JRTM,2) + ZRATIO*RFULIO(JRTM,3))  
+          
+! ice cloud spectral emissivity a la Fu et al (1998)
+            ELSEIF (NICEOPT == 3) THEN 
+              ZMABSD = RFUETA(JRTM,1) + ZRATIO &
+               & *(RFUETA(JRTM,2) + ZRATIO*RFUETA(JRTM,3))  
+            ENDIF
+            ZKICFU(JL) = ZKICFU(JL)+ ZMABSD*ZPLANCK
+          ENDIF  
+        ENDDO
+      ENDDO
+    ENDIF
+    
+    DO JL = KIDIA,KFDIA
+      ZGAMICE(JL) = ZGAMICE(JL) / ZBICE(JL)
+      ZALFICE(JL) = ZALFICE(JL) / ZBICE(JL)
+      ZKICFU(JL)  = ZKICFU(JL) / ZBICFU(JL)
+      
+      IF (ZFLWP(JL)+ZFIWP(JL) > REPSCW) THEN
+
+        IF (NLIQOPT == 0) THEN
+! water cloud emissivity a la Smith & Shi (1992)
+          ZMULTL=1.2_JPRB-0.006_JPRB*ZRADLP(JL)
+          ZMSALD= 0.158_JPRB*ZMULTL
+          ZMSALU= 0.130_JPRB*ZMULTL
+          
+        ELSE
+! water cloud emissivity a la Savijarvi (1997)
+          ZMSALU= 0.2441_JPRB-0.0105_JPRB*ZRADLP(JL)
+          ZMSALD= 1.2154_JPRB*ZMSALU
+          
+        ENDIF  
+          
+        IF (NICEOPT == 0) THEN          
+! ice cloud emissivity a la Smith & Shi (1992)
+          ZMULTI=1.2_JPRB-0.006_JPRB*ZRADIP(JL)
+          ZMSAID= 0.113_JPRB*ZMULTI
+          ZMSAIU= 0.093_JPRB*ZMULTI
+
+        ELSEIF (NICEOPT == 1) THEN
+! ice cloud emissivity a la Ebert & Curry (1992)
+          ZMSAID= 1.66_JPRB*(ZALFICE(JL)+ZGAMICE(JL)/ZRADIP(JL))
+          ZMSAIU= ZMSAID
+          
+        ELSEIF (NICEOPT == 2 .OR. NICEOPT == 3) THEN  
+! ice cloud emissivity a la Fu & Liou (1993) or Fu et al. (1998)
+          ZMSAID= 1.66_JPRB*ZKICFU(JL)
+          ZMSAIU= ZMSAID          
+        ENDIF 
+       
+        IF (NINHOM == 1) THEN
+          ZZFLWP= ZFLWP(JL) * RLWINHF
+          ZZFIWP= ZFIWP(JL) * RLWINHF
+        ELSE
+          ZZFLWP= ZFLWP(JL)
+          ZZFIWP= ZFIWP(JL)
+        ENDIF
+
+! effective cloudiness accounting for condensed water
+        ZCLDLD(JL,JK) = PCLFR(JL,IKL)*(1.0_JPRB-EXP(-ZMSALD*ZZFLWP-ZMSAID* &
+         & ZZFIWP))  
+        ZCLDLU(JL,JK) = PCLFR(JL,IKL)*(1.0_JPRB-EXP(-ZMSALU*ZZFLWP-ZMSAIU* &
+         & ZZFIWP))  
+      ENDIF
+    ENDDO
+
+  ELSE
+
+!          2.5    CLOUD LONGWAVE OPTICAL PROPERTIES FOR RRTM
+!                 ------------------------------------------
+
+!   -------------------------
+! --+ LW OPTICAL PARAMETERS +  Water (and Ice) from Savijarvi (1998)
+!   -------------------------  Ice clouds (Ebert, Curry, 1992)
+
+! No need for a fixed diffusivity factor, accounted for spectrally below
+! The detailed spectral structure does not require defining upward and
+! downward effective optical properties
+
+    DO JRTM=1,16
+      DO JL = KIDIA,KFDIA
+        ZTAUCLD(JL,JK,JRTM) = 0.0_JPRB
+        ZMSALD = 0.0_JPRB
+        ZMSAID = 0.0_JPRB
+        
+        IF (ZFLWP(JL)+ZFIWP(JL) > REPSCW) THEN
+    
+          IF (NLIQOPT == 0 .OR. NLIQOPT >= 3 ) THEN
+! water cloud total emissivity a la Smith and Shi (1992)
+            ZMULTL=1.2_JPRB-0.006_JPRB*ZRADLP(JL)
+            ZRSALD= 0.144_JPRB*ZMULTL / 1.66_JPRB
+            
+          ELSEIF (NLIQOPT == 1) THEN
+! water cloud spectral emissivity a la Savijarvi (1997)
+            ZRSALD= RHSAVI(JRTM,1) + ZRADLP(JL)&
+             & *(RHSAVI(JRTM,2) + ZRADLP(JL)*RHSAVI(JRTM,3))  
+             
+          ELSEIF (NLIQOPT == 2) THEN
+! water cloud spectral emissivity a la Lindner and Li (2000)
+            Z1RADL = 1.0_JPRB / ZRADLP(JL)
+            ZEXTCF = RLILIA(JRTM,1)+ZRADLP(JL)*RLILIA(JRTM,2)+ Z1RADL*&
+             & (RLILIA(JRTM,3) + Z1RADL*(RLILIA(JRTM,4) + Z1RADL*&
+             & RLILIA(JRTM,5) ))  
+            Z1MOMG = RLILIB(JRTM,1) + Z1RADL*RLILIB(JRTM,2) &
+             & + ZRADLP(JL) *(RLILIB(JRTM,3) + ZRADLP(JL)*RLILIB(JRTM,4) )
+            ZRSALD = Z1MOMG * ZEXTCF
+          ENDIF  
+         
+          IF (NICEOPT == 0) THEN
+! ice cloud spectral emissivity a la Smith & Shi (1992)
+            ZMULTI=1.2_JPRB-0.006_JPRB*ZRADIP(JL)
+            ZRSAID= 0.103_JPRB*ZMULTI / 1.66_JPRB
+            
+          ELSEIF (NICEOPT == 1) THEN
+! ice cloud spectral emissivity a la Ebert-Curry (1992)
+            ZRSAID= REBCUH(JRTM)+REBCUG(JRTM)/ZRADIP(JL)
+            
+          ELSEIF (NICEOPT == 2) THEN
+! ice cloud spectral emissivity a la Fu & Liou (1993)
+            Z1RADI = 1.0_JPRB / ZDESR(JL)
+            ZRSAID = RFULIO(JRTM,1) + Z1RADI &
+             & *(RFULIO(JRTM,2) + Z1RADI * RFULIO(JRTM,3))  
+             
+          ELSEIF (NICEOPT == 3) THEN
+! ice cloud spectral emissivity a la Fu et al (1998) including 
+! parametrisation for LW scattering effect  
+            Z1RADI = 1.0_JPRB / ZDESR(JL)
+            ZRSAIE = RFUETA(JRTM,1) + Z1RADI &
+             &*(RFUETA(JRTM,2) + Z1RADI * RFUETA(JRTM,3)) 
+            ZRSAIA = Z1RADI*(RFUETB(JRTM,1) +ZDESR(JL)*( RFUETB(JRTM,2) +ZDESR(JL)*( RFUETB(JRTM,3) +ZDESR(JL)* RFUETB(JRTM,4))))
+            ZRSAIG = RFUETC(JRTM,1) +ZDESR(JL)*( RFUETC(JRTM,2) +ZDESR(JL)*( RFUETC(JRTM,3) +ZDESR(JL)* RFUETC(JRTM,4))) 
+            ZRSAIF = 0.5_JPRB + ZRSAIG*( 0.3738_JPRB + ZRSAIG*( 0.0076_JPRB + ZRSAIG*0.1186_JPRB ) )
+            ZRSAID = (1.0_JPRB - ZRSAIA/ZRSAIE * ZRSAIF) * ZRSAIE
+          ENDIF    
+         
+          ZTAUD = ZRSALD*ZFLWP(JL)+ZRSAID*ZFIWP(JL)
+
+! Diffusivity correction within clouds a la Savijarvi
+          IF (LDIFFC) THEN
+            ZDIFFD=MIN(MAX(1.517_JPRB-0.156_JPRB*LOG(ZTAUD) , 1.0_JPRB), &
+             &     2.0_JPRB)
+          ELSE
+            ZDIFFD=1.66_JPRB
+          ENDIF
+
+          ZTAUCLD(JL,JK,JRTM) = ZTAUD*ZDIFFD
+        ENDIF
+        
+      ENDDO
+    ENDDO
+
+  ENDIF
+
+ENDDO
+
+NUAER = NUA
+NTRAER = NTRA
+
+!     ------------------------------------------------------------------
+! 
+!          2.6    SCALING OF OPTICAL THICKNESS
+!                 SPECTRALLY, ACCOUNTING FOR VERTICAL VARIABILITY
+
+JEXPLR=NLAYINH
+JXPLDN=2*JEXPLR+1
+
+IF (NINHOM == 1) THEN
+!-- simple scaling a la Tiedtke (1996) with RSWINHF in SW and RLWINHF in LW
+  DO JSW=1,NSW
+    DO JK=1,KLEV
+      DO JL=KIDIA,KFDIA
+        ZTAU(JL,JSW,JK)=ZTAU(JL,JSW,JK) * RSWINHF
+      ENDDO
+    ENDDO
+  ENDDO
+
+  DO JRTM=1,16
+    DO JK=1,KLEV
+      DO JL=KIDIA,KFDIA
+        ZTAUCLD(JL,JK,JRTM)=ZTAUCLD(JL,JK,JRTM) * RLWINHF
+      ENDDO
+    ENDDO
+  ENDDO
+
+ELSEIF (JEXPLR /= 0) THEN
+  DO JSW=1,NSW
+    DO JK=1,KLEV
+      DO JL=KIDIA,KFDIA
+        ZSQUAR(JL,JK)=0.0_JPRB
+        ZVARIA(JL,JK)=1.0_JPRB
+      ENDDO
+    ENDDO
+!-- range should be defined from Hogan & Illingworth
+    DO JK=1+JEXPLR,KLEV-JEXPLR
+      DO JL=KIDIA,KFDIA
+!        ZAVDP(JL)=0.0_JPRB
+        ZAVTO(JL)=0.0_JPRB
+        ZSQTO(JL)=0.0_JPRB
+      ENDDO
+      DO JKI=JK-JEXPLR,JK+JEXPLR
+        IKI=KLEV+1-JKI
+        DO JL=KIDIA,KFDIA
+!          ZAVDP(JL)=ZAVDP(JL)+PDP(JL,IKI)/RG
+          ZAVTO(JL)=ZAVTO(JL)+ZTAU(JL,JSW,JKI)
+        ENDDO
+      ENDDO
+      DO JL=KIDIA,KFDIA
+!        ZAVTO(JL)=ZAVTO(JL)/ZAVDP(JL)
+        ZAVTO(JL)=ZAVTO(JL)/JXPLDN
+      ENDDO
+      DO JKI=JK-JEXPLR,JK+JEXPLR
+        IKI=KLEV+1-JKI
+        DO JL=KIDIA,KFDIA
+!          ZSQTO(JL)=ZSQTO(JL)+(ZTAU(JL,JSW,JKI)/PDP(JL,IKI)-ZAVTO(JL))**2
+          ZSQTO(JL)=ZSQTO(JL)+(ZTAU(JL,JSW,JKI)-ZAVTO(JL))**2
+        ENDDO
+      ENDDO
+      DO JL=KIDIA,KFDIA
+        ZSQTO(JL)=SQRT(ZSQTO(JL)/(JXPLDN*(JXPLDN-1)))
+        IF (ZAVTO(JL) > 0.0_JPRB) THEN
+          ZVARIA(JL,JK)=(ZSQTO(JL)/ZAVTO(JL))**2
+          ZSQUAR(JL,JK)=EXP(-ZVARIA(JL,JK))
+        ELSE
+          ZVARIA(JL,JK)=0.0_JPRB
+          ZSQUAR(JL,JK)=1.0_JPRB
+        ENDIF
+
+!-- scaling a la Barker
+        IF (NINHOM ==2) THEN
+          ZTAU(JL,JSW,JK)=ZTAU(JL,JSW,JK)*ZSQUAR(JL,JK)
+
+!-- scaling a la Cairns et al.
+        ELSEIF (NINHOM == 3) THEN
+          ZVI=ZVARIA(JL,JK) 
+          ZTAU(JL,JSW,JK)  = ZTAU(JL,JSW,JK)/(1.0_JPRB+ZVI)
+          ZOMEGA(JL,JSW,JK)= ZOMEGA(JL,JSW,JK) &
+            &   /(1.0_JPRB + ZVI*(1.0_JPRB-ZOMEGA(JL,JSW,JK) ) )
+          ZCG(JL,JSW,JK)   = ZCG(JL,JSW,JK) &
+            & *(1.0_JPRB+ZVI*(1.0_JPRB-ZOMEGA(JL,JSW,JK))) &
+            & /(1.0_JPRB+ZVI*(1.0_JPRB-ZOMEGA(JL,JSW,JK)*ZCG(JL,JSW,JK)))
+        ENDIF
+      ENDDO
+!      JL=KIDIA
+!      print 9261,JSW,JK,ZTAU(JL,JSW,JK),ZAVTO(JL),ZSQTO(JL),ZVARIA(JL,JK),ZSQUAR(JL,JK)
+9261   format(1x,'Varia1 ',2I3,7F10.4)
+    ENDDO
+  ENDDO
+
+
+  DO JRTM=1,16
+    DO JK=1,KLEV
+      DO JL=KIDIA,KFDIA
+        ZSQUAR(JL,JK)=0.0_JPRB
+        ZVARIA(JL,JK)=1.0_JPRB
+      ENDDO
+    ENDDO
+!-- range to be defined from Hogan & Illingworth
+    DO JK=1+JEXPLR,KLEV-JEXPLR
+      DO JL=KIDIA,KFDIA
+!        ZAVDP(JL)=0.0_JPRB
+        ZAVTO(JL)=0.0_JPRB
+        ZSQTO(JL)=0.0_JPRB
+      ENDDO
+      DO JKI=JK-JEXPLR,JK+JEXPLR
+        IKI=KLEV+1-JKI
+        DO JL=KIDIA,KFDIA
+!          ZAVDP(JL)=ZAVDP(JL)+PDP(JL,IKI)/RG
+          ZAVTO(JL)=ZAVTO(JL)+ZTAUCLD(JL,JKI,JRTM)
+        ENDDO
+      ENDDO
+      DO JL=KIDIA,KFDIA
+!        ZAVTO(JL)=ZAVTO(JL)/ZAVDP(JL)
+        ZAVTO(JL)=ZAVTO(JL)/JXPLDN
+      ENDDO
+      DO JKI=JK-JEXPLR,JK+JEXPLR
+        IKI=KLEV+1-JKI
+        DO JL=KIDIA,KFDIA
+!          ZSQTO(JL)=ZSQTO(JL)+(ZTAUCLD(JL,JKI,JRTM)/PDP(JL,IKI)-ZAVTO(JL))**2
+            ZSQTO(JL)=ZSQTO(JL)+(ZTAUCLD(JL,JKI,JRTM)-ZAVTO(JL))**2
+        ENDDO
+      ENDDO
+      DO JL=KIDIA,KFDIA
+        ZSQTO(JL)=SQRT(ZSQTO(JL)/(JXPLDN*(JXPLDN-1)))
+        IF (ZAVTO(JL) > 0.0_JPRB) THEN
+          ZVARIA(JL,JK)=(ZSQTO(JL)/ZAVTO(JL))**2
+          ZSQUAR(JL,JK)=EXP(-ZVARIA(JL,JK))
+        ELSE
+          ZVARIA(JL,JK)=0.0_JPRB
+          ZSQUAR(JL,JK)=1.0_JPRB
+        ENDIF
+
+!-- scaling a la Barker
+        IF (NINHOM ==2) THEN
+          ZTAUCLD(JL,JK,JRTM)=ZTAUCLD(JL,JK,JRTM)*ZSQUAR(JL,JK)
+
+!-- scaling a la Cairns et al.
+        ELSEIF (NINHOM == 3) THEN
+          ZVI=ZVARIA(JL,JK) 
+          ZTAUCLD(JL,JK,JRTM)=ZTAUCLD(JL,JK,JRTM)/(1.0_JPRB+ZVI)
+        ENDIF
+      ENDDO
+!      JL=KIDIA
+!      print 9262,JRTM,JK,ZTAUCLD(JL,JK,JRTM),ZAVTO(JL),ZSQTO(JL),ZVARIA(JL,JK),ZSQUAR(JL,JK)
+9262   format(1x,'Varia2 ',2I3,7F10.4)
+    ENDDO
+  ENDDO
+ENDIF
+
+
+
+!     ------------------------------------------------------------------
+!
+!*         2.7    DIFFUSIVITY FACTOR OR SATELLITE VIEWING ANGLE
+!                 ---------------------------------------------
+
+DO JL = KIDIA,KFDIA
+  ZVIEW(JL) = DIFF
+ENDDO
+
+!     ------------------------------------------------------------------
+
+!*         3.     CALL LONGWAVE RADIATION CODE
+!                 ----------------------------
+
+!*         3.1    FULL LONGWAVE RADIATION COMPUTATIONS
+!                 ------------------------------------
+
+print *,'RADLSW: LPHYLIN, LRRTM',LPHYLIN, LRRTM
+IF (.NOT.LPHYLIN) THEN
+  IF ( .NOT. LRRTM) THEN
+
+    CALL LW &
+     & ( KIDIA , KFDIA , KLON  , KLEV , KMODE,&
+     & PCCO2 , ZCLDLD, ZCLDLU,&
+     & PDP   , ZDT0  , ZEMIS , ZEMIW,&
+     & ZPMB  , POZON , ZTL,&
+     & PAER  , ZTAVE , ZVIEW , PQ,&
+     & ZEMIT , PFLUX , PFLUC &
+     & )  
+    print *,'RADLSW: apres CALL LW'
+    IF(LLDEBUG) THEN
+    call writefield_phy('radlsw_flux1',PFLUX(:,1,:),klev+1)
+    call writefield_phy('radlsw_flux2',PFLUX(:,2,:),klev+1)
+    call writefield_phy('radlsw_fluc1',PFLUC(:,1,:),klev+1)
+    call writefield_phy('radlsw_fluc2',PFLUC(:,2,:),klev+1)
+    ENDIF
+
+  ELSE
+
+!*         3.2    FULL LONGWAVE RADIATION COMPUTATIONS - RRTM
+!                 ------------------------------------   ----
+
+!  i)  pass ZOZN (ozone mass mixing ratio) to RRTM; remove pressure
+!      weighting applied to POZON in driverMC (below)
+!  ii) pass ZEMIS and ZEMIW to RRTM; return ZEMIT from RRTM
+!  iii)pass ZTAUCLD, cloud optical depths (water+ice) to RRTM, 
+!      computed from equations above
+!  iv) pass ECRT arrays to RRTM arrays in interface routine ECRTATM
+!      in module rrtm_ecrt.f
+
+    DO JL = KIDIA,KFDIA
+      DO JK = 1, KLEV
+        ZOZN(JL,JK) = POZON(JL,JK)/PDP(JL,JK)
+      ENDDO
+    ENDDO
+
+    print *,'RADLSW: avant CALL RRTM_RRTM_140GP,PAP=',PAP(1,:)
+    CALL RRTM_RRTM_140GP &
+     & ( KIDIA , KFDIA , KLON  , KLEV,&
+     & PAER  , PAPH  , PAP,&
+     & PTS   , PTH   , PT,&
+     & ZEMIS , ZEMIW,&
+     & PQ    , PCCO2 , ZOZN  , ZCLDSW  , ZTAUCLD,&
+     & ZEMIT , PFLUX , PFLUC , ZTCLEAR &
+     & )  
+    print *,'RADLSW: apres CALL RRTM_RRTM_140GP'
+
+  ENDIF
+ELSE
+  ZEMIT (:)   = 0.0_JPRB
+  PFLUX(:,:,:)= 0.0_JPRB
+  PFLUC(:,:,:)= 0.0_JPRB
+  print *,'RADLSW: ZEMIT,PFLUX et PFLUC = 0'
+ENDIF
+
+!     ------------------------------------------------------------------
+
+!*         4.     CALL SHORTWAVE RADIATION CODE
+!                 -----------------------------
+
+ZRMUZ=0.0_JPRB
+DO JL = KIDIA,KFDIA
+  ZRMUZ = MAX (ZRMUZ, ZMU0(JL))
+ENDDO
+
+IF (NSTEP == 0 .AND. LEDBUG .AND. ZMU0(KIDIA) > 0.0_JPRB) THEN
+  WRITE(NULOUT,'(4E15.8)') PRII0,PCCO2,ZPSOL(KIDIA),ZMU0(KIDIA)
+  WRITE(NULOUT,'("ZALBD ",6E15.8)') (ZALBD(KIDIA,JSW),JSW=1,NSW)
+  WRITE(NULOUT,'("ZALBP ",6E15.8)') (ZALBP(KIDIA,JSW),JSW=1,NSW)
+  WRITE(NULOUT,'("PQ    ",10E12.5)') (PQ(KIDIA,JK),JK=1,KLEV)
+  WRITE(NULOUT,'("PQS   ",10E12.5)') (PQS(KIDIA,JK),JK=1,KLEV)
+  WRITE(NULOUT,'("PDP   ",10E12.5)') (PDP(KIDIA,JK),JK=1,KLEV)
+  WRITE(NULOUT,'("ZPMB  ",10E12.5)') (ZPMB(KIDIA,JK),JK=1,KLEV+1)
+  WRITE(NULOUT,'("ZTAVE ",10E12.5)') (ZTAVE(KIDIA,JK),JK=1,KLEV)
+  WRITE(NULOUT,'("ZCLDSW",10E12.5)') (ZCLDSW(KIDIA,JK),JK=1,KLEV)
+  WRITE(NULOUT,'("ZTAU  ",10E12.5)') ((ZTAU(KIDIA,JSW,JK),JK=1,KLEV),JSW=1,NSW)
+  WRITE(NULOUT,'("ZCG   ",10E12.5)') ((ZCG(KIDIA,JSW,JK),JK=1,KLEV),JSW=1,NSW)
+  WRITE(NULOUT,'("ZOMEGA",10E12.5)') ((ZOMEGA(KIDIA,JSW,JK),JK=1,KLEV),JSW=1,NSW)
+  WRITE(NULOUT,'("ZOZ   ",10E12.5)') (ZOZ(KIDIA,JK),JK=1,KLEV)
+  WRITE(NULOUT,'("PAER  ",10E12.5)') ((PAER(KIDIA,JSW,JK),JK=1,KLEV),JSW=1,NSW)
+ENDIF
+
+IF (NSTEP == 0 .AND. LEDBUG .AND. ZMU0(KIDIA) > 0.0_JPRB) THEN
+  WRITE(NULOUT,'(4E15.8)') PRII0,PCCO2,ZPSOL(KIDIA),ZMU0(KIDIA)
+  WRITE(NULOUT,'("ZALBD ",6E15.8)') (ZALBD(KIDIA,JSW),JSW=1,NSW)
+  WRITE(NULOUT,'("ZALBP ",6E15.8)') (ZALBP(KIDIA,JSW),JSW=1,NSW)
+  WRITE(NULOUT,'("PQ    ",10E12.5)') (PQ(KIDIA,JK),JK=1,KLEV)
+  WRITE(NULOUT,'("PQS   ",10E12.5)') (PQS(KIDIA,JK),JK=1,KLEV)
+  WRITE(NULOUT,'("PDP   ",10E12.5)') (PDP(KIDIA,JK),JK=1,KLEV)
+  WRITE(NULOUT,'("ZPMB  ",10E12.5)') (ZPMB(KIDIA,JK),JK=1,KLEV+1)
+  WRITE(NULOUT,'("ZTAVE ",10E12.5)') (ZTAVE(KIDIA,JK),JK=1,KLEV)
+  WRITE(NULOUT,'("ZCLDSW",10E12.5)') (ZCLDSW(KIDIA,JK),JK=1,KLEV)
+  WRITE(NULOUT,'("ZTAU  ",10E12.5)') ((ZTAU(KIDIA,JSW,JK),JK=1,KLEV),JSW=1,NSW)
+  WRITE(NULOUT,'("ZCG   ",10E12.5)') ((ZCG(KIDIA,JSW,JK),JK=1,KLEV),JSW=1,NSW)
+  WRITE(NULOUT,'("ZOMEGA",10E12.5)') ((ZOMEGA(KIDIA,JSW,JK),JK=1,KLEV),JSW=1,NSW)
+  WRITE(NULOUT,'("ZOZ   ",10E12.5)') (ZOZ(KIDIA,JK),JK=1,KLEV)
+  WRITE(NULOUT,'("PAER  ",10E12.5)') ((PAER(KIDIA,JSW,JK),JK=1,KLEV),JSW=1,NSW)
+ENDIF
+CALL SW &
+ & ( KIDIA , KFDIA , KLON  , KLEV  , KAER,&
+ & PRII0 , PCCO2 , ZPSOL , ZALBD , ZALBP , PQ   , PQS,&
+ & ZMU0  , ZCG   , ZCLDSW, PDP   , ZOMEGA, ZOZ  , ZPMB,&
+ & ZTAU  , ZTAVE , PAER,&
+ & PFSDN , PFSUP , PFSCDN, PFSCUP,&
+ & ZFSDNN, ZFSDNV, ZFSUPN, ZFSUPV,&
+ & ZFCDNN, ZFCDNV, ZFCUPN, ZFCUPV,&
+ & ZSUDU , ZUVDF , ZPARF ,ZPARCF, ZDIFFS, ZDIRFS, &
+ & LRDUST,PPIZA_DST,PCGA_DST,PTAUREL_DST&
+   & )
+PFSDNV=ZFSDNV
+PFSDNN=ZFSDNN
+IF (SIZE(PSFSWDIR,2)>1) THEN
+  PSFSWDIR= ZDIRFS
+  PSFSWDIF= ZDIFFS
+ELSE
+  PSFSWDIR (:,1) = ZFSDNV(:) + ZFSDNN(:)
+  PSFSWDIF (:,:) = 0.
+ENDIF
+
+IF (NSTEP == 0 .AND. LEDBUG .AND. ZMU0(KIDIA) > 0.0_JPRB) THEN
+  WRITE(NULOUT,'("ZFSDWN",10E12.5)') (ZFSDWN(KIDIA,JK),JK=1,KLEV)
+  WRITE(NULOUT,'("ZFSUP ",10E12.5)') (ZFSUP (KIDIA,JK),JK=1,KLEV)
+  WRITE(NULOUT,'("ZFCDWN",10E12.5)') (ZFCDWN(KIDIA,JK),JK=1,KLEV)
+  WRITE(NULOUT,'("ZFCUP ",10E12.5)') (ZFCUP (KIDIA,JK),JK=1,KLEV)
+  LEDBUG=.FALSE. 
+ENDIF
+IF (NSTEP == 0 .AND. LEDBUG .AND. ZMU0(KIDIA) > 0.0_JPRB) THEN
+  WRITE(NULOUT,'("ZFSDWN",10E12.5)') (ZFSDWN(KIDIA,JK),JK=1,KLEV)
+  WRITE(NULOUT,'("ZFSUP ",10E12.5)') (ZFSUP (KIDIA,JK),JK=1,KLEV)
+  WRITE(NULOUT,'("ZFCDWN",10E12.5)') (ZFCDWN(KIDIA,JK),JK=1,KLEV)
+  WRITE(NULOUT,'("ZFCUP ",10E12.5)') (ZFCUP (KIDIA,JK),JK=1,KLEV)
+  LEDBUG=.FALSE. 
+ENDIF
+!     ------------------------------------------------------------------
+
+!*         5.     FILL UP THE MODEL NET LW AND SW RADIATIVE FLUXES
+!                 ------------------------------------------------
+
+DO JKL = 1 , KLEV+1
+  JK = KLEV+1 + 1 - JKL
+  DO JL = KIDIA,KFDIA
+    PFLS(JL,JKL) = ZFSDWN(JL,JK) - ZFSUP(JL,JK)
+    PFLT(JL,JKL) = - PFLUX(JL,1,JK) - PFLUX(JL,2,JK)
+    PFCS(JL,JKL) = ZFCDWN(JL,JK) - ZFCUP(JL,JK)
+    PFCT(JL,JKL) = - PFLUC(JL,1,JK) - PFLUC(JL,2,JK)
+  ENDDO
+ENDDO
+
+DO JL = KIDIA,KFDIA
+  PFRSOD(JL)=ZFSDWN(JL,1)
+  PEMIT (JL)=ZEMIT (JL)
+  PSUDU (JL)=ZSUDU (JL)
+  PUVDF (JL)=ZUVDF (JL)
+  PPARF (JL)=ZPARF (JL)
+  PPARCF(JL)=ZPARCF(JL)
+  PTINCF(JL)=PRII0 * ZMU0(JL) 
+ENDDO
+!print 9501,(PUVDF(JL),JL=KIDIA,KFDIA)
+9501 format(1x,'RADLSW PUVDF: ',30f6.1)
+!print 9502,(PPARF(JL),JL=KIDIA,KFDIA)
+9502 format(1x,'RADLSW PPARF: ',30f6.1)
+
+!     --------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('RADLSW',1,ZHOOK_HANDLE)
+END SUBROUTINE RADLSW
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/radlsw.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/radlsw.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/radlsw.intfb.h	(revision 1989)
@@ -0,0 +1,82 @@
+INTERFACE
+SUBROUTINE RADLSW&
+ & ( KIDIA, KFDIA , KLON , KLEV , KMODE, KAER,&
+ & PRII0,&
+ & PAER , PALBD , PALBP, PAPH , PAP,&
+ & PCCNL, PCCNO,&
+ & PCCO2, PCLFR , PDP , PEMIS, PEMIW , PLSM , PMU0, POZON,&
+ & PQ , PQIWP , PQLWP, PQS , PQRAIN, PRAINT,&
+ & PTH , PT , PTS , PNBAS, PNTOP,&
+ & PREF_LIQ , PREF_ICE,&
+ & PEMIT, PFCT , PFLT , PFCS , PFLS,&
+ & PFRSOD,PSUDU , PUVDF, PPARF, PPARCF, PTINCF,&
+ & PSFSWDIR, PSFSWDIF,PFSDNN,PFSDNV,&
+ & LRDUST,PPIZA_DST,PCGA_DST,PTAUREL_DST,PFLUX,PFLUC,&
+ & PFSDN ,PFSUP , PFSCDN , PFSCUP)
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE YOERAD , ONLY : LRRTM ,LCCNL ,LCCNO, LDIFFC,&
+ & NRADIP , NRADLP , NICEOPT, NLIQOPT, NINHOM ,NLAYINH ,&
+ & RCCNLND, RCCNSEA, RLWINHF, RSWINHF, RRe2De ,&
+ & LEDBUG 
+include "clesphys.h"
+INTEGER(KIND=JPIM),INTENT(IN) :: KLON
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KMODE
+INTEGER(KIND=JPIM),INTENT(IN) :: KAER
+REAL(KIND=JPRB) ,INTENT(IN) :: PRII0
+REAL(KIND=JPRB) ,INTENT(IN) :: PAER(KLON,6,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PALBD(KLON,NSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: PALBP(KLON,NSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: PAPH(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PAP(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCCNL(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCCNO(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCCO2
+REAL(KIND=JPRB) ,INTENT(IN) :: PCLFR(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PDP(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PEMIS(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PEMIW(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PLSM(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PMU0(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: POZON(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PQ(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PQIWP(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PQLWP(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PQS(KLON,KLEV)
+REAL(KIND=JPRB) :: PQRAIN(KLON,KLEV)
+REAL(KIND=JPRB) :: PRAINT(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTH(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PT(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTS(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PNBAS(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PNTOP(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PREF_LIQ(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PREF_ICE(KLON,KLEV)
+LOGICAL ,INTENT(IN) :: LRDUST
+REAL(KIND=JPRB) ,INTENT(IN) :: PPIZA_DST(KLON,KLEV,NSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCGA_DST(KLON,KLEV,NSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTAUREL_DST(KLON,KLEV,NSW)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PEMIT(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFCT(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFLT(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFCS(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFLS(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFRSOD(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PSUDU(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PUVDF(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PPARF(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PPARCF(KLON), PTINCF(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PSFSWDIR(KLON,NSW)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PSFSWDIF(KLON,NSW)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFSDNN(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFSDNV(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFLUX(KLON,2,KLEV+1) ! LW total sky flux (1=up, 2=down)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFLUC(KLON,2,KLEV+1) ! LW clear sky flux (1=up, 2=down)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFSDN(KLON,KLEV+1)   ! SW total sky flux down
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFSUP(KLON,KLEV+1)   ! SW total sky flux up
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFSCDN(KLON,KLEV+1)  ! SW clear sky flux down
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFSCUP(KLON,KLEV+1)  ! SW clear sky flux up
+END SUBROUTINE RADLSW
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/rdcset.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rdcset.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rdcset.intfb.h	(revision 1989)
@@ -0,0 +1,65 @@
+INTERFACE
+SUBROUTINE RDCSET(CDSL,KSLWIDEN,KSLWIDES,KSLWIDEW,KSLWIDEE,&
+ & KSLRPTSUR,KSLSPTSUR,&
+ & KDGLG,KDLON,KDGSAG,KDGENG,KDGUXL,KDGUXG,KDGSAL,KDGENL,&
+ & KDSUR1,KDLSUR,KDGSUR,KGPTOT,KGPTOT_CAP,&
+ & KPTRFLOFF,KFRSTLOFF,KYFRSTACTLAT,KYLSTACTLAT,&
+ & KSTA,KONL,KLOENG,KPTRFRSTLAT,KFRSTLAT,KLSTLAT,&
+ & PMU,PSQM2,&
+ & KSLSTA,KSLONL,KSLOFF,KSLEXT,KSLCORE,KASLB1,&
+ & KSLPROCS,KSLMPBUFSZ,KSLRPT,KSLSPT,&
+ & KSLSENDPOS,KSLRECVPOS,KSENDPTR,KRECVPTR,KSLCOMM,KMAP,KMAPLEN) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE YOMCT0 , ONLY : NPROC ,NPRINTLEV,LOUTPUT ,LMPDIAG ,LALLOPR ,&
+ & LELAM ,N_REGIONS_NS ,N_REGIONS_EW 
+INTEGER(KIND=JPIM),INTENT(IN) :: KSLWIDEN
+INTEGER(KIND=JPIM),INTENT(IN) :: KSLWIDES
+INTEGER(KIND=JPIM),INTENT(IN) :: KSLWIDEW
+INTEGER(KIND=JPIM),INTENT(IN) :: KSLWIDEE
+INTEGER(KIND=JPIM),INTENT(IN) :: KSLRPTSUR
+INTEGER(KIND=JPIM),INTENT(IN) :: KSLSPTSUR
+INTEGER(KIND=JPIM),INTENT(IN) :: KDGLG
+INTEGER(KIND=JPIM),INTENT(IN) :: KDLON
+INTEGER(KIND=JPIM),INTENT(IN) :: KDGSAG
+INTEGER(KIND=JPIM),INTENT(IN) :: KDGENG
+INTEGER(KIND=JPIM),INTENT(IN) :: KDGSAL
+INTEGER(KIND=JPIM),INTENT(IN) :: KDGENL
+INTEGER(KIND=JPIM),INTENT(IN) :: KGPTOT
+CHARACTER(LEN=2) ,INTENT(IN) :: CDSL
+INTEGER(KIND=JPIM),INTENT(IN) :: KDGUXL
+INTEGER(KIND=JPIM),INTENT(IN) :: KDGUXG
+INTEGER(KIND=JPIM),INTENT(IN) :: KDSUR1
+INTEGER(KIND=JPIM),INTENT(IN) :: KDLSUR
+INTEGER(KIND=JPIM),INTENT(IN) :: KDGSUR
+INTEGER(KIND=JPIM),INTENT(IN) :: KGPTOT_CAP
+INTEGER(KIND=JPIM),INTENT(IN) :: KPTRFLOFF
+INTEGER(KIND=JPIM),INTENT(IN) :: KFRSTLOFF
+INTEGER(KIND=JPIM),INTENT(IN) :: KYFRSTACTLAT
+INTEGER(KIND=JPIM),INTENT(IN) :: KYLSTACTLAT
+INTEGER(KIND=JPIM),INTENT(IN) :: KSTA(KDGSAG:KDGENG+N_REGIONS_NS-1,N_REGIONS_EW)
+INTEGER(KIND=JPIM),INTENT(IN) :: KONL(KDGSAG:KDGENG+N_REGIONS_NS-1,N_REGIONS_EW)
+INTEGER(KIND=JPIM),INTENT(IN) :: KLOENG(KDGSAG:KDGENG)
+INTEGER(KIND=JPIM),INTENT(IN) :: KPTRFRSTLAT(N_REGIONS_NS)
+INTEGER(KIND=JPIM),INTENT(IN) :: KFRSTLAT(N_REGIONS_NS)
+INTEGER(KIND=JPIM),INTENT(IN) :: KLSTLAT(N_REGIONS_NS)
+REAL(KIND=JPRB) ,INTENT(IN) :: PMU(KDGSAG:KDGENG)
+REAL(KIND=JPRB) ,INTENT(IN) :: PSQM2(KDGSAG:KDGENG)
+INTEGER(KIND=JPIM),INTENT(INOUT) :: KSLSTA(KDGSAL-KSLWIDEN:KDGENL+KSLWIDES)
+INTEGER(KIND=JPIM),INTENT(INOUT) :: KSLONL(KDGSAL-KSLWIDEN:KDGENL+KSLWIDES)
+INTEGER(KIND=JPIM),INTENT(INOUT) :: KSLOFF(KDGSAL-KSLWIDEN:KDGENL+KSLWIDES)
+INTEGER(KIND=JPIM),INTENT(OUT) :: KSLEXT(1-KDLON:KDLON+KDLON,1-KSLWIDEN:KDGENL+KSLWIDES)
+INTEGER(KIND=JPIM),INTENT(OUT) :: KSLCORE(KGPTOT)
+INTEGER(KIND=JPIM),INTENT(INOUT) :: KASLB1
+INTEGER(KIND=JPIM),INTENT(INOUT) :: KSLPROCS
+INTEGER(KIND=JPIM),INTENT(OUT) :: KSLMPBUFSZ
+INTEGER(KIND=JPIM),INTENT(INOUT) :: KSLRPT
+INTEGER(KIND=JPIM),INTENT(INOUT) :: KSLSPT
+INTEGER(KIND=JPIM),INTENT(OUT) :: KSLSENDPOS(KSLSPTSUR)
+INTEGER(KIND=JPIM),INTENT(OUT) :: KSLRECVPOS(KSLRPTSUR)
+INTEGER(KIND=JPIM),INTENT(INOUT) :: KSENDPTR(NPROC+1)
+INTEGER(KIND=JPIM),INTENT(INOUT) :: KRECVPTR(NPROC+1)
+INTEGER(KIND=JPIM),INTENT(INOUT) :: KSLCOMM(NPROC)
+INTEGER(KIND=JPIM),INTENT(OUT) :: KMAP(4,KDGLG)
+INTEGER(KIND=JPIM),INTENT(OUT) :: KMAPLEN
+END SUBROUTINE RDCSET
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/recmwf.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/recmwf.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/recmwf.F90	(revision 1989)
@@ -0,0 +1,399 @@
+!OPTIONS XOPT(NOEVAL)
+SUBROUTINE RECMWF (KST, KEND, KPROMA, KTDIA , KLEV,&
+ & KMODE,&
+ & PALBD , PALBP , PAPRS , PAPRSF , PCCO2 , PCLFR,&
+ & PQO3  , PAER  , PDP   , PEMIS  , PMU0,&
+ & PQ    , PQS   , PQIWP , PQLWP , PSLM   , PT    , PTS,&
+ & PREF_LIQ, PREF_ICE,&
+ & PEMTD , PEMTU , PTRSO,&
+ & PTH   , PCTRSO, PCEMTR, PTRSOD,&
+ & PLWFC, PLWFT, PSWFC, PSWFT, PSFSWDIR, PSFSWDIF,&
+ & PFSDNN, PFSDNV,&  
+ & PPIZA_DST,PCGA_DST,PTAUREL_DST,PFLUX,PFLUC,&
+ & PFSDN ,PFSUP , PFSCDN , PFSCUP)
+
+!**** *RECMWF* - METEO-FRANCE RADIATION INTERFACE TO ECMWF RADIATION SCHEME
+
+!     PURPOSE.
+!     --------
+!           SIMPLE INTERFACE TO RADLSW (NO INTERPOLATION)
+
+!**   INTERFACE.
+!     ----------
+
+!     EXPLICIT ARGUMENTS :
+!        --------------------
+! KST    : START INDEX OF DATA IN KPROMA-LONG VECTOR
+! KEND   : END   INDEX OF DATA IN KPROMA-LONG VECTOR
+! KPROMA : VECTOR LENGTH
+! KTDIA  : INDEX OF TOP LEVEL FROM WHICH COMPUTATIONS ARE ACTIVE
+! KLEV   : NUMBER OF LEVELS
+! PAER   : (KPROMA,KLEV ,6)     ; OPTICAL THICKNESS OF THE AEROSOLS
+! PALBD  : (KPROMA,NSW)         ; DIFFUSE ALBEDO IN THE 2 SW INTERVALS
+! PALBP  : (KPROMA,NSW)         ; PARALLEL ALBEDO IN THE 2 SW INTERVALS
+! PAPRS  : (KPROMA,KLEV+1)      ; HALF LEVEL PRESSURE
+! PAPRSF : (KPROMA,KLEV )       ; FULL LEVEL PRESSURE
+! PCCO2  :                      ; CONCENTRATION IN CO2 (PA/PA)
+! PCLFR  : (KPROMA,KLEV )       ; CLOUD FRACTIONAL COVER
+! PQO3   : (KPROMA,KLEV )       ; OZONE MIXING RATIO (MASS)
+! PDP    : (KPROMA,KLEV)        ; LAYER PRESSURE THICKNESS
+! PEMIS  : (KPROMA)             ; SURFACE EMISSIVITY
+! PMU0   : (KPROMA)             ; SOLAR ANGLE
+! PQ     : (KPROMA,KLEV )       ; SPECIFIC HUMIDITY PA/PA
+! PQS    : (KPROMA,KLEV )       ; SATURATION SPECIFIC HUMIDITY PA/PA
+! PQIWP  : (KPROMA,KLEV )       ; ICE    WATER KG/KG
+! PQLWP  : (KPROMA,KLEV )       ; LIQUID WATER KG/KG
+! PSLM   : (KPROMA)             ; LAND-SEA MASK
+! PT     : (KPROMA,KLEV)        ; FULL LEVEL TEMPERATURE
+! PTS    : (KPROMA)             ; SURFACE TEMPERATURE
+! PPIZA_DST  : (KPROMA,KLEV,NSW); Single scattering albedo of dust 
+! PCGA_DST   : (KPROMA,KLEV,NSW); Assymetry factor for dust 
+! PTAUREL_DST: (KPROMA,KLEV,NSW); Optical depth of dust relative to at 550nm
+! PREF_LIQ (KPROMA,KLEV)        ; Liquid droplet radius (um)
+! PREF_ICE (KPROMA,KLEV)        ; Ice crystal radius (um)
+
+!     ==== OUTPUTS ===
+! PEMTD (KPROMA,KLEV+1)         ; TOTAL DOWNWARD LONGWAVE EMISSIVITY
+! PEMTU (KPROMA,KLEV+1)         ; TOTAL UPWARD   LONGWAVE EMISSIVITY
+! PTRSO (KPROMA,KLEV+1)         ; TOTAL SHORTWAVE TRANSMISSIVITY
+! PTH   (KPROMA,KLEV+1)         ; HALF LEVEL TEMPERATURE
+! PCTRSO(KPROMA,2)              ; CLEAR-SKY SHORTWAVE TRANSMISSIVITY
+! PCEMTR(KPROMA,2)              ; CLEAR-SKY NET LONGWAVE EMISSIVITY
+! PTRSOD(KPROMA)                ; TOTAL-SKY SURFACE SW TRANSMISSITY
+! PLWFC (KPROMA,2)              ; CLEAR-SKY LONGWAVE FLUXES
+! PLWFT (KPROMA,KLEV+1)         ; TOTAL-SKY LONGWAVE FLUXES
+! PSWFC (KPROMA,2)              ; CLEAR-SKY SHORTWAVE FLUXES
+! PSWFT (KPROMA,KLEV+1)         ; TOTAL-SKY SHORTWAVE FLUXES
+! Ajout flux LW et SW montants et descendants, et ciel clair (MPL 19.12.08)
+! PFLUX (KPROMA,2,KLEV+1)       ; LW total sky flux (1=up, 2=down)
+! PFLUC (KPROMA,2,KLEV+1)       ; LW clear sky flux (1=up, 2=down)
+! PFSDN(KPROMA,KLEV+1)          ; SW total sky flux down
+! PFSUP(KPROMA,KLEV+1)          ; SW total sky flux up
+! PFSCDN(KPROMA,KLEV+1)         ; SW clear sky flux down
+! PFSCUP(KPROMA,KLEV+1)         ; SW clear sky flux up
+
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+!     SEE DOCUMENTATION
+
+!     EXTERNALS.
+!     ----------
+
+!     REFERENCE.
+!     ----------
+!     ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+
+!     AUTHORS.
+!     --------
+!     ORIGINAL BY  B. RITTER   *ECMWF*        83-10-13
+!     REWRITING FOR IFS BY J.-J. MORCRETTE    94-11-15
+!     96-11: Ph. Dandin. Meteo-France
+!     REWRITING FOR DM  BY J.PH. PIEDELIEVRE   1998-07
+!     Duplication of RFMR to use present (cy25) ECMWF radiation scheme : Y. Bouteloup 09-2003
+!     Use of 6 aerosols & introduce NSW : F. Bouyssel 09-2004
+!     04-11-18 : 4 New arguments for AROME : Y. Seity 
+!     2005-10-10 Y. Seity : 3 optional arguments for dust optical properties 
+!     JJMorcrette 20060721 PP of clear-sky PAR and TOA incident solar radiation (ECMWF)
+
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOEAERD  , ONLY : RCAEROS
+USE YOMCST   , ONLY :         RMD      ,RMO3
+USE YOMPHY3  , ONLY : RII0
+!USE YOERAD   , ONLY : NAER, NSW, RCCNLND  ,RCCNSEA  
+! NSW mis dans ;def MPL 20140211
+USE YOERAD   , ONLY : NAER, RCCNLND  ,RCCNSEA  
+USE YOERDU   , ONLY : REPSCQ
+USE YOMGEM   , ONLY : NGPTOT
+USE YOERDI   , ONLY : RRAE   ,REPCLC    ,REPH2O
+USE YOMARPHY , ONLY : LRDUST 
+
+!-----------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS.
+!              ----------
+
+IMPLICIT NONE
+
+include "clesphys.h"
+INTEGER(KIND=JPIM),INTENT(IN)    :: KPROMA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV
+INTEGER(KIND=JPIM),INTENT(IN)    :: KST 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KEND 
+INTEGER(KIND=JPIM)               :: KTDIA ! Argument NOT used
+INTEGER(KIND=JPIM),INTENT(IN)    :: KMODE
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PALBD(KPROMA,NSW) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PALBP(KPROMA,NSW) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PAPRS(KPROMA,KLEV+1)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PAPRSF(KPROMA,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCCO2
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCLFR(KPROMA,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PQO3(KPROMA,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PAER(KPROMA,KLEV,6) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PDP(KPROMA,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PEMIS(KPROMA) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PMU0(KPROMA) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PQ(KPROMA,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PQS(KPROMA,KLEV)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PQIWP(KPROMA,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PQLWP(KPROMA,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PSLM(KPROMA)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PT(KPROMA,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTS(KPROMA)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PPIZA_DST(KPROMA,KLEV,NSW)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCGA_DST(KPROMA,KLEV,NSW)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAUREL_DST(KPROMA,KLEV,NSW)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PREF_LIQ(KPROMA,KLEV)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PREF_ICE(KPROMA,KLEV)
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PEMTD(KPROMA,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PEMTU(KPROMA,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTRSO(KPROMA,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(INOUT) :: PTH(KPROMA,KLEV+1)
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PCTRSO(KPROMA,2) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PCEMTR(KPROMA,2) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTRSOD(KPROMA) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PLWFC(KPROMA,2) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PLWFT(KPROMA,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PSWFC(KPROMA,2) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PSWFT(KPROMA,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PSFSWDIR(KPROMA,NSW)
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PSFSWDIF(KPROMA,NSW)
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFSDNN(KPROMA)
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFSDNV(KPROMA)
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFLUX(KPROMA,2,KLEV+1) ! LW total sky flux (1=up, 2=down)
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFLUC(KPROMA,2,KLEV+1) ! LW clear sky flux (1=up, 2=down)
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFSDN(KPROMA,KLEV+1)   ! SW total sky flux down
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFSUP(KPROMA,KLEV+1)   ! SW total sky flux up
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFSCDN(KPROMA,KLEV+1)  ! SW clear sky flux down
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFSCUP(KPROMA,KLEV+1)  ! SW clear sky flux up
+
+!     ==== COMPUTED IN RADITE ===
+!     ------------------------------------------------------------------
+!*       0.2   LOCAL ARRAYS.
+!              -------------
+REAL(KIND=JPRB) :: ZRAER  (KPROMA,6,KLEV)
+REAL(KIND=JPRB) :: ZRCLC  (KPROMA,KLEV)
+REAL(KIND=JPRB) :: ZRMU0  (KPROMA)
+REAL(KIND=JPRB) :: ZRPR   (KPROMA,KLEV)
+REAL(KIND=JPRB) :: ZRTI   (KPROMA,KLEV)
+REAL(KIND=JPRB) :: ZQLWP (KPROMA,KLEV ) , ZQIWP (KPROMA,KLEV )
+
+REAL(KIND=JPRB) :: ZPQO3 (KPROMA,KLEV)
+REAL(KIND=JPRB) :: ZQOZ (NGPTOT,KLEV)
+REAL(KIND=JPRB) :: ZQS    (KPROMA,KLEV)
+REAL(KIND=JPRB) :: ZQ     (KPROMA,KLEV)
+REAL(KIND=JPRB) :: ZEMTD  (KPROMA,KLEV+1)
+REAL(KIND=JPRB) :: ZEMTU  (KPROMA,KLEV+1)
+REAL(KIND=JPRB) :: ZTRSOC (KPROMA,2)
+REAL(KIND=JPRB) :: ZEMTC  (KPROMA,2)
+
+REAL(KIND=JPRB) :: ZNBAS  (KPROMA)
+REAL(KIND=JPRB) :: ZNTOP  (KPROMA)
+REAL(KIND=JPRB) :: ZQRAIN (KPROMA,KLEV)
+REAL(KIND=JPRB) :: ZQRAINT(KPROMA,KLEV)
+REAL(KIND=JPRB) :: ZCCNL  (KPROMA)
+REAL(KIND=JPRB) :: ZCCNO  (KPROMA)
+
+!  output of radlsw
+
+REAL(KIND=JPRB) :: ZEMIT  (KPROMA)
+REAL(KIND=JPRB) :: ZFCT   (KPROMA,KLEV+1)
+REAL(KIND=JPRB) :: ZFLT   (KPROMA,KLEV+1)
+REAL(KIND=JPRB) :: ZFCS   (KPROMA,KLEV+1)
+REAL(KIND=JPRB) :: ZFLS   (KPROMA,KLEV+1)
+REAL(KIND=JPRB) :: ZFRSOD (KPROMA),ZSUDU(KPROMA)
+REAL(KIND=JPRB) :: ZPARF  (KPROMA),ZUVDF(KPROMA),ZPARCF(KPROMA),ZTINCF(KPROMA)
+
+INTEGER(KIND=JPIM) :: IBEG, IEND, JK, JL
+
+REAL(KIND=JPRB) :: ZCRAE, ZRII0, ZEMIW(KPROMA)
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+#include "radlsw.intfb.h"
+
+IF (LHOOK) CALL DR_HOOK('RECMWF',0,ZHOOK_HANDLE)
+! print *,'RECMWF: PTS=',PTS
+IBEG=KST
+IEND=KEND
+
+!*       1.    PREPARATORY WORK
+!              ----------------
+
+!*       1.1    LOCAL CONSTANTS
+!                ---------------
+
+ZRII0=RII0
+!print *,'RECMWF: RII0 PMU0=',RII0,PMU0
+ZCRAE=RRAE*(RRAE+2.0_JPRB)
+
+!*       2.1    FULL-LEVEL QUANTITIES
+
+ZRPR =PAPRSF
+
+DO JK=1,KLEV
+  DO JL=IBEG,IEND
+!   ZPQO3(JL,JK)=PQO3(JL,JK)*PDP(JL,JK)*RMD/RMO3
+    ZPQO3(JL,JK)=PQO3(JL,JK)*PDP(JL,JK)
+    ZRCLC(JL,JK)=MAX( 0.0_JPRB ,MIN( 1.0_JPRB ,PCLFR(JL,JK)))
+    IF (ZRCLC(JL,JK) > REPCLC) THEN
+      ZQLWP(JL,JK)=PQLWP(JL,JK)
+      ZQIWP(JL,JK)=PQIWP(JL,JK)
+    ELSE
+      ZQLWP(JL,JK)=REPH2O*ZRCLC(JL,JK)
+      ZQIWP(JL,JK)=REPH2O*ZRCLC(JL,JK)
+    ENDIF
+    ZQRAIN(JL,JK)=0.
+    ZQRAINT(JL,JK)=0.
+    ZRTI(JL,JK) =PT(JL,JK)
+    ZQS (JL,JK)=MAX(2.0_JPRB*REPH2O,PQS(JL,JK))
+    ZQ  (JL,JK)=MAX(REPH2O,MIN(PQ(JL,JK),ZQS(JL,JK)*(1.0_JPRB-REPH2O)))
+    ZEMIW(JL)=PEMIS(JL)
+  ENDDO
+ENDDO
+
+IF (NAER == 0) THEN
+  ZRAER=RCAEROS
+ELSE
+  DO JK=1,KLEV
+    DO JL=IBEG,IEND
+      ZRAER(JL,1,JK)=PAER(JL,JK,1)
+      ZRAER(JL,2,JK)=PAER(JL,JK,2)
+      ZRAER(JL,3,JK)=PAER(JL,JK,3)
+      ZRAER(JL,4,JK)=PAER(JL,JK,4)
+      ZRAER(JL,5,JK)=RCAEROS
+      ZRAER(JL,6,JK)=PAER(JL,JK,6)
+    ENDDO
+  ENDDO
+ENDIF
+
+!*       2.2    HALF-LEVEL QUANTITIES
+
+DO JK=2,KLEV
+  DO JL=IBEG,IEND
+    PTH(JL,JK)=&
+     & (PT(JL,JK-1)*PAPRSF(JL,JK-1)*(PAPRSF(JL,JK)-PAPRS(JL,JK))&
+     & +PT(JL,JK)*PAPRSF(JL,JK)*(PAPRS(JL,JK)-PAPRSF(JL,JK-1)))&
+     & *(1.0_JPRB/(PAPRS(JL,JK)*(PAPRSF(JL,JK)-PAPRSF(JL,JK-1))))  
+  ENDDO
+ENDDO
+
+!*       2.3     QUANTITIES AT BOUNDARIES
+
+DO JL=IBEG,IEND
+  PTH(JL,KLEV+1)=PTS(JL)
+  PTH(JL,1)=PT(JL,1)-PAPRSF(JL,1)*(PT(JL,1)-PTH(JL,2))&
+   & /(PAPRSF(JL,1)-PAPRS(JL,2))  
+  ZNBAS(JL)=1. 
+  ZNTOP(JL)=1.
+  ZCCNL(JL)=RCCNLND
+  ZCCNO(JL)=RCCNSEA
+ENDDO
+
+!*       3.1     SOLAR ZENITH ANGLE IS EARTH'S CURVATURE
+!                CORRECTED
+
+! CCMVAL: on impose ZRMU0=PMU0 MPL 25032010
+! 2eme essai en 3D MPL 20052010
+!DO JL=IBEG,IEND
+! ZRMU0(JL)=PMU0(JL)
+!ENDDO
+!!!!! A REVOIR MPL 20091201: enleve cette correction pour comparer a AR4
+ DO JL=IBEG,IEND
+   IF (PMU0(JL) > 1.E-10_JPRB) THEN
+     ZRMU0(JL)=RRAE/(SQRT(PMU0(JL)**2+ZCRAE)-PMU0(JL))
+   ELSE
+     ZRMU0(JL)= RRAE/SQRT(ZCRAE)
+   ENDIF   
+!  print *,'RECMWF CURV: JL PMU0, ZRMU0',JL,PMU0(JL),ZRMU0(JL)
+ ENDDO   
+
+
+
+!*         4.1     CALL TO ACTUAL RADIATION SCHEME
+!print *,'+++++ DANS RADLSW, LRDUST ',LRDUST
+!WRITE(*,'("PPIZA_DST=",10E12.5)') (PPIZA_DST(1,JK,1),JK=1,KLEV)
+!WRITE(*,'("PCGA_DST= ",10E12.5)') (PCGA_DST(1,JK,1),JK=1,KLEV)
+!WRITE(*,'("PTAUREL_DST=",10E12.5)') (PTAUREL_DST(1,JK,1),JK=1,KLEV)
+
+CALL RADLSW (&
+ & IBEG  , IEND   , KPROMA  , KLEV  , KMODE , NAER,&
+ & ZRII0 ,&
+ & ZRAER , PALBD  , PALBP   , PAPRS , ZRPR  ,&
+ & ZCCNL , ZCCNO  ,&
+ & PCCO2 , ZRCLC  , PDP     , PEMIS , ZEMIW ,PSLM    , ZRMU0 , ZPQO3,&
+ & ZQ    , ZQIWP  , ZQLWP   , ZQS   , ZQRAIN,ZQRAINT ,&
+ & PTH   , ZRTI   , PTS     , ZNBAS , ZNTOP ,&
+ & PREF_LIQ, PREF_ICE,&
+ & ZEMIT , ZFCT   , ZFLT    , ZFCS    , ZFLS  ,&
+ & ZFRSOD, ZSUDU  , ZUVDF   , ZPARF   , ZPARCF, ZTINCF, PSFSWDIR,&
+ & PSFSWDIF,PFSDNN, PFSDNV  ,&  
+ & LRDUST,PPIZA_DST,PCGA_DST,PTAUREL_DST,PFLUX,PFLUC,&
+ & PFSDN , PFSUP  , PFSCDN  , PFSCUP )
+
+!*         4.2     TRANSFORM FLUXES TO MODEL HISTORICAL VARIABLES
+
+DO JK=1,KLEV+1
+  DO JL=IBEG,IEND
+    PSWFT(JL,JK)=ZFLS(JL,JK)/(ZRII0*ZRMU0(JL))
+    PLWFT(JL,JK)=ZFLT(JL,JK)
+  ENDDO
+ENDDO
+
+ZEMTD=PLWFT
+ZEMTU=PLWFT
+
+DO JL=IBEG,IEND
+  ZTRSOC(JL, 1)=ZFCS(JL,     1)/(ZRII0*ZRMU0(JL))
+  ZTRSOC(JL, 2)=ZFCS(JL,KLEV+1)/(ZRII0*ZRMU0(JL))
+  ZEMTC (JL, 1)=ZFCT(JL,     1)
+  ZEMTC (JL, 2)=ZFCT(JL,KLEV+1)
+ENDDO
+
+!                 ------------ -- ------- -- ---- -----
+!*         5.1    STORAGE OF TRANSMISSIVITY AND EMISSIVITIES
+!*                IN KPROMA-LONG ARRAYS
+
+DO JK=1,KLEV+1
+  DO JL=IBEG,IEND
+    PEMTD(JL,JK)=ZEMTD(JL,JK)
+    PEMTU(JL,JK)=ZEMTU(JL,JK)
+    PTRSO(JL,JK)=MAX(0.0_JPRB,MIN(1.0_JPRB,PSWFT(JL,JK)))
+  ENDDO
+ENDDO
+DO JK=1,2
+  DO JL=IBEG,IEND
+    PCEMTR(JL,JK)=ZEMTC (JL,JK)
+    PCTRSO(JL,JK)=MAX( 0.0_JPRB,MIN(1.0_JPRB,ZTRSOC(JL,JK)))
+  ENDDO
+ENDDO
+DO JL=IBEG,IEND
+  PTRSOD(JL)=MAX(0.0_JPRB,MIN(1.0_JPRB,ZFRSOD(JL)/(ZRII0*ZRMU0(JL))))
+ENDDO
+
+!*         7.3   RECONSTRUCT FLUXES FOR DIAGNOSTICS
+
+DO JL=IBEG,IEND
+  IF (PMU0(JL) < 1.E-10_JPRB) ZRMU0(JL)=0.0_JPRB
+ENDDO
+DO JK=1,KLEV+1
+  DO JL=IBEG,IEND
+    PLWFT(JL,JK)=PEMTD(JL,JK)
+    PSWFT(JL,JK)=ZRMU0(JL)*ZRII0*PTRSO(JL,JK)
+  ENDDO
+ENDDO
+DO JK=1,2
+  DO JL=IBEG,IEND
+    PSWFC(JL,JK)=ZRMU0(JL)*ZRII0*PCTRSO(JL,JK)
+    PLWFC(JL,JK)=PCEMTR(JL,JK)
+  ENDDO
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('RECMWF',1,ZHOOK_HANDLE)
+END SUBROUTINE RECMWF
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb1.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb1.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb1.F90	(revision 1989)
@@ -0,0 +1,100 @@
+!***************************************************************************
+SUBROUTINE RRTM_CMBGB1
+!***************************************************************************
+
+!  The subroutines CMBGB1->CMBGB16 input the absorption coefficient
+!  data for each band, which are defined for 16 g-points and 16 spectral
+!  bands. The data are combined with appropriate weighting following the
+!  g-point mapping arrays specified in RRTMINIT.  Plank fraction data
+!  in arrays FRACREFA and FRACREFB are combined without weighting.  All
+!  g-point reduced data are put into new arrays for use in RRTM.
+
+!  BAND 1:  10-250 cm-1 (low - H2O; high - H2O)
+!***************************************************************************
+
+! Parameters
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO1 , ONLY : KAO, KBO, SELFREFO, FORREFO, FRACREFAO,FRACREFBO
+USE YOERRTA1 , ONLY : KA , KB , SELFREF , FORREF , FRACREFA ,FRACREFB
+USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,RWGT
+USE YOERRTFTR, ONLY : NGC      ,NGN      
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM) :: IGC, IPR, IPRSM, JP, JT
+
+REAL(KIND=JPRB) :: Z_SUMF1, Z_SUMF2, Z_SUMK
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB1',0,ZHOOK_HANDLE)
+DO JT = 1,5
+  DO JP = 1,13
+    IPRSM = 0
+    DO IGC = 1,NGC(1)
+      Z_SUMK = 0.0_JPRB
+      DO IPR = 1, NGN(IGC)
+        IPRSM = IPRSM + 1
+
+        Z_SUMK = Z_SUMK + KAO(JT,JP,IPRSM)*RWGT(IPRSM)
+      ENDDO
+
+      KA(JT,JP,IGC) = Z_SUMK
+    ENDDO
+  ENDDO
+  DO JP = 13,59
+    IPRSM = 0
+    DO IGC = 1,NGC(1)
+      Z_SUMK = 0.0_JPRB
+      DO IPR = 1, NGN(IGC)
+        IPRSM = IPRSM + 1
+
+        Z_SUMK = Z_SUMK + KBO(JT,JP,IPRSM)*RWGT(IPRSM)
+      ENDDO
+
+      KB(JT,JP,IGC) = Z_SUMK
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(1)
+    Z_SUMK = 0.0_JPRB
+    DO IPR = 1, NGN(IGC)
+      IPRSM = IPRSM + 1
+
+      Z_SUMK = Z_SUMK + SELFREFO(JT,IPRSM)*RWGT(IPRSM)
+    ENDDO
+
+    SELFREF(JT,IGC) = Z_SUMK
+  ENDDO
+ENDDO
+
+IPRSM = 0
+DO IGC = 1,NGC(1)
+  Z_SUMK = 0.0_JPRB
+  Z_SUMF1 = 0.0_JPRB
+  Z_SUMF2 = 0.0_JPRB
+  DO IPR = 1, NGN(IGC)
+    IPRSM = IPRSM + 1
+
+    Z_SUMK = Z_SUMK + FORREFO(IPRSM)*RWGT(IPRSM)
+    Z_SUMF1= Z_SUMF1+ FRACREFAO(IPRSM)
+    Z_SUMF2= Z_SUMF2+ FRACREFBO(IPRSM)
+  ENDDO
+
+  FORREF(IGC) = Z_SUMK
+  FRACREFA(IGC) = Z_SUMF1
+  FRACREFB(IGC) = Z_SUMF2
+ENDDO
+
+DO IGC = 1,NGC(1)
+
+  FREFA(IGC,1) = FRACREFA(IGC)
+  FREFB(IGC,1) = FRACREFB(IGC)
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB1',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_CMBGB1
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb1.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb1.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb1.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_CMBGB1
+END SUBROUTINE RRTM_CMBGB1
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb10.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb10.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb10.F90	(revision 1989)
@@ -0,0 +1,78 @@
+!***************************************************************************
+SUBROUTINE RRTM_CMBGB10
+!***************************************************************************
+
+!     BAND 10:  1390-1480 cm-1 (low - H2O; high - H2O)
+!***************************************************************************
+
+! Parameters
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO10, ONLY : KAO     ,KBO      ,FRACREFAO   ,FRACREFBO
+USE YOERRTA10, ONLY : KA      ,KB       ,FRACREFA    ,FRACREFB
+USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,RWGT
+USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM) :: IGC, IPR, IPRSM, JP, JT
+
+REAL(KIND=JPRB) :: Z_SUMF1, Z_SUMF2, Z_SUMK
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB10',0,ZHOOK_HANDLE)
+DO JT = 1,5
+  DO JP = 1,13
+    IPRSM = 0
+    DO IGC = 1,NGC(10)
+      Z_SUMK = 0.0_JPRB
+      DO IPR = 1, NGN(NGS(9)+IGC)
+        IPRSM = IPRSM + 1
+
+        Z_SUMK = Z_SUMK + KAO(JT,JP,IPRSM)*RWGT(IPRSM+144)
+      ENDDO
+
+      KA(JT,JP,IGC) = Z_SUMK
+    ENDDO
+  ENDDO
+ENDDO
+DO JT = 1,5
+  DO JP = 13,59
+    IPRSM = 0
+    DO IGC = 1,NGC(10)
+      Z_SUMK = 0.0_JPRB
+      DO IPR = 1, NGN(NGS(9)+IGC)
+        IPRSM = IPRSM + 1
+
+        Z_SUMK = Z_SUMK + KBO(JT,JP,IPRSM)*RWGT(IPRSM+144)
+      ENDDO
+
+      KB(JT,JP,IGC) = Z_SUMK
+    ENDDO
+  ENDDO
+ENDDO
+
+IPRSM = 0
+DO IGC = 1,NGC(10)
+  Z_SUMF1= 0.0_JPRB
+  Z_SUMF2= 0.0_JPRB
+  DO IPR = 1, NGN(NGS(9)+IGC)
+    IPRSM = IPRSM + 1
+
+    Z_SUMF1= Z_SUMF1+ FRACREFAO(IPRSM)
+    Z_SUMF2= Z_SUMF2+ FRACREFBO(IPRSM)
+  ENDDO
+
+  FRACREFA(IGC) = Z_SUMF1
+  FRACREFB(IGC) = Z_SUMF2
+ENDDO
+
+DO IGC = 1,NGC(10)
+
+  FREFA(NGS(9)+IGC,1) = FRACREFA(IGC)
+  FREFB(NGS(9)+IGC,1) = FRACREFB(IGC)
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB10',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_CMBGB10
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb10.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb10.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb10.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_CMBGB10
+END SUBROUTINE RRTM_CMBGB10
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb11.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb11.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb11.F90	(revision 1989)
@@ -0,0 +1,92 @@
+!***************************************************************************
+SUBROUTINE RRTM_CMBGB11
+!***************************************************************************
+
+!     BAND 11:  1480-1800 cm-1 (low - H2O; high - H2O)
+!***************************************************************************
+
+! Parameters
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO11, ONLY : KAO     ,KBO     ,SELFREFO    ,FRACREFAO ,FRACREFBO
+USE YOERRTA11, ONLY : KA      ,KB      ,SELFREF     ,FRACREFA  ,FRACREFB
+USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,RWGT
+USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM) :: IGC, IPR, IPRSM, JP, JT
+
+REAL(KIND=JPRB) :: Z_SUMF1, Z_SUMF2, Z_SUMK
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB11',0,ZHOOK_HANDLE)
+DO JT = 1,5
+  DO JP = 1,13
+    IPRSM = 0
+    DO IGC = 1,NGC(11)
+      Z_SUMK = 0.0_JPRB
+      DO IPR = 1, NGN(NGS(10)+IGC)
+        IPRSM = IPRSM + 1
+
+        Z_SUMK = Z_SUMK + KAO(JT,JP,IPRSM)*RWGT(IPRSM+160)
+      ENDDO
+
+      KA(JT,JP,IGC) = Z_SUMK
+    ENDDO
+  ENDDO
+ENDDO
+DO JT = 1,5
+  DO JP = 13,59
+    IPRSM = 0
+    DO IGC = 1,NGC(11)
+      Z_SUMK = 0.0_JPRB
+      DO IPR = 1, NGN(NGS(10)+IGC)
+        IPRSM = IPRSM + 1
+
+        Z_SUMK = Z_SUMK + KBO(JT,JP,IPRSM)*RWGT(IPRSM+160)
+      ENDDO
+
+      KB(JT,JP,IGC) = Z_SUMK
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(11)
+    Z_SUMK = 0.0_JPRB
+    DO IPR = 1, NGN(NGS(10)+IGC)
+      IPRSM = IPRSM + 1
+
+      Z_SUMK = Z_SUMK + SELFREFO(JT,IPRSM)*RWGT(IPRSM+160)
+    ENDDO
+
+    SELFREF(JT,IGC) = Z_SUMK
+  ENDDO
+ENDDO
+
+IPRSM = 0
+DO IGC = 1,NGC(11)
+  Z_SUMF1= 0.0_JPRB
+  Z_SUMF2= 0.0_JPRB
+  DO IPR = 1, NGN(NGS(10)+IGC)
+    IPRSM = IPRSM + 1
+
+    Z_SUMF1= Z_SUMF1+ FRACREFAO(IPRSM)
+    Z_SUMF2= Z_SUMF2+ FRACREFBO(IPRSM)
+  ENDDO
+
+  FRACREFA(IGC) = Z_SUMF1
+  FRACREFB(IGC) = Z_SUMF2
+ENDDO
+
+DO IGC = 1,NGC(11)
+
+  FREFA(NGS(10)+IGC,1) = FRACREFA(IGC)
+  FREFB(NGS(10)+IGC,1) = FRACREFB(IGC)
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB11',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_CMBGB11
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb11.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb11.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb11.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_CMBGB11
+END SUBROUTINE RRTM_CMBGB11
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb12.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb12.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb12.F90	(revision 1989)
@@ -0,0 +1,85 @@
+!***************************************************************************
+SUBROUTINE RRTM_CMBGB12
+!***************************************************************************
+
+!     BAND 12:  1800-2080 cm-1 (low - H2O,CO2; high - nothing)
+!***************************************************************************
+
+! Parameters
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO12, ONLY : KAO     ,SELFREFO   ,FRACREFAO
+USE YOERRTA12, ONLY : KA      ,SELFREF    ,FRACREFA
+USE YOERRTRWT, ONLY : FREFA    ,FREFADF  ,RWGT
+USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM) :: IGC, IPR, IPRSM, JN, JP, JT
+
+REAL(KIND=JPRB) :: Z_SUMF, Z_SUMK
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB12',0,ZHOOK_HANDLE)
+DO JN = 1,9
+  DO JT = 1,5
+    DO JP = 1,13
+      IPRSM = 0
+      DO IGC = 1,NGC(12)
+        Z_SUMK = 0.0_JPRB
+        DO IPR = 1, NGN(NGS(11)+IGC)
+          IPRSM = IPRSM + 1
+
+          Z_SUMK = Z_SUMK + KAO(JN,JT,JP,IPRSM)*RWGT(IPRSM+176)
+        ENDDO
+
+        KA(JN,JT,JP,IGC) = Z_SUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(12)
+    Z_SUMK = 0.0_JPRB
+    DO IPR = 1, NGN(NGS(11)+IGC)
+      IPRSM = IPRSM + 1
+
+      Z_SUMK = Z_SUMK + SELFREFO(JT,IPRSM)*RWGT(IPRSM+176)
+    ENDDO
+
+    SELFREF(JT,IGC) = Z_SUMK
+  ENDDO
+ENDDO
+
+DO JP = 1,9
+  IPRSM = 0
+  DO IGC = 1,NGC(12)
+    Z_SUMF = 0.0_JPRB
+    DO IPR = 1, NGN(NGS(11)+IGC)
+      IPRSM = IPRSM + 1
+
+      Z_SUMF = Z_SUMF + FRACREFAO(IPRSM,JP)
+    ENDDO
+
+    FRACREFA(IGC,JP) = Z_SUMF
+  ENDDO
+ENDDO
+
+DO JP = 1,9
+  DO IGC = 1,NGC(12)
+
+    FREFA(NGS(11)+IGC,JP) = FRACREFA(IGC,JP)
+  ENDDO
+ENDDO
+DO JP = 1,8
+  DO IGC = 1,NGC(12)
+
+    FREFADF(NGS(11)+IGC,JP) = FRACREFA(IGC,JP+1) -FRACREFA(IGC,JP)
+  ENDDO
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB12',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_CMBGB12
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb12.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb12.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb12.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_CMBGB12
+END SUBROUTINE RRTM_CMBGB12
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb13.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb13.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb13.F90	(revision 1989)
@@ -0,0 +1,85 @@
+!***************************************************************************
+SUBROUTINE RRTM_CMBGB13
+!***************************************************************************
+
+!     BAND 13:  2080-2250 cm-1 (low - H2O,N2O; high - nothing)
+!***************************************************************************
+
+! Parameters
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO13, ONLY : KAO     ,SELFREFO   ,FRACREFAO
+USE YOERRTA13, ONLY : KA      ,SELFREF    ,FRACREFA
+USE YOERRTRWT, ONLY : FREFA    ,FREFADF  ,RWGT
+USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM) :: IGC, IPR, IPRSM, JN, JP, JT
+
+REAL(KIND=JPRB) :: Z_SUMF, Z_SUMK
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB13',0,ZHOOK_HANDLE)
+DO JN = 1,9
+  DO JT = 1,5
+    DO JP = 1,13
+      IPRSM = 0
+      DO IGC = 1,NGC(13)
+        Z_SUMK = 0.0_JPRB
+        DO IPR = 1, NGN(NGS(12)+IGC)
+          IPRSM = IPRSM + 1
+
+          Z_SUMK = Z_SUMK + KAO(JN,JT,JP,IPRSM)*RWGT(IPRSM+192)
+        ENDDO
+
+        KA(JN,JT,JP,IGC) = Z_SUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(13)
+    Z_SUMK = 0.0_JPRB
+    DO IPR = 1, NGN(NGS(12)+IGC)
+      IPRSM = IPRSM + 1
+
+      Z_SUMK = Z_SUMK + SELFREFO(JT,IPRSM)*RWGT(IPRSM+192)
+    ENDDO
+
+    SELFREF(JT,IGC) = Z_SUMK
+  ENDDO
+ENDDO
+
+DO JP = 1,9
+  IPRSM = 0
+  DO IGC = 1,NGC(13)
+    Z_SUMF = 0.0_JPRB
+    DO IPR = 1, NGN(NGS(12)+IGC)
+      IPRSM = IPRSM + 1
+
+      Z_SUMF = Z_SUMF + FRACREFAO(IPRSM,JP)
+    ENDDO
+
+    FRACREFA(IGC,JP) = Z_SUMF
+  ENDDO
+ENDDO
+
+DO JP = 1,9
+  DO IGC = 1,NGC(13)
+
+    FREFA(NGS(12)+IGC,JP) = FRACREFA(IGC,JP)
+  ENDDO
+ENDDO
+DO JP = 1,8
+  DO IGC = 1,NGC(13)
+
+    FREFADF(NGS(12)+IGC,JP) = FRACREFA(IGC,JP+1) -FRACREFA(IGC,JP)
+  ENDDO
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB13',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_CMBGB13
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb13.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb13.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb13.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_CMBGB13
+END SUBROUTINE RRTM_CMBGB13
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb14.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb14.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb14.F90	(revision 1989)
@@ -0,0 +1,93 @@
+!***************************************************************************
+SUBROUTINE RRTM_CMBGB14
+!***************************************************************************
+
+!     BAND 14:  2250-2380 cm-1 (low - CO2; high - CO2)
+!***************************************************************************
+
+! Parameters
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO14, ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,FRACREFBO
+USE YOERRTA14, ONLY : KA      ,KB      ,SELFREF    ,FRACREFA   ,FRACREFB
+USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,RWGT
+USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM) :: IGC, IPR, IPRSM, JP, JT
+
+REAL(KIND=JPRB) :: Z_SUMF1, Z_SUMF2, Z_SUMK
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB14',0,ZHOOK_HANDLE)
+DO JT = 1,5
+  DO JP = 1,13
+    IPRSM = 0
+    DO IGC = 1,NGC(14)
+      Z_SUMK = 0.0_JPRB
+      DO IPR = 1, NGN(NGS(13)+IGC)
+        IPRSM = IPRSM + 1
+
+        Z_SUMK = Z_SUMK + KAO(JT,JP,IPRSM)*RWGT(IPRSM+208)
+      ENDDO
+
+      KA(JT,JP,IGC) = Z_SUMK
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,5
+  DO JP = 13,59
+    IPRSM = 0
+    DO IGC = 1,NGC(14)
+      Z_SUMK = 0.0_JPRB
+      DO IPR = 1, NGN(NGS(13)+IGC)
+        IPRSM = IPRSM + 1
+
+        Z_SUMK = Z_SUMK + KBO(JT,JP,IPRSM)*RWGT(IPRSM+208)
+      ENDDO
+
+      KB(JT,JP,IGC) = Z_SUMK
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(14)
+    Z_SUMK = 0.0_JPRB
+    DO IPR = 1, NGN(NGS(13)+IGC)
+      IPRSM = IPRSM + 1
+
+      Z_SUMK = Z_SUMK + SELFREFO(JT,IPRSM)*RWGT(IPRSM+208)
+    ENDDO
+
+    SELFREF(JT,IGC) = Z_SUMK
+  ENDDO
+ENDDO
+
+IPRSM = 0
+DO IGC = 1,NGC(14)
+  Z_SUMF1= 0.0_JPRB
+  Z_SUMF2= 0.0_JPRB
+  DO IPR = 1, NGN(NGS(13)+IGC)
+    IPRSM = IPRSM + 1
+
+    Z_SUMF1= Z_SUMF1+ FRACREFAO(IPRSM)
+    Z_SUMF2= Z_SUMF2+ FRACREFBO(IPRSM)
+  ENDDO
+
+  FRACREFA(IGC) = Z_SUMF1
+  FRACREFB(IGC) = Z_SUMF2
+ENDDO
+
+DO IGC = 1,NGC(14)
+
+  FREFA(NGS(13)+IGC,1) = FRACREFA(IGC)
+  FREFB(NGS(13)+IGC,1) = FRACREFB(IGC)
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB14',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_CMBGB14
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb14.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb14.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb14.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_CMBGB14
+END SUBROUTINE RRTM_CMBGB14
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb15.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb15.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb15.F90	(revision 1989)
@@ -0,0 +1,85 @@
+!***************************************************************************
+SUBROUTINE RRTM_CMBGB15
+!***************************************************************************
+
+!     BAND 15:  2380-2600 cm-1 (low - N2O,CO2; high - nothing)
+!***************************************************************************
+
+! Parameters
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO15, ONLY : KAO     ,SELFREFO   ,FRACREFAO
+USE YOERRTA15, ONLY : KA      ,SELFREF    ,FRACREFA
+USE YOERRTRWT, ONLY : FREFA    ,FREFADF  ,RWGT
+USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM) :: IGC, IPR, IPRSM, JN, JP, JT
+
+REAL(KIND=JPRB) :: Z_SUMF, Z_SUMK
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB15',0,ZHOOK_HANDLE)
+DO JN = 1,9
+  DO JT = 1,5
+    DO JP = 1,13
+      IPRSM = 0
+      DO IGC = 1,NGC(15)
+        Z_SUMK = 0.0_JPRB
+        DO IPR = 1, NGN(NGS(14)+IGC)
+          IPRSM = IPRSM + 1
+
+          Z_SUMK = Z_SUMK + KAO(JN,JT,JP,IPRSM)*RWGT(IPRSM+224)
+        ENDDO
+
+        KA(JN,JT,JP,IGC) = Z_SUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(15)
+    Z_SUMK = 0.0_JPRB
+    DO IPR = 1, NGN(NGS(14)+IGC)
+      IPRSM = IPRSM + 1
+
+      Z_SUMK = Z_SUMK + SELFREFO(JT,IPRSM)*RWGT(IPRSM+224)
+    ENDDO
+
+    SELFREF(JT,IGC) = Z_SUMK
+  ENDDO
+ENDDO
+
+DO JP = 1,9
+  IPRSM = 0
+  DO IGC = 1,NGC(15)
+    Z_SUMF = 0.0_JPRB
+    DO IPR = 1, NGN(NGS(14)+IGC)
+      IPRSM = IPRSM + 1
+
+      Z_SUMF = Z_SUMF + FRACREFAO(IPRSM,JP)
+    ENDDO
+
+    FRACREFA(IGC,JP) = Z_SUMF
+  ENDDO
+ENDDO
+
+DO JP = 1,9
+  DO IGC = 1,NGC(15)
+
+    FREFA(NGS(14)+IGC,JP) = FRACREFA(IGC,JP)
+  ENDDO
+ENDDO
+DO JP = 1,8
+  DO IGC = 1,NGC(15)
+
+    FREFADF(NGS(14)+IGC,JP) = FRACREFA(IGC,JP+1) -FRACREFA(IGC,JP)
+  ENDDO
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB15',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_CMBGB15
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb15.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb15.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb15.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_CMBGB15
+END SUBROUTINE RRTM_CMBGB15
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb16.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb16.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb16.F90	(revision 1989)
@@ -0,0 +1,86 @@
+!***************************************************************************
+SUBROUTINE RRTM_CMBGB16
+!***************************************************************************
+
+!     BAND 16:  2600-3000 cm-1 (low - H2O,CH4; high - nothing)
+!***************************************************************************
+
+! Parameters
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO16, ONLY : KAO     ,SELFREFO   ,FRACREFAO
+USE YOERRTA16, ONLY : KA      ,SELFREF    ,FRACREFA
+USE YOERRTRWT, ONLY : FREFA    ,FREFADF  ,RWGT
+USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM) :: IGC, IPR, IPRSM, JN, JP, JT
+
+REAL(KIND=JPRB) :: Z_SUMF, Z_SUMK
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB16',0,ZHOOK_HANDLE)
+DO JN = 1,9
+  DO JT = 1,5
+    DO JP = 1,13
+      IPRSM = 0
+      DO IGC = 1,NGC(16)
+        Z_SUMK = 0.0_JPRB
+        DO IPR = 1, NGN(NGS(15)+IGC)
+          IPRSM = IPRSM + 1
+
+          Z_SUMK = Z_SUMK + KAO(JN,JT,JP,IPRSM)*RWGT(IPRSM+240)
+        ENDDO
+
+        KA(JN,JT,JP,IGC) = Z_SUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(16)
+    Z_SUMK = 0.0_JPRB
+    DO IPR = 1, NGN(NGS(15)+IGC)
+      IPRSM = IPRSM + 1
+
+      Z_SUMK = Z_SUMK + SELFREFO(JT,IPRSM)*RWGT(IPRSM+240)
+    ENDDO
+
+    SELFREF(JT,IGC) = Z_SUMK
+  ENDDO
+ENDDO
+
+DO JP = 1,9
+  IPRSM = 0
+  DO IGC = 1,NGC(16)
+    Z_SUMF = 0.0_JPRB
+    DO IPR = 1, NGN(NGS(15)+IGC)
+      IPRSM = IPRSM + 1
+
+      Z_SUMF = Z_SUMF + FRACREFAO(IPRSM,JP)
+    ENDDO
+
+    FRACREFA(IGC,JP) = Z_SUMF
+  ENDDO
+ENDDO
+
+DO JP = 1,9
+  DO IGC = 1,NGC(16)
+
+    FREFA(NGS(15)+IGC,JP) = FRACREFA(IGC,JP)
+  ENDDO
+ENDDO
+
+DO JP = 1,8
+  DO IGC = 1,NGC(16)
+
+    FREFADF(NGS(15)+IGC,JP) = FRACREFA(IGC,JP+1) -FRACREFA(IGC,JP)
+  ENDDO
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB16',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_CMBGB16
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb16.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb16.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb16.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_CMBGB16
+END SUBROUTINE RRTM_CMBGB16
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb2.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb2.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb2.F90	(revision 1989)
@@ -0,0 +1,117 @@
+!***************************************************************************
+SUBROUTINE RRTM_CMBGB2
+!***************************************************************************
+
+!     BAND 2:  250-500 cm-1 (low - H2O; high - H2O)
+!***************************************************************************
+
+! Parameters
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO2 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+ & FRACREFBO  ,FORREFO  
+USE YOERRTA2 , ONLY : KA      ,KB      ,SELFREF    ,FRACREFA   ,&
+ & FRACREFB   ,FORREF       
+USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,RWGT
+USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM) :: IGC, IPR, IPRSM, JP, JT
+
+REAL(KIND=JPRB) :: Z_SUMF, Z_SUMK
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB2',0,ZHOOK_HANDLE)
+DO JT = 1,5
+  DO JP = 1,13
+    IPRSM = 0
+    DO IGC = 1,NGC(2)
+      Z_SUMK = 0.0_JPRB
+      DO IPR = 1, NGN(NGS(1)+IGC)
+        IPRSM = IPRSM + 1
+
+        Z_SUMK = Z_SUMK + KAO(JT,JP,IPRSM)*RWGT(IPRSM+16)
+      ENDDO
+
+      KA(JT,JP,IGC) = Z_SUMK
+    ENDDO
+  ENDDO
+  DO JP = 13,59
+    IPRSM = 0
+    DO IGC = 1,NGC(2)
+      Z_SUMK = 0.0_JPRB
+      DO IPR = 1, NGN(NGS(1)+IGC)
+        IPRSM = IPRSM + 1
+
+        Z_SUMK = Z_SUMK + KBO(JT,JP,IPRSM)*RWGT(IPRSM+16)
+      ENDDO
+!               KBC(JT,JP,IGC) = SUMK
+      KB(JT,JP,IGC) = Z_SUMK
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(2)
+    Z_SUMK = 0.0_JPRB
+    DO IPR = 1, NGN(NGS(1)+IGC)
+      IPRSM = IPRSM + 1
+
+      Z_SUMK = Z_SUMK + SELFREFO(JT,IPRSM)*RWGT(IPRSM+16)
+    ENDDO
+
+    SELFREF(JT,IGC) = Z_SUMK
+  ENDDO
+ENDDO
+
+DO JP = 1,13
+  IPRSM = 0
+  DO IGC = 1,NGC(2)
+    Z_SUMF = 0.0_JPRB
+    DO IPR = 1, NGN(NGS(1)+IGC)
+      IPRSM = IPRSM + 1
+
+      Z_SUMF = Z_SUMF + FRACREFAO(IPRSM,JP)
+    ENDDO
+
+    FRACREFA(IGC,JP) = Z_SUMF
+  ENDDO
+ENDDO
+
+IPRSM = 0
+DO IGC = 1,NGC(2)
+  Z_SUMK = 0.0_JPRB
+  Z_SUMF = 0.0_JPRB
+  DO IPR = 1, NGN(NGS(1)+IGC)
+    IPRSM = IPRSM + 1
+
+    Z_SUMK = Z_SUMK + FORREFO(IPRSM)*RWGT(IPRSM+16)
+    Z_SUMF = Z_SUMF + FRACREFBO(IPRSM)
+  ENDDO
+
+  FORREF(IGC) = Z_SUMK
+  FRACREFB(IGC) = Z_SUMF
+ENDDO
+
+DO JP = 1,13
+  DO IGC = 1,NGC(2)
+
+    FREFA(NGS(1)+IGC,JP) = FRACREFA(IGC,JP)
+  ENDDO
+ENDDO
+DO JP = 2,13
+  DO IGC = 1,NGC(2)
+
+    FREFADF(NGS(1)+IGC,JP) = FRACREFA(IGC,JP-1) -FRACREFA(IGC,JP)
+  ENDDO
+ENDDO
+DO IGC = 1,NGC(2)
+
+  FREFB(NGS(1)+IGC,1) = FRACREFB(IGC)
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB2',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_CMBGB2
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb2.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb2.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb2.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_CMBGB2
+END SUBROUTINE RRTM_CMBGB2
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb3.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb3.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb3.F90	(revision 1989)
@@ -0,0 +1,137 @@
+!***************************************************************************
+SUBROUTINE RRTM_CMBGB3
+!***************************************************************************
+
+!     BAND 3:  500-630 cm-1 (low - H2O,CO2; high - H2O,CO2)
+!***************************************************************************
+
+! Parameters
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO3 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+ & FRACREFBO  ,FORREFO    ,ABSN2OAO   ,ABSN2OBO  
+USE YOERRTA3 , ONLY : KA      ,KB      ,SELFREF    ,FRACREFA   ,&
+ & FRACREFB   ,FORREF    ,ABSN2OA   ,ABSN2OB  
+USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
+USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM) :: IGC, IPR, IPRSM, JN, JP, JT
+
+REAL(KIND=JPRB) :: Z_SUMF, Z_SUMK, Z_SUMK1, Z_SUMK2, Z_SUMK3
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB3',0,ZHOOK_HANDLE)
+DO JN = 1,10
+  DO JT = 1,5
+    DO JP = 1,13
+      IPRSM = 0
+      DO IGC = 1,NGC(3)
+        Z_SUMK = 0.0_JPRB
+        DO IPR = 1, NGN(NGS(2)+IGC)
+          IPRSM = IPRSM + 1
+
+          Z_SUMK = Z_SUMK + KAO(JN,JT,JP,IPRSM)*RWGT(IPRSM+32)
+        ENDDO
+
+        KA(JN,JT,JP,IGC) = Z_SUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+DO JN = 1,5
+  DO JT = 1,5
+    DO JP = 13,59
+      IPRSM = 0
+      DO IGC = 1,NGC(3)
+        Z_SUMK = 0.0_JPRB
+        DO IPR = 1, NGN(NGS(2)+IGC)
+          IPRSM = IPRSM + 1
+
+          Z_SUMK = Z_SUMK + KBO(JN,JT,JP,IPRSM)*RWGT(IPRSM+32)
+        ENDDO
+
+        KB(JN,JT,JP,IGC) = Z_SUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(3)
+    Z_SUMK = 0.0_JPRB
+    Z_SUMF = 0.0_JPRB
+    DO IPR = 1, NGN(NGS(2)+IGC)
+      IPRSM = IPRSM + 1
+
+      Z_SUMK = Z_SUMK + SELFREFO(JT,IPRSM)*RWGT(IPRSM+32)
+      Z_SUMF = Z_SUMF + FRACREFAO(IPRSM,JT)
+    ENDDO
+
+    SELFREF(JT,IGC) = Z_SUMK
+    FRACREFA(IGC,JT) = Z_SUMF
+  ENDDO
+ENDDO
+
+DO JP = 1,5
+  IPRSM = 0
+  DO IGC = 1,NGC(3)
+    Z_SUMF = 0.0_JPRB
+    DO IPR = 1, NGN(NGS(2)+IGC)
+      IPRSM = IPRSM + 1
+
+      Z_SUMF = Z_SUMF + FRACREFBO(IPRSM,JP)
+    ENDDO
+
+    FRACREFB(IGC,JP) = Z_SUMF
+  ENDDO
+ENDDO
+
+IPRSM = 0
+DO IGC = 1,NGC(3)
+  Z_SUMK1= 0.0_JPRB
+  Z_SUMK2= 0.0_JPRB
+  Z_SUMK3= 0.0_JPRB
+  DO IPR = 1, NGN(NGS(2)+IGC)
+    IPRSM = IPRSM + 1
+
+    Z_SUMK1= Z_SUMK1+ FORREFO(IPRSM)*RWGT(IPRSM+32)
+    Z_SUMK2= Z_SUMK2+ ABSN2OAO(IPRSM)*RWGT(IPRSM+32)
+    Z_SUMK3= Z_SUMK3+ ABSN2OBO(IPRSM)*RWGT(IPRSM+32)
+  ENDDO
+
+  FORREF(IGC) = Z_SUMK1
+  ABSN2OA(IGC) = Z_SUMK2
+  ABSN2OB(IGC) = Z_SUMK3
+ENDDO
+
+DO JP = 1,10
+  DO IGC = 1,NGC(3)
+
+    FREFA(NGS(2)+IGC,JP) = FRACREFA(IGC,JP)
+  ENDDO
+ENDDO
+DO JP = 1,9
+  DO IGC = 1,NGC(3)
+
+    FREFADF(NGS(2)+IGC,JP) = FRACREFA(IGC,JP+1) -FRACREFA(IGC,JP)
+  ENDDO
+ENDDO
+DO JP = 1,5
+  DO IGC = 1,NGC(3)
+
+    FREFB(NGS(2)+IGC,JP) = FRACREFB(IGC,JP)
+  ENDDO
+ENDDO
+DO JP = 1,4
+  DO IGC = 1,NGC(3)
+
+    FREFBDF(NGS(2)+IGC,JP) = FRACREFB(IGC,JP+1) -FRACREFB(IGC,JP)
+  ENDDO
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB3',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_CMBGB3
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb3.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb3.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb3.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_CMBGB3
+END SUBROUTINE RRTM_CMBGB3
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb4.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb4.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb4.F90	(revision 1989)
@@ -0,0 +1,128 @@
+!***************************************************************************
+SUBROUTINE RRTM_CMBGB4
+!***************************************************************************
+
+!     BAND 4:  630-700 cm-1 (low - H2O,CO2; high - O3,CO2)
+!***************************************************************************
+
+! Parameters
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO4 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,FRACREFBO
+USE YOERRTA4 , ONLY : KA      ,KB      ,SELFREF    ,FRACREFA   ,FRACREFB
+USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
+USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM) :: IGC, IPR, IPRSM, JN, JP, JT
+
+REAL(KIND=JPRB) :: Z_SUMF, Z_SUMK
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB4',0,ZHOOK_HANDLE)
+DO JN = 1,9
+  DO JT = 1,5
+    DO JP = 1,13
+      IPRSM = 0
+      DO IGC = 1,NGC(4)
+        Z_SUMK = 0.0_JPRB
+        DO IPR = 1, NGN(NGS(3)+IGC)
+          IPRSM = IPRSM + 1
+
+          Z_SUMK = Z_SUMK + KAO(JN,JT,JP,IPRSM)*RWGT(IPRSM+48)
+        ENDDO
+
+        KA(JN,JT,JP,IGC) = Z_SUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+DO JN = 1,6
+  DO JT = 1,5
+    DO JP = 13,59
+      IPRSM = 0
+      DO IGC = 1,NGC(4)
+        Z_SUMK = 0.0_JPRB
+        DO IPR = 1, NGN(NGS(3)+IGC)
+          IPRSM = IPRSM + 1
+
+          Z_SUMK = Z_SUMK + KBO(JN,JT,JP,IPRSM)*RWGT(IPRSM+48)
+        ENDDO
+
+        KB(JN,JT,JP,IGC) = Z_SUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(4)
+    Z_SUMK = 0.0_JPRB
+    DO IPR = 1, NGN(NGS(3)+IGC)
+      IPRSM = IPRSM + 1
+
+      Z_SUMK = Z_SUMK + SELFREFO(JT,IPRSM)*RWGT(IPRSM+48)
+    ENDDO
+
+    SELFREF(JT,IGC) = Z_SUMK
+  ENDDO
+ENDDO
+
+DO JP = 1,9
+  IPRSM = 0
+  DO IGC = 1,NGC(4)
+    Z_SUMF = 0.0_JPRB
+    DO IPR = 1, NGN(NGS(3)+IGC)
+      IPRSM = IPRSM + 1
+
+      Z_SUMF = Z_SUMF + FRACREFAO(IPRSM,JP)
+    ENDDO
+
+    FRACREFA(IGC,JP) = Z_SUMF
+  ENDDO
+ENDDO
+
+DO JP = 1,6
+  IPRSM = 0
+  DO IGC = 1,NGC(4)
+    Z_SUMF = 0.0_JPRB
+    DO IPR = 1, NGN(NGS(3)+IGC)
+      IPRSM = IPRSM + 1
+
+      Z_SUMF = Z_SUMF + FRACREFBO(IPRSM,JP)
+    ENDDO
+
+    FRACREFB(IGC,JP) = Z_SUMF
+  ENDDO
+ENDDO
+
+DO JP = 1,9
+  DO IGC = 1,NGC(4)
+
+    FREFA(NGS(3)+IGC,JP) = FRACREFA(IGC,JP)
+  ENDDO
+ENDDO
+DO JP = 1,8
+  DO IGC = 1,NGC(4)
+
+    FREFADF(NGS(3)+IGC,JP) = FRACREFA(IGC,JP+1) -FRACREFA(IGC,JP)
+  ENDDO
+ENDDO
+DO JP = 1,6
+  DO IGC = 1,NGC(4)
+
+    FREFB(NGS(3)+IGC,JP) = FRACREFB(IGC,JP)
+  ENDDO
+ENDDO
+DO JP = 1,5
+  DO IGC = 1,NGC(4)
+
+    FREFBDF(NGS(3)+IGC,JP) = FRACREFB(IGC,JP+1) -FRACREFB(IGC,JP)
+  ENDDO
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB4',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_CMBGB4
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb4.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb4.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb4.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_CMBGB4
+END SUBROUTINE RRTM_CMBGB4
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb5.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb5.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb5.F90	(revision 1989)
@@ -0,0 +1,142 @@
+!***************************************************************************
+SUBROUTINE RRTM_CMBGB5
+!***************************************************************************
+
+!     BAND 5:  700-820 cm-1 (low - H2O,CO2; high - O3,CO2)
+!***************************************************************************
+
+! Parameters
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO5 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+ & FRACREFBO, CCL4O  
+USE YOERRTA5 , ONLY : KA      ,KB      ,SELFREF    ,FRACREFA   ,&
+ & FRACREFB , CCL4  
+USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
+USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM) :: IGC, IPR, IPRSM, JN, JP, JT
+
+REAL(KIND=JPRB) :: Z_SUMF, Z_SUMK
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB5',0,ZHOOK_HANDLE)
+DO JN = 1,9
+  DO JT = 1,5
+    DO JP = 1,13
+      IPRSM = 0
+      DO IGC = 1,NGC(5)
+        Z_SUMK = 0.0_JPRB
+        DO IPR = 1, NGN(NGS(4)+IGC)
+          IPRSM = IPRSM + 1
+
+          Z_SUMK = Z_SUMK + KAO(JN,JT,JP,IPRSM)*RWGT(IPRSM+64)
+        ENDDO
+
+        KA(JN,JT,JP,IGC) = Z_SUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+DO JN = 1,5
+  DO JT = 1,5
+    DO JP = 13,59
+      IPRSM = 0
+      DO IGC = 1,NGC(5)
+        Z_SUMK = 0.0_JPRB
+        DO IPR = 1, NGN(NGS(4)+IGC)
+          IPRSM = IPRSM + 1
+
+          Z_SUMK = Z_SUMK + KBO(JN,JT,JP,IPRSM)*RWGT(IPRSM+64)
+        ENDDO
+
+        KB(JN,JT,JP,IGC) = Z_SUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(5)
+    Z_SUMK = 0.0_JPRB
+    DO IPR = 1, NGN(NGS(4)+IGC)
+      IPRSM = IPRSM + 1
+
+      Z_SUMK = Z_SUMK + SELFREFO(JT,IPRSM)*RWGT(IPRSM+64)
+    ENDDO
+
+    SELFREF(JT,IGC) = Z_SUMK
+  ENDDO
+ENDDO
+
+DO JP = 1,9
+  IPRSM = 0
+  DO IGC = 1,NGC(5)
+    Z_SUMF = 0.0_JPRB
+    DO IPR = 1, NGN(NGS(4)+IGC)
+      IPRSM = IPRSM + 1
+
+      Z_SUMF = Z_SUMF + FRACREFAO(IPRSM,JP)
+    ENDDO
+
+    FRACREFA(IGC,JP) = Z_SUMF
+  ENDDO
+ENDDO
+
+DO JP = 1,5
+  IPRSM = 0
+  DO IGC = 1,NGC(5)
+    Z_SUMF = 0.0_JPRB
+    DO IPR = 1, NGN(NGS(4)+IGC)
+      IPRSM = IPRSM + 1
+
+      Z_SUMF = Z_SUMF + FRACREFBO(IPRSM,JP)
+    ENDDO
+
+    FRACREFB(IGC,JP) = Z_SUMF
+  ENDDO
+ENDDO
+
+IPRSM = 0
+DO IGC = 1,NGC(5)
+  Z_SUMK = 0.0_JPRB
+  DO IPR = 1, NGN(NGS(4)+IGC)
+    IPRSM = IPRSM + 1
+
+    Z_SUMK = Z_SUMK + CCL4O(IPRSM)*RWGT(IPRSM+64)
+  ENDDO
+
+  CCL4(IGC) = Z_SUMK
+ENDDO
+
+DO JP = 1,9
+  DO IGC = 1,NGC(5)
+
+    FREFA(NGS(4)+IGC,JP) = FRACREFA(IGC,JP)
+  ENDDO
+ENDDO
+DO JP = 1,8
+  DO IGC = 1,NGC(5)
+
+    FREFADF(NGS(4)+IGC,JP) = FRACREFA(IGC,JP+1) -FRACREFA(IGC,JP)
+  ENDDO
+ENDDO
+DO JP = 1,5
+  DO IGC = 1,NGC(5)
+
+    FREFB(NGS(4)+IGC,JP) = FRACREFB(IGC,JP)
+  ENDDO
+ENDDO
+DO JP = 1,4
+  DO IGC = 1,NGC(5)
+
+    FREFBDF(NGS(4)+IGC,JP) = FRACREFB(IGC,JP+1) -FRACREFB(IGC,JP)
+  ENDDO
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB5',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_CMBGB5
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb5.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb5.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb5.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_CMBGB5
+END SUBROUTINE RRTM_CMBGB5
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb6.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb6.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb6.F90	(revision 1989)
@@ -0,0 +1,85 @@
+!***************************************************************************
+SUBROUTINE RRTM_CMBGB6
+!***************************************************************************
+
+!     BAND 6:  820-980 cm-1 (low - H2O; high - nothing)
+!***************************************************************************
+
+! Parameters
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO6 , ONLY : KAO     ,SELFREFO   ,FRACREFAO  ,&
+ & ABSCO2O ,CFC11ADJO,CFC12O  
+USE YOERRTA6 , ONLY : KA      ,SELFREF    ,FRACREFA   ,&
+ & ABSCO2  ,CFC11ADJ ,CFC12  
+USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,RWGT
+USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM) :: IGC, IPR, IPRSM, JP, JT
+
+REAL(KIND=JPRB) :: Z_SUMF, Z_SUMK, Z_SUMK1, Z_SUMK2, Z_SUMK3
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB6',0,ZHOOK_HANDLE)
+DO JT = 1,5
+  DO JP = 1,13
+    IPRSM = 0
+    DO IGC = 1,NGC(6)
+      Z_SUMK = 0.0_JPRB
+      DO IPR = 1, NGN(NGS(5)+IGC)
+        IPRSM = IPRSM + 1
+
+        Z_SUMK = Z_SUMK + KAO(JT,JP,IPRSM)*RWGT(IPRSM+80)
+      ENDDO
+
+      KA(JT,JP,IGC) = Z_SUMK
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(6)
+    Z_SUMK = 0.0_JPRB
+    DO IPR = 1, NGN(NGS(5)+IGC)
+      IPRSM = IPRSM + 1
+
+      Z_SUMK = Z_SUMK + SELFREFO(JT,IPRSM)*RWGT(IPRSM+80)
+    ENDDO
+
+    SELFREF(JT,IGC) = Z_SUMK
+  ENDDO
+ENDDO
+
+IPRSM = 0
+DO IGC = 1,NGC(6)
+  Z_SUMF = 0.0_JPRB
+  Z_SUMK1= 0.0_JPRB
+  Z_SUMK2= 0.0_JPRB
+  Z_SUMK3= 0.0_JPRB
+  DO IPR = 1, NGN(NGS(5)+IGC)
+    IPRSM = IPRSM + 1
+
+    Z_SUMF = Z_SUMF + FRACREFAO(IPRSM)
+    Z_SUMK1= Z_SUMK1+ ABSCO2O(IPRSM)*RWGT(IPRSM+80)
+    Z_SUMK2= Z_SUMK2+ CFC11ADJO(IPRSM)*RWGT(IPRSM+80)
+    Z_SUMK3= Z_SUMK3+ CFC12O(IPRSM)*RWGT(IPRSM+80)
+  ENDDO
+
+  FRACREFA(IGC) = Z_SUMF
+  ABSCO2(IGC) = Z_SUMK1
+  CFC11ADJ(IGC) = Z_SUMK2
+  CFC12(IGC) = Z_SUMK3
+ENDDO
+
+DO IGC = 1,NGC(6)
+
+  FREFA(NGS(5)+IGC,1) = FRACREFA(IGC)
+  FREFB(NGS(5)+IGC,1) = FRACREFA(IGC)
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB6',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_CMBGB6
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb6.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb6.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb6.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_CMBGB6
+END SUBROUTINE RRTM_CMBGB6
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb7.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb7.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb7.F90	(revision 1989)
@@ -0,0 +1,121 @@
+!***************************************************************************
+SUBROUTINE RRTM_CMBGB7
+!***************************************************************************
+
+!     BAND 7:  980-1080 cm-1 (low - H2O,O3; high - O3)
+!***************************************************************************
+
+! Parameters
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO7 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+ & FRACREFBO, ABSCO2O  
+USE YOERRTA7 , ONLY : KA      ,KB      ,SELFREF    ,FRACREFA   ,&
+ & FRACREFB , ABSCO2  
+USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,RWGT
+USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM) :: IGC, IPR, IPRSM, JN, JP, JT
+
+REAL(KIND=JPRB) :: Z_SUMF, Z_SUMK
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB7',0,ZHOOK_HANDLE)
+DO JN = 1,9
+  DO JT = 1,5
+    DO JP = 1,13
+      IPRSM = 0
+      DO IGC = 1,NGC(7)
+        Z_SUMK = 0.0_JPRB
+        DO IPR = 1, NGN(NGS(6)+IGC)
+          IPRSM = IPRSM + 1
+
+          Z_SUMK = Z_SUMK + KAO(JN,JT,JP,IPRSM)*RWGT(IPRSM+96)
+        ENDDO
+
+        KA(JN,JT,JP,IGC) = Z_SUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+DO JT = 1,5
+  DO JP = 13,59
+    IPRSM = 0
+    DO IGC = 1,NGC(7)
+      Z_SUMK = 0.0_JPRB
+      DO IPR = 1, NGN(NGS(6)+IGC)
+        IPRSM = IPRSM + 1
+
+        Z_SUMK = Z_SUMK + KBO(JT,JP,IPRSM)*RWGT(IPRSM+96)
+      ENDDO
+
+      KB(JT,JP,IGC) = Z_SUMK
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(7)
+    Z_SUMK = 0.0_JPRB
+    DO IPR = 1, NGN(NGS(6)+IGC)
+      IPRSM = IPRSM + 1
+
+      Z_SUMK = Z_SUMK + SELFREFO(JT,IPRSM)*RWGT(IPRSM+96)
+    ENDDO
+
+    SELFREF(JT,IGC) = Z_SUMK
+  ENDDO
+ENDDO
+
+DO JP = 1,9
+  IPRSM = 0
+  DO IGC = 1,NGC(7)
+    Z_SUMF = 0.0_JPRB
+    DO IPR = 1, NGN(NGS(6)+IGC)
+      IPRSM = IPRSM + 1
+
+      Z_SUMF = Z_SUMF + FRACREFAO(IPRSM,JP)
+    ENDDO
+
+    FRACREFA(IGC,JP) = Z_SUMF
+  ENDDO
+ENDDO
+
+IPRSM = 0
+DO IGC = 1,NGC(7)
+  Z_SUMF = 0.0_JPRB
+  Z_SUMK = 0.0_JPRB
+  DO IPR = 1, NGN(NGS(6)+IGC)
+    IPRSM = IPRSM + 1
+
+    Z_SUMF = Z_SUMF + FRACREFBO(IPRSM)
+    Z_SUMK = Z_SUMK + ABSCO2O(IPRSM)*RWGT(IPRSM+96)
+  ENDDO
+
+  FRACREFB(IGC) = Z_SUMF
+  ABSCO2(IGC) = Z_SUMK
+ENDDO
+
+DO JP = 1,9
+  DO IGC = 1,NGC(7)
+
+    FREFA(NGS(6)+IGC,JP) = FRACREFA(IGC,JP)
+  ENDDO
+ENDDO
+DO JP = 1,8
+  DO IGC = 1,NGC(7)
+
+    FREFADF(NGS(6)+IGC,JP) = FRACREFA(IGC,JP+1) -FRACREFA(IGC,JP)
+  ENDDO
+ENDDO
+DO IGC = 1,NGC(7)
+
+  FREFB(NGS(6)+IGC,1) = FRACREFB(IGC)
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB7',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_CMBGB7
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb7.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb7.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb7.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_CMBGB7
+END SUBROUTINE RRTM_CMBGB7
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb8.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb8.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb8.F90	(revision 1989)
@@ -0,0 +1,105 @@
+!***************************************************************************
+SUBROUTINE RRTM_CMBGB8
+!***************************************************************************
+
+!     BAND 8:  1080-1180 cm-1 (low (i.e.>~300mb) - H2O; high - O3)
+!***************************************************************************
+
+! Parameters
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO8 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+ & FRACREFBO, ABSCO2AO,ABSCO2BO,ABSN2OAO   ,ABSN2OBO   ,&
+ & CFC12O   , CFC22ADJO  
+USE YOERRTA8 , ONLY : KA      ,KB      ,SELFREF    ,FRACREFA   ,&
+ & FRACREFB , ABSCO2A ,ABSCO2B ,ABSN2OA    ,ABSN2OB    ,&
+ & CFC12    , CFC22ADJ  
+USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,RWGT
+USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM) :: IGC, IPR, IPRSM, JP, JT
+
+REAL(KIND=JPRB) :: Z_SUMF1, Z_SUMF2, Z_SUMK, Z_SUMK1, Z_SUMK2, Z_SUMK3, Z_SUMK4, Z_SUMK5, Z_SUMK6
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB8',0,ZHOOK_HANDLE)
+DO JT = 1,5
+  DO JP = 1,7
+    IPRSM = 0
+    DO IGC = 1,NGC(8)
+      Z_SUMK = 0.0_JPRB
+      DO IPR = 1, NGN(NGS(7)+IGC)
+        IPRSM = IPRSM + 1
+        Z_SUMK = Z_SUMK + KAO(JT,JP,IPRSM)*RWGT(IPRSM+112)
+      ENDDO
+      KA(JT,JP,IGC) = Z_SUMK
+    ENDDO
+  ENDDO
+ENDDO
+DO JT = 1,5
+  DO JP = 7,59
+    IPRSM = 0
+    DO IGC = 1,NGC(8)
+      Z_SUMK = 0.0_JPRB
+      DO IPR = 1, NGN(NGS(7)+IGC)
+        IPRSM = IPRSM + 1
+        Z_SUMK = Z_SUMK + KBO(JT,JP,IPRSM)*RWGT(IPRSM+112)
+      ENDDO
+      KB(JT,JP,IGC) = Z_SUMK
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(8)
+    Z_SUMK = 0.0_JPRB
+    DO IPR = 1, NGN(NGS(7)+IGC)
+      IPRSM = IPRSM + 1
+      Z_SUMK = Z_SUMK + SELFREFO(JT,IPRSM)*RWGT(IPRSM+112)
+    ENDDO
+    SELFREF(JT,IGC) = Z_SUMK
+  ENDDO
+ENDDO
+
+IPRSM = 0
+DO IGC = 1,NGC(8)
+  Z_SUMF1= 0.0_JPRB
+  Z_SUMF2= 0.0_JPRB
+  Z_SUMK1= 0.0_JPRB
+  Z_SUMK2= 0.0_JPRB
+  Z_SUMK3= 0.0_JPRB
+  Z_SUMK4= 0.0_JPRB
+  Z_SUMK5= 0.0_JPRB
+  Z_SUMK6= 0.0_JPRB
+  DO IPR = 1, NGN(NGS(7)+IGC)
+    IPRSM = IPRSM + 1
+    Z_SUMF1= Z_SUMF1+ FRACREFAO(IPRSM)
+    Z_SUMF2= Z_SUMF2+ FRACREFBO(IPRSM)
+    Z_SUMK1= Z_SUMK1+ ABSCO2AO(IPRSM)*RWGT(IPRSM+112)
+    Z_SUMK2= Z_SUMK2+ ABSCO2BO(IPRSM)*RWGT(IPRSM+112)
+    Z_SUMK3= Z_SUMK3+ ABSN2OAO(IPRSM)*RWGT(IPRSM+112)
+    Z_SUMK4= Z_SUMK4+ ABSN2OBO(IPRSM)*RWGT(IPRSM+112)
+    Z_SUMK5= Z_SUMK5+ CFC12O(IPRSM)*RWGT(IPRSM+112)
+    Z_SUMK6= Z_SUMK6+ CFC22ADJO(IPRSM)*RWGT(IPRSM+112)
+  ENDDO
+  FRACREFA(IGC) = Z_SUMF1
+  FRACREFB(IGC) = Z_SUMF2
+  ABSCO2A(IGC) = Z_SUMK1
+  ABSCO2B(IGC) = Z_SUMK2
+  ABSN2OA(IGC) = Z_SUMK3
+  ABSN2OB(IGC) = Z_SUMK4
+  CFC12(IGC) = Z_SUMK5
+  CFC22ADJ(IGC) = Z_SUMK6
+ENDDO
+
+DO IGC = 1,NGC(8)
+  FREFA(NGS(7)+IGC,1) = FRACREFA(IGC)
+  FREFB(NGS(7)+IGC,1) = FRACREFB(IGC)
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB8',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_CMBGB8
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb8.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb8.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb8.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_CMBGB8
+END SUBROUTINE RRTM_CMBGB8
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb9.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb9.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb9.F90	(revision 1989)
@@ -0,0 +1,135 @@
+!***************************************************************************
+SUBROUTINE RRTM_CMBGB9
+!***************************************************************************
+
+!     BAND 9:  1180-1390 cm-1 (low - H2O,CH4; high - CH4)
+!***************************************************************************
+
+! Parameters
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO9 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+ & FRACREFBO, ABSN2OO  
+USE YOERRTA9 , ONLY : KA      ,KB      ,SELFREF    ,FRACREFA  ,&
+ & FRACREFB , ABSN2O  
+USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,RWGT
+USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM) :: IGC, IPR, IPRSM, JN, JND, JNDC, JP, JT
+
+REAL(KIND=JPRB) :: Z_SUMF, Z_SUMK
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB9',0,ZHOOK_HANDLE)
+DO JN = 1,11
+  DO JT = 1,5
+    DO JP = 1,13
+      IPRSM = 0
+      DO IGC = 1,NGC(9)
+        Z_SUMK = 0.0_JPRB
+        DO IPR = 1, NGN(NGS(8)+IGC)
+          IPRSM = IPRSM + 1
+
+          Z_SUMK = Z_SUMK + KAO(JN,JT,JP,IPRSM)*RWGT(IPRSM+128)
+        ENDDO
+
+        KA(JN,JT,JP,IGC) = Z_SUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,5
+  DO JP = 13,59
+    IPRSM = 0
+    DO IGC = 1,NGC(9)
+      Z_SUMK = 0.0_JPRB
+      DO IPR = 1, NGN(NGS(8)+IGC)
+        IPRSM = IPRSM + 1
+
+        Z_SUMK = Z_SUMK + KBO(JT,JP,IPRSM)*RWGT(IPRSM+128)
+      ENDDO
+
+      KB(JT,JP,IGC) = Z_SUMK
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(9)
+    Z_SUMK = 0.0_JPRB
+    DO IPR = 1, NGN(NGS(8)+IGC)
+      IPRSM = IPRSM + 1
+
+      Z_SUMK = Z_SUMK + SELFREFO(JT,IPRSM)*RWGT(IPRSM+128)
+    ENDDO
+
+    SELFREF(JT,IGC) = Z_SUMK
+  ENDDO
+ENDDO
+
+DO JN = 1,3
+  IPRSM = 0
+  DO IGC = 1,NGC(9)
+    Z_SUMK = 0.0_JPRB
+    DO IPR = 1, NGN(NGS(8)+IGC)
+      IPRSM = IPRSM + 1
+      JND = (JN-1)*16
+
+      Z_SUMK = Z_SUMK + ABSN2OO(JND+IPRSM)*RWGT(IPRSM+128)
+    ENDDO
+    JNDC = (JN-1)*NGC(9)
+
+    ABSN2O(JNDC+IGC) = Z_SUMK
+  ENDDO
+ENDDO
+
+DO JP = 1,9
+  IPRSM = 0
+  DO IGC = 1,NGC(9)
+    Z_SUMF = 0.0_JPRB
+    DO IPR = 1, NGN(NGS(8)+IGC)
+      IPRSM = IPRSM + 1
+
+      Z_SUMF = Z_SUMF + FRACREFAO(IPRSM,JP)
+    ENDDO
+
+    FRACREFA(IGC,JP) = Z_SUMF
+  ENDDO
+ENDDO
+
+IPRSM = 0
+DO IGC = 1,NGC(9)
+  Z_SUMF = 0.0_JPRB
+  DO IPR = 1, NGN(NGS(8)+IGC)
+    IPRSM = IPRSM + 1
+
+    Z_SUMF = Z_SUMF + FRACREFBO(IPRSM)
+  ENDDO
+
+  FRACREFB(IGC) = Z_SUMF
+ENDDO
+
+DO JP = 1,9
+  DO IGC = 1,NGC(9)
+
+    FREFA(NGS(8)+IGC,JP) = FRACREFA(IGC,JP)
+  ENDDO
+ENDDO
+DO JP = 1,8
+  DO IGC = 1,NGC(9)
+
+    FREFADF(NGS(8)+IGC,JP) = FRACREFA(IGC,JP+1) -FRACREFA(IGC,JP)
+  ENDDO
+ENDDO
+DO IGC = 1,NGC(9)
+
+  FREFB(NGS(8)+IGC,1) = FRACREFB(IGC)
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('RRTM_CMBGB9',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_CMBGB9
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb9.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb9.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_cmbgb9.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_CMBGB9
+END SUBROUTINE RRTM_CMBGB9
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_ecrt_140gp.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_ecrt_140gp.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_ecrt_140gp.F90	(revision 1989)
@@ -0,0 +1,387 @@
+!****************** SUBROUTINE RRTM_ECRT_140GP **************************
+
+SUBROUTINE RRTM_ECRT_140GP &
+ & ( K_IPLON, klon , klev, kcld,&
+ & paer , paph , pap,&
+ & pts  , pth  , pt,&
+ & P_ZEMIS, P_ZEMIW,&
+ & pq   , pcco2, pozn, pcldf, ptaucld, ptclear,&
+ & P_CLDFRAC,P_TAUCLD,P_COLDRY,P_WKL,P_WX,&
+ & P_TAUAERL,PAVEL,P_TAVEL,PZ,P_TZ,P_TBOUND,K_NLAYERS,P_SEMISS,K_IREFLECT)  
+
+!     Reformatted for F90 by JJMorcrette, ECMWF, 980714
+
+!     Read in atmospheric profile from ECMWF radiation code, and prepare it
+!     for use in RRTM.  Set other RRTM input parameters.  Values are passed
+!     back through existing RRTM arrays and commons.
+
+!- Modifications
+
+!     2000-05-15 Deborah Salmond  Speed-up
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARRRTM  , ONLY : JPBAND   ,JPXSEC   ,JPLAY   ,&
+ & JPINPX  
+USE YOERAD   , ONLY : NOVLP
+USE YOERDI   , ONLY :    RCH4     ,RN2O    ,RCFC11  ,RCFC12
+USE YOESW    , ONLY : RAER
+
+!------------------------------Arguments--------------------------------
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLON! Number of atmospheres (longitudes) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV! Number of atmospheric layers 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_IPLON 
+INTEGER(KIND=JPIM),INTENT(OUT)   :: KCLD 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PAER(KLON,6,KLEV) ! Aerosol optical thickness
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PAPH(KLON,KLEV+1) ! Interface pressures (Pa)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PAP(KLON,KLEV) ! Layer pressures (Pa)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTS(KLON) ! Surface temperature (K)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTH(KLON,KLEV+1) ! Interface temperatures (K)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PT(KLON,KLEV) ! Layer temperature (K)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_ZEMIS(KLON) ! Non-window surface emissivity
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_ZEMIW(KLON) ! Window surface emissivity
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PQ(KLON,KLEV) ! H2O specific humidity (mmr)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCCO2 ! CO2 mass mixing ratio
+REAL(KIND=JPRB)   ,INTENT(IN)    :: POZN(KLON,KLEV) ! O3 mass mixing ratio
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCLDF(KLON,KLEV) ! Cloud fraction
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAUCLD(KLON,KLEV,JPBAND) ! Cloud optical depth
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTCLEAR 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_CLDFRAC(JPLAY) ! Cloud fraction
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUCLD(JPLAY,JPBAND) ! Spectral optical thickness
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_COLDRY(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_WKL(JPINPX,JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_WX(JPXSEC,JPLAY) ! Amount of trace gases
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUAERL(JPLAY,JPBAND) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PAVEL(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAVEL(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PZ(0:JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TZ(0:JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TBOUND 
+INTEGER(KIND=JPIM),INTENT(OUT)   :: K_NLAYERS 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_SEMISS(JPBAND) 
+INTEGER(KIND=JPIM),INTENT(OUT)   :: K_IREFLECT 
+!      real rch4                       ! CH4 mass mixing ratio
+!      real rn2o                       ! N2O mass mixing ratio
+!      real rcfc11                     ! CFC11 mass mixing ratio
+!      real rcfc12                     ! CFC12 mass mixing ratio
+!- from AER
+!- from PROFILE             
+!- from SURFACE             
+REAL(KIND=JPRB) :: ztauaer(5)
+REAL(KIND=JPRB) :: zc1j(0:klev)               ! total cloud from top and level k
+REAL(KIND=JPRB) :: Z_AMD                  ! Effective molecular weight of dry air (g/mol)
+REAL(KIND=JPRB) :: Z_AMW                  ! Molecular weight of water vapor (g/mol)
+REAL(KIND=JPRB) :: Z_AMCO2                ! Molecular weight of carbon dioxide (g/mol)
+REAL(KIND=JPRB) :: Z_AMO                  ! Molecular weight of ozone (g/mol)
+REAL(KIND=JPRB) :: Z_AMCH4                ! Molecular weight of methane (g/mol)
+REAL(KIND=JPRB) :: Z_AMN2O                ! Molecular weight of nitrous oxide (g/mol)
+REAL(KIND=JPRB) :: Z_AMC11                ! Molecular weight of CFC11 (g/mol) - CFCL3
+REAL(KIND=JPRB) :: Z_AMC12                ! Molecular weight of CFC12 (g/mol) - CF2CL2
+REAL(KIND=JPRB) :: Z_AVGDRO               ! Avogadro's number (molecules/mole)
+REAL(KIND=JPRB) :: Z_GRAVIT               ! Gravitational acceleration (cm/sec2)
+
+! Atomic weights for conversion from mass to volume mixing ratios; these
+!  are the same values used in ECRT to assure accurate conversion to vmr
+data Z_AMD   /  28.970_JPRB    /
+data Z_AMW   /  18.0154_JPRB   /
+data Z_AMCO2 /  44.011_JPRB    /
+data Z_AMO   /  47.9982_JPRB   /
+data Z_AMCH4 /  16.043_JPRB    /
+data Z_AMN2O /  44.013_JPRB    /
+data Z_AMC11 / 137.3686_JPRB   /
+data Z_AMC12 / 120.9140_JPRB   /
+data Z_AVGDRO/ 6.02214E23_JPRB /
+data Z_GRAVIT/ 9.80665E02_JPRB /
+
+INTEGER(KIND=JPIM) :: IATM, IMOL, IXMAX, J1, J2, JAE, JB, JK, JL, I_L
+INTEGER(KIND=JPIM) :: I_NMOL, I_NXMOL
+
+REAL(KIND=JPRB) :: Z_AMM, ZCLDLY, ZCLEAR, ZCLOUD, ZEPSEC
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+! ***
+
+! *** mji
+! Initialize all molecular amounts and aerosol optical depths to zero here, 
+! then pass ECRT amounts into RRTM arrays below.
+
+!      DATA ZWKL /MAXPRDW*0.0/
+!      DATA ZWX  /MAXPROD*0.0/
+!      DATA KREFLECT /0/
+
+! Activate cross section molecules:
+!     NXMOL     - number of cross-sections input by user
+!     IXINDX(I) - index of cross-section molecule corresponding to Ith
+!                 cross-section specified by user
+!                 = 0 -- not allowed in RRTM
+!                 = 1 -- CCL4
+!                 = 2 -- CFC11
+!                 = 3 -- CFC12
+!                 = 4 -- CFC22
+!      DATA KXMOL  /2/
+!      DATA KXINDX /0,2,3,0,31*0/
+
+!      IREFLECT=KREFLECT
+!      NXMOL=KXMOL
+
+IF (LHOOK) CALL DR_HOOK('RRTM_ECRT_140GP',0,ZHOOK_HANDLE)
+K_IREFLECT=0
+I_NXMOL=2
+
+DO J1=1,35
+! IXINDX(J1)=0
+  DO J2=1,KLEV
+    P_WKL(J1,J2)=0.0_JPRB 
+  ENDDO
+ENDDO
+!IXINDX(2)=2
+!IXINDX(3)=3
+
+!     Set parameters needed for RRTM execution:
+IATM    = 0
+!      IXSECT  = 1
+!      NUMANGS = 0
+!      IOUT    = -1
+IXMAX   = 4
+
+!     Bands 6,7,8 are considered the 'window' and allowed to have a
+!     different surface emissivity (as in ECMWF).  Eli wrote this part....
+P_SEMISS(1)  = P_ZEMIS(K_IPLON)
+P_SEMISS(2)  = P_ZEMIS(K_IPLON)
+P_SEMISS(3)  = P_ZEMIS(K_IPLON)
+P_SEMISS(4)  = P_ZEMIS(K_IPLON)
+P_SEMISS(5)  = P_ZEMIS(K_IPLON)
+P_SEMISS(6)  = P_ZEMIW(K_IPLON)
+P_SEMISS(7)  = P_ZEMIW(K_IPLON)
+P_SEMISS(8)  = P_ZEMIW(K_IPLON)
+P_SEMISS(9)  = P_ZEMIS(K_IPLON)
+P_SEMISS(10) = P_ZEMIS(K_IPLON)
+P_SEMISS(11) = P_ZEMIS(K_IPLON)
+P_SEMISS(12) = P_ZEMIS(K_IPLON)
+P_SEMISS(13) = P_ZEMIS(K_IPLON)
+P_SEMISS(14) = P_ZEMIS(K_IPLON)
+P_SEMISS(15) = P_ZEMIS(K_IPLON)
+P_SEMISS(16) = P_ZEMIS(K_IPLON)
+
+!     Set surface temperature.  
+
+P_TBOUND = pts(K_IPLON)
+
+!     Install ECRT arrays into RRTM arrays for pressure, temperature,
+!     and molecular amounts.  Pressures are converted from Pascals
+!     (ECRT) to mb (RRTM).  H2O, CO2, O3 and trace gas amounts are 
+!     converted from mass mixing ratio to volume mixing ratio.  CO2
+!     converted with same dry air and CO2 molecular weights used in 
+!     ECRT to assure correct conversion back to the proper CO2 vmr.
+!     The dry air column COLDRY (in molec/cm2) is calculated from 
+!     the level pressures PZ (in mb) based on the hydrostatic equation
+!     and includes a correction to account for H2O in the layer.  The
+!     molecular weight of moist air (amm) is calculated for each layer.
+!     Note: RRTM levels count from bottom to top, while the ECRT input
+!     variables count from the top down and must be reversed here.
+
+K_NLAYERS = klev
+I_NMOL = 6
+PZ(0) = paph(K_IPLON,klev+1)/100._JPRB
+P_TZ(0) = pth(K_IPLON,klev+1)
+DO I_L = 1, KLEV
+  PAVEL(I_L) = pap(K_IPLON,KLEV-I_L+1)/100._JPRB
+  P_TAVEL(I_L) = pt(K_IPLON,KLEV-I_L+1)
+  PZ(I_L) = paph(K_IPLON,KLEV-I_L+1)/100._JPRB
+  P_TZ(I_L) = pth(K_IPLON,KLEV-I_L+1)
+  P_WKL(1,I_L) = pq(K_IPLON,KLEV-I_L+1)*Z_AMD/Z_AMW
+  P_WKL(2,I_L) = pcco2*Z_AMD/Z_AMCO2
+  P_WKL(3,I_L) = pozn(K_IPLON,KLEV-I_L+1)*Z_AMD/Z_AMO
+  P_WKL(4,I_L) = rn2o*Z_AMD/Z_AMN2O
+  P_WKL(6,I_L) = rch4*Z_AMD/Z_AMCH4
+  Z_AMM = (1-P_WKL(1,I_L))*Z_AMD + P_WKL(1,I_L)*Z_AMW
+  P_COLDRY(I_L) = (PZ(I_L-1)-PZ(I_L))*1.E3_JPRB*Z_AVGDRO/(Z_GRAVIT*Z_AMM*(1+P_WKL(1,I_L)))
+ENDDO
+
+!- Fill RRTM aerosol arrays with operational ECMWF aerosols,
+!  do the mixing and distribute over the 16 spectral intervals
+
+DO I_L=1,KLEV
+  JK=KLEV-I_L+1
+!       DO JAE=1,5
+  JAE=1
+  ZTAUAER(JAE) =&
+   & RAER(JAE,1)*PAER(K_IPLON,1,JK)+RAER(JAE,2)*PAER(K_IPLON,2,JK)&
+   & +RAER(JAE,3)*PAER(K_IPLON,3,JK)+RAER(JAE,4)*PAER(K_IPLON,4,JK)&
+   & +RAER(JAE,5)*PAER(K_IPLON,5,JK)+RAER(JAE,6)*PAER(K_IPLON,6,JK)  
+  P_TAUAERL(I_L, 1)=ZTAUAER(1)
+  P_TAUAERL(I_L, 2)=ZTAUAER(1)
+  JAE=2
+  ZTAUAER(JAE) =&
+   & RAER(JAE,1)*PAER(K_IPLON,1,JK)+RAER(JAE,2)*PAER(K_IPLON,2,JK)&
+   & +RAER(JAE,3)*PAER(K_IPLON,3,JK)+RAER(JAE,4)*PAER(K_IPLON,4,JK)&
+   & +RAER(JAE,5)*PAER(K_IPLON,5,JK)+RAER(JAE,6)*PAER(K_IPLON,6,JK)  
+  P_TAUAERL(I_L, 3)=ZTAUAER(2)
+  P_TAUAERL(I_L, 4)=ZTAUAER(2)
+  P_TAUAERL(I_L, 5)=ZTAUAER(2)
+  JAE=3
+  ZTAUAER(JAE) =&
+   & RAER(JAE,1)*PAER(K_IPLON,1,JK)+RAER(JAE,2)*PAER(K_IPLON,2,JK)&
+   & +RAER(JAE,3)*PAER(K_IPLON,3,JK)+RAER(JAE,4)*PAER(K_IPLON,4,JK)&
+   & +RAER(JAE,5)*PAER(K_IPLON,5,JK)+RAER(JAE,6)*PAER(K_IPLON,6,JK)  
+  P_TAUAERL(I_L, 6)=ZTAUAER(3)
+  P_TAUAERL(I_L, 8)=ZTAUAER(3)
+  P_TAUAERL(I_L, 9)=ZTAUAER(3)
+  JAE=4
+  ZTAUAER(JAE) =&
+   & RAER(JAE,1)*PAER(K_IPLON,1,JK)+RAER(JAE,2)*PAER(K_IPLON,2,JK)&
+   & +RAER(JAE,3)*PAER(K_IPLON,3,JK)+RAER(JAE,4)*PAER(K_IPLON,4,JK)&
+   & +RAER(JAE,5)*PAER(K_IPLON,5,JK)+RAER(JAE,6)*PAER(K_IPLON,6,JK)  
+  P_TAUAERL(I_L, 7)=ZTAUAER(4)
+  JAE=5
+  ZTAUAER(JAE) =&
+   & RAER(JAE,1)*PAER(K_IPLON,1,JK)+RAER(JAE,2)*PAER(K_IPLON,2,JK)&
+   & +RAER(JAE,3)*PAER(K_IPLON,3,JK)+RAER(JAE,4)*PAER(K_IPLON,4,JK)&
+   & +RAER(JAE,5)*PAER(K_IPLON,5,JK)+RAER(JAE,6)*PAER(K_IPLON,6,JK)  
+!       END DO
+  P_TAUAERL(I_L,10)=ZTAUAER(5)
+  P_TAUAERL(I_L,11)=ZTAUAER(5)
+  P_TAUAERL(I_L,12)=ZTAUAER(5)
+  P_TAUAERL(I_L,13)=ZTAUAER(5)
+  P_TAUAERL(I_L,14)=ZTAUAER(5)
+  P_TAUAERL(I_L,15)=ZTAUAER(5)
+  P_TAUAERL(I_L,16)=ZTAUAER(5)
+ENDDO
+
+DO J2=1,KLEV
+  DO J1=1,JPXSEC
+    P_WX(J1,J2)=0.0_JPRB
+  ENDDO
+ENDDO
+
+DO I_L = 1, KLEV
+!- Set cross section molecule amounts from ECRT; convert to vmr
+  P_WX(2,I_L) = rcfc11*Z_AMD/Z_AMC11
+  P_WX(3,I_L) = rcfc12*Z_AMD/Z_AMC12
+  P_WX(2,I_L) = P_COLDRY(I_L) * P_WX(2,I_L) * 1.E-20_JPRB
+  P_WX(3,I_L) = P_COLDRY(I_L) * P_WX(3,I_L) * 1.E-20_JPRB
+
+!- Here, all molecules in WKL and WX are in volume mixing ratio; convert to
+!  molec/cm2 based on COLDRY for use in RRTM
+
+  DO IMOL = 1, I_NMOL
+    P_WKL(IMOL,I_L) = P_COLDRY(I_L) * P_WKL(IMOL,I_L)
+  ENDDO  
+  
+! DO IX = 1,JPXSEC
+! IF (IXINDX(IX)  /=  0) THEN
+!     WX(IXINDX(IX),L) = COLDRY(L) * WX(IX,L) * 1.E-20_JPRB
+! ENDIF
+! END DO  
+
+ENDDO
+
+!- Approximate treatment for various cloud overlaps
+ZCLEAR=1.0_JPRB
+ZCLOUD=0.0_JPRB
+ZC1J(0)=0.0_JPRB
+ZEPSEC=1.E-03_JPRB
+JL=K_IPLON
+
+!++MODIFCODE
+IF ((NOVLP == 1).OR.(NOVLP ==6).OR.(NOVLP ==8)) THEN
+!--MODIFCODE
+
+  DO JK=1,KLEV
+    IF (pcldf(JL,JK) > ZEPSEC) THEN
+      ZCLDLY=pcldf(JL,JK)
+      ZCLEAR=ZCLEAR &
+       & *(1.0_JPRB-MAX( ZCLDLY , ZCLOUD ))&
+       & /(1.0_JPRB-MIN( ZCLOUD , 1.0_JPRB-ZEPSEC ))  
+      ZCLOUD = ZCLDLY
+      ZC1J(JK)= 1.0_JPRB - ZCLEAR
+    ELSE
+      ZCLDLY=0.0_JPRB
+      ZCLEAR=ZCLEAR &
+       & *(1.0_JPRB-MAX( ZCLDLY , ZCLOUD ))&
+       & /(1.0_JPRB-MIN( ZCLOUD , 1.0_JPRB-ZEPSEC ))  
+      ZCLOUD = ZCLDLY
+      ZC1J(JK)= 1.0_JPRB - ZCLEAR
+    ENDIF
+  ENDDO
+
+!++MODIFCODE
+ELSEIF ((NOVLP == 2).OR.(NOVLP ==7)) THEN
+!--MODIFCODE
+
+  DO JK=1,KLEV
+    IF (pcldf(JL,JK) > ZEPSEC) THEN
+      ZCLDLY=pcldf(JL,JK)
+      ZCLOUD = MAX( ZCLDLY , ZCLOUD )
+      ZC1J(JK) = ZCLOUD
+    ELSE
+      ZCLDLY=0.0_JPRB
+      ZCLOUD = MAX( ZCLDLY , ZCLOUD )
+      ZC1J(JK) = ZCLOUD
+    ENDIF
+  ENDDO
+
+!++MODIFCODE
+ELSEIF ((NOVLP == 3).OR.(NOVLP ==5)) THEN
+!--MODIFCODE
+
+  DO JK=1,KLEV
+    IF (pcldf(JL,JK) > ZEPSEC) THEN
+      ZCLDLY=pcldf(JL,JK)
+      ZCLEAR = ZCLEAR * (1.0_JPRB-ZCLDLY)
+      ZCLOUD = 1.0_JPRB - ZCLEAR
+      ZC1J(JK) = ZCLOUD
+    ELSE
+      ZCLDLY=0.0_JPRB
+      ZCLEAR = ZCLEAR * (1.0_JPRB-ZCLDLY)
+      ZCLOUD = 1.0_JPRB - ZCLEAR
+      ZC1J(JK) = ZCLOUD
+    ENDIF
+  ENDDO
+
+ELSEIF (NOVLP == 4) THEN
+
+ENDIF
+PTCLEAR=1.0_JPRB-ZC1J(KLEV)
+
+! Transfer cloud fraction and cloud optical depth to RRTM arrays; 
+! invert array index for pcldf to go from bottom to top for RRTM
+
+!- clear-sky column
+IF (PTCLEAR  >  1.0_JPRB-ZEPSEC) THEN
+  KCLD=0
+  DO I_L = 1, KLEV
+    P_CLDFRAC(I_L) = 0.0_JPRB
+  ENDDO
+  DO JB=1,JPBAND
+    DO I_L=1,KLEV
+      P_TAUCLD(I_L,JB) = 0.0_JPRB
+    ENDDO
+  ENDDO
+
+ELSE
+
+!- cloudy column
+!   The diffusivity factor (Savijarvi, 1997) on the cloud optical 
+!   thickness TAUCLD has already been applied in RADLSW
+
+  KCLD=1
+  DO I_L=1,KLEV
+    P_CLDFRAC(I_L) = pcldf(K_IPLON,I_L)
+  ENDDO
+  DO JB=1,JPBAND
+    DO I_L=1,KLEV
+      P_TAUCLD(I_L,JB) = ptaucld(K_IPLON,I_L,JB)
+    ENDDO
+  ENDDO
+
+ENDIF
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('RRTM_ECRT_140GP',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_ECRT_140GP
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_ecrt_140gp.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_ecrt_140gp.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_ecrt_140gp.intfb.h	(revision 1989)
@@ -0,0 +1,46 @@
+INTERFACE
+SUBROUTINE RRTM_ECRT_140GP&
+ & ( K_IPLON, klon , klev, kcld,&
+ & paer , paph , pap,&
+ & pts , pth , pt,&
+ & P_ZEMIS, P_ZEMIW,&
+ & pq , pcco2, pozn, pcldf, ptaucld, ptclear,&
+ & P_CLDFRAC,P_TAUCLD,P_COLDRY,P_WKL,P_WX,&
+ & P_TAUAERL,PAVEL,P_TAVEL,PZ,P_TZ,P_TBOUND,K_NLAYERS,P_SEMISS,K_IREFLECT) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARRRTM , ONLY : JPBAND ,JPXSEC ,JPLAY ,&
+ & JPINPX 
+INTEGER(KIND=JPIM),INTENT(IN) :: KLON
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+INTEGER(KIND=JPIM),INTENT(IN) :: K_IPLON
+INTEGER(KIND=JPIM),INTENT(OUT) :: KCLD
+REAL(KIND=JPRB) ,INTENT(IN) :: PAER(KLON,6,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PAPH(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PAP(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTS(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTH(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PT(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_ZEMIS(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_ZEMIW(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PQ(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCCO2
+REAL(KIND=JPRB) ,INTENT(IN) :: POZN(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCLDF(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTAUCLD(KLON,KLEV,JPBAND)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PTCLEAR
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_CLDFRAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUCLD(JPLAY,JPBAND)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_COLDRY(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_WKL(JPINPX,JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_WX(JPXSEC,JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUAERL(JPLAY,JPBAND)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PAVEL(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAVEL(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PZ(0:JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TZ(0:JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TBOUND
+INTEGER(KIND=JPIM),INTENT(OUT) :: K_NLAYERS
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_SEMISS(JPBAND)
+INTEGER(KIND=JPIM),INTENT(OUT) :: K_IREFLECT
+END SUBROUTINE RRTM_ECRT_140GP
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_gasabs1a_140gp.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_gasabs1a_140gp.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_gasabs1a_140gp.F90	(revision 1989)
@@ -0,0 +1,157 @@
+SUBROUTINE RRTM_GASABS1A_140GP (KLEV,P_ATR1,P_OD,P_TF1,P_COLDRY,P_WX,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,P_FORFAC,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLCO2,P_COLO3,P_COLN2O,P_COLCH4,P_COLO2,P_CO2MULT,&
+ & K_LAYTROP,K_LAYSWTCH,K_LAYLOW,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+
+!     Reformatted for F90 by JJMorcrette, ECMWF, 980714
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARRRTM  , ONLY : JPLAY    ,JPBAND   ,JPGPT   ,JPXSEC
+USE YOERRTAB , ONLY : TRANS    ,BPADE
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_ATR1(JPGPT,JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_OD(JPGPT,JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TF1(JPGPT,JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLDRY(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_WX(JPXSEC,JPLAY) ! Amount of trace gases
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_TAUAERL(JPLAY,JPBAND) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FORFAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_ONEMINUS 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLH2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLCO2(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLO3(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLN2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLCH4(JPLAY) 
+REAL(KIND=JPRB)                  :: P_COLO2(JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_CO2MULT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYSWTCH 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYLOW 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDSELF(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFRAC(JPGPT,JPLAY) 
+!- from AER
+!- from INTFAC      
+!- from INTIND
+!- from PRECISE             
+!- from PROFDATA             
+!- from SELF             
+!- from SP             
+REAL(KIND=JPRB) :: Z_TAU   (JPGPT,JPLAY)
+
+INTEGER(KIND=JPIM) :: IPR, ITR, I_LAY
+
+REAL(KIND=JPRB) :: Z_ODEPTH, Z_SECANG, Z_TF
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+#include "rrtm_taumol1.intfb.h"
+#include "rrtm_taumol10.intfb.h"
+#include "rrtm_taumol11.intfb.h"
+#include "rrtm_taumol12.intfb.h"
+#include "rrtm_taumol13.intfb.h"
+#include "rrtm_taumol14.intfb.h"
+#include "rrtm_taumol15.intfb.h"
+#include "rrtm_taumol16.intfb.h"
+#include "rrtm_taumol2.intfb.h"
+#include "rrtm_taumol3.intfb.h"
+#include "rrtm_taumol4.intfb.h"
+#include "rrtm_taumol5.intfb.h"
+#include "rrtm_taumol6.intfb.h"
+#include "rrtm_taumol7.intfb.h"
+#include "rrtm_taumol8.intfb.h"
+#include "rrtm_taumol9.intfb.h"
+
+!- SECANG is equal to the secant of the diffusivity angle.
+IF (LHOOK) CALL DR_HOOK('RRTM_GASABS1A_140GP',0,ZHOOK_HANDLE)
+Z_SECANG = 1.66_JPRB
+
+CALL RRTM_TAUMOL1  (KLEV,Z_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,P_FORFAC,K_JP,K_JT,K_JT1,&
+ & P_COLH2O,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+CALL RRTM_TAUMOL2  (KLEV,Z_TAU,P_COLDRY,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,P_FORFAC,K_JP,K_JT,K_JT1,&
+ & P_COLH2O,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+CALL RRTM_TAUMOL3  (KLEV,Z_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,P_FORFAC,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLCO2,P_COLN2O,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+CALL RRTM_TAUMOL4  (KLEV,Z_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,P_FORFAC,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLCO2,P_COLO3,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+CALL RRTM_TAUMOL5  (KLEV,Z_TAU,P_WX,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,P_FORFAC,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLCO2,P_COLO3,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+CALL RRTM_TAUMOL6  (KLEV,Z_TAU,P_WX,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,&
+ & P_COLH2O,P_CO2MULT,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+CALL RRTM_TAUMOL7  (KLEV,Z_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLO3,P_CO2MULT,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+CALL RRTM_TAUMOL8  (KLEV,Z_TAU,P_WX,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,&
+ & P_COLH2O,P_COLO3,P_COLN2O,P_CO2MULT,K_LAYSWTCH,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+CALL RRTM_TAUMOL9  (KLEV,Z_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLN2O,P_COLCH4,K_LAYTROP,K_LAYSWTCH,K_LAYLOW,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+CALL RRTM_TAUMOL10 (KLEV,Z_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,&
+ & P_COLH2O,K_LAYTROP,PFRAC)  
+CALL RRTM_TAUMOL11 (KLEV,Z_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,&
+ & P_COLH2O,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+CALL RRTM_TAUMOL12 (KLEV,Z_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLCO2,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+CALL RRTM_TAUMOL13 (KLEV,Z_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLN2O,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+CALL RRTM_TAUMOL14 (KLEV,Z_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,&
+ & P_COLCO2,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+CALL RRTM_TAUMOL15 (KLEV,Z_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLCO2,P_COLN2O,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+CALL RRTM_TAUMOL16 (KLEV,Z_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLCH4,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+
+!- Loop over g-channels.
+DO I_LAY = 1, KLEV
+  DO IPR = 1, JPGPT
+    Z_ODEPTH = Z_SECANG * Z_TAU(IPR,I_LAY)
+    P_OD(IPR,I_LAY) = Z_ODEPTH
+    Z_ODEPTH=0.5D0*(ABS(Z_ODEPTH)+Z_ODEPTH)
+
+!-- revised code to get the pre-computed transmission
+!          IF (ODEPTH.LE.0.) PRINT*, 'ODEPTH = ',ODEPTH
+!!  IF (ODEPTH <= _ZERO_)THEN
+!!    ATR1(IPR,LAY) = _ONE_ - TRANS(0)
+!!    TF1(IPR,LAY) = _ZERO_
+!!  ELSE
+
+    Z_TF = Z_ODEPTH/(BPADE+Z_ODEPTH)
+    ITR=INT(5.E+03_JPRB*Z_TF+0.5_JPRB)
+    IF (ITR.LT.0) ITR=0     ! MPL 12.12.08
+    P_ATR1(IPR,I_LAY) = 1.0_JPRB - TRANS(ITR)
+    P_TF1(IPR,I_LAY) = Z_TF
+
+!!  ENDIF
+  ENDDO
+ENDDO
+
+!     -----------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('RRTM_GASABS1A_140GP',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_GASABS1A_140GP
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_gasabs1a_140gp.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_gasabs1a_140gp.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_gasabs1a_140gp.intfb.h	(revision 1989)
@@ -0,0 +1,39 @@
+INTERFACE
+SUBROUTINE RRTM_GASABS1A_140GP (KLEV,P_ATR1,P_OD,P_TF1,P_COLDRY,P_WX,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,P_FORFAC,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLCO2,P_COLO3,P_COLN2O,P_COLCH4,P_COLO2,P_CO2MULT,&
+ & K_LAYTROP,K_LAYSWTCH,K_LAYLOW,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARRRTM , ONLY : JPLAY ,JPBAND ,JPGPT ,JPXSEC
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_ATR1(JPGPT,JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_OD(JPGPT,JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TF1(JPGPT,JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLDRY(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_WX(JPXSEC,JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_TAUAERL(JPLAY,JPBAND)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FORFAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_ONEMINUS
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLH2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLCO2(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLO3(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLN2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLCH4(JPLAY)
+REAL(KIND=JPRB) :: P_COLO2(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_CO2MULT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYSWTCH
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYLOW
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDSELF(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFRAC(JPGPT,JPLAY)
+END SUBROUTINE RRTM_GASABS1A_140GP
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_init_140gp.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_init_140gp.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_init_140gp.F90	(revision 1989)
@@ -0,0 +1,160 @@
+!***************************************************************************
+SUBROUTINE RRTM_INIT_140GP
+!***************************************************************************
+!     Reformatted for F90 by JJMorcrette, ECMWF, 980714
+
+! Parameters
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARRRTM  , ONLY : JPBAND   ,JPG      ,JPGPT
+USE YOERRTWN , ONLY : NG       
+USE YOERRTFTR, ONLY : NGC      ,NGN      ,NGM     , WT
+! Output
+USE YOERRTBG2, ONLY : CORR1    ,CORR2
+USE YOERRTRWT, ONLY : FREFA    ,FREFB    ,FREFADF  ,FREFBDF   ,RWGT
+
+
+IMPLICIT NONE
+REAL(KIND=JPRB) :: Z_WTSM(JPG)
+
+INTEGER(KIND=JPIM) :: I, IBND, IG, IGC, IGCSM, IND, IPR, IPRSM, IPT
+
+REAL(KIND=JPRB) :: Z_FP, Z_RTFP, Z_WTSUM
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+#include "rrtm_kgb1.intfb.h"
+#include "rrtm_kgb10.intfb.h"
+#include "rrtm_kgb11.intfb.h"
+#include "rrtm_kgb12.intfb.h"
+#include "rrtm_kgb13.intfb.h"
+#include "rrtm_kgb14.intfb.h"
+#include "rrtm_kgb15.intfb.h"
+#include "rrtm_kgb16.intfb.h"
+#include "rrtm_kgb2.intfb.h"
+#include "rrtm_kgb3.intfb.h"
+#include "rrtm_kgb4.intfb.h"
+#include "rrtm_kgb5.intfb.h"
+#include "rrtm_kgb6.intfb.h"
+#include "rrtm_kgb7.intfb.h"
+#include "rrtm_kgb8.intfb.h"
+#include "rrtm_kgb9.intfb.h"
+
+#include "rrtm_cmbgb1.intfb.h"
+#include "rrtm_cmbgb10.intfb.h"
+#include "rrtm_cmbgb11.intfb.h"
+#include "rrtm_cmbgb12.intfb.h"
+#include "rrtm_cmbgb13.intfb.h"
+#include "rrtm_cmbgb14.intfb.h"
+#include "rrtm_cmbgb15.intfb.h"
+#include "rrtm_cmbgb16.intfb.h"
+#include "rrtm_cmbgb2.intfb.h"
+#include "rrtm_cmbgb3.intfb.h"
+#include "rrtm_cmbgb4.intfb.h"
+#include "rrtm_cmbgb5.intfb.h"
+#include "rrtm_cmbgb6.intfb.h"
+#include "rrtm_cmbgb7.intfb.h"
+#include "rrtm_cmbgb8.intfb.h"
+#include "rrtm_cmbgb9.intfb.h"
+
+IF (LHOOK) CALL DR_HOOK('RRTM_INIT_140GP',0,ZHOOK_HANDLE)
+
+! Read the absorption-related coefficients over the 16 x 16 g-points
+
+CALL RRTM_KGB1
+CALL RRTM_KGB2
+CALL RRTM_KGB3
+CALL RRTM_KGB4
+CALL RRTM_KGB5
+CALL RRTM_KGB6
+CALL RRTM_KGB7
+CALL RRTM_KGB8
+CALL RRTM_KGB9
+CALL RRTM_KGB10
+CALL RRTM_KGB11
+CALL RRTM_KGB12
+CALL RRTM_KGB13
+CALL RRTM_KGB14
+CALL RRTM_KGB15
+CALL RRTM_KGB16
+
+!  Calculate lookup tables for functions needed in routine TAUMOL (TAUGB2)
+
+CORR1(0) = 1.0_JPRB
+CORR1(200) = 1.0_JPRB
+CORR2(0) = 1.0_JPRB
+CORR2(200) = 1.0_JPRB
+DO I = 1,199
+  Z_FP = 0.005_JPRB*REAL(I)
+  Z_RTFP = SQRT(Z_FP)
+  CORR1(I) = Z_RTFP/Z_FP
+  CORR2(I) = (1.0_JPRB-Z_RTFP)/(1.0_JPRB-Z_FP)
+ENDDO
+
+!  Perform g-point reduction from 16 per band (256 total points) to
+!  a band dependant number (140 total points) for all absorption
+!  coefficient input data and Planck fraction input data.
+!  Compute relative weighting for new g-point combinations.
+
+IGCSM = 0
+DO IBND = 1,JPBAND
+  IPRSM = 0
+  IF (NGC(IBND) < 16) THEN
+    DO IGC = 1,NGC(IBND)
+      IGCSM = IGCSM + 1
+      Z_WTSUM = 0.0_JPRB
+      DO IPR = 1, NGN(IGCSM)
+        IPRSM = IPRSM + 1
+        Z_WTSUM = Z_WTSUM + WT(IPRSM)
+      ENDDO
+      Z_WTSM(IGC) = Z_WTSUM
+    ENDDO
+    DO IG = 1,NG(IBND)
+      IND = (IBND-1)*16 + IG
+      RWGT(IND) = WT(IG)/Z_WTSM(NGM(IND))
+    ENDDO
+  ELSE
+    DO IG = 1,NG(IBND)
+      IGCSM = IGCSM + 1
+      IND = (IBND-1)*16 + IG
+      RWGT(IND) = 1.0_JPRB
+    ENDDO
+  ENDIF
+ENDDO
+
+!  Initialize arrays for combined Planck fraction data.
+
+DO IPT = 1,13
+  DO IPR = 1, JPGPT
+    FREFA(IPR,IPT) = 0.0_JPRB
+    FREFADF(IPR,IPT) = 0.0_JPRB
+  ENDDO
+ENDDO
+DO IPT = 1,6
+  DO IPR = 1, JPGPT
+    FREFB(IPR,IPT) = 0.0_JPRB
+    FREFBDF(IPR,IPT) = 0.0_JPRB
+  ENDDO
+ENDDO
+
+!  Reduce g-points for relevant data in each LW spectral band.
+
+CALL RRTM_CMBGB1
+CALL RRTM_CMBGB2
+CALL RRTM_CMBGB3
+CALL RRTM_CMBGB4
+CALL RRTM_CMBGB5
+CALL RRTM_CMBGB6
+CALL RRTM_CMBGB7
+CALL RRTM_CMBGB8
+CALL RRTM_CMBGB9
+CALL RRTM_CMBGB10
+CALL RRTM_CMBGB11
+CALL RRTM_CMBGB12
+CALL RRTM_CMBGB13
+CALL RRTM_CMBGB14
+CALL RRTM_CMBGB15
+CALL RRTM_CMBGB16
+
+IF (LHOOK) CALL DR_HOOK('RRTM_INIT_140GP',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_INIT_140GP
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_init_140gp.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_init_140gp.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_init_140gp.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_INIT_140GP
+END SUBROUTINE RRTM_INIT_140GP
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb1.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb1.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb1.F90	(revision 1989)
@@ -0,0 +1,2141 @@
+!OCL SCALAR
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0 
+SUBROUTINE RRTM_KGB1
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 1:  10-250 cm-1 (low - H2O; high - H2O)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     R. Elkhatib 12-10-2005 Split for faster and more robust compilation.
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO1 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO ,&
+ & FRACREFBO  ,FORREFO  
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB1',0,ZHOOK_HANDLE)
+
+CALL PART1
+CALL PART2
+CALL PART3
+CALL PART4
+CALL PART5
+CALL PART6
+CALL PART7
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB1',1,ZHOOK_HANDLE)
+
+!-----------------------------------------------------------------------------
+
+CONTAINS
+
+
+SUBROUTINE PART1
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB1:PART1',0,ZHOOK_HANDLE)
+
+
+FRACREFAO( :) = (/&
+ & 0.08452097_JPRB,0.17952873_JPRB,0.16214369_JPRB,0.13602182_JPRB,&
+ & 0.12760490_JPRB,0.10302561_JPRB,0.08392423_JPRB,0.06337652_JPRB,&
+ & 0.04206551_JPRB,0.00487497_JPRB,0.00410743_JPRB,0.00344421_JPRB,&
+ & 0.00285731_JPRB,0.00157327_JPRB,0.00080648_JPRB,0.00012406_JPRB/)  
+
+FRACREFBO( :) = (/&
+ & 0.15492001_JPRB,0.17384727_JPRB,0.15165100_JPRB,0.12675308_JPRB,&
+ & 0.10986247_JPRB,0.09006091_JPRB,0.07584465_JPRB,0.05990077_JPRB,&
+ & 0.04113461_JPRB,0.00438638_JPRB,0.00374754_JPRB,0.00313924_JPRB,&
+ & 0.00234381_JPRB,0.00167167_JPRB,0.00062744_JPRB,0.00010889_JPRB/)  
+
+FORREFO( :) = (/&
+ & -4.50470E-02_JPRB,-1.18908E-01_JPRB,-7.21730E-02_JPRB,-2.83862E-02_JPRB,&
+ & -3.01961E-02_JPRB,-1.56877E-02_JPRB,-1.53684E-02_JPRB,-1.29135E-02_JPRB,&
+ & -1.27963E-02_JPRB,-1.81742E-03_JPRB, 4.40008E-05_JPRB, 1.05260E-02_JPRB,&
+ & 2.17290E-02_JPRB, 1.65571E-02_JPRB, 7.60751E-02_JPRB, 1.47405E-01_JPRB/)  
+
+!     ------------------------------------------------------------------
+
+!     The array KAO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels > ~100mb and temperatures.  The first
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the corresponding TREF for this  pressure level, 
+!     JT = 2 refers to the temperatureTREF-15, JT = 1 is for TREF-30, 
+!     JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  The second 
+!     index, JP, runs from 1 to 13 and refers to the corresponding 
+!     pressure level in PREF (e.g. JP = 1 is for a pressure of 1053.63 mb).  
+!     The third index, IG, goes from 1 to 16, and tells us which 
+!     g-interval the absorption coefficients are for.
+
+KAO( :, 1, 1) = (/&
+ & 2.9728E-01_JPRB,2.7117E-01_JPRB,2.4824E-01_JPRB,2.2823E-01_JPRB,2.1073E-01_JPRB/)  
+KAO( :, 2, 1) = (/&
+ & 2.5383E-01_JPRB,2.3094E-01_JPRB,2.1122E-01_JPRB,1.9387E-01_JPRB,1.7870E-01_JPRB/)  
+KAO( :, 3, 1) = (/&
+ & 2.2079E-01_JPRB,2.0034E-01_JPRB,1.8264E-01_JPRB,1.6726E-01_JPRB,1.5378E-01_JPRB/)  
+KAO( :, 4, 1) = (/&
+ & 1.9385E-01_JPRB,1.7531E-01_JPRB,1.5932E-01_JPRB,1.4544E-01_JPRB,1.3338E-01_JPRB/)  
+KAO( :, 5, 1) = (/&
+ & 1.7059E-01_JPRB,1.5374E-01_JPRB,1.3930E-01_JPRB,1.2682E-01_JPRB,1.1600E-01_JPRB/)  
+KAO( :, 6, 1) = (/&
+ & 1.5085E-01_JPRB,1.3549E-01_JPRB,1.2235E-01_JPRB,1.1112E-01_JPRB,1.0142E-01_JPRB/)  
+KAO( :, 7, 1) = (/&
+ & 1.3366E-01_JPRB,1.1960E-01_JPRB,1.0771E-01_JPRB,9.7560E-02_JPRB,8.8804E-02_JPRB/)  
+KAO( :, 8, 1) = (/&
+ & 1.1833E-01_JPRB,1.0551E-01_JPRB,9.4748E-02_JPRB,8.5642E-02_JPRB,7.7808E-02_JPRB/)  
+KAO( :, 9, 1) = (/&
+ & 1.0407E-01_JPRB,9.2585E-02_JPRB,8.3046E-02_JPRB,7.5077E-02_JPRB,6.8338E-02_JPRB/)  
+KAO( :,10, 1) = (/&
+ & 9.6249E-02_JPRB,8.6268E-02_JPRB,7.7918E-02_JPRB,7.0909E-02_JPRB,6.5026E-02_JPRB/)  
+KAO( :,11, 1) = (/&
+ & 8.5798E-02_JPRB,7.7607E-02_JPRB,7.0781E-02_JPRB,6.5084E-02_JPRB,6.0324E-02_JPRB/)  
+KAO( :,12, 1) = (/&
+ & 7.5259E-02_JPRB,6.8525E-02_JPRB,6.2945E-02_JPRB,5.8330E-02_JPRB,5.4507E-02_JPRB/)  
+KAO( :,13, 1) = (/&
+ & 6.6022E-02_JPRB,6.0316E-02_JPRB,5.5584E-02_JPRB,5.1665E-02_JPRB,4.8461E-02_JPRB/)  
+KAO( :, 1, 2) = (/&
+ & 1.0868E+00_JPRB,1.0180E+00_JPRB,9.5619E-01_JPRB,9.0008E-01_JPRB,8.4968E-01_JPRB/)  
+KAO( :, 2, 2) = (/&
+ & 9.1280E-01_JPRB,8.5427E-01_JPRB,8.0215E-01_JPRB,7.5470E-01_JPRB,7.1212E-01_JPRB/)  
+KAO( :, 3, 2) = (/&
+ & 7.7699E-01_JPRB,7.2607E-01_JPRB,6.8084E-01_JPRB,6.3997E-01_JPRB,6.0293E-01_JPRB/)  
+KAO( :, 4, 2) = (/&
+ & 6.6708E-01_JPRB,6.2264E-01_JPRB,5.8280E-01_JPRB,5.4723E-01_JPRB,5.1498E-01_JPRB/)  
+KAO( :, 5, 2) = (/&
+ & 5.7399E-01_JPRB,5.3509E-01_JPRB,5.0018E-01_JPRB,4.6892E-01_JPRB,4.4080E-01_JPRB/)  
+KAO( :, 6, 2) = (/&
+ & 4.9530E-01_JPRB,4.6110E-01_JPRB,4.3040E-01_JPRB,4.0285E-01_JPRB,3.7815E-01_JPRB/)  
+KAO( :, 7, 2) = (/&
+ & 4.2745E-01_JPRB,3.9732E-01_JPRB,3.7040E-01_JPRB,3.4614E-01_JPRB,3.2442E-01_JPRB/)  
+KAO( :, 8, 2) = (/&
+ & 3.6869E-01_JPRB,3.4268E-01_JPRB,3.1900E-01_JPRB,2.9776E-01_JPRB,2.7880E-01_JPRB/)  
+KAO( :, 9, 2) = (/&
+ & 3.1986E-01_JPRB,2.9734E-01_JPRB,2.7688E-01_JPRB,2.5843E-01_JPRB,2.4196E-01_JPRB/)  
+KAO( :,10, 2) = (/&
+ & 2.8291E-01_JPRB,2.6327E-01_JPRB,2.4583E-01_JPRB,2.3014E-01_JPRB,2.1607E-01_JPRB/)  
+KAO( :,11, 2) = (/&
+ & 2.4260E-01_JPRB,2.2644E-01_JPRB,2.1226E-01_JPRB,1.9956E-01_JPRB,1.8806E-01_JPRB/)  
+KAO( :,12, 2) = (/&
+ & 2.0558E-01_JPRB,1.9256E-01_JPRB,1.8115E-01_JPRB,1.7097E-01_JPRB,1.6176E-01_JPRB/)  
+KAO( :,13, 2) = (/&
+ & 1.7296E-01_JPRB,1.6235E-01_JPRB,1.5298E-01_JPRB,1.4476E-01_JPRB,1.3735E-01_JPRB/)  
+KAO( :, 1, 3) = (/&
+ & 1.9978E+00_JPRB,1.9059E+00_JPRB,1.8189E+00_JPRB,1.7366E+00_JPRB,1.6586E+00_JPRB/)  
+KAO( :, 2, 3) = (/&
+ & 1.6606E+00_JPRB,1.5839E+00_JPRB,1.5107E+00_JPRB,1.4431E+00_JPRB,1.3779E+00_JPRB/)  
+KAO( :, 3, 3) = (/&
+ & 1.3892E+00_JPRB,1.3254E+00_JPRB,1.2641E+00_JPRB,1.2074E+00_JPRB,1.1536E+00_JPRB/)  
+KAO( :, 4, 3) = (/&
+ & 1.1729E+00_JPRB,1.1192E+00_JPRB,1.0684E+00_JPRB,1.0206E+00_JPRB,9.7581E-01_JPRB/)  
+KAO( :, 5, 3) = (/&
+ & 9.9394E-01_JPRB,9.4858E-01_JPRB,9.0600E-01_JPRB,8.6583E-01_JPRB,8.2779E-01_JPRB/)  
+KAO( :, 6, 3) = (/&
+ & 8.4450E-01_JPRB,8.0530E-01_JPRB,7.6915E-01_JPRB,7.3568E-01_JPRB,7.0371E-01_JPRB/)  
+KAO( :, 7, 3) = (/&
+ & 7.1829E-01_JPRB,6.8411E-01_JPRB,6.5331E-01_JPRB,6.2452E-01_JPRB,5.9760E-01_JPRB/)  
+KAO( :, 8, 3) = (/&
+ & 6.1224E-01_JPRB,5.8194E-01_JPRB,5.5498E-01_JPRB,5.3049E-01_JPRB,5.0749E-01_JPRB/)  
+KAO( :, 9, 3) = (/&
+ & 5.2649E-01_JPRB,4.9920E-01_JPRB,4.7516E-01_JPRB,4.5390E-01_JPRB,4.3400E-01_JPRB/)  
+KAO( :,10, 3) = (/&
+ & 4.6036E-01_JPRB,4.3661E-01_JPRB,4.1510E-01_JPRB,3.9653E-01_JPRB,3.7973E-01_JPRB/)  
+KAO( :,11, 3) = (/&
+ & 3.9552E-01_JPRB,3.7556E-01_JPRB,3.5783E-01_JPRB,3.4242E-01_JPRB,3.2854E-01_JPRB/)  
+KAO( :,12, 3) = (/&
+ & 3.3619E-01_JPRB,3.1976E-01_JPRB,3.0528E-01_JPRB,2.9270E-01_JPRB,2.8130E-01_JPRB/)  
+KAO( :,13, 3) = (/&
+ & 2.8224E-01_JPRB,2.6905E-01_JPRB,2.5767E-01_JPRB,2.4740E-01_JPRB,2.3812E-01_JPRB/)  
+KAO( :, 1, 4) = (/&
+ & 3.1134E+00_JPRB,2.9768E+00_JPRB,2.8528E+00_JPRB,2.7371E+00_JPRB,2.6298E+00_JPRB/)  
+KAO( :, 2, 4) = (/&
+ & 2.5980E+00_JPRB,2.4825E+00_JPRB,2.3758E+00_JPRB,2.2768E+00_JPRB,2.1885E+00_JPRB/)  
+KAO( :, 3, 4) = (/&
+ & 2.1823E+00_JPRB,2.0815E+00_JPRB,1.9888E+00_JPRB,1.9036E+00_JPRB,1.8278E+00_JPRB/)  
+KAO( :, 4, 4) = (/&
+ & 1.8482E+00_JPRB,1.7602E+00_JPRB,1.6798E+00_JPRB,1.6064E+00_JPRB,1.5402E+00_JPRB/)  
+KAO( :, 5, 4) = (/&
+ & 1.5691E+00_JPRB,1.4937E+00_JPRB,1.4240E+00_JPRB,1.3603E+00_JPRB,1.3038E+00_JPRB/)  
+KAO( :, 6, 4) = (/&
+ & 1.3353E+00_JPRB,1.2714E+00_JPRB,1.2114E+00_JPRB,1.1566E+00_JPRB,1.1076E+00_JPRB/)  
+KAO( :, 7, 4) = (/&
+ & 1.1365E+00_JPRB,1.0823E+00_JPRB,1.0312E+00_JPRB,9.8386E-01_JPRB,9.4149E-01_JPRB/)  
+KAO( :, 8, 4) = (/&
+ & 9.6785E-01_JPRB,9.2216E-01_JPRB,8.7848E-01_JPRB,8.3819E-01_JPRB,8.0171E-01_JPRB/)  
+KAO( :, 9, 4) = (/&
+ & 8.2906E-01_JPRB,7.9098E-01_JPRB,7.5375E-01_JPRB,7.1927E-01_JPRB,6.8769E-01_JPRB/)  
+KAO( :,10, 4) = (/&
+ & 7.2091E-01_JPRB,6.8867E-01_JPRB,6.5764E-01_JPRB,6.2852E-01_JPRB,6.0157E-01_JPRB/)  
+KAO( :,11, 4) = (/&
+ & 6.1639E-01_JPRB,5.8956E-01_JPRB,5.6471E-01_JPRB,5.4117E-01_JPRB,5.1965E-01_JPRB/)  
+KAO( :,12, 4) = (/&
+ & 5.2694E-01_JPRB,5.0446E-01_JPRB,4.8409E-01_JPRB,4.6534E-01_JPRB,4.4808E-01_JPRB/)  
+KAO( :,13, 4) = (/&
+ & 4.4495E-01_JPRB,4.2623E-01_JPRB,4.0962E-01_JPRB,3.9458E-01_JPRB,3.8091E-01_JPRB/)  
+KAO( :, 1, 5) = (/&
+ & 5.1530E+00_JPRB,4.9766E+00_JPRB,4.8081E+00_JPRB,4.6516E+00_JPRB,4.5093E+00_JPRB/)  
+KAO( :, 2, 5) = (/&
+ & 4.3491E+00_JPRB,4.2045E+00_JPRB,4.0708E+00_JPRB,3.9418E+00_JPRB,3.8163E+00_JPRB/)  
+KAO( :, 3, 5) = (/&
+ & 3.6708E+00_JPRB,3.5507E+00_JPRB,3.4414E+00_JPRB,3.3312E+00_JPRB,3.2173E+00_JPRB/)  
+KAO( :, 4, 5) = (/&
+ & 3.1175E+00_JPRB,3.0159E+00_JPRB,2.9223E+00_JPRB,2.8267E+00_JPRB,2.7279E+00_JPRB/)  
+KAO( :, 5, 5) = (/&
+ & 2.6518E+00_JPRB,2.5625E+00_JPRB,2.4801E+00_JPRB,2.3975E+00_JPRB,2.3146E+00_JPRB/)  
+KAO( :, 6, 5) = (/&
+ & 2.2564E+00_JPRB,2.1773E+00_JPRB,2.1039E+00_JPRB,2.0333E+00_JPRB,1.9631E+00_JPRB/)  
+KAO( :, 7, 5) = (/&
+ & 1.9182E+00_JPRB,1.8476E+00_JPRB,1.7832E+00_JPRB,1.7230E+00_JPRB,1.6643E+00_JPRB/)  
+KAO( :, 8, 5) = (/&
+ & 1.6337E+00_JPRB,1.5705E+00_JPRB,1.5139E+00_JPRB,1.4617E+00_JPRB,1.4128E+00_JPRB/)  
+KAO( :, 9, 5) = (/&
+ & 1.4083E+00_JPRB,1.3508E+00_JPRB,1.3006E+00_JPRB,1.2545E+00_JPRB,1.2118E+00_JPRB/)  
+KAO( :,10, 5) = (/&
+ & 1.2328E+00_JPRB,1.1811E+00_JPRB,1.1365E+00_JPRB,1.0948E+00_JPRB,1.0570E+00_JPRB/)  
+KAO( :,11, 5) = (/&
+ & 1.0545E+00_JPRB,1.0121E+00_JPRB,9.7473E-01_JPRB,9.3945E-01_JPRB,9.0734E-01_JPRB/)  
+KAO( :,12, 5) = (/&
+ & 9.0496E-01_JPRB,8.7115E-01_JPRB,8.4024E-01_JPRB,8.1130E-01_JPRB,7.8449E-01_JPRB/)  
+KAO( :,13, 5) = (/&
+ & 7.7164E-01_JPRB,7.4436E-01_JPRB,7.1910E-01_JPRB,6.9522E-01_JPRB,6.7297E-01_JPRB/)  
+KAO( :, 1, 6) = (/&
+ & 9.6973E+00_JPRB,9.3787E+00_JPRB,9.0588E+00_JPRB,8.7497E+00_JPRB,8.4590E+00_JPRB/)  
+KAO( :, 2, 6) = (/&
+ & 8.3422E+00_JPRB,8.0414E+00_JPRB,7.7516E+00_JPRB,7.4834E+00_JPRB,7.2408E+00_JPRB/)  
+KAO( :, 3, 6) = (/&
+ & 7.1314E+00_JPRB,6.8664E+00_JPRB,6.6149E+00_JPRB,6.3897E+00_JPRB,6.1962E+00_JPRB/)  
+KAO( :, 4, 6) = (/&
+ & 6.1234E+00_JPRB,5.8927E+00_JPRB,5.6767E+00_JPRB,5.4877E+00_JPRB,5.3211E+00_JPRB/)  
+KAO( :, 5, 6) = (/&
+ & 5.2539E+00_JPRB,5.0548E+00_JPRB,4.8732E+00_JPRB,4.7110E+00_JPRB,4.5668E+00_JPRB/)  
+KAO( :, 6, 6) = (/&
+ & 4.5026E+00_JPRB,4.3343E+00_JPRB,4.1792E+00_JPRB,4.0419E+00_JPRB,3.9124E+00_JPRB/)  
+KAO( :, 7, 6) = (/&
+ & 3.8524E+00_JPRB,3.7093E+00_JPRB,3.5777E+00_JPRB,3.4570E+00_JPRB,3.3411E+00_JPRB/)  
+KAO( :, 8, 6) = (/&
+ & 3.2864E+00_JPRB,3.1665E+00_JPRB,3.0553E+00_JPRB,2.9496E+00_JPRB,2.8463E+00_JPRB/)  
+KAO( :, 9, 6) = (/&
+ & 2.8265E+00_JPRB,2.7253E+00_JPRB,2.6293E+00_JPRB,2.5362E+00_JPRB,2.4454E+00_JPRB/)  
+KAO( :,10, 6) = (/&
+ & 2.4703E+00_JPRB,2.3851E+00_JPRB,2.3012E+00_JPRB,2.2197E+00_JPRB,2.1390E+00_JPRB/)  
+KAO( :,11, 6) = (/&
+ & 2.1039E+00_JPRB,2.0324E+00_JPRB,1.9625E+00_JPRB,1.8926E+00_JPRB,1.8236E+00_JPRB/)  
+KAO( :,12, 6) = (/&
+ & 1.7889E+00_JPRB,1.7295E+00_JPRB,1.6689E+00_JPRB,1.6099E+00_JPRB,1.5530E+00_JPRB/)  
+KAO( :,13, 6) = (/&
+ & 1.5191E+00_JPRB,1.4695E+00_JPRB,1.4192E+00_JPRB,1.3697E+00_JPRB,1.3233E+00_JPRB/)  
+KAO( :, 1, 7) = (/&
+ & 1.9309E+01_JPRB,1.8684E+01_JPRB,1.8099E+01_JPRB,1.7538E+01_JPRB,1.7003E+01_JPRB/)  
+KAO( :, 2, 7) = (/&
+ & 1.7226E+01_JPRB,1.6672E+01_JPRB,1.6118E+01_JPRB,1.5594E+01_JPRB,1.5067E+01_JPRB/)  
+KAO( :, 3, 7) = (/&
+ & 1.5276E+01_JPRB,1.4769E+01_JPRB,1.4264E+01_JPRB,1.3763E+01_JPRB,1.3263E+01_JPRB/)  
+KAO( :, 4, 7) = (/&
+ & 1.3460E+01_JPRB,1.3002E+01_JPRB,1.2544E+01_JPRB,1.2084E+01_JPRB,1.1633E+01_JPRB/)  
+KAO( :, 5, 7) = (/&
+ & 1.1768E+01_JPRB,1.1365E+01_JPRB,1.0948E+01_JPRB,1.0535E+01_JPRB,1.0140E+01_JPRB/)  
+KAO( :, 6, 7) = (/&
+ & 1.0233E+01_JPRB,9.8691E+00_JPRB,9.5008E+00_JPRB,9.1399E+00_JPRB,8.8037E+00_JPRB/)  
+KAO( :, 7, 7) = (/&
+ & 8.8418E+00_JPRB,8.5251E+00_JPRB,8.2044E+00_JPRB,7.8974E+00_JPRB,7.6097E+00_JPRB/)  
+KAO( :, 8, 7) = (/&
+ & 7.5932E+00_JPRB,7.3228E+00_JPRB,7.0494E+00_JPRB,6.7890E+00_JPRB,6.5466E+00_JPRB/)  
+KAO( :, 9, 7) = (/&
+ & 6.5438E+00_JPRB,6.3102E+00_JPRB,6.0785E+00_JPRB,5.8572E+00_JPRB,5.6536E+00_JPRB/)  
+KAO( :,10, 7) = (/&
+ & 5.7701E+00_JPRB,5.5632E+00_JPRB,5.3602E+00_JPRB,5.1657E+00_JPRB,4.9886E+00_JPRB/)  
+KAO( :,11, 7) = (/&
+ & 4.9229E+00_JPRB,4.7468E+00_JPRB,4.5754E+00_JPRB,4.4156E+00_JPRB,4.2640E+00_JPRB/)  
+KAO( :,12, 7) = (/&
+ & 4.1712E+00_JPRB,4.0245E+00_JPRB,3.8835E+00_JPRB,3.7490E+00_JPRB,3.6186E+00_JPRB/)  
+KAO( :,13, 7) = (/&
+ & 3.5142E+00_JPRB,3.3938E+00_JPRB,3.2767E+00_JPRB,3.1632E+00_JPRB,3.0535E+00_JPRB/)  
+KAO( :, 1, 8) = (/&
+ & 4.3792E+01_JPRB,4.2562E+01_JPRB,4.1326E+01_JPRB,4.0173E+01_JPRB,3.9029E+01_JPRB/)  
+KAO( :, 2, 8) = (/&
+ & 4.1083E+01_JPRB,3.9961E+01_JPRB,3.8875E+01_JPRB,3.7761E+01_JPRB,3.6732E+01_JPRB/)  
+KAO( :, 3, 8) = (/&
+ & 3.8232E+01_JPRB,3.7158E+01_JPRB,3.6113E+01_JPRB,3.5094E+01_JPRB,3.4130E+01_JPRB/)  
+KAO( :, 4, 8) = (/&
+ & 3.5298E+01_JPRB,3.4286E+01_JPRB,3.3318E+01_JPRB,3.2377E+01_JPRB,3.1455E+01_JPRB/)  
+KAO( :, 5, 8) = (/&
+ & 3.2307E+01_JPRB,3.1366E+01_JPRB,3.0496E+01_JPRB,2.9612E+01_JPRB,2.8733E+01_JPRB/)  
+KAO( :, 6, 8) = (/&
+ & 2.9245E+01_JPRB,2.8430E+01_JPRB,2.7640E+01_JPRB,2.6836E+01_JPRB,2.6022E+01_JPRB/)  
+KAO( :, 7, 8) = (/&
+ & 2.6088E+01_JPRB,2.5397E+01_JPRB,2.4695E+01_JPRB,2.3991E+01_JPRB,2.3257E+01_JPRB/)  
+KAO( :, 8, 8) = (/&
+ & 2.2981E+01_JPRB,2.2412E+01_JPRB,2.1823E+01_JPRB,2.1203E+01_JPRB,2.0533E+01_JPRB/)  
+KAO( :, 9, 8) = (/&
+ & 2.0055E+01_JPRB,1.9585E+01_JPRB,1.9088E+01_JPRB,1.8539E+01_JPRB,1.7936E+01_JPRB/)  
+KAO( :,10, 8) = (/&
+ & 1.7813E+01_JPRB,1.7392E+01_JPRB,1.6941E+01_JPRB,1.6433E+01_JPRB,1.5881E+01_JPRB/)  
+KAO( :,11, 8) = (/&
+ & 1.5517E+01_JPRB,1.5141E+01_JPRB,1.4721E+01_JPRB,1.4250E+01_JPRB,1.3762E+01_JPRB/)  
+KAO( :,12, 8) = (/&
+ & 1.3307E+01_JPRB,1.2968E+01_JPRB,1.2587E+01_JPRB,1.2173E+01_JPRB,1.1765E+01_JPRB/)  
+KAO( :,13, 8) = (/&
+ & 1.1246E+01_JPRB,1.0950E+01_JPRB,1.0619E+01_JPRB,1.0276E+01_JPRB,9.9339E+00_JPRB/)  
+KAO( :, 1, 9) = (/&
+ & 1.1805E+02_JPRB,1.1497E+02_JPRB,1.1183E+02_JPRB,1.0901E+02_JPRB,1.0608E+02_JPRB/)  
+KAO( :, 2, 9) = (/&
+ & 1.2044E+02_JPRB,1.1710E+02_JPRB,1.1402E+02_JPRB,1.1089E+02_JPRB,1.0784E+02_JPRB/)  
+KAO( :, 3, 9) = (/&
+ & 1.2224E+02_JPRB,1.1882E+02_JPRB,1.1548E+02_JPRB,1.1225E+02_JPRB,1.0912E+02_JPRB/)  
+KAO( :, 4, 9) = (/&
+ & 1.2253E+02_JPRB,1.1914E+02_JPRB,1.1570E+02_JPRB,1.1248E+02_JPRB,1.0936E+02_JPRB/)  
+KAO( :, 5, 9) = (/&
+ & 1.2110E+02_JPRB,1.1772E+02_JPRB,1.1430E+02_JPRB,1.1120E+02_JPRB,1.0822E+02_JPRB/)  
+KAO( :, 6, 9) = (/&
+ & 1.1824E+02_JPRB,1.1487E+02_JPRB,1.1155E+02_JPRB,1.0851E+02_JPRB,1.0564E+02_JPRB/)  
+KAO( :, 7, 9) = (/&
+ & 1.1353E+02_JPRB,1.1029E+02_JPRB,1.0721E+02_JPRB,1.0431E+02_JPRB,1.0150E+02_JPRB/)  
+KAO( :, 8, 9) = (/&
+ & 1.0728E+02_JPRB,1.0430E+02_JPRB,1.0145E+02_JPRB,9.8717E+01_JPRB,9.6110E+01_JPRB/)  
+KAO( :, 9, 9) = (/&
+ & 9.9961E+01_JPRB,9.7260E+01_JPRB,9.4661E+01_JPRB,9.2129E+01_JPRB,8.9711E+01_JPRB/)  
+KAO( :,10, 9) = (/&
+ & 9.2244E+01_JPRB,8.9827E+01_JPRB,8.7426E+01_JPRB,8.5062E+01_JPRB,8.2760E+01_JPRB/)  
+KAO( :,11, 9) = (/&
+ & 8.3999E+01_JPRB,8.1726E+01_JPRB,7.9419E+01_JPRB,7.7163E+01_JPRB,7.4981E+01_JPRB/)  
+KAO( :,12, 9) = (/&
+ & 7.5642E+01_JPRB,7.3608E+01_JPRB,7.1481E+01_JPRB,6.9416E+01_JPRB,6.7422E+01_JPRB/)  
+KAO( :,13, 9) = (/&
+ & 6.6934E+01_JPRB,6.5046E+01_JPRB,6.3162E+01_JPRB,6.1319E+01_JPRB,5.9545E+01_JPRB/)  
+KAO( :, 1,10) = (/&
+ & 2.5219E+02_JPRB,2.4571E+02_JPRB,2.3918E+02_JPRB,2.3279E+02_JPRB,2.2858E+02_JPRB/)  
+KAO( :, 2,10) = (/&
+ & 2.6944E+02_JPRB,2.6208E+02_JPRB,2.5593E+02_JPRB,2.5059E+02_JPRB,2.4739E+02_JPRB/)  
+KAO( :, 3,10) = (/&
+ & 2.8444E+02_JPRB,2.7711E+02_JPRB,2.7148E+02_JPRB,2.6629E+02_JPRB,2.6255E+02_JPRB/)  
+KAO( :, 4,10) = (/&
+ & 3.0272E+02_JPRB,2.9452E+02_JPRB,2.8714E+02_JPRB,2.7941E+02_JPRB,2.7276E+02_JPRB/)  
+KAO( :, 5,10) = (/&
+ & 3.1679E+02_JPRB,3.0877E+02_JPRB,3.0015E+02_JPRB,2.9068E+02_JPRB,2.8102E+02_JPRB/)  
+KAO( :, 6,10) = (/&
+ & 3.2322E+02_JPRB,3.1468E+02_JPRB,3.0521E+02_JPRB,2.9571E+02_JPRB,2.8597E+02_JPRB/)  
+KAO( :, 7,10) = (/&
+ & 3.2856E+02_JPRB,3.1908E+02_JPRB,3.0869E+02_JPRB,2.9873E+02_JPRB,2.8901E+02_JPRB/)  
+KAO( :, 8,10) = (/&
+ & 3.2929E+02_JPRB,3.1918E+02_JPRB,3.0900E+02_JPRB,2.9900E+02_JPRB,2.8972E+02_JPRB/)  
+KAO( :, 9,10) = (/&
+ & 3.2403E+02_JPRB,3.1482E+02_JPRB,3.0502E+02_JPRB,2.9579E+02_JPRB,2.8721E+02_JPRB/)  
+KAO( :,10,10) = (/&
+ & 3.1039E+02_JPRB,3.0245E+02_JPRB,2.9340E+02_JPRB,2.8545E+02_JPRB,2.7823E+02_JPRB/)  
+KAO( :,11,10) = (/&
+ & 2.8971E+02_JPRB,2.8193E+02_JPRB,2.7523E+02_JPRB,2.6877E+02_JPRB,2.6210E+02_JPRB/)  
+KAO( :,12,10) = (/&
+ & 2.7119E+02_JPRB,2.6399E+02_JPRB,2.5760E+02_JPRB,2.5064E+02_JPRB,2.4326E+02_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB1:PART1',1,ZHOOK_HANDLE)
+END SUBROUTINE PART1
+
+
+SUBROUTINE PART2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB1:PART2',0,ZHOOK_HANDLE)
+
+
+KAO( :,13,10) = (/&
+ & 2.5228E+02_JPRB,2.4612E+02_JPRB,2.3937E+02_JPRB,2.3200E+02_JPRB,2.2456E+02_JPRB/)  
+KAO( :, 1,11) = (/&
+ & 3.2436E+02_JPRB,3.1705E+02_JPRB,3.0936E+02_JPRB,3.0225E+02_JPRB,2.9528E+02_JPRB/)  
+KAO( :, 2,11) = (/&
+ & 3.6387E+02_JPRB,3.5499E+02_JPRB,3.4471E+02_JPRB,3.3477E+02_JPRB,3.2544E+02_JPRB/)  
+KAO( :, 3,11) = (/&
+ & 3.9089E+02_JPRB,3.8297E+02_JPRB,3.7268E+02_JPRB,3.6169E+02_JPRB,3.5104E+02_JPRB/)  
+KAO( :, 4,11) = (/&
+ & 4.0614E+02_JPRB,3.9591E+02_JPRB,3.8584E+02_JPRB,3.7702E+02_JPRB,3.6787E+02_JPRB/)  
+KAO( :, 5,11) = (/&
+ & 4.2111E+02_JPRB,4.0953E+02_JPRB,3.9791E+02_JPRB,3.8868E+02_JPRB,3.8088E+02_JPRB/)  
+KAO( :, 6,11) = (/&
+ & 4.4478E+02_JPRB,4.3170E+02_JPRB,4.1878E+02_JPRB,4.0704E+02_JPRB,3.9607E+02_JPRB/)  
+KAO( :, 7,11) = (/&
+ & 4.6528E+02_JPRB,4.5296E+02_JPRB,4.4095E+02_JPRB,4.2830E+02_JPRB,4.1414E+02_JPRB/)  
+KAO( :, 8,11) = (/&
+ & 4.8103E+02_JPRB,4.6875E+02_JPRB,4.5586E+02_JPRB,4.4138E+02_JPRB,4.2642E+02_JPRB/)  
+KAO( :, 9,11) = (/&
+ & 4.9211E+02_JPRB,4.7875E+02_JPRB,4.6419E+02_JPRB,4.4833E+02_JPRB,4.3292E+02_JPRB/)  
+KAO( :,10,11) = (/&
+ & 4.9428E+02_JPRB,4.7899E+02_JPRB,4.6351E+02_JPRB,4.4779E+02_JPRB,4.3245E+02_JPRB/)  
+KAO( :,11,11) = (/&
+ & 4.7778E+02_JPRB,4.6338E+02_JPRB,4.4778E+02_JPRB,4.3344E+02_JPRB,4.2003E+02_JPRB/)  
+KAO( :,12,11) = (/&
+ & 4.5095E+02_JPRB,4.3803E+02_JPRB,4.2442E+02_JPRB,4.1242E+02_JPRB,4.0150E+02_JPRB/)  
+KAO( :,13,11) = (/&
+ & 4.2162E+02_JPRB,4.0890E+02_JPRB,3.9818E+02_JPRB,3.8811E+02_JPRB,3.7807E+02_JPRB/)  
+KAO( :, 1,12) = (/&
+ & 4.0765E+02_JPRB,4.0438E+02_JPRB,4.0112E+02_JPRB,3.9703E+02_JPRB,3.9278E+02_JPRB/)  
+KAO( :, 2,12) = (/&
+ & 4.5408E+02_JPRB,4.4591E+02_JPRB,4.3895E+02_JPRB,4.3184E+02_JPRB,4.2260E+02_JPRB/)  
+KAO( :, 3,12) = (/&
+ & 5.0754E+02_JPRB,4.9609E+02_JPRB,4.8458E+02_JPRB,4.7355E+02_JPRB,4.6248E+02_JPRB/)  
+KAO( :, 4,12) = (/&
+ & 5.5729E+02_JPRB,5.4777E+02_JPRB,5.3611E+02_JPRB,5.2186E+02_JPRB,5.0830E+02_JPRB/)  
+KAO( :, 5,12) = (/&
+ & 5.9884E+02_JPRB,5.9059E+02_JPRB,5.8025E+02_JPRB,5.6682E+02_JPRB,5.5220E+02_JPRB/)  
+KAO( :, 6,12) = (/&
+ & 6.3069E+02_JPRB,6.2342E+02_JPRB,6.1247E+02_JPRB,5.9971E+02_JPRB,5.8566E+02_JPRB/)  
+KAO( :, 7,12) = (/&
+ & 6.6576E+02_JPRB,6.5415E+02_JPRB,6.3907E+02_JPRB,6.2535E+02_JPRB,6.1174E+02_JPRB/)  
+KAO( :, 8,12) = (/&
+ & 7.0612E+02_JPRB,6.9050E+02_JPRB,6.7253E+02_JPRB,6.5500E+02_JPRB,6.3767E+02_JPRB/)  
+KAO( :, 9,12) = (/&
+ & 7.4151E+02_JPRB,7.2711E+02_JPRB,7.0818E+02_JPRB,6.8887E+02_JPRB,6.6982E+02_JPRB/)  
+KAO( :,10,12) = (/&
+ & 7.6876E+02_JPRB,7.5445E+02_JPRB,7.3627E+02_JPRB,7.1768E+02_JPRB,6.9714E+02_JPRB/)  
+KAO( :,11,12) = (/&
+ & 7.8345E+02_JPRB,7.6652E+02_JPRB,7.4553E+02_JPRB,7.2384E+02_JPRB,7.0114E+02_JPRB/)  
+KAO( :,12,12) = (/&
+ & 7.8623E+02_JPRB,7.6501E+02_JPRB,7.4277E+02_JPRB,7.1917E+02_JPRB,6.9536E+02_JPRB/)  
+KAO( :,13,12) = (/&
+ & 7.6967E+02_JPRB,7.4813E+02_JPRB,7.2429E+02_JPRB,7.0066E+02_JPRB,6.7901E+02_JPRB/)  
+KAO( :, 1,13) = (/&
+ & 5.1329E+02_JPRB,5.0716E+02_JPRB,5.0382E+02_JPRB,4.9878E+02_JPRB,4.9356E+02_JPRB/)  
+KAO( :, 2,13) = (/&
+ & 5.7148E+02_JPRB,5.6846E+02_JPRB,5.6431E+02_JPRB,5.6063E+02_JPRB,5.5653E+02_JPRB/)  
+KAO( :, 3,13) = (/&
+ & 6.5145E+02_JPRB,6.4483E+02_JPRB,6.3790E+02_JPRB,6.3094E+02_JPRB,6.2717E+02_JPRB/)  
+KAO( :, 4,13) = (/&
+ & 7.5002E+02_JPRB,7.3461E+02_JPRB,7.2296E+02_JPRB,7.1138E+02_JPRB,7.0213E+02_JPRB/)  
+KAO( :, 5,13) = (/&
+ & 8.5963E+02_JPRB,8.3647E+02_JPRB,8.1752E+02_JPRB,7.9952E+02_JPRB,7.8427E+02_JPRB/)  
+KAO( :, 6,13) = (/&
+ & 9.6412E+02_JPRB,9.4095E+02_JPRB,9.1679E+02_JPRB,8.9731E+02_JPRB,8.7656E+02_JPRB/)  
+KAO( :, 7,13) = (/&
+ & 1.0550E+03_JPRB,1.0327E+03_JPRB,1.0118E+03_JPRB,9.9247E+02_JPRB,9.6895E+02_JPRB/)  
+KAO( :, 8,13) = (/&
+ & 1.1351E+03_JPRB,1.1102E+03_JPRB,1.0930E+03_JPRB,1.0757E+03_JPRB,1.0518E+03_JPRB/)  
+KAO( :, 9,13) = (/&
+ & 1.2061E+03_JPRB,1.1763E+03_JPRB,1.1581E+03_JPRB,1.1387E+03_JPRB,1.1187E+03_JPRB/)  
+KAO( :,10,13) = (/&
+ & 1.2746E+03_JPRB,1.2431E+03_JPRB,1.2211E+03_JPRB,1.1969E+03_JPRB,1.1743E+03_JPRB/)  
+KAO( :,11,13) = (/&
+ & 1.3270E+03_JPRB,1.3002E+03_JPRB,1.2748E+03_JPRB,1.2457E+03_JPRB,1.2158E+03_JPRB/)  
+KAO( :,12,13) = (/&
+ & 1.3778E+03_JPRB,1.3525E+03_JPRB,1.3230E+03_JPRB,1.2880E+03_JPRB,1.2527E+03_JPRB/)  
+KAO( :,13,13) = (/&
+ & 1.4203E+03_JPRB,1.3956E+03_JPRB,1.3627E+03_JPRB,1.3265E+03_JPRB,1.2880E+03_JPRB/)  
+KAO( :, 1,14) = (/&
+ & 7.0659E+02_JPRB,6.8649E+02_JPRB,6.7585E+02_JPRB,6.6280E+02_JPRB,6.4777E+02_JPRB/)  
+KAO( :, 2,14) = (/&
+ & 8.1314E+02_JPRB,7.9545E+02_JPRB,7.8563E+02_JPRB,7.7042E+02_JPRB,7.6159E+02_JPRB/)  
+KAO( :, 3,14) = (/&
+ & 9.2212E+02_JPRB,9.1802E+02_JPRB,9.0672E+02_JPRB,8.9703E+02_JPRB,8.8878E+02_JPRB/)  
+KAO( :, 4,14) = (/&
+ & 1.0533E+03_JPRB,1.0471E+03_JPRB,1.0407E+03_JPRB,1.0252E+03_JPRB,1.0216E+03_JPRB/)  
+KAO( :, 5,14) = (/&
+ & 1.1902E+03_JPRB,1.1874E+03_JPRB,1.1827E+03_JPRB,1.1705E+03_JPRB,1.1629E+03_JPRB/)  
+KAO( :, 6,14) = (/&
+ & 1.3538E+03_JPRB,1.3468E+03_JPRB,1.3305E+03_JPRB,1.3230E+03_JPRB,1.3152E+03_JPRB/)  
+KAO( :, 7,14) = (/&
+ & 1.5575E+03_JPRB,1.5374E+03_JPRB,1.5135E+03_JPRB,1.4950E+03_JPRB,1.4827E+03_JPRB/)  
+KAO( :, 8,14) = (/&
+ & 1.7978E+03_JPRB,1.7650E+03_JPRB,1.7335E+03_JPRB,1.7038E+03_JPRB,1.6772E+03_JPRB/)  
+KAO( :, 9,14) = (/&
+ & 2.0608E+03_JPRB,2.0242E+03_JPRB,1.9804E+03_JPRB,1.9383E+03_JPRB,1.9020E+03_JPRB/)  
+KAO( :,10,14) = (/&
+ & 2.3189E+03_JPRB,2.2831E+03_JPRB,2.2391E+03_JPRB,2.1847E+03_JPRB,2.1380E+03_JPRB/)  
+KAO( :,11,14) = (/&
+ & 2.5479E+03_JPRB,2.4992E+03_JPRB,2.4561E+03_JPRB,2.4037E+03_JPRB,2.3531E+03_JPRB/)  
+KAO( :,12,14) = (/&
+ & 2.7503E+03_JPRB,2.6955E+03_JPRB,2.6487E+03_JPRB,2.6000E+03_JPRB,2.5509E+03_JPRB/)  
+KAO( :,13,14) = (/&
+ & 2.9348E+03_JPRB,2.8771E+03_JPRB,2.8224E+03_JPRB,2.7731E+03_JPRB,2.7137E+03_JPRB/)  
+KAO( :, 1,15) = (/&
+ & 1.0087E+03_JPRB,9.8320E+02_JPRB,9.7093E+02_JPRB,9.5615E+02_JPRB,9.3254E+02_JPRB/)  
+KAO( :, 2,15) = (/&
+ & 1.2013E+03_JPRB,1.1684E+03_JPRB,1.1519E+03_JPRB,1.1213E+03_JPRB,1.1065E+03_JPRB/)  
+KAO( :, 3,15) = (/&
+ & 1.4276E+03_JPRB,1.4001E+03_JPRB,1.3700E+03_JPRB,1.3257E+03_JPRB,1.3068E+03_JPRB/)  
+KAO( :, 4,15) = (/&
+ & 1.6836E+03_JPRB,1.6523E+03_JPRB,1.6210E+03_JPRB,1.5698E+03_JPRB,1.5625E+03_JPRB/)  
+KAO( :, 5,15) = (/&
+ & 1.9769E+03_JPRB,1.9333E+03_JPRB,1.9035E+03_JPRB,1.8613E+03_JPRB,1.8254E+03_JPRB/)  
+KAO( :, 6,15) = (/&
+ & 2.3172E+03_JPRB,2.2683E+03_JPRB,2.2153E+03_JPRB,2.1871E+03_JPRB,2.1654E+03_JPRB/)  
+KAO( :, 7,15) = (/&
+ & 2.6839E+03_JPRB,2.6608E+03_JPRB,2.5827E+03_JPRB,2.5461E+03_JPRB,2.5090E+03_JPRB/)  
+KAO( :, 8,15) = (/&
+ & 3.0767E+03_JPRB,3.0634E+03_JPRB,3.0007E+03_JPRB,2.9429E+03_JPRB,2.9079E+03_JPRB/)  
+KAO( :, 9,15) = (/&
+ & 3.4941E+03_JPRB,3.4634E+03_JPRB,3.4221E+03_JPRB,3.3814E+03_JPRB,3.3456E+03_JPRB/)  
+KAO( :,10,15) = (/&
+ & 3.9537E+03_JPRB,3.9378E+03_JPRB,3.9008E+03_JPRB,3.8414E+03_JPRB,3.8169E+03_JPRB/)  
+KAO( :,11,15) = (/&
+ & 4.5046E+03_JPRB,4.4637E+03_JPRB,4.4210E+03_JPRB,4.3583E+03_JPRB,4.3332E+03_JPRB/)  
+KAO( :,12,15) = (/&
+ & 5.1528E+03_JPRB,5.0823E+03_JPRB,5.0105E+03_JPRB,4.9465E+03_JPRB,4.9071E+03_JPRB/)  
+KAO( :,13,15) = (/&
+ & 5.8749E+03_JPRB,5.7913E+03_JPRB,5.6995E+03_JPRB,5.6331E+03_JPRB,5.5557E+03_JPRB/)  
+KAO( :, 1,16) = (/&
+ & 1.2189E+03_JPRB,1.2224E+03_JPRB,1.2164E+03_JPRB,1.2064E+03_JPRB,1.1935E+03_JPRB/)  
+KAO( :, 2,16) = (/&
+ & 1.4789E+03_JPRB,1.4888E+03_JPRB,1.4867E+03_JPRB,1.4809E+03_JPRB,1.4687E+03_JPRB/)  
+KAO( :, 3,16) = (/&
+ & 1.8114E+03_JPRB,1.8246E+03_JPRB,1.8350E+03_JPRB,1.8138E+03_JPRB,1.8019E+03_JPRB/)  
+KAO( :, 4,16) = (/&
+ & 2.1704E+03_JPRB,2.2074E+03_JPRB,2.2239E+03_JPRB,2.2048E+03_JPRB,2.2173E+03_JPRB/)  
+KAO( :, 5,16) = (/&
+ & 2.5886E+03_JPRB,2.6353E+03_JPRB,2.6810E+03_JPRB,2.6789E+03_JPRB,2.6704E+03_JPRB/)  
+KAO( :, 6,16) = (/&
+ & 3.0777E+03_JPRB,3.1359E+03_JPRB,3.1850E+03_JPRB,3.2159E+03_JPRB,3.2625E+03_JPRB/)  
+KAO( :, 7,16) = (/&
+ & 3.6815E+03_JPRB,3.7549E+03_JPRB,3.7825E+03_JPRB,3.8441E+03_JPRB,3.9118E+03_JPRB/)  
+KAO( :, 8,16) = (/&
+ & 4.4826E+03_JPRB,4.4982E+03_JPRB,4.5205E+03_JPRB,4.5598E+03_JPRB,4.6673E+03_JPRB/)  
+KAO( :, 9,16) = (/&
+ & 5.4808E+03_JPRB,5.4311E+03_JPRB,5.4325E+03_JPRB,5.4480E+03_JPRB,5.4909E+03_JPRB/)  
+KAO( :,10,16) = (/&
+ & 6.6128E+03_JPRB,6.5719E+03_JPRB,6.5761E+03_JPRB,6.5449E+03_JPRB,6.5647E+03_JPRB/)  
+KAO( :,11,16) = (/&
+ & 7.9375E+03_JPRB,7.9476E+03_JPRB,7.9279E+03_JPRB,7.8912E+03_JPRB,7.8532E+03_JPRB/)  
+KAO( :,12,16) = (/&
+ & 9.5403E+03_JPRB,9.5531E+03_JPRB,9.5122E+03_JPRB,9.4385E+03_JPRB,9.3648E+03_JPRB/)  
+KAO( :,13,16) = (/&
+ & 1.1398E+04_JPRB,1.1400E+04_JPRB,1.1334E+04_JPRB,1.1241E+04_JPRB,1.1075E+04_JPRB/)  
+
+!     The array KBO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels < ~100mb and temperatures. The first 
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this pressure 
+!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for
+!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  
+!     The second index, JP, runs from 13 to 59 and refers to the JPth
+!     reference pressure level (see taumol.f for the value of these
+!     pressure levels in mb).  The third index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+
+KBO( :,13, 1) = (/&
+ & 6.6025E-02_JPRB,6.0321E-02_JPRB,5.5586E-02_JPRB,5.1665E-02_JPRB,4.8458E-02_JPRB/)  
+KBO( :,14, 1) = (/&
+ & 6.0235E-02_JPRB,5.5378E-02_JPRB,5.1361E-02_JPRB,4.8017E-02_JPRB,4.5225E-02_JPRB/)  
+KBO( :,15, 1) = (/&
+ & 5.4400E-02_JPRB,5.0262E-02_JPRB,4.6762E-02_JPRB,4.3816E-02_JPRB,4.1346E-02_JPRB/)  
+KBO( :,16, 1) = (/&
+ & 4.7050E-02_JPRB,4.3532E-02_JPRB,4.0554E-02_JPRB,3.8051E-02_JPRB,3.5973E-02_JPRB/)  
+KBO( :,17, 1) = (/&
+ & 4.0158E-02_JPRB,3.7199E-02_JPRB,3.4718E-02_JPRB,3.2658E-02_JPRB,3.0958E-02_JPRB/)  
+KBO( :,18, 1) = (/&
+ & 3.3944E-02_JPRB,3.1506E-02_JPRB,2.9487E-02_JPRB,2.7811E-02_JPRB,2.6421E-02_JPRB/)  
+KBO( :,19, 1) = (/&
+ & 2.8784E-02_JPRB,2.6805E-02_JPRB,2.5163E-02_JPRB,2.3816E-02_JPRB,2.2648E-02_JPRB/)  
+KBO( :,20, 1) = (/&
+ & 2.4061E-02_JPRB,2.2468E-02_JPRB,2.1155E-02_JPRB,2.0067E-02_JPRB,1.9096E-02_JPRB/)  
+KBO( :,21, 1) = (/&
+ & 2.0001E-02_JPRB,1.8722E-02_JPRB,1.7675E-02_JPRB,1.6787E-02_JPRB,1.5981E-02_JPRB/)  
+KBO( :,22, 1) = (/&
+ & 1.6465E-02_JPRB,1.5454E-02_JPRB,1.4621E-02_JPRB,1.3904E-02_JPRB,1.3240E-02_JPRB/)  
+KBO( :,23, 1) = (/&
+ & 1.3531E-02_JPRB,1.2731E-02_JPRB,1.2060E-02_JPRB,1.1483E-02_JPRB,1.0937E-02_JPRB/)  
+KBO( :,24, 1) = (/&
+ & 1.1122E-02_JPRB,1.0488E-02_JPRB,9.9449E-03_JPRB,9.4777E-03_JPRB,9.0360E-03_JPRB/)  
+KBO( :,25, 1) = (/&
+ & 9.1073E-03_JPRB,8.6036E-03_JPRB,8.1702E-03_JPRB,7.7857E-03_JPRB,7.4321E-03_JPRB/)  
+KBO( :,26, 1) = (/&
+ & 7.4301E-03_JPRB,7.0285E-03_JPRB,6.6816E-03_JPRB,6.3677E-03_JPRB,6.0862E-03_JPRB/)  
+KBO( :,27, 1) = (/&
+ & 6.0232E-03_JPRB,5.7026E-03_JPRB,5.4272E-03_JPRB,5.1710E-03_JPRB,4.9473E-03_JPRB/)  
+KBO( :,28, 1) = (/&
+ & 4.8603E-03_JPRB,4.6055E-03_JPRB,4.3859E-03_JPRB,4.1792E-03_JPRB,4.0017E-03_JPRB/)  
+KBO( :,29, 1) = (/&
+ & 3.8797E-03_JPRB,3.6792E-03_JPRB,3.5020E-03_JPRB,3.3388E-03_JPRB,3.1981E-03_JPRB/)  
+KBO( :,30, 1) = (/&
+ & 3.0812E-03_JPRB,2.9236E-03_JPRB,2.7805E-03_JPRB,2.6518E-03_JPRB,2.5406E-03_JPRB/)  
+KBO( :,31, 1) = (/&
+ & 2.4193E-03_JPRB,2.2960E-03_JPRB,2.1816E-03_JPRB,2.0808E-03_JPRB,1.9933E-03_JPRB/)  
+KBO( :,32, 1) = (/&
+ & 1.8919E-03_JPRB,1.7956E-03_JPRB,1.7054E-03_JPRB,1.6268E-03_JPRB,1.5587E-03_JPRB/)  
+KBO( :,33, 1) = (/&
+ & 1.4723E-03_JPRB,1.3971E-03_JPRB,1.3273E-03_JPRB,1.2662E-03_JPRB,1.2122E-03_JPRB/)  
+KBO( :,34, 1) = (/&
+ & 1.1545E-03_JPRB,1.0954E-03_JPRB,1.0408E-03_JPRB,9.9313E-04_JPRB,9.5040E-04_JPRB/)  
+KBO( :,35, 1) = (/&
+ & 9.0984E-04_JPRB,8.6285E-04_JPRB,8.1968E-04_JPRB,7.8221E-04_JPRB,7.4823E-04_JPRB/)  
+KBO( :,36, 1) = (/&
+ & 7.2230E-04_JPRB,6.8430E-04_JPRB,6.4998E-04_JPRB,6.2002E-04_JPRB,5.9274E-04_JPRB/)  
+KBO( :,37, 1) = (/&
+ & 5.8190E-04_JPRB,5.5079E-04_JPRB,5.2276E-04_JPRB,4.9827E-04_JPRB,4.7605E-04_JPRB/)  
+KBO( :,38, 1) = (/&
+ & 4.6798E-04_JPRB,4.4253E-04_JPRB,4.1941E-04_JPRB,3.9951E-04_JPRB,3.8152E-04_JPRB/)  
+KBO( :,39, 1) = (/&
+ & 3.7512E-04_JPRB,3.5422E-04_JPRB,3.3519E-04_JPRB,3.1894E-04_JPRB,3.0452E-04_JPRB/)  
+KBO( :,40, 1) = (/&
+ & 3.0666E-04_JPRB,2.8941E-04_JPRB,2.7336E-04_JPRB,2.6010E-04_JPRB,2.4845E-04_JPRB/)  
+KBO( :,41, 1) = (/&
+ & 2.5152E-04_JPRB,2.3686E-04_JPRB,2.2364E-04_JPRB,2.1291E-04_JPRB,2.0310E-04_JPRB/)  
+KBO( :,42, 1) = (/&
+ & 2.0566E-04_JPRB,1.9385E-04_JPRB,1.8299E-04_JPRB,1.7309E-04_JPRB,1.6576E-04_JPRB/)  
+KBO( :,43, 1) = (/&
+ & 1.6932E-04_JPRB,1.5934E-04_JPRB,1.5033E-04_JPRB,1.4188E-04_JPRB,1.3564E-04_JPRB/)  
+KBO( :,44, 1) = (/&
+ & 1.3958E-04_JPRB,1.3104E-04_JPRB,1.2350E-04_JPRB,1.1633E-04_JPRB,1.1027E-04_JPRB/)  
+KBO( :,45, 1) = (/&
+ & 1.1479E-04_JPRB,1.0750E-04_JPRB,1.0104E-04_JPRB,9.5141E-05_JPRB,8.9953E-05_JPRB/)  
+KBO( :,46, 1) = (/&
+ & 9.4553E-05_JPRB,8.8276E-05_JPRB,8.2742E-05_JPRB,7.7888E-05_JPRB,7.3435E-05_JPRB/)  
+KBO( :,47, 1) = (/&
+ & 7.8399E-05_JPRB,7.2932E-05_JPRB,6.8177E-05_JPRB,6.4080E-05_JPRB,6.0318E-05_JPRB/)  
+KBO( :,48, 1) = (/&
+ & 6.4849E-05_JPRB,5.9884E-05_JPRB,5.6012E-05_JPRB,5.2488E-05_JPRB,4.9388E-05_JPRB/)  
+KBO( :,49, 1) = (/&
+ & 5.3502E-05_JPRB,4.9159E-05_JPRB,4.5822E-05_JPRB,4.2806E-05_JPRB,4.0245E-05_JPRB/)  
+KBO( :,50, 1) = (/&
+ & 4.4506E-05_JPRB,4.0716E-05_JPRB,3.7652E-05_JPRB,3.5217E-05_JPRB,3.3017E-05_JPRB/)  
+KBO( :,51, 1) = (/&
+ & 3.7201E-05_JPRB,3.3887E-05_JPRB,3.1219E-05_JPRB,2.9106E-05_JPRB,2.7216E-05_JPRB/)  
+KBO( :,52, 1) = (/&
+ & 3.0990E-05_JPRB,2.8176E-05_JPRB,2.5850E-05_JPRB,2.4002E-05_JPRB,2.2382E-05_JPRB/)  
+KBO( :,53, 1) = (/&
+ & 2.5835E-05_JPRB,2.3389E-05_JPRB,2.1361E-05_JPRB,1.9746E-05_JPRB,1.8343E-05_JPRB/)  
+KBO( :,54, 1) = (/&
+ & 2.1861E-05_JPRB,1.9731E-05_JPRB,1.7961E-05_JPRB,1.6554E-05_JPRB,1.5340E-05_JPRB/)  
+KBO( :,55, 1) = (/&
+ & 1.8660E-05_JPRB,1.6806E-05_JPRB,1.5260E-05_JPRB,1.3974E-05_JPRB,1.2979E-05_JPRB/)  
+KBO( :,56, 1) = (/&
+ & 1.5934E-05_JPRB,1.4319E-05_JPRB,1.2975E-05_JPRB,1.1855E-05_JPRB,1.0987E-05_JPRB/)  
+KBO( :,57, 1) = (/&
+ & 1.3617E-05_JPRB,1.2204E-05_JPRB,1.1040E-05_JPRB,1.0065E-05_JPRB,9.2784E-06_JPRB/)  
+KBO( :,58, 1) = (/&
+ & 1.1657E-05_JPRB,1.0421E-05_JPRB,9.4154E-06_JPRB,8.5710E-06_JPRB,7.8889E-06_JPRB/)  
+KBO( :,59, 1) = (/&
+ & 1.0037E-05_JPRB,8.9852E-06_JPRB,8.1354E-06_JPRB,7.4217E-06_JPRB,6.8483E-06_JPRB/)  
+KBO( :,13, 2) = (/&
+ & 1.7296E-01_JPRB,1.6235E-01_JPRB,1.5299E-01_JPRB,1.4476E-01_JPRB,1.3736E-01_JPRB/)  
+KBO( :,14, 2) = (/&
+ & 1.4802E-01_JPRB,1.3939E-01_JPRB,1.3201E-01_JPRB,1.2559E-01_JPRB,1.1999E-01_JPRB/)  
+KBO( :,15, 2) = (/&
+ & 1.2666E-01_JPRB,1.2001E-01_JPRB,1.1439E-01_JPRB,1.0960E-01_JPRB,1.0553E-01_JPRB/)  
+KBO( :,16, 2) = (/&
+ & 1.0662E-01_JPRB,1.0147E-01_JPRB,9.7166E-02_JPRB,9.3517E-02_JPRB,9.0354E-02_JPRB/)  
+KBO( :,17, 2) = (/&
+ & 8.9370E-02_JPRB,8.5365E-02_JPRB,8.2044E-02_JPRB,7.9207E-02_JPRB,7.6642E-02_JPRB/)  
+KBO( :,18, 2) = (/&
+ & 7.4539E-02_JPRB,7.1393E-02_JPRB,6.8781E-02_JPRB,6.6515E-02_JPRB,6.4461E-02_JPRB/)  
+KBO( :,19, 2) = (/&
+ & 6.2471E-02_JPRB,5.9987E-02_JPRB,5.7923E-02_JPRB,5.6100E-02_JPRB,5.4514E-02_JPRB/)  
+KBO( :,20, 2) = (/&
+ & 5.1909E-02_JPRB,4.9946E-02_JPRB,4.8296E-02_JPRB,4.6857E-02_JPRB,4.5636E-02_JPRB/)  
+KBO( :,21, 2) = (/&
+ & 4.2988E-02_JPRB,4.1439E-02_JPRB,4.0114E-02_JPRB,3.8994E-02_JPRB,3.8038E-02_JPRB/)  
+KBO( :,22, 2) = (/&
+ & 3.5398E-02_JPRB,3.4178E-02_JPRB,3.3135E-02_JPRB,3.2273E-02_JPRB,3.1510E-02_JPRB/)  
+KBO( :,23, 2) = (/&
+ & 2.9122E-02_JPRB,2.8160E-02_JPRB,2.7348E-02_JPRB,2.6671E-02_JPRB,2.6057E-02_JPRB/)  
+KBO( :,24, 2) = (/&
+ & 2.4007E-02_JPRB,2.3245E-02_JPRB,2.2611E-02_JPRB,2.2076E-02_JPRB,2.1589E-02_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB1:PART2',1,ZHOOK_HANDLE)
+END SUBROUTINE PART2
+
+
+SUBROUTINE PART3
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB1:PART3',0,ZHOOK_HANDLE)
+
+
+KBO( :,25, 2) = (/&
+ & 1.9740E-02_JPRB,1.9139E-02_JPRB,1.8649E-02_JPRB,1.8220E-02_JPRB,1.7833E-02_JPRB/)  
+KBO( :,26, 2) = (/&
+ & 1.6183E-02_JPRB,1.5716E-02_JPRB,1.5331E-02_JPRB,1.4993E-02_JPRB,1.4681E-02_JPRB/)  
+KBO( :,27, 2) = (/&
+ & 1.3189E-02_JPRB,1.2828E-02_JPRB,1.2525E-02_JPRB,1.2251E-02_JPRB,1.1998E-02_JPRB/)  
+KBO( :,28, 2) = (/&
+ & 1.0709E-02_JPRB,1.0427E-02_JPRB,1.0183E-02_JPRB,9.9604E-03_JPRB,9.7547E-03_JPRB/)  
+KBO( :,29, 2) = (/&
+ & 8.6054E-03_JPRB,8.3799E-03_JPRB,8.1829E-03_JPRB,8.0027E-03_JPRB,7.8337E-03_JPRB/)  
+KBO( :,30, 2) = (/&
+ & 6.8847E-03_JPRB,6.7028E-03_JPRB,6.5429E-03_JPRB,6.3953E-03_JPRB,6.2560E-03_JPRB/)  
+KBO( :,31, 2) = (/&
+ & 5.4573E-03_JPRB,5.3105E-03_JPRB,5.1791E-03_JPRB,5.0569E-03_JPRB,4.9413E-03_JPRB/)  
+KBO( :,32, 2) = (/&
+ & 4.3219E-03_JPRB,4.2029E-03_JPRB,4.0937E-03_JPRB,3.9929E-03_JPRB,3.8969E-03_JPRB/)  
+KBO( :,33, 2) = (/&
+ & 3.4170E-03_JPRB,3.3182E-03_JPRB,3.2286E-03_JPRB,3.1450E-03_JPRB,3.0655E-03_JPRB/)  
+KBO( :,34, 2) = (/&
+ & 2.7189E-03_JPRB,2.6370E-03_JPRB,2.5635E-03_JPRB,2.4948E-03_JPRB,2.4287E-03_JPRB/)  
+KBO( :,35, 2) = (/&
+ & 2.1701E-03_JPRB,2.1021E-03_JPRB,2.0414E-03_JPRB,1.9845E-03_JPRB,1.9298E-03_JPRB/)  
+KBO( :,36, 2) = (/&
+ & 1.7404E-03_JPRB,1.6842E-03_JPRB,1.6334E-03_JPRB,1.5862E-03_JPRB,1.5407E-03_JPRB/)  
+KBO( :,37, 2) = (/&
+ & 1.4096E-03_JPRB,1.3631E-03_JPRB,1.3204E-03_JPRB,1.2809E-03_JPRB,1.2432E-03_JPRB/)  
+KBO( :,38, 2) = (/&
+ & 1.1406E-03_JPRB,1.1018E-03_JPRB,1.0661E-03_JPRB,1.0329E-03_JPRB,1.0017E-03_JPRB/)  
+KBO( :,39, 2) = (/&
+ & 9.2061E-04_JPRB,8.8850E-04_JPRB,8.5860E-04_JPRB,8.3080E-04_JPRB,8.0479E-04_JPRB/)  
+KBO( :,40, 2) = (/&
+ & 7.5311E-04_JPRB,7.2636E-04_JPRB,7.0127E-04_JPRB,6.7848E-04_JPRB,6.5692E-04_JPRB/)  
+KBO( :,41, 2) = (/&
+ & 6.1744E-04_JPRB,5.9466E-04_JPRB,5.7382E-04_JPRB,5.5531E-04_JPRB,5.3731E-04_JPRB/)  
+KBO( :,42, 2) = (/&
+ & 5.0580E-04_JPRB,4.8681E-04_JPRB,4.6945E-04_JPRB,4.5312E-04_JPRB,4.3911E-04_JPRB/)  
+KBO( :,43, 2) = (/&
+ & 4.1621E-04_JPRB,3.9990E-04_JPRB,3.8526E-04_JPRB,3.7146E-04_JPRB,3.5984E-04_JPRB/)  
+KBO( :,44, 2) = (/&
+ & 3.4312E-04_JPRB,3.2894E-04_JPRB,3.1642E-04_JPRB,3.0474E-04_JPRB,2.9403E-04_JPRB/)  
+KBO( :,45, 2) = (/&
+ & 2.8281E-04_JPRB,2.7042E-04_JPRB,2.5951E-04_JPRB,2.4968E-04_JPRB,2.4057E-04_JPRB/)  
+KBO( :,46, 2) = (/&
+ & 2.3357E-04_JPRB,2.2272E-04_JPRB,2.1318E-04_JPRB,2.0478E-04_JPRB,1.9704E-04_JPRB/)  
+KBO( :,47, 2) = (/&
+ & 1.9389E-04_JPRB,1.8431E-04_JPRB,1.7596E-04_JPRB,1.6864E-04_JPRB,1.6210E-04_JPRB/)  
+KBO( :,48, 2) = (/&
+ & 1.6095E-04_JPRB,1.5228E-04_JPRB,1.4517E-04_JPRB,1.3875E-04_JPRB,1.3313E-04_JPRB/)  
+KBO( :,49, 2) = (/&
+ & 1.3353E-04_JPRB,1.2596E-04_JPRB,1.1967E-04_JPRB,1.1403E-04_JPRB,1.0914E-04_JPRB/)  
+KBO( :,50, 2) = (/&
+ & 1.1117E-04_JPRB,1.0462E-04_JPRB,9.8990E-05_JPRB,9.4240E-05_JPRB,8.9977E-05_JPRB/)  
+KBO( :,51, 2) = (/&
+ & 9.2729E-05_JPRB,8.7105E-05_JPRB,8.2233E-05_JPRB,7.8109E-05_JPRB,7.4418E-05_JPRB/)  
+KBO( :,52, 2) = (/&
+ & 7.7287E-05_JPRB,7.2506E-05_JPRB,6.8306E-05_JPRB,6.4721E-05_JPRB,6.1530E-05_JPRB/)  
+KBO( :,53, 2) = (/&
+ & 6.4464E-05_JPRB,6.0324E-05_JPRB,5.6713E-05_JPRB,5.3606E-05_JPRB,5.0841E-05_JPRB/)  
+KBO( :,54, 2) = (/&
+ & 5.4091E-05_JPRB,5.0519E-05_JPRB,4.7424E-05_JPRB,4.4759E-05_JPRB,4.2387E-05_JPRB/)  
+KBO( :,55, 2) = (/&
+ & 4.5573E-05_JPRB,4.2477E-05_JPRB,3.9832E-05_JPRB,3.7495E-05_JPRB,3.5529E-05_JPRB/)  
+KBO( :,56, 2) = (/&
+ & 3.8441E-05_JPRB,3.5737E-05_JPRB,3.3472E-05_JPRB,3.1478E-05_JPRB,2.9797E-05_JPRB/)  
+KBO( :,57, 2) = (/&
+ & 3.2461E-05_JPRB,3.0095E-05_JPRB,2.8145E-05_JPRB,2.6441E-05_JPRB,2.4970E-05_JPRB/)  
+KBO( :,58, 2) = (/&
+ & 2.7443E-05_JPRB,2.5378E-05_JPRB,2.3692E-05_JPRB,2.2241E-05_JPRB,2.0988E-05_JPRB/)  
+KBO( :,59, 2) = (/&
+ & 2.3149E-05_JPRB,2.1418E-05_JPRB,2.0012E-05_JPRB,1.8802E-05_JPRB,1.7768E-05_JPRB/)  
+KBO( :,13, 3) = (/&
+ & 2.8224E-01_JPRB,2.6908E-01_JPRB,2.5766E-01_JPRB,2.4741E-01_JPRB,2.3813E-01_JPRB/)  
+KBO( :,14, 3) = (/&
+ & 2.4257E-01_JPRB,2.3240E-01_JPRB,2.2331E-01_JPRB,2.1490E-01_JPRB,2.0721E-01_JPRB/)  
+KBO( :,15, 3) = (/&
+ & 2.0889E-01_JPRB,2.0084E-01_JPRB,1.9363E-01_JPRB,1.8713E-01_JPRB,1.8096E-01_JPRB/)  
+KBO( :,16, 3) = (/&
+ & 1.7673E-01_JPRB,1.7035E-01_JPRB,1.6477E-01_JPRB,1.5966E-01_JPRB,1.5481E-01_JPRB/)  
+KBO( :,17, 3) = (/&
+ & 1.4881E-01_JPRB,1.4382E-01_JPRB,1.3951E-01_JPRB,1.3543E-01_JPRB,1.3171E-01_JPRB/)  
+KBO( :,18, 3) = (/&
+ & 1.2458E-01_JPRB,1.2075E-01_JPRB,1.1737E-01_JPRB,1.1420E-01_JPRB,1.1137E-01_JPRB/)  
+KBO( :,19, 3) = (/&
+ & 1.0492E-01_JPRB,1.0202E-01_JPRB,9.9387E-02_JPRB,9.7022E-02_JPRB,9.4878E-02_JPRB/)  
+KBO( :,20, 3) = (/&
+ & 8.7628E-02_JPRB,8.5398E-02_JPRB,8.3368E-02_JPRB,8.1588E-02_JPRB,7.9957E-02_JPRB/)  
+KBO( :,21, 3) = (/&
+ & 7.2933E-02_JPRB,7.1178E-02_JPRB,6.9640E-02_JPRB,6.8291E-02_JPRB,6.7043E-02_JPRB/)  
+KBO( :,22, 3) = (/&
+ & 6.0366E-02_JPRB,5.8999E-02_JPRB,5.7832E-02_JPRB,5.6813E-02_JPRB,5.5848E-02_JPRB/)  
+KBO( :,23, 3) = (/&
+ & 4.9914E-02_JPRB,4.8873E-02_JPRB,4.8003E-02_JPRB,4.7216E-02_JPRB,4.6455E-02_JPRB/)  
+KBO( :,24, 3) = (/&
+ & 4.1391E-02_JPRB,4.0620E-02_JPRB,3.9959E-02_JPRB,3.9347E-02_JPRB,3.8754E-02_JPRB/)  
+KBO( :,25, 3) = (/&
+ & 3.4252E-02_JPRB,3.3678E-02_JPRB,3.3169E-02_JPRB,3.2674E-02_JPRB,3.2208E-02_JPRB/)  
+KBO( :,26, 3) = (/&
+ & 2.8274E-02_JPRB,2.7835E-02_JPRB,2.7424E-02_JPRB,2.7032E-02_JPRB,2.6670E-02_JPRB/)  
+KBO( :,27, 3) = (/&
+ & 2.3167E-02_JPRB,2.2814E-02_JPRB,2.2487E-02_JPRB,2.2168E-02_JPRB,2.1877E-02_JPRB/)  
+KBO( :,28, 3) = (/&
+ & 1.8878E-02_JPRB,1.8591E-02_JPRB,1.8322E-02_JPRB,1.8060E-02_JPRB,1.7820E-02_JPRB/)  
+KBO( :,29, 3) = (/&
+ & 1.5174E-02_JPRB,1.4934E-02_JPRB,1.4701E-02_JPRB,1.4483E-02_JPRB,1.4279E-02_JPRB/)  
+KBO( :,30, 3) = (/&
+ & 1.2128E-02_JPRB,1.1922E-02_JPRB,1.1721E-02_JPRB,1.1534E-02_JPRB,1.1359E-02_JPRB/)  
+KBO( :,31, 3) = (/&
+ & 9.5821E-03_JPRB,9.4015E-03_JPRB,9.2253E-03_JPRB,9.0655E-03_JPRB,8.9152E-03_JPRB/)  
+KBO( :,32, 3) = (/&
+ & 7.5634E-03_JPRB,7.4049E-03_JPRB,7.2553E-03_JPRB,7.1189E-03_JPRB,6.9900E-03_JPRB/)  
+KBO( :,33, 3) = (/&
+ & 5.9579E-03_JPRB,5.8225E-03_JPRB,5.6947E-03_JPRB,5.5780E-03_JPRB,5.4685E-03_JPRB/)  
+KBO( :,34, 3) = (/&
+ & 4.7299E-03_JPRB,4.6155E-03_JPRB,4.5082E-03_JPRB,4.4109E-03_JPRB,4.3191E-03_JPRB/)  
+KBO( :,35, 3) = (/&
+ & 3.7680E-03_JPRB,3.6721E-03_JPRB,3.5816E-03_JPRB,3.4997E-03_JPRB,3.4229E-03_JPRB/)  
+KBO( :,36, 3) = (/&
+ & 3.0177E-03_JPRB,2.9373E-03_JPRB,2.8611E-03_JPRB,2.7917E-03_JPRB,2.7276E-03_JPRB/)  
+KBO( :,37, 3) = (/&
+ & 2.4418E-03_JPRB,2.3740E-03_JPRB,2.3098E-03_JPRB,2.2509E-03_JPRB,2.1971E-03_JPRB/)  
+KBO( :,38, 3) = (/&
+ & 1.9747E-03_JPRB,1.9173E-03_JPRB,1.8635E-03_JPRB,1.8136E-03_JPRB,1.7682E-03_JPRB/)  
+KBO( :,39, 3) = (/&
+ & 1.5944E-03_JPRB,1.5460E-03_JPRB,1.5009E-03_JPRB,1.4588E-03_JPRB,1.4203E-03_JPRB/)  
+KBO( :,40, 3) = (/&
+ & 1.3041E-03_JPRB,1.2634E-03_JPRB,1.2255E-03_JPRB,1.1907E-03_JPRB,1.1583E-03_JPRB/)  
+KBO( :,41, 3) = (/&
+ & 1.0685E-03_JPRB,1.0341E-03_JPRB,1.0025E-03_JPRB,9.7393E-04_JPRB,9.4659E-04_JPRB/)  
+KBO( :,42, 3) = (/&
+ & 8.7449E-04_JPRB,8.4639E-04_JPRB,8.1987E-04_JPRB,7.9484E-04_JPRB,7.7315E-04_JPRB/)  
+KBO( :,43, 3) = (/&
+ & 7.1788E-04_JPRB,6.9483E-04_JPRB,6.7250E-04_JPRB,6.5138E-04_JPRB,6.3319E-04_JPRB/)  
+KBO( :,44, 3) = (/&
+ & 5.8977E-04_JPRB,5.7088E-04_JPRB,5.5200E-04_JPRB,5.3418E-04_JPRB,5.1765E-04_JPRB/)  
+KBO( :,45, 3) = (/&
+ & 4.8411E-04_JPRB,4.6836E-04_JPRB,4.5260E-04_JPRB,4.3755E-04_JPRB,4.2370E-04_JPRB/)  
+KBO( :,46, 3) = (/&
+ & 3.9795E-04_JPRB,3.8453E-04_JPRB,3.7150E-04_JPRB,3.5880E-04_JPRB,3.4714E-04_JPRB/)  
+KBO( :,47, 3) = (/&
+ & 3.2839E-04_JPRB,3.1685E-04_JPRB,3.0597E-04_JPRB,2.9536E-04_JPRB,2.8543E-04_JPRB/)  
+KBO( :,48, 3) = (/&
+ & 2.7072E-04_JPRB,2.6046E-04_JPRB,2.5163E-04_JPRB,2.4282E-04_JPRB,2.3441E-04_JPRB/)  
+KBO( :,49, 3) = (/&
+ & 2.2287E-04_JPRB,2.1412E-04_JPRB,2.0662E-04_JPRB,1.9921E-04_JPRB,1.9220E-04_JPRB/)  
+KBO( :,50, 3) = (/&
+ & 1.8426E-04_JPRB,1.7673E-04_JPRB,1.7009E-04_JPRB,1.6411E-04_JPRB,1.5828E-04_JPRB/)  
+KBO( :,51, 3) = (/&
+ & 1.5273E-04_JPRB,1.4618E-04_JPRB,1.4053E-04_JPRB,1.3551E-04_JPRB,1.3063E-04_JPRB/)  
+KBO( :,52, 3) = (/&
+ & 1.2644E-04_JPRB,1.2087E-04_JPRB,1.1601E-04_JPRB,1.1179E-04_JPRB,1.0769E-04_JPRB/)  
+KBO( :,53, 3) = (/&
+ & 1.0472E-04_JPRB,9.9917E-05_JPRB,9.5685E-05_JPRB,9.2134E-05_JPRB,8.8673E-05_JPRB/)  
+KBO( :,54, 3) = (/&
+ & 8.7277E-05_JPRB,8.3176E-05_JPRB,7.9528E-05_JPRB,7.6521E-05_JPRB,7.3630E-05_JPRB/)  
+KBO( :,55, 3) = (/&
+ & 7.3027E-05_JPRB,6.9537E-05_JPRB,6.6419E-05_JPRB,6.3736E-05_JPRB,6.1447E-05_JPRB/)  
+KBO( :,56, 3) = (/&
+ & 6.1140E-05_JPRB,5.8170E-05_JPRB,5.5506E-05_JPRB,5.3220E-05_JPRB,5.1302E-05_JPRB/)  
+KBO( :,57, 3) = (/&
+ & 5.1226E-05_JPRB,4.8684E-05_JPRB,4.6422E-05_JPRB,4.4463E-05_JPRB,4.2775E-05_JPRB/)  
+KBO( :,58, 3) = (/&
+ & 4.2970E-05_JPRB,4.0795E-05_JPRB,3.8883E-05_JPRB,3.7209E-05_JPRB,3.5788E-05_JPRB/)  
+KBO( :,59, 3) = (/&
+ & 3.6137E-05_JPRB,3.4363E-05_JPRB,3.2789E-05_JPRB,3.1431E-05_JPRB,3.0267E-05_JPRB/)  
+KBO( :,13, 4) = (/&
+ & 4.4498E-01_JPRB,4.2624E-01_JPRB,4.0964E-01_JPRB,3.9457E-01_JPRB,3.8094E-01_JPRB/)  
+KBO( :,14, 4) = (/&
+ & 3.8421E-01_JPRB,3.6885E-01_JPRB,3.5551E-01_JPRB,3.4386E-01_JPRB,3.3352E-01_JPRB/)  
+KBO( :,15, 4) = (/&
+ & 3.3432E-01_JPRB,3.2219E-01_JPRB,3.1159E-01_JPRB,3.0226E-01_JPRB,2.9429E-01_JPRB/)  
+KBO( :,16, 4) = (/&
+ & 2.8560E-01_JPRB,2.7613E-01_JPRB,2.6777E-01_JPRB,2.6061E-01_JPRB,2.5464E-01_JPRB/)  
+KBO( :,17, 4) = (/&
+ & 2.4342E-01_JPRB,2.3605E-01_JPRB,2.2955E-01_JPRB,2.2421E-01_JPRB,2.1979E-01_JPRB/)  
+KBO( :,18, 4) = (/&
+ & 2.0619E-01_JPRB,2.0048E-01_JPRB,1.9555E-01_JPRB,1.9161E-01_JPRB,1.8825E-01_JPRB/)  
+KBO( :,19, 4) = (/&
+ & 1.7598E-01_JPRB,1.7158E-01_JPRB,1.6796E-01_JPRB,1.6505E-01_JPRB,1.6259E-01_JPRB/)  
+KBO( :,20, 4) = (/&
+ & 1.4854E-01_JPRB,1.4525E-01_JPRB,1.4255E-01_JPRB,1.4041E-01_JPRB,1.3862E-01_JPRB/)  
+KBO( :,21, 4) = (/&
+ & 1.2481E-01_JPRB,1.2236E-01_JPRB,1.2038E-01_JPRB,1.1880E-01_JPRB,1.1756E-01_JPRB/)  
+KBO( :,22, 4) = (/&
+ & 1.0419E-01_JPRB,1.0238E-01_JPRB,1.0094E-01_JPRB,9.9828E-02_JPRB,9.8963E-02_JPRB/)  
+KBO( :,23, 4) = (/&
+ & 8.6892E-02_JPRB,8.5552E-02_JPRB,8.4508E-02_JPRB,8.3742E-02_JPRB,8.3137E-02_JPRB/)  
+KBO( :,24, 4) = (/&
+ & 7.2705E-02_JPRB,7.1741E-02_JPRB,7.1008E-02_JPRB,7.0499E-02_JPRB,7.0039E-02_JPRB/)  
+KBO( :,25, 4) = (/&
+ & 6.0676E-02_JPRB,5.9993E-02_JPRB,5.9492E-02_JPRB,5.9114E-02_JPRB,5.8730E-02_JPRB/)  
+KBO( :,26, 4) = (/&
+ & 5.0468E-02_JPRB,4.9976E-02_JPRB,4.9610E-02_JPRB,4.9307E-02_JPRB,4.8978E-02_JPRB/)  
+KBO( :,27, 4) = (/&
+ & 4.1559E-02_JPRB,4.1193E-02_JPRB,4.0911E-02_JPRB,4.0637E-02_JPRB,4.0354E-02_JPRB/)  
+KBO( :,28, 4) = (/&
+ & 3.3971E-02_JPRB,3.3679E-02_JPRB,3.3442E-02_JPRB,3.3204E-02_JPRB,3.2964E-02_JPRB/)  
+KBO( :,29, 4) = (/&
+ & 2.7264E-02_JPRB,2.7013E-02_JPRB,2.6808E-02_JPRB,2.6604E-02_JPRB,2.6386E-02_JPRB/)  
+KBO( :,30, 4) = (/&
+ & 2.1713E-02_JPRB,2.1498E-02_JPRB,2.1318E-02_JPRB,2.1130E-02_JPRB,2.0938E-02_JPRB/)  
+KBO( :,31, 4) = (/&
+ & 1.7042E-02_JPRB,1.6858E-02_JPRB,1.6691E-02_JPRB,1.6519E-02_JPRB,1.6352E-02_JPRB/)  
+KBO( :,32, 4) = (/&
+ & 1.3370E-02_JPRB,1.3212E-02_JPRB,1.3061E-02_JPRB,1.2908E-02_JPRB,1.2763E-02_JPRB/)  
+KBO( :,33, 4) = (/&
+ & 1.0471E-02_JPRB,1.0335E-02_JPRB,1.0205E-02_JPRB,1.0071E-02_JPRB,9.9443E-03_JPRB/)  
+KBO( :,34, 4) = (/&
+ & 8.2822E-03_JPRB,8.1673E-03_JPRB,8.0568E-03_JPRB,7.9430E-03_JPRB,7.8343E-03_JPRB/)  
+KBO( :,35, 4) = (/&
+ & 6.5706E-03_JPRB,6.4732E-03_JPRB,6.3800E-03_JPRB,6.2836E-03_JPRB,6.1906E-03_JPRB/)  
+KBO( :,36, 4) = (/&
+ & 5.2374E-03_JPRB,5.1544E-03_JPRB,5.0765E-03_JPRB,4.9959E-03_JPRB,4.9170E-03_JPRB/)  
+KBO( :,37, 4) = (/&
+ & 4.2152E-03_JPRB,4.1453E-03_JPRB,4.0802E-03_JPRB,4.0137E-03_JPRB,3.9470E-03_JPRB/)  
+KBO( :,38, 4) = (/&
+ & 3.3887E-03_JPRB,3.3299E-03_JPRB,3.2750E-03_JPRB,3.2202E-03_JPRB,3.1640E-03_JPRB/)  
+KBO( :,39, 4) = (/&
+ & 2.7192E-03_JPRB,2.6687E-03_JPRB,2.6217E-03_JPRB,2.5767E-03_JPRB,2.5302E-03_JPRB/)  
+KBO( :,40, 4) = (/&
+ & 2.2135E-03_JPRB,2.1698E-03_JPRB,2.1301E-03_JPRB,2.0941E-03_JPRB,2.0563E-03_JPRB/)  
+KBO( :,41, 4) = (/&
+ & 1.8054E-03_JPRB,1.7673E-03_JPRB,1.7338E-03_JPRB,1.7053E-03_JPRB,1.6746E-03_JPRB/)  
+KBO( :,42, 4) = (/&
+ & 1.4708E-03_JPRB,1.4392E-03_JPRB,1.4108E-03_JPRB,1.3843E-03_JPRB,1.3624E-03_JPRB/)  
+KBO( :,43, 4) = (/&
+ & 1.2027E-03_JPRB,1.1753E-03_JPRB,1.1507E-03_JPRB,1.1283E-03_JPRB,1.1105E-03_JPRB/)  
+KBO( :,44, 4) = (/&
+ & 9.8462E-04_JPRB,9.6042E-04_JPRB,9.3913E-04_JPRB,9.1991E-04_JPRB,9.0230E-04_JPRB/)  
+KBO( :,45, 4) = (/&
+ & 8.0542E-04_JPRB,7.8415E-04_JPRB,7.6564E-04_JPRB,7.4892E-04_JPRB,7.3408E-04_JPRB/)  
+KBO( :,46, 4) = (/&
+ & 6.5968E-04_JPRB,6.4114E-04_JPRB,6.2484E-04_JPRB,6.1027E-04_JPRB,5.9757E-04_JPRB/)  
+KBO( :,47, 4) = (/&
+ & 5.4254E-04_JPRB,5.2637E-04_JPRB,5.1198E-04_JPRB,4.9924E-04_JPRB,4.8823E-04_JPRB/)  
+KBO( :,48, 4) = (/&
+ & 4.4583E-04_JPRB,4.3098E-04_JPRB,4.1917E-04_JPRB,4.0789E-04_JPRB,3.9833E-04_JPRB/)  
+KBO( :,49, 4) = (/&
+ & 3.6597E-04_JPRB,3.5313E-04_JPRB,3.4272E-04_JPRB,3.3276E-04_JPRB,3.2437E-04_JPRB/)  
+KBO( :,50, 4) = (/&
+ & 3.0183E-04_JPRB,2.9081E-04_JPRB,2.8109E-04_JPRB,2.7313E-04_JPRB,2.6573E-04_JPRB/)  
+KBO( :,51, 4) = (/&
+ & 2.4952E-04_JPRB,2.4012E-04_JPRB,2.3178E-04_JPRB,2.2484E-04_JPRB,2.1839E-04_JPRB/)  
+KBO( :,52, 4) = (/&
+ & 2.0590E-04_JPRB,1.9816E-04_JPRB,1.9102E-04_JPRB,1.8499E-04_JPRB,1.7939E-04_JPRB/)  
+KBO( :,53, 4) = (/&
+ & 1.6997E-04_JPRB,1.6338E-04_JPRB,1.5728E-04_JPRB,1.5208E-04_JPRB,1.4721E-04_JPRB/)  
+KBO( :,54, 4) = (/&
+ & 1.4137E-04_JPRB,1.3582E-04_JPRB,1.3065E-04_JPRB,1.2623E-04_JPRB,1.2203E-04_JPRB/)  
+KBO( :,55, 4) = (/&
+ & 1.1811E-04_JPRB,1.1349E-04_JPRB,1.0913E-04_JPRB,1.0509E-04_JPRB,1.0178E-04_JPRB/)  
+KBO( :,56, 4) = (/&
+ & 9.8748E-05_JPRB,9.4876E-05_JPRB,9.1206E-05_JPRB,8.7799E-05_JPRB,8.4972E-05_JPRB/)  
+KBO( :,57, 4) = (/&
+ & 8.2626E-05_JPRB,7.9374E-05_JPRB,7.6285E-05_JPRB,7.3421E-05_JPRB,7.0844E-05_JPRB/)  
+KBO( :,58, 4) = (/&
+ & 6.9274E-05_JPRB,6.6523E-05_JPRB,6.3940E-05_JPRB,6.1535E-05_JPRB,5.9367E-05_JPRB/)  
+KBO( :,59, 4) = (/&
+ & 5.8640E-05_JPRB,5.6344E-05_JPRB,5.4214E-05_JPRB,5.2234E-05_JPRB,5.0475E-05_JPRB/)  
+KBO( :,13, 5) = (/&
+ & 7.7160E-01_JPRB,7.4444E-01_JPRB,7.1907E-01_JPRB,6.9531E-01_JPRB,6.7298E-01_JPRB/)  
+KBO( :,14, 5) = (/&
+ & 6.7466E-01_JPRB,6.5300E-01_JPRB,6.3239E-01_JPRB,6.1248E-01_JPRB,5.9379E-01_JPRB/)  
+KBO( :,15, 5) = (/&
+ & 5.9635E-01_JPRB,5.7861E-01_JPRB,5.6121E-01_JPRB,5.4480E-01_JPRB,5.2962E-01_JPRB/)  
+KBO( :,16, 5) = (/&
+ & 5.1541E-01_JPRB,5.0066E-01_JPRB,4.8672E-01_JPRB,4.7349E-01_JPRB,4.6138E-01_JPRB/)  
+KBO( :,17, 5) = (/&
+ & 4.4269E-01_JPRB,4.3080E-01_JPRB,4.1977E-01_JPRB,4.0931E-01_JPRB,3.9988E-01_JPRB/)  
+KBO( :,18, 5) = (/&
+ & 3.7780E-01_JPRB,3.6850E-01_JPRB,3.5976E-01_JPRB,3.5172E-01_JPRB,3.4458E-01_JPRB/)  
+KBO( :,19, 5) = (/&
+ & 3.2514E-01_JPRB,3.1806E-01_JPRB,3.1138E-01_JPRB,3.0554E-01_JPRB,3.0027E-01_JPRB/)  
+KBO( :,20, 5) = (/&
+ & 2.7650E-01_JPRB,2.7122E-01_JPRB,2.6628E-01_JPRB,2.6193E-01_JPRB,2.5804E-01_JPRB/)  
+KBO( :,21, 5) = (/&
+ & 2.3395E-01_JPRB,2.2994E-01_JPRB,2.2632E-01_JPRB,2.2310E-01_JPRB,2.2015E-01_JPRB/)  
+KBO( :,22, 5) = (/&
+ & 1.9653E-01_JPRB,1.9358E-01_JPRB,1.9093E-01_JPRB,1.8856E-01_JPRB,1.8639E-01_JPRB/)  
+KBO( :,23, 5) = (/&
+ & 1.6491E-01_JPRB,1.6277E-01_JPRB,1.6085E-01_JPRB,1.5911E-01_JPRB,1.5759E-01_JPRB/)  
+KBO( :,24, 5) = (/&
+ & 1.3897E-01_JPRB,1.3743E-01_JPRB,1.3602E-01_JPRB,1.3482E-01_JPRB,1.3382E-01_JPRB/)  
+KBO( :,25, 5) = (/&
+ & 1.1669E-01_JPRB,1.1561E-01_JPRB,1.1461E-01_JPRB,1.1379E-01_JPRB,1.1309E-01_JPRB/)  
+KBO( :,26, 5) = (/&
+ & 9.7609E-02_JPRB,9.6847E-02_JPRB,9.6135E-02_JPRB,9.5565E-02_JPRB,9.5002E-02_JPRB/)  
+KBO( :,27, 5) = (/&
+ & 8.0793E-02_JPRB,8.0221E-02_JPRB,7.9703E-02_JPRB,7.9212E-02_JPRB,7.8694E-02_JPRB/)  
+KBO( :,28, 5) = (/&
+ & 6.6330E-02_JPRB,6.5862E-02_JPRB,6.5425E-02_JPRB,6.4984E-02_JPRB,6.4496E-02_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB1:PART3',1,ZHOOK_HANDLE)
+END SUBROUTINE PART3
+
+
+SUBROUTINE PART4
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB1:PART4',0,ZHOOK_HANDLE)
+
+
+KBO( :,29, 5) = (/&
+ & 5.3342E-02_JPRB,5.2927E-02_JPRB,5.2528E-02_JPRB,5.2127E-02_JPRB,5.1683E-02_JPRB/)  
+KBO( :,30, 5) = (/&
+ & 4.2517E-02_JPRB,4.2134E-02_JPRB,4.1768E-02_JPRB,4.1401E-02_JPRB,4.1018E-02_JPRB/)  
+KBO( :,31, 5) = (/&
+ & 3.3321E-02_JPRB,3.2971E-02_JPRB,3.2637E-02_JPRB,3.2307E-02_JPRB,3.1983E-02_JPRB/)  
+KBO( :,32, 5) = (/&
+ & 2.6085E-02_JPRB,2.5777E-02_JPRB,2.5482E-02_JPRB,2.5197E-02_JPRB,2.4920E-02_JPRB/)  
+KBO( :,33, 5) = (/&
+ & 2.0380E-02_JPRB,2.0114E-02_JPRB,1.9855E-02_JPRB,1.9613E-02_JPRB,1.9379E-02_JPRB/)  
+KBO( :,34, 5) = (/&
+ & 1.6094E-02_JPRB,1.5866E-02_JPRB,1.5645E-02_JPRB,1.5443E-02_JPRB,1.5250E-02_JPRB/)  
+KBO( :,35, 5) = (/&
+ & 1.2747E-02_JPRB,1.2551E-02_JPRB,1.2366E-02_JPRB,1.2199E-02_JPRB,1.2040E-02_JPRB/)  
+KBO( :,36, 5) = (/&
+ & 1.0146E-02_JPRB,9.9805E-03_JPRB,9.8261E-03_JPRB,9.6852E-03_JPRB,9.5528E-03_JPRB/)  
+KBO( :,37, 5) = (/&
+ & 8.1592E-03_JPRB,8.0204E-03_JPRB,7.8907E-03_JPRB,7.7704E-03_JPRB,7.6600E-03_JPRB/)  
+KBO( :,38, 5) = (/&
+ & 6.5529E-03_JPRB,6.4351E-03_JPRB,6.3266E-03_JPRB,6.2249E-03_JPRB,6.1328E-03_JPRB/)  
+KBO( :,39, 5) = (/&
+ & 5.2501E-03_JPRB,5.1505E-03_JPRB,5.0574E-03_JPRB,4.9738E-03_JPRB,4.8970E-03_JPRB/)  
+KBO( :,40, 5) = (/&
+ & 4.2699E-03_JPRB,4.1868E-03_JPRB,4.1077E-03_JPRB,4.0405E-03_JPRB,3.9772E-03_JPRB/)  
+KBO( :,41, 5) = (/&
+ & 3.4793E-03_JPRB,3.4089E-03_JPRB,3.3430E-03_JPRB,3.2899E-03_JPRB,3.2370E-03_JPRB/)  
+KBO( :,42, 5) = (/&
+ & 2.8300E-03_JPRB,2.7744E-03_JPRB,2.7198E-03_JPRB,2.6679E-03_JPRB,2.6320E-03_JPRB/)  
+KBO( :,43, 5) = (/&
+ & 2.3102E-03_JPRB,2.2637E-03_JPRB,2.2184E-03_JPRB,2.1738E-03_JPRB,2.1446E-03_JPRB/)  
+KBO( :,44, 5) = (/&
+ & 1.8868E-03_JPRB,1.8478E-03_JPRB,1.8100E-03_JPRB,1.7720E-03_JPRB,1.7388E-03_JPRB/)  
+KBO( :,45, 5) = (/&
+ & 1.5390E-03_JPRB,1.5063E-03_JPRB,1.4743E-03_JPRB,1.4422E-03_JPRB,1.4137E-03_JPRB/)  
+KBO( :,46, 5) = (/&
+ & 1.2560E-03_JPRB,1.2289E-03_JPRB,1.2018E-03_JPRB,1.1747E-03_JPRB,1.1502E-03_JPRB/)  
+KBO( :,47, 5) = (/&
+ & 1.0286E-03_JPRB,1.0064E-03_JPRB,9.8327E-04_JPRB,9.6042E-04_JPRB,9.3954E-04_JPRB/)  
+KBO( :,48, 5) = (/&
+ & 8.4091E-04_JPRB,8.1988E-04_JPRB,8.0308E-04_JPRB,7.8384E-04_JPRB,7.6613E-04_JPRB/)  
+KBO( :,49, 5) = (/&
+ & 6.8566E-04_JPRB,6.6838E-04_JPRB,6.5450E-04_JPRB,6.3815E-04_JPRB,6.2312E-04_JPRB/)  
+KBO( :,50, 5) = (/&
+ & 5.6202E-04_JPRB,5.4792E-04_JPRB,5.3430E-04_JPRB,5.2267E-04_JPRB,5.0999E-04_JPRB/)  
+KBO( :,51, 5) = (/&
+ & 4.6200E-04_JPRB,4.5031E-04_JPRB,4.3906E-04_JPRB,4.2940E-04_JPRB,4.1869E-04_JPRB/)  
+KBO( :,52, 5) = (/&
+ & 3.7843E-04_JPRB,3.6947E-04_JPRB,3.6036E-04_JPRB,3.5233E-04_JPRB,3.4327E-04_JPRB/)  
+KBO( :,53, 5) = (/&
+ & 3.1055E-04_JPRB,3.0267E-04_JPRB,2.9523E-04_JPRB,2.8852E-04_JPRB,2.8094E-04_JPRB/)  
+KBO( :,54, 5) = (/&
+ & 2.5746E-04_JPRB,2.5066E-04_JPRB,2.4444E-04_JPRB,2.3894E-04_JPRB,2.3267E-04_JPRB/)  
+KBO( :,55, 5) = (/&
+ & 2.1472E-04_JPRB,2.0894E-04_JPRB,2.0371E-04_JPRB,1.9841E-04_JPRB,1.9408E-04_JPRB/)  
+KBO( :,56, 5) = (/&
+ & 1.7913E-04_JPRB,1.7430E-04_JPRB,1.6988E-04_JPRB,1.6554E-04_JPRB,1.6197E-04_JPRB/)  
+KBO( :,57, 5) = (/&
+ & 1.4951E-04_JPRB,1.4553E-04_JPRB,1.4177E-04_JPRB,1.3820E-04_JPRB,1.3474E-04_JPRB/)  
+KBO( :,58, 5) = (/&
+ & 1.2504E-04_JPRB,1.2181E-04_JPRB,1.1864E-04_JPRB,1.1569E-04_JPRB,1.1287E-04_JPRB/)  
+KBO( :,59, 5) = (/&
+ & 1.0614E-04_JPRB,1.0364E-04_JPRB,1.0111E-04_JPRB,9.8749E-05_JPRB,9.6452E-05_JPRB/)  
+KBO( :,13, 6) = (/&
+ & 1.5191E+00_JPRB,1.4695E+00_JPRB,1.4192E+00_JPRB,1.3697E+00_JPRB,1.3235E+00_JPRB/)  
+KBO( :,14, 6) = (/&
+ & 1.3318E+00_JPRB,1.2897E+00_JPRB,1.2478E+00_JPRB,1.2076E+00_JPRB,1.1701E+00_JPRB/)  
+KBO( :,15, 6) = (/&
+ & 1.1798E+00_JPRB,1.1443E+00_JPRB,1.1093E+00_JPRB,1.0759E+00_JPRB,1.0445E+00_JPRB/)  
+KBO( :,16, 6) = (/&
+ & 1.0281E+00_JPRB,9.9819E-01_JPRB,9.6877E-01_JPRB,9.4092E-01_JPRB,9.1439E-01_JPRB/)  
+KBO( :,17, 6) = (/&
+ & 8.8986E-01_JPRB,8.6523E-01_JPRB,8.4111E-01_JPRB,8.1786E-01_JPRB,7.9588E-01_JPRB/)  
+KBO( :,18, 6) = (/&
+ & 7.6316E-01_JPRB,7.4298E-01_JPRB,7.2337E-01_JPRB,7.0449E-01_JPRB,6.8700E-01_JPRB/)  
+KBO( :,19, 6) = (/&
+ & 6.5943E-01_JPRB,6.4308E-01_JPRB,6.2731E-01_JPRB,6.1232E-01_JPRB,5.9858E-01_JPRB/)  
+KBO( :,20, 6) = (/&
+ & 5.6316E-01_JPRB,5.4994E-01_JPRB,5.3764E-01_JPRB,5.2623E-01_JPRB,5.1573E-01_JPRB/)  
+KBO( :,21, 6) = (/&
+ & 4.7806E-01_JPRB,4.6791E-01_JPRB,4.5861E-01_JPRB,4.4996E-01_JPRB,4.4207E-01_JPRB/)  
+KBO( :,22, 6) = (/&
+ & 4.0277E-01_JPRB,3.9520E-01_JPRB,3.8813E-01_JPRB,3.8164E-01_JPRB,3.7585E-01_JPRB/)  
+KBO( :,23, 6) = (/&
+ & 3.3902E-01_JPRB,3.3325E-01_JPRB,3.2795E-01_JPRB,3.2312E-01_JPRB,3.1896E-01_JPRB/)  
+KBO( :,24, 6) = (/&
+ & 2.8650E-01_JPRB,2.8213E-01_JPRB,2.7823E-01_JPRB,2.7486E-01_JPRB,2.7205E-01_JPRB/)  
+KBO( :,25, 6) = (/&
+ & 2.4143E-01_JPRB,2.3816E-01_JPRB,2.3547E-01_JPRB,2.3317E-01_JPRB,2.3145E-01_JPRB/)  
+KBO( :,26, 6) = (/&
+ & 2.0266E-01_JPRB,2.0036E-01_JPRB,1.9851E-01_JPRB,1.9709E-01_JPRB,1.9604E-01_JPRB/)  
+KBO( :,27, 6) = (/&
+ & 1.6827E-01_JPRB,1.6669E-01_JPRB,1.6549E-01_JPRB,1.6454E-01_JPRB,1.6379E-01_JPRB/)  
+KBO( :,28, 6) = (/&
+ & 1.3863E-01_JPRB,1.3755E-01_JPRB,1.3670E-01_JPRB,1.3598E-01_JPRB,1.3532E-01_JPRB/)  
+KBO( :,29, 6) = (/&
+ & 1.1195E-01_JPRB,1.1112E-01_JPRB,1.1039E-01_JPRB,1.0972E-01_JPRB,1.0905E-01_JPRB/)  
+KBO( :,30, 6) = (/&
+ & 8.9622E-02_JPRB,8.8892E-02_JPRB,8.8204E-02_JPRB,8.7546E-02_JPRB,8.6864E-02_JPRB/)  
+KBO( :,31, 6) = (/&
+ & 7.0503E-02_JPRB,6.9820E-02_JPRB,6.9151E-02_JPRB,6.8505E-02_JPRB,6.7845E-02_JPRB/)  
+KBO( :,32, 6) = (/&
+ & 5.5386E-02_JPRB,5.4746E-02_JPRB,5.4116E-02_JPRB,5.3514E-02_JPRB,5.2914E-02_JPRB/)  
+KBO( :,33, 6) = (/&
+ & 4.3379E-02_JPRB,4.2797E-02_JPRB,4.2232E-02_JPRB,4.1691E-02_JPRB,4.1166E-02_JPRB/)  
+KBO( :,34, 6) = (/&
+ & 3.4320E-02_JPRB,3.3808E-02_JPRB,3.3321E-02_JPRB,3.2856E-02_JPRB,3.2407E-02_JPRB/)  
+KBO( :,35, 6) = (/&
+ & 2.7216E-02_JPRB,2.6777E-02_JPRB,2.6359E-02_JPRB,2.5963E-02_JPRB,2.5584E-02_JPRB/)  
+KBO( :,36, 6) = (/&
+ & 2.1684E-02_JPRB,2.1311E-02_JPRB,2.0954E-02_JPRB,2.0621E-02_JPRB,2.0303E-02_JPRB/)  
+KBO( :,37, 6) = (/&
+ & 1.7460E-02_JPRB,1.7144E-02_JPRB,1.6842E-02_JPRB,1.6560E-02_JPRB,1.6295E-02_JPRB/)  
+KBO( :,38, 6) = (/&
+ & 1.4038E-02_JPRB,1.3770E-02_JPRB,1.3517E-02_JPRB,1.3278E-02_JPRB,1.3058E-02_JPRB/)  
+KBO( :,39, 6) = (/&
+ & 1.1256E-02_JPRB,1.1031E-02_JPRB,1.0816E-02_JPRB,1.0618E-02_JPRB,1.0434E-02_JPRB/)  
+KBO( :,40, 6) = (/&
+ & 9.1649E-03_JPRB,8.9760E-03_JPRB,8.7972E-03_JPRB,8.6398E-03_JPRB,8.4878E-03_JPRB/)  
+KBO( :,41, 6) = (/&
+ & 7.4755E-03_JPRB,7.3166E-03_JPRB,7.1692E-03_JPRB,7.0488E-03_JPRB,6.9207E-03_JPRB/)  
+KBO( :,42, 6) = (/&
+ & 6.0804E-03_JPRB,5.9624E-03_JPRB,5.8409E-03_JPRB,5.7188E-03_JPRB,5.6367E-03_JPRB/)  
+KBO( :,43, 6) = (/&
+ & 4.9643E-03_JPRB,4.8712E-03_JPRB,4.7704E-03_JPRB,4.6675E-03_JPRB,4.6008E-03_JPRB/)  
+KBO( :,44, 6) = (/&
+ & 4.0546E-03_JPRB,3.9806E-03_JPRB,3.8967E-03_JPRB,3.8101E-03_JPRB,3.7308E-03_JPRB/)  
+KBO( :,45, 6) = (/&
+ & 3.3063E-03_JPRB,3.2467E-03_JPRB,3.1772E-03_JPRB,3.1048E-03_JPRB,3.0380E-03_JPRB/)  
+KBO( :,46, 6) = (/&
+ & 2.6976E-03_JPRB,2.6493E-03_JPRB,2.5918E-03_JPRB,2.5315E-03_JPRB,2.4753E-03_JPRB/)  
+KBO( :,47, 6) = (/&
+ & 2.2084E-03_JPRB,2.1692E-03_JPRB,2.1216E-03_JPRB,2.0717E-03_JPRB,2.0247E-03_JPRB/)  
+KBO( :,48, 6) = (/&
+ & 1.8045E-03_JPRB,1.7627E-03_JPRB,1.7331E-03_JPRB,1.6919E-03_JPRB,1.6528E-03_JPRB/)  
+KBO( :,49, 6) = (/&
+ & 1.4712E-03_JPRB,1.4359E-03_JPRB,1.4119E-03_JPRB,1.3778E-03_JPRB,1.3455E-03_JPRB/)  
+KBO( :,50, 6) = (/&
+ & 1.2061E-03_JPRB,1.1766E-03_JPRB,1.1505E-03_JPRB,1.1288E-03_JPRB,1.1022E-03_JPRB/)  
+KBO( :,51, 6) = (/&
+ & 9.9096E-04_JPRB,9.6691E-04_JPRB,9.4524E-04_JPRB,9.2753E-04_JPRB,9.0555E-04_JPRB/)  
+KBO( :,52, 6) = (/&
+ & 8.0904E-04_JPRB,7.9365E-04_JPRB,7.7550E-04_JPRB,7.6091E-04_JPRB,7.4280E-04_JPRB/)  
+KBO( :,53, 6) = (/&
+ & 6.6208E-04_JPRB,6.5010E-04_JPRB,6.3515E-04_JPRB,6.2298E-04_JPRB,6.0802E-04_JPRB/)  
+KBO( :,54, 6) = (/&
+ & 5.4731E-04_JPRB,5.3810E-04_JPRB,5.2612E-04_JPRB,5.1599E-04_JPRB,5.0369E-04_JPRB/)  
+KBO( :,55, 6) = (/&
+ & 4.5523E-04_JPRB,4.4817E-04_JPRB,4.3877E-04_JPRB,4.2800E-04_JPRB,4.2030E-04_JPRB/)  
+KBO( :,56, 6) = (/&
+ & 3.7865E-04_JPRB,3.7332E-04_JPRB,3.6607E-04_JPRB,3.5724E-04_JPRB,3.5095E-04_JPRB/)  
+KBO( :,57, 6) = (/&
+ & 3.1496E-04_JPRB,3.1113E-04_JPRB,3.0556E-04_JPRB,2.9842E-04_JPRB,2.9145E-04_JPRB/)  
+KBO( :,58, 6) = (/&
+ & 2.6256E-04_JPRB,2.5998E-04_JPRB,2.5570E-04_JPRB,2.5003E-04_JPRB,2.4428E-04_JPRB/)  
+KBO( :,59, 6) = (/&
+ & 2.2328E-04_JPRB,2.2151E-04_JPRB,2.1824E-04_JPRB,2.1368E-04_JPRB,2.0910E-04_JPRB/)  
+KBO( :,13, 7) = (/&
+ & 3.5144E+00_JPRB,3.3937E+00_JPRB,3.2768E+00_JPRB,3.1634E+00_JPRB,3.0537E+00_JPRB/)  
+KBO( :,14, 7) = (/&
+ & 3.0165E+00_JPRB,2.9173E+00_JPRB,2.8200E+00_JPRB,2.7244E+00_JPRB,2.6317E+00_JPRB/)  
+KBO( :,15, 7) = (/&
+ & 2.6711E+00_JPRB,2.5902E+00_JPRB,2.5088E+00_JPRB,2.4285E+00_JPRB,2.3516E+00_JPRB/)  
+KBO( :,16, 7) = (/&
+ & 2.3379E+00_JPRB,2.2701E+00_JPRB,2.2031E+00_JPRB,2.1365E+00_JPRB,2.0740E+00_JPRB/)  
+KBO( :,17, 7) = (/&
+ & 2.0449E+00_JPRB,1.9876E+00_JPRB,1.9309E+00_JPRB,1.8761E+00_JPRB,1.8247E+00_JPRB/)  
+KBO( :,18, 7) = (/&
+ & 1.7762E+00_JPRB,1.7285E+00_JPRB,1.6813E+00_JPRB,1.6362E+00_JPRB,1.5941E+00_JPRB/)  
+KBO( :,19, 7) = (/&
+ & 1.5531E+00_JPRB,1.5133E+00_JPRB,1.4745E+00_JPRB,1.4378E+00_JPRB,1.4037E+00_JPRB/)  
+KBO( :,20, 7) = (/&
+ & 1.3391E+00_JPRB,1.3069E+00_JPRB,1.2760E+00_JPRB,1.2466E+00_JPRB,1.2198E+00_JPRB/)  
+KBO( :,21, 7) = (/&
+ & 1.1467E+00_JPRB,1.1212E+00_JPRB,1.0970E+00_JPRB,1.0743E+00_JPRB,1.0539E+00_JPRB/)  
+KBO( :,22, 7) = (/&
+ & 9.7329E-01_JPRB,9.5340E-01_JPRB,9.3512E-01_JPRB,9.1844E-01_JPRB,9.0375E-01_JPRB/)  
+KBO( :,23, 7) = (/&
+ & 8.2392E-01_JPRB,8.0923E-01_JPRB,7.9603E-01_JPRB,7.8447E-01_JPRB,7.7374E-01_JPRB/)  
+KBO( :,24, 7) = (/&
+ & 7.0013E-01_JPRB,6.8981E-01_JPRB,6.8073E-01_JPRB,6.7262E-01_JPRB,6.6488E-01_JPRB/)  
+KBO( :,25, 7) = (/&
+ & 5.9333E-01_JPRB,5.8623E-01_JPRB,5.8008E-01_JPRB,5.7417E-01_JPRB,5.6882E-01_JPRB/)  
+KBO( :,26, 7) = (/&
+ & 5.0099E-01_JPRB,4.9624E-01_JPRB,4.9180E-01_JPRB,4.8790E-01_JPRB,4.8459E-01_JPRB/)  
+KBO( :,27, 7) = (/&
+ & 4.1867E-01_JPRB,4.1536E-01_JPRB,4.1237E-01_JPRB,4.0992E-01_JPRB,4.0810E-01_JPRB/)  
+KBO( :,28, 7) = (/&
+ & 3.4703E-01_JPRB,3.4468E-01_JPRB,3.4282E-01_JPRB,3.4143E-01_JPRB,3.4043E-01_JPRB/)  
+KBO( :,29, 7) = (/&
+ & 2.8153E-01_JPRB,2.7991E-01_JPRB,2.7869E-01_JPRB,2.7784E-01_JPRB,2.7705E-01_JPRB/)  
+KBO( :,30, 7) = (/&
+ & 2.2635E-01_JPRB,2.2520E-01_JPRB,2.2433E-01_JPRB,2.2358E-01_JPRB,2.2275E-01_JPRB/)  
+KBO( :,31, 7) = (/&
+ & 1.7873E-01_JPRB,1.7779E-01_JPRB,1.7701E-01_JPRB,1.7620E-01_JPRB,1.7525E-01_JPRB/)  
+KBO( :,32, 7) = (/&
+ & 1.4094E-01_JPRB,1.4013E-01_JPRB,1.3934E-01_JPRB,1.3848E-01_JPRB,1.3746E-01_JPRB/)  
+KBO( :,33, 7) = (/&
+ & 1.1081E-01_JPRB,1.1005E-01_JPRB,1.0925E-01_JPRB,1.0837E-01_JPRB,1.0737E-01_JPRB/)  
+KBO( :,34, 7) = (/&
+ & 8.8073E-02_JPRB,8.7360E-02_JPRB,8.6598E-02_JPRB,8.5752E-02_JPRB,8.4831E-02_JPRB/)  
+KBO( :,35, 7) = (/&
+ & 7.0093E-02_JPRB,6.9431E-02_JPRB,6.8725E-02_JPRB,6.7961E-02_JPRB,6.7163E-02_JPRB/)  
+KBO( :,36, 7) = (/&
+ & 5.5974E-02_JPRB,5.5383E-02_JPRB,5.4751E-02_JPRB,5.4084E-02_JPRB,5.3401E-02_JPRB/)  
+KBO( :,37, 7) = (/&
+ & 4.5129E-02_JPRB,4.4617E-02_JPRB,4.4069E-02_JPRB,4.3496E-02_JPRB,4.2919E-02_JPRB/)  
+KBO( :,38, 7) = (/&
+ & 3.6297E-02_JPRB,3.5849E-02_JPRB,3.5383E-02_JPRB,3.4895E-02_JPRB,3.4409E-02_JPRB/)  
+KBO( :,39, 7) = (/&
+ & 2.9094E-02_JPRB,2.8702E-02_JPRB,2.8301E-02_JPRB,2.7894E-02_JPRB,2.7483E-02_JPRB/)  
+KBO( :,40, 7) = (/&
+ & 2.3698E-02_JPRB,2.3361E-02_JPRB,2.3022E-02_JPRB,2.2702E-02_JPRB,2.2363E-02_JPRB/)  
+KBO( :,41, 7) = (/&
+ & 1.9342E-02_JPRB,1.9046E-02_JPRB,1.8762E-02_JPRB,1.8535E-02_JPRB,1.8252E-02_JPRB/)  
+KBO( :,42, 7) = (/&
+ & 1.5735E-02_JPRB,1.5529E-02_JPRB,1.5289E-02_JPRB,1.5039E-02_JPRB,1.4884E-02_JPRB/)  
+KBO( :,43, 7) = (/&
+ & 1.2856E-02_JPRB,1.2693E-02_JPRB,1.2490E-02_JPRB,1.2276E-02_JPRB,1.2162E-02_JPRB/)  
+KBO( :,44, 7) = (/&
+ & 1.0504E-02_JPRB,1.0374E-02_JPRB,1.0203E-02_JPRB,1.0021E-02_JPRB,9.8561E-03_JPRB/)  
+KBO( :,45, 7) = (/&
+ & 8.5662E-03_JPRB,8.4611E-03_JPRB,8.3174E-03_JPRB,8.1619E-03_JPRB,8.0238E-03_JPRB/)  
+KBO( :,46, 7) = (/&
+ & 6.9878E-03_JPRB,6.9029E-03_JPRB,6.7830E-03_JPRB,6.6504E-03_JPRB,6.5338E-03_JPRB/)  
+KBO( :,47, 7) = (/&
+ & 5.7199E-03_JPRB,5.6500E-03_JPRB,5.5517E-03_JPRB,5.4400E-03_JPRB,5.3409E-03_JPRB/)  
+KBO( :,48, 7) = (/&
+ & 4.6721E-03_JPRB,4.5783E-03_JPRB,4.5326E-03_JPRB,4.4394E-03_JPRB,4.3553E-03_JPRB/)  
+KBO( :,49, 7) = (/&
+ & 3.8045E-03_JPRB,3.7261E-03_JPRB,3.6884E-03_JPRB,3.6111E-03_JPRB,3.5400E-03_JPRB/)  
+KBO( :,50, 7) = (/&
+ & 3.1168E-03_JPRB,3.0525E-03_JPRB,2.9971E-03_JPRB,2.9577E-03_JPRB,2.8982E-03_JPRB/)  
+KBO( :,51, 7) = (/&
+ & 2.5606E-03_JPRB,2.5082E-03_JPRB,2.4624E-03_JPRB,2.4305E-03_JPRB,2.3812E-03_JPRB/)  
+KBO( :,52, 7) = (/&
+ & 2.0858E-03_JPRB,2.0571E-03_JPRB,2.0195E-03_JPRB,1.9935E-03_JPRB,1.9528E-03_JPRB/)  
+KBO( :,53, 7) = (/&
+ & 1.7067E-03_JPRB,1.6831E-03_JPRB,1.6522E-03_JPRB,1.6308E-03_JPRB,1.5976E-03_JPRB/)  
+KBO( :,54, 7) = (/&
+ & 1.4124E-03_JPRB,1.3940E-03_JPRB,1.3693E-03_JPRB,1.3524E-03_JPRB,1.3253E-03_JPRB/)  
+KBO( :,55, 7) = (/&
+ & 1.1765E-03_JPRB,1.1628E-03_JPRB,1.1437E-03_JPRB,1.1214E-03_JPRB,1.1087E-03_JPRB/)  
+KBO( :,56, 7) = (/&
+ & 9.8017E-04_JPRB,9.7016E-04_JPRB,9.5539E-04_JPRB,9.3773E-04_JPRB,9.2785E-04_JPRB/)  
+KBO( :,57, 7) = (/&
+ & 8.1688E-04_JPRB,8.0965E-04_JPRB,7.9840E-04_JPRB,7.8450E-04_JPRB,7.6983E-04_JPRB/)  
+KBO( :,58, 7) = (/&
+ & 6.8243E-04_JPRB,6.7751E-04_JPRB,6.6917E-04_JPRB,6.5832E-04_JPRB,6.4667E-04_JPRB/)  
+KBO( :,59, 7) = (/&
+ & 5.8205E-04_JPRB,5.7925E-04_JPRB,5.7356E-04_JPRB,5.6509E-04_JPRB,5.5607E-04_JPRB/)  
+KBO( :,13, 8) = (/&
+ & 1.1247E+01_JPRB,1.0949E+01_JPRB,1.0618E+01_JPRB,1.0275E+01_JPRB,9.9354E+00_JPRB/)  
+KBO( :,14, 8) = (/&
+ & 9.4998E+00_JPRB,9.2422E+00_JPRB,8.9633E+00_JPRB,8.6775E+00_JPRB,8.4009E+00_JPRB/)  
+KBO( :,15, 8) = (/&
+ & 8.1034E+00_JPRB,7.8837E+00_JPRB,7.6521E+00_JPRB,7.4181E+00_JPRB,7.1838E+00_JPRB/)  
+KBO( :,16, 8) = (/&
+ & 6.9956E+00_JPRB,6.8151E+00_JPRB,6.6234E+00_JPRB,6.4261E+00_JPRB,6.2274E+00_JPRB/)  
+KBO( :,17, 8) = (/&
+ & 6.1438E+00_JPRB,5.9920E+00_JPRB,5.8323E+00_JPRB,5.6650E+00_JPRB,5.4972E+00_JPRB/)  
+KBO( :,18, 8) = (/&
+ & 5.4091E+00_JPRB,5.2794E+00_JPRB,5.1420E+00_JPRB,4.9996E+00_JPRB,4.8583E+00_JPRB/)  
+KBO( :,19, 8) = (/&
+ & 4.8000E+00_JPRB,4.6894E+00_JPRB,4.5724E+00_JPRB,4.4526E+00_JPRB,4.3345E+00_JPRB/)  
+KBO( :,20, 8) = (/&
+ & 4.2099E+00_JPRB,4.1143E+00_JPRB,4.0152E+00_JPRB,3.9152E+00_JPRB,3.8177E+00_JPRB/)  
+KBO( :,21, 8) = (/&
+ & 3.6600E+00_JPRB,3.5795E+00_JPRB,3.4965E+00_JPRB,3.4138E+00_JPRB,3.3344E+00_JPRB/)  
+KBO( :,22, 8) = (/&
+ & 3.1475E+00_JPRB,3.0803E+00_JPRB,3.0119E+00_JPRB,2.9452E+00_JPRB,2.8804E+00_JPRB/)  
+KBO( :,23, 8) = (/&
+ & 2.6953E+00_JPRB,2.6395E+00_JPRB,2.5848E+00_JPRB,2.5305E+00_JPRB,2.4794E+00_JPRB/)  
+KBO( :,24, 8) = (/&
+ & 2.3108E+00_JPRB,2.2665E+00_JPRB,2.2227E+00_JPRB,2.1812E+00_JPRB,2.1425E+00_JPRB/)  
+KBO( :,25, 8) = (/&
+ & 1.9716E+00_JPRB,1.9373E+00_JPRB,1.9040E+00_JPRB,1.8732E+00_JPRB,1.8452E+00_JPRB/)  
+KBO( :,26, 8) = (/&
+ & 1.6730E+00_JPRB,1.6473E+00_JPRB,1.6232E+00_JPRB,1.6019E+00_JPRB,1.5822E+00_JPRB/)  
+KBO( :,27, 8) = (/&
+ & 1.4039E+00_JPRB,1.3856E+00_JPRB,1.3691E+00_JPRB,1.3536E+00_JPRB,1.3394E+00_JPRB/)  
+KBO( :,28, 8) = (/&
+ & 1.1694E+00_JPRB,1.1563E+00_JPRB,1.1443E+00_JPRB,1.1331E+00_JPRB,1.1233E+00_JPRB/)  
+KBO( :,29, 8) = (/&
+ & 9.5436E-01_JPRB,9.4464E-01_JPRB,9.3564E-01_JPRB,9.2762E-01_JPRB,9.2078E-01_JPRB/)  
+KBO( :,30, 8) = (/&
+ & 7.7171E-01_JPRB,7.6417E-01_JPRB,7.5736E-01_JPRB,7.5152E-01_JPRB,7.4699E-01_JPRB/)  
+KBO( :,31, 8) = (/&
+ & 6.1295E-01_JPRB,6.0696E-01_JPRB,6.0170E-01_JPRB,5.9736E-01_JPRB,5.9407E-01_JPRB/)  
+KBO( :,32, 8) = (/&
+ & 4.8600E-01_JPRB,4.8128E-01_JPRB,4.7723E-01_JPRB,4.7397E-01_JPRB,4.7138E-01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB1:PART4',1,ZHOOK_HANDLE)
+END SUBROUTINE PART4
+
+
+SUBROUTINE PART5
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB1:PART5',0,ZHOOK_HANDLE)
+
+
+KBO( :,33, 8) = (/&
+ & 3.8415E-01_JPRB,3.8042E-01_JPRB,3.7730E-01_JPRB,3.7473E-01_JPRB,3.7262E-01_JPRB/)  
+KBO( :,34, 8) = (/&
+ & 3.0697E-01_JPRB,3.0410E-01_JPRB,3.0171E-01_JPRB,2.9969E-01_JPRB,2.9792E-01_JPRB/)  
+KBO( :,35, 8) = (/&
+ & 2.4580E-01_JPRB,2.4358E-01_JPRB,2.4169E-01_JPRB,2.4002E-01_JPRB,2.3839E-01_JPRB/)  
+KBO( :,36, 8) = (/&
+ & 1.9762E-01_JPRB,1.9584E-01_JPRB,1.9432E-01_JPRB,1.9290E-01_JPRB,1.9143E-01_JPRB/)  
+KBO( :,37, 8) = (/&
+ & 1.6039E-01_JPRB,1.5897E-01_JPRB,1.5773E-01_JPRB,1.5653E-01_JPRB,1.5525E-01_JPRB/)  
+KBO( :,38, 8) = (/&
+ & 1.2981E-01_JPRB,1.2864E-01_JPRB,1.2763E-01_JPRB,1.2661E-01_JPRB,1.2550E-01_JPRB/)  
+KBO( :,39, 8) = (/&
+ & 1.0464E-01_JPRB,1.0367E-01_JPRB,1.0279E-01_JPRB,1.0196E-01_JPRB,1.0102E-01_JPRB/)  
+KBO( :,40, 8) = (/&
+ & 8.5656E-02_JPRB,8.4878E-02_JPRB,8.4168E-02_JPRB,8.3551E-02_JPRB,8.2787E-02_JPRB/)  
+KBO( :,41, 8) = (/&
+ & 7.0184E-02_JPRB,6.9534E-02_JPRB,6.8986E-02_JPRB,6.8614E-02_JPRB,6.7985E-02_JPRB/)  
+KBO( :,42, 8) = (/&
+ & 5.7310E-02_JPRB,5.6919E-02_JPRB,5.6491E-02_JPRB,5.5977E-02_JPRB,5.5749E-02_JPRB/)  
+KBO( :,43, 8) = (/&
+ & 4.6943E-02_JPRB,4.6680E-02_JPRB,4.6336E-02_JPRB,4.5896E-02_JPRB,4.5779E-02_JPRB/)  
+KBO( :,44, 8) = (/&
+ & 3.8447E-02_JPRB,3.8265E-02_JPRB,3.7983E-02_JPRB,3.7610E-02_JPRB,3.7254E-02_JPRB/)  
+KBO( :,45, 8) = (/&
+ & 3.1416E-02_JPRB,3.1280E-02_JPRB,3.1046E-02_JPRB,3.0737E-02_JPRB,3.0447E-02_JPRB/)  
+KBO( :,46, 8) = (/&
+ & 2.5663E-02_JPRB,2.5562E-02_JPRB,2.5366E-02_JPRB,2.5110E-02_JPRB,2.4876E-02_JPRB/)  
+KBO( :,47, 8) = (/&
+ & 2.1026E-02_JPRB,2.0945E-02_JPRB,2.0784E-02_JPRB,2.0576E-02_JPRB,2.0390E-02_JPRB/)  
+KBO( :,48, 8) = (/&
+ & 1.7175E-02_JPRB,1.6957E-02_JPRB,1.6972E-02_JPRB,1.6802E-02_JPRB,1.6659E-02_JPRB/)  
+KBO( :,49, 8) = (/&
+ & 1.3974E-02_JPRB,1.3790E-02_JPRB,1.3801E-02_JPRB,1.3660E-02_JPRB,1.3550E-02_JPRB/)  
+KBO( :,50, 8) = (/&
+ & 1.1444E-02_JPRB,1.1294E-02_JPRB,1.1196E-02_JPRB,1.1188E-02_JPRB,1.1103E-02_JPRB/)  
+KBO( :,51, 8) = (/&
+ & 9.4010E-03_JPRB,9.2766E-03_JPRB,9.1976E-03_JPRB,9.1935E-03_JPRB,9.1284E-03_JPRB/)  
+KBO( :,52, 8) = (/&
+ & 7.6374E-03_JPRB,7.6018E-03_JPRB,7.5370E-03_JPRB,7.5350E-03_JPRB,7.4842E-03_JPRB/)  
+KBO( :,53, 8) = (/&
+ & 6.2404E-03_JPRB,6.2108E-03_JPRB,6.1568E-03_JPRB,6.1543E-03_JPRB,6.1140E-03_JPRB/)  
+KBO( :,54, 8) = (/&
+ & 5.1676E-03_JPRB,5.1471E-03_JPRB,5.1049E-03_JPRB,5.1078E-03_JPRB,5.0779E-03_JPRB/)  
+KBO( :,55, 8) = (/&
+ & 4.3128E-03_JPRB,4.3025E-03_JPRB,4.2708E-03_JPRB,4.2369E-03_JPRB,4.2598E-03_JPRB/)  
+KBO( :,56, 8) = (/&
+ & 3.5995E-03_JPRB,3.5977E-03_JPRB,3.5746E-03_JPRB,3.5491E-03_JPRB,3.5749E-03_JPRB/)  
+KBO( :,57, 8) = (/&
+ & 3.0055E-03_JPRB,3.0101E-03_JPRB,2.9938E-03_JPRB,2.9746E-03_JPRB,2.9652E-03_JPRB/)  
+KBO( :,58, 8) = (/&
+ & 2.5176E-03_JPRB,2.5272E-03_JPRB,2.5169E-03_JPRB,2.5032E-03_JPRB,2.4979E-03_JPRB/)  
+KBO( :,59, 8) = (/&
+ & 2.1638E-03_JPRB,2.1807E-03_JPRB,2.1789E-03_JPRB,2.1728E-03_JPRB,2.1711E-03_JPRB/)  
+KBO( :,13, 9) = (/&
+ & 6.6930E+01_JPRB,6.5036E+01_JPRB,6.3159E+01_JPRB,6.1318E+01_JPRB,5.9549E+01_JPRB/)  
+KBO( :,14, 9) = (/&
+ & 5.8293E+01_JPRB,5.6634E+01_JPRB,5.4990E+01_JPRB,5.3428E+01_JPRB,5.1912E+01_JPRB/)  
+KBO( :,15, 9) = (/&
+ & 5.0205E+01_JPRB,4.8785E+01_JPRB,4.7427E+01_JPRB,4.6113E+01_JPRB,4.4777E+01_JPRB/)  
+KBO( :,16, 9) = (/&
+ & 4.2911E+01_JPRB,4.1757E+01_JPRB,4.0616E+01_JPRB,3.9459E+01_JPRB,3.8271E+01_JPRB/)  
+KBO( :,17, 9) = (/&
+ & 3.6557E+01_JPRB,3.5595E+01_JPRB,3.4588E+01_JPRB,3.3574E+01_JPRB,3.2559E+01_JPRB/)  
+KBO( :,18, 9) = (/&
+ & 3.1149E+01_JPRB,3.0309E+01_JPRB,2.9446E+01_JPRB,2.8581E+01_JPRB,2.7714E+01_JPRB/)  
+KBO( :,19, 9) = (/&
+ & 2.6798E+01_JPRB,2.6081E+01_JPRB,2.5351E+01_JPRB,2.4620E+01_JPRB,2.3892E+01_JPRB/)  
+KBO( :,20, 9) = (/&
+ & 2.3235E+01_JPRB,2.2624E+01_JPRB,2.2007E+01_JPRB,2.1386E+01_JPRB,2.0773E+01_JPRB/)  
+KBO( :,21, 9) = (/&
+ & 2.0332E+01_JPRB,1.9813E+01_JPRB,1.9282E+01_JPRB,1.8758E+01_JPRB,1.8233E+01_JPRB/)  
+KBO( :,22, 9) = (/&
+ & 1.7867E+01_JPRB,1.7423E+01_JPRB,1.6975E+01_JPRB,1.6525E+01_JPRB,1.6078E+01_JPRB/)  
+KBO( :,23, 9) = (/&
+ & 1.5726E+01_JPRB,1.5346E+01_JPRB,1.4961E+01_JPRB,1.4574E+01_JPRB,1.4194E+01_JPRB/)  
+KBO( :,24, 9) = (/&
+ & 1.3878E+01_JPRB,1.3552E+01_JPRB,1.3218E+01_JPRB,1.2890E+01_JPRB,1.2567E+01_JPRB/)  
+KBO( :,25, 9) = (/&
+ & 1.2174E+01_JPRB,1.1894E+01_JPRB,1.1612E+01_JPRB,1.1333E+01_JPRB,1.1065E+01_JPRB/)  
+KBO( :,26, 9) = (/&
+ & 1.0586E+01_JPRB,1.0349E+01_JPRB,1.0113E+01_JPRB,9.8834E+00_JPRB,9.6689E+00_JPRB/)  
+KBO( :,27, 9) = (/&
+ & 9.0691E+00_JPRB,8.8721E+00_JPRB,8.6784E+00_JPRB,8.4956E+00_JPRB,8.3263E+00_JPRB/)  
+KBO( :,28, 9) = (/&
+ & 7.6767E+00_JPRB,7.5165E+00_JPRB,7.3638E+00_JPRB,7.2221E+00_JPRB,7.0906E+00_JPRB/)  
+KBO( :,29, 9) = (/&
+ & 6.3535E+00_JPRB,6.2280E+00_JPRB,6.1107E+00_JPRB,6.0030E+00_JPRB,5.9021E+00_JPRB/)  
+KBO( :,30, 9) = (/&
+ & 5.2055E+00_JPRB,5.1092E+00_JPRB,5.0195E+00_JPRB,4.9376E+00_JPRB,4.8626E+00_JPRB/)  
+KBO( :,31, 9) = (/&
+ & 4.1917E+00_JPRB,4.1182E+00_JPRB,4.0499E+00_JPRB,3.9891E+00_JPRB,3.9344E+00_JPRB/)  
+KBO( :,32, 9) = (/&
+ & 3.3675E+00_JPRB,3.3117E+00_JPRB,3.2607E+00_JPRB,3.2163E+00_JPRB,3.1756E+00_JPRB/)  
+KBO( :,33, 9) = (/&
+ & 2.6963E+00_JPRB,2.6546E+00_JPRB,2.6175E+00_JPRB,2.5837E+00_JPRB,2.5542E+00_JPRB/)  
+KBO( :,34, 9) = (/&
+ & 2.1803E+00_JPRB,2.1495E+00_JPRB,2.1217E+00_JPRB,2.0970E+00_JPRB,2.0762E+00_JPRB/)  
+KBO( :,35, 9) = (/&
+ & 1.7668E+00_JPRB,1.7436E+00_JPRB,1.7230E+00_JPRB,1.7051E+00_JPRB,1.6899E+00_JPRB/)  
+KBO( :,36, 9) = (/&
+ & 1.4368E+00_JPRB,1.4193E+00_JPRB,1.4041E+00_JPRB,1.3910E+00_JPRB,1.3800E+00_JPRB/)  
+KBO( :,37, 9) = (/&
+ & 1.1784E+00_JPRB,1.1654E+00_JPRB,1.1542E+00_JPRB,1.1446E+00_JPRB,1.1369E+00_JPRB/)  
+KBO( :,38, 9) = (/&
+ & 9.6334E-01_JPRB,9.5349E-01_JPRB,9.4564E-01_JPRB,9.3870E-01_JPRB,9.3338E-01_JPRB/)  
+KBO( :,39, 9) = (/&
+ & 7.8429E-01_JPRB,7.7685E-01_JPRB,7.7074E-01_JPRB,7.6618E-01_JPRB,7.6263E-01_JPRB/)  
+KBO( :,40, 9) = (/&
+ & 6.4772E-01_JPRB,6.4229E-01_JPRB,6.3796E-01_JPRB,6.3535E-01_JPRB,6.3341E-01_JPRB/)  
+KBO( :,41, 9) = (/&
+ & 5.3551E-01_JPRB,5.3135E-01_JPRB,5.2845E-01_JPRB,5.2779E-01_JPRB,5.2692E-01_JPRB/)  
+KBO( :,42, 9) = (/&
+ & 4.4125E-01_JPRB,4.3914E-01_JPRB,4.3725E-01_JPRB,4.3576E-01_JPRB,4.3762E-01_JPRB/)  
+KBO( :,43, 9) = (/&
+ & 3.6461E-01_JPRB,3.6349E-01_JPRB,3.6221E-01_JPRB,3.6126E-01_JPRB,3.6369E-01_JPRB/)  
+KBO( :,44, 9) = (/&
+ & 3.0116E-01_JPRB,3.0069E-01_JPRB,2.9982E-01_JPRB,2.9918E-01_JPRB,2.9973E-01_JPRB/)  
+KBO( :,45, 9) = (/&
+ & 2.4811E-01_JPRB,2.4796E-01_JPRB,2.4739E-01_JPRB,2.4699E-01_JPRB,2.4766E-01_JPRB/)  
+KBO( :,46, 9) = (/&
+ & 2.0425E-01_JPRB,2.0434E-01_JPRB,2.0395E-01_JPRB,2.0369E-01_JPRB,2.0438E-01_JPRB/)  
+KBO( :,47, 9) = (/&
+ & 1.6854E-01_JPRB,1.6878E-01_JPRB,1.6855E-01_JPRB,1.6839E-01_JPRB,1.6908E-01_JPRB/)  
+KBO( :,48, 9) = (/&
+ & 1.3856E-01_JPRB,1.3781E-01_JPRB,1.3873E-01_JPRB,1.3865E-01_JPRB,1.3926E-01_JPRB/)  
+KBO( :,49, 9) = (/&
+ & 1.1334E-01_JPRB,1.1274E-01_JPRB,1.1357E-01_JPRB,1.1351E-01_JPRB,1.1403E-01_JPRB/)  
+KBO( :,50, 9) = (/&
+ & 9.3340E-02_JPRB,9.2916E-02_JPRB,9.2960E-02_JPRB,9.3712E-02_JPRB,9.4205E-02_JPRB/)  
+KBO( :,51, 9) = (/&
+ & 7.7078E-02_JPRB,7.6810E-02_JPRB,7.6922E-02_JPRB,7.7641E-02_JPRB,7.8122E-02_JPRB/)  
+KBO( :,52, 9) = (/&
+ & 6.2961E-02_JPRB,6.3281E-02_JPRB,6.3427E-02_JPRB,6.4092E-02_JPRB,6.4534E-02_JPRB/)  
+KBO( :,53, 9) = (/&
+ & 5.1588E-02_JPRB,5.1905E-02_JPRB,5.2063E-02_JPRB,5.2646E-02_JPRB,5.3031E-02_JPRB/)  
+KBO( :,54, 9) = (/&
+ & 4.2943E-02_JPRB,4.3300E-02_JPRB,4.3511E-02_JPRB,4.4097E-02_JPRB,4.4499E-02_JPRB/)  
+KBO( :,55, 9) = (/&
+ & 3.6096E-02_JPRB,3.6506E-02_JPRB,3.6778E-02_JPRB,3.7049E-02_JPRB,3.7847E-02_JPRB/)  
+KBO( :,56, 9) = (/&
+ & 3.0345E-02_JPRB,3.0787E-02_JPRB,3.1097E-02_JPRB,3.1405E-02_JPRB,3.2218E-02_JPRB/)  
+KBO( :,57, 9) = (/&
+ & 2.5512E-02_JPRB,2.5968E-02_JPRB,2.6302E-02_JPRB,2.6632E-02_JPRB,2.7138E-02_JPRB/)  
+KBO( :,58, 9) = (/&
+ & 2.1539E-02_JPRB,2.1998E-02_JPRB,2.2352E-02_JPRB,2.2699E-02_JPRB,2.3217E-02_JPRB/)  
+KBO( :,59, 9) = (/&
+ & 1.8855E-02_JPRB,1.9380E-02_JPRB,1.9801E-02_JPRB,2.0231E-02_JPRB,2.0859E-02_JPRB/)  
+KBO( :,13,10) = (/&
+ & 2.5222E+02_JPRB,2.4612E+02_JPRB,2.3929E+02_JPRB,2.3199E+02_JPRB,2.2461E+02_JPRB/)  
+KBO( :,14,10) = (/&
+ & 2.3124E+02_JPRB,2.2528E+02_JPRB,2.1850E+02_JPRB,2.1149E+02_JPRB,2.0433E+02_JPRB/)  
+KBO( :,15,10) = (/&
+ & 2.0842E+02_JPRB,2.0210E+02_JPRB,1.9531E+02_JPRB,1.8854E+02_JPRB,1.8251E+02_JPRB/)  
+KBO( :,16,10) = (/&
+ & 1.8399E+02_JPRB,1.7799E+02_JPRB,1.7194E+02_JPRB,1.6680E+02_JPRB,1.6231E+02_JPRB/)  
+KBO( :,17,10) = (/&
+ & 1.6010E+02_JPRB,1.5487E+02_JPRB,1.5049E+02_JPRB,1.4638E+02_JPRB,1.4212E+02_JPRB/)  
+KBO( :,18,10) = (/&
+ & 1.3804E+02_JPRB,1.3430E+02_JPRB,1.3065E+02_JPRB,1.2671E+02_JPRB,1.2276E+02_JPRB/)  
+KBO( :,19,10) = (/&
+ & 1.1867E+02_JPRB,1.1546E+02_JPRB,1.1199E+02_JPRB,1.0849E+02_JPRB,1.0500E+02_JPRB/)  
+KBO( :,20,10) = (/&
+ & 1.0103E+02_JPRB,9.8101E+01_JPRB,9.5080E+01_JPRB,9.2102E+01_JPRB,8.9111E+01_JPRB/)  
+KBO( :,21,10) = (/&
+ & 8.5674E+01_JPRB,8.3188E+01_JPRB,8.0672E+01_JPRB,7.8136E+01_JPRB,7.5728E+01_JPRB/)  
+KBO( :,22,10) = (/&
+ & 7.2715E+01_JPRB,7.0591E+01_JPRB,6.8415E+01_JPRB,6.6340E+01_JPRB,6.4345E+01_JPRB/)  
+KBO( :,23,10) = (/&
+ & 6.3022E+01_JPRB,6.1199E+01_JPRB,5.9439E+01_JPRB,5.7725E+01_JPRB,5.6010E+01_JPRB/)  
+KBO( :,24,10) = (/&
+ & 5.5774E+01_JPRB,5.4272E+01_JPRB,5.2819E+01_JPRB,5.1321E+01_JPRB,4.9883E+01_JPRB/)  
+KBO( :,25,10) = (/&
+ & 4.9593E+01_JPRB,4.8355E+01_JPRB,4.7055E+01_JPRB,4.5778E+01_JPRB,4.4535E+01_JPRB/)  
+KBO( :,26,10) = (/&
+ & 4.4197E+01_JPRB,4.3085E+01_JPRB,4.1954E+01_JPRB,4.0860E+01_JPRB,3.9753E+01_JPRB/)  
+KBO( :,27,10) = (/&
+ & 3.8885E+01_JPRB,3.7934E+01_JPRB,3.6990E+01_JPRB,3.6031E+01_JPRB,3.5121E+01_JPRB/)  
+KBO( :,28,10) = (/&
+ & 3.3738E+01_JPRB,3.2939E+01_JPRB,3.2117E+01_JPRB,3.1331E+01_JPRB,3.0617E+01_JPRB/)  
+KBO( :,29,10) = (/&
+ & 2.8541E+01_JPRB,2.7853E+01_JPRB,2.7182E+01_JPRB,2.6569E+01_JPRB,2.6005E+01_JPRB/)  
+KBO( :,30,10) = (/&
+ & 2.3779E+01_JPRB,2.3214E+01_JPRB,2.2688E+01_JPRB,2.2215E+01_JPRB,2.1758E+01_JPRB/)  
+KBO( :,31,10) = (/&
+ & 1.9404E+01_JPRB,1.8965E+01_JPRB,1.8559E+01_JPRB,1.8185E+01_JPRB,1.7827E+01_JPRB/)  
+KBO( :,32,10) = (/&
+ & 1.5788E+01_JPRB,1.5447E+01_JPRB,1.5130E+01_JPRB,1.4835E+01_JPRB,1.4579E+01_JPRB/)  
+KBO( :,33,10) = (/&
+ & 1.2793E+01_JPRB,1.2531E+01_JPRB,1.2285E+01_JPRB,1.2073E+01_JPRB,1.1879E+01_JPRB/)  
+KBO( :,34,10) = (/&
+ & 1.0446E+01_JPRB,1.0243E+01_JPRB,1.0069E+01_JPRB,9.9145E+00_JPRB,9.7688E+00_JPRB/)  
+KBO( :,35,10) = (/&
+ & 8.5407E+00_JPRB,8.3976E+00_JPRB,8.2688E+00_JPRB,8.1501E+00_JPRB,8.0525E+00_JPRB/)  
+KBO( :,36,10) = (/&
+ & 7.0161E+00_JPRB,6.9119E+00_JPRB,6.8145E+00_JPRB,6.7306E+00_JPRB,6.6644E+00_JPRB/)  
+KBO( :,37,10) = (/&
+ & 5.8170E+00_JPRB,5.7380E+00_JPRB,5.6680E+00_JPRB,5.6107E+00_JPRB,5.5656E+00_JPRB/)  
+KBO( :,38,10) = (/&
+ & 4.8093E+00_JPRB,4.7487E+00_JPRB,4.7024E+00_JPRB,4.6645E+00_JPRB,4.6357E+00_JPRB/)  
+KBO( :,39,10) = (/&
+ & 3.9585E+00_JPRB,3.9132E+00_JPRB,3.8808E+00_JPRB,3.8606E+00_JPRB,3.8428E+00_JPRB/)  
+KBO( :,40,10) = (/&
+ & 3.2997E+00_JPRB,3.2689E+00_JPRB,3.2488E+00_JPRB,3.2415E+00_JPRB,3.2340E+00_JPRB/)  
+KBO( :,41,10) = (/&
+ & 2.7489E+00_JPRB,2.7291E+00_JPRB,2.7189E+00_JPRB,2.7232E+00_JPRB,2.7224E+00_JPRB/)  
+KBO( :,42,10) = (/&
+ & 2.2781E+00_JPRB,2.2743E+00_JPRB,2.2709E+00_JPRB,2.2713E+00_JPRB,2.2863E+00_JPRB/)  
+KBO( :,43,10) = (/&
+ & 1.8935E+00_JPRB,1.8963E+00_JPRB,1.8973E+00_JPRB,1.9006E+00_JPRB,1.9189E+00_JPRB/)  
+KBO( :,44,10) = (/&
+ & 1.5720E+00_JPRB,1.5786E+00_JPRB,1.5822E+00_JPRB,1.5873E+00_JPRB,1.5962E+00_JPRB/)  
+KBO( :,45,10) = (/&
+ & 1.3015E+00_JPRB,1.3098E+00_JPRB,1.3146E+00_JPRB,1.3205E+00_JPRB,1.3299E+00_JPRB/)  
+KBO( :,46,10) = (/&
+ & 1.0763E+00_JPRB,1.0855E+00_JPRB,1.0907E+00_JPRB,1.0967E+00_JPRB,1.1061E+00_JPRB/)  
+KBO( :,47,10) = (/&
+ & 8.9190E-01_JPRB,9.0098E-01_JPRB,9.0614E-01_JPRB,9.1228E-01_JPRB,9.2153E-01_JPRB/)  
+KBO( :,48,10) = (/&
+ & 7.3634E-01_JPRB,7.3759E-01_JPRB,7.4968E-01_JPRB,7.5555E-01_JPRB,7.6432E-01_JPRB/)  
+KBO( :,49,10) = (/&
+ & 6.0496E-01_JPRB,6.0623E-01_JPRB,6.1696E-01_JPRB,6.2219E-01_JPRB,6.3000E-01_JPRB/)  
+KBO( :,50,10) = (/&
+ & 5.0029E-01_JPRB,5.0191E-01_JPRB,5.0745E-01_JPRB,5.1663E-01_JPRB,5.2391E-01_JPRB/)  
+KBO( :,51,10) = (/&
+ & 4.1493E-01_JPRB,4.1674E-01_JPRB,4.2213E-01_JPRB,4.3055E-01_JPRB,4.3747E-01_JPRB/)  
+KBO( :,52,10) = (/&
+ & 3.3972E-01_JPRB,3.4486E-01_JPRB,3.4995E-01_JPRB,3.5750E-01_JPRB,3.6394E-01_JPRB/)  
+KBO( :,53,10) = (/&
+ & 2.7969E-01_JPRB,2.8412E-01_JPRB,2.8871E-01_JPRB,2.9534E-01_JPRB,3.0120E-01_JPRB/)  
+KBO( :,54,10) = (/&
+ & 2.3381E-01_JPRB,2.3806E-01_JPRB,2.4256E-01_JPRB,2.4899E-01_JPRB,2.5461E-01_JPRB/)  
+KBO( :,55,10) = (/&
+ & 1.9747E-01_JPRB,2.0173E-01_JPRB,2.0629E-01_JPRB,2.1052E-01_JPRB,2.1835E-01_JPRB/)  
+KBO( :,56,10) = (/&
+ & 1.6704E-01_JPRB,1.7122E-01_JPRB,1.7573E-01_JPRB,1.8004E-01_JPRB,1.8767E-01_JPRB/)  
+KBO( :,57,10) = (/&
+ & 1.4152E-01_JPRB,1.4559E-01_JPRB,1.5002E-01_JPRB,1.5430E-01_JPRB,1.5960E-01_JPRB/)  
+KBO( :,58,10) = (/&
+ & 1.2052E-01_JPRB,1.2461E-01_JPRB,1.2894E-01_JPRB,1.3321E-01_JPRB,1.3854E-01_JPRB/)  
+KBO( :,59,10) = (/&
+ & 1.0716E-01_JPRB,1.1189E-01_JPRB,1.1675E-01_JPRB,1.2166E-01_JPRB,1.2804E-01_JPRB/)  
+KBO( :,13,11) = (/&
+ & 4.2154E+02_JPRB,4.0884E+02_JPRB,3.9820E+02_JPRB,3.8820E+02_JPRB,3.7793E+02_JPRB/)  
+KBO( :,14,11) = (/&
+ & 3.9257E+02_JPRB,3.8172E+02_JPRB,3.7181E+02_JPRB,3.6139E+02_JPRB,3.5047E+02_JPRB/)  
+KBO( :,15,11) = (/&
+ & 3.6309E+02_JPRB,3.5353E+02_JPRB,3.4340E+02_JPRB,3.3282E+02_JPRB,3.2240E+02_JPRB/)  
+KBO( :,16,11) = (/&
+ & 3.3141E+02_JPRB,3.2240E+02_JPRB,3.1248E+02_JPRB,3.0233E+02_JPRB,2.9245E+02_JPRB/)  
+KBO( :,17,11) = (/&
+ & 2.9757E+02_JPRB,2.8848E+02_JPRB,2.7872E+02_JPRB,2.6968E+02_JPRB,2.6158E+02_JPRB/)  
+KBO( :,18,11) = (/&
+ & 2.6199E+02_JPRB,2.5343E+02_JPRB,2.4537E+02_JPRB,2.3848E+02_JPRB,2.3223E+02_JPRB/)  
+KBO( :,19,11) = (/&
+ & 2.2769E+02_JPRB,2.2078E+02_JPRB,2.1490E+02_JPRB,2.0918E+02_JPRB,2.0314E+02_JPRB/)  
+KBO( :,20,11) = (/&
+ & 1.9687E+02_JPRB,1.9172E+02_JPRB,1.8662E+02_JPRB,1.8113E+02_JPRB,1.7551E+02_JPRB/)  
+KBO( :,21,11) = (/&
+ & 1.6926E+02_JPRB,1.6478E+02_JPRB,1.5994E+02_JPRB,1.5502E+02_JPRB,1.5010E+02_JPRB/)  
+KBO( :,22,11) = (/&
+ & 1.4392E+02_JPRB,1.3980E+02_JPRB,1.3565E+02_JPRB,1.3147E+02_JPRB,1.2734E+02_JPRB/)  
+KBO( :,23,11) = (/&
+ & 1.2176E+02_JPRB,1.1828E+02_JPRB,1.1480E+02_JPRB,1.1132E+02_JPRB,1.0802E+02_JPRB/)  
+KBO( :,24,11) = (/&
+ & 1.0420E+02_JPRB,1.0127E+02_JPRB,9.8266E+01_JPRB,9.5452E+01_JPRB,9.2657E+01_JPRB/)  
+KBO( :,25,11) = (/&
+ & 9.1405E+01_JPRB,8.8856E+01_JPRB,8.6441E+01_JPRB,8.4023E+01_JPRB,8.1601E+01_JPRB/)  
+KBO( :,26,11) = (/&
+ & 8.1068E+01_JPRB,7.8976E+01_JPRB,7.6905E+01_JPRB,7.4806E+01_JPRB,7.2749E+01_JPRB/)  
+KBO( :,27,11) = (/&
+ & 7.1641E+01_JPRB,6.9868E+01_JPRB,6.8049E+01_JPRB,6.6237E+01_JPRB,6.4456E+01_JPRB/)  
+KBO( :,28,11) = (/&
+ & 6.3023E+01_JPRB,6.1456E+01_JPRB,5.9871E+01_JPRB,5.8321E+01_JPRB,5.6798E+01_JPRB/)  
+KBO( :,29,11) = (/&
+ & 5.4205E+01_JPRB,5.2861E+01_JPRB,5.1529E+01_JPRB,5.0220E+01_JPRB,4.8999E+01_JPRB/)  
+KBO( :,30,11) = (/&
+ & 4.5934E+01_JPRB,4.4818E+01_JPRB,4.3703E+01_JPRB,4.2668E+01_JPRB,4.1730E+01_JPRB/)  
+KBO( :,31,11) = (/&
+ & 3.8066E+01_JPRB,3.7138E+01_JPRB,3.6268E+01_JPRB,3.5481E+01_JPRB,3.4768E+01_JPRB/)  
+KBO( :,32,11) = (/&
+ & 3.1328E+01_JPRB,3.0606E+01_JPRB,2.9939E+01_JPRB,2.9343E+01_JPRB,2.8780E+01_JPRB/)  
+KBO( :,33,11) = (/&
+ & 2.5648E+01_JPRB,2.5098E+01_JPRB,2.4592E+01_JPRB,2.4122E+01_JPRB,2.3697E+01_JPRB/)  
+KBO( :,34,11) = (/&
+ & 2.1176E+01_JPRB,2.0755E+01_JPRB,2.0363E+01_JPRB,2.0008E+01_JPRB,1.9706E+01_JPRB/)  
+KBO( :,35,11) = (/&
+ & 1.7503E+01_JPRB,1.7179E+01_JPRB,1.6884E+01_JPRB,1.6631E+01_JPRB,1.6410E+01_JPRB/)  
+KBO( :,36,11) = (/&
+ & 1.4490E+01_JPRB,1.4242E+01_JPRB,1.4035E+01_JPRB,1.3856E+01_JPRB,1.3691E+01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB1:PART5',1,ZHOOK_HANDLE)
+END SUBROUTINE PART5
+
+
+SUBROUTINE PART6
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB1:PART6',0,ZHOOK_HANDLE)
+
+
+KBO( :,37,11) = (/&
+ & 1.2080E+01_JPRB,1.1899E+01_JPRB,1.1752E+01_JPRB,1.1622E+01_JPRB,1.1507E+01_JPRB/)  
+KBO( :,38,11) = (/&
+ & 1.0040E+01_JPRB,9.9127E+00_JPRB,9.8092E+00_JPRB,9.7168E+00_JPRB,9.6388E+00_JPRB/)  
+KBO( :,39,11) = (/&
+ & 8.3186E+00_JPRB,8.2268E+00_JPRB,8.1489E+00_JPRB,8.0924E+00_JPRB,8.0458E+00_JPRB/)  
+KBO( :,40,11) = (/&
+ & 6.9855E+00_JPRB,6.9204E+00_JPRB,6.8705E+00_JPRB,6.8363E+00_JPRB,6.8129E+00_JPRB/)  
+KBO( :,41,11) = (/&
+ & 5.8673E+00_JPRB,5.8227E+00_JPRB,5.7933E+00_JPRB,5.7844E+00_JPRB,5.7806E+00_JPRB/)  
+KBO( :,42,11) = (/&
+ & 4.9033E+00_JPRB,4.8902E+00_JPRB,4.8772E+00_JPRB,4.8711E+00_JPRB,4.8995E+00_JPRB/)  
+KBO( :,43,11) = (/&
+ & 4.1043E+00_JPRB,4.1084E+00_JPRB,4.1066E+00_JPRB,4.1113E+00_JPRB,4.1531E+00_JPRB/)  
+KBO( :,44,11) = (/&
+ & 3.4292E+00_JPRB,3.4435E+00_JPRB,3.4506E+00_JPRB,3.4628E+00_JPRB,3.4927E+00_JPRB/)  
+KBO( :,45,11) = (/&
+ & 2.8550E+00_JPRB,2.8746E+00_JPRB,2.8867E+00_JPRB,2.9043E+00_JPRB,2.9376E+00_JPRB/)  
+KBO( :,46,11) = (/&
+ & 2.3728E+00_JPRB,2.3953E+00_JPRB,2.4108E+00_JPRB,2.4301E+00_JPRB,2.4648E+00_JPRB/)  
+KBO( :,47,11) = (/&
+ & 1.9739E+00_JPRB,1.9977E+00_JPRB,2.0154E+00_JPRB,2.0359E+00_JPRB,2.0698E+00_JPRB/)  
+KBO( :,48,11) = (/&
+ & 1.6359E+00_JPRB,1.6436E+00_JPRB,1.6769E+00_JPRB,1.6970E+00_JPRB,1.7291E+00_JPRB/)  
+KBO( :,49,11) = (/&
+ & 1.3494E+00_JPRB,1.3567E+00_JPRB,1.3870E+00_JPRB,1.4058E+00_JPRB,1.4355E+00_JPRB/)  
+KBO( :,50,11) = (/&
+ & 1.1201E+00_JPRB,1.1274E+00_JPRB,1.1447E+00_JPRB,1.1735E+00_JPRB,1.2015E+00_JPRB/)  
+KBO( :,51,11) = (/&
+ & 9.3236E-01_JPRB,9.3956E-01_JPRB,9.5616E-01_JPRB,9.8266E-01_JPRB,1.0088E+00_JPRB/)  
+KBO( :,52,11) = (/&
+ & 7.6514E-01_JPRB,7.8058E-01_JPRB,7.9612E-01_JPRB,8.2019E-01_JPRB,8.4401E-01_JPRB/)  
+KBO( :,53,11) = (/&
+ & 6.3163E-01_JPRB,6.4570E-01_JPRB,6.5991E-01_JPRB,6.8147E-01_JPRB,7.0283E-01_JPRB/)  
+KBO( :,54,11) = (/&
+ & 5.2916E-01_JPRB,5.4264E-01_JPRB,5.5622E-01_JPRB,5.7680E-01_JPRB,5.9711E-01_JPRB/)  
+KBO( :,55,11) = (/&
+ & 4.4763E-01_JPRB,4.6092E-01_JPRB,4.7420E-01_JPRB,4.8811E-01_JPRB,5.1412E-01_JPRB/)  
+KBO( :,56,11) = (/&
+ & 3.7915E-01_JPRB,3.9216E-01_JPRB,4.0486E-01_JPRB,4.1856E-01_JPRB,4.4359E-01_JPRB/)  
+KBO( :,57,11) = (/&
+ & 3.2167E-01_JPRB,3.3432E-01_JPRB,3.4630E-01_JPRB,3.5981E-01_JPRB,3.7784E-01_JPRB/)  
+KBO( :,58,11) = (/&
+ & 2.7464E-01_JPRB,2.8702E-01_JPRB,2.9867E-01_JPRB,3.1204E-01_JPRB,3.2934E-01_JPRB/)  
+KBO( :,59,11) = (/&
+ & 2.4621E-01_JPRB,2.6016E-01_JPRB,2.7340E-01_JPRB,2.8845E-01_JPRB,3.0710E-01_JPRB/)  
+KBO( :,13,12) = (/&
+ & 7.6977E+02_JPRB,7.4793E+02_JPRB,7.2446E+02_JPRB,7.0066E+02_JPRB,6.7917E+02_JPRB/)  
+KBO( :,14,12) = (/&
+ & 7.3387E+02_JPRB,7.1230E+02_JPRB,6.9130E+02_JPRB,6.7176E+02_JPRB,6.5300E+02_JPRB/)  
+KBO( :,15,12) = (/&
+ & 6.8782E+02_JPRB,6.6903E+02_JPRB,6.5059E+02_JPRB,6.3401E+02_JPRB,6.1759E+02_JPRB/)  
+KBO( :,16,12) = (/&
+ & 6.4095E+02_JPRB,6.2380E+02_JPRB,6.0836E+02_JPRB,5.9188E+02_JPRB,5.7529E+02_JPRB/)  
+KBO( :,17,12) = (/&
+ & 5.9449E+02_JPRB,5.7921E+02_JPRB,5.6352E+02_JPRB,5.4698E+02_JPRB,5.3012E+02_JPRB/)  
+KBO( :,18,12) = (/&
+ & 5.4607E+02_JPRB,5.3143E+02_JPRB,5.1532E+02_JPRB,4.9867E+02_JPRB,4.8280E+02_JPRB/)  
+KBO( :,19,12) = (/&
+ & 4.9392E+02_JPRB,4.7903E+02_JPRB,4.6380E+02_JPRB,4.4890E+02_JPRB,4.3556E+02_JPRB/)  
+KBO( :,20,12) = (/&
+ & 4.3831E+02_JPRB,4.2422E+02_JPRB,4.1067E+02_JPRB,3.9873E+02_JPRB,3.8790E+02_JPRB/)  
+KBO( :,21,12) = (/&
+ & 3.8303E+02_JPRB,3.7136E+02_JPRB,3.6097E+02_JPRB,3.5152E+02_JPRB,3.4179E+02_JPRB/)  
+KBO( :,22,12) = (/&
+ & 3.3154E+02_JPRB,3.2264E+02_JPRB,3.1420E+02_JPRB,3.0537E+02_JPRB,2.9621E+02_JPRB/)  
+KBO( :,23,12) = (/&
+ & 2.8552E+02_JPRB,2.7799E+02_JPRB,2.7005E+02_JPRB,2.6190E+02_JPRB,2.5375E+02_JPRB/)  
+KBO( :,24,12) = (/&
+ & 2.4392E+02_JPRB,2.3705E+02_JPRB,2.3003E+02_JPRB,2.2307E+02_JPRB,2.1616E+02_JPRB/)  
+KBO( :,25,12) = (/&
+ & 2.0671E+02_JPRB,2.0086E+02_JPRB,1.9497E+02_JPRB,1.8915E+02_JPRB,1.8353E+02_JPRB/)  
+KBO( :,26,12) = (/&
+ & 1.7664E+02_JPRB,1.7174E+02_JPRB,1.6687E+02_JPRB,1.6216E+02_JPRB,1.5754E+02_JPRB/)  
+KBO( :,27,12) = (/&
+ & 1.5319E+02_JPRB,1.4908E+02_JPRB,1.4506E+02_JPRB,1.4106E+02_JPRB,1.3709E+02_JPRB/)  
+KBO( :,28,12) = (/&
+ & 1.3430E+02_JPRB,1.3082E+02_JPRB,1.2741E+02_JPRB,1.2394E+02_JPRB,1.2050E+02_JPRB/)  
+KBO( :,29,12) = (/&
+ & 1.1630E+02_JPRB,1.1343E+02_JPRB,1.1046E+02_JPRB,1.0751E+02_JPRB,1.0464E+02_JPRB/)  
+KBO( :,30,12) = (/&
+ & 1.0003E+02_JPRB,9.7504E+01_JPRB,9.4984E+01_JPRB,9.2511E+01_JPRB,9.0094E+01_JPRB/)  
+KBO( :,31,12) = (/&
+ & 8.4543E+01_JPRB,8.2421E+01_JPRB,8.0309E+01_JPRB,7.8252E+01_JPRB,7.6362E+01_JPRB/)  
+KBO( :,32,12) = (/&
+ & 7.1066E+01_JPRB,6.9287E+01_JPRB,6.7542E+01_JPRB,6.5943E+01_JPRB,6.4517E+01_JPRB/)  
+KBO( :,33,12) = (/&
+ & 5.9266E+01_JPRB,5.7811E+01_JPRB,5.6464E+01_JPRB,5.5276E+01_JPRB,5.4194E+01_JPRB/)  
+KBO( :,34,12) = (/&
+ & 4.9681E+01_JPRB,4.8546E+01_JPRB,4.7554E+01_JPRB,4.6656E+01_JPRB,4.5832E+01_JPRB/)  
+KBO( :,35,12) = (/&
+ & 4.1619E+01_JPRB,4.0779E+01_JPRB,4.0048E+01_JPRB,3.9371E+01_JPRB,3.8753E+01_JPRB/)  
+KBO( :,36,12) = (/&
+ & 3.4973E+01_JPRB,3.4356E+01_JPRB,3.3793E+01_JPRB,3.3278E+01_JPRB,3.2853E+01_JPRB/)  
+KBO( :,37,12) = (/&
+ & 2.9625E+01_JPRB,2.9160E+01_JPRB,2.8725E+01_JPRB,2.8363E+01_JPRB,2.8073E+01_JPRB/)  
+KBO( :,38,12) = (/&
+ & 2.4970E+01_JPRB,2.4629E+01_JPRB,2.4322E+01_JPRB,2.4082E+01_JPRB,2.3896E+01_JPRB/)  
+KBO( :,39,12) = (/&
+ & 2.0934E+01_JPRB,2.0693E+01_JPRB,2.0489E+01_JPRB,2.0344E+01_JPRB,2.0233E+01_JPRB/)  
+KBO( :,40,12) = (/&
+ & 1.7744E+01_JPRB,1.7586E+01_JPRB,1.7465E+01_JPRB,1.7392E+01_JPRB,1.7346E+01_JPRB/)  
+KBO( :,41,12) = (/&
+ & 1.5025E+01_JPRB,1.4924E+01_JPRB,1.4869E+01_JPRB,1.4860E+01_JPRB,1.4867E+01_JPRB/)  
+KBO( :,42,12) = (/&
+ & 1.2685E+01_JPRB,1.2638E+01_JPRB,1.2631E+01_JPRB,1.2651E+01_JPRB,1.2715E+01_JPRB/)  
+KBO( :,43,12) = (/&
+ & 1.0719E+01_JPRB,1.0717E+01_JPRB,1.0742E+01_JPRB,1.0783E+01_JPRB,1.0880E+01_JPRB/)  
+KBO( :,44,12) = (/&
+ & 9.0501E+00_JPRB,9.0820E+00_JPRB,9.1279E+00_JPRB,9.1850E+00_JPRB,9.2721E+00_JPRB/)  
+KBO( :,45,12) = (/&
+ & 7.6162E+00_JPRB,7.6722E+00_JPRB,7.7324E+00_JPRB,7.8018E+00_JPRB,7.9000E+00_JPRB/)  
+KBO( :,46,12) = (/&
+ & 6.3962E+00_JPRB,6.4687E+00_JPRB,6.5373E+00_JPRB,6.6160E+00_JPRB,6.7192E+00_JPRB/)  
+KBO( :,47,12) = (/&
+ & 5.3742E+00_JPRB,5.4559E+00_JPRB,5.5296E+00_JPRB,5.6153E+00_JPRB,5.7197E+00_JPRB/)  
+KBO( :,48,12) = (/&
+ & 4.4947E+00_JPRB,4.5364E+00_JPRB,4.6536E+00_JPRB,4.7417E+00_JPRB,4.8452E+00_JPRB/)  
+KBO( :,49,12) = (/&
+ & 3.7377E+00_JPRB,3.7797E+00_JPRB,3.8917E+00_JPRB,3.9774E+00_JPRB,4.0760E+00_JPRB/)  
+KBO( :,50,12) = (/&
+ & 3.1257E+00_JPRB,3.1688E+00_JPRB,3.2414E+00_JPRB,3.3587E+00_JPRB,3.4531E+00_JPRB/)  
+KBO( :,51,12) = (/&
+ & 2.6197E+00_JPRB,2.6616E+00_JPRB,2.7310E+00_JPRB,2.8422E+00_JPRB,2.9329E+00_JPRB/)  
+KBO( :,52,12) = (/&
+ & 2.1600E+00_JPRB,2.2271E+00_JPRB,2.2920E+00_JPRB,2.3952E+00_JPRB,2.4794E+00_JPRB/)  
+KBO( :,53,12) = (/&
+ & 1.7940E+00_JPRB,1.8552E+00_JPRB,1.9143E+00_JPRB,2.0071E+00_JPRB,2.0842E+00_JPRB/)  
+KBO( :,54,12) = (/&
+ & 1.5125E+00_JPRB,1.5709E+00_JPRB,1.6271E+00_JPRB,1.7149E+00_JPRB,1.7900E+00_JPRB/)  
+KBO( :,55,12) = (/&
+ & 1.2864E+00_JPRB,1.3434E+00_JPRB,1.3983E+00_JPRB,1.4607E+00_JPRB,1.5586E+00_JPRB/)  
+KBO( :,56,12) = (/&
+ & 1.0940E+00_JPRB,1.1493E+00_JPRB,1.2023E+00_JPRB,1.2621E+00_JPRB,1.3583E+00_JPRB/)  
+KBO( :,57,12) = (/&
+ & 9.3078E-01_JPRB,9.8417E-01_JPRB,1.0349E+00_JPRB,1.0915E+00_JPRB,1.1646E+00_JPRB/)  
+KBO( :,58,12) = (/&
+ & 7.9608E-01_JPRB,8.4769E-01_JPRB,8.9646E-01_JPRB,9.5071E-01_JPRB,1.0223E+00_JPRB/)  
+KBO( :,59,12) = (/&
+ & 7.1554E-01_JPRB,7.6833E-01_JPRB,8.2032E-01_JPRB,8.7901E-01_JPRB,9.5749E-01_JPRB/)  
+KBO( :,13,13) = (/&
+ & 1.4216E+03_JPRB,1.3963E+03_JPRB,1.3631E+03_JPRB,1.3261E+03_JPRB,1.2872E+03_JPRB/)  
+KBO( :,14,13) = (/&
+ & 1.4474E+03_JPRB,1.4163E+03_JPRB,1.3787E+03_JPRB,1.3394E+03_JPRB,1.2981E+03_JPRB/)  
+KBO( :,15,13) = (/&
+ & 1.4512E+03_JPRB,1.4149E+03_JPRB,1.3749E+03_JPRB,1.3327E+03_JPRB,1.2901E+03_JPRB/)  
+KBO( :,16,13) = (/&
+ & 1.4256E+03_JPRB,1.3858E+03_JPRB,1.3435E+03_JPRB,1.3004E+03_JPRB,1.2608E+03_JPRB/)  
+KBO( :,17,13) = (/&
+ & 1.3679E+03_JPRB,1.3285E+03_JPRB,1.2893E+03_JPRB,1.2520E+03_JPRB,1.2169E+03_JPRB/)  
+KBO( :,18,13) = (/&
+ & 1.2910E+03_JPRB,1.2552E+03_JPRB,1.2211E+03_JPRB,1.1883E+03_JPRB,1.1564E+03_JPRB/)  
+KBO( :,19,13) = (/&
+ & 1.2049E+03_JPRB,1.1727E+03_JPRB,1.1421E+03_JPRB,1.1114E+03_JPRB,1.0816E+03_JPRB/)  
+KBO( :,20,13) = (/&
+ & 1.1167E+03_JPRB,1.0881E+03_JPRB,1.0594E+03_JPRB,1.0292E+03_JPRB,9.9813E+02_JPRB/)  
+KBO( :,21,13) = (/&
+ & 1.0270E+03_JPRB,9.9863E+02_JPRB,9.6867E+02_JPRB,9.3868E+02_JPRB,9.1038E+02_JPRB/)  
+KBO( :,22,13) = (/&
+ & 9.2976E+02_JPRB,9.0181E+02_JPRB,8.7366E+02_JPRB,8.4725E+02_JPRB,8.2285E+02_JPRB/)  
+KBO( :,23,13) = (/&
+ & 8.2725E+02_JPRB,8.0202E+02_JPRB,7.7822E+02_JPRB,7.5610E+02_JPRB,7.3490E+02_JPRB/)  
+KBO( :,24,13) = (/&
+ & 7.2581E+02_JPRB,7.0458E+02_JPRB,6.8480E+02_JPRB,6.6655E+02_JPRB,6.4907E+02_JPRB/)  
+KBO( :,25,13) = (/&
+ & 6.3072E+02_JPRB,6.1389E+02_JPRB,5.9813E+02_JPRB,5.8216E+02_JPRB,5.6605E+02_JPRB/)  
+KBO( :,26,13) = (/&
+ & 5.4441E+02_JPRB,5.3034E+02_JPRB,5.1604E+02_JPRB,5.0169E+02_JPRB,4.8714E+02_JPRB/)  
+KBO( :,27,13) = (/&
+ & 4.6653E+02_JPRB,4.5389E+02_JPRB,4.4148E+02_JPRB,4.2897E+02_JPRB,4.1698E+02_JPRB/)  
+KBO( :,28,13) = (/&
+ & 3.9708E+02_JPRB,3.8655E+02_JPRB,3.7613E+02_JPRB,3.6588E+02_JPRB,3.5605E+02_JPRB/)  
+KBO( :,29,13) = (/&
+ & 3.3742E+02_JPRB,3.2877E+02_JPRB,3.2031E+02_JPRB,3.1201E+02_JPRB,3.0377E+02_JPRB/)  
+KBO( :,30,13) = (/&
+ & 2.8701E+02_JPRB,2.8009E+02_JPRB,2.7310E+02_JPRB,2.6617E+02_JPRB,2.5918E+02_JPRB/)  
+KBO( :,31,13) = (/&
+ & 2.4344E+02_JPRB,2.3761E+02_JPRB,2.3174E+02_JPRB,2.2586E+02_JPRB,2.1997E+02_JPRB/)  
+KBO( :,32,13) = (/&
+ & 2.0631E+02_JPRB,2.0140E+02_JPRB,1.9647E+02_JPRB,1.9146E+02_JPRB,1.8661E+02_JPRB/)  
+KBO( :,33,13) = (/&
+ & 1.7451E+02_JPRB,1.7040E+02_JPRB,1.6625E+02_JPRB,1.6215E+02_JPRB,1.5828E+02_JPRB/)  
+KBO( :,34,13) = (/&
+ & 1.4849E+02_JPRB,1.4504E+02_JPRB,1.4164E+02_JPRB,1.3837E+02_JPRB,1.3534E+02_JPRB/)  
+KBO( :,35,13) = (/&
+ & 1.2667E+02_JPRB,1.2383E+02_JPRB,1.2110E+02_JPRB,1.1850E+02_JPRB,1.1620E+02_JPRB/)  
+KBO( :,36,13) = (/&
+ & 1.0839E+02_JPRB,1.0609E+02_JPRB,1.0390E+02_JPRB,1.0191E+02_JPRB,1.0024E+02_JPRB/)  
+KBO( :,37,13) = (/&
+ & 9.3433E+01_JPRB,9.1633E+01_JPRB,8.9904E+01_JPRB,8.8384E+01_JPRB,8.7182E+01_JPRB/)  
+KBO( :,38,13) = (/&
+ & 8.0277E+01_JPRB,7.8883E+01_JPRB,7.7590E+01_JPRB,7.6493E+01_JPRB,7.5656E+01_JPRB/)  
+KBO( :,39,13) = (/&
+ & 6.8616E+01_JPRB,6.7545E+01_JPRB,6.6602E+01_JPRB,6.5907E+01_JPRB,6.5350E+01_JPRB/)  
+KBO( :,40,13) = (/&
+ & 5.9404E+01_JPRB,5.8632E+01_JPRB,5.7971E+01_JPRB,5.7558E+01_JPRB,5.7248E+01_JPRB/)  
+KBO( :,41,13) = (/&
+ & 5.1376E+01_JPRB,5.0859E+01_JPRB,5.0445E+01_JPRB,5.0221E+01_JPRB,5.0128E+01_JPRB/)  
+KBO( :,42,13) = (/&
+ & 4.4234E+01_JPRB,4.3936E+01_JPRB,4.3743E+01_JPRB,4.3725E+01_JPRB,4.3767E+01_JPRB/)  
+KBO( :,43,13) = (/&
+ & 3.8053E+01_JPRB,3.7937E+01_JPRB,3.7898E+01_JPRB,3.8023E+01_JPRB,3.8201E+01_JPRB/)  
+KBO( :,44,13) = (/&
+ & 3.2676E+01_JPRB,3.2705E+01_JPRB,3.2770E+01_JPRB,3.2989E+01_JPRB,3.3265E+01_JPRB/)  
+KBO( :,45,13) = (/&
+ & 2.7944E+01_JPRB,2.8089E+01_JPRB,2.8247E+01_JPRB,2.8518E+01_JPRB,2.8846E+01_JPRB/)  
+KBO( :,46,13) = (/&
+ & 2.3845E+01_JPRB,2.4085E+01_JPRB,2.4309E+01_JPRB,2.4615E+01_JPRB,2.4979E+01_JPRB/)  
+KBO( :,47,13) = (/&
+ & 2.0369E+01_JPRB,2.0675E+01_JPRB,2.0941E+01_JPRB,2.1268E+01_JPRB,2.1673E+01_JPRB/)  
+KBO( :,48,13) = (/&
+ & 1.7326E+01_JPRB,1.7556E+01_JPRB,1.7948E+01_JPRB,1.8285E+01_JPRB,1.8703E+01_JPRB/)  
+KBO( :,49,13) = (/&
+ & 1.4637E+01_JPRB,1.4880E+01_JPRB,1.5276E+01_JPRB,1.5608E+01_JPRB,1.6019E+01_JPRB/)  
+KBO( :,50,13) = (/&
+ & 1.2439E+01_JPRB,1.2696E+01_JPRB,1.3009E+01_JPRB,1.3432E+01_JPRB,1.3843E+01_JPRB/)  
+KBO( :,51,13) = (/&
+ & 1.0584E+01_JPRB,1.0852E+01_JPRB,1.1176E+01_JPRB,1.1603E+01_JPRB,1.2011E+01_JPRB/)  
+KBO( :,52,13) = (/&
+ & 8.8615E+00_JPRB,9.2312E+00_JPRB,9.5521E+00_JPRB,9.9700E+00_JPRB,1.0369E+01_JPRB/)  
+KBO( :,53,13) = (/&
+ & 7.4436E+00_JPRB,7.8034E+00_JPRB,8.1100E+00_JPRB,8.5076E+00_JPRB,8.8838E+00_JPRB/)  
+KBO( :,54,13) = (/&
+ & 6.3609E+00_JPRB,6.7200E+00_JPRB,7.0326E+00_JPRB,7.4311E+00_JPRB,7.8042E+00_JPRB/)  
+KBO( :,55,13) = (/&
+ & 5.4942E+00_JPRB,5.8571E+00_JPRB,6.1799E+00_JPRB,6.4978E+00_JPRB,6.9694E+00_JPRB/)  
+KBO( :,56,13) = (/&
+ & 4.7434E+00_JPRB,5.1101E+00_JPRB,5.4346E+00_JPRB,5.7533E+00_JPRB,6.2335E+00_JPRB/)  
+KBO( :,57,13) = (/&
+ & 4.0946E+00_JPRB,4.4592E+00_JPRB,4.7823E+00_JPRB,5.1021E+00_JPRB,5.4957E+00_JPRB/)  
+KBO( :,58,13) = (/&
+ & 3.5510E+00_JPRB,3.9146E+00_JPRB,4.2394E+00_JPRB,4.5624E+00_JPRB,4.9570E+00_JPRB/)  
+KBO( :,59,13) = (/&
+ & 3.2469E+00_JPRB,3.6400E+00_JPRB,4.0004E+00_JPRB,4.3660E+00_JPRB,4.8112E+00_JPRB/)  
+KBO( :,13,14) = (/&
+ & 2.9334E+03_JPRB,2.8777E+03_JPRB,2.8251E+03_JPRB,2.7722E+03_JPRB,2.7139E+03_JPRB/)  
+KBO( :,14,14) = (/&
+ & 3.0980E+03_JPRB,3.0395E+03_JPRB,2.9754E+03_JPRB,2.9139E+03_JPRB,2.8590E+03_JPRB/)  
+KBO( :,15,14) = (/&
+ & 3.2422E+03_JPRB,3.1687E+03_JPRB,3.1071E+03_JPRB,3.0415E+03_JPRB,2.9792E+03_JPRB/)  
+KBO( :,16,14) = (/&
+ & 3.3594E+03_JPRB,3.2894E+03_JPRB,3.2245E+03_JPRB,3.1534E+03_JPRB,3.0780E+03_JPRB/)  
+KBO( :,17,14) = (/&
+ & 3.4662E+03_JPRB,3.3974E+03_JPRB,3.3177E+03_JPRB,3.2347E+03_JPRB,3.1458E+03_JPRB/)  
+KBO( :,18,14) = (/&
+ & 3.5551E+03_JPRB,3.4706E+03_JPRB,3.3818E+03_JPRB,3.2833E+03_JPRB,3.1871E+03_JPRB/)  
+KBO( :,19,14) = (/&
+ & 3.5953E+03_JPRB,3.5053E+03_JPRB,3.4059E+03_JPRB,3.3056E+03_JPRB,3.2071E+03_JPRB/)  
+KBO( :,20,14) = (/&
+ & 3.5722E+03_JPRB,3.4751E+03_JPRB,3.3772E+03_JPRB,3.2793E+03_JPRB,3.1813E+03_JPRB/)  
+KBO( :,21,14) = (/&
+ & 3.4918E+03_JPRB,3.3970E+03_JPRB,3.3000E+03_JPRB,3.2054E+03_JPRB,3.1102E+03_JPRB/)  
+KBO( :,22,14) = (/&
+ & 3.3556E+03_JPRB,3.2639E+03_JPRB,3.1694E+03_JPRB,3.0789E+03_JPRB,2.9903E+03_JPRB/)  
+KBO( :,23,14) = (/&
+ & 3.1787E+03_JPRB,3.0917E+03_JPRB,3.0049E+03_JPRB,2.9210E+03_JPRB,2.8398E+03_JPRB/)  
+KBO( :,24,14) = (/&
+ & 2.9739E+03_JPRB,2.8938E+03_JPRB,2.8153E+03_JPRB,2.7372E+03_JPRB,2.6621E+03_JPRB/)  
+KBO( :,25,14) = (/&
+ & 2.7453E+03_JPRB,2.6720E+03_JPRB,2.6011E+03_JPRB,2.5300E+03_JPRB,2.4637E+03_JPRB/)  
+KBO( :,26,14) = (/&
+ & 2.5096E+03_JPRB,2.4426E+03_JPRB,2.3775E+03_JPRB,2.3148E+03_JPRB,2.2551E+03_JPRB/)  
+KBO( :,27,14) = (/&
+ & 2.2699E+03_JPRB,2.2101E+03_JPRB,2.1525E+03_JPRB,2.0966E+03_JPRB,2.0458E+03_JPRB/)  
+KBO( :,28,14) = (/&
+ & 2.0339E+03_JPRB,1.9809E+03_JPRB,1.9302E+03_JPRB,1.8831E+03_JPRB,1.8402E+03_JPRB/)  
+KBO( :,29,14) = (/&
+ & 1.8034E+03_JPRB,1.7583E+03_JPRB,1.7163E+03_JPRB,1.6782E+03_JPRB,1.6421E+03_JPRB/)  
+KBO( :,30,14) = (/&
+ & 1.5820E+03_JPRB,1.5447E+03_JPRB,1.5128E+03_JPRB,1.4831E+03_JPRB,1.4550E+03_JPRB/)  
+KBO( :,31,14) = (/&
+ & 1.3768E+03_JPRB,1.3502E+03_JPRB,1.3259E+03_JPRB,1.3028E+03_JPRB,1.2805E+03_JPRB/)  
+KBO( :,32,14) = (/&
+ & 1.1943E+03_JPRB,1.1745E+03_JPRB,1.1559E+03_JPRB,1.1380E+03_JPRB,1.1211E+03_JPRB/)  
+KBO( :,33,14) = (/&
+ & 1.0318E+03_JPRB,1.0174E+03_JPRB,1.0030E+03_JPRB,9.8941E+02_JPRB,9.7764E+02_JPRB/)  
+KBO( :,34,14) = (/&
+ & 8.9071E+02_JPRB,8.7939E+02_JPRB,8.6886E+02_JPRB,8.6024E+02_JPRB,8.5244E+02_JPRB/)  
+KBO( :,35,14) = (/&
+ & 7.6798E+02_JPRB,7.6029E+02_JPRB,7.5422E+02_JPRB,7.4951E+02_JPRB,7.4470E+02_JPRB/)  
+KBO( :,36,14) = (/&
+ & 6.6325E+02_JPRB,6.5893E+02_JPRB,6.5635E+02_JPRB,6.5426E+02_JPRB,6.5190E+02_JPRB/)  
+KBO( :,37,14) = (/&
+ & 5.7400E+02_JPRB,5.7252E+02_JPRB,5.7250E+02_JPRB,5.7225E+02_JPRB,5.7202E+02_JPRB/)  
+KBO( :,38,14) = (/&
+ & 4.9686E+02_JPRB,4.9759E+02_JPRB,4.9968E+02_JPRB,5.0087E+02_JPRB,5.0220E+02_JPRB/)  
+KBO( :,39,14) = (/&
+ & 4.3040E+02_JPRB,4.3277E+02_JPRB,4.3573E+02_JPRB,4.3837E+02_JPRB,4.4124E+02_JPRB/)  
+KBO( :,40,14) = (/&
+ & 3.7403E+02_JPRB,3.7755E+02_JPRB,3.8110E+02_JPRB,3.8474E+02_JPRB,3.8876E+02_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB1:PART6',1,ZHOOK_HANDLE)
+END SUBROUTINE PART6
+
+
+SUBROUTINE PART7
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB1:PART7',0,ZHOOK_HANDLE)
+
+
+KBO( :,41,14) = (/&
+ & 3.2578E+02_JPRB,3.3002E+02_JPRB,3.3411E+02_JPRB,3.3839E+02_JPRB,3.4323E+02_JPRB/)  
+KBO( :,42,14) = (/&
+ & 2.8407E+02_JPRB,2.8896E+02_JPRB,2.9341E+02_JPRB,2.9793E+02_JPRB,3.0372E+02_JPRB/)  
+KBO( :,43,14) = (/&
+ & 2.4780E+02_JPRB,2.5311E+02_JPRB,2.5804E+02_JPRB,2.6300E+02_JPRB,2.6916E+02_JPRB/)  
+KBO( :,44,14) = (/&
+ & 2.1608E+02_JPRB,2.2160E+02_JPRB,2.2690E+02_JPRB,2.3233E+02_JPRB,2.3866E+02_JPRB/)  
+KBO( :,45,14) = (/&
+ & 1.8824E+02_JPRB,1.9381E+02_JPRB,1.9935E+02_JPRB,2.0504E+02_JPRB,2.1167E+02_JPRB/)  
+KBO( :,46,14) = (/&
+ & 1.6388E+02_JPRB,1.6938E+02_JPRB,1.7501E+02_JPRB,1.8081E+02_JPRB,1.8759E+02_JPRB/)  
+KBO( :,47,14) = (/&
+ & 1.4266E+02_JPRB,1.4798E+02_JPRB,1.5358E+02_JPRB,1.5946E+02_JPRB,1.6626E+02_JPRB/)  
+KBO( :,48,14) = (/&
+ & 1.2380E+02_JPRB,1.2887E+02_JPRB,1.3460E+02_JPRB,1.4036E+02_JPRB,1.4712E+02_JPRB/)  
+KBO( :,49,14) = (/&
+ & 1.0697E+02_JPRB,1.1187E+02_JPRB,1.1753E+02_JPRB,1.2324E+02_JPRB,1.2991E+02_JPRB/)  
+KBO( :,50,14) = (/&
+ & 9.2940E+01_JPRB,9.7678E+01_JPRB,1.0307E+02_JPRB,1.0888E+02_JPRB,1.1536E+02_JPRB/)  
+KBO( :,51,14) = (/&
+ & 8.1029E+01_JPRB,8.5527E+01_JPRB,9.0730E+01_JPRB,9.6501E+01_JPRB,1.0280E+02_JPRB/)  
+KBO( :,52,14) = (/&
+ & 7.0406E+01_JPRB,7.4706E+01_JPRB,7.9713E+01_JPRB,8.5353E+01_JPRB,9.1529E+01_JPRB/)  
+KBO( :,53,14) = (/&
+ & 6.0914E+01_JPRB,6.5029E+01_JPRB,6.9770E+01_JPRB,7.5302E+01_JPRB,8.1302E+01_JPRB/)  
+KBO( :,54,14) = (/&
+ & 5.3685E+01_JPRB,5.7712E+01_JPRB,6.2246E+01_JPRB,6.7555E+01_JPRB,7.3372E+01_JPRB/)  
+KBO( :,55,14) = (/&
+ & 4.8002E+01_JPRB,5.1999E+01_JPRB,5.6435E+01_JPRB,6.1422E+01_JPRB,6.7178E+01_JPRB/)  
+KBO( :,56,14) = (/&
+ & 4.3069E+01_JPRB,4.7058E+01_JPRB,5.1421E+01_JPRB,5.6338E+01_JPRB,6.1901E+01_JPRB/)  
+KBO( :,57,14) = (/&
+ & 3.8718E+01_JPRB,4.2795E+01_JPRB,4.7064E+01_JPRB,5.1974E+01_JPRB,5.7337E+01_JPRB/)  
+KBO( :,58,14) = (/&
+ & 3.5127E+01_JPRB,3.9394E+01_JPRB,4.3676E+01_JPRB,4.8594E+01_JPRB,5.4054E+01_JPRB/)  
+KBO( :,59,14) = (/&
+ & 3.4411E+01_JPRB,3.9387E+01_JPRB,4.4312E+01_JPRB,4.9761E+01_JPRB,5.5833E+01_JPRB/)  
+KBO( :,13,15) = (/&
+ & 5.8626E+03_JPRB,5.7531E+03_JPRB,5.6999E+03_JPRB,5.6080E+03_JPRB,5.5646E+03_JPRB/)  
+KBO( :,14,15) = (/&
+ & 6.6299E+03_JPRB,6.5552E+03_JPRB,6.4532E+03_JPRB,6.3570E+03_JPRB,6.2707E+03_JPRB/)  
+KBO( :,15,15) = (/&
+ & 7.5140E+03_JPRB,7.3938E+03_JPRB,7.2851E+03_JPRB,7.1606E+03_JPRB,7.0596E+03_JPRB/)  
+KBO( :,16,15) = (/&
+ & 8.4004E+03_JPRB,8.2640E+03_JPRB,8.1296E+03_JPRB,7.9995E+03_JPRB,7.8682E+03_JPRB/)  
+KBO( :,17,15) = (/&
+ & 9.2783E+03_JPRB,9.1233E+03_JPRB,8.9809E+03_JPRB,8.8341E+03_JPRB,8.6706E+03_JPRB/)  
+KBO( :,18,15) = (/&
+ & 1.0203E+04_JPRB,9.9981E+03_JPRB,9.8375E+03_JPRB,9.6605E+03_JPRB,9.4887E+03_JPRB/)  
+KBO( :,19,15) = (/&
+ & 1.1106E+04_JPRB,1.0894E+04_JPRB,1.0688E+04_JPRB,1.0490E+04_JPRB,1.0272E+04_JPRB/)  
+KBO( :,20,15) = (/&
+ & 1.2022E+04_JPRB,1.1788E+04_JPRB,1.1526E+04_JPRB,1.1301E+04_JPRB,1.1063E+04_JPRB/)  
+KBO( :,21,15) = (/&
+ & 1.2860E+04_JPRB,1.2601E+04_JPRB,1.2351E+04_JPRB,1.2080E+04_JPRB,1.1797E+04_JPRB/)  
+KBO( :,22,15) = (/&
+ & 1.3622E+04_JPRB,1.3359E+04_JPRB,1.3050E+04_JPRB,1.2774E+04_JPRB,1.2461E+04_JPRB/)  
+KBO( :,23,15) = (/&
+ & 1.4282E+04_JPRB,1.3995E+04_JPRB,1.3676E+04_JPRB,1.3349E+04_JPRB,1.3009E+04_JPRB/)  
+KBO( :,24,15) = (/&
+ & 1.4830E+04_JPRB,1.4486E+04_JPRB,1.4138E+04_JPRB,1.3782E+04_JPRB,1.3441E+04_JPRB/)  
+KBO( :,25,15) = (/&
+ & 1.5198E+04_JPRB,1.4832E+04_JPRB,1.4459E+04_JPRB,1.4100E+04_JPRB,1.3752E+04_JPRB/)  
+KBO( :,26,15) = (/&
+ & 1.5360E+04_JPRB,1.4999E+04_JPRB,1.4642E+04_JPRB,1.4292E+04_JPRB,1.3943E+04_JPRB/)  
+KBO( :,27,15) = (/&
+ & 1.5406E+04_JPRB,1.5053E+04_JPRB,1.4691E+04_JPRB,1.4344E+04_JPRB,1.3993E+04_JPRB/)  
+KBO( :,28,15) = (/&
+ & 1.5350E+04_JPRB,1.4989E+04_JPRB,1.4625E+04_JPRB,1.4280E+04_JPRB,1.3936E+04_JPRB/)  
+KBO( :,29,15) = (/&
+ & 1.5162E+04_JPRB,1.4811E+04_JPRB,1.4452E+04_JPRB,1.4117E+04_JPRB,1.3798E+04_JPRB/)  
+KBO( :,30,15) = (/&
+ & 1.4888E+04_JPRB,1.4556E+04_JPRB,1.4228E+04_JPRB,1.3905E+04_JPRB,1.3609E+04_JPRB/)  
+KBO( :,31,15) = (/&
+ & 1.4511E+04_JPRB,1.4207E+04_JPRB,1.3919E+04_JPRB,1.3634E+04_JPRB,1.3368E+04_JPRB/)  
+KBO( :,32,15) = (/&
+ & 1.4068E+04_JPRB,1.3811E+04_JPRB,1.3560E+04_JPRB,1.3325E+04_JPRB,1.3103E+04_JPRB/)  
+KBO( :,33,15) = (/&
+ & 1.3601E+04_JPRB,1.3399E+04_JPRB,1.3196E+04_JPRB,1.3006E+04_JPRB,1.2830E+04_JPRB/)  
+KBO( :,34,15) = (/&
+ & 1.3119E+04_JPRB,1.2976E+04_JPRB,1.2834E+04_JPRB,1.2699E+04_JPRB,1.2559E+04_JPRB/)  
+KBO( :,35,15) = (/&
+ & 1.2646E+04_JPRB,1.2564E+04_JPRB,1.2475E+04_JPRB,1.2392E+04_JPRB,1.2320E+04_JPRB/)  
+KBO( :,36,15) = (/&
+ & 1.2190E+04_JPRB,1.2170E+04_JPRB,1.2138E+04_JPRB,1.2103E+04_JPRB,1.2079E+04_JPRB/)  
+KBO( :,37,15) = (/&
+ & 1.1737E+04_JPRB,1.1781E+04_JPRB,1.1808E+04_JPRB,1.1824E+04_JPRB,1.1847E+04_JPRB/)  
+KBO( :,38,15) = (/&
+ & 1.1288E+04_JPRB,1.1385E+04_JPRB,1.1474E+04_JPRB,1.1550E+04_JPRB,1.1619E+04_JPRB/)  
+KBO( :,39,15) = (/&
+ & 1.0856E+04_JPRB,1.1010E+04_JPRB,1.1156E+04_JPRB,1.1287E+04_JPRB,1.1401E+04_JPRB/)  
+KBO( :,40,15) = (/&
+ & 1.0434E+04_JPRB,1.0638E+04_JPRB,1.0839E+04_JPRB,1.1017E+04_JPRB,1.1176E+04_JPRB/)  
+KBO( :,41,15) = (/&
+ & 1.0025E+04_JPRB,1.0281E+04_JPRB,1.0529E+04_JPRB,1.0755E+04_JPRB,1.0956E+04_JPRB/)  
+KBO( :,42,15) = (/&
+ & 9.6179E+03_JPRB,9.9405E+03_JPRB,1.0234E+04_JPRB,1.0504E+04_JPRB,1.0740E+04_JPRB/)  
+KBO( :,43,15) = (/&
+ & 9.2261E+03_JPRB,9.6002E+03_JPRB,9.9385E+03_JPRB,1.0249E+04_JPRB,1.0522E+04_JPRB/)  
+KBO( :,44,15) = (/&
+ & 8.8369E+03_JPRB,9.2610E+03_JPRB,9.6434E+03_JPRB,9.9917E+03_JPRB,1.0304E+04_JPRB/)  
+KBO( :,45,15) = (/&
+ & 8.4565E+03_JPRB,8.9270E+03_JPRB,9.3572E+03_JPRB,9.7378E+03_JPRB,1.0089E+04_JPRB/)  
+KBO( :,46,15) = (/&
+ & 8.0787E+03_JPRB,8.5914E+03_JPRB,9.0699E+03_JPRB,9.4822E+03_JPRB,9.8664E+03_JPRB/)  
+KBO( :,47,15) = (/&
+ & 7.6853E+03_JPRB,8.2420E+03_JPRB,8.7669E+03_JPRB,9.2155E+03_JPRB,9.6327E+03_JPRB/)  
+KBO( :,48,15) = (/&
+ & 7.2976E+03_JPRB,7.9018E+03_JPRB,8.4572E+03_JPRB,8.9503E+03_JPRB,9.3974E+03_JPRB/)  
+KBO( :,49,15) = (/&
+ & 6.9137E+03_JPRB,7.5530E+03_JPRB,8.1461E+03_JPRB,8.6824E+03_JPRB,9.1633E+03_JPRB/)  
+KBO( :,50,15) = (/&
+ & 6.5439E+03_JPRB,7.2215E+03_JPRB,7.8385E+03_JPRB,8.4232E+03_JPRB,8.9404E+03_JPRB/)  
+KBO( :,51,15) = (/&
+ & 6.1848E+03_JPRB,6.8963E+03_JPRB,7.5471E+03_JPRB,8.1684E+03_JPRB,8.7207E+03_JPRB/)  
+KBO( :,52,15) = (/&
+ & 5.8189E+03_JPRB,6.5740E+03_JPRB,7.2547E+03_JPRB,7.9146E+03_JPRB,8.4977E+03_JPRB/)  
+KBO( :,53,15) = (/&
+ & 5.4670E+03_JPRB,6.2525E+03_JPRB,6.9648E+03_JPRB,7.6568E+03_JPRB,8.2688E+03_JPRB/)  
+KBO( :,54,15) = (/&
+ & 5.1436E+03_JPRB,5.9527E+03_JPRB,6.6949E+03_JPRB,7.4192E+03_JPRB,8.0568E+03_JPRB/)  
+KBO( :,55,15) = (/&
+ & 4.8355E+03_JPRB,5.6683E+03_JPRB,6.4321E+03_JPRB,7.1732E+03_JPRB,7.8507E+03_JPRB/)  
+KBO( :,56,15) = (/&
+ & 4.5326E+03_JPRB,5.3883E+03_JPRB,6.1757E+03_JPRB,6.9385E+03_JPRB,7.6455E+03_JPRB/)  
+KBO( :,57,15) = (/&
+ & 4.2335E+03_JPRB,5.1109E+03_JPRB,5.9237E+03_JPRB,6.7072E+03_JPRB,7.4206E+03_JPRB/)  
+KBO( :,58,15) = (/&
+ & 3.9599E+03_JPRB,4.8524E+03_JPRB,5.6868E+03_JPRB,6.4919E+03_JPRB,7.2242E+03_JPRB/)  
+KBO( :,59,15) = (/&
+ & 3.8525E+03_JPRB,4.7532E+03_JPRB,5.5997E+03_JPRB,6.4149E+03_JPRB,7.1557E+03_JPRB/)  
+KBO( :,13,16) = (/&
+ & 1.1371E+04_JPRB,1.1323E+04_JPRB,1.1315E+04_JPRB,1.1164E+04_JPRB,1.1081E+04_JPRB/)  
+KBO( :,14,16) = (/&
+ & 1.3431E+04_JPRB,1.3485E+04_JPRB,1.3332E+04_JPRB,1.3142E+04_JPRB,1.2900E+04_JPRB/)  
+KBO( :,15,16) = (/&
+ & 1.5843E+04_JPRB,1.5741E+04_JPRB,1.5575E+04_JPRB,1.5331E+04_JPRB,1.5089E+04_JPRB/)  
+KBO( :,16,16) = (/&
+ & 1.8399E+04_JPRB,1.8340E+04_JPRB,1.8137E+04_JPRB,1.7913E+04_JPRB,1.7697E+04_JPRB/)  
+KBO( :,17,16) = (/&
+ & 2.1310E+04_JPRB,2.1226E+04_JPRB,2.1046E+04_JPRB,2.0865E+04_JPRB,2.0549E+04_JPRB/)  
+KBO( :,18,16) = (/&
+ & 2.4633E+04_JPRB,2.4423E+04_JPRB,2.4337E+04_JPRB,2.4031E+04_JPRB,2.3685E+04_JPRB/)  
+KBO( :,19,16) = (/&
+ & 2.8116E+04_JPRB,2.8107E+04_JPRB,2.7914E+04_JPRB,2.7644E+04_JPRB,2.7235E+04_JPRB/)  
+KBO( :,20,16) = (/&
+ & 3.2352E+04_JPRB,3.2111E+04_JPRB,3.1818E+04_JPRB,3.1625E+04_JPRB,3.1234E+04_JPRB/)  
+KBO( :,21,16) = (/&
+ & 3.7036E+04_JPRB,3.6651E+04_JPRB,3.6428E+04_JPRB,3.6095E+04_JPRB,3.5692E+04_JPRB/)  
+KBO( :,22,16) = (/&
+ & 4.2524E+04_JPRB,4.2050E+04_JPRB,4.1496E+04_JPRB,4.1174E+04_JPRB,4.0706E+04_JPRB/)  
+KBO( :,23,16) = (/&
+ & 4.8715E+04_JPRB,4.8086E+04_JPRB,4.7446E+04_JPRB,4.6855E+04_JPRB,4.6215E+04_JPRB/)  
+KBO( :,24,16) = (/&
+ & 5.5639E+04_JPRB,5.4833E+04_JPRB,5.3941E+04_JPRB,5.3072E+04_JPRB,5.2154E+04_JPRB/)  
+KBO( :,25,16) = (/&
+ & 6.3125E+04_JPRB,6.2076E+04_JPRB,6.0936E+04_JPRB,5.9802E+04_JPRB,5.8643E+04_JPRB/)  
+KBO( :,26,16) = (/&
+ & 7.0969E+04_JPRB,6.9666E+04_JPRB,6.8250E+04_JPRB,6.6863E+04_JPRB,6.5447E+04_JPRB/)  
+KBO( :,27,16) = (/&
+ & 7.9041E+04_JPRB,7.7424E+04_JPRB,7.5739E+04_JPRB,7.4111E+04_JPRB,7.2428E+04_JPRB/)  
+KBO( :,28,16) = (/&
+ & 8.7171E+04_JPRB,8.5329E+04_JPRB,8.3283E+04_JPRB,8.1385E+04_JPRB,7.9412E+04_JPRB/)  
+KBO( :,29,16) = (/&
+ & 9.5287E+04_JPRB,9.3095E+04_JPRB,9.0725E+04_JPRB,8.8465E+04_JPRB,8.6095E+04_JPRB/)  
+KBO( :,30,16) = (/&
+ & 1.0333E+05_JPRB,1.0061E+05_JPRB,9.7918E+04_JPRB,9.5190E+04_JPRB,9.2462E+04_JPRB/)  
+KBO( :,31,16) = (/&
+ & 1.1108E+05_JPRB,1.0788E+05_JPRB,1.0471E+05_JPRB,1.0154E+05_JPRB,9.8354E+04_JPRB/)  
+KBO( :,32,16) = (/&
+ & 1.1839E+05_JPRB,1.1468E+05_JPRB,1.1110E+05_JPRB,1.0744E+05_JPRB,1.0381E+05_JPRB/)  
+KBO( :,33,16) = (/&
+ & 1.2510E+05_JPRB,1.2097E+05_JPRB,1.1682E+05_JPRB,1.1275E+05_JPRB,1.0867E+05_JPRB/)  
+KBO( :,34,16) = (/&
+ & 1.3142E+05_JPRB,1.2677E+05_JPRB,1.2209E+05_JPRB,1.1755E+05_JPRB,1.1311E+05_JPRB/)  
+KBO( :,35,16) = (/&
+ & 1.3764E+05_JPRB,1.3245E+05_JPRB,1.2727E+05_JPRB,1.2228E+05_JPRB,1.1753E+05_JPRB/)  
+KBO( :,36,16) = (/&
+ & 1.4383E+05_JPRB,1.3810E+05_JPRB,1.3243E+05_JPRB,1.2701E+05_JPRB,1.2185E+05_JPRB/)  
+KBO( :,37,16) = (/&
+ & 1.5046E+05_JPRB,1.4418E+05_JPRB,1.3799E+05_JPRB,1.3212E+05_JPRB,1.2655E+05_JPRB/)  
+KBO( :,38,16) = (/&
+ & 1.5675E+05_JPRB,1.4982E+05_JPRB,1.4330E+05_JPRB,1.3693E+05_JPRB,1.3095E+05_JPRB/)  
+KBO( :,39,16) = (/&
+ & 1.6258E+05_JPRB,1.5518E+05_JPRB,1.4815E+05_JPRB,1.4138E+05_JPRB,1.3502E+05_JPRB/)  
+KBO( :,40,16) = (/&
+ & 1.6871E+05_JPRB,1.6088E+05_JPRB,1.5341E+05_JPRB,1.4623E+05_JPRB,1.3948E+05_JPRB/)  
+KBO( :,41,16) = (/&
+ & 1.7458E+05_JPRB,1.6635E+05_JPRB,1.5848E+05_JPRB,1.5090E+05_JPRB,1.4379E+05_JPRB/)  
+KBO( :,42,16) = (/&
+ & 1.7998E+05_JPRB,1.7152E+05_JPRB,1.6328E+05_JPRB,1.5532E+05_JPRB,1.4790E+05_JPRB/)  
+KBO( :,43,16) = (/&
+ & 1.8575E+05_JPRB,1.7689E+05_JPRB,1.6831E+05_JPRB,1.5999E+05_JPRB,1.5225E+05_JPRB/)  
+KBO( :,44,16) = (/&
+ & 1.9152E+05_JPRB,1.8231E+05_JPRB,1.7334E+05_JPRB,1.6472E+05_JPRB,1.5657E+05_JPRB/)  
+KBO( :,45,16) = (/&
+ & 1.9710E+05_JPRB,1.8756E+05_JPRB,1.7825E+05_JPRB,1.6934E+05_JPRB,1.6086E+05_JPRB/)  
+KBO( :,46,16) = (/&
+ & 2.0271E+05_JPRB,1.9287E+05_JPRB,1.8321E+05_JPRB,1.7404E+05_JPRB,1.6527E+05_JPRB/)  
+KBO( :,47,16) = (/&
+ & 2.0857E+05_JPRB,1.9849E+05_JPRB,1.8848E+05_JPRB,1.7903E+05_JPRB,1.6997E+05_JPRB/)  
+KBO( :,48,16) = (/&
+ & 2.1432E+05_JPRB,2.0416E+05_JPRB,1.9373E+05_JPRB,1.8395E+05_JPRB,1.7463E+05_JPRB/)  
+KBO( :,49,16) = (/&
+ & 2.1996E+05_JPRB,2.0961E+05_JPRB,1.9896E+05_JPRB,1.8885E+05_JPRB,1.7927E+05_JPRB/)  
+KBO( :,50,16) = (/&
+ & 2.2527E+05_JPRB,2.1474E+05_JPRB,2.0397E+05_JPRB,1.9350E+05_JPRB,1.8363E+05_JPRB/)  
+KBO( :,51,16) = (/&
+ & 2.3036E+05_JPRB,2.1969E+05_JPRB,2.0872E+05_JPRB,1.9800E+05_JPRB,1.8789E+05_JPRB/)  
+KBO( :,52,16) = (/&
+ & 2.3557E+05_JPRB,2.2457E+05_JPRB,2.1344E+05_JPRB,2.0248E+05_JPRB,1.9215E+05_JPRB/)  
+KBO( :,53,16) = (/&
+ & 2.4051E+05_JPRB,2.2942E+05_JPRB,2.1813E+05_JPRB,2.0698E+05_JPRB,1.9645E+05_JPRB/)  
+KBO( :,54,16) = (/&
+ & 2.4502E+05_JPRB,2.3386E+05_JPRB,2.2247E+05_JPRB,2.1113E+05_JPRB,2.0043E+05_JPRB/)  
+KBO( :,55,16) = (/&
+ & 2.4930E+05_JPRB,2.3811E+05_JPRB,2.2662E+05_JPRB,2.1524E+05_JPRB,2.0429E+05_JPRB/)  
+KBO( :,56,16) = (/&
+ & 2.5354E+05_JPRB,2.4234E+05_JPRB,2.3079E+05_JPRB,2.1928E+05_JPRB,2.0814E+05_JPRB/)  
+KBO( :,57,16) = (/&
+ & 2.5774E+05_JPRB,2.4654E+05_JPRB,2.3491E+05_JPRB,2.2331E+05_JPRB,2.1201E+05_JPRB/)  
+KBO( :,58,16) = (/&
+ & 2.6172E+05_JPRB,2.5053E+05_JPRB,2.3885E+05_JPRB,2.2717E+05_JPRB,2.1576E+05_JPRB/)  
+KBO( :,59,16) = (/&
+ & 2.6363E+05_JPRB,2.5242E+05_JPRB,2.4067E+05_JPRB,2.2890E+05_JPRB,2.1741E+05_JPRB/)  
+
+!     The array SELFREFO contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+SELFREFO( :, 1) = (/&
+ & 1.84925E+00_JPRB,1.65087E+00_JPRB,1.47377E+00_JPRB,1.31567E+00_JPRB,1.17453E+00_JPRB,&
+ & 1.04853E+00_JPRB,9.36042E-01_JPRB,8.35626E-01_JPRB,7.45982E-01_JPRB,6.65955E-01_JPRB/)  
+SELFREFO( :, 2) = (/&
+ & 5.91460E+00_JPRB,5.37056E+00_JPRB,4.87657E+00_JPRB,4.42802E+00_JPRB,4.02073E+00_JPRB,&
+ & 3.65090E+00_JPRB,3.31508E+00_JPRB,3.01016E+00_JPRB,2.73328E+00_JPRB,2.48187E+00_JPRB/)  
+SELFREFO( :, 3) = (/&
+ & 6.37319E+00_JPRB,5.76807E+00_JPRB,5.22041E+00_JPRB,4.72475E+00_JPRB,4.27614E+00_JPRB,&
+ & 3.87014E+00_JPRB,3.50268E+00_JPRB,3.17011E+00_JPRB,2.86911E+00_JPRB,2.59670E+00_JPRB/)  
+SELFREFO( :, 4) = (/&
+ & 6.24391E+00_JPRB,5.67335E+00_JPRB,5.15493E+00_JPRB,4.68388E+00_JPRB,4.25588E+00_JPRB,&
+ & 3.86699E+00_JPRB,3.51363E+00_JPRB,3.19256E+00_JPRB,2.90083E+00_JPRB,2.63576E+00_JPRB/)  
+SELFREFO( :, 5) = (/&
+ & 6.28855E+00_JPRB,5.70697E+00_JPRB,5.17918E+00_JPRB,4.70019E+00_JPRB,4.26551E+00_JPRB,&
+ & 3.87103E+00_JPRB,3.51303E+00_JPRB,3.18813E+00_JPRB,2.89329E+00_JPRB,2.62571E+00_JPRB/)  
+SELFREFO( :, 6) = (/&
+ & 6.15500E+00_JPRB,5.58229E+00_JPRB,5.06287E+00_JPRB,4.59178E+00_JPRB,4.16453E+00_JPRB,&
+ & 3.77703E+00_JPRB,3.42558E+00_JPRB,3.10684E+00_JPRB,2.81776E+00_JPRB,2.55557E+00_JPRB/)  
+SELFREFO( :, 7) = (/&
+ & 6.25544E+00_JPRB,5.67036E+00_JPRB,5.14000E+00_JPRB,4.65925E+00_JPRB,4.22346E+00_JPRB,&
+ & 3.82844E+00_JPRB,3.47036E+00_JPRB,3.14577E+00_JPRB,2.85154E+00_JPRB,2.58483E+00_JPRB/)  
+SELFREFO( :, 8) = (/&
+ & 6.08431E+00_JPRB,5.55653E+00_JPRB,5.07454E+00_JPRB,4.63436E+00_JPRB,4.23236E+00_JPRB,&
+ & 3.86523E+00_JPRB,3.52994E+00_JPRB,3.22374E+00_JPRB,2.94410E+00_JPRB,2.68872E+00_JPRB/)  
+SELFREFO( :, 9) = (/&
+ & 6.22772E+00_JPRB,5.71381E+00_JPRB,5.24231E+00_JPRB,4.80972E+00_JPRB,4.41282E+00_JPRB,&
+ & 4.04868E+00_JPRB,3.71458E+00_JPRB,3.40806E+00_JPRB,3.12683E+00_JPRB,2.86880E+00_JPRB/)  
+SELFREFO( :,10) = (/&
+ & 6.63397E+00_JPRB,6.10398E+00_JPRB,5.61633E+00_JPRB,5.16764E+00_JPRB,4.75480E+00_JPRB,&
+ & 4.37494E+00_JPRB,4.02543E+00_JPRB,3.70384E+00_JPRB,3.40794E+00_JPRB,3.13568E+00_JPRB/)  
+SELFREFO( :,11) = (/&
+ & 7.05802E+00_JPRB,6.40896E+00_JPRB,5.81959E+00_JPRB,5.28442E+00_JPRB,4.79846E+00_JPRB,&
+ & 4.35719E+00_JPRB,3.95651E+00_JPRB,3.59266E+00_JPRB,3.26228E+00_JPRB,2.96228E+00_JPRB/)  
+SELFREFO( :,12) = (/&
+ & 7.26302E+00_JPRB,6.57623E+00_JPRB,5.95438E+00_JPRB,5.39134E+00_JPRB,4.88153E+00_JPRB,&
+ & 4.41994E+00_JPRB,4.00199E+00_JPRB,3.62356E+00_JPRB,3.28092E+00_JPRB,2.97067E+00_JPRB/)  
+SELFREFO( :,13) = (/&
+ & 6.76462E+00_JPRB,6.23813E+00_JPRB,5.75262E+00_JPRB,5.30490E+00_JPRB,4.89202E+00_JPRB,&
+ & 4.51128E+00_JPRB,4.16017E+00_JPRB,3.83638E+00_JPRB,3.53780E+00_JPRB,3.26245E+00_JPRB/)  
+SELFREFO( :,14) = (/&
+ & 7.35977E+00_JPRB,6.71848E+00_JPRB,6.13306E+00_JPRB,5.59866E+00_JPRB,5.11082E+00_JPRB,&
+ & 4.66549E+00_JPRB,4.25896E+00_JPRB,3.88786E+00_JPRB,3.54909E+00_JPRB,3.23984E+00_JPRB/)  
+SELFREFO( :,15) = (/&
+ & 7.51978E+00_JPRB,6.83155E+00_JPRB,6.20632E+00_JPRB,5.63830E+00_JPRB,5.12227E+00_JPRB,&
+ & 4.65347E+00_JPRB,4.22758E+00_JPRB,3.84066E+00_JPRB,3.48915E+00_JPRB,3.16982E+00_JPRB/)  
+SELFREFO( :,16) = (/&
+ & 6.95561E+00_JPRB,6.36239E+00_JPRB,5.81977E+00_JPRB,5.32342E+00_JPRB,4.86941E+00_JPRB,&
+ & 4.45411E+00_JPRB,4.07424E+00_JPRB,3.72676E+00_JPRB,3.40892E+00_JPRB,3.11819E+00_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB1:PART7',1,ZHOOK_HANDLE)
+END SUBROUTINE PART7
+
+
+!     -----------------------------------------------------------------
+END SUBROUTINE RRTM_KGB1
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb1.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb1.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb1.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_KGB1
+END SUBROUTINE RRTM_KGB1
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb10.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb10.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb10.F90	(revision 1989)
@@ -0,0 +1,2080 @@
+!OCL SCALAR
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0 
+SUBROUTINE RRTM_KGB10
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 10:  1390-1480 cm-1 (low - H2O; high - H2O)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     R. Elkhatib 12-10-2005 Split for faster and more robust compilation.
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO10, ONLY : KAO     ,KBO      ,FRACREFAO   ,FRACREFBO
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB10',0,ZHOOK_HANDLE)
+
+CALL PART1
+CALL PART2
+CALL PART3
+CALL PART4
+CALL PART5
+CALL PART6
+CALL PART7
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB10',1,ZHOOK_HANDLE)
+
+!     -----------------------------------------------------------------
+
+CONTAINS
+
+
+SUBROUTINE PART1
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB10:PART1',0,ZHOOK_HANDLE)
+
+
+FRACREFAO( :) = (/&
+ !     From P = 473 mb.
+ & 0.16271301_JPRB,0.15141940_JPRB,0.14065412_JPRB,0.12899506_JPRB,&
+ & 0.11607002_JPRB,0.10142808_JPRB,0.08116794_JPRB,0.06104711_JPRB,&
+ & 0.04146209_JPRB,0.00447386_JPRB,0.00372902_JPRB,0.00287258_JPRB,&
+ & 0.00206028_JPRB,0.00134634_JPRB,0.00049232_JPRB,0.00006927_JPRB/)  
+
+FRACREFBO( :) = (/&
+ !     From P = 1.17 mb.
+ & 0.16571465_JPRB,0.15262246_JPRB,0.14036226_JPRB,0.12620729_JPRB,&
+ & 0.11477834_JPRB,0.09967982_JPRB,0.08155201_JPRB,0.06159503_JPRB,&
+ & 0.04196607_JPRB,0.00453940_JPRB,0.00376881_JPRB,0.00300437_JPRB,&
+ & 0.00223034_JPRB,0.00139432_JPRB,0.00051516_JPRB,0.00007095_JPRB/)  
+
+!     ------------------------------------------------------------------
+
+!     The array KAO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels > ~100mb and temperatures.  The first
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the corresponding TREF for this  pressure level, 
+!     JT = 2 refers to the temperatureTREF-15, JT = 1 is for TREF-30, 
+!     JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  The second 
+!     index, JP, runs from 1 to 13 and refers to the corresponding 
+!     pressure level in PREF (e.g. JP = 1 is for a pressure of 1053.63 mb).  
+!     The third index, IG, goes from 1 to 16, and tells us which 
+!     g-interval the absorption coefficients are for.
+
+KAO( :, 1, 1) = (/&
+ & 4.3436E-02_JPRB,4.4287E-02_JPRB,4.5209E-02_JPRB,4.6235E-02_JPRB,4.7373E-02_JPRB/)  
+KAO( :, 2, 1) = (/&
+ & 3.3904E-02_JPRB,3.4737E-02_JPRB,3.5589E-02_JPRB,3.6523E-02_JPRB,3.7507E-02_JPRB/)  
+KAO( :, 3, 1) = (/&
+ & 2.6121E-02_JPRB,2.6913E-02_JPRB,2.7706E-02_JPRB,2.8545E-02_JPRB,2.9408E-02_JPRB/)  
+KAO( :, 4, 1) = (/&
+ & 2.0504E-02_JPRB,2.1226E-02_JPRB,2.1920E-02_JPRB,2.2632E-02_JPRB,2.3375E-02_JPRB/)  
+KAO( :, 5, 1) = (/&
+ & 1.6329E-02_JPRB,1.6959E-02_JPRB,1.7565E-02_JPRB,1.8162E-02_JPRB,1.8767E-02_JPRB/)  
+KAO( :, 6, 1) = (/&
+ & 1.3082E-02_JPRB,1.3618E-02_JPRB,1.4143E-02_JPRB,1.4651E-02_JPRB,1.5156E-02_JPRB/)  
+KAO( :, 7, 1) = (/&
+ & 1.0505E-02_JPRB,1.0980E-02_JPRB,1.1432E-02_JPRB,1.1872E-02_JPRB,1.2303E-02_JPRB/)  
+KAO( :, 8, 1) = (/&
+ & 8.4782E-03_JPRB,8.9309E-03_JPRB,9.3409E-03_JPRB,9.7321E-03_JPRB,1.0116E-02_JPRB/)  
+KAO( :, 9, 1) = (/&
+ & 7.0083E-03_JPRB,7.5470E-03_JPRB,8.0513E-03_JPRB,8.5154E-03_JPRB,8.9405E-03_JPRB/)  
+KAO( :,10, 1) = (/&
+ & 6.2679E-03_JPRB,6.8607E-03_JPRB,7.4696E-03_JPRB,8.0836E-03_JPRB,8.7113E-03_JPRB/)  
+KAO( :,11, 1) = (/&
+ & 5.5738E-03_JPRB,6.1775E-03_JPRB,6.7768E-03_JPRB,7.3796E-03_JPRB,7.9869E-03_JPRB/)  
+KAO( :,12, 1) = (/&
+ & 4.8170E-03_JPRB,5.3653E-03_JPRB,5.9132E-03_JPRB,6.4615E-03_JPRB,6.9965E-03_JPRB/)  
+KAO( :,13, 1) = (/&
+ & 4.0124E-03_JPRB,4.4686E-03_JPRB,4.9254E-03_JPRB,5.3837E-03_JPRB,5.8220E-03_JPRB/)  
+KAO( :, 1, 2) = (/&
+ & 7.6052E-02_JPRB,7.8155E-02_JPRB,8.0398E-02_JPRB,8.2890E-02_JPRB,8.5349E-02_JPRB/)  
+KAO( :, 2, 2) = (/&
+ & 5.9857E-02_JPRB,6.1820E-02_JPRB,6.3993E-02_JPRB,6.6271E-02_JPRB,6.8386E-02_JPRB/)  
+KAO( :, 3, 2) = (/&
+ & 4.6547E-02_JPRB,4.8389E-02_JPRB,5.0377E-02_JPRB,5.2388E-02_JPRB,5.4300E-02_JPRB/)  
+KAO( :, 4, 2) = (/&
+ & 3.6687E-02_JPRB,3.8357E-02_JPRB,4.0103E-02_JPRB,4.1837E-02_JPRB,4.3530E-02_JPRB/)  
+KAO( :, 5, 2) = (/&
+ & 2.9237E-02_JPRB,3.0733E-02_JPRB,3.2226E-02_JPRB,3.3703E-02_JPRB,3.5156E-02_JPRB/)  
+KAO( :, 6, 2) = (/&
+ & 2.3348E-02_JPRB,2.4684E-02_JPRB,2.5978E-02_JPRB,2.7223E-02_JPRB,2.8447E-02_JPRB/)  
+KAO( :, 7, 2) = (/&
+ & 1.8712E-02_JPRB,1.9885E-02_JPRB,2.1023E-02_JPRB,2.2089E-02_JPRB,2.3117E-02_JPRB/)  
+KAO( :, 8, 2) = (/&
+ & 1.5248E-02_JPRB,1.6226E-02_JPRB,1.7260E-02_JPRB,1.8206E-02_JPRB,1.9081E-02_JPRB/)  
+KAO( :, 9, 2) = (/&
+ & 1.3662E-02_JPRB,1.4539E-02_JPRB,1.5452E-02_JPRB,1.6398E-02_JPRB,1.7332E-02_JPRB/)  
+KAO( :,10, 2) = (/&
+ & 1.5758E-02_JPRB,1.7065E-02_JPRB,1.8351E-02_JPRB,1.9608E-02_JPRB,2.0713E-02_JPRB/)  
+KAO( :,11, 2) = (/&
+ & 1.5809E-02_JPRB,1.7330E-02_JPRB,1.8795E-02_JPRB,2.0165E-02_JPRB,2.1363E-02_JPRB/)  
+KAO( :,12, 2) = (/&
+ & 1.4427E-02_JPRB,1.5923E-02_JPRB,1.7365E-02_JPRB,1.8668E-02_JPRB,1.9829E-02_JPRB/)  
+KAO( :,13, 2) = (/&
+ & 1.2159E-02_JPRB,1.3438E-02_JPRB,1.4645E-02_JPRB,1.5727E-02_JPRB,1.6711E-02_JPRB/)  
+KAO( :, 1, 3) = (/&
+ & 1.1941E-01_JPRB,1.2154E-01_JPRB,1.2325E-01_JPRB,1.2478E-01_JPRB,1.2668E-01_JPRB/)  
+KAO( :, 2, 3) = (/&
+ & 9.4949E-02_JPRB,9.7174E-02_JPRB,9.8951E-02_JPRB,1.0048E-01_JPRB,1.0239E-01_JPRB/)  
+KAO( :, 3, 3) = (/&
+ & 7.4601E-02_JPRB,7.6873E-02_JPRB,7.8765E-02_JPRB,8.0479E-02_JPRB,8.2213E-02_JPRB/)  
+KAO( :, 4, 3) = (/&
+ & 5.9324E-02_JPRB,6.1532E-02_JPRB,6.3434E-02_JPRB,6.5160E-02_JPRB,6.6762E-02_JPRB/)  
+KAO( :, 5, 3) = (/&
+ & 4.7627E-02_JPRB,4.9624E-02_JPRB,5.1388E-02_JPRB,5.3000E-02_JPRB,5.4460E-02_JPRB/)  
+KAO( :, 6, 3) = (/&
+ & 3.8325E-02_JPRB,4.0081E-02_JPRB,4.1660E-02_JPRB,4.3161E-02_JPRB,4.4493E-02_JPRB/)  
+KAO( :, 7, 3) = (/&
+ & 3.1008E-02_JPRB,3.2491E-02_JPRB,3.3918E-02_JPRB,3.5275E-02_JPRB,3.6482E-02_JPRB/)  
+KAO( :, 8, 3) = (/&
+ & 2.5375E-02_JPRB,2.6683E-02_JPRB,2.7918E-02_JPRB,2.9119E-02_JPRB,3.0227E-02_JPRB/)  
+KAO( :, 9, 3) = (/&
+ & 2.2773E-02_JPRB,2.4067E-02_JPRB,2.5227E-02_JPRB,2.6300E-02_JPRB,2.7274E-02_JPRB/)  
+KAO( :,10, 3) = (/&
+ & 2.5056E-02_JPRB,2.7108E-02_JPRB,2.9103E-02_JPRB,3.1105E-02_JPRB,3.2910E-02_JPRB/)  
+KAO( :,11, 3) = (/&
+ & 2.5964E-02_JPRB,2.7973E-02_JPRB,2.9944E-02_JPRB,3.1965E-02_JPRB,3.4025E-02_JPRB/)  
+KAO( :,12, 3) = (/&
+ & 2.4537E-02_JPRB,2.6383E-02_JPRB,2.8189E-02_JPRB,3.0029E-02_JPRB,3.1820E-02_JPRB/)  
+KAO( :,13, 3) = (/&
+ & 2.0785E-02_JPRB,2.2351E-02_JPRB,2.3915E-02_JPRB,2.5481E-02_JPRB,2.6957E-02_JPRB/)  
+KAO( :, 1, 4) = (/&
+ & 1.7062E-01_JPRB,1.7437E-01_JPRB,1.7838E-01_JPRB,1.8288E-01_JPRB,1.8787E-01_JPRB/)  
+KAO( :, 2, 4) = (/&
+ & 1.3654E-01_JPRB,1.4010E-01_JPRB,1.4403E-01_JPRB,1.4850E-01_JPRB,1.5295E-01_JPRB/)  
+KAO( :, 3, 4) = (/&
+ & 1.0835E-01_JPRB,1.1169E-01_JPRB,1.1522E-01_JPRB,1.1900E-01_JPRB,1.2314E-01_JPRB/)  
+KAO( :, 4, 4) = (/&
+ & 8.6891E-02_JPRB,8.9909E-02_JPRB,9.2966E-02_JPRB,9.6155E-02_JPRB,9.9768E-02_JPRB/)  
+KAO( :, 5, 4) = (/&
+ & 7.0296E-02_JPRB,7.2932E-02_JPRB,7.5596E-02_JPRB,7.8371E-02_JPRB,8.1518E-02_JPRB/)  
+KAO( :, 6, 4) = (/&
+ & 5.7106E-02_JPRB,5.9401E-02_JPRB,6.1747E-02_JPRB,6.4154E-02_JPRB,6.6823E-02_JPRB/)  
+KAO( :, 7, 4) = (/&
+ & 4.6442E-02_JPRB,4.8507E-02_JPRB,5.0535E-02_JPRB,5.2614E-02_JPRB,5.4880E-02_JPRB/)  
+KAO( :, 8, 4) = (/&
+ & 3.8129E-02_JPRB,3.9923E-02_JPRB,4.1657E-02_JPRB,4.3454E-02_JPRB,4.5387E-02_JPRB/)  
+KAO( :, 9, 4) = (/&
+ & 3.3848E-02_JPRB,3.5287E-02_JPRB,3.6775E-02_JPRB,3.8335E-02_JPRB,4.0012E-02_JPRB/)  
+KAO( :,10, 4) = (/&
+ & 4.0975E-02_JPRB,4.3174E-02_JPRB,4.4060E-02_JPRB,4.4660E-02_JPRB,4.5678E-02_JPRB/)  
+KAO( :,11, 4) = (/&
+ & 4.1946E-02_JPRB,4.4641E-02_JPRB,4.6896E-02_JPRB,4.7962E-02_JPRB,4.8832E-02_JPRB/)  
+KAO( :,12, 4) = (/&
+ & 3.9213E-02_JPRB,4.1960E-02_JPRB,4.4202E-02_JPRB,4.5849E-02_JPRB,4.6828E-02_JPRB/)  
+KAO( :,13, 4) = (/&
+ & 3.3349E-02_JPRB,3.5638E-02_JPRB,3.7527E-02_JPRB,3.8919E-02_JPRB,3.9723E-02_JPRB/)  
+KAO( :, 1, 5) = (/&
+ & 2.9031E-01_JPRB,3.0033E-01_JPRB,3.0967E-01_JPRB,3.1844E-01_JPRB,3.2668E-01_JPRB/)  
+KAO( :, 2, 5) = (/&
+ & 2.3357E-01_JPRB,2.4199E-01_JPRB,2.5006E-01_JPRB,2.5762E-01_JPRB,2.6525E-01_JPRB/)  
+KAO( :, 3, 5) = (/&
+ & 1.8503E-01_JPRB,1.9252E-01_JPRB,1.9961E-01_JPRB,2.0653E-01_JPRB,2.1345E-01_JPRB/)  
+KAO( :, 4, 5) = (/&
+ & 1.4814E-01_JPRB,1.5482E-01_JPRB,1.6122E-01_JPRB,1.6737E-01_JPRB,1.7343E-01_JPRB/)  
+KAO( :, 5, 5) = (/&
+ & 1.1942E-01_JPRB,1.2535E-01_JPRB,1.3092E-01_JPRB,1.3637E-01_JPRB,1.4171E-01_JPRB/)  
+KAO( :, 6, 5) = (/&
+ & 9.6108E-02_JPRB,1.0135E-01_JPRB,1.0623E-01_JPRB,1.1100E-01_JPRB,1.1566E-01_JPRB/)  
+KAO( :, 7, 5) = (/&
+ & 7.7384E-02_JPRB,8.2024E-02_JPRB,8.6286E-02_JPRB,9.0422E-02_JPRB,9.4500E-02_JPRB/)  
+KAO( :, 8, 5) = (/&
+ & 6.2754E-02_JPRB,6.6850E-02_JPRB,7.0634E-02_JPRB,7.4249E-02_JPRB,7.7804E-02_JPRB/)  
+KAO( :, 9, 5) = (/&
+ & 5.3581E-02_JPRB,5.7247E-02_JPRB,6.0673E-02_JPRB,6.3910E-02_JPRB,6.7155E-02_JPRB/)  
+KAO( :,10, 5) = (/&
+ & 5.9240E-02_JPRB,6.0661E-02_JPRB,6.3351E-02_JPRB,6.6308E-02_JPRB,6.9274E-02_JPRB/)  
+KAO( :,11, 5) = (/&
+ & 6.3231E-02_JPRB,6.3689E-02_JPRB,6.4470E-02_JPRB,6.6608E-02_JPRB,6.9366E-02_JPRB/)  
+KAO( :,12, 5) = (/&
+ & 6.0132E-02_JPRB,6.0508E-02_JPRB,6.1046E-02_JPRB,6.2310E-02_JPRB,6.4789E-02_JPRB/)  
+KAO( :,13, 5) = (/&
+ & 5.1121E-02_JPRB,5.1506E-02_JPRB,5.2003E-02_JPRB,5.3196E-02_JPRB,5.5479E-02_JPRB/)  
+KAO( :, 1, 6) = (/&
+ & 6.0412E-01_JPRB,6.3664E-01_JPRB,6.6664E-01_JPRB,6.9440E-01_JPRB,7.1921E-01_JPRB/)  
+KAO( :, 2, 6) = (/&
+ & 4.9197E-01_JPRB,5.2036E-01_JPRB,5.4668E-01_JPRB,5.6991E-01_JPRB,5.8959E-01_JPRB/)  
+KAO( :, 3, 6) = (/&
+ & 3.9398E-01_JPRB,4.1866E-01_JPRB,4.4086E-01_JPRB,4.6020E-01_JPRB,4.7687E-01_JPRB/)  
+KAO( :, 4, 6) = (/&
+ & 3.1559E-01_JPRB,3.3697E-01_JPRB,3.5576E-01_JPRB,3.7272E-01_JPRB,3.8759E-01_JPRB/)  
+KAO( :, 5, 6) = (/&
+ & 2.5260E-01_JPRB,2.7101E-01_JPRB,2.8744E-01_JPRB,3.0238E-01_JPRB,3.1591E-01_JPRB/)  
+KAO( :, 6, 6) = (/&
+ & 2.0091E-01_JPRB,2.1697E-01_JPRB,2.3138E-01_JPRB,2.4461E-01_JPRB,2.5682E-01_JPRB/)  
+KAO( :, 7, 6) = (/&
+ & 1.5940E-01_JPRB,1.7343E-01_JPRB,1.8618E-01_JPRB,1.9790E-01_JPRB,2.0866E-01_JPRB/)  
+KAO( :, 8, 6) = (/&
+ & 1.2672E-01_JPRB,1.3889E-01_JPRB,1.5007E-01_JPRB,1.6032E-01_JPRB,1.6978E-01_JPRB/)  
+KAO( :, 9, 6) = (/&
+ & 1.0353E-01_JPRB,1.1398E-01_JPRB,1.2372E-01_JPRB,1.3277E-01_JPRB,1.4111E-01_JPRB/)  
+KAO( :,10, 6) = (/&
+ & 9.9695E-02_JPRB,1.0872E-01_JPRB,1.1790E-01_JPRB,1.2674E-01_JPRB,1.3501E-01_JPRB/)  
+KAO( :,11, 6) = (/&
+ & 9.7426E-02_JPRB,1.0472E-01_JPRB,1.1248E-01_JPRB,1.2011E-01_JPRB,1.2749E-01_JPRB/)  
+KAO( :,12, 6) = (/&
+ & 9.0482E-02_JPRB,9.5993E-02_JPRB,1.0239E-01_JPRB,1.0916E-01_JPRB,1.1593E-01_JPRB/)  
+KAO( :,13, 6) = (/&
+ & 7.7446E-02_JPRB,8.2236E-02_JPRB,8.7832E-02_JPRB,9.3763E-02_JPRB,9.9783E-02_JPRB/)  
+KAO( :, 1, 7) = (/&
+ & 1.4493E+00_JPRB,1.5125E+00_JPRB,1.5653E+00_JPRB,1.6113E+00_JPRB,1.6505E+00_JPRB/)  
+KAO( :, 2, 7) = (/&
+ & 1.2048E+00_JPRB,1.2601E+00_JPRB,1.3081E+00_JPRB,1.3501E+00_JPRB,1.3864E+00_JPRB/)  
+KAO( :, 3, 7) = (/&
+ & 9.7872E-01_JPRB,1.0273E+00_JPRB,1.0705E+00_JPRB,1.1100E+00_JPRB,1.1448E+00_JPRB/)  
+KAO( :, 4, 7) = (/&
+ & 7.9188E-01_JPRB,8.3582E-01_JPRB,8.7697E-01_JPRB,9.1358E-01_JPRB,9.4568E-01_JPRB/)  
+KAO( :, 5, 7) = (/&
+ & 6.4056E-01_JPRB,6.8141E-01_JPRB,7.1898E-01_JPRB,7.5224E-01_JPRB,7.8089E-01_JPRB/)  
+KAO( :, 6, 7) = (/&
+ & 5.1630E-01_JPRB,5.5324E-01_JPRB,5.8683E-01_JPRB,6.1659E-01_JPRB,6.4131E-01_JPRB/)  
+KAO( :, 7, 7) = (/&
+ & 4.1372E-01_JPRB,4.4648E-01_JPRB,4.7630E-01_JPRB,5.0239E-01_JPRB,5.2429E-01_JPRB/)  
+KAO( :, 8, 7) = (/&
+ & 3.2974E-01_JPRB,3.5852E-01_JPRB,3.8490E-01_JPRB,4.0778E-01_JPRB,4.2741E-01_JPRB/)  
+KAO( :, 9, 7) = (/&
+ & 2.6388E-01_JPRB,2.8902E-01_JPRB,3.1205E-01_JPRB,3.3216E-01_JPRB,3.4989E-01_JPRB/)  
+KAO( :,10, 7) = (/&
+ & 2.2852E-01_JPRB,2.5006E-01_JPRB,2.6982E-01_JPRB,2.8757E-01_JPRB,3.0387E-01_JPRB/)  
+KAO( :,11, 7) = (/&
+ & 2.0865E-01_JPRB,2.2711E-01_JPRB,2.4426E-01_JPRB,2.6021E-01_JPRB,2.7515E-01_JPRB/)  
+KAO( :,12, 7) = (/&
+ & 1.8470E-01_JPRB,2.0063E-01_JPRB,2.1568E-01_JPRB,2.2975E-01_JPRB,2.4284E-01_JPRB/)  
+KAO( :,13, 7) = (/&
+ & 1.5719E-01_JPRB,1.7078E-01_JPRB,1.8355E-01_JPRB,1.9562E-01_JPRB,2.0694E-01_JPRB/)  
+KAO( :, 1, 8) = (/&
+ & 3.6048E+00_JPRB,3.7864E+00_JPRB,3.9572E+00_JPRB,4.1208E+00_JPRB,4.2621E+00_JPRB/)  
+KAO( :, 2, 8) = (/&
+ & 3.2220E+00_JPRB,3.3940E+00_JPRB,3.5604E+00_JPRB,3.7122E+00_JPRB,3.8478E+00_JPRB/)  
+KAO( :, 3, 8) = (/&
+ & 2.7870E+00_JPRB,2.9546E+00_JPRB,3.1086E+00_JPRB,3.2475E+00_JPRB,3.3673E+00_JPRB/)  
+KAO( :, 4, 8) = (/&
+ & 2.3680E+00_JPRB,2.5226E+00_JPRB,2.6640E+00_JPRB,2.7896E+00_JPRB,2.9005E+00_JPRB/)  
+KAO( :, 5, 8) = (/&
+ & 1.9804E+00_JPRB,2.1208E+00_JPRB,2.2489E+00_JPRB,2.3642E+00_JPRB,2.4671E+00_JPRB/)  
+KAO( :, 6, 8) = (/&
+ & 1.6272E+00_JPRB,1.7543E+00_JPRB,1.8719E+00_JPRB,1.9790E+00_JPRB,2.0761E+00_JPRB/)  
+KAO( :, 7, 8) = (/&
+ & 1.3207E+00_JPRB,1.4367E+00_JPRB,1.5433E+00_JPRB,1.6406E+00_JPRB,1.7283E+00_JPRB/)  
+KAO( :, 8, 8) = (/&
+ & 1.0622E+00_JPRB,1.1672E+00_JPRB,1.2628E+00_JPRB,1.3495E+00_JPRB,1.4288E+00_JPRB/)  
+KAO( :, 9, 8) = (/&
+ & 8.5006E-01_JPRB,9.4334E-01_JPRB,1.0274E+00_JPRB,1.1050E+00_JPRB,1.1774E+00_JPRB/)  
+KAO( :,10, 8) = (/&
+ & 6.9534E-01_JPRB,7.7588E-01_JPRB,8.4968E-01_JPRB,9.1816E-01_JPRB,9.8186E-01_JPRB/)  
+KAO( :,11, 8) = (/&
+ & 6.0417E-01_JPRB,6.7126E-01_JPRB,7.3436E-01_JPRB,7.9325E-01_JPRB,8.4784E-01_JPRB/)  
+KAO( :,12, 8) = (/&
+ & 5.2502E-01_JPRB,5.8268E-01_JPRB,6.3773E-01_JPRB,6.8892E-01_JPRB,7.3666E-01_JPRB/)  
+KAO( :,13, 8) = (/&
+ & 4.4795E-01_JPRB,4.9759E-01_JPRB,5.4478E-01_JPRB,5.8860E-01_JPRB,6.2907E-01_JPRB/)  
+KAO( :, 1, 9) = (/&
+ & 1.0325E+01_JPRB,1.0910E+01_JPRB,1.1448E+01_JPRB,1.1915E+01_JPRB,1.2359E+01_JPRB/)  
+KAO( :, 2, 9) = (/&
+ & 1.0216E+01_JPRB,1.0824E+01_JPRB,1.1398E+01_JPRB,1.1919E+01_JPRB,1.2397E+01_JPRB/)  
+KAO( :, 3, 9) = (/&
+ & 9.7874E+00_JPRB,1.0437E+01_JPRB,1.1041E+01_JPRB,1.1612E+01_JPRB,1.2113E+01_JPRB/)  
+KAO( :, 4, 9) = (/&
+ & 9.1882E+00_JPRB,9.8563E+00_JPRB,1.0485E+01_JPRB,1.1057E+01_JPRB,1.1572E+01_JPRB/)  
+KAO( :, 5, 9) = (/&
+ & 8.4385E+00_JPRB,9.1197E+00_JPRB,9.7493E+00_JPRB,1.0327E+01_JPRB,1.0868E+01_JPRB/)  
+KAO( :, 6, 9) = (/&
+ & 7.5691E+00_JPRB,8.2477E+00_JPRB,8.8854E+00_JPRB,9.4650E+00_JPRB,9.9983E+00_JPRB/)  
+KAO( :, 7, 9) = (/&
+ & 6.6646E+00_JPRB,7.3353E+00_JPRB,7.9606E+00_JPRB,8.5227E+00_JPRB,9.0234E+00_JPRB/)  
+KAO( :, 8, 9) = (/&
+ & 5.7671E+00_JPRB,6.4061E+00_JPRB,6.9962E+00_JPRB,7.5311E+00_JPRB,8.0050E+00_JPRB/)  
+KAO( :, 9, 9) = (/&
+ & 4.9062E+00_JPRB,5.4976E+00_JPRB,6.0386E+00_JPRB,6.5346E+00_JPRB,6.9797E+00_JPRB/)  
+KAO( :,10, 9) = (/&
+ & 4.1414E+00_JPRB,4.6741E+00_JPRB,5.1658E+00_JPRB,5.6197E+00_JPRB,6.0353E+00_JPRB/)  
+KAO( :,11, 9) = (/&
+ & 3.6507E+00_JPRB,4.1155E+00_JPRB,4.5422E+00_JPRB,4.9433E+00_JPRB,5.3072E+00_JPRB/)  
+KAO( :,12, 9) = (/&
+ & 3.1807E+00_JPRB,3.5811E+00_JPRB,3.9600E+00_JPRB,4.3005E+00_JPRB,4.6110E+00_JPRB/)  
+KAO( :,13, 9) = (/&
+ & 2.7426E+00_JPRB,3.0911E+00_JPRB,3.4116E+00_JPRB,3.6974E+00_JPRB,3.9613E+00_JPRB/)  
+KAO( :, 1,10) = (/&
+ & 1.9502E+01_JPRB,2.0541E+01_JPRB,2.1654E+01_JPRB,2.2558E+01_JPRB,2.3382E+01_JPRB/)  
+KAO( :, 2,10) = (/&
+ & 2.0339E+01_JPRB,2.1542E+01_JPRB,2.2723E+01_JPRB,2.3677E+01_JPRB,2.4384E+01_JPRB/)  
+KAO( :, 3,10) = (/&
+ & 2.0653E+01_JPRB,2.1896E+01_JPRB,2.3069E+01_JPRB,2.4110E+01_JPRB,2.5101E+01_JPRB/)  
+KAO( :, 4,10) = (/&
+ & 2.0148E+01_JPRB,2.1653E+01_JPRB,2.3150E+01_JPRB,2.4435E+01_JPRB,2.5600E+01_JPRB/)  
+KAO( :, 5,10) = (/&
+ & 1.9857E+01_JPRB,2.1600E+01_JPRB,2.3190E+01_JPRB,2.4486E+01_JPRB,2.5655E+01_JPRB/)  
+KAO( :, 6,10) = (/&
+ & 1.9401E+01_JPRB,2.1152E+01_JPRB,2.2655E+01_JPRB,2.3968E+01_JPRB,2.5347E+01_JPRB/)  
+KAO( :, 7,10) = (/&
+ & 1.8259E+01_JPRB,1.9961E+01_JPRB,2.1523E+01_JPRB,2.3098E+01_JPRB,2.4731E+01_JPRB/)  
+KAO( :, 8,10) = (/&
+ & 1.6748E+01_JPRB,1.8504E+01_JPRB,2.0269E+01_JPRB,2.2106E+01_JPRB,2.3862E+01_JPRB/)  
+KAO( :, 9,10) = (/&
+ & 1.5105E+01_JPRB,1.7003E+01_JPRB,1.8953E+01_JPRB,2.0882E+01_JPRB,2.2601E+01_JPRB/)  
+KAO( :,10,10) = (/&
+ & 1.3610E+01_JPRB,1.5598E+01_JPRB,1.7574E+01_JPRB,1.9412E+01_JPRB,2.0955E+01_JPRB/)  
+KAO( :,11,10) = (/&
+ & 1.3112E+01_JPRB,1.5038E+01_JPRB,1.6757E+01_JPRB,1.8284E+01_JPRB,1.9636E+01_JPRB/)  
+KAO( :,12,10) = (/&
+ & 1.2298E+01_JPRB,1.3933E+01_JPRB,1.5418E+01_JPRB,1.6787E+01_JPRB,1.8202E+01_JPRB/)  
+KAO( :,13,10) = (/&
+ & 1.1121E+01_JPRB,1.2535E+01_JPRB,1.3895E+01_JPRB,1.5262E+01_JPRB,1.6521E+01_JPRB/)  
+KAO( :, 1,11) = (/&
+ & 2.3585E+01_JPRB,2.4605E+01_JPRB,2.5501E+01_JPRB,2.6482E+01_JPRB,2.7552E+01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB10:PART1',1,ZHOOK_HANDLE)
+END SUBROUTINE PART1
+
+
+SUBROUTINE PART2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB10:PART2',0,ZHOOK_HANDLE)
+
+
+KAO( :, 2,11) = (/&
+ & 2.5370E+01_JPRB,2.6451E+01_JPRB,2.7573E+01_JPRB,2.8778E+01_JPRB,2.9736E+01_JPRB/)  
+KAO( :, 3,11) = (/&
+ & 2.6353E+01_JPRB,2.7678E+01_JPRB,2.9066E+01_JPRB,3.0456E+01_JPRB,3.1588E+01_JPRB/)  
+KAO( :, 4,11) = (/&
+ & 2.6933E+01_JPRB,2.8519E+01_JPRB,3.0105E+01_JPRB,3.1590E+01_JPRB,3.2868E+01_JPRB/)  
+KAO( :, 5,11) = (/&
+ & 2.6708E+01_JPRB,2.8629E+01_JPRB,3.0424E+01_JPRB,3.2298E+01_JPRB,3.3849E+01_JPRB/)  
+KAO( :, 6,11) = (/&
+ & 2.5912E+01_JPRB,2.8223E+01_JPRB,3.0549E+01_JPRB,3.2673E+01_JPRB,3.4542E+01_JPRB/)  
+KAO( :, 7,11) = (/&
+ & 2.5158E+01_JPRB,2.7915E+01_JPRB,3.0571E+01_JPRB,3.2861E+01_JPRB,3.4743E+01_JPRB/)  
+KAO( :, 8,11) = (/&
+ & 2.4390E+01_JPRB,2.7375E+01_JPRB,3.0000E+01_JPRB,3.2144E+01_JPRB,3.4135E+01_JPRB/)  
+KAO( :, 9,11) = (/&
+ & 2.3045E+01_JPRB,2.5927E+01_JPRB,2.8454E+01_JPRB,3.0669E+01_JPRB,3.2987E+01_JPRB/)  
+KAO( :,10,11) = (/&
+ & 2.1314E+01_JPRB,2.4114E+01_JPRB,2.6618E+01_JPRB,2.9130E+01_JPRB,3.1810E+01_JPRB/)  
+KAO( :,11,11) = (/&
+ & 2.0509E+01_JPRB,2.3271E+01_JPRB,2.6048E+01_JPRB,2.8884E+01_JPRB,3.1559E+01_JPRB/)  
+KAO( :,12,11) = (/&
+ & 1.9750E+01_JPRB,2.2592E+01_JPRB,2.5456E+01_JPRB,2.8124E+01_JPRB,3.0408E+01_JPRB/)  
+KAO( :,13,11) = (/&
+ & 1.8985E+01_JPRB,2.1757E+01_JPRB,2.4278E+01_JPRB,2.6507E+01_JPRB,2.8545E+01_JPRB/)  
+KAO( :, 1,12) = (/&
+ & 2.7620E+01_JPRB,2.9109E+01_JPRB,3.0583E+01_JPRB,3.1779E+01_JPRB,3.2904E+01_JPRB/)  
+KAO( :, 2,12) = (/&
+ & 3.0792E+01_JPRB,3.2479E+01_JPRB,3.3920E+01_JPRB,3.5408E+01_JPRB,3.6645E+01_JPRB/)  
+KAO( :, 3,12) = (/&
+ & 3.3732E+01_JPRB,3.5632E+01_JPRB,3.7155E+01_JPRB,3.8664E+01_JPRB,4.0176E+01_JPRB/)  
+KAO( :, 4,12) = (/&
+ & 3.6062E+01_JPRB,3.8172E+01_JPRB,3.9899E+01_JPRB,4.1650E+01_JPRB,4.3354E+01_JPRB/)  
+KAO( :, 5,12) = (/&
+ & 3.7489E+01_JPRB,3.9900E+01_JPRB,4.2014E+01_JPRB,4.4198E+01_JPRB,4.6166E+01_JPRB/)  
+KAO( :, 6,12) = (/&
+ & 3.8225E+01_JPRB,4.1024E+01_JPRB,4.3423E+01_JPRB,4.5937E+01_JPRB,4.7978E+01_JPRB/)  
+KAO( :, 7,12) = (/&
+ & 3.8206E+01_JPRB,4.1095E+01_JPRB,4.3824E+01_JPRB,4.6668E+01_JPRB,4.9398E+01_JPRB/)  
+KAO( :, 8,12) = (/&
+ & 3.6912E+01_JPRB,4.0130E+01_JPRB,4.3546E+01_JPRB,4.7024E+01_JPRB,5.0224E+01_JPRB/)  
+KAO( :, 9,12) = (/&
+ & 3.5011E+01_JPRB,3.8952E+01_JPRB,4.3085E+01_JPRB,4.6961E+01_JPRB,5.0773E+01_JPRB/)  
+KAO( :,10,12) = (/&
+ & 3.3435E+01_JPRB,3.8068E+01_JPRB,4.2569E+01_JPRB,4.6931E+01_JPRB,5.0777E+01_JPRB/)  
+KAO( :,11,12) = (/&
+ & 3.4126E+01_JPRB,3.9013E+01_JPRB,4.3484E+01_JPRB,4.7491E+01_JPRB,5.1057E+01_JPRB/)  
+KAO( :,12,12) = (/&
+ & 3.4318E+01_JPRB,3.8949E+01_JPRB,4.3070E+01_JPRB,4.6988E+01_JPRB,5.0849E+01_JPRB/)  
+KAO( :,13,12) = (/&
+ & 3.3457E+01_JPRB,3.7874E+01_JPRB,4.2090E+01_JPRB,4.6382E+01_JPRB,5.0526E+01_JPRB/)  
+KAO( :, 1,13) = (/&
+ & 3.2081E+01_JPRB,3.3951E+01_JPRB,3.5976E+01_JPRB,3.7442E+01_JPRB,3.9187E+01_JPRB/)  
+KAO( :, 2,13) = (/&
+ & 3.6410E+01_JPRB,3.8639E+01_JPRB,4.0837E+01_JPRB,4.2715E+01_JPRB,4.4604E+01_JPRB/)  
+KAO( :, 3,13) = (/&
+ & 4.1117E+01_JPRB,4.3836E+01_JPRB,4.6286E+01_JPRB,4.8485E+01_JPRB,5.0635E+01_JPRB/)  
+KAO( :, 4,13) = (/&
+ & 4.5894E+01_JPRB,4.8808E+01_JPRB,5.1561E+01_JPRB,5.4122E+01_JPRB,5.6665E+01_JPRB/)  
+KAO( :, 5,13) = (/&
+ & 5.0469E+01_JPRB,5.3828E+01_JPRB,5.7025E+01_JPRB,5.9732E+01_JPRB,6.2393E+01_JPRB/)  
+KAO( :, 6,13) = (/&
+ & 5.4490E+01_JPRB,5.8263E+01_JPRB,6.1693E+01_JPRB,6.4893E+01_JPRB,6.8000E+01_JPRB/)  
+KAO( :, 7,13) = (/&
+ & 5.7509E+01_JPRB,6.1997E+01_JPRB,6.5932E+01_JPRB,6.9593E+01_JPRB,7.3010E+01_JPRB/)  
+KAO( :, 8,13) = (/&
+ & 5.9554E+01_JPRB,6.4679E+01_JPRB,6.9084E+01_JPRB,7.3440E+01_JPRB,7.7536E+01_JPRB/)  
+KAO( :, 9,13) = (/&
+ & 6.0329E+01_JPRB,6.5898E+01_JPRB,7.0895E+01_JPRB,7.5993E+01_JPRB,8.0372E+01_JPRB/)  
+KAO( :,10,13) = (/&
+ & 6.0280E+01_JPRB,6.6133E+01_JPRB,7.1850E+01_JPRB,7.7277E+01_JPRB,8.2310E+01_JPRB/)  
+KAO( :,11,13) = (/&
+ & 6.1417E+01_JPRB,6.8046E+01_JPRB,7.4182E+01_JPRB,8.0392E+01_JPRB,8.6582E+01_JPRB/)  
+KAO( :,12,13) = (/&
+ & 6.2068E+01_JPRB,6.9536E+01_JPRB,7.6455E+01_JPRB,8.3609E+01_JPRB,9.0395E+01_JPRB/)  
+KAO( :,13,13) = (/&
+ & 6.2814E+01_JPRB,7.0863E+01_JPRB,7.8689E+01_JPRB,8.6158E+01_JPRB,9.3125E+01_JPRB/)  
+KAO( :, 1,14) = (/&
+ & 4.1518E+01_JPRB,4.3146E+01_JPRB,4.5346E+01_JPRB,4.6853E+01_JPRB,4.8598E+01_JPRB/)  
+KAO( :, 2,14) = (/&
+ & 4.6781E+01_JPRB,4.8970E+01_JPRB,5.1880E+01_JPRB,5.4105E+01_JPRB,5.6522E+01_JPRB/)  
+KAO( :, 3,14) = (/&
+ & 5.1825E+01_JPRB,5.5318E+01_JPRB,5.8975E+01_JPRB,6.1521E+01_JPRB,6.4785E+01_JPRB/)  
+KAO( :, 4,14) = (/&
+ & 5.7018E+01_JPRB,6.1165E+01_JPRB,6.5581E+01_JPRB,6.9138E+01_JPRB,7.3301E+01_JPRB/)  
+KAO( :, 5,14) = (/&
+ & 6.2559E+01_JPRB,6.7532E+01_JPRB,7.2921E+01_JPRB,7.7434E+01_JPRB,8.2255E+01_JPRB/)  
+KAO( :, 6,14) = (/&
+ & 6.8405E+01_JPRB,7.4630E+01_JPRB,8.0801E+01_JPRB,8.6601E+01_JPRB,9.2153E+01_JPRB/)  
+KAO( :, 7,14) = (/&
+ & 7.4932E+01_JPRB,8.2383E+01_JPRB,8.9625E+01_JPRB,9.6790E+01_JPRB,1.0268E+02_JPRB/)  
+KAO( :, 8,14) = (/&
+ & 8.2763E+01_JPRB,9.1560E+01_JPRB,9.9722E+01_JPRB,1.0772E+02_JPRB,1.1418E+02_JPRB/)  
+KAO( :, 9,14) = (/&
+ & 9.0637E+01_JPRB,1.0061E+02_JPRB,1.1013E+02_JPRB,1.1911E+02_JPRB,1.2622E+02_JPRB/)  
+KAO( :,10,14) = (/&
+ & 9.8104E+01_JPRB,1.0968E+02_JPRB,1.2088E+02_JPRB,1.3085E+02_JPRB,1.3916E+02_JPRB/)  
+KAO( :,11,14) = (/&
+ & 1.1038E+02_JPRB,1.2405E+02_JPRB,1.3571E+02_JPRB,1.4612E+02_JPRB,1.5567E+02_JPRB/)  
+KAO( :,12,14) = (/&
+ & 1.2285E+02_JPRB,1.3772E+02_JPRB,1.4999E+02_JPRB,1.6146E+02_JPRB,1.7128E+02_JPRB/)  
+KAO( :,13,14) = (/&
+ & 1.3421E+02_JPRB,1.4967E+02_JPRB,1.6247E+02_JPRB,1.7507E+02_JPRB,1.8543E+02_JPRB/)  
+KAO( :, 1,15) = (/&
+ & 5.1285E+01_JPRB,5.3369E+01_JPRB,5.5201E+01_JPRB,5.6834E+01_JPRB,5.8171E+01_JPRB/)  
+KAO( :, 2,15) = (/&
+ & 6.1486E+01_JPRB,6.4224E+01_JPRB,6.6483E+01_JPRB,6.8385E+01_JPRB,7.0263E+01_JPRB/)  
+KAO( :, 3,15) = (/&
+ & 7.2996E+01_JPRB,7.6763E+01_JPRB,7.9527E+01_JPRB,8.1282E+01_JPRB,8.3483E+01_JPRB/)  
+KAO( :, 4,15) = (/&
+ & 8.5243E+01_JPRB,8.9543E+01_JPRB,9.2811E+01_JPRB,9.4927E+01_JPRB,9.7733E+01_JPRB/)  
+KAO( :, 5,15) = (/&
+ & 9.7960E+01_JPRB,1.0251E+02_JPRB,1.0689E+02_JPRB,1.0988E+02_JPRB,1.1399E+02_JPRB/)  
+KAO( :, 6,15) = (/&
+ & 1.1053E+02_JPRB,1.1600E+02_JPRB,1.1928E+02_JPRB,1.2539E+02_JPRB,1.3116E+02_JPRB/)  
+KAO( :, 7,15) = (/&
+ & 1.1978E+02_JPRB,1.2735E+02_JPRB,1.3342E+02_JPRB,1.4289E+02_JPRB,1.4830E+02_JPRB/)  
+KAO( :, 8,15) = (/&
+ & 1.3066E+02_JPRB,1.3994E+02_JPRB,1.4782E+02_JPRB,1.6007E+02_JPRB,1.6737E+02_JPRB/)  
+KAO( :, 9,15) = (/&
+ & 1.4352E+02_JPRB,1.5439E+02_JPRB,1.6271E+02_JPRB,1.7712E+02_JPRB,1.8796E+02_JPRB/)  
+KAO( :,10,15) = (/&
+ & 1.5667E+02_JPRB,1.6982E+02_JPRB,1.8206E+02_JPRB,1.9739E+02_JPRB,2.1049E+02_JPRB/)  
+KAO( :,11,15) = (/&
+ & 1.7812E+02_JPRB,1.9349E+02_JPRB,2.0867E+02_JPRB,2.2613E+02_JPRB,2.4362E+02_JPRB/)  
+KAO( :,12,15) = (/&
+ & 2.0254E+02_JPRB,2.2124E+02_JPRB,2.3990E+02_JPRB,2.6100E+02_JPRB,2.8038E+02_JPRB/)  
+KAO( :,13,15) = (/&
+ & 2.3108E+02_JPRB,2.5315E+02_JPRB,2.7665E+02_JPRB,3.0075E+02_JPRB,3.2274E+02_JPRB/)  
+KAO( :, 1,16) = (/&
+ & 5.2777E+01_JPRB,5.4993E+01_JPRB,5.6841E+01_JPRB,5.8609E+01_JPRB,6.0050E+01_JPRB/)  
+KAO( :, 2,16) = (/&
+ & 6.3981E+01_JPRB,6.6669E+01_JPRB,6.9358E+01_JPRB,7.1554E+01_JPRB,7.3336E+01_JPRB/)  
+KAO( :, 3,16) = (/&
+ & 7.7059E+01_JPRB,8.0904E+01_JPRB,8.4188E+01_JPRB,8.7082E+01_JPRB,8.9526E+01_JPRB/)  
+KAO( :, 4,16) = (/&
+ & 9.1463E+01_JPRB,9.6542E+01_JPRB,1.0088E+02_JPRB,1.0476E+02_JPRB,1.0800E+02_JPRB/)  
+KAO( :, 5,16) = (/&
+ & 1.0757E+02_JPRB,1.1414E+02_JPRB,1.1997E+02_JPRB,1.2530E+02_JPRB,1.2942E+02_JPRB/)  
+KAO( :, 6,16) = (/&
+ & 1.2556E+02_JPRB,1.3416E+02_JPRB,1.4146E+02_JPRB,1.4899E+02_JPRB,1.5433E+02_JPRB/)  
+KAO( :, 7,16) = (/&
+ & 1.4547E+02_JPRB,1.5695E+02_JPRB,1.6648E+02_JPRB,1.7621E+02_JPRB,1.8397E+02_JPRB/)  
+KAO( :, 8,16) = (/&
+ & 1.6809E+02_JPRB,1.8302E+02_JPRB,1.9611E+02_JPRB,2.0827E+02_JPRB,2.1845E+02_JPRB/)  
+KAO( :, 9,16) = (/&
+ & 1.9340E+02_JPRB,2.1273E+02_JPRB,2.2936E+02_JPRB,2.4529E+02_JPRB,2.5864E+02_JPRB/)  
+KAO( :,10,16) = (/&
+ & 2.2291E+02_JPRB,2.4754E+02_JPRB,2.6870E+02_JPRB,2.8931E+02_JPRB,3.0639E+02_JPRB/)  
+KAO( :,11,16) = (/&
+ & 2.7009E+02_JPRB,2.9993E+02_JPRB,3.2506E+02_JPRB,3.4949E+02_JPRB,3.6996E+02_JPRB/)  
+KAO( :,12,16) = (/&
+ & 3.2630E+02_JPRB,3.6087E+02_JPRB,3.9287E+02_JPRB,4.2005E+02_JPRB,4.4424E+02_JPRB/)  
+KAO( :,13,16) = (/&
+ & 3.9266E+02_JPRB,4.3453E+02_JPRB,4.7167E+02_JPRB,5.0330E+02_JPRB,5.3095E+02_JPRB/)  
+
+!     The array KBO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels < ~100mb and temperatures. The first 
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this pressure 
+!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for
+!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  
+!     The second index, JP, runs from 13 to 59 and refers to the JPth
+!     reference pressure level (see taumol.f for the value of these
+!     pressure levels in mb).  The third index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+
+KBO( :,13, 1) = (/&
+ & 4.0127E-03_JPRB,4.4687E-03_JPRB,4.9253E-03_JPRB,5.3836E-03_JPRB,5.8217E-03_JPRB/)  
+KBO( :,14, 1) = (/&
+ & 3.3542E-03_JPRB,3.7289E-03_JPRB,4.1053E-03_JPRB,4.4790E-03_JPRB,4.8344E-03_JPRB/)  
+KBO( :,15, 1) = (/&
+ & 2.7756E-03_JPRB,3.0771E-03_JPRB,3.3799E-03_JPRB,3.6798E-03_JPRB,3.9637E-03_JPRB/)  
+KBO( :,16, 1) = (/&
+ & 2.2794E-03_JPRB,2.5195E-03_JPRB,2.7599E-03_JPRB,2.9987E-03_JPRB,3.2238E-03_JPRB/)  
+KBO( :,17, 1) = (/&
+ & 1.8616E-03_JPRB,2.0514E-03_JPRB,2.2420E-03_JPRB,2.4313E-03_JPRB,2.6094E-03_JPRB/)  
+KBO( :,18, 1) = (/&
+ & 1.5125E-03_JPRB,1.6613E-03_JPRB,1.8116E-03_JPRB,1.9607E-03_JPRB,2.1007E-03_JPRB/)  
+KBO( :,19, 1) = (/&
+ & 1.2313E-03_JPRB,1.3491E-03_JPRB,1.4681E-03_JPRB,1.5860E-03_JPRB,1.6968E-03_JPRB/)  
+KBO( :,20, 1) = (/&
+ & 1.0110E-03_JPRB,1.1056E-03_JPRB,1.2012E-03_JPRB,1.2955E-03_JPRB,1.3844E-03_JPRB/)  
+KBO( :,21, 1) = (/&
+ & 8.3158E-04_JPRB,9.0796E-04_JPRB,9.8512E-04_JPRB,1.0609E-03_JPRB,1.1323E-03_JPRB/)  
+KBO( :,22, 1) = (/&
+ & 6.8798E-04_JPRB,7.4987E-04_JPRB,8.1214E-04_JPRB,8.7287E-04_JPRB,9.3028E-04_JPRB/)  
+KBO( :,23, 1) = (/&
+ & 5.6933E-04_JPRB,6.1950E-04_JPRB,6.6971E-04_JPRB,7.1844E-04_JPRB,7.6466E-04_JPRB/)  
+KBO( :,24, 1) = (/&
+ & 4.7205E-04_JPRB,5.1270E-04_JPRB,5.5326E-04_JPRB,5.9246E-04_JPRB,6.2965E-04_JPRB/)  
+KBO( :,25, 1) = (/&
+ & 3.9177E-04_JPRB,4.2473E-04_JPRB,4.5751E-04_JPRB,4.8901E-04_JPRB,5.1899E-04_JPRB/)  
+KBO( :,26, 1) = (/&
+ & 3.2582E-04_JPRB,3.5264E-04_JPRB,3.7910E-04_JPRB,4.0446E-04_JPRB,4.2868E-04_JPRB/)  
+KBO( :,27, 1) = (/&
+ & 2.7103E-04_JPRB,2.9280E-04_JPRB,3.1418E-04_JPRB,3.3460E-04_JPRB,3.5420E-04_JPRB/)  
+KBO( :,28, 1) = (/&
+ & 2.2547E-04_JPRB,2.4309E-04_JPRB,2.6039E-04_JPRB,2.7684E-04_JPRB,2.9269E-04_JPRB/)  
+KBO( :,29, 1) = (/&
+ & 1.8743E-04_JPRB,2.0170E-04_JPRB,2.1564E-04_JPRB,2.2888E-04_JPRB,2.4168E-04_JPRB/)  
+KBO( :,30, 1) = (/&
+ & 1.5564E-04_JPRB,1.6721E-04_JPRB,1.7844E-04_JPRB,1.8907E-04_JPRB,1.9939E-04_JPRB/)  
+KBO( :,31, 1) = (/&
+ & 1.2905E-04_JPRB,1.3840E-04_JPRB,1.4740E-04_JPRB,1.5595E-04_JPRB,1.6423E-04_JPRB/)  
+KBO( :,32, 1) = (/&
+ & 1.0702E-04_JPRB,1.1456E-04_JPRB,1.2177E-04_JPRB,1.2865E-04_JPRB,1.3529E-04_JPRB/)  
+KBO( :,33, 1) = (/&
+ & 8.8739E-05_JPRB,9.4805E-05_JPRB,1.0060E-04_JPRB,1.0612E-04_JPRB,1.1146E-04_JPRB/)  
+KBO( :,34, 1) = (/&
+ & 7.3484E-05_JPRB,7.8377E-05_JPRB,8.3031E-05_JPRB,8.7477E-05_JPRB,9.1774E-05_JPRB/)  
+KBO( :,35, 1) = (/&
+ & 6.0456E-05_JPRB,6.4420E-05_JPRB,6.8176E-05_JPRB,7.1769E-05_JPRB,7.5241E-05_JPRB/)  
+KBO( :,36, 1) = (/&
+ & 4.9390E-05_JPRB,5.2616E-05_JPRB,5.5665E-05_JPRB,5.8580E-05_JPRB,6.1393E-05_JPRB/)  
+KBO( :,37, 1) = (/&
+ & 4.0090E-05_JPRB,4.2739E-05_JPRB,4.5249E-05_JPRB,4.7640E-05_JPRB,4.9946E-05_JPRB/)  
+KBO( :,38, 1) = (/&
+ & 3.2525E-05_JPRB,3.4701E-05_JPRB,3.6769E-05_JPRB,3.8731E-05_JPRB,4.0622E-05_JPRB/)  
+KBO( :,39, 1) = (/&
+ & 2.6387E-05_JPRB,2.8171E-05_JPRB,2.9873E-05_JPRB,3.1484E-05_JPRB,3.3034E-05_JPRB/)  
+KBO( :,40, 1) = (/&
+ & 2.1316E-05_JPRB,2.2785E-05_JPRB,2.4198E-05_JPRB,2.5534E-05_JPRB,2.6814E-05_JPRB/)  
+KBO( :,41, 1) = (/&
+ & 1.7206E-05_JPRB,1.8415E-05_JPRB,1.9590E-05_JPRB,2.0699E-05_JPRB,2.1759E-05_JPRB/)  
+KBO( :,42, 1) = (/&
+ & 1.3884E-05_JPRB,1.4880E-05_JPRB,1.5854E-05_JPRB,1.6776E-05_JPRB,1.7653E-05_JPRB/)  
+KBO( :,43, 1) = (/&
+ & 1.1169E-05_JPRB,1.1994E-05_JPRB,1.2804E-05_JPRB,1.3575E-05_JPRB,1.4303E-05_JPRB/)  
+KBO( :,44, 1) = (/&
+ & 8.9694E-06_JPRB,9.6558E-06_JPRB,1.0326E-05_JPRB,1.0973E-05_JPRB,1.1582E-05_JPRB/)  
+KBO( :,45, 1) = (/&
+ & 7.1970E-06_JPRB,7.7692E-06_JPRB,8.3256E-06_JPRB,8.8667E-06_JPRB,9.3774E-06_JPRB/)  
+KBO( :,46, 1) = (/&
+ & 5.7603E-06_JPRB,6.2374E-06_JPRB,6.7026E-06_JPRB,7.1541E-06_JPRB,7.5833E-06_JPRB/)  
+KBO( :,47, 1) = (/&
+ & 4.5904E-06_JPRB,4.9886E-06_JPRB,5.3792E-06_JPRB,5.7558E-06_JPRB,6.1172E-06_JPRB/)  
+KBO( :,48, 1) = (/&
+ & 3.6534E-06_JPRB,3.9855E-06_JPRB,4.3124E-06_JPRB,4.6286E-06_JPRB,4.9326E-06_JPRB/)  
+KBO( :,49, 1) = (/&
+ & 2.9034E-06_JPRB,3.1805E-06_JPRB,3.4538E-06_JPRB,3.7207E-06_JPRB,3.9759E-06_JPRB/)  
+KBO( :,50, 1) = (/&
+ & 2.3065E-06_JPRB,2.5402E-06_JPRB,2.7688E-06_JPRB,2.9931E-06_JPRB,3.2082E-06_JPRB/)  
+KBO( :,51, 1) = (/&
+ & 1.8310E-06_JPRB,2.0285E-06_JPRB,2.2198E-06_JPRB,2.4080E-06_JPRB,2.5898E-06_JPRB/)  
+KBO( :,52, 1) = (/&
+ & 1.4543E-06_JPRB,1.6160E-06_JPRB,1.7779E-06_JPRB,1.9362E-06_JPRB,2.0898E-06_JPRB/)  
+KBO( :,53, 1) = (/&
+ & 1.1560E-06_JPRB,1.2848E-06_JPRB,1.4229E-06_JPRB,1.5555E-06_JPRB,1.6854E-06_JPRB/)  
+KBO( :,54, 1) = (/&
+ & 9.2302E-07_JPRB,1.0251E-06_JPRB,1.1393E-06_JPRB,1.2519E-06_JPRB,1.3618E-06_JPRB/)  
+KBO( :,55, 1) = (/&
+ & 7.3926E-07_JPRB,8.1986E-07_JPRB,9.1193E-07_JPRB,1.0087E-06_JPRB,1.1013E-06_JPRB/)  
+KBO( :,56, 1) = (/&
+ & 5.9333E-07_JPRB,6.5666E-07_JPRB,7.3046E-07_JPRB,8.1142E-07_JPRB,8.9049E-07_JPRB/)  
+KBO( :,57, 1) = (/&
+ & 4.7736E-07_JPRB,5.2694E-07_JPRB,5.8578E-07_JPRB,6.5161E-07_JPRB,7.2007E-07_JPRB/)  
+KBO( :,58, 1) = (/&
+ & 3.8567E-07_JPRB,4.2438E-07_JPRB,4.7128E-07_JPRB,5.2459E-07_JPRB,5.8203E-07_JPRB/)  
+KBO( :,59, 1) = (/&
+ & 3.1642E-07_JPRB,3.4778E-07_JPRB,3.8612E-07_JPRB,4.2992E-07_JPRB,4.7734E-07_JPRB/)  
+KBO( :,13, 2) = (/&
+ & 1.2160E-02_JPRB,1.3438E-02_JPRB,1.4645E-02_JPRB,1.5727E-02_JPRB,1.6711E-02_JPRB/)  
+KBO( :,14, 2) = (/&
+ & 1.0225E-02_JPRB,1.1288E-02_JPRB,1.2265E-02_JPRB,1.3154E-02_JPRB,1.3956E-02_JPRB/)  
+KBO( :,15, 2) = (/&
+ & 8.4456E-03_JPRB,9.2918E-03_JPRB,1.0065E-02_JPRB,1.0768E-02_JPRB,1.1393E-02_JPRB/)  
+KBO( :,16, 2) = (/&
+ & 6.8924E-03_JPRB,7.5463E-03_JPRB,8.1481E-03_JPRB,8.6924E-03_JPRB,9.1710E-03_JPRB/)  
+KBO( :,17, 2) = (/&
+ & 5.5778E-03_JPRB,6.0832E-03_JPRB,6.5471E-03_JPRB,6.9629E-03_JPRB,7.3305E-03_JPRB/)  
+KBO( :,18, 2) = (/&
+ & 4.4688E-03_JPRB,4.8540E-03_JPRB,5.2070E-03_JPRB,5.5215E-03_JPRB,5.8036E-03_JPRB/)  
+KBO( :,19, 2) = (/&
+ & 3.5967E-03_JPRB,3.8949E-03_JPRB,4.1669E-03_JPRB,4.4096E-03_JPRB,4.6280E-03_JPRB/)  
+KBO( :,20, 2) = (/&
+ & 2.9298E-03_JPRB,3.1646E-03_JPRB,3.3779E-03_JPRB,3.5694E-03_JPRB,3.7401E-03_JPRB/)  
+KBO( :,21, 2) = (/&
+ & 2.3932E-03_JPRB,2.5790E-03_JPRB,2.7477E-03_JPRB,2.8993E-03_JPRB,3.0338E-03_JPRB/)  
+KBO( :,22, 2) = (/&
+ & 1.9643E-03_JPRB,2.1105E-03_JPRB,2.2434E-03_JPRB,2.3626E-03_JPRB,2.4679E-03_JPRB/)  
+KBO( :,23, 2) = (/&
+ & 1.6125E-03_JPRB,1.7277E-03_JPRB,1.8326E-03_JPRB,1.9262E-03_JPRB,2.0085E-03_JPRB/)  
+KBO( :,24, 2) = (/&
+ & 1.3282E-03_JPRB,1.4199E-03_JPRB,1.5028E-03_JPRB,1.5765E-03_JPRB,1.6410E-03_JPRB/)  
+KBO( :,25, 2) = (/&
+ & 1.0951E-03_JPRB,1.1683E-03_JPRB,1.2337E-03_JPRB,1.2916E-03_JPRB,1.3424E-03_JPRB/)  
+KBO( :,26, 2) = (/&
+ & 9.0567E-04_JPRB,9.6375E-04_JPRB,1.0153E-03_JPRB,1.0609E-03_JPRB,1.1006E-03_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB10:PART2',1,ZHOOK_HANDLE)
+END SUBROUTINE PART2
+
+
+SUBROUTINE PART3
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB10:PART3',0,ZHOOK_HANDLE)
+
+
+KBO( :,27, 2) = (/&
+ & 7.4971E-04_JPRB,7.9563E-04_JPRB,8.3627E-04_JPRB,8.7231E-04_JPRB,9.0333E-04_JPRB/)  
+KBO( :,28, 2) = (/&
+ & 6.2083E-04_JPRB,6.5706E-04_JPRB,6.8919E-04_JPRB,7.1762E-04_JPRB,7.4183E-04_JPRB/)  
+KBO( :,29, 2) = (/&
+ & 5.1283E-04_JPRB,5.4134E-04_JPRB,5.6668E-04_JPRB,5.8892E-04_JPRB,6.0775E-04_JPRB/)  
+KBO( :,30, 2) = (/&
+ & 4.2274E-04_JPRB,4.4513E-04_JPRB,4.6510E-04_JPRB,4.8244E-04_JPRB,4.9704E-04_JPRB/)  
+KBO( :,31, 2) = (/&
+ & 3.4700E-04_JPRB,3.6458E-04_JPRB,3.8019E-04_JPRB,3.9360E-04_JPRB,4.0492E-04_JPRB/)  
+KBO( :,32, 2) = (/&
+ & 2.8510E-04_JPRB,2.9895E-04_JPRB,3.1110E-04_JPRB,3.2149E-04_JPRB,3.3026E-04_JPRB/)  
+KBO( :,33, 2) = (/&
+ & 2.3440E-04_JPRB,2.4528E-04_JPRB,2.5470E-04_JPRB,2.6280E-04_JPRB,2.6955E-04_JPRB/)  
+KBO( :,34, 2) = (/&
+ & 1.9316E-04_JPRB,2.0175E-04_JPRB,2.0916E-04_JPRB,2.1548E-04_JPRB,2.2075E-04_JPRB/)  
+KBO( :,35, 2) = (/&
+ & 1.5858E-04_JPRB,1.6542E-04_JPRB,1.7135E-04_JPRB,1.7637E-04_JPRB,1.8056E-04_JPRB/)  
+KBO( :,36, 2) = (/&
+ & 1.2966E-04_JPRB,1.3522E-04_JPRB,1.4003E-04_JPRB,1.4410E-04_JPRB,1.4751E-04_JPRB/)  
+KBO( :,37, 2) = (/&
+ & 1.0583E-04_JPRB,1.1047E-04_JPRB,1.1450E-04_JPRB,1.1791E-04_JPRB,1.2077E-04_JPRB/)  
+KBO( :,38, 2) = (/&
+ & 8.6354E-05_JPRB,9.0236E-05_JPRB,9.3617E-05_JPRB,9.6482E-05_JPRB,9.8878E-05_JPRB/)  
+KBO( :,39, 2) = (/&
+ & 7.0455E-05_JPRB,7.3698E-05_JPRB,7.6539E-05_JPRB,7.8943E-05_JPRB,8.0950E-05_JPRB/)  
+KBO( :,40, 2) = (/&
+ & 5.7475E-05_JPRB,6.0235E-05_JPRB,6.2673E-05_JPRB,6.4741E-05_JPRB,6.6460E-05_JPRB/)  
+KBO( :,41, 2) = (/&
+ & 4.6872E-05_JPRB,4.9225E-05_JPRB,5.1315E-05_JPRB,5.3102E-05_JPRB,5.4585E-05_JPRB/)  
+KBO( :,42, 2) = (/&
+ & 3.8212E-05_JPRB,4.0216E-05_JPRB,4.1999E-05_JPRB,4.3546E-05_JPRB,4.4830E-05_JPRB/)  
+KBO( :,43, 2) = (/&
+ & 3.1158E-05_JPRB,3.2889E-05_JPRB,3.4429E-05_JPRB,3.5779E-05_JPRB,3.6907E-05_JPRB/)  
+KBO( :,44, 2) = (/&
+ & 2.5395E-05_JPRB,2.6902E-05_JPRB,2.8242E-05_JPRB,2.9418E-05_JPRB,3.0418E-05_JPRB/)  
+KBO( :,45, 2) = (/&
+ & 2.0690E-05_JPRB,2.1996E-05_JPRB,2.3163E-05_JPRB,2.4189E-05_JPRB,2.5065E-05_JPRB/)  
+KBO( :,46, 2) = (/&
+ & 1.6831E-05_JPRB,1.7958E-05_JPRB,1.8979E-05_JPRB,1.9882E-05_JPRB,2.0651E-05_JPRB/)  
+KBO( :,47, 2) = (/&
+ & 1.3652E-05_JPRB,1.4627E-05_JPRB,1.5521E-05_JPRB,1.6321E-05_JPRB,1.7007E-05_JPRB/)  
+KBO( :,48, 2) = (/&
+ & 1.1060E-05_JPRB,1.1904E-05_JPRB,1.2686E-05_JPRB,1.3393E-05_JPRB,1.4006E-05_JPRB/)  
+KBO( :,49, 2) = (/&
+ & 8.9492E-06_JPRB,9.6804E-06_JPRB,1.0363E-05_JPRB,1.0983E-05_JPRB,1.1533E-05_JPRB/)  
+KBO( :,50, 2) = (/&
+ & 7.2405E-06_JPRB,7.8785E-06_JPRB,8.4705E-06_JPRB,9.0129E-06_JPRB,9.5008E-06_JPRB/)  
+KBO( :,51, 2) = (/&
+ & 5.8460E-06_JPRB,6.4101E-06_JPRB,6.9248E-06_JPRB,7.3984E-06_JPRB,7.8284E-06_JPRB/)  
+KBO( :,52, 2) = (/&
+ & 4.6997E-06_JPRB,5.2070E-06_JPRB,5.6596E-06_JPRB,6.0736E-06_JPRB,6.4507E-06_JPRB/)  
+KBO( :,53, 2) = (/&
+ & 3.7614E-06_JPRB,4.2159E-06_JPRB,4.6210E-06_JPRB,4.9854E-06_JPRB,5.3156E-06_JPRB/)  
+KBO( :,54, 2) = (/&
+ & 3.0075E-06_JPRB,3.4121E-06_JPRB,3.7745E-06_JPRB,4.1002E-06_JPRB,4.3906E-06_JPRB/)  
+KBO( :,55, 2) = (/&
+ & 2.4043E-06_JPRB,2.7566E-06_JPRB,3.0802E-06_JPRB,3.3721E-06_JPRB,3.6314E-06_JPRB/)  
+KBO( :,56, 2) = (/&
+ & 1.9210E-06_JPRB,2.2197E-06_JPRB,2.5091E-06_JPRB,2.7692E-06_JPRB,3.0032E-06_JPRB/)  
+KBO( :,57, 2) = (/&
+ & 1.5317E-06_JPRB,1.7871E-06_JPRB,2.0379E-06_JPRB,2.2717E-06_JPRB,2.4826E-06_JPRB/)  
+KBO( :,58, 2) = (/&
+ & 1.2206E-06_JPRB,1.4418E-06_JPRB,1.6546E-06_JPRB,1.8628E-06_JPRB,2.0522E-06_JPRB/)  
+KBO( :,59, 2) = (/&
+ & 9.9907E-07_JPRB,1.1883E-06_JPRB,1.3690E-06_JPRB,1.5455E-06_JPRB,1.7114E-06_JPRB/)  
+KBO( :,13, 3) = (/&
+ & 2.0786E-02_JPRB,2.2351E-02_JPRB,2.3914E-02_JPRB,2.5482E-02_JPRB,2.6955E-02_JPRB/)  
+KBO( :,14, 3) = (/&
+ & 1.7451E-02_JPRB,1.8772E-02_JPRB,2.0114E-02_JPRB,2.1398E-02_JPRB,2.2623E-02_JPRB/)  
+KBO( :,15, 3) = (/&
+ & 1.4302E-02_JPRB,1.5409E-02_JPRB,1.6505E-02_JPRB,1.7555E-02_JPRB,1.8558E-02_JPRB/)  
+KBO( :,16, 3) = (/&
+ & 1.1560E-02_JPRB,1.2473E-02_JPRB,1.3359E-02_JPRB,1.4211E-02_JPRB,1.4998E-02_JPRB/)  
+KBO( :,17, 3) = (/&
+ & 9.2944E-03_JPRB,1.0027E-02_JPRB,1.0736E-02_JPRB,1.1417E-02_JPRB,1.2019E-02_JPRB/)  
+KBO( :,18, 3) = (/&
+ & 7.4021E-03_JPRB,7.9861E-03_JPRB,8.5472E-03_JPRB,9.0743E-03_JPRB,9.5344E-03_JPRB/)  
+KBO( :,19, 3) = (/&
+ & 5.9440E-03_JPRB,6.4084E-03_JPRB,6.8519E-03_JPRB,7.2597E-03_JPRB,7.6128E-03_JPRB/)  
+KBO( :,20, 3) = (/&
+ & 4.8413E-03_JPRB,5.2128E-03_JPRB,5.5678E-03_JPRB,5.8851E-03_JPRB,6.1565E-03_JPRB/)  
+KBO( :,21, 3) = (/&
+ & 3.9554E-03_JPRB,4.2547E-03_JPRB,4.5379E-03_JPRB,4.7882E-03_JPRB,4.9942E-03_JPRB/)  
+KBO( :,22, 3) = (/&
+ & 3.2474E-03_JPRB,3.4884E-03_JPRB,3.7113E-03_JPRB,3.9077E-03_JPRB,4.0588E-03_JPRB/)  
+KBO( :,23, 3) = (/&
+ & 2.6676E-03_JPRB,2.8612E-03_JPRB,3.0356E-03_JPRB,3.1862E-03_JPRB,3.2997E-03_JPRB/)  
+KBO( :,24, 3) = (/&
+ & 2.2001E-03_JPRB,2.3544E-03_JPRB,2.4920E-03_JPRB,2.6064E-03_JPRB,2.6941E-03_JPRB/)  
+KBO( :,25, 3) = (/&
+ & 1.8169E-03_JPRB,1.9393E-03_JPRB,2.0482E-03_JPRB,2.1336E-03_JPRB,2.2024E-03_JPRB/)  
+KBO( :,26, 3) = (/&
+ & 1.5047E-03_JPRB,1.6016E-03_JPRB,1.6869E-03_JPRB,1.7502E-03_JPRB,1.8053E-03_JPRB/)  
+KBO( :,27, 3) = (/&
+ & 1.2468E-03_JPRB,1.3235E-03_JPRB,1.3890E-03_JPRB,1.4372E-03_JPRB,1.4821E-03_JPRB/)  
+KBO( :,28, 3) = (/&
+ & 1.0331E-03_JPRB,1.0942E-03_JPRB,1.1434E-03_JPRB,1.1812E-03_JPRB,1.2183E-03_JPRB/)  
+KBO( :,29, 3) = (/&
+ & 8.5445E-04_JPRB,9.0249E-04_JPRB,9.3879E-04_JPRB,9.6890E-04_JPRB,9.9940E-04_JPRB/)  
+KBO( :,30, 3) = (/&
+ & 7.0538E-04_JPRB,7.4243E-04_JPRB,7.6932E-04_JPRB,7.9375E-04_JPRB,8.1874E-04_JPRB/)  
+KBO( :,31, 3) = (/&
+ & 5.8013E-04_JPRB,6.0755E-04_JPRB,6.2805E-04_JPRB,6.4789E-04_JPRB,6.6815E-04_JPRB/)  
+KBO( :,32, 3) = (/&
+ & 4.7748E-04_JPRB,4.9738E-04_JPRB,5.1357E-04_JPRB,5.2976E-04_JPRB,5.4616E-04_JPRB/)  
+KBO( :,33, 3) = (/&
+ & 3.9283E-04_JPRB,4.0745E-04_JPRB,4.2047E-04_JPRB,4.3362E-04_JPRB,4.4699E-04_JPRB/)  
+KBO( :,34, 3) = (/&
+ & 3.2354E-04_JPRB,3.3493E-04_JPRB,3.4555E-04_JPRB,3.5630E-04_JPRB,3.6722E-04_JPRB/)  
+KBO( :,35, 3) = (/&
+ & 2.6563E-04_JPRB,2.7479E-04_JPRB,2.8346E-04_JPRB,2.9224E-04_JPRB,3.0115E-04_JPRB/)  
+KBO( :,36, 3) = (/&
+ & 2.1746E-04_JPRB,2.2496E-04_JPRB,2.3205E-04_JPRB,2.3922E-04_JPRB,2.4648E-04_JPRB/)  
+KBO( :,37, 3) = (/&
+ & 1.7790E-04_JPRB,1.8421E-04_JPRB,1.9005E-04_JPRB,1.9594E-04_JPRB,2.0188E-04_JPRB/)  
+KBO( :,38, 3) = (/&
+ & 1.4546E-04_JPRB,1.5084E-04_JPRB,1.5564E-04_JPRB,1.6048E-04_JPRB,1.6535E-04_JPRB/)  
+KBO( :,39, 3) = (/&
+ & 1.1888E-04_JPRB,1.2350E-04_JPRB,1.2746E-04_JPRB,1.3144E-04_JPRB,1.3545E-04_JPRB/)  
+KBO( :,40, 3) = (/&
+ & 9.7055E-05_JPRB,1.0127E-04_JPRB,1.0459E-04_JPRB,1.0789E-04_JPRB,1.1120E-04_JPRB/)  
+KBO( :,41, 3) = (/&
+ & 7.9154E-05_JPRB,8.3014E-05_JPRB,8.5866E-05_JPRB,8.8590E-05_JPRB,9.1337E-05_JPRB/)  
+KBO( :,42, 3) = (/&
+ & 6.4516E-05_JPRB,6.7988E-05_JPRB,7.0503E-05_JPRB,7.2755E-05_JPRB,7.5027E-05_JPRB/)  
+KBO( :,43, 3) = (/&
+ & 5.2586E-05_JPRB,5.5638E-05_JPRB,5.8012E-05_JPRB,5.9918E-05_JPRB,6.1807E-05_JPRB/)  
+KBO( :,44, 3) = (/&
+ & 4.2846E-05_JPRB,4.5469E-05_JPRB,4.7752E-05_JPRB,4.9435E-05_JPRB,5.1007E-05_JPRB/)  
+KBO( :,45, 3) = (/&
+ & 3.4876E-05_JPRB,3.7158E-05_JPRB,3.9219E-05_JPRB,4.0798E-05_JPRB,4.2133E-05_JPRB/)  
+KBO( :,46, 3) = (/&
+ & 2.8345E-05_JPRB,3.0331E-05_JPRB,3.2109E-05_JPRB,3.3641E-05_JPRB,3.4818E-05_JPRB/)  
+KBO( :,47, 3) = (/&
+ & 2.2997E-05_JPRB,2.4688E-05_JPRB,2.6250E-05_JPRB,2.7649E-05_JPRB,2.8769E-05_JPRB/)  
+KBO( :,48, 3) = (/&
+ & 1.8671E-05_JPRB,2.0088E-05_JPRB,2.1457E-05_JPRB,2.2672E-05_JPRB,2.3753E-05_JPRB/)  
+KBO( :,49, 3) = (/&
+ & 1.5172E-05_JPRB,1.6362E-05_JPRB,1.7526E-05_JPRB,1.8600E-05_JPRB,1.9566E-05_JPRB/)  
+KBO( :,50, 3) = (/&
+ & 1.2371E-05_JPRB,1.3362E-05_JPRB,1.4334E-05_JPRB,1.5278E-05_JPRB,1.6112E-05_JPRB/)  
+KBO( :,51, 3) = (/&
+ & 1.0118E-05_JPRB,1.0936E-05_JPRB,1.1749E-05_JPRB,1.2556E-05_JPRB,1.3289E-05_JPRB/)  
+KBO( :,52, 3) = (/&
+ & 8.2966E-06_JPRB,8.9718E-06_JPRB,9.6516E-06_JPRB,1.0325E-05_JPRB,1.0972E-05_JPRB/)  
+KBO( :,53, 3) = (/&
+ & 6.8197E-06_JPRB,7.3847E-06_JPRB,7.9459E-06_JPRB,8.5100E-06_JPRB,9.0658E-06_JPRB/)  
+KBO( :,54, 3) = (/&
+ & 5.6318E-06_JPRB,6.1106E-06_JPRB,6.5789E-06_JPRB,7.0470E-06_JPRB,7.5143E-06_JPRB/)  
+KBO( :,55, 3) = (/&
+ & 4.6648E-06_JPRB,5.0803E-06_JPRB,5.4755E-06_JPRB,5.8623E-06_JPRB,6.2545E-06_JPRB/)  
+KBO( :,56, 3) = (/&
+ & 3.8708E-06_JPRB,4.2378E-06_JPRB,4.5762E-06_JPRB,4.9013E-06_JPRB,5.2284E-06_JPRB/)  
+KBO( :,57, 3) = (/&
+ & 3.2206E-06_JPRB,3.5441E-06_JPRB,3.8440E-06_JPRB,4.1208E-06_JPRB,4.3930E-06_JPRB/)  
+KBO( :,58, 3) = (/&
+ & 2.6894E-06_JPRB,2.9742E-06_JPRB,3.2435E-06_JPRB,3.4859E-06_JPRB,3.7158E-06_JPRB/)  
+KBO( :,59, 3) = (/&
+ & 2.2697E-06_JPRB,2.5173E-06_JPRB,2.7510E-06_JPRB,2.9640E-06_JPRB,3.1586E-06_JPRB/)  
+KBO( :,13, 4) = (/&
+ & 3.3348E-02_JPRB,3.5638E-02_JPRB,3.7527E-02_JPRB,3.8919E-02_JPRB,3.9722E-02_JPRB/)  
+KBO( :,14, 4) = (/&
+ & 2.8133E-02_JPRB,2.9965E-02_JPRB,3.1537E-02_JPRB,3.2552E-02_JPRB,3.3172E-02_JPRB/)  
+KBO( :,15, 4) = (/&
+ & 2.3195E-02_JPRB,2.4631E-02_JPRB,2.5882E-02_JPRB,2.6505E-02_JPRB,2.6995E-02_JPRB/)  
+KBO( :,16, 4) = (/&
+ & 1.8840E-02_JPRB,1.9967E-02_JPRB,2.0839E-02_JPRB,2.1232E-02_JPRB,2.1643E-02_JPRB/)  
+KBO( :,17, 4) = (/&
+ & 1.5191E-02_JPRB,1.6076E-02_JPRB,1.6629E-02_JPRB,1.6911E-02_JPRB,1.7254E-02_JPRB/)  
+KBO( :,18, 4) = (/&
+ & 1.2129E-02_JPRB,1.2801E-02_JPRB,1.3112E-02_JPRB,1.3338E-02_JPRB,1.3606E-02_JPRB/)  
+KBO( :,19, 4) = (/&
+ & 9.7476E-03_JPRB,1.0232E-02_JPRB,1.0428E-02_JPRB,1.0608E-02_JPRB,1.0828E-02_JPRB/)  
+KBO( :,20, 4) = (/&
+ & 7.9368E-03_JPRB,8.2717E-03_JPRB,8.4067E-03_JPRB,8.5556E-03_JPRB,8.7467E-03_JPRB/)  
+KBO( :,21, 4) = (/&
+ & 6.4875E-03_JPRB,6.7006E-03_JPRB,6.8050E-03_JPRB,6.9274E-03_JPRB,7.0981E-03_JPRB/)  
+KBO( :,22, 4) = (/&
+ & 5.3123E-03_JPRB,5.4283E-03_JPRB,5.5157E-03_JPRB,5.6201E-03_JPRB,5.7769E-03_JPRB/)  
+KBO( :,23, 4) = (/&
+ & 4.3285E-03_JPRB,4.4003E-03_JPRB,4.4749E-03_JPRB,4.5691E-03_JPRB,4.7070E-03_JPRB/)  
+KBO( :,24, 4) = (/&
+ & 3.5319E-03_JPRB,3.5856E-03_JPRB,3.6485E-03_JPRB,3.7338E-03_JPRB,3.8516E-03_JPRB/)  
+KBO( :,25, 4) = (/&
+ & 2.8812E-03_JPRB,2.9257E-03_JPRB,2.9788E-03_JPRB,3.0577E-03_JPRB,3.1571E-03_JPRB/)  
+KBO( :,26, 4) = (/&
+ & 2.3549E-03_JPRB,2.3931E-03_JPRB,2.4398E-03_JPRB,2.5120E-03_JPRB,2.5956E-03_JPRB/)  
+KBO( :,27, 4) = (/&
+ & 1.9281E-03_JPRB,1.9612E-03_JPRB,2.0042E-03_JPRB,2.0672E-03_JPRB,2.1371E-03_JPRB/)  
+KBO( :,28, 4) = (/&
+ & 1.5812E-03_JPRB,1.6092E-03_JPRB,1.6493E-03_JPRB,1.7029E-03_JPRB,1.7614E-03_JPRB/)  
+KBO( :,29, 4) = (/&
+ & 1.2934E-03_JPRB,1.3182E-03_JPRB,1.3554E-03_JPRB,1.4008E-03_JPRB,1.4497E-03_JPRB/)  
+KBO( :,30, 4) = (/&
+ & 1.0569E-03_JPRB,1.0795E-03_JPRB,1.1129E-03_JPRB,1.1513E-03_JPRB,1.1924E-03_JPRB/)  
+KBO( :,31, 4) = (/&
+ & 8.6072E-04_JPRB,8.8192E-04_JPRB,9.1116E-04_JPRB,9.4362E-04_JPRB,9.7860E-04_JPRB/)  
+KBO( :,32, 4) = (/&
+ & 7.0258E-04_JPRB,7.2255E-04_JPRB,7.4782E-04_JPRB,7.7514E-04_JPRB,8.0493E-04_JPRB/)  
+KBO( :,33, 4) = (/&
+ & 5.7482E-04_JPRB,5.9318E-04_JPRB,6.1484E-04_JPRB,6.3779E-04_JPRB,6.6313E-04_JPRB/)  
+KBO( :,34, 4) = (/&
+ & 4.7271E-04_JPRB,4.8878E-04_JPRB,5.0702E-04_JPRB,5.2638E-04_JPRB,5.4786E-04_JPRB/)  
+KBO( :,35, 4) = (/&
+ & 3.8824E-04_JPRB,4.0194E-04_JPRB,4.1715E-04_JPRB,4.3337E-04_JPRB,4.5133E-04_JPRB/)  
+KBO( :,36, 4) = (/&
+ & 3.1820E-04_JPRB,3.2965E-04_JPRB,3.4225E-04_JPRB,3.5569E-04_JPRB,3.7045E-04_JPRB/)  
+KBO( :,37, 4) = (/&
+ & 2.6087E-04_JPRB,2.7015E-04_JPRB,2.8055E-04_JPRB,2.9152E-04_JPRB,3.0353E-04_JPRB/)  
+KBO( :,38, 4) = (/&
+ & 2.1395E-04_JPRB,2.2142E-04_JPRB,2.2996E-04_JPRB,2.3892E-04_JPRB,2.4870E-04_JPRB/)  
+KBO( :,39, 4) = (/&
+ & 1.7555E-04_JPRB,1.8151E-04_JPRB,1.8852E-04_JPRB,1.9581E-04_JPRB,2.0378E-04_JPRB/)  
+KBO( :,40, 4) = (/&
+ & 1.4448E-04_JPRB,1.4897E-04_JPRB,1.5464E-04_JPRB,1.6057E-04_JPRB,1.6703E-04_JPRB/)  
+KBO( :,41, 4) = (/&
+ & 1.1907E-04_JPRB,1.2237E-04_JPRB,1.2690E-04_JPRB,1.3173E-04_JPRB,1.3696E-04_JPRB/)  
+KBO( :,42, 4) = (/&
+ & 9.8189E-05_JPRB,1.0062E-04_JPRB,1.0417E-04_JPRB,1.0812E-04_JPRB,1.1234E-04_JPRB/)  
+KBO( :,43, 4) = (/&
+ & 8.1285E-05_JPRB,8.3104E-05_JPRB,8.5710E-05_JPRB,8.8901E-05_JPRB,9.2309E-05_JPRB/)  
+KBO( :,44, 4) = (/&
+ & 6.7490E-05_JPRB,6.8895E-05_JPRB,7.0708E-05_JPRB,7.3224E-05_JPRB,7.5980E-05_JPRB/)  
+KBO( :,45, 4) = (/&
+ & 5.6130E-05_JPRB,5.7190E-05_JPRB,5.8518E-05_JPRB,6.0401E-05_JPRB,6.2619E-05_JPRB/)  
+KBO( :,46, 4) = (/&
+ & 4.6746E-05_JPRB,4.7563E-05_JPRB,4.8588E-05_JPRB,4.9905E-05_JPRB,5.1654E-05_JPRB/)  
+KBO( :,47, 4) = (/&
+ & 3.8886E-05_JPRB,3.9651E-05_JPRB,4.0414E-05_JPRB,4.1369E-05_JPRB,4.2661E-05_JPRB/)  
+KBO( :,48, 4) = (/&
+ & 3.2050E-05_JPRB,3.3124E-05_JPRB,3.3698E-05_JPRB,3.4432E-05_JPRB,3.5333E-05_JPRB/)  
+KBO( :,49, 4) = (/&
+ & 2.6226E-05_JPRB,2.7647E-05_JPRB,2.8176E-05_JPRB,2.8720E-05_JPRB,2.9390E-05_JPRB/)  
+KBO( :,50, 4) = (/&
+ & 2.1474E-05_JPRB,2.2897E-05_JPRB,2.3616E-05_JPRB,2.4028E-05_JPRB,2.4549E-05_JPRB/)  
+KBO( :,51, 4) = (/&
+ & 1.7587E-05_JPRB,1.8848E-05_JPRB,1.9798E-05_JPRB,2.0162E-05_JPRB,2.0554E-05_JPRB/)  
+KBO( :,52, 4) = (/&
+ & 1.4397E-05_JPRB,1.5513E-05_JPRB,1.6498E-05_JPRB,1.6964E-05_JPRB,1.7266E-05_JPRB/)  
+KBO( :,53, 4) = (/&
+ & 1.1772E-05_JPRB,1.2776E-05_JPRB,1.3653E-05_JPRB,1.4290E-05_JPRB,1.4555E-05_JPRB/)  
+KBO( :,54, 4) = (/&
+ & 9.6285E-06_JPRB,1.0547E-05_JPRB,1.1325E-05_JPRB,1.1997E-05_JPRB,1.2314E-05_JPRB/)  
+KBO( :,55, 4) = (/&
+ & 7.8686E-06_JPRB,8.7205E-06_JPRB,9.4148E-06_JPRB,1.0021E-05_JPRB,1.0444E-05_JPRB/)  
+KBO( :,56, 4) = (/&
+ & 6.4474E-06_JPRB,7.2044E-06_JPRB,7.8377E-06_JPRB,8.3851E-06_JPRB,8.8446E-06_JPRB/)  
+KBO( :,57, 4) = (/&
+ & 5.3026E-06_JPRB,5.9425E-06_JPRB,6.5385E-06_JPRB,7.0305E-06_JPRB,7.4552E-06_JPRB/)  
+KBO( :,58, 4) = (/&
+ & 4.3875E-06_JPRB,4.9223E-06_JPRB,5.4609E-06_JPRB,5.9117E-06_JPRB,6.2971E-06_JPRB/)  
+KBO( :,59, 4) = (/&
+ & 3.6889E-06_JPRB,4.1378E-06_JPRB,4.5957E-06_JPRB,4.9992E-06_JPRB,5.3354E-06_JPRB/)  
+KBO( :,13, 5) = (/&
+ & 5.1121E-02_JPRB,5.1507E-02_JPRB,5.2004E-02_JPRB,5.3195E-02_JPRB,5.5478E-02_JPRB/)  
+KBO( :,14, 5) = (/&
+ & 4.2903E-02_JPRB,4.3219E-02_JPRB,4.3663E-02_JPRB,4.5005E-02_JPRB,4.7060E-02_JPRB/)  
+KBO( :,15, 5) = (/&
+ & 3.5068E-02_JPRB,3.5353E-02_JPRB,3.5864E-02_JPRB,3.7306E-02_JPRB,3.9103E-02_JPRB/)  
+KBO( :,16, 5) = (/&
+ & 2.8258E-02_JPRB,2.8536E-02_JPRB,2.9205E-02_JPRB,3.0568E-02_JPRB,3.2105E-02_JPRB/)  
+KBO( :,17, 5) = (/&
+ & 2.2642E-02_JPRB,2.2932E-02_JPRB,2.3698E-02_JPRB,2.4891E-02_JPRB,2.6185E-02_JPRB/)  
+KBO( :,18, 5) = (/&
+ & 1.7964E-02_JPRB,1.8281E-02_JPRB,1.9084E-02_JPRB,2.0096E-02_JPRB,2.1180E-02_JPRB/)  
+KBO( :,19, 5) = (/&
+ & 1.4384E-02_JPRB,1.4732E-02_JPRB,1.5474E-02_JPRB,1.6321E-02_JPRB,1.7214E-02_JPRB/)  
+KBO( :,20, 5) = (/&
+ & 1.1675E-02_JPRB,1.2051E-02_JPRB,1.2712E-02_JPRB,1.3419E-02_JPRB,1.4150E-02_JPRB/)  
+KBO( :,21, 5) = (/&
+ & 9.5108E-03_JPRB,9.9043E-03_JPRB,1.0466E-02_JPRB,1.1048E-02_JPRB,1.1656E-02_JPRB/)  
+KBO( :,22, 5) = (/&
+ & 7.7720E-03_JPRB,8.1751E-03_JPRB,8.6406E-03_JPRB,9.1253E-03_JPRB,9.6344E-03_JPRB/)  
+KBO( :,23, 5) = (/&
+ & 6.3846E-03_JPRB,6.7498E-03_JPRB,7.1331E-03_JPRB,7.5377E-03_JPRB,7.9653E-03_JPRB/)  
+KBO( :,24, 5) = (/&
+ & 5.2771E-03_JPRB,5.5862E-03_JPRB,5.9043E-03_JPRB,6.2445E-03_JPRB,6.6015E-03_JPRB/)  
+KBO( :,25, 5) = (/&
+ & 4.3695E-03_JPRB,4.6259E-03_JPRB,4.8938E-03_JPRB,5.1786E-03_JPRB,5.4764E-03_JPRB/)  
+KBO( :,26, 5) = (/&
+ & 3.6280E-03_JPRB,3.8403E-03_JPRB,4.0669E-03_JPRB,4.3054E-03_JPRB,4.5535E-03_JPRB/)  
+KBO( :,27, 5) = (/&
+ & 3.0145E-03_JPRB,3.1918E-03_JPRB,3.3815E-03_JPRB,3.5819E-03_JPRB,3.7878E-03_JPRB/)  
+KBO( :,28, 5) = (/&
+ & 2.5051E-03_JPRB,2.6547E-03_JPRB,2.8145E-03_JPRB,2.9821E-03_JPRB,3.1545E-03_JPRB/)  
+KBO( :,29, 5) = (/&
+ & 2.0801E-03_JPRB,2.2062E-03_JPRB,2.3413E-03_JPRB,2.4808E-03_JPRB,2.6265E-03_JPRB/)  
+KBO( :,30, 5) = (/&
+ & 1.7263E-03_JPRB,1.8332E-03_JPRB,1.9470E-03_JPRB,2.0638E-03_JPRB,2.1862E-03_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB10:PART3',1,ZHOOK_HANDLE)
+END SUBROUTINE PART3
+
+
+SUBROUTINE PART4
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB10:PART4',0,ZHOOK_HANDLE)
+
+
+KBO( :,31, 5) = (/&
+ & 1.4306E-03_JPRB,1.5217E-03_JPRB,1.6165E-03_JPRB,1.7146E-03_JPRB,1.8178E-03_JPRB/)  
+KBO( :,32, 5) = (/&
+ & 1.1879E-03_JPRB,1.2650E-03_JPRB,1.3439E-03_JPRB,1.4268E-03_JPRB,1.5142E-03_JPRB/)  
+KBO( :,33, 5) = (/&
+ & 9.8791E-04_JPRB,1.0524E-03_JPRB,1.1186E-03_JPRB,1.1891E-03_JPRB,1.2634E-03_JPRB/)  
+KBO( :,34, 5) = (/&
+ & 8.2253E-04_JPRB,8.7618E-04_JPRB,9.3221E-04_JPRB,9.9230E-04_JPRB,1.0553E-03_JPRB/)  
+KBO( :,35, 5) = (/&
+ & 6.8111E-04_JPRB,7.2574E-04_JPRB,7.7324E-04_JPRB,8.2413E-04_JPRB,8.7761E-04_JPRB/)  
+KBO( :,36, 5) = (/&
+ & 5.6044E-04_JPRB,5.9769E-04_JPRB,6.3770E-04_JPRB,6.8068E-04_JPRB,7.2574E-04_JPRB/)  
+KBO( :,37, 5) = (/&
+ & 4.5897E-04_JPRB,4.9003E-04_JPRB,5.2346E-04_JPRB,5.5953E-04_JPRB,5.9740E-04_JPRB/)  
+KBO( :,38, 5) = (/&
+ & 3.7569E-04_JPRB,4.0153E-04_JPRB,4.2953E-04_JPRB,4.5975E-04_JPRB,4.9160E-04_JPRB/)  
+KBO( :,39, 5) = (/&
+ & 3.0744E-04_JPRB,3.2897E-04_JPRB,3.5240E-04_JPRB,3.7773E-04_JPRB,4.0452E-04_JPRB/)  
+KBO( :,40, 5) = (/&
+ & 2.5088E-04_JPRB,2.6871E-04_JPRB,2.8819E-04_JPRB,3.0931E-04_JPRB,3.3175E-04_JPRB/)  
+KBO( :,41, 5) = (/&
+ & 2.0462E-04_JPRB,2.1937E-04_JPRB,2.3556E-04_JPRB,2.5314E-04_JPRB,2.7185E-04_JPRB/)  
+KBO( :,42, 5) = (/&
+ & 1.6686E-04_JPRB,1.7907E-04_JPRB,1.9249E-04_JPRB,2.0708E-04_JPRB,2.2271E-04_JPRB/)  
+KBO( :,43, 5) = (/&
+ & 1.3590E-04_JPRB,1.4594E-04_JPRB,1.5698E-04_JPRB,1.6901E-04_JPRB,1.8205E-04_JPRB/)  
+KBO( :,44, 5) = (/&
+ & 1.1067E-04_JPRB,1.1887E-04_JPRB,1.2791E-04_JPRB,1.3780E-04_JPRB,1.4862E-04_JPRB/)  
+KBO( :,45, 5) = (/&
+ & 9.0208E-05_JPRB,9.6857E-05_JPRB,1.0424E-04_JPRB,1.1235E-04_JPRB,1.2129E-04_JPRB/)  
+KBO( :,46, 5) = (/&
+ & 7.3529E-05_JPRB,7.8854E-05_JPRB,8.4864E-05_JPRB,9.1484E-05_JPRB,9.8816E-05_JPRB/)  
+KBO( :,47, 5) = (/&
+ & 6.0013E-05_JPRB,6.4106E-05_JPRB,6.8939E-05_JPRB,7.4314E-05_JPRB,8.0262E-05_JPRB/)  
+KBO( :,48, 5) = (/&
+ & 4.9475E-05_JPRB,5.2215E-05_JPRB,5.6060E-05_JPRB,6.0396E-05_JPRB,6.5219E-05_JPRB/)  
+KBO( :,49, 5) = (/&
+ & 4.1161E-05_JPRB,4.2705E-05_JPRB,4.5656E-05_JPRB,4.9133E-05_JPRB,5.3026E-05_JPRB/)  
+KBO( :,50, 5) = (/&
+ & 3.4418E-05_JPRB,3.5307E-05_JPRB,3.7317E-05_JPRB,4.0090E-05_JPRB,4.3229E-05_JPRB/)  
+KBO( :,51, 5) = (/&
+ & 2.8922E-05_JPRB,2.9472E-05_JPRB,3.0638E-05_JPRB,3.2797E-05_JPRB,3.5318E-05_JPRB/)  
+KBO( :,52, 5) = (/&
+ & 2.4424E-05_JPRB,2.4734E-05_JPRB,2.5383E-05_JPRB,2.6898E-05_JPRB,2.8901E-05_JPRB/)  
+KBO( :,53, 5) = (/&
+ & 2.0598E-05_JPRB,2.0869E-05_JPRB,2.1258E-05_JPRB,2.2148E-05_JPRB,2.3706E-05_JPRB/)  
+KBO( :,54, 5) = (/&
+ & 1.7186E-05_JPRB,1.7712E-05_JPRB,1.7923E-05_JPRB,1.8433E-05_JPRB,1.9552E-05_JPRB/)  
+KBO( :,55, 5) = (/&
+ & 1.4224E-05_JPRB,1.5080E-05_JPRB,1.5208E-05_JPRB,1.5518E-05_JPRB,1.6207E-05_JPRB/)  
+KBO( :,56, 5) = (/&
+ & 1.1740E-05_JPRB,1.2734E-05_JPRB,1.2993E-05_JPRB,1.3155E-05_JPRB,1.3546E-05_JPRB/)  
+KBO( :,57, 5) = (/&
+ & 9.7276E-06_JPRB,1.0657E-05_JPRB,1.1168E-05_JPRB,1.1239E-05_JPRB,1.1467E-05_JPRB/)  
+KBO( :,58, 5) = (/&
+ & 8.1077E-06_JPRB,8.9005E-06_JPRB,9.5538E-06_JPRB,9.6723E-06_JPRB,9.7928E-06_JPRB/)  
+KBO( :,59, 5) = (/&
+ & 6.8383E-06_JPRB,7.5009E-06_JPRB,8.1193E-06_JPRB,8.2851E-06_JPRB,8.3569E-06_JPRB/)  
+KBO( :,13, 6) = (/&
+ & 7.7444E-02_JPRB,8.2236E-02_JPRB,8.7838E-02_JPRB,9.3753E-02_JPRB,9.9786E-02_JPRB/)  
+KBO( :,14, 6) = (/&
+ & 6.5845E-02_JPRB,7.0239E-02_JPRB,7.5214E-02_JPRB,8.0372E-02_JPRB,8.5713E-02_JPRB/)  
+KBO( :,15, 6) = (/&
+ & 5.5227E-02_JPRB,5.9200E-02_JPRB,6.3504E-02_JPRB,6.7983E-02_JPRB,7.2630E-02_JPRB/)  
+KBO( :,16, 6) = (/&
+ & 4.5844E-02_JPRB,4.9349E-02_JPRB,5.3056E-02_JPRB,5.6921E-02_JPRB,6.0814E-02_JPRB/)  
+KBO( :,17, 6) = (/&
+ & 3.7783E-02_JPRB,4.0819E-02_JPRB,4.4007E-02_JPRB,4.7268E-02_JPRB,5.0508E-02_JPRB/)  
+KBO( :,18, 6) = (/&
+ & 3.0896E-02_JPRB,3.3488E-02_JPRB,3.6191E-02_JPRB,3.8886E-02_JPRB,4.1550E-02_JPRB/)  
+KBO( :,19, 6) = (/&
+ & 2.5364E-02_JPRB,2.7572E-02_JPRB,2.9829E-02_JPRB,3.2058E-02_JPRB,3.4260E-02_JPRB/)  
+KBO( :,20, 6) = (/&
+ & 2.1100E-02_JPRB,2.2979E-02_JPRB,2.4877E-02_JPRB,2.6754E-02_JPRB,2.8602E-02_JPRB/)  
+KBO( :,21, 6) = (/&
+ & 1.7607E-02_JPRB,1.9203E-02_JPRB,2.0798E-02_JPRB,2.2390E-02_JPRB,2.3916E-02_JPRB/)  
+KBO( :,22, 6) = (/&
+ & 1.4783E-02_JPRB,1.6131E-02_JPRB,1.7478E-02_JPRB,1.8806E-02_JPRB,2.0049E-02_JPRB/)  
+KBO( :,23, 6) = (/&
+ & 1.2411E-02_JPRB,1.3542E-02_JPRB,1.4674E-02_JPRB,1.5762E-02_JPRB,1.6774E-02_JPRB/)  
+KBO( :,24, 6) = (/&
+ & 1.0438E-02_JPRB,1.1384E-02_JPRB,1.2322E-02_JPRB,1.3209E-02_JPRB,1.4046E-02_JPRB/)  
+KBO( :,25, 6) = (/&
+ & 8.7842E-03_JPRB,9.5736E-03_JPRB,1.0349E-02_JPRB,1.1074E-02_JPRB,1.1769E-02_JPRB/)  
+KBO( :,26, 6) = (/&
+ & 7.4110E-03_JPRB,8.0713E-03_JPRB,8.7058E-03_JPRB,9.3054E-03_JPRB,9.8871E-03_JPRB/)  
+KBO( :,27, 6) = (/&
+ & 6.2558E-03_JPRB,6.8061E-03_JPRB,7.3256E-03_JPRB,7.8243E-03_JPRB,8.3130E-03_JPRB/)  
+KBO( :,28, 6) = (/&
+ & 5.2801E-03_JPRB,5.7341E-03_JPRB,6.1638E-03_JPRB,6.5800E-03_JPRB,6.9900E-03_JPRB/)  
+KBO( :,29, 6) = (/&
+ & 4.4527E-03_JPRB,4.8252E-03_JPRB,5.1813E-03_JPRB,5.5298E-03_JPRB,5.8731E-03_JPRB/)  
+KBO( :,30, 6) = (/&
+ & 3.7503E-03_JPRB,4.0566E-03_JPRB,4.3519E-03_JPRB,4.6440E-03_JPRB,4.9327E-03_JPRB/)  
+KBO( :,31, 6) = (/&
+ & 3.1521E-03_JPRB,3.4037E-03_JPRB,3.6510E-03_JPRB,3.8964E-03_JPRB,4.1394E-03_JPRB/)  
+KBO( :,32, 6) = (/&
+ & 2.6499E-03_JPRB,2.8587E-03_JPRB,3.0669E-03_JPRB,3.2733E-03_JPRB,3.4804E-03_JPRB/)  
+KBO( :,33, 6) = (/&
+ & 2.2285E-03_JPRB,2.4036E-03_JPRB,2.5790E-03_JPRB,2.7532E-03_JPRB,2.9305E-03_JPRB/)  
+KBO( :,34, 6) = (/&
+ & 1.8728E-03_JPRB,2.0206E-03_JPRB,2.1684E-03_JPRB,2.3169E-03_JPRB,2.4685E-03_JPRB/)  
+KBO( :,35, 6) = (/&
+ & 1.5635E-03_JPRB,1.6884E-03_JPRB,1.8131E-03_JPRB,1.9393E-03_JPRB,2.0686E-03_JPRB/)  
+KBO( :,36, 6) = (/&
+ & 1.2949E-03_JPRB,1.4000E-03_JPRB,1.5055E-03_JPRB,1.6126E-03_JPRB,1.7231E-03_JPRB/)  
+KBO( :,37, 6) = (/&
+ & 1.0650E-03_JPRB,1.1540E-03_JPRB,1.2435E-03_JPRB,1.3349E-03_JPRB,1.4294E-03_JPRB/)  
+KBO( :,38, 6) = (/&
+ & 8.7519E-04_JPRB,9.5059E-04_JPRB,1.0265E-03_JPRB,1.1043E-03_JPRB,1.1854E-03_JPRB/)  
+KBO( :,39, 6) = (/&
+ & 7.1904E-04_JPRB,7.8281E-04_JPRB,8.4716E-04_JPRB,9.1345E-04_JPRB,9.8297E-04_JPRB/)  
+KBO( :,40, 6) = (/&
+ & 5.8756E-04_JPRB,6.4152E-04_JPRB,6.9608E-04_JPRB,7.5269E-04_JPRB,8.1218E-04_JPRB/)  
+KBO( :,41, 6) = (/&
+ & 4.7943E-04_JPRB,5.2501E-04_JPRB,5.7132E-04_JPRB,6.1957E-04_JPRB,6.7045E-04_JPRB/)  
+KBO( :,42, 6) = (/&
+ & 3.9089E-04_JPRB,4.2934E-04_JPRB,4.6858E-04_JPRB,5.0963E-04_JPRB,5.5304E-04_JPRB/)  
+KBO( :,43, 6) = (/&
+ & 3.1717E-04_JPRB,3.4955E-04_JPRB,3.8275E-04_JPRB,4.1759E-04_JPRB,4.5458E-04_JPRB/)  
+KBO( :,44, 6) = (/&
+ & 2.5660E-04_JPRB,2.8381E-04_JPRB,3.1180E-04_JPRB,3.4130E-04_JPRB,3.7266E-04_JPRB/)  
+KBO( :,45, 6) = (/&
+ & 2.0734E-04_JPRB,2.3011E-04_JPRB,2.5370E-04_JPRB,2.7860E-04_JPRB,3.0513E-04_JPRB/)  
+KBO( :,46, 6) = (/&
+ & 1.6698E-04_JPRB,1.8599E-04_JPRB,2.0575E-04_JPRB,2.2669E-04_JPRB,2.4909E-04_JPRB/)  
+KBO( :,47, 6) = (/&
+ & 1.3369E-04_JPRB,1.4948E-04_JPRB,1.6598E-04_JPRB,1.8350E-04_JPRB,2.0231E-04_JPRB/)  
+KBO( :,48, 6) = (/&
+ & 1.0692E-04_JPRB,1.1997E-04_JPRB,1.3372E-04_JPRB,1.4834E-04_JPRB,1.6409E-04_JPRB/)  
+KBO( :,49, 6) = (/&
+ & 8.5441E-05_JPRB,9.6159E-05_JPRB,1.0757E-04_JPRB,1.1975E-04_JPRB,1.3290E-04_JPRB/)  
+KBO( :,50, 6) = (/&
+ & 6.8463E-05_JPRB,7.7220E-05_JPRB,8.6669E-05_JPRB,9.6779E-05_JPRB,1.0774E-04_JPRB/)  
+KBO( :,51, 6) = (/&
+ & 5.4963E-05_JPRB,6.2053E-05_JPRB,6.9849E-05_JPRB,7.8222E-05_JPRB,8.7346E-05_JPRB/)  
+KBO( :,52, 6) = (/&
+ & 4.4218E-05_JPRB,4.9878E-05_JPRB,5.6264E-05_JPRB,6.3175E-05_JPRB,7.0755E-05_JPRB/)  
+KBO( :,53, 6) = (/&
+ & 3.5855E-05_JPRB,4.0139E-05_JPRB,4.5314E-05_JPRB,5.0998E-05_JPRB,5.7267E-05_JPRB/)  
+KBO( :,54, 6) = (/&
+ & 2.9695E-05_JPRB,3.2492E-05_JPRB,3.6654E-05_JPRB,4.1299E-05_JPRB,4.6492E-05_JPRB/)  
+KBO( :,55, 6) = (/&
+ & 2.5066E-05_JPRB,2.6500E-05_JPRB,2.9735E-05_JPRB,3.3517E-05_JPRB,3.7804E-05_JPRB/)  
+KBO( :,56, 6) = (/&
+ & 2.1455E-05_JPRB,2.1969E-05_JPRB,2.4192E-05_JPRB,2.7229E-05_JPRB,3.0752E-05_JPRB/)  
+KBO( :,57, 6) = (/&
+ & 1.8563E-05_JPRB,1.8584E-05_JPRB,1.9785E-05_JPRB,2.2171E-05_JPRB,2.5035E-05_JPRB/)  
+KBO( :,58, 6) = (/&
+ & 1.6189E-05_JPRB,1.5969E-05_JPRB,1.6446E-05_JPRB,1.8150E-05_JPRB,2.0451E-05_JPRB/)  
+KBO( :,59, 6) = (/&
+ & 1.3883E-05_JPRB,1.3701E-05_JPRB,1.3912E-05_JPRB,1.5148E-05_JPRB,1.7050E-05_JPRB/)  
+KBO( :,13, 7) = (/&
+ & 1.5712E-01_JPRB,1.7077E-01_JPRB,1.8355E-01_JPRB,1.9563E-01_JPRB,2.0695E-01_JPRB/)  
+KBO( :,14, 7) = (/&
+ & 1.3457E-01_JPRB,1.4585E-01_JPRB,1.5670E-01_JPRB,1.6701E-01_JPRB,1.7684E-01_JPRB/)  
+KBO( :,15, 7) = (/&
+ & 1.1408E-01_JPRB,1.2355E-01_JPRB,1.3267E-01_JPRB,1.4142E-01_JPRB,1.5007E-01_JPRB/)  
+KBO( :,16, 7) = (/&
+ & 9.6177E-02_JPRB,1.0414E-01_JPRB,1.1181E-01_JPRB,1.1927E-01_JPRB,1.2686E-01_JPRB/)  
+KBO( :,17, 7) = (/&
+ & 8.0695E-02_JPRB,8.7374E-02_JPRB,9.3807E-02_JPRB,1.0015E-01_JPRB,1.0671E-01_JPRB/)  
+KBO( :,18, 7) = (/&
+ & 6.7227E-02_JPRB,7.2774E-02_JPRB,7.8173E-02_JPRB,8.3614E-02_JPRB,8.9191E-02_JPRB/)  
+KBO( :,19, 7) = (/&
+ & 5.5951E-02_JPRB,6.0594E-02_JPRB,6.5183E-02_JPRB,6.9851E-02_JPRB,7.4565E-02_JPRB/)  
+KBO( :,20, 7) = (/&
+ & 4.7003E-02_JPRB,5.0964E-02_JPRB,5.4960E-02_JPRB,5.9008E-02_JPRB,6.3089E-02_JPRB/)  
+KBO( :,21, 7) = (/&
+ & 3.9571E-02_JPRB,4.2979E-02_JPRB,4.6449E-02_JPRB,4.9946E-02_JPRB,5.3508E-02_JPRB/)  
+KBO( :,22, 7) = (/&
+ & 3.3519E-02_JPRB,3.6474E-02_JPRB,3.9467E-02_JPRB,4.2489E-02_JPRB,4.5580E-02_JPRB/)  
+KBO( :,23, 7) = (/&
+ & 2.8427E-02_JPRB,3.0972E-02_JPRB,3.3547E-02_JPRB,3.6170E-02_JPRB,3.8855E-02_JPRB/)  
+KBO( :,24, 7) = (/&
+ & 2.4149E-02_JPRB,2.6342E-02_JPRB,2.8570E-02_JPRB,3.0859E-02_JPRB,3.3200E-02_JPRB/)  
+KBO( :,25, 7) = (/&
+ & 2.0558E-02_JPRB,2.2456E-02_JPRB,2.4392E-02_JPRB,2.6381E-02_JPRB,2.8422E-02_JPRB/)  
+KBO( :,26, 7) = (/&
+ & 1.7573E-02_JPRB,1.9221E-02_JPRB,2.0907E-02_JPRB,2.2636E-02_JPRB,2.4397E-02_JPRB/)  
+KBO( :,27, 7) = (/&
+ & 1.5044E-02_JPRB,1.6466E-02_JPRB,1.7926E-02_JPRB,1.9419E-02_JPRB,2.0934E-02_JPRB/)  
+KBO( :,28, 7) = (/&
+ & 1.2886E-02_JPRB,1.4109E-02_JPRB,1.5370E-02_JPRB,1.6664E-02_JPRB,1.7968E-02_JPRB/)  
+KBO( :,29, 7) = (/&
+ & 1.1030E-02_JPRB,1.2088E-02_JPRB,1.3180E-02_JPRB,1.4300E-02_JPRB,1.5425E-02_JPRB/)  
+KBO( :,30, 7) = (/&
+ & 9.4386E-03_JPRB,1.0357E-02_JPRB,1.1303E-02_JPRB,1.2268E-02_JPRB,1.3245E-02_JPRB/)  
+KBO( :,31, 7) = (/&
+ & 8.0733E-03_JPRB,8.8677E-03_JPRB,9.6883E-03_JPRB,1.0518E-02_JPRB,1.1366E-02_JPRB/)  
+KBO( :,32, 7) = (/&
+ & 6.9177E-03_JPRB,7.6069E-03_JPRB,8.3126E-03_JPRB,9.0312E-03_JPRB,9.7643E-03_JPRB/)  
+KBO( :,33, 7) = (/&
+ & 5.9333E-03_JPRB,6.5312E-03_JPRB,7.1390E-03_JPRB,7.7622E-03_JPRB,8.3990E-03_JPRB/)  
+KBO( :,34, 7) = (/&
+ & 5.0834E-03_JPRB,5.6003E-03_JPRB,6.1274E-03_JPRB,6.6689E-03_JPRB,7.2266E-03_JPRB/)  
+KBO( :,35, 7) = (/&
+ & 4.3170E-03_JPRB,4.7611E-03_JPRB,5.2173E-03_JPRB,5.6888E-03_JPRB,6.1769E-03_JPRB/)  
+KBO( :,36, 7) = (/&
+ & 3.6248E-03_JPRB,4.0060E-03_JPRB,4.3997E-03_JPRB,4.8092E-03_JPRB,5.2371E-03_JPRB/)  
+KBO( :,37, 7) = (/&
+ & 3.0276E-03_JPRB,3.3587E-03_JPRB,3.7027E-03_JPRB,4.0632E-03_JPRB,4.4411E-03_JPRB/)  
+KBO( :,38, 7) = (/&
+ & 2.5258E-03_JPRB,2.8131E-03_JPRB,3.1144E-03_JPRB,3.4319E-03_JPRB,3.7659E-03_JPRB/)  
+KBO( :,39, 7) = (/&
+ & 2.1056E-03_JPRB,2.3549E-03_JPRB,2.6188E-03_JPRB,2.8979E-03_JPRB,3.1925E-03_JPRB/)  
+KBO( :,40, 7) = (/&
+ & 1.7476E-03_JPRB,1.9653E-03_JPRB,2.1979E-03_JPRB,2.4447E-03_JPRB,2.7070E-03_JPRB/)  
+KBO( :,41, 7) = (/&
+ & 1.4476E-03_JPRB,1.6380E-03_JPRB,1.8422E-03_JPRB,2.0603E-03_JPRB,2.2939E-03_JPRB/)  
+KBO( :,42, 7) = (/&
+ & 1.1969E-03_JPRB,1.3628E-03_JPRB,1.5418E-03_JPRB,1.7341E-03_JPRB,1.9416E-03_JPRB/)  
+KBO( :,43, 7) = (/&
+ & 9.8263E-04_JPRB,1.1265E-03_JPRB,1.2827E-03_JPRB,1.4514E-03_JPRB,1.6351E-03_JPRB/)  
+KBO( :,44, 7) = (/&
+ & 8.0249E-04_JPRB,9.2668E-04_JPRB,1.0625E-03_JPRB,1.2096E-03_JPRB,1.3707E-03_JPRB/)  
+KBO( :,45, 7) = (/&
+ & 6.5298E-04_JPRB,7.5994E-04_JPRB,8.7728E-04_JPRB,1.0055E-03_JPRB,1.1461E-03_JPRB/)  
+KBO( :,46, 7) = (/&
+ & 5.2766E-04_JPRB,6.1908E-04_JPRB,7.1997E-04_JPRB,8.3119E-04_JPRB,9.5370E-04_JPRB/)  
+KBO( :,47, 7) = (/&
+ & 4.2190E-04_JPRB,4.9924E-04_JPRB,5.8514E-04_JPRB,6.8083E-04_JPRB,7.8680E-04_JPRB/)  
+KBO( :,48, 7) = (/&
+ & 3.3585E-04_JPRB,4.0081E-04_JPRB,4.7372E-04_JPRB,5.5558E-04_JPRB,6.4689E-04_JPRB/)  
+KBO( :,49, 7) = (/&
+ & 2.6612E-04_JPRB,3.2038E-04_JPRB,3.8190E-04_JPRB,4.5171E-04_JPRB,5.3004E-04_JPRB/)  
+KBO( :,50, 7) = (/&
+ & 2.1101E-04_JPRB,2.5616E-04_JPRB,3.0801E-04_JPRB,3.6730E-04_JPRB,4.3443E-04_JPRB/)  
+KBO( :,51, 7) = (/&
+ & 1.6702E-04_JPRB,2.0440E-04_JPRB,2.4803E-04_JPRB,2.9825E-04_JPRB,3.5552E-04_JPRB/)  
+KBO( :,52, 7) = (/&
+ & 1.3173E-04_JPRB,1.6253E-04_JPRB,1.9899E-04_JPRB,2.4139E-04_JPRB,2.9010E-04_JPRB/)  
+KBO( :,53, 7) = (/&
+ & 1.0353E-04_JPRB,1.2873E-04_JPRB,1.5900E-04_JPRB,1.9462E-04_JPRB,2.3588E-04_JPRB/)  
+KBO( :,54, 7) = (/&
+ & 8.1672E-05_JPRB,1.0229E-04_JPRB,1.2738E-04_JPRB,1.5734E-04_JPRB,1.9225E-04_JPRB/)  
+KBO( :,55, 7) = (/&
+ & 6.4500E-05_JPRB,8.1316E-05_JPRB,1.0205E-04_JPRB,1.2719E-04_JPRB,1.5669E-04_JPRB/)  
+KBO( :,56, 7) = (/&
+ & 5.0893E-05_JPRB,6.4506E-05_JPRB,8.1571E-05_JPRB,1.0252E-04_JPRB,1.2738E-04_JPRB/)  
+KBO( :,57, 7) = (/&
+ & 4.0182E-05_JPRB,5.1082E-05_JPRB,6.5020E-05_JPRB,8.2415E-05_JPRB,1.0329E-04_JPRB/)  
+KBO( :,58, 7) = (/&
+ & 3.1954E-05_JPRB,4.0565E-05_JPRB,5.1914E-05_JPRB,6.6302E-05_JPRB,8.3823E-05_JPRB/)  
+KBO( :,59, 7) = (/&
+ & 2.6572E-05_JPRB,3.3591E-05_JPRB,4.3211E-05_JPRB,5.5528E-05_JPRB,7.0676E-05_JPRB/)  
+KBO( :,13, 8) = (/&
+ & 4.4787E-01_JPRB,4.9751E-01_JPRB,5.4470E-01_JPRB,5.8862E-01_JPRB,6.2908E-01_JPRB/)  
+KBO( :,14, 8) = (/&
+ & 3.8445E-01_JPRB,4.2715E-01_JPRB,4.6742E-01_JPRB,5.0464E-01_JPRB,5.3938E-01_JPRB/)  
+KBO( :,15, 8) = (/&
+ & 3.2779E-01_JPRB,3.6397E-01_JPRB,3.9785E-01_JPRB,4.2935E-01_JPRB,4.5890E-01_JPRB/)  
+KBO( :,16, 8) = (/&
+ & 2.7790E-01_JPRB,3.0790E-01_JPRB,3.3600E-01_JPRB,3.6256E-01_JPRB,3.8746E-01_JPRB/)  
+KBO( :,17, 8) = (/&
+ & 2.3458E-01_JPRB,2.5937E-01_JPRB,2.8268E-01_JPRB,3.0493E-01_JPRB,3.2595E-01_JPRB/)  
+KBO( :,18, 8) = (/&
+ & 1.9764E-01_JPRB,2.1801E-01_JPRB,2.3742E-01_JPRB,2.5590E-01_JPRB,2.7378E-01_JPRB/)  
+KBO( :,19, 8) = (/&
+ & 1.6729E-01_JPRB,1.8411E-01_JPRB,2.0019E-01_JPRB,2.1556E-01_JPRB,2.3089E-01_JPRB/)  
+KBO( :,20, 8) = (/&
+ & 1.4346E-01_JPRB,1.5764E-01_JPRB,1.7106E-01_JPRB,1.8428E-01_JPRB,1.9747E-01_JPRB/)  
+KBO( :,21, 8) = (/&
+ & 1.2344E-01_JPRB,1.3538E-01_JPRB,1.4684E-01_JPRB,1.5826E-01_JPRB,1.6972E-01_JPRB/)  
+KBO( :,22, 8) = (/&
+ & 1.0677E-01_JPRB,1.1691E-01_JPRB,1.2686E-01_JPRB,1.3681E-01_JPRB,1.4681E-01_JPRB/)  
+KBO( :,23, 8) = (/&
+ & 9.2153E-02_JPRB,1.0099E-01_JPRB,1.0971E-01_JPRB,1.1847E-01_JPRB,1.2717E-01_JPRB/)  
+KBO( :,24, 8) = (/&
+ & 7.9606E-02_JPRB,8.7367E-02_JPRB,9.5083E-02_JPRB,1.0275E-01_JPRB,1.1037E-01_JPRB/)  
+KBO( :,25, 8) = (/&
+ & 6.8847E-02_JPRB,7.5684E-02_JPRB,8.2485E-02_JPRB,8.9220E-02_JPRB,9.5941E-02_JPRB/)  
+KBO( :,26, 8) = (/&
+ & 5.9776E-02_JPRB,6.5803E-02_JPRB,7.1776E-02_JPRB,7.7759E-02_JPRB,8.3752E-02_JPRB/)  
+KBO( :,27, 8) = (/&
+ & 5.1998E-02_JPRB,5.7305E-02_JPRB,6.2592E-02_JPRB,6.7931E-02_JPRB,7.3284E-02_JPRB/)  
+KBO( :,28, 8) = (/&
+ & 4.5335E-02_JPRB,5.0017E-02_JPRB,5.4715E-02_JPRB,5.9468E-02_JPRB,6.4255E-02_JPRB/)  
+KBO( :,29, 8) = (/&
+ & 3.9576E-02_JPRB,4.3721E-02_JPRB,4.7903E-02_JPRB,5.2114E-02_JPRB,5.6419E-02_JPRB/)  
+KBO( :,30, 8) = (/&
+ & 3.4575E-02_JPRB,3.8250E-02_JPRB,4.1958E-02_JPRB,4.5723E-02_JPRB,4.9573E-02_JPRB/)  
+KBO( :,31, 8) = (/&
+ & 3.0216E-02_JPRB,3.3461E-02_JPRB,3.6737E-02_JPRB,4.0102E-02_JPRB,4.3522E-02_JPRB/)  
+KBO( :,32, 8) = (/&
+ & 2.6463E-02_JPRB,2.9325E-02_JPRB,3.2235E-02_JPRB,3.5225E-02_JPRB,3.8255E-02_JPRB/)  
+KBO( :,33, 8) = (/&
+ & 2.3214E-02_JPRB,2.5730E-02_JPRB,2.8315E-02_JPRB,3.0956E-02_JPRB,3.3645E-02_JPRB/)  
+KBO( :,34, 8) = (/&
+ & 2.0354E-02_JPRB,2.2577E-02_JPRB,2.4858E-02_JPRB,2.7195E-02_JPRB,2.9569E-02_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB10:PART4',1,ZHOOK_HANDLE)
+END SUBROUTINE PART4
+
+
+SUBROUTINE PART5
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB10:PART5',0,ZHOOK_HANDLE)
+
+
+KBO( :,35, 8) = (/&
+ & 1.7652E-02_JPRB,1.9611E-02_JPRB,2.1620E-02_JPRB,2.3679E-02_JPRB,2.5793E-02_JPRB/)  
+KBO( :,36, 8) = (/&
+ & 1.5121E-02_JPRB,1.6837E-02_JPRB,1.8603E-02_JPRB,2.0413E-02_JPRB,2.2284E-02_JPRB/)  
+KBO( :,37, 8) = (/&
+ & 1.2910E-02_JPRB,1.4438E-02_JPRB,1.6023E-02_JPRB,1.7651E-02_JPRB,1.9335E-02_JPRB/)  
+KBO( :,38, 8) = (/&
+ & 1.1016E-02_JPRB,1.2377E-02_JPRB,1.3800E-02_JPRB,1.5264E-02_JPRB,1.6785E-02_JPRB/)  
+KBO( :,39, 8) = (/&
+ & 9.3971E-03_JPRB,1.0610E-02_JPRB,1.1882E-02_JPRB,1.3195E-02_JPRB,1.4575E-02_JPRB/)  
+KBO( :,40, 8) = (/&
+ & 8.0032E-03_JPRB,9.0996E-03_JPRB,1.0249E-02_JPRB,1.1449E-02_JPRB,1.2715E-02_JPRB/)  
+KBO( :,41, 8) = (/&
+ & 6.8143E-03_JPRB,7.8019E-03_JPRB,8.8465E-03_JPRB,9.9478E-03_JPRB,1.1108E-02_JPRB/)  
+KBO( :,42, 8) = (/&
+ & 5.7987E-03_JPRB,6.6880E-03_JPRB,7.6360E-03_JPRB,8.6473E-03_JPRB,9.7138E-03_JPRB/)  
+KBO( :,43, 8) = (/&
+ & 4.9102E-03_JPRB,5.7128E-03_JPRB,6.5767E-03_JPRB,7.5054E-03_JPRB,8.4907E-03_JPRB/)  
+KBO( :,44, 8) = (/&
+ & 4.1435E-03_JPRB,4.8687E-03_JPRB,5.6557E-03_JPRB,6.5117E-03_JPRB,7.4261E-03_JPRB/)  
+KBO( :,45, 8) = (/&
+ & 3.4889E-03_JPRB,4.1453E-03_JPRB,4.8619E-03_JPRB,5.6491E-03_JPRB,6.4985E-03_JPRB/)  
+KBO( :,46, 8) = (/&
+ & 2.9183E-03_JPRB,3.5111E-03_JPRB,4.1627E-03_JPRB,4.8843E-03_JPRB,5.6717E-03_JPRB/)  
+KBO( :,47, 8) = (/&
+ & 2.4091E-03_JPRB,2.9412E-03_JPRB,3.5329E-03_JPRB,4.1906E-03_JPRB,4.9179E-03_JPRB/)  
+KBO( :,48, 8) = (/&
+ & 1.9761E-03_JPRB,2.4516E-03_JPRB,2.9867E-03_JPRB,3.5873E-03_JPRB,4.2592E-03_JPRB/)  
+KBO( :,49, 8) = (/&
+ & 1.6100E-03_JPRB,2.0311E-03_JPRB,2.5133E-03_JPRB,3.0616E-03_JPRB,3.6821E-03_JPRB/)  
+KBO( :,50, 8) = (/&
+ & 1.3098E-03_JPRB,1.6814E-03_JPRB,2.1143E-03_JPRB,2.6145E-03_JPRB,3.1877E-03_JPRB/)  
+KBO( :,51, 8) = (/&
+ & 1.0616E-03_JPRB,1.3873E-03_JPRB,1.7732E-03_JPRB,2.2275E-03_JPRB,2.7552E-03_JPRB/)  
+KBO( :,52, 8) = (/&
+ & 8.5431E-04_JPRB,1.1375E-03_JPRB,1.4802E-03_JPRB,1.8899E-03_JPRB,2.3744E-03_JPRB/)  
+KBO( :,53, 8) = (/&
+ & 6.8250E-04_JPRB,9.2625E-04_JPRB,1.2281E-03_JPRB,1.5967E-03_JPRB,2.0393E-03_JPRB/)  
+KBO( :,54, 8) = (/&
+ & 5.4646E-04_JPRB,7.5582E-04_JPRB,1.0218E-03_JPRB,1.3535E-03_JPRB,1.7581E-03_JPRB/)  
+KBO( :,55, 8) = (/&
+ & 4.3631E-04_JPRB,6.1609E-04_JPRB,8.4963E-04_JPRB,1.1470E-03_JPRB,1.5165E-03_JPRB/)  
+KBO( :,56, 8) = (/&
+ & 3.4597E-04_JPRB,4.9939E-04_JPRB,7.0303E-04_JPRB,9.6849E-04_JPRB,1.3045E-03_JPRB/)  
+KBO( :,57, 8) = (/&
+ & 2.7231E-04_JPRB,4.0225E-04_JPRB,5.7843E-04_JPRB,8.1401E-04_JPRB,1.1188E-03_JPRB/)  
+KBO( :,58, 8) = (/&
+ & 2.1404E-04_JPRB,3.2388E-04_JPRB,4.7635E-04_JPRB,6.8490E-04_JPRB,9.6152E-04_JPRB/)  
+KBO( :,59, 8) = (/&
+ & 1.8077E-04_JPRB,2.7867E-04_JPRB,4.1775E-04_JPRB,6.1150E-04_JPRB,8.7266E-04_JPRB/)  
+KBO( :,13, 9) = (/&
+ & 2.7435E+00_JPRB,3.0906E+00_JPRB,3.4108E+00_JPRB,3.6982E+00_JPRB,3.9627E+00_JPRB/)  
+KBO( :,14, 9) = (/&
+ & 2.3802E+00_JPRB,2.6705E+00_JPRB,2.9382E+00_JPRB,3.1823E+00_JPRB,3.4042E+00_JPRB/)  
+KBO( :,15, 9) = (/&
+ & 2.0515E+00_JPRB,2.2949E+00_JPRB,2.5214E+00_JPRB,2.7256E+00_JPRB,2.9082E+00_JPRB/)  
+KBO( :,16, 9) = (/&
+ & 1.7616E+00_JPRB,1.9678E+00_JPRB,2.1547E+00_JPRB,2.3237E+00_JPRB,2.4783E+00_JPRB/)  
+KBO( :,17, 9) = (/&
+ & 1.5089E+00_JPRB,1.6786E+00_JPRB,1.8334E+00_JPRB,1.9756E+00_JPRB,2.1052E+00_JPRB/)  
+KBO( :,18, 9) = (/&
+ & 1.2832E+00_JPRB,1.4238E+00_JPRB,1.5536E+00_JPRB,1.6726E+00_JPRB,1.7800E+00_JPRB/)  
+KBO( :,19, 9) = (/&
+ & 1.0879E+00_JPRB,1.2054E+00_JPRB,1.3138E+00_JPRB,1.4118E+00_JPRB,1.5002E+00_JPRB/)  
+KBO( :,20, 9) = (/&
+ & 9.2520E-01_JPRB,1.0230E+00_JPRB,1.1126E+00_JPRB,1.1933E+00_JPRB,1.2674E+00_JPRB/)  
+KBO( :,21, 9) = (/&
+ & 7.8791E-01_JPRB,8.6885E-01_JPRB,9.4260E-01_JPRB,1.0104E+00_JPRB,1.0727E+00_JPRB/)  
+KBO( :,22, 9) = (/&
+ & 6.7633E-01_JPRB,7.4273E-01_JPRB,8.0382E-01_JPRB,8.6005E-01_JPRB,9.1295E-01_JPRB/)  
+KBO( :,23, 9) = (/&
+ & 5.8122E-01_JPRB,6.3601E-01_JPRB,6.8664E-01_JPRB,7.3416E-01_JPRB,7.7931E-01_JPRB/)  
+KBO( :,24, 9) = (/&
+ & 5.0026E-01_JPRB,5.4576E-01_JPRB,5.8810E-01_JPRB,6.2834E-01_JPRB,6.6798E-01_JPRB/)  
+KBO( :,25, 9) = (/&
+ & 4.3213E-01_JPRB,4.6996E-01_JPRB,5.0587E-01_JPRB,5.4068E-01_JPRB,5.7579E-01_JPRB/)  
+KBO( :,26, 9) = (/&
+ & 3.7530E-01_JPRB,4.0715E-01_JPRB,4.3791E-01_JPRB,4.6854E-01_JPRB,5.0040E-01_JPRB/)  
+KBO( :,27, 9) = (/&
+ & 3.2720E-01_JPRB,3.5436E-01_JPRB,3.8108E-01_JPRB,4.0857E-01_JPRB,4.3759E-01_JPRB/)  
+KBO( :,28, 9) = (/&
+ & 2.8625E-01_JPRB,3.0981E-01_JPRB,3.3353E-01_JPRB,3.5864E-01_JPRB,3.8484E-01_JPRB/)  
+KBO( :,29, 9) = (/&
+ & 2.5143E-01_JPRB,2.7201E-01_JPRB,2.9352E-01_JPRB,3.1618E-01_JPRB,3.4020E-01_JPRB/)  
+KBO( :,30, 9) = (/&
+ & 2.2172E-01_JPRB,2.4013E-01_JPRB,2.5952E-01_JPRB,2.8016E-01_JPRB,3.0172E-01_JPRB/)  
+KBO( :,31, 9) = (/&
+ & 1.9610E-01_JPRB,2.1281E-01_JPRB,2.3037E-01_JPRB,2.4895E-01_JPRB,2.6850E-01_JPRB/)  
+KBO( :,32, 9) = (/&
+ & 1.7415E-01_JPRB,1.8930E-01_JPRB,2.0532E-01_JPRB,2.2216E-01_JPRB,2.3994E-01_JPRB/)  
+KBO( :,33, 9) = (/&
+ & 1.5516E-01_JPRB,1.6907E-01_JPRB,1.8355E-01_JPRB,1.9888E-01_JPRB,2.1515E-01_JPRB/)  
+KBO( :,34, 9) = (/&
+ & 1.3857E-01_JPRB,1.5131E-01_JPRB,1.6462E-01_JPRB,1.7854E-01_JPRB,1.9347E-01_JPRB/)  
+KBO( :,35, 9) = (/&
+ & 1.2324E-01_JPRB,1.3480E-01_JPRB,1.4696E-01_JPRB,1.5978E-01_JPRB,1.7337E-01_JPRB/)  
+KBO( :,36, 9) = (/&
+ & 1.0878E-01_JPRB,1.1937E-01_JPRB,1.3043E-01_JPRB,1.4217E-01_JPRB,1.5452E-01_JPRB/)  
+KBO( :,37, 9) = (/&
+ & 9.5776E-02_JPRB,1.0563E-01_JPRB,1.1583E-01_JPRB,1.2665E-01_JPRB,1.3805E-01_JPRB/)  
+KBO( :,38, 9) = (/&
+ & 8.4466E-02_JPRB,9.3612E-02_JPRB,1.0315E-01_JPRB,1.1317E-01_JPRB,1.2370E-01_JPRB/)  
+KBO( :,39, 9) = (/&
+ & 7.4614E-02_JPRB,8.3124E-02_JPRB,9.2043E-02_JPRB,1.0145E-01_JPRB,1.1118E-01_JPRB/)  
+KBO( :,40, 9) = (/&
+ & 6.5857E-02_JPRB,7.3870E-02_JPRB,8.2261E-02_JPRB,9.1193E-02_JPRB,1.0040E-01_JPRB/)  
+KBO( :,41, 9) = (/&
+ & 5.8183E-02_JPRB,6.5774E-02_JPRB,7.3720E-02_JPRB,8.2197E-02_JPRB,9.1007E-02_JPRB/)  
+KBO( :,42, 9) = (/&
+ & 5.1461E-02_JPRB,5.8649E-02_JPRB,6.6221E-02_JPRB,7.4278E-02_JPRB,8.2751E-02_JPRB/)  
+KBO( :,43, 9) = (/&
+ & 4.5392E-02_JPRB,5.2200E-02_JPRB,5.9437E-02_JPRB,6.7121E-02_JPRB,7.5296E-02_JPRB/)  
+KBO( :,44, 9) = (/&
+ & 4.0017E-02_JPRB,4.6452E-02_JPRB,5.3355E-02_JPRB,6.0754E-02_JPRB,6.8643E-02_JPRB/)  
+KBO( :,45, 9) = (/&
+ & 3.5304E-02_JPRB,4.1396E-02_JPRB,4.7987E-02_JPRB,5.5092E-02_JPRB,6.2720E-02_JPRB/)  
+KBO( :,46, 9) = (/&
+ & 3.1075E-02_JPRB,3.6822E-02_JPRB,4.3097E-02_JPRB,4.9898E-02_JPRB,5.7283E-02_JPRB/)  
+KBO( :,47, 9) = (/&
+ & 2.7177E-02_JPRB,3.2558E-02_JPRB,3.8513E-02_JPRB,4.5021E-02_JPRB,5.2127E-02_JPRB/)  
+KBO( :,48, 9) = (/&
+ & 2.3744E-02_JPRB,2.8781E-02_JPRB,3.4434E-02_JPRB,4.0680E-02_JPRB,4.7484E-02_JPRB/)  
+KBO( :,49, 9) = (/&
+ & 2.0728E-02_JPRB,2.5421E-02_JPRB,3.0794E-02_JPRB,3.6770E-02_JPRB,4.3357E-02_JPRB/)  
+KBO( :,50, 9) = (/&
+ & 1.8168E-02_JPRB,2.2568E-02_JPRB,2.7658E-02_JPRB,3.3413E-02_JPRB,3.9781E-02_JPRB/)  
+KBO( :,51, 9) = (/&
+ & 1.5961E-02_JPRB,2.0091E-02_JPRB,2.4921E-02_JPRB,3.0460E-02_JPRB,3.6640E-02_JPRB/)  
+KBO( :,52, 9) = (/&
+ & 1.4012E-02_JPRB,1.7898E-02_JPRB,2.2474E-02_JPRB,2.7799E-02_JPRB,3.3804E-02_JPRB/)  
+KBO( :,53, 9) = (/&
+ & 1.2274E-02_JPRB,1.5954E-02_JPRB,2.0286E-02_JPRB,2.5396E-02_JPRB,3.1223E-02_JPRB/)  
+KBO( :,54, 9) = (/&
+ & 1.0807E-02_JPRB,1.4326E-02_JPRB,1.8466E-02_JPRB,2.3375E-02_JPRB,2.9075E-02_JPRB/)  
+KBO( :,55, 9) = (/&
+ & 9.5319E-03_JPRB,1.2915E-02_JPRB,1.6895E-02_JPRB,2.1632E-02_JPRB,2.7210E-02_JPRB/)  
+KBO( :,56, 9) = (/&
+ & 8.3912E-03_JPRB,1.1632E-02_JPRB,1.5477E-02_JPRB,2.0079E-02_JPRB,2.5547E-02_JPRB/)  
+KBO( :,57, 9) = (/&
+ & 7.3723E-03_JPRB,1.0474E-02_JPRB,1.4207E-02_JPRB,1.8687E-02_JPRB,2.4063E-02_JPRB/)  
+KBO( :,58, 9) = (/&
+ & 6.4991E-03_JPRB,9.4761E-03_JPRB,1.3112E-02_JPRB,1.7511E-02_JPRB,2.2815E-02_JPRB/)  
+KBO( :,59, 9) = (/&
+ & 6.1473E-03_JPRB,9.1090E-03_JPRB,1.2767E-02_JPRB,1.7218E-02_JPRB,2.2606E-02_JPRB/)  
+KBO( :,13,10) = (/&
+ & 1.1116E+01_JPRB,1.2524E+01_JPRB,1.3896E+01_JPRB,1.5268E+01_JPRB,1.6536E+01_JPRB/)  
+KBO( :,14,10) = (/&
+ & 9.9682E+00_JPRB,1.1262E+01_JPRB,1.2560E+01_JPRB,1.3723E+01_JPRB,1.4792E+01_JPRB/)  
+KBO( :,15,10) = (/&
+ & 8.8893E+00_JPRB,1.0059E+01_JPRB,1.1121E+01_JPRB,1.2116E+01_JPRB,1.3075E+01_JPRB/)  
+KBO( :,16,10) = (/&
+ & 7.8467E+00_JPRB,8.8032E+00_JPRB,9.7316E+00_JPRB,1.0625E+01_JPRB,1.1425E+01_JPRB/)  
+KBO( :,17,10) = (/&
+ & 6.8078E+00_JPRB,7.6463E+00_JPRB,8.4707E+00_JPRB,9.1981E+00_JPRB,9.8604E+00_JPRB/)  
+KBO( :,18,10) = (/&
+ & 5.9071E+00_JPRB,6.6462E+00_JPRB,7.3087E+00_JPRB,7.9162E+00_JPRB,8.4956E+00_JPRB/)  
+KBO( :,19,10) = (/&
+ & 5.1307E+00_JPRB,5.7208E+00_JPRB,6.2833E+00_JPRB,6.8158E+00_JPRB,7.3233E+00_JPRB/)  
+KBO( :,20,10) = (/&
+ & 4.4064E+00_JPRB,4.9086E+00_JPRB,5.4011E+00_JPRB,5.8668E+00_JPRB,6.2919E+00_JPRB/)  
+KBO( :,21,10) = (/&
+ & 3.7746E+00_JPRB,4.2108E+00_JPRB,4.6377E+00_JPRB,5.0222E+00_JPRB,5.3698E+00_JPRB/)  
+KBO( :,22,10) = (/&
+ & 3.2585E+00_JPRB,3.6369E+00_JPRB,3.9831E+00_JPRB,4.2976E+00_JPRB,4.5905E+00_JPRB/)  
+KBO( :,23,10) = (/&
+ & 2.8213E+00_JPRB,3.1329E+00_JPRB,3.4129E+00_JPRB,3.6764E+00_JPRB,3.9234E+00_JPRB/)  
+KBO( :,24,10) = (/&
+ & 2.4431E+00_JPRB,2.6958E+00_JPRB,2.9321E+00_JPRB,3.1552E+00_JPRB,3.3597E+00_JPRB/)  
+KBO( :,25,10) = (/&
+ & 2.1126E+00_JPRB,2.3241E+00_JPRB,2.5221E+00_JPRB,2.7073E+00_JPRB,2.8751E+00_JPRB/)  
+KBO( :,26,10) = (/&
+ & 1.8249E+00_JPRB,2.0037E+00_JPRB,2.1706E+00_JPRB,2.3266E+00_JPRB,2.4674E+00_JPRB/)  
+KBO( :,27,10) = (/&
+ & 1.5746E+00_JPRB,1.7247E+00_JPRB,1.8648E+00_JPRB,1.9941E+00_JPRB,2.1217E+00_JPRB/)  
+KBO( :,28,10) = (/&
+ & 1.3617E+00_JPRB,1.4866E+00_JPRB,1.6031E+00_JPRB,1.7154E+00_JPRB,1.8338E+00_JPRB/)  
+KBO( :,29,10) = (/&
+ & 1.1807E+00_JPRB,1.2866E+00_JPRB,1.3847E+00_JPRB,1.4869E+00_JPRB,1.6014E+00_JPRB/)  
+KBO( :,30,10) = (/&
+ & 1.0269E+00_JPRB,1.1156E+00_JPRB,1.2031E+00_JPRB,1.3007E+00_JPRB,1.4104E+00_JPRB/)  
+KBO( :,31,10) = (/&
+ & 8.9671E-01_JPRB,9.7234E-01_JPRB,1.0534E+00_JPRB,1.1474E+00_JPRB,1.2536E+00_JPRB/)  
+KBO( :,32,10) = (/&
+ & 7.8677E-01_JPRB,8.5519E-01_JPRB,9.3281E-01_JPRB,1.0217E+00_JPRB,1.1241E+00_JPRB/)  
+KBO( :,33,10) = (/&
+ & 6.9580E-01_JPRB,7.5947E-01_JPRB,8.3338E-01_JPRB,9.2124E-01_JPRB,1.0172E+00_JPRB/)  
+KBO( :,34,10) = (/&
+ & 6.2020E-01_JPRB,6.7933E-01_JPRB,7.4919E-01_JPRB,8.3240E-01_JPRB,9.2556E-01_JPRB/)  
+KBO( :,35,10) = (/&
+ & 5.5258E-01_JPRB,6.0746E-01_JPRB,6.7338E-01_JPRB,7.4935E-01_JPRB,8.3904E-01_JPRB/)  
+KBO( :,36,10) = (/&
+ & 4.9155E-01_JPRB,5.4163E-01_JPRB,6.0187E-01_JPRB,6.7186E-01_JPRB,7.5578E-01_JPRB/)  
+KBO( :,37,10) = (/&
+ & 4.3530E-01_JPRB,4.8026E-01_JPRB,5.3386E-01_JPRB,5.9737E-01_JPRB,6.7325E-01_JPRB/)  
+KBO( :,38,10) = (/&
+ & 3.8752E-01_JPRB,4.2820E-01_JPRB,4.7540E-01_JPRB,5.3327E-01_JPRB,6.0315E-01_JPRB/)  
+KBO( :,39,10) = (/&
+ & 3.4711E-01_JPRB,3.8416E-01_JPRB,4.2683E-01_JPRB,4.7819E-01_JPRB,5.4308E-01_JPRB/)  
+KBO( :,40,10) = (/&
+ & 3.1156E-01_JPRB,3.4469E-01_JPRB,3.8303E-01_JPRB,4.2846E-01_JPRB,4.8625E-01_JPRB/)  
+KBO( :,41,10) = (/&
+ & 2.8072E-01_JPRB,3.1142E-01_JPRB,3.4605E-01_JPRB,3.8706E-01_JPRB,4.3793E-01_JPRB/)  
+KBO( :,42,10) = (/&
+ & 2.5421E-01_JPRB,2.8301E-01_JPRB,3.1501E-01_JPRB,3.5201E-01_JPRB,3.9774E-01_JPRB/)  
+KBO( :,43,10) = (/&
+ & 2.3024E-01_JPRB,2.5750E-01_JPRB,2.8768E-01_JPRB,3.2168E-01_JPRB,3.6246E-01_JPRB/)  
+KBO( :,44,10) = (/&
+ & 2.0882E-01_JPRB,2.3454E-01_JPRB,2.6350E-01_JPRB,2.9554E-01_JPRB,3.3285E-01_JPRB/)  
+KBO( :,45,10) = (/&
+ & 1.8997E-01_JPRB,2.1445E-01_JPRB,2.4251E-01_JPRB,2.7313E-01_JPRB,3.0812E-01_JPRB/)  
+KBO( :,46,10) = (/&
+ & 1.7240E-01_JPRB,1.9626E-01_JPRB,2.2342E-01_JPRB,2.5309E-01_JPRB,2.8552E-01_JPRB/)  
+KBO( :,47,10) = (/&
+ & 1.5588E-01_JPRB,1.7894E-01_JPRB,2.0504E-01_JPRB,2.3411E-01_JPRB,2.6565E-01_JPRB/)  
+KBO( :,48,10) = (/&
+ & 1.4123E-01_JPRB,1.6344E-01_JPRB,1.8846E-01_JPRB,2.1670E-01_JPRB,2.4797E-01_JPRB/)  
+KBO( :,49,10) = (/&
+ & 1.2790E-01_JPRB,1.4966E-01_JPRB,1.7367E-01_JPRB,2.0107E-01_JPRB,2.3131E-01_JPRB/)  
+KBO( :,50,10) = (/&
+ & 1.1631E-01_JPRB,1.3796E-01_JPRB,1.6097E-01_JPRB,1.8742E-01_JPRB,2.1727E-01_JPRB/)  
+KBO( :,51,10) = (/&
+ & 1.0575E-01_JPRB,1.2733E-01_JPRB,1.4991E-01_JPRB,1.7544E-01_JPRB,2.0476E-01_JPRB/)  
+KBO( :,52,10) = (/&
+ & 9.6036E-02_JPRB,1.1774E-01_JPRB,1.4002E-01_JPRB,1.6481E-01_JPRB,1.9345E-01_JPRB/)  
+KBO( :,53,10) = (/&
+ & 8.7304E-02_JPRB,1.0881E-01_JPRB,1.3107E-01_JPRB,1.5527E-01_JPRB,1.8336E-01_JPRB/)  
+KBO( :,54,10) = (/&
+ & 7.9875E-02_JPRB,1.0109E-01_JPRB,1.2361E-01_JPRB,1.4762E-01_JPRB,1.7497E-01_JPRB/)  
+KBO( :,55,10) = (/&
+ & 7.3300E-02_JPRB,9.4374E-02_JPRB,1.1713E-01_JPRB,1.4114E-01_JPRB,1.6800E-01_JPRB/)  
+KBO( :,56,10) = (/&
+ & 6.7351E-02_JPRB,8.8262E-02_JPRB,1.1132E-01_JPRB,1.3535E-01_JPRB,1.6204E-01_JPRB/)  
+KBO( :,57,10) = (/&
+ & 6.1746E-02_JPRB,8.2507E-02_JPRB,1.0564E-01_JPRB,1.3036E-01_JPRB,1.5696E-01_JPRB/)  
+KBO( :,58,10) = (/&
+ & 5.6716E-02_JPRB,7.7524E-02_JPRB,1.0086E-01_JPRB,1.2629E-01_JPRB,1.5285E-01_JPRB/)  
+KBO( :,59,10) = (/&
+ & 5.5147E-02_JPRB,7.6460E-02_JPRB,1.0042E-01_JPRB,1.2667E-01_JPRB,1.5391E-01_JPRB/)  
+KBO( :,13,11) = (/&
+ & 1.8957E+01_JPRB,2.1748E+01_JPRB,2.4276E+01_JPRB,2.6474E+01_JPRB,2.8529E+01_JPRB/)  
+KBO( :,14,11) = (/&
+ & 1.8017E+01_JPRB,2.0380E+01_JPRB,2.2545E+01_JPRB,2.4583E+01_JPRB,2.6571E+01_JPRB/)  
+KBO( :,15,11) = (/&
+ & 1.6510E+01_JPRB,1.8590E+01_JPRB,2.0569E+01_JPRB,2.2529E+01_JPRB,2.4350E+01_JPRB/)  
+KBO( :,16,11) = (/&
+ & 1.4872E+01_JPRB,1.6760E+01_JPRB,1.8614E+01_JPRB,2.0335E+01_JPRB,2.1912E+01_JPRB/)  
+KBO( :,17,11) = (/&
+ & 1.3279E+01_JPRB,1.4995E+01_JPRB,1.6568E+01_JPRB,1.8053E+01_JPRB,1.9485E+01_JPRB/)  
+KBO( :,18,11) = (/&
+ & 1.1753E+01_JPRB,1.3179E+01_JPRB,1.4580E+01_JPRB,1.5907E+01_JPRB,1.7114E+01_JPRB/)  
+KBO( :,19,11) = (/&
+ & 1.0231E+01_JPRB,1.1513E+01_JPRB,1.2740E+01_JPRB,1.3859E+01_JPRB,1.4884E+01_JPRB/)  
+KBO( :,20,11) = (/&
+ & 8.9451E+00_JPRB,1.0050E+01_JPRB,1.1073E+01_JPRB,1.1999E+01_JPRB,1.2912E+01_JPRB/)  
+KBO( :,21,11) = (/&
+ & 7.7987E+00_JPRB,8.7082E+00_JPRB,9.5625E+00_JPRB,1.0395E+01_JPRB,1.1226E+01_JPRB/)  
+KBO( :,22,11) = (/&
+ & 6.8043E+00_JPRB,7.5642E+00_JPRB,8.3187E+00_JPRB,9.0767E+00_JPRB,9.8017E+00_JPRB/)  
+KBO( :,23,11) = (/&
+ & 5.8859E+00_JPRB,6.5615E+00_JPRB,7.2498E+00_JPRB,7.9149E+00_JPRB,8.5372E+00_JPRB/)  
+KBO( :,24,11) = (/&
+ & 5.1134E+00_JPRB,5.7222E+00_JPRB,6.3175E+00_JPRB,6.8808E+00_JPRB,7.4024E+00_JPRB/)  
+KBO( :,25,11) = (/&
+ & 4.4669E+00_JPRB,4.9952E+00_JPRB,5.4997E+00_JPRB,5.9652E+00_JPRB,6.4204E+00_JPRB/)  
+KBO( :,26,11) = (/&
+ & 3.9220E+00_JPRB,4.3661E+00_JPRB,4.7791E+00_JPRB,5.1780E+00_JPRB,5.5750E+00_JPRB/)  
+KBO( :,27,11) = (/&
+ & 3.4424E+00_JPRB,3.8118E+00_JPRB,4.1663E+00_JPRB,4.5195E+00_JPRB,4.8555E+00_JPRB/)  
+KBO( :,28,11) = (/&
+ & 3.0179E+00_JPRB,3.3339E+00_JPRB,3.6464E+00_JPRB,3.9515E+00_JPRB,4.2432E+00_JPRB/)  
+KBO( :,29,11) = (/&
+ & 2.6509E+00_JPRB,2.9253E+00_JPRB,3.1964E+00_JPRB,3.4617E+00_JPRB,3.7117E+00_JPRB/)  
+KBO( :,30,11) = (/&
+ & 2.3307E+00_JPRB,2.5742E+00_JPRB,2.8104E+00_JPRB,3.0372E+00_JPRB,3.2705E+00_JPRB/)  
+KBO( :,31,11) = (/&
+ & 2.0517E+00_JPRB,2.2676E+00_JPRB,2.4784E+00_JPRB,2.6845E+00_JPRB,2.9117E+00_JPRB/)  
+KBO( :,32,11) = (/&
+ & 1.8127E+00_JPRB,2.0021E+00_JPRB,2.1892E+00_JPRB,2.3933E+00_JPRB,2.6228E+00_JPRB/)  
+KBO( :,33,11) = (/&
+ & 1.6070E+00_JPRB,1.7736E+00_JPRB,1.9506E+00_JPRB,2.1502E+00_JPRB,2.3904E+00_JPRB/)  
+KBO( :,34,11) = (/&
+ & 1.4245E+00_JPRB,1.5783E+00_JPRB,1.7496E+00_JPRB,1.9501E+00_JPRB,2.1946E+00_JPRB/)  
+KBO( :,35,11) = (/&
+ & 1.2566E+00_JPRB,1.4023E+00_JPRB,1.5672E+00_JPRB,1.7720E+00_JPRB,2.0104E+00_JPRB/)  
+KBO( :,36,11) = (/&
+ & 1.1042E+00_JPRB,1.2386E+00_JPRB,1.4007E+00_JPRB,1.6008E+00_JPRB,1.8331E+00_JPRB/)  
+KBO( :,37,11) = (/&
+ & 9.6207E-01_JPRB,1.0840E+00_JPRB,1.2374E+00_JPRB,1.4256E+00_JPRB,1.6496E+00_JPRB/)  
+KBO( :,38,11) = (/&
+ & 8.4455E-01_JPRB,9.5449E-01_JPRB,1.0990E+00_JPRB,1.2750E+00_JPRB,1.4911E+00_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB10:PART5',1,ZHOOK_HANDLE)
+END SUBROUTINE PART5
+
+
+SUBROUTINE PART6
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB10:PART6',0,ZHOOK_HANDLE)
+
+
+KBO( :,39,11) = (/&
+ & 7.4626E-01_JPRB,8.4779E-01_JPRB,9.8068E-01_JPRB,1.1482E+00_JPRB,1.3562E+00_JPRB/)  
+KBO( :,40,11) = (/&
+ & 6.5687E-01_JPRB,7.4696E-01_JPRB,8.6819E-01_JPRB,1.0227E+00_JPRB,1.2185E+00_JPRB/)  
+KBO( :,41,11) = (/&
+ & 5.8461E-01_JPRB,6.6225E-01_JPRB,7.7143E-01_JPRB,9.1274E-01_JPRB,1.0964E+00_JPRB/)  
+KBO( :,42,11) = (/&
+ & 5.2648E-01_JPRB,5.9347E-01_JPRB,6.8980E-01_JPRB,8.2031E-01_JPRB,9.9027E-01_JPRB/)  
+KBO( :,43,11) = (/&
+ & 4.7640E-01_JPRB,5.3372E-01_JPRB,6.1655E-01_JPRB,7.3335E-01_JPRB,8.8864E-01_JPRB/)  
+KBO( :,44,11) = (/&
+ & 4.3331E-01_JPRB,4.8509E-01_JPRB,5.5515E-01_JPRB,6.5677E-01_JPRB,7.9761E-01_JPRB/)  
+KBO( :,45,11) = (/&
+ & 3.9738E-01_JPRB,4.4505E-01_JPRB,5.0582E-01_JPRB,5.9392E-01_JPRB,7.1934E-01_JPRB/)  
+KBO( :,46,11) = (/&
+ & 3.6702E-01_JPRB,4.1005E-01_JPRB,4.6451E-01_JPRB,5.4011E-01_JPRB,6.5038E-01_JPRB/)  
+KBO( :,47,11) = (/&
+ & 3.3839E-01_JPRB,3.7909E-01_JPRB,4.2775E-01_JPRB,4.9390E-01_JPRB,5.8796E-01_JPRB/)  
+KBO( :,48,11) = (/&
+ & 3.1214E-01_JPRB,3.5328E-01_JPRB,3.9721E-01_JPRB,4.5625E-01_JPRB,5.3740E-01_JPRB/)  
+KBO( :,49,11) = (/&
+ & 2.8824E-01_JPRB,3.3045E-01_JPRB,3.7202E-01_JPRB,4.2475E-01_JPRB,4.9686E-01_JPRB/)  
+KBO( :,50,11) = (/&
+ & 2.6700E-01_JPRB,3.0926E-01_JPRB,3.5179E-01_JPRB,3.9959E-01_JPRB,4.6448E-01_JPRB/)  
+KBO( :,51,11) = (/&
+ & 2.4729E-01_JPRB,2.9050E-01_JPRB,3.3394E-01_JPRB,3.7954E-01_JPRB,4.3852E-01_JPRB/)  
+KBO( :,52,11) = (/&
+ & 2.2915E-01_JPRB,2.7331E-01_JPRB,3.1717E-01_JPRB,3.6223E-01_JPRB,4.1654E-01_JPRB/)  
+KBO( :,53,11) = (/&
+ & 2.1197E-01_JPRB,2.5644E-01_JPRB,3.0181E-01_JPRB,3.4764E-01_JPRB,3.9788E-01_JPRB/)  
+KBO( :,54,11) = (/&
+ & 1.9678E-01_JPRB,2.4209E-01_JPRB,2.8845E-01_JPRB,3.3563E-01_JPRB,3.8416E-01_JPRB/)  
+KBO( :,55,11) = (/&
+ & 1.8279E-01_JPRB,2.2890E-01_JPRB,2.7659E-01_JPRB,3.2457E-01_JPRB,3.7331E-01_JPRB/)  
+KBO( :,56,11) = (/&
+ & 1.6948E-01_JPRB,2.1660E-01_JPRB,2.6478E-01_JPRB,3.1391E-01_JPRB,3.6327E-01_JPRB/)  
+KBO( :,57,11) = (/&
+ & 1.5665E-01_JPRB,2.0505E-01_JPRB,2.5378E-01_JPRB,3.0423E-01_JPRB,3.5431E-01_JPRB/)  
+KBO( :,58,11) = (/&
+ & 1.4542E-01_JPRB,1.9412E-01_JPRB,2.4425E-01_JPRB,2.9539E-01_JPRB,3.4713E-01_JPRB/)  
+KBO( :,59,11) = (/&
+ & 1.4258E-01_JPRB,1.9210E-01_JPRB,2.4323E-01_JPRB,2.9526E-01_JPRB,3.4821E-01_JPRB/)  
+KBO( :,13,12) = (/&
+ & 3.3441E+01_JPRB,3.7821E+01_JPRB,4.2136E+01_JPRB,4.6394E+01_JPRB,5.0550E+01_JPRB/)  
+KBO( :,14,12) = (/&
+ & 3.2651E+01_JPRB,3.7152E+01_JPRB,4.1595E+01_JPRB,4.5890E+01_JPRB,4.9879E+01_JPRB/)  
+KBO( :,15,12) = (/&
+ & 3.1800E+01_JPRB,3.6293E+01_JPRB,4.0605E+01_JPRB,4.4452E+01_JPRB,4.7952E+01_JPRB/)  
+KBO( :,16,12) = (/&
+ & 3.0652E+01_JPRB,3.4834E+01_JPRB,3.8488E+01_JPRB,4.1902E+01_JPRB,4.5172E+01_JPRB/)  
+KBO( :,17,12) = (/&
+ & 2.8740E+01_JPRB,3.2239E+01_JPRB,3.5631E+01_JPRB,3.8859E+01_JPRB,4.1888E+01_JPRB/)  
+KBO( :,18,12) = (/&
+ & 2.6152E+01_JPRB,2.9383E+01_JPRB,3.2433E+01_JPRB,3.5444E+01_JPRB,3.8304E+01_JPRB/)  
+KBO( :,19,12) = (/&
+ & 2.3535E+01_JPRB,2.6428E+01_JPRB,2.9253E+01_JPRB,3.1986E+01_JPRB,3.4626E+01_JPRB/)  
+KBO( :,20,12) = (/&
+ & 2.1009E+01_JPRB,2.3665E+01_JPRB,2.6170E+01_JPRB,2.8648E+01_JPRB,3.1009E+01_JPRB/)  
+KBO( :,21,12) = (/&
+ & 1.8666E+01_JPRB,2.0970E+01_JPRB,2.3240E+01_JPRB,2.5449E+01_JPRB,2.7590E+01_JPRB/)  
+KBO( :,22,12) = (/&
+ & 1.6562E+01_JPRB,1.8637E+01_JPRB,2.0680E+01_JPRB,2.2664E+01_JPRB,2.4579E+01_JPRB/)  
+KBO( :,23,12) = (/&
+ & 1.4724E+01_JPRB,1.6583E+01_JPRB,1.8398E+01_JPRB,2.0130E+01_JPRB,2.1853E+01_JPRB/)  
+KBO( :,24,12) = (/&
+ & 1.3115E+01_JPRB,1.4740E+01_JPRB,1.6306E+01_JPRB,1.7839E+01_JPRB,1.9442E+01_JPRB/)  
+KBO( :,25,12) = (/&
+ & 1.1682E+01_JPRB,1.3060E+01_JPRB,1.4446E+01_JPRB,1.5890E+01_JPRB,1.7412E+01_JPRB/)  
+KBO( :,26,12) = (/&
+ & 1.0376E+01_JPRB,1.1606E+01_JPRB,1.2912E+01_JPRB,1.4282E+01_JPRB,1.5708E+01_JPRB/)  
+KBO( :,27,12) = (/&
+ & 9.2264E+00_JPRB,1.0375E+01_JPRB,1.1611E+01_JPRB,1.2892E+01_JPRB,1.4269E+01_JPRB/)  
+KBO( :,28,12) = (/&
+ & 8.2384E+00_JPRB,9.3278E+00_JPRB,1.0501E+01_JPRB,1.1713E+01_JPRB,1.3001E+01_JPRB/)  
+KBO( :,29,12) = (/&
+ & 7.4191E+00_JPRB,8.4528E+00_JPRB,9.5480E+00_JPRB,1.0688E+01_JPRB,1.1930E+01_JPRB/)  
+KBO( :,30,12) = (/&
+ & 6.7411E+00_JPRB,7.6959E+00_JPRB,8.7238E+00_JPRB,9.8332E+00_JPRB,1.1024E+01_JPRB/)  
+KBO( :,31,12) = (/&
+ & 6.1743E+00_JPRB,7.0565E+00_JPRB,8.0433E+00_JPRB,9.1146E+00_JPRB,1.0281E+01_JPRB/)  
+KBO( :,32,12) = (/&
+ & 5.6829E+00_JPRB,6.5368E+00_JPRB,7.4832E+00_JPRB,8.5285E+00_JPRB,9.6975E+00_JPRB/)  
+KBO( :,33,12) = (/&
+ & 5.2696E+00_JPRB,6.1016E+00_JPRB,7.0284E+00_JPRB,8.0819E+00_JPRB,9.2712E+00_JPRB/)  
+KBO( :,34,12) = (/&
+ & 4.9064E+00_JPRB,5.7181E+00_JPRB,6.6470E+00_JPRB,7.7097E+00_JPRB,8.9376E+00_JPRB/)  
+KBO( :,35,12) = (/&
+ & 4.5385E+00_JPRB,5.3339E+00_JPRB,6.2645E+00_JPRB,7.3393E+00_JPRB,8.6167E+00_JPRB/)  
+KBO( :,36,12) = (/&
+ & 4.1592E+00_JPRB,4.9372E+00_JPRB,5.8640E+00_JPRB,6.9463E+00_JPRB,8.2444E+00_JPRB/)  
+KBO( :,37,12) = (/&
+ & 3.7366E+00_JPRB,4.4851E+00_JPRB,5.3891E+00_JPRB,6.4562E+00_JPRB,7.7447E+00_JPRB/)  
+KBO( :,38,12) = (/&
+ & 3.3663E+00_JPRB,4.0921E+00_JPRB,4.9726E+00_JPRB,6.0256E+00_JPRB,7.2966E+00_JPRB/)  
+KBO( :,39,12) = (/&
+ & 3.0524E+00_JPRB,3.7541E+00_JPRB,4.6132E+00_JPRB,5.6531E+00_JPRB,6.9025E+00_JPRB/)  
+KBO( :,40,12) = (/&
+ & 2.7210E+00_JPRB,3.3890E+00_JPRB,4.2060E+00_JPRB,5.2106E+00_JPRB,6.4181E+00_JPRB/)  
+KBO( :,41,12) = (/&
+ & 2.4254E+00_JPRB,3.0563E+00_JPRB,3.8366E+00_JPRB,4.7969E+00_JPRB,5.9597E+00_JPRB/)  
+KBO( :,42,12) = (/&
+ & 2.1679E+00_JPRB,2.7607E+00_JPRB,3.5045E+00_JPRB,4.4213E+00_JPRB,5.5422E+00_JPRB/)  
+KBO( :,43,12) = (/&
+ & 1.9142E+00_JPRB,2.4659E+00_JPRB,3.1656E+00_JPRB,4.0260E+00_JPRB,5.0928E+00_JPRB/)  
+KBO( :,44,12) = (/&
+ & 1.6815E+00_JPRB,2.1897E+00_JPRB,2.8396E+00_JPRB,3.6424E+00_JPRB,4.6457E+00_JPRB/)  
+KBO( :,45,12) = (/&
+ & 1.4779E+00_JPRB,1.9464E+00_JPRB,2.5447E+00_JPRB,3.2950E+00_JPRB,4.2351E+00_JPRB/)  
+KBO( :,46,12) = (/&
+ & 1.2911E+00_JPRB,1.7201E+00_JPRB,2.2670E+00_JPRB,2.9688E+00_JPRB,3.8370E+00_JPRB/)  
+KBO( :,47,12) = (/&
+ & 1.1167E+00_JPRB,1.4998E+00_JPRB,1.9968E+00_JPRB,2.6327E+00_JPRB,3.4335E+00_JPRB/)  
+KBO( :,48,12) = (/&
+ & 9.7000E-01_JPRB,1.3056E+00_JPRB,1.7582E+00_JPRB,2.3318E+00_JPRB,3.0672E+00_JPRB/)  
+KBO( :,49,12) = (/&
+ & 8.4948E-01_JPRB,1.1387E+00_JPRB,1.5440E+00_JPRB,2.0638E+00_JPRB,2.7325E+00_JPRB/)  
+KBO( :,50,12) = (/&
+ & 7.5798E-01_JPRB,1.0046E+00_JPRB,1.3648E+00_JPRB,1.8406E+00_JPRB,2.4475E+00_JPRB/)  
+KBO( :,51,12) = (/&
+ & 6.8725E-01_JPRB,8.9444E-01_JPRB,1.2113E+00_JPRB,1.6439E+00_JPRB,2.1974E+00_JPRB/)  
+KBO( :,52,12) = (/&
+ & 6.3115E-01_JPRB,8.0296E-01_JPRB,1.0776E+00_JPRB,1.4683E+00_JPRB,1.9726E+00_JPRB/)  
+KBO( :,53,12) = (/&
+ & 5.8219E-01_JPRB,7.2999E-01_JPRB,9.6258E-01_JPRB,1.3098E+00_JPRB,1.7704E+00_JPRB/)  
+KBO( :,54,12) = (/&
+ & 5.4205E-01_JPRB,6.7503E-01_JPRB,8.7235E-01_JPRB,1.1796E+00_JPRB,1.6017E+00_JPRB/)  
+KBO( :,55,12) = (/&
+ & 5.0666E-01_JPRB,6.3248E-01_JPRB,8.0079E-01_JPRB,1.0716E+00_JPRB,1.4553E+00_JPRB/)  
+KBO( :,56,12) = (/&
+ & 4.7570E-01_JPRB,5.9469E-01_JPRB,7.4368E-01_JPRB,9.7802E-01_JPRB,1.3247E+00_JPRB/)  
+KBO( :,57,12) = (/&
+ & 4.4744E-01_JPRB,5.6112E-01_JPRB,6.9690E-01_JPRB,8.9836E-01_JPRB,1.2094E+00_JPRB/)  
+KBO( :,58,12) = (/&
+ & 4.2060E-01_JPRB,5.3249E-01_JPRB,6.6124E-01_JPRB,8.3779E-01_JPRB,1.1150E+00_JPRB/)  
+KBO( :,59,12) = (/&
+ & 4.1336E-01_JPRB,5.2583E-01_JPRB,6.5442E-01_JPRB,8.2324E-01_JPRB,1.0875E+00_JPRB/)  
+KBO( :,13,13) = (/&
+ & 6.2911E+01_JPRB,7.0866E+01_JPRB,7.8801E+01_JPRB,8.6317E+01_JPRB,9.3133E+01_JPRB/)  
+KBO( :,14,13) = (/&
+ & 6.4149E+01_JPRB,7.2816E+01_JPRB,8.0994E+01_JPRB,8.8794E+01_JPRB,9.5784E+01_JPRB/)  
+KBO( :,15,13) = (/&
+ & 6.5438E+01_JPRB,7.4262E+01_JPRB,8.2489E+01_JPRB,9.0124E+01_JPRB,9.7424E+01_JPRB/)  
+KBO( :,16,13) = (/&
+ & 6.5590E+01_JPRB,7.4146E+01_JPRB,8.2531E+01_JPRB,9.0209E+01_JPRB,9.7706E+01_JPRB/)  
+KBO( :,17,13) = (/&
+ & 6.4830E+01_JPRB,7.3370E+01_JPRB,8.1573E+01_JPRB,8.9511E+01_JPRB,9.7077E+01_JPRB/)  
+KBO( :,18,13) = (/&
+ & 6.3631E+01_JPRB,7.1937E+01_JPRB,8.0198E+01_JPRB,8.8105E+01_JPRB,9.5322E+01_JPRB/)  
+KBO( :,19,13) = (/&
+ & 6.1647E+01_JPRB,6.9823E+01_JPRB,7.7707E+01_JPRB,8.5203E+01_JPRB,9.2333E+01_JPRB/)  
+KBO( :,20,13) = (/&
+ & 5.9220E+01_JPRB,6.6886E+01_JPRB,7.4459E+01_JPRB,8.1516E+01_JPRB,8.8383E+01_JPRB/)  
+KBO( :,21,13) = (/&
+ & 5.5943E+01_JPRB,6.3222E+01_JPRB,7.0272E+01_JPRB,7.7027E+01_JPRB,8.3664E+01_JPRB/)  
+KBO( :,22,13) = (/&
+ & 5.2530E+01_JPRB,5.9289E+01_JPRB,6.5955E+01_JPRB,7.2675E+01_JPRB,7.9278E+01_JPRB/)  
+KBO( :,23,13) = (/&
+ & 4.8798E+01_JPRB,5.5211E+01_JPRB,6.1705E+01_JPRB,6.8359E+01_JPRB,7.5139E+01_JPRB/)  
+KBO( :,24,13) = (/&
+ & 4.5161E+01_JPRB,5.1397E+01_JPRB,5.7807E+01_JPRB,6.4502E+01_JPRB,7.1268E+01_JPRB/)  
+KBO( :,25,13) = (/&
+ & 4.1926E+01_JPRB,4.8095E+01_JPRB,5.4440E+01_JPRB,6.1093E+01_JPRB,6.7734E+01_JPRB/)  
+KBO( :,26,13) = (/&
+ & 3.9234E+01_JPRB,4.5282E+01_JPRB,5.1559E+01_JPRB,5.8099E+01_JPRB,6.4750E+01_JPRB/)  
+KBO( :,27,13) = (/&
+ & 3.7014E+01_JPRB,4.2942E+01_JPRB,4.9090E+01_JPRB,5.5651E+01_JPRB,6.2419E+01_JPRB/)  
+KBO( :,28,13) = (/&
+ & 3.5158E+01_JPRB,4.0969E+01_JPRB,4.7074E+01_JPRB,5.3764E+01_JPRB,6.0756E+01_JPRB/)  
+KBO( :,29,13) = (/&
+ & 3.3618E+01_JPRB,3.9411E+01_JPRB,4.5654E+01_JPRB,5.2544E+01_JPRB,5.9755E+01_JPRB/)  
+KBO( :,30,13) = (/&
+ & 3.2426E+01_JPRB,3.8339E+01_JPRB,4.4787E+01_JPRB,5.1833E+01_JPRB,5.9294E+01_JPRB/)  
+KBO( :,31,13) = (/&
+ & 3.1684E+01_JPRB,3.7780E+01_JPRB,4.4404E+01_JPRB,5.1653E+01_JPRB,5.9352E+01_JPRB/)  
+KBO( :,32,13) = (/&
+ & 3.1354E+01_JPRB,3.7669E+01_JPRB,4.4512E+01_JPRB,5.1974E+01_JPRB,5.9794E+01_JPRB/)  
+KBO( :,33,13) = (/&
+ & 3.1431E+01_JPRB,3.7960E+01_JPRB,4.5034E+01_JPRB,5.2659E+01_JPRB,6.0610E+01_JPRB/)  
+KBO( :,34,13) = (/&
+ & 3.1647E+01_JPRB,3.8355E+01_JPRB,4.5600E+01_JPRB,5.3397E+01_JPRB,6.1465E+01_JPRB/)  
+KBO( :,35,13) = (/&
+ & 3.1516E+01_JPRB,3.8346E+01_JPRB,4.5688E+01_JPRB,5.3575E+01_JPRB,6.1719E+01_JPRB/)  
+KBO( :,36,13) = (/&
+ & 3.0864E+01_JPRB,3.7754E+01_JPRB,4.5120E+01_JPRB,5.3052E+01_JPRB,6.1227E+01_JPRB/)  
+KBO( :,37,13) = (/&
+ & 2.9388E+01_JPRB,3.6192E+01_JPRB,4.3536E+01_JPRB,5.1439E+01_JPRB,5.9606E+01_JPRB/)  
+KBO( :,38,13) = (/&
+ & 2.7977E+01_JPRB,3.4812E+01_JPRB,4.2002E+01_JPRB,4.9861E+01_JPRB,5.8021E+01_JPRB/)  
+KBO( :,39,13) = (/&
+ & 2.6681E+01_JPRB,3.3428E+01_JPRB,4.0601E+01_JPRB,4.8374E+01_JPRB,5.6514E+01_JPRB/)  
+KBO( :,40,13) = (/&
+ & 2.4843E+01_JPRB,3.1428E+01_JPRB,3.8462E+01_JPRB,4.6157E+01_JPRB,5.4241E+01_JPRB/)  
+KBO( :,41,13) = (/&
+ & 2.3029E+01_JPRB,2.9429E+01_JPRB,3.6318E+01_JPRB,4.3916E+01_JPRB,5.1916E+01_JPRB/)  
+KBO( :,42,13) = (/&
+ & 2.1319E+01_JPRB,2.7525E+01_JPRB,3.4247E+01_JPRB,4.1738E+01_JPRB,4.9652E+01_JPRB/)  
+KBO( :,43,13) = (/&
+ & 1.9398E+01_JPRB,2.5350E+01_JPRB,3.1861E+01_JPRB,3.9204E+01_JPRB,4.6981E+01_JPRB/)  
+KBO( :,44,13) = (/&
+ & 1.7469E+01_JPRB,2.3129E+01_JPRB,2.9410E+01_JPRB,3.6561E+01_JPRB,4.4193E+01_JPRB/)  
+KBO( :,45,13) = (/&
+ & 1.5674E+01_JPRB,2.1025E+01_JPRB,2.7064E+01_JPRB,3.4000E+01_JPRB,4.1469E+01_JPRB/)  
+KBO( :,46,13) = (/&
+ & 1.3910E+01_JPRB,1.8921E+01_JPRB,2.4680E+01_JPRB,3.1376E+01_JPRB,3.8606E+01_JPRB/)  
+KBO( :,47,13) = (/&
+ & 1.2107E+01_JPRB,1.6739E+01_JPRB,2.2157E+01_JPRB,2.8551E+01_JPRB,3.5550E+01_JPRB/)  
+KBO( :,48,13) = (/&
+ & 1.0467E+01_JPRB,1.4727E+01_JPRB,1.9785E+01_JPRB,2.5861E+01_JPRB,3.2591E+01_JPRB/)  
+KBO( :,49,13) = (/&
+ & 8.9964E+00_JPRB,1.2871E+01_JPRB,1.7569E+01_JPRB,2.3303E+01_JPRB,2.9748E+01_JPRB/)  
+KBO( :,50,13) = (/&
+ & 7.7376E+00_JPRB,1.1272E+01_JPRB,1.5632E+01_JPRB,2.1029E+01_JPRB,2.7193E+01_JPRB/)  
+KBO( :,51,13) = (/&
+ & 6.6259E+00_JPRB,9.8500E+00_JPRB,1.3883E+01_JPRB,1.8950E+01_JPRB,2.4815E+01_JPRB/)  
+KBO( :,52,13) = (/&
+ & 5.6271E+00_JPRB,8.5555E+00_JPRB,1.2269E+01_JPRB,1.6994E+01_JPRB,2.2544E+01_JPRB/)  
+KBO( :,53,13) = (/&
+ & 4.7464E+00_JPRB,7.3819E+00_JPRB,1.0780E+01_JPRB,1.5159E+01_JPRB,2.0385E+01_JPRB/)  
+KBO( :,54,13) = (/&
+ & 4.0353E+00_JPRB,6.3931E+00_JPRB,9.5243E+00_JPRB,1.3591E+01_JPRB,1.8508E+01_JPRB/)  
+KBO( :,55,13) = (/&
+ & 3.4415E+00_JPRB,5.5338E+00_JPRB,8.4199E+00_JPRB,1.2188E+01_JPRB,1.6812E+01_JPRB/)  
+KBO( :,56,13) = (/&
+ & 2.9273E+00_JPRB,4.7696E+00_JPRB,7.4019E+00_JPRB,1.0887E+01_JPRB,1.5214E+01_JPRB/)  
+KBO( :,57,13) = (/&
+ & 2.4891E+00_JPRB,4.0887E+00_JPRB,6.4628E+00_JPRB,9.6770E+00_JPRB,1.3714E+01_JPRB/)  
+KBO( :,58,13) = (/&
+ & 2.1365E+00_JPRB,3.5240E+00_JPRB,5.6504E+00_JPRB,8.6145E+00_JPRB,1.2383E+01_JPRB/)  
+KBO( :,59,13) = (/&
+ & 2.0108E+00_JPRB,3.3183E+00_JPRB,5.3478E+00_JPRB,8.2077E+00_JPRB,1.1868E+01_JPRB/)  
+KBO( :,13,14) = (/&
+ & 1.3475E+02_JPRB,1.4982E+02_JPRB,1.6261E+02_JPRB,1.7487E+02_JPRB,1.8519E+02_JPRB/)  
+KBO( :,14,14) = (/&
+ & 1.4605E+02_JPRB,1.6065E+02_JPRB,1.7393E+02_JPRB,1.8700E+02_JPRB,1.9852E+02_JPRB/)  
+KBO( :,15,14) = (/&
+ & 1.5360E+02_JPRB,1.6964E+02_JPRB,1.8495E+02_JPRB,1.9863E+02_JPRB,2.1254E+02_JPRB/)  
+KBO( :,16,14) = (/&
+ & 1.6093E+02_JPRB,1.7838E+02_JPRB,1.9523E+02_JPRB,2.1044E+02_JPRB,2.2565E+02_JPRB/)  
+KBO( :,17,14) = (/&
+ & 1.6793E+02_JPRB,1.8625E+02_JPRB,2.0393E+02_JPRB,2.2116E+02_JPRB,2.3675E+02_JPRB/)  
+KBO( :,18,14) = (/&
+ & 1.7285E+02_JPRB,1.9238E+02_JPRB,2.1120E+02_JPRB,2.2923E+02_JPRB,2.4575E+02_JPRB/)  
+KBO( :,19,14) = (/&
+ & 1.7622E+02_JPRB,1.9702E+02_JPRB,2.1717E+02_JPRB,2.3603E+02_JPRB,2.5402E+02_JPRB/)  
+KBO( :,20,14) = (/&
+ & 1.7911E+02_JPRB,2.0088E+02_JPRB,2.2224E+02_JPRB,2.4259E+02_JPRB,2.6154E+02_JPRB/)  
+KBO( :,21,14) = (/&
+ & 1.8174E+02_JPRB,2.0471E+02_JPRB,2.2728E+02_JPRB,2.4849E+02_JPRB,2.6851E+02_JPRB/)  
+KBO( :,22,14) = (/&
+ & 1.8638E+02_JPRB,2.1059E+02_JPRB,2.3335E+02_JPRB,2.5504E+02_JPRB,2.7546E+02_JPRB/)  
+KBO( :,23,14) = (/&
+ & 1.9098E+02_JPRB,2.1549E+02_JPRB,2.3861E+02_JPRB,2.6061E+02_JPRB,2.8131E+02_JPRB/)  
+KBO( :,24,14) = (/&
+ & 1.9501E+02_JPRB,2.1999E+02_JPRB,2.4340E+02_JPRB,2.6590E+02_JPRB,2.8693E+02_JPRB/)  
+KBO( :,25,14) = (/&
+ & 1.9819E+02_JPRB,2.2397E+02_JPRB,2.4813E+02_JPRB,2.7104E+02_JPRB,2.9266E+02_JPRB/)  
+KBO( :,26,14) = (/&
+ & 2.0202E+02_JPRB,2.2842E+02_JPRB,2.5295E+02_JPRB,2.7657E+02_JPRB,2.9876E+02_JPRB/)  
+KBO( :,27,14) = (/&
+ & 2.0582E+02_JPRB,2.3283E+02_JPRB,2.5800E+02_JPRB,2.8203E+02_JPRB,3.0452E+02_JPRB/)  
+KBO( :,28,14) = (/&
+ & 2.1022E+02_JPRB,2.3779E+02_JPRB,2.6328E+02_JPRB,2.8767E+02_JPRB,3.1024E+02_JPRB/)  
+KBO( :,29,14) = (/&
+ & 2.1520E+02_JPRB,2.4340E+02_JPRB,2.6893E+02_JPRB,2.9346E+02_JPRB,3.1620E+02_JPRB/)  
+KBO( :,30,14) = (/&
+ & 2.2063E+02_JPRB,2.4918E+02_JPRB,2.7482E+02_JPRB,2.9948E+02_JPRB,3.2215E+02_JPRB/)  
+KBO( :,31,14) = (/&
+ & 2.2657E+02_JPRB,2.5536E+02_JPRB,2.8102E+02_JPRB,3.0571E+02_JPRB,3.2824E+02_JPRB/)  
+KBO( :,32,14) = (/&
+ & 2.3308E+02_JPRB,2.6187E+02_JPRB,2.8740E+02_JPRB,3.1199E+02_JPRB,3.3425E+02_JPRB/)  
+KBO( :,33,14) = (/&
+ & 2.3986E+02_JPRB,2.6855E+02_JPRB,2.9383E+02_JPRB,3.1826E+02_JPRB,3.4018E+02_JPRB/)  
+KBO( :,34,14) = (/&
+ & 2.4577E+02_JPRB,2.7438E+02_JPRB,2.9944E+02_JPRB,3.2357E+02_JPRB,3.4520E+02_JPRB/)  
+KBO( :,35,14) = (/&
+ & 2.4905E+02_JPRB,2.7766E+02_JPRB,3.0272E+02_JPRB,3.2667E+02_JPRB,3.4817E+02_JPRB/)  
+KBO( :,36,14) = (/&
+ & 2.4929E+02_JPRB,2.7807E+02_JPRB,3.0324E+02_JPRB,3.2723E+02_JPRB,3.4886E+02_JPRB/)  
+KBO( :,37,14) = (/&
+ & 2.4523E+02_JPRB,2.7437E+02_JPRB,2.9994E+02_JPRB,3.2429E+02_JPRB,3.4633E+02_JPRB/)  
+KBO( :,38,14) = (/&
+ & 2.4091E+02_JPRB,2.6959E+02_JPRB,2.9637E+02_JPRB,3.2107E+02_JPRB,3.4355E+02_JPRB/)  
+KBO( :,39,14) = (/&
+ & 2.3660E+02_JPRB,2.6566E+02_JPRB,2.9263E+02_JPRB,3.1774E+02_JPRB,3.4063E+02_JPRB/)  
+KBO( :,40,14) = (/&
+ & 2.2919E+02_JPRB,2.5872E+02_JPRB,2.8615E+02_JPRB,3.1182E+02_JPRB,3.3536E+02_JPRB/)  
+KBO( :,41,14) = (/&
+ & 2.2133E+02_JPRB,2.5130E+02_JPRB,2.7920E+02_JPRB,3.0540E+02_JPRB,3.2953E+02_JPRB/)  
+KBO( :,42,14) = (/&
+ & 2.1340E+02_JPRB,2.4374E+02_JPRB,2.7207E+02_JPRB,2.9884E+02_JPRB,3.2354E+02_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB10:PART6',1,ZHOOK_HANDLE)
+END SUBROUTINE PART6
+
+
+SUBROUTINE PART7
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB10:PART7',0,ZHOOK_HANDLE)
+
+
+KBO( :,43,14) = (/&
+ & 2.0367E+02_JPRB,2.3438E+02_JPRB,2.6323E+02_JPRB,2.9066E+02_JPRB,3.1594E+02_JPRB/)  
+KBO( :,44,14) = (/&
+ & 1.9308E+02_JPRB,2.2419E+02_JPRB,2.5349E+02_JPRB,2.8159E+02_JPRB,3.0748E+02_JPRB/)  
+KBO( :,45,14) = (/&
+ & 1.8246E+02_JPRB,2.1385E+02_JPRB,2.4356E+02_JPRB,2.7233E+02_JPRB,2.9882E+02_JPRB/)  
+KBO( :,46,14) = (/&
+ & 1.7114E+02_JPRB,2.0272E+02_JPRB,2.3288E+02_JPRB,2.6301E+02_JPRB,2.8969E+02_JPRB/)  
+KBO( :,47,14) = (/&
+ & 1.5855E+02_JPRB,1.9020E+02_JPRB,2.2076E+02_JPRB,2.5136E+02_JPRB,2.7873E+02_JPRB/)  
+KBO( :,48,14) = (/&
+ & 1.4607E+02_JPRB,1.7757E+02_JPRB,2.0844E+02_JPRB,2.3948E+02_JPRB,2.6744E+02_JPRB/)  
+KBO( :,49,14) = (/&
+ & 1.3419E+02_JPRB,1.6492E+02_JPRB,1.9597E+02_JPRB,2.2733E+02_JPRB,2.5595E+02_JPRB/)  
+KBO( :,50,14) = (/&
+ & 1.2262E+02_JPRB,1.5312E+02_JPRB,1.8424E+02_JPRB,2.1573E+02_JPRB,2.4494E+02_JPRB/)  
+KBO( :,51,14) = (/&
+ & 1.1164E+02_JPRB,1.4176E+02_JPRB,1.7283E+02_JPRB,2.0437E+02_JPRB,2.3409E+02_JPRB/)  
+KBO( :,52,14) = (/&
+ & 1.0096E+02_JPRB,1.3046E+02_JPRB,1.6140E+02_JPRB,1.9297E+02_JPRB,2.2308E+02_JPRB/)  
+KBO( :,53,14) = (/&
+ & 9.0551E+01_JPRB,1.1931E+02_JPRB,1.4994E+02_JPRB,1.8152E+02_JPRB,2.1190E+02_JPRB/)  
+KBO( :,54,14) = (/&
+ & 8.1410E+01_JPRB,1.0953E+02_JPRB,1.3953E+02_JPRB,1.7100E+02_JPRB,2.0156E+02_JPRB/)  
+KBO( :,55,14) = (/&
+ & 7.2959E+01_JPRB,1.0018E+02_JPRB,1.2955E+02_JPRB,1.6095E+02_JPRB,1.9160E+02_JPRB/)  
+KBO( :,56,14) = (/&
+ & 6.4819E+01_JPRB,9.1140E+01_JPRB,1.1985E+02_JPRB,1.5098E+02_JPRB,1.8160E+02_JPRB/)  
+KBO( :,57,14) = (/&
+ & 5.7095E+01_JPRB,8.2366E+01_JPRB,1.1034E+02_JPRB,1.4102E+02_JPRB,1.7160E+02_JPRB/)  
+KBO( :,58,14) = (/&
+ & 5.0134E+01_JPRB,7.4344E+01_JPRB,1.0153E+02_JPRB,1.3164E+02_JPRB,1.6214E+02_JPRB/)  
+KBO( :,59,14) = (/&
+ & 4.7470E+01_JPRB,7.1199E+01_JPRB,9.8036E+01_JPRB,1.2792E+02_JPRB,1.5834E+02_JPRB/)  
+KBO( :,13,15) = (/&
+ & 2.3558E+02_JPRB,2.5344E+02_JPRB,2.7628E+02_JPRB,3.0031E+02_JPRB,3.2250E+02_JPRB/)  
+KBO( :,14,15) = (/&
+ & 2.7096E+02_JPRB,2.9360E+02_JPRB,3.2037E+02_JPRB,3.4774E+02_JPRB,3.7218E+02_JPRB/)  
+KBO( :,15,15) = (/&
+ & 3.0994E+02_JPRB,3.4303E+02_JPRB,3.7440E+02_JPRB,3.9962E+02_JPRB,4.2667E+02_JPRB/)  
+KBO( :,16,15) = (/&
+ & 3.5542E+02_JPRB,3.9314E+02_JPRB,4.2812E+02_JPRB,4.5543E+02_JPRB,4.8444E+02_JPRB/)  
+KBO( :,17,15) = (/&
+ & 4.0444E+02_JPRB,4.4528E+02_JPRB,4.7841E+02_JPRB,5.1608E+02_JPRB,5.4481E+02_JPRB/)  
+KBO( :,18,15) = (/&
+ & 4.5639E+02_JPRB,5.0053E+02_JPRB,5.3577E+02_JPRB,5.7622E+02_JPRB,6.0843E+02_JPRB/)  
+KBO( :,19,15) = (/&
+ & 5.0901E+02_JPRB,5.5503E+02_JPRB,5.9764E+02_JPRB,6.3637E+02_JPRB,6.7067E+02_JPRB/)  
+KBO( :,20,15) = (/&
+ & 5.6225E+02_JPRB,6.1156E+02_JPRB,6.5621E+02_JPRB,6.9717E+02_JPRB,7.3299E+02_JPRB/)  
+KBO( :,21,15) = (/&
+ & 6.1341E+02_JPRB,6.6505E+02_JPRB,7.1266E+02_JPRB,7.5506E+02_JPRB,7.9166E+02_JPRB/)  
+KBO( :,22,15) = (/&
+ & 6.6477E+02_JPRB,7.2026E+02_JPRB,7.6733E+02_JPRB,8.1180E+02_JPRB,8.4941E+02_JPRB/)  
+KBO( :,23,15) = (/&
+ & 7.1351E+02_JPRB,7.7168E+02_JPRB,8.2016E+02_JPRB,8.6518E+02_JPRB,9.0001E+02_JPRB/)  
+KBO( :,24,15) = (/&
+ & 7.6064E+02_JPRB,8.2095E+02_JPRB,8.7032E+02_JPRB,9.1500E+02_JPRB,9.4974E+02_JPRB/)  
+KBO( :,25,15) = (/&
+ & 8.0382E+02_JPRB,8.6818E+02_JPRB,9.1637E+02_JPRB,9.6097E+02_JPRB,9.9482E+02_JPRB/)  
+KBO( :,26,15) = (/&
+ & 8.4787E+02_JPRB,9.1216E+02_JPRB,9.5982E+02_JPRB,1.0033E+03_JPRB,1.0355E+03_JPRB/)  
+KBO( :,27,15) = (/&
+ & 8.8962E+02_JPRB,9.5330E+02_JPRB,9.9941E+02_JPRB,1.0412E+03_JPRB,1.0715E+03_JPRB/)  
+KBO( :,28,15) = (/&
+ & 9.2764E+02_JPRB,9.9055E+02_JPRB,1.0352E+03_JPRB,1.0749E+03_JPRB,1.1028E+03_JPRB/)  
+KBO( :,29,15) = (/&
+ & 9.6348E+02_JPRB,1.0242E+03_JPRB,1.0673E+03_JPRB,1.1051E+03_JPRB,1.1303E+03_JPRB/)  
+KBO( :,30,15) = (/&
+ & 9.9639E+02_JPRB,1.0551E+03_JPRB,1.0958E+03_JPRB,1.1311E+03_JPRB,1.1539E+03_JPRB/)  
+KBO( :,31,15) = (/&
+ & 1.0263E+03_JPRB,1.0827E+03_JPRB,1.1208E+03_JPRB,1.1537E+03_JPRB,1.1744E+03_JPRB/)  
+KBO( :,32,15) = (/&
+ & 1.0534E+03_JPRB,1.1075E+03_JPRB,1.1431E+03_JPRB,1.1732E+03_JPRB,1.1921E+03_JPRB/)  
+KBO( :,33,15) = (/&
+ & 1.0779E+03_JPRB,1.1295E+03_JPRB,1.1625E+03_JPRB,1.1902E+03_JPRB,1.2073E+03_JPRB/)  
+KBO( :,34,15) = (/&
+ & 1.0982E+03_JPRB,1.1477E+03_JPRB,1.1785E+03_JPRB,1.2044E+03_JPRB,1.2197E+03_JPRB/)  
+KBO( :,35,15) = (/&
+ & 1.1118E+03_JPRB,1.1603E+03_JPRB,1.1896E+03_JPRB,1.2145E+03_JPRB,1.2287E+03_JPRB/)  
+KBO( :,36,15) = (/&
+ & 1.1191E+03_JPRB,1.1674E+03_JPRB,1.1964E+03_JPRB,1.2211E+03_JPRB,1.2348E+03_JPRB/)  
+KBO( :,37,15) = (/&
+ & 1.1180E+03_JPRB,1.1678E+03_JPRB,1.1978E+03_JPRB,1.2234E+03_JPRB,1.2378E+03_JPRB/)  
+KBO( :,38,15) = (/&
+ & 1.1152E+03_JPRB,1.1644E+03_JPRB,1.1974E+03_JPRB,1.2244E+03_JPRB,1.2396E+03_JPRB/)  
+KBO( :,39,15) = (/&
+ & 1.1116E+03_JPRB,1.1623E+03_JPRB,1.1960E+03_JPRB,1.2249E+03_JPRB,1.2407E+03_JPRB/)  
+KBO( :,40,15) = (/&
+ & 1.1018E+03_JPRB,1.1551E+03_JPRB,1.1910E+03_JPRB,1.2221E+03_JPRB,1.2391E+03_JPRB/)  
+KBO( :,41,15) = (/&
+ & 1.0898E+03_JPRB,1.1461E+03_JPRB,1.1848E+03_JPRB,1.2178E+03_JPRB,1.2366E+03_JPRB/)  
+KBO( :,42,15) = (/&
+ & 1.0762E+03_JPRB,1.1359E+03_JPRB,1.1775E+03_JPRB,1.2126E+03_JPRB,1.2333E+03_JPRB/)  
+KBO( :,43,15) = (/&
+ & 1.0578E+03_JPRB,1.1216E+03_JPRB,1.1668E+03_JPRB,1.2048E+03_JPRB,1.2281E+03_JPRB/)  
+KBO( :,44,15) = (/&
+ & 1.0362E+03_JPRB,1.1044E+03_JPRB,1.1534E+03_JPRB,1.1947E+03_JPRB,1.2212E+03_JPRB/)  
+KBO( :,45,15) = (/&
+ & 1.0130E+03_JPRB,1.0854E+03_JPRB,1.1384E+03_JPRB,1.1833E+03_JPRB,1.2130E+03_JPRB/)  
+KBO( :,46,15) = (/&
+ & 9.8649E+02_JPRB,1.0633E+03_JPRB,1.1204E+03_JPRB,1.1664E+03_JPRB,1.2047E+03_JPRB/)  
+KBO( :,47,15) = (/&
+ & 9.5447E+02_JPRB,1.0363E+03_JPRB,1.0984E+03_JPRB,1.1495E+03_JPRB,1.1920E+03_JPRB/)  
+KBO( :,48,15) = (/&
+ & 9.1939E+02_JPRB,1.0072E+03_JPRB,1.0744E+03_JPRB,1.1303E+03_JPRB,1.1778E+03_JPRB/)  
+KBO( :,49,15) = (/&
+ & 8.8250E+02_JPRB,9.7585E+02_JPRB,1.0483E+03_JPRB,1.1094E+03_JPRB,1.1613E+03_JPRB/)  
+KBO( :,50,15) = (/&
+ & 8.4647E+02_JPRB,9.4477E+02_JPRB,1.0219E+03_JPRB,1.0877E+03_JPRB,1.1441E+03_JPRB/)  
+KBO( :,51,15) = (/&
+ & 8.1004E+02_JPRB,9.1259E+02_JPRB,9.9388E+02_JPRB,1.0648E+03_JPRB,1.1259E+03_JPRB/)  
+KBO( :,52,15) = (/&
+ & 7.7148E+02_JPRB,8.7865E+02_JPRB,9.6436E+02_JPRB,1.0402E+03_JPRB,1.1061E+03_JPRB/)  
+KBO( :,53,15) = (/&
+ & 7.3147E+02_JPRB,8.4306E+02_JPRB,9.3344E+02_JPRB,1.0140E+03_JPRB,1.0845E+03_JPRB/)  
+KBO( :,54,15) = (/&
+ & 6.9315E+02_JPRB,8.0891E+02_JPRB,9.0347E+02_JPRB,9.8850E+02_JPRB,1.0632E+03_JPRB/)  
+KBO( :,55,15) = (/&
+ & 6.5555E+02_JPRB,7.7476E+02_JPRB,8.7174E+02_JPRB,9.6242E+02_JPRB,1.0413E+03_JPRB/)  
+KBO( :,56,15) = (/&
+ & 6.1722E+02_JPRB,7.3961E+02_JPRB,8.4012E+02_JPRB,9.3483E+02_JPRB,1.0182E+03_JPRB/)  
+KBO( :,57,15) = (/&
+ & 5.7836E+02_JPRB,7.0324E+02_JPRB,8.0736E+02_JPRB,9.0611E+02_JPRB,9.9376E+02_JPRB/)  
+KBO( :,58,15) = (/&
+ & 5.4103E+02_JPRB,6.6804E+02_JPRB,7.7522E+02_JPRB,8.7787E+02_JPRB,9.6912E+02_JPRB/)  
+KBO( :,59,15) = (/&
+ & 5.2599E+02_JPRB,6.5379E+02_JPRB,7.6206E+02_JPRB,8.6623E+02_JPRB,9.5904E+02_JPRB/)  
+KBO( :,13,16) = (/&
+ & 3.9649E+02_JPRB,4.3420E+02_JPRB,4.7059E+02_JPRB,5.0417E+02_JPRB,5.3141E+02_JPRB/)  
+KBO( :,14,16) = (/&
+ & 4.8075E+02_JPRB,5.2232E+02_JPRB,5.6418E+02_JPRB,6.0325E+02_JPRB,6.3379E+02_JPRB/)  
+KBO( :,15,16) = (/&
+ & 5.7530E+02_JPRB,6.3245E+02_JPRB,6.8080E+02_JPRB,7.1352E+02_JPRB,7.4957E+02_JPRB/)  
+KBO( :,16,16) = (/&
+ & 6.8549E+02_JPRB,7.5045E+02_JPRB,8.0419E+02_JPRB,8.3617E+02_JPRB,8.7485E+02_JPRB/)  
+KBO( :,17,16) = (/&
+ & 8.0730E+02_JPRB,8.7949E+02_JPRB,9.2029E+02_JPRB,9.8275E+02_JPRB,1.0083E+03_JPRB/)  
+KBO( :,18,16) = (/&
+ & 9.3777E+02_JPRB,1.0165E+03_JPRB,1.0537E+03_JPRB,1.1246E+03_JPRB,1.1558E+03_JPRB/)  
+KBO( :,19,16) = (/&
+ & 1.0735E+03_JPRB,1.1454E+03_JPRB,1.2091E+03_JPRB,1.2558E+03_JPRB,1.3004E+03_JPRB/)  
+KBO( :,20,16) = (/&
+ & 1.2127E+03_JPRB,1.2868E+03_JPRB,1.3551E+03_JPRB,1.3975E+03_JPRB,1.4452E+03_JPRB/)  
+KBO( :,21,16) = (/&
+ & 1.3592E+03_JPRB,1.4356E+03_JPRB,1.5001E+03_JPRB,1.5456E+03_JPRB,1.5923E+03_JPRB/)  
+KBO( :,22,16) = (/&
+ & 1.5169E+03_JPRB,1.5965E+03_JPRB,1.6436E+03_JPRB,1.6935E+03_JPRB,1.7383E+03_JPRB/)  
+KBO( :,23,16) = (/&
+ & 1.6753E+03_JPRB,1.7518E+03_JPRB,1.7912E+03_JPRB,1.8444E+03_JPRB,1.8635E+03_JPRB/)  
+KBO( :,24,16) = (/&
+ & 1.8317E+03_JPRB,1.8968E+03_JPRB,1.9298E+03_JPRB,1.9801E+03_JPRB,1.9925E+03_JPRB/)  
+KBO( :,25,16) = (/&
+ & 1.9704E+03_JPRB,2.0341E+03_JPRB,2.0605E+03_JPRB,2.1039E+03_JPRB,2.1070E+03_JPRB/)  
+KBO( :,26,16) = (/&
+ & 2.1057E+03_JPRB,2.1630E+03_JPRB,2.1799E+03_JPRB,2.2140E+03_JPRB,2.2098E+03_JPRB/)  
+KBO( :,27,16) = (/&
+ & 2.2281E+03_JPRB,2.2763E+03_JPRB,2.2836E+03_JPRB,2.3113E+03_JPRB,2.2992E+03_JPRB/)  
+KBO( :,28,16) = (/&
+ & 2.3345E+03_JPRB,2.3737E+03_JPRB,2.3719E+03_JPRB,2.3935E+03_JPRB,2.3762E+03_JPRB/)  
+KBO( :,29,16) = (/&
+ & 2.4261E+03_JPRB,2.4570E+03_JPRB,2.4461E+03_JPRB,2.4611E+03_JPRB,2.4401E+03_JPRB/)  
+KBO( :,30,16) = (/&
+ & 2.5032E+03_JPRB,2.5264E+03_JPRB,2.5077E+03_JPRB,2.5178E+03_JPRB,2.4915E+03_JPRB/)  
+KBO( :,31,16) = (/&
+ & 2.5677E+03_JPRB,2.5833E+03_JPRB,2.5596E+03_JPRB,2.5650E+03_JPRB,2.5320E+03_JPRB/)  
+KBO( :,32,16) = (/&
+ & 2.6198E+03_JPRB,2.6282E+03_JPRB,2.6001E+03_JPRB,2.6017E+03_JPRB,2.5636E+03_JPRB/)  
+KBO( :,33,16) = (/&
+ & 2.6610E+03_JPRB,2.6631E+03_JPRB,2.6317E+03_JPRB,2.6296E+03_JPRB,2.5876E+03_JPRB/)  
+KBO( :,34,16) = (/&
+ & 2.6943E+03_JPRB,2.6908E+03_JPRB,2.6559E+03_JPRB,2.6515E+03_JPRB,2.6062E+03_JPRB/)  
+KBO( :,35,16) = (/&
+ & 2.7216E+03_JPRB,2.7136E+03_JPRB,2.6772E+03_JPRB,2.6701E+03_JPRB,2.6232E+03_JPRB/)  
+KBO( :,36,16) = (/&
+ & 2.7447E+03_JPRB,2.7345E+03_JPRB,2.6971E+03_JPRB,2.6885E+03_JPRB,2.6393E+03_JPRB/)  
+KBO( :,37,16) = (/&
+ & 2.7663E+03_JPRB,2.7556E+03_JPRB,2.7187E+03_JPRB,2.7089E+03_JPRB,2.6589E+03_JPRB/)  
+KBO( :,38,16) = (/&
+ & 2.7858E+03_JPRB,2.7874E+03_JPRB,2.7366E+03_JPRB,2.7269E+03_JPRB,2.6752E+03_JPRB/)  
+KBO( :,39,16) = (/&
+ & 2.8024E+03_JPRB,2.8038E+03_JPRB,2.7625E+03_JPRB,2.7421E+03_JPRB,2.6902E+03_JPRB/)  
+KBO( :,40,16) = (/&
+ & 2.8177E+03_JPRB,2.8195E+03_JPRB,2.7788E+03_JPRB,2.7591E+03_JPRB,2.7091E+03_JPRB/)  
+KBO( :,41,16) = (/&
+ & 2.8303E+03_JPRB,2.8352E+03_JPRB,2.7935E+03_JPRB,2.7758E+03_JPRB,2.7270E+03_JPRB/)  
+KBO( :,42,16) = (/&
+ & 2.8434E+03_JPRB,2.8482E+03_JPRB,2.8071E+03_JPRB,2.7922E+03_JPRB,2.7438E+03_JPRB/)  
+KBO( :,43,16) = (/&
+ & 2.8548E+03_JPRB,2.8612E+03_JPRB,2.8211E+03_JPRB,2.8082E+03_JPRB,2.7619E+03_JPRB/)  
+KBO( :,44,16) = (/&
+ & 2.8632E+03_JPRB,2.8731E+03_JPRB,2.8359E+03_JPRB,2.8241E+03_JPRB,2.7786E+03_JPRB/)  
+KBO( :,45,16) = (/&
+ & 2.8674E+03_JPRB,2.8836E+03_JPRB,2.8494E+03_JPRB,2.8388E+03_JPRB,2.7940E+03_JPRB/)  
+KBO( :,46,16) = (/&
+ & 2.8677E+03_JPRB,2.8925E+03_JPRB,2.8629E+03_JPRB,2.8226E+03_JPRB,2.8119E+03_JPRB/)  
+KBO( :,47,16) = (/&
+ & 2.8633E+03_JPRB,2.9002E+03_JPRB,2.8748E+03_JPRB,2.8361E+03_JPRB,2.8260E+03_JPRB/)  
+KBO( :,48,16) = (/&
+ & 2.8578E+03_JPRB,2.9030E+03_JPRB,2.8832E+03_JPRB,2.8487E+03_JPRB,2.8389E+03_JPRB/)  
+KBO( :,49,16) = (/&
+ & 2.8403E+03_JPRB,2.9008E+03_JPRB,2.8874E+03_JPRB,2.8585E+03_JPRB,2.8534E+03_JPRB/)  
+KBO( :,50,16) = (/&
+ & 2.8204E+03_JPRB,2.8937E+03_JPRB,2.8907E+03_JPRB,2.8681E+03_JPRB,2.8665E+03_JPRB/)  
+KBO( :,51,16) = (/&
+ & 2.7945E+03_JPRB,2.8834E+03_JPRB,2.8924E+03_JPRB,2.8761E+03_JPRB,2.8762E+03_JPRB/)  
+KBO( :,52,16) = (/&
+ & 2.7647E+03_JPRB,2.8693E+03_JPRB,2.8895E+03_JPRB,2.8805E+03_JPRB,2.8863E+03_JPRB/)  
+KBO( :,53,16) = (/&
+ & 2.7286E+03_JPRB,2.8496E+03_JPRB,2.8822E+03_JPRB,2.8814E+03_JPRB,2.8931E+03_JPRB/)  
+KBO( :,54,16) = (/&
+ & 2.6904E+03_JPRB,2.8223E+03_JPRB,2.8712E+03_JPRB,2.8790E+03_JPRB,2.8991E+03_JPRB/)  
+KBO( :,55,16) = (/&
+ & 2.6470E+03_JPRB,2.7955E+03_JPRB,2.8486E+03_JPRB,2.8755E+03_JPRB,2.9024E+03_JPRB/)  
+KBO( :,56,16) = (/&
+ & 2.5966E+03_JPRB,2.7630E+03_JPRB,2.8315E+03_JPRB,2.8687E+03_JPRB,2.9035E+03_JPRB/)  
+KBO( :,57,16) = (/&
+ & 2.5400E+03_JPRB,2.7247E+03_JPRB,2.8099E+03_JPRB,2.8582E+03_JPRB,2.9024E+03_JPRB/)  
+KBO( :,58,16) = (/&
+ & 2.4795E+03_JPRB,2.6821E+03_JPRB,2.7847E+03_JPRB,2.8441E+03_JPRB,2.8994E+03_JPRB/)  
+KBO( :,59,16) = (/&
+ & 2.4534E+03_JPRB,2.6638E+03_JPRB,2.7735E+03_JPRB,2.8383E+03_JPRB,2.8978E+03_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB10:PART7',1,ZHOOK_HANDLE)
+END SUBROUTINE PART7
+
+
+END SUBROUTINE RRTM_KGB10
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb10.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb10.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb10.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_KGB10
+END SUBROUTINE RRTM_KGB10
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb11.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb11.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb11.F90	(revision 1989)
@@ -0,0 +1,2135 @@
+!OCL SCALAR
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0 
+SUBROUTINE RRTM_KGB11
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 11:  1480-1800 cm-1 (low - H2O; high - H2O)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     R. Elkhatib 12-10-2005 Split for faster and more robust compilation.
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO11, ONLY : KAO     ,KBO     ,SELFREFO    ,FRACREFAO ,FRACREFBO
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB11',0,ZHOOK_HANDLE)
+
+CALL PART1
+CALL PART2
+CALL PART3
+CALL PART4
+CALL PART5
+CALL PART6
+CALL PART7
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB11',1,ZHOOK_HANDLE)
+
+!     -----------------------------------------------------------------
+
+CONTAINS
+
+
+SUBROUTINE PART1
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB11:PART1',0,ZHOOK_HANDLE)
+
+
+FRACREFAO( :) = (/&
+ !     From P = 473 mb.
+ & 0.14152819_JPRB,0.13811260_JPRB,0.14312185_JPRB,0.13705885_JPRB,&
+ & 0.11944738_JPRB,0.10570189_JPRB,0.08866373_JPRB,0.06565409_JPRB,&
+ & 0.04428961_JPRB,0.00481540_JPRB,0.00387058_JPRB,0.00329187_JPRB,&
+ & 0.00238294_JPRB,0.00150971_JPRB,0.00049287_JPRB,0.00005980_JPRB/)  
+
+FRACREFBO( :) = (/&
+ !     From P = 1.17 mb.
+ & 0.10874039_JPRB,0.15164889_JPRB,0.15149839_JPRB,0.14515044_JPRB,&
+ & 0.12486220_JPRB,0.10725017_JPRB,0.08715712_JPRB,0.06463144_JPRB,&
+ & 0.04332319_JPRB,0.00441193_JPRB,0.00393819_JPRB,0.00305960_JPRB,&
+ & 0.00224221_JPRB,0.00145100_JPRB,0.00055586_JPRB,0.00007934_JPRB/)  
+
+!     ------------------------------------------------------------------
+
+!     The array KA contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels > ~100mb and temperatures.  The first
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the corresponding TREF for this  pressure level, 
+!     JT = 2 refers to the temperatureTREF-15, JT = 1 is for TREF-30, 
+!     JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  The second 
+!     index, JP, runs from 1 to 13 and refers to the corresponding 
+!     pressure level in PREF (e.g. JP = 1 is for a pressure of 1053.63 mb).  
+!     The third index, IG, goes from 1 to 16, and tells us which 
+!     g-interval the absorption coefficients are for.
+
+KAO( :, 1, 1) = (/&
+ & 8.3522E-02_JPRB,8.1897E-02_JPRB,8.0229E-02_JPRB,7.8579E-02_JPRB,7.6970E-02_JPRB/)  
+KAO( :, 2, 1) = (/&
+ & 6.8945E-02_JPRB,6.7573E-02_JPRB,6.6206E-02_JPRB,6.4835E-02_JPRB,6.3486E-02_JPRB/)  
+KAO( :, 3, 1) = (/&
+ & 5.7102E-02_JPRB,5.5943E-02_JPRB,5.4810E-02_JPRB,5.3668E-02_JPRB,5.2541E-02_JPRB/)  
+KAO( :, 4, 1) = (/&
+ & 4.7668E-02_JPRB,4.6657E-02_JPRB,4.5724E-02_JPRB,4.4753E-02_JPRB,4.3808E-02_JPRB/)  
+KAO( :, 5, 1) = (/&
+ & 4.0002E-02_JPRB,3.9124E-02_JPRB,3.8315E-02_JPRB,3.7502E-02_JPRB,3.6705E-02_JPRB/)  
+KAO( :, 6, 1) = (/&
+ & 3.3776E-02_JPRB,3.3000E-02_JPRB,3.2282E-02_JPRB,3.1596E-02_JPRB,3.0909E-02_JPRB/)  
+KAO( :, 7, 1) = (/&
+ & 2.8835E-02_JPRB,2.8128E-02_JPRB,2.7478E-02_JPRB,2.6862E-02_JPRB,2.6273E-02_JPRB/)  
+KAO( :, 8, 1) = (/&
+ & 2.5465E-02_JPRB,2.4809E-02_JPRB,2.4170E-02_JPRB,2.3568E-02_JPRB,2.3010E-02_JPRB/)  
+KAO( :, 9, 1) = (/&
+ & 2.7031E-02_JPRB,2.6297E-02_JPRB,2.5569E-02_JPRB,2.4878E-02_JPRB,2.4216E-02_JPRB/)  
+KAO( :,10, 1) = (/&
+ & 2.6955E-02_JPRB,2.7533E-02_JPRB,2.7941E-02_JPRB,2.8269E-02_JPRB,2.8556E-02_JPRB/)  
+KAO( :,11, 1) = (/&
+ & 2.3333E-02_JPRB,2.4026E-02_JPRB,2.4613E-02_JPRB,2.5142E-02_JPRB,2.5601E-02_JPRB/)  
+KAO( :,12, 1) = (/&
+ & 1.9793E-02_JPRB,2.0434E-02_JPRB,2.0982E-02_JPRB,2.1484E-02_JPRB,2.1945E-02_JPRB/)  
+KAO( :,13, 1) = (/&
+ & 1.6447E-02_JPRB,1.6981E-02_JPRB,1.7444E-02_JPRB,1.7868E-02_JPRB,1.8252E-02_JPRB/)  
+KAO( :, 1, 2) = (/&
+ & 1.8412E-01_JPRB,1.7858E-01_JPRB,1.7358E-01_JPRB,1.6916E-01_JPRB,1.6516E-01_JPRB/)  
+KAO( :, 2, 2) = (/&
+ & 1.5257E-01_JPRB,1.4806E-01_JPRB,1.4389E-01_JPRB,1.4020E-01_JPRB,1.3683E-01_JPRB/)  
+KAO( :, 3, 2) = (/&
+ & 1.2692E-01_JPRB,1.2322E-01_JPRB,1.1970E-01_JPRB,1.1654E-01_JPRB,1.1362E-01_JPRB/)  
+KAO( :, 4, 2) = (/&
+ & 1.0642E-01_JPRB,1.0336E-01_JPRB,1.0039E-01_JPRB,9.7683E-02_JPRB,9.5128E-02_JPRB/)  
+KAO( :, 5, 2) = (/&
+ & 8.9523E-02_JPRB,8.6972E-02_JPRB,8.4476E-02_JPRB,8.2142E-02_JPRB,7.9952E-02_JPRB/)  
+KAO( :, 6, 2) = (/&
+ & 7.5430E-02_JPRB,7.3336E-02_JPRB,7.1244E-02_JPRB,6.9235E-02_JPRB,6.7354E-02_JPRB/)  
+KAO( :, 7, 2) = (/&
+ & 6.3775E-02_JPRB,6.2031E-02_JPRB,6.0281E-02_JPRB,5.8573E-02_JPRB,5.6925E-02_JPRB/)  
+KAO( :, 8, 2) = (/&
+ & 5.4827E-02_JPRB,5.3223E-02_JPRB,5.1676E-02_JPRB,5.0200E-02_JPRB,4.8747E-02_JPRB/)  
+KAO( :, 9, 2) = (/&
+ & 5.4030E-02_JPRB,5.1628E-02_JPRB,4.9558E-02_JPRB,4.7732E-02_JPRB,4.6090E-02_JPRB/)  
+KAO( :,10, 2) = (/&
+ & 8.3445E-02_JPRB,7.9695E-02_JPRB,7.5528E-02_JPRB,7.1349E-02_JPRB,6.7427E-02_JPRB/)  
+KAO( :,11, 2) = (/&
+ & 8.4499E-02_JPRB,8.2002E-02_JPRB,7.9684E-02_JPRB,7.7445E-02_JPRB,7.4716E-02_JPRB/)  
+KAO( :,12, 2) = (/&
+ & 7.7856E-02_JPRB,7.5679E-02_JPRB,7.3803E-02_JPRB,7.2014E-02_JPRB,7.0273E-02_JPRB/)  
+KAO( :,13, 2) = (/&
+ & 6.5859E-02_JPRB,6.3974E-02_JPRB,6.2346E-02_JPRB,6.0810E-02_JPRB,5.9317E-02_JPRB/)  
+KAO( :, 1, 3) = (/&
+ & 2.9197E-01_JPRB,2.8442E-01_JPRB,2.7750E-01_JPRB,2.7131E-01_JPRB,2.6568E-01_JPRB/)  
+KAO( :, 2, 3) = (/&
+ & 2.4244E-01_JPRB,2.3605E-01_JPRB,2.3044E-01_JPRB,2.2538E-01_JPRB,2.2082E-01_JPRB/)  
+KAO( :, 3, 3) = (/&
+ & 2.0181E-01_JPRB,1.9632E-01_JPRB,1.9163E-01_JPRB,1.8739E-01_JPRB,1.8374E-01_JPRB/)  
+KAO( :, 4, 3) = (/&
+ & 1.6959E-01_JPRB,1.6475E-01_JPRB,1.6065E-01_JPRB,1.5699E-01_JPRB,1.5395E-01_JPRB/)  
+KAO( :, 5, 3) = (/&
+ & 1.4314E-01_JPRB,1.3886E-01_JPRB,1.3520E-01_JPRB,1.3204E-01_JPRB,1.2940E-01_JPRB/)  
+KAO( :, 6, 3) = (/&
+ & 1.2136E-01_JPRB,1.1746E-01_JPRB,1.1417E-01_JPRB,1.1138E-01_JPRB,1.0905E-01_JPRB/)  
+KAO( :, 7, 3) = (/&
+ & 1.0338E-01_JPRB,9.9815E-02_JPRB,9.6778E-02_JPRB,9.4240E-02_JPRB,9.2133E-02_JPRB/)  
+KAO( :, 8, 3) = (/&
+ & 8.9213E-02_JPRB,8.5864E-02_JPRB,8.2965E-02_JPRB,8.0544E-02_JPRB,7.8544E-02_JPRB/)  
+KAO( :, 9, 3) = (/&
+ & 8.5385E-02_JPRB,8.1609E-02_JPRB,7.8239E-02_JPRB,7.5298E-02_JPRB,7.2804E-02_JPRB/)  
+KAO( :,10, 3) = (/&
+ & 1.2007E-01_JPRB,1.1056E-01_JPRB,1.0332E-01_JPRB,9.7549E-02_JPRB,9.2699E-02_JPRB/)  
+KAO( :,11, 3) = (/&
+ & 1.4027E-01_JPRB,1.2871E-01_JPRB,1.1832E-01_JPRB,1.0920E-01_JPRB,1.0190E-01_JPRB/)  
+KAO( :,12, 3) = (/&
+ & 1.3635E-01_JPRB,1.2627E-01_JPRB,1.1647E-01_JPRB,1.0761E-01_JPRB,9.9760E-02_JPRB/)  
+KAO( :,13, 3) = (/&
+ & 1.1578E-01_JPRB,1.0716E-01_JPRB,9.8794E-02_JPRB,9.1233E-02_JPRB,8.4550E-02_JPRB/)  
+KAO( :, 1, 4) = (/&
+ & 4.8086E-01_JPRB,4.7132E-01_JPRB,4.6205E-01_JPRB,4.5354E-01_JPRB,4.4595E-01_JPRB/)  
+KAO( :, 2, 4) = (/&
+ & 4.0074E-01_JPRB,3.9253E-01_JPRB,3.8477E-01_JPRB,3.7758E-01_JPRB,3.7132E-01_JPRB/)  
+KAO( :, 3, 4) = (/&
+ & 3.3455E-01_JPRB,3.2760E-01_JPRB,3.2088E-01_JPRB,3.1483E-01_JPRB,3.0965E-01_JPRB/)  
+KAO( :, 4, 4) = (/&
+ & 2.8170E-01_JPRB,2.7587E-01_JPRB,2.7011E-01_JPRB,2.6499E-01_JPRB,2.6048E-01_JPRB/)  
+KAO( :, 5, 4) = (/&
+ & 2.3795E-01_JPRB,2.3301E-01_JPRB,2.2814E-01_JPRB,2.2368E-01_JPRB,2.1976E-01_JPRB/)  
+KAO( :, 6, 4) = (/&
+ & 2.0113E-01_JPRB,1.9701E-01_JPRB,1.9292E-01_JPRB,1.8907E-01_JPRB,1.8557E-01_JPRB/)  
+KAO( :, 7, 4) = (/&
+ & 1.7006E-01_JPRB,1.6661E-01_JPRB,1.6317E-01_JPRB,1.5986E-01_JPRB,1.5679E-01_JPRB/)  
+KAO( :, 8, 4) = (/&
+ & 1.4477E-01_JPRB,1.4172E-01_JPRB,1.3877E-01_JPRB,1.3586E-01_JPRB,1.3312E-01_JPRB/)  
+KAO( :, 9, 4) = (/&
+ & 1.3199E-01_JPRB,1.2821E-01_JPRB,1.2474E-01_JPRB,1.2152E-01_JPRB,1.1855E-01_JPRB/)  
+KAO( :,10, 4) = (/&
+ & 1.6601E-01_JPRB,1.5603E-01_JPRB,1.4717E-01_JPRB,1.3948E-01_JPRB,1.3292E-01_JPRB/)  
+KAO( :,11, 4) = (/&
+ & 1.7889E-01_JPRB,1.6649E-01_JPRB,1.5552E-01_JPRB,1.4618E-01_JPRB,1.3804E-01_JPRB/)  
+KAO( :,12, 4) = (/&
+ & 1.7280E-01_JPRB,1.5923E-01_JPRB,1.4821E-01_JPRB,1.3870E-01_JPRB,1.3058E-01_JPRB/)  
+KAO( :,13, 4) = (/&
+ & 1.4697E-01_JPRB,1.3536E-01_JPRB,1.2589E-01_JPRB,1.1779E-01_JPRB,1.1082E-01_JPRB/)  
+KAO( :, 1, 5) = (/&
+ & 8.2847E-01_JPRB,8.1706E-01_JPRB,8.0603E-01_JPRB,7.9489E-01_JPRB,7.8340E-01_JPRB/)  
+KAO( :, 2, 5) = (/&
+ & 6.9594E-01_JPRB,6.8698E-01_JPRB,6.7809E-01_JPRB,6.6891E-01_JPRB,6.5974E-01_JPRB/)  
+KAO( :, 3, 5) = (/&
+ & 5.8279E-01_JPRB,5.7548E-01_JPRB,5.6796E-01_JPRB,5.6025E-01_JPRB,5.5235E-01_JPRB/)  
+KAO( :, 4, 5) = (/&
+ & 4.9038E-01_JPRB,4.8412E-01_JPRB,4.7772E-01_JPRB,4.7110E-01_JPRB,4.6460E-01_JPRB/)  
+KAO( :, 5, 5) = (/&
+ & 4.1378E-01_JPRB,4.0847E-01_JPRB,4.0311E-01_JPRB,3.9759E-01_JPRB,3.9230E-01_JPRB/)  
+KAO( :, 6, 5) = (/&
+ & 3.4972E-01_JPRB,3.4519E-01_JPRB,3.4085E-01_JPRB,3.3630E-01_JPRB,3.3209E-01_JPRB/)  
+KAO( :, 7, 5) = (/&
+ & 2.9568E-01_JPRB,2.9179E-01_JPRB,2.8827E-01_JPRB,2.8454E-01_JPRB,2.8107E-01_JPRB/)  
+KAO( :, 8, 5) = (/&
+ & 2.5092E-01_JPRB,2.4746E-01_JPRB,2.4424E-01_JPRB,2.4103E-01_JPRB,2.3811E-01_JPRB/)  
+KAO( :, 9, 5) = (/&
+ & 2.2123E-01_JPRB,2.1714E-01_JPRB,2.1336E-01_JPRB,2.0980E-01_JPRB,2.0674E-01_JPRB/)  
+KAO( :,10, 5) = (/&
+ & 2.3952E-01_JPRB,2.2844E-01_JPRB,2.1930E-01_JPRB,2.1169E-01_JPRB,2.0553E-01_JPRB/)  
+KAO( :,11, 5) = (/&
+ & 2.4873E-01_JPRB,2.3190E-01_JPRB,2.1857E-01_JPRB,2.0774E-01_JPRB,1.9916E-01_JPRB/)  
+KAO( :,12, 5) = (/&
+ & 2.3605E-01_JPRB,2.1832E-01_JPRB,2.0375E-01_JPRB,1.9219E-01_JPRB,1.8288E-01_JPRB/)  
+KAO( :,13, 5) = (/&
+ & 2.0036E-01_JPRB,1.8536E-01_JPRB,1.7319E-01_JPRB,1.6345E-01_JPRB,1.5566E-01_JPRB/)  
+KAO( :, 1, 6) = (/&
+ & 1.6289E+00_JPRB,1.6053E+00_JPRB,1.5817E+00_JPRB,1.5589E+00_JPRB,1.5373E+00_JPRB/)  
+KAO( :, 2, 6) = (/&
+ & 1.3936E+00_JPRB,1.3733E+00_JPRB,1.3535E+00_JPRB,1.3341E+00_JPRB,1.3148E+00_JPRB/)  
+KAO( :, 3, 6) = (/&
+ & 1.1841E+00_JPRB,1.1673E+00_JPRB,1.1508E+00_JPRB,1.1346E+00_JPRB,1.1181E+00_JPRB/)  
+KAO( :, 4, 6) = (/&
+ & 1.0080E+00_JPRB,9.9445E-01_JPRB,9.8106E-01_JPRB,9.6749E-01_JPRB,9.5407E-01_JPRB/)  
+KAO( :, 5, 6) = (/&
+ & 8.5742E-01_JPRB,8.4664E-01_JPRB,8.3551E-01_JPRB,8.2440E-01_JPRB,8.1340E-01_JPRB/)  
+KAO( :, 6, 6) = (/&
+ & 7.2750E-01_JPRB,7.1904E-01_JPRB,7.0964E-01_JPRB,7.0043E-01_JPRB,6.9094E-01_JPRB/)  
+KAO( :, 7, 6) = (/&
+ & 6.1594E-01_JPRB,6.0900E-01_JPRB,6.0116E-01_JPRB,5.9327E-01_JPRB,5.8510E-01_JPRB/)  
+KAO( :, 8, 6) = (/&
+ & 5.2157E-01_JPRB,5.1588E-01_JPRB,5.0935E-01_JPRB,5.0256E-01_JPRB,4.9566E-01_JPRB/)  
+KAO( :, 9, 6) = (/&
+ & 4.4895E-01_JPRB,4.4354E-01_JPRB,4.3759E-01_JPRB,4.3150E-01_JPRB,4.2532E-01_JPRB/)  
+KAO( :,10, 6) = (/&
+ & 4.2442E-01_JPRB,4.1504E-01_JPRB,4.0636E-01_JPRB,3.9814E-01_JPRB,3.9006E-01_JPRB/)  
+KAO( :,11, 6) = (/&
+ & 3.9535E-01_JPRB,3.8239E-01_JPRB,3.7132E-01_JPRB,3.6140E-01_JPRB,3.5225E-01_JPRB/)  
+KAO( :,12, 6) = (/&
+ & 3.5520E-01_JPRB,3.4132E-01_JPRB,3.2979E-01_JPRB,3.1961E-01_JPRB,3.1084E-01_JPRB/)  
+KAO( :,13, 6) = (/&
+ & 3.0031E-01_JPRB,2.8876E-01_JPRB,2.7891E-01_JPRB,2.7050E-01_JPRB,2.6328E-01_JPRB/)  
+KAO( :, 1, 7) = (/&
+ & 3.4694E+00_JPRB,3.4297E+00_JPRB,3.3904E+00_JPRB,3.3487E+00_JPRB,3.3017E+00_JPRB/)  
+KAO( :, 2, 7) = (/&
+ & 3.0726E+00_JPRB,3.0336E+00_JPRB,2.9923E+00_JPRB,2.9489E+00_JPRB,2.9055E+00_JPRB/)  
+KAO( :, 3, 7) = (/&
+ & 2.6840E+00_JPRB,2.6467E+00_JPRB,2.6074E+00_JPRB,2.5687E+00_JPRB,2.5313E+00_JPRB/)  
+KAO( :, 4, 7) = (/&
+ & 2.3349E+00_JPRB,2.3013E+00_JPRB,2.2673E+00_JPRB,2.2337E+00_JPRB,2.2014E+00_JPRB/)  
+KAO( :, 5, 7) = (/&
+ & 2.0215E+00_JPRB,1.9929E+00_JPRB,1.9642E+00_JPRB,1.9357E+00_JPRB,1.9075E+00_JPRB/)  
+KAO( :, 6, 7) = (/&
+ & 1.7423E+00_JPRB,1.7184E+00_JPRB,1.6935E+00_JPRB,1.6697E+00_JPRB,1.6459E+00_JPRB/)  
+KAO( :, 7, 7) = (/&
+ & 1.4935E+00_JPRB,1.4730E+00_JPRB,1.4523E+00_JPRB,1.4325E+00_JPRB,1.4131E+00_JPRB/)  
+KAO( :, 8, 7) = (/&
+ & 1.2741E+00_JPRB,1.2566E+00_JPRB,1.2398E+00_JPRB,1.2241E+00_JPRB,1.2075E+00_JPRB/)  
+KAO( :, 9, 7) = (/&
+ & 1.0910E+00_JPRB,1.0756E+00_JPRB,1.0611E+00_JPRB,1.0471E+00_JPRB,1.0328E+00_JPRB/)  
+KAO( :,10, 7) = (/&
+ & 9.6869E-01_JPRB,9.5109E-01_JPRB,9.3551E-01_JPRB,9.2022E-01_JPRB,9.0558E-01_JPRB/)  
+KAO( :,11, 7) = (/&
+ & 8.5022E-01_JPRB,8.3262E-01_JPRB,8.1646E-01_JPRB,8.0094E-01_JPRB,7.8632E-01_JPRB/)  
+KAO( :,12, 7) = (/&
+ & 7.3620E-01_JPRB,7.1934E-01_JPRB,7.0369E-01_JPRB,6.8927E-01_JPRB,6.7565E-01_JPRB/)  
+KAO( :,13, 7) = (/&
+ & 6.2075E-01_JPRB,6.0642E-01_JPRB,5.9315E-01_JPRB,5.8082E-01_JPRB,5.6896E-01_JPRB/)  
+KAO( :, 1, 8) = (/&
+ & 7.9943E+00_JPRB,7.8622E+00_JPRB,7.7337E+00_JPRB,7.6053E+00_JPRB,7.4825E+00_JPRB/)  
+KAO( :, 2, 8) = (/&
+ & 7.5299E+00_JPRB,7.3990E+00_JPRB,7.2772E+00_JPRB,7.1539E+00_JPRB,7.0340E+00_JPRB/)  
+KAO( :, 3, 8) = (/&
+ & 6.9582E+00_JPRB,6.8392E+00_JPRB,6.7240E+00_JPRB,6.6095E+00_JPRB,6.4993E+00_JPRB/)  
+KAO( :, 4, 8) = (/&
+ & 6.3616E+00_JPRB,6.2560E+00_JPRB,6.1487E+00_JPRB,6.0437E+00_JPRB,5.9411E+00_JPRB/)  
+KAO( :, 5, 8) = (/&
+ & 5.7571E+00_JPRB,5.6594E+00_JPRB,5.5598E+00_JPRB,5.4641E+00_JPRB,5.3662E+00_JPRB/)  
+KAO( :, 6, 8) = (/&
+ & 5.1527E+00_JPRB,5.0625E+00_JPRB,4.9739E+00_JPRB,4.8820E+00_JPRB,4.7886E+00_JPRB/)  
+KAO( :, 7, 8) = (/&
+ & 4.5602E+00_JPRB,4.4806E+00_JPRB,4.3973E+00_JPRB,4.3111E+00_JPRB,4.2273E+00_JPRB/)  
+KAO( :, 8, 8) = (/&
+ & 3.9984E+00_JPRB,3.9261E+00_JPRB,3.8484E+00_JPRB,3.7714E+00_JPRB,3.6990E+00_JPRB/)  
+KAO( :, 9, 8) = (/&
+ & 3.4828E+00_JPRB,3.4160E+00_JPRB,3.3474E+00_JPRB,3.2815E+00_JPRB,3.2194E+00_JPRB/)  
+KAO( :,10, 8) = (/&
+ & 3.0434E+00_JPRB,2.9801E+00_JPRB,2.9179E+00_JPRB,2.8592E+00_JPRB,2.8030E+00_JPRB/)  
+KAO( :,11, 8) = (/&
+ & 2.6134E+00_JPRB,2.5563E+00_JPRB,2.5021E+00_JPRB,2.4506E+00_JPRB,2.4022E+00_JPRB/)  
+KAO( :,12, 8) = (/&
+ & 2.2242E+00_JPRB,2.1754E+00_JPRB,2.1288E+00_JPRB,2.0857E+00_JPRB,2.0457E+00_JPRB/)  
+KAO( :,13, 8) = (/&
+ & 1.8749E+00_JPRB,1.8340E+00_JPRB,1.7958E+00_JPRB,1.7607E+00_JPRB,1.7271E+00_JPRB/)  
+KAO( :, 1, 9) = (/&
+ & 1.8807E+01_JPRB,1.8545E+01_JPRB,1.8312E+01_JPRB,1.8089E+01_JPRB,1.7885E+01_JPRB/)  
+KAO( :, 2, 9) = (/&
+ & 1.9472E+01_JPRB,1.9225E+01_JPRB,1.8970E+01_JPRB,1.8737E+01_JPRB,1.8518E+01_JPRB/)  
+KAO( :, 3, 9) = (/&
+ & 1.9976E+01_JPRB,1.9718E+01_JPRB,1.9452E+01_JPRB,1.9190E+01_JPRB,1.8937E+01_JPRB/)  
+KAO( :, 4, 9) = (/&
+ & 2.0179E+01_JPRB,1.9901E+01_JPRB,1.9617E+01_JPRB,1.9339E+01_JPRB,1.9071E+01_JPRB/)  
+KAO( :, 5, 9) = (/&
+ & 2.0073E+01_JPRB,1.9777E+01_JPRB,1.9491E+01_JPRB,1.9213E+01_JPRB,1.8936E+01_JPRB/)  
+KAO( :, 6, 9) = (/&
+ & 1.9652E+01_JPRB,1.9360E+01_JPRB,1.9080E+01_JPRB,1.8806E+01_JPRB,1.8526E+01_JPRB/)  
+KAO( :, 7, 9) = (/&
+ & 1.8940E+01_JPRB,1.8655E+01_JPRB,1.8384E+01_JPRB,1.8113E+01_JPRB,1.7820E+01_JPRB/)  
+KAO( :, 8, 9) = (/&
+ & 1.7954E+01_JPRB,1.7679E+01_JPRB,1.7419E+01_JPRB,1.7144E+01_JPRB,1.6856E+01_JPRB/)  
+KAO( :, 9, 9) = (/&
+ & 1.6744E+01_JPRB,1.6495E+01_JPRB,1.6235E+01_JPRB,1.5966E+01_JPRB,1.5690E+01_JPRB/)  
+KAO( :,10, 9) = (/&
+ & 1.5389E+01_JPRB,1.5156E+01_JPRB,1.4910E+01_JPRB,1.4661E+01_JPRB,1.4409E+01_JPRB/)  
+KAO( :,11, 9) = (/&
+ & 1.3852E+01_JPRB,1.3629E+01_JPRB,1.3408E+01_JPRB,1.3185E+01_JPRB,1.2963E+01_JPRB/)  
+KAO( :,12, 9) = (/&
+ & 1.2299E+01_JPRB,1.2107E+01_JPRB,1.1912E+01_JPRB,1.1717E+01_JPRB,1.1509E+01_JPRB/)  
+KAO( :,13, 9) = (/&
+ & 1.0790E+01_JPRB,1.0623E+01_JPRB,1.0457E+01_JPRB,1.0277E+01_JPRB,1.0096E+01_JPRB/)  
+KAO( :, 1,10) = (/&
+ & 3.4330E+01_JPRB,3.3765E+01_JPRB,3.3237E+01_JPRB,3.2695E+01_JPRB,3.2149E+01_JPRB/)  
+KAO( :, 2,10) = (/&
+ & 3.6844E+01_JPRB,3.6202E+01_JPRB,3.5649E+01_JPRB,3.5225E+01_JPRB,3.4890E+01_JPRB/)  
+KAO( :, 3,10) = (/&
+ & 3.9801E+01_JPRB,3.9093E+01_JPRB,3.8604E+01_JPRB,3.8270E+01_JPRB,3.7931E+01_JPRB/)  
+KAO( :, 4,10) = (/&
+ & 4.2629E+01_JPRB,4.2009E+01_JPRB,4.1641E+01_JPRB,4.1207E+01_JPRB,4.0730E+01_JPRB/)  
+KAO( :, 5,10) = (/&
+ & 4.5222E+01_JPRB,4.4631E+01_JPRB,4.4212E+01_JPRB,4.3567E+01_JPRB,4.2975E+01_JPRB/)  
+KAO( :, 6,10) = (/&
+ & 4.7625E+01_JPRB,4.7023E+01_JPRB,4.6428E+01_JPRB,4.5641E+01_JPRB,4.5059E+01_JPRB/)  
+KAO( :, 7,10) = (/&
+ & 4.9512E+01_JPRB,4.8922E+01_JPRB,4.8261E+01_JPRB,4.7488E+01_JPRB,4.7086E+01_JPRB/)  
+KAO( :, 8,10) = (/&
+ & 5.0685E+01_JPRB,5.0115E+01_JPRB,4.9437E+01_JPRB,4.8806E+01_JPRB,4.8343E+01_JPRB/)  
+KAO( :, 9,10) = (/&
+ & 5.1127E+01_JPRB,5.0594E+01_JPRB,4.9931E+01_JPRB,4.9312E+01_JPRB,4.8711E+01_JPRB/)  
+KAO( :,10,10) = (/&
+ & 5.0693E+01_JPRB,5.0048E+01_JPRB,4.9328E+01_JPRB,4.8631E+01_JPRB,4.7896E+01_JPRB/)  
+KAO( :,11,10) = (/&
+ & 4.8604E+01_JPRB,4.7864E+01_JPRB,4.7094E+01_JPRB,4.6287E+01_JPRB,4.5518E+01_JPRB/)  
+KAO( :,12,10) = (/&
+ & 4.5443E+01_JPRB,4.4681E+01_JPRB,4.3926E+01_JPRB,4.3210E+01_JPRB,4.2649E+01_JPRB/)  
+KAO( :,13,10) = (/&
+ & 4.1744E+01_JPRB,4.1045E+01_JPRB,4.0400E+01_JPRB,3.9894E+01_JPRB,3.9431E+01_JPRB/)  
+KAO( :, 1,11) = (/&
+ & 4.2365E+01_JPRB,4.2019E+01_JPRB,4.1430E+01_JPRB,4.0878E+01_JPRB,4.0399E+01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB11:PART1',1,ZHOOK_HANDLE)
+END SUBROUTINE PART1
+
+
+SUBROUTINE PART2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB11:PART2',0,ZHOOK_HANDLE)
+
+
+KAO( :, 2,11) = (/&
+ & 4.7142E+01_JPRB,4.6442E+01_JPRB,4.5764E+01_JPRB,4.5114E+01_JPRB,4.4407E+01_JPRB/)  
+KAO( :, 3,11) = (/&
+ & 5.1205E+01_JPRB,5.0483E+01_JPRB,4.9649E+01_JPRB,4.8898E+01_JPRB,4.8108E+01_JPRB/)  
+KAO( :, 4,11) = (/&
+ & 5.5163E+01_JPRB,5.4376E+01_JPRB,5.3481E+01_JPRB,5.2648E+01_JPRB,5.2016E+01_JPRB/)  
+KAO( :, 5,11) = (/&
+ & 5.9396E+01_JPRB,5.8482E+01_JPRB,5.7563E+01_JPRB,5.6780E+01_JPRB,5.6221E+01_JPRB/)  
+KAO( :, 6,11) = (/&
+ & 6.3331E+01_JPRB,6.2412E+01_JPRB,6.1450E+01_JPRB,6.0859E+01_JPRB,6.0233E+01_JPRB/)  
+KAO( :, 7,11) = (/&
+ & 6.6545E+01_JPRB,6.5768E+01_JPRB,6.5025E+01_JPRB,6.4467E+01_JPRB,6.3676E+01_JPRB/)  
+KAO( :, 8,11) = (/&
+ & 6.9498E+01_JPRB,6.8933E+01_JPRB,6.8310E+01_JPRB,6.7609E+01_JPRB,6.6704E+01_JPRB/)  
+KAO( :, 9,11) = (/&
+ & 7.1921E+01_JPRB,7.1404E+01_JPRB,7.0826E+01_JPRB,7.0092E+01_JPRB,6.9245E+01_JPRB/)  
+KAO( :,10,11) = (/&
+ & 7.3427E+01_JPRB,7.3002E+01_JPRB,7.2375E+01_JPRB,7.1636E+01_JPRB,7.0858E+01_JPRB/)  
+KAO( :,11,11) = (/&
+ & 7.3760E+01_JPRB,7.3287E+01_JPRB,7.2603E+01_JPRB,7.1801E+01_JPRB,7.0946E+01_JPRB/)  
+KAO( :,12,11) = (/&
+ & 7.2915E+01_JPRB,7.2168E+01_JPRB,7.1245E+01_JPRB,7.0254E+01_JPRB,6.9156E+01_JPRB/)  
+KAO( :,13,11) = (/&
+ & 7.0157E+01_JPRB,6.9120E+01_JPRB,6.8062E+01_JPRB,6.6888E+01_JPRB,6.5831E+01_JPRB/)  
+KAO( :, 1,12) = (/&
+ & 5.0027E+01_JPRB,4.9611E+01_JPRB,4.9300E+01_JPRB,4.8951E+01_JPRB,4.8362E+01_JPRB/)  
+KAO( :, 2,12) = (/&
+ & 5.7937E+01_JPRB,5.7505E+01_JPRB,5.7159E+01_JPRB,5.6651E+01_JPRB,5.5993E+01_JPRB/)  
+KAO( :, 3,12) = (/&
+ & 6.6111E+01_JPRB,6.5700E+01_JPRB,6.5251E+01_JPRB,6.4576E+01_JPRB,6.3894E+01_JPRB/)  
+KAO( :, 4,12) = (/&
+ & 7.3585E+01_JPRB,7.2903E+01_JPRB,7.2232E+01_JPRB,7.1435E+01_JPRB,7.0602E+01_JPRB/)  
+KAO( :, 5,12) = (/&
+ & 7.9953E+01_JPRB,7.9031E+01_JPRB,7.8235E+01_JPRB,7.7242E+01_JPRB,7.6289E+01_JPRB/)  
+KAO( :, 6,12) = (/&
+ & 8.6205E+01_JPRB,8.5051E+01_JPRB,8.4155E+01_JPRB,8.3091E+01_JPRB,8.2068E+01_JPRB/)  
+KAO( :, 7,12) = (/&
+ & 9.2997E+01_JPRB,9.1567E+01_JPRB,9.0372E+01_JPRB,8.9220E+01_JPRB,8.8255E+01_JPRB/)  
+KAO( :, 8,12) = (/&
+ & 9.9753E+01_JPRB,9.8062E+01_JPRB,9.6706E+01_JPRB,9.5557E+01_JPRB,9.4592E+01_JPRB/)  
+KAO( :, 9,12) = (/&
+ & 1.0585E+02_JPRB,1.0395E+02_JPRB,1.0257E+02_JPRB,1.0128E+02_JPRB,1.0041E+02_JPRB/)  
+KAO( :,10,12) = (/&
+ & 1.1079E+02_JPRB,1.0894E+02_JPRB,1.0770E+02_JPRB,1.0659E+02_JPRB,1.0559E+02_JPRB/)  
+KAO( :,11,12) = (/&
+ & 1.1382E+02_JPRB,1.1273E+02_JPRB,1.1179E+02_JPRB,1.1077E+02_JPRB,1.0960E+02_JPRB/)  
+KAO( :,12,12) = (/&
+ & 1.1615E+02_JPRB,1.1562E+02_JPRB,1.1476E+02_JPRB,1.1362E+02_JPRB,1.1239E+02_JPRB/)  
+KAO( :,13,12) = (/&
+ & 1.1766E+02_JPRB,1.1707E+02_JPRB,1.1606E+02_JPRB,1.1493E+02_JPRB,1.1363E+02_JPRB/)  
+KAO( :, 1,13) = (/&
+ & 5.9338E+01_JPRB,5.8766E+01_JPRB,5.8140E+01_JPRB,5.7609E+01_JPRB,5.7193E+01_JPRB/)  
+KAO( :, 2,13) = (/&
+ & 6.9799E+01_JPRB,6.9254E+01_JPRB,6.8563E+01_JPRB,6.7850E+01_JPRB,6.7241E+01_JPRB/)  
+KAO( :, 3,13) = (/&
+ & 8.2129E+01_JPRB,8.1337E+01_JPRB,8.0301E+01_JPRB,7.9572E+01_JPRB,7.8927E+01_JPRB/)  
+KAO( :, 4,13) = (/&
+ & 9.5236E+01_JPRB,9.4396E+01_JPRB,9.3373E+01_JPRB,9.2365E+01_JPRB,9.1463E+01_JPRB/)  
+KAO( :, 5,13) = (/&
+ & 1.0931E+02_JPRB,1.0828E+02_JPRB,1.0716E+02_JPRB,1.0592E+02_JPRB,1.0469E+02_JPRB/)  
+KAO( :, 6,13) = (/&
+ & 1.2326E+02_JPRB,1.2219E+02_JPRB,1.2081E+02_JPRB,1.1929E+02_JPRB,1.1786E+02_JPRB/)  
+KAO( :, 7,13) = (/&
+ & 1.3701E+02_JPRB,1.3559E+02_JPRB,1.3388E+02_JPRB,1.3200E+02_JPRB,1.3026E+02_JPRB/)  
+KAO( :, 8,13) = (/&
+ & 1.5000E+02_JPRB,1.4809E+02_JPRB,1.4591E+02_JPRB,1.4371E+02_JPRB,1.4177E+02_JPRB/)  
+KAO( :, 9,13) = (/&
+ & 1.6256E+02_JPRB,1.6031E+02_JPRB,1.5793E+02_JPRB,1.5565E+02_JPRB,1.5331E+02_JPRB/)  
+KAO( :,10,13) = (/&
+ & 1.7522E+02_JPRB,1.7277E+02_JPRB,1.7005E+02_JPRB,1.6730E+02_JPRB,1.6477E+02_JPRB/)  
+KAO( :,11,13) = (/&
+ & 1.8704E+02_JPRB,1.8360E+02_JPRB,1.8020E+02_JPRB,1.7766E+02_JPRB,1.7538E+02_JPRB/)  
+KAO( :,12,13) = (/&
+ & 1.9721E+02_JPRB,1.9323E+02_JPRB,1.9024E+02_JPRB,1.8798E+02_JPRB,1.8579E+02_JPRB/)  
+KAO( :,13,13) = (/&
+ & 2.0522E+02_JPRB,2.0182E+02_JPRB,1.9928E+02_JPRB,1.9689E+02_JPRB,1.9487E+02_JPRB/)  
+KAO( :, 1,14) = (/&
+ & 6.7502E+01_JPRB,6.6524E+01_JPRB,6.6072E+01_JPRB,6.5802E+01_JPRB,6.5743E+01_JPRB/)  
+KAO( :, 2,14) = (/&
+ & 8.2170E+01_JPRB,8.1149E+01_JPRB,8.0359E+01_JPRB,7.9744E+01_JPRB,7.9317E+01_JPRB/)  
+KAO( :, 3,14) = (/&
+ & 1.0017E+02_JPRB,9.8960E+01_JPRB,9.7919E+01_JPRB,9.6962E+01_JPRB,9.5952E+01_JPRB/)  
+KAO( :, 4,14) = (/&
+ & 1.2011E+02_JPRB,1.1875E+02_JPRB,1.1746E+02_JPRB,1.1624E+02_JPRB,1.1505E+02_JPRB/)  
+KAO( :, 5,14) = (/&
+ & 1.4236E+02_JPRB,1.4034E+02_JPRB,1.3884E+02_JPRB,1.3761E+02_JPRB,1.3626E+02_JPRB/)  
+KAO( :, 6,14) = (/&
+ & 1.6712E+02_JPRB,1.6463E+02_JPRB,1.6306E+02_JPRB,1.6156E+02_JPRB,1.5998E+02_JPRB/)  
+KAO( :, 7,14) = (/&
+ & 1.9406E+02_JPRB,1.9176E+02_JPRB,1.8985E+02_JPRB,1.8810E+02_JPRB,1.8617E+02_JPRB/)  
+KAO( :, 8,14) = (/&
+ & 2.2382E+02_JPRB,2.2149E+02_JPRB,2.1954E+02_JPRB,2.1758E+02_JPRB,2.1540E+02_JPRB/)  
+KAO( :, 9,14) = (/&
+ & 2.5634E+02_JPRB,2.5414E+02_JPRB,2.5166E+02_JPRB,2.4940E+02_JPRB,2.4661E+02_JPRB/)  
+KAO( :,10,14) = (/&
+ & 2.8999E+02_JPRB,2.8771E+02_JPRB,2.8448E+02_JPRB,2.8216E+02_JPRB,2.7875E+02_JPRB/)  
+KAO( :,11,14) = (/&
+ & 3.2226E+02_JPRB,3.1916E+02_JPRB,3.1653E+02_JPRB,3.1272E+02_JPRB,3.0896E+02_JPRB/)  
+KAO( :,12,14) = (/&
+ & 3.5464E+02_JPRB,3.5123E+02_JPRB,3.4726E+02_JPRB,3.4270E+02_JPRB,3.3845E+02_JPRB/)  
+KAO( :,13,14) = (/&
+ & 3.8725E+02_JPRB,3.8309E+02_JPRB,3.7834E+02_JPRB,3.7304E+02_JPRB,3.6820E+02_JPRB/)  
+KAO( :, 1,15) = (/&
+ & 7.8084E+01_JPRB,7.7914E+01_JPRB,7.8402E+01_JPRB,7.8217E+01_JPRB,7.8646E+01_JPRB/)  
+KAO( :, 2,15) = (/&
+ & 9.4779E+01_JPRB,9.4641E+01_JPRB,9.4900E+01_JPRB,9.5560E+01_JPRB,9.6118E+01_JPRB/)  
+KAO( :, 3,15) = (/&
+ & 1.1669E+02_JPRB,1.1613E+02_JPRB,1.1582E+02_JPRB,1.1604E+02_JPRB,1.1741E+02_JPRB/)  
+KAO( :, 4,15) = (/&
+ & 1.4166E+02_JPRB,1.4067E+02_JPRB,1.3938E+02_JPRB,1.3929E+02_JPRB,1.4030E+02_JPRB/)  
+KAO( :, 5,15) = (/&
+ & 1.7200E+02_JPRB,1.6974E+02_JPRB,1.6765E+02_JPRB,1.6701E+02_JPRB,1.6674E+02_JPRB/)  
+KAO( :, 6,15) = (/&
+ & 2.0913E+02_JPRB,2.0570E+02_JPRB,2.0221E+02_JPRB,2.0039E+02_JPRB,1.9903E+02_JPRB/)  
+KAO( :, 7,15) = (/&
+ & 2.5392E+02_JPRB,2.4919E+02_JPRB,2.4443E+02_JPRB,2.4058E+02_JPRB,2.3803E+02_JPRB/)  
+KAO( :, 8,15) = (/&
+ & 3.0711E+02_JPRB,3.0120E+02_JPRB,2.9497E+02_JPRB,2.8940E+02_JPRB,2.8562E+02_JPRB/)  
+KAO( :, 9,15) = (/&
+ & 3.7033E+02_JPRB,3.6170E+02_JPRB,3.5403E+02_JPRB,3.4775E+02_JPRB,3.4171E+02_JPRB/)  
+KAO( :,10,15) = (/&
+ & 4.4192E+02_JPRB,4.3106E+02_JPRB,4.2140E+02_JPRB,4.1427E+02_JPRB,4.0680E+02_JPRB/)  
+KAO( :,11,15) = (/&
+ & 5.1756E+02_JPRB,5.0440E+02_JPRB,4.9429E+02_JPRB,4.8599E+02_JPRB,4.7734E+02_JPRB/)  
+KAO( :,12,15) = (/&
+ & 6.0261E+02_JPRB,5.8732E+02_JPRB,5.7721E+02_JPRB,5.6784E+02_JPRB,5.5802E+02_JPRB/)  
+KAO( :,13,15) = (/&
+ & 6.9467E+02_JPRB,6.8189E+02_JPRB,6.7026E+02_JPRB,6.5869E+02_JPRB,6.4922E+02_JPRB/)  
+KAO( :, 1,16) = (/&
+ & 8.4011E+01_JPRB,8.3820E+01_JPRB,8.3802E+01_JPRB,8.4342E+01_JPRB,8.4737E+01_JPRB/)  
+KAO( :, 2,16) = (/&
+ & 1.0457E+02_JPRB,1.0437E+02_JPRB,1.0452E+02_JPRB,1.0492E+02_JPRB,1.0505E+02_JPRB/)  
+KAO( :, 3,16) = (/&
+ & 1.3081E+02_JPRB,1.3074E+02_JPRB,1.3067E+02_JPRB,1.3085E+02_JPRB,1.3130E+02_JPRB/)  
+KAO( :, 4,16) = (/&
+ & 1.6036E+02_JPRB,1.6101E+02_JPRB,1.6092E+02_JPRB,1.6141E+02_JPRB,1.6148E+02_JPRB/)  
+KAO( :, 5,16) = (/&
+ & 1.9521E+02_JPRB,1.9614E+02_JPRB,1.9659E+02_JPRB,1.9718E+02_JPRB,1.9784E+02_JPRB/)  
+KAO( :, 6,16) = (/&
+ & 2.3599E+02_JPRB,2.3769E+02_JPRB,2.3905E+02_JPRB,2.3984E+02_JPRB,2.4105E+02_JPRB/)  
+KAO( :, 7,16) = (/&
+ & 2.8624E+02_JPRB,2.8792E+02_JPRB,2.8925E+02_JPRB,2.9040E+02_JPRB,2.9197E+02_JPRB/)  
+KAO( :, 8,16) = (/&
+ & 3.4928E+02_JPRB,3.4848E+02_JPRB,3.4810E+02_JPRB,3.5059E+02_JPRB,3.5311E+02_JPRB/)  
+KAO( :, 9,16) = (/&
+ & 4.2722E+02_JPRB,4.2296E+02_JPRB,4.2078E+02_JPRB,4.2340E+02_JPRB,4.2506E+02_JPRB/)  
+KAO( :,10,16) = (/&
+ & 5.2290E+02_JPRB,5.1431E+02_JPRB,5.1021E+02_JPRB,5.0875E+02_JPRB,5.0973E+02_JPRB/)  
+KAO( :,11,16) = (/&
+ & 6.3361E+02_JPRB,6.2265E+02_JPRB,6.1495E+02_JPRB,6.1325E+02_JPRB,6.1231E+02_JPRB/)  
+KAO( :,12,16) = (/&
+ & 7.6899E+02_JPRB,7.5167E+02_JPRB,7.4101E+02_JPRB,7.3718E+02_JPRB,7.3364E+02_JPRB/)  
+KAO( :,13,16) = (/&
+ & 9.2904E+02_JPRB,9.0879E+02_JPRB,8.9032E+02_JPRB,8.8110E+02_JPRB,8.7634E+02_JPRB/)  
+
+!     The array KB contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels < ~100mb and temperatures. The first 
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this pressure 
+!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for
+!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  
+!     The second index, JP, runs from 13 to 59 and refers to the JPth
+!     reference pressure level (see taumol.f for the value of these
+!     pressure levels in mb).  The third index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+
+KBO( :,13, 1) = (/&
+ & 1.6448E-02_JPRB,1.6981E-02_JPRB,1.7447E-02_JPRB,1.7868E-02_JPRB,1.8252E-02_JPRB/)  
+KBO( :,14, 1) = (/&
+ & 1.3791E-02_JPRB,1.4222E-02_JPRB,1.4610E-02_JPRB,1.4952E-02_JPRB,1.5267E-02_JPRB/)  
+KBO( :,15, 1) = (/&
+ & 1.1520E-02_JPRB,1.1865E-02_JPRB,1.2171E-02_JPRB,1.2437E-02_JPRB,1.2693E-02_JPRB/)  
+KBO( :,16, 1) = (/&
+ & 9.5363E-03_JPRB,9.8097E-03_JPRB,1.0040E-02_JPRB,1.0251E-02_JPRB,1.0450E-02_JPRB/)  
+KBO( :,17, 1) = (/&
+ & 7.8780E-03_JPRB,8.0826E-03_JPRB,8.2596E-03_JPRB,8.4216E-03_JPRB,8.5653E-03_JPRB/)  
+KBO( :,18, 1) = (/&
+ & 6.4817E-03_JPRB,6.6351E-03_JPRB,6.7691E-03_JPRB,6.8780E-03_JPRB,6.9825E-03_JPRB/)  
+KBO( :,19, 1) = (/&
+ & 5.3453E-03_JPRB,5.4640E-03_JPRB,5.5554E-03_JPRB,5.6332E-03_JPRB,5.7111E-03_JPRB/)  
+KBO( :,20, 1) = (/&
+ & 4.4040E-03_JPRB,4.4936E-03_JPRB,4.5584E-03_JPRB,4.6182E-03_JPRB,4.6772E-03_JPRB/)  
+KBO( :,21, 1) = (/&
+ & 3.6258E-03_JPRB,3.6901E-03_JPRB,3.7391E-03_JPRB,3.7854E-03_JPRB,3.8304E-03_JPRB/)  
+KBO( :,22, 1) = (/&
+ & 2.9839E-03_JPRB,3.0283E-03_JPRB,3.0657E-03_JPRB,3.1009E-03_JPRB,3.1358E-03_JPRB/)  
+KBO( :,23, 1) = (/&
+ & 2.4521E-03_JPRB,2.4841E-03_JPRB,2.5126E-03_JPRB,2.5397E-03_JPRB,2.5675E-03_JPRB/)  
+KBO( :,24, 1) = (/&
+ & 2.0171E-03_JPRB,2.0411E-03_JPRB,2.0630E-03_JPRB,2.0844E-03_JPRB,2.1071E-03_JPRB/)  
+KBO( :,25, 1) = (/&
+ & 1.6582E-03_JPRB,1.6765E-03_JPRB,1.6934E-03_JPRB,1.7108E-03_JPRB,1.7288E-03_JPRB/)  
+KBO( :,26, 1) = (/&
+ & 1.3630E-03_JPRB,1.3770E-03_JPRB,1.3905E-03_JPRB,1.4049E-03_JPRB,1.4189E-03_JPRB/)  
+KBO( :,27, 1) = (/&
+ & 1.1189E-03_JPRB,1.1298E-03_JPRB,1.1410E-03_JPRB,1.1528E-03_JPRB,1.1640E-03_JPRB/)  
+KBO( :,28, 1) = (/&
+ & 9.1766E-04_JPRB,9.2656E-04_JPRB,9.3588E-04_JPRB,9.4542E-04_JPRB,9.5464E-04_JPRB/)  
+KBO( :,29, 1) = (/&
+ & 7.5009E-04_JPRB,7.5750E-04_JPRB,7.6532E-04_JPRB,7.7307E-04_JPRB,7.8058E-04_JPRB/)  
+KBO( :,30, 1) = (/&
+ & 6.1229E-04_JPRB,6.1848E-04_JPRB,6.2499E-04_JPRB,6.3126E-04_JPRB,6.3737E-04_JPRB/)  
+KBO( :,31, 1) = (/&
+ & 4.9822E-04_JPRB,5.0337E-04_JPRB,5.0876E-04_JPRB,5.1376E-04_JPRB,5.1867E-04_JPRB/)  
+KBO( :,32, 1) = (/&
+ & 4.0576E-04_JPRB,4.1007E-04_JPRB,4.1447E-04_JPRB,4.1853E-04_JPRB,4.2247E-04_JPRB/)  
+KBO( :,33, 1) = (/&
+ & 3.3066E-04_JPRB,3.3431E-04_JPRB,3.3786E-04_JPRB,3.4118E-04_JPRB,3.4427E-04_JPRB/)  
+KBO( :,34, 1) = (/&
+ & 2.7031E-04_JPRB,2.7336E-04_JPRB,2.7627E-04_JPRB,2.7896E-04_JPRB,2.8137E-04_JPRB/)  
+KBO( :,35, 1) = (/&
+ & 2.2093E-04_JPRB,2.2344E-04_JPRB,2.2584E-04_JPRB,2.2800E-04_JPRB,2.2992E-04_JPRB/)  
+KBO( :,36, 1) = (/&
+ & 1.8050E-04_JPRB,1.8257E-04_JPRB,1.8457E-04_JPRB,1.8634E-04_JPRB,1.8790E-04_JPRB/)  
+KBO( :,37, 1) = (/&
+ & 1.4754E-04_JPRB,1.4928E-04_JPRB,1.5098E-04_JPRB,1.5247E-04_JPRB,1.5379E-04_JPRB/)  
+KBO( :,38, 1) = (/&
+ & 1.2055E-04_JPRB,1.2202E-04_JPRB,1.2346E-04_JPRB,1.2473E-04_JPRB,1.2584E-04_JPRB/)  
+KBO( :,39, 1) = (/&
+ & 9.8439E-05_JPRB,9.9693E-05_JPRB,1.0089E-04_JPRB,1.0198E-04_JPRB,1.0292E-04_JPRB/)  
+KBO( :,40, 1) = (/&
+ & 8.0526E-05_JPRB,8.1618E-05_JPRB,8.2621E-05_JPRB,8.3584E-05_JPRB,8.4404E-05_JPRB/)  
+KBO( :,41, 1) = (/&
+ & 6.5872E-05_JPRB,6.6811E-05_JPRB,6.7670E-05_JPRB,6.8504E-05_JPRB,6.9227E-05_JPRB/)  
+KBO( :,42, 1) = (/&
+ & 5.3861E-05_JPRB,5.4663E-05_JPRB,5.5407E-05_JPRB,5.6110E-05_JPRB,5.6761E-05_JPRB/)  
+KBO( :,43, 1) = (/&
+ & 4.4048E-05_JPRB,4.4743E-05_JPRB,4.5396E-05_JPRB,4.6004E-05_JPRB,4.6586E-05_JPRB/)  
+KBO( :,44, 1) = (/&
+ & 3.6000E-05_JPRB,3.6620E-05_JPRB,3.7187E-05_JPRB,3.7726E-05_JPRB,3.8228E-05_JPRB/)  
+KBO( :,45, 1) = (/&
+ & 2.9370E-05_JPRB,2.9944E-05_JPRB,3.0441E-05_JPRB,3.0913E-05_JPRB,3.1356E-05_JPRB/)  
+KBO( :,46, 1) = (/&
+ & 2.3891E-05_JPRB,2.4458E-05_JPRB,2.4903E-05_JPRB,2.5314E-05_JPRB,2.5708E-05_JPRB/)  
+KBO( :,47, 1) = (/&
+ & 1.9404E-05_JPRB,1.9925E-05_JPRB,2.0357E-05_JPRB,2.0722E-05_JPRB,2.1066E-05_JPRB/)  
+KBO( :,48, 1) = (/&
+ & 1.5725E-05_JPRB,1.6197E-05_JPRB,1.6603E-05_JPRB,1.6945E-05_JPRB,1.7248E-05_JPRB/)  
+KBO( :,49, 1) = (/&
+ & 1.2722E-05_JPRB,1.3139E-05_JPRB,1.3505E-05_JPRB,1.3828E-05_JPRB,1.4106E-05_JPRB/)  
+KBO( :,50, 1) = (/&
+ & 1.0301E-05_JPRB,1.0665E-05_JPRB,1.0996E-05_JPRB,1.1280E-05_JPRB,1.1543E-05_JPRB/)  
+KBO( :,51, 1) = (/&
+ & 8.3385E-06_JPRB,8.6603E-06_JPRB,8.9500E-06_JPRB,9.2043E-06_JPRB,9.4349E-06_JPRB/)  
+KBO( :,52, 1) = (/&
+ & 6.7457E-06_JPRB,7.0201E-06_JPRB,7.2750E-06_JPRB,7.5028E-06_JPRB,7.7047E-06_JPRB/)  
+KBO( :,53, 1) = (/&
+ & 5.4538E-06_JPRB,5.6816E-06_JPRB,5.9061E-06_JPRB,6.1054E-06_JPRB,6.2862E-06_JPRB/)  
+KBO( :,54, 1) = (/&
+ & 4.4285E-06_JPRB,4.6181E-06_JPRB,4.8085E-06_JPRB,4.9862E-06_JPRB,5.1448E-06_JPRB/)  
+KBO( :,55, 1) = (/&
+ & 3.6038E-06_JPRB,3.7624E-06_JPRB,3.9229E-06_JPRB,4.0804E-06_JPRB,4.2193E-06_JPRB/)  
+KBO( :,56, 1) = (/&
+ & 2.9326E-06_JPRB,3.0656E-06_JPRB,3.2010E-06_JPRB,3.3368E-06_JPRB,3.4604E-06_JPRB/)  
+KBO( :,57, 1) = (/&
+ & 2.3859E-06_JPRB,2.4983E-06_JPRB,2.6127E-06_JPRB,2.7280E-06_JPRB,2.8384E-06_JPRB/)  
+KBO( :,58, 1) = (/&
+ & 1.9434E-06_JPRB,2.0390E-06_JPRB,2.1360E-06_JPRB,2.2340E-06_JPRB,2.3298E-06_JPRB/)  
+KBO( :,59, 1) = (/&
+ & 1.6040E-06_JPRB,1.6859E-06_JPRB,1.7694E-06_JPRB,1.8537E-06_JPRB,1.9359E-06_JPRB/)  
+KBO( :,13, 2) = (/&
+ & 6.5857E-02_JPRB,6.3975E-02_JPRB,6.2348E-02_JPRB,6.0811E-02_JPRB,5.9318E-02_JPRB/)  
+KBO( :,14, 2) = (/&
+ & 5.5335E-02_JPRB,5.3693E-02_JPRB,5.2240E-02_JPRB,5.0877E-02_JPRB,4.9563E-02_JPRB/)  
+KBO( :,15, 2) = (/&
+ & 4.5552E-02_JPRB,4.4145E-02_JPRB,4.2866E-02_JPRB,4.1679E-02_JPRB,4.0479E-02_JPRB/)  
+KBO( :,16, 2) = (/&
+ & 3.6852E-02_JPRB,3.5658E-02_JPRB,3.4584E-02_JPRB,3.3581E-02_JPRB,3.2436E-02_JPRB/)  
+KBO( :,17, 2) = (/&
+ & 2.9622E-02_JPRB,2.8635E-02_JPRB,2.7748E-02_JPRB,2.6847E-02_JPRB,2.5789E-02_JPRB/)  
+KBO( :,18, 2) = (/&
+ & 2.3577E-02_JPRB,2.2776E-02_JPRB,2.2036E-02_JPRB,2.1181E-02_JPRB,2.0244E-02_JPRB/)  
+KBO( :,19, 2) = (/&
+ & 1.8914E-02_JPRB,1.8260E-02_JPRB,1.7601E-02_JPRB,1.6830E-02_JPRB,1.6029E-02_JPRB/)  
+KBO( :,20, 2) = (/&
+ & 1.5260E-02_JPRB,1.4727E-02_JPRB,1.4133E-02_JPRB,1.3470E-02_JPRB,1.2804E-02_JPRB/)  
+KBO( :,21, 2) = (/&
+ & 1.2334E-02_JPRB,1.1886E-02_JPRB,1.1364E-02_JPRB,1.0806E-02_JPRB,1.0260E-02_JPRB/)  
+KBO( :,22, 2) = (/&
+ & 9.9375E-03_JPRB,9.5457E-03_JPRB,9.0943E-03_JPRB,8.6315E-03_JPRB,8.1875E-03_JPRB/)  
+KBO( :,23, 2) = (/&
+ & 8.0034E-03_JPRB,7.6569E-03_JPRB,7.2757E-03_JPRB,6.8952E-03_JPRB,6.5351E-03_JPRB/)  
+KBO( :,24, 2) = (/&
+ & 6.4644E-03_JPRB,6.1649E-03_JPRB,5.8474E-03_JPRB,5.5363E-03_JPRB,5.2447E-03_JPRB/)  
+KBO( :,25, 2) = (/&
+ & 5.2170E-03_JPRB,4.9615E-03_JPRB,4.6990E-03_JPRB,4.4463E-03_JPRB,4.2118E-03_JPRB/)  
+KBO( :,26, 2) = (/&
+ & 4.2078E-03_JPRB,3.9936E-03_JPRB,3.7782E-03_JPRB,3.5736E-03_JPRB,3.3867E-03_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB11:PART2',1,ZHOOK_HANDLE)
+END SUBROUTINE PART2
+
+
+SUBROUTINE PART3
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB11:PART3',0,ZHOOK_HANDLE)
+
+
+KBO( :,27, 2) = (/&
+ & 3.3923E-03_JPRB,3.2149E-03_JPRB,3.0399E-03_JPRB,2.8755E-03_JPRB,2.7265E-03_JPRB/)  
+KBO( :,28, 2) = (/&
+ & 2.7345E-03_JPRB,2.5888E-03_JPRB,2.4474E-03_JPRB,2.3159E-03_JPRB,2.1973E-03_JPRB/)  
+KBO( :,29, 2) = (/&
+ & 2.1927E-03_JPRB,2.0742E-03_JPRB,1.9609E-03_JPRB,1.8566E-03_JPRB,1.7629E-03_JPRB/)  
+KBO( :,30, 2) = (/&
+ & 1.7534E-03_JPRB,1.6577E-03_JPRB,1.5672E-03_JPRB,1.4849E-03_JPRB,1.4111E-03_JPRB/)  
+KBO( :,31, 2) = (/&
+ & 1.3923E-03_JPRB,1.3158E-03_JPRB,1.2442E-03_JPRB,1.1799E-03_JPRB,1.1222E-03_JPRB/)  
+KBO( :,32, 2) = (/&
+ & 1.1073E-03_JPRB,1.0463E-03_JPRB,9.9006E-04_JPRB,9.3956E-04_JPRB,8.9454E-04_JPRB/)  
+KBO( :,33, 2) = (/&
+ & 8.8168E-04_JPRB,8.3321E-04_JPRB,7.8903E-04_JPRB,7.4943E-04_JPRB,7.1437E-04_JPRB/)  
+KBO( :,34, 2) = (/&
+ & 7.0843E-04_JPRB,6.6985E-04_JPRB,6.3483E-04_JPRB,6.0356E-04_JPRB,5.7597E-04_JPRB/)  
+KBO( :,35, 2) = (/&
+ & 5.7335E-04_JPRB,5.4243E-04_JPRB,5.1437E-04_JPRB,4.8935E-04_JPRB,4.6731E-04_JPRB/)  
+KBO( :,36, 2) = (/&
+ & 4.6786E-04_JPRB,4.4279E-04_JPRB,4.2001E-04_JPRB,3.9969E-04_JPRB,3.8175E-04_JPRB/)  
+KBO( :,37, 2) = (/&
+ & 3.8722E-04_JPRB,3.6652E-04_JPRB,3.4765E-04_JPRB,3.3074E-04_JPRB,3.1577E-04_JPRB/)  
+KBO( :,38, 2) = (/&
+ & 3.2064E-04_JPRB,3.0358E-04_JPRB,2.8795E-04_JPRB,2.7387E-04_JPRB,2.6137E-04_JPRB/)  
+KBO( :,39, 2) = (/&
+ & 2.6542E-04_JPRB,2.5139E-04_JPRB,2.3846E-04_JPRB,2.2675E-04_JPRB,2.1632E-04_JPRB/)  
+KBO( :,40, 2) = (/&
+ & 2.2243E-04_JPRB,2.1077E-04_JPRB,1.9994E-04_JPRB,1.9003E-04_JPRB,1.8117E-04_JPRB/)  
+KBO( :,41, 2) = (/&
+ & 1.8662E-04_JPRB,1.7701E-04_JPRB,1.6793E-04_JPRB,1.5956E-04_JPRB,1.5202E-04_JPRB/)  
+KBO( :,42, 2) = (/&
+ & 1.5648E-04_JPRB,1.4863E-04_JPRB,1.4106E-04_JPRB,1.3402E-04_JPRB,1.2761E-04_JPRB/)  
+KBO( :,43, 2) = (/&
+ & 1.3212E-04_JPRB,1.2582E-04_JPRB,1.1952E-04_JPRB,1.1357E-04_JPRB,1.0810E-04_JPRB/)  
+KBO( :,44, 2) = (/&
+ & 1.1174E-04_JPRB,1.0680E-04_JPRB,1.0165E-04_JPRB,9.6663E-05_JPRB,9.2016E-05_JPRB/)  
+KBO( :,45, 2) = (/&
+ & 9.4238E-05_JPRB,9.0536E-05_JPRB,8.6432E-05_JPRB,8.2292E-05_JPRB,7.8367E-05_JPRB/)  
+KBO( :,46, 2) = (/&
+ & 7.9325E-05_JPRB,7.6718E-05_JPRB,7.3544E-05_JPRB,7.0182E-05_JPRB,6.6892E-05_JPRB/)  
+KBO( :,47, 2) = (/&
+ & 6.6879E-05_JPRB,6.4961E-05_JPRB,6.2686E-05_JPRB,6.0033E-05_JPRB,5.7320E-05_JPRB/)  
+KBO( :,48, 2) = (/&
+ & 5.6419E-05_JPRB,5.4793E-05_JPRB,5.3249E-05_JPRB,5.1268E-05_JPRB,4.9104E-05_JPRB/)  
+KBO( :,49, 2) = (/&
+ & 4.7582E-05_JPRB,4.6223E-05_JPRB,4.5008E-05_JPRB,4.3677E-05_JPRB,4.2007E-05_JPRB/)  
+KBO( :,50, 2) = (/&
+ & 4.0134E-05_JPRB,3.9021E-05_JPRB,3.7999E-05_JPRB,3.7054E-05_JPRB,3.5858E-05_JPRB/)  
+KBO( :,51, 2) = (/&
+ & 3.3881E-05_JPRB,3.2950E-05_JPRB,3.2114E-05_JPRB,3.1337E-05_JPRB,3.0540E-05_JPRB/)  
+KBO( :,52, 2) = (/&
+ & 2.8622E-05_JPRB,2.7826E-05_JPRB,2.7144E-05_JPRB,2.6512E-05_JPRB,2.5904E-05_JPRB/)  
+KBO( :,53, 2) = (/&
+ & 2.4202E-05_JPRB,2.3517E-05_JPRB,2.2936E-05_JPRB,2.2437E-05_JPRB,2.1946E-05_JPRB/)  
+KBO( :,54, 2) = (/&
+ & 2.0552E-05_JPRB,1.9947E-05_JPRB,1.9446E-05_JPRB,1.9029E-05_JPRB,1.8643E-05_JPRB/)  
+KBO( :,55, 2) = (/&
+ & 1.7521E-05_JPRB,1.6983E-05_JPRB,1.6547E-05_JPRB,1.6182E-05_JPRB,1.5869E-05_JPRB/)  
+KBO( :,56, 2) = (/&
+ & 1.4964E-05_JPRB,1.4501E-05_JPRB,1.4113E-05_JPRB,1.3797E-05_JPRB,1.3531E-05_JPRB/)  
+KBO( :,57, 2) = (/&
+ & 1.2786E-05_JPRB,1.2428E-05_JPRB,1.2073E-05_JPRB,1.1795E-05_JPRB,1.1567E-05_JPRB/)  
+KBO( :,58, 2) = (/&
+ & 1.0926E-05_JPRB,1.0676E-05_JPRB,1.0370E-05_JPRB,1.0111E-05_JPRB,9.9144E-06_JPRB/)  
+KBO( :,59, 2) = (/&
+ & 9.3343E-06_JPRB,9.1398E-06_JPRB,8.8844E-06_JPRB,8.6525E-06_JPRB,8.4760E-06_JPRB/)  
+KBO( :,13, 3) = (/&
+ & 1.1578E-01_JPRB,1.0716E-01_JPRB,9.8800E-02_JPRB,9.1233E-02_JPRB,8.4552E-02_JPRB/)  
+KBO( :,14, 3) = (/&
+ & 9.6358E-02_JPRB,8.8872E-02_JPRB,8.1796E-02_JPRB,7.5462E-02_JPRB,6.9923E-02_JPRB/)  
+KBO( :,15, 3) = (/&
+ & 7.7679E-02_JPRB,7.1362E-02_JPRB,6.5590E-02_JPRB,6.0478E-02_JPRB,5.6079E-02_JPRB/)  
+KBO( :,16, 3) = (/&
+ & 6.1300E-02_JPRB,5.6180E-02_JPRB,5.1590E-02_JPRB,4.7554E-02_JPRB,4.4239E-02_JPRB/)  
+KBO( :,17, 3) = (/&
+ & 4.8045E-02_JPRB,4.3962E-02_JPRB,4.0343E-02_JPRB,3.7246E-02_JPRB,3.4805E-02_JPRB/)  
+KBO( :,18, 3) = (/&
+ & 3.7178E-02_JPRB,3.3974E-02_JPRB,3.1173E-02_JPRB,2.8927E-02_JPRB,2.7155E-02_JPRB/)  
+KBO( :,19, 3) = (/&
+ & 2.9119E-02_JPRB,2.6589E-02_JPRB,2.4456E-02_JPRB,2.2801E-02_JPRB,2.1476E-02_JPRB/)  
+KBO( :,20, 3) = (/&
+ & 2.3060E-02_JPRB,2.1055E-02_JPRB,1.9446E-02_JPRB,1.8194E-02_JPRB,1.7172E-02_JPRB/)  
+KBO( :,21, 3) = (/&
+ & 1.8331E-02_JPRB,1.6763E-02_JPRB,1.5542E-02_JPRB,1.4585E-02_JPRB,1.3783E-02_JPRB/)  
+KBO( :,22, 3) = (/&
+ & 1.4479E-02_JPRB,1.3291E-02_JPRB,1.2379E-02_JPRB,1.1652E-02_JPRB,1.1027E-02_JPRB/)  
+KBO( :,23, 3) = (/&
+ & 1.1453E-02_JPRB,1.0564E-02_JPRB,9.8785E-03_JPRB,9.3186E-03_JPRB,8.8332E-03_JPRB/)  
+KBO( :,24, 3) = (/&
+ & 9.1256E-03_JPRB,8.4545E-03_JPRB,7.9319E-03_JPRB,7.4939E-03_JPRB,7.1141E-03_JPRB/)  
+KBO( :,25, 3) = (/&
+ & 7.2833E-03_JPRB,6.7767E-03_JPRB,6.3758E-03_JPRB,6.0322E-03_JPRB,5.7344E-03_JPRB/)  
+KBO( :,26, 3) = (/&
+ & 5.8255E-03_JPRB,5.4418E-03_JPRB,5.1312E-03_JPRB,4.8611E-03_JPRB,4.6284E-03_JPRB/)  
+KBO( :,27, 3) = (/&
+ & 4.6693E-03_JPRB,4.3763E-03_JPRB,4.1328E-03_JPRB,3.9209E-03_JPRB,3.7392E-03_JPRB/)  
+KBO( :,28, 3) = (/&
+ & 3.7489E-03_JPRB,3.5232E-03_JPRB,3.3314E-03_JPRB,3.1652E-03_JPRB,3.0230E-03_JPRB/)  
+KBO( :,29, 3) = (/&
+ & 2.9982E-03_JPRB,2.8244E-03_JPRB,2.6743E-03_JPRB,2.5451E-03_JPRB,2.4345E-03_JPRB/)  
+KBO( :,30, 3) = (/&
+ & 2.3941E-03_JPRB,2.2596E-03_JPRB,2.1432E-03_JPRB,2.0432E-03_JPRB,1.9574E-03_JPRB/)  
+KBO( :,31, 3) = (/&
+ & 1.9015E-03_JPRB,1.7982E-03_JPRB,1.7086E-03_JPRB,1.6320E-03_JPRB,1.5660E-03_JPRB/)  
+KBO( :,32, 3) = (/&
+ & 1.5140E-03_JPRB,1.4341E-03_JPRB,1.3651E-03_JPRB,1.3063E-03_JPRB,1.2555E-03_JPRB/)  
+KBO( :,33, 3) = (/&
+ & 1.2075E-03_JPRB,1.1458E-03_JPRB,1.0928E-03_JPRB,1.0474E-03_JPRB,1.0084E-03_JPRB/)  
+KBO( :,34, 3) = (/&
+ & 9.7167E-04_JPRB,9.2329E-04_JPRB,8.8190E-04_JPRB,8.4640E-04_JPRB,8.1606E-04_JPRB/)  
+KBO( :,35, 3) = (/&
+ & 7.8747E-04_JPRB,7.4887E-04_JPRB,7.1595E-04_JPRB,6.8779E-04_JPRB,6.6369E-04_JPRB/)  
+KBO( :,36, 3) = (/&
+ & 6.4309E-04_JPRB,6.1175E-04_JPRB,5.8503E-04_JPRB,5.6224E-04_JPRB,5.4265E-04_JPRB/)  
+KBO( :,37, 3) = (/&
+ & 5.3206E-04_JPRB,5.0587E-04_JPRB,4.8341E-04_JPRB,4.6439E-04_JPRB,4.4794E-04_JPRB/)  
+KBO( :,38, 3) = (/&
+ & 4.4053E-04_JPRB,4.1858E-04_JPRB,3.9969E-04_JPRB,3.8376E-04_JPRB,3.6993E-04_JPRB/)  
+KBO( :,39, 3) = (/&
+ & 3.6472E-04_JPRB,3.4631E-04_JPRB,3.3044E-04_JPRB,3.1709E-04_JPRB,3.0547E-04_JPRB/)  
+KBO( :,40, 3) = (/&
+ & 3.0560E-04_JPRB,2.8982E-04_JPRB,2.7615E-04_JPRB,2.6461E-04_JPRB,2.5462E-04_JPRB/)  
+KBO( :,41, 3) = (/&
+ & 2.5670E-04_JPRB,2.4305E-04_JPRB,2.3127E-04_JPRB,2.2125E-04_JPRB,2.1263E-04_JPRB/)  
+KBO( :,42, 3) = (/&
+ & 2.1586E-04_JPRB,2.0401E-04_JPRB,1.9383E-04_JPRB,1.8512E-04_JPRB,1.7766E-04_JPRB/)  
+KBO( :,43, 3) = (/&
+ & 1.8349E-04_JPRB,1.7278E-04_JPRB,1.6384E-04_JPRB,1.5615E-04_JPRB,1.4957E-04_JPRB/)  
+KBO( :,44, 3) = (/&
+ & 1.5716E-04_JPRB,1.4719E-04_JPRB,1.3923E-04_JPRB,1.3237E-04_JPRB,1.2650E-04_JPRB/)  
+KBO( :,45, 3) = (/&
+ & 1.3523E-04_JPRB,1.2581E-04_JPRB,1.1854E-04_JPRB,1.1244E-04_JPRB,1.0719E-04_JPRB/)  
+KBO( :,46, 3) = (/&
+ & 1.1723E-04_JPRB,1.0821E-04_JPRB,1.0137E-04_JPRB,9.5892E-05_JPRB,9.1160E-05_JPRB/)  
+KBO( :,47, 3) = (/&
+ & 1.0246E-04_JPRB,9.4070E-05_JPRB,8.7415E-05_JPRB,8.2283E-05_JPRB,7.8012E-05_JPRB/)  
+KBO( :,48, 3) = (/&
+ & 8.9698E-05_JPRB,8.2247E-05_JPRB,7.5847E-05_JPRB,7.0891E-05_JPRB,6.6960E-05_JPRB/)  
+KBO( :,49, 3) = (/&
+ & 7.8632E-05_JPRB,7.2058E-05_JPRB,6.6260E-05_JPRB,6.1415E-05_JPRB,5.7680E-05_JPRB/)  
+KBO( :,50, 3) = (/&
+ & 6.8816E-05_JPRB,6.3112E-05_JPRB,5.7964E-05_JPRB,5.3476E-05_JPRB,4.9851E-05_JPRB/)  
+KBO( :,51, 3) = (/&
+ & 6.0093E-05_JPRB,5.5311E-05_JPRB,5.0781E-05_JPRB,4.6782E-05_JPRB,4.3320E-05_JPRB/)  
+KBO( :,52, 3) = (/&
+ & 5.2290E-05_JPRB,4.8493E-05_JPRB,4.4587E-05_JPRB,4.1036E-05_JPRB,3.7908E-05_JPRB/)  
+KBO( :,53, 3) = (/&
+ & 4.5363E-05_JPRB,4.2435E-05_JPRB,3.9221E-05_JPRB,3.6100E-05_JPRB,3.3314E-05_JPRB/)  
+KBO( :,54, 3) = (/&
+ & 3.9232E-05_JPRB,3.6987E-05_JPRB,3.4457E-05_JPRB,3.1794E-05_JPRB,2.9324E-05_JPRB/)  
+KBO( :,55, 3) = (/&
+ & 3.3909E-05_JPRB,3.2196E-05_JPRB,3.0223E-05_JPRB,2.8046E-05_JPRB,2.5889E-05_JPRB/)  
+KBO( :,56, 3) = (/&
+ & 2.9375E-05_JPRB,2.7990E-05_JPRB,2.6480E-05_JPRB,2.4756E-05_JPRB,2.2937E-05_JPRB/)  
+KBO( :,57, 3) = (/&
+ & 2.5600E-05_JPRB,2.4324E-05_JPRB,2.3181E-05_JPRB,2.1853E-05_JPRB,2.0369E-05_JPRB/)  
+KBO( :,58, 3) = (/&
+ & 2.2451E-05_JPRB,2.1215E-05_JPRB,2.0255E-05_JPRB,1.9251E-05_JPRB,1.8079E-05_JPRB/)  
+KBO( :,59, 3) = (/&
+ & 1.9440E-05_JPRB,1.8313E-05_JPRB,1.7459E-05_JPRB,1.6654E-05_JPRB,1.5711E-05_JPRB/)  
+KBO( :,13, 4) = (/&
+ & 1.4696E-01_JPRB,1.3536E-01_JPRB,1.2591E-01_JPRB,1.1779E-01_JPRB,1.1082E-01_JPRB/)  
+KBO( :,14, 4) = (/&
+ & 1.2236E-01_JPRB,1.1293E-01_JPRB,1.0507E-01_JPRB,9.8308E-02_JPRB,9.2452E-02_JPRB/)  
+KBO( :,15, 4) = (/&
+ & 9.8855E-02_JPRB,9.1490E-02_JPRB,8.5185E-02_JPRB,7.9782E-02_JPRB,7.5090E-02_JPRB/)  
+KBO( :,16, 4) = (/&
+ & 7.8479E-02_JPRB,7.2784E-02_JPRB,6.7904E-02_JPRB,6.3672E-02_JPRB,6.0007E-02_JPRB/)  
+KBO( :,17, 4) = (/&
+ & 6.2026E-02_JPRB,5.7636E-02_JPRB,5.3869E-02_JPRB,5.0578E-02_JPRB,4.7744E-02_JPRB/)  
+KBO( :,18, 4) = (/&
+ & 4.8533E-02_JPRB,4.5221E-02_JPRB,4.2336E-02_JPRB,3.9824E-02_JPRB,3.7663E-02_JPRB/)  
+KBO( :,19, 4) = (/&
+ & 3.8437E-02_JPRB,3.5877E-02_JPRB,3.3631E-02_JPRB,3.1685E-02_JPRB,3.0017E-02_JPRB/)  
+KBO( :,20, 4) = (/&
+ & 3.0742E-02_JPRB,2.8726E-02_JPRB,2.6959E-02_JPRB,2.5432E-02_JPRB,2.4138E-02_JPRB/)  
+KBO( :,21, 4) = (/&
+ & 2.4672E-02_JPRB,2.3073E-02_JPRB,2.1679E-02_JPRB,2.0477E-02_JPRB,1.9477E-02_JPRB/)  
+KBO( :,22, 4) = (/&
+ & 1.9706E-02_JPRB,1.8455E-02_JPRB,1.7366E-02_JPRB,1.6436E-02_JPRB,1.5677E-02_JPRB/)  
+KBO( :,23, 4) = (/&
+ & 1.5753E-02_JPRB,1.4774E-02_JPRB,1.3923E-02_JPRB,1.3212E-02_JPRB,1.2632E-02_JPRB/)  
+KBO( :,24, 4) = (/&
+ & 1.2655E-02_JPRB,1.1885E-02_JPRB,1.1219E-02_JPRB,1.0672E-02_JPRB,1.0225E-02_JPRB/)  
+KBO( :,25, 4) = (/&
+ & 1.0171E-02_JPRB,9.5654E-03_JPRB,9.0480E-03_JPRB,8.6282E-03_JPRB,8.2836E-03_JPRB/)  
+KBO( :,26, 4) = (/&
+ & 8.1813E-03_JPRB,7.7056E-03_JPRB,7.3062E-03_JPRB,6.9847E-03_JPRB,6.7168E-03_JPRB/)  
+KBO( :,27, 4) = (/&
+ & 6.5848E-03_JPRB,6.2128E-03_JPRB,5.9057E-03_JPRB,5.6577E-03_JPRB,5.4495E-03_JPRB/)  
+KBO( :,28, 4) = (/&
+ & 5.3033E-03_JPRB,5.0131E-03_JPRB,4.7776E-03_JPRB,4.5851E-03_JPRB,4.4243E-03_JPRB/)  
+KBO( :,29, 4) = (/&
+ & 4.2539E-03_JPRB,4.0307E-03_JPRB,3.8512E-03_JPRB,3.7034E-03_JPRB,3.5804E-03_JPRB/)  
+KBO( :,30, 4) = (/&
+ & 3.4070E-03_JPRB,3.2374E-03_JPRB,3.1007E-03_JPRB,2.9878E-03_JPRB,2.8943E-03_JPRB/)  
+KBO( :,31, 4) = (/&
+ & 2.7164E-03_JPRB,2.5892E-03_JPRB,2.4867E-03_JPRB,2.4014E-03_JPRB,2.3318E-03_JPRB/)  
+KBO( :,32, 4) = (/&
+ & 2.1714E-03_JPRB,2.0763E-03_JPRB,1.9989E-03_JPRB,1.9347E-03_JPRB,1.8824E-03_JPRB/)  
+KBO( :,33, 4) = (/&
+ & 1.7396E-03_JPRB,1.6683E-03_JPRB,1.6097E-03_JPRB,1.5614E-03_JPRB,1.5217E-03_JPRB/)  
+KBO( :,34, 4) = (/&
+ & 1.4048E-03_JPRB,1.3500E-03_JPRB,1.3048E-03_JPRB,1.2676E-03_JPRB,1.2371E-03_JPRB/)  
+KBO( :,35, 4) = (/&
+ & 1.1411E-03_JPRB,1.0980E-03_JPRB,1.0625E-03_JPRB,1.0331E-03_JPRB,1.0094E-03_JPRB/)  
+KBO( :,36, 4) = (/&
+ & 9.3251E-04_JPRB,8.9778E-04_JPRB,8.6918E-04_JPRB,8.4547E-04_JPRB,8.2657E-04_JPRB/)  
+KBO( :,37, 4) = (/&
+ & 7.7030E-04_JPRB,7.4111E-04_JPRB,7.1717E-04_JPRB,6.9726E-04_JPRB,6.8147E-04_JPRB/)  
+KBO( :,38, 4) = (/&
+ & 6.3669E-04_JPRB,6.1205E-04_JPRB,5.9195E-04_JPRB,5.7523E-04_JPRB,5.6199E-04_JPRB/)  
+KBO( :,39, 4) = (/&
+ & 5.2623E-04_JPRB,5.0538E-04_JPRB,4.8849E-04_JPRB,4.7446E-04_JPRB,4.6332E-04_JPRB/)  
+KBO( :,40, 4) = (/&
+ & 4.3959E-04_JPRB,4.2119E-04_JPRB,4.0652E-04_JPRB,3.9437E-04_JPRB,3.8468E-04_JPRB/)  
+KBO( :,41, 4) = (/&
+ & 3.6806E-04_JPRB,3.5172E-04_JPRB,3.3885E-04_JPRB,3.2829E-04_JPRB,3.1983E-04_JPRB/)  
+KBO( :,42, 4) = (/&
+ & 3.0846E-04_JPRB,2.9396E-04_JPRB,2.8262E-04_JPRB,2.7343E-04_JPRB,2.6601E-04_JPRB/)  
+KBO( :,43, 4) = (/&
+ & 2.6070E-04_JPRB,2.4764E-04_JPRB,2.3730E-04_JPRB,2.2909E-04_JPRB,2.2243E-04_JPRB/)  
+KBO( :,44, 4) = (/&
+ & 2.2145E-04_JPRB,2.0973E-04_JPRB,2.0015E-04_JPRB,1.9268E-04_JPRB,1.8663E-04_JPRB/)  
+KBO( :,45, 4) = (/&
+ & 1.8844E-04_JPRB,1.7798E-04_JPRB,1.6924E-04_JPRB,1.6233E-04_JPRB,1.5683E-04_JPRB/)  
+KBO( :,46, 4) = (/&
+ & 1.6102E-04_JPRB,1.5165E-04_JPRB,1.4374E-04_JPRB,1.3727E-04_JPRB,1.3220E-04_JPRB/)  
+KBO( :,47, 4) = (/&
+ & 1.3849E-04_JPRB,1.3004E-04_JPRB,1.2284E-04_JPRB,1.1682E-04_JPRB,1.1200E-04_JPRB/)  
+KBO( :,48, 4) = (/&
+ & 1.1939E-04_JPRB,1.1184E-04_JPRB,1.0528E-04_JPRB,9.9774E-05_JPRB,9.5200E-05_JPRB/)  
+KBO( :,49, 4) = (/&
+ & 1.0325E-04_JPRB,9.6448E-05_JPRB,9.0509E-05_JPRB,8.5480E-05_JPRB,8.1243E-05_JPRB/)  
+KBO( :,50, 4) = (/&
+ & 8.9502E-05_JPRB,8.3289E-05_JPRB,7.8000E-05_JPRB,7.3411E-05_JPRB,6.9545E-05_JPRB/)  
+KBO( :,51, 4) = (/&
+ & 7.7885E-05_JPRB,7.2170E-05_JPRB,6.7387E-05_JPRB,6.3245E-05_JPRB,5.9716E-05_JPRB/)  
+KBO( :,52, 4) = (/&
+ & 6.8289E-05_JPRB,6.2790E-05_JPRB,5.8412E-05_JPRB,5.4691E-05_JPRB,5.1470E-05_JPRB/)  
+KBO( :,53, 4) = (/&
+ & 6.0379E-05_JPRB,5.4962E-05_JPRB,5.0864E-05_JPRB,4.7466E-05_JPRB,4.4555E-05_JPRB/)  
+KBO( :,54, 4) = (/&
+ & 5.3778E-05_JPRB,4.8463E-05_JPRB,4.4464E-05_JPRB,4.1340E-05_JPRB,3.8702E-05_JPRB/)  
+KBO( :,55, 4) = (/&
+ & 4.8218E-05_JPRB,4.3063E-05_JPRB,3.9148E-05_JPRB,3.6179E-05_JPRB,3.3764E-05_JPRB/)  
+KBO( :,56, 4) = (/&
+ & 4.3470E-05_JPRB,3.8635E-05_JPRB,3.4783E-05_JPRB,3.1873E-05_JPRB,2.9614E-05_JPRB/)  
+KBO( :,57, 4) = (/&
+ & 3.9310E-05_JPRB,3.4974E-05_JPRB,3.1231E-05_JPRB,2.8344E-05_JPRB,2.6153E-05_JPRB/)  
+KBO( :,58, 4) = (/&
+ & 3.5464E-05_JPRB,3.1728E-05_JPRB,2.8260E-05_JPRB,2.5410E-05_JPRB,2.3248E-05_JPRB/)  
+KBO( :,59, 4) = (/&
+ & 3.1043E-05_JPRB,2.7897E-05_JPRB,2.4869E-05_JPRB,2.2274E-05_JPRB,2.0279E-05_JPRB/)  
+KBO( :,13, 5) = (/&
+ & 2.0037E-01_JPRB,1.8536E-01_JPRB,1.7319E-01_JPRB,1.6345E-01_JPRB,1.5565E-01_JPRB/)  
+KBO( :,14, 5) = (/&
+ & 1.6811E-01_JPRB,1.5583E-01_JPRB,1.4603E-01_JPRB,1.3819E-01_JPRB,1.3191E-01_JPRB/)  
+KBO( :,15, 5) = (/&
+ & 1.3720E-01_JPRB,1.2762E-01_JPRB,1.2008E-01_JPRB,1.1403E-01_JPRB,1.0921E-01_JPRB/)  
+KBO( :,16, 5) = (/&
+ & 1.0988E-01_JPRB,1.0274E-01_JPRB,9.7095E-02_JPRB,9.2609E-02_JPRB,8.9031E-02_JPRB/)  
+KBO( :,17, 5) = (/&
+ & 8.7687E-02_JPRB,8.2411E-02_JPRB,7.8231E-02_JPRB,7.4955E-02_JPRB,7.2265E-02_JPRB/)  
+KBO( :,18, 5) = (/&
+ & 6.9546E-02_JPRB,6.5690E-02_JPRB,6.2692E-02_JPRB,6.0308E-02_JPRB,5.8300E-02_JPRB/)  
+KBO( :,19, 5) = (/&
+ & 5.5764E-02_JPRB,5.2922E-02_JPRB,5.0726E-02_JPRB,4.8917E-02_JPRB,4.7401E-02_JPRB/)  
+KBO( :,20, 5) = (/&
+ & 4.5060E-02_JPRB,4.2954E-02_JPRB,4.1283E-02_JPRB,3.9887E-02_JPRB,3.8724E-02_JPRB/)  
+KBO( :,21, 5) = (/&
+ & 3.6528E-02_JPRB,3.4947E-02_JPRB,3.3647E-02_JPRB,3.2572E-02_JPRB,3.1670E-02_JPRB/)  
+KBO( :,22, 5) = (/&
+ & 2.9537E-02_JPRB,2.8342E-02_JPRB,2.7350E-02_JPRB,2.6530E-02_JPRB,2.5834E-02_JPRB/)  
+KBO( :,23, 5) = (/&
+ & 2.3912E-02_JPRB,2.2997E-02_JPRB,2.2244E-02_JPRB,2.1612E-02_JPRB,2.1080E-02_JPRB/)  
+KBO( :,24, 5) = (/&
+ & 1.9429E-02_JPRB,1.8726E-02_JPRB,1.8145E-02_JPRB,1.7658E-02_JPRB,1.7246E-02_JPRB/)  
+KBO( :,25, 5) = (/&
+ & 1.5792E-02_JPRB,1.5254E-02_JPRB,1.4806E-02_JPRB,1.4430E-02_JPRB,1.4113E-02_JPRB/)  
+KBO( :,26, 5) = (/&
+ & 1.2845E-02_JPRB,1.2431E-02_JPRB,1.2086E-02_JPRB,1.1796E-02_JPRB,1.1555E-02_JPRB/)  
+KBO( :,27, 5) = (/&
+ & 1.0446E-02_JPRB,1.0127E-02_JPRB,9.8617E-03_JPRB,9.6396E-03_JPRB,9.4551E-03_JPRB/)  
+KBO( :,28, 5) = (/&
+ & 8.4938E-03_JPRB,8.2489E-03_JPRB,8.0449E-03_JPRB,7.8756E-03_JPRB,7.7339E-03_JPRB/)  
+KBO( :,29, 5) = (/&
+ & 6.8810E-03_JPRB,6.6955E-03_JPRB,6.5403E-03_JPRB,6.4124E-03_JPRB,6.3046E-03_JPRB/)  
+KBO( :,30, 5) = (/&
+ & 5.5679E-03_JPRB,5.4274E-03_JPRB,5.3105E-03_JPRB,5.2139E-03_JPRB,5.1338E-03_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB11:PART3',1,ZHOOK_HANDLE)
+END SUBROUTINE PART3
+
+
+SUBROUTINE PART4
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB11:PART4',0,ZHOOK_HANDLE)
+
+
+KBO( :,31, 5) = (/&
+ & 4.4884E-03_JPRB,4.3834E-03_JPRB,4.2967E-03_JPRB,4.2249E-03_JPRB,4.1673E-03_JPRB/)  
+KBO( :,32, 5) = (/&
+ & 3.6233E-03_JPRB,3.5452E-03_JPRB,3.4808E-03_JPRB,3.4277E-03_JPRB,3.3868E-03_JPRB/)  
+KBO( :,33, 5) = (/&
+ & 2.9282E-03_JPRB,2.8695E-03_JPRB,2.8214E-03_JPRB,2.7830E-03_JPRB,2.7552E-03_JPRB/)  
+KBO( :,34, 5) = (/&
+ & 2.3787E-03_JPRB,2.3339E-03_JPRB,2.2982E-03_JPRB,2.2711E-03_JPRB,2.2512E-03_JPRB/)  
+KBO( :,35, 5) = (/&
+ & 1.9384E-03_JPRB,1.9039E-03_JPRB,1.8770E-03_JPRB,1.8573E-03_JPRB,1.8425E-03_JPRB/)  
+KBO( :,36, 5) = (/&
+ & 1.5850E-03_JPRB,1.5579E-03_JPRB,1.5371E-03_JPRB,1.5221E-03_JPRB,1.5109E-03_JPRB/)  
+KBO( :,37, 5) = (/&
+ & 1.3051E-03_JPRB,1.2827E-03_JPRB,1.2657E-03_JPRB,1.2537E-03_JPRB,1.2449E-03_JPRB/)  
+KBO( :,38, 5) = (/&
+ & 1.0746E-03_JPRB,1.0560E-03_JPRB,1.0422E-03_JPRB,1.0325E-03_JPRB,1.0256E-03_JPRB/)  
+KBO( :,39, 5) = (/&
+ & 8.8434E-04_JPRB,8.6898E-04_JPRB,8.5778E-04_JPRB,8.4994E-04_JPRB,8.4447E-04_JPRB/)  
+KBO( :,40, 5) = (/&
+ & 7.3292E-04_JPRB,7.1976E-04_JPRB,7.1015E-04_JPRB,7.0344E-04_JPRB,6.9883E-04_JPRB/)  
+KBO( :,41, 5) = (/&
+ & 6.0814E-04_JPRB,5.9676E-04_JPRB,5.8842E-04_JPRB,5.8265E-04_JPRB,5.7869E-04_JPRB/)  
+KBO( :,42, 5) = (/&
+ & 5.0473E-04_JPRB,4.9486E-04_JPRB,4.8758E-04_JPRB,4.8259E-04_JPRB,4.7917E-04_JPRB/)  
+KBO( :,43, 5) = (/&
+ & 4.2073E-04_JPRB,4.1190E-04_JPRB,4.0535E-04_JPRB,4.0084E-04_JPRB,3.9773E-04_JPRB/)  
+KBO( :,44, 5) = (/&
+ & 3.5172E-04_JPRB,3.4367E-04_JPRB,3.3767E-04_JPRB,3.3350E-04_JPRB,3.3063E-04_JPRB/)  
+KBO( :,45, 5) = (/&
+ & 2.9444E-04_JPRB,2.8703E-04_JPRB,2.8150E-04_JPRB,2.7764E-04_JPRB,2.7498E-04_JPRB/)  
+KBO( :,46, 5) = (/&
+ & 2.4727E-04_JPRB,2.4031E-04_JPRB,2.3512E-04_JPRB,2.3150E-04_JPRB,2.2899E-04_JPRB/)  
+KBO( :,47, 5) = (/&
+ & 2.0882E-04_JPRB,2.0207E-04_JPRB,1.9709E-04_JPRB,1.9359E-04_JPRB,1.9119E-04_JPRB/)  
+KBO( :,48, 5) = (/&
+ & 1.7704E-04_JPRB,1.7038E-04_JPRB,1.6557E-04_JPRB,1.6214E-04_JPRB,1.5982E-04_JPRB/)  
+KBO( :,49, 5) = (/&
+ & 1.5080E-04_JPRB,1.4420E-04_JPRB,1.3945E-04_JPRB,1.3608E-04_JPRB,1.3379E-04_JPRB/)  
+KBO( :,50, 5) = (/&
+ & 1.2911E-04_JPRB,1.2261E-04_JPRB,1.1789E-04_JPRB,1.1456E-04_JPRB,1.1230E-04_JPRB/)  
+KBO( :,51, 5) = (/&
+ & 1.1123E-04_JPRB,1.0476E-04_JPRB,1.0009E-04_JPRB,9.6777E-05_JPRB,9.4528E-05_JPRB/)  
+KBO( :,52, 5) = (/&
+ & 9.6410E-05_JPRB,9.0064E-05_JPRB,8.5407E-05_JPRB,8.2070E-05_JPRB,7.9798E-05_JPRB/)  
+KBO( :,53, 5) = (/&
+ & 8.4067E-05_JPRB,7.7964E-05_JPRB,7.3302E-05_JPRB,6.9956E-05_JPRB,6.7619E-05_JPRB/)  
+KBO( :,54, 5) = (/&
+ & 7.3546E-05_JPRB,6.7856E-05_JPRB,6.3334E-05_JPRB,5.9970E-05_JPRB,5.7596E-05_JPRB/)  
+KBO( :,55, 5) = (/&
+ & 6.4676E-05_JPRB,5.9391E-05_JPRB,5.5074E-05_JPRB,5.1740E-05_JPRB,4.9340E-05_JPRB/)  
+KBO( :,56, 5) = (/&
+ & 5.7222E-05_JPRB,5.2288E-05_JPRB,4.8229E-05_JPRB,4.4985E-05_JPRB,4.2543E-05_JPRB/)  
+KBO( :,57, 5) = (/&
+ & 5.0943E-05_JPRB,4.6360E-05_JPRB,4.2538E-05_JPRB,3.9423E-05_JPRB,3.6983E-05_JPRB/)  
+KBO( :,58, 5) = (/&
+ & 4.5636E-05_JPRB,4.1296E-05_JPRB,3.7718E-05_JPRB,3.4778E-05_JPRB,3.2393E-05_JPRB/)  
+KBO( :,59, 5) = (/&
+ & 3.9918E-05_JPRB,3.5967E-05_JPRB,3.2789E-05_JPRB,3.0147E-05_JPRB,2.7981E-05_JPRB/)  
+KBO( :,13, 6) = (/&
+ & 3.0031E-01_JPRB,2.8877E-01_JPRB,2.7889E-01_JPRB,2.7050E-01_JPRB,2.6327E-01_JPRB/)  
+KBO( :,14, 6) = (/&
+ & 2.5567E-01_JPRB,2.4634E-01_JPRB,2.3843E-01_JPRB,2.3160E-01_JPRB,2.2574E-01_JPRB/)  
+KBO( :,15, 6) = (/&
+ & 2.1660E-01_JPRB,2.0921E-01_JPRB,2.0286E-01_JPRB,1.9734E-01_JPRB,1.9258E-01_JPRB/)  
+KBO( :,16, 6) = (/&
+ & 1.7950E-01_JPRB,1.7370E-01_JPRB,1.6867E-01_JPRB,1.6432E-01_JPRB,1.6061E-01_JPRB/)  
+KBO( :,17, 6) = (/&
+ & 1.4767E-01_JPRB,1.4318E-01_JPRB,1.3929E-01_JPRB,1.3594E-01_JPRB,1.3314E-01_JPRB/)  
+KBO( :,18, 6) = (/&
+ & 1.2067E-01_JPRB,1.1726E-01_JPRB,1.1432E-01_JPRB,1.1181E-01_JPRB,1.0970E-01_JPRB/)  
+KBO( :,19, 6) = (/&
+ & 9.9158E-02_JPRB,9.6553E-02_JPRB,9.4280E-02_JPRB,9.2392E-02_JPRB,9.0731E-02_JPRB/)  
+KBO( :,20, 6) = (/&
+ & 8.1605E-02_JPRB,7.9577E-02_JPRB,7.7850E-02_JPRB,7.6412E-02_JPRB,7.5067E-02_JPRB/)  
+KBO( :,21, 6) = (/&
+ & 6.7154E-02_JPRB,6.5582E-02_JPRB,6.4294E-02_JPRB,6.3166E-02_JPRB,6.2094E-02_JPRB/)  
+KBO( :,22, 6) = (/&
+ & 5.5082E-02_JPRB,5.3919E-02_JPRB,5.2957E-02_JPRB,5.2061E-02_JPRB,5.1235E-02_JPRB/)  
+KBO( :,23, 6) = (/&
+ & 4.5194E-02_JPRB,4.4345E-02_JPRB,4.3595E-02_JPRB,4.2898E-02_JPRB,4.2263E-02_JPRB/)  
+KBO( :,24, 6) = (/&
+ & 3.7185E-02_JPRB,3.6539E-02_JPRB,3.5952E-02_JPRB,3.5414E-02_JPRB,3.4913E-02_JPRB/)  
+KBO( :,25, 6) = (/&
+ & 3.0590E-02_JPRB,3.0087E-02_JPRB,2.9634E-02_JPRB,2.9216E-02_JPRB,2.8826E-02_JPRB/)  
+KBO( :,26, 6) = (/&
+ & 2.5152E-02_JPRB,2.4764E-02_JPRB,2.4418E-02_JPRB,2.4095E-02_JPRB,2.3796E-02_JPRB/)  
+KBO( :,27, 6) = (/&
+ & 2.0643E-02_JPRB,2.0349E-02_JPRB,2.0083E-02_JPRB,1.9833E-02_JPRB,1.9610E-02_JPRB/)  
+KBO( :,28, 6) = (/&
+ & 1.6922E-02_JPRB,1.6700E-02_JPRB,1.6497E-02_JPRB,1.6309E-02_JPRB,1.6143E-02_JPRB/)  
+KBO( :,29, 6) = (/&
+ & 1.3806E-02_JPRB,1.3641E-02_JPRB,1.3490E-02_JPRB,1.3350E-02_JPRB,1.3233E-02_JPRB/)  
+KBO( :,30, 6) = (/&
+ & 1.1246E-02_JPRB,1.1125E-02_JPRB,1.1013E-02_JPRB,1.0912E-02_JPRB,1.0833E-02_JPRB/)  
+KBO( :,31, 6) = (/&
+ & 9.1223E-03_JPRB,9.0371E-03_JPRB,8.9562E-03_JPRB,8.8890E-03_JPRB,8.8381E-03_JPRB/)  
+KBO( :,32, 6) = (/&
+ & 7.4088E-03_JPRB,7.3486E-03_JPRB,7.2922E-03_JPRB,7.2503E-03_JPRB,7.2208E-03_JPRB/)  
+KBO( :,33, 6) = (/&
+ & 6.0213E-03_JPRB,5.9797E-03_JPRB,5.9439E-03_JPRB,5.9193E-03_JPRB,5.9059E-03_JPRB/)  
+KBO( :,34, 6) = (/&
+ & 4.9171E-03_JPRB,4.8889E-03_JPRB,4.8670E-03_JPRB,4.8546E-03_JPRB,4.8528E-03_JPRB/)  
+KBO( :,35, 6) = (/&
+ & 4.0228E-03_JPRB,4.0047E-03_JPRB,3.9922E-03_JPRB,3.9878E-03_JPRB,3.9938E-03_JPRB/)  
+KBO( :,36, 6) = (/&
+ & 3.2970E-03_JPRB,3.2861E-03_JPRB,3.2797E-03_JPRB,3.2811E-03_JPRB,3.2916E-03_JPRB/)  
+KBO( :,37, 6) = (/&
+ & 2.7162E-03_JPRB,2.7102E-03_JPRB,2.7075E-03_JPRB,2.7117E-03_JPRB,2.7239E-03_JPRB/)  
+KBO( :,38, 6) = (/&
+ & 2.2373E-03_JPRB,2.2347E-03_JPRB,2.2349E-03_JPRB,2.2411E-03_JPRB,2.2537E-03_JPRB/)  
+KBO( :,39, 6) = (/&
+ & 1.8417E-03_JPRB,1.8418E-03_JPRB,1.8441E-03_JPRB,1.8517E-03_JPRB,1.8647E-03_JPRB/)  
+KBO( :,40, 6) = (/&
+ & 1.5238E-03_JPRB,1.5254E-03_JPRB,1.5285E-03_JPRB,1.5359E-03_JPRB,1.5481E-03_JPRB/)  
+KBO( :,41, 6) = (/&
+ & 1.2613E-03_JPRB,1.2638E-03_JPRB,1.2673E-03_JPRB,1.2744E-03_JPRB,1.2856E-03_JPRB/)  
+KBO( :,42, 6) = (/&
+ & 1.0436E-03_JPRB,1.0466E-03_JPRB,1.0504E-03_JPRB,1.0571E-03_JPRB,1.0674E-03_JPRB/)  
+KBO( :,43, 6) = (/&
+ & 8.6452E-04_JPRB,8.6761E-04_JPRB,8.7142E-04_JPRB,8.7743E-04_JPRB,8.8666E-04_JPRB/)  
+KBO( :,44, 6) = (/&
+ & 7.1654E-04_JPRB,7.1945E-04_JPRB,7.2309E-04_JPRB,7.2846E-04_JPRB,7.3657E-04_JPRB/)  
+KBO( :,45, 6) = (/&
+ & 5.9379E-04_JPRB,5.9641E-04_JPRB,5.9986E-04_JPRB,6.0460E-04_JPRB,6.1175E-04_JPRB/)  
+KBO( :,46, 6) = (/&
+ & 4.9225E-04_JPRB,4.9449E-04_JPRB,4.9768E-04_JPRB,5.0182E-04_JPRB,5.0799E-04_JPRB/)  
+KBO( :,47, 6) = (/&
+ & 4.0862E-04_JPRB,4.1037E-04_JPRB,4.1308E-04_JPRB,4.1665E-04_JPRB,4.2178E-04_JPRB/)  
+KBO( :,48, 6) = (/&
+ & 3.3951E-04_JPRB,3.4066E-04_JPRB,3.4289E-04_JPRB,3.4596E-04_JPRB,3.5019E-04_JPRB/)  
+KBO( :,49, 6) = (/&
+ & 2.8241E-04_JPRB,2.8294E-04_JPRB,2.8471E-04_JPRB,2.8728E-04_JPRB,2.9076E-04_JPRB/)  
+KBO( :,50, 6) = (/&
+ & 2.3555E-04_JPRB,2.3552E-04_JPRB,2.3680E-04_JPRB,2.3892E-04_JPRB,2.4178E-04_JPRB/)  
+KBO( :,51, 6) = (/&
+ & 1.9697E-04_JPRB,1.9644E-04_JPRB,1.9724E-04_JPRB,1.9893E-04_JPRB,2.0124E-04_JPRB/)  
+KBO( :,52, 6) = (/&
+ & 1.6513E-04_JPRB,1.6415E-04_JPRB,1.6450E-04_JPRB,1.6575E-04_JPRB,1.6760E-04_JPRB/)  
+KBO( :,53, 6) = (/&
+ & 1.3891E-04_JPRB,1.3752E-04_JPRB,1.3740E-04_JPRB,1.3821E-04_JPRB,1.3969E-04_JPRB/)  
+KBO( :,54, 6) = (/&
+ & 1.1751E-04_JPRB,1.1571E-04_JPRB,1.1518E-04_JPRB,1.1561E-04_JPRB,1.1672E-04_JPRB/)  
+KBO( :,55, 6) = (/&
+ & 9.9984E-05_JPRB,9.7805E-05_JPRB,9.6898E-05_JPRB,9.6976E-05_JPRB,9.7759E-05_JPRB/)  
+KBO( :,56, 6) = (/&
+ & 8.5702E-05_JPRB,8.3105E-05_JPRB,8.1841E-05_JPRB,8.1573E-05_JPRB,8.2039E-05_JPRB/)  
+KBO( :,57, 6) = (/&
+ & 7.4232E-05_JPRB,7.1097E-05_JPRB,6.9487E-05_JPRB,6.8880E-05_JPRB,6.9030E-05_JPRB/)  
+KBO( :,58, 6) = (/&
+ & 6.4989E-05_JPRB,6.1340E-05_JPRB,5.9365E-05_JPRB,5.8430E-05_JPRB,5.8292E-05_JPRB/)  
+KBO( :,59, 6) = (/&
+ & 5.6238E-05_JPRB,5.2637E-05_JPRB,5.0574E-05_JPRB,4.9552E-05_JPRB,4.9287E-05_JPRB/)  
+KBO( :,13, 7) = (/&
+ & 6.2076E-01_JPRB,6.0643E-01_JPRB,5.9318E-01_JPRB,5.8083E-01_JPRB,5.6896E-01_JPRB/)  
+KBO( :,14, 7) = (/&
+ & 5.2361E-01_JPRB,5.1159E-01_JPRB,5.0059E-01_JPRB,4.9028E-01_JPRB,4.8050E-01_JPRB/)  
+KBO( :,15, 7) = (/&
+ & 4.4985E-01_JPRB,4.3986E-01_JPRB,4.3102E-01_JPRB,4.2237E-01_JPRB,4.1436E-01_JPRB/)  
+KBO( :,16, 7) = (/&
+ & 3.8706E-01_JPRB,3.7895E-01_JPRB,3.7119E-01_JPRB,3.6386E-01_JPRB,3.5724E-01_JPRB/)  
+KBO( :,17, 7) = (/&
+ & 3.2955E-01_JPRB,3.2266E-01_JPRB,3.1591E-01_JPRB,3.0973E-01_JPRB,3.0418E-01_JPRB/)  
+KBO( :,18, 7) = (/&
+ & 2.7679E-01_JPRB,2.7082E-01_JPRB,2.6513E-01_JPRB,2.5995E-01_JPRB,2.5545E-01_JPRB/)  
+KBO( :,19, 7) = (/&
+ & 2.3226E-01_JPRB,2.2714E-01_JPRB,2.2242E-01_JPRB,2.1825E-01_JPRB,2.1464E-01_JPRB/)  
+KBO( :,20, 7) = (/&
+ & 1.9394E-01_JPRB,1.8975E-01_JPRB,1.8600E-01_JPRB,1.8267E-01_JPRB,1.7989E-01_JPRB/)  
+KBO( :,21, 7) = (/&
+ & 1.6150E-01_JPRB,1.5816E-01_JPRB,1.5519E-01_JPRB,1.5258E-01_JPRB,1.5046E-01_JPRB/)  
+KBO( :,22, 7) = (/&
+ & 1.3388E-01_JPRB,1.3131E-01_JPRB,1.2899E-01_JPRB,1.2704E-01_JPRB,1.2536E-01_JPRB/)  
+KBO( :,23, 7) = (/&
+ & 1.1091E-01_JPRB,1.0891E-01_JPRB,1.0717E-01_JPRB,1.0571E-01_JPRB,1.0434E-01_JPRB/)  
+KBO( :,24, 7) = (/&
+ & 9.2054E-02_JPRB,9.0515E-02_JPRB,8.9212E-02_JPRB,8.8060E-02_JPRB,8.6983E-02_JPRB/)  
+KBO( :,25, 7) = (/&
+ & 7.6343E-02_JPRB,7.5207E-02_JPRB,7.4226E-02_JPRB,7.3309E-02_JPRB,7.2502E-02_JPRB/)  
+KBO( :,26, 7) = (/&
+ & 6.3290E-02_JPRB,6.2474E-02_JPRB,6.1708E-02_JPRB,6.1011E-02_JPRB,6.0412E-02_JPRB/)  
+KBO( :,27, 7) = (/&
+ & 5.2357E-02_JPRB,5.1753E-02_JPRB,5.1172E-02_JPRB,5.0665E-02_JPRB,5.0225E-02_JPRB/)  
+KBO( :,28, 7) = (/&
+ & 4.3244E-02_JPRB,4.2787E-02_JPRB,4.2361E-02_JPRB,4.2002E-02_JPRB,4.1698E-02_JPRB/)  
+KBO( :,29, 7) = (/&
+ & 3.5503E-02_JPRB,3.5181E-02_JPRB,3.4891E-02_JPRB,3.4654E-02_JPRB,3.4461E-02_JPRB/)  
+KBO( :,30, 7) = (/&
+ & 2.9099E-02_JPRB,2.8880E-02_JPRB,2.8695E-02_JPRB,2.8556E-02_JPRB,2.8451E-02_JPRB/)  
+KBO( :,31, 7) = (/&
+ & 2.3756E-02_JPRB,2.3624E-02_JPRB,2.3525E-02_JPRB,2.3461E-02_JPRB,2.3423E-02_JPRB/)  
+KBO( :,32, 7) = (/&
+ & 1.9426E-02_JPRB,1.9356E-02_JPRB,1.9321E-02_JPRB,1.9314E-02_JPRB,1.9320E-02_JPRB/)  
+KBO( :,33, 7) = (/&
+ & 1.5905E-02_JPRB,1.5887E-02_JPRB,1.5897E-02_JPRB,1.5926E-02_JPRB,1.5970E-02_JPRB/)  
+KBO( :,34, 7) = (/&
+ & 1.3090E-02_JPRB,1.3109E-02_JPRB,1.3146E-02_JPRB,1.3197E-02_JPRB,1.3269E-02_JPRB/)  
+KBO( :,35, 7) = (/&
+ & 1.0797E-02_JPRB,1.0836E-02_JPRB,1.0888E-02_JPRB,1.0958E-02_JPRB,1.1045E-02_JPRB/)  
+KBO( :,36, 7) = (/&
+ & 8.9196E-03_JPRB,8.9674E-03_JPRB,9.0310E-03_JPRB,9.1096E-03_JPRB,9.2030E-03_JPRB/)  
+KBO( :,37, 7) = (/&
+ & 7.4032E-03_JPRB,7.4569E-03_JPRB,7.5263E-03_JPRB,7.6089E-03_JPRB,7.7061E-03_JPRB/)  
+KBO( :,38, 7) = (/&
+ & 6.1455E-03_JPRB,6.2033E-03_JPRB,6.2752E-03_JPRB,6.3592E-03_JPRB,6.4581E-03_JPRB/)  
+KBO( :,39, 7) = (/&
+ & 5.1018E-03_JPRB,5.1610E-03_JPRB,5.2331E-03_JPRB,5.3164E-03_JPRB,5.4128E-03_JPRB/)  
+KBO( :,40, 7) = (/&
+ & 4.2521E-03_JPRB,4.3105E-03_JPRB,4.3809E-03_JPRB,4.4621E-03_JPRB,4.5540E-03_JPRB/)  
+KBO( :,41, 7) = (/&
+ & 3.5452E-03_JPRB,3.6013E-03_JPRB,3.6690E-03_JPRB,3.7462E-03_JPRB,3.8330E-03_JPRB/)  
+KBO( :,42, 7) = (/&
+ & 2.9546E-03_JPRB,3.0079E-03_JPRB,3.0718E-03_JPRB,3.1441E-03_JPRB,3.2249E-03_JPRB/)  
+KBO( :,43, 7) = (/&
+ & 2.4623E-03_JPRB,2.5120E-03_JPRB,2.5713E-03_JPRB,2.6380E-03_JPRB,2.7122E-03_JPRB/)  
+KBO( :,44, 7) = (/&
+ & 2.0503E-03_JPRB,2.0962E-03_JPRB,2.1506E-03_JPRB,2.2118E-03_JPRB,2.2791E-03_JPRB/)  
+KBO( :,45, 7) = (/&
+ & 1.7056E-03_JPRB,1.7475E-03_JPRB,1.7968E-03_JPRB,1.8522E-03_JPRB,1.9127E-03_JPRB/)  
+KBO( :,46, 7) = (/&
+ & 1.4169E-03_JPRB,1.4548E-03_JPRB,1.4988E-03_JPRB,1.5483E-03_JPRB,1.6024E-03_JPRB/)  
+KBO( :,47, 7) = (/&
+ & 1.1753E-03_JPRB,1.2090E-03_JPRB,1.2477E-03_JPRB,1.2915E-03_JPRB,1.3391E-03_JPRB/)  
+KBO( :,48, 7) = (/&
+ & 9.7359E-04_JPRB,1.0036E-03_JPRB,1.0372E-03_JPRB,1.0757E-03_JPRB,1.1176E-03_JPRB/)  
+KBO( :,49, 7) = (/&
+ & 8.0541E-04_JPRB,8.3180E-04_JPRB,8.6089E-04_JPRB,8.9457E-04_JPRB,9.3110E-04_JPRB/)  
+KBO( :,50, 7) = (/&
+ & 6.6674E-04_JPRB,6.8981E-04_JPRB,7.1508E-04_JPRB,7.4417E-04_JPRB,7.7606E-04_JPRB/)  
+KBO( :,51, 7) = (/&
+ & 5.5204E-04_JPRB,5.7200E-04_JPRB,5.9387E-04_JPRB,6.1888E-04_JPRB,6.4663E-04_JPRB/)  
+KBO( :,52, 7) = (/&
+ & 4.5687E-04_JPRB,4.7390E-04_JPRB,4.9275E-04_JPRB,5.1420E-04_JPRB,5.3821E-04_JPRB/)  
+KBO( :,53, 7) = (/&
+ & 3.7797E-04_JPRB,3.9233E-04_JPRB,4.0850E-04_JPRB,4.2681E-04_JPRB,4.4742E-04_JPRB/)  
+KBO( :,54, 7) = (/&
+ & 3.1354E-04_JPRB,3.2560E-04_JPRB,3.3944E-04_JPRB,3.5505E-04_JPRB,3.7284E-04_JPRB/)  
+KBO( :,55, 7) = (/&
+ & 2.6060E-04_JPRB,2.7065E-04_JPRB,2.8242E-04_JPRB,2.9574E-04_JPRB,3.1104E-04_JPRB/)  
+KBO( :,56, 7) = (/&
+ & 2.1677E-04_JPRB,2.2507E-04_JPRB,2.3503E-04_JPRB,2.4632E-04_JPRB,2.5934E-04_JPRB/)  
+KBO( :,57, 7) = (/&
+ & 1.8057E-04_JPRB,1.8733E-04_JPRB,1.9567E-04_JPRB,2.0522E-04_JPRB,2.1627E-04_JPRB/)  
+KBO( :,58, 7) = (/&
+ & 1.5084E-04_JPRB,1.5628E-04_JPRB,1.6318E-04_JPRB,1.7119E-04_JPRB,1.8056E-04_JPRB/)  
+KBO( :,59, 7) = (/&
+ & 1.2696E-04_JPRB,1.3148E-04_JPRB,1.3737E-04_JPRB,1.4430E-04_JPRB,1.5250E-04_JPRB/)  
+KBO( :,13, 8) = (/&
+ & 1.8749E+00_JPRB,1.8339E+00_JPRB,1.7958E+00_JPRB,1.7607E+00_JPRB,1.7271E+00_JPRB/)  
+KBO( :,14, 8) = (/&
+ & 1.5743E+00_JPRB,1.5413E+00_JPRB,1.5105E+00_JPRB,1.4812E+00_JPRB,1.4530E+00_JPRB/)  
+KBO( :,15, 8) = (/&
+ & 1.3213E+00_JPRB,1.2948E+00_JPRB,1.2694E+00_JPRB,1.2449E+00_JPRB,1.2211E+00_JPRB/)  
+KBO( :,16, 8) = (/&
+ & 1.1162E+00_JPRB,1.0945E+00_JPRB,1.0731E+00_JPRB,1.0524E+00_JPRB,1.0321E+00_JPRB/)  
+KBO( :,17, 8) = (/&
+ & 9.5687E-01_JPRB,9.3833E-01_JPRB,9.2020E-01_JPRB,9.0235E-01_JPRB,8.8485E-01_JPRB/)  
+KBO( :,18, 8) = (/&
+ & 8.2749E-01_JPRB,8.1191E-01_JPRB,7.9641E-01_JPRB,7.8105E-01_JPRB,7.6632E-01_JPRB/)  
+KBO( :,19, 8) = (/&
+ & 7.1804E-01_JPRB,7.0461E-01_JPRB,6.9106E-01_JPRB,6.7763E-01_JPRB,6.6520E-01_JPRB/)  
+KBO( :,20, 8) = (/&
+ & 6.1468E-01_JPRB,6.0286E-01_JPRB,5.9089E-01_JPRB,5.7959E-01_JPRB,5.6959E-01_JPRB/)  
+KBO( :,21, 8) = (/&
+ & 5.2096E-01_JPRB,5.1044E-01_JPRB,5.0026E-01_JPRB,4.9101E-01_JPRB,4.8331E-01_JPRB/)  
+KBO( :,22, 8) = (/&
+ & 4.3720E-01_JPRB,4.2829E-01_JPRB,4.2010E-01_JPRB,4.1308E-01_JPRB,4.0742E-01_JPRB/)  
+KBO( :,23, 8) = (/&
+ & 3.6550E-01_JPRB,3.5834E-01_JPRB,3.5202E-01_JPRB,3.4689E-01_JPRB,3.4279E-01_JPRB/)  
+KBO( :,24, 8) = (/&
+ & 3.0558E-01_JPRB,2.9995E-01_JPRB,2.9531E-01_JPRB,2.9161E-01_JPRB,2.8882E-01_JPRB/)  
+KBO( :,25, 8) = (/&
+ & 2.5505E-01_JPRB,2.5086E-01_JPRB,2.4760E-01_JPRB,2.4506E-01_JPRB,2.4335E-01_JPRB/)  
+KBO( :,26, 8) = (/&
+ & 2.1270E-01_JPRB,2.0980E-01_JPRB,2.0754E-01_JPRB,2.0600E-01_JPRB,2.0500E-01_JPRB/)  
+KBO( :,27, 8) = (/&
+ & 1.7708E-01_JPRB,1.7513E-01_JPRB,1.7373E-01_JPRB,1.7293E-01_JPRB,1.7242E-01_JPRB/)  
+KBO( :,28, 8) = (/&
+ & 1.4736E-01_JPRB,1.4615E-01_JPRB,1.4547E-01_JPRB,1.4511E-01_JPRB,1.4503E-01_JPRB/)  
+KBO( :,29, 8) = (/&
+ & 1.2217E-01_JPRB,1.2161E-01_JPRB,1.2142E-01_JPRB,1.2147E-01_JPRB,1.2176E-01_JPRB/)  
+KBO( :,30, 8) = (/&
+ & 1.0135E-01_JPRB,1.0129E-01_JPRB,1.0143E-01_JPRB,1.0181E-01_JPRB,1.0237E-01_JPRB/)  
+KBO( :,31, 8) = (/&
+ & 8.4026E-02_JPRB,8.4283E-02_JPRB,8.4701E-02_JPRB,8.5319E-02_JPRB,8.6090E-02_JPRB/)  
+KBO( :,32, 8) = (/&
+ & 6.9968E-02_JPRB,7.0421E-02_JPRB,7.1041E-02_JPRB,7.1799E-02_JPRB,7.2670E-02_JPRB/)  
+KBO( :,33, 8) = (/&
+ & 5.8463E-02_JPRB,5.9059E-02_JPRB,5.9804E-02_JPRB,6.0644E-02_JPRB,6.1569E-02_JPRB/)  
+KBO( :,34, 8) = (/&
+ & 4.9124E-02_JPRB,4.9817E-02_JPRB,5.0609E-02_JPRB,5.1484E-02_JPRB,5.2418E-02_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB11:PART4',1,ZHOOK_HANDLE)
+END SUBROUTINE PART4
+
+
+SUBROUTINE PART5
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB11:PART5',0,ZHOOK_HANDLE)
+
+
+KBO( :,35, 8) = (/&
+ & 4.1343E-02_JPRB,4.2075E-02_JPRB,4.2881E-02_JPRB,4.3757E-02_JPRB,4.4680E-02_JPRB/)  
+KBO( :,36, 8) = (/&
+ & 3.4807E-02_JPRB,3.5542E-02_JPRB,3.6329E-02_JPRB,3.7186E-02_JPRB,3.8085E-02_JPRB/)  
+KBO( :,37, 8) = (/&
+ & 2.9387E-02_JPRB,3.0107E-02_JPRB,3.0877E-02_JPRB,3.1701E-02_JPRB,3.2565E-02_JPRB/)  
+KBO( :,38, 8) = (/&
+ & 2.4810E-02_JPRB,2.5504E-02_JPRB,2.6245E-02_JPRB,2.7036E-02_JPRB,2.7858E-02_JPRB/)  
+KBO( :,39, 8) = (/&
+ & 2.0945E-02_JPRB,2.1603E-02_JPRB,2.2309E-02_JPRB,2.3055E-02_JPRB,2.3834E-02_JPRB/)  
+KBO( :,40, 8) = (/&
+ & 1.7727E-02_JPRB,1.8351E-02_JPRB,1.9022E-02_JPRB,1.9730E-02_JPRB,2.0475E-02_JPRB/)  
+KBO( :,41, 8) = (/&
+ & 1.5006E-02_JPRB,1.5596E-02_JPRB,1.6231E-02_JPRB,1.6901E-02_JPRB,1.7608E-02_JPRB/)  
+KBO( :,42, 8) = (/&
+ & 1.2699E-02_JPRB,1.3252E-02_JPRB,1.3848E-02_JPRB,1.4479E-02_JPRB,1.5149E-02_JPRB/)  
+KBO( :,43, 8) = (/&
+ & 1.0731E-02_JPRB,1.1247E-02_JPRB,1.1804E-02_JPRB,1.2397E-02_JPRB,1.3032E-02_JPRB/)  
+KBO( :,44, 8) = (/&
+ & 9.0535E-03_JPRB,9.5318E-03_JPRB,1.0051E-02_JPRB,1.0609E-02_JPRB,1.1207E-02_JPRB/)  
+KBO( :,45, 8) = (/&
+ & 7.6285E-03_JPRB,8.0697E-03_JPRB,8.5520E-03_JPRB,9.0723E-03_JPRB,9.6338E-03_JPRB/)  
+KBO( :,46, 8) = (/&
+ & 6.4125E-03_JPRB,6.8146E-03_JPRB,7.2602E-03_JPRB,7.7440E-03_JPRB,8.2655E-03_JPRB/)  
+KBO( :,47, 8) = (/&
+ & 5.3712E-03_JPRB,5.7353E-03_JPRB,6.1421E-03_JPRB,6.5868E-03_JPRB,7.0707E-03_JPRB/)  
+KBO( :,48, 8) = (/&
+ & 4.4885E-03_JPRB,4.8157E-03_JPRB,5.1854E-03_JPRB,5.5906E-03_JPRB,6.0354E-03_JPRB/)  
+KBO( :,49, 8) = (/&
+ & 3.7410E-03_JPRB,4.0329E-03_JPRB,4.3660E-03_JPRB,4.7329E-03_JPRB,5.1395E-03_JPRB/)  
+KBO( :,50, 8) = (/&
+ & 3.1195E-03_JPRB,3.3801E-03_JPRB,3.6785E-03_JPRB,4.0128E-03_JPRB,4.3847E-03_JPRB/)  
+KBO( :,51, 8) = (/&
+ & 2.5986E-03_JPRB,2.8303E-03_JPRB,3.0979E-03_JPRB,3.4004E-03_JPRB,3.7414E-03_JPRB/)  
+KBO( :,52, 8) = (/&
+ & 2.1586E-03_JPRB,2.3637E-03_JPRB,2.6022E-03_JPRB,2.8753E-03_JPRB,3.1853E-03_JPRB/)  
+KBO( :,53, 8) = (/&
+ & 1.7874E-03_JPRB,1.9676E-03_JPRB,2.1789E-03_JPRB,2.4235E-03_JPRB,2.7038E-03_JPRB/)  
+KBO( :,54, 8) = (/&
+ & 1.4850E-03_JPRB,1.6436E-03_JPRB,1.8314E-03_JPRB,2.0513E-03_JPRB,2.3056E-03_JPRB/)  
+KBO( :,55, 8) = (/&
+ & 1.2350E-03_JPRB,1.3746E-03_JPRB,1.5414E-03_JPRB,1.7391E-03_JPRB,1.9699E-03_JPRB/)  
+KBO( :,56, 8) = (/&
+ & 1.0255E-03_JPRB,1.1469E-03_JPRB,1.2945E-03_JPRB,1.4714E-03_JPRB,1.6800E-03_JPRB/)  
+KBO( :,57, 8) = (/&
+ & 8.4971E-04_JPRB,9.5464E-04_JPRB,1.0846E-03_JPRB,1.2416E-03_JPRB,1.4294E-03_JPRB/)  
+KBO( :,58, 8) = (/&
+ & 7.0441E-04_JPRB,7.9508E-04_JPRB,9.0916E-04_JPRB,1.0487E-03_JPRB,1.2170E-03_JPRB/)  
+KBO( :,59, 8) = (/&
+ & 5.9755E-04_JPRB,6.7949E-04_JPRB,7.8382E-04_JPRB,9.1237E-04_JPRB,1.0695E-03_JPRB/)  
+KBO( :,13, 9) = (/&
+ & 1.0788E+01_JPRB,1.0623E+01_JPRB,1.0458E+01_JPRB,1.0276E+01_JPRB,1.0096E+01_JPRB/)  
+KBO( :,14, 9) = (/&
+ & 9.3612E+00_JPRB,9.2219E+00_JPRB,9.0719E+00_JPRB,8.9125E+00_JPRB,8.7475E+00_JPRB/)  
+KBO( :,15, 9) = (/&
+ & 8.0594E+00_JPRB,7.9366E+00_JPRB,7.7985E+00_JPRB,7.6538E+00_JPRB,7.5121E+00_JPRB/)  
+KBO( :,16, 9) = (/&
+ & 6.8883E+00_JPRB,6.7721E+00_JPRB,6.6502E+00_JPRB,6.5309E+00_JPRB,6.4164E+00_JPRB/)  
+KBO( :,17, 9) = (/&
+ & 5.8447E+00_JPRB,5.7441E+00_JPRB,5.6460E+00_JPRB,5.5501E+00_JPRB,5.4594E+00_JPRB/)  
+KBO( :,18, 9) = (/&
+ & 4.9433E+00_JPRB,4.8620E+00_JPRB,4.7817E+00_JPRB,4.7042E+00_JPRB,4.6310E+00_JPRB/)  
+KBO( :,19, 9) = (/&
+ & 4.1982E+00_JPRB,4.1312E+00_JPRB,4.0653E+00_JPRB,4.0039E+00_JPRB,3.9459E+00_JPRB/)  
+KBO( :,20, 9) = (/&
+ & 3.5838E+00_JPRB,3.5285E+00_JPRB,3.4759E+00_JPRB,3.4263E+00_JPRB,3.3770E+00_JPRB/)  
+KBO( :,21, 9) = (/&
+ & 3.0778E+00_JPRB,3.0331E+00_JPRB,2.9909E+00_JPRB,2.9486E+00_JPRB,2.9057E+00_JPRB/)  
+KBO( :,22, 9) = (/&
+ & 2.6565E+00_JPRB,2.6204E+00_JPRB,2.5833E+00_JPRB,2.5458E+00_JPRB,2.5109E+00_JPRB/)  
+KBO( :,23, 9) = (/&
+ & 2.3092E+00_JPRB,2.2775E+00_JPRB,2.2448E+00_JPRB,2.2133E+00_JPRB,2.1844E+00_JPRB/)  
+KBO( :,24, 9) = (/&
+ & 2.0249E+00_JPRB,1.9974E+00_JPRB,1.9695E+00_JPRB,1.9433E+00_JPRB,1.9191E+00_JPRB/)  
+KBO( :,25, 9) = (/&
+ & 1.7740E+00_JPRB,1.7527E+00_JPRB,1.7317E+00_JPRB,1.7118E+00_JPRB,1.6945E+00_JPRB/)  
+KBO( :,26, 9) = (/&
+ & 1.5476E+00_JPRB,1.5328E+00_JPRB,1.5186E+00_JPRB,1.5057E+00_JPRB,1.4963E+00_JPRB/)  
+KBO( :,27, 9) = (/&
+ & 1.3401E+00_JPRB,1.3314E+00_JPRB,1.3233E+00_JPRB,1.3171E+00_JPRB,1.3143E+00_JPRB/)  
+KBO( :,28, 9) = (/&
+ & 1.1557E+00_JPRB,1.1517E+00_JPRB,1.1490E+00_JPRB,1.1490E+00_JPRB,1.1516E+00_JPRB/)  
+KBO( :,29, 9) = (/&
+ & 9.8748E-01_JPRB,9.8745E-01_JPRB,9.8953E-01_JPRB,9.9392E-01_JPRB,1.0010E+00_JPRB/)  
+KBO( :,30, 9) = (/&
+ & 8.4260E-01_JPRB,8.4608E-01_JPRB,8.5152E-01_JPRB,8.5914E-01_JPRB,8.6963E-01_JPRB/)  
+KBO( :,31, 9) = (/&
+ & 7.1579E-01_JPRB,7.2173E-01_JPRB,7.2917E-01_JPRB,7.3933E-01_JPRB,7.5097E-01_JPRB/)  
+KBO( :,32, 9) = (/&
+ & 6.1011E-01_JPRB,6.1766E-01_JPRB,6.2713E-01_JPRB,6.3845E-01_JPRB,6.5062E-01_JPRB/)  
+KBO( :,33, 9) = (/&
+ & 5.2120E-01_JPRB,5.3013E-01_JPRB,5.4091E-01_JPRB,5.5249E-01_JPRB,5.6506E-01_JPRB/)  
+KBO( :,34, 9) = (/&
+ & 4.4937E-01_JPRB,4.5962E-01_JPRB,4.7092E-01_JPRB,4.8296E-01_JPRB,4.9617E-01_JPRB/)  
+KBO( :,35, 9) = (/&
+ & 3.8853E-01_JPRB,3.9924E-01_JPRB,4.1075E-01_JPRB,4.2296E-01_JPRB,4.3648E-01_JPRB/)  
+KBO( :,36, 9) = (/&
+ & 3.3659E-01_JPRB,3.4736E-01_JPRB,3.5887E-01_JPRB,3.7122E-01_JPRB,3.8466E-01_JPRB/)  
+KBO( :,37, 9) = (/&
+ & 2.9273E-01_JPRB,3.0346E-01_JPRB,3.1486E-01_JPRB,3.2720E-01_JPRB,3.4049E-01_JPRB/)  
+KBO( :,38, 9) = (/&
+ & 2.5454E-01_JPRB,2.6503E-01_JPRB,2.7620E-01_JPRB,2.8834E-01_JPRB,3.0122E-01_JPRB/)  
+KBO( :,39, 9) = (/&
+ & 2.2111E-01_JPRB,2.3117E-01_JPRB,2.4193E-01_JPRB,2.5368E-01_JPRB,2.6599E-01_JPRB/)  
+KBO( :,40, 9) = (/&
+ & 1.9377E-01_JPRB,2.0358E-01_JPRB,2.1415E-01_JPRB,2.2567E-01_JPRB,2.3776E-01_JPRB/)  
+KBO( :,41, 9) = (/&
+ & 1.7005E-01_JPRB,1.7960E-01_JPRB,1.8995E-01_JPRB,2.0120E-01_JPRB,2.1299E-01_JPRB/)  
+KBO( :,42, 9) = (/&
+ & 1.4922E-01_JPRB,1.5844E-01_JPRB,1.6847E-01_JPRB,1.7937E-01_JPRB,1.9081E-01_JPRB/)  
+KBO( :,43, 9) = (/&
+ & 1.3075E-01_JPRB,1.3959E-01_JPRB,1.4924E-01_JPRB,1.5974E-01_JPRB,1.7085E-01_JPRB/)  
+KBO( :,44, 9) = (/&
+ & 1.1438E-01_JPRB,1.2283E-01_JPRB,1.3202E-01_JPRB,1.4209E-01_JPRB,1.5286E-01_JPRB/)  
+KBO( :,45, 9) = (/&
+ & 9.9902E-02_JPRB,1.0790E-01_JPRB,1.1661E-01_JPRB,1.2618E-01_JPRB,1.3651E-01_JPRB/)  
+KBO( :,46, 9) = (/&
+ & 8.7103E-02_JPRB,9.4627E-02_JPRB,1.0284E-01_JPRB,1.1186E-01_JPRB,1.2171E-01_JPRB/)  
+KBO( :,47, 9) = (/&
+ & 7.5878E-02_JPRB,8.2893E-02_JPRB,9.0643E-02_JPRB,9.9147E-02_JPRB,1.0851E-01_JPRB/)  
+KBO( :,48, 9) = (/&
+ & 6.5893E-02_JPRB,7.2362E-02_JPRB,7.9630E-02_JPRB,8.7572E-02_JPRB,9.6345E-02_JPRB/)  
+KBO( :,49, 9) = (/&
+ & 5.6945E-02_JPRB,6.2864E-02_JPRB,6.9577E-02_JPRB,7.6900E-02_JPRB,8.5016E-02_JPRB/)  
+KBO( :,50, 9) = (/&
+ & 4.9637E-02_JPRB,5.5145E-02_JPRB,6.1441E-02_JPRB,6.8345E-02_JPRB,7.5988E-02_JPRB/)  
+KBO( :,51, 9) = (/&
+ & 4.3422E-02_JPRB,4.8608E-02_JPRB,5.4551E-02_JPRB,6.1122E-02_JPRB,6.8380E-02_JPRB/)  
+KBO( :,52, 9) = (/&
+ & 3.7823E-02_JPRB,4.2708E-02_JPRB,4.8270E-02_JPRB,5.4493E-02_JPRB,6.1367E-02_JPRB/)  
+KBO( :,53, 9) = (/&
+ & 3.2716E-02_JPRB,3.7294E-02_JPRB,4.2470E-02_JPRB,4.8310E-02_JPRB,5.4754E-02_JPRB/)  
+KBO( :,54, 9) = (/&
+ & 2.8879E-02_JPRB,3.3341E-02_JPRB,3.8351E-02_JPRB,4.4083E-02_JPRB,5.0425E-02_JPRB/)  
+KBO( :,55, 9) = (/&
+ & 2.5791E-02_JPRB,3.0208E-02_JPRB,3.5200E-02_JPRB,4.0945E-02_JPRB,4.7385E-02_JPRB/)  
+KBO( :,56, 9) = (/&
+ & 2.2986E-02_JPRB,2.7363E-02_JPRB,3.2337E-02_JPRB,3.8064E-02_JPRB,4.4613E-02_JPRB/)  
+KBO( :,57, 9) = (/&
+ & 2.0449E-02_JPRB,2.4769E-02_JPRB,2.9701E-02_JPRB,3.5425E-02_JPRB,4.2056E-02_JPRB/)  
+KBO( :,58, 9) = (/&
+ & 1.8265E-02_JPRB,2.2536E-02_JPRB,2.7482E-02_JPRB,3.3264E-02_JPRB,4.0010E-02_JPRB/)  
+KBO( :,59, 9) = (/&
+ & 1.7419E-02_JPRB,2.1942E-02_JPRB,2.7259E-02_JPRB,3.3550E-02_JPRB,4.0933E-02_JPRB/)  
+KBO( :,13,10) = (/&
+ & 4.1739E+01_JPRB,4.1046E+01_JPRB,4.0406E+01_JPRB,3.9903E+01_JPRB,3.9432E+01_JPRB/)  
+KBO( :,14,10) = (/&
+ & 3.7780E+01_JPRB,3.7208E+01_JPRB,3.6738E+01_JPRB,3.6356E+01_JPRB,3.5932E+01_JPRB/)  
+KBO( :,15,10) = (/&
+ & 3.3722E+01_JPRB,3.3320E+01_JPRB,3.3014E+01_JPRB,3.2683E+01_JPRB,3.2296E+01_JPRB/)  
+KBO( :,16,10) = (/&
+ & 2.9809E+01_JPRB,2.9590E+01_JPRB,2.9319E+01_JPRB,2.8947E+01_JPRB,2.8490E+01_JPRB/)  
+KBO( :,17,10) = (/&
+ & 2.6216E+01_JPRB,2.5994E+01_JPRB,2.5636E+01_JPRB,2.5227E+01_JPRB,2.4815E+01_JPRB/)  
+KBO( :,18,10) = (/&
+ & 2.2808E+01_JPRB,2.2491E+01_JPRB,2.2154E+01_JPRB,2.1818E+01_JPRB,2.1508E+01_JPRB/)  
+KBO( :,19,10) = (/&
+ & 1.9565E+01_JPRB,1.9296E+01_JPRB,1.9038E+01_JPRB,1.8774E+01_JPRB,1.8537E+01_JPRB/)  
+KBO( :,20,10) = (/&
+ & 1.6665E+01_JPRB,1.6469E+01_JPRB,1.6266E+01_JPRB,1.6063E+01_JPRB,1.5906E+01_JPRB/)  
+KBO( :,21,10) = (/&
+ & 1.4150E+01_JPRB,1.3996E+01_JPRB,1.3834E+01_JPRB,1.3710E+01_JPRB,1.3628E+01_JPRB/)  
+KBO( :,22,10) = (/&
+ & 1.1976E+01_JPRB,1.1855E+01_JPRB,1.1765E+01_JPRB,1.1705E+01_JPRB,1.1637E+01_JPRB/)  
+KBO( :,23,10) = (/&
+ & 1.0127E+01_JPRB,1.0053E+01_JPRB,1.0018E+01_JPRB,9.9752E+00_JPRB,9.9226E+00_JPRB/)  
+KBO( :,24,10) = (/&
+ & 8.6146E+00_JPRB,8.5826E+00_JPRB,8.5522E+00_JPRB,8.5043E+00_JPRB,8.4734E+00_JPRB/)  
+KBO( :,25,10) = (/&
+ & 7.4968E+00_JPRB,7.4470E+00_JPRB,7.3837E+00_JPRB,7.3316E+00_JPRB,7.2993E+00_JPRB/)  
+KBO( :,26,10) = (/&
+ & 6.6803E+00_JPRB,6.6009E+00_JPRB,6.5219E+00_JPRB,6.4615E+00_JPRB,6.4001E+00_JPRB/)  
+KBO( :,27,10) = (/&
+ & 5.9868E+00_JPRB,5.9080E+00_JPRB,5.8394E+00_JPRB,5.7646E+00_JPRB,5.6979E+00_JPRB/)  
+KBO( :,28,10) = (/&
+ & 5.3464E+00_JPRB,5.2910E+00_JPRB,5.2326E+00_JPRB,5.1670E+00_JPRB,5.1173E+00_JPRB/)  
+KBO( :,29,10) = (/&
+ & 4.6977E+00_JPRB,4.6608E+00_JPRB,4.6112E+00_JPRB,4.5661E+00_JPRB,4.5356E+00_JPRB/)  
+KBO( :,30,10) = (/&
+ & 4.1012E+00_JPRB,4.0712E+00_JPRB,4.0379E+00_JPRB,4.0156E+00_JPRB,3.9964E+00_JPRB/)  
+KBO( :,31,10) = (/&
+ & 3.5181E+00_JPRB,3.4969E+00_JPRB,3.4850E+00_JPRB,3.4732E+00_JPRB,3.4789E+00_JPRB/)  
+KBO( :,32,10) = (/&
+ & 3.0189E+00_JPRB,3.0109E+00_JPRB,3.0086E+00_JPRB,3.0140E+00_JPRB,3.0440E+00_JPRB/)  
+KBO( :,33,10) = (/&
+ & 2.5886E+00_JPRB,2.5926E+00_JPRB,2.5982E+00_JPRB,2.6243E+00_JPRB,2.6716E+00_JPRB/)  
+KBO( :,34,10) = (/&
+ & 2.2587E+00_JPRB,2.2647E+00_JPRB,2.2836E+00_JPRB,2.3246E+00_JPRB,2.3804E+00_JPRB/)  
+KBO( :,35,10) = (/&
+ & 1.9773E+00_JPRB,1.9897E+00_JPRB,2.0203E+00_JPRB,2.0679E+00_JPRB,2.1301E+00_JPRB/)  
+KBO( :,36,10) = (/&
+ & 1.7395E+00_JPRB,1.7595E+00_JPRB,1.7974E+00_JPRB,1.8469E+00_JPRB,1.9158E+00_JPRB/)  
+KBO( :,37,10) = (/&
+ & 1.5472E+00_JPRB,1.5730E+00_JPRB,1.6139E+00_JPRB,1.6628E+00_JPRB,1.7327E+00_JPRB/)  
+KBO( :,38,10) = (/&
+ & 1.3714E+00_JPRB,1.4025E+00_JPRB,1.4462E+00_JPRB,1.4974E+00_JPRB,1.5691E+00_JPRB/)  
+KBO( :,39,10) = (/&
+ & 1.2087E+00_JPRB,1.2443E+00_JPRB,1.2905E+00_JPRB,1.3459E+00_JPRB,1.4223E+00_JPRB/)  
+KBO( :,40,10) = (/&
+ & 1.0876E+00_JPRB,1.1253E+00_JPRB,1.1721E+00_JPRB,1.2268E+00_JPRB,1.3018E+00_JPRB/)  
+KBO( :,41,10) = (/&
+ & 9.8026E-01_JPRB,1.0194E+00_JPRB,1.0667E+00_JPRB,1.1210E+00_JPRB,1.1950E+00_JPRB/)  
+KBO( :,42,10) = (/&
+ & 8.8231E-01_JPRB,9.2156E-01_JPRB,9.6932E-01_JPRB,1.0233E+00_JPRB,1.0965E+00_JPRB/)  
+KBO( :,43,10) = (/&
+ & 7.9349E-01_JPRB,8.3234E-01_JPRB,8.7952E-01_JPRB,9.3292E-01_JPRB,1.0030E+00_JPRB/)  
+KBO( :,44,10) = (/&
+ & 7.1136E-01_JPRB,7.4926E-01_JPRB,7.9572E-01_JPRB,8.4791E-01_JPRB,9.1488E-01_JPRB/)  
+KBO( :,45,10) = (/&
+ & 6.3430E-01_JPRB,6.7145E-01_JPRB,7.1626E-01_JPRB,7.6714E-01_JPRB,8.3123E-01_JPRB/)  
+KBO( :,46,10) = (/&
+ & 5.6439E-01_JPRB,6.0014E-01_JPRB,6.4281E-01_JPRB,6.9208E-01_JPRB,7.5262E-01_JPRB/)  
+KBO( :,47,10) = (/&
+ & 5.0247E-01_JPRB,5.3776E-01_JPRB,5.7789E-01_JPRB,6.2500E-01_JPRB,6.8134E-01_JPRB/)  
+KBO( :,48,10) = (/&
+ & 4.4383E-01_JPRB,4.7811E-01_JPRB,5.1539E-01_JPRB,5.6031E-01_JPRB,6.1366E-01_JPRB/)  
+KBO( :,49,10) = (/&
+ & 3.8764E-01_JPRB,4.2029E-01_JPRB,4.5444E-01_JPRB,4.9673E-01_JPRB,5.4849E-01_JPRB/)  
+KBO( :,50,10) = (/&
+ & 3.4416E-01_JPRB,3.7626E-01_JPRB,4.0876E-01_JPRB,4.4843E-01_JPRB,4.9768E-01_JPRB/)  
+KBO( :,51,10) = (/&
+ & 3.0832E-01_JPRB,3.4001E-01_JPRB,3.7156E-01_JPRB,4.0857E-01_JPRB,4.5514E-01_JPRB/)  
+KBO( :,52,10) = (/&
+ & 2.7467E-01_JPRB,3.0526E-01_JPRB,3.3577E-01_JPRB,3.7029E-01_JPRB,4.1417E-01_JPRB/)  
+KBO( :,53,10) = (/&
+ & 2.4290E-01_JPRB,2.7158E-01_JPRB,3.0075E-01_JPRB,3.3282E-01_JPRB,3.7486E-01_JPRB/)  
+KBO( :,54,10) = (/&
+ & 2.2403E-01_JPRB,2.5308E-01_JPRB,2.8293E-01_JPRB,3.1404E-01_JPRB,3.5280E-01_JPRB/)  
+KBO( :,55,10) = (/&
+ & 2.1196E-01_JPRB,2.4297E-01_JPRB,2.7480E-01_JPRB,3.0677E-01_JPRB,3.4328E-01_JPRB/)  
+KBO( :,56,10) = (/&
+ & 2.0061E-01_JPRB,2.3363E-01_JPRB,2.6759E-01_JPRB,3.0162E-01_JPRB,3.3751E-01_JPRB/)  
+KBO( :,57,10) = (/&
+ & 1.8972E-01_JPRB,2.2491E-01_JPRB,2.6131E-01_JPRB,2.9791E-01_JPRB,3.3473E-01_JPRB/)  
+KBO( :,58,10) = (/&
+ & 1.8070E-01_JPRB,2.1925E-01_JPRB,2.5864E-01_JPRB,2.9863E-01_JPRB,3.3832E-01_JPRB/)  
+KBO( :,59,10) = (/&
+ & 1.9009E-01_JPRB,2.3640E-01_JPRB,2.8437E-01_JPRB,3.3376E-01_JPRB,3.8278E-01_JPRB/)  
+KBO( :,13,11) = (/&
+ & 7.0149E+01_JPRB,6.9123E+01_JPRB,6.8075E+01_JPRB,6.6895E+01_JPRB,6.5820E+01_JPRB/)  
+KBO( :,14,11) = (/&
+ & 6.5578E+01_JPRB,6.4536E+01_JPRB,6.3472E+01_JPRB,6.2454E+01_JPRB,6.1689E+01_JPRB/)  
+KBO( :,15,11) = (/&
+ & 6.0260E+01_JPRB,5.9271E+01_JPRB,5.8388E+01_JPRB,5.7747E+01_JPRB,5.7148E+01_JPRB/)  
+KBO( :,16,11) = (/&
+ & 5.4585E+01_JPRB,5.3841E+01_JPRB,5.3248E+01_JPRB,5.2830E+01_JPRB,5.2312E+01_JPRB/)  
+KBO( :,17,11) = (/&
+ & 4.8861E+01_JPRB,4.8416E+01_JPRB,4.8107E+01_JPRB,4.7718E+01_JPRB,4.7237E+01_JPRB/)  
+KBO( :,18,11) = (/&
+ & 4.3383E+01_JPRB,4.3211E+01_JPRB,4.2923E+01_JPRB,4.2513E+01_JPRB,4.2012E+01_JPRB/)  
+KBO( :,19,11) = (/&
+ & 3.8334E+01_JPRB,3.8170E+01_JPRB,3.7821E+01_JPRB,3.7371E+01_JPRB,3.6895E+01_JPRB/)  
+KBO( :,20,11) = (/&
+ & 3.3555E+01_JPRB,3.3295E+01_JPRB,3.2935E+01_JPRB,3.2565E+01_JPRB,3.2201E+01_JPRB/)  
+KBO( :,21,11) = (/&
+ & 2.9039E+01_JPRB,2.8767E+01_JPRB,2.8509E+01_JPRB,2.8236E+01_JPRB,2.8026E+01_JPRB/)  
+KBO( :,22,11) = (/&
+ & 2.4902E+01_JPRB,2.4733E+01_JPRB,2.4566E+01_JPRB,2.4421E+01_JPRB,2.4354E+01_JPRB/)  
+KBO( :,23,11) = (/&
+ & 2.1296E+01_JPRB,2.1205E+01_JPRB,2.1131E+01_JPRB,2.1097E+01_JPRB,2.1132E+01_JPRB/)  
+KBO( :,24,11) = (/&
+ & 1.8198E+01_JPRB,1.8158E+01_JPRB,1.8158E+01_JPRB,1.8237E+01_JPRB,1.8336E+01_JPRB/)  
+KBO( :,25,11) = (/&
+ & 1.5544E+01_JPRB,1.5571E+01_JPRB,1.5662E+01_JPRB,1.5796E+01_JPRB,1.5933E+01_JPRB/)  
+KBO( :,26,11) = (/&
+ & 1.3326E+01_JPRB,1.3410E+01_JPRB,1.3550E+01_JPRB,1.3704E+01_JPRB,1.3869E+01_JPRB/)  
+KBO( :,27,11) = (/&
+ & 1.1535E+01_JPRB,1.1648E+01_JPRB,1.1786E+01_JPRB,1.1944E+01_JPRB,1.2119E+01_JPRB/)  
+KBO( :,28,11) = (/&
+ & 1.0126E+01_JPRB,1.0223E+01_JPRB,1.0334E+01_JPRB,1.0469E+01_JPRB,1.0651E+01_JPRB/)  
+KBO( :,29,11) = (/&
+ & 8.9101E+00_JPRB,8.9853E+00_JPRB,9.0819E+00_JPRB,9.2309E+00_JPRB,9.4172E+00_JPRB/)  
+KBO( :,30,11) = (/&
+ & 7.8287E+00_JPRB,7.9021E+00_JPRB,8.0148E+00_JPRB,8.1712E+00_JPRB,8.3714E+00_JPRB/)  
+KBO( :,31,11) = (/&
+ & 6.8306E+00_JPRB,6.9335E+00_JPRB,7.0726E+00_JPRB,7.2494E+00_JPRB,7.4774E+00_JPRB/)  
+KBO( :,32,11) = (/&
+ & 5.9792E+00_JPRB,6.1135E+00_JPRB,6.2718E+00_JPRB,6.4804E+00_JPRB,6.7529E+00_JPRB/)  
+KBO( :,33,11) = (/&
+ & 5.2618E+00_JPRB,5.4133E+00_JPRB,5.6076E+00_JPRB,5.8571E+00_JPRB,6.1763E+00_JPRB/)  
+KBO( :,34,11) = (/&
+ & 4.6698E+00_JPRB,4.8453E+00_JPRB,5.0695E+00_JPRB,5.3575E+00_JPRB,5.7160E+00_JPRB/)  
+KBO( :,35,11) = (/&
+ & 4.1584E+00_JPRB,4.3575E+00_JPRB,4.6070E+00_JPRB,4.9274E+00_JPRB,5.3225E+00_JPRB/)  
+KBO( :,36,11) = (/&
+ & 3.7186E+00_JPRB,3.9296E+00_JPRB,4.1978E+00_JPRB,4.5407E+00_JPRB,4.9651E+00_JPRB/)  
+KBO( :,37,11) = (/&
+ & 3.3279E+00_JPRB,3.5372E+00_JPRB,3.8098E+00_JPRB,4.1628E+00_JPRB,4.5979E+00_JPRB/)  
+KBO( :,38,11) = (/&
+ & 2.9878E+00_JPRB,3.1966E+00_JPRB,3.4726E+00_JPRB,3.8328E+00_JPRB,4.2770E+00_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB11:PART5',1,ZHOOK_HANDLE)
+END SUBROUTINE PART5
+
+
+SUBROUTINE PART6
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB11:PART6',0,ZHOOK_HANDLE)
+
+
+KBO( :,39,11) = (/&
+ & 2.6914E+00_JPRB,2.9029E+00_JPRB,3.1837E+00_JPRB,3.5477E+00_JPRB,4.0016E+00_JPRB/)  
+KBO( :,40,11) = (/&
+ & 2.4319E+00_JPRB,2.6362E+00_JPRB,2.9062E+00_JPRB,3.2638E+00_JPRB,3.7133E+00_JPRB/)  
+KBO( :,41,11) = (/&
+ & 2.2031E+00_JPRB,2.4012E+00_JPRB,2.6621E+00_JPRB,3.0107E+00_JPRB,3.4498E+00_JPRB/)  
+KBO( :,42,11) = (/&
+ & 2.0013E+00_JPRB,2.1930E+00_JPRB,2.4477E+00_JPRB,2.7865E+00_JPRB,3.2158E+00_JPRB/)  
+KBO( :,43,11) = (/&
+ & 1.8155E+00_JPRB,1.9974E+00_JPRB,2.2421E+00_JPRB,2.5673E+00_JPRB,2.9810E+00_JPRB/)  
+KBO( :,44,11) = (/&
+ & 1.6439E+00_JPRB,1.8173E+00_JPRB,2.0498E+00_JPRB,2.3631E+00_JPRB,2.7568E+00_JPRB/)  
+KBO( :,45,11) = (/&
+ & 1.4842E+00_JPRB,1.6535E+00_JPRB,1.8762E+00_JPRB,2.1775E+00_JPRB,2.5541E+00_JPRB/)  
+KBO( :,46,11) = (/&
+ & 1.3346E+00_JPRB,1.5007E+00_JPRB,1.7141E+00_JPRB,2.0007E+00_JPRB,2.3614E+00_JPRB/)  
+KBO( :,47,11) = (/&
+ & 1.1958E+00_JPRB,1.3538E+00_JPRB,1.5588E+00_JPRB,1.8260E+00_JPRB,2.1685E+00_JPRB/)  
+KBO( :,48,11) = (/&
+ & 1.0640E+00_JPRB,1.2166E+00_JPRB,1.4134E+00_JPRB,1.6668E+00_JPRB,1.9895E+00_JPRB/)  
+KBO( :,49,11) = (/&
+ & 9.3797E-01_JPRB,1.0854E+00_JPRB,1.2775E+00_JPRB,1.5201E+00_JPRB,1.8241E+00_JPRB/)  
+KBO( :,50,11) = (/&
+ & 8.3668E-01_JPRB,9.7538E-01_JPRB,1.1607E+00_JPRB,1.3932E+00_JPRB,1.6808E+00_JPRB/)  
+KBO( :,51,11) = (/&
+ & 7.5008E-01_JPRB,8.7912E-01_JPRB,1.0560E+00_JPRB,1.2775E+00_JPRB,1.5512E+00_JPRB/)  
+KBO( :,52,11) = (/&
+ & 6.6890E-01_JPRB,7.8952E-01_JPRB,9.5710E-01_JPRB,1.1702E+00_JPRB,1.4314E+00_JPRB/)  
+KBO( :,53,11) = (/&
+ & 5.9133E-01_JPRB,7.0597E-01_JPRB,8.6435E-01_JPRB,1.0696E+00_JPRB,1.3200E+00_JPRB/)  
+KBO( :,54,11) = (/&
+ & 5.4247E-01_JPRB,6.4706E-01_JPRB,7.9188E-01_JPRB,9.8503E-01_JPRB,1.2232E+00_JPRB/)  
+KBO( :,55,11) = (/&
+ & 5.1549E-01_JPRB,6.0734E-01_JPRB,7.3731E-01_JPRB,9.1442E-01_JPRB,1.1379E+00_JPRB/)  
+KBO( :,56,11) = (/&
+ & 4.9471E-01_JPRB,5.7941E-01_JPRB,6.9440E-01_JPRB,8.5446E-01_JPRB,1.0607E+00_JPRB/)  
+KBO( :,57,11) = (/&
+ & 4.7679E-01_JPRB,5.6152E-01_JPRB,6.6311E-01_JPRB,8.0517E-01_JPRB,9.9285E-01_JPRB/)  
+KBO( :,58,11) = (/&
+ & 4.6722E-01_JPRB,5.5574E-01_JPRB,6.5140E-01_JPRB,7.7485E-01_JPRB,9.4214E-01_JPRB/)  
+KBO( :,59,11) = (/&
+ & 5.1746E-01_JPRB,6.2446E-01_JPRB,7.3396E-01_JPRB,8.4651E-01_JPRB,9.8677E-01_JPRB/)  
+KBO( :,13,12) = (/&
+ & 1.1763E+02_JPRB,1.1704E+02_JPRB,1.1603E+02_JPRB,1.1496E+02_JPRB,1.1364E+02_JPRB/)  
+KBO( :,14,12) = (/&
+ & 1.1720E+02_JPRB,1.1632E+02_JPRB,1.1514E+02_JPRB,1.1375E+02_JPRB,1.1226E+02_JPRB/)  
+KBO( :,15,12) = (/&
+ & 1.1432E+02_JPRB,1.1304E+02_JPRB,1.1152E+02_JPRB,1.1000E+02_JPRB,1.0842E+02_JPRB/)  
+KBO( :,16,12) = (/&
+ & 1.0854E+02_JPRB,1.0712E+02_JPRB,1.0555E+02_JPRB,1.0402E+02_JPRB,1.0281E+02_JPRB/)  
+KBO( :,17,12) = (/&
+ & 1.0094E+02_JPRB,9.9554E+01_JPRB,9.8139E+01_JPRB,9.7144E+01_JPRB,9.6378E+01_JPRB/)  
+KBO( :,18,12) = (/&
+ & 9.2454E+01_JPRB,9.1307E+01_JPRB,9.0476E+01_JPRB,8.9927E+01_JPRB,8.9509E+01_JPRB/)  
+KBO( :,19,12) = (/&
+ & 8.3732E+01_JPRB,8.3060E+01_JPRB,8.2781E+01_JPRB,8.2603E+01_JPRB,8.2376E+01_JPRB/)  
+KBO( :,20,12) = (/&
+ & 7.5210E+01_JPRB,7.5083E+01_JPRB,7.5219E+01_JPRB,7.5148E+01_JPRB,7.5022E+01_JPRB/)  
+KBO( :,21,12) = (/&
+ & 6.7221E+01_JPRB,6.7502E+01_JPRB,6.7667E+01_JPRB,6.7706E+01_JPRB,6.7670E+01_JPRB/)  
+KBO( :,22,12) = (/&
+ & 5.9857E+01_JPRB,6.0211E+01_JPRB,6.0464E+01_JPRB,6.0528E+01_JPRB,6.0584E+01_JPRB/)  
+KBO( :,23,12) = (/&
+ & 5.3034E+01_JPRB,5.3411E+01_JPRB,5.3657E+01_JPRB,5.3849E+01_JPRB,5.4089E+01_JPRB/)  
+KBO( :,24,12) = (/&
+ & 4.6747E+01_JPRB,4.7114E+01_JPRB,4.7455E+01_JPRB,4.7832E+01_JPRB,4.8289E+01_JPRB/)  
+KBO( :,25,12) = (/&
+ & 4.1034E+01_JPRB,4.1487E+01_JPRB,4.1992E+01_JPRB,4.2559E+01_JPRB,4.3281E+01_JPRB/)  
+KBO( :,26,12) = (/&
+ & 3.5986E+01_JPRB,3.6596E+01_JPRB,3.7280E+01_JPRB,3.8073E+01_JPRB,3.9028E+01_JPRB/)  
+KBO( :,27,12) = (/&
+ & 3.1660E+01_JPRB,3.2405E+01_JPRB,3.3245E+01_JPRB,3.4269E+01_JPRB,3.5471E+01_JPRB/)  
+KBO( :,28,12) = (/&
+ & 2.7947E+01_JPRB,2.8848E+01_JPRB,2.9895E+01_JPRB,3.1146E+01_JPRB,3.2530E+01_JPRB/)  
+KBO( :,29,12) = (/&
+ & 2.4835E+01_JPRB,2.5907E+01_JPRB,2.7165E+01_JPRB,2.8573E+01_JPRB,3.0101E+01_JPRB/)  
+KBO( :,30,12) = (/&
+ & 2.2283E+01_JPRB,2.3505E+01_JPRB,2.4915E+01_JPRB,2.6460E+01_JPRB,2.8145E+01_JPRB/)  
+KBO( :,31,12) = (/&
+ & 2.0220E+01_JPRB,2.1547E+01_JPRB,2.3078E+01_JPRB,2.4775E+01_JPRB,2.6630E+01_JPRB/)  
+KBO( :,32,12) = (/&
+ & 1.8546E+01_JPRB,1.9996E+01_JPRB,2.1643E+01_JPRB,2.3497E+01_JPRB,2.5478E+01_JPRB/)  
+KBO( :,33,12) = (/&
+ & 1.7230E+01_JPRB,1.8797E+01_JPRB,2.0565E+01_JPRB,2.2562E+01_JPRB,2.4685E+01_JPRB/)  
+KBO( :,34,12) = (/&
+ & 1.6179E+01_JPRB,1.7864E+01_JPRB,1.9755E+01_JPRB,2.1868E+01_JPRB,2.4108E+01_JPRB/)  
+KBO( :,35,12) = (/&
+ & 1.5234E+01_JPRB,1.7011E+01_JPRB,1.9013E+01_JPRB,2.1222E+01_JPRB,2.3546E+01_JPRB/)  
+KBO( :,36,12) = (/&
+ & 1.4312E+01_JPRB,1.6162E+01_JPRB,1.8243E+01_JPRB,2.0518E+01_JPRB,2.2905E+01_JPRB/)  
+KBO( :,37,12) = (/&
+ & 1.3297E+01_JPRB,1.5184E+01_JPRB,1.7295E+01_JPRB,1.9599E+01_JPRB,2.2032E+01_JPRB/)  
+KBO( :,38,12) = (/&
+ & 1.2404E+01_JPRB,1.4319E+01_JPRB,1.6454E+01_JPRB,1.8773E+01_JPRB,2.1247E+01_JPRB/)  
+KBO( :,39,12) = (/&
+ & 1.1631E+01_JPRB,1.3561E+01_JPRB,1.5713E+01_JPRB,1.8045E+01_JPRB,2.0533E+01_JPRB/)  
+KBO( :,40,12) = (/&
+ & 1.0776E+01_JPRB,1.2683E+01_JPRB,1.4823E+01_JPRB,1.7145E+01_JPRB,1.9624E+01_JPRB/)  
+KBO( :,41,12) = (/&
+ & 9.9846E+00_JPRB,1.1854E+01_JPRB,1.3973E+01_JPRB,1.6278E+01_JPRB,1.8741E+01_JPRB/)  
+KBO( :,42,12) = (/&
+ & 9.2669E+00_JPRB,1.1094E+01_JPRB,1.3178E+01_JPRB,1.5464E+01_JPRB,1.7906E+01_JPRB/)  
+KBO( :,43,12) = (/&
+ & 8.5220E+00_JPRB,1.0286E+01_JPRB,1.2314E+01_JPRB,1.4565E+01_JPRB,1.6968E+01_JPRB/)  
+KBO( :,44,12) = (/&
+ & 7.8007E+00_JPRB,9.4905E+00_JPRB,1.1450E+01_JPRB,1.3650E+01_JPRB,1.6009E+01_JPRB/)  
+KBO( :,45,12) = (/&
+ & 7.1409E+00_JPRB,8.7509E+00_JPRB,1.0635E+01_JPRB,1.2772E+01_JPRB,1.5090E+01_JPRB/)  
+KBO( :,46,12) = (/&
+ & 6.4944E+00_JPRB,8.0237E+00_JPRB,9.8250E+00_JPRB,1.1888E+01_JPRB,1.4153E+01_JPRB/)  
+KBO( :,47,12) = (/&
+ & 5.8398E+00_JPRB,7.2873E+00_JPRB,8.9871E+00_JPRB,1.0958E+01_JPRB,1.3150E+01_JPRB/)  
+KBO( :,48,12) = (/&
+ & 5.2382E+00_JPRB,6.6014E+00_JPRB,8.2063E+00_JPRB,1.0074E+01_JPRB,1.2187E+01_JPRB/)  
+KBO( :,49,12) = (/&
+ & 4.6806E+00_JPRB,5.9636E+00_JPRB,7.4774E+00_JPRB,9.2397E+00_JPRB,1.1262E+01_JPRB/)  
+KBO( :,50,12) = (/&
+ & 4.1950E+00_JPRB,5.4065E+00_JPRB,6.8409E+00_JPRB,8.5038E+00_JPRB,1.0433E+01_JPRB/)  
+KBO( :,51,12) = (/&
+ & 3.7601E+00_JPRB,4.9006E+00_JPRB,6.2541E+00_JPRB,7.8347E+00_JPRB,9.6656E+00_JPRB/)  
+KBO( :,52,12) = (/&
+ & 3.3634E+00_JPRB,4.4254E+00_JPRB,5.7055E+00_JPRB,7.2078E+00_JPRB,8.9393E+00_JPRB/)  
+KBO( :,53,12) = (/&
+ & 2.9998E+00_JPRB,3.9820E+00_JPRB,5.1884E+00_JPRB,6.6101E+00_JPRB,8.2541E+00_JPRB/)  
+KBO( :,54,12) = (/&
+ & 2.6868E+00_JPRB,3.6047E+00_JPRB,4.7437E+00_JPRB,6.0916E+00_JPRB,7.6592E+00_JPRB/)  
+KBO( :,55,12) = (/&
+ & 2.4117E+00_JPRB,3.2705E+00_JPRB,4.3398E+00_JPRB,5.6205E+00_JPRB,7.1187E+00_JPRB/)  
+KBO( :,56,12) = (/&
+ & 2.1660E+00_JPRB,2.9605E+00_JPRB,3.9604E+00_JPRB,5.1726E+00_JPRB,6.6011E+00_JPRB/)  
+KBO( :,57,12) = (/&
+ & 1.9495E+00_JPRB,2.6745E+00_JPRB,3.6080E+00_JPRB,4.7499E+00_JPRB,6.1107E+00_JPRB/)  
+KBO( :,58,12) = (/&
+ & 1.7779E+00_JPRB,2.4322E+00_JPRB,3.2974E+00_JPRB,4.3714E+00_JPRB,5.6684E+00_JPRB/)  
+KBO( :,59,12) = (/&
+ & 1.8044E+00_JPRB,2.3958E+00_JPRB,3.1943E+00_JPRB,4.2235E+00_JPRB,5.4952E+00_JPRB/)  
+KBO( :,13,13) = (/&
+ & 2.0512E+02_JPRB,2.0180E+02_JPRB,1.9927E+02_JPRB,1.9697E+02_JPRB,1.9484E+02_JPRB/)  
+KBO( :,14,13) = (/&
+ & 2.1130E+02_JPRB,2.0859E+02_JPRB,2.0670E+02_JPRB,2.0479E+02_JPRB,2.0269E+02_JPRB/)  
+KBO( :,15,13) = (/&
+ & 2.1567E+02_JPRB,2.1436E+02_JPRB,2.1270E+02_JPRB,2.1071E+02_JPRB,2.0862E+02_JPRB/)  
+KBO( :,16,13) = (/&
+ & 2.1924E+02_JPRB,2.1808E+02_JPRB,2.1632E+02_JPRB,2.1429E+02_JPRB,2.1205E+02_JPRB/)  
+KBO( :,17,13) = (/&
+ & 2.1990E+02_JPRB,2.1849E+02_JPRB,2.1654E+02_JPRB,2.1444E+02_JPRB,2.1217E+02_JPRB/)  
+KBO( :,18,13) = (/&
+ & 2.1655E+02_JPRB,2.1510E+02_JPRB,2.1314E+02_JPRB,2.1102E+02_JPRB,2.0899E+02_JPRB/)  
+KBO( :,19,13) = (/&
+ & 2.0961E+02_JPRB,2.0798E+02_JPRB,2.0612E+02_JPRB,2.0453E+02_JPRB,2.0306E+02_JPRB/)  
+KBO( :,20,13) = (/&
+ & 1.9928E+02_JPRB,1.9792E+02_JPRB,1.9688E+02_JPRB,1.9606E+02_JPRB,1.9544E+02_JPRB/)  
+KBO( :,21,13) = (/&
+ & 1.8688E+02_JPRB,1.8632E+02_JPRB,1.8628E+02_JPRB,1.8637E+02_JPRB,1.8670E+02_JPRB/)  
+KBO( :,22,13) = (/&
+ & 1.7350E+02_JPRB,1.7419E+02_JPRB,1.7515E+02_JPRB,1.7641E+02_JPRB,1.7783E+02_JPRB/)  
+KBO( :,23,13) = (/&
+ & 1.6055E+02_JPRB,1.6233E+02_JPRB,1.6459E+02_JPRB,1.6688E+02_JPRB,1.6939E+02_JPRB/)  
+KBO( :,24,13) = (/&
+ & 1.4859E+02_JPRB,1.5153E+02_JPRB,1.5476E+02_JPRB,1.5830E+02_JPRB,1.6165E+02_JPRB/)  
+KBO( :,25,13) = (/&
+ & 1.3793E+02_JPRB,1.4190E+02_JPRB,1.4615E+02_JPRB,1.5046E+02_JPRB,1.5447E+02_JPRB/)  
+KBO( :,26,13) = (/&
+ & 1.2881E+02_JPRB,1.3370E+02_JPRB,1.3871E+02_JPRB,1.4366E+02_JPRB,1.4837E+02_JPRB/)  
+KBO( :,27,13) = (/&
+ & 1.2091E+02_JPRB,1.2669E+02_JPRB,1.3236E+02_JPRB,1.3790E+02_JPRB,1.4323E+02_JPRB/)  
+KBO( :,28,13) = (/&
+ & 1.1443E+02_JPRB,1.2084E+02_JPRB,1.2716E+02_JPRB,1.3332E+02_JPRB,1.3925E+02_JPRB/)  
+KBO( :,29,13) = (/&
+ & 1.0924E+02_JPRB,1.1623E+02_JPRB,1.2318E+02_JPRB,1.2992E+02_JPRB,1.3643E+02_JPRB/)  
+KBO( :,30,13) = (/&
+ & 1.0522E+02_JPRB,1.1286E+02_JPRB,1.2038E+02_JPRB,1.2758E+02_JPRB,1.3457E+02_JPRB/)  
+KBO( :,31,13) = (/&
+ & 1.0235E+02_JPRB,1.1060E+02_JPRB,1.1856E+02_JPRB,1.2616E+02_JPRB,1.3349E+02_JPRB/)  
+KBO( :,32,13) = (/&
+ & 1.0060E+02_JPRB,1.0929E+02_JPRB,1.1766E+02_JPRB,1.2555E+02_JPRB,1.3305E+02_JPRB/)  
+KBO( :,33,13) = (/&
+ & 9.9754E+01_JPRB,1.0883E+02_JPRB,1.1748E+02_JPRB,1.2555E+02_JPRB,1.3314E+02_JPRB/)  
+KBO( :,34,13) = (/&
+ & 9.9339E+01_JPRB,1.0865E+02_JPRB,1.1753E+02_JPRB,1.2571E+02_JPRB,1.3339E+02_JPRB/)  
+KBO( :,35,13) = (/&
+ & 9.8596E+01_JPRB,1.0810E+02_JPRB,1.1714E+02_JPRB,1.2546E+02_JPRB,1.3323E+02_JPRB/)  
+KBO( :,36,13) = (/&
+ & 9.7185E+01_JPRB,1.0690E+02_JPRB,1.1612E+02_JPRB,1.2461E+02_JPRB,1.3247E+02_JPRB/)  
+KBO( :,37,13) = (/&
+ & 9.4552E+01_JPRB,1.0450E+02_JPRB,1.1396E+02_JPRB,1.2268E+02_JPRB,1.3072E+02_JPRB/)  
+KBO( :,38,13) = (/&
+ & 9.2021E+01_JPRB,1.0218E+02_JPRB,1.1183E+02_JPRB,1.2080E+02_JPRB,1.2896E+02_JPRB/)  
+KBO( :,39,13) = (/&
+ & 8.9655E+01_JPRB,1.0001E+02_JPRB,1.0984E+02_JPRB,1.1901E+02_JPRB,1.2733E+02_JPRB/)  
+KBO( :,40,13) = (/&
+ & 8.6395E+01_JPRB,9.6898E+01_JPRB,1.0693E+02_JPRB,1.1637E+02_JPRB,1.2493E+02_JPRB/)  
+KBO( :,41,13) = (/&
+ & 8.3008E+01_JPRB,9.3700E+01_JPRB,1.0393E+02_JPRB,1.1362E+02_JPRB,1.2243E+02_JPRB/)  
+KBO( :,42,13) = (/&
+ & 7.9672E+01_JPRB,9.0529E+01_JPRB,1.0096E+02_JPRB,1.1088E+02_JPRB,1.1992E+02_JPRB/)  
+KBO( :,43,13) = (/&
+ & 7.5762E+01_JPRB,8.6769E+01_JPRB,9.7419E+01_JPRB,1.0755E+02_JPRB,1.1689E+02_JPRB/)  
+KBO( :,44,13) = (/&
+ & 7.1629E+01_JPRB,8.2730E+01_JPRB,9.3566E+01_JPRB,1.0394E+02_JPRB,1.1358E+02_JPRB/)  
+KBO( :,45,13) = (/&
+ & 6.7556E+01_JPRB,7.8701E+01_JPRB,8.9702E+01_JPRB,1.0031E+02_JPRB,1.1019E+02_JPRB/)  
+KBO( :,46,13) = (/&
+ & 6.3293E+01_JPRB,7.4433E+01_JPRB,8.5570E+01_JPRB,9.6371E+01_JPRB,1.0651E+02_JPRB/)  
+KBO( :,47,13) = (/&
+ & 5.8590E+01_JPRB,6.9723E+01_JPRB,8.0924E+01_JPRB,9.1933E+01_JPRB,1.0234E+02_JPRB/)  
+KBO( :,48,13) = (/&
+ & 5.3939E+01_JPRB,6.5035E+01_JPRB,7.6260E+01_JPRB,8.7442E+01_JPRB,9.8085E+01_JPRB/)  
+KBO( :,49,13) = (/&
+ & 4.9372E+01_JPRB,6.0382E+01_JPRB,7.1607E+01_JPRB,8.2898E+01_JPRB,9.3743E+01_JPRB/)  
+KBO( :,50,13) = (/&
+ & 4.5182E+01_JPRB,5.6046E+01_JPRB,6.7282E+01_JPRB,7.8580E+01_JPRB,8.9608E+01_JPRB/)  
+KBO( :,51,13) = (/&
+ & 4.1225E+01_JPRB,5.1903E+01_JPRB,6.3083E+01_JPRB,7.4337E+01_JPRB,8.5550E+01_JPRB/)  
+KBO( :,52,13) = (/&
+ & 3.7400E+01_JPRB,4.7849E+01_JPRB,5.8911E+01_JPRB,7.0135E+01_JPRB,8.1453E+01_JPRB/)  
+KBO( :,53,13) = (/&
+ & 3.3724E+01_JPRB,4.3867E+01_JPRB,5.4766E+01_JPRB,6.5951E+01_JPRB,7.7304E+01_JPRB/)  
+KBO( :,54,13) = (/&
+ & 3.0521E+01_JPRB,4.0307E+01_JPRB,5.1017E+01_JPRB,6.2127E+01_JPRB,7.3480E+01_JPRB/)  
+KBO( :,55,13) = (/&
+ & 2.7567E+01_JPRB,3.6992E+01_JPRB,4.7489E+01_JPRB,5.8488E+01_JPRB,6.9808E+01_JPRB/)  
+KBO( :,56,13) = (/&
+ & 2.4765E+01_JPRB,3.3801E+01_JPRB,4.4027E+01_JPRB,5.4887E+01_JPRB,6.6150E+01_JPRB/)  
+KBO( :,57,13) = (/&
+ & 2.2126E+01_JPRB,3.0733E+01_JPRB,4.0624E+01_JPRB,5.1332E+01_JPRB,6.2512E+01_JPRB/)  
+KBO( :,58,13) = (/&
+ & 1.9779E+01_JPRB,2.7951E+01_JPRB,3.7480E+01_JPRB,4.7995E+01_JPRB,5.9073E+01_JPRB/)  
+KBO( :,59,13) = (/&
+ & 1.8871E+01_JPRB,2.6859E+01_JPRB,3.6240E+01_JPRB,4.6659E+01_JPRB,5.7692E+01_JPRB/)  
+KBO( :,13,14) = (/&
+ & 3.8707E+02_JPRB,3.8322E+02_JPRB,3.7871E+02_JPRB,3.7328E+02_JPRB,3.6786E+02_JPRB/)  
+KBO( :,14,14) = (/&
+ & 4.1884E+02_JPRB,4.1330E+02_JPRB,4.0744E+02_JPRB,4.0116E+02_JPRB,3.9496E+02_JPRB/)  
+KBO( :,15,14) = (/&
+ & 4.4801E+02_JPRB,4.4018E+02_JPRB,4.3297E+02_JPRB,4.2678E+02_JPRB,4.2069E+02_JPRB/)  
+KBO( :,16,14) = (/&
+ & 4.7264E+02_JPRB,4.6443E+02_JPRB,4.5766E+02_JPRB,4.5139E+02_JPRB,4.4521E+02_JPRB/)  
+KBO( :,17,14) = (/&
+ & 4.9540E+02_JPRB,4.8838E+02_JPRB,4.8129E+02_JPRB,4.7490E+02_JPRB,4.6866E+02_JPRB/)  
+KBO( :,18,14) = (/&
+ & 5.1671E+02_JPRB,5.0996E+02_JPRB,5.0313E+02_JPRB,4.9709E+02_JPRB,4.9175E+02_JPRB/)  
+KBO( :,19,14) = (/&
+ & 5.3506E+02_JPRB,5.2890E+02_JPRB,5.2336E+02_JPRB,5.1765E+02_JPRB,5.1228E+02_JPRB/)  
+KBO( :,20,14) = (/&
+ & 5.5004E+02_JPRB,5.4514E+02_JPRB,5.3989E+02_JPRB,5.3465E+02_JPRB,5.2969E+02_JPRB/)  
+KBO( :,21,14) = (/&
+ & 5.6147E+02_JPRB,5.5729E+02_JPRB,5.5301E+02_JPRB,5.4855E+02_JPRB,5.4414E+02_JPRB/)  
+KBO( :,22,14) = (/&
+ & 5.6866E+02_JPRB,5.6616E+02_JPRB,5.6274E+02_JPRB,5.5924E+02_JPRB,5.5570E+02_JPRB/)  
+KBO( :,23,14) = (/&
+ & 5.7274E+02_JPRB,5.7195E+02_JPRB,5.7007E+02_JPRB,5.6757E+02_JPRB,5.6416E+02_JPRB/)  
+KBO( :,24,14) = (/&
+ & 5.7471E+02_JPRB,5.7582E+02_JPRB,5.7502E+02_JPRB,5.7329E+02_JPRB,5.7041E+02_JPRB/)  
+KBO( :,25,14) = (/&
+ & 5.7535E+02_JPRB,5.7804E+02_JPRB,5.7836E+02_JPRB,5.7753E+02_JPRB,5.7582E+02_JPRB/)  
+KBO( :,26,14) = (/&
+ & 5.7542E+02_JPRB,5.7938E+02_JPRB,5.8066E+02_JPRB,5.8114E+02_JPRB,5.8000E+02_JPRB/)  
+KBO( :,27,14) = (/&
+ & 5.7537E+02_JPRB,5.8032E+02_JPRB,5.8293E+02_JPRB,5.8414E+02_JPRB,5.8351E+02_JPRB/)  
+KBO( :,28,14) = (/&
+ & 5.7542E+02_JPRB,5.8169E+02_JPRB,5.8508E+02_JPRB,5.8663E+02_JPRB,5.8623E+02_JPRB/)  
+KBO( :,29,14) = (/&
+ & 5.7592E+02_JPRB,5.8334E+02_JPRB,5.8700E+02_JPRB,5.8877E+02_JPRB,5.8850E+02_JPRB/)  
+KBO( :,30,14) = (/&
+ & 5.7705E+02_JPRB,5.8477E+02_JPRB,5.8859E+02_JPRB,5.9059E+02_JPRB,5.9045E+02_JPRB/)  
+KBO( :,31,14) = (/&
+ & 5.7869E+02_JPRB,5.8639E+02_JPRB,5.9018E+02_JPRB,5.9225E+02_JPRB,5.9219E+02_JPRB/)  
+KBO( :,32,14) = (/&
+ & 5.8067E+02_JPRB,5.8815E+02_JPRB,5.9179E+02_JPRB,5.9363E+02_JPRB,5.9369E+02_JPRB/)  
+KBO( :,33,14) = (/&
+ & 5.8279E+02_JPRB,5.8990E+02_JPRB,5.9323E+02_JPRB,5.9481E+02_JPRB,5.9486E+02_JPRB/)  
+KBO( :,34,14) = (/&
+ & 5.8464E+02_JPRB,5.9150E+02_JPRB,5.9440E+02_JPRB,5.9589E+02_JPRB,5.9578E+02_JPRB/)  
+KBO( :,35,14) = (/&
+ & 5.8569E+02_JPRB,5.9251E+02_JPRB,5.9535E+02_JPRB,5.9677E+02_JPRB,5.9665E+02_JPRB/)  
+KBO( :,36,14) = (/&
+ & 5.8587E+02_JPRB,5.9292E+02_JPRB,5.9596E+02_JPRB,5.9747E+02_JPRB,5.9747E+02_JPRB/)  
+KBO( :,37,14) = (/&
+ & 5.8477E+02_JPRB,5.9243E+02_JPRB,5.9596E+02_JPRB,5.9792E+02_JPRB,5.9828E+02_JPRB/)  
+KBO( :,38,14) = (/&
+ & 5.8340E+02_JPRB,5.9173E+02_JPRB,5.9590E+02_JPRB,5.9820E+02_JPRB,5.9879E+02_JPRB/)  
+KBO( :,39,14) = (/&
+ & 5.8197E+02_JPRB,5.9091E+02_JPRB,5.9561E+02_JPRB,5.9833E+02_JPRB,5.9927E+02_JPRB/)  
+KBO( :,40,14) = (/&
+ & 5.7939E+02_JPRB,5.8916E+02_JPRB,5.9475E+02_JPRB,5.9816E+02_JPRB,5.9962E+02_JPRB/)  
+KBO( :,41,14) = (/&
+ & 5.7608E+02_JPRB,5.8699E+02_JPRB,5.9359E+02_JPRB,5.9774E+02_JPRB,5.9982E+02_JPRB/)  
+KBO( :,42,14) = (/&
+ & 5.7232E+02_JPRB,5.8456E+02_JPRB,5.9223E+02_JPRB,5.9718E+02_JPRB,5.9987E+02_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB11:PART6',1,ZHOOK_HANDLE)
+END SUBROUTINE PART6
+
+
+SUBROUTINE PART7
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB11:PART7',0,ZHOOK_HANDLE)
+
+
+KBO( :,43,14) = (/&
+ & 5.6728E+02_JPRB,5.8121E+02_JPRB,5.9028E+02_JPRB,5.9616E+02_JPRB,5.9954E+02_JPRB/)  
+KBO( :,44,14) = (/&
+ & 5.6123E+02_JPRB,5.7709E+02_JPRB,5.8763E+02_JPRB,5.9468E+02_JPRB,5.9887E+02_JPRB/)  
+KBO( :,45,14) = (/&
+ & 5.5447E+02_JPRB,5.7231E+02_JPRB,5.8444E+02_JPRB,5.9277E+02_JPRB,5.9784E+02_JPRB/)  
+KBO( :,46,14) = (/&
+ & 5.4640E+02_JPRB,5.6618E+02_JPRB,5.8043E+02_JPRB,5.9039E+02_JPRB,5.9653E+02_JPRB/)  
+KBO( :,47,14) = (/&
+ & 5.3656E+02_JPRB,5.5868E+02_JPRB,5.7521E+02_JPRB,5.8706E+02_JPRB,5.9448E+02_JPRB/)  
+KBO( :,48,14) = (/&
+ & 5.2560E+02_JPRB,5.5033E+02_JPRB,5.6904E+02_JPRB,5.8292E+02_JPRB,5.9200E+02_JPRB/)  
+KBO( :,49,14) = (/&
+ & 5.1361E+02_JPRB,5.4088E+02_JPRB,5.6193E+02_JPRB,5.7800E+02_JPRB,5.8895E+02_JPRB/)  
+KBO( :,50,14) = (/&
+ & 5.0091E+02_JPRB,5.3110E+02_JPRB,5.5541E+02_JPRB,5.7270E+02_JPRB,5.8551E+02_JPRB/)  
+KBO( :,51,14) = (/&
+ & 4.8751E+02_JPRB,5.2063E+02_JPRB,5.4741E+02_JPRB,5.6726E+02_JPRB,5.8153E+02_JPRB/)  
+KBO( :,52,14) = (/&
+ & 4.7297E+02_JPRB,5.0923E+02_JPRB,5.3861E+02_JPRB,5.6059E+02_JPRB,5.7676E+02_JPRB/)  
+KBO( :,53,14) = (/&
+ & 4.5743E+02_JPRB,4.9674E+02_JPRB,5.2890E+02_JPRB,5.5315E+02_JPRB,5.7135E+02_JPRB/)  
+KBO( :,54,14) = (/&
+ & 4.4140E+02_JPRB,4.8429E+02_JPRB,5.1910E+02_JPRB,5.4570E+02_JPRB,5.6577E+02_JPRB/)  
+KBO( :,55,14) = (/&
+ & 4.2564E+02_JPRB,4.7143E+02_JPRB,5.0881E+02_JPRB,5.3786E+02_JPRB,5.5980E+02_JPRB/)  
+KBO( :,56,14) = (/&
+ & 4.0890E+02_JPRB,4.5764E+02_JPRB,4.9778E+02_JPRB,5.2941E+02_JPRB,5.5381E+02_JPRB/)  
+KBO( :,57,14) = (/&
+ & 3.9121E+02_JPRB,4.4300E+02_JPRB,4.8601E+02_JPRB,5.2017E+02_JPRB,5.4671E+02_JPRB/)  
+KBO( :,58,14) = (/&
+ & 3.7355E+02_JPRB,4.2830E+02_JPRB,4.7408E+02_JPRB,5.1067E+02_JPRB,5.3936E+02_JPRB/)  
+KBO( :,59,14) = (/&
+ & 3.6625E+02_JPRB,4.2210E+02_JPRB,4.6902E+02_JPRB,5.0665E+02_JPRB,5.3625E+02_JPRB/)  
+KBO( :,13,15) = (/&
+ & 6.9472E+02_JPRB,6.8190E+02_JPRB,6.7012E+02_JPRB,6.5938E+02_JPRB,6.4861E+02_JPRB/)  
+KBO( :,14,15) = (/&
+ & 7.9617E+02_JPRB,7.8432E+02_JPRB,7.7183E+02_JPRB,7.5985E+02_JPRB,7.4779E+02_JPRB/)  
+KBO( :,15,15) = (/&
+ & 9.0905E+02_JPRB,8.9621E+02_JPRB,8.8202E+02_JPRB,8.6871E+02_JPRB,8.5523E+02_JPRB/)  
+KBO( :,16,15) = (/&
+ & 1.0296E+03_JPRB,1.0152E+03_JPRB,9.9738E+02_JPRB,9.8243E+02_JPRB,9.6638E+02_JPRB/)  
+KBO( :,17,15) = (/&
+ & 1.1531E+03_JPRB,1.1349E+03_JPRB,1.1154E+03_JPRB,1.0980E+03_JPRB,1.0783E+03_JPRB/)  
+KBO( :,18,15) = (/&
+ & 1.2776E+03_JPRB,1.2567E+03_JPRB,1.2351E+03_JPRB,1.2117E+03_JPRB,1.1888E+03_JPRB/)  
+KBO( :,19,15) = (/&
+ & 1.4027E+03_JPRB,1.3760E+03_JPRB,1.3510E+03_JPRB,1.3233E+03_JPRB,1.2971E+03_JPRB/)  
+KBO( :,20,15) = (/&
+ & 1.5265E+03_JPRB,1.4940E+03_JPRB,1.4647E+03_JPRB,1.4325E+03_JPRB,1.4019E+03_JPRB/)  
+KBO( :,21,15) = (/&
+ & 1.6464E+03_JPRB,1.6088E+03_JPRB,1.5749E+03_JPRB,1.5375E+03_JPRB,1.5006E+03_JPRB/)  
+KBO( :,22,15) = (/&
+ & 1.7545E+03_JPRB,1.7140E+03_JPRB,1.6756E+03_JPRB,1.6321E+03_JPRB,1.5896E+03_JPRB/)  
+KBO( :,23,15) = (/&
+ & 1.8570E+03_JPRB,1.8142E+03_JPRB,1.7654E+03_JPRB,1.7168E+03_JPRB,1.6706E+03_JPRB/)  
+KBO( :,24,15) = (/&
+ & 1.9478E+03_JPRB,1.8990E+03_JPRB,1.8442E+03_JPRB,1.7915E+03_JPRB,1.7417E+03_JPRB/)  
+KBO( :,25,15) = (/&
+ & 2.0258E+03_JPRB,1.9727E+03_JPRB,1.9128E+03_JPRB,1.8556E+03_JPRB,1.8012E+03_JPRB/)  
+KBO( :,26,15) = (/&
+ & 2.0908E+03_JPRB,2.0335E+03_JPRB,1.9696E+03_JPRB,1.9080E+03_JPRB,1.8501E+03_JPRB/)  
+KBO( :,27,15) = (/&
+ & 2.1446E+03_JPRB,2.0838E+03_JPRB,2.0154E+03_JPRB,1.9506E+03_JPRB,1.8894E+03_JPRB/)  
+KBO( :,28,15) = (/&
+ & 2.1876E+03_JPRB,2.1227E+03_JPRB,2.0508E+03_JPRB,1.9839E+03_JPRB,1.9200E+03_JPRB/)  
+KBO( :,29,15) = (/&
+ & 2.2206E+03_JPRB,2.1519E+03_JPRB,2.0777E+03_JPRB,2.0084E+03_JPRB,1.9419E+03_JPRB/)  
+KBO( :,30,15) = (/&
+ & 2.2449E+03_JPRB,2.1734E+03_JPRB,2.0968E+03_JPRB,2.0255E+03_JPRB,1.9570E+03_JPRB/)  
+KBO( :,31,15) = (/&
+ & 2.2605E+03_JPRB,2.1872E+03_JPRB,2.1090E+03_JPRB,2.0359E+03_JPRB,1.9658E+03_JPRB/)  
+KBO( :,32,15) = (/&
+ & 2.2689E+03_JPRB,2.1943E+03_JPRB,2.1149E+03_JPRB,2.0406E+03_JPRB,1.9691E+03_JPRB/)  
+KBO( :,33,15) = (/&
+ & 2.2716E+03_JPRB,2.1958E+03_JPRB,2.1158E+03_JPRB,2.0406E+03_JPRB,1.9683E+03_JPRB/)  
+KBO( :,34,15) = (/&
+ & 2.2726E+03_JPRB,2.1959E+03_JPRB,2.1153E+03_JPRB,2.0395E+03_JPRB,1.9664E+03_JPRB/)  
+KBO( :,35,15) = (/&
+ & 2.2780E+03_JPRB,2.2004E+03_JPRB,2.1189E+03_JPRB,2.0426E+03_JPRB,1.9688E+03_JPRB/)  
+KBO( :,36,15) = (/&
+ & 2.2896E+03_JPRB,2.2110E+03_JPRB,2.1289E+03_JPRB,2.0514E+03_JPRB,1.9767E+03_JPRB/)  
+KBO( :,37,15) = (/&
+ & 2.3120E+03_JPRB,2.2323E+03_JPRB,2.1486E+03_JPRB,2.0699E+03_JPRB,1.9941E+03_JPRB/)  
+KBO( :,38,15) = (/&
+ & 2.3338E+03_JPRB,2.2528E+03_JPRB,2.1676E+03_JPRB,2.0877E+03_JPRB,2.0113E+03_JPRB/)  
+KBO( :,39,15) = (/&
+ & 2.3539E+03_JPRB,2.2719E+03_JPRB,2.1856E+03_JPRB,2.1045E+03_JPRB,2.0272E+03_JPRB/)  
+KBO( :,40,15) = (/&
+ & 2.3870E+03_JPRB,2.2992E+03_JPRB,2.2111E+03_JPRB,2.1286E+03_JPRB,2.0498E+03_JPRB/)  
+KBO( :,41,15) = (/&
+ & 2.4163E+03_JPRB,2.3270E+03_JPRB,2.2370E+03_JPRB,2.1533E+03_JPRB,2.0730E+03_JPRB/)  
+KBO( :,42,15) = (/&
+ & 2.4453E+03_JPRB,2.3543E+03_JPRB,2.2627E+03_JPRB,2.1777E+03_JPRB,2.0960E+03_JPRB/)  
+KBO( :,43,15) = (/&
+ & 2.4791E+03_JPRB,2.3868E+03_JPRB,2.2928E+03_JPRB,2.2066E+03_JPRB,2.1231E+03_JPRB/)  
+KBO( :,44,15) = (/&
+ & 2.5148E+03_JPRB,2.4212E+03_JPRB,2.3254E+03_JPRB,2.2375E+03_JPRB,2.1527E+03_JPRB/)  
+KBO( :,45,15) = (/&
+ & 2.5507E+03_JPRB,2.4560E+03_JPRB,2.3582E+03_JPRB,2.2685E+03_JPRB,2.1823E+03_JPRB/)  
+KBO( :,46,15) = (/&
+ & 2.5882E+03_JPRB,2.4891E+03_JPRB,2.3936E+03_JPRB,2.3018E+03_JPRB,2.2138E+03_JPRB/)  
+KBO( :,47,15) = (/&
+ & 2.6293E+03_JPRB,2.5303E+03_JPRB,2.4336E+03_JPRB,2.3391E+03_JPRB,2.2494E+03_JPRB/)  
+KBO( :,48,15) = (/&
+ & 2.6705E+03_JPRB,2.5712E+03_JPRB,2.4742E+03_JPRB,2.3769E+03_JPRB,2.2856E+03_JPRB/)  
+KBO( :,49,15) = (/&
+ & 2.7114E+03_JPRB,2.6125E+03_JPRB,2.5152E+03_JPRB,2.4156E+03_JPRB,2.3224E+03_JPRB/)  
+KBO( :,50,15) = (/&
+ & 2.7491E+03_JPRB,2.6508E+03_JPRB,2.5540E+03_JPRB,2.4523E+03_JPRB,2.3573E+03_JPRB/)  
+KBO( :,51,15) = (/&
+ & 2.7853E+03_JPRB,2.6877E+03_JPRB,2.5908E+03_JPRB,2.4896E+03_JPRB,2.3917E+03_JPRB/)  
+KBO( :,52,15) = (/&
+ & 2.8208E+03_JPRB,2.7242E+03_JPRB,2.6274E+03_JPRB,2.5261E+03_JPRB,2.4271E+03_JPRB/)  
+KBO( :,53,15) = (/&
+ & 2.8545E+03_JPRB,2.7603E+03_JPRB,2.6642E+03_JPRB,2.5626E+03_JPRB,2.4630E+03_JPRB/)  
+KBO( :,54,15) = (/&
+ & 2.8809E+03_JPRB,2.7931E+03_JPRB,2.6980E+03_JPRB,2.5960E+03_JPRB,2.4960E+03_JPRB/)  
+KBO( :,55,15) = (/&
+ & 2.9090E+03_JPRB,2.8236E+03_JPRB,2.7303E+03_JPRB,2.6276E+03_JPRB,2.5279E+03_JPRB/)  
+KBO( :,56,15) = (/&
+ & 2.9353E+03_JPRB,2.8536E+03_JPRB,2.7620E+03_JPRB,2.6592E+03_JPRB,2.5632E+03_JPRB/)  
+KBO( :,57,15) = (/&
+ & 2.9603E+03_JPRB,2.8821E+03_JPRB,2.7934E+03_JPRB,2.6910E+03_JPRB,2.5953E+03_JPRB/)  
+KBO( :,58,15) = (/&
+ & 2.9819E+03_JPRB,2.9080E+03_JPRB,2.8223E+03_JPRB,2.7212E+03_JPRB,2.6255E+03_JPRB/)  
+KBO( :,59,15) = (/&
+ & 2.9898E+03_JPRB,2.9181E+03_JPRB,2.8340E+03_JPRB,2.7333E+03_JPRB,2.6376E+03_JPRB/)  
+KBO( :,13,16) = (/&
+ & 9.2927E+02_JPRB,9.0834E+02_JPRB,8.8939E+02_JPRB,8.8213E+02_JPRB,8.7527E+02_JPRB/)  
+KBO( :,14,16) = (/&
+ & 1.1173E+03_JPRB,1.0898E+03_JPRB,1.0649E+03_JPRB,1.0517E+03_JPRB,1.0398E+03_JPRB/)  
+KBO( :,15,16) = (/&
+ & 1.3390E+03_JPRB,1.3003E+03_JPRB,1.2694E+03_JPRB,1.2485E+03_JPRB,1.2287E+03_JPRB/)  
+KBO( :,16,16) = (/&
+ & 1.5922E+03_JPRB,1.5426E+03_JPRB,1.5018E+03_JPRB,1.4720E+03_JPRB,1.4416E+03_JPRB/)  
+KBO( :,17,16) = (/&
+ & 1.8814E+03_JPRB,1.8176E+03_JPRB,1.7654E+03_JPRB,1.7224E+03_JPRB,1.6795E+03_JPRB/)  
+KBO( :,18,16) = (/&
+ & 2.2031E+03_JPRB,2.1229E+03_JPRB,2.0590E+03_JPRB,1.9971E+03_JPRB,1.9384E+03_JPRB/)  
+KBO( :,19,16) = (/&
+ & 2.5548E+03_JPRB,2.4553E+03_JPRB,2.3724E+03_JPRB,2.2895E+03_JPRB,2.2135E+03_JPRB/)  
+KBO( :,20,16) = (/&
+ & 2.9295E+03_JPRB,2.8050E+03_JPRB,2.6977E+03_JPRB,2.5929E+03_JPRB,2.4952E+03_JPRB/)  
+KBO( :,21,16) = (/&
+ & 3.3178E+03_JPRB,3.1609E+03_JPRB,3.0264E+03_JPRB,2.8971E+03_JPRB,2.7751E+03_JPRB/)  
+KBO( :,22,16) = (/&
+ & 3.6887E+03_JPRB,3.5013E+03_JPRB,3.3414E+03_JPRB,3.1845E+03_JPRB,3.0382E+03_JPRB/)  
+KBO( :,23,16) = (/&
+ & 4.0451E+03_JPRB,3.8382E+03_JPRB,3.6372E+03_JPRB,3.4533E+03_JPRB,3.2810E+03_JPRB/)  
+KBO( :,24,16) = (/&
+ & 4.3758E+03_JPRB,4.1366E+03_JPRB,3.9051E+03_JPRB,3.6946E+03_JPRB,3.4976E+03_JPRB/)  
+KBO( :,25,16) = (/&
+ & 4.6718E+03_JPRB,4.3974E+03_JPRB,4.1374E+03_JPRB,3.9025E+03_JPRB,3.6844E+03_JPRB/)  
+KBO( :,26,16) = (/&
+ & 4.9191E+03_JPRB,4.6159E+03_JPRB,4.3305E+03_JPRB,4.0724E+03_JPRB,3.8356E+03_JPRB/)  
+KBO( :,27,16) = (/&
+ & 5.1211E+03_JPRB,4.7932E+03_JPRB,4.4865E+03_JPRB,4.2071E+03_JPRB,3.9560E+03_JPRB/)  
+KBO( :,28,16) = (/&
+ & 5.2790E+03_JPRB,4.9305E+03_JPRB,4.6056E+03_JPRB,4.3100E+03_JPRB,4.0465E+03_JPRB/)  
+KBO( :,29,16) = (/&
+ & 5.3926E+03_JPRB,5.0282E+03_JPRB,4.6893E+03_JPRB,4.3812E+03_JPRB,4.1090E+03_JPRB/)  
+KBO( :,30,16) = (/&
+ & 5.4669E+03_JPRB,5.0909E+03_JPRB,4.7431E+03_JPRB,4.4273E+03_JPRB,4.1484E+03_JPRB/)  
+KBO( :,31,16) = (/&
+ & 5.5059E+03_JPRB,5.1237E+03_JPRB,4.7693E+03_JPRB,4.4498E+03_JPRB,4.1668E+03_JPRB/)  
+KBO( :,32,16) = (/&
+ & 5.5159E+03_JPRB,5.1307E+03_JPRB,4.7740E+03_JPRB,4.4530E+03_JPRB,4.1682E+03_JPRB/)  
+KBO( :,33,16) = (/&
+ & 5.5016E+03_JPRB,5.1180E+03_JPRB,4.7604E+03_JPRB,4.4403E+03_JPRB,4.1565E+03_JPRB/)  
+KBO( :,34,16) = (/&
+ & 5.4845E+03_JPRB,5.1021E+03_JPRB,4.7448E+03_JPRB,4.4256E+03_JPRB,4.1432E+03_JPRB/)  
+KBO( :,35,16) = (/&
+ & 5.4942E+03_JPRB,5.1092E+03_JPRB,4.7499E+03_JPRB,4.4299E+03_JPRB,4.1471E+03_JPRB/)  
+KBO( :,36,16) = (/&
+ & 5.5382E+03_JPRB,5.1472E+03_JPRB,4.7829E+03_JPRB,4.4591E+03_JPRB,4.1726E+03_JPRB/)  
+KBO( :,37,16) = (/&
+ & 5.6404E+03_JPRB,5.2373E+03_JPRB,4.8618E+03_JPRB,4.5288E+03_JPRB,4.2337E+03_JPRB/)  
+KBO( :,38,16) = (/&
+ & 5.7408E+03_JPRB,5.3251E+03_JPRB,4.9400E+03_JPRB,4.5977E+03_JPRB,4.2959E+03_JPRB/)  
+KBO( :,39,16) = (/&
+ & 5.8371E+03_JPRB,5.4104E+03_JPRB,5.0144E+03_JPRB,4.6631E+03_JPRB,4.3540E+03_JPRB/)  
+KBO( :,40,16) = (/&
+ & 5.9951E+03_JPRB,5.5360E+03_JPRB,5.1266E+03_JPRB,4.7607E+03_JPRB,4.4409E+03_JPRB/)  
+KBO( :,41,16) = (/&
+ & 6.1460E+03_JPRB,5.6683E+03_JPRB,5.2438E+03_JPRB,4.8629E+03_JPRB,4.5331E+03_JPRB/)  
+KBO( :,42,16) = (/&
+ & 6.2988E+03_JPRB,5.8023E+03_JPRB,5.3625E+03_JPRB,4.9665E+03_JPRB,4.6258E+03_JPRB/)  
+KBO( :,43,16) = (/&
+ & 6.4883E+03_JPRB,5.9649E+03_JPRB,5.5067E+03_JPRB,5.0922E+03_JPRB,4.7383E+03_JPRB/)  
+KBO( :,44,16) = (/&
+ & 6.6999E+03_JPRB,6.1469E+03_JPRB,5.6668E+03_JPRB,5.2323E+03_JPRB,4.8626E+03_JPRB/)  
+KBO( :,45,16) = (/&
+ & 6.9195E+03_JPRB,6.3372E+03_JPRB,5.8320E+03_JPRB,5.3771E+03_JPRB,4.9912E+03_JPRB/)  
+KBO( :,46,16) = (/&
+ & 7.1659E+03_JPRB,6.5469E+03_JPRB,6.0143E+03_JPRB,5.5360E+03_JPRB,5.1328E+03_JPRB/)  
+KBO( :,47,16) = (/&
+ & 7.4570E+03_JPRB,6.7935E+03_JPRB,6.2257E+03_JPRB,5.7237E+03_JPRB,5.2972E+03_JPRB/)  
+KBO( :,48,16) = (/&
+ & 7.7630E+03_JPRB,7.0556E+03_JPRB,6.4469E+03_JPRB,5.9204E+03_JPRB,5.4684E+03_JPRB/)  
+KBO( :,49,16) = (/&
+ & 8.0892E+03_JPRB,7.3332E+03_JPRB,6.6834E+03_JPRB,6.1280E+03_JPRB,5.6471E+03_JPRB/)  
+KBO( :,50,16) = (/&
+ & 8.4185E+03_JPRB,7.6100E+03_JPRB,6.9229E+03_JPRB,6.3324E+03_JPRB,5.8236E+03_JPRB/)  
+KBO( :,51,16) = (/&
+ & 8.7578E+03_JPRB,7.8949E+03_JPRB,7.1667E+03_JPRB,6.5320E+03_JPRB,6.0026E+03_JPRB/)  
+KBO( :,52,16) = (/&
+ & 9.1141E+03_JPRB,8.1976E+03_JPRB,7.4241E+03_JPRB,6.7492E+03_JPRB,6.1897E+03_JPRB/)  
+KBO( :,53,16) = (/&
+ & 9.4976E+03_JPRB,8.5191E+03_JPRB,7.6952E+03_JPRB,6.9807E+03_JPRB,6.3873E+03_JPRB/)  
+KBO( :,54,16) = (/&
+ & 9.8568E+03_JPRB,8.8303E+03_JPRB,7.9588E+03_JPRB,7.2035E+03_JPRB,6.5794E+03_JPRB/)  
+KBO( :,55,16) = (/&
+ & 1.0230E+04_JPRB,9.1463E+03_JPRB,8.2248E+03_JPRB,7.4320E+03_JPRB,6.7726E+03_JPRB/)  
+KBO( :,56,16) = (/&
+ & 1.0624E+04_JPRB,9.4808E+03_JPRB,8.5054E+03_JPRB,7.6701E+03_JPRB,6.9720E+03_JPRB/)  
+KBO( :,57,16) = (/&
+ & 1.1039E+04_JPRB,9.8338E+03_JPRB,8.8017E+03_JPRB,7.9194E+03_JPRB,7.1847E+03_JPRB/)  
+KBO( :,58,16) = (/&
+ & 1.1458E+04_JPRB,1.0189E+04_JPRB,9.0957E+03_JPRB,8.1671E+03_JPRB,7.3970E+03_JPRB/)  
+KBO( :,59,16) = (/&
+ & 1.1633E+04_JPRB,1.0336E+04_JPRB,9.2185E+03_JPRB,8.2700E+03_JPRB,7.4844E+03_JPRB/)  
+
+!     The array SELFREFO contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+SELFREFO( :, 1) = (/&
+ & 5.95900E-01_JPRB, 5.48533E-01_JPRB, 5.04931E-01_JPRB, 4.64796E-01_JPRB, 4.27850E-01_JPRB,&
+ & 3.93841E-01_JPRB, 3.62536E-01_JPRB, 3.33719E-01_JPRB, 3.07192E-01_JPRB, 2.82774E-01_JPRB/)  
+SELFREFO( :, 2) = (/&
+ & 7.47113E-01_JPRB, 6.83084E-01_JPRB, 6.24541E-01_JPRB, 5.71016E-01_JPRB, 5.22079E-01_JPRB,&
+ & 4.77335E-01_JPRB, 4.36426E-01_JPRB, 3.99023E-01_JPRB, 3.64826E-01_JPRB, 3.33559E-01_JPRB/)  
+SELFREFO( :, 3) = (/&
+ & 7.85964E-01_JPRB, 7.20327E-01_JPRB, 6.60171E-01_JPRB, 6.05039E-01_JPRB, 5.54511E-01_JPRB,&
+ & 5.08203E-01_JPRB, 4.65762E-01_JPRB, 4.26866E-01_JPRB, 3.91218E-01_JPRB, 3.58546E-01_JPRB/)  
+SELFREFO( :, 4) = (/&
+ & 8.12851E-01_JPRB, 7.45432E-01_JPRB, 6.83605E-01_JPRB, 6.26905E-01_JPRB, 5.74908E-01_JPRB,&
+ & 5.27225E-01_JPRB, 4.83496E-01_JPRB, 4.43394E-01_JPRB, 4.06618E-01_JPRB, 3.72892E-01_JPRB/)  
+SELFREFO( :, 5) = (/&
+ & 8.13391E-01_JPRB, 7.46128E-01_JPRB, 6.84427E-01_JPRB, 6.27828E-01_JPRB, 5.75909E-01_JPRB,&
+ & 5.28284E-01_JPRB, 4.84598E-01_JPRB, 4.44524E-01_JPRB, 4.07764E-01_JPRB, 3.74044E-01_JPRB/)  
+SELFREFO( :, 6) = (/&
+ & 8.11843E-01_JPRB, 7.44722E-01_JPRB, 6.83151E-01_JPRB, 6.26670E-01_JPRB, 5.74858E-01_JPRB,&
+ & 5.27331E-01_JPRB, 4.83733E-01_JPRB, 4.43739E-01_JPRB, 4.07052E-01_JPRB, 3.73398E-01_JPRB/)  
+SELFREFO( :, 7) = (/&
+ & 8.13885E-01_JPRB, 7.48643E-01_JPRB, 6.88631E-01_JPRB, 6.33429E-01_JPRB, 5.82652E-01_JPRB,&
+ & 5.35946E-01_JPRB, 4.92984E-01_JPRB, 4.53465E-01_JPRB, 4.17115E-01_JPRB, 3.83678E-01_JPRB/)  
+SELFREFO( :, 8) = (/&
+ & 8.24139E-01_JPRB, 7.57334E-01_JPRB, 6.95944E-01_JPRB, 6.39531E-01_JPRB, 5.87690E-01_JPRB,&
+ & 5.40052E-01_JPRB, 4.96275E-01_JPRB, 4.56047E-01_JPRB, 4.19079E-01_JPRB, 3.85109E-01_JPRB/)  
+SELFREFO( :, 9) = (/&
+ & 8.30928E-01_JPRB, 7.64239E-01_JPRB, 7.02903E-01_JPRB, 6.46490E-01_JPRB, 5.94604E-01_JPRB,&
+ & 5.46882E-01_JPRB, 5.02990E-01_JPRB, 4.62622E-01_JPRB, 4.25493E-01_JPRB, 3.91344E-01_JPRB/)  
+SELFREFO( :,10) = (/&
+ & 8.66448E-01_JPRB, 7.91238E-01_JPRB, 7.22557E-01_JPRB, 6.59838E-01_JPRB, 6.02563E-01_JPRB,&
+ & 5.50259E-01_JPRB, 5.02495E-01_JPRB, 4.58878E-01_JPRB, 4.19046E-01_JPRB, 3.82672E-01_JPRB/)  
+SELFREFO( :,11) = (/&
+ & 8.51827E-01_JPRB, 7.79605E-01_JPRB, 7.13506E-01_JPRB, 6.53012E-01_JPRB, 5.97647E-01_JPRB,&
+ & 5.46975E-01_JPRB, 5.00600E-01_JPRB, 4.58157E-01_JPRB, 4.19312E-01_JPRB, 3.83761E-01_JPRB/)  
+SELFREFO( :,12) = (/&
+ & 8.39267E-01_JPRB, 7.72292E-01_JPRB, 7.10661E-01_JPRB, 6.53949E-01_JPRB, 6.01762E-01_JPRB,&
+ & 5.53740E-01_JPRB, 5.09550E-01_JPRB, 4.68887E-01_JPRB, 4.31469E-01_JPRB, 3.97036E-01_JPRB/)  
+SELFREFO( :,13) = (/&
+ & 8.36265E-01_JPRB, 7.69768E-01_JPRB, 7.08558E-01_JPRB, 6.52215E-01_JPRB, 6.00353E-01_JPRB,&
+ & 5.52615E-01_JPRB, 5.08672E-01_JPRB, 4.68224E-01_JPRB, 4.30992E-01_JPRB, 3.96721E-01_JPRB/)  
+SELFREFO( :,14) = (/&
+ & 8.73722E-01_JPRB, 8.03395E-01_JPRB, 7.38728E-01_JPRB, 6.79267E-01_JPRB, 6.24592E-01_JPRB,&
+ & 5.74318E-01_JPRB, 5.28090E-01_JPRB, 4.85583E-01_JPRB, 4.46498E-01_JPRB, 4.10559E-01_JPRB/)  
+SELFREFO( :,15) = (/&
+ & 9.08371E-01_JPRB, 8.34388E-01_JPRB, 7.66431E-01_JPRB, 7.04009E-01_JPRB, 6.46670E-01_JPRB,&
+ & 5.94002E-01_JPRB, 5.45623E-01_JPRB, 5.01184E-01_JPRB, 4.60365E-01_JPRB, 4.22870E-01_JPRB/)  
+SELFREFO( :,16) = (/&
+ & 9.88709E-01_JPRB, 8.99303E-01_JPRB, 8.17981E-01_JPRB, 7.44014E-01_JPRB, 6.76735E-01_JPRB,&
+ & 6.15540E-01_JPRB, 5.59878E-01_JPRB, 5.09250E-01_JPRB, 4.63200E-01_JPRB, 4.21315E-01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB11:PART7',1,ZHOOK_HANDLE)
+END SUBROUTINE PART7
+
+
+END SUBROUTINE RRTM_KGB11
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb11.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb11.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb11.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_KGB11
+END SUBROUTINE RRTM_KGB11
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb12.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb12.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb12.F90	(revision 1989)
@@ -0,0 +1,3422 @@
+!OCL SCALAR
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0 
+SUBROUTINE RRTM_KGB12
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 12:  1800-2080 cm-1 (low - H2O,CO2; high - nothing)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     R. Elkhatib 12-10-2005 Split for faster and more robust compilation.
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO12, ONLY : KAO     ,SELFREFO   ,FRACREFAO
+USE YOERRTA12, ONLY : STRRAT
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB12',0,ZHOOK_HANDLE)
+
+CALL PART1
+CALL PART2
+CALL PART3
+CALL PART4
+CALL PART5
+CALL PART6
+CALL PART7
+CALL PART8
+CALL PART9
+CALL PART10
+CALL PART11
+CALL PART12
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB12',1,ZHOOK_HANDLE)
+
+!     -----------------------------------------------------------------
+
+CONTAINS
+
+
+SUBROUTINE PART1
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART1',0,ZHOOK_HANDLE)
+
+
+STRRAT = 0.009736757_JPRB
+
+!     ------------------------------------------------------------------
+
+!     The array KAO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels> ~100mb, temperatures, and binary
+!     species parameters (see taumol.f for definition).  The first 
+!     index in the array, JS, runs from 1 to 9, and corresponds to 
+!     different values of the binary species parameter.  For instance, 
+!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, 
+!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index
+!     in the array, JT, which runs from 1 to 5, corresponds to different
+!     temperatures.  More specifically, JT = 3 means that the data are for
+!     the reference temperature TREF for this  pressure level, JT = 2 refers
+!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the JPth reference pressure level (see taumol.f for these levels
+!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates
+!     which g-interval the absorption coefficients are for.
+
+KAO( :, 1, 1, 1) = (/&
+ & 1.1071E-04_JPRB,1.7190E-03_JPRB,2.1297E-03_JPRB,2.2974E-03_JPRB,2.3638E-03_JPRB,2.3377E-03_JPRB,&
+ & 2.2182E-03_JPRB,1.9598E-03_JPRB,6.0644E-04_JPRB/)  
+KAO( :, 2, 1, 1) = (/&
+ & 1.1961E-04_JPRB,1.8523E-03_JPRB,2.3139E-03_JPRB,2.5087E-03_JPRB,2.5832E-03_JPRB,2.5507E-03_JPRB,&
+ & 2.4226E-03_JPRB,2.1400E-03_JPRB,6.6787E-04_JPRB/)  
+KAO( :, 3, 1, 1) = (/&
+ & 1.2897E-04_JPRB,1.9814E-03_JPRB,2.4904E-03_JPRB,2.7224E-03_JPRB,2.7992E-03_JPRB,2.7616E-03_JPRB,&
+ & 2.6285E-03_JPRB,2.3297E-03_JPRB,7.4226E-04_JPRB/)  
+KAO( :, 4, 1, 1) = (/&
+ & 1.3900E-04_JPRB,2.1069E-03_JPRB,2.6619E-03_JPRB,2.9256E-03_JPRB,3.0085E-03_JPRB,2.9760E-03_JPRB,&
+ & 2.8383E-03_JPRB,2.5269E-03_JPRB,8.2019E-04_JPRB/)  
+KAO( :, 5, 1, 1) = (/&
+ & 1.4980E-04_JPRB,2.2307E-03_JPRB,2.8258E-03_JPRB,3.1153E-03_JPRB,3.2140E-03_JPRB,3.1919E-03_JPRB,&
+ & 3.0529E-03_JPRB,2.7312E-03_JPRB,9.0306E-04_JPRB/)  
+KAO( :, 1, 2, 1) = (/&
+ & 9.5033E-05_JPRB,1.3952E-03_JPRB,1.7345E-03_JPRB,1.8757E-03_JPRB,1.9301E-03_JPRB,1.9088E-03_JPRB,&
+ & 1.8109E-03_JPRB,1.6003E-03_JPRB,4.8147E-04_JPRB/)  
+KAO( :, 2, 2, 1) = (/&
+ & 1.0264E-04_JPRB,1.5043E-03_JPRB,1.8862E-03_JPRB,2.0524E-03_JPRB,2.1155E-03_JPRB,2.0891E-03_JPRB,&
+ & 1.9828E-03_JPRB,1.7518E-03_JPRB,5.3179E-04_JPRB/)  
+KAO( :, 3, 2, 1) = (/&
+ & 1.1088E-04_JPRB,1.6110E-03_JPRB,2.0326E-03_JPRB,2.2296E-03_JPRB,2.2969E-03_JPRB,2.2672E-03_JPRB,&
+ & 2.1565E-03_JPRB,1.9107E-03_JPRB,5.9063E-04_JPRB/)  
+KAO( :, 4, 2, 1) = (/&
+ & 1.1978E-04_JPRB,1.7142E-03_JPRB,2.1747E-03_JPRB,2.4004E-03_JPRB,2.4722E-03_JPRB,2.4486E-03_JPRB,&
+ & 2.3338E-03_JPRB,2.0762E-03_JPRB,6.5252E-04_JPRB/)  
+KAO( :, 5, 2, 1) = (/&
+ & 1.2917E-04_JPRB,1.8168E-03_JPRB,2.3124E-03_JPRB,2.5589E-03_JPRB,2.6465E-03_JPRB,2.6314E-03_JPRB,&
+ & 2.5162E-03_JPRB,2.2491E-03_JPRB,7.1928E-04_JPRB/)  
+KAO( :, 1, 3, 1) = (/&
+ & 7.9672E-05_JPRB,1.1113E-03_JPRB,1.3811E-03_JPRB,1.4950E-03_JPRB,1.5396E-03_JPRB,1.5237E-03_JPRB,&
+ & 1.4450E-03_JPRB,1.2772E-03_JPRB,3.7750E-04_JPRB/)  
+KAO( :, 2, 3, 1) = (/&
+ & 8.5835E-05_JPRB,1.2012E-03_JPRB,1.5072E-03_JPRB,1.6412E-03_JPRB,1.6938E-03_JPRB,1.6765E-03_JPRB,&
+ & 1.5878E-03_JPRB,1.4020E-03_JPRB,4.1693E-04_JPRB/)  
+KAO( :, 3, 3, 1) = (/&
+ & 9.2724E-05_JPRB,1.2894E-03_JPRB,1.6284E-03_JPRB,1.7887E-03_JPRB,1.8470E-03_JPRB,1.8261E-03_JPRB,&
+ & 1.7328E-03_JPRB,1.5335E-03_JPRB,4.6226E-04_JPRB/)  
+KAO( :, 4, 3, 1) = (/&
+ & 1.0021E-04_JPRB,1.3753E-03_JPRB,1.7467E-03_JPRB,1.9334E-03_JPRB,1.9945E-03_JPRB,1.9763E-03_JPRB,&
+ & 1.8807E-03_JPRB,1.6701E-03_JPRB,5.1131E-04_JPRB/)  
+KAO( :, 5, 3, 1) = (/&
+ & 1.0826E-04_JPRB,1.4602E-03_JPRB,1.8628E-03_JPRB,2.0684E-03_JPRB,2.1410E-03_JPRB,2.1291E-03_JPRB,&
+ & 2.0333E-03_JPRB,1.8146E-03_JPRB,5.6359E-04_JPRB/)  
+KAO( :, 1, 4, 1) = (/&
+ & 6.6541E-05_JPRB,8.7720E-04_JPRB,1.0880E-03_JPRB,1.1789E-03_JPRB,1.2150E-03_JPRB,1.2040E-03_JPRB,&
+ & 1.1429E-03_JPRB,1.0102E-03_JPRB,3.0065E-04_JPRB/)  
+KAO( :, 2, 4, 1) = (/&
+ & 7.1240E-05_JPRB,9.5116E-04_JPRB,1.1928E-03_JPRB,1.2997E-03_JPRB,1.3427E-03_JPRB,1.3311E-03_JPRB,&
+ & 1.2602E-03_JPRB,1.1118E-03_JPRB,3.3112E-04_JPRB/)  
+KAO( :, 3, 4, 1) = (/&
+ & 7.6627E-05_JPRB,1.0246E-03_JPRB,1.2929E-03_JPRB,1.4214E-03_JPRB,1.4711E-03_JPRB,1.4559E-03_JPRB,&
+ & 1.3800E-03_JPRB,1.2193E-03_JPRB,3.6623E-04_JPRB/)  
+KAO( :, 4, 4, 1) = (/&
+ & 8.2697E-05_JPRB,1.0967E-03_JPRB,1.3910E-03_JPRB,1.5434E-03_JPRB,1.5957E-03_JPRB,1.5801E-03_JPRB,&
+ & 1.5019E-03_JPRB,1.3318E-03_JPRB,4.0479E-04_JPRB/)  
+KAO( :, 5, 4, 1) = (/&
+ & 8.9353E-05_JPRB,1.1675E-03_JPRB,1.4884E-03_JPRB,1.6584E-03_JPRB,1.7180E-03_JPRB,1.7064E-03_JPRB,&
+ & 1.6273E-03_JPRB,1.4511E-03_JPRB,4.4590E-04_JPRB/)  
+KAO( :, 1, 5, 1) = (/&
+ & 5.5998E-05_JPRB,6.8983E-04_JPRB,8.5274E-04_JPRB,9.2493E-04_JPRB,9.5405E-04_JPRB,9.4771E-04_JPRB,&
+ & 9.0156E-04_JPRB,7.9782E-04_JPRB,2.4473E-04_JPRB/)  
+KAO( :, 2, 5, 1) = (/&
+ & 5.9569E-05_JPRB,7.5053E-04_JPRB,9.3935E-04_JPRB,1.0247E-03_JPRB,1.0592E-03_JPRB,1.0509E-03_JPRB,&
+ & 9.9609E-04_JPRB,8.7904E-04_JPRB,2.6874E-04_JPRB/)  
+KAO( :, 3, 5, 1) = (/&
+ & 6.3728E-05_JPRB,8.1164E-04_JPRB,1.0227E-03_JPRB,1.1245E-03_JPRB,1.1656E-03_JPRB,1.1550E-03_JPRB,&
+ & 1.0939E-03_JPRB,9.6668E-04_JPRB,2.9631E-04_JPRB/)  
+KAO( :, 4, 5, 1) = (/&
+ & 6.8493E-05_JPRB,8.7191E-04_JPRB,1.1043E-03_JPRB,1.2254E-03_JPRB,1.2701E-03_JPRB,1.2575E-03_JPRB,&
+ & 1.1938E-03_JPRB,1.0585E-03_JPRB,3.2693E-04_JPRB/)  
+KAO( :, 5, 5, 1) = (/&
+ & 7.3804E-05_JPRB,9.3124E-04_JPRB,1.1858E-03_JPRB,1.3231E-03_JPRB,1.3713E-03_JPRB,1.3618E-03_JPRB,&
+ & 1.2967E-03_JPRB,1.1556E-03_JPRB,3.5959E-04_JPRB/)  
+KAO( :, 1, 6, 1) = (/&
+ & 4.7433E-05_JPRB,5.3952E-04_JPRB,6.6302E-04_JPRB,7.1941E-04_JPRB,7.4278E-04_JPRB,7.3993E-04_JPRB,&
+ & 7.0682E-04_JPRB,6.2737E-04_JPRB,2.0502E-04_JPRB/)  
+KAO( :, 2, 6, 1) = (/&
+ & 5.0194E-05_JPRB,5.8914E-04_JPRB,7.3430E-04_JPRB,8.0093E-04_JPRB,8.2839E-04_JPRB,8.2234E-04_JPRB,&
+ & 7.8161E-04_JPRB,6.9096E-04_JPRB,2.2413E-04_JPRB/)  
+KAO( :, 3, 6, 1) = (/&
+ & 5.3412E-05_JPRB,6.3967E-04_JPRB,8.0393E-04_JPRB,8.8246E-04_JPRB,9.1533E-04_JPRB,9.0872E-04_JPRB,&
+ & 8.6111E-04_JPRB,7.6158E-04_JPRB,2.4611E-04_JPRB/)  
+KAO( :, 4, 6, 1) = (/&
+ & 5.7167E-05_JPRB,6.9003E-04_JPRB,8.7186E-04_JPRB,9.6499E-04_JPRB,1.0025E-03_JPRB,9.9324E-04_JPRB,&
+ & 9.4228E-04_JPRB,8.3524E-04_JPRB,2.7084E-04_JPRB/)  
+KAO( :, 5, 6, 1) = (/&
+ & 6.1369E-05_JPRB,7.3991E-04_JPRB,9.3979E-04_JPRB,1.0473E-03_JPRB,1.0862E-03_JPRB,1.0788E-03_JPRB,&
+ & 1.0266E-03_JPRB,9.1379E-04_JPRB,2.9720E-04_JPRB/)  
+KAO( :, 1, 7, 1) = (/&
+ & 4.0204E-05_JPRB,4.2071E-04_JPRB,5.1329E-04_JPRB,5.5704E-04_JPRB,5.7598E-04_JPRB,5.7560E-04_JPRB,&
+ & 5.5294E-04_JPRB,4.9311E-04_JPRB,1.8038E-04_JPRB/)  
+KAO( :, 2, 7, 1) = (/&
+ & 4.2409E-05_JPRB,4.6139E-04_JPRB,5.7116E-04_JPRB,6.2323E-04_JPRB,6.4451E-04_JPRB,6.4096E-04_JPRB,&
+ & 6.1142E-04_JPRB,5.4196E-04_JPRB,1.9582E-04_JPRB/)  
+KAO( :, 3, 7, 1) = (/&
+ & 4.4969E-05_JPRB,5.0267E-04_JPRB,6.2911E-04_JPRB,6.8938E-04_JPRB,7.1511E-04_JPRB,7.1073E-04_JPRB,&
+ & 6.7548E-04_JPRB,5.9790E-04_JPRB,2.1379E-04_JPRB/)  
+KAO( :, 4, 7, 1) = (/&
+ & 4.7926E-05_JPRB,5.4471E-04_JPRB,6.8586E-04_JPRB,7.5653E-04_JPRB,7.8682E-04_JPRB,7.8099E-04_JPRB,&
+ & 7.4115E-04_JPRB,6.5723E-04_JPRB,2.3382E-04_JPRB/)  
+KAO( :, 5, 7, 1) = (/&
+ & 5.1304E-05_JPRB,5.8645E-04_JPRB,7.4180E-04_JPRB,8.2446E-04_JPRB,8.5674E-04_JPRB,8.5104E-04_JPRB,&
+ & 8.0968E-04_JPRB,7.2033E-04_JPRB,2.5569E-04_JPRB/)  
+KAO( :, 1, 8, 1) = (/&
+ & 3.4404E-05_JPRB,3.2742E-04_JPRB,3.9628E-04_JPRB,4.3044E-04_JPRB,4.4582E-04_JPRB,4.4750E-04_JPRB,&
+ & 4.3255E-04_JPRB,3.8824E-04_JPRB,1.6140E-04_JPRB/)  
+KAO( :, 2, 8, 1) = (/&
+ & 3.6102E-05_JPRB,3.6078E-04_JPRB,4.4317E-04_JPRB,4.8349E-04_JPRB,5.0006E-04_JPRB,4.9874E-04_JPRB,&
+ & 4.7786E-04_JPRB,4.2529E-04_JPRB,1.7382E-04_JPRB/)  
+KAO( :, 3, 8, 1) = (/&
+ & 3.8232E-05_JPRB,3.9477E-04_JPRB,4.9069E-04_JPRB,5.3712E-04_JPRB,5.5703E-04_JPRB,5.5425E-04_JPRB,&
+ & 5.2840E-04_JPRB,4.6878E-04_JPRB,1.8872E-04_JPRB/)  
+KAO( :, 4, 8, 1) = (/&
+ & 4.0723E-05_JPRB,4.2935E-04_JPRB,5.3782E-04_JPRB,5.9167E-04_JPRB,6.1513E-04_JPRB,6.1219E-04_JPRB,&
+ & 5.8195E-04_JPRB,5.1637E-04_JPRB,2.0568E-04_JPRB/)  
+KAO( :, 5, 8, 1) = (/&
+ & 4.3533E-05_JPRB,4.6405E-04_JPRB,5.8430E-04_JPRB,6.4724E-04_JPRB,6.7394E-04_JPRB,6.6968E-04_JPRB,&
+ & 6.3735E-04_JPRB,5.6685E-04_JPRB,2.2475E-04_JPRB/)  
+KAO( :, 1, 9, 1) = (/&
+ & 2.9435E-05_JPRB,2.5407E-04_JPRB,3.0513E-04_JPRB,3.3154E-04_JPRB,3.4450E-04_JPRB,3.4770E-04_JPRB,&
+ & 3.3823E-04_JPRB,3.0612E-04_JPRB,1.4904E-04_JPRB/)  
+KAO( :, 2, 9, 1) = (/&
+ & 3.0832E-05_JPRB,2.8156E-04_JPRB,3.4307E-04_JPRB,3.7395E-04_JPRB,3.8707E-04_JPRB,3.8740E-04_JPRB,&
+ & 3.7308E-04_JPRB,3.3384E-04_JPRB,1.6021E-04_JPRB/)  
+KAO( :, 3, 9, 1) = (/&
+ & 3.2541E-05_JPRB,3.0967E-04_JPRB,3.8142E-04_JPRB,4.1751E-04_JPRB,4.3262E-04_JPRB,4.3109E-04_JPRB,&
+ & 4.1241E-04_JPRB,3.6699E-04_JPRB,1.7304E-04_JPRB/)  
+KAO( :, 4, 9, 1) = (/&
+ & 3.4598E-05_JPRB,3.3815E-04_JPRB,4.2037E-04_JPRB,4.6162E-04_JPRB,4.7971E-04_JPRB,4.7802E-04_JPRB,&
+ & 4.5577E-04_JPRB,4.0458E-04_JPRB,1.8804E-04_JPRB/)  
+KAO( :, 5, 9, 1) = (/&
+ & 3.7007E-05_JPRB,3.6690E-04_JPRB,4.5921E-04_JPRB,5.0690E-04_JPRB,5.2823E-04_JPRB,5.2576E-04_JPRB,&
+ & 5.0057E-04_JPRB,4.4491E-04_JPRB,2.0554E-04_JPRB/)  
+KAO( :, 1,10, 1) = (/&
+ & 2.4927E-05_JPRB,1.9806E-04_JPRB,2.3689E-04_JPRB,2.5751E-04_JPRB,2.6867E-04_JPRB,2.7252E-04_JPRB,&
+ & 2.6649E-04_JPRB,2.4340E-04_JPRB,1.3926E-04_JPRB/)  
+KAO( :, 2,10, 1) = (/&
+ & 2.6291E-05_JPRB,2.2099E-04_JPRB,2.6740E-04_JPRB,2.9137E-04_JPRB,3.0194E-04_JPRB,3.0327E-04_JPRB,&
+ & 2.9342E-04_JPRB,2.6414E-04_JPRB,1.4846E-04_JPRB/)  
+KAO( :, 3,10, 1) = (/&
+ & 2.7951E-05_JPRB,2.4437E-04_JPRB,2.9848E-04_JPRB,3.2658E-04_JPRB,3.3827E-04_JPRB,3.3778E-04_JPRB,&
+ & 3.2415E-04_JPRB,2.8946E-04_JPRB,1.5998E-04_JPRB/)  
+KAO( :, 4,10, 1) = (/&
+ & 2.9907E-05_JPRB,2.6821E-04_JPRB,3.3026E-04_JPRB,3.6237E-04_JPRB,3.7643E-04_JPRB,3.7538E-04_JPRB,&
+ & 3.5861E-04_JPRB,3.1891E-04_JPRB,1.7396E-04_JPRB/)  
+KAO( :, 5,10, 1) = (/&
+ & 3.2074E-05_JPRB,2.9213E-04_JPRB,3.6237E-04_JPRB,3.9914E-04_JPRB,4.1580E-04_JPRB,4.1475E-04_JPRB,&
+ & 3.9509E-04_JPRB,3.5105E-04_JPRB,1.9000E-04_JPRB/)  
+KAO( :, 1,11, 1) = (/&
+ & 2.1030E-05_JPRB,1.6262E-04_JPRB,1.9497E-04_JPRB,2.1213E-04_JPRB,2.2124E-04_JPRB,2.2434E-04_JPRB,&
+ & 2.1945E-04_JPRB,2.0056E-04_JPRB,1.1989E-04_JPRB/)  
+KAO( :, 2,11, 1) = (/&
+ & 2.2215E-05_JPRB,1.8182E-04_JPRB,2.1979E-04_JPRB,2.3981E-04_JPRB,2.4860E-04_JPRB,2.4965E-04_JPRB,&
+ & 2.4153E-04_JPRB,2.1771E-04_JPRB,1.2772E-04_JPRB/)  
+KAO( :, 3,11, 1) = (/&
+ & 2.3854E-05_JPRB,2.0140E-04_JPRB,2.4523E-04_JPRB,2.6860E-04_JPRB,2.7834E-04_JPRB,2.7805E-04_JPRB,&
+ & 2.6683E-04_JPRB,2.3853E-04_JPRB,1.3777E-04_JPRB/)  
+KAO( :, 4,11, 1) = (/&
+ & 2.5937E-05_JPRB,2.2145E-04_JPRB,2.7132E-04_JPRB,2.9797E-04_JPRB,3.0980E-04_JPRB,3.0914E-04_JPRB,&
+ & 2.9535E-04_JPRB,2.6276E-04_JPRB,1.4975E-04_JPRB/)  
+KAO( :, 5,11, 1) = (/&
+ & 2.8200E-05_JPRB,2.4157E-04_JPRB,2.9784E-04_JPRB,3.2825E-04_JPRB,3.4224E-04_JPRB,3.4158E-04_JPRB,&
+ & 3.2548E-04_JPRB,2.8921E-04_JPRB,1.6349E-04_JPRB/)  
+KAO( :, 1,12, 1) = (/&
+ & 1.7436E-05_JPRB,1.3336E-04_JPRB,1.6029E-04_JPRB,1.7464E-04_JPRB,1.8206E-04_JPRB,1.8451E-04_JPRB,&
+ & 1.8046E-04_JPRB,1.6506E-04_JPRB,9.9378E-05_JPRB/)  
+KAO( :, 2,12, 1) = (/&
+ & 1.8421E-05_JPRB,1.4922E-04_JPRB,1.8056E-04_JPRB,1.9727E-04_JPRB,2.0452E-04_JPRB,2.0534E-04_JPRB,&
+ & 1.9861E-04_JPRB,1.7923E-04_JPRB,1.0594E-04_JPRB/)  
+KAO( :, 3,12, 1) = (/&
+ & 1.9770E-05_JPRB,1.6546E-04_JPRB,2.0137E-04_JPRB,2.2080E-04_JPRB,2.2895E-04_JPRB,2.2873E-04_JPRB,&
+ & 2.1950E-04_JPRB,1.9634E-04_JPRB,1.1437E-04_JPRB/)  
+KAO( :, 4,12, 1) = (/&
+ & 2.1532E-05_JPRB,1.8214E-04_JPRB,2.2278E-04_JPRB,2.4485E-04_JPRB,2.5477E-04_JPRB,2.5442E-04_JPRB,&
+ & 2.4312E-04_JPRB,2.1633E-04_JPRB,1.2430E-04_JPRB/)  
+KAO( :, 5,12, 1) = (/&
+ & 2.3665E-05_JPRB,1.9894E-04_JPRB,2.4466E-04_JPRB,2.6980E-04_JPRB,2.8155E-04_JPRB,2.8120E-04_JPRB,&
+ & 2.6804E-04_JPRB,2.3807E-04_JPRB,1.3565E-04_JPRB/)  
+KAO( :, 1,13, 1) = (/&
+ & 1.4387E-05_JPRB,1.0908E-04_JPRB,1.3157E-04_JPRB,1.4361E-04_JPRB,1.4965E-04_JPRB,1.5162E-04_JPRB,&
+ & 1.4826E-04_JPRB,1.3570E-04_JPRB,8.1068E-05_JPRB/)  
+KAO( :, 2,13, 1) = (/&
+ & 1.5222E-05_JPRB,1.2208E-04_JPRB,1.4808E-04_JPRB,1.6206E-04_JPRB,1.6806E-04_JPRB,1.6873E-04_JPRB,&
+ & 1.6320E-04_JPRB,1.4737E-04_JPRB,8.6440E-05_JPRB/)  
+KAO( :, 3,13, 1) = (/&
+ & 1.6337E-05_JPRB,1.3561E-04_JPRB,1.6504E-04_JPRB,1.8124E-04_JPRB,1.8815E-04_JPRB,1.8808E-04_JPRB,&
+ & 1.8048E-04_JPRB,1.6146E-04_JPRB,9.3311E-05_JPRB/)  
+KAO( :, 4,13, 1) = (/&
+ & 1.7783E-05_JPRB,1.4947E-04_JPRB,1.8257E-04_JPRB,2.0095E-04_JPRB,2.0933E-04_JPRB,2.0927E-04_JPRB,&
+ & 2.0001E-04_JPRB,1.7792E-04_JPRB,1.0131E-04_JPRB/)  
+KAO( :, 5,13, 1) = (/&
+ & 1.9570E-05_JPRB,1.6345E-04_JPRB,2.0062E-04_JPRB,2.2151E-04_JPRB,2.3144E-04_JPRB,2.3129E-04_JPRB,&
+ & 2.2049E-04_JPRB,1.9577E-04_JPRB,1.1046E-04_JPRB/)  
+KAO( :, 1, 1, 2) = (/&
+ & 9.2497E-04_JPRB,4.3144E-03_JPRB,5.6991E-03_JPRB,6.4942E-03_JPRB,6.8938E-03_JPRB,6.9128E-03_JPRB,&
+ & 6.4921E-03_JPRB,5.6369E-03_JPRB,1.8483E-03_JPRB/)  
+KAO( :, 2, 1, 2) = (/&
+ & 1.0409E-03_JPRB,4.6383E-03_JPRB,6.0633E-03_JPRB,6.9063E-03_JPRB,7.3169E-03_JPRB,7.3608E-03_JPRB,&
+ & 6.9192E-03_JPRB,6.0028E-03_JPRB,2.0300E-03_JPRB/)  
+KAO( :, 3, 1, 2) = (/&
+ & 1.1556E-03_JPRB,4.9764E-03_JPRB,6.4488E-03_JPRB,7.3288E-03_JPRB,7.7717E-03_JPRB,7.8279E-03_JPRB,&
+ & 7.3748E-03_JPRB,6.3833E-03_JPRB,2.2072E-03_JPRB/)  
+KAO( :, 4, 1, 2) = (/&
+ & 1.2675E-03_JPRB,5.3121E-03_JPRB,6.8537E-03_JPRB,7.7796E-03_JPRB,8.2492E-03_JPRB,8.3162E-03_JPRB,&
+ & 7.8626E-03_JPRB,6.7865E-03_JPRB,2.3969E-03_JPRB/)  
+KAO( :, 5, 1, 2) = (/&
+ & 1.3758E-03_JPRB,5.6410E-03_JPRB,7.2804E-03_JPRB,8.2553E-03_JPRB,8.7528E-03_JPRB,8.8226E-03_JPRB,&
+ & 8.3750E-03_JPRB,7.2191E-03_JPRB,2.6089E-03_JPRB/)  
+KAO( :, 1, 2, 2) = (/&
+ & 7.5186E-04_JPRB,3.6103E-03_JPRB,4.7635E-03_JPRB,5.4240E-03_JPRB,5.7535E-03_JPRB,5.7797E-03_JPRB,&
+ & 5.4198E-03_JPRB,4.6836E-03_JPRB,1.4556E-03_JPRB/)  
+KAO( :, 2, 2, 2) = (/&
+ & 8.4398E-04_JPRB,3.8877E-03_JPRB,5.0819E-03_JPRB,5.7839E-03_JPRB,6.1171E-03_JPRB,6.1580E-03_JPRB,&
+ & 5.7873E-03_JPRB,4.9984E-03_JPRB,1.6006E-03_JPRB/)  
+KAO( :, 3, 2, 2) = (/&
+ & 9.3483E-04_JPRB,4.1713E-03_JPRB,5.4170E-03_JPRB,6.1567E-03_JPRB,6.5115E-03_JPRB,6.5572E-03_JPRB,&
+ & 6.1783E-03_JPRB,5.3232E-03_JPRB,1.7489E-03_JPRB/)  
+KAO( :, 4, 2, 2) = (/&
+ & 1.0238E-03_JPRB,4.4548E-03_JPRB,5.7647E-03_JPRB,6.5444E-03_JPRB,6.9273E-03_JPRB,6.9708E-03_JPRB,&
+ & 6.5984E-03_JPRB,5.6708E-03_JPRB,1.9109E-03_JPRB/)  
+KAO( :, 5, 2, 2) = (/&
+ & 1.1107E-03_JPRB,4.7357E-03_JPRB,6.1219E-03_JPRB,6.9538E-03_JPRB,7.3658E-03_JPRB,7.4046E-03_JPRB,&
+ & 7.0322E-03_JPRB,6.0412E-03_JPRB,2.0904E-03_JPRB/)  
+KAO( :, 1, 3, 2) = (/&
+ & 6.0142E-04_JPRB,2.9523E-03_JPRB,3.9104E-03_JPRB,4.4517E-03_JPRB,4.7174E-03_JPRB,4.7372E-03_JPRB,&
+ & 4.4492E-03_JPRB,3.8243E-03_JPRB,1.1263E-03_JPRB/)  
+KAO( :, 2, 3, 2) = (/&
+ & 6.7406E-04_JPRB,3.1823E-03_JPRB,4.1811E-03_JPRB,4.7592E-03_JPRB,5.0290E-03_JPRB,5.0575E-03_JPRB,&
+ & 4.7588E-03_JPRB,4.0940E-03_JPRB,1.2428E-03_JPRB/)  
+KAO( :, 3, 3, 2) = (/&
+ & 7.4620E-04_JPRB,3.4210E-03_JPRB,4.4618E-03_JPRB,5.0793E-03_JPRB,5.3629E-03_JPRB,5.3950E-03_JPRB,&
+ & 5.0905E-03_JPRB,4.3739E-03_JPRB,1.3657E-03_JPRB/)  
+KAO( :, 4, 3, 2) = (/&
+ & 8.1752E-04_JPRB,3.6598E-03_JPRB,4.7515E-03_JPRB,5.4067E-03_JPRB,5.7176E-03_JPRB,5.7460E-03_JPRB,&
+ & 5.4447E-03_JPRB,4.6676E-03_JPRB,1.5007E-03_JPRB/)  
+KAO( :, 5, 3, 2) = (/&
+ & 8.8750E-04_JPRB,3.8967E-03_JPRB,5.0479E-03_JPRB,5.7482E-03_JPRB,6.0925E-03_JPRB,6.1154E-03_JPRB,&
+ & 5.8092E-03_JPRB,4.9824E-03_JPRB,1.6471E-03_JPRB/)  
+KAO( :, 1, 4, 2) = (/&
+ & 4.8101E-04_JPRB,2.3906E-03_JPRB,3.1853E-03_JPRB,3.6231E-03_JPRB,3.8360E-03_JPRB,3.8452E-03_JPRB,&
+ & 3.6186E-03_JPRB,3.1019E-03_JPRB,8.7573E-04_JPRB/)  
+KAO( :, 2, 4, 2) = (/&
+ & 5.3961E-04_JPRB,2.5785E-03_JPRB,3.4085E-03_JPRB,3.8820E-03_JPRB,4.0987E-03_JPRB,4.1183E-03_JPRB,&
+ & 3.8800E-03_JPRB,3.3305E-03_JPRB,9.6932E-04_JPRB/)  
+KAO( :, 3, 4, 2) = (/&
+ & 5.9799E-04_JPRB,2.7768E-03_JPRB,3.6406E-03_JPRB,4.1517E-03_JPRB,4.3797E-03_JPRB,4.4028E-03_JPRB,&
+ & 4.1601E-03_JPRB,3.5700E-03_JPRB,1.0703E-03_JPRB/)  
+KAO( :, 4, 4, 2) = (/&
+ & 6.5579E-04_JPRB,2.9752E-03_JPRB,3.8795E-03_JPRB,4.4220E-03_JPRB,4.6790E-03_JPRB,4.7001E-03_JPRB,&
+ & 4.4581E-03_JPRB,3.8199E-03_JPRB,1.1808E-03_JPRB/)  
+KAO( :, 5, 4, 2) = (/&
+ & 7.1241E-04_JPRB,3.1724E-03_JPRB,4.1257E-03_JPRB,4.7025E-03_JPRB,4.9913E-03_JPRB,5.0113E-03_JPRB,&
+ & 4.7649E-03_JPRB,4.0844E-03_JPRB,1.3011E-03_JPRB/)  
+KAO( :, 1, 5, 2) = (/&
+ & 3.7985E-04_JPRB,1.9296E-03_JPRB,2.5823E-03_JPRB,2.9367E-03_JPRB,3.1053E-03_JPRB,3.1068E-03_JPRB,&
+ & 2.9256E-03_JPRB,2.5075E-03_JPRB,6.8590E-04_JPRB/)  
+KAO( :, 2, 5, 2) = (/&
+ & 4.2774E-04_JPRB,2.0822E-03_JPRB,2.7665E-03_JPRB,3.1512E-03_JPRB,3.3261E-03_JPRB,3.3384E-03_JPRB,&
+ & 3.1468E-03_JPRB,2.7004E-03_JPRB,7.6134E-04_JPRB/)  
+KAO( :, 3, 5, 2) = (/&
+ & 4.7586E-04_JPRB,2.2442E-03_JPRB,2.9575E-03_JPRB,3.3747E-03_JPRB,3.5611E-03_JPRB,3.5804E-03_JPRB,&
+ & 3.3851E-03_JPRB,2.9033E-03_JPRB,8.4414E-04_JPRB/)  
+KAO( :, 4, 5, 2) = (/&
+ & 5.2378E-04_JPRB,2.4068E-03_JPRB,3.1534E-03_JPRB,3.5994E-03_JPRB,3.8099E-03_JPRB,3.8326E-03_JPRB,&
+ & 3.6365E-03_JPRB,3.1178E-03_JPRB,9.3392E-04_JPRB/)  
+KAO( :, 5, 5, 2) = (/&
+ & 5.7107E-04_JPRB,2.5676E-03_JPRB,3.3559E-03_JPRB,3.8294E-03_JPRB,4.0688E-03_JPRB,4.0931E-03_JPRB,&
+ & 3.8958E-03_JPRB,3.3418E-03_JPRB,1.0329E-03_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART1',1,ZHOOK_HANDLE)
+END SUBROUTINE PART1
+
+
+SUBROUTINE PART2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART2',0,ZHOOK_HANDLE)
+
+
+KAO( :, 1, 6, 2) = (/&
+ & 2.9735E-04_JPRB,1.5488E-03_JPRB,2.0781E-03_JPRB,2.3635E-03_JPRB,2.4968E-03_JPRB,2.4931E-03_JPRB,&
+ & 2.3467E-03_JPRB,2.0085E-03_JPRB,5.4223E-04_JPRB/)  
+KAO( :, 2, 6, 2) = (/&
+ & 3.3587E-04_JPRB,1.6709E-03_JPRB,2.2308E-03_JPRB,2.5409E-03_JPRB,2.6808E-03_JPRB,2.6895E-03_JPRB,&
+ & 2.5340E-03_JPRB,2.1715E-03_JPRB,6.0215E-04_JPRB/)  
+KAO( :, 3, 6, 2) = (/&
+ & 3.7473E-04_JPRB,1.8004E-03_JPRB,2.3875E-03_JPRB,2.7253E-03_JPRB,2.8757E-03_JPRB,2.8921E-03_JPRB,&
+ & 2.7340E-03_JPRB,2.3415E-03_JPRB,6.6920E-04_JPRB/)  
+KAO( :, 4, 6, 2) = (/&
+ & 4.1385E-04_JPRB,1.9336E-03_JPRB,2.5474E-03_JPRB,2.9106E-03_JPRB,3.0795E-03_JPRB,3.1041E-03_JPRB,&
+ & 2.9464E-03_JPRB,2.5236E-03_JPRB,7.4227E-04_JPRB/)  
+KAO( :, 5, 6, 2) = (/&
+ & 4.5282E-04_JPRB,2.0641E-03_JPRB,2.7125E-03_JPRB,3.0998E-03_JPRB,3.2937E-03_JPRB,3.3201E-03_JPRB,&
+ & 3.1630E-03_JPRB,2.7121E-03_JPRB,8.2264E-04_JPRB/)  
+KAO( :, 1, 7, 2) = (/&
+ & 2.3216E-04_JPRB,1.2362E-03_JPRB,1.6616E-03_JPRB,1.8908E-03_JPRB,1.9971E-03_JPRB,1.9905E-03_JPRB,&
+ & 1.8720E-03_JPRB,1.5991E-03_JPRB,4.4178E-04_JPRB/)  
+KAO( :, 2, 7, 2) = (/&
+ & 2.6289E-04_JPRB,1.3329E-03_JPRB,1.7891E-03_JPRB,2.0369E-03_JPRB,2.1504E-03_JPRB,2.1555E-03_JPRB,&
+ & 2.0290E-03_JPRB,1.7365E-03_JPRB,4.9123E-04_JPRB/)  
+KAO( :, 3, 7, 2) = (/&
+ & 2.9417E-04_JPRB,1.4359E-03_JPRB,1.9156E-03_JPRB,2.1896E-03_JPRB,2.3102E-03_JPRB,2.3250E-03_JPRB,&
+ & 2.1958E-03_JPRB,1.8783E-03_JPRB,5.4688E-04_JPRB/)  
+KAO( :, 4, 7, 2) = (/&
+ & 3.2585E-04_JPRB,1.5437E-03_JPRB,2.0463E-03_JPRB,2.3419E-03_JPRB,2.4777E-03_JPRB,2.4981E-03_JPRB,&
+ & 2.3744E-03_JPRB,2.0299E-03_JPRB,6.0742E-04_JPRB/)  
+KAO( :, 5, 7, 2) = (/&
+ & 3.5762E-04_JPRB,1.6504E-03_JPRB,2.1798E-03_JPRB,2.4967E-03_JPRB,2.6528E-03_JPRB,2.6762E-03_JPRB,&
+ & 2.5533E-03_JPRB,2.1888E-03_JPRB,6.7380E-04_JPRB/)  
+KAO( :, 1, 8, 2) = (/&
+ & 1.8254E-04_JPRB,9.8374E-04_JPRB,1.3243E-03_JPRB,1.5057E-03_JPRB,1.5902E-03_JPRB,1.5824E-03_JPRB,&
+ & 1.4869E-03_JPRB,1.2665E-03_JPRB,3.9850E-04_JPRB/)  
+KAO( :, 2, 8, 2) = (/&
+ & 2.0666E-04_JPRB,1.0603E-03_JPRB,1.4275E-03_JPRB,1.6259E-03_JPRB,1.7181E-03_JPRB,1.7201E-03_JPRB,&
+ & 1.6174E-03_JPRB,1.3826E-03_JPRB,4.4169E-04_JPRB/)  
+KAO( :, 3, 8, 2) = (/&
+ & 2.3157E-04_JPRB,1.1419E-03_JPRB,1.5319E-03_JPRB,1.7520E-03_JPRB,1.8487E-03_JPRB,1.8612E-03_JPRB,&
+ & 1.7566E-03_JPRB,1.5015E-03_JPRB,4.8905E-04_JPRB/)  
+KAO( :, 4, 8, 2) = (/&
+ & 2.5700E-04_JPRB,1.2278E-03_JPRB,1.6373E-03_JPRB,1.8765E-03_JPRB,1.9849E-03_JPRB,2.0014E-03_JPRB,&
+ & 1.9031E-03_JPRB,1.6270E-03_JPRB,5.4213E-04_JPRB/)  
+KAO( :, 5, 8, 2) = (/&
+ & 2.8283E-04_JPRB,1.3158E-03_JPRB,1.7450E-03_JPRB,2.0017E-03_JPRB,2.1255E-03_JPRB,2.1468E-03_JPRB,&
+ & 2.0518E-03_JPRB,1.7597E-03_JPRB,6.0087E-04_JPRB/)  
+KAO( :, 1, 9, 2) = (/&
+ & 1.4492E-04_JPRB,7.8220E-04_JPRB,1.0529E-03_JPRB,1.1948E-03_JPRB,1.2616E-03_JPRB,1.2532E-03_JPRB,&
+ & 1.1763E-03_JPRB,9.9787E-04_JPRB,3.8271E-04_JPRB/)  
+KAO( :, 2, 9, 2) = (/&
+ & 1.6385E-04_JPRB,8.4332E-04_JPRB,1.1362E-03_JPRB,1.2935E-03_JPRB,1.3677E-03_JPRB,1.3665E-03_JPRB,&
+ & 1.2847E-03_JPRB,1.0960E-03_JPRB,4.2068E-04_JPRB/)  
+KAO( :, 3, 9, 2) = (/&
+ & 1.8366E-04_JPRB,9.0787E-04_JPRB,1.2223E-03_JPRB,1.3959E-03_JPRB,1.4750E-03_JPRB,1.4839E-03_JPRB,&
+ & 1.3993E-03_JPRB,1.1955E-03_JPRB,4.6660E-04_JPRB/)  
+KAO( :, 4, 9, 2) = (/&
+ & 2.0401E-04_JPRB,9.7621E-04_JPRB,1.3079E-03_JPRB,1.4991E-03_JPRB,1.5844E-03_JPRB,1.5989E-03_JPRB,&
+ & 1.5186E-03_JPRB,1.3000E-03_JPRB,5.2016E-04_JPRB/)  
+KAO( :, 5, 9, 2) = (/&
+ & 2.2477E-04_JPRB,1.0479E-03_JPRB,1.3948E-03_JPRB,1.6006E-03_JPRB,1.6979E-03_JPRB,1.7159E-03_JPRB,&
+ & 1.6415E-03_JPRB,1.4093E-03_JPRB,5.7816E-04_JPRB/)  
+KAO( :, 1,10, 2) = (/&
+ & 1.1869E-04_JPRB,6.2671E-04_JPRB,8.4082E-04_JPRB,9.5190E-04_JPRB,1.0039E-03_JPRB,9.9693E-04_JPRB,&
+ & 9.3504E-04_JPRB,7.8902E-04_JPRB,3.5140E-04_JPRB/)  
+KAO( :, 2,10, 2) = (/&
+ & 1.3381E-04_JPRB,6.7599E-04_JPRB,9.0913E-04_JPRB,1.0332E-03_JPRB,1.0921E-03_JPRB,1.0891E-03_JPRB,&
+ & 1.0243E-03_JPRB,8.7218E-04_JPRB,3.8763E-04_JPRB/)  
+KAO( :, 3,10, 2) = (/&
+ & 1.4959E-04_JPRB,7.2765E-04_JPRB,9.7958E-04_JPRB,1.1159E-03_JPRB,1.1802E-03_JPRB,1.1859E-03_JPRB,&
+ & 1.1183E-03_JPRB,9.5533E-04_JPRB,4.3010E-04_JPRB/)  
+KAO( :, 4,10, 2) = (/&
+ & 1.6589E-04_JPRB,7.8204E-04_JPRB,1.0498E-03_JPRB,1.2013E-03_JPRB,1.2689E-03_JPRB,1.2810E-03_JPRB,&
+ & 1.2156E-03_JPRB,1.0417E-03_JPRB,4.7716E-04_JPRB/)  
+KAO( :, 5,10, 2) = (/&
+ & 1.8260E-04_JPRB,8.3938E-04_JPRB,1.1206E-03_JPRB,1.2847E-03_JPRB,1.3612E-03_JPRB,1.3753E-03_JPRB,&
+ & 1.3161E-03_JPRB,1.1315E-03_JPRB,5.2947E-04_JPRB/)  
+KAO( :, 1,11, 2) = (/&
+ & 1.0311E-04_JPRB,5.2056E-04_JPRB,6.9637E-04_JPRB,7.8750E-04_JPRB,8.3059E-04_JPRB,8.2575E-04_JPRB,&
+ & 7.7490E-04_JPRB,6.5424E-04_JPRB,3.0281E-04_JPRB/)  
+KAO( :, 2,11, 2) = (/&
+ & 1.1590E-04_JPRB,5.6136E-04_JPRB,7.5296E-04_JPRB,8.5480E-04_JPRB,9.0353E-04_JPRB,9.0216E-04_JPRB,&
+ & 8.4999E-04_JPRB,7.2420E-04_JPRB,3.3507E-04_JPRB/)  
+KAO( :, 3,11, 2) = (/&
+ & 1.2889E-04_JPRB,6.0382E-04_JPRB,8.1101E-04_JPRB,9.2302E-04_JPRB,9.7570E-04_JPRB,9.8182E-04_JPRB,&
+ & 9.2806E-04_JPRB,7.9438E-04_JPRB,3.7284E-04_JPRB/)  
+KAO( :, 4,11, 2) = (/&
+ & 1.4211E-04_JPRB,6.4818E-04_JPRB,8.6860E-04_JPRB,9.9311E-04_JPRB,1.0487E-03_JPRB,1.0592E-03_JPRB,&
+ & 1.0081E-03_JPRB,8.6646E-04_JPRB,4.1455E-04_JPRB/)  
+KAO( :, 5,11, 2) = (/&
+ & 1.5566E-04_JPRB,6.9514E-04_JPRB,9.2716E-04_JPRB,1.0621E-03_JPRB,1.1251E-03_JPRB,1.1363E-03_JPRB,&
+ & 1.0898E-03_JPRB,9.4096E-04_JPRB,4.6093E-04_JPRB/)  
+KAO( :, 1,12, 2) = (/&
+ & 8.6906E-05_JPRB,4.2943E-04_JPRB,5.7386E-04_JPRB,6.4907E-04_JPRB,6.8516E-04_JPRB,6.8236E-04_JPRB,&
+ & 6.4150E-04_JPRB,5.4221E-04_JPRB,2.5343E-04_JPRB/)  
+KAO( :, 2,12, 2) = (/&
+ & 9.7363E-05_JPRB,4.6320E-04_JPRB,6.2055E-04_JPRB,7.0430E-04_JPRB,7.4506E-04_JPRB,7.4512E-04_JPRB,&
+ & 7.0369E-04_JPRB,6.0080E-04_JPRB,2.8076E-04_JPRB/)  
+KAO( :, 3,12, 2) = (/&
+ & 1.0822E-04_JPRB,4.9810E-04_JPRB,6.6816E-04_JPRB,7.6045E-04_JPRB,8.0385E-04_JPRB,8.1033E-04_JPRB,&
+ & 7.6791E-04_JPRB,6.5916E-04_JPRB,3.1267E-04_JPRB/)  
+KAO( :, 4,12, 2) = (/&
+ & 1.1919E-04_JPRB,5.3431E-04_JPRB,7.1547E-04_JPRB,8.1798E-04_JPRB,8.6412E-04_JPRB,8.7316E-04_JPRB,&
+ & 8.3318E-04_JPRB,7.1884E-04_JPRB,3.4804E-04_JPRB/)  
+KAO( :, 5,12, 2) = (/&
+ & 1.3020E-04_JPRB,5.7282E-04_JPRB,7.6401E-04_JPRB,8.7493E-04_JPRB,9.2683E-04_JPRB,9.3624E-04_JPRB,&
+ & 8.9962E-04_JPRB,7.8030E-04_JPRB,3.8737E-04_JPRB/)  
+KAO( :, 1,13, 2) = (/&
+ & 7.2736E-05_JPRB,3.5287E-04_JPRB,4.7103E-04_JPRB,5.3285E-04_JPRB,5.6294E-04_JPRB,5.6189E-04_JPRB,&
+ & 5.2952E-04_JPRB,4.4876E-04_JPRB,2.0844E-04_JPRB/)  
+KAO( :, 2,13, 2) = (/&
+ & 8.1220E-05_JPRB,3.8092E-04_JPRB,5.0957E-04_JPRB,5.7824E-04_JPRB,6.1199E-04_JPRB,6.1315E-04_JPRB,&
+ & 5.8053E-04_JPRB,4.9725E-04_JPRB,2.3115E-04_JPRB/)  
+KAO( :, 3,13, 2) = (/&
+ & 9.0164E-05_JPRB,4.0966E-04_JPRB,5.4894E-04_JPRB,6.2460E-04_JPRB,6.6024E-04_JPRB,6.6621E-04_JPRB,&
+ & 6.3308E-04_JPRB,5.4537E-04_JPRB,2.5750E-04_JPRB/)  
+KAO( :, 4,13, 2) = (/&
+ & 9.9376E-05_JPRB,4.3939E-04_JPRB,5.8810E-04_JPRB,6.7200E-04_JPRB,7.1008E-04_JPRB,7.1773E-04_JPRB,&
+ & 6.8617E-04_JPRB,5.9441E-04_JPRB,2.8680E-04_JPRB/)  
+KAO( :, 5,13, 2) = (/&
+ & 1.0854E-04_JPRB,4.7117E-04_JPRB,6.2833E-04_JPRB,7.1918E-04_JPRB,7.6187E-04_JPRB,7.6982E-04_JPRB,&
+ & 7.4086E-04_JPRB,6.4493E-04_JPRB,3.1932E-04_JPRB/)  
+KAO( :, 1, 1, 3) = (/&
+ & 2.8268E-03_JPRB,8.0007E-03_JPRB,1.0129E-02_JPRB,1.1600E-02_JPRB,1.2484E-02_JPRB,1.2903E-02_JPRB,&
+ & 1.2756E-02_JPRB,1.1762E-02_JPRB,4.6746E-03_JPRB/)  
+KAO( :, 2, 1, 3) = (/&
+ & 3.1283E-03_JPRB,8.6463E-03_JPRB,1.0922E-02_JPRB,1.2433E-02_JPRB,1.3339E-02_JPRB,1.3730E-02_JPRB,&
+ & 1.3558E-02_JPRB,1.2454E-02_JPRB,5.0133E-03_JPRB/)  
+KAO( :, 3, 1, 3) = (/&
+ & 3.4558E-03_JPRB,9.3189E-03_JPRB,1.1784E-02_JPRB,1.3331E-02_JPRB,1.4258E-02_JPRB,1.4611E-02_JPRB,&
+ & 1.4389E-02_JPRB,1.3149E-02_JPRB,5.3761E-03_JPRB/)  
+KAO( :, 4, 1, 3) = (/&
+ & 3.8003E-03_JPRB,1.0040E-02_JPRB,1.2672E-02_JPRB,1.4281E-02_JPRB,1.5240E-02_JPRB,1.5546E-02_JPRB,&
+ & 1.5245E-02_JPRB,1.3873E-02_JPRB,5.7489E-03_JPRB/)  
+KAO( :, 5, 1, 3) = (/&
+ & 4.1364E-03_JPRB,1.0810E-02_JPRB,1.3574E-02_JPRB,1.5264E-02_JPRB,1.6259E-02_JPRB,1.6515E-02_JPRB,&
+ & 1.6129E-02_JPRB,1.4624E-02_JPRB,6.1285E-03_JPRB/)  
+KAO( :, 1, 2, 3) = (/&
+ & 2.3785E-03_JPRB,6.8111E-03_JPRB,8.5917E-03_JPRB,9.8069E-03_JPRB,1.0520E-02_JPRB,1.0823E-02_JPRB,&
+ & 1.0667E-02_JPRB,9.8152E-03_JPRB,3.7184E-03_JPRB/)  
+KAO( :, 2, 2, 3) = (/&
+ & 2.6403E-03_JPRB,7.3805E-03_JPRB,9.2734E-03_JPRB,1.0506E-02_JPRB,1.1253E-02_JPRB,1.1531E-02_JPRB,&
+ & 1.1349E-02_JPRB,1.0403E-02_JPRB,4.0032E-03_JPRB/)  
+KAO( :, 3, 2, 3) = (/&
+ & 2.9257E-03_JPRB,7.9766E-03_JPRB,1.0007E-02_JPRB,1.1267E-02_JPRB,1.2040E-02_JPRB,1.2292E-02_JPRB,&
+ & 1.2064E-02_JPRB,1.1014E-02_JPRB,4.2975E-03_JPRB/)  
+KAO( :, 4, 2, 3) = (/&
+ & 3.2219E-03_JPRB,8.6148E-03_JPRB,1.0770E-02_JPRB,1.2085E-02_JPRB,1.2878E-02_JPRB,1.3098E-02_JPRB,&
+ & 1.2794E-02_JPRB,1.1649E-02_JPRB,4.6021E-03_JPRB/)  
+KAO( :, 5, 2, 3) = (/&
+ & 3.5088E-03_JPRB,9.2842E-03_JPRB,1.1557E-02_JPRB,1.2935E-02_JPRB,1.3737E-02_JPRB,1.3940E-02_JPRB,&
+ & 1.3572E-02_JPRB,1.2310E-02_JPRB,4.9140E-03_JPRB/)  
+KAO( :, 1, 3, 3) = (/&
+ & 1.9386E-03_JPRB,5.6660E-03_JPRB,7.1297E-03_JPRB,8.1429E-03_JPRB,8.7357E-03_JPRB,8.9496E-03_JPRB,&
+ & 8.7747E-03_JPRB,8.0582E-03_JPRB,2.9088E-03_JPRB/)  
+KAO( :, 2, 3, 3) = (/&
+ & 2.1579E-03_JPRB,6.1637E-03_JPRB,7.7083E-03_JPRB,8.7254E-03_JPRB,9.3435E-03_JPRB,9.5443E-03_JPRB,&
+ & 9.3488E-03_JPRB,8.5545E-03_JPRB,3.1389E-03_JPRB/)  
+KAO( :, 3, 3, 3) = (/&
+ & 2.3960E-03_JPRB,6.6842E-03_JPRB,8.3410E-03_JPRB,9.3621E-03_JPRB,1.0004E-02_JPRB,1.0182E-02_JPRB,&
+ & 9.9526E-03_JPRB,9.0715E-03_JPRB,3.3810E-03_JPRB/)  
+KAO( :, 4, 3, 3) = (/&
+ & 2.6451E-03_JPRB,7.2345E-03_JPRB,9.0005E-03_JPRB,1.0055E-02_JPRB,1.0704E-02_JPRB,1.0864E-02_JPRB,&
+ & 1.0573E-02_JPRB,9.6158E-03_JPRB,3.6280E-03_JPRB/)  
+KAO( :, 5, 3, 3) = (/&
+ & 2.8859E-03_JPRB,7.8078E-03_JPRB,9.6814E-03_JPRB,1.0782E-02_JPRB,1.1421E-02_JPRB,1.1580E-02_JPRB,&
+ & 1.1241E-02_JPRB,1.0187E-02_JPRB,3.8829E-03_JPRB/)  
+KAO( :, 1, 4, 3) = (/&
+ & 1.5600E-03_JPRB,4.6546E-03_JPRB,5.8495E-03_JPRB,6.6996E-03_JPRB,7.2044E-03_JPRB,7.3765E-03_JPRB,&
+ & 7.1865E-03_JPRB,6.5682E-03_JPRB,2.2826E-03_JPRB/)  
+KAO( :, 2, 4, 3) = (/&
+ & 1.7367E-03_JPRB,5.0823E-03_JPRB,6.3406E-03_JPRB,7.1867E-03_JPRB,7.7058E-03_JPRB,7.8650E-03_JPRB,&
+ & 7.6617E-03_JPRB,6.9802E-03_JPRB,2.4709E-03_JPRB/)  
+KAO( :, 3, 4, 3) = (/&
+ & 1.9306E-03_JPRB,5.5299E-03_JPRB,6.8812E-03_JPRB,7.7221E-03_JPRB,8.2549E-03_JPRB,8.3977E-03_JPRB,&
+ & 8.1626E-03_JPRB,7.4067E-03_JPRB,2.6716E-03_JPRB/)  
+KAO( :, 4, 4, 3) = (/&
+ & 2.1349E-03_JPRB,5.9971E-03_JPRB,7.4507E-03_JPRB,8.3116E-03_JPRB,8.8413E-03_JPRB,8.9674E-03_JPRB,&
+ & 8.6864E-03_JPRB,7.8658E-03_JPRB,2.8745E-03_JPRB/)  
+KAO( :, 5, 4, 3) = (/&
+ & 2.3336E-03_JPRB,6.4807E-03_JPRB,8.0336E-03_JPRB,8.9354E-03_JPRB,9.4416E-03_JPRB,9.5691E-03_JPRB,&
+ & 9.2483E-03_JPRB,8.3517E-03_JPRB,3.0875E-03_JPRB/)  
+KAO( :, 1, 5, 3) = (/&
+ & 1.2643E-03_JPRB,3.7992E-03_JPRB,4.7706E-03_JPRB,5.4821E-03_JPRB,5.9156E-03_JPRB,6.0631E-03_JPRB,&
+ & 5.8873E-03_JPRB,5.3374E-03_JPRB,1.7987E-03_JPRB/)  
+KAO( :, 2, 5, 3) = (/&
+ & 1.4029E-03_JPRB,4.1601E-03_JPRB,5.1876E-03_JPRB,5.8930E-03_JPRB,6.3304E-03_JPRB,6.4641E-03_JPRB,&
+ & 6.2801E-03_JPRB,5.6828E-03_JPRB,1.9541E-03_JPRB/)  
+KAO( :, 3, 5, 3) = (/&
+ & 1.5562E-03_JPRB,4.5381E-03_JPRB,5.6449E-03_JPRB,6.3470E-03_JPRB,6.7903E-03_JPRB,6.9025E-03_JPRB,&
+ & 6.6934E-03_JPRB,6.0371E-03_JPRB,2.1188E-03_JPRB/)  
+KAO( :, 4, 5, 3) = (/&
+ & 1.7190E-03_JPRB,4.9285E-03_JPRB,6.1272E-03_JPRB,6.8449E-03_JPRB,7.2797E-03_JPRB,7.3760E-03_JPRB,&
+ & 7.1291E-03_JPRB,6.4167E-03_JPRB,2.2886E-03_JPRB/)  
+KAO( :, 5, 5, 3) = (/&
+ & 1.8807E-03_JPRB,5.3341E-03_JPRB,6.6172E-03_JPRB,7.3735E-03_JPRB,7.7846E-03_JPRB,7.8779E-03_JPRB,&
+ & 7.5974E-03_JPRB,6.8236E-03_JPRB,2.4671E-03_JPRB/)  
+KAO( :, 1, 6, 3) = (/&
+ & 1.0213E-03_JPRB,3.0721E-03_JPRB,3.8660E-03_JPRB,4.4559E-03_JPRB,4.8197E-03_JPRB,4.9478E-03_JPRB,&
+ & 4.7982E-03_JPRB,4.3290E-03_JPRB,1.4118E-03_JPRB/)  
+KAO( :, 2, 6, 3) = (/&
+ & 1.1324E-03_JPRB,3.3728E-03_JPRB,4.2119E-03_JPRB,4.7959E-03_JPRB,5.1628E-03_JPRB,5.2793E-03_JPRB,&
+ & 5.1225E-03_JPRB,4.6162E-03_JPRB,1.5418E-03_JPRB/)  
+KAO( :, 3, 6, 3) = (/&
+ & 1.2545E-03_JPRB,3.6892E-03_JPRB,4.5936E-03_JPRB,5.1743E-03_JPRB,5.5467E-03_JPRB,5.6393E-03_JPRB,&
+ & 5.4667E-03_JPRB,4.9091E-03_JPRB,1.6767E-03_JPRB/)  
+KAO( :, 4, 6, 3) = (/&
+ & 1.3844E-03_JPRB,4.0151E-03_JPRB,4.9945E-03_JPRB,5.5888E-03_JPRB,5.9562E-03_JPRB,6.0318E-03_JPRB,&
+ & 5.8253E-03_JPRB,5.2198E-03_JPRB,1.8201E-03_JPRB/)  
+KAO( :, 5, 6, 3) = (/&
+ & 1.5162E-03_JPRB,4.3530E-03_JPRB,5.4044E-03_JPRB,6.0308E-03_JPRB,6.3808E-03_JPRB,6.4545E-03_JPRB,&
+ & 6.2163E-03_JPRB,5.5575E-03_JPRB,1.9706E-03_JPRB/)  
+KAO( :, 1, 7, 3) = (/&
+ & 8.1383E-04_JPRB,2.4690E-03_JPRB,3.1190E-03_JPRB,3.6045E-03_JPRB,3.9078E-03_JPRB,4.0152E-03_JPRB,&
+ & 3.8892E-03_JPRB,3.5066E-03_JPRB,1.1162E-03_JPRB/)  
+KAO( :, 2, 7, 3) = (/&
+ & 9.0133E-04_JPRB,2.7200E-03_JPRB,3.4007E-03_JPRB,3.8875E-03_JPRB,4.1896E-03_JPRB,4.2887E-03_JPRB,&
+ & 4.1574E-03_JPRB,3.7464E-03_JPRB,1.2253E-03_JPRB/)  
+KAO( :, 3, 7, 3) = (/&
+ & 9.9758E-04_JPRB,2.9822E-03_JPRB,3.7154E-03_JPRB,4.1988E-03_JPRB,4.5072E-03_JPRB,4.5864E-03_JPRB,&
+ & 4.4444E-03_JPRB,3.9910E-03_JPRB,1.3374E-03_JPRB/)  
+KAO( :, 4, 7, 3) = (/&
+ & 1.1009E-03_JPRB,3.2536E-03_JPRB,4.0499E-03_JPRB,4.5399E-03_JPRB,4.8474E-03_JPRB,4.9140E-03_JPRB,&
+ & 4.7441E-03_JPRB,4.2483E-03_JPRB,1.4572E-03_JPRB/)  
+KAO( :, 5, 7, 3) = (/&
+ & 1.2079E-03_JPRB,3.5321E-03_JPRB,4.3905E-03_JPRB,4.9045E-03_JPRB,5.2002E-03_JPRB,5.2665E-03_JPRB,&
+ & 5.0703E-03_JPRB,4.5267E-03_JPRB,1.5834E-03_JPRB/)  
+KAO( :, 1, 8, 3) = (/&
+ & 6.4403E-04_JPRB,1.9711E-03_JPRB,2.5061E-03_JPRB,2.9046E-03_JPRB,3.1552E-03_JPRB,3.2467E-03_JPRB,&
+ & 3.1397E-03_JPRB,2.8272E-03_JPRB,9.2879E-04_JPRB/)  
+KAO( :, 2, 8, 3) = (/&
+ & 7.1238E-04_JPRB,2.1771E-03_JPRB,2.7335E-03_JPRB,3.1363E-03_JPRB,3.3882E-03_JPRB,3.4702E-03_JPRB,&
+ & 3.3609E-03_JPRB,3.0275E-03_JPRB,1.0282E-03_JPRB/)  
+KAO( :, 3, 8, 3) = (/&
+ & 7.8775E-04_JPRB,2.3928E-03_JPRB,2.9888E-03_JPRB,3.3912E-03_JPRB,3.6502E-03_JPRB,3.7161E-03_JPRB,&
+ & 3.5992E-03_JPRB,3.2322E-03_JPRB,1.1312E-03_JPRB/)  
+KAO( :, 4, 8, 3) = (/&
+ & 8.6902E-04_JPRB,2.6176E-03_JPRB,3.2653E-03_JPRB,3.6711E-03_JPRB,3.9303E-03_JPRB,3.9873E-03_JPRB,&
+ & 3.8512E-03_JPRB,3.4474E-03_JPRB,1.2372E-03_JPRB/)  
+KAO( :, 5, 8, 3) = (/&
+ & 9.5395E-04_JPRB,2.8439E-03_JPRB,3.5472E-03_JPRB,3.9717E-03_JPRB,4.2227E-03_JPRB,4.2804E-03_JPRB,&
+ & 4.1230E-03_JPRB,3.6794E-03_JPRB,1.3472E-03_JPRB/)  
+KAO( :, 1, 9, 3) = (/&
+ & 5.1007E-04_JPRB,1.5656E-03_JPRB,2.0060E-03_JPRB,2.3330E-03_JPRB,2.5370E-03_JPRB,2.6132E-03_JPRB,&
+ & 2.5254E-03_JPRB,2.2694E-03_JPRB,9.3729E-04_JPRB/)  
+KAO( :, 2, 9, 3) = (/&
+ & 5.6353E-04_JPRB,1.7326E-03_JPRB,2.1869E-03_JPRB,2.5189E-03_JPRB,2.7285E-03_JPRB,2.7995E-03_JPRB,&
+ & 2.7056E-03_JPRB,2.4351E-03_JPRB,1.0493E-03_JPRB/)  
+KAO( :, 3, 9, 3) = (/&
+ & 6.2213E-04_JPRB,1.9088E-03_JPRB,2.3915E-03_JPRB,2.7258E-03_JPRB,2.9423E-03_JPRB,2.9995E-03_JPRB,&
+ & 2.9041E-03_JPRB,2.6067E-03_JPRB,1.1607E-03_JPRB/)  
+KAO( :, 4, 9, 3) = (/&
+ & 6.8571E-04_JPRB,2.0922E-03_JPRB,2.6149E-03_JPRB,2.9528E-03_JPRB,3.1723E-03_JPRB,3.2231E-03_JPRB,&
+ & 3.1163E-03_JPRB,2.7863E-03_JPRB,1.2669E-03_JPRB/)  
+KAO( :, 5, 9, 3) = (/&
+ & 7.5285E-04_JPRB,2.2758E-03_JPRB,2.8459E-03_JPRB,3.1985E-03_JPRB,3.4132E-03_JPRB,3.4638E-03_JPRB,&
+ & 3.3423E-03_JPRB,2.9799E-03_JPRB,1.3708E-03_JPRB/)  
+KAO( :, 1,10, 3) = (/&
+ & 4.0986E-04_JPRB,1.2514E-03_JPRB,1.6149E-03_JPRB,1.8827E-03_JPRB,2.0477E-03_JPRB,2.1068E-03_JPRB,&
+ & 2.0342E-03_JPRB,1.8264E-03_JPRB,9.4172E-04_JPRB/)  
+KAO( :, 2,10, 3) = (/&
+ & 4.5195E-04_JPRB,1.3870E-03_JPRB,1.7594E-03_JPRB,2.0313E-03_JPRB,2.2041E-03_JPRB,2.2637E-03_JPRB,&
+ & 2.1836E-03_JPRB,1.9630E-03_JPRB,1.0592E-03_JPRB/)  
+KAO( :, 3,10, 3) = (/&
+ & 4.9807E-04_JPRB,1.5305E-03_JPRB,1.9232E-03_JPRB,2.1993E-03_JPRB,2.3783E-03_JPRB,2.4282E-03_JPRB,&
+ & 2.3477E-03_JPRB,2.1050E-03_JPRB,1.1691E-03_JPRB/)  
+KAO( :, 4,10, 3) = (/&
+ & 5.4808E-04_JPRB,1.6789E-03_JPRB,2.1022E-03_JPRB,2.3829E-03_JPRB,2.5654E-03_JPRB,2.6091E-03_JPRB,&
+ & 2.5255E-03_JPRB,2.2562E-03_JPRB,1.2759E-03_JPRB/)  
+KAO( :, 5,10, 3) = (/&
+ & 6.0117E-04_JPRB,1.8287E-03_JPRB,2.2888E-03_JPRB,2.5807E-03_JPRB,2.7622E-03_JPRB,2.8066E-03_JPRB,&
+ & 2.7118E-03_JPRB,2.4197E-03_JPRB,1.3798E-03_JPRB/)  
+KAO( :, 1,11, 3) = (/&
+ & 3.4587E-04_JPRB,1.0486E-03_JPRB,1.3498E-03_JPRB,1.5706E-03_JPRB,1.7067E-03_JPRB,1.7541E-03_JPRB,&
+ & 1.6904E-03_JPRB,1.5189E-03_JPRB,8.4922E-04_JPRB/)  
+KAO( :, 2,11, 3) = (/&
+ & 3.8030E-04_JPRB,1.1612E-03_JPRB,1.4720E-03_JPRB,1.6962E-03_JPRB,1.8396E-03_JPRB,1.8877E-03_JPRB,&
+ & 1.8189E-03_JPRB,1.6321E-03_JPRB,9.4886E-04_JPRB/)  
+KAO( :, 3,11, 3) = (/&
+ & 4.1775E-04_JPRB,1.2794E-03_JPRB,1.6083E-03_JPRB,1.8372E-03_JPRB,1.9863E-03_JPRB,2.0269E-03_JPRB,&
+ & 1.9602E-03_JPRB,1.7534E-03_JPRB,1.0435E-03_JPRB/)  
+KAO( :, 4,11, 3) = (/&
+ & 4.5831E-04_JPRB,1.4012E-03_JPRB,1.7558E-03_JPRB,1.9899E-03_JPRB,2.1423E-03_JPRB,2.1791E-03_JPRB,&
+ & 2.1105E-03_JPRB,1.8847E-03_JPRB,1.1342E-03_JPRB/)  
+KAO( :, 5,11, 3) = (/&
+ & 5.0160E-04_JPRB,1.5235E-03_JPRB,1.9068E-03_JPRB,2.1518E-03_JPRB,2.3031E-03_JPRB,2.3452E-03_JPRB,&
+ & 2.2691E-03_JPRB,2.0271E-03_JPRB,1.2246E-03_JPRB/)  
+KAO( :, 1,12, 3) = (/&
+ & 2.8728E-04_JPRB,8.7138E-04_JPRB,1.1212E-03_JPRB,1.3035E-03_JPRB,1.4166E-03_JPRB,1.4556E-03_JPRB,&
+ & 1.4016E-03_JPRB,1.2592E-03_JPRB,7.2447E-04_JPRB/)  
+KAO( :, 2,12, 3) = (/&
+ & 3.1564E-04_JPRB,9.6434E-04_JPRB,1.2235E-03_JPRB,1.4085E-03_JPRB,1.5279E-03_JPRB,1.5679E-03_JPRB,&
+ & 1.5112E-03_JPRB,1.3542E-03_JPRB,8.0728E-04_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART2',1,ZHOOK_HANDLE)
+END SUBROUTINE PART2
+
+
+SUBROUTINE PART3
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART3',0,ZHOOK_HANDLE)
+
+
+KAO( :, 3,12, 3) = (/&
+ & 3.4588E-04_JPRB,1.0616E-03_JPRB,1.3357E-03_JPRB,1.5255E-03_JPRB,1.6505E-03_JPRB,1.6842E-03_JPRB,&
+ & 1.6309E-03_JPRB,1.4584E-03_JPRB,8.8538E-04_JPRB/)  
+KAO( :, 4,12, 3) = (/&
+ & 3.7862E-04_JPRB,1.1614E-03_JPRB,1.4559E-03_JPRB,1.6504E-03_JPRB,1.7780E-03_JPRB,1.8118E-03_JPRB,&
+ & 1.7570E-03_JPRB,1.5710E-03_JPRB,9.6174E-04_JPRB/)  
+KAO( :, 5,12, 3) = (/&
+ & 4.1375E-04_JPRB,1.2608E-03_JPRB,1.5783E-03_JPRB,1.7829E-03_JPRB,1.9097E-03_JPRB,1.9490E-03_JPRB,&
+ & 1.8902E-03_JPRB,1.6924E-03_JPRB,1.0383E-03_JPRB/)  
+KAO( :, 1,13, 3) = (/&
+ & 2.3648E-04_JPRB,7.2058E-04_JPRB,9.2721E-04_JPRB,1.0773E-03_JPRB,1.1715E-03_JPRB,1.2041E-03_JPRB,&
+ & 1.1590E-03_JPRB,1.0409E-03_JPRB,5.9750E-04_JPRB/)  
+KAO( :, 2,13, 3) = (/&
+ & 2.5991E-04_JPRB,7.9700E-04_JPRB,1.0119E-03_JPRB,1.1647E-03_JPRB,1.2640E-03_JPRB,1.2977E-03_JPRB,&
+ & 1.2520E-03_JPRB,1.1213E-03_JPRB,6.6442E-04_JPRB/)  
+KAO( :, 3,13, 3) = (/&
+ & 2.8463E-04_JPRB,8.7643E-04_JPRB,1.1035E-03_JPRB,1.2606E-03_JPRB,1.3651E-03_JPRB,1.3947E-03_JPRB,&
+ & 1.3520E-03_JPRB,1.2099E-03_JPRB,7.2829E-04_JPRB/)  
+KAO( :, 4,13, 3) = (/&
+ & 3.1116E-04_JPRB,9.5840E-04_JPRB,1.2015E-03_JPRB,1.3629E-03_JPRB,1.4693E-03_JPRB,1.4997E-03_JPRB,&
+ & 1.4571E-03_JPRB,1.3050E-03_JPRB,7.9195E-04_JPRB/)  
+KAO( :, 5,13, 3) = (/&
+ & 3.3973E-04_JPRB,1.0393E-03_JPRB,1.3011E-03_JPRB,1.4709E-03_JPRB,1.5771E-03_JPRB,1.6125E-03_JPRB,&
+ & 1.5669E-03_JPRB,1.4078E-03_JPRB,8.5580E-04_JPRB/)  
+KAO( :, 1, 1, 4) = (/&
+ & 6.8556E-03_JPRB,1.5209E-02_JPRB,1.8964E-02_JPRB,2.1311E-02_JPRB,2.2775E-02_JPRB,2.3573E-02_JPRB,&
+ & 2.3412E-02_JPRB,2.1611E-02_JPRB,1.0754E-02_JPRB/)  
+KAO( :, 2, 1, 4) = (/&
+ & 7.5360E-03_JPRB,1.6539E-02_JPRB,2.0389E-02_JPRB,2.2809E-02_JPRB,2.4368E-02_JPRB,2.5124E-02_JPRB,&
+ & 2.4893E-02_JPRB,2.2807E-02_JPRB,1.1409E-02_JPRB/)  
+KAO( :, 3, 1, 4) = (/&
+ & 8.2731E-03_JPRB,1.7967E-02_JPRB,2.1859E-02_JPRB,2.4354E-02_JPRB,2.6001E-02_JPRB,2.6738E-02_JPRB,&
+ & 2.6424E-02_JPRB,2.3981E-02_JPRB,1.2028E-02_JPRB/)  
+KAO( :, 4, 1, 4) = (/&
+ & 9.0669E-03_JPRB,1.9440E-02_JPRB,2.3386E-02_JPRB,2.5951E-02_JPRB,2.7638E-02_JPRB,2.8404E-02_JPRB,&
+ & 2.7993E-02_JPRB,2.5105E-02_JPRB,1.2622E-02_JPRB/)  
+KAO( :, 5, 1, 4) = (/&
+ & 9.9297E-03_JPRB,2.0867E-02_JPRB,2.4992E-02_JPRB,2.7620E-02_JPRB,2.9333E-02_JPRB,3.0144E-02_JPRB,&
+ & 2.9561E-02_JPRB,2.6196E-02_JPRB,1.3246E-02_JPRB/)  
+KAO( :, 1, 2, 4) = (/&
+ & 6.0458E-03_JPRB,1.3057E-02_JPRB,1.6177E-02_JPRB,1.8072E-02_JPRB,1.9267E-02_JPRB,1.9866E-02_JPRB,&
+ & 1.9708E-02_JPRB,1.7998E-02_JPRB,8.6186E-03_JPRB/)  
+KAO( :, 2, 2, 4) = (/&
+ & 6.6625E-03_JPRB,1.4207E-02_JPRB,1.7424E-02_JPRB,1.9390E-02_JPRB,2.0646E-02_JPRB,2.1226E-02_JPRB,&
+ & 2.0989E-02_JPRB,1.9040E-02_JPRB,9.1596E-03_JPRB/)  
+KAO( :, 3, 2, 4) = (/&
+ & 7.3258E-03_JPRB,1.5446E-02_JPRB,1.8730E-02_JPRB,2.0756E-02_JPRB,2.2068E-02_JPRB,2.2641E-02_JPRB,&
+ & 2.2320E-02_JPRB,2.0040E-02_JPRB,9.6719E-03_JPRB/)  
+KAO( :, 4, 2, 4) = (/&
+ & 8.0389E-03_JPRB,1.6697E-02_JPRB,2.0086E-02_JPRB,2.2176E-02_JPRB,2.3509E-02_JPRB,2.4128E-02_JPRB,&
+ & 2.3691E-02_JPRB,2.0995E-02_JPRB,1.0163E-02_JPRB/)  
+KAO( :, 5, 2, 4) = (/&
+ & 8.8116E-03_JPRB,1.7924E-02_JPRB,2.1495E-02_JPRB,2.3659E-02_JPRB,2.5007E-02_JPRB,2.5649E-02_JPRB,&
+ & 2.5070E-02_JPRB,2.1939E-02_JPRB,1.0681E-02_JPRB/)  
+KAO( :, 1, 3, 4) = (/&
+ & 5.1529E-03_JPRB,1.1010E-02_JPRB,1.3576E-02_JPRB,1.5057E-02_JPRB,1.5941E-02_JPRB,1.6391E-02_JPRB,&
+ & 1.6252E-02_JPRB,1.4825E-02_JPRB,6.7965E-03_JPRB/)  
+KAO( :, 2, 3, 4) = (/&
+ & 5.7021E-03_JPRB,1.1982E-02_JPRB,1.4643E-02_JPRB,1.6192E-02_JPRB,1.7140E-02_JPRB,1.7565E-02_JPRB,&
+ & 1.7355E-02_JPRB,1.5736E-02_JPRB,7.2498E-03_JPRB/)  
+KAO( :, 3, 3, 4) = (/&
+ & 6.2951E-03_JPRB,1.3030E-02_JPRB,1.5759E-02_JPRB,1.7371E-02_JPRB,1.8379E-02_JPRB,1.8797E-02_JPRB,&
+ & 1.8506E-02_JPRB,1.6604E-02_JPRB,7.6744E-03_JPRB/)  
+KAO( :, 4, 3, 4) = (/&
+ & 6.9329E-03_JPRB,1.4099E-02_JPRB,1.6924E-02_JPRB,1.8614E-02_JPRB,1.9640E-02_JPRB,2.0080E-02_JPRB,&
+ & 1.9697E-02_JPRB,1.7427E-02_JPRB,8.0855E-03_JPRB/)  
+KAO( :, 5, 3, 4) = (/&
+ & 7.6208E-03_JPRB,1.5154E-02_JPRB,1.8132E-02_JPRB,1.9899E-02_JPRB,2.0953E-02_JPRB,2.1403E-02_JPRB,&
+ & 2.0907E-02_JPRB,1.8236E-02_JPRB,8.5123E-03_JPRB/)  
+KAO( :, 1, 4, 4) = (/&
+ & 4.3117E-03_JPRB,9.2399E-03_JPRB,1.1333E-02_JPRB,1.2460E-02_JPRB,1.3088E-02_JPRB,1.3384E-02_JPRB,&
+ & 1.3264E-02_JPRB,1.2129E-02_JPRB,5.3638E-03_JPRB/)  
+KAO( :, 2, 4, 4) = (/&
+ & 4.7919E-03_JPRB,1.0057E-02_JPRB,1.2236E-02_JPRB,1.3425E-02_JPRB,1.4108E-02_JPRB,1.4384E-02_JPRB,&
+ & 1.4215E-02_JPRB,1.2919E-02_JPRB,5.7448E-03_JPRB/)  
+KAO( :, 3, 4, 4) = (/&
+ & 5.3141E-03_JPRB,1.0939E-02_JPRB,1.3172E-02_JPRB,1.4430E-02_JPRB,1.5160E-02_JPRB,1.5438E-02_JPRB,&
+ & 1.5198E-02_JPRB,1.3684E-02_JPRB,6.1060E-03_JPRB/)  
+KAO( :, 4, 4, 4) = (/&
+ & 5.8726E-03_JPRB,1.1850E-02_JPRB,1.4160E-02_JPRB,1.5498E-02_JPRB,1.6255E-02_JPRB,1.6542E-02_JPRB,&
+ & 1.6226E-02_JPRB,1.4411E-02_JPRB,6.4545E-03_JPRB/)  
+KAO( :, 5, 4, 4) = (/&
+ & 6.4675E-03_JPRB,1.2764E-02_JPRB,1.5190E-02_JPRB,1.6608E-02_JPRB,1.7400E-02_JPRB,1.7692E-02_JPRB,&
+ & 1.7269E-02_JPRB,1.5120E-02_JPRB,6.8073E-03_JPRB/)  
+KAO( :, 1, 5, 4) = (/&
+ & 3.5690E-03_JPRB,7.7051E-03_JPRB,9.4368E-03_JPRB,1.0305E-02_JPRB,1.0745E-02_JPRB,1.0912E-02_JPRB,&
+ & 1.0785E-02_JPRB,9.8773E-03_JPRB,4.2532E-03_JPRB/)  
+KAO( :, 2, 5, 4) = (/&
+ & 3.9820E-03_JPRB,8.3977E-03_JPRB,1.0194E-02_JPRB,1.1112E-02_JPRB,1.1609E-02_JPRB,1.1756E-02_JPRB,&
+ & 1.1595E-02_JPRB,1.0560E-02_JPRB,4.5731E-03_JPRB/)  
+KAO( :, 3, 5, 4) = (/&
+ & 4.4305E-03_JPRB,9.1511E-03_JPRB,1.0990E-02_JPRB,1.1967E-02_JPRB,1.2498E-02_JPRB,1.2650E-02_JPRB,&
+ & 1.2430E-02_JPRB,1.1229E-02_JPRB,4.8830E-03_JPRB/)  
+KAO( :, 4, 5, 4) = (/&
+ & 4.9079E-03_JPRB,9.9363E-03_JPRB,1.1832E-02_JPRB,1.2872E-02_JPRB,1.3434E-02_JPRB,1.3592E-02_JPRB,&
+ & 1.3307E-02_JPRB,1.1872E-02_JPRB,5.1810E-03_JPRB/)  
+KAO( :, 5, 5, 4) = (/&
+ & 5.4148E-03_JPRB,1.0727E-02_JPRB,1.2716E-02_JPRB,1.3820E-02_JPRB,1.4419E-02_JPRB,1.4584E-02_JPRB,&
+ & 1.4197E-02_JPRB,1.2492E-02_JPRB,5.4782E-03_JPRB/)  
+KAO( :, 1, 6, 4) = (/&
+ & 2.9249E-03_JPRB,6.3510E-03_JPRB,7.7849E-03_JPRB,8.4721E-03_JPRB,8.7941E-03_JPRB,8.8837E-03_JPRB,&
+ & 8.7388E-03_JPRB,7.9841E-03_JPRB,3.3710E-03_JPRB/)  
+KAO( :, 2, 6, 4) = (/&
+ & 3.2672E-03_JPRB,6.9385E-03_JPRB,8.4203E-03_JPRB,9.1541E-03_JPRB,9.5165E-03_JPRB,9.5904E-03_JPRB,&
+ & 9.4152E-03_JPRB,8.5713E-03_JPRB,3.6377E-03_JPRB/)  
+KAO( :, 3, 6, 4) = (/&
+ & 3.6418E-03_JPRB,7.5787E-03_JPRB,9.0887E-03_JPRB,9.8765E-03_JPRB,1.0268E-02_JPRB,1.0342E-02_JPRB,&
+ & 1.0116E-02_JPRB,9.1545E-03_JPRB,3.8990E-03_JPRB/)  
+KAO( :, 4, 6, 4) = (/&
+ & 4.0414E-03_JPRB,8.2510E-03_JPRB,9.8093E-03_JPRB,1.0646E-02_JPRB,1.1060E-02_JPRB,1.1134E-02_JPRB,&
+ & 1.0854E-02_JPRB,9.7190E-03_JPRB,4.1544E-03_JPRB/)  
+KAO( :, 5, 6, 4) = (/&
+ & 4.4633E-03_JPRB,8.9345E-03_JPRB,1.0570E-02_JPRB,1.1457E-02_JPRB,1.1902E-02_JPRB,1.1976E-02_JPRB,&
+ & 1.1614E-02_JPRB,1.0272E-02_JPRB,4.4061E-03_JPRB/)  
+KAO( :, 1, 7, 4) = (/&
+ & 2.3975E-03_JPRB,5.1959E-03_JPRB,6.3675E-03_JPRB,6.9242E-03_JPRB,7.1717E-03_JPRB,7.2208E-03_JPRB,&
+ & 7.0819E-03_JPRB,6.4278E-03_JPRB,2.6775E-03_JPRB/)  
+KAO( :, 2, 7, 4) = (/&
+ & 2.6794E-03_JPRB,5.6899E-03_JPRB,6.9066E-03_JPRB,7.4942E-03_JPRB,7.7787E-03_JPRB,7.8098E-03_JPRB,&
+ & 7.6464E-03_JPRB,6.9290E-03_JPRB,2.9001E-03_JPRB/)  
+KAO( :, 3, 7, 4) = (/&
+ & 2.9849E-03_JPRB,6.2316E-03_JPRB,7.4741E-03_JPRB,8.1056E-03_JPRB,8.4139E-03_JPRB,8.4374E-03_JPRB,&
+ & 8.2281E-03_JPRB,7.4302E-03_JPRB,3.1195E-03_JPRB/)  
+KAO( :, 4, 7, 4) = (/&
+ & 3.3129E-03_JPRB,6.7984E-03_JPRB,8.0790E-03_JPRB,8.7600E-03_JPRB,9.0837E-03_JPRB,9.1052E-03_JPRB,&
+ & 8.8458E-03_JPRB,7.9231E-03_JPRB,3.3376E-03_JPRB/)  
+KAO( :, 5, 7, 4) = (/&
+ & 3.6598E-03_JPRB,7.3757E-03_JPRB,8.7298E-03_JPRB,9.4547E-03_JPRB,9.7958E-03_JPRB,9.8221E-03_JPRB,&
+ & 9.4863E-03_JPRB,8.4060E-03_JPRB,3.5509E-03_JPRB/)  
+KAO( :, 1, 8, 4) = (/&
+ & 1.9434E-03_JPRB,4.2318E-03_JPRB,5.1740E-03_JPRB,5.6370E-03_JPRB,5.8246E-03_JPRB,5.8488E-03_JPRB,&
+ & 5.7327E-03_JPRB,5.1810E-03_JPRB,2.1537E-03_JPRB/)  
+KAO( :, 2, 8, 4) = (/&
+ & 2.1750E-03_JPRB,4.6511E-03_JPRB,5.6344E-03_JPRB,6.1150E-03_JPRB,6.3286E-03_JPRB,6.3404E-03_JPRB,&
+ & 6.2037E-03_JPRB,5.6029E-03_JPRB,2.3441E-03_JPRB/)  
+KAO( :, 3, 8, 4) = (/&
+ & 2.4260E-03_JPRB,5.1070E-03_JPRB,6.1176E-03_JPRB,6.6292E-03_JPRB,6.8641E-03_JPRB,6.8681E-03_JPRB,&
+ & 6.6887E-03_JPRB,6.0329E-03_JPRB,2.5317E-03_JPRB/)  
+KAO( :, 4, 8, 4) = (/&
+ & 2.6978E-03_JPRB,5.5812E-03_JPRB,6.6317E-03_JPRB,7.1849E-03_JPRB,7.4298E-03_JPRB,7.4337E-03_JPRB,&
+ & 7.2011E-03_JPRB,6.4503E-03_JPRB,2.7201E-03_JPRB/)  
+KAO( :, 5, 8, 4) = (/&
+ & 2.9851E-03_JPRB,6.0671E-03_JPRB,7.1793E-03_JPRB,7.7747E-03_JPRB,8.0358E-03_JPRB,8.0369E-03_JPRB,&
+ & 7.7421E-03_JPRB,6.8660E-03_JPRB,2.9050E-03_JPRB/)  
+KAO( :, 1, 9, 4) = (/&
+ & 1.5624E-03_JPRB,3.4224E-03_JPRB,4.1803E-03_JPRB,4.5613E-03_JPRB,4.7117E-03_JPRB,4.7269E-03_JPRB,&
+ & 4.6315E-03_JPRB,4.1802E-03_JPRB,2.0354E-03_JPRB/)  
+KAO( :, 2, 9, 4) = (/&
+ & 1.7467E-03_JPRB,3.7749E-03_JPRB,4.5748E-03_JPRB,4.9706E-03_JPRB,5.1343E-03_JPRB,5.1344E-03_JPRB,&
+ & 5.0243E-03_JPRB,4.5350E-03_JPRB,2.2250E-03_JPRB/)  
+KAO( :, 3, 9, 4) = (/&
+ & 1.9492E-03_JPRB,4.1547E-03_JPRB,4.9867E-03_JPRB,5.4054E-03_JPRB,5.5868E-03_JPRB,5.5764E-03_JPRB,&
+ & 5.4288E-03_JPRB,4.8977E-03_JPRB,2.4149E-03_JPRB/)  
+KAO( :, 4, 9, 4) = (/&
+ & 2.1701E-03_JPRB,4.5508E-03_JPRB,5.4194E-03_JPRB,5.8744E-03_JPRB,6.0659E-03_JPRB,6.0518E-03_JPRB,&
+ & 5.8540E-03_JPRB,5.2537E-03_JPRB,2.5971E-03_JPRB/)  
+KAO( :, 5, 9, 4) = (/&
+ & 2.4022E-03_JPRB,4.9613E-03_JPRB,5.8787E-03_JPRB,6.3727E-03_JPRB,6.5778E-03_JPRB,6.5618E-03_JPRB,&
+ & 6.3067E-03_JPRB,5.6053E-03_JPRB,2.7830E-03_JPRB/)  
+KAO( :, 1,10, 4) = (/&
+ & 1.2651E-03_JPRB,2.7744E-03_JPRB,3.3801E-03_JPRB,3.6900E-03_JPRB,3.8178E-03_JPRB,3.8360E-03_JPRB,&
+ & 3.7605E-03_JPRB,3.3907E-03_JPRB,2.1692E-03_JPRB/)  
+KAO( :, 2,10, 4) = (/&
+ & 1.4111E-03_JPRB,3.0657E-03_JPRB,3.7136E-03_JPRB,4.0421E-03_JPRB,4.1735E-03_JPRB,4.1745E-03_JPRB,&
+ & 4.0861E-03_JPRB,3.6872E-03_JPRB,2.3639E-03_JPRB/)  
+KAO( :, 3,10, 4) = (/&
+ & 1.5740E-03_JPRB,3.3806E-03_JPRB,4.0618E-03_JPRB,4.4105E-03_JPRB,4.5571E-03_JPRB,4.5460E-03_JPRB,&
+ & 4.4247E-03_JPRB,3.9923E-03_JPRB,2.5630E-03_JPRB/)  
+KAO( :, 4,10, 4) = (/&
+ & 1.7522E-03_JPRB,3.7084E-03_JPRB,4.4249E-03_JPRB,4.8035E-03_JPRB,4.9639E-03_JPRB,4.9498E-03_JPRB,&
+ & 4.7806E-03_JPRB,4.2956E-03_JPRB,2.7623E-03_JPRB/)  
+KAO( :, 5,10, 4) = (/&
+ & 1.9383E-03_JPRB,4.0495E-03_JPRB,4.8094E-03_JPRB,5.2222E-03_JPRB,5.3934E-03_JPRB,5.3817E-03_JPRB,&
+ & 5.1614E-03_JPRB,4.5951E-03_JPRB,2.9665E-03_JPRB/)  
+KAO( :, 1,11, 4) = (/&
+ & 1.0742E-03_JPRB,2.3468E-03_JPRB,2.8469E-03_JPRB,3.1039E-03_JPRB,3.2098E-03_JPRB,3.2233E-03_JPRB,&
+ & 3.1623E-03_JPRB,2.8537E-03_JPRB,1.9822E-03_JPRB/)  
+KAO( :, 2,11, 4) = (/&
+ & 1.1960E-03_JPRB,2.5965E-03_JPRB,3.1323E-03_JPRB,3.4077E-03_JPRB,3.5194E-03_JPRB,3.5164E-03_JPRB,&
+ & 3.4380E-03_JPRB,3.1056E-03_JPRB,2.1578E-03_JPRB/)  
+KAO( :, 3,11, 4) = (/&
+ & 1.3316E-03_JPRB,2.8599E-03_JPRB,3.4277E-03_JPRB,3.7260E-03_JPRB,3.8497E-03_JPRB,3.8405E-03_JPRB,&
+ & 3.7265E-03_JPRB,3.3630E-03_JPRB,2.3306E-03_JPRB/)  
+KAO( :, 4,11, 4) = (/&
+ & 1.4781E-03_JPRB,3.1344E-03_JPRB,3.7357E-03_JPRB,4.0610E-03_JPRB,4.1987E-03_JPRB,4.1913E-03_JPRB,&
+ & 4.0345E-03_JPRB,3.6192E-03_JPRB,2.5097E-03_JPRB/)  
+KAO( :, 5,11, 4) = (/&
+ & 1.6288E-03_JPRB,3.4177E-03_JPRB,4.0619E-03_JPRB,4.4185E-03_JPRB,4.5672E-03_JPRB,4.5600E-03_JPRB,&
+ & 4.3663E-03_JPRB,3.8756E-03_JPRB,2.6889E-03_JPRB/)  
+KAO( :, 1,12, 4) = (/&
+ & 8.9874E-04_JPRB,1.9689E-03_JPRB,2.3835E-03_JPRB,2.5973E-03_JPRB,2.6864E-03_JPRB,2.6939E-03_JPRB,&
+ & 2.6425E-03_JPRB,2.3895E-03_JPRB,1.7049E-03_JPRB/)  
+KAO( :, 2,12, 4) = (/&
+ & 1.0002E-03_JPRB,2.1778E-03_JPRB,2.6233E-03_JPRB,2.8564E-03_JPRB,2.9517E-03_JPRB,2.9476E-03_JPRB,&
+ & 2.8766E-03_JPRB,2.6019E-03_JPRB,1.8543E-03_JPRB/)  
+KAO( :, 3,12, 4) = (/&
+ & 1.1122E-03_JPRB,2.3973E-03_JPRB,2.8713E-03_JPRB,3.1266E-03_JPRB,3.2310E-03_JPRB,3.2276E-03_JPRB,&
+ & 3.1237E-03_JPRB,2.8177E-03_JPRB,2.0046E-03_JPRB/)  
+KAO( :, 4,12, 4) = (/&
+ & 1.2310E-03_JPRB,2.6254E-03_JPRB,3.1305E-03_JPRB,3.4112E-03_JPRB,3.5275E-03_JPRB,3.5259E-03_JPRB,&
+ & 3.3898E-03_JPRB,3.0349E-03_JPRB,2.1565E-03_JPRB/)  
+KAO( :, 5,12, 4) = (/&
+ & 1.3518E-03_JPRB,2.8575E-03_JPRB,3.4006E-03_JPRB,3.7092E-03_JPRB,3.8403E-03_JPRB,3.8370E-03_JPRB,&
+ & 3.6750E-03_JPRB,3.2557E-03_JPRB,2.3061E-03_JPRB/)  
+KAO( :, 1,13, 4) = (/&
+ & 7.4537E-04_JPRB,1.6409E-03_JPRB,1.9863E-03_JPRB,2.1648E-03_JPRB,2.2399E-03_JPRB,2.2444E-03_JPRB,&
+ & 2.1988E-03_JPRB,1.9916E-03_JPRB,1.4115E-03_JPRB/)  
+KAO( :, 2,13, 4) = (/&
+ & 8.2943E-04_JPRB,1.8143E-03_JPRB,2.1850E-03_JPRB,2.3828E-03_JPRB,2.4639E-03_JPRB,2.4609E-03_JPRB,&
+ & 2.3970E-03_JPRB,2.1692E-03_JPRB,1.5369E-03_JPRB/)  
+KAO( :, 3,13, 4) = (/&
+ & 9.2142E-04_JPRB,1.9970E-03_JPRB,2.3927E-03_JPRB,2.6093E-03_JPRB,2.6971E-03_JPRB,2.6969E-03_JPRB,&
+ & 2.6076E-03_JPRB,2.3521E-03_JPRB,1.6626E-03_JPRB/)  
+KAO( :, 4,13, 4) = (/&
+ & 1.0167E-03_JPRB,2.1837E-03_JPRB,2.6078E-03_JPRB,2.8478E-03_JPRB,2.9467E-03_JPRB,2.9488E-03_JPRB,&
+ & 2.8346E-03_JPRB,2.5383E-03_JPRB,1.7879E-03_JPRB/)  
+KAO( :, 5,13, 4) = (/&
+ & 1.1138E-03_JPRB,2.3733E-03_JPRB,2.8290E-03_JPRB,3.0924E-03_JPRB,3.2079E-03_JPRB,3.2103E-03_JPRB,&
+ & 3.0778E-03_JPRB,2.7284E-03_JPRB,1.9133E-03_JPRB/)  
+KAO( :, 1, 1, 5) = (/&
+ & 1.7181E-02_JPRB,3.2302E-02_JPRB,3.8595E-02_JPRB,4.2778E-02_JPRB,4.5051E-02_JPRB,4.5779E-02_JPRB,&
+ & 4.4076E-02_JPRB,3.6499E-02_JPRB,2.1167E-02_JPRB/)  
+KAO( :, 2, 1, 5) = (/&
+ & 1.8715E-02_JPRB,3.4583E-02_JPRB,4.1400E-02_JPRB,4.5830E-02_JPRB,4.8256E-02_JPRB,4.8951E-02_JPRB,&
+ & 4.6576E-02_JPRB,3.8480E-02_JPRB,2.2565E-02_JPRB/)  
+KAO( :, 3, 1, 5) = (/&
+ & 2.0319E-02_JPRB,3.6940E-02_JPRB,4.4260E-02_JPRB,4.8908E-02_JPRB,5.1471E-02_JPRB,5.2022E-02_JPRB,&
+ & 4.8965E-02_JPRB,4.0507E-02_JPRB,2.4057E-02_JPRB/)  
+KAO( :, 4, 1, 5) = (/&
+ & 2.1938E-02_JPRB,3.9364E-02_JPRB,4.7234E-02_JPRB,5.2022E-02_JPRB,5.4697E-02_JPRB,5.4911E-02_JPRB,&
+ & 5.1216E-02_JPRB,4.2565E-02_JPRB,2.5590E-02_JPRB/)  
+KAO( :, 5, 1, 5) = (/&
+ & 2.3550E-02_JPRB,4.1966E-02_JPRB,5.0230E-02_JPRB,5.5149E-02_JPRB,5.7839E-02_JPRB,5.7598E-02_JPRB,&
+ & 5.3448E-02_JPRB,4.4689E-02_JPRB,2.7100E-02_JPRB/)  
+KAO( :, 1, 2, 5) = (/&
+ & 1.5052E-02_JPRB,2.7803E-02_JPRB,3.3102E-02_JPRB,3.6670E-02_JPRB,3.8668E-02_JPRB,3.9030E-02_JPRB,&
+ & 3.7189E-02_JPRB,3.0668E-02_JPRB,1.6985E-02_JPRB/)  
+KAO( :, 2, 2, 5) = (/&
+ & 1.6394E-02_JPRB,2.9857E-02_JPRB,3.5621E-02_JPRB,3.9412E-02_JPRB,4.1539E-02_JPRB,4.1835E-02_JPRB,&
+ & 3.9351E-02_JPRB,3.2356E-02_JPRB,1.8150E-02_JPRB/)  
+KAO( :, 3, 2, 5) = (/&
+ & 1.7773E-02_JPRB,3.1981E-02_JPRB,3.8209E-02_JPRB,4.2190E-02_JPRB,4.4385E-02_JPRB,4.4554E-02_JPRB,&
+ & 4.1400E-02_JPRB,3.4106E-02_JPRB,1.9354E-02_JPRB/)  
+KAO( :, 4, 2, 5) = (/&
+ & 1.9186E-02_JPRB,3.4227E-02_JPRB,4.0894E-02_JPRB,4.4998E-02_JPRB,4.7235E-02_JPRB,4.7050E-02_JPRB,&
+ & 4.3366E-02_JPRB,3.5935E-02_JPRB,2.0592E-02_JPRB/)  
+KAO( :, 5, 2, 5) = (/&
+ & 2.0602E-02_JPRB,3.6657E-02_JPRB,4.3639E-02_JPRB,4.7854E-02_JPRB,5.0031E-02_JPRB,4.9403E-02_JPRB,&
+ & 4.5298E-02_JPRB,3.7775E-02_JPRB,2.1830E-02_JPRB/)  
+KAO( :, 1, 3, 5) = (/&
+ & 1.3014E-02_JPRB,2.3440E-02_JPRB,2.7739E-02_JPRB,3.0683E-02_JPRB,3.2476E-02_JPRB,3.2815E-02_JPRB,&
+ & 3.1052E-02_JPRB,2.5347E-02_JPRB,1.3409E-02_JPRB/)  
+KAO( :, 2, 3, 5) = (/&
+ & 1.4134E-02_JPRB,2.5267E-02_JPRB,2.9956E-02_JPRB,3.3121E-02_JPRB,3.5013E-02_JPRB,3.5276E-02_JPRB,&
+ & 3.2969E-02_JPRB,2.6772E-02_JPRB,1.4346E-02_JPRB/)  
+KAO( :, 3, 3, 5) = (/&
+ & 1.5286E-02_JPRB,2.7161E-02_JPRB,3.2264E-02_JPRB,3.5614E-02_JPRB,3.7525E-02_JPRB,3.7651E-02_JPRB,&
+ & 3.4766E-02_JPRB,2.8284E-02_JPRB,1.5307E-02_JPRB/)  
+KAO( :, 4, 3, 5) = (/&
+ & 1.6478E-02_JPRB,2.9176E-02_JPRB,3.4663E-02_JPRB,3.8132E-02_JPRB,4.0060E-02_JPRB,3.9857E-02_JPRB,&
+ & 3.6493E-02_JPRB,2.9862E-02_JPRB,1.6309E-02_JPRB/)  
+KAO( :, 5, 3, 5) = (/&
+ & 1.7703E-02_JPRB,3.1371E-02_JPRB,3.7140E-02_JPRB,4.0703E-02_JPRB,4.2572E-02_JPRB,4.1936E-02_JPRB,&
+ & 3.8184E-02_JPRB,3.1459E-02_JPRB,1.7321E-02_JPRB/)  
+KAO( :, 1, 4, 5) = (/&
+ & 1.1231E-02_JPRB,1.9592E-02_JPRB,2.3001E-02_JPRB,2.5417E-02_JPRB,2.6918E-02_JPRB,2.7254E-02_JPRB,&
+ & 2.5764E-02_JPRB,2.0867E-02_JPRB,1.0611E-02_JPRB/)  
+KAO( :, 2, 4, 5) = (/&
+ & 1.2152E-02_JPRB,2.1190E-02_JPRB,2.4941E-02_JPRB,2.7556E-02_JPRB,2.9134E-02_JPRB,2.9416E-02_JPRB,&
+ & 2.7448E-02_JPRB,2.2085E-02_JPRB,1.1371E-02_JPRB/)  
+KAO( :, 3, 4, 5) = (/&
+ & 1.3112E-02_JPRB,2.2852E-02_JPRB,2.6983E-02_JPRB,2.9739E-02_JPRB,3.1347E-02_JPRB,3.1506E-02_JPRB,&
+ & 2.9043E-02_JPRB,2.3373E-02_JPRB,1.2148E-02_JPRB/)  
+KAO( :, 4, 4, 5) = (/&
+ & 1.4124E-02_JPRB,2.4635E-02_JPRB,2.9094E-02_JPRB,3.1959E-02_JPRB,3.3566E-02_JPRB,3.3485E-02_JPRB,&
+ & 3.0596E-02_JPRB,2.4717E-02_JPRB,1.2964E-02_JPRB/)  
+KAO( :, 5, 4, 5) = (/&
+ & 1.5184E-02_JPRB,2.6570E-02_JPRB,3.1299E-02_JPRB,3.4230E-02_JPRB,3.5790E-02_JPRB,3.5353E-02_JPRB,&
+ & 3.2102E-02_JPRB,2.6103E-02_JPRB,1.3794E-02_JPRB/)  
+KAO( :, 1, 5, 5) = (/&
+ & 9.6625E-03_JPRB,1.6401E-02_JPRB,1.9034E-02_JPRB,2.0952E-02_JPRB,2.2133E-02_JPRB,2.2396E-02_JPRB,&
+ & 2.1200E-02_JPRB,1.7173E-02_JPRB,8.4178E-03_JPRB/)  
+KAO( :, 2, 5, 5) = (/&
+ & 1.0438E-02_JPRB,1.7777E-02_JPRB,2.0706E-02_JPRB,2.2811E-02_JPRB,2.4067E-02_JPRB,2.4293E-02_JPRB,&
+ & 2.2690E-02_JPRB,1.8230E-02_JPRB,9.0426E-03_JPRB/)  
+KAO( :, 3, 5, 5) = (/&
+ & 1.1254E-02_JPRB,1.9209E-02_JPRB,2.2469E-02_JPRB,2.4701E-02_JPRB,2.6015E-02_JPRB,2.6148E-02_JPRB,&
+ & 2.4123E-02_JPRB,1.9342E-02_JPRB,9.6801E-03_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART3',1,ZHOOK_HANDLE)
+END SUBROUTINE PART3
+
+
+SUBROUTINE PART4
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART4',0,ZHOOK_HANDLE)
+
+
+KAO( :, 4, 5, 5) = (/&
+ & 1.2133E-02_JPRB,2.0762E-02_JPRB,2.4308E-02_JPRB,2.6645E-02_JPRB,2.7949E-02_JPRB,2.7917E-02_JPRB,&
+ & 2.5517E-02_JPRB,2.0494E-02_JPRB,1.0342E-02_JPRB/)  
+KAO( :, 5, 5, 5) = (/&
+ & 1.3065E-02_JPRB,2.2455E-02_JPRB,2.6254E-02_JPRB,2.8630E-02_JPRB,2.9901E-02_JPRB,2.9590E-02_JPRB,&
+ & 2.6871E-02_JPRB,2.1687E-02_JPRB,1.1028E-02_JPRB/)  
+KAO( :, 1, 6, 5) = (/&
+ & 8.2007E-03_JPRB,1.3715E-02_JPRB,1.5729E-02_JPRB,1.7180E-02_JPRB,1.8048E-02_JPRB,1.8207E-02_JPRB,&
+ & 1.7264E-02_JPRB,1.4054E-02_JPRB,6.6647E-03_JPRB/)  
+KAO( :, 2, 6, 5) = (/&
+ & 8.8577E-03_JPRB,1.4875E-02_JPRB,1.7145E-02_JPRB,1.8767E-02_JPRB,1.9710E-02_JPRB,1.9852E-02_JPRB,&
+ & 1.8586E-02_JPRB,1.4966E-02_JPRB,7.1861E-03_JPRB/)  
+KAO( :, 3, 6, 5) = (/&
+ & 9.5621E-03_JPRB,1.6088E-02_JPRB,1.8646E-02_JPRB,2.0384E-02_JPRB,2.1390E-02_JPRB,2.1481E-02_JPRB,&
+ & 1.9863E-02_JPRB,1.5925E-02_JPRB,7.7141E-03_JPRB/)  
+KAO( :, 4, 6, 5) = (/&
+ & 1.0328E-02_JPRB,1.7422E-02_JPRB,2.0223E-02_JPRB,2.2061E-02_JPRB,2.3072E-02_JPRB,2.3059E-02_JPRB,&
+ & 2.1135E-02_JPRB,1.6924E-02_JPRB,8.2553E-03_JPRB/)  
+KAO( :, 5, 6, 5) = (/&
+ & 1.1150E-02_JPRB,1.8880E-02_JPRB,2.1894E-02_JPRB,2.3787E-02_JPRB,2.4780E-02_JPRB,2.4546E-02_JPRB,&
+ & 2.2361E-02_JPRB,1.7956E-02_JPRB,8.8222E-03_JPRB/)  
+KAO( :, 1, 7, 5) = (/&
+ & 6.8716E-03_JPRB,1.1438E-02_JPRB,1.2980E-02_JPRB,1.4066E-02_JPRB,1.4694E-02_JPRB,1.4738E-02_JPRB,&
+ & 1.3970E-02_JPRB,1.1459E-02_JPRB,5.2799E-03_JPRB/)  
+KAO( :, 2, 7, 5) = (/&
+ & 7.4237E-03_JPRB,1.2422E-02_JPRB,1.4174E-02_JPRB,1.5413E-02_JPRB,1.6105E-02_JPRB,1.6152E-02_JPRB,&
+ & 1.5139E-02_JPRB,1.2254E-02_JPRB,5.7135E-03_JPRB/)  
+KAO( :, 3, 7, 5) = (/&
+ & 8.0288E-03_JPRB,1.3449E-02_JPRB,1.5440E-02_JPRB,1.6795E-02_JPRB,1.7529E-02_JPRB,1.7565E-02_JPRB,&
+ & 1.6277E-02_JPRB,1.3083E-02_JPRB,6.1506E-03_JPRB/)  
+KAO( :, 4, 7, 5) = (/&
+ & 8.6956E-03_JPRB,1.4582E-02_JPRB,1.6791E-02_JPRB,1.8226E-02_JPRB,1.8968E-02_JPRB,1.8943E-02_JPRB,&
+ & 1.7401E-02_JPRB,1.3948E-02_JPRB,6.5933E-03_JPRB/)  
+KAO( :, 5, 7, 5) = (/&
+ & 9.4131E-03_JPRB,1.5832E-02_JPRB,1.8226E-02_JPRB,1.9705E-02_JPRB,2.0439E-02_JPRB,2.0248E-02_JPRB,&
+ & 1.8508E-02_JPRB,1.4839E-02_JPRB,7.0585E-03_JPRB/)  
+KAO( :, 1, 8, 5) = (/&
+ & 5.7435E-03_JPRB,9.4740E-03_JPRB,1.0676E-02_JPRB,1.1493E-02_JPRB,1.1955E-02_JPRB,1.1929E-02_JPRB,&
+ & 1.1279E-02_JPRB,9.3230E-03_JPRB,4.2354E-03_JPRB/)  
+KAO( :, 2, 8, 5) = (/&
+ & 6.2010E-03_JPRB,1.0304E-02_JPRB,1.1685E-02_JPRB,1.2627E-02_JPRB,1.3147E-02_JPRB,1.3135E-02_JPRB,&
+ & 1.2304E-02_JPRB,1.0014E-02_JPRB,4.5941E-03_JPRB/)  
+KAO( :, 3, 8, 5) = (/&
+ & 6.7137E-03_JPRB,1.1183E-02_JPRB,1.2753E-02_JPRB,1.3801E-02_JPRB,1.4354E-02_JPRB,1.4340E-02_JPRB,&
+ & 1.3315E-02_JPRB,1.0741E-02_JPRB,4.9555E-03_JPRB/)  
+KAO( :, 4, 8, 5) = (/&
+ & 7.2796E-03_JPRB,1.2147E-02_JPRB,1.3897E-02_JPRB,1.5019E-02_JPRB,1.5585E-02_JPRB,1.5528E-02_JPRB,&
+ & 1.4315E-02_JPRB,1.1502E-02_JPRB,5.3165E-03_JPRB/)  
+KAO( :, 5, 8, 5) = (/&
+ & 7.8871E-03_JPRB,1.3218E-02_JPRB,1.5130E-02_JPRB,1.6296E-02_JPRB,1.6839E-02_JPRB,1.6669E-02_JPRB,&
+ & 1.5291E-02_JPRB,1.2282E-02_JPRB,5.6971E-03_JPRB/)  
+KAO( :, 1, 9, 5) = (/&
+ & 4.7912E-03_JPRB,7.8358E-03_JPRB,8.7667E-03_JPRB,9.3820E-03_JPRB,9.7143E-03_JPRB,9.6500E-03_JPRB,&
+ & 9.0841E-03_JPRB,7.5626E-03_JPRB,3.7702E-03_JPRB/)  
+KAO( :, 2, 9, 5) = (/&
+ & 5.1805E-03_JPRB,8.5367E-03_JPRB,9.6133E-03_JPRB,1.0334E-02_JPRB,1.0715E-02_JPRB,1.0676E-02_JPRB,&
+ & 9.9859E-03_JPRB,8.1627E-03_JPRB,4.1139E-03_JPRB/)  
+KAO( :, 3, 9, 5) = (/&
+ & 5.6138E-03_JPRB,9.2835E-03_JPRB,1.0517E-02_JPRB,1.1325E-02_JPRB,1.1739E-02_JPRB,1.1698E-02_JPRB,&
+ & 1.0873E-02_JPRB,8.7929E-03_JPRB,4.4462E-03_JPRB/)  
+KAO( :, 4, 9, 5) = (/&
+ & 6.0888E-03_JPRB,1.0103E-02_JPRB,1.1488E-02_JPRB,1.2361E-02_JPRB,1.2785E-02_JPRB,1.2718E-02_JPRB,&
+ & 1.1751E-02_JPRB,9.4626E-03_JPRB,4.7957E-03_JPRB/)  
+KAO( :, 5, 9, 5) = (/&
+ & 6.6048E-03_JPRB,1.1011E-02_JPRB,1.2538E-02_JPRB,1.3462E-02_JPRB,1.3863E-02_JPRB,1.3713E-02_JPRB,&
+ & 1.2615E-02_JPRB,1.0155E-02_JPRB,5.1561E-03_JPRB/)  
+KAO( :, 1,10, 5) = (/&
+ & 3.9863E-03_JPRB,6.4924E-03_JPRB,7.2470E-03_JPRB,7.7132E-03_JPRB,7.9522E-03_JPRB,7.8682E-03_JPRB,&
+ & 7.3679E-03_JPRB,6.1741E-03_JPRB,4.1464E-03_JPRB/)  
+KAO( :, 2,10, 5) = (/&
+ & 4.3124E-03_JPRB,7.0973E-03_JPRB,7.9675E-03_JPRB,8.5161E-03_JPRB,8.8014E-03_JPRB,8.7362E-03_JPRB,&
+ & 8.1504E-03_JPRB,6.7002E-03_JPRB,4.5619E-03_JPRB/)  
+KAO( :, 3,10, 5) = (/&
+ & 4.6741E-03_JPRB,7.7383E-03_JPRB,8.7399E-03_JPRB,9.3597E-03_JPRB,9.6733E-03_JPRB,9.6088E-03_JPRB,&
+ & 8.9286E-03_JPRB,7.2584E-03_JPRB,4.9900E-03_JPRB/)  
+KAO( :, 4,10, 5) = (/&
+ & 5.0713E-03_JPRB,8.4456E-03_JPRB,9.5735E-03_JPRB,1.0251E-02_JPRB,1.0572E-02_JPRB,1.0481E-02_JPRB,&
+ & 9.6979E-03_JPRB,7.8488E-03_JPRB,5.4214E-03_JPRB/)  
+KAO( :, 5,10, 5) = (/&
+ & 5.5035E-03_JPRB,9.2235E-03_JPRB,1.0475E-02_JPRB,1.1200E-02_JPRB,1.1508E-02_JPRB,1.1347E-02_JPRB,&
+ & 1.0465E-02_JPRB,8.4573E-03_JPRB,5.8532E-03_JPRB/)  
+KAO( :, 1,11, 5) = (/&
+ & 3.4140E-03_JPRB,5.5663E-03_JPRB,6.2176E-03_JPRB,6.6132E-03_JPRB,6.8087E-03_JPRB,6.7328E-03_JPRB,&
+ & 6.2855E-03_JPRB,5.2486E-03_JPRB,3.9285E-03_JPRB/)  
+KAO( :, 2,11, 5) = (/&
+ & 3.6967E-03_JPRB,6.0927E-03_JPRB,6.8505E-03_JPRB,7.3111E-03_JPRB,7.5377E-03_JPRB,7.4746E-03_JPRB,&
+ & 6.9609E-03_JPRB,5.7240E-03_JPRB,4.3138E-03_JPRB/)  
+KAO( :, 3,11, 5) = (/&
+ & 4.0076E-03_JPRB,6.6620E-03_JPRB,7.5356E-03_JPRB,8.0510E-03_JPRB,8.2975E-03_JPRB,8.2276E-03_JPRB,&
+ & 7.6355E-03_JPRB,6.2275E-03_JPRB,4.7141E-03_JPRB/)  
+KAO( :, 4,11, 5) = (/&
+ & 4.3451E-03_JPRB,7.2880E-03_JPRB,8.2782E-03_JPRB,8.8424E-03_JPRB,9.0928E-03_JPRB,8.9832E-03_JPRB,&
+ & 8.3078E-03_JPRB,6.7453E-03_JPRB,5.1152E-03_JPRB/)  
+KAO( :, 5,11, 5) = (/&
+ & 4.7137E-03_JPRB,7.9681E-03_JPRB,9.0805E-03_JPRB,9.6843E-03_JPRB,9.9239E-03_JPRB,9.7470E-03_JPRB,&
+ & 8.9796E-03_JPRB,7.2798E-03_JPRB,5.5223E-03_JPRB/)  
+KAO( :, 1,12, 5) = (/&
+ & 2.8904E-03_JPRB,4.7236E-03_JPRB,5.2777E-03_JPRB,5.6093E-03_JPRB,5.7722E-03_JPRB,5.7159E-03_JPRB,&
+ & 5.3358E-03_JPRB,4.4458E-03_JPRB,3.4411E-03_JPRB/)  
+KAO( :, 2,12, 5) = (/&
+ & 3.1305E-03_JPRB,5.1808E-03_JPRB,5.8340E-03_JPRB,6.2167E-03_JPRB,6.4011E-03_JPRB,6.3506E-03_JPRB,&
+ & 5.9136E-03_JPRB,4.8660E-03_JPRB,3.7674E-03_JPRB/)  
+KAO( :, 3,12, 5) = (/&
+ & 3.3899E-03_JPRB,5.6784E-03_JPRB,6.4390E-03_JPRB,6.8698E-03_JPRB,7.0684E-03_JPRB,6.9989E-03_JPRB,&
+ & 6.4975E-03_JPRB,5.3037E-03_JPRB,4.1043E-03_JPRB/)  
+KAO( :, 4,12, 5) = (/&
+ & 3.6744E-03_JPRB,6.2189E-03_JPRB,7.0905E-03_JPRB,7.5674E-03_JPRB,7.7704E-03_JPRB,7.6566E-03_JPRB,&
+ & 7.0778E-03_JPRB,5.7507E-03_JPRB,4.4508E-03_JPRB/)  
+KAO( :, 5,12, 5) = (/&
+ & 3.9835E-03_JPRB,6.8035E-03_JPRB,7.7845E-03_JPRB,8.3062E-03_JPRB,8.4996E-03_JPRB,8.3274E-03_JPRB,&
+ & 7.6592E-03_JPRB,6.2151E-03_JPRB,4.8132E-03_JPRB/)  
+KAO( :, 1,13, 5) = (/&
+ & 2.4250E-03_JPRB,3.9803E-03_JPRB,4.4491E-03_JPRB,4.7254E-03_JPRB,4.8599E-03_JPRB,4.8181E-03_JPRB,&
+ & 4.5058E-03_JPRB,3.7586E-03_JPRB,2.8856E-03_JPRB/)  
+KAO( :, 2,13, 5) = (/&
+ & 2.6244E-03_JPRB,4.3727E-03_JPRB,4.9354E-03_JPRB,5.2533E-03_JPRB,5.4054E-03_JPRB,5.3645E-03_JPRB,&
+ & 5.0027E-03_JPRB,4.1245E-03_JPRB,3.1558E-03_JPRB/)  
+KAO( :, 3,13, 5) = (/&
+ & 2.8394E-03_JPRB,4.7986E-03_JPRB,5.4578E-03_JPRB,5.8227E-03_JPRB,5.9899E-03_JPRB,5.9263E-03_JPRB,&
+ & 5.5030E-03_JPRB,4.4990E-03_JPRB,3.4378E-03_JPRB/)  
+KAO( :, 4,13, 5) = (/&
+ & 3.0777E-03_JPRB,5.2577E-03_JPRB,6.0171E-03_JPRB,6.4265E-03_JPRB,6.6019E-03_JPRB,6.4996E-03_JPRB,&
+ & 6.0065E-03_JPRB,4.8862E-03_JPRB,3.7311E-03_JPRB/)  
+KAO( :, 5,13, 5) = (/&
+ & 3.3322E-03_JPRB,5.7564E-03_JPRB,6.6107E-03_JPRB,7.0607E-03_JPRB,7.2295E-03_JPRB,7.0815E-03_JPRB,&
+ & 6.5094E-03_JPRB,5.2886E-03_JPRB,4.0375E-03_JPRB/)  
+KAO( :, 1, 1, 6) = (/&
+ & 4.8059E-02_JPRB,7.5661E-02_JPRB,8.9697E-02_JPRB,9.6448E-02_JPRB,9.6739E-02_JPRB,9.1321E-02_JPRB,&
+ & 8.0664E-02_JPRB,6.5698E-02_JPRB,4.2723E-02_JPRB/)  
+KAO( :, 2, 1, 6) = (/&
+ & 5.1263E-02_JPRB,8.1256E-02_JPRB,9.5858E-02_JPRB,1.0217E-01_JPRB,1.0171E-01_JPRB,9.5631E-02_JPRB,&
+ & 8.5046E-02_JPRB,6.9688E-02_JPRB,4.5844E-02_JPRB/)  
+KAO( :, 3, 1, 6) = (/&
+ & 5.4622E-02_JPRB,8.6828E-02_JPRB,1.0177E-01_JPRB,1.0751E-01_JPRB,1.0632E-01_JPRB,9.9795E-02_JPRB,&
+ & 8.9370E-02_JPRB,7.3806E-02_JPRB,4.9014E-02_JPRB/)  
+KAO( :, 4, 1, 6) = (/&
+ & 5.8181E-02_JPRB,9.2294E-02_JPRB,1.0720E-01_JPRB,1.1246E-01_JPRB,1.1070E-01_JPRB,1.0392E-01_JPRB,&
+ & 9.3642E-02_JPRB,7.8008E-02_JPRB,5.2233E-02_JPRB/)  
+KAO( :, 5, 1, 6) = (/&
+ & 6.1920E-02_JPRB,9.7606E-02_JPRB,1.1219E-01_JPRB,1.1714E-01_JPRB,1.1501E-01_JPRB,1.0812E-01_JPRB,&
+ & 9.7841E-02_JPRB,8.2254E-02_JPRB,5.5493E-02_JPRB/)  
+KAO( :, 1, 2, 6) = (/&
+ & 4.2387E-02_JPRB,6.7507E-02_JPRB,7.8624E-02_JPRB,8.3202E-02_JPRB,8.2483E-02_JPRB,7.7642E-02_JPRB,&
+ & 6.8845E-02_JPRB,5.6151E-02_JPRB,3.4701E-02_JPRB/)  
+KAO( :, 2, 2, 6) = (/&
+ & 4.5358E-02_JPRB,7.2621E-02_JPRB,8.4105E-02_JPRB,8.8143E-02_JPRB,8.6828E-02_JPRB,8.1423E-02_JPRB,&
+ & 7.2754E-02_JPRB,5.9777E-02_JPRB,3.7226E-02_JPRB/)  
+KAO( :, 3, 2, 6) = (/&
+ & 4.8530E-02_JPRB,7.7675E-02_JPRB,8.9237E-02_JPRB,9.2816E-02_JPRB,9.0945E-02_JPRB,8.5108E-02_JPRB,&
+ & 7.6583E-02_JPRB,6.3482E-02_JPRB,3.9865E-02_JPRB/)  
+KAO( :, 4, 2, 6) = (/&
+ & 5.1885E-02_JPRB,8.2602E-02_JPRB,9.3935E-02_JPRB,9.7188E-02_JPRB,9.4884E-02_JPRB,8.8874E-02_JPRB,&
+ & 8.0329E-02_JPRB,6.7178E-02_JPRB,4.2571E-02_JPRB/)  
+KAO( :, 5, 2, 6) = (/&
+ & 5.5413E-02_JPRB,8.7298E-02_JPRB,9.8304E-02_JPRB,1.0128E-01_JPRB,9.8763E-02_JPRB,9.2748E-02_JPRB,&
+ & 8.4077E-02_JPRB,7.0956E-02_JPRB,4.5317E-02_JPRB/)  
+KAO( :, 1, 3, 6) = (/&
+ & 3.6455E-02_JPRB,5.8761E-02_JPRB,6.7738E-02_JPRB,7.0855E-02_JPRB,6.9598E-02_JPRB,6.5071E-02_JPRB,&
+ & 5.7664E-02_JPRB,4.7187E-02_JPRB,2.7522E-02_JPRB/)  
+KAO( :, 2, 3, 6) = (/&
+ & 3.9177E-02_JPRB,6.3373E-02_JPRB,7.2623E-02_JPRB,7.5288E-02_JPRB,7.3424E-02_JPRB,6.8383E-02_JPRB,&
+ & 6.1089E-02_JPRB,5.0369E-02_JPRB,2.9594E-02_JPRB/)  
+KAO( :, 3, 3, 6) = (/&
+ & 4.2098E-02_JPRB,6.7937E-02_JPRB,7.7177E-02_JPRB,7.9459E-02_JPRB,7.7094E-02_JPRB,7.1679E-02_JPRB,&
+ & 6.4440E-02_JPRB,5.3598E-02_JPRB,3.1800E-02_JPRB/)  
+KAO( :, 4, 3, 6) = (/&
+ & 4.5184E-02_JPRB,7.2373E-02_JPRB,8.1328E-02_JPRB,8.3304E-02_JPRB,8.0619E-02_JPRB,7.5059E-02_JPRB,&
+ & 6.7785E-02_JPRB,5.6837E-02_JPRB,3.4061E-02_JPRB/)  
+KAO( :, 5, 3, 6) = (/&
+ & 4.8428E-02_JPRB,7.6612E-02_JPRB,8.5198E-02_JPRB,8.6971E-02_JPRB,8.4087E-02_JPRB,7.8597E-02_JPRB,&
+ & 7.1152E-02_JPRB,6.0069E-02_JPRB,3.6300E-02_JPRB/)  
+KAO( :, 1, 4, 6) = (/&
+ & 3.0996E-02_JPRB,5.0246E-02_JPRB,5.7596E-02_JPRB,5.9940E-02_JPRB,5.8577E-02_JPRB,5.4443E-02_JPRB,&
+ & 4.7987E-02_JPRB,3.9247E-02_JPRB,2.1796E-02_JPRB/)  
+KAO( :, 2, 4, 6) = (/&
+ & 3.3466E-02_JPRB,5.4388E-02_JPRB,6.1941E-02_JPRB,6.3890E-02_JPRB,6.2051E-02_JPRB,5.7420E-02_JPRB,&
+ & 5.0954E-02_JPRB,4.2026E-02_JPRB,2.3521E-02_JPRB/)  
+KAO( :, 3, 4, 6) = (/&
+ & 3.6103E-02_JPRB,5.8512E-02_JPRB,6.5986E-02_JPRB,6.7619E-02_JPRB,6.5381E-02_JPRB,6.0341E-02_JPRB,&
+ & 5.3887E-02_JPRB,4.4806E-02_JPRB,2.5354E-02_JPRB/)  
+KAO( :, 4, 4, 6) = (/&
+ & 3.8902E-02_JPRB,6.2522E-02_JPRB,6.9761E-02_JPRB,7.1083E-02_JPRB,6.8563E-02_JPRB,6.3337E-02_JPRB,&
+ & 5.6817E-02_JPRB,4.7569E-02_JPRB,2.7230E-02_JPRB/)  
+KAO( :, 5, 4, 6) = (/&
+ & 4.1856E-02_JPRB,6.6293E-02_JPRB,7.3260E-02_JPRB,7.4402E-02_JPRB,7.1665E-02_JPRB,6.6453E-02_JPRB,&
+ & 5.9783E-02_JPRB,5.0307E-02_JPRB,2.9093E-02_JPRB/)  
+KAO( :, 1, 5, 6) = (/&
+ & 2.6300E-02_JPRB,4.2494E-02_JPRB,4.8463E-02_JPRB,5.0296E-02_JPRB,4.9139E-02_JPRB,4.5597E-02_JPRB,&
+ & 3.9984E-02_JPRB,3.2427E-02_JPRB,1.7285E-02_JPRB/)  
+KAO( :, 2, 5, 6) = (/&
+ & 2.8485E-02_JPRB,4.6204E-02_JPRB,5.2338E-02_JPRB,5.3863E-02_JPRB,5.2270E-02_JPRB,4.8312E-02_JPRB,&
+ & 4.2548E-02_JPRB,3.4804E-02_JPRB,1.8719E-02_JPRB/)  
+KAO( :, 3, 5, 6) = (/&
+ & 3.0827E-02_JPRB,4.9910E-02_JPRB,5.5974E-02_JPRB,5.7207E-02_JPRB,5.5255E-02_JPRB,5.0912E-02_JPRB,&
+ & 4.5100E-02_JPRB,3.7174E-02_JPRB,2.0228E-02_JPRB/)  
+KAO( :, 4, 5, 6) = (/&
+ & 3.3317E-02_JPRB,5.3494E-02_JPRB,5.9405E-02_JPRB,6.0361E-02_JPRB,5.8140E-02_JPRB,5.3556E-02_JPRB,&
+ & 4.7658E-02_JPRB,3.9537E-02_JPRB,2.1785E-02_JPRB/)  
+KAO( :, 5, 5, 6) = (/&
+ & 3.5980E-02_JPRB,5.6835E-02_JPRB,6.2631E-02_JPRB,6.3411E-02_JPRB,6.1001E-02_JPRB,5.6317E-02_JPRB,&
+ & 5.0255E-02_JPRB,4.1909E-02_JPRB,2.3351E-02_JPRB/)  
+KAO( :, 1, 6, 6) = (/&
+ & 2.2346E-02_JPRB,3.5586E-02_JPRB,4.0310E-02_JPRB,4.1785E-02_JPRB,4.0899E-02_JPRB,3.7930E-02_JPRB,&
+ & 3.3177E-02_JPRB,2.6660E-02_JPRB,1.3671E-02_JPRB/)  
+KAO( :, 2, 6, 6) = (/&
+ & 2.4236E-02_JPRB,3.8875E-02_JPRB,4.3767E-02_JPRB,4.4998E-02_JPRB,4.3719E-02_JPRB,4.0355E-02_JPRB,&
+ & 3.5414E-02_JPRB,2.8669E-02_JPRB,1.4853E-02_JPRB/)  
+KAO( :, 3, 6, 6) = (/&
+ & 2.6259E-02_JPRB,4.2194E-02_JPRB,4.7065E-02_JPRB,4.8039E-02_JPRB,4.6410E-02_JPRB,4.2692E-02_JPRB,&
+ & 3.7647E-02_JPRB,3.0658E-02_JPRB,1.6097E-02_JPRB/)  
+KAO( :, 4, 6, 6) = (/&
+ & 2.8435E-02_JPRB,4.5379E-02_JPRB,5.0168E-02_JPRB,5.0950E-02_JPRB,4.9017E-02_JPRB,4.5071E-02_JPRB,&
+ & 3.9870E-02_JPRB,3.2675E-02_JPRB,1.7389E-02_JPRB/)  
+KAO( :, 5, 6, 6) = (/&
+ & 3.0784E-02_JPRB,4.8355E-02_JPRB,5.3115E-02_JPRB,5.3744E-02_JPRB,5.1611E-02_JPRB,4.7542E-02_JPRB,&
+ & 4.2135E-02_JPRB,3.4713E-02_JPRB,1.8719E-02_JPRB/)  
+KAO( :, 1, 7, 6) = (/&
+ & 1.9038E-02_JPRB,2.9659E-02_JPRB,3.3335E-02_JPRB,3.4533E-02_JPRB,3.3796E-02_JPRB,3.1353E-02_JPRB,&
+ & 2.7369E-02_JPRB,2.1858E-02_JPRB,1.0821E-02_JPRB/)  
+KAO( :, 2, 7, 6) = (/&
+ & 2.0661E-02_JPRB,3.2535E-02_JPRB,3.6409E-02_JPRB,3.7416E-02_JPRB,3.6337E-02_JPRB,3.3530E-02_JPRB,&
+ & 2.9317E-02_JPRB,2.3570E-02_JPRB,1.1782E-02_JPRB/)  
+KAO( :, 3, 7, 6) = (/&
+ & 2.2409E-02_JPRB,3.5475E-02_JPRB,3.9394E-02_JPRB,4.0148E-02_JPRB,3.8791E-02_JPRB,3.5637E-02_JPRB,&
+ & 3.1269E-02_JPRB,2.5254E-02_JPRB,1.2818E-02_JPRB/)  
+KAO( :, 4, 7, 6) = (/&
+ & 2.4302E-02_JPRB,3.8296E-02_JPRB,4.2195E-02_JPRB,4.2786E-02_JPRB,4.1191E-02_JPRB,3.7785E-02_JPRB,&
+ & 3.3232E-02_JPRB,2.6957E-02_JPRB,1.3893E-02_JPRB/)  
+KAO( :, 5, 7, 6) = (/&
+ & 2.6331E-02_JPRB,4.0952E-02_JPRB,4.4849E-02_JPRB,4.5357E-02_JPRB,4.3572E-02_JPRB,4.0019E-02_JPRB,&
+ & 3.5226E-02_JPRB,2.8694E-02_JPRB,1.5017E-02_JPRB/)  
+KAO( :, 1, 8, 6) = (/&
+ & 1.6199E-02_JPRB,2.4730E-02_JPRB,2.7533E-02_JPRB,2.8457E-02_JPRB,2.7828E-02_JPRB,2.5812E-02_JPRB,&
+ & 2.2538E-02_JPRB,1.7879E-02_JPRB,8.5690E-03_JPRB/)  
+KAO( :, 2, 8, 6) = (/&
+ & 1.7586E-02_JPRB,2.7225E-02_JPRB,3.0249E-02_JPRB,3.1021E-02_JPRB,3.0098E-02_JPRB,2.7767E-02_JPRB,&
+ & 2.4248E-02_JPRB,1.9357E-02_JPRB,9.3582E-03_JPRB/)  
+KAO( :, 3, 8, 6) = (/&
+ & 1.9094E-02_JPRB,2.9782E-02_JPRB,3.2913E-02_JPRB,3.3499E-02_JPRB,3.2325E-02_JPRB,2.9706E-02_JPRB,&
+ & 2.5968E-02_JPRB,2.0796E-02_JPRB,1.0214E-02_JPRB/)  
+KAO( :, 4, 8, 6) = (/&
+ & 2.0716E-02_JPRB,3.2253E-02_JPRB,3.5436E-02_JPRB,3.5895E-02_JPRB,3.4530E-02_JPRB,3.1664E-02_JPRB,&
+ & 2.7699E-02_JPRB,2.2256E-02_JPRB,1.1116E-02_JPRB/)  
+KAO( :, 5, 8, 6) = (/&
+ & 2.2480E-02_JPRB,3.4617E-02_JPRB,3.7818E-02_JPRB,3.8224E-02_JPRB,3.6738E-02_JPRB,3.3713E-02_JPRB,&
+ & 2.9501E-02_JPRB,2.3740E-02_JPRB,1.2059E-02_JPRB/)  
+KAO( :, 1, 9, 6) = (/&
+ & 1.3777E-02_JPRB,2.0619E-02_JPRB,2.2737E-02_JPRB,2.3415E-02_JPRB,2.2850E-02_JPRB,2.1193E-02_JPRB,&
+ & 1.8507E-02_JPRB,1.4598E-02_JPRB,7.1490E-03_JPRB/)  
+KAO( :, 2, 9, 6) = (/&
+ & 1.4973E-02_JPRB,2.2774E-02_JPRB,2.5113E-02_JPRB,2.5666E-02_JPRB,2.4873E-02_JPRB,2.2943E-02_JPRB,&
+ & 2.0009E-02_JPRB,1.5897E-02_JPRB,7.8590E-03_JPRB/)  
+KAO( :, 3, 9, 6) = (/&
+ & 1.6264E-02_JPRB,2.4964E-02_JPRB,2.7466E-02_JPRB,2.7896E-02_JPRB,2.6883E-02_JPRB,2.4711E-02_JPRB,&
+ & 2.1541E-02_JPRB,1.7155E-02_JPRB,8.6415E-03_JPRB/)  
+KAO( :, 4, 9, 6) = (/&
+ & 1.7663E-02_JPRB,2.7143E-02_JPRB,2.9704E-02_JPRB,3.0059E-02_JPRB,2.8911E-02_JPRB,2.6494E-02_JPRB,&
+ & 2.3105E-02_JPRB,1.8422E-02_JPRB,9.4633E-03_JPRB/)  
+KAO( :, 5, 9, 6) = (/&
+ & 1.9189E-02_JPRB,2.9225E-02_JPRB,3.1858E-02_JPRB,3.2145E-02_JPRB,3.0918E-02_JPRB,2.8362E-02_JPRB,&
+ & 2.4736E-02_JPRB,1.9714E-02_JPRB,1.0309E-02_JPRB/)  
+KAO( :, 1,10, 6) = (/&
+ & 1.1829E-02_JPRB,1.7391E-02_JPRB,1.8971E-02_JPRB,1.9425E-02_JPRB,1.8925E-02_JPRB,1.7526E-02_JPRB,&
+ & 1.5318E-02_JPRB,1.2046E-02_JPRB,7.9104E-03_JPRB/)  
+KAO( :, 2,10, 6) = (/&
+ & 1.2882E-02_JPRB,1.9237E-02_JPRB,2.1011E-02_JPRB,2.1409E-02_JPRB,2.0725E-02_JPRB,1.9099E-02_JPRB,&
+ & 1.6657E-02_JPRB,1.3189E-02_JPRB,8.8513E-03_JPRB/)  
+KAO( :, 3,10, 6) = (/&
+ & 1.4005E-02_JPRB,2.1109E-02_JPRB,2.3070E-02_JPRB,2.3396E-02_JPRB,2.2541E-02_JPRB,2.0715E-02_JPRB,&
+ & 1.8034E-02_JPRB,1.4319E-02_JPRB,9.8121E-03_JPRB/)  
+KAO( :, 4,10, 6) = (/&
+ & 1.5220E-02_JPRB,2.2998E-02_JPRB,2.5049E-02_JPRB,2.5317E-02_JPRB,2.4368E-02_JPRB,2.2361E-02_JPRB,&
+ & 1.9453E-02_JPRB,1.5444E-02_JPRB,1.0807E-02_JPRB/)  
+KAO( :, 5,10, 6) = (/&
+ & 1.6552E-02_JPRB,2.4838E-02_JPRB,2.6967E-02_JPRB,2.7211E-02_JPRB,2.6179E-02_JPRB,2.4058E-02_JPRB,&
+ & 2.0933E-02_JPRB,1.6593E-02_JPRB,1.1823E-02_JPRB/)  
+KAO( :, 1,11, 6) = (/&
+ & 1.0495E-02_JPRB,1.5432E-02_JPRB,1.6714E-02_JPRB,1.6992E-02_JPRB,1.6455E-02_JPRB,1.5168E-02_JPRB,&
+ & 1.3224E-02_JPRB,1.0391E-02_JPRB,8.1978E-03_JPRB/)  
+KAO( :, 2,11, 6) = (/&
+ & 1.1451E-02_JPRB,1.7054E-02_JPRB,1.8505E-02_JPRB,1.8735E-02_JPRB,1.8057E-02_JPRB,1.6595E-02_JPRB,&
+ & 1.4441E-02_JPRB,1.1397E-02_JPRB,9.2592E-03_JPRB/)  
+KAO( :, 3,11, 6) = (/&
+ & 1.2482E-02_JPRB,1.8697E-02_JPRB,2.0258E-02_JPRB,2.0450E-02_JPRB,1.9674E-02_JPRB,1.8068E-02_JPRB,&
+ & 1.5698E-02_JPRB,1.2409E-02_JPRB,1.0347E-02_JPRB/)  
+KAO( :, 4,11, 6) = (/&
+ & 1.3612E-02_JPRB,2.0341E-02_JPRB,2.1972E-02_JPRB,2.2138E-02_JPRB,2.1292E-02_JPRB,1.9560E-02_JPRB,&
+ & 1.7011E-02_JPRB,1.3437E-02_JPRB,1.1444E-02_JPRB/)  
+KAO( :, 5,11, 6) = (/&
+ & 1.4838E-02_JPRB,2.1977E-02_JPRB,2.3658E-02_JPRB,2.3819E-02_JPRB,2.2926E-02_JPRB,2.1098E-02_JPRB,&
+ & 1.8364E-02_JPRB,1.4494E-02_JPRB,1.2537E-02_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART4',1,ZHOOK_HANDLE)
+END SUBROUTINE PART4
+
+
+SUBROUTINE PART5
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART5',0,ZHOOK_HANDLE)
+
+
+KAO( :, 1,12, 6) = (/&
+ & 9.1433E-03_JPRB,1.3500E-02_JPRB,1.4586E-02_JPRB,1.4769E-02_JPRB,1.4241E-02_JPRB,1.3083E-02_JPRB,&
+ & 1.1367E-02_JPRB,8.9090E-03_JPRB,7.5780E-03_JPRB/)  
+KAO( :, 2,12, 6) = (/&
+ & 1.0001E-02_JPRB,1.4910E-02_JPRB,1.6125E-02_JPRB,1.6273E-02_JPRB,1.5652E-02_JPRB,1.4357E-02_JPRB,&
+ & 1.2453E-02_JPRB,9.7929E-03_JPRB,8.5785E-03_JPRB/)  
+KAO( :, 3,12, 6) = (/&
+ & 1.0949E-02_JPRB,1.6356E-02_JPRB,1.7635E-02_JPRB,1.7750E-02_JPRB,1.7058E-02_JPRB,1.5652E-02_JPRB,&
+ & 1.3578E-02_JPRB,1.0697E-02_JPRB,9.5948E-03_JPRB/)  
+KAO( :, 4,12, 6) = (/&
+ & 1.1985E-02_JPRB,1.7801E-02_JPRB,1.9128E-02_JPRB,1.9222E-02_JPRB,1.8476E-02_JPRB,1.6972E-02_JPRB,&
+ & 1.4745E-02_JPRB,1.1628E-02_JPRB,1.0600E-02_JPRB/)  
+KAO( :, 5,12, 6) = (/&
+ & 1.3096E-02_JPRB,1.9267E-02_JPRB,2.0626E-02_JPRB,2.0713E-02_JPRB,1.9923E-02_JPRB,1.8336E-02_JPRB,&
+ & 1.5960E-02_JPRB,1.2572E-02_JPRB,1.1582E-02_JPRB/)  
+KAO( :, 1,13, 6) = (/&
+ & 7.8612E-03_JPRB,1.1670E-02_JPRB,1.2609E-02_JPRB,1.2723E-02_JPRB,1.2259E-02_JPRB,1.1258E-02_JPRB,&
+ & 9.7650E-03_JPRB,7.6525E-03_JPRB,6.5421E-03_JPRB/)  
+KAO( :, 2,13, 6) = (/&
+ & 8.6369E-03_JPRB,1.2899E-02_JPRB,1.3916E-02_JPRB,1.4009E-02_JPRB,1.3482E-02_JPRB,1.2381E-02_JPRB,&
+ & 1.0732E-02_JPRB,8.4378E-03_JPRB,7.4103E-03_JPRB/)  
+KAO( :, 3,13, 6) = (/&
+ & 9.4942E-03_JPRB,1.4163E-02_JPRB,1.5223E-02_JPRB,1.5298E-02_JPRB,1.4708E-02_JPRB,1.3515E-02_JPRB,&
+ & 1.1735E-02_JPRB,9.2523E-03_JPRB,8.2790E-03_JPRB/)  
+KAO( :, 4,13, 6) = (/&
+ & 1.0421E-02_JPRB,1.5442E-02_JPRB,1.6542E-02_JPRB,1.6603E-02_JPRB,1.5959E-02_JPRB,1.4684E-02_JPRB,&
+ & 1.2779E-02_JPRB,1.0090E-02_JPRB,9.1372E-03_JPRB/)  
+KAO( :, 5,13, 6) = (/&
+ & 1.1403E-02_JPRB,1.6752E-02_JPRB,1.7882E-02_JPRB,1.7947E-02_JPRB,1.7255E-02_JPRB,1.5898E-02_JPRB,&
+ & 1.3874E-02_JPRB,1.0931E-02_JPRB,9.9832E-03_JPRB/)  
+KAO( :, 1, 1, 7) = (/&
+ & 1.6154E-01_JPRB,1.9464E-01_JPRB,1.9968E-01_JPRB,1.9566E-01_JPRB,1.8810E-01_JPRB,1.7612E-01_JPRB,&
+ & 1.6037E-01_JPRB,1.3871E-01_JPRB,9.9439E-02_JPRB/)  
+KAO( :, 2, 1, 7) = (/&
+ & 1.6718E-01_JPRB,2.0083E-01_JPRB,2.0683E-01_JPRB,2.0477E-01_JPRB,1.9764E-01_JPRB,1.8624E-01_JPRB,&
+ & 1.6994E-01_JPRB,1.4688E-01_JPRB,1.0691E-01_JPRB/)  
+KAO( :, 3, 1, 7) = (/&
+ & 1.7242E-01_JPRB,2.0656E-01_JPRB,2.1371E-01_JPRB,2.1366E-01_JPRB,2.0783E-01_JPRB,1.9677E-01_JPRB,&
+ & 1.7978E-01_JPRB,1.5487E-01_JPRB,1.1430E-01_JPRB/)  
+KAO( :, 4, 1, 7) = (/&
+ & 1.7742E-01_JPRB,2.1213E-01_JPRB,2.2064E-01_JPRB,2.2231E-01_JPRB,2.1832E-01_JPRB,2.0746E-01_JPRB,&
+ & 1.8983E-01_JPRB,1.6294E-01_JPRB,1.2155E-01_JPRB/)  
+KAO( :, 5, 1, 7) = (/&
+ & 1.8214E-01_JPRB,2.1767E-01_JPRB,2.2778E-01_JPRB,2.3090E-01_JPRB,2.2852E-01_JPRB,2.1832E-01_JPRB,&
+ & 2.0005E-01_JPRB,1.7084E-01_JPRB,1.2867E-01_JPRB/)  
+KAO( :, 1, 2, 7) = (/&
+ & 1.4145E-01_JPRB,1.6994E-01_JPRB,1.7429E-01_JPRB,1.7183E-01_JPRB,1.6506E-01_JPRB,1.5419E-01_JPRB,&
+ & 1.3930E-01_JPRB,1.2012E-01_JPRB,8.1602E-02_JPRB/)  
+KAO( :, 2, 2, 7) = (/&
+ & 1.4643E-01_JPRB,1.7555E-01_JPRB,1.8089E-01_JPRB,1.8028E-01_JPRB,1.7424E-01_JPRB,1.6361E-01_JPRB,&
+ & 1.4828E-01_JPRB,1.2787E-01_JPRB,8.7984E-02_JPRB/)  
+KAO( :, 3, 2, 7) = (/&
+ & 1.5117E-01_JPRB,1.8085E-01_JPRB,1.8746E-01_JPRB,1.8838E-01_JPRB,1.8361E-01_JPRB,1.7334E-01_JPRB,&
+ & 1.5765E-01_JPRB,1.3543E-01_JPRB,9.4264E-02_JPRB/)  
+KAO( :, 4, 2, 7) = (/&
+ & 1.5573E-01_JPRB,1.8623E-01_JPRB,1.9419E-01_JPRB,1.9646E-01_JPRB,1.9291E-01_JPRB,1.8328E-01_JPRB,&
+ & 1.6725E-01_JPRB,1.4294E-01_JPRB,1.0040E-01_JPRB/)  
+KAO( :, 5, 2, 7) = (/&
+ & 1.6013E-01_JPRB,1.9161E-01_JPRB,2.0111E-01_JPRB,2.0451E-01_JPRB,2.0197E-01_JPRB,1.9329E-01_JPRB,&
+ & 1.7696E-01_JPRB,1.5031E-01_JPRB,1.0647E-01_JPRB/)  
+KAO( :, 1, 3, 7) = (/&
+ & 1.2309E-01_JPRB,1.4704E-01_JPRB,1.5024E-01_JPRB,1.4812E-01_JPRB,1.4219E-01_JPRB,1.3226E-01_JPRB,&
+ & 1.1881E-01_JPRB,1.0141E-01_JPRB,6.5459E-02_JPRB/)  
+KAO( :, 2, 3, 7) = (/&
+ & 1.2767E-01_JPRB,1.5222E-01_JPRB,1.5637E-01_JPRB,1.5568E-01_JPRB,1.5055E-01_JPRB,1.4090E-01_JPRB,&
+ & 1.2701E-01_JPRB,1.0859E-01_JPRB,7.0881E-02_JPRB/)  
+KAO( :, 3, 3, 7) = (/&
+ & 1.3203E-01_JPRB,1.5727E-01_JPRB,1.6255E-01_JPRB,1.6317E-01_JPRB,1.5886E-01_JPRB,1.4989E-01_JPRB,&
+ & 1.3559E-01_JPRB,1.1576E-01_JPRB,7.6083E-02_JPRB/)  
+KAO( :, 4, 3, 7) = (/&
+ & 1.3635E-01_JPRB,1.6234E-01_JPRB,1.6898E-01_JPRB,1.7060E-01_JPRB,1.6716E-01_JPRB,1.5892E-01_JPRB,&
+ & 1.4437E-01_JPRB,1.2295E-01_JPRB,8.1201E-02_JPRB/)  
+KAO( :, 5, 3, 7) = (/&
+ & 1.4056E-01_JPRB,1.6755E-01_JPRB,1.7569E-01_JPRB,1.7797E-01_JPRB,1.7536E-01_JPRB,1.6774E-01_JPRB,&
+ & 1.5329E-01_JPRB,1.3002E-01_JPRB,8.6370E-02_JPRB/)  
+KAO( :, 1, 4, 7) = (/&
+ & 1.0694E-01_JPRB,1.2727E-01_JPRB,1.2915E-01_JPRB,1.2666E-01_JPRB,1.2117E-01_JPRB,1.1228E-01_JPRB,&
+ & 1.0026E-01_JPRB,8.4627E-02_JPRB,5.2347E-02_JPRB/)  
+KAO( :, 2, 4, 7) = (/&
+ & 1.1128E-01_JPRB,1.3208E-01_JPRB,1.3481E-01_JPRB,1.3351E-01_JPRB,1.2855E-01_JPRB,1.2006E-01_JPRB,&
+ & 1.0771E-01_JPRB,9.1021E-02_JPRB,5.6953E-02_JPRB/)  
+KAO( :, 3, 4, 7) = (/&
+ & 1.1540E-01_JPRB,1.3680E-01_JPRB,1.4057E-01_JPRB,1.4029E-01_JPRB,1.3591E-01_JPRB,1.2809E-01_JPRB,&
+ & 1.1544E-01_JPRB,9.7575E-02_JPRB,6.1322E-02_JPRB/)  
+KAO( :, 4, 4, 7) = (/&
+ & 1.1945E-01_JPRB,1.4164E-01_JPRB,1.4662E-01_JPRB,1.4706E-01_JPRB,1.4340E-01_JPRB,1.3603E-01_JPRB,&
+ & 1.2336E-01_JPRB,1.0424E-01_JPRB,6.5662E-02_JPRB/)  
+KAO( :, 5, 4, 7) = (/&
+ & 1.2340E-01_JPRB,1.4675E-01_JPRB,1.5288E-01_JPRB,1.5380E-01_JPRB,1.5079E-01_JPRB,1.4378E-01_JPRB,&
+ & 1.3119E-01_JPRB,1.1079E-01_JPRB,7.0042E-02_JPRB/)  
+KAO( :, 1, 5, 7) = (/&
+ & 9.2366E-02_JPRB,1.1024E-01_JPRB,1.1122E-01_JPRB,1.0839E-01_JPRB,1.0297E-01_JPRB,9.4813E-02_JPRB,&
+ & 8.4116E-02_JPRB,7.0267E-02_JPRB,4.1776E-02_JPRB/)  
+KAO( :, 2, 5, 7) = (/&
+ & 9.6355E-02_JPRB,1.1479E-01_JPRB,1.1644E-01_JPRB,1.1449E-01_JPRB,1.0946E-01_JPRB,1.0165E-01_JPRB,&
+ & 9.0750E-02_JPRB,7.5967E-02_JPRB,4.5678E-02_JPRB/)  
+KAO( :, 3, 5, 7) = (/&
+ & 1.0024E-01_JPRB,1.1923E-01_JPRB,1.2179E-01_JPRB,1.2053E-01_JPRB,1.1597E-01_JPRB,1.0868E-01_JPRB,&
+ & 9.7605E-02_JPRB,8.1879E-02_JPRB,4.9420E-02_JPRB/)  
+KAO( :, 4, 5, 7) = (/&
+ & 1.0406E-01_JPRB,1.2386E-01_JPRB,1.2729E-01_JPRB,1.2663E-01_JPRB,1.2262E-01_JPRB,1.1560E-01_JPRB,&
+ & 1.0455E-01_JPRB,8.7805E-02_JPRB,5.3104E-02_JPRB/)  
+KAO( :, 5, 5, 7) = (/&
+ & 1.0784E-01_JPRB,1.2877E-01_JPRB,1.3298E-01_JPRB,1.3282E-01_JPRB,1.2921E-01_JPRB,1.2238E-01_JPRB,&
+ & 1.1132E-01_JPRB,9.3754E-02_JPRB,5.6821E-02_JPRB/)  
+KAO( :, 1, 6, 7) = (/&
+ & 7.9024E-02_JPRB,9.4822E-02_JPRB,9.5344E-02_JPRB,9.2551E-02_JPRB,8.7276E-02_JPRB,7.9771E-02_JPRB,&
+ & 7.0098E-02_JPRB,5.7834E-02_JPRB,3.3015E-02_JPRB/)  
+KAO( :, 2, 6, 7) = (/&
+ & 8.2738E-02_JPRB,9.8989E-02_JPRB,1.0012E-01_JPRB,9.7961E-02_JPRB,9.2877E-02_JPRB,8.5652E-02_JPRB,&
+ & 7.5923E-02_JPRB,6.2877E-02_JPRB,3.6314E-02_JPRB/)  
+KAO( :, 3, 6, 7) = (/&
+ & 8.6408E-02_JPRB,1.0314E-01_JPRB,1.0499E-01_JPRB,1.0331E-01_JPRB,9.8576E-02_JPRB,9.1675E-02_JPRB,&
+ & 8.1907E-02_JPRB,6.8103E-02_JPRB,3.9534E-02_JPRB/)  
+KAO( :, 4, 6, 7) = (/&
+ & 9.0076E-02_JPRB,1.0755E-01_JPRB,1.1005E-01_JPRB,1.0872E-01_JPRB,1.0446E-01_JPRB,9.7640E-02_JPRB,&
+ & 8.7824E-02_JPRB,7.3333E-02_JPRB,4.2688E-02_JPRB/)  
+KAO( :, 5, 6, 7) = (/&
+ & 9.3695E-02_JPRB,1.1225E-01_JPRB,1.1524E-01_JPRB,1.1429E-01_JPRB,1.1026E-01_JPRB,1.0360E-01_JPRB,&
+ & 9.3605E-02_JPRB,7.8587E-02_JPRB,4.5859E-02_JPRB/)  
+KAO( :, 1, 7, 7) = (/&
+ & 6.7188E-02_JPRB,8.0973E-02_JPRB,8.1282E-02_JPRB,7.8604E-02_JPRB,7.3758E-02_JPRB,6.7095E-02_JPRB,&
+ & 5.8393E-02_JPRB,4.7360E-02_JPRB,2.5942E-02_JPRB/)  
+KAO( :, 2, 7, 7) = (/&
+ & 7.0634E-02_JPRB,8.4835E-02_JPRB,8.5597E-02_JPRB,8.3380E-02_JPRB,7.8711E-02_JPRB,7.2137E-02_JPRB,&
+ & 6.3418E-02_JPRB,5.1732E-02_JPRB,2.8746E-02_JPRB/)  
+KAO( :, 3, 7, 7) = (/&
+ & 7.4125E-02_JPRB,8.8733E-02_JPRB,9.0006E-02_JPRB,8.8141E-02_JPRB,8.3708E-02_JPRB,7.7276E-02_JPRB,&
+ & 6.8516E-02_JPRB,5.6288E-02_JPRB,3.1491E-02_JPRB/)  
+KAO( :, 4, 7, 7) = (/&
+ & 7.7619E-02_JPRB,9.2938E-02_JPRB,9.4622E-02_JPRB,9.3008E-02_JPRB,8.8787E-02_JPRB,8.2441E-02_JPRB,&
+ & 7.3541E-02_JPRB,6.0853E-02_JPRB,3.4197E-02_JPRB/)  
+KAO( :, 5, 7, 7) = (/&
+ & 8.1130E-02_JPRB,9.7412E-02_JPRB,9.9437E-02_JPRB,9.7963E-02_JPRB,9.3908E-02_JPRB,8.7589E-02_JPRB,&
+ & 7.8507E-02_JPRB,6.5406E-02_JPRB,3.6876E-02_JPRB/)  
+KAO( :, 1, 8, 7) = (/&
+ & 5.7087E-02_JPRB,6.8982E-02_JPRB,6.9219E-02_JPRB,6.6662E-02_JPRB,6.2257E-02_JPRB,5.6449E-02_JPRB,&
+ & 4.8696E-02_JPRB,3.8705E-02_JPRB,2.0368E-02_JPRB/)  
+KAO( :, 2, 8, 7) = (/&
+ & 6.0267E-02_JPRB,7.2661E-02_JPRB,7.3164E-02_JPRB,7.0903E-02_JPRB,6.6680E-02_JPRB,6.0863E-02_JPRB,&
+ & 5.2991E-02_JPRB,4.2493E-02_JPRB,2.2764E-02_JPRB/)  
+KAO( :, 3, 8, 7) = (/&
+ & 6.3568E-02_JPRB,7.6402E-02_JPRB,7.7191E-02_JPRB,7.5170E-02_JPRB,7.1124E-02_JPRB,6.5262E-02_JPRB,&
+ & 5.7325E-02_JPRB,4.6424E-02_JPRB,2.5106E-02_JPRB/)  
+KAO( :, 4, 8, 7) = (/&
+ & 6.6952E-02_JPRB,8.0431E-02_JPRB,8.1433E-02_JPRB,7.9580E-02_JPRB,7.5603E-02_JPRB,6.9713E-02_JPRB,&
+ & 6.1612E-02_JPRB,5.0326E-02_JPRB,2.7428E-02_JPRB/)  
+KAO( :, 5, 8, 7) = (/&
+ & 7.0374E-02_JPRB,8.4700E-02_JPRB,8.5936E-02_JPRB,8.4079E-02_JPRB,8.0117E-02_JPRB,7.4154E-02_JPRB,&
+ & 6.5876E-02_JPRB,5.4195E-02_JPRB,2.9716E-02_JPRB/)  
+KAO( :, 1, 9, 7) = (/&
+ & 4.8541E-02_JPRB,5.8698E-02_JPRB,5.8862E-02_JPRB,5.6589E-02_JPRB,5.2616E-02_JPRB,4.7478E-02_JPRB,&
+ & 4.0621E-02_JPRB,3.1660E-02_JPRB,1.6311E-02_JPRB/)  
+KAO( :, 2, 9, 7) = (/&
+ & 5.1470E-02_JPRB,6.2152E-02_JPRB,6.2537E-02_JPRB,6.0429E-02_JPRB,5.6605E-02_JPRB,5.1332E-02_JPRB,&
+ & 4.4320E-02_JPRB,3.4891E-02_JPRB,1.8357E-02_JPRB/)  
+KAO( :, 3, 9, 7) = (/&
+ & 5.4592E-02_JPRB,6.5779E-02_JPRB,6.6299E-02_JPRB,6.4328E-02_JPRB,6.0595E-02_JPRB,5.5195E-02_JPRB,&
+ & 4.8026E-02_JPRB,3.8250E-02_JPRB,2.0370E-02_JPRB/)  
+KAO( :, 4, 9, 7) = (/&
+ & 5.7857E-02_JPRB,6.9626E-02_JPRB,7.0279E-02_JPRB,6.8395E-02_JPRB,6.4585E-02_JPRB,5.9114E-02_JPRB,&
+ & 5.1701E-02_JPRB,4.1583E-02_JPRB,2.2355E-02_JPRB/)  
+KAO( :, 5, 9, 7) = (/&
+ & 6.1151E-02_JPRB,7.3773E-02_JPRB,7.4523E-02_JPRB,7.2563E-02_JPRB,6.8640E-02_JPRB,6.3021E-02_JPRB,&
+ & 5.5368E-02_JPRB,4.4866E-02_JPRB,2.4319E-02_JPRB/)  
+KAO( :, 1,10, 7) = (/&
+ & 4.1703E-02_JPRB,5.0397E-02_JPRB,5.0498E-02_JPRB,4.8532E-02_JPRB,4.5038E-02_JPRB,4.0454E-02_JPRB,&
+ & 3.4353E-02_JPRB,2.6239E-02_JPRB,1.6946E-02_JPRB/)  
+KAO( :, 2,10, 7) = (/&
+ & 4.4435E-02_JPRB,5.3723E-02_JPRB,5.3968E-02_JPRB,5.2070E-02_JPRB,4.8666E-02_JPRB,4.3928E-02_JPRB,&
+ & 3.7574E-02_JPRB,2.9025E-02_JPRB,1.9214E-02_JPRB/)  
+KAO( :, 3,10, 7) = (/&
+ & 4.7412E-02_JPRB,5.7277E-02_JPRB,5.7540E-02_JPRB,5.5713E-02_JPRB,5.2331E-02_JPRB,4.7382E-02_JPRB,&
+ & 4.0823E-02_JPRB,3.1871E-02_JPRB,2.1538E-02_JPRB/)  
+KAO( :, 4,10, 7) = (/&
+ & 5.0574E-02_JPRB,6.1042E-02_JPRB,6.1373E-02_JPRB,5.9574E-02_JPRB,5.6031E-02_JPRB,5.0898E-02_JPRB,&
+ & 4.4058E-02_JPRB,3.4717E-02_JPRB,2.3877E-02_JPRB/)  
+KAO( :, 5,10, 7) = (/&
+ & 5.3746E-02_JPRB,6.5044E-02_JPRB,6.5451E-02_JPRB,6.3520E-02_JPRB,5.9778E-02_JPRB,5.4461E-02_JPRB,&
+ & 4.7278E-02_JPRB,3.7547E-02_JPRB,2.6231E-02_JPRB/)  
+KAO( :, 1,11, 7) = (/&
+ & 3.7231E-02_JPRB,4.4782E-02_JPRB,4.4834E-02_JPRB,4.3110E-02_JPRB,4.0069E-02_JPRB,3.5931E-02_JPRB,&
+ & 3.0502E-02_JPRB,2.3057E-02_JPRB,1.8284E-02_JPRB/)  
+KAO( :, 2,11, 7) = (/&
+ & 3.9875E-02_JPRB,4.8062E-02_JPRB,4.8155E-02_JPRB,4.6465E-02_JPRB,4.3416E-02_JPRB,3.9078E-02_JPRB,&
+ & 3.3371E-02_JPRB,2.5491E-02_JPRB,2.0825E-02_JPRB/)  
+KAO( :, 3,11, 7) = (/&
+ & 4.2772E-02_JPRB,5.1583E-02_JPRB,5.1719E-02_JPRB,5.0024E-02_JPRB,4.6821E-02_JPRB,4.2262E-02_JPRB,&
+ & 3.6260E-02_JPRB,2.7962E-02_JPRB,2.3421E-02_JPRB/)  
+KAO( :, 4,11, 7) = (/&
+ & 4.5744E-02_JPRB,5.5320E-02_JPRB,5.5524E-02_JPRB,5.3716E-02_JPRB,5.0328E-02_JPRB,4.5568E-02_JPRB,&
+ & 3.9152E-02_JPRB,3.0434E-02_JPRB,2.6081E-02_JPRB/)  
+KAO( :, 5,11, 7) = (/&
+ & 4.8771E-02_JPRB,5.9196E-02_JPRB,5.9515E-02_JPRB,5.7526E-02_JPRB,5.3932E-02_JPRB,4.8905E-02_JPRB,&
+ & 4.2062E-02_JPRB,3.2920E-02_JPRB,2.8799E-02_JPRB/)  
+KAO( :, 1,12, 7) = (/&
+ & 3.3165E-02_JPRB,3.9692E-02_JPRB,3.9599E-02_JPRB,3.8024E-02_JPRB,3.5310E-02_JPRB,3.1588E-02_JPRB,&
+ & 2.6724E-02_JPRB,2.0140E-02_JPRB,1.7962E-02_JPRB/)  
+KAO( :, 2,12, 7) = (/&
+ & 3.5669E-02_JPRB,4.2809E-02_JPRB,4.2746E-02_JPRB,4.1180E-02_JPRB,3.8355E-02_JPRB,3.4405E-02_JPRB,&
+ & 2.9261E-02_JPRB,2.2261E-02_JPRB,2.0601E-02_JPRB/)  
+KAO( :, 3,12, 7) = (/&
+ & 3.8321E-02_JPRB,4.6119E-02_JPRB,4.6151E-02_JPRB,4.4514E-02_JPRB,4.1510E-02_JPRB,3.7321E-02_JPRB,&
+ & 3.1841E-02_JPRB,2.4389E-02_JPRB,2.3308E-02_JPRB/)  
+KAO( :, 4,12, 7) = (/&
+ & 4.1022E-02_JPRB,4.9612E-02_JPRB,4.9764E-02_JPRB,4.7979E-02_JPRB,4.4755E-02_JPRB,4.0343E-02_JPRB,&
+ & 3.4469E-02_JPRB,2.6528E-02_JPRB,2.6037E-02_JPRB/)  
+KAO( :, 5,12, 7) = (/&
+ & 4.3787E-02_JPRB,5.3202E-02_JPRB,5.3413E-02_JPRB,5.1511E-02_JPRB,4.8094E-02_JPRB,4.3379E-02_JPRB,&
+ & 3.7123E-02_JPRB,2.8712E-02_JPRB,2.8765E-02_JPRB/)  
+KAO( :, 1,13, 7) = (/&
+ & 2.9468E-02_JPRB,3.5299E-02_JPRB,3.5147E-02_JPRB,3.3716E-02_JPRB,3.1258E-02_JPRB,2.7857E-02_JPRB,&
+ & 2.3479E-02_JPRB,1.7565E-02_JPRB,1.6401E-02_JPRB/)  
+KAO( :, 2,13, 7) = (/&
+ & 3.1822E-02_JPRB,3.8242E-02_JPRB,3.8151E-02_JPRB,3.6698E-02_JPRB,3.4080E-02_JPRB,3.0460E-02_JPRB,&
+ & 2.5743E-02_JPRB,1.9422E-02_JPRB,1.8869E-02_JPRB/)  
+KAO( :, 3,13, 7) = (/&
+ & 3.4255E-02_JPRB,4.1360E-02_JPRB,4.1371E-02_JPRB,3.9795E-02_JPRB,3.7027E-02_JPRB,3.3168E-02_JPRB,&
+ & 2.8068E-02_JPRB,2.1290E-02_JPRB,2.1356E-02_JPRB/)  
+KAO( :, 4,13, 7) = (/&
+ & 3.6724E-02_JPRB,4.4593E-02_JPRB,4.4667E-02_JPRB,4.2990E-02_JPRB,4.0057E-02_JPRB,3.5909E-02_JPRB,&
+ & 3.0433E-02_JPRB,2.3190E-02_JPRB,2.3849E-02_JPRB/)  
+KAO( :, 5,13, 7) = (/&
+ & 3.9283E-02_JPRB,4.7884E-02_JPRB,4.8024E-02_JPRB,4.6223E-02_JPRB,4.3087E-02_JPRB,3.8671E-02_JPRB,&
+ & 3.2860E-02_JPRB,2.5142E-02_JPRB,2.6303E-02_JPRB/)  
+KAO( :, 1, 1, 8) = (/&
+ & 4.0322E-01_JPRB,4.2884E-01_JPRB,4.4287E-01_JPRB,4.4611E-01_JPRB,4.3402E-01_JPRB,4.1077E-01_JPRB,&
+ & 3.7521E-01_JPRB,3.2697E-01_JPRB,2.6830E-01_JPRB/)  
+KAO( :, 2, 1, 8) = (/&
+ & 4.1659E-01_JPRB,4.4635E-01_JPRB,4.6251E-01_JPRB,4.6551E-01_JPRB,4.5392E-01_JPRB,4.3080E-01_JPRB,&
+ & 3.9654E-01_JPRB,3.4859E-01_JPRB,2.8992E-01_JPRB/)  
+KAO( :, 3, 1, 8) = (/&
+ & 4.3066E-01_JPRB,4.6487E-01_JPRB,4.8341E-01_JPRB,4.8533E-01_JPRB,4.7318E-01_JPRB,4.5018E-01_JPRB,&
+ & 4.1684E-01_JPRB,3.6978E-01_JPRB,3.1151E-01_JPRB/)  
+KAO( :, 4, 1, 8) = (/&
+ & 4.4540E-01_JPRB,4.8420E-01_JPRB,5.0502E-01_JPRB,5.0600E-01_JPRB,4.9161E-01_JPRB,4.6895E-01_JPRB,&
+ & 4.3612E-01_JPRB,3.9090E-01_JPRB,3.3327E-01_JPRB/)  
+KAO( :, 5, 1, 8) = (/&
+ & 4.6087E-01_JPRB,5.0391E-01_JPRB,5.2680E-01_JPRB,5.2675E-01_JPRB,5.1014E-01_JPRB,4.8707E-01_JPRB,&
+ & 4.5479E-01_JPRB,4.1126E-01_JPRB,3.5494E-01_JPRB/)  
+KAO( :, 1, 2, 8) = (/&
+ & 3.6116E-01_JPRB,3.9180E-01_JPRB,4.0630E-01_JPRB,4.0741E-01_JPRB,3.9710E-01_JPRB,3.7545E-01_JPRB,&
+ & 3.4074E-01_JPRB,2.9225E-01_JPRB,2.2503E-01_JPRB/)  
+KAO( :, 2, 2, 8) = (/&
+ & 3.7429E-01_JPRB,4.0933E-01_JPRB,4.2583E-01_JPRB,4.2659E-01_JPRB,4.1646E-01_JPRB,3.9447E-01_JPRB,&
+ & 3.6022E-01_JPRB,3.1183E-01_JPRB,2.4425E-01_JPRB/)  
+KAO( :, 3, 2, 8) = (/&
+ & 3.8833E-01_JPRB,4.2821E-01_JPRB,4.4642E-01_JPRB,4.4678E-01_JPRB,4.3567E-01_JPRB,4.1270E-01_JPRB,&
+ & 3.7849E-01_JPRB,3.3160E-01_JPRB,2.6352E-01_JPRB/)  
+KAO( :, 4, 2, 8) = (/&
+ & 4.0301E-01_JPRB,4.4802E-01_JPRB,4.6770E-01_JPRB,4.6760E-01_JPRB,4.5474E-01_JPRB,4.3035E-01_JPRB,&
+ & 3.9631E-01_JPRB,3.5077E-01_JPRB,2.8292E-01_JPRB/)  
+KAO( :, 5, 2, 8) = (/&
+ & 4.1749E-01_JPRB,4.6796E-01_JPRB,4.8938E-01_JPRB,4.8856E-01_JPRB,4.7348E-01_JPRB,4.4790E-01_JPRB,&
+ & 4.1404E-01_JPRB,3.6908E-01_JPRB,3.0219E-01_JPRB/)  
+KAO( :, 1, 3, 8) = (/&
+ & 3.1836E-01_JPRB,3.5137E-01_JPRB,3.6460E-01_JPRB,3.6422E-01_JPRB,3.5477E-01_JPRB,3.3593E-01_JPRB,&
+ & 3.0362E-01_JPRB,2.5584E-01_JPRB,1.8328E-01_JPRB/)  
+KAO( :, 2, 3, 8) = (/&
+ & 3.3096E-01_JPRB,3.6850E-01_JPRB,3.8310E-01_JPRB,3.8300E-01_JPRB,3.7372E-01_JPRB,3.5449E-01_JPRB,&
+ & 3.2124E-01_JPRB,2.7389E-01_JPRB,2.0014E-01_JPRB/)  
+KAO( :, 3, 3, 8) = (/&
+ & 3.4458E-01_JPRB,3.8711E-01_JPRB,4.0276E-01_JPRB,4.0262E-01_JPRB,3.9285E-01_JPRB,3.7244E-01_JPRB,&
+ & 3.3829E-01_JPRB,2.9150E-01_JPRB,2.1726E-01_JPRB/)  
+KAO( :, 4, 3, 8) = (/&
+ & 3.5799E-01_JPRB,4.0642E-01_JPRB,4.2324E-01_JPRB,4.2311E-01_JPRB,4.1204E-01_JPRB,3.8967E-01_JPRB,&
+ & 3.5509E-01_JPRB,3.0840E-01_JPRB,2.3441E-01_JPRB/)  
+KAO( :, 5, 3, 8) = (/&
+ & 3.7101E-01_JPRB,4.2557E-01_JPRB,4.4433E-01_JPRB,4.4402E-01_JPRB,4.3131E-01_JPRB,4.0719E-01_JPRB,&
+ & 3.7164E-01_JPRB,3.2487E-01_JPRB,2.5132E-01_JPRB/)  
+KAO( :, 1, 4, 8) = (/&
+ & 2.7843E-01_JPRB,3.1174E-01_JPRB,3.2299E-01_JPRB,3.2159E-01_JPRB,3.1254E-01_JPRB,2.9513E-01_JPRB,&
+ & 2.6711E-01_JPRB,2.2161E-01_JPRB,1.4841E-01_JPRB/)  
+KAO( :, 2, 4, 8) = (/&
+ & 2.9013E-01_JPRB,3.2832E-01_JPRB,3.4033E-01_JPRB,3.3944E-01_JPRB,3.3063E-01_JPRB,3.1287E-01_JPRB,&
+ & 2.8384E-01_JPRB,2.3810E-01_JPRB,1.6312E-01_JPRB/)  
+KAO( :, 3, 4, 8) = (/&
+ & 3.0268E-01_JPRB,3.4605E-01_JPRB,3.5891E-01_JPRB,3.5819E-01_JPRB,3.4915E-01_JPRB,3.3041E-01_JPRB,&
+ & 2.9986E-01_JPRB,2.5399E-01_JPRB,1.7819E-01_JPRB/)  
+KAO( :, 4, 4, 8) = (/&
+ & 3.1479E-01_JPRB,3.6429E-01_JPRB,3.7832E-01_JPRB,3.7789E-01_JPRB,3.6791E-01_JPRB,3.4794E-01_JPRB,&
+ & 3.1552E-01_JPRB,2.6914E-01_JPRB,1.9313E-01_JPRB/)  
+KAO( :, 5, 4, 8) = (/&
+ & 3.2665E-01_JPRB,3.8187E-01_JPRB,3.9828E-01_JPRB,3.9805E-01_JPRB,3.8707E-01_JPRB,3.6554E-01_JPRB,&
+ & 3.3111E-01_JPRB,2.8418E-01_JPRB,2.0797E-01_JPRB/)  
+KAO( :, 1, 5, 8) = (/&
+ & 2.4307E-01_JPRB,2.7459E-01_JPRB,2.8334E-01_JPRB,2.8148E-01_JPRB,2.7250E-01_JPRB,2.5608E-01_JPRB,&
+ & 2.3119E-01_JPRB,1.9095E-01_JPRB,1.1978E-01_JPRB/)  
+KAO( :, 2, 5, 8) = (/&
+ & 2.5412E-01_JPRB,2.9006E-01_JPRB,2.9964E-01_JPRB,2.9834E-01_JPRB,2.8946E-01_JPRB,2.7270E-01_JPRB,&
+ & 2.4720E-01_JPRB,2.0586E-01_JPRB,1.3250E-01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART5',1,ZHOOK_HANDLE)
+END SUBROUTINE PART5
+
+
+SUBROUTINE PART6
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART6',0,ZHOOK_HANDLE)
+
+
+KAO( :, 3, 5, 8) = (/&
+ & 2.6544E-01_JPRB,3.0651E-01_JPRB,3.1718E-01_JPRB,3.1602E-01_JPRB,3.0707E-01_JPRB,2.8950E-01_JPRB,&
+ & 2.6270E-01_JPRB,2.1996E-01_JPRB,1.4559E-01_JPRB/)  
+KAO( :, 4, 5, 8) = (/&
+ & 2.7620E-01_JPRB,3.2315E-01_JPRB,3.3545E-01_JPRB,3.3465E-01_JPRB,3.2491E-01_JPRB,3.0648E-01_JPRB,&
+ & 2.7754E-01_JPRB,2.3379E-01_JPRB,1.5847E-01_JPRB/)  
+KAO( :, 5, 5, 8) = (/&
+ & 2.8682E-01_JPRB,3.3927E-01_JPRB,3.5367E-01_JPRB,3.5367E-01_JPRB,3.4331E-01_JPRB,3.2364E-01_JPRB,&
+ & 2.9241E-01_JPRB,2.4747E-01_JPRB,1.7133E-01_JPRB/)  
+KAO( :, 1, 6, 8) = (/&
+ & 2.1177E-01_JPRB,2.4018E-01_JPRB,2.4637E-01_JPRB,2.4351E-01_JPRB,2.3439E-01_JPRB,2.1931E-01_JPRB,&
+ & 1.9713E-01_JPRB,1.6297E-01_JPRB,9.5914E-02_JPRB/)  
+KAO( :, 2, 6, 8) = (/&
+ & 2.2169E-01_JPRB,2.5443E-01_JPRB,2.6139E-01_JPRB,2.5908E-01_JPRB,2.5022E-01_JPRB,2.3482E-01_JPRB,&
+ & 2.1183E-01_JPRB,1.7638E-01_JPRB,1.0688E-01_JPRB/)  
+KAO( :, 3, 6, 8) = (/&
+ & 2.3172E-01_JPRB,2.6938E-01_JPRB,2.7763E-01_JPRB,2.7552E-01_JPRB,2.6672E-01_JPRB,2.5051E-01_JPRB,&
+ & 2.2626E-01_JPRB,1.8899E-01_JPRB,1.1795E-01_JPRB/)  
+KAO( :, 4, 6, 8) = (/&
+ & 2.4156E-01_JPRB,2.8413E-01_JPRB,2.9429E-01_JPRB,2.9295E-01_JPRB,2.8356E-01_JPRB,2.6650E-01_JPRB,&
+ & 2.4057E-01_JPRB,2.0157E-01_JPRB,1.2896E-01_JPRB/)  
+KAO( :, 5, 6, 8) = (/&
+ & 2.5124E-01_JPRB,2.9850E-01_JPRB,3.1067E-01_JPRB,3.1041E-01_JPRB,3.0075E-01_JPRB,2.8246E-01_JPRB,&
+ & 2.5505E-01_JPRB,2.1388E-01_JPRB,1.3998E-01_JPRB/)  
+KAO( :, 1, 7, 8) = (/&
+ & 1.8473E-01_JPRB,2.0924E-01_JPRB,2.1335E-01_JPRB,2.0936E-01_JPRB,1.9988E-01_JPRB,1.8587E-01_JPRB,&
+ & 1.6639E-01_JPRB,1.3717E-01_JPRB,7.6364E-02_JPRB/)  
+KAO( :, 2, 7, 8) = (/&
+ & 1.9350E-01_JPRB,2.2219E-01_JPRB,2.2721E-01_JPRB,2.2345E-01_JPRB,2.1426E-01_JPRB,2.0011E-01_JPRB,&
+ & 1.7972E-01_JPRB,1.4932E-01_JPRB,8.5682E-02_JPRB/)  
+KAO( :, 3, 7, 8) = (/&
+ & 2.0222E-01_JPRB,2.3570E-01_JPRB,2.4195E-01_JPRB,2.3854E-01_JPRB,2.2951E-01_JPRB,2.1468E-01_JPRB,&
+ & 1.9301E-01_JPRB,1.6077E-01_JPRB,9.5001E-02_JPRB/)  
+KAO( :, 4, 7, 8) = (/&
+ & 2.1095E-01_JPRB,2.4886E-01_JPRB,2.5670E-01_JPRB,2.5432E-01_JPRB,2.4507E-01_JPRB,2.2935E-01_JPRB,&
+ & 2.0620E-01_JPRB,1.7210E-01_JPRB,1.0440E-01_JPRB/)  
+KAO( :, 5, 7, 8) = (/&
+ & 2.1973E-01_JPRB,2.6165E-01_JPRB,2.7115E-01_JPRB,2.6994E-01_JPRB,2.6086E-01_JPRB,2.4410E-01_JPRB,&
+ & 2.1974E-01_JPRB,1.8329E-01_JPRB,1.1378E-01_JPRB/)  
+KAO( :, 1, 8, 8) = (/&
+ & 1.6185E-01_JPRB,1.8253E-01_JPRB,1.8444E-01_JPRB,1.7949E-01_JPRB,1.7015E-01_JPRB,1.5690E-01_JPRB,&
+ & 1.3935E-01_JPRB,1.1432E-01_JPRB,6.0540E-02_JPRB/)  
+KAO( :, 2, 8, 8) = (/&
+ & 1.6964E-01_JPRB,1.9418E-01_JPRB,1.9717E-01_JPRB,1.9247E-01_JPRB,1.8312E-01_JPRB,1.6970E-01_JPRB,&
+ & 1.5135E-01_JPRB,1.2506E-01_JPRB,6.8356E-02_JPRB/)  
+KAO( :, 3, 8, 8) = (/&
+ & 1.7743E-01_JPRB,2.0616E-01_JPRB,2.1045E-01_JPRB,2.0623E-01_JPRB,1.9689E-01_JPRB,1.8297E-01_JPRB,&
+ & 1.6334E-01_JPRB,1.3545E-01_JPRB,7.6236E-02_JPRB/)  
+KAO( :, 4, 8, 8) = (/&
+ & 1.8525E-01_JPRB,2.1798E-01_JPRB,2.2355E-01_JPRB,2.2023E-01_JPRB,2.1094E-01_JPRB,1.9625E-01_JPRB,&
+ & 1.7545E-01_JPRB,1.4584E-01_JPRB,8.4195E-02_JPRB/)  
+KAO( :, 5, 8, 8) = (/&
+ & 1.9322E-01_JPRB,2.2966E-01_JPRB,2.3631E-01_JPRB,2.3389E-01_JPRB,2.2488E-01_JPRB,2.0966E-01_JPRB,&
+ & 1.8787E-01_JPRB,1.5609E-01_JPRB,9.2157E-02_JPRB/)  
+KAO( :, 1, 9, 8) = (/&
+ & 1.4213E-01_JPRB,1.5963E-01_JPRB,1.5968E-01_JPRB,1.5380E-01_JPRB,1.4472E-01_JPRB,1.3224E-01_JPRB,&
+ & 1.1621E-01_JPRB,9.4456E-02_JPRB,4.8155E-02_JPRB/)  
+KAO( :, 2, 9, 8) = (/&
+ & 1.4924E-01_JPRB,1.7020E-01_JPRB,1.7123E-01_JPRB,1.6570E-01_JPRB,1.5648E-01_JPRB,1.4372E-01_JPRB,&
+ & 1.2686E-01_JPRB,1.0389E-01_JPRB,5.4797E-02_JPRB/)  
+KAO( :, 3, 9, 8) = (/&
+ & 1.5626E-01_JPRB,1.8093E-01_JPRB,1.8312E-01_JPRB,1.7819E-01_JPRB,1.6892E-01_JPRB,1.5552E-01_JPRB,&
+ & 1.3756E-01_JPRB,1.1314E-01_JPRB,6.1551E-02_JPRB/)  
+KAO( :, 4, 9, 8) = (/&
+ & 1.6335E-01_JPRB,1.9168E-01_JPRB,1.9486E-01_JPRB,1.9059E-01_JPRB,1.8138E-01_JPRB,1.6740E-01_JPRB,&
+ & 1.4849E-01_JPRB,1.2245E-01_JPRB,6.8420E-02_JPRB/)  
+KAO( :, 5, 9, 8) = (/&
+ & 1.7076E-01_JPRB,2.0225E-01_JPRB,2.0643E-01_JPRB,2.0268E-01_JPRB,1.9350E-01_JPRB,1.7935E-01_JPRB,&
+ & 1.5962E-01_JPRB,1.3184E-01_JPRB,7.5344E-02_JPRB/)  
+KAO( :, 1,10, 8) = (/&
+ & 1.2689E-01_JPRB,1.4153E-01_JPRB,1.4002E-01_JPRB,1.3364E-01_JPRB,1.2448E-01_JPRB,1.1260E-01_JPRB,&
+ & 9.7712E-02_JPRB,7.8252E-02_JPRB,4.4638E-02_JPRB/)  
+KAO( :, 2,10, 8) = (/&
+ & 1.3357E-01_JPRB,1.5129E-01_JPRB,1.5077E-01_JPRB,1.4472E-01_JPRB,1.3525E-01_JPRB,1.2292E-01_JPRB,&
+ & 1.0714E-01_JPRB,8.6493E-02_JPRB,5.1139E-02_JPRB/)  
+KAO( :, 3,10, 8) = (/&
+ & 1.4033E-01_JPRB,1.6116E-01_JPRB,1.6169E-01_JPRB,1.5606E-01_JPRB,1.4653E-01_JPRB,1.3358E-01_JPRB,&
+ & 1.1667E-01_JPRB,9.4648E-02_JPRB,5.7687E-02_JPRB/)  
+KAO( :, 4,10, 8) = (/&
+ & 1.4713E-01_JPRB,1.7114E-01_JPRB,1.7244E-01_JPRB,1.6723E-01_JPRB,1.5766E-01_JPRB,1.4412E-01_JPRB,&
+ & 1.2643E-01_JPRB,1.0289E-01_JPRB,6.4268E-02_JPRB/)  
+KAO( :, 5,10, 8) = (/&
+ & 1.5435E-01_JPRB,1.8097E-01_JPRB,1.8303E-01_JPRB,1.7815E-01_JPRB,1.6844E-01_JPRB,1.5450E-01_JPRB,&
+ & 1.3627E-01_JPRB,1.1126E-01_JPRB,7.0752E-02_JPRB/)  
+KAO( :, 1,11, 8) = (/&
+ & 1.1735E-01_JPRB,1.3093E-01_JPRB,1.2881E-01_JPRB,1.2210E-01_JPRB,1.1270E-01_JPRB,1.0103E-01_JPRB,&
+ & 8.6539E-02_JPRB,6.8130E-02_JPRB,4.9846E-02_JPRB/)  
+KAO( :, 2,11, 8) = (/&
+ & 1.2384E-01_JPRB,1.4024E-01_JPRB,1.3893E-01_JPRB,1.3259E-01_JPRB,1.2292E-01_JPRB,1.1061E-01_JPRB,&
+ & 9.5115E-02_JPRB,7.5252E-02_JPRB,5.6964E-02_JPRB/)  
+KAO( :, 3,11, 8) = (/&
+ & 1.3035E-01_JPRB,1.4957E-01_JPRB,1.4914E-01_JPRB,1.4306E-01_JPRB,1.3321E-01_JPRB,1.2022E-01_JPRB,&
+ & 1.0374E-01_JPRB,8.2465E-02_JPRB,6.4200E-02_JPRB/)  
+KAO( :, 4,11, 8) = (/&
+ & 1.3725E-01_JPRB,1.5898E-01_JPRB,1.5927E-01_JPRB,1.5334E-01_JPRB,1.4326E-01_JPRB,1.2961E-01_JPRB,&
+ & 1.1238E-01_JPRB,8.9805E-02_JPRB,7.1457E-02_JPRB/)  
+KAO( :, 5,11, 8) = (/&
+ & 1.4463E-01_JPRB,1.6851E-01_JPRB,1.6933E-01_JPRB,1.6346E-01_JPRB,1.5308E-01_JPRB,1.3883E-01_JPRB,&
+ & 1.2096E-01_JPRB,9.7193E-02_JPRB,7.8536E-02_JPRB/)  
+KAO( :, 1,12, 8) = (/&
+ & 1.0640E-01_JPRB,1.1932E-01_JPRB,1.1727E-01_JPRB,1.1093E-01_JPRB,1.0195E-01_JPRB,9.0676E-02_JPRB,&
+ & 7.6870E-02_JPRB,5.9379E-02_JPRB,5.1106E-02_JPRB/)  
+KAO( :, 2,12, 8) = (/&
+ & 1.1251E-01_JPRB,1.2789E-01_JPRB,1.2658E-01_JPRB,1.2048E-01_JPRB,1.1127E-01_JPRB,9.9404E-02_JPRB,&
+ & 8.4625E-02_JPRB,6.5652E-02_JPRB,5.8364E-02_JPRB/)  
+KAO( :, 3,12, 8) = (/&
+ & 1.1894E-01_JPRB,1.3655E-01_JPRB,1.3586E-01_JPRB,1.2993E-01_JPRB,1.2048E-01_JPRB,1.0801E-01_JPRB,&
+ & 9.2363E-02_JPRB,7.2052E-02_JPRB,6.5735E-02_JPRB/)  
+KAO( :, 4,12, 8) = (/&
+ & 1.2590E-01_JPRB,1.4545E-01_JPRB,1.4519E-01_JPRB,1.3926E-01_JPRB,1.2958E-01_JPRB,1.1647E-01_JPRB,&
+ & 9.9973E-02_JPRB,7.8534E-02_JPRB,7.3095E-02_JPRB/)  
+KAO( :, 5,12, 8) = (/&
+ & 1.3337E-01_JPRB,1.5470E-01_JPRB,1.5466E-01_JPRB,1.4861E-01_JPRB,1.3857E-01_JPRB,1.2488E-01_JPRB,&
+ & 1.0746E-01_JPRB,8.4929E-02_JPRB,8.0418E-02_JPRB/)  
+KAO( :, 1,13, 8) = (/&
+ & 9.6972E-02_JPRB,1.0868E-01_JPRB,1.0670E-01_JPRB,1.0090E-01_JPRB,9.2463E-02_JPRB,8.1893E-02_JPRB,&
+ & 6.8722E-02_JPRB,5.2187E-02_JPRB,4.8936E-02_JPRB/)  
+KAO( :, 2,13, 8) = (/&
+ & 1.0286E-01_JPRB,1.1675E-01_JPRB,1.1538E-01_JPRB,1.0956E-01_JPRB,1.0086E-01_JPRB,8.9655E-02_JPRB,&
+ & 7.5733E-02_JPRB,5.7797E-02_JPRB,5.5923E-02_JPRB/)  
+KAO( :, 3,13, 8) = (/&
+ & 1.0928E-01_JPRB,1.2507E-01_JPRB,1.2410E-01_JPRB,1.1821E-01_JPRB,1.0914E-01_JPRB,9.7343E-02_JPRB,&
+ & 8.2660E-02_JPRB,6.3457E-02_JPRB,6.3021E-02_JPRB/)  
+KAO( :, 4,13, 8) = (/&
+ & 1.1629E-01_JPRB,1.3382E-01_JPRB,1.3304E-01_JPRB,1.2689E-01_JPRB,1.1743E-01_JPRB,1.0500E-01_JPRB,&
+ & 8.9516E-02_JPRB,6.9087E-02_JPRB,7.0154E-02_JPRB/)  
+KAO( :, 5,13, 8) = (/&
+ & 1.2379E-01_JPRB,1.4288E-01_JPRB,1.4218E-01_JPRB,1.3575E-01_JPRB,1.2584E-01_JPRB,1.1273E-01_JPRB,&
+ & 9.6241E-02_JPRB,7.4622E-02_JPRB,7.7264E-02_JPRB/)  
+KAO( :, 1, 1, 9) = (/&
+ & 1.3428E+00_JPRB,1.2969E+00_JPRB,1.3205E+00_JPRB,1.3175E+00_JPRB,1.2990E+00_JPRB,1.2468E+00_JPRB,&
+ & 1.1628E+00_JPRB,1.0614E+00_JPRB,1.0372E+00_JPRB/)  
+KAO( :, 2, 1, 9) = (/&
+ & 1.3746E+00_JPRB,1.3335E+00_JPRB,1.3668E+00_JPRB,1.3722E+00_JPRB,1.3567E+00_JPRB,1.3085E+00_JPRB,&
+ & 1.2270E+00_JPRB,1.1261E+00_JPRB,1.1147E+00_JPRB/)  
+KAO( :, 3, 1, 9) = (/&
+ & 1.4073E+00_JPRB,1.3698E+00_JPRB,1.4124E+00_JPRB,1.4260E+00_JPRB,1.4123E+00_JPRB,1.3693E+00_JPRB,&
+ & 1.2904E+00_JPRB,1.1888E+00_JPRB,1.1913E+00_JPRB/)  
+KAO( :, 4, 1, 9) = (/&
+ & 1.4400E+00_JPRB,1.4058E+00_JPRB,1.4573E+00_JPRB,1.4759E+00_JPRB,1.4676E+00_JPRB,1.4301E+00_JPRB,&
+ & 1.3531E+00_JPRB,1.2469E+00_JPRB,1.2654E+00_JPRB/)  
+KAO( :, 5, 1, 9) = (/&
+ & 1.4734E+00_JPRB,1.4423E+00_JPRB,1.5023E+00_JPRB,1.5245E+00_JPRB,1.5225E+00_JPRB,1.4892E+00_JPRB,&
+ & 1.4132E+00_JPRB,1.3011E+00_JPRB,1.3376E+00_JPRB/)  
+KAO( :, 1, 2, 9) = (/&
+ & 1.2829E+00_JPRB,1.2633E+00_JPRB,1.2907E+00_JPRB,1.2907E+00_JPRB,1.2660E+00_JPRB,1.2110E+00_JPRB,&
+ & 1.1297E+00_JPRB,1.0058E+00_JPRB,9.3684E-01_JPRB/)  
+KAO( :, 2, 2, 9) = (/&
+ & 1.3149E+00_JPRB,1.3008E+00_JPRB,1.3384E+00_JPRB,1.3472E+00_JPRB,1.3248E+00_JPRB,1.2742E+00_JPRB,&
+ & 1.1952E+00_JPRB,1.0698E+00_JPRB,1.0113E+00_JPRB/)  
+KAO( :, 3, 2, 9) = (/&
+ & 1.3475E+00_JPRB,1.3378E+00_JPRB,1.3854E+00_JPRB,1.4016E+00_JPRB,1.3821E+00_JPRB,1.3377E+00_JPRB,&
+ & 1.2602E+00_JPRB,1.1308E+00_JPRB,1.0840E+00_JPRB/)  
+KAO( :, 4, 2, 9) = (/&
+ & 1.3810E+00_JPRB,1.3744E+00_JPRB,1.4322E+00_JPRB,1.4528E+00_JPRB,1.4388E+00_JPRB,1.4001E+00_JPRB,&
+ & 1.3236E+00_JPRB,1.1887E+00_JPRB,1.1546E+00_JPRB/)  
+KAO( :, 5, 2, 9) = (/&
+ & 1.4157E+00_JPRB,1.4118E+00_JPRB,1.4780E+00_JPRB,1.5023E+00_JPRB,1.4957E+00_JPRB,1.4603E+00_JPRB,&
+ & 1.3839E+00_JPRB,1.2445E+00_JPRB,1.2243E+00_JPRB/)  
+KAO( :, 1, 3, 9) = (/&
+ & 1.2127E+00_JPRB,1.2149E+00_JPRB,1.2414E+00_JPRB,1.2413E+00_JPRB,1.2096E+00_JPRB,1.1509E+00_JPRB,&
+ & 1.0693E+00_JPRB,9.3505E-01_JPRB,8.1904E-01_JPRB/)  
+KAO( :, 2, 3, 9) = (/&
+ & 1.2443E+00_JPRB,1.2526E+00_JPRB,1.2906E+00_JPRB,1.2980E+00_JPRB,1.2698E+00_JPRB,1.2150E+00_JPRB,&
+ & 1.1356E+00_JPRB,9.9732E-01_JPRB,8.8821E-01_JPRB/)  
+KAO( :, 3, 3, 9) = (/&
+ & 1.2769E+00_JPRB,1.2896E+00_JPRB,1.3389E+00_JPRB,1.3532E+00_JPRB,1.3282E+00_JPRB,1.2784E+00_JPRB,&
+ & 1.2012E+00_JPRB,1.0574E+00_JPRB,9.5592E-01_JPRB/)  
+KAO( :, 4, 3, 9) = (/&
+ & 1.3109E+00_JPRB,1.3271E+00_JPRB,1.3868E+00_JPRB,1.4049E+00_JPRB,1.3857E+00_JPRB,1.3410E+00_JPRB,&
+ & 1.2646E+00_JPRB,1.1151E+00_JPRB,1.0226E+00_JPRB/)  
+KAO( :, 5, 3, 9) = (/&
+ & 1.3463E+00_JPRB,1.3657E+00_JPRB,1.4329E+00_JPRB,1.4555E+00_JPRB,1.4430E+00_JPRB,1.4020E+00_JPRB,&
+ & 1.3252E+00_JPRB,1.1714E+00_JPRB,1.0884E+00_JPRB/)  
+KAO( :, 1, 4, 9) = (/&
+ & 1.1396E+00_JPRB,1.1562E+00_JPRB,1.1826E+00_JPRB,1.1757E+00_JPRB,1.1396E+00_JPRB,1.0800E+00_JPRB,&
+ & 9.9549E-01_JPRB,8.6118E-01_JPRB,7.0458E-01_JPRB/)  
+KAO( :, 2, 4, 9) = (/&
+ & 1.1708E+00_JPRB,1.1941E+00_JPRB,1.2324E+00_JPRB,1.2326E+00_JPRB,1.2012E+00_JPRB,1.1447E+00_JPRB,&
+ & 1.0603E+00_JPRB,9.2111E-01_JPRB,7.6931E-01_JPRB/)  
+KAO( :, 3, 4, 9) = (/&
+ & 1.2031E+00_JPRB,1.2324E+00_JPRB,1.2815E+00_JPRB,1.2882E+00_JPRB,1.2607E+00_JPRB,1.2072E+00_JPRB,&
+ & 1.1246E+00_JPRB,9.8015E-01_JPRB,8.3245E-01_JPRB/)  
+KAO( :, 4, 4, 9) = (/&
+ & 1.2376E+00_JPRB,1.2714E+00_JPRB,1.3295E+00_JPRB,1.3421E+00_JPRB,1.3190E+00_JPRB,1.2690E+00_JPRB,&
+ & 1.1874E+00_JPRB,1.0376E+00_JPRB,8.9457E-01_JPRB/)  
+KAO( :, 5, 4, 9) = (/&
+ & 1.2740E+00_JPRB,1.3119E+00_JPRB,1.3762E+00_JPRB,1.3940E+00_JPRB,1.3758E+00_JPRB,1.3293E+00_JPRB,&
+ & 1.2473E+00_JPRB,1.0924E+00_JPRB,9.5512E-01_JPRB/)  
+KAO( :, 1, 5, 9) = (/&
+ & 1.0676E+00_JPRB,1.0934E+00_JPRB,1.1164E+00_JPRB,1.1017E+00_JPRB,1.0618E+00_JPRB,1.0031E+00_JPRB,&
+ & 9.1670E-01_JPRB,7.8582E-01_JPRB,6.0004E-01_JPRB/)  
+KAO( :, 2, 5, 9) = (/&
+ & 1.0980E+00_JPRB,1.1317E+00_JPRB,1.1657E+00_JPRB,1.1576E+00_JPRB,1.1232E+00_JPRB,1.0675E+00_JPRB,&
+ & 9.7913E-01_JPRB,8.4460E-01_JPRB,6.6026E-01_JPRB/)  
+KAO( :, 3, 5, 9) = (/&
+ & 1.1299E+00_JPRB,1.1708E+00_JPRB,1.2140E+00_JPRB,1.2133E+00_JPRB,1.1840E+00_JPRB,1.1288E+00_JPRB,&
+ & 1.0409E+00_JPRB,9.0310E-01_JPRB,7.1874E-01_JPRB/)  
+KAO( :, 4, 5, 9) = (/&
+ & 1.1642E+00_JPRB,1.2107E+00_JPRB,1.2614E+00_JPRB,1.2677E+00_JPRB,1.2424E+00_JPRB,1.1890E+00_JPRB,&
+ & 1.1017E+00_JPRB,9.5891E-01_JPRB,7.7564E-01_JPRB/)  
+KAO( :, 5, 5, 9) = (/&
+ & 1.2000E+00_JPRB,1.2526E+00_JPRB,1.3091E+00_JPRB,1.3207E+00_JPRB,1.2994E+00_JPRB,1.2483E+00_JPRB,&
+ & 1.1609E+00_JPRB,1.0119E+00_JPRB,8.3130E-01_JPRB/)  
+KAO( :, 1, 6, 9) = (/&
+ & 9.9003E-01_JPRB,1.0258E+00_JPRB,1.0412E+00_JPRB,1.0201E+00_JPRB,9.7779E-01_JPRB,9.1873E-01_JPRB,&
+ & 8.3216E-01_JPRB,7.0459E-01_JPRB,5.0433E-01_JPRB/)  
+KAO( :, 2, 6, 9) = (/&
+ & 1.0190E+00_JPRB,1.0642E+00_JPRB,1.0886E+00_JPRB,1.0744E+00_JPRB,1.0384E+00_JPRB,9.8045E-01_JPRB,&
+ & 8.9228E-01_JPRB,7.6180E-01_JPRB,5.5916E-01_JPRB/)  
+KAO( :, 3, 6, 9) = (/&
+ & 1.0499E+00_JPRB,1.1031E+00_JPRB,1.1353E+00_JPRB,1.1293E+00_JPRB,1.0979E+00_JPRB,1.0403E+00_JPRB,&
+ & 9.5155E-01_JPRB,8.1856E-01_JPRB,6.1244E-01_JPRB/)  
+KAO( :, 4, 6, 9) = (/&
+ & 1.0828E+00_JPRB,1.1437E+00_JPRB,1.1824E+00_JPRB,1.1833E+00_JPRB,1.1555E+00_JPRB,1.0993E+00_JPRB,&
+ & 1.0102E+00_JPRB,8.7279E-01_JPRB,6.6433E-01_JPRB/)  
+KAO( :, 5, 6, 9) = (/&
+ & 1.1175E+00_JPRB,1.1857E+00_JPRB,1.2305E+00_JPRB,1.2360E+00_JPRB,1.2119E+00_JPRB,1.1569E+00_JPRB,&
+ & 1.0670E+00_JPRB,9.2416E-01_JPRB,7.1591E-01_JPRB/)  
+KAO( :, 1, 7, 9) = (/&
+ & 9.0622E-01_JPRB,9.5046E-01_JPRB,9.6089E-01_JPRB,9.3711E-01_JPRB,8.9284E-01_JPRB,8.3176E-01_JPRB,&
+ & 7.4643E-01_JPRB,6.2447E-01_JPRB,4.1858E-01_JPRB/)  
+KAO( :, 2, 7, 9) = (/&
+ & 9.3396E-01_JPRB,9.8759E-01_JPRB,1.0065E+00_JPRB,9.8973E-01_JPRB,9.5076E-01_JPRB,8.9008E-01_JPRB,&
+ & 8.0412E-01_JPRB,6.7884E-01_JPRB,4.6801E-01_JPRB/)  
+KAO( :, 3, 7, 9) = (/&
+ & 9.6319E-01_JPRB,1.0255E+00_JPRB,1.0520E+00_JPRB,1.0425E+00_JPRB,1.0071E+00_JPRB,9.4738E-01_JPRB,&
+ & 8.6097E-01_JPRB,7.3289E-01_JPRB,5.1587E-01_JPRB/)  
+KAO( :, 4, 7, 9) = (/&
+ & 9.9431E-01_JPRB,1.0653E+00_JPRB,1.0986E+00_JPRB,1.0946E+00_JPRB,1.0623E+00_JPRB,1.0043E+00_JPRB,&
+ & 9.1723E-01_JPRB,7.8478E-01_JPRB,5.6306E-01_JPRB/)  
+KAO( :, 5, 7, 9) = (/&
+ & 1.0274E+00_JPRB,1.1069E+00_JPRB,1.1469E+00_JPRB,1.1464E+00_JPRB,1.1172E+00_JPRB,1.0599E+00_JPRB,&
+ & 9.7098E-01_JPRB,8.3391E-01_JPRB,6.1058E-01_JPRB/)  
+KAO( :, 1, 8, 9) = (/&
+ & 8.1868E-01_JPRB,8.7029E-01_JPRB,8.7676E-01_JPRB,8.5425E-01_JPRB,8.0979E-01_JPRB,7.4690E-01_JPRB,&
+ & 6.6276E-01_JPRB,5.4807E-01_JPRB,3.4321E-01_JPRB/)  
+KAO( :, 2, 8, 9) = (/&
+ & 8.4618E-01_JPRB,9.0631E-01_JPRB,9.1992E-01_JPRB,9.0408E-01_JPRB,8.6387E-01_JPRB,8.0135E-01_JPRB,&
+ & 7.1759E-01_JPRB,5.9903E-01_JPRB,3.8705E-01_JPRB/)  
+KAO( :, 3, 8, 9) = (/&
+ & 8.7480E-01_JPRB,9.4290E-01_JPRB,9.6372E-01_JPRB,9.5463E-01_JPRB,9.1665E-01_JPRB,8.5535E-01_JPRB,&
+ & 7.7165E-01_JPRB,6.4994E-01_JPRB,4.2964E-01_JPRB/)  
+KAO( :, 4, 8, 9) = (/&
+ & 9.0487E-01_JPRB,9.8122E-01_JPRB,1.0094E+00_JPRB,1.0045E+00_JPRB,9.6889E-01_JPRB,9.0941E-01_JPRB,&
+ & 8.2521E-01_JPRB,6.9828E-01_JPRB,4.7251E-01_JPRB/)  
+KAO( :, 5, 8, 9) = (/&
+ & 9.3640E-01_JPRB,1.0212E+00_JPRB,1.0569E+00_JPRB,1.0548E+00_JPRB,1.0212E+00_JPRB,9.6279E-01_JPRB,&
+ & 8.7575E-01_JPRB,7.4474E-01_JPRB,5.1556E-01_JPRB/)  
+KAO( :, 1, 9, 9) = (/&
+ & 7.3248E-01_JPRB,7.8661E-01_JPRB,7.9076E-01_JPRB,7.6949E-01_JPRB,7.2749E-01_JPRB,6.6515E-01_JPRB,&
+ & 5.8393E-01_JPRB,4.7588E-01_JPRB,2.7793E-01_JPRB/)  
+KAO( :, 2, 9, 9) = (/&
+ & 7.5864E-01_JPRB,8.2147E-01_JPRB,8.3210E-01_JPRB,8.1596E-01_JPRB,7.7766E-01_JPRB,7.1604E-01_JPRB,&
+ & 6.3458E-01_JPRB,5.2262E-01_JPRB,3.1673E-01_JPRB/)  
+KAO( :, 3, 9, 9) = (/&
+ & 7.8652E-01_JPRB,8.5723E-01_JPRB,8.7381E-01_JPRB,8.6296E-01_JPRB,8.2677E-01_JPRB,7.6708E-01_JPRB,&
+ & 6.8470E-01_JPRB,5.6962E-01_JPRB,3.5494E-01_JPRB/)  
+KAO( :, 4, 9, 9) = (/&
+ & 8.1572E-01_JPRB,8.9416E-01_JPRB,9.1752E-01_JPRB,9.1007E-01_JPRB,8.7613E-01_JPRB,8.1762E-01_JPRB,&
+ & 7.3487E-01_JPRB,6.1457E-01_JPRB,3.9372E-01_JPRB/)  
+KAO( :, 5, 9, 9) = (/&
+ & 8.4624E-01_JPRB,9.3262E-01_JPRB,9.6268E-01_JPRB,9.5791E-01_JPRB,9.2621E-01_JPRB,8.6785E-01_JPRB,&
+ & 7.8234E-01_JPRB,6.5797E-01_JPRB,4.3237E-01_JPRB/)  
+KAO( :, 1,10, 9) = (/&
+ & 6.5285E-01_JPRB,7.0556E-01_JPRB,7.0877E-01_JPRB,6.8957E-01_JPRB,6.5004E-01_JPRB,5.9094E-01_JPRB,&
+ & 5.1435E-01_JPRB,4.1208E-01_JPRB,2.3031E-01_JPRB/)  
+KAO( :, 2,10, 9) = (/&
+ & 6.7792E-01_JPRB,7.3916E-01_JPRB,7.4857E-01_JPRB,7.3319E-01_JPRB,6.9544E-01_JPRB,6.3833E-01_JPRB,&
+ & 5.6078E-01_JPRB,4.5470E-01_JPRB,2.6518E-01_JPRB/)  
+KAO( :, 3,10, 9) = (/&
+ & 7.0469E-01_JPRB,7.7387E-01_JPRB,7.8906E-01_JPRB,7.7634E-01_JPRB,7.4114E-01_JPRB,6.8557E-01_JPRB,&
+ & 6.0667E-01_JPRB,4.9747E-01_JPRB,3.0039E-01_JPRB/)  
+KAO( :, 4,10, 9) = (/&
+ & 7.3310E-01_JPRB,8.1001E-01_JPRB,8.3104E-01_JPRB,8.2017E-01_JPRB,7.8729E-01_JPRB,7.3297E-01_JPRB,&
+ & 6.5240E-01_JPRB,5.3892E-01_JPRB,3.3590E-01_JPRB/)  
+KAO( :, 5,10, 9) = (/&
+ & 7.6290E-01_JPRB,8.4760E-01_JPRB,8.7394E-01_JPRB,8.6505E-01_JPRB,8.3426E-01_JPRB,7.8012E-01_JPRB,&
+ & 6.9636E-01_JPRB,5.7926E-01_JPRB,3.7143E-01_JPRB/)  
+KAO( :, 1,11, 9) = (/&
+ & 5.9090E-01_JPRB,6.4305E-01_JPRB,6.4751E-01_JPRB,6.3053E-01_JPRB,5.9455E-01_JPRB,5.4070E-01_JPRB,&
+ & 4.6893E-01_JPRB,3.7172E-01_JPRB,2.1405E-01_JPRB/)  
+KAO( :, 2,11, 9) = (/&
+ & 6.1610E-01_JPRB,6.7624E-01_JPRB,6.8614E-01_JPRB,6.7105E-01_JPRB,6.3688E-01_JPRB,5.8397E-01_JPRB,&
+ & 5.1072E-01_JPRB,4.1032E-01_JPRB,2.4686E-01_JPRB/)  
+KAO( :, 3,11, 9) = (/&
+ & 6.4345E-01_JPRB,7.1119E-01_JPRB,7.2537E-01_JPRB,7.1231E-01_JPRB,6.7967E-01_JPRB,6.2716E-01_JPRB,&
+ & 5.5288E-01_JPRB,4.4844E-01_JPRB,2.7991E-01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART6',1,ZHOOK_HANDLE)
+END SUBROUTINE PART6
+
+
+SUBROUTINE PART7
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART7',0,ZHOOK_HANDLE)
+
+
+KAO( :, 4,11, 9) = (/&
+ & 6.7245E-01_JPRB,7.4763E-01_JPRB,7.6564E-01_JPRB,7.5469E-01_JPRB,7.2271E-01_JPRB,6.7051E-01_JPRB,&
+ & 5.9423E-01_JPRB,4.8613E-01_JPRB,3.1288E-01_JPRB/)  
+KAO( :, 5,11, 9) = (/&
+ & 7.0307E-01_JPRB,7.8557E-01_JPRB,8.0692E-01_JPRB,7.9786E-01_JPRB,7.6651E-01_JPRB,7.1310E-01_JPRB,&
+ & 6.3521E-01_JPRB,5.2316E-01_JPRB,3.4596E-01_JPRB/)  
+KAO( :, 1,12, 9) = (/&
+ & 5.3439E-01_JPRB,5.8391E-01_JPRB,5.8774E-01_JPRB,5.7122E-01_JPRB,5.3863E-01_JPRB,4.9053E-01_JPRB,&
+ & 4.2331E-01_JPRB,3.3386E-01_JPRB,2.0991E-01_JPRB/)  
+KAO( :, 2,12, 9) = (/&
+ & 5.5981E-01_JPRB,6.1691E-01_JPRB,6.2491E-01_JPRB,6.0974E-01_JPRB,5.7829E-01_JPRB,5.2963E-01_JPRB,&
+ & 4.6106E-01_JPRB,3.6833E-01_JPRB,2.4202E-01_JPRB/)  
+KAO( :, 3,12, 9) = (/&
+ & 5.8729E-01_JPRB,6.5190E-01_JPRB,6.6281E-01_JPRB,6.4965E-01_JPRB,6.1814E-01_JPRB,5.6902E-01_JPRB,&
+ & 4.9887E-01_JPRB,4.0268E-01_JPRB,2.7433E-01_JPRB/)  
+KAO( :, 4,12, 9) = (/&
+ & 6.1659E-01_JPRB,6.8828E-01_JPRB,7.0203E-01_JPRB,6.9007E-01_JPRB,6.5880E-01_JPRB,6.0818E-01_JPRB,&
+ & 5.3678E-01_JPRB,4.3667E-01_JPRB,3.0656E-01_JPRB/)  
+KAO( :, 5,12, 9) = (/&
+ & 6.4762E-01_JPRB,7.2645E-01_JPRB,7.4237E-01_JPRB,7.3145E-01_JPRB,6.9915E-01_JPRB,6.4741E-01_JPRB,&
+ & 5.7484E-01_JPRB,4.6985E-01_JPRB,3.3881E-01_JPRB/)  
+KAO( :, 1,13, 9) = (/&
+ & 4.8753E-01_JPRB,5.3273E-01_JPRB,5.3419E-01_JPRB,5.1662E-01_JPRB,4.8575E-01_JPRB,4.4090E-01_JPRB,&
+ & 3.7978E-01_JPRB,2.9794E-01_JPRB,2.0545E-01_JPRB/)  
+KAO( :, 2,13, 9) = (/&
+ & 5.1376E-01_JPRB,5.6597E-01_JPRB,5.6993E-01_JPRB,5.5397E-01_JPRB,5.2292E-01_JPRB,4.7698E-01_JPRB,&
+ & 4.1398E-01_JPRB,3.2894E-01_JPRB,2.3666E-01_JPRB/)  
+KAO( :, 3,13, 9) = (/&
+ & 5.4228E-01_JPRB,6.0098E-01_JPRB,6.0712E-01_JPRB,5.9219E-01_JPRB,5.6068E-01_JPRB,5.1331E-01_JPRB,&
+ & 4.4847E-01_JPRB,3.5992E-01_JPRB,2.6838E-01_JPRB/)  
+KAO( :, 4,13, 9) = (/&
+ & 5.7239E-01_JPRB,6.3765E-01_JPRB,6.4572E-01_JPRB,6.3133E-01_JPRB,5.9865E-01_JPRB,5.5003E-01_JPRB,&
+ & 4.8326E-01_JPRB,3.9056E-01_JPRB,3.0014E-01_JPRB/)  
+KAO( :, 5,13, 9) = (/&
+ & 6.0266E-01_JPRB,6.7556E-01_JPRB,6.8531E-01_JPRB,6.7067E-01_JPRB,6.3710E-01_JPRB,5.8691E-01_JPRB,&
+ & 5.1750E-01_JPRB,4.2055E-01_JPRB,3.3173E-01_JPRB/)  
+KAO( :, 1, 1,10) = (/&
+ & 3.6294E+00_JPRB,3.2562E+00_JPRB,3.2368E+00_JPRB,3.0996E+00_JPRB,2.9830E+00_JPRB,2.8753E+00_JPRB,&
+ & 2.7749E+00_JPRB,2.5993E+00_JPRB,2.8111E+00_JPRB/)  
+KAO( :, 2, 1,10) = (/&
+ & 3.7112E+00_JPRB,3.3258E+00_JPRB,3.3100E+00_JPRB,3.2079E+00_JPRB,3.1384E+00_JPRB,3.0034E+00_JPRB,&
+ & 2.8949E+00_JPRB,2.7070E+00_JPRB,3.0039E+00_JPRB/)  
+KAO( :, 3, 1,10) = (/&
+ & 3.7891E+00_JPRB,3.3949E+00_JPRB,3.3824E+00_JPRB,3.3195E+00_JPRB,3.2833E+00_JPRB,3.1133E+00_JPRB,&
+ & 3.0142E+00_JPRB,2.8340E+00_JPRB,3.1933E+00_JPRB/)  
+KAO( :, 4, 1,10) = (/&
+ & 3.8594E+00_JPRB,3.4595E+00_JPRB,3.4534E+00_JPRB,3.4596E+00_JPRB,3.3989E+00_JPRB,3.2137E+00_JPRB,&
+ & 3.1290E+00_JPRB,2.9765E+00_JPRB,3.3923E+00_JPRB/)  
+KAO( :, 5, 1,10) = (/&
+ & 3.9199E+00_JPRB,3.5165E+00_JPRB,3.5128E+00_JPRB,3.5924E+00_JPRB,3.4985E+00_JPRB,3.3169E+00_JPRB,&
+ & 3.2426E+00_JPRB,3.1423E+00_JPRB,3.5829E+00_JPRB/)  
+KAO( :, 1, 2,10) = (/&
+ & 3.6408E+00_JPRB,3.2851E+00_JPRB,3.3076E+00_JPRB,3.2113E+00_JPRB,3.1456E+00_JPRB,3.0206E+00_JPRB,&
+ & 2.7332E+00_JPRB,2.5617E+00_JPRB,2.6956E+00_JPRB/)  
+KAO( :, 2, 2,10) = (/&
+ & 3.7247E+00_JPRB,3.3643E+00_JPRB,3.3883E+00_JPRB,3.3308E+00_JPRB,3.3119E+00_JPRB,3.1672E+00_JPRB,&
+ & 2.8664E+00_JPRB,2.6839E+00_JPRB,2.9052E+00_JPRB/)  
+KAO( :, 3, 2,10) = (/&
+ & 3.8049E+00_JPRB,3.4403E+00_JPRB,3.4728E+00_JPRB,3.4603E+00_JPRB,3.4644E+00_JPRB,3.2894E+00_JPRB,&
+ & 2.9956E+00_JPRB,2.7983E+00_JPRB,3.1071E+00_JPRB/)  
+KAO( :, 4, 2,10) = (/&
+ & 3.8732E+00_JPRB,3.5109E+00_JPRB,3.5452E+00_JPRB,3.6076E+00_JPRB,3.5864E+00_JPRB,3.4101E+00_JPRB,&
+ & 3.1230E+00_JPRB,2.9350E+00_JPRB,3.3150E+00_JPRB/)  
+KAO( :, 5, 2,10) = (/&
+ & 3.9409E+00_JPRB,3.5762E+00_JPRB,3.6198E+00_JPRB,3.7407E+00_JPRB,3.6919E+00_JPRB,3.5308E+00_JPRB,&
+ & 3.2386E+00_JPRB,3.0801E+00_JPRB,3.5151E+00_JPRB/)  
+KAO( :, 1, 3,10) = (/&
+ & 3.5736E+00_JPRB,3.2584E+00_JPRB,3.3139E+00_JPRB,3.2719E+00_JPRB,3.2271E+00_JPRB,3.0778E+00_JPRB,&
+ & 2.7397E+00_JPRB,2.4788E+00_JPRB,2.5395E+00_JPRB/)  
+KAO( :, 2, 3,10) = (/&
+ & 3.6594E+00_JPRB,3.3492E+00_JPRB,3.4059E+00_JPRB,3.4088E+00_JPRB,3.3945E+00_JPRB,3.2416E+00_JPRB,&
+ & 2.8874E+00_JPRB,2.6220E+00_JPRB,2.7498E+00_JPRB/)  
+KAO( :, 3, 3,10) = (/&
+ & 3.7370E+00_JPRB,3.4383E+00_JPRB,3.4999E+00_JPRB,3.5416E+00_JPRB,3.5599E+00_JPRB,3.3810E+00_JPRB,&
+ & 3.0257E+00_JPRB,2.7502E+00_JPRB,2.9649E+00_JPRB/)  
+KAO( :, 4, 3,10) = (/&
+ & 3.8104E+00_JPRB,3.5143E+00_JPRB,3.5877E+00_JPRB,3.6896E+00_JPRB,3.6976E+00_JPRB,3.5128E+00_JPRB,&
+ & 3.1541E+00_JPRB,2.8734E+00_JPRB,3.1792E+00_JPRB/)  
+KAO( :, 5, 3,10) = (/&
+ & 3.8817E+00_JPRB,3.5850E+00_JPRB,3.6770E+00_JPRB,3.8155E+00_JPRB,3.8142E+00_JPRB,3.6439E+00_JPRB,&
+ & 3.2832E+00_JPRB,2.9977E+00_JPRB,3.3829E+00_JPRB/)  
+KAO( :, 1, 4,10) = (/&
+ & 3.4322E+00_JPRB,3.2007E+00_JPRB,3.2659E+00_JPRB,3.2997E+00_JPRB,3.2447E+00_JPRB,3.0584E+00_JPRB,&
+ & 2.7371E+00_JPRB,2.3518E+00_JPRB,2.3300E+00_JPRB/)  
+KAO( :, 2, 4,10) = (/&
+ & 3.5196E+00_JPRB,3.3050E+00_JPRB,3.3731E+00_JPRB,3.4388E+00_JPRB,3.4095E+00_JPRB,3.2370E+00_JPRB,&
+ & 2.9126E+00_JPRB,2.5092E+00_JPRB,2.5309E+00_JPRB/)  
+KAO( :, 3, 4,10) = (/&
+ & 3.5985E+00_JPRB,3.3943E+00_JPRB,3.4756E+00_JPRB,3.5772E+00_JPRB,3.5742E+00_JPRB,3.4032E+00_JPRB,&
+ & 3.0669E+00_JPRB,2.6516E+00_JPRB,2.7458E+00_JPRB/)  
+KAO( :, 4, 4,10) = (/&
+ & 3.6770E+00_JPRB,3.4750E+00_JPRB,3.5775E+00_JPRB,3.7106E+00_JPRB,3.7325E+00_JPRB,3.5499E+00_JPRB,&
+ & 3.2119E+00_JPRB,2.7759E+00_JPRB,2.9618E+00_JPRB/)  
+KAO( :, 5, 4,10) = (/&
+ & 3.7553E+00_JPRB,3.5545E+00_JPRB,3.6854E+00_JPRB,3.8420E+00_JPRB,3.8679E+00_JPRB,3.6893E+00_JPRB,&
+ & 3.3628E+00_JPRB,2.8870E+00_JPRB,3.1717E+00_JPRB/)  
+KAO( :, 1, 5,10) = (/&
+ & 3.2373E+00_JPRB,3.1117E+00_JPRB,3.1778E+00_JPRB,3.2611E+00_JPRB,3.1950E+00_JPRB,2.9886E+00_JPRB,&
+ & 2.6929E+00_JPRB,2.2194E+00_JPRB,2.0888E+00_JPRB/)  
+KAO( :, 2, 5,10) = (/&
+ & 3.3227E+00_JPRB,3.2184E+00_JPRB,3.2899E+00_JPRB,3.4098E+00_JPRB,3.3633E+00_JPRB,3.1652E+00_JPRB,&
+ & 2.8940E+00_JPRB,2.3720E+00_JPRB,2.2795E+00_JPRB/)  
+KAO( :, 3, 5,10) = (/&
+ & 3.4108E+00_JPRB,3.3097E+00_JPRB,3.4099E+00_JPRB,3.5509E+00_JPRB,3.5204E+00_JPRB,3.3546E+00_JPRB,&
+ & 3.0628E+00_JPRB,2.5129E+00_JPRB,2.4816E+00_JPRB/)  
+KAO( :, 4, 5,10) = (/&
+ & 3.5003E+00_JPRB,3.3952E+00_JPRB,3.5314E+00_JPRB,3.6804E+00_JPRB,3.6822E+00_JPRB,3.5261E+00_JPRB,&
+ & 3.2230E+00_JPRB,2.6514E+00_JPRB,2.6958E+00_JPRB/)  
+KAO( :, 5, 5,10) = (/&
+ & 3.5863E+00_JPRB,3.4801E+00_JPRB,3.6493E+00_JPRB,3.8038E+00_JPRB,3.8198E+00_JPRB,3.6739E+00_JPRB,&
+ & 3.3792E+00_JPRB,2.7781E+00_JPRB,2.9109E+00_JPRB/)  
+KAO( :, 1, 6,10) = (/&
+ & 3.0445E+00_JPRB,2.9620E+00_JPRB,3.0571E+00_JPRB,3.1457E+00_JPRB,3.0759E+00_JPRB,2.8664E+00_JPRB,&
+ & 2.5916E+00_JPRB,2.1266E+00_JPRB,1.8296E+00_JPRB/)  
+KAO( :, 2, 6,10) = (/&
+ & 3.1336E+00_JPRB,3.0624E+00_JPRB,3.1925E+00_JPRB,3.2966E+00_JPRB,3.2392E+00_JPRB,3.0536E+00_JPRB,&
+ & 2.7999E+00_JPRB,2.2755E+00_JPRB,2.0164E+00_JPRB/)  
+KAO( :, 3, 6,10) = (/&
+ & 3.2251E+00_JPRB,3.1623E+00_JPRB,3.3255E+00_JPRB,3.4339E+00_JPRB,3.3902E+00_JPRB,3.2529E+00_JPRB,&
+ & 2.9818E+00_JPRB,2.4175E+00_JPRB,2.2137E+00_JPRB/)  
+KAO( :, 4, 6,10) = (/&
+ & 3.3171E+00_JPRB,3.2585E+00_JPRB,3.4579E+00_JPRB,3.5597E+00_JPRB,3.5496E+00_JPRB,3.4294E+00_JPRB,&
+ & 3.1517E+00_JPRB,2.5627E+00_JPRB,2.4250E+00_JPRB/)  
+KAO( :, 5, 6,10) = (/&
+ & 3.4116E+00_JPRB,3.3553E+00_JPRB,3.5847E+00_JPRB,3.6942E+00_JPRB,3.6982E+00_JPRB,3.5971E+00_JPRB,&
+ & 3.3128E+00_JPRB,2.7040E+00_JPRB,2.6238E+00_JPRB/)  
+KAO( :, 1, 7,10) = (/&
+ & 2.9086E+00_JPRB,2.8374E+00_JPRB,2.9280E+00_JPRB,2.9562E+00_JPRB,2.8965E+00_JPRB,2.7121E+00_JPRB,&
+ & 2.4469E+00_JPRB,2.0175E+00_JPRB,1.5788E+00_JPRB/)  
+KAO( :, 2, 7,10) = (/&
+ & 2.9988E+00_JPRB,2.9438E+00_JPRB,3.0639E+00_JPRB,3.1077E+00_JPRB,3.0554E+00_JPRB,2.9073E+00_JPRB,&
+ & 2.6439E+00_JPRB,2.1750E+00_JPRB,1.7618E+00_JPRB/)  
+KAO( :, 3, 7,10) = (/&
+ & 3.0933E+00_JPRB,3.0485E+00_JPRB,3.1991E+00_JPRB,3.2496E+00_JPRB,3.2138E+00_JPRB,3.1110E+00_JPRB,&
+ & 2.8275E+00_JPRB,2.3269E+00_JPRB,1.9611E+00_JPRB/)  
+KAO( :, 4, 7,10) = (/&
+ & 3.1882E+00_JPRB,3.1521E+00_JPRB,3.3306E+00_JPRB,3.3838E+00_JPRB,3.3832E+00_JPRB,3.2822E+00_JPRB,&
+ & 2.9996E+00_JPRB,2.4824E+00_JPRB,2.1592E+00_JPRB/)  
+KAO( :, 5, 7,10) = (/&
+ & 3.2780E+00_JPRB,3.2584E+00_JPRB,3.4493E+00_JPRB,3.5229E+00_JPRB,3.5250E+00_JPRB,3.4373E+00_JPRB,&
+ & 3.1721E+00_JPRB,2.6319E+00_JPRB,2.3379E+00_JPRB/)  
+KAO( :, 1, 8,10) = (/&
+ & 2.8154E+00_JPRB,2.7401E+00_JPRB,2.8041E+00_JPRB,2.7499E+00_JPRB,2.6697E+00_JPRB,2.5266E+00_JPRB,&
+ & 2.2797E+00_JPRB,1.8696E+00_JPRB,1.3559E+00_JPRB/)  
+KAO( :, 2, 8,10) = (/&
+ & 2.8912E+00_JPRB,2.8557E+00_JPRB,2.9355E+00_JPRB,2.8974E+00_JPRB,2.8365E+00_JPRB,2.7206E+00_JPRB,&
+ & 2.4626E+00_JPRB,2.0339E+00_JPRB,1.5286E+00_JPRB/)  
+KAO( :, 3, 8,10) = (/&
+ & 2.9739E+00_JPRB,2.9692E+00_JPRB,3.0667E+00_JPRB,3.0335E+00_JPRB,3.0033E+00_JPRB,2.9063E+00_JPRB,&
+ & 2.6365E+00_JPRB,2.1906E+00_JPRB,1.7207E+00_JPRB/)  
+KAO( :, 4, 8,10) = (/&
+ & 3.0589E+00_JPRB,3.0798E+00_JPRB,3.1911E+00_JPRB,3.1726E+00_JPRB,3.1737E+00_JPRB,3.0654E+00_JPRB,&
+ & 2.8021E+00_JPRB,2.3587E+00_JPRB,1.9007E+00_JPRB/)  
+KAO( :, 5, 8,10) = (/&
+ & 3.1452E+00_JPRB,3.1888E+00_JPRB,3.3008E+00_JPRB,3.3242E+00_JPRB,3.3225E+00_JPRB,3.2145E+00_JPRB,&
+ & 2.9803E+00_JPRB,2.5138E+00_JPRB,2.0640E+00_JPRB/)  
+KAO( :, 1, 9,10) = (/&
+ & 2.7071E+00_JPRB,2.6491E+00_JPRB,2.6723E+00_JPRB,2.5686E+00_JPRB,2.4536E+00_JPRB,2.3106E+00_JPRB,&
+ & 2.0811E+00_JPRB,1.6991E+00_JPRB,1.1509E+00_JPRB/)  
+KAO( :, 2, 9,10) = (/&
+ & 2.7701E+00_JPRB,2.7593E+00_JPRB,2.7975E+00_JPRB,2.7179E+00_JPRB,2.6123E+00_JPRB,2.4920E+00_JPRB,&
+ & 2.2565E+00_JPRB,1.8667E+00_JPRB,1.3080E+00_JPRB/)  
+KAO( :, 3, 9,10) = (/&
+ & 2.8376E+00_JPRB,2.8669E+00_JPRB,2.9292E+00_JPRB,2.8584E+00_JPRB,2.7770E+00_JPRB,2.6567E+00_JPRB,&
+ & 2.4289E+00_JPRB,2.0233E+00_JPRB,1.4827E+00_JPRB/)  
+KAO( :, 4, 9,10) = (/&
+ & 2.9092E+00_JPRB,2.9736E+00_JPRB,3.0528E+00_JPRB,3.0034E+00_JPRB,2.9332E+00_JPRB,2.8084E+00_JPRB,&
+ & 2.5864E+00_JPRB,2.1897E+00_JPRB,1.6436E+00_JPRB/)  
+KAO( :, 5, 9,10) = (/&
+ & 2.9831E+00_JPRB,3.0790E+00_JPRB,3.1648E+00_JPRB,3.1509E+00_JPRB,3.0739E+00_JPRB,2.9530E+00_JPRB,&
+ & 2.7530E+00_JPRB,2.3477E+00_JPRB,1.7965E+00_JPRB/)  
+KAO( :, 1,10,10) = (/&
+ & 2.5846E+00_JPRB,2.5566E+00_JPRB,2.5335E+00_JPRB,2.4083E+00_JPRB,2.2712E+00_JPRB,2.1147E+00_JPRB,&
+ & 1.8770E+00_JPRB,1.5356E+00_JPRB,9.6607E-01_JPRB/)  
+KAO( :, 2,10,10) = (/&
+ & 2.6440E+00_JPRB,2.6579E+00_JPRB,2.6475E+00_JPRB,2.5522E+00_JPRB,2.4355E+00_JPRB,2.2753E+00_JPRB,&
+ & 2.0432E+00_JPRB,1.6979E+00_JPRB,1.1107E+00_JPRB/)  
+KAO( :, 3,10,10) = (/&
+ & 2.7001E+00_JPRB,2.7579E+00_JPRB,2.7665E+00_JPRB,2.7021E+00_JPRB,2.5868E+00_JPRB,2.4222E+00_JPRB,&
+ & 2.2111E+00_JPRB,1.8498E+00_JPRB,1.2644E+00_JPRB/)  
+KAO( :, 4,10,10) = (/&
+ & 2.7579E+00_JPRB,2.8520E+00_JPRB,2.8806E+00_JPRB,2.8506E+00_JPRB,2.7323E+00_JPRB,2.5633E+00_JPRB,&
+ & 2.3644E+00_JPRB,2.0104E+00_JPRB,1.4137E+00_JPRB/)  
+KAO( :, 5,10,10) = (/&
+ & 2.8173E+00_JPRB,2.9491E+00_JPRB,2.9936E+00_JPRB,2.9898E+00_JPRB,2.8664E+00_JPRB,2.7018E+00_JPRB,&
+ & 2.5230E+00_JPRB,2.1562E+00_JPRB,1.5648E+00_JPRB/)  
+KAO( :, 1,11,10) = (/&
+ & 2.4512E+00_JPRB,2.4863E+00_JPRB,2.4335E+00_JPRB,2.3107E+00_JPRB,2.1733E+00_JPRB,1.9977E+00_JPRB,&
+ & 1.7582E+00_JPRB,1.4416E+00_JPRB,8.5970E-01_JPRB/)  
+KAO( :, 2,11,10) = (/&
+ & 2.5092E+00_JPRB,2.5823E+00_JPRB,2.5374E+00_JPRB,2.4481E+00_JPRB,2.3213E+00_JPRB,2.1404E+00_JPRB,&
+ & 1.9153E+00_JPRB,1.5898E+00_JPRB,9.9211E-01_JPRB/)  
+KAO( :, 3,11,10) = (/&
+ & 2.5638E+00_JPRB,2.6670E+00_JPRB,2.6481E+00_JPRB,2.5840E+00_JPRB,2.4592E+00_JPRB,2.2850E+00_JPRB,&
+ & 2.0595E+00_JPRB,1.7358E+00_JPRB,1.1287E+00_JPRB/)  
+KAO( :, 4,11,10) = (/&
+ & 2.6180E+00_JPRB,2.7488E+00_JPRB,2.7545E+00_JPRB,2.7101E+00_JPRB,2.5960E+00_JPRB,2.4226E+00_JPRB,&
+ & 2.2050E+00_JPRB,1.8751E+00_JPRB,1.2713E+00_JPRB/)  
+KAO( :, 5,11,10) = (/&
+ & 2.6708E+00_JPRB,2.8308E+00_JPRB,2.8655E+00_JPRB,2.8311E+00_JPRB,2.7233E+00_JPRB,2.5640E+00_JPRB,&
+ & 2.3410E+00_JPRB,2.0028E+00_JPRB,1.4162E+00_JPRB/)  
+KAO( :, 1,12,10) = (/&
+ & 2.2798E+00_JPRB,2.3643E+00_JPRB,2.3131E+00_JPRB,2.2090E+00_JPRB,2.0595E+00_JPRB,1.8678E+00_JPRB,&
+ & 1.6491E+00_JPRB,1.3284E+00_JPRB,7.5824E-01_JPRB/)  
+KAO( :, 2,12,10) = (/&
+ & 2.3366E+00_JPRB,2.4475E+00_JPRB,2.4167E+00_JPRB,2.3329E+00_JPRB,2.1840E+00_JPRB,2.0081E+00_JPRB,&
+ & 1.7907E+00_JPRB,1.4613E+00_JPRB,8.7475E-01_JPRB/)  
+KAO( :, 3,12,10) = (/&
+ & 2.3890E+00_JPRB,2.5244E+00_JPRB,2.5206E+00_JPRB,2.4421E+00_JPRB,2.3136E+00_JPRB,2.1465E+00_JPRB,&
+ & 1.9227E+00_JPRB,1.5932E+00_JPRB,9.9953E-01_JPRB/)  
+KAO( :, 4,12,10) = (/&
+ & 2.4374E+00_JPRB,2.6016E+00_JPRB,2.6217E+00_JPRB,2.5543E+00_JPRB,2.4367E+00_JPRB,2.2813E+00_JPRB,&
+ & 2.0490E+00_JPRB,1.7139E+00_JPRB,1.1310E+00_JPRB/)  
+KAO( :, 5,12,10) = (/&
+ & 2.4838E+00_JPRB,2.6702E+00_JPRB,2.7195E+00_JPRB,2.6584E+00_JPRB,2.5615E+00_JPRB,2.4117E+00_JPRB,&
+ & 2.1613E+00_JPRB,1.8334E+00_JPRB,1.2595E+00_JPRB/)  
+KAO( :, 1,13,10) = (/&
+ & 2.0791E+00_JPRB,2.1960E+00_JPRB,2.1642E+00_JPRB,2.0798E+00_JPRB,1.9340E+00_JPRB,1.7492E+00_JPRB,&
+ & 1.5316E+00_JPRB,1.2117E+00_JPRB,6.7239E-01_JPRB/)  
+KAO( :, 2,13,10) = (/&
+ & 2.1335E+00_JPRB,2.2729E+00_JPRB,2.2653E+00_JPRB,2.1865E+00_JPRB,2.0515E+00_JPRB,1.8780E+00_JPRB,&
+ & 1.6557E+00_JPRB,1.3290E+00_JPRB,7.8385E-01_JPRB/)  
+KAO( :, 3,13,10) = (/&
+ & 2.1832E+00_JPRB,2.3472E+00_JPRB,2.3626E+00_JPRB,2.2909E+00_JPRB,2.1703E+00_JPRB,1.9998E+00_JPRB,&
+ & 1.7751E+00_JPRB,1.4395E+00_JPRB,8.9988E-01_JPRB/)  
+KAO( :, 4,13,10) = (/&
+ & 2.2317E+00_JPRB,2.4190E+00_JPRB,2.4536E+00_JPRB,2.3945E+00_JPRB,2.2843E+00_JPRB,2.1191E+00_JPRB,&
+ & 1.8849E+00_JPRB,1.5486E+00_JPRB,1.0181E+00_JPRB/)  
+KAO( :, 5,13,10) = (/&
+ & 2.2928E+00_JPRB,2.4912E+00_JPRB,2.5411E+00_JPRB,2.4970E+00_JPRB,2.3950E+00_JPRB,2.2262E+00_JPRB,&
+ & 1.9945E+00_JPRB,1.6570E+00_JPRB,1.1340E+00_JPRB/)  
+KAO( :, 1, 1,11) = (/&
+ & 5.1188E+00_JPRB,4.4962E+00_JPRB,4.1898E+00_JPRB,4.1232E+00_JPRB,3.8282E+00_JPRB,3.7520E+00_JPRB,&
+ & 3.8632E+00_JPRB,3.7314E+00_JPRB,4.2299E+00_JPRB/)  
+KAO( :, 2, 1,11) = (/&
+ & 5.2357E+00_JPRB,4.6021E+00_JPRB,4.3195E+00_JPRB,4.2578E+00_JPRB,3.9916E+00_JPRB,3.9872E+00_JPRB,&
+ & 4.0538E+00_JPRB,3.9583E+00_JPRB,4.4896E+00_JPRB/)  
+KAO( :, 3, 1,11) = (/&
+ & 5.3431E+00_JPRB,4.6995E+00_JPRB,4.4290E+00_JPRB,4.3921E+00_JPRB,4.1757E+00_JPRB,4.2052E+00_JPRB,&
+ & 4.1799E+00_JPRB,4.1518E+00_JPRB,4.7182E+00_JPRB/)  
+KAO( :, 4, 1,11) = (/&
+ & 5.4410E+00_JPRB,4.7855E+00_JPRB,4.5302E+00_JPRB,4.5043E+00_JPRB,4.3792E+00_JPRB,4.3589E+00_JPRB,&
+ & 4.2659E+00_JPRB,4.3498E+00_JPRB,4.9265E+00_JPRB/)  
+KAO( :, 5, 1,11) = (/&
+ & 5.5309E+00_JPRB,4.8636E+00_JPRB,4.6308E+00_JPRB,4.6226E+00_JPRB,4.5553E+00_JPRB,4.4731E+00_JPRB,&
+ & 4.3313E+00_JPRB,4.5563E+00_JPRB,5.1476E+00_JPRB/)  
+KAO( :, 1, 2,11) = (/&
+ & 5.3830E+00_JPRB,4.7598E+00_JPRB,4.5038E+00_JPRB,4.4124E+00_JPRB,4.1256E+00_JPRB,3.9352E+00_JPRB,&
+ & 3.9288E+00_JPRB,3.6529E+00_JPRB,4.1533E+00_JPRB/)  
+KAO( :, 2, 2,11) = (/&
+ & 5.5093E+00_JPRB,4.8746E+00_JPRB,4.6320E+00_JPRB,4.5446E+00_JPRB,4.3075E+00_JPRB,4.1643E+00_JPRB,&
+ & 4.1158E+00_JPRB,3.8793E+00_JPRB,4.4270E+00_JPRB/)  
+KAO( :, 3, 2,11) = (/&
+ & 5.6175E+00_JPRB,4.9740E+00_JPRB,4.7438E+00_JPRB,4.6765E+00_JPRB,4.5041E+00_JPRB,4.3624E+00_JPRB,&
+ & 4.2461E+00_JPRB,4.1118E+00_JPRB,4.6851E+00_JPRB/)  
+KAO( :, 4, 2,11) = (/&
+ & 5.7157E+00_JPRB,5.0593E+00_JPRB,4.8530E+00_JPRB,4.7924E+00_JPRB,4.7291E+00_JPRB,4.5102E+00_JPRB,&
+ & 4.3461E+00_JPRB,4.3454E+00_JPRB,4.9401E+00_JPRB/)  
+KAO( :, 5, 2,11) = (/&
+ & 5.8004E+00_JPRB,5.1349E+00_JPRB,4.9550E+00_JPRB,4.9255E+00_JPRB,4.9201E+00_JPRB,4.6238E+00_JPRB,&
+ & 4.4516E+00_JPRB,4.5890E+00_JPRB,5.2057E+00_JPRB/)  
+KAO( :, 1, 3,11) = (/&
+ & 5.5164E+00_JPRB,4.9212E+00_JPRB,4.7297E+00_JPRB,4.6037E+00_JPRB,4.3740E+00_JPRB,4.1348E+00_JPRB,&
+ & 3.8407E+00_JPRB,3.5074E+00_JPRB,3.9068E+00_JPRB/)  
+KAO( :, 2, 3,11) = (/&
+ & 5.6457E+00_JPRB,5.0403E+00_JPRB,4.8708E+00_JPRB,4.7481E+00_JPRB,4.5713E+00_JPRB,4.3408E+00_JPRB,&
+ & 4.0590E+00_JPRB,3.7279E+00_JPRB,4.2270E+00_JPRB/)  
+KAO( :, 3, 3,11) = (/&
+ & 5.7648E+00_JPRB,5.1472E+00_JPRB,4.9917E+00_JPRB,4.8917E+00_JPRB,4.7668E+00_JPRB,4.5432E+00_JPRB,&
+ & 4.2248E+00_JPRB,3.9671E+00_JPRB,4.5272E+00_JPRB/)  
+KAO( :, 4, 3,11) = (/&
+ & 5.8726E+00_JPRB,5.2450E+00_JPRB,5.1073E+00_JPRB,5.0262E+00_JPRB,4.9765E+00_JPRB,4.7078E+00_JPRB,&
+ & 4.3673E+00_JPRB,4.2265E+00_JPRB,4.8206E+00_JPRB/)  
+KAO( :, 5, 3,11) = (/&
+ & 5.9741E+00_JPRB,5.3354E+00_JPRB,5.2185E+00_JPRB,5.1809E+00_JPRB,5.1510E+00_JPRB,4.8375E+00_JPRB,&
+ & 4.4951E+00_JPRB,4.4978E+00_JPRB,5.1274E+00_JPRB/)  
+KAO( :, 1, 4,11) = (/&
+ & 5.5586E+00_JPRB,4.9938E+00_JPRB,4.8775E+00_JPRB,4.7228E+00_JPRB,4.5678E+00_JPRB,4.2888E+00_JPRB,&
+ & 3.7572E+00_JPRB,3.3686E+00_JPRB,3.6371E+00_JPRB/)  
+KAO( :, 2, 4,11) = (/&
+ & 5.7048E+00_JPRB,5.1254E+00_JPRB,5.0246E+00_JPRB,4.8865E+00_JPRB,4.7638E+00_JPRB,4.4945E+00_JPRB,&
+ & 3.9733E+00_JPRB,3.5886E+00_JPRB,3.9962E+00_JPRB/)  
+KAO( :, 3, 4,11) = (/&
+ & 5.8381E+00_JPRB,5.2468E+00_JPRB,5.1587E+00_JPRB,5.0517E+00_JPRB,4.9564E+00_JPRB,4.6974E+00_JPRB,&
+ & 4.1859E+00_JPRB,3.8140E+00_JPRB,4.3209E+00_JPRB/)  
+KAO( :, 4, 4,11) = (/&
+ & 5.9605E+00_JPRB,5.3609E+00_JPRB,5.2847E+00_JPRB,5.2114E+00_JPRB,5.1284E+00_JPRB,4.8993E+00_JPRB,&
+ & 4.3580E+00_JPRB,4.0704E+00_JPRB,4.6439E+00_JPRB/)  
+KAO( :, 5, 4,11) = (/&
+ & 6.0637E+00_JPRB,5.4599E+00_JPRB,5.4065E+00_JPRB,5.3711E+00_JPRB,5.2958E+00_JPRB,5.0595E+00_JPRB,&
+ & 4.5112E+00_JPRB,4.3517E+00_JPRB,4.9660E+00_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART7',1,ZHOOK_HANDLE)
+END SUBROUTINE PART7
+
+
+SUBROUTINE PART8
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART8',0,ZHOOK_HANDLE)
+
+
+KAO( :, 1, 5,11) = (/&
+ & 5.5140E+00_JPRB,4.9813E+00_JPRB,4.9335E+00_JPRB,4.7913E+00_JPRB,4.6774E+00_JPRB,4.3710E+00_JPRB,&
+ & 3.7530E+00_JPRB,3.2477E+00_JPRB,3.3634E+00_JPRB/)  
+KAO( :, 2, 5,11) = (/&
+ & 5.6664E+00_JPRB,5.1255E+00_JPRB,5.1035E+00_JPRB,4.9717E+00_JPRB,4.8774E+00_JPRB,4.5859E+00_JPRB,&
+ & 3.9668E+00_JPRB,3.4677E+00_JPRB,3.7405E+00_JPRB/)  
+KAO( :, 3, 5,11) = (/&
+ & 5.8011E+00_JPRB,5.2612E+00_JPRB,5.2545E+00_JPRB,5.1514E+00_JPRB,5.0632E+00_JPRB,4.7735E+00_JPRB,&
+ & 4.2022E+00_JPRB,3.6795E+00_JPRB,4.0879E+00_JPRB/)  
+KAO( :, 4, 5,11) = (/&
+ & 5.9195E+00_JPRB,5.3879E+00_JPRB,5.3990E+00_JPRB,5.3253E+00_JPRB,5.2340E+00_JPRB,4.9702E+00_JPRB,&
+ & 4.4129E+00_JPRB,3.9016E+00_JPRB,4.4176E+00_JPRB/)  
+KAO( :, 5, 5,11) = (/&
+ & 6.0324E+00_JPRB,5.5030E+00_JPRB,5.5351E+00_JPRB,5.4951E+00_JPRB,5.4012E+00_JPRB,5.1456E+00_JPRB,&
+ & 4.5860E+00_JPRB,4.1610E+00_JPRB,4.7497E+00_JPRB/)  
+KAO( :, 1, 6,11) = (/&
+ & 5.3460E+00_JPRB,4.8907E+00_JPRB,4.9037E+00_JPRB,4.7959E+00_JPRB,4.6720E+00_JPRB,4.3428E+00_JPRB,&
+ & 3.7532E+00_JPRB,3.0728E+00_JPRB,3.0483E+00_JPRB/)  
+KAO( :, 2, 6,11) = (/&
+ & 5.5016E+00_JPRB,5.0576E+00_JPRB,5.0845E+00_JPRB,4.9968E+00_JPRB,4.8768E+00_JPRB,4.5629E+00_JPRB,&
+ & 3.9805E+00_JPRB,3.3257E+00_JPRB,3.4138E+00_JPRB/)  
+KAO( :, 3, 6,11) = (/&
+ & 5.6458E+00_JPRB,5.2128E+00_JPRB,5.2471E+00_JPRB,5.1892E+00_JPRB,5.0839E+00_JPRB,4.7513E+00_JPRB,&
+ & 4.2341E+00_JPRB,3.5158E+00_JPRB,3.7567E+00_JPRB/)  
+KAO( :, 4, 6,11) = (/&
+ & 5.7776E+00_JPRB,5.3547E+00_JPRB,5.4002E+00_JPRB,5.3806E+00_JPRB,5.2566E+00_JPRB,4.9480E+00_JPRB,&
+ & 4.4656E+00_JPRB,3.7111E+00_JPRB,4.0913E+00_JPRB/)  
+KAO( :, 5, 6,11) = (/&
+ & 5.8886E+00_JPRB,5.4776E+00_JPRB,5.5415E+00_JPRB,5.5583E+00_JPRB,5.4285E+00_JPRB,5.1330E+00_JPRB,&
+ & 4.6590E+00_JPRB,3.9360E+00_JPRB,4.4349E+00_JPRB/)  
+KAO( :, 1, 7,11) = (/&
+ & 5.0900E+00_JPRB,4.7460E+00_JPRB,4.7704E+00_JPRB,4.7424E+00_JPRB,4.5661E+00_JPRB,4.2208E+00_JPRB,&
+ & 3.7025E+00_JPRB,2.9233E+00_JPRB,2.7128E+00_JPRB/)  
+KAO( :, 2, 7,11) = (/&
+ & 5.2495E+00_JPRB,4.9306E+00_JPRB,4.9678E+00_JPRB,4.9514E+00_JPRB,4.7835E+00_JPRB,4.4516E+00_JPRB,&
+ & 3.9503E+00_JPRB,3.1699E+00_JPRB,3.0368E+00_JPRB/)  
+KAO( :, 3, 7,11) = (/&
+ & 5.3908E+00_JPRB,5.0938E+00_JPRB,5.1429E+00_JPRB,5.1559E+00_JPRB,4.9966E+00_JPRB,4.6413E+00_JPRB,&
+ & 4.2020E+00_JPRB,3.3718E+00_JPRB,3.3561E+00_JPRB/)  
+KAO( :, 4, 7,11) = (/&
+ & 5.5155E+00_JPRB,5.2363E+00_JPRB,5.3032E+00_JPRB,5.3596E+00_JPRB,5.1777E+00_JPRB,4.8555E+00_JPRB,&
+ & 4.4333E+00_JPRB,3.5353E+00_JPRB,3.6838E+00_JPRB/)  
+KAO( :, 5, 7,11) = (/&
+ & 5.6325E+00_JPRB,5.3617E+00_JPRB,5.4630E+00_JPRB,5.5298E+00_JPRB,5.3705E+00_JPRB,5.0766E+00_JPRB,&
+ & 4.6290E+00_JPRB,3.7252E+00_JPRB,4.0295E+00_JPRB/)  
+KAO( :, 1, 8,11) = (/&
+ & 4.7924E+00_JPRB,4.5440E+00_JPRB,4.5871E+00_JPRB,4.5972E+00_JPRB,4.3821E+00_JPRB,4.0282E+00_JPRB,&
+ & 3.5782E+00_JPRB,2.8267E+00_JPRB,2.3643E+00_JPRB/)  
+KAO( :, 2, 8,11) = (/&
+ & 4.9458E+00_JPRB,4.7238E+00_JPRB,4.7983E+00_JPRB,4.8145E+00_JPRB,4.6002E+00_JPRB,4.2694E+00_JPRB,&
+ & 3.8266E+00_JPRB,3.0607E+00_JPRB,2.6625E+00_JPRB/)  
+KAO( :, 3, 8,11) = (/&
+ & 5.0872E+00_JPRB,4.8848E+00_JPRB,4.9881E+00_JPRB,5.0206E+00_JPRB,4.8258E+00_JPRB,4.4891E+00_JPRB,&
+ & 4.0830E+00_JPRB,3.2647E+00_JPRB,2.9566E+00_JPRB/)  
+KAO( :, 4, 8,11) = (/&
+ & 5.2177E+00_JPRB,5.0262E+00_JPRB,5.1648E+00_JPRB,5.2193E+00_JPRB,5.0190E+00_JPRB,4.7309E+00_JPRB,&
+ & 4.3124E+00_JPRB,3.4443E+00_JPRB,3.2673E+00_JPRB/)  
+KAO( :, 5, 8,11) = (/&
+ & 5.3303E+00_JPRB,5.1466E+00_JPRB,5.3381E+00_JPRB,5.3870E+00_JPRB,5.2200E+00_JPRB,4.9620E+00_JPRB,&
+ & 4.5031E+00_JPRB,3.6204E+00_JPRB,3.6052E+00_JPRB/)  
+KAO( :, 1, 9,11) = (/&
+ & 4.5347E+00_JPRB,4.3328E+00_JPRB,4.3689E+00_JPRB,4.3513E+00_JPRB,4.1174E+00_JPRB,3.7868E+00_JPRB,&
+ & 3.3737E+00_JPRB,2.7015E+00_JPRB,2.0218E+00_JPRB/)  
+KAO( :, 2, 9,11) = (/&
+ & 4.6866E+00_JPRB,4.5049E+00_JPRB,4.5898E+00_JPRB,4.5628E+00_JPRB,4.3507E+00_JPRB,4.0425E+00_JPRB,&
+ & 3.6252E+00_JPRB,2.9347E+00_JPRB,2.3048E+00_JPRB/)  
+KAO( :, 3, 9,11) = (/&
+ & 4.8251E+00_JPRB,4.6663E+00_JPRB,4.7848E+00_JPRB,4.7704E+00_JPRB,4.5826E+00_JPRB,4.2849E+00_JPRB,&
+ & 3.8759E+00_JPRB,3.1451E+00_JPRB,2.5879E+00_JPRB/)  
+KAO( :, 4, 9,11) = (/&
+ & 4.9503E+00_JPRB,4.8087E+00_JPRB,4.9642E+00_JPRB,4.9727E+00_JPRB,4.7915E+00_JPRB,4.5387E+00_JPRB,&
+ & 4.1015E+00_JPRB,3.3321E+00_JPRB,2.8859E+00_JPRB/)  
+KAO( :, 5, 9,11) = (/&
+ & 5.0642E+00_JPRB,4.9400E+00_JPRB,5.1410E+00_JPRB,5.1452E+00_JPRB,5.0116E+00_JPRB,4.7755E+00_JPRB,&
+ & 4.3020E+00_JPRB,3.5123E+00_JPRB,3.1955E+00_JPRB/)  
+KAO( :, 1,10,11) = (/&
+ & 4.3141E+00_JPRB,4.1481E+00_JPRB,4.1872E+00_JPRB,4.0732E+00_JPRB,3.8258E+00_JPRB,3.5260E+00_JPRB,&
+ & 3.1443E+00_JPRB,2.5485E+00_JPRB,1.7391E+00_JPRB/)  
+KAO( :, 2,10,11) = (/&
+ & 4.4657E+00_JPRB,4.3291E+00_JPRB,4.4068E+00_JPRB,4.2778E+00_JPRB,4.0645E+00_JPRB,3.7865E+00_JPRB,&
+ & 3.3989E+00_JPRB,2.7666E+00_JPRB,2.0042E+00_JPRB/)  
+KAO( :, 3,10,11) = (/&
+ & 4.6073E+00_JPRB,4.4901E+00_JPRB,4.5937E+00_JPRB,4.4815E+00_JPRB,4.3022E+00_JPRB,4.0396E+00_JPRB,&
+ & 3.6341E+00_JPRB,2.9783E+00_JPRB,2.2696E+00_JPRB/)  
+KAO( :, 4,10,11) = (/&
+ & 4.7332E+00_JPRB,4.6441E+00_JPRB,4.7670E+00_JPRB,4.6811E+00_JPRB,4.5263E+00_JPRB,4.2880E+00_JPRB,&
+ & 3.8564E+00_JPRB,3.1687E+00_JPRB,2.5448E+00_JPRB/)  
+KAO( :, 5,10,11) = (/&
+ & 4.8482E+00_JPRB,4.7816E+00_JPRB,4.9366E+00_JPRB,4.8606E+00_JPRB,4.7563E+00_JPRB,4.5121E+00_JPRB,&
+ & 4.0582E+00_JPRB,3.3600E+00_JPRB,2.8205E+00_JPRB/)  
+KAO( :, 1,11,11) = (/&
+ & 4.1814E+00_JPRB,4.0541E+00_JPRB,4.0844E+00_JPRB,3.9070E+00_JPRB,3.6510E+00_JPRB,3.3593E+00_JPRB,&
+ & 3.0020E+00_JPRB,2.4435E+00_JPRB,1.5974E+00_JPRB/)  
+KAO( :, 2,11,11) = (/&
+ & 4.3118E+00_JPRB,4.2274E+00_JPRB,4.2869E+00_JPRB,4.1141E+00_JPRB,3.8852E+00_JPRB,3.6134E+00_JPRB,&
+ & 3.2400E+00_JPRB,2.6533E+00_JPRB,1.8419E+00_JPRB/)  
+KAO( :, 3,11,11) = (/&
+ & 4.4319E+00_JPRB,4.3935E+00_JPRB,4.4651E+00_JPRB,4.3182E+00_JPRB,4.1137E+00_JPRB,3.8517E+00_JPRB,&
+ & 3.4603E+00_JPRB,2.8608E+00_JPRB,2.0902E+00_JPRB/)  
+KAO( :, 4,11,11) = (/&
+ & 4.5390E+00_JPRB,4.5400E+00_JPRB,4.6448E+00_JPRB,4.5087E+00_JPRB,4.3372E+00_JPRB,4.0750E+00_JPRB,&
+ & 3.6707E+00_JPRB,3.0507E+00_JPRB,2.3393E+00_JPRB/)  
+KAO( :, 5,11,11) = (/&
+ & 4.6299E+00_JPRB,4.6729E+00_JPRB,4.7998E+00_JPRB,4.6995E+00_JPRB,4.5508E+00_JPRB,4.2784E+00_JPRB,&
+ & 3.8764E+00_JPRB,3.2454E+00_JPRB,2.5677E+00_JPRB/)  
+KAO( :, 1,12,11) = (/&
+ & 4.0099E+00_JPRB,3.9422E+00_JPRB,3.9403E+00_JPRB,3.7407E+00_JPRB,3.4918E+00_JPRB,3.1976E+00_JPRB,&
+ & 2.8203E+00_JPRB,2.3020E+00_JPRB,1.4455E+00_JPRB/)  
+KAO( :, 2,12,11) = (/&
+ & 4.1176E+00_JPRB,4.1055E+00_JPRB,4.1224E+00_JPRB,3.9486E+00_JPRB,3.7245E+00_JPRB,3.4270E+00_JPRB,&
+ & 3.0337E+00_JPRB,2.5124E+00_JPRB,1.6679E+00_JPRB/)  
+KAO( :, 3,12,11) = (/&
+ & 4.2129E+00_JPRB,4.2545E+00_JPRB,4.2966E+00_JPRB,4.1603E+00_JPRB,3.9419E+00_JPRB,3.6332E+00_JPRB,&
+ & 3.2538E+00_JPRB,2.7031E+00_JPRB,1.8904E+00_JPRB/)  
+KAO( :, 4,12,11) = (/&
+ & 4.2979E+00_JPRB,4.3881E+00_JPRB,4.4616E+00_JPRB,4.3568E+00_JPRB,4.1443E+00_JPRB,3.8364E+00_JPRB,&
+ & 3.4615E+00_JPRB,2.8971E+00_JPRB,2.1003E+00_JPRB/)  
+KAO( :, 5,12,11) = (/&
+ & 4.3757E+00_JPRB,4.5140E+00_JPRB,4.6083E+00_JPRB,4.5481E+00_JPRB,4.3321E+00_JPRB,4.0278E+00_JPRB,&
+ & 3.6672E+00_JPRB,3.0746E+00_JPRB,2.3111E+00_JPRB/)  
+KAO( :, 1,13,11) = (/&
+ & 3.8115E+00_JPRB,3.8123E+00_JPRB,3.7564E+00_JPRB,3.5672E+00_JPRB,3.3321E+00_JPRB,3.0260E+00_JPRB,&
+ & 2.6276E+00_JPRB,2.1465E+00_JPRB,1.2822E+00_JPRB/)  
+KAO( :, 2,13,11) = (/&
+ & 3.9006E+00_JPRB,3.9563E+00_JPRB,3.9216E+00_JPRB,3.7726E+00_JPRB,3.5504E+00_JPRB,3.2297E+00_JPRB,&
+ & 2.8365E+00_JPRB,2.3385E+00_JPRB,1.4776E+00_JPRB/)  
+KAO( :, 3,13,11) = (/&
+ & 3.9788E+00_JPRB,4.0838E+00_JPRB,4.0868E+00_JPRB,3.9664E+00_JPRB,3.7467E+00_JPRB,3.4326E+00_JPRB,&
+ & 3.0397E+00_JPRB,2.5221E+00_JPRB,1.6670E+00_JPRB/)  
+KAO( :, 4,13,11) = (/&
+ & 4.0518E+00_JPRB,4.2003E+00_JPRB,4.2397E+00_JPRB,4.1476E+00_JPRB,3.9371E+00_JPRB,3.6284E+00_JPRB,&
+ & 3.2340E+00_JPRB,2.6989E+00_JPRB,1.8578E+00_JPRB/)  
+KAO( :, 5,13,11) = (/&
+ & 4.1173E+00_JPRB,4.3105E+00_JPRB,4.3846E+00_JPRB,4.3176E+00_JPRB,4.1129E+00_JPRB,3.8156E+00_JPRB,&
+ & 3.4246E+00_JPRB,2.8636E+00_JPRB,2.0525E+00_JPRB/)  
+KAO( :, 1, 1,12) = (/&
+ & 7.0750E+00_JPRB,6.1912E+00_JPRB,5.5399E+00_JPRB,5.3350E+00_JPRB,5.4706E+00_JPRB,5.3762E+00_JPRB,&
+ & 5.1145E+00_JPRB,5.3782E+00_JPRB,6.0148E+00_JPRB/)  
+KAO( :, 2, 1,12) = (/&
+ & 7.2687E+00_JPRB,6.3607E+00_JPRB,5.6891E+00_JPRB,5.4701E+00_JPRB,5.6126E+00_JPRB,5.5473E+00_JPRB,&
+ & 5.2734E+00_JPRB,5.8115E+00_JPRB,6.4886E+00_JPRB/)  
+KAO( :, 3, 1,12) = (/&
+ & 7.4429E+00_JPRB,6.5131E+00_JPRB,5.8367E+00_JPRB,5.5928E+00_JPRB,5.7515E+00_JPRB,5.7097E+00_JPRB,&
+ & 5.5260E+00_JPRB,6.2806E+00_JPRB,6.9951E+00_JPRB/)  
+KAO( :, 4, 1,12) = (/&
+ & 7.6028E+00_JPRB,6.6530E+00_JPRB,5.9756E+00_JPRB,5.7243E+00_JPRB,5.8730E+00_JPRB,5.9264E+00_JPRB,&
+ & 5.8242E+00_JPRB,6.7348E+00_JPRB,7.5240E+00_JPRB/)  
+KAO( :, 5, 1,12) = (/&
+ & 7.7448E+00_JPRB,6.7771E+00_JPRB,6.1045E+00_JPRB,5.8318E+00_JPRB,6.0223E+00_JPRB,6.1431E+00_JPRB,&
+ & 6.1145E+00_JPRB,7.1272E+00_JPRB,7.9899E+00_JPRB/)  
+KAO( :, 1, 2,12) = (/&
+ & 7.7545E+00_JPRB,6.7857E+00_JPRB,6.1014E+00_JPRB,5.8641E+00_JPRB,5.6627E+00_JPRB,5.4924E+00_JPRB,&
+ & 5.3064E+00_JPRB,5.5478E+00_JPRB,6.2448E+00_JPRB/)  
+KAO( :, 2, 2,12) = (/&
+ & 7.9626E+00_JPRB,6.9679E+00_JPRB,6.2884E+00_JPRB,6.0331E+00_JPRB,5.8184E+00_JPRB,5.6805E+00_JPRB,&
+ & 5.5037E+00_JPRB,5.9946E+00_JPRB,6.7468E+00_JPRB/)  
+KAO( :, 3, 2,12) = (/&
+ & 8.1571E+00_JPRB,7.1382E+00_JPRB,6.4613E+00_JPRB,6.1841E+00_JPRB,5.9708E+00_JPRB,5.8941E+00_JPRB,&
+ & 5.7532E+00_JPRB,6.4635E+00_JPRB,7.2816E+00_JPRB/)  
+KAO( :, 4, 2,12) = (/&
+ & 8.3326E+00_JPRB,7.2918E+00_JPRB,6.6225E+00_JPRB,6.3365E+00_JPRB,6.0835E+00_JPRB,6.1383E+00_JPRB,&
+ & 6.0067E+00_JPRB,6.8804E+00_JPRB,7.7820E+00_JPRB/)  
+KAO( :, 5, 2,12) = (/&
+ & 8.4888E+00_JPRB,7.4285E+00_JPRB,6.7684E+00_JPRB,6.4625E+00_JPRB,6.2260E+00_JPRB,6.3461E+00_JPRB,&
+ & 6.2452E+00_JPRB,7.2451E+00_JPRB,8.2111E+00_JPRB/)  
+KAO( :, 1, 3,12) = (/&
+ & 8.3602E+00_JPRB,7.3163E+00_JPRB,6.6388E+00_JPRB,6.3825E+00_JPRB,5.9192E+00_JPRB,5.5791E+00_JPRB,&
+ & 5.5047E+00_JPRB,5.5786E+00_JPRB,6.3479E+00_JPRB/)  
+KAO( :, 2, 3,12) = (/&
+ & 8.5890E+00_JPRB,7.5183E+00_JPRB,6.8453E+00_JPRB,6.5628E+00_JPRB,6.0922E+00_JPRB,5.8078E+00_JPRB,&
+ & 5.7041E+00_JPRB,6.0248E+00_JPRB,6.8536E+00_JPRB/)  
+KAO( :, 3, 3,12) = (/&
+ & 8.7942E+00_JPRB,7.6989E+00_JPRB,7.0385E+00_JPRB,6.7230E+00_JPRB,6.2576E+00_JPRB,6.0242E+00_JPRB,&
+ & 5.9018E+00_JPRB,6.4818E+00_JPRB,7.3747E+00_JPRB/)  
+KAO( :, 4, 3,12) = (/&
+ & 8.9740E+00_JPRB,7.8579E+00_JPRB,7.2067E+00_JPRB,6.8812E+00_JPRB,6.4038E+00_JPRB,6.2630E+00_JPRB,&
+ & 6.1272E+00_JPRB,6.9158E+00_JPRB,7.8669E+00_JPRB/)  
+KAO( :, 5, 3,12) = (/&
+ & 9.1236E+00_JPRB,7.9895E+00_JPRB,7.3566E+00_JPRB,7.0154E+00_JPRB,6.5927E+00_JPRB,6.4547E+00_JPRB,&
+ & 6.3294E+00_JPRB,7.2767E+00_JPRB,8.2820E+00_JPRB/)  
+KAO( :, 1, 4,12) = (/&
+ & 8.8847E+00_JPRB,7.7960E+00_JPRB,7.1075E+00_JPRB,6.8009E+00_JPRB,6.2444E+00_JPRB,5.7477E+00_JPRB,&
+ & 5.6301E+00_JPRB,5.4141E+00_JPRB,6.1834E+00_JPRB/)  
+KAO( :, 2, 4,12) = (/&
+ & 9.1116E+00_JPRB,7.9999E+00_JPRB,7.3356E+00_JPRB,7.0007E+00_JPRB,6.4482E+00_JPRB,5.9737E+00_JPRB,&
+ & 5.8408E+00_JPRB,5.8678E+00_JPRB,6.6961E+00_JPRB/)  
+KAO( :, 3, 4,12) = (/&
+ & 9.3094E+00_JPRB,8.1759E+00_JPRB,7.5373E+00_JPRB,7.1726E+00_JPRB,6.6509E+00_JPRB,6.2012E+00_JPRB,&
+ & 5.9911E+00_JPRB,6.3277E+00_JPRB,7.2196E+00_JPRB/)  
+KAO( :, 4, 4,12) = (/&
+ & 9.4683E+00_JPRB,8.3188E+00_JPRB,7.7174E+00_JPRB,7.3409E+00_JPRB,6.8481E+00_JPRB,6.3961E+00_JPRB,&
+ & 6.1664E+00_JPRB,6.7597E+00_JPRB,7.7146E+00_JPRB/)  
+KAO( :, 5, 4,12) = (/&
+ & 9.6042E+00_JPRB,8.4435E+00_JPRB,7.8581E+00_JPRB,7.4916E+00_JPRB,7.0560E+00_JPRB,6.5810E+00_JPRB,&
+ & 6.3225E+00_JPRB,7.1406E+00_JPRB,8.1513E+00_JPRB/)  
+KAO( :, 1, 5,12) = (/&
+ & 9.2292E+00_JPRB,8.1377E+00_JPRB,7.4945E+00_JPRB,7.1495E+00_JPRB,6.5484E+00_JPRB,5.9913E+00_JPRB,&
+ & 5.6165E+00_JPRB,5.1149E+00_JPRB,5.8309E+00_JPRB/)  
+KAO( :, 2, 5,12) = (/&
+ & 9.4577E+00_JPRB,8.3475E+00_JPRB,7.7472E+00_JPRB,7.3686E+00_JPRB,6.7878E+00_JPRB,6.2469E+00_JPRB,&
+ & 5.8285E+00_JPRB,5.5605E+00_JPRB,6.3475E+00_JPRB/)  
+KAO( :, 3, 5,12) = (/&
+ & 9.6601E+00_JPRB,8.5348E+00_JPRB,7.9661E+00_JPRB,7.5611E+00_JPRB,7.0335E+00_JPRB,6.4923E+00_JPRB,&
+ & 5.9827E+00_JPRB,5.9978E+00_JPRB,6.8470E+00_JPRB/)  
+KAO( :, 4, 5,12) = (/&
+ & 9.8370E+00_JPRB,8.6956E+00_JPRB,8.1396E+00_JPRB,7.7502E+00_JPRB,7.2566E+00_JPRB,6.6903E+00_JPRB,&
+ & 6.1155E+00_JPRB,6.4492E+00_JPRB,7.3614E+00_JPRB/)  
+KAO( :, 5, 5,12) = (/&
+ & 9.9720E+00_JPRB,8.8165E+00_JPRB,8.2799E+00_JPRB,7.9327E+00_JPRB,7.4895E+00_JPRB,6.8872E+00_JPRB,&
+ & 6.2655E+00_JPRB,6.8604E+00_JPRB,7.8326E+00_JPRB/)  
+KAO( :, 1, 6,12) = (/&
+ & 9.4228E+00_JPRB,8.3583E+00_JPRB,7.7791E+00_JPRB,7.3895E+00_JPRB,6.8260E+00_JPRB,6.2621E+00_JPRB,&
+ & 5.5219E+00_JPRB,4.8043E+00_JPRB,5.3717E+00_JPRB/)  
+KAO( :, 2, 6,12) = (/&
+ & 9.6680E+00_JPRB,8.5862E+00_JPRB,8.0441E+00_JPRB,7.6459E+00_JPRB,7.1022E+00_JPRB,6.5301E+00_JPRB,&
+ & 5.7540E+00_JPRB,5.1597E+00_JPRB,5.8750E+00_JPRB/)  
+KAO( :, 3, 6,12) = (/&
+ & 9.8647E+00_JPRB,8.7696E+00_JPRB,8.2709E+00_JPRB,7.8751E+00_JPRB,7.3582E+00_JPRB,6.7963E+00_JPRB,&
+ & 5.9278E+00_JPRB,5.6000E+00_JPRB,6.3870E+00_JPRB/)  
+KAO( :, 4, 6,12) = (/&
+ & 1.0026E+01_JPRB,8.9182E+00_JPRB,8.4588E+00_JPRB,8.0791E+00_JPRB,7.6205E+00_JPRB,7.0216E+00_JPRB,&
+ & 6.0965E+00_JPRB,6.0596E+00_JPRB,6.9174E+00_JPRB/)  
+KAO( :, 5, 6,12) = (/&
+ & 1.0167E+01_JPRB,9.0497E+00_JPRB,8.6148E+00_JPRB,8.2660E+00_JPRB,7.8544E+00_JPRB,7.2260E+00_JPRB,&
+ & 6.2428E+00_JPRB,6.4815E+00_JPRB,7.4016E+00_JPRB/)  
+KAO( :, 1, 7,12) = (/&
+ & 9.4277E+00_JPRB,8.4150E+00_JPRB,7.9357E+00_JPRB,7.5305E+00_JPRB,7.0405E+00_JPRB,6.4321E+00_JPRB,&
+ & 5.4684E+00_JPRB,4.5169E+00_JPRB,4.8723E+00_JPRB/)  
+KAO( :, 2, 7,12) = (/&
+ & 9.6610E+00_JPRB,8.6378E+00_JPRB,8.2182E+00_JPRB,7.8169E+00_JPRB,7.3595E+00_JPRB,6.7122E+00_JPRB,&
+ & 5.7318E+00_JPRB,4.8302E+00_JPRB,5.4033E+00_JPRB/)  
+KAO( :, 3, 7,12) = (/&
+ & 9.8776E+00_JPRB,8.8386E+00_JPRB,8.4643E+00_JPRB,8.0697E+00_JPRB,7.6404E+00_JPRB,7.0024E+00_JPRB,&
+ & 5.9545E+00_JPRB,5.2084E+00_JPRB,5.9332E+00_JPRB/)  
+KAO( :, 4, 7,12) = (/&
+ & 1.0065E+01_JPRB,9.0111E+00_JPRB,8.6669E+00_JPRB,8.2878E+00_JPRB,7.9176E+00_JPRB,7.2460E+00_JPRB,&
+ & 6.1780E+00_JPRB,5.6640E+00_JPRB,6.4647E+00_JPRB/)  
+KAO( :, 5, 7,12) = (/&
+ & 1.0201E+01_JPRB,9.1389E+00_JPRB,8.8345E+00_JPRB,8.5103E+00_JPRB,8.1626E+00_JPRB,7.4581E+00_JPRB,&
+ & 6.4020E+00_JPRB,6.0910E+00_JPRB,6.9537E+00_JPRB/)  
+KAO( :, 1, 8,12) = (/&
+ & 9.2811E+00_JPRB,8.3345E+00_JPRB,7.9563E+00_JPRB,7.5592E+00_JPRB,7.1819E+00_JPRB,6.4953E+00_JPRB,&
+ & 5.4582E+00_JPRB,4.2950E+00_JPRB,4.3920E+00_JPRB/)  
+KAO( :, 2, 8,12) = (/&
+ & 9.5392E+00_JPRB,8.5773E+00_JPRB,8.2536E+00_JPRB,7.8937E+00_JPRB,7.5195E+00_JPRB,6.7954E+00_JPRB,&
+ & 5.7637E+00_JPRB,4.5610E+00_JPRB,4.9202E+00_JPRB/)  
+KAO( :, 3, 8,12) = (/&
+ & 9.7485E+00_JPRB,8.7863E+00_JPRB,8.5113E+00_JPRB,8.1791E+00_JPRB,7.8003E+00_JPRB,7.1017E+00_JPRB,&
+ & 6.0337E+00_JPRB,4.8844E+00_JPRB,5.4469E+00_JPRB/)  
+KAO( :, 4, 8,12) = (/&
+ & 9.9204E+00_JPRB,8.9649E+00_JPRB,8.7333E+00_JPRB,8.4326E+00_JPRB,8.0879E+00_JPRB,7.3644E+00_JPRB,&
+ & 6.2970E+00_JPRB,5.2617E+00_JPRB,5.9740E+00_JPRB/)  
+KAO( :, 5, 8,12) = (/&
+ & 1.0071E+01_JPRB,9.1243E+00_JPRB,8.9157E+00_JPRB,8.6785E+00_JPRB,8.3414E+00_JPRB,7.5947E+00_JPRB,&
+ & 6.5710E+00_JPRB,5.6445E+00_JPRB,6.4414E+00_JPRB/)  
+KAO( :, 1, 9,12) = (/&
+ & 8.9609E+00_JPRB,8.1123E+00_JPRB,7.8302E+00_JPRB,7.5091E+00_JPRB,7.1654E+00_JPRB,6.4417E+00_JPRB,&
+ & 5.3958E+00_JPRB,4.1476E+00_JPRB,3.9139E+00_JPRB/)  
+KAO( :, 2, 9,12) = (/&
+ & 9.2116E+00_JPRB,8.3782E+00_JPRB,8.1493E+00_JPRB,7.8784E+00_JPRB,7.5112E+00_JPRB,6.7501E+00_JPRB,&
+ & 5.7326E+00_JPRB,4.3938E+00_JPRB,4.4110E+00_JPRB/)  
+KAO( :, 3, 9,12) = (/&
+ & 9.4264E+00_JPRB,8.6064E+00_JPRB,8.4239E+00_JPRB,8.1936E+00_JPRB,7.8020E+00_JPRB,7.0726E+00_JPRB,&
+ & 6.0450E+00_JPRB,4.6670E+00_JPRB,4.9111E+00_JPRB/)  
+KAO( :, 4, 9,12) = (/&
+ & 9.6121E+00_JPRB,8.8121E+00_JPRB,8.6565E+00_JPRB,8.4692E+00_JPRB,8.1000E+00_JPRB,7.3553E+00_JPRB,&
+ & 6.3481E+00_JPRB,4.9681E+00_JPRB,5.3926E+00_JPRB/)  
+KAO( :, 5, 9,12) = (/&
+ & 9.7546E+00_JPRB,8.9755E+00_JPRB,8.8628E+00_JPRB,8.7297E+00_JPRB,8.3623E+00_JPRB,7.6149E+00_JPRB,&
+ & 6.6558E+00_JPRB,5.2826E+00_JPRB,5.8453E+00_JPRB/)  
+KAO( :, 1,10,12) = (/&
+ & 8.5361E+00_JPRB,7.8147E+00_JPRB,7.5979E+00_JPRB,7.3794E+00_JPRB,7.0310E+00_JPRB,6.2793E+00_JPRB,&
+ & 5.2791E+00_JPRB,4.0318E+00_JPRB,3.4661E+00_JPRB/)  
+KAO( :, 2,10,12) = (/&
+ & 8.7722E+00_JPRB,8.0890E+00_JPRB,7.9244E+00_JPRB,7.7654E+00_JPRB,7.3651E+00_JPRB,6.6087E+00_JPRB,&
+ & 5.6393E+00_JPRB,4.3325E+00_JPRB,3.9297E+00_JPRB/)  
+KAO( :, 3,10,12) = (/&
+ & 8.9854E+00_JPRB,8.3416E+00_JPRB,8.2149E+00_JPRB,8.1092E+00_JPRB,7.6681E+00_JPRB,6.9412E+00_JPRB,&
+ & 5.9891E+00_JPRB,4.5941E+00_JPRB,4.3794E+00_JPRB/)  
+KAO( :, 4,10,12) = (/&
+ & 9.1549E+00_JPRB,8.5424E+00_JPRB,8.4801E+00_JPRB,8.3931E+00_JPRB,7.9670E+00_JPRB,7.2576E+00_JPRB,&
+ & 6.3219E+00_JPRB,4.8394E+00_JPRB,4.8247E+00_JPRB/)  
+KAO( :, 5,10,12) = (/&
+ & 9.2930E+00_JPRB,8.7150E+00_JPRB,8.6983E+00_JPRB,8.6747E+00_JPRB,8.2356E+00_JPRB,7.5515E+00_JPRB,&
+ & 6.6530E+00_JPRB,5.0978E+00_JPRB,5.2580E+00_JPRB/)  
+KAO( :, 1,11,12) = (/&
+ & 8.1665E+00_JPRB,7.5900E+00_JPRB,7.4402E+00_JPRB,7.3130E+00_JPRB,6.8936E+00_JPRB,6.1750E+00_JPRB,&
+ & 5.2487E+00_JPRB,4.0527E+00_JPRB,3.2183E+00_JPRB/)  
+KAO( :, 2,11,12) = (/&
+ & 8.3894E+00_JPRB,7.8591E+00_JPRB,7.7685E+00_JPRB,7.6781E+00_JPRB,7.2197E+00_JPRB,6.5157E+00_JPRB,&
+ & 5.6333E+00_JPRB,4.3626E+00_JPRB,3.6379E+00_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART8',1,ZHOOK_HANDLE)
+END SUBROUTINE PART8
+
+
+SUBROUTINE PART9
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART9',0,ZHOOK_HANDLE)
+
+
+KAO( :, 3,11,12) = (/&
+ & 8.5776E+00_JPRB,8.0897E+00_JPRB,8.0638E+00_JPRB,7.9845E+00_JPRB,7.5334E+00_JPRB,6.8745E+00_JPRB,&
+ & 5.9959E+00_JPRB,4.6206E+00_JPRB,4.0541E+00_JPRB/)  
+KAO( :, 4,11,12) = (/&
+ & 8.7343E+00_JPRB,8.2889E+00_JPRB,8.3048E+00_JPRB,8.2761E+00_JPRB,7.8416E+00_JPRB,7.2002E+00_JPRB,&
+ & 6.3426E+00_JPRB,4.8817E+00_JPRB,4.4717E+00_JPRB/)  
+KAO( :, 5,11,12) = (/&
+ & 8.8713E+00_JPRB,8.4483E+00_JPRB,8.5341E+00_JPRB,8.5312E+00_JPRB,8.1167E+00_JPRB,7.5296E+00_JPRB,&
+ & 6.6477E+00_JPRB,5.1325E+00_JPRB,4.9081E+00_JPRB/)  
+KAO( :, 1,12,12) = (/&
+ & 7.8094E+00_JPRB,7.3653E+00_JPRB,7.2542E+00_JPRB,7.0902E+00_JPRB,6.6433E+00_JPRB,5.9686E+00_JPRB,&
+ & 5.1635E+00_JPRB,4.0194E+00_JPRB,2.9475E+00_JPRB/)  
+KAO( :, 2,12,12) = (/&
+ & 8.0117E+00_JPRB,7.6155E+00_JPRB,7.5651E+00_JPRB,7.4151E+00_JPRB,6.9696E+00_JPRB,6.3450E+00_JPRB,&
+ & 5.5476E+00_JPRB,4.3129E+00_JPRB,3.3366E+00_JPRB/)  
+KAO( :, 3,12,12) = (/&
+ & 8.1910E+00_JPRB,7.8328E+00_JPRB,7.8418E+00_JPRB,7.7049E+00_JPRB,7.2969E+00_JPRB,6.7155E+00_JPRB,&
+ & 5.8961E+00_JPRB,4.5906E+00_JPRB,3.7405E+00_JPRB/)  
+KAO( :, 4,12,12) = (/&
+ & 8.3426E+00_JPRB,8.0165E+00_JPRB,8.0839E+00_JPRB,7.9767E+00_JPRB,7.6138E+00_JPRB,7.0590E+00_JPRB,&
+ & 6.2190E+00_JPRB,4.8660E+00_JPRB,4.1525E+00_JPRB/)  
+KAO( :, 5,12,12) = (/&
+ & 8.4617E+00_JPRB,8.1705E+00_JPRB,8.3144E+00_JPRB,8.2344E+00_JPRB,7.9033E+00_JPRB,7.3931E+00_JPRB,&
+ & 6.5112E+00_JPRB,5.1463E+00_JPRB,4.5704E+00_JPRB/)  
+KAO( :, 1,13,12) = (/&
+ & 7.4570E+00_JPRB,7.1219E+00_JPRB,7.0631E+00_JPRB,6.7931E+00_JPRB,6.3176E+00_JPRB,5.7305E+00_JPRB,&
+ & 4.9924E+00_JPRB,3.9078E+00_JPRB,2.6864E+00_JPRB/)  
+KAO( :, 2,13,12) = (/&
+ & 7.6593E+00_JPRB,7.3680E+00_JPRB,7.3595E+00_JPRB,7.0913E+00_JPRB,6.6544E+00_JPRB,6.1127E+00_JPRB,&
+ & 5.3577E+00_JPRB,4.1969E+00_JPRB,3.0587E+00_JPRB/)  
+KAO( :, 3,13,12) = (/&
+ & 7.8270E+00_JPRB,7.5824E+00_JPRB,7.6095E+00_JPRB,7.3732E+00_JPRB,7.0009E+00_JPRB,6.4671E+00_JPRB,&
+ & 5.6889E+00_JPRB,4.4965E+00_JPRB,3.4369E+00_JPRB/)  
+KAO( :, 4,13,12) = (/&
+ & 7.9650E+00_JPRB,7.7709E+00_JPRB,7.8397E+00_JPRB,7.6582E+00_JPRB,7.3100E+00_JPRB,6.7945E+00_JPRB,&
+ & 6.0051E+00_JPRB,4.7890E+00_JPRB,3.8174E+00_JPRB/)  
+KAO( :, 5,13,12) = (/&
+ & 8.0792E+00_JPRB,7.9275E+00_JPRB,8.0591E+00_JPRB,7.9074E+00_JPRB,7.6140E+00_JPRB,7.1099E+00_JPRB,&
+ & 6.2973E+00_JPRB,5.0841E+00_JPRB,4.2048E+00_JPRB/)  
+KAO( :, 1, 1,13) = (/&
+ & 1.0577E+01_JPRB,9.2549E+00_JPRB,8.1600E+00_JPRB,7.7278E+00_JPRB,7.7653E+00_JPRB,7.7716E+00_JPRB,&
+ & 7.5669E+00_JPRB,8.8236E+00_JPRB,9.8756E+00_JPRB/)  
+KAO( :, 2, 1,13) = (/&
+ & 1.0671E+01_JPRB,9.3375E+00_JPRB,8.2378E+00_JPRB,7.8122E+00_JPRB,7.8593E+00_JPRB,7.7059E+00_JPRB,&
+ & 7.9393E+00_JPRB,9.2604E+00_JPRB,1.0358E+01_JPRB/)  
+KAO( :, 3, 1,13) = (/&
+ & 1.0744E+01_JPRB,9.4010E+00_JPRB,8.2968E+00_JPRB,7.8823E+00_JPRB,7.9000E+00_JPRB,7.7087E+00_JPRB,&
+ & 8.3139E+00_JPRB,9.6974E+00_JPRB,1.0851E+01_JPRB/)  
+KAO( :, 4, 1,13) = (/&
+ & 1.0801E+01_JPRB,9.4514E+00_JPRB,8.3377E+00_JPRB,7.9397E+00_JPRB,7.9429E+00_JPRB,7.7123E+00_JPRB,&
+ & 8.6663E+00_JPRB,1.0108E+01_JPRB,1.1303E+01_JPRB/)  
+KAO( :, 5, 1,13) = (/&
+ & 1.0828E+01_JPRB,9.4745E+00_JPRB,8.3567E+00_JPRB,8.0119E+00_JPRB,7.9284E+00_JPRB,7.7671E+00_JPRB,&
+ & 9.0671E+00_JPRB,1.0577E+01_JPRB,1.1784E+01_JPRB/)  
+KAO( :, 1, 2,13) = (/&
+ & 1.1163E+01_JPRB,9.7674E+00_JPRB,8.6478E+00_JPRB,8.0225E+00_JPRB,8.2244E+00_JPRB,8.0837E+00_JPRB,&
+ & 7.7758E+00_JPRB,9.0278E+00_JPRB,1.0229E+01_JPRB/)  
+KAO( :, 2, 2,13) = (/&
+ & 1.1323E+01_JPRB,9.9081E+00_JPRB,8.7792E+00_JPRB,8.1586E+00_JPRB,8.2869E+00_JPRB,8.0551E+00_JPRB,&
+ & 8.1451E+00_JPRB,9.5005E+00_JPRB,1.0748E+01_JPRB/)  
+KAO( :, 3, 2,13) = (/&
+ & 1.1461E+01_JPRB,1.0028E+01_JPRB,8.8854E+00_JPRB,8.2743E+00_JPRB,8.3048E+00_JPRB,8.0402E+00_JPRB,&
+ & 8.5556E+00_JPRB,9.9796E+00_JPRB,1.1282E+01_JPRB/)  
+KAO( :, 4, 2,13) = (/&
+ & 1.1566E+01_JPRB,1.0120E+01_JPRB,8.9543E+00_JPRB,8.3710E+00_JPRB,8.3468E+00_JPRB,8.0313E+00_JPRB,&
+ & 8.9856E+00_JPRB,1.0481E+01_JPRB,1.1824E+01_JPRB/)  
+KAO( :, 5, 2,13) = (/&
+ & 1.1629E+01_JPRB,1.0176E+01_JPRB,8.9870E+00_JPRB,8.4547E+00_JPRB,8.3497E+00_JPRB,8.1172E+00_JPRB,&
+ & 9.4516E+00_JPRB,1.1026E+01_JPRB,1.2419E+01_JPRB/)  
+KAO( :, 1, 3,13) = (/&
+ & 1.1962E+01_JPRB,1.0467E+01_JPRB,9.2709E+00_JPRB,8.4291E+00_JPRB,8.5436E+00_JPRB,8.3200E+00_JPRB,&
+ & 7.8658E+00_JPRB,9.0562E+00_JPRB,1.0308E+01_JPRB/)  
+KAO( :, 2, 3,13) = (/&
+ & 1.2205E+01_JPRB,1.0680E+01_JPRB,9.4411E+00_JPRB,8.6517E+00_JPRB,8.6197E+00_JPRB,8.3368E+00_JPRB,&
+ & 8.2049E+00_JPRB,9.5685E+00_JPRB,1.0891E+01_JPRB/)  
+KAO( :, 3, 3,13) = (/&
+ & 1.2410E+01_JPRB,1.0859E+01_JPRB,9.5853E+00_JPRB,8.8479E+00_JPRB,8.6747E+00_JPRB,8.3471E+00_JPRB,&
+ & 8.6431E+00_JPRB,1.0082E+01_JPRB,1.1474E+01_JPRB/)  
+KAO( :, 4, 3,13) = (/&
+ & 1.2574E+01_JPRB,1.1002E+01_JPRB,9.6989E+00_JPRB,8.9698E+00_JPRB,8.7471E+00_JPRB,8.3398E+00_JPRB,&
+ & 9.0831E+00_JPRB,1.0595E+01_JPRB,1.2056E+01_JPRB/)  
+KAO( :, 5, 3,13) = (/&
+ & 1.2712E+01_JPRB,1.1123E+01_JPRB,9.7902E+00_JPRB,9.0790E+00_JPRB,8.7667E+00_JPRB,8.4500E+00_JPRB,&
+ & 9.6002E+00_JPRB,1.1199E+01_JPRB,1.2724E+01_JPRB/)  
+KAO( :, 1, 4,13) = (/&
+ & 1.2978E+01_JPRB,1.1356E+01_JPRB,1.0016E+01_JPRB,9.0951E+00_JPRB,8.8183E+00_JPRB,8.5105E+00_JPRB,&
+ & 7.9105E+00_JPRB,9.0384E+00_JPRB,1.0315E+01_JPRB/)  
+KAO( :, 2, 4,13) = (/&
+ & 1.3298E+01_JPRB,1.1636E+01_JPRB,1.0263E+01_JPRB,9.3919E+00_JPRB,8.9613E+00_JPRB,8.5969E+00_JPRB,&
+ & 8.2211E+00_JPRB,9.5613E+00_JPRB,1.0907E+01_JPRB/)  
+KAO( :, 3, 4,13) = (/&
+ & 1.3575E+01_JPRB,1.1878E+01_JPRB,1.0487E+01_JPRB,9.6114E+00_JPRB,9.0632E+00_JPRB,8.6395E+00_JPRB,&
+ & 8.6771E+00_JPRB,1.0122E+01_JPRB,1.1544E+01_JPRB/)  
+KAO( :, 4, 4,13) = (/&
+ & 1.3811E+01_JPRB,1.2085E+01_JPRB,1.0662E+01_JPRB,9.7774E+00_JPRB,9.1650E+00_JPRB,8.6661E+00_JPRB,&
+ & 9.1672E+00_JPRB,1.0693E+01_JPRB,1.2193E+01_JPRB/)  
+KAO( :, 5, 4,13) = (/&
+ & 1.3981E+01_JPRB,1.2233E+01_JPRB,1.0802E+01_JPRB,9.9141E+00_JPRB,9.2432E+00_JPRB,8.7675E+00_JPRB,&
+ & 9.7195E+00_JPRB,1.1338E+01_JPRB,1.2921E+01_JPRB/)  
+KAO( :, 1, 5,13) = (/&
+ & 1.4114E+01_JPRB,1.2350E+01_JPRB,1.0930E+01_JPRB,9.8909E+00_JPRB,9.2442E+00_JPRB,8.6849E+00_JPRB,&
+ & 8.0205E+00_JPRB,9.0018E+00_JPRB,1.0281E+01_JPRB/)  
+KAO( :, 2, 5,13) = (/&
+ & 1.4481E+01_JPRB,1.2671E+01_JPRB,1.1207E+01_JPRB,1.0236E+01_JPRB,9.4445E+00_JPRB,8.8064E+00_JPRB,&
+ & 8.3341E+00_JPRB,9.5712E+00_JPRB,1.0927E+01_JPRB/)  
+KAO( :, 3, 5,13) = (/&
+ & 1.4780E+01_JPRB,1.2933E+01_JPRB,1.1441E+01_JPRB,1.0504E+01_JPRB,9.5949E+00_JPRB,8.9267E+00_JPRB,&
+ & 8.7559E+00_JPRB,1.0193E+01_JPRB,1.1635E+01_JPRB/)  
+KAO( :, 4, 5,13) = (/&
+ & 1.5014E+01_JPRB,1.3137E+01_JPRB,1.1651E+01_JPRB,1.0704E+01_JPRB,9.7669E+00_JPRB,9.0159E+00_JPRB,&
+ & 9.2560E+00_JPRB,1.0797E+01_JPRB,1.2325E+01_JPRB/)  
+KAO( :, 5, 5,13) = (/&
+ & 1.5187E+01_JPRB,1.3289E+01_JPRB,1.1815E+01_JPRB,1.0866E+01_JPRB,9.8919E+00_JPRB,9.1157E+00_JPRB,&
+ & 9.8156E+00_JPRB,1.1450E+01_JPRB,1.3070E+01_JPRB/)  
+KAO( :, 1, 6,13) = (/&
+ & 1.5160E+01_JPRB,1.3265E+01_JPRB,1.1763E+01_JPRB,1.0744E+01_JPRB,9.7606E+00_JPRB,8.8908E+00_JPRB,&
+ & 8.2258E+00_JPRB,8.8849E+00_JPRB,1.0152E+01_JPRB/)  
+KAO( :, 2, 6,13) = (/&
+ & 1.5549E+01_JPRB,1.3605E+01_JPRB,1.2084E+01_JPRB,1.1112E+01_JPRB,1.0034E+01_JPRB,9.1009E+00_JPRB,&
+ & 8.4931E+00_JPRB,9.5055E+00_JPRB,1.0858E+01_JPRB/)  
+KAO( :, 3, 6,13) = (/&
+ & 1.5873E+01_JPRB,1.3889E+01_JPRB,1.2356E+01_JPRB,1.1403E+01_JPRB,1.0281E+01_JPRB,9.2837E+00_JPRB,&
+ & 8.8721E+00_JPRB,1.0170E+01_JPRB,1.1619E+01_JPRB/)  
+KAO( :, 4, 6,13) = (/&
+ & 1.6112E+01_JPRB,1.4098E+01_JPRB,1.2586E+01_JPRB,1.1634E+01_JPRB,1.0494E+01_JPRB,9.4499E+00_JPRB,&
+ & 9.3030E+00_JPRB,1.0807E+01_JPRB,1.2339E+01_JPRB/)  
+KAO( :, 5, 6,13) = (/&
+ & 1.6286E+01_JPRB,1.4252E+01_JPRB,1.2775E+01_JPRB,1.1818E+01_JPRB,1.0693E+01_JPRB,9.5647E+00_JPRB,&
+ & 9.8402E+00_JPRB,1.1469E+01_JPRB,1.3094E+01_JPRB/)  
+KAO( :, 1, 7,13) = (/&
+ & 1.6122E+01_JPRB,1.4109E+01_JPRB,1.2562E+01_JPRB,1.1505E+01_JPRB,1.0368E+01_JPRB,9.2585E+00_JPRB,&
+ & 8.3696E+00_JPRB,8.5768E+00_JPRB,9.8029E+00_JPRB/)  
+KAO( :, 2, 7,13) = (/&
+ & 1.6526E+01_JPRB,1.4471E+01_JPRB,1.2919E+01_JPRB,1.1924E+01_JPRB,1.0722E+01_JPRB,9.5715E+00_JPRB,&
+ & 8.6023E+00_JPRB,9.2393E+00_JPRB,1.0560E+01_JPRB/)  
+KAO( :, 3, 7,13) = (/&
+ & 1.6858E+01_JPRB,1.4770E+01_JPRB,1.3234E+01_JPRB,1.2238E+01_JPRB,1.1035E+01_JPRB,9.8187E+00_JPRB,&
+ & 8.9328E+00_JPRB,9.9387E+00_JPRB,1.1350E+01_JPRB/)  
+KAO( :, 4, 7,13) = (/&
+ & 1.7093E+01_JPRB,1.4987E+01_JPRB,1.3501E+01_JPRB,1.2504E+01_JPRB,1.1279E+01_JPRB,1.0055E+01_JPRB,&
+ & 9.3088E+00_JPRB,1.0608E+01_JPRB,1.2111E+01_JPRB/)  
+KAO( :, 5, 7,13) = (/&
+ & 1.7259E+01_JPRB,1.5142E+01_JPRB,1.3707E+01_JPRB,1.2711E+01_JPRB,1.1518E+01_JPRB,1.0206E+01_JPRB,&
+ & 9.7355E+00_JPRB,1.1291E+01_JPRB,1.2889E+01_JPRB/)  
+KAO( :, 1, 8,13) = (/&
+ & 1.6916E+01_JPRB,1.4832E+01_JPRB,1.3277E+01_JPRB,1.2204E+01_JPRB,1.0940E+01_JPRB,9.7472E+00_JPRB,&
+ & 8.4449E+00_JPRB,8.0133E+00_JPRB,9.1571E+00_JPRB/)  
+KAO( :, 2, 8,13) = (/&
+ & 1.7329E+01_JPRB,1.5217E+01_JPRB,1.3686E+01_JPRB,1.2639E+01_JPRB,1.1376E+01_JPRB,1.0148E+01_JPRB,&
+ & 8.6472E+00_JPRB,8.7212E+00_JPRB,9.9586E+00_JPRB/)  
+KAO( :, 3, 8,13) = (/&
+ & 1.7658E+01_JPRB,1.5525E+01_JPRB,1.4035E+01_JPRB,1.3005E+01_JPRB,1.1745E+01_JPRB,1.0456E+01_JPRB,&
+ & 8.9277E+00_JPRB,9.4462E+00_JPRB,1.0783E+01_JPRB/)  
+KAO( :, 4, 8,13) = (/&
+ & 1.7910E+01_JPRB,1.5764E+01_JPRB,1.4326E+01_JPRB,1.3292E+01_JPRB,1.2039E+01_JPRB,1.0730E+01_JPRB,&
+ & 9.2875E+00_JPRB,1.0174E+01_JPRB,1.1613E+01_JPRB/)  
+KAO( :, 5, 8,13) = (/&
+ & 1.8061E+01_JPRB,1.5911E+01_JPRB,1.4552E+01_JPRB,1.3522E+01_JPRB,1.2313E+01_JPRB,1.0922E+01_JPRB,&
+ & 9.6669E+00_JPRB,1.0913E+01_JPRB,1.2458E+01_JPRB/)  
+KAO( :, 1, 9,13) = (/&
+ & 1.7489E+01_JPRB,1.5390E+01_JPRB,1.3855E+01_JPRB,1.2753E+01_JPRB,1.1443E+01_JPRB,1.0269E+01_JPRB,&
+ & 8.6020E+00_JPRB,7.3519E+00_JPRB,8.3472E+00_JPRB/)  
+KAO( :, 2, 9,13) = (/&
+ & 1.7914E+01_JPRB,1.5791E+01_JPRB,1.4307E+01_JPRB,1.3235E+01_JPRB,1.1959E+01_JPRB,1.0725E+01_JPRB,&
+ & 8.8103E+00_JPRB,8.0533E+00_JPRB,9.1895E+00_JPRB/)  
+KAO( :, 3, 9,13) = (/&
+ & 1.8257E+01_JPRB,1.6119E+01_JPRB,1.4693E+01_JPRB,1.3625E+01_JPRB,1.2389E+01_JPRB,1.1058E+01_JPRB,&
+ & 9.0504E+00_JPRB,8.8002E+00_JPRB,1.0042E+01_JPRB/)  
+KAO( :, 4, 9,13) = (/&
+ & 1.8479E+01_JPRB,1.6338E+01_JPRB,1.5015E+01_JPRB,1.3939E+01_JPRB,1.2757E+01_JPRB,1.1337E+01_JPRB,&
+ & 9.3866E+00_JPRB,9.5953E+00_JPRB,1.0949E+01_JPRB/)  
+KAO( :, 5, 9,13) = (/&
+ & 1.8635E+01_JPRB,1.6495E+01_JPRB,1.5249E+01_JPRB,1.4201E+01_JPRB,1.3054E+01_JPRB,1.1574E+01_JPRB,&
+ & 9.7301E+00_JPRB,1.0376E+01_JPRB,1.1842E+01_JPRB/)  
+KAO( :, 1,10,13) = (/&
+ & 1.7834E+01_JPRB,1.5755E+01_JPRB,1.4296E+01_JPRB,1.3173E+01_JPRB,1.1876E+01_JPRB,1.0672E+01_JPRB,&
+ & 8.8079E+00_JPRB,6.8283E+00_JPRB,7.5346E+00_JPRB/)  
+KAO( :, 2,10,13) = (/&
+ & 1.8252E+01_JPRB,1.6162E+01_JPRB,1.4783E+01_JPRB,1.3694E+01_JPRB,1.2464E+01_JPRB,1.1197E+01_JPRB,&
+ & 9.0829E+00_JPRB,7.4323E+00_JPRB,8.3917E+00_JPRB/)  
+KAO( :, 3,10,13) = (/&
+ & 1.8558E+01_JPRB,1.6468E+01_JPRB,1.5228E+01_JPRB,1.4086E+01_JPRB,1.2957E+01_JPRB,1.1559E+01_JPRB,&
+ & 9.3588E+00_JPRB,8.1767E+00_JPRB,9.3163E+00_JPRB/)  
+KAO( :, 4,10,13) = (/&
+ & 1.8778E+01_JPRB,1.6694E+01_JPRB,1.5535E+01_JPRB,1.4435E+01_JPRB,1.3366E+01_JPRB,1.1847E+01_JPRB,&
+ & 9.6760E+00_JPRB,9.0005E+00_JPRB,1.0268E+01_JPRB/)  
+KAO( :, 5,10,13) = (/&
+ & 1.8909E+01_JPRB,1.6834E+01_JPRB,1.5762E+01_JPRB,1.4717E+01_JPRB,1.3710E+01_JPRB,1.2145E+01_JPRB,&
+ & 1.0011E+01_JPRB,9.8258E+00_JPRB,1.1210E+01_JPRB/)  
+KAO( :, 1,11,13) = (/&
+ & 1.8087E+01_JPRB,1.6075E+01_JPRB,1.4790E+01_JPRB,1.3655E+01_JPRB,1.2497E+01_JPRB,1.1191E+01_JPRB,&
+ & 9.1399E+00_JPRB,6.6933E+00_JPRB,7.1162E+00_JPRB/)  
+KAO( :, 2,11,13) = (/&
+ & 1.8432E+01_JPRB,1.6428E+01_JPRB,1.5277E+01_JPRB,1.4152E+01_JPRB,1.3089E+01_JPRB,1.1695E+01_JPRB,&
+ & 9.4501E+00_JPRB,7.3057E+00_JPRB,8.0369E+00_JPRB/)  
+KAO( :, 3,11,13) = (/&
+ & 1.8659E+01_JPRB,1.6669E+01_JPRB,1.5627E+01_JPRB,1.4589E+01_JPRB,1.3582E+01_JPRB,1.2037E+01_JPRB,&
+ & 9.8265E+00_JPRB,8.0558E+00_JPRB,9.0157E+00_JPRB/)  
+KAO( :, 4,11,13) = (/&
+ & 1.8822E+01_JPRB,1.6850E+01_JPRB,1.5905E+01_JPRB,1.4936E+01_JPRB,1.3964E+01_JPRB,1.2377E+01_JPRB,&
+ & 1.0203E+01_JPRB,8.8302E+00_JPRB,9.9768E+00_JPRB/)  
+KAO( :, 5,11,13) = (/&
+ & 1.8912E+01_JPRB,1.6973E+01_JPRB,1.6104E+01_JPRB,1.5218E+01_JPRB,1.4312E+01_JPRB,1.2701E+01_JPRB,&
+ & 1.0619E+01_JPRB,9.6452E+00_JPRB,1.0951E+01_JPRB/)  
+KAO( :, 1,12,13) = (/&
+ & 1.7920E+01_JPRB,1.6053E+01_JPRB,1.5019E+01_JPRB,1.3982E+01_JPRB,1.2926E+01_JPRB,1.1508E+01_JPRB,&
+ & 9.3716E+00_JPRB,6.7503E+00_JPRB,6.7740E+00_JPRB/)  
+KAO( :, 2,12,13) = (/&
+ & 1.8186E+01_JPRB,1.6353E+01_JPRB,1.5440E+01_JPRB,1.4490E+01_JPRB,1.3495E+01_JPRB,1.1962E+01_JPRB,&
+ & 9.7745E+00_JPRB,7.3828E+00_JPRB,7.7336E+00_JPRB/)  
+KAO( :, 3,12,13) = (/&
+ & 1.8384E+01_JPRB,1.6588E+01_JPRB,1.5763E+01_JPRB,1.4906E+01_JPRB,1.3939E+01_JPRB,1.2345E+01_JPRB,&
+ & 1.0238E+01_JPRB,8.0656E+00_JPRB,8.6667E+00_JPRB/)  
+KAO( :, 4,12,13) = (/&
+ & 1.8509E+01_JPRB,1.6759E+01_JPRB,1.6033E+01_JPRB,1.5245E+01_JPRB,1.4313E+01_JPRB,1.2752E+01_JPRB,&
+ & 1.0707E+01_JPRB,8.7818E+00_JPRB,9.6176E+00_JPRB/)  
+KAO( :, 5,12,13) = (/&
+ & 1.8577E+01_JPRB,1.6881E+01_JPRB,1.6239E+01_JPRB,1.5529E+01_JPRB,1.4670E+01_JPRB,1.3127E+01_JPRB,&
+ & 1.1210E+01_JPRB,9.5549E+00_JPRB,1.0594E+01_JPRB/)  
+KAO( :, 1,13,13) = (/&
+ & 1.7404E+01_JPRB,1.5741E+01_JPRB,1.4917E+01_JPRB,1.4087E+01_JPRB,1.3107E+01_JPRB,1.1569E+01_JPRB,&
+ & 9.5101E+00_JPRB,6.9448E+00_JPRB,6.4373E+00_JPRB/)  
+KAO( :, 2,13,13) = (/&
+ & 1.7616E+01_JPRB,1.6021E+01_JPRB,1.5315E+01_JPRB,1.4593E+01_JPRB,1.3608E+01_JPRB,1.2031E+01_JPRB,&
+ & 1.0008E+01_JPRB,7.5382E+00_JPRB,7.3336E+00_JPRB/)  
+KAO( :, 3,13,13) = (/&
+ & 1.7758E+01_JPRB,1.6239E+01_JPRB,1.5665E+01_JPRB,1.5009E+01_JPRB,1.4000E+01_JPRB,1.2479E+01_JPRB,&
+ & 1.0559E+01_JPRB,8.1609E+00_JPRB,8.2503E+00_JPRB/)  
+KAO( :, 4,13,13) = (/&
+ & 1.7857E+01_JPRB,1.6408E+01_JPRB,1.5937E+01_JPRB,1.5347E+01_JPRB,1.4396E+01_JPRB,1.2961E+01_JPRB,&
+ & 1.1094E+01_JPRB,8.8199E+00_JPRB,9.1733E+00_JPRB/)  
+KAO( :, 5,13,13) = (/&
+ & 1.7901E+01_JPRB,1.6530E+01_JPRB,1.6155E+01_JPRB,1.5663E+01_JPRB,1.4778E+01_JPRB,1.3417E+01_JPRB,&
+ & 1.1660E+01_JPRB,9.5134E+00_JPRB,1.0096E+01_JPRB/)  
+KAO( :, 1, 1,14) = (/&
+ & 1.8068E+01_JPRB,1.5810E+01_JPRB,1.3551E+01_JPRB,1.1831E+01_JPRB,1.0304E+01_JPRB,9.7990E+00_JPRB,&
+ & 1.1739E+01_JPRB,1.3692E+01_JPRB,1.5004E+01_JPRB/)  
+KAO( :, 2, 1,14) = (/&
+ & 1.7600E+01_JPRB,1.5400E+01_JPRB,1.3200E+01_JPRB,1.1647E+01_JPRB,1.0167E+01_JPRB,1.0174E+01_JPRB,&
+ & 1.2204E+01_JPRB,1.4235E+01_JPRB,1.5608E+01_JPRB/)  
+KAO( :, 3, 1,14) = (/&
+ & 1.7123E+01_JPRB,1.4983E+01_JPRB,1.2843E+01_JPRB,1.1396E+01_JPRB,1.0063E+01_JPRB,1.0510E+01_JPRB,&
+ & 1.2607E+01_JPRB,1.4704E+01_JPRB,1.6115E+01_JPRB/)  
+KAO( :, 4, 1,14) = (/&
+ & 1.6641E+01_JPRB,1.4561E+01_JPRB,1.2481E+01_JPRB,1.1106E+01_JPRB,9.9075E+00_JPRB,1.0883E+01_JPRB,&
+ & 1.3055E+01_JPRB,1.5227E+01_JPRB,1.6651E+01_JPRB/)  
+KAO( :, 5, 1,14) = (/&
+ & 1.6173E+01_JPRB,1.4152E+01_JPRB,1.2130E+01_JPRB,1.0803E+01_JPRB,9.8573E+00_JPRB,1.1271E+01_JPRB,&
+ & 1.3520E+01_JPRB,1.5769E+01_JPRB,1.7251E+01_JPRB/)  
+KAO( :, 1, 2,14) = (/&
+ & 1.8801E+01_JPRB,1.6451E+01_JPRB,1.4101E+01_JPRB,1.2604E+01_JPRB,1.1011E+01_JPRB,1.0737E+01_JPRB,&
+ & 1.2792E+01_JPRB,1.4921E+01_JPRB,1.6625E+01_JPRB/)  
+KAO( :, 2, 2,14) = (/&
+ & 1.8304E+01_JPRB,1.6016E+01_JPRB,1.3728E+01_JPRB,1.2330E+01_JPRB,1.0982E+01_JPRB,1.1096E+01_JPRB,&
+ & 1.3301E+01_JPRB,1.5514E+01_JPRB,1.7306E+01_JPRB/)  
+KAO( :, 3, 2,14) = (/&
+ & 1.7801E+01_JPRB,1.5576E+01_JPRB,1.3356E+01_JPRB,1.2016E+01_JPRB,1.0871E+01_JPRB,1.1458E+01_JPRB,&
+ & 1.3745E+01_JPRB,1.6031E+01_JPRB,1.7874E+01_JPRB/)  
+KAO( :, 4, 2,14) = (/&
+ & 1.7309E+01_JPRB,1.5145E+01_JPRB,1.3007E+01_JPRB,1.1693E+01_JPRB,1.0730E+01_JPRB,1.1860E+01_JPRB,&
+ & 1.4227E+01_JPRB,1.6594E+01_JPRB,1.8476E+01_JPRB/)  
+KAO( :, 5, 2,14) = (/&
+ & 1.6850E+01_JPRB,1.4744E+01_JPRB,1.2687E+01_JPRB,1.1410E+01_JPRB,1.0694E+01_JPRB,1.2279E+01_JPRB,&
+ & 1.4731E+01_JPRB,1.7182E+01_JPRB,1.9118E+01_JPRB/)  
+KAO( :, 1, 3,14) = (/&
+ & 1.9584E+01_JPRB,1.7136E+01_JPRB,1.4732E+01_JPRB,1.3313E+01_JPRB,1.1884E+01_JPRB,1.1593E+01_JPRB,&
+ & 1.3636E+01_JPRB,1.5905E+01_JPRB,1.7983E+01_JPRB/)  
+KAO( :, 2, 3,14) = (/&
+ & 1.9076E+01_JPRB,1.6691E+01_JPRB,1.4400E+01_JPRB,1.2989E+01_JPRB,1.1901E+01_JPRB,1.1927E+01_JPRB,&
+ & 1.4231E+01_JPRB,1.6600E+01_JPRB,1.8761E+01_JPRB/)  
+KAO( :, 3, 3,14) = (/&
+ & 1.8574E+01_JPRB,1.6253E+01_JPRB,1.4065E+01_JPRB,1.2664E+01_JPRB,1.1748E+01_JPRB,1.2312E+01_JPRB,&
+ & 1.4771E+01_JPRB,1.7229E+01_JPRB,1.9465E+01_JPRB/)  
+KAO( :, 4, 3,14) = (/&
+ & 1.8102E+01_JPRB,1.5839E+01_JPRB,1.3744E+01_JPRB,1.2408E+01_JPRB,1.1592E+01_JPRB,1.2780E+01_JPRB,&
+ & 1.5332E+01_JPRB,1.7885E+01_JPRB,2.0196E+01_JPRB/)  
+KAO( :, 5, 3,14) = (/&
+ & 1.7642E+01_JPRB,1.5437E+01_JPRB,1.3436E+01_JPRB,1.2180E+01_JPRB,1.1540E+01_JPRB,1.3243E+01_JPRB,&
+ & 1.5887E+01_JPRB,1.8532E+01_JPRB,2.0924E+01_JPRB/)  
+KAO( :, 1, 4,14) = (/&
+ & 2.0389E+01_JPRB,1.7840E+01_JPRB,1.5486E+01_JPRB,1.3966E+01_JPRB,1.2815E+01_JPRB,1.2346E+01_JPRB,&
+ & 1.4297E+01_JPRB,1.6677E+01_JPRB,1.8970E+01_JPRB/)  
+KAO( :, 2, 4,14) = (/&
+ & 1.9917E+01_JPRB,1.7427E+01_JPRB,1.5179E+01_JPRB,1.3667E+01_JPRB,1.2793E+01_JPRB,1.2684E+01_JPRB,&
+ & 1.5037E+01_JPRB,1.7540E+01_JPRB,1.9955E+01_JPRB/)  
+KAO( :, 3, 4,14) = (/&
+ & 1.9473E+01_JPRB,1.7039E+01_JPRB,1.4867E+01_JPRB,1.3426E+01_JPRB,1.2614E+01_JPRB,1.3089E+01_JPRB,&
+ & 1.5675E+01_JPRB,1.8284E+01_JPRB,2.0800E+01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART9',1,ZHOOK_HANDLE)
+END SUBROUTINE PART9
+
+
+SUBROUTINE PART10
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART10',0,ZHOOK_HANDLE)
+
+
+KAO( :, 4, 4,14) = (/&
+ & 1.9059E+01_JPRB,1.6676E+01_JPRB,1.4584E+01_JPRB,1.3222E+01_JPRB,1.2465E+01_JPRB,1.3596E+01_JPRB,&
+ & 1.6312E+01_JPRB,1.9027E+01_JPRB,2.1639E+01_JPRB/)  
+KAO( :, 5, 4,14) = (/&
+ & 1.8705E+01_JPRB,1.6367E+01_JPRB,1.4344E+01_JPRB,1.3059E+01_JPRB,1.2388E+01_JPRB,1.4128E+01_JPRB,&
+ & 1.6951E+01_JPRB,1.9772E+01_JPRB,2.2482E+01_JPRB/)  
+KAO( :, 1, 5,14) = (/&
+ & 2.1405E+01_JPRB,1.8730E+01_JPRB,1.6310E+01_JPRB,1.4662E+01_JPRB,1.3708E+01_JPRB,1.2986E+01_JPRB,&
+ & 1.4754E+01_JPRB,1.7211E+01_JPRB,1.9632E+01_JPRB/)  
+KAO( :, 2, 5,14) = (/&
+ & 2.1056E+01_JPRB,1.8424E+01_JPRB,1.6104E+01_JPRB,1.4452E+01_JPRB,1.3630E+01_JPRB,1.3357E+01_JPRB,&
+ & 1.5611E+01_JPRB,1.8209E+01_JPRB,2.0772E+01_JPRB/)  
+KAO( :, 3, 5,14) = (/&
+ & 2.0747E+01_JPRB,1.8154E+01_JPRB,1.5912E+01_JPRB,1.4296E+01_JPRB,1.3454E+01_JPRB,1.3757E+01_JPRB,&
+ & 1.6382E+01_JPRB,1.9110E+01_JPRB,2.1795E+01_JPRB/)  
+KAO( :, 4, 5,14) = (/&
+ & 2.0481E+01_JPRB,1.7921E+01_JPRB,1.5733E+01_JPRB,1.4190E+01_JPRB,1.3288E+01_JPRB,1.4283E+01_JPRB,&
+ & 1.7134E+01_JPRB,1.9987E+01_JPRB,2.2797E+01_JPRB/)  
+KAO( :, 5, 5,14) = (/&
+ & 2.0280E+01_JPRB,1.7745E+01_JPRB,1.5569E+01_JPRB,1.4068E+01_JPRB,1.3222E+01_JPRB,1.4895E+01_JPRB,&
+ & 1.7870E+01_JPRB,2.0845E+01_JPRB,2.3770E+01_JPRB/)  
+KAO( :, 1, 6,14) = (/&
+ & 2.2830E+01_JPRB,1.9976E+01_JPRB,1.7445E+01_JPRB,1.5500E+01_JPRB,1.4530E+01_JPRB,1.3547E+01_JPRB,&
+ & 1.4948E+01_JPRB,1.7437E+01_JPRB,1.9911E+01_JPRB/)  
+KAO( :, 2, 6,14) = (/&
+ & 2.2630E+01_JPRB,1.9801E+01_JPRB,1.7366E+01_JPRB,1.5418E+01_JPRB,1.4459E+01_JPRB,1.3928E+01_JPRB,&
+ & 1.5968E+01_JPRB,1.8628E+01_JPRB,2.1268E+01_JPRB/)  
+KAO( :, 3, 6,14) = (/&
+ & 2.2482E+01_JPRB,1.9672E+01_JPRB,1.7308E+01_JPRB,1.5393E+01_JPRB,1.4260E+01_JPRB,1.4337E+01_JPRB,&
+ & 1.6867E+01_JPRB,1.9676E+01_JPRB,2.2466E+01_JPRB/)  
+KAO( :, 4, 6,14) = (/&
+ & 2.2407E+01_JPRB,1.9606E+01_JPRB,1.7216E+01_JPRB,1.5390E+01_JPRB,1.4119E+01_JPRB,1.4843E+01_JPRB,&
+ & 1.7739E+01_JPRB,2.0693E+01_JPRB,2.3625E+01_JPRB/)  
+KAO( :, 5, 6,14) = (/&
+ & 2.2367E+01_JPRB,1.9571E+01_JPRB,1.7137E+01_JPRB,1.5329E+01_JPRB,1.4055E+01_JPRB,1.5517E+01_JPRB,&
+ & 1.8617E+01_JPRB,2.1718E+01_JPRB,2.4792E+01_JPRB/)  
+KAO( :, 1, 7,14) = (/&
+ & 2.4592E+01_JPRB,2.1518E+01_JPRB,1.8856E+01_JPRB,1.6609E+01_JPRB,1.5320E+01_JPRB,1.4052E+01_JPRB,&
+ & 1.5041E+01_JPRB,1.7546E+01_JPRB,2.0045E+01_JPRB/)  
+KAO( :, 2, 7,14) = (/&
+ & 2.4606E+01_JPRB,2.1531E+01_JPRB,1.8929E+01_JPRB,1.6667E+01_JPRB,1.5279E+01_JPRB,1.4417E+01_JPRB,&
+ & 1.6211E+01_JPRB,1.8911E+01_JPRB,2.1602E+01_JPRB/)  
+KAO( :, 3, 7,14) = (/&
+ & 2.4628E+01_JPRB,2.1549E+01_JPRB,1.8928E+01_JPRB,1.6801E+01_JPRB,1.5124E+01_JPRB,1.4851E+01_JPRB,&
+ & 1.7257E+01_JPRB,2.0131E+01_JPRB,2.2994E+01_JPRB/)  
+KAO( :, 4, 7,14) = (/&
+ & 2.4701E+01_JPRB,2.1614E+01_JPRB,1.8944E+01_JPRB,1.6872E+01_JPRB,1.5057E+01_JPRB,1.5367E+01_JPRB,&
+ & 1.8273E+01_JPRB,2.1316E+01_JPRB,2.4350E+01_JPRB/)  
+KAO( :, 5, 7,14) = (/&
+ & 2.4745E+01_JPRB,2.1652E+01_JPRB,1.8953E+01_JPRB,1.6836E+01_JPRB,1.5058E+01_JPRB,1.6097E+01_JPRB,&
+ & 1.9310E+01_JPRB,2.2526E+01_JPRB,2.5728E+01_JPRB/)  
+KAO( :, 1, 8,14) = (/&
+ & 2.6722E+01_JPRB,2.3382E+01_JPRB,2.0515E+01_JPRB,1.7956E+01_JPRB,1.6236E+01_JPRB,1.4458E+01_JPRB,&
+ & 1.5041E+01_JPRB,1.7547E+01_JPRB,2.0050E+01_JPRB/)  
+KAO( :, 2, 8,14) = (/&
+ & 2.6899E+01_JPRB,2.3537E+01_JPRB,2.0679E+01_JPRB,1.8189E+01_JPRB,1.6278E+01_JPRB,1.4827E+01_JPRB,&
+ & 1.6369E+01_JPRB,1.9095E+01_JPRB,2.1820E+01_JPRB/)  
+KAO( :, 3, 8,14) = (/&
+ & 2.7094E+01_JPRB,2.3707E+01_JPRB,2.0816E+01_JPRB,1.8418E+01_JPRB,1.6222E+01_JPRB,1.5309E+01_JPRB,&
+ & 1.7578E+01_JPRB,2.0506E+01_JPRB,2.3432E+01_JPRB/)  
+KAO( :, 4, 8,14) = (/&
+ & 2.7179E+01_JPRB,2.3782E+01_JPRB,2.0862E+01_JPRB,1.8540E+01_JPRB,1.6231E+01_JPRB,1.5886E+01_JPRB,&
+ & 1.8721E+01_JPRB,2.1839E+01_JPRB,2.4952E+01_JPRB/)  
+KAO( :, 5, 8,14) = (/&
+ & 2.7158E+01_JPRB,2.3764E+01_JPRB,2.0818E+01_JPRB,1.8502E+01_JPRB,1.6332E+01_JPRB,1.6675E+01_JPRB,&
+ & 1.9896E+01_JPRB,2.3208E+01_JPRB,2.6519E+01_JPRB/)  
+KAO( :, 1, 9,14) = (/&
+ & 2.9121E+01_JPRB,2.5481E+01_JPRB,2.2378E+01_JPRB,1.9520E+01_JPRB,1.7350E+01_JPRB,1.4884E+01_JPRB,&
+ & 1.4926E+01_JPRB,1.7361E+01_JPRB,1.9841E+01_JPRB/)  
+KAO( :, 2, 9,14) = (/&
+ & 2.9461E+01_JPRB,2.5779E+01_JPRB,2.2643E+01_JPRB,1.9924E+01_JPRB,1.7494E+01_JPRB,1.5326E+01_JPRB,&
+ & 1.6362E+01_JPRB,1.9088E+01_JPRB,2.1811E+01_JPRB/)  
+KAO( :, 3, 9,14) = (/&
+ & 2.9610E+01_JPRB,2.5909E+01_JPRB,2.2771E+01_JPRB,2.0181E+01_JPRB,1.7582E+01_JPRB,1.5909E+01_JPRB,&
+ & 1.7732E+01_JPRB,2.0686E+01_JPRB,2.3639E+01_JPRB/)  
+KAO( :, 4, 9,14) = (/&
+ & 2.9659E+01_JPRB,2.5951E+01_JPRB,2.2782E+01_JPRB,2.0281E+01_JPRB,1.7675E+01_JPRB,1.6616E+01_JPRB,&
+ & 1.9018E+01_JPRB,2.2187E+01_JPRB,2.5355E+01_JPRB/)  
+KAO( :, 5, 9,14) = (/&
+ & 2.9568E+01_JPRB,2.5872E+01_JPRB,2.2719E+01_JPRB,2.0302E+01_JPRB,1.7861E+01_JPRB,1.7429E+01_JPRB,&
+ & 2.0313E+01_JPRB,2.3697E+01_JPRB,2.7083E+01_JPRB/)  
+KAO( :, 1,10,14) = (/&
+ & 3.1663E+01_JPRB,2.7706E+01_JPRB,2.4344E+01_JPRB,2.1280E+01_JPRB,1.8643E+01_JPRB,1.5678E+01_JPRB,&
+ & 1.4935E+01_JPRB,1.7101E+01_JPRB,1.9544E+01_JPRB/)  
+KAO( :, 2,10,14) = (/&
+ & 3.1965E+01_JPRB,2.7969E+01_JPRB,2.4607E+01_JPRB,2.1722E+01_JPRB,1.8925E+01_JPRB,1.6156E+01_JPRB,&
+ & 1.6364E+01_JPRB,1.9004E+01_JPRB,2.1720E+01_JPRB/)  
+KAO( :, 3,10,14) = (/&
+ & 3.2079E+01_JPRB,2.8070E+01_JPRB,2.4675E+01_JPRB,2.1979E+01_JPRB,1.9142E+01_JPRB,1.6843E+01_JPRB,&
+ & 1.7782E+01_JPRB,2.0734E+01_JPRB,2.3694E+01_JPRB/)  
+KAO( :, 4,10,14) = (/&
+ & 3.2076E+01_JPRB,2.8066E+01_JPRB,2.4720E+01_JPRB,2.2134E+01_JPRB,1.9355E+01_JPRB,1.7612E+01_JPRB,&
+ & 1.9151E+01_JPRB,2.2342E+01_JPRB,2.5534E+01_JPRB/)  
+KAO( :, 5,10,14) = (/&
+ & 3.2013E+01_JPRB,2.8013E+01_JPRB,2.4760E+01_JPRB,2.2247E+01_JPRB,1.9618E+01_JPRB,1.8439E+01_JPRB,&
+ & 2.0533E+01_JPRB,2.3954E+01_JPRB,2.7375E+01_JPRB/)  
+KAO( :, 1,11,14) = (/&
+ & 3.4213E+01_JPRB,2.9936E+01_JPRB,2.6354E+01_JPRB,2.3259E+01_JPRB,2.0227E+01_JPRB,1.7029E+01_JPRB,&
+ & 1.5715E+01_JPRB,1.7610E+01_JPRB,2.0126E+01_JPRB/)  
+KAO( :, 2,11,14) = (/&
+ & 3.4370E+01_JPRB,3.0074E+01_JPRB,2.6508E+01_JPRB,2.3642E+01_JPRB,2.0586E+01_JPRB,1.7628E+01_JPRB,&
+ & 1.7120E+01_JPRB,1.9500E+01_JPRB,2.2284E+01_JPRB/)  
+KAO( :, 3,11,14) = (/&
+ & 3.4467E+01_JPRB,3.0174E+01_JPRB,2.6677E+01_JPRB,2.3905E+01_JPRB,2.0930E+01_JPRB,1.8395E+01_JPRB,&
+ & 1.8472E+01_JPRB,2.1240E+01_JPRB,2.4275E+01_JPRB/)  
+KAO( :, 4,11,14) = (/&
+ & 3.4474E+01_JPRB,3.0204E+01_JPRB,2.6823E+01_JPRB,2.4177E+01_JPRB,2.1309E+01_JPRB,1.9245E+01_JPRB,&
+ & 1.9858E+01_JPRB,2.2983E+01_JPRB,2.6259E+01_JPRB/)  
+KAO( :, 5,11,14) = (/&
+ & 3.4438E+01_JPRB,3.0209E+01_JPRB,2.6964E+01_JPRB,2.4440E+01_JPRB,2.1741E+01_JPRB,2.0132E+01_JPRB,&
+ & 2.1286E+01_JPRB,2.4694E+01_JPRB,2.8209E+01_JPRB/)  
+KAO( :, 1,12,14) = (/&
+ & 3.6462E+01_JPRB,3.1921E+01_JPRB,2.8185E+01_JPRB,2.5122E+01_JPRB,2.1872E+01_JPRB,1.8703E+01_JPRB,&
+ & 1.6650E+01_JPRB,1.7829E+01_JPRB,2.0376E+01_JPRB/)  
+KAO( :, 2,12,14) = (/&
+ & 3.6640E+01_JPRB,3.2114E+01_JPRB,2.8470E+01_JPRB,2.5545E+01_JPRB,2.2388E+01_JPRB,1.9455E+01_JPRB,&
+ & 1.8025E+01_JPRB,1.9728E+01_JPRB,2.2541E+01_JPRB/)  
+KAO( :, 3,12,14) = (/&
+ & 3.6727E+01_JPRB,3.2238E+01_JPRB,2.8745E+01_JPRB,2.5954E+01_JPRB,2.2942E+01_JPRB,2.0299E+01_JPRB,&
+ & 1.9338E+01_JPRB,2.1588E+01_JPRB,2.4664E+01_JPRB/)  
+KAO( :, 4,12,14) = (/&
+ & 3.6769E+01_JPRB,3.2319E+01_JPRB,2.8973E+01_JPRB,2.6373E+01_JPRB,2.3500E+01_JPRB,2.1128E+01_JPRB,&
+ & 2.0696E+01_JPRB,2.3398E+01_JPRB,2.6730E+01_JPRB/)  
+KAO( :, 5,12,14) = (/&
+ & 3.6803E+01_JPRB,3.2384E+01_JPRB,2.9220E+01_JPRB,2.6759E+01_JPRB,2.4088E+01_JPRB,2.2049E+01_JPRB,&
+ & 2.2111E+01_JPRB,2.5193E+01_JPRB,2.8777E+01_JPRB/)  
+KAO( :, 1,13,14) = (/&
+ & 3.8467E+01_JPRB,3.3764E+01_JPRB,3.0006E+01_JPRB,2.6925E+01_JPRB,2.3614E+01_JPRB,2.0501E+01_JPRB,&
+ & 1.7640E+01_JPRB,1.7695E+01_JPRB,2.0215E+01_JPRB/)  
+KAO( :, 2,13,14) = (/&
+ & 3.8636E+01_JPRB,3.3983E+01_JPRB,3.0407E+01_JPRB,2.7476E+01_JPRB,2.4350E+01_JPRB,2.1406E+01_JPRB,&
+ & 1.8958E+01_JPRB,1.9690E+01_JPRB,2.2491E+01_JPRB/)  
+KAO( :, 3,13,14) = (/&
+ & 3.8793E+01_JPRB,3.4176E+01_JPRB,3.0759E+01_JPRB,2.8040E+01_JPRB,2.5106E+01_JPRB,2.2301E+01_JPRB,&
+ & 2.0233E+01_JPRB,2.1614E+01_JPRB,2.4689E+01_JPRB/)  
+KAO( :, 4,13,14) = (/&
+ & 3.8901E+01_JPRB,3.4320E+01_JPRB,3.1137E+01_JPRB,2.8555E+01_JPRB,2.5821E+01_JPRB,2.3168E+01_JPRB,&
+ & 2.1608E+01_JPRB,2.3543E+01_JPRB,2.6893E+01_JPRB/)  
+KAO( :, 5,13,14) = (/&
+ & 3.8995E+01_JPRB,3.4448E+01_JPRB,3.1494E+01_JPRB,2.9062E+01_JPRB,2.6523E+01_JPRB,2.4144E+01_JPRB,&
+ & 2.3025E+01_JPRB,2.5501E+01_JPRB,2.9129E+01_JPRB/)  
+KAO( :, 1, 1,15) = (/&
+ & 2.2665E+01_JPRB,1.9832E+01_JPRB,1.6999E+01_JPRB,1.4166E+01_JPRB,1.3383E+01_JPRB,1.5987E+01_JPRB,&
+ & 1.9182E+01_JPRB,2.2378E+01_JPRB,2.4474E+01_JPRB/)  
+KAO( :, 2, 1,15) = (/&
+ & 2.1844E+01_JPRB,1.9113E+01_JPRB,1.6383E+01_JPRB,1.3666E+01_JPRB,1.3442E+01_JPRB,1.6440E+01_JPRB,&
+ & 1.9723E+01_JPRB,2.3008E+01_JPRB,2.5060E+01_JPRB/)  
+KAO( :, 3, 1,15) = (/&
+ & 2.1030E+01_JPRB,1.8401E+01_JPRB,1.5773E+01_JPRB,1.3277E+01_JPRB,1.3532E+01_JPRB,1.6873E+01_JPRB,&
+ & 2.0241E+01_JPRB,2.3609E+01_JPRB,2.5652E+01_JPRB/)  
+KAO( :, 4, 1,15) = (/&
+ & 2.0230E+01_JPRB,1.7702E+01_JPRB,1.5173E+01_JPRB,1.2884E+01_JPRB,1.3829E+01_JPRB,1.7277E+01_JPRB,&
+ & 2.0725E+01_JPRB,2.4172E+01_JPRB,2.6214E+01_JPRB/)  
+KAO( :, 5, 1,15) = (/&
+ & 1.9446E+01_JPRB,1.7016E+01_JPRB,1.4585E+01_JPRB,1.2542E+01_JPRB,1.4133E+01_JPRB,1.7655E+01_JPRB,&
+ & 2.1178E+01_JPRB,2.4699E+01_JPRB,2.6742E+01_JPRB/)  
+KAO( :, 1, 2,15) = (/&
+ & 2.4301E+01_JPRB,2.1263E+01_JPRB,1.8226E+01_JPRB,1.5270E+01_JPRB,1.4740E+01_JPRB,1.7631E+01_JPRB,&
+ & 2.1154E+01_JPRB,2.4675E+01_JPRB,2.7320E+01_JPRB/)  
+KAO( :, 2, 2,15) = (/&
+ & 2.3371E+01_JPRB,2.0449E+01_JPRB,1.7528E+01_JPRB,1.4826E+01_JPRB,1.4773E+01_JPRB,1.8276E+01_JPRB,&
+ & 2.1927E+01_JPRB,2.5577E+01_JPRB,2.8254E+01_JPRB/)  
+KAO( :, 3, 2,15) = (/&
+ & 2.2456E+01_JPRB,1.9650E+01_JPRB,1.6843E+01_JPRB,1.4407E+01_JPRB,1.5106E+01_JPRB,1.8875E+01_JPRB,&
+ & 2.2644E+01_JPRB,2.6416E+01_JPRB,2.9163E+01_JPRB/)  
+KAO( :, 4, 2,15) = (/&
+ & 2.1563E+01_JPRB,1.8868E+01_JPRB,1.6173E+01_JPRB,1.4036E+01_JPRB,1.5558E+01_JPRB,1.9438E+01_JPRB,&
+ & 2.3319E+01_JPRB,2.7202E+01_JPRB,2.9991E+01_JPRB/)  
+KAO( :, 5, 2,15) = (/&
+ & 2.0691E+01_JPRB,1.8105E+01_JPRB,1.5519E+01_JPRB,1.3694E+01_JPRB,1.5968E+01_JPRB,1.9949E+01_JPRB,&
+ & 2.3930E+01_JPRB,2.7910E+01_JPRB,3.0755E+01_JPRB/)  
+KAO( :, 1, 3,15) = (/&
+ & 2.6150E+01_JPRB,2.2881E+01_JPRB,1.9612E+01_JPRB,1.6625E+01_JPRB,1.6080E+01_JPRB,1.9323E+01_JPRB,&
+ & 2.3184E+01_JPRB,2.7047E+01_JPRB,3.0423E+01_JPRB/)  
+KAO( :, 2, 3,15) = (/&
+ & 2.5095E+01_JPRB,2.1958E+01_JPRB,1.8821E+01_JPRB,1.6149E+01_JPRB,1.6204E+01_JPRB,2.0181E+01_JPRB,&
+ & 2.4213E+01_JPRB,2.8246E+01_JPRB,3.1757E+01_JPRB/)  
+KAO( :, 3, 3,15) = (/&
+ & 2.4070E+01_JPRB,2.1061E+01_JPRB,1.8052E+01_JPRB,1.5726E+01_JPRB,1.6789E+01_JPRB,2.0979E+01_JPRB,&
+ & 2.5169E+01_JPRB,2.9357E+01_JPRB,3.2991E+01_JPRB/)  
+KAO( :, 4, 3,15) = (/&
+ & 2.3070E+01_JPRB,2.0187E+01_JPRB,1.7303E+01_JPRB,1.5335E+01_JPRB,1.7368E+01_JPRB,2.1701E+01_JPRB,&
+ & 2.6034E+01_JPRB,3.0366E+01_JPRB,3.4124E+01_JPRB/)  
+KAO( :, 5, 3,15) = (/&
+ & 2.2104E+01_JPRB,1.9341E+01_JPRB,1.6579E+01_JPRB,1.4961E+01_JPRB,1.7892E+01_JPRB,2.2355E+01_JPRB,&
+ & 2.6817E+01_JPRB,3.1278E+01_JPRB,3.5133E+01_JPRB/)  
+KAO( :, 1, 4,15) = (/&
+ & 2.8084E+01_JPRB,2.4574E+01_JPRB,2.1063E+01_JPRB,1.8074E+01_JPRB,1.7393E+01_JPRB,2.1136E+01_JPRB,&
+ & 2.5360E+01_JPRB,2.9584E+01_JPRB,3.3561E+01_JPRB/)  
+KAO( :, 2, 4,15) = (/&
+ & 2.6902E+01_JPRB,2.3539E+01_JPRB,2.0176E+01_JPRB,1.7575E+01_JPRB,1.7767E+01_JPRB,2.2202E+01_JPRB,&
+ & 2.6641E+01_JPRB,3.1076E+01_JPRB,3.5240E+01_JPRB/)  
+KAO( :, 3, 4,15) = (/&
+ & 2.5761E+01_JPRB,2.2541E+01_JPRB,1.9321E+01_JPRB,1.7116E+01_JPRB,1.8559E+01_JPRB,2.3193E+01_JPRB,&
+ & 2.7826E+01_JPRB,3.2458E+01_JPRB,3.6803E+01_JPRB/)  
+KAO( :, 4, 4,15) = (/&
+ & 2.4660E+01_JPRB,2.1578E+01_JPRB,1.8496E+01_JPRB,1.6679E+01_JPRB,1.9285E+01_JPRB,2.4099E+01_JPRB,&
+ & 2.8913E+01_JPRB,3.3725E+01_JPRB,3.8229E+01_JPRB/)  
+KAO( :, 5, 4,15) = (/&
+ & 2.3603E+01_JPRB,2.0653E+01_JPRB,1.7702E+01_JPRB,1.6251E+01_JPRB,1.9930E+01_JPRB,2.4904E+01_JPRB,&
+ & 2.9878E+01_JPRB,3.4850E+01_JPRB,3.9510E+01_JPRB/)  
+KAO( :, 1, 5,15) = (/&
+ & 3.0121E+01_JPRB,2.6356E+01_JPRB,2.2591E+01_JPRB,1.9572E+01_JPRB,1.8803E+01_JPRB,2.3068E+01_JPRB,&
+ & 2.7679E+01_JPRB,3.2291E+01_JPRB,3.6764E+01_JPRB/)  
+KAO( :, 2, 5,15) = (/&
+ & 2.8817E+01_JPRB,2.5215E+01_JPRB,2.1613E+01_JPRB,1.9016E+01_JPRB,1.9519E+01_JPRB,2.4395E+01_JPRB,&
+ & 2.9271E+01_JPRB,3.4145E+01_JPRB,3.8882E+01_JPRB/)  
+KAO( :, 3, 5,15) = (/&
+ & 2.7566E+01_JPRB,2.4120E+01_JPRB,2.0674E+01_JPRB,1.8500E+01_JPRB,2.0501E+01_JPRB,2.5621E+01_JPRB,&
+ & 3.0741E+01_JPRB,3.5860E+01_JPRB,4.0822E+01_JPRB/)  
+KAO( :, 4, 5,15) = (/&
+ & 2.6363E+01_JPRB,2.3068E+01_JPRB,1.9789E+01_JPRB,1.8007E+01_JPRB,2.1387E+01_JPRB,2.6727E+01_JPRB,&
+ & 3.2067E+01_JPRB,3.7405E+01_JPRB,4.2586E+01_JPRB/)  
+KAO( :, 5, 5,15) = (/&
+ & 2.5212E+01_JPRB,2.2061E+01_JPRB,1.9051E+01_JPRB,1.7643E+01_JPRB,2.2182E+01_JPRB,2.7719E+01_JPRB,&
+ & 3.3256E+01_JPRB,3.8795E+01_JPRB,4.4162E+01_JPRB/)  
+KAO( :, 1, 6,15) = (/&
+ & 3.2321E+01_JPRB,2.8281E+01_JPRB,2.4241E+01_JPRB,2.1098E+01_JPRB,2.0339E+01_JPRB,2.4932E+01_JPRB,&
+ & 2.9917E+01_JPRB,3.4901E+01_JPRB,3.9811E+01_JPRB/)  
+KAO( :, 2, 6,15) = (/&
+ & 3.0886E+01_JPRB,2.7025E+01_JPRB,2.3164E+01_JPRB,2.0488E+01_JPRB,2.1264E+01_JPRB,2.6574E+01_JPRB,&
+ & 3.1885E+01_JPRB,3.7195E+01_JPRB,4.2430E+01_JPRB/)  
+KAO( :, 3, 6,15) = (/&
+ & 2.9511E+01_JPRB,2.5822E+01_JPRB,2.2177E+01_JPRB,1.9914E+01_JPRB,2.2458E+01_JPRB,2.8068E+01_JPRB,&
+ & 3.3678E+01_JPRB,3.9285E+01_JPRB,4.4801E+01_JPRB/)  
+KAO( :, 4, 6,15) = (/&
+ & 2.8199E+01_JPRB,2.4674E+01_JPRB,2.1349E+01_JPRB,1.9431E+01_JPRB,2.3532E+01_JPRB,2.9409E+01_JPRB,&
+ & 3.5286E+01_JPRB,4.1160E+01_JPRB,4.6949E+01_JPRB/)  
+KAO( :, 5, 6,15) = (/&
+ & 2.6942E+01_JPRB,2.3574E+01_JPRB,2.0489E+01_JPRB,1.9227E+01_JPRB,2.4487E+01_JPRB,3.0601E+01_JPRB,&
+ & 3.6715E+01_JPRB,4.2828E+01_JPRB,4.8844E+01_JPRB/)  
+KAO( :, 1, 7,15) = (/&
+ & 3.4610E+01_JPRB,3.0284E+01_JPRB,2.5957E+01_JPRB,2.2686E+01_JPRB,2.1900E+01_JPRB,2.6660E+01_JPRB,&
+ & 3.1990E+01_JPRB,3.7320E+01_JPRB,4.2613E+01_JPRB/)  
+KAO( :, 2, 7,15) = (/&
+ & 3.3032E+01_JPRB,2.8903E+01_JPRB,2.4823E+01_JPRB,2.1999E+01_JPRB,2.2959E+01_JPRB,2.8635E+01_JPRB,&
+ & 3.4359E+01_JPRB,4.0081E+01_JPRB,4.5761E+01_JPRB/)  
+KAO( :, 3, 7,15) = (/&
+ & 3.1543E+01_JPRB,2.7600E+01_JPRB,2.3940E+01_JPRB,2.1366E+01_JPRB,2.4341E+01_JPRB,3.0423E+01_JPRB,&
+ & 3.6504E+01_JPRB,4.2582E+01_JPRB,4.8628E+01_JPRB/)  
+KAO( :, 4, 7,15) = (/&
+ & 3.0190E+01_JPRB,2.6416E+01_JPRB,2.3001E+01_JPRB,2.1013E+01_JPRB,2.5623E+01_JPRB,3.2024E+01_JPRB,&
+ & 3.8424E+01_JPRB,4.4822E+01_JPRB,5.1169E+01_JPRB/)  
+KAO( :, 5, 7,15) = (/&
+ & 2.9167E+01_JPRB,2.5521E+01_JPRB,2.2165E+01_JPRB,2.1088E+01_JPRB,2.6745E+01_JPRB,3.3425E+01_JPRB,&
+ & 4.0104E+01_JPRB,4.6781E+01_JPRB,5.3415E+01_JPRB/)  
+KAO( :, 1, 8,15) = (/&
+ & 3.7034E+01_JPRB,3.2405E+01_JPRB,2.7803E+01_JPRB,2.4330E+01_JPRB,2.3433E+01_JPRB,2.8325E+01_JPRB,&
+ & 3.3988E+01_JPRB,3.9652E+01_JPRB,4.5298E+01_JPRB/)  
+KAO( :, 2, 8,15) = (/&
+ & 3.5387E+01_JPRB,3.0964E+01_JPRB,2.6815E+01_JPRB,2.3568E+01_JPRB,2.4642E+01_JPRB,3.0668E+01_JPRB,&
+ & 3.6800E+01_JPRB,4.2932E+01_JPRB,4.9043E+01_JPRB/)  
+KAO( :, 3, 8,15) = (/&
+ & 3.3957E+01_JPRB,2.9713E+01_JPRB,2.5844E+01_JPRB,2.3027E+01_JPRB,2.6228E+01_JPRB,3.2782E+01_JPRB,&
+ & 3.9335E+01_JPRB,4.5888E+01_JPRB,5.2425E+01_JPRB/)  
+KAO( :, 4, 8,15) = (/&
+ & 3.2996E+01_JPRB,2.8872E+01_JPRB,2.5090E+01_JPRB,2.2964E+01_JPRB,2.7731E+01_JPRB,3.4659E+01_JPRB,&
+ & 4.1586E+01_JPRB,4.8516E+01_JPRB,5.5417E+01_JPRB/)  
+KAO( :, 5, 8,15) = (/&
+ & 3.2468E+01_JPRB,2.8410E+01_JPRB,2.4743E+01_JPRB,2.3402E+01_JPRB,2.9047E+01_JPRB,3.6303E+01_JPRB,&
+ & 4.3558E+01_JPRB,5.0811E+01_JPRB,5.8046E+01_JPRB/)  
+KAO( :, 1, 9,15) = (/&
+ & 3.9783E+01_JPRB,3.4811E+01_JPRB,2.9994E+01_JPRB,2.6093E+01_JPRB,2.4971E+01_JPRB,2.9758E+01_JPRB,&
+ & 3.5708E+01_JPRB,4.1658E+01_JPRB,4.7610E+01_JPRB/)  
+KAO( :, 2, 9,15) = (/&
+ & 3.8247E+01_JPRB,3.3466E+01_JPRB,2.9067E+01_JPRB,2.5305E+01_JPRB,2.6362E+01_JPRB,3.2520E+01_JPRB,&
+ & 3.9021E+01_JPRB,4.5520E+01_JPRB,5.2017E+01_JPRB/)  
+KAO( :, 3, 9,15) = (/&
+ & 3.7366E+01_JPRB,3.2696E+01_JPRB,2.8422E+01_JPRB,2.5157E+01_JPRB,2.8053E+01_JPRB,3.4990E+01_JPRB,&
+ & 4.1984E+01_JPRB,4.8979E+01_JPRB,5.5970E+01_JPRB/)  
+KAO( :, 4, 9,15) = (/&
+ & 3.6951E+01_JPRB,3.2332E+01_JPRB,2.8166E+01_JPRB,2.5574E+01_JPRB,2.9746E+01_JPRB,3.7179E+01_JPRB,&
+ & 4.4610E+01_JPRB,5.2042E+01_JPRB,5.9480E+01_JPRB/)  
+KAO( :, 5, 9,15) = (/&
+ & 3.6807E+01_JPRB,3.2206E+01_JPRB,2.8238E+01_JPRB,2.6320E+01_JPRB,3.1345E+01_JPRB,3.9177E+01_JPRB,&
+ & 4.7007E+01_JPRB,5.4838E+01_JPRB,6.2666E+01_JPRB/)  
+KAO( :, 1,10,15) = (/&
+ & 4.3060E+01_JPRB,3.7677E+01_JPRB,3.2562E+01_JPRB,2.8079E+01_JPRB,2.6750E+01_JPRB,3.1106E+01_JPRB,&
+ & 3.7325E+01_JPRB,4.3543E+01_JPRB,4.9762E+01_JPRB/)  
+KAO( :, 2,10,15) = (/&
+ & 4.2169E+01_JPRB,3.6897E+01_JPRB,3.2071E+01_JPRB,2.7706E+01_JPRB,2.8300E+01_JPRB,3.4266E+01_JPRB,&
+ & 4.1118E+01_JPRB,4.7968E+01_JPRB,5.4829E+01_JPRB/)  
+KAO( :, 3,10,15) = (/&
+ & 4.1907E+01_JPRB,3.6669E+01_JPRB,3.1957E+01_JPRB,2.8123E+01_JPRB,3.0151E+01_JPRB,3.7151E+01_JPRB,&
+ & 4.4578E+01_JPRB,5.2003E+01_JPRB,5.9438E+01_JPRB/)  
+KAO( :, 4,10,15) = (/&
+ & 4.1908E+01_JPRB,3.6670E+01_JPRB,3.2098E+01_JPRB,2.8899E+01_JPRB,3.2061E+01_JPRB,3.9810E+01_JPRB,&
+ & 4.7769E+01_JPRB,5.5728E+01_JPRB,6.3685E+01_JPRB/)  
+KAO( :, 5,10,15) = (/&
+ & 4.2172E+01_JPRB,3.6900E+01_JPRB,3.2471E+01_JPRB,2.9889E+01_JPRB,3.3921E+01_JPRB,4.2203E+01_JPRB,&
+ & 5.0640E+01_JPRB,5.9081E+01_JPRB,6.7523E+01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART10',1,ZHOOK_HANDLE)
+END SUBROUTINE PART10
+
+
+SUBROUTINE PART11
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART11',0,ZHOOK_HANDLE)
+
+
+KAO( :, 1,11,15) = (/&
+ & 4.7323E+01_JPRB,4.1408E+01_JPRB,3.5997E+01_JPRB,3.0832E+01_JPRB,2.9578E+01_JPRB,3.3795E+01_JPRB,&
+ & 4.0553E+01_JPRB,4.7310E+01_JPRB,5.4070E+01_JPRB/)  
+KAO( :, 2,11,15) = (/&
+ & 4.7418E+01_JPRB,4.1491E+01_JPRB,3.6200E+01_JPRB,3.1353E+01_JPRB,3.1571E+01_JPRB,3.7371E+01_JPRB,&
+ & 4.4844E+01_JPRB,5.2315E+01_JPRB,5.9798E+01_JPRB/)  
+KAO( :, 3,11,15) = (/&
+ & 4.7687E+01_JPRB,4.1726E+01_JPRB,3.6545E+01_JPRB,3.2311E+01_JPRB,3.3701E+01_JPRB,4.0657E+01_JPRB,&
+ & 4.8786E+01_JPRB,5.6913E+01_JPRB,6.5046E+01_JPRB/)  
+KAO( :, 4,11,15) = (/&
+ & 4.8161E+01_JPRB,4.2141E+01_JPRB,3.7083E+01_JPRB,3.3405E+01_JPRB,3.5837E+01_JPRB,4.3612E+01_JPRB,&
+ & 5.2330E+01_JPRB,6.1049E+01_JPRB,6.9766E+01_JPRB/)  
+KAO( :, 5,11,15) = (/&
+ & 4.8813E+01_JPRB,4.2712E+01_JPRB,3.7729E+01_JPRB,3.4639E+01_JPRB,3.7893E+01_JPRB,4.6304E+01_JPRB,&
+ & 5.5561E+01_JPRB,6.4817E+01_JPRB,7.4079E+01_JPRB/)  
+KAO( :, 1,12,15) = (/&
+ & 5.3537E+01_JPRB,4.6845E+01_JPRB,4.0868E+01_JPRB,3.5074E+01_JPRB,3.3315E+01_JPRB,3.6716E+01_JPRB,&
+ & 4.3952E+01_JPRB,5.1273E+01_JPRB,5.8607E+01_JPRB/)  
+KAO( :, 2,12,15) = (/&
+ & 5.4108E+01_JPRB,4.7344E+01_JPRB,4.1453E+01_JPRB,3.6183E+01_JPRB,3.5626E+01_JPRB,4.0597E+01_JPRB,&
+ & 4.8705E+01_JPRB,5.6822E+01_JPRB,6.4945E+01_JPRB/)  
+KAO( :, 3,12,15) = (/&
+ & 5.4788E+01_JPRB,4.7940E+01_JPRB,4.2158E+01_JPRB,3.7480E+01_JPRB,3.7956E+01_JPRB,4.4233E+01_JPRB,&
+ & 5.3076E+01_JPRB,6.1921E+01_JPRB,7.0769E+01_JPRB/)  
+KAO( :, 4,12,15) = (/&
+ & 5.5656E+01_JPRB,4.8699E+01_JPRB,4.2978E+01_JPRB,3.8824E+01_JPRB,4.0296E+01_JPRB,4.7573E+01_JPRB,&
+ & 5.7085E+01_JPRB,6.6598E+01_JPRB,7.6119E+01_JPRB/)  
+KAO( :, 5,12,15) = (/&
+ & 5.6545E+01_JPRB,4.9477E+01_JPRB,4.3802E+01_JPRB,4.0209E+01_JPRB,4.2495E+01_JPRB,5.0548E+01_JPRB,&
+ & 6.0654E+01_JPRB,7.0757E+01_JPRB,8.0864E+01_JPRB/)  
+KAO( :, 1,13,15) = (/&
+ & 6.1085E+01_JPRB,5.3449E+01_JPRB,4.6803E+01_JPRB,4.0529E+01_JPRB,3.7896E+01_JPRB,4.0194E+01_JPRB,&
+ & 4.7752E+01_JPRB,5.5708E+01_JPRB,6.3666E+01_JPRB/)  
+KAO( :, 2,13,15) = (/&
+ & 6.2117E+01_JPRB,5.4352E+01_JPRB,4.7746E+01_JPRB,4.2003E+01_JPRB,4.0420E+01_JPRB,4.4278E+01_JPRB,&
+ & 5.2905E+01_JPRB,6.1722E+01_JPRB,7.0545E+01_JPRB/)  
+KAO( :, 3,13,15) = (/&
+ & 6.3149E+01_JPRB,5.5256E+01_JPRB,4.8730E+01_JPRB,4.3496E+01_JPRB,4.2927E+01_JPRB,4.8152E+01_JPRB,&
+ & 5.7673E+01_JPRB,6.7281E+01_JPRB,7.6896E+01_JPRB/)  
+KAO( :, 4,13,15) = (/&
+ & 6.4233E+01_JPRB,5.6204E+01_JPRB,4.9701E+01_JPRB,4.5014E+01_JPRB,4.5352E+01_JPRB,5.1670E+01_JPRB,&
+ & 6.1941E+01_JPRB,7.2260E+01_JPRB,8.2578E+01_JPRB/)  
+KAO( :, 5,13,15) = (/&
+ & 6.5315E+01_JPRB,5.7151E+01_JPRB,5.0642E+01_JPRB,4.6520E+01_JPRB,4.7583E+01_JPRB,5.4805E+01_JPRB,&
+ & 6.5738E+01_JPRB,7.6689E+01_JPRB,8.7640E+01_JPRB/)  
+KAO( :, 1, 1,16) = (/&
+ & 2.3217E+01_JPRB,2.0315E+01_JPRB,1.7413E+01_JPRB,1.4511E+01_JPRB,1.7128E+01_JPRB,2.1409E+01_JPRB,&
+ & 2.5690E+01_JPRB,2.9970E+01_JPRB,3.1682E+01_JPRB/)  
+KAO( :, 2, 1,16) = (/&
+ & 2.2360E+01_JPRB,1.9565E+01_JPRB,1.6770E+01_JPRB,1.3975E+01_JPRB,1.7727E+01_JPRB,2.2158E+01_JPRB,&
+ & 2.6589E+01_JPRB,3.1019E+01_JPRB,3.2781E+01_JPRB/)  
+KAO( :, 3, 1,16) = (/&
+ & 2.1511E+01_JPRB,1.8822E+01_JPRB,1.6134E+01_JPRB,1.3677E+01_JPRB,1.8236E+01_JPRB,2.2795E+01_JPRB,&
+ & 2.7353E+01_JPRB,3.1910E+01_JPRB,3.3717E+01_JPRB/)  
+KAO( :, 4, 1,16) = (/&
+ & 2.0675E+01_JPRB,1.8091E+01_JPRB,1.5507E+01_JPRB,1.4001E+01_JPRB,1.8668E+01_JPRB,2.3334E+01_JPRB,&
+ & 2.8002E+01_JPRB,3.2666E+01_JPRB,3.4515E+01_JPRB/)  
+KAO( :, 5, 1,16) = (/&
+ & 1.9862E+01_JPRB,1.7379E+01_JPRB,1.4897E+01_JPRB,1.4274E+01_JPRB,1.9032E+01_JPRB,2.3789E+01_JPRB,&
+ & 2.8546E+01_JPRB,3.3301E+01_JPRB,3.5180E+01_JPRB/)  
+KAO( :, 1, 2,16) = (/&
+ & 2.4993E+01_JPRB,2.1869E+01_JPRB,1.8745E+01_JPRB,1.5621E+01_JPRB,2.0288E+01_JPRB,2.5360E+01_JPRB,&
+ & 3.0431E+01_JPRB,3.5501E+01_JPRB,3.8500E+01_JPRB/)  
+KAO( :, 2, 2,16) = (/&
+ & 2.4003E+01_JPRB,2.1003E+01_JPRB,1.8003E+01_JPRB,1.5799E+01_JPRB,2.1064E+01_JPRB,2.6330E+01_JPRB,&
+ & 3.1595E+01_JPRB,3.6859E+01_JPRB,3.9965E+01_JPRB/)  
+KAO( :, 3, 2,16) = (/&
+ & 2.3031E+01_JPRB,2.0153E+01_JPRB,1.7274E+01_JPRB,1.6296E+01_JPRB,2.1728E+01_JPRB,2.7159E+01_JPRB,&
+ & 3.2591E+01_JPRB,3.8020E+01_JPRB,4.1220E+01_JPRB/)  
+KAO( :, 4, 2,16) = (/&
+ & 2.2084E+01_JPRB,1.9324E+01_JPRB,1.6564E+01_JPRB,1.6718E+01_JPRB,2.2290E+01_JPRB,2.7862E+01_JPRB,&
+ & 3.3433E+01_JPRB,3.9003E+01_JPRB,4.2289E+01_JPRB/)  
+KAO( :, 5, 2,16) = (/&
+ & 2.1176E+01_JPRB,1.8529E+01_JPRB,1.5883E+01_JPRB,1.7075E+01_JPRB,2.2766E+01_JPRB,2.8457E+01_JPRB,&
+ & 3.4148E+01_JPRB,3.9837E+01_JPRB,4.3190E+01_JPRB/)  
+KAO( :, 1, 3,16) = (/&
+ & 2.7048E+01_JPRB,2.3667E+01_JPRB,2.0286E+01_JPRB,1.7873E+01_JPRB,2.3831E+01_JPRB,2.9788E+01_JPRB,&
+ & 3.5745E+01_JPRB,4.1700E+01_JPRB,4.6434E+01_JPRB/)  
+KAO( :, 2, 3,16) = (/&
+ & 2.5923E+01_JPRB,2.2683E+01_JPRB,1.9443E+01_JPRB,1.8645E+01_JPRB,2.4860E+01_JPRB,3.1075E+01_JPRB,&
+ & 3.7289E+01_JPRB,4.3501E+01_JPRB,4.8433E+01_JPRB/)  
+KAO( :, 3, 3,16) = (/&
+ & 2.4829E+01_JPRB,2.1725E+01_JPRB,1.8622E+01_JPRB,1.9301E+01_JPRB,2.5734E+01_JPRB,3.2168E+01_JPRB,&
+ & 3.8600E+01_JPRB,4.5030E+01_JPRB,5.0155E+01_JPRB/)  
+KAO( :, 4, 3,16) = (/&
+ & 2.3775E+01_JPRB,2.0804E+01_JPRB,1.7832E+01_JPRB,1.9866E+01_JPRB,2.6487E+01_JPRB,3.3108E+01_JPRB,&
+ & 3.9729E+01_JPRB,4.6348E+01_JPRB,5.1627E+01_JPRB/)  
+KAO( :, 5, 3,16) = (/&
+ & 2.2759E+01_JPRB,1.9914E+01_JPRB,1.7070E+01_JPRB,2.0344E+01_JPRB,2.7124E+01_JPRB,3.3905E+01_JPRB,&
+ & 4.0685E+01_JPRB,4.7463E+01_JPRB,5.2855E+01_JPRB/)  
+KAO( :, 1, 4,16) = (/&
+ & 2.9281E+01_JPRB,2.5621E+01_JPRB,2.1961E+01_JPRB,2.0878E+01_JPRB,2.7836E+01_JPRB,3.4801E+01_JPRB,&
+ & 4.1761E+01_JPRB,4.8718E+01_JPRB,5.5008E+01_JPRB/)  
+KAO( :, 2, 4,16) = (/&
+ & 2.8016E+01_JPRB,2.4514E+01_JPRB,2.1012E+01_JPRB,2.1904E+01_JPRB,2.9205E+01_JPRB,3.6506E+01_JPRB,&
+ & 4.3806E+01_JPRB,5.1103E+01_JPRB,5.7673E+01_JPRB/)  
+KAO( :, 3, 4,16) = (/&
+ & 2.6800E+01_JPRB,2.3450E+01_JPRB,2.0100E+01_JPRB,2.2779E+01_JPRB,3.0372E+01_JPRB,3.7964E+01_JPRB,&
+ & 4.5556E+01_JPRB,5.3145E+01_JPRB,6.0000E+01_JPRB/)  
+KAO( :, 4, 4,16) = (/&
+ & 2.5622E+01_JPRB,2.2420E+01_JPRB,1.9217E+01_JPRB,2.3531E+01_JPRB,3.1375E+01_JPRB,3.9218E+01_JPRB,&
+ & 4.7060E+01_JPRB,5.4900E+01_JPRB,6.1967E+01_JPRB/)  
+KAO( :, 5, 4,16) = (/&
+ & 2.4489E+01_JPRB,2.1428E+01_JPRB,1.8368E+01_JPRB,2.4165E+01_JPRB,3.2219E+01_JPRB,4.0274E+01_JPRB,&
+ & 4.8327E+01_JPRB,5.6378E+01_JPRB,6.3637E+01_JPRB/)  
+KAO( :, 1, 5,16) = (/&
+ & 3.1572E+01_JPRB,2.7626E+01_JPRB,2.3679E+01_JPRB,2.4302E+01_JPRB,3.2402E+01_JPRB,4.0502E+01_JPRB,&
+ & 4.8601E+01_JPRB,5.6697E+01_JPRB,6.4411E+01_JPRB/)  
+KAO( :, 2, 5,16) = (/&
+ & 3.0155E+01_JPRB,2.6386E+01_JPRB,2.2616E+01_JPRB,2.5641E+01_JPRB,3.4188E+01_JPRB,4.2734E+01_JPRB,&
+ & 5.1280E+01_JPRB,5.9822E+01_JPRB,6.7939E+01_JPRB/)  
+KAO( :, 3, 5,16) = (/&
+ & 2.8800E+01_JPRB,2.5200E+01_JPRB,2.1600E+01_JPRB,2.6788E+01_JPRB,3.5717E+01_JPRB,4.4645E+01_JPRB,&
+ & 5.3573E+01_JPRB,6.2498E+01_JPRB,7.0987E+01_JPRB/)  
+KAO( :, 4, 5,16) = (/&
+ & 2.7508E+01_JPRB,2.4070E+01_JPRB,2.0631E+01_JPRB,2.7770E+01_JPRB,3.7026E+01_JPRB,4.6282E+01_JPRB,&
+ & 5.5538E+01_JPRB,6.4790E+01_JPRB,7.3602E+01_JPRB/)  
+KAO( :, 5, 5,16) = (/&
+ & 2.6277E+01_JPRB,2.2993E+01_JPRB,1.9723E+01_JPRB,2.8602E+01_JPRB,3.8136E+01_JPRB,4.7669E+01_JPRB,&
+ & 5.7201E+01_JPRB,6.6735E+01_JPRB,7.5802E+01_JPRB/)  
+KAO( :, 1, 6,16) = (/&
+ & 3.4063E+01_JPRB,2.9805E+01_JPRB,2.5548E+01_JPRB,2.8070E+01_JPRB,3.7426E+01_JPRB,4.6782E+01_JPRB,&
+ & 5.6138E+01_JPRB,6.5490E+01_JPRB,7.4618E+01_JPRB/)  
+KAO( :, 2, 6,16) = (/&
+ & 3.2500E+01_JPRB,2.8438E+01_JPRB,2.4375E+01_JPRB,2.9810E+01_JPRB,3.9747E+01_JPRB,4.9683E+01_JPRB,&
+ & 5.9618E+01_JPRB,6.9550E+01_JPRB,7.9236E+01_JPRB/)  
+KAO( :, 3, 6,16) = (/&
+ & 3.1024E+01_JPRB,2.7146E+01_JPRB,2.3268E+01_JPRB,3.1309E+01_JPRB,4.1745E+01_JPRB,5.2181E+01_JPRB,&
+ & 6.2616E+01_JPRB,7.3047E+01_JPRB,8.3222E+01_JPRB/)  
+KAO( :, 4, 6,16) = (/&
+ & 2.9629E+01_JPRB,2.5925E+01_JPRB,2.2365E+01_JPRB,3.2588E+01_JPRB,4.3451E+01_JPRB,5.4313E+01_JPRB,&
+ & 6.5174E+01_JPRB,7.6032E+01_JPRB,8.6614E+01_JPRB/)  
+KAO( :, 5, 6,16) = (/&
+ & 2.8309E+01_JPRB,2.4770E+01_JPRB,2.2515E+01_JPRB,3.3663E+01_JPRB,4.4883E+01_JPRB,5.6104E+01_JPRB,&
+ & 6.7323E+01_JPRB,7.8538E+01_JPRB,8.9494E+01_JPRB/)  
+KAO( :, 1, 7,16) = (/&
+ & 3.6910E+01_JPRB,3.2297E+01_JPRB,2.7683E+01_JPRB,3.2196E+01_JPRB,4.2928E+01_JPRB,5.3659E+01_JPRB,&
+ & 6.4389E+01_JPRB,7.5116E+01_JPRB,8.5705E+01_JPRB/)  
+KAO( :, 2, 7,16) = (/&
+ & 3.5197E+01_JPRB,3.0797E+01_JPRB,2.6398E+01_JPRB,3.4425E+01_JPRB,4.5900E+01_JPRB,5.7374E+01_JPRB,&
+ & 6.8848E+01_JPRB,8.0317E+01_JPRB,9.1670E+01_JPRB/)  
+KAO( :, 3, 7,16) = (/&
+ & 3.3605E+01_JPRB,2.9404E+01_JPRB,2.5310E+01_JPRB,3.6355E+01_JPRB,4.8473E+01_JPRB,6.0591E+01_JPRB,&
+ & 7.2708E+01_JPRB,8.4820E+01_JPRB,9.6786E+01_JPRB/)  
+KAO( :, 4, 7,16) = (/&
+ & 3.2106E+01_JPRB,2.8093E+01_JPRB,2.5533E+01_JPRB,3.7999E+01_JPRB,5.0665E+01_JPRB,6.3330E+01_JPRB,&
+ & 7.5995E+01_JPRB,8.8655E+01_JPRB,1.0117E+02_JPRB/)  
+KAO( :, 5, 7,16) = (/&
+ & 3.0744E+01_JPRB,2.6901E+01_JPRB,2.6250E+01_JPRB,3.9375E+01_JPRB,5.2499E+01_JPRB,6.5623E+01_JPRB,&
+ & 7.8746E+01_JPRB,9.1865E+01_JPRB,1.0485E+02_JPRB/)  
+KAO( :, 1, 8,16) = (/&
+ & 4.0073E+01_JPRB,3.5064E+01_JPRB,3.0055E+01_JPRB,3.6634E+01_JPRB,4.8845E+01_JPRB,6.1056E+01_JPRB,&
+ & 7.3265E+01_JPRB,8.5470E+01_JPRB,9.7620E+01_JPRB/)  
+KAO( :, 2, 8,16) = (/&
+ & 3.8256E+01_JPRB,3.3474E+01_JPRB,2.8692E+01_JPRB,3.9468E+01_JPRB,5.2623E+01_JPRB,6.5778E+01_JPRB,&
+ & 7.8932E+01_JPRB,9.2081E+01_JPRB,1.0517E+02_JPRB/)  
+KAO( :, 3, 8,16) = (/&
+ & 3.6587E+01_JPRB,3.2013E+01_JPRB,2.8588E+01_JPRB,4.1890E+01_JPRB,5.5854E+01_JPRB,6.9816E+01_JPRB,&
+ & 8.3778E+01_JPRB,9.7751E+01_JPRB,1.1165E+02_JPRB/)  
+KAO( :, 4, 8,16) = (/&
+ & 3.5145E+01_JPRB,3.0752E+01_JPRB,2.9433E+01_JPRB,4.3973E+01_JPRB,5.8630E+01_JPRB,7.3286E+01_JPRB,&
+ & 8.7942E+01_JPRB,1.0259E+02_JPRB,1.1716E+02_JPRB/)  
+KAO( :, 5, 8,16) = (/&
+ & 3.4615E+01_JPRB,3.0288E+01_JPRB,3.0495E+01_JPRB,4.5712E+01_JPRB,6.0949E+01_JPRB,7.6185E+01_JPRB,&
+ & 9.1420E+01_JPRB,1.0665E+02_JPRB,1.2183E+02_JPRB/)  
+KAO( :, 1, 9,16) = (/&
+ & 4.3755E+01_JPRB,3.8286E+01_JPRB,3.2816E+01_JPRB,4.1247E+01_JPRB,5.4995E+01_JPRB,6.8743E+01_JPRB,&
+ & 8.2490E+01_JPRB,9.6233E+01_JPRB,1.0997E+02_JPRB/)  
+KAO( :, 2, 9,16) = (/&
+ & 4.1945E+01_JPRB,3.6702E+01_JPRB,3.1862E+01_JPRB,4.4780E+01_JPRB,5.9706E+01_JPRB,7.4631E+01_JPRB,&
+ & 8.9556E+01_JPRB,1.0447E+02_JPRB,1.1940E+02_JPRB/)  
+KAO( :, 3, 9,16) = (/&
+ & 4.0428E+01_JPRB,3.5374E+01_JPRB,3.2607E+01_JPRB,4.7818E+01_JPRB,6.3757E+01_JPRB,7.9695E+01_JPRB,&
+ & 9.5632E+01_JPRB,1.1156E+02_JPRB,1.2752E+02_JPRB/)  
+KAO( :, 4, 9,16) = (/&
+ & 3.9770E+01_JPRB,3.4798E+01_JPRB,3.3900E+01_JPRB,5.0397E+01_JPRB,6.7196E+01_JPRB,8.3994E+01_JPRB,&
+ & 1.0079E+02_JPRB,1.1758E+02_JPRB,1.3434E+02_JPRB/)  
+KAO( :, 5, 9,16) = (/&
+ & 4.1051E+01_JPRB,3.5919E+01_JPRB,3.5387E+01_JPRB,5.2540E+01_JPRB,7.0054E+01_JPRB,8.7567E+01_JPRB,&
+ & 1.0508E+02_JPRB,1.2258E+02_JPRB,1.4009E+02_JPRB/)  
+KAO( :, 1,10,16) = (/&
+ & 4.8191E+01_JPRB,4.2167E+01_JPRB,3.6143E+01_JPRB,4.6233E+01_JPRB,6.1643E+01_JPRB,7.7053E+01_JPRB,&
+ & 9.2462E+01_JPRB,1.0788E+02_JPRB,1.2329E+02_JPRB/)  
+KAO( :, 2,10,16) = (/&
+ & 4.6632E+01_JPRB,4.0803E+01_JPRB,3.6096E+01_JPRB,5.0540E+01_JPRB,6.7392E+01_JPRB,8.4239E+01_JPRB,&
+ & 1.0109E+02_JPRB,1.1792E+02_JPRB,1.3475E+02_JPRB/)  
+KAO( :, 3,10,16) = (/&
+ & 4.5798E+01_JPRB,4.0073E+01_JPRB,3.7372E+01_JPRB,5.4219E+01_JPRB,7.2291E+01_JPRB,9.0363E+01_JPRB,&
+ & 1.0843E+02_JPRB,1.2650E+02_JPRB,1.4462E+02_JPRB/)  
+KAO( :, 4,10,16) = (/&
+ & 4.7009E+01_JPRB,4.1133E+01_JPRB,3.9401E+01_JPRB,5.7318E+01_JPRB,7.6424E+01_JPRB,9.5528E+01_JPRB,&
+ & 1.1463E+02_JPRB,1.3373E+02_JPRB,1.5287E+02_JPRB/)  
+KAO( :, 5,10,16) = (/&
+ & 4.8862E+01_JPRB,4.2754E+01_JPRB,4.1265E+01_JPRB,5.9899E+01_JPRB,7.9865E+01_JPRB,9.9835E+01_JPRB,&
+ & 1.1980E+02_JPRB,1.3976E+02_JPRB,1.5971E+02_JPRB/)  
+KAO( :, 1,11,16) = (/&
+ & 5.3373E+01_JPRB,4.6702E+01_JPRB,4.0606E+01_JPRB,5.3674E+01_JPRB,7.1565E+01_JPRB,8.9455E+01_JPRB,&
+ & 1.0734E+02_JPRB,1.2523E+02_JPRB,1.4312E+02_JPRB/)  
+KAO( :, 2,11,16) = (/&
+ & 5.3017E+01_JPRB,4.6390E+01_JPRB,4.2053E+01_JPRB,5.8474E+01_JPRB,7.7965E+01_JPRB,9.7455E+01_JPRB,&
+ & 1.1694E+02_JPRB,1.3643E+02_JPRB,1.5595E+02_JPRB/)  
+KAO( :, 3,11,16) = (/&
+ & 5.4550E+01_JPRB,4.7731E+01_JPRB,4.4590E+01_JPRB,6.2526E+01_JPRB,8.3367E+01_JPRB,1.0421E+02_JPRB,&
+ & 1.2505E+02_JPRB,1.4588E+02_JPRB,1.6674E+02_JPRB/)  
+KAO( :, 4,11,16) = (/&
+ & 5.6780E+01_JPRB,4.9683E+01_JPRB,4.6971E+01_JPRB,6.5903E+01_JPRB,8.7870E+01_JPRB,1.0984E+02_JPRB,&
+ & 1.3180E+02_JPRB,1.5376E+02_JPRB,1.7563E+02_JPRB/)  
+KAO( :, 5,11,16) = (/&
+ & 5.9041E+01_JPRB,5.1661E+01_JPRB,4.9066E+01_JPRB,6.8642E+01_JPRB,9.1523E+01_JPRB,1.1440E+02_JPRB,&
+ & 1.3728E+02_JPRB,1.6015E+02_JPRB,1.8306E+02_JPRB/)  
+KAO( :, 1,12,16) = (/&
+ & 6.1525E+01_JPRB,5.3834E+01_JPRB,4.7398E+01_JPRB,6.1480E+01_JPRB,8.1973E+01_JPRB,1.0246E+02_JPRB,&
+ & 1.2296E+02_JPRB,1.4346E+02_JPRB,1.6393E+02_JPRB/)  
+KAO( :, 2,12,16) = (/&
+ & 6.3155E+01_JPRB,5.5261E+01_JPRB,5.0248E+01_JPRB,6.6709E+01_JPRB,8.8945E+01_JPRB,1.1118E+02_JPRB,&
+ & 1.3341E+02_JPRB,1.5564E+02_JPRB,1.7789E+02_JPRB/)  
+KAO( :, 3,12,16) = (/&
+ & 6.5829E+01_JPRB,5.7600E+01_JPRB,5.3241E+01_JPRB,7.1073E+01_JPRB,9.4764E+01_JPRB,1.1845E+02_JPRB,&
+ & 1.4214E+02_JPRB,1.6583E+02_JPRB,1.8954E+02_JPRB/)  
+KAO( :, 4,12,16) = (/&
+ & 6.8453E+01_JPRB,5.9896E+01_JPRB,5.5974E+01_JPRB,7.4756E+01_JPRB,9.9674E+01_JPRB,1.2459E+02_JPRB,&
+ & 1.4950E+02_JPRB,1.7441E+02_JPRB,1.9932E+02_JPRB/)  
+KAO( :, 5,12,16) = (/&
+ & 7.1079E+01_JPRB,6.2194E+01_JPRB,5.8308E+01_JPRB,7.7950E+01_JPRB,1.0393E+02_JPRB,1.2991E+02_JPRB,&
+ & 1.5589E+02_JPRB,1.8186E+02_JPRB,2.0786E+02_JPRB/)  
+KAO( :, 1,13,16) = (/&
+ & 7.3106E+01_JPRB,6.3968E+01_JPRB,5.6524E+01_JPRB,6.9787E+01_JPRB,9.2588E+01_JPRB,1.1573E+02_JPRB,&
+ & 1.3888E+02_JPRB,1.6201E+02_JPRB,1.8517E+02_JPRB/)  
+KAO( :, 2,13,16) = (/&
+ & 7.5846E+01_JPRB,6.6365E+01_JPRB,6.0094E+01_JPRB,7.5398E+01_JPRB,1.0038E+02_JPRB,1.2548E+02_JPRB,&
+ & 1.5057E+02_JPRB,1.7566E+02_JPRB,2.0075E+02_JPRB/)  
+KAO( :, 3,13,16) = (/&
+ & 7.9121E+01_JPRB,6.9231E+01_JPRB,6.3478E+01_JPRB,8.0291E+01_JPRB,1.0705E+02_JPRB,1.3382E+02_JPRB,&
+ & 1.6058E+02_JPRB,1.8733E+02_JPRB,2.1409E+02_JPRB/)  
+KAO( :, 4,13,16) = (/&
+ & 8.2254E+01_JPRB,7.1972E+01_JPRB,6.6518E+01_JPRB,8.4693E+01_JPRB,1.1292E+02_JPRB,1.4115E+02_JPRB,&
+ & 1.6938E+02_JPRB,1.9759E+02_JPRB,2.2586E+02_JPRB/)  
+KAO( :, 5,13,16) = (/&
+ & 8.5142E+01_JPRB,7.4499E+01_JPRB,6.9191E+01_JPRB,8.8493E+01_JPRB,1.1799E+02_JPRB,1.4748E+02_JPRB,&
+ & 1.7697E+02_JPRB,2.0646E+02_JPRB,2.3600E+02_JPRB/)  
+
+!     The array SELFREFO contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+SELFREFO( :, 1) = (/&
+ & 2.34973E-02_JPRB, 2.07877E-02_JPRB, 1.83905E-02_JPRB, 1.62698E-02_JPRB, 1.43936E-02_JPRB,&
+ & 1.27338E-02_JPRB, 1.12654E-02_JPRB, 9.96632E-03_JPRB, 8.81704E-03_JPRB, 7.80030E-03_JPRB/)  
+SELFREFO( :, 2) = (/&
+ & 3.10090E-02_JPRB, 2.82626E-02_JPRB, 2.57594E-02_JPRB, 2.34779E-02_JPRB, 2.13985E-02_JPRB,&
+ & 1.95033E-02_JPRB, 1.77759E-02_JPRB, 1.62015E-02_JPRB, 1.47665E-02_JPRB, 1.34587E-02_JPRB/)  
+SELFREFO( :, 3) = (/&
+ & 5.36676E-02_JPRB, 4.95621E-02_JPRB, 4.57706E-02_JPRB, 4.22692E-02_JPRB, 3.90356E-02_JPRB,&
+ & 3.60494E-02_JPRB, 3.32917E-02_JPRB, 3.07449E-02_JPRB, 2.83929E-02_JPRB, 2.62209E-02_JPRB/)  
+SELFREFO( :, 4) = (/&
+ & 9.05844E-02_JPRB, 8.33349E-02_JPRB, 7.66656E-02_JPRB, 7.05300E-02_JPRB, 6.48855E-02_JPRB,&
+ & 5.96927E-02_JPRB, 5.49155E-02_JPRB, 5.05206E-02_JPRB, 4.64774E-02_JPRB, 4.27578E-02_JPRB/)  
+SELFREFO( :, 5) = (/&
+ & 1.10531E-01_JPRB, 1.03430E-01_JPRB, 9.67851E-02_JPRB, 9.05670E-02_JPRB, 8.47484E-02_JPRB,&
+ & 7.93037E-02_JPRB, 7.42087E-02_JPRB, 6.94411E-02_JPRB, 6.49797E-02_JPRB, 6.08050E-02_JPRB/)  
+SELFREFO( :, 6) = (/&
+ & 1.24308E-01_JPRB, 1.16014E-01_JPRB, 1.08274E-01_JPRB, 1.01050E-01_JPRB, 9.43078E-02_JPRB,&
+ & 8.80155E-02_JPRB, 8.21431E-02_JPRB, 7.66624E-02_JPRB, 7.15475E-02_JPRB, 6.67738E-02_JPRB/)  
+SELFREFO( :, 7) = (/&
+ & 1.34594E-01_JPRB, 1.25054E-01_JPRB, 1.16190E-01_JPRB, 1.07954E-01_JPRB, 1.00302E-01_JPRB,&
+ & 9.31920E-02_JPRB, 8.65863E-02_JPRB, 8.04488E-02_JPRB, 7.47464E-02_JPRB, 6.94481E-02_JPRB/)  
+SELFREFO( :, 8) = (/&
+ & 1.26966E-01_JPRB, 1.18270E-01_JPRB, 1.10169E-01_JPRB, 1.02624E-01_JPRB, 9.55948E-02_JPRB,&
+ & 8.90474E-02_JPRB, 8.29484E-02_JPRB, 7.72672E-02_JPRB, 7.19750E-02_JPRB, 6.70453E-02_JPRB/)  
+SELFREFO( :, 9) = (/&
+ & 1.29806E-01_JPRB, 1.21296E-01_JPRB, 1.13344E-01_JPRB, 1.05913E-01_JPRB, 9.89690E-02_JPRB,&
+ & 9.24805E-02_JPRB, 8.64175E-02_JPRB, 8.07519E-02_JPRB, 7.54578E-02_JPRB, 7.05108E-02_JPRB/)  
+SELFREFO( :,10) = (/&
+ & 1.37781E-01_JPRB, 1.26830E-01_JPRB, 1.16751E-01_JPRB, 1.07472E-01_JPRB, 9.89303E-02_JPRB,&
+ & 9.10678E-02_JPRB, 8.38301E-02_JPRB, 7.71677E-02_JPRB, 7.10347E-02_JPRB, 6.53892E-02_JPRB/)  
+SELFREFO( :,11) = (/&
+ & 1.30675E-01_JPRB, 1.24254E-01_JPRB, 1.18149E-01_JPRB, 1.12344E-01_JPRB, 1.06824E-01_JPRB,&
+ & 1.01575E-01_JPRB, 9.65839E-02_JPRB, 9.18383E-02_JPRB, 8.73258E-02_JPRB, 8.30351E-02_JPRB/)  
+SELFREFO( :,12) = (/&
+ & 1.55998E-01_JPRB, 1.45155E-01_JPRB, 1.35067E-01_JPRB, 1.25679E-01_JPRB, 1.16944E-01_JPRB,&
+ & 1.08816E-01_JPRB, 1.01253E-01_JPRB, 9.42160E-02_JPRB, 8.76677E-02_JPRB, 8.15746E-02_JPRB/)  
+SELFREFO( :,13) = (/&
+ & 1.56508E-01_JPRB, 1.46390E-01_JPRB, 1.36925E-01_JPRB, 1.28072E-01_JPRB, 1.19792E-01_JPRB,&
+ & 1.12047E-01_JPRB, 1.04803E-01_JPRB, 9.80266E-02_JPRB, 9.16888E-02_JPRB, 8.57608E-02_JPRB/)  
+SELFREFO( :,14) = (/&
+ & 1.55206E-01_JPRB, 1.43469E-01_JPRB, 1.32620E-01_JPRB, 1.22591E-01_JPRB, 1.13321E-01_JPRB,&
+ & 1.04752E-01_JPRB, 9.68305E-02_JPRB, 8.95082E-02_JPRB, 8.27396E-02_JPRB, 7.64829E-02_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART11',1,ZHOOK_HANDLE)
+END SUBROUTINE PART11
+
+
+SUBROUTINE PART12
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART12',0,ZHOOK_HANDLE)
+
+
+SELFREFO( :,15) = (/&
+ & 1.46694E-01_JPRB, 1.35458E-01_JPRB, 1.25082E-01_JPRB, 1.15501E-01_JPRB, 1.06654E-01_JPRB,&
+ & 9.84840E-02_JPRB, 9.09403E-02_JPRB, 8.39744E-02_JPRB, 7.75420E-02_JPRB, 7.16024E-02_JPRB/)  
+SELFREFO( :,16) = (/&
+ & 1.65126E-01_JPRB, 1.53281E-01_JPRB, 1.42287E-01_JPRB, 1.32081E-01_JPRB, 1.22607E-01_JPRB,&
+ & 1.13812E-01_JPRB, 1.05649E-01_JPRB, 9.80707E-02_JPRB, 9.10362E-02_JPRB, 8.45063E-02_JPRB/)  
+
+FRACREFAO( : ,1) = (/&
+ !     From P = 706.3 mb.
+ & 0.21245100_JPRB,0.15164700_JPRB,0.14486700_JPRB,0.13075501_JPRB,&
+ & 0.11629600_JPRB,0.09266050_JPRB,0.06579930_JPRB,0.04524000_JPRB,&
+ & 0.03072870_JPRB,0.00284297_JPRB,0.00234660_JPRB,0.00185208_JPRB,&
+ & 0.00133978_JPRB,0.00082214_JPRB,0.00031016_JPRB,0.00004363_JPRB/)  
+FRACREFAO( : ,2) = (/&
+ & 0.14703900_JPRB,0.16937999_JPRB,0.15605700_JPRB,0.14159000_JPRB,&
+ & 0.12088500_JPRB,0.10058500_JPRB,0.06809110_JPRB,0.05131470_JPRB,&
+ & 0.03487040_JPRB,0.00327281_JPRB,0.00250183_JPRB,0.00190024_JPRB,&
+ & 0.00133978_JPRB,0.00082214_JPRB,0.00031016_JPRB,0.00004363_JPRB/)  
+FRACREFAO( : ,3) = (/&
+ & 0.13689300_JPRB,0.16610400_JPRB,0.15723500_JPRB,0.14299500_JPRB,&
+ & 0.12399400_JPRB,0.09907820_JPRB,0.07169690_JPRB,0.05367370_JPRB,&
+ & 0.03671630_JPRB,0.00378148_JPRB,0.00290510_JPRB,0.00221076_JPRB,&
+ & 0.00142810_JPRB,0.00093527_JPRB,0.00031016_JPRB,0.00004363_JPRB/)  
+FRACREFAO( : ,4) = (/&
+ & 0.13054299_JPRB,0.16273800_JPRB,0.15874299_JPRB,0.14279599_JPRB,&
+ & 0.12674300_JPRB,0.09664900_JPRB,0.07462200_JPRB,0.05620080_JPRB,&
+ & 0.03789090_JPRB,0.00411690_JPRB,0.00322920_JPRB,0.00245036_JPRB,&
+ & 0.00178303_JPRB,0.00098595_JPRB,0.00040802_JPRB,0.00010150_JPRB/)  
+FRACREFAO( : ,5) = (/&
+ & 0.12828299_JPRB,0.15824600_JPRB,0.15688400_JPRB,0.14449100_JPRB,&
+ & 0.12787800_JPRB,0.09517830_JPRB,0.07679350_JPRB,0.05890820_JPRB,&
+ & 0.03883570_JPRB,0.00442304_JPRB,0.00346796_JPRB,0.00255333_JPRB,&
+ & 0.00212519_JPRB,0.00116168_JPRB,0.00067065_JPRB,0.00010150_JPRB/)  
+FRACREFAO( : ,6) = (/&
+ & 0.12649800_JPRB,0.15195100_JPRB,0.15646499_JPRB,0.14569700_JPRB,&
+ & 0.12669300_JPRB,0.09653520_JPRB,0.07887920_JPRB,0.06106920_JPRB,&
+ & 0.04043910_JPRB,0.00430390_JPRB,0.00364453_JPRB,0.00314360_JPRB,&
+ & 0.00203206_JPRB,0.00187787_JPRB,0.00067075_JPRB,0.00010150_JPRB/)  
+FRACREFAO( : ,7) = (/&
+ & 0.12500300_JPRB,0.14460599_JPRB,0.15672199_JPRB,0.14724600_JPRB,&
+ & 0.11978900_JPRB,0.10190200_JPRB,0.08196710_JPRB,0.06315770_JPRB,&
+ & 0.04240100_JPRB,0.00433645_JPRB,0.00404097_JPRB,0.00329466_JPRB,&
+ & 0.00288491_JPRB,0.00187803_JPRB,0.00067093_JPRB,0.00010150_JPRB/)  
+FRACREFAO( : ,8) = (/&
+ & 0.12317200_JPRB,0.14118700_JPRB,0.15242000_JPRB,0.13794300_JPRB,&
+ & 0.12119200_JPRB,0.10655400_JPRB,0.08808350_JPRB,0.06521370_JPRB,&
+ & 0.04505680_JPRB,0.00485949_JPRB,0.00477105_JPRB,0.00401468_JPRB,&
+ & 0.00288491_JPRB,0.00187786_JPRB,0.00067110_JPRB,0.00010150_JPRB/)  
+FRACREFAO( : ,9) = (/&
+ & 0.10193600_JPRB,0.11693000_JPRB,0.13236099_JPRB,0.14053200_JPRB,&
+ & 0.13749801_JPRB,0.12193100_JPRB,0.10221000_JPRB,0.07448910_JPRB,&
+ & 0.05205320_JPRB,0.00572312_JPRB,0.00476882_JPRB,0.00403380_JPRB,&
+ & 0.00288871_JPRB,0.00187396_JPRB,0.00067218_JPRB,0.00010150_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB12:PART12',1,ZHOOK_HANDLE)
+END SUBROUTINE PART12
+
+
+END SUBROUTINE RRTM_KGB12
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb12.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb12.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb12.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_KGB12
+END SUBROUTINE RRTM_KGB12
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb13.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb13.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb13.F90	(revision 1989)
@@ -0,0 +1,3422 @@
+!OCL SCALAR
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0 
+SUBROUTINE RRTM_KGB13
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 13:  2080-2250 cm-1 (low - H2O,N2O; high - nothing)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     R. Elkhatib 12-10-2005 Split for faster and more robust compilation.
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO13, ONLY : KAO     ,SELFREFO   ,FRACREFAO
+USE YOERRTA13, ONLY : STRRAT
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB13',0,ZHOOK_HANDLE)
+
+CALL PART1
+CALL PART2
+CALL PART3
+CALL PART4
+CALL PART5
+CALL PART6
+CALL PART7
+CALL PART8
+CALL PART9
+CALL PART10
+CALL PART11
+CALL PART12
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB13',1,ZHOOK_HANDLE)
+
+!     ------------------------------------------------------------------
+
+CONTAINS
+
+
+SUBROUTINE PART1
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB13:PART1',0,ZHOOK_HANDLE)
+
+
+STRRAT = 16658.87_JPRB
+
+!     ------------------------------------------------------------------
+
+!     The array KAO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels> ~100mb, temperatures, and binary
+!     species parameters (see taumol.f for definition).  The first 
+!     index in the array, JS, runs from 1 to 9, and corresponds to 
+!     different values of the binary species parameter.  For instance, 
+!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, 
+!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index
+!     in the array, JT, which runs from 1 to 5, corresponds to different
+!     temperatures.  More specifically, JT = 3 means that the data are for
+!     the reference temperature TREF for this  pressure level, JT = 2 refers
+!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the JPth reference pressure level (see taumol.f for these levels
+!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates
+!     which g-interval the absorption coefficients are for.
+
+KAO( :, 1, 1, 1) = (/&
+ & 6.0224E-05_JPRB,8.4190E-05_JPRB,9.2945E-05_JPRB,9.8340E-05_JPRB,1.0097E-04_JPRB,1.0123E-04_JPRB,&
+ & 9.8980E-05_JPRB,9.5101E-05_JPRB,1.0057E-04_JPRB/)  
+KAO( :, 2, 1, 1) = (/&
+ & 6.0879E-05_JPRB,8.9195E-05_JPRB,9.9910E-05_JPRB,1.0710E-04_JPRB,1.1122E-04_JPRB,1.1263E-04_JPRB,&
+ & 1.1044E-04_JPRB,1.0763E-04_JPRB,1.0542E-04_JPRB/)  
+KAO( :, 3, 1, 1) = (/&
+ & 6.1791E-05_JPRB,9.5106E-05_JPRB,1.0827E-04_JPRB,1.1785E-04_JPRB,1.2380E-04_JPRB,1.2668E-04_JPRB,&
+ & 1.2512E-04_JPRB,1.2107E-04_JPRB,1.1351E-04_JPRB/)  
+KAO( :, 4, 1, 1) = (/&
+ & 6.3010E-05_JPRB,1.0201E-04_JPRB,1.1821E-04_JPRB,1.3067E-04_JPRB,1.3868E-04_JPRB,1.4333E-04_JPRB,&
+ & 1.4292E-04_JPRB,1.3776E-04_JPRB,1.2486E-04_JPRB/)  
+KAO( :, 5, 1, 1) = (/&
+ & 6.4569E-05_JPRB,1.0987E-04_JPRB,1.2980E-04_JPRB,1.4543E-04_JPRB,1.5604E-04_JPRB,1.6272E-04_JPRB,&
+ & 1.6360E-04_JPRB,1.5809E-04_JPRB,1.3899E-04_JPRB/)  
+KAO( :, 1, 2, 1) = (/&
+ & 5.2287E-05_JPRB,7.1405E-05_JPRB,7.7712E-05_JPRB,8.1186E-05_JPRB,8.2505E-05_JPRB,8.2006E-05_JPRB,&
+ & 7.9565E-05_JPRB,7.6455E-05_JPRB,9.9524E-05_JPRB/)  
+KAO( :, 2, 2, 1) = (/&
+ & 5.2781E-05_JPRB,7.5455E-05_JPRB,8.3243E-05_JPRB,8.8119E-05_JPRB,9.0567E-05_JPRB,9.0970E-05_JPRB,&
+ & 8.8663E-05_JPRB,8.6015E-05_JPRB,1.0412E-04_JPRB/)  
+KAO( :, 3, 2, 1) = (/&
+ & 5.3548E-05_JPRB,8.0317E-05_JPRB,9.0003E-05_JPRB,9.6753E-05_JPRB,1.0065E-04_JPRB,1.0210E-04_JPRB,&
+ & 1.0019E-04_JPRB,9.6846E-05_JPRB,1.1058E-04_JPRB/)  
+KAO( :, 4, 2, 1) = (/&
+ & 5.4581E-05_JPRB,8.6067E-05_JPRB,9.8148E-05_JPRB,1.0717E-04_JPRB,1.1272E-04_JPRB,1.1541E-04_JPRB,&
+ & 1.1436E-04_JPRB,1.1002E-04_JPRB,1.1929E-04_JPRB/)  
+KAO( :, 5, 2, 1) = (/&
+ & 5.5952E-05_JPRB,9.2760E-05_JPRB,1.0776E-04_JPRB,1.1931E-04_JPRB,1.2684E-04_JPRB,1.3110E-04_JPRB,&
+ & 1.3118E-04_JPRB,1.2615E-04_JPRB,1.3023E-04_JPRB/)  
+KAO( :, 1, 3, 1) = (/&
+ & 4.5915E-05_JPRB,6.0577E-05_JPRB,6.4826E-05_JPRB,6.6685E-05_JPRB,6.6750E-05_JPRB,6.5539E-05_JPRB,&
+ & 6.2942E-05_JPRB,6.0959E-05_JPRB,1.1753E-04_JPRB/)  
+KAO( :, 2, 3, 1) = (/&
+ & 4.6227E-05_JPRB,6.3783E-05_JPRB,6.9133E-05_JPRB,7.1876E-05_JPRB,7.2797E-05_JPRB,7.2195E-05_JPRB,&
+ & 6.9765E-05_JPRB,6.7154E-05_JPRB,1.2464E-04_JPRB/)  
+KAO( :, 3, 3, 1) = (/&
+ & 4.6851E-05_JPRB,6.7690E-05_JPRB,7.4367E-05_JPRB,7.8503E-05_JPRB,8.0513E-05_JPRB,8.0733E-05_JPRB,&
+ & 7.8338E-05_JPRB,7.5667E-05_JPRB,1.3207E-04_JPRB/)  
+KAO( :, 4, 3, 1) = (/&
+ & 4.7751E-05_JPRB,7.2324E-05_JPRB,8.0776E-05_JPRB,8.6619E-05_JPRB,8.9966E-05_JPRB,9.1016E-05_JPRB,&
+ & 8.9192E-05_JPRB,8.5836E-05_JPRB,1.3971E-04_JPRB/)  
+KAO( :, 5, 3, 1) = (/&
+ & 4.8912E-05_JPRB,7.7822E-05_JPRB,8.8433E-05_JPRB,9.6277E-05_JPRB,1.0117E-04_JPRB,1.0326E-04_JPRB,&
+ & 1.0232E-04_JPRB,9.7968E-05_JPRB,1.4868E-04_JPRB/)  
+KAO( :, 1, 4, 1) = (/&
+ & 4.0950E-05_JPRB,5.2139E-05_JPRB,5.4765E-05_JPRB,5.5573E-05_JPRB,5.4704E-05_JPRB,5.2865E-05_JPRB,&
+ & 5.0161E-05_JPRB,4.9155E-05_JPRB,1.5352E-04_JPRB/)  
+KAO( :, 2, 4, 1) = (/&
+ & 4.1070E-05_JPRB,5.4592E-05_JPRB,5.8140E-05_JPRB,5.9442E-05_JPRB,5.9104E-05_JPRB,5.7678E-05_JPRB,&
+ & 5.5011E-05_JPRB,5.2621E-05_JPRB,1.6066E-04_JPRB/)  
+KAO( :, 3, 4, 1) = (/&
+ & 4.1547E-05_JPRB,5.7742E-05_JPRB,6.2323E-05_JPRB,6.4435E-05_JPRB,6.4943E-05_JPRB,6.4068E-05_JPRB,&
+ & 6.1387E-05_JPRB,5.9195E-05_JPRB,1.6903E-04_JPRB/)  
+KAO( :, 4, 4, 1) = (/&
+ & 4.2287E-05_JPRB,6.1604E-05_JPRB,6.7380E-05_JPRB,7.0692E-05_JPRB,7.2200E-05_JPRB,7.1920E-05_JPRB,&
+ & 6.9467E-05_JPRB,6.6532E-05_JPRB,1.7839E-04_JPRB/)  
+KAO( :, 5, 4, 1) = (/&
+ & 4.3274E-05_JPRB,6.6127E-05_JPRB,7.3452E-05_JPRB,7.8267E-05_JPRB,8.0937E-05_JPRB,8.1435E-05_JPRB,&
+ & 7.9548E-05_JPRB,7.5644E-05_JPRB,1.8879E-04_JPRB/)  
+KAO( :, 1, 5, 1) = (/&
+ & 3.6899E-05_JPRB,4.5432E-05_JPRB,4.6910E-05_JPRB,4.6828E-05_JPRB,4.5505E-05_JPRB,4.3257E-05_JPRB,&
+ & 4.0494E-05_JPRB,4.0683E-05_JPRB,2.1040E-04_JPRB/)  
+KAO( :, 2, 5, 1) = (/&
+ & 3.6791E-05_JPRB,4.7257E-05_JPRB,4.9430E-05_JPRB,4.9831E-05_JPRB,4.8726E-05_JPRB,4.6653E-05_JPRB,&
+ & 4.3906E-05_JPRB,4.1943E-05_JPRB,2.1714E-04_JPRB/)  
+KAO( :, 3, 5, 1) = (/&
+ & 3.7067E-05_JPRB,4.9759E-05_JPRB,5.2813E-05_JPRB,5.3675E-05_JPRB,5.3108E-05_JPRB,5.1487E-05_JPRB,&
+ & 4.8518E-05_JPRB,4.6186E-05_JPRB,2.2577E-04_JPRB/)  
+KAO( :, 4, 5, 1) = (/&
+ & 3.7713E-05_JPRB,5.2955E-05_JPRB,5.6991E-05_JPRB,5.8578E-05_JPRB,5.8728E-05_JPRB,5.7522E-05_JPRB,&
+ & 5.4651E-05_JPRB,5.2154E-05_JPRB,2.3593E-04_JPRB/)  
+KAO( :, 5, 5, 1) = (/&
+ & 3.8601E-05_JPRB,5.6859E-05_JPRB,6.2047E-05_JPRB,6.4624E-05_JPRB,6.5592E-05_JPRB,6.4919E-05_JPRB,&
+ & 6.2327E-05_JPRB,5.8914E-05_JPRB,2.4626E-04_JPRB/)  
+KAO( :, 1, 6, 1) = (/&
+ & 3.3082E-05_JPRB,3.9382E-05_JPRB,4.0055E-05_JPRB,3.9341E-05_JPRB,3.7713E-05_JPRB,3.5318E-05_JPRB,&
+ & 3.2652E-05_JPRB,3.2896E-05_JPRB,2.9458E-04_JPRB/)  
+KAO( :, 2, 6, 1) = (/&
+ & 3.2847E-05_JPRB,4.0822E-05_JPRB,4.1992E-05_JPRB,4.1637E-05_JPRB,4.0248E-05_JPRB,3.7895E-05_JPRB,&
+ & 3.4950E-05_JPRB,3.3596E-05_JPRB,2.9908E-04_JPRB/)  
+KAO( :, 3, 6, 1) = (/&
+ & 3.2992E-05_JPRB,4.2782E-05_JPRB,4.4664E-05_JPRB,4.4799E-05_JPRB,4.3587E-05_JPRB,4.1448E-05_JPRB,&
+ & 3.8538E-05_JPRB,3.6195E-05_JPRB,3.0643E-04_JPRB/)  
+KAO( :, 4, 6, 1) = (/&
+ & 3.3529E-05_JPRB,4.5435E-05_JPRB,4.8125E-05_JPRB,4.8714E-05_JPRB,4.7939E-05_JPRB,4.6103E-05_JPRB,&
+ & 4.3124E-05_JPRB,4.0777E-05_JPRB,3.1650E-04_JPRB/)  
+KAO( :, 5, 6, 1) = (/&
+ & 3.4353E-05_JPRB,4.8744E-05_JPRB,5.2397E-05_JPRB,5.3568E-05_JPRB,5.3408E-05_JPRB,5.1940E-05_JPRB,&
+ & 4.9013E-05_JPRB,4.5970E-05_JPRB,3.2817E-04_JPRB/)  
+KAO( :, 1, 7, 1) = (/&
+ & 2.9702E-05_JPRB,3.4031E-05_JPRB,3.4045E-05_JPRB,3.2966E-05_JPRB,3.1191E-05_JPRB,2.8774E-05_JPRB,&
+ & 2.6215E-05_JPRB,2.6660E-05_JPRB,4.4900E-04_JPRB/)  
+KAO( :, 2, 7, 1) = (/&
+ & 2.9362E-05_JPRB,3.5097E-05_JPRB,3.5527E-05_JPRB,3.4696E-05_JPRB,3.3156E-05_JPRB,3.0815E-05_JPRB,&
+ & 2.7832E-05_JPRB,2.7318E-05_JPRB,4.4931E-04_JPRB/)  
+KAO( :, 3, 7, 1) = (/&
+ & 2.9381E-05_JPRB,3.6764E-05_JPRB,3.7674E-05_JPRB,3.7240E-05_JPRB,3.5897E-05_JPRB,3.3579E-05_JPRB,&
+ & 3.0718E-05_JPRB,2.8716E-05_JPRB,4.5416E-04_JPRB/)  
+KAO( :, 4, 7, 1) = (/&
+ & 2.9804E-05_JPRB,3.8980E-05_JPRB,4.0580E-05_JPRB,4.0617E-05_JPRB,3.9435E-05_JPRB,3.7220E-05_JPRB,&
+ & 3.4325E-05_JPRB,3.1670E-05_JPRB,4.6259E-04_JPRB/)  
+KAO( :, 5, 7, 1) = (/&
+ & 3.0562E-05_JPRB,4.1836E-05_JPRB,4.4230E-05_JPRB,4.4708E-05_JPRB,4.3841E-05_JPRB,4.1868E-05_JPRB,&
+ & 3.8884E-05_JPRB,3.5908E-05_JPRB,4.7345E-04_JPRB/)  
+KAO( :, 1, 8, 1) = (/&
+ & 2.7321E-05_JPRB,3.0014E-05_JPRB,2.9442E-05_JPRB,2.8040E-05_JPRB,2.6171E-05_JPRB,2.3688E-05_JPRB,&
+ & 2.1169E-05_JPRB,2.1771E-05_JPRB,8.4757E-04_JPRB/)  
+KAO( :, 2, 8, 1) = (/&
+ & 2.6852E-05_JPRB,3.0756E-05_JPRB,3.0519E-05_JPRB,2.9342E-05_JPRB,2.7606E-05_JPRB,2.5285E-05_JPRB,&
+ & 2.2516E-05_JPRB,2.2054E-05_JPRB,8.3254E-04_JPRB/)  
+KAO( :, 3, 8, 1) = (/&
+ & 2.6744E-05_JPRB,3.2077E-05_JPRB,3.2249E-05_JPRB,3.1375E-05_JPRB,2.9814E-05_JPRB,2.7516E-05_JPRB,&
+ & 2.4584E-05_JPRB,2.2691E-05_JPRB,8.2738E-04_JPRB/)  
+KAO( :, 4, 8, 1) = (/&
+ & 2.7044E-05_JPRB,3.3995E-05_JPRB,3.4700E-05_JPRB,3.4193E-05_JPRB,3.2808E-05_JPRB,3.0482E-05_JPRB,&
+ & 2.7565E-05_JPRB,2.5008E-05_JPRB,8.3006E-04_JPRB/)  
+KAO( :, 5, 8, 1) = (/&
+ & 2.7742E-05_JPRB,3.6507E-05_JPRB,3.7912E-05_JPRB,3.7803E-05_JPRB,3.6547E-05_JPRB,3.4307E-05_JPRB,&
+ & 3.1271E-05_JPRB,2.8258E-05_JPRB,8.3842E-04_JPRB/)  
+KAO( :, 1, 9, 1) = (/&
+ & 2.4687E-05_JPRB,2.6227E-05_JPRB,2.5301E-05_JPRB,2.3694E-05_JPRB,2.1797E-05_JPRB,1.9441E-05_JPRB,&
+ & 1.7144E-05_JPRB,1.8070E-05_JPRB,3.0692E-03_JPRB/)  
+KAO( :, 2, 9, 1) = (/&
+ & 2.4149E-05_JPRB,2.6661E-05_JPRB,2.5983E-05_JPRB,2.4666E-05_JPRB,2.2860E-05_JPRB,2.0564E-05_JPRB,&
+ & 1.8143E-05_JPRB,1.7595E-05_JPRB,2.9547E-03_JPRB/)  
+KAO( :, 3, 9, 1) = (/&
+ & 2.3961E-05_JPRB,2.7611E-05_JPRB,2.7357E-05_JPRB,2.6251E-05_JPRB,2.4586E-05_JPRB,2.2361E-05_JPRB,&
+ & 1.9658E-05_JPRB,1.8317E-05_JPRB,2.8730E-03_JPRB/)  
+KAO( :, 4, 9, 1) = (/&
+ & 2.4159E-05_JPRB,2.9205E-05_JPRB,2.9375E-05_JPRB,2.8560E-05_JPRB,2.7008E-05_JPRB,2.4819E-05_JPRB,&
+ & 2.2013E-05_JPRB,1.9707E-05_JPRB,2.8257E-03_JPRB/)  
+KAO( :, 5, 9, 1) = (/&
+ & 2.4768E-05_JPRB,3.1434E-05_JPRB,3.2114E-05_JPRB,3.1586E-05_JPRB,3.0168E-05_JPRB,2.7970E-05_JPRB,&
+ & 2.5064E-05_JPRB,2.2198E-05_JPRB,2.8077E-03_JPRB/)  
+KAO( :, 1,10, 1) = (/&
+ & 2.1797E-05_JPRB,2.2612E-05_JPRB,2.1570E-05_JPRB,1.9956E-05_JPRB,1.8112E-05_JPRB,1.6002E-05_JPRB,&
+ & 1.3941E-05_JPRB,1.4620E-05_JPRB,1.2580E-02_JPRB/)  
+KAO( :, 2,10, 1) = (/&
+ & 2.1252E-05_JPRB,2.2866E-05_JPRB,2.2054E-05_JPRB,2.0662E-05_JPRB,1.8925E-05_JPRB,1.6823E-05_JPRB,&
+ & 1.4740E-05_JPRB,1.4291E-05_JPRB,1.1973E-02_JPRB/)  
+KAO( :, 3,10, 1) = (/&
+ & 2.1032E-05_JPRB,2.3616E-05_JPRB,2.3143E-05_JPRB,2.1982E-05_JPRB,2.0293E-05_JPRB,1.8202E-05_JPRB,&
+ & 1.5821E-05_JPRB,1.4749E-05_JPRB,1.1500E-02_JPRB/)  
+KAO( :, 4,10, 1) = (/&
+ & 2.1171E-05_JPRB,2.4967E-05_JPRB,2.4887E-05_JPRB,2.3890E-05_JPRB,2.2324E-05_JPRB,2.0262E-05_JPRB,&
+ & 1.7708E-05_JPRB,1.5622E-05_JPRB,1.1158E-02_JPRB/)  
+KAO( :, 5,10, 1) = (/&
+ & 2.1717E-05_JPRB,2.6968E-05_JPRB,2.7236E-05_JPRB,2.6488E-05_JPRB,2.5038E-05_JPRB,2.2971E-05_JPRB,&
+ & 2.0251E-05_JPRB,1.7568E-05_JPRB,1.0927E-02_JPRB/)  
+KAO( :, 1,11, 1) = (/&
+ & 1.8470E-05_JPRB,1.9129E-05_JPRB,1.8217E-05_JPRB,1.6833E-05_JPRB,1.5198E-05_JPRB,1.3363E-05_JPRB,&
+ & 1.1543E-05_JPRB,1.1814E-05_JPRB,1.7618E-02_JPRB/)  
+KAO( :, 2,11, 1) = (/&
+ & 1.8063E-05_JPRB,1.9445E-05_JPRB,1.8772E-05_JPRB,1.7526E-05_JPRB,1.5974E-05_JPRB,1.4135E-05_JPRB,&
+ & 1.2268E-05_JPRB,1.1501E-05_JPRB,1.6744E-02_JPRB/)  
+KAO( :, 3,11, 1) = (/&
+ & 1.7957E-05_JPRB,2.0240E-05_JPRB,1.9844E-05_JPRB,1.8765E-05_JPRB,1.7266E-05_JPRB,1.5419E-05_JPRB,&
+ & 1.3308E-05_JPRB,1.2031E-05_JPRB,1.6060E-02_JPRB/)  
+KAO( :, 4,11, 1) = (/&
+ & 1.8203E-05_JPRB,2.1589E-05_JPRB,2.1496E-05_JPRB,2.0575E-05_JPRB,1.9161E-05_JPRB,1.7309E-05_JPRB,&
+ & 1.5025E-05_JPRB,1.2988E-05_JPRB,1.5567E-02_JPRB/)  
+KAO( :, 5,11, 1) = (/&
+ & 1.8839E-05_JPRB,2.3539E-05_JPRB,2.3752E-05_JPRB,2.3027E-05_JPRB,2.1716E-05_JPRB,1.9862E-05_JPRB,&
+ & 1.7378E-05_JPRB,1.4830E-05_JPRB,1.5199E-02_JPRB/)  
+KAO( :, 1,12, 1) = (/&
+ & 1.5612E-05_JPRB,1.6179E-05_JPRB,1.5392E-05_JPRB,1.4206E-05_JPRB,1.2794E-05_JPRB,1.1200E-05_JPRB,&
+ & 9.6111E-06_JPRB,9.5638E-06_JPRB,1.8266E-02_JPRB/)  
+KAO( :, 2,12, 1) = (/&
+ & 1.5307E-05_JPRB,1.6515E-05_JPRB,1.5933E-05_JPRB,1.4844E-05_JPRB,1.3479E-05_JPRB,1.1890E-05_JPRB,&
+ & 1.0208E-05_JPRB,9.3516E-06_JPRB,1.7358E-02_JPRB/)  
+KAO( :, 3,12, 1) = (/&
+ & 1.5280E-05_JPRB,1.7278E-05_JPRB,1.6918E-05_JPRB,1.5945E-05_JPRB,1.4639E-05_JPRB,1.3025E-05_JPRB,&
+ & 1.1176E-05_JPRB,9.8024E-06_JPRB,1.6665E-02_JPRB/)  
+KAO( :, 4,12, 1) = (/&
+ & 1.5592E-05_JPRB,1.8520E-05_JPRB,1.8406E-05_JPRB,1.7580E-05_JPRB,1.6331E-05_JPRB,1.4710E-05_JPRB,&
+ & 1.2711E-05_JPRB,1.0774E-05_JPRB,1.6133E-02_JPRB/)  
+KAO( :, 5,12, 1) = (/&
+ & 1.6237E-05_JPRB,2.0286E-05_JPRB,2.0469E-05_JPRB,1.9802E-05_JPRB,1.8638E-05_JPRB,1.6992E-05_JPRB,&
+ & 1.4787E-05_JPRB,1.2409E-05_JPRB,1.5729E-02_JPRB/)  
+KAO( :, 1,13, 1) = (/&
+ & 1.3792E-05_JPRB,1.4238E-05_JPRB,1.3502E-05_JPRB,1.2414E-05_JPRB,1.1117E-05_JPRB,9.6608E-06_JPRB,&
+ & 8.1806E-06_JPRB,7.6738E-06_JPRB,1.5338E-02_JPRB/)  
+KAO( :, 2,13, 1) = (/&
+ & 1.3542E-05_JPRB,1.4555E-05_JPRB,1.3995E-05_JPRB,1.2981E-05_JPRB,1.1719E-05_JPRB,1.0269E-05_JPRB,&
+ & 8.6775E-06_JPRB,7.6029E-06_JPRB,1.4590E-02_JPRB/)  
+KAO( :, 3,13, 1) = (/&
+ & 1.3558E-05_JPRB,1.5256E-05_JPRB,1.4880E-05_JPRB,1.3955E-05_JPRB,1.2744E-05_JPRB,1.1268E-05_JPRB,&
+ & 9.5734E-06_JPRB,8.0878E-06_JPRB,1.4000E-02_JPRB/)  
+KAO( :, 4,13, 1) = (/&
+ & 1.3858E-05_JPRB,1.6375E-05_JPRB,1.6230E-05_JPRB,1.5419E-05_JPRB,1.4252E-05_JPRB,1.2754E-05_JPRB,&
+ & 1.0921E-05_JPRB,9.0320E-06_JPRB,1.3543E-02_JPRB/)  
+KAO( :, 5,13, 1) = (/&
+ & 1.4462E-05_JPRB,1.7948E-05_JPRB,1.8079E-05_JPRB,1.7409E-05_JPRB,1.6310E-05_JPRB,1.4770E-05_JPRB,&
+ & 1.2761E-05_JPRB,1.0416E-05_JPRB,1.3196E-02_JPRB/)  
+KAO( :, 1, 1, 2) = (/&
+ & 1.0631E-04_JPRB,1.5549E-04_JPRB,1.7340E-04_JPRB,1.8106E-04_JPRB,1.8266E-04_JPRB,1.7952E-04_JPRB,&
+ & 1.7173E-04_JPRB,1.6014E-04_JPRB,1.4099E-04_JPRB/)  
+KAO( :, 2, 1, 2) = (/&
+ & 1.0836E-04_JPRB,1.6879E-04_JPRB,1.9237E-04_JPRB,2.0382E-04_JPRB,2.0859E-04_JPRB,2.0748E-04_JPRB,&
+ & 2.0039E-04_JPRB,1.8243E-04_JPRB,1.5914E-04_JPRB/)  
+KAO( :, 3, 1, 2) = (/&
+ & 1.1141E-04_JPRB,1.8503E-04_JPRB,2.1527E-04_JPRB,2.3112E-04_JPRB,2.3976E-04_JPRB,2.4062E-04_JPRB,&
+ & 2.3400E-04_JPRB,2.1520E-04_JPRB,1.8165E-04_JPRB/)  
+KAO( :, 4, 1, 2) = (/&
+ & 1.1542E-04_JPRB,2.0406E-04_JPRB,2.4207E-04_JPRB,2.6306E-04_JPRB,2.7542E-04_JPRB,2.7832E-04_JPRB,&
+ & 2.7291E-04_JPRB,2.5096E-04_JPRB,2.0989E-04_JPRB/)  
+KAO( :, 5, 1, 2) = (/&
+ & 1.2040E-04_JPRB,2.2620E-04_JPRB,2.7276E-04_JPRB,2.9953E-04_JPRB,3.1543E-04_JPRB,3.2079E-04_JPRB,&
+ & 3.1620E-04_JPRB,2.8905E-04_JPRB,2.4408E-04_JPRB/)  
+KAO( :, 1, 2, 2) = (/&
+ & 9.2736E-05_JPRB,1.3080E-04_JPRB,1.4408E-04_JPRB,1.4918E-04_JPRB,1.4919E-04_JPRB,1.4563E-04_JPRB,&
+ & 1.3832E-04_JPRB,1.2913E-04_JPRB,1.3821E-04_JPRB/)  
+KAO( :, 2, 2, 2) = (/&
+ & 9.4585E-05_JPRB,1.4205E-04_JPRB,1.5994E-04_JPRB,1.6797E-04_JPRB,1.7060E-04_JPRB,1.6851E-04_JPRB,&
+ & 1.6121E-04_JPRB,1.4625E-04_JPRB,1.5045E-04_JPRB/)  
+KAO( :, 3, 2, 2) = (/&
+ & 9.7336E-05_JPRB,1.5584E-04_JPRB,1.7917E-04_JPRB,1.9059E-04_JPRB,1.9617E-04_JPRB,1.9585E-04_JPRB,&
+ & 1.8879E-04_JPRB,1.7257E-04_JPRB,1.6847E-04_JPRB/)  
+KAO( :, 4, 2, 2) = (/&
+ & 1.0100E-04_JPRB,1.7222E-04_JPRB,2.0175E-04_JPRB,2.1726E-04_JPRB,2.2590E-04_JPRB,2.2731E-04_JPRB,&
+ & 2.2070E-04_JPRB,2.0218E-04_JPRB,1.9129E-04_JPRB/)  
+KAO( :, 5, 2, 2) = (/&
+ & 1.0558E-04_JPRB,1.9122E-04_JPRB,2.2772E-04_JPRB,2.4801E-04_JPRB,2.5982E-04_JPRB,2.6260E-04_JPRB,&
+ & 2.5652E-04_JPRB,2.3358E-04_JPRB,2.1889E-04_JPRB/)  
+KAO( :, 1, 3, 2) = (/&
+ & 8.2078E-05_JPRB,1.0954E-04_JPRB,1.1829E-04_JPRB,1.2081E-04_JPRB,1.1948E-04_JPRB,1.1532E-04_JPRB,&
+ & 1.0856E-04_JPRB,1.0266E-04_JPRB,1.7007E-04_JPRB/)  
+KAO( :, 2, 3, 2) = (/&
+ & 8.3515E-05_JPRB,1.1841E-04_JPRB,1.3075E-04_JPRB,1.3555E-04_JPRB,1.3601E-04_JPRB,1.3281E-04_JPRB,&
+ & 1.2585E-04_JPRB,1.1400E-04_JPRB,1.7692E-04_JPRB/)  
+KAO( :, 3, 3, 2) = (/&
+ & 8.5702E-05_JPRB,1.2951E-04_JPRB,1.4617E-04_JPRB,1.5357E-04_JPRB,1.5612E-04_JPRB,1.5431E-04_JPRB,&
+ & 1.4752E-04_JPRB,1.3319E-04_JPRB,1.8883E-04_JPRB/)  
+KAO( :, 4, 3, 2) = (/&
+ & 8.8714E-05_JPRB,1.4294E-04_JPRB,1.6445E-04_JPRB,1.7481E-04_JPRB,1.7986E-04_JPRB,1.7967E-04_JPRB,&
+ & 1.7282E-04_JPRB,1.5669E-04_JPRB,2.0641E-04_JPRB/)  
+KAO( :, 5, 3, 2) = (/&
+ & 9.2653E-05_JPRB,1.5873E-04_JPRB,1.8560E-04_JPRB,1.9973E-04_JPRB,2.0749E-04_JPRB,2.0832E-04_JPRB,&
+ & 2.0174E-04_JPRB,1.8232E-04_JPRB,2.2828E-04_JPRB/)  
+KAO( :, 1, 4, 2) = (/&
+ & 7.5057E-05_JPRB,9.3742E-05_JPRB,9.8708E-05_JPRB,9.9032E-05_JPRB,9.6534E-05_JPRB,9.1631E-05_JPRB,&
+ & 8.5330E-05_JPRB,8.0637E-05_JPRB,2.4302E-04_JPRB/)  
+KAO( :, 2, 4, 2) = (/&
+ & 7.6019E-05_JPRB,1.0050E-04_JPRB,1.0818E-04_JPRB,1.1027E-04_JPRB,1.0900E-04_JPRB,1.0488E-04_JPRB,&
+ & 9.8357E-05_JPRB,8.9315E-05_JPRB,2.5003E-04_JPRB/)  
+KAO( :, 3, 4, 2) = (/&
+ & 7.7597E-05_JPRB,1.0920E-04_JPRB,1.2007E-04_JPRB,1.2426E-04_JPRB,1.2440E-04_JPRB,1.2138E-04_JPRB,&
+ & 1.1480E-04_JPRB,1.0183E-04_JPRB,2.5796E-04_JPRB/)  
+KAO( :, 4, 4, 2) = (/&
+ & 7.9952E-05_JPRB,1.1979E-04_JPRB,1.3449E-04_JPRB,1.4091E-04_JPRB,1.4297E-04_JPRB,1.4131E-04_JPRB,&
+ & 1.3468E-04_JPRB,1.2088E-04_JPRB,2.6766E-04_JPRB/)  
+KAO( :, 5, 4, 2) = (/&
+ & 8.3148E-05_JPRB,1.3259E-04_JPRB,1.5143E-04_JPRB,1.6061E-04_JPRB,1.6491E-04_JPRB,1.6427E-04_JPRB,&
+ & 1.5762E-04_JPRB,1.4129E-04_JPRB,2.8200E-04_JPRB/)  
+KAO( :, 1, 5, 2) = (/&
+ & 7.0507E-05_JPRB,8.2851E-05_JPRB,8.4727E-05_JPRB,8.3356E-05_JPRB,7.9669E-05_JPRB,7.4240E-05_JPRB,&
+ & 6.8168E-05_JPRB,6.4269E-05_JPRB,3.5533E-04_JPRB/)  
+KAO( :, 2, 5, 2) = (/&
+ & 7.1163E-05_JPRB,8.7993E-05_JPRB,9.1940E-05_JPRB,9.1728E-05_JPRB,8.9016E-05_JPRB,8.4180E-05_JPRB,&
+ & 7.7602E-05_JPRB,7.0901E-05_JPRB,3.6205E-04_JPRB/)  
+KAO( :, 3, 5, 2) = (/&
+ & 7.2353E-05_JPRB,9.4696E-05_JPRB,1.0096E-04_JPRB,1.0241E-04_JPRB,1.0073E-04_JPRB,9.6618E-05_JPRB,&
+ & 9.0257E-05_JPRB,7.9342E-05_JPRB,3.6910E-04_JPRB/)  
+KAO( :, 4, 5, 2) = (/&
+ & 7.4211E-05_JPRB,1.0309E-04_JPRB,1.1198E-04_JPRB,1.1540E-04_JPRB,1.1506E-04_JPRB,1.1201E-04_JPRB,&
+ & 1.0538E-04_JPRB,9.2743E-05_JPRB,3.7730E-04_JPRB/)  
+KAO( :, 5, 5, 2) = (/&
+ & 7.6842E-05_JPRB,1.1301E-04_JPRB,1.2533E-04_JPRB,1.3080E-04_JPRB,1.3221E-04_JPRB,1.3010E-04_JPRB,&
+ & 1.2341E-04_JPRB,1.0902E-04_JPRB,3.8882E-04_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB13:PART1',1,ZHOOK_HANDLE)
+END SUBROUTINE PART1
+
+
+SUBROUTINE PART2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB13:PART2',0,ZHOOK_HANDLE)
+
+
+KAO( :, 1, 6, 2) = (/&
+ & 6.7057E-05_JPRB,7.4992E-05_JPRB,7.4494E-05_JPRB,7.1808E-05_JPRB,6.7401E-05_JPRB,6.1558E-05_JPRB,&
+ & 5.5600E-05_JPRB,5.3582E-05_JPRB,5.2728E-04_JPRB/)  
+KAO( :, 2, 6, 2) = (/&
+ & 6.7342E-05_JPRB,7.8865E-05_JPRB,7.9962E-05_JPRB,7.8191E-05_JPRB,7.4156E-05_JPRB,6.8577E-05_JPRB,&
+ & 6.2398E-05_JPRB,5.6569E-05_JPRB,5.3013E-04_JPRB/)  
+KAO( :, 3, 6, 2) = (/&
+ & 6.8218E-05_JPRB,8.4114E-05_JPRB,8.7034E-05_JPRB,8.6152E-05_JPRB,8.2978E-05_JPRB,7.8073E-05_JPRB,&
+ & 7.1379E-05_JPRB,6.2472E-05_JPRB,5.3405E-04_JPRB/)  
+KAO( :, 4, 6, 2) = (/&
+ & 6.9765E-05_JPRB,9.0741E-05_JPRB,9.5513E-05_JPRB,9.6075E-05_JPRB,9.4001E-05_JPRB,8.9757E-05_JPRB,&
+ & 8.2727E-05_JPRB,7.1298E-05_JPRB,5.3812E-04_JPRB/)  
+KAO( :, 5, 6, 2) = (/&
+ & 7.2087E-05_JPRB,9.8694E-05_JPRB,1.0570E-04_JPRB,1.0811E-04_JPRB,1.0716E-04_JPRB,1.0356E-04_JPRB,&
+ & 9.6610E-05_JPRB,8.3845E-05_JPRB,5.4521E-04_JPRB/)  
+KAO( :, 1, 7, 2) = (/&
+ & 6.3981E-05_JPRB,6.8796E-05_JPRB,6.6960E-05_JPRB,6.3245E-05_JPRB,5.8395E-05_JPRB,5.2642E-05_JPRB,&
+ & 4.7017E-05_JPRB,4.3597E-05_JPRB,8.5561E-04_JPRB/)  
+KAO( :, 2, 7, 2) = (/&
+ & 6.4065E-05_JPRB,7.1972E-05_JPRB,7.1316E-05_JPRB,6.8334E-05_JPRB,6.3687E-05_JPRB,5.7772E-05_JPRB,&
+ & 5.1662E-05_JPRB,4.6088E-05_JPRB,8.4325E-04_JPRB/)  
+KAO( :, 3, 7, 2) = (/&
+ & 6.4710E-05_JPRB,7.6213E-05_JPRB,7.7049E-05_JPRB,7.4782E-05_JPRB,7.0451E-05_JPRB,6.4812E-05_JPRB,&
+ & 5.7879E-05_JPRB,5.0007E-05_JPRB,8.3547E-04_JPRB/)  
+KAO( :, 4, 7, 2) = (/&
+ & 6.6047E-05_JPRB,8.1740E-05_JPRB,8.4011E-05_JPRB,8.2492E-05_JPRB,7.9038E-05_JPRB,7.3729E-05_JPRB,&
+ & 6.6297E-05_JPRB,5.5934E-05_JPRB,8.3289E-04_JPRB/)  
+KAO( :, 5, 7, 2) = (/&
+ & 6.8167E-05_JPRB,8.8466E-05_JPRB,9.2188E-05_JPRB,9.2019E-05_JPRB,8.9278E-05_JPRB,8.4398E-05_JPRB,&
+ & 7.6796E-05_JPRB,6.5449E-05_JPRB,8.3519E-04_JPRB/)  
+KAO( :, 1, 8, 2) = (/&
+ & 6.2510E-05_JPRB,6.4632E-05_JPRB,6.1651E-05_JPRB,5.7339E-05_JPRB,5.1955E-05_JPRB,4.6202E-05_JPRB,&
+ & 4.0544E-05_JPRB,3.4871E-05_JPRB,1.7109E-03_JPRB/)  
+KAO( :, 2, 8, 2) = (/&
+ & 6.2657E-05_JPRB,6.7414E-05_JPRB,6.5438E-05_JPRB,6.1572E-05_JPRB,5.6549E-05_JPRB,5.0497E-05_JPRB,&
+ & 4.4065E-05_JPRB,3.7625E-05_JPRB,1.6570E-03_JPRB/)  
+KAO( :, 3, 8, 2) = (/&
+ & 6.3371E-05_JPRB,7.1203E-05_JPRB,7.0449E-05_JPRB,6.7168E-05_JPRB,6.2333E-05_JPRB,5.6127E-05_JPRB,&
+ & 4.8965E-05_JPRB,4.1883E-05_JPRB,1.6155E-03_JPRB/)  
+KAO( :, 4, 8, 2) = (/&
+ & 6.4738E-05_JPRB,7.6021E-05_JPRB,7.6569E-05_JPRB,7.3931E-05_JPRB,6.9329E-05_JPRB,6.3277E-05_JPRB,&
+ & 5.5409E-05_JPRB,4.5618E-05_JPRB,1.5874E-03_JPRB/)  
+KAO( :, 5, 8, 2) = (/&
+ & 6.6770E-05_JPRB,8.2019E-05_JPRB,8.3827E-05_JPRB,8.1865E-05_JPRB,7.7838E-05_JPRB,7.1738E-05_JPRB,&
+ & 6.3577E-05_JPRB,5.2190E-05_JPRB,1.5711E-03_JPRB/)  
+KAO( :, 1, 9, 2) = (/&
+ & 5.9728E-05_JPRB,5.9777E-05_JPRB,5.6068E-05_JPRB,5.1537E-05_JPRB,4.6074E-05_JPRB,4.0294E-05_JPRB,&
+ & 3.4429E-05_JPRB,2.7470E-05_JPRB,6.4927E-03_JPRB/)  
+KAO( :, 2, 9, 2) = (/&
+ & 6.0003E-05_JPRB,6.2162E-05_JPRB,5.9412E-05_JPRB,5.5191E-05_JPRB,4.9924E-05_JPRB,4.3949E-05_JPRB,&
+ & 3.7436E-05_JPRB,3.0651E-05_JPRB,6.2135E-03_JPRB/)  
+KAO( :, 3, 9, 2) = (/&
+ & 6.0913E-05_JPRB,6.5739E-05_JPRB,6.3824E-05_JPRB,6.0113E-05_JPRB,5.5046E-05_JPRB,4.8801E-05_JPRB,&
+ & 4.1506E-05_JPRB,3.4176E-05_JPRB,5.9805E-03_JPRB/)  
+KAO( :, 4, 9, 2) = (/&
+ & 6.2491E-05_JPRB,7.0239E-05_JPRB,6.9462E-05_JPRB,6.6167E-05_JPRB,6.1198E-05_JPRB,5.4677E-05_JPRB,&
+ & 4.6786E-05_JPRB,3.7966E-05_JPRB,5.7915E-03_JPRB/)  
+KAO( :, 5, 9, 2) = (/&
+ & 6.4708E-05_JPRB,7.5807E-05_JPRB,7.6215E-05_JPRB,7.3304E-05_JPRB,6.8390E-05_JPRB,6.1872E-05_JPRB,&
+ & 5.3436E-05_JPRB,4.2944E-05_JPRB,5.6478E-03_JPRB/)  
+KAO( :, 1,10, 2) = (/&
+ & 5.7126E-05_JPRB,5.5833E-05_JPRB,5.1557E-05_JPRB,4.6740E-05_JPRB,4.1349E-05_JPRB,3.5460E-05_JPRB,&
+ & 2.9383E-05_JPRB,2.2254E-05_JPRB,2.8102E-02_JPRB/)  
+KAO( :, 2,10, 2) = (/&
+ & 5.7625E-05_JPRB,5.8090E-05_JPRB,5.4514E-05_JPRB,5.0007E-05_JPRB,4.4659E-05_JPRB,3.8611E-05_JPRB,&
+ & 3.1928E-05_JPRB,2.5019E-05_JPRB,2.6630E-02_JPRB/)  
+KAO( :, 3,10, 2) = (/&
+ & 5.8840E-05_JPRB,6.1513E-05_JPRB,5.8714E-05_JPRB,5.4556E-05_JPRB,4.9297E-05_JPRB,4.2998E-05_JPRB,&
+ & 3.5795E-05_JPRB,2.7821E-05_JPRB,2.5370E-02_JPRB/)  
+KAO( :, 4,10, 2) = (/&
+ & 6.0763E-05_JPRB,6.6038E-05_JPRB,6.4072E-05_JPRB,6.0305E-05_JPRB,5.4952E-05_JPRB,4.8371E-05_JPRB,&
+ & 4.0375E-05_JPRB,3.1951E-05_JPRB,2.4311E-02_JPRB/)  
+KAO( :, 5,10, 2) = (/&
+ & 6.3372E-05_JPRB,7.1487E-05_JPRB,7.0499E-05_JPRB,6.7017E-05_JPRB,6.1584E-05_JPRB,5.4655E-05_JPRB,&
+ & 4.6116E-05_JPRB,3.6268E-05_JPRB,2.3439E-02_JPRB/)  
+KAO( :, 1,11, 2) = (/&
+ & 5.3603E-05_JPRB,5.2084E-05_JPRB,4.7825E-05_JPRB,4.2996E-05_JPRB,3.7707E-05_JPRB,3.1871E-05_JPRB,&
+ & 2.5749E-05_JPRB,1.8962E-05_JPRB,4.0768E-02_JPRB/)  
+KAO( :, 2,11, 2) = (/&
+ & 5.4665E-05_JPRB,5.4805E-05_JPRB,5.1049E-05_JPRB,4.6457E-05_JPRB,4.1159E-05_JPRB,3.5139E-05_JPRB,&
+ & 2.8405E-05_JPRB,2.1377E-05_JPRB,3.8491E-02_JPRB/)  
+KAO( :, 3,11, 2) = (/&
+ & 5.6497E-05_JPRB,5.8583E-05_JPRB,5.5394E-05_JPRB,5.1053E-05_JPRB,4.5792E-05_JPRB,3.9489E-05_JPRB,&
+ & 3.2243E-05_JPRB,2.4328E-05_JPRB,3.6513E-02_JPRB/)  
+KAO( :, 4,11, 2) = (/&
+ & 5.8985E-05_JPRB,6.3339E-05_JPRB,6.0862E-05_JPRB,5.6796E-05_JPRB,5.1415E-05_JPRB,4.4728E-05_JPRB,&
+ & 3.6818E-05_JPRB,2.8272E-05_JPRB,3.4835E-02_JPRB/)  
+KAO( :, 5,11, 2) = (/&
+ & 6.2109E-05_JPRB,6.9025E-05_JPRB,6.7331E-05_JPRB,6.3560E-05_JPRB,5.7958E-05_JPRB,5.0821E-05_JPRB,&
+ & 4.2238E-05_JPRB,3.2283E-05_JPRB,3.3538E-02_JPRB/)  
+KAO( :, 1,12, 2) = (/&
+ & 4.8218E-05_JPRB,4.6772E-05_JPRB,4.2783E-05_JPRB,3.8266E-05_JPRB,3.3329E-05_JPRB,2.7973E-05_JPRB,&
+ & 2.2210E-05_JPRB,1.6103E-05_JPRB,4.2855E-02_JPRB/)  
+KAO( :, 2,12, 2) = (/&
+ & 4.9589E-05_JPRB,4.9591E-05_JPRB,4.5984E-05_JPRB,4.1620E-05_JPRB,3.6685E-05_JPRB,3.1116E-05_JPRB,&
+ & 2.4857E-05_JPRB,1.8118E-05_JPRB,4.0385E-02_JPRB/)  
+KAO( :, 3,12, 2) = (/&
+ & 5.1684E-05_JPRB,5.3446E-05_JPRB,5.0256E-05_JPRB,4.6072E-05_JPRB,4.1058E-05_JPRB,3.5154E-05_JPRB,&
+ & 2.8460E-05_JPRB,2.1061E-05_JPRB,3.8259E-02_JPRB/)  
+KAO( :, 4,12, 2) = (/&
+ & 5.4404E-05_JPRB,5.8179E-05_JPRB,5.5538E-05_JPRB,5.1508E-05_JPRB,4.6383E-05_JPRB,4.0102E-05_JPRB,&
+ & 3.2710E-05_JPRB,2.4512E-05_JPRB,3.6555E-02_JPRB/)  
+KAO( :, 5,12, 2) = (/&
+ & 5.7705E-05_JPRB,6.3751E-05_JPRB,6.1743E-05_JPRB,5.7901E-05_JPRB,5.2567E-05_JPRB,4.5798E-05_JPRB,&
+ & 3.7620E-05_JPRB,2.8071E-05_JPRB,3.5258E-02_JPRB/)  
+KAO( :, 1,13, 2) = (/&
+ & 4.4847E-05_JPRB,4.3227E-05_JPRB,3.9370E-05_JPRB,3.5016E-05_JPRB,3.0292E-05_JPRB,2.5212E-05_JPRB,&
+ & 1.9650E-05_JPRB,1.3504E-05_JPRB,3.6293E-02_JPRB/)  
+KAO( :, 2,13, 2) = (/&
+ & 4.6428E-05_JPRB,4.6148E-05_JPRB,4.2554E-05_JPRB,3.8305E-05_JPRB,3.3519E-05_JPRB,2.8187E-05_JPRB,&
+ & 2.2241E-05_JPRB,1.5699E-05_JPRB,3.4162E-02_JPRB/)  
+KAO( :, 3,13, 2) = (/&
+ & 4.8652E-05_JPRB,5.0010E-05_JPRB,4.6740E-05_JPRB,4.2580E-05_JPRB,3.7668E-05_JPRB,3.2017E-05_JPRB,&
+ & 2.5602E-05_JPRB,1.8433E-05_JPRB,3.2408E-02_JPRB/)  
+KAO( :, 4,13, 2) = (/&
+ & 5.1540E-05_JPRB,5.4741E-05_JPRB,5.1862E-05_JPRB,4.7783E-05_JPRB,4.2732E-05_JPRB,3.6679E-05_JPRB,&
+ & 2.9552E-05_JPRB,2.1520E-05_JPRB,3.1021E-02_JPRB/)  
+KAO( :, 5,13, 2) = (/&
+ & 5.5009E-05_JPRB,6.0274E-05_JPRB,5.7902E-05_JPRB,5.3924E-05_JPRB,4.8654E-05_JPRB,4.2058E-05_JPRB,&
+ & 3.4024E-05_JPRB,2.4705E-05_JPRB,2.9920E-02_JPRB/)  
+KAO( :, 1, 1, 3) = (/&
+ & 2.1996E-04_JPRB,2.9526E-04_JPRB,3.2298E-04_JPRB,3.3886E-04_JPRB,3.4278E-04_JPRB,3.3270E-04_JPRB,&
+ & 3.0580E-04_JPRB,2.6421E-04_JPRB,1.9405E-04_JPRB/)  
+KAO( :, 2, 1, 3) = (/&
+ & 2.2777E-04_JPRB,3.2546E-04_JPRB,3.6631E-04_JPRB,3.9178E-04_JPRB,3.9976E-04_JPRB,3.8992E-04_JPRB,&
+ & 3.6015E-04_JPRB,3.0390E-04_JPRB,2.3244E-04_JPRB/)  
+KAO( :, 3, 1, 3) = (/&
+ & 2.3798E-04_JPRB,3.6240E-04_JPRB,4.1819E-04_JPRB,4.5171E-04_JPRB,4.6388E-04_JPRB,4.5403E-04_JPRB,&
+ & 4.2005E-04_JPRB,3.4862E-04_JPRB,2.7996E-04_JPRB/)  
+KAO( :, 4, 1, 3) = (/&
+ & 2.5036E-04_JPRB,4.0578E-04_JPRB,4.7739E-04_JPRB,5.1796E-04_JPRB,5.3466E-04_JPRB,5.2428E-04_JPRB,&
+ & 4.8540E-04_JPRB,4.0265E-04_JPRB,3.3613E-04_JPRB/)  
+KAO( :, 5, 1, 3) = (/&
+ & 2.6491E-04_JPRB,4.5514E-04_JPRB,5.4139E-04_JPRB,5.9019E-04_JPRB,6.1021E-04_JPRB,6.0113E-04_JPRB,&
+ & 5.5511E-04_JPRB,4.6549E-04_JPRB,4.0231E-04_JPRB/)  
+KAO( :, 1, 2, 3) = (/&
+ & 1.9023E-04_JPRB,2.4938E-04_JPRB,2.6928E-04_JPRB,2.7999E-04_JPRB,2.8164E-04_JPRB,2.7165E-04_JPRB,&
+ & 2.4816E-04_JPRB,2.1405E-04_JPRB,1.8605E-04_JPRB/)  
+KAO( :, 2, 2, 3) = (/&
+ & 1.9755E-04_JPRB,2.7578E-04_JPRB,3.0701E-04_JPRB,3.2514E-04_JPRB,3.2961E-04_JPRB,3.1950E-04_JPRB,&
+ & 2.9350E-04_JPRB,2.4834E-04_JPRB,2.1661E-04_JPRB/)  
+KAO( :, 3, 2, 3) = (/&
+ & 2.0698E-04_JPRB,3.0835E-04_JPRB,3.5213E-04_JPRB,3.7659E-04_JPRB,3.8400E-04_JPRB,3.7352E-04_JPRB,&
+ & 3.4485E-04_JPRB,2.8635E-04_JPRB,2.5484E-04_JPRB/)  
+KAO( :, 4, 2, 3) = (/&
+ & 2.1845E-04_JPRB,3.4704E-04_JPRB,4.0375E-04_JPRB,4.3389E-04_JPRB,4.4469E-04_JPRB,4.3366E-04_JPRB,&
+ & 4.0044E-04_JPRB,3.3118E-04_JPRB,3.0181E-04_JPRB/)  
+KAO( :, 5, 2, 3) = (/&
+ & 2.3191E-04_JPRB,3.9121E-04_JPRB,4.5961E-04_JPRB,4.9694E-04_JPRB,5.1051E-04_JPRB,5.0008E-04_JPRB,&
+ & 4.5954E-04_JPRB,3.8446E-04_JPRB,3.5821E-04_JPRB/)  
+KAO( :, 1, 3, 3) = (/&
+ & 1.6337E-04_JPRB,2.0696E-04_JPRB,2.1920E-04_JPRB,2.2438E-04_JPRB,2.2325E-04_JPRB,2.1342E-04_JPRB,&
+ & 1.9346E-04_JPRB,1.6754E-04_JPRB,2.2851E-04_JPRB/)  
+KAO( :, 2, 3, 3) = (/&
+ & 1.6969E-04_JPRB,2.2863E-04_JPRB,2.5003E-04_JPRB,2.6113E-04_JPRB,2.6214E-04_JPRB,2.5210E-04_JPRB,&
+ & 2.2996E-04_JPRB,1.9528E-04_JPRB,2.5004E-04_JPRB/)  
+KAO( :, 3, 3, 3) = (/&
+ & 1.7794E-04_JPRB,2.5581E-04_JPRB,2.8765E-04_JPRB,3.0386E-04_JPRB,3.0684E-04_JPRB,2.9654E-04_JPRB,&
+ & 2.7213E-04_JPRB,2.2576E-04_JPRB,2.7938E-04_JPRB/)  
+KAO( :, 4, 3, 3) = (/&
+ & 1.8809E-04_JPRB,2.8851E-04_JPRB,3.3100E-04_JPRB,3.5226E-04_JPRB,3.5780E-04_JPRB,3.4669E-04_JPRB,&
+ & 3.1871E-04_JPRB,2.6155E-04_JPRB,3.1781E-04_JPRB/)  
+KAO( :, 5, 3, 3) = (/&
+ & 2.0000E-04_JPRB,3.2610E-04_JPRB,3.7882E-04_JPRB,4.0593E-04_JPRB,4.1389E-04_JPRB,4.0266E-04_JPRB,&
+ & 3.6759E-04_JPRB,3.0486E-04_JPRB,3.6667E-04_JPRB/)  
+KAO( :, 1, 4, 3) = (/&
+ & 1.4241E-04_JPRB,1.7332E-04_JPRB,1.7952E-04_JPRB,1.8020E-04_JPRB,1.7647E-04_JPRB,1.6735E-04_JPRB,&
+ & 1.4973E-04_JPRB,1.3184E-04_JPRB,3.2106E-04_JPRB/)  
+KAO( :, 2, 4, 3) = (/&
+ & 1.4769E-04_JPRB,1.9050E-04_JPRB,2.0392E-04_JPRB,2.0940E-04_JPRB,2.0737E-04_JPRB,1.9737E-04_JPRB,&
+ & 1.7818E-04_JPRB,1.5166E-04_JPRB,3.3469E-04_JPRB/)  
+KAO( :, 3, 4, 3) = (/&
+ & 1.5465E-04_JPRB,2.1252E-04_JPRB,2.3439E-04_JPRB,2.4418E-04_JPRB,2.4355E-04_JPRB,2.3330E-04_JPRB,&
+ & 2.1176E-04_JPRB,1.7565E-04_JPRB,3.5614E-04_JPRB/)  
+KAO( :, 4, 4, 3) = (/&
+ & 1.6328E-04_JPRB,2.3941E-04_JPRB,2.6997E-04_JPRB,2.8414E-04_JPRB,2.8560E-04_JPRB,2.7432E-04_JPRB,&
+ & 2.4968E-04_JPRB,2.0300E-04_JPRB,3.8786E-04_JPRB/)  
+KAO( :, 5, 4, 3) = (/&
+ & 1.7360E-04_JPRB,2.7074E-04_JPRB,3.1000E-04_JPRB,3.2898E-04_JPRB,3.3251E-04_JPRB,3.2018E-04_JPRB,&
+ & 2.9030E-04_JPRB,2.3792E-04_JPRB,4.3003E-04_JPRB/)  
+KAO( :, 1, 5, 3) = (/&
+ & 1.2728E-04_JPRB,1.4778E-04_JPRB,1.4974E-04_JPRB,1.4737E-04_JPRB,1.4151E-04_JPRB,1.3231E-04_JPRB,&
+ & 1.1681E-04_JPRB,1.0270E-04_JPRB,4.7573E-04_JPRB/)  
+KAO( :, 2, 5, 3) = (/&
+ & 1.3157E-04_JPRB,1.6147E-04_JPRB,1.6852E-04_JPRB,1.6982E-04_JPRB,1.6546E-04_JPRB,1.5568E-04_JPRB,&
+ & 1.3883E-04_JPRB,1.1790E-04_JPRB,4.8146E-04_JPRB/)  
+KAO( :, 3, 5, 3) = (/&
+ & 1.3726E-04_JPRB,1.7914E-04_JPRB,1.9255E-04_JPRB,1.9744E-04_JPRB,1.9449E-04_JPRB,1.8411E-04_JPRB,&
+ & 1.6473E-04_JPRB,1.3672E-04_JPRB,4.9353E-04_JPRB/)  
+KAO( :, 4, 5, 3) = (/&
+ & 1.4435E-04_JPRB,2.0063E-04_JPRB,2.2141E-04_JPRB,2.2988E-04_JPRB,2.2840E-04_JPRB,2.1697E-04_JPRB,&
+ & 1.9533E-04_JPRB,1.5780E-04_JPRB,5.1440E-04_JPRB/)  
+KAO( :, 5, 5, 3) = (/&
+ & 1.5296E-04_JPRB,2.2635E-04_JPRB,2.5441E-04_JPRB,2.6691E-04_JPRB,2.6692E-04_JPRB,2.5417E-04_JPRB,&
+ & 2.2886E-04_JPRB,1.8463E-04_JPRB,5.4687E-04_JPRB/)  
+KAO( :, 1, 6, 3) = (/&
+ & 1.1763E-04_JPRB,1.2927E-04_JPRB,1.2797E-04_JPRB,1.2303E-04_JPRB,1.1545E-04_JPRB,1.0562E-04_JPRB,&
+ & 9.1765E-05_JPRB,7.9707E-05_JPRB,7.1798E-04_JPRB/)  
+KAO( :, 2, 6, 3) = (/&
+ & 1.2108E-04_JPRB,1.3972E-04_JPRB,1.4189E-04_JPRB,1.3941E-04_JPRB,1.3314E-04_JPRB,1.2332E-04_JPRB,&
+ & 1.0817E-04_JPRB,9.2633E-05_JPRB,7.1177E-04_JPRB/)  
+KAO( :, 3, 6, 3) = (/&
+ & 1.2566E-04_JPRB,1.5364E-04_JPRB,1.6005E-04_JPRB,1.6046E-04_JPRB,1.5545E-04_JPRB,1.4506E-04_JPRB,&
+ & 1.2802E-04_JPRB,1.0643E-04_JPRB,7.1286E-04_JPRB/)  
+KAO( :, 4, 6, 3) = (/&
+ & 1.3128E-04_JPRB,1.7051E-04_JPRB,1.8240E-04_JPRB,1.8616E-04_JPRB,1.8213E-04_JPRB,1.7092E-04_JPRB,&
+ & 1.5182E-04_JPRB,1.2232E-04_JPRB,7.2407E-04_JPRB/)  
+KAO( :, 5, 6, 3) = (/&
+ & 1.3815E-04_JPRB,1.9078E-04_JPRB,2.0902E-04_JPRB,2.1580E-04_JPRB,2.1291E-04_JPRB,2.0039E-04_JPRB,&
+ & 1.7876E-04_JPRB,1.4231E-04_JPRB,7.4599E-04_JPRB/)  
+KAO( :, 1, 7, 3) = (/&
+ & 1.1390E-04_JPRB,1.1947E-04_JPRB,1.1509E-04_JPRB,1.0795E-04_JPRB,9.8745E-05_JPRB,8.7676E-05_JPRB,&
+ & 7.3630E-05_JPRB,6.4348E-05_JPRB,1.1861E-03_JPRB/)  
+KAO( :, 2, 7, 3) = (/&
+ & 1.1683E-04_JPRB,1.2744E-04_JPRB,1.2545E-04_JPRB,1.1972E-04_JPRB,1.1135E-04_JPRB,1.0038E-04_JPRB,&
+ & 8.6144E-05_JPRB,7.3622E-05_JPRB,1.1591E-03_JPRB/)  
+KAO( :, 3, 7, 3) = (/&
+ & 1.2074E-04_JPRB,1.3815E-04_JPRB,1.3900E-04_JPRB,1.3526E-04_JPRB,1.2779E-04_JPRB,1.1675E-04_JPRB,&
+ & 1.0110E-04_JPRB,8.3354E-05_JPRB,1.1418E-03_JPRB/)  
+KAO( :, 4, 7, 3) = (/&
+ & 1.2564E-04_JPRB,1.5125E-04_JPRB,1.5566E-04_JPRB,1.5486E-04_JPRB,1.4804E-04_JPRB,1.3653E-04_JPRB,&
+ & 1.1897E-04_JPRB,9.5580E-05_JPRB,1.1345E-03_JPRB/)  
+KAO( :, 5, 7, 3) = (/&
+ & 1.3130E-04_JPRB,1.6685E-04_JPRB,1.7626E-04_JPRB,1.7784E-04_JPRB,1.7201E-04_JPRB,1.5950E-04_JPRB,&
+ & 1.4031E-04_JPRB,1.0987E-04_JPRB,1.1432E-03_JPRB/)  
+KAO( :, 1, 8, 3) = (/&
+ & 1.1676E-04_JPRB,1.1853E-04_JPRB,1.1141E-04_JPRB,1.0211E-04_JPRB,9.1156E-05_JPRB,7.8301E-05_JPRB,&
+ & 6.3522E-05_JPRB,5.5937E-05_JPRB,2.4094E-03_JPRB/)  
+KAO( :, 2, 8, 3) = (/&
+ & 1.1985E-04_JPRB,1.2513E-04_JPRB,1.1980E-04_JPRB,1.1130E-04_JPRB,1.0061E-04_JPRB,8.7533E-05_JPRB,&
+ & 7.2505E-05_JPRB,6.1035E-05_JPRB,2.3252E-03_JPRB/)  
+KAO( :, 3, 8, 3) = (/&
+ & 1.2377E-04_JPRB,1.3400E-04_JPRB,1.3053E-04_JPRB,1.2319E-04_JPRB,1.1282E-04_JPRB,9.9725E-05_JPRB,&
+ & 8.3671E-05_JPRB,6.6418E-05_JPRB,2.2547E-03_JPRB/)  
+KAO( :, 4, 8, 3) = (/&
+ & 1.2843E-04_JPRB,1.4498E-04_JPRB,1.4372E-04_JPRB,1.3796E-04_JPRB,1.2812E-04_JPRB,1.1463E-04_JPRB,&
+ & 9.6976E-05_JPRB,7.5638E-05_JPRB,2.2063E-03_JPRB/)  
+KAO( :, 5, 8, 3) = (/&
+ & 1.3377E-04_JPRB,1.5770E-04_JPRB,1.5943E-04_JPRB,1.5571E-04_JPRB,1.4617E-04_JPRB,1.3202E-04_JPRB,&
+ & 1.1296E-04_JPRB,8.6665E-05_JPRB,2.1851E-03_JPRB/)  
+KAO( :, 1, 9, 3) = (/&
+ & 1.1900E-04_JPRB,1.1760E-04_JPRB,1.0852E-04_JPRB,9.7634E-05_JPRB,8.5611E-05_JPRB,7.2038E-05_JPRB,&
+ & 5.7121E-05_JPRB,5.0882E-05_JPRB,9.3039E-03_JPRB/)  
+KAO( :, 2, 9, 3) = (/&
+ & 1.2244E-04_JPRB,1.2389E-04_JPRB,1.1590E-04_JPRB,1.0554E-04_JPRB,9.3325E-05_JPRB,7.9548E-05_JPRB,&
+ & 6.3970E-05_JPRB,5.3089E-05_JPRB,8.8588E-03_JPRB/)  
+KAO( :, 3, 9, 3) = (/&
+ & 1.2665E-04_JPRB,1.3180E-04_JPRB,1.2538E-04_JPRB,1.1542E-04_JPRB,1.0335E-04_JPRB,8.9270E-05_JPRB,&
+ & 7.2786E-05_JPRB,5.6389E-05_JPRB,8.4831E-03_JPRB/)  
+KAO( :, 4, 9, 3) = (/&
+ & 1.3137E-04_JPRB,1.4182E-04_JPRB,1.3671E-04_JPRB,1.2766E-04_JPRB,1.1600E-04_JPRB,1.0124E-04_JPRB,&
+ & 8.3094E-05_JPRB,6.1858E-05_JPRB,8.1874E-03_JPRB/)  
+KAO( :, 5, 9, 3) = (/&
+ & 1.3659E-04_JPRB,1.5316E-04_JPRB,1.4996E-04_JPRB,1.4235E-04_JPRB,1.3080E-04_JPRB,1.1485E-04_JPRB,&
+ & 9.5226E-05_JPRB,6.9785E-05_JPRB,7.9858E-03_JPRB/)  
+KAO( :, 1,10, 3) = (/&
+ & 1.2241E-04_JPRB,1.1830E-04_JPRB,1.0781E-04_JPRB,9.5617E-05_JPRB,8.2345E-05_JPRB,6.8338E-05_JPRB,&
+ & 5.2826E-05_JPRB,4.6160E-05_JPRB,4.0381E-02_JPRB/)  
+KAO( :, 2,10, 3) = (/&
+ & 1.2664E-04_JPRB,1.2454E-04_JPRB,1.1474E-04_JPRB,1.0301E-04_JPRB,8.9686E-05_JPRB,7.5133E-05_JPRB,&
+ & 5.8776E-05_JPRB,4.7480E-05_JPRB,3.8200E-02_JPRB/)  
+KAO( :, 3,10, 3) = (/&
+ & 1.3156E-04_JPRB,1.3237E-04_JPRB,1.2366E-04_JPRB,1.1203E-04_JPRB,9.8559E-05_JPRB,8.3570E-05_JPRB,&
+ & 6.6092E-05_JPRB,4.9993E-05_JPRB,3.6380E-02_JPRB/)  
+KAO( :, 4,10, 3) = (/&
+ & 1.3697E-04_JPRB,1.4182E-04_JPRB,1.3416E-04_JPRB,1.2285E-04_JPRB,1.0946E-04_JPRB,9.3555E-05_JPRB,&
+ & 7.4960E-05_JPRB,5.3295E-05_JPRB,3.4905E-02_JPRB/)  
+KAO( :, 5,10, 3) = (/&
+ & 1.4259E-04_JPRB,1.5277E-04_JPRB,1.4630E-04_JPRB,1.3560E-04_JPRB,1.2209E-04_JPRB,1.0520E-04_JPRB,&
+ & 8.5036E-05_JPRB,5.9404E-05_JPRB,3.3870E-02_JPRB/)  
+KAO( :, 1,11, 3) = (/&
+ & 1.2464E-04_JPRB,1.1924E-04_JPRB,1.0798E-04_JPRB,9.5208E-05_JPRB,8.1370E-05_JPRB,6.6802E-05_JPRB,&
+ & 5.0925E-05_JPRB,4.1000E-05_JPRB,5.9272E-02_JPRB/)  
+KAO( :, 2,11, 3) = (/&
+ & 1.2962E-04_JPRB,1.2601E-04_JPRB,1.1550E-04_JPRB,1.0297E-04_JPRB,8.8796E-05_JPRB,7.3413E-05_JPRB,&
+ & 5.6677E-05_JPRB,4.3091E-05_JPRB,5.5988E-02_JPRB/)  
+KAO( :, 3,11, 3) = (/&
+ & 1.3526E-04_JPRB,1.3432E-04_JPRB,1.2476E-04_JPRB,1.1207E-04_JPRB,9.7433E-05_JPRB,8.1433E-05_JPRB,&
+ & 6.3587E-05_JPRB,4.4893E-05_JPRB,5.3301E-02_JPRB/)  
+KAO( :, 4,11, 3) = (/&
+ & 1.4143E-04_JPRB,1.4433E-04_JPRB,1.3524E-04_JPRB,1.2250E-04_JPRB,1.0762E-04_JPRB,9.0841E-05_JPRB,&
+ & 7.1572E-05_JPRB,4.8589E-05_JPRB,5.1249E-02_JPRB/)  
+KAO( :, 5,11, 3) = (/&
+ & 1.4794E-04_JPRB,1.5535E-04_JPRB,1.4694E-04_JPRB,1.3429E-04_JPRB,1.1923E-04_JPRB,1.0163E-04_JPRB,&
+ & 8.0508E-05_JPRB,5.4223E-05_JPRB,4.9838E-02_JPRB/)  
+KAO( :, 1,12, 3) = (/&
+ & 1.1910E-04_JPRB,1.1316E-04_JPRB,1.0208E-04_JPRB,8.9709E-05_JPRB,7.6333E-05_JPRB,6.2180E-05_JPRB,&
+ & 4.7000E-05_JPRB,3.5676E-05_JPRB,6.3357E-02_JPRB/)  
+KAO( :, 2,12, 3) = (/&
+ & 1.2455E-04_JPRB,1.2008E-04_JPRB,1.0962E-04_JPRB,9.7228E-05_JPRB,8.3393E-05_JPRB,6.8465E-05_JPRB,&
+ & 5.2437E-05_JPRB,3.7619E-05_JPRB,5.9804E-02_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB13:PART2',1,ZHOOK_HANDLE)
+END SUBROUTINE PART2
+
+
+SUBROUTINE PART3
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB13:PART3',0,ZHOOK_HANDLE)
+
+
+KAO( :, 3,12, 3) = (/&
+ & 1.3047E-04_JPRB,1.2832E-04_JPRB,1.1854E-04_JPRB,1.0591E-04_JPRB,9.1615E-05_JPRB,7.5950E-05_JPRB,&
+ & 5.8544E-05_JPRB,3.9665E-05_JPRB,5.6934E-02_JPRB/)  
+KAO( :, 4,12, 3) = (/&
+ & 1.3670E-04_JPRB,1.3799E-04_JPRB,1.2856E-04_JPRB,1.1584E-04_JPRB,1.0096E-04_JPRB,8.4392E-05_JPRB,&
+ & 6.5619E-05_JPRB,4.3295E-05_JPRB,5.4726E-02_JPRB/)  
+KAO( :, 5,12, 3) = (/&
+ & 1.4329E-04_JPRB,1.4852E-04_JPRB,1.3961E-04_JPRB,1.2668E-04_JPRB,1.1132E-04_JPRB,9.3911E-05_JPRB,&
+ & 7.3404E-05_JPRB,4.8588E-05_JPRB,5.3331E-02_JPRB/)  
+KAO( :, 1,13, 3) = (/&
+ & 1.1744E-04_JPRB,1.1063E-04_JPRB,9.9314E-05_JPRB,8.6900E-05_JPRB,7.3501E-05_JPRB,5.9317E-05_JPRB,&
+ & 4.4384E-05_JPRB,3.1424E-05_JPRB,5.4422E-02_JPRB/)  
+KAO( :, 2,13, 3) = (/&
+ & 1.2299E-04_JPRB,1.1743E-04_JPRB,1.0678E-04_JPRB,9.4184E-05_JPRB,8.0294E-05_JPRB,6.5353E-05_JPRB,&
+ & 4.9396E-05_JPRB,3.3221E-05_JPRB,5.1307E-02_JPRB/)  
+KAO( :, 3,13, 3) = (/&
+ & 1.2905E-04_JPRB,1.2561E-04_JPRB,1.1534E-04_JPRB,1.0249E-04_JPRB,8.8036E-05_JPRB,7.2203E-05_JPRB,&
+ & 5.4868E-05_JPRB,3.5562E-05_JPRB,4.8781E-02_JPRB/)  
+KAO( :, 4,13, 3) = (/&
+ & 1.3536E-04_JPRB,1.3482E-04_JPRB,1.2477E-04_JPRB,1.1168E-04_JPRB,9.6529E-05_JPRB,7.9711E-05_JPRB,&
+ & 6.1059E-05_JPRB,3.9213E-05_JPRB,4.6937E-02_JPRB/)  
+KAO( :, 5,13, 3) = (/&
+ & 1.4199E-04_JPRB,1.4483E-04_JPRB,1.3499E-04_JPRB,1.2149E-04_JPRB,1.0563E-04_JPRB,8.7931E-05_JPRB,&
+ & 6.7855E-05_JPRB,4.4192E-05_JPRB,4.5940E-02_JPRB/)  
+KAO( :, 1, 1, 4) = (/&
+ & 5.9013E-04_JPRB,7.0245E-04_JPRB,7.3164E-04_JPRB,7.2179E-04_JPRB,6.8573E-04_JPRB,6.2586E-04_JPRB,&
+ & 5.3565E-04_JPRB,3.8435E-04_JPRB,2.9201E-04_JPRB/)  
+KAO( :, 2, 1, 4) = (/&
+ & 6.1984E-04_JPRB,7.6785E-04_JPRB,8.0887E-04_JPRB,8.0653E-04_JPRB,7.7581E-04_JPRB,7.1523E-04_JPRB,&
+ & 6.1584E-04_JPRB,4.5439E-04_JPRB,3.5568E-04_JPRB/)  
+KAO( :, 3, 1, 4) = (/&
+ & 6.5388E-04_JPRB,8.3863E-04_JPRB,8.9298E-04_JPRB,9.0379E-04_JPRB,8.7674E-04_JPRB,8.1428E-04_JPRB,&
+ & 7.0393E-04_JPRB,5.3376E-04_JPRB,4.3604E-04_JPRB/)  
+KAO( :, 4, 1, 4) = (/&
+ & 6.9104E-04_JPRB,9.1397E-04_JPRB,9.8676E-04_JPRB,1.0109E-03_JPRB,9.8675E-04_JPRB,9.2127E-04_JPRB,&
+ & 8.0143E-04_JPRB,6.2432E-04_JPRB,5.3306E-04_JPRB/)  
+KAO( :, 5, 1, 4) = (/&
+ & 7.3106E-04_JPRB,9.9279E-04_JPRB,1.0893E-03_JPRB,1.1247E-03_JPRB,1.1052E-03_JPRB,1.0359E-03_JPRB,&
+ & 9.1211E-04_JPRB,7.2751E-04_JPRB,6.4803E-04_JPRB/)  
+KAO( :, 1, 2, 4) = (/&
+ & 5.1187E-04_JPRB,6.0705E-04_JPRB,6.2677E-04_JPRB,6.1236E-04_JPRB,5.7704E-04_JPRB,5.2457E-04_JPRB,&
+ & 4.4788E-04_JPRB,3.2136E-04_JPRB,2.7655E-04_JPRB/)  
+KAO( :, 2, 2, 4) = (/&
+ & 5.4076E-04_JPRB,6.6478E-04_JPRB,6.9333E-04_JPRB,6.8548E-04_JPRB,6.5547E-04_JPRB,6.0224E-04_JPRB,&
+ & 5.1801E-04_JPRB,3.7991E-04_JPRB,3.3492E-04_JPRB/)  
+KAO( :, 3, 2, 4) = (/&
+ & 5.7303E-04_JPRB,7.2753E-04_JPRB,7.6688E-04_JPRB,7.7045E-04_JPRB,7.4435E-04_JPRB,6.8770E-04_JPRB,&
+ & 5.9408E-04_JPRB,4.4774E-04_JPRB,4.0831E-04_JPRB/)  
+KAO( :, 4, 2, 4) = (/&
+ & 6.0856E-04_JPRB,7.9562E-04_JPRB,8.4981E-04_JPRB,8.6454E-04_JPRB,8.3973E-04_JPRB,7.7971E-04_JPRB,&
+ & 6.7967E-04_JPRB,5.2619E-04_JPRB,4.9767E-04_JPRB/)  
+KAO( :, 5, 2, 4) = (/&
+ & 6.4744E-04_JPRB,8.6751E-04_JPRB,9.4144E-04_JPRB,9.6462E-04_JPRB,9.4185E-04_JPRB,8.7987E-04_JPRB,&
+ & 7.7686E-04_JPRB,6.1504E-04_JPRB,6.0360E-04_JPRB/)  
+KAO( :, 1, 3, 4) = (/&
+ & 4.3480E-04_JPRB,5.0939E-04_JPRB,5.1971E-04_JPRB,5.0362E-04_JPRB,4.7059E-04_JPRB,4.2466E-04_JPRB,&
+ & 3.6011E-04_JPRB,2.5628E-04_JPRB,3.1317E-04_JPRB/)  
+KAO( :, 2, 3, 4) = (/&
+ & 4.6125E-04_JPRB,5.5965E-04_JPRB,5.7749E-04_JPRB,5.6507E-04_JPRB,5.3629E-04_JPRB,4.9048E-04_JPRB,&
+ & 4.1883E-04_JPRB,3.0535E-04_JPRB,3.6323E-04_JPRB/)  
+KAO( :, 3, 3, 4) = (/&
+ & 4.9122E-04_JPRB,6.1523E-04_JPRB,6.4073E-04_JPRB,6.3706E-04_JPRB,6.1179E-04_JPRB,5.6184E-04_JPRB,&
+ & 4.8250E-04_JPRB,3.6188E-04_JPRB,4.3066E-04_JPRB/)  
+KAO( :, 4, 3, 4) = (/&
+ & 5.2513E-04_JPRB,6.7573E-04_JPRB,7.1288E-04_JPRB,7.1737E-04_JPRB,6.9265E-04_JPRB,6.3867E-04_JPRB,&
+ & 5.5339E-04_JPRB,4.2777E-04_JPRB,5.1587E-04_JPRB/)  
+KAO( :, 5, 3, 4) = (/&
+ & 5.6222E-04_JPRB,7.4076E-04_JPRB,7.9225E-04_JPRB,8.0338E-04_JPRB,7.7867E-04_JPRB,7.2219E-04_JPRB,&
+ & 6.3593E-04_JPRB,5.0139E-04_JPRB,6.1836E-04_JPRB/)  
+KAO( :, 1, 4, 4) = (/&
+ & 3.6976E-04_JPRB,4.2501E-04_JPRB,4.2710E-04_JPRB,4.1037E-04_JPRB,3.7995E-04_JPRB,3.3967E-04_JPRB,&
+ & 2.8574E-04_JPRB,1.9979E-04_JPRB,4.2399E-04_JPRB/)  
+KAO( :, 2, 4, 4) = (/&
+ & 3.9327E-04_JPRB,4.6788E-04_JPRB,4.7574E-04_JPRB,4.6106E-04_JPRB,4.3415E-04_JPRB,3.9414E-04_JPRB,&
+ & 3.3408E-04_JPRB,2.4080E-04_JPRB,4.6262E-04_JPRB/)  
+KAO( :, 3, 4, 4) = (/&
+ & 4.2065E-04_JPRB,5.1570E-04_JPRB,5.3050E-04_JPRB,5.2117E-04_JPRB,4.9670E-04_JPRB,4.5372E-04_JPRB,&
+ & 3.8660E-04_JPRB,2.8761E-04_JPRB,5.2104E-04_JPRB/)  
+KAO( :, 4, 4, 4) = (/&
+ & 4.5210E-04_JPRB,5.6870E-04_JPRB,5.9248E-04_JPRB,5.8890E-04_JPRB,5.6466E-04_JPRB,5.1691E-04_JPRB,&
+ & 4.4461E-04_JPRB,3.4096E-04_JPRB,6.0030E-04_JPRB/)  
+KAO( :, 5, 4, 4) = (/&
+ & 4.8655E-04_JPRB,6.2705E-04_JPRB,6.6097E-04_JPRB,6.6244E-04_JPRB,6.3703E-04_JPRB,5.8594E-04_JPRB,&
+ & 5.1212E-04_JPRB,4.0060E-04_JPRB,6.9904E-04_JPRB/)  
+KAO( :, 1, 5, 4) = (/&
+ & 3.1593E-04_JPRB,3.5529E-04_JPRB,3.5086E-04_JPRB,3.3304E-04_JPRB,3.0635E-04_JPRB,2.7113E-04_JPRB,&
+ & 2.2537E-04_JPRB,1.5625E-04_JPRB,6.0940E-04_JPRB/)  
+KAO( :, 2, 5, 4) = (/&
+ & 3.3652E-04_JPRB,3.9074E-04_JPRB,3.9127E-04_JPRB,3.7581E-04_JPRB,3.5016E-04_JPRB,3.1504E-04_JPRB,&
+ & 2.6515E-04_JPRB,1.8777E-04_JPRB,6.3592E-04_JPRB/)  
+KAO( :, 3, 5, 4) = (/&
+ & 3.6116E-04_JPRB,4.3121E-04_JPRB,4.3815E-04_JPRB,4.2535E-04_JPRB,4.0138E-04_JPRB,3.6428E-04_JPRB,&
+ & 3.0823E-04_JPRB,2.2541E-04_JPRB,6.8312E-04_JPRB/)  
+KAO( :, 4, 5, 4) = (/&
+ & 3.8955E-04_JPRB,4.7734E-04_JPRB,4.9105E-04_JPRB,4.8184E-04_JPRB,4.5822E-04_JPRB,4.1678E-04_JPRB,&
+ & 3.5536E-04_JPRB,2.6865E-04_JPRB,7.5327E-04_JPRB/)  
+KAO( :, 5, 5, 4) = (/&
+ & 4.2054E-04_JPRB,5.2915E-04_JPRB,5.4965E-04_JPRB,5.4417E-04_JPRB,5.1930E-04_JPRB,4.7415E-04_JPRB,&
+ & 4.0964E-04_JPRB,3.1712E-04_JPRB,8.4523E-04_JPRB/)  
+KAO( :, 1, 6, 4) = (/&
+ & 2.6945E-04_JPRB,2.9554E-04_JPRB,2.8676E-04_JPRB,2.6850E-04_JPRB,2.4490E-04_JPRB,2.1445E-04_JPRB,&
+ & 1.7595E-04_JPRB,1.2228E-04_JPRB,9.0714E-04_JPRB/)  
+KAO( :, 2, 6, 4) = (/&
+ & 2.8703E-04_JPRB,3.2438E-04_JPRB,3.1923E-04_JPRB,3.0362E-04_JPRB,2.8005E-04_JPRB,2.4944E-04_JPRB,&
+ & 2.0785E-04_JPRB,1.4399E-04_JPRB,9.1574E-04_JPRB/)  
+KAO( :, 3, 6, 4) = (/&
+ & 3.0826E-04_JPRB,3.5756E-04_JPRB,3.5816E-04_JPRB,3.4447E-04_JPRB,3.2155E-04_JPRB,2.8951E-04_JPRB,&
+ & 2.4288E-04_JPRB,1.7387E-04_JPRB,9.4950E-04_JPRB/)  
+KAO( :, 4, 6, 4) = (/&
+ & 3.3280E-04_JPRB,3.9668E-04_JPRB,4.0334E-04_JPRB,3.9114E-04_JPRB,3.6863E-04_JPRB,3.3278E-04_JPRB,&
+ & 2.8109E-04_JPRB,2.0888E-04_JPRB,1.0075E-03_JPRB/)  
+KAO( :, 5, 6, 4) = (/&
+ & 3.5966E-04_JPRB,4.4146E-04_JPRB,4.5343E-04_JPRB,4.4331E-04_JPRB,4.1953E-04_JPRB,3.7997E-04_JPRB,&
+ & 3.2403E-04_JPRB,2.4762E-04_JPRB,1.0914E-03_JPRB/)  
+KAO( :, 1, 7, 4) = (/&
+ & 2.3611E-04_JPRB,2.5013E-04_JPRB,2.3826E-04_JPRB,2.1972E-04_JPRB,1.9747E-04_JPRB,1.7091E-04_JPRB,&
+ & 1.3828E-04_JPRB,9.7674E-05_JPRB,1.5029E-03_JPRB/)  
+KAO( :, 2, 7, 4) = (/&
+ & 2.5027E-04_JPRB,2.7295E-04_JPRB,2.6351E-04_JPRB,2.4730E-04_JPRB,2.2544E-04_JPRB,1.9811E-04_JPRB,&
+ & 1.6292E-04_JPRB,1.1091E-04_JPRB,1.4865E-03_JPRB/)  
+KAO( :, 3, 7, 4) = (/&
+ & 2.6744E-04_JPRB,2.9951E-04_JPRB,2.9483E-04_JPRB,2.8048E-04_JPRB,2.5858E-04_JPRB,2.3043E-04_JPRB,&
+ & 1.9141E-04_JPRB,1.3387E-04_JPRB,1.5029E-03_JPRB/)  
+KAO( :, 4, 7, 4) = (/&
+ & 2.8737E-04_JPRB,3.3140E-04_JPRB,3.3216E-04_JPRB,3.1861E-04_JPRB,2.9712E-04_JPRB,2.6612E-04_JPRB,&
+ & 2.2227E-04_JPRB,1.6157E-04_JPRB,1.5533E-03_JPRB/)  
+KAO( :, 5, 7, 4) = (/&
+ & 3.0980E-04_JPRB,3.6893E-04_JPRB,3.7432E-04_JPRB,3.6173E-04_JPRB,3.3923E-04_JPRB,3.0465E-04_JPRB,&
+ & 2.5628E-04_JPRB,1.9217E-04_JPRB,1.6348E-03_JPRB/)  
+KAO( :, 1, 8, 4) = (/&
+ & 2.2652E-04_JPRB,2.2848E-04_JPRB,2.1284E-04_JPRB,1.9191E-04_JPRB,1.6879E-04_JPRB,1.4336E-04_JPRB,&
+ & 1.1285E-04_JPRB,7.9764E-05_JPRB,3.0781E-03_JPRB/)  
+KAO( :, 2, 8, 4) = (/&
+ & 2.3707E-04_JPRB,2.4545E-04_JPRB,2.3111E-04_JPRB,2.1207E-04_JPRB,1.8962E-04_JPRB,1.6330E-04_JPRB,&
+ & 1.3129E-04_JPRB,8.8046E-05_JPRB,3.0098E-03_JPRB/)  
+KAO( :, 3, 8, 4) = (/&
+ & 2.4991E-04_JPRB,2.6528E-04_JPRB,2.5454E-04_JPRB,2.3750E-04_JPRB,2.1491E-04_JPRB,1.8797E-04_JPRB,&
+ & 1.5356E-04_JPRB,1.0513E-04_JPRB,2.9995E-03_JPRB/)  
+KAO( :, 4, 8, 4) = (/&
+ & 2.6517E-04_JPRB,2.8955E-04_JPRB,2.8339E-04_JPRB,2.6733E-04_JPRB,2.4488E-04_JPRB,2.1619E-04_JPRB,&
+ & 1.7792E-04_JPRB,1.2592E-04_JPRB,3.0451E-03_JPRB/)  
+KAO( :, 5, 8, 4) = (/&
+ & 2.8248E-04_JPRB,3.1914E-04_JPRB,3.1724E-04_JPRB,3.0164E-04_JPRB,2.7867E-04_JPRB,2.4743E-04_JPRB,&
+ & 2.0485E-04_JPRB,1.4978E-04_JPRB,3.1535E-03_JPRB/)  
+KAO( :, 1, 9, 4) = (/&
+ & 2.3338E-04_JPRB,2.2637E-04_JPRB,2.0631E-04_JPRB,1.8248E-04_JPRB,1.5663E-04_JPRB,1.2940E-04_JPRB,&
+ & 9.8919E-05_JPRB,6.6772E-05_JPRB,1.1981E-02_JPRB/)  
+KAO( :, 2, 9, 4) = (/&
+ & 2.4198E-04_JPRB,2.3910E-04_JPRB,2.1989E-04_JPRB,1.9677E-04_JPRB,1.7190E-04_JPRB,1.4401E-04_JPRB,&
+ & 1.1186E-04_JPRB,7.2859E-05_JPRB,1.1621E-02_JPRB/)  
+KAO( :, 3, 9, 4) = (/&
+ & 2.5171E-04_JPRB,2.5396E-04_JPRB,2.3686E-04_JPRB,2.1562E-04_JPRB,1.9038E-04_JPRB,1.6141E-04_JPRB,&
+ & 1.2789E-04_JPRB,8.4203E-05_JPRB,1.1443E-02_JPRB/)  
+KAO( :, 4, 9, 4) = (/&
+ & 2.6331E-04_JPRB,2.7176E-04_JPRB,2.5835E-04_JPRB,2.3792E-04_JPRB,2.1195E-04_JPRB,1.8205E-04_JPRB,&
+ & 1.4597E-04_JPRB,9.9793E-05_JPRB,1.1469E-02_JPRB/)  
+KAO( :, 5, 9, 4) = (/&
+ & 2.7657E-04_JPRB,2.9387E-04_JPRB,2.8372E-04_JPRB,2.6346E-04_JPRB,2.3692E-04_JPRB,2.0548E-04_JPRB,&
+ & 1.6638E-04_JPRB,1.1782E-04_JPRB,1.1707E-02_JPRB/)  
+KAO( :, 1,10, 4) = (/&
+ & 2.4954E-04_JPRB,2.3620E-04_JPRB,2.1260E-04_JPRB,1.8570E-04_JPRB,1.5704E-04_JPRB,1.2663E-04_JPRB,&
+ & 9.4550E-05_JPRB,5.8858E-05_JPRB,5.2756E-02_JPRB/)  
+KAO( :, 2,10, 4) = (/&
+ & 2.5766E-04_JPRB,2.4800E-04_JPRB,2.2452E-04_JPRB,1.9756E-04_JPRB,1.6882E-04_JPRB,1.3823E-04_JPRB,&
+ & 1.0447E-04_JPRB,6.4244E-05_JPRB,5.0947E-02_JPRB/)  
+KAO( :, 3,10, 4) = (/&
+ & 2.6638E-04_JPRB,2.6038E-04_JPRB,2.3824E-04_JPRB,2.1240E-04_JPRB,1.8367E-04_JPRB,1.5156E-04_JPRB,&
+ & 1.1609E-04_JPRB,7.2825E-05_JPRB,5.0037E-02_JPRB/)  
+KAO( :, 4,10, 4) = (/&
+ & 2.7598E-04_JPRB,2.7501E-04_JPRB,2.5538E-04_JPRB,2.3010E-04_JPRB,2.0028E-04_JPRB,1.6662E-04_JPRB,&
+ & 1.2905E-04_JPRB,8.4471E-05_JPRB,5.0181E-02_JPRB/)  
+KAO( :, 5,10, 4) = (/&
+ & 2.8718E-04_JPRB,2.9275E-04_JPRB,2.7541E-04_JPRB,2.4987E-04_JPRB,2.1867E-04_JPRB,1.8373E-04_JPRB,&
+ & 1.4422E-04_JPRB,9.7498E-05_JPRB,5.1335E-02_JPRB/)  
+KAO( :, 1,11, 4) = (/&
+ & 2.6411E-04_JPRB,2.4710E-04_JPRB,2.2075E-04_JPRB,1.9143E-04_JPRB,1.6059E-04_JPRB,1.2809E-04_JPRB,&
+ & 9.4145E-05_JPRB,5.5264E-05_JPRB,7.9299E-02_JPRB/)  
+KAO( :, 2,11, 4) = (/&
+ & 2.7210E-04_JPRB,2.5809E-04_JPRB,2.3159E-04_JPRB,2.0221E-04_JPRB,1.7108E-04_JPRB,1.3827E-04_JPRB,&
+ & 1.0265E-04_JPRB,6.0771E-05_JPRB,7.7122E-02_JPRB/)  
+KAO( :, 3,11, 4) = (/&
+ & 2.8014E-04_JPRB,2.6895E-04_JPRB,2.4355E-04_JPRB,2.1491E-04_JPRB,1.8365E-04_JPRB,1.4942E-04_JPRB,&
+ & 1.1181E-04_JPRB,6.9122E-05_JPRB,7.6765E-02_JPRB/)  
+KAO( :, 4,11, 4) = (/&
+ & 2.8881E-04_JPRB,2.8113E-04_JPRB,2.5786E-04_JPRB,2.2946E-04_JPRB,1.9727E-04_JPRB,1.6160E-04_JPRB,&
+ & 1.2257E-04_JPRB,7.8465E-05_JPRB,7.8124E-02_JPRB/)  
+KAO( :, 5,11, 4) = (/&
+ & 2.9828E-04_JPRB,2.9581E-04_JPRB,2.7411E-04_JPRB,2.4589E-04_JPRB,2.1291E-04_JPRB,1.7587E-04_JPRB,&
+ & 1.3594E-04_JPRB,8.9600E-05_JPRB,8.1170E-02_JPRB/)  
+KAO( :, 1,12, 4) = (/&
+ & 2.5900E-04_JPRB,2.4054E-04_JPRB,2.1383E-04_JPRB,1.8455E-04_JPRB,1.5406E-04_JPRB,1.2218E-04_JPRB,&
+ & 8.8914E-05_JPRB,5.0392E-05_JPRB,8.6490E-02_JPRB/)  
+KAO( :, 2,12, 4) = (/&
+ & 2.6587E-04_JPRB,2.4971E-04_JPRB,2.2287E-04_JPRB,1.9390E-04_JPRB,1.6307E-04_JPRB,1.3059E-04_JPRB,&
+ & 9.5693E-05_JPRB,5.6200E-05_JPRB,8.4739E-02_JPRB/)  
+KAO( :, 3,12, 4) = (/&
+ & 2.7262E-04_JPRB,2.5871E-04_JPRB,2.3314E-04_JPRB,2.0445E-04_JPRB,1.7328E-04_JPRB,1.3985E-04_JPRB,&
+ & 1.0369E-04_JPRB,6.3281E-05_JPRB,8.5196E-02_JPRB/)  
+KAO( :, 4,12, 4) = (/&
+ & 2.7987E-04_JPRB,2.6889E-04_JPRB,2.4524E-04_JPRB,2.1669E-04_JPRB,1.8519E-04_JPRB,1.5064E-04_JPRB,&
+ & 1.1324E-04_JPRB,7.1445E-05_JPRB,8.7799E-02_JPRB/)  
+KAO( :, 5,12, 4) = (/&
+ & 2.8782E-04_JPRB,2.8193E-04_JPRB,2.5958E-04_JPRB,2.3156E-04_JPRB,1.9937E-04_JPRB,1.6355E-04_JPRB,&
+ & 1.2524E-04_JPRB,8.1256E-05_JPRB,9.2236E-02_JPRB/)  
+KAO( :, 1,13, 4) = (/&
+ & 2.5778E-04_JPRB,2.3735E-04_JPRB,2.0980E-04_JPRB,1.8003E-04_JPRB,1.4941E-04_JPRB,1.1772E-04_JPRB,&
+ & 8.4515E-05_JPRB,4.7447E-05_JPRB,7.6105E-02_JPRB/)  
+KAO( :, 2,13, 4) = (/&
+ & 2.6333E-04_JPRB,2.4457E-04_JPRB,2.1672E-04_JPRB,1.8743E-04_JPRB,1.5665E-04_JPRB,1.2434E-04_JPRB,&
+ & 9.0194E-05_JPRB,5.2576E-05_JPRB,7.5229E-02_JPRB/)  
+KAO( :, 3,13, 4) = (/&
+ & 2.6832E-04_JPRB,2.5148E-04_JPRB,2.2532E-04_JPRB,1.9639E-04_JPRB,1.6531E-04_JPRB,1.3247E-04_JPRB,&
+ & 9.7365E-05_JPRB,5.8706E-05_JPRB,7.6481E-02_JPRB/)  
+KAO( :, 4,13, 4) = (/&
+ & 2.7426E-04_JPRB,2.6072E-04_JPRB,2.3633E-04_JPRB,2.0753E-04_JPRB,1.7633E-04_JPRB,1.4258E-04_JPRB,&
+ & 1.0613E-04_JPRB,6.5878E-05_JPRB,7.9777E-02_JPRB/)  
+KAO( :, 5,13, 4) = (/&
+ & 2.8141E-04_JPRB,2.7288E-04_JPRB,2.4996E-04_JPRB,2.2169E-04_JPRB,1.8986E-04_JPRB,1.5488E-04_JPRB,&
+ & 1.1727E-04_JPRB,7.4750E-05_JPRB,8.4864E-02_JPRB/)  
+KAO( :, 1, 1, 5) = (/&
+ & 1.7137E-03_JPRB,1.6965E-03_JPRB,1.6056E-03_JPRB,1.4623E-03_JPRB,1.2864E-03_JPRB,1.0870E-03_JPRB,&
+ & 8.6301E-04_JPRB,6.0966E-04_JPRB,4.4058E-04_JPRB/)  
+KAO( :, 2, 1, 5) = (/&
+ & 1.7704E-03_JPRB,1.7874E-03_JPRB,1.7001E-03_JPRB,1.5551E-03_JPRB,1.3819E-03_JPRB,1.1838E-03_JPRB,&
+ & 9.5980E-04_JPRB,7.0743E-04_JPRB,5.5098E-04_JPRB/)  
+KAO( :, 3, 1, 5) = (/&
+ & 1.8247E-03_JPRB,1.8784E-03_JPRB,1.8001E-03_JPRB,1.6592E-03_JPRB,1.4952E-03_JPRB,1.3012E-03_JPRB,&
+ & 1.0846E-03_JPRB,8.2466E-04_JPRB,6.8654E-04_JPRB/)  
+KAO( :, 4, 1, 5) = (/&
+ & 1.8807E-03_JPRB,1.9750E-03_JPRB,1.9078E-03_JPRB,1.7834E-03_JPRB,1.6310E-03_JPRB,1.4483E-03_JPRB,&
+ & 1.2338E-03_JPRB,9.6045E-04_JPRB,8.5044E-04_JPRB/)  
+KAO( :, 5, 1, 5) = (/&
+ & 1.9386E-03_JPRB,2.0802E-03_JPRB,2.0314E-03_JPRB,1.9311E-03_JPRB,1.7973E-03_JPRB,1.6224E-03_JPRB,&
+ & 1.4041E-03_JPRB,1.1149E-03_JPRB,1.0435E-03_JPRB/)  
+KAO( :, 1, 2, 5) = (/&
+ & 1.5019E-03_JPRB,1.4891E-03_JPRB,1.4050E-03_JPRB,1.2791E-03_JPRB,1.1249E-03_JPRB,9.4471E-04_JPRB,&
+ & 7.4490E-04_JPRB,5.1735E-04_JPRB,4.2795E-04_JPRB/)  
+KAO( :, 2, 2, 5) = (/&
+ & 1.5481E-03_JPRB,1.5670E-03_JPRB,1.4869E-03_JPRB,1.3627E-03_JPRB,1.2086E-03_JPRB,1.0310E-03_JPRB,&
+ & 8.2991E-04_JPRB,6.0449E-04_JPRB,5.2985E-04_JPRB/)  
+KAO( :, 3, 2, 5) = (/&
+ & 1.5955E-03_JPRB,1.6464E-03_JPRB,1.5764E-03_JPRB,1.4549E-03_JPRB,1.3083E-03_JPRB,1.1370E-03_JPRB,&
+ & 9.3949E-04_JPRB,7.0586E-04_JPRB,6.5574E-04_JPRB/)  
+KAO( :, 4, 2, 5) = (/&
+ & 1.6449E-03_JPRB,1.7318E-03_JPRB,1.6759E-03_JPRB,1.5663E-03_JPRB,1.4318E-03_JPRB,1.2693E-03_JPRB,&
+ & 1.0703E-03_JPRB,8.2289E-04_JPRB,8.0944E-04_JPRB/)  
+KAO( :, 5, 2, 5) = (/&
+ & 1.6963E-03_JPRB,1.8275E-03_JPRB,1.7899E-03_JPRB,1.7018E-03_JPRB,1.5826E-03_JPRB,1.4255E-03_JPRB,&
+ & 1.2208E-03_JPRB,9.5732E-04_JPRB,9.9376E-04_JPRB/)  
+KAO( :, 1, 3, 5) = (/&
+ & 1.2946E-03_JPRB,1.2789E-03_JPRB,1.2021E-03_JPRB,1.0905E-03_JPRB,9.5582E-04_JPRB,7.9856E-04_JPRB,&
+ & 6.2419E-04_JPRB,4.2060E-04_JPRB,4.8597E-04_JPRB/)  
+KAO( :, 2, 3, 5) = (/&
+ & 1.3334E-03_JPRB,1.3450E-03_JPRB,1.2700E-03_JPRB,1.1621E-03_JPRB,1.0260E-03_JPRB,8.6938E-04_JPRB,&
+ & 6.9581E-04_JPRB,4.9333E-04_JPRB,5.8939E-04_JPRB/)  
+KAO( :, 3, 3, 5) = (/&
+ & 1.3735E-03_JPRB,1.4122E-03_JPRB,1.3468E-03_JPRB,1.2420E-03_JPRB,1.1098E-03_JPRB,9.5952E-04_JPRB,&
+ & 7.8793E-04_JPRB,5.7747E-04_JPRB,7.1825E-04_JPRB/)  
+KAO( :, 4, 3, 5) = (/&
+ & 1.4149E-03_JPRB,1.4860E-03_JPRB,1.4348E-03_JPRB,1.3382E-03_JPRB,1.2156E-03_JPRB,1.0728E-03_JPRB,&
+ & 8.9873E-04_JPRB,6.7617E-04_JPRB,8.7351E-04_JPRB/)  
+KAO( :, 5, 3, 5) = (/&
+ & 1.4592E-03_JPRB,1.5699E-03_JPRB,1.5381E-03_JPRB,1.4563E-03_JPRB,1.3459E-03_JPRB,1.2082E-03_JPRB,&
+ & 1.0276E-03_JPRB,7.9087E-04_JPRB,1.0595E-03_JPRB/)  
+KAO( :, 1, 4, 5) = (/&
+ & 1.1144E-03_JPRB,1.0934E-03_JPRB,1.0240E-03_JPRB,9.2287E-04_JPRB,8.0421E-04_JPRB,6.6808E-04_JPRB,&
+ & 5.1730E-04_JPRB,3.3813E-04_JPRB,6.1462E-04_JPRB/)  
+KAO( :, 2, 4, 5) = (/&
+ & 1.1469E-03_JPRB,1.1488E-03_JPRB,1.0800E-03_JPRB,9.8253E-04_JPRB,8.6268E-04_JPRB,7.2497E-04_JPRB,&
+ & 5.7476E-04_JPRB,3.9764E-04_JPRB,7.1472E-04_JPRB/)  
+KAO( :, 3, 4, 5) = (/&
+ & 1.1797E-03_JPRB,1.2067E-03_JPRB,1.1428E-03_JPRB,1.0501E-03_JPRB,9.3226E-04_JPRB,7.9746E-04_JPRB,&
+ & 6.5011E-04_JPRB,4.6691E-04_JPRB,8.5032E-04_JPRB/)  
+KAO( :, 4, 4, 5) = (/&
+ & 1.2139E-03_JPRB,1.2682E-03_JPRB,1.2174E-03_JPRB,1.1319E-03_JPRB,1.0196E-03_JPRB,8.9229E-04_JPRB,&
+ & 7.4246E-04_JPRB,5.4839E-04_JPRB,1.0185E-03_JPRB/)  
+KAO( :, 5, 4, 5) = (/&
+ & 1.2525E-03_JPRB,1.3386E-03_JPRB,1.3069E-03_JPRB,1.2320E-03_JPRB,1.1286E-03_JPRB,1.0072E-03_JPRB,&
+ & 8.5027E-04_JPRB,6.4344E-04_JPRB,1.2190E-03_JPRB/)  
+KAO( :, 1, 5, 5) = (/&
+ & 9.5403E-04_JPRB,9.3019E-04_JPRB,8.6917E-04_JPRB,7.7882E-04_JPRB,6.7397E-04_JPRB,5.5681E-04_JPRB,&
+ & 4.2732E-04_JPRB,2.7040E-04_JPRB,8.4167E-04_JPRB/)  
+KAO( :, 2, 5, 5) = (/&
+ & 9.8163E-04_JPRB,9.7748E-04_JPRB,9.1548E-04_JPRB,8.2676E-04_JPRB,7.2236E-04_JPRB,6.0295E-04_JPRB,&
+ & 4.7188E-04_JPRB,3.1812E-04_JPRB,9.2459E-04_JPRB/)  
+KAO( :, 3, 5, 5) = (/&
+ & 1.0087E-03_JPRB,1.0268E-03_JPRB,9.6743E-04_JPRB,8.8361E-04_JPRB,7.8023E-04_JPRB,6.6112E-04_JPRB,&
+ & 5.3219E-04_JPRB,3.7543E-04_JPRB,1.0523E-03_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB13:PART3',1,ZHOOK_HANDLE)
+END SUBROUTINE PART3
+
+
+SUBROUTINE PART4
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB13:PART4',0,ZHOOK_HANDLE)
+
+
+KAO( :, 4, 5, 5) = (/&
+ & 1.0377E-03_JPRB,1.0786E-03_JPRB,1.0288E-03_JPRB,9.5341E-04_JPRB,8.5203E-04_JPRB,7.3754E-04_JPRB,&
+ & 6.0792E-04_JPRB,4.4270E-04_JPRB,1.2261E-03_JPRB/)  
+KAO( :, 5, 5, 5) = (/&
+ & 1.0724E-03_JPRB,1.1380E-03_JPRB,1.1047E-03_JPRB,1.0358E-03_JPRB,9.4134E-04_JPRB,8.3220E-04_JPRB,&
+ & 6.9728E-04_JPRB,5.2081E-04_JPRB,1.4470E-03_JPRB/)  
+KAO( :, 1, 6, 5) = (/&
+ & 8.0588E-04_JPRB,7.8134E-04_JPRB,7.2703E-04_JPRB,6.4891E-04_JPRB,5.5742E-04_JPRB,4.5781E-04_JPRB,&
+ & 3.4857E-04_JPRB,2.1150E-04_JPRB,1.1955E-03_JPRB/)  
+KAO( :, 2, 6, 5) = (/&
+ & 8.2987E-04_JPRB,8.2145E-04_JPRB,7.6654E-04_JPRB,6.8713E-04_JPRB,5.9710E-04_JPRB,4.9603E-04_JPRB,&
+ & 3.8344E-04_JPRB,2.5028E-04_JPRB,1.2644E-03_JPRB/)  
+KAO( :, 3, 6, 5) = (/&
+ & 8.5260E-04_JPRB,8.6248E-04_JPRB,8.0901E-04_JPRB,7.3393E-04_JPRB,6.4549E-04_JPRB,5.4230E-04_JPRB,&
+ & 4.3028E-04_JPRB,2.9597E-04_JPRB,1.3809E-03_JPRB/)  
+KAO( :, 4, 6, 5) = (/&
+ & 8.7789E-04_JPRB,9.0633E-04_JPRB,8.5910E-04_JPRB,7.9201E-04_JPRB,7.0399E-04_JPRB,6.0291E-04_JPRB,&
+ & 4.9056E-04_JPRB,3.5045E-04_JPRB,1.5502E-03_JPRB/)  
+KAO( :, 5, 6, 5) = (/&
+ & 9.0920E-04_JPRB,9.5736E-04_JPRB,9.2249E-04_JPRB,8.6100E-04_JPRB,7.7647E-04_JPRB,6.7926E-04_JPRB,&
+ & 5.6406E-04_JPRB,4.1413E-04_JPRB,1.7775E-03_JPRB/)  
+KAO( :, 1, 7, 5) = (/&
+ & 6.7718E-04_JPRB,6.5283E-04_JPRB,6.0385E-04_JPRB,5.3746E-04_JPRB,4.5928E-04_JPRB,3.7434E-04_JPRB,&
+ & 2.8222E-04_JPRB,1.6381E-04_JPRB,1.9446E-03_JPRB/)  
+KAO( :, 2, 7, 5) = (/&
+ & 6.9831E-04_JPRB,6.8657E-04_JPRB,6.3767E-04_JPRB,5.6836E-04_JPRB,4.9039E-04_JPRB,4.0548E-04_JPRB,&
+ & 3.1038E-04_JPRB,1.9535E-04_JPRB,2.0007E-03_JPRB/)  
+KAO( :, 3, 7, 5) = (/&
+ & 7.1868E-04_JPRB,7.2062E-04_JPRB,6.7244E-04_JPRB,6.0563E-04_JPRB,5.3050E-04_JPRB,4.4299E-04_JPRB,&
+ & 3.4588E-04_JPRB,2.3206E-04_JPRB,2.1166E-03_JPRB/)  
+KAO( :, 4, 7, 5) = (/&
+ & 7.4125E-04_JPRB,7.5799E-04_JPRB,7.1378E-04_JPRB,6.5339E-04_JPRB,5.7827E-04_JPRB,4.9033E-04_JPRB,&
+ & 3.9327E-04_JPRB,2.7533E-04_JPRB,2.2963E-03_JPRB/)  
+KAO( :, 5, 7, 5) = (/&
+ & 7.6923E-04_JPRB,8.0202E-04_JPRB,7.6642E-04_JPRB,7.1096E-04_JPRB,6.3687E-04_JPRB,5.5087E-04_JPRB,&
+ & 4.5258E-04_JPRB,3.2683E-04_JPRB,2.5393E-03_JPRB/)  
+KAO( :, 1, 8, 5) = (/&
+ & 5.7599E-04_JPRB,5.5064E-04_JPRB,5.0518E-04_JPRB,4.4746E-04_JPRB,3.8078E-04_JPRB,3.0749E-04_JPRB,&
+ & 2.2925E-04_JPRB,1.2727E-04_JPRB,4.0446E-03_JPRB/)  
+KAO( :, 2, 8, 5) = (/&
+ & 5.9400E-04_JPRB,5.7851E-04_JPRB,5.3320E-04_JPRB,4.7317E-04_JPRB,4.0494E-04_JPRB,3.3229E-04_JPRB,&
+ & 2.5224E-04_JPRB,1.5307E-04_JPRB,4.1120E-03_JPRB/)  
+KAO( :, 3, 8, 5) = (/&
+ & 6.1213E-04_JPRB,6.0695E-04_JPRB,5.6225E-04_JPRB,5.0253E-04_JPRB,4.3721E-04_JPRB,3.6322E-04_JPRB,&
+ & 2.7965E-04_JPRB,1.8169E-04_JPRB,4.2811E-03_JPRB/)  
+KAO( :, 4, 8, 5) = (/&
+ & 6.3202E-04_JPRB,6.3848E-04_JPRB,5.9649E-04_JPRB,5.4156E-04_JPRB,4.7672E-04_JPRB,4.0069E-04_JPRB,&
+ & 3.1617E-04_JPRB,2.1644E-04_JPRB,4.5447E-03_JPRB/)  
+KAO( :, 5, 8, 5) = (/&
+ & 6.5665E-04_JPRB,6.7566E-04_JPRB,6.4050E-04_JPRB,5.8944E-04_JPRB,5.2476E-04_JPRB,4.4890E-04_JPRB,&
+ & 3.6328E-04_JPRB,2.5754E-04_JPRB,4.8900E-03_JPRB/)  
+KAO( :, 1, 9, 5) = (/&
+ & 5.0775E-04_JPRB,4.7779E-04_JPRB,4.3345E-04_JPRB,3.8064E-04_JPRB,3.2167E-04_JPRB,2.5711E-04_JPRB,&
+ & 1.8824E-04_JPRB,1.0074E-04_JPRB,1.6194E-02_JPRB/)  
+KAO( :, 2, 9, 5) = (/&
+ & 5.2113E-04_JPRB,4.9905E-04_JPRB,4.5480E-04_JPRB,4.0079E-04_JPRB,3.3970E-04_JPRB,2.7482E-04_JPRB,&
+ & 2.0609E-04_JPRB,1.2012E-04_JPRB,1.6408E-02_JPRB/)  
+KAO( :, 3, 9, 5) = (/&
+ & 5.3522E-04_JPRB,5.2108E-04_JPRB,4.7732E-04_JPRB,4.2276E-04_JPRB,3.6348E-04_JPRB,2.9937E-04_JPRB,&
+ & 2.2764E-04_JPRB,1.4255E-04_JPRB,1.6992E-02_JPRB/)  
+KAO( :, 4, 9, 5) = (/&
+ & 5.5077E-04_JPRB,5.4517E-04_JPRB,5.0402E-04_JPRB,4.5270E-04_JPRB,3.9497E-04_JPRB,3.2945E-04_JPRB,&
+ & 2.5566E-04_JPRB,1.6981E-04_JPRB,1.7864E-02_JPRB/)  
+KAO( :, 5, 9, 5) = (/&
+ & 5.6949E-04_JPRB,5.7445E-04_JPRB,5.3893E-04_JPRB,4.9094E-04_JPRB,4.3412E-04_JPRB,3.6760E-04_JPRB,&
+ & 2.9217E-04_JPRB,2.0252E-04_JPRB,1.8952E-02_JPRB/)  
+KAO( :, 1,10, 5) = (/&
+ & 4.9717E-04_JPRB,4.5696E-04_JPRB,4.0763E-04_JPRB,3.5309E-04_JPRB,2.9433E-04_JPRB,2.3192E-04_JPRB,&
+ & 1.6609E-04_JPRB,8.8589E-05_JPRB,7.4795E-02_JPRB/)  
+KAO( :, 2,10, 5) = (/&
+ & 5.0423E-04_JPRB,4.7002E-04_JPRB,4.2162E-04_JPRB,3.6653E-04_JPRB,3.0673E-04_JPRB,2.4316E-04_JPRB,&
+ & 1.7817E-04_JPRB,1.0118E-04_JPRB,7.6452E-02_JPRB/)  
+KAO( :, 3,10, 5) = (/&
+ & 5.1212E-04_JPRB,4.8431E-04_JPRB,4.3650E-04_JPRB,3.8161E-04_JPRB,3.2242E-04_JPRB,2.6059E-04_JPRB,&
+ & 1.9440E-04_JPRB,1.1733E-04_JPRB,7.9783E-02_JPRB/)  
+KAO( :, 4,10, 5) = (/&
+ & 5.2160E-04_JPRB,5.0030E-04_JPRB,4.5482E-04_JPRB,4.0224E-04_JPRB,3.4538E-04_JPRB,2.8370E-04_JPRB,&
+ & 2.1573E-04_JPRB,1.3763E-04_JPRB,8.4425E-02_JPRB/)  
+KAO( :, 5,10, 5) = (/&
+ & 5.3403E-04_JPRB,5.2047E-04_JPRB,4.8022E-04_JPRB,4.3074E-04_JPRB,3.7548E-04_JPRB,3.1365E-04_JPRB,&
+ & 2.4302E-04_JPRB,1.6290E-04_JPRB,8.9982E-02_JPRB/)  
+KAO( :, 1,11, 5) = (/&
+ & 5.0375E-04_JPRB,4.5815E-04_JPRB,4.0474E-04_JPRB,3.4759E-04_JPRB,2.8717E-04_JPRB,2.2431E-04_JPRB,&
+ & 1.5880E-04_JPRB,8.5670E-05_JPRB,1.2034E-01_JPRB/)  
+KAO( :, 2,11, 5) = (/&
+ & 5.0787E-04_JPRB,4.6747E-04_JPRB,4.1520E-04_JPRB,3.5802E-04_JPRB,2.9753E-04_JPRB,2.3416E-04_JPRB,&
+ & 1.6914E-04_JPRB,9.5910E-05_JPRB,1.2557E-01_JPRB/)  
+KAO( :, 3,11, 5) = (/&
+ & 5.1316E-04_JPRB,4.7918E-04_JPRB,4.2800E-04_JPRB,3.7201E-04_JPRB,3.1196E-04_JPRB,2.4926E-04_JPRB,&
+ & 1.8340E-04_JPRB,1.0921E-04_JPRB,1.3355E-01_JPRB/)  
+KAO( :, 4,11, 5) = (/&
+ & 5.2086E-04_JPRB,4.9333E-04_JPRB,4.4531E-04_JPRB,3.9163E-04_JPRB,3.3267E-04_JPRB,2.6993E-04_JPRB,&
+ & 2.0215E-04_JPRB,1.2601E-04_JPRB,1.4382E-01_JPRB/)  
+KAO( :, 5,11, 5) = (/&
+ & 5.3248E-04_JPRB,5.1252E-04_JPRB,4.7016E-04_JPRB,4.1783E-04_JPRB,3.5976E-04_JPRB,2.9627E-04_JPRB,&
+ & 2.2508E-04_JPRB,1.4674E-04_JPRB,1.5553E-01_JPRB/)  
+KAO( :, 1,12, 5) = (/&
+ & 4.8240E-04_JPRB,4.3715E-04_JPRB,3.8420E-04_JPRB,3.2860E-04_JPRB,2.7039E-04_JPRB,2.1019E-04_JPRB,&
+ & 1.4796E-04_JPRB,8.0464E-05_JPRB,1.3884E-01_JPRB/)  
+KAO( :, 2,12, 5) = (/&
+ & 4.8661E-04_JPRB,4.4595E-04_JPRB,3.9410E-04_JPRB,3.3838E-04_JPRB,2.8030E-04_JPRB,2.1996E-04_JPRB,&
+ & 1.5763E-04_JPRB,8.9327E-05_JPRB,1.4656E-01_JPRB/)  
+KAO( :, 3,12, 5) = (/&
+ & 4.9262E-04_JPRB,4.5710E-04_JPRB,4.0631E-04_JPRB,3.5229E-04_JPRB,2.9463E-04_JPRB,2.3404E-04_JPRB,&
+ & 1.7076E-04_JPRB,1.0107E-04_JPRB,1.5747E-01_JPRB/)  
+KAO( :, 4,12, 5) = (/&
+ & 5.0100E-04_JPRB,4.7173E-04_JPRB,4.2405E-04_JPRB,3.7163E-04_JPRB,3.1400E-04_JPRB,2.5322E-04_JPRB,&
+ & 1.8793E-04_JPRB,1.1578E-04_JPRB,1.7108E-01_JPRB/)  
+KAO( :, 5,12, 5) = (/&
+ & 5.1336E-04_JPRB,4.9148E-04_JPRB,4.4858E-04_JPRB,3.9659E-04_JPRB,3.3958E-04_JPRB,2.7759E-04_JPRB,&
+ & 2.0885E-04_JPRB,1.3367E-04_JPRB,1.8676E-01_JPRB/)  
+KAO( :, 1,13, 5) = (/&
+ & 4.6582E-04_JPRB,4.2090E-04_JPRB,3.6844E-04_JPRB,3.1420E-04_JPRB,2.5774E-04_JPRB,1.9961E-04_JPRB,&
+ & 1.4017E-04_JPRB,7.6735E-05_JPRB,1.3087E-01_JPRB/)  
+KAO( :, 2,13, 5) = (/&
+ & 4.7086E-04_JPRB,4.2959E-04_JPRB,3.7847E-04_JPRB,3.2415E-04_JPRB,2.6787E-04_JPRB,2.0968E-04_JPRB,&
+ & 1.4924E-04_JPRB,8.4911E-05_JPRB,1.3959E-01_JPRB/)  
+KAO( :, 3,13, 5) = (/&
+ & 4.7837E-04_JPRB,4.4165E-04_JPRB,3.9141E-04_JPRB,3.3849E-04_JPRB,2.8244E-04_JPRB,2.2337E-04_JPRB,&
+ & 1.6172E-04_JPRB,9.5329E-05_JPRB,1.5133E-01_JPRB/)  
+KAO( :, 4,13, 5) = (/&
+ & 4.8890E-04_JPRB,4.5706E-04_JPRB,4.0967E-04_JPRB,3.5806E-04_JPRB,3.0129E-04_JPRB,2.4154E-04_JPRB,&
+ & 1.7785E-04_JPRB,1.0830E-04_JPRB,1.6573E-01_JPRB/)  
+KAO( :, 5,13, 5) = (/&
+ & 5.0378E-04_JPRB,4.7838E-04_JPRB,4.3426E-04_JPRB,3.8267E-04_JPRB,3.2585E-04_JPRB,2.6428E-04_JPRB,&
+ & 1.9742E-04_JPRB,1.2409E-04_JPRB,1.8212E-01_JPRB/)  
+KAO( :, 1, 1, 6) = (/&
+ & 3.2508E-03_JPRB,2.9778E-03_JPRB,2.7444E-03_JPRB,2.4732E-03_JPRB,2.1617E-03_JPRB,1.8050E-03_JPRB,&
+ & 1.4116E-03_JPRB,9.5646E-04_JPRB,7.5194E-04_JPRB/)  
+KAO( :, 2, 1, 6) = (/&
+ & 3.2951E-03_JPRB,3.0775E-03_JPRB,2.8725E-03_JPRB,2.6161E-03_JPRB,2.3021E-03_JPRB,1.9458E-03_JPRB,&
+ & 1.5643E-03_JPRB,1.1089E-03_JPRB,9.5011E-04_JPRB/)  
+KAO( :, 3, 1, 6) = (/&
+ & 3.3739E-03_JPRB,3.2201E-03_JPRB,3.0329E-03_JPRB,2.7889E-03_JPRB,2.4684E-03_JPRB,2.1285E-03_JPRB,&
+ & 1.7492E-03_JPRB,1.2948E-03_JPRB,1.1897E-03_JPRB/)  
+KAO( :, 4, 1, 6) = (/&
+ & 3.4775E-03_JPRB,3.3896E-03_JPRB,3.2288E-03_JPRB,2.9832E-03_JPRB,2.6770E-03_JPRB,2.3508E-03_JPRB,&
+ & 1.9685E-03_JPRB,1.5165E-03_JPRB,1.4693E-03_JPRB/)  
+KAO( :, 5, 1, 6) = (/&
+ & 3.6048E-03_JPRB,3.5835E-03_JPRB,3.4508E-03_JPRB,3.2113E-03_JPRB,2.9250E-03_JPRB,2.6127E-03_JPRB,&
+ & 2.2307E-03_JPRB,1.7682E-03_JPRB,1.7887E-03_JPRB/)  
+KAO( :, 1, 2, 6) = (/&
+ & 2.9479E-03_JPRB,2.7010E-03_JPRB,2.4920E-03_JPRB,2.2328E-03_JPRB,1.9390E-03_JPRB,1.6094E-03_JPRB,&
+ & 1.2398E-03_JPRB,8.2486E-04_JPRB,7.2631E-04_JPRB/)  
+KAO( :, 2, 2, 6) = (/&
+ & 2.9968E-03_JPRB,2.8020E-03_JPRB,2.6127E-03_JPRB,2.3636E-03_JPRB,2.0690E-03_JPRB,1.7351E-03_JPRB,&
+ & 1.3731E-03_JPRB,9.5550E-04_JPRB,9.1418E-04_JPRB/)  
+KAO( :, 3, 2, 6) = (/&
+ & 3.0736E-03_JPRB,2.9425E-03_JPRB,2.7649E-03_JPRB,2.5241E-03_JPRB,2.2257E-03_JPRB,1.8987E-03_JPRB,&
+ & 1.5376E-03_JPRB,1.1187E-03_JPRB,1.1471E-03_JPRB/)  
+KAO( :, 4, 2, 6) = (/&
+ & 3.1728E-03_JPRB,3.1058E-03_JPRB,2.9466E-03_JPRB,2.7114E-03_JPRB,2.4176E-03_JPRB,2.0996E-03_JPRB,&
+ & 1.7359E-03_JPRB,1.3160E-03_JPRB,1.4227E-03_JPRB/)  
+KAO( :, 5, 2, 6) = (/&
+ & 3.2938E-03_JPRB,3.2890E-03_JPRB,3.1552E-03_JPRB,2.9263E-03_JPRB,2.6481E-03_JPRB,2.3331E-03_JPRB,&
+ & 1.9715E-03_JPRB,1.5406E-03_JPRB,1.7422E-03_JPRB/)  
+KAO( :, 1, 3, 6) = (/&
+ & 2.6363E-03_JPRB,2.4111E-03_JPRB,2.2160E-03_JPRB,1.9706E-03_JPRB,1.6942E-03_JPRB,1.3925E-03_JPRB,&
+ & 1.0560E-03_JPRB,6.8807E-04_JPRB,8.1595E-04_JPRB/)  
+KAO( :, 2, 3, 6) = (/&
+ & 2.6810E-03_JPRB,2.5033E-03_JPRB,2.3265E-03_JPRB,2.0848E-03_JPRB,1.8107E-03_JPRB,1.5037E-03_JPRB,&
+ & 1.1662E-03_JPRB,7.9613E-04_JPRB,9.9881E-04_JPRB/)  
+KAO( :, 3, 3, 6) = (/&
+ & 2.7498E-03_JPRB,2.6291E-03_JPRB,2.4618E-03_JPRB,2.2271E-03_JPRB,1.9564E-03_JPRB,1.6455E-03_JPRB,&
+ & 1.3062E-03_JPRB,9.3309E-04_JPRB,1.2299E-03_JPRB/)  
+KAO( :, 4, 3, 6) = (/&
+ & 2.8378E-03_JPRB,2.7765E-03_JPRB,2.6213E-03_JPRB,2.3981E-03_JPRB,2.1275E-03_JPRB,1.8208E-03_JPRB,&
+ & 1.4785E-03_JPRB,1.0978E-03_JPRB,1.5182E-03_JPRB/)  
+KAO( :, 5, 3, 6) = (/&
+ & 2.9436E-03_JPRB,2.9446E-03_JPRB,2.8064E-03_JPRB,2.5984E-03_JPRB,2.3329E-03_JPRB,2.0260E-03_JPRB,&
+ & 1.6822E-03_JPRB,1.2888E-03_JPRB,1.8654E-03_JPRB/)  
+KAO( :, 1, 4, 6) = (/&
+ & 2.3305E-03_JPRB,2.1270E-03_JPRB,1.9394E-03_JPRB,1.7178E-03_JPRB,1.4629E-03_JPRB,1.1886E-03_JPRB,&
+ & 8.9024E-04_JPRB,5.6452E-04_JPRB,1.0437E-03_JPRB/)  
+KAO( :, 2, 4, 6) = (/&
+ & 2.3711E-03_JPRB,2.2090E-03_JPRB,2.0410E-03_JPRB,1.8166E-03_JPRB,1.5629E-03_JPRB,1.2867E-03_JPRB,&
+ & 9.8103E-04_JPRB,6.5250E-04_JPRB,1.2371E-03_JPRB/)  
+KAO( :, 3, 4, 6) = (/&
+ & 2.4284E-03_JPRB,2.3161E-03_JPRB,2.1600E-03_JPRB,1.9393E-03_JPRB,1.6907E-03_JPRB,1.4107E-03_JPRB,&
+ & 1.0981E-03_JPRB,7.6618E-04_JPRB,1.4857E-03_JPRB/)  
+KAO( :, 4, 4, 6) = (/&
+ & 2.5037E-03_JPRB,2.4445E-03_JPRB,2.2974E-03_JPRB,2.0880E-03_JPRB,1.8467E-03_JPRB,1.5615E-03_JPRB,&
+ & 1.2436E-03_JPRB,9.0463E-04_JPRB,1.7998E-03_JPRB/)  
+KAO( :, 5, 4, 6) = (/&
+ & 2.5974E-03_JPRB,2.5927E-03_JPRB,2.4566E-03_JPRB,2.2651E-03_JPRB,2.0287E-03_JPRB,1.7391E-03_JPRB,&
+ & 1.4181E-03_JPRB,1.0646E-03_JPRB,2.1898E-03_JPRB/)  
+KAO( :, 1, 5, 6) = (/&
+ & 2.0361E-03_JPRB,1.8547E-03_JPRB,1.6766E-03_JPRB,1.4795E-03_JPRB,1.2501E-03_JPRB,1.0047E-03_JPRB,&
+ & 7.4302E-04_JPRB,4.6057E-04_JPRB,1.3928E-03_JPRB/)  
+KAO( :, 2, 5, 6) = (/&
+ & 2.0694E-03_JPRB,1.9228E-03_JPRB,1.7645E-03_JPRB,1.5634E-03_JPRB,1.3341E-03_JPRB,1.0877E-03_JPRB,&
+ & 8.2111E-04_JPRB,5.3228E-04_JPRB,1.6120E-03_JPRB/)  
+KAO( :, 3, 5, 6) = (/&
+ & 2.1184E-03_JPRB,2.0120E-03_JPRB,1.8652E-03_JPRB,1.6659E-03_JPRB,1.4419E-03_JPRB,1.1971E-03_JPRB,&
+ & 9.1972E-04_JPRB,6.2395E-04_JPRB,1.9022E-03_JPRB/)  
+KAO( :, 4, 5, 6) = (/&
+ & 2.1844E-03_JPRB,2.1219E-03_JPRB,1.9833E-03_JPRB,1.7902E-03_JPRB,1.5765E-03_JPRB,1.3280E-03_JPRB,&
+ & 1.0415E-03_JPRB,7.3888E-04_JPRB,2.2685E-03_JPRB/)  
+KAO( :, 5, 5, 6) = (/&
+ & 2.2663E-03_JPRB,2.2517E-03_JPRB,2.1217E-03_JPRB,1.9449E-03_JPRB,1.7373E-03_JPRB,1.4799E-03_JPRB,&
+ & 1.1890E-03_JPRB,8.7483E-04_JPRB,2.7203E-03_JPRB/)  
+KAO( :, 1, 6, 6) = (/&
+ & 1.7550E-03_JPRB,1.5950E-03_JPRB,1.4324E-03_JPRB,1.2563E-03_JPRB,1.0568E-03_JPRB,8.4088E-04_JPRB,&
+ & 6.1343E-04_JPRB,3.7218E-04_JPRB,1.8822E-03_JPRB/)  
+KAO( :, 2, 6, 6) = (/&
+ & 1.7806E-03_JPRB,1.6483E-03_JPRB,1.5014E-03_JPRB,1.3260E-03_JPRB,1.1237E-03_JPRB,9.0650E-04_JPRB,&
+ & 6.7793E-04_JPRB,4.3012E-04_JPRB,2.1151E-03_JPRB/)  
+KAO( :, 3, 6, 6) = (/&
+ & 1.8227E-03_JPRB,1.7227E-03_JPRB,1.5844E-03_JPRB,1.4081E-03_JPRB,1.2080E-03_JPRB,9.9575E-04_JPRB,&
+ & 7.6012E-04_JPRB,5.0351E-04_JPRB,2.4397E-03_JPRB/)  
+KAO( :, 4, 6, 6) = (/&
+ & 1.8792E-03_JPRB,1.8150E-03_JPRB,1.6849E-03_JPRB,1.5100E-03_JPRB,1.3192E-03_JPRB,1.1065E-03_JPRB,&
+ & 8.6119E-04_JPRB,5.9588E-04_JPRB,2.8694E-03_JPRB/)  
+KAO( :, 5, 6, 6) = (/&
+ & 1.9487E-03_JPRB,1.9242E-03_JPRB,1.8033E-03_JPRB,1.6413E-03_JPRB,1.4558E-03_JPRB,1.2357E-03_JPRB,&
+ & 9.8340E-04_JPRB,7.0882E-04_JPRB,3.4091E-03_JPRB/)  
+KAO( :, 1, 7, 6) = (/&
+ & 1.4965E-03_JPRB,1.3571E-03_JPRB,1.2126E-03_JPRB,1.0566E-03_JPRB,8.8614E-04_JPRB,7.0122E-04_JPRB,&
+ & 5.0618E-04_JPRB,3.0014E-04_JPRB,2.8627E-03_JPRB/)  
+KAO( :, 2, 7, 6) = (/&
+ & 1.5173E-03_JPRB,1.3996E-03_JPRB,1.2672E-03_JPRB,1.1141E-03_JPRB,9.3989E-04_JPRB,7.5155E-04_JPRB,&
+ & 5.5619E-04_JPRB,3.4628E-04_JPRB,3.1242E-03_JPRB/)  
+KAO( :, 3, 7, 6) = (/&
+ & 1.5535E-03_JPRB,1.4627E-03_JPRB,1.3365E-03_JPRB,1.1831E-03_JPRB,1.0064E-03_JPRB,8.2131E-04_JPRB,&
+ & 6.2417E-04_JPRB,4.0465E-04_JPRB,3.4941E-03_JPRB/)  
+KAO( :, 4, 7, 6) = (/&
+ & 1.6022E-03_JPRB,1.5406E-03_JPRB,1.4217E-03_JPRB,1.2670E-03_JPRB,1.0965E-03_JPRB,9.1271E-04_JPRB,&
+ & 7.0644E-04_JPRB,4.7877E-04_JPRB,3.9901E-03_JPRB/)  
+KAO( :, 5, 7, 6) = (/&
+ & 1.6619E-03_JPRB,1.6316E-03_JPRB,1.5215E-03_JPRB,1.3760E-03_JPRB,1.2105E-03_JPRB,1.0220E-03_JPRB,&
+ & 8.0646E-04_JPRB,5.7116E-04_JPRB,4.6499E-03_JPRB/)  
+KAO( :, 1, 8, 6) = (/&
+ & 1.2713E-03_JPRB,1.1506E-03_JPRB,1.0229E-03_JPRB,8.8637E-04_JPRB,7.3985E-04_JPRB,5.8404E-04_JPRB,&
+ & 4.1869E-04_JPRB,2.4146E-04_JPRB,5.8577E-03_JPRB/)  
+KAO( :, 2, 8, 6) = (/&
+ & 1.2886E-03_JPRB,1.1855E-03_JPRB,1.0667E-03_JPRB,9.3200E-04_JPRB,7.8398E-04_JPRB,6.2296E-04_JPRB,&
+ & 4.5565E-04_JPRB,2.7881E-04_JPRB,6.2369E-03_JPRB/)  
+KAO( :, 3, 8, 6) = (/&
+ & 1.3186E-03_JPRB,1.2381E-03_JPRB,1.1243E-03_JPRB,9.9079E-04_JPRB,8.3814E-04_JPRB,6.7723E-04_JPRB,&
+ & 5.1049E-04_JPRB,3.2546E-04_JPRB,6.7543E-03_JPRB/)  
+KAO( :, 4, 8, 6) = (/&
+ & 1.3600E-03_JPRB,1.3028E-03_JPRB,1.1954E-03_JPRB,1.0612E-03_JPRB,9.1150E-04_JPRB,7.5260E-04_JPRB,&
+ & 5.7914E-04_JPRB,3.8472E-04_JPRB,7.4388E-03_JPRB/)  
+KAO( :, 5, 8, 6) = (/&
+ & 1.4121E-03_JPRB,1.3805E-03_JPRB,1.2804E-03_JPRB,1.1524E-03_JPRB,1.0064E-03_JPRB,8.4434E-04_JPRB,&
+ & 6.6144E-04_JPRB,4.5882E-04_JPRB,8.3420E-03_JPRB/)  
+KAO( :, 1, 9, 6) = (/&
+ & 1.0717E-03_JPRB,9.6880E-04_JPRB,8.5692E-04_JPRB,7.3841E-04_JPRB,6.1349E-04_JPRB,4.8265E-04_JPRB,&
+ & 3.4488E-04_JPRB,1.9332E-04_JPRB,2.4273E-02_JPRB/)  
+KAO( :, 2, 9, 6) = (/&
+ & 1.0856E-03_JPRB,9.9623E-04_JPRB,8.9079E-04_JPRB,7.7337E-04_JPRB,6.4809E-04_JPRB,5.1388E-04_JPRB,&
+ & 3.7203E-04_JPRB,2.2290E-04_JPRB,2.5642E-02_JPRB/)  
+KAO( :, 3, 9, 6) = (/&
+ & 1.1096E-03_JPRB,1.0377E-03_JPRB,9.3686E-04_JPRB,8.2124E-04_JPRB,6.9314E-04_JPRB,5.5575E-04_JPRB,&
+ & 4.1434E-04_JPRB,2.5972E-04_JPRB,2.7416E-02_JPRB/)  
+KAO( :, 4, 9, 6) = (/&
+ & 1.1443E-03_JPRB,1.0913E-03_JPRB,9.9449E-04_JPRB,8.7964E-04_JPRB,7.5151E-04_JPRB,6.1540E-04_JPRB,&
+ & 4.6972E-04_JPRB,3.0675E-04_JPRB,2.9667E-02_JPRB/)  
+KAO( :, 5, 9, 6) = (/&
+ & 1.1902E-03_JPRB,1.1571E-03_JPRB,1.0659E-03_JPRB,9.5531E-04_JPRB,8.2901E-04_JPRB,6.9019E-04_JPRB,&
+ & 5.3796E-04_JPRB,3.6567E-04_JPRB,3.2492E-02_JPRB/)  
+KAO( :, 1,10, 6) = (/&
+ & 9.1682E-04_JPRB,8.2727E-04_JPRB,7.2786E-04_JPRB,6.2407E-04_JPRB,5.1616E-04_JPRB,4.0448E-04_JPRB,&
+ & 2.8759E-04_JPRB,1.5707E-04_JPRB,1.2096E-01_JPRB/)  
+KAO( :, 2,10, 6) = (/&
+ & 9.2807E-04_JPRB,8.4772E-04_JPRB,7.5273E-04_JPRB,6.4976E-04_JPRB,5.4191E-04_JPRB,4.2868E-04_JPRB,&
+ & 3.0799E-04_JPRB,1.8018E-04_JPRB,1.2769E-01_JPRB/)  
+KAO( :, 3,10, 6) = (/&
+ & 9.4733E-04_JPRB,8.8010E-04_JPRB,7.8844E-04_JPRB,6.8649E-04_JPRB,5.7756E-04_JPRB,4.6108E-04_JPRB,&
+ & 3.3990E-04_JPRB,2.0965E-04_JPRB,1.3587E-01_JPRB/)  
+KAO( :, 4,10, 6) = (/&
+ & 9.7616E-04_JPRB,9.2298E-04_JPRB,8.3457E-04_JPRB,7.3405E-04_JPRB,6.2454E-04_JPRB,5.0775E-04_JPRB,&
+ & 3.8366E-04_JPRB,2.4715E-04_JPRB,1.4598E-01_JPRB/)  
+KAO( :, 5,10, 6) = (/&
+ & 1.0147E-03_JPRB,9.7749E-04_JPRB,8.9296E-04_JPRB,7.9678E-04_JPRB,6.8754E-04_JPRB,5.6799E-04_JPRB,&
+ & 4.3982E-04_JPRB,2.9475E-04_JPRB,1.5853E-01_JPRB/)  
+KAO( :, 1,11, 6) = (/&
+ & 8.5061E-04_JPRB,7.6545E-04_JPRB,6.7209E-04_JPRB,5.7435E-04_JPRB,4.7342E-04_JPRB,3.6961E-04_JPRB,&
+ & 2.6119E-04_JPRB,1.4392E-04_JPRB,2.1829E-01_JPRB/)  
+KAO( :, 2,11, 6) = (/&
+ & 8.6223E-04_JPRB,7.8453E-04_JPRB,6.9368E-04_JPRB,5.9640E-04_JPRB,4.9523E-04_JPRB,3.8977E-04_JPRB,&
+ & 2.7888E-04_JPRB,1.6251E-04_JPRB,2.3198E-01_JPRB/)  
+KAO( :, 3,11, 6) = (/&
+ & 8.8180E-04_JPRB,8.1321E-04_JPRB,7.2410E-04_JPRB,6.2697E-04_JPRB,5.2544E-04_JPRB,4.1867E-04_JPRB,&
+ & 3.0656E-04_JPRB,1.8726E-04_JPRB,2.4754E-01_JPRB/)  
+KAO( :, 4,11, 6) = (/&
+ & 9.0901E-04_JPRB,8.5074E-04_JPRB,7.6319E-04_JPRB,6.6771E-04_JPRB,5.6719E-04_JPRB,4.5846E-04_JPRB,&
+ & 3.4374E-04_JPRB,2.1942E-04_JPRB,2.6580E-01_JPRB/)  
+KAO( :, 5,11, 6) = (/&
+ & 9.4336E-04_JPRB,8.9780E-04_JPRB,8.1395E-04_JPRB,7.2298E-04_JPRB,6.2010E-04_JPRB,5.0948E-04_JPRB,&
+ & 3.9195E-04_JPRB,2.5983E-04_JPRB,2.8833E-01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB13:PART4',1,ZHOOK_HANDLE)
+END SUBROUTINE PART4
+
+
+SUBROUTINE PART5
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB13:PART5',0,ZHOOK_HANDLE)
+
+
+KAO( :, 1,12, 6) = (/&
+ & 8.0200E-04_JPRB,7.2122E-04_JPRB,6.3265E-04_JPRB,5.3924E-04_JPRB,4.4340E-04_JPRB,3.4532E-04_JPRB,&
+ & 2.4304E-04_JPRB,1.3437E-04_JPRB,2.6966E-01_JPRB/)  
+KAO( :, 2,12, 6) = (/&
+ & 8.1599E-04_JPRB,7.4215E-04_JPRB,6.5450E-04_JPRB,5.6136E-04_JPRB,4.6493E-04_JPRB,3.6523E-04_JPRB,&
+ & 2.6103E-04_JPRB,1.5096E-04_JPRB,2.8948E-01_JPRB/)  
+KAO( :, 3,12, 6) = (/&
+ & 8.3783E-04_JPRB,7.7160E-04_JPRB,6.8467E-04_JPRB,5.9130E-04_JPRB,4.9479E-04_JPRB,3.9390E-04_JPRB,&
+ & 2.8643E-04_JPRB,1.7267E-04_JPRB,3.1014E-01_JPRB/)  
+KAO( :, 4,12, 6) = (/&
+ & 8.6812E-04_JPRB,8.0949E-04_JPRB,7.2339E-04_JPRB,6.3152E-04_JPRB,5.3506E-04_JPRB,4.2989E-04_JPRB,&
+ & 3.1937E-04_JPRB,2.0004E-04_JPRB,3.3406E-01_JPRB/)  
+KAO( :, 5,12, 6) = (/&
+ & 9.0435E-04_JPRB,8.5462E-04_JPRB,7.7208E-04_JPRB,6.8293E-04_JPRB,5.8297E-04_JPRB,4.7540E-04_JPRB,&
+ & 3.6088E-04_JPRB,2.3381E-04_JPRB,3.6313E-01_JPRB/)  
+KAO( :, 1,13, 6) = (/&
+ & 7.8053E-04_JPRB,7.0155E-04_JPRB,6.1461E-04_JPRB,5.2266E-04_JPRB,4.2870E-04_JPRB,3.3288E-04_JPRB,&
+ & 2.3333E-04_JPRB,1.2902E-04_JPRB,2.6881E-01_JPRB/)  
+KAO( :, 2,13, 6) = (/&
+ & 7.9882E-04_JPRB,7.2653E-04_JPRB,6.3912E-04_JPRB,5.4681E-04_JPRB,4.5162E-04_JPRB,3.5376E-04_JPRB,&
+ & 2.5204E-04_JPRB,1.4416E-04_JPRB,2.9113E-01_JPRB/)  
+KAO( :, 3,13, 6) = (/&
+ & 8.2403E-04_JPRB,7.5779E-04_JPRB,6.7018E-04_JPRB,5.7745E-04_JPRB,4.8198E-04_JPRB,3.8252E-04_JPRB,&
+ & 2.7644E-04_JPRB,1.6449E-04_JPRB,3.1399E-01_JPRB/)  
+KAO( :, 4,13, 6) = (/&
+ & 8.5594E-04_JPRB,7.9631E-04_JPRB,7.0954E-04_JPRB,6.1806E-04_JPRB,5.2193E-04_JPRB,4.1790E-04_JPRB,&
+ & 3.0801E-04_JPRB,1.8991E-04_JPRB,3.3908E-01_JPRB/)  
+KAO( :, 5,13, 6) = (/&
+ & 8.9284E-04_JPRB,8.4070E-04_JPRB,7.5811E-04_JPRB,6.6820E-04_JPRB,5.6955E-04_JPRB,4.6197E-04_JPRB,&
+ & 3.4688E-04_JPRB,2.2019E-04_JPRB,3.6894E-01_JPRB/)  
+KAO( :, 1, 1, 7) = (/&
+ & 6.0831E-03_JPRB,5.4716E-03_JPRB,4.8761E-03_JPRB,4.3169E-03_JPRB,3.7156E-03_JPRB,3.0689E-03_JPRB,&
+ & 2.3667E-03_JPRB,1.5757E-03_JPRB,1.3430E-03_JPRB/)  
+KAO( :, 2, 1, 7) = (/&
+ & 6.2160E-03_JPRB,5.6592E-03_JPRB,5.1333E-03_JPRB,4.5937E-03_JPRB,3.9991E-03_JPRB,3.3587E-03_JPRB,&
+ & 2.6257E-03_JPRB,1.8103E-03_JPRB,1.6552E-03_JPRB/)  
+KAO( :, 3, 1, 7) = (/&
+ & 6.3763E-03_JPRB,5.8806E-03_JPRB,5.4307E-03_JPRB,4.8990E-03_JPRB,4.3331E-03_JPRB,3.6723E-03_JPRB,&
+ & 2.9252E-03_JPRB,2.0812E-03_JPRB,2.0370E-03_JPRB/)  
+KAO( :, 4, 1, 7) = (/&
+ & 6.5762E-03_JPRB,6.1595E-03_JPRB,5.7556E-03_JPRB,5.2564E-03_JPRB,4.6989E-03_JPRB,4.0150E-03_JPRB,&
+ & 3.2758E-03_JPRB,2.3980E-03_JPRB,2.4986E-03_JPRB/)  
+KAO( :, 5, 1, 7) = (/&
+ & 6.8177E-03_JPRB,6.4963E-03_JPRB,6.1231E-03_JPRB,5.6619E-03_JPRB,5.0935E-03_JPRB,4.4057E-03_JPRB,&
+ & 3.6750E-03_JPRB,2.7782E-03_JPRB,3.0517E-03_JPRB/)  
+KAO( :, 1, 2, 7) = (/&
+ & 5.5406E-03_JPRB,4.9770E-03_JPRB,4.4333E-03_JPRB,3.9291E-03_JPRB,3.3714E-03_JPRB,2.7757E-03_JPRB,&
+ & 2.1410E-03_JPRB,1.4066E-03_JPRB,1.3940E-03_JPRB/)  
+KAO( :, 2, 2, 7) = (/&
+ & 5.6795E-03_JPRB,5.1605E-03_JPRB,4.6810E-03_JPRB,4.1841E-03_JPRB,3.6317E-03_JPRB,3.0411E-03_JPRB,&
+ & 2.3785E-03_JPRB,1.6219E-03_JPRB,1.7125E-03_JPRB/)  
+KAO( :, 3, 2, 7) = (/&
+ & 5.8479E-03_JPRB,5.3775E-03_JPRB,4.9639E-03_JPRB,4.4697E-03_JPRB,3.9362E-03_JPRB,3.3371E-03_JPRB,&
+ & 2.6519E-03_JPRB,1.8755E-03_JPRB,2.0935E-03_JPRB/)  
+KAO( :, 4, 2, 7) = (/&
+ & 6.0553E-03_JPRB,5.6506E-03_JPRB,5.2744E-03_JPRB,4.7999E-03_JPRB,4.2764E-03_JPRB,3.6617E-03_JPRB,&
+ & 2.9719E-03_JPRB,2.1746E-03_JPRB,2.5431E-03_JPRB/)  
+KAO( :, 5, 2, 7) = (/&
+ & 6.2994E-03_JPRB,5.9802E-03_JPRB,5.6290E-03_JPRB,5.1787E-03_JPRB,4.6510E-03_JPRB,4.0342E-03_JPRB,&
+ & 3.3435E-03_JPRB,2.5279E-03_JPRB,3.0760E-03_JPRB/)  
+KAO( :, 1, 3, 7) = (/&
+ & 4.9647E-03_JPRB,4.4497E-03_JPRB,3.9602E-03_JPRB,3.5016E-03_JPRB,2.9975E-03_JPRB,2.4522E-03_JPRB,&
+ & 1.8688E-03_JPRB,1.2052E-03_JPRB,1.6686E-03_JPRB/)  
+KAO( :, 2, 3, 7) = (/&
+ & 5.0999E-03_JPRB,4.6210E-03_JPRB,4.1813E-03_JPRB,3.7355E-03_JPRB,3.2261E-03_JPRB,2.6792E-03_JPRB,&
+ & 2.0838E-03_JPRB,1.3908E-03_JPRB,2.0388E-03_JPRB/)  
+KAO( :, 3, 3, 7) = (/&
+ & 5.2679E-03_JPRB,4.8293E-03_JPRB,4.4423E-03_JPRB,3.9951E-03_JPRB,3.4860E-03_JPRB,2.9419E-03_JPRB,&
+ & 2.3248E-03_JPRB,1.6141E-03_JPRB,2.4914E-03_JPRB/)  
+KAO( :, 4, 3, 7) = (/&
+ & 5.4762E-03_JPRB,5.0914E-03_JPRB,4.7365E-03_JPRB,4.2903E-03_JPRB,3.7907E-03_JPRB,3.2409E-03_JPRB,&
+ & 2.6074E-03_JPRB,1.8823E-03_JPRB,3.0282E-03_JPRB/)  
+KAO( :, 5, 3, 7) = (/&
+ & 5.7173E-03_JPRB,5.4006E-03_JPRB,5.0668E-03_JPRB,4.6277E-03_JPRB,4.1360E-03_JPRB,3.5816E-03_JPRB,&
+ & 2.9410E-03_JPRB,2.2019E-03_JPRB,3.6468E-03_JPRB/)  
+KAO( :, 1, 4, 7) = (/&
+ & 4.4058E-03_JPRB,3.9416E-03_JPRB,3.5104E-03_JPRB,3.0879E-03_JPRB,2.6418E-03_JPRB,2.1472E-03_JPRB,&
+ & 1.6100E-03_JPRB,1.0192E-03_JPRB,2.1860E-03_JPRB/)  
+KAO( :, 2, 4, 7) = (/&
+ & 4.5309E-03_JPRB,4.0974E-03_JPRB,3.7008E-03_JPRB,3.2995E-03_JPRB,2.8437E-03_JPRB,2.3378E-03_JPRB,&
+ & 1.7928E-03_JPRB,1.1728E-03_JPRB,2.6265E-03_JPRB/)  
+KAO( :, 3, 4, 7) = (/&
+ & 4.6961E-03_JPRB,4.2954E-03_JPRB,3.9392E-03_JPRB,3.5397E-03_JPRB,3.0713E-03_JPRB,2.5630E-03_JPRB,&
+ & 2.0061E-03_JPRB,1.3611E-03_JPRB,3.1721E-03_JPRB/)  
+KAO( :, 4, 4, 7) = (/&
+ & 4.8988E-03_JPRB,4.5465E-03_JPRB,4.2146E-03_JPRB,3.8097E-03_JPRB,3.3355E-03_JPRB,2.8256E-03_JPRB,&
+ & 2.2535E-03_JPRB,1.5915E-03_JPRB,3.8341E-03_JPRB/)  
+KAO( :, 5, 4, 7) = (/&
+ & 5.1310E-03_JPRB,4.8388E-03_JPRB,4.5280E-03_JPRB,4.1140E-03_JPRB,3.6446E-03_JPRB,3.1343E-03_JPRB,&
+ & 2.5481E-03_JPRB,1.8697E-03_JPRB,4.6238E-03_JPRB/)  
+KAO( :, 1, 5, 7) = (/&
+ & 3.8779E-03_JPRB,3.4634E-03_JPRB,3.0842E-03_JPRB,2.6949E-03_JPRB,2.2979E-03_JPRB,1.8588E-03_JPRB,&
+ & 1.3777E-03_JPRB,8.5534E-04_JPRB,2.9342E-03_JPRB/)  
+KAO( :, 2, 5, 7) = (/&
+ & 3.9975E-03_JPRB,3.6104E-03_JPRB,3.2535E-03_JPRB,2.8827E-03_JPRB,2.4794E-03_JPRB,2.0228E-03_JPRB,&
+ & 1.5286E-03_JPRB,9.8435E-04_JPRB,3.4742E-03_JPRB/)  
+KAO( :, 3, 5, 7) = (/&
+ & 4.1529E-03_JPRB,3.7986E-03_JPRB,3.4711E-03_JPRB,3.1033E-03_JPRB,2.6811E-03_JPRB,2.2132E-03_JPRB,&
+ & 1.7129E-03_JPRB,1.1425E-03_JPRB,4.1273E-03_JPRB/)  
+KAO( :, 4, 5, 7) = (/&
+ & 4.3432E-03_JPRB,4.0329E-03_JPRB,3.7255E-03_JPRB,3.3556E-03_JPRB,2.9159E-03_JPRB,2.4433E-03_JPRB,&
+ & 1.9336E-03_JPRB,1.3357E-03_JPRB,4.9170E-03_JPRB/)  
+KAO( :, 5, 5, 7) = (/&
+ & 4.5622E-03_JPRB,4.3036E-03_JPRB,4.0154E-03_JPRB,3.6360E-03_JPRB,3.1929E-03_JPRB,2.7222E-03_JPRB,&
+ & 2.1936E-03_JPRB,1.5699E-03_JPRB,5.8667E-03_JPRB/)  
+KAO( :, 1, 6, 7) = (/&
+ & 3.3589E-03_JPRB,2.9956E-03_JPRB,2.6626E-03_JPRB,2.3138E-03_JPRB,1.9609E-03_JPRB,1.5811E-03_JPRB,&
+ & 1.1611E-03_JPRB,7.0395E-04_JPRB,3.8423E-03_JPRB/)  
+KAO( :, 2, 6, 7) = (/&
+ & 3.4759E-03_JPRB,3.1375E-03_JPRB,2.8167E-03_JPRB,2.4801E-03_JPRB,2.1214E-03_JPRB,1.7215E-03_JPRB,&
+ & 1.2829E-03_JPRB,8.1184E-04_JPRB,4.5185E-03_JPRB/)  
+KAO( :, 3, 6, 7) = (/&
+ & 3.6242E-03_JPRB,3.3148E-03_JPRB,3.0137E-03_JPRB,2.6792E-03_JPRB,2.3068E-03_JPRB,1.8847E-03_JPRB,&
+ & 1.4366E-03_JPRB,9.4529E-04_JPRB,5.3431E-03_JPRB/)  
+KAO( :, 4, 6, 7) = (/&
+ & 3.8024E-03_JPRB,3.5303E-03_JPRB,3.2447E-03_JPRB,2.9079E-03_JPRB,2.5158E-03_JPRB,2.0837E-03_JPRB,&
+ & 1.6281E-03_JPRB,1.1078E-03_JPRB,6.3321E-03_JPRB/)  
+KAO( :, 5, 6, 7) = (/&
+ & 4.0032E-03_JPRB,3.7796E-03_JPRB,3.5066E-03_JPRB,3.1648E-03_JPRB,2.7620E-03_JPRB,2.3300E-03_JPRB,&
+ & 1.8584E-03_JPRB,1.3026E-03_JPRB,7.5117E-03_JPRB/)  
+KAO( :, 1, 7, 7) = (/&
+ & 2.8830E-03_JPRB,2.5691E-03_JPRB,2.2767E-03_JPRB,1.9708E-03_JPRB,1.6569E-03_JPRB,1.3271E-03_JPRB,&
+ & 9.6810E-04_JPRB,5.7391E-04_JPRB,5.4404E-03_JPRB/)  
+KAO( :, 2, 7, 7) = (/&
+ & 2.9931E-03_JPRB,2.7018E-03_JPRB,2.4141E-03_JPRB,2.1144E-03_JPRB,1.7953E-03_JPRB,1.4497E-03_JPRB,&
+ & 1.0681E-03_JPRB,6.6067E-04_JPRB,6.3234E-03_JPRB/)  
+KAO( :, 3, 7, 7) = (/&
+ & 3.1305E-03_JPRB,2.8628E-03_JPRB,2.5899E-03_JPRB,2.2886E-03_JPRB,1.9605E-03_JPRB,1.5922E-03_JPRB,&
+ & 1.1949E-03_JPRB,7.7319E-04_JPRB,7.4384E-03_JPRB/)  
+KAO( :, 4, 7, 7) = (/&
+ & 3.2919E-03_JPRB,3.0575E-03_JPRB,2.7962E-03_JPRB,2.4931E-03_JPRB,2.1505E-03_JPRB,1.7657E-03_JPRB,&
+ & 1.3594E-03_JPRB,9.0965E-04_JPRB,8.7978E-03_JPRB/)  
+KAO( :, 5, 7, 7) = (/&
+ & 3.4715E-03_JPRB,3.2809E-03_JPRB,3.0291E-03_JPRB,2.7241E-03_JPRB,2.3709E-03_JPRB,1.9816E-03_JPRB,&
+ & 1.5601E-03_JPRB,1.0736E-03_JPRB,1.0416E-02_JPRB/)  
+KAO( :, 1, 8, 7) = (/&
+ & 2.4760E-03_JPRB,2.2062E-03_JPRB,1.9505E-03_JPRB,1.6811E-03_JPRB,1.4033E-03_JPRB,1.1135E-03_JPRB,&
+ & 8.0567E-04_JPRB,4.6971E-04_JPRB,1.0033E-02_JPRB/)  
+KAO( :, 2, 8, 7) = (/&
+ & 2.5766E-03_JPRB,2.3254E-03_JPRB,2.0701E-03_JPRB,1.8033E-03_JPRB,1.5196E-03_JPRB,1.2179E-03_JPRB,&
+ & 8.9015E-04_JPRB,5.3726E-04_JPRB,1.1309E-02_JPRB/)  
+KAO( :, 3, 8, 7) = (/&
+ & 2.7010E-03_JPRB,2.4689E-03_JPRB,2.2239E-03_JPRB,1.9529E-03_JPRB,1.6624E-03_JPRB,1.3434E-03_JPRB,&
+ & 9.9513E-04_JPRB,6.2989E-04_JPRB,1.3008E-02_JPRB/)  
+KAO( :, 4, 8, 7) = (/&
+ & 2.8429E-03_JPRB,2.6411E-03_JPRB,2.4042E-03_JPRB,2.1312E-03_JPRB,1.8298E-03_JPRB,1.4940E-03_JPRB,&
+ & 1.1345E-03_JPRB,7.4505E-04_JPRB,1.5177E-02_JPRB/)  
+KAO( :, 5, 8, 7) = (/&
+ & 2.9996E-03_JPRB,2.8348E-03_JPRB,2.6056E-03_JPRB,2.3332E-03_JPRB,2.0258E-03_JPRB,1.6825E-03_JPRB,&
+ & 1.3078E-03_JPRB,8.8471E-04_JPRB,1.7852E-02_JPRB/)  
+KAO( :, 1, 9, 7) = (/&
+ & 2.1045E-03_JPRB,1.8749E-03_JPRB,1.6563E-03_JPRB,1.4213E-03_JPRB,1.1793E-03_JPRB,9.2862E-04_JPRB,&
+ & 6.6550E-04_JPRB,3.8300E-04_JPRB,4.0779E-02_JPRB/)  
+KAO( :, 2, 9, 7) = (/&
+ & 2.1941E-03_JPRB,1.9801E-03_JPRB,1.7595E-03_JPRB,1.5250E-03_JPRB,1.2768E-03_JPRB,1.0150E-03_JPRB,&
+ & 7.3680E-04_JPRB,4.3556E-04_JPRB,4.4180E-02_JPRB/)  
+KAO( :, 3, 9, 7) = (/&
+ & 2.3035E-03_JPRB,2.1066E-03_JPRB,1.8914E-03_JPRB,1.6530E-03_JPRB,1.3964E-03_JPRB,1.1220E-03_JPRB,&
+ & 8.2430E-04_JPRB,5.1028E-04_JPRB,4.8665E-02_JPRB/)  
+KAO( :, 4, 9, 7) = (/&
+ & 2.4266E-03_JPRB,2.2548E-03_JPRB,2.0445E-03_JPRB,1.8037E-03_JPRB,1.5398E-03_JPRB,1.2522E-03_JPRB,&
+ & 9.4060E-04_JPRB,6.0474E-04_JPRB,5.4418E-02_JPRB/)  
+KAO( :, 5, 9, 7) = (/&
+ & 2.5648E-03_JPRB,2.4232E-03_JPRB,2.2170E-03_JPRB,1.9746E-03_JPRB,1.7066E-03_JPRB,1.4131E-03_JPRB,&
+ & 1.0872E-03_JPRB,7.2231E-04_JPRB,6.1744E-02_JPRB/)  
+KAO( :, 1,10, 7) = (/&
+ & 1.7736E-03_JPRB,1.5819E-03_JPRB,1.3957E-03_JPRB,1.1944E-03_JPRB,9.8623E-04_JPRB,7.7163E-04_JPRB,&
+ & 5.4898E-04_JPRB,3.1298E-04_JPRB,2.1288E-01_JPRB/)  
+KAO( :, 2,10, 7) = (/&
+ & 1.8520E-03_JPRB,1.6738E-03_JPRB,1.4851E-03_JPRB,1.2823E-03_JPRB,1.0679E-03_JPRB,8.4345E-04_JPRB,&
+ & 6.0874E-04_JPRB,3.5579E-04_JPRB,2.2960E-01_JPRB/)  
+KAO( :, 3,10, 7) = (/&
+ & 1.9439E-03_JPRB,1.7818E-03_JPRB,1.5963E-03_JPRB,1.3903E-03_JPRB,1.1685E-03_JPRB,9.3435E-04_JPRB,&
+ & 6.8422E-04_JPRB,4.1671E-04_JPRB,2.4868E-01_JPRB/)  
+KAO( :, 4,10, 7) = (/&
+ & 2.0519E-03_JPRB,1.9108E-03_JPRB,1.7263E-03_JPRB,1.5165E-03_JPRB,1.2885E-03_JPRB,1.0455E-03_JPRB,&
+ & 7.8283E-04_JPRB,4.9584E-04_JPRB,2.7032E-01_JPRB/)  
+KAO( :, 5,10, 7) = (/&
+ & 2.1743E-03_JPRB,2.0588E-03_JPRB,1.8772E-03_JPRB,1.6640E-03_JPRB,1.4326E-03_JPRB,1.1843E-03_JPRB,&
+ & 9.0587E-04_JPRB,5.9427E-04_JPRB,2.9596E-01_JPRB/)  
+KAO( :, 1,11, 7) = (/&
+ & 1.5501E-03_JPRB,1.3901E-03_JPRB,1.2238E-03_JPRB,1.0457E-03_JPRB,8.6223E-04_JPRB,6.7257E-04_JPRB,&
+ & 4.7782E-04_JPRB,2.7194E-04_JPRB,4.0190E-01_JPRB/)  
+KAO( :, 2,11, 7) = (/&
+ & 1.6161E-03_JPRB,1.4686E-03_JPRB,1.3022E-03_JPRB,1.1228E-03_JPRB,9.3349E-04_JPRB,7.3693E-04_JPRB,&
+ & 5.3209E-04_JPRB,3.1210E-04_JPRB,4.3586E-01_JPRB/)  
+KAO( :, 3,11, 7) = (/&
+ & 1.6959E-03_JPRB,1.5640E-03_JPRB,1.3990E-03_JPRB,1.2156E-03_JPRB,1.0204E-03_JPRB,8.1637E-04_JPRB,&
+ & 6.0174E-04_JPRB,3.6844E-04_JPRB,4.7353E-01_JPRB/)  
+KAO( :, 4,11, 7) = (/&
+ & 1.7905E-03_JPRB,1.6788E-03_JPRB,1.5149E-03_JPRB,1.3282E-03_JPRB,1.1282E-03_JPRB,9.1912E-04_JPRB,&
+ & 6.9230E-04_JPRB,4.4075E-04_JPRB,5.1437E-01_JPRB/)  
+KAO( :, 5,11, 7) = (/&
+ & 1.8993E-03_JPRB,1.8110E-03_JPRB,1.6496E-03_JPRB,1.4619E-03_JPRB,1.2633E-03_JPRB,1.0482E-03_JPRB,&
+ & 8.0399E-04_JPRB,5.3153E-04_JPRB,5.6007E-01_JPRB/)  
+KAO( :, 1,12, 7) = (/&
+ & 1.4337E-03_JPRB,1.2858E-03_JPRB,1.1285E-03_JPRB,9.6281E-04_JPRB,7.9113E-04_JPRB,6.1463E-04_JPRB,&
+ & 4.3486E-04_JPRB,2.4590E-04_JPRB,5.1560E-01_JPRB/)  
+KAO( :, 2,12, 7) = (/&
+ & 1.4907E-03_JPRB,1.3522E-03_JPRB,1.1952E-03_JPRB,1.0259E-03_JPRB,8.4928E-04_JPRB,6.6742E-04_JPRB,&
+ & 4.8034E-04_JPRB,2.8126E-04_JPRB,5.6136E-01_JPRB/)  
+KAO( :, 3,12, 7) = (/&
+ & 1.5589E-03_JPRB,1.4349E-03_JPRB,1.2778E-03_JPRB,1.1050E-03_JPRB,9.2336E-04_JPRB,7.3586E-04_JPRB,&
+ & 5.4130E-04_JPRB,3.2994E-04_JPRB,6.1298E-01_JPRB/)  
+KAO( :, 4,12, 7) = (/&
+ & 1.6374E-03_JPRB,1.5317E-03_JPRB,1.3749E-03_JPRB,1.1997E-03_JPRB,1.0160E-03_JPRB,8.2656E-04_JPRB,&
+ & 6.2085E-04_JPRB,3.9394E-04_JPRB,6.6802E-01_JPRB/)  
+KAO( :, 5,12, 7) = (/&
+ & 1.7281E-03_JPRB,1.6427E-03_JPRB,1.4888E-03_JPRB,1.3162E-03_JPRB,1.1355E-03_JPRB,9.3878E-04_JPRB,&
+ & 7.1928E-04_JPRB,4.7571E-04_JPRB,7.2750E-01_JPRB/)  
+KAO( :, 1,13, 7) = (/&
+ & 1.4127E-03_JPRB,1.2657E-03_JPRB,1.1099E-03_JPRB,9.4602E-04_JPRB,7.7557E-04_JPRB,6.0086E-04_JPRB,&
+ & 4.2330E-04_JPRB,2.3798E-04_JPRB,5.3307E-01_JPRB/)  
+KAO( :, 2,13, 7) = (/&
+ & 1.4751E-03_JPRB,1.3349E-03_JPRB,1.1777E-03_JPRB,1.0078E-03_JPRB,8.3162E-04_JPRB,6.5054E-04_JPRB,&
+ & 4.6516E-04_JPRB,2.6968E-04_JPRB,5.8063E-01_JPRB/)  
+KAO( :, 3,13, 7) = (/&
+ & 1.5459E-03_JPRB,1.4170E-03_JPRB,1.2569E-03_JPRB,1.0823E-03_JPRB,9.0010E-04_JPRB,7.1353E-04_JPRB,&
+ & 5.2060E-04_JPRB,3.1113E-04_JPRB,6.3437E-01_JPRB/)  
+KAO( :, 4,13, 7) = (/&
+ & 1.6229E-03_JPRB,1.5083E-03_JPRB,1.3464E-03_JPRB,1.1679E-03_JPRB,9.8357E-04_JPRB,7.9315E-04_JPRB,&
+ & 5.8870E-04_JPRB,3.6533E-04_JPRB,6.9306E-01_JPRB/)  
+KAO( :, 5,13, 7) = (/&
+ & 1.7093E-03_JPRB,1.6104E-03_JPRB,1.4477E-03_JPRB,1.2713E-03_JPRB,1.0860E-03_JPRB,8.8862E-04_JPRB,&
+ & 6.7236E-04_JPRB,4.3506E-04_JPRB,7.5652E-01_JPRB/)  
+KAO( :, 1, 1, 8) = (/&
+ & 1.1271E-02_JPRB,1.0036E-02_JPRB,8.8055E-03_JPRB,7.5864E-03_JPRB,6.4304E-03_JPRB,5.2105E-03_JPRB,&
+ & 3.8976E-03_JPRB,2.4887E-03_JPRB,2.5781E-03_JPRB/)  
+KAO( :, 2, 1, 8) = (/&
+ & 1.1795E-02_JPRB,1.0572E-02_JPRB,9.3466E-03_JPRB,8.1711E-03_JPRB,6.9948E-03_JPRB,5.7121E-03_JPRB,&
+ & 4.3485E-03_JPRB,2.8557E-03_JPRB,3.2233E-03_JPRB/)  
+KAO( :, 3, 1, 8) = (/&
+ & 1.2322E-02_JPRB,1.1132E-02_JPRB,9.9358E-03_JPRB,8.8252E-03_JPRB,7.5937E-03_JPRB,6.2705E-03_JPRB,&
+ & 4.8434E-03_JPRB,3.3250E-03_JPRB,3.9875E-03_JPRB/)  
+KAO( :, 4, 1, 8) = (/&
+ & 1.2851E-02_JPRB,1.1725E-02_JPRB,1.0603E-02_JPRB,9.4992E-03_JPRB,8.2313E-03_JPRB,6.8944E-03_JPRB,&
+ & 5.3932E-03_JPRB,3.9133E-03_JPRB,4.8783E-03_JPRB/)  
+KAO( :, 5, 1, 8) = (/&
+ & 1.3382E-02_JPRB,1.2340E-02_JPRB,1.1321E-02_JPRB,1.0197E-02_JPRB,8.9293E-03_JPRB,7.5819E-03_JPRB,&
+ & 6.0303E-03_JPRB,4.6405E-03_JPRB,5.9012E-03_JPRB/)  
+KAO( :, 1, 2, 8) = (/&
+ & 1.0672E-02_JPRB,9.5056E-03_JPRB,8.3387E-03_JPRB,7.1916E-03_JPRB,6.1140E-03_JPRB,4.9607E-03_JPRB,&
+ & 3.7058E-03_JPRB,2.3880E-03_JPRB,2.7395E-03_JPRB/)  
+KAO( :, 2, 2, 8) = (/&
+ & 1.1169E-02_JPRB,1.0020E-02_JPRB,8.8610E-03_JPRB,7.7691E-03_JPRB,6.6689E-03_JPRB,5.4487E-03_JPRB,&
+ & 4.1407E-03_JPRB,2.7243E-03_JPRB,3.3802E-03_JPRB/)  
+KAO( :, 3, 2, 8) = (/&
+ & 1.1679E-02_JPRB,1.0568E-02_JPRB,9.4396E-03_JPRB,8.4156E-03_JPRB,7.2560E-03_JPRB,5.9872E-03_JPRB,&
+ & 4.6292E-03_JPRB,3.1276E-03_JPRB,4.1522E-03_JPRB/)  
+KAO( :, 4, 2, 8) = (/&
+ & 1.2189E-02_JPRB,1.1143E-02_JPRB,1.0088E-02_JPRB,9.0819E-03_JPRB,7.8824E-03_JPRB,6.5917E-03_JPRB,&
+ & 5.1714E-03_JPRB,3.6254E-03_JPRB,5.0691E-03_JPRB/)  
+KAO( :, 5, 2, 8) = (/&
+ & 1.2702E-02_JPRB,1.1729E-02_JPRB,1.0782E-02_JPRB,9.7685E-03_JPRB,8.5622E-03_JPRB,7.2579E-03_JPRB,&
+ & 5.7650E-03_JPRB,4.2498E-03_JPRB,6.1336E-03_JPRB/)  
+KAO( :, 1, 3, 8) = (/&
+ & 9.8797E-03_JPRB,8.7861E-03_JPRB,7.6933E-03_JPRB,6.6349E-03_JPRB,5.6262E-03_JPRB,4.5704E-03_JPRB,&
+ & 3.4179E-03_JPRB,2.1903E-03_JPRB,3.6361E-03_JPRB/)  
+KAO( :, 2, 3, 8) = (/&
+ & 1.0349E-02_JPRB,9.2701E-03_JPRB,8.1866E-03_JPRB,7.1655E-03_JPRB,6.1521E-03_JPRB,5.0318E-03_JPRB,&
+ & 3.8109E-03_JPRB,2.5138E-03_JPRB,4.3860E-03_JPRB/)  
+KAO( :, 3, 3, 8) = (/&
+ & 1.0830E-02_JPRB,9.7857E-03_JPRB,8.7308E-03_JPRB,7.7641E-03_JPRB,6.7179E-03_JPRB,5.5402E-03_JPRB,&
+ & 4.2653E-03_JPRB,2.8863E-03_JPRB,5.2476E-03_JPRB/)  
+KAO( :, 4, 3, 8) = (/&
+ & 1.1311E-02_JPRB,1.0326E-02_JPRB,9.3387E-03_JPRB,8.4020E-03_JPRB,7.3182E-03_JPRB,6.0959E-03_JPRB,&
+ & 4.7833E-03_JPRB,3.3218E-03_JPRB,6.2518E-03_JPRB/)  
+KAO( :, 5, 3, 8) = (/&
+ & 1.1804E-02_JPRB,1.0884E-02_JPRB,9.9988E-03_JPRB,9.0694E-03_JPRB,7.9619E-03_JPRB,6.7205E-03_JPRB,&
+ & 5.3622E-03_JPRB,3.8455E-03_JPRB,7.4421E-03_JPRB/)  
+KAO( :, 1, 4, 8) = (/&
+ & 9.0341E-03_JPRB,8.0181E-03_JPRB,7.0097E-03_JPRB,6.0433E-03_JPRB,5.0961E-03_JPRB,4.1279E-03_JPRB,&
+ & 3.0949E-03_JPRB,1.9591E-03_JPRB,5.2205E-03_JPRB/)  
+KAO( :, 2, 4, 8) = (/&
+ & 9.4663E-03_JPRB,8.4620E-03_JPRB,7.4631E-03_JPRB,6.5118E-03_JPRB,5.5670E-03_JPRB,4.5574E-03_JPRB,&
+ & 3.4524E-03_JPRB,2.2551E-03_JPRB,6.2821E-03_JPRB/)  
+KAO( :, 3, 4, 8) = (/&
+ & 9.9093E-03_JPRB,8.9346E-03_JPRB,7.9590E-03_JPRB,7.0438E-03_JPRB,6.0869E-03_JPRB,5.0245E-03_JPRB,&
+ & 3.8570E-03_JPRB,2.6046E-03_JPRB,7.4874E-03_JPRB/)  
+KAO( :, 4, 4, 8) = (/&
+ & 1.0364E-02_JPRB,9.4379E-03_JPRB,8.5216E-03_JPRB,7.6276E-03_JPRB,6.6482E-03_JPRB,5.5372E-03_JPRB,&
+ & 4.3314E-03_JPRB,3.0117E-03_JPRB,8.8492E-03_JPRB/)  
+KAO( :, 5, 4, 8) = (/&
+ & 1.0832E-02_JPRB,9.9630E-03_JPRB,9.1301E-03_JPRB,8.2526E-03_JPRB,7.2502E-03_JPRB,6.1063E-03_JPRB,&
+ & 4.8699E-03_JPRB,3.4864E-03_JPRB,1.0381E-02_JPRB/)  
+KAO( :, 1, 5, 8) = (/&
+ & 8.2066E-03_JPRB,7.2704E-03_JPRB,6.3520E-03_JPRB,5.4803E-03_JPRB,4.5989E-03_JPRB,3.7047E-03_JPRB,&
+ & 2.7766E-03_JPRB,1.7333E-03_JPRB,7.2922E-03_JPRB/)  
+KAO( :, 2, 5, 8) = (/&
+ & 8.5864E-03_JPRB,7.6589E-03_JPRB,6.7541E-03_JPRB,5.8852E-03_JPRB,5.0024E-03_JPRB,4.0864E-03_JPRB,&
+ & 3.0959E-03_JPRB,1.9895E-03_JPRB,8.7707E-03_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB13:PART5',1,ZHOOK_HANDLE)
+END SUBROUTINE PART5
+
+
+SUBROUTINE PART6
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB13:PART6',0,ZHOOK_HANDLE)
+
+
+KAO( :, 3, 5, 8) = (/&
+ & 8.9852E-03_JPRB,8.0815E-03_JPRB,7.1976E-03_JPRB,6.3516E-03_JPRB,5.4653E-03_JPRB,4.5110E-03_JPRB,&
+ & 3.4542E-03_JPRB,2.3009E-03_JPRB,1.0486E-02_JPRB/)  
+KAO( :, 4, 5, 8) = (/&
+ & 9.4036E-03_JPRB,8.5424E-03_JPRB,7.7055E-03_JPRB,6.8683E-03_JPRB,5.9736E-03_JPRB,4.9773E-03_JPRB,&
+ & 3.8692E-03_JPRB,2.6768E-03_JPRB,1.2445E-02_JPRB/)  
+KAO( :, 5, 5, 8) = (/&
+ & 9.8437E-03_JPRB,9.0342E-03_JPRB,8.2571E-03_JPRB,7.4313E-03_JPRB,6.5257E-03_JPRB,5.4908E-03_JPRB,&
+ & 4.3579E-03_JPRB,3.1244E-03_JPRB,1.4671E-02_JPRB/)  
+KAO( :, 1, 6, 8) = (/&
+ & 7.3775E-03_JPRB,6.5258E-03_JPRB,5.7033E-03_JPRB,4.9243E-03_JPRB,4.1126E-03_JPRB,3.2909E-03_JPRB,&
+ & 2.4468E-03_JPRB,1.5110E-03_JPRB,9.9543E-03_JPRB/)  
+KAO( :, 2, 6, 8) = (/&
+ & 7.6997E-03_JPRB,6.8542E-03_JPRB,6.0539E-03_JPRB,5.2649E-03_JPRB,4.4522E-03_JPRB,3.6170E-03_JPRB,&
+ & 2.7307E-03_JPRB,1.7266E-03_JPRB,1.1860E-02_JPRB/)  
+KAO( :, 3, 6, 8) = (/&
+ & 8.0489E-03_JPRB,7.2263E-03_JPRB,6.4458E-03_JPRB,5.6660E-03_JPRB,4.8447E-03_JPRB,3.9877E-03_JPRB,&
+ & 3.0489E-03_JPRB,1.9907E-03_JPRB,1.4111E-02_JPRB/)  
+KAO( :, 4, 6, 8) = (/&
+ & 8.4274E-03_JPRB,7.6434E-03_JPRB,6.8896E-03_JPRB,6.1185E-03_JPRB,5.2908E-03_JPRB,4.4013E-03_JPRB,&
+ & 3.4126E-03_JPRB,2.3197E-03_JPRB,1.6745E-02_JPRB/)  
+KAO( :, 5, 6, 8) = (/&
+ & 8.8394E-03_JPRB,8.0956E-03_JPRB,7.3855E-03_JPRB,6.6147E-03_JPRB,5.7835E-03_JPRB,4.8630E-03_JPRB,&
+ & 3.8408E-03_JPRB,2.7242E-03_JPRB,1.9764E-02_JPRB/)  
+KAO( :, 1, 7, 8) = (/&
+ & 6.5565E-03_JPRB,5.7913E-03_JPRB,5.0650E-03_JPRB,4.3717E-03_JPRB,3.6417E-03_JPRB,2.9003E-03_JPRB,&
+ & 2.1352E-03_JPRB,1.3029E-03_JPRB,1.4373E-02_JPRB/)  
+KAO( :, 2, 7, 8) = (/&
+ & 6.8314E-03_JPRB,6.0702E-03_JPRB,5.3740E-03_JPRB,4.6650E-03_JPRB,3.9304E-03_JPRB,3.1756E-03_JPRB,&
+ & 2.3780E-03_JPRB,1.4833E-03_JPRB,1.7113E-02_JPRB/)  
+KAO( :, 3, 7, 8) = (/&
+ & 7.1400E-03_JPRB,6.4022E-03_JPRB,5.7201E-03_JPRB,5.0134E-03_JPRB,4.2702E-03_JPRB,3.4939E-03_JPRB,&
+ & 2.6530E-03_JPRB,1.7044E-03_JPRB,2.0310E-02_JPRB/)  
+KAO( :, 4, 7, 8) = (/&
+ & 7.4900E-03_JPRB,6.7869E-03_JPRB,6.1184E-03_JPRB,5.4134E-03_JPRB,4.6538E-03_JPRB,3.8497E-03_JPRB,&
+ & 2.9716E-03_JPRB,1.9853E-03_JPRB,2.4047E-02_JPRB/)  
+KAO( :, 5, 7, 8) = (/&
+ & 7.8853E-03_JPRB,7.2198E-03_JPRB,6.5744E-03_JPRB,5.8583E-03_JPRB,5.0855E-03_JPRB,4.2547E-03_JPRB,&
+ & 3.3480E-03_JPRB,2.3372E-03_JPRB,2.8402E-02_JPRB/)  
+KAO( :, 1, 8, 8) = (/&
+ & 5.7906E-03_JPRB,5.1087E-03_JPRB,4.4702E-03_JPRB,3.8543E-03_JPRB,3.2058E-03_JPRB,2.5413E-03_JPRB,&
+ & 1.8524E-03_JPRB,1.1137E-03_JPRB,2.4973E-02_JPRB/)  
+KAO( :, 2, 8, 8) = (/&
+ & 6.0296E-03_JPRB,5.3498E-03_JPRB,4.7428E-03_JPRB,4.1103E-03_JPRB,3.4527E-03_JPRB,2.7740E-03_JPRB,&
+ & 2.0568E-03_JPRB,1.2678E-03_JPRB,2.9683E-02_JPRB/)  
+KAO( :, 3, 8, 8) = (/&
+ & 6.3087E-03_JPRB,5.6506E-03_JPRB,5.0549E-03_JPRB,4.4167E-03_JPRB,3.7489E-03_JPRB,3.0452E-03_JPRB,&
+ & 2.2930E-03_JPRB,1.4507E-03_JPRB,3.5325E-02_JPRB/)  
+KAO( :, 4, 8, 8) = (/&
+ & 6.6419E-03_JPRB,6.0135E-03_JPRB,5.4190E-03_JPRB,4.7745E-03_JPRB,4.0857E-03_JPRB,3.3552E-03_JPRB,&
+ & 2.5672E-03_JPRB,1.6862E-03_JPRB,4.1942E-02_JPRB/)  
+KAO( :, 5, 8, 8) = (/&
+ & 7.0283E-03_JPRB,6.4363E-03_JPRB,5.8469E-03_JPRB,5.1836E-03_JPRB,4.4693E-03_JPRB,3.7129E-03_JPRB,&
+ & 2.8969E-03_JPRB,1.9865E-03_JPRB,4.9701E-02_JPRB/)  
+KAO( :, 1, 9, 8) = (/&
+ & 5.0360E-03_JPRB,4.4397E-03_JPRB,3.8840E-03_JPRB,3.3435E-03_JPRB,2.7807E-03_JPRB,2.1932E-03_JPRB,&
+ & 1.5839E-03_JPRB,9.3584E-04_JPRB,8.5840E-02_JPRB/)  
+KAO( :, 2, 9, 8) = (/&
+ & 5.2453E-03_JPRB,4.6508E-03_JPRB,4.1231E-03_JPRB,3.5696E-03_JPRB,2.9904E-03_JPRB,2.3871E-03_JPRB,&
+ & 1.7527E-03_JPRB,1.0640E-03_JPRB,1.0011E-01_JPRB/)  
+KAO( :, 3, 9, 8) = (/&
+ & 5.5017E-03_JPRB,4.9250E-03_JPRB,4.4061E-03_JPRB,3.8385E-03_JPRB,3.2464E-03_JPRB,2.6177E-03_JPRB,&
+ & 1.9509E-03_JPRB,1.2177E-03_JPRB,1.1783E-01_JPRB/)  
+KAO( :, 4, 9, 8) = (/&
+ & 5.8157E-03_JPRB,5.2667E-03_JPRB,4.7409E-03_JPRB,4.1617E-03_JPRB,3.5430E-03_JPRB,2.8840E-03_JPRB,&
+ & 2.1850E-03_JPRB,1.4137E-03_JPRB,1.3938E-01_JPRB/)  
+KAO( :, 5, 9, 8) = (/&
+ & 6.1830E-03_JPRB,5.6669E-03_JPRB,5.1359E-03_JPRB,4.5353E-03_JPRB,3.8872E-03_JPRB,3.1987E-03_JPRB,&
+ & 2.4695E-03_JPRB,1.6659E-03_JPRB,1.6517E-01_JPRB/)  
+KAO( :, 1,10, 8) = (/&
+ & 4.3296E-03_JPRB,3.8182E-03_JPRB,3.3429E-03_JPRB,2.8727E-03_JPRB,2.3861E-03_JPRB,1.8763E-03_JPRB,&
+ & 1.3438E-03_JPRB,7.8161E-04_JPRB,3.9143E-01_JPRB/)  
+KAO( :, 2,10, 8) = (/&
+ & 4.5130E-03_JPRB,4.0050E-03_JPRB,3.5504E-03_JPRB,3.0710E-03_JPRB,2.5674E-03_JPRB,2.0397E-03_JPRB,&
+ & 1.4837E-03_JPRB,8.8733E-04_JPRB,4.3656E-01_JPRB/)  
+KAO( :, 3,10, 8) = (/&
+ & 4.7537E-03_JPRB,4.2601E-03_JPRB,3.8073E-03_JPRB,3.3140E-03_JPRB,2.7911E-03_JPRB,2.2372E-03_JPRB,&
+ & 1.6497E-03_JPRB,1.0161E-03_JPRB,4.9451E-01_JPRB/)  
+KAO( :, 4,10, 8) = (/&
+ & 5.0463E-03_JPRB,4.5800E-03_JPRB,4.1210E-03_JPRB,3.6090E-03_JPRB,3.0570E-03_JPRB,2.4709E-03_JPRB,&
+ & 1.8508E-03_JPRB,1.1821E-03_JPRB,5.6882E-01_JPRB/)  
+KAO( :, 5,10, 8) = (/&
+ & 5.3939E-03_JPRB,4.9543E-03_JPRB,4.4851E-03_JPRB,3.9500E-03_JPRB,3.3687E-03_JPRB,2.7497E-03_JPRB,&
+ & 2.1004E-03_JPRB,1.3979E-03_JPRB,6.6139E-01_JPRB/)  
+KAO( :, 1,11, 8) = (/&
+ & 3.7600E-03_JPRB,3.3296E-03_JPRB,2.9316E-03_JPRB,2.5257E-03_JPRB,2.0989E-03_JPRB,1.6511E-03_JPRB,&
+ & 1.1820E-03_JPRB,6.8533E-04_JPRB,7.4408E-01_JPRB/)  
+KAO( :, 2,11, 8) = (/&
+ & 3.9507E-03_JPRB,3.5282E-03_JPRB,3.1373E-03_JPRB,2.7184E-03_JPRB,2.2731E-03_JPRB,1.8035E-03_JPRB,&
+ & 1.3072E-03_JPRB,7.7991E-04_JPRB,8.1308E-01_JPRB/)  
+KAO( :, 3,11, 8) = (/&
+ & 4.1947E-03_JPRB,3.7893E-03_JPRB,3.3928E-03_JPRB,2.9586E-03_JPRB,2.4893E-03_JPRB,1.9891E-03_JPRB,&
+ & 1.4610E-03_JPRB,8.9963E-04_JPRB,8.9527E-01_JPRB/)  
+KAO( :, 4,11, 8) = (/&
+ & 4.4908E-03_JPRB,4.1076E-03_JPRB,3.7028E-03_JPRB,3.2435E-03_JPRB,2.7433E-03_JPRB,2.2120E-03_JPRB,&
+ & 1.6527E-03_JPRB,1.0595E-03_JPRB,9.9684E-01_JPRB/)  
+KAO( :, 5,11, 8) = (/&
+ & 4.8478E-03_JPRB,4.4859E-03_JPRB,4.0645E-03_JPRB,3.5748E-03_JPRB,3.0447E-03_JPRB,2.4822E-03_JPRB,&
+ & 1.8975E-03_JPRB,1.2673E-03_JPRB,1.1166E+00_JPRB/)  
+KAO( :, 1,12, 8) = (/&
+ & 3.2909E-03_JPRB,2.9295E-03_JPRB,2.5867E-03_JPRB,2.2286E-03_JPRB,1.8515E-03_JPRB,1.4556E-03_JPRB,&
+ & 1.0393E-03_JPRB,6.0072E-04_JPRB,1.0077E+00_JPRB/)  
+KAO( :, 2,12, 8) = (/&
+ & 3.4843E-03_JPRB,3.1331E-03_JPRB,2.7896E-03_JPRB,2.4180E-03_JPRB,2.0217E-03_JPRB,1.5999E-03_JPRB,&
+ & 1.1545E-03_JPRB,6.8643E-04_JPRB,1.0948E+00_JPRB/)  
+KAO( :, 3,12, 8) = (/&
+ & 3.7310E-03_JPRB,3.3942E-03_JPRB,3.0433E-03_JPRB,2.6518E-03_JPRB,2.2272E-03_JPRB,1.7748E-03_JPRB,&
+ & 1.3002E-03_JPRB,8.0128E-04_JPRB,1.1979E+00_JPRB/)  
+KAO( :, 4,12, 8) = (/&
+ & 4.0332E-03_JPRB,3.7134E-03_JPRB,3.3499E-03_JPRB,2.9292E-03_JPRB,2.4733E-03_JPRB,1.9891E-03_JPRB,&
+ & 1.4867E-03_JPRB,9.5533E-04_JPRB,1.3214E+00_JPRB/)  
+KAO( :, 5,12, 8) = (/&
+ & 4.3825E-03_JPRB,4.0886E-03_JPRB,3.7068E-03_JPRB,3.2581E-03_JPRB,2.7706E-03_JPRB,2.2595E-03_JPRB,&
+ & 1.7283E-03_JPRB,1.1510E-03_JPRB,1.4622E+00_JPRB/)  
+KAO( :, 1,13, 8) = (/&
+ & 3.0478E-03_JPRB,2.7205E-03_JPRB,2.3969E-03_JPRB,2.0570E-03_JPRB,1.7018E-03_JPRB,1.3312E-03_JPRB,&
+ & 9.4239E-04_JPRB,5.3797E-04_JPRB,1.1139E+00_JPRB/)  
+KAO( :, 2,13, 8) = (/&
+ & 3.2266E-03_JPRB,2.9089E-03_JPRB,2.5816E-03_JPRB,2.2296E-03_JPRB,1.8550E-03_JPRB,1.4585E-03_JPRB,&
+ & 1.0452E-03_JPRB,6.1598E-04_JPRB,1.2073E+00_JPRB/)  
+KAO( :, 3,13, 8) = (/&
+ & 3.4554E-03_JPRB,3.1502E-03_JPRB,2.8168E-03_JPRB,2.4455E-03_JPRB,2.0432E-03_JPRB,1.6195E-03_JPRB,&
+ & 1.1807E-03_JPRB,7.2584E-04_JPRB,1.3161E+00_JPRB/)  
+KAO( :, 4,13, 8) = (/&
+ & 3.7354E-03_JPRB,3.4492E-03_JPRB,3.1036E-03_JPRB,2.7077E-03_JPRB,2.2785E-03_JPRB,1.8279E-03_JPRB,&
+ & 1.3627E-03_JPRB,8.7250E-04_JPRB,1.4441E+00_JPRB/)  
+KAO( :, 5,13, 8) = (/&
+ & 4.0484E-03_JPRB,3.7921E-03_JPRB,3.4369E-03_JPRB,3.0193E-03_JPRB,2.5680E-03_JPRB,2.0959E-03_JPRB,&
+ & 1.6011E-03_JPRB,1.0569E-03_JPRB,1.5851E+00_JPRB/)  
+KAO( :, 1, 1, 9) = (/&
+ & 1.9029E-02_JPRB,1.6853E-02_JPRB,1.4735E-02_JPRB,1.2587E-02_JPRB,1.0467E-02_JPRB,8.5540E-03_JPRB,&
+ & 6.8482E-03_JPRB,5.4691E-03_JPRB,7.2696E-03_JPRB/)  
+KAO( :, 2, 1, 9) = (/&
+ & 2.0092E-02_JPRB,1.7878E-02_JPRB,1.5728E-02_JPRB,1.3580E-02_JPRB,1.1524E-02_JPRB,9.7463E-03_JPRB,&
+ & 8.1292E-03_JPRB,6.9002E-03_JPRB,9.2265E-03_JPRB/)  
+KAO( :, 3, 1, 9) = (/&
+ & 2.1289E-02_JPRB,1.9078E-02_JPRB,1.6951E-02_JPRB,1.4803E-02_JPRB,1.2902E-02_JPRB,1.1235E-02_JPRB,&
+ & 9.7244E-03_JPRB,8.5896E-03_JPRB,1.1472E-02_JPRB/)  
+KAO( :, 4, 1, 9) = (/&
+ & 2.2660E-02_JPRB,2.0471E-02_JPRB,1.8401E-02_JPRB,1.6346E-02_JPRB,1.4609E-02_JPRB,1.3016E-02_JPRB,&
+ & 1.1621E-02_JPRB,1.0516E-02_JPRB,1.4012E-02_JPRB/)  
+KAO( :, 5, 1, 9) = (/&
+ & 2.4197E-02_JPRB,2.2063E-02_JPRB,2.0065E-02_JPRB,1.8209E-02_JPRB,1.6609E-02_JPRB,1.5079E-02_JPRB,&
+ & 1.3788E-02_JPRB,1.2665E-02_JPRB,1.6825E-02_JPRB/)  
+KAO( :, 1, 2, 9) = (/&
+ & 1.9742E-02_JPRB,1.7478E-02_JPRB,1.5268E-02_JPRB,1.3020E-02_JPRB,1.0794E-02_JPRB,8.7264E-03_JPRB,&
+ & 6.7494E-03_JPRB,5.0072E-03_JPRB,7.5472E-03_JPRB/)  
+KAO( :, 2, 2, 9) = (/&
+ & 2.0752E-02_JPRB,1.8451E-02_JPRB,1.6203E-02_JPRB,1.3921E-02_JPRB,1.1711E-02_JPRB,9.7269E-03_JPRB,&
+ & 7.8214E-03_JPRB,6.2435E-03_JPRB,9.6127E-03_JPRB/)  
+KAO( :, 3, 2, 9) = (/&
+ & 2.1850E-02_JPRB,1.9539E-02_JPRB,1.7284E-02_JPRB,1.4968E-02_JPRB,1.2893E-02_JPRB,1.0990E-02_JPRB,&
+ & 9.1753E-03_JPRB,7.7563E-03_JPRB,1.2009E-02_JPRB/)  
+KAO( :, 4, 2, 9) = (/&
+ & 2.3047E-02_JPRB,2.0746E-02_JPRB,1.8528E-02_JPRB,1.6289E-02_JPRB,1.4365E-02_JPRB,1.2522E-02_JPRB,&
+ & 1.0820E-02_JPRB,9.5216E-03_JPRB,1.4733E-02_JPRB/)  
+KAO( :, 5, 2, 9) = (/&
+ & 2.4378E-02_JPRB,2.2145E-02_JPRB,1.9963E-02_JPRB,1.7904E-02_JPRB,1.6106E-02_JPRB,1.4326E-02_JPRB,&
+ & 1.2781E-02_JPRB,1.1538E-02_JPRB,1.7764E-02_JPRB/)  
+KAO( :, 1, 3, 9) = (/&
+ & 2.0246E-02_JPRB,1.7907E-02_JPRB,1.5619E-02_JPRB,1.3303E-02_JPRB,1.1014E-02_JPRB,8.8212E-03_JPRB,&
+ & 6.6585E-03_JPRB,4.5305E-03_JPRB,9.1026E-03_JPRB/)  
+KAO( :, 2, 3, 9) = (/&
+ & 2.1216E-02_JPRB,1.8847E-02_JPRB,1.6535E-02_JPRB,1.4182E-02_JPRB,1.1869E-02_JPRB,9.7020E-03_JPRB,&
+ & 7.5117E-03_JPRB,5.5113E-03_JPRB,1.1552E-02_JPRB/)  
+KAO( :, 3, 3, 9) = (/&
+ & 2.2286E-02_JPRB,1.9902E-02_JPRB,1.7571E-02_JPRB,1.5169E-02_JPRB,1.2921E-02_JPRB,1.0740E-02_JPRB,&
+ & 8.6112E-03_JPRB,6.7529E-03_JPRB,1.4497E-02_JPRB/)  
+KAO( :, 4, 3, 9) = (/&
+ & 2.3424E-02_JPRB,2.1046E-02_JPRB,1.8711E-02_JPRB,1.6326E-02_JPRB,1.4157E-02_JPRB,1.2014E-02_JPRB,&
+ & 9.9676E-03_JPRB,8.2723E-03_JPRB,1.7885E-02_JPRB/)  
+KAO( :, 5, 3, 9) = (/&
+ & 2.4644E-02_JPRB,2.2304E-02_JPRB,1.9954E-02_JPRB,1.7680E-02_JPRB,1.5613E-02_JPRB,1.3543E-02_JPRB,&
+ & 1.1603E-02_JPRB,1.0079E-02_JPRB,2.1675E-02_JPRB/)  
+KAO( :, 1, 4, 9) = (/&
+ & 2.0516E-02_JPRB,1.8121E-02_JPRB,1.5769E-02_JPRB,1.3411E-02_JPRB,1.1085E-02_JPRB,8.8389E-03_JPRB,&
+ & 6.5833E-03_JPRB,4.2076E-03_JPRB,1.2881E-02_JPRB/)  
+KAO( :, 2, 4, 9) = (/&
+ & 2.1468E-02_JPRB,1.9043E-02_JPRB,1.6678E-02_JPRB,1.4283E-02_JPRB,1.1934E-02_JPRB,9.6739E-03_JPRB,&
+ & 7.3557E-03_JPRB,4.9709E-03_JPRB,1.5909E-02_JPRB/)  
+KAO( :, 3, 4, 9) = (/&
+ & 2.2532E-02_JPRB,2.0092E-02_JPRB,1.7713E-02_JPRB,1.5283E-02_JPRB,1.2949E-02_JPRB,1.0652E-02_JPRB,&
+ & 8.2469E-03_JPRB,5.9560E-03_JPRB,1.9619E-02_JPRB/)  
+KAO( :, 4, 4, 9) = (/&
+ & 2.3665E-02_JPRB,2.1230E-02_JPRB,1.8849E-02_JPRB,1.6407E-02_JPRB,1.4104E-02_JPRB,1.1750E-02_JPRB,&
+ & 9.3432E-03_JPRB,7.1888E-03_JPRB,2.4018E-02_JPRB/)  
+KAO( :, 5, 4, 9) = (/&
+ & 2.4860E-02_JPRB,2.2477E-02_JPRB,2.0057E-02_JPRB,1.7676E-02_JPRB,1.5382E-02_JPRB,1.3031E-02_JPRB,&
+ & 1.0691E-02_JPRB,8.7092E-03_JPRB,2.9097E-02_JPRB/)  
+KAO( :, 1, 5, 9) = (/&
+ & 2.0504E-02_JPRB,1.8088E-02_JPRB,1.5703E-02_JPRB,1.3326E-02_JPRB,1.0997E-02_JPRB,8.7375E-03_JPRB,&
+ & 6.4349E-03_JPRB,4.0325E-03_JPRB,1.9706E-02_JPRB/)  
+KAO( :, 2, 5, 9) = (/&
+ & 2.1455E-02_JPRB,1.9003E-02_JPRB,1.6600E-02_JPRB,1.4207E-02_JPRB,1.1857E-02_JPRB,9.5485E-03_JPRB,&
+ & 7.1823E-03_JPRB,4.6356E-03_JPRB,2.3733E-02_JPRB/)  
+KAO( :, 3, 5, 9) = (/&
+ & 2.2502E-02_JPRB,2.0037E-02_JPRB,1.7638E-02_JPRB,1.5221E-02_JPRB,1.2854E-02_JPRB,1.0499E-02_JPRB,&
+ & 8.0330E-03_JPRB,5.4121E-03_JPRB,2.8573E-02_JPRB/)  
+KAO( :, 4, 5, 9) = (/&
+ & 2.3616E-02_JPRB,2.1161E-02_JPRB,1.8779E-02_JPRB,1.6343E-02_JPRB,1.3995E-02_JPRB,1.1576E-02_JPRB,&
+ & 8.9770E-03_JPRB,6.4039E-03_JPRB,3.4371E-02_JPRB/)  
+KAO( :, 5, 5, 9) = (/&
+ & 2.4795E-02_JPRB,2.2401E-02_JPRB,2.0008E-02_JPRB,1.7611E-02_JPRB,1.5244E-02_JPRB,1.2739E-02_JPRB,&
+ & 1.0086E-02_JPRB,7.6459E-03_JPRB,4.1145E-02_JPRB/)  
+KAO( :, 1, 6, 9) = (/&
+ & 2.0133E-02_JPRB,1.7738E-02_JPRB,1.5364E-02_JPRB,1.2999E-02_JPRB,1.0725E-02_JPRB,8.4927E-03_JPRB,&
+ & 6.2104E-03_JPRB,3.8293E-03_JPRB,2.9307E-02_JPRB/)  
+KAO( :, 2, 6, 9) = (/&
+ & 2.1045E-02_JPRB,1.8610E-02_JPRB,1.6208E-02_JPRB,1.3856E-02_JPRB,1.1560E-02_JPRB,9.2671E-03_JPRB,&
+ & 6.8969E-03_JPRB,4.3962E-03_JPRB,3.5253E-02_JPRB/)  
+KAO( :, 3, 6, 9) = (/&
+ & 2.2058E-02_JPRB,1.9606E-02_JPRB,1.7213E-02_JPRB,1.4861E-02_JPRB,1.2529E-02_JPRB,1.0178E-02_JPRB,&
+ & 7.7198E-03_JPRB,5.0397E-03_JPRB,4.2153E-02_JPRB/)  
+KAO( :, 4, 6, 9) = (/&
+ & 2.3150E-02_JPRB,2.0703E-02_JPRB,1.8349E-02_JPRB,1.5982E-02_JPRB,1.3648E-02_JPRB,1.1231E-02_JPRB,&
+ & 8.6302E-03_JPRB,5.8174E-03_JPRB,5.0140E-02_JPRB/)  
+KAO( :, 5, 6, 9) = (/&
+ & 2.4302E-02_JPRB,2.1916E-02_JPRB,1.9594E-02_JPRB,1.7235E-02_JPRB,1.4884E-02_JPRB,1.2368E-02_JPRB,&
+ & 9.6429E-03_JPRB,6.8104E-03_JPRB,5.9434E-02_JPRB/)  
+KAO( :, 1, 7, 9) = (/&
+ & 1.9536E-02_JPRB,1.7189E-02_JPRB,1.4859E-02_JPRB,1.2545E-02_JPRB,1.0327E-02_JPRB,8.1473E-03_JPRB,&
+ & 5.9285E-03_JPRB,3.5890E-03_JPRB,4.5929E-02_JPRB/)  
+KAO( :, 2, 7, 9) = (/&
+ & 2.0386E-02_JPRB,1.8001E-02_JPRB,1.5633E-02_JPRB,1.3342E-02_JPRB,1.1116E-02_JPRB,8.8902E-03_JPRB,&
+ & 6.5600E-03_JPRB,4.1234E-03_JPRB,5.5119E-02_JPRB/)  
+KAO( :, 3, 7, 9) = (/&
+ & 2.1349E-02_JPRB,1.8942E-02_JPRB,1.6585E-02_JPRB,1.4307E-02_JPRB,1.2057E-02_JPRB,9.7494E-03_JPRB,&
+ & 7.3377E-03_JPRB,4.7340E-03_JPRB,6.5943E-02_JPRB/)  
+KAO( :, 4, 7, 9) = (/&
+ & 2.2403E-02_JPRB,1.9996E-02_JPRB,1.7685E-02_JPRB,1.5416E-02_JPRB,1.3126E-02_JPRB,1.0758E-02_JPRB,&
+ & 8.2128E-03_JPRB,5.4226E-03_JPRB,7.8488E-02_JPRB/)  
+KAO( :, 5, 7, 9) = (/&
+ & 2.3510E-02_JPRB,2.1150E-02_JPRB,1.8904E-02_JPRB,1.6637E-02_JPRB,1.4327E-02_JPRB,1.1873E-02_JPRB,&
+ & 9.1897E-03_JPRB,6.2247E-03_JPRB,9.2665E-02_JPRB/)  
+KAO( :, 1, 8, 9) = (/&
+ & 1.8746E-02_JPRB,1.6470E-02_JPRB,1.4220E-02_JPRB,1.1987E-02_JPRB,9.8350E-03_JPRB,7.7336E-03_JPRB,&
+ & 5.6041E-03_JPRB,3.3408E-03_JPRB,8.6619E-02_JPRB/)  
+KAO( :, 2, 8, 9) = (/&
+ & 1.9538E-02_JPRB,1.7231E-02_JPRB,1.4934E-02_JPRB,1.2719E-02_JPRB,1.0574E-02_JPRB,8.4413E-03_JPRB,&
+ & 6.1857E-03_JPRB,3.8236E-03_JPRB,1.0386E-01_JPRB/)  
+KAO( :, 3, 8, 9) = (/&
+ & 2.0463E-02_JPRB,1.8125E-02_JPRB,1.5828E-02_JPRB,1.3641E-02_JPRB,1.1488E-02_JPRB,9.2568E-03_JPRB,&
+ & 6.9051E-03_JPRB,4.3974E-03_JPRB,1.2423E-01_JPRB/)  
+KAO( :, 4, 8, 9) = (/&
+ & 2.1475E-02_JPRB,1.9130E-02_JPRB,1.6884E-02_JPRB,1.4717E-02_JPRB,1.2518E-02_JPRB,1.0208E-02_JPRB,&
+ & 7.7414E-03_JPRB,5.0487E-03_JPRB,1.4791E-01_JPRB/)  
+KAO( :, 5, 8, 9) = (/&
+ & 2.2552E-02_JPRB,2.0240E-02_JPRB,1.8077E-02_JPRB,1.5918E-02_JPRB,1.3670E-02_JPRB,1.1281E-02_JPRB,&
+ & 8.6774E-03_JPRB,5.7934E-03_JPRB,1.7479E-01_JPRB/)  
+KAO( :, 1, 9, 9) = (/&
+ & 1.7677E-02_JPRB,1.5514E-02_JPRB,1.3384E-02_JPRB,1.1273E-02_JPRB,9.2209E-03_JPRB,7.2255E-03_JPRB,&
+ & 5.2054E-03_JPRB,3.0724E-03_JPRB,3.0542E-01_JPRB/)  
+KAO( :, 2, 9, 9) = (/&
+ & 1.8381E-02_JPRB,1.6193E-02_JPRB,1.4015E-02_JPRB,1.1915E-02_JPRB,9.8821E-03_JPRB,7.8714E-03_JPRB,&
+ & 5.7484E-03_JPRB,3.4992E-03_JPRB,3.6713E-01_JPRB/)  
+KAO( :, 3, 9, 9) = (/&
+ & 1.9248E-02_JPRB,1.7024E-02_JPRB,1.4840E-02_JPRB,1.2769E-02_JPRB,1.0738E-02_JPRB,8.6406E-03_JPRB,&
+ & 6.3997E-03_JPRB,4.0183E-03_JPRB,4.4040E-01_JPRB/)  
+KAO( :, 4, 9, 9) = (/&
+ & 2.0207E-02_JPRB,1.7971E-02_JPRB,1.5835E-02_JPRB,1.3795E-02_JPRB,1.1724E-02_JPRB,9.5294E-03_JPRB,&
+ & 7.1782E-03_JPRB,4.6229E-03_JPRB,5.2636E-01_JPRB/)  
+KAO( :, 5, 9, 9) = (/&
+ & 2.1234E-02_JPRB,1.9021E-02_JPRB,1.6969E-02_JPRB,1.4942E-02_JPRB,1.2829E-02_JPRB,1.0542E-02_JPRB,&
+ & 8.0575E-03_JPRB,5.3170E-03_JPRB,6.2525E-01_JPRB/)  
+KAO( :, 1,10, 9) = (/&
+ & 1.6394E-02_JPRB,1.4380E-02_JPRB,1.2403E-02_JPRB,1.0449E-02_JPRB,8.5433E-03_JPRB,6.6777E-03_JPRB,&
+ & 4.7921E-03_JPRB,2.8109E-03_JPRB,1.2050E+00_JPRB/)  
+KAO( :, 2,10, 9) = (/&
+ & 1.7024E-02_JPRB,1.4988E-02_JPRB,1.2970E-02_JPRB,1.1025E-02_JPRB,9.1364E-03_JPRB,7.2561E-03_JPRB,&
+ & 5.2885E-03_JPRB,3.1895E-03_JPRB,1.4500E+00_JPRB/)  
+KAO( :, 3,10, 9) = (/&
+ & 1.7826E-02_JPRB,1.5753E-02_JPRB,1.3734E-02_JPRB,1.1808E-02_JPRB,9.9253E-03_JPRB,7.9700E-03_JPRB,&
+ & 5.8931E-03_JPRB,3.6564E-03_JPRB,1.7463E+00_JPRB/)  
+KAO( :, 4,10, 9) = (/&
+ & 1.8735E-02_JPRB,1.6645E-02_JPRB,1.4665E-02_JPRB,1.2773E-02_JPRB,1.0857E-02_JPRB,8.8090E-03_JPRB,&
+ & 6.6108E-03_JPRB,4.2090E-03_JPRB,2.0981E+00_JPRB/)  
+KAO( :, 5,10, 9) = (/&
+ & 1.9712E-02_JPRB,1.7647E-02_JPRB,1.5744E-02_JPRB,1.3877E-02_JPRB,1.1904E-02_JPRB,9.7573E-03_JPRB,&
+ & 7.4286E-03_JPRB,4.8520E-03_JPRB,2.5126E+00_JPRB/)  
+KAO( :, 1,11, 9) = (/&
+ & 1.5188E-02_JPRB,1.3334E-02_JPRB,1.1520E-02_JPRB,9.7424E-03_JPRB,8.0090E-03_JPRB,6.2916E-03_JPRB,&
+ & 4.5326E-03_JPRB,2.6753E-03_JPRB,1.9077E+00_JPRB/)  
+KAO( :, 2,11, 9) = (/&
+ & 1.5822E-02_JPRB,1.3943E-02_JPRB,1.2110E-02_JPRB,1.0341E-02_JPRB,8.6186E-03_JPRB,6.8684E-03_JPRB,&
+ & 5.0259E-03_JPRB,3.0456E-03_JPRB,2.2451E+00_JPRB/)  
+KAO( :, 3,11, 9) = (/&
+ & 1.6607E-02_JPRB,1.4701E-02_JPRB,1.2884E-02_JPRB,1.1139E-02_JPRB,9.4122E-03_JPRB,7.5743E-03_JPRB,&
+ & 5.6288E-03_JPRB,3.4987E-03_JPRB,2.6727E+00_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB13:PART6',1,ZHOOK_HANDLE)
+END SUBROUTINE PART6
+
+
+SUBROUTINE PART7
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB13:PART7',0,ZHOOK_HANDLE)
+
+
+KAO( :, 4,11, 9) = (/&
+ & 1.7478E-02_JPRB,1.5574E-02_JPRB,1.3803E-02_JPRB,1.2100E-02_JPRB,1.0320E-02_JPRB,8.3983E-03_JPRB,&
+ & 6.3281E-03_JPRB,4.0305E-03_JPRB,3.1969E+00_JPRB/)  
+KAO( :, 5,11, 9) = (/&
+ & 1.8411E-02_JPRB,1.6558E-02_JPRB,1.4871E-02_JPRB,1.3181E-02_JPRB,1.1341E-02_JPRB,9.3258E-03_JPRB,&
+ & 7.1170E-03_JPRB,4.6613E-03_JPRB,3.8404E+00_JPRB/)  
+KAO( :, 1,12, 9) = (/&
+ & 1.3941E-02_JPRB,1.2255E-02_JPRB,1.0613E-02_JPRB,9.0147E-03_JPRB,7.4482E-03_JPRB,5.8708E-03_JPRB,&
+ & 4.2432E-03_JPRB,2.5105E-03_JPRB,2.4052E+00_JPRB/)  
+KAO( :, 2,12, 9) = (/&
+ & 1.4580E-02_JPRB,1.2868E-02_JPRB,1.1223E-02_JPRB,9.6378E-03_JPRB,8.0671E-03_JPRB,6.4400E-03_JPRB,&
+ & 4.7289E-03_JPRB,2.8707E-03_JPRB,2.7400E+00_JPRB/)  
+KAO( :, 3,12, 9) = (/&
+ & 1.5332E-02_JPRB,1.3609E-02_JPRB,1.1989E-02_JPRB,1.0428E-02_JPRB,8.8315E-03_JPRB,7.1273E-03_JPRB,&
+ & 5.3125E-03_JPRB,3.3035E-03_JPRB,3.1791E+00_JPRB/)  
+KAO( :, 4,12, 9) = (/&
+ & 1.6161E-02_JPRB,1.4458E-02_JPRB,1.2893E-02_JPRB,1.1362E-02_JPRB,9.7096E-03_JPRB,7.9231E-03_JPRB,&
+ & 5.9850E-03_JPRB,3.8141E-03_JPRB,3.7447E+00_JPRB/)  
+KAO( :, 5,12, 9) = (/&
+ & 1.7070E-02_JPRB,1.5426E-02_JPRB,1.3937E-02_JPRB,1.2403E-02_JPRB,1.0694E-02_JPRB,8.8139E-03_JPRB,&
+ & 6.7376E-03_JPRB,4.4323E-03_JPRB,4.4627E+00_JPRB/)  
+KAO( :, 1,13, 9) = (/&
+ & 1.2794E-02_JPRB,1.1266E-02_JPRB,9.7854E-03_JPRB,8.3492E-03_JPRB,6.9236E-03_JPRB,5.4666E-03_JPRB,&
+ & 3.9567E-03_JPRB,2.3393E-03_JPRB,2.6597E+00_JPRB/)  
+KAO( :, 2,13, 9) = (/&
+ & 1.3432E-02_JPRB,1.1882E-02_JPRB,1.0408E-02_JPRB,8.9833E-03_JPRB,7.5382E-03_JPRB,6.0260E-03_JPRB,&
+ & 4.4305E-03_JPRB,2.6861E-03_JPRB,2.9232E+00_JPRB/)  
+KAO( :, 3,13, 9) = (/&
+ & 1.4173E-02_JPRB,1.2623E-02_JPRB,1.1177E-02_JPRB,9.7661E-03_JPRB,8.2766E-03_JPRB,6.6966E-03_JPRB,&
+ & 4.9881E-03_JPRB,3.0967E-03_JPRB,3.2802E+00_JPRB/)  
+KAO( :, 4,13, 9) = (/&
+ & 1.5004E-02_JPRB,1.3479E-02_JPRB,1.2087E-02_JPRB,1.0672E-02_JPRB,9.1287E-03_JPRB,7.4565E-03_JPRB,&
+ & 5.6287E-03_JPRB,3.5870E-03_JPRB,3.7540E+00_JPRB/)  
+KAO( :, 5,13, 9) = (/&
+ & 1.5937E-02_JPRB,1.4472E-02_JPRB,1.3138E-02_JPRB,1.1698E-02_JPRB,1.0080E-02_JPRB,8.3092E-03_JPRB,&
+ & 6.3550E-03_JPRB,4.1944E-03_JPRB,4.3785E+00_JPRB/)  
+KAO( :, 1, 1,10) = (/&
+ & 2.6762E-02_JPRB,2.3836E-02_JPRB,2.1231E-02_JPRB,1.8931E-02_JPRB,1.6906E-02_JPRB,1.4777E-02_JPRB,&
+ & 1.3342E-02_JPRB,1.2105E-02_JPRB,1.6563E-02_JPRB/)  
+KAO( :, 2, 1,10) = (/&
+ & 2.9265E-02_JPRB,2.6518E-02_JPRB,2.4370E-02_JPRB,2.2173E-02_JPRB,2.0444E-02_JPRB,1.8164E-02_JPRB,&
+ & 1.7054E-02_JPRB,1.5689E-02_JPRB,2.1225E-02_JPRB/)  
+KAO( :, 3, 1,10) = (/&
+ & 3.2760E-02_JPRB,2.9967E-02_JPRB,2.8038E-02_JPRB,2.6333E-02_JPRB,2.4279E-02_JPRB,2.2399E-02_JPRB,&
+ & 2.1466E-02_JPRB,1.9893E-02_JPRB,2.6794E-02_JPRB/)  
+KAO( :, 4, 1,10) = (/&
+ & 3.6728E-02_JPRB,3.3924E-02_JPRB,3.2080E-02_JPRB,3.0665E-02_JPRB,2.8563E-02_JPRB,2.7253E-02_JPRB,&
+ & 2.6630E-02_JPRB,2.4967E-02_JPRB,3.3311E-02_JPRB/)  
+KAO( :, 5, 1,10) = (/&
+ & 4.1067E-02_JPRB,3.8420E-02_JPRB,3.6876E-02_JPRB,3.5143E-02_JPRB,3.3523E-02_JPRB,3.2742E-02_JPRB,&
+ & 3.2418E-02_JPRB,3.0721E-02_JPRB,4.0819E-02_JPRB/)  
+KAO( :, 1, 2,10) = (/&
+ & 2.8605E-02_JPRB,2.5321E-02_JPRB,2.2167E-02_JPRB,1.9077E-02_JPRB,1.6173E-02_JPRB,1.3425E-02_JPRB,&
+ & 1.2233E-02_JPRB,1.1219E-02_JPRB,1.7512E-02_JPRB/)  
+KAO( :, 2, 2,10) = (/&
+ & 3.0223E-02_JPRB,2.6983E-02_JPRB,2.4080E-02_JPRB,2.1317E-02_JPRB,1.8746E-02_JPRB,1.6523E-02_JPRB,&
+ & 1.5770E-02_JPRB,1.4686E-02_JPRB,2.2528E-02_JPRB/)  
+KAO( :, 3, 2,10) = (/&
+ & 3.2701E-02_JPRB,2.9579E-02_JPRB,2.6971E-02_JPRB,2.4770E-02_JPRB,2.2162E-02_JPRB,2.0505E-02_JPRB,&
+ & 1.9969E-02_JPRB,1.8858E-02_JPRB,2.8417E-02_JPRB/)  
+KAO( :, 4, 2,10) = (/&
+ & 3.6116E-02_JPRB,3.3194E-02_JPRB,3.0876E-02_JPRB,2.8651E-02_JPRB,2.6284E-02_JPRB,2.5161E-02_JPRB,&
+ & 2.4787E-02_JPRB,2.3679E-02_JPRB,3.5174E-02_JPRB/)  
+KAO( :, 5, 2,10) = (/&
+ & 4.0224E-02_JPRB,3.7508E-02_JPRB,3.5629E-02_JPRB,3.3002E-02_JPRB,3.1044E-02_JPRB,3.0447E-02_JPRB,&
+ & 3.0074E-02_JPRB,2.9018E-02_JPRB,4.2802E-02_JPRB/)  
+KAO( :, 1, 3,10) = (/&
+ & 3.1173E-02_JPRB,2.7478E-02_JPRB,2.3852E-02_JPRB,2.0280E-02_JPRB,1.6676E-02_JPRB,1.3128E-02_JPRB,&
+ & 1.0535E-02_JPRB,9.7264E-03_JPRB,2.0918E-02_JPRB/)  
+KAO( :, 2, 3,10) = (/&
+ & 3.2510E-02_JPRB,2.8808E-02_JPRB,2.5249E-02_JPRB,2.1598E-02_JPRB,1.8067E-02_JPRB,1.5028E-02_JPRB,&
+ & 1.3592E-02_JPRB,1.2783E-02_JPRB,2.6767E-02_JPRB/)  
+KAO( :, 3, 3,10) = (/&
+ & 3.4191E-02_JPRB,3.0498E-02_JPRB,2.6966E-02_JPRB,2.3575E-02_JPRB,2.0182E-02_JPRB,1.8352E-02_JPRB,&
+ & 1.7404E-02_JPRB,1.6536E-02_JPRB,3.3672E-02_JPRB/)  
+KAO( :, 4, 3,10) = (/&
+ & 3.6367E-02_JPRB,3.2714E-02_JPRB,2.9565E-02_JPRB,2.6531E-02_JPRB,2.3647E-02_JPRB,2.2602E-02_JPRB,&
+ & 2.1804E-02_JPRB,2.0933E-02_JPRB,4.1820E-02_JPRB/)  
+KAO( :, 5, 3,10) = (/&
+ & 3.9166E-02_JPRB,3.5919E-02_JPRB,3.3501E-02_JPRB,3.0557E-02_JPRB,2.8090E-02_JPRB,2.7339E-02_JPRB,&
+ & 2.6717E-02_JPRB,2.5907E-02_JPRB,5.1316E-02_JPRB/)  
+KAO( :, 1, 4,10) = (/&
+ & 3.4066E-02_JPRB,2.9987E-02_JPRB,2.5967E-02_JPRB,2.1961E-02_JPRB,1.7860E-02_JPRB,1.3888E-02_JPRB,&
+ & 1.0186E-02_JPRB,8.1254E-03_JPRB,2.9250E-02_JPRB/)  
+KAO( :, 2, 4,10) = (/&
+ & 3.5460E-02_JPRB,3.1308E-02_JPRB,2.7262E-02_JPRB,2.3213E-02_JPRB,1.9156E-02_JPRB,1.5144E-02_JPRB,&
+ & 1.1782E-02_JPRB,1.0834E-02_JPRB,3.8098E-02_JPRB/)  
+KAO( :, 3, 4,10) = (/&
+ & 3.6874E-02_JPRB,3.2726E-02_JPRB,2.8680E-02_JPRB,2.4650E-02_JPRB,2.0393E-02_JPRB,1.6831E-02_JPRB,&
+ & 1.4883E-02_JPRB,1.4098E-02_JPRB,4.8024E-02_JPRB/)  
+KAO( :, 4, 4,10) = (/&
+ & 3.8521E-02_JPRB,3.4326E-02_JPRB,3.0378E-02_JPRB,2.6392E-02_JPRB,2.2432E-02_JPRB,1.9980E-02_JPRB,&
+ & 1.8770E-02_JPRB,1.7981E-02_JPRB,5.9374E-02_JPRB/)  
+KAO( :, 5, 4,10) = (/&
+ & 4.0371E-02_JPRB,3.6305E-02_JPRB,3.2708E-02_JPRB,2.8856E-02_JPRB,2.5853E-02_JPRB,2.4145E-02_JPRB,&
+ & 2.3195E-02_JPRB,2.2463E-02_JPRB,7.2233E-02_JPRB/)  
+KAO( :, 1, 5,10) = (/&
+ & 3.6434E-02_JPRB,3.2049E-02_JPRB,2.7755E-02_JPRB,2.3391E-02_JPRB,1.9132E-02_JPRB,1.4843E-02_JPRB,&
+ & 1.0790E-02_JPRB,6.8244E-03_JPRB,4.2858E-02_JPRB/)  
+KAO( :, 2, 5,10) = (/&
+ & 3.8052E-02_JPRB,3.3555E-02_JPRB,2.9121E-02_JPRB,2.4755E-02_JPRB,2.0357E-02_JPRB,1.6002E-02_JPRB,&
+ & 1.1813E-02_JPRB,9.0432E-03_JPRB,5.4802E-02_JPRB/)  
+KAO( :, 3, 5,10) = (/&
+ & 3.9720E-02_JPRB,3.5157E-02_JPRB,3.0682E-02_JPRB,2.6285E-02_JPRB,2.1672E-02_JPRB,1.7348E-02_JPRB,&
+ & 1.3380E-02_JPRB,1.1960E-02_JPRB,7.0286E-02_JPRB/)  
+KAO( :, 4, 5,10) = (/&
+ & 4.1616E-02_JPRB,3.6963E-02_JPRB,3.2456E-02_JPRB,2.8024E-02_JPRB,2.3329E-02_JPRB,1.9031E-02_JPRB,&
+ & 1.6245E-02_JPRB,1.5312E-02_JPRB,8.8323E-02_JPRB/)  
+KAO( :, 5, 5,10) = (/&
+ & 4.3467E-02_JPRB,3.8778E-02_JPRB,3.4533E-02_JPRB,2.9811E-02_JPRB,2.5445E-02_JPRB,2.1728E-02_JPRB,&
+ & 2.0136E-02_JPRB,1.9200E-02_JPRB,1.0804E-01_JPRB/)  
+KAO( :, 1, 6,10) = (/&
+ & 3.9016E-02_JPRB,3.4252E-02_JPRB,2.9584E-02_JPRB,2.4915E-02_JPRB,2.0266E-02_JPRB,1.5607E-02_JPRB,&
+ & 1.1369E-02_JPRB,6.7556E-03_JPRB,6.7432E-02_JPRB/)  
+KAO( :, 2, 6,10) = (/&
+ & 4.0452E-02_JPRB,3.5642E-02_JPRB,3.0903E-02_JPRB,2.6184E-02_JPRB,2.1443E-02_JPRB,1.6916E-02_JPRB,&
+ & 1.2438E-02_JPRB,7.7587E-03_JPRB,8.0666E-02_JPRB/)  
+KAO( :, 3, 6,10) = (/&
+ & 4.2155E-02_JPRB,3.7272E-02_JPRB,3.2474E-02_JPRB,2.7702E-02_JPRB,2.2975E-02_JPRB,1.8296E-02_JPRB,&
+ & 1.3696E-02_JPRB,9.8129E-03_JPRB,9.9349E-02_JPRB/)  
+KAO( :, 4, 6,10) = (/&
+ & 4.4121E-02_JPRB,3.9182E-02_JPRB,3.4311E-02_JPRB,2.9590E-02_JPRB,2.4570E-02_JPRB,1.9828E-02_JPRB,&
+ & 1.5267E-02_JPRB,1.2859E-02_JPRB,1.2445E-01_JPRB/)  
+KAO( :, 5, 6,10) = (/&
+ & 4.6213E-02_JPRB,4.1161E-02_JPRB,3.6458E-02_JPRB,3.1468E-02_JPRB,2.6559E-02_JPRB,2.1785E-02_JPRB,&
+ & 1.7650E-02_JPRB,1.6392E-02_JPRB,1.5469E-01_JPRB/)  
+KAO( :, 1, 7,10) = (/&
+ & 4.1359E-02_JPRB,3.6208E-02_JPRB,3.1312E-02_JPRB,2.6328E-02_JPRB,2.1267E-02_JPRB,1.6329E-02_JPRB,&
+ & 1.1827E-02_JPRB,6.9169E-03_JPRB,1.1368E-01_JPRB/)  
+KAO( :, 2, 7,10) = (/&
+ & 4.2810E-02_JPRB,3.7687E-02_JPRB,3.2642E-02_JPRB,2.7514E-02_JPRB,2.2469E-02_JPRB,1.7642E-02_JPRB,&
+ & 1.2961E-02_JPRB,7.8247E-03_JPRB,1.3536E-01_JPRB/)  
+KAO( :, 3, 7,10) = (/&
+ & 4.4524E-02_JPRB,3.9305E-02_JPRB,3.4135E-02_JPRB,2.9034E-02_JPRB,2.4045E-02_JPRB,1.9110E-02_JPRB,&
+ & 1.4148E-02_JPRB,8.9564E-03_JPRB,1.6103E-01_JPRB/)  
+KAO( :, 4, 7,10) = (/&
+ & 4.6334E-02_JPRB,4.1093E-02_JPRB,3.5887E-02_JPRB,3.0860E-02_JPRB,2.5799E-02_JPRB,2.0761E-02_JPRB,&
+ & 1.5735E-02_JPRB,1.0795E-02_JPRB,1.9350E-01_JPRB/)  
+KAO( :, 5, 7,10) = (/&
+ & 4.8572E-02_JPRB,4.3224E-02_JPRB,3.8076E-02_JPRB,3.3049E-02_JPRB,2.7908E-02_JPRB,2.2762E-02_JPRB,&
+ & 1.7415E-02_JPRB,1.3780E-02_JPRB,2.3787E-01_JPRB/)  
+KAO( :, 1, 8,10) = (/&
+ & 4.3378E-02_JPRB,3.7958E-02_JPRB,3.2795E-02_JPRB,2.7505E-02_JPRB,2.2211E-02_JPRB,1.6954E-02_JPRB,&
+ & 1.2107E-02_JPRB,7.0694E-03_JPRB,2.2556E-01_JPRB/)  
+KAO( :, 2, 8,10) = (/&
+ & 4.4773E-02_JPRB,3.9362E-02_JPRB,3.4029E-02_JPRB,2.8646E-02_JPRB,2.3299E-02_JPRB,1.8142E-02_JPRB,&
+ & 1.3413E-02_JPRB,7.9253E-03_JPRB,2.7089E-01_JPRB/)  
+KAO( :, 3, 8,10) = (/&
+ & 4.6409E-02_JPRB,4.0922E-02_JPRB,3.5484E-02_JPRB,3.0037E-02_JPRB,2.4685E-02_JPRB,1.9797E-02_JPRB,&
+ & 1.4575E-02_JPRB,9.0349E-03_JPRB,3.2354E-01_JPRB/)  
+KAO( :, 4, 8,10) = (/&
+ & 4.8517E-02_JPRB,4.2960E-02_JPRB,3.7415E-02_JPRB,3.1998E-02_JPRB,2.6730E-02_JPRB,2.1507E-02_JPRB,&
+ & 1.6141E-02_JPRB,1.0325E-02_JPRB,3.8344E-01_JPRB/)  
+KAO( :, 5, 8,10) = (/&
+ & 5.0774E-02_JPRB,4.5143E-02_JPRB,3.9523E-02_JPRB,3.4165E-02_JPRB,2.9055E-02_JPRB,2.3639E-02_JPRB,&
+ & 1.7862E-02_JPRB,1.1998E-02_JPRB,4.5852E-01_JPRB/)  
+KAO( :, 1, 9,10) = (/&
+ & 4.4741E-02_JPRB,3.9148E-02_JPRB,3.3761E-02_JPRB,2.8274E-02_JPRB,2.2811E-02_JPRB,1.7318E-02_JPRB,&
+ & 1.2244E-02_JPRB,7.1252E-03_JPRB,8.3568E-01_JPRB/)  
+KAO( :, 2, 9,10) = (/&
+ & 4.6123E-02_JPRB,4.0465E-02_JPRB,3.4958E-02_JPRB,2.9415E-02_JPRB,2.3808E-02_JPRB,1.8402E-02_JPRB,&
+ & 1.3524E-02_JPRB,7.9651E-03_JPRB,1.0063E+00_JPRB/)  
+KAO( :, 3, 9,10) = (/&
+ & 4.7534E-02_JPRB,4.1886E-02_JPRB,3.6283E-02_JPRB,3.0629E-02_JPRB,2.4989E-02_JPRB,2.0028E-02_JPRB,&
+ & 1.4812E-02_JPRB,9.0475E-03_JPRB,1.2094E+00_JPRB/)  
+KAO( :, 4, 9,10) = (/&
+ & 4.9654E-02_JPRB,4.3880E-02_JPRB,3.8124E-02_JPRB,3.2363E-02_JPRB,2.7020E-02_JPRB,2.1905E-02_JPRB,&
+ & 1.6314E-02_JPRB,1.0326E-02_JPRB,1.4400E+00_JPRB/)  
+KAO( :, 5, 9,10) = (/&
+ & 5.2092E-02_JPRB,4.6279E-02_JPRB,4.0415E-02_JPRB,3.4883E-02_JPRB,2.9494E-02_JPRB,2.4010E-02_JPRB,&
+ & 1.8108E-02_JPRB,1.1750E-02_JPRB,1.7026E+00_JPRB/)  
+KAO( :, 1,10,10) = (/&
+ & 4.5400E-02_JPRB,3.9727E-02_JPRB,3.4202E-02_JPRB,2.8645E-02_JPRB,2.3051E-02_JPRB,1.7520E-02_JPRB,&
+ & 1.2293E-02_JPRB,7.0668E-03_JPRB,3.4266E+00_JPRB/)  
+KAO( :, 2,10,10) = (/&
+ & 4.6758E-02_JPRB,4.0959E-02_JPRB,3.5395E-02_JPRB,2.9735E-02_JPRB,2.3996E-02_JPRB,1.8576E-02_JPRB,&
+ & 1.3516E-02_JPRB,7.9973E-03_JPRB,4.1099E+00_JPRB/)  
+KAO( :, 3,10,10) = (/&
+ & 4.8048E-02_JPRB,4.2318E-02_JPRB,3.6627E-02_JPRB,3.0846E-02_JPRB,2.5140E-02_JPRB,2.0176E-02_JPRB,&
+ & 1.4829E-02_JPRB,9.0540E-03_JPRB,4.9855E+00_JPRB/)  
+KAO( :, 4,10,10) = (/&
+ & 4.9997E-02_JPRB,4.4155E-02_JPRB,3.8326E-02_JPRB,3.2491E-02_JPRB,2.7179E-02_JPRB,2.1979E-02_JPRB,&
+ & 1.6362E-02_JPRB,1.0317E-02_JPRB,6.0098E+00_JPRB/)  
+KAO( :, 5,10,10) = (/&
+ & 5.2444E-02_JPRB,4.6561E-02_JPRB,4.0609E-02_JPRB,3.4910E-02_JPRB,2.9562E-02_JPRB,2.4235E-02_JPRB,&
+ & 1.8223E-02_JPRB,1.1743E-02_JPRB,7.1315E+00_JPRB/)  
+KAO( :, 1,11,10) = (/&
+ & 4.5658E-02_JPRB,3.9952E-02_JPRB,3.4443E-02_JPRB,2.8833E-02_JPRB,2.3231E-02_JPRB,1.7803E-02_JPRB,&
+ & 1.2587E-02_JPRB,7.2875E-03_JPRB,5.3649E+00_JPRB/)  
+KAO( :, 2,11,10) = (/&
+ & 4.6850E-02_JPRB,4.1124E-02_JPRB,3.5510E-02_JPRB,2.9860E-02_JPRB,2.4205E-02_JPRB,1.8972E-02_JPRB,&
+ & 1.3852E-02_JPRB,8.2974E-03_JPRB,6.4734E+00_JPRB/)  
+KAO( :, 3,11,10) = (/&
+ & 4.8321E-02_JPRB,4.2589E-02_JPRB,3.6878E-02_JPRB,3.1119E-02_JPRB,2.5570E-02_JPRB,2.0721E-02_JPRB,&
+ & 1.5183E-02_JPRB,9.4279E-03_JPRB,7.8016E+00_JPRB/)  
+KAO( :, 4,11,10) = (/&
+ & 5.0607E-02_JPRB,4.4776E-02_JPRB,3.8924E-02_JPRB,3.3081E-02_JPRB,2.7944E-02_JPRB,2.2646E-02_JPRB,&
+ & 1.6967E-02_JPRB,1.0786E-02_JPRB,9.3814E+00_JPRB/)  
+KAO( :, 5,11,10) = (/&
+ & 5.3189E-02_JPRB,4.7267E-02_JPRB,4.1301E-02_JPRB,3.5698E-02_JPRB,3.0480E-02_JPRB,2.5061E-02_JPRB,&
+ & 1.9030E-02_JPRB,1.2260E-02_JPRB,1.1143E+01_JPRB/)  
+KAO( :, 1,12,10) = (/&
+ & 4.4854E-02_JPRB,3.9248E-02_JPRB,3.3879E-02_JPRB,2.8362E-02_JPRB,2.2914E-02_JPRB,1.7730E-02_JPRB,&
+ & 1.2612E-02_JPRB,7.3730E-03_JPRB,6.1785E+00_JPRB/)  
+KAO( :, 2,12,10) = (/&
+ & 4.6033E-02_JPRB,4.0478E-02_JPRB,3.4947E-02_JPRB,2.9376E-02_JPRB,2.4012E-02_JPRB,1.9043E-02_JPRB,&
+ & 1.3870E-02_JPRB,8.4065E-03_JPRB,7.5551E+00_JPRB/)  
+KAO( :, 3,12,10) = (/&
+ & 4.7929E-02_JPRB,4.2284E-02_JPRB,3.6631E-02_JPRB,3.0973E-02_JPRB,2.5841E-02_JPRB,2.0835E-02_JPRB,&
+ & 1.5374E-02_JPRB,9.6454E-03_JPRB,9.2004E+00_JPRB/)  
+KAO( :, 4,12,10) = (/&
+ & 5.0374E-02_JPRB,4.4657E-02_JPRB,3.8857E-02_JPRB,3.3248E-02_JPRB,2.8288E-02_JPRB,2.3006E-02_JPRB,&
+ & 1.7300E-02_JPRB,1.1060E-02_JPRB,1.0995E+01_JPRB/)  
+KAO( :, 5,12,10) = (/&
+ & 5.3127E-02_JPRB,4.7293E-02_JPRB,4.1498E-02_JPRB,3.6136E-02_JPRB,3.1085E-02_JPRB,2.5531E-02_JPRB,&
+ & 1.9582E-02_JPRB,1.2642E-02_JPRB,1.3019E+01_JPRB/)  
+KAO( :, 1,13,10) = (/&
+ & 4.3325E-02_JPRB,3.7930E-02_JPRB,3.2755E-02_JPRB,2.7447E-02_JPRB,2.2319E-02_JPRB,1.7411E-02_JPRB,&
+ & 1.2453E-02_JPRB,7.3368E-03_JPRB,5.8866E+00_JPRB/)  
+KAO( :, 2,13,10) = (/&
+ & 4.4885E-02_JPRB,3.9512E-02_JPRB,3.4133E-02_JPRB,2.8720E-02_JPRB,2.3711E-02_JPRB,1.8875E-02_JPRB,&
+ & 1.3756E-02_JPRB,8.3802E-03_JPRB,7.1313E+00_JPRB/)  
+KAO( :, 3,13,10) = (/&
+ & 4.7105E-02_JPRB,4.1602E-02_JPRB,3.6075E-02_JPRB,3.0646E-02_JPRB,2.5891E-02_JPRB,2.0741E-02_JPRB,&
+ & 1.5481E-02_JPRB,9.7027E-03_JPRB,8.6483E+00_JPRB/)  
+KAO( :, 4,13,10) = (/&
+ & 4.9710E-02_JPRB,4.4134E-02_JPRB,3.8464E-02_JPRB,3.3281E-02_JPRB,2.8408E-02_JPRB,2.3139E-02_JPRB,&
+ & 1.7501E-02_JPRB,1.1201E-02_JPRB,1.0384E+01_JPRB/)  
+KAO( :, 5,13,10) = (/&
+ & 5.2678E-02_JPRB,4.7001E-02_JPRB,4.1355E-02_JPRB,3.6354E-02_JPRB,3.1421E-02_JPRB,2.5818E-02_JPRB,&
+ & 1.9874E-02_JPRB,1.2850E-02_JPRB,1.2332E+01_JPRB/)  
+KAO( :, 1, 1,11) = (/&
+ & 3.4006E-02_JPRB,3.0838E-02_JPRB,2.8315E-02_JPRB,2.6031E-02_JPRB,2.3204E-02_JPRB,2.0875E-02_JPRB,&
+ & 1.7987E-02_JPRB,1.5519E-02_JPRB,2.1659E-02_JPRB/)  
+KAO( :, 2, 1,11) = (/&
+ & 3.8880E-02_JPRB,3.5625E-02_JPRB,3.3192E-02_JPRB,3.0992E-02_JPRB,2.8389E-02_JPRB,2.5986E-02_JPRB,&
+ & 2.2691E-02_JPRB,2.0442E-02_JPRB,2.7838E-02_JPRB/)  
+KAO( :, 3, 1,11) = (/&
+ & 4.3962E-02_JPRB,4.0825E-02_JPRB,3.8703E-02_JPRB,3.6297E-02_JPRB,3.4511E-02_JPRB,3.1450E-02_JPRB,&
+ & 2.8328E-02_JPRB,2.6446E-02_JPRB,3.5353E-02_JPRB/)  
+KAO( :, 4, 1,11) = (/&
+ & 4.9311E-02_JPRB,4.6293E-02_JPRB,4.4623E-02_JPRB,4.2521E-02_JPRB,4.0745E-02_JPRB,3.7590E-02_JPRB,&
+ & 3.5066E-02_JPRB,3.3577E-02_JPRB,4.4098E-02_JPRB/)  
+KAO( :, 5, 1,11) = (/&
+ & 5.4902E-02_JPRB,5.1787E-02_JPRB,5.0538E-02_JPRB,4.9462E-02_JPRB,4.7171E-02_JPRB,4.4663E-02_JPRB,&
+ & 4.2782E-02_JPRB,4.2346E-02_JPRB,5.4138E-02_JPRB/)  
+KAO( :, 1, 2,11) = (/&
+ & 3.3012E-02_JPRB,2.9524E-02_JPRB,2.6537E-02_JPRB,2.4015E-02_JPRB,2.1124E-02_JPRB,1.8957E-02_JPRB,&
+ & 1.6213E-02_JPRB,1.4498E-02_JPRB,2.4045E-02_JPRB/)  
+KAO( :, 2, 2,11) = (/&
+ & 3.6932E-02_JPRB,3.3550E-02_JPRB,3.1000E-02_JPRB,2.8534E-02_JPRB,2.6293E-02_JPRB,2.3594E-02_JPRB,&
+ & 2.0668E-02_JPRB,1.9041E-02_JPRB,3.0483E-02_JPRB/)  
+KAO( :, 3, 2,11) = (/&
+ & 4.1673E-02_JPRB,3.8445E-02_JPRB,3.6326E-02_JPRB,3.3911E-02_JPRB,3.1922E-02_JPRB,2.8763E-02_JPRB,&
+ & 2.6126E-02_JPRB,2.4581E-02_JPRB,3.8179E-02_JPRB/)  
+KAO( :, 4, 2,11) = (/&
+ & 4.6918E-02_JPRB,4.3776E-02_JPRB,4.1906E-02_JPRB,4.0246E-02_JPRB,3.7729E-02_JPRB,3.4837E-02_JPRB,&
+ & 3.2578E-02_JPRB,3.1324E-02_JPRB,4.7309E-02_JPRB/)  
+KAO( :, 5, 2,11) = (/&
+ & 5.2471E-02_JPRB,4.9278E-02_JPRB,4.7809E-02_JPRB,4.6827E-02_JPRB,4.4067E-02_JPRB,4.1837E-02_JPRB,&
+ & 4.0124E-02_JPRB,3.9172E-02_JPRB,5.7813E-02_JPRB/)  
+KAO( :, 1, 3,11) = (/&
+ & 3.4501E-02_JPRB,3.0473E-02_JPRB,2.6575E-02_JPRB,2.2929E-02_JPRB,1.9181E-02_JPRB,1.6191E-02_JPRB,&
+ & 1.4206E-02_JPRB,1.2625E-02_JPRB,3.1974E-02_JPRB/)  
+KAO( :, 2, 3,11) = (/&
+ & 3.6715E-02_JPRB,3.2658E-02_JPRB,2.9031E-02_JPRB,2.5829E-02_JPRB,2.3118E-02_JPRB,2.0224E-02_JPRB,&
+ & 1.8346E-02_JPRB,1.6857E-02_JPRB,4.0926E-02_JPRB/)  
+KAO( :, 3, 3,11) = (/&
+ & 3.9788E-02_JPRB,3.6029E-02_JPRB,3.3165E-02_JPRB,3.0553E-02_JPRB,2.7991E-02_JPRB,2.5038E-02_JPRB,&
+ & 2.3354E-02_JPRB,2.2060E-02_JPRB,5.0503E-02_JPRB/)  
+KAO( :, 4, 3,11) = (/&
+ & 4.4214E-02_JPRB,4.0649E-02_JPRB,3.8329E-02_JPRB,3.6284E-02_JPRB,3.3473E-02_JPRB,3.0774E-02_JPRB,&
+ & 2.9336E-02_JPRB,2.8146E-02_JPRB,6.1109E-02_JPRB/)  
+KAO( :, 5, 3,11) = (/&
+ & 4.9685E-02_JPRB,4.6100E-02_JPRB,4.4117E-02_JPRB,4.2257E-02_JPRB,3.9617E-02_JPRB,3.7525E-02_JPRB,&
+ & 3.6458E-02_JPRB,3.5132E-02_JPRB,7.3052E-02_JPRB/)  
+KAO( :, 1, 4,11) = (/&
+ & 3.7701E-02_JPRB,3.3183E-02_JPRB,2.8775E-02_JPRB,2.4369E-02_JPRB,1.9949E-02_JPRB,1.5608E-02_JPRB,&
+ & 1.2337E-02_JPRB,1.0909E-02_JPRB,4.5234E-02_JPRB/)  
+KAO( :, 2, 4,11) = (/&
+ & 3.9570E-02_JPRB,3.4927E-02_JPRB,3.0377E-02_JPRB,2.5987E-02_JPRB,2.1638E-02_JPRB,1.7716E-02_JPRB,&
+ & 1.5957E-02_JPRB,1.4485E-02_JPRB,5.8101E-02_JPRB/)  
+KAO( :, 3, 4,11) = (/&
+ & 4.1487E-02_JPRB,3.6886E-02_JPRB,3.2552E-02_JPRB,2.8478E-02_JPRB,2.4613E-02_JPRB,2.1797E-02_JPRB,&
+ & 2.0639E-02_JPRB,1.9138E-02_JPRB,7.3443E-02_JPRB/)  
+KAO( :, 4, 4,11) = (/&
+ & 4.4074E-02_JPRB,3.9637E-02_JPRB,3.5709E-02_JPRB,3.2584E-02_JPRB,2.9098E-02_JPRB,2.7106E-02_JPRB,&
+ & 2.6271E-02_JPRB,2.4880E-02_JPRB,9.0496E-02_JPRB/)  
+KAO( :, 5, 4,11) = (/&
+ & 4.7920E-02_JPRB,4.3761E-02_JPRB,4.0716E-02_JPRB,3.7902E-02_JPRB,3.4829E-02_JPRB,3.3417E-02_JPRB,&
+ & 3.2862E-02_JPRB,3.1333E-02_JPRB,1.0813E-01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB13:PART7',1,ZHOOK_HANDLE)
+END SUBROUTINE PART7
+
+
+SUBROUTINE PART8
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB13:PART8',0,ZHOOK_HANDLE)
+
+
+KAO( :, 1, 5,11) = (/&
+ & 4.1870E-02_JPRB,3.6784E-02_JPRB,3.1817E-02_JPRB,2.6817E-02_JPRB,2.1907E-02_JPRB,1.6884E-02_JPRB,&
+ & 1.2273E-02_JPRB,9.3968E-03_JPRB,6.4840E-02_JPRB/)  
+KAO( :, 2, 5,11) = (/&
+ & 4.3297E-02_JPRB,3.8168E-02_JPRB,3.3137E-02_JPRB,2.8168E-02_JPRB,2.3151E-02_JPRB,1.8216E-02_JPRB,&
+ & 1.4106E-02_JPRB,1.2594E-02_JPRB,8.4416E-02_JPRB/)  
+KAO( :, 3, 5,11) = (/&
+ & 4.5197E-02_JPRB,3.9955E-02_JPRB,3.4866E-02_JPRB,2.9774E-02_JPRB,2.4780E-02_JPRB,2.0210E-02_JPRB,&
+ & 1.7877E-02_JPRB,1.6653E-02_JPRB,1.0767E-01_JPRB/)  
+KAO( :, 4, 5,11) = (/&
+ & 4.7208E-02_JPRB,4.1906E-02_JPRB,3.6778E-02_JPRB,3.1900E-02_JPRB,2.6959E-02_JPRB,2.4148E-02_JPRB,&
+ & 2.3054E-02_JPRB,2.1659E-02_JPRB,1.3362E-01_JPRB/)  
+KAO( :, 5, 5,11) = (/&
+ & 4.9723E-02_JPRB,4.4415E-02_JPRB,3.9606E-02_JPRB,3.5130E-02_JPRB,3.1176E-02_JPRB,2.9987E-02_JPRB,&
+ & 2.9188E-02_JPRB,2.7574E-02_JPRB,1.6267E-01_JPRB/)  
+KAO( :, 1, 6,11) = (/&
+ & 4.6177E-02_JPRB,4.0428E-02_JPRB,3.5000E-02_JPRB,2.9479E-02_JPRB,2.3910E-02_JPRB,1.8380E-02_JPRB,&
+ & 1.3182E-02_JPRB,8.0681E-03_JPRB,9.4271E-02_JPRB/)  
+KAO( :, 2, 6,11) = (/&
+ & 4.7848E-02_JPRB,4.2133E-02_JPRB,3.6528E-02_JPRB,3.0847E-02_JPRB,2.5231E-02_JPRB,1.9720E-02_JPRB,&
+ & 1.4391E-02_JPRB,1.0657E-02_JPRB,1.2169E-01_JPRB/)  
+KAO( :, 3, 6,11) = (/&
+ & 4.9573E-02_JPRB,4.3747E-02_JPRB,3.7998E-02_JPRB,3.2369E-02_JPRB,2.6844E-02_JPRB,2.1245E-02_JPRB,&
+ & 1.6159E-02_JPRB,1.4369E-02_JPRB,1.5614E-01_JPRB/)  
+KAO( :, 4, 6,11) = (/&
+ & 5.1449E-02_JPRB,4.5620E-02_JPRB,3.9881E-02_JPRB,3.4359E-02_JPRB,2.8492E-02_JPRB,2.3216E-02_JPRB,&
+ & 1.9980E-02_JPRB,1.8809E-02_JPRB,1.9622E-01_JPRB/)  
+KAO( :, 5, 6,11) = (/&
+ & 5.3758E-02_JPRB,4.7819E-02_JPRB,4.2046E-02_JPRB,3.6553E-02_JPRB,3.0747E-02_JPRB,2.6899E-02_JPRB,&
+ & 2.5355E-02_JPRB,2.3973E-02_JPRB,2.4061E-01_JPRB/)  
+KAO( :, 1, 7,11) = (/&
+ & 5.0539E-02_JPRB,4.4226E-02_JPRB,3.8237E-02_JPRB,3.2119E-02_JPRB,2.5955E-02_JPRB,1.9850E-02_JPRB,&
+ & 1.4014E-02_JPRB,8.2656E-03_JPRB,1.5715E-01_JPRB/)  
+KAO( :, 2, 7,11) = (/&
+ & 5.2213E-02_JPRB,4.5893E-02_JPRB,3.9703E-02_JPRB,3.3446E-02_JPRB,2.7259E-02_JPRB,2.1129E-02_JPRB,&
+ & 1.5451E-02_JPRB,9.4123E-03_JPRB,1.9172E-01_JPRB/)  
+KAO( :, 3, 7,11) = (/&
+ & 5.3964E-02_JPRB,4.7586E-02_JPRB,4.1300E-02_JPRB,3.5018E-02_JPRB,2.8812E-02_JPRB,2.2874E-02_JPRB,&
+ & 1.6862E-02_JPRB,1.2078E-02_JPRB,2.4474E-01_JPRB/)  
+KAO( :, 4, 7,11) = (/&
+ & 5.6281E-02_JPRB,4.9820E-02_JPRB,4.3435E-02_JPRB,3.7102E-02_JPRB,3.0863E-02_JPRB,2.4675E-02_JPRB,&
+ & 1.8760E-02_JPRB,1.6116E-02_JPRB,3.1097E-01_JPRB/)  
+KAO( :, 5, 7,11) = (/&
+ & 5.8608E-02_JPRB,5.2097E-02_JPRB,4.5621E-02_JPRB,3.9415E-02_JPRB,3.3038E-02_JPRB,2.6921E-02_JPRB,&
+ & 2.2270E-02_JPRB,2.0802E-02_JPRB,3.8459E-01_JPRB/)  
+KAO( :, 1, 8,11) = (/&
+ & 5.4836E-02_JPRB,4.7985E-02_JPRB,4.1396E-02_JPRB,3.4685E-02_JPRB,2.8011E-02_JPRB,2.1239E-02_JPRB,&
+ & 1.4808E-02_JPRB,8.7162E-03_JPRB,3.2201E-01_JPRB/)  
+KAO( :, 2, 8,11) = (/&
+ & 5.6598E-02_JPRB,4.9598E-02_JPRB,4.2901E-02_JPRB,3.6120E-02_JPRB,2.9254E-02_JPRB,2.2462E-02_JPRB,&
+ & 1.6430E-02_JPRB,9.7013E-03_JPRB,3.8537E-01_JPRB/)  
+KAO( :, 3, 8,11) = (/&
+ & 5.8383E-02_JPRB,5.1431E-02_JPRB,4.4592E-02_JPRB,3.7658E-02_JPRB,3.0762E-02_JPRB,2.4304E-02_JPRB,&
+ & 1.8006E-02_JPRB,1.1047E-02_JPRB,4.7230E-01_JPRB/)  
+KAO( :, 4, 8,11) = (/&
+ & 6.0542E-02_JPRB,5.3465E-02_JPRB,4.6470E-02_JPRB,3.9515E-02_JPRB,3.2802E-02_JPRB,2.6370E-02_JPRB,&
+ & 1.9678E-02_JPRB,1.3674E-02_JPRB,5.9222E-01_JPRB/)  
+KAO( :, 5, 8,11) = (/&
+ & 6.3504E-02_JPRB,5.6367E-02_JPRB,4.9211E-02_JPRB,4.2376E-02_JPRB,3.5393E-02_JPRB,2.8477E-02_JPRB,&
+ & 2.1872E-02_JPRB,1.7879E-02_JPRB,7.4060E-01_JPRB/)  
+KAO( :, 1, 9,11) = (/&
+ & 5.8530E-02_JPRB,5.1215E-02_JPRB,4.4050E-02_JPRB,3.6938E-02_JPRB,2.9723E-02_JPRB,2.2521E-02_JPRB,&
+ & 1.5575E-02_JPRB,8.9613E-03_JPRB,1.2250E+00_JPRB/)  
+KAO( :, 2, 9,11) = (/&
+ & 6.0508E-02_JPRB,5.2947E-02_JPRB,4.5790E-02_JPRB,3.8466E-02_JPRB,3.1050E-02_JPRB,2.3735E-02_JPRB,&
+ & 1.7082E-02_JPRB,1.0081E-02_JPRB,1.4743E+00_JPRB/)  
+KAO( :, 3, 9,11) = (/&
+ & 6.2412E-02_JPRB,5.4914E-02_JPRB,4.7544E-02_JPRB,4.0031E-02_JPRB,3.2611E-02_JPRB,2.5512E-02_JPRB,&
+ & 1.8968E-02_JPRB,1.1343E-02_JPRB,1.7744E+00_JPRB/)  
+KAO( :, 4, 9,11) = (/&
+ & 6.4422E-02_JPRB,5.6870E-02_JPRB,4.9390E-02_JPRB,4.1890E-02_JPRB,3.4611E-02_JPRB,2.7684E-02_JPRB,&
+ & 2.0680E-02_JPRB,1.2948E-02_JPRB,2.1658E+00_JPRB/)  
+KAO( :, 5, 9,11) = (/&
+ & 6.7272E-02_JPRB,5.9620E-02_JPRB,5.1959E-02_JPRB,4.4449E-02_JPRB,3.7070E-02_JPRB,3.0178E-02_JPRB,&
+ & 2.2884E-02_JPRB,1.5505E-02_JPRB,2.6879E+00_JPRB/)  
+KAO( :, 1,10,11) = (/&
+ & 6.1580E-02_JPRB,5.3887E-02_JPRB,4.6212E-02_JPRB,3.8787E-02_JPRB,3.1170E-02_JPRB,2.3588E-02_JPRB,&
+ & 1.6242E-02_JPRB,9.1562E-03_JPRB,5.0131E+00_JPRB/)  
+KAO( :, 2,10,11) = (/&
+ & 6.3734E-02_JPRB,5.5768E-02_JPRB,4.8169E-02_JPRB,4.0370E-02_JPRB,3.2604E-02_JPRB,2.4832E-02_JPRB,&
+ & 1.7635E-02_JPRB,1.0375E-02_JPRB,6.1201E+00_JPRB/)  
+KAO( :, 3,10,11) = (/&
+ & 6.5820E-02_JPRB,5.7831E-02_JPRB,4.9999E-02_JPRB,4.2115E-02_JPRB,3.4203E-02_JPRB,2.6490E-02_JPRB,&
+ & 1.9622E-02_JPRB,1.1697E-02_JPRB,7.4107E+00_JPRB/)  
+KAO( :, 4,10,11) = (/&
+ & 6.7912E-02_JPRB,5.9913E-02_JPRB,5.1985E-02_JPRB,4.3986E-02_JPRB,3.6001E-02_JPRB,2.8914E-02_JPRB,&
+ & 2.1590E-02_JPRB,1.3339E-02_JPRB,9.0185E+00_JPRB/)  
+KAO( :, 5,10,11) = (/&
+ & 7.0732E-02_JPRB,6.2601E-02_JPRB,5.4503E-02_JPRB,4.6414E-02_JPRB,3.8865E-02_JPRB,3.1467E-02_JPRB,&
+ & 2.3923E-02_JPRB,1.5241E-02_JPRB,1.1156E+01_JPRB/)  
+KAO( :, 1,11,11) = (/&
+ & 6.4605E-02_JPRB,5.6532E-02_JPRB,4.8552E-02_JPRB,4.0738E-02_JPRB,3.2744E-02_JPRB,2.4819E-02_JPRB,&
+ & 1.7263E-02_JPRB,9.7908E-03_JPRB,7.8274E+00_JPRB/)  
+KAO( :, 2,11,11) = (/&
+ & 6.6894E-02_JPRB,5.8534E-02_JPRB,5.0603E-02_JPRB,4.2448E-02_JPRB,3.4262E-02_JPRB,2.6260E-02_JPRB,&
+ & 1.8818E-02_JPRB,1.1087E-02_JPRB,9.5674E+00_JPRB/)  
+KAO( :, 3,11,11) = (/&
+ & 6.9134E-02_JPRB,6.0821E-02_JPRB,5.2610E-02_JPRB,4.4286E-02_JPRB,3.6011E-02_JPRB,2.8243E-02_JPRB,&
+ & 2.0923E-02_JPRB,1.2641E-02_JPRB,1.1695E+01_JPRB/)  
+KAO( :, 4,11,11) = (/&
+ & 7.1444E-02_JPRB,6.3062E-02_JPRB,5.4727E-02_JPRB,4.6341E-02_JPRB,3.8163E-02_JPRB,3.0937E-02_JPRB,&
+ & 2.3046E-02_JPRB,1.4407E-02_JPRB,1.4290E+01_JPRB/)  
+KAO( :, 5,11,11) = (/&
+ & 7.4689E-02_JPRB,6.6247E-02_JPRB,5.7761E-02_JPRB,4.9331E-02_JPRB,4.1557E-02_JPRB,3.3813E-02_JPRB,&
+ & 2.5726E-02_JPRB,1.6474E-02_JPRB,1.7723E+01_JPRB/)  
+KAO( :, 1,12,11) = (/&
+ & 6.6565E-02_JPRB,5.8241E-02_JPRB,5.0116E-02_JPRB,4.2016E-02_JPRB,3.3802E-02_JPRB,2.5721E-02_JPRB,&
+ & 1.8057E-02_JPRB,1.0339E-02_JPRB,9.3068E+00_JPRB/)  
+KAO( :, 2,12,11) = (/&
+ & 6.8895E-02_JPRB,6.0321E-02_JPRB,5.2166E-02_JPRB,4.3813E-02_JPRB,3.5352E-02_JPRB,2.7349E-02_JPRB,&
+ & 1.9762E-02_JPRB,1.1726E-02_JPRB,1.1320E+01_JPRB/)  
+KAO( :, 3,12,11) = (/&
+ & 7.1293E-02_JPRB,6.2788E-02_JPRB,5.4349E-02_JPRB,4.5762E-02_JPRB,3.7291E-02_JPRB,2.9714E-02_JPRB,&
+ & 2.1861E-02_JPRB,1.3399E-02_JPRB,1.3746E+01_JPRB/)  
+KAO( :, 4,12,11) = (/&
+ & 7.4182E-02_JPRB,6.5550E-02_JPRB,5.6943E-02_JPRB,4.8285E-02_JPRB,4.0149E-02_JPRB,3.2582E-02_JPRB,&
+ & 2.4300E-02_JPRB,1.5394E-02_JPRB,1.6888E+01_JPRB/)  
+KAO( :, 5,12,11) = (/&
+ & 7.7769E-02_JPRB,6.9096E-02_JPRB,6.0288E-02_JPRB,5.1657E-02_JPRB,4.3787E-02_JPRB,3.5953E-02_JPRB,&
+ & 2.7241E-02_JPRB,1.7571E-02_JPRB,2.0864E+01_JPRB/)  
+KAO( :, 1,13,11) = (/&
+ & 6.7288E-02_JPRB,5.8877E-02_JPRB,5.0755E-02_JPRB,4.2517E-02_JPRB,3.4247E-02_JPRB,2.6263E-02_JPRB,&
+ & 1.8588E-02_JPRB,1.0728E-02_JPRB,8.9064E+00_JPRB/)  
+KAO( :, 2,13,11) = (/&
+ & 6.9672E-02_JPRB,6.1086E-02_JPRB,5.2816E-02_JPRB,4.4401E-02_JPRB,3.5953E-02_JPRB,2.8119E-02_JPRB,&
+ & 2.0390E-02_JPRB,1.2229E-02_JPRB,1.0911E+01_JPRB/)  
+KAO( :, 3,13,11) = (/&
+ & 7.2646E-02_JPRB,6.4043E-02_JPRB,5.5467E-02_JPRB,4.6763E-02_JPRB,3.8350E-02_JPRB,3.0852E-02_JPRB,&
+ & 2.2586E-02_JPRB,1.3987E-02_JPRB,1.3268E+01_JPRB/)  
+KAO( :, 4,13,11) = (/&
+ & 7.6364E-02_JPRB,6.7563E-02_JPRB,5.8748E-02_JPRB,4.9899E-02_JPRB,4.1863E-02_JPRB,3.3973E-02_JPRB,&
+ & 2.5440E-02_JPRB,1.6181E-02_JPRB,1.6175E+01_JPRB/)  
+KAO( :, 5,13,11) = (/&
+ & 8.0410E-02_JPRB,7.1534E-02_JPRB,6.2509E-02_JPRB,5.3806E-02_JPRB,4.5873E-02_JPRB,3.7854E-02_JPRB,&
+ & 2.8649E-02_JPRB,1.8582E-02_JPRB,1.9867E+01_JPRB/)  
+KAO( :, 1, 1,12) = (/&
+ & 4.9841E-02_JPRB,4.4490E-02_JPRB,4.1303E-02_JPRB,3.7661E-02_JPRB,3.4374E-02_JPRB,3.0218E-02_JPRB,&
+ & 2.6408E-02_JPRB,2.2425E-02_JPRB,3.2278E-02_JPRB/)  
+KAO( :, 2, 1,12) = (/&
+ & 5.7650E-02_JPRB,5.2260E-02_JPRB,4.8821E-02_JPRB,4.5102E-02_JPRB,4.1618E-02_JPRB,3.7433E-02_JPRB,&
+ & 3.4112E-02_JPRB,2.9968E-02_JPRB,4.1893E-02_JPRB/)  
+KAO( :, 3, 1,12) = (/&
+ & 6.5474E-02_JPRB,6.0019E-02_JPRB,5.6468E-02_JPRB,5.3494E-02_JPRB,4.9266E-02_JPRB,4.6229E-02_JPRB,&
+ & 4.2427E-02_JPRB,3.9480E-02_JPRB,5.2169E-02_JPRB/)  
+KAO( :, 4, 1,12) = (/&
+ & 7.3266E-02_JPRB,6.7747E-02_JPRB,6.4431E-02_JPRB,6.2152E-02_JPRB,5.8324E-02_JPRB,5.6278E-02_JPRB,&
+ & 5.1411E-02_JPRB,5.1078E-02_JPRB,6.3958E-02_JPRB/)  
+KAO( :, 5, 1,12) = (/&
+ & 8.0950E-02_JPRB,7.5647E-02_JPRB,7.3090E-02_JPRB,7.0878E-02_JPRB,6.8730E-02_JPRB,6.6425E-02_JPRB,&
+ & 6.1537E-02_JPRB,6.4721E-02_JPRB,7.7752E-02_JPRB/)  
+KAO( :, 1, 2,12) = (/&
+ & 4.6529E-02_JPRB,4.1918E-02_JPRB,3.8638E-02_JPRB,3.5085E-02_JPRB,3.2117E-02_JPRB,2.7976E-02_JPRB,&
+ & 2.4660E-02_JPRB,2.0193E-02_JPRB,3.6378E-02_JPRB/)  
+KAO( :, 2, 2,12) = (/&
+ & 5.4059E-02_JPRB,4.9350E-02_JPRB,4.6045E-02_JPRB,4.2538E-02_JPRB,3.9123E-02_JPRB,3.5351E-02_JPRB,&
+ & 3.1963E-02_JPRB,2.6590E-02_JPRB,4.7334E-02_JPRB/)  
+KAO( :, 3, 2,12) = (/&
+ & 6.1738E-02_JPRB,5.6865E-02_JPRB,5.3592E-02_JPRB,5.0849E-02_JPRB,4.7212E-02_JPRB,4.4241E-02_JPRB,&
+ & 3.9834E-02_JPRB,3.4654E-02_JPRB,5.9199E-02_JPRB/)  
+KAO( :, 4, 2,12) = (/&
+ & 6.9699E-02_JPRB,6.4653E-02_JPRB,6.1768E-02_JPRB,5.9341E-02_JPRB,5.6731E-02_JPRB,5.3710E-02_JPRB,&
+ & 4.8897E-02_JPRB,4.4731E-02_JPRB,7.2042E-02_JPRB/)  
+KAO( :, 5, 2,12) = (/&
+ & 7.7745E-02_JPRB,7.2901E-02_JPRB,7.0552E-02_JPRB,6.8743E-02_JPRB,6.7472E-02_JPRB,6.3767E-02_JPRB,&
+ & 5.9291E-02_JPRB,5.7415E-02_JPRB,8.6627E-02_JPRB/)  
+KAO( :, 1, 3,12) = (/&
+ & 4.2062E-02_JPRB,3.7711E-02_JPRB,3.4334E-02_JPRB,3.0926E-02_JPRB,2.8025E-02_JPRB,2.4558E-02_JPRB,&
+ & 2.1311E-02_JPRB,1.7634E-02_JPRB,4.9902E-02_JPRB/)  
+KAO( :, 2, 3,12) = (/&
+ & 4.8678E-02_JPRB,4.4324E-02_JPRB,4.1100E-02_JPRB,3.8070E-02_JPRB,3.4742E-02_JPRB,3.1650E-02_JPRB,&
+ & 2.7890E-02_JPRB,2.3218E-02_JPRB,6.2894E-02_JPRB/)  
+KAO( :, 3, 3,12) = (/&
+ & 5.6167E-02_JPRB,5.1670E-02_JPRB,4.8444E-02_JPRB,4.5977E-02_JPRB,4.2837E-02_JPRB,4.0019E-02_JPRB,&
+ & 3.5364E-02_JPRB,3.0176E-02_JPRB,7.8591E-02_JPRB/)  
+KAO( :, 4, 3,12) = (/&
+ & 6.3921E-02_JPRB,5.9620E-02_JPRB,5.6596E-02_JPRB,5.4403E-02_JPRB,5.2332E-02_JPRB,4.8849E-02_JPRB,&
+ & 4.4022E-02_JPRB,3.8881E-02_JPRB,9.6792E-02_JPRB/)  
+KAO( :, 5, 3,12) = (/&
+ & 7.1755E-02_JPRB,6.7802E-02_JPRB,6.5648E-02_JPRB,6.4060E-02_JPRB,6.2628E-02_JPRB,5.8608E-02_JPRB,&
+ & 5.3986E-02_JPRB,4.9725E-02_JPRB,1.1574E-01_JPRB/)  
+KAO( :, 1, 4,12) = (/&
+ & 4.2323E-02_JPRB,3.7345E-02_JPRB,3.2720E-02_JPRB,2.8218E-02_JPRB,2.4532E-02_JPRB,2.0757E-02_JPRB,&
+ & 1.8047E-02_JPRB,1.5414E-02_JPRB,7.5075E-02_JPRB/)  
+KAO( :, 2, 4,12) = (/&
+ & 4.5621E-02_JPRB,4.0856E-02_JPRB,3.6741E-02_JPRB,3.3228E-02_JPRB,3.0105E-02_JPRB,2.7246E-02_JPRB,&
+ & 2.3891E-02_JPRB,2.0542E-02_JPRB,9.4476E-02_JPRB/)  
+KAO( :, 3, 4,12) = (/&
+ & 5.0938E-02_JPRB,4.6389E-02_JPRB,4.2972E-02_JPRB,4.0292E-02_JPRB,3.7820E-02_JPRB,3.4834E-02_JPRB,&
+ & 3.0651E-02_JPRB,2.6871E-02_JPRB,1.1638E-01_JPRB/)  
+KAO( :, 4, 4,12) = (/&
+ & 5.7835E-02_JPRB,5.3600E-02_JPRB,5.0835E-02_JPRB,4.8668E-02_JPRB,4.6908E-02_JPRB,4.3138E-02_JPRB,&
+ & 3.8678E-02_JPRB,3.4608E-02_JPRB,1.4036E-01_JPRB/)  
+KAO( :, 5, 4,12) = (/&
+ & 6.5625E-02_JPRB,6.1550E-02_JPRB,5.9598E-02_JPRB,5.8329E-02_JPRB,5.6532E-02_JPRB,5.2486E-02_JPRB,&
+ & 4.8246E-02_JPRB,4.4046E-02_JPRB,1.6774E-01_JPRB/)  
+KAO( :, 1, 5,12) = (/&
+ & 4.7313E-02_JPRB,4.1507E-02_JPRB,3.5955E-02_JPRB,3.0395E-02_JPRB,2.4915E-02_JPRB,1.9463E-02_JPRB,&
+ & 1.5471E-02_JPRB,1.3526E-02_JPRB,1.1349E-01_JPRB/)  
+KAO( :, 2, 5,12) = (/&
+ & 4.9244E-02_JPRB,4.3467E-02_JPRB,3.7885E-02_JPRB,3.2452E-02_JPRB,2.7414E-02_JPRB,2.3444E-02_JPRB,&
+ & 2.0705E-02_JPRB,1.8174E-02_JPRB,1.4301E-01_JPRB/)  
+KAO( :, 3, 5,12) = (/&
+ & 5.1407E-02_JPRB,4.5739E-02_JPRB,4.0584E-02_JPRB,3.6389E-02_JPRB,3.2936E-02_JPRB,2.9965E-02_JPRB,&
+ & 2.6974E-02_JPRB,2.4069E-02_JPRB,1.7509E-01_JPRB/)  
+KAO( :, 4, 5,12) = (/&
+ & 5.5244E-02_JPRB,5.0142E-02_JPRB,4.5994E-02_JPRB,4.3212E-02_JPRB,4.1091E-02_JPRB,3.7645E-02_JPRB,&
+ & 3.4454E-02_JPRB,3.1352E-02_JPRB,2.1139E-01_JPRB/)  
+KAO( :, 5, 5,12) = (/&
+ & 6.0988E-02_JPRB,5.6526E-02_JPRB,5.3622E-02_JPRB,5.2392E-02_JPRB,5.0078E-02_JPRB,4.6505E-02_JPRB,&
+ & 4.3357E-02_JPRB,4.0176E-02_JPRB,2.5233E-01_JPRB/)  
+KAO( :, 1, 6,12) = (/&
+ & 5.3543E-02_JPRB,4.6854E-02_JPRB,4.0556E-02_JPRB,3.4124E-02_JPRB,2.7581E-02_JPRB,2.1205E-02_JPRB,&
+ & 1.5012E-02_JPRB,1.1854E-02_JPRB,1.6344E-01_JPRB/)  
+KAO( :, 2, 6,12) = (/&
+ & 5.5268E-02_JPRB,4.8609E-02_JPRB,4.2123E-02_JPRB,3.5498E-02_JPRB,2.9110E-02_JPRB,2.2794E-02_JPRB,&
+ & 1.8116E-02_JPRB,1.5898E-02_JPRB,2.0983E-01_JPRB/)  
+KAO( :, 3, 6,12) = (/&
+ & 5.7133E-02_JPRB,5.0456E-02_JPRB,4.3928E-02_JPRB,3.7527E-02_JPRB,3.1445E-02_JPRB,2.6337E-02_JPRB,&
+ & 2.3556E-02_JPRB,2.1068E-02_JPRB,2.6329E-01_JPRB/)  
+KAO( :, 4, 6,12) = (/&
+ & 5.9454E-02_JPRB,5.2789E-02_JPRB,4.6413E-02_JPRB,4.0569E-02_JPRB,3.6370E-02_JPRB,3.2588E-02_JPRB,&
+ & 3.0510E-02_JPRB,2.7765E-02_JPRB,3.2205E-01_JPRB/)  
+KAO( :, 5, 6,12) = (/&
+ & 6.2205E-02_JPRB,5.6007E-02_JPRB,5.0615E-02_JPRB,4.6993E-02_JPRB,4.3715E-02_JPRB,4.0774E-02_JPRB,&
+ & 3.8896E-02_JPRB,3.6103E-02_JPRB,3.8619E-01_JPRB/)  
+KAO( :, 1, 7,12) = (/&
+ & 6.0265E-02_JPRB,5.2736E-02_JPRB,4.5532E-02_JPRB,3.8162E-02_JPRB,3.0863E-02_JPRB,2.3507E-02_JPRB,&
+ & 1.6295E-02_JPRB,1.0412E-02_JPRB,2.4973E-01_JPRB/)  
+KAO( :, 2, 7,12) = (/&
+ & 6.2205E-02_JPRB,5.4530E-02_JPRB,4.7203E-02_JPRB,3.9805E-02_JPRB,3.2362E-02_JPRB,2.4886E-02_JPRB,&
+ & 1.8121E-02_JPRB,1.3884E-02_JPRB,3.2971E-01_JPRB/)  
+KAO( :, 3, 7,12) = (/&
+ & 6.4226E-02_JPRB,5.6598E-02_JPRB,4.9127E-02_JPRB,4.1578E-02_JPRB,3.4062E-02_JPRB,2.6961E-02_JPRB,&
+ & 2.1190E-02_JPRB,1.8496E-02_JPRB,4.1960E-01_JPRB/)  
+KAO( :, 4, 7,12) = (/&
+ & 6.6268E-02_JPRB,5.8530E-02_JPRB,5.0921E-02_JPRB,4.3485E-02_JPRB,3.6432E-02_JPRB,3.0158E-02_JPRB,&
+ & 2.6927E-02_JPRB,2.4386E-02_JPRB,5.2305E-01_JPRB/)  
+KAO( :, 5, 7,12) = (/&
+ & 6.9017E-02_JPRB,6.1350E-02_JPRB,5.3776E-02_JPRB,4.6719E-02_JPRB,4.0414E-02_JPRB,3.6297E-02_JPRB,&
+ & 3.4763E-02_JPRB,3.1958E-02_JPRB,6.4099E-01_JPRB/)  
+KAO( :, 1, 8,12) = (/&
+ & 6.7351E-02_JPRB,5.8939E-02_JPRB,5.0741E-02_JPRB,4.2559E-02_JPRB,3.4322E-02_JPRB,2.6023E-02_JPRB,&
+ & 1.7903E-02_JPRB,1.0436E-02_JPRB,4.7669E-01_JPRB/)  
+KAO( :, 2, 8,12) = (/&
+ & 6.9803E-02_JPRB,6.1083E-02_JPRB,5.2877E-02_JPRB,4.4484E-02_JPRB,3.5947E-02_JPRB,2.7535E-02_JPRB,&
+ & 1.9536E-02_JPRB,1.2383E-02_JPRB,6.1756E-01_JPRB/)  
+KAO( :, 3, 8,12) = (/&
+ & 7.2114E-02_JPRB,6.3433E-02_JPRB,5.4955E-02_JPRB,4.6298E-02_JPRB,3.7783E-02_JPRB,2.9395E-02_JPRB,&
+ & 2.1671E-02_JPRB,1.6236E-02_JPRB,8.0333E-01_JPRB/)  
+KAO( :, 4, 8,12) = (/&
+ & 7.4179E-02_JPRB,6.5484E-02_JPRB,5.6918E-02_JPRB,4.8333E-02_JPRB,3.9986E-02_JPRB,3.1892E-02_JPRB,&
+ & 2.4841E-02_JPRB,2.1727E-02_JPRB,1.0238E+00_JPRB/)  
+KAO( :, 5, 8,12) = (/&
+ & 7.6619E-02_JPRB,6.7894E-02_JPRB,5.9259E-02_JPRB,5.0828E-02_JPRB,4.2369E-02_JPRB,3.5339E-02_JPRB,&
+ & 3.0974E-02_JPRB,2.8579E-02_JPRB,1.2721E+00_JPRB/)  
+KAO( :, 1, 9,12) = (/&
+ & 7.4478E-02_JPRB,6.5171E-02_JPRB,5.5864E-02_JPRB,4.6941E-02_JPRB,3.7748E-02_JPRB,2.8605E-02_JPRB,&
+ & 1.9435E-02_JPRB,1.1004E-02_JPRB,1.7884E+00_JPRB/)  
+KAO( :, 2, 9,12) = (/&
+ & 7.7257E-02_JPRB,6.7603E-02_JPRB,5.8386E-02_JPRB,4.8944E-02_JPRB,3.9580E-02_JPRB,3.0097E-02_JPRB,&
+ & 2.0950E-02_JPRB,1.2526E-02_JPRB,2.2521E+00_JPRB/)  
+KAO( :, 3, 9,12) = (/&
+ & 7.9904E-02_JPRB,7.0069E-02_JPRB,6.0638E-02_JPRB,5.1114E-02_JPRB,4.1495E-02_JPRB,3.1843E-02_JPRB,&
+ & 2.3233E-02_JPRB,1.4537E-02_JPRB,2.9339E+00_JPRB/)  
+KAO( :, 4, 9,12) = (/&
+ & 8.2346E-02_JPRB,7.2597E-02_JPRB,6.3019E-02_JPRB,5.3300E-02_JPRB,4.3544E-02_JPRB,3.4492E-02_JPRB,&
+ & 2.5780E-02_JPRB,1.8842E-02_JPRB,3.7982E+00_JPRB/)  
+KAO( :, 5, 9,12) = (/&
+ & 8.4921E-02_JPRB,7.5081E-02_JPRB,6.5371E-02_JPRB,5.5672E-02_JPRB,4.6484E-02_JPRB,3.7440E-02_JPRB,&
+ & 2.9153E-02_JPRB,2.5208E-02_JPRB,4.8104E+00_JPRB/)  
+KAO( :, 1,10,12) = (/&
+ & 8.1560E-02_JPRB,7.1369E-02_JPRB,6.1175E-02_JPRB,5.1264E-02_JPRB,4.1241E-02_JPRB,3.1126E-02_JPRB,&
+ & 2.1112E-02_JPRB,1.1696E-02_JPRB,7.4468E+00_JPRB/)  
+KAO( :, 2,10,12) = (/&
+ & 8.4440E-02_JPRB,7.3887E-02_JPRB,6.3687E-02_JPRB,5.3392E-02_JPRB,4.3082E-02_JPRB,3.2635E-02_JPRB,&
+ & 2.2609E-02_JPRB,1.3248E-02_JPRB,9.2981E+00_JPRB/)  
+KAO( :, 3,10,12) = (/&
+ & 8.7510E-02_JPRB,7.6590E-02_JPRB,6.6316E-02_JPRB,5.5795E-02_JPRB,4.5078E-02_JPRB,3.4503E-02_JPRB,&
+ & 2.4942E-02_JPRB,1.4958E-02_JPRB,1.2082E+01_JPRB/)  
+KAO( :, 4,10,12) = (/&
+ & 9.0511E-02_JPRB,7.9705E-02_JPRB,6.9107E-02_JPRB,5.8258E-02_JPRB,4.7506E-02_JPRB,3.7279E-02_JPRB,&
+ & 2.7590E-02_JPRB,1.7415E-02_JPRB,1.5900E+01_JPRB/)  
+KAO( :, 5,10,12) = (/&
+ & 9.3419E-02_JPRB,8.2537E-02_JPRB,7.1769E-02_JPRB,6.0958E-02_JPRB,5.0392E-02_JPRB,4.0420E-02_JPRB,&
+ & 3.0465E-02_JPRB,2.2350E-02_JPRB,2.0480E+01_JPRB/)  
+KAO( :, 1,11,12) = (/&
+ & 8.9464E-02_JPRB,7.8283E-02_JPRB,6.7101E-02_JPRB,5.6285E-02_JPRB,4.5266E-02_JPRB,3.4192E-02_JPRB,&
+ & 2.3302E-02_JPRB,1.2995E-02_JPRB,1.1790E+01_JPRB/)  
+KAO( :, 2,11,12) = (/&
+ & 9.2590E-02_JPRB,8.1019E-02_JPRB,6.9897E-02_JPRB,5.8591E-02_JPRB,4.7313E-02_JPRB,3.5860E-02_JPRB,&
+ & 2.5050E-02_JPRB,1.4711E-02_JPRB,1.4906E+01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB13:PART8',1,ZHOOK_HANDLE)
+END SUBROUTINE PART8
+
+
+SUBROUTINE PART9
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB13:PART9',0,ZHOOK_HANDLE)
+
+
+KAO( :, 3,11,12) = (/&
+ & 9.5857E-02_JPRB,8.3955E-02_JPRB,7.2681E-02_JPRB,6.1172E-02_JPRB,4.9475E-02_JPRB,3.7915E-02_JPRB,&
+ & 2.7663E-02_JPRB,1.6572E-02_JPRB,1.9642E+01_JPRB/)  
+KAO( :, 4,11,12) = (/&
+ & 9.9442E-02_JPRB,8.7628E-02_JPRB,7.5988E-02_JPRB,6.4098E-02_JPRB,5.2240E-02_JPRB,4.1108E-02_JPRB,&
+ & 3.0576E-02_JPRB,1.8973E-02_JPRB,2.5991E+01_JPRB/)  
+KAO( :, 5,11,12) = (/&
+ & 1.0289E-01_JPRB,9.0944E-02_JPRB,7.9112E-02_JPRB,6.7235E-02_JPRB,5.5656E-02_JPRB,4.4964E-02_JPRB,&
+ & 3.3825E-02_JPRB,2.2911E-02_JPRB,3.3545E+01_JPRB/)  
+KAO( :, 1,12,12) = (/&
+ & 9.6584E-02_JPRB,8.4508E-02_JPRB,7.2437E-02_JPRB,6.0815E-02_JPRB,4.8901E-02_JPRB,3.6973E-02_JPRB,&
+ & 2.5367E-02_JPRB,1.4216E-02_JPRB,1.4049E+01_JPRB/)  
+KAO( :, 2,12,12) = (/&
+ & 9.9962E-02_JPRB,8.7468E-02_JPRB,7.5539E-02_JPRB,6.3320E-02_JPRB,5.1161E-02_JPRB,3.8859E-02_JPRB,&
+ & 2.7427E-02_JPRB,1.6079E-02_JPRB,1.7978E+01_JPRB/)  
+KAO( :, 3,12,12) = (/&
+ & 1.0340E-01_JPRB,9.0660E-02_JPRB,7.8491E-02_JPRB,6.6122E-02_JPRB,5.3580E-02_JPRB,4.1278E-02_JPRB,&
+ & 3.0377E-02_JPRB,1.8202E-02_JPRB,2.3758E+01_JPRB/)  
+KAO( :, 4,12,12) = (/&
+ & 1.0749E-01_JPRB,9.4783E-02_JPRB,8.2213E-02_JPRB,6.9419E-02_JPRB,5.6626E-02_JPRB,4.4917E-02_JPRB,&
+ & 3.3518E-02_JPRB,2.0812E-02_JPRB,3.1380E+01_JPRB/)  
+KAO( :, 5,12,12) = (/&
+ & 1.1220E-01_JPRB,9.9222E-02_JPRB,8.6341E-02_JPRB,7.3393E-02_JPRB,6.0808E-02_JPRB,4.9200E-02_JPRB,&
+ & 3.7236E-02_JPRB,2.4135E-02_JPRB,4.0595E+01_JPRB/)  
+KAO( :, 1,13,12) = (/&
+ & 1.0300E-01_JPRB,9.0135E-02_JPRB,7.7297E-02_JPRB,6.4939E-02_JPRB,5.2208E-02_JPRB,3.9524E-02_JPRB,&
+ & 2.7327E-02_JPRB,1.5400E-02_JPRB,1.3848E+01_JPRB/)  
+KAO( :, 2,13,12) = (/&
+ & 1.0667E-01_JPRB,9.3334E-02_JPRB,8.0681E-02_JPRB,6.7642E-02_JPRB,5.4655E-02_JPRB,4.1706E-02_JPRB,&
+ & 2.9739E-02_JPRB,1.7385E-02_JPRB,1.7658E+01_JPRB/)  
+KAO( :, 3,13,12) = (/&
+ & 1.1046E-01_JPRB,9.6956E-02_JPRB,8.3948E-02_JPRB,7.0727E-02_JPRB,5.7403E-02_JPRB,4.4569E-02_JPRB,&
+ & 3.2904E-02_JPRB,1.9868E-02_JPRB,2.3136E+01_JPRB/)  
+KAO( :, 4,13,12) = (/&
+ & 1.1527E-01_JPRB,1.0171E-01_JPRB,8.8265E-02_JPRB,7.4632E-02_JPRB,6.1070E-02_JPRB,4.8844E-02_JPRB,&
+ & 3.6366E-02_JPRB,2.2679E-02_JPRB,3.0331E+01_JPRB/)  
+KAO( :, 5,13,12) = (/&
+ & 1.2126E-01_JPRB,1.0736E-01_JPRB,9.3522E-02_JPRB,7.9617E-02_JPRB,6.6218E-02_JPRB,5.3664E-02_JPRB,&
+ & 4.0795E-02_JPRB,2.6028E-02_JPRB,3.9050E+01_JPRB/)  
+KAO( :, 1, 1,13) = (/&
+ & 7.7575E-02_JPRB,6.7876E-02_JPRB,6.3410E-02_JPRB,5.7807E-02_JPRB,5.1861E-02_JPRB,4.6380E-02_JPRB,&
+ & 3.9791E-02_JPRB,3.9685E-02_JPRB,4.9236E-02_JPRB/)  
+KAO( :, 2, 1,13) = (/&
+ & 8.9138E-02_JPRB,7.8170E-02_JPRB,7.4208E-02_JPRB,6.9230E-02_JPRB,6.2955E-02_JPRB,5.7605E-02_JPRB,&
+ & 5.0411E-02_JPRB,5.4657E-02_JPRB,6.4256E-02_JPRB/)  
+KAO( :, 3, 1,13) = (/&
+ & 1.0111E-01_JPRB,8.9496E-02_JPRB,8.5836E-02_JPRB,8.0803E-02_JPRB,7.5668E-02_JPRB,6.9307E-02_JPRB,&
+ & 6.4355E-02_JPRB,7.2863E-02_JPRB,8.3997E-02_JPRB/)  
+KAO( :, 4, 1,13) = (/&
+ & 1.1325E-01_JPRB,1.0162E-01_JPRB,9.8222E-02_JPRB,9.3360E-02_JPRB,8.9664E-02_JPRB,8.2030E-02_JPRB,&
+ & 8.1890E-02_JPRB,9.4421E-02_JPRB,1.0835E-01_JPRB/)  
+KAO( :, 5, 1,13) = (/&
+ & 1.2539E-01_JPRB,1.1433E-01_JPRB,1.1116E-01_JPRB,1.0717E-01_JPRB,1.0371E-01_JPRB,9.7171E-02_JPRB,&
+ & 1.0295E-01_JPRB,1.1937E-01_JPRB,1.3710E-01_JPRB/)  
+KAO( :, 1, 2,13) = (/&
+ & 7.5084E-02_JPRB,6.5711E-02_JPRB,6.1443E-02_JPRB,5.6215E-02_JPRB,5.0525E-02_JPRB,4.5190E-02_JPRB,&
+ & 3.8256E-02_JPRB,3.4359E-02_JPRB,5.8705E-02_JPRB/)  
+KAO( :, 2, 2,13) = (/&
+ & 8.7481E-02_JPRB,7.7103E-02_JPRB,7.2673E-02_JPRB,6.7753E-02_JPRB,6.2029E-02_JPRB,5.6624E-02_JPRB,&
+ & 4.8617E-02_JPRB,4.8264E-02_JPRB,7.3515E-02_JPRB/)  
+KAO( :, 3, 2,13) = (/&
+ & 1.0027E-01_JPRB,8.9526E-02_JPRB,8.4990E-02_JPRB,7.9770E-02_JPRB,7.5196E-02_JPRB,6.8702E-02_JPRB,&
+ & 6.1742E-02_JPRB,6.5561E-02_JPRB,9.1679E-02_JPRB/)  
+KAO( :, 4, 2,13) = (/&
+ & 1.1299E-01_JPRB,1.0255E-01_JPRB,9.8199E-02_JPRB,9.3168E-02_JPRB,8.9322E-02_JPRB,8.2695E-02_JPRB,&
+ & 7.7970E-02_JPRB,8.6300E-02_JPRB,1.1329E-01_JPRB/)  
+KAO( :, 5, 2,13) = (/&
+ & 1.2555E-01_JPRB,1.1568E-01_JPRB,1.1171E-01_JPRB,1.0774E-01_JPRB,1.0377E-01_JPRB,9.8889E-02_JPRB,&
+ & 9.7493E-02_JPRB,1.1062E-01_JPRB,1.3853E-01_JPRB/)  
+KAO( :, 1, 3,13) = (/&
+ & 6.9691E-02_JPRB,6.1107E-02_JPRB,5.6756E-02_JPRB,5.1486E-02_JPRB,4.6192E-02_JPRB,4.1148E-02_JPRB,&
+ & 3.4753E-02_JPRB,2.8332E-02_JPRB,8.2983E-02_JPRB/)  
+KAO( :, 2, 3,13) = (/&
+ & 8.2227E-02_JPRB,7.2883E-02_JPRB,6.8298E-02_JPRB,6.2912E-02_JPRB,5.7544E-02_JPRB,5.2210E-02_JPRB,&
+ & 4.4957E-02_JPRB,4.0005E-02_JPRB,1.0478E-01_JPRB/)  
+KAO( :, 3, 3,13) = (/&
+ & 9.4982E-02_JPRB,8.5432E-02_JPRB,8.0995E-02_JPRB,7.5178E-02_JPRB,7.0646E-02_JPRB,6.4384E-02_JPRB,&
+ & 5.7678E-02_JPRB,5.5116E-02_JPRB,1.2972E-01_JPRB/)  
+KAO( :, 4, 3,13) = (/&
+ & 1.0814E-01_JPRB,9.8743E-02_JPRB,9.4541E-02_JPRB,8.8889E-02_JPRB,8.4938E-02_JPRB,7.8960E-02_JPRB,&
+ & 7.3010E-02_JPRB,7.4136E-02_JPRB,1.5589E-01_JPRB/)  
+KAO( :, 5, 3,13) = (/&
+ & 1.2147E-01_JPRB,1.1222E-01_JPRB,1.0815E-01_JPRB,1.0392E-01_JPRB,1.0025E-01_JPRB,9.5831E-02_JPRB,&
+ & 9.0492E-02_JPRB,9.6998E-02_JPRB,1.8572E-01_JPRB/)  
+KAO( :, 1, 4,13) = (/&
+ & 6.2565E-02_JPRB,5.4985E-02_JPRB,5.1005E-02_JPRB,4.5945E-02_JPRB,4.0688E-02_JPRB,3.6000E-02_JPRB,&
+ & 3.0283E-02_JPRB,2.3725E-02_JPRB,1.3254E-01_JPRB/)  
+KAO( :, 2, 4,13) = (/&
+ & 7.4730E-02_JPRB,6.6495E-02_JPRB,6.2334E-02_JPRB,5.7038E-02_JPRB,5.1581E-02_JPRB,4.6682E-02_JPRB,&
+ & 4.0217E-02_JPRB,3.3423E-02_JPRB,1.6553E-01_JPRB/)  
+KAO( :, 3, 4,13) = (/&
+ & 8.7721E-02_JPRB,7.9227E-02_JPRB,7.4754E-02_JPRB,6.9285E-02_JPRB,6.4310E-02_JPRB,5.8891E-02_JPRB,&
+ & 5.2591E-02_JPRB,4.6205E-02_JPRB,2.0091E-01_JPRB/)  
+KAO( :, 4, 4,13) = (/&
+ & 1.0117E-01_JPRB,9.2830E-02_JPRB,8.8248E-02_JPRB,8.2981E-02_JPRB,7.8335E-02_JPRB,7.3405E-02_JPRB,&
+ & 6.7339E-02_JPRB,6.2337E-02_JPRB,2.4019E-01_JPRB/)  
+KAO( :, 5, 4,13) = (/&
+ & 1.1481E-01_JPRB,1.0652E-01_JPRB,1.0206E-01_JPRB,9.8001E-02_JPRB,9.4065E-02_JPRB,9.0188E-02_JPRB,&
+ & 8.3658E-02_JPRB,8.2259E-02_JPRB,2.8323E-01_JPRB/)  
+KAO( :, 1, 5,13) = (/&
+ & 5.8407E-02_JPRB,5.1108E-02_JPRB,4.6239E-02_JPRB,4.0778E-02_JPRB,3.5382E-02_JPRB,3.0729E-02_JPRB,&
+ & 2.5929E-02_JPRB,2.0262E-02_JPRB,2.0976E-01_JPRB/)  
+KAO( :, 2, 5,13) = (/&
+ & 6.7590E-02_JPRB,6.0046E-02_JPRB,5.5590E-02_JPRB,5.0588E-02_JPRB,4.5609E-02_JPRB,4.0658E-02_JPRB,&
+ & 3.5218E-02_JPRB,2.8718E-02_JPRB,2.6203E-01_JPRB/)  
+KAO( :, 3, 5,13) = (/&
+ & 7.9667E-02_JPRB,7.2301E-02_JPRB,6.7704E-02_JPRB,6.2413E-02_JPRB,5.7716E-02_JPRB,5.2470E-02_JPRB,&
+ & 4.6833E-02_JPRB,3.9205E-02_JPRB,3.2020E-01_JPRB/)  
+KAO( :, 4, 5,13) = (/&
+ & 9.2812E-02_JPRB,8.5546E-02_JPRB,8.0951E-02_JPRB,7.5755E-02_JPRB,7.1407E-02_JPRB,6.6676E-02_JPRB,&
+ & 6.0889E-02_JPRB,5.2582E-02_JPRB,3.8339E-01_JPRB/)  
+KAO( :, 5, 5,13) = (/&
+ & 1.0648E-01_JPRB,9.9221E-02_JPRB,9.4821E-02_JPRB,9.0576E-02_JPRB,8.7197E-02_JPRB,8.3294E-02_JPRB,&
+ & 7.6479E-02_JPRB,6.9420E-02_JPRB,4.4984E-01_JPRB/)  
+KAO( :, 1, 6,13) = (/&
+ & 6.1074E-02_JPRB,5.3442E-02_JPRB,4.6642E-02_JPRB,3.9682E-02_JPRB,3.3065E-02_JPRB,2.6709E-02_JPRB,&
+ & 2.1402E-02_JPRB,1.7316E-02_JPRB,3.1217E-01_JPRB/)  
+KAO( :, 2, 6,13) = (/&
+ & 6.6102E-02_JPRB,5.8128E-02_JPRB,5.1965E-02_JPRB,4.5770E-02_JPRB,3.9615E-02_JPRB,3.4605E-02_JPRB,&
+ & 2.9773E-02_JPRB,2.4794E-02_JPRB,3.9753E-01_JPRB/)  
+KAO( :, 3, 6,13) = (/&
+ & 7.3850E-02_JPRB,6.6350E-02_JPRB,6.0820E-02_JPRB,5.4981E-02_JPRB,5.0172E-02_JPRB,4.5675E-02_JPRB,&
+ & 4.0524E-02_JPRB,3.4061E-02_JPRB,4.9206E-01_JPRB/)  
+KAO( :, 4, 6,13) = (/&
+ & 8.4087E-02_JPRB,7.7167E-02_JPRB,7.2506E-02_JPRB,6.7577E-02_JPRB,6.3361E-02_JPRB,5.9142E-02_JPRB,&
+ & 5.3549E-02_JPRB,4.5331E-02_JPRB,5.9295E-01_JPRB/)  
+KAO( :, 5, 6,13) = (/&
+ & 9.7016E-02_JPRB,9.0406E-02_JPRB,8.6048E-02_JPRB,8.1976E-02_JPRB,7.8673E-02_JPRB,7.5050E-02_JPRB,&
+ & 6.8277E-02_JPRB,5.9321E-02_JPRB,7.0097E-01_JPRB/)  
+KAO( :, 1, 7,13) = (/&
+ & 6.9484E-02_JPRB,6.0801E-02_JPRB,5.2496E-02_JPRB,4.4095E-02_JPRB,3.5736E-02_JPRB,2.7213E-02_JPRB,&
+ & 1.9462E-02_JPRB,1.5131E-02_JPRB,4.9666E-01_JPRB/)  
+KAO( :, 2, 7,13) = (/&
+ & 7.2482E-02_JPRB,6.3426E-02_JPRB,5.5184E-02_JPRB,4.6899E-02_JPRB,3.8506E-02_JPRB,3.1147E-02_JPRB,&
+ & 2.5118E-02_JPRB,2.1656E-02_JPRB,6.3678E-01_JPRB/)  
+KAO( :, 3, 7,13) = (/&
+ & 7.6126E-02_JPRB,6.7402E-02_JPRB,5.9699E-02_JPRB,5.1994E-02_JPRB,4.4998E-02_JPRB,3.9088E-02_JPRB,&
+ & 3.4888E-02_JPRB,3.0019E-02_JPRB,7.9664E-01_JPRB/)  
+KAO( :, 4, 7,13) = (/&
+ & 8.2337E-02_JPRB,7.4163E-02_JPRB,6.7469E-02_JPRB,6.0768E-02_JPRB,5.5760E-02_JPRB,5.1620E-02_JPRB,&
+ & 4.6705E-02_JPRB,4.0344E-02_JPRB,9.7480E-01_JPRB/)  
+KAO( :, 5, 7,13) = (/&
+ & 9.1160E-02_JPRB,8.3680E-02_JPRB,7.7975E-02_JPRB,7.3495E-02_JPRB,7.0289E-02_JPRB,6.6562E-02_JPRB,&
+ & 6.0431E-02_JPRB,5.2966E-02_JPRB,1.1667E+00_JPRB/)  
+KAO( :, 1, 8,13) = (/&
+ & 7.9875E-02_JPRB,6.9892E-02_JPRB,5.9964E-02_JPRB,5.0404E-02_JPRB,4.0546E-02_JPRB,3.0791E-02_JPRB,&
+ & 2.0999E-02_JPRB,1.3352E-02_JPRB,9.4134E-01_JPRB/)  
+KAO( :, 2, 8,13) = (/&
+ & 8.2831E-02_JPRB,7.2481E-02_JPRB,6.2676E-02_JPRB,5.2633E-02_JPRB,4.2647E-02_JPRB,3.2676E-02_JPRB,&
+ & 2.3318E-02_JPRB,1.9244E-02_JPRB,1.2413E+00_JPRB/)  
+KAO( :, 3, 8,13) = (/&
+ & 8.5814E-02_JPRB,7.5310E-02_JPRB,6.5363E-02_JPRB,5.5397E-02_JPRB,4.5622E-02_JPRB,3.6515E-02_JPRB,&
+ & 3.0395E-02_JPRB,2.6861E-02_JPRB,1.5851E+00_JPRB/)  
+KAO( :, 4, 8,13) = (/&
+ & 8.9328E-02_JPRB,7.9178E-02_JPRB,6.9765E-02_JPRB,6.0251E-02_JPRB,5.1815E-02_JPRB,4.5308E-02_JPRB,&
+ & 4.1250E-02_JPRB,3.6343E-02_JPRB,1.9653E+00_JPRB/)  
+KAO( :, 5, 8,13) = (/&
+ & 9.4353E-02_JPRB,8.4864E-02_JPRB,7.6567E-02_JPRB,6.8745E-02_JPRB,6.3044E-02_JPRB,5.8949E-02_JPRB,&
+ & 5.4004E-02_JPRB,4.8133E-02_JPRB,2.3851E+00_JPRB/)  
+KAO( :, 1, 9,13) = (/&
+ & 9.1060E-02_JPRB,7.9678E-02_JPRB,6.8298E-02_JPRB,5.7272E-02_JPRB,4.6070E-02_JPRB,3.4830E-02_JPRB,&
+ & 2.3532E-02_JPRB,1.3075E-02_JPRB,3.3036E+00_JPRB/)  
+KAO( :, 2, 9,13) = (/&
+ & 9.4393E-02_JPRB,8.2597E-02_JPRB,7.1203E-02_JPRB,5.9719E-02_JPRB,4.8226E-02_JPRB,3.6550E-02_JPRB,&
+ & 2.5153E-02_JPRB,1.6919E-02_JPRB,4.4974E+00_JPRB/)  
+KAO( :, 3, 9,13) = (/&
+ & 9.7943E-02_JPRB,8.5705E-02_JPRB,7.4242E-02_JPRB,6.2533E-02_JPRB,5.0588E-02_JPRB,3.8901E-02_JPRB,&
+ & 2.8455E-02_JPRB,2.3917E-02_JPRB,5.8908E+00_JPRB/)  
+KAO( :, 4, 9,13) = (/&
+ & 1.0146E-01_JPRB,8.9335E-02_JPRB,7.7594E-02_JPRB,6.5536E-02_JPRB,5.3840E-02_JPRB,4.3166E-02_JPRB,&
+ & 3.6140E-02_JPRB,3.2576E-02_JPRB,7.5007E+00_JPRB/)  
+KAO( :, 5, 9,13) = (/&
+ & 1.0475E-01_JPRB,9.2703E-02_JPRB,8.1242E-02_JPRB,7.0200E-02_JPRB,6.0029E-02_JPRB,5.2409E-02_JPRB,&
+ & 4.7785E-02_JPRB,4.3561E-02_JPRB,9.3123E+00_JPRB/)  
+KAO( :, 1,10,13) = (/&
+ & 1.0323E-01_JPRB,9.0321E-02_JPRB,7.7420E-02_JPRB,6.4606E-02_JPRB,5.2109E-02_JPRB,3.9304E-02_JPRB,&
+ & 2.6545E-02_JPRB,1.4340E-02_JPRB,1.3176E+01_JPRB/)  
+KAO( :, 2,10,13) = (/&
+ & 1.0726E-01_JPRB,9.3851E-02_JPRB,8.0568E-02_JPRB,6.7728E-02_JPRB,5.4502E-02_JPRB,4.1373E-02_JPRB,&
+ & 2.8209E-02_JPRB,1.6426E-02_JPRB,1.8337E+01_JPRB/)  
+KAO( :, 3,10,13) = (/&
+ & 1.1119E-01_JPRB,9.7297E-02_JPRB,8.4158E-02_JPRB,7.0666E-02_JPRB,5.7175E-02_JPRB,4.3645E-02_JPRB,&
+ & 3.0420E-02_JPRB,2.1518E-02_JPRB,2.4733E+01_JPRB/)  
+KAO( :, 4,10,13) = (/&
+ & 1.1524E-01_JPRB,1.0114E-01_JPRB,8.7553E-02_JPRB,7.3838E-02_JPRB,6.0042E-02_JPRB,4.6213E-02_JPRB,&
+ & 3.5024E-02_JPRB,2.9502E-02_JPRB,3.2293E+01_JPRB/)  
+KAO( :, 5,10,13) = (/&
+ & 1.1918E-01_JPRB,1.0517E-01_JPRB,9.1457E-02_JPRB,7.7569E-02_JPRB,6.3670E-02_JPRB,5.1602E-02_JPRB,&
+ & 4.3593E-02_JPRB,3.9624E-02_JPRB,4.0987E+01_JPRB/)  
+KAO( :, 1,11,13) = (/&
+ & 1.1809E-01_JPRB,1.0333E-01_JPRB,8.8567E-02_JPRB,7.3956E-02_JPRB,5.9648E-02_JPRB,4.4991E-02_JPRB,&
+ & 3.0394E-02_JPRB,1.6520E-02_JPRB,2.1329E+01_JPRB/)  
+KAO( :, 2,11,13) = (/&
+ & 1.2259E-01_JPRB,1.0727E-01_JPRB,9.2136E-02_JPRB,7.7442E-02_JPRB,6.2348E-02_JPRB,4.7316E-02_JPRB,&
+ & 3.2372E-02_JPRB,1.8681E-02_JPRB,3.0195E+01_JPRB/)  
+KAO( :, 3,11,13) = (/&
+ & 1.2699E-01_JPRB,1.1113E-01_JPRB,9.6180E-02_JPRB,8.0804E-02_JPRB,6.5376E-02_JPRB,4.9936E-02_JPRB,&
+ & 3.5020E-02_JPRB,2.2950E-02_JPRB,4.1235E+01_JPRB/)  
+KAO( :, 4,11,13) = (/&
+ & 1.3128E-01_JPRB,1.1530E-01_JPRB,9.9899E-02_JPRB,8.4291E-02_JPRB,6.8622E-02_JPRB,5.2932E-02_JPRB,&
+ & 3.9181E-02_JPRB,3.0475E-02_JPRB,5.4497E+01_JPRB/)  
+KAO( :, 5,11,13) = (/&
+ & 1.3614E-01_JPRB,1.2013E-01_JPRB,1.0437E-01_JPRB,8.8367E-02_JPRB,7.2398E-02_JPRB,5.7416E-02_JPRB,&
+ & 4.6256E-02_JPRB,4.1156E-02_JPRB,6.9986E+01_JPRB/)  
+KAO( :, 1,12,13) = (/&
+ & 1.3386E-01_JPRB,1.1712E-01_JPRB,1.0039E-01_JPRB,8.3885E-02_JPRB,6.7654E-02_JPRB,5.1023E-02_JPRB,&
+ & 3.4519E-02_JPRB,1.8911E-02_JPRB,2.6006E+01_JPRB/)  
+KAO( :, 2,12,13) = (/&
+ & 1.3877E-01_JPRB,1.2143E-01_JPRB,1.0437E-01_JPRB,8.7721E-02_JPRB,7.0645E-02_JPRB,5.3609E-02_JPRB,&
+ & 3.6836E-02_JPRB,2.1259E-02_JPRB,3.7252E+01_JPRB/)  
+KAO( :, 3,12,13) = (/&
+ & 1.4375E-01_JPRB,1.2579E-01_JPRB,1.0893E-01_JPRB,9.1548E-02_JPRB,7.4049E-02_JPRB,5.6582E-02_JPRB,&
+ & 3.9974E-02_JPRB,2.4775E-02_JPRB,5.1456E+01_JPRB/)  
+KAO( :, 4,12,13) = (/&
+ & 1.4854E-01_JPRB,1.3051E-01_JPRB,1.1314E-01_JPRB,9.5475E-02_JPRB,7.7776E-02_JPRB,6.0170E-02_JPRB,&
+ & 4.4338E-02_JPRB,3.1553E-02_JPRB,6.8626E+01_JPRB/)  
+KAO( :, 5,12,13) = (/&
+ & 1.5381E-01_JPRB,1.3581E-01_JPRB,1.1807E-01_JPRB,1.0009E-01_JPRB,8.2154E-02_JPRB,6.5109E-02_JPRB,&
+ & 5.0201E-02_JPRB,4.2427E-02_JPRB,8.8644E+01_JPRB/)  
+KAO( :, 1,13,13) = (/&
+ & 1.5013E-01_JPRB,1.3136E-01_JPRB,1.1260E-01_JPRB,9.4157E-02_JPRB,7.5949E-02_JPRB,5.7300E-02_JPRB,&
+ & 3.8872E-02_JPRB,2.1485E-02_JPRB,2.5822E+01_JPRB/)  
+KAO( :, 2,13,13) = (/&
+ & 1.5573E-01_JPRB,1.3627E-01_JPRB,1.1719E-01_JPRB,9.8539E-02_JPRB,7.9406E-02_JPRB,6.0263E-02_JPRB,&
+ & 4.1620E-02_JPRB,2.4096E-02_JPRB,3.6956E+01_JPRB/)  
+KAO( :, 3,13,13) = (/&
+ & 1.6146E-01_JPRB,1.4129E-01_JPRB,1.2242E-01_JPRB,1.0291E-01_JPRB,8.3225E-02_JPRB,6.3641E-02_JPRB,&
+ & 4.5364E-02_JPRB,2.7291E-02_JPRB,5.1399E+01_JPRB/)  
+KAO( :, 4,13,13) = (/&
+ & 1.6709E-01_JPRB,1.4686E-01_JPRB,1.2738E-01_JPRB,1.0746E-01_JPRB,8.7536E-02_JPRB,6.7870E-02_JPRB,&
+ & 5.0138E-02_JPRB,3.3350E-02_JPRB,6.8906E+01_JPRB/)  
+KAO( :, 5,13,13) = (/&
+ & 1.7380E-01_JPRB,1.5350E-01_JPRB,1.3346E-01_JPRB,1.1314E-01_JPRB,9.2912E-02_JPRB,7.3777E-02_JPRB,&
+ & 5.5622E-02_JPRB,4.3609E-02_JPRB,8.9452E+01_JPRB/)  
+KAO( :, 1, 1,14) = (/&
+ & 1.2272E-01_JPRB,1.0738E-01_JPRB,9.4283E-02_JPRB,8.6737E-02_JPRB,7.7664E-02_JPRB,7.2045E-02_JPRB,&
+ & 7.8412E-02_JPRB,9.0417E-02_JPRB,1.0437E-01_JPRB/)  
+KAO( :, 2, 1,14) = (/&
+ & 1.4194E-01_JPRB,1.2421E-01_JPRB,1.1268E-01_JPRB,1.0273E-01_JPRB,9.4698E-02_JPRB,9.3256E-02_JPRB,&
+ & 1.0748E-01_JPRB,1.2382E-01_JPRB,1.4306E-01_JPRB/)  
+KAO( :, 3, 1,14) = (/&
+ & 1.6121E-01_JPRB,1.4107E-01_JPRB,1.3136E-01_JPRB,1.2076E-01_JPRB,1.1385E-01_JPRB,1.2008E-01_JPRB,&
+ & 1.4204E-01_JPRB,1.6386E-01_JPRB,1.8913E-01_JPRB/)  
+KAO( :, 4, 1,14) = (/&
+ & 1.8022E-01_JPRB,1.5771E-01_JPRB,1.4978E-01_JPRB,1.4054E-01_JPRB,1.3566E-01_JPRB,1.5231E-01_JPRB,&
+ & 1.8204E-01_JPRB,2.1017E-01_JPRB,2.4241E-01_JPRB/)  
+KAO( :, 5, 1,14) = (/&
+ & 1.9876E-01_JPRB,1.7399E-01_JPRB,1.6813E-01_JPRB,1.6037E-01_JPRB,1.6177E-01_JPRB,1.8999E-01_JPRB,&
+ & 2.2725E-01_JPRB,2.6257E-01_JPRB,3.0267E-01_JPRB/)  
+KAO( :, 1, 2,14) = (/&
+ & 1.2729E-01_JPRB,1.1140E-01_JPRB,9.8262E-02_JPRB,9.0117E-02_JPRB,7.9778E-02_JPRB,7.1136E-02_JPRB,&
+ & 7.1341E-02_JPRB,8.1863E-02_JPRB,9.9580E-02_JPRB/)  
+KAO( :, 2, 2,14) = (/&
+ & 1.4798E-01_JPRB,1.2949E-01_JPRB,1.1804E-01_JPRB,1.0763E-01_JPRB,9.8062E-02_JPRB,9.0609E-02_JPRB,&
+ & 9.8103E-02_JPRB,1.1375E-01_JPRB,1.3363E-01_JPRB/)  
+KAO( :, 3, 2,14) = (/&
+ & 1.6873E-01_JPRB,1.4766E-01_JPRB,1.3850E-01_JPRB,1.2733E-01_JPRB,1.1689E-01_JPRB,1.1520E-01_JPRB,&
+ & 1.3107E-01_JPRB,1.5211E-01_JPRB,1.7565E-01_JPRB/)  
+KAO( :, 4, 2,14) = (/&
+ & 1.8958E-01_JPRB,1.6590E-01_JPRB,1.5866E-01_JPRB,1.4880E-01_JPRB,1.3847E-01_JPRB,1.4498E-01_JPRB,&
+ & 1.6951E-01_JPRB,1.9684E-01_JPRB,2.2617E-01_JPRB/)  
+KAO( :, 5, 2,14) = (/&
+ & 2.1038E-01_JPRB,1.8454E-01_JPRB,1.7933E-01_JPRB,1.7078E-01_JPRB,1.6390E-01_JPRB,1.7978E-01_JPRB,&
+ & 2.1333E-01_JPRB,2.4781E-01_JPRB,2.8462E-01_JPRB/)  
+KAO( :, 1, 3,14) = (/&
+ & 1.2550E-01_JPRB,1.0981E-01_JPRB,9.6955E-02_JPRB,8.9024E-02_JPRB,7.7880E-02_JPRB,6.7645E-02_JPRB,&
+ & 6.1403E-02_JPRB,6.7382E-02_JPRB,1.4225E-01_JPRB/)  
+KAO( :, 2, 3,14) = (/&
+ & 1.4763E-01_JPRB,1.2918E-01_JPRB,1.1753E-01_JPRB,1.0765E-01_JPRB,9.6693E-02_JPRB,8.5332E-02_JPRB,&
+ & 8.4254E-02_JPRB,9.5793E-02_JPRB,1.7778E-01_JPRB/)  
+KAO( :, 3, 3,14) = (/&
+ & 1.7047E-01_JPRB,1.4918E-01_JPRB,1.3933E-01_JPRB,1.2852E-01_JPRB,1.1691E-01_JPRB,1.0756E-01_JPRB,&
+ & 1.1280E-01_JPRB,1.3060E-01_JPRB,2.1534E-01_JPRB/)  
+KAO( :, 4, 3,14) = (/&
+ & 1.9358E-01_JPRB,1.6939E-01_JPRB,1.6102E-01_JPRB,1.5122E-01_JPRB,1.3831E-01_JPRB,1.3427E-01_JPRB,&
+ & 1.4739E-01_JPRB,1.7189E-01_JPRB,2.5797E-01_JPRB/)  
+KAO( :, 5, 3,14) = (/&
+ & 2.1660E-01_JPRB,1.9053E-01_JPRB,1.8371E-01_JPRB,1.7470E-01_JPRB,1.6255E-01_JPRB,1.6554E-01_JPRB,&
+ & 1.8894E-01_JPRB,2.1979E-01_JPRB,3.0718E-01_JPRB/)  
+KAO( :, 1, 4,14) = (/&
+ & 1.2051E-01_JPRB,1.0544E-01_JPRB,9.2670E-02_JPRB,8.4885E-02_JPRB,7.4104E-02_JPRB,6.3445E-02_JPRB,&
+ & 5.3222E-02_JPRB,5.2652E-02_JPRB,2.4708E-01_JPRB/)  
+KAO( :, 2, 4,14) = (/&
+ & 1.4414E-01_JPRB,1.2613E-01_JPRB,1.1387E-01_JPRB,1.0420E-01_JPRB,9.2996E-02_JPRB,8.0617E-02_JPRB,&
+ & 7.2382E-02_JPRB,7.7038E-02_JPRB,3.0415E-01_JPRB/)  
+KAO( :, 3, 4,14) = (/&
+ & 1.6863E-01_JPRB,1.4759E-01_JPRB,1.3702E-01_JPRB,1.2578E-01_JPRB,1.1376E-01_JPRB,1.0097E-01_JPRB,&
+ & 9.6748E-02_JPRB,1.0777E-01_JPRB,3.6725E-01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB13:PART9',1,ZHOOK_HANDLE)
+END SUBROUTINE PART9
+
+
+SUBROUTINE PART10
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB13:PART10',0,ZHOOK_HANDLE)
+
+
+KAO( :, 4, 4,14) = (/&
+ & 1.9357E-01_JPRB,1.6961E-01_JPRB,1.6032E-01_JPRB,1.4935E-01_JPRB,1.3627E-01_JPRB,1.2523E-01_JPRB,&
+ & 1.2694E-01_JPRB,1.4559E-01_JPRB,4.3596E-01_JPRB/)  
+KAO( :, 5, 4,14) = (/&
+ & 2.1857E-01_JPRB,1.9291E-01_JPRB,1.8484E-01_JPRB,1.7444E-01_JPRB,1.6154E-01_JPRB,1.5384E-01_JPRB,&
+ & 1.6473E-01_JPRB,1.9089E-01_JPRB,5.0957E-01_JPRB/)  
+KAO( :, 1, 5,14) = (/&
+ & 1.1387E-01_JPRB,9.9639E-02_JPRB,8.7347E-02_JPRB,7.9247E-02_JPRB,6.8932E-02_JPRB,5.8370E-02_JPRB,&
+ & 4.7289E-02_JPRB,4.1078E-02_JPRB,4.1374E-01_JPRB/)  
+KAO( :, 2, 5,14) = (/&
+ & 1.3841E-01_JPRB,1.2111E-01_JPRB,1.0901E-01_JPRB,9.8972E-02_JPRB,8.7653E-02_JPRB,7.5350E-02_JPRB,&
+ & 6.3780E-02_JPRB,6.0994E-02_JPRB,5.1453E-01_JPRB/)  
+KAO( :, 3, 5,14) = (/&
+ & 1.6401E-01_JPRB,1.4350E-01_JPRB,1.3292E-01_JPRB,1.2113E-01_JPRB,1.0884E-01_JPRB,9.5638E-02_JPRB,&
+ & 8.4952E-02_JPRB,8.8128E-02_JPRB,6.2691E-01_JPRB/)  
+KAO( :, 4, 5,14) = (/&
+ & 1.9052E-01_JPRB,1.6716E-01_JPRB,1.5743E-01_JPRB,1.4548E-01_JPRB,1.3189E-01_JPRB,1.1925E-01_JPRB,&
+ & 1.1148E-01_JPRB,1.2277E-01_JPRB,7.4875E-01_JPRB/)  
+KAO( :, 5, 5,14) = (/&
+ & 2.1750E-01_JPRB,1.9225E-01_JPRB,1.8333E-01_JPRB,1.7169E-01_JPRB,1.5768E-01_JPRB,1.4619E-01_JPRB,&
+ & 1.4557E-01_JPRB,1.6521E-01_JPRB,8.7275E-01_JPRB/)  
+KAO( :, 1, 6,14) = (/&
+ & 1.0474E-01_JPRB,9.1641E-02_JPRB,8.0224E-02_JPRB,7.2183E-02_JPRB,6.2228E-02_JPRB,5.2131E-02_JPRB,&
+ & 4.1492E-02_JPRB,3.2184E-02_JPRB,6.9511E-01_JPRB/)  
+KAO( :, 2, 6,14) = (/&
+ & 1.2944E-01_JPRB,1.1326E-01_JPRB,1.0170E-01_JPRB,9.1896E-02_JPRB,8.0557E-02_JPRB,6.8664E-02_JPRB,&
+ & 5.6745E-02_JPRB,4.8206E-02_JPRB,8.6732E-01_JPRB/)  
+KAO( :, 3, 6,14) = (/&
+ & 1.5591E-01_JPRB,1.3642E-01_JPRB,1.2581E-01_JPRB,1.1418E-01_JPRB,1.0169E-01_JPRB,8.8193E-02_JPRB,&
+ & 7.5718E-02_JPRB,7.0944E-02_JPRB,1.0534E+00_JPRB/)  
+KAO( :, 4, 6,14) = (/&
+ & 1.8354E-01_JPRB,1.6133E-01_JPRB,1.5134E-01_JPRB,1.3874E-01_JPRB,1.2518E-01_JPRB,1.1115E-01_JPRB,&
+ & 9.9229E-02_JPRB,1.0154E-01_JPRB,1.2543E+00_JPRB/)  
+KAO( :, 5, 6,14) = (/&
+ & 2.1175E-01_JPRB,1.8777E-01_JPRB,1.7853E-01_JPRB,1.6545E-01_JPRB,1.5132E-01_JPRB,1.3778E-01_JPRB,&
+ & 1.2959E-01_JPRB,1.4035E-01_JPRB,1.4668E+00_JPRB/)  
+KAO( :, 1, 7,14) = (/&
+ & 9.8037E-02_JPRB,8.5785E-02_JPRB,7.4031E-02_JPRB,6.5638E-02_JPRB,5.5734E-02_JPRB,4.5971E-02_JPRB,&
+ & 3.6011E-02_JPRB,2.6144E-02_JPRB,1.2159E+00_JPRB/)  
+KAO( :, 2, 7,14) = (/&
+ & 1.1998E-01_JPRB,1.0498E-01_JPRB,9.3637E-02_JPRB,8.4452E-02_JPRB,7.3349E-02_JPRB,6.1893E-02_JPRB,&
+ & 4.9919E-02_JPRB,3.9040E-02_JPRB,1.5511E+00_JPRB/)  
+KAO( :, 3, 7,14) = (/&
+ & 1.4686E-01_JPRB,1.2856E-01_JPRB,1.1785E-01_JPRB,1.0669E-01_JPRB,9.3946E-02_JPRB,8.0872E-02_JPRB,&
+ & 6.7552E-02_JPRB,5.7747E-02_JPRB,1.9129E+00_JPRB/)  
+KAO( :, 4, 7,14) = (/&
+ & 1.7522E-01_JPRB,1.5432E-01_JPRB,1.4422E-01_JPRB,1.3156E-01_JPRB,1.1748E-01_JPRB,1.0312E-01_JPRB,&
+ & 9.0045E-02_JPRB,8.3407E-02_JPRB,2.2944E+00_JPRB/)  
+KAO( :, 5, 7,14) = (/&
+ & 2.0470E-01_JPRB,1.8180E-01_JPRB,1.7230E-01_JPRB,1.5882E-01_JPRB,1.4368E-01_JPRB,1.2923E-01_JPRB,&
+ & 1.1721E-01_JPRB,1.1674E-01_JPRB,2.6936E+00_JPRB/)  
+KAO( :, 1, 8,14) = (/&
+ & 9.9268E-02_JPRB,8.6861E-02_JPRB,7.4453E-02_JPRB,6.4036E-02_JPRB,5.3505E-02_JPRB,4.2319E-02_JPRB,&
+ & 3.1550E-02_JPRB,2.2217E-02_JPRB,2.4996E+00_JPRB/)  
+KAO( :, 2, 8,14) = (/&
+ & 1.1614E-01_JPRB,1.0162E-01_JPRB,8.8779E-02_JPRB,7.8855E-02_JPRB,6.7312E-02_JPRB,5.5689E-02_JPRB,&
+ & 4.4126E-02_JPRB,3.3034E-02_JPRB,3.2562E+00_JPRB/)  
+KAO( :, 3, 8,14) = (/&
+ & 1.3955E-01_JPRB,1.2210E-01_JPRB,1.1063E-01_JPRB,9.9801E-02_JPRB,8.7158E-02_JPRB,7.3984E-02_JPRB,&
+ & 6.0483E-02_JPRB,4.8160E-02_JPRB,4.0870E+00_JPRB/)  
+KAO( :, 4, 8,14) = (/&
+ & 1.6821E-01_JPRB,1.4816E-01_JPRB,1.3755E-01_JPRB,1.2480E-01_JPRB,1.1087E-01_JPRB,9.5535E-02_JPRB,&
+ & 8.1708E-02_JPRB,6.9310E-02_JPRB,4.9903E+00_JPRB/)  
+KAO( :, 5, 8,14) = (/&
+ & 1.9964E-01_JPRB,1.7735E-01_JPRB,1.6653E-01_JPRB,1.5239E-01_JPRB,1.3733E-01_JPRB,1.2121E-01_JPRB,&
+ & 1.0795E-01_JPRB,9.7500E-02_JPRB,5.9489E+00_JPRB/)  
+KAO( :, 1, 9,14) = (/&
+ & 1.0767E-01_JPRB,9.4219E-02_JPRB,8.0760E-02_JPRB,6.7681E-02_JPRB,5.5573E-02_JPRB,4.2663E-02_JPRB,&
+ & 3.0129E-02_JPRB,1.9372E-02_JPRB,9.4494E+00_JPRB/)  
+KAO( :, 2, 9,14) = (/&
+ & 1.1878E-01_JPRB,1.0394E-01_JPRB,8.9411E-02_JPRB,7.7688E-02_JPRB,6.4557E-02_JPRB,5.1682E-02_JPRB,&
+ & 3.8689E-02_JPRB,2.8319E-02_JPRB,1.2605E+01_JPRB/)  
+KAO( :, 3, 9,14) = (/&
+ & 1.3639E-01_JPRB,1.1934E-01_JPRB,1.0569E-01_JPRB,9.3279E-02_JPRB,7.9895E-02_JPRB,6.6582E-02_JPRB,&
+ & 5.3130E-02_JPRB,4.1437E-02_JPRB,1.6195E+01_JPRB/)  
+KAO( :, 4, 9,14) = (/&
+ & 1.6051E-01_JPRB,1.4083E-01_JPRB,1.2883E-01_JPRB,1.1557E-01_JPRB,1.0198E-01_JPRB,8.7219E-02_JPRB,&
+ & 7.3054E-02_JPRB,5.9439E-02_JPRB,2.0162E+01_JPRB/)  
+KAO( :, 5, 9,14) = (/&
+ & 1.9047E-01_JPRB,1.6928E-01_JPRB,1.5797E-01_JPRB,1.4317E-01_JPRB,1.2816E-01_JPRB,1.1220E-01_JPRB,&
+ & 9.8138E-02_JPRB,8.3143E-02_JPRB,2.4370E+01_JPRB/)  
+KAO( :, 1,10,14) = (/&
+ & 1.2399E-01_JPRB,1.0850E-01_JPRB,9.2999E-02_JPRB,7.7504E-02_JPRB,6.2608E-02_JPRB,4.7376E-02_JPRB,&
+ & 3.2192E-02_JPRB,1.8471E-02_JPRB,3.9887E+01_JPRB/)  
+KAO( :, 2,10,14) = (/&
+ & 1.3044E-01_JPRB,1.1413E-01_JPRB,9.7827E-02_JPRB,8.3086E-02_JPRB,6.7807E-02_JPRB,5.2528E-02_JPRB,&
+ & 3.7452E-02_JPRB,2.5677E-02_JPRB,5.4647E+01_JPRB/)  
+KAO( :, 3,10,14) = (/&
+ & 1.4288E-01_JPRB,1.2502E-01_JPRB,1.0881E-01_JPRB,9.4032E-02_JPRB,7.8460E-02_JPRB,6.3126E-02_JPRB,&
+ & 4.8115E-02_JPRB,3.7197E-02_JPRB,7.1742E+01_JPRB/)  
+KAO( :, 4,10,14) = (/&
+ & 1.6124E-01_JPRB,1.4108E-01_JPRB,1.2689E-01_JPRB,1.1135E-01_JPRB,9.5742E-02_JPRB,8.0119E-02_JPRB,&
+ & 6.6079E-02_JPRB,5.3593E-02_JPRB,9.0502E+01_JPRB/)  
+KAO( :, 5,10,14) = (/&
+ & 1.8553E-01_JPRB,1.6386E-01_JPRB,1.5092E-01_JPRB,1.3528E-01_JPRB,1.1973E-01_JPRB,1.0415E-01_JPRB,&
+ & 8.9746E-02_JPRB,7.5568E-02_JPRB,1.1085E+02_JPRB/)  
+KAO( :, 1,11,14) = (/&
+ & 1.4634E-01_JPRB,1.2805E-01_JPRB,1.0976E-01_JPRB,9.1467E-02_JPRB,7.3855E-02_JPRB,5.5821E-02_JPRB,&
+ & 3.7725E-02_JPRB,2.1087E-02_JPRB,6.7956E+01_JPRB/)  
+KAO( :, 2,11,14) = (/&
+ & 1.5280E-01_JPRB,1.3370E-01_JPRB,1.1460E-01_JPRB,9.6711E-02_JPRB,7.8221E-02_JPRB,6.0001E-02_JPRB,&
+ & 4.1942E-02_JPRB,2.7978E-02_JPRB,9.3212E+01_JPRB/)  
+KAO( :, 3,11,14) = (/&
+ & 1.6241E-01_JPRB,1.4212E-01_JPRB,1.2352E-01_JPRB,1.0575E-01_JPRB,8.7369E-02_JPRB,6.9001E-02_JPRB,&
+ & 5.1438E-02_JPRB,4.0090E-02_JPRB,1.2204E+02_JPRB/)  
+KAO( :, 4,11,14) = (/&
+ & 1.7773E-01_JPRB,1.5551E-01_JPRB,1.3890E-01_JPRB,1.2079E-01_JPRB,1.0263E-01_JPRB,8.4231E-02_JPRB,&
+ & 6.9240E-02_JPRB,5.7401E-02_JPRB,1.5432E+02_JPRB/)  
+KAO( :, 5,11,14) = (/&
+ & 1.9855E-01_JPRB,1.7536E-01_JPRB,1.5997E-01_JPRB,1.4235E-01_JPRB,1.2466E-01_JPRB,1.0802E-01_JPRB,&
+ & 9.3905E-02_JPRB,8.0223E-02_JPRB,1.8971E+02_JPRB/)  
+KAO( :, 1,12,14) = (/&
+ & 1.7212E-01_JPRB,1.5061E-01_JPRB,1.2910E-01_JPRB,1.0758E-01_JPRB,8.6852E-02_JPRB,6.5625E-02_JPRB,&
+ & 4.4312E-02_JPRB,2.4340E-02_JPRB,8.4903E+01_JPRB/)  
+KAO( :, 2,12,14) = (/&
+ & 1.7934E-01_JPRB,1.5692E-01_JPRB,1.3450E-01_JPRB,1.1330E-01_JPRB,9.1337E-02_JPRB,6.9634E-02_JPRB,&
+ & 4.7833E-02_JPRB,3.1026E-02_JPRB,1.1639E+02_JPRB/)  
+KAO( :, 3,12,14) = (/&
+ & 1.8728E-01_JPRB,1.6386E-01_JPRB,1.4213E-01_JPRB,1.2054E-01_JPRB,9.8954E-02_JPRB,7.7262E-02_JPRB,&
+ & 5.6412E-02_JPRB,4.3794E-02_JPRB,1.5321E+02_JPRB/)  
+KAO( :, 4,12,14) = (/&
+ & 2.0028E-01_JPRB,1.7525E-01_JPRB,1.5522E-01_JPRB,1.3365E-01_JPRB,1.1228E-01_JPRB,9.0973E-02_JPRB,&
+ & 7.3137E-02_JPRB,6.1836E-02_JPRB,1.9487E+02_JPRB/)  
+KAO( :, 5,12,14) = (/&
+ & 2.1815E-01_JPRB,1.9249E-01_JPRB,1.7398E-01_JPRB,1.5323E-01_JPRB,1.3224E-01_JPRB,1.1343E-01_JPRB,&
+ & 9.8759E-02_JPRB,8.5478E-02_JPRB,2.4055E+02_JPRB/)  
+KAO( :, 1,13,14) = (/&
+ & 2.0214E-01_JPRB,1.7687E-01_JPRB,1.5160E-01_JPRB,1.2634E-01_JPRB,1.0196E-01_JPRB,7.7014E-02_JPRB,&
+ & 5.1962E-02_JPRB,2.8242E-02_JPRB,8.4112E+01_JPRB/)  
+KAO( :, 2,13,14) = (/&
+ & 2.1011E-01_JPRB,1.8385E-01_JPRB,1.5760E-01_JPRB,1.3272E-01_JPRB,1.0696E-01_JPRB,8.1283E-02_JPRB,&
+ & 5.5458E-02_JPRB,3.4895E-02_JPRB,1.1624E+02_JPRB/)  
+KAO( :, 3,13,14) = (/&
+ & 2.1853E-01_JPRB,1.9120E-01_JPRB,1.6551E-01_JPRB,1.3968E-01_JPRB,1.1398E-01_JPRB,8.8112E-02_JPRB,&
+ & 6.3575E-02_JPRB,4.8146E-02_JPRB,1.5368E+02_JPRB/)  
+KAO( :, 4,13,14) = (/&
+ & 2.2961E-01_JPRB,2.0092E-01_JPRB,1.7711E-01_JPRB,1.5169E-01_JPRB,1.2625E-01_JPRB,1.0098E-01_JPRB,&
+ & 7.9581E-02_JPRB,6.7244E-02_JPRB,1.9645E+02_JPRB/)  
+KAO( :, 5,13,14) = (/&
+ & 2.4584E-01_JPRB,2.1666E-01_JPRB,1.9421E-01_JPRB,1.6994E-01_JPRB,1.4516E-01_JPRB,1.2228E-01_JPRB,&
+ & 1.0565E-01_JPRB,9.1741E-02_JPRB,2.4440E+02_JPRB/)  
+KAO( :, 1, 1,15) = (/&
+ & 1.6714E-01_JPRB,1.4623E-01_JPRB,1.2535E-01_JPRB,1.1978E-01_JPRB,1.3700E-01_JPRB,1.6925E-01_JPRB,&
+ & 2.0052E-01_JPRB,2.2511E-01_JPRB,2.6590E-01_JPRB/)  
+KAO( :, 2, 1,15) = (/&
+ & 1.9315E-01_JPRB,1.6902E-01_JPRB,1.4490E-01_JPRB,1.5051E-01_JPRB,1.8304E-01_JPRB,2.2712E-01_JPRB,&
+ & 2.6888E-01_JPRB,3.0220E-01_JPRB,3.5680E-01_JPRB/)  
+KAO( :, 3, 1,15) = (/&
+ & 2.1967E-01_JPRB,1.9223E-01_JPRB,1.6933E-01_JPRB,1.8733E-01_JPRB,2.3841E-01_JPRB,2.9577E-01_JPRB,&
+ & 3.5003E-01_JPRB,3.9291E-01_JPRB,4.6433E-01_JPRB/)  
+KAO( :, 4, 1,15) = (/&
+ & 2.4620E-01_JPRB,2.1544E-01_JPRB,1.9690E-01_JPRB,2.3005E-01_JPRB,3.0239E-01_JPRB,3.7520E-01_JPRB,&
+ & 4.4404E-01_JPRB,4.9769E-01_JPRB,5.8881E-01_JPRB/)  
+KAO( :, 5, 1,15) = (/&
+ & 2.7258E-01_JPRB,2.3851E-01_JPRB,2.2655E-01_JPRB,2.8238E-01_JPRB,3.7464E-01_JPRB,4.6513E-01_JPRB,&
+ & 5.5029E-01_JPRB,6.1683E-01_JPRB,7.3011E-01_JPRB/)  
+KAO( :, 1, 2,15) = (/&
+ & 1.8366E-01_JPRB,1.6071E-01_JPRB,1.3776E-01_JPRB,1.2787E-01_JPRB,1.3633E-01_JPRB,1.6291E-01_JPRB,&
+ & 1.9304E-01_JPRB,2.1749E-01_JPRB,2.5915E-01_JPRB/)  
+KAO( :, 2, 2,15) = (/&
+ & 2.1410E-01_JPRB,1.8735E-01_JPRB,1.6059E-01_JPRB,1.5940E-01_JPRB,1.8012E-01_JPRB,2.2284E-01_JPRB,&
+ & 2.6404E-01_JPRB,2.9719E-01_JPRB,3.5437E-01_JPRB/)  
+KAO( :, 3, 2,15) = (/&
+ & 2.4518E-01_JPRB,2.1455E-01_JPRB,1.8756E-01_JPRB,1.9671E-01_JPRB,2.3732E-01_JPRB,2.9467E-01_JPRB,&
+ & 3.4914E-01_JPRB,3.9288E-01_JPRB,4.6863E-01_JPRB/)  
+KAO( :, 4, 2,15) = (/&
+ & 2.7631E-01_JPRB,2.4179E-01_JPRB,2.1947E-01_JPRB,2.3962E-01_JPRB,3.0475E-01_JPRB,3.7844E-01_JPRB,&
+ & 4.4844E-01_JPRB,5.0450E-01_JPRB,6.0205E-01_JPRB/)  
+KAO( :, 5, 2,15) = (/&
+ & 3.0712E-01_JPRB,2.6878E-01_JPRB,2.5148E-01_JPRB,2.9094E-01_JPRB,3.8157E-01_JPRB,4.7390E-01_JPRB,&
+ & 5.6159E-01_JPRB,6.3185E-01_JPRB,7.5391E-01_JPRB/)  
+KAO( :, 1, 3,15) = (/&
+ & 1.9381E-01_JPRB,1.6957E-01_JPRB,1.4535E-01_JPRB,1.3089E-01_JPRB,1.3034E-01_JPRB,1.4478E-01_JPRB,&
+ & 1.7182E-01_JPRB,1.9411E-01_JPRB,2.5084E-01_JPRB/)  
+KAO( :, 2, 3,15) = (/&
+ & 2.2879E-01_JPRB,2.0020E-01_JPRB,1.7161E-01_JPRB,1.6253E-01_JPRB,1.7117E-01_JPRB,2.0325E-01_JPRB,&
+ & 2.4118E-01_JPRB,2.7244E-01_JPRB,3.3342E-01_JPRB/)  
+KAO( :, 3, 3,15) = (/&
+ & 2.6449E-01_JPRB,2.3152E-01_JPRB,2.0076E-01_JPRB,1.9976E-01_JPRB,2.2310E-01_JPRB,2.7442E-01_JPRB,&
+ & 3.2567E-01_JPRB,3.6802E-01_JPRB,4.4181E-01_JPRB/)  
+KAO( :, 4, 3,15) = (/&
+ & 3.0062E-01_JPRB,2.6305E-01_JPRB,2.3583E-01_JPRB,2.4242E-01_JPRB,2.8858E-01_JPRB,3.5854E-01_JPRB,&
+ & 4.2563E-01_JPRB,4.8116E-01_JPRB,5.7642E-01_JPRB/)  
+KAO( :, 5, 3,15) = (/&
+ & 3.3647E-01_JPRB,2.9433E-01_JPRB,2.7280E-01_JPRB,2.9278E-01_JPRB,3.6645E-01_JPRB,4.5559E-01_JPRB,&
+ & 5.4090E-01_JPRB,6.1169E-01_JPRB,7.3212E-01_JPRB/)  
+KAO( :, 1, 4,15) = (/&
+ & 1.9999E-01_JPRB,1.7501E-01_JPRB,1.5001E-01_JPRB,1.3105E-01_JPRB,1.2399E-01_JPRB,1.2689E-01_JPRB,&
+ & 1.4635E-01_JPRB,1.6609E-01_JPRB,3.8961E-01_JPRB/)  
+KAO( :, 2, 4,15) = (/&
+ & 2.3934E-01_JPRB,2.0943E-01_JPRB,1.7951E-01_JPRB,1.6550E-01_JPRB,1.6246E-01_JPRB,1.7858E-01_JPRB,&
+ & 2.1156E-01_JPRB,2.4017E-01_JPRB,4.8945E-01_JPRB/)  
+KAO( :, 3, 4,15) = (/&
+ & 2.7991E-01_JPRB,2.4495E-01_JPRB,2.1142E-01_JPRB,2.0298E-01_JPRB,2.1064E-01_JPRB,2.4602E-01_JPRB,&
+ & 2.9261E-01_JPRB,3.3237E-01_JPRB,5.9861E-01_JPRB/)  
+KAO( :, 4, 4,15) = (/&
+ & 3.2106E-01_JPRB,2.8093E-01_JPRB,2.4927E-01_JPRB,2.4578E-01_JPRB,2.7114E-01_JPRB,3.2797E-01_JPRB,&
+ & 3.9010E-01_JPRB,4.4342E-01_JPRB,7.1678E-01_JPRB/)  
+KAO( :, 5, 4,15) = (/&
+ & 3.6208E-01_JPRB,3.1681E-01_JPRB,2.9211E-01_JPRB,2.9449E-01_JPRB,3.4380E-01_JPRB,4.2351E-01_JPRB,&
+ & 5.0405E-01_JPRB,5.7325E-01_JPRB,8.4831E-01_JPRB/)  
+KAO( :, 1, 5,15) = (/&
+ & 2.0321E-01_JPRB,1.7781E-01_JPRB,1.5241E-01_JPRB,1.3060E-01_JPRB,1.1953E-01_JPRB,1.1366E-01_JPRB,&
+ & 1.2139E-01_JPRB,1.3841E-01_JPRB,7.6737E-01_JPRB/)  
+KAO( :, 2, 5,15) = (/&
+ & 2.4681E-01_JPRB,2.1596E-01_JPRB,1.8512E-01_JPRB,1.6773E-01_JPRB,1.5630E-01_JPRB,1.5939E-01_JPRB,&
+ & 1.8094E-01_JPRB,2.0654E-01_JPRB,9.3237E-01_JPRB/)  
+KAO( :, 3, 5,15) = (/&
+ & 2.9225E-01_JPRB,2.5571E-01_JPRB,2.2020E-01_JPRB,2.0776E-01_JPRB,2.0115E-01_JPRB,2.1929E-01_JPRB,&
+ & 2.5668E-01_JPRB,2.9327E-01_JPRB,1.1037E+00_JPRB/)  
+KAO( :, 4, 5,15) = (/&
+ & 3.3924E-01_JPRB,2.9689E-01_JPRB,2.6138E-01_JPRB,2.5151E-01_JPRB,2.5830E-01_JPRB,2.9435E-01_JPRB,&
+ & 3.4948E-01_JPRB,3.9959E-01_JPRB,1.2806E+00_JPRB/)  
+KAO( :, 5, 5,15) = (/&
+ & 3.8698E-01_JPRB,3.3860E-01_JPRB,3.0762E-01_JPRB,3.0044E-01_JPRB,3.2724E-01_JPRB,3.8517E-01_JPRB,&
+ & 4.5934E-01_JPRB,5.2570E-01_JPRB,1.4803E+00_JPRB/)  
+KAO( :, 1, 6,15) = (/&
+ & 2.0167E-01_JPRB,1.7647E-01_JPRB,1.5126E-01_JPRB,1.2807E-01_JPRB,1.1544E-01_JPRB,1.0229E-01_JPRB,&
+ & 9.9864E-02_JPRB,1.1026E-01_JPRB,1.4089E+00_JPRB/)  
+KAO( :, 2, 6,15) = (/&
+ & 2.4970E-01_JPRB,2.1848E-01_JPRB,1.8731E-01_JPRB,1.6569E-01_JPRB,1.5115E-01_JPRB,1.4241E-01_JPRB,&
+ & 1.4999E-01_JPRB,1.7053E-01_JPRB,1.7402E+00_JPRB/)  
+KAO( :, 3, 6,15) = (/&
+ & 3.0094E-01_JPRB,2.6336E-01_JPRB,2.2581E-01_JPRB,2.1051E-01_JPRB,1.9387E-01_JPRB,1.9632E-01_JPRB,&
+ & 2.1699E-01_JPRB,2.4938E-01_JPRB,2.0912E+00_JPRB/)  
+KAO( :, 4, 6,15) = (/&
+ & 3.5441E-01_JPRB,3.1006E-01_JPRB,2.6999E-01_JPRB,2.5637E-01_JPRB,2.4732E-01_JPRB,2.6431E-01_JPRB,&
+ & 3.0280E-01_JPRB,3.4805E-01_JPRB,2.4589E+00_JPRB/)  
+KAO( :, 5, 6,15) = (/&
+ & 4.0878E-01_JPRB,3.5772E-01_JPRB,3.1991E-01_JPRB,3.0644E-01_JPRB,3.1239E-01_JPRB,3.4703E-01_JPRB,&
+ & 4.0741E-01_JPRB,4.6767E-01_JPRB,2.8357E+00_JPRB/)  
+KAO( :, 1, 7,15) = (/&
+ & 1.9961E-01_JPRB,1.7465E-01_JPRB,1.4970E-01_JPRB,1.2517E-01_JPRB,1.1019E-01_JPRB,9.4432E-02_JPRB,&
+ & 8.3552E-02_JPRB,8.4867E-02_JPRB,2.6743E+00_JPRB/)  
+KAO( :, 2, 7,15) = (/&
+ & 2.5271E-01_JPRB,2.2112E-01_JPRB,1.8951E-01_JPRB,1.6349E-01_JPRB,1.4808E-01_JPRB,1.3037E-01_JPRB,&
+ & 1.2620E-01_JPRB,1.3661E-01_JPRB,3.3775E+00_JPRB/)  
+KAO( :, 3, 7,15) = (/&
+ & 3.0993E-01_JPRB,2.7118E-01_JPRB,2.3244E-01_JPRB,2.1005E-01_JPRB,1.9021E-01_JPRB,1.7858E-01_JPRB,&
+ & 1.8396E-01_JPRB,2.0656E-01_JPRB,4.1391E+00_JPRB/)  
+KAO( :, 4, 7,15) = (/&
+ & 3.7010E-01_JPRB,3.2384E-01_JPRB,2.8021E-01_JPRB,2.6259E-01_JPRB,2.4156E-01_JPRB,2.4022E-01_JPRB,&
+ & 2.5897E-01_JPRB,2.9714E-01_JPRB,4.9411E+00_JPRB/)  
+KAO( :, 5, 7,15) = (/&
+ & 4.3194E-01_JPRB,3.7799E-01_JPRB,3.3448E-01_JPRB,3.1568E-01_JPRB,3.0414E-01_JPRB,3.1604E-01_JPRB,&
+ & 3.5629E-01_JPRB,4.0998E-01_JPRB,5.7688E+00_JPRB/)  
+KAO( :, 1, 8,15) = (/&
+ & 1.9933E-01_JPRB,1.7442E-01_JPRB,1.4950E-01_JPRB,1.2458E-01_JPRB,1.0537E-01_JPRB,8.9910E-02_JPRB,&
+ & 7.2635E-02_JPRB,6.5335E-02_JPRB,6.0216E+00_JPRB/)  
+KAO( :, 2, 8,15) = (/&
+ & 2.5812E-01_JPRB,2.2586E-01_JPRB,1.9358E-01_JPRB,1.6410E-01_JPRB,1.4589E-01_JPRB,1.2373E-01_JPRB,&
+ & 1.0885E-01_JPRB,1.0727E-01_JPRB,7.7945E+00_JPRB/)  
+KAO( :, 3, 8,15) = (/&
+ & 3.2225E-01_JPRB,2.8198E-01_JPRB,2.4170E-01_JPRB,2.1259E-01_JPRB,1.9127E-01_JPRB,1.6827E-01_JPRB,&
+ & 1.5878E-01_JPRB,1.6851E-01_JPRB,9.7347E+00_JPRB/)  
+KAO( :, 4, 8,15) = (/&
+ & 3.9033E-01_JPRB,3.4151E-01_JPRB,2.9429E-01_JPRB,2.7000E-01_JPRB,2.4193E-01_JPRB,2.2526E-01_JPRB,&
+ & 2.2474E-01_JPRB,2.5040E-01_JPRB,1.1796E+01_JPRB/)  
+KAO( :, 5, 8,15) = (/&
+ & 4.6081E-01_JPRB,4.0323E-01_JPRB,3.5398E-01_JPRB,3.3209E-01_JPRB,3.0343E-01_JPRB,2.9566E-01_JPRB,&
+ & 3.1093E-01_JPRB,3.5490E-01_JPRB,1.3934E+01_JPRB/)  
+KAO( :, 1, 9,15) = (/&
+ & 1.9412E-01_JPRB,1.6985E-01_JPRB,1.4559E-01_JPRB,1.2132E-01_JPRB,1.0003E-01_JPRB,8.3920E-02_JPRB,&
+ & 6.4680E-02_JPRB,5.0884E-02_JPRB,2.5202E+01_JPRB/)  
+KAO( :, 2, 9,15) = (/&
+ & 2.5742E-01_JPRB,2.2525E-01_JPRB,1.9306E-01_JPRB,1.6223E-01_JPRB,1.4019E-01_JPRB,1.1848E-01_JPRB,&
+ & 9.6308E-02_JPRB,8.4787E-02_JPRB,3.3443E+01_JPRB/)  
+KAO( :, 3, 9,15) = (/&
+ & 3.2748E-01_JPRB,2.8656E-01_JPRB,2.4562E-01_JPRB,2.1272E-01_JPRB,1.9002E-01_JPRB,1.6032E-01_JPRB,&
+ & 1.4014E-01_JPRB,1.3516E-01_JPRB,4.2589E+01_JPRB/)  
+KAO( :, 4, 9,15) = (/&
+ & 4.0257E-01_JPRB,3.5230E-01_JPRB,3.0305E-01_JPRB,2.7255E-01_JPRB,2.4419E-01_JPRB,2.1398E-01_JPRB,&
+ & 1.9809E-01_JPRB,2.0651E-01_JPRB,5.2403E+01_JPRB/)  
+KAO( :, 5, 9,15) = (/&
+ & 4.8160E-01_JPRB,4.2145E-01_JPRB,3.6810E-01_JPRB,3.4131E-01_JPRB,3.0598E-01_JPRB,2.8022E-01_JPRB,&
+ & 2.7440E-01_JPRB,3.0100E-01_JPRB,6.2821E+01_JPRB/)  
+KAO( :, 1,10,15) = (/&
+ & 1.9076E-01_JPRB,1.6691E-01_JPRB,1.4306E-01_JPRB,1.1922E-01_JPRB,9.6624E-02_JPRB,7.8836E-02_JPRB,&
+ & 6.0420E-02_JPRB,4.2402E-02_JPRB,1.1849E+02_JPRB/)  
+KAO( :, 2,10,15) = (/&
+ & 2.5693E-01_JPRB,2.2481E-01_JPRB,1.9273E-01_JPRB,1.6146E-01_JPRB,1.3713E-01_JPRB,1.1570E-01_JPRB,&
+ & 8.9288E-02_JPRB,7.0550E-02_JPRB,1.6078E+02_JPRB/)  
+KAO( :, 3,10,15) = (/&
+ & 3.3240E-01_JPRB,2.9084E-01_JPRB,2.4929E-01_JPRB,2.1443E-01_JPRB,1.8866E-01_JPRB,1.5859E-01_JPRB,&
+ & 1.2931E-01_JPRB,1.1318E-01_JPRB,2.0842E+02_JPRB/)  
+KAO( :, 4,10,15) = (/&
+ & 4.1554E-01_JPRB,3.6358E-01_JPRB,3.1223E-01_JPRB,2.7723E-01_JPRB,2.4827E-01_JPRB,2.1112E-01_JPRB,&
+ & 1.8236E-01_JPRB,1.7494E-01_JPRB,2.6109E+02_JPRB/)  
+KAO( :, 5,10,15) = (/&
+ & 5.0485E-01_JPRB,4.4183E-01_JPRB,3.8382E-01_JPRB,3.4997E-01_JPRB,3.1509E-01_JPRB,2.7563E-01_JPRB,&
+ & 2.5258E-01_JPRB,2.5852E-01_JPRB,3.1766E+02_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB13:PART10',1,ZHOOK_HANDLE)
+END SUBROUTINE PART10
+
+
+SUBROUTINE PART11
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB13:PART11',0,ZHOOK_HANDLE)
+
+
+KAO( :, 1,11,15) = (/&
+ & 2.1844E-01_JPRB,1.9116E-01_JPRB,1.6385E-01_JPRB,1.3654E-01_JPRB,1.1043E-01_JPRB,8.9314E-02_JPRB,&
+ & 6.8138E-02_JPRB,4.5935E-02_JPRB,2.2340E+02_JPRB/)  
+KAO( :, 2,11,15) = (/&
+ & 2.8726E-01_JPRB,2.5136E-01_JPRB,2.1545E-01_JPRB,1.8158E-01_JPRB,1.5471E-01_JPRB,1.3017E-01_JPRB,&
+ & 9.9967E-02_JPRB,7.4771E-02_JPRB,3.0363E+02_JPRB/)  
+KAO( :, 3,11,15) = (/&
+ & 3.7321E-01_JPRB,3.2655E-01_JPRB,2.7990E-01_JPRB,2.4162E-01_JPRB,2.1196E-01_JPRB,1.7932E-01_JPRB,&
+ & 1.4260E-01_JPRB,1.1849E-01_JPRB,3.9534E+02_JPRB/)  
+KAO( :, 4,11,15) = (/&
+ & 4.6764E-01_JPRB,4.0919E-01_JPRB,3.5259E-01_JPRB,3.1283E-01_JPRB,2.7919E-01_JPRB,2.3760E-01_JPRB,&
+ & 1.9841E-01_JPRB,1.8073E-01_JPRB,4.9612E+02_JPRB/)  
+KAO( :, 5,11,15) = (/&
+ & 5.6847E-01_JPRB,4.9745E-01_JPRB,4.3470E-01_JPRB,3.9501E-01_JPRB,3.5535E-01_JPRB,3.0691E-01_JPRB,&
+ & 2.7182E-01_JPRB,2.6544E-01_JPRB,6.0376E+02_JPRB/)  
+KAO( :, 1,12,15) = (/&
+ & 2.5386E-01_JPRB,2.2213E-01_JPRB,1.9039E-01_JPRB,1.5866E-01_JPRB,1.2803E-01_JPRB,1.0260E-01_JPRB,&
+ & 7.7411E-02_JPRB,5.0505E-02_JPRB,3.1181E+02_JPRB/)  
+KAO( :, 2,12,15) = (/&
+ & 3.2584E-01_JPRB,2.8511E-01_JPRB,2.4435E-01_JPRB,2.0586E-01_JPRB,1.7487E-01_JPRB,1.4640E-01_JPRB,&
+ & 1.1295E-01_JPRB,8.0206E-02_JPRB,4.2527E+02_JPRB/)  
+KAO( :, 3,12,15) = (/&
+ & 4.2185E-01_JPRB,3.6913E-01_JPRB,3.1659E-01_JPRB,2.7453E-01_JPRB,2.3949E-01_JPRB,2.0235E-01_JPRB,&
+ & 1.5885E-01_JPRB,1.2527E-01_JPRB,5.5386E+02_JPRB/)  
+KAO( :, 4,12,15) = (/&
+ & 5.2872E-01_JPRB,4.6263E-01_JPRB,4.0035E-01_JPRB,3.5526E-01_JPRB,3.1589E-01_JPRB,2.6854E-01_JPRB,&
+ & 2.1892E-01_JPRB,1.8866E-01_JPRB,6.9524E+02_JPRB/)  
+KAO( :, 5,12,15) = (/&
+ & 6.4364E-01_JPRB,5.6320E-01_JPRB,4.9357E-01_JPRB,4.4708E-01_JPRB,4.0237E-01_JPRB,3.4474E-01_JPRB,&
+ & 2.9649E-01_JPRB,2.7537E-01_JPRB,8.4735E+02_JPRB/)  
+KAO( :, 1,13,15) = (/&
+ & 3.0271E-01_JPRB,2.6486E-01_JPRB,2.2703E-01_JPRB,1.8919E-01_JPRB,1.5231E-01_JPRB,1.2084E-01_JPRB,&
+ & 9.0270E-02_JPRB,5.7320E-02_JPRB,3.4698E+02_JPRB/)  
+KAO( :, 2,13,15) = (/&
+ & 3.8384E-01_JPRB,3.3586E-01_JPRB,2.8793E-01_JPRB,2.4185E-01_JPRB,2.0369E-01_JPRB,1.6894E-01_JPRB,&
+ & 1.3012E-01_JPRB,8.8518E-02_JPRB,4.7325E+02_JPRB/)  
+KAO( :, 3,13,15) = (/&
+ & 4.9165E-01_JPRB,4.3019E-01_JPRB,3.6920E-01_JPRB,3.1973E-01_JPRB,2.7695E-01_JPRB,2.3380E-01_JPRB,&
+ & 1.8192E-01_JPRB,1.3513E-01_JPRB,6.1726E+02_JPRB/)  
+KAO( :, 4,13,15) = (/&
+ & 6.1738E-01_JPRB,5.4020E-01_JPRB,4.6750E-01_JPRB,4.1230E-01_JPRB,3.6547E-01_JPRB,3.1024E-01_JPRB,&
+ & 2.4776E-01_JPRB,2.0059E-01_JPRB,7.7596E+02_JPRB/)  
+KAO( :, 5,13,15) = (/&
+ & 7.5168E-01_JPRB,6.5770E-01_JPRB,5.7644E-01_JPRB,5.1768E-01_JPRB,4.6514E-01_JPRB,3.9851E-01_JPRB,&
+ & 3.3091E-01_JPRB,2.9046E-01_JPRB,9.4535E+02_JPRB/)  
+KAO( :, 1, 1,16) = (/&
+ & 1.8794E-01_JPRB,1.6446E-01_JPRB,1.4098E-01_JPRB,1.4453E-01_JPRB,1.9112E-01_JPRB,2.3568E-01_JPRB,&
+ & 2.7559E-01_JPRB,2.9928E-01_JPRB,3.6389E-01_JPRB/)  
+KAO( :, 2, 1,16) = (/&
+ & 2.1699E-01_JPRB,1.8988E-01_JPRB,1.6277E-01_JPRB,1.9700E-01_JPRB,2.6048E-01_JPRB,3.2128E-01_JPRB,&
+ & 3.7575E-01_JPRB,4.0820E-01_JPRB,4.9613E-01_JPRB/)  
+KAO( :, 3, 1,16) = (/&
+ & 2.4618E-01_JPRB,2.1543E-01_JPRB,1.8468E-01_JPRB,2.5950E-01_JPRB,3.4314E-01_JPRB,4.2321E-01_JPRB,&
+ & 4.9501E-01_JPRB,5.3795E-01_JPRB,6.5375E-01_JPRB/)  
+KAO( :, 4, 1,16) = (/&
+ & 2.7517E-01_JPRB,2.4080E-01_JPRB,2.2265E-01_JPRB,3.3206E-01_JPRB,4.3916E-01_JPRB,5.4174E-01_JPRB,&
+ & 6.3374E-01_JPRB,6.8883E-01_JPRB,8.3685E-01_JPRB/)  
+KAO( :, 5, 1,16) = (/&
+ & 3.0356E-01_JPRB,2.6563E-01_JPRB,2.7796E-01_JPRB,4.1454E-01_JPRB,5.4825E-01_JPRB,6.7630E-01_JPRB,&
+ & 7.9114E-01_JPRB,8.6022E-01_JPRB,1.0450E+00_JPRB/)  
+KAO( :, 1, 2,16) = (/&
+ & 2.1263E-01_JPRB,1.8604E-01_JPRB,1.5947E-01_JPRB,1.5196E-01_JPRB,2.0093E-01_JPRB,2.4784E-01_JPRB,&
+ & 2.8986E-01_JPRB,3.1499E-01_JPRB,3.9172E-01_JPRB/)  
+KAO( :, 2, 2,16) = (/&
+ & 2.4750E-01_JPRB,2.1657E-01_JPRB,1.8564E-01_JPRB,2.1030E-01_JPRB,2.7808E-01_JPRB,3.4296E-01_JPRB,&
+ & 4.0127E-01_JPRB,4.3611E-01_JPRB,5.4225E-01_JPRB/)  
+KAO( :, 3, 2,16) = (/&
+ & 2.8278E-01_JPRB,2.4744E-01_JPRB,2.1211E-01_JPRB,2.8057E-01_JPRB,3.7097E-01_JPRB,4.5769E-01_JPRB,&
+ & 5.3545E-01_JPRB,5.8223E-01_JPRB,7.2368E-01_JPRB/)  
+KAO( :, 4, 2,16) = (/&
+ & 3.1792E-01_JPRB,2.7821E-01_JPRB,2.4340E-01_JPRB,3.6301E-01_JPRB,4.8000E-01_JPRB,5.9222E-01_JPRB,&
+ & 6.9274E-01_JPRB,7.5351E-01_JPRB,9.3616E-01_JPRB/)  
+KAO( :, 5, 2,16) = (/&
+ & 3.5252E-01_JPRB,3.0850E-01_JPRB,3.0650E-01_JPRB,4.5727E-01_JPRB,6.0467E-01_JPRB,7.4622E-01_JPRB,&
+ & 8.7306E-01_JPRB,9.4984E-01_JPRB,1.1794E+00_JPRB/)  
+KAO( :, 1, 3,16) = (/&
+ & 2.3237E-01_JPRB,2.0331E-01_JPRB,1.7427E-01_JPRB,1.4795E-01_JPRB,1.9535E-01_JPRB,2.4099E-01_JPRB,&
+ & 2.8188E-01_JPRB,3.0650E-01_JPRB,3.8991E-01_JPRB/)  
+KAO( :, 2, 3,16) = (/&
+ & 2.7395E-01_JPRB,2.3972E-01_JPRB,2.0548E-01_JPRB,2.0945E-01_JPRB,2.7700E-01_JPRB,3.4180E-01_JPRB,&
+ & 3.9994E-01_JPRB,4.3491E-01_JPRB,5.5290E-01_JPRB/)  
+KAO( :, 3, 3,16) = (/&
+ & 3.1641E-01_JPRB,2.7688E-01_JPRB,2.3734E-01_JPRB,2.8529E-01_JPRB,3.7722E-01_JPRB,4.6547E-01_JPRB,&
+ & 5.4473E-01_JPRB,5.9265E-01_JPRB,7.5290E-01_JPRB/)  
+KAO( :, 4, 3,16) = (/&
+ & 3.5913E-01_JPRB,3.1425E-01_JPRB,2.6936E-01_JPRB,3.7538E-01_JPRB,4.9654E-01_JPRB,6.1283E-01_JPRB,&
+ & 7.1724E-01_JPRB,7.8067E-01_JPRB,9.9115E-01_JPRB/)  
+KAO( :, 5, 3,16) = (/&
+ & 4.0136E-01_JPRB,3.5124E-01_JPRB,3.2170E-01_JPRB,4.7982E-01_JPRB,6.3476E-01_JPRB,7.8330E-01_JPRB,&
+ & 9.1698E-01_JPRB,9.9858E-01_JPRB,1.2670E+00_JPRB/)  
+KAO( :, 1, 4,16) = (/&
+ & 2.4989E-01_JPRB,2.1869E-01_JPRB,1.8745E-01_JPRB,1.5621E-01_JPRB,1.8314E-01_JPRB,2.2578E-01_JPRB,&
+ & 2.6437E-01_JPRB,2.8743E-01_JPRB,4.8014E-01_JPRB/)  
+KAO( :, 2, 4,16) = (/&
+ & 2.9922E-01_JPRB,2.6183E-01_JPRB,2.2443E-01_JPRB,2.0216E-01_JPRB,2.6741E-01_JPRB,3.2989E-01_JPRB,&
+ & 3.8624E-01_JPRB,4.2053E-01_JPRB,5.7494E-01_JPRB/)  
+KAO( :, 3, 4,16) = (/&
+ & 3.5007E-01_JPRB,3.0634E-01_JPRB,2.6259E-01_JPRB,2.8203E-01_JPRB,3.7315E-01_JPRB,4.6045E-01_JPRB,&
+ & 5.3900E-01_JPRB,5.8709E-01_JPRB,7.5343E-01_JPRB/)  
+KAO( :, 4, 4,16) = (/&
+ & 4.0160E-01_JPRB,3.5141E-01_JPRB,3.0118E-01_JPRB,3.7881E-01_JPRB,5.0127E-01_JPRB,6.1841E-01_JPRB,&
+ & 7.2420E-01_JPRB,7.8857E-01_JPRB,1.0118E+00_JPRB/)  
+KAO( :, 5, 4,16) = (/&
+ & 4.5313E-01_JPRB,3.9646E-01_JPRB,3.4036E-01_JPRB,4.9269E-01_JPRB,6.5192E-01_JPRB,8.0453E-01_JPRB,&
+ & 9.4219E-01_JPRB,1.0271E+00_JPRB,1.3148E+00_JPRB/)  
+KAO( :, 1, 5,16) = (/&
+ & 2.6693E-01_JPRB,2.3353E-01_JPRB,2.0017E-01_JPRB,1.6678E-01_JPRB,1.6870E-01_JPRB,2.0825E-01_JPRB,&
+ & 2.4377E-01_JPRB,2.6562E-01_JPRB,1.0097E+00_JPRB/)  
+KAO( :, 2, 5,16) = (/&
+ & 3.2490E-01_JPRB,2.8429E-01_JPRB,2.4362E-01_JPRB,2.0306E-01_JPRB,2.5435E-01_JPRB,3.1387E-01_JPRB,&
+ & 3.6729E-01_JPRB,4.0072E-01_JPRB,1.2293E+00_JPRB/)  
+KAO( :, 3, 5,16) = (/&
+ & 3.8533E-01_JPRB,3.3720E-01_JPRB,2.8903E-01_JPRB,2.7540E-01_JPRB,3.6433E-01_JPRB,4.4941E-01_JPRB,&
+ & 5.2674E-01_JPRB,5.7460E-01_JPRB,1.4580E+00_JPRB/)  
+KAO( :, 4, 5,16) = (/&
+ & 4.4720E-01_JPRB,3.9129E-01_JPRB,3.3549E-01_JPRB,3.7808E-01_JPRB,5.0020E-01_JPRB,6.1752E-01_JPRB,&
+ & 7.2292E-01_JPRB,7.8975E-01_JPRB,1.6925E+00_JPRB/)  
+KAO( :, 5, 5,16) = (/&
+ & 5.0948E-01_JPRB,4.4592E-01_JPRB,3.8223E-01_JPRB,5.0057E-01_JPRB,6.6242E-01_JPRB,8.1818E-01_JPRB,&
+ & 9.5865E-01_JPRB,1.0467E+00_JPRB,1.9289E+00_JPRB/)  
+KAO( :, 1, 6,16) = (/&
+ & 2.8083E-01_JPRB,2.4573E-01_JPRB,2.1063E-01_JPRB,1.7555E-01_JPRB,1.5015E-01_JPRB,1.8516E-01_JPRB,&
+ & 2.1690E-01_JPRB,2.3675E-01_JPRB,1.9657E+00_JPRB/)  
+KAO( :, 2, 6,16) = (/&
+ & 3.4835E-01_JPRB,3.0480E-01_JPRB,2.6132E-01_JPRB,2.1777E-01_JPRB,2.3453E-01_JPRB,2.8980E-01_JPRB,&
+ & 3.3958E-01_JPRB,3.7078E-01_JPRB,2.4391E+00_JPRB/)  
+KAO( :, 3, 6,16) = (/&
+ & 4.1976E-01_JPRB,3.6729E-01_JPRB,3.1483E-01_JPRB,2.6738E-01_JPRB,3.4635E-01_JPRB,4.2784E-01_JPRB,&
+ & 5.0150E-01_JPRB,5.4802E-01_JPRB,2.9392E+00_JPRB/)  
+KAO( :, 4, 6,16) = (/&
+ & 4.9356E-01_JPRB,4.3188E-01_JPRB,3.7019E-01_JPRB,3.6832E-01_JPRB,4.8722E-01_JPRB,6.0225E-01_JPRB,&
+ & 7.0615E-01_JPRB,7.7190E-01_JPRB,3.4563E+00_JPRB/)  
+KAO( :, 5, 6,16) = (/&
+ & 5.6851E-01_JPRB,4.9738E-01_JPRB,4.2634E-01_JPRB,4.9804E-01_JPRB,6.5918E-01_JPRB,8.1420E-01_JPRB,&
+ & 9.5511E-01_JPRB,1.0452E+00_JPRB,3.9808E+00_JPRB/)  
+KAO( :, 1, 7,16) = (/&
+ & 2.9602E-01_JPRB,2.5901E-01_JPRB,2.2201E-01_JPRB,1.8497E-01_JPRB,1.4799E-01_JPRB,1.6095E-01_JPRB,&
+ & 1.8877E-01_JPRB,2.0662E-01_JPRB,3.9956E+00_JPRB/)  
+KAO( :, 2, 7,16) = (/&
+ & 3.7489E-01_JPRB,3.2803E-01_JPRB,2.8110E-01_JPRB,2.3429E-01_JPRB,2.1216E-01_JPRB,2.6198E-01_JPRB,&
+ & 3.0739E-01_JPRB,3.3690E-01_JPRB,5.0612E+00_JPRB/)  
+KAO( :, 3, 7,16) = (/&
+ & 4.5934E-01_JPRB,4.0186E-01_JPRB,3.4446E-01_JPRB,2.8709E-01_JPRB,3.2355E-01_JPRB,3.9962E-01_JPRB,&
+ & 4.6900E-01_JPRB,5.1413E-01_JPRB,6.2014E+00_JPRB/)  
+KAO( :, 4, 7,16) = (/&
+ & 5.4772E-01_JPRB,4.7919E-01_JPRB,4.1082E-01_JPRB,3.5907E-01_JPRB,4.6765E-01_JPRB,5.7781E-01_JPRB,&
+ & 6.7844E-01_JPRB,7.4475E-01_JPRB,7.3945E+00_JPRB/)  
+KAO( :, 5, 7,16) = (/&
+ & 6.3818E-01_JPRB,5.5843E-01_JPRB,4.7875E-01_JPRB,4.8820E-01_JPRB,6.4638E-01_JPRB,7.9944E-01_JPRB,&
+ & 9.3819E-01_JPRB,1.0310E+00_JPRB,8.6187E+00_JPRB/)  
+KAO( :, 1, 8,16) = (/&
+ & 3.1643E-01_JPRB,2.7689E-01_JPRB,2.3733E-01_JPRB,1.9778E-01_JPRB,1.5822E-01_JPRB,1.3698E-01_JPRB,&
+ & 1.6092E-01_JPRB,1.7692E-01_JPRB,9.6744E+00_JPRB/)  
+KAO( :, 2, 8,16) = (/&
+ & 4.0971E-01_JPRB,3.5849E-01_JPRB,3.0728E-01_JPRB,2.5607E-01_JPRB,2.0550E-01_JPRB,2.3311E-01_JPRB,&
+ & 2.7394E-01_JPRB,3.0140E-01_JPRB,1.2526E+01_JPRB/)  
+KAO( :, 3, 8,16) = (/&
+ & 5.1114E-01_JPRB,4.4727E-01_JPRB,3.8338E-01_JPRB,3.1946E-01_JPRB,2.9762E-01_JPRB,3.6825E-01_JPRB,&
+ & 4.3294E-01_JPRB,4.7698E-01_JPRB,1.5632E+01_JPRB/)  
+KAO( :, 4, 8,16) = (/&
+ & 6.1845E-01_JPRB,5.4119E-01_JPRB,4.6383E-01_JPRB,3.8657E-01_JPRB,4.4256E-01_JPRB,5.4777E-01_JPRB,&
+ & 6.4434E-01_JPRB,7.1023E-01_JPRB,1.8915E+01_JPRB/)  
+KAO( :, 5, 8,16) = (/&
+ & 7.2956E-01_JPRB,6.3833E-01_JPRB,5.4715E-01_JPRB,4.8521E-01_JPRB,6.2642E-01_JPRB,7.7483E-01_JPRB,&
+ & 9.1223E-01_JPRB,1.0061E+00_JPRB,2.2311E+01_JPRB/)  
+KAO( :, 1, 9,16) = (/&
+ & 3.3206E-01_JPRB,2.9059E-01_JPRB,2.4908E-01_JPRB,2.0756E-01_JPRB,1.6605E-01_JPRB,1.2520E-01_JPRB,&
+ & 1.3332E-01_JPRB,1.4726E-01_JPRB,4.3754E+01_JPRB/)  
+KAO( :, 2, 9,16) = (/&
+ & 4.4050E-01_JPRB,3.8544E-01_JPRB,3.3040E-01_JPRB,2.7529E-01_JPRB,2.2025E-01_JPRB,2.0212E-01_JPRB,&
+ & 2.3801E-01_JPRB,2.6323E-01_JPRB,5.8016E+01_JPRB/)  
+KAO( :, 3, 9,16) = (/&
+ & 5.6026E-01_JPRB,4.9023E-01_JPRB,4.2020E-01_JPRB,3.5022E-01_JPRB,2.8778E-01_JPRB,3.3184E-01_JPRB,&
+ & 3.9083E-01_JPRB,4.3264E-01_JPRB,7.3805E+01_JPRB/)  
+KAO( :, 4, 9,16) = (/&
+ & 6.8858E-01_JPRB,6.0253E-01_JPRB,5.1637E-01_JPRB,4.3040E-01_JPRB,4.1206E-01_JPRB,5.0884E-01_JPRB,&
+ & 5.9967E-01_JPRB,6.6456E-01_JPRB,9.0709E+01_JPRB/)  
+KAO( :, 5, 9,16) = (/&
+ & 8.2259E-01_JPRB,7.1975E-01_JPRB,6.1688E-01_JPRB,5.1707E-01_JPRB,5.9606E-01_JPRB,7.3858E-01_JPRB,&
+ & 8.7057E-01_JPRB,9.6569E-01_JPRB,1.0838E+02_JPRB/)  
+KAO( :, 1,10,16) = (/&
+ & 3.5261E-01_JPRB,3.0855E-01_JPRB,2.6447E-01_JPRB,2.2042E-01_JPRB,1.7636E-01_JPRB,1.3225E-01_JPRB,&
+ & 1.1302E-01_JPRB,1.2540E-01_JPRB,2.2383E+02_JPRB/)  
+KAO( :, 2,10,16) = (/&
+ & 4.7821E-01_JPRB,4.1843E-01_JPRB,3.5857E-01_JPRB,2.9886E-01_JPRB,2.3906E-01_JPRB,1.8964E-01_JPRB,&
+ & 2.1098E-01_JPRB,2.3441E-01_JPRB,3.0350E+02_JPRB/)  
+KAO( :, 3,10,16) = (/&
+ & 6.1881E-01_JPRB,5.4145E-01_JPRB,4.6410E-01_JPRB,3.8673E-01_JPRB,3.0946E-01_JPRB,3.0407E-01_JPRB,&
+ & 3.5878E-01_JPRB,3.9920E-01_JPRB,3.9277E+02_JPRB/)  
+KAO( :, 4,10,16) = (/&
+ & 7.7105E-01_JPRB,6.7484E-01_JPRB,5.7823E-01_JPRB,4.8190E-01_JPRB,4.1230E-01_JPRB,4.7947E-01_JPRB,&
+ & 5.6602E-01_JPRB,6.3051E-01_JPRB,4.8953E+02_JPRB/)  
+KAO( :, 5,10,16) = (/&
+ & 9.3145E-01_JPRB,8.1502E-01_JPRB,6.9859E-01_JPRB,5.8205E-01_JPRB,5.7779E-01_JPRB,7.1138E-01_JPRB,&
+ & 8.4040E-01_JPRB,9.3669E-01_JPRB,5.9127E+02_JPRB/)  
+KAO( :, 1,11,16) = (/&
+ & 4.3261E-01_JPRB,3.7853E-01_JPRB,3.2446E-01_JPRB,2.7039E-01_JPRB,2.1632E-01_JPRB,1.6222E-01_JPRB,&
+ & 1.3099E-01_JPRB,1.4452E-01_JPRB,4.6285E+02_JPRB/)  
+KAO( :, 2,11,16) = (/&
+ & 5.8535E-01_JPRB,5.1218E-01_JPRB,4.3901E-01_JPRB,3.6590E-01_JPRB,2.9265E-01_JPRB,2.2872E-01_JPRB,&
+ & 2.4101E-01_JPRB,2.6929E-01_JPRB,6.2611E+02_JPRB/)  
+KAO( :, 3,11,16) = (/&
+ & 7.5565E-01_JPRB,6.6141E-01_JPRB,5.6693E-01_JPRB,4.7237E-01_JPRB,3.7786E-01_JPRB,3.5050E-01_JPRB,&
+ & 4.0844E-01_JPRB,4.5697E-01_JPRB,8.0847E+02_JPRB/)  
+KAO( :, 4,11,16) = (/&
+ & 9.3953E-01_JPRB,8.2209E-01_JPRB,7.0458E-01_JPRB,5.8709E-01_JPRB,4.9467E-01_JPRB,5.4296E-01_JPRB,&
+ & 6.4241E-01_JPRB,7.1951E-01_JPRB,1.0051E+03_JPRB/)  
+KAO( :, 5,11,16) = (/&
+ & 1.1321E+00_JPRB,9.9048E-01_JPRB,8.4898E-01_JPRB,7.0764E-01_JPRB,6.7182E-01_JPRB,8.0337E-01_JPRB,&
+ & 9.5077E-01_JPRB,1.0665E+00_JPRB,1.2110E+03_JPRB/)  
+KAO( :, 1,12,16) = (/&
+ & 5.3519E-01_JPRB,4.6832E-01_JPRB,4.0142E-01_JPRB,3.3452E-01_JPRB,2.6763E-01_JPRB,2.0072E-01_JPRB,&
+ & 1.5467E-01_JPRB,1.6502E-01_JPRB,7.0824E+02_JPRB/)  
+KAO( :, 2,12,16) = (/&
+ & 7.2183E-01_JPRB,6.3160E-01_JPRB,5.4131E-01_JPRB,4.5112E-01_JPRB,3.6090E-01_JPRB,2.7900E-01_JPRB,&
+ & 2.7245E-01_JPRB,3.0622E-01_JPRB,9.5519E+02_JPRB/)  
+KAO( :, 3,12,16) = (/&
+ & 9.2882E-01_JPRB,8.1286E-01_JPRB,6.9674E-01_JPRB,5.8057E-01_JPRB,4.6450E-01_JPRB,4.1101E-01_JPRB,&
+ & 4.5999E-01_JPRB,5.1778E-01_JPRB,1.2292E+03_JPRB/)  
+KAO( :, 4,12,16) = (/&
+ & 1.1518E+00_JPRB,1.0078E+00_JPRB,8.6369E-01_JPRB,7.1969E-01_JPRB,5.9900E-01_JPRB,6.1266E-01_JPRB,&
+ & 7.2069E-01_JPRB,8.1237E-01_JPRB,1.5237E+03_JPRB/)  
+KAO( :, 5,12,16) = (/&
+ & 1.3877E+00_JPRB,1.2141E+00_JPRB,1.0407E+00_JPRB,8.6727E-01_JPRB,7.9163E-01_JPRB,8.9653E-01_JPRB,&
+ & 1.0630E+00_JPRB,1.1997E+00_JPRB,1.8362E+03_JPRB/)  
+KAO( :, 1,13,16) = (/&
+ & 6.8305E-01_JPRB,5.9769E-01_JPRB,5.1231E-01_JPRB,4.2692E-01_JPRB,3.4152E-01_JPRB,2.5608E-01_JPRB,&
+ & 1.8801E-01_JPRB,1.8615E-01_JPRB,8.6247E+02_JPRB/)  
+KAO( :, 2,13,16) = (/&
+ & 9.1792E-01_JPRB,8.0318E-01_JPRB,6.8841E-01_JPRB,5.7362E-01_JPRB,4.5889E-01_JPRB,3.5002E-01_JPRB,&
+ & 3.1177E-01_JPRB,3.4406E-01_JPRB,1.1588E+03_JPRB/)  
+KAO( :, 3,13,16) = (/&
+ & 1.1812E+00_JPRB,1.0334E+00_JPRB,8.8578E-01_JPRB,7.3808E-01_JPRB,5.9053E-01_JPRB,4.9511E-01_JPRB,&
+ & 5.1116E-01_JPRB,5.7929E-01_JPRB,1.4913E+03_JPRB/)  
+KAO( :, 4,13,16) = (/&
+ & 1.4677E+00_JPRB,1.2842E+00_JPRB,1.1009E+00_JPRB,9.1748E-01_JPRB,7.4504E-01_JPRB,7.0766E-01_JPRB,&
+ & 7.9819E-01_JPRB,9.0553E-01_JPRB,1.8526E+03_JPRB/)  
+KAO( :, 5,13,16) = (/&
+ & 1.7710E+00_JPRB,1.5496E+00_JPRB,1.3282E+00_JPRB,1.1069E+00_JPRB,9.5682E-01_JPRB,1.0004E+00_JPRB,&
+ & 1.1734E+00_JPRB,1.3329E+00_JPRB,2.2362E+03_JPRB/)  
+
+!     The array SELFREFO contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+SELFREFO( :, 1) = (/&
+ & 9.83745E-03_JPRB, 8.45687E-03_JPRB, 7.27004E-03_JPRB, 6.24977E-03_JPRB, 5.37269E-03_JPRB,&
+ & 4.61869E-03_JPRB, 3.97051E-03_JPRB, 3.41329E-03_JPRB, 2.93427E-03_JPRB, 2.52248E-03_JPRB/)  
+SELFREFO( :, 2) = (/&
+ & 9.79014E-03_JPRB, 8.48557E-03_JPRB, 7.35483E-03_JPRB, 6.37477E-03_JPRB, 5.52531E-03_JPRB,&
+ & 4.78905E-03_JPRB, 4.15089E-03_JPRB, 3.59777E-03_JPRB, 3.11835E-03_JPRB, 2.70282E-03_JPRB/)  
+SELFREFO( :, 3) = (/&
+ & 9.36931E-03_JPRB, 8.10880E-03_JPRB, 7.01787E-03_JPRB, 6.07371E-03_JPRB, 5.25658E-03_JPRB,&
+ & 4.54938E-03_JPRB, 3.93732E-03_JPRB, 3.40761E-03_JPRB, 2.94916E-03_JPRB, 2.55239E-03_JPRB/)  
+SELFREFO( :, 4) = (/&
+ & 8.44896E-03_JPRB, 7.26401E-03_JPRB, 6.24525E-03_JPRB, 5.36937E-03_JPRB, 4.61632E-03_JPRB,&
+ & 3.96889E-03_JPRB, 3.41226E-03_JPRB, 2.93370E-03_JPRB, 2.52226E-03_JPRB, 2.16851E-03_JPRB/)  
+SELFREFO( :, 5) = (/&
+ & 6.69018E-03_JPRB, 5.93911E-03_JPRB, 5.27237E-03_JPRB, 4.68047E-03_JPRB, 4.15502E-03_JPRB,&
+ & 3.68856E-03_JPRB, 3.27447E-03_JPRB, 2.90686E-03_JPRB, 2.58053E-03_JPRB, 2.29083E-03_JPRB/)  
+SELFREFO( :, 6) = (/&
+ & 6.26590E-03_JPRB, 5.54076E-03_JPRB, 4.89954E-03_JPRB, 4.33252E-03_JPRB, 3.83113E-03_JPRB,&
+ & 3.38776E-03_JPRB, 2.99570E-03_JPRB, 2.64901E-03_JPRB, 2.34244E-03_JPRB, 2.07136E-03_JPRB/)  
+SELFREFO( :, 7) = (/&
+ & 6.01943E-03_JPRB, 5.31006E-03_JPRB, 4.68429E-03_JPRB, 4.13226E-03_JPRB, 3.64529E-03_JPRB,&
+ & 3.21570E-03_JPRB, 2.83674E-03_JPRB, 2.50244E-03_JPRB, 2.20754E-03_JPRB, 1.94739E-03_JPRB/)  
+SELFREFO( :, 8) = (/&
+ & 5.80205E-03_JPRB, 5.07696E-03_JPRB, 4.44248E-03_JPRB, 3.88730E-03_JPRB, 3.40149E-03_JPRB,&
+ & 2.97640E-03_JPRB, 2.60444E-03_JPRB, 2.27895E-03_JPRB, 1.99415E-03_JPRB, 1.74494E-03_JPRB/)  
+SELFREFO( :, 9) = (/&
+ & 4.90962E-03_JPRB, 4.54613E-03_JPRB, 4.20956E-03_JPRB, 3.89790E-03_JPRB, 3.60931E-03_JPRB,&
+ & 3.34210E-03_JPRB, 3.09466E-03_JPRB, 2.86555E-03_JPRB, 2.65339E-03_JPRB, 2.45695E-03_JPRB/)  
+SELFREFO( :,10) = (/&
+ & 4.51541E-03_JPRB, 4.34841E-03_JPRB, 4.18758E-03_JPRB, 4.03271E-03_JPRB, 3.88356E-03_JPRB,&
+ & 3.73992E-03_JPRB, 3.60160E-03_JPRB, 3.46840E-03_JPRB, 3.34012E-03_JPRB, 3.21658E-03_JPRB/)  
+SELFREFO( :,11) = (/&
+ & 4.41859E-03_JPRB, 4.25299E-03_JPRB, 4.09360E-03_JPRB, 3.94018E-03_JPRB, 3.79252E-03_JPRB,&
+ & 3.65038E-03_JPRB, 3.51357E-03_JPRB, 3.38189E-03_JPRB, 3.25515E-03_JPRB, 3.13316E-03_JPRB/)  
+SELFREFO( :,12) = (/&
+ & 4.41867E-03_JPRB, 4.22140E-03_JPRB, 4.03294E-03_JPRB, 3.85289E-03_JPRB, 3.68088E-03_JPRB,&
+ & 3.51655E-03_JPRB, 3.35956E-03_JPRB, 3.20957E-03_JPRB, 3.06628E-03_JPRB, 2.92939E-03_JPRB/)  
+SELFREFO( :,13) = (/&
+ & 4.42776E-03_JPRB, 4.34604E-03_JPRB, 4.26583E-03_JPRB, 4.18710E-03_JPRB, 4.10983E-03_JPRB,&
+ & 4.03398E-03_JPRB, 3.95953E-03_JPRB, 3.88645E-03_JPRB, 3.81472E-03_JPRB, 3.74432E-03_JPRB/)  
+SELFREFO( :,14) = (/&
+ & 4.46410E-03_JPRB, 4.46210E-03_JPRB, 4.46011E-03_JPRB, 4.45812E-03_JPRB, 4.45613E-03_JPRB,&
+ & 4.45414E-03_JPRB, 4.45216E-03_JPRB, 4.45017E-03_JPRB, 4.44818E-03_JPRB, 4.44620E-03_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB13:PART11',1,ZHOOK_HANDLE)
+END SUBROUTINE PART11
+
+
+SUBROUTINE PART12
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB13:PART12',0,ZHOOK_HANDLE)
+
+
+SELFREFO( :,15) = (/&
+ & 3.21270E-03_JPRB, 3.42098E-03_JPRB, 3.64276E-03_JPRB, 3.87892E-03_JPRB, 4.13040E-03_JPRB,&
+ & 4.39817E-03_JPRB, 4.68330E-03_JPRB, 4.98692E-03_JPRB, 5.31023E-03_JPRB, 5.65449E-03_JPRB/)  
+SELFREFO( :,16) = (/&
+ & 3.11411E-03_JPRB, 3.35874E-03_JPRB, 3.62259E-03_JPRB, 3.90717E-03_JPRB, 4.21410E-03_JPRB,&
+ & 4.54514E-03_JPRB, 4.90219E-03_JPRB, 5.28729E-03_JPRB, 5.70264E-03_JPRB, 6.15061E-03_JPRB/)  
+
+FRACREFAO( : , 1) = (/&
+ !   From P = 706.3 mb.
+ & 0.17683899_JPRB,0.17319500_JPRB,0.15712699_JPRB,0.13604601_JPRB,&
+ & 0.10776200_JPRB,0.08750010_JPRB,0.06808820_JPRB,0.04905150_JPRB,&
+ & 0.03280360_JPRB,0.00350836_JPRB,0.00281864_JPRB,0.00219862_JPRB,&
+ & 0.00160943_JPRB,0.00101885_JPRB,0.00038147_JPRB,0.00005348_JPRB/)  
+FRACREFAO( : , 2) = (/&
+ & 0.17535400_JPRB,0.16999300_JPRB,0.15610200_JPRB,0.13589200_JPRB,&
+ & 0.10842100_JPRB,0.08988550_JPRB,0.06943920_JPRB,0.04974900_JPRB,&
+ & 0.03323400_JPRB,0.00352752_JPRB,0.00289402_JPRB,0.00231003_JPRB,&
+ & 0.00174659_JPRB,0.00101884_JPRB,0.00038147_JPRB,0.00005348_JPRB/)  
+FRACREFAO( : , 3) = (/&
+ & 0.17409500_JPRB,0.16846400_JPRB,0.15641899_JPRB,0.13503000_JPRB,&
+ & 0.10838600_JPRB,0.08985800_JPRB,0.07092720_JPRB,0.05075710_JPRB,&
+ & 0.03364180_JPRB,0.00354241_JPRB,0.00303507_JPRB,0.00243391_JPRB,&
+ & 0.00177502_JPRB,0.00114638_JPRB,0.00043585_JPRB,0.00005348_JPRB/)  
+FRACREFAO( : , 4) = (/&
+ & 0.17248300_JPRB,0.16778600_JPRB,0.15543500_JPRB,0.13496999_JPRB,&
+ & 0.10826300_JPRB,0.09028740_JPRB,0.07156720_JPRB,0.05187120_JPRB,&
+ & 0.03424890_JPRB,0.00363933_JPRB,0.00324715_JPRB,0.00255030_JPRB,&
+ & 0.00187380_JPRB,0.00116978_JPRB,0.00051229_JPRB,0.00009768_JPRB/)  
+FRACREFAO( : , 5) = (/&
+ & 0.17061099_JPRB,0.16715799_JPRB,0.15405200_JPRB,0.13471501_JPRB,&
+ & 0.10896400_JPRB,0.09069460_JPRB,0.07229760_JPRB,0.05218280_JPRB,&
+ & 0.03555340_JPRB,0.00379576_JPRB,0.00330240_JPRB,0.00274693_JPRB,&
+ & 0.00201587_JPRB,0.00119598_JPRB,0.00061885_JPRB,0.00009768_JPRB/)  
+FRACREFAO( : , 6) = (/&
+ & 0.16789700_JPRB,0.16629100_JPRB,0.15270300_JPRB,0.13360199_JPRB,&
+ & 0.11047200_JPRB,0.09151080_JPRB,0.07325000_JPRB,0.05261450_JPRB,&
+ & 0.03657990_JPRB,0.00450092_JPRB,0.00349537_JPRB,0.00283321_JPRB,&
+ & 0.00208396_JPRB,0.00140354_JPRB,0.00066587_JPRB,0.00009768_JPRB/)  
+FRACREFAO( : , 7) = (/&
+ & 0.16412200_JPRB,0.16387400_JPRB,0.15211500_JPRB,0.13062200_JPRB,&
+ & 0.11325100_JPRB,0.09348130_JPRB,0.07381380_JPRB,0.05434740_JPRB,&
+ & 0.03803160_JPRB,0.00481346_JPRB,0.00393592_JPRB,0.00296633_JPRB,&
+ & 0.00222532_JPRB,0.00163762_JPRB,0.00066648_JPRB,0.00009768_JPRB/)  
+FRACREFAO( : , 8) = (/&
+ & 0.15513401_JPRB,0.15768200_JPRB,0.14850400_JPRB,0.13330200_JPRB,&
+ & 0.11446500_JPRB,0.09868230_JPRB,0.07642050_JPRB,0.05624170_JPRB,&
+ & 0.04197810_JPRB,0.00502288_JPRB,0.00429452_JPRB,0.00315347_JPRB,&
+ & 0.00263559_JPRB,0.00171772_JPRB,0.00066860_JPRB,0.00009768_JPRB/)  
+FRACREFAO( : , 9) = (/&
+ & 0.15732600_JPRB,0.15223300_JPRB,0.14271900_JPRB,0.13563600_JPRB,&
+ & 0.11859600_JPRB,0.10274200_JPRB,0.07934560_JPRB,0.05763410_JPRB,&
+ & 0.03921740_JPRB,0.00437741_JPRB,0.00337921_JPRB,0.00280212_JPRB,&
+ & 0.00200156_JPRB,0.00124812_JPRB,0.00064664_JPRB,0.00009768_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB13:PART12',1,ZHOOK_HANDLE)
+END SUBROUTINE PART12
+
+
+END SUBROUTINE RRTM_KGB13
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb13.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb13.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb13.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_KGB13
+END SUBROUTINE RRTM_KGB13
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb14.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb14.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb14.F90	(revision 1989)
@@ -0,0 +1,2135 @@
+!OCL SCALAR
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0 
+SUBROUTINE RRTM_KGB14
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 14:  2250-2380 cm-1 (low - CO2; high - CO2)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     R. Elkhatib 12-10-2005 Split for faster and more robust compilation.
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO14, ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,FRACREFBO
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB14',0,ZHOOK_HANDLE)
+
+CALL PART1
+CALL PART2
+CALL PART3
+CALL PART4
+CALL PART5
+CALL PART6
+CALL PART7
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB14',1,ZHOOK_HANDLE)
+
+!     -----------------------------------------------------------------
+
+CONTAINS
+
+
+SUBROUTINE PART1
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB14:PART1',0,ZHOOK_HANDLE)
+
+
+FRACREFAO( :) = (/&
+ !     From P = 1053.6 mb.
+ & 0.18446200_JPRB,0.16795200_JPRB,0.14949700_JPRB,0.12036000_JPRB,&
+ & 0.10440100_JPRB,0.09024280_JPRB,0.07435880_JPRB,0.05629380_JPRB,&
+ & 0.03825420_JPRB,0.00417276_JPRB,0.00345278_JPRB,0.00272949_JPRB,&
+ & 0.00200378_JPRB,0.00127404_JPRB,0.00050721_JPRB,0.00004141_JPRB/)  
+
+FRACREFBO( :) = (/&
+ !     From P = 0.64 mb.
+ & 0.19128500_JPRB,0.16495700_JPRB,0.14146100_JPRB,0.11904500_JPRB,&
+ & 0.10350200_JPRB,0.09151190_JPRB,0.07604270_JPRB,0.05806020_JPRB,&
+ & 0.03979950_JPRB,0.00423959_JPRB,0.00357439_JPRB,0.00287559_JPRB,&
+ & 0.00198860_JPRB,0.00116529_JPRB,0.00043616_JPRB,0.00005987_JPRB/)  
+
+!     ------------------------------------------------------------------
+
+!     The array KAO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels > ~100mb and temperatures.  The first
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the corresponding TREF for this  pressure level, 
+!     JT = 2 refers to the temperatureTREF-15, JT = 1 is for TREF-30, 
+!     JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  The second 
+!     index, JP, runs from 1 to 13 and refers to the corresponding 
+!     pressure level in PREF (e.g. JP = 1 is for a pressure of 1053.63 mb).  
+!     The third index, IG, goes from 1 to 16, and tells us which 
+!     g-interval the absorption coefficients are for.
+
+KAO( :, 1, 1) = (/&
+ & 3.5949E-01_JPRB,3.8238E-01_JPRB,4.1007E-01_JPRB,4.4339E-01_JPRB,4.8230E-01_JPRB/)  
+KAO( :, 2, 1) = (/&
+ & 3.0485E-01_JPRB,3.2295E-01_JPRB,3.4552E-01_JPRB,3.7333E-01_JPRB,4.0603E-01_JPRB/)  
+KAO( :, 3, 1) = (/&
+ & 2.5422E-01_JPRB,2.6754E-01_JPRB,2.8483E-01_JPRB,3.0668E-01_JPRB,3.3252E-01_JPRB/)  
+KAO( :, 4, 1) = (/&
+ & 2.1093E-01_JPRB,2.2073E-01_JPRB,2.3378E-01_JPRB,2.5076E-01_JPRB,2.7135E-01_JPRB/)  
+KAO( :, 5, 1) = (/&
+ & 1.7483E-01_JPRB,1.8205E-01_JPRB,1.9194E-01_JPRB,2.0512E-01_JPRB,2.2145E-01_JPRB/)  
+KAO( :, 6, 1) = (/&
+ & 1.4472E-01_JPRB,1.4992E-01_JPRB,1.5732E-01_JPRB,1.6735E-01_JPRB,1.8017E-01_JPRB/)  
+KAO( :, 7, 1) = (/&
+ & 1.1982E-01_JPRB,1.2359E-01_JPRB,1.2898E-01_JPRB,1.3657E-01_JPRB,1.4653E-01_JPRB/)  
+KAO( :, 8, 1) = (/&
+ & 9.9228E-02_JPRB,1.0198E-01_JPRB,1.0592E-01_JPRB,1.1158E-01_JPRB,1.1926E-01_JPRB/)  
+KAO( :, 9, 1) = (/&
+ & 8.2262E-02_JPRB,8.4210E-02_JPRB,8.7109E-02_JPRB,9.1293E-02_JPRB,9.7123E-02_JPRB/)  
+KAO( :,10, 1) = (/&
+ & 6.8209E-02_JPRB,6.9606E-02_JPRB,7.1781E-02_JPRB,7.4983E-02_JPRB,7.9504E-02_JPRB/)  
+KAO( :,11, 1) = (/&
+ & 5.6845E-02_JPRB,5.8087E-02_JPRB,6.0031E-02_JPRB,6.2957E-02_JPRB,6.7037E-02_JPRB/)  
+KAO( :,12, 1) = (/&
+ & 4.7244E-02_JPRB,4.8375E-02_JPRB,5.0140E-02_JPRB,5.2785E-02_JPRB,5.6455E-02_JPRB/)  
+KAO( :,13, 1) = (/&
+ & 3.9170E-02_JPRB,4.0208E-02_JPRB,4.1811E-02_JPRB,4.4178E-02_JPRB,4.7427E-02_JPRB/)  
+KAO( :, 1, 2) = (/&
+ & 1.2872E+00_JPRB,1.3933E+00_JPRB,1.5229E+00_JPRB,1.6818E+00_JPRB,1.8746E+00_JPRB/)  
+KAO( :, 2, 2) = (/&
+ & 1.1067E+00_JPRB,1.2035E+00_JPRB,1.3215E+00_JPRB,1.4648E+00_JPRB,1.6373E+00_JPRB/)  
+KAO( :, 3, 2) = (/&
+ & 9.2875E-01_JPRB,1.0145E+00_JPRB,1.1171E+00_JPRB,1.2402E+00_JPRB,1.3874E+00_JPRB/)  
+KAO( :, 4, 2) = (/&
+ & 7.7024E-01_JPRB,8.4470E-01_JPRB,9.3397E-01_JPRB,1.0398E+00_JPRB,1.1644E+00_JPRB/)  
+KAO( :, 5, 2) = (/&
+ & 6.3547E-01_JPRB,6.9999E-01_JPRB,7.7719E-01_JPRB,8.6762E-01_JPRB,9.7354E-01_JPRB/)  
+KAO( :, 6, 2) = (/&
+ & 5.2029E-01_JPRB,5.7514E-01_JPRB,6.4113E-01_JPRB,7.1778E-01_JPRB,8.0690E-01_JPRB/)  
+KAO( :, 7, 2) = (/&
+ & 4.2402E-01_JPRB,4.7059E-01_JPRB,5.2574E-01_JPRB,5.9013E-01_JPRB,6.6415E-01_JPRB/)  
+KAO( :, 8, 2) = (/&
+ & 3.4478E-01_JPRB,3.8240E-01_JPRB,4.2694E-01_JPRB,4.7936E-01_JPRB,5.3995E-01_JPRB/)  
+KAO( :, 9, 2) = (/&
+ & 2.7872E-01_JPRB,3.0857E-01_JPRB,3.4389E-01_JPRB,3.8559E-01_JPRB,4.3444E-01_JPRB/)  
+KAO( :,10, 2) = (/&
+ & 2.2596E-01_JPRB,2.5018E-01_JPRB,2.7837E-01_JPRB,3.1178E-01_JPRB,3.5123E-01_JPRB/)  
+KAO( :,11, 2) = (/&
+ & 1.9149E-01_JPRB,2.1236E-01_JPRB,2.3673E-01_JPRB,2.6562E-01_JPRB,2.9993E-01_JPRB/)  
+KAO( :,12, 2) = (/&
+ & 1.6195E-01_JPRB,1.7991E-01_JPRB,2.0098E-01_JPRB,2.2594E-01_JPRB,2.5567E-01_JPRB/)  
+KAO( :,13, 2) = (/&
+ & 1.3643E-01_JPRB,1.5192E-01_JPRB,1.7016E-01_JPRB,1.9179E-01_JPRB,2.1776E-01_JPRB/)  
+KAO( :, 1, 3) = (/&
+ & 5.3360E+00_JPRB,5.9602E+00_JPRB,6.6311E+00_JPRB,7.3500E+00_JPRB,8.1211E+00_JPRB/)  
+KAO( :, 2, 3) = (/&
+ & 4.6843E+00_JPRB,5.2481E+00_JPRB,5.8517E+00_JPRB,6.5055E+00_JPRB,7.2045E+00_JPRB/)  
+KAO( :, 3, 3) = (/&
+ & 3.9306E+00_JPRB,4.4236E+00_JPRB,4.9546E+00_JPRB,5.5277E+00_JPRB,6.1375E+00_JPRB/)  
+KAO( :, 4, 3) = (/&
+ & 3.2173E+00_JPRB,3.6357E+00_JPRB,4.0925E+00_JPRB,4.5878E+00_JPRB,5.1170E+00_JPRB/)  
+KAO( :, 5, 3) = (/&
+ & 2.5942E+00_JPRB,2.9460E+00_JPRB,3.3334E+00_JPRB,3.7556E+00_JPRB,4.2107E+00_JPRB/)  
+KAO( :, 6, 3) = (/&
+ & 2.0555E+00_JPRB,2.3477E+00_JPRB,2.6712E+00_JPRB,3.0269E+00_JPRB,3.4138E+00_JPRB/)  
+KAO( :, 7, 3) = (/&
+ & 1.6118E+00_JPRB,1.8526E+00_JPRB,2.1224E+00_JPRB,2.4196E+00_JPRB,2.7460E+00_JPRB/)  
+KAO( :, 8, 3) = (/&
+ & 1.2564E+00_JPRB,1.4546E+00_JPRB,1.6794E+00_JPRB,1.9292E+00_JPRB,2.2031E+00_JPRB/)  
+KAO( :, 9, 3) = (/&
+ & 9.7439E-01_JPRB,1.1371E+00_JPRB,1.3228E+00_JPRB,1.5317E+00_JPRB,1.7615E+00_JPRB/)  
+KAO( :,10, 3) = (/&
+ & 7.6284E-01_JPRB,8.9693E-01_JPRB,1.0511E+00_JPRB,1.2260E+00_JPRB,1.4196E+00_JPRB/)  
+KAO( :,11, 3) = (/&
+ & 6.4505E-01_JPRB,7.6321E-01_JPRB,8.9939E-01_JPRB,1.0531E+00_JPRB,1.2207E+00_JPRB/)  
+KAO( :,12, 3) = (/&
+ & 5.4741E-01_JPRB,6.5142E-01_JPRB,7.6976E-01_JPRB,9.0081E-01_JPRB,1.0418E+00_JPRB/)  
+KAO( :,13, 3) = (/&
+ & 4.6530E-01_JPRB,5.5436E-01_JPRB,6.5441E-01_JPRB,7.6383E-01_JPRB,8.8219E-01_JPRB/)  
+KAO( :, 1, 4) = (/&
+ & 1.6152E+01_JPRB,1.7527E+01_JPRB,1.8781E+01_JPRB,1.9894E+01_JPRB,2.0832E+01_JPRB/)  
+KAO( :, 2, 4) = (/&
+ & 1.4046E+01_JPRB,1.5178E+01_JPRB,1.6195E+01_JPRB,1.7086E+01_JPRB,1.7867E+01_JPRB/)  
+KAO( :, 3, 4) = (/&
+ & 1.2099E+01_JPRB,1.3048E+01_JPRB,1.3899E+01_JPRB,1.4662E+01_JPRB,1.5345E+01_JPRB/)  
+KAO( :, 4, 4) = (/&
+ & 1.0250E+01_JPRB,1.1071E+01_JPRB,1.1812E+01_JPRB,1.2480E+01_JPRB,1.3082E+01_JPRB/)  
+KAO( :, 5, 4) = (/&
+ & 8.5710E+00_JPRB,9.2814E+00_JPRB,9.9329E+00_JPRB,1.0519E+01_JPRB,1.1047E+01_JPRB/)  
+KAO( :, 6, 4) = (/&
+ & 7.0718E+00_JPRB,7.6889E+00_JPRB,8.2584E+00_JPRB,8.7766E+00_JPRB,9.2483E+00_JPRB/)  
+KAO( :, 7, 4) = (/&
+ & 5.7749E+00_JPRB,6.3070E+00_JPRB,6.8047E+00_JPRB,7.2640E+00_JPRB,7.6824E+00_JPRB/)  
+KAO( :, 8, 4) = (/&
+ & 4.6724E+00_JPRB,5.1283E+00_JPRB,5.5581E+00_JPRB,5.9613E+00_JPRB,6.3358E+00_JPRB/)  
+KAO( :, 9, 4) = (/&
+ & 3.7440E+00_JPRB,4.1328E+00_JPRB,4.5018E+00_JPRB,4.8548E+00_JPRB,5.1877E+00_JPRB/)  
+KAO( :,10, 4) = (/&
+ & 2.9973E+00_JPRB,3.3277E+00_JPRB,3.6442E+00_JPRB,3.9507E+00_JPRB,4.2451E+00_JPRB/)  
+KAO( :,11, 4) = (/&
+ & 2.5128E+00_JPRB,2.7893E+00_JPRB,3.0562E+00_JPRB,3.3207E+00_JPRB,3.5778E+00_JPRB/)  
+KAO( :,12, 4) = (/&
+ & 2.1002E+00_JPRB,2.3318E+00_JPRB,2.5620E+00_JPRB,2.7945E+00_JPRB,3.0199E+00_JPRB/)  
+KAO( :,13, 4) = (/&
+ & 1.7517E+00_JPRB,1.9494E+00_JPRB,2.1523E+00_JPRB,2.3581E+00_JPRB,2.5501E+00_JPRB/)  
+KAO( :, 1, 5) = (/&
+ & 3.4751E+01_JPRB,3.5230E+01_JPRB,3.5638E+01_JPRB,3.5981E+01_JPRB,3.6301E+01_JPRB/)  
+KAO( :, 2, 5) = (/&
+ & 2.9729E+01_JPRB,3.0178E+01_JPRB,3.0562E+01_JPRB,3.0895E+01_JPRB,3.1160E+01_JPRB/)  
+KAO( :, 3, 5) = (/&
+ & 2.5226E+01_JPRB,2.5646E+01_JPRB,2.6010E+01_JPRB,2.6290E+01_JPRB,2.6514E+01_JPRB/)  
+KAO( :, 4, 5) = (/&
+ & 2.1570E+01_JPRB,2.1943E+01_JPRB,2.2252E+01_JPRB,2.2465E+01_JPRB,2.2652E+01_JPRB/)  
+KAO( :, 5, 5) = (/&
+ & 1.8526E+01_JPRB,1.8854E+01_JPRB,1.9098E+01_JPRB,1.9261E+01_JPRB,1.9423E+01_JPRB/)  
+KAO( :, 6, 5) = (/&
+ & 1.5776E+01_JPRB,1.6061E+01_JPRB,1.6258E+01_JPRB,1.6386E+01_JPRB,1.6522E+01_JPRB/)  
+KAO( :, 7, 5) = (/&
+ & 1.3340E+01_JPRB,1.3594E+01_JPRB,1.3756E+01_JPRB,1.3864E+01_JPRB,1.3982E+01_JPRB/)  
+KAO( :, 8, 5) = (/&
+ & 1.1233E+01_JPRB,1.1458E+01_JPRB,1.1599E+01_JPRB,1.1693E+01_JPRB,1.1791E+01_JPRB/)  
+KAO( :, 9, 5) = (/&
+ & 9.4215E+00_JPRB,9.6164E+00_JPRB,9.7423E+00_JPRB,9.8254E+00_JPRB,9.9049E+00_JPRB/)  
+KAO( :,10, 5) = (/&
+ & 7.8744E+00_JPRB,8.0390E+00_JPRB,8.1492E+00_JPRB,8.2195E+00_JPRB,8.2844E+00_JPRB/)  
+KAO( :,11, 5) = (/&
+ & 6.6269E+00_JPRB,6.7416E+00_JPRB,6.8204E+00_JPRB,6.8736E+00_JPRB,6.9401E+00_JPRB/)  
+KAO( :,12, 5) = (/&
+ & 5.5397E+00_JPRB,5.6256E+00_JPRB,5.6856E+00_JPRB,5.7347E+00_JPRB,5.8086E+00_JPRB/)  
+KAO( :,13, 5) = (/&
+ & 4.6101E+00_JPRB,4.6786E+00_JPRB,4.7276E+00_JPRB,4.7772E+00_JPRB,4.8596E+00_JPRB/)  
+KAO( :, 1, 6) = (/&
+ & 5.5130E+01_JPRB,5.5331E+01_JPRB,5.5751E+01_JPRB,5.6249E+01_JPRB,5.6765E+01_JPRB/)  
+KAO( :, 2, 6) = (/&
+ & 4.8314E+01_JPRB,4.8735E+01_JPRB,4.9176E+01_JPRB,4.9631E+01_JPRB,5.0143E+01_JPRB/)  
+KAO( :, 3, 6) = (/&
+ & 4.2059E+01_JPRB,4.2411E+01_JPRB,4.2762E+01_JPRB,4.3188E+01_JPRB,4.3691E+01_JPRB/)  
+KAO( :, 4, 6) = (/&
+ & 3.6248E+01_JPRB,3.6478E+01_JPRB,3.6774E+01_JPRB,3.7187E+01_JPRB,3.7662E+01_JPRB/)  
+KAO( :, 5, 6) = (/&
+ & 3.1107E+01_JPRB,3.1277E+01_JPRB,3.1534E+01_JPRB,3.1919E+01_JPRB,3.2341E+01_JPRB/)  
+KAO( :, 6, 6) = (/&
+ & 2.6880E+01_JPRB,2.7008E+01_JPRB,2.7229E+01_JPRB,2.7549E+01_JPRB,2.7880E+01_JPRB/)  
+KAO( :, 7, 6) = (/&
+ & 2.3158E+01_JPRB,2.3247E+01_JPRB,2.3429E+01_JPRB,2.3676E+01_JPRB,2.3946E+01_JPRB/)  
+KAO( :, 8, 6) = (/&
+ & 1.9829E+01_JPRB,1.9879E+01_JPRB,2.0010E+01_JPRB,2.0196E+01_JPRB,2.0418E+01_JPRB/)  
+KAO( :, 9, 6) = (/&
+ & 1.6898E+01_JPRB,1.6922E+01_JPRB,1.7013E+01_JPRB,1.7148E+01_JPRB,1.7325E+01_JPRB/)  
+KAO( :,10, 6) = (/&
+ & 1.4366E+01_JPRB,1.4373E+01_JPRB,1.4439E+01_JPRB,1.4534E+01_JPRB,1.4675E+01_JPRB/)  
+KAO( :,11, 6) = (/&
+ & 1.2164E+01_JPRB,1.2183E+01_JPRB,1.2231E+01_JPRB,1.2319E+01_JPRB,1.2450E+01_JPRB/)  
+KAO( :,12, 6) = (/&
+ & 1.0258E+01_JPRB,1.0264E+01_JPRB,1.0303E+01_JPRB,1.0384E+01_JPRB,1.0512E+01_JPRB/)  
+KAO( :,13, 6) = (/&
+ & 8.6118E+00_JPRB,8.6082E+00_JPRB,8.6451E+00_JPRB,8.7236E+00_JPRB,8.8552E+00_JPRB/)  
+KAO( :, 1, 7) = (/&
+ & 9.6613E+01_JPRB,9.5560E+01_JPRB,9.4868E+01_JPRB,9.4707E+01_JPRB,9.5047E+01_JPRB/)  
+KAO( :, 2, 7) = (/&
+ & 8.5378E+01_JPRB,8.4844E+01_JPRB,8.4980E+01_JPRB,8.5705E+01_JPRB,8.6820E+01_JPRB/)  
+KAO( :, 3, 7) = (/&
+ & 7.4914E+01_JPRB,7.5068E+01_JPRB,7.5864E+01_JPRB,7.7176E+01_JPRB,7.8814E+01_JPRB/)  
+KAO( :, 4, 7) = (/&
+ & 6.5406E+01_JPRB,6.6072E+01_JPRB,6.7363E+01_JPRB,6.9077E+01_JPRB,7.0805E+01_JPRB/)  
+KAO( :, 5, 7) = (/&
+ & 5.6834E+01_JPRB,5.7880E+01_JPRB,5.9486E+01_JPRB,6.1110E+01_JPRB,6.2642E+01_JPRB/)  
+KAO( :, 6, 7) = (/&
+ & 4.9134E+01_JPRB,5.0398E+01_JPRB,5.1914E+01_JPRB,5.3305E+01_JPRB,5.4686E+01_JPRB/)  
+KAO( :, 7, 7) = (/&
+ & 4.2637E+01_JPRB,4.3892E+01_JPRB,4.5117E+01_JPRB,4.6325E+01_JPRB,4.7499E+01_JPRB/)  
+KAO( :, 8, 7) = (/&
+ & 3.7229E+01_JPRB,3.8287E+01_JPRB,3.9278E+01_JPRB,4.0285E+01_JPRB,4.1280E+01_JPRB/)  
+KAO( :, 9, 7) = (/&
+ & 3.2369E+01_JPRB,3.3232E+01_JPRB,3.4050E+01_JPRB,3.4909E+01_JPRB,3.5773E+01_JPRB/)  
+KAO( :,10, 7) = (/&
+ & 2.7964E+01_JPRB,2.8642E+01_JPRB,2.9313E+01_JPRB,3.0048E+01_JPRB,3.0775E+01_JPRB/)  
+KAO( :,11, 7) = (/&
+ & 2.4270E+01_JPRB,2.4795E+01_JPRB,2.5375E+01_JPRB,2.5988E+01_JPRB,2.6571E+01_JPRB/)  
+KAO( :,12, 7) = (/&
+ & 2.0936E+01_JPRB,2.1384E+01_JPRB,2.1881E+01_JPRB,2.2373E+01_JPRB,2.2843E+01_JPRB/)  
+KAO( :,13, 7) = (/&
+ & 1.7997E+01_JPRB,1.8384E+01_JPRB,1.8786E+01_JPRB,1.9175E+01_JPRB,1.9563E+01_JPRB/)  
+KAO( :, 1, 8) = (/&
+ & 2.1875E+02_JPRB,2.1582E+02_JPRB,2.1296E+02_JPRB,2.1003E+02_JPRB,2.0715E+02_JPRB/)  
+KAO( :, 2, 8) = (/&
+ & 2.0320E+02_JPRB,2.0039E+02_JPRB,1.9765E+02_JPRB,1.9490E+02_JPRB,1.9237E+02_JPRB/)  
+KAO( :, 3, 8) = (/&
+ & 1.8600E+02_JPRB,1.8334E+02_JPRB,1.8077E+02_JPRB,1.7842E+02_JPRB,1.7627E+02_JPRB/)  
+KAO( :, 4, 8) = (/&
+ & 1.6777E+02_JPRB,1.6536E+02_JPRB,1.6312E+02_JPRB,1.6113E+02_JPRB,1.5989E+02_JPRB/)  
+KAO( :, 5, 8) = (/&
+ & 1.4943E+02_JPRB,1.4725E+02_JPRB,1.4535E+02_JPRB,1.4437E+02_JPRB,1.4430E+02_JPRB/)  
+KAO( :, 6, 8) = (/&
+ & 1.3133E+02_JPRB,1.2945E+02_JPRB,1.2835E+02_JPRB,1.2837E+02_JPRB,1.2929E+02_JPRB/)  
+KAO( :, 7, 8) = (/&
+ & 1.1418E+02_JPRB,1.1273E+02_JPRB,1.1250E+02_JPRB,1.1334E+02_JPRB,1.1514E+02_JPRB/)  
+KAO( :, 8, 8) = (/&
+ & 9.8405E+01_JPRB,9.7565E+01_JPRB,9.8029E+01_JPRB,9.9545E+01_JPRB,1.0201E+02_JPRB/)  
+KAO( :, 9, 8) = (/&
+ & 8.4682E+01_JPRB,8.4331E+01_JPRB,8.5271E+01_JPRB,8.7263E+01_JPRB,9.0114E+01_JPRB/)  
+KAO( :,10, 8) = (/&
+ & 7.3042E+01_JPRB,7.3160E+01_JPRB,7.4507E+01_JPRB,7.6830E+01_JPRB,7.9492E+01_JPRB/)  
+KAO( :,11, 8) = (/&
+ & 6.3320E+01_JPRB,6.4346E+01_JPRB,6.6364E+01_JPRB,6.8605E+01_JPRB,7.0750E+01_JPRB/)  
+KAO( :,12, 8) = (/&
+ & 5.5520E+01_JPRB,5.7127E+01_JPRB,5.9034E+01_JPRB,6.0843E+01_JPRB,6.2628E+01_JPRB/)  
+KAO( :,13, 8) = (/&
+ & 4.8720E+01_JPRB,5.0320E+01_JPRB,5.1854E+01_JPRB,5.3381E+01_JPRB,5.4848E+01_JPRB/)  
+KAO( :, 1, 9) = (/&
+ & 5.5976E+02_JPRB,5.5606E+02_JPRB,5.5170E+02_JPRB,5.4679E+02_JPRB,5.4142E+02_JPRB/)  
+KAO( :, 2, 9) = (/&
+ & 5.7991E+02_JPRB,5.7550E+02_JPRB,5.7048E+02_JPRB,5.6499E+02_JPRB,5.5881E+02_JPRB/)  
+KAO( :, 3, 9) = (/&
+ & 5.9128E+02_JPRB,5.8623E+02_JPRB,5.8077E+02_JPRB,5.7450E+02_JPRB,5.6801E+02_JPRB/)  
+KAO( :, 4, 9) = (/&
+ & 5.9173E+02_JPRB,5.8627E+02_JPRB,5.8008E+02_JPRB,5.7365E+02_JPRB,5.6657E+02_JPRB/)  
+KAO( :, 5, 9) = (/&
+ & 5.8078E+02_JPRB,5.7460E+02_JPRB,5.6816E+02_JPRB,5.6109E+02_JPRB,5.5382E+02_JPRB/)  
+KAO( :, 6, 9) = (/&
+ & 5.6004E+02_JPRB,5.5342E+02_JPRB,5.4648E+02_JPRB,5.3935E+02_JPRB,5.3177E+02_JPRB/)  
+KAO( :, 7, 9) = (/&
+ & 5.3020E+02_JPRB,5.2344E+02_JPRB,5.1623E+02_JPRB,5.0891E+02_JPRB,5.0146E+02_JPRB/)  
+KAO( :, 8, 9) = (/&
+ & 4.9306E+02_JPRB,4.8589E+02_JPRB,4.7879E+02_JPRB,4.7156E+02_JPRB,4.6424E+02_JPRB/)  
+KAO( :, 9, 9) = (/&
+ & 4.5109E+02_JPRB,4.4398E+02_JPRB,4.3682E+02_JPRB,4.2990E+02_JPRB,4.2317E+02_JPRB/)  
+KAO( :,10, 9) = (/&
+ & 4.0554E+02_JPRB,3.9861E+02_JPRB,3.9191E+02_JPRB,3.8539E+02_JPRB,3.7999E+02_JPRB/)  
+KAO( :,11, 9) = (/&
+ & 3.5678E+02_JPRB,3.5028E+02_JPRB,3.4422E+02_JPRB,3.3949E+02_JPRB,3.3677E+02_JPRB/)  
+KAO( :,12, 9) = (/&
+ & 3.0997E+02_JPRB,3.0426E+02_JPRB,2.9997E+02_JPRB,2.9770E+02_JPRB,2.9720E+02_JPRB/)  
+KAO( :,13, 9) = (/&
+ & 2.6709E+02_JPRB,2.6293E+02_JPRB,2.6082E+02_JPRB,2.6061E+02_JPRB,2.6217E+02_JPRB/)  
+KAO( :, 1,10) = (/&
+ & 9.5728E+02_JPRB,9.5690E+02_JPRB,9.5401E+02_JPRB,9.5007E+02_JPRB,9.4420E+02_JPRB/)  
+KAO( :, 2,10) = (/&
+ & 1.0745E+03_JPRB,1.0719E+03_JPRB,1.0680E+03_JPRB,1.0623E+03_JPRB,1.0552E+03_JPRB/)  
+KAO( :, 3,10) = (/&
+ & 1.1871E+03_JPRB,1.1845E+03_JPRB,1.1802E+03_JPRB,1.1737E+03_JPRB,1.1657E+03_JPRB/)  
+KAO( :, 4,10) = (/&
+ & 1.2933E+03_JPRB,1.2895E+03_JPRB,1.2845E+03_JPRB,1.2769E+03_JPRB,1.2684E+03_JPRB/)  
+KAO( :, 5,10) = (/&
+ & 1.3871E+03_JPRB,1.3843E+03_JPRB,1.3770E+03_JPRB,1.3701E+03_JPRB,1.3589E+03_JPRB/)  
+KAO( :, 6,10) = (/&
+ & 1.4584E+03_JPRB,1.4525E+03_JPRB,1.4462E+03_JPRB,1.4355E+03_JPRB,1.4255E+03_JPRB/)  
+KAO( :, 7,10) = (/&
+ & 1.5042E+03_JPRB,1.4961E+03_JPRB,1.4859E+03_JPRB,1.4751E+03_JPRB,1.4602E+03_JPRB/)  
+KAO( :, 8,10) = (/&
+ & 1.5189E+03_JPRB,1.5105E+03_JPRB,1.4981E+03_JPRB,1.4842E+03_JPRB,1.4701E+03_JPRB/)  
+KAO( :, 9,10) = (/&
+ & 1.5016E+03_JPRB,1.4885E+03_JPRB,1.4763E+03_JPRB,1.4608E+03_JPRB,1.4435E+03_JPRB/)  
+KAO( :,10,10) = (/&
+ & 1.4531E+03_JPRB,1.4390E+03_JPRB,1.4217E+03_JPRB,1.4053E+03_JPRB,1.3883E+03_JPRB/)  
+KAO( :,11,10) = (/&
+ & 1.3673E+03_JPRB,1.3498E+03_JPRB,1.3324E+03_JPRB,1.3154E+03_JPRB,1.2964E+03_JPRB/)  
+KAO( :,12,10) = (/&
+ & 1.2564E+03_JPRB,1.2384E+03_JPRB,1.2210E+03_JPRB,1.2031E+03_JPRB,1.1837E+03_JPRB/)  
+KAO( :,13,10) = (/&
+ & 1.1371E+03_JPRB,1.1192E+03_JPRB,1.1015E+03_JPRB,1.0830E+03_JPRB,1.0644E+03_JPRB/)  
+KAO( :, 1,11) = (/&
+ & 1.0794E+03_JPRB,1.0788E+03_JPRB,1.0790E+03_JPRB,1.0769E+03_JPRB,1.0715E+03_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB14:PART1',1,ZHOOK_HANDLE)
+END SUBROUTINE PART1
+
+
+SUBROUTINE PART2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB14:PART2',0,ZHOOK_HANDLE)
+
+
+KAO( :, 2,11) = (/&
+ & 1.2369E+03_JPRB,1.2394E+03_JPRB,1.2387E+03_JPRB,1.2348E+03_JPRB,1.2284E+03_JPRB/)  
+KAO( :, 3,11) = (/&
+ & 1.4037E+03_JPRB,1.4057E+03_JPRB,1.4048E+03_JPRB,1.4010E+03_JPRB,1.3938E+03_JPRB/)  
+KAO( :, 4,11) = (/&
+ & 1.5772E+03_JPRB,1.5782E+03_JPRB,1.5766E+03_JPRB,1.5700E+03_JPRB,1.5626E+03_JPRB/)  
+KAO( :, 5,11) = (/&
+ & 1.7441E+03_JPRB,1.7459E+03_JPRB,1.7422E+03_JPRB,1.7359E+03_JPRB,1.7270E+03_JPRB/)  
+KAO( :, 6,11) = (/&
+ & 1.9017E+03_JPRB,1.9021E+03_JPRB,1.8960E+03_JPRB,1.8905E+03_JPRB,1.8786E+03_JPRB/)  
+KAO( :, 7,11) = (/&
+ & 2.0395E+03_JPRB,2.0360E+03_JPRB,2.0330E+03_JPRB,2.0229E+03_JPRB,2.0133E+03_JPRB/)  
+KAO( :, 8,11) = (/&
+ & 2.1454E+03_JPRB,2.1404E+03_JPRB,2.1335E+03_JPRB,2.1240E+03_JPRB,2.1091E+03_JPRB/)  
+KAO( :, 9,11) = (/&
+ & 2.2123E+03_JPRB,2.2075E+03_JPRB,2.1945E+03_JPRB,2.1814E+03_JPRB,2.1649E+03_JPRB/)  
+KAO( :,10,11) = (/&
+ & 2.2367E+03_JPRB,2.2244E+03_JPRB,2.2129E+03_JPRB,2.1949E+03_JPRB,2.1755E+03_JPRB/)  
+KAO( :,11,11) = (/&
+ & 2.2036E+03_JPRB,2.1899E+03_JPRB,2.1713E+03_JPRB,2.1494E+03_JPRB,2.1278E+03_JPRB/)  
+KAO( :,12,11) = (/&
+ & 2.1239E+03_JPRB,2.1041E+03_JPRB,2.0806E+03_JPRB,2.0570E+03_JPRB,2.0321E+03_JPRB/)  
+KAO( :,13,11) = (/&
+ & 1.9981E+03_JPRB,1.9741E+03_JPRB,1.9501E+03_JPRB,1.9259E+03_JPRB,1.8992E+03_JPRB/)  
+KAO( :, 1,12) = (/&
+ & 1.1941E+03_JPRB,1.1961E+03_JPRB,1.1962E+03_JPRB,1.1934E+03_JPRB,1.1915E+03_JPRB/)  
+KAO( :, 2,12) = (/&
+ & 1.3953E+03_JPRB,1.3978E+03_JPRB,1.3989E+03_JPRB,1.3989E+03_JPRB,1.3975E+03_JPRB/)  
+KAO( :, 3,12) = (/&
+ & 1.6228E+03_JPRB,1.6258E+03_JPRB,1.6260E+03_JPRB,1.6268E+03_JPRB,1.6242E+03_JPRB/)  
+KAO( :, 4,12) = (/&
+ & 1.8694E+03_JPRB,1.8740E+03_JPRB,1.8767E+03_JPRB,1.8774E+03_JPRB,1.8733E+03_JPRB/)  
+KAO( :, 5,12) = (/&
+ & 2.1317E+03_JPRB,2.1362E+03_JPRB,2.1424E+03_JPRB,2.1420E+03_JPRB,2.1392E+03_JPRB/)  
+KAO( :, 6,12) = (/&
+ & 2.4044E+03_JPRB,2.4133E+03_JPRB,2.4176E+03_JPRB,2.4160E+03_JPRB,2.4115E+03_JPRB/)  
+KAO( :, 7,12) = (/&
+ & 2.6762E+03_JPRB,2.6888E+03_JPRB,2.6899E+03_JPRB,2.6906E+03_JPRB,2.6811E+03_JPRB/)  
+KAO( :, 8,12) = (/&
+ & 2.9393E+03_JPRB,2.9492E+03_JPRB,2.9517E+03_JPRB,2.9490E+03_JPRB,2.9400E+03_JPRB/)  
+KAO( :, 9,12) = (/&
+ & 3.1791E+03_JPRB,3.1838E+03_JPRB,3.1886E+03_JPRB,3.1814E+03_JPRB,3.1717E+03_JPRB/)  
+KAO( :,10,12) = (/&
+ & 3.3778E+03_JPRB,3.3826E+03_JPRB,3.3785E+03_JPRB,3.3711E+03_JPRB,3.3555E+03_JPRB/)  
+KAO( :,11,12) = (/&
+ & 3.5199E+03_JPRB,3.5143E+03_JPRB,3.5061E+03_JPRB,3.4899E+03_JPRB,3.4698E+03_JPRB/)  
+KAO( :,12,12) = (/&
+ & 3.5918E+03_JPRB,3.5807E+03_JPRB,3.5632E+03_JPRB,3.5417E+03_JPRB,3.5132E+03_JPRB/)  
+KAO( :,13,12) = (/&
+ & 3.5817E+03_JPRB,3.5602E+03_JPRB,3.5362E+03_JPRB,3.5063E+03_JPRB,3.4751E+03_JPRB/)  
+KAO( :, 1,13) = (/&
+ & 1.2927E+03_JPRB,1.2959E+03_JPRB,1.2982E+03_JPRB,1.2977E+03_JPRB,1.2950E+03_JPRB/)  
+KAO( :, 2,13) = (/&
+ & 1.5393E+03_JPRB,1.5429E+03_JPRB,1.5452E+03_JPRB,1.5442E+03_JPRB,1.5416E+03_JPRB/)  
+KAO( :, 3,13) = (/&
+ & 1.8235E+03_JPRB,1.8299E+03_JPRB,1.8332E+03_JPRB,1.8330E+03_JPRB,1.8307E+03_JPRB/)  
+KAO( :, 4,13) = (/&
+ & 2.1460E+03_JPRB,2.1562E+03_JPRB,2.1625E+03_JPRB,2.1633E+03_JPRB,2.1623E+03_JPRB/)  
+KAO( :, 5,13) = (/&
+ & 2.5138E+03_JPRB,2.5270E+03_JPRB,2.5346E+03_JPRB,2.5383E+03_JPRB,2.5372E+03_JPRB/)  
+KAO( :, 6,13) = (/&
+ & 2.9233E+03_JPRB,2.9381E+03_JPRB,2.9500E+03_JPRB,2.9556E+03_JPRB,2.9572E+03_JPRB/)  
+KAO( :, 7,13) = (/&
+ & 3.3704E+03_JPRB,3.3895E+03_JPRB,3.4050E+03_JPRB,3.4111E+03_JPRB,3.4146E+03_JPRB/)  
+KAO( :, 8,13) = (/&
+ & 3.8494E+03_JPRB,3.8729E+03_JPRB,3.8913E+03_JPRB,3.9008E+03_JPRB,3.9062E+03_JPRB/)  
+KAO( :, 9,13) = (/&
+ & 4.3484E+03_JPRB,4.3768E+03_JPRB,4.3938E+03_JPRB,4.4075E+03_JPRB,4.4120E+03_JPRB/)  
+KAO( :,10,13) = (/&
+ & 4.8563E+03_JPRB,4.8884E+03_JPRB,4.9080E+03_JPRB,4.9204E+03_JPRB,4.9230E+03_JPRB/)  
+KAO( :,11,13) = (/&
+ & 5.3698E+03_JPRB,5.3968E+03_JPRB,5.4124E+03_JPRB,5.4206E+03_JPRB,5.4132E+03_JPRB/)  
+KAO( :,12,13) = (/&
+ & 5.8401E+03_JPRB,5.8572E+03_JPRB,5.8683E+03_JPRB,5.8634E+03_JPRB,5.8549E+03_JPRB/)  
+KAO( :,13,13) = (/&
+ & 6.2394E+03_JPRB,6.2548E+03_JPRB,6.2534E+03_JPRB,6.2438E+03_JPRB,6.2213E+03_JPRB/)  
+KAO( :, 1,14) = (/&
+ & 1.3753E+03_JPRB,1.3791E+03_JPRB,1.3806E+03_JPRB,1.3820E+03_JPRB,1.3825E+03_JPRB/)  
+KAO( :, 2,14) = (/&
+ & 1.6535E+03_JPRB,1.6590E+03_JPRB,1.6607E+03_JPRB,1.6628E+03_JPRB,1.6629E+03_JPRB/)  
+KAO( :, 3,14) = (/&
+ & 1.9826E+03_JPRB,1.9922E+03_JPRB,1.9976E+03_JPRB,2.0007E+03_JPRB,2.0006E+03_JPRB/)  
+KAO( :, 4,14) = (/&
+ & 2.3745E+03_JPRB,2.3859E+03_JPRB,2.3951E+03_JPRB,2.4030E+03_JPRB,2.4041E+03_JPRB/)  
+KAO( :, 5,14) = (/&
+ & 2.8392E+03_JPRB,2.8553E+03_JPRB,2.8669E+03_JPRB,2.8760E+03_JPRB,2.8790E+03_JPRB/)  
+KAO( :, 6,14) = (/&
+ & 3.3773E+03_JPRB,3.4016E+03_JPRB,3.4204E+03_JPRB,3.4341E+03_JPRB,3.4397E+03_JPRB/)  
+KAO( :, 7,14) = (/&
+ & 4.0025E+03_JPRB,4.0325E+03_JPRB,4.0568E+03_JPRB,4.0775E+03_JPRB,4.0887E+03_JPRB/)  
+KAO( :, 8,14) = (/&
+ & 4.7223E+03_JPRB,4.7649E+03_JPRB,4.7948E+03_JPRB,4.8179E+03_JPRB,4.8302E+03_JPRB/)  
+KAO( :, 9,14) = (/&
+ & 5.5328E+03_JPRB,5.5878E+03_JPRB,5.6319E+03_JPRB,5.6661E+03_JPRB,5.6818E+03_JPRB/)  
+KAO( :,10,14) = (/&
+ & 6.4532E+03_JPRB,6.5137E+03_JPRB,6.5680E+03_JPRB,6.6072E+03_JPRB,6.6322E+03_JPRB/)  
+KAO( :,11,14) = (/&
+ & 7.5145E+03_JPRB,7.5791E+03_JPRB,7.6282E+03_JPRB,7.6633E+03_JPRB,7.6872E+03_JPRB/)  
+KAO( :,12,14) = (/&
+ & 8.6607E+03_JPRB,8.7343E+03_JPRB,8.7852E+03_JPRB,8.8163E+03_JPRB,8.8288E+03_JPRB/)  
+KAO( :,13,14) = (/&
+ & 9.8833E+03_JPRB,9.9529E+03_JPRB,1.0003E+04_JPRB,1.0028E+04_JPRB,1.0035E+04_JPRB/)  
+KAO( :, 1,15) = (/&
+ & 1.4542E+03_JPRB,1.4589E+03_JPRB,1.4604E+03_JPRB,1.4579E+03_JPRB,1.4548E+03_JPRB/)  
+KAO( :, 2,15) = (/&
+ & 1.7565E+03_JPRB,1.7644E+03_JPRB,1.7674E+03_JPRB,1.7671E+03_JPRB,1.7644E+03_JPRB/)  
+KAO( :, 3,15) = (/&
+ & 2.1193E+03_JPRB,2.1295E+03_JPRB,2.1356E+03_JPRB,2.1395E+03_JPRB,2.1395E+03_JPRB/)  
+KAO( :, 4,15) = (/&
+ & 2.5571E+03_JPRB,2.5704E+03_JPRB,2.5775E+03_JPRB,2.5844E+03_JPRB,2.5879E+03_JPRB/)  
+KAO( :, 5,15) = (/&
+ & 3.0796E+03_JPRB,3.0997E+03_JPRB,3.1125E+03_JPRB,3.1195E+03_JPRB,3.1261E+03_JPRB/)  
+KAO( :, 6,15) = (/&
+ & 3.7030E+03_JPRB,3.7342E+03_JPRB,3.7541E+03_JPRB,3.7653E+03_JPRB,3.7758E+03_JPRB/)  
+KAO( :, 7,15) = (/&
+ & 4.4506E+03_JPRB,4.4902E+03_JPRB,4.5215E+03_JPRB,4.5394E+03_JPRB,4.5554E+03_JPRB/)  
+KAO( :, 8,15) = (/&
+ & 5.3453E+03_JPRB,5.3952E+03_JPRB,5.4338E+03_JPRB,5.4624E+03_JPRB,5.4876E+03_JPRB/)  
+KAO( :, 9,15) = (/&
+ & 6.4078E+03_JPRB,6.4736E+03_JPRB,6.5253E+03_JPRB,6.5575E+03_JPRB,6.5911E+03_JPRB/)  
+KAO( :,10,15) = (/&
+ & 7.6598E+03_JPRB,7.7526E+03_JPRB,7.8219E+03_JPRB,7.8681E+03_JPRB,7.9031E+03_JPRB/)  
+KAO( :,11,15) = (/&
+ & 9.1855E+03_JPRB,9.2916E+03_JPRB,9.3732E+03_JPRB,9.4318E+03_JPRB,9.4669E+03_JPRB/)  
+KAO( :,12,15) = (/&
+ & 1.0994E+04_JPRB,1.1100E+04_JPRB,1.1186E+04_JPRB,1.1251E+04_JPRB,1.1289E+04_JPRB/)  
+KAO( :,13,15) = (/&
+ & 1.3104E+04_JPRB,1.3212E+04_JPRB,1.3290E+04_JPRB,1.3346E+04_JPRB,1.3376E+04_JPRB/)  
+KAO( :, 1,16) = (/&
+ & 1.4780E+03_JPRB,1.4827E+03_JPRB,1.4826E+03_JPRB,1.4874E+03_JPRB,1.4915E+03_JPRB/)  
+KAO( :, 2,16) = (/&
+ & 1.7951E+03_JPRB,1.8015E+03_JPRB,1.8036E+03_JPRB,1.8055E+03_JPRB,1.8112E+03_JPRB/)  
+KAO( :, 3,16) = (/&
+ & 2.1816E+03_JPRB,2.1886E+03_JPRB,2.1943E+03_JPRB,2.1956E+03_JPRB,2.1996E+03_JPRB/)  
+KAO( :, 4,16) = (/&
+ & 2.6509E+03_JPRB,2.6606E+03_JPRB,2.6687E+03_JPRB,2.6722E+03_JPRB,2.6753E+03_JPRB/)  
+KAO( :, 5,16) = (/&
+ & 3.2176E+03_JPRB,3.2329E+03_JPRB,3.2455E+03_JPRB,3.2518E+03_JPRB,3.2561E+03_JPRB/)  
+KAO( :, 6,16) = (/&
+ & 3.8984E+03_JPRB,3.9245E+03_JPRB,3.9448E+03_JPRB,3.9570E+03_JPRB,3.9591E+03_JPRB/)  
+KAO( :, 7,16) = (/&
+ & 4.7171E+03_JPRB,4.7549E+03_JPRB,4.7886E+03_JPRB,4.8095E+03_JPRB,4.8182E+03_JPRB/)  
+KAO( :, 8,16) = (/&
+ & 5.7104E+03_JPRB,5.7554E+03_JPRB,5.8029E+03_JPRB,5.8388E+03_JPRB,5.8553E+03_JPRB/)  
+KAO( :, 9,16) = (/&
+ & 6.9103E+03_JPRB,6.9722E+03_JPRB,7.0177E+03_JPRB,7.0728E+03_JPRB,7.1035E+03_JPRB/)  
+KAO( :,10,16) = (/&
+ & 8.3550E+03_JPRB,8.4416E+03_JPRB,8.4942E+03_JPRB,8.5534E+03_JPRB,8.5999E+03_JPRB/)  
+KAO( :,11,16) = (/&
+ & 1.0144E+04_JPRB,1.0238E+04_JPRB,1.0302E+04_JPRB,1.0361E+04_JPRB,1.0397E+04_JPRB/)  
+KAO( :,12,16) = (/&
+ & 1.2283E+04_JPRB,1.2387E+04_JPRB,1.2470E+04_JPRB,1.2524E+04_JPRB,1.2537E+04_JPRB/)  
+KAO( :,13,16) = (/&
+ & 1.4822E+04_JPRB,1.4946E+04_JPRB,1.5038E+04_JPRB,1.5076E+04_JPRB,1.5064E+04_JPRB/)  
+
+!     The array KBO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels < ~100mb and temperatures. The first 
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this pressure 
+!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for
+!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  
+!     The second index, JP, runs from 13 to 59 and refers to the JPth
+!     reference pressure level (see taumol.f for the value of these
+!     pressure levels in mb).  The third index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+
+KBO( :,13, 1) = (/&
+ & 3.9171E-02_JPRB,4.0209E-02_JPRB,4.1806E-02_JPRB,4.4182E-02_JPRB,4.7428E-02_JPRB/)  
+KBO( :,14, 1) = (/&
+ & 3.2490E-02_JPRB,3.3463E-02_JPRB,3.4945E-02_JPRB,3.7104E-02_JPRB,4.0032E-02_JPRB/)  
+KBO( :,15, 1) = (/&
+ & 2.6917E-02_JPRB,2.7822E-02_JPRB,2.9187E-02_JPRB,3.1142E-02_JPRB,3.3701E-02_JPRB/)  
+KBO( :,16, 1) = (/&
+ & 2.2291E-02_JPRB,2.3129E-02_JPRB,2.4369E-02_JPRB,2.6101E-02_JPRB,2.8325E-02_JPRB/)  
+KBO( :,17, 1) = (/&
+ & 1.8463E-02_JPRB,1.9231E-02_JPRB,2.0335E-02_JPRB,2.1845E-02_JPRB,2.3775E-02_JPRB/)  
+KBO( :,18, 1) = (/&
+ & 1.5304E-02_JPRB,1.5992E-02_JPRB,1.6967E-02_JPRB,1.8267E-02_JPRB,1.9954E-02_JPRB/)  
+KBO( :,19, 1) = (/&
+ & 1.2689E-02_JPRB,1.3293E-02_JPRB,1.4142E-02_JPRB,1.5272E-02_JPRB,1.6744E-02_JPRB/)  
+KBO( :,20, 1) = (/&
+ & 1.0525E-02_JPRB,1.1058E-02_JPRB,1.1796E-02_JPRB,1.2786E-02_JPRB,1.4077E-02_JPRB/)  
+KBO( :,21, 1) = (/&
+ & 8.7289E-03_JPRB,9.1958E-03_JPRB,9.8417E-03_JPRB,1.0709E-02_JPRB,1.1847E-02_JPRB/)  
+KBO( :,22, 1) = (/&
+ & 7.2588E-03_JPRB,7.6747E-03_JPRB,8.2530E-03_JPRB,9.0292E-03_JPRB,1.0054E-02_JPRB/)  
+KBO( :,23, 1) = (/&
+ & 6.0387E-03_JPRB,6.4108E-03_JPRB,6.9298E-03_JPRB,7.6312E-03_JPRB,8.5511E-03_JPRB/)  
+KBO( :,24, 1) = (/&
+ & 5.0265E-03_JPRB,5.3630E-03_JPRB,5.8339E-03_JPRB,6.4676E-03_JPRB,7.2886E-03_JPRB/)  
+KBO( :,25, 1) = (/&
+ & 4.1912E-03_JPRB,4.4982E-03_JPRB,4.9297E-03_JPRB,5.4991E-03_JPRB,6.2336E-03_JPRB/)  
+KBO( :,26, 1) = (/&
+ & 3.5050E-03_JPRB,3.7893E-03_JPRB,4.1842E-03_JPRB,4.6973E-03_JPRB,5.3580E-03_JPRB/)  
+KBO( :,27, 1) = (/&
+ & 2.9383E-03_JPRB,3.2032E-03_JPRB,3.5605E-03_JPRB,4.0246E-03_JPRB,4.6201E-03_JPRB/)  
+KBO( :,28, 1) = (/&
+ & 2.4712E-03_JPRB,2.7165E-03_JPRB,3.0381E-03_JPRB,3.4592E-03_JPRB,3.9959E-03_JPRB/)  
+KBO( :,29, 1) = (/&
+ & 2.0871E-03_JPRB,2.3113E-03_JPRB,2.6040E-03_JPRB,2.9852E-03_JPRB,3.4732E-03_JPRB/)  
+KBO( :,30, 1) = (/&
+ & 1.7686E-03_JPRB,1.9719E-03_JPRB,2.2397E-03_JPRB,2.5854E-03_JPRB,3.0292E-03_JPRB/)  
+KBO( :,31, 1) = (/&
+ & 1.5043E-03_JPRB,1.6903E-03_JPRB,1.9338E-03_JPRB,2.2497E-03_JPRB,2.6538E-03_JPRB/)  
+KBO( :,32, 1) = (/&
+ & 1.2840E-03_JPRB,1.4547E-03_JPRB,1.6770E-03_JPRB,1.9662E-03_JPRB,2.3339E-03_JPRB/)  
+KBO( :,33, 1) = (/&
+ & 1.1003E-03_JPRB,1.2566E-03_JPRB,1.4609E-03_JPRB,1.7254E-03_JPRB,2.0596E-03_JPRB/)  
+KBO( :,34, 1) = (/&
+ & 9.4252E-04_JPRB,1.0841E-03_JPRB,1.2703E-03_JPRB,1.5103E-03_JPRB,1.8108E-03_JPRB/)  
+KBO( :,35, 1) = (/&
+ & 7.9883E-04_JPRB,9.2438E-04_JPRB,1.0899E-03_JPRB,1.3019E-03_JPRB,1.5661E-03_JPRB/)  
+KBO( :,36, 1) = (/&
+ & 6.6758E-04_JPRB,7.7591E-04_JPRB,9.1882E-04_JPRB,1.1013E-03_JPRB,1.3278E-03_JPRB/)  
+KBO( :,37, 1) = (/&
+ & 5.4656E-04_JPRB,6.3617E-04_JPRB,7.5472E-04_JPRB,9.0662E-04_JPRB,1.0949E-03_JPRB/)  
+KBO( :,38, 1) = (/&
+ & 4.4691E-04_JPRB,5.2075E-04_JPRB,6.1878E-04_JPRB,7.4481E-04_JPRB,9.0091E-04_JPRB/)  
+KBO( :,39, 1) = (/&
+ & 3.6542E-04_JPRB,4.2618E-04_JPRB,5.0722E-04_JPRB,6.1164E-04_JPRB,7.4104E-04_JPRB/)  
+KBO( :,40, 1) = (/&
+ & 2.9441E-04_JPRB,3.4292E-04_JPRB,4.0801E-04_JPRB,4.9232E-04_JPRB,5.9726E-04_JPRB/)  
+KBO( :,41, 1) = (/&
+ & 2.3677E-04_JPRB,2.7525E-04_JPRB,3.2723E-04_JPRB,3.9501E-04_JPRB,4.7963E-04_JPRB/)  
+KBO( :,42, 1) = (/&
+ & 1.9036E-04_JPRB,2.2088E-04_JPRB,2.6226E-04_JPRB,3.1664E-04_JPRB,3.8484E-04_JPRB/)  
+KBO( :,43, 1) = (/&
+ & 1.5188E-04_JPRB,1.7566E-04_JPRB,2.0797E-04_JPRB,2.5103E-04_JPRB,3.0521E-04_JPRB/)  
+KBO( :,44, 1) = (/&
+ & 1.2085E-04_JPRB,1.3918E-04_JPRB,1.6418E-04_JPRB,1.9786E-04_JPRB,2.4065E-04_JPRB/)  
+KBO( :,45, 1) = (/&
+ & 9.6221E-05_JPRB,1.1032E-04_JPRB,1.2961E-04_JPRB,1.5587E-04_JPRB,1.8956E-04_JPRB/)  
+KBO( :,46, 1) = (/&
+ & 7.6451E-05_JPRB,8.7222E-05_JPRB,1.0196E-04_JPRB,1.2223E-04_JPRB,1.4859E-04_JPRB/)  
+KBO( :,47, 1) = (/&
+ & 6.0518E-05_JPRB,6.8617E-05_JPRB,7.9736E-05_JPRB,9.5061E-05_JPRB,1.1539E-04_JPRB/)  
+KBO( :,48, 1) = (/&
+ & 4.7995E-05_JPRB,5.4058E-05_JPRB,6.2416E-05_JPRB,7.3982E-05_JPRB,8.9568E-05_JPRB/)  
+KBO( :,49, 1) = (/&
+ & 3.8135E-05_JPRB,4.2643E-05_JPRB,4.8908E-05_JPRB,5.7603E-05_JPRB,6.9496E-05_JPRB/)  
+KBO( :,50, 1) = (/&
+ & 3.0417E-05_JPRB,3.3789E-05_JPRB,3.8523E-05_JPRB,4.5097E-05_JPRB,5.4183E-05_JPRB/)  
+KBO( :,51, 1) = (/&
+ & 2.4294E-05_JPRB,2.6856E-05_JPRB,3.0433E-05_JPRB,3.5411E-05_JPRB,4.2342E-05_JPRB/)  
+KBO( :,52, 1) = (/&
+ & 1.9384E-05_JPRB,2.1372E-05_JPRB,2.4069E-05_JPRB,2.7837E-05_JPRB,3.3107E-05_JPRB/)  
+KBO( :,53, 1) = (/&
+ & 1.5445E-05_JPRB,1.7027E-05_JPRB,1.9053E-05_JPRB,2.1903E-05_JPRB,2.5892E-05_JPRB/)  
+KBO( :,54, 1) = (/&
+ & 1.2327E-05_JPRB,1.3603E-05_JPRB,1.5162E-05_JPRB,1.7332E-05_JPRB,2.0379E-05_JPRB/)  
+KBO( :,55, 1) = (/&
+ & 9.8408E-06_JPRB,1.0879E-05_JPRB,1.2096E-05_JPRB,1.3752E-05_JPRB,1.6089E-05_JPRB/)  
+KBO( :,56, 1) = (/&
+ & 7.8284E-06_JPRB,8.6964E-06_JPRB,9.6567E-06_JPRB,1.0920E-05_JPRB,1.2709E-05_JPRB/)  
+KBO( :,57, 1) = (/&
+ & 6.2093E-06_JPRB,6.9436E-06_JPRB,7.7088E-06_JPRB,8.6775E-06_JPRB,1.0049E-05_JPRB/)  
+KBO( :,58, 1) = (/&
+ & 4.9212E-06_JPRB,5.5457E-06_JPRB,6.1634E-06_JPRB,6.9165E-06_JPRB,7.9717E-06_JPRB/)  
+KBO( :,59, 1) = (/&
+ & 3.9876E-06_JPRB,4.5117E-06_JPRB,5.0251E-06_JPRB,5.6457E-06_JPRB,6.5064E-06_JPRB/)  
+KBO( :,13, 2) = (/&
+ & 1.3642E-01_JPRB,1.5192E-01_JPRB,1.7017E-01_JPRB,1.9179E-01_JPRB,2.1776E-01_JPRB/)  
+KBO( :,14, 2) = (/&
+ & 1.1549E-01_JPRB,1.2903E-01_JPRB,1.4505E-01_JPRB,1.6416E-01_JPRB,1.8735E-01_JPRB/)  
+KBO( :,15, 2) = (/&
+ & 9.7601E-02_JPRB,1.0941E-01_JPRB,1.2344E-01_JPRB,1.4044E-01_JPRB,1.6109E-01_JPRB/)  
+KBO( :,16, 2) = (/&
+ & 8.2400E-02_JPRB,9.2656E-02_JPRB,1.0500E-01_JPRB,1.2010E-01_JPRB,1.3841E-01_JPRB/)  
+KBO( :,17, 2) = (/&
+ & 6.9444E-02_JPRB,7.8382E-02_JPRB,8.9340E-02_JPRB,1.0266E-01_JPRB,1.1885E-01_JPRB/)  
+KBO( :,18, 2) = (/&
+ & 5.8427E-02_JPRB,6.6311E-02_JPRB,7.5999E-02_JPRB,8.7777E-02_JPRB,1.0199E-01_JPRB/)  
+KBO( :,19, 2) = (/&
+ & 4.9105E-02_JPRB,5.6056E-02_JPRB,6.4599E-02_JPRB,7.4928E-02_JPRB,8.7316E-02_JPRB/)  
+KBO( :,20, 2) = (/&
+ & 4.1362E-02_JPRB,4.7500E-02_JPRB,5.4972E-02_JPRB,6.3982E-02_JPRB,7.4793E-02_JPRB/)  
+KBO( :,21, 2) = (/&
+ & 3.4892E-02_JPRB,4.0253E-02_JPRB,4.6723E-02_JPRB,5.4540E-02_JPRB,6.3927E-02_JPRB/)  
+KBO( :,22, 2) = (/&
+ & 2.9712E-02_JPRB,3.4419E-02_JPRB,4.0080E-02_JPRB,4.6923E-02_JPRB,5.5143E-02_JPRB/)  
+KBO( :,23, 2) = (/&
+ & 2.5337E-02_JPRB,2.9440E-02_JPRB,3.4407E-02_JPRB,4.0399E-02_JPRB,4.7598E-02_JPRB/)  
+KBO( :,24, 2) = (/&
+ & 2.1646E-02_JPRB,2.5231E-02_JPRB,2.9587E-02_JPRB,3.4849E-02_JPRB,4.1184E-02_JPRB/)  
+KBO( :,25, 2) = (/&
+ & 1.8533E-02_JPRB,2.1686E-02_JPRB,2.5506E-02_JPRB,3.0158E-02_JPRB,3.5787E-02_JPRB/)  
+KBO( :,26, 2) = (/&
+ & 1.5940E-02_JPRB,1.8720E-02_JPRB,2.2097E-02_JPRB,2.6247E-02_JPRB,3.1293E-02_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB14:PART2',1,ZHOOK_HANDLE)
+END SUBROUTINE PART2
+
+
+SUBROUTINE PART3
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB14:PART3',0,ZHOOK_HANDLE)
+
+
+KBO( :,27, 2) = (/&
+ & 1.3738E-02_JPRB,1.6188E-02_JPRB,1.9206E-02_JPRB,2.2922E-02_JPRB,2.7465E-02_JPRB/)  
+KBO( :,28, 2) = (/&
+ & 1.1858E-02_JPRB,1.4036E-02_JPRB,1.6746E-02_JPRB,2.0086E-02_JPRB,2.4173E-02_JPRB/)  
+KBO( :,29, 2) = (/&
+ & 1.0271E-02_JPRB,1.2222E-02_JPRB,1.4667E-02_JPRB,1.7690E-02_JPRB,2.1356E-02_JPRB/)  
+KBO( :,30, 2) = (/&
+ & 8.9226E-03_JPRB,1.0686E-02_JPRB,1.2896E-02_JPRB,1.5632E-02_JPRB,1.8914E-02_JPRB/)  
+KBO( :,31, 2) = (/&
+ & 7.7843E-03_JPRB,9.3890E-03_JPRB,1.1399E-02_JPRB,1.3861E-02_JPRB,1.6797E-02_JPRB/)  
+KBO( :,32, 2) = (/&
+ & 6.8247E-03_JPRB,8.2905E-03_JPRB,1.0116E-02_JPRB,1.2328E-02_JPRB,1.4951E-02_JPRB/)  
+KBO( :,33, 2) = (/&
+ & 6.0149E-03_JPRB,7.3520E-03_JPRB,8.9996E-03_JPRB,1.0989E-02_JPRB,1.3332E-02_JPRB/)  
+KBO( :,34, 2) = (/&
+ & 5.2871E-03_JPRB,6.4941E-03_JPRB,7.9727E-03_JPRB,9.7480E-03_JPRB,1.1841E-02_JPRB/)  
+KBO( :,35, 2) = (/&
+ & 4.5697E-03_JPRB,5.6343E-03_JPRB,6.9361E-03_JPRB,8.4981E-03_JPRB,1.0344E-02_JPRB/)  
+KBO( :,36, 2) = (/&
+ & 3.8668E-03_JPRB,4.7847E-03_JPRB,5.9090E-03_JPRB,7.2600E-03_JPRB,8.8580E-03_JPRB/)  
+KBO( :,37, 2) = (/&
+ & 3.1704E-03_JPRB,3.9381E-03_JPRB,4.8844E-03_JPRB,6.0241E-03_JPRB,7.3747E-03_JPRB/)  
+KBO( :,38, 2) = (/&
+ & 2.5936E-03_JPRB,3.2350E-03_JPRB,4.0298E-03_JPRB,4.9900E-03_JPRB,6.1292E-03_JPRB/)  
+KBO( :,39, 2) = (/&
+ & 2.1215E-03_JPRB,2.6573E-03_JPRB,3.3247E-03_JPRB,4.1335E-03_JPRB,5.0950E-03_JPRB/)  
+KBO( :,40, 2) = (/&
+ & 1.6950E-03_JPRB,2.1322E-03_JPRB,2.6802E-03_JPRB,3.3483E-03_JPRB,4.1474E-03_JPRB/)  
+KBO( :,41, 2) = (/&
+ & 1.3487E-03_JPRB,1.7036E-03_JPRB,2.1515E-03_JPRB,2.7015E-03_JPRB,3.3638E-03_JPRB/)  
+KBO( :,42, 2) = (/&
+ & 1.0717E-03_JPRB,1.3591E-03_JPRB,1.7246E-03_JPRB,2.1766E-03_JPRB,2.7248E-03_JPRB/)  
+KBO( :,43, 2) = (/&
+ & 8.3901E-04_JPRB,1.0683E-03_JPRB,1.3622E-03_JPRB,1.7292E-03_JPRB,2.1771E-03_JPRB/)  
+KBO( :,44, 2) = (/&
+ & 6.5192E-04_JPRB,8.3311E-04_JPRB,1.0673E-03_JPRB,1.3624E-03_JPRB,1.7262E-03_JPRB/)  
+KBO( :,45, 2) = (/&
+ & 5.0592E-04_JPRB,6.4840E-04_JPRB,8.3427E-04_JPRB,1.0708E-03_JPRB,1.3653E-03_JPRB/)  
+KBO( :,46, 2) = (/&
+ & 3.9015E-04_JPRB,5.0066E-04_JPRB,6.4700E-04_JPRB,8.3496E-04_JPRB,1.0720E-03_JPRB/)  
+KBO( :,47, 2) = (/&
+ & 2.9734E-04_JPRB,3.8142E-04_JPRB,4.9495E-04_JPRB,6.4229E-04_JPRB,8.3000E-04_JPRB/)  
+KBO( :,48, 2) = (/&
+ & 2.2635E-04_JPRB,2.9002E-04_JPRB,3.7759E-04_JPRB,4.9244E-04_JPRB,6.4043E-04_JPRB/)  
+KBO( :,49, 2) = (/&
+ & 1.7220E-04_JPRB,2.2034E-04_JPRB,2.8722E-04_JPRB,3.7634E-04_JPRB,4.9229E-04_JPRB/)  
+KBO( :,50, 2) = (/&
+ & 1.3177E-04_JPRB,1.6818E-04_JPRB,2.1937E-04_JPRB,2.8871E-04_JPRB,3.7961E-04_JPRB/)  
+KBO( :,51, 2) = (/&
+ & 1.0109E-04_JPRB,1.2859E-04_JPRB,1.6766E-04_JPRB,2.2156E-04_JPRB,2.9268E-04_JPRB/)  
+KBO( :,52, 2) = (/&
+ & 7.7612E-05_JPRB,9.8243E-05_JPRB,1.2795E-04_JPRB,1.6959E-04_JPRB,2.2502E-04_JPRB/)  
+KBO( :,53, 2) = (/&
+ & 5.9611E-05_JPRB,7.4979E-05_JPRB,9.7483E-05_JPRB,1.2940E-04_JPRB,1.7242E-04_JPRB/)  
+KBO( :,54, 2) = (/&
+ & 4.6116E-05_JPRB,5.7675E-05_JPRB,7.4813E-05_JPRB,9.9354E-05_JPRB,1.3295E-04_JPRB/)  
+KBO( :,55, 2) = (/&
+ & 3.5802E-05_JPRB,4.4529E-05_JPRB,5.7546E-05_JPRB,7.6441E-05_JPRB,1.0268E-04_JPRB/)  
+KBO( :,56, 2) = (/&
+ & 2.7830E-05_JPRB,3.4393E-05_JPRB,4.4221E-05_JPRB,5.8724E-05_JPRB,7.9138E-05_JPRB/)  
+KBO( :,57, 2) = (/&
+ & 2.1657E-05_JPRB,2.6571E-05_JPRB,3.3962E-05_JPRB,4.5038E-05_JPRB,6.0834E-05_JPRB/)  
+KBO( :,58, 2) = (/&
+ & 1.6922E-05_JPRB,2.0621E-05_JPRB,2.6207E-05_JPRB,3.4660E-05_JPRB,4.6890E-05_JPRB/)  
+KBO( :,59, 2) = (/&
+ & 1.3669E-05_JPRB,1.6659E-05_JPRB,2.1203E-05_JPRB,2.8141E-05_JPRB,3.8169E-05_JPRB/)  
+KBO( :,13, 3) = (/&
+ & 4.6528E-01_JPRB,5.5437E-01_JPRB,6.5439E-01_JPRB,7.6387E-01_JPRB,8.8225E-01_JPRB/)  
+KBO( :,14, 3) = (/&
+ & 4.0092E-01_JPRB,4.7676E-01_JPRB,5.6104E-01_JPRB,6.5300E-01_JPRB,7.5323E-01_JPRB/)  
+KBO( :,15, 3) = (/&
+ & 3.4496E-01_JPRB,4.0936E-01_JPRB,4.8004E-01_JPRB,5.5783E-01_JPRB,6.4259E-01_JPRB/)  
+KBO( :,16, 3) = (/&
+ & 2.9656E-01_JPRB,3.5091E-01_JPRB,4.1039E-01_JPRB,4.7609E-01_JPRB,5.4769E-01_JPRB/)  
+KBO( :,17, 3) = (/&
+ & 2.5400E-01_JPRB,2.9985E-01_JPRB,3.5009E-01_JPRB,4.0555E-01_JPRB,4.6622E-01_JPRB/)  
+KBO( :,18, 3) = (/&
+ & 2.1658E-01_JPRB,2.5524E-01_JPRB,2.9779E-01_JPRB,3.4497E-01_JPRB,3.9663E-01_JPRB/)  
+KBO( :,19, 3) = (/&
+ & 1.8401E-01_JPRB,2.1660E-01_JPRB,2.5265E-01_JPRB,2.9293E-01_JPRB,3.3703E-01_JPRB/)  
+KBO( :,20, 3) = (/&
+ & 1.5650E-01_JPRB,1.8401E-01_JPRB,2.1476E-01_JPRB,2.4926E-01_JPRB,2.8701E-01_JPRB/)  
+KBO( :,21, 3) = (/&
+ & 1.3298E-01_JPRB,1.5631E-01_JPRB,1.8271E-01_JPRB,2.1234E-01_JPRB,2.4465E-01_JPRB/)  
+KBO( :,22, 3) = (/&
+ & 1.1417E-01_JPRB,1.3429E-01_JPRB,1.5724E-01_JPRB,1.8276E-01_JPRB,2.1037E-01_JPRB/)  
+KBO( :,23, 3) = (/&
+ & 9.8014E-02_JPRB,1.1558E-01_JPRB,1.3557E-01_JPRB,1.5742E-01_JPRB,1.8091E-01_JPRB/)  
+KBO( :,24, 3) = (/&
+ & 8.4303E-02_JPRB,9.9682E-02_JPRB,1.1696E-01_JPRB,1.3564E-01_JPRB,1.5560E-01_JPRB/)  
+KBO( :,25, 3) = (/&
+ & 7.2747E-02_JPRB,8.6163E-02_JPRB,1.0094E-01_JPRB,1.1688E-01_JPRB,1.3386E-01_JPRB/)  
+KBO( :,26, 3) = (/&
+ & 6.3075E-02_JPRB,7.4679E-02_JPRB,8.7296E-02_JPRB,1.0089E-01_JPRB,1.1530E-01_JPRB/)  
+KBO( :,27, 3) = (/&
+ & 5.4748E-02_JPRB,6.4713E-02_JPRB,7.5472E-02_JPRB,8.7090E-02_JPRB,9.9299E-02_JPRB/)  
+KBO( :,28, 3) = (/&
+ & 4.7545E-02_JPRB,5.6049E-02_JPRB,6.5267E-02_JPRB,7.5162E-02_JPRB,8.5597E-02_JPRB/)  
+KBO( :,29, 3) = (/&
+ & 4.1339E-02_JPRB,4.8610E-02_JPRB,5.6528E-02_JPRB,6.4950E-02_JPRB,7.3930E-02_JPRB/)  
+KBO( :,30, 3) = (/&
+ & 3.5954E-02_JPRB,4.2191E-02_JPRB,4.8989E-02_JPRB,5.6214E-02_JPRB,6.3907E-02_JPRB/)  
+KBO( :,31, 3) = (/&
+ & 3.1296E-02_JPRB,3.6680E-02_JPRB,4.2495E-02_JPRB,4.8776E-02_JPRB,5.5328E-02_JPRB/)  
+KBO( :,32, 3) = (/&
+ & 2.7277E-02_JPRB,3.1929E-02_JPRB,3.6963E-02_JPRB,4.2388E-02_JPRB,4.7945E-02_JPRB/)  
+KBO( :,33, 3) = (/&
+ & 2.3800E-02_JPRB,2.7822E-02_JPRB,3.2216E-02_JPRB,3.6870E-02_JPRB,4.1544E-02_JPRB/)  
+KBO( :,34, 3) = (/&
+ & 2.0672E-02_JPRB,2.4161E-02_JPRB,2.7975E-02_JPRB,3.1921E-02_JPRB,3.5834E-02_JPRB/)  
+KBO( :,35, 3) = (/&
+ & 1.7697E-02_JPRB,2.0710E-02_JPRB,2.3987E-02_JPRB,2.7306E-02_JPRB,3.0580E-02_JPRB/)  
+KBO( :,36, 3) = (/&
+ & 1.4902E-02_JPRB,1.7480E-02_JPRB,2.0264E-02_JPRB,2.3055E-02_JPRB,2.5809E-02_JPRB/)  
+KBO( :,37, 3) = (/&
+ & 1.2253E-02_JPRB,1.4429E-02_JPRB,1.6775E-02_JPRB,1.9126E-02_JPRB,2.1452E-02_JPRB/)  
+KBO( :,38, 3) = (/&
+ & 1.0063E-02_JPRB,1.1900E-02_JPRB,1.3875E-02_JPRB,1.5855E-02_JPRB,1.7824E-02_JPRB/)  
+KBO( :,39, 3) = (/&
+ & 8.2683E-03_JPRB,9.8196E-03_JPRB,1.1482E-02_JPRB,1.3151E-02_JPRB,1.4822E-02_JPRB/)  
+KBO( :,40, 3) = (/&
+ & 6.6706E-03_JPRB,7.9659E-03_JPRB,9.3641E-03_JPRB,1.0772E-02_JPRB,1.2185E-02_JPRB/)  
+KBO( :,41, 3) = (/&
+ & 5.3639E-03_JPRB,6.4425E-03_JPRB,7.6176E-03_JPRB,8.8040E-03_JPRB,9.9984E-03_JPRB/)  
+KBO( :,42, 3) = (/&
+ & 4.3069E-03_JPRB,5.2039E-03_JPRB,6.1906E-03_JPRB,7.1908E-03_JPRB,8.2008E-03_JPRB/)  
+KBO( :,43, 3) = (/&
+ & 3.4140E-03_JPRB,4.1540E-03_JPRB,4.9779E-03_JPRB,5.8242E-03_JPRB,6.6751E-03_JPRB/)  
+KBO( :,44, 3) = (/&
+ & 2.6853E-03_JPRB,3.2927E-03_JPRB,3.9767E-03_JPRB,4.6909E-03_JPRB,5.4086E-03_JPRB/)  
+KBO( :,45, 3) = (/&
+ & 2.1067E-03_JPRB,2.6025E-03_JPRB,3.1683E-03_JPRB,3.7707E-03_JPRB,4.3756E-03_JPRB/)  
+KBO( :,46, 3) = (/&
+ & 1.6407E-03_JPRB,2.0417E-03_JPRB,2.5060E-03_JPRB,3.0128E-03_JPRB,3.5248E-03_JPRB/)  
+KBO( :,47, 3) = (/&
+ & 1.2608E-03_JPRB,1.5817E-03_JPRB,1.9591E-03_JPRB,2.3817E-03_JPRB,2.8141E-03_JPRB/)  
+KBO( :,48, 3) = (/&
+ & 9.6508E-04_JPRB,1.2203E-03_JPRB,1.5253E-03_JPRB,1.8746E-03_JPRB,2.2397E-03_JPRB/)  
+KBO( :,49, 3) = (/&
+ & 7.3585E-04_JPRB,9.3796E-04_JPRB,1.1824E-03_JPRB,1.4683E-03_JPRB,1.7760E-03_JPRB/)  
+KBO( :,50, 3) = (/&
+ & 5.6241E-04_JPRB,7.2242E-04_JPRB,9.1862E-04_JPRB,1.1510E-03_JPRB,1.4096E-03_JPRB/)  
+KBO( :,51, 3) = (/&
+ & 4.2964E-04_JPRB,5.5593E-04_JPRB,7.1290E-04_JPRB,9.0146E-04_JPRB,1.1171E-03_JPRB/)  
+KBO( :,52, 3) = (/&
+ & 3.2726E-04_JPRB,4.2631E-04_JPRB,5.5102E-04_JPRB,7.0359E-04_JPRB,8.8175E-04_JPRB/)  
+KBO( :,53, 3) = (/&
+ & 2.4838E-04_JPRB,3.2560E-04_JPRB,4.2431E-04_JPRB,5.4692E-04_JPRB,6.9286E-04_JPRB/)  
+KBO( :,54, 3) = (/&
+ & 1.8942E-04_JPRB,2.4999E-04_JPRB,3.2832E-04_JPRB,4.2678E-04_JPRB,5.4592E-04_JPRB/)  
+KBO( :,55, 3) = (/&
+ & 1.4456E-04_JPRB,1.9209E-04_JPRB,2.5406E-04_JPRB,3.3310E-04_JPRB,4.3005E-04_JPRB/)  
+KBO( :,56, 3) = (/&
+ & 1.1005E-04_JPRB,1.4722E-04_JPRB,1.9603E-04_JPRB,2.5905E-04_JPRB,3.3773E-04_JPRB/)  
+KBO( :,57, 3) = (/&
+ & 8.3591E-05_JPRB,1.1253E-04_JPRB,1.5073E-04_JPRB,2.0071E-04_JPRB,2.6434E-04_JPRB/)  
+KBO( :,58, 3) = (/&
+ & 6.3746E-05_JPRB,8.6176E-05_JPRB,1.1609E-04_JPRB,1.5578E-04_JPRB,2.0708E-04_JPRB/)  
+KBO( :,59, 3) = (/&
+ & 5.1259E-05_JPRB,6.9567E-05_JPRB,9.4236E-05_JPRB,1.2739E-04_JPRB,1.7028E-04_JPRB/)  
+KBO( :,13, 4) = (/&
+ & 1.7515E+00_JPRB,1.9495E+00_JPRB,2.1521E+00_JPRB,2.3581E+00_JPRB,2.5501E+00_JPRB/)  
+KBO( :,14, 4) = (/&
+ & 1.4765E+00_JPRB,1.6496E+00_JPRB,1.8290E+00_JPRB,2.0062E+00_JPRB,2.1622E+00_JPRB/)  
+KBO( :,15, 4) = (/&
+ & 1.2492E+00_JPRB,1.4011E+00_JPRB,1.5567E+00_JPRB,1.6989E+00_JPRB,1.8218E+00_JPRB/)  
+KBO( :,16, 4) = (/&
+ & 1.0604E+00_JPRB,1.1904E+00_JPRB,1.3179E+00_JPRB,1.4307E+00_JPRB,1.5294E+00_JPRB/)  
+KBO( :,17, 4) = (/&
+ & 8.9936E-01_JPRB,1.0071E+00_JPRB,1.1099E+00_JPRB,1.2005E+00_JPRB,1.2809E+00_JPRB/)  
+KBO( :,18, 4) = (/&
+ & 7.6142E-01_JPRB,8.4995E-01_JPRB,9.3267E-01_JPRB,1.0060E+00_JPRB,1.0720E+00_JPRB/)  
+KBO( :,19, 4) = (/&
+ & 6.4349E-01_JPRB,7.1626E-01_JPRB,7.8316E-01_JPRB,8.4250E-01_JPRB,8.9631E-01_JPRB/)  
+KBO( :,20, 4) = (/&
+ & 5.4427E-01_JPRB,6.0390E-01_JPRB,6.5771E-01_JPRB,7.0547E-01_JPRB,7.4978E-01_JPRB/)  
+KBO( :,21, 4) = (/&
+ & 4.5925E-01_JPRB,5.0777E-01_JPRB,5.5117E-01_JPRB,5.9049E-01_JPRB,6.2731E-01_JPRB/)  
+KBO( :,22, 4) = (/&
+ & 3.8923E-01_JPRB,4.2824E-01_JPRB,4.6341E-01_JPRB,4.9590E-01_JPRB,5.2688E-01_JPRB/)  
+KBO( :,23, 4) = (/&
+ & 3.2937E-01_JPRB,3.6081E-01_JPRB,3.8954E-01_JPRB,4.1663E-01_JPRB,4.4301E-01_JPRB/)  
+KBO( :,24, 4) = (/&
+ & 2.7854E-01_JPRB,3.0409E-01_JPRB,3.2784E-01_JPRB,3.5064E-01_JPRB,3.7278E-01_JPRB/)  
+KBO( :,25, 4) = (/&
+ & 2.3559E-01_JPRB,2.5658E-01_JPRB,2.7647E-01_JPRB,2.9561E-01_JPRB,3.1381E-01_JPRB/)  
+KBO( :,26, 4) = (/&
+ & 1.9962E-01_JPRB,2.1703E-01_JPRB,2.3374E-01_JPRB,2.4963E-01_JPRB,2.6441E-01_JPRB/)  
+KBO( :,27, 4) = (/&
+ & 1.6921E-01_JPRB,1.8380E-01_JPRB,1.9768E-01_JPRB,2.1076E-01_JPRB,2.2287E-01_JPRB/)  
+KBO( :,28, 4) = (/&
+ & 1.4345E-01_JPRB,1.5565E-01_JPRB,1.6716E-01_JPRB,1.7793E-01_JPRB,1.8788E-01_JPRB/)  
+KBO( :,29, 4) = (/&
+ & 1.2177E-01_JPRB,1.3186E-01_JPRB,1.4136E-01_JPRB,1.5019E-01_JPRB,1.5853E-01_JPRB/)  
+KBO( :,30, 4) = (/&
+ & 1.0336E-01_JPRB,1.1168E-01_JPRB,1.1949E-01_JPRB,1.2673E-01_JPRB,1.3395E-01_JPRB/)  
+KBO( :,31, 4) = (/&
+ & 8.7734E-02_JPRB,9.4596E-02_JPRB,1.0101E-01_JPRB,1.0703E-01_JPRB,1.1341E-01_JPRB/)  
+KBO( :,32, 4) = (/&
+ & 7.4481E-02_JPRB,8.0126E-02_JPRB,8.5362E-02_JPRB,9.0546E-02_JPRB,9.6274E-02_JPRB/)  
+KBO( :,33, 4) = (/&
+ & 6.3213E-02_JPRB,6.7862E-02_JPRB,7.2206E-02_JPRB,7.6786E-02_JPRB,8.2026E-02_JPRB/)  
+KBO( :,34, 4) = (/&
+ & 5.3531E-02_JPRB,5.7349E-02_JPRB,6.1073E-02_JPRB,6.5202E-02_JPRB,6.9973E-02_JPRB/)  
+KBO( :,35, 4) = (/&
+ & 4.5020E-02_JPRB,4.8200E-02_JPRB,5.1452E-02_JPRB,5.5159E-02_JPRB,5.9429E-02_JPRB/)  
+KBO( :,36, 4) = (/&
+ & 3.7576E-02_JPRB,4.0274E-02_JPRB,4.3123E-02_JPRB,4.6399E-02_JPRB,5.0146E-02_JPRB/)  
+KBO( :,37, 4) = (/&
+ & 3.1036E-02_JPRB,3.3333E-02_JPRB,3.5789E-02_JPRB,3.8617E-02_JPRB,4.1842E-02_JPRB/)  
+KBO( :,38, 4) = (/&
+ & 2.5615E-02_JPRB,2.7577E-02_JPRB,2.9689E-02_JPRB,3.2124E-02_JPRB,3.4898E-02_JPRB/)  
+KBO( :,39, 4) = (/&
+ & 2.1142E-02_JPRB,2.2815E-02_JPRB,2.4636E-02_JPRB,2.6727E-02_JPRB,2.9117E-02_JPRB/)  
+KBO( :,40, 4) = (/&
+ & 1.7305E-02_JPRB,1.8730E-02_JPRB,2.0274E-02_JPRB,2.2044E-02_JPRB,2.4076E-02_JPRB/)  
+KBO( :,41, 4) = (/&
+ & 1.4141E-02_JPRB,1.5353E-02_JPRB,1.6658E-02_JPRB,1.8154E-02_JPRB,1.9875E-02_JPRB/)  
+KBO( :,42, 4) = (/&
+ & 1.1548E-02_JPRB,1.2579E-02_JPRB,1.3681E-02_JPRB,1.4943E-02_JPRB,1.6400E-02_JPRB/)  
+KBO( :,43, 4) = (/&
+ & 9.3739E-03_JPRB,1.0251E-02_JPRB,1.1178E-02_JPRB,1.2234E-02_JPRB,1.3456E-02_JPRB/)  
+KBO( :,44, 4) = (/&
+ & 7.5827E-03_JPRB,8.3302E-03_JPRB,9.1085E-03_JPRB,9.9874E-03_JPRB,1.1008E-02_JPRB/)  
+KBO( :,45, 4) = (/&
+ & 6.1263E-03_JPRB,6.7635E-03_JPRB,7.4181E-03_JPRB,8.1480E-03_JPRB,8.9981E-03_JPRB/)  
+KBO( :,46, 4) = (/&
+ & 4.9321E-03_JPRB,5.4733E-03_JPRB,6.0244E-03_JPRB,6.6282E-03_JPRB,7.3328E-03_JPRB/)  
+KBO( :,47, 4) = (/&
+ & 3.9434E-03_JPRB,4.4020E-03_JPRB,4.8671E-03_JPRB,5.3648E-03_JPRB,5.9417E-03_JPRB/)  
+KBO( :,48, 4) = (/&
+ & 3.1433E-03_JPRB,3.5325E-03_JPRB,3.9255E-03_JPRB,4.3369E-03_JPRB,4.8087E-03_JPRB/)  
+KBO( :,49, 4) = (/&
+ & 2.4978E-03_JPRB,2.8291E-03_JPRB,3.1605E-03_JPRB,3.5019E-03_JPRB,3.8874E-03_JPRB/)  
+KBO( :,50, 4) = (/&
+ & 1.9842E-03_JPRB,2.2663E-03_JPRB,2.5454E-03_JPRB,2.8316E-03_JPRB,3.1474E-03_JPRB/)  
+KBO( :,51, 4) = (/&
+ & 1.5720E-03_JPRB,1.8131E-03_JPRB,2.0480E-03_JPRB,2.2890E-03_JPRB,2.5485E-03_JPRB/)  
+KBO( :,52, 4) = (/&
+ & 1.2397E-03_JPRB,1.4466E-03_JPRB,1.6443E-03_JPRB,1.8471E-03_JPRB,2.0617E-03_JPRB/)  
+KBO( :,53, 4) = (/&
+ & 9.7269E-04_JPRB,1.1506E-03_JPRB,1.3170E-03_JPRB,1.4882E-03_JPRB,1.6660E-03_JPRB/)  
+KBO( :,54, 4) = (/&
+ & 7.6427E-04_JPRB,9.1578E-04_JPRB,1.0573E-03_JPRB,1.2008E-03_JPRB,1.3494E-03_JPRB/)  
+KBO( :,55, 4) = (/&
+ & 5.9962E-04_JPRB,7.2798E-04_JPRB,8.4833E-04_JPRB,9.6858E-04_JPRB,1.0933E-03_JPRB/)  
+KBO( :,56, 4) = (/&
+ & 4.6816E-04_JPRB,5.7642E-04_JPRB,6.7912E-04_JPRB,7.7992E-04_JPRB,8.8480E-04_JPRB/)  
+KBO( :,57, 4) = (/&
+ & 3.6414E-04_JPRB,4.5440E-04_JPRB,5.4227E-04_JPRB,6.2686E-04_JPRB,7.1489E-04_JPRB/)  
+KBO( :,58, 4) = (/&
+ & 2.8365E-04_JPRB,3.5805E-04_JPRB,4.3286E-04_JPRB,5.0398E-04_JPRB,5.7785E-04_JPRB/)  
+KBO( :,59, 4) = (/&
+ & 2.3044E-04_JPRB,2.9262E-04_JPRB,3.5550E-04_JPRB,4.1574E-04_JPRB,4.7795E-04_JPRB/)  
+KBO( :,13, 5) = (/&
+ & 4.6093E+00_JPRB,4.6787E+00_JPRB,4.7279E+00_JPRB,4.7779E+00_JPRB,4.8597E+00_JPRB/)  
+KBO( :,14, 5) = (/&
+ & 3.8282E+00_JPRB,3.8821E+00_JPRB,3.9279E+00_JPRB,3.9847E+00_JPRB,4.0757E+00_JPRB/)  
+KBO( :,15, 5) = (/&
+ & 3.1725E+00_JPRB,3.2179E+00_JPRB,3.2654E+00_JPRB,3.3336E+00_JPRB,3.4242E+00_JPRB/)  
+KBO( :,16, 5) = (/&
+ & 2.6254E+00_JPRB,2.6717E+00_JPRB,2.7257E+00_JPRB,2.7935E+00_JPRB,2.8681E+00_JPRB/)  
+KBO( :,17, 5) = (/&
+ & 2.1766E+00_JPRB,2.2257E+00_JPRB,2.2759E+00_JPRB,2.3323E+00_JPRB,2.3943E+00_JPRB/)  
+KBO( :,18, 5) = (/&
+ & 1.8104E+00_JPRB,1.8529E+00_JPRB,1.8948E+00_JPRB,1.9412E+00_JPRB,1.9943E+00_JPRB/)  
+KBO( :,19, 5) = (/&
+ & 1.5048E+00_JPRB,1.5390E+00_JPRB,1.5736E+00_JPRB,1.6140E+00_JPRB,1.6604E+00_JPRB/)  
+KBO( :,20, 5) = (/&
+ & 1.2496E+00_JPRB,1.2771E+00_JPRB,1.3070E+00_JPRB,1.3421E+00_JPRB,1.3834E+00_JPRB/)  
+KBO( :,21, 5) = (/&
+ & 1.0376E+00_JPRB,1.0603E+00_JPRB,1.0863E+00_JPRB,1.1161E+00_JPRB,1.1527E+00_JPRB/)  
+KBO( :,22, 5) = (/&
+ & 8.6290E-01_JPRB,8.8239E-01_JPRB,9.0428E-01_JPRB,9.3058E-01_JPRB,9.6346E-01_JPRB/)  
+KBO( :,23, 5) = (/&
+ & 7.1714E-01_JPRB,7.3382E-01_JPRB,7.5282E-01_JPRB,7.7698E-01_JPRB,8.0640E-01_JPRB/)  
+KBO( :,24, 5) = (/&
+ & 5.9554E-01_JPRB,6.0982E-01_JPRB,6.2698E-01_JPRB,6.4926E-01_JPRB,6.7588E-01_JPRB/)  
+KBO( :,25, 5) = (/&
+ & 4.9438E-01_JPRB,5.0695E-01_JPRB,5.2299E-01_JPRB,5.4349E-01_JPRB,5.6801E-01_JPRB/)  
+KBO( :,26, 5) = (/&
+ & 4.1054E-01_JPRB,4.2226E-01_JPRB,4.3732E-01_JPRB,4.5640E-01_JPRB,4.7888E-01_JPRB/)  
+KBO( :,27, 5) = (/&
+ & 3.4145E-01_JPRB,3.5257E-01_JPRB,3.6692E-01_JPRB,3.8422E-01_JPRB,4.0431E-01_JPRB/)  
+KBO( :,28, 5) = (/&
+ & 2.8483E-01_JPRB,2.9535E-01_JPRB,3.0859E-01_JPRB,3.2404E-01_JPRB,3.4192E-01_JPRB/)  
+KBO( :,29, 5) = (/&
+ & 2.3827E-01_JPRB,2.4827E-01_JPRB,2.6013E-01_JPRB,2.7398E-01_JPRB,2.9004E-01_JPRB/)  
+KBO( :,30, 5) = (/&
+ & 1.9983E-01_JPRB,2.0911E-01_JPRB,2.1978E-01_JPRB,2.3227E-01_JPRB,2.4681E-01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB14:PART3',1,ZHOOK_HANDLE)
+END SUBROUTINE PART3
+
+
+SUBROUTINE PART4
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB14:PART4',0,ZHOOK_HANDLE)
+
+
+KBO( :,31, 5) = (/&
+ & 1.6804E-01_JPRB,1.7642E-01_JPRB,1.8613E-01_JPRB,1.9752E-01_JPRB,2.1089E-01_JPRB/)  
+KBO( :,32, 5) = (/&
+ & 1.4159E-01_JPRB,1.4918E-01_JPRB,1.5803E-01_JPRB,1.6847E-01_JPRB,1.8108E-01_JPRB/)  
+KBO( :,33, 5) = (/&
+ & 1.1954E-01_JPRB,1.2642E-01_JPRB,1.3455E-01_JPRB,1.4426E-01_JPRB,1.5610E-01_JPRB/)  
+KBO( :,34, 5) = (/&
+ & 1.0095E-01_JPRB,1.0717E-01_JPRB,1.1462E-01_JPRB,1.2375E-01_JPRB,1.3481E-01_JPRB/)  
+KBO( :,35, 5) = (/&
+ & 8.4924E-02_JPRB,9.0501E-02_JPRB,9.7279E-02_JPRB,1.0569E-01_JPRB,1.1588E-01_JPRB/)  
+KBO( :,36, 5) = (/&
+ & 7.1064E-02_JPRB,7.5984E-02_JPRB,8.2057E-02_JPRB,8.9603E-02_JPRB,9.8847E-02_JPRB/)  
+KBO( :,37, 5) = (/&
+ & 5.8932E-02_JPRB,6.3161E-02_JPRB,6.8439E-02_JPRB,7.5043E-02_JPRB,8.3182E-02_JPRB/)  
+KBO( :,38, 5) = (/&
+ & 4.8865E-02_JPRB,5.2499E-02_JPRB,5.7079E-02_JPRB,6.2859E-02_JPRB,7.0017E-02_JPRB/)  
+KBO( :,39, 5) = (/&
+ & 4.0531E-02_JPRB,4.3655E-02_JPRB,4.7640E-02_JPRB,5.2727E-02_JPRB,5.9016E-02_JPRB/)  
+KBO( :,40, 5) = (/&
+ & 3.3380E-02_JPRB,3.6019E-02_JPRB,3.9402E-02_JPRB,4.3769E-02_JPRB,4.9191E-02_JPRB/)  
+KBO( :,41, 5) = (/&
+ & 2.7463E-02_JPRB,2.9675E-02_JPRB,3.2537E-02_JPRB,3.6268E-02_JPRB,4.0932E-02_JPRB/)  
+KBO( :,42, 5) = (/&
+ & 2.2583E-02_JPRB,2.4432E-02_JPRB,2.6850E-02_JPRB,3.0032E-02_JPRB,3.4041E-02_JPRB/)  
+KBO( :,43, 5) = (/&
+ & 1.8485E-02_JPRB,2.0010E-02_JPRB,2.2013E-02_JPRB,2.4687E-02_JPRB,2.8084E-02_JPRB/)  
+KBO( :,44, 5) = (/&
+ & 1.5098E-02_JPRB,1.6344E-02_JPRB,1.7988E-02_JPRB,2.0205E-02_JPRB,2.3066E-02_JPRB/)  
+KBO( :,45, 5) = (/&
+ & 1.2325E-02_JPRB,1.3345E-02_JPRB,1.4686E-02_JPRB,1.6519E-02_JPRB,1.8916E-02_JPRB/)  
+KBO( :,46, 5) = (/&
+ & 1.0042E-02_JPRB,1.0870E-02_JPRB,1.1952E-02_JPRB,1.3450E-02_JPRB,1.5443E-02_JPRB/)  
+KBO( :,47, 5) = (/&
+ & 8.1480E-03_JPRB,8.8179E-03_JPRB,9.6778E-03_JPRB,1.0879E-02_JPRB,1.2508E-02_JPRB/)  
+KBO( :,48, 5) = (/&
+ & 6.6080E-03_JPRB,7.1502E-03_JPRB,7.8346E-03_JPRB,8.7926E-03_JPRB,1.0114E-02_JPRB/)  
+KBO( :,49, 5) = (/&
+ & 5.3563E-03_JPRB,5.7957E-03_JPRB,6.3414E-03_JPRB,7.1019E-03_JPRB,8.1661E-03_JPRB/)  
+KBO( :,50, 5) = (/&
+ & 4.3491E-03_JPRB,4.7045E-03_JPRB,5.1464E-03_JPRB,5.7505E-03_JPRB,6.6095E-03_JPRB/)  
+KBO( :,51, 5) = (/&
+ & 3.5331E-03_JPRB,3.8208E-03_JPRB,4.1803E-03_JPRB,4.6605E-03_JPRB,5.3531E-03_JPRB/)  
+KBO( :,52, 5) = (/&
+ & 2.8692E-03_JPRB,3.1024E-03_JPRB,3.3948E-03_JPRB,3.7764E-03_JPRB,4.3307E-03_JPRB/)  
+KBO( :,53, 5) = (/&
+ & 2.3284E-03_JPRB,2.5177E-03_JPRB,2.7545E-03_JPRB,3.0575E-03_JPRB,3.4986E-03_JPRB/)  
+KBO( :,54, 5) = (/&
+ & 1.8918E-03_JPRB,2.0476E-03_JPRB,2.2400E-03_JPRB,2.4835E-03_JPRB,2.8364E-03_JPRB/)  
+KBO( :,55, 5) = (/&
+ & 1.5376E-03_JPRB,1.6662E-03_JPRB,1.8225E-03_JPRB,2.0195E-03_JPRB,2.3020E-03_JPRB/)  
+KBO( :,56, 5) = (/&
+ & 1.2490E-03_JPRB,1.3549E-03_JPRB,1.4817E-03_JPRB,1.6414E-03_JPRB,1.8660E-03_JPRB/)  
+KBO( :,57, 5) = (/&
+ & 1.0129E-03_JPRB,1.1011E-03_JPRB,1.2038E-03_JPRB,1.3331E-03_JPRB,1.5112E-03_JPRB/)  
+KBO( :,58, 5) = (/&
+ & 8.2101E-04_JPRB,8.9501E-04_JPRB,9.7881E-04_JPRB,1.0839E-03_JPRB,1.2260E-03_JPRB/)  
+KBO( :,59, 5) = (/&
+ & 6.7572E-04_JPRB,7.3861E-04_JPRB,8.0949E-04_JPRB,8.9902E-04_JPRB,1.0203E-03_JPRB/)  
+KBO( :,13, 6) = (/&
+ & 8.6113E+00_JPRB,8.6083E+00_JPRB,8.6450E+00_JPRB,8.7235E+00_JPRB,8.8556E+00_JPRB/)  
+KBO( :,14, 6) = (/&
+ & 7.2014E+00_JPRB,7.2025E+00_JPRB,7.2397E+00_JPRB,7.3254E+00_JPRB,7.4723E+00_JPRB/)  
+KBO( :,15, 6) = (/&
+ & 6.0044E+00_JPRB,6.0112E+00_JPRB,6.0572E+00_JPRB,6.1588E+00_JPRB,6.3194E+00_JPRB/)  
+KBO( :,16, 6) = (/&
+ & 4.9871E+00_JPRB,5.0011E+00_JPRB,5.0609E+00_JPRB,5.1819E+00_JPRB,5.3526E+00_JPRB/)  
+KBO( :,17, 6) = (/&
+ & 4.1295E+00_JPRB,4.1562E+00_JPRB,4.2380E+00_JPRB,4.3711E+00_JPRB,4.5320E+00_JPRB/)  
+KBO( :,18, 6) = (/&
+ & 3.4160E+00_JPRB,3.4619E+00_JPRB,3.5592E+00_JPRB,3.6837E+00_JPRB,3.8207E+00_JPRB/)  
+KBO( :,19, 6) = (/&
+ & 2.8320E+00_JPRB,2.8936E+00_JPRB,2.9843E+00_JPRB,3.0907E+00_JPRB,3.2080E+00_JPRB/)  
+KBO( :,20, 6) = (/&
+ & 2.3566E+00_JPRB,2.4173E+00_JPRB,2.4971E+00_JPRB,2.5878E+00_JPRB,2.6909E+00_JPRB/)  
+KBO( :,21, 6) = (/&
+ & 1.9610E+00_JPRB,2.0160E+00_JPRB,2.0844E+00_JPRB,2.1648E+00_JPRB,2.2552E+00_JPRB/)  
+KBO( :,22, 6) = (/&
+ & 1.6333E+00_JPRB,1.6835E+00_JPRB,1.7446E+00_JPRB,1.8165E+00_JPRB,1.8978E+00_JPRB/)  
+KBO( :,23, 6) = (/&
+ & 1.3622E+00_JPRB,1.4076E+00_JPRB,1.4625E+00_JPRB,1.5261E+00_JPRB,1.5991E+00_JPRB/)  
+KBO( :,24, 6) = (/&
+ & 1.1385E+00_JPRB,1.1796E+00_JPRB,1.2278E+00_JPRB,1.2843E+00_JPRB,1.3507E+00_JPRB/)  
+KBO( :,25, 6) = (/&
+ & 9.5319E-01_JPRB,9.8944E-01_JPRB,1.0319E+00_JPRB,1.0833E+00_JPRB,1.1441E+00_JPRB/)  
+KBO( :,26, 6) = (/&
+ & 7.9849E-01_JPRB,8.3054E-01_JPRB,8.6957E-01_JPRB,9.1733E-01_JPRB,9.7330E-01_JPRB/)  
+KBO( :,27, 6) = (/&
+ & 6.6899E-01_JPRB,6.9794E-01_JPRB,7.3432E-01_JPRB,7.7906E-01_JPRB,8.3118E-01_JPRB/)  
+KBO( :,28, 6) = (/&
+ & 5.6075E-01_JPRB,5.8798E-01_JPRB,6.2243E-01_JPRB,6.6420E-01_JPRB,7.1248E-01_JPRB/)  
+KBO( :,29, 6) = (/&
+ & 4.7122E-01_JPRB,4.9735E-01_JPRB,5.3000E-01_JPRB,5.6898E-01_JPRB,6.1331E-01_JPRB/)  
+KBO( :,30, 6) = (/&
+ & 3.9766E-01_JPRB,4.2278E-01_JPRB,4.5340E-01_JPRB,4.8935E-01_JPRB,5.2965E-01_JPRB/)  
+KBO( :,31, 6) = (/&
+ & 3.3747E-01_JPRB,3.6139E-01_JPRB,3.8970E-01_JPRB,4.2246E-01_JPRB,4.5888E-01_JPRB/)  
+KBO( :,32, 6) = (/&
+ & 2.8804E-01_JPRB,3.1035E-01_JPRB,3.3634E-01_JPRB,3.6608E-01_JPRB,3.9890E-01_JPRB/)  
+KBO( :,33, 6) = (/&
+ & 2.4714E-01_JPRB,2.6763E-01_JPRB,2.9142E-01_JPRB,3.1834E-01_JPRB,3.4859E-01_JPRB/)  
+KBO( :,34, 6) = (/&
+ & 2.1224E-01_JPRB,2.3103E-01_JPRB,2.5268E-01_JPRB,2.7715E-01_JPRB,3.0529E-01_JPRB/)  
+KBO( :,35, 6) = (/&
+ & 1.8132E-01_JPRB,1.9841E-01_JPRB,2.1788E-01_JPRB,2.4021E-01_JPRB,2.6615E-01_JPRB/)  
+KBO( :,36, 6) = (/&
+ & 1.5372E-01_JPRB,1.6906E-01_JPRB,1.8646E-01_JPRB,2.0663E-01_JPRB,2.3032E-01_JPRB/)  
+KBO( :,37, 6) = (/&
+ & 1.2864E-01_JPRB,1.4207E-01_JPRB,1.5741E-01_JPRB,1.7532E-01_JPRB,1.9647E-01_JPRB/)  
+KBO( :,38, 6) = (/&
+ & 1.0758E-01_JPRB,1.1934E-01_JPRB,1.3284E-01_JPRB,1.4872E-01_JPRB,1.6769E-01_JPRB/)  
+KBO( :,39, 6) = (/&
+ & 9.0014E-02_JPRB,1.0028E-01_JPRB,1.1215E-01_JPRB,1.2626E-01_JPRB,1.4329E-01_JPRB/)  
+KBO( :,40, 6) = (/&
+ & 7.4527E-02_JPRB,8.3327E-02_JPRB,9.3593E-02_JPRB,1.0586E-01_JPRB,1.2084E-01_JPRB/)  
+KBO( :,41, 6) = (/&
+ & 6.1610E-02_JPRB,6.9119E-02_JPRB,7.7943E-02_JPRB,8.8568E-02_JPRB,1.0169E-01_JPRB/)  
+KBO( :,42, 6) = (/&
+ & 5.0916E-02_JPRB,5.7313E-02_JPRB,6.4881E-02_JPRB,7.4072E-02_JPRB,8.5537E-02_JPRB/)  
+KBO( :,43, 6) = (/&
+ & 4.1772E-02_JPRB,4.7174E-02_JPRB,5.3598E-02_JPRB,6.1449E-02_JPRB,7.1316E-02_JPRB/)  
+KBO( :,44, 6) = (/&
+ & 3.4127E-02_JPRB,3.8669E-02_JPRB,4.4102E-02_JPRB,5.0754E-02_JPRB,5.9162E-02_JPRB/)  
+KBO( :,45, 6) = (/&
+ & 2.7847E-02_JPRB,3.1650E-02_JPRB,3.6246E-02_JPRB,4.1879E-02_JPRB,4.9025E-02_JPRB/)  
+KBO( :,46, 6) = (/&
+ & 2.2640E-02_JPRB,2.5789E-02_JPRB,2.9652E-02_JPRB,3.4397E-02_JPRB,4.0430E-02_JPRB/)  
+KBO( :,47, 6) = (/&
+ & 1.8270E-02_JPRB,2.0851E-02_JPRB,2.4060E-02_JPRB,2.8007E-02_JPRB,3.3038E-02_JPRB/)  
+KBO( :,48, 6) = (/&
+ & 1.4718E-02_JPRB,1.6825E-02_JPRB,1.9472E-02_JPRB,2.2745E-02_JPRB,2.6928E-02_JPRB/)  
+KBO( :,49, 6) = (/&
+ & 1.1830E-02_JPRB,1.3552E-02_JPRB,1.5716E-02_JPRB,1.8420E-02_JPRB,2.1884E-02_JPRB/)  
+KBO( :,50, 6) = (/&
+ & 9.5237E-03_JPRB,1.0928E-02_JPRB,1.2702E-02_JPRB,1.4943E-02_JPRB,1.7817E-02_JPRB/)  
+KBO( :,51, 6) = (/&
+ & 7.6692E-03_JPRB,8.8098E-03_JPRB,1.0261E-02_JPRB,1.2117E-02_JPRB,1.4501E-02_JPRB/)  
+KBO( :,52, 6) = (/&
+ & 6.1727E-03_JPRB,7.0883E-03_JPRB,8.2706E-03_JPRB,9.8014E-03_JPRB,1.1773E-02_JPRB/)  
+KBO( :,53, 6) = (/&
+ & 4.9680E-03_JPRB,5.6916E-03_JPRB,6.6514E-03_JPRB,7.9092E-03_JPRB,9.5340E-03_JPRB/)  
+KBO( :,54, 6) = (/&
+ & 4.0130E-03_JPRB,4.5840E-03_JPRB,5.3714E-03_JPRB,6.4027E-03_JPRB,7.7491E-03_JPRB/)  
+KBO( :,55, 6) = (/&
+ & 3.2475E-03_JPRB,3.6955E-03_JPRB,4.3373E-03_JPRB,5.1858E-03_JPRB,6.3030E-03_JPRB/)  
+KBO( :,56, 6) = (/&
+ & 2.6304E-03_JPRB,2.9771E-03_JPRB,3.4979E-03_JPRB,4.1928E-03_JPRB,5.1174E-03_JPRB/)  
+KBO( :,57, 6) = (/&
+ & 2.1330E-03_JPRB,2.3975E-03_JPRB,2.8161E-03_JPRB,3.3836E-03_JPRB,4.1464E-03_JPRB/)  
+KBO( :,58, 6) = (/&
+ & 1.7350E-03_JPRB,1.9351E-03_JPRB,2.2702E-03_JPRB,2.7338E-03_JPRB,3.3646E-03_JPRB/)  
+KBO( :,59, 6) = (/&
+ & 1.4314E-03_JPRB,1.6016E-03_JPRB,1.8884E-03_JPRB,2.2911E-03_JPRB,2.8369E-03_JPRB/)  
+KBO( :,13, 7) = (/&
+ & 1.7998E+01_JPRB,1.8384E+01_JPRB,1.8787E+01_JPRB,1.9175E+01_JPRB,1.9563E+01_JPRB/)  
+KBO( :,14, 7) = (/&
+ & 1.5399E+01_JPRB,1.5722E+01_JPRB,1.6043E+01_JPRB,1.6364E+01_JPRB,1.6692E+01_JPRB/)  
+KBO( :,15, 7) = (/&
+ & 1.3091E+01_JPRB,1.3337E+01_JPRB,1.3597E+01_JPRB,1.3865E+01_JPRB,1.4179E+01_JPRB/)  
+KBO( :,16, 7) = (/&
+ & 1.1057E+01_JPRB,1.1261E+01_JPRB,1.1479E+01_JPRB,1.1723E+01_JPRB,1.2049E+01_JPRB/)  
+KBO( :,17, 7) = (/&
+ & 9.3100E+00_JPRB,9.4784E+00_JPRB,9.6707E+00_JPRB,9.9204E+00_JPRB,1.0268E+01_JPRB/)  
+KBO( :,18, 7) = (/&
+ & 7.8212E+00_JPRB,7.9725E+00_JPRB,8.1612E+00_JPRB,8.4289E+00_JPRB,8.7794E+00_JPRB/)  
+KBO( :,19, 7) = (/&
+ & 6.5480E+00_JPRB,6.6917E+00_JPRB,6.8980E+00_JPRB,7.1803E+00_JPRB,7.5042E+00_JPRB/)  
+KBO( :,20, 7) = (/&
+ & 5.4693E+00_JPRB,5.6250E+00_JPRB,5.8473E+00_JPRB,6.1172E+00_JPRB,6.4007E+00_JPRB/)  
+KBO( :,21, 7) = (/&
+ & 4.5737E+00_JPRB,4.7442E+00_JPRB,4.9649E+00_JPRB,5.1990E+00_JPRB,5.4386E+00_JPRB/)  
+KBO( :,22, 7) = (/&
+ & 3.8455E+00_JPRB,4.0231E+00_JPRB,4.2157E+00_JPRB,4.4147E+00_JPRB,4.6179E+00_JPRB/)  
+KBO( :,23, 7) = (/&
+ & 3.2447E+00_JPRB,3.4045E+00_JPRB,3.5713E+00_JPRB,3.7411E+00_JPRB,3.9201E+00_JPRB/)  
+KBO( :,24, 7) = (/&
+ & 2.7398E+00_JPRB,2.8775E+00_JPRB,3.0223E+00_JPRB,3.1715E+00_JPRB,3.3312E+00_JPRB/)  
+KBO( :,25, 7) = (/&
+ & 2.3131E+00_JPRB,2.4334E+00_JPRB,2.5607E+00_JPRB,2.6934E+00_JPRB,2.8395E+00_JPRB/)  
+KBO( :,26, 7) = (/&
+ & 1.9571E+00_JPRB,2.0628E+00_JPRB,2.1758E+00_JPRB,2.2949E+00_JPRB,2.4331E+00_JPRB/)  
+KBO( :,27, 7) = (/&
+ & 1.6594E+00_JPRB,1.7534E+00_JPRB,1.8527E+00_JPRB,1.9641E+00_JPRB,2.0963E+00_JPRB/)  
+KBO( :,28, 7) = (/&
+ & 1.4114E+00_JPRB,1.4941E+00_JPRB,1.5830E+00_JPRB,1.6881E+00_JPRB,1.8157E+00_JPRB/)  
+KBO( :,29, 7) = (/&
+ & 1.2034E+00_JPRB,1.2757E+00_JPRB,1.3579E+00_JPRB,1.4591E+00_JPRB,1.5811E+00_JPRB/)  
+KBO( :,30, 7) = (/&
+ & 1.0272E+00_JPRB,1.0924E+00_JPRB,1.1710E+00_JPRB,1.2689E+00_JPRB,1.3849E+00_JPRB/)  
+KBO( :,31, 7) = (/&
+ & 8.7820E-01_JPRB,9.4005E-01_JPRB,1.0171E+00_JPRB,1.1110E+00_JPRB,1.2204E+00_JPRB/)  
+KBO( :,32, 7) = (/&
+ & 7.5354E-01_JPRB,8.1419E-01_JPRB,8.8955E-01_JPRB,9.7931E-01_JPRB,1.0823E+00_JPRB/)  
+KBO( :,33, 7) = (/&
+ & 6.5024E-01_JPRB,7.1018E-01_JPRB,7.8337E-01_JPRB,8.6897E-01_JPRB,9.6647E-01_JPRB/)  
+KBO( :,34, 7) = (/&
+ & 5.6343E-01_JPRB,6.2181E-01_JPRB,6.9198E-01_JPRB,7.7311E-01_JPRB,8.6525E-01_JPRB/)  
+KBO( :,35, 7) = (/&
+ & 4.8705E-01_JPRB,5.4236E-01_JPRB,6.0822E-01_JPRB,6.8426E-01_JPRB,7.7067E-01_JPRB/)  
+KBO( :,36, 7) = (/&
+ & 4.1841E-01_JPRB,4.6955E-01_JPRB,5.3016E-01_JPRB,6.0039E-01_JPRB,6.8061E-01_JPRB/)  
+KBO( :,37, 7) = (/&
+ & 3.5459E-01_JPRB,4.0042E-01_JPRB,4.5487E-01_JPRB,5.1825E-01_JPRB,5.9150E-01_JPRB/)  
+KBO( :,38, 7) = (/&
+ & 3.0070E-01_JPRB,3.4160E-01_JPRB,3.9046E-01_JPRB,4.4765E-01_JPRB,5.1436E-01_JPRB/)  
+KBO( :,39, 7) = (/&
+ & 2.5532E-01_JPRB,2.9176E-01_JPRB,3.3565E-01_JPRB,3.8725E-01_JPRB,4.4814E-01_JPRB/)  
+KBO( :,40, 7) = (/&
+ & 2.1409E-01_JPRB,2.4592E-01_JPRB,2.8460E-01_JPRB,3.3041E-01_JPRB,3.8495E-01_JPRB/)  
+KBO( :,41, 7) = (/&
+ & 1.7907E-01_JPRB,2.0691E-01_JPRB,2.4085E-01_JPRB,2.8135E-01_JPRB,3.3001E-01_JPRB/)  
+KBO( :,42, 7) = (/&
+ & 1.4955E-01_JPRB,1.7397E-01_JPRB,2.0378E-01_JPRB,2.3951E-01_JPRB,2.8290E-01_JPRB/)  
+KBO( :,43, 7) = (/&
+ & 1.2365E-01_JPRB,1.4471E-01_JPRB,1.7077E-01_JPRB,2.0210E-01_JPRB,2.4022E-01_JPRB/)  
+KBO( :,44, 7) = (/&
+ & 1.0162E-01_JPRB,1.1963E-01_JPRB,1.4218E-01_JPRB,1.6960E-01_JPRB,2.0293E-01_JPRB/)  
+KBO( :,45, 7) = (/&
+ & 8.3355E-02_JPRB,9.8637E-02_JPRB,1.1807E-01_JPRB,1.4201E-01_JPRB,1.7123E-01_JPRB/)  
+KBO( :,46, 7) = (/&
+ & 6.8005E-02_JPRB,8.0800E-02_JPRB,9.7358E-02_JPRB,1.1807E-01_JPRB,1.4373E-01_JPRB/)  
+KBO( :,47, 7) = (/&
+ & 5.5003E-02_JPRB,6.5496E-02_JPRB,7.9363E-02_JPRB,9.6996E-02_JPRB,1.1911E-01_JPRB/)  
+KBO( :,48, 7) = (/&
+ & 4.4405E-02_JPRB,5.2953E-02_JPRB,6.4487E-02_JPRB,7.9375E-02_JPRB,9.8343E-02_JPRB/)  
+KBO( :,49, 7) = (/&
+ & 3.5783E-02_JPRB,4.2715E-02_JPRB,5.2233E-02_JPRB,6.4713E-02_JPRB,8.0863E-02_JPRB/)  
+KBO( :,50, 7) = (/&
+ & 2.8912E-02_JPRB,3.4525E-02_JPRB,4.2407E-02_JPRB,5.2882E-02_JPRB,6.6632E-02_JPRB/)  
+KBO( :,51, 7) = (/&
+ & 2.3366E-02_JPRB,2.7895E-02_JPRB,3.4405E-02_JPRB,4.3195E-02_JPRB,5.4868E-02_JPRB/)  
+KBO( :,52, 7) = (/&
+ & 1.8859E-02_JPRB,2.2482E-02_JPRB,2.7819E-02_JPRB,3.5177E-02_JPRB,4.5036E-02_JPRB/)  
+KBO( :,53, 7) = (/&
+ & 1.5196E-02_JPRB,1.8070E-02_JPRB,2.2410E-02_JPRB,2.8538E-02_JPRB,3.6840E-02_JPRB/)  
+KBO( :,54, 7) = (/&
+ & 1.2283E-02_JPRB,1.4588E-02_JPRB,1.8123E-02_JPRB,2.3240E-02_JPRB,3.0277E-02_JPRB/)  
+KBO( :,55, 7) = (/&
+ & 9.9346E-03_JPRB,1.1792E-02_JPRB,1.4660E-02_JPRB,1.8922E-02_JPRB,2.4879E-02_JPRB/)  
+KBO( :,56, 7) = (/&
+ & 8.0224E-03_JPRB,9.5173E-03_JPRB,1.1833E-02_JPRB,1.5354E-02_JPRB,2.0376E-02_JPRB/)  
+KBO( :,57, 7) = (/&
+ & 6.4674E-03_JPRB,7.6719E-03_JPRB,9.5269E-03_JPRB,1.2415E-02_JPRB,1.6626E-02_JPRB/)  
+KBO( :,58, 7) = (/&
+ & 5.2243E-03_JPRB,6.1935E-03_JPRB,7.6844E-03_JPRB,1.0054E-02_JPRB,1.3583E-02_JPRB/)  
+KBO( :,59, 7) = (/&
+ & 4.3349E-03_JPRB,5.1717E-03_JPRB,6.4734E-03_JPRB,8.5759E-03_JPRB,1.1721E-02_JPRB/)  
+KBO( :,13, 8) = (/&
+ & 4.8718E+01_JPRB,5.0320E+01_JPRB,5.1858E+01_JPRB,5.3380E+01_JPRB,5.4850E+01_JPRB/)  
+KBO( :,14, 8) = (/&
+ & 4.2766E+01_JPRB,4.4021E+01_JPRB,4.5285E+01_JPRB,4.6520E+01_JPRB,4.7719E+01_JPRB/)  
+KBO( :,15, 8) = (/&
+ & 3.7265E+01_JPRB,3.8285E+01_JPRB,3.9305E+01_JPRB,4.0312E+01_JPRB,4.1280E+01_JPRB/)  
+KBO( :,16, 8) = (/&
+ & 3.2320E+01_JPRB,3.3145E+01_JPRB,3.3978E+01_JPRB,3.4801E+01_JPRB,3.5603E+01_JPRB/)  
+KBO( :,17, 8) = (/&
+ & 2.7905E+01_JPRB,2.8588E+01_JPRB,2.9274E+01_JPRB,2.9948E+01_JPRB,3.0618E+01_JPRB/)  
+KBO( :,18, 8) = (/&
+ & 2.3907E+01_JPRB,2.4472E+01_JPRB,2.5035E+01_JPRB,2.5608E+01_JPRB,2.6240E+01_JPRB/)  
+KBO( :,19, 8) = (/&
+ & 2.0357E+01_JPRB,2.0811E+01_JPRB,2.1283E+01_JPRB,2.1801E+01_JPRB,2.2463E+01_JPRB/)  
+KBO( :,20, 8) = (/&
+ & 1.7248E+01_JPRB,1.7625E+01_JPRB,1.8041E+01_JPRB,1.8568E+01_JPRB,1.9286E+01_JPRB/)  
+KBO( :,21, 8) = (/&
+ & 1.4568E+01_JPRB,1.4891E+01_JPRB,1.5295E+01_JPRB,1.5868E+01_JPRB,1.6645E+01_JPRB/)  
+KBO( :,22, 8) = (/&
+ & 1.2302E+01_JPRB,1.2610E+01_JPRB,1.3060E+01_JPRB,1.3693E+01_JPRB,1.4488E+01_JPRB/)  
+KBO( :,23, 8) = (/&
+ & 1.0398E+01_JPRB,1.0740E+01_JPRB,1.1241E+01_JPRB,1.1898E+01_JPRB,1.2647E+01_JPRB/)  
+KBO( :,24, 8) = (/&
+ & 8.8094E+00_JPRB,9.1977E+00_JPRB,9.7363E+00_JPRB,1.0379E+01_JPRB,1.1057E+01_JPRB/)  
+KBO( :,25, 8) = (/&
+ & 7.5025E+00_JPRB,7.9291E+00_JPRB,8.4687E+00_JPRB,9.0617E+00_JPRB,9.6792E+00_JPRB/)  
+KBO( :,26, 8) = (/&
+ & 6.4368E+00_JPRB,6.8798E+00_JPRB,7.3859E+00_JPRB,7.9241E+00_JPRB,8.4787E+00_JPRB/)  
+KBO( :,27, 8) = (/&
+ & 5.5620E+00_JPRB,5.9868E+00_JPRB,6.4448E+00_JPRB,6.9294E+00_JPRB,7.4281E+00_JPRB/)  
+KBO( :,28, 8) = (/&
+ & 4.8240E+00_JPRB,5.2122E+00_JPRB,5.6283E+00_JPRB,6.0659E+00_JPRB,6.5242E+00_JPRB/)  
+KBO( :,29, 8) = (/&
+ & 4.1944E+00_JPRB,4.5487E+00_JPRB,4.9272E+00_JPRB,5.3264E+00_JPRB,5.7585E+00_JPRB/)  
+KBO( :,30, 8) = (/&
+ & 3.6568E+00_JPRB,3.9803E+00_JPRB,4.3255E+00_JPRB,4.6987E+00_JPRB,5.1122E+00_JPRB/)  
+KBO( :,31, 8) = (/&
+ & 3.2011E+00_JPRB,3.4961E+00_JPRB,3.8161E+00_JPRB,4.1707E+00_JPRB,4.5746E+00_JPRB/)  
+KBO( :,32, 8) = (/&
+ & 2.8138E+00_JPRB,3.0858E+00_JPRB,3.3881E+00_JPRB,3.7312E+00_JPRB,4.1306E+00_JPRB/)  
+KBO( :,33, 8) = (/&
+ & 2.4854E+00_JPRB,2.7408E+00_JPRB,3.0308E+00_JPRB,3.3678E+00_JPRB,3.7681E+00_JPRB/)  
+KBO( :,34, 8) = (/&
+ & 2.2003E+00_JPRB,2.4428E+00_JPRB,2.7239E+00_JPRB,3.0581E+00_JPRB,3.4595E+00_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB14:PART4',1,ZHOOK_HANDLE)
+END SUBROUTINE PART4
+
+
+SUBROUTINE PART5
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB14:PART5',0,ZHOOK_HANDLE)
+
+
+KBO( :,35, 8) = (/&
+ & 1.9399E+00_JPRB,2.1700E+00_JPRB,2.4416E+00_JPRB,2.7703E+00_JPRB,3.1684E+00_JPRB/)  
+KBO( :,36, 8) = (/&
+ & 1.6987E+00_JPRB,1.9152E+00_JPRB,2.1743E+00_JPRB,2.4922E+00_JPRB,2.8785E+00_JPRB/)  
+KBO( :,37, 8) = (/&
+ & 1.4664E+00_JPRB,1.6646E+00_JPRB,1.9059E+00_JPRB,2.2053E+00_JPRB,2.5708E+00_JPRB/)  
+KBO( :,38, 8) = (/&
+ & 1.2664E+00_JPRB,1.4483E+00_JPRB,1.6728E+00_JPRB,1.9542E+00_JPRB,2.2994E+00_JPRB/)  
+KBO( :,39, 8) = (/&
+ & 1.0955E+00_JPRB,1.2626E+00_JPRB,1.4719E+00_JPRB,1.7366E+00_JPRB,2.0631E+00_JPRB/)  
+KBO( :,40, 8) = (/&
+ & 9.3556E-01_JPRB,1.0859E+00_JPRB,1.2762E+00_JPRB,1.5192E+00_JPRB,1.8216E+00_JPRB/)  
+KBO( :,41, 8) = (/&
+ & 7.9800E-01_JPRB,9.3250E-01_JPRB,1.1046E+00_JPRB,1.3263E+00_JPRB,1.6051E+00_JPRB/)  
+KBO( :,42, 8) = (/&
+ & 6.8026E-01_JPRB,8.0111E-01_JPRB,9.5621E-01_JPRB,1.1581E+00_JPRB,1.4148E+00_JPRB/)  
+KBO( :,43, 8) = (/&
+ & 5.7416E-01_JPRB,6.8147E-01_JPRB,8.1937E-01_JPRB,1.0003E+00_JPRB,1.2325E+00_JPRB/)  
+KBO( :,44, 8) = (/&
+ & 4.8192E-01_JPRB,5.7630E-01_JPRB,6.9849E-01_JPRB,8.5859E-01_JPRB,1.0670E+00_JPRB/)  
+KBO( :,45, 8) = (/&
+ & 4.0390E-01_JPRB,4.8662E-01_JPRB,5.9437E-01_JPRB,7.3642E-01_JPRB,9.2241E-01_JPRB/)  
+KBO( :,46, 8) = (/&
+ & 3.3692E-01_JPRB,4.0832E-01_JPRB,5.0245E-01_JPRB,6.2763E-01_JPRB,7.9306E-01_JPRB/)  
+KBO( :,47, 8) = (/&
+ & 2.7795E-01_JPRB,3.3890E-01_JPRB,4.1977E-01_JPRB,5.2809E-01_JPRB,6.7337E-01_JPRB/)  
+KBO( :,48, 8) = (/&
+ & 2.2885E-01_JPRB,2.8056E-01_JPRB,3.4963E-01_JPRB,4.4288E-01_JPRB,5.6978E-01_JPRB/)  
+KBO( :,49, 8) = (/&
+ & 1.8806E-01_JPRB,2.3188E-01_JPRB,2.9038E-01_JPRB,3.7027E-01_JPRB,4.8015E-01_JPRB/)  
+KBO( :,50, 8) = (/&
+ & 1.5486E-01_JPRB,1.9227E-01_JPRB,2.4202E-01_JPRB,3.1061E-01_JPRB,4.0591E-01_JPRB/)  
+KBO( :,51, 8) = (/&
+ & 1.2721E-01_JPRB,1.5949E-01_JPRB,2.0189E-01_JPRB,2.6069E-01_JPRB,3.4317E-01_JPRB/)  
+KBO( :,52, 8) = (/&
+ & 1.0403E-01_JPRB,1.3183E-01_JPRB,1.6821E-01_JPRB,2.1833E-01_JPRB,2.8940E-01_JPRB/)  
+KBO( :,53, 8) = (/&
+ & 8.4647E-02_JPRB,1.0841E-01_JPRB,1.3976E-01_JPRB,1.8251E-01_JPRB,2.4335E-01_JPRB/)  
+KBO( :,54, 8) = (/&
+ & 6.9094E-02_JPRB,8.9415E-02_JPRB,1.1671E-01_JPRB,1.5366E-01_JPRB,2.0608E-01_JPRB/)  
+KBO( :,55, 8) = (/&
+ & 5.6395E-02_JPRB,7.3686E-02_JPRB,9.7324E-02_JPRB,1.2958E-01_JPRB,1.7505E-01_JPRB/)  
+KBO( :,56, 8) = (/&
+ & 4.5872E-02_JPRB,6.0506E-02_JPRB,8.0843E-02_JPRB,1.0885E-01_JPRB,1.4852E-01_JPRB/)  
+KBO( :,57, 8) = (/&
+ & 3.7163E-02_JPRB,4.9485E-02_JPRB,6.6836E-02_JPRB,9.1072E-02_JPRB,1.2569E-01_JPRB/)  
+KBO( :,58, 8) = (/&
+ & 3.0142E-02_JPRB,4.0510E-02_JPRB,5.5284E-02_JPRB,7.6236E-02_JPRB,1.0654E-01_JPRB/)  
+KBO( :,59, 8) = (/&
+ & 2.5655E-02_JPRB,3.4976E-02_JPRB,4.8360E-02_JPRB,6.7750E-02_JPRB,9.5910E-02_JPRB/)  
+KBO( :,13, 9) = (/&
+ & 2.6710E+02_JPRB,2.6292E+02_JPRB,2.6081E+02_JPRB,2.6060E+02_JPRB,2.6216E+02_JPRB/)  
+KBO( :,14, 9) = (/&
+ & 2.2905E+02_JPRB,2.2705E+02_JPRB,2.2701E+02_JPRB,2.2883E+02_JPRB,2.3237E+02_JPRB/)  
+KBO( :,15, 9) = (/&
+ & 1.9681E+02_JPRB,1.9674E+02_JPRB,1.9855E+02_JPRB,2.0218E+02_JPRB,2.0745E+02_JPRB/)  
+KBO( :,16, 9) = (/&
+ & 1.6990E+02_JPRB,1.7146E+02_JPRB,1.7490E+02_JPRB,1.8008E+02_JPRB,1.8673E+02_JPRB/)  
+KBO( :,17, 9) = (/&
+ & 1.4763E+02_JPRB,1.5059E+02_JPRB,1.5539E+02_JPRB,1.6156E+02_JPRB,1.6765E+02_JPRB/)  
+KBO( :,18, 9) = (/&
+ & 1.2952E+02_JPRB,1.3368E+02_JPRB,1.3907E+02_JPRB,1.4438E+02_JPRB,1.4950E+02_JPRB/)  
+KBO( :,19, 9) = (/&
+ & 1.1453E+02_JPRB,1.1924E+02_JPRB,1.2392E+02_JPRB,1.2844E+02_JPRB,1.3271E+02_JPRB/)  
+KBO( :,20, 9) = (/&
+ & 1.0152E+02_JPRB,1.0566E+02_JPRB,1.0970E+02_JPRB,1.1358E+02_JPRB,1.1731E+02_JPRB/)  
+KBO( :,21, 9) = (/&
+ & 8.9460E+01_JPRB,9.3028E+01_JPRB,9.6510E+01_JPRB,9.9904E+01_JPRB,1.0318E+02_JPRB/)  
+KBO( :,22, 9) = (/&
+ & 7.8631E+01_JPRB,8.1700E+01_JPRB,8.4725E+01_JPRB,8.7702E+01_JPRB,9.0717E+01_JPRB/)  
+KBO( :,23, 9) = (/&
+ & 6.8898E+01_JPRB,7.1547E+01_JPRB,7.4194E+01_JPRB,7.6892E+01_JPRB,7.9806E+01_JPRB/)  
+KBO( :,24, 9) = (/&
+ & 6.0312E+01_JPRB,6.2630E+01_JPRB,6.4994E+01_JPRB,6.7556E+01_JPRB,7.0443E+01_JPRB/)  
+KBO( :,25, 9) = (/&
+ & 5.2851E+01_JPRB,5.4897E+01_JPRB,5.7127E+01_JPRB,5.9634E+01_JPRB,6.2506E+01_JPRB/)  
+KBO( :,26, 9) = (/&
+ & 4.6436E+01_JPRB,4.8336E+01_JPRB,5.0486E+01_JPRB,5.2975E+01_JPRB,5.5885E+01_JPRB/)  
+KBO( :,27, 9) = (/&
+ & 4.0910E+01_JPRB,4.2771E+01_JPRB,4.4909E+01_JPRB,4.7425E+01_JPRB,5.0391E+01_JPRB/)  
+KBO( :,28, 9) = (/&
+ & 3.6155E+01_JPRB,3.8062E+01_JPRB,4.0266E+01_JPRB,4.2832E+01_JPRB,4.5858E+01_JPRB/)  
+KBO( :,29, 9) = (/&
+ & 3.2126E+01_JPRB,3.4094E+01_JPRB,3.6392E+01_JPRB,3.9062E+01_JPRB,4.2162E+01_JPRB/)  
+KBO( :,30, 9) = (/&
+ & 2.8724E+01_JPRB,3.0764E+01_JPRB,3.3154E+01_JPRB,3.5941E+01_JPRB,3.9179E+01_JPRB/)  
+KBO( :,31, 9) = (/&
+ & 2.5882E+01_JPRB,2.7995E+01_JPRB,3.0486E+01_JPRB,3.3401E+01_JPRB,3.6792E+01_JPRB/)  
+KBO( :,32, 9) = (/&
+ & 2.3528E+01_JPRB,2.5718E+01_JPRB,2.8311E+01_JPRB,3.1365E+01_JPRB,3.4906E+01_JPRB/)  
+KBO( :,33, 9) = (/&
+ & 2.1587E+01_JPRB,2.3866E+01_JPRB,2.6575E+01_JPRB,2.9769E+01_JPRB,3.3431E+01_JPRB/)  
+KBO( :,34, 9) = (/&
+ & 1.9935E+01_JPRB,2.2294E+01_JPRB,2.5115E+01_JPRB,2.8414E+01_JPRB,3.2169E+01_JPRB/)  
+KBO( :,35, 9) = (/&
+ & 1.8379E+01_JPRB,2.0784E+01_JPRB,2.3667E+01_JPRB,2.7018E+01_JPRB,3.0818E+01_JPRB/)  
+KBO( :,36, 9) = (/&
+ & 1.6837E+01_JPRB,1.9243E+01_JPRB,2.2128E+01_JPRB,2.5484E+01_JPRB,2.9290E+01_JPRB/)  
+KBO( :,37, 9) = (/&
+ & 1.5193E+01_JPRB,1.7529E+01_JPRB,2.0337E+01_JPRB,2.3631E+01_JPRB,2.7386E+01_JPRB/)  
+KBO( :,38, 9) = (/&
+ & 1.3737E+01_JPRB,1.6000E+01_JPRB,1.8725E+01_JPRB,2.1951E+01_JPRB,2.5656E+01_JPRB/)  
+KBO( :,39, 9) = (/&
+ & 1.2460E+01_JPRB,1.4648E+01_JPRB,1.7295E+01_JPRB,2.0455E+01_JPRB,2.4116E+01_JPRB/)  
+KBO( :,40, 9) = (/&
+ & 1.1143E+01_JPRB,1.3211E+01_JPRB,1.5737E+01_JPRB,1.8782E+01_JPRB,2.2346E+01_JPRB/)  
+KBO( :,41, 9) = (/&
+ & 9.9585E+00_JPRB,1.1899E+01_JPRB,1.4300E+01_JPRB,1.7222E+01_JPRB,2.0680E+01_JPRB/)  
+KBO( :,42, 9) = (/&
+ & 8.9074E+00_JPRB,1.0724E+01_JPRB,1.3003E+01_JPRB,1.5806E+01_JPRB,1.9155E+01_JPRB/)  
+KBO( :,43, 9) = (/&
+ & 7.8838E+00_JPRB,9.5638E+00_JPRB,1.1699E+01_JPRB,1.4356E+01_JPRB,1.7558E+01_JPRB/)  
+KBO( :,44, 9) = (/&
+ & 6.9325E+00_JPRB,8.4860E+00_JPRB,1.0467E+01_JPRB,1.2961E+01_JPRB,1.6001E+01_JPRB/)  
+KBO( :,45, 9) = (/&
+ & 6.0822E+00_JPRB,7.5231E+00_JPRB,9.3599E+00_JPRB,1.1689E+01_JPRB,1.4566E+01_JPRB/)  
+KBO( :,46, 9) = (/&
+ & 5.2984E+00_JPRB,6.6221E+00_JPRB,8.3226E+00_JPRB,1.0480E+01_JPRB,1.3187E+01_JPRB/)  
+KBO( :,47, 9) = (/&
+ & 4.5534E+00_JPRB,5.7527E+00_JPRB,7.3122E+00_JPRB,9.2888E+00_JPRB,1.1789E+01_JPRB/)  
+KBO( :,48, 9) = (/&
+ & 3.8949E+00_JPRB,4.9778E+00_JPRB,6.4003E+00_JPRB,8.2164E+00_JPRB,1.0513E+01_JPRB/)  
+KBO( :,49, 9) = (/&
+ & 3.3152E+00_JPRB,4.2900E+00_JPRB,5.5808E+00_JPRB,7.2516E+00_JPRB,9.3536E+00_JPRB/)  
+KBO( :,50, 9) = (/&
+ & 2.8251E+00_JPRB,3.7029E+00_JPRB,4.8790E+00_JPRB,6.4176E+00_JPRB,8.3604E+00_JPRB/)  
+KBO( :,51, 9) = (/&
+ & 2.4036E+00_JPRB,3.1914E+00_JPRB,4.2626E+00_JPRB,5.6760E+00_JPRB,7.4806E+00_JPRB/)  
+KBO( :,52, 9) = (/&
+ & 2.0358E+00_JPRB,2.7394E+00_JPRB,3.7092E+00_JPRB,5.0052E+00_JPRB,6.6771E+00_JPRB/)  
+KBO( :,53, 9) = (/&
+ & 1.7150E+00_JPRB,2.3392E+00_JPRB,3.2126E+00_JPRB,4.3953E+00_JPRB,5.9352E+00_JPRB/)  
+KBO( :,54, 9) = (/&
+ & 1.4515E+00_JPRB,2.0067E+00_JPRB,2.8012E+00_JPRB,3.8817E+00_JPRB,5.3047E+00_JPRB/)  
+KBO( :,55, 9) = (/&
+ & 1.2285E+00_JPRB,1.7230E+00_JPRB,2.4420E+00_JPRB,3.4310E+00_JPRB,4.7490E+00_JPRB/)  
+KBO( :,56, 9) = (/&
+ & 1.0358E+00_JPRB,1.4720E+00_JPRB,2.1203E+00_JPRB,3.0228E+00_JPRB,4.2384E+00_JPRB/)  
+KBO( :,57, 9) = (/&
+ & 8.6995E-01_JPRB,1.2523E+00_JPRB,1.8327E+00_JPRB,2.6527E+00_JPRB,3.7712E+00_JPRB/)  
+KBO( :,58, 9) = (/&
+ & 7.3361E-01_JPRB,1.0673E+00_JPRB,1.5876E+00_JPRB,2.3341E+00_JPRB,3.3624E+00_JPRB/)  
+KBO( :,59, 9) = (/&
+ & 6.5934E-01_JPRB,9.7595E-01_JPRB,1.4746E+00_JPRB,2.2013E+00_JPRB,3.1927E+00_JPRB/)  
+KBO( :,13,10) = (/&
+ & 1.1370E+03_JPRB,1.1193E+03_JPRB,1.1015E+03_JPRB,1.0831E+03_JPRB,1.0644E+03_JPRB/)  
+KBO( :,14,10) = (/&
+ & 1.0077E+03_JPRB,9.9068E+02_JPRB,9.7382E+02_JPRB,9.5646E+02_JPRB,9.3960E+02_JPRB/)  
+KBO( :,15,10) = (/&
+ & 8.7737E+02_JPRB,8.6162E+02_JPRB,8.4607E+02_JPRB,8.3075E+02_JPRB,8.1589E+02_JPRB/)  
+KBO( :,16,10) = (/&
+ & 7.5426E+02_JPRB,7.4028E+02_JPRB,7.2665E+02_JPRB,7.1344E+02_JPRB,7.0172E+02_JPRB/)  
+KBO( :,17,10) = (/&
+ & 6.4244E+02_JPRB,6.3047E+02_JPRB,6.1893E+02_JPRB,6.1102E+02_JPRB,6.1824E+02_JPRB/)  
+KBO( :,18,10) = (/&
+ & 5.4326E+02_JPRB,5.3346E+02_JPRB,5.2903E+02_JPRB,5.4116E+02_JPRB,5.6772E+02_JPRB/)  
+KBO( :,19,10) = (/&
+ & 4.6041E+02_JPRB,4.5657E+02_JPRB,4.6965E+02_JPRB,4.9609E+02_JPRB,5.2443E+02_JPRB/)  
+KBO( :,20,10) = (/&
+ & 3.9849E+02_JPRB,4.0983E+02_JPRB,4.3310E+02_JPRB,4.5724E+02_JPRB,4.8136E+02_JPRB/)  
+KBO( :,21,10) = (/&
+ & 3.5855E+02_JPRB,3.7953E+02_JPRB,4.0064E+02_JPRB,4.2132E+02_JPRB,4.4170E+02_JPRB/)  
+KBO( :,22,10) = (/&
+ & 3.2988E+02_JPRB,3.4998E+02_JPRB,3.6966E+02_JPRB,3.8861E+02_JPRB,4.0637E+02_JPRB/)  
+KBO( :,23,10) = (/&
+ & 3.0132E+02_JPRB,3.2005E+02_JPRB,3.3835E+02_JPRB,3.5588E+02_JPRB,3.7212E+02_JPRB/)  
+KBO( :,24,10) = (/&
+ & 2.7350E+02_JPRB,2.9090E+02_JPRB,3.0784E+02_JPRB,3.2378E+02_JPRB,3.3905E+02_JPRB/)  
+KBO( :,25,10) = (/&
+ & 2.4700E+02_JPRB,2.6316E+02_JPRB,2.7865E+02_JPRB,2.9355E+02_JPRB,3.0831E+02_JPRB/)  
+KBO( :,26,10) = (/&
+ & 2.2261E+02_JPRB,2.3737E+02_JPRB,2.5178E+02_JPRB,2.6623E+02_JPRB,2.8060E+02_JPRB/)  
+KBO( :,27,10) = (/&
+ & 2.0072E+02_JPRB,2.1392E+02_JPRB,2.2763E+02_JPRB,2.4159E+02_JPRB,2.5577E+02_JPRB/)  
+KBO( :,28,10) = (/&
+ & 1.8170E+02_JPRB,1.9355E+02_JPRB,2.0624E+02_JPRB,2.1988E+02_JPRB,2.3391E+02_JPRB/)  
+KBO( :,29,10) = (/&
+ & 1.6551E+02_JPRB,1.7639E+02_JPRB,1.8818E+02_JPRB,2.0102E+02_JPRB,2.1504E+02_JPRB/)  
+KBO( :,30,10) = (/&
+ & 1.5197E+02_JPRB,1.6180E+02_JPRB,1.7277E+02_JPRB,1.8505E+02_JPRB,1.9878E+02_JPRB/)  
+KBO( :,31,10) = (/&
+ & 1.4040E+02_JPRB,1.4951E+02_JPRB,1.5989E+02_JPRB,1.7189E+02_JPRB,1.8557E+02_JPRB/)  
+KBO( :,32,10) = (/&
+ & 1.3052E+02_JPRB,1.3922E+02_JPRB,1.4931E+02_JPRB,1.6122E+02_JPRB,1.7537E+02_JPRB/)  
+KBO( :,33,10) = (/&
+ & 1.2219E+02_JPRB,1.3073E+02_JPRB,1.4066E+02_JPRB,1.5295E+02_JPRB,1.6793E+02_JPRB/)  
+KBO( :,34,10) = (/&
+ & 1.1485E+02_JPRB,1.2346E+02_JPRB,1.3352E+02_JPRB,1.4643E+02_JPRB,1.6252E+02_JPRB/)  
+KBO( :,35,10) = (/&
+ & 1.0786E+02_JPRB,1.1670E+02_JPRB,1.2704E+02_JPRB,1.4054E+02_JPRB,1.5777E+02_JPRB/)  
+KBO( :,36,10) = (/&
+ & 1.0096E+02_JPRB,1.1026E+02_JPRB,1.2083E+02_JPRB,1.3466E+02_JPRB,1.5266E+02_JPRB/)  
+KBO( :,37,10) = (/&
+ & 9.3649E+01_JPRB,1.0335E+02_JPRB,1.1406E+02_JPRB,1.2775E+02_JPRB,1.4574E+02_JPRB/)  
+KBO( :,38,10) = (/&
+ & 8.6966E+01_JPRB,9.7115E+01_JPRB,1.0831E+02_JPRB,1.2180E+02_JPRB,1.3969E+02_JPRB/)  
+KBO( :,39,10) = (/&
+ & 8.1095E+01_JPRB,9.1619E+01_JPRB,1.0337E+02_JPRB,1.1677E+02_JPRB,1.3445E+02_JPRB/)  
+KBO( :,40,10) = (/&
+ & 7.4825E+01_JPRB,8.5620E+01_JPRB,9.7708E+01_JPRB,1.1093E+02_JPRB,1.2782E+02_JPRB/)  
+KBO( :,41,10) = (/&
+ & 6.8987E+01_JPRB,7.9975E+01_JPRB,9.2327E+01_JPRB,1.0557E+02_JPRB,1.2158E+02_JPRB/)  
+KBO( :,42,10) = (/&
+ & 6.3582E+01_JPRB,7.4799E+01_JPRB,8.7292E+01_JPRB,1.0067E+02_JPRB,1.1590E+02_JPRB/)  
+KBO( :,43,10) = (/&
+ & 5.8100E+01_JPRB,6.9336E+01_JPRB,8.1830E+01_JPRB,9.5341E+01_JPRB,1.0982E+02_JPRB/)  
+KBO( :,44,10) = (/&
+ & 5.2932E+01_JPRB,6.3876E+01_JPRB,7.6294E+01_JPRB,8.9737E+01_JPRB,1.0391E+02_JPRB/)  
+KBO( :,45,10) = (/&
+ & 4.8226E+01_JPRB,5.8773E+01_JPRB,7.1006E+01_JPRB,8.4358E+01_JPRB,9.8366E+01_JPRB/)  
+KBO( :,46,10) = (/&
+ & 4.3799E+01_JPRB,5.3806E+01_JPRB,6.5676E+01_JPRB,7.8828E+01_JPRB,9.2780E+01_JPRB/)  
+KBO( :,47,10) = (/&
+ & 3.9350E+01_JPRB,4.8773E+01_JPRB,6.0056E+01_JPRB,7.2887E+01_JPRB,8.6626E+01_JPRB/)  
+KBO( :,48,10) = (/&
+ & 3.5360E+01_JPRB,4.4132E+01_JPRB,5.4788E+01_JPRB,6.7135E+01_JPRB,8.0643E+01_JPRB/)  
+KBO( :,49,10) = (/&
+ & 3.1759E+01_JPRB,3.9919E+01_JPRB,4.9896E+01_JPRB,6.1616E+01_JPRB,7.4794E+01_JPRB/)  
+KBO( :,50,10) = (/&
+ & 2.8696E+01_JPRB,3.6220E+01_JPRB,4.5579E+01_JPRB,5.6700E+01_JPRB,6.9436E+01_JPRB/)  
+KBO( :,51,10) = (/&
+ & 2.5923E+01_JPRB,3.2951E+01_JPRB,4.1668E+01_JPRB,5.2205E+01_JPRB,6.4403E+01_JPRB/)  
+KBO( :,52,10) = (/&
+ & 2.3246E+01_JPRB,2.9949E+01_JPRB,3.8044E+01_JPRB,4.7965E+01_JPRB,5.9561E+01_JPRB/)  
+KBO( :,53,10) = (/&
+ & 2.0677E+01_JPRB,2.7212E+01_JPRB,3.4689E+01_JPRB,4.3992E+01_JPRB,5.4982E+01_JPRB/)  
+KBO( :,54,10) = (/&
+ & 1.8394E+01_JPRB,2.4800E+01_JPRB,3.1896E+01_JPRB,4.0551E+01_JPRB,5.0999E+01_JPRB/)  
+KBO( :,55,10) = (/&
+ & 1.6290E+01_JPRB,2.2530E+01_JPRB,2.9365E+01_JPRB,3.7468E+01_JPRB,4.7358E+01_JPRB/)  
+KBO( :,56,10) = (/&
+ & 1.4293E+01_JPRB,2.0343E+01_JPRB,2.7025E+01_JPRB,3.4587E+01_JPRB,4.3934E+01_JPRB/)  
+KBO( :,57,10) = (/&
+ & 1.2429E+01_JPRB,1.8222E+01_JPRB,2.4765E+01_JPRB,3.1908E+01_JPRB,4.0683E+01_JPRB/)  
+KBO( :,58,10) = (/&
+ & 1.0794E+01_JPRB,1.6277E+01_JPRB,2.2653E+01_JPRB,2.9533E+01_JPRB,3.7782E+01_JPRB/)  
+KBO( :,59,10) = (/&
+ & 1.0104E+01_JPRB,1.5485E+01_JPRB,2.1801E+01_JPRB,2.8646E+01_JPRB,3.6640E+01_JPRB/)  
+KBO( :,13,11) = (/&
+ & 1.9982E+03_JPRB,1.9741E+03_JPRB,1.9501E+03_JPRB,1.9258E+03_JPRB,1.8991E+03_JPRB/)  
+KBO( :,14,11) = (/&
+ & 1.8366E+03_JPRB,1.8117E+03_JPRB,1.7872E+03_JPRB,1.7620E+03_JPRB,1.7357E+03_JPRB/)  
+KBO( :,15,11) = (/&
+ & 1.6593E+03_JPRB,1.6345E+03_JPRB,1.6105E+03_JPRB,1.5852E+03_JPRB,1.5607E+03_JPRB/)  
+KBO( :,16,11) = (/&
+ & 1.4714E+03_JPRB,1.4482E+03_JPRB,1.4256E+03_JPRB,1.4029E+03_JPRB,1.3814E+03_JPRB/)  
+KBO( :,17,11) = (/&
+ & 1.2821E+03_JPRB,1.2610E+03_JPRB,1.2407E+03_JPRB,1.2217E+03_JPRB,1.2035E+03_JPRB/)  
+KBO( :,18,11) = (/&
+ & 1.1031E+03_JPRB,1.0851E+03_JPRB,1.0681E+03_JPRB,1.0526E+03_JPRB,1.0392E+03_JPRB/)  
+KBO( :,19,11) = (/&
+ & 9.4073E+02_JPRB,9.2594E+02_JPRB,9.1239E+02_JPRB,9.0492E+02_JPRB,9.1389E+02_JPRB/)  
+KBO( :,20,11) = (/&
+ & 7.9752E+02_JPRB,7.8605E+02_JPRB,7.8200E+02_JPRB,7.9771E+02_JPRB,8.3070E+02_JPRB/)  
+KBO( :,21,11) = (/&
+ & 6.7621E+02_JPRB,6.7302E+02_JPRB,6.9037E+02_JPRB,7.2680E+02_JPRB,7.7342E+02_JPRB/)  
+KBO( :,22,11) = (/&
+ & 5.8317E+02_JPRB,5.9901E+02_JPRB,6.3384E+02_JPRB,6.7592E+02_JPRB,7.2003E+02_JPRB/)  
+KBO( :,23,11) = (/&
+ & 5.2345E+02_JPRB,5.5460E+02_JPRB,5.9107E+02_JPRB,6.2902E+02_JPRB,6.6965E+02_JPRB/)  
+KBO( :,24,11) = (/&
+ & 4.8603E+02_JPRB,5.1872E+02_JPRB,5.5143E+02_JPRB,5.8645E+02_JPRB,6.2372E+02_JPRB/)  
+KBO( :,25,11) = (/&
+ & 4.5248E+02_JPRB,4.8397E+02_JPRB,5.1550E+02_JPRB,5.4767E+02_JPRB,5.8239E+02_JPRB/)  
+KBO( :,26,11) = (/&
+ & 4.2042E+02_JPRB,4.5092E+02_JPRB,4.8247E+02_JPRB,5.1356E+02_JPRB,5.4667E+02_JPRB/)  
+KBO( :,27,11) = (/&
+ & 3.8993E+02_JPRB,4.2017E+02_JPRB,4.5102E+02_JPRB,4.8294E+02_JPRB,5.1599E+02_JPRB/)  
+KBO( :,28,11) = (/&
+ & 3.6206E+02_JPRB,3.9191E+02_JPRB,4.2290E+02_JPRB,4.5578E+02_JPRB,4.8932E+02_JPRB/)  
+KBO( :,29,11) = (/&
+ & 3.3701E+02_JPRB,3.6670E+02_JPRB,3.9835E+02_JPRB,4.3253E+02_JPRB,4.6763E+02_JPRB/)  
+KBO( :,30,11) = (/&
+ & 3.1435E+02_JPRB,3.4509E+02_JPRB,3.7799E+02_JPRB,4.1371E+02_JPRB,4.5072E+02_JPRB/)  
+KBO( :,31,11) = (/&
+ & 2.9536E+02_JPRB,3.2738E+02_JPRB,3.6185E+02_JPRB,3.9930E+02_JPRB,4.3870E+02_JPRB/)  
+KBO( :,32,11) = (/&
+ & 2.8017E+02_JPRB,3.1347E+02_JPRB,3.5000E+02_JPRB,3.8948E+02_JPRB,4.3126E+02_JPRB/)  
+KBO( :,33,11) = (/&
+ & 2.6842E+02_JPRB,3.0340E+02_JPRB,3.4238E+02_JPRB,3.8415E+02_JPRB,4.2838E+02_JPRB/)  
+KBO( :,34,11) = (/&
+ & 2.5904E+02_JPRB,2.9599E+02_JPRB,3.3729E+02_JPRB,3.8143E+02_JPRB,4.2772E+02_JPRB/)  
+KBO( :,35,11) = (/&
+ & 2.4977E+02_JPRB,2.8824E+02_JPRB,3.3150E+02_JPRB,3.7746E+02_JPRB,4.2524E+02_JPRB/)  
+KBO( :,36,11) = (/&
+ & 2.3959E+02_JPRB,2.7880E+02_JPRB,3.2342E+02_JPRB,3.7070E+02_JPRB,4.1949E+02_JPRB/)  
+KBO( :,37,11) = (/&
+ & 2.2622E+02_JPRB,2.6520E+02_JPRB,3.1011E+02_JPRB,3.5817E+02_JPRB,4.0759E+02_JPRB/)  
+KBO( :,38,11) = (/&
+ & 2.1446E+02_JPRB,2.5305E+02_JPRB,2.9777E+02_JPRB,3.4633E+02_JPRB,3.9620E+02_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB14:PART5',1,ZHOOK_HANDLE)
+END SUBROUTINE PART5
+
+
+SUBROUTINE PART6
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB14:PART6',0,ZHOOK_HANDLE)
+
+
+KBO( :,39,11) = (/&
+ & 2.0431E+02_JPRB,2.4241E+02_JPRB,2.8661E+02_JPRB,3.3540E+02_JPRB,3.8561E+02_JPRB/)  
+KBO( :,40,11) = (/&
+ & 1.9199E+02_JPRB,2.2883E+02_JPRB,2.7179E+02_JPRB,3.2005E+02_JPRB,3.7046E+02_JPRB/)  
+KBO( :,41,11) = (/&
+ & 1.8042E+02_JPRB,2.1588E+02_JPRB,2.5742E+02_JPRB,3.0459E+02_JPRB,3.5513E+02_JPRB/)  
+KBO( :,42,11) = (/&
+ & 1.6997E+02_JPRB,2.0388E+02_JPRB,2.4396E+02_JPRB,2.8977E+02_JPRB,3.4012E+02_JPRB/)  
+KBO( :,43,11) = (/&
+ & 1.5886E+02_JPRB,1.9075E+02_JPRB,2.2902E+02_JPRB,2.7322E+02_JPRB,3.2256E+02_JPRB/)  
+KBO( :,44,11) = (/&
+ & 1.4807E+02_JPRB,1.7777E+02_JPRB,2.1401E+02_JPRB,2.5624E+02_JPRB,3.0398E+02_JPRB/)  
+KBO( :,45,11) = (/&
+ & 1.3833E+02_JPRB,1.6586E+02_JPRB,1.9992E+02_JPRB,2.4015E+02_JPRB,2.8607E+02_JPRB/)  
+KBO( :,46,11) = (/&
+ & 1.2866E+02_JPRB,1.5433E+02_JPRB,1.8602E+02_JPRB,2.2411E+02_JPRB,2.6807E+02_JPRB/)  
+KBO( :,47,11) = (/&
+ & 1.1806E+02_JPRB,1.4268E+02_JPRB,1.7176E+02_JPRB,2.0732E+02_JPRB,2.4896E+02_JPRB/)  
+KBO( :,48,11) = (/&
+ & 1.0762E+02_JPRB,1.3206E+02_JPRB,1.5870E+02_JPRB,1.9169E+02_JPRB,2.3091E+02_JPRB/)  
+KBO( :,49,11) = (/&
+ & 9.7413E+01_JPRB,1.2171E+02_JPRB,1.4684E+02_JPRB,1.7718E+02_JPRB,2.1396E+02_JPRB/)  
+KBO( :,50,11) = (/&
+ & 8.8070E+01_JPRB,1.1204E+02_JPRB,1.3673E+02_JPRB,1.6460E+02_JPRB,1.9898E+02_JPRB/)  
+KBO( :,51,11) = (/&
+ & 7.9391E+01_JPRB,1.0276E+02_JPRB,1.2732E+02_JPRB,1.5339E+02_JPRB,1.8537E+02_JPRB/)  
+KBO( :,52,11) = (/&
+ & 7.1290E+01_JPRB,9.3724E+01_JPRB,1.1803E+02_JPRB,1.4312E+02_JPRB,1.7272E+02_JPRB/)  
+KBO( :,53,11) = (/&
+ & 6.3690E+01_JPRB,8.4888E+01_JPRB,1.0877E+02_JPRB,1.3364E+02_JPRB,1.6093E+02_JPRB/)  
+KBO( :,54,11) = (/&
+ & 5.7252E+01_JPRB,7.7190E+01_JPRB,1.0050E+02_JPRB,1.2512E+02_JPRB,1.5096E+02_JPRB/)  
+KBO( :,55,11) = (/&
+ & 5.1553E+01_JPRB,7.0213E+01_JPRB,9.2633E+01_JPRB,1.1699E+02_JPRB,1.4211E+02_JPRB/)  
+KBO( :,56,11) = (/&
+ & 4.6347E+01_JPRB,6.3641E+01_JPRB,8.4965E+01_JPRB,1.0895E+02_JPRB,1.3389E+02_JPRB/)  
+KBO( :,57,11) = (/&
+ & 4.1558E+01_JPRB,5.7539E+01_JPRB,7.7656E+01_JPRB,1.0100E+02_JPRB,1.2577E+02_JPRB/)  
+KBO( :,58,11) = (/&
+ & 3.7465E+01_JPRB,5.2155E+01_JPRB,7.1065E+01_JPRB,9.3602E+01_JPRB,1.1811E+02_JPRB/)  
+KBO( :,59,11) = (/&
+ & 3.5865E+01_JPRB,5.0074E+01_JPRB,6.8488E+01_JPRB,9.0703E+01_JPRB,1.1503E+02_JPRB/)  
+KBO( :,13,12) = (/&
+ & 3.5818E+03_JPRB,3.5602E+03_JPRB,3.5361E+03_JPRB,3.5062E+03_JPRB,3.4753E+03_JPRB/)  
+KBO( :,14,12) = (/&
+ & 3.4873E+03_JPRB,3.4617E+03_JPRB,3.4320E+03_JPRB,3.3978E+03_JPRB,3.3640E+03_JPRB/)  
+KBO( :,15,12) = (/&
+ & 3.3174E+03_JPRB,3.2873E+03_JPRB,3.2522E+03_JPRB,3.2184E+03_JPRB,3.1823E+03_JPRB/)  
+KBO( :,16,12) = (/&
+ & 3.0916E+03_JPRB,3.0581E+03_JPRB,3.0238E+03_JPRB,2.9909E+03_JPRB,2.9539E+03_JPRB/)  
+KBO( :,17,12) = (/&
+ & 2.8257E+03_JPRB,2.7923E+03_JPRB,2.7615E+03_JPRB,2.7297E+03_JPRB,2.6960E+03_JPRB/)  
+KBO( :,18,12) = (/&
+ & 2.5404E+03_JPRB,2.5105E+03_JPRB,2.4823E+03_JPRB,2.4526E+03_JPRB,2.4250E+03_JPRB/)  
+KBO( :,19,12) = (/&
+ & 2.2483E+03_JPRB,2.2241E+03_JPRB,2.1993E+03_JPRB,2.1755E+03_JPRB,2.1543E+03_JPRB/)  
+KBO( :,20,12) = (/&
+ & 1.9604E+03_JPRB,1.9400E+03_JPRB,1.9209E+03_JPRB,1.9048E+03_JPRB,1.8895E+03_JPRB/)  
+KBO( :,21,12) = (/&
+ & 1.6892E+03_JPRB,1.6737E+03_JPRB,1.6614E+03_JPRB,1.6516E+03_JPRB,1.6529E+03_JPRB/)  
+KBO( :,22,12) = (/&
+ & 1.4436E+03_JPRB,1.4342E+03_JPRB,1.4286E+03_JPRB,1.4399E+03_JPRB,1.4734E+03_JPRB/)  
+KBO( :,23,12) = (/&
+ & 1.2278E+03_JPRB,1.2256E+03_JPRB,1.2434E+03_JPRB,1.2846E+03_JPRB,1.3446E+03_JPRB/)  
+KBO( :,24,12) = (/&
+ & 1.0469E+03_JPRB,1.0648E+03_JPRB,1.1103E+03_JPRB,1.1758E+03_JPRB,1.2604E+03_JPRB/)  
+KBO( :,25,12) = (/&
+ & 9.1261E+02_JPRB,9.5264E+02_JPRB,1.0193E+03_JPRB,1.1064E+03_JPRB,1.2100E+03_JPRB/)  
+KBO( :,26,12) = (/&
+ & 8.2117E+02_JPRB,8.8093E+02_JPRB,9.6383E+02_JPRB,1.0654E+03_JPRB,1.1751E+03_JPRB/)  
+KBO( :,27,12) = (/&
+ & 7.6353E+02_JPRB,8.3890E+02_JPRB,9.3016E+02_JPRB,1.0327E+03_JPRB,1.1460E+03_JPRB/)  
+KBO( :,28,12) = (/&
+ & 7.3032E+02_JPRB,8.1065E+02_JPRB,9.0335E+02_JPRB,1.0079E+03_JPRB,1.1263E+03_JPRB/)  
+KBO( :,29,12) = (/&
+ & 7.0685E+02_JPRB,7.8909E+02_JPRB,8.8424E+02_JPRB,9.9311E+02_JPRB,1.1170E+03_JPRB/)  
+KBO( :,30,12) = (/&
+ & 6.8897E+02_JPRB,7.7363E+02_JPRB,8.7322E+02_JPRB,9.8778E+02_JPRB,1.1175E+03_JPRB/)  
+KBO( :,31,12) = (/&
+ & 6.7689E+02_JPRB,7.6589E+02_JPRB,8.7126E+02_JPRB,9.9171E+02_JPRB,1.1269E+03_JPRB/)  
+KBO( :,32,12) = (/&
+ & 6.7137E+02_JPRB,7.6614E+02_JPRB,8.7757E+02_JPRB,1.0041E+03_JPRB,1.1438E+03_JPRB/)  
+KBO( :,33,12) = (/&
+ & 6.7295E+02_JPRB,7.7394E+02_JPRB,8.9109E+02_JPRB,1.0224E+03_JPRB,1.1662E+03_JPRB/)  
+KBO( :,34,12) = (/&
+ & 6.7760E+02_JPRB,7.8360E+02_JPRB,9.0569E+02_JPRB,1.0406E+03_JPRB,1.1879E+03_JPRB/)  
+KBO( :,35,12) = (/&
+ & 6.7716E+02_JPRB,7.8671E+02_JPRB,9.1119E+02_JPRB,1.0486E+03_JPRB,1.1979E+03_JPRB/)  
+KBO( :,36,12) = (/&
+ & 6.6904E+02_JPRB,7.7952E+02_JPRB,9.0494E+02_JPRB,1.0434E+03_JPRB,1.1930E+03_JPRB/)  
+KBO( :,37,12) = (/&
+ & 6.4763E+02_JPRB,7.5648E+02_JPRB,8.8059E+02_JPRB,1.0176E+03_JPRB,1.1662E+03_JPRB/)  
+KBO( :,38,12) = (/&
+ & 6.2716E+02_JPRB,7.3431E+02_JPRB,8.5661E+02_JPRB,9.9212E+02_JPRB,1.1395E+03_JPRB/)  
+KBO( :,39,12) = (/&
+ & 6.0818E+02_JPRB,7.1366E+02_JPRB,8.3407E+02_JPRB,9.6793E+02_JPRB,1.1141E+03_JPRB/)  
+KBO( :,40,12) = (/&
+ & 5.8003E+02_JPRB,6.8275E+02_JPRB,7.9982E+02_JPRB,9.3064E+02_JPRB,1.0742E+03_JPRB/)  
+KBO( :,41,12) = (/&
+ & 5.5133E+02_JPRB,6.5206E+02_JPRB,7.6547E+02_JPRB,8.9303E+02_JPRB,1.0336E+03_JPRB/)  
+KBO( :,42,12) = (/&
+ & 5.2305E+02_JPRB,6.2298E+02_JPRB,7.3258E+02_JPRB,8.5660E+02_JPRB,9.9409E+02_JPRB/)  
+KBO( :,43,12) = (/&
+ & 4.8966E+02_JPRB,5.8921E+02_JPRB,6.9465E+02_JPRB,8.1454E+02_JPRB,9.4783E+02_JPRB/)  
+KBO( :,44,12) = (/&
+ & 4.5450E+02_JPRB,5.5350E+02_JPRB,6.5588E+02_JPRB,7.7082E+02_JPRB,8.9980E+02_JPRB/)  
+KBO( :,45,12) = (/&
+ & 4.2021E+02_JPRB,5.1820E+02_JPRB,6.1912E+02_JPRB,7.2914E+02_JPRB,8.5336E+02_JPRB/)  
+KBO( :,46,12) = (/&
+ & 3.8545E+02_JPRB,4.8121E+02_JPRB,5.8143E+02_JPRB,6.8674E+02_JPRB,8.0608E+02_JPRB/)  
+KBO( :,47,12) = (/&
+ & 3.4881E+02_JPRB,4.4053E+02_JPRB,5.3980E+02_JPRB,6.4195E+02_JPRB,7.5551E+02_JPRB/)  
+KBO( :,48,12) = (/&
+ & 3.1491E+02_JPRB,4.0104E+02_JPRB,4.9870E+02_JPRB,5.9963E+02_JPRB,7.0738E+02_JPRB/)  
+KBO( :,49,12) = (/&
+ & 2.8368E+02_JPRB,3.6400E+02_JPRB,4.5807E+02_JPRB,5.5813E+02_JPRB,6.6173E+02_JPRB/)  
+KBO( :,50,12) = (/&
+ & 2.5677E+02_JPRB,3.3132E+02_JPRB,4.2070E+02_JPRB,5.1964E+02_JPRB,6.2120E+02_JPRB/)  
+KBO( :,51,12) = (/&
+ & 2.3306E+02_JPRB,3.0179E+02_JPRB,3.8584E+02_JPRB,4.8266E+02_JPRB,5.8343E+02_JPRB/)  
+KBO( :,52,12) = (/&
+ & 2.1156E+02_JPRB,2.7447E+02_JPRB,3.5296E+02_JPRB,4.4605E+02_JPRB,5.4606E+02_JPRB/)  
+KBO( :,53,12) = (/&
+ & 1.9230E+02_JPRB,2.4924E+02_JPRB,3.2214E+02_JPRB,4.1028E+02_JPRB,5.0889E+02_JPRB/)  
+KBO( :,54,12) = (/&
+ & 1.7631E+02_JPRB,2.2814E+02_JPRB,2.9584E+02_JPRB,3.7892E+02_JPRB,4.7521E+02_JPRB/)  
+KBO( :,55,12) = (/&
+ & 1.6135E+02_JPRB,2.0966E+02_JPRB,2.7215E+02_JPRB,3.5038E+02_JPRB,4.4318E+02_JPRB/)  
+KBO( :,56,12) = (/&
+ & 1.4671E+02_JPRB,1.9290E+02_JPRB,2.5021E+02_JPRB,3.2348E+02_JPRB,4.1193E+02_JPRB/)  
+KBO( :,57,12) = (/&
+ & 1.3244E+02_JPRB,1.7761E+02_JPRB,2.2999E+02_JPRB,2.9808E+02_JPRB,3.8198E+02_JPRB/)  
+KBO( :,58,12) = (/&
+ & 1.1934E+02_JPRB,1.6351E+02_JPRB,2.1236E+02_JPRB,2.7551E+02_JPRB,3.5480E+02_JPRB/)  
+KBO( :,59,12) = (/&
+ & 1.1416E+02_JPRB,1.5788E+02_JPRB,2.0569E+02_JPRB,2.6705E+02_JPRB,3.4428E+02_JPRB/)  
+KBO( :,13,13) = (/&
+ & 6.2395E+03_JPRB,6.2548E+03_JPRB,6.2528E+03_JPRB,6.2437E+03_JPRB,6.2212E+03_JPRB/)  
+KBO( :,14,13) = (/&
+ & 6.5506E+03_JPRB,6.5502E+03_JPRB,6.5372E+03_JPRB,6.5181E+03_JPRB,6.4862E+03_JPRB/)  
+KBO( :,15,13) = (/&
+ & 6.7305E+03_JPRB,6.7173E+03_JPRB,6.7025E+03_JPRB,6.6735E+03_JPRB,6.6396E+03_JPRB/)  
+KBO( :,16,13) = (/&
+ & 6.7735E+03_JPRB,6.7593E+03_JPRB,6.7329E+03_JPRB,6.7018E+03_JPRB,6.6632E+03_JPRB/)  
+KBO( :,17,13) = (/&
+ & 6.6866E+03_JPRB,6.6652E+03_JPRB,6.6418E+03_JPRB,6.6109E+03_JPRB,6.5815E+03_JPRB/)  
+KBO( :,18,13) = (/&
+ & 6.4678E+03_JPRB,6.4550E+03_JPRB,6.4343E+03_JPRB,6.4161E+03_JPRB,6.3909E+03_JPRB/)  
+KBO( :,19,13) = (/&
+ & 6.1502E+03_JPRB,6.1407E+03_JPRB,6.1364E+03_JPRB,6.1306E+03_JPRB,6.1254E+03_JPRB/)  
+KBO( :,20,13) = (/&
+ & 5.7689E+03_JPRB,5.7735E+03_JPRB,5.7841E+03_JPRB,5.7948E+03_JPRB,5.8088E+03_JPRB/)  
+KBO( :,21,13) = (/&
+ & 5.3403E+03_JPRB,5.3684E+03_JPRB,5.3985E+03_JPRB,5.4338E+03_JPRB,5.4704E+03_JPRB/)  
+KBO( :,22,13) = (/&
+ & 4.8996E+03_JPRB,4.9455E+03_JPRB,5.0039E+03_JPRB,5.0665E+03_JPRB,5.1301E+03_JPRB/)  
+KBO( :,23,13) = (/&
+ & 4.4632E+03_JPRB,4.5382E+03_JPRB,4.6203E+03_JPRB,4.7095E+03_JPRB,4.8061E+03_JPRB/)  
+KBO( :,24,13) = (/&
+ & 4.0592E+03_JPRB,4.1561E+03_JPRB,4.2652E+03_JPRB,4.3841E+03_JPRB,4.5045E+03_JPRB/)  
+KBO( :,25,13) = (/&
+ & 3.6916E+03_JPRB,3.8157E+03_JPRB,3.9506E+03_JPRB,4.0939E+03_JPRB,4.2439E+03_JPRB/)  
+KBO( :,26,13) = (/&
+ & 3.3695E+03_JPRB,3.5229E+03_JPRB,3.6811E+03_JPRB,3.8560E+03_JPRB,4.0438E+03_JPRB/)  
+KBO( :,27,13) = (/&
+ & 3.0970E+03_JPRB,3.2745E+03_JPRB,3.4707E+03_JPRB,3.6834E+03_JPRB,3.9050E+03_JPRB/)  
+KBO( :,28,13) = (/&
+ & 2.8706E+03_JPRB,3.0888E+03_JPRB,3.3231E+03_JPRB,3.5664E+03_JPRB,3.8148E+03_JPRB/)  
+KBO( :,29,13) = (/&
+ & 2.7113E+03_JPRB,2.9644E+03_JPRB,3.2288E+03_JPRB,3.4982E+03_JPRB,3.7656E+03_JPRB/)  
+KBO( :,30,13) = (/&
+ & 2.6074E+03_JPRB,2.8885E+03_JPRB,3.1778E+03_JPRB,3.4648E+03_JPRB,3.7470E+03_JPRB/)  
+KBO( :,31,13) = (/&
+ & 2.5496E+03_JPRB,2.8533E+03_JPRB,3.1606E+03_JPRB,3.4611E+03_JPRB,3.7527E+03_JPRB/)  
+KBO( :,32,13) = (/&
+ & 2.5294E+03_JPRB,2.8506E+03_JPRB,3.1699E+03_JPRB,3.4785E+03_JPRB,3.7755E+03_JPRB/)  
+KBO( :,33,13) = (/&
+ & 2.5376E+03_JPRB,2.8705E+03_JPRB,3.1985E+03_JPRB,3.5117E+03_JPRB,3.8116E+03_JPRB/)  
+KBO( :,34,13) = (/&
+ & 2.5544E+03_JPRB,2.8966E+03_JPRB,3.2284E+03_JPRB,3.5457E+03_JPRB,3.8464E+03_JPRB/)  
+KBO( :,35,13) = (/&
+ & 2.5535E+03_JPRB,2.9023E+03_JPRB,3.2375E+03_JPRB,3.5577E+03_JPRB,3.8601E+03_JPRB/)  
+KBO( :,36,13) = (/&
+ & 2.5246E+03_JPRB,2.8777E+03_JPRB,3.2177E+03_JPRB,3.5406E+03_JPRB,3.8472E+03_JPRB/)  
+KBO( :,37,13) = (/&
+ & 2.4476E+03_JPRB,2.8057E+03_JPRB,3.1519E+03_JPRB,3.4804E+03_JPRB,3.7923E+03_JPRB/)  
+KBO( :,38,13) = (/&
+ & 2.3725E+03_JPRB,2.7347E+03_JPRB,3.0855E+03_JPRB,3.4198E+03_JPRB,3.7363E+03_JPRB/)  
+KBO( :,39,13) = (/&
+ & 2.3022E+03_JPRB,2.6668E+03_JPRB,3.0226E+03_JPRB,3.3616E+03_JPRB,3.6822E+03_JPRB/)  
+KBO( :,40,13) = (/&
+ & 2.1978E+03_JPRB,2.5643E+03_JPRB,2.9251E+03_JPRB,3.2708E+03_JPRB,3.5971E+03_JPRB/)  
+KBO( :,41,13) = (/&
+ & 2.0936E+03_JPRB,2.4587E+03_JPRB,2.8232E+03_JPRB,3.1755E+03_JPRB,3.5072E+03_JPRB/)  
+KBO( :,42,13) = (/&
+ & 1.9924E+03_JPRB,2.3537E+03_JPRB,2.7212E+03_JPRB,3.0790E+03_JPRB,3.4170E+03_JPRB/)  
+KBO( :,43,13) = (/&
+ & 1.8759E+03_JPRB,2.2299E+03_JPRB,2.5995E+03_JPRB,2.9624E+03_JPRB,3.3082E+03_JPRB/)  
+KBO( :,44,13) = (/&
+ & 1.7551E+03_JPRB,2.1002E+03_JPRB,2.4686E+03_JPRB,2.8357E+03_JPRB,3.1891E+03_JPRB/)  
+KBO( :,45,13) = (/&
+ & 1.6392E+03_JPRB,1.9745E+03_JPRB,2.3377E+03_JPRB,2.7076E+03_JPRB,3.0676E+03_JPRB/)  
+KBO( :,46,13) = (/&
+ & 1.5222E+03_JPRB,1.8455E+03_JPRB,2.1996E+03_JPRB,2.5709E+03_JPRB,2.9366E+03_JPRB/)  
+KBO( :,47,13) = (/&
+ & 1.3973E+03_JPRB,1.7071E+03_JPRB,2.0502E+03_JPRB,2.4181E+03_JPRB,2.7876E+03_JPRB/)  
+KBO( :,48,13) = (/&
+ & 1.2797E+03_JPRB,1.5744E+03_JPRB,1.9051E+03_JPRB,2.2652E+03_JPRB,2.6369E+03_JPRB/)  
+KBO( :,49,13) = (/&
+ & 1.1690E+03_JPRB,1.4484E+03_JPRB,1.7654E+03_JPRB,2.1147E+03_JPRB,2.4860E+03_JPRB/)  
+KBO( :,50,13) = (/&
+ & 1.0720E+03_JPRB,1.3359E+03_JPRB,1.6397E+03_JPRB,1.9779E+03_JPRB,2.3429E+03_JPRB/)  
+KBO( :,51,13) = (/&
+ & 9.8386E+02_JPRB,1.2327E+03_JPRB,1.5222E+03_JPRB,1.8488E+03_JPRB,2.2054E+03_JPRB/)  
+KBO( :,52,13) = (/&
+ & 9.0207E+02_JPRB,1.1351E+03_JPRB,1.4100E+03_JPRB,1.7243E+03_JPRB,2.0711E+03_JPRB/)  
+KBO( :,53,13) = (/&
+ & 8.2675E+02_JPRB,1.0437E+03_JPRB,1.3030E+03_JPRB,1.6043E+03_JPRB,1.9396E+03_JPRB/)  
+KBO( :,54,13) = (/&
+ & 7.6352E+02_JPRB,9.6482E+02_JPRB,1.2111E+03_JPRB,1.4982E+03_JPRB,1.8229E+03_JPRB/)  
+KBO( :,55,13) = (/&
+ & 7.0952E+02_JPRB,8.9409E+02_JPRB,1.1266E+03_JPRB,1.4008E+03_JPRB,1.7142E+03_JPRB/)  
+KBO( :,56,13) = (/&
+ & 6.6233E+02_JPRB,8.2850E+02_JPRB,1.0468E+03_JPRB,1.3073E+03_JPRB,1.6094E+03_JPRB/)  
+KBO( :,57,13) = (/&
+ & 6.2132E+02_JPRB,7.6796E+02_JPRB,9.7144E+02_JPRB,1.2186E+03_JPRB,1.5081E+03_JPRB/)  
+KBO( :,58,13) = (/&
+ & 5.8653E+02_JPRB,7.1647E+02_JPRB,9.0432E+02_JPRB,1.1383E+03_JPRB,1.4157E+03_JPRB/)  
+KBO( :,59,13) = (/&
+ & 5.7212E+02_JPRB,6.9724E+02_JPRB,8.7847E+02_JPRB,1.1078E+03_JPRB,1.3794E+03_JPRB/)  
+KBO( :,13,14) = (/&
+ & 9.8835E+03_JPRB,9.9539E+03_JPRB,1.0003E+04_JPRB,1.0028E+04_JPRB,1.0036E+04_JPRB/)  
+KBO( :,14,14) = (/&
+ & 1.1157E+04_JPRB,1.1221E+04_JPRB,1.1261E+04_JPRB,1.1278E+04_JPRB,1.1272E+04_JPRB/)  
+KBO( :,15,14) = (/&
+ & 1.2451E+04_JPRB,1.2500E+04_JPRB,1.2523E+04_JPRB,1.2525E+04_JPRB,1.2496E+04_JPRB/)  
+KBO( :,16,14) = (/&
+ & 1.3702E+04_JPRB,1.3735E+04_JPRB,1.3749E+04_JPRB,1.3724E+04_JPRB,1.3688E+04_JPRB/)  
+KBO( :,17,14) = (/&
+ & 1.4864E+04_JPRB,1.4899E+04_JPRB,1.4888E+04_JPRB,1.4860E+04_JPRB,1.4794E+04_JPRB/)  
+KBO( :,18,14) = (/&
+ & 1.5913E+04_JPRB,1.5926E+04_JPRB,1.5919E+04_JPRB,1.5876E+04_JPRB,1.5804E+04_JPRB/)  
+KBO( :,19,14) = (/&
+ & 1.6806E+04_JPRB,1.6819E+04_JPRB,1.6811E+04_JPRB,1.6767E+04_JPRB,1.6686E+04_JPRB/)  
+KBO( :,20,14) = (/&
+ & 1.7528E+04_JPRB,1.7560E+04_JPRB,1.7554E+04_JPRB,1.7516E+04_JPRB,1.7446E+04_JPRB/)  
+KBO( :,21,14) = (/&
+ & 1.8101E+04_JPRB,1.8142E+04_JPRB,1.8157E+04_JPRB,1.8133E+04_JPRB,1.8069E+04_JPRB/)  
+KBO( :,22,14) = (/&
+ & 1.8522E+04_JPRB,1.8600E+04_JPRB,1.8643E+04_JPRB,1.8633E+04_JPRB,1.8576E+04_JPRB/)  
+KBO( :,23,14) = (/&
+ & 1.8830E+04_JPRB,1.8951E+04_JPRB,1.9026E+04_JPRB,1.9036E+04_JPRB,1.8990E+04_JPRB/)  
+KBO( :,24,14) = (/&
+ & 1.9044E+04_JPRB,1.9220E+04_JPRB,1.9318E+04_JPRB,1.9356E+04_JPRB,1.9336E+04_JPRB/)  
+KBO( :,25,14) = (/&
+ & 1.9206E+04_JPRB,1.9423E+04_JPRB,1.9557E+04_JPRB,1.9620E+04_JPRB,1.9613E+04_JPRB/)  
+KBO( :,26,14) = (/&
+ & 1.9345E+04_JPRB,1.9590E+04_JPRB,1.9754E+04_JPRB,1.9836E+04_JPRB,1.9837E+04_JPRB/)  
+KBO( :,27,14) = (/&
+ & 1.9462E+04_JPRB,1.9735E+04_JPRB,1.9916E+04_JPRB,2.0012E+04_JPRB,2.0020E+04_JPRB/)  
+KBO( :,28,14) = (/&
+ & 1.9573E+04_JPRB,1.9864E+04_JPRB,2.0059E+04_JPRB,2.0163E+04_JPRB,2.0168E+04_JPRB/)  
+KBO( :,29,14) = (/&
+ & 1.9682E+04_JPRB,1.9985E+04_JPRB,2.0186E+04_JPRB,2.0286E+04_JPRB,2.0288E+04_JPRB/)  
+KBO( :,30,14) = (/&
+ & 1.9789E+04_JPRB,2.0101E+04_JPRB,2.0295E+04_JPRB,2.0389E+04_JPRB,2.0383E+04_JPRB/)  
+KBO( :,31,14) = (/&
+ & 1.9904E+04_JPRB,2.0212E+04_JPRB,2.0395E+04_JPRB,2.0474E+04_JPRB,2.0459E+04_JPRB/)  
+KBO( :,32,14) = (/&
+ & 2.0019E+04_JPRB,2.0312E+04_JPRB,2.0477E+04_JPRB,2.0546E+04_JPRB,2.0515E+04_JPRB/)  
+KBO( :,33,14) = (/&
+ & 2.0130E+04_JPRB,2.0401E+04_JPRB,2.0548E+04_JPRB,2.0603E+04_JPRB,2.0557E+04_JPRB/)  
+KBO( :,34,14) = (/&
+ & 2.0224E+04_JPRB,2.0479E+04_JPRB,2.0609E+04_JPRB,2.0649E+04_JPRB,2.0588E+04_JPRB/)  
+KBO( :,35,14) = (/&
+ & 2.0280E+04_JPRB,2.0527E+04_JPRB,2.0652E+04_JPRB,2.0686E+04_JPRB,2.0619E+04_JPRB/)  
+KBO( :,36,14) = (/&
+ & 2.0300E+04_JPRB,2.0553E+04_JPRB,2.0683E+04_JPRB,2.0717E+04_JPRB,2.0652E+04_JPRB/)  
+KBO( :,37,14) = (/&
+ & 2.0267E+04_JPRB,2.0544E+04_JPRB,2.0692E+04_JPRB,2.0745E+04_JPRB,2.0696E+04_JPRB/)  
+KBO( :,38,14) = (/&
+ & 2.0221E+04_JPRB,2.0526E+04_JPRB,2.0695E+04_JPRB,2.0765E+04_JPRB,2.0733E+04_JPRB/)  
+KBO( :,39,14) = (/&
+ & 2.0172E+04_JPRB,2.0502E+04_JPRB,2.0692E+04_JPRB,2.0780E+04_JPRB,2.0762E+04_JPRB/)  
+KBO( :,40,14) = (/&
+ & 2.0072E+04_JPRB,2.0440E+04_JPRB,2.0669E+04_JPRB,2.0782E+04_JPRB,2.0789E+04_JPRB/)  
+KBO( :,41,14) = (/&
+ & 1.9953E+04_JPRB,2.0365E+04_JPRB,2.0629E+04_JPRB,2.0773E+04_JPRB,2.0810E+04_JPRB/)  
+KBO( :,42,14) = (/&
+ & 1.9824E+04_JPRB,2.0275E+04_JPRB,2.0580E+04_JPRB,2.0757E+04_JPRB,2.0819E+04_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB14:PART6',1,ZHOOK_HANDLE)
+END SUBROUTINE PART6
+
+
+SUBROUTINE PART7
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB14:PART7',0,ZHOOK_HANDLE)
+
+
+KBO( :,43,14) = (/&
+ & 1.9649E+04_JPRB,2.0152E+04_JPRB,2.0505E+04_JPRB,2.0716E+04_JPRB,2.0819E+04_JPRB/)  
+KBO( :,44,14) = (/&
+ & 1.9430E+04_JPRB,2.0000E+04_JPRB,2.0405E+04_JPRB,2.0665E+04_JPRB,2.0802E+04_JPRB/)  
+KBO( :,45,14) = (/&
+ & 1.9196E+04_JPRB,1.9828E+04_JPRB,2.0288E+04_JPRB,2.0595E+04_JPRB,2.0775E+04_JPRB/)  
+KBO( :,46,14) = (/&
+ & 1.8908E+04_JPRB,1.9621E+04_JPRB,2.0141E+04_JPRB,2.0502E+04_JPRB,2.0723E+04_JPRB/)  
+KBO( :,47,14) = (/&
+ & 1.8564E+04_JPRB,1.9359E+04_JPRB,1.9951E+04_JPRB,2.0375E+04_JPRB,2.0651E+04_JPRB/)  
+KBO( :,48,14) = (/&
+ & 1.8186E+04_JPRB,1.9064E+04_JPRB,1.9734E+04_JPRB,2.0222E+04_JPRB,2.0560E+04_JPRB/)  
+KBO( :,49,14) = (/&
+ & 1.7775E+04_JPRB,1.8727E+04_JPRB,1.9486E+04_JPRB,2.0046E+04_JPRB,2.0443E+04_JPRB/)  
+KBO( :,50,14) = (/&
+ & 1.7362E+04_JPRB,1.8391E+04_JPRB,1.9223E+04_JPRB,1.9856E+04_JPRB,2.0310E+04_JPRB/)  
+KBO( :,51,14) = (/&
+ & 1.6921E+04_JPRB,1.8033E+04_JPRB,1.8942E+04_JPRB,1.9648E+04_JPRB,2.0164E+04_JPRB/)  
+KBO( :,52,14) = (/&
+ & 1.6453E+04_JPRB,1.7649E+04_JPRB,1.8637E+04_JPRB,1.9415E+04_JPRB,1.9994E+04_JPRB/)  
+KBO( :,53,14) = (/&
+ & 1.5948E+04_JPRB,1.7240E+04_JPRB,1.8303E+04_JPRB,1.9152E+04_JPRB,1.9803E+04_JPRB/)  
+KBO( :,54,14) = (/&
+ & 1.5455E+04_JPRB,1.6834E+04_JPRB,1.7961E+04_JPRB,1.8891E+04_JPRB,1.9606E+04_JPRB/)  
+KBO( :,55,14) = (/&
+ & 1.4957E+04_JPRB,1.6418E+04_JPRB,1.7624E+04_JPRB,1.8615E+04_JPRB,1.9397E+04_JPRB/)  
+KBO( :,56,14) = (/&
+ & 1.4440E+04_JPRB,1.5974E+04_JPRB,1.7263E+04_JPRB,1.8321E+04_JPRB,1.9169E+04_JPRB/)  
+KBO( :,57,14) = (/&
+ & 1.3900E+04_JPRB,1.5506E+04_JPRB,1.6878E+04_JPRB,1.8004E+04_JPRB,1.8917E+04_JPRB/)  
+KBO( :,58,14) = (/&
+ & 1.3361E+04_JPRB,1.5039E+04_JPRB,1.6487E+04_JPRB,1.7689E+04_JPRB,1.8664E+04_JPRB/)  
+KBO( :,59,14) = (/&
+ & 1.3141E+04_JPRB,1.4845E+04_JPRB,1.6324E+04_JPRB,1.7549E+04_JPRB,1.8556E+04_JPRB/)  
+KBO( :,13,15) = (/&
+ & 1.3105E+04_JPRB,1.3211E+04_JPRB,1.3290E+04_JPRB,1.3347E+04_JPRB,1.3377E+04_JPRB/)  
+KBO( :,14,15) = (/&
+ & 1.5542E+04_JPRB,1.5648E+04_JPRB,1.5712E+04_JPRB,1.5742E+04_JPRB,1.5741E+04_JPRB/)  
+KBO( :,15,15) = (/&
+ & 1.8293E+04_JPRB,1.8393E+04_JPRB,1.8434E+04_JPRB,1.8432E+04_JPRB,1.8387E+04_JPRB/)  
+KBO( :,16,15) = (/&
+ & 2.1367E+04_JPRB,2.1424E+04_JPRB,2.1423E+04_JPRB,2.1375E+04_JPRB,2.1256E+04_JPRB/)  
+KBO( :,17,15) = (/&
+ & 2.4738E+04_JPRB,2.4717E+04_JPRB,2.4651E+04_JPRB,2.4501E+04_JPRB,2.4302E+04_JPRB/)  
+KBO( :,18,15) = (/&
+ & 2.8333E+04_JPRB,2.8229E+04_JPRB,2.8040E+04_JPRB,2.7775E+04_JPRB,2.7461E+04_JPRB/)  
+KBO( :,19,15) = (/&
+ & 3.2088E+04_JPRB,3.1857E+04_JPRB,3.1527E+04_JPRB,3.1118E+04_JPRB,3.0643E+04_JPRB/)  
+KBO( :,20,15) = (/&
+ & 3.5897E+04_JPRB,3.5492E+04_JPRB,3.5012E+04_JPRB,3.4430E+04_JPRB,3.3771E+04_JPRB/)  
+KBO( :,21,15) = (/&
+ & 3.9650E+04_JPRB,3.9061E+04_JPRB,3.8385E+04_JPRB,3.7607E+04_JPRB,3.6774E+04_JPRB/)  
+KBO( :,22,15) = (/&
+ & 4.3231E+04_JPRB,4.2424E+04_JPRB,4.1504E+04_JPRB,4.0530E+04_JPRB,3.9497E+04_JPRB/)  
+KBO( :,23,15) = (/&
+ & 4.6557E+04_JPRB,4.5500E+04_JPRB,4.4350E+04_JPRB,4.3167E+04_JPRB,4.1929E+04_JPRB/)  
+KBO( :,24,15) = (/&
+ & 4.9552E+04_JPRB,4.8236E+04_JPRB,4.6880E+04_JPRB,4.5475E+04_JPRB,4.4033E+04_JPRB/)  
+KBO( :,25,15) = (/&
+ & 5.2158E+04_JPRB,5.0602E+04_JPRB,4.9033E+04_JPRB,4.7428E+04_JPRB,4.5797E+04_JPRB/)  
+KBO( :,26,15) = (/&
+ & 5.4326E+04_JPRB,5.2566E+04_JPRB,5.0793E+04_JPRB,4.9004E+04_JPRB,4.7209E+04_JPRB/)  
+KBO( :,27,15) = (/&
+ & 5.6113E+04_JPRB,5.4155E+04_JPRB,5.2200E+04_JPRB,5.0246E+04_JPRB,4.8319E+04_JPRB/)  
+KBO( :,28,15) = (/&
+ & 5.7518E+04_JPRB,5.5394E+04_JPRB,5.3278E+04_JPRB,5.1199E+04_JPRB,4.9157E+04_JPRB/)  
+KBO( :,29,15) = (/&
+ & 5.8580E+04_JPRB,5.6300E+04_JPRB,5.4057E+04_JPRB,5.1871E+04_JPRB,4.9732E+04_JPRB/)  
+KBO( :,30,15) = (/&
+ & 5.9321E+04_JPRB,5.6927E+04_JPRB,5.4587E+04_JPRB,5.2312E+04_JPRB,5.0097E+04_JPRB/)  
+KBO( :,31,15) = (/&
+ & 5.9791E+04_JPRB,5.7302E+04_JPRB,5.4893E+04_JPRB,5.2547E+04_JPRB,5.0272E+04_JPRB/)  
+KBO( :,32,15) = (/&
+ & 6.0024E+04_JPRB,5.7470E+04_JPRB,5.5008E+04_JPRB,5.2603E+04_JPRB,5.0291E+04_JPRB/)  
+KBO( :,33,15) = (/&
+ & 6.0073E+04_JPRB,5.7468E+04_JPRB,5.4966E+04_JPRB,5.2524E+04_JPRB,5.0181E+04_JPRB/)  
+KBO( :,34,15) = (/&
+ & 6.0061E+04_JPRB,5.7423E+04_JPRB,5.4889E+04_JPRB,5.2419E+04_JPRB,5.0055E+04_JPRB/)  
+KBO( :,35,15) = (/&
+ & 6.0191E+04_JPRB,5.7520E+04_JPRB,5.4955E+04_JPRB,5.2459E+04_JPRB,5.0075E+04_JPRB/)  
+KBO( :,36,15) = (/&
+ & 6.0539E+04_JPRB,5.7824E+04_JPRB,5.5225E+04_JPRB,5.2698E+04_JPRB,5.0287E+04_JPRB/)  
+KBO( :,37,15) = (/&
+ & 6.1234E+04_JPRB,5.8473E+04_JPRB,5.5831E+04_JPRB,5.3268E+04_JPRB,5.0811E+04_JPRB/)  
+KBO( :,38,15) = (/&
+ & 6.1911E+04_JPRB,5.9110E+04_JPRB,5.6429E+04_JPRB,5.3825E+04_JPRB,5.1333E+04_JPRB/)  
+KBO( :,39,15) = (/&
+ & 6.2546E+04_JPRB,5.9701E+04_JPRB,5.6980E+04_JPRB,5.4347E+04_JPRB,5.1826E+04_JPRB/)  
+KBO( :,40,15) = (/&
+ & 6.3440E+04_JPRB,6.0560E+04_JPRB,5.7786E+04_JPRB,5.5116E+04_JPRB,5.2552E+04_JPRB/)  
+KBO( :,41,15) = (/&
+ & 6.4362E+04_JPRB,6.1427E+04_JPRB,5.8612E+04_JPRB,5.5905E+04_JPRB,5.3303E+04_JPRB/)  
+KBO( :,42,15) = (/&
+ & 6.5271E+04_JPRB,6.2297E+04_JPRB,5.9433E+04_JPRB,5.6685E+04_JPRB,5.4054E+04_JPRB/)  
+KBO( :,43,15) = (/&
+ & 6.6345E+04_JPRB,6.3316E+04_JPRB,6.0412E+04_JPRB,5.7629E+04_JPRB,5.4943E+04_JPRB/)  
+KBO( :,44,15) = (/&
+ & 6.7502E+04_JPRB,6.4418E+04_JPRB,6.1461E+04_JPRB,5.8625E+04_JPRB,5.5900E+04_JPRB/)  
+KBO( :,45,15) = (/&
+ & 6.8664E+04_JPRB,6.5524E+04_JPRB,6.2518E+04_JPRB,5.9632E+04_JPRB,5.6859E+04_JPRB/)  
+KBO( :,46,15) = (/&
+ & 6.9916E+04_JPRB,6.6699E+04_JPRB,6.3637E+04_JPRB,6.0705E+04_JPRB,5.7897E+04_JPRB/)  
+KBO( :,47,15) = (/&
+ & 7.1307E+04_JPRB,6.8027E+04_JPRB,6.4908E+04_JPRB,6.1920E+04_JPRB,5.9052E+04_JPRB/)  
+KBO( :,48,15) = (/&
+ & 7.2692E+04_JPRB,6.9380E+04_JPRB,6.6186E+04_JPRB,6.3144E+04_JPRB,6.0224E+04_JPRB/)  
+KBO( :,49,15) = (/&
+ & 7.4089E+04_JPRB,7.0754E+04_JPRB,6.7488E+04_JPRB,6.4384E+04_JPRB,6.1415E+04_JPRB/)  
+KBO( :,50,15) = (/&
+ & 7.5388E+04_JPRB,7.2035E+04_JPRB,6.8731E+04_JPRB,6.5568E+04_JPRB,6.2543E+04_JPRB/)  
+KBO( :,51,15) = (/&
+ & 7.6677E+04_JPRB,7.3293E+04_JPRB,6.9952E+04_JPRB,6.6726E+04_JPRB,6.3655E+04_JPRB/)  
+KBO( :,52,15) = (/&
+ & 7.7977E+04_JPRB,7.4539E+04_JPRB,7.1186E+04_JPRB,6.7906E+04_JPRB,6.4783E+04_JPRB/)  
+KBO( :,53,15) = (/&
+ & 7.9289E+04_JPRB,7.5794E+04_JPRB,7.2422E+04_JPRB,6.9107E+04_JPRB,6.5922E+04_JPRB/)  
+KBO( :,54,15) = (/&
+ & 8.0507E+04_JPRB,7.6976E+04_JPRB,7.3575E+04_JPRB,7.0226E+04_JPRB,6.6980E+04_JPRB/)  
+KBO( :,55,15) = (/&
+ & 8.1668E+04_JPRB,7.8115E+04_JPRB,7.4665E+04_JPRB,7.1303E+04_JPRB,6.8017E+04_JPRB/)  
+KBO( :,56,15) = (/&
+ & 8.2825E+04_JPRB,7.9256E+04_JPRB,7.5760E+04_JPRB,7.2375E+04_JPRB,6.9059E+04_JPRB/)  
+KBO( :,57,15) = (/&
+ & 8.3969E+04_JPRB,8.0408E+04_JPRB,7.6872E+04_JPRB,7.3475E+04_JPRB,7.0130E+04_JPRB/)  
+KBO( :,58,15) = (/&
+ & 8.5046E+04_JPRB,8.1501E+04_JPRB,7.7943E+04_JPRB,7.4498E+04_JPRB,7.1139E+04_JPRB/)  
+KBO( :,59,15) = (/&
+ & 8.5481E+04_JPRB,8.1948E+04_JPRB,7.8376E+04_JPRB,7.4922E+04_JPRB,7.1551E+04_JPRB/)  
+KBO( :,13,16) = (/&
+ & 1.4822E+04_JPRB,1.4947E+04_JPRB,1.5039E+04_JPRB,1.5078E+04_JPRB,1.5067E+04_JPRB/)  
+KBO( :,14,16) = (/&
+ & 1.7844E+04_JPRB,1.7976E+04_JPRB,1.8048E+04_JPRB,1.8049E+04_JPRB,1.8009E+04_JPRB/)  
+KBO( :,15,16) = (/&
+ & 2.1400E+04_JPRB,2.1492E+04_JPRB,2.1520E+04_JPRB,2.1466E+04_JPRB,2.1373E+04_JPRB/)  
+KBO( :,16,16) = (/&
+ & 2.5508E+04_JPRB,2.5515E+04_JPRB,2.5445E+04_JPRB,2.5314E+04_JPRB,2.5126E+04_JPRB/)  
+KBO( :,17,16) = (/&
+ & 3.0159E+04_JPRB,3.0040E+04_JPRB,2.9821E+04_JPRB,2.9561E+04_JPRB,2.9224E+04_JPRB/)  
+KBO( :,18,16) = (/&
+ & 3.5323E+04_JPRB,3.5002E+04_JPRB,3.4578E+04_JPRB,3.4138E+04_JPRB,3.3586E+04_JPRB/)  
+KBO( :,19,16) = (/&
+ & 4.0906E+04_JPRB,4.0304E+04_JPRB,3.9627E+04_JPRB,3.8916E+04_JPRB,3.8103E+04_JPRB/)  
+KBO( :,20,16) = (/&
+ & 4.6757E+04_JPRB,4.5796E+04_JPRB,4.4798E+04_JPRB,4.3759E+04_JPRB,4.2633E+04_JPRB/)  
+KBO( :,21,16) = (/&
+ & 5.2696E+04_JPRB,5.1326E+04_JPRB,4.9934E+04_JPRB,4.8491E+04_JPRB,4.7018E+04_JPRB/)  
+KBO( :,22,16) = (/&
+ & 5.8463E+04_JPRB,5.6597E+04_JPRB,5.4757E+04_JPRB,5.2889E+04_JPRB,5.1042E+04_JPRB/)  
+KBO( :,23,16) = (/&
+ & 6.3885E+04_JPRB,6.1516E+04_JPRB,5.9197E+04_JPRB,5.6911E+04_JPRB,5.4673E+04_JPRB/)  
+KBO( :,24,16) = (/&
+ & 6.8792E+04_JPRB,6.5930E+04_JPRB,6.3138E+04_JPRB,6.0429E+04_JPRB,5.7833E+04_JPRB/)  
+KBO( :,25,16) = (/&
+ & 7.3081E+04_JPRB,6.9742E+04_JPRB,6.6502E+04_JPRB,6.3413E+04_JPRB,6.0489E+04_JPRB/)  
+KBO( :,26,16) = (/&
+ & 7.6659E+04_JPRB,7.2881E+04_JPRB,6.9229E+04_JPRB,6.5813E+04_JPRB,6.2609E+04_JPRB/)  
+KBO( :,27,16) = (/&
+ & 7.9551E+04_JPRB,7.5372E+04_JPRB,7.1411E+04_JPRB,6.7691E+04_JPRB,6.4257E+04_JPRB/)  
+KBO( :,28,16) = (/&
+ & 8.1786E+04_JPRB,7.7281E+04_JPRB,7.3039E+04_JPRB,6.9087E+04_JPRB,6.5469E+04_JPRB/)  
+KBO( :,29,16) = (/&
+ & 8.3384E+04_JPRB,7.8614E+04_JPRB,7.4165E+04_JPRB,7.0047E+04_JPRB,6.6277E+04_JPRB/)  
+KBO( :,30,16) = (/&
+ & 8.4452E+04_JPRB,7.9468E+04_JPRB,7.4871E+04_JPRB,7.0641E+04_JPRB,6.6750E+04_JPRB/)  
+KBO( :,31,16) = (/&
+ & 8.5039E+04_JPRB,7.9905E+04_JPRB,7.5199E+04_JPRB,7.0901E+04_JPRB,6.6924E+04_JPRB/)  
+KBO( :,32,16) = (/&
+ & 8.5212E+04_JPRB,7.9990E+04_JPRB,7.5213E+04_JPRB,7.0881E+04_JPRB,6.6857E+04_JPRB/)  
+KBO( :,33,16) = (/&
+ & 8.5050E+04_JPRB,7.9794E+04_JPRB,7.5003E+04_JPRB,7.0644E+04_JPRB,6.6588E+04_JPRB/)  
+KBO( :,34,16) = (/&
+ & 8.4825E+04_JPRB,7.9556E+04_JPRB,7.4769E+04_JPRB,7.0382E+04_JPRB,6.6308E+04_JPRB/)  
+KBO( :,35,16) = (/&
+ & 8.4932E+04_JPRB,7.9627E+04_JPRB,7.4818E+04_JPRB,7.0396E+04_JPRB,6.6295E+04_JPRB/)  
+KBO( :,36,16) = (/&
+ & 8.5505E+04_JPRB,8.0119E+04_JPRB,7.5241E+04_JPRB,7.0767E+04_JPRB,6.6616E+04_JPRB/)  
+KBO( :,37,16) = (/&
+ & 8.6832E+04_JPRB,8.1301E+04_JPRB,7.6293E+04_JPRB,7.1722E+04_JPRB,6.7493E+04_JPRB/)  
+KBO( :,38,16) = (/&
+ & 8.8141E+04_JPRB,8.2471E+04_JPRB,7.7320E+04_JPRB,7.2657E+04_JPRB,6.8355E+04_JPRB/)  
+KBO( :,39,16) = (/&
+ & 8.9385E+04_JPRB,8.3583E+04_JPRB,7.8311E+04_JPRB,7.3555E+04_JPRB,6.9176E+04_JPRB/)  
+KBO( :,40,16) = (/&
+ & 9.1225E+04_JPRB,8.5227E+04_JPRB,7.9808E+04_JPRB,7.4896E+04_JPRB,7.0406E+04_JPRB/)  
+KBO( :,41,16) = (/&
+ & 9.3145E+04_JPRB,8.6959E+04_JPRB,8.1376E+04_JPRB,7.6283E+04_JPRB,7.1693E+04_JPRB/)  
+KBO( :,42,16) = (/&
+ & 9.5061E+04_JPRB,8.8707E+04_JPRB,8.2949E+04_JPRB,7.7691E+04_JPRB,7.2983E+04_JPRB/)  
+KBO( :,43,16) = (/&
+ & 9.7401E+04_JPRB,9.0828E+04_JPRB,8.4849E+04_JPRB,7.9428E+04_JPRB,7.4539E+04_JPRB/)  
+KBO( :,44,16) = (/&
+ & 9.9953E+04_JPRB,9.3134E+04_JPRB,8.6932E+04_JPRB,8.1331E+04_JPRB,7.6228E+04_JPRB/)  
+KBO( :,45,16) = (/&
+ & 1.0257E+05_JPRB,9.5499E+04_JPRB,8.9091E+04_JPRB,8.3270E+04_JPRB,7.7968E+04_JPRB/)  
+KBO( :,46,16) = (/&
+ & 1.0547E+05_JPRB,9.8084E+04_JPRB,9.1440E+04_JPRB,8.5379E+04_JPRB,7.9900E+04_JPRB/)  
+KBO( :,47,16) = (/&
+ & 1.0883E+05_JPRB,1.0107E+05_JPRB,9.4133E+04_JPRB,8.7821E+04_JPRB,8.2113E+04_JPRB/)  
+KBO( :,48,16) = (/&
+ & 1.1238E+05_JPRB,1.0415E+05_JPRB,9.6911E+04_JPRB,9.0357E+04_JPRB,8.4400E+04_JPRB/)  
+KBO( :,49,16) = (/&
+ & 1.1611E+05_JPRB,1.0741E+05_JPRB,9.9813E+04_JPRB,9.2980E+04_JPRB,8.6767E+04_JPRB/)  
+KBO( :,50,16) = (/&
+ & 1.1983E+05_JPRB,1.1062E+05_JPRB,1.0263E+05_JPRB,9.5525E+04_JPRB,8.9084E+04_JPRB/)  
+KBO( :,51,16) = (/&
+ & 1.2356E+05_JPRB,1.1388E+05_JPRB,1.0545E+05_JPRB,9.8084E+04_JPRB,9.1415E+04_JPRB/)  
+KBO( :,52,16) = (/&
+ & 1.2745E+05_JPRB,1.1733E+05_JPRB,1.0841E+05_JPRB,1.0073E+05_JPRB,9.3803E+04_JPRB/)  
+KBO( :,53,16) = (/&
+ & 1.3156E+05_JPRB,1.2095E+05_JPRB,1.1156E+05_JPRB,1.0347E+05_JPRB,9.6284E+04_JPRB/)  
+KBO( :,54,16) = (/&
+ & 1.3554E+05_JPRB,1.2438E+05_JPRB,1.1460E+05_JPRB,1.0608E+05_JPRB,9.8639E+04_JPRB/)  
+KBO( :,55,16) = (/&
+ & 1.3951E+05_JPRB,1.2782E+05_JPRB,1.1764E+05_JPRB,1.0869E+05_JPRB,1.0096E+05_JPRB/)  
+KBO( :,56,16) = (/&
+ & 1.4367E+05_JPRB,1.3142E+05_JPRB,1.2080E+05_JPRB,1.1144E+05_JPRB,1.0335E+05_JPRB/)  
+KBO( :,57,16) = (/&
+ & 1.4808E+05_JPRB,1.3519E+05_JPRB,1.2406E+05_JPRB,1.1429E+05_JPRB,1.0582E+05_JPRB/)  
+KBO( :,58,16) = (/&
+ & 1.5260E+05_JPRB,1.3891E+05_JPRB,1.2727E+05_JPRB,1.1713E+05_JPRB,1.0827E+05_JPRB/)  
+KBO( :,59,16) = (/&
+ & 1.5447E+05_JPRB,1.4046E+05_JPRB,1.2861E+05_JPRB,1.1836E+05_JPRB,1.0930E+05_JPRB/)  
+
+!     The array SELFREFO contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+SELFREFO( :, 1) = (/&
+ & 4.67280E-03_JPRB, 3.95219E-03_JPRB, 3.34270E-03_JPRB, 2.82721E-03_JPRB, 2.39121E-03_JPRB,&
+ & 2.02245E-03_JPRB, 1.71056E-03_JPRB, 1.44677E-03_JPRB, 1.22365E-03_JPRB, 1.03495E-03_JPRB/)  
+SELFREFO( :, 2) = (/&
+ & 4.42573E-03_JPRB, 3.73328E-03_JPRB, 3.14917E-03_JPRB, 2.65644E-03_JPRB, 2.24081E-03_JPRB,&
+ & 1.89021E-03_JPRB, 1.59447E-03_JPRB, 1.34500E-03_JPRB, 1.13456E-03_JPRB, 9.57044E-04_JPRB/)  
+SELFREFO( :, 3) = (/&
+ & 3.96061E-03_JPRB, 3.33783E-03_JPRB, 2.81297E-03_JPRB, 2.37065E-03_JPRB, 1.99788E-03_JPRB,&
+ & 1.68372E-03_JPRB, 1.41897E-03_JPRB, 1.19584E-03_JPRB, 1.00780E-03_JPRB, 8.49333E-04_JPRB/)  
+SELFREFO( :, 4) = (/&
+ & 3.71838E-03_JPRB, 3.10031E-03_JPRB, 2.58497E-03_JPRB, 2.15529E-03_JPRB, 1.79704E-03_JPRB,&
+ & 1.49833E-03_JPRB, 1.24928E-03_JPRB, 1.04162E-03_JPRB, 8.68480E-04_JPRB, 7.24120E-04_JPRB/)  
+SELFREFO( :, 5) = (/&
+ & 3.55795E-03_JPRB, 2.95385E-03_JPRB, 2.45232E-03_JPRB, 2.03594E-03_JPRB, 1.69026E-03_JPRB,&
+ & 1.40327E-03_JPRB, 1.16501E-03_JPRB, 9.67201E-04_JPRB, 8.02981E-04_JPRB, 6.66643E-04_JPRB/)  
+SELFREFO( :, 6) = (/&
+ & 3.47573E-03_JPRB, 2.88608E-03_JPRB, 2.39646E-03_JPRB, 1.98991E-03_JPRB, 1.65232E-03_JPRB,&
+ & 1.37201E-03_JPRB, 1.13925E-03_JPRB, 9.45979E-04_JPRB, 7.85496E-04_JPRB, 6.52238E-04_JPRB/)  
+SELFREFO( :, 7) = (/&
+ & 3.44473E-03_JPRB, 2.86220E-03_JPRB, 2.37818E-03_JPRB, 1.97601E-03_JPRB, 1.64185E-03_JPRB,&
+ & 1.36420E-03_JPRB, 1.13350E-03_JPRB, 9.41819E-04_JPRB, 7.82550E-04_JPRB, 6.50214E-04_JPRB/)  
+SELFREFO( :, 8) = (/&
+ & 3.40166E-03_JPRB, 2.82961E-03_JPRB, 2.35376E-03_JPRB, 1.95793E-03_JPRB, 1.62867E-03_JPRB,&
+ & 1.35478E-03_JPRB, 1.12694E-03_JPRB, 9.37427E-04_JPRB, 7.79781E-04_JPRB, 6.48646E-04_JPRB/)  
+SELFREFO( :, 9) = (/&
+ & 3.39363E-03_JPRB, 2.82276E-03_JPRB, 2.34792E-03_JPRB, 1.95296E-03_JPRB, 1.62443E-03_JPRB,&
+ & 1.35117E-03_JPRB, 1.12388E-03_JPRB, 9.34822E-04_JPRB, 7.77568E-04_JPRB, 6.46766E-04_JPRB/)  
+SELFREFO( :,10) = (/&
+ & 3.37151E-03_JPRB, 2.80633E-03_JPRB, 2.33590E-03_JPRB, 1.94432E-03_JPRB, 1.61839E-03_JPRB,&
+ & 1.34709E-03_JPRB, 1.12128E-03_JPRB, 9.33313E-04_JPRB, 7.76859E-04_JPRB, 6.46632E-04_JPRB/)  
+SELFREFO( :,11) = (/&
+ & 3.37954E-03_JPRB, 2.81192E-03_JPRB, 2.33963E-03_JPRB, 1.94666E-03_JPRB, 1.61970E-03_JPRB,&
+ & 1.34765E-03_JPRB, 1.12130E-03_JPRB, 9.32968E-04_JPRB, 7.76266E-04_JPRB, 6.45885E-04_JPRB/)  
+SELFREFO( :,12) = (/&
+ & 3.39637E-03_JPRB, 2.82275E-03_JPRB, 2.34600E-03_JPRB, 1.94978E-03_JPRB, 1.62048E-03_JPRB,&
+ & 1.34679E-03_JPRB, 1.11933E-03_JPRB, 9.30281E-04_JPRB, 7.73163E-04_JPRB, 6.42581E-04_JPRB/)  
+SELFREFO( :,13) = (/&
+ & 3.35979E-03_JPRB, 2.79857E-03_JPRB, 2.33109E-03_JPRB, 1.94170E-03_JPRB, 1.61736E-03_JPRB,&
+ & 1.34719E-03_JPRB, 1.12216E-03_JPRB, 9.34712E-04_JPRB, 7.78576E-04_JPRB, 6.48522E-04_JPRB/)  
+SELFREFO( :,14) = (/&
+ & 3.40473E-03_JPRB, 2.82009E-03_JPRB, 2.33585E-03_JPRB, 1.93475E-03_JPRB, 1.60253E-03_JPRB,&
+ & 1.32736E-03_JPRB, 1.09943E-03_JPRB, 9.10645E-04_JPRB, 7.54276E-04_JPRB, 6.24757E-04_JPRB/)  
+SELFREFO( :,15) = (/&
+ & 3.27200E-03_JPRB, 2.70869E-03_JPRB, 2.24237E-03_JPRB, 1.85633E-03_JPRB, 1.53675E-03_JPRB,&
+ & 1.27218E-03_JPRB, 1.05317E-03_JPRB, 8.71854E-04_JPRB, 7.21757E-04_JPRB, 5.97501E-04_JPRB/)  
+SELFREFO( :,16) = (/&
+ & 3.22979E-03_JPRB, 2.67796E-03_JPRB, 2.22041E-03_JPRB, 1.84104E-03_JPRB, 1.52648E-03_JPRB,&
+ & 1.26567E-03_JPRB, 1.04942E-03_JPRB, 8.70124E-04_JPRB, 7.21457E-04_JPRB, 5.98191E-04_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB14:PART7',1,ZHOOK_HANDLE)
+END SUBROUTINE PART7
+
+
+END SUBROUTINE RRTM_KGB14
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb14.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb14.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb14.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_KGB14
+END SUBROUTINE RRTM_KGB14
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb15.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb15.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb15.F90	(revision 1989)
@@ -0,0 +1,3422 @@
+!OCL SCALAR
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0 
+SUBROUTINE RRTM_KGB15
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 15:  2380-2600 cm-1 (low - N2O,CO2; high - nothing)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     R. Elkhatib 12-10-2005 Split for faster and more robust compilation.
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO15, ONLY : KAO     ,SELFREFO   ,FRACREFAO
+USE YOERRTA15, ONLY : STRRAT
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB15',0,ZHOOK_HANDLE)
+
+CALL PART1
+CALL PART2
+CALL PART3
+CALL PART4
+CALL PART5
+CALL PART6
+CALL PART7
+CALL PART8
+CALL PART9
+CALL PART10
+CALL PART11
+CALL PART12
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB15',1,ZHOOK_HANDLE)
+
+!     -----------------------------------------------------------------
+
+CONTAINS
+
+
+SUBROUTINE PART1
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB15:PART1',0,ZHOOK_HANDLE)
+
+
+STRRAT = 0.2883201_JPRB
+
+!     ------------------------------------------------------------------
+
+!     The array KAO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels> ~100mb, temperatures, and binary
+!     species parameters (see taumol.f for definition).  The first 
+!     index in the array, JS, runs from 1 to 9, and corresponds to 
+!     different values of the binary species parameter.  For instance, 
+!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, 
+!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index
+!     in the array, JT, which runs from 1 to 5, corresponds to different
+!     temperatures.  More specifically, JT = 3 means that the data are for
+!     the reference temperature TREF for this  pressure level, JT = 2 refers
+!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the JPth reference pressure level (see taumol.f for these levels
+!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates
+!     which g-interval the absorption coefficients are for.
+
+KAO( :, 1, 1, 1) = (/&
+ & 4.2962E-03_JPRB,1.5232E-02_JPRB,1.9579E-02_JPRB,2.1453E-02_JPRB,2.1148E-02_JPRB,1.9096E-02_JPRB,&
+ & 1.5358E-02_JPRB,9.6936E-03_JPRB,2.2149E+00_JPRB/)  
+KAO( :, 2, 1, 1) = (/&
+ & 4.2518E-03_JPRB,1.5711E-02_JPRB,2.0424E-02_JPRB,2.2179E-02_JPRB,2.1702E-02_JPRB,1.9467E-02_JPRB,&
+ & 1.5548E-02_JPRB,9.9480E-03_JPRB,2.1772E+00_JPRB/)  
+KAO( :, 3, 1, 1) = (/&
+ & 4.2138E-03_JPRB,1.6217E-02_JPRB,2.1181E-02_JPRB,2.2786E-02_JPRB,2.2148E-02_JPRB,1.9747E-02_JPRB,&
+ & 1.5738E-02_JPRB,1.0309E-02_JPRB,2.1464E+00_JPRB/)  
+KAO( :, 4, 1, 1) = (/&
+ & 4.1834E-03_JPRB,1.6748E-02_JPRB,2.1843E-02_JPRB,2.3305E-02_JPRB,2.2496E-02_JPRB,1.9972E-02_JPRB,&
+ & 1.5965E-02_JPRB,1.0775E-02_JPRB,2.1191E+00_JPRB/)  
+KAO( :, 5, 1, 1) = (/&
+ & 4.1558E-03_JPRB,1.7275E-02_JPRB,2.2401E-02_JPRB,2.3742E-02_JPRB,2.2783E-02_JPRB,2.0184E-02_JPRB,&
+ & 1.6265E-02_JPRB,1.1330E-02_JPRB,2.0949E+00_JPRB/)  
+KAO( :, 1, 2, 1) = (/&
+ & 3.2144E-03_JPRB,1.2713E-02_JPRB,1.6397E-02_JPRB,1.7964E-02_JPRB,1.7671E-02_JPRB,1.5897E-02_JPRB,&
+ & 1.2690E-02_JPRB,7.9486E-03_JPRB,1.7669E+00_JPRB/)  
+KAO( :, 2, 2, 1) = (/&
+ & 3.1641E-03_JPRB,1.3084E-02_JPRB,1.7085E-02_JPRB,1.8507E-02_JPRB,1.8077E-02_JPRB,1.6151E-02_JPRB,&
+ & 1.2818E-02_JPRB,8.1279E-03_JPRB,1.7352E+00_JPRB/)  
+KAO( :, 3, 2, 1) = (/&
+ & 3.1193E-03_JPRB,1.3476E-02_JPRB,1.7665E-02_JPRB,1.8949E-02_JPRB,1.8392E-02_JPRB,1.6337E-02_JPRB,&
+ & 1.2943E-02_JPRB,8.3974E-03_JPRB,1.7079E+00_JPRB/)  
+KAO( :, 4, 2, 1) = (/&
+ & 3.0784E-03_JPRB,1.3887E-02_JPRB,1.8147E-02_JPRB,1.9317E-02_JPRB,1.8624E-02_JPRB,1.6477E-02_JPRB,&
+ & 1.3099E-02_JPRB,8.7556E-03_JPRB,1.6824E+00_JPRB/)  
+KAO( :, 5, 2, 1) = (/&
+ & 3.0409E-03_JPRB,1.4281E-02_JPRB,1.8529E-02_JPRB,1.9610E-02_JPRB,1.8808E-02_JPRB,1.6609E-02_JPRB,&
+ & 1.3316E-02_JPRB,9.1921E-03_JPRB,1.6588E+00_JPRB/)  
+KAO( :, 1, 3, 1) = (/&
+ & 2.3395E-03_JPRB,1.0516E-02_JPRB,1.3567E-02_JPRB,1.4918E-02_JPRB,1.4648E-02_JPRB,1.3103E-02_JPRB,&
+ & 1.0421E-02_JPRB,6.4902E-03_JPRB,1.3955E+00_JPRB/)  
+KAO( :, 2, 3, 1) = (/&
+ & 2.2828E-03_JPRB,1.0805E-02_JPRB,1.4151E-02_JPRB,1.5331E-02_JPRB,1.4952E-02_JPRB,1.3287E-02_JPRB,&
+ & 1.0515E-02_JPRB,6.5971E-03_JPRB,1.3684E+00_JPRB/)  
+KAO( :, 3, 3, 1) = (/&
+ & 2.2291E-03_JPRB,1.1094E-02_JPRB,1.4601E-02_JPRB,1.5662E-02_JPRB,1.5177E-02_JPRB,1.3417E-02_JPRB,&
+ & 1.0594E-02_JPRB,6.7764E-03_JPRB,1.3430E+00_JPRB/)  
+KAO( :, 4, 3, 1) = (/&
+ & 2.1795E-03_JPRB,1.1390E-02_JPRB,1.4954E-02_JPRB,1.5923E-02_JPRB,1.5330E-02_JPRB,1.3512E-02_JPRB,&
+ & 1.0687E-02_JPRB,7.0307E-03_JPRB,1.3188E+00_JPRB/)  
+KAO( :, 5, 3, 1) = (/&
+ & 2.1341E-03_JPRB,1.1671E-02_JPRB,1.5220E-02_JPRB,1.6118E-02_JPRB,1.5441E-02_JPRB,1.3589E-02_JPRB,&
+ & 1.0824E-02_JPRB,7.3529E-03_JPRB,1.2961E+00_JPRB/)  
+KAO( :, 1, 4, 1) = (/&
+ & 1.7840E-03_JPRB,8.7256E-03_JPRB,1.1210E-02_JPRB,1.2367E-02_JPRB,1.2063E-02_JPRB,1.0762E-02_JPRB,&
+ & 8.5444E-03_JPRB,5.3058E-03_JPRB,1.1276E+00_JPRB/)  
+KAO( :, 2, 4, 1) = (/&
+ & 1.7259E-03_JPRB,8.9625E-03_JPRB,1.1715E-02_JPRB,1.2698E-02_JPRB,1.2306E-02_JPRB,1.0908E-02_JPRB,&
+ & 8.6186E-03_JPRB,5.3631E-03_JPRB,1.1050E+00_JPRB/)  
+KAO( :, 3, 4, 1) = (/&
+ & 1.6740E-03_JPRB,9.1828E-03_JPRB,1.2089E-02_JPRB,1.2950E-02_JPRB,1.2485E-02_JPRB,1.1008E-02_JPRB,&
+ & 8.6759E-03_JPRB,5.4730E-03_JPRB,1.0830E+00_JPRB/)  
+KAO( :, 4, 4, 1) = (/&
+ & 1.6269E-03_JPRB,9.4080E-03_JPRB,1.2363E-02_JPRB,1.3144E-02_JPRB,1.2603E-02_JPRB,1.1084E-02_JPRB,&
+ & 8.7331E-03_JPRB,5.6457E-03_JPRB,1.0617E+00_JPRB/)  
+KAO( :, 5, 4, 1) = (/&
+ & 1.5826E-03_JPRB,9.6219E-03_JPRB,1.2561E-02_JPRB,1.3277E-02_JPRB,1.2681E-02_JPRB,1.1138E-02_JPRB,&
+ & 8.8166E-03_JPRB,5.8778E-03_JPRB,1.0410E+00_JPRB/)  
+KAO( :, 1, 5, 1) = (/&
+ & 1.4218E-03_JPRB,7.2507E-03_JPRB,9.2498E-03_JPRB,1.0184E-02_JPRB,9.8965E-03_JPRB,8.8186E-03_JPRB,&
+ & 6.9985E-03_JPRB,4.3450E-03_JPRB,9.2779E-01_JPRB/)  
+KAO( :, 2, 5, 1) = (/&
+ & 1.3666E-03_JPRB,7.4483E-03_JPRB,9.6959E-03_JPRB,1.0459E-02_JPRB,1.0098E-02_JPRB,8.9432E-03_JPRB,&
+ & 7.0603E-03_JPRB,4.3726E-03_JPRB,9.0832E-01_JPRB/)  
+KAO( :, 3, 5, 1) = (/&
+ & 1.3168E-03_JPRB,7.6293E-03_JPRB,1.0015E-02_JPRB,1.0662E-02_JPRB,1.0249E-02_JPRB,9.0283E-03_JPRB,&
+ & 7.1071E-03_JPRB,4.4354E-03_JPRB,8.8937E-01_JPRB/)  
+KAO( :, 4, 5, 1) = (/&
+ & 1.2715E-03_JPRB,7.8071E-03_JPRB,1.0236E-02_JPRB,1.0812E-02_JPRB,1.0352E-02_JPRB,9.0911E-03_JPRB,&
+ & 7.1478E-03_JPRB,4.5476E-03_JPRB,8.7061E-01_JPRB/)  
+KAO( :, 5, 5, 1) = (/&
+ & 1.2303E-03_JPRB,7.9773E-03_JPRB,1.0389E-02_JPRB,1.0918E-02_JPRB,1.0419E-02_JPRB,9.1375E-03_JPRB,&
+ & 7.1984E-03_JPRB,4.7106E-03_JPRB,8.5172E-01_JPRB/)  
+KAO( :, 1, 6, 1) = (/&
+ & 1.1609E-03_JPRB,5.9982E-03_JPRB,7.5441E-03_JPRB,8.3219E-03_JPRB,8.0915E-03_JPRB,7.2051E-03_JPRB,&
+ & 5.7215E-03_JPRB,3.5604E-03_JPRB,7.7269E-01_JPRB/)  
+KAO( :, 2, 6, 1) = (/&
+ & 1.1108E-03_JPRB,6.1686E-03_JPRB,7.9597E-03_JPRB,8.5717E-03_JPRB,8.2612E-03_JPRB,7.3195E-03_JPRB,&
+ & 5.7777E-03_JPRB,3.5731E-03_JPRB,7.5578E-01_JPRB/)  
+KAO( :, 3, 6, 1) = (/&
+ & 1.0654E-03_JPRB,6.3243E-03_JPRB,8.2392E-03_JPRB,8.7441E-03_JPRB,8.3924E-03_JPRB,7.3948E-03_JPRB,&
+ & 5.8188E-03_JPRB,3.6047E-03_JPRB,7.3901E-01_JPRB/)  
+KAO( :, 4, 6, 1) = (/&
+ & 1.0238E-03_JPRB,6.4720E-03_JPRB,8.4331E-03_JPRB,8.8696E-03_JPRB,8.4869E-03_JPRB,7.4498E-03_JPRB,&
+ & 5.8508E-03_JPRB,3.6714E-03_JPRB,7.2195E-01_JPRB/)  
+KAO( :, 5, 6, 1) = (/&
+ & 9.8558E-04_JPRB,6.6127E-03_JPRB,8.5578E-03_JPRB,8.9617E-03_JPRB,8.5506E-03_JPRB,7.4929E-03_JPRB,&
+ & 5.8848E-03_JPRB,3.7810E-03_JPRB,7.0447E-01_JPRB/)  
+KAO( :, 1, 7, 1) = (/&
+ & 9.5793E-04_JPRB,4.9392E-03_JPRB,6.0959E-03_JPRB,6.7658E-03_JPRB,6.6008E-03_JPRB,5.8761E-03_JPRB,&
+ & 4.6722E-03_JPRB,2.9165E-03_JPRB,6.5237E-01_JPRB/)  
+KAO( :, 2, 7, 1) = (/&
+ & 9.1189E-04_JPRB,5.0775E-03_JPRB,6.4806E-03_JPRB,7.0004E-03_JPRB,6.7455E-03_JPRB,5.9796E-03_JPRB,&
+ & 4.7234E-03_JPRB,2.9250E-03_JPRB,6.3689E-01_JPRB/)  
+KAO( :, 3, 7, 1) = (/&
+ & 8.7036E-04_JPRB,5.2121E-03_JPRB,6.7389E-03_JPRB,7.1547E-03_JPRB,6.8614E-03_JPRB,6.0502E-03_JPRB,&
+ & 4.7609E-03_JPRB,2.9391E-03_JPRB,6.2141E-01_JPRB/)  
+KAO( :, 4, 7, 1) = (/&
+ & 8.3275E-04_JPRB,5.3378E-03_JPRB,6.9169E-03_JPRB,7.2639E-03_JPRB,6.9474E-03_JPRB,6.1007E-03_JPRB,&
+ & 4.7893E-03_JPRB,2.9754E-03_JPRB,6.0575E-01_JPRB/)  
+KAO( :, 5, 7, 1) = (/&
+ & 7.9855E-04_JPRB,5.4591E-03_JPRB,7.0288E-03_JPRB,7.3444E-03_JPRB,7.0074E-03_JPRB,6.1400E-03_JPRB,&
+ & 4.8149E-03_JPRB,3.0449E-03_JPRB,5.8968E-01_JPRB/)  
+KAO( :, 1, 8, 1) = (/&
+ & 7.9465E-04_JPRB,4.0550E-03_JPRB,4.9071E-03_JPRB,5.4722E-03_JPRB,5.3709E-03_JPRB,4.7864E-03_JPRB,&
+ & 3.8134E-03_JPRB,2.3876E-03_JPRB,5.5983E-01_JPRB/)  
+KAO( :, 2, 8, 1) = (/&
+ & 7.5211E-04_JPRB,4.1645E-03_JPRB,5.2395E-03_JPRB,5.6983E-03_JPRB,5.5014E-03_JPRB,4.8765E-03_JPRB,&
+ & 3.8582E-03_JPRB,2.3958E-03_JPRB,5.4541E-01_JPRB/)  
+KAO( :, 3, 8, 1) = (/&
+ & 7.1425E-04_JPRB,4.2775E-03_JPRB,5.4907E-03_JPRB,5.8442E-03_JPRB,5.6010E-03_JPRB,4.9449E-03_JPRB,&
+ & 3.8932E-03_JPRB,2.4025E-03_JPRB,5.3089E-01_JPRB/)  
+KAO( :, 4, 8, 1) = (/&
+ & 6.8017E-04_JPRB,4.3807E-03_JPRB,5.6532E-03_JPRB,5.9396E-03_JPRB,5.6779E-03_JPRB,4.9919E-03_JPRB,&
+ & 3.9191E-03_JPRB,2.4205E-03_JPRB,5.1625E-01_JPRB/)  
+KAO( :, 5, 8, 1) = (/&
+ & 6.4915E-04_JPRB,4.4822E-03_JPRB,5.7602E-03_JPRB,6.0112E-03_JPRB,5.7346E-03_JPRB,5.0274E-03_JPRB,&
+ & 3.9402E-03_JPRB,2.4616E-03_JPRB,5.0156E-01_JPRB/)  
+KAO( :, 1, 9, 1) = (/&
+ & 6.6256E-04_JPRB,3.3231E-03_JPRB,3.9423E-03_JPRB,4.3965E-03_JPRB,4.3550E-03_JPRB,3.8950E-03_JPRB,&
+ & 3.1106E-03_JPRB,1.9527E-03_JPRB,4.7909E-01_JPRB/)  
+KAO( :, 2, 9, 1) = (/&
+ & 6.2337E-04_JPRB,3.4093E-03_JPRB,4.2109E-03_JPRB,4.6231E-03_JPRB,4.4821E-03_JPRB,3.9733E-03_JPRB,&
+ & 3.1493E-03_JPRB,1.9618E-03_JPRB,4.6525E-01_JPRB/)  
+KAO( :, 3, 9, 1) = (/&
+ & 5.8859E-04_JPRB,3.5021E-03_JPRB,4.4524E-03_JPRB,4.7638E-03_JPRB,4.5675E-03_JPRB,4.0358E-03_JPRB,&
+ & 3.1809E-03_JPRB,1.9669E-03_JPRB,4.5157E-01_JPRB/)  
+KAO( :, 4, 9, 1) = (/&
+ & 5.5740E-04_JPRB,3.5874E-03_JPRB,4.6083E-03_JPRB,4.8522E-03_JPRB,4.6363E-03_JPRB,4.0813E-03_JPRB,&
+ & 3.2054E-03_JPRB,1.9751E-03_JPRB,4.3811E-01_JPRB/)  
+KAO( :, 5, 9, 1) = (/&
+ & 5.2927E-04_JPRB,3.6711E-03_JPRB,4.7102E-03_JPRB,4.9155E-03_JPRB,4.6887E-03_JPRB,4.1135E-03_JPRB,&
+ & 3.2248E-03_JPRB,1.9974E-03_JPRB,4.2484E-01_JPRB/)  
+KAO( :, 1,10, 1) = (/&
+ & 5.5819E-04_JPRB,2.7284E-03_JPRB,3.1809E-03_JPRB,3.5314E-03_JPRB,3.5278E-03_JPRB,3.1713E-03_JPRB,&
+ & 2.5390E-03_JPRB,1.5979E-03_JPRB,4.1170E-01_JPRB/)  
+KAO( :, 2,10, 1) = (/&
+ & 5.2264E-04_JPRB,2.7960E-03_JPRB,3.3951E-03_JPRB,3.7490E-03_JPRB,3.6516E-03_JPRB,3.2397E-03_JPRB,&
+ & 2.5727E-03_JPRB,1.6061E-03_JPRB,3.9866E-01_JPRB/)  
+KAO( :, 3,10, 1) = (/&
+ & 4.9139E-04_JPRB,2.8693E-03_JPRB,3.6092E-03_JPRB,3.8820E-03_JPRB,3.7278E-03_JPRB,3.2940E-03_JPRB,&
+ & 2.5999E-03_JPRB,1.6112E-03_JPRB,3.8585E-01_JPRB/)  
+KAO( :, 4,10, 1) = (/&
+ & 4.6354E-04_JPRB,2.9405E-03_JPRB,3.7573E-03_JPRB,3.9654E-03_JPRB,3.7869E-03_JPRB,3.3368E-03_JPRB,&
+ & 2.6225E-03_JPRB,1.6157E-03_JPRB,3.7334E-01_JPRB/)  
+KAO( :, 5,10, 1) = (/&
+ & 4.3854E-04_JPRB,3.0087E-03_JPRB,3.8506E-03_JPRB,4.0212E-03_JPRB,3.8338E-03_JPRB,3.3662E-03_JPRB,&
+ & 2.6402E-03_JPRB,1.6279E-03_JPRB,3.6129E-01_JPRB/)  
+KAO( :, 1,11, 1) = (/&
+ & 4.5821E-04_JPRB,2.2621E-03_JPRB,2.6447E-03_JPRB,2.9297E-03_JPRB,2.9129E-03_JPRB,2.6105E-03_JPRB,&
+ & 2.0860E-03_JPRB,1.3108E-03_JPRB,3.4781E-01_JPRB/)  
+KAO( :, 2,11, 1) = (/&
+ & 4.2863E-04_JPRB,2.3183E-03_JPRB,2.8194E-03_JPRB,3.0973E-03_JPRB,3.0077E-03_JPRB,2.6638E-03_JPRB,&
+ & 2.1125E-03_JPRB,1.3172E-03_JPRB,3.3606E-01_JPRB/)  
+KAO( :, 3,11, 1) = (/&
+ & 4.0252E-04_JPRB,2.3779E-03_JPRB,2.9883E-03_JPRB,3.2000E-03_JPRB,3.0663E-03_JPRB,2.7064E-03_JPRB,&
+ & 2.1343E-03_JPRB,1.3214E-03_JPRB,3.2458E-01_JPRB/)  
+KAO( :, 4,11, 1) = (/&
+ & 3.7927E-04_JPRB,2.4351E-03_JPRB,3.1025E-03_JPRB,3.2639E-03_JPRB,3.1126E-03_JPRB,2.7399E-03_JPRB,&
+ & 2.1527E-03_JPRB,1.3253E-03_JPRB,3.1358E-01_JPRB/)  
+KAO( :, 5,11, 1) = (/&
+ & 3.5851E-04_JPRB,2.4897E-03_JPRB,3.1743E-03_JPRB,3.3073E-03_JPRB,3.1494E-03_JPRB,2.7631E-03_JPRB,&
+ & 2.1670E-03_JPRB,1.3357E-03_JPRB,3.0304E-01_JPRB/)  
+KAO( :, 1,12, 1) = (/&
+ & 3.7566E-04_JPRB,1.8705E-03_JPRB,2.1955E-03_JPRB,2.4263E-03_JPRB,2.4027E-03_JPRB,2.1477E-03_JPRB,&
+ & 1.7133E-03_JPRB,1.0753E-03_JPRB,2.9614E-01_JPRB/)  
+KAO( :, 2,12, 1) = (/&
+ & 3.5112E-04_JPRB,1.9175E-03_JPRB,2.3381E-03_JPRB,2.5565E-03_JPRB,2.4759E-03_JPRB,2.1892E-03_JPRB,&
+ & 1.7343E-03_JPRB,1.0803E-03_JPRB,2.8551E-01_JPRB/)  
+KAO( :, 3,12, 1) = (/&
+ & 3.2946E-04_JPRB,1.9676E-03_JPRB,2.4711E-03_JPRB,2.6363E-03_JPRB,2.5213E-03_JPRB,2.2227E-03_JPRB,&
+ & 1.7519E-03_JPRB,1.0837E-03_JPRB,2.7528E-01_JPRB/)  
+KAO( :, 4,12, 1) = (/&
+ & 3.1028E-04_JPRB,2.0138E-03_JPRB,2.5600E-03_JPRB,2.6860E-03_JPRB,2.5577E-03_JPRB,2.2494E-03_JPRB,&
+ & 1.7667E-03_JPRB,1.0872E-03_JPRB,2.6557E-01_JPRB/)  
+KAO( :, 5,12, 1) = (/&
+ & 2.9320E-04_JPRB,2.0583E-03_JPRB,2.6161E-03_JPRB,2.7200E-03_JPRB,2.5866E-03_JPRB,2.2676E-03_JPRB,&
+ & 1.7779E-03_JPRB,1.0961E-03_JPRB,2.5635E-01_JPRB/)  
+KAO( :, 1,13, 1) = (/&
+ & 3.0764E-04_JPRB,1.5429E-03_JPRB,1.8188E-03_JPRB,2.0063E-03_JPRB,1.9799E-03_JPRB,1.7660E-03_JPRB,&
+ & 1.4068E-03_JPRB,8.8203E-04_JPRB,2.5899E-01_JPRB/)  
+KAO( :, 2,13, 1) = (/&
+ & 2.8735E-04_JPRB,1.5821E-03_JPRB,1.9364E-03_JPRB,2.1086E-03_JPRB,2.0369E-03_JPRB,1.7986E-03_JPRB,&
+ & 1.4237E-03_JPRB,8.8599E-04_JPRB,2.4914E-01_JPRB/)  
+KAO( :, 3,13, 1) = (/&
+ & 2.6953E-04_JPRB,1.6236E-03_JPRB,2.0412E-03_JPRB,2.1709E-03_JPRB,2.0725E-03_JPRB,1.8251E-03_JPRB,&
+ & 1.4376E-03_JPRB,8.8887E-04_JPRB,2.3982E-01_JPRB/)  
+KAO( :, 4,13, 1) = (/&
+ & 2.5380E-04_JPRB,1.6612E-03_JPRB,2.1113E-03_JPRB,2.2099E-03_JPRB,2.1013E-03_JPRB,1.8462E-03_JPRB,&
+ & 1.4493E-03_JPRB,8.9188E-04_JPRB,2.3102E-01_JPRB/)  
+KAO( :, 5,13, 1) = (/&
+ & 2.3980E-04_JPRB,1.6979E-03_JPRB,2.1555E-03_JPRB,2.2365E-03_JPRB,2.1241E-03_JPRB,1.8607E-03_JPRB,&
+ & 1.4583E-03_JPRB,8.9931E-04_JPRB,2.2279E-01_JPRB/)  
+KAO( :, 1, 1, 2) = (/&
+ & 7.0943E-03_JPRB,3.8387E-02_JPRB,4.3151E-02_JPRB,4.2731E-02_JPRB,4.0946E-02_JPRB,3.8949E-02_JPRB,&
+ & 3.7362E-02_JPRB,3.5997E-02_JPRB,3.1543E+00_JPRB/)  
+KAO( :, 2, 1, 2) = (/&
+ & 7.0850E-03_JPRB,3.8454E-02_JPRB,4.2900E-02_JPRB,4.3028E-02_JPRB,4.2284E-02_JPRB,4.1753E-02_JPRB,&
+ & 4.1711E-02_JPRB,4.1528E-02_JPRB,3.1189E+00_JPRB/)  
+KAO( :, 3, 1, 2) = (/&
+ & 7.0813E-03_JPRB,3.8363E-02_JPRB,4.2614E-02_JPRB,4.3463E-02_JPRB,4.3963E-02_JPRB,4.4905E-02_JPRB,&
+ & 4.6271E-02_JPRB,4.7132E-02_JPRB,3.0948E+00_JPRB/)  
+KAO( :, 4, 1, 2) = (/&
+ & 7.0651E-03_JPRB,3.8151E-02_JPRB,4.2395E-02_JPRB,4.4068E-02_JPRB,4.5862E-02_JPRB,4.8163E-02_JPRB,&
+ & 5.0764E-02_JPRB,5.2533E-02_JPRB,3.0805E+00_JPRB/)  
+KAO( :, 5, 1, 2) = (/&
+ & 7.0475E-03_JPRB,3.7840E-02_JPRB,4.2280E-02_JPRB,4.4809E-02_JPRB,4.7823E-02_JPRB,5.1372E-02_JPRB,&
+ & 5.5020E-02_JPRB,5.7574E-02_JPRB,3.0698E+00_JPRB/)  
+KAO( :, 1, 2, 2) = (/&
+ & 5.4133E-03_JPRB,3.2388E-02_JPRB,3.6287E-02_JPRB,3.5903E-02_JPRB,3.4407E-02_JPRB,3.2747E-02_JPRB,&
+ & 3.1453E-02_JPRB,3.0272E-02_JPRB,2.5533E+00_JPRB/)  
+KAO( :, 2, 2, 2) = (/&
+ & 5.3611E-03_JPRB,3.2430E-02_JPRB,3.6074E-02_JPRB,3.6216E-02_JPRB,3.5593E-02_JPRB,3.5203E-02_JPRB,&
+ & 3.5194E-02_JPRB,3.4997E-02_JPRB,2.5086E+00_JPRB/)  
+KAO( :, 3, 2, 2) = (/&
+ & 5.3281E-03_JPRB,3.2322E-02_JPRB,3.5847E-02_JPRB,3.6639E-02_JPRB,3.7078E-02_JPRB,3.7935E-02_JPRB,&
+ & 3.9143E-02_JPRB,3.9849E-02_JPRB,2.4723E+00_JPRB/)  
+KAO( :, 4, 2, 2) = (/&
+ & 5.3094E-03_JPRB,3.2112E-02_JPRB,3.5677E-02_JPRB,3.7178E-02_JPRB,3.8741E-02_JPRB,4.0767E-02_JPRB,&
+ & 4.3021E-02_JPRB,4.4489E-02_JPRB,2.4475E+00_JPRB/)  
+KAO( :, 5, 2, 2) = (/&
+ & 5.2887E-03_JPRB,3.1839E-02_JPRB,3.5583E-02_JPRB,3.7831E-02_JPRB,4.0436E-02_JPRB,4.3525E-02_JPRB,&
+ & 4.6680E-02_JPRB,4.8869E-02_JPRB,2.4311E+00_JPRB/)  
+KAO( :, 1, 3, 2) = (/&
+ & 4.0611E-03_JPRB,2.7170E-02_JPRB,3.0405E-02_JPRB,3.0026E-02_JPRB,2.8647E-02_JPRB,2.7115E-02_JPRB,&
+ & 2.5770E-02_JPRB,2.4484E-02_JPRB,2.0491E+00_JPRB/)  
+KAO( :, 2, 3, 2) = (/&
+ & 3.9775E-03_JPRB,2.7189E-02_JPRB,3.0241E-02_JPRB,3.0301E-02_JPRB,2.9626E-02_JPRB,2.9114E-02_JPRB,&
+ & 2.8843E-02_JPRB,2.8434E-02_JPRB,1.9991E+00_JPRB/)  
+KAO( :, 3, 3, 2) = (/&
+ & 3.9065E-03_JPRB,2.7099E-02_JPRB,3.0059E-02_JPRB,3.0647E-02_JPRB,3.0854E-02_JPRB,3.1397E-02_JPRB,&
+ & 3.2170E-02_JPRB,3.2541E-02_JPRB,1.9562E+00_JPRB/)  
+KAO( :, 4, 3, 2) = (/&
+ & 3.8466E-03_JPRB,2.6925E-02_JPRB,2.9905E-02_JPRB,3.1087E-02_JPRB,3.2235E-02_JPRB,3.3772E-02_JPRB,&
+ & 3.5477E-02_JPRB,3.6558E-02_JPRB,1.9207E+00_JPRB/)  
+KAO( :, 5, 3, 2) = (/&
+ & 3.7983E-03_JPRB,2.6668E-02_JPRB,2.9797E-02_JPRB,3.1593E-02_JPRB,3.3666E-02_JPRB,3.6136E-02_JPRB,&
+ & 3.8655E-02_JPRB,4.0337E-02_JPRB,1.8904E+00_JPRB/)  
+KAO( :, 1, 4, 2) = (/&
+ & 3.1618E-03_JPRB,2.2735E-02_JPRB,2.5430E-02_JPRB,2.5073E-02_JPRB,2.3860E-02_JPRB,2.2346E-02_JPRB,&
+ & 2.0906E-02_JPRB,1.9493E-02_JPRB,1.6815E+00_JPRB/)  
+KAO( :, 2, 4, 2) = (/&
+ & 3.0772E-03_JPRB,2.2769E-02_JPRB,2.5323E-02_JPRB,2.5294E-02_JPRB,2.4614E-02_JPRB,2.3917E-02_JPRB,&
+ & 2.3363E-02_JPRB,2.2717E-02_JPRB,1.6300E+00_JPRB/)  
+KAO( :, 3, 4, 2) = (/&
+ & 2.9989E-03_JPRB,2.2705E-02_JPRB,2.5187E-02_JPRB,2.5585E-02_JPRB,2.5590E-02_JPRB,2.5772E-02_JPRB,&
+ & 2.6101E-02_JPRB,2.6159E-02_JPRB,1.5868E+00_JPRB/)  
+KAO( :, 4, 4, 2) = (/&
+ & 2.9269E-03_JPRB,2.2567E-02_JPRB,2.5061E-02_JPRB,2.5933E-02_JPRB,2.6708E-02_JPRB,2.7738E-02_JPRB,&
+ & 2.8897E-02_JPRB,2.9580E-02_JPRB,1.5492E+00_JPRB/)  
+KAO( :, 5, 4, 2) = (/&
+ & 2.8633E-03_JPRB,2.2345E-02_JPRB,2.4951E-02_JPRB,2.6338E-02_JPRB,2.7898E-02_JPRB,2.9732E-02_JPRB,&
+ & 3.1610E-02_JPRB,3.2830E-02_JPRB,1.5179E+00_JPRB/)  
+KAO( :, 1, 5, 2) = (/&
+ & 2.5495E-03_JPRB,1.8985E-02_JPRB,2.1259E-02_JPRB,2.0956E-02_JPRB,1.9882E-02_JPRB,1.8351E-02_JPRB,&
+ & 1.6812E-02_JPRB,1.5262E-02_JPRB,1.4081E+00_JPRB/)  
+KAO( :, 2, 5, 2) = (/&
+ & 2.4663E-03_JPRB,1.9038E-02_JPRB,2.1177E-02_JPRB,2.1145E-02_JPRB,2.0437E-02_JPRB,1.9579E-02_JPRB,&
+ & 1.8803E-02_JPRB,1.7942E-02_JPRB,1.3595E+00_JPRB/)  
+KAO( :, 3, 5, 2) = (/&
+ & 2.3921E-03_JPRB,1.9006E-02_JPRB,2.1089E-02_JPRB,2.1375E-02_JPRB,2.1189E-02_JPRB,2.1072E-02_JPRB,&
+ & 2.1043E-02_JPRB,2.0814E-02_JPRB,1.3176E+00_JPRB/)  
+KAO( :, 4, 5, 2) = (/&
+ & 2.3238E-03_JPRB,1.8899E-02_JPRB,2.0991E-02_JPRB,2.1643E-02_JPRB,2.2082E-02_JPRB,2.2687E-02_JPRB,&
+ & 2.3376E-02_JPRB,2.3722E-02_JPRB,1.2814E+00_JPRB/)  
+KAO( :, 5, 5, 2) = (/&
+ & 2.2609E-03_JPRB,1.8711E-02_JPRB,2.0886E-02_JPRB,2.1958E-02_JPRB,2.3037E-02_JPRB,2.4321E-02_JPRB,&
+ & 2.5657E-02_JPRB,2.6474E-02_JPRB,1.2502E+00_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB15:PART1',1,ZHOOK_HANDLE)
+END SUBROUTINE PART1
+
+
+SUBROUTINE PART2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB15:PART2',0,ZHOOK_HANDLE)
+
+
+KAO( :, 1, 6, 2) = (/&
+ & 2.1136E-03_JPRB,1.5844E-02_JPRB,1.7815E-02_JPRB,1.7475E-02_JPRB,1.6448E-02_JPRB,1.4925E-02_JPRB,&
+ & 1.3323E-02_JPRB,1.1714E-02_JPRB,1.1933E+00_JPRB/)  
+KAO( :, 2, 6, 2) = (/&
+ & 2.0306E-03_JPRB,1.5911E-02_JPRB,1.7725E-02_JPRB,1.7645E-02_JPRB,1.6857E-02_JPRB,1.5846E-02_JPRB,&
+ & 1.4877E-02_JPRB,1.3852E-02_JPRB,1.1478E+00_JPRB/)  
+KAO( :, 3, 6, 2) = (/&
+ & 1.9573E-03_JPRB,1.5900E-02_JPRB,1.7665E-02_JPRB,1.7815E-02_JPRB,1.7433E-02_JPRB,1.7030E-02_JPRB,&
+ & 1.6681E-02_JPRB,1.6204E-02_JPRB,1.1091E+00_JPRB/)  
+KAO( :, 4, 6, 2) = (/&
+ & 1.8915E-03_JPRB,1.5823E-02_JPRB,1.7587E-02_JPRB,1.8019E-02_JPRB,1.8141E-02_JPRB,1.8355E-02_JPRB,&
+ & 1.8615E-02_JPRB,1.8633E-02_JPRB,1.0755E+00_JPRB/)  
+KAO( :, 5, 6, 2) = (/&
+ & 1.8316E-03_JPRB,1.5671E-02_JPRB,1.7495E-02_JPRB,1.8250E-02_JPRB,1.8907E-02_JPRB,1.9704E-02_JPRB,&
+ & 2.0534E-02_JPRB,2.0986E-02_JPRB,1.0458E+00_JPRB/)  
+KAO( :, 1, 7, 2) = (/&
+ & 1.7779E-03_JPRB,1.3214E-02_JPRB,1.4915E-02_JPRB,1.4490E-02_JPRB,1.3534E-02_JPRB,1.2115E-02_JPRB,&
+ & 1.0525E-02_JPRB,8.9151E-03_JPRB,1.0250E+00_JPRB/)  
+KAO( :, 2, 7, 2) = (/&
+ & 1.6955E-03_JPRB,1.3308E-02_JPRB,1.4823E-02_JPRB,1.4622E-02_JPRB,1.3840E-02_JPRB,1.2763E-02_JPRB,&
+ & 1.1685E-02_JPRB,1.0574E-02_JPRB,9.8268E-01_JPRB/)  
+KAO( :, 3, 7, 2) = (/&
+ & 1.6237E-03_JPRB,1.3311E-02_JPRB,1.4766E-02_JPRB,1.4761E-02_JPRB,1.4249E-02_JPRB,1.3650E-02_JPRB,&
+ & 1.3091E-02_JPRB,1.2450E-02_JPRB,9.4696E-01_JPRB/)  
+KAO( :, 4, 7, 2) = (/&
+ & 1.5603E-03_JPRB,1.3256E-02_JPRB,1.4695E-02_JPRB,1.4910E-02_JPRB,1.4782E-02_JPRB,1.4700E-02_JPRB,&
+ & 1.4648E-02_JPRB,1.4438E-02_JPRB,9.1575E-01_JPRB/)  
+KAO( :, 5, 7, 2) = (/&
+ & 1.5029E-03_JPRB,1.3127E-02_JPRB,1.4617E-02_JPRB,1.5078E-02_JPRB,1.5382E-02_JPRB,1.5792E-02_JPRB,&
+ & 1.6228E-02_JPRB,1.6399E-02_JPRB,8.8786E-01_JPRB/)  
+KAO( :, 1, 8, 2) = (/&
+ & 1.5020E-03_JPRB,1.1002E-02_JPRB,1.2408E-02_JPRB,1.1986E-02_JPRB,1.1101E-02_JPRB,9.8378E-03_JPRB,&
+ & 8.3304E-03_JPRB,6.7732E-03_JPRB,8.9770E-01_JPRB/)  
+KAO( :, 2, 8, 2) = (/&
+ & 1.4230E-03_JPRB,1.1110E-02_JPRB,1.2342E-02_JPRB,1.2073E-02_JPRB,1.1340E-02_JPRB,1.0282E-02_JPRB,&
+ & 9.1665E-03_JPRB,8.0270E-03_JPRB,8.5759E-01_JPRB/)  
+KAO( :, 3, 8, 2) = (/&
+ & 1.3543E-03_JPRB,1.1124E-02_JPRB,1.2281E-02_JPRB,1.2183E-02_JPRB,1.1624E-02_JPRB,1.0918E-02_JPRB,&
+ & 1.0231E-02_JPRB,9.4957E-03_JPRB,8.2343E-01_JPRB/)  
+KAO( :, 4, 8, 2) = (/&
+ & 1.2937E-03_JPRB,1.1088E-02_JPRB,1.2220E-02_JPRB,1.2293E-02_JPRB,1.2008E-02_JPRB,1.1719E-02_JPRB,&
+ & 1.1453E-02_JPRB,1.1081E-02_JPRB,7.9354E-01_JPRB/)  
+KAO( :, 5, 8, 2) = (/&
+ & 1.2398E-03_JPRB,1.0985E-02_JPRB,1.2152E-02_JPRB,1.2411E-02_JPRB,1.2469E-02_JPRB,1.2594E-02_JPRB,&
+ & 1.2739E-02_JPRB,1.2705E-02_JPRB,7.6694E-01_JPRB/)  
+KAO( :, 1, 9, 2) = (/&
+ & 1.2772E-03_JPRB,9.1185E-03_JPRB,1.0283E-02_JPRB,9.9108E-03_JPRB,9.0933E-03_JPRB,7.9937E-03_JPRB,&
+ & 6.6146E-03_JPRB,5.1482E-03_JPRB,7.8565E-01_JPRB/)  
+KAO( :, 2, 9, 2) = (/&
+ & 1.2008E-03_JPRB,9.2246E-03_JPRB,1.0254E-02_JPRB,9.9497E-03_JPRB,9.2744E-03_JPRB,8.2956E-03_JPRB,&
+ & 7.1977E-03_JPRB,6.0715E-03_JPRB,7.4762E-01_JPRB/)  
+KAO( :, 3, 9, 2) = (/&
+ & 1.1346E-03_JPRB,9.2567E-03_JPRB,1.0190E-02_JPRB,1.0030E-02_JPRB,9.4797E-03_JPRB,8.7349E-03_JPRB,&
+ & 7.9799E-03_JPRB,7.1919E-03_JPRB,7.1506E-01_JPRB/)  
+KAO( :, 4, 9, 2) = (/&
+ & 1.0767E-03_JPRB,9.2317E-03_JPRB,1.0137E-02_JPRB,1.0114E-02_JPRB,9.7458E-03_JPRB,9.3188E-03_JPRB,&
+ & 8.9121E-03_JPRB,8.4415E-03_JPRB,6.8636E-01_JPRB/)  
+KAO( :, 5, 9, 2) = (/&
+ & 1.0254E-03_JPRB,9.1543E-03_JPRB,1.0077E-02_JPRB,1.0198E-02_JPRB,1.0088E-02_JPRB,1.0005E-02_JPRB,&
+ & 9.9430E-03_JPRB,9.7610E-03_JPRB,6.6072E-01_JPRB/)  
+KAO( :, 1,10, 2) = (/&
+ & 1.0908E-03_JPRB,7.5349E-03_JPRB,8.5055E-03_JPRB,8.1913E-03_JPRB,7.4594E-03_JPRB,6.5117E-03_JPRB,&
+ & 5.3043E-03_JPRB,3.9738E-03_JPRB,6.8647E-01_JPRB/)  
+KAO( :, 2,10, 2) = (/&
+ & 1.0219E-03_JPRB,7.6350E-03_JPRB,8.4942E-03_JPRB,8.2002E-03_JPRB,7.5922E-03_JPRB,6.7288E-03_JPRB,&
+ & 5.7099E-03_JPRB,4.6532E-03_JPRB,6.5148E-01_JPRB/)  
+KAO( :, 3,10, 2) = (/&
+ & 9.6216E-04_JPRB,7.6768E-03_JPRB,8.4412E-03_JPRB,8.2544E-03_JPRB,7.7463E-03_JPRB,7.0316E-03_JPRB,&
+ & 6.2789E-03_JPRB,5.5007E-03_JPRB,6.2153E-01_JPRB/)  
+KAO( :, 4,10, 2) = (/&
+ & 9.0949E-04_JPRB,7.6636E-03_JPRB,8.3915E-03_JPRB,8.3156E-03_JPRB,7.9306E-03_JPRB,7.4536E-03_JPRB,&
+ & 6.9877E-03_JPRB,6.4813E-03_JPRB,5.9517E-01_JPRB/)  
+KAO( :, 5,10, 2) = (/&
+ & 8.6244E-04_JPRB,7.6028E-03_JPRB,8.3387E-03_JPRB,8.3779E-03_JPRB,8.1810E-03_JPRB,7.9831E-03_JPRB,&
+ & 7.7997E-03_JPRB,7.5371E-03_JPRB,5.7147E-01_JPRB/)  
+KAO( :, 1,11, 2) = (/&
+ & 9.0171E-04_JPRB,6.2591E-03_JPRB,7.0260E-03_JPRB,6.7592E-03_JPRB,6.1582E-03_JPRB,5.3757E-03_JPRB,&
+ & 4.3823E-03_JPRB,3.2909E-03_JPRB,5.8305E-01_JPRB/)  
+KAO( :, 2,11, 2) = (/&
+ & 8.4471E-04_JPRB,6.3292E-03_JPRB,7.0117E-03_JPRB,6.7680E-03_JPRB,6.2644E-03_JPRB,5.5512E-03_JPRB,&
+ & 4.7161E-03_JPRB,3.8488E-03_JPRB,5.5321E-01_JPRB/)  
+KAO( :, 3,11, 2) = (/&
+ & 7.9501E-04_JPRB,6.3542E-03_JPRB,6.9623E-03_JPRB,6.8076E-03_JPRB,6.3850E-03_JPRB,5.7984E-03_JPRB,&
+ & 5.1814E-03_JPRB,4.5421E-03_JPRB,5.2752E-01_JPRB/)  
+KAO( :, 4,11, 2) = (/&
+ & 7.5106E-04_JPRB,6.3305E-03_JPRB,6.9164E-03_JPRB,6.8517E-03_JPRB,6.5339E-03_JPRB,6.1441E-03_JPRB,&
+ & 5.7616E-03_JPRB,5.3442E-03_JPRB,5.0480E-01_JPRB/)  
+KAO( :, 5,11, 2) = (/&
+ & 7.1176E-04_JPRB,6.2680E-03_JPRB,6.8638E-03_JPRB,6.9010E-03_JPRB,6.7399E-03_JPRB,6.5787E-03_JPRB,&
+ & 6.4276E-03_JPRB,6.2093E-03_JPRB,4.8460E-01_JPRB/)  
+KAO( :, 1,12, 2) = (/&
+ & 7.4344E-04_JPRB,5.1893E-03_JPRB,5.7960E-03_JPRB,5.5712E-03_JPRB,5.0774E-03_JPRB,4.4320E-03_JPRB,&
+ & 3.6146E-03_JPRB,2.7192E-03_JPRB,4.9987E-01_JPRB/)  
+KAO( :, 2,12, 2) = (/&
+ & 6.9630E-04_JPRB,5.2389E-03_JPRB,5.7776E-03_JPRB,5.5769E-03_JPRB,5.1607E-03_JPRB,4.5730E-03_JPRB,&
+ & 3.8872E-03_JPRB,3.1759E-03_JPRB,4.7411E-01_JPRB/)  
+KAO( :, 3,12, 2) = (/&
+ & 6.5505E-04_JPRB,5.2495E-03_JPRB,5.7335E-03_JPRB,5.6051E-03_JPRB,5.2555E-03_JPRB,4.7752E-03_JPRB,&
+ & 4.2687E-03_JPRB,3.7439E-03_JPRB,4.5176E-01_JPRB/)  
+KAO( :, 4,12, 2) = (/&
+ & 6.1851E-04_JPRB,5.2199E-03_JPRB,5.6893E-03_JPRB,5.6379E-03_JPRB,5.3780E-03_JPRB,5.0596E-03_JPRB,&
+ & 4.7451E-03_JPRB,4.4010E-03_JPRB,4.3213E-01_JPRB/)  
+KAO( :, 5,12, 2) = (/&
+ & 5.8564E-04_JPRB,5.1584E-03_JPRB,5.6408E-03_JPRB,5.6781E-03_JPRB,5.5493E-03_JPRB,5.4174E-03_JPRB,&
+ & 5.2919E-03_JPRB,5.1102E-03_JPRB,4.1474E-01_JPRB/)  
+KAO( :, 1,13, 2) = (/&
+ & 6.1162E-04_JPRB,4.2978E-03_JPRB,4.7775E-03_JPRB,4.5861E-03_JPRB,4.1806E-03_JPRB,3.6483E-03_JPRB,&
+ & 2.9761E-03_JPRB,2.2409E-03_JPRB,4.4173E-01_JPRB/)  
+KAO( :, 2,13, 2) = (/&
+ & 5.7264E-04_JPRB,4.3335E-03_JPRB,4.7546E-03_JPRB,4.5895E-03_JPRB,4.2458E-03_JPRB,3.7618E-03_JPRB,&
+ & 3.1994E-03_JPRB,2.6153E-03_JPRB,4.1858E-01_JPRB/)  
+KAO( :, 3,13, 2) = (/&
+ & 5.3845E-04_JPRB,4.3324E-03_JPRB,4.7152E-03_JPRB,4.6098E-03_JPRB,4.3213E-03_JPRB,3.9280E-03_JPRB,&
+ & 3.5124E-03_JPRB,3.0807E-03_JPRB,3.9852E-01_JPRB/)  
+KAO( :, 4,13, 2) = (/&
+ & 5.0800E-04_JPRB,4.3007E-03_JPRB,4.6739E-03_JPRB,4.6354E-03_JPRB,4.4237E-03_JPRB,4.1636E-03_JPRB,&
+ & 3.9041E-03_JPRB,3.6190E-03_JPRB,3.8103E-01_JPRB/)  
+KAO( :, 5,13, 2) = (/&
+ & 4.8061E-04_JPRB,4.2432E-03_JPRB,4.6321E-03_JPRB,4.6674E-03_JPRB,4.5673E-03_JPRB,4.4592E-03_JPRB,&
+ & 4.3539E-03_JPRB,4.2010E-03_JPRB,3.6549E-01_JPRB/)  
+KAO( :, 1, 1, 3) = (/&
+ & 1.1504E-02_JPRB,5.1115E-02_JPRB,6.3490E-02_JPRB,7.5739E-02_JPRB,8.9129E-02_JPRB,1.0261E-01_JPRB,&
+ & 1.1510E-01_JPRB,1.2497E-01_JPRB,4.5470E+00_JPRB/)  
+KAO( :, 2, 1, 3) = (/&
+ & 1.1411E-02_JPRB,5.0441E-02_JPRB,6.4398E-02_JPRB,7.8958E-02_JPRB,9.4436E-02_JPRB,1.0965E-01_JPRB,&
+ & 1.2371E-01_JPRB,1.3505E-01_JPRB,4.5111E+00_JPRB/)  
+KAO( :, 3, 1, 3) = (/&
+ & 1.1360E-02_JPRB,4.9859E-02_JPRB,6.5352E-02_JPRB,8.1890E-02_JPRB,9.8960E-02_JPRB,1.1556E-01_JPRB,&
+ & 1.3095E-01_JPRB,1.4357E-01_JPRB,4.4964E+00_JPRB/)  
+KAO( :, 4, 1, 3) = (/&
+ & 1.1361E-02_JPRB,4.9396E-02_JPRB,6.6358E-02_JPRB,8.4565E-02_JPRB,1.0289E-01_JPRB,1.2064E-01_JPRB,&
+ & 1.3719E-01_JPRB,1.5089E-01_JPRB,4.4952E+00_JPRB/)  
+KAO( :, 5, 1, 3) = (/&
+ & 1.1398E-02_JPRB,4.9071E-02_JPRB,6.7320E-02_JPRB,8.6942E-02_JPRB,1.0642E-01_JPRB,1.2520E-01_JPRB,&
+ & 1.4278E-01_JPRB,1.5748E-01_JPRB,4.5069E+00_JPRB/)  
+KAO( :, 1, 2, 3) = (/&
+ & 9.0800E-03_JPRB,4.3518E-02_JPRB,5.4317E-02_JPRB,6.5007E-02_JPRB,7.6680E-02_JPRB,8.8428E-02_JPRB,&
+ & 9.9245E-02_JPRB,1.0777E-01_JPRB,3.7305E+00_JPRB/)  
+KAO( :, 2, 2, 3) = (/&
+ & 8.9700E-03_JPRB,4.2947E-02_JPRB,5.5146E-02_JPRB,6.7953E-02_JPRB,8.1575E-02_JPRB,9.4893E-02_JPRB,&
+ & 1.0724E-01_JPRB,1.1720E-01_JPRB,3.6786E+00_JPRB/)  
+KAO( :, 3, 2, 3) = (/&
+ & 8.8659E-03_JPRB,4.2433E-02_JPRB,5.6085E-02_JPRB,7.0736E-02_JPRB,8.5859E-02_JPRB,1.0050E-01_JPRB,&
+ & 1.1405E-01_JPRB,1.2513E-01_JPRB,3.6433E+00_JPRB/)  
+KAO( :, 4, 2, 3) = (/&
+ & 8.7765E-03_JPRB,4.1995E-02_JPRB,5.7083E-02_JPRB,7.3307E-02_JPRB,8.9633E-02_JPRB,1.0538E-01_JPRB,&
+ & 1.1996E-01_JPRB,1.3207E-01_JPRB,3.6200E+00_JPRB/)  
+KAO( :, 5, 2, 3) = (/&
+ & 8.7192E-03_JPRB,4.1672E-02_JPRB,5.8019E-02_JPRB,7.5546E-02_JPRB,9.2932E-02_JPRB,1.0966E-01_JPRB,&
+ & 1.2527E-01_JPRB,1.3822E-01_JPRB,3.6042E+00_JPRB/)  
+KAO( :, 1, 3, 3) = (/&
+ & 6.9828E-03_JPRB,3.6975E-02_JPRB,4.6012E-02_JPRB,5.4717E-02_JPRB,6.4326E-02_JPRB,7.4011E-02_JPRB,&
+ & 8.2981E-02_JPRB,8.9968E-02_JPRB,3.0198E+00_JPRB/)  
+KAO( :, 2, 3, 3) = (/&
+ & 6.8270E-03_JPRB,3.6472E-02_JPRB,4.6704E-02_JPRB,5.7392E-02_JPRB,6.8826E-02_JPRB,8.0074E-02_JPRB,&
+ & 9.0443E-02_JPRB,9.8762E-02_JPRB,2.9461E+00_JPRB/)  
+KAO( :, 3, 3, 3) = (/&
+ & 6.7044E-03_JPRB,3.6003E-02_JPRB,4.7551E-02_JPRB,5.9975E-02_JPRB,7.2865E-02_JPRB,8.5354E-02_JPRB,&
+ & 9.6922E-02_JPRB,1.0635E-01_JPRB,2.8886E+00_JPRB/)  
+KAO( :, 4, 3, 3) = (/&
+ & 6.5993E-03_JPRB,3.5562E-02_JPRB,4.8474E-02_JPRB,6.2398E-02_JPRB,7.6490E-02_JPRB,9.0037E-02_JPRB,&
+ & 1.0257E-01_JPRB,1.1285E-01_JPRB,2.8436E+00_JPRB/)  
+KAO( :, 5, 3, 3) = (/&
+ & 6.5059E-03_JPRB,3.5210E-02_JPRB,4.9353E-02_JPRB,6.4534E-02_JPRB,7.9605E-02_JPRB,9.4094E-02_JPRB,&
+ & 1.0752E-01_JPRB,1.1864E-01_JPRB,2.8111E+00_JPRB/)  
+KAO( :, 1, 4, 3) = (/&
+ & 5.5908E-03_JPRB,3.1365E-02_JPRB,3.8737E-02_JPRB,4.5544E-02_JPRB,5.3149E-02_JPRB,6.0919E-02_JPRB,&
+ & 6.8125E-02_JPRB,7.3670E-02_JPRB,2.5046E+00_JPRB/)  
+KAO( :, 2, 4, 3) = (/&
+ & 5.3957E-03_JPRB,3.0920E-02_JPRB,3.9328E-02_JPRB,4.7957E-02_JPRB,5.7284E-02_JPRB,6.6485E-02_JPRB,&
+ & 7.5002E-02_JPRB,8.1748E-02_JPRB,2.4277E+00_JPRB/)  
+KAO( :, 3, 4, 3) = (/&
+ & 5.2334E-03_JPRB,3.0500E-02_JPRB,4.0047E-02_JPRB,5.0287E-02_JPRB,6.0995E-02_JPRB,7.1412E-02_JPRB,&
+ & 8.1019E-02_JPRB,8.8826E-02_JPRB,2.3616E+00_JPRB/)  
+KAO( :, 4, 4, 3) = (/&
+ & 5.0990E-03_JPRB,3.0103E-02_JPRB,4.0857E-02_JPRB,5.2515E-02_JPRB,6.4366E-02_JPRB,7.5769E-02_JPRB,&
+ & 8.6313E-02_JPRB,9.4909E-02_JPRB,2.3071E+00_JPRB/)  
+KAO( :, 5, 4, 3) = (/&
+ & 4.9843E-03_JPRB,2.9769E-02_JPRB,4.1653E-02_JPRB,5.4480E-02_JPRB,6.7248E-02_JPRB,7.9493E-02_JPRB,&
+ & 9.0850E-02_JPRB,1.0015E-01_JPRB,2.2622E+00_JPRB/)  
+KAO( :, 1, 5, 3) = (/&
+ & 4.6371E-03_JPRB,2.6536E-02_JPRB,3.2443E-02_JPRB,3.7642E-02_JPRB,4.3487E-02_JPRB,4.9620E-02_JPRB,&
+ & 5.5321E-02_JPRB,5.9691E-02_JPRB,2.1169E+00_JPRB/)  
+KAO( :, 2, 5, 3) = (/&
+ & 4.4354E-03_JPRB,2.6146E-02_JPRB,3.2937E-02_JPRB,3.9753E-02_JPRB,4.7206E-02_JPRB,5.4649E-02_JPRB,&
+ & 6.1517E-02_JPRB,6.6941E-02_JPRB,2.0403E+00_JPRB/)  
+KAO( :, 3, 5, 3) = (/&
+ & 4.2621E-03_JPRB,2.5770E-02_JPRB,3.3534E-02_JPRB,4.1840E-02_JPRB,5.0602E-02_JPRB,5.9123E-02_JPRB,&
+ & 6.7019E-02_JPRB,7.3387E-02_JPRB,1.9782E+00_JPRB/)  
+KAO( :, 4, 5, 3) = (/&
+ & 4.1136E-03_JPRB,2.5421E-02_JPRB,3.4232E-02_JPRB,4.3837E-02_JPRB,5.3645E-02_JPRB,6.3092E-02_JPRB,&
+ & 7.1794E-02_JPRB,7.8876E-02_JPRB,1.9264E+00_JPRB/)  
+KAO( :, 5, 5, 3) = (/&
+ & 3.9859E-03_JPRB,2.5135E-02_JPRB,3.4954E-02_JPRB,4.5597E-02_JPRB,5.6243E-02_JPRB,6.6466E-02_JPRB,&
+ & 7.5915E-02_JPRB,8.3643E-02_JPRB,1.8824E+00_JPRB/)  
+KAO( :, 1, 6, 3) = (/&
+ & 3.9304E-03_JPRB,2.2403E-02_JPRB,2.7063E-02_JPRB,3.0926E-02_JPRB,3.5302E-02_JPRB,4.0017E-02_JPRB,&
+ & 4.4453E-02_JPRB,4.7785E-02_JPRB,1.8116E+00_JPRB/)  
+KAO( :, 2, 6, 3) = (/&
+ & 3.7327E-03_JPRB,2.2045E-02_JPRB,2.7456E-02_JPRB,3.2698E-02_JPRB,3.8563E-02_JPRB,4.4474E-02_JPRB,&
+ & 4.9934E-02_JPRB,5.4194E-02_JPRB,1.7392E+00_JPRB/)  
+KAO( :, 3, 6, 3) = (/&
+ & 3.5637E-03_JPRB,2.1717E-02_JPRB,2.7946E-02_JPRB,3.4540E-02_JPRB,4.1589E-02_JPRB,4.8508E-02_JPRB,&
+ & 5.4887E-02_JPRB,6.0005E-02_JPRB,1.6805E+00_JPRB/)  
+KAO( :, 4, 6, 3) = (/&
+ & 3.4181E-03_JPRB,2.1413E-02_JPRB,2.8528E-02_JPRB,3.6294E-02_JPRB,4.4304E-02_JPRB,5.2019E-02_JPRB,&
+ & 5.9160E-02_JPRB,6.4927E-02_JPRB,1.6325E+00_JPRB/)  
+KAO( :, 5, 6, 3) = (/&
+ & 3.2918E-03_JPRB,2.1166E-02_JPRB,2.9161E-02_JPRB,3.7872E-02_JPRB,4.6642E-02_JPRB,5.5066E-02_JPRB,&
+ & 6.2852E-02_JPRB,6.9193E-02_JPRB,1.5934E+00_JPRB/)  
+KAO( :, 1, 7, 3) = (/&
+ & 3.3611E-03_JPRB,1.8890E-02_JPRB,2.2580E-02_JPRB,2.5423E-02_JPRB,2.8547E-02_JPRB,3.2022E-02_JPRB,&
+ & 3.5350E-02_JPRB,3.7816E-02_JPRB,1.5699E+00_JPRB/)  
+KAO( :, 2, 7, 3) = (/&
+ & 3.1761E-03_JPRB,1.8547E-02_JPRB,2.2859E-02_JPRB,2.6861E-02_JPRB,3.1328E-02_JPRB,3.5924E-02_JPRB,&
+ & 4.0179E-02_JPRB,4.3442E-02_JPRB,1.5027E+00_JPRB/)  
+KAO( :, 3, 7, 3) = (/&
+ & 3.0174E-03_JPRB,1.8258E-02_JPRB,2.3246E-02_JPRB,2.8428E-02_JPRB,3.4019E-02_JPRB,3.9530E-02_JPRB,&
+ & 4.4619E-02_JPRB,4.8631E-02_JPRB,1.4482E+00_JPRB/)  
+KAO( :, 4, 7, 3) = (/&
+ & 2.8795E-03_JPRB,1.7993E-02_JPRB,2.3728E-02_JPRB,2.9950E-02_JPRB,3.6407E-02_JPRB,4.2653E-02_JPRB,&
+ & 4.8406E-02_JPRB,5.3042E-02_JPRB,1.4039E+00_JPRB/)  
+KAO( :, 5, 7, 3) = (/&
+ & 2.7589E-03_JPRB,1.7786E-02_JPRB,2.4255E-02_JPRB,3.1342E-02_JPRB,3.8508E-02_JPRB,4.5385E-02_JPRB,&
+ & 5.1742E-02_JPRB,5.6887E-02_JPRB,1.3676E+00_JPRB/)  
+KAO( :, 1, 8, 3) = (/&
+ & 2.8871E-03_JPRB,1.5916E-02_JPRB,1.8850E-02_JPRB,2.0853E-02_JPRB,2.2958E-02_JPRB,2.5335E-02_JPRB,&
+ & 2.7709E-02_JPRB,2.9422E-02_JPRB,1.3854E+00_JPRB/)  
+KAO( :, 2, 8, 3) = (/&
+ & 2.7155E-03_JPRB,1.5597E-02_JPRB,1.9055E-02_JPRB,2.1994E-02_JPRB,2.5264E-02_JPRB,2.8724E-02_JPRB,&
+ & 3.1943E-02_JPRB,3.4360E-02_JPRB,1.3215E+00_JPRB/)  
+KAO( :, 3, 8, 3) = (/&
+ & 2.5680E-03_JPRB,1.5338E-02_JPRB,1.9338E-02_JPRB,2.3296E-02_JPRB,2.7614E-02_JPRB,3.1925E-02_JPRB,&
+ & 3.5879E-02_JPRB,3.8941E-02_JPRB,1.2707E+00_JPRB/)  
+KAO( :, 4, 8, 3) = (/&
+ & 2.4392E-03_JPRB,1.5108E-02_JPRB,1.9717E-02_JPRB,2.4602E-02_JPRB,2.9735E-02_JPRB,3.4708E-02_JPRB,&
+ & 3.9299E-02_JPRB,4.2946E-02_JPRB,1.2299E+00_JPRB/)  
+KAO( :, 5, 8, 3) = (/&
+ & 2.3263E-03_JPRB,1.4926E-02_JPRB,2.0145E-02_JPRB,2.5818E-02_JPRB,3.1599E-02_JPRB,3.7151E-02_JPRB,&
+ & 4.2259E-02_JPRB,4.6364E-02_JPRB,1.1947E+00_JPRB/)  
+KAO( :, 1, 9, 3) = (/&
+ & 2.4934E-03_JPRB,1.3429E-02_JPRB,1.5676E-02_JPRB,1.6996E-02_JPRB,1.8299E-02_JPRB,1.9797E-02_JPRB,&
+ & 2.1368E-02_JPRB,2.2488E-02_JPRB,1.2194E+00_JPRB/)  
+KAO( :, 2, 9, 3) = (/&
+ & 2.3370E-03_JPRB,1.3137E-02_JPRB,1.5812E-02_JPRB,1.7884E-02_JPRB,2.0163E-02_JPRB,2.2642E-02_JPRB,&
+ & 2.5001E-02_JPRB,2.6734E-02_JPRB,1.1601E+00_JPRB/)  
+KAO( :, 3, 9, 3) = (/&
+ & 2.2009E-03_JPRB,1.2890E-02_JPRB,1.6023E-02_JPRB,1.8937E-02_JPRB,2.2155E-02_JPRB,2.5427E-02_JPRB,&
+ & 2.8446E-02_JPRB,3.0735E-02_JPRB,1.1135E+00_JPRB/)  
+KAO( :, 4, 9, 3) = (/&
+ & 2.0815E-03_JPRB,1.2690E-02_JPRB,1.6303E-02_JPRB,2.0037E-02_JPRB,2.4017E-02_JPRB,2.7921E-02_JPRB,&
+ & 3.1498E-02_JPRB,3.4306E-02_JPRB,1.0751E+00_JPRB/)  
+KAO( :, 5, 9, 3) = (/&
+ & 1.9758E-03_JPRB,1.2522E-02_JPRB,1.6643E-02_JPRB,2.1089E-02_JPRB,2.5672E-02_JPRB,3.0080E-02_JPRB,&
+ & 3.4128E-02_JPRB,3.7357E-02_JPRB,1.0412E+00_JPRB/)  
+KAO( :, 1,10, 3) = (/&
+ & 2.1444E-03_JPRB,1.1292E-02_JPRB,1.2992E-02_JPRB,1.3863E-02_JPRB,1.4632E-02_JPRB,1.5527E-02_JPRB,&
+ & 1.6522E-02_JPRB,1.7216E-02_JPRB,1.0697E+00_JPRB/)  
+KAO( :, 2,10, 3) = (/&
+ & 2.0062E-03_JPRB,1.1025E-02_JPRB,1.3086E-02_JPRB,1.4548E-02_JPRB,1.6122E-02_JPRB,1.7867E-02_JPRB,&
+ & 1.9575E-02_JPRB,2.0804E-02_JPRB,1.0168E+00_JPRB/)  
+KAO( :, 3,10, 3) = (/&
+ & 1.8858E-03_JPRB,1.0796E-02_JPRB,1.3240E-02_JPRB,1.5386E-02_JPRB,1.7762E-02_JPRB,2.0237E-02_JPRB,&
+ & 2.2522E-02_JPRB,2.4230E-02_JPRB,9.7508E-01_JPRB/)  
+KAO( :, 4,10, 3) = (/&
+ & 1.7806E-03_JPRB,1.0614E-02_JPRB,1.3451E-02_JPRB,1.6297E-02_JPRB,1.9372E-02_JPRB,2.2410E-02_JPRB,&
+ & 2.5204E-02_JPRB,2.7358E-02_JPRB,9.3955E-01_JPRB/)  
+KAO( :, 5,10, 3) = (/&
+ & 1.6877E-03_JPRB,1.0465E-02_JPRB,1.3712E-02_JPRB,1.7180E-02_JPRB,2.0798E-02_JPRB,2.4286E-02_JPRB,&
+ & 2.7488E-02_JPRB,3.0016E-02_JPRB,9.0793E-01_JPRB/)  
+KAO( :, 1,11, 3) = (/&
+ & 1.7833E-03_JPRB,9.3555E-03_JPRB,1.0771E-02_JPRB,1.1508E-02_JPRB,1.2189E-02_JPRB,1.2975E-02_JPRB,&
+ & 1.3836E-02_JPRB,1.4432E-02_JPRB,9.1283E-01_JPRB/)  
+KAO( :, 2,11, 3) = (/&
+ & 1.6687E-03_JPRB,9.1314E-03_JPRB,1.0850E-02_JPRB,1.2098E-02_JPRB,1.3448E-02_JPRB,1.4933E-02_JPRB,&
+ & 1.6373E-02_JPRB,1.7407E-02_JPRB,8.7061E-01_JPRB/)  
+KAO( :, 3,11, 3) = (/&
+ & 1.5693E-03_JPRB,8.9406E-03_JPRB,1.0990E-02_JPRB,1.2807E-02_JPRB,1.4816E-02_JPRB,1.6890E-02_JPRB,&
+ & 1.8802E-02_JPRB,2.0227E-02_JPRB,8.3514E-01_JPRB/)  
+KAO( :, 4,11, 3) = (/&
+ & 1.4823E-03_JPRB,8.7931E-03_JPRB,1.1163E-02_JPRB,1.3552E-02_JPRB,1.6124E-02_JPRB,1.8657E-02_JPRB,&
+ & 2.0985E-02_JPRB,2.2777E-02_JPRB,8.0415E-01_JPRB/)  
+KAO( :, 5,11, 3) = (/&
+ & 1.4048E-03_JPRB,8.6627E-03_JPRB,1.1377E-02_JPRB,1.4262E-02_JPRB,1.7270E-02_JPRB,2.0165E-02_JPRB,&
+ & 2.2814E-02_JPRB,2.4901E-02_JPRB,7.7610E-01_JPRB/)  
+KAO( :, 1,12, 3) = (/&
+ & 1.4795E-03_JPRB,7.7320E-03_JPRB,8.9123E-03_JPRB,9.5371E-03_JPRB,1.0129E-02_JPRB,1.0809E-02_JPRB,&
+ & 1.1546E-02_JPRB,1.2053E-02_JPRB,7.8854E-01_JPRB/)  
+KAO( :, 2,12, 3) = (/&
+ & 1.3850E-03_JPRB,7.5464E-03_JPRB,8.9834E-03_JPRB,1.0043E-02_JPRB,1.1188E-02_JPRB,1.2441E-02_JPRB,&
+ & 1.3647E-02_JPRB,1.4511E-02_JPRB,7.5243E-01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB15:PART2',1,ZHOOK_HANDLE)
+END SUBROUTINE PART2
+
+
+SUBROUTINE PART3
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB15:PART3',0,ZHOOK_HANDLE)
+
+
+KAO( :, 3,12, 3) = (/&
+ & 1.3027E-03_JPRB,7.3902E-03_JPRB,9.1016E-03_JPRB,1.0632E-02_JPRB,1.2313E-02_JPRB,1.4042E-02_JPRB,&
+ & 1.5632E-02_JPRB,1.6816E-02_JPRB,7.2138E-01_JPRB/)  
+KAO( :, 4,12, 3) = (/&
+ & 1.2303E-03_JPRB,7.2649E-03_JPRB,9.2431E-03_JPRB,1.1235E-02_JPRB,1.3368E-02_JPRB,1.5466E-02_JPRB,&
+ & 1.7392E-02_JPRB,1.8872E-02_JPRB,6.9377E-01_JPRB/)  
+KAO( :, 5,12, 3) = (/&
+ & 1.1660E-03_JPRB,7.1513E-03_JPRB,9.4159E-03_JPRB,1.1801E-02_JPRB,1.4281E-02_JPRB,1.6671E-02_JPRB,&
+ & 1.8852E-02_JPRB,2.0566E-02_JPRB,6.6914E-01_JPRB/)  
+KAO( :, 1,13, 3) = (/&
+ & 1.2249E-03_JPRB,6.3782E-03_JPRB,7.3622E-03_JPRB,7.8943E-03_JPRB,8.4021E-03_JPRB,8.9820E-03_JPRB,&
+ & 9.6036E-03_JPRB,1.0029E-02_JPRB,7.0365E-01_JPRB/)  
+KAO( :, 2,13, 3) = (/&
+ & 1.1466E-03_JPRB,6.2255E-03_JPRB,7.4265E-03_JPRB,8.3184E-03_JPRB,9.2818E-03_JPRB,1.0328E-02_JPRB,&
+ & 1.1327E-02_JPRB,1.2042E-02_JPRB,6.7076E-01_JPRB/)  
+KAO( :, 3,13, 3) = (/&
+ & 1.0784E-03_JPRB,6.0974E-03_JPRB,7.5218E-03_JPRB,8.8021E-03_JPRB,1.0201E-02_JPRB,1.1630E-02_JPRB,&
+ & 1.2945E-02_JPRB,1.3920E-02_JPRB,6.4220E-01_JPRB/)  
+KAO( :, 4,13, 3) = (/&
+ & 1.0185E-03_JPRB,5.9888E-03_JPRB,7.6372E-03_JPRB,9.2865E-03_JPRB,1.1046E-02_JPRB,1.2772E-02_JPRB,&
+ & 1.4357E-02_JPRB,1.5571E-02_JPRB,6.1693E-01_JPRB/)  
+KAO( :, 5,13, 3) = (/&
+ & 9.6529E-04_JPRB,5.8902E-03_JPRB,7.7765E-03_JPRB,9.7442E-03_JPRB,1.1781E-02_JPRB,1.3744E-02_JPRB,&
+ & 1.5534E-02_JPRB,1.6937E-02_JPRB,5.9454E-01_JPRB/)  
+KAO( :, 1, 1, 4) = (/&
+ & 1.8021E-02_JPRB,6.5790E-02_JPRB,9.7338E-02_JPRB,1.3126E-01_JPRB,1.6473E-01_JPRB,1.9719E-01_JPRB,&
+ & 2.2788E-01_JPRB,2.5486E-01_JPRB,6.7734E+00_JPRB/)  
+KAO( :, 2, 1, 4) = (/&
+ & 1.7655E-02_JPRB,6.4900E-02_JPRB,9.8783E-02_JPRB,1.3458E-01_JPRB,1.6983E-01_JPRB,2.0389E-01_JPRB,&
+ & 2.3625E-01_JPRB,2.6464E-01_JPRB,6.6229E+00_JPRB/)  
+KAO( :, 3, 1, 4) = (/&
+ & 1.7413E-02_JPRB,6.4418E-02_JPRB,1.0054E-01_JPRB,1.3796E-01_JPRB,1.7471E-01_JPRB,2.1025E-01_JPRB,&
+ & 2.4393E-01_JPRB,2.7353E-01_JPRB,6.4891E+00_JPRB/)  
+KAO( :, 4, 1, 4) = (/&
+ & 1.7262E-02_JPRB,6.4165E-02_JPRB,1.0227E-01_JPRB,1.4108E-01_JPRB,1.7917E-01_JPRB,2.1605E-01_JPRB,&
+ & 2.5091E-01_JPRB,2.8164E-01_JPRB,6.3763E+00_JPRB/)  
+KAO( :, 5, 1, 4) = (/&
+ & 1.7196E-02_JPRB,6.4095E-02_JPRB,1.0392E-01_JPRB,1.4402E-01_JPRB,1.8328E-01_JPRB,2.2127E-01_JPRB,&
+ & 2.5722E-01_JPRB,2.8879E-01_JPRB,6.2911E+00_JPRB/)  
+KAO( :, 1, 2, 4) = (/&
+ & 1.4529E-02_JPRB,5.6872E-02_JPRB,8.5086E-02_JPRB,1.1534E-01_JPRB,1.4512E-01_JPRB,1.7394E-01_JPRB,&
+ & 2.0123E-01_JPRB,2.2499E-01_JPRB,5.6977E+00_JPRB/)  
+KAO( :, 2, 2, 4) = (/&
+ & 1.4123E-02_JPRB,5.6310E-02_JPRB,8.6845E-02_JPRB,1.1891E-01_JPRB,1.5031E-01_JPRB,1.8072E-01_JPRB,&
+ & 2.0938E-01_JPRB,2.3448E-01_JPRB,5.5431E+00_JPRB/)  
+KAO( :, 3, 2, 4) = (/&
+ & 1.3817E-02_JPRB,5.6056E-02_JPRB,8.8719E-02_JPRB,1.2233E-01_JPRB,1.5523E-01_JPRB,1.8697E-01_JPRB,&
+ & 2.1702E-01_JPRB,2.4322E-01_JPRB,5.4063E+00_JPRB/)  
+KAO( :, 4, 2, 4) = (/&
+ & 1.3599E-02_JPRB,5.5957E-02_JPRB,9.0467E-02_JPRB,1.2549E-01_JPRB,1.5975E-01_JPRB,1.9279E-01_JPRB,&
+ & 2.2406E-01_JPRB,2.5131E-01_JPRB,5.2860E+00_JPRB/)  
+KAO( :, 5, 2, 4) = (/&
+ & 1.3460E-02_JPRB,5.5961E-02_JPRB,9.2180E-02_JPRB,1.2851E-01_JPRB,1.6399E-01_JPRB,1.9829E-01_JPRB,&
+ & 2.3058E-01_JPRB,2.5880E-01_JPRB,5.1861E+00_JPRB/)  
+KAO( :, 1, 3, 4) = (/&
+ & 1.1705E-02_JPRB,4.8966E-02_JPRB,7.3479E-02_JPRB,9.9794E-02_JPRB,1.2575E-01_JPRB,1.5078E-01_JPRB,&
+ & 1.7441E-01_JPRB,1.9480E-01_JPRB,4.7593E+00_JPRB/)  
+KAO( :, 2, 3, 4) = (/&
+ & 1.1254E-02_JPRB,4.8604E-02_JPRB,7.5346E-02_JPRB,1.0340E-01_JPRB,1.3083E-01_JPRB,1.5727E-01_JPRB,&
+ & 1.8221E-01_JPRB,2.0377E-01_JPRB,4.6048E+00_JPRB/)  
+KAO( :, 3, 3, 4) = (/&
+ & 1.0873E-02_JPRB,4.8463E-02_JPRB,7.7240E-02_JPRB,1.0681E-01_JPRB,1.3563E-01_JPRB,1.6344E-01_JPRB,&
+ & 1.8954E-01_JPRB,2.1219E-01_JPRB,4.4612E+00_JPRB/)  
+KAO( :, 4, 3, 4) = (/&
+ & 1.0555E-02_JPRB,4.8429E-02_JPRB,7.9010E-02_JPRB,1.0996E-01_JPRB,1.4012E-01_JPRB,1.6913E-01_JPRB,&
+ & 1.9654E-01_JPRB,2.2020E-01_JPRB,4.3302E+00_JPRB/)  
+KAO( :, 5, 3, 4) = (/&
+ & 1.0298E-02_JPRB,4.8470E-02_JPRB,8.0657E-02_JPRB,1.1290E-01_JPRB,1.4434E-01_JPRB,1.7459E-01_JPRB,&
+ & 2.0310E-01_JPRB,2.2776E-01_JPRB,4.2150E+00_JPRB/)  
+KAO( :, 1, 4, 4) = (/&
+ & 9.6427E-03_JPRB,4.2071E-02_JPRB,6.2842E-02_JPRB,8.5269E-02_JPRB,1.0739E-01_JPRB,1.2873E-01_JPRB,&
+ & 1.4874E-01_JPRB,1.6592E-01_JPRB,4.0400E+00_JPRB/)  
+KAO( :, 2, 4, 4) = (/&
+ & 9.2011E-03_JPRB,4.1815E-02_JPRB,6.4680E-02_JPRB,8.8757E-02_JPRB,1.1230E-01_JPRB,1.3495E-01_JPRB,&
+ & 1.5622E-01_JPRB,1.7447E-01_JPRB,3.8793E+00_JPRB/)  
+KAO( :, 3, 4, 4) = (/&
+ & 8.8205E-03_JPRB,4.1737E-02_JPRB,6.6556E-02_JPRB,9.2068E-02_JPRB,1.1693E-01_JPRB,1.4084E-01_JPRB,&
+ & 1.6327E-01_JPRB,1.8245E-01_JPRB,3.7400E+00_JPRB/)  
+KAO( :, 4, 4, 4) = (/&
+ & 8.4836E-03_JPRB,4.1724E-02_JPRB,6.8311E-02_JPRB,9.5165E-02_JPRB,1.2127E-01_JPRB,1.4641E-01_JPRB,&
+ & 1.6997E-01_JPRB,1.9023E-01_JPRB,3.6160E+00_JPRB/)  
+KAO( :, 5, 4, 4) = (/&
+ & 8.1913E-03_JPRB,4.1779E-02_JPRB,6.9919E-02_JPRB,9.8052E-02_JPRB,1.2544E-01_JPRB,1.5176E-01_JPRB,&
+ & 1.7649E-01_JPRB,1.9765E-01_JPRB,3.5010E+00_JPRB/)  
+KAO( :, 1, 5, 4) = (/&
+ & 8.1345E-03_JPRB,3.6015E-02_JPRB,5.3335E-02_JPRB,7.2138E-02_JPRB,9.0702E-02_JPRB,1.0859E-01_JPRB,&
+ & 1.2537E-01_JPRB,1.3961E-01_JPRB,3.4725E+00_JPRB/)  
+KAO( :, 2, 5, 4) = (/&
+ & 7.7094E-03_JPRB,3.5776E-02_JPRB,5.4998E-02_JPRB,7.5337E-02_JPRB,9.5240E-02_JPRB,1.1439E-01_JPRB,&
+ & 1.3227E-01_JPRB,1.4749E-01_JPRB,3.3178E+00_JPRB/)  
+KAO( :, 3, 5, 4) = (/&
+ & 7.3411E-03_JPRB,3.5699E-02_JPRB,5.6747E-02_JPRB,7.8425E-02_JPRB,9.9566E-02_JPRB,1.1985E-01_JPRB,&
+ & 1.3882E-01_JPRB,1.5490E-01_JPRB,3.1804E+00_JPRB/)  
+KAO( :, 4, 5, 4) = (/&
+ & 7.0201E-03_JPRB,3.5715E-02_JPRB,5.8432E-02_JPRB,8.1402E-02_JPRB,1.0370E-01_JPRB,1.2511E-01_JPRB,&
+ & 1.4516E-01_JPRB,1.6215E-01_JPRB,3.0592E+00_JPRB/)  
+KAO( :, 5, 5, 4) = (/&
+ & 6.7383E-03_JPRB,3.5791E-02_JPRB,5.9960E-02_JPRB,8.4146E-02_JPRB,1.0763E-01_JPRB,1.3019E-01_JPRB,&
+ & 1.5126E-01_JPRB,1.6919E-01_JPRB,2.9545E+00_JPRB/)  
+KAO( :, 1, 6, 4) = (/&
+ & 6.9574E-03_JPRB,3.0705E-02_JPRB,4.4873E-02_JPRB,6.0368E-02_JPRB,7.5716E-02_JPRB,9.0457E-02_JPRB,&
+ & 1.0422E-01_JPRB,1.1586E-01_JPRB,3.0030E+00_JPRB/)  
+KAO( :, 2, 6, 4) = (/&
+ & 6.5599E-03_JPRB,3.0473E-02_JPRB,4.6327E-02_JPRB,6.3240E-02_JPRB,7.9791E-02_JPRB,9.5693E-02_JPRB,&
+ & 1.1056E-01_JPRB,1.2311E-01_JPRB,2.8591E+00_JPRB/)  
+KAO( :, 3, 6, 4) = (/&
+ & 6.2154E-03_JPRB,3.0355E-02_JPRB,4.7875E-02_JPRB,6.6021E-02_JPRB,8.3704E-02_JPRB,1.0067E-01_JPRB,&
+ & 1.1647E-01_JPRB,1.2979E-01_JPRB,2.7316E+00_JPRB/)  
+KAO( :, 4, 6, 4) = (/&
+ & 5.9146E-03_JPRB,3.0358E-02_JPRB,4.9433E-02_JPRB,6.8766E-02_JPRB,8.7543E-02_JPRB,1.0553E-01_JPRB,&
+ & 1.2232E-01_JPRB,1.3650E-01_JPRB,2.6198E+00_JPRB/)  
+KAO( :, 5, 6, 4) = (/&
+ & 5.6484E-03_JPRB,3.0432E-02_JPRB,5.0868E-02_JPRB,7.1327E-02_JPRB,9.1169E-02_JPRB,1.1020E-01_JPRB,&
+ & 1.2797E-01_JPRB,1.4294E-01_JPRB,2.5219E+00_JPRB/)  
+KAO( :, 1, 7, 4) = (/&
+ & 5.9858E-03_JPRB,2.6066E-02_JPRB,3.7491E-02_JPRB,5.0091E-02_JPRB,6.2632E-02_JPRB,7.4695E-02_JPRB,&
+ & 8.5899E-02_JPRB,9.5307E-02_JPRB,2.6265E+00_JPRB/)  
+KAO( :, 2, 7, 4) = (/&
+ & 5.6201E-03_JPRB,2.5818E-02_JPRB,3.8713E-02_JPRB,5.2603E-02_JPRB,6.6261E-02_JPRB,7.9344E-02_JPRB,&
+ & 9.1528E-02_JPRB,1.0179E-01_JPRB,2.4915E+00_JPRB/)  
+KAO( :, 3, 7, 4) = (/&
+ & 5.3028E-03_JPRB,2.5679E-02_JPRB,4.0067E-02_JPRB,5.5077E-02_JPRB,6.9715E-02_JPRB,8.3744E-02_JPRB,&
+ & 9.6820E-02_JPRB,1.0780E-01_JPRB,2.3737E+00_JPRB/)  
+KAO( :, 4, 7, 4) = (/&
+ & 5.0250E-03_JPRB,2.5664E-02_JPRB,4.1469E-02_JPRB,5.7563E-02_JPRB,7.3190E-02_JPRB,8.8174E-02_JPRB,&
+ & 1.0210E-01_JPRB,1.1380E-01_JPRB,2.2719E+00_JPRB/)  
+KAO( :, 5, 7, 4) = (/&
+ & 4.7808E-03_JPRB,2.5724E-02_JPRB,4.2789E-02_JPRB,5.9902E-02_JPRB,7.6504E-02_JPRB,9.2382E-02_JPRB,&
+ & 1.0715E-01_JPRB,1.1955E-01_JPRB,2.1838E+00_JPRB/)  
+KAO( :, 1, 8, 4) = (/&
+ & 5.1596E-03_JPRB,2.2052E-02_JPRB,3.1199E-02_JPRB,4.1353E-02_JPRB,5.1554E-02_JPRB,6.1370E-02_JPRB,&
+ & 7.0499E-02_JPRB,7.8103E-02_JPRB,2.3369E+00_JPRB/)  
+KAO( :, 2, 8, 4) = (/&
+ & 4.8272E-03_JPRB,2.1774E-02_JPRB,3.2180E-02_JPRB,4.3545E-02_JPRB,5.4719E-02_JPRB,6.5446E-02_JPRB,&
+ & 7.5433E-02_JPRB,8.3810E-02_JPRB,2.2096E+00_JPRB/)  
+KAO( :, 3, 8, 4) = (/&
+ & 4.5379E-03_JPRB,2.1626E-02_JPRB,3.3329E-02_JPRB,4.5683E-02_JPRB,5.7755E-02_JPRB,6.9313E-02_JPRB,&
+ & 8.0057E-02_JPRB,8.9096E-02_JPRB,2.0999E+00_JPRB/)  
+KAO( :, 4, 8, 4) = (/&
+ & 4.2850E-03_JPRB,2.1592E-02_JPRB,3.4574E-02_JPRB,4.7884E-02_JPRB,6.0825E-02_JPRB,7.3203E-02_JPRB,&
+ & 8.4719E-02_JPRB,9.4365E-02_JPRB,2.0061E+00_JPRB/)  
+KAO( :, 5, 8, 4) = (/&
+ & 4.0623E-03_JPRB,2.1641E-02_JPRB,3.5762E-02_JPRB,4.9985E-02_JPRB,6.3751E-02_JPRB,7.6922E-02_JPRB,&
+ & 8.9154E-02_JPRB,9.9364E-02_JPRB,1.9265E+00_JPRB/)  
+KAO( :, 1, 9, 4) = (/&
+ & 4.4531E-03_JPRB,1.8626E-02_JPRB,2.5958E-02_JPRB,3.4051E-02_JPRB,4.2290E-02_JPRB,5.0232E-02_JPRB,&
+ & 5.7580E-02_JPRB,6.3645E-02_JPRB,2.0688E+00_JPRB/)  
+KAO( :, 2, 9, 4) = (/&
+ & 4.1555E-03_JPRB,1.8330E-02_JPRB,2.6712E-02_JPRB,3.5938E-02_JPRB,4.5066E-02_JPRB,5.3798E-02_JPRB,&
+ & 6.1907E-02_JPRB,6.8669E-02_JPRB,1.9511E+00_JPRB/)  
+KAO( :, 3, 9, 4) = (/&
+ & 3.8980E-03_JPRB,1.8171E-02_JPRB,2.7659E-02_JPRB,3.7795E-02_JPRB,4.7683E-02_JPRB,5.7159E-02_JPRB,&
+ & 6.5983E-02_JPRB,7.3362E-02_JPRB,1.8504E+00_JPRB/)  
+KAO( :, 4, 9, 4) = (/&
+ & 3.6726E-03_JPRB,1.8123E-02_JPRB,2.8719E-02_JPRB,3.9685E-02_JPRB,5.0340E-02_JPRB,6.0531E-02_JPRB,&
+ & 6.9978E-02_JPRB,7.7857E-02_JPRB,1.7654E+00_JPRB/)  
+KAO( :, 5, 9, 4) = (/&
+ & 3.4732E-03_JPRB,1.8155E-02_JPRB,2.9764E-02_JPRB,4.1511E-02_JPRB,5.2898E-02_JPRB,6.3750E-02_JPRB,&
+ & 7.3823E-02_JPRB,8.2208E-02_JPRB,1.6947E+00_JPRB/)  
+KAO( :, 1,10, 4) = (/&
+ & 3.8264E-03_JPRB,1.5718E-02_JPRB,2.1595E-02_JPRB,2.8016E-02_JPRB,3.4614E-02_JPRB,4.0975E-02_JPRB,&
+ & 4.6868E-02_JPRB,5.1662E-02_JPRB,1.8197E+00_JPRB/)  
+KAO( :, 2,10, 4) = (/&
+ & 3.5642E-03_JPRB,1.5429E-02_JPRB,2.2178E-02_JPRB,2.9617E-02_JPRB,3.7012E-02_JPRB,4.4107E-02_JPRB,&
+ & 5.0673E-02_JPRB,5.6104E-02_JPRB,1.7127E+00_JPRB/)  
+KAO( :, 3,10, 4) = (/&
+ & 3.3388E-03_JPRB,1.5262E-02_JPRB,2.2939E-02_JPRB,3.1209E-02_JPRB,3.9306E-02_JPRB,4.7049E-02_JPRB,&
+ & 5.4217E-02_JPRB,6.0186E-02_JPRB,1.6230E+00_JPRB/)  
+KAO( :, 4,10, 4) = (/&
+ & 3.1419E-03_JPRB,1.5205E-02_JPRB,2.3835E-02_JPRB,3.2828E-02_JPRB,4.1571E-02_JPRB,4.9911E-02_JPRB,&
+ & 5.7637E-02_JPRB,6.4044E-02_JPRB,1.5488E+00_JPRB/)  
+KAO( :, 5,10, 4) = (/&
+ & 2.9677E-03_JPRB,1.5219E-02_JPRB,2.4740E-02_JPRB,3.4412E-02_JPRB,4.3767E-02_JPRB,5.2705E-02_JPRB,&
+ & 6.0972E-02_JPRB,6.7792E-02_JPRB,1.4876E+00_JPRB/)  
+KAO( :, 1,11, 4) = (/&
+ & 3.1779E-03_JPRB,1.3095E-02_JPRB,1.8055E-02_JPRB,2.3506E-02_JPRB,2.9061E-02_JPRB,3.4415E-02_JPRB,&
+ & 3.9369E-02_JPRB,4.3393E-02_JPRB,1.5476E+00_JPRB/)  
+KAO( :, 2,11, 4) = (/&
+ & 2.9632E-03_JPRB,1.2861E-02_JPRB,1.8568E-02_JPRB,2.4842E-02_JPRB,3.1070E-02_JPRB,3.7036E-02_JPRB,&
+ & 4.2545E-02_JPRB,4.7085E-02_JPRB,1.4599E+00_JPRB/)  
+KAO( :, 3,11, 4) = (/&
+ & 2.7773E-03_JPRB,1.2736E-02_JPRB,1.9231E-02_JPRB,2.6199E-02_JPRB,3.3009E-02_JPRB,3.9506E-02_JPRB,&
+ & 4.5515E-02_JPRB,5.0494E-02_JPRB,1.3882E+00_JPRB/)  
+KAO( :, 4,11, 4) = (/&
+ & 2.6144E-03_JPRB,1.2699E-02_JPRB,1.9998E-02_JPRB,2.7568E-02_JPRB,3.4911E-02_JPRB,4.1912E-02_JPRB,&
+ & 4.8384E-02_JPRB,5.3719E-02_JPRB,1.3291E+00_JPRB/)  
+KAO( :, 5,11, 4) = (/&
+ & 2.4704E-03_JPRB,1.2732E-02_JPRB,2.0751E-02_JPRB,2.8878E-02_JPRB,3.6736E-02_JPRB,4.4233E-02_JPRB,&
+ & 5.1154E-02_JPRB,5.6829E-02_JPRB,1.2767E+00_JPRB/)  
+KAO( :, 1,12, 4) = (/&
+ & 2.6367E-03_JPRB,1.0870E-02_JPRB,1.5028E-02_JPRB,1.9613E-02_JPRB,2.4267E-02_JPRB,2.8743E-02_JPRB,&
+ & 3.2886E-02_JPRB,3.6247E-02_JPRB,1.3323E+00_JPRB/)  
+KAO( :, 2,12, 4) = (/&
+ & 2.4596E-03_JPRB,1.0682E-02_JPRB,1.5472E-02_JPRB,2.0731E-02_JPRB,2.5941E-02_JPRB,3.0929E-02_JPRB,&
+ & 3.5529E-02_JPRB,3.9309E-02_JPRB,1.2608E+00_JPRB/)  
+KAO( :, 3,12, 4) = (/&
+ & 2.3058E-03_JPRB,1.0585E-02_JPRB,1.6043E-02_JPRB,2.1873E-02_JPRB,2.7564E-02_JPRB,3.2990E-02_JPRB,&
+ & 3.8001E-02_JPRB,4.2137E-02_JPRB,1.2024E+00_JPRB/)  
+KAO( :, 4,12, 4) = (/&
+ & 2.1711E-03_JPRB,1.0572E-02_JPRB,1.6696E-02_JPRB,2.3023E-02_JPRB,2.9157E-02_JPRB,3.5001E-02_JPRB,&
+ & 4.0396E-02_JPRB,4.4820E-02_JPRB,1.1510E+00_JPRB/)  
+KAO( :, 5,12, 4) = (/&
+ & 2.0522E-03_JPRB,1.0605E-02_JPRB,1.7302E-02_JPRB,2.4078E-02_JPRB,3.0631E-02_JPRB,3.6880E-02_JPRB,&
+ & 4.2638E-02_JPRB,4.7351E-02_JPRB,1.1041E+00_JPRB/)  
+KAO( :, 1,13, 4) = (/&
+ & 2.1839E-03_JPRB,8.9998E-03_JPRB,1.2472E-02_JPRB,1.6303E-02_JPRB,2.0181E-02_JPRB,2.3909E-02_JPRB,&
+ & 2.7356E-02_JPRB,3.0152E-02_JPRB,1.1877E+00_JPRB/)  
+KAO( :, 2,13, 4) = (/&
+ & 2.0376E-03_JPRB,8.8480E-03_JPRB,1.2851E-02_JPRB,1.7235E-02_JPRB,2.1572E-02_JPRB,2.5723E-02_JPRB,&
+ & 2.9547E-02_JPRB,3.2688E-02_JPRB,1.1266E+00_JPRB/)  
+KAO( :, 3,13, 4) = (/&
+ & 1.9106E-03_JPRB,8.7808E-03_JPRB,1.3344E-02_JPRB,1.8195E-02_JPRB,2.2927E-02_JPRB,2.7435E-02_JPRB,&
+ & 3.1599E-02_JPRB,3.5023E-02_JPRB,1.0740E+00_JPRB/)  
+KAO( :, 4,13, 4) = (/&
+ & 1.7994E-03_JPRB,8.7806E-03_JPRB,1.3884E-02_JPRB,1.9140E-02_JPRB,2.4232E-02_JPRB,2.9085E-02_JPRB,&
+ & 3.3560E-02_JPRB,3.7215E-02_JPRB,1.0271E+00_JPRB/)  
+KAO( :, 5,13, 4) = (/&
+ & 1.7009E-03_JPRB,8.8054E-03_JPRB,1.4366E-02_JPRB,1.9979E-02_JPRB,2.5409E-02_JPRB,3.0588E-02_JPRB,&
+ & 3.5352E-02_JPRB,3.9242E-02_JPRB,9.8352E-01_JPRB/)  
+KAO( :, 1, 1, 5) = (/&
+ & 2.7821E-02_JPRB,9.4758E-02_JPRB,1.5999E-01_JPRB,2.2454E-01_JPRB,2.8692E-01_JPRB,3.4665E-01_JPRB,&
+ & 4.0214E-01_JPRB,4.4847E-01_JPRB,9.2144E+00_JPRB/)  
+KAO( :, 2, 1, 5) = (/&
+ & 2.6913E-02_JPRB,9.4630E-02_JPRB,1.6244E-01_JPRB,2.2902E-01_JPRB,2.9341E-01_JPRB,3.5518E-01_JPRB,&
+ & 4.1260E-01_JPRB,4.6112E-01_JPRB,8.9389E+00_JPRB/)  
+KAO( :, 3, 1, 5) = (/&
+ & 2.6162E-02_JPRB,9.4753E-02_JPRB,1.6454E-01_JPRB,2.3287E-01_JPRB,2.9898E-01_JPRB,3.6235E-01_JPRB,&
+ & 4.2172E-01_JPRB,4.7189E-01_JPRB,8.6829E+00_JPRB/)  
+KAO( :, 4, 1, 5) = (/&
+ & 2.5554E-02_JPRB,9.5076E-02_JPRB,1.6645E-01_JPRB,2.3629E-01_JPRB,3.0381E-01_JPRB,3.6863E-01_JPRB,&
+ & 4.2942E-01_JPRB,4.8118E-01_JPRB,8.4692E+00_JPRB/)  
+KAO( :, 5, 1, 5) = (/&
+ & 2.5132E-02_JPRB,9.5584E-02_JPRB,1.6836E-01_JPRB,2.3931E-01_JPRB,3.0801E-01_JPRB,3.7403E-01_JPRB,&
+ & 4.3587E-01_JPRB,4.8876E-01_JPRB,8.2899E+00_JPRB/)  
+KAO( :, 1, 2, 5) = (/&
+ & 2.2786E-02_JPRB,8.2873E-02_JPRB,1.4193E-01_JPRB,2.0025E-01_JPRB,2.5674E-01_JPRB,3.1069E-01_JPRB,&
+ & 3.6090E-01_JPRB,4.0281E-01_JPRB,7.8467E+00_JPRB/)  
+KAO( :, 2, 2, 5) = (/&
+ & 2.1926E-02_JPRB,8.2844E-02_JPRB,1.4423E-01_JPRB,2.0445E-01_JPRB,2.6273E-01_JPRB,3.1850E-01_JPRB,&
+ & 3.7058E-01_JPRB,4.1426E-01_JPRB,7.5685E+00_JPRB/)  
+KAO( :, 3, 2, 5) = (/&
+ & 2.1216E-02_JPRB,8.3137E-02_JPRB,1.4626E-01_JPRB,2.0800E-01_JPRB,2.6778E-01_JPRB,3.2530E-01_JPRB,&
+ & 3.7887E-01_JPRB,4.2447E-01_JPRB,7.3113E+00_JPRB/)  
+KAO( :, 4, 2, 5) = (/&
+ & 2.0609E-02_JPRB,8.3648E-02_JPRB,1.4825E-01_JPRB,2.1130E-01_JPRB,2.7244E-01_JPRB,3.3120E-01_JPRB,&
+ & 3.8633E-01_JPRB,4.3319E-01_JPRB,7.0868E+00_JPRB/)  
+KAO( :, 5, 2, 5) = (/&
+ & 2.0124E-02_JPRB,8.4283E-02_JPRB,1.5023E-01_JPRB,2.1439E-01_JPRB,2.7658E-01_JPRB,3.3624E-01_JPRB,&
+ & 3.9227E-01_JPRB,4.4011E-01_JPRB,6.8977E+00_JPRB/)  
+KAO( :, 1, 3, 5) = (/&
+ & 1.8617E-02_JPRB,7.1627E-02_JPRB,1.2381E-01_JPRB,1.7543E-01_JPRB,2.2536E-01_JPRB,2.7317E-01_JPRB,&
+ & 3.1745E-01_JPRB,3.5456E-01_JPRB,6.6821E+00_JPRB/)  
+KAO( :, 2, 3, 5) = (/&
+ & 1.7803E-02_JPRB,7.1692E-02_JPRB,1.2605E-01_JPRB,1.7941E-01_JPRB,2.3119E-01_JPRB,2.8073E-01_JPRB,&
+ & 3.2696E-01_JPRB,3.6594E-01_JPRB,6.4024E+00_JPRB/)  
+KAO( :, 3, 3, 5) = (/&
+ & 1.7094E-02_JPRB,7.2019E-02_JPRB,1.2810E-01_JPRB,1.8301E-01_JPRB,2.3626E-01_JPRB,2.8733E-01_JPRB,&
+ & 3.3525E-01_JPRB,3.7585E-01_JPRB,6.1586E+00_JPRB/)  
+KAO( :, 4, 3, 5) = (/&
+ & 1.6473E-02_JPRB,7.2618E-02_JPRB,1.3012E-01_JPRB,1.8637E-01_JPRB,2.4089E-01_JPRB,2.9345E-01_JPRB,&
+ & 3.4253E-01_JPRB,3.8463E-01_JPRB,5.9399E+00_JPRB/)  
+KAO( :, 5, 3, 5) = (/&
+ & 1.5950E-02_JPRB,7.3287E-02_JPRB,1.3213E-01_JPRB,1.8950E-01_JPRB,2.4513E-01_JPRB,2.9856E-01_JPRB,&
+ & 3.4870E-01_JPRB,3.9140E-01_JPRB,5.7373E+00_JPRB/)  
+KAO( :, 1, 4, 5) = (/&
+ & 1.5580E-02_JPRB,6.1790E-02_JPRB,1.0733E-01_JPRB,1.5233E-01_JPRB,1.9578E-01_JPRB,2.3731E-01_JPRB,&
+ & 2.7596E-01_JPRB,3.0816E-01_JPRB,5.7644E+00_JPRB/)  
+KAO( :, 2, 4, 5) = (/&
+ & 1.4777E-02_JPRB,6.1923E-02_JPRB,1.0950E-01_JPRB,1.5621E-01_JPRB,2.0143E-01_JPRB,2.4487E-01_JPRB,&
+ & 2.8520E-01_JPRB,3.1931E-01_JPRB,5.4929E+00_JPRB/)  
+KAO( :, 3, 4, 5) = (/&
+ & 1.4083E-02_JPRB,6.2360E-02_JPRB,1.1165E-01_JPRB,1.5990E-01_JPRB,2.0675E-01_JPRB,2.5162E-01_JPRB,&
+ & 2.9363E-01_JPRB,3.2936E-01_JPRB,5.2479E+00_JPRB/)  
+KAO( :, 4, 4, 5) = (/&
+ & 1.3489E-02_JPRB,6.3056E-02_JPRB,1.1379E-01_JPRB,1.6338E-01_JPRB,2.1152E-01_JPRB,2.5770E-01_JPRB,&
+ & 3.0103E-01_JPRB,3.3790E-01_JPRB,5.0295E+00_JPRB/)  
+KAO( :, 5, 4, 5) = (/&
+ & 1.2974E-02_JPRB,6.3786E-02_JPRB,1.1583E-01_JPRB,1.6662E-01_JPRB,2.1582E-01_JPRB,2.6318E-01_JPRB,&
+ & 3.0742E-01_JPRB,3.4538E-01_JPRB,4.8395E+00_JPRB/)  
+KAO( :, 1, 5, 5) = (/&
+ & 1.3213E-02_JPRB,5.3251E-02_JPRB,9.2575E-02_JPRB,1.3138E-01_JPRB,1.6890E-01_JPRB,2.0468E-01_JPRB,&
+ & 2.3789E-01_JPRB,2.6563E-01_JPRB,4.9912E+00_JPRB/)  
+KAO( :, 2, 5, 5) = (/&
+ & 1.2469E-02_JPRB,5.3471E-02_JPRB,9.4761E-02_JPRB,1.3531E-01_JPRB,1.7451E-01_JPRB,2.1205E-01_JPRB,&
+ & 2.4715E-01_JPRB,2.7671E-01_JPRB,4.7367E+00_JPRB/)  
+KAO( :, 3, 5, 5) = (/&
+ & 1.1826E-02_JPRB,5.4006E-02_JPRB,9.6957E-02_JPRB,1.3905E-01_JPRB,1.7980E-01_JPRB,2.1900E-01_JPRB,&
+ & 2.5553E-01_JPRB,2.8664E-01_JPRB,4.5084E+00_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB15:PART3',1,ZHOOK_HANDLE)
+END SUBROUTINE PART3
+
+
+SUBROUTINE PART4
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB15:PART4',0,ZHOOK_HANDLE)
+
+
+KAO( :, 4, 5, 5) = (/&
+ & 1.1265E-02_JPRB,5.4777E-02_JPRB,9.9171E-02_JPRB,1.4252E-01_JPRB,1.8466E-01_JPRB,2.2509E-01_JPRB,&
+ & 2.6296E-01_JPRB,2.9525E-01_JPRB,4.3062E+00_JPRB/)  
+KAO( :, 5, 5, 5) = (/&
+ & 1.0774E-02_JPRB,5.5536E-02_JPRB,1.0132E-01_JPRB,1.4589E-01_JPRB,1.8914E-01_JPRB,2.3064E-01_JPRB,&
+ & 2.6960E-01_JPRB,3.0272E-01_JPRB,4.1237E+00_JPRB/)  
+KAO( :, 1, 6, 5) = (/&
+ & 1.1298E-02_JPRB,4.5718E-02_JPRB,7.9200E-02_JPRB,1.1232E-01_JPRB,1.4430E-01_JPRB,1.7486E-01_JPRB,&
+ & 2.0309E-01_JPRB,2.2655E-01_JPRB,4.3329E+00_JPRB/)  
+KAO( :, 2, 6, 5) = (/&
+ & 1.0622E-02_JPRB,4.6005E-02_JPRB,8.1486E-02_JPRB,1.1629E-01_JPRB,1.5001E-01_JPRB,1.8222E-01_JPRB,&
+ & 2.1218E-01_JPRB,2.3741E-01_JPRB,4.0960E+00_JPRB/)  
+KAO( :, 3, 6, 5) = (/&
+ & 1.0034E-02_JPRB,4.6615E-02_JPRB,8.3719E-02_JPRB,1.2009E-01_JPRB,1.5528E-01_JPRB,1.8897E-01_JPRB,&
+ & 2.2052E-01_JPRB,2.4712E-01_JPRB,3.8879E+00_JPRB/)  
+KAO( :, 4, 6, 5) = (/&
+ & 9.5191E-03_JPRB,4.7402E-02_JPRB,8.5902E-02_JPRB,1.2353E-01_JPRB,1.5997E-01_JPRB,1.9501E-01_JPRB,&
+ & 2.2766E-01_JPRB,2.5531E-01_JPRB,3.7023E+00_JPRB/)  
+KAO( :, 5, 6, 5) = (/&
+ & 9.0694E-03_JPRB,4.8127E-02_JPRB,8.7970E-02_JPRB,1.2673E-01_JPRB,1.6428E-01_JPRB,2.0026E-01_JPRB,&
+ & 2.3384E-01_JPRB,2.6225E-01_JPRB,3.5368E+00_JPRB/)  
+KAO( :, 1, 7, 5) = (/&
+ & 9.7003E-03_JPRB,3.9103E-02_JPRB,6.7303E-02_JPRB,9.5321E-02_JPRB,1.2233E-01_JPRB,1.4806E-01_JPRB,&
+ & 1.7192E-01_JPRB,1.9156E-01_JPRB,3.7979E+00_JPRB/)  
+KAO( :, 2, 7, 5) = (/&
+ & 9.0880E-03_JPRB,3.9405E-02_JPRB,6.9590E-02_JPRB,9.9254E-02_JPRB,1.2789E-01_JPRB,1.5530E-01_JPRB,&
+ & 1.8072E-01_JPRB,2.0187E-01_JPRB,3.5772E+00_JPRB/)  
+KAO( :, 3, 7, 5) = (/&
+ & 8.5547E-03_JPRB,3.9999E-02_JPRB,7.1749E-02_JPRB,1.0282E-01_JPRB,1.3290E-01_JPRB,1.6166E-01_JPRB,&
+ & 1.8835E-01_JPRB,2.1077E-01_JPRB,3.3854E+00_JPRB/)  
+KAO( :, 4, 7, 5) = (/&
+ & 8.0885E-03_JPRB,4.0699E-02_JPRB,7.3711E-02_JPRB,1.0595E-01_JPRB,1.3715E-01_JPRB,1.6698E-01_JPRB,&
+ & 1.9485E-01_JPRB,2.1815E-01_JPRB,3.2157E+00_JPRB/)  
+KAO( :, 5, 7, 5) = (/&
+ & 7.6793E-03_JPRB,4.1301E-02_JPRB,7.5502E-02_JPRB,1.0878E-01_JPRB,1.4090E-01_JPRB,1.7170E-01_JPRB,&
+ & 2.0034E-01_JPRB,2.2441E-01_JPRB,3.0651E+00_JPRB/)  
+KAO( :, 1, 8, 5) = (/&
+ & 8.3356E-03_JPRB,3.3311E-02_JPRB,5.6870E-02_JPRB,8.0308E-02_JPRB,1.0295E-01_JPRB,1.2448E-01_JPRB,&
+ & 1.4428E-01_JPRB,1.6086E-01_JPRB,3.3908E+00_JPRB/)  
+KAO( :, 2, 8, 5) = (/&
+ & 7.7853E-03_JPRB,3.3608E-02_JPRB,5.9028E-02_JPRB,8.4055E-02_JPRB,1.0819E-01_JPRB,1.3119E-01_JPRB,&
+ & 1.5248E-01_JPRB,1.7004E-01_JPRB,3.1845E+00_JPRB/)  
+KAO( :, 3, 8, 5) = (/&
+ & 7.3065E-03_JPRB,3.4089E-02_JPRB,6.0968E-02_JPRB,8.7276E-02_JPRB,1.1264E-01_JPRB,1.3686E-01_JPRB,&
+ & 1.5934E-01_JPRB,1.7794E-01_JPRB,3.0043E+00_JPRB/)  
+KAO( :, 4, 8, 5) = (/&
+ & 6.8879E-03_JPRB,3.4663E-02_JPRB,6.2677E-02_JPRB,8.9967E-02_JPRB,1.1635E-01_JPRB,1.4158E-01_JPRB,&
+ & 1.6491E-01_JPRB,1.8439E-01_JPRB,2.8456E+00_JPRB/)  
+KAO( :, 5, 8, 5) = (/&
+ & 6.5199E-03_JPRB,3.5157E-02_JPRB,6.4215E-02_JPRB,9.2448E-02_JPRB,1.1974E-01_JPRB,1.4577E-01_JPRB,&
+ & 1.7002E-01_JPRB,1.9020E-01_JPRB,2.7064E+00_JPRB/)  
+KAO( :, 1, 9, 5) = (/&
+ & 7.1670E-03_JPRB,2.8264E-02_JPRB,4.7722E-02_JPRB,6.7185E-02_JPRB,8.5943E-02_JPRB,1.0376E-01_JPRB,&
+ & 1.2019E-01_JPRB,1.3426E-01_JPRB,3.0087E+00_JPRB/)  
+KAO( :, 2, 9, 5) = (/&
+ & 6.6733E-03_JPRB,2.8499E-02_JPRB,4.9676E-02_JPRB,7.0525E-02_JPRB,9.0644E-02_JPRB,1.0983E-01_JPRB,&
+ & 1.2746E-01_JPRB,1.4211E-01_JPRB,2.8169E+00_JPRB/)  
+KAO( :, 3, 9, 5) = (/&
+ & 6.2464E-03_JPRB,2.8870E-02_JPRB,5.1362E-02_JPRB,7.3368E-02_JPRB,9.4608E-02_JPRB,1.1481E-01_JPRB,&
+ & 1.3345E-01_JPRB,1.4885E-01_JPRB,2.6506E+00_JPRB/)  
+KAO( :, 4, 9, 5) = (/&
+ & 5.8753E-03_JPRB,2.9313E-02_JPRB,5.2839E-02_JPRB,7.5761E-02_JPRB,9.7853E-02_JPRB,1.1892E-01_JPRB,&
+ & 1.3848E-01_JPRB,1.5462E-01_JPRB,2.5062E+00_JPRB/)  
+KAO( :, 5, 9, 5) = (/&
+ & 5.5500E-03_JPRB,2.9736E-02_JPRB,5.4197E-02_JPRB,7.7953E-02_JPRB,1.0085E-01_JPRB,1.2274E-01_JPRB,&
+ & 1.4297E-01_JPRB,1.5977E-01_JPRB,2.3796E+00_JPRB/)  
+KAO( :, 1,10, 5) = (/&
+ & 6.1244E-03_JPRB,2.3891E-02_JPRB,3.9969E-02_JPRB,5.6166E-02_JPRB,7.1759E-02_JPRB,8.6539E-02_JPRB,&
+ & 1.0009E-01_JPRB,1.1231E-01_JPRB,2.6506E+00_JPRB/)  
+KAO( :, 2,10, 5) = (/&
+ & 5.6882E-03_JPRB,2.4047E-02_JPRB,4.1658E-02_JPRB,5.9064E-02_JPRB,7.5818E-02_JPRB,9.1738E-02_JPRB,&
+ & 1.0641E-01_JPRB,1.1881E-01_JPRB,2.4752E+00_JPRB/)  
+KAO( :, 3,10, 5) = (/&
+ & 5.3134E-03_JPRB,2.4335E-02_JPRB,4.3112E-02_JPRB,6.1483E-02_JPRB,7.9176E-02_JPRB,9.6027E-02_JPRB,&
+ & 1.1160E-01_JPRB,1.2443E-01_JPRB,2.3246E+00_JPRB/)  
+KAO( :, 4,10, 5) = (/&
+ & 4.9890E-03_JPRB,2.4682E-02_JPRB,4.4370E-02_JPRB,6.3529E-02_JPRB,8.2017E-02_JPRB,9.9655E-02_JPRB,&
+ & 1.1591E-01_JPRB,1.2935E-01_JPRB,2.1952E+00_JPRB/)  
+KAO( :, 5,10, 5) = (/&
+ & 4.7070E-03_JPRB,2.5048E-02_JPRB,4.5565E-02_JPRB,6.5484E-02_JPRB,8.4705E-02_JPRB,1.0298E-01_JPRB,&
+ & 1.1992E-01_JPRB,1.3395E-01_JPRB,2.0819E+00_JPRB/)  
+KAO( :, 1,11, 5) = (/&
+ & 5.0497E-03_JPRB,2.0186E-02_JPRB,3.4078E-02_JPRB,4.7979E-02_JPRB,6.1354E-02_JPRB,7.4036E-02_JPRB,&
+ & 8.5636E-02_JPRB,9.6183E-02_JPRB,2.2490E+00_JPRB/)  
+KAO( :, 2,11, 5) = (/&
+ & 4.6938E-03_JPRB,2.0334E-02_JPRB,3.5429E-02_JPRB,5.0287E-02_JPRB,6.4580E-02_JPRB,7.8155E-02_JPRB,&
+ & 9.0667E-02_JPRB,1.0125E-01_JPRB,2.1005E+00_JPRB/)  
+KAO( :, 3,11, 5) = (/&
+ & 4.3895E-03_JPRB,2.0572E-02_JPRB,3.6577E-02_JPRB,5.2195E-02_JPRB,6.7235E-02_JPRB,8.1560E-02_JPRB,&
+ & 9.4765E-02_JPRB,1.0567E-01_JPRB,1.9750E+00_JPRB/)  
+KAO( :, 4,11, 5) = (/&
+ & 4.1271E-03_JPRB,2.0876E-02_JPRB,3.7641E-02_JPRB,5.3937E-02_JPRB,6.9658E-02_JPRB,8.4612E-02_JPRB,&
+ & 9.8403E-02_JPRB,1.0977E-01_JPRB,1.8669E+00_JPRB/)  
+KAO( :, 5,11, 5) = (/&
+ & 3.8988E-03_JPRB,2.1198E-02_JPRB,3.8649E-02_JPRB,5.5601E-02_JPRB,7.1927E-02_JPRB,8.7466E-02_JPRB,&
+ & 1.0184E-01_JPRB,1.1364E-01_JPRB,1.7763E+00_JPRB/)  
+KAO( :, 1,12, 5) = (/&
+ & 4.1728E-03_JPRB,1.6993E-02_JPRB,2.8852E-02_JPRB,4.0662E-02_JPRB,5.2011E-02_JPRB,6.2760E-02_JPRB,&
+ & 7.2578E-02_JPRB,8.1564E-02_JPRB,1.9301E+00_JPRB/)  
+KAO( :, 2,12, 5) = (/&
+ & 3.8841E-03_JPRB,1.7115E-02_JPRB,2.9921E-02_JPRB,4.2476E-02_JPRB,5.4549E-02_JPRB,6.6006E-02_JPRB,&
+ & 7.6561E-02_JPRB,8.5509E-02_JPRB,1.8048E+00_JPRB/)  
+KAO( :, 3,12, 5) = (/&
+ & 3.6372E-03_JPRB,1.7332E-02_JPRB,3.0872E-02_JPRB,4.4059E-02_JPRB,5.6757E-02_JPRB,6.8840E-02_JPRB,&
+ & 7.9938E-02_JPRB,8.9112E-02_JPRB,1.6994E+00_JPRB/)  
+KAO( :, 4,12, 5) = (/&
+ & 3.4237E-03_JPRB,1.7595E-02_JPRB,3.1771E-02_JPRB,4.5538E-02_JPRB,5.8804E-02_JPRB,7.1398E-02_JPRB,&
+ & 8.2985E-02_JPRB,9.2488E-02_JPRB,1.6111E+00_JPRB/)  
+KAO( :, 5,12, 5) = (/&
+ & 3.2373E-03_JPRB,1.7880E-02_JPRB,3.2595E-02_JPRB,4.6898E-02_JPRB,6.0660E-02_JPRB,7.3740E-02_JPRB,&
+ & 8.5835E-02_JPRB,9.5657E-02_JPRB,1.5338E+00_JPRB/)  
+KAO( :, 1,13, 5) = (/&
+ & 3.4531E-03_JPRB,1.4217E-02_JPRB,2.4215E-02_JPRB,3.4135E-02_JPRB,4.3667E-02_JPRB,5.2684E-02_JPRB,&
+ & 6.0918E-02_JPRB,6.8490E-02_JPRB,1.7191E+00_JPRB/)  
+KAO( :, 2,13, 5) = (/&
+ & 3.2166E-03_JPRB,1.4327E-02_JPRB,2.5086E-02_JPRB,3.5607E-02_JPRB,4.5722E-02_JPRB,5.5317E-02_JPRB,&
+ & 6.4142E-02_JPRB,7.1650E-02_JPRB,1.6100E+00_JPRB/)  
+KAO( :, 3,13, 5) = (/&
+ & 3.0139E-03_JPRB,1.4515E-02_JPRB,2.5871E-02_JPRB,3.6915E-02_JPRB,4.7550E-02_JPRB,5.7658E-02_JPRB,&
+ & 6.6926E-02_JPRB,7.4589E-02_JPRB,1.5199E+00_JPRB/)  
+KAO( :, 4,13, 5) = (/&
+ & 2.8380E-03_JPRB,1.4739E-02_JPRB,2.6616E-02_JPRB,3.8152E-02_JPRB,4.9253E-02_JPRB,5.9779E-02_JPRB,&
+ & 6.9455E-02_JPRB,7.7339E-02_JPRB,1.4413E+00_JPRB/)  
+KAO( :, 5,13, 5) = (/&
+ & 2.6842E-03_JPRB,1.4990E-02_JPRB,2.7278E-02_JPRB,3.9228E-02_JPRB,5.0729E-02_JPRB,6.1660E-02_JPRB,&
+ & 7.1747E-02_JPRB,7.9916E-02_JPRB,1.3713E+00_JPRB/)  
+KAO( :, 1, 1, 6) = (/&
+ & 3.8632E-02_JPRB,1.4563E-01_JPRB,2.6438E-01_JPRB,3.7994E-01_JPRB,4.9178E-01_JPRB,5.9825E-01_JPRB,&
+ & 6.9697E-01_JPRB,7.7896E-01_JPRB,1.1356E+01_JPRB/)  
+KAO( :, 2, 1, 6) = (/&
+ & 3.7252E-02_JPRB,1.4645E-01_JPRB,2.6646E-01_JPRB,3.8318E-01_JPRB,4.9611E-01_JPRB,6.0391E-01_JPRB,&
+ & 7.0433E-01_JPRB,7.8721E-01_JPRB,1.0913E+01_JPRB/)  
+KAO( :, 3, 1, 6) = (/&
+ & 3.6055E-02_JPRB,1.4710E-01_JPRB,2.6822E-01_JPRB,3.8583E-01_JPRB,4.9949E-01_JPRB,6.0852E-01_JPRB,&
+ & 7.0979E-01_JPRB,7.9483E-01_JPRB,1.0530E+01_JPRB/)  
+KAO( :, 4, 1, 6) = (/&
+ & 3.5090E-02_JPRB,1.4760E-01_JPRB,2.6956E-01_JPRB,3.8772E-01_JPRB,5.0210E-01_JPRB,6.1181E-01_JPRB,&
+ & 7.1390E-01_JPRB,7.9958E-01_JPRB,1.0180E+01_JPRB/)  
+KAO( :, 5, 1, 6) = (/&
+ & 3.4260E-02_JPRB,1.4804E-01_JPRB,2.7047E-01_JPRB,3.8919E-01_JPRB,5.0401E-01_JPRB,6.1383E-01_JPRB,&
+ & 7.1642E-01_JPRB,8.0271E-01_JPRB,9.8574E+00_JPRB/)  
+KAO( :, 1, 2, 6) = (/&
+ & 3.1826E-02_JPRB,1.3117E-01_JPRB,2.4082E-01_JPRB,3.4734E-01_JPRB,4.4987E-01_JPRB,5.4781E-01_JPRB,&
+ & 6.3804E-01_JPRB,7.1206E-01_JPRB,9.6043E+00_JPRB/)  
+KAO( :, 2, 2, 6) = (/&
+ & 3.0580E-02_JPRB,1.3188E-01_JPRB,2.4250E-01_JPRB,3.4978E-01_JPRB,4.5341E-01_JPRB,5.5237E-01_JPRB,&
+ & 6.4380E-01_JPRB,7.1952E-01_JPRB,9.2042E+00_JPRB/)  
+KAO( :, 3, 2, 6) = (/&
+ & 2.9477E-02_JPRB,1.3242E-01_JPRB,2.4394E-01_JPRB,3.5199E-01_JPRB,4.5646E-01_JPRB,5.5595E-01_JPRB,&
+ & 6.4859E-01_JPRB,7.2500E-01_JPRB,8.8547E+00_JPRB/)  
+KAO( :, 4, 2, 6) = (/&
+ & 2.8580E-02_JPRB,1.3291E-01_JPRB,2.4517E-01_JPRB,3.5389E-01_JPRB,4.5886E-01_JPRB,5.5917E-01_JPRB,&
+ & 6.5208E-01_JPRB,7.2920E-01_JPRB,8.5255E+00_JPRB/)  
+KAO( :, 5, 2, 6) = (/&
+ & 2.7810E-02_JPRB,1.3345E-01_JPRB,2.4608E-01_JPRB,3.5526E-01_JPRB,4.6068E-01_JPRB,5.6160E-01_JPRB,&
+ & 6.5500E-01_JPRB,7.3217E-01_JPRB,8.2220E+00_JPRB/)  
+KAO( :, 1, 3, 6) = (/&
+ & 2.6420E-02_JPRB,1.1646E-01_JPRB,2.1549E-01_JPRB,3.1138E-01_JPRB,4.0359E-01_JPRB,4.9120E-01_JPRB,&
+ & 5.7225E-01_JPRB,6.3794E-01_JPRB,8.1678E+00_JPRB/)  
+KAO( :, 2, 3, 6) = (/&
+ & 2.5165E-02_JPRB,1.1697E-01_JPRB,2.1694E-01_JPRB,3.1375E-01_JPRB,4.0678E-01_JPRB,4.9551E-01_JPRB,&
+ & 5.7728E-01_JPRB,6.4420E-01_JPRB,7.7828E+00_JPRB/)  
+KAO( :, 3, 3, 6) = (/&
+ & 2.4099E-02_JPRB,1.1741E-01_JPRB,2.1826E-01_JPRB,3.1581E-01_JPRB,4.0983E-01_JPRB,4.9937E-01_JPRB,&
+ & 5.8185E-01_JPRB,6.4952E-01_JPRB,7.4421E+00_JPRB/)  
+KAO( :, 4, 3, 6) = (/&
+ & 2.3226E-02_JPRB,1.1793E-01_JPRB,2.1960E-01_JPRB,3.1782E-01_JPRB,4.1268E-01_JPRB,5.0276E-01_JPRB,&
+ & 5.8605E-01_JPRB,6.5374E-01_JPRB,7.1416E+00_JPRB/)  
+KAO( :, 5, 3, 6) = (/&
+ & 2.2449E-02_JPRB,1.1853E-01_JPRB,2.2074E-01_JPRB,3.1965E-01_JPRB,4.1487E-01_JPRB,5.0573E-01_JPRB,&
+ & 5.8935E-01_JPRB,6.5775E-01_JPRB,6.8702E+00_JPRB/)  
+KAO( :, 1, 4, 6) = (/&
+ & 2.2282E-02_JPRB,1.0267E-01_JPRB,1.9038E-01_JPRB,2.7507E-01_JPRB,3.5668E-01_JPRB,4.3406E-01_JPRB,&
+ & 5.0509E-01_JPRB,5.6272E-01_JPRB,7.0192E+00_JPRB/)  
+KAO( :, 2, 4, 6) = (/&
+ & 2.1101E-02_JPRB,1.0311E-01_JPRB,1.9184E-01_JPRB,2.7754E-01_JPRB,3.5984E-01_JPRB,4.3790E-01_JPRB,&
+ & 5.1005E-01_JPRB,5.6828E-01_JPRB,6.6594E+00_JPRB/)  
+KAO( :, 3, 4, 6) = (/&
+ & 2.0092E-02_JPRB,1.0356E-01_JPRB,1.9318E-01_JPRB,2.7978E-01_JPRB,3.6293E-01_JPRB,4.4207E-01_JPRB,&
+ & 5.1463E-01_JPRB,5.7356E-01_JPRB,6.3438E+00_JPRB/)  
+KAO( :, 4, 4, 6) = (/&
+ & 1.9228E-02_JPRB,1.0414E-01_JPRB,1.9468E-01_JPRB,2.8199E-01_JPRB,3.6599E-01_JPRB,4.4583E-01_JPRB,&
+ & 5.1913E-01_JPRB,5.7829E-01_JPRB,6.0576E+00_JPRB/)  
+KAO( :, 5, 4, 6) = (/&
+ & 1.8478E-02_JPRB,1.0486E-01_JPRB,1.9620E-01_JPRB,2.8416E-01_JPRB,3.6882E-01_JPRB,4.4907E-01_JPRB,&
+ & 5.2302E-01_JPRB,5.8267E-01_JPRB,5.7987E+00_JPRB/)  
+KAO( :, 1, 5, 6) = (/&
+ & 1.8927E-02_JPRB,8.9665E-02_JPRB,1.6623E-01_JPRB,2.4010E-01_JPRB,3.1103E-01_JPRB,3.7843E-01_JPRB,&
+ & 4.4012E-01_JPRB,4.9065E-01_JPRB,6.0454E+00_JPRB/)  
+KAO( :, 2, 5, 6) = (/&
+ & 1.7852E-02_JPRB,9.0154E-02_JPRB,1.6776E-01_JPRB,2.4246E-01_JPRB,3.1432E-01_JPRB,3.8239E-01_JPRB,&
+ & 4.4467E-01_JPRB,4.9513E-01_JPRB,5.7165E+00_JPRB/)  
+KAO( :, 3, 5, 6) = (/&
+ & 1.6931E-02_JPRB,9.0711E-02_JPRB,1.6930E-01_JPRB,2.4502E-01_JPRB,3.1769E-01_JPRB,3.8643E-01_JPRB,&
+ & 4.4965E-01_JPRB,5.0025E-01_JPRB,5.4249E+00_JPRB/)  
+KAO( :, 4, 5, 6) = (/&
+ & 1.6136E-02_JPRB,9.1383E-02_JPRB,1.7089E-01_JPRB,2.4749E-01_JPRB,3.2087E-01_JPRB,3.9057E-01_JPRB,&
+ & 4.5430E-01_JPRB,5.0560E-01_JPRB,5.1610E+00_JPRB/)  
+KAO( :, 5, 5, 6) = (/&
+ & 1.5442E-02_JPRB,9.2230E-02_JPRB,1.7257E-01_JPRB,2.4990E-01_JPRB,3.2412E-01_JPRB,3.9447E-01_JPRB,&
+ & 4.5892E-01_JPRB,5.1059E-01_JPRB,4.9249E+00_JPRB/)  
+KAO( :, 1, 6, 6) = (/&
+ & 1.6173E-02_JPRB,7.7572E-02_JPRB,1.4357E-01_JPRB,2.0729E-01_JPRB,2.6833E-01_JPRB,3.2615E-01_JPRB,&
+ & 3.7930E-01_JPRB,4.2429E-01_JPRB,5.2215E+00_JPRB/)  
+KAO( :, 2, 6, 6) = (/&
+ & 1.5200E-02_JPRB,7.8077E-02_JPRB,1.4510E-01_JPRB,2.0962E-01_JPRB,2.7142E-01_JPRB,3.3008E-01_JPRB,&
+ & 3.8383E-01_JPRB,4.2773E-01_JPRB,4.9175E+00_JPRB/)  
+KAO( :, 3, 6, 6) = (/&
+ & 1.4368E-02_JPRB,7.8730E-02_JPRB,1.4681E-01_JPRB,2.1218E-01_JPRB,2.7493E-01_JPRB,3.3435E-01_JPRB,&
+ & 3.8857E-01_JPRB,4.3236E-01_JPRB,4.6498E+00_JPRB/)  
+KAO( :, 4, 6, 6) = (/&
+ & 1.3651E-02_JPRB,7.9498E-02_JPRB,1.4852E-01_JPRB,2.1489E-01_JPRB,2.7853E-01_JPRB,3.3867E-01_JPRB,&
+ & 3.9393E-01_JPRB,4.3813E-01_JPRB,4.4118E+00_JPRB/)  
+KAO( :, 5, 6, 6) = (/&
+ & 1.3021E-02_JPRB,8.0512E-02_JPRB,1.5047E-01_JPRB,2.1785E-01_JPRB,2.8237E-01_JPRB,3.4356E-01_JPRB,&
+ & 3.9943E-01_JPRB,4.4445E-01_JPRB,4.1985E+00_JPRB/)  
+KAO( :, 1, 7, 6) = (/&
+ & 1.3842E-02_JPRB,6.6570E-02_JPRB,1.2297E-01_JPRB,1.7734E-01_JPRB,2.2958E-01_JPRB,2.7900E-01_JPRB,&
+ & 3.2406E-01_JPRB,3.6469E-01_JPRB,4.5564E+00_JPRB/)  
+KAO( :, 2, 7, 6) = (/&
+ & 1.2974E-02_JPRB,6.7120E-02_JPRB,1.2449E-01_JPRB,1.7977E-01_JPRB,2.3270E-01_JPRB,2.8277E-01_JPRB,&
+ & 3.2872E-01_JPRB,3.6760E-01_JPRB,4.2769E+00_JPRB/)  
+KAO( :, 3, 7, 6) = (/&
+ & 1.2231E-02_JPRB,6.7829E-02_JPRB,1.2627E-01_JPRB,1.8248E-01_JPRB,2.3625E-01_JPRB,2.8721E-01_JPRB,&
+ & 3.3397E-01_JPRB,3.7214E-01_JPRB,4.0308E+00_JPRB/)  
+KAO( :, 4, 7, 6) = (/&
+ & 1.1586E-02_JPRB,6.8704E-02_JPRB,1.2831E-01_JPRB,1.8551E-01_JPRB,2.4039E-01_JPRB,2.9244E-01_JPRB,&
+ & 3.3993E-01_JPRB,3.7842E-01_JPRB,3.8137E+00_JPRB/)  
+KAO( :, 5, 7, 6) = (/&
+ & 1.1019E-02_JPRB,6.9935E-02_JPRB,1.3064E-01_JPRB,1.8899E-01_JPRB,2.4502E-01_JPRB,2.9795E-01_JPRB,&
+ & 3.4661E-01_JPRB,3.8562E-01_JPRB,3.6208E+00_JPRB/)  
+KAO( :, 1, 8, 6) = (/&
+ & 1.1856E-02_JPRB,5.6687E-02_JPRB,1.0456E-01_JPRB,1.5068E-01_JPRB,1.9490E-01_JPRB,2.3680E-01_JPRB,&
+ & 2.7529E-01_JPRB,3.1187E-01_JPRB,4.0573E+00_JPRB/)  
+KAO( :, 2, 8, 6) = (/&
+ & 1.1084E-02_JPRB,5.7283E-02_JPRB,1.0610E-01_JPRB,1.5305E-01_JPRB,1.9814E-01_JPRB,2.4092E-01_JPRB,&
+ & 2.8002E-01_JPRB,3.1482E-01_JPRB,3.7969E+00_JPRB/)  
+KAO( :, 3, 8, 6) = (/&
+ & 1.0424E-02_JPRB,5.8111E-02_JPRB,1.0802E-01_JPRB,1.5601E-01_JPRB,2.0208E-01_JPRB,2.4566E-01_JPRB,&
+ & 2.8562E-01_JPRB,3.1943E-01_JPRB,3.5697E+00_JPRB/)  
+KAO( :, 4, 8, 6) = (/&
+ & 9.8517E-03_JPRB,5.9109E-02_JPRB,1.1026E-01_JPRB,1.5951E-01_JPRB,2.0663E-01_JPRB,2.5128E-01_JPRB,&
+ & 2.9237E-01_JPRB,3.2591E-01_JPRB,3.3690E+00_JPRB/)  
+KAO( :, 5, 8, 6) = (/&
+ & 9.3473E-03_JPRB,6.0458E-02_JPRB,1.1290E-01_JPRB,1.6330E-01_JPRB,2.1161E-01_JPRB,2.5747E-01_JPRB,&
+ & 2.9929E-01_JPRB,3.3311E-01_JPRB,3.1918E+00_JPRB/)  
+KAO( :, 1, 9, 6) = (/&
+ & 1.0174E-02_JPRB,4.8047E-02_JPRB,8.8410E-02_JPRB,1.2743E-01_JPRB,1.6481E-01_JPRB,2.0018E-01_JPRB,&
+ & 2.3315E-01_JPRB,2.6585E-01_JPRB,3.5956E+00_JPRB/)  
+KAO( :, 2, 9, 6) = (/&
+ & 9.4844E-03_JPRB,4.8661E-02_JPRB,9.0043E-02_JPRB,1.2994E-01_JPRB,1.6817E-01_JPRB,2.0441E-01_JPRB,&
+ & 2.3776E-01_JPRB,2.6902E-01_JPRB,3.3539E+00_JPRB/)  
+KAO( :, 3, 9, 6) = (/&
+ & 8.8959E-03_JPRB,4.9547E-02_JPRB,9.2085E-02_JPRB,1.3295E-01_JPRB,1.7216E-01_JPRB,2.0943E-01_JPRB,&
+ & 2.4369E-01_JPRB,2.7374E-01_JPRB,3.1436E+00_JPRB/)  
+KAO( :, 4, 9, 6) = (/&
+ & 8.3843E-03_JPRB,5.0652E-02_JPRB,9.4445E-02_JPRB,1.3652E-01_JPRB,1.7695E-01_JPRB,2.1526E-01_JPRB,&
+ & 2.5026E-01_JPRB,2.7964E-01_JPRB,2.9597E+00_JPRB/)  
+KAO( :, 5, 9, 6) = (/&
+ & 7.9361E-03_JPRB,5.1996E-02_JPRB,9.7022E-02_JPRB,1.4032E-01_JPRB,1.8172E-01_JPRB,2.2081E-01_JPRB,&
+ & 2.5660E-01_JPRB,2.8539E-01_JPRB,2.7995E+00_JPRB/)  
+KAO( :, 1,10, 6) = (/&
+ & 8.6910E-03_JPRB,4.0662E-02_JPRB,7.4709E-02_JPRB,1.0753E-01_JPRB,1.3903E-01_JPRB,1.6890E-01_JPRB,&
+ & 1.9755E-01_JPRB,2.2624E-01_JPRB,3.1658E+00_JPRB/)  
+KAO( :, 2,10, 6) = (/&
+ & 8.0781E-03_JPRB,4.1334E-02_JPRB,7.6396E-02_JPRB,1.1015E-01_JPRB,1.4261E-01_JPRB,1.7346E-01_JPRB,&
+ & 2.0195E-01_JPRB,2.2973E-01_JPRB,2.9443E+00_JPRB/)  
+KAO( :, 3,10, 6) = (/&
+ & 7.5558E-03_JPRB,4.2237E-02_JPRB,7.8425E-02_JPRB,1.1329E-01_JPRB,1.4677E-01_JPRB,1.7847E-01_JPRB,&
+ & 2.0753E-01_JPRB,2.3421E-01_JPRB,2.7528E+00_JPRB/)  
+KAO( :, 4,10, 6) = (/&
+ & 7.1052E-03_JPRB,4.3295E-02_JPRB,8.0652E-02_JPRB,1.1657E-01_JPRB,1.5091E-01_JPRB,1.8339E-01_JPRB,&
+ & 2.1320E-01_JPRB,2.3872E-01_JPRB,2.5875E+00_JPRB/)  
+KAO( :, 5,10, 6) = (/&
+ & 6.7112E-03_JPRB,4.4456E-02_JPRB,8.2854E-02_JPRB,1.1964E-01_JPRB,1.5483E-01_JPRB,1.8812E-01_JPRB,&
+ & 2.1828E-01_JPRB,2.4305E-01_JPRB,2.4449E+00_JPRB/)  
+KAO( :, 1,11, 6) = (/&
+ & 7.1546E-03_JPRB,3.4641E-02_JPRB,6.3729E-02_JPRB,9.1774E-02_JPRB,1.1873E-01_JPRB,1.4430E-01_JPRB,&
+ & 1.6899E-01_JPRB,1.9377E-01_JPRB,2.6800E+00_JPRB/)  
+KAO( :, 2,11, 6) = (/&
+ & 6.6497E-03_JPRB,3.5437E-02_JPRB,6.5581E-02_JPRB,9.4605E-02_JPRB,1.2249E-01_JPRB,1.4891E-01_JPRB,&
+ & 1.7335E-01_JPRB,1.9740E-01_JPRB,2.4922E+00_JPRB/)  
+KAO( :, 3,11, 6) = (/&
+ & 6.2203E-03_JPRB,3.6291E-02_JPRB,6.7410E-02_JPRB,9.7360E-02_JPRB,1.2600E-01_JPRB,1.5308E-01_JPRB,&
+ & 1.7786E-01_JPRB,2.0080E-01_JPRB,2.3311E+00_JPRB/)  
+KAO( :, 4,11, 6) = (/&
+ & 5.8484E-03_JPRB,3.7194E-02_JPRB,6.9237E-02_JPRB,9.9960E-02_JPRB,1.2931E-01_JPRB,1.5705E-01_JPRB,&
+ & 1.8234E-01_JPRB,2.0415E-01_JPRB,2.1940E+00_JPRB/)  
+KAO( :, 5,11, 6) = (/&
+ & 5.5242E-03_JPRB,3.8204E-02_JPRB,7.1094E-02_JPRB,1.0253E-01_JPRB,1.3260E-01_JPRB,1.6091E-01_JPRB,&
+ & 1.8653E-01_JPRB,2.0766E-01_JPRB,2.0745E+00_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB15:PART4',1,ZHOOK_HANDLE)
+END SUBROUTINE PART4
+
+
+SUBROUTINE PART5
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB15:PART5',0,ZHOOK_HANDLE)
+
+
+KAO( :, 1,12, 6) = (/&
+ & 5.8816E-03_JPRB,2.9599E-02_JPRB,5.4489E-02_JPRB,7.8480E-02_JPRB,1.0153E-01_JPRB,1.2338E-01_JPRB,&
+ & 1.4461E-01_JPRB,1.6589E-01_JPRB,2.2985E+00_JPRB/)  
+KAO( :, 2,12, 6) = (/&
+ & 5.4688E-03_JPRB,3.0298E-02_JPRB,5.6046E-02_JPRB,8.0826E-02_JPRB,1.0456E-01_JPRB,1.2701E-01_JPRB,&
+ & 1.4783E-01_JPRB,1.6844E-01_JPRB,2.1377E+00_JPRB/)  
+KAO( :, 3,12, 6) = (/&
+ & 5.1175E-03_JPRB,3.1020E-02_JPRB,5.7585E-02_JPRB,8.3084E-02_JPRB,1.0742E-01_JPRB,1.3040E-01_JPRB,&
+ & 1.5140E-01_JPRB,1.7099E-01_JPRB,2.0023E+00_JPRB/)  
+KAO( :, 4,12, 6) = (/&
+ & 4.8144E-03_JPRB,3.1808E-02_JPRB,5.9123E-02_JPRB,8.5255E-02_JPRB,1.1020E-01_JPRB,1.3374E-01_JPRB,&
+ & 1.5506E-01_JPRB,1.7366E-01_JPRB,1.8864E+00_JPRB/)  
+KAO( :, 5,12, 6) = (/&
+ & 4.5497E-03_JPRB,3.2704E-02_JPRB,6.0814E-02_JPRB,8.7626E-02_JPRB,1.1321E-01_JPRB,1.3720E-01_JPRB,&
+ & 1.5886E-01_JPRB,1.7678E-01_JPRB,1.7844E+00_JPRB/)  
+KAO( :, 1,13, 6) = (/&
+ & 4.8422E-03_JPRB,2.5177E-02_JPRB,4.6344E-02_JPRB,6.6734E-02_JPRB,8.6291E-02_JPRB,1.0482E-01_JPRB,&
+ & 1.2289E-01_JPRB,1.4102E-01_JPRB,2.0501E+00_JPRB/)  
+KAO( :, 2,13, 6) = (/&
+ & 4.5082E-03_JPRB,2.5759E-02_JPRB,4.7623E-02_JPRB,6.8651E-02_JPRB,8.8749E-02_JPRB,1.0771E-01_JPRB,&
+ & 1.2536E-01_JPRB,1.4285E-01_JPRB,1.9088E+00_JPRB/)  
+KAO( :, 3,13, 6) = (/&
+ & 4.2221E-03_JPRB,2.6388E-02_JPRB,4.8921E-02_JPRB,7.0509E-02_JPRB,9.1098E-02_JPRB,1.1050E-01_JPRB,&
+ & 1.2820E-01_JPRB,1.4481E-01_JPRB,1.7897E+00_JPRB/)  
+KAO( :, 4,13, 6) = (/&
+ & 3.9753E-03_JPRB,2.7097E-02_JPRB,5.0270E-02_JPRB,7.2404E-02_JPRB,9.3520E-02_JPRB,1.1341E-01_JPRB,&
+ & 1.3134E-01_JPRB,1.4713E-01_JPRB,1.6870E+00_JPRB/)  
+KAO( :, 5,13, 6) = (/&
+ & 3.7603E-03_JPRB,2.7904E-02_JPRB,5.1825E-02_JPRB,7.4620E-02_JPRB,9.6277E-02_JPRB,1.1654E-01_JPRB,&
+ & 1.3481E-01_JPRB,1.4987E-01_JPRB,1.5960E+00_JPRB/)  
+KAO( :, 1, 1, 7) = (/&
+ & 5.2128E-02_JPRB,2.2573E-01_JPRB,4.1698E-01_JPRB,6.0142E-01_JPRB,7.7838E-01_JPRB,9.4635E-01_JPRB,&
+ & 1.1013E+00_JPRB,1.2264E+00_JPRB,1.2683E+01_JPRB/)  
+KAO( :, 2, 1, 7) = (/&
+ & 5.0382E-02_JPRB,2.2718E-01_JPRB,4.1897E-01_JPRB,6.0369E-01_JPRB,7.8036E-01_JPRB,9.4806E-01_JPRB,&
+ & 1.1011E+00_JPRB,1.2250E+00_JPRB,1.2078E+01_JPRB/)  
+KAO( :, 3, 1, 7) = (/&
+ & 4.9050E-02_JPRB,2.2916E-01_JPRB,4.2172E-01_JPRB,6.0675E-01_JPRB,7.8406E-01_JPRB,9.5134E-01_JPRB,&
+ & 1.1038E+00_JPRB,1.2245E+00_JPRB,1.1561E+01_JPRB/)  
+KAO( :, 4, 1, 7) = (/&
+ & 4.8000E-02_JPRB,2.3161E-01_JPRB,4.2498E-01_JPRB,6.1081E-01_JPRB,7.8880E-01_JPRB,9.5615E-01_JPRB,&
+ & 1.1084E+00_JPRB,1.2283E+00_JPRB,1.1090E+01_JPRB/)  
+KAO( :, 5, 1, 7) = (/&
+ & 4.7267E-02_JPRB,2.3436E-01_JPRB,4.2865E-01_JPRB,6.1543E-01_JPRB,7.9387E-01_JPRB,9.6245E-01_JPRB,&
+ & 1.1147E+00_JPRB,1.2334E+00_JPRB,1.0665E+01_JPRB/)  
+KAO( :, 1, 2, 7) = (/&
+ & 4.2932E-02_JPRB,2.1372E-01_JPRB,3.9561E-01_JPRB,5.6920E-01_JPRB,7.3515E-01_JPRB,8.9082E-01_JPRB,&
+ & 1.0322E+00_JPRB,1.1443E+00_JPRB,1.0613E+01_JPRB/)  
+KAO( :, 2, 2, 7) = (/&
+ & 4.1235E-02_JPRB,2.1562E-01_JPRB,3.9903E-01_JPRB,5.7421E-01_JPRB,7.4053E-01_JPRB,8.9640E-01_JPRB,&
+ & 1.0375E+00_JPRB,1.1460E+00_JPRB,1.0106E+01_JPRB/)  
+KAO( :, 3, 2, 7) = (/&
+ & 3.9904E-02_JPRB,2.1797E-01_JPRB,4.0322E-01_JPRB,5.7993E-01_JPRB,7.4744E-01_JPRB,9.0475E-01_JPRB,&
+ & 1.0452E+00_JPRB,1.1527E+00_JPRB,9.6511E+00_JPRB/)  
+KAO( :, 4, 2, 7) = (/&
+ & 3.8807E-02_JPRB,2.2063E-01_JPRB,4.0792E-01_JPRB,5.8615E-01_JPRB,7.5558E-01_JPRB,9.1342E-01_JPRB,&
+ & 1.0550E+00_JPRB,1.1616E+00_JPRB,9.2444E+00_JPRB/)  
+KAO( :, 5, 2, 7) = (/&
+ & 3.7944E-02_JPRB,2.2348E-01_JPRB,4.1278E-01_JPRB,5.9308E-01_JPRB,7.6392E-01_JPRB,9.2334E-01_JPRB,&
+ & 1.0654E+00_JPRB,1.1718E+00_JPRB,8.8704E+00_JPRB/)  
+KAO( :, 1, 3, 7) = (/&
+ & 3.5644E-02_JPRB,1.9900E-01_JPRB,3.6873E-01_JPRB,5.2969E-01_JPRB,6.8262E-01_JPRB,8.2576E-01_JPRB,&
+ & 9.5330E-01_JPRB,1.0560E+00_JPRB,9.0225E+00_JPRB/)  
+KAO( :, 2, 3, 7) = (/&
+ & 3.3919E-02_JPRB,2.0128E-01_JPRB,3.7328E-01_JPRB,5.3629E-01_JPRB,6.9070E-01_JPRB,8.3419E-01_JPRB,&
+ & 9.6259E-01_JPRB,1.0599E+00_JPRB,8.5592E+00_JPRB/)  
+KAO( :, 3, 3, 7) = (/&
+ & 3.2476E-02_JPRB,2.0401E-01_JPRB,3.7867E-01_JPRB,5.4408E-01_JPRB,7.0000E-01_JPRB,8.4506E-01_JPRB,&
+ & 9.7370E-01_JPRB,1.0690E+00_JPRB,8.1409E+00_JPRB/)  
+KAO( :, 4, 3, 7) = (/&
+ & 3.1249E-02_JPRB,2.0698E-01_JPRB,3.8457E-01_JPRB,5.5225E-01_JPRB,7.1038E-01_JPRB,8.5708E-01_JPRB,&
+ & 9.8671E-01_JPRB,1.0811E+00_JPRB,7.7623E+00_JPRB/)  
+KAO( :, 5, 3, 7) = (/&
+ & 3.0275E-02_JPRB,2.1021E-01_JPRB,3.9069E-01_JPRB,5.6104E-01_JPRB,7.2150E-01_JPRB,8.6973E-01_JPRB,&
+ & 1.0004E+00_JPRB,1.0948E+00_JPRB,7.4273E+00_JPRB/)  
+KAO( :, 1, 4, 7) = (/&
+ & 3.0097E-02_JPRB,1.8261E-01_JPRB,3.3811E-01_JPRB,4.8498E-01_JPRB,6.2347E-01_JPRB,7.5244E-01_JPRB,&
+ & 8.6689E-01_JPRB,9.6397E-01_JPRB,7.7267E+00_JPRB/)  
+KAO( :, 2, 4, 7) = (/&
+ & 2.8465E-02_JPRB,1.8532E-01_JPRB,3.4351E-01_JPRB,4.9262E-01_JPRB,6.3341E-01_JPRB,7.6377E-01_JPRB,&
+ & 8.7850E-01_JPRB,9.6891E-01_JPRB,7.2971E+00_JPRB/)  
+KAO( :, 3, 4, 7) = (/&
+ & 2.7069E-02_JPRB,1.8851E-01_JPRB,3.4990E-01_JPRB,5.0190E-01_JPRB,6.4465E-01_JPRB,7.7654E-01_JPRB,&
+ & 8.9285E-01_JPRB,9.7883E-01_JPRB,6.9159E+00_JPRB/)  
+KAO( :, 4, 4, 7) = (/&
+ & 2.5871E-02_JPRB,1.9199E-01_JPRB,3.5682E-01_JPRB,5.1175E-01_JPRB,6.5706E-01_JPRB,7.9119E-01_JPRB,&
+ & 9.0820E-01_JPRB,9.9217E-01_JPRB,6.5751E+00_JPRB/)  
+KAO( :, 5, 4, 7) = (/&
+ & 2.4866E-02_JPRB,1.9576E-01_JPRB,3.6404E-01_JPRB,5.2207E-01_JPRB,6.7030E-01_JPRB,8.0638E-01_JPRB,&
+ & 9.2498E-01_JPRB,1.0073E+00_JPRB,6.2687E+00_JPRB/)  
+KAO( :, 1, 5, 7) = (/&
+ & 2.5614E-02_JPRB,1.6487E-01_JPRB,3.0459E-01_JPRB,4.3623E-01_JPRB,5.5976E-01_JPRB,6.7396E-01_JPRB,&
+ & 7.7520E-01_JPRB,8.6835E-01_JPRB,6.6219E+00_JPRB/)  
+KAO( :, 2, 5, 7) = (/&
+ & 2.4116E-02_JPRB,1.6799E-01_JPRB,3.1096E-01_JPRB,4.4514E-01_JPRB,5.7096E-01_JPRB,6.8731E-01_JPRB,&
+ & 7.8907E-01_JPRB,8.7442E-01_JPRB,6.2328E+00_JPRB/)  
+KAO( :, 3, 5, 7) = (/&
+ & 2.2830E-02_JPRB,1.7162E-01_JPRB,3.1815E-01_JPRB,4.5551E-01_JPRB,5.8428E-01_JPRB,7.0249E-01_JPRB,&
+ & 8.0544E-01_JPRB,8.8480E-01_JPRB,5.8899E+00_JPRB/)  
+KAO( :, 4, 5, 7) = (/&
+ & 2.1736E-02_JPRB,1.7560E-01_JPRB,3.2603E-01_JPRB,4.6697E-01_JPRB,5.9854E-01_JPRB,7.1908E-01_JPRB,&
+ & 8.2326E-01_JPRB,8.9862E-01_JPRB,5.5832E+00_JPRB/)  
+KAO( :, 5, 5, 7) = (/&
+ & 2.0809E-02_JPRB,1.7988E-01_JPRB,3.3435E-01_JPRB,4.7875E-01_JPRB,6.1356E-01_JPRB,7.3657E-01_JPRB,&
+ & 8.4234E-01_JPRB,9.1423E-01_JPRB,5.3090E+00_JPRB/)  
+KAO( :, 1, 6, 7) = (/&
+ & 2.1880E-02_JPRB,1.4623E-01_JPRB,2.6962E-01_JPRB,3.8553E-01_JPRB,4.9437E-01_JPRB,5.9458E-01_JPRB,&
+ & 6.8464E-01_JPRB,7.7290E-01_JPRB,5.6893E+00_JPRB/)  
+KAO( :, 2, 6, 7) = (/&
+ & 2.0541E-02_JPRB,1.4964E-01_JPRB,2.7646E-01_JPRB,3.9534E-01_JPRB,5.0653E-01_JPRB,6.0867E-01_JPRB,&
+ & 6.9802E-01_JPRB,7.7944E-01_JPRB,5.3383E+00_JPRB/)  
+KAO( :, 3, 6, 7) = (/&
+ & 1.9387E-02_JPRB,1.5367E-01_JPRB,2.8442E-01_JPRB,4.0664E-01_JPRB,5.2073E-01_JPRB,6.2519E-01_JPRB,&
+ & 7.1506E-01_JPRB,7.9013E-01_JPRB,5.0300E+00_JPRB/)  
+KAO( :, 4, 6, 7) = (/&
+ & 1.8399E-02_JPRB,1.5808E-01_JPRB,2.9302E-01_JPRB,4.1898E-01_JPRB,5.3609E-01_JPRB,6.4281E-01_JPRB,&
+ & 7.3443E-01_JPRB,8.0386E-01_JPRB,4.7570E+00_JPRB/)  
+KAO( :, 5, 6, 7) = (/&
+ & 1.7565E-02_JPRB,1.6282E-01_JPRB,3.0216E-01_JPRB,4.3178E-01_JPRB,5.5216E-01_JPRB,6.6163E-01_JPRB,&
+ & 7.5404E-01_JPRB,8.1847E-01_JPRB,4.5125E+00_JPRB/)  
+KAO( :, 1, 7, 7) = (/&
+ & 1.8714E-02_JPRB,1.2767E-01_JPRB,2.3517E-01_JPRB,3.3585E-01_JPRB,4.3014E-01_JPRB,5.1698E-01_JPRB,&
+ & 5.9889E-01_JPRB,6.8052E-01_JPRB,4.9475E+00_JPRB/)  
+KAO( :, 2, 7, 7) = (/&
+ & 1.7519E-02_JPRB,1.3119E-01_JPRB,2.4211E-01_JPRB,3.4588E-01_JPRB,4.4292E-01_JPRB,5.3168E-01_JPRB,&
+ & 6.1066E-01_JPRB,6.8710E-01_JPRB,4.6289E+00_JPRB/)  
+KAO( :, 3, 7, 7) = (/&
+ & 1.6495E-02_JPRB,1.3547E-01_JPRB,2.5037E-01_JPRB,3.5759E-01_JPRB,4.5729E-01_JPRB,5.4816E-01_JPRB,&
+ & 6.2674E-01_JPRB,6.9772E-01_JPRB,4.3494E+00_JPRB/)  
+KAO( :, 4, 7, 7) = (/&
+ & 1.5623E-02_JPRB,1.4024E-01_JPRB,2.5938E-01_JPRB,3.7018E-01_JPRB,4.7307E-01_JPRB,5.6640E-01_JPRB,&
+ & 6.4533E-01_JPRB,7.1032E-01_JPRB,4.1027E+00_JPRB/)  
+KAO( :, 5, 7, 7) = (/&
+ & 1.4883E-02_JPRB,1.4521E-01_JPRB,2.6879E-01_JPRB,3.8347E-01_JPRB,4.8911E-01_JPRB,5.8444E-01_JPRB,&
+ & 6.6428E-01_JPRB,7.2392E-01_JPRB,3.8827E+00_JPRB/)  
+KAO( :, 1, 8, 7) = (/&
+ & 1.6011E-02_JPRB,1.1016E-01_JPRB,2.0259E-01_JPRB,2.8923E-01_JPRB,3.7024E-01_JPRB,4.4570E-01_JPRB,&
+ & 5.1977E-01_JPRB,5.9363E-01_JPRB,4.3984E+00_JPRB/)  
+KAO( :, 2, 8, 7) = (/&
+ & 1.4948E-02_JPRB,1.1367E-01_JPRB,2.0954E-01_JPRB,2.9900E-01_JPRB,3.8239E-01_JPRB,4.5865E-01_JPRB,&
+ & 5.2962E-01_JPRB,5.9992E-01_JPRB,4.1028E+00_JPRB/)  
+KAO( :, 3, 8, 7) = (/&
+ & 1.4043E-02_JPRB,1.1790E-01_JPRB,2.1765E-01_JPRB,3.1052E-01_JPRB,3.9683E-01_JPRB,4.7512E-01_JPRB,&
+ & 5.4401E-01_JPRB,6.0979E-01_JPRB,3.8451E+00_JPRB/)  
+KAO( :, 4, 8, 7) = (/&
+ & 1.3277E-02_JPRB,1.2271E-01_JPRB,2.2662E-01_JPRB,3.2293E-01_JPRB,4.1184E-01_JPRB,4.9204E-01_JPRB,&
+ & 5.6016E-01_JPRB,6.2114E-01_JPRB,3.6180E+00_JPRB/)  
+KAO( :, 5, 8, 7) = (/&
+ & 1.2628E-02_JPRB,1.2779E-01_JPRB,2.3576E-01_JPRB,3.3533E-01_JPRB,4.2713E-01_JPRB,5.0925E-01_JPRB,&
+ & 5.7770E-01_JPRB,6.3359E-01_JPRB,3.4160E+00_JPRB/)  
+KAO( :, 1, 9, 7) = (/&
+ & 1.3722E-02_JPRB,9.3985E-02_JPRB,1.7271E-01_JPRB,2.4639E-01_JPRB,3.1541E-01_JPRB,3.8164E-01_JPRB,&
+ & 4.4798E-01_JPRB,5.1362E-01_JPRB,3.8929E+00_JPRB/)  
+KAO( :, 2, 9, 7) = (/&
+ & 1.2777E-02_JPRB,9.7414E-02_JPRB,1.7934E-01_JPRB,2.5581E-01_JPRB,3.2699E-01_JPRB,3.9259E-01_JPRB,&
+ & 4.5617E-01_JPRB,5.1941E-01_JPRB,3.6200E+00_JPRB/)  
+KAO( :, 3, 9, 7) = (/&
+ & 1.1979E-02_JPRB,1.0152E-01_JPRB,1.8716E-01_JPRB,2.6666E-01_JPRB,3.4026E-01_JPRB,4.0688E-01_JPRB,&
+ & 4.6784E-01_JPRB,5.2783E-01_JPRB,3.3828E+00_JPRB/)  
+KAO( :, 4, 9, 7) = (/&
+ & 1.1306E-02_JPRB,1.0607E-01_JPRB,1.9536E-01_JPRB,2.7793E-01_JPRB,3.5411E-01_JPRB,4.2250E-01_JPRB,&
+ & 4.8212E-01_JPRB,5.3856E-01_JPRB,3.1744E+00_JPRB/)  
+KAO( :, 5, 9, 7) = (/&
+ & 1.0737E-02_JPRB,1.1080E-01_JPRB,2.0394E-01_JPRB,2.8968E-01_JPRB,3.6840E-01_JPRB,4.3899E-01_JPRB,&
+ & 4.9835E-01_JPRB,5.5128E-01_JPRB,2.9902E+00_JPRB/)  
+KAO( :, 1,10, 7) = (/&
+ & 1.1712E-02_JPRB,7.9698E-02_JPRB,1.4636E-01_JPRB,2.0884E-01_JPRB,2.6772E-01_JPRB,3.2572E-01_JPRB,&
+ & 3.8403E-01_JPRB,4.4146E-01_JPRB,3.4238E+00_JPRB/)  
+KAO( :, 2,10, 7) = (/&
+ & 1.0885E-02_JPRB,8.2934E-02_JPRB,1.5255E-01_JPRB,2.1737E-01_JPRB,2.7766E-01_JPRB,3.3439E-01_JPRB,&
+ & 3.9066E-01_JPRB,4.4635E-01_JPRB,3.1745E+00_JPRB/)  
+KAO( :, 3,10, 7) = (/&
+ & 1.0188E-02_JPRB,8.6824E-02_JPRB,1.5967E-01_JPRB,2.2716E-01_JPRB,2.8954E-01_JPRB,3.4626E-01_JPRB,&
+ & 4.0034E-01_JPRB,4.5401E-01_JPRB,2.9589E+00_JPRB/)  
+KAO( :, 4,10, 7) = (/&
+ & 9.6011E-03_JPRB,9.1065E-02_JPRB,1.6737E-01_JPRB,2.3778E-01_JPRB,3.0267E-01_JPRB,3.6104E-01_JPRB,&
+ & 4.1369E-01_JPRB,4.6516E-01_JPRB,2.7702E+00_JPRB/)  
+KAO( :, 5,10, 7) = (/&
+ & 9.1043E-03_JPRB,9.5561E-02_JPRB,1.7554E-01_JPRB,2.4912E-01_JPRB,3.1674E-01_JPRB,3.7708E-01_JPRB,&
+ & 4.2925E-01_JPRB,4.7811E-01_JPRB,2.6047E+00_JPRB/)  
+KAO( :, 1,11, 7) = (/&
+ & 9.6600E-03_JPRB,6.8416E-02_JPRB,1.2568E-01_JPRB,1.7918E-01_JPRB,2.2969E-01_JPRB,2.7960E-01_JPRB,&
+ & 3.2973E-01_JPRB,3.7899E-01_JPRB,2.8930E+00_JPRB/)  
+KAO( :, 2,11, 7) = (/&
+ & 8.9878E-03_JPRB,7.1652E-02_JPRB,1.3155E-01_JPRB,1.8712E-01_JPRB,2.3867E-01_JPRB,2.8757E-01_JPRB,&
+ & 3.3629E-01_JPRB,3.8441E-01_JPRB,2.6816E+00_JPRB/)  
+KAO( :, 3,11, 7) = (/&
+ & 8.4222E-03_JPRB,7.5378E-02_JPRB,1.3835E-01_JPRB,1.9668E-01_JPRB,2.5051E-01_JPRB,2.9968E-01_JPRB,&
+ & 3.4702E-01_JPRB,3.9398E-01_JPRB,2.4985E+00_JPRB/)  
+KAO( :, 4,11, 7) = (/&
+ & 7.9456E-03_JPRB,7.9499E-02_JPRB,1.4588E-01_JPRB,2.0704E-01_JPRB,2.6333E-01_JPRB,3.1396E-01_JPRB,&
+ & 3.6037E-01_JPRB,4.0593E-01_JPRB,2.3394E+00_JPRB/)  
+KAO( :, 5,11, 7) = (/&
+ & 7.5367E-03_JPRB,8.3782E-02_JPRB,1.5372E-01_JPRB,2.1807E-01_JPRB,2.7700E-01_JPRB,3.2966E-01_JPRB,&
+ & 3.7579E-01_JPRB,4.1961E-01_JPRB,2.2005E+00_JPRB/)  
+KAO( :, 1,12, 7) = (/&
+ & 7.9651E-03_JPRB,5.8686E-02_JPRB,1.0769E-01_JPRB,1.5334E-01_JPRB,1.9661E-01_JPRB,2.3953E-01_JPRB,&
+ & 2.8260E-01_JPRB,3.2486E-01_JPRB,2.4784E+00_JPRB/)  
+KAO( :, 2,12, 7) = (/&
+ & 7.4154E-03_JPRB,6.1767E-02_JPRB,1.1336E-01_JPRB,1.6127E-01_JPRB,2.0569E-01_JPRB,2.4818E-01_JPRB,&
+ & 2.9059E-01_JPRB,3.3236E-01_JPRB,2.2967E+00_JPRB/)  
+KAO( :, 3,12, 7) = (/&
+ & 6.9534E-03_JPRB,6.5368E-02_JPRB,1.1996E-01_JPRB,1.7048E-01_JPRB,2.1709E-01_JPRB,2.5998E-01_JPRB,&
+ & 3.0158E-01_JPRB,3.4278E-01_JPRB,2.1399E+00_JPRB/)  
+KAO( :, 4,12, 7) = (/&
+ & 6.5627E-03_JPRB,6.9215E-02_JPRB,1.2702E-01_JPRB,1.8030E-01_JPRB,2.2939E-01_JPRB,2.7353E-01_JPRB,&
+ & 3.1454E-01_JPRB,3.5481E-01_JPRB,2.0047E+00_JPRB/)  
+KAO( :, 5,12, 7) = (/&
+ & 6.2252E-03_JPRB,7.3310E-02_JPRB,1.3449E-01_JPRB,1.9068E-01_JPRB,2.4194E-01_JPRB,2.8763E-01_JPRB,&
+ & 3.2799E-01_JPRB,3.6662E-01_JPRB,1.8867E+00_JPRB/)  
+KAO( :, 1,13, 7) = (/&
+ & 6.5616E-03_JPRB,5.0380E-02_JPRB,9.2460E-02_JPRB,1.3167E-01_JPRB,1.6900E-01_JPRB,2.0616E-01_JPRB,&
+ & 2.4338E-01_JPRB,2.7988E-01_JPRB,2.2117E+00_JPRB/)  
+KAO( :, 2,13, 7) = (/&
+ & 6.1120E-03_JPRB,5.3375E-02_JPRB,9.7998E-02_JPRB,1.3948E-01_JPRB,1.7796E-01_JPRB,2.1500E-01_JPRB,&
+ & 2.5201E-01_JPRB,2.8843E-01_JPRB,2.0497E+00_JPRB/)  
+KAO( :, 3,13, 7) = (/&
+ & 5.7372E-03_JPRB,5.6731E-02_JPRB,1.0419E-01_JPRB,1.4804E-01_JPRB,1.8846E-01_JPRB,2.2583E-01_JPRB,&
+ & 2.6228E-01_JPRB,2.9829E-01_JPRB,1.9105E+00_JPRB/)  
+KAO( :, 4,13, 7) = (/&
+ & 5.4187E-03_JPRB,6.0281E-02_JPRB,1.1054E-01_JPRB,1.5676E-01_JPRB,1.9913E-01_JPRB,2.3709E-01_JPRB,&
+ & 2.7280E-01_JPRB,3.0791E-01_JPRB,1.7905E+00_JPRB/)  
+KAO( :, 5,13, 7) = (/&
+ & 5.1412E-03_JPRB,6.3942E-02_JPRB,1.1702E-01_JPRB,1.6550E-01_JPRB,2.0967E-01_JPRB,2.4883E-01_JPRB,&
+ & 2.8378E-01_JPRB,3.1751E-01_JPRB,1.6855E+00_JPRB/)  
+KAO( :, 1, 1, 8) = (/&
+ & 8.0925E-02_JPRB,4.4695E-01_JPRB,8.0232E-01_JPRB,1.1226E+00_JPRB,1.4103E+00_JPRB,1.6623E+00_JPRB,&
+ & 1.8647E+00_JPRB,1.9976E+00_JPRB,1.3169E+01_JPRB/)  
+KAO( :, 2, 1, 8) = (/&
+ & 7.9475E-02_JPRB,4.6155E-01_JPRB,8.2577E-01_JPRB,1.1515E+00_JPRB,1.4434E+00_JPRB,1.6972E+00_JPRB,&
+ & 1.8967E+00_JPRB,2.0110E+00_JPRB,1.2516E+01_JPRB/)  
+KAO( :, 3, 1, 8) = (/&
+ & 7.9284E-02_JPRB,4.7585E-01_JPRB,8.4839E-01_JPRB,1.1813E+00_JPRB,1.4771E+00_JPRB,1.7315E+00_JPRB,&
+ & 1.9304E+00_JPRB,2.0281E+00_JPRB,1.1933E+01_JPRB/)  
+KAO( :, 4, 1, 8) = (/&
+ & 8.0560E-02_JPRB,4.9019E-01_JPRB,8.7148E-01_JPRB,1.2102E+00_JPRB,1.5100E+00_JPRB,1.7671E+00_JPRB,&
+ & 1.9624E+00_JPRB,2.0460E+00_JPRB,1.1433E+01_JPRB/)  
+KAO( :, 5, 1, 8) = (/&
+ & 8.3397E-02_JPRB,5.0455E-01_JPRB,8.9392E-01_JPRB,1.2384E+00_JPRB,1.5426E+00_JPRB,1.7995E+00_JPRB,&
+ & 1.9927E+00_JPRB,2.0655E+00_JPRB,1.1063E+01_JPRB/)  
+KAO( :, 1, 2, 8) = (/&
+ & 6.6575E-02_JPRB,4.3479E-01_JPRB,7.7702E-01_JPRB,1.0845E+00_JPRB,1.3608E+00_JPRB,1.6027E+00_JPRB,&
+ & 1.7979E+00_JPRB,1.9533E+00_JPRB,1.1027E+01_JPRB/)  
+KAO( :, 2, 2, 8) = (/&
+ & 6.4692E-02_JPRB,4.5045E-01_JPRB,8.0204E-01_JPRB,1.1153E+00_JPRB,1.3951E+00_JPRB,1.6384E+00_JPRB,&
+ & 1.8309E+00_JPRB,1.9634E+00_JPRB,1.0460E+01_JPRB/)  
+KAO( :, 3, 2, 8) = (/&
+ & 6.3712E-02_JPRB,4.6604E-01_JPRB,8.2695E-01_JPRB,1.1467E+00_JPRB,1.4311E+00_JPRB,1.6740E+00_JPRB,&
+ & 1.8639E+00_JPRB,1.9755E+00_JPRB,9.9574E+00_JPRB/)  
+KAO( :, 4, 2, 8) = (/&
+ & 6.3793E-02_JPRB,4.8171E-01_JPRB,8.5176E-01_JPRB,1.1782E+00_JPRB,1.4648E+00_JPRB,1.7096E+00_JPRB,&
+ & 1.8945E+00_JPRB,1.9900E+00_JPRB,9.5122E+00_JPRB/)  
+KAO( :, 5, 2, 8) = (/&
+ & 6.5076E-02_JPRB,4.9750E-01_JPRB,8.7656E-01_JPRB,1.2084E+00_JPRB,1.4992E+00_JPRB,1.7428E+00_JPRB,&
+ & 1.9259E+00_JPRB,2.0066E+00_JPRB,9.1382E+00_JPRB/)  
+KAO( :, 1, 3, 8) = (/&
+ & 5.5145E-02_JPRB,4.1677E-01_JPRB,7.4511E-01_JPRB,1.0407E+00_JPRB,1.3075E+00_JPRB,1.5427E+00_JPRB,&
+ & 1.7389E+00_JPRB,1.9204E+00_JPRB,9.3514E+00_JPRB/)  
+KAO( :, 2, 3, 8) = (/&
+ & 5.2833E-02_JPRB,4.3270E-01_JPRB,7.7006E-01_JPRB,1.0719E+00_JPRB,1.3419E+00_JPRB,1.5776E+00_JPRB,&
+ & 1.7672E+00_JPRB,1.9272E+00_JPRB,8.8440E+00_JPRB/)  
+KAO( :, 3, 3, 8) = (/&
+ & 5.1113E-02_JPRB,4.4882E-01_JPRB,7.9562E-01_JPRB,1.1025E+00_JPRB,1.3760E+00_JPRB,1.6125E+00_JPRB,&
+ & 1.7982E+00_JPRB,1.9366E+00_JPRB,8.3935E+00_JPRB/)  
+KAO( :, 4, 3, 8) = (/&
+ & 5.0028E-02_JPRB,4.6513E-01_JPRB,8.2062E-01_JPRB,1.1341E+00_JPRB,1.4094E+00_JPRB,1.6457E+00_JPRB,&
+ & 1.8296E+00_JPRB,1.9485E+00_JPRB,7.9906E+00_JPRB/)  
+KAO( :, 5, 3, 8) = (/&
+ & 4.9686E-02_JPRB,4.8163E-01_JPRB,8.4610E-01_JPRB,1.1641E+00_JPRB,1.4433E+00_JPRB,1.6796E+00_JPRB,&
+ & 1.8613E+00_JPRB,1.9622E+00_JPRB,7.6298E+00_JPRB/)  
+KAO( :, 1, 4, 8) = (/&
+ & 4.6588E-02_JPRB,3.9692E-01_JPRB,7.1203E-01_JPRB,9.9677E-01_JPRB,1.2538E+00_JPRB,1.4779E+00_JPRB,&
+ & 1.6775E+00_JPRB,1.8726E+00_JPRB,7.9787E+00_JPRB/)  
+KAO( :, 2, 4, 8) = (/&
+ & 4.4258E-02_JPRB,4.1229E-01_JPRB,7.3599E-01_JPRB,1.0269E+00_JPRB,1.2877E+00_JPRB,1.5133E+00_JPRB,&
+ & 1.7010E+00_JPRB,1.8766E+00_JPRB,7.5234E+00_JPRB/)  
+KAO( :, 3, 4, 8) = (/&
+ & 4.2368E-02_JPRB,4.2843E-01_JPRB,7.6079E-01_JPRB,1.0562E+00_JPRB,1.3204E+00_JPRB,1.5488E+00_JPRB,&
+ & 1.7282E+00_JPRB,1.8838E+00_JPRB,7.1193E+00_JPRB/)  
+KAO( :, 4, 4, 8) = (/&
+ & 4.0943E-02_JPRB,4.4462E-01_JPRB,7.8470E-01_JPRB,1.0862E+00_JPRB,1.3538E+00_JPRB,1.5826E+00_JPRB,&
+ & 1.7585E+00_JPRB,1.8945E+00_JPRB,6.7587E+00_JPRB/)  
+KAO( :, 5, 4, 8) = (/&
+ & 4.0040E-02_JPRB,4.6133E-01_JPRB,8.0984E-01_JPRB,1.1157E+00_JPRB,1.3860E+00_JPRB,1.6174E+00_JPRB,&
+ & 1.7900E+00_JPRB,1.9072E+00_JPRB,6.4359E+00_JPRB/)  
+KAO( :, 1, 5, 8) = (/&
+ & 3.9526E-02_JPRB,3.7682E-01_JPRB,6.7689E-01_JPRB,9.4443E-01_JPRB,1.1824E+00_JPRB,1.3941E+00_JPRB,&
+ & 1.5967E+00_JPRB,1.7951E+00_JPRB,6.8177E+00_JPRB/)  
+KAO( :, 2, 5, 8) = (/&
+ & 3.7399E-02_JPRB,3.9138E-01_JPRB,7.0025E-01_JPRB,9.7513E-01_JPRB,1.2184E+00_JPRB,1.4257E+00_JPRB,&
+ & 1.6138E+00_JPRB,1.7967E+00_JPRB,6.4101E+00_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB15:PART5',1,ZHOOK_HANDLE)
+END SUBROUTINE PART5
+
+
+SUBROUTINE PART6
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB15:PART6',0,ZHOOK_HANDLE)
+
+
+KAO( :, 3, 5, 8) = (/&
+ & 3.5621E-02_JPRB,4.0679E-01_JPRB,7.2414E-01_JPRB,1.0055E+00_JPRB,1.2524E+00_JPRB,1.4609E+00_JPRB,&
+ & 1.6366E+00_JPRB,1.8029E+00_JPRB,6.0506E+00_JPRB/)  
+KAO( :, 4, 5, 8) = (/&
+ & 3.4188E-02_JPRB,4.2215E-01_JPRB,7.4791E-01_JPRB,1.0353E+00_JPRB,1.2879E+00_JPRB,1.4982E+00_JPRB,&
+ & 1.6647E+00_JPRB,1.8130E+00_JPRB,5.7295E+00_JPRB/)  
+KAO( :, 5, 5, 8) = (/&
+ & 3.3152E-02_JPRB,4.3822E-01_JPRB,7.7182E-01_JPRB,1.0659E+00_JPRB,1.3217E+00_JPRB,1.5355E+00_JPRB,&
+ & 1.6945E+00_JPRB,1.8268E+00_JPRB,5.4423E+00_JPRB/)  
+KAO( :, 1, 6, 8) = (/&
+ & 3.3649E-02_JPRB,3.5246E-01_JPRB,6.2833E-01_JPRB,8.7232E-01_JPRB,1.0890E+00_JPRB,1.2936E+00_JPRB,&
+ & 1.4963E+00_JPRB,1.6916E+00_JPRB,5.8468E+00_JPRB/)  
+KAO( :, 2, 6, 8) = (/&
+ & 3.1717E-02_JPRB,3.6739E-01_JPRB,6.5289E-01_JPRB,9.0324E-01_JPRB,1.1228E+00_JPRB,1.3194E+00_JPRB,&
+ & 1.5082E+00_JPRB,1.6913E+00_JPRB,5.4809E+00_JPRB/)  
+KAO( :, 3, 6, 8) = (/&
+ & 3.0089E-02_JPRB,3.8258E-01_JPRB,6.7739E-01_JPRB,9.3533E-01_JPRB,1.1590E+00_JPRB,1.3502E+00_JPRB,&
+ & 1.5266E+00_JPRB,1.6967E+00_JPRB,5.1581E+00_JPRB/)  
+KAO( :, 4, 6, 8) = (/&
+ & 2.8750E-02_JPRB,3.9797E-01_JPRB,7.0274E-01_JPRB,9.6682E-01_JPRB,1.1958E+00_JPRB,1.3860E+00_JPRB,&
+ & 1.5502E+00_JPRB,1.7067E+00_JPRB,4.8739E+00_JPRB/)  
+KAO( :, 5, 6, 8) = (/&
+ & 2.7719E-02_JPRB,4.1340E-01_JPRB,7.2752E-01_JPRB,9.9958E-01_JPRB,1.2327E+00_JPRB,1.4235E+00_JPRB,&
+ & 1.5795E+00_JPRB,1.7225E+00_JPRB,4.6250E+00_JPRB/)  
+KAO( :, 1, 7, 8) = (/&
+ & 2.8686E-02_JPRB,3.2127E-01_JPRB,5.6887E-01_JPRB,7.8697E-01_JPRB,9.8824E-01_JPRB,1.1850E+00_JPRB,&
+ & 1.3805E+00_JPRB,1.5678E+00_JPRB,5.0771E+00_JPRB/)  
+KAO( :, 2, 7, 8) = (/&
+ & 2.6938E-02_JPRB,3.3637E-01_JPRB,5.9372E-01_JPRB,8.1756E-01_JPRB,1.0158E+00_JPRB,1.2031E+00_JPRB,&
+ & 1.3885E+00_JPRB,1.5659E+00_JPRB,4.7449E+00_JPRB/)  
+KAO( :, 3, 7, 8) = (/&
+ & 2.5461E-02_JPRB,3.5175E-01_JPRB,6.1823E-01_JPRB,8.4914E-01_JPRB,1.0491E+00_JPRB,1.2297E+00_JPRB,&
+ & 1.4035E+00_JPRB,1.5709E+00_JPRB,4.4560E+00_JPRB/)  
+KAO( :, 4, 7, 8) = (/&
+ & 2.4234E-02_JPRB,3.6782E-01_JPRB,6.4422E-01_JPRB,8.8204E-01_JPRB,1.0858E+00_JPRB,1.2613E+00_JPRB,&
+ & 1.4250E+00_JPRB,1.5825E+00_JPRB,4.2060E+00_JPRB/)  
+KAO( :, 5, 7, 8) = (/&
+ & 2.3263E-02_JPRB,3.8390E-01_JPRB,6.7021E-01_JPRB,9.1556E-01_JPRB,1.1251E+00_JPRB,1.2988E+00_JPRB,&
+ & 1.4532E+00_JPRB,1.6007E+00_JPRB,3.9900E+00_JPRB/)  
+KAO( :, 1, 8, 8) = (/&
+ & 2.4476E-02_JPRB,2.8592E-01_JPRB,5.0420E-01_JPRB,6.9822E-01_JPRB,8.8452E-01_JPRB,1.0702E+00_JPRB,&
+ & 1.2531E+00_JPRB,1.4283E+00_JPRB,4.5096E+00_JPRB/)  
+KAO( :, 2, 8, 8) = (/&
+ & 2.2902E-02_JPRB,3.0083E-01_JPRB,5.2768E-01_JPRB,7.2503E-01_JPRB,9.0657E-01_JPRB,1.0833E+00_JPRB,&
+ & 1.2584E+00_JPRB,1.4254E+00_JPRB,4.2037E+00_JPRB/)  
+KAO( :, 3, 8, 8) = (/&
+ & 2.1570E-02_JPRB,3.1592E-01_JPRB,5.5240E-01_JPRB,7.5563E-01_JPRB,9.3505E-01_JPRB,1.1044E+00_JPRB,&
+ & 1.2718E+00_JPRB,1.4312E+00_JPRB,3.9432E+00_JPRB/)  
+KAO( :, 4, 8, 8) = (/&
+ & 2.0460E-02_JPRB,3.3184E-01_JPRB,5.7760E-01_JPRB,7.8855E-01_JPRB,9.6959E-01_JPRB,1.1343E+00_JPRB,&
+ & 1.2935E+00_JPRB,1.4455E+00_JPRB,3.7209E+00_JPRB/)  
+KAO( :, 5, 8, 8) = (/&
+ & 1.9571E-02_JPRB,3.4825E-01_JPRB,6.0453E-01_JPRB,8.2286E-01_JPRB,1.0085E+00_JPRB,1.1703E+00_JPRB,&
+ & 1.3222E+00_JPRB,1.4674E+00_JPRB,3.5292E+00_JPRB/)  
+KAO( :, 1, 9, 8) = (/&
+ & 2.0914E-02_JPRB,2.4921E-01_JPRB,4.3781E-01_JPRB,6.1146E-01_JPRB,7.8268E-01_JPRB,9.5318E-01_JPRB,&
+ & 1.1204E+00_JPRB,1.2813E+00_JPRB,3.9890E+00_JPRB/)  
+KAO( :, 2, 9, 8) = (/&
+ & 1.9500E-02_JPRB,2.6300E-01_JPRB,4.5963E-01_JPRB,6.3281E-01_JPRB,7.9816E-01_JPRB,9.6251E-01_JPRB,&
+ & 1.1241E+00_JPRB,1.2781E+00_JPRB,3.7129E+00_JPRB/)  
+KAO( :, 3, 9, 8) = (/&
+ & 1.8305E-02_JPRB,2.7783E-01_JPRB,4.8302E-01_JPRB,6.5998E-01_JPRB,8.2260E-01_JPRB,9.8070E-01_JPRB,&
+ & 1.1371E+00_JPRB,1.2855E+00_JPRB,3.4817E+00_JPRB/)  
+KAO( :, 4, 9, 8) = (/&
+ & 1.7310E-02_JPRB,2.9315E-01_JPRB,5.0848E-01_JPRB,6.9210E-01_JPRB,8.5443E-01_JPRB,1.0078E+00_JPRB,&
+ & 1.1591E+00_JPRB,1.3024E+00_JPRB,3.2848E+00_JPRB/)  
+KAO( :, 5, 9, 8) = (/&
+ & 1.6510E-02_JPRB,3.0981E-01_JPRB,5.3550E-01_JPRB,7.2742E-01_JPRB,8.9223E-01_JPRB,1.0429E+00_JPRB,&
+ & 1.1888E+00_JPRB,1.3273E+00_JPRB,3.1158E+00_JPRB/)  
+KAO( :, 1,10, 8) = (/&
+ & 1.7793E-02_JPRB,2.1412E-01_JPRB,3.7675E-01_JPRB,5.3142E-01_JPRB,6.8591E-01_JPRB,8.3908E-01_JPRB,&
+ & 9.8911E-01_JPRB,1.1340E+00_JPRB,3.5109E+00_JPRB/)  
+KAO( :, 2,10, 8) = (/&
+ & 1.6546E-02_JPRB,2.2684E-01_JPRB,3.9518E-01_JPRB,5.4826E-01_JPRB,6.9777E-01_JPRB,8.4666E-01_JPRB,&
+ & 9.9261E-01_JPRB,1.1322E+00_JPRB,3.2650E+00_JPRB/)  
+KAO( :, 3,10, 8) = (/&
+ & 1.5496E-02_JPRB,2.4055E-01_JPRB,4.1757E-01_JPRB,5.7218E-01_JPRB,7.1874E-01_JPRB,8.6407E-01_JPRB,&
+ & 1.0067E+00_JPRB,1.1422E+00_JPRB,3.0604E+00_JPRB/)  
+KAO( :, 4,10, 8) = (/&
+ & 1.4625E-02_JPRB,2.5576E-01_JPRB,4.4224E-01_JPRB,6.0209E-01_JPRB,7.4840E-01_JPRB,8.9005E-01_JPRB,&
+ & 1.0298E+00_JPRB,1.1620E+00_JPRB,2.8873E+00_JPRB/)  
+KAO( :, 5,10, 8) = (/&
+ & 1.3927E-02_JPRB,2.7189E-01_JPRB,4.6913E-01_JPRB,6.3661E-01_JPRB,7.8430E-01_JPRB,9.2340E-01_JPRB,&
+ & 1.0602E+00_JPRB,1.1893E+00_JPRB,2.7412E+00_JPRB/)  
+KAO( :, 1,11, 8) = (/&
+ & 1.4634E-02_JPRB,1.8646E-01_JPRB,3.2761E-01_JPRB,4.6309E-01_JPRB,5.9849E-01_JPRB,7.3245E-01_JPRB,&
+ & 8.6367E-01_JPRB,9.9041E-01_JPRB,2.9771E+00_JPRB/)  
+KAO( :, 2,11, 8) = (/&
+ & 1.3624E-02_JPRB,1.9847E-01_JPRB,3.4526E-01_JPRB,4.8008E-01_JPRB,6.1254E-01_JPRB,7.4424E-01_JPRB,&
+ & 8.7321E-01_JPRB,9.9642E-01_JPRB,2.7768E+00_JPRB/)  
+KAO( :, 3,11, 8) = (/&
+ & 1.2781E-02_JPRB,2.1218E-01_JPRB,3.6739E-01_JPRB,5.0421E-01_JPRB,6.3507E-01_JPRB,7.6517E-01_JPRB,&
+ & 8.9263E-01_JPRB,1.0135E+00_JPRB,2.6101E+00_JPRB/)  
+KAO( :, 4,11, 8) = (/&
+ & 1.2094E-02_JPRB,2.2714E-01_JPRB,3.9240E-01_JPRB,5.3424E-01_JPRB,6.6566E-01_JPRB,7.9378E-01_JPRB,&
+ & 9.1970E-01_JPRB,1.0385E+00_JPRB,2.4710E+00_JPRB/)  
+KAO( :, 5,11, 8) = (/&
+ & 1.1565E-02_JPRB,2.4340E-01_JPRB,4.1903E-01_JPRB,5.6803E-01_JPRB,7.0132E-01_JPRB,8.2803E-01_JPRB,&
+ & 9.5252E-01_JPRB,1.0696E+00_JPRB,2.3570E+00_JPRB/)  
+KAO( :, 1,12, 8) = (/&
+ & 1.2066E-02_JPRB,1.6101E-01_JPRB,2.8340E-01_JPRB,4.0165E-01_JPRB,5.1974E-01_JPRB,6.3658E-01_JPRB,&
+ & 7.5093E-01_JPRB,8.6137E-01_JPRB,2.5621E+00_JPRB/)  
+KAO( :, 2,12, 8) = (/&
+ & 1.1251E-02_JPRB,1.7279E-01_JPRB,3.0073E-01_JPRB,4.1913E-01_JPRB,5.3610E-01_JPRB,6.5212E-01_JPRB,&
+ & 7.6558E-01_JPRB,8.7414E-01_JPRB,2.3949E+00_JPRB/)  
+KAO( :, 3,12, 8) = (/&
+ & 1.0577E-02_JPRB,1.8625E-01_JPRB,3.2218E-01_JPRB,4.4327E-01_JPRB,5.5974E-01_JPRB,6.7543E-01_JPRB,&
+ & 7.8860E-01_JPRB,8.9593E-01_JPRB,2.2565E+00_JPRB/)  
+KAO( :, 4,12, 8) = (/&
+ & 1.0040E-02_JPRB,2.0090E-01_JPRB,3.4668E-01_JPRB,4.7237E-01_JPRB,5.8984E-01_JPRB,7.0511E-01_JPRB,&
+ & 8.1812E-01_JPRB,9.2463E-01_JPRB,2.1449E+00_JPRB/)  
+KAO( :, 5,12, 8) = (/&
+ & 9.6497E-03_JPRB,2.1689E-01_JPRB,3.7279E-01_JPRB,5.0486E-01_JPRB,6.2430E-01_JPRB,7.3876E-01_JPRB,&
+ & 8.5101E-01_JPRB,9.5619E-01_JPRB,2.0655E+00_JPRB/)  
+KAO( :, 1,13, 8) = (/&
+ & 9.9585E-03_JPRB,1.3861E-01_JPRB,2.4453E-01_JPRB,3.4735E-01_JPRB,4.5003E-01_JPRB,5.5145E-01_JPRB,&
+ & 6.5075E-01_JPRB,7.4674E-01_JPRB,2.2898E+00_JPRB/)  
+KAO( :, 2,13, 8) = (/&
+ & 9.2992E-03_JPRB,1.5005E-01_JPRB,2.6138E-01_JPRB,3.6503E-01_JPRB,4.6776E-01_JPRB,5.6948E-01_JPRB,&
+ & 6.6893E-01_JPRB,7.6408E-01_JPRB,2.1410E+00_JPRB/)  
+KAO( :, 3,13, 8) = (/&
+ & 8.7626E-03_JPRB,1.6301E-01_JPRB,2.8187E-01_JPRB,3.8870E-01_JPRB,4.9199E-01_JPRB,5.9459E-01_JPRB,&
+ & 6.9480E-01_JPRB,7.8975E-01_JPRB,2.0213E+00_JPRB/)  
+KAO( :, 4,13, 8) = (/&
+ & 8.3523E-03_JPRB,1.7715E-01_JPRB,3.0539E-01_JPRB,4.1632E-01_JPRB,5.2068E-01_JPRB,6.2370E-01_JPRB,&
+ & 7.2425E-01_JPRB,8.1879E-01_JPRB,1.9340E+00_JPRB/)  
+KAO( :, 5,13, 8) = (/&
+ & 8.0561E-03_JPRB,1.9260E-01_JPRB,3.3012E-01_JPRB,4.4598E-01_JPRB,5.5239E-01_JPRB,6.5539E-01_JPRB,&
+ & 7.5612E-01_JPRB,8.5015E-01_JPRB,1.8746E+00_JPRB/)  
+KAO( :, 1, 1, 9) = (/&
+ & 1.4008E+00_JPRB,1.6014E+00_JPRB,2.0178E+00_JPRB,2.5290E+00_JPRB,3.0648E+00_JPRB,3.4883E+00_JPRB,&
+ & 3.8106E+00_JPRB,4.1078E+00_JPRB,1.3510E+01_JPRB/)  
+KAO( :, 2, 1, 9) = (/&
+ & 1.8642E+00_JPRB,1.9682E+00_JPRB,2.2869E+00_JPRB,2.7055E+00_JPRB,3.2045E+00_JPRB,3.6259E+00_JPRB,&
+ & 3.9148E+00_JPRB,4.1490E+00_JPRB,1.3219E+01_JPRB/)  
+KAO( :, 3, 1, 9) = (/&
+ & 2.4188E+00_JPRB,2.4150E+00_JPRB,2.6255E+00_JPRB,2.9382E+00_JPRB,3.3460E+00_JPRB,3.7645E+00_JPRB,&
+ & 4.0194E+00_JPRB,4.1942E+00_JPRB,1.3301E+01_JPRB/)  
+KAO( :, 4, 1, 9) = (/&
+ & 3.0606E+00_JPRB,2.9381E+00_JPRB,3.0294E+00_JPRB,3.2272E+00_JPRB,3.5230E+00_JPRB,3.8956E+00_JPRB,&
+ & 4.1275E+00_JPRB,4.2397E+00_JPRB,1.3766E+01_JPRB/)  
+KAO( :, 5, 1, 9) = (/&
+ & 3.7794E+00_JPRB,3.5290E+00_JPRB,3.4922E+00_JPRB,3.5653E+00_JPRB,3.7393E+00_JPRB,4.0279E+00_JPRB,&
+ & 4.2356E+00_JPRB,4.2849E+00_JPRB,1.4541E+01_JPRB/)  
+KAO( :, 1, 2, 9) = (/&
+ & 1.0743E+00_JPRB,1.4254E+00_JPRB,1.9959E+00_JPRB,2.6242E+00_JPRB,3.1478E+00_JPRB,3.5640E+00_JPRB,&
+ & 3.9315E+00_JPRB,4.2780E+00_JPRB,1.1246E+01_JPRB/)  
+KAO( :, 2, 2, 9) = (/&
+ & 1.4450E+00_JPRB,1.7077E+00_JPRB,2.1920E+00_JPRB,2.7731E+00_JPRB,3.3077E+00_JPRB,3.7068E+00_JPRB,&
+ & 4.0280E+00_JPRB,4.3205E+00_JPRB,1.0854E+01_JPRB/)  
+KAO( :, 3, 2, 9) = (/&
+ & 1.8935E+00_JPRB,2.0578E+00_JPRB,2.4461E+00_JPRB,2.9377E+00_JPRB,3.4636E+00_JPRB,3.8524E+00_JPRB,&
+ & 4.1310E+00_JPRB,4.3656E+00_JPRB,1.0696E+01_JPRB/)  
+KAO( :, 4, 2, 9) = (/&
+ & 2.4131E+00_JPRB,2.4697E+00_JPRB,2.7529E+00_JPRB,3.1439E+00_JPRB,3.6214E+00_JPRB,3.9997E+00_JPRB,&
+ & 4.2395E+00_JPRB,4.4100E+00_JPRB,1.0792E+01_JPRB/)  
+KAO( :, 5, 2, 9) = (/&
+ & 3.0060E+00_JPRB,2.9455E+00_JPRB,3.1147E+00_JPRB,3.3967E+00_JPRB,3.7810E+00_JPRB,4.1480E+00_JPRB,&
+ & 4.3467E+00_JPRB,4.4539E+00_JPRB,1.1120E+01_JPRB/)  
+KAO( :, 1, 3, 9) = (/&
+ & 7.6472E-01_JPRB,1.2830E+00_JPRB,2.0011E+00_JPRB,2.6221E+00_JPRB,3.1251E+00_JPRB,3.5689E+00_JPRB,&
+ & 3.9960E+00_JPRB,4.3904E+00_JPRB,9.5265E+00_JPRB/)  
+KAO( :, 2, 3, 9) = (/&
+ & 1.0454E+00_JPRB,1.4850E+00_JPRB,2.1444E+00_JPRB,2.7873E+00_JPRB,3.2876E+00_JPRB,3.7049E+00_JPRB,&
+ & 4.0848E+00_JPRB,4.4319E+00_JPRB,9.1222E+00_JPRB/)  
+KAO( :, 3, 3, 9) = (/&
+ & 1.3885E+00_JPRB,1.7405E+00_JPRB,2.3171E+00_JPRB,2.9536E+00_JPRB,3.4575E+00_JPRB,3.8474E+00_JPRB,&
+ & 4.1795E+00_JPRB,4.4739E+00_JPRB,8.8598E+00_JPRB/)  
+KAO( :, 4, 3, 9) = (/&
+ & 1.7962E+00_JPRB,2.0514E+00_JPRB,2.5375E+00_JPRB,3.1222E+00_JPRB,3.6306E+00_JPRB,3.9962E+00_JPRB,&
+ & 4.2785E+00_JPRB,4.5165E+00_JPRB,8.7328E+00_JPRB/)  
+KAO( :, 5, 3, 9) = (/&
+ & 2.2640E+00_JPRB,2.4140E+00_JPRB,2.8016E+00_JPRB,3.3001E+00_JPRB,3.8026E+00_JPRB,4.1450E+00_JPRB,&
+ & 4.3795E+00_JPRB,4.5585E+00_JPRB,8.7266E+00_JPRB/)  
+KAO( :, 1, 4, 9) = (/&
+ & 5.2796E-01_JPRB,1.2120E+00_JPRB,1.9543E+00_JPRB,2.5382E+00_JPRB,3.0533E+00_JPRB,3.5474E+00_JPRB,&
+ & 4.0298E+00_JPRB,4.4716E+00_JPRB,8.2598E+00_JPRB/)  
+KAO( :, 2, 4, 9) = (/&
+ & 7.3237E-01_JPRB,1.3475E+00_JPRB,2.1063E+00_JPRB,2.7052E+00_JPRB,3.2055E+00_JPRB,3.6631E+00_JPRB,&
+ & 4.1092E+00_JPRB,4.5092E+00_JPRB,7.9321E+00_JPRB/)  
+KAO( :, 3, 4, 9) = (/&
+ & 9.9035E-01_JPRB,1.5277E+00_JPRB,2.2632E+00_JPRB,2.8812E+00_JPRB,3.3695E+00_JPRB,3.7914E+00_JPRB,&
+ & 4.1936E+00_JPRB,4.5489E+00_JPRB,7.6815E+00_JPRB/)  
+KAO( :, 4, 4, 9) = (/&
+ & 1.3002E+00_JPRB,1.7521E+00_JPRB,2.4291E+00_JPRB,3.0611E+00_JPRB,3.5379E+00_JPRB,3.9283E+00_JPRB,&
+ & 4.2814E+00_JPRB,4.5884E+00_JPRB,7.5173E+00_JPRB/)  
+KAO( :, 5, 4, 9) = (/&
+ & 1.6645E+00_JPRB,2.0223E+00_JPRB,2.6149E+00_JPRB,3.2452E+00_JPRB,3.7109E+00_JPRB,4.0687E+00_JPRB,&
+ & 4.3710E+00_JPRB,4.6264E+00_JPRB,7.4184E+00_JPRB/)  
+KAO( :, 1, 5, 9) = (/&
+ & 3.6057E-01_JPRB,1.1636E+00_JPRB,1.8513E+00_JPRB,2.4342E+00_JPRB,2.9866E+00_JPRB,3.5323E+00_JPRB,&
+ & 4.0567E+00_JPRB,4.5370E+00_JPRB,7.4568E+00_JPRB/)  
+KAO( :, 2, 5, 9) = (/&
+ & 5.0709E-01_JPRB,1.2813E+00_JPRB,2.0048E+00_JPRB,2.5857E+00_JPRB,3.1141E+00_JPRB,3.6303E+00_JPRB,&
+ & 4.1258E+00_JPRB,4.5699E+00_JPRB,7.1852E+00_JPRB/)  
+KAO( :, 3, 5, 9) = (/&
+ & 6.9711E-01_JPRB,1.4088E+00_JPRB,2.1674E+00_JPRB,2.7491E+00_JPRB,3.2569E+00_JPRB,3.7377E+00_JPRB,&
+ & 4.1985E+00_JPRB,4.6043E+00_JPRB,6.9783E+00_JPRB/)  
+KAO( :, 4, 5, 9) = (/&
+ & 9.3089E-01_JPRB,1.5674E+00_JPRB,2.3376E+00_JPRB,2.9224E+00_JPRB,3.4095E+00_JPRB,3.8525E+00_JPRB,&
+ & 4.2748E+00_JPRB,4.6380E+00_JPRB,6.8324E+00_JPRB/)  
+KAO( :, 5, 5, 9) = (/&
+ & 1.2095E+00_JPRB,1.7631E+00_JPRB,2.5127E+00_JPRB,3.1011E+00_JPRB,3.5697E+00_JPRB,3.9735E+00_JPRB,&
+ & 4.3536E+00_JPRB,4.6710E+00_JPRB,6.7237E+00_JPRB/)  
+KAO( :, 1, 6, 9) = (/&
+ & 2.4200E-01_JPRB,1.0838E+00_JPRB,1.7394E+00_JPRB,2.3387E+00_JPRB,2.9299E+00_JPRB,3.5073E+00_JPRB,&
+ & 4.0603E+00_JPRB,4.5751E+00_JPRB,6.9990E+00_JPRB/)  
+KAO( :, 2, 6, 9) = (/&
+ & 3.4394E-01_JPRB,1.1999E+00_JPRB,1.8760E+00_JPRB,2.4663E+00_JPRB,3.0343E+00_JPRB,3.5897E+00_JPRB,&
+ & 4.1192E+00_JPRB,4.6007E+00_JPRB,6.7915E+00_JPRB/)  
+KAO( :, 3, 6, 9) = (/&
+ & 4.8030E-01_JPRB,1.3232E+00_JPRB,2.0255E+00_JPRB,2.6081E+00_JPRB,3.1512E+00_JPRB,3.6810E+00_JPRB,&
+ & 4.1825E+00_JPRB,4.6279E+00_JPRB,6.6211E+00_JPRB/)  
+KAO( :, 4, 6, 9) = (/&
+ & 6.5272E-01_JPRB,1.4558E+00_JPRB,2.1847E+00_JPRB,2.7631E+00_JPRB,3.2807E+00_JPRB,3.7792E+00_JPRB,&
+ & 4.2485E+00_JPRB,4.6560E+00_JPRB,6.4814E+00_JPRB/)  
+KAO( :, 5, 6, 9) = (/&
+ & 8.6213E-01_JPRB,1.5990E+00_JPRB,2.3528E+00_JPRB,2.9249E+00_JPRB,3.4200E+00_JPRB,3.8827E+00_JPRB,&
+ & 4.3177E+00_JPRB,4.6844E+00_JPRB,6.3643E+00_JPRB/)  
+KAO( :, 1, 7, 9) = (/&
+ & 1.6234E-01_JPRB,9.9163E-01_JPRB,1.6372E+00_JPRB,2.2588E+00_JPRB,2.8704E+00_JPRB,3.4657E+00_JPRB,&
+ & 4.0381E+00_JPRB,4.5791E+00_JPRB,6.7312E+00_JPRB/)  
+KAO( :, 2, 7, 9) = (/&
+ & 2.3147E-01_JPRB,1.0981E+00_JPRB,1.7520E+00_JPRB,2.3595E+00_JPRB,2.9563E+00_JPRB,3.5352E+00_JPRB,&
+ & 4.0869E+00_JPRB,4.5966E+00_JPRB,6.5680E+00_JPRB/)  
+KAO( :, 3, 7, 9) = (/&
+ & 3.2772E-01_JPRB,1.2156E+00_JPRB,1.8829E+00_JPRB,2.4770E+00_JPRB,3.0534E+00_JPRB,3.6116E+00_JPRB,&
+ & 4.1400E+00_JPRB,4.6166E+00_JPRB,6.4257E+00_JPRB/)  
+KAO( :, 4, 7, 9) = (/&
+ & 4.5268E-01_JPRB,1.3423E+00_JPRB,2.0240E+00_JPRB,2.6084E+00_JPRB,3.1603E+00_JPRB,3.6950E+00_JPRB,&
+ & 4.1975E+00_JPRB,4.6391E+00_JPRB,6.2960E+00_JPRB/)  
+KAO( :, 5, 7, 9) = (/&
+ & 6.0838E-01_JPRB,1.4784E+00_JPRB,2.1759E+00_JPRB,2.7497E+00_JPRB,3.2763E+00_JPRB,3.7840E+00_JPRB,&
+ & 4.2569E+00_JPRB,4.6620E+00_JPRB,6.1756E+00_JPRB/)  
+KAO( :, 1, 8, 9) = (/&
+ & 1.1004E-01_JPRB,9.0528E-01_JPRB,1.5488E+00_JPRB,2.1828E+00_JPRB,2.8043E+00_JPRB,3.4087E+00_JPRB,&
+ & 3.9936E+00_JPRB,4.5522E+00_JPRB,6.5679E+00_JPRB/)  
+KAO( :, 2, 8, 9) = (/&
+ & 1.5599E-01_JPRB,9.9632E-01_JPRB,1.6406E+00_JPRB,2.2628E+00_JPRB,2.8729E+00_JPRB,3.4645E+00_JPRB,&
+ & 4.0312E+00_JPRB,4.5616E+00_JPRB,6.4237E+00_JPRB/)  
+KAO( :, 3, 8, 9) = (/&
+ & 2.2275E-01_JPRB,1.1002E+00_JPRB,1.7485E+00_JPRB,2.3565E+00_JPRB,2.9517E+00_JPRB,3.5270E+00_JPRB,&
+ & 4.0737E+00_JPRB,4.5749E+00_JPRB,6.2919E+00_JPRB/)  
+KAO( :, 4, 8, 9) = (/&
+ & 3.1235E-01_JPRB,1.2144E+00_JPRB,1.8706E+00_JPRB,2.4635E+00_JPRB,3.0405E+00_JPRB,3.5959E+00_JPRB,&
+ & 4.1201E+00_JPRB,4.5903E+00_JPRB,6.1693E+00_JPRB/)  
+KAO( :, 5, 8, 9) = (/&
+ & 4.2664E-01_JPRB,1.3386E+00_JPRB,2.0030E+00_JPRB,2.5834E+00_JPRB,3.1377E+00_JPRB,3.6706E+00_JPRB,&
+ & 4.1692E+00_JPRB,4.6062E+00_JPRB,6.0528E+00_JPRB/)  
+KAO( :, 1, 9, 9) = (/&
+ & 7.5621E-02_JPRB,8.2912E-01_JPRB,1.4726E+00_JPRB,2.1058E+00_JPRB,2.7258E+00_JPRB,3.3321E+00_JPRB,&
+ & 3.9225E+00_JPRB,4.4919E+00_JPRB,6.3820E+00_JPRB/)  
+KAO( :, 2, 9, 9) = (/&
+ & 1.0543E-01_JPRB,9.0364E-01_JPRB,1.5428E+00_JPRB,2.1689E+00_JPRB,2.7807E+00_JPRB,3.3755E+00_JPRB,&
+ & 3.9494E+00_JPRB,4.4934E+00_JPRB,6.2476E+00_JPRB/)  
+KAO( :, 3, 9, 9) = (/&
+ & 1.5066E-01_JPRB,9.9073E-01_JPRB,1.6283E+00_JPRB,2.2439E+00_JPRB,2.8447E+00_JPRB,3.4264E+00_JPRB,&
+ & 3.9821E+00_JPRB,4.4994E+00_JPRB,6.1231E+00_JPRB/)  
+KAO( :, 4, 9, 9) = (/&
+ & 2.1408E-01_JPRB,1.0896E+00_JPRB,1.7277E+00_JPRB,2.3302E+00_JPRB,2.9173E+00_JPRB,3.4831E+00_JPRB,&
+ & 4.0188E+00_JPRB,4.5079E+00_JPRB,6.0062E+00_JPRB/)  
+KAO( :, 5, 9, 9) = (/&
+ & 2.9679E-01_JPRB,1.1980E+00_JPRB,1.8391E+00_JPRB,2.4267E+00_JPRB,2.9974E+00_JPRB,3.5447E+00_JPRB,&
+ & 4.0590E+00_JPRB,4.5182E+00_JPRB,5.8937E+00_JPRB/)  
+KAO( :, 1,10, 9) = (/&
+ & 5.4240E-02_JPRB,7.6886E-01_JPRB,1.4043E+00_JPRB,2.0272E+00_JPRB,2.6366E+00_JPRB,3.2336E+00_JPRB,&
+ & 3.8172E+00_JPRB,4.3834E+00_JPRB,6.1517E+00_JPRB/)  
+KAO( :, 2,10, 9) = (/&
+ & 7.3880E-02_JPRB,8.2766E-01_JPRB,1.4592E+00_JPRB,2.0774E+00_JPRB,2.6804E+00_JPRB,3.2668E+00_JPRB,&
+ & 3.8346E+00_JPRB,4.3761E+00_JPRB,6.0252E+00_JPRB/)  
+KAO( :, 3,10, 9) = (/&
+ & 1.0494E-01_JPRB,8.9945E-01_JPRB,1.5264E+00_JPRB,2.1379E+00_JPRB,2.7325E+00_JPRB,3.3074E+00_JPRB,&
+ & 3.8583E+00_JPRB,4.3744E+00_JPRB,5.9074E+00_JPRB/)  
+KAO( :, 4,10, 9) = (/&
+ & 1.5013E-01_JPRB,9.8203E-01_JPRB,1.6069E+00_JPRB,2.2084E+00_JPRB,2.7922E+00_JPRB,3.3540E+00_JPRB,&
+ & 3.8866E+00_JPRB,4.3763E+00_JPRB,5.7958E+00_JPRB/)  
+KAO( :, 5,10, 9) = (/&
+ & 2.1071E-01_JPRB,1.0751E+00_JPRB,1.6988E+00_JPRB,2.2877E+00_JPRB,2.8591E+00_JPRB,3.4064E+00_JPRB,&
+ & 3.9198E+00_JPRB,4.3819E+00_JPRB,5.6875E+00_JPRB/)  
+KAO( :, 1,11, 9) = (/&
+ & 4.4683E-02_JPRB,7.3372E-01_JPRB,1.3451E+00_JPRB,1.9417E+00_JPRB,2.5248E+00_JPRB,3.0962E+00_JPRB,&
+ & 3.6538E+00_JPRB,4.1928E+00_JPRB,5.8131E+00_JPRB/)  
+KAO( :, 2,11, 9) = (/&
+ & 6.0954E-02_JPRB,7.8585E-01_JPRB,1.3950E+00_JPRB,1.9873E+00_JPRB,2.5636E+00_JPRB,3.1235E+00_JPRB,&
+ & 3.6649E+00_JPRB,4.1802E+00_JPRB,5.6980E+00_JPRB/)  
+KAO( :, 3,11, 9) = (/&
+ & 8.6688E-02_JPRB,8.4834E-01_JPRB,1.4554E+00_JPRB,2.0422E+00_JPRB,2.6105E+00_JPRB,3.1582E+00_JPRB,&
+ & 3.6827E+00_JPRB,4.1732E+00_JPRB,5.5896E+00_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB15:PART6',1,ZHOOK_HANDLE)
+END SUBROUTINE PART6
+
+
+SUBROUTINE PART7
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB15:PART7',0,ZHOOK_HANDLE)
+
+
+KAO( :, 4,11, 9) = (/&
+ & 1.2398E-01_JPRB,9.2090E-01_JPRB,1.5262E+00_JPRB,2.1063E+00_JPRB,2.6652E+00_JPRB,3.2007E+00_JPRB,&
+ & 3.7079E+00_JPRB,4.1732E+00_JPRB,5.4857E+00_JPRB/)  
+KAO( :, 5,11, 9) = (/&
+ & 1.7398E-01_JPRB,1.0025E+00_JPRB,1.6073E+00_JPRB,2.1784E+00_JPRB,2.7274E+00_JPRB,3.2503E+00_JPRB,&
+ & 3.7400E+00_JPRB,4.1797E+00_JPRB,5.3881E+00_JPRB/)  
+KAO( :, 1,12, 9) = (/&
+ & 3.6885E-02_JPRB,6.8826E-01_JPRB,1.2637E+00_JPRB,1.8240E+00_JPRB,2.3716E+00_JPRB,2.9070E+00_JPRB,&
+ & 3.4294E+00_JPRB,3.9342E+00_JPRB,5.4594E+00_JPRB/)  
+KAO( :, 2,12, 9) = (/&
+ & 5.0362E-02_JPRB,7.3520E-01_JPRB,1.3086E+00_JPRB,1.8646E+00_JPRB,2.4044E+00_JPRB,2.9285E+00_JPRB,&
+ & 3.4352E+00_JPRB,3.9171E+00_JPRB,5.3534E+00_JPRB/)  
+KAO( :, 3,12, 9) = (/&
+ & 7.1651E-02_JPRB,7.9173E-01_JPRB,1.3635E+00_JPRB,1.9144E+00_JPRB,2.4467E+00_JPRB,2.9595E+00_JPRB,&
+ & 3.4502E+00_JPRB,3.9090E+00_JPRB,5.2531E+00_JPRB/)  
+KAO( :, 4,12, 9) = (/&
+ & 1.0249E-01_JPRB,8.5728E-01_JPRB,1.4282E+00_JPRB,1.9738E+00_JPRB,2.4980E+00_JPRB,2.9998E+00_JPRB,&
+ & 3.4748E+00_JPRB,3.9108E+00_JPRB,5.1595E+00_JPRB/)  
+KAO( :, 5,12, 9) = (/&
+ & 1.4372E-01_JPRB,9.2980E-01_JPRB,1.5022E+00_JPRB,2.0418E+00_JPRB,2.5591E+00_JPRB,3.0515E+00_JPRB,&
+ & 3.5127E+00_JPRB,3.9276E+00_JPRB,5.0750E+00_JPRB/)  
+KAO( :, 1,13, 9) = (/&
+ & 3.0491E-02_JPRB,6.3441E-01_JPRB,1.1660E+00_JPRB,1.6828E+00_JPRB,2.1872E+00_JPRB,2.6805E+00_JPRB,&
+ & 3.1616E+00_JPRB,3.6254E+00_JPRB,5.1279E+00_JPRB/)  
+KAO( :, 2,13, 9) = (/&
+ & 4.1640E-02_JPRB,6.7602E-01_JPRB,1.2060E+00_JPRB,1.7186E+00_JPRB,2.2159E+00_JPRB,2.6988E+00_JPRB,&
+ & 3.1653E+00_JPRB,3.6082E+00_JPRB,5.0296E+00_JPRB/)  
+KAO( :, 3,13, 9) = (/&
+ & 5.9248E-02_JPRB,7.2677E-01_JPRB,1.2558E+00_JPRB,1.7643E+00_JPRB,2.2553E+00_JPRB,2.7282E+00_JPRB,&
+ & 3.1808E+00_JPRB,3.6035E+00_JPRB,4.9390E+00_JPRB/)  
+KAO( :, 4,13, 9) = (/&
+ & 8.4663E-02_JPRB,7.8595E-01_JPRB,1.3152E+00_JPRB,1.8213E+00_JPRB,2.3074E+00_JPRB,2.7724E+00_JPRB,&
+ & 3.2128E+00_JPRB,3.6169E+00_JPRB,4.8589E+00_JPRB/)  
+KAO( :, 5,13, 9) = (/&
+ & 1.1865E-01_JPRB,8.5205E-01_JPRB,1.3845E+00_JPRB,1.8890E+00_JPRB,2.3711E+00_JPRB,2.8293E+00_JPRB,&
+ & 3.2586E+00_JPRB,3.6454E+00_JPRB,4.7958E+00_JPRB/)  
+KAO( :, 1, 1,10) = (/&
+ & 8.3046E+00_JPRB,7.2666E+00_JPRB,6.2285E+00_JPRB,5.1904E+00_JPRB,4.7329E+00_JPRB,5.2261E+00_JPRB,&
+ & 5.7808E+00_JPRB,6.3145E+00_JPRB,1.5403E+01_JPRB/)  
+KAO( :, 2, 1,10) = (/&
+ & 1.0500E+01_JPRB,9.1879E+00_JPRB,7.8753E+00_JPRB,6.5628E+00_JPRB,5.3429E+00_JPRB,5.4501E+00_JPRB,&
+ & 5.9313E+00_JPRB,6.4007E+00_JPRB,1.7452E+01_JPRB/)  
+KAO( :, 3, 1,10) = (/&
+ & 1.2866E+01_JPRB,1.1258E+01_JPRB,9.6496E+00_JPRB,8.0413E+00_JPRB,6.4330E+00_JPRB,5.7014E+00_JPRB,&
+ & 6.0980E+00_JPRB,6.4718E+00_JPRB,1.9513E+01_JPRB/)  
+KAO( :, 4, 1,10) = (/&
+ & 1.5392E+01_JPRB,1.3468E+01_JPRB,1.1544E+01_JPRB,9.6199E+00_JPRB,7.6959E+00_JPRB,6.1009E+00_JPRB,&
+ & 6.2722E+00_JPRB,6.5575E+00_JPRB,2.1715E+01_JPRB/)  
+KAO( :, 5, 1,10) = (/&
+ & 1.8056E+01_JPRB,1.5799E+01_JPRB,1.3542E+01_JPRB,1.1285E+01_JPRB,9.0279E+00_JPRB,6.8103E+00_JPRB,&
+ & 6.4441E+00_JPRB,6.6397E+00_JPRB,2.3850E+01_JPRB/)  
+KAO( :, 1, 2,10) = (/&
+ & 6.4947E+00_JPRB,5.6829E+00_JPRB,4.8711E+00_JPRB,4.3890E+00_JPRB,5.0074E+00_JPRB,5.7366E+00_JPRB,&
+ & 6.4315E+00_JPRB,7.0725E+00_JPRB,1.2054E+01_JPRB/)  
+KAO( :, 2, 2,10) = (/&
+ & 8.3011E+00_JPRB,7.2634E+00_JPRB,6.2258E+00_JPRB,5.2050E+00_JPRB,5.2909E+00_JPRB,5.9522E+00_JPRB,&
+ & 6.5881E+00_JPRB,7.1588E+00_JPRB,1.2666E+01_JPRB/)  
+KAO( :, 3, 2,10) = (/&
+ & 1.0256E+01_JPRB,8.9740E+00_JPRB,7.6920E+00_JPRB,6.4100E+00_JPRB,5.6644E+00_JPRB,6.1894E+00_JPRB,&
+ & 6.7625E+00_JPRB,7.2404E+00_JPRB,1.3682E+01_JPRB/)  
+KAO( :, 4, 2,10) = (/&
+ & 1.2397E+01_JPRB,1.0847E+01_JPRB,9.2971E+00_JPRB,7.7479E+00_JPRB,6.3118E+00_JPRB,6.4388E+00_JPRB,&
+ & 6.9414E+00_JPRB,7.3378E+00_JPRB,1.5028E+01_JPRB/)  
+KAO( :, 5, 2,10) = (/&
+ & 1.4660E+01_JPRB,1.2828E+01_JPRB,1.0995E+01_JPRB,9.1626E+00_JPRB,7.3301E+00_JPRB,6.6905E+00_JPRB,&
+ & 7.1124E+00_JPRB,7.4264E+00_JPRB,1.6436E+01_JPRB/)  
+KAO( :, 1, 3,10) = (/&
+ & 4.7461E+00_JPRB,4.1529E+00_JPRB,3.7000E+00_JPRB,4.4615E+00_JPRB,5.3639E+00_JPRB,6.2356E+00_JPRB,&
+ & 7.0823E+00_JPRB,7.8222E+00_JPRB,1.0768E+01_JPRB/)  
+KAO( :, 2, 3,10) = (/&
+ & 6.1674E+00_JPRB,5.3965E+00_JPRB,4.6255E+00_JPRB,4.7868E+00_JPRB,5.6404E+00_JPRB,6.4644E+00_JPRB,&
+ & 7.2578E+00_JPRB,7.9155E+00_JPRB,1.1012E+01_JPRB/)  
+KAO( :, 3, 3,10) = (/&
+ & 7.7651E+00_JPRB,6.7945E+00_JPRB,5.8238E+00_JPRB,5.2211E+00_JPRB,5.9299E+00_JPRB,6.7104E+00_JPRB,&
+ & 7.4369E+00_JPRB,8.0208E+00_JPRB,1.1349E+01_JPRB/)  
+KAO( :, 4, 3,10) = (/&
+ & 9.5128E+00_JPRB,8.3237E+00_JPRB,7.1346E+00_JPRB,5.9977E+00_JPRB,6.2294E+00_JPRB,6.9597E+00_JPRB,&
+ & 7.6063E+00_JPRB,8.1225E+00_JPRB,1.1679E+01_JPRB/)  
+KAO( :, 5, 3,10) = (/&
+ & 1.1390E+01_JPRB,9.9664E+00_JPRB,8.5426E+00_JPRB,7.1189E+00_JPRB,6.5507E+00_JPRB,7.2016E+00_JPRB,&
+ & 7.7732E+00_JPRB,8.2118E+00_JPRB,1.2040E+01_JPRB/)  
+KAO( :, 1, 4,10) = (/&
+ & 3.3503E+00_JPRB,2.9315E+00_JPRB,3.5683E+00_JPRB,4.6667E+00_JPRB,5.7273E+00_JPRB,6.7580E+00_JPRB,&
+ & 7.7198E+00_JPRB,8.5710E+00_JPRB,1.0440E+01_JPRB/)  
+KAO( :, 2, 4,10) = (/&
+ & 4.4561E+00_JPRB,3.8991E+00_JPRB,3.9300E+00_JPRB,4.9622E+00_JPRB,5.9939E+00_JPRB,6.9871E+00_JPRB,&
+ & 7.8925E+00_JPRB,8.6774E+00_JPRB,1.0521E+01_JPRB/)  
+KAO( :, 3, 4,10) = (/&
+ & 5.7189E+00_JPRB,5.0041E+00_JPRB,4.4573E+00_JPRB,5.2834E+00_JPRB,6.2798E+00_JPRB,7.2167E+00_JPRB,&
+ & 8.0686E+00_JPRB,8.7808E+00_JPRB,1.0645E+01_JPRB/)  
+KAO( :, 4, 4,10) = (/&
+ & 7.1243E+00_JPRB,6.2338E+00_JPRB,5.3456E+00_JPRB,5.6334E+00_JPRB,6.5793E+00_JPRB,7.4542E+00_JPRB,&
+ & 8.2512E+00_JPRB,8.8783E+00_JPRB,1.0735E+01_JPRB/)  
+KAO( :, 5, 4,10) = (/&
+ & 8.6595E+00_JPRB,7.5770E+00_JPRB,6.4946E+00_JPRB,6.0192E+00_JPRB,6.8955E+00_JPRB,7.7038E+00_JPRB,&
+ & 8.4443E+00_JPRB,8.9879E+00_JPRB,1.0819E+01_JPRB/)  
+KAO( :, 1, 5,10) = (/&
+ & 2.3228E+00_JPRB,2.3763E+00_JPRB,3.6372E+00_JPRB,4.8666E+00_JPRB,6.0758E+00_JPRB,7.2202E+00_JPRB,&
+ & 8.2887E+00_JPRB,9.2790E+00_JPRB,1.1044E+01_JPRB/)  
+KAO( :, 2, 5,10) = (/&
+ & 3.1750E+00_JPRB,2.8335E+00_JPRB,3.9429E+00_JPRB,5.1625E+00_JPRB,6.3325E+00_JPRB,7.4495E+00_JPRB,&
+ & 8.4649E+00_JPRB,9.3795E+00_JPRB,1.0992E+01_JPRB/)  
+KAO( :, 3, 5,10) = (/&
+ & 4.1502E+00_JPRB,3.6314E+00_JPRB,4.2777E+00_JPRB,5.4822E+00_JPRB,6.6129E+00_JPRB,7.6864E+00_JPRB,&
+ & 8.6584E+00_JPRB,9.4768E+00_JPRB,1.0934E+01_JPRB/)  
+KAO( :, 4, 5,10) = (/&
+ & 5.2710E+00_JPRB,4.6121E+00_JPRB,4.6433E+00_JPRB,5.8225E+00_JPRB,6.9099E+00_JPRB,7.9434E+00_JPRB,&
+ & 8.8623E+00_JPRB,9.5919E+00_JPRB,1.0860E+01_JPRB/)  
+KAO( :, 5, 5,10) = (/&
+ & 6.4981E+00_JPRB,5.6859E+00_JPRB,5.1116E+00_JPRB,6.1710E+00_JPRB,7.2254E+00_JPRB,8.2046E+00_JPRB,&
+ & 9.0650E+00_JPRB,9.7138E+00_JPRB,1.0789E+01_JPRB/)  
+KAO( :, 1, 6,10) = (/&
+ & 1.5637E+00_JPRB,2.2731E+00_JPRB,3.6873E+00_JPRB,5.0614E+00_JPRB,6.3700E+00_JPRB,7.6047E+00_JPRB,&
+ & 8.7790E+00_JPRB,9.8692E+00_JPRB,1.1665E+01_JPRB/)  
+KAO( :, 2, 6,10) = (/&
+ & 2.2000E+00_JPRB,2.5584E+00_JPRB,3.9755E+00_JPRB,5.3314E+00_JPRB,6.6268E+00_JPRB,7.8407E+00_JPRB,&
+ & 8.9633E+00_JPRB,9.9641E+00_JPRB,1.1590E+01_JPRB/)  
+KAO( :, 3, 6,10) = (/&
+ & 2.9496E+00_JPRB,2.8996E+00_JPRB,4.2934E+00_JPRB,5.6265E+00_JPRB,6.9043E+00_JPRB,8.0863E+00_JPRB,&
+ & 9.1639E+00_JPRB,1.0078E+01_JPRB,1.1504E+01_JPRB/)  
+KAO( :, 4, 6,10) = (/&
+ & 3.8153E+00_JPRB,3.4040E+00_JPRB,4.6361E+00_JPRB,5.9468E+00_JPRB,7.1994E+00_JPRB,8.3443E+00_JPRB,&
+ & 9.3743E+00_JPRB,1.0202E+01_JPRB,1.1405E+01_JPRB/)  
+KAO( :, 5, 6,10) = (/&
+ & 4.7923E+00_JPRB,4.1932E+00_JPRB,5.0029E+00_JPRB,6.2942E+00_JPRB,7.4973E+00_JPRB,8.6152E+00_JPRB,&
+ & 9.5722E+00_JPRB,1.0324E+01_JPRB,1.1282E+01_JPRB/)  
+KAO( :, 1, 7,10) = (/&
+ & 1.0319E+00_JPRB,2.2030E+00_JPRB,3.7189E+00_JPRB,5.1722E+00_JPRB,6.5639E+00_JPRB,7.8914E+00_JPRB,&
+ & 9.1498E+00_JPRB,1.0323E+01_JPRB,1.2175E+01_JPRB/)  
+KAO( :, 2, 7,10) = (/&
+ & 1.5011E+00_JPRB,2.4558E+00_JPRB,3.9785E+00_JPRB,5.4357E+00_JPRB,6.8145E+00_JPRB,8.1167E+00_JPRB,&
+ & 9.3258E+00_JPRB,1.0416E+01_JPRB,1.2083E+01_JPRB/)  
+KAO( :, 3, 7,10) = (/&
+ & 2.0652E+00_JPRB,2.7433E+00_JPRB,4.2735E+00_JPRB,5.7267E+00_JPRB,7.0874E+00_JPRB,8.3608E+00_JPRB,&
+ & 9.5223E+00_JPRB,1.0531E+01_JPRB,1.1978E+01_JPRB/)  
+KAO( :, 4, 7,10) = (/&
+ & 2.7290E+00_JPRB,3.0650E+00_JPRB,4.6079E+00_JPRB,6.0349E+00_JPRB,7.3838E+00_JPRB,8.6181E+00_JPRB,&
+ & 9.7231E+00_JPRB,1.0649E+01_JPRB,1.1858E+01_JPRB/)  
+KAO( :, 5, 7,10) = (/&
+ & 3.4888E+00_JPRB,3.4187E+00_JPRB,4.9649E+00_JPRB,6.3686E+00_JPRB,7.6906E+00_JPRB,8.8849E+00_JPRB,&
+ & 9.9240E+00_JPRB,1.0751E+01_JPRB,1.1715E+01_JPRB/)  
+KAO( :, 1, 8,10) = (/&
+ & 6.7247E-01_JPRB,2.1299E+00_JPRB,3.7166E+00_JPRB,5.2113E+00_JPRB,6.6383E+00_JPRB,8.0164E+00_JPRB,&
+ & 9.3365E+00_JPRB,1.0603E+01_JPRB,1.2480E+01_JPRB/)  
+KAO( :, 2, 8,10) = (/&
+ & 1.0116E+00_JPRB,2.3605E+00_JPRB,3.9609E+00_JPRB,5.4626E+00_JPRB,6.8806E+00_JPRB,8.2311E+00_JPRB,&
+ & 9.5015E+00_JPRB,1.0678E+01_JPRB,1.2368E+01_JPRB/)  
+KAO( :, 3, 8,10) = (/&
+ & 1.4308E+00_JPRB,2.6245E+00_JPRB,4.2324E+00_JPRB,5.7459E+00_JPRB,7.1525E+00_JPRB,8.4713E+00_JPRB,&
+ & 9.6847E+00_JPRB,1.0770E+01_JPRB,1.2245E+01_JPRB/)  
+KAO( :, 4, 8,10) = (/&
+ & 1.9350E+00_JPRB,2.9206E+00_JPRB,4.5353E+00_JPRB,6.0493E+00_JPRB,7.4438E+00_JPRB,8.7255E+00_JPRB,&
+ & 9.8811E+00_JPRB,1.0861E+01_JPRB,1.2099E+01_JPRB/)  
+KAO( :, 5, 8,10) = (/&
+ & 2.5213E+00_JPRB,3.2436E+00_JPRB,4.8666E+00_JPRB,6.3763E+00_JPRB,7.7488E+00_JPRB,8.9884E+00_JPRB,&
+ & 1.0076E+01_JPRB,1.0954E+01_JPRB,1.1942E+01_JPRB/)  
+KAO( :, 1, 9,10) = (/&
+ & 4.3208E-01_JPRB,2.0475E+00_JPRB,3.6377E+00_JPRB,5.1514E+00_JPRB,6.6073E+00_JPRB,8.0088E+00_JPRB,&
+ & 9.3664E+00_JPRB,1.0689E+01_JPRB,1.2722E+01_JPRB/)  
+KAO( :, 2, 9,10) = (/&
+ & 6.7092E-01_JPRB,2.2446E+00_JPRB,3.8634E+00_JPRB,5.3834E+00_JPRB,6.8242E+00_JPRB,8.1962E+00_JPRB,&
+ & 9.5019E+00_JPRB,1.0731E+01_JPRB,1.2602E+01_JPRB/)  
+KAO( :, 3, 9,10) = (/&
+ & 9.7959E-01_JPRB,2.4790E+00_JPRB,4.1220E+00_JPRB,5.6464E+00_JPRB,7.0720E+00_JPRB,8.4107E+00_JPRB,&
+ & 9.6598E+00_JPRB,1.0791E+01_JPRB,1.2470E+01_JPRB/)  
+KAO( :, 4, 9,10) = (/&
+ & 1.3555E+00_JPRB,2.7516E+00_JPRB,4.4105E+00_JPRB,5.9355E+00_JPRB,7.3438E+00_JPRB,8.6425E+00_JPRB,&
+ & 9.8283E+00_JPRB,1.0860E+01_JPRB,1.2324E+01_JPRB/)  
+KAO( :, 5, 9,10) = (/&
+ & 1.8036E+00_JPRB,3.0512E+00_JPRB,4.7212E+00_JPRB,6.2493E+00_JPRB,7.6308E+00_JPRB,8.8891E+00_JPRB,&
+ & 1.0011E+01_JPRB,1.0943E+01_JPRB,1.2174E+01_JPRB/)  
+KAO( :, 1,10,10) = (/&
+ & 2.8562E-01_JPRB,1.9513E+00_JPRB,3.5205E+00_JPRB,5.0276E+00_JPRB,6.5019E+00_JPRB,7.9388E+00_JPRB,&
+ & 9.3417E+00_JPRB,1.0714E+01_JPRB,1.3024E+01_JPRB/)  
+KAO( :, 2,10,10) = (/&
+ & 4.5369E-01_JPRB,2.1274E+00_JPRB,3.7193E+00_JPRB,5.2300E+00_JPRB,6.6874E+00_JPRB,8.0937E+00_JPRB,&
+ & 9.4530E+00_JPRB,1.0753E+01_JPRB,1.2922E+01_JPRB/)  
+KAO( :, 3,10,10) = (/&
+ & 6.8195E-01_JPRB,2.3352E+00_JPRB,3.9538E+00_JPRB,5.4609E+00_JPRB,6.8984E+00_JPRB,8.2697E+00_JPRB,&
+ & 9.5779E+00_JPRB,1.0802E+01_JPRB,1.2803E+01_JPRB/)  
+KAO( :, 4,10,10) = (/&
+ & 9.6434E-01_JPRB,2.5767E+00_JPRB,4.2212E+00_JPRB,5.7204E+00_JPRB,7.1311E+00_JPRB,8.4647E+00_JPRB,&
+ & 9.7207E+00_JPRB,1.0863E+01_JPRB,1.2673E+01_JPRB/)  
+KAO( :, 5,10,10) = (/&
+ & 1.3075E+00_JPRB,2.8520E+00_JPRB,4.5133E+00_JPRB,6.0099E+00_JPRB,7.3901E+00_JPRB,8.6775E+00_JPRB,&
+ & 9.8779E+00_JPRB,1.0938E+01_JPRB,1.2543E+01_JPRB/)  
+KAO( :, 1,11,10) = (/&
+ & 2.3625E-01_JPRB,1.9181E+00_JPRB,3.5155E+00_JPRB,5.0744E+00_JPRB,6.6008E+00_JPRB,8.0955E+00_JPRB,&
+ & 9.5644E+00_JPRB,1.1013E+01_JPRB,1.3397E+01_JPRB/)  
+KAO( :, 2,11,10) = (/&
+ & 3.7530E-01_JPRB,2.0748E+00_JPRB,3.6829E+00_JPRB,5.2358E+00_JPRB,6.7464E+00_JPRB,8.2221E+00_JPRB,&
+ & 9.6585E+00_JPRB,1.1047E+01_JPRB,1.3278E+01_JPRB/)  
+KAO( :, 3,11,10) = (/&
+ & 5.6319E-01_JPRB,2.2660E+00_JPRB,3.8799E+00_JPRB,5.4224E+00_JPRB,6.9139E+00_JPRB,8.3641E+00_JPRB,&
+ & 9.7629E+00_JPRB,1.1090E+01_JPRB,1.3144E+01_JPRB/)  
+KAO( :, 4,11,10) = (/&
+ & 7.9630E-01_JPRB,2.4928E+00_JPRB,4.1097E+00_JPRB,5.6369E+00_JPRB,7.1043E+00_JPRB,8.5217E+00_JPRB,&
+ & 9.8785E+00_JPRB,1.1143E+01_JPRB,1.3008E+01_JPRB/)  
+KAO( :, 5,11,10) = (/&
+ & 1.0789E+00_JPRB,2.7503E+00_JPRB,4.3718E+00_JPRB,5.8827E+00_JPRB,7.3180E+00_JPRB,8.6936E+00_JPRB,&
+ & 9.9992E+00_JPRB,1.1196E+01_JPRB,1.2862E+01_JPRB/)  
+KAO( :, 1,12,10) = (/&
+ & 1.9532E-01_JPRB,1.9250E+00_JPRB,3.5848E+00_JPRB,5.1929E+00_JPRB,6.7611E+00_JPRB,8.3016E+00_JPRB,&
+ & 9.8096E+00_JPRB,1.1276E+01_JPRB,1.3592E+01_JPRB/)  
+KAO( :, 2,12,10) = (/&
+ & 3.1059E-01_JPRB,2.0481E+00_JPRB,3.7225E+00_JPRB,5.3350E+00_JPRB,6.8984E+00_JPRB,8.4223E+00_JPRB,&
+ & 9.8976E+00_JPRB,1.1304E+01_JPRB,1.3454E+01_JPRB/)  
+KAO( :, 3,12,10) = (/&
+ & 4.6509E-01_JPRB,2.2010E+00_JPRB,3.8811E+00_JPRB,5.4933E+00_JPRB,7.0507E+00_JPRB,8.5551E+00_JPRB,&
+ & 9.9951E+00_JPRB,1.1342E+01_JPRB,1.3311E+01_JPRB/)  
+KAO( :, 4,12,10) = (/&
+ & 6.5689E-01_JPRB,2.3881E+00_JPRB,4.0636E+00_JPRB,5.6724E+00_JPRB,7.2165E+00_JPRB,8.6961E+00_JPRB,&
+ & 1.0098E+01_JPRB,1.1383E+01_JPRB,1.3165E+01_JPRB/)  
+KAO( :, 5,12,10) = (/&
+ & 8.9052E-01_JPRB,2.6097E+00_JPRB,4.2735E+00_JPRB,5.8670E+00_JPRB,7.3919E+00_JPRB,8.8391E+00_JPRB,&
+ & 1.0193E+01_JPRB,1.1412E+01_JPRB,1.2995E+01_JPRB/)  
+KAO( :, 1,13,10) = (/&
+ & 1.6125E-01_JPRB,1.9342E+00_JPRB,3.5999E+00_JPRB,5.2092E+00_JPRB,6.7843E+00_JPRB,8.3295E+00_JPRB,&
+ & 9.8358E+00_JPRB,1.1294E+01_JPRB,1.3567E+01_JPRB/)  
+KAO( :, 2,13,10) = (/&
+ & 2.5632E-01_JPRB,2.0509E+00_JPRB,3.7362E+00_JPRB,5.3503E+00_JPRB,6.9167E+00_JPRB,8.4371E+00_JPRB,&
+ & 9.9071E+00_JPRB,1.1309E+01_JPRB,1.3421E+01_JPRB/)  
+KAO( :, 3,13,10) = (/&
+ & 3.8326E-01_JPRB,2.1844E+00_JPRB,3.8935E+00_JPRB,5.5111E+00_JPRB,7.0668E+00_JPRB,8.5618E+00_JPRB,&
+ & 9.9929E+00_JPRB,1.1334E+01_JPRB,1.3271E+01_JPRB/)  
+KAO( :, 4,13,10) = (/&
+ & 5.4156E-01_JPRB,2.3369E+00_JPRB,4.0660E+00_JPRB,5.6864E+00_JPRB,7.2274E+00_JPRB,8.6942E+00_JPRB,&
+ & 1.0083E+01_JPRB,1.1355E+01_JPRB,1.3103E+01_JPRB/)  
+KAO( :, 5,13,10) = (/&
+ & 7.3401E-01_JPRB,2.5129E+00_JPRB,4.2495E+00_JPRB,5.8694E+00_JPRB,7.3940E+00_JPRB,8.8302E+00_JPRB,&
+ & 1.0173E+01_JPRB,1.1375E+01_JPRB,1.2923E+01_JPRB/)  
+KAO( :, 1, 1,11) = (/&
+ & 1.2249E+01_JPRB,1.0718E+01_JPRB,9.1868E+00_JPRB,7.6557E+00_JPRB,6.1245E+00_JPRB,5.7627E+00_JPRB,&
+ & 6.3444E+00_JPRB,6.9424E+00_JPRB,1.9044E+01_JPRB/)  
+KAO( :, 2, 1,11) = (/&
+ & 1.5357E+01_JPRB,1.3437E+01_JPRB,1.1518E+01_JPRB,9.5981E+00_JPRB,7.6785E+00_JPRB,6.1637E+00_JPRB,&
+ & 6.5230E+00_JPRB,7.0281E+00_JPRB,2.1345E+01_JPRB/)  
+KAO( :, 3, 1,11) = (/&
+ & 1.8886E+01_JPRB,1.6526E+01_JPRB,1.4165E+01_JPRB,1.1804E+01_JPRB,9.4432E+00_JPRB,7.1211E+00_JPRB,&
+ & 6.7255E+00_JPRB,7.1348E+00_JPRB,2.3750E+01_JPRB/)  
+KAO( :, 4, 1,11) = (/&
+ & 2.2784E+01_JPRB,1.9936E+01_JPRB,1.7088E+01_JPRB,1.4240E+01_JPRB,1.1392E+01_JPRB,8.5439E+00_JPRB,&
+ & 6.9461E+00_JPRB,7.2435E+00_JPRB,2.6291E+01_JPRB/)  
+KAO( :, 5, 1,11) = (/&
+ & 2.6987E+01_JPRB,2.3613E+01_JPRB,2.0240E+01_JPRB,1.6867E+01_JPRB,1.3493E+01_JPRB,1.0120E+01_JPRB,&
+ & 7.2891E+00_JPRB,7.3404E+00_JPRB,2.9031E+01_JPRB/)  
+KAO( :, 1, 2,11) = (/&
+ & 9.7136E+00_JPRB,8.4994E+00_JPRB,7.2852E+00_JPRB,6.0710E+00_JPRB,5.6278E+00_JPRB,6.3983E+00_JPRB,&
+ & 7.1952E+00_JPRB,7.9135E+00_JPRB,1.3515E+01_JPRB/)  
+KAO( :, 2, 2,11) = (/&
+ & 1.2396E+01_JPRB,1.0847E+01_JPRB,9.2971E+00_JPRB,7.7476E+00_JPRB,6.3714E+00_JPRB,6.6654E+00_JPRB,&
+ & 7.3884E+00_JPRB,8.0262E+00_JPRB,1.4990E+01_JPRB/)  
+KAO( :, 3, 2,11) = (/&
+ & 1.5432E+01_JPRB,1.3503E+01_JPRB,1.1574E+01_JPRB,9.6447E+00_JPRB,7.7158E+00_JPRB,6.9761E+00_JPRB,&
+ & 7.5844E+00_JPRB,8.1568E+00_JPRB,1.6717E+01_JPRB/)  
+KAO( :, 4, 2,11) = (/&
+ & 1.8816E+01_JPRB,1.6464E+01_JPRB,1.4112E+01_JPRB,1.1760E+01_JPRB,9.4077E+00_JPRB,7.5034E+00_JPRB,&
+ & 7.7791E+00_JPRB,8.2755E+00_JPRB,1.8558E+01_JPRB/)  
+KAO( :, 5, 2,11) = (/&
+ & 2.2537E+01_JPRB,1.9720E+01_JPRB,1.6903E+01_JPRB,1.4086E+01_JPRB,1.1268E+01_JPRB,8.5223E+00_JPRB,&
+ & 7.9761E+00_JPRB,8.3719E+00_JPRB,2.0482E+01_JPRB/)  
+KAO( :, 1, 3,11) = (/&
+ & 7.2299E+00_JPRB,6.3262E+00_JPRB,5.4224E+00_JPRB,5.1159E+00_JPRB,6.1132E+00_JPRB,7.1369E+00_JPRB,&
+ & 8.1089E+00_JPRB,8.9636E+00_JPRB,1.1955E+01_JPRB/)  
+KAO( :, 2, 3,11) = (/&
+ & 9.3918E+00_JPRB,8.2178E+00_JPRB,7.0438E+00_JPRB,5.9613E+00_JPRB,6.4360E+00_JPRB,7.3941E+00_JPRB,&
+ & 8.3154E+00_JPRB,9.1046E+00_JPRB,1.2271E+01_JPRB/)  
+KAO( :, 3, 3,11) = (/&
+ & 1.1905E+01_JPRB,1.0417E+01_JPRB,8.9285E+00_JPRB,7.4405E+00_JPRB,6.8201E+00_JPRB,7.6628E+00_JPRB,&
+ & 8.5181E+00_JPRB,9.2389E+00_JPRB,1.2625E+01_JPRB/)  
+KAO( :, 4, 3,11) = (/&
+ & 1.4757E+01_JPRB,1.2912E+01_JPRB,1.1068E+01_JPRB,9.2230E+00_JPRB,7.6302E+00_JPRB,7.9463E+00_JPRB,&
+ & 8.7305E+00_JPRB,9.3535E+00_JPRB,1.3024E+01_JPRB/)  
+KAO( :, 5, 3,11) = (/&
+ & 1.7893E+01_JPRB,1.5656E+01_JPRB,1.3420E+01_JPRB,1.1183E+01_JPRB,8.9555E+00_JPRB,8.2708E+00_JPRB,&
+ & 8.9555E+00_JPRB,9.4787E+00_JPRB,1.3397E+01_JPRB/)  
+KAO( :, 1, 4,11) = (/&
+ & 5.1773E+00_JPRB,4.5301E+00_JPRB,4.2164E+00_JPRB,5.4189E+00_JPRB,6.6862E+00_JPRB,7.9110E+00_JPRB,&
+ & 9.0375E+00_JPRB,1.0082E+01_JPRB,1.2163E+01_JPRB/)  
+KAO( :, 2, 4,11) = (/&
+ & 6.8907E+00_JPRB,6.0294E+00_JPRB,5.1859E+00_JPRB,5.7789E+00_JPRB,6.9881E+00_JPRB,8.1777E+00_JPRB,&
+ & 9.2600E+00_JPRB,1.0217E+01_JPRB,1.2164E+01_JPRB/)  
+KAO( :, 3, 4,11) = (/&
+ & 8.9163E+00_JPRB,7.8018E+00_JPRB,6.6872E+00_JPRB,6.2510E+00_JPRB,7.3281E+00_JPRB,8.4646E+00_JPRB,&
+ & 9.5034E+00_JPRB,1.0348E+01_JPRB,1.2247E+01_JPRB/)  
+KAO( :, 4, 4,11) = (/&
+ & 1.1229E+01_JPRB,9.8256E+00_JPRB,8.4220E+00_JPRB,7.1712E+00_JPRB,7.6975E+00_JPRB,8.7686E+00_JPRB,&
+ & 9.7453E+00_JPRB,1.0493E+01_JPRB,1.2364E+01_JPRB/)  
+KAO( :, 5, 4,11) = (/&
+ & 1.3839E+01_JPRB,1.2109E+01_JPRB,1.0379E+01_JPRB,8.6495E+00_JPRB,8.1169E+00_JPRB,9.0750E+00_JPRB,&
+ & 9.9810E+00_JPRB,1.0635E+01_JPRB,1.2462E+01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB15:PART7',1,ZHOOK_HANDLE)
+END SUBROUTINE PART7
+
+
+SUBROUTINE PART8
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB15:PART8',0,ZHOOK_HANDLE)
+
+
+KAO( :, 1, 5,11) = (/&
+ & 3.6436E+00_JPRB,3.1897E+00_JPRB,4.3289E+00_JPRB,5.8481E+00_JPRB,7.3102E+00_JPRB,8.6929E+00_JPRB,&
+ & 9.9995E+00_JPRB,1.1197E+01_JPRB,1.3283E+01_JPRB/)  
+KAO( :, 2, 5,11) = (/&
+ & 4.9664E+00_JPRB,4.3456E+00_JPRB,4.6924E+00_JPRB,6.1837E+00_JPRB,7.6374E+00_JPRB,8.9934E+00_JPRB,&
+ & 1.0249E+01_JPRB,1.1339E+01_JPRB,1.3236E+01_JPRB/)  
+KAO( :, 3, 5,11) = (/&
+ & 6.5513E+00_JPRB,5.7324E+00_JPRB,5.2481E+00_JPRB,6.5577E+00_JPRB,7.9818E+00_JPRB,9.3087E+00_JPRB,&
+ & 1.0503E+01_JPRB,1.1501E+01_JPRB,1.3169E+01_JPRB/)  
+KAO( :, 4, 5,11) = (/&
+ & 8.4164E+00_JPRB,7.3644E+00_JPRB,6.3448E+00_JPRB,6.9578E+00_JPRB,8.3373E+00_JPRB,9.6258E+00_JPRB,&
+ & 1.0752E+01_JPRB,1.1656E+01_JPRB,1.3106E+01_JPRB/)  
+KAO( :, 5, 5,11) = (/&
+ & 1.0527E+01_JPRB,9.2115E+00_JPRB,7.8956E+00_JPRB,7.4639E+00_JPRB,8.6974E+00_JPRB,9.9429E+00_JPRB,&
+ & 1.0997E+01_JPRB,1.1797E+01_JPRB,1.3036E+01_JPRB/)  
+KAO( :, 1, 6,11) = (/&
+ & 2.4932E+00_JPRB,2.7486E+00_JPRB,4.5320E+00_JPRB,6.2546E+00_JPRB,7.8988E+00_JPRB,9.4652E+00_JPRB,&
+ & 1.0939E+01_JPRB,1.2316E+01_JPRB,1.4467E+01_JPRB/)  
+KAO( :, 2, 6,11) = (/&
+ & 3.4773E+00_JPRB,3.1985E+00_JPRB,4.8742E+00_JPRB,6.5999E+00_JPRB,8.2329E+00_JPRB,9.7664E+00_JPRB,&
+ & 1.1186E+01_JPRB,1.2469E+01_JPRB,1.4417E+01_JPRB/)  
+KAO( :, 3, 6,11) = (/&
+ & 4.6971E+00_JPRB,4.1115E+00_JPRB,5.2651E+00_JPRB,6.9733E+00_JPRB,8.5867E+00_JPRB,1.0084E+01_JPRB,&
+ & 1.1436E+01_JPRB,1.2624E+01_JPRB,1.4351E+01_JPRB/)  
+KAO( :, 4, 6,11) = (/&
+ & 6.1495E+00_JPRB,5.3808E+00_JPRB,5.6975E+00_JPRB,7.3726E+00_JPRB,8.9642E+00_JPRB,1.0415E+01_JPRB,&
+ & 1.1698E+01_JPRB,1.2772E+01_JPRB,1.4267E+01_JPRB/)  
+KAO( :, 5, 6,11) = (/&
+ & 7.8284E+00_JPRB,6.8498E+00_JPRB,6.3225E+00_JPRB,7.7926E+00_JPRB,9.3619E+00_JPRB,1.0759E+01_JPRB,&
+ & 1.1977E+01_JPRB,1.2918E+01_JPRB,1.4175E+01_JPRB/)  
+KAO( :, 1, 7,11) = (/&
+ & 1.6743E+00_JPRB,2.7740E+00_JPRB,4.7631E+00_JPRB,6.6392E+00_JPRB,8.4234E+00_JPRB,1.0141E+01_JPRB,&
+ & 1.1784E+01_JPRB,1.3373E+01_JPRB,1.5635E+01_JPRB/)  
+KAO( :, 2, 7,11) = (/&
+ & 2.3935E+00_JPRB,3.0856E+00_JPRB,5.0953E+00_JPRB,6.9911E+00_JPRB,8.7690E+00_JPRB,1.0447E+01_JPRB,&
+ & 1.2034E+01_JPRB,1.3500E+01_JPRB,1.5579E+01_JPRB/)  
+KAO( :, 3, 7,11) = (/&
+ & 3.3116E+00_JPRB,3.4457E+00_JPRB,5.4635E+00_JPRB,7.3709E+00_JPRB,9.1406E+00_JPRB,1.0784E+01_JPRB,&
+ & 1.2298E+01_JPRB,1.3644E+01_JPRB,1.5506E+01_JPRB/)  
+KAO( :, 4, 7,11) = (/&
+ & 4.4248E+00_JPRB,4.0263E+00_JPRB,5.8643E+00_JPRB,7.7821E+00_JPRB,9.5339E+00_JPRB,1.1137E+01_JPRB,&
+ & 1.2583E+01_JPRB,1.3796E+01_JPRB,1.5411E+01_JPRB/)  
+KAO( :, 5, 7,11) = (/&
+ & 5.7412E+00_JPRB,5.0279E+00_JPRB,6.2969E+00_JPRB,8.2091E+00_JPRB,9.9459E+00_JPRB,1.1502E+01_JPRB,&
+ & 1.2876E+01_JPRB,1.3971E+01_JPRB,1.5296E+01_JPRB/)  
+KAO( :, 1, 8,11) = (/&
+ & 1.1086E+00_JPRB,2.8048E+00_JPRB,4.9324E+00_JPRB,6.9454E+00_JPRB,8.8812E+00_JPRB,1.0739E+01_JPRB,&
+ & 1.2537E+01_JPRB,1.4271E+01_JPRB,1.6686E+01_JPRB/)  
+KAO( :, 2, 8,11) = (/&
+ & 1.6296E+00_JPRB,3.0851E+00_JPRB,5.2594E+00_JPRB,7.2944E+00_JPRB,9.2229E+00_JPRB,1.1045E+01_JPRB,&
+ & 1.2773E+01_JPRB,1.4378E+01_JPRB,1.6616E+01_JPRB/)  
+KAO( :, 3, 8,11) = (/&
+ & 2.3055E+00_JPRB,3.4160E+00_JPRB,5.6286E+00_JPRB,7.6727E+00_JPRB,9.5919E+00_JPRB,1.1383E+01_JPRB,&
+ & 1.3041E+01_JPRB,1.4518E+01_JPRB,1.6520E+01_JPRB/)  
+KAO( :, 4, 8,11) = (/&
+ & 3.1507E+00_JPRB,3.7895E+00_JPRB,6.0300E+00_JPRB,8.0860E+00_JPRB,9.9827E+00_JPRB,1.1736E+01_JPRB,&
+ & 1.3326E+01_JPRB,1.4687E+01_JPRB,1.6411E+01_JPRB/)  
+KAO( :, 5, 8,11) = (/&
+ & 4.1629E+00_JPRB,4.2135E+00_JPRB,6.4636E+00_JPRB,8.5234E+00_JPRB,1.0396E+01_JPRB,1.2103E+01_JPRB,&
+ & 1.3619E+01_JPRB,1.4867E+01_JPRB,1.6271E+01_JPRB/)  
+KAO( :, 1, 9,11) = (/&
+ & 7.2274E-01_JPRB,2.8188E+00_JPRB,5.0463E+00_JPRB,7.1564E+00_JPRB,9.1934E+00_JPRB,1.1175E+01_JPRB,&
+ & 1.3093E+01_JPRB,1.4982E+01_JPRB,1.7490E+01_JPRB/)  
+KAO( :, 2, 9,11) = (/&
+ & 1.0936E+00_JPRB,3.0846E+00_JPRB,5.3597E+00_JPRB,7.4879E+00_JPRB,9.5212E+00_JPRB,1.1468E+01_JPRB,&
+ & 1.3317E+01_JPRB,1.5061E+01_JPRB,1.7405E+01_JPRB/)  
+KAO( :, 3, 9,11) = (/&
+ & 1.5844E+00_JPRB,3.3914E+00_JPRB,5.7218E+00_JPRB,7.8597E+00_JPRB,9.8794E+00_JPRB,1.1792E+01_JPRB,&
+ & 1.3571E+01_JPRB,1.5196E+01_JPRB,1.7299E+01_JPRB/)  
+KAO( :, 4, 9,11) = (/&
+ & 2.2133E+00_JPRB,3.7382E+00_JPRB,6.1198E+00_JPRB,8.2738E+00_JPRB,1.0272E+01_JPRB,1.2140E+01_JPRB,&
+ & 1.3853E+01_JPRB,1.5355E+01_JPRB,1.7167E+01_JPRB/)  
+KAO( :, 5, 9,11) = (/&
+ & 2.9830E+00_JPRB,4.1284E+00_JPRB,6.5526E+00_JPRB,8.7144E+00_JPRB,1.0697E+01_JPRB,1.2510E+01_JPRB,&
+ & 1.4140E+01_JPRB,1.5515E+01_JPRB,1.7007E+01_JPRB/)  
+KAO( :, 1,10,11) = (/&
+ & 4.8237E-01_JPRB,2.8147E+00_JPRB,5.0928E+00_JPRB,7.2773E+00_JPRB,9.3839E+00_JPRB,1.1437E+01_JPRB,&
+ & 1.3443E+01_JPRB,1.5464E+01_JPRB,1.8003E+01_JPRB/)  
+KAO( :, 2,10,11) = (/&
+ & 7.4855E-01_JPRB,3.0669E+00_JPRB,5.3977E+00_JPRB,7.5863E+00_JPRB,9.6799E+00_JPRB,1.1699E+01_JPRB,&
+ & 1.3634E+01_JPRB,1.5493E+01_JPRB,1.7884E+01_JPRB/)  
+KAO( :, 3,10,11) = (/&
+ & 1.1085E+00_JPRB,3.3611E+00_JPRB,5.7474E+00_JPRB,7.9493E+00_JPRB,1.0026E+01_JPRB,1.2005E+01_JPRB,&
+ & 1.3869E+01_JPRB,1.5596E+01_JPRB,1.7749E+01_JPRB/)  
+KAO( :, 4,10,11) = (/&
+ & 1.5772E+00_JPRB,3.6970E+00_JPRB,6.1332E+00_JPRB,8.3566E+00_JPRB,1.0418E+01_JPRB,1.2345E+01_JPRB,&
+ & 1.4128E+01_JPRB,1.5721E+01_JPRB,1.7584E+01_JPRB/)  
+KAO( :, 5,10,11) = (/&
+ & 2.1652E+00_JPRB,4.0698E+00_JPRB,6.5606E+00_JPRB,8.7912E+00_JPRB,1.0837E+01_JPRB,1.2714E+01_JPRB,&
+ & 1.4407E+01_JPRB,1.5850E+01_JPRB,1.7388E+01_JPRB/)  
+KAO( :, 1,11,11) = (/&
+ & 3.9938E-01_JPRB,2.8599E+00_JPRB,5.1737E+00_JPRB,7.3744E+00_JPRB,9.5072E+00_JPRB,1.1586E+01_JPRB,&
+ & 1.3611E+01_JPRB,1.5598E+01_JPRB,1.8201E+01_JPRB/)  
+KAO( :, 2,11,11) = (/&
+ & 6.1944E-01_JPRB,3.1115E+00_JPRB,5.4721E+00_JPRB,7.6865E+00_JPRB,9.8054E+00_JPRB,1.1843E+01_JPRB,&
+ & 1.3793E+01_JPRB,1.5638E+01_JPRB,1.8068E+01_JPRB/)  
+KAO( :, 3,11,11) = (/&
+ & 9.1846E-01_JPRB,3.4110E+00_JPRB,5.8171E+00_JPRB,8.0466E+00_JPRB,1.0149E+01_JPRB,1.2140E+01_JPRB,&
+ & 1.4010E+01_JPRB,1.5725E+01_JPRB,1.7913E+01_JPRB/)  
+KAO( :, 4,11,11) = (/&
+ & 1.3105E+00_JPRB,3.7482E+00_JPRB,6.2097E+00_JPRB,8.4443E+00_JPRB,1.0527E+01_JPRB,1.2468E+01_JPRB,&
+ & 1.4250E+01_JPRB,1.5828E+01_JPRB,1.7729E+01_JPRB/)  
+KAO( :, 5,11,11) = (/&
+ & 1.7999E+00_JPRB,4.1235E+00_JPRB,6.6430E+00_JPRB,8.8791E+00_JPRB,1.0932E+01_JPRB,1.2815E+01_JPRB,&
+ & 1.4506E+01_JPRB,1.5945E+01_JPRB,1.7528E+01_JPRB/)  
+KAO( :, 1,12,11) = (/&
+ & 3.3001E-01_JPRB,2.8413E+00_JPRB,5.1496E+00_JPRB,7.3701E+00_JPRB,9.5381E+00_JPRB,1.1655E+01_JPRB,&
+ & 1.3720E+01_JPRB,1.5739E+01_JPRB,1.8506E+01_JPRB/)  
+KAO( :, 2,12,11) = (/&
+ & 5.1236E-01_JPRB,3.0945E+00_JPRB,5.4327E+00_JPRB,7.6537E+00_JPRB,9.8045E+00_JPRB,1.1878E+01_JPRB,&
+ & 1.3880E+01_JPRB,1.5791E+01_JPRB,1.8378E+01_JPRB/)  
+KAO( :, 3,12,11) = (/&
+ & 7.6165E-01_JPRB,3.3895E+00_JPRB,5.7691E+00_JPRB,7.9857E+00_JPRB,1.0106E+01_JPRB,1.2132E+01_JPRB,&
+ & 1.4063E+01_JPRB,1.5865E+01_JPRB,1.8221E+01_JPRB/)  
+KAO( :, 4,12,11) = (/&
+ & 1.0868E+00_JPRB,3.7244E+00_JPRB,6.1541E+00_JPRB,8.3616E+00_JPRB,1.0442E+01_JPRB,1.2411E+01_JPRB,&
+ & 1.4266E+01_JPRB,1.5951E+01_JPRB,1.8046E+01_JPRB/)  
+KAO( :, 5,12,11) = (/&
+ & 1.4941E+00_JPRB,4.0983E+00_JPRB,6.5760E+00_JPRB,8.7801E+00_JPRB,1.0819E+01_JPRB,1.2722E+01_JPRB,&
+ & 1.4491E+01_JPRB,1.6054E+01_JPRB,1.7865E+01_JPRB/)  
+KAO( :, 1,13,11) = (/&
+ & 2.7270E-01_JPRB,2.8097E+00_JPRB,5.1608E+00_JPRB,7.4465E+00_JPRB,9.6830E+00_JPRB,1.1871E+01_JPRB,&
+ & 1.4022E+01_JPRB,1.6138E+01_JPRB,1.9047E+01_JPRB/)  
+KAO( :, 2,13,11) = (/&
+ & 4.2335E-01_JPRB,3.0310E+00_JPRB,5.4040E+00_JPRB,7.6870E+00_JPRB,9.9007E+00_JPRB,1.2059E+01_JPRB,&
+ & 1.4159E+01_JPRB,1.6185E+01_JPRB,1.8912E+01_JPRB/)  
+KAO( :, 3,13,11) = (/&
+ & 6.2933E-01_JPRB,3.3002E+00_JPRB,5.6896E+00_JPRB,7.9624E+00_JPRB,1.0150E+01_JPRB,1.2270E+01_JPRB,&
+ & 1.4311E+01_JPRB,1.6247E+01_JPRB,1.8754E+01_JPRB/)  
+KAO( :, 4,13,11) = (/&
+ & 8.9928E-01_JPRB,3.6212E+00_JPRB,6.0182E+00_JPRB,8.2763E+00_JPRB,1.0433E+01_JPRB,1.2504E+01_JPRB,&
+ & 1.4478E+01_JPRB,1.6320E+01_JPRB,1.8583E+01_JPRB/)  
+KAO( :, 5,13,11) = (/&
+ & 1.2370E+00_JPRB,3.9832E+00_JPRB,6.3965E+00_JPRB,8.6284E+00_JPRB,1.0744E+01_JPRB,1.2756E+01_JPRB,&
+ & 1.4653E+01_JPRB,1.6388E+01_JPRB,1.8390E+01_JPRB/)  
+KAO( :, 1, 1,12) = (/&
+ & 1.9306E+01_JPRB,1.6893E+01_JPRB,1.4480E+01_JPRB,1.2067E+01_JPRB,9.6532E+00_JPRB,7.2945E+00_JPRB,&
+ & 6.9148E+00_JPRB,7.5278E+00_JPRB,2.3433E+01_JPRB/)  
+KAO( :, 2, 1,12) = (/&
+ & 2.4650E+01_JPRB,2.1569E+01_JPRB,1.8488E+01_JPRB,1.5406E+01_JPRB,1.2325E+01_JPRB,9.2438E+00_JPRB,&
+ & 7.2171E+00_JPRB,7.6406E+00_JPRB,2.6606E+01_JPRB/)  
+KAO( :, 3, 1,12) = (/&
+ & 3.0678E+01_JPRB,2.6843E+01_JPRB,2.3008E+01_JPRB,1.9174E+01_JPRB,1.5339E+01_JPRB,1.1504E+01_JPRB,&
+ & 7.9763E+00_JPRB,7.7730E+00_JPRB,2.9832E+01_JPRB/)  
+KAO( :, 4, 1,12) = (/&
+ & 3.7441E+01_JPRB,3.2761E+01_JPRB,2.8081E+01_JPRB,2.3400E+01_JPRB,1.8720E+01_JPRB,1.4040E+01_JPRB,&
+ & 9.3666E+00_JPRB,7.8947E+00_JPRB,3.2935E+01_JPRB/)  
+KAO( :, 5, 1,12) = (/&
+ & 4.5012E+01_JPRB,3.9386E+01_JPRB,3.3759E+01_JPRB,2.8133E+01_JPRB,2.2506E+01_JPRB,1.6880E+01_JPRB,&
+ & 1.1253E+01_JPRB,8.0012E+00_JPRB,3.6133E+01_JPRB/)  
+KAO( :, 1, 2,12) = (/&
+ & 1.5936E+01_JPRB,1.3944E+01_JPRB,1.1952E+01_JPRB,9.9601E+00_JPRB,7.9681E+00_JPRB,7.1477E+00_JPRB,&
+ & 7.9439E+00_JPRB,8.7252E+00_JPRB,1.6736E+01_JPRB/)  
+KAO( :, 2, 2,12) = (/&
+ & 2.0659E+01_JPRB,1.8076E+01_JPRB,1.5494E+01_JPRB,1.2912E+01_JPRB,1.0329E+01_JPRB,8.0751E+00_JPRB,&
+ & 8.1865E+00_JPRB,8.8715E+00_JPRB,1.8751E+01_JPRB/)  
+KAO( :, 3, 2,12) = (/&
+ & 2.6211E+01_JPRB,2.2935E+01_JPRB,1.9658E+01_JPRB,1.6382E+01_JPRB,1.3106E+01_JPRB,9.8303E+00_JPRB,&
+ & 8.4476E+00_JPRB,9.0112E+00_JPRB,2.0857E+01_JPRB/)  
+KAO( :, 4, 2,12) = (/&
+ & 3.2434E+01_JPRB,2.8380E+01_JPRB,2.4326E+01_JPRB,2.0271E+01_JPRB,1.6217E+01_JPRB,1.2163E+01_JPRB,&
+ & 8.9851E+00_JPRB,9.1339E+00_JPRB,2.2883E+01_JPRB/)  
+KAO( :, 5, 2,12) = (/&
+ & 3.9217E+01_JPRB,3.4315E+01_JPRB,2.9413E+01_JPRB,2.4511E+01_JPRB,1.9608E+01_JPRB,1.4706E+01_JPRB,&
+ & 1.0077E+01_JPRB,9.2744E+00_JPRB,2.5016E+01_JPRB/)  
+KAO( :, 1, 3,12) = (/&
+ & 1.2204E+01_JPRB,1.0678E+01_JPRB,9.1529E+00_JPRB,7.6274E+00_JPRB,7.0064E+00_JPRB,8.0165E+00_JPRB,&
+ & 9.1087E+00_JPRB,1.0091E+01_JPRB,1.3158E+01_JPRB/)  
+KAO( :, 2, 3,12) = (/&
+ & 1.6264E+01_JPRB,1.4231E+01_JPRB,1.2198E+01_JPRB,1.0165E+01_JPRB,8.2928E+00_JPRB,8.3522E+00_JPRB,&
+ & 9.3382E+00_JPRB,1.0239E+01_JPRB,1.3470E+01_JPRB/)  
+KAO( :, 3, 3,12) = (/&
+ & 2.0966E+01_JPRB,1.8346E+01_JPRB,1.5725E+01_JPRB,1.3104E+01_JPRB,1.0483E+01_JPRB,8.9163E+00_JPRB,&
+ & 9.5941E+00_JPRB,1.0378E+01_JPRB,1.3791E+01_JPRB/)  
+KAO( :, 4, 3,12) = (/&
+ & 2.6346E+01_JPRB,2.3053E+01_JPRB,1.9760E+01_JPRB,1.6466E+01_JPRB,1.3173E+01_JPRB,1.0186E+01_JPRB,&
+ & 9.8769E+00_JPRB,1.0543E+01_JPRB,1.4208E+01_JPRB/)  
+KAO( :, 5, 3,12) = (/&
+ & 3.2499E+01_JPRB,2.8437E+01_JPRB,2.4374E+01_JPRB,2.0312E+01_JPRB,1.6250E+01_JPRB,1.2192E+01_JPRB,&
+ & 1.0198E+01_JPRB,1.0709E+01_JPRB,1.4690E+01_JPRB/)  
+KAO( :, 1, 4,12) = (/&
+ & 9.0048E+00_JPRB,7.8792E+00_JPRB,6.7536E+00_JPRB,6.3903E+00_JPRB,7.6603E+00_JPRB,9.0569E+00_JPRB,&
+ & 1.0373E+01_JPRB,1.1571E+01_JPRB,1.3828E+01_JPRB/)  
+KAO( :, 2, 4,12) = (/&
+ & 1.2261E+01_JPRB,1.0728E+01_JPRB,9.1954E+00_JPRB,7.7773E+00_JPRB,8.0813E+00_JPRB,9.3965E+00_JPRB,&
+ & 1.0654E+01_JPRB,1.1734E+01_JPRB,1.3859E+01_JPRB/)  
+KAO( :, 3, 4,12) = (/&
+ & 1.6168E+01_JPRB,1.4147E+01_JPRB,1.2126E+01_JPRB,1.0105E+01_JPRB,8.8961E+00_JPRB,9.7573E+00_JPRB,&
+ & 1.0940E+01_JPRB,1.1931E+01_JPRB,1.3916E+01_JPRB/)  
+KAO( :, 4, 4,12) = (/&
+ & 2.0801E+01_JPRB,1.8201E+01_JPRB,1.5600E+01_JPRB,1.3000E+01_JPRB,1.0554E+01_JPRB,1.0169E+01_JPRB,&
+ & 1.1223E+01_JPRB,1.2118E+01_JPRB,1.4034E+01_JPRB/)  
+KAO( :, 5, 4,12) = (/&
+ & 2.5988E+01_JPRB,2.2740E+01_JPRB,1.9491E+01_JPRB,1.6243E+01_JPRB,1.2994E+01_JPRB,1.0946E+01_JPRB,&
+ & 1.1496E+01_JPRB,1.2284E+01_JPRB,1.4164E+01_JPRB/)  
+KAO( :, 1, 5,12) = (/&
+ & 6.4609E+00_JPRB,5.6532E+00_JPRB,5.2932E+00_JPRB,6.8539E+00_JPRB,8.5960E+00_JPRB,1.0239E+01_JPRB,&
+ & 1.1787E+01_JPRB,1.3220E+01_JPRB,1.5562E+01_JPRB/)  
+KAO( :, 2, 5,12) = (/&
+ & 9.0364E+00_JPRB,7.9068E+00_JPRB,6.8055E+00_JPRB,7.2952E+00_JPRB,8.9859E+00_JPRB,1.0601E+01_JPRB,&
+ & 1.2085E+01_JPRB,1.3419E+01_JPRB,1.5565E+01_JPRB/)  
+KAO( :, 3, 5,12) = (/&
+ & 1.2240E+01_JPRB,1.0710E+01_JPRB,9.1797E+00_JPRB,8.2618E+00_JPRB,9.3995E+00_JPRB,1.0970E+01_JPRB,&
+ & 1.2380E+01_JPRB,1.3618E+01_JPRB,1.5546E+01_JPRB/)  
+KAO( :, 4, 5,12) = (/&
+ & 1.6001E+01_JPRB,1.4001E+01_JPRB,1.2001E+01_JPRB,1.0093E+01_JPRB,9.9460E+00_JPRB,1.1348E+01_JPRB,&
+ & 1.2695E+01_JPRB,1.3806E+01_JPRB,1.5493E+01_JPRB/)  
+KAO( :, 5, 5,12) = (/&
+ & 2.0392E+01_JPRB,1.7843E+01_JPRB,1.5294E+01_JPRB,1.2745E+01_JPRB,1.1072E+01_JPRB,1.1762E+01_JPRB,&
+ & 1.3031E+01_JPRB,1.4007E+01_JPRB,1.5413E+01_JPRB/)  
+KAO( :, 1, 6,12) = (/&
+ & 4.4633E+00_JPRB,3.9388E+00_JPRB,5.4668E+00_JPRB,7.5584E+00_JPRB,9.5392E+00_JPRB,1.1432E+01_JPRB,&
+ & 1.3234E+01_JPRB,1.4983E+01_JPRB,1.7552E+01_JPRB/)  
+KAO( :, 2, 6,12) = (/&
+ & 6.4534E+00_JPRB,5.6467E+00_JPRB,5.9493E+00_JPRB,7.9882E+00_JPRB,9.9652E+00_JPRB,1.1825E+01_JPRB,&
+ & 1.3565E+01_JPRB,1.5163E+01_JPRB,1.7552E+01_JPRB/)  
+KAO( :, 3, 6,12) = (/&
+ & 8.9369E+00_JPRB,7.8198E+00_JPRB,7.0306E+00_JPRB,8.4620E+00_JPRB,1.0422E+01_JPRB,1.2244E+01_JPRB,&
+ & 1.3924E+01_JPRB,1.5375E+01_JPRB,1.7522E+01_JPRB/)  
+KAO( :, 4, 6,12) = (/&
+ & 1.1971E+01_JPRB,1.0475E+01_JPRB,8.9883E+00_JPRB,9.0910E+00_JPRB,1.0899E+01_JPRB,1.2682E+01_JPRB,&
+ & 1.4284E+01_JPRB,1.5608E+01_JPRB,1.7458E+01_JPRB/)  
+KAO( :, 5, 6,12) = (/&
+ & 1.5570E+01_JPRB,1.3624E+01_JPRB,1.1678E+01_JPRB,1.0383E+01_JPRB,1.1407E+01_JPRB,1.3124E+01_JPRB,&
+ & 1.4643E+01_JPRB,1.5845E+01_JPRB,1.7360E+01_JPRB/)  
+KAO( :, 1, 7,12) = (/&
+ & 3.0144E+00_JPRB,3.4301E+00_JPRB,5.9195E+00_JPRB,8.2854E+00_JPRB,1.0547E+01_JPRB,1.2704E+01_JPRB,&
+ & 1.4784E+01_JPRB,1.6795E+01_JPRB,1.9646E+01_JPRB/)  
+KAO( :, 2, 7,12) = (/&
+ & 4.4866E+00_JPRB,4.1345E+00_JPRB,6.3401E+00_JPRB,8.7329E+00_JPRB,1.0993E+01_JPRB,1.3127E+01_JPRB,&
+ & 1.5133E+01_JPRB,1.6992E+01_JPRB,1.9648E+01_JPRB/)  
+KAO( :, 3, 7,12) = (/&
+ & 6.3891E+00_JPRB,5.5915E+00_JPRB,6.8167E+00_JPRB,9.2170E+00_JPRB,1.1473E+01_JPRB,1.3569E+01_JPRB,&
+ & 1.5507E+01_JPRB,1.7228E+01_JPRB,1.9616E+01_JPRB/)  
+KAO( :, 4, 7,12) = (/&
+ & 8.7782E+00_JPRB,7.6809E+00_JPRB,7.5739E+00_JPRB,9.7331E+00_JPRB,1.1970E+01_JPRB,1.4031E+01_JPRB,&
+ & 1.5873E+01_JPRB,1.7477E+01_JPRB,1.9541E+01_JPRB/)  
+KAO( :, 5, 7,12) = (/&
+ & 1.1625E+01_JPRB,1.0171E+01_JPRB,9.0298E+00_JPRB,1.0306E+01_JPRB,1.2492E+01_JPRB,1.4497E+01_JPRB,&
+ & 1.6257E+01_JPRB,1.7701E+01_JPRB,1.9439E+01_JPRB/)  
+KAO( :, 1, 8,12) = (/&
+ & 1.9926E+00_JPRB,3.6034E+00_JPRB,6.3775E+00_JPRB,8.9929E+00_JPRB,1.1503E+01_JPRB,1.3945E+01_JPRB,&
+ & 1.6299E+01_JPRB,1.8684E+01_JPRB,2.1745E+01_JPRB/)  
+KAO( :, 2, 8,12) = (/&
+ & 3.0617E+00_JPRB,3.9634E+00_JPRB,6.8142E+00_JPRB,9.4600E+00_JPRB,1.1969E+01_JPRB,1.4375E+01_JPRB,&
+ & 1.6657E+01_JPRB,1.8850E+01_JPRB,2.1761E+01_JPRB/)  
+KAO( :, 3, 8,12) = (/&
+ & 4.4985E+00_JPRB,4.5132E+00_JPRB,7.2998E+00_JPRB,9.9757E+00_JPRB,1.2478E+01_JPRB,1.4838E+01_JPRB,&
+ & 1.7040E+01_JPRB,1.9071E+01_JPRB,2.1736E+01_JPRB/)  
+KAO( :, 4, 8,12) = (/&
+ & 6.3130E+00_JPRB,5.6506E+00_JPRB,7.8250E+00_JPRB,1.0530E+01_JPRB,1.3024E+01_JPRB,1.5335E+01_JPRB,&
+ & 1.7448E+01_JPRB,1.9301E+01_JPRB,2.1660E+01_JPRB/)  
+KAO( :, 5, 8,12) = (/&
+ & 8.5677E+00_JPRB,7.4967E+00_JPRB,8.4271E+00_JPRB,1.1119E+01_JPRB,1.3598E+01_JPRB,1.5852E+01_JPRB,&
+ & 1.7874E+01_JPRB,1.9541E+01_JPRB,2.1548E+01_JPRB/)  
+KAO( :, 1, 9,12) = (/&
+ & 1.2882E+00_JPRB,3.7811E+00_JPRB,6.7889E+00_JPRB,9.6675E+00_JPRB,1.2448E+01_JPRB,1.5144E+01_JPRB,&
+ & 1.7789E+01_JPRB,2.0526E+01_JPRB,2.3798E+01_JPRB/)  
+KAO( :, 2, 9,12) = (/&
+ & 2.0503E+00_JPRB,4.1428E+00_JPRB,7.2351E+00_JPRB,1.0146E+01_JPRB,1.2918E+01_JPRB,1.5574E+01_JPRB,&
+ & 1.8133E+01_JPRB,2.0600E+01_JPRB,2.3807E+01_JPRB/)  
+KAO( :, 3, 9,12) = (/&
+ & 3.0980E+00_JPRB,4.5533E+00_JPRB,7.7296E+00_JPRB,1.0674E+01_JPRB,1.3445E+01_JPRB,1.6056E+01_JPRB,&
+ & 1.8526E+01_JPRB,2.0799E+01_JPRB,2.3759E+01_JPRB/)  
+KAO( :, 4, 9,12) = (/&
+ & 4.4694E+00_JPRB,5.0345E+00_JPRB,8.2724E+00_JPRB,1.1243E+01_JPRB,1.4010E+01_JPRB,1.6578E+01_JPRB,&
+ & 1.8947E+01_JPRB,2.1039E+01_JPRB,2.3671E+01_JPRB/)  
+KAO( :, 5, 9,12) = (/&
+ & 6.1961E+00_JPRB,5.9006E+00_JPRB,8.8587E+00_JPRB,1.1853E+01_JPRB,1.4601E+01_JPRB,1.7119E+01_JPRB,&
+ & 1.9383E+01_JPRB,2.1299E+01_JPRB,2.3541E+01_JPRB/)  
+KAO( :, 1,10,12) = (/&
+ & 8.5127E-01_JPRB,3.9419E+00_JPRB,7.1781E+00_JPRB,1.0273E+01_JPRB,1.3291E+01_JPRB,1.6253E+01_JPRB,&
+ & 1.9160E+01_JPRB,2.2190E+01_JPRB,2.5668E+01_JPRB/)  
+KAO( :, 2,10,12) = (/&
+ & 1.3967E+00_JPRB,4.3019E+00_JPRB,7.6193E+00_JPRB,1.0754E+01_JPRB,1.3770E+01_JPRB,1.6679E+01_JPRB,&
+ & 1.9482E+01_JPRB,2.2205E+01_JPRB,2.5653E+01_JPRB/)  
+KAO( :, 3,10,12) = (/&
+ & 2.1663E+00_JPRB,4.7169E+00_JPRB,8.1215E+00_JPRB,1.1290E+01_JPRB,1.4299E+01_JPRB,1.7163E+01_JPRB,&
+ & 1.9866E+01_JPRB,2.2382E+01_JPRB,2.5585E+01_JPRB/)  
+KAO( :, 4,10,12) = (/&
+ & 3.2052E+00_JPRB,5.1856E+00_JPRB,8.6831E+00_JPRB,1.1877E+01_JPRB,1.4873E+01_JPRB,1.7685E+01_JPRB,&
+ & 2.0283E+01_JPRB,2.2619E+01_JPRB,2.5476E+01_JPRB/)  
+KAO( :, 5,10,12) = (/&
+ & 4.5284E+00_JPRB,5.7035E+00_JPRB,9.2918E+00_JPRB,1.2513E+01_JPRB,1.5482E+01_JPRB,1.8231E+01_JPRB,&
+ & 2.0720E+01_JPRB,2.2887E+01_JPRB,2.5332E+01_JPRB/)  
+KAO( :, 1,11,12) = (/&
+ & 7.1408E-01_JPRB,4.2187E+00_JPRB,7.6724E+00_JPRB,1.0987E+01_JPRB,1.4213E+01_JPRB,1.7344E+01_JPRB,&
+ & 2.0412E+01_JPRB,2.3581E+01_JPRB,2.7221E+01_JPRB/)  
+KAO( :, 2,11,12) = (/&
+ & 1.1737E+00_JPRB,4.6015E+00_JPRB,8.1394E+00_JPRB,1.1481E+01_JPRB,1.4695E+01_JPRB,1.7776E+01_JPRB,&
+ & 2.0744E+01_JPRB,2.3608E+01_JPRB,2.7158E+01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB15:PART8',1,ZHOOK_HANDLE)
+END SUBROUTINE PART8
+
+
+SUBROUTINE PART9
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB15:PART9',0,ZHOOK_HANDLE)
+
+
+KAO( :, 3,11,12) = (/&
+ & 1.8278E+00_JPRB,5.0397E+00_JPRB,8.6695E+00_JPRB,1.2042E+01_JPRB,1.5239E+01_JPRB,1.8262E+01_JPRB,&
+ & 2.1130E+01_JPRB,2.3787E+01_JPRB,2.7045E+01_JPRB/)  
+KAO( :, 4,11,12) = (/&
+ & 2.7031E+00_JPRB,5.5344E+00_JPRB,9.2593E+00_JPRB,1.2658E+01_JPRB,1.5837E+01_JPRB,1.8803E+01_JPRB,&
+ & 2.1557E+01_JPRB,2.4018E+01_JPRB,2.6895E+01_JPRB/)  
+KAO( :, 5,11,12) = (/&
+ & 3.8301E+00_JPRB,6.0785E+00_JPRB,9.8968E+00_JPRB,1.3323E+01_JPRB,1.6474E+01_JPRB,1.9384E+01_JPRB,&
+ & 2.2018E+01_JPRB,2.4269E+01_JPRB,2.6697E+01_JPRB/)  
+KAO( :, 1,12,12) = (/&
+ & 5.9719E-01_JPRB,4.4357E+00_JPRB,8.0495E+00_JPRB,1.1513E+01_JPRB,1.4864E+01_JPRB,1.8123E+01_JPRB,&
+ & 2.1317E+01_JPRB,2.4560E+01_JPRB,2.8304E+01_JPRB/)  
+KAO( :, 2,12,12) = (/&
+ & 9.8514E-01_JPRB,4.8310E+00_JPRB,8.5352E+00_JPRB,1.2024E+01_JPRB,1.5349E+01_JPRB,1.8551E+01_JPRB,&
+ & 2.1630E+01_JPRB,2.4592E+01_JPRB,2.8167E+01_JPRB/)  
+KAO( :, 3,12,12) = (/&
+ & 1.5344E+00_JPRB,5.2869E+00_JPRB,9.0837E+00_JPRB,1.2602E+01_JPRB,1.5914E+01_JPRB,1.9055E+01_JPRB,&
+ & 2.2019E+01_JPRB,2.4762E+01_JPRB,2.7998E+01_JPRB/)  
+KAO( :, 4,12,12) = (/&
+ & 2.2758E+00_JPRB,5.8021E+00_JPRB,9.6908E+00_JPRB,1.3238E+01_JPRB,1.6534E+01_JPRB,1.9617E+01_JPRB,&
+ & 2.2454E+01_JPRB,2.4978E+01_JPRB,2.7783E+01_JPRB/)  
+KAO( :, 5,12,12) = (/&
+ & 3.2239E+00_JPRB,6.3684E+00_JPRB,1.0355E+01_JPRB,1.3925E+01_JPRB,1.7197E+01_JPRB,2.0204E+01_JPRB,&
+ & 2.2925E+01_JPRB,2.5222E+01_JPRB,2.7528E+01_JPRB/)  
+KAO( :, 1,13,12) = (/&
+ & 4.9832E-01_JPRB,4.5623E+00_JPRB,8.2781E+00_JPRB,1.1820E+01_JPRB,1.5240E+01_JPRB,1.8570E+01_JPRB,&
+ & 2.1811E+01_JPRB,2.5026E+01_JPRB,2.8851E+01_JPRB/)  
+KAO( :, 2,13,12) = (/&
+ & 8.2244E-01_JPRB,4.9642E+00_JPRB,8.7578E+00_JPRB,1.2321E+01_JPRB,1.5731E+01_JPRB,1.9002E+01_JPRB,&
+ & 2.2129E+01_JPRB,2.5100E+01_JPRB,2.8676E+01_JPRB/)  
+KAO( :, 3,13,12) = (/&
+ & 1.2846E+00_JPRB,5.4326E+00_JPRB,9.3155E+00_JPRB,1.2900E+01_JPRB,1.6287E+01_JPRB,1.9496E+01_JPRB,&
+ & 2.2507E+01_JPRB,2.5267E+01_JPRB,2.8460E+01_JPRB/)  
+KAO( :, 4,13,12) = (/&
+ & 1.9049E+00_JPRB,5.9589E+00_JPRB,9.9399E+00_JPRB,1.3548E+01_JPRB,1.6904E+01_JPRB,2.0038E+01_JPRB,&
+ & 2.2926E+01_JPRB,2.5474E+01_JPRB,2.8207E+01_JPRB/)  
+KAO( :, 5,13,12) = (/&
+ & 2.7022E+00_JPRB,6.5411E+00_JPRB,1.0623E+01_JPRB,1.4250E+01_JPRB,1.7574E+01_JPRB,2.0623E+01_JPRB,&
+ & 2.3373E+01_JPRB,2.5690E+01_JPRB,2.7914E+01_JPRB/)  
+KAO( :, 1, 1,13) = (/&
+ & 3.4080E+01_JPRB,2.9820E+01_JPRB,2.5560E+01_JPRB,2.1300E+01_JPRB,1.7040E+01_JPRB,1.2780E+01_JPRB,&
+ & 8.7310E+00_JPRB,8.0673E+00_JPRB,2.9577E+01_JPRB/)  
+KAO( :, 2, 1,13) = (/&
+ & 4.4290E+01_JPRB,3.8754E+01_JPRB,3.3217E+01_JPRB,2.7681E+01_JPRB,2.2145E+01_JPRB,1.6609E+01_JPRB,&
+ & 1.1073E+01_JPRB,8.2554E+00_JPRB,3.3128E+01_JPRB/)  
+KAO( :, 3, 1,13) = (/&
+ & 5.6045E+01_JPRB,4.9040E+01_JPRB,4.2034E+01_JPRB,3.5028E+01_JPRB,2.8023E+01_JPRB,2.1017E+01_JPRB,&
+ & 1.4011E+01_JPRB,8.4999E+00_JPRB,3.6715E+01_JPRB/)  
+KAO( :, 4, 1,13) = (/&
+ & 6.9030E+01_JPRB,6.0401E+01_JPRB,5.1772E+01_JPRB,4.3144E+01_JPRB,3.4515E+01_JPRB,2.5886E+01_JPRB,&
+ & 1.7257E+01_JPRB,9.2154E+00_JPRB,4.0421E+01_JPRB/)  
+KAO( :, 5, 1,13) = (/&
+ & 8.3025E+01_JPRB,7.2647E+01_JPRB,6.2269E+01_JPRB,5.1890E+01_JPRB,4.1512E+01_JPRB,3.1134E+01_JPRB,&
+ & 2.0756E+01_JPRB,1.0504E+01_JPRB,4.4180E+01_JPRB/)  
+KAO( :, 1, 2,13) = (/&
+ & 3.0233E+01_JPRB,2.6454E+01_JPRB,2.2675E+01_JPRB,1.8895E+01_JPRB,1.5116E+01_JPRB,1.1337E+01_JPRB,&
+ & 8.9456E+00_JPRB,9.4618E+00_JPRB,2.0893E+01_JPRB/)  
+KAO( :, 2, 2,13) = (/&
+ & 3.9883E+01_JPRB,3.4897E+01_JPRB,2.9912E+01_JPRB,2.4927E+01_JPRB,1.9941E+01_JPRB,1.4956E+01_JPRB,&
+ & 1.0322E+01_JPRB,9.6468E+00_JPRB,2.3460E+01_JPRB/)  
+KAO( :, 3, 2,13) = (/&
+ & 5.0858E+01_JPRB,4.4501E+01_JPRB,3.8144E+01_JPRB,3.1786E+01_JPRB,2.5429E+01_JPRB,1.9072E+01_JPRB,&
+ & 1.2717E+01_JPRB,9.8260E+00_JPRB,2.6105E+01_JPRB/)  
+KAO( :, 4, 2,13) = (/&
+ & 6.3293E+01_JPRB,5.5381E+01_JPRB,4.7469E+01_JPRB,3.9558E+01_JPRB,3.1646E+01_JPRB,2.3735E+01_JPRB,&
+ & 1.5823E+01_JPRB,1.0061E+01_JPRB,2.8871E+01_JPRB/)  
+KAO( :, 5, 2,13) = (/&
+ & 7.7095E+01_JPRB,6.7458E+01_JPRB,5.7821E+01_JPRB,4.8184E+01_JPRB,3.8547E+01_JPRB,2.8911E+01_JPRB,&
+ & 1.9274E+01_JPRB,1.0716E+01_JPRB,3.1684E+01_JPRB/)  
+KAO( :, 1, 3,13) = (/&
+ & 2.4631E+01_JPRB,2.1553E+01_JPRB,1.8474E+01_JPRB,1.5395E+01_JPRB,1.2316E+01_JPRB,9.8916E+00_JPRB,&
+ & 1.0038E+01_JPRB,1.1089E+01_JPRB,1.4306E+01_JPRB/)  
+KAO( :, 2, 3,13) = (/&
+ & 3.3118E+01_JPRB,2.8978E+01_JPRB,2.4838E+01_JPRB,2.0699E+01_JPRB,1.6559E+01_JPRB,1.2452E+01_JPRB,&
+ & 1.0491E+01_JPRB,1.1254E+01_JPRB,1.4773E+01_JPRB/)  
+KAO( :, 3, 3,13) = (/&
+ & 4.3194E+01_JPRB,3.7795E+01_JPRB,3.2396E+01_JPRB,2.6996E+01_JPRB,2.1597E+01_JPRB,1.6198E+01_JPRB,&
+ & 1.1695E+01_JPRB,1.1459E+01_JPRB,1.5413E+01_JPRB/)  
+KAO( :, 4, 3,13) = (/&
+ & 5.4783E+01_JPRB,4.7935E+01_JPRB,4.1087E+01_JPRB,3.4239E+01_JPRB,2.7391E+01_JPRB,2.0543E+01_JPRB,&
+ & 1.3845E+01_JPRB,1.1681E+01_JPRB,1.6296E+01_JPRB/)  
+KAO( :, 5, 3,13) = (/&
+ & 6.7780E+01_JPRB,5.9307E+01_JPRB,5.0835E+01_JPRB,4.2362E+01_JPRB,3.3890E+01_JPRB,2.5417E+01_JPRB,&
+ & 1.6945E+01_JPRB,1.1890E+01_JPRB,1.7557E+01_JPRB/)  
+KAO( :, 1, 4,13) = (/&
+ & 1.9088E+01_JPRB,1.6702E+01_JPRB,1.4316E+01_JPRB,1.1930E+01_JPRB,1.0048E+01_JPRB,1.0234E+01_JPRB,&
+ & 1.1609E+01_JPRB,1.2948E+01_JPRB,1.5443E+01_JPRB/)  
+KAO( :, 2, 4,13) = (/&
+ & 2.6468E+01_JPRB,2.3159E+01_JPRB,1.9851E+01_JPRB,1.6542E+01_JPRB,1.3234E+01_JPRB,1.1284E+01_JPRB,&
+ & 1.1975E+01_JPRB,1.3181E+01_JPRB,1.5496E+01_JPRB/)  
+KAO( :, 3, 4,13) = (/&
+ & 3.5386E+01_JPRB,3.0963E+01_JPRB,2.6539E+01_JPRB,2.2116E+01_JPRB,1.7693E+01_JPRB,1.3581E+01_JPRB,&
+ & 1.2366E+01_JPRB,1.3400E+01_JPRB,1.5533E+01_JPRB/)  
+KAO( :, 4, 4,13) = (/&
+ & 4.5721E+01_JPRB,4.0006E+01_JPRB,3.4291E+01_JPRB,2.8576E+01_JPRB,2.2861E+01_JPRB,1.7146E+01_JPRB,&
+ & 1.3293E+01_JPRB,1.3609E+01_JPRB,1.5601E+01_JPRB/)  
+KAO( :, 5, 4,13) = (/&
+ & 5.7463E+01_JPRB,5.0280E+01_JPRB,4.3097E+01_JPRB,3.5914E+01_JPRB,2.8732E+01_JPRB,2.1549E+01_JPRB,&
+ & 1.5088E+01_JPRB,1.3821E+01_JPRB,1.5706E+01_JPRB/)  
+KAO( :, 1, 5,13) = (/&
+ & 1.4426E+01_JPRB,1.2622E+01_JPRB,1.0819E+01_JPRB,9.3955E+00_JPRB,9.8959E+00_JPRB,1.1682E+01_JPRB,&
+ & 1.3442E+01_JPRB,1.5150E+01_JPRB,1.7787E+01_JPRB/)  
+KAO( :, 2, 5,13) = (/&
+ & 2.0633E+01_JPRB,1.8054E+01_JPRB,1.5474E+01_JPRB,1.2895E+01_JPRB,1.1371E+01_JPRB,1.2152E+01_JPRB,&
+ & 1.3795E+01_JPRB,1.5372E+01_JPRB,1.7817E+01_JPRB/)  
+KAO( :, 3, 5,13) = (/&
+ & 2.8181E+01_JPRB,2.4658E+01_JPRB,2.1135E+01_JPRB,1.7613E+01_JPRB,1.4271E+01_JPRB,1.3007E+01_JPRB,&
+ & 1.4200E+01_JPRB,1.5591E+01_JPRB,1.7815E+01_JPRB/)  
+KAO( :, 4, 5,13) = (/&
+ & 3.7172E+01_JPRB,3.2526E+01_JPRB,2.7879E+01_JPRB,2.3233E+01_JPRB,1.8586E+01_JPRB,1.4927E+01_JPRB,&
+ & 1.4654E+01_JPRB,1.5856E+01_JPRB,1.7795E+01_JPRB/)  
+KAO( :, 5, 5,13) = (/&
+ & 4.7583E+01_JPRB,4.1635E+01_JPRB,3.5687E+01_JPRB,2.9739E+01_JPRB,2.3791E+01_JPRB,1.8024E+01_JPRB,&
+ & 1.5280E+01_JPRB,1.6121E+01_JPRB,1.7748E+01_JPRB/)  
+KAO( :, 1, 6,13) = (/&
+ & 1.0461E+01_JPRB,9.1530E+00_JPRB,8.0649E+00_JPRB,8.9595E+00_JPRB,1.1163E+01_JPRB,1.3388E+01_JPRB,&
+ & 1.5529E+01_JPRB,1.7569E+01_JPRB,2.0564E+01_JPRB/)  
+KAO( :, 2, 6,13) = (/&
+ & 1.5391E+01_JPRB,1.3467E+01_JPRB,1.1543E+01_JPRB,1.0534E+01_JPRB,1.1753E+01_JPRB,1.3875E+01_JPRB,&
+ & 1.5945E+01_JPRB,1.7834E+01_JPRB,2.0625E+01_JPRB/)  
+KAO( :, 3, 6,13) = (/&
+ & 2.1628E+01_JPRB,1.8924E+01_JPRB,1.6221E+01_JPRB,1.3622E+01_JPRB,1.2887E+01_JPRB,1.4422E+01_JPRB,&
+ & 1.6374E+01_JPRB,1.8123E+01_JPRB,2.0643E+01_JPRB/)  
+KAO( :, 4, 6,13) = (/&
+ & 2.9247E+01_JPRB,2.5591E+01_JPRB,2.1935E+01_JPRB,1.8279E+01_JPRB,1.5333E+01_JPRB,1.5076E+01_JPRB,&
+ & 1.6798E+01_JPRB,1.8415E+01_JPRB,2.0622E+01_JPRB/)  
+KAO( :, 5, 6,13) = (/&
+ & 3.8260E+01_JPRB,3.3478E+01_JPRB,2.8695E+01_JPRB,2.3913E+01_JPRB,1.9193E+01_JPRB,1.6572E+01_JPRB,&
+ & 1.7244E+01_JPRB,1.8672E+01_JPRB,2.0568E+01_JPRB/)  
+KAO( :, 1, 7,13) = (/&
+ & 7.3043E+00_JPRB,6.3921E+00_JPRB,7.2574E+00_JPRB,9.9309E+00_JPRB,1.2660E+01_JPRB,1.5305E+01_JPRB,&
+ & 1.7830E+01_JPRB,2.0388E+01_JPRB,2.3721E+01_JPRB/)  
+KAO( :, 2, 7,13) = (/&
+ & 1.1153E+01_JPRB,9.7589E+00_JPRB,8.9368E+00_JPRB,1.0556E+01_JPRB,1.3220E+01_JPRB,1.5825E+01_JPRB,&
+ & 1.8263E+01_JPRB,2.0631E+01_JPRB,2.3818E+01_JPRB/)  
+KAO( :, 3, 7,13) = (/&
+ & 1.6186E+01_JPRB,1.4162E+01_JPRB,1.2167E+01_JPRB,1.1878E+01_JPRB,1.3854E+01_JPRB,1.6375E+01_JPRB,&
+ & 1.8737E+01_JPRB,2.0904E+01_JPRB,2.3851E+01_JPRB/)  
+KAO( :, 4, 7,13) = (/&
+ & 2.2456E+01_JPRB,1.9649E+01_JPRB,1.6842E+01_JPRB,1.4587E+01_JPRB,1.4796E+01_JPRB,1.6968E+01_JPRB,&
+ & 1.9249E+01_JPRB,2.1203E+01_JPRB,2.3842E+01_JPRB/)  
+KAO( :, 5, 7,13) = (/&
+ & 2.9970E+01_JPRB,2.6223E+01_JPRB,2.2477E+01_JPRB,1.8752E+01_JPRB,1.6763E+01_JPRB,1.7653E+01_JPRB,&
+ & 1.9767E+01_JPRB,2.1542E+01_JPRB,2.3797E+01_JPRB/)  
+KAO( :, 1, 8,13) = (/&
+ & 4.9692E+00_JPRB,4.9125E+00_JPRB,7.9064E+00_JPRB,1.1184E+01_JPRB,1.4336E+01_JPRB,1.7379E+01_JPRB,&
+ & 2.0369E+01_JPRB,2.3491E+01_JPRB,2.7234E+01_JPRB/)  
+KAO( :, 2, 8,13) = (/&
+ & 7.9016E+00_JPRB,6.9643E+00_JPRB,8.5289E+00_JPRB,1.1787E+01_JPRB,1.4948E+01_JPRB,1.7963E+01_JPRB,&
+ & 2.0857E+01_JPRB,2.3626E+01_JPRB,2.7349E+01_JPRB/)  
+KAO( :, 3, 8,13) = (/&
+ & 1.1829E+01_JPRB,1.0351E+01_JPRB,1.0018E+01_JPRB,1.2473E+01_JPRB,1.5611E+01_JPRB,1.8590E+01_JPRB,&
+ & 2.1391E+01_JPRB,2.3947E+01_JPRB,2.7404E+01_JPRB/)  
+KAO( :, 4, 8,13) = (/&
+ & 1.6837E+01_JPRB,1.4732E+01_JPRB,1.2874E+01_JPRB,1.3529E+01_JPRB,1.6319E+01_JPRB,1.9246E+01_JPRB,&
+ & 2.1937E+01_JPRB,2.4318E+01_JPRB,2.7406E+01_JPRB/)  
+KAO( :, 5, 8,13) = (/&
+ & 2.2996E+01_JPRB,2.0122E+01_JPRB,1.7247E+01_JPRB,1.5765E+01_JPRB,1.7114E+01_JPRB,1.9918E+01_JPRB,&
+ & 2.2479E+01_JPRB,2.4688E+01_JPRB,2.7359E+01_JPRB/)  
+KAO( :, 1, 9,13) = (/&
+ & 3.2797E+00_JPRB,4.8490E+00_JPRB,8.7424E+00_JPRB,1.2456E+01_JPRB,1.6073E+01_JPRB,1.9620E+01_JPRB,&
+ & 2.3097E+01_JPRB,2.6808E+01_JPRB,3.0988E+01_JPRB/)  
+KAO( :, 2, 9,13) = (/&
+ & 5.4392E+00_JPRB,5.6637E+00_JPRB,9.3267E+00_JPRB,1.3100E+01_JPRB,1.6727E+01_JPRB,2.0234E+01_JPRB,&
+ & 2.3592E+01_JPRB,2.6965E+01_JPRB,3.1144E+01_JPRB/)  
+KAO( :, 3, 9,13) = (/&
+ & 8.4169E+00_JPRB,7.5619E+00_JPRB,1.0020E+01_JPRB,1.3811E+01_JPRB,1.7436E+01_JPRB,2.0893E+01_JPRB,&
+ & 2.4142E+01_JPRB,2.7260E+01_JPRB,3.1227E+01_JPRB/)  
+KAO( :, 4, 9,13) = (/&
+ & 1.2342E+01_JPRB,1.0800E+01_JPRB,1.1274E+01_JPRB,1.4589E+01_JPRB,1.8199E+01_JPRB,2.1593E+01_JPRB,&
+ & 2.4734E+01_JPRB,2.7614E+01_JPRB,3.1244E+01_JPRB/)  
+KAO( :, 5, 9,13) = (/&
+ & 1.7292E+01_JPRB,1.5131E+01_JPRB,1.3759E+01_JPRB,1.5542E+01_JPRB,1.9006E+01_JPRB,2.2332E+01_JPRB,&
+ & 2.5355E+01_JPRB,2.7981E+01_JPRB,3.1197E+01_JPRB/)  
+KAO( :, 1,10,13) = (/&
+ & 2.2032E+00_JPRB,5.2890E+00_JPRB,9.6706E+00_JPRB,1.3878E+01_JPRB,1.7966E+01_JPRB,2.1973E+01_JPRB,&
+ & 2.5989E+01_JPRB,3.0314E+01_JPRB,3.4958E+01_JPRB/)  
+KAO( :, 2,10,13) = (/&
+ & 3.7831E+00_JPRB,5.7837E+00_JPRB,1.0292E+01_JPRB,1.4556E+01_JPRB,1.8648E+01_JPRB,2.2606E+01_JPRB,&
+ & 2.6478E+01_JPRB,3.0484E+01_JPRB,3.5130E+01_JPRB/)  
+KAO( :, 3,10,13) = (/&
+ & 6.0546E+00_JPRB,6.6064E+00_JPRB,1.0987E+01_JPRB,1.5317E+01_JPRB,1.9415E+01_JPRB,2.3325E+01_JPRB,&
+ & 2.7070E+01_JPRB,3.0679E+01_JPRB,3.5221E+01_JPRB/)  
+KAO( :, 4,10,13) = (/&
+ & 9.1249E+00_JPRB,8.4338E+00_JPRB,1.1767E+01_JPRB,1.6143E+01_JPRB,2.0247E+01_JPRB,2.4103E+01_JPRB,&
+ & 2.7726E+01_JPRB,3.1040E+01_JPRB,3.5231E+01_JPRB/)  
+KAO( :, 5,10,13) = (/&
+ & 1.3052E+01_JPRB,1.1454E+01_JPRB,1.2877E+01_JPRB,1.7024E+01_JPRB,2.1124E+01_JPRB,2.4923E+01_JPRB,&
+ & 2.8417E+01_JPRB,3.1455E+01_JPRB,3.5171E+01_JPRB/)  
+KAO( :, 1,11,13) = (/&
+ & 1.9086E+00_JPRB,5.9459E+00_JPRB,1.0873E+01_JPRB,1.5591E+01_JPRB,2.0164E+01_JPRB,2.4670E+01_JPRB,&
+ & 2.9154E+01_JPRB,3.3957E+01_JPRB,3.9072E+01_JPRB/)  
+KAO( :, 2,11,13) = (/&
+ & 3.2952E+00_JPRB,6.4851E+00_JPRB,1.1554E+01_JPRB,1.6337E+01_JPRB,2.0921E+01_JPRB,2.5369E+01_JPRB,&
+ & 2.9685E+01_JPRB,3.4092E+01_JPRB,3.9214E+01_JPRB/)  
+KAO( :, 3,11,13) = (/&
+ & 5.2771E+00_JPRB,7.1279E+00_JPRB,1.2325E+01_JPRB,1.7170E+01_JPRB,2.1762E+01_JPRB,2.6155E+01_JPRB,&
+ & 3.0331E+01_JPRB,3.4338E+01_JPRB,3.9267E+01_JPRB/)  
+KAO( :, 4,11,13) = (/&
+ & 7.9532E+00_JPRB,8.2986E+00_JPRB,1.3169E+01_JPRB,1.8082E+01_JPRB,2.2666E+01_JPRB,2.6993E+01_JPRB,&
+ & 3.1034E+01_JPRB,3.4728E+01_JPRB,3.9232E+01_JPRB/)  
+KAO( :, 5,11,13) = (/&
+ & 1.1408E+01_JPRB,1.0479E+01_JPRB,1.4101E+01_JPRB,1.9050E+01_JPRB,2.3632E+01_JPRB,2.7870E+01_JPRB,&
+ & 3.1762E+01_JPRB,3.5164E+01_JPRB,3.9117E+01_JPRB/)  
+KAO( :, 1,12,13) = (/&
+ & 1.6495E+00_JPRB,6.5961E+00_JPRB,1.2057E+01_JPRB,1.7278E+01_JPRB,2.2356E+01_JPRB,2.7342E+01_JPRB,&
+ & 3.2267E+01_JPRB,3.7500E+01_JPRB,4.3085E+01_JPRB/)  
+KAO( :, 2,12,13) = (/&
+ & 2.8452E+00_JPRB,7.1855E+00_JPRB,1.2796E+01_JPRB,1.8080E+01_JPRB,2.3168E+01_JPRB,2.8094E+01_JPRB,&
+ & 3.2847E+01_JPRB,3.7597E+01_JPRB,4.3183E+01_JPRB/)  
+KAO( :, 3,12,13) = (/&
+ & 4.5627E+00_JPRB,7.8617E+00_JPRB,1.3635E+01_JPRB,1.8987E+01_JPRB,2.4069E+01_JPRB,2.8923E+01_JPRB,&
+ & 3.3529E+01_JPRB,3.7904E+01_JPRB,4.3185E+01_JPRB/)  
+KAO( :, 4,12,13) = (/&
+ & 6.8882E+00_JPRB,8.6791E+00_JPRB,1.4557E+01_JPRB,1.9976E+01_JPRB,2.5052E+01_JPRB,2.9817E+01_JPRB,&
+ & 3.4260E+01_JPRB,3.8316E+01_JPRB,4.3097E+01_JPRB/)  
+KAO( :, 5,12,13) = (/&
+ & 9.8701E+00_JPRB,1.0128E+01_JPRB,1.5550E+01_JPRB,2.1028E+01_JPRB,2.6084E+01_JPRB,3.0768E+01_JPRB,&
+ & 3.5030E+01_JPRB,3.8758E+01_JPRB,4.2923E+01_JPRB/)  
+KAO( :, 1,13,13) = (/&
+ & 1.4102E+00_JPRB,7.2101E+00_JPRB,1.3161E+01_JPRB,1.8856E+01_JPRB,2.4405E+01_JPRB,2.9839E+01_JPRB,&
+ & 3.5177E+01_JPRB,4.0784E+01_JPRB,4.6821E+01_JPRB/)  
+KAO( :, 2,13,13) = (/&
+ & 2.4382E+00_JPRB,7.8482E+00_JPRB,1.3963E+01_JPRB,1.9729E+01_JPRB,2.5265E+01_JPRB,3.0620E+01_JPRB,&
+ & 3.5779E+01_JPRB,4.0841E+01_JPRB,4.6845E+01_JPRB/)  
+KAO( :, 3,13,13) = (/&
+ & 3.9130E+00_JPRB,8.5783E+00_JPRB,1.4859E+01_JPRB,2.0699E+01_JPRB,2.6235E+01_JPRB,3.1498E+01_JPRB,&
+ & 3.6480E+01_JPRB,4.1163E+01_JPRB,4.6764E+01_JPRB/)  
+KAO( :, 4,13,13) = (/&
+ & 5.9062E+00_JPRB,9.3898E+00_JPRB,1.5851E+01_JPRB,2.1749E+01_JPRB,2.7273E+01_JPRB,3.2456E+01_JPRB,&
+ & 3.7253E+01_JPRB,4.1590E+01_JPRB,4.6596E+01_JPRB/)  
+KAO( :, 5,13,13) = (/&
+ & 8.4798E+00_JPRB,1.0367E+01_JPRB,1.6908E+01_JPRB,2.2869E+01_JPRB,2.8363E+01_JPRB,3.3450E+01_JPRB,&
+ & 3.8074E+01_JPRB,4.2068E+01_JPRB,4.6355E+01_JPRB/)  
+KAO( :, 1, 1,14) = (/&
+ & 6.5174E+01_JPRB,5.7027E+01_JPRB,4.8880E+01_JPRB,4.0734E+01_JPRB,3.2587E+01_JPRB,2.4440E+01_JPRB,&
+ & 1.6293E+01_JPRB,9.0902E+00_JPRB,3.6845E+01_JPRB/)  
+KAO( :, 2, 1,14) = (/&
+ & 8.4423E+01_JPRB,7.3870E+01_JPRB,6.3317E+01_JPRB,5.2765E+01_JPRB,4.2212E+01_JPRB,3.1659E+01_JPRB,&
+ & 2.1106E+01_JPRB,1.0672E+01_JPRB,4.1742E+01_JPRB/)  
+KAO( :, 3, 1,14) = (/&
+ & 1.0604E+02_JPRB,9.2788E+01_JPRB,7.9533E+01_JPRB,6.6277E+01_JPRB,5.3022E+01_JPRB,3.9766E+01_JPRB,&
+ & 2.6511E+01_JPRB,1.3255E+01_JPRB,4.6647E+01_JPRB/)  
+KAO( :, 4, 1,14) = (/&
+ & 1.3020E+02_JPRB,1.1393E+02_JPRB,9.7651E+01_JPRB,8.1376E+01_JPRB,6.5100E+01_JPRB,4.8825E+01_JPRB,&
+ & 3.2550E+01_JPRB,1.6275E+01_JPRB,5.1511E+01_JPRB/)  
+KAO( :, 5, 1,14) = (/&
+ & 1.5659E+02_JPRB,1.3701E+02_JPRB,1.1744E+02_JPRB,9.7867E+01_JPRB,7.8294E+01_JPRB,5.8720E+01_JPRB,&
+ & 3.9147E+01_JPRB,1.9573E+01_JPRB,5.6274E+01_JPRB/)  
+KAO( :, 1, 2,14) = (/&
+ & 6.1823E+01_JPRB,5.4095E+01_JPRB,4.6367E+01_JPRB,3.8639E+01_JPRB,3.0911E+01_JPRB,2.3183E+01_JPRB,&
+ & 1.5456E+01_JPRB,1.0277E+01_JPRB,2.7318E+01_JPRB/)  
+KAO( :, 2, 2,14) = (/&
+ & 8.1223E+01_JPRB,7.1070E+01_JPRB,6.0917E+01_JPRB,5.0764E+01_JPRB,4.0612E+01_JPRB,3.0459E+01_JPRB,&
+ & 2.0306E+01_JPRB,1.1162E+01_JPRB,3.1010E+01_JPRB/)  
+KAO( :, 3, 2,14) = (/&
+ & 1.0367E+02_JPRB,9.0711E+01_JPRB,7.7752E+01_JPRB,6.4794E+01_JPRB,5.1835E+01_JPRB,3.8876E+01_JPRB,&
+ & 2.5917E+01_JPRB,1.3111E+01_JPRB,3.4709E+01_JPRB/)  
+KAO( :, 4, 2,14) = (/&
+ & 1.2892E+02_JPRB,1.1280E+02_JPRB,9.6686E+01_JPRB,8.0572E+01_JPRB,6.4458E+01_JPRB,4.8343E+01_JPRB,&
+ & 3.2229E+01_JPRB,1.6114E+01_JPRB,3.8368E+01_JPRB/)  
+KAO( :, 5, 2,14) = (/&
+ & 1.5667E+02_JPRB,1.3708E+02_JPRB,1.1750E+02_JPRB,9.7916E+01_JPRB,7.8333E+01_JPRB,5.8750E+01_JPRB,&
+ & 3.9167E+01_JPRB,1.9583E+01_JPRB,4.1940E+01_JPRB/)  
+KAO( :, 1, 3,14) = (/&
+ & 5.4340E+01_JPRB,4.7547E+01_JPRB,4.0755E+01_JPRB,3.3962E+01_JPRB,2.7170E+01_JPRB,2.0377E+01_JPRB,&
+ & 1.3826E+01_JPRB,1.1988E+01_JPRB,1.6208E+01_JPRB/)  
+KAO( :, 2, 3,14) = (/&
+ & 7.3213E+01_JPRB,6.4061E+01_JPRB,5.4910E+01_JPRB,4.5758E+01_JPRB,3.6606E+01_JPRB,2.7455E+01_JPRB,&
+ & 1.8303E+01_JPRB,1.2321E+01_JPRB,1.7853E+01_JPRB/)  
+KAO( :, 3, 3,14) = (/&
+ & 9.5330E+01_JPRB,8.3414E+01_JPRB,7.1498E+01_JPRB,5.9581E+01_JPRB,4.7665E+01_JPRB,3.5749E+01_JPRB,&
+ & 2.3833E+01_JPRB,1.3383E+01_JPRB,1.9735E+01_JPRB/)  
+KAO( :, 4, 3,14) = (/&
+ & 1.2051E+02_JPRB,1.0545E+02_JPRB,9.0386E+01_JPRB,7.5322E+01_JPRB,6.0257E+01_JPRB,4.5193E+01_JPRB,&
+ & 3.0129E+01_JPRB,1.5439E+01_JPRB,2.1688E+01_JPRB/)  
+KAO( :, 5, 3,14) = (/&
+ & 1.4852E+02_JPRB,1.2996E+02_JPRB,1.1139E+02_JPRB,9.2828E+01_JPRB,7.4262E+01_JPRB,5.5697E+01_JPRB,&
+ & 3.7131E+01_JPRB,1.8572E+01_JPRB,2.3613E+01_JPRB/)  
+KAO( :, 1, 4,14) = (/&
+ & 4.5833E+01_JPRB,4.0104E+01_JPRB,3.4375E+01_JPRB,2.8646E+01_JPRB,2.2917E+01_JPRB,1.7188E+01_JPRB,&
+ & 1.3524E+01_JPRB,1.4143E+01_JPRB,1.6776E+01_JPRB/)  
+KAO( :, 2, 4,14) = (/&
+ & 6.3459E+01_JPRB,5.5527E+01_JPRB,4.7594E+01_JPRB,3.9662E+01_JPRB,3.1730E+01_JPRB,2.3797E+01_JPRB,&
+ & 1.6331E+01_JPRB,1.4451E+01_JPRB,1.6850E+01_JPRB/)  
+KAO( :, 3, 4,14) = (/&
+ & 8.4502E+01_JPRB,7.3939E+01_JPRB,6.3376E+01_JPRB,5.2814E+01_JPRB,4.2251E+01_JPRB,3.1688E+01_JPRB,&
+ & 2.1126E+01_JPRB,1.4779E+01_JPRB,1.6907E+01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB15:PART9',1,ZHOOK_HANDLE)
+END SUBROUTINE PART9
+
+
+SUBROUTINE PART10
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB15:PART10',0,ZHOOK_HANDLE)
+
+
+KAO( :, 4, 4,14) = (/&
+ & 1.0912E+02_JPRB,9.5484E+01_JPRB,8.1843E+01_JPRB,6.8203E+01_JPRB,5.4562E+01_JPRB,4.0922E+01_JPRB,&
+ & 2.7281E+01_JPRB,1.5904E+01_JPRB,1.6987E+01_JPRB/)  
+KAO( :, 5, 4,14) = (/&
+ & 1.3712E+02_JPRB,1.1998E+02_JPRB,1.0284E+02_JPRB,8.5701E+01_JPRB,6.8561E+01_JPRB,5.1421E+01_JPRB,&
+ & 3.4281E+01_JPRB,1.8042E+01_JPRB,1.7134E+01_JPRB/)  
+KAO( :, 1, 5,14) = (/&
+ & 3.7621E+01_JPRB,3.2918E+01_JPRB,2.8216E+01_JPRB,2.3513E+01_JPRB,1.8810E+01_JPRB,1.5213E+01_JPRB,&
+ & 1.4972E+01_JPRB,1.6713E+01_JPRB,1.9607E+01_JPRB/)  
+KAO( :, 2, 5,14) = (/&
+ & 5.3640E+01_JPRB,4.6935E+01_JPRB,4.0230E+01_JPRB,3.3525E+01_JPRB,2.6820E+01_JPRB,2.0195E+01_JPRB,&
+ & 1.6296E+01_JPRB,1.6983E+01_JPRB,1.9709E+01_JPRB/)  
+KAO( :, 3, 5,14) = (/&
+ & 7.3434E+01_JPRB,6.4254E+01_JPRB,5.5075E+01_JPRB,4.5896E+01_JPRB,3.6717E+01_JPRB,2.7538E+01_JPRB,&
+ & 1.9356E+01_JPRB,1.7364E+01_JPRB,1.9752E+01_JPRB/)  
+KAO( :, 4, 5,14) = (/&
+ & 9.6831E+01_JPRB,8.4727E+01_JPRB,7.2623E+01_JPRB,6.0519E+01_JPRB,4.8415E+01_JPRB,3.6311E+01_JPRB,&
+ & 2.4262E+01_JPRB,1.7815E+01_JPRB,1.9747E+01_JPRB/)  
+KAO( :, 5, 5,14) = (/&
+ & 1.2364E+02_JPRB,1.0818E+02_JPRB,9.2728E+01_JPRB,7.7274E+01_JPRB,6.1819E+01_JPRB,4.6364E+01_JPRB,&
+ & 3.0909E+01_JPRB,1.8880E+01_JPRB,1.9719E+01_JPRB/)  
+KAO( :, 1, 6,14) = (/&
+ & 2.9612E+01_JPRB,2.5911E+01_JPRB,2.2209E+01_JPRB,1.8508E+01_JPRB,1.5714E+01_JPRB,1.5485E+01_JPRB,&
+ & 1.7513E+01_JPRB,1.9803E+01_JPRB,2.3106E+01_JPRB/)  
+KAO( :, 2, 6,14) = (/&
+ & 4.3748E+01_JPRB,3.8279E+01_JPRB,3.2811E+01_JPRB,2.7342E+01_JPRB,2.1877E+01_JPRB,1.8205E+01_JPRB,&
+ & 1.8101E+01_JPRB,2.0115E+01_JPRB,2.3246E+01_JPRB/)  
+KAO( :, 3, 6,14) = (/&
+ & 6.1468E+01_JPRB,5.3784E+01_JPRB,4.6101E+01_JPRB,3.8417E+01_JPRB,3.0734E+01_JPRB,2.3328E+01_JPRB,&
+ & 1.9453E+01_JPRB,2.0483E+01_JPRB,2.3324E+01_JPRB/)  
+KAO( :, 4, 6,14) = (/&
+ & 8.2819E+01_JPRB,7.2467E+01_JPRB,6.2114E+01_JPRB,5.1762E+01_JPRB,4.1410E+01_JPRB,3.1057E+01_JPRB,&
+ & 2.2516E+01_JPRB,2.0832E+01_JPRB,2.3358E+01_JPRB/)  
+KAO( :, 5, 6,14) = (/&
+ & 1.0782E+02_JPRB,9.4345E+01_JPRB,8.0867E+01_JPRB,6.7389E+01_JPRB,5.3911E+01_JPRB,4.0434E+01_JPRB,&
+ & 2.7416E+01_JPRB,2.1303E+01_JPRB,2.3341E+01_JPRB/)  
+KAO( :, 1, 7,14) = (/&
+ & 2.2563E+01_JPRB,1.9743E+01_JPRB,1.6922E+01_JPRB,1.4880E+01_JPRB,1.5210E+01_JPRB,1.7595E+01_JPRB,&
+ & 2.0450E+01_JPRB,2.3517E+01_JPRB,2.7272E+01_JPRB/)  
+KAO( :, 2, 7,14) = (/&
+ & 3.4511E+01_JPRB,3.0197E+01_JPRB,2.5883E+01_JPRB,2.1569E+01_JPRB,1.8701E+01_JPRB,1.8664E+01_JPRB,&
+ & 2.1070E+01_JPRB,2.3724E+01_JPRB,2.7469E+01_JPRB/)  
+KAO( :, 3, 7,14) = (/&
+ & 4.9903E+01_JPRB,4.3665E+01_JPRB,3.7427E+01_JPRB,3.1189E+01_JPRB,2.5108E+01_JPRB,2.1510E+01_JPRB,&
+ & 2.1786E+01_JPRB,2.4110E+01_JPRB,2.7600E+01_JPRB/)  
+KAO( :, 4, 7,14) = (/&
+ & 6.8998E+01_JPRB,6.0373E+01_JPRB,5.1749E+01_JPRB,4.3124E+01_JPRB,3.4499E+01_JPRB,2.6735E+01_JPRB,&
+ & 2.3147E+01_JPRB,2.4558E+01_JPRB,2.7662E+01_JPRB/)  
+KAO( :, 5, 7,14) = (/&
+ & 9.2035E+01_JPRB,8.0530E+01_JPRB,6.9026E+01_JPRB,5.7522E+01_JPRB,4.6017E+01_JPRB,3.4527E+01_JPRB,&
+ & 2.6142E+01_JPRB,2.5028E+01_JPRB,2.7662E+01_JPRB/)  
+KAO( :, 1, 8,14) = (/&
+ & 1.6646E+01_JPRB,1.4565E+01_JPRB,1.2937E+01_JPRB,1.3876E+01_JPRB,1.6955E+01_JPRB,2.0502E+01_JPRB,&
+ & 2.4054E+01_JPRB,2.7834E+01_JPRB,3.2161E+01_JPRB/)  
+KAO( :, 2, 8,14) = (/&
+ & 2.6448E+01_JPRB,2.3142E+01_JPRB,1.9836E+01_JPRB,1.7715E+01_JPRB,1.8335E+01_JPRB,2.1296E+01_JPRB,&
+ & 2.4653E+01_JPRB,2.8077E+01_JPRB,3.2424E+01_JPRB/)  
+KAO( :, 3, 8,14) = (/&
+ & 3.9552E+01_JPRB,3.4608E+01_JPRB,2.9664E+01_JPRB,2.4793E+01_JPRB,2.2053E+01_JPRB,2.2399E+01_JPRB,&
+ & 2.5322E+01_JPRB,2.8464E+01_JPRB,3.2607E+01_JPRB/)  
+KAO( :, 4, 8,14) = (/&
+ & 5.6374E+01_JPRB,4.9327E+01_JPRB,4.2280E+01_JPRB,3.5233E+01_JPRB,2.8686E+01_JPRB,2.5344E+01_JPRB,&
+ & 2.6090E+01_JPRB,2.8900E+01_JPRB,3.2702E+01_JPRB/)  
+KAO( :, 5, 8,14) = (/&
+ & 7.7053E+01_JPRB,6.7421E+01_JPRB,5.7790E+01_JPRB,4.8158E+01_JPRB,3.8527E+01_JPRB,3.0635E+01_JPRB,&
+ & 2.7529E+01_JPRB,2.9328E+01_JPRB,3.2729E+01_JPRB/)  
+KAO( :, 1, 9,14) = (/&
+ & 1.1833E+01_JPRB,1.0384E+01_JPRB,1.1459E+01_JPRB,1.5199E+01_JPRB,1.9504E+01_JPRB,2.3789E+01_JPRB,&
+ & 2.8102E+01_JPRB,3.2786E+01_JPRB,3.7785E+01_JPRB/)  
+KAO( :, 2, 9,14) = (/&
+ & 1.9655E+01_JPRB,1.7198E+01_JPRB,1.5507E+01_JPRB,1.6804E+01_JPRB,2.0431E+01_JPRB,2.4589E+01_JPRB,&
+ & 2.8753E+01_JPRB,3.3108E+01_JPRB,3.8143E+01_JPRB/)  
+KAO( :, 3, 9,14) = (/&
+ & 3.0574E+01_JPRB,2.6753E+01_JPRB,2.2935E+01_JPRB,2.1004E+01_JPRB,2.2051E+01_JPRB,2.5542E+01_JPRB,&
+ & 2.9510E+01_JPRB,3.3363E+01_JPRB,3.8391E+01_JPRB/)  
+KAO( :, 4, 9,14) = (/&
+ & 4.4893E+01_JPRB,3.9281E+01_JPRB,3.3669E+01_JPRB,2.8405E+01_JPRB,2.5980E+01_JPRB,2.6856E+01_JPRB,&
+ & 3.0337E+01_JPRB,3.3859E+01_JPRB,3.8531E+01_JPRB/)  
+KAO( :, 5, 9,14) = (/&
+ & 6.2714E+01_JPRB,5.4875E+01_JPRB,4.7035E+01_JPRB,3.9196E+01_JPRB,3.2630E+01_JPRB,2.9798E+01_JPRB,&
+ & 3.1253E+01_JPRB,3.4423E+01_JPRB,3.8580E+01_JPRB/)  
+KAO( :, 1,10,14) = (/&
+ & 8.5124E+00_JPRB,8.2727E+00_JPRB,1.2161E+01_JPRB,1.7400E+01_JPRB,2.2620E+01_JPRB,2.7747E+01_JPRB,&
+ & 3.2952E+01_JPRB,3.8443E+01_JPRB,4.4221E+01_JPRB/)  
+KAO( :, 2,10,14) = (/&
+ & 1.4801E+01_JPRB,1.2999E+01_JPRB,1.4181E+01_JPRB,1.8385E+01_JPRB,2.3543E+01_JPRB,2.8614E+01_JPRB,&
+ & 3.3590E+01_JPRB,3.8847E+01_JPRB,4.4675E+01_JPRB/)  
+KAO( :, 3,10,14) = (/&
+ & 2.3770E+01_JPRB,2.0799E+01_JPRB,1.8887E+01_JPRB,2.0455E+01_JPRB,2.4642E+01_JPRB,2.9573E+01_JPRB,&
+ & 3.4392E+01_JPRB,3.9131E+01_JPRB,4.4994E+01_JPRB/)  
+KAO( :, 4,10,14) = (/&
+ & 3.5762E+01_JPRB,3.1292E+01_JPRB,2.6896E+01_JPRB,2.5061E+01_JPRB,2.6502E+01_JPRB,3.0662E+01_JPRB,&
+ & 3.5247E+01_JPRB,3.9648E+01_JPRB,4.5184E+01_JPRB/)  
+KAO( :, 5,10,14) = (/&
+ & 5.1160E+01_JPRB,4.4765E+01_JPRB,3.8370E+01_JPRB,3.2741E+01_JPRB,3.0611E+01_JPRB,3.2021E+01_JPRB,&
+ & 3.6131E+01_JPRB,4.0213E+01_JPRB,4.5252E+01_JPRB/)  
+KAO( :, 1,11,14) = (/&
+ & 7.9777E+00_JPRB,8.7265E+00_JPRB,1.4218E+01_JPRB,2.0419E+01_JPRB,2.6536E+01_JPRB,3.2537E+01_JPRB,&
+ & 3.8615E+01_JPRB,4.5051E+01_JPRB,5.1748E+01_JPRB/)  
+KAO( :, 2,11,14) = (/&
+ & 1.3839E+01_JPRB,1.2575E+01_JPRB,1.5679E+01_JPRB,2.1487E+01_JPRB,2.7590E+01_JPRB,3.3521E+01_JPRB,&
+ & 3.9346E+01_JPRB,4.5471E+01_JPRB,5.2220E+01_JPRB/)  
+KAO( :, 3,11,14) = (/&
+ & 2.2213E+01_JPRB,1.9436E+01_JPRB,1.9340E+01_JPRB,2.2978E+01_JPRB,2.8775E+01_JPRB,3.4623E+01_JPRB,&
+ & 4.0260E+01_JPRB,4.5752E+01_JPRB,5.2534E+01_JPRB/)  
+KAO( :, 4,11,14) = (/&
+ & 3.3533E+01_JPRB,2.9341E+01_JPRB,2.5981E+01_JPRB,2.6492E+01_JPRB,3.0190E+01_JPRB,3.5801E+01_JPRB,&
+ & 4.1239E+01_JPRB,4.6338E+01_JPRB,5.2703E+01_JPRB/)  
+KAO( :, 5,11,14) = (/&
+ & 4.8125E+01_JPRB,4.2109E+01_JPRB,3.6128E+01_JPRB,3.2789E+01_JPRB,3.3249E+01_JPRB,3.7092E+01_JPRB,&
+ & 4.2227E+01_JPRB,4.6984E+01_JPRB,5.2733E+01_JPRB/)  
+KAO( :, 1,12,14) = (/&
+ & 7.3404E+00_JPRB,9.4591E+00_JPRB,1.6537E+01_JPRB,2.3797E+01_JPRB,3.0901E+01_JPRB,3.7866E+01_JPRB,&
+ & 4.4903E+01_JPRB,5.2386E+01_JPRB,6.0116E+01_JPRB/)  
+KAO( :, 2,12,14) = (/&
+ & 1.2760E+01_JPRB,1.2502E+01_JPRB,1.7728E+01_JPRB,2.4979E+01_JPRB,3.2095E+01_JPRB,3.8976E+01_JPRB,&
+ & 4.5735E+01_JPRB,5.2811E+01_JPRB,6.0596E+01_JPRB/)  
+KAO( :, 3,12,14) = (/&
+ & 2.0574E+01_JPRB,1.8262E+01_JPRB,2.0491E+01_JPRB,2.6348E+01_JPRB,3.3404E+01_JPRB,4.0219E+01_JPRB,&
+ & 4.6757E+01_JPRB,5.3073E+01_JPRB,6.0869E+01_JPRB/)  
+KAO( :, 4,12,14) = (/&
+ & 3.1115E+01_JPRB,2.7226E+01_JPRB,2.5855E+01_JPRB,2.8871E+01_JPRB,3.4864E+01_JPRB,4.1538E+01_JPRB,&
+ & 4.7864E+01_JPRB,5.3711E+01_JPRB,6.0982E+01_JPRB/)  
+KAO( :, 5,12,14) = (/&
+ & 4.4619E+01_JPRB,3.9042E+01_JPRB,3.4233E+01_JPRB,3.3732E+01_JPRB,3.6915E+01_JPRB,4.2904E+01_JPRB,&
+ & 4.8966E+01_JPRB,5.4437E+01_JPRB,6.0955E+01_JPRB/)  
+KAO( :, 1,13,14) = (/&
+ & 6.6733E+00_JPRB,1.0528E+01_JPRB,1.9102E+01_JPRB,2.7491E+01_JPRB,3.5658E+01_JPRB,4.3660E+01_JPRB,&
+ & 5.1735E+01_JPRB,6.0358E+01_JPRB,6.9219E+01_JPRB/)  
+KAO( :, 2,13,14) = (/&
+ & 1.1655E+01_JPRB,1.2870E+01_JPRB,2.0329E+01_JPRB,2.8808E+01_JPRB,3.6997E+01_JPRB,4.4910E+01_JPRB,&
+ & 5.2656E+01_JPRB,6.0744E+01_JPRB,6.9651E+01_JPRB/)  
+KAO( :, 3,13,14) = (/&
+ & 1.8767E+01_JPRB,1.7501E+01_JPRB,2.2287E+01_JPRB,3.0262E+01_JPRB,3.8454E+01_JPRB,4.6291E+01_JPRB,&
+ & 5.3806E+01_JPRB,6.1028E+01_JPRB,6.9886E+01_JPRB/)  
+KAO( :, 4,13,14) = (/&
+ & 2.8382E+01_JPRB,2.4995E+01_JPRB,2.6394E+01_JPRB,3.2078E+01_JPRB,4.0012E+01_JPRB,4.7748E+01_JPRB,&
+ & 5.5029E+01_JPRB,6.1702E+01_JPRB,6.9938E+01_JPRB/)  
+KAO( :, 5,13,14) = (/&
+ & 4.0772E+01_JPRB,3.5676E+01_JPRB,3.3182E+01_JPRB,3.5686E+01_JPRB,4.1712E+01_JPRB,4.9244E+01_JPRB,&
+ & 5.6238E+01_JPRB,6.2475E+01_JPRB,6.9819E+01_JPRB/)  
+KAO( :, 1, 1,15) = (/&
+ & 1.1094E+02_JPRB,9.7072E+01_JPRB,8.3204E+01_JPRB,6.9337E+01_JPRB,5.5470E+01_JPRB,4.1602E+01_JPRB,&
+ & 2.7735E+01_JPRB,1.3867E+01_JPRB,4.4845E+01_JPRB/)  
+KAO( :, 2, 1,15) = (/&
+ & 1.4352E+02_JPRB,1.2558E+02_JPRB,1.0764E+02_JPRB,8.9703E+01_JPRB,7.1762E+01_JPRB,5.3822E+01_JPRB,&
+ & 3.5881E+01_JPRB,1.7941E+01_JPRB,5.0973E+01_JPRB/)  
+KAO( :, 3, 1,15) = (/&
+ & 1.8038E+02_JPRB,1.5783E+02_JPRB,1.3528E+02_JPRB,1.1274E+02_JPRB,9.0189E+01_JPRB,6.7642E+01_JPRB,&
+ & 4.5094E+01_JPRB,2.2547E+01_JPRB,5.7040E+01_JPRB/)  
+KAO( :, 4, 1,15) = (/&
+ & 2.2134E+02_JPRB,1.9367E+02_JPRB,1.6600E+02_JPRB,1.3834E+02_JPRB,1.1067E+02_JPRB,8.3002E+01_JPRB,&
+ & 5.5334E+01_JPRB,2.7667E+01_JPRB,6.3000E+01_JPRB/)  
+KAO( :, 5, 1,15) = (/&
+ & 2.6568E+02_JPRB,2.3247E+02_JPRB,1.9926E+02_JPRB,1.6605E+02_JPRB,1.3284E+02_JPRB,9.9630E+01_JPRB,&
+ & 6.6420E+01_JPRB,3.3210E+01_JPRB,6.8855E+01_JPRB/)  
+KAO( :, 1, 2,15) = (/&
+ & 1.1363E+02_JPRB,9.9422E+01_JPRB,8.5219E+01_JPRB,7.1016E+01_JPRB,5.6813E+01_JPRB,4.2609E+01_JPRB,&
+ & 2.8406E+01_JPRB,1.4203E+01_JPRB,3.3096E+01_JPRB/)  
+KAO( :, 2, 2,15) = (/&
+ & 1.4930E+02_JPRB,1.3064E+02_JPRB,1.1197E+02_JPRB,9.3312E+01_JPRB,7.4650E+01_JPRB,5.5987E+01_JPRB,&
+ & 3.7325E+01_JPRB,1.8662E+01_JPRB,3.7888E+01_JPRB/)  
+KAO( :, 3, 2,15) = (/&
+ & 1.9010E+02_JPRB,1.6634E+02_JPRB,1.4258E+02_JPRB,1.1881E+02_JPRB,9.5050E+01_JPRB,7.1288E+01_JPRB,&
+ & 4.7525E+01_JPRB,2.3763E+01_JPRB,4.2686E+01_JPRB/)  
+KAO( :, 4, 2,15) = (/&
+ & 2.3571E+02_JPRB,2.0625E+02_JPRB,1.7678E+02_JPRB,1.4732E+02_JPRB,1.1785E+02_JPRB,8.8391E+01_JPRB,&
+ & 5.8927E+01_JPRB,2.9464E+01_JPRB,4.7440E+01_JPRB/)  
+KAO( :, 5, 2,15) = (/&
+ & 2.8549E+02_JPRB,2.4980E+02_JPRB,2.1412E+02_JPRB,1.7843E+02_JPRB,1.4274E+02_JPRB,1.0706E+02_JPRB,&
+ & 7.1372E+01_JPRB,3.5686E+01_JPRB,5.2117E+01_JPRB/)  
+KAO( :, 1, 3,15) = (/&
+ & 1.0870E+02_JPRB,9.5115E+01_JPRB,8.1527E+01_JPRB,6.7939E+01_JPRB,5.4352E+01_JPRB,4.0764E+01_JPRB,&
+ & 2.7176E+01_JPRB,1.4092E+01_JPRB,1.9358E+01_JPRB/)  
+KAO( :, 2, 3,15) = (/&
+ & 1.4594E+02_JPRB,1.2770E+02_JPRB,1.0946E+02_JPRB,9.1215E+01_JPRB,7.2972E+01_JPRB,5.4729E+01_JPRB,&
+ & 3.6486E+01_JPRB,1.8243E+01_JPRB,2.1671E+01_JPRB/)  
+KAO( :, 3, 3,15) = (/&
+ & 1.8927E+02_JPRB,1.6561E+02_JPRB,1.4196E+02_JPRB,1.1830E+02_JPRB,9.4637E+01_JPRB,7.0978E+01_JPRB,&
+ & 4.7319E+01_JPRB,2.3659E+01_JPRB,2.4176E+01_JPRB/)  
+KAO( :, 4, 3,15) = (/&
+ & 2.3825E+02_JPRB,2.0847E+02_JPRB,1.7869E+02_JPRB,1.4891E+02_JPRB,1.1913E+02_JPRB,8.9345E+01_JPRB,&
+ & 5.9563E+01_JPRB,2.9782E+01_JPRB,2.6798E+01_JPRB/)  
+KAO( :, 5, 3,15) = (/&
+ & 2.9226E+02_JPRB,2.5573E+02_JPRB,2.1920E+02_JPRB,1.8266E+02_JPRB,1.4613E+02_JPRB,1.0960E+02_JPRB,&
+ & 7.3065E+01_JPRB,3.6533E+01_JPRB,2.9446E+01_JPRB/)  
+KAO( :, 1, 4,15) = (/&
+ & 1.0014E+02_JPRB,8.7619E+01_JPRB,7.5102E+01_JPRB,6.2585E+01_JPRB,5.0068E+01_JPRB,3.7551E+01_JPRB,&
+ & 2.5034E+01_JPRB,1.5422E+01_JPRB,1.8003E+01_JPRB/)  
+KAO( :, 2, 4,15) = (/&
+ & 1.3789E+02_JPRB,1.2065E+02_JPRB,1.0342E+02_JPRB,8.6180E+01_JPRB,6.8944E+01_JPRB,5.1708E+01_JPRB,&
+ & 3.4472E+01_JPRB,1.7683E+01_JPRB,1.8158E+01_JPRB/)  
+KAO( :, 3, 4,15) = (/&
+ & 1.8258E+02_JPRB,1.5976E+02_JPRB,1.3693E+02_JPRB,1.1411E+02_JPRB,9.1289E+01_JPRB,6.8467E+01_JPRB,&
+ & 4.5645E+01_JPRB,2.2822E+01_JPRB,1.8280E+01_JPRB/)  
+KAO( :, 4, 4,15) = (/&
+ & 2.3380E+02_JPRB,2.0458E+02_JPRB,1.7535E+02_JPRB,1.4613E+02_JPRB,1.1690E+02_JPRB,8.7677E+01_JPRB,&
+ & 5.8451E+01_JPRB,2.9226E+01_JPRB,1.8394E+01_JPRB/)  
+KAO( :, 5, 4,15) = (/&
+ & 2.9132E+02_JPRB,2.5490E+02_JPRB,2.1849E+02_JPRB,1.8207E+02_JPRB,1.4566E+02_JPRB,1.0924E+02_JPRB,&
+ & 7.2830E+01_JPRB,3.6415E+01_JPRB,1.8697E+01_JPRB/)  
+KAO( :, 1, 5,15) = (/&
+ & 9.0165E+01_JPRB,7.8895E+01_JPRB,6.7624E+01_JPRB,5.6353E+01_JPRB,4.5083E+01_JPRB,3.3812E+01_JPRB,&
+ & 2.2547E+01_JPRB,1.8028E+01_JPRB,2.1110E+01_JPRB/)  
+KAO( :, 2, 5,15) = (/&
+ & 1.2751E+02_JPRB,1.1157E+02_JPRB,9.5631E+01_JPRB,7.9692E+01_JPRB,6.3754E+01_JPRB,4.7815E+01_JPRB,&
+ & 3.1877E+01_JPRB,1.9044E+01_JPRB,2.1192E+01_JPRB/)  
+KAO( :, 3, 5,15) = (/&
+ & 1.7270E+02_JPRB,1.5111E+02_JPRB,1.2952E+02_JPRB,1.0794E+02_JPRB,8.6350E+01_JPRB,6.4762E+01_JPRB,&
+ & 4.3175E+01_JPRB,2.2254E+01_JPRB,2.1273E+01_JPRB/)  
+KAO( :, 4, 5,15) = (/&
+ & 2.2614E+02_JPRB,1.9787E+02_JPRB,1.6960E+02_JPRB,1.4133E+02_JPRB,1.1307E+02_JPRB,8.4801E+01_JPRB,&
+ & 5.6534E+01_JPRB,2.8267E+01_JPRB,2.1307E+01_JPRB/)  
+KAO( :, 5, 5,15) = (/&
+ & 2.8741E+02_JPRB,2.5148E+02_JPRB,2.1556E+02_JPRB,1.7963E+02_JPRB,1.4370E+02_JPRB,1.0778E+02_JPRB,&
+ & 7.1852E+01_JPRB,3.5926E+01_JPRB,2.1269E+01_JPRB/)  
+KAO( :, 1, 6,15) = (/&
+ & 7.8026E+01_JPRB,6.8273E+01_JPRB,5.8519E+01_JPRB,4.8766E+01_JPRB,3.9013E+01_JPRB,2.9260E+01_JPRB,&
+ & 2.1248E+01_JPRB,2.1634E+01_JPRB,2.5118E+01_JPRB/)  
+KAO( :, 2, 6,15) = (/&
+ & 1.1411E+02_JPRB,9.9849E+01_JPRB,8.5585E+01_JPRB,7.1321E+01_JPRB,5.7057E+01_JPRB,4.2792E+01_JPRB,&
+ & 2.8533E+01_JPRB,2.2027E+01_JPRB,2.5242E+01_JPRB/)  
+KAO( :, 3, 6,15) = (/&
+ & 1.5933E+02_JPRB,1.3941E+02_JPRB,1.1950E+02_JPRB,9.9580E+01_JPRB,7.9664E+01_JPRB,5.9748E+01_JPRB,&
+ & 3.9832E+01_JPRB,2.3409E+01_JPRB,2.5326E+01_JPRB/)  
+KAO( :, 4, 6,15) = (/&
+ & 2.1384E+02_JPRB,1.8711E+02_JPRB,1.6038E+02_JPRB,1.3365E+02_JPRB,1.0692E+02_JPRB,8.0189E+01_JPRB,&
+ & 5.3459E+01_JPRB,2.7570E+01_JPRB,2.5371E+01_JPRB/)  
+KAO( :, 5, 6,15) = (/&
+ & 2.7735E+02_JPRB,2.4268E+02_JPRB,2.0801E+02_JPRB,1.7334E+02_JPRB,1.3868E+02_JPRB,1.0401E+02_JPRB,&
+ & 6.9338E+01_JPRB,3.4669E+01_JPRB,2.5359E+01_JPRB/)  
+KAO( :, 1, 7,15) = (/&
+ & 6.5827E+01_JPRB,5.7598E+01_JPRB,4.9370E+01_JPRB,4.1142E+01_JPRB,3.2913E+01_JPRB,2.5331E+01_JPRB,&
+ & 2.3025E+01_JPRB,2.5936E+01_JPRB,2.9970E+01_JPRB/)  
+KAO( :, 2, 7,15) = (/&
+ & 1.0010E+02_JPRB,8.7584E+01_JPRB,7.5072E+01_JPRB,6.2560E+01_JPRB,5.0048E+01_JPRB,3.7536E+01_JPRB,&
+ & 2.7016E+01_JPRB,2.6117E+01_JPRB,3.0165E+01_JPRB/)  
+KAO( :, 3, 7,15) = (/&
+ & 1.4417E+02_JPRB,1.2615E+02_JPRB,1.0813E+02_JPRB,9.0105E+01_JPRB,7.2084E+01_JPRB,5.4063E+01_JPRB,&
+ & 3.6043E+01_JPRB,2.6827E+01_JPRB,3.0311E+01_JPRB/)  
+KAO( :, 4, 7,15) = (/&
+ & 1.9838E+02_JPRB,1.7359E+02_JPRB,1.4879E+02_JPRB,1.2399E+02_JPRB,9.9192E+01_JPRB,7.4394E+01_JPRB,&
+ & 4.9596E+01_JPRB,2.8984E+01_JPRB,3.0397E+01_JPRB/)  
+KAO( :, 5, 7,15) = (/&
+ & 2.6264E+02_JPRB,2.2981E+02_JPRB,1.9698E+02_JPRB,1.6415E+02_JPRB,1.3132E+02_JPRB,9.8492E+01_JPRB,&
+ & 6.5661E+01_JPRB,3.3916E+01_JPRB,3.0409E+01_JPRB/)  
+KAO( :, 1, 8,15) = (/&
+ & 5.4379E+01_JPRB,4.7581E+01_JPRB,4.0784E+01_JPRB,3.3987E+01_JPRB,2.7376E+01_JPRB,2.4616E+01_JPRB,&
+ & 2.6821E+01_JPRB,3.1053E+01_JPRB,3.5784E+01_JPRB/)  
+KAO( :, 2, 8,15) = (/&
+ & 8.6031E+01_JPRB,7.5277E+01_JPRB,6.4523E+01_JPRB,5.3770E+01_JPRB,4.3016E+01_JPRB,3.2712E+01_JPRB,&
+ & 2.8406E+01_JPRB,3.1344E+01_JPRB,3.6100E+01_JPRB/)  
+KAO( :, 3, 8,15) = (/&
+ & 1.2793E+02_JPRB,1.1194E+02_JPRB,9.5951E+01_JPRB,7.9959E+01_JPRB,6.3967E+01_JPRB,4.7975E+01_JPRB,&
+ & 3.4121E+01_JPRB,3.1758E+01_JPRB,3.6313E+01_JPRB/)  
+KAO( :, 4, 8,15) = (/&
+ & 1.8066E+02_JPRB,1.5808E+02_JPRB,1.3550E+02_JPRB,1.1291E+02_JPRB,9.0332E+01_JPRB,6.7749E+01_JPRB,&
+ & 4.5233E+01_JPRB,3.2608E+01_JPRB,3.6463E+01_JPRB/)  
+KAO( :, 5, 8,15) = (/&
+ & 2.4439E+02_JPRB,2.1384E+02_JPRB,1.8329E+02_JPRB,1.5274E+02_JPRB,1.2219E+02_JPRB,9.1646E+01_JPRB,&
+ & 6.1097E+01_JPRB,3.5772E+01_JPRB,3.6527E+01_JPRB/)  
+KAO( :, 1, 9,15) = (/&
+ & 4.3573E+01_JPRB,3.8127E+01_JPRB,3.2680E+01_JPRB,2.7311E+01_JPRB,2.5199E+01_JPRB,2.7215E+01_JPRB,&
+ & 3.1843E+01_JPRB,3.7151E+01_JPRB,4.2720E+01_JPRB/)  
+KAO( :, 2, 9,15) = (/&
+ & 7.1953E+01_JPRB,6.2959E+01_JPRB,5.3964E+01_JPRB,4.4970E+01_JPRB,3.6145E+01_JPRB,3.1469E+01_JPRB,&
+ & 3.2757E+01_JPRB,3.7549E+01_JPRB,4.3159E+01_JPRB/)  
+KAO( :, 3, 9,15) = (/&
+ & 1.1068E+02_JPRB,9.6849E+01_JPRB,8.3014E+01_JPRB,6.9178E+01_JPRB,5.5342E+01_JPRB,4.2149E+01_JPRB,&
+ & 3.5486E+01_JPRB,3.7854E+01_JPRB,4.3494E+01_JPRB/)  
+KAO( :, 4, 9,15) = (/&
+ & 1.6091E+02_JPRB,1.4079E+02_JPRB,1.2068E+02_JPRB,1.0057E+02_JPRB,8.0454E+01_JPRB,6.0340E+01_JPRB,&
+ & 4.2919E+01_JPRB,3.8576E+01_JPRB,4.3720E+01_JPRB/)  
+KAO( :, 5, 9,15) = (/&
+ & 2.2364E+02_JPRB,1.9568E+02_JPRB,1.6773E+02_JPRB,1.3977E+02_JPRB,1.1182E+02_JPRB,8.3864E+01_JPRB,&
+ & 5.6032E+01_JPRB,3.9906E+01_JPRB,4.3837E+01_JPRB/)  
+KAO( :, 1,10,15) = (/&
+ & 3.5400E+01_JPRB,3.0975E+01_JPRB,2.6550E+01_JPRB,2.4562E+01_JPRB,2.6642E+01_JPRB,3.2016E+01_JPRB,&
+ & 3.8070E+01_JPRB,4.4415E+01_JPRB,5.0995E+01_JPRB/)  
+KAO( :, 2,10,15) = (/&
+ & 6.0807E+01_JPRB,5.3206E+01_JPRB,4.5605E+01_JPRB,3.8054E+01_JPRB,3.3439E+01_JPRB,3.3829E+01_JPRB,&
+ & 3.8722E+01_JPRB,4.4959E+01_JPRB,5.1600E+01_JPRB/)  
+KAO( :, 3,10,15) = (/&
+ & 9.6798E+01_JPRB,8.4698E+01_JPRB,7.2598E+01_JPRB,6.0498E+01_JPRB,4.8510E+01_JPRB,4.0770E+01_JPRB,&
+ & 4.0001E+01_JPRB,4.5358E+01_JPRB,5.2042E+01_JPRB/)  
+KAO( :, 4,10,15) = (/&
+ & 1.4501E+02_JPRB,1.2688E+02_JPRB,1.0876E+02_JPRB,9.0630E+01_JPRB,7.2504E+01_JPRB,5.4950E+01_JPRB,&
+ & 4.4708E+01_JPRB,4.5865E+01_JPRB,5.2368E+01_JPRB/)  
+KAO( :, 5,10,15) = (/&
+ & 2.0627E+02_JPRB,1.8049E+02_JPRB,1.5470E+02_JPRB,1.2892E+02_JPRB,1.0314E+02_JPRB,7.7351E+01_JPRB,&
+ & 5.4677E+01_JPRB,4.6645E+01_JPRB,5.2546E+01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB15:PART10',1,ZHOOK_HANDLE)
+END SUBROUTINE PART10
+
+
+SUBROUTINE PART11
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB15:PART11',0,ZHOOK_HANDLE)
+
+
+KAO( :, 1,11,15) = (/&
+ & 3.7164E+01_JPRB,3.2519E+01_JPRB,2.8213E+01_JPRB,2.7852E+01_JPRB,3.1623E+01_JPRB,3.8446E+01_JPRB,&
+ & 4.5726E+01_JPRB,5.3347E+01_JPRB,6.1167E+01_JPRB/)  
+KAO( :, 2,11,15) = (/&
+ & 6.4161E+01_JPRB,5.6141E+01_JPRB,4.8121E+01_JPRB,4.0753E+01_JPRB,3.7907E+01_JPRB,4.0136E+01_JPRB,&
+ & 4.6490E+01_JPRB,5.3971E+01_JPRB,6.1868E+01_JPRB/)  
+KAO( :, 3,11,15) = (/&
+ & 1.0256E+02_JPRB,8.9738E+01_JPRB,7.6919E+01_JPRB,6.4099E+01_JPRB,5.2370E+01_JPRB,4.6558E+01_JPRB,&
+ & 4.7795E+01_JPRB,5.4418E+01_JPRB,6.2373E+01_JPRB/)  
+KAO( :, 4,11,15) = (/&
+ & 1.5386E+02_JPRB,1.3463E+02_JPRB,1.1539E+02_JPRB,9.6161E+01_JPRB,7.6929E+01_JPRB,6.0144E+01_JPRB,&
+ & 5.2042E+01_JPRB,5.4998E+01_JPRB,6.2715E+01_JPRB/)  
+KAO( :, 5,11,15) = (/&
+ & 2.1904E+02_JPRB,1.9166E+02_JPRB,1.6428E+02_JPRB,1.3690E+02_JPRB,1.0952E+02_JPRB,8.2243E+01_JPRB,&
+ & 6.1497E+01_JPRB,5.5854E+01_JPRB,6.2906E+01_JPRB/)  
+KAO( :, 1,12,15) = (/&
+ & 3.8871E+01_JPRB,3.4012E+01_JPRB,3.0393E+01_JPRB,3.1931E+01_JPRB,3.7660E+01_JPRB,4.6060E+01_JPRB,&
+ & 5.4792E+01_JPRB,6.3924E+01_JPRB,7.3229E+01_JPRB/)  
+KAO( :, 2,12,15) = (/&
+ & 6.7284E+01_JPRB,5.8873E+01_JPRB,5.0463E+01_JPRB,4.4214E+01_JPRB,4.3443E+01_JPRB,4.7760E+01_JPRB,&
+ & 5.5669E+01_JPRB,6.4596E+01_JPRB,7.3985E+01_JPRB/)  
+KAO( :, 3,12,15) = (/&
+ & 1.0766E+02_JPRB,9.4199E+01_JPRB,8.0742E+01_JPRB,6.7302E+01_JPRB,5.7248E+01_JPRB,5.3670E+01_JPRB,&
+ & 5.7112E+01_JPRB,6.5078E+01_JPRB,7.4551E+01_JPRB/)  
+KAO( :, 4,12,15) = (/&
+ & 1.6163E+02_JPRB,1.4143E+02_JPRB,1.2122E+02_JPRB,1.0102E+02_JPRB,8.1042E+01_JPRB,6.6522E+01_JPRB,&
+ & 6.0901E+01_JPRB,6.5731E+01_JPRB,7.4885E+01_JPRB/)  
+KAO( :, 5,12,15) = (/&
+ & 2.3044E+02_JPRB,2.0164E+02_JPRB,1.7283E+02_JPRB,1.4403E+02_JPRB,1.1522E+02_JPRB,8.7709E+01_JPRB,&
+ & 6.9646E+01_JPRB,6.6631E+01_JPRB,7.5001E+01_JPRB/)  
+KAO( :, 1,13,15) = (/&
+ & 4.0246E+01_JPRB,3.5215E+01_JPRB,3.3104E+01_JPRB,3.6905E+01_JPRB,4.4893E+01_JPRB,5.4993E+01_JPRB,&
+ & 6.5407E+01_JPRB,7.6308E+01_JPRB,8.7364E+01_JPRB/)  
+KAO( :, 2,13,15) = (/&
+ & 6.9680E+01_JPRB,6.0970E+01_JPRB,5.2454E+01_JPRB,4.8453E+01_JPRB,5.0138E+01_JPRB,5.6837E+01_JPRB,&
+ & 6.6412E+01_JPRB,7.7026E+01_JPRB,8.8187E+01_JPRB/)  
+KAO( :, 3,13,15) = (/&
+ & 1.1160E+02_JPRB,9.7650E+01_JPRB,8.3700E+01_JPRB,7.0502E+01_JPRB,6.3014E+01_JPRB,6.2089E+01_JPRB,&
+ & 6.7983E+01_JPRB,7.7487E+01_JPRB,8.8731E+01_JPRB/)  
+KAO( :, 4,13,15) = (/&
+ & 1.6767E+02_JPRB,1.4671E+02_JPRB,1.2575E+02_JPRB,1.0479E+02_JPRB,8.5648E+01_JPRB,7.3989E+01_JPRB,&
+ & 7.1252E+01_JPRB,7.8174E+01_JPRB,8.8985E+01_JPRB/)  
+KAO( :, 5,13,15) = (/&
+ & 2.3895E+02_JPRB,2.0908E+02_JPRB,1.7922E+02_JPRB,1.4935E+02_JPRB,1.1948E+02_JPRB,9.3985E+01_JPRB,&
+ & 7.9182E+01_JPRB,7.9098E+01_JPRB,8.9007E+01_JPRB/)  
+KAO( :, 1, 1,16) = (/&
+ & 1.3674E+02_JPRB,1.1964E+02_JPRB,1.0255E+02_JPRB,8.5460E+01_JPRB,6.8368E+01_JPRB,5.1276E+01_JPRB,&
+ & 3.4184E+01_JPRB,1.7092E+01_JPRB,4.7777E+01_JPRB/)  
+KAO( :, 2, 1,16) = (/&
+ & 1.7779E+02_JPRB,1.5556E+02_JPRB,1.3334E+02_JPRB,1.1112E+02_JPRB,8.8894E+01_JPRB,6.6670E+01_JPRB,&
+ & 4.4447E+01_JPRB,2.2223E+01_JPRB,5.4515E+01_JPRB/)  
+KAO( :, 3, 1,16) = (/&
+ & 2.2447E+02_JPRB,1.9641E+02_JPRB,1.6835E+02_JPRB,1.4030E+02_JPRB,1.1224E+02_JPRB,8.4177E+01_JPRB,&
+ & 5.6118E+01_JPRB,2.8059E+01_JPRB,6.1237E+01_JPRB/)  
+KAO( :, 4, 1,16) = (/&
+ & 2.7629E+02_JPRB,2.4176E+02_JPRB,2.0722E+02_JPRB,1.7268E+02_JPRB,1.3815E+02_JPRB,1.0361E+02_JPRB,&
+ & 6.9073E+01_JPRB,3.4537E+01_JPRB,6.7881E+01_JPRB/)  
+KAO( :, 5, 1,16) = (/&
+ & 3.3259E+02_JPRB,2.9102E+02_JPRB,2.4944E+02_JPRB,2.0787E+02_JPRB,1.6630E+02_JPRB,1.2472E+02_JPRB,&
+ & 8.3148E+01_JPRB,4.1574E+01_JPRB,7.4387E+01_JPRB/)  
+KAO( :, 1, 2,16) = (/&
+ & 1.4678E+02_JPRB,1.2843E+02_JPRB,1.1009E+02_JPRB,9.1739E+01_JPRB,7.3391E+01_JPRB,5.5044E+01_JPRB,&
+ & 3.6696E+01_JPRB,1.8348E+01_JPRB,3.6081E+01_JPRB/)  
+KAO( :, 2, 2,16) = (/&
+ & 1.9364E+02_JPRB,1.6943E+02_JPRB,1.4523E+02_JPRB,1.2102E+02_JPRB,9.6819E+01_JPRB,7.2614E+01_JPRB,&
+ & 4.8409E+01_JPRB,2.4205E+01_JPRB,4.1498E+01_JPRB/)  
+KAO( :, 3, 2,16) = (/&
+ & 2.4749E+02_JPRB,2.1655E+02_JPRB,1.8562E+02_JPRB,1.5468E+02_JPRB,1.2374E+02_JPRB,9.2808E+01_JPRB,&
+ & 6.1872E+01_JPRB,3.0936E+01_JPRB,4.6929E+01_JPRB/)  
+KAO( :, 4, 2,16) = (/&
+ & 3.0786E+02_JPRB,2.6938E+02_JPRB,2.3089E+02_JPRB,1.9241E+02_JPRB,1.5393E+02_JPRB,1.1545E+02_JPRB,&
+ & 7.6965E+01_JPRB,3.8482E+01_JPRB,5.2308E+01_JPRB/)  
+KAO( :, 5, 2,16) = (/&
+ & 3.7405E+02_JPRB,3.2730E+02_JPRB,2.8054E+02_JPRB,2.3378E+02_JPRB,1.8703E+02_JPRB,1.4027E+02_JPRB,&
+ & 9.3513E+01_JPRB,4.6757E+01_JPRB,5.7603E+01_JPRB/)  
+KAO( :, 1, 3,16) = (/&
+ & 1.4770E+02_JPRB,1.2924E+02_JPRB,1.1078E+02_JPRB,9.2315E+01_JPRB,7.3852E+01_JPRB,5.5389E+01_JPRB,&
+ & 3.6926E+01_JPRB,1.8463E+01_JPRB,2.0017E+01_JPRB/)  
+KAO( :, 2, 3,16) = (/&
+ & 1.9922E+02_JPRB,1.7432E+02_JPRB,1.4941E+02_JPRB,1.2451E+02_JPRB,9.9609E+01_JPRB,7.4707E+01_JPRB,&
+ & 4.9805E+01_JPRB,2.4902E+01_JPRB,2.3072E+01_JPRB/)  
+KAO( :, 3, 3,16) = (/&
+ & 2.5951E+02_JPRB,2.2707E+02_JPRB,1.9463E+02_JPRB,1.6219E+02_JPRB,1.2975E+02_JPRB,9.7315E+01_JPRB,&
+ & 6.4877E+01_JPRB,3.2438E+01_JPRB,2.6326E+01_JPRB/)  
+KAO( :, 4, 3,16) = (/&
+ & 3.2798E+02_JPRB,2.8698E+02_JPRB,2.4598E+02_JPRB,2.0498E+02_JPRB,1.6399E+02_JPRB,1.2299E+02_JPRB,&
+ & 8.1994E+01_JPRB,4.0997E+01_JPRB,2.9574E+01_JPRB/)  
+KAO( :, 5, 3,16) = (/&
+ & 4.0406E+02_JPRB,3.5355E+02_JPRB,3.0305E+02_JPRB,2.5254E+02_JPRB,2.0203E+02_JPRB,1.5152E+02_JPRB,&
+ & 1.0102E+02_JPRB,5.0508E+01_JPRB,3.2777E+01_JPRB/)  
+KAO( :, 1, 4,16) = (/&
+ & 1.4422E+02_JPRB,1.2619E+02_JPRB,1.0816E+02_JPRB,9.0137E+01_JPRB,7.2109E+01_JPRB,5.4082E+01_JPRB,&
+ & 3.6055E+01_JPRB,1.8027E+01_JPRB,1.8526E+01_JPRB/)  
+KAO( :, 2, 4,16) = (/&
+ & 1.9978E+02_JPRB,1.7481E+02_JPRB,1.4983E+02_JPRB,1.2486E+02_JPRB,9.9890E+01_JPRB,7.4917E+01_JPRB,&
+ & 4.9945E+01_JPRB,2.4972E+01_JPRB,1.9155E+01_JPRB/)  
+KAO( :, 3, 4,16) = (/&
+ & 2.6597E+02_JPRB,2.3273E+02_JPRB,1.9948E+02_JPRB,1.6623E+02_JPRB,1.3299E+02_JPRB,9.9740E+01_JPRB,&
+ & 6.6493E+01_JPRB,3.3247E+01_JPRB,1.9814E+01_JPRB/)  
+KAO( :, 4, 4,16) = (/&
+ & 3.4257E+02_JPRB,2.9975E+02_JPRB,2.5693E+02_JPRB,2.1411E+02_JPRB,1.7128E+02_JPRB,1.2846E+02_JPRB,&
+ & 8.5642E+01_JPRB,4.2821E+01_JPRB,2.0371E+01_JPRB/)  
+KAO( :, 5, 4,16) = (/&
+ & 4.2875E+02_JPRB,3.7515E+02_JPRB,3.2156E+02_JPRB,2.6797E+02_JPRB,2.1437E+02_JPRB,1.6078E+02_JPRB,&
+ & 1.0719E+02_JPRB,5.3593E+01_JPRB,2.0835E+01_JPRB/)  
+KAO( :, 1, 5,16) = (/&
+ & 1.3899E+02_JPRB,1.2162E+02_JPRB,1.0425E+02_JPRB,8.6871E+01_JPRB,6.9497E+01_JPRB,5.2123E+01_JPRB,&
+ & 3.4748E+01_JPRB,1.8596E+01_JPRB,2.1711E+01_JPRB/)  
+KAO( :, 2, 5,16) = (/&
+ & 1.9805E+02_JPRB,1.7329E+02_JPRB,1.4854E+02_JPRB,1.2378E+02_JPRB,9.9025E+01_JPRB,7.4269E+01_JPRB,&
+ & 4.9513E+01_JPRB,2.4756E+01_JPRB,2.1848E+01_JPRB/)  
+KAO( :, 3, 5,16) = (/&
+ & 2.7005E+02_JPRB,2.3630E+02_JPRB,2.0254E+02_JPRB,1.6878E+02_JPRB,1.3503E+02_JPRB,1.0127E+02_JPRB,&
+ & 6.7514E+01_JPRB,3.3757E+01_JPRB,2.1967E+01_JPRB/)  
+KAO( :, 4, 5,16) = (/&
+ & 3.5478E+02_JPRB,3.1044E+02_JPRB,2.6609E+02_JPRB,2.2174E+02_JPRB,1.7739E+02_JPRB,1.3304E+02_JPRB,&
+ & 8.8696E+01_JPRB,4.4348E+01_JPRB,2.2139E+01_JPRB/)  
+KAO( :, 5, 5,16) = (/&
+ & 4.5175E+02_JPRB,3.9528E+02_JPRB,3.3881E+02_JPRB,2.8234E+02_JPRB,2.2588E+02_JPRB,1.6941E+02_JPRB,&
+ & 1.1294E+02_JPRB,5.6469E+01_JPRB,2.2377E+01_JPRB/)  
+KAO( :, 1, 6,16) = (/&
+ & 1.3013E+02_JPRB,1.1386E+02_JPRB,9.7595E+01_JPRB,8.1329E+01_JPRB,6.5064E+01_JPRB,4.8798E+01_JPRB,&
+ & 3.2532E+01_JPRB,2.2484E+01_JPRB,2.6076E+01_JPRB/)  
+KAO( :, 2, 6,16) = (/&
+ & 1.9160E+02_JPRB,1.6765E+02_JPRB,1.4370E+02_JPRB,1.1975E+02_JPRB,9.5800E+01_JPRB,7.1850E+01_JPRB,&
+ & 4.7900E+01_JPRB,2.3950E+01_JPRB,2.6232E+01_JPRB/)  
+KAO( :, 3, 6,16) = (/&
+ & 2.6831E+02_JPRB,2.3477E+02_JPRB,2.0123E+02_JPRB,1.6769E+02_JPRB,1.3415E+02_JPRB,1.0061E+02_JPRB,&
+ & 6.7076E+01_JPRB,3.3538E+01_JPRB,2.6352E+01_JPRB/)  
+KAO( :, 4, 6,16) = (/&
+ & 3.6064E+02_JPRB,3.1556E+02_JPRB,2.7048E+02_JPRB,2.2540E+02_JPRB,1.8032E+02_JPRB,1.3524E+02_JPRB,&
+ & 9.0160E+01_JPRB,4.5080E+01_JPRB,2.6414E+01_JPRB/)  
+KAO( :, 5, 6,16) = (/&
+ & 4.6794E+02_JPRB,4.0944E+02_JPRB,3.5095E+02_JPRB,2.9246E+02_JPRB,2.3397E+02_JPRB,1.7548E+02_JPRB,&
+ & 1.1698E+02_JPRB,5.8492E+01_JPRB,2.6392E+01_JPRB/)  
+KAO( :, 1, 7,16) = (/&
+ & 1.1956E+02_JPRB,1.0461E+02_JPRB,8.9667E+01_JPRB,7.4722E+01_JPRB,5.9778E+01_JPRB,4.4833E+01_JPRB,&
+ & 2.9889E+01_JPRB,2.7199E+01_JPRB,3.1421E+01_JPRB/)  
+KAO( :, 2, 7,16) = (/&
+ & 1.8238E+02_JPRB,1.5958E+02_JPRB,1.3678E+02_JPRB,1.1398E+02_JPRB,9.1188E+01_JPRB,6.8391E+01_JPRB,&
+ & 4.5594E+01_JPRB,2.7417E+01_JPRB,3.1636E+01_JPRB/)  
+KAO( :, 3, 7,16) = (/&
+ & 2.6306E+02_JPRB,2.3018E+02_JPRB,1.9730E+02_JPRB,1.6441E+02_JPRB,1.3153E+02_JPRB,9.8648E+01_JPRB,&
+ & 6.5766E+01_JPRB,3.2883E+01_JPRB,3.1799E+01_JPRB/)  
+KAO( :, 4, 7,16) = (/&
+ & 3.6216E+02_JPRB,3.1689E+02_JPRB,2.7162E+02_JPRB,2.2635E+02_JPRB,1.8108E+02_JPRB,1.3581E+02_JPRB,&
+ & 9.0539E+01_JPRB,4.5269E+01_JPRB,3.1905E+01_JPRB/)  
+KAO( :, 5, 7,16) = (/&
+ & 4.7940E+02_JPRB,4.1947E+02_JPRB,3.5955E+02_JPRB,2.9962E+02_JPRB,2.3970E+02_JPRB,1.7977E+02_JPRB,&
+ & 1.1985E+02_JPRB,5.9925E+01_JPRB,3.1925E+01_JPRB/)  
+KAO( :, 1, 8,16) = (/&
+ & 1.0811E+02_JPRB,9.4599E+01_JPRB,8.1085E+01_JPRB,6.7571E+01_JPRB,5.4057E+01_JPRB,4.0543E+01_JPRB,&
+ & 2.8198E+01_JPRB,3.2881E+01_JPRB,3.7875E+01_JPRB/)  
+KAO( :, 2, 8,16) = (/&
+ & 1.7137E+02_JPRB,1.4995E+02_JPRB,1.2853E+02_JPRB,1.0711E+02_JPRB,8.5687E+01_JPRB,6.4265E+01_JPRB,&
+ & 4.2843E+01_JPRB,3.3181E+01_JPRB,3.8195E+01_JPRB/)  
+KAO( :, 3, 8,16) = (/&
+ & 2.5494E+02_JPRB,2.2307E+02_JPRB,1.9121E+02_JPRB,1.5934E+02_JPRB,1.2747E+02_JPRB,9.5603E+01_JPRB,&
+ & 6.3736E+01_JPRB,3.3454E+01_JPRB,3.8440E+01_JPRB/)  
+KAO( :, 4, 8,16) = (/&
+ & 3.5993E+02_JPRB,3.1494E+02_JPRB,2.6995E+02_JPRB,2.2496E+02_JPRB,1.7997E+02_JPRB,1.3498E+02_JPRB,&
+ & 8.9984E+01_JPRB,4.4992E+01_JPRB,3.8593E+01_JPRB/)  
+KAO( :, 5, 8,16) = (/&
+ & 4.8664E+02_JPRB,4.2581E+02_JPRB,3.6498E+02_JPRB,3.0415E+02_JPRB,2.4332E+02_JPRB,1.8249E+02_JPRB,&
+ & 1.2166E+02_JPRB,6.0830E+01_JPRB,3.8660E+01_JPRB/)  
+KAO( :, 1, 9,16) = (/&
+ & 9.5566E+01_JPRB,8.3620E+01_JPRB,7.1674E+01_JPRB,5.9728E+01_JPRB,4.7783E+01_JPRB,3.5837E+01_JPRB,&
+ & 3.4022E+01_JPRB,3.9693E+01_JPRB,4.5621E+01_JPRB/)  
+KAO( :, 2, 9,16) = (/&
+ & 1.5795E+02_JPRB,1.3820E+02_JPRB,1.1846E+02_JPRB,9.8717E+01_JPRB,7.8974E+01_JPRB,5.9230E+01_JPRB,&
+ & 3.9487E+01_JPRB,4.0126E+01_JPRB,4.6102E+01_JPRB/)  
+KAO( :, 3, 9,16) = (/&
+ & 2.4293E+02_JPRB,2.1257E+02_JPRB,1.8220E+02_JPRB,1.5183E+02_JPRB,1.2147E+02_JPRB,9.1099E+01_JPRB,&
+ & 6.0733E+01_JPRB,4.0455E+01_JPRB,4.6460E+01_JPRB/)  
+KAO( :, 4, 9,16) = (/&
+ & 3.5246E+02_JPRB,3.0840E+02_JPRB,2.6435E+02_JPRB,2.2029E+02_JPRB,1.7623E+02_JPRB,1.3217E+02_JPRB,&
+ & 8.8115E+01_JPRB,4.4330E+01_JPRB,4.6688E+01_JPRB/)  
+KAO( :, 5, 9,16) = (/&
+ & 4.8730E+02_JPRB,4.2639E+02_JPRB,3.6548E+02_JPRB,3.0456E+02_JPRB,2.4365E+02_JPRB,1.8274E+02_JPRB,&
+ & 1.2183E+02_JPRB,6.0913E+01_JPRB,4.6814E+01_JPRB/)  
+KAO( :, 1,10,16) = (/&
+ & 8.6364E+01_JPRB,7.5568E+01_JPRB,6.4773E+01_JPRB,5.3977E+01_JPRB,4.3182E+01_JPRB,3.4440E+01_JPRB,&
+ & 4.1088E+01_JPRB,4.7936E+01_JPRB,5.5004E+01_JPRB/)  
+KAO( :, 2,10,16) = (/&
+ & 1.4833E+02_JPRB,1.2979E+02_JPRB,1.1125E+02_JPRB,9.2705E+01_JPRB,7.4164E+01_JPRB,5.5623E+01_JPRB,&
+ & 4.1568E+01_JPRB,4.8496E+01_JPRB,5.5636E+01_JPRB/)  
+KAO( :, 3,10,16) = (/&
+ & 2.3518E+02_JPRB,2.0578E+02_JPRB,1.7638E+02_JPRB,1.4699E+02_JPRB,1.1759E+02_JPRB,8.8191E+01_JPRB,&
+ & 5.8794E+01_JPRB,4.8955E+01_JPRB,5.6147E+01_JPRB/)  
+KAO( :, 4,10,16) = (/&
+ & 3.4963E+02_JPRB,3.0592E+02_JPRB,2.6222E+02_JPRB,2.1852E+02_JPRB,1.7481E+02_JPRB,1.3111E+02_JPRB,&
+ & 8.7406E+01_JPRB,4.9235E+01_JPRB,5.6450E+01_JPRB/)  
+KAO( :, 5,10,16) = (/&
+ & 4.9302E+02_JPRB,4.3139E+02_JPRB,3.6977E+02_JPRB,3.0814E+02_JPRB,2.4651E+02_JPRB,1.8488E+02_JPRB,&
+ & 1.2326E+02_JPRB,6.1628E+01_JPRB,5.6644E+01_JPRB/)  
+KAO( :, 1,11,16) = (/&
+ & 1.0149E+02_JPRB,8.8804E+01_JPRB,7.6118E+01_JPRB,6.3431E+01_JPRB,5.0745E+01_JPRB,4.1772E+01_JPRB,&
+ & 4.9883E+01_JPRB,5.8197E+01_JPRB,6.6698E+01_JPRB/)  
+KAO( :, 2,11,16) = (/&
+ & 1.7380E+02_JPRB,1.5208E+02_JPRB,1.3035E+02_JPRB,1.0863E+02_JPRB,8.6902E+01_JPRB,6.5176E+01_JPRB,&
+ & 5.0425E+01_JPRB,5.8829E+01_JPRB,6.7412E+01_JPRB/)  
+KAO( :, 3,11,16) = (/&
+ & 2.7485E+02_JPRB,2.4050E+02_JPRB,2.0614E+02_JPRB,1.7178E+02_JPRB,1.3743E+02_JPRB,1.0307E+02_JPRB,&
+ & 6.8713E+01_JPRB,5.9345E+01_JPRB,6.7990E+01_JPRB/)  
+KAO( :, 4,11,16) = (/&
+ & 4.0747E+02_JPRB,3.5653E+02_JPRB,3.0560E+02_JPRB,2.5467E+02_JPRB,2.0373E+02_JPRB,1.5280E+02_JPRB,&
+ & 1.0187E+02_JPRB,5.9645E+01_JPRB,6.8320E+01_JPRB/)  
+KAO( :, 5,11,16) = (/&
+ & 5.7295E+02_JPRB,5.0133E+02_JPRB,4.2971E+02_JPRB,3.5809E+02_JPRB,2.8648E+02_JPRB,2.1486E+02_JPRB,&
+ & 1.4324E+02_JPRB,7.2192E+01_JPRB,6.8483E+01_JPRB/)  
+KAO( :, 1,12,16) = (/&
+ & 1.1827E+02_JPRB,1.0349E+02_JPRB,8.8705E+01_JPRB,7.3921E+01_JPRB,5.9137E+01_JPRB,5.0630E+01_JPRB,&
+ & 6.0438E+01_JPRB,7.0510E+01_JPRB,8.0746E+01_JPRB/)  
+KAO( :, 2,12,16) = (/&
+ & 2.0179E+02_JPRB,1.7656E+02_JPRB,1.5134E+02_JPRB,1.2612E+02_JPRB,1.0089E+02_JPRB,7.5670E+01_JPRB,&
+ & 6.1072E+01_JPRB,7.1251E+01_JPRB,8.1581E+01_JPRB/)  
+KAO( :, 3,12,16) = (/&
+ & 3.1798E+02_JPRB,2.7824E+02_JPRB,2.3849E+02_JPRB,1.9874E+02_JPRB,1.5899E+02_JPRB,1.1924E+02_JPRB,&
+ & 7.9796E+01_JPRB,7.1750E+01_JPRB,8.2143E+01_JPRB/)  
+KAO( :, 4,12,16) = (/&
+ & 4.7106E+02_JPRB,4.1218E+02_JPRB,3.5330E+02_JPRB,2.9441E+02_JPRB,2.3553E+02_JPRB,1.7665E+02_JPRB,&
+ & 1.1777E+02_JPRB,7.2076E+01_JPRB,8.2504E+01_JPRB/)  
+KAO( :, 5,12,16) = (/&
+ & 6.6390E+02_JPRB,5.8091E+02_JPRB,4.9792E+02_JPRB,4.1494E+02_JPRB,3.3195E+02_JPRB,2.4896E+02_JPRB,&
+ & 1.6597E+02_JPRB,8.4840E+01_JPRB,8.2551E+01_JPRB/)  
+KAO( :, 1,13,16) = (/&
+ & 1.3595E+02_JPRB,1.1896E+02_JPRB,1.0196E+02_JPRB,8.4968E+01_JPRB,6.8087E+01_JPRB,6.1225E+01_JPRB,&
+ & 7.3041E+01_JPRB,8.5214E+01_JPRB,9.7532E+01_JPRB/)  
+KAO( :, 2,13,16) = (/&
+ & 2.3178E+02_JPRB,2.0280E+02_JPRB,1.7383E+02_JPRB,1.4486E+02_JPRB,1.1589E+02_JPRB,8.6916E+01_JPRB,&
+ & 7.3742E+01_JPRB,8.6032E+01_JPRB,9.8456E+01_JPRB/)  
+KAO( :, 3,13,16) = (/&
+ & 3.6636E+02_JPRB,3.2056E+02_JPRB,2.7477E+02_JPRB,2.2897E+02_JPRB,1.8318E+02_JPRB,1.3738E+02_JPRB,&
+ & 9.2837E+01_JPRB,8.6498E+01_JPRB,9.8980E+01_JPRB/)  
+KAO( :, 4,13,16) = (/&
+ & 5.4438E+02_JPRB,4.7633E+02_JPRB,4.0829E+02_JPRB,3.4024E+02_JPRB,2.7219E+02_JPRB,2.0414E+02_JPRB,&
+ & 1.3610E+02_JPRB,8.6750E+01_JPRB,9.9251E+01_JPRB/)  
+KAO( :, 5,13,16) = (/&
+ & 7.6815E+02_JPRB,6.7213E+02_JPRB,5.7611E+02_JPRB,4.8009E+02_JPRB,3.8407E+02_JPRB,2.8805E+02_JPRB,&
+ & 1.9204E+02_JPRB,9.9763E+01_JPRB,9.9159E+01_JPRB/)  
+
+!     The array SELFREFO contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+SELFREFO( :, 1) = (/&
+ & 1.72146E-03_JPRB, 1.41213E-03_JPRB, 1.15839E-03_JPRB, 9.50236E-04_JPRB, 7.79489E-04_JPRB,&
+ & 6.39423E-04_JPRB, 5.24525E-04_JPRB, 4.30274E-04_JPRB, 3.52958E-04_JPRB, 2.89535E-04_JPRB/)  
+SELFREFO( :, 2) = (/&
+ & 1.83092E-03_JPRB, 1.50082E-03_JPRB, 1.23023E-03_JPRB, 1.00843E-03_JPRB, 8.26611E-04_JPRB,&
+ & 6.77578E-04_JPRB, 5.55414E-04_JPRB, 4.55276E-04_JPRB, 3.73192E-04_JPRB, 3.05908E-04_JPRB/)  
+SELFREFO( :, 3) = (/&
+ & 1.92620E-03_JPRB, 1.57871E-03_JPRB, 1.29391E-03_JPRB, 1.06048E-03_JPRB, 8.69169E-04_JPRB,&
+ & 7.12370E-04_JPRB, 5.83857E-04_JPRB, 4.78528E-04_JPRB, 3.92201E-04_JPRB, 3.21447E-04_JPRB/)  
+SELFREFO( :, 4) = (/&
+ & 2.11224E-03_JPRB, 1.72966E-03_JPRB, 1.41638E-03_JPRB, 1.15984E-03_JPRB, 9.49760E-04_JPRB,&
+ & 7.77734E-04_JPRB, 6.36867E-04_JPRB, 5.21514E-04_JPRB, 4.27055E-04_JPRB, 3.49704E-04_JPRB/)  
+SELFREFO( :, 5) = (/&
+ & 2.31367E-03_JPRB, 1.88988E-03_JPRB, 1.54371E-03_JPRB, 1.26095E-03_JPRB, 1.02999E-03_JPRB,&
+ & 8.41325E-04_JPRB, 6.87221E-04_JPRB, 5.61344E-04_JPRB, 4.58523E-04_JPRB, 3.74536E-04_JPRB/)  
+SELFREFO( :, 6) = (/&
+ & 2.47614E-03_JPRB, 2.03107E-03_JPRB, 1.66599E-03_JPRB, 1.36654E-03_JPRB, 1.12091E-03_JPRB,&
+ & 9.19433E-04_JPRB, 7.54170E-04_JPRB, 6.18612E-04_JPRB, 5.07419E-04_JPRB, 4.16213E-04_JPRB/)  
+SELFREFO( :, 7) = (/&
+ & 2.55137E-03_JPRB, 2.10353E-03_JPRB, 1.73430E-03_JPRB, 1.42987E-03_JPRB, 1.17889E-03_JPRB,&
+ & 9.71958E-04_JPRB, 8.01350E-04_JPRB, 6.60688E-04_JPRB, 5.44717E-04_JPRB, 4.49103E-04_JPRB/)  
+SELFREFO( :, 8) = (/&
+ & 2.59317E-03_JPRB, 2.13957E-03_JPRB, 1.76532E-03_JPRB, 1.45653E-03_JPRB, 1.20175E-03_JPRB,&
+ & 9.91539E-04_JPRB, 8.18098E-04_JPRB, 6.74996E-04_JPRB, 5.56926E-04_JPRB, 4.59508E-04_JPRB/)  
+SELFREFO( :, 9) = (/&
+ & 2.83495E-03_JPRB, 2.34704E-03_JPRB, 1.94309E-03_JPRB, 1.60867E-03_JPRB, 1.33181E-03_JPRB,&
+ & 1.10259E-03_JPRB, 9.12826E-04_JPRB, 7.55721E-04_JPRB, 6.25656E-04_JPRB, 5.17975E-04_JPRB/)  
+SELFREFO( :,10) = (/&
+ & 2.98196E-03_JPRB, 2.46746E-03_JPRB, 2.04173E-03_JPRB, 1.68946E-03_JPRB, 1.39796E-03_JPRB,&
+ & 1.15676E-03_JPRB, 9.57177E-04_JPRB, 7.92028E-04_JPRB, 6.55373E-04_JPRB, 5.42297E-04_JPRB/)  
+SELFREFO( :,11) = (/&
+ & 2.98241E-03_JPRB, 2.46776E-03_JPRB, 2.04191E-03_JPRB, 1.68955E-03_JPRB, 1.39800E-03_JPRB,&
+ & 1.15675E-03_JPRB, 9.57141E-04_JPRB, 7.91974E-04_JPRB, 6.55308E-04_JPRB, 5.42226E-04_JPRB/)  
+SELFREFO( :,12) = (/&
+ & 2.97837E-03_JPRB, 2.46464E-03_JPRB, 2.03952E-03_JPRB, 1.68773E-03_JPRB, 1.39662E-03_JPRB,&
+ & 1.15572E-03_JPRB, 9.56375E-04_JPRB, 7.91413E-04_JPRB, 6.54904E-04_JPRB, 5.41942E-04_JPRB/)  
+SELFREFO( :,13) = (/&
+ & 2.97777E-03_JPRB, 2.46461E-03_JPRB, 2.03989E-03_JPRB, 1.68835E-03_JPRB, 1.39740E-03_JPRB,&
+ & 1.15659E-03_JPRB, 9.57271E-04_JPRB, 7.92305E-04_JPRB, 6.55767E-04_JPRB, 5.42759E-04_JPRB/)  
+SELFREFO( :,14) = (/&
+ & 2.98331E-03_JPRB, 2.46947E-03_JPRB, 2.04413E-03_JPRB, 1.69205E-03_JPRB, 1.40061E-03_JPRB,&
+ & 1.15937E-03_JPRB, 9.59683E-04_JPRB, 7.94388E-04_JPRB, 6.57564E-04_JPRB, 5.44306E-04_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB15:PART11',1,ZHOOK_HANDLE)
+END SUBROUTINE PART11
+
+
+SUBROUTINE PART12
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB15:PART12',0,ZHOOK_HANDLE)
+
+
+SELFREFO( :,15) = (/&
+ & 2.99414E-03_JPRB, 2.47830E-03_JPRB, 2.05133E-03_JPRB, 1.69792E-03_JPRB, 1.40540E-03_JPRB,&
+ & 1.16328E-03_JPRB, 9.62863E-04_JPRB, 7.96978E-04_JPRB, 6.59673E-04_JPRB, 5.46023E-04_JPRB/)  
+SELFREFO( :,16) = (/&
+ & 3.00006E-03_JPRB, 2.48297E-03_JPRB, 2.05501E-03_JPRB, 1.70081E-03_JPRB, 1.40766E-03_JPRB,&
+ & 1.16503E-03_JPRB, 9.64227E-04_JPRB, 7.98033E-04_JPRB, 6.60484E-04_JPRB, 5.46643E-04_JPRB/)  
+
+FRACREFAO( :, 1) = (/&
+ !     From P = 1053.6 mb.
+ & 0.11287100_JPRB,0.12070200_JPRB,0.12729000_JPRB,0.12858100_JPRB,&
+ & 0.12743001_JPRB,0.11961800_JPRB,0.10290400_JPRB,0.07888980_JPRB,&
+ & 0.05900120_JPRB,0.00667979_JPRB,0.00552926_JPRB,0.00436993_JPRB,&
+ & 0.00320611_JPRB,0.00204765_JPRB,0.00077371_JPRB,0.00010894_JPRB/)  
+FRACREFAO( :, 2) = (/&
+ & 0.13918801_JPRB,0.16353001_JPRB,0.16155800_JPRB,0.14090499_JPRB,&
+ & 0.11322300_JPRB,0.08757720_JPRB,0.07225720_JPRB,0.05173390_JPRB,&
+ & 0.04731360_JPRB,0.00667979_JPRB,0.00552926_JPRB,0.00436993_JPRB,&
+ & 0.00320611_JPRB,0.00204765_JPRB,0.00077371_JPRB,0.00010894_JPRB/)  
+FRACREFAO( :, 3) = (/&
+ & 0.14687300_JPRB,0.17853101_JPRB,0.15664500_JPRB,0.13351700_JPRB,&
+ & 0.10791200_JPRB,0.08684320_JPRB,0.07158090_JPRB,0.05198410_JPRB,&
+ & 0.04340110_JPRB,0.00667979_JPRB,0.00552926_JPRB,0.00436993_JPRB,&
+ & 0.00320611_JPRB,0.00204765_JPRB,0.00077371_JPRB,0.00010894_JPRB/)  
+FRACREFAO( :, 4) = (/&
+ & 0.15760700_JPRB,0.17759100_JPRB,0.15158001_JPRB,0.13193300_JPRB,&
+ & 0.10742800_JPRB,0.08693760_JPRB,0.07159490_JPRB,0.05196250_JPRB,&
+ & 0.04065270_JPRB,0.00667979_JPRB,0.00552926_JPRB,0.00436993_JPRB,&
+ & 0.00320611_JPRB,0.00204765_JPRB,0.00077371_JPRB,0.00010894_JPRB/)  
+FRACREFAO( :, 5) = (/&
+ & 0.16646700_JPRB,0.17299300_JPRB,0.15018500_JPRB,0.13138700_JPRB,&
+ & 0.10735900_JPRB,0.08713110_JPRB,0.07130330_JPRB,0.05279420_JPRB,&
+ & 0.03766730_JPRB,0.00667979_JPRB,0.00552926_JPRB,0.00436993_JPRB,&
+ & 0.00320611_JPRB,0.00204765_JPRB,0.00077371_JPRB,0.00010894_JPRB/)  
+FRACREFAO( :, 6) = (/&
+ & 0.17546000_JPRB,0.16666500_JPRB,0.14969499_JPRB,0.13105400_JPRB,&
+ & 0.10782500_JPRB,0.08718610_JPRB,0.07156770_JPRB,0.05308320_JPRB,&
+ & 0.03753960_JPRB,0.00432465_JPRB,0.00509623_JPRB,0.00436993_JPRB,&
+ & 0.00320611_JPRB,0.00204765_JPRB,0.00077371_JPRB,0.00010894_JPRB/)  
+FRACREFAO( :, 7) = (/&
+ & 0.18378501_JPRB,0.16064601_JPRB,0.14940400_JPRB,0.13146400_JPRB,&
+ & 0.10810300_JPRB,0.08775740_JPRB,0.07115360_JPRB,0.05400040_JPRB,&
+ & 0.03689970_JPRB,0.00388333_JPRB,0.00323610_JPRB,0.00353414_JPRB,&
+ & 0.00320611_JPRB,0.00204765_JPRB,0.00077371_JPRB,0.00010894_JPRB/)  
+FRACREFAO( :, 8) = (/&
+ & 0.18966800_JPRB,0.15744300_JPRB,0.14993000_JPRB,0.13152599_JPRB,&
+ & 0.10899200_JPRB,0.08858690_JPRB,0.07142920_JPRB,0.05399600_JPRB,&
+ & 0.03433460_JPRB,0.00374886_JPRB,0.00302066_JPRB,0.00240653_JPRB,&
+ & 0.00199205_JPRB,0.00204765_JPRB,0.00077371_JPRB,0.00010894_JPRB/)  
+FRACREFAO( :, 9) = (/&
+ & 0.11887100_JPRB,0.12479600_JPRB,0.12569501_JPRB,0.12839900_JPRB,&
+ & 0.12473500_JPRB,0.12012800_JPRB,0.11086700_JPRB,0.08493590_JPRB,&
+ & 0.05063770_JPRB,0.00328723_JPRB,0.00266849_JPRB,0.00210232_JPRB,&
+ & 0.00152114_JPRB,0.00095635_JPRB,0.00035374_JPRB,0.00004980_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB15:PART12',1,ZHOOK_HANDLE)
+END SUBROUTINE PART12
+
+
+END SUBROUTINE RRTM_KGB15
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb15.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb15.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb15.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_KGB15
+END SUBROUTINE RRTM_KGB15
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb16.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb16.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb16.F90	(revision 1989)
@@ -0,0 +1,3422 @@
+!OCL SCALAR
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0 
+SUBROUTINE RRTM_KGB16
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 16:  2600-3000 cm-1 (low - H2O,CH4; high - nothing)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     R. Elkhatib 12-10-2005 Split for faster and more robust compilation.
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO16, ONLY : KAO     ,SELFREFO   ,FRACREFAO
+USE YOERRTA16, ONLY : STRRAT
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB16',0,ZHOOK_HANDLE)
+
+CALL PART1
+CALL PART2
+CALL PART3
+CALL PART4
+CALL PART5
+CALL PART6
+CALL PART7
+CALL PART8
+CALL PART9
+CALL PART10
+CALL PART11
+CALL PART12
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB16',1,ZHOOK_HANDLE)
+
+!     -----------------------------------------------------------------
+
+CONTAINS
+
+
+SUBROUTINE PART1
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART1',0,ZHOOK_HANDLE)
+
+
+STRRAT = 830.411_JPRB
+
+!     ------------------------------------------------------------------
+
+!     The array KAO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels> ~100mb, temperatures, and binary
+!     species parameters (see taumol.f for definition).  The first 
+!     index in the array, JS, runs from 1 to 9, and corresponds to 
+!     different values of the binary species parameter.  For instance, 
+!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, 
+!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index
+!     in the array, JT, which runs from 1 to 5, corresponds to different
+!     temperatures.  More specifically, JT = 3 means that the data are for
+!     the reference temperature TREF for this  pressure level, JT = 2 refers
+!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the JPth reference pressure level (see taumol.f for these levels
+!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates
+!     which g-interval the absorption coefficients are for.
+
+KAO( :, 1, 1, 1) = (/&
+ & 1.9384E-05_JPRB,2.9898E-05_JPRB,3.4062E-05_JPRB,3.6004E-05_JPRB,3.6430E-05_JPRB,3.5549E-05_JPRB,&
+ & 3.3320E-05_JPRB,2.9615E-05_JPRB,2.3873E-05_JPRB/)  
+KAO( :, 2, 1, 1) = (/&
+ & 1.9436E-05_JPRB,2.9740E-05_JPRB,3.3708E-05_JPRB,3.5476E-05_JPRB,3.5843E-05_JPRB,3.5033E-05_JPRB,&
+ & 3.2962E-05_JPRB,2.9462E-05_JPRB,2.4055E-05_JPRB/)  
+KAO( :, 3, 1, 1) = (/&
+ & 1.9464E-05_JPRB,2.9570E-05_JPRB,3.3324E-05_JPRB,3.4974E-05_JPRB,3.5304E-05_JPRB,3.4544E-05_JPRB,&
+ & 3.2637E-05_JPRB,2.9289E-05_JPRB,2.4237E-05_JPRB/)  
+KAO( :, 4, 1, 1) = (/&
+ & 1.9302E-05_JPRB,2.9247E-05_JPRB,3.2832E-05_JPRB,3.4416E-05_JPRB,3.4737E-05_JPRB,3.4031E-05_JPRB,&
+ & 3.2272E-05_JPRB,2.9080E-05_JPRB,2.4364E-05_JPRB/)  
+KAO( :, 5, 1, 1) = (/&
+ & 1.9123E-05_JPRB,2.8885E-05_JPRB,3.2360E-05_JPRB,3.3877E-05_JPRB,3.4211E-05_JPRB,3.3554E-05_JPRB,&
+ & 3.1880E-05_JPRB,2.8883E-05_JPRB,2.4458E-05_JPRB/)  
+KAO( :, 1, 2, 1) = (/&
+ & 1.6583E-05_JPRB,2.6012E-05_JPRB,2.9608E-05_JPRB,3.1154E-05_JPRB,3.1427E-05_JPRB,3.0616E-05_JPRB,&
+ & 2.8665E-05_JPRB,2.5368E-05_JPRB,2.0615E-05_JPRB/)  
+KAO( :, 2, 2, 1) = (/&
+ & 1.6630E-05_JPRB,2.5863E-05_JPRB,2.9249E-05_JPRB,3.0678E-05_JPRB,3.0941E-05_JPRB,3.0197E-05_JPRB,&
+ & 2.8392E-05_JPRB,2.5270E-05_JPRB,2.0786E-05_JPRB/)  
+KAO( :, 3, 2, 1) = (/&
+ & 1.6647E-05_JPRB,2.5697E-05_JPRB,2.8891E-05_JPRB,3.0222E-05_JPRB,3.0484E-05_JPRB,2.9802E-05_JPRB,&
+ & 2.8138E-05_JPRB,2.5165E-05_JPRB,2.0933E-05_JPRB/)  
+KAO( :, 4, 2, 1) = (/&
+ & 1.6540E-05_JPRB,2.5405E-05_JPRB,2.8466E-05_JPRB,2.9745E-05_JPRB,3.0011E-05_JPRB,2.9400E-05_JPRB,&
+ & 2.7847E-05_JPRB,2.5027E-05_JPRB,2.1051E-05_JPRB/)  
+KAO( :, 5, 2, 1) = (/&
+ & 1.6324E-05_JPRB,2.5032E-05_JPRB,2.7991E-05_JPRB,2.9251E-05_JPRB,2.9530E-05_JPRB,2.8984E-05_JPRB,&
+ & 2.7519E-05_JPRB,2.4864E-05_JPRB,2.1134E-05_JPRB/)  
+KAO( :, 1, 3, 1) = (/&
+ & 1.4086E-05_JPRB,2.2526E-05_JPRB,2.5577E-05_JPRB,2.6862E-05_JPRB,2.7021E-05_JPRB,2.6302E-05_JPRB,&
+ & 2.4576E-05_JPRB,2.1643E-05_JPRB,1.8751E-05_JPRB/)  
+KAO( :, 2, 3, 1) = (/&
+ & 1.4131E-05_JPRB,2.2392E-05_JPRB,2.5264E-05_JPRB,2.6452E-05_JPRB,2.6617E-05_JPRB,2.5964E-05_JPRB,&
+ & 2.4370E-05_JPRB,2.1595E-05_JPRB,1.8898E-05_JPRB/)  
+KAO( :, 3, 3, 1) = (/&
+ & 1.4113E-05_JPRB,2.2191E-05_JPRB,2.4900E-05_JPRB,2.6018E-05_JPRB,2.6215E-05_JPRB,2.5621E-05_JPRB,&
+ & 2.4158E-05_JPRB,2.1540E-05_JPRB,1.9048E-05_JPRB/)  
+KAO( :, 4, 3, 1) = (/&
+ & 1.4058E-05_JPRB,2.1961E-05_JPRB,2.4548E-05_JPRB,2.5623E-05_JPRB,2.5838E-05_JPRB,2.5312E-05_JPRB,&
+ & 2.3952E-05_JPRB,2.1469E-05_JPRB,1.9182E-05_JPRB/)  
+KAO( :, 5, 3, 1) = (/&
+ & 1.3863E-05_JPRB,2.1619E-05_JPRB,2.4113E-05_JPRB,2.5184E-05_JPRB,2.5419E-05_JPRB,2.4957E-05_JPRB,&
+ & 2.3697E-05_JPRB,2.1357E-05_JPRB,1.9265E-05_JPRB/)  
+KAO( :, 1, 4, 1) = (/&
+ & 1.1900E-05_JPRB,1.9396E-05_JPRB,2.1993E-05_JPRB,2.3049E-05_JPRB,2.3163E-05_JPRB,2.2508E-05_JPRB,&
+ & 2.0982E-05_JPRB,1.8407E-05_JPRB,1.7094E-05_JPRB/)  
+KAO( :, 2, 4, 1) = (/&
+ & 1.1936E-05_JPRB,1.9289E-05_JPRB,2.1740E-05_JPRB,2.2712E-05_JPRB,2.2827E-05_JPRB,2.2234E-05_JPRB,&
+ & 2.0833E-05_JPRB,1.8390E-05_JPRB,1.7367E-05_JPRB/)  
+KAO( :, 3, 4, 1) = (/&
+ & 1.1914E-05_JPRB,1.9113E-05_JPRB,2.1420E-05_JPRB,2.2348E-05_JPRB,2.2488E-05_JPRB,2.1958E-05_JPRB,&
+ & 2.0668E-05_JPRB,1.8368E-05_JPRB,1.7624E-05_JPRB/)  
+KAO( :, 4, 4, 1) = (/&
+ & 1.1850E-05_JPRB,1.8882E-05_JPRB,2.1069E-05_JPRB,2.1971E-05_JPRB,2.2145E-05_JPRB,2.1684E-05_JPRB,&
+ & 2.0493E-05_JPRB,1.8332E-05_JPRB,1.7862E-05_JPRB/)  
+KAO( :, 5, 4, 1) = (/&
+ & 1.1744E-05_JPRB,1.8626E-05_JPRB,2.0733E-05_JPRB,2.1634E-05_JPRB,2.1819E-05_JPRB,2.1414E-05_JPRB,&
+ & 2.0321E-05_JPRB,1.8279E-05_JPRB,1.8065E-05_JPRB/)  
+KAO( :, 1, 5, 1) = (/&
+ & 1.0007E-05_JPRB,1.6633E-05_JPRB,1.8846E-05_JPRB,1.9714E-05_JPRB,1.9792E-05_JPRB,1.9192E-05_JPRB,&
+ & 1.7849E-05_JPRB,1.5620E-05_JPRB,1.4831E-05_JPRB/)  
+KAO( :, 2, 5, 1) = (/&
+ & 1.0036E-05_JPRB,1.6537E-05_JPRB,1.8619E-05_JPRB,1.9430E-05_JPRB,1.9510E-05_JPRB,1.8974E-05_JPRB,&
+ & 1.7727E-05_JPRB,1.5597E-05_JPRB,1.5243E-05_JPRB/)  
+KAO( :, 3, 5, 1) = (/&
+ & 1.0020E-05_JPRB,1.6382E-05_JPRB,1.8357E-05_JPRB,1.9125E-05_JPRB,1.9225E-05_JPRB,1.8747E-05_JPRB,&
+ & 1.7610E-05_JPRB,1.5596E-05_JPRB,1.5694E-05_JPRB/)  
+KAO( :, 4, 5, 1) = (/&
+ & 9.9655E-06_JPRB,1.6185E-05_JPRB,1.8047E-05_JPRB,1.8806E-05_JPRB,1.8930E-05_JPRB,1.8511E-05_JPRB,&
+ & 1.7475E-05_JPRB,1.5592E-05_JPRB,1.6134E-05_JPRB/)  
+KAO( :, 5, 5, 1) = (/&
+ & 9.8924E-06_JPRB,1.5961E-05_JPRB,1.7750E-05_JPRB,1.8511E-05_JPRB,1.8653E-05_JPRB,1.8287E-05_JPRB,&
+ & 1.7340E-05_JPRB,1.5571E-05_JPRB,1.6528E-05_JPRB/)  
+KAO( :, 1, 6, 1) = (/&
+ & 8.3773E-06_JPRB,1.4205E-05_JPRB,1.6091E-05_JPRB,1.6810E-05_JPRB,1.6854E-05_JPRB,1.6312E-05_JPRB,&
+ & 1.5134E-05_JPRB,1.3227E-05_JPRB,1.2806E-05_JPRB/)  
+KAO( :, 2, 6, 1) = (/&
+ & 8.4040E-06_JPRB,1.4116E-05_JPRB,1.5890E-05_JPRB,1.6565E-05_JPRB,1.6618E-05_JPRB,1.6134E-05_JPRB,&
+ & 1.5030E-05_JPRB,1.3175E-05_JPRB,1.3188E-05_JPRB/)  
+KAO( :, 3, 6, 1) = (/&
+ & 8.3967E-06_JPRB,1.3982E-05_JPRB,1.5670E-05_JPRB,1.6315E-05_JPRB,1.6378E-05_JPRB,1.5948E-05_JPRB,&
+ & 1.4938E-05_JPRB,1.3181E-05_JPRB,1.3640E-05_JPRB/)  
+KAO( :, 4, 6, 1) = (/&
+ & 8.3520E-06_JPRB,1.3808E-05_JPRB,1.5410E-05_JPRB,1.6041E-05_JPRB,1.6129E-05_JPRB,1.5748E-05_JPRB,&
+ & 1.4840E-05_JPRB,1.3187E-05_JPRB,1.4105E-05_JPRB/)  
+KAO( :, 5, 6, 1) = (/&
+ & 8.2808E-06_JPRB,1.3600E-05_JPRB,1.5125E-05_JPRB,1.5766E-05_JPRB,1.5873E-05_JPRB,1.5546E-05_JPRB,&
+ & 1.4725E-05_JPRB,1.3184E-05_JPRB,1.4585E-05_JPRB/)  
+KAO( :, 1, 7, 1) = (/&
+ & 6.9702E-06_JPRB,1.2049E-05_JPRB,1.3655E-05_JPRB,1.4254E-05_JPRB,1.4272E-05_JPRB,1.3786E-05_JPRB,&
+ & 1.2775E-05_JPRB,1.1193E-05_JPRB,1.1151E-05_JPRB/)  
+KAO( :, 2, 7, 1) = (/&
+ & 6.9954E-06_JPRB,1.1967E-05_JPRB,1.3478E-05_JPRB,1.4043E-05_JPRB,1.4073E-05_JPRB,1.3643E-05_JPRB,&
+ & 1.2677E-05_JPRB,1.1085E-05_JPRB,1.1514E-05_JPRB/)  
+KAO( :, 3, 7, 1) = (/&
+ & 6.9926E-06_JPRB,1.1851E-05_JPRB,1.3284E-05_JPRB,1.3826E-05_JPRB,1.3871E-05_JPRB,1.3488E-05_JPRB,&
+ & 1.2600E-05_JPRB,1.1081E-05_JPRB,1.1911E-05_JPRB/)  
+KAO( :, 4, 7, 1) = (/&
+ & 6.9597E-06_JPRB,1.1700E-05_JPRB,1.3068E-05_JPRB,1.3600E-05_JPRB,1.3659E-05_JPRB,1.3321E-05_JPRB,&
+ & 1.2522E-05_JPRB,1.1091E-05_JPRB,1.2356E-05_JPRB/)  
+KAO( :, 5, 7, 1) = (/&
+ & 6.9051E-06_JPRB,1.1522E-05_JPRB,1.2825E-05_JPRB,1.3359E-05_JPRB,1.3444E-05_JPRB,1.3151E-05_JPRB,&
+ & 1.2435E-05_JPRB,1.1100E-05_JPRB,1.2847E-05_JPRB/)  
+KAO( :, 1, 8, 1) = (/&
+ & 5.8087E-06_JPRB,1.0208E-05_JPRB,1.1579E-05_JPRB,1.2087E-05_JPRB,1.2081E-05_JPRB,1.1640E-05_JPRB,&
+ & 1.0763E-05_JPRB,9.5182E-06_JPRB,9.7914E-06_JPRB/)  
+KAO( :, 2, 8, 1) = (/&
+ & 5.8314E-06_JPRB,1.0134E-05_JPRB,1.1429E-05_JPRB,1.1911E-05_JPRB,1.1918E-05_JPRB,1.1522E-05_JPRB,&
+ & 1.0685E-05_JPRB,9.3144E-06_JPRB,1.0107E-05_JPRB/)  
+KAO( :, 3, 8, 1) = (/&
+ & 5.8306E-06_JPRB,1.0039E-05_JPRB,1.1263E-05_JPRB,1.1721E-05_JPRB,1.1741E-05_JPRB,1.1392E-05_JPRB,&
+ & 1.0611E-05_JPRB,9.2970E-06_JPRB,1.0491E-05_JPRB/)  
+KAO( :, 4, 8, 1) = (/&
+ & 5.8084E-06_JPRB,9.9094E-06_JPRB,1.1082E-05_JPRB,1.1528E-05_JPRB,1.1564E-05_JPRB,1.1253E-05_JPRB,&
+ & 1.0543E-05_JPRB,9.3028E-06_JPRB,1.0943E-05_JPRB/)  
+KAO( :, 5, 8, 1) = (/&
+ & 5.7671E-06_JPRB,9.7597E-06_JPRB,1.0878E-05_JPRB,1.1322E-05_JPRB,1.1380E-05_JPRB,1.1112E-05_JPRB,&
+ & 1.0475E-05_JPRB,9.3153E-06_JPRB,1.1451E-05_JPRB/)  
+KAO( :, 1, 9, 1) = (/&
+ & 4.8301E-06_JPRB,8.6067E-06_JPRB,9.7714E-06_JPRB,1.0210E-05_JPRB,1.0192E-05_JPRB,9.7977E-06_JPRB,&
+ & 9.0505E-06_JPRB,8.2004E-06_JPRB,9.1168E-06_JPRB/)  
+KAO( :, 2, 9, 1) = (/&
+ & 4.8495E-06_JPRB,8.5468E-06_JPRB,9.6571E-06_JPRB,1.0063E-05_JPRB,1.0051E-05_JPRB,9.6903E-06_JPRB,&
+ & 8.9660E-06_JPRB,7.8251E-06_JPRB,9.4876E-06_JPRB/)  
+KAO( :, 3, 9, 1) = (/&
+ & 4.8497E-06_JPRB,8.4643E-06_JPRB,9.5144E-06_JPRB,9.9014E-06_JPRB,9.9028E-06_JPRB,9.5821E-06_JPRB,&
+ & 8.9043E-06_JPRB,7.7718E-06_JPRB,9.9373E-06_JPRB/)  
+KAO( :, 4, 9, 1) = (/&
+ & 4.8347E-06_JPRB,8.3597E-06_JPRB,9.3601E-06_JPRB,9.7348E-06_JPRB,9.7523E-06_JPRB,9.4691E-06_JPRB,&
+ & 8.8479E-06_JPRB,7.7751E-06_JPRB,1.0480E-05_JPRB/)  
+KAO( :, 5, 9, 1) = (/&
+ & 4.8060E-06_JPRB,8.2344E-06_JPRB,9.1913E-06_JPRB,9.5624E-06_JPRB,9.5965E-06_JPRB,9.3522E-06_JPRB,&
+ & 8.7881E-06_JPRB,7.7833E-06_JPRB,1.1108E-05_JPRB/)  
+KAO( :, 1,10, 1) = (/&
+ & 4.0064E-06_JPRB,7.2194E-06_JPRB,8.1998E-06_JPRB,8.5791E-06_JPRB,8.5570E-06_JPRB,8.2127E-06_JPRB,&
+ & 7.5956E-06_JPRB,7.1868E-06_JPRB,1.0453E-05_JPRB/)  
+KAO( :, 2,10, 1) = (/&
+ & 4.0197E-06_JPRB,7.1679E-06_JPRB,8.1105E-06_JPRB,8.4531E-06_JPRB,8.4331E-06_JPRB,8.1149E-06_JPRB,&
+ & 7.4918E-06_JPRB,6.5776E-06_JPRB,1.0520E-05_JPRB/)  
+KAO( :, 3,10, 1) = (/&
+ & 4.0198E-06_JPRB,7.0974E-06_JPRB,7.9934E-06_JPRB,8.3195E-06_JPRB,8.3088E-06_JPRB,8.0216E-06_JPRB,&
+ & 7.4367E-06_JPRB,6.4788E-06_JPRB,1.0711E-05_JPRB/)  
+KAO( :, 4,10, 1) = (/&
+ & 4.0097E-06_JPRB,7.0130E-06_JPRB,7.8610E-06_JPRB,8.1737E-06_JPRB,8.1778E-06_JPRB,7.9289E-06_JPRB,&
+ & 7.3886E-06_JPRB,6.4723E-06_JPRB,1.1047E-05_JPRB/)  
+KAO( :, 5,10, 1) = (/&
+ & 3.9884E-06_JPRB,6.9092E-06_JPRB,7.7198E-06_JPRB,8.0283E-06_JPRB,8.0487E-06_JPRB,7.8282E-06_JPRB,&
+ & 7.3394E-06_JPRB,6.4785E-06_JPRB,1.1524E-05_JPRB/)  
+KAO( :, 1,11, 1) = (/&
+ & 3.3235E-06_JPRB,6.0184E-06_JPRB,6.8284E-06_JPRB,7.1399E-06_JPRB,7.1176E-06_JPRB,6.8268E-06_JPRB,&
+ & 6.3069E-06_JPRB,5.9015E-06_JPRB,1.0775E-05_JPRB/)  
+KAO( :, 2,11, 1) = (/&
+ & 3.3290E-06_JPRB,5.9691E-06_JPRB,6.7492E-06_JPRB,7.0301E-06_JPRB,7.0090E-06_JPRB,6.7423E-06_JPRB,&
+ & 6.2217E-06_JPRB,5.4471E-06_JPRB,1.0671E-05_JPRB/)  
+KAO( :, 3,11, 1) = (/&
+ & 3.3251E-06_JPRB,5.9052E-06_JPRB,6.6470E-06_JPRB,6.9153E-06_JPRB,6.9027E-06_JPRB,6.6631E-06_JPRB,&
+ & 6.1768E-06_JPRB,5.3794E-06_JPRB,1.0714E-05_JPRB/)  
+KAO( :, 4,11, 1) = (/&
+ & 3.3144E-06_JPRB,5.8297E-06_JPRB,6.5309E-06_JPRB,6.7910E-06_JPRB,6.7926E-06_JPRB,6.5831E-06_JPRB,&
+ & 6.1358E-06_JPRB,5.3736E-06_JPRB,1.0902E-05_JPRB/)  
+KAO( :, 5,11, 1) = (/&
+ & 3.2953E-06_JPRB,5.7419E-06_JPRB,6.4131E-06_JPRB,6.6688E-06_JPRB,6.6812E-06_JPRB,6.4951E-06_JPRB,&
+ & 6.0888E-06_JPRB,5.3759E-06_JPRB,1.1211E-05_JPRB/)  
+KAO( :, 1,12, 1) = (/&
+ & 2.7539E-06_JPRB,5.0055E-06_JPRB,5.6748E-06_JPRB,5.9323E-06_JPRB,5.9106E-06_JPRB,5.6659E-06_JPRB,&
+ & 5.2301E-06_JPRB,4.8410E-06_JPRB,1.0041E-05_JPRB/)  
+KAO( :, 2,12, 1) = (/&
+ & 2.7540E-06_JPRB,4.9609E-06_JPRB,5.6055E-06_JPRB,5.8388E-06_JPRB,5.8173E-06_JPRB,5.5933E-06_JPRB,&
+ & 5.1585E-06_JPRB,4.5035E-06_JPRB,9.8783E-06_JPRB/)  
+KAO( :, 3,12, 1) = (/&
+ & 2.7488E-06_JPRB,4.9048E-06_JPRB,5.5190E-06_JPRB,5.7407E-06_JPRB,5.7275E-06_JPRB,5.5257E-06_JPRB,&
+ & 5.1201E-06_JPRB,4.4556E-06_JPRB,9.8584E-06_JPRB/)  
+KAO( :, 4,12, 1) = (/&
+ & 2.7385E-06_JPRB,4.8395E-06_JPRB,5.4207E-06_JPRB,5.6356E-06_JPRB,5.6337E-06_JPRB,5.4559E-06_JPRB,&
+ & 5.0826E-06_JPRB,4.4482E-06_JPRB,9.9631E-06_JPRB/)  
+KAO( :, 5,12, 1) = (/&
+ & 2.7214E-06_JPRB,4.7654E-06_JPRB,5.3225E-06_JPRB,5.5318E-06_JPRB,5.5373E-06_JPRB,5.3782E-06_JPRB,&
+ & 5.0386E-06_JPRB,4.4476E-06_JPRB,1.0178E-05_JPRB/)  
+KAO( :, 1,13, 1) = (/&
+ & 2.2801E-06_JPRB,4.1555E-06_JPRB,4.7093E-06_JPRB,4.9224E-06_JPRB,4.9034E-06_JPRB,4.6982E-06_JPRB,&
+ & 4.3297E-06_JPRB,3.9733E-06_JPRB,8.4129E-06_JPRB/)  
+KAO( :, 2,13, 1) = (/&
+ & 2.2770E-06_JPRB,4.1173E-06_JPRB,4.6509E-06_JPRB,4.8443E-06_JPRB,4.8245E-06_JPRB,4.6351E-06_JPRB,&
+ & 4.2708E-06_JPRB,3.7196E-06_JPRB,8.2708E-06_JPRB/)  
+KAO( :, 3,13, 1) = (/&
+ & 2.2712E-06_JPRB,4.0679E-06_JPRB,4.5774E-06_JPRB,4.7613E-06_JPRB,4.7480E-06_JPRB,4.5771E-06_JPRB,&
+ & 4.2377E-06_JPRB,3.6828E-06_JPRB,8.2482E-06_JPRB/)  
+KAO( :, 4,13, 1) = (/&
+ & 2.2616E-06_JPRB,4.0128E-06_JPRB,4.4962E-06_JPRB,4.6740E-06_JPRB,4.6674E-06_JPRB,4.5144E-06_JPRB,&
+ & 4.2021E-06_JPRB,3.6746E-06_JPRB,8.3289E-06_JPRB/)  
+KAO( :, 5,13, 1) = (/&
+ & 2.2466E-06_JPRB,3.9523E-06_JPRB,4.4147E-06_JPRB,4.5851E-06_JPRB,4.5844E-06_JPRB,4.4468E-06_JPRB,&
+ & 4.1612E-06_JPRB,3.6696E-06_JPRB,8.4982E-06_JPRB/)  
+KAO( :, 1, 1, 2) = (/&
+ & 4.5009E-05_JPRB,5.8537E-05_JPRB,6.2677E-05_JPRB,6.4420E-05_JPRB,6.4899E-05_JPRB,6.4046E-05_JPRB,&
+ & 6.1758E-05_JPRB,5.7308E-05_JPRB,4.4974E-05_JPRB/)  
+KAO( :, 2, 1, 2) = (/&
+ & 4.4639E-05_JPRB,5.7851E-05_JPRB,6.2018E-05_JPRB,6.3985E-05_JPRB,6.4709E-05_JPRB,6.3972E-05_JPRB,&
+ & 6.1776E-05_JPRB,5.7584E-05_JPRB,4.6032E-05_JPRB/)  
+KAO( :, 3, 1, 2) = (/&
+ & 4.4183E-05_JPRB,5.7134E-05_JPRB,6.1429E-05_JPRB,6.3594E-05_JPRB,6.4467E-05_JPRB,6.3906E-05_JPRB,&
+ & 6.1866E-05_JPRB,5.7909E-05_JPRB,4.7065E-05_JPRB/)  
+KAO( :, 4, 1, 2) = (/&
+ & 4.3603E-05_JPRB,5.6311E-05_JPRB,6.0747E-05_JPRB,6.3098E-05_JPRB,6.4110E-05_JPRB,6.3723E-05_JPRB,&
+ & 6.1859E-05_JPRB,5.8107E-05_JPRB,4.8038E-05_JPRB/)  
+KAO( :, 5, 1, 2) = (/&
+ & 4.3016E-05_JPRB,5.5575E-05_JPRB,6.0089E-05_JPRB,6.2604E-05_JPRB,6.3758E-05_JPRB,6.3526E-05_JPRB,&
+ & 6.1825E-05_JPRB,5.8256E-05_JPRB,4.8937E-05_JPRB/)  
+KAO( :, 1, 2, 2) = (/&
+ & 3.8991E-05_JPRB,5.1237E-05_JPRB,5.5073E-05_JPRB,5.6912E-05_JPRB,5.7291E-05_JPRB,5.6357E-05_JPRB,&
+ & 5.4136E-05_JPRB,4.9871E-05_JPRB,3.8345E-05_JPRB/)  
+KAO( :, 2, 2, 2) = (/&
+ & 3.8628E-05_JPRB,5.0611E-05_JPRB,5.4618E-05_JPRB,5.6670E-05_JPRB,5.7177E-05_JPRB,5.6367E-05_JPRB,&
+ & 5.4237E-05_JPRB,5.0203E-05_JPRB,3.9241E-05_JPRB/)  
+KAO( :, 3, 2, 2) = (/&
+ & 3.8218E-05_JPRB,5.0047E-05_JPRB,5.4219E-05_JPRB,5.6458E-05_JPRB,5.7088E-05_JPRB,5.6414E-05_JPRB,&
+ & 5.4375E-05_JPRB,5.0554E-05_JPRB,4.0182E-05_JPRB/)  
+KAO( :, 4, 2, 2) = (/&
+ & 3.7696E-05_JPRB,4.9413E-05_JPRB,5.3740E-05_JPRB,5.6131E-05_JPRB,5.6939E-05_JPRB,5.6393E-05_JPRB,&
+ & 5.4506E-05_JPRB,5.0827E-05_JPRB,4.1063E-05_JPRB/)  
+KAO( :, 5, 2, 2) = (/&
+ & 3.7087E-05_JPRB,4.8772E-05_JPRB,5.3212E-05_JPRB,5.5737E-05_JPRB,5.6714E-05_JPRB,5.6323E-05_JPRB,&
+ & 5.4580E-05_JPRB,5.1064E-05_JPRB,4.1833E-05_JPRB/)  
+KAO( :, 1, 3, 2) = (/&
+ & 3.3664E-05_JPRB,4.4718E-05_JPRB,4.8316E-05_JPRB,5.0054E-05_JPRB,5.0316E-05_JPRB,4.9337E-05_JPRB,&
+ & 4.7131E-05_JPRB,4.3067E-05_JPRB,3.3821E-05_JPRB/)  
+KAO( :, 2, 3, 2) = (/&
+ & 3.3332E-05_JPRB,4.4193E-05_JPRB,4.7982E-05_JPRB,4.9921E-05_JPRB,5.0286E-05_JPRB,4.9400E-05_JPRB,&
+ & 4.7278E-05_JPRB,4.3395E-05_JPRB,3.4508E-05_JPRB/)  
+KAO( :, 3, 3, 2) = (/&
+ & 3.2912E-05_JPRB,4.3709E-05_JPRB,4.7689E-05_JPRB,4.9796E-05_JPRB,5.0261E-05_JPRB,4.9490E-05_JPRB,&
+ & 4.7455E-05_JPRB,4.3769E-05_JPRB,3.5275E-05_JPRB/)  
+KAO( :, 4, 3, 2) = (/&
+ & 3.2477E-05_JPRB,4.3262E-05_JPRB,4.7404E-05_JPRB,4.9658E-05_JPRB,5.0286E-05_JPRB,4.9612E-05_JPRB,&
+ & 4.7676E-05_JPRB,4.4119E-05_JPRB,3.6032E-05_JPRB/)  
+KAO( :, 5, 3, 2) = (/&
+ & 3.1897E-05_JPRB,4.2732E-05_JPRB,4.7020E-05_JPRB,4.9397E-05_JPRB,5.0209E-05_JPRB,4.9662E-05_JPRB,&
+ & 4.7863E-05_JPRB,4.4408E-05_JPRB,3.6739E-05_JPRB/)  
+KAO( :, 1, 4, 2) = (/&
+ & 2.9034E-05_JPRB,3.9020E-05_JPRB,4.2255E-05_JPRB,4.3779E-05_JPRB,4.3941E-05_JPRB,4.2940E-05_JPRB,&
+ & 4.0749E-05_JPRB,3.6991E-05_JPRB,3.2231E-05_JPRB/)  
+KAO( :, 2, 4, 2) = (/&
+ & 2.8733E-05_JPRB,3.8566E-05_JPRB,4.1993E-05_JPRB,4.3688E-05_JPRB,4.3978E-05_JPRB,4.3065E-05_JPRB,&
+ & 4.0955E-05_JPRB,3.7298E-05_JPRB,3.2530E-05_JPRB/)  
+KAO( :, 3, 4, 2) = (/&
+ & 2.8365E-05_JPRB,3.8166E-05_JPRB,4.1800E-05_JPRB,4.3640E-05_JPRB,4.4034E-05_JPRB,4.3186E-05_JPRB,&
+ & 4.1171E-05_JPRB,3.7663E-05_JPRB,3.3003E-05_JPRB/)  
+KAO( :, 4, 4, 2) = (/&
+ & 2.7906E-05_JPRB,3.7772E-05_JPRB,4.1598E-05_JPRB,4.3582E-05_JPRB,4.4101E-05_JPRB,4.3335E-05_JPRB,&
+ & 4.1429E-05_JPRB,3.8018E-05_JPRB,3.3543E-05_JPRB/)  
+KAO( :, 5, 4, 2) = (/&
+ & 2.7464E-05_JPRB,3.7412E-05_JPRB,4.1395E-05_JPRB,4.3505E-05_JPRB,4.4180E-05_JPRB,4.3547E-05_JPRB,&
+ & 4.1708E-05_JPRB,3.8366E-05_JPRB,3.4090E-05_JPRB/)  
+KAO( :, 1, 5, 2) = (/&
+ & 2.5046E-05_JPRB,3.4030E-05_JPRB,3.6841E-05_JPRB,3.8123E-05_JPRB,3.8161E-05_JPRB,3.7165E-05_JPRB,&
+ & 3.5069E-05_JPRB,3.1597E-05_JPRB,3.1884E-05_JPRB/)  
+KAO( :, 2, 5, 2) = (/&
+ & 2.4766E-05_JPRB,3.3630E-05_JPRB,3.6644E-05_JPRB,3.8042E-05_JPRB,3.8206E-05_JPRB,3.7320E-05_JPRB,&
+ & 3.5335E-05_JPRB,3.1911E-05_JPRB,3.2055E-05_JPRB/)  
+KAO( :, 3, 5, 2) = (/&
+ & 2.4433E-05_JPRB,3.3294E-05_JPRB,3.6479E-05_JPRB,3.8027E-05_JPRB,3.8311E-05_JPRB,3.7468E-05_JPRB,&
+ & 3.5564E-05_JPRB,3.2236E-05_JPRB,3.2305E-05_JPRB/)  
+KAO( :, 4, 5, 2) = (/&
+ & 2.4018E-05_JPRB,3.2959E-05_JPRB,3.6349E-05_JPRB,3.8027E-05_JPRB,3.8418E-05_JPRB,3.7650E-05_JPRB,&
+ & 3.5828E-05_JPRB,3.2583E-05_JPRB,3.2642E-05_JPRB/)  
+KAO( :, 5, 5, 2) = (/&
+ & 2.3591E-05_JPRB,3.2668E-05_JPRB,3.6232E-05_JPRB,3.8051E-05_JPRB,3.8551E-05_JPRB,3.7905E-05_JPRB,&
+ & 3.6128E-05_JPRB,3.2939E-05_JPRB,3.3008E-05_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART1',1,ZHOOK_HANDLE)
+END SUBROUTINE PART1
+
+
+SUBROUTINE PART2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART2',0,ZHOOK_HANDLE)
+
+
+KAO( :, 1, 6, 2) = (/&
+ & 2.1579E-05_JPRB,2.9591E-05_JPRB,3.1991E-05_JPRB,3.3013E-05_JPRB,3.2936E-05_JPRB,3.1944E-05_JPRB,&
+ & 3.0025E-05_JPRB,2.6876E-05_JPRB,2.9999E-05_JPRB/)  
+KAO( :, 2, 6, 2) = (/&
+ & 2.1317E-05_JPRB,2.9255E-05_JPRB,3.1830E-05_JPRB,3.2965E-05_JPRB,3.2983E-05_JPRB,3.2102E-05_JPRB,&
+ & 3.0272E-05_JPRB,2.7170E-05_JPRB,3.0568E-05_JPRB/)  
+KAO( :, 3, 6, 2) = (/&
+ & 2.1011E-05_JPRB,2.8952E-05_JPRB,3.1684E-05_JPRB,3.2945E-05_JPRB,3.3093E-05_JPRB,3.2263E-05_JPRB,&
+ & 3.0533E-05_JPRB,2.7474E-05_JPRB,3.1151E-05_JPRB/)  
+KAO( :, 4, 6, 2) = (/&
+ & 2.0627E-05_JPRB,2.8670E-05_JPRB,3.1569E-05_JPRB,3.2960E-05_JPRB,3.3217E-05_JPRB,3.2461E-05_JPRB,&
+ & 3.0780E-05_JPRB,2.7789E-05_JPRB,3.1790E-05_JPRB/)  
+KAO( :, 5, 6, 2) = (/&
+ & 2.0182E-05_JPRB,2.8368E-05_JPRB,3.1449E-05_JPRB,3.2969E-05_JPRB,3.3342E-05_JPRB,3.2673E-05_JPRB,&
+ & 3.1052E-05_JPRB,2.8119E-05_JPRB,3.2386E-05_JPRB/)  
+KAO( :, 1, 7, 2) = (/&
+ & 1.8452E-05_JPRB,2.5532E-05_JPRB,2.7551E-05_JPRB,2.8351E-05_JPRB,2.8204E-05_JPRB,2.7262E-05_JPRB,&
+ & 2.5546E-05_JPRB,2.2740E-05_JPRB,2.8091E-05_JPRB/)  
+KAO( :, 2, 7, 2) = (/&
+ & 1.8215E-05_JPRB,2.5256E-05_JPRB,2.7416E-05_JPRB,2.8318E-05_JPRB,2.8249E-05_JPRB,2.7395E-05_JPRB,&
+ & 2.5765E-05_JPRB,2.3002E-05_JPRB,2.8720E-05_JPRB/)  
+KAO( :, 3, 7, 2) = (/&
+ & 1.7931E-05_JPRB,2.4972E-05_JPRB,2.7294E-05_JPRB,2.8314E-05_JPRB,2.8348E-05_JPRB,2.7572E-05_JPRB,&
+ & 2.6008E-05_JPRB,2.3291E-05_JPRB,2.9431E-05_JPRB/)  
+KAO( :, 4, 7, 2) = (/&
+ & 1.7583E-05_JPRB,2.4714E-05_JPRB,2.7183E-05_JPRB,2.8322E-05_JPRB,2.8484E-05_JPRB,2.7765E-05_JPRB,&
+ & 2.6265E-05_JPRB,2.3586E-05_JPRB,3.0235E-05_JPRB/)  
+KAO( :, 5, 7, 2) = (/&
+ & 1.7179E-05_JPRB,2.4453E-05_JPRB,2.7076E-05_JPRB,2.8339E-05_JPRB,2.8609E-05_JPRB,2.7972E-05_JPRB,&
+ & 2.6510E-05_JPRB,2.3882E-05_JPRB,3.1083E-05_JPRB/)  
+KAO( :, 1, 8, 2) = (/&
+ & 1.5794E-05_JPRB,2.2020E-05_JPRB,2.3670E-05_JPRB,2.4259E-05_JPRB,2.4056E-05_JPRB,2.3178E-05_JPRB,&
+ & 2.1635E-05_JPRB,1.9134E-05_JPRB,2.7582E-05_JPRB/)  
+KAO( :, 2, 8, 2) = (/&
+ & 1.5579E-05_JPRB,2.1775E-05_JPRB,2.3546E-05_JPRB,2.4231E-05_JPRB,2.4092E-05_JPRB,2.3297E-05_JPRB,&
+ & 2.1816E-05_JPRB,1.9397E-05_JPRB,2.8313E-05_JPRB/)  
+KAO( :, 3, 8, 2) = (/&
+ & 1.5328E-05_JPRB,2.1517E-05_JPRB,2.3429E-05_JPRB,2.4220E-05_JPRB,2.4175E-05_JPRB,2.3443E-05_JPRB,&
+ & 2.2039E-05_JPRB,1.9642E-05_JPRB,2.9205E-05_JPRB/)  
+KAO( :, 4, 8, 2) = (/&
+ & 1.5023E-05_JPRB,2.1268E-05_JPRB,2.3319E-05_JPRB,2.4225E-05_JPRB,2.4291E-05_JPRB,2.3637E-05_JPRB,&
+ & 2.2285E-05_JPRB,1.9922E-05_JPRB,3.0174E-05_JPRB/)  
+KAO( :, 5, 8, 2) = (/&
+ & 1.4668E-05_JPRB,2.1020E-05_JPRB,2.3208E-05_JPRB,2.4227E-05_JPRB,2.4407E-05_JPRB,2.3824E-05_JPRB,&
+ & 2.2528E-05_JPRB,2.0191E-05_JPRB,3.1226E-05_JPRB/)  
+KAO( :, 1, 9, 2) = (/&
+ & 1.3453E-05_JPRB,1.8874E-05_JPRB,2.0200E-05_JPRB,2.0614E-05_JPRB,2.0394E-05_JPRB,1.9585E-05_JPRB,&
+ & 1.8218E-05_JPRB,1.5952E-05_JPRB,3.1081E-05_JPRB/)  
+KAO( :, 2, 9, 2) = (/&
+ & 1.3262E-05_JPRB,1.8651E-05_JPRB,2.0085E-05_JPRB,2.0598E-05_JPRB,2.0424E-05_JPRB,1.9696E-05_JPRB,&
+ & 1.8380E-05_JPRB,1.6281E-05_JPRB,3.2467E-05_JPRB/)  
+KAO( :, 3, 9, 2) = (/&
+ & 1.3038E-05_JPRB,1.8418E-05_JPRB,1.9972E-05_JPRB,2.0581E-05_JPRB,2.0487E-05_JPRB,1.9824E-05_JPRB,&
+ & 1.8572E-05_JPRB,1.6491E-05_JPRB,3.3986E-05_JPRB/)  
+KAO( :, 4, 9, 2) = (/&
+ & 1.2776E-05_JPRB,1.8181E-05_JPRB,1.9859E-05_JPRB,2.0572E-05_JPRB,2.0585E-05_JPRB,1.9985E-05_JPRB,&
+ & 1.8794E-05_JPRB,1.6733E-05_JPRB,3.5607E-05_JPRB/)  
+KAO( :, 5, 9, 2) = (/&
+ & 1.2471E-05_JPRB,1.7952E-05_JPRB,1.9753E-05_JPRB,2.0569E-05_JPRB,2.0679E-05_JPRB,2.0158E-05_JPRB,&
+ & 1.9021E-05_JPRB,1.6980E-05_JPRB,3.7340E-05_JPRB/)  
+KAO( :, 1,10, 2) = (/&
+ & 1.1374E-05_JPRB,1.6047E-05_JPRB,1.7111E-05_JPRB,1.7393E-05_JPRB,1.7165E-05_JPRB,1.6451E-05_JPRB,&
+ & 1.5255E-05_JPRB,1.3140E-05_JPRB,3.4787E-05_JPRB/)  
+KAO( :, 2,10, 2) = (/&
+ & 1.1208E-05_JPRB,1.5847E-05_JPRB,1.6997E-05_JPRB,1.7386E-05_JPRB,1.7209E-05_JPRB,1.6555E-05_JPRB,&
+ & 1.5407E-05_JPRB,1.3598E-05_JPRB,3.7476E-05_JPRB/)  
+KAO( :, 3,10, 2) = (/&
+ & 1.1010E-05_JPRB,1.5634E-05_JPRB,1.6890E-05_JPRB,1.7366E-05_JPRB,1.7258E-05_JPRB,1.6670E-05_JPRB,&
+ & 1.5570E-05_JPRB,1.3793E-05_JPRB,4.0426E-05_JPRB/)  
+KAO( :, 4,10, 2) = (/&
+ & 1.0782E-05_JPRB,1.5423E-05_JPRB,1.6783E-05_JPRB,1.7341E-05_JPRB,1.7331E-05_JPRB,1.6806E-05_JPRB,&
+ & 1.5764E-05_JPRB,1.4000E-05_JPRB,4.3679E-05_JPRB/)  
+KAO( :, 5,10, 2) = (/&
+ & 1.0524E-05_JPRB,1.5209E-05_JPRB,1.6680E-05_JPRB,1.7333E-05_JPRB,1.7403E-05_JPRB,1.6952E-05_JPRB,&
+ & 1.5975E-05_JPRB,1.4224E-05_JPRB,4.7059E-05_JPRB/)  
+KAO( :, 1,11, 2) = (/&
+ & 9.5209E-06_JPRB,1.3499E-05_JPRB,1.4375E-05_JPRB,1.4600E-05_JPRB,1.4393E-05_JPRB,1.3793E-05_JPRB,&
+ & 1.2781E-05_JPRB,1.1038E-05_JPRB,3.2865E-05_JPRB/)  
+KAO( :, 2,11, 2) = (/&
+ & 9.3637E-06_JPRB,1.3313E-05_JPRB,1.4267E-05_JPRB,1.4592E-05_JPRB,1.4440E-05_JPRB,1.3889E-05_JPRB,&
+ & 1.2920E-05_JPRB,1.1404E-05_JPRB,3.5445E-05_JPRB/)  
+KAO( :, 3,11, 2) = (/&
+ & 9.1833E-06_JPRB,1.3123E-05_JPRB,1.4166E-05_JPRB,1.4568E-05_JPRB,1.4482E-05_JPRB,1.3996E-05_JPRB,&
+ & 1.3070E-05_JPRB,1.1568E-05_JPRB,3.8218E-05_JPRB/)  
+KAO( :, 4,11, 2) = (/&
+ & 8.9761E-06_JPRB,1.2932E-05_JPRB,1.4072E-05_JPRB,1.4544E-05_JPRB,1.4541E-05_JPRB,1.4107E-05_JPRB,&
+ & 1.3243E-05_JPRB,1.1758E-05_JPRB,4.1117E-05_JPRB/)  
+KAO( :, 5,11, 2) = (/&
+ & 8.7519E-06_JPRB,1.2738E-05_JPRB,1.3974E-05_JPRB,1.4523E-05_JPRB,1.4594E-05_JPRB,1.4232E-05_JPRB,&
+ & 1.3426E-05_JPRB,1.1955E-05_JPRB,4.4210E-05_JPRB/)  
+KAO( :, 1,12, 2) = (/&
+ & 7.9463E-06_JPRB,1.1314E-05_JPRB,1.2032E-05_JPRB,1.2211E-05_JPRB,1.2025E-05_JPRB,1.1526E-05_JPRB,&
+ & 1.0676E-05_JPRB,9.2413E-06_JPRB,2.9106E-05_JPRB/)  
+KAO( :, 2,12, 2) = (/&
+ & 7.8042E-06_JPRB,1.1141E-05_JPRB,1.1931E-05_JPRB,1.2198E-05_JPRB,1.2069E-05_JPRB,1.1610E-05_JPRB,&
+ & 1.0799E-05_JPRB,9.5264E-06_JPRB,3.1349E-05_JPRB/)  
+KAO( :, 3,12, 2) = (/&
+ & 7.6428E-06_JPRB,1.0975E-05_JPRB,1.1841E-05_JPRB,1.2172E-05_JPRB,1.2102E-05_JPRB,1.1694E-05_JPRB,&
+ & 1.0928E-05_JPRB,9.6721E-06_JPRB,3.3866E-05_JPRB/)  
+KAO( :, 4,12, 2) = (/&
+ & 7.4623E-06_JPRB,1.0806E-05_JPRB,1.1756E-05_JPRB,1.2145E-05_JPRB,1.2145E-05_JPRB,1.1788E-05_JPRB,&
+ & 1.1076E-05_JPRB,9.8394E-06_JPRB,3.6457E-05_JPRB/)  
+KAO( :, 5,12, 2) = (/&
+ & 7.2711E-06_JPRB,1.0633E-05_JPRB,1.1656E-05_JPRB,1.2115E-05_JPRB,1.2181E-05_JPRB,1.1891E-05_JPRB,&
+ & 1.1228E-05_JPRB,1.0010E-05_JPRB,3.9156E-05_JPRB/)  
+KAO( :, 1,13, 2) = (/&
+ & 6.6184E-06_JPRB,9.4565E-06_JPRB,1.0043E-05_JPRB,1.0182E-05_JPRB,1.0021E-05_JPRB,9.6035E-06_JPRB,&
+ & 8.8893E-06_JPRB,7.7053E-06_JPRB,2.4435E-05_JPRB/)  
+KAO( :, 2,13, 2) = (/&
+ & 6.4936E-06_JPRB,9.3020E-06_JPRB,9.9506E-06_JPRB,1.0164E-05_JPRB,1.0053E-05_JPRB,9.6688E-06_JPRB,&
+ & 8.9931E-06_JPRB,7.9311E-06_JPRB,2.6318E-05_JPRB/)  
+KAO( :, 3,13, 2) = (/&
+ & 6.3517E-06_JPRB,9.1558E-06_JPRB,9.8692E-06_JPRB,1.0135E-05_JPRB,1.0076E-05_JPRB,9.7347E-06_JPRB,&
+ & 9.1027E-06_JPRB,8.0612E-06_JPRB,2.8419E-05_JPRB/)  
+KAO( :, 4,13, 2) = (/&
+ & 6.1987E-06_JPRB,9.0085E-06_JPRB,9.7873E-06_JPRB,1.0106E-05_JPRB,1.0104E-05_JPRB,9.8108E-06_JPRB,&
+ & 9.2254E-06_JPRB,8.2025E-06_JPRB,3.0596E-05_JPRB/)  
+KAO( :, 5,13, 2) = (/&
+ & 6.0390E-06_JPRB,8.8585E-06_JPRB,9.6966E-06_JPRB,1.0071E-05_JPRB,1.0127E-05_JPRB,9.8907E-06_JPRB,&
+ & 9.3441E-06_JPRB,8.3431E-06_JPRB,3.2866E-05_JPRB/)  
+KAO( :, 1, 1, 3) = (/&
+ & 7.0753E-05_JPRB,8.7371E-05_JPRB,9.5172E-05_JPRB,9.9390E-05_JPRB,1.0056E-04_JPRB,9.9494E-05_JPRB,&
+ & 9.5837E-05_JPRB,8.9326E-05_JPRB,7.4323E-05_JPRB/)  
+KAO( :, 2, 1, 3) = (/&
+ & 6.9795E-05_JPRB,8.7509E-05_JPRB,9.5691E-05_JPRB,9.9950E-05_JPRB,1.0125E-04_JPRB,1.0041E-04_JPRB,&
+ & 9.7011E-05_JPRB,9.0609E-05_JPRB,7.5641E-05_JPRB/)  
+KAO( :, 3, 1, 3) = (/&
+ & 6.9131E-05_JPRB,8.7916E-05_JPRB,9.6468E-05_JPRB,1.0076E-04_JPRB,1.0214E-04_JPRB,1.0141E-04_JPRB,&
+ & 9.8247E-05_JPRB,9.2085E-05_JPRB,7.7357E-05_JPRB/)  
+KAO( :, 4, 1, 3) = (/&
+ & 6.8482E-05_JPRB,8.8338E-05_JPRB,9.7157E-05_JPRB,1.0153E-04_JPRB,1.0307E-04_JPRB,1.0249E-04_JPRB,&
+ & 9.9530E-05_JPRB,9.3696E-05_JPRB,7.9379E-05_JPRB/)  
+KAO( :, 5, 1, 3) = (/&
+ & 6.7880E-05_JPRB,8.8892E-05_JPRB,9.7857E-05_JPRB,1.0242E-04_JPRB,1.0411E-04_JPRB,1.0366E-04_JPRB,&
+ & 1.0077E-04_JPRB,9.5333E-05_JPRB,8.1423E-05_JPRB/)  
+KAO( :, 1, 2, 3) = (/&
+ & 6.2276E-05_JPRB,7.8469E-05_JPRB,8.5472E-05_JPRB,8.8868E-05_JPRB,8.9888E-05_JPRB,8.8903E-05_JPRB,&
+ & 8.5409E-05_JPRB,7.9146E-05_JPRB,6.4309E-05_JPRB/)  
+KAO( :, 2, 2, 3) = (/&
+ & 6.1522E-05_JPRB,7.8775E-05_JPRB,8.6027E-05_JPRB,8.9487E-05_JPRB,9.0686E-05_JPRB,8.9927E-05_JPRB,&
+ & 8.6540E-05_JPRB,8.0293E-05_JPRB,6.5447E-05_JPRB/)  
+KAO( :, 3, 2, 3) = (/&
+ & 6.1045E-05_JPRB,7.9281E-05_JPRB,8.6793E-05_JPRB,9.0368E-05_JPRB,9.1669E-05_JPRB,9.0966E-05_JPRB,&
+ & 8.7713E-05_JPRB,8.1579E-05_JPRB,6.6858E-05_JPRB/)  
+KAO( :, 4, 2, 3) = (/&
+ & 6.0651E-05_JPRB,7.9924E-05_JPRB,8.7586E-05_JPRB,9.1281E-05_JPRB,9.2660E-05_JPRB,9.2033E-05_JPRB,&
+ & 8.8973E-05_JPRB,8.3100E-05_JPRB,6.8552E-05_JPRB/)  
+KAO( :, 5, 2, 3) = (/&
+ & 6.0196E-05_JPRB,8.0517E-05_JPRB,8.8362E-05_JPRB,9.2181E-05_JPRB,9.3655E-05_JPRB,9.3124E-05_JPRB,&
+ & 9.0231E-05_JPRB,8.4620E-05_JPRB,7.0321E-05_JPRB/)  
+KAO( :, 1, 3, 3) = (/&
+ & 5.4594E-05_JPRB,7.0140E-05_JPRB,7.6291E-05_JPRB,7.9103E-05_JPRB,7.9908E-05_JPRB,7.8825E-05_JPRB,&
+ & 7.5557E-05_JPRB,6.9638E-05_JPRB,5.6129E-05_JPRB/)  
+KAO( :, 2, 3, 3) = (/&
+ & 5.3987E-05_JPRB,7.0481E-05_JPRB,7.6809E-05_JPRB,7.9722E-05_JPRB,8.0799E-05_JPRB,7.9847E-05_JPRB,&
+ & 7.6636E-05_JPRB,7.0746E-05_JPRB,5.7083E-05_JPRB/)  
+KAO( :, 3, 3, 3) = (/&
+ & 5.3598E-05_JPRB,7.0935E-05_JPRB,7.7478E-05_JPRB,8.0559E-05_JPRB,8.1742E-05_JPRB,8.0926E-05_JPRB,&
+ & 7.7718E-05_JPRB,7.1792E-05_JPRB,5.8231E-05_JPRB/)  
+KAO( :, 4, 3, 3) = (/&
+ & 5.3419E-05_JPRB,7.1650E-05_JPRB,7.8342E-05_JPRB,8.1570E-05_JPRB,8.2791E-05_JPRB,8.1991E-05_JPRB,&
+ & 7.8849E-05_JPRB,7.3062E-05_JPRB,5.9633E-05_JPRB/)  
+KAO( :, 5, 3, 3) = (/&
+ & 5.3129E-05_JPRB,7.2273E-05_JPRB,7.9178E-05_JPRB,8.2486E-05_JPRB,8.3759E-05_JPRB,8.3022E-05_JPRB,&
+ & 8.0014E-05_JPRB,7.4467E-05_JPRB,6.1152E-05_JPRB/)  
+KAO( :, 1, 4, 3) = (/&
+ & 4.7696E-05_JPRB,6.2286E-05_JPRB,6.7749E-05_JPRB,7.0181E-05_JPRB,7.0624E-05_JPRB,6.9456E-05_JPRB,&
+ & 6.6381E-05_JPRB,6.0701E-05_JPRB,5.1576E-05_JPRB/)  
+KAO( :, 2, 4, 3) = (/&
+ & 4.7208E-05_JPRB,6.2637E-05_JPRB,6.8240E-05_JPRB,7.0849E-05_JPRB,7.1530E-05_JPRB,7.0423E-05_JPRB,&
+ & 6.7425E-05_JPRB,6.1760E-05_JPRB,5.2349E-05_JPRB/)  
+KAO( :, 3, 4, 3) = (/&
+ & 4.6920E-05_JPRB,6.3058E-05_JPRB,6.8836E-05_JPRB,7.1607E-05_JPRB,7.2463E-05_JPRB,7.1509E-05_JPRB,&
+ & 6.8509E-05_JPRB,6.2750E-05_JPRB,5.3224E-05_JPRB/)  
+KAO( :, 4, 4, 3) = (/&
+ & 4.6776E-05_JPRB,6.3606E-05_JPRB,6.9601E-05_JPRB,7.2517E-05_JPRB,7.3446E-05_JPRB,7.2570E-05_JPRB,&
+ & 6.9521E-05_JPRB,6.3786E-05_JPRB,5.4286E-05_JPRB/)  
+KAO( :, 5, 4, 3) = (/&
+ & 4.6682E-05_JPRB,6.4343E-05_JPRB,7.0568E-05_JPRB,7.3573E-05_JPRB,7.4545E-05_JPRB,7.3619E-05_JPRB,&
+ & 7.0604E-05_JPRB,6.5003E-05_JPRB,5.5521E-05_JPRB/)  
+KAO( :, 1, 5, 3) = (/&
+ & 4.1581E-05_JPRB,5.4899E-05_JPRB,5.9799E-05_JPRB,6.1832E-05_JPRB,6.2136E-05_JPRB,6.0898E-05_JPRB,&
+ & 5.7964E-05_JPRB,5.2516E-05_JPRB,5.0115E-05_JPRB/)  
+KAO( :, 2, 5, 3) = (/&
+ & 4.1165E-05_JPRB,5.5257E-05_JPRB,6.0251E-05_JPRB,6.2555E-05_JPRB,6.3007E-05_JPRB,6.1795E-05_JPRB,&
+ & 5.8864E-05_JPRB,5.3500E-05_JPRB,5.0524E-05_JPRB/)  
+KAO( :, 3, 5, 3) = (/&
+ & 4.0905E-05_JPRB,5.5656E-05_JPRB,6.0839E-05_JPRB,6.3322E-05_JPRB,6.3891E-05_JPRB,6.2840E-05_JPRB,&
+ & 5.9887E-05_JPRB,5.4446E-05_JPRB,5.1001E-05_JPRB/)  
+KAO( :, 4, 5, 3) = (/&
+ & 4.0790E-05_JPRB,5.6129E-05_JPRB,6.1526E-05_JPRB,6.4146E-05_JPRB,6.4873E-05_JPRB,6.3880E-05_JPRB,&
+ & 6.0934E-05_JPRB,5.5421E-05_JPRB,5.1576E-05_JPRB/)  
+KAO( :, 5, 5, 3) = (/&
+ & 4.0741E-05_JPRB,5.6811E-05_JPRB,6.2419E-05_JPRB,6.5146E-05_JPRB,6.5947E-05_JPRB,6.4915E-05_JPRB,&
+ & 6.1966E-05_JPRB,5.6459E-05_JPRB,5.2345E-05_JPRB/)  
+KAO( :, 1, 6, 3) = (/&
+ & 3.6128E-05_JPRB,4.8074E-05_JPRB,5.2303E-05_JPRB,5.4088E-05_JPRB,5.4305E-05_JPRB,5.3072E-05_JPRB,&
+ & 5.0232E-05_JPRB,4.5105E-05_JPRB,5.1680E-05_JPRB/)  
+KAO( :, 2, 6, 3) = (/&
+ & 3.5776E-05_JPRB,4.8378E-05_JPRB,5.2790E-05_JPRB,5.4763E-05_JPRB,5.5146E-05_JPRB,5.3920E-05_JPRB,&
+ & 5.1041E-05_JPRB,4.6023E-05_JPRB,5.1519E-05_JPRB/)  
+KAO( :, 3, 6, 3) = (/&
+ & 3.5527E-05_JPRB,4.8788E-05_JPRB,5.3350E-05_JPRB,5.5505E-05_JPRB,5.5990E-05_JPRB,5.4859E-05_JPRB,&
+ & 5.1952E-05_JPRB,4.6910E-05_JPRB,5.1451E-05_JPRB/)  
+KAO( :, 4, 6, 3) = (/&
+ & 3.5393E-05_JPRB,4.9227E-05_JPRB,5.4029E-05_JPRB,5.6316E-05_JPRB,5.6902E-05_JPRB,5.5852E-05_JPRB,&
+ & 5.2950E-05_JPRB,4.7839E-05_JPRB,5.1463E-05_JPRB/)  
+KAO( :, 5, 6, 3) = (/&
+ & 3.5279E-05_JPRB,4.9738E-05_JPRB,5.4773E-05_JPRB,5.7200E-05_JPRB,5.7864E-05_JPRB,5.6831E-05_JPRB,&
+ & 5.3962E-05_JPRB,4.8775E-05_JPRB,5.1664E-05_JPRB/)  
+KAO( :, 1, 7, 3) = (/&
+ & 3.1175E-05_JPRB,4.1797E-05_JPRB,4.5353E-05_JPRB,4.6878E-05_JPRB,4.7045E-05_JPRB,4.5914E-05_JPRB,&
+ & 4.3260E-05_JPRB,3.8528E-05_JPRB,5.5034E-05_JPRB/)  
+KAO( :, 2, 7, 3) = (/&
+ & 3.0861E-05_JPRB,4.2063E-05_JPRB,4.5864E-05_JPRB,4.7535E-05_JPRB,4.7827E-05_JPRB,4.6677E-05_JPRB,&
+ & 4.3974E-05_JPRB,3.9350E-05_JPRB,5.5182E-05_JPRB/)  
+KAO( :, 3, 7, 3) = (/&
+ & 3.0632E-05_JPRB,4.2441E-05_JPRB,4.6427E-05_JPRB,4.8241E-05_JPRB,4.8620E-05_JPRB,4.7526E-05_JPRB,&
+ & 4.4793E-05_JPRB,4.0140E-05_JPRB,5.5398E-05_JPRB/)  
+KAO( :, 4, 7, 3) = (/&
+ & 3.0475E-05_JPRB,4.2876E-05_JPRB,4.7039E-05_JPRB,4.9018E-05_JPRB,4.9446E-05_JPRB,4.8432E-05_JPRB,&
+ & 4.5701E-05_JPRB,4.0986E-05_JPRB,5.5585E-05_JPRB/)  
+KAO( :, 5, 7, 3) = (/&
+ & 3.0340E-05_JPRB,4.3333E-05_JPRB,4.7753E-05_JPRB,4.9874E-05_JPRB,5.0366E-05_JPRB,4.9368E-05_JPRB,&
+ & 4.6641E-05_JPRB,4.1870E-05_JPRB,5.5728E-05_JPRB/)  
+KAO( :, 1, 8, 3) = (/&
+ & 2.6882E-05_JPRB,3.6181E-05_JPRB,3.9159E-05_JPRB,4.0385E-05_JPRB,4.0472E-05_JPRB,3.9467E-05_JPRB,&
+ & 3.7068E-05_JPRB,3.2787E-05_JPRB,6.0191E-05_JPRB/)  
+KAO( :, 2, 8, 3) = (/&
+ & 2.6577E-05_JPRB,3.6420E-05_JPRB,3.9630E-05_JPRB,4.1005E-05_JPRB,4.1190E-05_JPRB,4.0154E-05_JPRB,&
+ & 3.7711E-05_JPRB,3.3501E-05_JPRB,6.0976E-05_JPRB/)  
+KAO( :, 3, 8, 3) = (/&
+ & 2.6344E-05_JPRB,3.6733E-05_JPRB,4.0183E-05_JPRB,4.1714E-05_JPRB,4.1930E-05_JPRB,4.0908E-05_JPRB,&
+ & 3.8425E-05_JPRB,3.4195E-05_JPRB,6.1747E-05_JPRB/)  
+KAO( :, 4, 8, 3) = (/&
+ & 2.6154E-05_JPRB,3.7129E-05_JPRB,4.0772E-05_JPRB,4.2424E-05_JPRB,4.2698E-05_JPRB,4.1708E-05_JPRB,&
+ & 3.9208E-05_JPRB,3.4923E-05_JPRB,6.2436E-05_JPRB/)  
+KAO( :, 5, 8, 3) = (/&
+ & 2.5969E-05_JPRB,3.7541E-05_JPRB,4.1396E-05_JPRB,4.3205E-05_JPRB,4.3544E-05_JPRB,4.2561E-05_JPRB,&
+ & 4.0066E-05_JPRB,3.5716E-05_JPRB,6.2996E-05_JPRB/)  
+KAO( :, 1, 9, 3) = (/&
+ & 2.3030E-05_JPRB,3.1081E-05_JPRB,3.3574E-05_JPRB,3.4578E-05_JPRB,3.4594E-05_JPRB,3.3680E-05_JPRB,&
+ & 3.1564E-05_JPRB,2.7753E-05_JPRB,8.2972E-05_JPRB/)  
+KAO( :, 2, 9, 3) = (/&
+ & 2.2745E-05_JPRB,3.1301E-05_JPRB,3.4001E-05_JPRB,3.5099E-05_JPRB,3.5210E-05_JPRB,3.4293E-05_JPRB,&
+ & 3.2147E-05_JPRB,2.8418E-05_JPRB,8.5573E-05_JPRB/)  
+KAO( :, 3, 9, 3) = (/&
+ & 2.2504E-05_JPRB,3.1575E-05_JPRB,3.4507E-05_JPRB,3.5759E-05_JPRB,3.5892E-05_JPRB,3.4957E-05_JPRB,&
+ & 3.2777E-05_JPRB,2.9021E-05_JPRB,8.7692E-05_JPRB/)  
+KAO( :, 4, 9, 3) = (/&
+ & 2.2288E-05_JPRB,3.1903E-05_JPRB,3.5055E-05_JPRB,3.6460E-05_JPRB,3.6616E-05_JPRB,3.5667E-05_JPRB,&
+ & 3.3440E-05_JPRB,2.9641E-05_JPRB,8.9596E-05_JPRB/)  
+KAO( :, 5, 9, 3) = (/&
+ & 2.2076E-05_JPRB,3.2254E-05_JPRB,3.5612E-05_JPRB,3.7158E-05_JPRB,3.7379E-05_JPRB,3.6426E-05_JPRB,&
+ & 3.4185E-05_JPRB,3.0329E-05_JPRB,9.1172E-05_JPRB/)  
+KAO( :, 1,10, 3) = (/&
+ & 1.9573E-05_JPRB,2.6501E-05_JPRB,2.8604E-05_JPRB,2.9434E-05_JPRB,2.9415E-05_JPRB,2.8586E-05_JPRB,&
+ & 2.6756E-05_JPRB,2.3398E-05_JPRB,1.1831E-04_JPRB/)  
+KAO( :, 2,10, 3) = (/&
+ & 1.9311E-05_JPRB,2.6696E-05_JPRB,2.8987E-05_JPRB,2.9871E-05_JPRB,2.9930E-05_JPRB,2.9131E-05_JPRB,&
+ & 2.7291E-05_JPRB,2.4061E-05_JPRB,1.2413E-04_JPRB/)  
+KAO( :, 3,10, 3) = (/&
+ & 1.9064E-05_JPRB,2.6931E-05_JPRB,2.9433E-05_JPRB,3.0442E-05_JPRB,3.0524E-05_JPRB,2.9723E-05_JPRB,&
+ & 2.7830E-05_JPRB,2.4575E-05_JPRB,1.2968E-04_JPRB/)  
+KAO( :, 4,10, 3) = (/&
+ & 1.8838E-05_JPRB,2.7200E-05_JPRB,2.9911E-05_JPRB,3.1092E-05_JPRB,3.1189E-05_JPRB,3.0347E-05_JPRB,&
+ & 2.8402E-05_JPRB,2.5111E-05_JPRB,1.3500E-04_JPRB/)  
+KAO( :, 5,10, 3) = (/&
+ & 1.8619E-05_JPRB,2.7473E-05_JPRB,3.0391E-05_JPRB,3.1737E-05_JPRB,3.1883E-05_JPRB,3.1020E-05_JPRB,&
+ & 2.9042E-05_JPRB,2.5702E-05_JPRB,1.4050E-04_JPRB/)  
+KAO( :, 1,11, 3) = (/&
+ & 1.6456E-05_JPRB,2.2515E-05_JPRB,2.4353E-05_JPRB,2.5062E-05_JPRB,2.5054E-05_JPRB,2.4348E-05_JPRB,&
+ & 2.2780E-05_JPRB,1.9929E-05_JPRB,1.2447E-04_JPRB/)  
+KAO( :, 2,11, 3) = (/&
+ & 1.6210E-05_JPRB,2.2705E-05_JPRB,2.4709E-05_JPRB,2.5473E-05_JPRB,2.5515E-05_JPRB,2.4826E-05_JPRB,&
+ & 2.3259E-05_JPRB,2.0482E-05_JPRB,1.3150E-04_JPRB/)  
+KAO( :, 3,11, 3) = (/&
+ & 1.5971E-05_JPRB,2.2902E-05_JPRB,2.5095E-05_JPRB,2.5990E-05_JPRB,2.6068E-05_JPRB,2.5361E-05_JPRB,&
+ & 2.3741E-05_JPRB,2.0933E-05_JPRB,1.3833E-04_JPRB/)  
+KAO( :, 4,11, 3) = (/&
+ & 1.5752E-05_JPRB,2.3106E-05_JPRB,2.5493E-05_JPRB,2.6568E-05_JPRB,2.6674E-05_JPRB,2.5935E-05_JPRB,&
+ & 2.4259E-05_JPRB,2.1401E-05_JPRB,1.4470E-04_JPRB/)  
+KAO( :, 5,11, 3) = (/&
+ & 1.5528E-05_JPRB,2.3318E-05_JPRB,2.5901E-05_JPRB,2.7141E-05_JPRB,2.7302E-05_JPRB,2.6558E-05_JPRB,&
+ & 2.4843E-05_JPRB,2.1914E-05_JPRB,1.5074E-04_JPRB/)  
+KAO( :, 1,12, 3) = (/&
+ & 1.3780E-05_JPRB,1.9033E-05_JPRB,2.0619E-05_JPRB,2.1228E-05_JPRB,2.1226E-05_JPRB,2.0621E-05_JPRB,&
+ & 1.9294E-05_JPRB,1.6882E-05_JPRB,1.1649E-04_JPRB/)  
+KAO( :, 2,12, 3) = (/&
+ & 1.3548E-05_JPRB,1.9199E-05_JPRB,2.0913E-05_JPRB,2.1600E-05_JPRB,2.1645E-05_JPRB,2.1053E-05_JPRB,&
+ & 1.9719E-05_JPRB,1.7352E-05_JPRB,1.2368E-04_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART2',1,ZHOOK_HANDLE)
+END SUBROUTINE PART2
+
+
+SUBROUTINE PART3
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART3',0,ZHOOK_HANDLE)
+
+
+KAO( :, 3,12, 3) = (/&
+ & 1.3324E-05_JPRB,1.9341E-05_JPRB,2.1240E-05_JPRB,2.2050E-05_JPRB,2.2132E-05_JPRB,2.1536E-05_JPRB,&
+ & 2.0156E-05_JPRB,1.7750E-05_JPRB,1.3017E-04_JPRB/)  
+KAO( :, 4,12, 3) = (/&
+ & 1.3111E-05_JPRB,1.9487E-05_JPRB,2.1558E-05_JPRB,2.2533E-05_JPRB,2.2665E-05_JPRB,2.2056E-05_JPRB,&
+ & 2.0628E-05_JPRB,1.8158E-05_JPRB,1.3659E-04_JPRB/)  
+KAO( :, 5,12, 3) = (/&
+ & 1.2895E-05_JPRB,1.9642E-05_JPRB,2.1889E-05_JPRB,2.3011E-05_JPRB,2.3210E-05_JPRB,2.2606E-05_JPRB,&
+ & 2.1150E-05_JPRB,1.8610E-05_JPRB,1.4251E-04_JPRB/)  
+KAO( :, 1,13, 3) = (/&
+ & 1.1500E-05_JPRB,1.6003E-05_JPRB,1.7357E-05_JPRB,1.7889E-05_JPRB,1.7884E-05_JPRB,1.7367E-05_JPRB,&
+ & 1.6254E-05_JPRB,1.4227E-05_JPRB,9.8757E-05_JPRB/)  
+KAO( :, 2,13, 3) = (/&
+ & 1.1286E-05_JPRB,1.6126E-05_JPRB,1.7594E-05_JPRB,1.8210E-05_JPRB,1.8252E-05_JPRB,1.7751E-05_JPRB,&
+ & 1.6632E-05_JPRB,1.4641E-05_JPRB,1.0488E-04_JPRB/)  
+KAO( :, 3,13, 3) = (/&
+ & 1.1079E-05_JPRB,1.6225E-05_JPRB,1.7843E-05_JPRB,1.8579E-05_JPRB,1.8672E-05_JPRB,1.8176E-05_JPRB,&
+ & 1.7024E-05_JPRB,1.4980E-05_JPRB,1.1036E-04_JPRB/)  
+KAO( :, 4,13, 3) = (/&
+ & 1.0876E-05_JPRB,1.6327E-05_JPRB,1.8099E-05_JPRB,1.8965E-05_JPRB,1.9122E-05_JPRB,1.8629E-05_JPRB,&
+ & 1.7445E-05_JPRB,1.5339E-05_JPRB,1.1580E-04_JPRB/)  
+KAO( :, 5,13, 3) = (/&
+ & 1.0678E-05_JPRB,1.6434E-05_JPRB,1.8360E-05_JPRB,1.9355E-05_JPRB,1.9573E-05_JPRB,1.9100E-05_JPRB,&
+ & 1.7895E-05_JPRB,1.5734E-05_JPRB,1.2071E-04_JPRB/)  
+KAO( :, 1, 1, 4) = (/&
+ & 1.0452E-04_JPRB,1.3483E-04_JPRB,1.4507E-04_JPRB,1.5035E-04_JPRB,1.5233E-04_JPRB,1.5098E-04_JPRB,&
+ & 1.4623E-04_JPRB,1.3688E-04_JPRB,1.1596E-04_JPRB/)  
+KAO( :, 2, 1, 4) = (/&
+ & 1.0431E-04_JPRB,1.3598E-04_JPRB,1.4693E-04_JPRB,1.5285E-04_JPRB,1.5505E-04_JPRB,1.5376E-04_JPRB,&
+ & 1.4899E-04_JPRB,1.4010E-04_JPRB,1.1898E-04_JPRB/)  
+KAO( :, 3, 1, 4) = (/&
+ & 1.0452E-04_JPRB,1.3748E-04_JPRB,1.4911E-04_JPRB,1.5568E-04_JPRB,1.5820E-04_JPRB,1.5701E-04_JPRB,&
+ & 1.5204E-04_JPRB,1.4309E-04_JPRB,1.2195E-04_JPRB/)  
+KAO( :, 4, 1, 4) = (/&
+ & 1.0446E-04_JPRB,1.3898E-04_JPRB,1.5142E-04_JPRB,1.5876E-04_JPRB,1.6160E-04_JPRB,1.6033E-04_JPRB,&
+ & 1.5519E-04_JPRB,1.4614E-04_JPRB,1.2504E-04_JPRB/)  
+KAO( :, 5, 1, 4) = (/&
+ & 1.0490E-04_JPRB,1.4072E-04_JPRB,1.5426E-04_JPRB,1.6221E-04_JPRB,1.6521E-04_JPRB,1.6398E-04_JPRB,&
+ & 1.5900E-04_JPRB,1.4986E-04_JPRB,1.2878E-04_JPRB/)  
+KAO( :, 1, 2, 4) = (/&
+ & 9.4204E-05_JPRB,1.2226E-04_JPRB,1.3172E-04_JPRB,1.3677E-04_JPRB,1.3845E-04_JPRB,1.3676E-04_JPRB,&
+ & 1.3184E-04_JPRB,1.2295E-04_JPRB,1.0190E-04_JPRB/)  
+KAO( :, 2, 2, 4) = (/&
+ & 9.4074E-05_JPRB,1.2351E-04_JPRB,1.3361E-04_JPRB,1.3908E-04_JPRB,1.4094E-04_JPRB,1.3921E-04_JPRB,&
+ & 1.3441E-04_JPRB,1.2595E-04_JPRB,1.0466E-04_JPRB/)  
+KAO( :, 3, 2, 4) = (/&
+ & 9.4344E-05_JPRB,1.2509E-04_JPRB,1.3579E-04_JPRB,1.4166E-04_JPRB,1.4376E-04_JPRB,1.4219E-04_JPRB,&
+ & 1.3731E-04_JPRB,1.2889E-04_JPRB,1.0736E-04_JPRB/)  
+KAO( :, 4, 2, 4) = (/&
+ & 9.4551E-05_JPRB,1.2662E-04_JPRB,1.3810E-04_JPRB,1.4452E-04_JPRB,1.4685E-04_JPRB,1.4532E-04_JPRB,&
+ & 1.4026E-04_JPRB,1.3156E-04_JPRB,1.1005E-04_JPRB/)  
+KAO( :, 5, 2, 4) = (/&
+ & 9.4911E-05_JPRB,1.2828E-04_JPRB,1.4068E-04_JPRB,1.4753E-04_JPRB,1.5017E-04_JPRB,1.4865E-04_JPRB,&
+ & 1.4353E-04_JPRB,1.3462E-04_JPRB,1.1332E-04_JPRB/)  
+KAO( :, 1, 3, 4) = (/&
+ & 8.4477E-05_JPRB,1.0977E-04_JPRB,1.1875E-04_JPRB,1.2346E-04_JPRB,1.2481E-04_JPRB,1.2312E-04_JPRB,&
+ & 1.1833E-04_JPRB,1.0957E-04_JPRB,8.9535E-05_JPRB/)  
+KAO( :, 2, 3, 4) = (/&
+ & 8.4379E-05_JPRB,1.1105E-04_JPRB,1.2059E-04_JPRB,1.2560E-04_JPRB,1.2700E-04_JPRB,1.2527E-04_JPRB,&
+ & 1.2063E-04_JPRB,1.1208E-04_JPRB,9.1925E-05_JPRB/)  
+KAO( :, 3, 3, 4) = (/&
+ & 8.4459E-05_JPRB,1.1263E-04_JPRB,1.2255E-04_JPRB,1.2789E-04_JPRB,1.2949E-04_JPRB,1.2788E-04_JPRB,&
+ & 1.2327E-04_JPRB,1.1489E-04_JPRB,9.4307E-05_JPRB/)  
+KAO( :, 4, 3, 4) = (/&
+ & 8.4957E-05_JPRB,1.1436E-04_JPRB,1.2477E-04_JPRB,1.3051E-04_JPRB,1.3225E-04_JPRB,1.3075E-04_JPRB,&
+ & 1.2605E-04_JPRB,1.1763E-04_JPRB,9.6664E-05_JPRB/)  
+KAO( :, 5, 3, 4) = (/&
+ & 8.5267E-05_JPRB,1.1603E-04_JPRB,1.2711E-04_JPRB,1.3323E-04_JPRB,1.3522E-04_JPRB,1.3376E-04_JPRB,&
+ & 1.2892E-04_JPRB,1.2027E-04_JPRB,9.9423E-05_JPRB/)  
+KAO( :, 1, 4, 4) = (/&
+ & 7.5106E-05_JPRB,9.8023E-05_JPRB,1.0634E-04_JPRB,1.1074E-04_JPRB,1.1207E-04_JPRB,1.1047E-04_JPRB,&
+ & 1.0566E-04_JPRB,9.7179E-05_JPRB,8.0970E-05_JPRB/)  
+KAO( :, 2, 4, 4) = (/&
+ & 7.5068E-05_JPRB,9.9316E-05_JPRB,1.0818E-04_JPRB,1.1273E-04_JPRB,1.1400E-04_JPRB,1.1240E-04_JPRB,&
+ & 1.0763E-04_JPRB,9.9160E-05_JPRB,8.2847E-05_JPRB/)  
+KAO( :, 3, 4, 4) = (/&
+ & 7.5176E-05_JPRB,1.0088E-04_JPRB,1.1012E-04_JPRB,1.1492E-04_JPRB,1.1630E-04_JPRB,1.1469E-04_JPRB,&
+ & 1.0990E-04_JPRB,1.0156E-04_JPRB,8.4919E-05_JPRB/)  
+KAO( :, 4, 4, 4) = (/&
+ & 7.5441E-05_JPRB,1.0260E-04_JPRB,1.1218E-04_JPRB,1.1722E-04_JPRB,1.1877E-04_JPRB,1.1722E-04_JPRB,&
+ & 1.1247E-04_JPRB,1.0418E-04_JPRB,8.7047E-05_JPRB/)  
+KAO( :, 5, 4, 4) = (/&
+ & 7.6234E-05_JPRB,1.0451E-04_JPRB,1.1445E-04_JPRB,1.1978E-04_JPRB,1.2144E-04_JPRB,1.1995E-04_JPRB,&
+ & 1.1523E-04_JPRB,1.0678E-04_JPRB,8.9379E-05_JPRB/)  
+KAO( :, 1, 5, 4) = (/&
+ & 6.6160E-05_JPRB,8.7240E-05_JPRB,9.4827E-05_JPRB,9.8971E-05_JPRB,1.0023E-04_JPRB,9.8598E-05_JPRB,&
+ & 9.3977E-05_JPRB,8.6015E-05_JPRB,7.7683E-05_JPRB/)  
+KAO( :, 2, 5, 4) = (/&
+ & 6.6183E-05_JPRB,8.8517E-05_JPRB,9.6624E-05_JPRB,1.0080E-04_JPRB,1.0196E-04_JPRB,1.0036E-04_JPRB,&
+ & 9.5737E-05_JPRB,8.7609E-05_JPRB,7.8892E-05_JPRB/)  
+KAO( :, 3, 5, 4) = (/&
+ & 6.6375E-05_JPRB,9.0052E-05_JPRB,9.8476E-05_JPRB,1.0284E-04_JPRB,1.0408E-04_JPRB,1.0241E-04_JPRB,&
+ & 9.7689E-05_JPRB,8.9585E-05_JPRB,8.0494E-05_JPRB/)  
+KAO( :, 4, 5, 4) = (/&
+ & 6.6706E-05_JPRB,9.1731E-05_JPRB,1.0049E-04_JPRB,1.0501E-04_JPRB,1.0639E-04_JPRB,1.0469E-04_JPRB,&
+ & 9.9852E-05_JPRB,9.1849E-05_JPRB,8.2317E-05_JPRB/)  
+KAO( :, 5, 5, 4) = (/&
+ & 6.7530E-05_JPRB,9.3541E-05_JPRB,1.0261E-04_JPRB,1.0728E-04_JPRB,1.0881E-04_JPRB,1.0721E-04_JPRB,&
+ & 1.0236E-04_JPRB,9.4247E-05_JPRB,8.4311E-05_JPRB/)  
+KAO( :, 1, 6, 4) = (/&
+ & 5.7820E-05_JPRB,7.7124E-05_JPRB,8.4195E-05_JPRB,8.7927E-05_JPRB,8.8972E-05_JPRB,8.7430E-05_JPRB,&
+ & 8.3132E-05_JPRB,7.5650E-05_JPRB,7.8327E-05_JPRB/)  
+KAO( :, 2, 6, 4) = (/&
+ & 5.7858E-05_JPRB,7.8413E-05_JPRB,8.5775E-05_JPRB,8.9605E-05_JPRB,9.0590E-05_JPRB,8.9122E-05_JPRB,&
+ & 8.4773E-05_JPRB,7.7051E-05_JPRB,7.8482E-05_JPRB/)  
+KAO( :, 3, 6, 4) = (/&
+ & 5.8124E-05_JPRB,7.9824E-05_JPRB,8.7576E-05_JPRB,9.1549E-05_JPRB,9.2483E-05_JPRB,9.0882E-05_JPRB,&
+ & 8.6480E-05_JPRB,7.8637E-05_JPRB,7.9105E-05_JPRB/)  
+KAO( :, 4, 6, 4) = (/&
+ & 5.8563E-05_JPRB,8.1362E-05_JPRB,8.9405E-05_JPRB,9.3593E-05_JPRB,9.4634E-05_JPRB,9.2868E-05_JPRB,&
+ & 8.8337E-05_JPRB,8.0467E-05_JPRB,8.0117E-05_JPRB/)  
+KAO( :, 5, 6, 4) = (/&
+ & 5.9163E-05_JPRB,8.2947E-05_JPRB,9.1328E-05_JPRB,9.5614E-05_JPRB,9.6868E-05_JPRB,9.5118E-05_JPRB,&
+ & 9.0461E-05_JPRB,8.2517E-05_JPRB,8.1395E-05_JPRB/)  
+KAO( :, 1, 7, 4) = (/&
+ & 5.0089E-05_JPRB,6.7496E-05_JPRB,7.4227E-05_JPRB,7.7520E-05_JPRB,7.8410E-05_JPRB,7.6863E-05_JPRB,&
+ & 7.2879E-05_JPRB,6.5963E-05_JPRB,8.6270E-05_JPRB/)  
+KAO( :, 2, 7, 4) = (/&
+ & 5.0200E-05_JPRB,6.8721E-05_JPRB,7.5605E-05_JPRB,7.9011E-05_JPRB,7.9876E-05_JPRB,7.8434E-05_JPRB,&
+ & 7.4469E-05_JPRB,6.7323E-05_JPRB,8.5543E-05_JPRB/)  
+KAO( :, 3, 7, 4) = (/&
+ & 5.0465E-05_JPRB,7.0073E-05_JPRB,7.7198E-05_JPRB,8.0725E-05_JPRB,8.1573E-05_JPRB,8.0081E-05_JPRB,&
+ & 7.6049E-05_JPRB,6.8699E-05_JPRB,8.4940E-05_JPRB/)  
+KAO( :, 4, 7, 4) = (/&
+ & 5.0935E-05_JPRB,7.1437E-05_JPRB,7.8942E-05_JPRB,8.2653E-05_JPRB,8.3546E-05_JPRB,8.1849E-05_JPRB,&
+ & 7.7644E-05_JPRB,7.0190E-05_JPRB,8.4597E-05_JPRB/)  
+KAO( :, 5, 7, 4) = (/&
+ & 5.1558E-05_JPRB,7.2909E-05_JPRB,8.0657E-05_JPRB,8.4558E-05_JPRB,8.5533E-05_JPRB,8.3860E-05_JPRB,&
+ & 7.9445E-05_JPRB,7.1873E-05_JPRB,8.4633E-05_JPRB/)  
+KAO( :, 1, 8, 4) = (/&
+ & 4.3241E-05_JPRB,5.8715E-05_JPRB,6.4907E-05_JPRB,6.7818E-05_JPRB,6.8520E-05_JPRB,6.7059E-05_JPRB,&
+ & 6.3436E-05_JPRB,5.7025E-05_JPRB,1.0556E-04_JPRB/)  
+KAO( :, 2, 8, 4) = (/&
+ & 4.3396E-05_JPRB,5.9829E-05_JPRB,6.6154E-05_JPRB,6.9172E-05_JPRB,6.9903E-05_JPRB,6.8506E-05_JPRB,&
+ & 6.4888E-05_JPRB,5.8346E-05_JPRB,1.0621E-04_JPRB/)  
+KAO( :, 3, 8, 4) = (/&
+ & 4.3671E-05_JPRB,6.1116E-05_JPRB,6.7537E-05_JPRB,7.0639E-05_JPRB,7.1418E-05_JPRB,7.0005E-05_JPRB,&
+ & 6.6322E-05_JPRB,5.9628E-05_JPRB,1.0623E-04_JPRB/)  
+KAO( :, 4, 8, 4) = (/&
+ & 4.4098E-05_JPRB,6.2393E-05_JPRB,6.9085E-05_JPRB,7.2351E-05_JPRB,7.3148E-05_JPRB,7.1679E-05_JPRB,&
+ & 6.7759E-05_JPRB,6.0926E-05_JPRB,1.0598E-04_JPRB/)  
+KAO( :, 5, 8, 4) = (/&
+ & 4.4692E-05_JPRB,6.3732E-05_JPRB,7.0698E-05_JPRB,7.4137E-05_JPRB,7.4984E-05_JPRB,7.3462E-05_JPRB,&
+ & 6.9302E-05_JPRB,6.2346E-05_JPRB,1.0567E-04_JPRB/)  
+KAO( :, 1, 9, 4) = (/&
+ & 3.7132E-05_JPRB,5.0817E-05_JPRB,5.6256E-05_JPRB,5.8754E-05_JPRB,5.9255E-05_JPRB,5.8002E-05_JPRB,&
+ & 5.4741E-05_JPRB,4.8907E-05_JPRB,1.5932E-04_JPRB/)  
+KAO( :, 2, 9, 4) = (/&
+ & 3.7275E-05_JPRB,5.1787E-05_JPRB,5.7392E-05_JPRB,6.0022E-05_JPRB,6.0595E-05_JPRB,5.9356E-05_JPRB,&
+ & 5.6080E-05_JPRB,5.0176E-05_JPRB,1.6074E-04_JPRB/)  
+KAO( :, 3, 9, 4) = (/&
+ & 3.7562E-05_JPRB,5.2932E-05_JPRB,5.8629E-05_JPRB,6.1314E-05_JPRB,6.1975E-05_JPRB,6.0718E-05_JPRB,&
+ & 5.7380E-05_JPRB,5.1383E-05_JPRB,1.6208E-04_JPRB/)  
+KAO( :, 4, 9, 4) = (/&
+ & 3.7959E-05_JPRB,5.4161E-05_JPRB,5.9989E-05_JPRB,6.2778E-05_JPRB,6.3464E-05_JPRB,6.2208E-05_JPRB,&
+ & 5.8730E-05_JPRB,5.2572E-05_JPRB,1.6367E-04_JPRB/)  
+KAO( :, 5, 9, 4) = (/&
+ & 3.8474E-05_JPRB,5.5413E-05_JPRB,6.1478E-05_JPRB,6.4374E-05_JPRB,6.5107E-05_JPRB,6.3821E-05_JPRB,&
+ & 6.0122E-05_JPRB,5.3780E-05_JPRB,1.6576E-04_JPRB/)  
+KAO( :, 1,10, 4) = (/&
+ & 3.1661E-05_JPRB,4.3721E-05_JPRB,4.8375E-05_JPRB,5.0533E-05_JPRB,5.0884E-05_JPRB,4.9757E-05_JPRB,&
+ & 4.6933E-05_JPRB,4.1760E-05_JPRB,3.3288E-04_JPRB/)  
+KAO( :, 2,10, 4) = (/&
+ & 3.1799E-05_JPRB,4.4567E-05_JPRB,4.9444E-05_JPRB,5.1711E-05_JPRB,5.2132E-05_JPRB,5.1037E-05_JPRB,&
+ & 4.8202E-05_JPRB,4.2932E-05_JPRB,3.3259E-04_JPRB/)  
+KAO( :, 3,10, 4) = (/&
+ & 3.2076E-05_JPRB,4.5598E-05_JPRB,5.0572E-05_JPRB,5.2901E-05_JPRB,5.3401E-05_JPRB,5.2274E-05_JPRB,&
+ & 4.9410E-05_JPRB,4.4046E-05_JPRB,3.3116E-04_JPRB/)  
+KAO( :, 4,10, 4) = (/&
+ & 3.2432E-05_JPRB,4.6745E-05_JPRB,5.1822E-05_JPRB,5.4161E-05_JPRB,5.4721E-05_JPRB,5.3605E-05_JPRB,&
+ & 5.0657E-05_JPRB,4.5130E-05_JPRB,3.2908E-04_JPRB/)  
+KAO( :, 5,10, 4) = (/&
+ & 3.2849E-05_JPRB,4.7929E-05_JPRB,5.3191E-05_JPRB,5.5555E-05_JPRB,5.6151E-05_JPRB,5.5034E-05_JPRB,&
+ & 5.1913E-05_JPRB,4.6196E-05_JPRB,3.2646E-04_JPRB/)  
+KAO( :, 1,11, 4) = (/&
+ & 2.6856E-05_JPRB,3.7683E-05_JPRB,4.1693E-05_JPRB,4.3606E-05_JPRB,4.3883E-05_JPRB,4.2891E-05_JPRB,&
+ & 4.0459E-05_JPRB,3.5912E-05_JPRB,4.0077E-04_JPRB/)  
+KAO( :, 2,11, 4) = (/&
+ & 2.7039E-05_JPRB,3.8497E-05_JPRB,4.2726E-05_JPRB,4.4727E-05_JPRB,4.5037E-05_JPRB,4.4055E-05_JPRB,&
+ & 4.1621E-05_JPRB,3.6978E-05_JPRB,3.9949E-04_JPRB/)  
+KAO( :, 3,11, 4) = (/&
+ & 2.7307E-05_JPRB,3.9484E-05_JPRB,4.3818E-05_JPRB,4.5808E-05_JPRB,4.6194E-05_JPRB,4.5211E-05_JPRB,&
+ & 4.2730E-05_JPRB,3.7986E-05_JPRB,3.9696E-04_JPRB/)  
+KAO( :, 4,11, 4) = (/&
+ & 2.7612E-05_JPRB,4.0551E-05_JPRB,4.5021E-05_JPRB,4.6980E-05_JPRB,4.7421E-05_JPRB,4.6420E-05_JPRB,&
+ & 4.3860E-05_JPRB,3.8943E-05_JPRB,3.9400E-04_JPRB/)  
+KAO( :, 5,11, 4) = (/&
+ & 2.7944E-05_JPRB,4.1639E-05_JPRB,4.6278E-05_JPRB,4.8247E-05_JPRB,4.8726E-05_JPRB,4.7717E-05_JPRB,&
+ & 4.5010E-05_JPRB,3.9912E-05_JPRB,3.9021E-04_JPRB/)  
+KAO( :, 1,12, 4) = (/&
+ & 2.2674E-05_JPRB,3.2256E-05_JPRB,3.5706E-05_JPRB,3.7375E-05_JPRB,3.7620E-05_JPRB,3.6748E-05_JPRB,&
+ & 3.4672E-05_JPRB,3.0753E-05_JPRB,3.9801E-04_JPRB/)  
+KAO( :, 2,12, 4) = (/&
+ & 2.2856E-05_JPRB,3.3035E-05_JPRB,3.6681E-05_JPRB,3.8389E-05_JPRB,3.8658E-05_JPRB,3.7799E-05_JPRB,&
+ & 3.5709E-05_JPRB,3.1711E-05_JPRB,3.9549E-04_JPRB/)  
+KAO( :, 3,12, 4) = (/&
+ & 2.3070E-05_JPRB,3.3949E-05_JPRB,3.7724E-05_JPRB,3.9400E-05_JPRB,3.9718E-05_JPRB,3.8860E-05_JPRB,&
+ & 3.6712E-05_JPRB,3.2588E-05_JPRB,3.9241E-04_JPRB/)  
+KAO( :, 4,12, 4) = (/&
+ & 2.3301E-05_JPRB,3.4905E-05_JPRB,3.8836E-05_JPRB,4.0484E-05_JPRB,4.0838E-05_JPRB,3.9966E-05_JPRB,&
+ & 3.7706E-05_JPRB,3.3447E-05_JPRB,3.8870E-04_JPRB/)  
+KAO( :, 5,12, 4) = (/&
+ & 2.3543E-05_JPRB,3.5840E-05_JPRB,3.9948E-05_JPRB,4.1657E-05_JPRB,4.2028E-05_JPRB,4.1130E-05_JPRB,&
+ & 3.8770E-05_JPRB,3.4320E-05_JPRB,3.8474E-04_JPRB/)  
+KAO( :, 1,13, 4) = (/&
+ & 1.9048E-05_JPRB,2.7433E-05_JPRB,3.0355E-05_JPRB,3.1781E-05_JPRB,3.2020E-05_JPRB,3.1297E-05_JPRB,&
+ & 2.9545E-05_JPRB,2.6213E-05_JPRB,3.3572E-04_JPRB/)  
+KAO( :, 2,13, 4) = (/&
+ & 1.9186E-05_JPRB,2.8151E-05_JPRB,3.1249E-05_JPRB,3.2687E-05_JPRB,3.2953E-05_JPRB,3.2236E-05_JPRB,&
+ & 3.0464E-05_JPRB,2.7042E-05_JPRB,3.3299E-04_JPRB/)  
+KAO( :, 3,13, 4) = (/&
+ & 1.9336E-05_JPRB,2.8946E-05_JPRB,3.2213E-05_JPRB,3.3632E-05_JPRB,3.3925E-05_JPRB,3.3202E-05_JPRB,&
+ & 3.1346E-05_JPRB,2.7832E-05_JPRB,3.2995E-04_JPRB/)  
+KAO( :, 4,13, 4) = (/&
+ & 1.9500E-05_JPRB,2.9752E-05_JPRB,3.3189E-05_JPRB,3.4641E-05_JPRB,3.4936E-05_JPRB,3.4186E-05_JPRB,&
+ & 3.2242E-05_JPRB,2.8586E-05_JPRB,3.2636E-04_JPRB/)  
+KAO( :, 5,13, 4) = (/&
+ & 1.9647E-05_JPRB,3.0517E-05_JPRB,3.4157E-05_JPRB,3.5690E-05_JPRB,3.6009E-05_JPRB,3.5240E-05_JPRB,&
+ & 3.3224E-05_JPRB,2.9383E-05_JPRB,3.2302E-04_JPRB/)  
+KAO( :, 1, 1, 5) = (/&
+ & 1.5710E-04_JPRB,2.0320E-04_JPRB,2.2809E-04_JPRB,2.4127E-04_JPRB,2.4664E-04_JPRB,2.4637E-04_JPRB,&
+ & 2.3954E-04_JPRB,2.2558E-04_JPRB,1.9226E-04_JPRB/)  
+KAO( :, 2, 1, 5) = (/&
+ & 1.5763E-04_JPRB,2.0602E-04_JPRB,2.3252E-04_JPRB,2.4654E-04_JPRB,2.5266E-04_JPRB,2.5275E-04_JPRB,&
+ & 2.4636E-04_JPRB,2.3254E-04_JPRB,1.9836E-04_JPRB/)  
+KAO( :, 3, 1, 5) = (/&
+ & 1.5885E-04_JPRB,2.0936E-04_JPRB,2.3726E-04_JPRB,2.5211E-04_JPRB,2.5917E-04_JPRB,2.5987E-04_JPRB,&
+ & 2.5423E-04_JPRB,2.4110E-04_JPRB,2.0597E-04_JPRB/)  
+KAO( :, 4, 1, 5) = (/&
+ & 1.6010E-04_JPRB,2.1292E-04_JPRB,2.4195E-04_JPRB,2.5773E-04_JPRB,2.6599E-04_JPRB,2.6801E-04_JPRB,&
+ & 2.6343E-04_JPRB,2.5079E-04_JPRB,2.1448E-04_JPRB/)  
+KAO( :, 5, 1, 5) = (/&
+ & 1.6183E-04_JPRB,2.1689E-04_JPRB,2.4710E-04_JPRB,2.6390E-04_JPRB,2.7349E-04_JPRB,2.7678E-04_JPRB,&
+ & 2.7286E-04_JPRB,2.6055E-04_JPRB,2.2334E-04_JPRB/)  
+KAO( :, 1, 2, 5) = (/&
+ & 1.4264E-04_JPRB,1.8747E-04_JPRB,2.0916E-04_JPRB,2.2048E-04_JPRB,2.2542E-04_JPRB,2.2467E-04_JPRB,&
+ & 2.1833E-04_JPRB,2.0428E-04_JPRB,1.7002E-04_JPRB/)  
+KAO( :, 2, 2, 5) = (/&
+ & 1.4357E-04_JPRB,1.9029E-04_JPRB,2.1342E-04_JPRB,2.2542E-04_JPRB,2.3082E-04_JPRB,2.3044E-04_JPRB,&
+ & 2.2413E-04_JPRB,2.1022E-04_JPRB,1.7510E-04_JPRB/)  
+KAO( :, 3, 2, 5) = (/&
+ & 1.4512E-04_JPRB,1.9354E-04_JPRB,2.1804E-04_JPRB,2.3071E-04_JPRB,2.3662E-04_JPRB,2.3677E-04_JPRB,&
+ & 2.3090E-04_JPRB,2.1760E-04_JPRB,1.8164E-04_JPRB/)  
+KAO( :, 4, 2, 5) = (/&
+ & 1.4675E-04_JPRB,1.9716E-04_JPRB,2.2262E-04_JPRB,2.3622E-04_JPRB,2.4303E-04_JPRB,2.4400E-04_JPRB,&
+ & 2.3876E-04_JPRB,2.2602E-04_JPRB,1.8905E-04_JPRB/)  
+KAO( :, 5, 2, 5) = (/&
+ & 1.4825E-04_JPRB,2.0084E-04_JPRB,2.2744E-04_JPRB,2.4214E-04_JPRB,2.4980E-04_JPRB,2.5170E-04_JPRB,&
+ & 2.4697E-04_JPRB,2.3468E-04_JPRB,1.9668E-04_JPRB/)  
+KAO( :, 1, 3, 5) = (/&
+ & 1.2913E-04_JPRB,1.7105E-04_JPRB,1.8962E-04_JPRB,1.9927E-04_JPRB,2.0344E-04_JPRB,2.0263E-04_JPRB,&
+ & 1.9648E-04_JPRB,1.8374E-04_JPRB,1.5154E-04_JPRB/)  
+KAO( :, 2, 3, 5) = (/&
+ & 1.3034E-04_JPRB,1.7385E-04_JPRB,1.9352E-04_JPRB,2.0379E-04_JPRB,2.0816E-04_JPRB,2.0767E-04_JPRB,&
+ & 2.0141E-04_JPRB,1.8880E-04_JPRB,1.5543E-04_JPRB/)  
+KAO( :, 3, 3, 5) = (/&
+ & 1.3189E-04_JPRB,1.7683E-04_JPRB,1.9785E-04_JPRB,2.0858E-04_JPRB,2.1306E-04_JPRB,2.1289E-04_JPRB,&
+ & 2.0705E-04_JPRB,1.9450E-04_JPRB,1.6042E-04_JPRB/)  
+KAO( :, 4, 3, 5) = (/&
+ & 1.3375E-04_JPRB,1.8038E-04_JPRB,2.0233E-04_JPRB,2.1375E-04_JPRB,2.1890E-04_JPRB,2.1897E-04_JPRB,&
+ & 2.1362E-04_JPRB,2.0111E-04_JPRB,1.6638E-04_JPRB/)  
+KAO( :, 5, 3, 5) = (/&
+ & 1.3531E-04_JPRB,1.8393E-04_JPRB,2.0677E-04_JPRB,2.1903E-04_JPRB,2.2516E-04_JPRB,2.2557E-04_JPRB,&
+ & 2.2073E-04_JPRB,2.0849E-04_JPRB,1.7278E-04_JPRB/)  
+KAO( :, 1, 4, 5) = (/&
+ & 1.1675E-04_JPRB,1.5471E-04_JPRB,1.7086E-04_JPRB,1.7907E-04_JPRB,1.8234E-04_JPRB,1.8104E-04_JPRB,&
+ & 1.7606E-04_JPRB,1.6488E-04_JPRB,1.3686E-04_JPRB/)  
+KAO( :, 2, 4, 5) = (/&
+ & 1.1811E-04_JPRB,1.5738E-04_JPRB,1.7430E-04_JPRB,1.8299E-04_JPRB,1.8662E-04_JPRB,1.8551E-04_JPRB,&
+ & 1.8028E-04_JPRB,1.6914E-04_JPRB,1.4021E-04_JPRB/)  
+KAO( :, 3, 4, 5) = (/&
+ & 1.1971E-04_JPRB,1.6033E-04_JPRB,1.7826E-04_JPRB,1.8706E-04_JPRB,1.9073E-04_JPRB,1.9003E-04_JPRB,&
+ & 1.8491E-04_JPRB,1.7381E-04_JPRB,1.4440E-04_JPRB/)  
+KAO( :, 4, 4, 5) = (/&
+ & 1.2145E-04_JPRB,1.6360E-04_JPRB,1.8232E-04_JPRB,1.9160E-04_JPRB,1.9546E-04_JPRB,1.9520E-04_JPRB,&
+ & 1.9032E-04_JPRB,1.7913E-04_JPRB,1.4919E-04_JPRB/)  
+KAO( :, 5, 4, 5) = (/&
+ & 1.2345E-04_JPRB,1.6734E-04_JPRB,1.8679E-04_JPRB,1.9667E-04_JPRB,2.0102E-04_JPRB,2.0119E-04_JPRB,&
+ & 1.9631E-04_JPRB,1.8511E-04_JPRB,1.5453E-04_JPRB/)  
+KAO( :, 1, 5, 5) = (/&
+ & 1.0534E-04_JPRB,1.3892E-04_JPRB,1.5318E-04_JPRB,1.6013E-04_JPRB,1.6249E-04_JPRB,1.6140E-04_JPRB,&
+ & 1.5677E-04_JPRB,1.4673E-04_JPRB,1.2734E-04_JPRB/)  
+KAO( :, 2, 5, 5) = (/&
+ & 1.0682E-04_JPRB,1.4149E-04_JPRB,1.5615E-04_JPRB,1.6351E-04_JPRB,1.6643E-04_JPRB,1.6536E-04_JPRB,&
+ & 1.6060E-04_JPRB,1.5077E-04_JPRB,1.3032E-04_JPRB/)  
+KAO( :, 3, 5, 5) = (/&
+ & 1.0832E-04_JPRB,1.4437E-04_JPRB,1.5968E-04_JPRB,1.6719E-04_JPRB,1.7007E-04_JPRB,1.6925E-04_JPRB,&
+ & 1.6475E-04_JPRB,1.5487E-04_JPRB,1.3383E-04_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART3',1,ZHOOK_HANDLE)
+END SUBROUTINE PART3
+
+
+SUBROUTINE PART4
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART4',0,ZHOOK_HANDLE)
+
+
+KAO( :, 4, 5, 5) = (/&
+ & 1.0998E-04_JPRB,1.4759E-04_JPRB,1.6348E-04_JPRB,1.7115E-04_JPRB,1.7411E-04_JPRB,1.7355E-04_JPRB,&
+ & 1.6947E-04_JPRB,1.5945E-04_JPRB,1.3787E-04_JPRB/)  
+KAO( :, 5, 5, 5) = (/&
+ & 1.1196E-04_JPRB,1.5129E-04_JPRB,1.6770E-04_JPRB,1.7586E-04_JPRB,1.7902E-04_JPRB,1.7859E-04_JPRB,&
+ & 1.7456E-04_JPRB,1.6452E-04_JPRB,1.4233E-04_JPRB/)  
+KAO( :, 1, 6, 5) = (/&
+ & 9.4514E-05_JPRB,1.2412E-04_JPRB,1.3657E-04_JPRB,1.4247E-04_JPRB,1.4441E-04_JPRB,1.4315E-04_JPRB,&
+ & 1.3838E-04_JPRB,1.2929E-04_JPRB,1.2327E-04_JPRB/)  
+KAO( :, 2, 6, 5) = (/&
+ & 9.5941E-05_JPRB,1.2645E-04_JPRB,1.3931E-04_JPRB,1.4558E-04_JPRB,1.4789E-04_JPRB,1.4670E-04_JPRB,&
+ & 1.4200E-04_JPRB,1.3303E-04_JPRB,1.2601E-04_JPRB/)  
+KAO( :, 3, 6, 5) = (/&
+ & 9.7365E-05_JPRB,1.2920E-04_JPRB,1.4235E-04_JPRB,1.4876E-04_JPRB,1.5129E-04_JPRB,1.5035E-04_JPRB,&
+ & 1.4574E-04_JPRB,1.3687E-04_JPRB,1.2924E-04_JPRB/)  
+KAO( :, 4, 6, 5) = (/&
+ & 9.8894E-05_JPRB,1.3238E-04_JPRB,1.4586E-04_JPRB,1.5224E-04_JPRB,1.5484E-04_JPRB,1.5423E-04_JPRB,&
+ & 1.4989E-04_JPRB,1.4089E-04_JPRB,1.3292E-04_JPRB/)  
+KAO( :, 5, 6, 5) = (/&
+ & 1.0059E-04_JPRB,1.3577E-04_JPRB,1.4967E-04_JPRB,1.5644E-04_JPRB,1.5902E-04_JPRB,1.5844E-04_JPRB,&
+ & 1.5428E-04_JPRB,1.4522E-04_JPRB,1.3684E-04_JPRB/)  
+KAO( :, 1, 7, 5) = (/&
+ & 8.3817E-05_JPRB,1.1024E-04_JPRB,1.2069E-04_JPRB,1.2606E-04_JPRB,1.2762E-04_JPRB,1.2601E-04_JPRB,&
+ & 1.2142E-04_JPRB,1.1275E-04_JPRB,1.2580E-04_JPRB/)  
+KAO( :, 2, 7, 5) = (/&
+ & 8.5049E-05_JPRB,1.1240E-04_JPRB,1.2345E-04_JPRB,1.2908E-04_JPRB,1.3088E-04_JPRB,1.2946E-04_JPRB,&
+ & 1.2489E-04_JPRB,1.1643E-04_JPRB,1.2769E-04_JPRB/)  
+KAO( :, 3, 7, 5) = (/&
+ & 8.6443E-05_JPRB,1.1489E-04_JPRB,1.2631E-04_JPRB,1.3210E-04_JPRB,1.3408E-04_JPRB,1.3284E-04_JPRB,&
+ & 1.2822E-04_JPRB,1.1996E-04_JPRB,1.3009E-04_JPRB/)  
+KAO( :, 4, 7, 5) = (/&
+ & 8.7868E-05_JPRB,1.1787E-04_JPRB,1.2952E-04_JPRB,1.3521E-04_JPRB,1.3734E-04_JPRB,1.3637E-04_JPRB,&
+ & 1.3189E-04_JPRB,1.2366E-04_JPRB,1.3307E-04_JPRB/)  
+KAO( :, 5, 7, 5) = (/&
+ & 8.9520E-05_JPRB,1.2113E-04_JPRB,1.3311E-04_JPRB,1.3890E-04_JPRB,1.4111E-04_JPRB,1.4019E-04_JPRB,&
+ & 1.3574E-04_JPRB,1.2746E-04_JPRB,1.3629E-04_JPRB/)  
+KAO( :, 1, 8, 5) = (/&
+ & 7.3739E-05_JPRB,9.7315E-05_JPRB,1.0630E-04_JPRB,1.1091E-04_JPRB,1.1210E-04_JPRB,1.1034E-04_JPRB,&
+ & 1.0576E-04_JPRB,9.7435E-05_JPRB,1.5219E-04_JPRB/)  
+KAO( :, 2, 8, 5) = (/&
+ & 7.4739E-05_JPRB,9.9339E-05_JPRB,1.0888E-04_JPRB,1.1385E-04_JPRB,1.1515E-04_JPRB,1.1361E-04_JPRB,&
+ & 1.0914E-04_JPRB,1.0091E-04_JPRB,1.5078E-04_JPRB/)  
+KAO( :, 3, 8, 5) = (/&
+ & 7.5979E-05_JPRB,1.0158E-04_JPRB,1.1168E-04_JPRB,1.1676E-04_JPRB,1.1825E-04_JPRB,1.1684E-04_JPRB,&
+ & 1.1240E-04_JPRB,1.0417E-04_JPRB,1.5044E-04_JPRB/)  
+KAO( :, 4, 8, 5) = (/&
+ & 7.7389E-05_JPRB,1.0425E-04_JPRB,1.1460E-04_JPRB,1.1977E-04_JPRB,1.2131E-04_JPRB,1.2000E-04_JPRB,&
+ & 1.1564E-04_JPRB,1.0754E-04_JPRB,1.5083E-04_JPRB/)  
+KAO( :, 5, 8, 5) = (/&
+ & 7.8988E-05_JPRB,1.0719E-04_JPRB,1.1787E-04_JPRB,1.2308E-04_JPRB,1.2465E-04_JPRB,1.2345E-04_JPRB,&
+ & 1.1918E-04_JPRB,1.1099E-04_JPRB,1.5186E-04_JPRB/)  
+KAO( :, 1, 9, 5) = (/&
+ & 6.4327E-05_JPRB,8.5194E-05_JPRB,9.3124E-05_JPRB,9.6906E-05_JPRB,9.7902E-05_JPRB,9.6087E-05_JPRB,&
+ & 9.1486E-05_JPRB,8.3530E-05_JPRB,3.0559E-04_JPRB/)  
+KAO( :, 2, 9, 5) = (/&
+ & 6.5169E-05_JPRB,8.7114E-05_JPRB,9.5498E-05_JPRB,9.9699E-05_JPRB,1.0078E-04_JPRB,9.9075E-05_JPRB,&
+ & 9.4585E-05_JPRB,8.6649E-05_JPRB,3.0376E-04_JPRB/)  
+KAO( :, 3, 9, 5) = (/&
+ & 6.6228E-05_JPRB,8.9174E-05_JPRB,9.8080E-05_JPRB,1.0257E-04_JPRB,1.0373E-04_JPRB,1.0212E-04_JPRB,&
+ & 9.7761E-05_JPRB,8.9715E-05_JPRB,3.0205E-04_JPRB/)  
+KAO( :, 4, 9, 5) = (/&
+ & 6.7560E-05_JPRB,9.1493E-05_JPRB,1.0085E-04_JPRB,1.0546E-04_JPRB,1.0670E-04_JPRB,1.0511E-04_JPRB,&
+ & 1.0078E-04_JPRB,9.2773E-05_JPRB,2.9925E-04_JPRB/)  
+KAO( :, 5, 9, 5) = (/&
+ & 6.9090E-05_JPRB,9.4108E-05_JPRB,1.0377E-04_JPRB,1.0852E-04_JPRB,1.0981E-04_JPRB,1.0822E-04_JPRB,&
+ & 1.0396E-04_JPRB,9.5948E-05_JPRB,2.9560E-04_JPRB/)  
+KAO( :, 1,10, 5) = (/&
+ & 5.5732E-05_JPRB,7.4195E-05_JPRB,8.1092E-05_JPRB,8.4263E-05_JPRB,8.5004E-05_JPRB,8.3260E-05_JPRB,&
+ & 7.8896E-05_JPRB,7.1326E-05_JPRB,7.3141E-04_JPRB/)  
+KAO( :, 2,10, 5) = (/&
+ & 5.6464E-05_JPRB,7.5996E-05_JPRB,8.3306E-05_JPRB,8.6877E-05_JPRB,8.7776E-05_JPRB,8.6058E-05_JPRB,&
+ & 8.1636E-05_JPRB,7.4082E-05_JPRB,7.1679E-04_JPRB/)  
+KAO( :, 3,10, 5) = (/&
+ & 5.7403E-05_JPRB,7.7891E-05_JPRB,8.5666E-05_JPRB,8.9585E-05_JPRB,9.0592E-05_JPRB,8.8875E-05_JPRB,&
+ & 8.4523E-05_JPRB,7.6897E-05_JPRB,7.0421E-04_JPRB/)  
+KAO( :, 4,10, 5) = (/&
+ & 5.8620E-05_JPRB,7.9933E-05_JPRB,8.8213E-05_JPRB,9.2386E-05_JPRB,9.3433E-05_JPRB,9.1667E-05_JPRB,&
+ & 8.7388E-05_JPRB,7.9742E-05_JPRB,6.9385E-04_JPRB/)  
+KAO( :, 5,10, 5) = (/&
+ & 6.0067E-05_JPRB,8.2256E-05_JPRB,9.0893E-05_JPRB,9.5273E-05_JPRB,9.6366E-05_JPRB,9.4596E-05_JPRB,&
+ & 9.0298E-05_JPRB,8.2632E-05_JPRB,6.8465E-04_JPRB/)  
+KAO( :, 1,11, 5) = (/&
+ & 4.8186E-05_JPRB,6.4983E-05_JPRB,7.1108E-05_JPRB,7.3858E-05_JPRB,7.4401E-05_JPRB,7.2817E-05_JPRB,&
+ & 6.8716E-05_JPRB,6.1721E-05_JPRB,9.3137E-04_JPRB/)  
+KAO( :, 2,11, 5) = (/&
+ & 4.8927E-05_JPRB,6.6681E-05_JPRB,7.3165E-05_JPRB,7.6242E-05_JPRB,7.7034E-05_JPRB,7.5453E-05_JPRB,&
+ & 7.1255E-05_JPRB,6.4142E-05_JPRB,9.0283E-04_JPRB/)  
+KAO( :, 3,11, 5) = (/&
+ & 4.9906E-05_JPRB,6.8442E-05_JPRB,7.5379E-05_JPRB,7.8833E-05_JPRB,7.9706E-05_JPRB,7.8052E-05_JPRB,&
+ & 7.3833E-05_JPRB,6.6698E-05_JPRB,8.7896E-04_JPRB/)  
+KAO( :, 4,11, 5) = (/&
+ & 5.1140E-05_JPRB,7.0403E-05_JPRB,7.7738E-05_JPRB,8.1490E-05_JPRB,8.2392E-05_JPRB,8.0715E-05_JPRB,&
+ & 7.6507E-05_JPRB,6.9333E-05_JPRB,8.5877E-04_JPRB/)  
+KAO( :, 5,11, 5) = (/&
+ & 5.2547E-05_JPRB,7.2595E-05_JPRB,8.0310E-05_JPRB,8.4272E-05_JPRB,8.5190E-05_JPRB,8.3479E-05_JPRB,&
+ & 7.9204E-05_JPRB,7.1956E-05_JPRB,8.4129E-04_JPRB/)  
+KAO( :, 1,12, 5) = (/&
+ & 4.1357E-05_JPRB,5.6591E-05_JPRB,6.2004E-05_JPRB,6.4335E-05_JPRB,6.4718E-05_JPRB,6.3255E-05_JPRB,&
+ & 5.9536E-05_JPRB,5.3170E-05_JPRB,9.4628E-04_JPRB/)  
+KAO( :, 2,12, 5) = (/&
+ & 4.2117E-05_JPRB,5.8142E-05_JPRB,6.3912E-05_JPRB,6.6563E-05_JPRB,6.7175E-05_JPRB,6.5721E-05_JPRB,&
+ & 6.1864E-05_JPRB,5.5283E-05_JPRB,9.1448E-04_JPRB/)  
+KAO( :, 3,12, 5) = (/&
+ & 4.3123E-05_JPRB,5.9831E-05_JPRB,6.5955E-05_JPRB,6.8956E-05_JPRB,6.9677E-05_JPRB,6.8113E-05_JPRB,&
+ & 6.4202E-05_JPRB,5.7597E-05_JPRB,8.8738E-04_JPRB/)  
+KAO( :, 4,12, 5) = (/&
+ & 4.4308E-05_JPRB,6.1719E-05_JPRB,6.8165E-05_JPRB,7.1448E-05_JPRB,7.2209E-05_JPRB,7.0617E-05_JPRB,&
+ & 6.6651E-05_JPRB,5.9974E-05_JPRB,8.6370E-04_JPRB/)  
+KAO( :, 5,12, 5) = (/&
+ & 4.5586E-05_JPRB,6.3825E-05_JPRB,7.0651E-05_JPRB,7.4074E-05_JPRB,7.4824E-05_JPRB,7.3199E-05_JPRB,&
+ & 6.9129E-05_JPRB,6.2368E-05_JPRB,8.4394E-04_JPRB/)  
+KAO( :, 1,13, 5) = (/&
+ & 3.5199E-05_JPRB,4.8904E-05_JPRB,5.3685E-05_JPRB,5.5708E-05_JPRB,5.5958E-05_JPRB,5.4602E-05_JPRB,&
+ & 5.1289E-05_JPRB,4.5544E-05_JPRB,7.9844E-04_JPRB/)  
+KAO( :, 2,13, 5) = (/&
+ & 3.5968E-05_JPRB,5.0359E-05_JPRB,5.5441E-05_JPRB,5.7776E-05_JPRB,5.8210E-05_JPRB,5.6833E-05_JPRB,&
+ & 5.3406E-05_JPRB,4.7437E-05_JPRB,7.7225E-04_JPRB/)  
+KAO( :, 3,13, 5) = (/&
+ & 3.6919E-05_JPRB,5.1978E-05_JPRB,5.7339E-05_JPRB,5.9942E-05_JPRB,6.0487E-05_JPRB,5.9061E-05_JPRB,&
+ & 5.5548E-05_JPRB,4.9491E-05_JPRB,7.4964E-04_JPRB/)  
+KAO( :, 4,13, 5) = (/&
+ & 3.7983E-05_JPRB,5.3790E-05_JPRB,5.9444E-05_JPRB,6.2256E-05_JPRB,6.2844E-05_JPRB,6.1377E-05_JPRB,&
+ & 5.7755E-05_JPRB,5.1611E-05_JPRB,7.3016E-04_JPRB/)  
+KAO( :, 5,13, 5) = (/&
+ & 3.9071E-05_JPRB,5.5803E-05_JPRB,6.1798E-05_JPRB,6.4723E-05_JPRB,6.5302E-05_JPRB,6.3732E-05_JPRB,&
+ & 5.9993E-05_JPRB,5.3748E-05_JPRB,7.1404E-04_JPRB/)  
+KAO( :, 1, 1, 6) = (/&
+ & 2.5660E-04_JPRB,3.1807E-04_JPRB,3.6094E-04_JPRB,3.8920E-04_JPRB,4.0736E-04_JPRB,4.1545E-04_JPRB,&
+ & 4.1386E-04_JPRB,4.0633E-04_JPRB,3.6193E-04_JPRB/)  
+KAO( :, 2, 1, 6) = (/&
+ & 2.5865E-04_JPRB,3.2319E-04_JPRB,3.6764E-04_JPRB,3.9762E-04_JPRB,4.1800E-04_JPRB,4.2858E-04_JPRB,&
+ & 4.2847E-04_JPRB,4.2235E-04_JPRB,3.7675E-04_JPRB/)  
+KAO( :, 3, 1, 6) = (/&
+ & 2.6137E-04_JPRB,3.2915E-04_JPRB,3.7535E-04_JPRB,4.0750E-04_JPRB,4.2970E-04_JPRB,4.4147E-04_JPRB,&
+ & 4.4293E-04_JPRB,4.3843E-04_JPRB,3.9233E-04_JPRB/)  
+KAO( :, 4, 1, 6) = (/&
+ & 2.6360E-04_JPRB,3.3488E-04_JPRB,3.8404E-04_JPRB,4.1788E-04_JPRB,4.4114E-04_JPRB,4.5427E-04_JPRB,&
+ & 4.5738E-04_JPRB,4.5544E-04_JPRB,4.1003E-04_JPRB/)  
+KAO( :, 5, 1, 6) = (/&
+ & 2.6660E-04_JPRB,3.4173E-04_JPRB,3.9350E-04_JPRB,4.2919E-04_JPRB,4.5400E-04_JPRB,4.6894E-04_JPRB,&
+ & 4.7415E-04_JPRB,4.7523E-04_JPRB,4.3058E-04_JPRB/)  
+KAO( :, 1, 2, 6) = (/&
+ & 2.3631E-04_JPRB,2.9631E-04_JPRB,3.3525E-04_JPRB,3.5919E-04_JPRB,3.7267E-04_JPRB,3.7835E-04_JPRB,&
+ & 3.7529E-04_JPRB,3.6555E-04_JPRB,3.2111E-04_JPRB/)  
+KAO( :, 2, 2, 6) = (/&
+ & 2.3829E-04_JPRB,3.0128E-04_JPRB,3.4159E-04_JPRB,3.6758E-04_JPRB,3.8290E-04_JPRB,3.9019E-04_JPRB,&
+ & 3.8891E-04_JPRB,3.7964E-04_JPRB,3.3378E-04_JPRB/)  
+KAO( :, 3, 2, 6) = (/&
+ & 2.4092E-04_JPRB,3.0698E-04_JPRB,3.4893E-04_JPRB,3.7703E-04_JPRB,3.9429E-04_JPRB,4.0240E-04_JPRB,&
+ & 4.0189E-04_JPRB,3.9363E-04_JPRB,3.4730E-04_JPRB/)  
+KAO( :, 4, 2, 6) = (/&
+ & 2.4353E-04_JPRB,3.1280E-04_JPRB,3.5757E-04_JPRB,3.8697E-04_JPRB,4.0550E-04_JPRB,4.1447E-04_JPRB,&
+ & 4.1496E-04_JPRB,4.0890E-04_JPRB,3.6318E-04_JPRB/)  
+KAO( :, 5, 2, 6) = (/&
+ & 2.4646E-04_JPRB,3.1930E-04_JPRB,3.6666E-04_JPRB,3.9774E-04_JPRB,4.1741E-04_JPRB,4.2801E-04_JPRB,&
+ & 4.2988E-04_JPRB,4.2637E-04_JPRB,3.8102E-04_JPRB/)  
+KAO( :, 1, 3, 6) = (/&
+ & 2.1702E-04_JPRB,2.7392E-04_JPRB,3.0713E-04_JPRB,3.2661E-04_JPRB,3.3701E-04_JPRB,3.4012E-04_JPRB,&
+ & 3.3574E-04_JPRB,3.2367E-04_JPRB,2.7953E-04_JPRB/)  
+KAO( :, 2, 3, 6) = (/&
+ & 2.1882E-04_JPRB,2.7874E-04_JPRB,3.1368E-04_JPRB,3.3483E-04_JPRB,3.4655E-04_JPRB,3.5089E-04_JPRB,&
+ & 3.4836E-04_JPRB,3.3662E-04_JPRB,2.9075E-04_JPRB/)  
+KAO( :, 3, 3, 6) = (/&
+ & 2.2093E-04_JPRB,2.8379E-04_JPRB,3.2031E-04_JPRB,3.4355E-04_JPRB,3.5690E-04_JPRB,3.6196E-04_JPRB,&
+ & 3.6029E-04_JPRB,3.4924E-04_JPRB,3.0255E-04_JPRB/)  
+KAO( :, 4, 3, 6) = (/&
+ & 2.2391E-04_JPRB,2.8964E-04_JPRB,3.2857E-04_JPRB,3.5322E-04_JPRB,3.6741E-04_JPRB,3.7364E-04_JPRB,&
+ & 3.7227E-04_JPRB,3.6287E-04_JPRB,3.1610E-04_JPRB/)  
+KAO( :, 5, 3, 6) = (/&
+ & 2.2678E-04_JPRB,2.9569E-04_JPRB,3.3712E-04_JPRB,3.6314E-04_JPRB,3.7839E-04_JPRB,3.8589E-04_JPRB,&
+ & 3.8538E-04_JPRB,3.7808E-04_JPRB,3.3103E-04_JPRB/)  
+KAO( :, 1, 4, 6) = (/&
+ & 1.9893E-04_JPRB,2.5184E-04_JPRB,2.7904E-04_JPRB,2.9424E-04_JPRB,3.0215E-04_JPRB,3.0353E-04_JPRB,&
+ & 2.9750E-04_JPRB,2.8367E-04_JPRB,2.4378E-04_JPRB/)  
+KAO( :, 2, 4, 6) = (/&
+ & 2.0039E-04_JPRB,2.5636E-04_JPRB,2.8551E-04_JPRB,3.0218E-04_JPRB,3.1138E-04_JPRB,3.1364E-04_JPRB,&
+ & 3.0933E-04_JPRB,2.9596E-04_JPRB,2.5360E-04_JPRB/)  
+KAO( :, 3, 4, 6) = (/&
+ & 2.0244E-04_JPRB,2.6111E-04_JPRB,2.9172E-04_JPRB,3.1073E-04_JPRB,3.2138E-04_JPRB,3.2408E-04_JPRB,&
+ & 3.2030E-04_JPRB,3.0766E-04_JPRB,2.6380E-04_JPRB/)  
+KAO( :, 4, 4, 6) = (/&
+ & 2.0501E-04_JPRB,2.6640E-04_JPRB,2.9889E-04_JPRB,3.1956E-04_JPRB,3.3116E-04_JPRB,3.3435E-04_JPRB,&
+ & 3.3120E-04_JPRB,3.1983E-04_JPRB,2.7551E-04_JPRB/)  
+KAO( :, 5, 4, 6) = (/&
+ & 2.0836E-04_JPRB,2.7264E-04_JPRB,3.0721E-04_JPRB,3.2917E-04_JPRB,3.4139E-04_JPRB,3.4585E-04_JPRB,&
+ & 3.4342E-04_JPRB,3.3321E-04_JPRB,2.8833E-04_JPRB/)  
+KAO( :, 1, 5, 6) = (/&
+ & 1.8177E-04_JPRB,2.3005E-04_JPRB,2.5216E-04_JPRB,2.6400E-04_JPRB,2.6980E-04_JPRB,2.6977E-04_JPRB,&
+ & 2.6270E-04_JPRB,2.4807E-04_JPRB,2.1566E-04_JPRB/)  
+KAO( :, 2, 5, 6) = (/&
+ & 1.8288E-04_JPRB,2.3456E-04_JPRB,2.5850E-04_JPRB,2.7178E-04_JPRB,2.7838E-04_JPRB,2.7918E-04_JPRB,&
+ & 2.7326E-04_JPRB,2.5893E-04_JPRB,2.2464E-04_JPRB/)  
+KAO( :, 3, 5, 6) = (/&
+ & 1.8495E-04_JPRB,2.3899E-04_JPRB,2.6446E-04_JPRB,2.7972E-04_JPRB,2.8778E-04_JPRB,2.8887E-04_JPRB,&
+ & 2.8352E-04_JPRB,2.6965E-04_JPRB,2.3371E-04_JPRB/)  
+KAO( :, 4, 5, 6) = (/&
+ & 1.8757E-04_JPRB,2.4389E-04_JPRB,2.7104E-04_JPRB,2.8807E-04_JPRB,2.9709E-04_JPRB,2.9855E-04_JPRB,&
+ & 2.9335E-04_JPRB,2.8065E-04_JPRB,2.4386E-04_JPRB/)  
+KAO( :, 5, 5, 6) = (/&
+ & 1.9089E-04_JPRB,2.4987E-04_JPRB,2.7871E-04_JPRB,2.9704E-04_JPRB,3.0660E-04_JPRB,3.0888E-04_JPRB,&
+ & 3.0414E-04_JPRB,2.9240E-04_JPRB,2.5489E-04_JPRB/)  
+KAO( :, 1, 6, 6) = (/&
+ & 1.6548E-04_JPRB,2.0845E-04_JPRB,2.2667E-04_JPRB,2.3621E-04_JPRB,2.3998E-04_JPRB,2.3852E-04_JPRB,&
+ & 2.3181E-04_JPRB,2.1713E-04_JPRB,1.9774E-04_JPRB/)  
+KAO( :, 2, 6, 6) = (/&
+ & 1.6647E-04_JPRB,2.1295E-04_JPRB,2.3285E-04_JPRB,2.4356E-04_JPRB,2.4798E-04_JPRB,2.4711E-04_JPRB,&
+ & 2.4086E-04_JPRB,2.2656E-04_JPRB,2.0619E-04_JPRB/)  
+KAO( :, 3, 6, 6) = (/&
+ & 1.6832E-04_JPRB,2.1735E-04_JPRB,2.3897E-04_JPRB,2.5101E-04_JPRB,2.5638E-04_JPRB,2.5608E-04_JPRB,&
+ & 2.5005E-04_JPRB,2.3612E-04_JPRB,2.1472E-04_JPRB/)  
+KAO( :, 4, 6, 6) = (/&
+ & 1.7090E-04_JPRB,2.2192E-04_JPRB,2.4527E-04_JPRB,2.5863E-04_JPRB,2.6479E-04_JPRB,2.6498E-04_JPRB,&
+ & 2.5909E-04_JPRB,2.4595E-04_JPRB,2.2382E-04_JPRB/)  
+KAO( :, 5, 6, 6) = (/&
+ & 1.7392E-04_JPRB,2.2728E-04_JPRB,2.5204E-04_JPRB,2.6653E-04_JPRB,2.7329E-04_JPRB,2.7417E-04_JPRB,&
+ & 2.6871E-04_JPRB,2.5622E-04_JPRB,2.3379E-04_JPRB/)  
+KAO( :, 1, 7, 6) = (/&
+ & 1.4974E-04_JPRB,1.8746E-04_JPRB,2.0303E-04_JPRB,2.1075E-04_JPRB,2.1306E-04_JPRB,2.1110E-04_JPRB,&
+ & 2.0431E-04_JPRB,1.8998E-04_JPRB,1.9358E-04_JPRB/)  
+KAO( :, 2, 7, 6) = (/&
+ & 1.5089E-04_JPRB,1.9183E-04_JPRB,2.0895E-04_JPRB,2.1750E-04_JPRB,2.2044E-04_JPRB,2.1873E-04_JPRB,&
+ & 2.1228E-04_JPRB,1.9808E-04_JPRB,2.0012E-04_JPRB/)  
+KAO( :, 3, 7, 6) = (/&
+ & 1.5257E-04_JPRB,1.9611E-04_JPRB,2.1478E-04_JPRB,2.2448E-04_JPRB,2.2805E-04_JPRB,2.2660E-04_JPRB,&
+ & 2.2066E-04_JPRB,2.0672E-04_JPRB,2.0775E-04_JPRB/)  
+KAO( :, 4, 7, 6) = (/&
+ & 1.5493E-04_JPRB,2.0056E-04_JPRB,2.2076E-04_JPRB,2.3152E-04_JPRB,2.3569E-04_JPRB,2.3461E-04_JPRB,&
+ & 2.2897E-04_JPRB,2.1559E-04_JPRB,2.1605E-04_JPRB/)  
+KAO( :, 5, 7, 6) = (/&
+ & 1.5774E-04_JPRB,2.0562E-04_JPRB,2.2715E-04_JPRB,2.3878E-04_JPRB,2.4330E-04_JPRB,2.4290E-04_JPRB,&
+ & 2.3768E-04_JPRB,2.2474E-04_JPRB,2.2537E-04_JPRB/)  
+KAO( :, 1, 8, 6) = (/&
+ & 1.3469E-04_JPRB,1.6768E-04_JPRB,1.8125E-04_JPRB,1.8765E-04_JPRB,1.8912E-04_JPRB,1.8647E-04_JPRB,&
+ & 1.7925E-04_JPRB,1.6551E-04_JPRB,2.2549E-04_JPRB/)  
+KAO( :, 2, 8, 6) = (/&
+ & 1.3601E-04_JPRB,1.7179E-04_JPRB,1.8676E-04_JPRB,1.9388E-04_JPRB,1.9601E-04_JPRB,1.9365E-04_JPRB,&
+ & 1.8651E-04_JPRB,1.7268E-04_JPRB,2.2728E-04_JPRB/)  
+KAO( :, 3, 8, 6) = (/&
+ & 1.3770E-04_JPRB,1.7606E-04_JPRB,1.9214E-04_JPRB,2.0024E-04_JPRB,2.0294E-04_JPRB,2.0077E-04_JPRB,&
+ & 1.9394E-04_JPRB,1.8025E-04_JPRB,2.3037E-04_JPRB/)  
+KAO( :, 4, 8, 6) = (/&
+ & 1.3980E-04_JPRB,1.8052E-04_JPRB,1.9782E-04_JPRB,2.0667E-04_JPRB,2.0985E-04_JPRB,2.0804E-04_JPRB,&
+ & 2.0170E-04_JPRB,1.8820E-04_JPRB,2.3502E-04_JPRB/)  
+KAO( :, 5, 8, 6) = (/&
+ & 1.4234E-04_JPRB,1.8549E-04_JPRB,2.0378E-04_JPRB,2.1326E-04_JPRB,2.1685E-04_JPRB,2.1554E-04_JPRB,&
+ & 2.0965E-04_JPRB,1.9644E-04_JPRB,2.4136E-04_JPRB/)  
+KAO( :, 1, 9, 6) = (/&
+ & 1.1992E-04_JPRB,1.4933E-04_JPRB,1.6105E-04_JPRB,1.6671E-04_JPRB,1.6730E-04_JPRB,1.6393E-04_JPRB,&
+ & 1.5666E-04_JPRB,1.4342E-04_JPRB,4.8653E-04_JPRB/)  
+KAO( :, 2, 9, 6) = (/&
+ & 1.2149E-04_JPRB,1.5326E-04_JPRB,1.6624E-04_JPRB,1.7247E-04_JPRB,1.7376E-04_JPRB,1.7057E-04_JPRB,&
+ & 1.6339E-04_JPRB,1.5015E-04_JPRB,4.7263E-04_JPRB/)  
+KAO( :, 3, 9, 6) = (/&
+ & 1.2314E-04_JPRB,1.5738E-04_JPRB,1.7131E-04_JPRB,1.7818E-04_JPRB,1.8004E-04_JPRB,1.7724E-04_JPRB,&
+ & 1.6998E-04_JPRB,1.5688E-04_JPRB,4.6122E-04_JPRB/)  
+KAO( :, 4, 9, 6) = (/&
+ & 1.2514E-04_JPRB,1.6177E-04_JPRB,1.7650E-04_JPRB,1.8400E-04_JPRB,1.8641E-04_JPRB,1.8403E-04_JPRB,&
+ & 1.7684E-04_JPRB,1.6385E-04_JPRB,4.5149E-04_JPRB/)  
+KAO( :, 5, 9, 6) = (/&
+ & 1.2748E-04_JPRB,1.6660E-04_JPRB,1.8214E-04_JPRB,1.9005E-04_JPRB,1.9284E-04_JPRB,1.9097E-04_JPRB,&
+ & 1.8405E-04_JPRB,1.7111E-04_JPRB,4.4363E-04_JPRB/)  
+KAO( :, 1,10, 6) = (/&
+ & 1.0584E-04_JPRB,1.3236E-04_JPRB,1.4288E-04_JPRB,1.4761E-04_JPRB,1.4780E-04_JPRB,1.4423E-04_JPRB,&
+ & 1.3667E-04_JPRB,1.2400E-04_JPRB,1.5407E-03_JPRB/)  
+KAO( :, 2,10, 6) = (/&
+ & 1.0748E-04_JPRB,1.3619E-04_JPRB,1.4771E-04_JPRB,1.5305E-04_JPRB,1.5361E-04_JPRB,1.5017E-04_JPRB,&
+ & 1.4291E-04_JPRB,1.3024E-04_JPRB,1.4707E-03_JPRB/)  
+KAO( :, 3,10, 6) = (/&
+ & 1.0916E-04_JPRB,1.4012E-04_JPRB,1.5258E-04_JPRB,1.5840E-04_JPRB,1.5929E-04_JPRB,1.5625E-04_JPRB,&
+ & 1.4913E-04_JPRB,1.3639E-04_JPRB,1.4078E-03_JPRB/)  
+KAO( :, 4,10, 6) = (/&
+ & 1.1108E-04_JPRB,1.4432E-04_JPRB,1.5744E-04_JPRB,1.6378E-04_JPRB,1.6514E-04_JPRB,1.6251E-04_JPRB,&
+ & 1.5541E-04_JPRB,1.4254E-04_JPRB,1.3501E-03_JPRB/)  
+KAO( :, 5,10, 6) = (/&
+ & 1.1328E-04_JPRB,1.4893E-04_JPRB,1.6265E-04_JPRB,1.6934E-04_JPRB,1.7119E-04_JPRB,1.6880E-04_JPRB,&
+ & 1.6190E-04_JPRB,1.4900E-04_JPRB,1.2982E-03_JPRB/)  
+KAO( :, 1,11, 6) = (/&
+ & 9.3489E-05_JPRB,1.1825E-04_JPRB,1.2805E-04_JPRB,1.3224E-04_JPRB,1.3232E-04_JPRB,1.2873E-04_JPRB,&
+ & 1.2131E-04_JPRB,1.0918E-04_JPRB,2.0757E-03_JPRB/)  
+KAO( :, 2,11, 6) = (/&
+ & 9.5099E-05_JPRB,1.2195E-04_JPRB,1.3268E-04_JPRB,1.3732E-04_JPRB,1.3748E-04_JPRB,1.3414E-04_JPRB,&
+ & 1.2695E-04_JPRB,1.1489E-04_JPRB,1.9797E-03_JPRB/)  
+KAO( :, 3,11, 6) = (/&
+ & 9.6804E-05_JPRB,1.2575E-04_JPRB,1.3731E-04_JPRB,1.4230E-04_JPRB,1.4278E-04_JPRB,1.3973E-04_JPRB,&
+ & 1.3283E-04_JPRB,1.2047E-04_JPRB,1.8901E-03_JPRB/)  
+KAO( :, 4,11, 6) = (/&
+ & 9.8710E-05_JPRB,1.2986E-04_JPRB,1.4205E-04_JPRB,1.4740E-04_JPRB,1.4826E-04_JPRB,1.4548E-04_JPRB,&
+ & 1.3868E-04_JPRB,1.2603E-04_JPRB,1.8079E-03_JPRB/)  
+KAO( :, 5,11, 6) = (/&
+ & 1.0095E-04_JPRB,1.3435E-04_JPRB,1.4704E-04_JPRB,1.5275E-04_JPRB,1.5397E-04_JPRB,1.5141E-04_JPRB,&
+ & 1.4471E-04_JPRB,1.3186E-04_JPRB,1.7340E-03_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART4',1,ZHOOK_HANDLE)
+END SUBROUTINE PART4
+
+
+SUBROUTINE PART5
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART5',0,ZHOOK_HANDLE)
+
+
+KAO( :, 1,12, 6) = (/&
+ & 8.2093E-05_JPRB,1.0522E-04_JPRB,1.1410E-04_JPRB,1.1782E-04_JPRB,1.1761E-04_JPRB,1.1416E-04_JPRB,&
+ & 1.0724E-04_JPRB,9.5735E-05_JPRB,2.1586E-03_JPRB/)  
+KAO( :, 2,12, 6) = (/&
+ & 8.3669E-05_JPRB,1.0871E-04_JPRB,1.1846E-04_JPRB,1.2251E-04_JPRB,1.2240E-04_JPRB,1.1908E-04_JPRB,&
+ & 1.1234E-04_JPRB,1.0091E-04_JPRB,2.0547E-03_JPRB/)  
+KAO( :, 3,12, 6) = (/&
+ & 8.5301E-05_JPRB,1.1235E-04_JPRB,1.2282E-04_JPRB,1.2721E-04_JPRB,1.2738E-04_JPRB,1.2431E-04_JPRB,&
+ & 1.1770E-04_JPRB,1.0601E-04_JPRB,1.9599E-03_JPRB/)  
+KAO( :, 4,12, 6) = (/&
+ & 8.7242E-05_JPRB,1.1626E-04_JPRB,1.2740E-04_JPRB,1.3207E-04_JPRB,1.3252E-04_JPRB,1.2966E-04_JPRB,&
+ & 1.2318E-04_JPRB,1.1105E-04_JPRB,1.8736E-03_JPRB/)  
+KAO( :, 5,12, 6) = (/&
+ & 8.9569E-05_JPRB,1.2041E-04_JPRB,1.3214E-04_JPRB,1.3715E-04_JPRB,1.3802E-04_JPRB,1.3533E-04_JPRB,&
+ & 1.2876E-04_JPRB,1.1627E-04_JPRB,1.7949E-03_JPRB/)  
+KAO( :, 1,13, 6) = (/&
+ & 7.1569E-05_JPRB,9.3060E-05_JPRB,1.0102E-04_JPRB,1.0423E-04_JPRB,1.0388E-04_JPRB,1.0052E-04_JPRB,&
+ & 9.4174E-05_JPRB,8.3531E-05_JPRB,1.8351E-03_JPRB/)  
+KAO( :, 2,13, 6) = (/&
+ & 7.3011E-05_JPRB,9.6373E-05_JPRB,1.0503E-04_JPRB,1.0856E-04_JPRB,1.0834E-04_JPRB,1.0508E-04_JPRB,&
+ & 9.8836E-05_JPRB,8.8176E-05_JPRB,1.7459E-03_JPRB/)  
+KAO( :, 3,13, 6) = (/&
+ & 7.4663E-05_JPRB,9.9794E-05_JPRB,1.0913E-04_JPRB,1.1298E-04_JPRB,1.1299E-04_JPRB,1.0991E-04_JPRB,&
+ & 1.0372E-04_JPRB,9.2787E-05_JPRB,1.6660E-03_JPRB/)  
+KAO( :, 4,13, 6) = (/&
+ & 7.6630E-05_JPRB,1.0344E-04_JPRB,1.1345E-04_JPRB,1.1756E-04_JPRB,1.1782E-04_JPRB,1.1495E-04_JPRB,&
+ & 1.0877E-04_JPRB,9.7412E-05_JPRB,1.5932E-03_JPRB/)  
+KAO( :, 5,13, 6) = (/&
+ & 7.9007E-05_JPRB,1.0733E-04_JPRB,1.1787E-04_JPRB,1.2235E-04_JPRB,1.2303E-04_JPRB,1.2033E-04_JPRB,&
+ & 1.1390E-04_JPRB,1.0206E-04_JPRB,1.5265E-03_JPRB/)  
+KAO( :, 1, 1, 7) = (/&
+ & 4.6305E-04_JPRB,5.4556E-04_JPRB,6.0200E-04_JPRB,6.4863E-04_JPRB,6.8107E-04_JPRB,7.0420E-04_JPRB,&
+ & 7.2199E-04_JPRB,7.3085E-04_JPRB,6.7646E-04_JPRB/)  
+KAO( :, 2, 1, 7) = (/&
+ & 4.6301E-04_JPRB,5.5700E-04_JPRB,6.1674E-04_JPRB,6.6918E-04_JPRB,7.0683E-04_JPRB,7.3382E-04_JPRB,&
+ & 7.5720E-04_JPRB,7.6870E-04_JPRB,7.1353E-04_JPRB/)  
+KAO( :, 3, 1, 7) = (/&
+ & 4.6454E-04_JPRB,5.7050E-04_JPRB,6.3324E-04_JPRB,6.9016E-04_JPRB,7.3249E-04_JPRB,7.6632E-04_JPRB,&
+ & 7.9567E-04_JPRB,8.0915E-04_JPRB,7.5224E-04_JPRB/)  
+KAO( :, 4, 1, 7) = (/&
+ & 4.6651E-04_JPRB,5.8405E-04_JPRB,6.4895E-04_JPRB,7.1069E-04_JPRB,7.5837E-04_JPRB,7.9949E-04_JPRB,&
+ & 8.3506E-04_JPRB,8.5087E-04_JPRB,7.9164E-04_JPRB/)  
+KAO( :, 5, 1, 7) = (/&
+ & 4.7034E-04_JPRB,5.9930E-04_JPRB,6.6683E-04_JPRB,7.3355E-04_JPRB,7.8609E-04_JPRB,8.3312E-04_JPRB,&
+ & 8.7517E-04_JPRB,8.9333E-04_JPRB,8.3199E-04_JPRB/)  
+KAO( :, 1, 2, 7) = (/&
+ & 4.3178E-04_JPRB,5.0967E-04_JPRB,5.7208E-04_JPRB,6.1793E-04_JPRB,6.4678E-04_JPRB,6.6138E-04_JPRB,&
+ & 6.6815E-04_JPRB,6.6568E-04_JPRB,5.9744E-04_JPRB/)  
+KAO( :, 2, 2, 7) = (/&
+ & 4.3227E-04_JPRB,5.2067E-04_JPRB,5.8785E-04_JPRB,6.3795E-04_JPRB,6.7133E-04_JPRB,6.9007E-04_JPRB,&
+ & 7.0100E-04_JPRB,7.0211E-04_JPRB,6.3355E-04_JPRB/)  
+KAO( :, 3, 2, 7) = (/&
+ & 4.3414E-04_JPRB,5.3362E-04_JPRB,6.0473E-04_JPRB,6.5841E-04_JPRB,6.9567E-04_JPRB,7.2097E-04_JPRB,&
+ & 7.3754E-04_JPRB,7.4189E-04_JPRB,6.7066E-04_JPRB/)  
+KAO( :, 4, 2, 7) = (/&
+ & 4.3688E-04_JPRB,5.4677E-04_JPRB,6.2106E-04_JPRB,6.7900E-04_JPRB,7.2053E-04_JPRB,7.5255E-04_JPRB,&
+ & 7.7596E-04_JPRB,7.8317E-04_JPRB,7.0771E-04_JPRB/)  
+KAO( :, 5, 2, 7) = (/&
+ & 4.4026E-04_JPRB,5.6009E-04_JPRB,6.3723E-04_JPRB,6.9996E-04_JPRB,7.4621E-04_JPRB,7.8382E-04_JPRB,&
+ & 8.1411E-04_JPRB,8.2479E-04_JPRB,7.4663E-04_JPRB/)  
+KAO( :, 1, 3, 7) = (/&
+ & 4.0042E-04_JPRB,4.7588E-04_JPRB,5.3737E-04_JPRB,5.7848E-04_JPRB,6.0266E-04_JPRB,6.1092E-04_JPRB,&
+ & 6.0756E-04_JPRB,5.9389E-04_JPRB,5.1726E-04_JPRB/)  
+KAO( :, 2, 3, 7) = (/&
+ & 4.0139E-04_JPRB,4.8636E-04_JPRB,5.5256E-04_JPRB,5.9842E-04_JPRB,6.2668E-04_JPRB,6.3795E-04_JPRB,&
+ & 6.3723E-04_JPRB,6.2673E-04_JPRB,5.4890E-04_JPRB/)  
+KAO( :, 3, 3, 7) = (/&
+ & 4.0264E-04_JPRB,4.9818E-04_JPRB,5.6878E-04_JPRB,6.1775E-04_JPRB,6.4985E-04_JPRB,6.6625E-04_JPRB,&
+ & 6.6960E-04_JPRB,6.6297E-04_JPRB,5.8203E-04_JPRB/)  
+KAO( :, 4, 3, 7) = (/&
+ & 4.0594E-04_JPRB,5.1098E-04_JPRB,5.8559E-04_JPRB,6.3812E-04_JPRB,6.7417E-04_JPRB,6.9560E-04_JPRB,&
+ & 7.0436E-04_JPRB,7.0139E-04_JPRB,6.1550E-04_JPRB/)  
+KAO( :, 5, 3, 7) = (/&
+ & 4.0942E-04_JPRB,5.2279E-04_JPRB,6.0106E-04_JPRB,6.5810E-04_JPRB,6.9804E-04_JPRB,7.2431E-04_JPRB,&
+ & 7.3907E-04_JPRB,7.3980E-04_JPRB,6.5087E-04_JPRB/)  
+KAO( :, 1, 4, 7) = (/&
+ & 3.6954E-04_JPRB,4.4390E-04_JPRB,4.9967E-04_JPRB,5.3490E-04_JPRB,5.5341E-04_JPRB,5.5728E-04_JPRB,&
+ & 5.4744E-04_JPRB,5.2585E-04_JPRB,4.5076E-04_JPRB/)  
+KAO( :, 2, 4, 7) = (/&
+ & 3.7099E-04_JPRB,4.5452E-04_JPRB,5.1452E-04_JPRB,5.5410E-04_JPRB,5.7617E-04_JPRB,5.8227E-04_JPRB,&
+ & 5.7394E-04_JPRB,5.5446E-04_JPRB,4.7750E-04_JPRB/)  
+KAO( :, 3, 4, 7) = (/&
+ & 3.7261E-04_JPRB,4.6594E-04_JPRB,5.3039E-04_JPRB,5.7264E-04_JPRB,5.9783E-04_JPRB,6.0838E-04_JPRB,&
+ & 6.0270E-04_JPRB,5.8596E-04_JPRB,5.0606E-04_JPRB/)  
+KAO( :, 4, 4, 7) = (/&
+ & 3.7542E-04_JPRB,4.7733E-04_JPRB,5.4631E-04_JPRB,5.9142E-04_JPRB,6.2021E-04_JPRB,6.3532E-04_JPRB,&
+ & 6.3302E-04_JPRB,6.1929E-04_JPRB,5.3494E-04_JPRB/)  
+KAO( :, 5, 4, 7) = (/&
+ & 3.7994E-04_JPRB,4.8922E-04_JPRB,5.6238E-04_JPRB,6.1134E-04_JPRB,6.4405E-04_JPRB,6.6206E-04_JPRB,&
+ & 6.6409E-04_JPRB,6.5333E-04_JPRB,5.6564E-04_JPRB/)  
+KAO( :, 1, 5, 7) = (/&
+ & 3.4061E-04_JPRB,4.1228E-04_JPRB,4.6040E-04_JPRB,4.8986E-04_JPRB,5.0320E-04_JPRB,5.0314E-04_JPRB,&
+ & 4.9155E-04_JPRB,4.6563E-04_JPRB,3.9708E-04_JPRB/)  
+KAO( :, 2, 5, 7) = (/&
+ & 3.4265E-04_JPRB,4.2238E-04_JPRB,4.7497E-04_JPRB,5.0787E-04_JPRB,5.2436E-04_JPRB,5.2638E-04_JPRB,&
+ & 5.1586E-04_JPRB,4.9074E-04_JPRB,4.1980E-04_JPRB/)  
+KAO( :, 3, 5, 7) = (/&
+ & 3.4457E-04_JPRB,4.3316E-04_JPRB,4.9022E-04_JPRB,5.2547E-04_JPRB,5.4476E-04_JPRB,5.5018E-04_JPRB,&
+ & 5.4131E-04_JPRB,5.1767E-04_JPRB,4.4445E-04_JPRB/)  
+KAO( :, 4, 5, 7) = (/&
+ & 3.4732E-04_JPRB,4.4421E-04_JPRB,5.0540E-04_JPRB,5.4314E-04_JPRB,5.6518E-04_JPRB,5.7439E-04_JPRB,&
+ & 5.6831E-04_JPRB,5.4593E-04_JPRB,4.6962E-04_JPRB/)  
+KAO( :, 5, 5, 7) = (/&
+ & 3.5182E-04_JPRB,4.5580E-04_JPRB,5.2093E-04_JPRB,5.6187E-04_JPRB,5.8688E-04_JPRB,5.9917E-04_JPRB,&
+ & 5.9551E-04_JPRB,5.7498E-04_JPRB,4.9655E-04_JPRB/)  
+KAO( :, 1, 6, 7) = (/&
+ & 3.1397E-04_JPRB,3.8099E-04_JPRB,4.2085E-04_JPRB,4.4392E-04_JPRB,4.5344E-04_JPRB,4.5128E-04_JPRB,&
+ & 4.3795E-04_JPRB,4.1046E-04_JPRB,3.5811E-04_JPRB/)  
+KAO( :, 2, 6, 7) = (/&
+ & 3.1655E-04_JPRB,3.9053E-04_JPRB,4.3489E-04_JPRB,4.6069E-04_JPRB,4.7295E-04_JPRB,4.7284E-04_JPRB,&
+ & 4.6063E-04_JPRB,4.3290E-04_JPRB,3.7673E-04_JPRB/)  
+KAO( :, 3, 6, 7) = (/&
+ & 3.1898E-04_JPRB,4.0060E-04_JPRB,4.4896E-04_JPRB,4.7714E-04_JPRB,4.9199E-04_JPRB,4.9458E-04_JPRB,&
+ & 4.8353E-04_JPRB,4.5629E-04_JPRB,3.9672E-04_JPRB/)  
+KAO( :, 4, 6, 7) = (/&
+ & 3.2158E-04_JPRB,4.1129E-04_JPRB,4.6291E-04_JPRB,4.9376E-04_JPRB,5.1129E-04_JPRB,5.1624E-04_JPRB,&
+ & 5.0719E-04_JPRB,4.8049E-04_JPRB,4.1801E-04_JPRB/)  
+KAO( :, 5, 6, 7) = (/&
+ & 3.2502E-04_JPRB,4.2183E-04_JPRB,4.7677E-04_JPRB,5.1073E-04_JPRB,5.3095E-04_JPRB,5.3777E-04_JPRB,&
+ & 5.3107E-04_JPRB,5.0560E-04_JPRB,4.4095E-04_JPRB/)  
+KAO( :, 1, 7, 7) = (/&
+ & 2.8858E-04_JPRB,3.5072E-04_JPRB,3.8244E-04_JPRB,3.9969E-04_JPRB,4.0628E-04_JPRB,4.0266E-04_JPRB,&
+ & 3.8820E-04_JPRB,3.6095E-04_JPRB,3.4917E-04_JPRB/)  
+KAO( :, 2, 7, 7) = (/&
+ & 2.9154E-04_JPRB,3.5995E-04_JPRB,3.9513E-04_JPRB,4.1562E-04_JPRB,4.2428E-04_JPRB,4.2225E-04_JPRB,&
+ & 4.0848E-04_JPRB,3.8100E-04_JPRB,3.6556E-04_JPRB/)  
+KAO( :, 3, 7, 7) = (/&
+ & 2.9427E-04_JPRB,3.6955E-04_JPRB,4.0818E-04_JPRB,4.3070E-04_JPRB,4.4206E-04_JPRB,4.4209E-04_JPRB,&
+ & 4.2902E-04_JPRB,4.0153E-04_JPRB,3.8273E-04_JPRB/)  
+KAO( :, 4, 7, 7) = (/&
+ & 2.9693E-04_JPRB,3.7937E-04_JPRB,4.2130E-04_JPRB,4.4602E-04_JPRB,4.5975E-04_JPRB,4.6189E-04_JPRB,&
+ & 4.5029E-04_JPRB,4.2249E-04_JPRB,4.0122E-04_JPRB/)  
+KAO( :, 5, 7, 7) = (/&
+ & 3.0032E-04_JPRB,3.8893E-04_JPRB,4.3431E-04_JPRB,4.6164E-04_JPRB,4.7805E-04_JPRB,4.8151E-04_JPRB,&
+ & 4.7139E-04_JPRB,4.4430E-04_JPRB,4.2113E-04_JPRB/)  
+KAO( :, 1, 8, 7) = (/&
+ & 2.6433E-04_JPRB,3.2164E-04_JPRB,3.4678E-04_JPRB,3.5895E-04_JPRB,3.6313E-04_JPRB,3.5828E-04_JPRB,&
+ & 3.4379E-04_JPRB,3.1784E-04_JPRB,3.8325E-04_JPRB/)  
+KAO( :, 2, 8, 7) = (/&
+ & 2.6764E-04_JPRB,3.3079E-04_JPRB,3.5818E-04_JPRB,3.7326E-04_JPRB,3.7969E-04_JPRB,3.7570E-04_JPRB,&
+ & 3.6173E-04_JPRB,3.3531E-04_JPRB,3.9627E-04_JPRB/)  
+KAO( :, 3, 8, 7) = (/&
+ & 2.7049E-04_JPRB,3.3967E-04_JPRB,3.6984E-04_JPRB,3.8764E-04_JPRB,3.9567E-04_JPRB,3.9347E-04_JPRB,&
+ & 3.7992E-04_JPRB,3.5345E-04_JPRB,4.1157E-04_JPRB/)  
+KAO( :, 4, 8, 7) = (/&
+ & 2.7332E-04_JPRB,3.4840E-04_JPRB,3.8188E-04_JPRB,4.0186E-04_JPRB,4.1166E-04_JPRB,4.1115E-04_JPRB,&
+ & 3.9867E-04_JPRB,3.7201E-04_JPRB,4.2882E-04_JPRB/)  
+KAO( :, 5, 8, 7) = (/&
+ & 2.7670E-04_JPRB,3.5697E-04_JPRB,3.9392E-04_JPRB,4.1633E-04_JPRB,4.2814E-04_JPRB,4.2877E-04_JPRB,&
+ & 4.1760E-04_JPRB,3.9091E-04_JPRB,4.4711E-04_JPRB/)  
+KAO( :, 1, 9, 7) = (/&
+ & 2.4137E-04_JPRB,2.9350E-04_JPRB,3.1375E-04_JPRB,3.2233E-04_JPRB,3.2400E-04_JPRB,3.1859E-04_JPRB,&
+ & 3.0441E-04_JPRB,2.7946E-04_JPRB,7.4112E-04_JPRB/)  
+KAO( :, 2, 9, 7) = (/&
+ & 2.4480E-04_JPRB,3.0210E-04_JPRB,3.2420E-04_JPRB,3.3517E-04_JPRB,3.3871E-04_JPRB,3.3414E-04_JPRB,&
+ & 3.2021E-04_JPRB,2.9498E-04_JPRB,7.2877E-04_JPRB/)  
+KAO( :, 3, 9, 7) = (/&
+ & 2.4785E-04_JPRB,3.1022E-04_JPRB,3.3497E-04_JPRB,3.4812E-04_JPRB,3.5338E-04_JPRB,3.4970E-04_JPRB,&
+ & 3.3648E-04_JPRB,3.1095E-04_JPRB,7.2183E-04_JPRB/)  
+KAO( :, 4, 9, 7) = (/&
+ & 2.5068E-04_JPRB,3.1830E-04_JPRB,3.4602E-04_JPRB,3.6150E-04_JPRB,3.6764E-04_JPRB,3.6525E-04_JPRB,&
+ & 3.5301E-04_JPRB,3.2741E-04_JPRB,7.2069E-04_JPRB/)  
+KAO( :, 5, 9, 7) = (/&
+ & 2.5395E-04_JPRB,3.2629E-04_JPRB,3.5706E-04_JPRB,3.7496E-04_JPRB,3.8230E-04_JPRB,3.8101E-04_JPRB,&
+ & 3.6964E-04_JPRB,3.4426E-04_JPRB,7.2393E-04_JPRB/)  
+KAO( :, 1,10, 7) = (/&
+ & 2.1916E-04_JPRB,2.6728E-04_JPRB,2.8357E-04_JPRB,2.9003E-04_JPRB,2.9019E-04_JPRB,2.8394E-04_JPRB,&
+ & 2.6987E-04_JPRB,2.4557E-04_JPRB,2.2951E-03_JPRB/)  
+KAO( :, 2,10, 7) = (/&
+ & 2.2269E-04_JPRB,2.7508E-04_JPRB,2.9328E-04_JPRB,3.0170E-04_JPRB,3.0330E-04_JPRB,2.9810E-04_JPRB,&
+ & 2.8439E-04_JPRB,2.5963E-04_JPRB,2.1937E-03_JPRB/)  
+KAO( :, 3,10, 7) = (/&
+ & 2.2592E-04_JPRB,2.8247E-04_JPRB,3.0321E-04_JPRB,3.1354E-04_JPRB,3.1659E-04_JPRB,3.1208E-04_JPRB,&
+ & 2.9880E-04_JPRB,2.7415E-04_JPRB,2.1089E-03_JPRB/)  
+KAO( :, 4,10, 7) = (/&
+ & 2.2891E-04_JPRB,2.8992E-04_JPRB,3.1332E-04_JPRB,3.2558E-04_JPRB,3.2968E-04_JPRB,3.2576E-04_JPRB,&
+ & 3.1353E-04_JPRB,2.8898E-04_JPRB,2.0353E-03_JPRB/)  
+KAO( :, 5,10, 7) = (/&
+ & 2.3224E-04_JPRB,2.9740E-04_JPRB,3.2354E-04_JPRB,3.3796E-04_JPRB,3.4280E-04_JPRB,3.3971E-04_JPRB,&
+ & 3.2827E-04_JPRB,3.0414E-04_JPRB,1.9694E-03_JPRB/)  
+KAO( :, 1,11, 7) = (/&
+ & 1.9917E-04_JPRB,2.4536E-04_JPRB,2.5993E-04_JPRB,2.6557E-04_JPRB,2.6515E-04_JPRB,2.5837E-04_JPRB,&
+ & 2.4462E-04_JPRB,2.2066E-04_JPRB,3.1341E-03_JPRB/)  
+KAO( :, 2,11, 7) = (/&
+ & 2.0264E-04_JPRB,2.5224E-04_JPRB,2.6895E-04_JPRB,2.7632E-04_JPRB,2.7737E-04_JPRB,2.7142E-04_JPRB,&
+ & 2.5767E-04_JPRB,2.3346E-04_JPRB,2.9845E-03_JPRB/)  
+KAO( :, 3,11, 7) = (/&
+ & 2.0597E-04_JPRB,2.5913E-04_JPRB,2.7799E-04_JPRB,2.8723E-04_JPRB,2.8930E-04_JPRB,2.8411E-04_JPRB,&
+ & 2.7068E-04_JPRB,2.4666E-04_JPRB,2.8531E-03_JPRB/)  
+KAO( :, 4,11, 7) = (/&
+ & 2.0923E-04_JPRB,2.6606E-04_JPRB,2.8717E-04_JPRB,2.9817E-04_JPRB,3.0130E-04_JPRB,2.9662E-04_JPRB,&
+ & 2.8382E-04_JPRB,2.6011E-04_JPRB,2.7344E-03_JPRB/)  
+KAO( :, 5,11, 7) = (/&
+ & 2.1283E-04_JPRB,2.7325E-04_JPRB,2.9677E-04_JPRB,3.0938E-04_JPRB,3.1326E-04_JPRB,3.0919E-04_JPRB,&
+ & 2.9712E-04_JPRB,2.7384E-04_JPRB,2.6277E-03_JPRB/)  
+KAO( :, 1,12, 7) = (/&
+ & 1.7936E-04_JPRB,2.2328E-04_JPRB,2.3724E-04_JPRB,2.4243E-04_JPRB,2.4172E-04_JPRB,2.3478E-04_JPRB,&
+ & 2.2093E-04_JPRB,1.9737E-04_JPRB,3.2835E-03_JPRB/)  
+KAO( :, 2,12, 7) = (/&
+ & 1.8285E-04_JPRB,2.2978E-04_JPRB,2.4543E-04_JPRB,2.5241E-04_JPRB,2.5294E-04_JPRB,2.4651E-04_JPRB,&
+ & 2.3266E-04_JPRB,2.0912E-04_JPRB,3.1216E-03_JPRB/)  
+KAO( :, 3,12, 7) = (/&
+ & 1.8634E-04_JPRB,2.3640E-04_JPRB,2.5382E-04_JPRB,2.6232E-04_JPRB,2.6378E-04_JPRB,2.5795E-04_JPRB,&
+ & 2.4444E-04_JPRB,2.2095E-04_JPRB,2.9752E-03_JPRB/)  
+KAO( :, 4,12, 7) = (/&
+ & 1.8978E-04_JPRB,2.4319E-04_JPRB,2.6232E-04_JPRB,2.7232E-04_JPRB,2.7477E-04_JPRB,2.6960E-04_JPRB,&
+ & 2.5603E-04_JPRB,2.3306E-04_JPRB,2.8433E-03_JPRB/)  
+KAO( :, 5,12, 7) = (/&
+ & 1.9368E-04_JPRB,2.5043E-04_JPRB,2.7137E-04_JPRB,2.8261E-04_JPRB,2.8588E-04_JPRB,2.8109E-04_JPRB,&
+ & 2.6784E-04_JPRB,2.4548E-04_JPRB,2.7264E-03_JPRB/)  
+KAO( :, 1,13, 7) = (/&
+ & 1.6014E-04_JPRB,2.0144E-04_JPRB,2.1482E-04_JPRB,2.1993E-04_JPRB,2.1918E-04_JPRB,2.1245E-04_JPRB,&
+ & 1.9850E-04_JPRB,1.7572E-04_JPRB,2.8014E-03_JPRB/)  
+KAO( :, 2,13, 7) = (/&
+ & 1.6372E-04_JPRB,2.0772E-04_JPRB,2.2263E-04_JPRB,2.2918E-04_JPRB,2.2929E-04_JPRB,2.2295E-04_JPRB,&
+ & 2.0909E-04_JPRB,1.8627E-04_JPRB,2.6597E-03_JPRB/)  
+KAO( :, 3,13, 7) = (/&
+ & 1.6711E-04_JPRB,2.1423E-04_JPRB,2.3053E-04_JPRB,2.3833E-04_JPRB,2.3922E-04_JPRB,2.3334E-04_JPRB,&
+ & 2.1968E-04_JPRB,1.9695E-04_JPRB,2.5327E-03_JPRB/)  
+KAO( :, 4,13, 7) = (/&
+ & 1.7075E-04_JPRB,2.2099E-04_JPRB,2.3863E-04_JPRB,2.4766E-04_JPRB,2.4941E-04_JPRB,2.4382E-04_JPRB,&
+ & 2.3022E-04_JPRB,2.0776E-04_JPRB,2.4204E-03_JPRB/)  
+KAO( :, 5,13, 7) = (/&
+ & 1.7481E-04_JPRB,2.2827E-04_JPRB,2.4735E-04_JPRB,2.5731E-04_JPRB,2.5972E-04_JPRB,2.5434E-04_JPRB,&
+ & 2.4101E-04_JPRB,2.1916E-04_JPRB,2.3207E-03_JPRB/)  
+KAO( :, 1, 1, 8) = (/&
+ & 9.5608E-04_JPRB,1.1137E-03_JPRB,1.1928E-03_JPRB,1.2676E-03_JPRB,1.3453E-03_JPRB,1.4201E-03_JPRB,&
+ & 1.4858E-03_JPRB,1.4985E-03_JPRB,1.3296E-03_JPRB/)  
+KAO( :, 2, 1, 8) = (/&
+ & 9.5994E-04_JPRB,1.1580E-03_JPRB,1.2586E-03_JPRB,1.3444E-03_JPRB,1.4304E-03_JPRB,1.5065E-03_JPRB,&
+ & 1.5698E-03_JPRB,1.5822E-03_JPRB,1.4127E-03_JPRB/)  
+KAO( :, 3, 1, 8) = (/&
+ & 9.6434E-04_JPRB,1.2039E-03_JPRB,1.3295E-03_JPRB,1.4283E-03_JPRB,1.5240E-03_JPRB,1.6021E-03_JPRB,&
+ & 1.6610E-03_JPRB,1.6690E-03_JPRB,1.4964E-03_JPRB/)  
+KAO( :, 4, 1, 8) = (/&
+ & 9.6594E-04_JPRB,1.2459E-03_JPRB,1.3992E-03_JPRB,1.5151E-03_JPRB,1.6213E-03_JPRB,1.7037E-03_JPRB,&
+ & 1.7586E-03_JPRB,1.7581E-03_JPRB,1.5822E-03_JPRB/)  
+KAO( :, 5, 1, 8) = (/&
+ & 9.7112E-04_JPRB,1.2922E-03_JPRB,1.4733E-03_JPRB,1.6088E-03_JPRB,1.7251E-03_JPRB,1.8137E-03_JPRB,&
+ & 1.8637E-03_JPRB,1.8544E-03_JPRB,1.6729E-03_JPRB/)  
+KAO( :, 1, 2, 8) = (/&
+ & 9.2093E-04_JPRB,1.0546E-03_JPRB,1.1184E-03_JPRB,1.1877E-03_JPRB,1.2677E-03_JPRB,1.3451E-03_JPRB,&
+ & 1.4085E-03_JPRB,1.4282E-03_JPRB,1.2587E-03_JPRB/)  
+KAO( :, 2, 2, 8) = (/&
+ & 9.2391E-04_JPRB,1.0934E-03_JPRB,1.1705E-03_JPRB,1.2485E-03_JPRB,1.3345E-03_JPRB,1.4205E-03_JPRB,&
+ & 1.4904E-03_JPRB,1.5108E-03_JPRB,1.3375E-03_JPRB/)  
+KAO( :, 3, 2, 8) = (/&
+ & 9.2775E-04_JPRB,1.1328E-03_JPRB,1.2272E-03_JPRB,1.3169E-03_JPRB,1.4101E-03_JPRB,1.5006E-03_JPRB,&
+ & 1.5743E-03_JPRB,1.5928E-03_JPRB,1.4152E-03_JPRB/)  
+KAO( :, 4, 2, 8) = (/&
+ & 9.3033E-04_JPRB,1.1705E-03_JPRB,1.2842E-03_JPRB,1.3889E-03_JPRB,1.4909E-03_JPRB,1.5847E-03_JPRB,&
+ & 1.6559E-03_JPRB,1.6749E-03_JPRB,1.4953E-03_JPRB/)  
+KAO( :, 5, 2, 8) = (/&
+ & 9.3350E-04_JPRB,1.2078E-03_JPRB,1.3426E-03_JPRB,1.4642E-03_JPRB,1.5755E-03_JPRB,1.6738E-03_JPRB,&
+ & 1.7416E-03_JPRB,1.7599E-03_JPRB,1.5794E-03_JPRB/)  
+KAO( :, 1, 3, 8) = (/&
+ & 8.8225E-04_JPRB,9.9524E-04_JPRB,1.0564E-03_JPRB,1.1307E-03_JPRB,1.2003E-03_JPRB,1.2591E-03_JPRB,&
+ & 1.3108E-03_JPRB,1.3309E-03_JPRB,1.1549E-03_JPRB/)  
+KAO( :, 2, 3, 8) = (/&
+ & 8.8537E-04_JPRB,1.0284E-03_JPRB,1.0990E-03_JPRB,1.1784E-03_JPRB,1.2595E-03_JPRB,1.3310E-03_JPRB,&
+ & 1.3892E-03_JPRB,1.4138E-03_JPRB,1.2306E-03_JPRB/)  
+KAO( :, 3, 3, 8) = (/&
+ & 8.8781E-04_JPRB,1.0600E-03_JPRB,1.1442E-03_JPRB,1.2314E-03_JPRB,1.3222E-03_JPRB,1.4061E-03_JPRB,&
+ & 1.4693E-03_JPRB,1.4932E-03_JPRB,1.3048E-03_JPRB/)  
+KAO( :, 4, 3, 8) = (/&
+ & 8.9189E-04_JPRB,1.0939E-03_JPRB,1.1921E-03_JPRB,1.2907E-03_JPRB,1.3886E-03_JPRB,1.4820E-03_JPRB,&
+ & 1.5492E-03_JPRB,1.5703E-03_JPRB,1.3811E-03_JPRB/)  
+KAO( :, 5, 3, 8) = (/&
+ & 8.9438E-04_JPRB,1.1258E-03_JPRB,1.2397E-03_JPRB,1.3504E-03_JPRB,1.4556E-03_JPRB,1.5581E-03_JPRB,&
+ & 1.6301E-03_JPRB,1.6498E-03_JPRB,1.4607E-03_JPRB/)  
+KAO( :, 1, 4, 8) = (/&
+ & 8.3849E-04_JPRB,9.3566E-04_JPRB,1.0099E-03_JPRB,1.0816E-03_JPRB,1.1344E-03_JPRB,1.1752E-03_JPRB,&
+ & 1.2048E-03_JPRB,1.2139E-03_JPRB,1.0399E-03_JPRB/)  
+KAO( :, 2, 4, 8) = (/&
+ & 8.4244E-04_JPRB,9.6570E-04_JPRB,1.0454E-03_JPRB,1.1259E-03_JPRB,1.1888E-03_JPRB,1.2423E-03_JPRB,&
+ & 1.2800E-03_JPRB,1.2943E-03_JPRB,1.1122E-03_JPRB/)  
+KAO( :, 3, 4, 8) = (/&
+ & 8.4472E-04_JPRB,9.9456E-04_JPRB,1.0829E-03_JPRB,1.1722E-03_JPRB,1.2472E-03_JPRB,1.3102E-03_JPRB,&
+ & 1.3565E-03_JPRB,1.3722E-03_JPRB,1.1831E-03_JPRB/)  
+KAO( :, 4, 4, 8) = (/&
+ & 8.4703E-04_JPRB,1.0229E-03_JPRB,1.1215E-03_JPRB,1.2221E-03_JPRB,1.3077E-03_JPRB,1.3778E-03_JPRB,&
+ & 1.4318E-03_JPRB,1.4488E-03_JPRB,1.2549E-03_JPRB/)  
+KAO( :, 5, 4, 8) = (/&
+ & 8.5239E-04_JPRB,1.0541E-03_JPRB,1.1634E-03_JPRB,1.2735E-03_JPRB,1.3695E-03_JPRB,1.4485E-03_JPRB,&
+ & 1.5090E-03_JPRB,1.5277E-03_JPRB,1.3292E-03_JPRB/)  
+KAO( :, 1, 5, 8) = (/&
+ & 7.9083E-04_JPRB,8.8170E-04_JPRB,9.6674E-04_JPRB,1.0299E-03_JPRB,1.0698E-03_JPRB,1.0915E-03_JPRB,&
+ & 1.0968E-03_JPRB,1.0912E-03_JPRB,9.3090E-04_JPRB/)  
+KAO( :, 2, 5, 8) = (/&
+ & 7.9562E-04_JPRB,9.0868E-04_JPRB,9.9995E-04_JPRB,1.0720E-03_JPRB,1.1213E-03_JPRB,1.1526E-03_JPRB,&
+ & 1.1662E-03_JPRB,1.1662E-03_JPRB,9.9625E-04_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART5',1,ZHOOK_HANDLE)
+END SUBROUTINE PART5
+
+
+SUBROUTINE PART6
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART6',0,ZHOOK_HANDLE)
+
+
+KAO( :, 3, 5, 8) = (/&
+ & 7.9829E-04_JPRB,9.3547E-04_JPRB,1.0342E-03_JPRB,1.1161E-03_JPRB,1.1759E-03_JPRB,1.2152E-03_JPRB,&
+ & 1.2368E-03_JPRB,1.2405E-03_JPRB,1.0609E-03_JPRB/)  
+KAO( :, 4, 5, 8) = (/&
+ & 8.0091E-04_JPRB,9.6089E-04_JPRB,1.0686E-03_JPRB,1.1624E-03_JPRB,1.2313E-03_JPRB,1.2778E-03_JPRB,&
+ & 1.3076E-03_JPRB,1.3141E-03_JPRB,1.1274E-03_JPRB/)  
+KAO( :, 5, 5, 8) = (/&
+ & 8.0636E-04_JPRB,9.8796E-04_JPRB,1.1047E-03_JPRB,1.2088E-03_JPRB,1.2883E-03_JPRB,1.3425E-03_JPRB,&
+ & 1.3805E-03_JPRB,1.3900E-03_JPRB,1.1960E-03_JPRB/)  
+KAO( :, 1, 6, 8) = (/&
+ & 7.4042E-04_JPRB,8.3357E-04_JPRB,9.1717E-04_JPRB,9.7114E-04_JPRB,1.0002E-03_JPRB,1.0057E-03_JPRB,&
+ & 9.9270E-04_JPRB,9.6792E-04_JPRB,8.3659E-04_JPRB/)  
+KAO( :, 2, 6, 8) = (/&
+ & 7.4565E-04_JPRB,8.5743E-04_JPRB,9.4912E-04_JPRB,1.0119E-03_JPRB,1.0480E-03_JPRB,1.0602E-03_JPRB,&
+ & 1.0545E-03_JPRB,1.0369E-03_JPRB,8.9582E-04_JPRB/)  
+KAO( :, 3, 6, 8) = (/&
+ & 7.4922E-04_JPRB,8.8128E-04_JPRB,9.8142E-04_JPRB,1.0542E-03_JPRB,1.0980E-03_JPRB,1.1167E-03_JPRB,&
+ & 1.1185E-03_JPRB,1.1056E-03_JPRB,9.5443E-04_JPRB/)  
+KAO( :, 4, 6, 8) = (/&
+ & 7.5232E-04_JPRB,9.0308E-04_JPRB,1.0141E-03_JPRB,1.0981E-03_JPRB,1.1486E-03_JPRB,1.1744E-03_JPRB,&
+ & 1.1833E-03_JPRB,1.1741E-03_JPRB,1.0132E-03_JPRB/)  
+KAO( :, 5, 6, 8) = (/&
+ & 7.5627E-04_JPRB,9.2523E-04_JPRB,1.0466E-03_JPRB,1.1406E-03_JPRB,1.2001E-03_JPRB,1.2335E-03_JPRB,&
+ & 1.2490E-03_JPRB,1.2439E-03_JPRB,1.0736E-03_JPRB/)  
+KAO( :, 1, 7, 8) = (/&
+ & 6.8964E-04_JPRB,7.8723E-04_JPRB,8.6407E-04_JPRB,9.0570E-04_JPRB,9.2461E-04_JPRB,9.2134E-04_JPRB,&
+ & 8.9655E-04_JPRB,8.5470E-04_JPRB,7.7227E-04_JPRB/)  
+KAO( :, 2, 7, 8) = (/&
+ & 6.9565E-04_JPRB,8.0904E-04_JPRB,8.9444E-04_JPRB,9.4366E-04_JPRB,9.6915E-04_JPRB,9.7063E-04_JPRB,&
+ & 9.5066E-04_JPRB,9.1508E-04_JPRB,8.2464E-04_JPRB/)  
+KAO( :, 3, 7, 8) = (/&
+ & 7.0042E-04_JPRB,8.3032E-04_JPRB,9.2461E-04_JPRB,9.8296E-04_JPRB,1.0152E-03_JPRB,1.0214E-03_JPRB,&
+ & 1.0076E-03_JPRB,9.7640E-04_JPRB,8.7766E-04_JPRB/)  
+KAO( :, 4, 7, 8) = (/&
+ & 7.0426E-04_JPRB,8.4981E-04_JPRB,9.5485E-04_JPRB,1.0240E-03_JPRB,1.0623E-03_JPRB,1.0734E-03_JPRB,&
+ & 1.0651E-03_JPRB,1.0378E-03_JPRB,9.3187E-04_JPRB/)  
+KAO( :, 5, 7, 8) = (/&
+ & 7.0821E-04_JPRB,8.6946E-04_JPRB,9.8537E-04_JPRB,1.0646E-03_JPRB,1.1098E-03_JPRB,1.1263E-03_JPRB,&
+ & 1.1245E-03_JPRB,1.1007E-03_JPRB,9.8663E-04_JPRB/)  
+KAO( :, 1, 8, 8) = (/&
+ & 6.4047E-04_JPRB,7.3858E-04_JPRB,8.0453E-04_JPRB,8.3694E-04_JPRB,8.4619E-04_JPRB,8.3765E-04_JPRB,&
+ & 8.0766E-04_JPRB,7.5466E-04_JPRB,8.2781E-04_JPRB/)  
+KAO( :, 2, 8, 8) = (/&
+ & 6.4742E-04_JPRB,7.5904E-04_JPRB,8.3405E-04_JPRB,8.7266E-04_JPRB,8.8676E-04_JPRB,8.8236E-04_JPRB,&
+ & 8.5570E-04_JPRB,8.0688E-04_JPRB,8.7433E-04_JPRB/)  
+KAO( :, 3, 8, 8) = (/&
+ & 6.5283E-04_JPRB,7.7980E-04_JPRB,8.6316E-04_JPRB,9.0850E-04_JPRB,9.2898E-04_JPRB,9.2841E-04_JPRB,&
+ & 9.0551E-04_JPRB,8.6048E-04_JPRB,9.2376E-04_JPRB/)  
+KAO( :, 4, 8, 8) = (/&
+ & 6.5707E-04_JPRB,7.9894E-04_JPRB,8.9224E-04_JPRB,9.4602E-04_JPRB,9.7258E-04_JPRB,9.7562E-04_JPRB,&
+ & 9.5565E-04_JPRB,9.1442E-04_JPRB,9.7371E-04_JPRB/)  
+KAO( :, 5, 8, 8) = (/&
+ & 6.6119E-04_JPRB,8.1764E-04_JPRB,9.2118E-04_JPRB,9.8357E-04_JPRB,1.0164E-03_JPRB,1.0233E-03_JPRB,&
+ & 1.0075E-03_JPRB,9.7011E-04_JPRB,1.0250E-03_JPRB/)  
+KAO( :, 1, 9, 8) = (/&
+ & 5.9304E-04_JPRB,6.8835E-04_JPRB,7.4179E-04_JPRB,7.6634E-04_JPRB,7.7050E-04_JPRB,7.5604E-04_JPRB,&
+ & 7.2393E-04_JPRB,6.6767E-04_JPRB,1.3527E-03_JPRB/)  
+KAO( :, 2, 9, 8) = (/&
+ & 6.0061E-04_JPRB,7.0826E-04_JPRB,7.7005E-04_JPRB,7.9970E-04_JPRB,8.0682E-04_JPRB,7.9622E-04_JPRB,&
+ & 7.6713E-04_JPRB,7.1229E-04_JPRB,1.3810E-03_JPRB/)  
+KAO( :, 3, 9, 8) = (/&
+ & 6.0690E-04_JPRB,7.2826E-04_JPRB,7.9782E-04_JPRB,8.3277E-04_JPRB,8.4414E-04_JPRB,8.3763E-04_JPRB,&
+ & 8.1182E-04_JPRB,7.5863E-04_JPRB,1.4228E-03_JPRB/)  
+KAO( :, 4, 9, 8) = (/&
+ & 6.1167E-04_JPRB,7.4710E-04_JPRB,8.2533E-04_JPRB,8.6687E-04_JPRB,8.8342E-04_JPRB,8.8028E-04_JPRB,&
+ & 8.5678E-04_JPRB,8.0590E-04_JPRB,1.4759E-03_JPRB/)  
+KAO( :, 5, 9, 8) = (/&
+ & 6.1627E-04_JPRB,7.6539E-04_JPRB,8.5255E-04_JPRB,9.0125E-04_JPRB,9.2320E-04_JPRB,9.2321E-04_JPRB,&
+ & 9.0266E-04_JPRB,8.5442E-04_JPRB,1.5365E-03_JPRB/)  
+KAO( :, 1,10, 8) = (/&
+ & 5.4825E-04_JPRB,6.3891E-04_JPRB,6.8254E-04_JPRB,7.0037E-04_JPRB,6.9928E-04_JPRB,6.8268E-04_JPRB,&
+ & 6.4957E-04_JPRB,5.9476E-04_JPRB,3.8180E-03_JPRB/)  
+KAO( :, 2,10, 8) = (/&
+ & 5.5676E-04_JPRB,6.5829E-04_JPRB,7.0890E-04_JPRB,7.3100E-04_JPRB,7.3257E-04_JPRB,7.1817E-04_JPRB,&
+ & 6.8748E-04_JPRB,6.3344E-04_JPRB,3.7319E-03_JPRB/)  
+KAO( :, 3,10, 8) = (/&
+ & 5.6387E-04_JPRB,6.7778E-04_JPRB,7.3493E-04_JPRB,7.6099E-04_JPRB,7.6595E-04_JPRB,7.5519E-04_JPRB,&
+ & 7.2717E-04_JPRB,6.7342E-04_JPRB,3.6841E-03_JPRB/)  
+KAO( :, 4,10, 8) = (/&
+ & 5.6965E-04_JPRB,6.9628E-04_JPRB,7.6095E-04_JPRB,7.9168E-04_JPRB,8.0061E-04_JPRB,7.9369E-04_JPRB,&
+ & 7.6769E-04_JPRB,7.1402E-04_JPRB,3.6718E-03_JPRB/)  
+KAO( :, 5,10, 8) = (/&
+ & 5.7483E-04_JPRB,7.1426E-04_JPRB,7.8640E-04_JPRB,8.2247E-04_JPRB,8.3634E-04_JPRB,8.3289E-04_JPRB,&
+ & 8.0894E-04_JPRB,7.5561E-04_JPRB,3.6884E-03_JPRB/)  
+KAO( :, 1,11, 8) = (/&
+ & 5.0971E-04_JPRB,5.9908E-04_JPRB,6.3716E-04_JPRB,6.5075E-04_JPRB,6.4646E-04_JPRB,6.2883E-04_JPRB,&
+ & 5.9611E-04_JPRB,5.4516E-04_JPRB,5.2044E-03_JPRB/)  
+KAO( :, 2,11, 8) = (/&
+ & 5.1851E-04_JPRB,6.1830E-04_JPRB,6.6103E-04_JPRB,6.7814E-04_JPRB,6.7644E-04_JPRB,6.6100E-04_JPRB,&
+ & 6.3054E-04_JPRB,5.7922E-04_JPRB,5.0472E-03_JPRB/)  
+KAO( :, 3,11, 8) = (/&
+ & 5.2576E-04_JPRB,6.3685E-04_JPRB,6.8508E-04_JPRB,7.0561E-04_JPRB,7.0702E-04_JPRB,6.9454E-04_JPRB,&
+ & 6.6622E-04_JPRB,6.1448E-04_JPRB,4.9485E-03_JPRB/)  
+KAO( :, 4,11, 8) = (/&
+ & 5.3230E-04_JPRB,6.5426E-04_JPRB,7.0906E-04_JPRB,7.3336E-04_JPRB,7.3854E-04_JPRB,7.2917E-04_JPRB,&
+ & 7.0247E-04_JPRB,6.5031E-04_JPRB,4.8945E-03_JPRB/)  
+KAO( :, 5,11, 8) = (/&
+ & 5.3825E-04_JPRB,6.7152E-04_JPRB,7.3265E-04_JPRB,7.6088E-04_JPRB,7.7057E-04_JPRB,7.6479E-04_JPRB,&
+ & 7.3945E-04_JPRB,6.8664E-04_JPRB,4.8718E-03_JPRB/)  
+KAO( :, 1,12, 8) = (/&
+ & 4.7268E-04_JPRB,5.5911E-04_JPRB,5.9221E-04_JPRB,6.0202E-04_JPRB,5.9599E-04_JPRB,5.7673E-04_JPRB,&
+ & 5.4567E-04_JPRB,4.9766E-04_JPRB,5.4784E-03_JPRB/)  
+KAO( :, 2,12, 8) = (/&
+ & 4.8142E-04_JPRB,5.7788E-04_JPRB,6.1435E-04_JPRB,6.2655E-04_JPRB,6.2325E-04_JPRB,6.0670E-04_JPRB,&
+ & 5.7673E-04_JPRB,5.2800E-04_JPRB,5.3059E-03_JPRB/)  
+KAO( :, 3,12, 8) = (/&
+ & 4.8905E-04_JPRB,5.9521E-04_JPRB,6.3638E-04_JPRB,6.5188E-04_JPRB,6.5138E-04_JPRB,6.3718E-04_JPRB,&
+ & 6.0852E-04_JPRB,5.5928E-04_JPRB,5.1929E-03_JPRB/)  
+KAO( :, 4,12, 8) = (/&
+ & 4.9586E-04_JPRB,6.1204E-04_JPRB,6.5810E-04_JPRB,6.7725E-04_JPRB,6.7983E-04_JPRB,6.6800E-04_JPRB,&
+ & 6.4102E-04_JPRB,5.9098E-04_JPRB,5.1181E-03_JPRB/)  
+KAO( :, 5,12, 8) = (/&
+ & 5.0219E-04_JPRB,6.2893E-04_JPRB,6.7933E-04_JPRB,7.0239E-04_JPRB,7.0829E-04_JPRB,6.9992E-04_JPRB,&
+ & 6.7457E-04_JPRB,6.2315E-04_JPRB,5.0659E-03_JPRB/)  
+KAO( :, 1,13, 8) = (/&
+ & 4.3613E-04_JPRB,5.1896E-04_JPRB,5.4757E-04_JPRB,5.5450E-04_JPRB,5.4716E-04_JPRB,5.2848E-04_JPRB,&
+ & 4.9828E-04_JPRB,4.5179E-04_JPRB,4.7039E-03_JPRB/)  
+KAO( :, 2,13, 8) = (/&
+ & 4.4480E-04_JPRB,5.3652E-04_JPRB,5.6828E-04_JPRB,5.7733E-04_JPRB,5.7232E-04_JPRB,5.5571E-04_JPRB,&
+ & 5.2643E-04_JPRB,4.7940E-04_JPRB,4.5588E-03_JPRB/)  
+KAO( :, 3,13, 8) = (/&
+ & 4.5255E-04_JPRB,5.5296E-04_JPRB,5.8851E-04_JPRB,6.0068E-04_JPRB,5.9826E-04_JPRB,5.8320E-04_JPRB,&
+ & 5.5480E-04_JPRB,5.0729E-04_JPRB,4.4582E-03_JPRB/)  
+KAO( :, 4,13, 8) = (/&
+ & 4.5948E-04_JPRB,5.6913E-04_JPRB,6.0860E-04_JPRB,6.2380E-04_JPRB,6.2384E-04_JPRB,6.1098E-04_JPRB,&
+ & 5.8363E-04_JPRB,5.3555E-04_JPRB,4.3840E-03_JPRB/)  
+KAO( :, 5,13, 8) = (/&
+ & 4.6648E-04_JPRB,5.8526E-04_JPRB,6.2843E-04_JPRB,6.4682E-04_JPRB,6.4977E-04_JPRB,6.3953E-04_JPRB,&
+ & 6.1349E-04_JPRB,5.6436E-04_JPRB,4.3301E-03_JPRB/)  
+KAO( :, 1, 1, 9) = (/&
+ & 4.2634E-03_JPRB,4.4619E-03_JPRB,4.8277E-03_JPRB,5.0574E-03_JPRB,5.1432E-03_JPRB,5.0824E-03_JPRB,&
+ & 4.7995E-03_JPRB,4.2519E-03_JPRB,3.6751E-03_JPRB/)  
+KAO( :, 2, 1, 9) = (/&
+ & 4.3896E-03_JPRB,4.7056E-03_JPRB,5.1713E-03_JPRB,5.4539E-03_JPRB,5.5796E-03_JPRB,5.5445E-03_JPRB,&
+ & 5.2467E-03_JPRB,4.6622E-03_JPRB,4.1226E-03_JPRB/)  
+KAO( :, 3, 1, 9) = (/&
+ & 4.5152E-03_JPRB,4.9543E-03_JPRB,5.5160E-03_JPRB,5.8544E-03_JPRB,6.0168E-03_JPRB,5.9967E-03_JPRB,&
+ & 5.6895E-03_JPRB,5.0855E-03_JPRB,4.6113E-03_JPRB/)  
+KAO( :, 4, 1, 9) = (/&
+ & 4.6230E-03_JPRB,5.1933E-03_JPRB,5.8501E-03_JPRB,6.2450E-03_JPRB,6.4433E-03_JPRB,6.4316E-03_JPRB,&
+ & 6.1283E-03_JPRB,5.5148E-03_JPRB,5.1307E-03_JPRB/)  
+KAO( :, 5, 1, 9) = (/&
+ & 4.7302E-03_JPRB,5.4309E-03_JPRB,6.1815E-03_JPRB,6.6303E-03_JPRB,6.8597E-03_JPRB,6.8605E-03_JPRB,&
+ & 6.5693E-03_JPRB,5.9487E-03_JPRB,5.6753E-03_JPRB/)  
+KAO( :, 1, 2, 9) = (/&
+ & 3.9323E-03_JPRB,4.1568E-03_JPRB,4.4806E-03_JPRB,4.6618E-03_JPRB,4.7304E-03_JPRB,4.6715E-03_JPRB,&
+ & 4.4161E-03_JPRB,3.9503E-03_JPRB,3.3395E-03_JPRB/)  
+KAO( :, 2, 2, 9) = (/&
+ & 4.0500E-03_JPRB,4.3934E-03_JPRB,4.8123E-03_JPRB,5.0480E-03_JPRB,5.1574E-03_JPRB,5.1013E-03_JPRB,&
+ & 4.8274E-03_JPRB,4.3142E-03_JPRB,3.7073E-03_JPRB/)  
+KAO( :, 3, 2, 9) = (/&
+ & 4.1698E-03_JPRB,4.6359E-03_JPRB,5.1475E-03_JPRB,5.4370E-03_JPRB,5.5831E-03_JPRB,5.5288E-03_JPRB,&
+ & 5.2416E-03_JPRB,4.6953E-03_JPRB,4.1146E-03_JPRB/)  
+KAO( :, 4, 2, 9) = (/&
+ & 4.2783E-03_JPRB,4.8739E-03_JPRB,5.4745E-03_JPRB,5.8228E-03_JPRB,5.9955E-03_JPRB,5.9514E-03_JPRB,&
+ & 5.6672E-03_JPRB,5.0790E-03_JPRB,4.5488E-03_JPRB/)  
+KAO( :, 5, 2, 9) = (/&
+ & 4.3743E-03_JPRB,5.1081E-03_JPRB,5.7929E-03_JPRB,6.1965E-03_JPRB,6.3958E-03_JPRB,6.3715E-03_JPRB,&
+ & 6.0950E-03_JPRB,5.4684E-03_JPRB,5.0068E-03_JPRB/)  
+KAO( :, 1, 3, 9) = (/&
+ & 3.6113E-03_JPRB,3.8183E-03_JPRB,4.0778E-03_JPRB,4.1984E-03_JPRB,4.2534E-03_JPRB,4.2158E-03_JPRB,&
+ & 4.0193E-03_JPRB,3.6415E-03_JPRB,3.0570E-03_JPRB/)  
+KAO( :, 2, 3, 9) = (/&
+ & 3.7209E-03_JPRB,4.0412E-03_JPRB,4.3896E-03_JPRB,4.5667E-03_JPRB,4.6475E-03_JPRB,4.5983E-03_JPRB,&
+ & 4.3872E-03_JPRB,3.9635E-03_JPRB,3.3466E-03_JPRB/)  
+KAO( :, 3, 3, 9) = (/&
+ & 3.8298E-03_JPRB,4.2704E-03_JPRB,4.6995E-03_JPRB,4.9388E-03_JPRB,5.0426E-03_JPRB,4.9845E-03_JPRB,&
+ & 4.7617E-03_JPRB,4.3009E-03_JPRB,3.6653E-03_JPRB/)  
+KAO( :, 4, 3, 9) = (/&
+ & 3.9362E-03_JPRB,4.5071E-03_JPRB,5.0123E-03_JPRB,5.3097E-03_JPRB,5.4362E-03_JPRB,5.3784E-03_JPRB,&
+ & 5.1527E-03_JPRB,4.6419E-03_JPRB,4.0116E-03_JPRB/)  
+KAO( :, 5, 3, 9) = (/&
+ & 4.0246E-03_JPRB,4.7366E-03_JPRB,5.3187E-03_JPRB,5.6677E-03_JPRB,5.8209E-03_JPRB,5.7784E-03_JPRB,&
+ & 5.5482E-03_JPRB,4.9812E-03_JPRB,4.3840E-03_JPRB/)  
+KAO( :, 1, 4, 9) = (/&
+ & 3.3284E-03_JPRB,3.4973E-03_JPRB,3.6827E-03_JPRB,3.7696E-03_JPRB,3.8145E-03_JPRB,3.7973E-03_JPRB,&
+ & 3.6757E-03_JPRB,3.3953E-03_JPRB,2.8711E-03_JPRB/)  
+KAO( :, 2, 4, 9) = (/&
+ & 3.4305E-03_JPRB,3.7049E-03_JPRB,3.9652E-03_JPRB,4.1049E-03_JPRB,4.1671E-03_JPRB,4.1383E-03_JPRB,&
+ & 3.9965E-03_JPRB,3.6722E-03_JPRB,3.0945E-03_JPRB/)  
+KAO( :, 3, 4, 9) = (/&
+ & 3.5295E-03_JPRB,3.9206E-03_JPRB,4.2522E-03_JPRB,4.4452E-03_JPRB,4.5189E-03_JPRB,4.4874E-03_JPRB,&
+ & 4.3285E-03_JPRB,3.9676E-03_JPRB,3.3441E-03_JPRB/)  
+KAO( :, 4, 4, 9) = (/&
+ & 3.6215E-03_JPRB,4.1396E-03_JPRB,4.5422E-03_JPRB,4.7812E-03_JPRB,4.8736E-03_JPRB,4.8440E-03_JPRB,&
+ & 4.6768E-03_JPRB,4.2674E-03_JPRB,3.6212E-03_JPRB/)  
+KAO( :, 5, 4, 9) = (/&
+ & 3.7121E-03_JPRB,4.3594E-03_JPRB,4.8380E-03_JPRB,5.1176E-03_JPRB,5.2295E-03_JPRB,5.2140E-03_JPRB,&
+ & 5.0347E-03_JPRB,4.5696E-03_JPRB,3.9241E-03_JPRB/)  
+KAO( :, 1, 5, 9) = (/&
+ & 3.0937E-03_JPRB,3.2190E-03_JPRB,3.3382E-03_JPRB,3.4069E-03_JPRB,3.4508E-03_JPRB,3.4576E-03_JPRB,&
+ & 3.4038E-03_JPRB,3.2121E-03_JPRB,2.7159E-03_JPRB/)  
+KAO( :, 2, 5, 9) = (/&
+ & 3.1841E-03_JPRB,3.4102E-03_JPRB,3.5885E-03_JPRB,3.6988E-03_JPRB,3.7561E-03_JPRB,3.7570E-03_JPRB,&
+ & 3.6806E-03_JPRB,3.4524E-03_JPRB,2.9248E-03_JPRB/)  
+KAO( :, 3, 5, 9) = (/&
+ & 3.2704E-03_JPRB,3.6051E-03_JPRB,3.8485E-03_JPRB,3.9980E-03_JPRB,4.0672E-03_JPRB,4.0649E-03_JPRB,&
+ & 3.9688E-03_JPRB,3.7070E-03_JPRB,3.1394E-03_JPRB/)  
+KAO( :, 4, 5, 9) = (/&
+ & 3.3530E-03_JPRB,3.8023E-03_JPRB,4.1127E-03_JPRB,4.2944E-03_JPRB,4.3822E-03_JPRB,4.3830E-03_JPRB,&
+ & 4.2728E-03_JPRB,3.9665E-03_JPRB,3.3644E-03_JPRB/)  
+KAO( :, 5, 5, 9) = (/&
+ & 3.4386E-03_JPRB,4.0026E-03_JPRB,4.3842E-03_JPRB,4.5975E-03_JPRB,4.7014E-03_JPRB,4.7133E-03_JPRB,&
+ & 4.5874E-03_JPRB,4.2339E-03_JPRB,3.6103E-03_JPRB/)  
+KAO( :, 1, 6, 9) = (/&
+ & 2.9009E-03_JPRB,2.9757E-03_JPRB,3.0499E-03_JPRB,3.1038E-03_JPRB,3.1541E-03_JPRB,3.1847E-03_JPRB,&
+ & 3.1836E-03_JPRB,3.0557E-03_JPRB,2.5583E-03_JPRB/)  
+KAO( :, 2, 6, 9) = (/&
+ & 2.9774E-03_JPRB,3.1460E-03_JPRB,3.2679E-03_JPRB,3.3537E-03_JPRB,3.4147E-03_JPRB,3.4421E-03_JPRB,&
+ & 3.4203E-03_JPRB,3.2723E-03_JPRB,2.7519E-03_JPRB/)  
+KAO( :, 3, 6, 9) = (/&
+ & 3.0522E-03_JPRB,3.3185E-03_JPRB,3.4964E-03_JPRB,3.6100E-03_JPRB,3.6827E-03_JPRB,3.7087E-03_JPRB,&
+ & 3.6668E-03_JPRB,3.4927E-03_JPRB,2.9536E-03_JPRB/)  
+KAO( :, 4, 6, 9) = (/&
+ & 3.1282E-03_JPRB,3.4957E-03_JPRB,3.7291E-03_JPRB,3.8695E-03_JPRB,3.9556E-03_JPRB,3.9847E-03_JPRB,&
+ & 3.9266E-03_JPRB,3.7176E-03_JPRB,3.1650E-03_JPRB/)  
+KAO( :, 5, 6, 9) = (/&
+ & 3.1999E-03_JPRB,3.6746E-03_JPRB,3.9646E-03_JPRB,4.1331E-03_JPRB,4.2341E-03_JPRB,4.2712E-03_JPRB,&
+ & 4.1979E-03_JPRB,3.9512E-03_JPRB,3.3876E-03_JPRB/)  
+KAO( :, 1, 7, 9) = (/&
+ & 2.7415E-03_JPRB,2.7746E-03_JPRB,2.8210E-03_JPRB,2.8741E-03_JPRB,2.9327E-03_JPRB,2.9829E-03_JPRB,&
+ & 2.9928E-03_JPRB,2.8802E-03_JPRB,2.4517E-03_JPRB/)  
+KAO( :, 2, 7, 9) = (/&
+ & 2.8079E-03_JPRB,2.9223E-03_JPRB,3.0084E-03_JPRB,3.0853E-03_JPRB,3.1485E-03_JPRB,3.1999E-03_JPRB,&
+ & 3.2078E-03_JPRB,3.0910E-03_JPRB,2.6310E-03_JPRB/)  
+KAO( :, 3, 7, 9) = (/&
+ & 2.8746E-03_JPRB,3.0732E-03_JPRB,3.2043E-03_JPRB,3.3040E-03_JPRB,3.3751E-03_JPRB,3.4239E-03_JPRB,&
+ & 3.4236E-03_JPRB,3.2999E-03_JPRB,2.8151E-03_JPRB/)  
+KAO( :, 4, 7, 9) = (/&
+ & 2.9412E-03_JPRB,3.2304E-03_JPRB,3.4053E-03_JPRB,3.5266E-03_JPRB,3.6086E-03_JPRB,3.6573E-03_JPRB,&
+ & 3.6460E-03_JPRB,3.5085E-03_JPRB,3.0037E-03_JPRB/)  
+KAO( :, 5, 7, 9) = (/&
+ & 3.0012E-03_JPRB,3.3903E-03_JPRB,3.6088E-03_JPRB,3.7519E-03_JPRB,3.8465E-03_JPRB,3.9004E-03_JPRB,&
+ & 3.8789E-03_JPRB,3.7197E-03_JPRB,3.2035E-03_JPRB/)  
+KAO( :, 1, 8, 9) = (/&
+ & 2.6011E-03_JPRB,2.6087E-03_JPRB,2.6505E-03_JPRB,2.7115E-03_JPRB,2.7795E-03_JPRB,2.8145E-03_JPRB,&
+ & 2.7964E-03_JPRB,2.6829E-03_JPRB,2.5124E-03_JPRB/)  
+KAO( :, 2, 8, 9) = (/&
+ & 2.6605E-03_JPRB,2.7384E-03_JPRB,2.8102E-03_JPRB,2.8876E-03_JPRB,2.9588E-03_JPRB,3.0106E-03_JPRB,&
+ & 2.9995E-03_JPRB,2.8886E-03_JPRB,2.6866E-03_JPRB/)  
+KAO( :, 3, 8, 9) = (/&
+ & 2.7221E-03_JPRB,2.8708E-03_JPRB,2.9770E-03_JPRB,3.0697E-03_JPRB,3.1469E-03_JPRB,3.2045E-03_JPRB,&
+ & 3.2054E-03_JPRB,3.0872E-03_JPRB,2.8608E-03_JPRB/)  
+KAO( :, 4, 8, 9) = (/&
+ & 2.7814E-03_JPRB,3.0087E-03_JPRB,3.1469E-03_JPRB,3.2564E-03_JPRB,3.3407E-03_JPRB,3.4007E-03_JPRB,&
+ & 3.4134E-03_JPRB,3.2854E-03_JPRB,3.0367E-03_JPRB/)  
+KAO( :, 5, 8, 9) = (/&
+ & 2.8334E-03_JPRB,3.1463E-03_JPRB,3.3224E-03_JPRB,3.4471E-03_JPRB,3.5390E-03_JPRB,3.6049E-03_JPRB,&
+ & 3.6218E-03_JPRB,3.4862E-03_JPRB,3.2148E-03_JPRB/)  
+KAO( :, 1, 9, 9) = (/&
+ & 2.4681E-03_JPRB,2.4670E-03_JPRB,2.5193E-03_JPRB,2.5927E-03_JPRB,2.6437E-03_JPRB,2.6462E-03_JPRB,&
+ & 2.5937E-03_JPRB,2.4688E-03_JPRB,4.0106E-03_JPRB/)  
+KAO( :, 2, 9, 9) = (/&
+ & 2.5243E-03_JPRB,2.5823E-03_JPRB,2.6553E-03_JPRB,2.7401E-03_JPRB,2.8086E-03_JPRB,2.8274E-03_JPRB,&
+ & 2.7863E-03_JPRB,2.6637E-03_JPRB,4.1870E-03_JPRB/)  
+KAO( :, 3, 9, 9) = (/&
+ & 2.5817E-03_JPRB,2.6985E-03_JPRB,2.7975E-03_JPRB,2.8934E-03_JPRB,2.9743E-03_JPRB,3.0076E-03_JPRB,&
+ & 2.9804E-03_JPRB,2.8541E-03_JPRB,4.3637E-03_JPRB/)  
+KAO( :, 4, 9, 9) = (/&
+ & 2.6357E-03_JPRB,2.8178E-03_JPRB,2.9439E-03_JPRB,3.0496E-03_JPRB,3.1384E-03_JPRB,3.1881E-03_JPRB,&
+ & 3.1729E-03_JPRB,3.0435E-03_JPRB,4.5427E-03_JPRB/)  
+KAO( :, 5, 9, 9) = (/&
+ & 2.6826E-03_JPRB,2.9379E-03_JPRB,3.0923E-03_JPRB,3.2096E-03_JPRB,3.3016E-03_JPRB,3.3682E-03_JPRB,&
+ & 3.3659E-03_JPRB,3.2338E-03_JPRB,4.7326E-03_JPRB/)  
+KAO( :, 1,10, 9) = (/&
+ & 2.3365E-03_JPRB,2.3445E-03_JPRB,2.4180E-03_JPRB,2.4933E-03_JPRB,2.5143E-03_JPRB,2.4864E-03_JPRB,&
+ & 2.4076E-03_JPRB,2.2631E-03_JPRB,1.0002E-02_JPRB/)  
+KAO( :, 2,10, 9) = (/&
+ & 2.3916E-03_JPRB,2.4482E-03_JPRB,2.5366E-03_JPRB,2.6275E-03_JPRB,2.6688E-03_JPRB,2.6554E-03_JPRB,&
+ & 2.5866E-03_JPRB,2.4438E-03_JPRB,1.0188E-02_JPRB/)  
+KAO( :, 3,10, 9) = (/&
+ & 2.4458E-03_JPRB,2.5525E-03_JPRB,2.6602E-03_JPRB,2.7640E-03_JPRB,2.8222E-03_JPRB,2.8241E-03_JPRB,&
+ & 2.7676E-03_JPRB,2.6219E-03_JPRB,1.0447E-02_JPRB/)  
+KAO( :, 4,10, 9) = (/&
+ & 2.4945E-03_JPRB,2.6579E-03_JPRB,2.7873E-03_JPRB,2.8998E-03_JPRB,2.9729E-03_JPRB,2.9898E-03_JPRB,&
+ & 2.9465E-03_JPRB,2.7998E-03_JPRB,1.0769E-02_JPRB/)  
+KAO( :, 5,10, 9) = (/&
+ & 2.5382E-03_JPRB,2.7637E-03_JPRB,2.9128E-03_JPRB,3.0348E-03_JPRB,3.1210E-03_JPRB,3.1536E-03_JPRB,&
+ & 3.1245E-03_JPRB,2.9806E-03_JPRB,1.1144E-02_JPRB/)  
+KAO( :, 1,11, 9) = (/&
+ & 2.2189E-03_JPRB,2.2637E-03_JPRB,2.3663E-03_JPRB,2.4375E-03_JPRB,2.4436E-03_JPRB,2.3971E-03_JPRB,&
+ & 2.2998E-03_JPRB,2.1349E-03_JPRB,1.4165E-02_JPRB/)  
+KAO( :, 2,11, 9) = (/&
+ & 2.2725E-03_JPRB,2.3594E-03_JPRB,2.4775E-03_JPRB,2.5648E-03_JPRB,2.5873E-03_JPRB,2.5525E-03_JPRB,&
+ & 2.4655E-03_JPRB,2.2999E-03_JPRB,1.4362E-02_JPRB/)  
+KAO( :, 3,11, 9) = (/&
+ & 2.3225E-03_JPRB,2.4563E-03_JPRB,2.5905E-03_JPRB,2.6905E-03_JPRB,2.7282E-03_JPRB,2.7081E-03_JPRB,&
+ & 2.6314E-03_JPRB,2.4622E-03_JPRB,1.4689E-02_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART6',1,ZHOOK_HANDLE)
+END SUBROUTINE PART6
+
+
+SUBROUTINE PART7
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART7',0,ZHOOK_HANDLE)
+
+
+KAO( :, 4,11, 9) = (/&
+ & 2.3671E-03_JPRB,2.5537E-03_JPRB,2.7011E-03_JPRB,2.8153E-03_JPRB,2.8667E-03_JPRB,2.8616E-03_JPRB,&
+ & 2.7947E-03_JPRB,2.6271E-03_JPRB,1.5129E-02_JPRB/)  
+KAO( :, 5,11, 9) = (/&
+ & 2.4082E-03_JPRB,2.6482E-03_JPRB,2.8083E-03_JPRB,2.9363E-03_JPRB,3.0040E-03_JPRB,3.0155E-03_JPRB,&
+ & 2.9597E-03_JPRB,2.7977E-03_JPRB,1.5652E-02_JPRB/)  
+KAO( :, 1,12, 9) = (/&
+ & 2.0910E-03_JPRB,2.1698E-03_JPRB,2.2939E-03_JPRB,2.3579E-03_JPRB,2.3558E-03_JPRB,2.2934E-03_JPRB,&
+ & 2.1816E-03_JPRB,2.0022E-03_JPRB,1.5828E-02_JPRB/)  
+KAO( :, 2,12, 9) = (/&
+ & 2.1414E-03_JPRB,2.2595E-03_JPRB,2.4019E-03_JPRB,2.4797E-03_JPRB,2.4872E-03_JPRB,2.4364E-03_JPRB,&
+ & 2.3325E-03_JPRB,2.1497E-03_JPRB,1.6052E-02_JPRB/)  
+KAO( :, 3,12, 9) = (/&
+ & 2.1876E-03_JPRB,2.3512E-03_JPRB,2.5089E-03_JPRB,2.5983E-03_JPRB,2.6170E-03_JPRB,2.5791E-03_JPRB,&
+ & 2.4816E-03_JPRB,2.2977E-03_JPRB,1.6424E-02_JPRB/)  
+KAO( :, 4,12, 9) = (/&
+ & 2.2305E-03_JPRB,2.4411E-03_JPRB,2.6103E-03_JPRB,2.7123E-03_JPRB,2.7468E-03_JPRB,2.7221E-03_JPRB,&
+ & 2.6302E-03_JPRB,2.4491E-03_JPRB,1.6928E-02_JPRB/)  
+KAO( :, 5,12, 9) = (/&
+ & 2.2685E-03_JPRB,2.5264E-03_JPRB,2.7071E-03_JPRB,2.8237E-03_JPRB,2.8760E-03_JPRB,2.8651E-03_JPRB,&
+ & 2.7812E-03_JPRB,2.6061E-03_JPRB,1.7523E-02_JPRB/)  
+KAO( :, 1,13, 9) = (/&
+ & 1.9577E-03_JPRB,2.0704E-03_JPRB,2.2038E-03_JPRB,2.2584E-03_JPRB,2.2491E-03_JPRB,2.1789E-03_JPRB,&
+ & 2.0585E-03_JPRB,1.8702E-03_JPRB,1.4483E-02_JPRB/)  
+KAO( :, 2,13, 9) = (/&
+ & 2.0058E-03_JPRB,2.1546E-03_JPRB,2.3069E-03_JPRB,2.3735E-03_JPRB,2.3721E-03_JPRB,2.3101E-03_JPRB,&
+ & 2.1933E-03_JPRB,2.0001E-03_JPRB,1.4716E-02_JPRB/)  
+KAO( :, 3,13, 9) = (/&
+ & 2.0506E-03_JPRB,2.2392E-03_JPRB,2.4060E-03_JPRB,2.4864E-03_JPRB,2.4932E-03_JPRB,2.4402E-03_JPRB,&
+ & 2.3277E-03_JPRB,2.1324E-03_JPRB,1.5081E-02_JPRB/)  
+KAO( :, 4,13, 9) = (/&
+ & 2.0915E-03_JPRB,2.3209E-03_JPRB,2.5015E-03_JPRB,2.5952E-03_JPRB,2.6152E-03_JPRB,2.5711E-03_JPRB,&
+ & 2.4622E-03_JPRB,2.2684E-03_JPRB,1.5556E-02_JPRB/)  
+KAO( :, 5,13, 9) = (/&
+ & 2.1275E-03_JPRB,2.3984E-03_JPRB,2.5936E-03_JPRB,2.7019E-03_JPRB,2.7369E-03_JPRB,2.7034E-03_JPRB,&
+ & 2.5998E-03_JPRB,2.4103E-03_JPRB,1.6100E-02_JPRB/)  
+KAO( :, 1, 1,10) = (/&
+ & 1.7685E-02_JPRB,1.5886E-02_JPRB,1.5286E-02_JPRB,1.4910E-02_JPRB,1.4213E-02_JPRB,1.2872E-02_JPRB,&
+ & 1.1554E-02_JPRB,9.7299E-03_JPRB,9.7670E-03_JPRB/)  
+KAO( :, 2, 1,10) = (/&
+ & 1.7924E-02_JPRB,1.6198E-02_JPRB,1.5800E-02_JPRB,1.5762E-02_JPRB,1.5013E-02_JPRB,1.3648E-02_JPRB,&
+ & 1.2502E-02_JPRB,1.0682E-02_JPRB,1.1264E-02_JPRB/)  
+KAO( :, 3, 1,10) = (/&
+ & 1.8162E-02_JPRB,1.6493E-02_JPRB,1.6320E-02_JPRB,1.6501E-02_JPRB,1.5785E-02_JPRB,1.4461E-02_JPRB,&
+ & 1.3394E-02_JPRB,1.1688E-02_JPRB,1.2766E-02_JPRB/)  
+KAO( :, 4, 1,10) = (/&
+ & 1.8373E-02_JPRB,1.6799E-02_JPRB,1.6869E-02_JPRB,1.7132E-02_JPRB,1.6537E-02_JPRB,1.5302E-02_JPRB,&
+ & 1.4231E-02_JPRB,1.2873E-02_JPRB,1.4298E-02_JPRB/)  
+KAO( :, 5, 1,10) = (/&
+ & 1.8575E-02_JPRB,1.7109E-02_JPRB,1.7449E-02_JPRB,1.7721E-02_JPRB,1.7274E-02_JPRB,1.6125E-02_JPRB,&
+ & 1.4995E-02_JPRB,1.4230E-02_JPRB,1.5931E-02_JPRB/)  
+KAO( :, 1, 2,10) = (/&
+ & 1.6873E-02_JPRB,1.5273E-02_JPRB,1.4928E-02_JPRB,1.4779E-02_JPRB,1.3931E-02_JPRB,1.2662E-02_JPRB,&
+ & 1.1382E-02_JPRB,9.2864E-03_JPRB,8.6917E-03_JPRB/)  
+KAO( :, 2, 2,10) = (/&
+ & 1.7158E-02_JPRB,1.5636E-02_JPRB,1.5517E-02_JPRB,1.5568E-02_JPRB,1.4735E-02_JPRB,1.3617E-02_JPRB,&
+ & 1.2343E-02_JPRB,1.0165E-02_JPRB,1.0091E-02_JPRB/)  
+KAO( :, 3, 2,10) = (/&
+ & 1.7424E-02_JPRB,1.6018E-02_JPRB,1.6130E-02_JPRB,1.6288E-02_JPRB,1.5522E-02_JPRB,1.4562E-02_JPRB,&
+ & 1.3276E-02_JPRB,1.1047E-02_JPRB,1.1539E-02_JPRB/)  
+KAO( :, 4, 2,10) = (/&
+ & 1.7705E-02_JPRB,1.6391E-02_JPRB,1.6775E-02_JPRB,1.6913E-02_JPRB,1.6383E-02_JPRB,1.5440E-02_JPRB,&
+ & 1.4111E-02_JPRB,1.2115E-02_JPRB,1.3109E-02_JPRB/)  
+KAO( :, 5, 2,10) = (/&
+ & 1.7946E-02_JPRB,1.6730E-02_JPRB,1.7389E-02_JPRB,1.7560E-02_JPRB,1.7230E-02_JPRB,1.6260E-02_JPRB,&
+ & 1.4862E-02_JPRB,1.3377E-02_JPRB,1.4792E-02_JPRB/)  
+KAO( :, 1, 3,10) = (/&
+ & 1.5798E-02_JPRB,1.4431E-02_JPRB,1.4230E-02_JPRB,1.4159E-02_JPRB,1.3349E-02_JPRB,1.2204E-02_JPRB,&
+ & 1.0867E-02_JPRB,8.8000E-03_JPRB,7.4513E-03_JPRB/)  
+KAO( :, 2, 3,10) = (/&
+ & 1.6121E-02_JPRB,1.4897E-02_JPRB,1.4916E-02_JPRB,1.4922E-02_JPRB,1.4162E-02_JPRB,1.3251E-02_JPRB,&
+ & 1.1847E-02_JPRB,9.5823E-03_JPRB,8.7330E-03_JPRB/)  
+KAO( :, 3, 3,10) = (/&
+ & 1.6462E-02_JPRB,1.5342E-02_JPRB,1.5618E-02_JPRB,1.5620E-02_JPRB,1.5015E-02_JPRB,1.4282E-02_JPRB,&
+ & 1.2797E-02_JPRB,1.0384E-02_JPRB,1.0179E-02_JPRB/)  
+KAO( :, 4, 3,10) = (/&
+ & 1.6798E-02_JPRB,1.5765E-02_JPRB,1.6290E-02_JPRB,1.6289E-02_JPRB,1.5973E-02_JPRB,1.5269E-02_JPRB,&
+ & 1.3672E-02_JPRB,1.1383E-02_JPRB,1.1725E-02_JPRB/)  
+KAO( :, 5, 3,10) = (/&
+ & 1.7062E-02_JPRB,1.6131E-02_JPRB,1.6868E-02_JPRB,1.7006E-02_JPRB,1.6890E-02_JPRB,1.6143E-02_JPRB,&
+ & 1.4482E-02_JPRB,1.2538E-02_JPRB,1.3312E-02_JPRB/)  
+KAO( :, 1, 4,10) = (/&
+ & 1.4564E-02_JPRB,1.3497E-02_JPRB,1.3366E-02_JPRB,1.3251E-02_JPRB,1.2600E-02_JPRB,1.1517E-02_JPRB,&
+ & 1.0115E-02_JPRB,8.2572E-03_JPRB,6.3788E-03_JPRB/)  
+KAO( :, 2, 4,10) = (/&
+ & 1.4956E-02_JPRB,1.4021E-02_JPRB,1.4143E-02_JPRB,1.3989E-02_JPRB,1.3446E-02_JPRB,1.2579E-02_JPRB,&
+ & 1.1185E-02_JPRB,9.0656E-03_JPRB,7.4847E-03_JPRB/)  
+KAO( :, 3, 4,10) = (/&
+ & 1.5366E-02_JPRB,1.4523E-02_JPRB,1.4865E-02_JPRB,1.4686E-02_JPRB,1.4396E-02_JPRB,1.3630E-02_JPRB,&
+ & 1.2209E-02_JPRB,9.8300E-03_JPRB,8.7484E-03_JPRB/)  
+KAO( :, 4, 4,10) = (/&
+ & 1.5673E-02_JPRB,1.4963E-02_JPRB,1.5538E-02_JPRB,1.5419E-02_JPRB,1.5384E-02_JPRB,1.4661E-02_JPRB,&
+ & 1.3123E-02_JPRB,1.0681E-02_JPRB,1.0095E-02_JPRB/)  
+KAO( :, 5, 4,10) = (/&
+ & 1.5927E-02_JPRB,1.5374E-02_JPRB,1.6106E-02_JPRB,1.6246E-02_JPRB,1.6331E-02_JPRB,1.5570E-02_JPRB,&
+ & 1.3997E-02_JPRB,1.1612E-02_JPRB,1.1475E-02_JPRB/)  
+KAO( :, 1, 5,10) = (/&
+ & 1.3266E-02_JPRB,1.2466E-02_JPRB,1.2400E-02_JPRB,1.2242E-02_JPRB,1.1629E-02_JPRB,1.0628E-02_JPRB,&
+ & 9.2898E-03_JPRB,7.6240E-03_JPRB,5.9670E-03_JPRB/)  
+KAO( :, 2, 5,10) = (/&
+ & 1.3732E-02_JPRB,1.3052E-02_JPRB,1.3208E-02_JPRB,1.3005E-02_JPRB,1.2522E-02_JPRB,1.1685E-02_JPRB,&
+ & 1.0389E-02_JPRB,8.4463E-03_JPRB,6.6100E-03_JPRB/)  
+KAO( :, 3, 5,10) = (/&
+ & 1.4084E-02_JPRB,1.3547E-02_JPRB,1.3938E-02_JPRB,1.3750E-02_JPRB,1.3484E-02_JPRB,1.2725E-02_JPRB,&
+ & 1.1484E-02_JPRB,9.2095E-03_JPRB,7.5100E-03_JPRB/)  
+KAO( :, 4, 5,10) = (/&
+ & 1.4380E-02_JPRB,1.4005E-02_JPRB,1.4577E-02_JPRB,1.4581E-02_JPRB,1.4467E-02_JPRB,1.3764E-02_JPRB,&
+ & 1.2436E-02_JPRB,1.0053E-02_JPRB,8.5649E-03_JPRB/)  
+KAO( :, 5, 5,10) = (/&
+ & 1.4640E-02_JPRB,1.4480E-02_JPRB,1.5153E-02_JPRB,1.5470E-02_JPRB,1.5438E-02_JPRB,1.4721E-02_JPRB,&
+ & 1.3356E-02_JPRB,1.0839E-02_JPRB,9.6988E-03_JPRB/)  
+KAO( :, 1, 6,10) = (/&
+ & 1.1942E-02_JPRB,1.1353E-02_JPRB,1.1339E-02_JPRB,1.1150E-02_JPRB,1.0468E-02_JPRB,9.5854E-03_JPRB,&
+ & 8.3811E-03_JPRB,7.0885E-03_JPRB,5.8798E-03_JPRB/)  
+KAO( :, 2, 6,10) = (/&
+ & 1.2358E-02_JPRB,1.1922E-02_JPRB,1.2141E-02_JPRB,1.1920E-02_JPRB,1.1378E-02_JPRB,1.0610E-02_JPRB,&
+ & 9.4501E-03_JPRB,7.7713E-03_JPRB,6.4066E-03_JPRB/)  
+KAO( :, 3, 6,10) = (/&
+ & 1.2698E-02_JPRB,1.2427E-02_JPRB,1.2838E-02_JPRB,1.2735E-02_JPRB,1.2366E-02_JPRB,1.1633E-02_JPRB,&
+ & 1.0517E-02_JPRB,8.4962E-03_JPRB,6.9615E-03_JPRB/)  
+KAO( :, 4, 6,10) = (/&
+ & 1.2998E-02_JPRB,1.2956E-02_JPRB,1.3432E-02_JPRB,1.3603E-02_JPRB,1.3351E-02_JPRB,1.2693E-02_JPRB,&
+ & 1.1517E-02_JPRB,9.2932E-03_JPRB,7.5694E-03_JPRB/)  
+KAO( :, 5, 6,10) = (/&
+ & 1.3245E-02_JPRB,1.3459E-02_JPRB,1.4045E-02_JPRB,1.4501E-02_JPRB,1.4340E-02_JPRB,1.3672E-02_JPRB,&
+ & 1.2434E-02_JPRB,1.0037E-02_JPRB,8.3088E-03_JPRB/)  
+KAO( :, 1, 7,10) = (/&
+ & 1.0635E-02_JPRB,1.0181E-02_JPRB,1.0247E-02_JPRB,9.9535E-03_JPRB,9.2688E-03_JPRB,8.4744E-03_JPRB,&
+ & 7.6731E-03_JPRB,6.9595E-03_JPRB,5.7767E-03_JPRB/)  
+KAO( :, 2, 7,10) = (/&
+ & 1.1001E-02_JPRB,1.0731E-02_JPRB,1.1001E-02_JPRB,1.0727E-02_JPRB,1.0196E-02_JPRB,9.4273E-03_JPRB,&
+ & 8.5283E-03_JPRB,7.4633E-03_JPRB,6.2551E-03_JPRB/)  
+KAO( :, 3, 7,10) = (/&
+ & 1.1326E-02_JPRB,1.1289E-02_JPRB,1.1647E-02_JPRB,1.1559E-02_JPRB,1.1156E-02_JPRB,1.0455E-02_JPRB,&
+ & 9.4847E-03_JPRB,7.9997E-03_JPRB,6.7556E-03_JPRB/)  
+KAO( :, 4, 7,10) = (/&
+ & 1.1605E-02_JPRB,1.1840E-02_JPRB,1.2266E-02_JPRB,1.2419E-02_JPRB,1.2130E-02_JPRB,1.1514E-02_JPRB,&
+ & 1.0422E-02_JPRB,8.6046E-03_JPRB,7.2812E-03_JPRB/)  
+KAO( :, 5, 7,10) = (/&
+ & 1.1846E-02_JPRB,1.2301E-02_JPRB,1.2939E-02_JPRB,1.3278E-02_JPRB,1.3141E-02_JPRB,1.2520E-02_JPRB,&
+ & 1.1309E-02_JPRB,9.2291E-03_JPRB,7.8135E-03_JPRB/)  
+KAO( :, 1, 8,10) = (/&
+ & 9.5318E-03_JPRB,9.1400E-03_JPRB,9.1541E-03_JPRB,8.7469E-03_JPRB,8.1107E-03_JPRB,7.6844E-03_JPRB,&
+ & 7.4790E-03_JPRB,6.8560E-03_JPRB,6.1100E-03_JPRB/)  
+KAO( :, 2, 8,10) = (/&
+ & 9.8513E-03_JPRB,9.6543E-03_JPRB,9.8221E-03_JPRB,9.4930E-03_JPRB,8.9990E-03_JPRB,8.4087E-03_JPRB,&
+ & 8.1002E-03_JPRB,7.3297E-03_JPRB,6.5036E-03_JPRB/)  
+KAO( :, 3, 8,10) = (/&
+ & 1.0121E-02_JPRB,1.0183E-02_JPRB,1.0429E-02_JPRB,1.0295E-02_JPRB,9.9219E-03_JPRB,9.3052E-03_JPRB,&
+ & 8.7495E-03_JPRB,7.8409E-03_JPRB,6.8133E-03_JPRB/)  
+KAO( :, 4, 8,10) = (/&
+ & 1.0342E-02_JPRB,1.0668E-02_JPRB,1.1072E-02_JPRB,1.1128E-02_JPRB,1.0881E-02_JPRB,1.0314E-02_JPRB,&
+ & 9.4319E-03_JPRB,8.3379E-03_JPRB,7.1719E-03_JPRB/)  
+KAO( :, 5, 8,10) = (/&
+ & 1.0574E-02_JPRB,1.1111E-02_JPRB,1.1730E-02_JPRB,1.1969E-02_JPRB,1.1864E-02_JPRB,1.1283E-02_JPRB,&
+ & 1.0148E-02_JPRB,8.8068E-03_JPRB,7.6246E-03_JPRB/)  
+KAO( :, 1, 9,10) = (/&
+ & 8.6979E-03_JPRB,8.3079E-03_JPRB,8.1722E-03_JPRB,7.6777E-03_JPRB,7.3529E-03_JPRB,7.3690E-03_JPRB,&
+ & 7.3422E-03_JPRB,6.6830E-03_JPRB,8.5832E-03_JPRB/)  
+KAO( :, 2, 9,10) = (/&
+ & 8.9724E-03_JPRB,8.7731E-03_JPRB,8.7419E-03_JPRB,8.3348E-03_JPRB,7.9939E-03_JPRB,7.9020E-03_JPRB,&
+ & 7.8887E-03_JPRB,7.1655E-03_JPRB,9.0283E-03_JPRB/)  
+KAO( :, 3, 9,10) = (/&
+ & 9.1636E-03_JPRB,9.2350E-03_JPRB,9.2903E-03_JPRB,9.0718E-03_JPRB,8.7389E-03_JPRB,8.5612E-03_JPRB,&
+ & 8.4201E-03_JPRB,7.6462E-03_JPRB,9.4969E-03_JPRB/)  
+KAO( :, 4, 9,10) = (/&
+ & 9.3430E-03_JPRB,9.6411E-03_JPRB,9.8735E-03_JPRB,9.8458E-03_JPRB,9.5925E-03_JPRB,9.3082E-03_JPRB,&
+ & 8.9479E-03_JPRB,8.0999E-03_JPRB,9.9701E-03_JPRB/)  
+KAO( :, 5, 9,10) = (/&
+ & 9.5543E-03_JPRB,1.0034E-02_JPRB,1.0504E-02_JPRB,1.0652E-02_JPRB,1.0546E-02_JPRB,1.0105E-02_JPRB,&
+ & 9.4548E-03_JPRB,8.5503E-03_JPRB,1.0439E-02_JPRB/)  
+KAO( :, 1,10,10) = (/&
+ & 8.1157E-03_JPRB,7.6953E-03_JPRB,7.3856E-03_JPRB,7.0143E-03_JPRB,7.0934E-03_JPRB,7.1592E-03_JPRB,&
+ & 7.1366E-03_JPRB,6.4736E-03_JPRB,2.5288E-02_JPRB/)  
+KAO( :, 2,10,10) = (/&
+ & 8.3228E-03_JPRB,8.1050E-03_JPRB,7.8899E-03_JPRB,7.5150E-03_JPRB,7.5383E-03_JPRB,7.6577E-03_JPRB,&
+ & 7.6569E-03_JPRB,6.9536E-03_JPRB,2.5969E-02_JPRB/)  
+KAO( :, 3,10,10) = (/&
+ & 8.4638E-03_JPRB,8.4927E-03_JPRB,8.3732E-03_JPRB,8.1065E-03_JPRB,8.0674E-03_JPRB,8.2304E-03_JPRB,&
+ & 8.1217E-03_JPRB,7.4527E-03_JPRB,2.6813E-02_JPRB/)  
+KAO( :, 4,10,10) = (/&
+ & 8.6251E-03_JPRB,8.8393E-03_JPRB,8.8777E-03_JPRB,8.7542E-03_JPRB,8.7078E-03_JPRB,8.8286E-03_JPRB,&
+ & 8.6165E-03_JPRB,7.9058E-03_JPRB,2.7708E-02_JPRB/)  
+KAO( :, 5,10,10) = (/&
+ & 8.7883E-03_JPRB,9.2004E-03_JPRB,9.4445E-03_JPRB,9.4717E-03_JPRB,9.4479E-03_JPRB,9.4125E-03_JPRB,&
+ & 9.0956E-03_JPRB,8.3203E-03_JPRB,2.8653E-02_JPRB/)  
+KAO( :, 1,11,10) = (/&
+ & 7.8501E-03_JPRB,7.4452E-03_JPRB,7.0342E-03_JPRB,6.9004E-03_JPRB,7.0570E-03_JPRB,7.1201E-03_JPRB,&
+ & 7.0476E-03_JPRB,6.4243E-03_JPRB,4.0572E-02_JPRB/)  
+KAO( :, 2,11,10) = (/&
+ & 7.9753E-03_JPRB,7.7749E-03_JPRB,7.4240E-03_JPRB,7.3009E-03_JPRB,7.4854E-03_JPRB,7.6408E-03_JPRB,&
+ & 7.5205E-03_JPRB,6.9049E-03_JPRB,4.1441E-02_JPRB/)  
+KAO( :, 3,11,10) = (/&
+ & 8.0806E-03_JPRB,8.0563E-03_JPRB,7.8316E-03_JPRB,7.7518E-03_JPRB,7.9930E-03_JPRB,8.1574E-03_JPRB,&
+ & 7.9957E-03_JPRB,7.3976E-03_JPRB,4.2222E-02_JPRB/)  
+KAO( :, 4,11,10) = (/&
+ & 8.1992E-03_JPRB,8.3401E-03_JPRB,8.2986E-03_JPRB,8.2629E-03_JPRB,8.5167E-03_JPRB,8.6635E-03_JPRB,&
+ & 8.4735E-03_JPRB,7.8541E-03_JPRB,4.3187E-02_JPRB/)  
+KAO( :, 5,11,10) = (/&
+ & 8.2878E-03_JPRB,8.6780E-03_JPRB,8.8506E-03_JPRB,8.8633E-03_JPRB,9.0484E-03_JPRB,9.1413E-03_JPRB,&
+ & 8.9084E-03_JPRB,8.2746E-03_JPRB,4.4361E-02_JPRB/)  
+KAO( :, 1,12,10) = (/&
+ & 7.6139E-03_JPRB,7.2726E-03_JPRB,6.8850E-03_JPRB,6.9089E-03_JPRB,6.9663E-03_JPRB,7.0443E-03_JPRB,&
+ & 6.8750E-03_JPRB,6.2469E-03_JPRB,4.8797E-02_JPRB/)  
+KAO( :, 2,12,10) = (/&
+ & 7.7194E-03_JPRB,7.5180E-03_JPRB,7.1615E-03_JPRB,7.2509E-03_JPRB,7.4345E-03_JPRB,7.5251E-03_JPRB,&
+ & 7.3302E-03_JPRB,6.7269E-03_JPRB,4.9597E-02_JPRB/)  
+KAO( :, 3,12,10) = (/&
+ & 7.8184E-03_JPRB,7.7399E-03_JPRB,7.4810E-03_JPRB,7.6258E-03_JPRB,7.9008E-03_JPRB,7.9967E-03_JPRB,&
+ & 7.8018E-03_JPRB,7.1947E-03_JPRB,5.0339E-02_JPRB/)  
+KAO( :, 4,12,10) = (/&
+ & 7.8914E-03_JPRB,7.9922E-03_JPRB,7.8923E-03_JPRB,8.0511E-03_JPRB,8.3449E-03_JPRB,8.4240E-03_JPRB,&
+ & 8.2687E-03_JPRB,7.6521E-03_JPRB,5.1350E-02_JPRB/)  
+KAO( :, 5,12,10) = (/&
+ & 7.9507E-03_JPRB,8.2886E-03_JPRB,8.3628E-03_JPRB,8.5321E-03_JPRB,8.7647E-03_JPRB,8.8141E-03_JPRB,&
+ & 8.7116E-03_JPRB,8.0986E-03_JPRB,5.2764E-02_JPRB/)  
+KAO( :, 1,13,10) = (/&
+ & 7.3158E-03_JPRB,7.0328E-03_JPRB,6.8235E-03_JPRB,6.9230E-03_JPRB,6.9064E-03_JPRB,6.8869E-03_JPRB,&
+ & 6.6102E-03_JPRB,5.9534E-03_JPRB,4.6027E-02_JPRB/)  
+KAO( :, 2,13,10) = (/&
+ & 7.4278E-03_JPRB,7.2607E-03_JPRB,7.0591E-03_JPRB,7.2420E-03_JPRB,7.3482E-03_JPRB,7.3254E-03_JPRB,&
+ & 7.0547E-03_JPRB,6.4187E-03_JPRB,4.6671E-02_JPRB/)  
+KAO( :, 3,13,10) = (/&
+ & 7.5295E-03_JPRB,7.4924E-03_JPRB,7.3494E-03_JPRB,7.5754E-03_JPRB,7.7630E-03_JPRB,7.7638E-03_JPRB,&
+ & 7.4975E-03_JPRB,6.8755E-03_JPRB,4.7440E-02_JPRB/)  
+KAO( :, 4,13,10) = (/&
+ & 7.6080E-03_JPRB,7.7470E-03_JPRB,7.6819E-03_JPRB,7.9565E-03_JPRB,8.1173E-03_JPRB,8.1428E-03_JPRB,&
+ & 7.9589E-03_JPRB,7.3493E-03_JPRB,4.8497E-02_JPRB/)  
+KAO( :, 5,13,10) = (/&
+ & 7.6817E-03_JPRB,8.0217E-03_JPRB,8.0425E-03_JPRB,8.3061E-03_JPRB,8.4701E-03_JPRB,8.5085E-03_JPRB,&
+ & 8.3860E-03_JPRB,7.8301E-03_JPRB,4.9971E-02_JPRB/)  
+KAO( :, 1, 1,11) = (/&
+ & 2.7764E-02_JPRB,2.4426E-02_JPRB,2.1973E-02_JPRB,2.0093E-02_JPRB,1.8666E-02_JPRB,1.7278E-02_JPRB,&
+ & 1.5087E-02_JPRB,1.3103E-02_JPRB,1.4300E-02_JPRB/)  
+KAO( :, 2, 1,11) = (/&
+ & 2.7963E-02_JPRB,2.4667E-02_JPRB,2.2450E-02_JPRB,2.0789E-02_JPRB,1.9549E-02_JPRB,1.8247E-02_JPRB,&
+ & 1.6059E-02_JPRB,1.4781E-02_JPRB,1.6422E-02_JPRB/)  
+KAO( :, 3, 1,11) = (/&
+ & 2.8032E-02_JPRB,2.4854E-02_JPRB,2.2829E-02_JPRB,2.1504E-02_JPRB,2.0423E-02_JPRB,1.9213E-02_JPRB,&
+ & 1.7147E-02_JPRB,1.6580E-02_JPRB,1.8603E-02_JPRB/)  
+KAO( :, 4, 1,11) = (/&
+ & 2.7908E-02_JPRB,2.4878E-02_JPRB,2.3088E-02_JPRB,2.2255E-02_JPRB,2.1236E-02_JPRB,2.0204E-02_JPRB,&
+ & 1.8256E-02_JPRB,1.8454E-02_JPRB,2.0859E-02_JPRB/)  
+KAO( :, 5, 1,11) = (/&
+ & 2.7693E-02_JPRB,2.4833E-02_JPRB,2.3283E-02_JPRB,2.2953E-02_JPRB,2.2107E-02_JPRB,2.1010E-02_JPRB,&
+ & 1.9343E-02_JPRB,2.0385E-02_JPRB,2.3144E-02_JPRB/)  
+KAO( :, 1, 2,11) = (/&
+ & 2.7646E-02_JPRB,2.4332E-02_JPRB,2.2092E-02_JPRB,2.0298E-02_JPRB,1.9042E-02_JPRB,1.7440E-02_JPRB,&
+ & 1.5349E-02_JPRB,1.2664E-02_JPRB,1.3386E-02_JPRB/)  
+KAO( :, 2, 2,11) = (/&
+ & 2.7909E-02_JPRB,2.4672E-02_JPRB,2.2646E-02_JPRB,2.1214E-02_JPRB,2.0006E-02_JPRB,1.8412E-02_JPRB,&
+ & 1.6391E-02_JPRB,1.4178E-02_JPRB,1.5546E-02_JPRB/)  
+KAO( :, 3, 2,11) = (/&
+ & 2.7965E-02_JPRB,2.4859E-02_JPRB,2.3085E-02_JPRB,2.2119E-02_JPRB,2.0910E-02_JPRB,1.9436E-02_JPRB,&
+ & 1.7350E-02_JPRB,1.5867E-02_JPRB,1.7743E-02_JPRB/)  
+KAO( :, 4, 2,11) = (/&
+ & 2.7851E-02_JPRB,2.4932E-02_JPRB,2.3473E-02_JPRB,2.2951E-02_JPRB,2.1773E-02_JPRB,2.0509E-02_JPRB,&
+ & 1.8306E-02_JPRB,1.7658E-02_JPRB,1.9938E-02_JPRB/)  
+KAO( :, 5, 2,11) = (/&
+ & 2.7716E-02_JPRB,2.4986E-02_JPRB,2.3872E-02_JPRB,2.3624E-02_JPRB,2.2685E-02_JPRB,2.1385E-02_JPRB,&
+ & 1.9339E-02_JPRB,1.9475E-02_JPRB,2.2096E-02_JPRB/)  
+KAO( :, 1, 3,11) = (/&
+ & 2.7136E-02_JPRB,2.3913E-02_JPRB,2.1898E-02_JPRB,2.0239E-02_JPRB,1.8943E-02_JPRB,1.7255E-02_JPRB,&
+ & 1.5286E-02_JPRB,1.1962E-02_JPRB,1.1731E-02_JPRB/)  
+KAO( :, 2, 3,11) = (/&
+ & 2.7384E-02_JPRB,2.4261E-02_JPRB,2.2497E-02_JPRB,2.1296E-02_JPRB,2.0064E-02_JPRB,1.8265E-02_JPRB,&
+ & 1.6402E-02_JPRB,1.3201E-02_JPRB,1.3756E-02_JPRB/)  
+KAO( :, 3, 3,11) = (/&
+ & 2.7424E-02_JPRB,2.4494E-02_JPRB,2.3027E-02_JPRB,2.2286E-02_JPRB,2.1084E-02_JPRB,1.9295E-02_JPRB,&
+ & 1.7402E-02_JPRB,1.4625E-02_JPRB,1.5844E-02_JPRB/)  
+KAO( :, 4, 3,11) = (/&
+ & 2.7396E-02_JPRB,2.4666E-02_JPRB,2.3610E-02_JPRB,2.3218E-02_JPRB,2.1991E-02_JPRB,2.0436E-02_JPRB,&
+ & 1.8232E-02_JPRB,1.6186E-02_JPRB,1.7976E-02_JPRB/)  
+KAO( :, 5, 3,11) = (/&
+ & 2.7396E-02_JPRB,2.4863E-02_JPRB,2.4263E-02_JPRB,2.4003E-02_JPRB,2.2894E-02_JPRB,2.1428E-02_JPRB,&
+ & 1.9099E-02_JPRB,1.7923E-02_JPRB,2.0191E-02_JPRB/)  
+KAO( :, 1, 4,11) = (/&
+ & 2.6120E-02_JPRB,2.3055E-02_JPRB,2.1334E-02_JPRB,1.9874E-02_JPRB,1.8554E-02_JPRB,1.6913E-02_JPRB,&
+ & 1.4849E-02_JPRB,1.1247E-02_JPRB,9.9817E-03_JPRB/)  
+KAO( :, 2, 4,11) = (/&
+ & 2.6346E-02_JPRB,2.3452E-02_JPRB,2.1987E-02_JPRB,2.1036E-02_JPRB,1.9768E-02_JPRB,1.8034E-02_JPRB,&
+ & 1.5969E-02_JPRB,1.2323E-02_JPRB,1.1891E-02_JPRB/)  
+KAO( :, 3, 4,11) = (/&
+ & 2.6444E-02_JPRB,2.3743E-02_JPRB,2.2663E-02_JPRB,2.2134E-02_JPRB,2.0858E-02_JPRB,1.9164E-02_JPRB,&
+ & 1.7004E-02_JPRB,1.3536E-02_JPRB,1.3883E-02_JPRB/)  
+KAO( :, 4, 4,11) = (/&
+ & 2.6615E-02_JPRB,2.4091E-02_JPRB,2.3417E-02_JPRB,2.3175E-02_JPRB,2.1815E-02_JPRB,2.0352E-02_JPRB,&
+ & 1.7938E-02_JPRB,1.4897E-02_JPRB,1.5955E-02_JPRB/)  
+KAO( :, 5, 4,11) = (/&
+ & 2.6757E-02_JPRB,2.4467E-02_JPRB,2.4289E-02_JPRB,2.4064E-02_JPRB,2.2838E-02_JPRB,2.1378E-02_JPRB,&
+ & 1.8780E-02_JPRB,1.6458E-02_JPRB,1.8170E-02_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART7',1,ZHOOK_HANDLE)
+END SUBROUTINE PART7
+
+
+SUBROUTINE PART8
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART8',0,ZHOOK_HANDLE)
+
+
+KAO( :, 1, 5,11) = (/&
+ & 2.4649E-02_JPRB,2.1845E-02_JPRB,2.0397E-02_JPRB,1.9200E-02_JPRB,1.7986E-02_JPRB,1.6354E-02_JPRB,&
+ & 1.4106E-02_JPRB,1.0659E-02_JPRB,8.5296E-03_JPRB/)  
+KAO( :, 2, 5,11) = (/&
+ & 2.4915E-02_JPRB,2.2302E-02_JPRB,2.1150E-02_JPRB,2.0451E-02_JPRB,1.9259E-02_JPRB,1.7581E-02_JPRB,&
+ & 1.5270E-02_JPRB,1.1646E-02_JPRB,1.0194E-02_JPRB/)  
+KAO( :, 3, 5,11) = (/&
+ & 2.5218E-02_JPRB,2.2788E-02_JPRB,2.1977E-02_JPRB,2.1628E-02_JPRB,2.0422E-02_JPRB,1.8826E-02_JPRB,&
+ & 1.6327E-02_JPRB,1.2719E-02_JPRB,1.2019E-02_JPRB/)  
+KAO( :, 4, 5,11) = (/&
+ & 2.5482E-02_JPRB,2.3305E-02_JPRB,2.2941E-02_JPRB,2.2718E-02_JPRB,2.1512E-02_JPRB,2.0034E-02_JPRB,&
+ & 1.7375E-02_JPRB,1.3885E-02_JPRB,1.4041E-02_JPRB/)  
+KAO( :, 5, 5,11) = (/&
+ & 2.5726E-02_JPRB,2.3793E-02_JPRB,2.3951E-02_JPRB,2.3636E-02_JPRB,2.2618E-02_JPRB,2.1077E-02_JPRB,&
+ & 1.8363E-02_JPRB,1.5350E-02_JPRB,1.6202E-02_JPRB/)  
+KAO( :, 1, 6,11) = (/&
+ & 2.2851E-02_JPRB,2.0373E-02_JPRB,1.9153E-02_JPRB,1.8191E-02_JPRB,1.7169E-02_JPRB,1.5447E-02_JPRB,&
+ & 1.3127E-02_JPRB,9.9268E-03_JPRB,7.8128E-03_JPRB/)  
+KAO( :, 2, 6,11) = (/&
+ & 2.3274E-02_JPRB,2.0974E-02_JPRB,2.0039E-02_JPRB,1.9515E-02_JPRB,1.8501E-02_JPRB,1.6740E-02_JPRB,&
+ & 1.4344E-02_JPRB,1.0951E-02_JPRB,8.8752E-03_JPRB/)  
+KAO( :, 3, 6,11) = (/&
+ & 2.3672E-02_JPRB,2.1617E-02_JPRB,2.1050E-02_JPRB,2.0731E-02_JPRB,1.9672E-02_JPRB,1.8067E-02_JPRB,&
+ & 1.5465E-02_JPRB,1.2013E-02_JPRB,1.0301E-02_JPRB/)  
+KAO( :, 4, 6,11) = (/&
+ & 2.4031E-02_JPRB,2.2215E-02_JPRB,2.2188E-02_JPRB,2.1796E-02_JPRB,2.0865E-02_JPRB,1.9256E-02_JPRB,&
+ & 1.6602E-02_JPRB,1.3087E-02_JPRB,1.2045E-02_JPRB/)  
+KAO( :, 5, 6,11) = (/&
+ & 2.4424E-02_JPRB,2.2835E-02_JPRB,2.3262E-02_JPRB,2.2762E-02_JPRB,2.2024E-02_JPRB,2.0317E-02_JPRB,&
+ & 1.7726E-02_JPRB,1.4330E-02_JPRB,1.3970E-02_JPRB/)  
+KAO( :, 1, 7,11) = (/&
+ & 2.0897E-02_JPRB,1.8755E-02_JPRB,1.7733E-02_JPRB,1.7022E-02_JPRB,1.6054E-02_JPRB,1.4311E-02_JPRB,&
+ & 1.2008E-02_JPRB,9.2731E-03_JPRB,7.7437E-03_JPRB/)  
+KAO( :, 2, 7,11) = (/&
+ & 2.1410E-02_JPRB,1.9491E-02_JPRB,1.8752E-02_JPRB,1.8362E-02_JPRB,1.7373E-02_JPRB,1.5636E-02_JPRB,&
+ & 1.3285E-02_JPRB,1.0177E-02_JPRB,8.5051E-03_JPRB/)  
+KAO( :, 3, 7,11) = (/&
+ & 2.1887E-02_JPRB,2.0202E-02_JPRB,1.9920E-02_JPRB,1.9593E-02_JPRB,1.8568E-02_JPRB,1.6958E-02_JPRB,&
+ & 1.4466E-02_JPRB,1.1212E-02_JPRB,9.3670E-03_JPRB/)  
+KAO( :, 4, 7,11) = (/&
+ & 2.2392E-02_JPRB,2.0930E-02_JPRB,2.1140E-02_JPRB,2.0643E-02_JPRB,1.9778E-02_JPRB,1.8147E-02_JPRB,&
+ & 1.5692E-02_JPRB,1.2278E-02_JPRB,1.0489E-02_JPRB/)  
+KAO( :, 5, 7,11) = (/&
+ & 2.2888E-02_JPRB,2.1742E-02_JPRB,2.2178E-02_JPRB,2.1714E-02_JPRB,2.0936E-02_JPRB,1.9278E-02_JPRB,&
+ & 1.6882E-02_JPRB,1.3452E-02_JPRB,1.1897E-02_JPRB/)  
+KAO( :, 1, 8,11) = (/&
+ & 1.8841E-02_JPRB,1.7056E-02_JPRB,1.6222E-02_JPRB,1.5693E-02_JPRB,1.4689E-02_JPRB,1.2994E-02_JPRB,&
+ & 1.0918E-02_JPRB,9.1547E-03_JPRB,7.9124E-03_JPRB/)  
+KAO( :, 2, 8,11) = (/&
+ & 1.9409E-02_JPRB,1.7855E-02_JPRB,1.7363E-02_JPRB,1.7024E-02_JPRB,1.5955E-02_JPRB,1.4305E-02_JPRB,&
+ & 1.2087E-02_JPRB,9.7905E-03_JPRB,8.4826E-03_JPRB/)  
+KAO( :, 3, 8,11) = (/&
+ & 1.9993E-02_JPRB,1.8663E-02_JPRB,1.8622E-02_JPRB,1.8244E-02_JPRB,1.7158E-02_JPRB,1.5610E-02_JPRB,&
+ & 1.3302E-02_JPRB,1.0551E-02_JPRB,9.2336E-03_JPRB/)  
+KAO( :, 4, 8,11) = (/&
+ & 2.0602E-02_JPRB,1.9539E-02_JPRB,1.9827E-02_JPRB,1.9347E-02_JPRB,1.8357E-02_JPRB,1.6779E-02_JPRB,&
+ & 1.4567E-02_JPRB,1.1467E-02_JPRB,9.9909E-03_JPRB/)  
+KAO( :, 5, 8,11) = (/&
+ & 2.1064E-02_JPRB,2.0402E-02_JPRB,2.0838E-02_JPRB,2.0466E-02_JPRB,1.9507E-02_JPRB,1.7959E-02_JPRB,&
+ & 1.5824E-02_JPRB,1.2520E-02_JPRB,1.0807E-02_JPRB/)  
+KAO( :, 1, 9,11) = (/&
+ & 1.6824E-02_JPRB,1.5334E-02_JPRB,1.4694E-02_JPRB,1.4181E-02_JPRB,1.3143E-02_JPRB,1.1680E-02_JPRB,&
+ & 1.0334E-02_JPRB,9.1831E-03_JPRB,1.1053E-02_JPRB/)  
+KAO( :, 2, 9,11) = (/&
+ & 1.7417E-02_JPRB,1.6144E-02_JPRB,1.5897E-02_JPRB,1.5487E-02_JPRB,1.4380E-02_JPRB,1.2867E-02_JPRB,&
+ & 1.1184E-02_JPRB,9.7551E-03_JPRB,1.1728E-02_JPRB/)  
+KAO( :, 3, 9,11) = (/&
+ & 1.8068E-02_JPRB,1.7042E-02_JPRB,1.7161E-02_JPRB,1.6678E-02_JPRB,1.5557E-02_JPRB,1.4093E-02_JPRB,&
+ & 1.2184E-02_JPRB,1.0404E-02_JPRB,1.2483E-02_JPRB/)  
+KAO( :, 4, 9,11) = (/&
+ & 1.8632E-02_JPRB,1.7983E-02_JPRB,1.8323E-02_JPRB,1.7788E-02_JPRB,1.6784E-02_JPRB,1.5260E-02_JPRB,&
+ & 1.3324E-02_JPRB,1.1123E-02_JPRB,1.3280E-02_JPRB/)  
+KAO( :, 5, 9,11) = (/&
+ & 1.9073E-02_JPRB,1.8843E-02_JPRB,1.9281E-02_JPRB,1.8905E-02_JPRB,1.7900E-02_JPRB,1.6447E-02_JPRB,&
+ & 1.4515E-02_JPRB,1.1877E-02_JPRB,1.4077E-02_JPRB/)  
+KAO( :, 1,10,11) = (/&
+ & 1.5121E-02_JPRB,1.3838E-02_JPRB,1.3365E-02_JPRB,1.2721E-02_JPRB,1.1737E-02_JPRB,1.0953E-02_JPRB,&
+ & 1.0213E-02_JPRB,9.1916E-03_JPRB,3.5198E-02_JPRB/)  
+KAO( :, 2,10,11) = (/&
+ & 1.5710E-02_JPRB,1.4640E-02_JPRB,1.4492E-02_JPRB,1.3911E-02_JPRB,1.2838E-02_JPRB,1.1818E-02_JPRB,&
+ & 1.0924E-02_JPRB,9.7376E-03_JPRB,3.6361E-02_JPRB/)  
+KAO( :, 3,10,11) = (/&
+ & 1.6286E-02_JPRB,1.5525E-02_JPRB,1.5683E-02_JPRB,1.5045E-02_JPRB,1.3992E-02_JPRB,1.2769E-02_JPRB,&
+ & 1.1723E-02_JPRB,1.0342E-02_JPRB,3.7359E-02_JPRB/)  
+KAO( :, 4,10,11) = (/&
+ & 1.6782E-02_JPRB,1.6440E-02_JPRB,1.6745E-02_JPRB,1.6156E-02_JPRB,1.5181E-02_JPRB,1.3811E-02_JPRB,&
+ & 1.2551E-02_JPRB,1.1044E-02_JPRB,3.8551E-02_JPRB/)  
+KAO( :, 5,10,11) = (/&
+ & 1.7221E-02_JPRB,1.7284E-02_JPRB,1.7650E-02_JPRB,1.7276E-02_JPRB,1.6297E-02_JPRB,1.4958E-02_JPRB,&
+ & 1.3449E-02_JPRB,1.1753E-02_JPRB,3.9714E-02_JPRB/)  
+KAO( :, 1,11,11) = (/&
+ & 1.4019E-02_JPRB,1.2957E-02_JPRB,1.2611E-02_JPRB,1.1869E-02_JPRB,1.1221E-02_JPRB,1.0951E-02_JPRB,&
+ & 1.0419E-02_JPRB,9.2574E-03_JPRB,5.9295E-02_JPRB/)  
+KAO( :, 2,11,11) = (/&
+ & 1.4514E-02_JPRB,1.3729E-02_JPRB,1.3655E-02_JPRB,1.2913E-02_JPRB,1.2091E-02_JPRB,1.1604E-02_JPRB,&
+ & 1.1118E-02_JPRB,9.8828E-03_JPRB,6.0862E-02_JPRB/)  
+KAO( :, 3,11,11) = (/&
+ & 1.4986E-02_JPRB,1.4596E-02_JPRB,1.4648E-02_JPRB,1.3931E-02_JPRB,1.3062E-02_JPRB,1.2353E-02_JPRB,&
+ & 1.1821E-02_JPRB,1.0518E-02_JPRB,6.2214E-02_JPRB/)  
+KAO( :, 4,11,11) = (/&
+ & 1.5398E-02_JPRB,1.5423E-02_JPRB,1.5511E-02_JPRB,1.4991E-02_JPRB,1.4093E-02_JPRB,1.3225E-02_JPRB,&
+ & 1.2498E-02_JPRB,1.1195E-02_JPRB,6.3269E-02_JPRB/)  
+KAO( :, 5,11,11) = (/&
+ & 1.5718E-02_JPRB,1.6102E-02_JPRB,1.6332E-02_JPRB,1.5968E-02_JPRB,1.5171E-02_JPRB,1.4160E-02_JPRB,&
+ & 1.3209E-02_JPRB,1.1891E-02_JPRB,6.4542E-02_JPRB/)  
+KAO( :, 1,12,11) = (/&
+ & 1.3164E-02_JPRB,1.2292E-02_JPRB,1.1927E-02_JPRB,1.1265E-02_JPRB,1.1057E-02_JPRB,1.0913E-02_JPRB,&
+ & 1.0445E-02_JPRB,9.2736E-03_JPRB,7.4756E-02_JPRB/)  
+KAO( :, 2,12,11) = (/&
+ & 1.3602E-02_JPRB,1.3075E-02_JPRB,1.2792E-02_JPRB,1.2052E-02_JPRB,1.1692E-02_JPRB,1.1536E-02_JPRB,&
+ & 1.1126E-02_JPRB,9.9170E-03_JPRB,7.6306E-02_JPRB/)  
+KAO( :, 3,12,11) = (/&
+ & 1.3977E-02_JPRB,1.3830E-02_JPRB,1.3590E-02_JPRB,1.2927E-02_JPRB,1.2424E-02_JPRB,1.2227E-02_JPRB,&
+ & 1.1745E-02_JPRB,1.0613E-02_JPRB,7.7655E-02_JPRB/)  
+KAO( :, 4,12,11) = (/&
+ & 1.4251E-02_JPRB,1.4432E-02_JPRB,1.4329E-02_JPRB,1.3821E-02_JPRB,1.3256E-02_JPRB,1.2933E-02_JPRB,&
+ & 1.2386E-02_JPRB,1.1303E-02_JPRB,7.8663E-02_JPRB/)  
+KAO( :, 5,12,11) = (/&
+ & 1.4497E-02_JPRB,1.4939E-02_JPRB,1.5040E-02_JPRB,1.4676E-02_JPRB,1.4122E-02_JPRB,1.3675E-02_JPRB,&
+ & 1.3045E-02_JPRB,1.1981E-02_JPRB,7.9879E-02_JPRB/)  
+KAO( :, 1,13,11) = (/&
+ & 1.2616E-02_JPRB,1.1893E-02_JPRB,1.1313E-02_JPRB,1.0907E-02_JPRB,1.0966E-02_JPRB,1.0790E-02_JPRB,&
+ & 1.0280E-02_JPRB,9.1949E-03_JPRB,7.3725E-02_JPRB/)  
+KAO( :, 2,13,11) = (/&
+ & 1.2957E-02_JPRB,1.2555E-02_JPRB,1.2016E-02_JPRB,1.1533E-02_JPRB,1.1499E-02_JPRB,1.1400E-02_JPRB,&
+ & 1.0924E-02_JPRB,9.8797E-03_JPRB,7.4996E-02_JPRB/)  
+KAO( :, 3,13,11) = (/&
+ & 1.3172E-02_JPRB,1.3071E-02_JPRB,1.2663E-02_JPRB,1.2207E-02_JPRB,1.2117E-02_JPRB,1.2009E-02_JPRB,&
+ & 1.1575E-02_JPRB,1.0610E-02_JPRB,7.6038E-02_JPRB/)  
+KAO( :, 4,13,11) = (/&
+ & 1.3348E-02_JPRB,1.3517E-02_JPRB,1.3285E-02_JPRB,1.2851E-02_JPRB,1.2762E-02_JPRB,1.2671E-02_JPRB,&
+ & 1.2190E-02_JPRB,1.1315E-02_JPRB,7.7063E-02_JPRB/)  
+KAO( :, 5,13,11) = (/&
+ & 1.3524E-02_JPRB,1.3946E-02_JPRB,1.3887E-02_JPRB,1.3540E-02_JPRB,1.3388E-02_JPRB,1.3305E-02_JPRB,&
+ & 1.2841E-02_JPRB,1.2009E-02_JPRB,7.8468E-02_JPRB/)  
+KAO( :, 1, 1,12) = (/&
+ & 3.9522E-02_JPRB,3.4695E-02_JPRB,3.0393E-02_JPRB,2.7444E-02_JPRB,2.4701E-02_JPRB,2.2430E-02_JPRB,&
+ & 1.9690E-02_JPRB,1.9007E-02_JPRB,2.1357E-02_JPRB/)  
+KAO( :, 2, 1,12) = (/&
+ & 3.9055E-02_JPRB,3.4293E-02_JPRB,3.0365E-02_JPRB,2.7692E-02_JPRB,2.5619E-02_JPRB,2.3505E-02_JPRB,&
+ & 2.1002E-02_JPRB,2.1723E-02_JPRB,2.4548E-02_JPRB/)  
+KAO( :, 3, 1,12) = (/&
+ & 3.8771E-02_JPRB,3.4045E-02_JPRB,3.0558E-02_JPRB,2.8122E-02_JPRB,2.6598E-02_JPRB,2.4455E-02_JPRB,&
+ & 2.2524E-02_JPRB,2.4725E-02_JPRB,2.7978E-02_JPRB/)  
+KAO( :, 4, 1,12) = (/&
+ & 3.8655E-02_JPRB,3.3972E-02_JPRB,3.0813E-02_JPRB,2.8575E-02_JPRB,2.7403E-02_JPRB,2.5405E-02_JPRB,&
+ & 2.4525E-02_JPRB,2.7903E-02_JPRB,3.1582E-02_JPRB/)  
+KAO( :, 5, 1,12) = (/&
+ & 3.8581E-02_JPRB,3.4020E-02_JPRB,3.1105E-02_JPRB,2.9186E-02_JPRB,2.7932E-02_JPRB,2.6686E-02_JPRB,&
+ & 2.7056E-02_JPRB,3.1213E-02_JPRB,3.5341E-02_JPRB/)  
+KAO( :, 1, 2,12) = (/&
+ & 4.0900E-02_JPRB,3.5882E-02_JPRB,3.1540E-02_JPRB,2.8648E-02_JPRB,2.5916E-02_JPRB,2.3479E-02_JPRB,&
+ & 1.9842E-02_JPRB,1.8172E-02_JPRB,2.0462E-02_JPRB/)  
+KAO( :, 2, 2,12) = (/&
+ & 4.0629E-02_JPRB,3.5647E-02_JPRB,3.1749E-02_JPRB,2.9079E-02_JPRB,2.7038E-02_JPRB,2.4448E-02_JPRB,&
+ & 2.0997E-02_JPRB,2.0801E-02_JPRB,2.3586E-02_JPRB/)  
+KAO( :, 3, 2,12) = (/&
+ & 4.0634E-02_JPRB,3.5666E-02_JPRB,3.2165E-02_JPRB,2.9630E-02_JPRB,2.8090E-02_JPRB,2.5205E-02_JPRB,&
+ & 2.2483E-02_JPRB,2.3756E-02_JPRB,2.6981E-02_JPRB/)  
+KAO( :, 4, 2,12) = (/&
+ & 4.0680E-02_JPRB,3.5804E-02_JPRB,3.2512E-02_JPRB,3.0271E-02_JPRB,2.8844E-02_JPRB,2.6048E-02_JPRB,&
+ & 2.4362E-02_JPRB,2.6965E-02_JPRB,3.0664E-02_JPRB/)  
+KAO( :, 5, 2,12) = (/&
+ & 4.0551E-02_JPRB,3.5850E-02_JPRB,3.2760E-02_JPRB,3.1085E-02_JPRB,2.9377E-02_JPRB,2.7302E-02_JPRB,&
+ & 2.6614E-02_JPRB,3.0323E-02_JPRB,3.4512E-02_JPRB/)  
+KAO( :, 1, 3,12) = (/&
+ & 4.2297E-02_JPRB,3.7083E-02_JPRB,3.2675E-02_JPRB,2.9696E-02_JPRB,2.6819E-02_JPRB,2.4251E-02_JPRB,&
+ & 1.9800E-02_JPRB,1.7013E-02_JPRB,1.8998E-02_JPRB/)  
+KAO( :, 2, 3,12) = (/&
+ & 4.2345E-02_JPRB,3.7129E-02_JPRB,3.3126E-02_JPRB,3.0221E-02_JPRB,2.7989E-02_JPRB,2.5268E-02_JPRB,&
+ & 2.0870E-02_JPRB,1.9534E-02_JPRB,2.2175E-02_JPRB/)  
+KAO( :, 3, 3,12) = (/&
+ & 4.2503E-02_JPRB,3.7329E-02_JPRB,3.3705E-02_JPRB,3.0884E-02_JPRB,2.9095E-02_JPRB,2.6012E-02_JPRB,&
+ & 2.2274E-02_JPRB,2.2409E-02_JPRB,2.5549E-02_JPRB/)  
+KAO( :, 4, 3,12) = (/&
+ & 4.2563E-02_JPRB,3.7513E-02_JPRB,3.4118E-02_JPRB,3.1719E-02_JPRB,2.9991E-02_JPRB,2.6648E-02_JPRB,&
+ & 2.4107E-02_JPRB,2.5501E-02_JPRB,2.9091E-02_JPRB/)  
+KAO( :, 5, 3,12) = (/&
+ & 4.2352E-02_JPRB,3.7494E-02_JPRB,3.4375E-02_JPRB,3.2625E-02_JPRB,3.0646E-02_JPRB,2.7653E-02_JPRB,&
+ & 2.6034E-02_JPRB,2.8674E-02_JPRB,3.2704E-02_JPRB/)  
+KAO( :, 1, 4,12) = (/&
+ & 4.3449E-02_JPRB,3.8071E-02_JPRB,3.3569E-02_JPRB,3.0433E-02_JPRB,2.7408E-02_JPRB,2.4611E-02_JPRB,&
+ & 2.0108E-02_JPRB,1.5832E-02_JPRB,1.6869E-02_JPRB/)  
+KAO( :, 2, 4,12) = (/&
+ & 4.3754E-02_JPRB,3.8357E-02_JPRB,3.4350E-02_JPRB,3.1115E-02_JPRB,2.8679E-02_JPRB,2.5625E-02_JPRB,&
+ & 2.1066E-02_JPRB,1.8077E-02_JPRB,2.0082E-02_JPRB/)  
+KAO( :, 3, 4,12) = (/&
+ & 4.3973E-02_JPRB,3.8656E-02_JPRB,3.5023E-02_JPRB,3.2006E-02_JPRB,2.9792E-02_JPRB,2.6458E-02_JPRB,&
+ & 2.2328E-02_JPRB,2.0812E-02_JPRB,2.3540E-02_JPRB/)  
+KAO( :, 4, 4,12) = (/&
+ & 4.3938E-02_JPRB,3.8773E-02_JPRB,3.5454E-02_JPRB,3.2980E-02_JPRB,3.0747E-02_JPRB,2.7193E-02_JPRB,&
+ & 2.3978E-02_JPRB,2.3783E-02_JPRB,2.7070E-02_JPRB/)  
+KAO( :, 5, 4,12) = (/&
+ & 4.3814E-02_JPRB,3.8836E-02_JPRB,3.5796E-02_JPRB,3.3909E-02_JPRB,3.1572E-02_JPRB,2.8214E-02_JPRB,&
+ & 2.5779E-02_JPRB,2.6823E-02_JPRB,3.0560E-02_JPRB/)  
+KAO( :, 1, 5,12) = (/&
+ & 4.3987E-02_JPRB,3.8530E-02_JPRB,3.4139E-02_JPRB,3.0809E-02_JPRB,2.7641E-02_JPRB,2.4664E-02_JPRB,&
+ & 2.0281E-02_JPRB,1.4828E-02_JPRB,1.4596E-02_JPRB/)  
+KAO( :, 2, 5,12) = (/&
+ & 4.4423E-02_JPRB,3.8965E-02_JPRB,3.5098E-02_JPRB,3.1717E-02_JPRB,2.9032E-02_JPRB,2.5717E-02_JPRB,&
+ & 2.1306E-02_JPRB,1.6792E-02_JPRB,1.7692E-02_JPRB/)  
+KAO( :, 3, 5,12) = (/&
+ & 4.4740E-02_JPRB,3.9368E-02_JPRB,3.5854E-02_JPRB,3.2800E-02_JPRB,3.0202E-02_JPRB,2.6633E-02_JPRB,&
+ & 2.2521E-02_JPRB,1.9130E-02_JPRB,2.0967E-02_JPRB/)  
+KAO( :, 4, 5,12) = (/&
+ & 4.4784E-02_JPRB,3.9578E-02_JPRB,3.6349E-02_JPRB,3.3852E-02_JPRB,3.1212E-02_JPRB,2.7594E-02_JPRB,&
+ & 2.3985E-02_JPRB,2.1768E-02_JPRB,2.4335E-02_JPRB/)  
+KAO( :, 5, 5,12) = (/&
+ & 4.4634E-02_JPRB,3.9684E-02_JPRB,3.6716E-02_JPRB,3.4783E-02_JPRB,3.2166E-02_JPRB,2.8840E-02_JPRB,&
+ & 2.5566E-02_JPRB,2.4589E-02_JPRB,2.7780E-02_JPRB/)  
+KAO( :, 1, 6,12) = (/&
+ & 4.3652E-02_JPRB,3.8230E-02_JPRB,3.4067E-02_JPRB,3.0633E-02_JPRB,2.7394E-02_JPRB,2.4357E-02_JPRB,&
+ & 2.0018E-02_JPRB,1.4129E-02_JPRB,1.2309E-02_JPRB/)  
+KAO( :, 2, 6,12) = (/&
+ & 4.4319E-02_JPRB,3.8893E-02_JPRB,3.5172E-02_JPRB,3.1745E-02_JPRB,2.8902E-02_JPRB,2.5570E-02_JPRB,&
+ & 2.1093E-02_JPRB,1.5716E-02_JPRB,1.5104E-02_JPRB/)  
+KAO( :, 3, 6,12) = (/&
+ & 4.4786E-02_JPRB,3.9451E-02_JPRB,3.6064E-02_JPRB,3.2991E-02_JPRB,3.0223E-02_JPRB,2.6609E-02_JPRB,&
+ & 2.2435E-02_JPRB,1.7637E-02_JPRB,1.8165E-02_JPRB/)  
+KAO( :, 4, 6,12) = (/&
+ & 4.4788E-02_JPRB,3.9699E-02_JPRB,3.6561E-02_JPRB,3.4163E-02_JPRB,3.1314E-02_JPRB,2.7788E-02_JPRB,&
+ & 2.3906E-02_JPRB,1.9877E-02_JPRB,2.1395E-02_JPRB/)  
+KAO( :, 5, 6,12) = (/&
+ & 4.4447E-02_JPRB,3.9668E-02_JPRB,3.6988E-02_JPRB,3.5173E-02_JPRB,3.2361E-02_JPRB,2.9209E-02_JPRB,&
+ & 2.5326E-02_JPRB,2.2392E-02_JPRB,2.4740E-02_JPRB/)  
+KAO( :, 1, 7,12) = (/&
+ & 4.2520E-02_JPRB,3.7241E-02_JPRB,3.3313E-02_JPRB,2.9817E-02_JPRB,2.6724E-02_JPRB,2.3713E-02_JPRB,&
+ & 1.9392E-02_JPRB,1.3514E-02_JPRB,1.0779E-02_JPRB/)  
+KAO( :, 2, 7,12) = (/&
+ & 4.3342E-02_JPRB,3.8062E-02_JPRB,3.4549E-02_JPRB,3.1204E-02_JPRB,2.8393E-02_JPRB,2.5083E-02_JPRB,&
+ & 2.0539E-02_JPRB,1.4970E-02_JPRB,1.2835E-02_JPRB/)  
+KAO( :, 3, 7,12) = (/&
+ & 4.3790E-02_JPRB,3.8673E-02_JPRB,3.5497E-02_JPRB,3.2592E-02_JPRB,2.9885E-02_JPRB,2.6278E-02_JPRB,&
+ & 2.1950E-02_JPRB,1.6561E-02_JPRB,1.5528E-02_JPRB/)  
+KAO( :, 4, 7,12) = (/&
+ & 4.3699E-02_JPRB,3.8889E-02_JPRB,3.6038E-02_JPRB,3.3992E-02_JPRB,3.1096E-02_JPRB,2.7610E-02_JPRB,&
+ & 2.3462E-02_JPRB,1.8494E-02_JPRB,1.8561E-02_JPRB/)  
+KAO( :, 5, 7,12) = (/&
+ & 4.3391E-02_JPRB,3.8899E-02_JPRB,3.6695E-02_JPRB,3.5094E-02_JPRB,3.2242E-02_JPRB,2.9127E-02_JPRB,&
+ & 2.4986E-02_JPRB,2.0683E-02_JPRB,2.1759E-02_JPRB/)  
+KAO( :, 1, 8,12) = (/&
+ & 4.0705E-02_JPRB,3.5661E-02_JPRB,3.2044E-02_JPRB,2.8588E-02_JPRB,2.5730E-02_JPRB,2.2651E-02_JPRB,&
+ & 1.8403E-02_JPRB,1.2786E-02_JPRB,1.0617E-02_JPRB/)  
+KAO( :, 2, 8,12) = (/&
+ & 4.1513E-02_JPRB,3.6523E-02_JPRB,3.3287E-02_JPRB,3.0168E-02_JPRB,2.7518E-02_JPRB,2.4185E-02_JPRB,&
+ & 1.9645E-02_JPRB,1.4186E-02_JPRB,1.1770E-02_JPRB/)  
+KAO( :, 3, 8,12) = (/&
+ & 4.1918E-02_JPRB,3.7171E-02_JPRB,3.4241E-02_JPRB,3.1699E-02_JPRB,2.9124E-02_JPRB,2.5489E-02_JPRB,&
+ & 2.1120E-02_JPRB,1.5769E-02_JPRB,1.3550E-02_JPRB/)  
+KAO( :, 4, 8,12) = (/&
+ & 4.1853E-02_JPRB,3.7439E-02_JPRB,3.4958E-02_JPRB,3.3201E-02_JPRB,3.0465E-02_JPRB,2.6939E-02_JPRB,&
+ & 2.2712E-02_JPRB,1.7517E-02_JPRB,1.5986E-02_JPRB/)  
+KAO( :, 5, 8,12) = (/&
+ & 4.1733E-02_JPRB,3.7668E-02_JPRB,3.5839E-02_JPRB,3.4355E-02_JPRB,3.1760E-02_JPRB,2.8542E-02_JPRB,&
+ & 2.4348E-02_JPRB,1.9402E-02_JPRB,1.8887E-02_JPRB/)  
+KAO( :, 1, 9,12) = (/&
+ & 3.8179E-02_JPRB,3.3470E-02_JPRB,3.0206E-02_JPRB,2.7054E-02_JPRB,2.4424E-02_JPRB,2.1213E-02_JPRB,&
+ & 1.7112E-02_JPRB,1.2467E-02_JPRB,1.5003E-02_JPRB/)  
+KAO( :, 2, 9,12) = (/&
+ & 3.9010E-02_JPRB,3.4434E-02_JPRB,3.1441E-02_JPRB,2.8741E-02_JPRB,2.6231E-02_JPRB,2.2823E-02_JPRB,&
+ & 1.8428E-02_JPRB,1.3530E-02_JPRB,1.6372E-02_JPRB/)  
+KAO( :, 3, 9,12) = (/&
+ & 3.9453E-02_JPRB,3.5166E-02_JPRB,3.2518E-02_JPRB,3.0394E-02_JPRB,2.7907E-02_JPRB,2.4225E-02_JPRB,&
+ & 1.9954E-02_JPRB,1.4900E-02_JPRB,1.8039E-02_JPRB/)  
+KAO( :, 4, 9,12) = (/&
+ & 3.9552E-02_JPRB,3.5595E-02_JPRB,3.3460E-02_JPRB,3.1929E-02_JPRB,2.9264E-02_JPRB,2.5769E-02_JPRB,&
+ & 2.1600E-02_JPRB,1.6537E-02_JPRB,1.9903E-02_JPRB/)  
+KAO( :, 5, 9,12) = (/&
+ & 3.9456E-02_JPRB,3.5940E-02_JPRB,3.4560E-02_JPRB,3.3060E-02_JPRB,3.0675E-02_JPRB,2.7481E-02_JPRB,&
+ & 2.3382E-02_JPRB,1.8398E-02_JPRB,2.1739E-02_JPRB/)  
+KAO( :, 1,10,12) = (/&
+ & 3.5238E-02_JPRB,3.0971E-02_JPRB,2.8042E-02_JPRB,2.5331E-02_JPRB,2.2876E-02_JPRB,1.9632E-02_JPRB,&
+ & 1.5965E-02_JPRB,1.2700E-02_JPRB,4.7338E-02_JPRB/)  
+KAO( :, 2,10,12) = (/&
+ & 3.6134E-02_JPRB,3.2062E-02_JPRB,2.9356E-02_JPRB,2.7135E-02_JPRB,2.4639E-02_JPRB,2.1263E-02_JPRB,&
+ & 1.7126E-02_JPRB,1.3564E-02_JPRB,4.9352E-02_JPRB/)  
+KAO( :, 3,10,12) = (/&
+ & 3.6647E-02_JPRB,3.2881E-02_JPRB,3.0571E-02_JPRB,2.8822E-02_JPRB,2.6275E-02_JPRB,2.2691E-02_JPRB,&
+ & 1.8634E-02_JPRB,1.4609E-02_JPRB,5.1163E-02_JPRB/)  
+KAO( :, 4,10,12) = (/&
+ & 3.6732E-02_JPRB,3.3352E-02_JPRB,3.1697E-02_JPRB,3.0299E-02_JPRB,2.7653E-02_JPRB,2.4298E-02_JPRB,&
+ & 2.0355E-02_JPRB,1.5925E-02_JPRB,5.2665E-02_JPRB/)  
+KAO( :, 5,10,12) = (/&
+ & 3.6735E-02_JPRB,3.3801E-02_JPRB,3.2857E-02_JPRB,3.1401E-02_JPRB,2.9116E-02_JPRB,2.6070E-02_JPRB,&
+ & 2.2245E-02_JPRB,1.7479E-02_JPRB,5.4548E-02_JPRB/)  
+KAO( :, 1,11,12) = (/&
+ & 3.2545E-02_JPRB,2.8854E-02_JPRB,2.6358E-02_JPRB,2.4300E-02_JPRB,2.1804E-02_JPRB,1.8684E-02_JPRB,&
+ & 1.5775E-02_JPRB,1.3392E-02_JPRB,8.3440E-02_JPRB/)  
+KAO( :, 2,11,12) = (/&
+ & 3.3300E-02_JPRB,2.9905E-02_JPRB,2.7758E-02_JPRB,2.6019E-02_JPRB,2.3465E-02_JPRB,2.0097E-02_JPRB,&
+ & 1.6793E-02_JPRB,1.4249E-02_JPRB,8.5867E-02_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART8',1,ZHOOK_HANDLE)
+END SUBROUTINE PART8
+
+
+SUBROUTINE PART9
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART9',0,ZHOOK_HANDLE)
+
+
+KAO( :, 3,11,12) = (/&
+ & 3.3558E-02_JPRB,3.0525E-02_JPRB,2.8985E-02_JPRB,2.7554E-02_JPRB,2.4920E-02_JPRB,2.1636E-02_JPRB,&
+ & 1.8144E-02_JPRB,1.5281E-02_JPRB,8.8098E-02_JPRB/)  
+KAO( :, 4,11,12) = (/&
+ & 3.3710E-02_JPRB,3.1080E-02_JPRB,3.0218E-02_JPRB,2.8753E-02_JPRB,2.6347E-02_JPRB,2.3365E-02_JPRB,&
+ & 1.9836E-02_JPRB,1.6406E-02_JPRB,9.0071E-02_JPRB/)  
+KAO( :, 5,11,12) = (/&
+ & 3.3928E-02_JPRB,3.1726E-02_JPRB,3.1326E-02_JPRB,2.9966E-02_JPRB,2.7916E-02_JPRB,2.5204E-02_JPRB,&
+ & 2.1753E-02_JPRB,1.7712E-02_JPRB,9.1519E-02_JPRB/)  
+KAO( :, 1,12,12) = (/&
+ & 2.9830E-02_JPRB,2.6721E-02_JPRB,2.4676E-02_JPRB,2.2938E-02_JPRB,2.0448E-02_JPRB,1.7882E-02_JPRB,&
+ & 1.5923E-02_JPRB,1.3970E-02_JPRB,1.1086E-01_JPRB/)  
+KAO( :, 2,12,12) = (/&
+ & 3.0231E-02_JPRB,2.7476E-02_JPRB,2.6007E-02_JPRB,2.4462E-02_JPRB,2.1935E-02_JPRB,1.9103E-02_JPRB,&
+ & 1.6840E-02_JPRB,1.4875E-02_JPRB,1.1330E-01_JPRB/)  
+KAO( :, 3,12,12) = (/&
+ & 3.0491E-02_JPRB,2.8099E-02_JPRB,2.7260E-02_JPRB,2.5711E-02_JPRB,2.3307E-02_JPRB,2.0562E-02_JPRB,&
+ & 1.8077E-02_JPRB,1.5918E-02_JPRB,1.1557E-01_JPRB/)  
+KAO( :, 4,12,12) = (/&
+ & 3.0757E-02_JPRB,2.8842E-02_JPRB,2.8411E-02_JPRB,2.6924E-02_JPRB,2.4803E-02_JPRB,2.2253E-02_JPRB,&
+ & 1.9581E-02_JPRB,1.7012E-02_JPRB,1.1765E-01_JPRB/)  
+KAO( :, 5,12,12) = (/&
+ & 3.0918E-02_JPRB,2.9599E-02_JPRB,2.9489E-02_JPRB,2.8288E-02_JPRB,2.6494E-02_JPRB,2.4129E-02_JPRB,&
+ & 2.1275E-02_JPRB,1.8143E-02_JPRB,1.1909E-01_JPRB/)  
+KAO( :, 1,13,12) = (/&
+ & 2.7094E-02_JPRB,2.4532E-02_JPRB,2.3049E-02_JPRB,2.1309E-02_JPRB,1.9154E-02_JPRB,1.7486E-02_JPRB,&
+ & 1.6144E-02_JPRB,1.4353E-02_JPRB,1.1524E-01_JPRB/)  
+KAO( :, 2,13,12) = (/&
+ & 2.7412E-02_JPRB,2.5168E-02_JPRB,2.4223E-02_JPRB,2.2514E-02_JPRB,2.0316E-02_JPRB,1.8507E-02_JPRB,&
+ & 1.7150E-02_JPRB,1.5366E-02_JPRB,1.1754E-01_JPRB/)  
+KAO( :, 3,13,12) = (/&
+ & 2.7677E-02_JPRB,2.5904E-02_JPRB,2.5334E-02_JPRB,2.3685E-02_JPRB,2.1617E-02_JPRB,1.9773E-02_JPRB,&
+ & 1.8343E-02_JPRB,1.6413E-02_JPRB,1.1954E-01_JPRB/)  
+KAO( :, 4,13,12) = (/&
+ & 2.7872E-02_JPRB,2.6672E-02_JPRB,2.6384E-02_JPRB,2.5015E-02_JPRB,2.3188E-02_JPRB,2.1278E-02_JPRB,&
+ & 1.9644E-02_JPRB,1.7533E-02_JPRB,1.2118E-01_JPRB/)  
+KAO( :, 5,13,12) = (/&
+ & 2.7954E-02_JPRB,2.7488E-02_JPRB,2.7495E-02_JPRB,2.6532E-02_JPRB,2.4977E-02_JPRB,2.3012E-02_JPRB,&
+ & 2.1088E-02_JPRB,1.8595E-02_JPRB,1.2230E-01_JPRB/)  
+KAO( :, 1, 1,13) = (/&
+ & 5.6053E-02_JPRB,4.9173E-02_JPRB,4.2351E-02_JPRB,3.6619E-02_JPRB,3.1919E-02_JPRB,2.7549E-02_JPRB,&
+ & 2.5709E-02_JPRB,2.8817E-02_JPRB,3.2228E-02_JPRB/)  
+KAO( :, 2, 1,13) = (/&
+ & 5.5104E-02_JPRB,4.8363E-02_JPRB,4.1989E-02_JPRB,3.6731E-02_JPRB,3.2283E-02_JPRB,2.9042E-02_JPRB,&
+ & 2.9013E-02_JPRB,3.3235E-02_JPRB,3.7260E-02_JPRB/)  
+KAO( :, 3, 1,13) = (/&
+ & 5.3995E-02_JPRB,4.7411E-02_JPRB,4.1385E-02_JPRB,3.6532E-02_JPRB,3.2764E-02_JPRB,3.0737E-02_JPRB,&
+ & 3.2896E-02_JPRB,3.7808E-02_JPRB,4.2479E-02_JPRB/)  
+KAO( :, 4, 1,13) = (/&
+ & 5.2736E-02_JPRB,4.6336E-02_JPRB,4.0785E-02_JPRB,3.6489E-02_JPRB,3.3723E-02_JPRB,3.2658E-02_JPRB,&
+ & 3.6921E-02_JPRB,4.2523E-02_JPRB,4.7856E-02_JPRB/)  
+KAO( :, 5, 1,13) = (/&
+ & 5.1501E-02_JPRB,4.5267E-02_JPRB,4.0254E-02_JPRB,3.6460E-02_JPRB,3.5114E-02_JPRB,3.5037E-02_JPRB,&
+ & 4.0972E-02_JPRB,4.7260E-02_JPRB,5.3261E-02_JPRB/)  
+KAO( :, 1, 2,13) = (/&
+ & 6.0681E-02_JPRB,5.3202E-02_JPRB,4.5845E-02_JPRB,3.9636E-02_JPRB,3.4042E-02_JPRB,2.9064E-02_JPRB,&
+ & 2.6532E-02_JPRB,2.9036E-02_JPRB,3.2832E-02_JPRB/)  
+KAO( :, 2, 2,13) = (/&
+ & 5.9591E-02_JPRB,5.2263E-02_JPRB,4.5381E-02_JPRB,3.9598E-02_JPRB,3.4216E-02_JPRB,3.0746E-02_JPRB,&
+ & 2.9570E-02_JPRB,3.3591E-02_JPRB,3.8065E-02_JPRB/)  
+KAO( :, 3, 2,13) = (/&
+ & 5.8268E-02_JPRB,5.1123E-02_JPRB,4.4655E-02_JPRB,3.9364E-02_JPRB,3.4820E-02_JPRB,3.2584E-02_JPRB,&
+ & 3.3306E-02_JPRB,3.8344E-02_JPRB,4.3514E-02_JPRB/)  
+KAO( :, 4, 2,13) = (/&
+ & 5.6859E-02_JPRB,4.9908E-02_JPRB,4.4073E-02_JPRB,3.9320E-02_JPRB,3.5951E-02_JPRB,3.4443E-02_JPRB,&
+ & 3.7381E-02_JPRB,4.3145E-02_JPRB,4.9018E-02_JPRB/)  
+KAO( :, 5, 2,13) = (/&
+ & 5.5606E-02_JPRB,4.8809E-02_JPRB,4.3641E-02_JPRB,3.9295E-02_JPRB,3.7457E-02_JPRB,3.6510E-02_JPRB,&
+ & 4.1577E-02_JPRB,4.8053E-02_JPRB,5.4636E-02_JPRB/)  
+KAO( :, 1, 3,13) = (/&
+ & 6.5281E-02_JPRB,5.7202E-02_JPRB,4.9259E-02_JPRB,4.2481E-02_JPRB,3.6242E-02_JPRB,3.0257E-02_JPRB,&
+ & 2.6947E-02_JPRB,2.7850E-02_JPRB,3.1754E-02_JPRB/)  
+KAO( :, 2, 3,13) = (/&
+ & 6.4026E-02_JPRB,5.6115E-02_JPRB,4.8709E-02_JPRB,4.2529E-02_JPRB,3.6413E-02_JPRB,3.1975E-02_JPRB,&
+ & 2.9537E-02_JPRB,3.2421E-02_JPRB,3.6975E-02_JPRB/)  
+KAO( :, 3, 3,13) = (/&
+ & 6.2582E-02_JPRB,5.4864E-02_JPRB,4.7944E-02_JPRB,4.2387E-02_JPRB,3.6942E-02_JPRB,3.3882E-02_JPRB,&
+ & 3.2746E-02_JPRB,3.7152E-02_JPRB,4.2391E-02_JPRB/)  
+KAO( :, 4, 3,13) = (/&
+ & 6.1252E-02_JPRB,5.3699E-02_JPRB,4.7471E-02_JPRB,4.2276E-02_JPRB,3.8007E-02_JPRB,3.5845E-02_JPRB,&
+ & 3.6492E-02_JPRB,4.2063E-02_JPRB,4.8049E-02_JPRB/)  
+KAO( :, 5, 3,13) = (/&
+ & 6.0092E-02_JPRB,5.2697E-02_JPRB,4.7050E-02_JPRB,4.2178E-02_JPRB,3.9419E-02_JPRB,3.7791E-02_JPRB,&
+ & 4.0791E-02_JPRB,4.7197E-02_JPRB,5.3978E-02_JPRB/)  
+KAO( :, 1, 4,13) = (/&
+ & 6.9156E-02_JPRB,6.0580E-02_JPRB,5.2151E-02_JPRB,4.4993E-02_JPRB,3.8321E-02_JPRB,3.1681E-02_JPRB,&
+ & 2.7066E-02_JPRB,2.6200E-02_JPRB,2.9938E-02_JPRB/)  
+KAO( :, 2, 4,13) = (/&
+ & 6.7721E-02_JPRB,5.9333E-02_JPRB,5.1460E-02_JPRB,4.5174E-02_JPRB,3.8672E-02_JPRB,3.3341E-02_JPRB,&
+ & 2.9463E-02_JPRB,3.0601E-02_JPRB,3.4960E-02_JPRB/)  
+KAO( :, 3, 4,13) = (/&
+ & 6.6317E-02_JPRB,5.8105E-02_JPRB,5.0834E-02_JPRB,4.5138E-02_JPRB,3.9401E-02_JPRB,3.5131E-02_JPRB,&
+ & 3.2153E-02_JPRB,3.5157E-02_JPRB,4.0204E-02_JPRB/)  
+KAO( :, 4, 4,13) = (/&
+ & 6.5137E-02_JPRB,5.7074E-02_JPRB,5.0526E-02_JPRB,4.5041E-02_JPRB,4.0452E-02_JPRB,3.6956E-02_JPRB,&
+ & 3.5433E-02_JPRB,4.0097E-02_JPRB,4.5914E-02_JPRB/)  
+KAO( :, 5, 4,13) = (/&
+ & 6.4115E-02_JPRB,5.6230E-02_JPRB,5.0276E-02_JPRB,4.5144E-02_JPRB,4.1609E-02_JPRB,3.8932E-02_JPRB,&
+ & 3.9448E-02_JPRB,4.5417E-02_JPRB,5.2017E-02_JPRB/)  
+KAO( :, 1, 5,13) = (/&
+ & 7.2400E-02_JPRB,6.3404E-02_JPRB,5.4540E-02_JPRB,4.7112E-02_JPRB,4.0185E-02_JPRB,3.3245E-02_JPRB,&
+ & 2.7454E-02_JPRB,2.4538E-02_JPRB,2.7637E-02_JPRB/)  
+KAO( :, 2, 5,13) = (/&
+ & 7.1034E-02_JPRB,6.2212E-02_JPRB,5.3950E-02_JPRB,4.7421E-02_JPRB,4.0716E-02_JPRB,3.5033E-02_JPRB,&
+ & 2.9541E-02_JPRB,2.8475E-02_JPRB,3.2456E-02_JPRB/)  
+KAO( :, 3, 5,13) = (/&
+ & 6.9683E-02_JPRB,6.1033E-02_JPRB,5.3449E-02_JPRB,4.7487E-02_JPRB,4.1776E-02_JPRB,3.6647E-02_JPRB,&
+ & 3.1941E-02_JPRB,3.2964E-02_JPRB,3.7708E-02_JPRB/)  
+KAO( :, 4, 5,13) = (/&
+ & 6.8593E-02_JPRB,6.0082E-02_JPRB,5.3255E-02_JPRB,4.7581E-02_JPRB,4.2936E-02_JPRB,3.8247E-02_JPRB,&
+ & 3.4793E-02_JPRB,3.7940E-02_JPRB,4.3452E-02_JPRB/)  
+KAO( :, 5, 5,13) = (/&
+ & 6.7660E-02_JPRB,5.9367E-02_JPRB,5.3230E-02_JPRB,4.8095E-02_JPRB,4.3998E-02_JPRB,4.0012E-02_JPRB,&
+ & 3.8369E-02_JPRB,4.3216E-02_JPRB,4.9502E-02_JPRB/)  
+KAO( :, 1, 6,13) = (/&
+ & 7.5282E-02_JPRB,6.5913E-02_JPRB,5.6672E-02_JPRB,4.9038E-02_JPRB,4.1667E-02_JPRB,3.4580E-02_JPRB,&
+ & 2.8084E-02_JPRB,2.2885E-02_JPRB,2.4729E-02_JPRB/)  
+KAO( :, 2, 6,13) = (/&
+ & 7.3954E-02_JPRB,6.4757E-02_JPRB,5.6182E-02_JPRB,4.9451E-02_JPRB,4.2376E-02_JPRB,3.6480E-02_JPRB,&
+ & 3.0034E-02_JPRB,2.6432E-02_JPRB,2.9602E-02_JPRB/)  
+KAO( :, 3, 6,13) = (/&
+ & 7.2618E-02_JPRB,6.3591E-02_JPRB,5.5752E-02_JPRB,4.9591E-02_JPRB,4.3630E-02_JPRB,3.8182E-02_JPRB,&
+ & 3.2101E-02_JPRB,3.0615E-02_JPRB,3.4863E-02_JPRB/)  
+KAO( :, 4, 6,13) = (/&
+ & 7.1650E-02_JPRB,6.2766E-02_JPRB,5.5838E-02_JPRB,4.9867E-02_JPRB,4.5071E-02_JPRB,3.9626E-02_JPRB,&
+ & 3.4633E-02_JPRB,3.5415E-02_JPRB,4.0513E-02_JPRB/)  
+KAO( :, 5, 6,13) = (/&
+ & 7.0928E-02_JPRB,6.2275E-02_JPRB,5.5944E-02_JPRB,5.0656E-02_JPRB,4.6360E-02_JPRB,4.1240E-02_JPRB,&
+ & 3.7820E-02_JPRB,4.0601E-02_JPRB,4.6473E-02_JPRB/)  
+KAO( :, 1, 7,13) = (/&
+ & 7.7231E-02_JPRB,6.7608E-02_JPRB,5.8137E-02_JPRB,5.0496E-02_JPRB,4.2780E-02_JPRB,3.5440E-02_JPRB,&
+ & 2.8711E-02_JPRB,2.1532E-02_JPRB,2.1358E-02_JPRB/)  
+KAO( :, 2, 7,13) = (/&
+ & 7.6126E-02_JPRB,6.6645E-02_JPRB,5.7867E-02_JPRB,5.0956E-02_JPRB,4.3638E-02_JPRB,3.7441E-02_JPRB,&
+ & 3.0756E-02_JPRB,2.4515E-02_JPRB,2.6150E-02_JPRB/)  
+KAO( :, 3, 7,13) = (/&
+ & 7.4977E-02_JPRB,6.5643E-02_JPRB,5.7692E-02_JPRB,5.1264E-02_JPRB,4.5058E-02_JPRB,3.9385E-02_JPRB,&
+ & 3.2638E-02_JPRB,2.8375E-02_JPRB,3.1403E-02_JPRB/)  
+KAO( :, 4, 7,13) = (/&
+ & 7.4190E-02_JPRB,6.5005E-02_JPRB,5.7989E-02_JPRB,5.1738E-02_JPRB,4.6795E-02_JPRB,4.1075E-02_JPRB,&
+ & 3.4915E-02_JPRB,3.2892E-02_JPRB,3.7110E-02_JPRB/)  
+KAO( :, 5, 7,13) = (/&
+ & 7.3624E-02_JPRB,6.4678E-02_JPRB,5.8242E-02_JPRB,5.2839E-02_JPRB,4.8405E-02_JPRB,4.2696E-02_JPRB,&
+ & 3.7814E-02_JPRB,3.7869E-02_JPRB,4.3186E-02_JPRB/)  
+KAO( :, 1, 8,13) = (/&
+ & 7.8000E-02_JPRB,6.8274E-02_JPRB,5.8718E-02_JPRB,5.1101E-02_JPRB,4.3121E-02_JPRB,3.5929E-02_JPRB,&
+ & 2.8945E-02_JPRB,2.0591E-02_JPRB,1.8045E-02_JPRB/)  
+KAO( :, 2, 8,13) = (/&
+ & 7.7193E-02_JPRB,6.7571E-02_JPRB,5.8739E-02_JPRB,5.1625E-02_JPRB,4.4291E-02_JPRB,3.8058E-02_JPRB,&
+ & 3.1224E-02_JPRB,2.3099E-02_JPRB,2.2474E-02_JPRB/)  
+KAO( :, 3, 8,13) = (/&
+ & 7.6273E-02_JPRB,6.6769E-02_JPRB,5.8915E-02_JPRB,5.2274E-02_JPRB,4.5989E-02_JPRB,4.0273E-02_JPRB,&
+ & 3.3241E-02_JPRB,2.6350E-02_JPRB,2.7546E-02_JPRB/)  
+KAO( :, 4, 8,13) = (/&
+ & 7.5688E-02_JPRB,6.6346E-02_JPRB,5.9396E-02_JPRB,5.3087E-02_JPRB,4.8066E-02_JPRB,4.2222E-02_JPRB,&
+ & 3.5406E-02_JPRB,3.0325E-02_JPRB,3.3143E-02_JPRB/)  
+KAO( :, 5, 8,13) = (/&
+ & 7.5270E-02_JPRB,6.6169E-02_JPRB,5.9886E-02_JPRB,5.4558E-02_JPRB,5.0013E-02_JPRB,4.4073E-02_JPRB,&
+ & 3.8032E-02_JPRB,3.5067E-02_JPRB,3.9209E-02_JPRB/)  
+KAO( :, 1, 9,13) = (/&
+ & 7.7473E-02_JPRB,6.7808E-02_JPRB,5.8332E-02_JPRB,5.0781E-02_JPRB,4.2784E-02_JPRB,3.5895E-02_JPRB,&
+ & 2.8746E-02_JPRB,1.9977E-02_JPRB,2.5516E-02_JPRB/)  
+KAO( :, 2, 9,13) = (/&
+ & 7.6914E-02_JPRB,6.7321E-02_JPRB,5.8710E-02_JPRB,5.1554E-02_JPRB,4.4348E-02_JPRB,3.8188E-02_JPRB,&
+ & 3.1209E-02_JPRB,2.2143E-02_JPRB,2.7211E-02_JPRB/)  
+KAO( :, 3, 9,13) = (/&
+ & 7.6348E-02_JPRB,6.6831E-02_JPRB,5.9238E-02_JPRB,5.2455E-02_JPRB,4.6359E-02_JPRB,4.0690E-02_JPRB,&
+ & 3.3365E-02_JPRB,2.4927E-02_JPRB,2.8892E-02_JPRB/)  
+KAO( :, 4, 9,13) = (/&
+ & 7.6078E-02_JPRB,6.6718E-02_JPRB,5.9965E-02_JPRB,5.3687E-02_JPRB,4.8782E-02_JPRB,4.2963E-02_JPRB,&
+ & 3.5682E-02_JPRB,2.8422E-02_JPRB,3.1640E-02_JPRB/)  
+KAO( :, 5, 9,13) = (/&
+ & 7.5933E-02_JPRB,6.6835E-02_JPRB,6.0758E-02_JPRB,5.5666E-02_JPRB,5.1075E-02_JPRB,4.5007E-02_JPRB,&
+ & 3.8345E-02_JPRB,3.2458E-02_JPRB,3.5657E-02_JPRB/)  
+KAO( :, 1,10,13) = (/&
+ & 7.5495E-02_JPRB,6.6073E-02_JPRB,5.6962E-02_JPRB,4.9669E-02_JPRB,4.1944E-02_JPRB,3.5433E-02_JPRB,&
+ & 2.8273E-02_JPRB,1.9547E-02_JPRB,6.8270E-02_JPRB/)  
+KAO( :, 2,10,13) = (/&
+ & 7.5127E-02_JPRB,6.5753E-02_JPRB,5.7655E-02_JPRB,5.0612E-02_JPRB,4.3966E-02_JPRB,3.7985E-02_JPRB,&
+ & 3.0798E-02_JPRB,2.1586E-02_JPRB,7.2556E-02_JPRB/)  
+KAO( :, 3,10,13) = (/&
+ & 7.4986E-02_JPRB,6.5658E-02_JPRB,5.8530E-02_JPRB,5.1941E-02_JPRB,4.6351E-02_JPRB,4.0729E-02_JPRB,&
+ & 3.3154E-02_JPRB,2.4145E-02_JPRB,7.6901E-02_JPRB/)  
+KAO( :, 4,10,13) = (/&
+ & 7.5261E-02_JPRB,6.6078E-02_JPRB,5.9658E-02_JPRB,5.3761E-02_JPRB,4.9061E-02_JPRB,4.3256E-02_JPRB,&
+ & 3.5593E-02_JPRB,2.7205E-02_JPRB,8.0949E-02_JPRB/)  
+KAO( :, 5,10,13) = (/&
+ & 7.5310E-02_JPRB,6.6484E-02_JPRB,6.0891E-02_JPRB,5.6203E-02_JPRB,5.1608E-02_JPRB,4.5631E-02_JPRB,&
+ & 3.8393E-02_JPRB,3.0810E-02_JPRB,8.3946E-02_JPRB/)  
+KAO( :, 1,11,13) = (/&
+ & 7.2145E-02_JPRB,6.3140E-02_JPRB,5.5079E-02_JPRB,4.8199E-02_JPRB,4.1552E-02_JPRB,3.5607E-02_JPRB,&
+ & 2.8410E-02_JPRB,2.0333E-02_JPRB,1.1722E-01_JPRB/)  
+KAO( :, 2,11,13) = (/&
+ & 7.2308E-02_JPRB,6.3289E-02_JPRB,5.6229E-02_JPRB,4.9646E-02_JPRB,4.4153E-02_JPRB,3.8471E-02_JPRB,&
+ & 3.1024E-02_JPRB,2.2227E-02_JPRB,1.2017E-01_JPRB/)  
+KAO( :, 3,11,13) = (/&
+ & 7.2843E-02_JPRB,6.3926E-02_JPRB,5.7644E-02_JPRB,5.1784E-02_JPRB,4.7031E-02_JPRB,4.1323E-02_JPRB,&
+ & 3.3588E-02_JPRB,2.4733E-02_JPRB,1.2387E-01_JPRB/)  
+KAO( :, 4,11,13) = (/&
+ & 7.3135E-02_JPRB,6.4581E-02_JPRB,5.9101E-02_JPRB,5.4448E-02_JPRB,4.9988E-02_JPRB,4.3915E-02_JPRB,&
+ & 3.6387E-02_JPRB,2.7718E-02_JPRB,1.2773E-01_JPRB/)  
+KAO( :, 5,11,13) = (/&
+ & 7.3317E-02_JPRB,6.5357E-02_JPRB,6.0772E-02_JPRB,5.7257E-02_JPRB,5.2643E-02_JPRB,4.6647E-02_JPRB,&
+ & 3.9495E-02_JPRB,3.1088E-02_JPRB,1.3117E-01_JPRB/)  
+KAO( :, 1,12,13) = (/&
+ & 6.8339E-02_JPRB,5.9807E-02_JPRB,5.2868E-02_JPRB,4.6514E-02_JPRB,4.1030E-02_JPRB,3.5325E-02_JPRB,&
+ & 2.8259E-02_JPRB,2.1368E-02_JPRB,1.5845E-01_JPRB/)  
+KAO( :, 2,12,13) = (/&
+ & 6.9028E-02_JPRB,6.0544E-02_JPRB,5.4494E-02_JPRB,4.8800E-02_JPRB,4.4025E-02_JPRB,3.8260E-02_JPRB,&
+ & 3.0917E-02_JPRB,2.3169E-02_JPRB,1.6072E-01_JPRB/)  
+KAO( :, 3,12,13) = (/&
+ & 6.9564E-02_JPRB,6.1451E-02_JPRB,5.6107E-02_JPRB,5.1605E-02_JPRB,4.7233E-02_JPRB,4.1139E-02_JPRB,&
+ & 3.3727E-02_JPRB,2.5462E-02_JPRB,1.6379E-01_JPRB/)  
+KAO( :, 4,12,13) = (/&
+ & 7.0110E-02_JPRB,6.2544E-02_JPRB,5.8080E-02_JPRB,5.4612E-02_JPRB,5.0269E-02_JPRB,4.4060E-02_JPRB,&
+ & 3.6850E-02_JPRB,2.8277E-02_JPRB,1.6703E-01_JPRB/)  
+KAO( :, 5,12,13) = (/&
+ & 7.0812E-02_JPRB,6.3874E-02_JPRB,6.0361E-02_JPRB,5.7551E-02_JPRB,5.3132E-02_JPRB,4.7188E-02_JPRB,&
+ & 4.0179E-02_JPRB,3.1468E-02_JPRB,1.7022E-01_JPRB/)  
+KAO( :, 1,13,13) = (/&
+ & 6.4142E-02_JPRB,5.6225E-02_JPRB,5.0394E-02_JPRB,4.4947E-02_JPRB,4.0201E-02_JPRB,3.4418E-02_JPRB,&
+ & 2.8158E-02_JPRB,2.2746E-02_JPRB,1.7050E-01_JPRB/)  
+KAO( :, 2,13,13) = (/&
+ & 6.4886E-02_JPRB,5.7309E-02_JPRB,5.2171E-02_JPRB,4.7818E-02_JPRB,4.3432E-02_JPRB,3.7455E-02_JPRB,&
+ & 3.0630E-02_JPRB,2.4364E-02_JPRB,1.7276E-01_JPRB/)  
+KAO( :, 3,13,13) = (/&
+ & 6.5727E-02_JPRB,5.8652E-02_JPRB,5.4299E-02_JPRB,5.0937E-02_JPRB,4.6609E-02_JPRB,4.0612E-02_JPRB,&
+ & 3.3484E-02_JPRB,2.6453E-02_JPRB,1.7566E-01_JPRB/)  
+KAO( :, 4,13,13) = (/&
+ & 6.6753E-02_JPRB,6.0302E-02_JPRB,5.6875E-02_JPRB,5.4053E-02_JPRB,4.9735E-02_JPRB,4.3858E-02_JPRB,&
+ & 3.6837E-02_JPRB,2.8969E-02_JPRB,1.7832E-01_JPRB/)  
+KAO( :, 5,13,13) = (/&
+ & 6.7695E-02_JPRB,6.1869E-02_JPRB,5.9620E-02_JPRB,5.7064E-02_JPRB,5.2850E-02_JPRB,4.7362E-02_JPRB,&
+ & 4.0382E-02_JPRB,3.1936E-02_JPRB,1.8057E-01_JPRB/)  
+KAO( :, 1, 1,14) = (/&
+ & 7.1125E-02_JPRB,6.2447E-02_JPRB,5.3777E-02_JPRB,4.6002E-02_JPRB,3.9919E-02_JPRB,3.6099E-02_JPRB,&
+ & 4.0006E-02_JPRB,4.6122E-02_JPRB,5.1833E-02_JPRB/)  
+KAO( :, 2, 1,14) = (/&
+ & 6.9870E-02_JPRB,6.1342E-02_JPRB,5.2827E-02_JPRB,4.5922E-02_JPRB,4.0565E-02_JPRB,3.9007E-02_JPRB,&
+ & 4.5679E-02_JPRB,5.2643E-02_JPRB,5.9148E-02_JPRB/)  
+KAO( :, 3, 1,14) = (/&
+ & 6.8757E-02_JPRB,6.0364E-02_JPRB,5.2393E-02_JPRB,4.6480E-02_JPRB,4.1375E-02_JPRB,4.3228E-02_JPRB,&
+ & 5.1554E-02_JPRB,5.9415E-02_JPRB,6.6727E-02_JPRB/)  
+KAO( :, 4, 1,14) = (/&
+ & 6.7713E-02_JPRB,5.9439E-02_JPRB,5.2158E-02_JPRB,4.6803E-02_JPRB,4.2633E-02_JPRB,4.8201E-02_JPRB,&
+ & 5.7539E-02_JPRB,6.6348E-02_JPRB,7.4536E-02_JPRB/)  
+KAO( :, 5, 1,14) = (/&
+ & 6.6600E-02_JPRB,5.8466E-02_JPRB,5.1820E-02_JPRB,4.7055E-02_JPRB,4.4661E-02_JPRB,5.3325E-02_JPRB,&
+ & 6.3678E-02_JPRB,7.3404E-02_JPRB,8.2448E-02_JPRB/)  
+KAO( :, 1, 2,14) = (/&
+ & 7.7042E-02_JPRB,6.7550E-02_JPRB,5.8058E-02_JPRB,4.9570E-02_JPRB,4.3264E-02_JPRB,3.8479E-02_JPRB,&
+ & 4.1328E-02_JPRB,4.7688E-02_JPRB,5.4228E-02_JPRB/)  
+KAO( :, 2, 2,14) = (/&
+ & 7.5776E-02_JPRB,6.6451E-02_JPRB,5.7187E-02_JPRB,4.9780E-02_JPRB,4.4125E-02_JPRB,4.1352E-02_JPRB,&
+ & 4.7706E-02_JPRB,5.5037E-02_JPRB,6.2579E-02_JPRB/)  
+KAO( :, 3, 2,14) = (/&
+ & 7.4669E-02_JPRB,6.5491E-02_JPRB,5.6847E-02_JPRB,5.0512E-02_JPRB,4.5218E-02_JPRB,4.5782E-02_JPRB,&
+ & 5.4332E-02_JPRB,6.2645E-02_JPRB,7.1228E-02_JPRB/)  
+KAO( :, 4, 2,14) = (/&
+ & 7.3494E-02_JPRB,6.4459E-02_JPRB,5.6471E-02_JPRB,5.0688E-02_JPRB,4.6511E-02_JPRB,5.1170E-02_JPRB,&
+ & 6.1095E-02_JPRB,7.0411E-02_JPRB,8.0040E-02_JPRB/)  
+KAO( :, 5, 2,14) = (/&
+ & 7.2133E-02_JPRB,6.3274E-02_JPRB,5.5909E-02_JPRB,5.0987E-02_JPRB,4.8402E-02_JPRB,5.6911E-02_JPRB,&
+ & 6.7954E-02_JPRB,7.8300E-02_JPRB,8.9007E-02_JPRB/)  
+KAO( :, 1, 3,14) = (/&
+ & 8.3277E-02_JPRB,7.2971E-02_JPRB,6.2667E-02_JPRB,5.3474E-02_JPRB,4.6645E-02_JPRB,4.0581E-02_JPRB,&
+ & 4.0951E-02_JPRB,4.7132E-02_JPRB,5.4097E-02_JPRB/)  
+KAO( :, 2, 3,14) = (/&
+ & 8.2055E-02_JPRB,7.1904E-02_JPRB,6.1829E-02_JPRB,5.3750E-02_JPRB,4.7688E-02_JPRB,4.3144E-02_JPRB,&
+ & 4.7845E-02_JPRB,5.5169E-02_JPRB,6.3384E-02_JPRB/)  
+KAO( :, 3, 3,14) = (/&
+ & 8.0862E-02_JPRB,7.0861E-02_JPRB,6.1457E-02_JPRB,5.4455E-02_JPRB,4.8823E-02_JPRB,4.7333E-02_JPRB,&
+ & 5.5190E-02_JPRB,6.3675E-02_JPRB,7.3215E-02_JPRB/)  
+KAO( :, 4, 3,14) = (/&
+ & 7.9537E-02_JPRB,6.9705E-02_JPRB,6.0972E-02_JPRB,5.4811E-02_JPRB,5.0281E-02_JPRB,5.2809E-02_JPRB,&
+ & 6.2782E-02_JPRB,7.2454E-02_JPRB,8.3349E-02_JPRB/)  
+KAO( :, 5, 3,14) = (/&
+ & 7.8064E-02_JPRB,6.8419E-02_JPRB,6.0465E-02_JPRB,5.5324E-02_JPRB,5.2307E-02_JPRB,5.9034E-02_JPRB,&
+ & 7.0524E-02_JPRB,8.1382E-02_JPRB,9.3638E-02_JPRB/)  
+KAO( :, 1, 4,14) = (/&
+ & 9.0845E-02_JPRB,7.9564E-02_JPRB,6.8284E-02_JPRB,5.7995E-02_JPRB,5.0071E-02_JPRB,4.2766E-02_JPRB,&
+ & 4.0354E-02_JPRB,4.5834E-02_JPRB,5.2848E-02_JPRB/)  
+KAO( :, 2, 4,14) = (/&
+ & 8.9552E-02_JPRB,7.8435E-02_JPRB,6.7367E-02_JPRB,5.8123E-02_JPRB,5.1123E-02_JPRB,4.5183E-02_JPRB,&
+ & 4.7218E-02_JPRB,5.4390E-02_JPRB,6.2802E-02_JPRB/)  
+KAO( :, 3, 4,14) = (/&
+ & 8.8242E-02_JPRB,7.7291E-02_JPRB,6.6872E-02_JPRB,5.8721E-02_JPRB,5.2277E-02_JPRB,4.9062E-02_JPRB,&
+ & 5.5104E-02_JPRB,6.3535E-02_JPRB,7.3415E-02_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART9',1,ZHOOK_HANDLE)
+END SUBROUTINE PART9
+
+
+SUBROUTINE PART10
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART10',0,ZHOOK_HANDLE)
+
+
+KAO( :, 4, 4,14) = (/&
+ & 8.6759E-02_JPRB,7.5998E-02_JPRB,6.6249E-02_JPRB,5.9144E-02_JPRB,5.4005E-02_JPRB,5.4305E-02_JPRB,&
+ & 6.3297E-02_JPRB,7.3031E-02_JPRB,8.4384E-02_JPRB/)  
+KAO( :, 5, 4,14) = (/&
+ & 8.5264E-02_JPRB,7.4691E-02_JPRB,6.5716E-02_JPRB,5.9851E-02_JPRB,5.6460E-02_JPRB,6.0471E-02_JPRB,&
+ & 7.1720E-02_JPRB,8.2783E-02_JPRB,9.5664E-02_JPRB/)  
+KAO( :, 1, 5,14) = (/&
+ & 9.9315E-02_JPRB,8.6956E-02_JPRB,7.4597E-02_JPRB,6.3098E-02_JPRB,5.3822E-02_JPRB,4.5087E-02_JPRB,&
+ & 4.0285E-02_JPRB,4.4268E-02_JPRB,5.1127E-02_JPRB/)  
+KAO( :, 2, 5,14) = (/&
+ & 9.7906E-02_JPRB,8.5725E-02_JPRB,7.3576E-02_JPRB,6.3138E-02_JPRB,5.4941E-02_JPRB,4.7422E-02_JPRB,&
+ & 4.6902E-02_JPRB,5.3385E-02_JPRB,6.1752E-02_JPRB/)  
+KAO( :, 3, 5,14) = (/&
+ & 9.6528E-02_JPRB,8.4522E-02_JPRB,7.2985E-02_JPRB,6.3691E-02_JPRB,5.5941E-02_JPRB,5.1390E-02_JPRB,&
+ & 5.4800E-02_JPRB,6.3141E-02_JPRB,7.3064E-02_JPRB/)  
+KAO( :, 4, 5,14) = (/&
+ & 9.5030E-02_JPRB,8.3215E-02_JPRB,7.2382E-02_JPRB,6.4248E-02_JPRB,5.7876E-02_JPRB,5.6367E-02_JPRB,&
+ & 6.3403E-02_JPRB,7.3204E-02_JPRB,8.4675E-02_JPRB/)  
+KAO( :, 5, 5,14) = (/&
+ & 9.3519E-02_JPRB,8.1896E-02_JPRB,7.1942E-02_JPRB,6.4913E-02_JPRB,6.0750E-02_JPRB,6.2288E-02_JPRB,&
+ & 7.2363E-02_JPRB,8.3574E-02_JPRB,9.6711E-02_JPRB/)  
+KAO( :, 1, 6,14) = (/&
+ & 1.0848E-01_JPRB,9.4964E-02_JPRB,8.1446E-02_JPRB,6.8624E-02_JPRB,5.8073E-02_JPRB,4.7733E-02_JPRB,&
+ & 4.0794E-02_JPRB,4.2233E-02_JPRB,4.8838E-02_JPRB/)  
+KAO( :, 2, 6,14) = (/&
+ & 1.0700E-01_JPRB,9.3665E-02_JPRB,8.0341E-02_JPRB,6.8687E-02_JPRB,5.9287E-02_JPRB,4.9965E-02_JPRB,&
+ & 4.6801E-02_JPRB,5.1522E-02_JPRB,5.9571E-02_JPRB/)  
+KAO( :, 3, 6,14) = (/&
+ & 1.0569E-01_JPRB,9.2526E-02_JPRB,7.9786E-02_JPRB,6.9323E-02_JPRB,6.0296E-02_JPRB,5.3850E-02_JPRB,&
+ & 5.4326E-02_JPRB,6.1617E-02_JPRB,7.1174E-02_JPRB/)  
+KAO( :, 4, 6,14) = (/&
+ & 1.0422E-01_JPRB,9.1243E-02_JPRB,7.9257E-02_JPRB,7.0200E-02_JPRB,6.2110E-02_JPRB,5.8890E-02_JPRB,&
+ & 6.2697E-02_JPRB,7.2186E-02_JPRB,8.3411E-02_JPRB/)  
+KAO( :, 5, 6,14) = (/&
+ & 1.0274E-01_JPRB,8.9945E-02_JPRB,7.8955E-02_JPRB,7.0870E-02_JPRB,6.5007E-02_JPRB,6.4538E-02_JPRB,&
+ & 7.1962E-02_JPRB,8.3225E-02_JPRB,9.6184E-02_JPRB/)  
+KAO( :, 1, 7,14) = (/&
+ & 1.1805E-01_JPRB,1.0333E-01_JPRB,8.8604E-02_JPRB,7.4383E-02_JPRB,6.2795E-02_JPRB,5.0938E-02_JPRB,&
+ & 4.1734E-02_JPRB,4.0173E-02_JPRB,4.6320E-02_JPRB/)  
+KAO( :, 2, 7,14) = (/&
+ & 1.1659E-01_JPRB,1.0206E-01_JPRB,8.7517E-02_JPRB,7.4746E-02_JPRB,6.4050E-02_JPRB,5.3141E-02_JPRB,&
+ & 4.7155E-02_JPRB,4.9297E-02_JPRB,5.6966E-02_JPRB/)  
+KAO( :, 3, 7,14) = (/&
+ & 1.1548E-01_JPRB,1.0108E-01_JPRB,8.7065E-02_JPRB,7.5639E-02_JPRB,6.5270E-02_JPRB,5.6793E-02_JPRB,&
+ & 5.4049E-02_JPRB,5.9341E-02_JPRB,6.8535E-02_JPRB/)  
+KAO( :, 4, 7,14) = (/&
+ & 1.1421E-01_JPRB,9.9974E-02_JPRB,8.6788E-02_JPRB,7.6683E-02_JPRB,6.6954E-02_JPRB,6.1718E-02_JPRB,&
+ & 6.2059E-02_JPRB,7.0009E-02_JPRB,8.0835E-02_JPRB/)  
+KAO( :, 5, 7,14) = (/&
+ & 1.1283E-01_JPRB,9.8769E-02_JPRB,8.6621E-02_JPRB,7.7418E-02_JPRB,6.9776E-02_JPRB,6.7214E-02_JPRB,&
+ & 7.0897E-02_JPRB,8.1280E-02_JPRB,9.3717E-02_JPRB/)  
+KAO( :, 1, 8,14) = (/&
+ & 1.2760E-01_JPRB,1.1168E-01_JPRB,9.5756E-02_JPRB,8.0242E-02_JPRB,6.7771E-02_JPRB,5.4512E-02_JPRB,&
+ & 4.3297E-02_JPRB,3.8468E-02_JPRB,4.3412E-02_JPRB/)  
+KAO( :, 2, 8,14) = (/&
+ & 1.2647E-01_JPRB,1.1069E-01_JPRB,9.4911E-02_JPRB,8.1080E-02_JPRB,6.9303E-02_JPRB,5.6801E-02_JPRB,&
+ & 4.8262E-02_JPRB,4.7089E-02_JPRB,5.4046E-02_JPRB/)  
+KAO( :, 3, 8,14) = (/&
+ & 1.2554E-01_JPRB,1.0988E-01_JPRB,9.4556E-02_JPRB,8.2231E-02_JPRB,7.0704E-02_JPRB,6.0253E-02_JPRB,&
+ & 5.4589E-02_JPRB,5.6872E-02_JPRB,6.5560E-02_JPRB/)  
+KAO( :, 4, 8,14) = (/&
+ & 1.2457E-01_JPRB,1.0903E-01_JPRB,9.4616E-02_JPRB,8.3457E-02_JPRB,7.2396E-02_JPRB,6.4980E-02_JPRB,&
+ & 6.1867E-02_JPRB,6.7548E-02_JPRB,7.7808E-02_JPRB/)  
+KAO( :, 5, 8,14) = (/&
+ & 1.2330E-01_JPRB,1.0792E-01_JPRB,9.4626E-02_JPRB,8.4389E-02_JPRB,7.5157E-02_JPRB,7.0416E-02_JPRB,&
+ & 7.0105E-02_JPRB,7.8665E-02_JPRB,9.0560E-02_JPRB/)  
+KAO( :, 1, 9,14) = (/&
+ & 1.3720E-01_JPRB,1.2007E-01_JPRB,1.0294E-01_JPRB,8.6103E-02_JPRB,7.2470E-02_JPRB,5.8097E-02_JPRB,&
+ & 4.5389E-02_JPRB,3.6904E-02_JPRB,4.1799E-02_JPRB/)  
+KAO( :, 2, 9,14) = (/&
+ & 1.3628E-01_JPRB,1.1927E-01_JPRB,1.0226E-01_JPRB,8.7181E-02_JPRB,7.4343E-02_JPRB,6.0740E-02_JPRB,&
+ & 4.9959E-02_JPRB,4.4876E-02_JPRB,5.0393E-02_JPRB/)  
+KAO( :, 3, 9,14) = (/&
+ & 1.3535E-01_JPRB,1.1846E-01_JPRB,1.0188E-01_JPRB,8.8693E-02_JPRB,7.6184E-02_JPRB,6.4206E-02_JPRB,&
+ & 5.5907E-02_JPRB,5.4085E-02_JPRB,6.1556E-02_JPRB/)  
+KAO( :, 4, 9,14) = (/&
+ & 1.3444E-01_JPRB,1.1766E-01_JPRB,1.0208E-01_JPRB,9.0218E-02_JPRB,7.8130E-02_JPRB,6.8528E-02_JPRB,&
+ & 6.2619E-02_JPRB,6.4323E-02_JPRB,7.3797E-02_JPRB/)  
+KAO( :, 5, 9,14) = (/&
+ & 1.3348E-01_JPRB,1.1683E-01_JPRB,1.0242E-01_JPRB,9.1503E-02_JPRB,8.0977E-02_JPRB,7.3855E-02_JPRB,&
+ & 6.9865E-02_JPRB,7.5417E-02_JPRB,8.6747E-02_JPRB/)  
+KAO( :, 1,10,14) = (/&
+ & 1.4622E-01_JPRB,1.2796E-01_JPRB,1.0970E-01_JPRB,9.1694E-02_JPRB,7.6915E-02_JPRB,6.1594E-02_JPRB,&
+ & 4.7802E-02_JPRB,3.6372E-02_JPRB,1.2782E-01_JPRB/)  
+KAO( :, 2,10,14) = (/&
+ & 1.4558E-01_JPRB,1.2740E-01_JPRB,1.0923E-01_JPRB,9.3107E-02_JPRB,7.9235E-02_JPRB,6.4561E-02_JPRB,&
+ & 5.2530E-02_JPRB,4.3432E-02_JPRB,1.2805E-01_JPRB/)  
+KAO( :, 3,10,14) = (/&
+ & 1.4478E-01_JPRB,1.2670E-01_JPRB,1.0897E-01_JPRB,9.4925E-02_JPRB,8.1357E-02_JPRB,6.8532E-02_JPRB,&
+ & 5.8051E-02_JPRB,5.1858E-02_JPRB,1.2910E-01_JPRB/)  
+KAO( :, 4,10,14) = (/&
+ & 1.4390E-01_JPRB,1.2594E-01_JPRB,1.0930E-01_JPRB,9.6640E-02_JPRB,8.3903E-02_JPRB,7.3006E-02_JPRB,&
+ & 6.4450E-02_JPRB,6.1593E-02_JPRB,1.3078E-01_JPRB/)  
+KAO( :, 5,10,14) = (/&
+ & 1.4315E-01_JPRB,1.2528E-01_JPRB,1.1004E-01_JPRB,9.8357E-02_JPRB,8.7154E-02_JPRB,7.8009E-02_JPRB,&
+ & 7.1120E-02_JPRB,7.2455E-02_JPRB,1.3316E-01_JPRB/)  
+KAO( :, 1,11,14) = (/&
+ & 1.5395E-01_JPRB,1.3473E-01_JPRB,1.1550E-01_JPRB,9.7315E-02_JPRB,8.2228E-02_JPRB,6.6162E-02_JPRB,&
+ & 5.2338E-02_JPRB,3.8889E-02_JPRB,2.0928E-01_JPRB/)  
+KAO( :, 2,11,14) = (/&
+ & 1.5355E-01_JPRB,1.3437E-01_JPRB,1.1530E-01_JPRB,9.9444E-02_JPRB,8.4668E-02_JPRB,7.0074E-02_JPRB,&
+ & 5.7545E-02_JPRB,4.5714E-02_JPRB,2.1031E-01_JPRB/)  
+KAO( :, 3,11,14) = (/&
+ & 1.5306E-01_JPRB,1.3395E-01_JPRB,1.1569E-01_JPRB,1.0160E-01_JPRB,8.7341E-02_JPRB,7.4791E-02_JPRB,&
+ & 6.3171E-02_JPRB,5.3818E-02_JPRB,2.0902E-01_JPRB/)  
+KAO( :, 4,11,14) = (/&
+ & 1.5264E-01_JPRB,1.3359E-01_JPRB,1.1675E-01_JPRB,1.0361E-01_JPRB,9.0695E-02_JPRB,7.9958E-02_JPRB,&
+ & 6.9362E-02_JPRB,6.3424E-02_JPRB,2.0832E-01_JPRB/)  
+KAO( :, 5,11,14) = (/&
+ & 1.5211E-01_JPRB,1.3312E-01_JPRB,1.1800E-01_JPRB,1.0575E-01_JPRB,9.4915E-02_JPRB,8.5107E-02_JPRB,&
+ & 7.5798E-02_JPRB,7.4229E-02_JPRB,2.0949E-01_JPRB/)  
+KAO( :, 1,12,14) = (/&
+ & 1.6007E-01_JPRB,1.4008E-01_JPRB,1.2008E-01_JPRB,1.0232E-01_JPRB,8.6761E-02_JPRB,7.0740E-02_JPRB,&
+ & 5.6718E-02_JPRB,4.1250E-02_JPRB,2.6518E-01_JPRB/)  
+KAO( :, 2,12,14) = (/&
+ & 1.6020E-01_JPRB,1.4019E-01_JPRB,1.2063E-01_JPRB,1.0501E-01_JPRB,8.9744E-02_JPRB,7.5616E-02_JPRB,&
+ & 6.2355E-02_JPRB,4.7922E-02_JPRB,2.6549E-01_JPRB/)  
+KAO( :, 3,12,14) = (/&
+ & 1.6044E-01_JPRB,1.4040E-01_JPRB,1.2209E-01_JPRB,1.0775E-01_JPRB,9.3316E-02_JPRB,8.1050E-02_JPRB,&
+ & 6.8087E-02_JPRB,5.5672E-02_JPRB,2.6354E-01_JPRB/)  
+KAO( :, 4,12,14) = (/&
+ & 1.6037E-01_JPRB,1.4035E-01_JPRB,1.2384E-01_JPRB,1.1034E-01_JPRB,9.7597E-02_JPRB,8.6743E-02_JPRB,&
+ & 7.4072E-02_JPRB,6.4868E-02_JPRB,2.6219E-01_JPRB/)  
+KAO( :, 5,12,14) = (/&
+ & 1.6003E-01_JPRB,1.4017E-01_JPRB,1.2549E-01_JPRB,1.1310E-01_JPRB,1.0250E-01_JPRB,9.1994E-02_JPRB,&
+ & 8.0439E-02_JPRB,7.5469E-02_JPRB,2.6239E-01_JPRB/)  
+KAO( :, 1,13,14) = (/&
+ & 1.6469E-01_JPRB,1.4412E-01_JPRB,1.2368E-01_JPRB,1.0640E-01_JPRB,9.0617E-02_JPRB,7.5149E-02_JPRB,&
+ & 6.0781E-02_JPRB,4.3348E-02_JPRB,2.6721E-01_JPRB/)  
+KAO( :, 2,13,14) = (/&
+ & 1.6562E-01_JPRB,1.4493E-01_JPRB,1.2548E-01_JPRB,1.0990E-01_JPRB,9.4570E-02_JPRB,8.0925E-02_JPRB,&
+ & 6.6783E-02_JPRB,4.9779E-02_JPRB,2.6700E-01_JPRB/)  
+KAO( :, 3,13,14) = (/&
+ & 1.6629E-01_JPRB,1.4552E-01_JPRB,1.2768E-01_JPRB,1.1332E-01_JPRB,9.9317E-02_JPRB,8.6925E-02_JPRB,&
+ & 7.2626E-02_JPRB,5.7255E-02_JPRB,2.6579E-01_JPRB/)  
+KAO( :, 4,13,14) = (/&
+ & 1.6653E-01_JPRB,1.4581E-01_JPRB,1.2999E-01_JPRB,1.1666E-01_JPRB,1.0451E-01_JPRB,9.2915E-02_JPRB,&
+ & 7.8534E-02_JPRB,6.6130E-02_JPRB,2.6675E-01_JPRB/)  
+KAO( :, 5,13,14) = (/&
+ & 1.6684E-01_JPRB,1.4632E-01_JPRB,1.3221E-01_JPRB,1.2027E-01_JPRB,1.0991E-01_JPRB,9.8357E-02_JPRB,&
+ & 8.4972E-02_JPRB,7.6473E-02_JPRB,2.6996E-01_JPRB/)  
+KAO( :, 1, 1,15) = (/&
+ & 8.6335E-02_JPRB,7.5626E-02_JPRB,6.4917E-02_JPRB,5.5295E-02_JPRB,5.0812E-02_JPRB,5.9948E-02_JPRB,&
+ & 7.1505E-02_JPRB,8.2180E-02_JPRB,9.1859E-02_JPRB/)  
+KAO( :, 2, 1,15) = (/&
+ & 8.4567E-02_JPRB,7.4086E-02_JPRB,6.3604E-02_JPRB,5.5283E-02_JPRB,5.6490E-02_JPRB,6.9672E-02_JPRB,&
+ & 8.3123E-02_JPRB,9.5602E-02_JPRB,1.0689E-01_JPRB/)  
+KAO( :, 3, 1,15) = (/&
+ & 8.2946E-02_JPRB,7.2675E-02_JPRB,6.2405E-02_JPRB,5.5773E-02_JPRB,6.3940E-02_JPRB,7.9639E-02_JPRB,&
+ & 9.5049E-02_JPRB,1.0933E-01_JPRB,1.2237E-01_JPRB/)  
+KAO( :, 4, 1,15) = (/&
+ & 8.1353E-02_JPRB,7.1286E-02_JPRB,6.1452E-02_JPRB,5.8032E-02_JPRB,7.2168E-02_JPRB,8.9901E-02_JPRB,&
+ & 1.0730E-01_JPRB,1.2343E-01_JPRB,1.3810E-01_JPRB/)  
+KAO( :, 5, 1,15) = (/&
+ & 8.0306E-02_JPRB,7.0375E-02_JPRB,6.1401E-02_JPRB,6.2088E-02_JPRB,8.0744E-02_JPRB,1.0061E-01_JPRB,&
+ & 1.2011E-01_JPRB,1.3812E-01_JPRB,1.5455E-01_JPRB/)  
+KAO( :, 1, 2,15) = (/&
+ & 9.5589E-02_JPRB,8.3777E-02_JPRB,7.1976E-02_JPRB,6.1258E-02_JPRB,5.5368E-02_JPRB,6.4085E-02_JPRB,&
+ & 7.6446E-02_JPRB,8.7825E-02_JPRB,9.9724E-02_JPRB/)  
+KAO( :, 2, 2,15) = (/&
+ & 9.3570E-02_JPRB,8.1988E-02_JPRB,7.0421E-02_JPRB,6.1059E-02_JPRB,6.1189E-02_JPRB,7.4507E-02_JPRB,&
+ & 8.8919E-02_JPRB,1.0224E-01_JPRB,1.1610E-01_JPRB/)  
+KAO( :, 3, 2,15) = (/&
+ & 9.1829E-02_JPRB,8.0436E-02_JPRB,6.9070E-02_JPRB,6.1314E-02_JPRB,6.8582E-02_JPRB,8.5238E-02_JPRB,&
+ & 1.0175E-01_JPRB,1.1706E-01_JPRB,1.3301E-01_JPRB/)  
+KAO( :, 4, 2,15) = (/&
+ & 9.0487E-02_JPRB,7.9254E-02_JPRB,6.8526E-02_JPRB,6.4228E-02_JPRB,7.7434E-02_JPRB,9.6498E-02_JPRB,&
+ & 1.1522E-01_JPRB,1.3267E-01_JPRB,1.5077E-01_JPRB/)  
+KAO( :, 5, 2,15) = (/&
+ & 8.9669E-02_JPRB,7.8542E-02_JPRB,6.8954E-02_JPRB,6.8451E-02_JPRB,8.6910E-02_JPRB,1.0835E-01_JPRB,&
+ & 1.2939E-01_JPRB,1.4902E-01_JPRB,1.6935E-01_JPRB/)  
+KAO( :, 1, 3,15) = (/&
+ & 1.0676E-01_JPRB,9.3553E-02_JPRB,8.0347E-02_JPRB,6.7838E-02_JPRB,5.9827E-02_JPRB,6.6522E-02_JPRB,&
+ & 7.9363E-02_JPRB,9.1189E-02_JPRB,1.0525E-01_JPRB/)  
+KAO( :, 2, 3,15) = (/&
+ & 1.0446E-01_JPRB,9.1534E-02_JPRB,7.8612E-02_JPRB,6.7925E-02_JPRB,6.5040E-02_JPRB,7.7741E-02_JPRB,&
+ & 9.2778E-02_JPRB,1.0667E-01_JPRB,1.2309E-01_JPRB/)  
+KAO( :, 3, 3,15) = (/&
+ & 1.0249E-01_JPRB,8.9809E-02_JPRB,7.7136E-02_JPRB,6.8091E-02_JPRB,7.2454E-02_JPRB,8.9300E-02_JPRB,&
+ & 1.0660E-01_JPRB,1.2265E-01_JPRB,1.4148E-01_JPRB/)  
+KAO( :, 4, 3,15) = (/&
+ & 1.0145E-01_JPRB,8.8891E-02_JPRB,7.6929E-02_JPRB,7.0768E-02_JPRB,8.1305E-02_JPRB,1.0131E-01_JPRB,&
+ & 1.2096E-01_JPRB,1.3918E-01_JPRB,1.6053E-01_JPRB/)  
+KAO( :, 5, 3,15) = (/&
+ & 1.0070E-01_JPRB,8.8241E-02_JPRB,7.7594E-02_JPRB,7.4852E-02_JPRB,9.1339E-02_JPRB,1.1386E-01_JPRB,&
+ & 1.3595E-01_JPRB,1.5652E-01_JPRB,1.8047E-01_JPRB/)  
+KAO( :, 1, 4,15) = (/&
+ & 1.1948E-01_JPRB,1.0466E-01_JPRB,8.9846E-02_JPRB,7.5435E-02_JPRB,6.5653E-02_JPRB,6.8395E-02_JPRB,&
+ & 8.1117E-02_JPRB,9.3286E-02_JPRB,1.0845E-01_JPRB/)  
+KAO( :, 2, 4,15) = (/&
+ & 1.1744E-01_JPRB,1.0288E-01_JPRB,8.8326E-02_JPRB,7.6088E-02_JPRB,7.0000E-02_JPRB,8.0045E-02_JPRB,&
+ & 9.5565E-02_JPRB,1.0996E-01_JPRB,1.2777E-01_JPRB/)  
+KAO( :, 3, 4,15) = (/&
+ & 1.1572E-01_JPRB,1.0138E-01_JPRB,8.7035E-02_JPRB,7.6536E-02_JPRB,7.6949E-02_JPRB,9.2508E-02_JPRB,&
+ & 1.1046E-01_JPRB,1.2718E-01_JPRB,1.4769E-01_JPRB/)  
+KAO( :, 4, 4,15) = (/&
+ & 1.1457E-01_JPRB,1.0037E-01_JPRB,8.6743E-02_JPRB,7.8791E-02_JPRB,8.5479E-02_JPRB,1.0549E-01_JPRB,&
+ & 1.2598E-01_JPRB,1.4506E-01_JPRB,1.6844E-01_JPRB/)  
+KAO( :, 5, 4,15) = (/&
+ & 1.1371E-01_JPRB,9.9614E-02_JPRB,8.7543E-02_JPRB,8.2406E-02_JPRB,9.5523E-02_JPRB,1.1901E-01_JPRB,&
+ & 1.4214E-01_JPRB,1.6372E-01_JPRB,1.9001E-01_JPRB/)  
+KAO( :, 1, 5,15) = (/&
+ & 1.3435E-01_JPRB,1.1765E-01_JPRB,1.0095E-01_JPRB,8.4469E-02_JPRB,7.2853E-02_JPRB,7.1272E-02_JPRB,&
+ & 8.1960E-02_JPRB,9.4385E-02_JPRB,1.0990E-01_JPRB/)  
+KAO( :, 2, 5,15) = (/&
+ & 1.3249E-01_JPRB,1.1603E-01_JPRB,9.9565E-02_JPRB,8.5291E-02_JPRB,7.6670E-02_JPRB,8.2310E-02_JPRB,&
+ & 9.7448E-02_JPRB,1.1228E-01_JPRB,1.3064E-01_JPRB/)  
+KAO( :, 3, 5,15) = (/&
+ & 1.3078E-01_JPRB,1.1453E-01_JPRB,9.8289E-02_JPRB,8.6209E-02_JPRB,8.3093E-02_JPRB,9.5057E-02_JPRB,&
+ & 1.1357E-01_JPRB,1.3082E-01_JPRB,1.5225E-01_JPRB/)  
+KAO( :, 4, 5,15) = (/&
+ & 1.2949E-01_JPRB,1.1340E-01_JPRB,9.7892E-02_JPRB,8.8436E-02_JPRB,9.1112E-02_JPRB,1.0924E-01_JPRB,&
+ & 1.3047E-01_JPRB,1.5034E-01_JPRB,1.7498E-01_JPRB/)  
+KAO( :, 5, 5,15) = (/&
+ & 1.2852E-01_JPRB,1.1256E-01_JPRB,9.8533E-02_JPRB,9.1755E-02_JPRB,1.0068E-01_JPRB,1.2400E-01_JPRB,&
+ & 1.4814E-01_JPRB,1.7069E-01_JPRB,1.9863E-01_JPRB/)  
+KAO( :, 1, 6,15) = (/&
+ & 1.5076E-01_JPRB,1.3198E-01_JPRB,1.1320E-01_JPRB,9.4463E-02_JPRB,8.0666E-02_JPRB,7.5054E-02_JPRB,&
+ & 8.0871E-02_JPRB,9.3264E-02_JPRB,1.0849E-01_JPRB/)  
+KAO( :, 2, 6,15) = (/&
+ & 1.4906E-01_JPRB,1.3049E-01_JPRB,1.1193E-01_JPRB,9.5115E-02_JPRB,8.4634E-02_JPRB,8.5281E-02_JPRB,&
+ & 9.7599E-02_JPRB,1.1257E-01_JPRB,1.3098E-01_JPRB/)  
+KAO( :, 3, 6,15) = (/&
+ & 1.4751E-01_JPRB,1.2914E-01_JPRB,1.1077E-01_JPRB,9.6775E-02_JPRB,9.0721E-02_JPRB,9.7408E-02_JPRB,&
+ & 1.1514E-01_JPRB,1.3281E-01_JPRB,1.5454E-01_JPRB/)  
+KAO( :, 4, 6,15) = (/&
+ & 1.4640E-01_JPRB,1.2818E-01_JPRB,1.1040E-01_JPRB,9.8990E-02_JPRB,9.8328E-02_JPRB,1.1180E-01_JPRB,&
+ & 1.3358E-01_JPRB,1.5404E-01_JPRB,1.7929E-01_JPRB/)  
+KAO( :, 5, 6,15) = (/&
+ & 1.4534E-01_JPRB,1.2726E-01_JPRB,1.1100E-01_JPRB,1.0247E-01_JPRB,1.0712E-01_JPRB,1.2780E-01_JPRB,&
+ & 1.5274E-01_JPRB,1.7614E-01_JPRB,2.0503E-01_JPRB/)  
+KAO( :, 1, 7,15) = (/&
+ & 1.7017E-01_JPRB,1.4895E-01_JPRB,1.2773E-01_JPRB,1.0651E-01_JPRB,8.8726E-02_JPRB,8.0014E-02_JPRB,&
+ & 7.9958E-02_JPRB,9.0777E-02_JPRB,1.0558E-01_JPRB/)  
+KAO( :, 2, 7,15) = (/&
+ & 1.6840E-01_JPRB,1.4740E-01_JPRB,1.2641E-01_JPRB,1.0633E-01_JPRB,9.3561E-02_JPRB,8.9399E-02_JPRB,&
+ & 9.6654E-02_JPRB,1.1154E-01_JPRB,1.2974E-01_JPRB/)  
+KAO( :, 3, 7,15) = (/&
+ & 1.6683E-01_JPRB,1.4603E-01_JPRB,1.2523E-01_JPRB,1.0816E-01_JPRB,9.9523E-02_JPRB,1.0085E-01_JPRB,&
+ & 1.1565E-01_JPRB,1.3349E-01_JPRB,1.5523E-01_JPRB/)  
+KAO( :, 4, 7,15) = (/&
+ & 1.6579E-01_JPRB,1.4512E-01_JPRB,1.2467E-01_JPRB,1.1069E-01_JPRB,1.0674E-01_JPRB,1.1452E-01_JPRB,&
+ & 1.3558E-01_JPRB,1.5645E-01_JPRB,1.8200E-01_JPRB/)  
+KAO( :, 5, 7,15) = (/&
+ & 1.6467E-01_JPRB,1.4415E-01_JPRB,1.2512E-01_JPRB,1.1428E-01_JPRB,1.1515E-01_JPRB,1.3096E-01_JPRB,&
+ & 1.5653E-01_JPRB,1.8061E-01_JPRB,2.1020E-01_JPRB/)  
+KAO( :, 1, 8,15) = (/&
+ & 1.9300E-01_JPRB,1.6891E-01_JPRB,1.4482E-01_JPRB,1.2074E-01_JPRB,9.8428E-02_JPRB,8.6453E-02_JPRB,&
+ & 8.0104E-02_JPRB,8.7414E-02_JPRB,1.0158E-01_JPRB/)  
+KAO( :, 2, 8,15) = (/&
+ & 1.9118E-01_JPRB,1.6732E-01_JPRB,1.4346E-01_JPRB,1.1993E-01_JPRB,1.0330E-01_JPRB,9.4785E-02_JPRB,&
+ & 9.5939E-02_JPRB,1.0927E-01_JPRB,1.2693E-01_JPRB/)  
+KAO( :, 3, 8,15) = (/&
+ & 1.8966E-01_JPRB,1.6599E-01_JPRB,1.4233E-01_JPRB,1.2111E-01_JPRB,1.0944E-01_JPRB,1.0556E-01_JPRB,&
+ & 1.1490E-01_JPRB,1.3272E-01_JPRB,1.5419E-01_JPRB/)  
+KAO( :, 4, 8,15) = (/&
+ & 1.8827E-01_JPRB,1.6478E-01_JPRB,1.4129E-01_JPRB,1.2410E-01_JPRB,1.1628E-01_JPRB,1.1877E-01_JPRB,&
+ & 1.3648E-01_JPRB,1.5764E-01_JPRB,1.8319E-01_JPRB/)  
+KAO( :, 5, 8,15) = (/&
+ & 1.8700E-01_JPRB,1.6367E-01_JPRB,1.4137E-01_JPRB,1.2760E-01_JPRB,1.2425E-01_JPRB,1.3451E-01_JPRB,&
+ & 1.5950E-01_JPRB,1.8417E-01_JPRB,2.1419E-01_JPRB/)  
+KAO( :, 1, 9,15) = (/&
+ & 2.1903E-01_JPRB,1.9168E-01_JPRB,1.6432E-01_JPRB,1.3697E-01_JPRB,1.1022E-01_JPRB,9.3381E-02_JPRB,&
+ & 8.1173E-02_JPRB,8.3378E-02_JPRB,9.6854E-02_JPRB/)  
+KAO( :, 2, 9,15) = (/&
+ & 2.1750E-01_JPRB,1.9034E-01_JPRB,1.6318E-01_JPRB,1.3602E-01_JPRB,1.1431E-01_JPRB,1.0171E-01_JPRB,&
+ & 9.6008E-02_JPRB,1.0601E-01_JPRB,1.2308E-01_JPRB/)  
+KAO( :, 3, 9,15) = (/&
+ & 2.1621E-01_JPRB,1.8921E-01_JPRB,1.6222E-01_JPRB,1.3665E-01_JPRB,1.2052E-01_JPRB,1.1120E-01_JPRB,&
+ & 1.1434E-01_JPRB,1.3077E-01_JPRB,1.5182E-01_JPRB/)  
+KAO( :, 4, 9,15) = (/&
+ & 2.1461E-01_JPRB,1.8782E-01_JPRB,1.6103E-01_JPRB,1.3944E-01_JPRB,1.2758E-01_JPRB,1.2410E-01_JPRB,&
+ & 1.3607E-01_JPRB,1.5728E-01_JPRB,1.8262E-01_JPRB/)  
+KAO( :, 5, 9,15) = (/&
+ & 2.1295E-01_JPRB,1.8637E-01_JPRB,1.6039E-01_JPRB,1.4274E-01_JPRB,1.3480E-01_JPRB,1.3933E-01_JPRB,&
+ & 1.6084E-01_JPRB,1.8591E-01_JPRB,2.1587E-01_JPRB/)  
+KAO( :, 1,10,15) = (/&
+ & 2.4831E-01_JPRB,2.1729E-01_JPRB,1.8627E-01_JPRB,1.5526E-01_JPRB,1.2434E-01_JPRB,1.0185E-01_JPRB,&
+ & 8.4815E-02_JPRB,8.0841E-02_JPRB,1.7532E-01_JPRB/)  
+KAO( :, 2,10,15) = (/&
+ & 2.4704E-01_JPRB,2.1618E-01_JPRB,1.8532E-01_JPRB,1.5447E-01_JPRB,1.2750E-01_JPRB,1.1098E-01_JPRB,&
+ & 9.8299E-02_JPRB,1.0410E-01_JPRB,1.7367E-01_JPRB/)  
+KAO( :, 3,10,15) = (/&
+ & 2.4585E-01_JPRB,2.1514E-01_JPRB,1.8444E-01_JPRB,1.5466E-01_JPRB,1.3408E-01_JPRB,1.1953E-01_JPRB,&
+ & 1.1633E-01_JPRB,1.3023E-01_JPRB,1.7996E-01_JPRB/)  
+KAO( :, 4,10,15) = (/&
+ & 2.4402E-01_JPRB,2.1354E-01_JPRB,1.8307E-01_JPRB,1.5695E-01_JPRB,1.4115E-01_JPRB,1.3126E-01_JPRB,&
+ & 1.3793E-01_JPRB,1.5846E-01_JPRB,1.9548E-01_JPRB/)  
+KAO( :, 5,10,15) = (/&
+ & 2.4208E-01_JPRB,2.1185E-01_JPRB,1.8198E-01_JPRB,1.6040E-01_JPRB,1.4820E-01_JPRB,1.4650E-01_JPRB,&
+ & 1.6334E-01_JPRB,1.8884E-01_JPRB,2.2082E-01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART10',1,ZHOOK_HANDLE)
+END SUBROUTINE PART10
+
+
+SUBROUTINE PART11
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART11',0,ZHOOK_HANDLE)
+
+
+KAO( :, 1,11,15) = (/&
+ & 2.8046E-01_JPRB,2.4542E-01_JPRB,2.1039E-01_JPRB,1.7535E-01_JPRB,1.4072E-01_JPRB,1.1602E-01_JPRB,&
+ & 9.4756E-02_JPRB,8.8842E-02_JPRB,3.0507E-01_JPRB/)  
+KAO( :, 2,11,15) = (/&
+ & 2.7918E-01_JPRB,2.4430E-01_JPRB,2.0943E-01_JPRB,1.7456E-01_JPRB,1.4537E-01_JPRB,1.2533E-01_JPRB,&
+ & 1.0891E-01_JPRB,1.1392E-01_JPRB,2.9566E-01_JPRB/)  
+KAO( :, 3,11,15) = (/&
+ & 2.7735E-01_JPRB,2.4270E-01_JPRB,2.0805E-01_JPRB,1.7500E-01_JPRB,1.5257E-01_JPRB,1.3417E-01_JPRB,&
+ & 1.2847E-01_JPRB,1.4223E-01_JPRB,2.9322E-01_JPRB/)  
+KAO( :, 4,11,15) = (/&
+ & 2.7527E-01_JPRB,2.4088E-01_JPRB,2.0649E-01_JPRB,1.7781E-01_JPRB,1.5979E-01_JPRB,1.4614E-01_JPRB,&
+ & 1.5179E-01_JPRB,1.7334E-01_JPRB,2.9538E-01_JPRB/)  
+KAO( :, 5,11,15) = (/&
+ & 2.7287E-01_JPRB,2.3878E-01_JPRB,2.0537E-01_JPRB,1.8183E-01_JPRB,1.6671E-01_JPRB,1.6236E-01_JPRB,&
+ & 1.7904E-01_JPRB,2.0699E-01_JPRB,3.0432E-01_JPRB/)  
+KAO( :, 1,12,15) = (/&
+ & 3.1597E-01_JPRB,2.7649E-01_JPRB,2.3701E-01_JPRB,1.9754E-01_JPRB,1.5924E-01_JPRB,1.3168E-01_JPRB,&
+ & 1.0585E-01_JPRB,9.7375E-02_JPRB,4.0358E-01_JPRB/)  
+KAO( :, 2,12,15) = (/&
+ & 3.1432E-01_JPRB,2.7505E-01_JPRB,2.3578E-01_JPRB,1.9654E-01_JPRB,1.6498E-01_JPRB,1.4094E-01_JPRB,&
+ & 1.2051E-01_JPRB,1.2392E-01_JPRB,3.9336E-01_JPRB/)  
+KAO( :, 3,12,15) = (/&
+ & 3.1171E-01_JPRB,2.7277E-01_JPRB,2.3383E-01_JPRB,1.9721E-01_JPRB,1.7246E-01_JPRB,1.5023E-01_JPRB,&
+ & 1.4122E-01_JPRB,1.5462E-01_JPRB,3.9393E-01_JPRB/)  
+KAO( :, 4,12,15) = (/&
+ & 3.0880E-01_JPRB,2.7022E-01_JPRB,2.3164E-01_JPRB,2.0058E-01_JPRB,1.7964E-01_JPRB,1.6232E-01_JPRB,&
+ & 1.6619E-01_JPRB,1.8839E-01_JPRB,3.9596E-01_JPRB/)  
+KAO( :, 5,12,15) = (/&
+ & 3.0525E-01_JPRB,2.6711E-01_JPRB,2.3006E-01_JPRB,2.0488E-01_JPRB,1.8690E-01_JPRB,1.7940E-01_JPRB,&
+ & 1.9528E-01_JPRB,2.2516E-01_JPRB,4.0079E-01_JPRB/)  
+KAO( :, 1,13,15) = (/&
+ & 3.5411E-01_JPRB,3.0986E-01_JPRB,2.6562E-01_JPRB,2.2137E-01_JPRB,1.7962E-01_JPRB,1.4841E-01_JPRB,&
+ & 1.1804E-01_JPRB,1.0632E-01_JPRB,4.1876E-01_JPRB/)  
+KAO( :, 2,13,15) = (/&
+ & 3.5164E-01_JPRB,3.0771E-01_JPRB,2.6377E-01_JPRB,2.2010E-01_JPRB,1.8598E-01_JPRB,1.5750E-01_JPRB,&
+ & 1.3321E-01_JPRB,1.3429E-01_JPRB,4.1787E-01_JPRB/)  
+KAO( :, 3,13,15) = (/&
+ & 3.4820E-01_JPRB,3.0469E-01_JPRB,2.6119E-01_JPRB,2.2112E-01_JPRB,1.9338E-01_JPRB,1.6728E-01_JPRB,&
+ & 1.5455E-01_JPRB,1.6711E-01_JPRB,4.2377E-01_JPRB/)  
+KAO( :, 4,13,15) = (/&
+ & 3.4395E-01_JPRB,3.0097E-01_JPRB,2.5812E-01_JPRB,2.2469E-01_JPRB,2.0035E-01_JPRB,1.7975E-01_JPRB,&
+ & 1.8098E-01_JPRB,2.0337E-01_JPRB,4.2831E-01_JPRB/)  
+KAO( :, 5,13,15) = (/&
+ & 3.3896E-01_JPRB,2.9661E-01_JPRB,2.5572E-01_JPRB,2.2897E-01_JPRB,2.0809E-01_JPRB,1.9725E-01_JPRB,&
+ & 2.1144E-01_JPRB,2.4250E-01_JPRB,4.3491E-01_JPRB/)  
+KAO( :, 1, 1,16) = (/&
+ & 9.7171E-02_JPRB,8.5148E-02_JPRB,7.3125E-02_JPRB,6.1102E-02_JPRB,7.6485E-02_JPRB,9.5172E-02_JPRB,&
+ & 1.1335E-01_JPRB,1.2955E-01_JPRB,1.4355E-01_JPRB/)  
+KAO( :, 2, 1,16) = (/&
+ & 9.4236E-02_JPRB,8.2602E-02_JPRB,7.0968E-02_JPRB,6.8035E-02_JPRB,9.0374E-02_JPRB,1.1244E-01_JPRB,&
+ & 1.3393E-01_JPRB,1.5311E-01_JPRB,1.6974E-01_JPRB/)  
+KAO( :, 3, 1,16) = (/&
+ & 9.1543E-02_JPRB,8.0273E-02_JPRB,6.9003E-02_JPRB,7.8791E-02_JPRB,1.0469E-01_JPRB,1.3025E-01_JPRB,&
+ & 1.5519E-01_JPRB,1.7738E-01_JPRB,1.9670E-01_JPRB/)  
+KAO( :, 4, 1,16) = (/&
+ & 8.8644E-02_JPRB,7.7768E-02_JPRB,6.6893E-02_JPRB,8.9756E-02_JPRB,1.1926E-01_JPRB,1.4844E-01_JPRB,&
+ & 1.7683E-01_JPRB,2.0215E-01_JPRB,2.2416E-01_JPRB/)  
+KAO( :, 5, 1,16) = (/&
+ & 8.6144E-02_JPRB,7.5584E-02_JPRB,6.7875E-02_JPRB,1.0078E-01_JPRB,1.3394E-01_JPRB,1.6670E-01_JPRB,&
+ & 1.9859E-01_JPRB,2.2714E-01_JPRB,2.5185E-01_JPRB/)  
+KAO( :, 1, 2,16) = (/&
+ & 1.1053E-01_JPRB,9.6812E-02_JPRB,8.3097E-02_JPRB,6.9381E-02_JPRB,8.5062E-02_JPRB,1.0587E-01_JPRB,&
+ & 1.2610E-01_JPRB,1.4420E-01_JPRB,1.6344E-01_JPRB/)  
+KAO( :, 2, 2,16) = (/&
+ & 1.0742E-01_JPRB,9.4110E-02_JPRB,8.0803E-02_JPRB,7.6274E-02_JPRB,1.0134E-01_JPRB,1.2610E-01_JPRB,&
+ & 1.5024E-01_JPRB,1.7183E-01_JPRB,1.9478E-01_JPRB/)  
+KAO( :, 3, 2,16) = (/&
+ & 1.0452E-01_JPRB,9.1604E-02_JPRB,7.8683E-02_JPRB,8.8937E-02_JPRB,1.1819E-01_JPRB,1.4709E-01_JPRB,&
+ & 1.7526E-01_JPRB,2.0044E-01_JPRB,2.2725E-01_JPRB/)  
+KAO( :, 4, 2,16) = (/&
+ & 1.0156E-01_JPRB,8.9034E-02_JPRB,7.6513E-02_JPRB,1.0188E-01_JPRB,1.3537E-01_JPRB,1.6848E-01_JPRB,&
+ & 2.0078E-01_JPRB,2.2973E-01_JPRB,2.6038E-01_JPRB/)  
+KAO( :, 5, 2,16) = (/&
+ & 9.9221E-02_JPRB,8.6974E-02_JPRB,7.8015E-02_JPRB,1.1491E-01_JPRB,1.5271E-01_JPRB,1.9010E-01_JPRB,&
+ & 2.2653E-01_JPRB,2.5922E-01_JPRB,2.9391E-01_JPRB/)  
+KAO( :, 1, 3,16) = (/&
+ & 1.2741E-01_JPRB,1.1157E-01_JPRB,9.5716E-02_JPRB,7.9867E-02_JPRB,9.0261E-02_JPRB,1.1233E-01_JPRB,&
+ & 1.3379E-01_JPRB,1.5315E-01_JPRB,1.7733E-01_JPRB/)  
+KAO( :, 2, 3,16) = (/&
+ & 1.2407E-01_JPRB,1.0865E-01_JPRB,9.3240E-02_JPRB,8.3066E-02_JPRB,1.0895E-01_JPRB,1.3559E-01_JPRB,&
+ & 1.6159E-01_JPRB,1.8497E-01_JPRB,2.1412E-01_JPRB/)  
+KAO( :, 3, 3,16) = (/&
+ & 1.2077E-01_JPRB,1.0579E-01_JPRB,9.0806E-02_JPRB,9.6664E-02_JPRB,1.2848E-01_JPRB,1.5988E-01_JPRB,&
+ & 1.9057E-01_JPRB,2.1812E-01_JPRB,2.5248E-01_JPRB/)  
+KAO( :, 4, 3,16) = (/&
+ & 1.1796E-01_JPRB,1.0334E-01_JPRB,8.8711E-02_JPRB,1.1167E-01_JPRB,1.4847E-01_JPRB,1.8483E-01_JPRB,&
+ & 2.2029E-01_JPRB,2.5232E-01_JPRB,2.9201E-01_JPRB/)  
+KAO( :, 5, 3,16) = (/&
+ & 1.1579E-01_JPRB,1.0144E-01_JPRB,8.8938E-02_JPRB,1.2695E-01_JPRB,1.6868E-01_JPRB,2.1009E-01_JPRB,&
+ & 2.5050E-01_JPRB,2.8682E-01_JPRB,3.3195E-01_JPRB/)  
+KAO( :, 1, 4,16) = (/&
+ & 1.4795E-01_JPRB,1.2951E-01_JPRB,1.1108E-01_JPRB,9.2642E-02_JPRB,9.3362E-02_JPRB,1.1620E-01_JPRB,&
+ & 1.3849E-01_JPRB,1.5859E-01_JPRB,1.8531E-01_JPRB/)  
+KAO( :, 2, 4,16) = (/&
+ & 1.4437E-01_JPRB,1.2639E-01_JPRB,1.0842E-01_JPRB,9.2423E-02_JPRB,1.1442E-01_JPRB,1.4252E-01_JPRB,&
+ & 1.6987E-01_JPRB,1.9459E-01_JPRB,2.2738E-01_JPRB/)  
+KAO( :, 3, 4,16) = (/&
+ & 1.4082E-01_JPRB,1.2330E-01_JPRB,1.0578E-01_JPRB,1.0327E-01_JPRB,1.3669E-01_JPRB,1.7021E-01_JPRB,&
+ & 2.0291E-01_JPRB,2.3254E-01_JPRB,2.7168E-01_JPRB/)  
+KAO( :, 4, 4,16) = (/&
+ & 1.3812E-01_JPRB,1.2094E-01_JPRB,1.0376E-01_JPRB,1.2016E-01_JPRB,1.5971E-01_JPRB,1.9884E-01_JPRB,&
+ & 2.3712E-01_JPRB,2.7173E-01_JPRB,3.1737E-01_JPRB/)  
+KAO( :, 5, 4,16) = (/&
+ & 1.3617E-01_JPRB,1.1924E-01_JPRB,1.0266E-01_JPRB,1.3775E-01_JPRB,1.8312E-01_JPRB,2.2801E-01_JPRB,&
+ & 2.7185E-01_JPRB,3.1180E-01_JPRB,3.6388E-01_JPRB/)  
+KAO( :, 1, 5,16) = (/&
+ & 1.7254E-01_JPRB,1.5104E-01_JPRB,1.2954E-01_JPRB,1.0804E-01_JPRB,9.7033E-02_JPRB,1.1821E-01_JPRB,&
+ & 1.4096E-01_JPRB,1.6165E-01_JPRB,1.8940E-01_JPRB/)  
+KAO( :, 2, 5,16) = (/&
+ & 1.6864E-01_JPRB,1.4763E-01_JPRB,1.2663E-01_JPRB,1.0583E-01_JPRB,1.1845E-01_JPRB,1.4755E-01_JPRB,&
+ & 1.7593E-01_JPRB,2.0174E-01_JPRB,2.3625E-01_JPRB/)  
+KAO( :, 3, 5,16) = (/&
+ & 1.6515E-01_JPRB,1.4456E-01_JPRB,1.2397E-01_JPRB,1.1290E-01_JPRB,1.4346E-01_JPRB,1.7861E-01_JPRB,&
+ & 2.1302E-01_JPRB,2.4445E-01_JPRB,2.8621E-01_JPRB/)  
+KAO( :, 4, 5,16) = (/&
+ & 1.6266E-01_JPRB,1.4239E-01_JPRB,1.2212E-01_JPRB,1.2793E-01_JPRB,1.6939E-01_JPRB,2.1102E-01_JPRB,&
+ & 2.5177E-01_JPRB,2.8892E-01_JPRB,3.3809E-01_JPRB/)  
+KAO( :, 5, 5,16) = (/&
+ & 1.6070E-01_JPRB,1.4068E-01_JPRB,1.2066E-01_JPRB,1.4743E-01_JPRB,1.9603E-01_JPRB,2.4421E-01_JPRB,&
+ & 2.9142E-01_JPRB,3.3457E-01_JPRB,3.9133E-01_JPRB/)  
+KAO( :, 1, 6,16) = (/&
+ & 2.0388E-01_JPRB,1.7849E-01_JPRB,1.5310E-01_JPRB,1.2771E-01_JPRB,1.0526E-01_JPRB,1.1860E-01_JPRB,&
+ & 1.4142E-01_JPRB,1.6203E-01_JPRB,1.9043E-01_JPRB/)  
+KAO( :, 2, 6,16) = (/&
+ & 1.9953E-01_JPRB,1.7470E-01_JPRB,1.4986E-01_JPRB,1.2501E-01_JPRB,1.2166E-01_JPRB,1.5016E-01_JPRB,&
+ & 1.7907E-01_JPRB,2.0547E-01_JPRB,2.4111E-01_JPRB/)  
+KAO( :, 3, 6,16) = (/&
+ & 1.9494E-01_JPRB,1.7068E-01_JPRB,1.4642E-01_JPRB,1.2626E-01_JPRB,1.4789E-01_JPRB,1.8422E-01_JPRB,&
+ & 2.1980E-01_JPRB,2.5220E-01_JPRB,2.9578E-01_JPRB/)  
+KAO( :, 4, 6,16) = (/&
+ & 1.9206E-01_JPRB,1.6810E-01_JPRB,1.4414E-01_JPRB,1.3841E-01_JPRB,1.7663E-01_JPRB,2.1999E-01_JPRB,&
+ & 2.6255E-01_JPRB,3.0157E-01_JPRB,3.5331E-01_JPRB/)  
+KAO( :, 5, 6,16) = (/&
+ & 1.9005E-01_JPRB,1.6635E-01_JPRB,1.4264E-01_JPRB,1.5606E-01_JPRB,2.0643E-01_JPRB,2.5713E-01_JPRB,&
+ & 3.0687E-01_JPRB,3.5252E-01_JPRB,4.1278E-01_JPRB/)  
+KAO( :, 1, 7,16) = (/&
+ & 2.4312E-01_JPRB,2.1282E-01_JPRB,1.8252E-01_JPRB,1.5222E-01_JPRB,1.2192E-01_JPRB,1.1888E-01_JPRB,&
+ & 1.4174E-01_JPRB,1.6248E-01_JPRB,1.9115E-01_JPRB/)  
+KAO( :, 2, 7,16) = (/&
+ & 2.3797E-01_JPRB,2.0832E-01_JPRB,1.7867E-01_JPRB,1.4904E-01_JPRB,1.2994E-01_JPRB,1.5302E-01_JPRB,&
+ & 1.8249E-01_JPRB,2.0929E-01_JPRB,2.4599E-01_JPRB/)  
+KAO( :, 3, 7,16) = (/&
+ & 2.3255E-01_JPRB,2.0359E-01_JPRB,1.7463E-01_JPRB,1.4575E-01_JPRB,1.5275E-01_JPRB,1.9023E-01_JPRB,&
+ & 2.2691E-01_JPRB,2.6041E-01_JPRB,3.0584E-01_JPRB/)  
+KAO( :, 4, 7,16) = (/&
+ & 2.2807E-01_JPRB,1.9965E-01_JPRB,1.7122E-01_JPRB,1.5317E-01_JPRB,1.8432E-01_JPRB,2.2969E-01_JPRB,&
+ & 2.7402E-01_JPRB,3.1471E-01_JPRB,3.6920E-01_JPRB/)  
+KAO( :, 5, 7,16) = (/&
+ & 2.2498E-01_JPRB,1.9692E-01_JPRB,1.6887E-01_JPRB,1.6865E-01_JPRB,2.1725E-01_JPRB,2.7068E-01_JPRB,&
+ & 3.2308E-01_JPRB,3.7116E-01_JPRB,4.3516E-01_JPRB/)  
+KAO( :, 1, 8,16) = (/&
+ & 2.9068E-01_JPRB,2.5442E-01_JPRB,2.1816E-01_JPRB,1.8190E-01_JPRB,1.4564E-01_JPRB,1.2041E-01_JPRB,&
+ & 1.4177E-01_JPRB,1.6257E-01_JPRB,1.9124E-01_JPRB/)  
+KAO( :, 2, 8,16) = (/&
+ & 2.8457E-01_JPRB,2.4908E-01_JPRB,2.1359E-01_JPRB,1.7807E-01_JPRB,1.4515E-01_JPRB,1.5579E-01_JPRB,&
+ & 1.8584E-01_JPRB,2.1331E-01_JPRB,2.5071E-01_JPRB/)  
+KAO( :, 3, 8,16) = (/&
+ & 2.7790E-01_JPRB,2.4325E-01_JPRB,2.0861E-01_JPRB,1.7396E-01_JPRB,1.6105E-01_JPRB,1.9656E-01_JPRB,&
+ & 2.3447E-01_JPRB,2.6926E-01_JPRB,3.1620E-01_JPRB/)  
+KAO( :, 4, 8,16) = (/&
+ & 2.7204E-01_JPRB,2.3812E-01_JPRB,2.0420E-01_JPRB,1.7391E-01_JPRB,1.9266E-01_JPRB,2.4008E-01_JPRB,&
+ & 2.8658E-01_JPRB,3.2922E-01_JPRB,3.8634E-01_JPRB/)  
+KAO( :, 5, 8,16) = (/&
+ & 2.6773E-01_JPRB,2.3434E-01_JPRB,2.0095E-01_JPRB,1.8582E-01_JPRB,2.2918E-01_JPRB,2.8567E-01_JPRB,&
+ & 3.4098E-01_JPRB,3.9189E-01_JPRB,4.5943E-01_JPRB/)  
+KAO( :, 1, 9,16) = (/&
+ & 3.4732E-01_JPRB,3.0397E-01_JPRB,2.6061E-01_JPRB,2.1726E-01_JPRB,1.7390E-01_JPRB,1.3271E-01_JPRB,&
+ & 1.4035E-01_JPRB,1.6109E-01_JPRB,1.8937E-01_JPRB/)  
+KAO( :, 2, 9,16) = (/&
+ & 3.3981E-01_JPRB,2.9740E-01_JPRB,2.5499E-01_JPRB,2.1257E-01_JPRB,1.7017E-01_JPRB,1.5746E-01_JPRB,&
+ & 1.8783E-01_JPRB,2.1574E-01_JPRB,2.5330E-01_JPRB/)  
+KAO( :, 3, 9,16) = (/&
+ & 3.3164E-01_JPRB,2.9026E-01_JPRB,2.4888E-01_JPRB,2.0750E-01_JPRB,1.7718E-01_JPRB,2.0179E-01_JPRB,&
+ & 2.4086E-01_JPRB,2.7675E-01_JPRB,3.2472E-01_JPRB/)  
+KAO( :, 4, 9,16) = (/&
+ & 3.2434E-01_JPRB,2.8387E-01_JPRB,2.4340E-01_JPRB,2.0299E-01_JPRB,2.0166E-01_JPRB,2.4979E-01_JPRB,&
+ & 2.9816E-01_JPRB,3.4279E-01_JPRB,4.0187E-01_JPRB/)  
+KAO( :, 5, 9,16) = (/&
+ & 3.1856E-01_JPRB,2.7881E-01_JPRB,2.3907E-01_JPRB,2.0909E-01_JPRB,2.4079E-01_JPRB,3.0025E-01_JPRB,&
+ & 3.5852E-01_JPRB,4.1238E-01_JPRB,4.8294E-01_JPRB/)  
+KAO( :, 1,10,16) = (/&
+ & 4.1296E-01_JPRB,3.6138E-01_JPRB,3.0981E-01_JPRB,2.5823E-01_JPRB,2.0667E-01_JPRB,1.5510E-01_JPRB,&
+ & 1.4272E-01_JPRB,1.6382E-01_JPRB,1.9375E-01_JPRB/)  
+KAO( :, 2,10,16) = (/&
+ & 4.0355E-01_JPRB,3.5316E-01_JPRB,3.0277E-01_JPRB,2.5237E-01_JPRB,2.0198E-01_JPRB,1.6688E-01_JPRB,&
+ & 1.9258E-01_JPRB,2.2130E-01_JPRB,2.5965E-01_JPRB/)  
+KAO( :, 3,10,16) = (/&
+ & 3.9334E-01_JPRB,3.4423E-01_JPRB,2.9512E-01_JPRB,2.4601E-01_JPRB,2.0198E-01_JPRB,2.0922E-01_JPRB,&
+ & 2.4978E-01_JPRB,2.8734E-01_JPRB,3.3649E-01_JPRB/)  
+KAO( :, 4,10,16) = (/&
+ & 3.8468E-01_JPRB,3.3665E-01_JPRB,2.8862E-01_JPRB,2.4064E-01_JPRB,2.1892E-01_JPRB,2.6187E-01_JPRB,&
+ & 3.1276E-01_JPRB,3.6003E-01_JPRB,4.2127E-01_JPRB/)  
+KAO( :, 5,10,16) = (/&
+ & 3.7732E-01_JPRB,3.3021E-01_JPRB,2.8310E-01_JPRB,2.4052E-01_JPRB,2.5525E-01_JPRB,3.1772E-01_JPRB,&
+ & 3.7953E-01_JPRB,4.3694E-01_JPRB,5.1089E-01_JPRB/)  
+KAO( :, 1,11,16) = (/&
+ & 4.8302E-01_JPRB,4.2268E-01_JPRB,3.6234E-01_JPRB,3.0200E-01_JPRB,2.4165E-01_JPRB,1.8151E-01_JPRB,&
+ & 1.6877E-01_JPRB,1.9388E-01_JPRB,3.3421E-01_JPRB/)  
+KAO( :, 2,11,16) = (/&
+ & 4.7050E-01_JPRB,4.1173E-01_JPRB,3.5296E-01_JPRB,2.9420E-01_JPRB,2.3543E-01_JPRB,1.9660E-01_JPRB,&
+ & 2.2543E-01_JPRB,2.5921E-01_JPRB,3.3179E-01_JPRB/)  
+KAO( :, 3,11,16) = (/&
+ & 4.5896E-01_JPRB,4.0163E-01_JPRB,3.4431E-01_JPRB,2.8698E-01_JPRB,2.3627E-01_JPRB,2.4234E-01_JPRB,&
+ & 2.8945E-01_JPRB,3.3305E-01_JPRB,3.8992E-01_JPRB/)  
+KAO( :, 4,11,16) = (/&
+ & 4.4916E-01_JPRB,3.9306E-01_JPRB,3.3696E-01_JPRB,2.8088E-01_JPRB,2.5515E-01_JPRB,3.0073E-01_JPRB,&
+ & 3.5922E-01_JPRB,4.1373E-01_JPRB,4.8361E-01_JPRB/)  
+KAO( :, 5,11,16) = (/&
+ & 4.3990E-01_JPRB,3.8496E-01_JPRB,3.3001E-01_JPRB,2.8070E-01_JPRB,2.9324E-01_JPRB,3.6251E-01_JPRB,&
+ & 4.3320E-01_JPRB,4.9939E-01_JPRB,5.8288E-01_JPRB/)  
+KAO( :, 1,12,16) = (/&
+ & 5.5949E-01_JPRB,4.8959E-01_JPRB,4.1968E-01_JPRB,3.4978E-01_JPRB,2.7990E-01_JPRB,2.1117E-01_JPRB,&
+ & 1.9846E-01_JPRB,2.2823E-01_JPRB,4.6485E-01_JPRB/)  
+KAO( :, 2,12,16) = (/&
+ & 5.4466E-01_JPRB,4.7661E-01_JPRB,4.0856E-01_JPRB,3.4053E-01_JPRB,2.7248E-01_JPRB,2.3023E-01_JPRB,&
+ & 2.6289E-01_JPRB,3.0262E-01_JPRB,4.5843E-01_JPRB/)  
+KAO( :, 3,12,16) = (/&
+ & 5.3198E-01_JPRB,4.6551E-01_JPRB,3.9905E-01_JPRB,3.3259E-01_JPRB,2.7378E-01_JPRB,2.8016E-01_JPRB,&
+ & 3.3471E-01_JPRB,3.8547E-01_JPRB,4.7894E-01_JPRB/)  
+KAO( :, 4,12,16) = (/&
+ & 5.2001E-01_JPRB,4.5505E-01_JPRB,3.9008E-01_JPRB,3.2510E-01_JPRB,2.9551E-01_JPRB,3.4473E-01_JPRB,&
+ & 4.1193E-01_JPRB,4.7482E-01_JPRB,5.5483E-01_JPRB/)  
+KAO( :, 5,12,16) = (/&
+ & 5.0915E-01_JPRB,4.4554E-01_JPRB,3.8193E-01_JPRB,3.2460E-01_JPRB,3.3469E-01_JPRB,4.1244E-01_JPRB,&
+ & 4.9294E-01_JPRB,5.6854E-01_JPRB,6.6308E-01_JPRB/)  
+KAO( :, 1,13,16) = (/&
+ & 6.4209E-01_JPRB,5.6185E-01_JPRB,4.8161E-01_JPRB,4.0138E-01_JPRB,3.2111E-01_JPRB,2.4405E-01_JPRB,&
+ & 2.3126E-01_JPRB,2.6629E-01_JPRB,5.1031E-01_JPRB/)  
+KAO( :, 2,13,16) = (/&
+ & 6.2605E-01_JPRB,5.4782E-01_JPRB,4.6959E-01_JPRB,3.9135E-01_JPRB,3.1312E-01_JPRB,2.6752E-01_JPRB,&
+ & 3.0417E-01_JPRB,3.5056E-01_JPRB,5.0701E-01_JPRB/)  
+KAO( :, 3,13,16) = (/&
+ & 6.1094E-01_JPRB,5.3460E-01_JPRB,4.5826E-01_JPRB,3.8192E-01_JPRB,3.1501E-01_JPRB,3.2162E-01_JPRB,&
+ & 3.8441E-01_JPRB,4.4331E-01_JPRB,5.4185E-01_JPRB/)  
+KAO( :, 4,13,16) = (/&
+ & 5.9718E-01_JPRB,5.2256E-01_JPRB,4.4794E-01_JPRB,3.7327E-01_JPRB,3.3928E-01_JPRB,3.9296E-01_JPRB,&
+ & 4.6976E-01_JPRB,5.4198E-01_JPRB,6.3180E-01_JPRB/)  
+KAO( :, 5,13,16) = (/&
+ & 5.8381E-01_JPRB,5.1086E-01_JPRB,4.3791E-01_JPRB,3.7153E-01_JPRB,3.7939E-01_JPRB,4.6700E-01_JPRB,&
+ & 5.5841E-01_JPRB,6.4458E-01_JPRB,7.5053E-01_JPRB/)  
+
+!     The array SELFREFO contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+SELFREFO( :, 1) = (/&
+ & 1.26476E-03_JPRB, 1.04962E-03_JPRB, 8.71080E-04_JPRB, 7.22907E-04_JPRB, 5.99939E-04_JPRB,&
+ & 4.97888E-04_JPRB, 4.13197E-04_JPRB, 3.42911E-04_JPRB, 2.84581E-04_JPRB, 2.36173E-04_JPRB/)  
+SELFREFO( :, 2) = (/&
+ & 1.27380E-03_JPRB, 1.05867E-03_JPRB, 8.79870E-04_JPRB, 7.31270E-04_JPRB, 6.07767E-04_JPRB,&
+ & 5.05121E-04_JPRB, 4.19812E-04_JPRB, 3.48911E-04_JPRB, 2.89983E-04_JPRB, 2.41008E-04_JPRB/)  
+SELFREFO( :, 3) = (/&
+ & 1.26332E-03_JPRB, 1.05867E-03_JPRB, 8.87172E-04_JPRB, 7.43454E-04_JPRB, 6.23018E-04_JPRB,&
+ & 5.22092E-04_JPRB, 4.37515E-04_JPRB, 3.66640E-04_JPRB, 3.07246E-04_JPRB, 2.57474E-04_JPRB/)  
+SELFREFO( :, 4) = (/&
+ & 1.28078E-03_JPRB, 1.07802E-03_JPRB, 9.07363E-04_JPRB, 7.63722E-04_JPRB, 6.42820E-04_JPRB,&
+ & 5.41057E-04_JPRB, 4.55404E-04_JPRB, 3.83311E-04_JPRB, 3.22630E-04_JPRB, 2.71556E-04_JPRB/)  
+SELFREFO( :, 5) = (/&
+ & 1.61188E-03_JPRB, 1.32375E-03_JPRB, 1.08712E-03_JPRB, 8.92794E-04_JPRB, 7.33203E-04_JPRB,&
+ & 6.02140E-04_JPRB, 4.94505E-04_JPRB, 4.06110E-04_JPRB, 3.33516E-04_JPRB, 2.73898E-04_JPRB/)  
+SELFREFO( :, 6) = (/&
+ & 1.42549E-03_JPRB, 1.25964E-03_JPRB, 1.11309E-03_JPRB, 9.83595E-04_JPRB, 8.69162E-04_JPRB,&
+ & 7.68043E-04_JPRB, 6.78688E-04_JPRB, 5.99728E-04_JPRB, 5.29955E-04_JPRB, 4.68299E-04_JPRB/)  
+SELFREFO( :, 7) = (/&
+ & 1.43253E-03_JPRB, 1.28535E-03_JPRB, 1.15330E-03_JPRB, 1.03480E-03_JPRB, 9.28488E-04_JPRB,&
+ & 8.33094E-04_JPRB, 7.47501E-04_JPRB, 6.70702E-04_JPRB, 6.01794E-04_JPRB, 5.39965E-04_JPRB/)  
+SELFREFO( :, 8) = (/&
+ & 1.48973E-03_JPRB, 1.33348E-03_JPRB, 1.19363E-03_JPRB, 1.06844E-03_JPRB, 9.56378E-04_JPRB,&
+ & 8.56072E-04_JPRB, 7.66286E-04_JPRB, 6.85918E-04_JPRB, 6.13978E-04_JPRB, 5.49583E-04_JPRB/)  
+SELFREFO( :, 9) = (/&
+ & 1.53002E-03_JPRB, 1.44607E-03_JPRB, 1.36674E-03_JPRB, 1.29175E-03_JPRB, 1.22088E-03_JPRB,&
+ & 1.15390E-03_JPRB, 1.09059E-03_JPRB, 1.03076E-03_JPRB, 9.74209E-04_JPRB, 9.20760E-04_JPRB/)  
+SELFREFO( :,10) = (/&
+ & 1.78480E-03_JPRB, 1.68865E-03_JPRB, 1.59768E-03_JPRB, 1.51161E-03_JPRB, 1.43018E-03_JPRB,&
+ & 1.35313E-03_JPRB, 1.28023E-03_JPRB, 1.21126E-03_JPRB, 1.14601E-03_JPRB, 1.08427E-03_JPRB/)  
+SELFREFO( :,11) = (/&
+ & 1.85121E-03_JPRB, 1.73903E-03_JPRB, 1.63364E-03_JPRB, 1.53464E-03_JPRB, 1.44164E-03_JPRB,&
+ & 1.35427E-03_JPRB, 1.27220E-03_JPRB, 1.19510E-03_JPRB, 1.12268E-03_JPRB, 1.05464E-03_JPRB/)  
+SELFREFO( :,12) = (/&
+ & 2.10772E-03_JPRB, 1.96994E-03_JPRB, 1.84118E-03_JPRB, 1.72082E-03_JPRB, 1.60834E-03_JPRB,&
+ & 1.50321E-03_JPRB, 1.40495E-03_JPRB, 1.31311E-03_JPRB, 1.22728E-03_JPRB, 1.14705E-03_JPRB/)  
+SELFREFO( :,13) = (/&
+ & 1.99323E-03_JPRB, 1.89279E-03_JPRB, 1.79741E-03_JPRB, 1.70684E-03_JPRB, 1.62083E-03_JPRB,&
+ & 1.53915E-03_JPRB, 1.46159E-03_JPRB, 1.38794E-03_JPRB, 1.31800E-03_JPRB, 1.25159E-03_JPRB/)  
+SELFREFO( :,14) = (/&
+ & 2.05835E-03_JPRB, 1.93301E-03_JPRB, 1.81529E-03_JPRB, 1.70475E-03_JPRB, 1.60093E-03_JPRB,&
+ & 1.50344E-03_JPRB, 1.41189E-03_JPRB, 1.32591E-03_JPRB, 1.24516E-03_JPRB, 1.16934E-03_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART11',1,ZHOOK_HANDLE)
+END SUBROUTINE PART11
+
+
+SUBROUTINE PART12
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART12',0,ZHOOK_HANDLE)
+
+
+SELFREFO( :,15) = (/&
+ & 2.34120E-03_JPRB, 2.20012E-03_JPRB, 2.06754E-03_JPRB, 1.94295E-03_JPRB, 1.82587E-03_JPRB,&
+ & 1.71585E-03_JPRB, 1.61245E-03_JPRB, 1.51529E-03_JPRB, 1.42398E-03_JPRB, 1.33817E-03_JPRB/)  
+SELFREFO( :,16) = (/&
+ & 3.03559E-03_JPRB, 2.80023E-03_JPRB, 2.58312E-03_JPRB, 2.38284E-03_JPRB, 2.19809E-03_JPRB,&
+ & 2.02767E-03_JPRB, 1.87045E-03_JPRB, 1.72543E-03_JPRB, 1.59165E-03_JPRB, 1.46825E-03_JPRB/)  
+
+FRACREFAO( :, 1) = (/&
+ !     From P = 862.6 mb.
+ & 0.17356300_JPRB,0.18880001_JPRB,0.17704099_JPRB,0.13661300_JPRB,&
+ & 0.10691600_JPRB,0.08222480_JPRB,0.05939860_JPRB,0.04230810_JPRB,&
+ & 0.02526330_JPRB,0.00244532_JPRB,0.00193541_JPRB,0.00150415_JPRB,&
+ & 0.00103528_JPRB,0.00067068_JPRB,0.00024951_JPRB,0.00003348_JPRB/)  
+FRACREFAO( :, 2) = (/&
+ & 0.17779499_JPRB,0.19837400_JPRB,0.16557600_JPRB,0.13470000_JPRB,&
+ & 0.11013600_JPRB,0.08342720_JPRB,0.05987030_JPRB,0.03938700_JPRB,&
+ & 0.02293650_JPRB,0.00238849_JPRB,0.00192400_JPRB,0.00149921_JPRB,&
+ & 0.00103539_JPRB,0.00067150_JPRB,0.00024822_JPRB,0.00003348_JPRB/)  
+FRACREFAO( :, 3) = (/&
+ & 0.18535601_JPRB,0.19407199_JPRB,0.16053200_JPRB,0.13300700_JPRB,&
+ & 0.10779000_JPRB,0.08408500_JPRB,0.06480450_JPRB,0.04070160_JPRB,&
+ & 0.02203590_JPRB,0.00227779_JPRB,0.00189074_JPRB,0.00146888_JPRB,&
+ & 0.00103147_JPRB,0.00066770_JPRB,0.00024751_JPRB,0.00003348_JPRB/)  
+FRACREFAO( :, 4) = (/&
+ & 0.19139200_JPRB,0.18917400_JPRB,0.15748601_JPRB,0.13240699_JPRB,&
+ & 0.10557300_JPRB,0.08383260_JPRB,0.06724060_JPRB,0.04364450_JPRB,&
+ & 0.02175820_JPRB,0.00225436_JPRB,0.00184421_JPRB,0.00143153_JPRB,&
+ & 0.00103027_JPRB,0.00066066_JPRB,0.00024222_JPRB,0.00003148_JPRB/)  
+FRACREFAO( :, 5) = (/&
+ & 0.19547801_JPRB,0.18539500_JPRB,0.15442000_JPRB,0.13114899_JPRB,&
+ & 0.10515600_JPRB,0.08350350_JPRB,0.06909780_JPRB,0.04671630_JPRB,&
+ & 0.02168820_JPRB,0.00224400_JPRB,0.00182009_JPRB,0.00139098_JPRB,&
+ & 0.00102582_JPRB,0.00065367_JPRB,0.00023202_JPRB,0.00003148_JPRB/)  
+FRACREFAO( :, 6) = (/&
+ & 0.19757500_JPRB,0.18266800_JPRB,0.15208900_JPRB,0.12897800_JPRB,&
+ & 0.10637200_JPRB,0.08391220_JPRB,0.06989830_JPRB,0.04964120_JPRB,&
+ & 0.02155800_JPRB,0.00224310_JPRB,0.00177358_JPRB,0.00138184_JPRB,&
+ & 0.00101538_JPRB,0.00063370_JPRB,0.00023227_JPRB,0.00003148_JPRB/)  
+FRACREFAO( :, 7) = (/&
+ & 0.20145500_JPRB,0.17692900_JPRB,0.14940600_JPRB,0.12690400_JPRB,&
+ & 0.10828800_JPRB,0.08553720_JPRB,0.07004940_JPRB,0.05153430_JPRB,&
+ & 0.02268740_JPRB,0.00216943_JPRB,0.00178603_JPRB,0.00137754_JPRB,&
+ & 0.00098344_JPRB,0.00063165_JPRB,0.00023218_JPRB,0.00003148_JPRB/)  
+FRACREFAO( :, 8) = (/&
+ & 0.20383500_JPRB,0.17047501_JPRB,0.14570600_JPRB,0.12679300_JPRB,&
+ & 0.11043100_JPRB,0.08719150_JPRB,0.07045440_JPRB,0.05345420_JPRB,&
+ & 0.02448340_JPRB,0.00215839_JPRB,0.00175893_JPRB,0.00138296_JPRB,&
+ & 0.00098318_JPRB,0.00063188_JPRB,0.00023199_JPRB,0.00003148_JPRB/)  
+FRACREFAO( :, 9) = (/&
+ & 0.18680701_JPRB,0.15961801_JPRB,0.15092900_JPRB,0.13049100_JPRB,&
+ & 0.11418400_JPRB,0.09380540_JPRB,0.07093450_JPRB,0.05664280_JPRB,&
+ & 0.02938410_JPRB,0.00217751_JPRB,0.00176766_JPRB,0.00138275_JPRB,&
+ & 0.00098377_JPRB,0.00063181_JPRB,0.00023193_JPRB,0.00003148_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB16:PART12',1,ZHOOK_HANDLE)
+END SUBROUTINE PART12
+
+
+END SUBROUTINE RRTM_KGB16
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb16.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb16.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb16.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_KGB16
+END SUBROUTINE RRTM_KGB16
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb2.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb2.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb2.F90	(revision 1989)
@@ -0,0 +1,2224 @@
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!OCL SCALAR
+!pgi$r opt=0 
+SUBROUTINE RRTM_KGB2
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 2:  250-500 cm-1 (low - H2O; high - H2O)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     R. Elkhatib 12-10-2005 Split for faster and more robust compilation.
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO2 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+ & FRACREFBO  ,FORREFO  
+USE YOERRTA2 , ONLY : REFPARAM
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB2',0,ZHOOK_HANDLE)
+
+CALL PART1
+CALL PART2
+CALL PART3
+CALL PART4
+CALL PART5
+CALL PART6
+CALL PART7
+CALL PART8
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB2',1,ZHOOK_HANDLE)
+
+!     -----------------------------------------------------------------
+
+CONTAINS
+
+
+SUBROUTINE PART1
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART1',0,ZHOOK_HANDLE)
+
+
+FRACREFBO( :) = (/&
+ !     From P = 0.432 mb.
+ & 0.17444289_JPRB,0.16467269_JPRB,0.15021490_JPRB,0.12460902_JPRB,&
+ & 0.10400643_JPRB,0.09481928_JPRB,0.07590704_JPRB,0.05752856_JPRB,&
+ & 0.03931715_JPRB,0.00428572_JPRB,0.00349352_JPRB,0.00278938_JPRB,&
+ & 0.00203448_JPRB,0.00130037_JPRB,0.00051560_JPRB,0.00006255_JPRB/)  
+
+FORREFO( :) = (/&
+ & -2.34550E-03_JPRB,-8.42698E-03_JPRB,-2.01816E-02_JPRB,-5.66701E-02_JPRB,&
+ & -8.93189E-02_JPRB,-6.37487E-02_JPRB,-4.56455E-02_JPRB,-4.41417E-02_JPRB,&
+ & -4.48605E-02_JPRB,-4.74696E-02_JPRB,-5.16648E-02_JPRB,-5.63099E-02_JPRB,&
+ & -4.74781E-02_JPRB,-3.84704E-02_JPRB,-2.49905E-02_JPRB, 2.02114E-03_JPRB/)  
+
+!     The following are parameters related to the reference water vapor
+!     mixing ratios by REFPARAM(I) = REFH2O(I) / (.002+REFH2O(I)).
+!     These parameters are used for the Planck function interpolation.
+REFPARAM( :) = (/&
+ & 0.903661_JPRB   , 0.859386_JPRB   , 0.746542_JPRB   , 0.580496_JPRB   , 0.412889_JPRB   ,&
+ & 0.275283_JPRB   , 0.162745_JPRB   , 7.63929E-02_JPRB, 1.82553E-02_JPRB, 3.72432E-03_JPRB, &
+ & 2.14946E-03_JPRB, 1.66320E-03_JPRB, 1.59940E-03_JPRB/)  
+
+!     ------------------------------------------------------------------
+
+!     The array KAO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels > ~100mb and temperatures.  The first
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the corresponding TREF for this  pressure level, 
+!     JT = 2 refers to the temperatureTREF-15, JT = 1 is for TREF-30, 
+!     JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  The second 
+!     index, JP, runs from 1 to 13 and refers to the corresponding 
+!     pressure level in PREF (e.g. JP = 1 is for a pressure of 1053.63 mb).  
+!     The third index, IG, goes from 1 to 16, and tells us which 
+!     g-interval the absorption coefficients are for.
+
+KAO( :, 1, 1) = (/&
+ & 1.4400E-02_JPRB,1.5554E-02_JPRB,1.6739E-02_JPRB,1.7961E-02_JPRB,1.9379E-02_JPRB/)  
+KAO( :, 2, 1) = (/&
+ & 1.1452E-02_JPRB,1.2288E-02_JPRB,1.3232E-02_JPRB,1.4190E-02_JPRB,1.5277E-02_JPRB/)  
+KAO( :, 3, 1) = (/&
+ & 8.9989E-03_JPRB,9.5960E-03_JPRB,1.0327E-02_JPRB,1.1068E-02_JPRB,1.1889E-02_JPRB/)  
+KAO( :, 4, 1) = (/&
+ & 7.1078E-03_JPRB,7.5424E-03_JPRB,8.0710E-03_JPRB,8.6639E-03_JPRB,9.2920E-03_JPRB/)  
+KAO( :, 5, 1) = (/&
+ & 5.6632E-03_JPRB,5.9616E-03_JPRB,6.3421E-03_JPRB,6.8076E-03_JPRB,7.2949E-03_JPRB/)  
+KAO( :, 6, 1) = (/&
+ & 4.5348E-03_JPRB,4.7267E-03_JPRB,5.0015E-03_JPRB,5.3391E-03_JPRB,5.7317E-03_JPRB/)  
+KAO( :, 7, 1) = (/&
+ & 3.6484E-03_JPRB,3.7737E-03_JPRB,3.9583E-03_JPRB,4.2050E-03_JPRB,4.5069E-03_JPRB/)  
+KAO( :, 8, 1) = (/&
+ & 2.9485E-03_JPRB,3.0305E-03_JPRB,3.1509E-03_JPRB,3.3270E-03_JPRB,3.5470E-03_JPRB/)  
+KAO( :, 9, 1) = (/&
+ & 2.4028E-03_JPRB,2.4476E-03_JPRB,2.5272E-03_JPRB,2.6456E-03_JPRB,2.8089E-03_JPRB/)  
+KAO( :,10, 1) = (/&
+ & 1.9899E-03_JPRB,2.0047E-03_JPRB,2.0583E-03_JPRB,2.1403E-03_JPRB,2.2643E-03_JPRB/)  
+KAO( :,11, 1) = (/&
+ & 1.6478E-03_JPRB,1.6593E-03_JPRB,1.7036E-03_JPRB,1.7737E-03_JPRB,1.8823E-03_JPRB/)  
+KAO( :,12, 1) = (/&
+ & 1.3599E-03_JPRB,1.3694E-03_JPRB,1.4067E-03_JPRB,1.4672E-03_JPRB,1.5617E-03_JPRB/)  
+KAO( :,13, 1) = (/&
+ & 1.1157E-03_JPRB,1.1241E-03_JPRB,1.1555E-03_JPRB,1.2073E-03_JPRB,1.2864E-03_JPRB/)  
+KAO( :, 1, 2) = (/&
+ & 3.8905E-02_JPRB,4.2429E-02_JPRB,4.6513E-02_JPRB,5.0588E-02_JPRB,5.5021E-02_JPRB/)  
+KAO( :, 2, 2) = (/&
+ & 3.0803E-02_JPRB,3.3461E-02_JPRB,3.6546E-02_JPRB,3.9922E-02_JPRB,4.3440E-02_JPRB/)  
+KAO( :, 3, 2) = (/&
+ & 2.4144E-02_JPRB,2.6019E-02_JPRB,2.8287E-02_JPRB,3.0953E-02_JPRB,3.3739E-02_JPRB/)  
+KAO( :, 4, 2) = (/&
+ & 1.9082E-02_JPRB,2.0371E-02_JPRB,2.2034E-02_JPRB,2.4014E-02_JPRB,2.6250E-02_JPRB/)  
+KAO( :, 5, 2) = (/&
+ & 1.5203E-02_JPRB,1.6092E-02_JPRB,1.7271E-02_JPRB,1.8721E-02_JPRB,2.0471E-02_JPRB/)  
+KAO( :, 6, 2) = (/&
+ & 1.2164E-02_JPRB,1.2769E-02_JPRB,1.3578E-02_JPRB,1.4643E-02_JPRB,1.5928E-02_JPRB/)  
+KAO( :, 7, 2) = (/&
+ & 9.7815E-03_JPRB,1.0186E-02_JPRB,1.0740E-02_JPRB,1.1487E-02_JPRB,1.2435E-02_JPRB/)  
+KAO( :, 8, 2) = (/&
+ & 7.9245E-03_JPRB,8.1687E-03_JPRB,8.5497E-03_JPRB,9.0644E-03_JPRB,9.7618E-03_JPRB/)  
+KAO( :, 9, 2) = (/&
+ & 6.4727E-03_JPRB,6.5836E-03_JPRB,6.8391E-03_JPRB,7.1947E-03_JPRB,7.6826E-03_JPRB/)  
+KAO( :,10, 2) = (/&
+ & 5.3240E-03_JPRB,5.3575E-03_JPRB,5.5193E-03_JPRB,5.7706E-03_JPRB,6.1166E-03_JPRB/)  
+KAO( :,11, 2) = (/&
+ & 4.3783E-03_JPRB,4.4065E-03_JPRB,4.5391E-03_JPRB,4.7453E-03_JPRB,5.0313E-03_JPRB/)  
+KAO( :,12, 2) = (/&
+ & 3.5968E-03_JPRB,3.6203E-03_JPRB,3.7298E-03_JPRB,3.8998E-03_JPRB,4.1378E-03_JPRB/)  
+KAO( :,13, 2) = (/&
+ & 2.9507E-03_JPRB,2.9704E-03_JPRB,3.0611E-03_JPRB,3.2015E-03_JPRB,3.4012E-03_JPRB/)  
+KAO( :, 1, 3) = (/&
+ & 1.0636E-01_JPRB,1.1680E-01_JPRB,1.2824E-01_JPRB,1.4017E-01_JPRB,1.5266E-01_JPRB/)  
+KAO( :, 2, 3) = (/&
+ & 8.4443E-02_JPRB,9.2480E-02_JPRB,1.0148E-01_JPRB,1.1092E-01_JPRB,1.2100E-01_JPRB/)  
+KAO( :, 3, 3) = (/&
+ & 6.5959E-02_JPRB,7.1869E-02_JPRB,7.8770E-02_JPRB,8.6250E-02_JPRB,9.4058E-02_JPRB/)  
+KAO( :, 4, 3) = (/&
+ & 5.1681E-02_JPRB,5.6029E-02_JPRB,6.1207E-02_JPRB,6.7088E-02_JPRB,7.3195E-02_JPRB/)  
+KAO( :, 5, 3) = (/&
+ & 4.0734E-02_JPRB,4.3938E-02_JPRB,4.7777E-02_JPRB,5.2288E-02_JPRB,5.7243E-02_JPRB/)  
+KAO( :, 6, 3) = (/&
+ & 3.2248E-02_JPRB,3.4534E-02_JPRB,3.7344E-02_JPRB,4.0738E-02_JPRB,4.4673E-02_JPRB/)  
+KAO( :, 7, 3) = (/&
+ & 2.5731E-02_JPRB,2.7244E-02_JPRB,2.9333E-02_JPRB,3.1849E-02_JPRB,3.4861E-02_JPRB/)  
+KAO( :, 8, 3) = (/&
+ & 2.0693E-02_JPRB,2.1657E-02_JPRB,2.3154E-02_JPRB,2.5012E-02_JPRB,2.7268E-02_JPRB/)  
+KAO( :, 9, 3) = (/&
+ & 1.6730E-02_JPRB,1.7346E-02_JPRB,1.8327E-02_JPRB,1.9716E-02_JPRB,2.1381E-02_JPRB/)  
+KAO( :,10, 3) = (/&
+ & 1.3588E-02_JPRB,1.4015E-02_JPRB,1.4658E-02_JPRB,1.5680E-02_JPRB,1.6936E-02_JPRB/)  
+KAO( :,11, 3) = (/&
+ & 1.1180E-02_JPRB,1.1528E-02_JPRB,1.2063E-02_JPRB,1.2917E-02_JPRB,1.3959E-02_JPRB/)  
+KAO( :,12, 3) = (/&
+ & 9.1920E-03_JPRB,9.4766E-03_JPRB,9.9244E-03_JPRB,1.0636E-02_JPRB,1.1502E-02_JPRB/)  
+KAO( :,13, 3) = (/&
+ & 7.5517E-03_JPRB,7.7861E-03_JPRB,8.1602E-03_JPRB,8.7504E-03_JPRB,9.4682E-03_JPRB/)  
+KAO( :, 1, 4) = (/&
+ & 2.6559E-01_JPRB,2.7778E-01_JPRB,2.8983E-01_JPRB,3.0112E-01_JPRB,3.1151E-01_JPRB/)  
+KAO( :, 2, 4) = (/&
+ & 2.1415E-01_JPRB,2.2376E-01_JPRB,2.3372E-01_JPRB,2.4291E-01_JPRB,2.5148E-01_JPRB/)  
+KAO( :, 3, 4) = (/&
+ & 1.7113E-01_JPRB,1.7864E-01_JPRB,1.8679E-01_JPRB,1.9418E-01_JPRB,2.0158E-01_JPRB/)  
+KAO( :, 4, 4) = (/&
+ & 1.3689E-01_JPRB,1.4305E-01_JPRB,1.4933E-01_JPRB,1.5577E-01_JPRB,1.6212E-01_JPRB/)  
+KAO( :, 5, 4) = (/&
+ & 1.0951E-01_JPRB,1.1484E-01_JPRB,1.1993E-01_JPRB,1.2527E-01_JPRB,1.3048E-01_JPRB/)  
+KAO( :, 6, 4) = (/&
+ & 8.7678E-02_JPRB,9.2013E-02_JPRB,9.6292E-02_JPRB,1.0052E-01_JPRB,1.0492E-01_JPRB/)  
+KAO( :, 7, 4) = (/&
+ & 7.0271E-02_JPRB,7.3646E-02_JPRB,7.7252E-02_JPRB,8.0679E-02_JPRB,8.4295E-02_JPRB/)  
+KAO( :, 8, 4) = (/&
+ & 5.6292E-02_JPRB,5.9027E-02_JPRB,6.1915E-02_JPRB,6.4784E-02_JPRB,6.7662E-02_JPRB/)  
+KAO( :, 9, 4) = (/&
+ & 4.5045E-02_JPRB,4.7308E-02_JPRB,4.9593E-02_JPRB,5.1992E-02_JPRB,5.4350E-02_JPRB/)  
+KAO( :,10, 4) = (/&
+ & 3.6083E-02_JPRB,3.8037E-02_JPRB,3.9928E-02_JPRB,4.1868E-02_JPRB,4.3827E-02_JPRB/)  
+KAO( :,11, 4) = (/&
+ & 2.9684E-02_JPRB,3.1305E-02_JPRB,3.2869E-02_JPRB,3.4458E-02_JPRB,3.6069E-02_JPRB/)  
+KAO( :,12, 4) = (/&
+ & 2.4428E-02_JPRB,2.5760E-02_JPRB,2.7039E-02_JPRB,2.8345E-02_JPRB,2.9671E-02_JPRB/)  
+KAO( :,13, 4) = (/&
+ & 2.0094E-02_JPRB,2.1179E-02_JPRB,2.2224E-02_JPRB,2.3304E-02_JPRB,2.4394E-02_JPRB/)  
+KAO( :, 1, 5) = (/&
+ & 4.7290E-01_JPRB,4.8928E-01_JPRB,5.0887E-01_JPRB,5.3328E-01_JPRB,5.6216E-01_JPRB/)  
+KAO( :, 2, 5) = (/&
+ & 3.8475E-01_JPRB,3.9762E-01_JPRB,4.1280E-01_JPRB,4.3219E-01_JPRB,4.5473E-01_JPRB/)  
+KAO( :, 3, 5) = (/&
+ & 3.0979E-01_JPRB,3.1996E-01_JPRB,3.3105E-01_JPRB,3.4530E-01_JPRB,3.6216E-01_JPRB/)  
+KAO( :, 4, 5) = (/&
+ & 2.5002E-01_JPRB,2.5800E-01_JPRB,2.6674E-01_JPRB,2.7709E-01_JPRB,2.8946E-01_JPRB/)  
+KAO( :, 5, 5) = (/&
+ & 2.0218E-01_JPRB,2.0847E-01_JPRB,2.1546E-01_JPRB,2.2311E-01_JPRB,2.3239E-01_JPRB/)  
+KAO( :, 6, 5) = (/&
+ & 1.6286E-01_JPRB,1.6840E-01_JPRB,1.7397E-01_JPRB,1.7996E-01_JPRB,1.8683E-01_JPRB/)  
+KAO( :, 7, 5) = (/&
+ & 1.3055E-01_JPRB,1.3602E-01_JPRB,1.4050E-01_JPRB,1.4524E-01_JPRB,1.5047E-01_JPRB/)  
+KAO( :, 8, 5) = (/&
+ & 1.0442E-01_JPRB,1.0954E-01_JPRB,1.1353E-01_JPRB,1.1737E-01_JPRB,1.2143E-01_JPRB/)  
+KAO( :, 9, 5) = (/&
+ & 8.3388E-02_JPRB,8.7841E-02_JPRB,9.1682E-02_JPRB,9.4816E-02_JPRB,9.8050E-02_JPRB/)  
+KAO( :,10, 5) = (/&
+ & 6.7010E-02_JPRB,7.0598E-02_JPRB,7.4015E-02_JPRB,7.6769E-02_JPRB,7.9372E-02_JPRB/)  
+KAO( :,11, 5) = (/&
+ & 5.5118E-02_JPRB,5.8051E-02_JPRB,6.0869E-02_JPRB,6.3114E-02_JPRB,6.5294E-02_JPRB/)  
+KAO( :,12, 5) = (/&
+ & 4.5300E-02_JPRB,4.7721E-02_JPRB,5.0049E-02_JPRB,5.1890E-02_JPRB,5.3682E-02_JPRB/)  
+KAO( :,13, 5) = (/&
+ & 3.7225E-02_JPRB,3.9236E-02_JPRB,4.1133E-02_JPRB,4.2631E-02_JPRB,4.4126E-02_JPRB/)  
+KAO( :, 1, 6) = (/&
+ & 8.4224E-01_JPRB,9.2264E-01_JPRB,1.0073E+00_JPRB,1.0930E+00_JPRB,1.1793E+00_JPRB/)  
+KAO( :, 2, 6) = (/&
+ & 6.7595E-01_JPRB,7.4232E-01_JPRB,8.1248E-01_JPRB,8.8302E-01_JPRB,9.5616E-01_JPRB/)  
+KAO( :, 3, 6) = (/&
+ & 5.2904E-01_JPRB,5.8048E-01_JPRB,6.3751E-01_JPRB,6.9642E-01_JPRB,7.5721E-01_JPRB/)  
+KAO( :, 4, 6) = (/&
+ & 4.1315E-01_JPRB,4.5407E-01_JPRB,4.9971E-01_JPRB,5.4886E-01_JPRB,5.9964E-01_JPRB/)  
+KAO( :, 5, 6) = (/&
+ & 3.2467E-01_JPRB,3.5531E-01_JPRB,3.9159E-01_JPRB,4.3161E-01_JPRB,4.7423E-01_JPRB/)  
+KAO( :, 6, 6) = (/&
+ & 2.5574E-01_JPRB,2.7784E-01_JPRB,3.0579E-01_JPRB,3.3817E-01_JPRB,3.7278E-01_JPRB/)  
+KAO( :, 7, 6) = (/&
+ & 2.0313E-01_JPRB,2.1792E-01_JPRB,2.3876E-01_JPRB,2.6386E-01_JPRB,2.9205E-01_JPRB/)  
+KAO( :, 8, 6) = (/&
+ & 1.6285E-01_JPRB,1.7201E-01_JPRB,1.8675E-01_JPRB,2.0598E-01_JPRB,2.2843E-01_JPRB/)  
+KAO( :, 9, 6) = (/&
+ & 1.3178E-01_JPRB,1.3687E-01_JPRB,1.4670E-01_JPRB,1.6087E-01_JPRB,1.7827E-01_JPRB/)  
+KAO( :,10, 6) = (/&
+ & 1.0760E-01_JPRB,1.1022E-01_JPRB,1.1661E-01_JPRB,1.2690E-01_JPRB,1.4033E-01_JPRB/)  
+KAO( :,11, 6) = (/&
+ & 8.8471E-02_JPRB,9.0742E-02_JPRB,9.6088E-02_JPRB,1.0477E-01_JPRB,1.1601E-01_JPRB/)  
+KAO( :,12, 6) = (/&
+ & 7.2724E-02_JPRB,7.4645E-02_JPRB,7.9165E-02_JPRB,8.6464E-02_JPRB,9.5844E-02_JPRB/)  
+KAO( :,13, 6) = (/&
+ & 5.9719E-02_JPRB,6.1350E-02_JPRB,6.5177E-02_JPRB,7.1301E-02_JPRB,7.9088E-02_JPRB/)  
+KAO( :, 1, 7) = (/&
+ & 1.8416E+00_JPRB,2.0377E+00_JPRB,2.2351E+00_JPRB,2.4351E+00_JPRB,2.6357E+00_JPRB/)  
+KAO( :, 2, 7) = (/&
+ & 1.5057E+00_JPRB,1.6691E+00_JPRB,1.8342E+00_JPRB,2.0031E+00_JPRB,2.1705E+00_JPRB/)  
+KAO( :, 3, 7) = (/&
+ & 1.1980E+00_JPRB,1.3329E+00_JPRB,1.4704E+00_JPRB,1.6099E+00_JPRB,1.7488E+00_JPRB/)  
+KAO( :, 4, 7) = (/&
+ & 9.4408E-01_JPRB,1.0566E+00_JPRB,1.1708E+00_JPRB,1.2874E+00_JPRB,1.4014E+00_JPRB/)  
+KAO( :, 5, 7) = (/&
+ & 7.4052E-01_JPRB,8.3332E-01_JPRB,9.3007E-01_JPRB,1.0263E+00_JPRB,1.1221E+00_JPRB/)  
+KAO( :, 6, 7) = (/&
+ & 5.7502E-01_JPRB,6.5145E-01_JPRB,7.3102E-01_JPRB,8.1228E-01_JPRB,8.9283E-01_JPRB/)  
+KAO( :, 7, 7) = (/&
+ & 4.4413E-01_JPRB,5.0565E-01_JPRB,5.7113E-01_JPRB,6.3832E-01_JPRB,7.0636E-01_JPRB/)  
+KAO( :, 8, 7) = (/&
+ & 3.4215E-01_JPRB,3.9125E-01_JPRB,4.4414E-01_JPRB,4.9963E-01_JPRB,5.5600E-01_JPRB/)  
+KAO( :, 9, 7) = (/&
+ & 2.6278E-01_JPRB,3.0155E-01_JPRB,3.4409E-01_JPRB,3.8940E-01_JPRB,4.3634E-01_JPRB/)  
+KAO( :,10, 7) = (/&
+ & 2.0399E-01_JPRB,2.3450E-01_JPRB,2.6863E-01_JPRB,3.0559E-01_JPRB,3.4410E-01_JPRB/)  
+KAO( :,11, 7) = (/&
+ & 1.6899E-01_JPRB,1.9452E-01_JPRB,2.2306E-01_JPRB,2.5367E-01_JPRB,2.8600E-01_JPRB/)  
+KAO( :,12, 7) = (/&
+ & 1.4000E-01_JPRB,1.6132E-01_JPRB,1.8504E-01_JPRB,2.1049E-01_JPRB,2.3736E-01_JPRB/)  
+KAO( :,13, 7) = (/&
+ & 1.1587E-01_JPRB,1.3364E-01_JPRB,1.5332E-01_JPRB,1.7448E-01_JPRB,1.9695E-01_JPRB/)  
+KAO( :, 1, 8) = (/&
+ & 4.7751E+00_JPRB,5.2791E+00_JPRB,5.7933E+00_JPRB,6.3083E+00_JPRB,6.8326E+00_JPRB/)  
+KAO( :, 2, 8) = (/&
+ & 4.0048E+00_JPRB,4.4443E+00_JPRB,4.8940E+00_JPRB,5.3580E+00_JPRB,5.8267E+00_JPRB/)  
+KAO( :, 3, 8) = (/&
+ & 3.2400E+00_JPRB,3.6253E+00_JPRB,4.0207E+00_JPRB,4.4230E+00_JPRB,4.8210E+00_JPRB/)  
+KAO( :, 4, 8) = (/&
+ & 2.5883E+00_JPRB,2.9210E+00_JPRB,3.2656E+00_JPRB,3.6154E+00_JPRB,3.9641E+00_JPRB/)  
+KAO( :, 5, 8) = (/&
+ & 2.0550E+00_JPRB,2.3390E+00_JPRB,2.6351E+00_JPRB,2.9336E+00_JPRB,3.2370E+00_JPRB/)  
+KAO( :, 6, 8) = (/&
+ & 1.6130E+00_JPRB,1.8538E+00_JPRB,2.1027E+00_JPRB,2.3582E+00_JPRB,2.6184E+00_JPRB/)  
+KAO( :, 7, 8) = (/&
+ & 1.2548E+00_JPRB,1.4567E+00_JPRB,1.6664E+00_JPRB,1.8820E+00_JPRB,2.1036E+00_JPRB/)  
+KAO( :, 8, 8) = (/&
+ & 9.6687E-01_JPRB,1.1348E+00_JPRB,1.3110E+00_JPRB,1.4930E+00_JPRB,1.6805E+00_JPRB/)  
+KAO( :, 9, 8) = (/&
+ & 7.3847E-01_JPRB,8.7593E-01_JPRB,1.0221E+00_JPRB,1.1741E+00_JPRB,1.3319E+00_JPRB/)  
+KAO( :,10, 8) = (/&
+ & 5.6776E-01_JPRB,6.8017E-01_JPRB,8.0059E-01_JPRB,9.2750E-01_JPRB,1.0593E+00_JPRB/)  
+KAO( :,11, 8) = (/&
+ & 4.7511E-01_JPRB,5.6972E-01_JPRB,6.7118E-01_JPRB,7.7840E-01_JPRB,8.8949E-01_JPRB/)  
+KAO( :,12, 8) = (/&
+ & 3.9658E-01_JPRB,4.7593E-01_JPRB,5.6128E-01_JPRB,6.5124E-01_JPRB,7.4417E-01_JPRB/)  
+KAO( :,13, 8) = (/&
+ & 3.3005E-01_JPRB,3.9650E-01_JPRB,4.6807E-01_JPRB,5.4357E-01_JPRB,6.2155E-01_JPRB/)  
+KAO( :, 1, 9) = (/&
+ & 1.7831E+01_JPRB,1.9823E+01_JPRB,2.1884E+01_JPRB,2.3937E+01_JPRB,2.5904E+01_JPRB/)  
+KAO( :, 2, 9) = (/&
+ & 1.5983E+01_JPRB,1.7908E+01_JPRB,1.9844E+01_JPRB,2.1750E+01_JPRB,2.3639E+01_JPRB/)  
+KAO( :, 3, 9) = (/&
+ & 1.3838E+01_JPRB,1.5652E+01_JPRB,1.7428E+01_JPRB,1.9195E+01_JPRB,2.0946E+01_JPRB/)  
+KAO( :, 4, 9) = (/&
+ & 1.1707E+01_JPRB,1.3372E+01_JPRB,1.5018E+01_JPRB,1.6675E+01_JPRB,1.8330E+01_JPRB/)  
+KAO( :, 5, 9) = (/&
+ & 9.7619E+00_JPRB,1.1244E+01_JPRB,1.2752E+01_JPRB,1.4279E+01_JPRB,1.5837E+01_JPRB/)  
+KAO( :, 6, 9) = (/&
+ & 7.9817E+00_JPRB,9.2988E+00_JPRB,1.0650E+01_JPRB,1.2029E+01_JPRB,1.3449E+01_JPRB/)  
+KAO( :, 7, 9) = (/&
+ & 6.4478E+00_JPRB,7.5864E+00_JPRB,8.7717E+00_JPRB,1.0008E+01_JPRB,1.1289E+01_JPRB/)  
+KAO( :, 8, 9) = (/&
+ & 5.1550E+00_JPRB,6.1381E+00_JPRB,7.1667E+00_JPRB,8.2567E+00_JPRB,9.3759E+00_JPRB/)  
+KAO( :, 9, 9) = (/&
+ & 4.0462E+00_JPRB,4.8924E+00_JPRB,5.7944E+00_JPRB,6.7466E+00_JPRB,7.7100E+00_JPRB/)  
+KAO( :,10, 9) = (/&
+ & 3.1920E+00_JPRB,3.9133E+00_JPRB,4.6912E+00_JPRB,5.5091E+00_JPRB,6.3432E+00_JPRB/)  
+KAO( :,11, 9) = (/&
+ & 2.7717E+00_JPRB,3.4039E+00_JPRB,4.0800E+00_JPRB,4.7818E+00_JPRB,5.5081E+00_JPRB/)  
+KAO( :,12, 9) = (/&
+ & 2.3978E+00_JPRB,2.9436E+00_JPRB,3.5235E+00_JPRB,4.1293E+00_JPRB,4.7600E+00_JPRB/)  
+KAO( :,13, 9) = (/&
+ & 2.0575E+00_JPRB,2.5263E+00_JPRB,3.0244E+00_JPRB,3.5477E+00_JPRB,4.0896E+00_JPRB/)  
+KAO( :, 1,10) = (/&
+ & 4.9748E+01_JPRB,5.5112E+01_JPRB,5.9938E+01_JPRB,6.5023E+01_JPRB,7.0458E+01_JPRB/)  
+KAO( :, 2,10) = (/&
+ & 4.6588E+01_JPRB,5.1661E+01_JPRB,5.6901E+01_JPRB,6.2463E+01_JPRB,6.8487E+01_JPRB/)  
+KAO( :, 3,10) = (/&
+ & 4.1628E+01_JPRB,4.6699E+01_JPRB,5.2314E+01_JPRB,5.8353E+01_JPRB,6.4458E+01_JPRB/)  
+KAO( :, 4,10) = (/&
+ & 3.7456E+01_JPRB,4.2469E+01_JPRB,4.7867E+01_JPRB,5.3384E+01_JPRB,5.9111E+01_JPRB/)  
+KAO( :, 5,10) = (/&
+ & 3.3436E+01_JPRB,3.8793E+01_JPRB,4.3992E+01_JPRB,4.9077E+01_JPRB,5.4046E+01_JPRB/)  
+KAO( :, 6,10) = (/&
+ & 2.8948E+01_JPRB,3.4066E+01_JPRB,3.9093E+01_JPRB,4.3943E+01_JPRB,4.8577E+01_JPRB/)  
+KAO( :, 7,10) = (/&
+ & 2.4411E+01_JPRB,2.9169E+01_JPRB,3.3772E+01_JPRB,3.8328E+01_JPRB,4.2674E+01_JPRB/)  
+KAO( :, 8,10) = (/&
+ & 2.0213E+01_JPRB,2.4379E+01_JPRB,2.8547E+01_JPRB,3.2632E+01_JPRB,3.6717E+01_JPRB/)  
+KAO( :, 9,10) = (/&
+ & 1.6770E+01_JPRB,2.0275E+01_JPRB,2.3726E+01_JPRB,2.7289E+01_JPRB,3.1149E+01_JPRB/)  
+KAO( :,10,10) = (/&
+ & 1.3740E+01_JPRB,1.6814E+01_JPRB,1.9874E+01_JPRB,2.3039E+01_JPRB,2.6529E+01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART1',1,ZHOOK_HANDLE)
+END SUBROUTINE PART1
+
+
+SUBROUTINE PART2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART2',0,ZHOOK_HANDLE)
+
+
+KAO( :,11,10) = (/&
+ & 1.2161E+01_JPRB,1.4820E+01_JPRB,1.7667E+01_JPRB,2.0767E+01_JPRB,2.3948E+01_JPRB/)  
+KAO( :,12,10) = (/&
+ & 1.0666E+01_JPRB,1.3093E+01_JPRB,1.5727E+01_JPRB,1.8473E+01_JPRB,2.1195E+01_JPRB/)  
+KAO( :,13,10) = (/&
+ & 9.3915E+00_JPRB,1.1557E+01_JPRB,1.3847E+01_JPRB,1.6172E+01_JPRB,1.8558E+01_JPRB/)  
+KAO( :, 1,11) = (/&
+ & 7.2842E+01_JPRB,8.2127E+01_JPRB,9.1751E+01_JPRB,1.0081E+02_JPRB,1.0868E+02_JPRB/)  
+KAO( :, 2,11) = (/&
+ & 7.0912E+01_JPRB,8.0211E+01_JPRB,8.9133E+01_JPRB,9.7767E+01_JPRB,1.0537E+02_JPRB/)  
+KAO( :, 3,11) = (/&
+ & 6.7169E+01_JPRB,7.5895E+01_JPRB,8.3957E+01_JPRB,9.1467E+01_JPRB,9.8740E+01_JPRB/)  
+KAO( :, 4,11) = (/&
+ & 6.1046E+01_JPRB,6.9086E+01_JPRB,7.7071E+01_JPRB,8.4625E+01_JPRB,9.2325E+01_JPRB/)  
+KAO( :, 5,11) = (/&
+ & 5.4291E+01_JPRB,6.1624E+01_JPRB,6.9146E+01_JPRB,7.6916E+01_JPRB,8.5050E+01_JPRB/)  
+KAO( :, 6,11) = (/&
+ & 4.7940E+01_JPRB,5.4754E+01_JPRB,6.1943E+01_JPRB,6.9739E+01_JPRB,7.7765E+01_JPRB/)  
+KAO( :, 7,11) = (/&
+ & 4.1424E+01_JPRB,4.8323E+01_JPRB,5.5884E+01_JPRB,6.3434E+01_JPRB,7.1064E+01_JPRB/)  
+KAO( :, 8,11) = (/&
+ & 3.4808E+01_JPRB,4.1718E+01_JPRB,4.9240E+01_JPRB,5.6728E+01_JPRB,6.4032E+01_JPRB/)  
+KAO( :, 9,11) = (/&
+ & 2.8724E+01_JPRB,3.5333E+01_JPRB,4.2395E+01_JPRB,4.9372E+01_JPRB,5.6186E+01_JPRB/)  
+KAO( :,10,11) = (/&
+ & 2.4060E+01_JPRB,2.9886E+01_JPRB,3.6171E+01_JPRB,4.2511E+01_JPRB,4.8855E+01_JPRB/)  
+KAO( :,11,11) = (/&
+ & 2.2466E+01_JPRB,2.7842E+01_JPRB,3.3276E+01_JPRB,3.8707E+01_JPRB,4.4411E+01_JPRB/)  
+KAO( :,12,11) = (/&
+ & 2.0635E+01_JPRB,2.5402E+01_JPRB,3.0130E+01_JPRB,3.5065E+01_JPRB,4.0456E+01_JPRB/)  
+KAO( :,13,11) = (/&
+ & 1.8375E+01_JPRB,2.2528E+01_JPRB,2.6944E+01_JPRB,3.1721E+01_JPRB,3.6642E+01_JPRB/)  
+KAO( :, 1,12) = (/&
+ & 1.2814E+02_JPRB,1.3938E+02_JPRB,1.4994E+02_JPRB,1.6150E+02_JPRB,1.7273E+02_JPRB/)  
+KAO( :, 2,12) = (/&
+ & 1.2028E+02_JPRB,1.3171E+02_JPRB,1.4381E+02_JPRB,1.5628E+02_JPRB,1.6936E+02_JPRB/)  
+KAO( :, 3,12) = (/&
+ & 1.0908E+02_JPRB,1.2221E+02_JPRB,1.3662E+02_JPRB,1.5108E+02_JPRB,1.6591E+02_JPRB/)  
+KAO( :, 4,12) = (/&
+ & 9.9689E+01_JPRB,1.1393E+02_JPRB,1.2899E+02_JPRB,1.4446E+02_JPRB,1.5932E+02_JPRB/)  
+KAO( :, 5,12) = (/&
+ & 9.1574E+01_JPRB,1.0647E+02_JPRB,1.2179E+02_JPRB,1.3681E+02_JPRB,1.5090E+02_JPRB/)  
+KAO( :, 6,12) = (/&
+ & 8.3159E+01_JPRB,9.8372E+01_JPRB,1.1370E+02_JPRB,1.2787E+02_JPRB,1.4184E+02_JPRB/)  
+KAO( :, 7,12) = (/&
+ & 7.5130E+01_JPRB,8.9279E+01_JPRB,1.0335E+02_JPRB,1.1696E+02_JPRB,1.3088E+02_JPRB/)  
+KAO( :, 8,12) = (/&
+ & 6.6942E+01_JPRB,7.9719E+01_JPRB,9.2547E+01_JPRB,1.0530E+02_JPRB,1.1887E+02_JPRB/)  
+KAO( :, 9,12) = (/&
+ & 5.7722E+01_JPRB,6.9837E+01_JPRB,8.2082E+01_JPRB,9.4593E+01_JPRB,1.0770E+02_JPRB/)  
+KAO( :,10,12) = (/&
+ & 4.9040E+01_JPRB,6.0620E+01_JPRB,7.2577E+01_JPRB,8.5187E+01_JPRB,9.7844E+01_JPRB/)  
+KAO( :,11,12) = (/&
+ & 4.5433E+01_JPRB,5.6352E+01_JPRB,6.8223E+01_JPRB,8.0499E+01_JPRB,9.2512E+01_JPRB/)  
+KAO( :,12,12) = (/&
+ & 4.1971E+01_JPRB,5.2467E+01_JPRB,6.3533E+01_JPRB,7.4543E+01_JPRB,8.5084E+01_JPRB/)  
+KAO( :,13,12) = (/&
+ & 3.9013E+01_JPRB,4.8568E+01_JPRB,5.8272E+01_JPRB,6.7741E+01_JPRB,7.7194E+01_JPRB/)  
+KAO( :, 1,13) = (/&
+ & 2.2210E+02_JPRB,2.4767E+02_JPRB,2.7177E+02_JPRB,2.9506E+02_JPRB,3.1428E+02_JPRB/)  
+KAO( :, 2,13) = (/&
+ & 2.2387E+02_JPRB,2.5269E+02_JPRB,2.7872E+02_JPRB,2.9937E+02_JPRB,3.1679E+02_JPRB/)  
+KAO( :, 3,13) = (/&
+ & 2.1746E+02_JPRB,2.4620E+02_JPRB,2.7168E+02_JPRB,2.9352E+02_JPRB,3.1488E+02_JPRB/)  
+KAO( :, 4,13) = (/&
+ & 2.0527E+02_JPRB,2.3513E+02_JPRB,2.5998E+02_JPRB,2.8303E+02_JPRB,3.0506E+02_JPRB/)  
+KAO( :, 5,13) = (/&
+ & 1.8964E+02_JPRB,2.1890E+02_JPRB,2.4311E+02_JPRB,2.6810E+02_JPRB,2.9248E+02_JPRB/)  
+KAO( :, 6,13) = (/&
+ & 1.7090E+02_JPRB,1.9758E+02_JPRB,2.2284E+02_JPRB,2.4839E+02_JPRB,2.7463E+02_JPRB/)  
+KAO( :, 7,13) = (/&
+ & 1.5109E+02_JPRB,1.7710E+02_JPRB,2.0295E+02_JPRB,2.2932E+02_JPRB,2.5634E+02_JPRB/)  
+KAO( :, 8,13) = (/&
+ & 1.3270E+02_JPRB,1.5826E+02_JPRB,1.8450E+02_JPRB,2.1121E+02_JPRB,2.3873E+02_JPRB/)  
+KAO( :, 9,13) = (/&
+ & 1.1570E+02_JPRB,1.4021E+02_JPRB,1.6653E+02_JPRB,1.9389E+02_JPRB,2.2105E+02_JPRB/)  
+KAO( :,10,13) = (/&
+ & 1.0259E+02_JPRB,1.2584E+02_JPRB,1.5091E+02_JPRB,1.7718E+02_JPRB,2.0281E+02_JPRB/)  
+KAO( :,11,13) = (/&
+ & 1.0076E+02_JPRB,1.2370E+02_JPRB,1.4756E+02_JPRB,1.7147E+02_JPRB,1.9575E+02_JPRB/)  
+KAO( :,12,13) = (/&
+ & 9.7325E+01_JPRB,1.1939E+02_JPRB,1.4174E+02_JPRB,1.6449E+02_JPRB,1.8836E+02_JPRB/)  
+KAO( :,13,13) = (/&
+ & 9.2070E+01_JPRB,1.1299E+02_JPRB,1.3489E+02_JPRB,1.5734E+02_JPRB,1.8036E+02_JPRB/)  
+KAO( :, 1,14) = (/&
+ & 4.2241E+02_JPRB,4.5820E+02_JPRB,4.8815E+02_JPRB,5.1730E+02_JPRB,5.4765E+02_JPRB/)  
+KAO( :, 2,14) = (/&
+ & 4.2461E+02_JPRB,4.6681E+02_JPRB,4.9982E+02_JPRB,5.3726E+02_JPRB,5.6640E+02_JPRB/)  
+KAO( :, 3,14) = (/&
+ & 4.1742E+02_JPRB,4.5924E+02_JPRB,4.9930E+02_JPRB,5.3630E+02_JPRB,5.8090E+02_JPRB/)  
+KAO( :, 4,14) = (/&
+ & 3.9739E+02_JPRB,4.4336E+02_JPRB,4.8832E+02_JPRB,5.2886E+02_JPRB,5.8035E+02_JPRB/)  
+KAO( :, 5,14) = (/&
+ & 3.7398E+02_JPRB,4.2048E+02_JPRB,4.7438E+02_JPRB,5.2486E+02_JPRB,5.7134E+02_JPRB/)  
+KAO( :, 6,14) = (/&
+ & 3.4725E+02_JPRB,3.9940E+02_JPRB,4.5648E+02_JPRB,5.1230E+02_JPRB,5.6617E+02_JPRB/)  
+KAO( :, 7,14) = (/&
+ & 3.2072E+02_JPRB,3.7728E+02_JPRB,4.3646E+02_JPRB,4.9362E+02_JPRB,5.5200E+02_JPRB/)  
+KAO( :, 8,14) = (/&
+ & 2.9404E+02_JPRB,3.5487E+02_JPRB,4.1802E+02_JPRB,4.7825E+02_JPRB,5.4076E+02_JPRB/)  
+KAO( :, 9,14) = (/&
+ & 2.7034E+02_JPRB,3.3232E+02_JPRB,3.9722E+02_JPRB,4.5997E+02_JPRB,5.2290E+02_JPRB/)  
+KAO( :,10,14) = (/&
+ & 2.5045E+02_JPRB,3.1309E+02_JPRB,3.7582E+02_JPRB,4.4096E+02_JPRB,5.0588E+02_JPRB/)  
+KAO( :,11,14) = (/&
+ & 2.5624E+02_JPRB,3.1911E+02_JPRB,3.8269E+02_JPRB,4.5034E+02_JPRB,5.1713E+02_JPRB/)  
+KAO( :,12,14) = (/&
+ & 2.6046E+02_JPRB,3.2208E+02_JPRB,3.8851E+02_JPRB,4.5644E+02_JPRB,5.2468E+02_JPRB/)  
+KAO( :,13,14) = (/&
+ & 2.6376E+02_JPRB,3.2552E+02_JPRB,3.9097E+02_JPRB,4.5804E+02_JPRB,5.2614E+02_JPRB/)  
+KAO( :, 1,15) = (/&
+ & 8.5706E+02_JPRB,9.2142E+02_JPRB,9.6878E+02_JPRB,1.0281E+03_JPRB,1.0795E+03_JPRB/)  
+KAO( :, 2,15) = (/&
+ & 9.5189E+02_JPRB,1.0335E+03_JPRB,1.0913E+03_JPRB,1.1632E+03_JPRB,1.2011E+03_JPRB/)  
+KAO( :, 3,15) = (/&
+ & 1.0232E+03_JPRB,1.0861E+03_JPRB,1.1646E+03_JPRB,1.2285E+03_JPRB,1.3057E+03_JPRB/)  
+KAO( :, 4,15) = (/&
+ & 1.0392E+03_JPRB,1.1356E+03_JPRB,1.2544E+03_JPRB,1.3115E+03_JPRB,1.4338E+03_JPRB/)  
+KAO( :, 5,15) = (/&
+ & 1.0616E+03_JPRB,1.1713E+03_JPRB,1.3147E+03_JPRB,1.4146E+03_JPRB,1.4989E+03_JPRB/)  
+KAO( :, 6,15) = (/&
+ & 1.0788E+03_JPRB,1.1886E+03_JPRB,1.3302E+03_JPRB,1.4680E+03_JPRB,1.5638E+03_JPRB/)  
+KAO( :, 7,15) = (/&
+ & 1.0593E+03_JPRB,1.1909E+03_JPRB,1.3423E+03_JPRB,1.4840E+03_JPRB,1.6000E+03_JPRB/)  
+KAO( :, 8,15) = (/&
+ & 9.9873E+02_JPRB,1.1655E+03_JPRB,1.3439E+03_JPRB,1.4887E+03_JPRB,1.6318E+03_JPRB/)  
+KAO( :, 9,15) = (/&
+ & 9.4071E+02_JPRB,1.1173E+03_JPRB,1.3103E+03_JPRB,1.4801E+03_JPRB,1.6507E+03_JPRB/)  
+KAO( :,10,15) = (/&
+ & 8.8647E+02_JPRB,1.0727E+03_JPRB,1.2703E+03_JPRB,1.4721E+03_JPRB,1.6711E+03_JPRB/)  
+KAO( :,11,15) = (/&
+ & 9.2131E+02_JPRB,1.1303E+03_JPRB,1.3379E+03_JPRB,1.5675E+03_JPRB,1.7706E+03_JPRB/)  
+KAO( :,12,15) = (/&
+ & 9.6245E+02_JPRB,1.1976E+03_JPRB,1.4205E+03_JPRB,1.6577E+03_JPRB,1.8724E+03_JPRB/)  
+KAO( :,13,15) = (/&
+ & 1.0149E+03_JPRB,1.2514E+03_JPRB,1.4928E+03_JPRB,1.7376E+03_JPRB,1.9688E+03_JPRB/)  
+KAO( :, 1,16) = (/&
+ & 1.1893E+03_JPRB,1.2688E+03_JPRB,1.3351E+03_JPRB,1.3959E+03_JPRB,1.4433E+03_JPRB/)  
+KAO( :, 2,16) = (/&
+ & 1.4043E+03_JPRB,1.5015E+03_JPRB,1.5933E+03_JPRB,1.6702E+03_JPRB,1.7343E+03_JPRB/)  
+KAO( :, 3,16) = (/&
+ & 1.6203E+03_JPRB,1.7272E+03_JPRB,1.8338E+03_JPRB,1.9414E+03_JPRB,2.0288E+03_JPRB/)  
+KAO( :, 4,16) = (/&
+ & 1.7997E+03_JPRB,1.9426E+03_JPRB,2.1186E+03_JPRB,2.2171E+03_JPRB,2.3429E+03_JPRB/)  
+KAO( :, 5,16) = (/&
+ & 1.9840E+03_JPRB,2.1906E+03_JPRB,2.3875E+03_JPRB,2.5360E+03_JPRB,2.6578E+03_JPRB/)  
+KAO( :, 6,16) = (/&
+ & 2.1706E+03_JPRB,2.4031E+03_JPRB,2.6185E+03_JPRB,2.8410E+03_JPRB,2.9858E+03_JPRB/)  
+KAO( :, 7,16) = (/&
+ & 2.3367E+03_JPRB,2.6044E+03_JPRB,2.8764E+03_JPRB,3.1365E+03_JPRB,3.3254E+03_JPRB/)  
+KAO( :, 8,16) = (/&
+ & 2.4353E+03_JPRB,2.7922E+03_JPRB,3.1601E+03_JPRB,3.4455E+03_JPRB,3.6918E+03_JPRB/)  
+KAO( :, 9,16) = (/&
+ & 2.5375E+03_JPRB,2.9571E+03_JPRB,3.4043E+03_JPRB,3.7567E+03_JPRB,4.0876E+03_JPRB/)  
+KAO( :,10,16) = (/&
+ & 2.6751E+03_JPRB,3.1240E+03_JPRB,3.6015E+03_JPRB,4.0631E+03_JPRB,4.4658E+03_JPRB/)  
+KAO( :,11,16) = (/&
+ & 3.0220E+03_JPRB,3.5297E+03_JPRB,4.0306E+03_JPRB,4.6185E+03_JPRB,5.0516E+03_JPRB/)  
+KAO( :,12,16) = (/&
+ & 3.3138E+03_JPRB,4.0094E+03_JPRB,4.5368E+03_JPRB,5.2030E+03_JPRB,5.7257E+03_JPRB/)  
+KAO( :,13,16) = (/&
+ & 3.6770E+03_JPRB,4.3534E+03_JPRB,5.0748E+03_JPRB,5.8067E+03_JPRB,6.4888E+03_JPRB/)  
+
+!     The array KBO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels < ~100mb and temperatures. The first 
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this pressure 
+!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for
+!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  
+!     The second index, JP, runs from 13 to 59 and refers to the JPth
+!     reference pressure level (see taumol.f for the value of these
+!     pressure levels in mb).  The third index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+
+KBO( :,13, 1) = (/&
+ & 1.1165E-03_JPRB,1.1247E-03_JPRB,1.1560E-03_JPRB,1.2076E-03_JPRB,1.2869E-03_JPRB/)  
+KBO( :,14, 1) = (/&
+ & 9.1499E-04_JPRB,9.2417E-04_JPRB,9.5214E-04_JPRB,9.9793E-04_JPRB,1.0647E-03_JPRB/)  
+KBO( :,15, 1) = (/&
+ & 7.4895E-04_JPRB,7.5885E-04_JPRB,7.8398E-04_JPRB,8.2364E-04_JPRB,8.7934E-04_JPRB/)  
+KBO( :,16, 1) = (/&
+ & 6.1285E-04_JPRB,6.2301E-04_JPRB,6.4528E-04_JPRB,6.7919E-04_JPRB,7.2561E-04_JPRB/)  
+KBO( :,17, 1) = (/&
+ & 5.0161E-04_JPRB,5.1162E-04_JPRB,5.3088E-04_JPRB,5.5956E-04_JPRB,5.9827E-04_JPRB/)  
+KBO( :,18, 1) = (/&
+ & 4.1059E-04_JPRB,4.2007E-04_JPRB,4.3635E-04_JPRB,4.6069E-04_JPRB,4.9285E-04_JPRB/)  
+KBO( :,19, 1) = (/&
+ & 3.3641E-04_JPRB,3.4500E-04_JPRB,3.5879E-04_JPRB,3.7929E-04_JPRB,4.0616E-04_JPRB/)  
+KBO( :,20, 1) = (/&
+ & 2.7603E-04_JPRB,2.8363E-04_JPRB,2.9537E-04_JPRB,3.1276E-04_JPRB,3.3531E-04_JPRB/)  
+KBO( :,21, 1) = (/&
+ & 2.2659E-04_JPRB,2.3317E-04_JPRB,2.4324E-04_JPRB,2.5796E-04_JPRB,2.7695E-04_JPRB/)  
+KBO( :,22, 1) = (/&
+ & 1.8631E-04_JPRB,1.9217E-04_JPRB,2.0103E-04_JPRB,2.1374E-04_JPRB,2.2994E-04_JPRB/)  
+KBO( :,23, 1) = (/&
+ & 1.5327E-04_JPRB,1.5846E-04_JPRB,1.6631E-04_JPRB,1.7723E-04_JPRB,1.9096E-04_JPRB/)  
+KBO( :,24, 1) = (/&
+ & 1.2620E-04_JPRB,1.3080E-04_JPRB,1.3778E-04_JPRB,1.4714E-04_JPRB,1.5867E-04_JPRB/)  
+KBO( :,25, 1) = (/&
+ & 1.0400E-04_JPRB,1.0810E-04_JPRB,1.1426E-04_JPRB,1.2231E-04_JPRB,1.3192E-04_JPRB/)  
+KBO( :,26, 1) = (/&
+ & 8.5812E-05_JPRB,8.9507E-05_JPRB,9.4927E-05_JPRB,1.0190E-04_JPRB,1.0982E-04_JPRB/)  
+KBO( :,27, 1) = (/&
+ & 7.0859E-05_JPRB,7.4205E-05_JPRB,7.8939E-05_JPRB,8.4957E-05_JPRB,9.1449E-05_JPRB/)  
+KBO( :,28, 1) = (/&
+ & 5.8569E-05_JPRB,6.1594E-05_JPRB,6.5700E-05_JPRB,7.0820E-05_JPRB,7.6191E-05_JPRB/)  
+KBO( :,29, 1) = (/&
+ & 4.8465E-05_JPRB,5.1177E-05_JPRB,5.4745E-05_JPRB,5.9040E-05_JPRB,6.3532E-05_JPRB/)  
+KBO( :,30, 1) = (/&
+ & 4.0147E-05_JPRB,4.2553E-05_JPRB,4.5653E-05_JPRB,4.9207E-05_JPRB,5.2981E-05_JPRB/)  
+KBO( :,31, 1) = (/&
+ & 3.3300E-05_JPRB,3.5414E-05_JPRB,3.8102E-05_JPRB,4.1014E-05_JPRB,4.4195E-05_JPRB/)  
+KBO( :,32, 1) = (/&
+ & 2.7662E-05_JPRB,2.9504E-05_JPRB,3.1798E-05_JPRB,3.4208E-05_JPRB,3.6892E-05_JPRB/)  
+KBO( :,33, 1) = (/&
+ & 2.3000E-05_JPRB,2.4605E-05_JPRB,2.6531E-05_JPRB,2.8549E-05_JPRB,3.0814E-05_JPRB/)  
+KBO( :,34, 1) = (/&
+ & 1.9101E-05_JPRB,2.0488E-05_JPRB,2.2081E-05_JPRB,2.3773E-05_JPRB,2.5683E-05_JPRB/)  
+KBO( :,35, 1) = (/&
+ & 1.5772E-05_JPRB,1.6945E-05_JPRB,1.8248E-05_JPRB,1.9654E-05_JPRB,2.1248E-05_JPRB/)  
+KBO( :,36, 1) = (/&
+ & 1.2932E-05_JPRB,1.3897E-05_JPRB,1.4964E-05_JPRB,1.6118E-05_JPRB,1.7427E-05_JPRB/)  
+KBO( :,37, 1) = (/&
+ & 1.0500E-05_JPRB,1.1266E-05_JPRB,1.2140E-05_JPRB,1.3070E-05_JPRB,1.4122E-05_JPRB/)  
+KBO( :,38, 1) = (/&
+ & 8.5232E-06_JPRB,9.1293E-06_JPRB,9.8424E-06_JPRB,1.0593E-05_JPRB,1.1438E-05_JPRB/)  
+KBO( :,39, 1) = (/&
+ & 6.9199E-06_JPRB,7.4001E-06_JPRB,7.9793E-06_JPRB,8.5851E-06_JPRB,9.2651E-06_JPRB/)  
+KBO( :,40, 1) = (/&
+ & 5.5869E-06_JPRB,5.9579E-06_JPRB,6.4208E-06_JPRB,6.9067E-06_JPRB,7.4490E-06_JPRB/)  
+KBO( :,41, 1) = (/&
+ & 4.5102E-06_JPRB,4.7959E-06_JPRB,5.1598E-06_JPRB,5.5535E-06_JPRB,5.9845E-06_JPRB/)  
+KBO( :,42, 1) = (/&
+ & 3.6455E-06_JPRB,3.8634E-06_JPRB,4.1445E-06_JPRB,4.4666E-06_JPRB,4.8093E-06_JPRB/)  
+KBO( :,43, 1) = (/&
+ & 2.9434E-06_JPRB,3.1045E-06_JPRB,3.3181E-06_JPRB,3.5779E-06_JPRB,3.8500E-06_JPRB/)  
+KBO( :,44, 1) = (/&
+ & 2.3784E-06_JPRB,2.4940E-06_JPRB,2.6554E-06_JPRB,2.8596E-06_JPRB,3.0773E-06_JPRB/)  
+KBO( :,45, 1) = (/&
+ & 1.9254E-06_JPRB,2.0073E-06_JPRB,2.1280E-06_JPRB,2.2840E-06_JPRB,2.4615E-06_JPRB/)  
+KBO( :,46, 1) = (/&
+ & 1.5599E-06_JPRB,1.6176E-06_JPRB,1.7055E-06_JPRB,1.8226E-06_JPRB,1.9656E-06_JPRB/)  
+KBO( :,47, 1) = (/&
+ & 1.2647E-06_JPRB,1.3045E-06_JPRB,1.3657E-06_JPRB,1.4527E-06_JPRB,1.5636E-06_JPRB/)  
+KBO( :,48, 1) = (/&
+ & 1.0280E-06_JPRB,1.0546E-06_JPRB,1.0967E-06_JPRB,1.1602E-06_JPRB,1.2430E-06_JPRB/)  
+KBO( :,49, 1) = (/&
+ & 8.3899E-07_JPRB,8.5435E-07_JPRB,8.8348E-07_JPRB,9.2841E-07_JPRB,9.8990E-07_JPRB/)  
+KBO( :,50, 1) = (/&
+ & 6.8758E-07_JPRB,6.9417E-07_JPRB,7.1424E-07_JPRB,7.4551E-07_JPRB,7.9125E-07_JPRB/)  
+KBO( :,51, 1) = (/&
+ & 5.6525E-07_JPRB,5.6564E-07_JPRB,5.7879E-07_JPRB,6.0067E-07_JPRB,6.3406E-07_JPRB/)  
+KBO( :,52, 1) = (/&
+ & 4.6614E-07_JPRB,4.6262E-07_JPRB,4.6991E-07_JPRB,4.8521E-07_JPRB,5.0895E-07_JPRB/)  
+KBO( :,53, 1) = (/&
+ & 3.8583E-07_JPRB,3.7971E-07_JPRB,3.8237E-07_JPRB,3.9285E-07_JPRB,4.0940E-07_JPRB/)  
+KBO( :,54, 1) = (/&
+ & 3.1998E-07_JPRB,3.1249E-07_JPRB,3.1214E-07_JPRB,3.1896E-07_JPRB,3.3069E-07_JPRB/)  
+KBO( :,55, 1) = (/&
+ & 2.6585E-07_JPRB,2.5784E-07_JPRB,2.5568E-07_JPRB,2.5953E-07_JPRB,2.6785E-07_JPRB/)  
+KBO( :,56, 1) = (/&
+ & 2.2137E-07_JPRB,2.1341E-07_JPRB,2.1005E-07_JPRB,2.1159E-07_JPRB,2.1739E-07_JPRB/)  
+KBO( :,57, 1) = (/&
+ & 1.8477E-07_JPRB,1.7712E-07_JPRB,1.7304E-07_JPRB,1.7292E-07_JPRB,1.7676E-07_JPRB/)  
+KBO( :,58, 1) = (/&
+ & 1.5448E-07_JPRB,1.4728E-07_JPRB,1.4291E-07_JPRB,1.4181E-07_JPRB,1.4406E-07_JPRB/)  
+KBO( :,59, 1) = (/&
+ & 1.2795E-07_JPRB,1.2169E-07_JPRB,1.1777E-07_JPRB,1.1651E-07_JPRB,1.1802E-07_JPRB/)  
+KBO( :,13, 2) = (/&
+ & 2.9516E-03_JPRB,2.9713E-03_JPRB,3.0616E-03_JPRB,3.2019E-03_JPRB,3.4017E-03_JPRB/)  
+KBO( :,14, 2) = (/&
+ & 2.4197E-03_JPRB,2.4414E-03_JPRB,2.5207E-03_JPRB,2.6407E-03_JPRB,2.8167E-03_JPRB/)  
+KBO( :,15, 2) = (/&
+ & 1.9831E-03_JPRB,2.0063E-03_JPRB,2.0755E-03_JPRB,2.1800E-03_JPRB,2.3342E-03_JPRB/)  
+KBO( :,16, 2) = (/&
+ & 1.6252E-03_JPRB,1.6492E-03_JPRB,1.7097E-03_JPRB,1.8014E-03_JPRB,1.9341E-03_JPRB/)  
+KBO( :,17, 2) = (/&
+ & 1.3321E-03_JPRB,1.3556E-03_JPRB,1.4086E-03_JPRB,1.4882E-03_JPRB,1.6017E-03_JPRB/)  
+KBO( :,18, 2) = (/&
+ & 1.0920E-03_JPRB,1.1148E-03_JPRB,1.1610E-03_JPRB,1.2292E-03_JPRB,1.3248E-03_JPRB/)  
+KBO( :,19, 2) = (/&
+ & 8.9534E-04_JPRB,9.1690E-04_JPRB,9.5709E-04_JPRB,1.0148E-03_JPRB,1.0951E-03_JPRB/)  
+KBO( :,20, 2) = (/&
+ & 7.3445E-04_JPRB,7.5503E-04_JPRB,7.8958E-04_JPRB,8.3863E-04_JPRB,9.0600E-04_JPRB/)  
+KBO( :,21, 2) = (/&
+ & 6.0290E-04_JPRB,6.2180E-04_JPRB,6.5148E-04_JPRB,6.9308E-04_JPRB,7.4966E-04_JPRB/)  
+KBO( :,22, 2) = (/&
+ & 4.9595E-04_JPRB,5.1353E-04_JPRB,5.3937E-04_JPRB,5.7561E-04_JPRB,6.2348E-04_JPRB/)  
+KBO( :,23, 2) = (/&
+ & 4.0855E-04_JPRB,4.2434E-04_JPRB,4.4677E-04_JPRB,4.7846E-04_JPRB,5.1897E-04_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART2',1,ZHOOK_HANDLE)
+END SUBROUTINE PART2
+
+
+SUBROUTINE PART3
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART3',0,ZHOOK_HANDLE)
+
+
+KBO( :,24, 2) = (/&
+ & 3.3704E-04_JPRB,3.5087E-04_JPRB,3.7041E-04_JPRB,3.9825E-04_JPRB,4.3254E-04_JPRB/)  
+KBO( :,25, 2) = (/&
+ & 2.7823E-04_JPRB,2.9034E-04_JPRB,3.0756E-04_JPRB,3.3176E-04_JPRB,3.6108E-04_JPRB/)  
+KBO( :,26, 2) = (/&
+ & 2.2988E-04_JPRB,2.4065E-04_JPRB,2.5599E-04_JPRB,2.7689E-04_JPRB,3.0218E-04_JPRB/)  
+KBO( :,27, 2) = (/&
+ & 1.9008E-04_JPRB,1.9966E-04_JPRB,2.1335E-04_JPRB,2.3118E-04_JPRB,2.5287E-04_JPRB/)  
+KBO( :,28, 2) = (/&
+ & 1.5729E-04_JPRB,1.6582E-04_JPRB,1.7804E-04_JPRB,1.9321E-04_JPRB,2.1158E-04_JPRB/)  
+KBO( :,29, 2) = (/&
+ & 1.3030E-04_JPRB,1.3794E-04_JPRB,1.4870E-04_JPRB,1.6172E-04_JPRB,1.7712E-04_JPRB/)  
+KBO( :,30, 2) = (/&
+ & 1.0807E-04_JPRB,1.1491E-04_JPRB,1.2423E-04_JPRB,1.3552E-04_JPRB,1.4830E-04_JPRB/)  
+KBO( :,31, 2) = (/&
+ & 8.9737E-05_JPRB,9.5873E-05_JPRB,1.0385E-04_JPRB,1.1357E-04_JPRB,1.2422E-04_JPRB/)  
+KBO( :,32, 2) = (/&
+ & 7.4607E-05_JPRB,8.0114E-05_JPRB,8.6925E-05_JPRB,9.5160E-05_JPRB,1.0409E-04_JPRB/)  
+KBO( :,33, 2) = (/&
+ & 6.2115E-05_JPRB,6.6976E-05_JPRB,7.2842E-05_JPRB,7.9749E-05_JPRB,8.7261E-05_JPRB/)  
+KBO( :,34, 2) = (/&
+ & 5.1667E-05_JPRB,5.5854E-05_JPRB,6.0911E-05_JPRB,6.6641E-05_JPRB,7.2945E-05_JPRB/)  
+KBO( :,35, 2) = (/&
+ & 4.2714E-05_JPRB,4.6224E-05_JPRB,5.0476E-05_JPRB,5.5207E-05_JPRB,6.0446E-05_JPRB/)  
+KBO( :,36, 2) = (/&
+ & 3.5033E-05_JPRB,3.7916E-05_JPRB,4.1413E-05_JPRB,4.5290E-05_JPRB,4.9590E-05_JPRB/)  
+KBO( :,37, 2) = (/&
+ & 2.8417E-05_JPRB,3.0724E-05_JPRB,3.3511E-05_JPRB,3.6656E-05_JPRB,4.0123E-05_JPRB/)  
+KBO( :,38, 2) = (/&
+ & 2.3044E-05_JPRB,2.4879E-05_JPRB,2.7091E-05_JPRB,2.9646E-05_JPRB,3.2440E-05_JPRB/)  
+KBO( :,39, 2) = (/&
+ & 1.8696E-05_JPRB,2.0150E-05_JPRB,2.1905E-05_JPRB,2.3977E-05_JPRB,2.6231E-05_JPRB/)  
+KBO( :,40, 2) = (/&
+ & 1.5079E-05_JPRB,1.6190E-05_JPRB,1.7561E-05_JPRB,1.9219E-05_JPRB,2.1019E-05_JPRB/)  
+KBO( :,41, 2) = (/&
+ & 1.2166E-05_JPRB,1.2998E-05_JPRB,1.4076E-05_JPRB,1.5387E-05_JPRB,1.6826E-05_JPRB/)  
+KBO( :,42, 2) = (/&
+ & 9.8245E-06_JPRB,1.0447E-05_JPRB,1.1292E-05_JPRB,1.2314E-05_JPRB,1.3470E-05_JPRB/)  
+KBO( :,43, 2) = (/&
+ & 7.9207E-06_JPRB,8.3766E-06_JPRB,9.0212E-06_JPRB,9.8015E-06_JPRB,1.0730E-05_JPRB/)  
+KBO( :,44, 2) = (/&
+ & 6.3891E-06_JPRB,6.7204E-06_JPRB,7.1950E-06_JPRB,7.7968E-06_JPRB,8.5295E-06_JPRB/)  
+KBO( :,45, 2) = (/&
+ & 5.1614E-06_JPRB,5.4018E-06_JPRB,5.7463E-06_JPRB,6.2126E-06_JPRB,6.7779E-06_JPRB/)  
+KBO( :,46, 2) = (/&
+ & 4.1735E-06_JPRB,4.3451E-06_JPRB,4.5931E-06_JPRB,4.9450E-06_JPRB,5.3724E-06_JPRB/)  
+KBO( :,47, 2) = (/&
+ & 3.3750E-06_JPRB,3.4959E-06_JPRB,3.6722E-06_JPRB,3.9247E-06_JPRB,4.2513E-06_JPRB/)  
+KBO( :,48, 2) = (/&
+ & 2.7418E-06_JPRB,2.8192E-06_JPRB,2.9434E-06_JPRB,3.1225E-06_JPRB,3.3711E-06_JPRB/)  
+KBO( :,49, 2) = (/&
+ & 2.2371E-06_JPRB,2.2775E-06_JPRB,2.3656E-06_JPRB,2.4925E-06_JPRB,2.6750E-06_JPRB/)  
+KBO( :,50, 2) = (/&
+ & 1.8317E-06_JPRB,1.8465E-06_JPRB,1.9073E-06_JPRB,1.9984E-06_JPRB,2.1290E-06_JPRB/)  
+KBO( :,51, 2) = (/&
+ & 1.5036E-06_JPRB,1.5039E-06_JPRB,1.5416E-06_JPRB,1.6065E-06_JPRB,1.7002E-06_JPRB/)  
+KBO( :,52, 2) = (/&
+ & 1.2365E-06_JPRB,1.2289E-06_JPRB,1.2476E-06_JPRB,1.2944E-06_JPRB,1.3617E-06_JPRB/)  
+KBO( :,53, 2) = (/&
+ & 1.0180E-06_JPRB,1.0070E-06_JPRB,1.0130E-06_JPRB,1.0447E-06_JPRB,1.0931E-06_JPRB/)  
+KBO( :,54, 2) = (/&
+ & 8.3881E-07_JPRB,8.2694E-07_JPRB,8.2607E-07_JPRB,8.4574E-07_JPRB,8.8059E-07_JPRB/)  
+KBO( :,55, 2) = (/&
+ & 6.9195E-07_JPRB,6.7987E-07_JPRB,6.7548E-07_JPRB,6.8562E-07_JPRB,7.1114E-07_JPRB/)  
+KBO( :,56, 2) = (/&
+ & 5.7173E-07_JPRB,5.5948E-07_JPRB,5.5356E-07_JPRB,5.5733E-07_JPRB,5.7508E-07_JPRB/)  
+KBO( :,57, 2) = (/&
+ & 4.7316E-07_JPRB,4.6096E-07_JPRB,4.5452E-07_JPRB,4.5448E-07_JPRB,4.6581E-07_JPRB/)  
+KBO( :,58, 2) = (/&
+ & 3.9189E-07_JPRB,3.8013E-07_JPRB,3.7366E-07_JPRB,3.7160E-07_JPRB,3.7785E-07_JPRB/)  
+KBO( :,59, 2) = (/&
+ & 3.2262E-07_JPRB,3.1241E-07_JPRB,3.0663E-07_JPRB,3.0438E-07_JPRB,3.0850E-07_JPRB/)  
+KBO( :,13, 3) = (/&
+ & 7.5527E-03_JPRB,7.7875E-03_JPRB,8.1613E-03_JPRB,8.7500E-03_JPRB,9.4693E-03_JPRB/)  
+KBO( :,14, 3) = (/&
+ & 6.2162E-03_JPRB,6.4179E-03_JPRB,6.7443E-03_JPRB,7.2436E-03_JPRB,7.8488E-03_JPRB/)  
+KBO( :,15, 3) = (/&
+ & 5.1154E-03_JPRB,5.2899E-03_JPRB,5.5758E-03_JPRB,5.9977E-03_JPRB,6.5097E-03_JPRB/)  
+KBO( :,16, 3) = (/&
+ & 4.2091E-03_JPRB,4.3598E-03_JPRB,4.6108E-03_JPRB,4.9662E-03_JPRB,5.4041E-03_JPRB/)  
+KBO( :,17, 3) = (/&
+ & 3.4624E-03_JPRB,3.5931E-03_JPRB,3.8125E-03_JPRB,4.1118E-03_JPRB,4.4867E-03_JPRB/)  
+KBO( :,18, 3) = (/&
+ & 2.8478E-03_JPRB,2.9611E-03_JPRB,3.1513E-03_JPRB,3.4056E-03_JPRB,3.7227E-03_JPRB/)  
+KBO( :,19, 3) = (/&
+ & 2.3424E-03_JPRB,2.4403E-03_JPRB,2.6050E-03_JPRB,2.8205E-03_JPRB,3.0875E-03_JPRB/)  
+KBO( :,20, 3) = (/&
+ & 1.9279E-03_JPRB,2.0136E-03_JPRB,2.1568E-03_JPRB,2.3394E-03_JPRB,2.5633E-03_JPRB/)  
+KBO( :,21, 3) = (/&
+ & 1.5868E-03_JPRB,1.6625E-03_JPRB,1.7866E-03_JPRB,1.9403E-03_JPRB,2.1279E-03_JPRB/)  
+KBO( :,22, 3) = (/&
+ & 1.3095E-03_JPRB,1.3798E-03_JPRB,1.4873E-03_JPRB,1.6185E-03_JPRB,1.7762E-03_JPRB/)  
+KBO( :,23, 3) = (/&
+ & 1.0820E-03_JPRB,1.1470E-03_JPRB,1.2388E-03_JPRB,1.3506E-03_JPRB,1.4828E-03_JPRB/)  
+KBO( :,24, 3) = (/&
+ & 8.9533E-04_JPRB,9.5480E-04_JPRB,1.0325E-03_JPRB,1.1273E-03_JPRB,1.2391E-03_JPRB/)  
+KBO( :,25, 3) = (/&
+ & 7.4229E-04_JPRB,7.9534E-04_JPRB,8.6151E-04_JPRB,9.4186E-04_JPRB,1.0361E-03_JPRB/)  
+KBO( :,26, 3) = (/&
+ & 6.1705E-04_JPRB,6.6349E-04_JPRB,7.2018E-04_JPRB,7.8870E-04_JPRB,8.6741E-04_JPRB/)  
+KBO( :,27, 3) = (/&
+ & 5.1373E-04_JPRB,5.5377E-04_JPRB,6.0259E-04_JPRB,6.6085E-04_JPRB,7.2640E-04_JPRB/)  
+KBO( :,28, 3) = (/&
+ & 4.2826E-04_JPRB,4.6245E-04_JPRB,5.0434E-04_JPRB,5.5405E-04_JPRB,6.0850E-04_JPRB/)  
+KBO( :,29, 3) = (/&
+ & 3.5730E-04_JPRB,3.8667E-04_JPRB,4.2255E-04_JPRB,4.6475E-04_JPRB,5.1008E-04_JPRB/)  
+KBO( :,30, 3) = (/&
+ & 2.9823E-04_JPRB,3.2356E-04_JPRB,3.5427E-04_JPRB,3.8963E-04_JPRB,4.2762E-04_JPRB/)  
+KBO( :,31, 3) = (/&
+ & 2.4915E-04_JPRB,2.7111E-04_JPRB,2.9730E-04_JPRB,3.2676E-04_JPRB,3.5853E-04_JPRB/)  
+KBO( :,32, 3) = (/&
+ & 2.0835E-04_JPRB,2.2726E-04_JPRB,2.4969E-04_JPRB,2.7415E-04_JPRB,3.0052E-04_JPRB/)  
+KBO( :,33, 3) = (/&
+ & 1.7440E-04_JPRB,1.9063E-04_JPRB,2.0966E-04_JPRB,2.3004E-04_JPRB,2.5180E-04_JPRB/)  
+KBO( :,34, 3) = (/&
+ & 1.4566E-04_JPRB,1.5949E-04_JPRB,1.7537E-04_JPRB,1.9242E-04_JPRB,2.1028E-04_JPRB/)  
+KBO( :,35, 3) = (/&
+ & 1.2069E-04_JPRB,1.3227E-04_JPRB,1.4538E-04_JPRB,1.5949E-04_JPRB,1.7412E-04_JPRB/)  
+KBO( :,36, 3) = (/&
+ & 9.9043E-05_JPRB,1.0856E-04_JPRB,1.1931E-04_JPRB,1.3088E-04_JPRB,1.4285E-04_JPRB/)  
+KBO( :,37, 3) = (/&
+ & 8.0192E-05_JPRB,8.7828E-05_JPRB,9.6552E-05_JPRB,1.0592E-04_JPRB,1.1571E-04_JPRB/)  
+KBO( :,38, 3) = (/&
+ & 6.4895E-05_JPRB,7.1006E-05_JPRB,7.8078E-05_JPRB,8.5641E-05_JPRB,9.3649E-05_JPRB/)  
+KBO( :,39, 3) = (/&
+ & 5.2529E-05_JPRB,5.7417E-05_JPRB,6.3137E-05_JPRB,6.9248E-05_JPRB,7.5786E-05_JPRB/)  
+KBO( :,40, 3) = (/&
+ & 4.2172E-05_JPRB,4.6011E-05_JPRB,5.0550E-05_JPRB,5.5469E-05_JPRB,6.0782E-05_JPRB/)  
+KBO( :,41, 3) = (/&
+ & 3.3845E-05_JPRB,3.6843E-05_JPRB,4.0405E-05_JPRB,4.4378E-05_JPRB,4.8669E-05_JPRB/)  
+KBO( :,42, 3) = (/&
+ & 2.7178E-05_JPRB,2.9499E-05_JPRB,3.2305E-05_JPRB,3.5507E-05_JPRB,3.8948E-05_JPRB/)  
+KBO( :,43, 3) = (/&
+ & 2.1748E-05_JPRB,2.3526E-05_JPRB,2.5707E-05_JPRB,2.8262E-05_JPRB,3.0999E-05_JPRB/)  
+KBO( :,44, 3) = (/&
+ & 1.7386E-05_JPRB,1.8745E-05_JPRB,2.0430E-05_JPRB,2.2420E-05_JPRB,2.4615E-05_JPRB/)  
+KBO( :,45, 3) = (/&
+ & 1.3919E-05_JPRB,1.4955E-05_JPRB,1.6239E-05_JPRB,1.7786E-05_JPRB,1.9548E-05_JPRB/)  
+KBO( :,46, 3) = (/&
+ & 1.1164E-05_JPRB,1.1925E-05_JPRB,1.2898E-05_JPRB,1.4092E-05_JPRB,1.5493E-05_JPRB/)  
+KBO( :,47, 3) = (/&
+ & 8.9724E-06_JPRB,9.4906E-06_JPRB,1.0225E-05_JPRB,1.1136E-05_JPRB,1.2214E-05_JPRB/)  
+KBO( :,48, 3) = (/&
+ & 7.2294E-06_JPRB,7.5737E-06_JPRB,8.1199E-06_JPRB,8.8033E-06_JPRB,9.6335E-06_JPRB/)  
+KBO( :,49, 3) = (/&
+ & 5.8381E-06_JPRB,6.0726E-06_JPRB,6.4582E-06_JPRB,6.9718E-06_JPRB,7.6076E-06_JPRB/)  
+KBO( :,50, 3) = (/&
+ & 4.7296E-06_JPRB,4.8930E-06_JPRB,5.1532E-06_JPRB,5.5428E-06_JPRB,6.0261E-06_JPRB/)  
+KBO( :,51, 3) = (/&
+ & 3.8399E-06_JPRB,3.9514E-06_JPRB,4.1284E-06_JPRB,4.4168E-06_JPRB,4.7822E-06_JPRB/)  
+KBO( :,52, 3) = (/&
+ & 3.1245E-06_JPRB,3.1973E-06_JPRB,3.3211E-06_JPRB,3.5239E-06_JPRB,3.8012E-06_JPRB/)  
+KBO( :,53, 3) = (/&
+ & 2.5471E-06_JPRB,2.5925E-06_JPRB,2.6785E-06_JPRB,2.8158E-06_JPRB,3.0258E-06_JPRB/)  
+KBO( :,54, 3) = (/&
+ & 2.0814E-06_JPRB,2.1073E-06_JPRB,2.1664E-06_JPRB,2.2617E-06_JPRB,2.4173E-06_JPRB/)  
+KBO( :,55, 3) = (/&
+ & 1.7028E-06_JPRB,1.7165E-06_JPRB,1.7558E-06_JPRB,1.8239E-06_JPRB,1.9350E-06_JPRB/)  
+KBO( :,56, 3) = (/&
+ & 1.3936E-06_JPRB,1.4001E-06_JPRB,1.4255E-06_JPRB,1.4737E-06_JPRB,1.5508E-06_JPRB/)  
+KBO( :,57, 3) = (/&
+ & 1.1409E-06_JPRB,1.1442E-06_JPRB,1.1589E-06_JPRB,1.1924E-06_JPRB,1.2461E-06_JPRB/)  
+KBO( :,58, 3) = (/&
+ & 9.3532E-07_JPRB,9.3617E-07_JPRB,9.4415E-07_JPRB,9.6677E-07_JPRB,1.0053E-06_JPRB/)  
+KBO( :,59, 3) = (/&
+ & 7.6716E-07_JPRB,7.6655E-07_JPRB,7.7193E-07_JPRB,7.8900E-07_JPRB,8.1899E-07_JPRB/)  
+KBO( :,13, 4) = (/&
+ & 2.0095E-02_JPRB,2.1182E-02_JPRB,2.2225E-02_JPRB,2.3304E-02_JPRB,2.4394E-02_JPRB/)  
+KBO( :,14, 4) = (/&
+ & 1.6601E-02_JPRB,1.7480E-02_JPRB,1.8338E-02_JPRB,1.9231E-02_JPRB,2.0128E-02_JPRB/)  
+KBO( :,15, 4) = (/&
+ & 1.3711E-02_JPRB,1.4425E-02_JPRB,1.5134E-02_JPRB,1.5868E-02_JPRB,1.6611E-02_JPRB/)  
+KBO( :,16, 4) = (/&
+ & 1.1319E-02_JPRB,1.1903E-02_JPRB,1.2490E-02_JPRB,1.3094E-02_JPRB,1.3700E-02_JPRB/)  
+KBO( :,17, 4) = (/&
+ & 9.3377E-03_JPRB,9.8166E-03_JPRB,1.0301E-02_JPRB,1.0797E-02_JPRB,1.1296E-02_JPRB/)  
+KBO( :,18, 4) = (/&
+ & 7.6994E-03_JPRB,8.0931E-03_JPRB,8.4951E-03_JPRB,8.8986E-03_JPRB,9.3140E-03_JPRB/)  
+KBO( :,19, 4) = (/&
+ & 6.3454E-03_JPRB,6.6690E-03_JPRB,7.0019E-03_JPRB,7.3313E-03_JPRB,7.6829E-03_JPRB/)  
+KBO( :,20, 4) = (/&
+ & 5.2328E-03_JPRB,5.5001E-03_JPRB,5.7724E-03_JPRB,6.0469E-03_JPRB,6.3413E-03_JPRB/)  
+KBO( :,21, 4) = (/&
+ & 4.3150E-03_JPRB,4.5344E-03_JPRB,4.7593E-03_JPRB,4.9881E-03_JPRB,5.2336E-03_JPRB/)  
+KBO( :,22, 4) = (/&
+ & 3.5703E-03_JPRB,3.7499E-03_JPRB,3.9366E-03_JPRB,4.1268E-03_JPRB,4.3318E-03_JPRB/)  
+KBO( :,23, 4) = (/&
+ & 2.9547E-03_JPRB,3.1024E-03_JPRB,3.2576E-03_JPRB,3.4140E-03_JPRB,3.5849E-03_JPRB/)  
+KBO( :,24, 4) = (/&
+ & 2.4452E-03_JPRB,2.5697E-03_JPRB,2.6961E-03_JPRB,2.8259E-03_JPRB,2.9642E-03_JPRB/)  
+KBO( :,25, 4) = (/&
+ & 2.0245E-03_JPRB,2.1288E-03_JPRB,2.2320E-03_JPRB,2.3397E-03_JPRB,2.4511E-03_JPRB/)  
+KBO( :,26, 4) = (/&
+ & 1.6785E-03_JPRB,1.7643E-03_JPRB,1.8488E-03_JPRB,1.9387E-03_JPRB,2.0283E-03_JPRB/)  
+KBO( :,27, 4) = (/&
+ & 1.3920E-03_JPRB,1.4619E-03_JPRB,1.5313E-03_JPRB,1.6067E-03_JPRB,1.6789E-03_JPRB/)  
+KBO( :,28, 4) = (/&
+ & 1.1548E-03_JPRB,1.2112E-03_JPRB,1.2686E-03_JPRB,1.3305E-03_JPRB,1.3899E-03_JPRB/)  
+KBO( :,29, 4) = (/&
+ & 9.5779E-04_JPRB,1.0036E-03_JPRB,1.0515E-03_JPRB,1.1016E-03_JPRB,1.1501E-03_JPRB/)  
+KBO( :,30, 4) = (/&
+ & 7.9398E-04_JPRB,8.3159E-04_JPRB,8.7176E-04_JPRB,9.1222E-04_JPRB,9.5119E-04_JPRB/)  
+KBO( :,31, 4) = (/&
+ & 6.5813E-04_JPRB,6.8913E-04_JPRB,7.2305E-04_JPRB,7.5559E-04_JPRB,7.8680E-04_JPRB/)  
+KBO( :,32, 4) = (/&
+ & 5.4557E-04_JPRB,5.7133E-04_JPRB,5.9920E-04_JPRB,6.2591E-04_JPRB,6.5094E-04_JPRB/)  
+KBO( :,33, 4) = (/&
+ & 4.5225E-04_JPRB,4.7384E-04_JPRB,4.9635E-04_JPRB,5.1810E-04_JPRB,5.3850E-04_JPRB/)  
+KBO( :,34, 4) = (/&
+ & 3.7429E-04_JPRB,3.9240E-04_JPRB,4.1057E-04_JPRB,4.2811E-04_JPRB,4.4483E-04_JPRB/)  
+KBO( :,35, 4) = (/&
+ & 3.0841E-04_JPRB,3.2350E-04_JPRB,3.3821E-04_JPRB,3.5240E-04_JPRB,3.6608E-04_JPRB/)  
+KBO( :,36, 4) = (/&
+ & 2.5285E-04_JPRB,2.6525E-04_JPRB,2.7729E-04_JPRB,2.8885E-04_JPRB,3.0006E-04_JPRB/)  
+KBO( :,37, 4) = (/&
+ & 2.0586E-04_JPRB,2.1585E-04_JPRB,2.2582E-04_JPRB,2.3540E-04_JPRB,2.4457E-04_JPRB/)  
+KBO( :,38, 4) = (/&
+ & 1.6753E-04_JPRB,1.7559E-04_JPRB,1.8384E-04_JPRB,1.9177E-04_JPRB,1.9927E-04_JPRB/)  
+KBO( :,39, 4) = (/&
+ & 1.3635E-04_JPRB,1.4286E-04_JPRB,1.4968E-04_JPRB,1.5622E-04_JPRB,1.6235E-04_JPRB/)  
+KBO( :,40, 4) = (/&
+ & 1.1045E-04_JPRB,1.1567E-04_JPRB,1.2132E-04_JPRB,1.2672E-04_JPRB,1.3176E-04_JPRB/)  
+KBO( :,41, 4) = (/&
+ & 8.9410E-05_JPRB,9.3610E-05_JPRB,9.8241E-05_JPRB,1.0266E-04_JPRB,1.0686E-04_JPRB/)  
+KBO( :,42, 4) = (/&
+ & 7.2378E-05_JPRB,7.5781E-05_JPRB,7.9465E-05_JPRB,8.3145E-05_JPRB,8.6672E-05_JPRB/)  
+KBO( :,43, 4) = (/&
+ & 5.8424E-05_JPRB,6.1188E-05_JPRB,6.4107E-05_JPRB,6.7188E-05_JPRB,7.0140E-05_JPRB/)  
+KBO( :,44, 4) = (/&
+ & 4.7058E-05_JPRB,4.9346E-05_JPRB,5.1671E-05_JPRB,5.4230E-05_JPRB,5.6657E-05_JPRB/)  
+KBO( :,45, 4) = (/&
+ & 3.7899E-05_JPRB,3.9798E-05_JPRB,4.1669E-05_JPRB,4.3706E-05_JPRB,4.5724E-05_JPRB/)  
+KBO( :,46, 4) = (/&
+ & 3.0497E-05_JPRB,3.2055E-05_JPRB,3.3572E-05_JPRB,3.5176E-05_JPRB,3.6873E-05_JPRB/)  
+KBO( :,47, 4) = (/&
+ & 2.4479E-05_JPRB,2.5732E-05_JPRB,2.6995E-05_JPRB,2.8267E-05_JPRB,2.9671E-05_JPRB/)  
+KBO( :,48, 4) = (/&
+ & 1.9635E-05_JPRB,2.0659E-05_JPRB,2.1706E-05_JPRB,2.2729E-05_JPRB,2.3830E-05_JPRB/)  
+KBO( :,49, 4) = (/&
+ & 1.5750E-05_JPRB,1.6588E-05_JPRB,1.7438E-05_JPRB,1.8276E-05_JPRB,1.9144E-05_JPRB/)  
+KBO( :,50, 4) = (/&
+ & 1.2638E-05_JPRB,1.3327E-05_JPRB,1.4014E-05_JPRB,1.4713E-05_JPRB,1.5408E-05_JPRB/)  
+KBO( :,51, 4) = (/&
+ & 1.0134E-05_JPRB,1.0710E-05_JPRB,1.1273E-05_JPRB,1.1849E-05_JPRB,1.2410E-05_JPRB/)  
+KBO( :,52, 4) = (/&
+ & 8.1350E-06_JPRB,8.6070E-06_JPRB,9.0666E-06_JPRB,9.5314E-06_JPRB,9.9961E-06_JPRB/)  
+KBO( :,53, 4) = (/&
+ & 6.5268E-06_JPRB,6.9077E-06_JPRB,7.2874E-06_JPRB,7.6647E-06_JPRB,8.0514E-06_JPRB/)  
+KBO( :,54, 4) = (/&
+ & 5.2400E-06_JPRB,5.5504E-06_JPRB,5.8662E-06_JPRB,6.1754E-06_JPRB,6.4922E-06_JPRB/)  
+KBO( :,55, 4) = (/&
+ & 4.2244E-06_JPRB,4.4665E-06_JPRB,4.7250E-06_JPRB,4.9775E-06_JPRB,5.2331E-06_JPRB/)  
+KBO( :,56, 4) = (/&
+ & 3.4163E-06_JPRB,3.5930E-06_JPRB,3.8023E-06_JPRB,4.0104E-06_JPRB,4.2175E-06_JPRB/)  
+KBO( :,57, 4) = (/&
+ & 2.7693E-06_JPRB,2.8867E-06_JPRB,3.0575E-06_JPRB,3.2307E-06_JPRB,3.4003E-06_JPRB/)  
+KBO( :,58, 4) = (/&
+ & 2.2500E-06_JPRB,2.3279E-06_JPRB,2.4627E-06_JPRB,2.6048E-06_JPRB,2.7433E-06_JPRB/)  
+KBO( :,59, 4) = (/&
+ & 1.8386E-06_JPRB,1.8966E-06_JPRB,2.0040E-06_JPRB,2.1199E-06_JPRB,2.2332E-06_JPRB/)  
+KBO( :,13, 5) = (/&
+ & 3.7227E-02_JPRB,3.9236E-02_JPRB,4.1136E-02_JPRB,4.2635E-02_JPRB,4.4125E-02_JPRB/)  
+KBO( :,14, 5) = (/&
+ & 3.0731E-02_JPRB,3.2386E-02_JPRB,3.3908E-02_JPRB,3.5126E-02_JPRB,3.6383E-02_JPRB/)  
+KBO( :,15, 5) = (/&
+ & 2.5378E-02_JPRB,2.6727E-02_JPRB,2.7941E-02_JPRB,2.8947E-02_JPRB,3.0002E-02_JPRB/)  
+KBO( :,16, 5) = (/&
+ & 2.0959E-02_JPRB,2.2046E-02_JPRB,2.3014E-02_JPRB,2.3851E-02_JPRB,2.4734E-02_JPRB/)  
+KBO( :,17, 5) = (/&
+ & 1.7294E-02_JPRB,1.8176E-02_JPRB,1.8952E-02_JPRB,1.9643E-02_JPRB,2.0380E-02_JPRB/)  
+KBO( :,18, 5) = (/&
+ & 1.4261E-02_JPRB,1.4983E-02_JPRB,1.5597E-02_JPRB,1.6174E-02_JPRB,1.6784E-02_JPRB/)  
+KBO( :,19, 5) = (/&
+ & 1.1754E-02_JPRB,1.2342E-02_JPRB,1.2837E-02_JPRB,1.3312E-02_JPRB,1.3820E-02_JPRB/)  
+KBO( :,20, 5) = (/&
+ & 9.6940E-03_JPRB,1.0172E-02_JPRB,1.0569E-02_JPRB,1.0962E-02_JPRB,1.1389E-02_JPRB/)  
+KBO( :,21, 5) = (/&
+ & 7.9935E-03_JPRB,8.3804E-03_JPRB,8.7019E-03_JPRB,9.0256E-03_JPRB,9.3917E-03_JPRB/)  
+KBO( :,22, 5) = (/&
+ & 6.6098E-03_JPRB,6.9213E-03_JPRB,7.1802E-03_JPRB,7.4552E-03_JPRB,7.7626E-03_JPRB/)  
+KBO( :,23, 5) = (/&
+ & 5.4675E-03_JPRB,5.7122E-03_JPRB,5.9276E-03_JPRB,6.1590E-03_JPRB,6.4177E-03_JPRB/)  
+KBO( :,24, 5) = (/&
+ & 4.5248E-03_JPRB,4.7145E-03_JPRB,4.8956E-03_JPRB,5.0905E-03_JPRB,5.3103E-03_JPRB/)  
+KBO( :,25, 5) = (/&
+ & 3.7436E-03_JPRB,3.8938E-03_JPRB,4.0451E-03_JPRB,4.2083E-03_JPRB,4.3977E-03_JPRB/)  
+KBO( :,26, 5) = (/&
+ & 3.0980E-03_JPRB,3.2193E-03_JPRB,3.3446E-03_JPRB,3.4820E-03_JPRB,3.6461E-03_JPRB/)  
+KBO( :,27, 5) = (/&
+ & 2.5629E-03_JPRB,2.6621E-03_JPRB,2.7660E-03_JPRB,2.8810E-03_JPRB,3.0242E-03_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART3',1,ZHOOK_HANDLE)
+END SUBROUTINE PART3
+
+
+SUBROUTINE PART4
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART4',0,ZHOOK_HANDLE)
+
+
+KBO( :,28, 5) = (/&
+ & 2.1185E-03_JPRB,2.2012E-03_JPRB,2.2881E-03_JPRB,2.3854E-03_JPRB,2.5100E-03_JPRB/)  
+KBO( :,29, 5) = (/&
+ & 1.7520E-03_JPRB,1.8201E-03_JPRB,1.8933E-03_JPRB,1.9774E-03_JPRB,2.0861E-03_JPRB/)  
+KBO( :,30, 5) = (/&
+ & 1.4490E-03_JPRB,1.5053E-03_JPRB,1.5668E-03_JPRB,1.6405E-03_JPRB,1.7353E-03_JPRB/)  
+KBO( :,31, 5) = (/&
+ & 1.1987E-03_JPRB,1.2454E-03_JPRB,1.2970E-03_JPRB,1.3620E-03_JPRB,1.4446E-03_JPRB/)  
+KBO( :,32, 5) = (/&
+ & 9.9162E-04_JPRB,1.0307E-03_JPRB,1.0749E-03_JPRB,1.1317E-03_JPRB,1.2036E-03_JPRB/)  
+KBO( :,33, 5) = (/&
+ & 8.2024E-04_JPRB,8.5336E-04_JPRB,8.9176E-04_JPRB,9.4137E-04_JPRB,1.0034E-03_JPRB/)  
+KBO( :,34, 5) = (/&
+ & 6.7773E-04_JPRB,7.0554E-04_JPRB,7.3898E-04_JPRB,7.8201E-04_JPRB,8.3490E-04_JPRB/)  
+KBO( :,35, 5) = (/&
+ & 5.5797E-04_JPRB,5.8103E-04_JPRB,6.0950E-04_JPRB,6.4595E-04_JPRB,6.9024E-04_JPRB/)  
+KBO( :,36, 5) = (/&
+ & 4.5741E-04_JPRB,4.7636E-04_JPRB,4.9987E-04_JPRB,5.2994E-04_JPRB,5.6634E-04_JPRB/)  
+KBO( :,37, 5) = (/&
+ & 3.7275E-04_JPRB,3.8812E-04_JPRB,4.0671E-04_JPRB,4.3063E-04_JPRB,4.5983E-04_JPRB/)  
+KBO( :,38, 5) = (/&
+ & 3.0368E-04_JPRB,3.1612E-04_JPRB,3.3079E-04_JPRB,3.4977E-04_JPRB,3.7316E-04_JPRB/)  
+KBO( :,39, 5) = (/&
+ & 2.4743E-04_JPRB,2.5746E-04_JPRB,2.6909E-04_JPRB,2.8414E-04_JPRB,3.0287E-04_JPRB/)  
+KBO( :,40, 5) = (/&
+ & 2.0083E-04_JPRB,2.0881E-04_JPRB,2.1786E-04_JPRB,2.2950E-04_JPRB,2.4422E-04_JPRB/)  
+KBO( :,41, 5) = (/&
+ & 1.6290E-04_JPRB,1.6930E-04_JPRB,1.7640E-04_JPRB,1.8539E-04_JPRB,1.9681E-04_JPRB/)  
+KBO( :,42, 5) = (/&
+ & 1.3212E-04_JPRB,1.3729E-04_JPRB,1.4297E-04_JPRB,1.4983E-04_JPRB,1.5865E-04_JPRB/)  
+KBO( :,43, 5) = (/&
+ & 1.0692E-04_JPRB,1.1111E-04_JPRB,1.1561E-04_JPRB,1.2081E-04_JPRB,1.2752E-04_JPRB/)  
+KBO( :,44, 5) = (/&
+ & 8.6484E-05_JPRB,8.9851E-05_JPRB,9.3401E-05_JPRB,9.7384E-05_JPRB,1.0246E-04_JPRB/)  
+KBO( :,45, 5) = (/&
+ & 6.9902E-05_JPRB,7.2641E-05_JPRB,7.5491E-05_JPRB,7.8632E-05_JPRB,8.2438E-05_JPRB/)  
+KBO( :,46, 5) = (/&
+ & 5.6357E-05_JPRB,5.8678E-05_JPRB,6.0987E-05_JPRB,6.3456E-05_JPRB,6.6309E-05_JPRB/)  
+KBO( :,47, 5) = (/&
+ & 4.5246E-05_JPRB,4.7351E-05_JPRB,4.9188E-05_JPRB,5.1132E-05_JPRB,5.3302E-05_JPRB/)  
+KBO( :,48, 5) = (/&
+ & 3.6331E-05_JPRB,3.8149E-05_JPRB,3.9667E-05_JPRB,4.1226E-05_JPRB,4.2932E-05_JPRB/)  
+KBO( :,49, 5) = (/&
+ & 2.9150E-05_JPRB,3.0662E-05_JPRB,3.1997E-05_JPRB,3.3254E-05_JPRB,3.4583E-05_JPRB/)  
+KBO( :,50, 5) = (/&
+ & 2.3393E-05_JPRB,2.4645E-05_JPRB,2.5835E-05_JPRB,2.6842E-05_JPRB,2.7903E-05_JPRB/)  
+KBO( :,51, 5) = (/&
+ & 1.8850E-05_JPRB,1.9822E-05_JPRB,2.0830E-05_JPRB,2.1675E-05_JPRB,2.2533E-05_JPRB/)  
+KBO( :,52, 5) = (/&
+ & 1.5259E-05_JPRB,1.5932E-05_JPRB,1.6760E-05_JPRB,1.7514E-05_JPRB,1.8199E-05_JPRB/)  
+KBO( :,53, 5) = (/&
+ & 1.2418E-05_JPRB,1.2796E-05_JPRB,1.3482E-05_JPRB,1.4141E-05_JPRB,1.4696E-05_JPRB/)  
+KBO( :,54, 5) = (/&
+ & 1.0153E-05_JPRB,1.0334E-05_JPRB,1.0859E-05_JPRB,1.1414E-05_JPRB,1.1882E-05_JPRB/)  
+KBO( :,55, 5) = (/&
+ & 8.3134E-06_JPRB,8.3805E-06_JPRB,8.7476E-06_JPRB,9.2016E-06_JPRB,9.6168E-06_JPRB/)  
+KBO( :,56, 5) = (/&
+ & 6.8128E-06_JPRB,6.8250E-06_JPRB,7.0422E-06_JPRB,7.4184E-06_JPRB,7.7786E-06_JPRB/)  
+KBO( :,57, 5) = (/&
+ & 5.5871E-06_JPRB,5.5794E-06_JPRB,5.6879E-06_JPRB,5.9805E-06_JPRB,6.2836E-06_JPRB/)  
+KBO( :,58, 5) = (/&
+ & 4.5833E-06_JPRB,4.5677E-06_JPRB,4.6123E-06_JPRB,4.8228E-06_JPRB,5.0715E-06_JPRB/)  
+KBO( :,59, 5) = (/&
+ & 3.7554E-06_JPRB,3.7413E-06_JPRB,3.7664E-06_JPRB,3.9250E-06_JPRB,4.1286E-06_JPRB/)  
+KBO( :,13, 6) = (/&
+ & 5.9721E-02_JPRB,6.1354E-02_JPRB,6.5184E-02_JPRB,7.1296E-02_JPRB,7.9076E-02_JPRB/)  
+KBO( :,14, 6) = (/&
+ & 4.9090E-02_JPRB,5.0657E-02_JPRB,5.4055E-02_JPRB,5.9268E-02_JPRB,6.5784E-02_JPRB/)  
+KBO( :,15, 6) = (/&
+ & 4.0373E-02_JPRB,4.1857E-02_JPRB,4.4839E-02_JPRB,4.9265E-02_JPRB,5.4749E-02_JPRB/)  
+KBO( :,16, 6) = (/&
+ & 3.3205E-02_JPRB,3.4589E-02_JPRB,3.7200E-02_JPRB,4.0963E-02_JPRB,4.5588E-02_JPRB/)  
+KBO( :,17, 6) = (/&
+ & 2.7321E-02_JPRB,2.8572E-02_JPRB,3.0844E-02_JPRB,3.4044E-02_JPRB,3.7943E-02_JPRB/)  
+KBO( :,18, 6) = (/&
+ & 2.2479E-02_JPRB,2.3595E-02_JPRB,2.5570E-02_JPRB,2.8293E-02_JPRB,3.1545E-02_JPRB/)  
+KBO( :,19, 6) = (/&
+ & 1.8500E-02_JPRB,1.9491E-02_JPRB,2.1196E-02_JPRB,2.3496E-02_JPRB,2.6203E-02_JPRB/)  
+KBO( :,20, 6) = (/&
+ & 1.5238E-02_JPRB,1.6125E-02_JPRB,1.7598E-02_JPRB,1.9543E-02_JPRB,2.1792E-02_JPRB/)  
+KBO( :,21, 6) = (/&
+ & 1.2557E-02_JPRB,1.3343E-02_JPRB,1.4614E-02_JPRB,1.6252E-02_JPRB,1.8124E-02_JPRB/)  
+KBO( :,22, 6) = (/&
+ & 1.0384E-02_JPRB,1.1107E-02_JPRB,1.2217E-02_JPRB,1.3612E-02_JPRB,1.5187E-02_JPRB/)  
+KBO( :,23, 6) = (/&
+ & 8.6014E-03_JPRB,9.2602E-03_JPRB,1.0223E-02_JPRB,1.1410E-02_JPRB,1.2737E-02_JPRB/)  
+KBO( :,24, 6) = (/&
+ & 7.1344E-03_JPRB,7.7349E-03_JPRB,8.5670E-03_JPRB,9.5773E-03_JPRB,1.0688E-02_JPRB/)  
+KBO( :,25, 6) = (/&
+ & 5.9318E-03_JPRB,6.4720E-03_JPRB,7.1956E-03_JPRB,8.0463E-03_JPRB,8.9744E-03_JPRB/)  
+KBO( :,26, 6) = (/&
+ & 4.9484E-03_JPRB,5.4321E-03_JPRB,6.0595E-03_JPRB,6.7732E-03_JPRB,7.5465E-03_JPRB/)  
+KBO( :,27, 6) = (/&
+ & 4.1359E-03_JPRB,4.5660E-03_JPRB,5.1046E-03_JPRB,5.7011E-03_JPRB,6.3447E-03_JPRB/)  
+KBO( :,28, 6) = (/&
+ & 3.4651E-03_JPRB,3.8427E-03_JPRB,4.2986E-03_JPRB,4.7976E-03_JPRB,5.3324E-03_JPRB/)  
+KBO( :,29, 6) = (/&
+ & 2.9102E-03_JPRB,3.2386E-03_JPRB,3.6218E-03_JPRB,4.0393E-03_JPRB,4.4830E-03_JPRB/)  
+KBO( :,30, 6) = (/&
+ & 2.4470E-03_JPRB,2.7307E-03_JPRB,3.0520E-03_JPRB,3.4007E-03_JPRB,3.7682E-03_JPRB/)  
+KBO( :,31, 6) = (/&
+ & 2.0606E-03_JPRB,2.3037E-03_JPRB,2.5728E-03_JPRB,2.8636E-03_JPRB,3.1684E-03_JPRB/)  
+KBO( :,32, 6) = (/&
+ & 1.7372E-03_JPRB,1.9434E-03_JPRB,2.1690E-03_JPRB,2.4112E-03_JPRB,2.6643E-03_JPRB/)  
+KBO( :,33, 6) = (/&
+ & 1.4660E-03_JPRB,1.6395E-03_JPRB,1.8287E-03_JPRB,2.0301E-03_JPRB,2.2400E-03_JPRB/)  
+KBO( :,34, 6) = (/&
+ & 1.2328E-03_JPRB,1.3780E-03_JPRB,1.5359E-03_JPRB,1.7027E-03_JPRB,1.8761E-03_JPRB/)  
+KBO( :,35, 6) = (/&
+ & 1.0255E-03_JPRB,1.1459E-03_JPRB,1.2766E-03_JPRB,1.4142E-03_JPRB,1.5568E-03_JPRB/)  
+KBO( :,36, 6) = (/&
+ & 8.4246E-04_JPRB,9.4144E-04_JPRB,1.0489E-03_JPRB,1.1618E-03_JPRB,1.2788E-03_JPRB/)  
+KBO( :,37, 6) = (/&
+ & 6.8032E-04_JPRB,7.6059E-04_JPRB,8.4800E-04_JPRB,9.4011E-04_JPRB,1.0358E-03_JPRB/)  
+KBO( :,38, 6) = (/&
+ & 5.4877E-04_JPRB,6.1380E-04_JPRB,6.8481E-04_JPRB,7.5996E-04_JPRB,8.3820E-04_JPRB/)  
+KBO( :,39, 6) = (/&
+ & 4.4270E-04_JPRB,4.9539E-04_JPRB,5.5302E-04_JPRB,6.1429E-04_JPRB,6.7818E-04_JPRB/)  
+KBO( :,40, 6) = (/&
+ & 3.5308E-04_JPRB,3.9528E-04_JPRB,4.4159E-04_JPRB,4.9127E-04_JPRB,5.4322E-04_JPRB/)  
+KBO( :,41, 6) = (/&
+ & 2.8136E-04_JPRB,3.1489E-04_JPRB,3.5201E-04_JPRB,3.9219E-04_JPRB,4.3434E-04_JPRB/)  
+KBO( :,42, 6) = (/&
+ & 2.2435E-04_JPRB,2.5074E-04_JPRB,2.8049E-04_JPRB,3.1292E-04_JPRB,3.4710E-04_JPRB/)  
+KBO( :,43, 6) = (/&
+ & 1.7802E-04_JPRB,1.9831E-04_JPRB,2.2204E-04_JPRB,2.4800E-04_JPRB,2.7568E-04_JPRB/)  
+KBO( :,44, 6) = (/&
+ & 1.4111E-04_JPRB,1.5650E-04_JPRB,1.7526E-04_JPRB,1.9592E-04_JPRB,2.1824E-04_JPRB/)  
+KBO( :,45, 6) = (/&
+ & 1.1219E-04_JPRB,1.2365E-04_JPRB,1.3828E-04_JPRB,1.5471E-04_JPRB,1.7263E-04_JPRB/)  
+KBO( :,46, 6) = (/&
+ & 8.9353E-05_JPRB,9.7626E-05_JPRB,1.0876E-04_JPRB,1.2182E-04_JPRB,1.3611E-04_JPRB/)  
+KBO( :,47, 6) = (/&
+ & 7.1331E-05_JPRB,7.6923E-05_JPRB,8.5223E-05_JPRB,9.5443E-05_JPRB,1.0675E-04_JPRB/)  
+KBO( :,48, 6) = (/&
+ & 5.7219E-05_JPRB,6.0885E-05_JPRB,6.6897E-05_JPRB,7.4726E-05_JPRB,8.3664E-05_JPRB/)  
+KBO( :,49, 6) = (/&
+ & 4.6157E-05_JPRB,4.8450E-05_JPRB,5.2634E-05_JPRB,5.8499E-05_JPRB,6.5552E-05_JPRB/)  
+KBO( :,50, 6) = (/&
+ & 3.7497E-05_JPRB,3.8822E-05_JPRB,4.1643E-05_JPRB,4.5997E-05_JPRB,5.1490E-05_JPRB/)  
+KBO( :,51, 6) = (/&
+ & 3.0548E-05_JPRB,3.1258E-05_JPRB,3.3116E-05_JPRB,3.6272E-05_JPRB,4.0468E-05_JPRB/)  
+KBO( :,52, 6) = (/&
+ & 2.4904E-05_JPRB,2.5290E-05_JPRB,2.6467E-05_JPRB,2.8662E-05_JPRB,3.1824E-05_JPRB/)  
+KBO( :,53, 6) = (/&
+ & 2.0318E-05_JPRB,2.0573E-05_JPRB,2.1239E-05_JPRB,2.2721E-05_JPRB,2.5059E-05_JPRB/)  
+KBO( :,54, 6) = (/&
+ & 1.6597E-05_JPRB,1.6771E-05_JPRB,1.7139E-05_JPRB,1.8127E-05_JPRB,1.9830E-05_JPRB/)  
+KBO( :,55, 6) = (/&
+ & 1.3561E-05_JPRB,1.3681E-05_JPRB,1.3892E-05_JPRB,1.4536E-05_JPRB,1.5739E-05_JPRB/)  
+KBO( :,56, 6) = (/&
+ & 1.1086E-05_JPRB,1.1167E-05_JPRB,1.1310E-05_JPRB,1.1693E-05_JPRB,1.2526E-05_JPRB/)  
+KBO( :,57, 6) = (/&
+ & 9.0628E-06_JPRB,9.1225E-06_JPRB,9.2203E-06_JPRB,9.4367E-06_JPRB,9.9993E-06_JPRB/)  
+KBO( :,58, 6) = (/&
+ & 7.4303E-06_JPRB,7.4548E-06_JPRB,7.5223E-06_JPRB,7.6481E-06_JPRB,8.0215E-06_JPRB/)  
+KBO( :,59, 6) = (/&
+ & 6.0935E-06_JPRB,6.1009E-06_JPRB,6.1525E-06_JPRB,6.2448E-06_JPRB,6.5226E-06_JPRB/)  
+KBO( :,13, 7) = (/&
+ & 1.1588E-01_JPRB,1.3365E-01_JPRB,1.5332E-01_JPRB,1.7451E-01_JPRB,1.9690E-01_JPRB/)  
+KBO( :,14, 7) = (/&
+ & 9.7055E-02_JPRB,1.1196E-01_JPRB,1.2839E-01_JPRB,1.4612E-01_JPRB,1.6488E-01_JPRB/)  
+KBO( :,15, 7) = (/&
+ & 8.1294E-02_JPRB,9.3772E-02_JPRB,1.0756E-01_JPRB,1.2240E-01_JPRB,1.3809E-01_JPRB/)  
+KBO( :,16, 7) = (/&
+ & 6.8061E-02_JPRB,7.8545E-02_JPRB,9.0101E-02_JPRB,1.0250E-01_JPRB,1.1550E-01_JPRB/)  
+KBO( :,17, 7) = (/&
+ & 5.6952E-02_JPRB,6.5739E-02_JPRB,7.5393E-02_JPRB,8.5665E-02_JPRB,9.6436E-02_JPRB/)  
+KBO( :,18, 7) = (/&
+ & 4.7617E-02_JPRB,5.4966E-02_JPRB,6.2979E-02_JPRB,7.1480E-02_JPRB,8.0409E-02_JPRB/)  
+KBO( :,19, 7) = (/&
+ & 3.9773E-02_JPRB,4.5894E-02_JPRB,5.2544E-02_JPRB,5.9585E-02_JPRB,6.7003E-02_JPRB/)  
+KBO( :,20, 7) = (/&
+ & 3.3266E-02_JPRB,3.8381E-02_JPRB,4.3891E-02_JPRB,4.9742E-02_JPRB,5.5899E-02_JPRB/)  
+KBO( :,21, 7) = (/&
+ & 2.7821E-02_JPRB,3.2077E-02_JPRB,3.6647E-02_JPRB,4.1505E-02_JPRB,4.6608E-02_JPRB/)  
+KBO( :,22, 7) = (/&
+ & 2.3478E-02_JPRB,2.7039E-02_JPRB,3.0839E-02_JPRB,3.4879E-02_JPRB,3.9103E-02_JPRB/)  
+KBO( :,23, 7) = (/&
+ & 1.9822E-02_JPRB,2.2790E-02_JPRB,2.5960E-02_JPRB,2.9305E-02_JPRB,3.2804E-02_JPRB/)  
+KBO( :,24, 7) = (/&
+ & 1.6745E-02_JPRB,1.9225E-02_JPRB,2.1856E-02_JPRB,2.4636E-02_JPRB,2.7545E-02_JPRB/)  
+KBO( :,25, 7) = (/&
+ & 1.4161E-02_JPRB,1.6225E-02_JPRB,1.8415E-02_JPRB,2.0732E-02_JPRB,2.3157E-02_JPRB/)  
+KBO( :,26, 7) = (/&
+ & 1.2003E-02_JPRB,1.3719E-02_JPRB,1.5547E-02_JPRB,1.7489E-02_JPRB,1.9498E-02_JPRB/)  
+KBO( :,27, 7) = (/&
+ & 1.0171E-02_JPRB,1.1602E-02_JPRB,1.3133E-02_JPRB,1.4753E-02_JPRB,1.6413E-02_JPRB/)  
+KBO( :,28, 7) = (/&
+ & 8.6151E-03_JPRB,9.8138E-03_JPRB,1.1097E-02_JPRB,1.2440E-02_JPRB,1.3808E-02_JPRB/)  
+KBO( :,29, 7) = (/&
+ & 7.3031E-03_JPRB,8.3100E-03_JPRB,9.3806E-03_JPRB,1.0489E-02_JPRB,1.1614E-02_JPRB/)  
+KBO( :,30, 7) = (/&
+ & 6.1924E-03_JPRB,7.0350E-03_JPRB,7.9243E-03_JPRB,8.8379E-03_JPRB,9.7615E-03_JPRB/)  
+KBO( :,31, 7) = (/&
+ & 5.2533E-03_JPRB,5.9562E-03_JPRB,6.6929E-03_JPRB,7.4442E-03_JPRB,8.2040E-03_JPRB/)  
+KBO( :,32, 7) = (/&
+ & 4.4571E-03_JPRB,5.0422E-03_JPRB,5.6504E-03_JPRB,6.2688E-03_JPRB,6.8946E-03_JPRB/)  
+KBO( :,33, 7) = (/&
+ & 3.7800E-03_JPRB,4.2660E-03_JPRB,4.7678E-03_JPRB,5.2772E-03_JPRB,5.7931E-03_JPRB/)  
+KBO( :,34, 7) = (/&
+ & 3.1899E-03_JPRB,3.5923E-03_JPRB,4.0058E-03_JPRB,4.4259E-03_JPRB,4.8520E-03_JPRB/)  
+KBO( :,35, 7) = (/&
+ & 2.6588E-03_JPRB,2.9911E-03_JPRB,3.3311E-03_JPRB,3.6773E-03_JPRB,4.0289E-03_JPRB/)  
+KBO( :,36, 7) = (/&
+ & 2.1867E-03_JPRB,2.4598E-03_JPRB,2.7392E-03_JPRB,3.0239E-03_JPRB,3.3135E-03_JPRB/)  
+KBO( :,37, 7) = (/&
+ & 1.7654E-03_JPRB,1.9884E-03_JPRB,2.2175E-03_JPRB,2.4512E-03_JPRB,2.6886E-03_JPRB/)  
+KBO( :,38, 7) = (/&
+ & 1.4235E-03_JPRB,1.6055E-03_JPRB,1.7932E-03_JPRB,1.9849E-03_JPRB,2.1796E-03_JPRB/)  
+KBO( :,39, 7) = (/&
+ & 1.1477E-03_JPRB,1.2961E-03_JPRB,1.4499E-03_JPRB,1.6071E-03_JPRB,1.7668E-03_JPRB/)  
+KBO( :,40, 7) = (/&
+ & 9.1302E-04_JPRB,1.0335E-03_JPRB,1.1591E-03_JPRB,1.2877E-03_JPRB,1.4185E-03_JPRB/)  
+KBO( :,41, 7) = (/&
+ & 7.2467E-04_JPRB,8.2221E-04_JPRB,9.2464E-04_JPRB,1.0298E-03_JPRB,1.1370E-03_JPRB/)  
+KBO( :,42, 7) = (/&
+ & 5.7474E-04_JPRB,6.5369E-04_JPRB,7.3701E-04_JPRB,8.2293E-04_JPRB,9.1070E-04_JPRB/)  
+KBO( :,43, 7) = (/&
+ & 4.5204E-04_JPRB,5.1571E-04_JPRB,5.8312E-04_JPRB,6.5322E-04_JPRB,7.2492E-04_JPRB/)  
+KBO( :,44, 7) = (/&
+ & 3.5397E-04_JPRB,4.0509E-04_JPRB,4.5944E-04_JPRB,5.1651E-04_JPRB,5.7502E-04_JPRB/)  
+KBO( :,45, 7) = (/&
+ & 2.7677E-04_JPRB,3.1783E-04_JPRB,3.6162E-04_JPRB,4.0793E-04_JPRB,4.5562E-04_JPRB/)  
+KBO( :,46, 7) = (/&
+ & 2.1540E-04_JPRB,2.4835E-04_JPRB,2.8358E-04_JPRB,3.2093E-04_JPRB,3.5979E-04_JPRB/)  
+KBO( :,47, 7) = (/&
+ & 1.6633E-04_JPRB,1.9266E-04_JPRB,2.2081E-04_JPRB,2.5080E-04_JPRB,2.8236E-04_JPRB/)  
+KBO( :,48, 7) = (/&
+ & 1.2830E-04_JPRB,1.4914E-04_JPRB,1.7167E-04_JPRB,1.9573E-04_JPRB,2.2121E-04_JPRB/)  
+KBO( :,49, 7) = (/&
+ & 9.8900E-05_JPRB,1.1524E-04_JPRB,1.3325E-04_JPRB,1.5252E-04_JPRB,1.7300E-04_JPRB/)  
+KBO( :,50, 7) = (/&
+ & 7.6523E-05_JPRB,8.9264E-05_JPRB,1.0363E-04_JPRB,1.1906E-04_JPRB,1.3550E-04_JPRB/)  
+KBO( :,51, 7) = (/&
+ & 5.9350E-05_JPRB,6.9204E-05_JPRB,8.0571E-05_JPRB,9.2952E-05_JPRB,1.0617E-04_JPRB/)  
+KBO( :,52, 7) = (/&
+ & 4.6110E-05_JPRB,5.3638E-05_JPRB,6.2565E-05_JPRB,7.2480E-05_JPRB,8.3081E-05_JPRB/)  
+KBO( :,53, 7) = (/&
+ & 3.5907E-05_JPRB,4.1572E-05_JPRB,4.8523E-05_JPRB,5.6421E-05_JPRB,6.4919E-05_JPRB/)  
+KBO( :,54, 7) = (/&
+ & 2.8169E-05_JPRB,3.2394E-05_JPRB,3.7786E-05_JPRB,4.4047E-05_JPRB,5.0874E-05_JPRB/)  
+KBO( :,55, 7) = (/&
+ & 2.2244E-05_JPRB,2.5332E-05_JPRB,2.9480E-05_JPRB,3.4420E-05_JPRB,3.9903E-05_JPRB/)  
+KBO( :,56, 7) = (/&
+ & 1.7661E-05_JPRB,1.9848E-05_JPRB,2.3004E-05_JPRB,2.6875E-05_JPRB,3.1261E-05_JPRB/)  
+KBO( :,57, 7) = (/&
+ & 1.4116E-05_JPRB,1.5590E-05_JPRB,1.7962E-05_JPRB,2.0972E-05_JPRB,2.4457E-05_JPRB/)  
+KBO( :,58, 7) = (/&
+ & 1.1342E-05_JPRB,1.2323E-05_JPRB,1.4076E-05_JPRB,1.6403E-05_JPRB,1.9161E-05_JPRB/)  
+KBO( :,59, 7) = (/&
+ & 9.2282E-06_JPRB,9.9669E-06_JPRB,1.1338E-05_JPRB,1.3199E-05_JPRB,1.5427E-05_JPRB/)  
+KBO( :,13, 8) = (/&
+ & 3.3007E-01_JPRB,3.9651E-01_JPRB,4.6809E-01_JPRB,5.4357E-01_JPRB,6.2157E-01_JPRB/)  
+KBO( :,14, 8) = (/&
+ & 2.7899E-01_JPRB,3.3507E-01_JPRB,3.9534E-01_JPRB,4.5851E-01_JPRB,5.2383E-01_JPRB/)  
+KBO( :,15, 8) = (/&
+ & 2.3603E-01_JPRB,2.8320E-01_JPRB,3.3377E-01_JPRB,3.8669E-01_JPRB,4.4137E-01_JPRB/)  
+KBO( :,16, 8) = (/&
+ & 1.9959E-01_JPRB,2.3926E-01_JPRB,2.8155E-01_JPRB,3.2567E-01_JPRB,3.7161E-01_JPRB/)  
+KBO( :,17, 8) = (/&
+ & 1.6854E-01_JPRB,2.0171E-01_JPRB,2.3696E-01_JPRB,2.7391E-01_JPRB,3.1236E-01_JPRB/)  
+KBO( :,18, 8) = (/&
+ & 1.4209E-01_JPRB,1.6977E-01_JPRB,1.9918E-01_JPRB,2.3009E-01_JPRB,2.6229E-01_JPRB/)  
+KBO( :,19, 8) = (/&
+ & 1.1954E-01_JPRB,1.4262E-01_JPRB,1.6719E-01_JPRB,1.9301E-01_JPRB,2.1984E-01_JPRB/)  
+KBO( :,20, 8) = (/&
+ & 1.0077E-01_JPRB,1.2005E-01_JPRB,1.4054E-01_JPRB,1.6208E-01_JPRB,1.8429E-01_JPRB/)  
+KBO( :,21, 8) = (/&
+ & 8.4914E-02_JPRB,1.0100E-01_JPRB,1.1806E-01_JPRB,1.3588E-01_JPRB,1.5437E-01_JPRB/)  
+KBO( :,22, 8) = (/&
+ & 7.2355E-02_JPRB,8.5791E-02_JPRB,9.9982E-02_JPRB,1.1481E-01_JPRB,1.3020E-01_JPRB/)  
+KBO( :,23, 8) = (/&
+ & 6.1637E-02_JPRB,7.2833E-02_JPRB,8.4658E-02_JPRB,9.6984E-02_JPRB,1.0981E-01_JPRB/)  
+KBO( :,24, 8) = (/&
+ & 5.2514E-02_JPRB,6.1860E-02_JPRB,7.1701E-02_JPRB,8.1967E-02_JPRB,9.2596E-02_JPRB/)  
+KBO( :,25, 8) = (/&
+ & 4.4769E-02_JPRB,5.2568E-02_JPRB,6.0763E-02_JPRB,6.9296E-02_JPRB,7.8120E-02_JPRB/)  
+KBO( :,26, 8) = (/&
+ & 3.8253E-02_JPRB,4.4756E-02_JPRB,5.1578E-02_JPRB,5.8670E-02_JPRB,6.6013E-02_JPRB/)  
+KBO( :,27, 8) = (/&
+ & 3.2667E-02_JPRB,3.8088E-02_JPRB,4.3757E-02_JPRB,4.9656E-02_JPRB,5.5793E-02_JPRB/)  
+KBO( :,28, 8) = (/&
+ & 2.7877E-02_JPRB,3.2393E-02_JPRB,3.7109E-02_JPRB,4.2030E-02_JPRB,4.7179E-02_JPRB/)  
+KBO( :,29, 8) = (/&
+ & 2.3797E-02_JPRB,2.7555E-02_JPRB,3.1491E-02_JPRB,3.5617E-02_JPRB,3.9923E-02_JPRB/)  
+KBO( :,30, 8) = (/&
+ & 2.0298E-02_JPRB,2.3432E-02_JPRB,2.6727E-02_JPRB,3.0189E-02_JPRB,3.3773E-02_JPRB/)  
+KBO( :,31, 8) = (/&
+ & 1.7314E-02_JPRB,1.9936E-02_JPRB,2.2701E-02_JPRB,2.5587E-02_JPRB,2.8571E-02_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART4',1,ZHOOK_HANDLE)
+END SUBROUTINE PART4
+
+
+SUBROUTINE PART5
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART5',0,ZHOOK_HANDLE)
+
+
+KBO( :,32, 8) = (/&
+ & 1.4770E-02_JPRB,1.6972E-02_JPRB,1.9281E-02_JPRB,2.1688E-02_JPRB,2.4162E-02_JPRB/)  
+KBO( :,33, 8) = (/&
+ & 1.2600E-02_JPRB,1.4446E-02_JPRB,1.6373E-02_JPRB,1.8374E-02_JPRB,2.0424E-02_JPRB/)  
+KBO( :,34, 8) = (/&
+ & 1.0696E-02_JPRB,1.2236E-02_JPRB,1.3839E-02_JPRB,1.5497E-02_JPRB,1.7194E-02_JPRB/)  
+KBO( :,35, 8) = (/&
+ & 8.9555E-03_JPRB,1.0232E-02_JPRB,1.1559E-02_JPRB,1.2931E-02_JPRB,1.4335E-02_JPRB/)  
+KBO( :,36, 8) = (/&
+ & 7.3846E-03_JPRB,8.4373E-03_JPRB,9.5325E-03_JPRB,1.0662E-02_JPRB,1.1822E-02_JPRB/)  
+KBO( :,37, 8) = (/&
+ & 5.9606E-03_JPRB,6.8233E-03_JPRB,7.7209E-03_JPRB,8.6487E-03_JPRB,9.6041E-03_JPRB/)  
+KBO( :,38, 8) = (/&
+ & 4.8037E-03_JPRB,5.5105E-03_JPRB,6.2459E-03_JPRB,7.0079E-03_JPRB,7.7943E-03_JPRB/)  
+KBO( :,39, 8) = (/&
+ & 3.8706E-03_JPRB,4.4491E-03_JPRB,5.0519E-03_JPRB,5.6779E-03_JPRB,6.3251E-03_JPRB/)  
+KBO( :,40, 8) = (/&
+ & 3.0705E-03_JPRB,3.5417E-03_JPRB,4.0336E-03_JPRB,4.5461E-03_JPRB,5.0773E-03_JPRB/)  
+KBO( :,41, 8) = (/&
+ & 2.4285E-03_JPRB,2.8118E-03_JPRB,3.2129E-03_JPRB,3.6318E-03_JPRB,4.0673E-03_JPRB/)  
+KBO( :,42, 8) = (/&
+ & 1.9184E-03_JPRB,2.2300E-03_JPRB,2.5570E-03_JPRB,2.8991E-03_JPRB,3.2561E-03_JPRB/)  
+KBO( :,43, 8) = (/&
+ & 1.4999E-03_JPRB,1.7522E-03_JPRB,2.0180E-03_JPRB,2.2966E-03_JPRB,2.5881E-03_JPRB/)  
+KBO( :,44, 8) = (/&
+ & 1.1655E-03_JPRB,1.3694E-03_JPRB,1.5849E-03_JPRB,1.8113E-03_JPRB,2.0488E-03_JPRB/)  
+KBO( :,45, 8) = (/&
+ & 9.0376E-04_JPRB,1.0682E-03_JPRB,1.2427E-03_JPRB,1.4266E-03_JPRB,1.6199E-03_JPRB/)  
+KBO( :,46, 8) = (/&
+ & 6.9650E-04_JPRB,8.2858E-04_JPRB,9.6950E-04_JPRB,1.1186E-03_JPRB,1.2755E-03_JPRB/)  
+KBO( :,47, 8) = (/&
+ & 5.3108E-04_JPRB,6.3643E-04_JPRB,7.4984E-04_JPRB,8.7018E-04_JPRB,9.9721E-04_JPRB/)  
+KBO( :,48, 8) = (/&
+ & 4.0361E-04_JPRB,4.8742E-04_JPRB,5.7833E-04_JPRB,6.7534E-04_JPRB,7.7807E-04_JPRB/)  
+KBO( :,49, 8) = (/&
+ & 3.0566E-04_JPRB,3.7215E-04_JPRB,4.4475E-04_JPRB,5.2279E-04_JPRB,6.0579E-04_JPRB/)  
+KBO( :,50, 8) = (/&
+ & 2.3193E-04_JPRB,2.8459E-04_JPRB,3.4251E-04_JPRB,4.0526E-04_JPRB,4.7230E-04_JPRB/)  
+KBO( :,51, 8) = (/&
+ & 1.7590E-04_JPRB,2.1748E-04_JPRB,2.6361E-04_JPRB,3.1395E-04_JPRB,3.6804E-04_JPRB/)  
+KBO( :,52, 8) = (/&
+ & 1.3304E-04_JPRB,1.6573E-04_JPRB,2.0240E-04_JPRB,2.4265E-04_JPRB,2.8621E-04_JPRB/)  
+KBO( :,53, 8) = (/&
+ & 1.0033E-04_JPRB,1.2590E-04_JPRB,1.5496E-04_JPRB,1.8704E-04_JPRB,2.2201E-04_JPRB/)  
+KBO( :,54, 8) = (/&
+ & 7.6043E-05_JPRB,9.6033E-05_JPRB,1.1903E-04_JPRB,1.4464E-04_JPRB,1.7271E-04_JPRB/)  
+KBO( :,55, 8) = (/&
+ & 5.7725E-05_JPRB,7.3309E-05_JPRB,9.1482E-05_JPRB,1.1190E-04_JPRB,1.3439E-04_JPRB/)  
+KBO( :,56, 8) = (/&
+ & 4.3773E-05_JPRB,5.5845E-05_JPRB,7.0155E-05_JPRB,8.6401E-05_JPRB,1.0439E-04_JPRB/)  
+KBO( :,57, 8) = (/&
+ & 3.3178E-05_JPRB,4.2466E-05_JPRB,5.3677E-05_JPRB,6.6562E-05_JPRB,8.0932E-05_JPRB/)  
+KBO( :,58, 8) = (/&
+ & 2.5276E-05_JPRB,3.2365E-05_JPRB,4.1133E-05_JPRB,5.1343E-05_JPRB,6.2815E-05_JPRB/)  
+KBO( :,59, 8) = (/&
+ & 2.0138E-05_JPRB,2.5779E-05_JPRB,3.2836E-05_JPRB,4.1105E-05_JPRB,5.0433E-05_JPRB/)  
+KBO( :,13, 9) = (/&
+ & 2.0575E+00_JPRB,2.5259E+00_JPRB,3.0234E+00_JPRB,3.5471E+00_JPRB,4.0892E+00_JPRB/)  
+KBO( :,14, 9) = (/&
+ & 1.7896E+00_JPRB,2.1936E+00_JPRB,2.6243E+00_JPRB,3.0754E+00_JPRB,3.5357E+00_JPRB/)  
+KBO( :,15, 9) = (/&
+ & 1.5532E+00_JPRB,1.9005E+00_JPRB,2.2698E+00_JPRB,2.6534E+00_JPRB,3.0460E+00_JPRB/)  
+KBO( :,16, 9) = (/&
+ & 1.3431E+00_JPRB,1.6399E+00_JPRB,1.9542E+00_JPRB,2.2801E+00_JPRB,2.6154E+00_JPRB/)  
+KBO( :,17, 9) = (/&
+ & 1.1564E+00_JPRB,1.4091E+00_JPRB,1.6750E+00_JPRB,1.9517E+00_JPRB,2.2353E+00_JPRB/)  
+KBO( :,18, 9) = (/&
+ & 9.9261E-01_JPRB,1.2059E+00_JPRB,1.4303E+00_JPRB,1.6635E+00_JPRB,1.9029E+00_JPRB/)  
+KBO( :,19, 9) = (/&
+ & 8.4829E-01_JPRB,1.0283E+00_JPRB,1.2171E+00_JPRB,1.4131E+00_JPRB,1.6142E+00_JPRB/)  
+KBO( :,20, 9) = (/&
+ & 7.2551E-01_JPRB,8.7689E-01_JPRB,1.0360E+00_JPRB,1.2012E+00_JPRB,1.3703E+00_JPRB/)  
+KBO( :,21, 9) = (/&
+ & 6.1932E-01_JPRB,7.4645E-01_JPRB,8.8019E-01_JPRB,1.0189E+00_JPRB,1.1616E+00_JPRB/)  
+KBO( :,22, 9) = (/&
+ & 5.3436E-01_JPRB,6.4171E-01_JPRB,7.5441E-01_JPRB,8.7104E-01_JPRB,9.9107E-01_JPRB/)  
+KBO( :,23, 9) = (/&
+ & 4.6064E-01_JPRB,5.5112E-01_JPRB,6.4570E-01_JPRB,7.4365E-01_JPRB,8.4436E-01_JPRB/)  
+KBO( :,24, 9) = (/&
+ & 3.9696E-01_JPRB,4.7292E-01_JPRB,5.5220E-01_JPRB,6.3452E-01_JPRB,7.1905E-01_JPRB/)  
+KBO( :,25, 9) = (/&
+ & 3.4206E-01_JPRB,4.0576E-01_JPRB,4.7240E-01_JPRB,5.4144E-01_JPRB,6.1253E-01_JPRB/)  
+KBO( :,26, 9) = (/&
+ & 2.9509E-01_JPRB,3.4866E-01_JPRB,4.0462E-01_JPRB,4.6255E-01_JPRB,5.2212E-01_JPRB/)  
+KBO( :,27, 9) = (/&
+ & 2.5432E-01_JPRB,2.9938E-01_JPRB,3.4636E-01_JPRB,3.9487E-01_JPRB,4.4473E-01_JPRB/)  
+KBO( :,28, 9) = (/&
+ & 2.1897E-01_JPRB,2.5686E-01_JPRB,2.9621E-01_JPRB,3.3690E-01_JPRB,3.7871E-01_JPRB/)  
+KBO( :,29, 9) = (/&
+ & 1.8863E-01_JPRB,2.2035E-01_JPRB,2.5338E-01_JPRB,2.8746E-01_JPRB,3.2276E-01_JPRB/)  
+KBO( :,30, 9) = (/&
+ & 1.6227E-01_JPRB,1.8891E-01_JPRB,2.1659E-01_JPRB,2.4532E-01_JPRB,2.7508E-01_JPRB/)  
+KBO( :,31, 9) = (/&
+ & 1.3961E-01_JPRB,1.6197E-01_JPRB,1.8522E-01_JPRB,2.0946E-01_JPRB,2.3451E-01_JPRB/)  
+KBO( :,32, 9) = (/&
+ & 1.2009E-01_JPRB,1.3886E-01_JPRB,1.5848E-01_JPRB,1.7888E-01_JPRB,2.0001E-01_JPRB/)  
+KBO( :,33, 9) = (/&
+ & 1.0324E-01_JPRB,1.1904E-01_JPRB,1.3559E-01_JPRB,1.5281E-01_JPRB,1.7071E-01_JPRB/)  
+KBO( :,34, 9) = (/&
+ & 8.8245E-02_JPRB,1.0156E-01_JPRB,1.1550E-01_JPRB,1.3006E-01_JPRB,1.4528E-01_JPRB/)  
+KBO( :,35, 9) = (/&
+ & 7.4373E-02_JPRB,8.5551E-02_JPRB,9.7297E-02_JPRB,1.0957E-01_JPRB,1.2251E-01_JPRB/)  
+KBO( :,36, 9) = (/&
+ & 6.1704E-02_JPRB,7.1049E-02_JPRB,8.0900E-02_JPRB,9.1251E-02_JPRB,1.0221E-01_JPRB/)  
+KBO( :,37, 9) = (/&
+ & 5.0060E-02_JPRB,5.7820E-02_JPRB,6.6024E-02_JPRB,7.4701E-02_JPRB,8.3923E-02_JPRB/)  
+KBO( :,38, 9) = (/&
+ & 4.0550E-02_JPRB,4.6991E-02_JPRB,5.3826E-02_JPRB,6.1105E-02_JPRB,6.8864E-02_JPRB/)  
+KBO( :,39, 9) = (/&
+ & 3.2845E-02_JPRB,3.8185E-02_JPRB,4.3883E-02_JPRB,4.9990E-02_JPRB,5.6512E-02_JPRB/)  
+KBO( :,40, 9) = (/&
+ & 2.6159E-02_JPRB,3.0559E-02_JPRB,3.5279E-02_JPRB,4.0364E-02_JPRB,4.5803E-02_JPRB/)  
+KBO( :,41, 9) = (/&
+ & 2.0762E-02_JPRB,2.4380E-02_JPRB,2.8285E-02_JPRB,3.2514E-02_JPRB,3.7041E-02_JPRB/)  
+KBO( :,42, 9) = (/&
+ & 1.6454E-02_JPRB,1.9426E-02_JPRB,2.2652E-02_JPRB,2.6163E-02_JPRB,2.9929E-02_JPRB/)  
+KBO( :,43, 9) = (/&
+ & 1.2889E-02_JPRB,1.5316E-02_JPRB,1.7969E-02_JPRB,2.0865E-02_JPRB,2.3986E-02_JPRB/)  
+KBO( :,44, 9) = (/&
+ & 1.0025E-02_JPRB,1.2000E-02_JPRB,1.4172E-02_JPRB,1.6553E-02_JPRB,1.9131E-02_JPRB/)  
+KBO( :,45, 9) = (/&
+ & 7.7746E-03_JPRB,9.3784E-03_JPRB,1.1153E-02_JPRB,1.3107E-02_JPRB,1.5232E-02_JPRB/)  
+KBO( :,46, 9) = (/&
+ & 5.9839E-03_JPRB,7.2803E-03_JPRB,8.7236E-03_JPRB,1.0320E-02_JPRB,1.2066E-02_JPRB/)  
+KBO( :,47, 9) = (/&
+ & 4.5469E-03_JPRB,5.5872E-03_JPRB,6.7527E-03_JPRB,8.0490E-03_JPRB,9.4737E-03_JPRB/)  
+KBO( :,48, 9) = (/&
+ & 3.4387E-03_JPRB,4.2707E-03_JPRB,5.2081E-03_JPRB,6.2578E-03_JPRB,7.4170E-03_JPRB/)  
+KBO( :,49, 9) = (/&
+ & 2.5872E-03_JPRB,3.2502E-03_JPRB,4.0014E-03_JPRB,4.8487E-03_JPRB,5.7896E-03_JPRB/)  
+KBO( :,50, 9) = (/&
+ & 1.9484E-03_JPRB,2.4763E-03_JPRB,3.0782E-03_JPRB,3.7619E-03_JPRB,4.5255E-03_JPRB/)  
+KBO( :,51, 9) = (/&
+ & 1.4641E-03_JPRB,1.8833E-03_JPRB,2.3642E-03_JPRB,2.9156E-03_JPRB,3.5343E-03_JPRB/)  
+KBO( :,52, 9) = (/&
+ & 1.0947E-03_JPRB,1.4260E-03_JPRB,1.8092E-03_JPRB,2.2525E-03_JPRB,2.7523E-03_JPRB/)  
+KBO( :,53, 9) = (/&
+ & 8.1385E-04_JPRB,1.0744E-03_JPRB,1.3788E-03_JPRB,1.7335E-03_JPRB,2.1363E-03_JPRB/)  
+KBO( :,54, 9) = (/&
+ & 6.0727E-04_JPRB,8.1227E-04_JPRB,1.0543E-03_JPRB,1.3383E-03_JPRB,1.6634E-03_JPRB/)  
+KBO( :,55, 9) = (/&
+ & 4.5272E-04_JPRB,6.1374E-04_JPRB,8.0589E-04_JPRB,1.0331E-03_JPRB,1.2952E-03_JPRB/)  
+KBO( :,56, 9) = (/&
+ & 3.3583E-04_JPRB,4.6181E-04_JPRB,6.1377E-04_JPRB,7.9508E-04_JPRB,1.0057E-03_JPRB/)  
+KBO( :,57, 9) = (/&
+ & 2.4776E-04_JPRB,3.4590E-04_JPRB,4.6559E-04_JPRB,6.0978E-04_JPRB,7.7861E-04_JPRB/)  
+KBO( :,58, 9) = (/&
+ & 1.8283E-04_JPRB,2.5924E-04_JPRB,3.5338E-04_JPRB,4.6808E-04_JPRB,6.0340E-04_JPRB/)  
+KBO( :,59, 9) = (/&
+ & 1.4394E-04_JPRB,2.0565E-04_JPRB,2.8231E-04_JPRB,3.7641E-04_JPRB,4.8766E-04_JPRB/)  
+KBO( :,13,10) = (/&
+ & 9.3904E+00_JPRB,1.1558E+01_JPRB,1.3845E+01_JPRB,1.6163E+01_JPRB,1.8555E+01_JPRB/)  
+KBO( :,14,10) = (/&
+ & 8.3973E+00_JPRB,1.0270E+01_JPRB,1.2209E+01_JPRB,1.4231E+01_JPRB,1.6403E+01_JPRB/)  
+KBO( :,15,10) = (/&
+ & 7.4227E+00_JPRB,9.0328E+00_JPRB,1.0725E+01_JPRB,1.2539E+01_JPRB,1.4424E+01_JPRB/)  
+KBO( :,16,10) = (/&
+ & 6.5205E+00_JPRB,7.9257E+00_JPRB,9.4310E+00_JPRB,1.1012E+01_JPRB,1.2602E+01_JPRB/)  
+KBO( :,17,10) = (/&
+ & 5.6968E+00_JPRB,6.9236E+00_JPRB,8.2313E+00_JPRB,9.5792E+00_JPRB,1.0956E+01_JPRB/)  
+KBO( :,18,10) = (/&
+ & 4.9471E+00_JPRB,6.0161E+00_JPRB,7.1339E+00_JPRB,8.2948E+00_JPRB,9.4857E+00_JPRB/)  
+KBO( :,19,10) = (/&
+ & 4.2895E+00_JPRB,5.2029E+00_JPRB,6.1642E+00_JPRB,7.1527E+00_JPRB,8.1730E+00_JPRB/)  
+KBO( :,20,10) = (/&
+ & 3.7147E+00_JPRB,4.4929E+00_JPRB,5.3068E+00_JPRB,6.1474E+00_JPRB,7.0078E+00_JPRB/)  
+KBO( :,21,10) = (/&
+ & 3.2024E+00_JPRB,3.8631E+00_JPRB,4.5499E+00_JPRB,5.2596E+00_JPRB,5.9867E+00_JPRB/)  
+KBO( :,22,10) = (/&
+ & 2.7881E+00_JPRB,3.3462E+00_JPRB,3.9291E+00_JPRB,4.5332E+00_JPRB,5.1516E+00_JPRB/)  
+KBO( :,23,10) = (/&
+ & 2.4221E+00_JPRB,2.8934E+00_JPRB,3.3888E+00_JPRB,3.9007E+00_JPRB,4.4296E+00_JPRB/)  
+KBO( :,24,10) = (/&
+ & 2.1012E+00_JPRB,2.5042E+00_JPRB,2.9257E+00_JPRB,3.3605E+00_JPRB,3.8099E+00_JPRB/)  
+KBO( :,25,10) = (/&
+ & 1.8234E+00_JPRB,2.1683E+00_JPRB,2.5234E+00_JPRB,2.8940E+00_JPRB,3.2740E+00_JPRB/)  
+KBO( :,26,10) = (/&
+ & 1.5880E+00_JPRB,1.8773E+00_JPRB,2.1781E+00_JPRB,2.4921E+00_JPRB,2.8182E+00_JPRB/)  
+KBO( :,27,10) = (/&
+ & 1.3795E+00_JPRB,1.6233E+00_JPRB,1.8790E+00_JPRB,2.1463E+00_JPRB,2.4246E+00_JPRB/)  
+KBO( :,28,10) = (/&
+ & 1.1952E+00_JPRB,1.4020E+00_JPRB,1.6204E+00_JPRB,1.8473E+00_JPRB,2.0818E+00_JPRB/)  
+KBO( :,29,10) = (/&
+ & 1.0353E+00_JPRB,1.2126E+00_JPRB,1.3974E+00_JPRB,1.5895E+00_JPRB,1.7854E+00_JPRB/)  
+KBO( :,30,10) = (/&
+ & 8.9710E-01_JPRB,1.0479E+00_JPRB,1.2046E+00_JPRB,1.3665E+00_JPRB,1.5321E+00_JPRB/)  
+KBO( :,31,10) = (/&
+ & 7.7817E-01_JPRB,9.0519E-01_JPRB,1.0386E+00_JPRB,1.1754E+00_JPRB,1.3182E+00_JPRB/)  
+KBO( :,32,10) = (/&
+ & 6.7399E-01_JPRB,7.8251E-01_JPRB,8.9515E-01_JPRB,1.0127E+00_JPRB,1.1369E+00_JPRB/)  
+KBO( :,33,10) = (/&
+ & 5.8405E-01_JPRB,6.7622E-01_JPRB,7.7236E-01_JPRB,8.7403E-01_JPRB,9.7956E-01_JPRB/)  
+KBO( :,34,10) = (/&
+ & 5.0357E-01_JPRB,5.8182E-01_JPRB,6.6452E-01_JPRB,7.5151E-01_JPRB,8.4035E-01_JPRB/)  
+KBO( :,35,10) = (/&
+ & 4.2779E-01_JPRB,4.9440E-01_JPRB,5.6491E-01_JPRB,6.3892E-01_JPRB,7.1333E-01_JPRB/)  
+KBO( :,36,10) = (/&
+ & 3.5777E-01_JPRB,4.1421E-01_JPRB,4.7387E-01_JPRB,5.3617E-01_JPRB,5.9900E-01_JPRB/)  
+KBO( :,37,10) = (/&
+ & 2.9234E-01_JPRB,3.3963E-01_JPRB,3.8973E-01_JPRB,4.4194E-01_JPRB,4.9508E-01_JPRB/)  
+KBO( :,38,10) = (/&
+ & 2.3845E-01_JPRB,2.7804E-01_JPRB,3.2014E-01_JPRB,3.6393E-01_JPRB,4.0887E-01_JPRB/)  
+KBO( :,39,10) = (/&
+ & 1.9449E-01_JPRB,2.2762E-01_JPRB,2.6303E-01_JPRB,2.9987E-01_JPRB,3.3808E-01_JPRB/)  
+KBO( :,40,10) = (/&
+ & 1.5581E-01_JPRB,1.8338E-01_JPRB,2.1298E-01_JPRB,2.4388E-01_JPRB,2.7640E-01_JPRB/)  
+KBO( :,41,10) = (/&
+ & 1.2437E-01_JPRB,1.4728E-01_JPRB,1.7198E-01_JPRB,1.9790E-01_JPRB,2.2561E-01_JPRB/)  
+KBO( :,42,10) = (/&
+ & 9.9114E-02_JPRB,1.1814E-01_JPRB,1.3871E-01_JPRB,1.6049E-01_JPRB,1.8409E-01_JPRB/)  
+KBO( :,43,10) = (/&
+ & 7.8014E-02_JPRB,9.3699E-02_JPRB,1.1072E-01_JPRB,1.2897E-01_JPRB,1.4893E-01_JPRB/)  
+KBO( :,44,10) = (/&
+ & 6.0930E-02_JPRB,7.3813E-02_JPRB,8.7829E-02_JPRB,1.0306E-01_JPRB,1.1990E-01_JPRB/)  
+KBO( :,45,10) = (/&
+ & 4.7439E-02_JPRB,5.7963E-02_JPRB,6.9524E-02_JPRB,8.2179E-02_JPRB,9.6377E-02_JPRB/)  
+KBO( :,46,10) = (/&
+ & 3.6628E-02_JPRB,4.5189E-02_JPRB,5.4663E-02_JPRB,6.5139E-02_JPRB,7.7031E-02_JPRB/)  
+KBO( :,47,10) = (/&
+ & 2.7890E-02_JPRB,3.4787E-02_JPRB,4.2493E-02_JPRB,5.1096E-02_JPRB,6.0965E-02_JPRB/)  
+KBO( :,48,10) = (/&
+ & 2.1119E-02_JPRB,2.6645E-02_JPRB,3.2896E-02_JPRB,3.9921E-02_JPRB,4.8089E-02_JPRB/)  
+KBO( :,49,10) = (/&
+ & 1.5900E-02_JPRB,2.0307E-02_JPRB,2.5351E-02_JPRB,3.1064E-02_JPRB,3.7792E-02_JPRB/)  
+KBO( :,50,10) = (/&
+ & 1.1982E-02_JPRB,1.5486E-02_JPRB,1.9553E-02_JPRB,2.4196E-02_JPRB,2.9727E-02_JPRB/)  
+KBO( :,51,10) = (/&
+ & 9.0056E-03_JPRB,1.1788E-02_JPRB,1.5051E-02_JPRB,1.8815E-02_JPRB,2.3348E-02_JPRB/)  
+KBO( :,52,10) = (/&
+ & 6.7287E-03_JPRB,8.9323E-03_JPRB,1.1543E-02_JPRB,1.4581E-02_JPRB,1.8277E-02_JPRB/)  
+KBO( :,53,10) = (/&
+ & 4.9917E-03_JPRB,6.7318E-03_JPRB,8.8095E-03_JPRB,1.1255E-02_JPRB,1.4250E-02_JPRB/)  
+KBO( :,54,10) = (/&
+ & 3.7166E-03_JPRB,5.0897E-03_JPRB,6.7438E-03_JPRB,8.7155E-03_JPRB,1.1147E-02_JPRB/)  
+KBO( :,55,10) = (/&
+ & 2.7631E-03_JPRB,3.8456E-03_JPRB,5.1593E-03_JPRB,6.7476E-03_JPRB,8.7195E-03_JPRB/)  
+KBO( :,56,10) = (/&
+ & 2.0411E-03_JPRB,2.8905E-03_JPRB,3.9308E-03_JPRB,5.2031E-03_JPRB,6.7949E-03_JPRB/)  
+KBO( :,57,10) = (/&
+ & 1.4978E-03_JPRB,2.1598E-03_JPRB,2.9807E-03_JPRB,3.9948E-03_JPRB,5.2752E-03_JPRB/)  
+KBO( :,58,10) = (/&
+ & 1.0985E-03_JPRB,1.6142E-03_JPRB,2.2613E-03_JPRB,3.0687E-03_JPRB,4.0986E-03_JPRB/)  
+KBO( :,59,10) = (/&
+ & 8.6500E-04_JPRB,1.2833E-03_JPRB,1.8127E-03_JPRB,2.4817E-03_JPRB,3.3443E-03_JPRB/)  
+KBO( :,13,11) = (/&
+ & 1.8372E+01_JPRB,2.2531E+01_JPRB,2.6942E+01_JPRB,3.1721E+01_JPRB,3.6666E+01_JPRB/)  
+KBO( :,14,11) = (/&
+ & 1.6476E+01_JPRB,2.0266E+01_JPRB,2.4375E+01_JPRB,2.8673E+01_JPRB,3.2960E+01_JPRB/)  
+KBO( :,15,11) = (/&
+ & 1.4838E+01_JPRB,1.8258E+01_JPRB,2.1874E+01_JPRB,2.5540E+01_JPRB,2.9299E+01_JPRB/)  
+KBO( :,16,11) = (/&
+ & 1.3322E+01_JPRB,1.6282E+01_JPRB,1.9361E+01_JPRB,2.2553E+01_JPRB,2.5938E+01_JPRB/)  
+KBO( :,17,11) = (/&
+ & 1.1797E+01_JPRB,1.4340E+01_JPRB,1.7022E+01_JPRB,1.9865E+01_JPRB,2.2805E+01_JPRB/)  
+KBO( :,18,11) = (/&
+ & 1.0354E+01_JPRB,1.2576E+01_JPRB,1.4945E+01_JPRB,1.7409E+01_JPRB,1.9880E+01_JPRB/)  
+KBO( :,19,11) = (/&
+ & 9.0365E+00_JPRB,1.0980E+01_JPRB,1.3039E+01_JPRB,1.5152E+01_JPRB,1.7258E+01_JPRB/)  
+KBO( :,20,11) = (/&
+ & 7.8834E+00_JPRB,9.5695E+00_JPRB,1.1327E+01_JPRB,1.3132E+01_JPRB,1.4932E+01_JPRB/)  
+KBO( :,21,11) = (/&
+ & 6.8550E+00_JPRB,8.2970E+00_JPRB,9.8119E+00_JPRB,1.1335E+01_JPRB,1.2856E+01_JPRB/)  
+KBO( :,22,11) = (/&
+ & 6.0199E+00_JPRB,7.2562E+00_JPRB,8.5326E+00_JPRB,9.8104E+00_JPRB,1.1086E+01_JPRB/)  
+KBO( :,23,11) = (/&
+ & 5.2655E+00_JPRB,6.3155E+00_JPRB,7.3813E+00_JPRB,8.4546E+00_JPRB,9.5205E+00_JPRB/)  
+KBO( :,24,11) = (/&
+ & 4.5968E+00_JPRB,5.4765E+00_JPRB,6.3717E+00_JPRB,7.2772E+00_JPRB,8.1752E+00_JPRB/)  
+KBO( :,25,11) = (/&
+ & 4.0046E+00_JPRB,4.7437E+00_JPRB,5.5012E+00_JPRB,6.2582E+00_JPRB,7.0243E+00_JPRB/)  
+KBO( :,26,11) = (/&
+ & 3.4899E+00_JPRB,4.1156E+00_JPRB,4.7544E+00_JPRB,5.3978E+00_JPRB,6.0478E+00_JPRB/)  
+KBO( :,27,11) = (/&
+ & 3.0370E+00_JPRB,3.5704E+00_JPRB,4.1083E+00_JPRB,4.6559E+00_JPRB,5.2026E+00_JPRB/)  
+KBO( :,28,11) = (/&
+ & 2.6441E+00_JPRB,3.0908E+00_JPRB,3.5452E+00_JPRB,4.0092E+00_JPRB,4.4774E+00_JPRB/)  
+KBO( :,29,11) = (/&
+ & 2.2991E+00_JPRB,2.6744E+00_JPRB,3.0609E+00_JPRB,3.4545E+00_JPRB,3.8571E+00_JPRB/)  
+KBO( :,30,11) = (/&
+ & 1.9952E+00_JPRB,2.3130E+00_JPRB,2.6436E+00_JPRB,2.9785E+00_JPRB,3.3224E+00_JPRB/)  
+KBO( :,31,11) = (/&
+ & 1.7303E+00_JPRB,2.0035E+00_JPRB,2.2828E+00_JPRB,2.5698E+00_JPRB,2.8597E+00_JPRB/)  
+KBO( :,32,11) = (/&
+ & 1.5021E+00_JPRB,1.7349E+00_JPRB,1.9723E+00_JPRB,2.2162E+00_JPRB,2.4607E+00_JPRB/)  
+KBO( :,33,11) = (/&
+ & 1.3048E+00_JPRB,1.5022E+00_JPRB,1.7054E+00_JPRB,1.9112E+00_JPRB,2.1255E+00_JPRB/)  
+KBO( :,34,11) = (/&
+ & 1.1267E+00_JPRB,1.2952E+00_JPRB,1.4682E+00_JPRB,1.6457E+00_JPRB,1.8352E+00_JPRB/)  
+KBO( :,35,11) = (/&
+ & 9.5958E-01_JPRB,1.1033E+00_JPRB,1.2514E+00_JPRB,1.4063E+00_JPRB,1.5730E+00_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART5',1,ZHOOK_HANDLE)
+END SUBROUTINE PART5
+
+
+SUBROUTINE PART6
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART6',0,ZHOOK_HANDLE)
+
+
+KBO( :,36,11) = (/&
+ & 8.0543E-01_JPRB,9.2728E-01_JPRB,1.0546E+00_JPRB,1.1895E+00_JPRB,1.3346E+00_JPRB/)  
+KBO( :,37,11) = (/&
+ & 6.6117E-01_JPRB,7.6429E-01_JPRB,8.7311E-01_JPRB,9.8956E-01_JPRB,1.1138E+00_JPRB/)  
+KBO( :,38,11) = (/&
+ & 5.4219E-01_JPRB,6.2915E-01_JPRB,7.2220E-01_JPRB,8.2189E-01_JPRB,9.2832E-01_JPRB/)  
+KBO( :,39,11) = (/&
+ & 4.4474E-01_JPRB,5.1851E-01_JPRB,5.9758E-01_JPRB,6.8269E-01_JPRB,7.7379E-01_JPRB/)  
+KBO( :,40,11) = (/&
+ & 3.5874E-01_JPRB,4.2077E-01_JPRB,4.8738E-01_JPRB,5.5930E-01_JPRB,6.3666E-01_JPRB/)  
+KBO( :,41,11) = (/&
+ & 2.8809E-01_JPRB,3.4018E-01_JPRB,3.9623E-01_JPRB,4.5702E-01_JPRB,5.2265E-01_JPRB/)  
+KBO( :,42,11) = (/&
+ & 2.3093E-01_JPRB,2.7453E-01_JPRB,3.2175E-01_JPRB,3.7304E-01_JPRB,4.2866E-01_JPRB/)  
+KBO( :,43,11) = (/&
+ & 1.8286E-01_JPRB,2.1908E-01_JPRB,2.5860E-01_JPRB,3.0169E-01_JPRB,3.4866E-01_JPRB/)  
+KBO( :,44,11) = (/&
+ & 1.4371E-01_JPRB,1.7364E-01_JPRB,2.0655E-01_JPRB,2.4258E-01_JPRB,2.8218E-01_JPRB/)  
+KBO( :,45,11) = (/&
+ & 1.1254E-01_JPRB,1.3724E-01_JPRB,1.6458E-01_JPRB,1.9466E-01_JPRB,2.2800E-01_JPRB/)  
+KBO( :,46,11) = (/&
+ & 8.7419E-02_JPRB,1.0769E-01_JPRB,1.3029E-01_JPRB,1.5534E-01_JPRB,1.8325E-01_JPRB/)  
+KBO( :,47,11) = (/&
+ & 6.6946E-02_JPRB,8.3455E-02_JPRB,1.0198E-01_JPRB,1.2266E-01_JPRB,1.4588E-01_JPRB/)  
+KBO( :,48,11) = (/&
+ & 5.0941E-02_JPRB,6.4338E-02_JPRB,7.9485E-02_JPRB,9.6523E-02_JPRB,1.1573E-01_JPRB/)  
+KBO( :,49,11) = (/&
+ & 3.8506E-02_JPRB,4.9326E-02_JPRB,6.1662E-02_JPRB,7.5682E-02_JPRB,9.1536E-02_JPRB/)  
+KBO( :,50,11) = (/&
+ & 2.9103E-02_JPRB,3.7840E-02_JPRB,4.7868E-02_JPRB,5.9376E-02_JPRB,7.2482E-02_JPRB/)  
+KBO( :,51,11) = (/&
+ & 2.1916E-02_JPRB,2.8951E-02_JPRB,3.7067E-02_JPRB,4.6499E-02_JPRB,5.7317E-02_JPRB/)  
+KBO( :,52,11) = (/&
+ & 1.6392E-02_JPRB,2.2020E-02_JPRB,2.8575E-02_JPRB,3.6268E-02_JPRB,4.5169E-02_JPRB/)  
+KBO( :,53,11) = (/&
+ & 1.2172E-02_JPRB,1.6642E-02_JPRB,2.1908E-02_JPRB,2.8155E-02_JPRB,3.5457E-02_JPRB/)  
+KBO( :,54,11) = (/&
+ & 9.0658E-03_JPRB,1.2613E-02_JPRB,1.6847E-02_JPRB,2.1915E-02_JPRB,2.7906E-02_JPRB/)  
+KBO( :,55,11) = (/&
+ & 6.7444E-03_JPRB,9.5483E-03_JPRB,1.2947E-02_JPRB,1.7041E-02_JPRB,2.1954E-02_JPRB/)  
+KBO( :,56,11) = (/&
+ & 4.9837E-03_JPRB,7.1893E-03_JPRB,9.9031E-03_JPRB,1.3201E-02_JPRB,1.7215E-02_JPRB/)  
+KBO( :,57,11) = (/&
+ & 3.6555E-03_JPRB,5.3797E-03_JPRB,7.5345E-03_JPRB,1.0185E-02_JPRB,1.3448E-02_JPRB/)  
+KBO( :,58,11) = (/&
+ & 2.6798E-03_JPRB,4.0234E-03_JPRB,5.7322E-03_JPRB,7.8591E-03_JPRB,1.0509E-02_JPRB/)  
+KBO( :,59,11) = (/&
+ & 2.1174E-03_JPRB,3.2126E-03_JPRB,4.6178E-03_JPRB,6.3890E-03_JPRB,8.6307E-03_JPRB/)  
+KBO( :,13,12) = (/&
+ & 3.9037E+01_JPRB,4.8595E+01_JPRB,5.8290E+01_JPRB,6.7743E+01_JPRB,7.7175E+01_JPRB/)  
+KBO( :,14,12) = (/&
+ & 3.6731E+01_JPRB,4.5143E+01_JPRB,5.3367E+01_JPRB,6.1735E+01_JPRB,7.0266E+01_JPRB/)  
+KBO( :,15,12) = (/&
+ & 3.3782E+01_JPRB,4.1053E+01_JPRB,4.8465E+01_JPRB,5.6101E+01_JPRB,6.4046E+01_JPRB/)  
+KBO( :,16,12) = (/&
+ & 3.0361E+01_JPRB,3.6837E+01_JPRB,4.3692E+01_JPRB,5.0749E+01_JPRB,5.7770E+01_JPRB/)  
+KBO( :,17,12) = (/&
+ & 2.7181E+01_JPRB,3.3037E+01_JPRB,3.9122E+01_JPRB,4.5236E+01_JPRB,5.1302E+01_JPRB/)  
+KBO( :,18,12) = (/&
+ & 2.4289E+01_JPRB,2.9373E+01_JPRB,3.4573E+01_JPRB,3.9820E+01_JPRB,4.5254E+01_JPRB/)  
+KBO( :,19,12) = (/&
+ & 2.1489E+01_JPRB,2.5832E+01_JPRB,3.0286E+01_JPRB,3.4895E+01_JPRB,3.9728E+01_JPRB/)  
+KBO( :,20,12) = (/&
+ & 1.8889E+01_JPRB,2.2626E+01_JPRB,2.6516E+01_JPRB,3.0573E+01_JPRB,3.4729E+01_JPRB/)  
+KBO( :,21,12) = (/&
+ & 1.6499E+01_JPRB,1.9772E+01_JPRB,2.3169E+01_JPRB,2.6668E+01_JPRB,3.0247E+01_JPRB/)  
+KBO( :,22,12) = (/&
+ & 1.4564E+01_JPRB,1.7397E+01_JPRB,2.0332E+01_JPRB,2.3375E+01_JPRB,2.6482E+01_JPRB/)  
+KBO( :,23,12) = (/&
+ & 1.2811E+01_JPRB,1.5254E+01_JPRB,1.7803E+01_JPRB,2.0436E+01_JPRB,2.3110E+01_JPRB/)  
+KBO( :,24,12) = (/&
+ & 1.1250E+01_JPRB,1.3354E+01_JPRB,1.5549E+01_JPRB,1.7797E+01_JPRB,2.0094E+01_JPRB/)  
+KBO( :,25,12) = (/&
+ & 9.8597E+00_JPRB,1.1670E+01_JPRB,1.3537E+01_JPRB,1.5466E+01_JPRB,1.7423E+01_JPRB/)  
+KBO( :,26,12) = (/&
+ & 8.6447E+00_JPRB,1.0181E+01_JPRB,1.1779E+01_JPRB,1.3417E+01_JPRB,1.5081E+01_JPRB/)  
+KBO( :,27,12) = (/&
+ & 7.5594E+00_JPRB,8.8642E+00_JPRB,1.0226E+01_JPRB,1.1630E+01_JPRB,1.3058E+01_JPRB/)  
+KBO( :,28,12) = (/&
+ & 6.5925E+00_JPRB,7.7161E+00_JPRB,8.8897E+00_JPRB,1.0087E+01_JPRB,1.1327E+01_JPRB/)  
+KBO( :,29,12) = (/&
+ & 5.7565E+00_JPRB,6.7240E+00_JPRB,7.7268E+00_JPRB,8.7632E+00_JPRB,9.8409E+00_JPRB/)  
+KBO( :,30,12) = (/&
+ & 5.0290E+00_JPRB,5.8636E+00_JPRB,6.7247E+00_JPRB,7.6290E+00_JPRB,8.5599E+00_JPRB/)  
+KBO( :,31,12) = (/&
+ & 4.4035E+00_JPRB,5.1182E+00_JPRB,5.8680E+00_JPRB,6.6555E+00_JPRB,7.4665E+00_JPRB/)  
+KBO( :,32,12) = (/&
+ & 3.8578E+00_JPRB,4.4752E+00_JPRB,5.1308E+00_JPRB,5.8151E+00_JPRB,6.5278E+00_JPRB/)  
+KBO( :,33,12) = (/&
+ & 3.3794E+00_JPRB,3.9167E+00_JPRB,4.4904E+00_JPRB,5.0880E+00_JPRB,5.7148E+00_JPRB/)  
+KBO( :,34,12) = (/&
+ & 2.9486E+00_JPRB,3.4193E+00_JPRB,3.9167E+00_JPRB,4.4410E+00_JPRB,4.9898E+00_JPRB/)  
+KBO( :,35,12) = (/&
+ & 2.5384E+00_JPRB,2.9485E+00_JPRB,3.3806E+00_JPRB,3.8382E+00_JPRB,4.3138E+00_JPRB/)  
+KBO( :,36,12) = (/&
+ & 2.1524E+00_JPRB,2.5062E+00_JPRB,2.8802E+00_JPRB,3.2776E+00_JPRB,3.6933E+00_JPRB/)  
+KBO( :,37,12) = (/&
+ & 1.7833E+00_JPRB,2.0847E+00_JPRB,2.4072E+00_JPRB,2.7505E+00_JPRB,3.1124E+00_JPRB/)  
+KBO( :,38,12) = (/&
+ & 1.4749E+00_JPRB,1.7326E+00_JPRB,2.0108E+00_JPRB,2.3067E+00_JPRB,2.6244E+00_JPRB/)  
+KBO( :,39,12) = (/&
+ & 1.2194E+00_JPRB,1.4403E+00_JPRB,1.6807E+00_JPRB,1.9373E+00_JPRB,2.2164E+00_JPRB/)  
+KBO( :,40,12) = (/&
+ & 9.9010E-01_JPRB,1.1776E+00_JPRB,1.3838E+00_JPRB,1.6055E+00_JPRB,1.8489E+00_JPRB/)  
+KBO( :,41,12) = (/&
+ & 8.0150E-01_JPRB,9.6002E-01_JPRB,1.1360E+00_JPRB,1.3281E+00_JPRB,1.5396E+00_JPRB/)  
+KBO( :,42,12) = (/&
+ & 6.4778E-01_JPRB,7.8194E-01_JPRB,9.3223E-01_JPRB,1.0980E+00_JPRB,1.2824E+00_JPRB/)  
+KBO( :,43,12) = (/&
+ & 5.1676E-01_JPRB,6.2955E-01_JPRB,7.5710E-01_JPRB,8.9908E-01_JPRB,1.0583E+00_JPRB/)  
+KBO( :,44,12) = (/&
+ & 4.0901E-01_JPRB,5.0320E-01_JPRB,6.1071E-01_JPRB,7.3181E-01_JPRB,8.6848E-01_JPRB/)  
+KBO( :,45,12) = (/&
+ & 3.2265E-01_JPRB,4.0131E-01_JPRB,4.9147E-01_JPRB,5.9412E-01_JPRB,7.1124E-01_JPRB/)  
+KBO( :,46,12) = (/&
+ & 2.5210E-01_JPRB,3.1747E-01_JPRB,3.9284E-01_JPRB,4.7937E-01_JPRB,5.7886E-01_JPRB/)  
+KBO( :,47,12) = (/&
+ & 1.9387E-01_JPRB,2.4750E-01_JPRB,3.1014E-01_JPRB,3.8262E-01_JPRB,4.6634E-01_JPRB/)  
+KBO( :,48,12) = (/&
+ & 1.4828E-01_JPRB,1.9192E-01_JPRB,2.4351E-01_JPRB,3.0403E-01_JPRB,3.7442E-01_JPRB/)  
+KBO( :,49,12) = (/&
+ & 1.1268E-01_JPRB,1.4796E-01_JPRB,1.9021E-01_JPRB,2.4026E-01_JPRB,2.9934E-01_JPRB/)  
+KBO( :,50,12) = (/&
+ & 8.5692E-02_JPRB,1.1419E-01_JPRB,1.4876E-01_JPRB,1.9007E-01_JPRB,2.3948E-01_JPRB/)  
+KBO( :,51,12) = (/&
+ & 6.4968E-02_JPRB,8.7898E-02_JPRB,1.1604E-01_JPRB,1.5016E-01_JPRB,1.9137E-01_JPRB/)  
+KBO( :,52,12) = (/&
+ & 4.8913E-02_JPRB,6.7280E-02_JPRB,9.0117E-02_JPRB,1.1814E-01_JPRB,1.5238E-01_JPRB/)  
+KBO( :,53,12) = (/&
+ & 3.6537E-02_JPRB,5.1125E-02_JPRB,6.9609E-02_JPRB,9.2472E-02_JPRB,1.2076E-01_JPRB/)  
+KBO( :,54,12) = (/&
+ & 2.7389E-02_JPRB,3.8999E-02_JPRB,5.3932E-02_JPRB,7.2676E-02_JPRB,9.6049E-02_JPRB/)  
+KBO( :,55,12) = (/&
+ & 2.0487E-02_JPRB,2.9701E-02_JPRB,4.1725E-02_JPRB,5.7075E-02_JPRB,7.6390E-02_JPRB/)  
+KBO( :,56,12) = (/&
+ & 1.5211E-02_JPRB,2.2473E-02_JPRB,3.2096E-02_JPRB,4.4552E-02_JPRB,6.0534E-02_JPRB/)  
+KBO( :,57,12) = (/&
+ & 1.1206E-02_JPRB,1.6892E-02_JPRB,2.4543E-02_JPRB,3.4596E-02_JPRB,4.7689E-02_JPRB/)  
+KBO( :,58,12) = (/&
+ & 8.2520E-03_JPRB,1.2686E-02_JPRB,1.8758E-02_JPRB,2.6873E-02_JPRB,3.7588E-02_JPRB/)  
+KBO( :,59,12) = (/&
+ & 6.5700E-03_JPRB,1.0221E-02_JPRB,1.5297E-02_JPRB,2.2161E-02_JPRB,3.1343E-02_JPRB/)  
+KBO( :,13,13) = (/&
+ & 9.2129E+01_JPRB,1.1302E+02_JPRB,1.3488E+02_JPRB,1.5732E+02_JPRB,1.8023E+02_JPRB/)  
+KBO( :,14,13) = (/&
+ & 8.7183E+01_JPRB,1.0718E+02_JPRB,1.2873E+02_JPRB,1.5116E+02_JPRB,1.7346E+02_JPRB/)  
+KBO( :,15,13) = (/&
+ & 8.2328E+01_JPRB,1.0157E+02_JPRB,1.2222E+02_JPRB,1.4315E+02_JPRB,1.6347E+02_JPRB/)  
+KBO( :,16,13) = (/&
+ & 7.8040E+01_JPRB,9.6014E+01_JPRB,1.1471E+02_JPRB,1.3306E+02_JPRB,1.5181E+02_JPRB/)  
+KBO( :,17,13) = (/&
+ & 7.3174E+01_JPRB,8.9440E+01_JPRB,1.0586E+02_JPRB,1.2255E+02_JPRB,1.3976E+02_JPRB/)  
+KBO( :,18,13) = (/&
+ & 6.7948E+01_JPRB,8.2226E+01_JPRB,9.6794E+01_JPRB,1.1202E+02_JPRB,1.2767E+02_JPRB/)  
+KBO( :,19,13) = (/&
+ & 6.1809E+01_JPRB,7.4613E+01_JPRB,8.7919E+01_JPRB,1.0172E+02_JPRB,1.1585E+02_JPRB/)  
+KBO( :,20,13) = (/&
+ & 5.5733E+01_JPRB,6.7276E+01_JPRB,7.9378E+01_JPRB,9.1765E+01_JPRB,1.0432E+02_JPRB/)  
+KBO( :,21,13) = (/&
+ & 5.0119E+01_JPRB,6.0399E+01_JPRB,7.1023E+01_JPRB,8.1955E+01_JPRB,9.3098E+01_JPRB/)  
+KBO( :,22,13) = (/&
+ & 4.5387E+01_JPRB,5.4362E+01_JPRB,6.3623E+01_JPRB,7.3263E+01_JPRB,8.3176E+01_JPRB/)  
+KBO( :,23,13) = (/&
+ & 4.0785E+01_JPRB,4.8586E+01_JPRB,5.6740E+01_JPRB,6.5256E+01_JPRB,7.4004E+01_JPRB/)  
+KBO( :,24,13) = (/&
+ & 3.6418E+01_JPRB,4.3297E+01_JPRB,5.0491E+01_JPRB,5.7972E+01_JPRB,6.5666E+01_JPRB/)  
+KBO( :,25,13) = (/&
+ & 3.2482E+01_JPRB,3.8561E+01_JPRB,4.4879E+01_JPRB,5.1407E+01_JPRB,5.8182E+01_JPRB/)  
+KBO( :,26,13) = (/&
+ & 2.9006E+01_JPRB,3.4335E+01_JPRB,3.9885E+01_JPRB,4.5662E+01_JPRB,5.1599E+01_JPRB/)  
+KBO( :,27,13) = (/&
+ & 2.5837E+01_JPRB,3.0498E+01_JPRB,3.5383E+01_JPRB,4.0444E+01_JPRB,4.5658E+01_JPRB/)  
+KBO( :,28,13) = (/&
+ & 2.2962E+01_JPRB,2.7037E+01_JPRB,3.1320E+01_JPRB,3.5758E+01_JPRB,4.0290E+01_JPRB/)  
+KBO( :,29,13) = (/&
+ & 2.0397E+01_JPRB,2.3995E+01_JPRB,2.7731E+01_JPRB,3.1631E+01_JPRB,3.5578E+01_JPRB/)  
+KBO( :,30,13) = (/&
+ & 1.8112E+01_JPRB,2.1250E+01_JPRB,2.4540E+01_JPRB,2.7936E+01_JPRB,3.1421E+01_JPRB/)  
+KBO( :,31,13) = (/&
+ & 1.6067E+01_JPRB,1.8811E+01_JPRB,2.1703E+01_JPRB,2.4693E+01_JPRB,2.7776E+01_JPRB/)  
+KBO( :,32,13) = (/&
+ & 1.4258E+01_JPRB,1.6681E+01_JPRB,1.9216E+01_JPRB,2.1851E+01_JPRB,2.4609E+01_JPRB/)  
+KBO( :,33,13) = (/&
+ & 1.2678E+01_JPRB,1.4812E+01_JPRB,1.7059E+01_JPRB,1.9407E+01_JPRB,2.1877E+01_JPRB/)  
+KBO( :,34,13) = (/&
+ & 1.1234E+01_JPRB,1.3124E+01_JPRB,1.5116E+01_JPRB,1.7220E+01_JPRB,1.9477E+01_JPRB/)  
+KBO( :,35,13) = (/&
+ & 9.8183E+00_JPRB,1.1494E+01_JPRB,1.3264E+01_JPRB,1.5165E+01_JPRB,1.7217E+01_JPRB/)  
+KBO( :,36,13) = (/&
+ & 8.4512E+00_JPRB,9.9248E+00_JPRB,1.1505E+01_JPRB,1.3215E+01_JPRB,1.5066E+01_JPRB/)  
+KBO( :,37,13) = (/&
+ & 7.1046E+00_JPRB,8.3927E+00_JPRB,9.7872E+00_JPRB,1.1310E+01_JPRB,1.2976E+01_JPRB/)  
+KBO( :,38,13) = (/&
+ & 5.9713E+00_JPRB,7.0990E+00_JPRB,8.3334E+00_JPRB,9.6940E+00_JPRB,1.1182E+01_JPRB/)  
+KBO( :,39,13) = (/&
+ & 5.0257E+00_JPRB,6.0152E+00_JPRB,7.1078E+00_JPRB,8.3261E+00_JPRB,9.6615E+00_JPRB/)  
+KBO( :,40,13) = (/&
+ & 4.1523E+00_JPRB,5.0116E+00_JPRB,5.9715E+00_JPRB,7.0484E+00_JPRB,8.2344E+00_JPRB/)  
+KBO( :,41,13) = (/&
+ & 3.4206E+00_JPRB,4.1640E+00_JPRB,5.0022E+00_JPRB,5.9574E+00_JPRB,7.0137E+00_JPRB/)  
+KBO( :,42,13) = (/&
+ & 2.8151E+00_JPRB,3.4582E+00_JPRB,4.1916E+00_JPRB,5.0330E+00_JPRB,5.9745E+00_JPRB/)  
+KBO( :,43,13) = (/&
+ & 2.2836E+00_JPRB,2.8346E+00_JPRB,3.4702E+00_JPRB,4.2076E+00_JPRB,5.0392E+00_JPRB/)  
+KBO( :,44,13) = (/&
+ & 1.8358E+00_JPRB,2.3065E+00_JPRB,2.8540E+00_JPRB,3.4947E+00_JPRB,4.2292E+00_JPRB/)  
+KBO( :,45,13) = (/&
+ & 1.4699E+00_JPRB,1.8708E+00_JPRB,2.3414E+00_JPRB,2.8971E+00_JPRB,3.5454E+00_JPRB/)  
+KBO( :,46,13) = (/&
+ & 1.1650E+00_JPRB,1.5043E+00_JPRB,1.9061E+00_JPRB,2.3856E+00_JPRB,2.9537E+00_JPRB/)  
+KBO( :,47,13) = (/&
+ & 9.0755E-01_JPRB,1.1912E+00_JPRB,1.5311E+00_JPRB,1.9396E+00_JPRB,2.4325E+00_JPRB/)  
+KBO( :,48,13) = (/&
+ & 7.0184E-01_JPRB,9.3709E-01_JPRB,1.2239E+00_JPRB,1.5710E+00_JPRB,1.9958E+00_JPRB/)  
+KBO( :,49,13) = (/&
+ & 5.3970E-01_JPRB,7.3243E-01_JPRB,9.7194E-01_JPRB,1.2677E+00_JPRB,1.6307E+00_JPRB/)  
+KBO( :,50,13) = (/&
+ & 4.1584E-01_JPRB,5.7380E-01_JPRB,7.7303E-01_JPRB,1.0235E+00_JPRB,1.3360E+00_JPRB/)  
+KBO( :,51,13) = (/&
+ & 3.1970E-01_JPRB,4.4857E-01_JPRB,6.1406E-01_JPRB,8.2493E-01_JPRB,1.0932E+00_JPRB/)  
+KBO( :,52,13) = (/&
+ & 2.4403E-01_JPRB,3.4872E-01_JPRB,4.8565E-01_JPRB,6.6228E-01_JPRB,8.9043E-01_JPRB/)  
+KBO( :,53,13) = (/&
+ & 1.8461E-01_JPRB,2.6942E-01_JPRB,3.8200E-01_JPRB,5.2938E-01_JPRB,7.2205E-01_JPRB/)  
+KBO( :,54,13) = (/&
+ & 1.4016E-01_JPRB,2.0879E-01_JPRB,3.0199E-01_JPRB,4.2537E-01_JPRB,5.8863E-01_JPRB/)  
+KBO( :,55,13) = (/&
+ & 1.0627E-01_JPRB,1.6160E-01_JPRB,2.3840E-01_JPRB,3.4179E-01_JPRB,4.8036E-01_JPRB/)  
+KBO( :,56,13) = (/&
+ & 7.9975E-02_JPRB,1.2430E-01_JPRB,1.8699E-01_JPRB,2.7356E-01_JPRB,3.9081E-01_JPRB/)  
+KBO( :,57,13) = (/&
+ & 5.9672E-02_JPRB,9.4998E-02_JPRB,1.4581E-01_JPRB,2.1774E-01_JPRB,3.1655E-01_JPRB/)  
+KBO( :,58,13) = (/&
+ & 4.4475E-02_JPRB,7.2566E-02_JPRB,1.1372E-01_JPRB,1.7325E-01_JPRB,2.5698E-01_JPRB/)  
+KBO( :,59,13) = (/&
+ & 3.6215E-02_JPRB,6.0132E-02_JPRB,9.5691E-02_JPRB,1.4806E-01_JPRB,2.2323E-01_JPRB/)  
+KBO( :,13,14) = (/&
+ & 2.6336E+02_JPRB,3.2548E+02_JPRB,3.9074E+02_JPRB,4.5756E+02_JPRB,5.2579E+02_JPRB/)  
+KBO( :,14,14) = (/&
+ & 2.7039E+02_JPRB,3.3171E+02_JPRB,3.9551E+02_JPRB,4.6127E+02_JPRB,5.2944E+02_JPRB/)  
+KBO( :,15,14) = (/&
+ & 2.7394E+02_JPRB,3.3456E+02_JPRB,3.9772E+02_JPRB,4.6386E+02_JPRB,5.3259E+02_JPRB/)  
+KBO( :,16,14) = (/&
+ & 2.7489E+02_JPRB,3.3472E+02_JPRB,3.9868E+02_JPRB,4.6474E+02_JPRB,5.3170E+02_JPRB/)  
+KBO( :,17,14) = (/&
+ & 2.7361E+02_JPRB,3.3269E+02_JPRB,3.9532E+02_JPRB,4.5778E+02_JPRB,5.2000E+02_JPRB/)  
+KBO( :,18,14) = (/&
+ & 2.6867E+02_JPRB,3.2519E+02_JPRB,3.8389E+02_JPRB,4.4282E+02_JPRB,5.0150E+02_JPRB/)  
+KBO( :,19,14) = (/&
+ & 2.5965E+02_JPRB,3.1265E+02_JPRB,3.6765E+02_JPRB,4.2321E+02_JPRB,4.7874E+02_JPRB/)  
+KBO( :,20,14) = (/&
+ & 2.4734E+02_JPRB,2.9762E+02_JPRB,3.4946E+02_JPRB,4.0232E+02_JPRB,4.5540E+02_JPRB/)  
+KBO( :,21,14) = (/&
+ & 2.3283E+02_JPRB,2.7966E+02_JPRB,3.2877E+02_JPRB,3.7834E+02_JPRB,4.2789E+02_JPRB/)  
+KBO( :,22,14) = (/&
+ & 2.2036E+02_JPRB,2.6406E+02_JPRB,3.0915E+02_JPRB,3.5433E+02_JPRB,3.9946E+02_JPRB/)  
+KBO( :,23,14) = (/&
+ & 2.0698E+02_JPRB,2.4687E+02_JPRB,2.8731E+02_JPRB,3.2870E+02_JPRB,3.7050E+02_JPRB/)  
+KBO( :,24,14) = (/&
+ & 1.9330E+02_JPRB,2.2881E+02_JPRB,2.6520E+02_JPRB,3.0278E+02_JPRB,3.4148E+02_JPRB/)  
+KBO( :,25,14) = (/&
+ & 1.7915E+02_JPRB,2.1082E+02_JPRB,2.4386E+02_JPRB,2.7843E+02_JPRB,3.1413E+02_JPRB/)  
+KBO( :,26,14) = (/&
+ & 1.6500E+02_JPRB,1.9389E+02_JPRB,2.2412E+02_JPRB,2.5557E+02_JPRB,2.8754E+02_JPRB/)  
+KBO( :,27,14) = (/&
+ & 1.5126E+02_JPRB,1.7765E+02_JPRB,2.0524E+02_JPRB,2.3351E+02_JPRB,2.6284E+02_JPRB/)  
+KBO( :,28,14) = (/&
+ & 1.3836E+02_JPRB,1.6228E+02_JPRB,1.8728E+02_JPRB,2.1350E+02_JPRB,2.4088E+02_JPRB/)  
+KBO( :,29,14) = (/&
+ & 1.2669E+02_JPRB,1.4825E+02_JPRB,1.7120E+02_JPRB,1.9571E+02_JPRB,2.2144E+02_JPRB/)  
+KBO( :,30,14) = (/&
+ & 1.1586E+02_JPRB,1.3560E+02_JPRB,1.5706E+02_JPRB,1.7985E+02_JPRB,2.0425E+02_JPRB/)  
+KBO( :,31,14) = (/&
+ & 1.0606E+02_JPRB,1.2445E+02_JPRB,1.4457E+02_JPRB,1.6605E+02_JPRB,1.8909E+02_JPRB/)  
+KBO( :,32,14) = (/&
+ & 9.7506E+01_JPRB,1.1472E+02_JPRB,1.3364E+02_JPRB,1.5393E+02_JPRB,1.7576E+02_JPRB/)  
+KBO( :,33,14) = (/&
+ & 9.0128E+01_JPRB,1.0634E+02_JPRB,1.2404E+02_JPRB,1.4330E+02_JPRB,1.6431E+02_JPRB/)  
+KBO( :,34,14) = (/&
+ & 8.3269E+01_JPRB,9.8432E+01_JPRB,1.1521E+02_JPRB,1.3353E+02_JPRB,1.5390E+02_JPRB/)  
+KBO( :,35,14) = (/&
+ & 7.5995E+01_JPRB,9.0208E+01_JPRB,1.0603E+02_JPRB,1.2357E+02_JPRB,1.4330E+02_JPRB/)  
+KBO( :,36,14) = (/&
+ & 6.8313E+01_JPRB,8.1602E+01_JPRB,9.6446E+01_JPRB,1.1317E+02_JPRB,1.3204E+02_JPRB/)  
+KBO( :,37,14) = (/&
+ & 5.9886E+01_JPRB,7.2145E+01_JPRB,8.5923E+01_JPRB,1.0161E+02_JPRB,1.1943E+02_JPRB/)  
+KBO( :,38,14) = (/&
+ & 5.2518E+01_JPRB,6.3836E+01_JPRB,7.6674E+01_JPRB,9.1446E+01_JPRB,1.0826E+02_JPRB/)  
+KBO( :,39,14) = (/&
+ & 4.6141E+01_JPRB,5.6624E+01_JPRB,6.8640E+01_JPRB,8.2585E+01_JPRB,9.8545E+01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART6',1,ZHOOK_HANDLE)
+END SUBROUTINE PART6
+
+
+SUBROUTINE PART7
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART7',0,ZHOOK_HANDLE)
+
+
+KBO( :,40,14) = (/&
+ & 3.9743E+01_JPRB,4.9296E+01_JPRB,6.0431E+01_JPRB,7.3425E+01_JPRB,8.8431E+01_JPRB/)  
+KBO( :,41,14) = (/&
+ & 3.4132E+01_JPRB,4.2840E+01_JPRB,5.3118E+01_JPRB,6.5214E+01_JPRB,7.9338E+01_JPRB/)  
+KBO( :,42,14) = (/&
+ & 2.9302E+01_JPRB,3.7264E+01_JPRB,4.6737E+01_JPRB,5.8014E+01_JPRB,7.1287E+01_JPRB/)  
+KBO( :,43,14) = (/&
+ & 2.4764E+01_JPRB,3.1960E+01_JPRB,4.0612E+01_JPRB,5.1039E+01_JPRB,6.3433E+01_JPRB/)  
+KBO( :,44,14) = (/&
+ & 2.0724E+01_JPRB,2.7192E+01_JPRB,3.5067E+01_JPRB,4.4640E+01_JPRB,5.6164E+01_JPRB/)  
+KBO( :,45,14) = (/&
+ & 1.7302E+01_JPRB,2.3086E+01_JPRB,3.0232E+01_JPRB,3.8995E+01_JPRB,4.9699E+01_JPRB/)  
+KBO( :,46,14) = (/&
+ & 1.4294E+01_JPRB,1.9412E+01_JPRB,2.5856E+01_JPRB,3.3850E+01_JPRB,4.3695E+01_JPRB/)  
+KBO( :,47,14) = (/&
+ & 1.1576E+01_JPRB,1.6045E+01_JPRB,2.1765E+01_JPRB,2.8969E+01_JPRB,3.7957E+01_JPRB/)  
+KBO( :,48,14) = (/&
+ & 9.3047E+00_JPRB,1.3187E+01_JPRB,1.8238E+01_JPRB,2.4704E+01_JPRB,3.2846E+01_JPRB/)  
+KBO( :,49,14) = (/&
+ & 7.4233E+00_JPRB,1.0766E+01_JPRB,1.5205E+01_JPRB,2.0973E+01_JPRB,2.8303E+01_JPRB/)  
+KBO( :,50,14) = (/&
+ & 5.9319E+00_JPRB,8.8036E+00_JPRB,1.2699E+01_JPRB,1.7857E+01_JPRB,2.4492E+01_JPRB/)  
+KBO( :,51,14) = (/&
+ & 4.7353E+00_JPRB,7.1869E+00_JPRB,1.0601E+01_JPRB,1.5199E+01_JPRB,2.1205E+01_JPRB/)  
+KBO( :,52,14) = (/&
+ & 3.7469E+00_JPRB,5.8275E+00_JPRB,8.7938E+00_JPRB,1.2866E+01_JPRB,1.8302E+01_JPRB/)  
+KBO( :,53,14) = (/&
+ & 2.9368E+00_JPRB,4.6957E+00_JPRB,7.2478E+00_JPRB,1.0838E+01_JPRB,1.5721E+01_JPRB/)  
+KBO( :,54,14) = (/&
+ & 2.3156E+00_JPRB,3.8057E+00_JPRB,6.0167E+00_JPRB,9.1925E+00_JPRB,1.3590E+01_JPRB/)  
+KBO( :,55,14) = (/&
+ & 1.8252E+00_JPRB,3.0811E+00_JPRB,5.0017E+00_JPRB,7.8029E+00_JPRB,1.1764E+01_JPRB/)  
+KBO( :,56,14) = (/&
+ & 1.4272E+00_JPRB,2.4767E+00_JPRB,4.1376E+00_JPRB,6.5946E+00_JPRB,1.0136E+01_JPRB/)  
+KBO( :,57,14) = (/&
+ & 1.1086E+00_JPRB,1.9781E+00_JPRB,3.3958E+00_JPRB,5.5471E+00_JPRB,8.7031E+00_JPRB/)  
+KBO( :,58,14) = (/&
+ & 8.6140E-01_JPRB,1.5824E+00_JPRB,2.7911E+00_JPRB,4.6768E+00_JPRB,7.4888E+00_JPRB/)  
+KBO( :,59,14) = (/&
+ & 7.4828E-01_JPRB,1.4056E+00_JPRB,2.5265E+00_JPRB,4.3052E+00_JPRB,6.9802E+00_JPRB/)  
+KBO( :,13,15) = (/&
+ & 1.0111E+03_JPRB,1.2570E+03_JPRB,1.4901E+03_JPRB,1.7375E+03_JPRB,1.9647E+03_JPRB/)  
+KBO( :,14,15) = (/&
+ & 1.0798E+03_JPRB,1.3354E+03_JPRB,1.5807E+03_JPRB,1.8253E+03_JPRB,2.0644E+03_JPRB/)  
+KBO( :,15,15) = (/&
+ & 1.1550E+03_JPRB,1.4096E+03_JPRB,1.6671E+03_JPRB,1.9146E+03_JPRB,2.1680E+03_JPRB/)  
+KBO( :,16,15) = (/&
+ & 1.2133E+03_JPRB,1.4796E+03_JPRB,1.7458E+03_JPRB,1.9980E+03_JPRB,2.2730E+03_JPRB/)  
+KBO( :,17,15) = (/&
+ & 1.2650E+03_JPRB,1.5359E+03_JPRB,1.8049E+03_JPRB,2.0803E+03_JPRB,2.3678E+03_JPRB/)  
+KBO( :,18,15) = (/&
+ & 1.3114E+03_JPRB,1.5935E+03_JPRB,1.8807E+03_JPRB,2.1759E+03_JPRB,2.4722E+03_JPRB/)  
+KBO( :,19,15) = (/&
+ & 1.3601E+03_JPRB,1.6562E+03_JPRB,1.9621E+03_JPRB,2.2640E+03_JPRB,2.5731E+03_JPRB/)  
+KBO( :,20,15) = (/&
+ & 1.4219E+03_JPRB,1.7257E+03_JPRB,2.0357E+03_JPRB,2.3424E+03_JPRB,2.6494E+03_JPRB/)  
+KBO( :,21,15) = (/&
+ & 1.4797E+03_JPRB,1.7824E+03_JPRB,2.0872E+03_JPRB,2.4001E+03_JPRB,2.7105E+03_JPRB/)  
+KBO( :,22,15) = (/&
+ & 1.5335E+03_JPRB,1.8378E+03_JPRB,2.1448E+03_JPRB,2.4560E+03_JPRB,2.7714E+03_JPRB/)  
+KBO( :,23,15) = (/&
+ & 1.5773E+03_JPRB,1.8793E+03_JPRB,2.1836E+03_JPRB,2.4946E+03_JPRB,2.8114E+03_JPRB/)  
+KBO( :,24,15) = (/&
+ & 1.6080E+03_JPRB,1.9047E+03_JPRB,2.2086E+03_JPRB,2.5288E+03_JPRB,2.8346E+03_JPRB/)  
+KBO( :,25,15) = (/&
+ & 1.6263E+03_JPRB,1.9189E+03_JPRB,2.2269E+03_JPRB,2.5372E+03_JPRB,2.8437E+03_JPRB/)  
+KBO( :,26,15) = (/&
+ & 1.6402E+03_JPRB,1.9311E+03_JPRB,2.2342E+03_JPRB,2.5429E+03_JPRB,2.8526E+03_JPRB/)  
+KBO( :,27,15) = (/&
+ & 1.6484E+03_JPRB,1.9393E+03_JPRB,2.2378E+03_JPRB,2.5479E+03_JPRB,2.8584E+03_JPRB/)  
+KBO( :,28,15) = (/&
+ & 1.6552E+03_JPRB,1.9438E+03_JPRB,2.2426E+03_JPRB,2.5488E+03_JPRB,2.8513E+03_JPRB/)  
+KBO( :,29,15) = (/&
+ & 1.6623E+03_JPRB,1.9469E+03_JPRB,2.2435E+03_JPRB,2.5469E+03_JPRB,2.8487E+03_JPRB/)  
+KBO( :,30,15) = (/&
+ & 1.6645E+03_JPRB,1.9461E+03_JPRB,2.2408E+03_JPRB,2.5383E+03_JPRB,2.8471E+03_JPRB/)  
+KBO( :,31,15) = (/&
+ & 1.6666E+03_JPRB,1.9464E+03_JPRB,2.2424E+03_JPRB,2.5437E+03_JPRB,2.8541E+03_JPRB/)  
+KBO( :,32,15) = (/&
+ & 1.6715E+03_JPRB,1.9532E+03_JPRB,2.2512E+03_JPRB,2.5534E+03_JPRB,2.8676E+03_JPRB/)  
+KBO( :,33,15) = (/&
+ & 1.6819E+03_JPRB,1.9666E+03_JPRB,2.2688E+03_JPRB,2.5748E+03_JPRB,2.8918E+03_JPRB/)  
+KBO( :,34,15) = (/&
+ & 1.6895E+03_JPRB,1.9778E+03_JPRB,2.2816E+03_JPRB,2.5925E+03_JPRB,2.9158E+03_JPRB/)  
+KBO( :,35,15) = (/&
+ & 1.6762E+03_JPRB,1.9659E+03_JPRB,2.2723E+03_JPRB,2.5875E+03_JPRB,2.9156E+03_JPRB/)  
+KBO( :,36,15) = (/&
+ & 1.6393E+03_JPRB,1.9297E+03_JPRB,2.2372E+03_JPRB,2.5554E+03_JPRB,2.8869E+03_JPRB/)  
+KBO( :,37,15) = (/&
+ & 1.5657E+03_JPRB,1.8547E+03_JPRB,2.1621E+03_JPRB,2.4812E+03_JPRB,2.8134E+03_JPRB/)  
+KBO( :,38,15) = (/&
+ & 1.4959E+03_JPRB,1.7834E+03_JPRB,2.0905E+03_JPRB,2.4085E+03_JPRB,2.7423E+03_JPRB/)  
+KBO( :,39,15) = (/&
+ & 1.4312E+03_JPRB,1.7180E+03_JPRB,2.0231E+03_JPRB,2.3408E+03_JPRB,2.6756E+03_JPRB/)  
+KBO( :,40,15) = (/&
+ & 1.3437E+03_JPRB,1.6273E+03_JPRB,1.9282E+03_JPRB,2.2440E+03_JPRB,2.5841E+03_JPRB/)  
+KBO( :,41,15) = (/&
+ & 1.2581E+03_JPRB,1.5370E+03_JPRB,1.8334E+03_JPRB,2.1461E+03_JPRB,2.4843E+03_JPRB/)  
+KBO( :,42,15) = (/&
+ & 1.1774E+03_JPRB,1.4499E+03_JPRB,1.7425E+03_JPRB,2.0516E+03_JPRB,2.3873E+03_JPRB/)  
+KBO( :,43,15) = (/&
+ & 1.0861E+03_JPRB,1.3512E+03_JPRB,1.6377E+03_JPRB,1.9415E+03_JPRB,2.2734E+03_JPRB/)  
+KBO( :,44,15) = (/&
+ & 9.9323E+02_JPRB,1.2501E+03_JPRB,1.5289E+03_JPRB,1.8275E+03_JPRB,2.1544E+03_JPRB/)  
+KBO( :,45,15) = (/&
+ & 9.0550E+02_JPRB,1.1536E+03_JPRB,1.4239E+03_JPRB,1.7214E+03_JPRB,2.0382E+03_JPRB/)  
+KBO( :,46,15) = (/&
+ & 8.1702E+02_JPRB,1.0558E+03_JPRB,1.3173E+03_JPRB,1.6071E+03_JPRB,1.9180E+03_JPRB/)  
+KBO( :,47,15) = (/&
+ & 7.2488E+02_JPRB,9.5181E+02_JPRB,1.2036E+03_JPRB,1.4836E+03_JPRB,1.7874E+03_JPRB/)  
+KBO( :,48,15) = (/&
+ & 6.3986E+02_JPRB,8.5318E+02_JPRB,1.0938E+03_JPRB,1.3648E+03_JPRB,1.6602E+03_JPRB/)  
+KBO( :,49,15) = (/&
+ & 5.5978E+02_JPRB,7.6064E+02_JPRB,9.8918E+02_JPRB,1.2514E+03_JPRB,1.5371E+03_JPRB/)  
+KBO( :,50,15) = (/&
+ & 4.9043E+02_JPRB,6.7832E+02_JPRB,8.9646E+02_JPRB,1.1489E+03_JPRB,1.4252E+03_JPRB/)  
+KBO( :,51,15) = (/&
+ & 4.2854E+02_JPRB,6.0344E+02_JPRB,8.1294E+02_JPRB,1.0522E+03_JPRB,1.3193E+03_JPRB/)  
+KBO( :,52,15) = (/&
+ & 3.7247E+02_JPRB,5.3364E+02_JPRB,7.3121E+02_JPRB,9.5966E+02_JPRB,1.2181E+03_JPRB/)  
+KBO( :,53,15) = (/&
+ & 3.2147E+02_JPRB,4.6899E+02_JPRB,6.5393E+02_JPRB,8.7133E+02_JPRB,1.1199E+03_JPRB/)  
+KBO( :,54,15) = (/&
+ & 2.7925E+02_JPRB,4.1444E+02_JPRB,5.8692E+02_JPRB,7.9382E+02_JPRB,1.0327E+03_JPRB/)  
+KBO( :,55,15) = (/&
+ & 2.4236E+02_JPRB,3.6648E+02_JPRB,5.2661E+02_JPRB,7.2283E+02_JPRB,9.5269E+02_JPRB/)  
+KBO( :,56,15) = (/&
+ & 2.0878E+02_JPRB,3.2240E+02_JPRB,4.7042E+02_JPRB,6.5558E+02_JPRB,8.7457E+02_JPRB/)  
+KBO( :,57,15) = (/&
+ & 1.7832E+02_JPRB,2.8217E+02_JPRB,4.1844E+02_JPRB,5.9173E+02_JPRB,8.0081E+02_JPRB/)  
+KBO( :,58,15) = (/&
+ & 1.5222E+02_JPRB,2.4706E+02_JPRB,3.7269E+02_JPRB,5.3459E+02_JPRB,7.3370E+02_JPRB/)  
+KBO( :,59,15) = (/&
+ & 1.4227E+02_JPRB,2.3374E+02_JPRB,3.5521E+02_JPRB,5.1259E+02_JPRB,7.0748E+02_JPRB/)  
+KBO( :,13,16) = (/&
+ & 3.6681E+03_JPRB,4.4146E+03_JPRB,5.0601E+03_JPRB,5.8217E+03_JPRB,6.4602E+03_JPRB/)  
+KBO( :,14,16) = (/&
+ & 4.1383E+03_JPRB,5.0055E+03_JPRB,5.7969E+03_JPRB,6.5815E+03_JPRB,7.3466E+03_JPRB/)  
+KBO( :,15,16) = (/&
+ & 4.7877E+03_JPRB,5.7010E+03_JPRB,6.6308E+03_JPRB,7.5076E+03_JPRB,8.4346E+03_JPRB/)  
+KBO( :,16,16) = (/&
+ & 5.4281E+03_JPRB,6.5150E+03_JPRB,7.5529E+03_JPRB,8.5202E+03_JPRB,9.5967E+03_JPRB/)  
+KBO( :,17,16) = (/&
+ & 6.1845E+03_JPRB,7.4144E+03_JPRB,8.5274E+03_JPRB,9.6391E+03_JPRB,1.0752E+04_JPRB/)  
+KBO( :,18,16) = (/&
+ & 7.0091E+03_JPRB,8.3702E+03_JPRB,9.5741E+03_JPRB,1.0846E+04_JPRB,1.1981E+04_JPRB/)  
+KBO( :,19,16) = (/&
+ & 7.8177E+03_JPRB,9.3538E+03_JPRB,1.0755E+04_JPRB,1.2016E+04_JPRB,1.3317E+04_JPRB/)  
+KBO( :,20,16) = (/&
+ & 8.7063E+03_JPRB,1.0319E+04_JPRB,1.1914E+04_JPRB,1.3366E+04_JPRB,1.4769E+04_JPRB/)  
+KBO( :,21,16) = (/&
+ & 9.6583E+03_JPRB,1.1430E+04_JPRB,1.3099E+04_JPRB,1.4798E+04_JPRB,1.6351E+04_JPRB/)  
+KBO( :,22,16) = (/&
+ & 1.0855E+04_JPRB,1.2791E+04_JPRB,1.4609E+04_JPRB,1.6400E+04_JPRB,1.8171E+04_JPRB/)  
+KBO( :,23,16) = (/&
+ & 1.2201E+04_JPRB,1.4278E+04_JPRB,1.6275E+04_JPRB,1.8206E+04_JPRB,2.0113E+04_JPRB/)  
+KBO( :,24,16) = (/&
+ & 1.3628E+04_JPRB,1.5860E+04_JPRB,1.8039E+04_JPRB,2.0176E+04_JPRB,2.2137E+04_JPRB/)  
+KBO( :,25,16) = (/&
+ & 1.5188E+04_JPRB,1.7579E+04_JPRB,1.9918E+04_JPRB,2.2170E+04_JPRB,2.4222E+04_JPRB/)  
+KBO( :,26,16) = (/&
+ & 1.6826E+04_JPRB,1.9365E+04_JPRB,2.1844E+04_JPRB,2.4184E+04_JPRB,2.6322E+04_JPRB/)  
+KBO( :,27,16) = (/&
+ & 1.8524E+04_JPRB,2.1162E+04_JPRB,2.3751E+04_JPRB,2.6170E+04_JPRB,2.8371E+04_JPRB/)  
+KBO( :,28,16) = (/&
+ & 2.0216E+04_JPRB,2.2951E+04_JPRB,2.5589E+04_JPRB,2.8116E+04_JPRB,3.0326E+04_JPRB/)  
+KBO( :,29,16) = (/&
+ & 2.1910E+04_JPRB,2.4742E+04_JPRB,2.7452E+04_JPRB,3.0040E+04_JPRB,3.2278E+04_JPRB/)  
+KBO( :,30,16) = (/&
+ & 2.3613E+04_JPRB,2.6515E+04_JPRB,2.9278E+04_JPRB,3.1815E+04_JPRB,3.4145E+04_JPRB/)  
+KBO( :,31,16) = (/&
+ & 2.5314E+04_JPRB,2.8268E+04_JPRB,3.1043E+04_JPRB,3.3568E+04_JPRB,3.5897E+04_JPRB/)  
+KBO( :,32,16) = (/&
+ & 2.6975E+04_JPRB,2.9937E+04_JPRB,3.2719E+04_JPRB,3.5244E+04_JPRB,3.7549E+04_JPRB/)  
+KBO( :,33,16) = (/&
+ & 2.8572E+04_JPRB,3.1529E+04_JPRB,3.4290E+04_JPRB,3.6787E+04_JPRB,3.9063E+04_JPRB/)  
+KBO( :,34,16) = (/&
+ & 2.9977E+04_JPRB,3.2921E+04_JPRB,3.5678E+04_JPRB,3.8134E+04_JPRB,4.0357E+04_JPRB/)  
+KBO( :,35,16) = (/&
+ & 3.0980E+04_JPRB,3.3963E+04_JPRB,3.6707E+04_JPRB,3.9142E+04_JPRB,4.1334E+04_JPRB/)  
+KBO( :,36,16) = (/&
+ & 3.1578E+04_JPRB,3.4586E+04_JPRB,3.7314E+04_JPRB,3.9783E+04_JPRB,4.1980E+04_JPRB/)  
+KBO( :,37,16) = (/&
+ & 3.1622E+04_JPRB,3.4683E+04_JPRB,3.7456E+04_JPRB,3.9972E+04_JPRB,4.2211E+04_JPRB/)  
+KBO( :,38,16) = (/&
+ & 3.1560E+04_JPRB,3.4667E+04_JPRB,3.7489E+04_JPRB,4.0060E+04_JPRB,4.2344E+04_JPRB/)  
+KBO( :,39,16) = (/&
+ & 3.1432E+04_JPRB,3.4581E+04_JPRB,3.7452E+04_JPRB,4.0068E+04_JPRB,4.2389E+04_JPRB/)  
+KBO( :,40,16) = (/&
+ & 3.0900E+04_JPRB,3.4111E+04_JPRB,3.7067E+04_JPRB,3.9756E+04_JPRB,4.2232E+04_JPRB/)  
+KBO( :,41,16) = (/&
+ & 3.0258E+04_JPRB,3.3539E+04_JPRB,3.6571E+04_JPRB,3.9344E+04_JPRB,4.1895E+04_JPRB/)  
+KBO( :,42,16) = (/&
+ & 2.9543E+04_JPRB,3.2906E+04_JPRB,3.6015E+04_JPRB,3.8861E+04_JPRB,4.1489E+04_JPRB/)  
+KBO( :,43,16) = (/&
+ & 2.8595E+04_JPRB,3.2035E+04_JPRB,3.5232E+04_JPRB,3.8174E+04_JPRB,4.0894E+04_JPRB/)  
+KBO( :,44,16) = (/&
+ & 2.7503E+04_JPRB,3.1021E+04_JPRB,3.4315E+04_JPRB,3.7350E+04_JPRB,4.0170E+04_JPRB/)  
+KBO( :,45,16) = (/&
+ & 2.6360E+04_JPRB,2.9953E+04_JPRB,3.3340E+04_JPRB,3.6512E+04_JPRB,3.9389E+04_JPRB/)  
+KBO( :,46,16) = (/&
+ & 2.5097E+04_JPRB,2.8760E+04_JPRB,3.2236E+04_JPRB,3.5509E+04_JPRB,3.8490E+04_JPRB/)  
+KBO( :,47,16) = (/&
+ & 2.3642E+04_JPRB,2.7372E+04_JPRB,3.0938E+04_JPRB,3.4319E+04_JPRB,3.7409E+04_JPRB/)  
+KBO( :,48,16) = (/&
+ & 2.2183E+04_JPRB,2.5937E+04_JPRB,2.9591E+04_JPRB,3.3067E+04_JPRB,3.6272E+04_JPRB/)  
+KBO( :,49,16) = (/&
+ & 2.0670E+04_JPRB,2.4507E+04_JPRB,2.8195E+04_JPRB,3.1753E+04_JPRB,3.5074E+04_JPRB/)  
+KBO( :,50,16) = (/&
+ & 1.9238E+04_JPRB,2.3103E+04_JPRB,2.6846E+04_JPRB,3.0481E+04_JPRB,3.3904E+04_JPRB/)  
+KBO( :,51,16) = (/&
+ & 1.7844E+04_JPRB,2.1722E+04_JPRB,2.5514E+04_JPRB,2.9217E+04_JPRB,3.2732E+04_JPRB/)  
+KBO( :,52,16) = (/&
+ & 1.6449E+04_JPRB,2.0331E+04_JPRB,2.4157E+04_JPRB,2.7921E+04_JPRB,3.1511E+04_JPRB/)  
+KBO( :,53,16) = (/&
+ & 1.5063E+04_JPRB,1.8925E+04_JPRB,2.2776E+04_JPRB,2.6593E+04_JPRB,3.0255E+04_JPRB/)  
+KBO( :,54,16) = (/&
+ & 1.3809E+04_JPRB,1.7636E+04_JPRB,2.1500E+04_JPRB,2.5353E+04_JPRB,2.9077E+04_JPRB/)  
+KBO( :,55,16) = (/&
+ & 1.2629E+04_JPRB,1.6403E+04_JPRB,2.0265E+04_JPRB,2.4149E+04_JPRB,2.7924E+04_JPRB/)  
+KBO( :,56,16) = (/&
+ & 1.1481E+04_JPRB,1.5182E+04_JPRB,1.9032E+04_JPRB,2.2931E+04_JPRB,2.6738E+04_JPRB/)  
+KBO( :,57,16) = (/&
+ & 1.0369E+04_JPRB,1.3975E+04_JPRB,1.7793E+04_JPRB,2.1704E+04_JPRB,2.5546E+04_JPRB/)  
+KBO( :,58,16) = (/&
+ & 9.3525E+03_JPRB,1.2853E+04_JPRB,1.6624E+04_JPRB,2.0533E+04_JPRB,2.4399E+04_JPRB/)  
+KBO( :,59,16) = (/&
+ & 8.9578E+03_JPRB,1.2412E+04_JPRB,1.6161E+04_JPRB,2.0067E+04_JPRB,2.3943E+04_JPRB/)  
+
+!     The array SELFREFO contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+SELFREFO( :, 1) = (/&
+ & 7.54232E-01_JPRB, 6.87231E-01_JPRB, 6.26181E-01_JPRB, 5.70555E-01_JPRB, 5.19870E-01_JPRB,&
+ & 4.73688E-01_JPRB, 4.31608E-01_JPRB, 3.93266E-01_JPRB, 3.58331E-01_JPRB, 3.26499E-01_JPRB/)  
+SELFREFO( :, 2) = (/&
+ & 1.01377E+00_JPRB, 9.30266E-01_JPRB, 8.53637E-01_JPRB, 7.83320E-01_JPRB, 7.18796E-01_JPRB,&
+ & 6.59587E-01_JPRB, 6.05254E-01_JPRB, 5.55398E-01_JPRB, 5.09648E-01_JPRB, 4.67667E-01_JPRB/)  
+SELFREFO( :, 3) = (/&
+ & 1.31954E+00_JPRB, 1.22523E+00_JPRB, 1.13766E+00_JPRB, 1.05635E+00_JPRB, 9.80853E-01_JPRB,&
+ & 9.10749E-01_JPRB, 8.45656E-01_JPRB, 7.85215E-01_JPRB, 7.29095E-01_JPRB, 6.76985E-01_JPRB/)  
+SELFREFO( :, 4) = (/&
+ & 2.18726E+00_JPRB, 2.05960E+00_JPRB, 1.93940E+00_JPRB, 1.82621E+00_JPRB, 1.71962E+00_JPRB,&
+ & 1.61926E+00_JPRB, 1.52476E+00_JPRB, 1.43577E+00_JPRB, 1.35197E+00_JPRB, 1.27306E+00_JPRB/)  
+SELFREFO( :, 5) = (/&
+ & 3.17440E+00_JPRB, 2.92794E+00_JPRB, 2.70061E+00_JPRB, 2.49094E+00_JPRB, 2.29754E+00_JPRB,&
+ & 2.11916E+00_JPRB, 1.95463E+00_JPRB, 1.80287E+00_JPRB, 1.66290E+00_JPRB, 1.53379E+00_JPRB/)  
+SELFREFO( :, 6) = (/&
+ & 2.69705E+00_JPRB, 2.48684E+00_JPRB, 2.29302E+00_JPRB, 2.11431E+00_JPRB, 1.94952E+00_JPRB,&
+ & 1.79758E+00_JPRB, 1.65748E+00_JPRB, 1.52830E+00_JPRB, 1.40919E+00_JPRB, 1.29936E+00_JPRB/)  
+SELFREFO( :, 7) = (/&
+ & 2.91893E+00_JPRB, 2.68371E+00_JPRB, 2.46745E+00_JPRB, 2.26862E+00_JPRB, 2.08581E+00_JPRB,&
+ & 1.91773E+00_JPRB, 1.76319E+00_JPRB, 1.62111E+00_JPRB, 1.49048E+00_JPRB, 1.37037E+00_JPRB/)  
+SELFREFO( :, 8) = (/&
+ & 2.91847E+00_JPRB, 2.69138E+00_JPRB, 2.48195E+00_JPRB, 2.28883E+00_JPRB, 2.11073E+00_JPRB,&
+ & 1.94648E+00_JPRB, 1.79502E+00_JPRB, 1.65535E+00_JPRB, 1.52654E+00_JPRB, 1.40776E+00_JPRB/)  
+SELFREFO( :, 9) = (/&
+ & 2.73994E+00_JPRB, 2.54834E+00_JPRB, 2.37014E+00_JPRB, 2.20440E+00_JPRB, 2.05026E+00_JPRB,&
+ & 1.90689E+00_JPRB, 1.77354E+00_JPRB, 1.64952E+00_JPRB, 1.53418E+00_JPRB, 1.42690E+00_JPRB/)  
+SELFREFO( :,10) = (/&
+ & 2.81902E+00_JPRB, 2.66010E+00_JPRB, 2.51014E+00_JPRB, 2.36863E+00_JPRB, 2.23510E+00_JPRB,&
+ & 2.10909E+00_JPRB, 1.99020E+00_JPRB, 1.87800E+00_JPRB, 1.77213E+00_JPRB, 1.67222E+00_JPRB/)  
+SELFREFO( :,11) = (/&
+ & 3.19430E+00_JPRB, 2.97671E+00_JPRB, 2.77395E+00_JPRB, 2.58500E+00_JPRB, 2.40891E+00_JPRB,&
+ & 2.24483E+00_JPRB, 2.09192E+00_JPRB, 1.94942E+00_JPRB, 1.81663E+00_JPRB, 1.69289E+00_JPRB/)  
+SELFREFO( :,12) = (/&
+ & 3.24778E+00_JPRB, 3.04535E+00_JPRB, 2.85553E+00_JPRB, 2.67755E+00_JPRB, 2.51066E+00_JPRB,&
+ & 2.35417E+00_JPRB, 2.20744E+00_JPRB, 2.06985E+00_JPRB, 1.94084E+00_JPRB, 1.81987E+00_JPRB/)  
+SELFREFO( :,13) = (/&
+ & 3.67142E+00_JPRB, 3.39875E+00_JPRB, 3.14634E+00_JPRB, 2.91267E+00_JPRB, 2.69636E+00_JPRB,&
+ & 2.49611E+00_JPRB, 2.31073E+00_JPRB, 2.13913E+00_JPRB, 1.98026E+00_JPRB, 1.83319E+00_JPRB/)  
+SELFREFO( :,14) = (/&
+ & 3.73679E+00_JPRB, 3.49113E+00_JPRB, 3.26162E+00_JPRB, 3.04719E+00_JPRB, 2.84686E+00_JPRB,&
+ & 2.65970E+00_JPRB, 2.48485E+00_JPRB, 2.32149E+00_JPRB, 2.16887E+00_JPRB, 2.02628E+00_JPRB/)  
+SELFREFO( :,15) = (/&
+ & 4.25684E+00_JPRB, 3.95885E+00_JPRB, 3.68171E+00_JPRB, 3.42397E+00_JPRB, 3.18428E+00_JPRB,&
+ & 2.96137E+00_JPRB, 2.75406E+00_JPRB, 2.56126E+00_JPRB, 2.38196E+00_JPRB, 2.21521E+00_JPRB/)  
+SELFREFO( :,16) = (/&
+ & 4.97048E+00_JPRB, 4.59255E+00_JPRB, 4.24336E+00_JPRB, 3.92072E+00_JPRB, 3.62261E+00_JPRB,&
+ & 3.34717E+00_JPRB, 3.09267E+00_JPRB, 2.85752E+00_JPRB, 2.64025E+00_JPRB, 2.43950E+00_JPRB/)  
+
+!     The ith set of reference fractions are from the ith reference
+!     pressure level.
+FRACREFAO( :, 1) = (/&
+ & 0.18068060_JPRB,0.16803175_JPRB,0.15140158_JPRB,0.12221480_JPRB,&
+ & 0.10240850_JPRB,0.09330297_JPRB,0.07518960_JPRB,0.05611294_JPRB,&
+ & 0.03781487_JPRB,0.00387192_JPRB,0.00321285_JPRB,0.00244440_JPRB,&
+ & 0.00179546_JPRB,0.00107704_JPRB,0.00038798_JPRB,0.00005060_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART7',1,ZHOOK_HANDLE)
+END SUBROUTINE PART7
+
+
+SUBROUTINE PART8
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART8',0,ZHOOK_HANDLE)
+
+
+FRACREFAO( :, 2) = (/&
+ & 0.17927621_JPRB,0.16731168_JPRB,0.15129538_JPRB,0.12328085_JPRB,&
+ & 0.10243484_JPRB,0.09354796_JPRB,0.07538418_JPRB,0.05633071_JPRB,&
+ & 0.03810832_JPRB,0.00398347_JPRB,0.00320262_JPRB,0.00250029_JPRB,&
+ & 0.00178666_JPRB,0.00111127_JPRB,0.00039438_JPRB,0.00005169_JPRB/)  
+FRACREFAO( :, 3) = (/&
+ & 0.17762886_JPRB,0.16638555_JPRB,0.15115446_JPRB,0.12470623_JPRB,&
+ & 0.10253213_JPRB,0.09383459_JPRB,0.07560240_JPRB,0.05646568_JPRB,&
+ & 0.03844077_JPRB,0.00409142_JPRB,0.00322521_JPRB,0.00254918_JPRB,&
+ & 0.00179296_JPRB,0.00113652_JPRB,0.00040169_JPRB,0.00005259_JPRB/)  
+FRACREFAO( :, 4) = (/&
+ & 0.17566043_JPRB,0.16539773_JPRB,0.15092199_JPRB,0.12571971_JPRB,&
+ & 0.10340609_JPRB,0.09426189_JPRB,0.07559051_JPRB,0.05678188_JPRB,&
+ & 0.03881499_JPRB,0.00414102_JPRB,0.00328551_JPRB,0.00258795_JPRB,&
+ & 0.00181648_JPRB,0.00115145_JPRB,0.00040969_JPRB,0.00005357_JPRB/)  
+FRACREFAO( :, 5) = (/&
+ & 0.17335825_JPRB,0.16442548_JPRB,0.15070701_JPRB,0.12667464_JPRB,&
+ & 0.10452303_JPRB,0.09450833_JPRB,0.07599410_JPRB,0.05706393_JPRB,&
+ & 0.03910370_JPRB,0.00417880_JPRB,0.00335256_JPRB,0.00261708_JPRB,&
+ & 0.00185491_JPRB,0.00116627_JPRB,0.00041759_JPRB,0.00005464_JPRB/)  
+FRACREFAO( :, 6) = (/&
+ & 0.17082544_JPRB,0.16321516_JPRB,0.15044247_JPRB,0.12797612_JPRB,&
+ & 0.10574646_JPRB,0.09470057_JPRB,0.07647423_JPRB,0.05738756_JPRB,&
+ & 0.03935621_JPRB,0.00423789_JPRB,0.00342651_JPRB,0.00264549_JPRB,&
+ & 0.00190188_JPRB,0.00118281_JPRB,0.00042592_JPRB,0.00005583_JPRB/)  
+FRACREFAO( :, 7) = (/&
+ & 0.16809277_JPRB,0.16193336_JPRB,0.15013184_JPRB,0.12937409_JPRB,&
+ & 0.10720784_JPRB,0.09485368_JPRB,0.07692636_JPRB,0.05771774_JPRB,&
+ & 0.03966988_JPRB,0.00427754_JPRB,0.00349696_JPRB,0.00268946_JPRB,&
+ & 0.00193536_JPRB,0.00120222_JPRB,0.00043462_JPRB,0.00005712_JPRB/)  
+FRACREFAO( :, 8) = (/&
+ & 0.16517997_JPRB,0.16059248_JPRB,0.14984852_JPRB,0.13079269_JPRB,&
+ & 0.10865030_JPRB,0.09492947_JPRB,0.07759736_JPRB,0.05812201_JPRB,&
+ & 0.03997169_JPRB,0.00432356_JPRB,0.00355308_JPRB,0.00274031_JPRB,&
+ & 0.00197243_JPRB,0.00122401_JPRB,0.00044359_JPRB,0.00005849_JPRB/)  
+FRACREFAO( :, 9) = (/&
+ & 0.16209179_JPRB,0.15912023_JPRB,0.14938223_JPRB,0.13198245_JPRB,&
+ & 0.11077233_JPRB,0.09487948_JPRB,0.07831636_JPRB,0.05863440_JPRB,&
+ & 0.04028239_JPRB,0.00436804_JPRB,0.00360407_JPRB,0.00279885_JPRB,&
+ & 0.00200364_JPRB,0.00124861_JPRB,0.00045521_JPRB,0.00005996_JPRB/)  
+FRACREFAO( :,10) = (/&
+ & 0.15962425_JPRB,0.15789343_JPRB,0.14898103_JPRB,0.13275230_JPRB,&
+ & 0.11253940_JPRB,0.09503502_JPRB,0.07884382_JPRB,0.05908009_JPRB,&
+ & 0.04053524_JPRB,0.00439971_JPRB,0.00364269_JPRB,0.00284965_JPRB,&
+ & 0.00202758_JPRB,0.00127076_JPRB,0.00046408_JPRB,0.00006114_JPRB/)  
+FRACREFAO( :,11) = (/&
+ & 0.15926200_JPRB,0.15770932_JPRB,0.14891729_JPRB,0.13283882_JPRB,&
+ & 0.11276010_JPRB,0.09507311_JPRB,0.07892222_JPRB,0.05919230_JPRB,&
+ & 0.04054824_JPRB,0.00440833_JPRB,0.00365575_JPRB,0.00286459_JPRB,&
+ & 0.00203786_JPRB,0.00128405_JPRB,0.00046504_JPRB,0.00006146_JPRB/)  
+FRACREFAO( :,12) = (/&
+ & 0.15926351_JPRB,0.15770483_JPRB,0.14891177_JPRB,0.13279966_JPRB,&
+ & 0.11268171_JPRB,0.09515216_JPRB,0.07890341_JPRB,0.05924807_JPRB,&
+ & 0.04052851_JPRB,0.00440870_JPRB,0.00365425_JPRB,0.00286878_JPRB,&
+ & 0.00205747_JPRB,0.00128916_JPRB,0.00046589_JPRB,0.00006221_JPRB/)  
+FRACREFAO( :,13) = (/&
+ & 0.15937765_JPRB,0.15775780_JPRB,0.14892603_JPRB,0.13273248_JPRB,&
+ & 0.11252731_JPRB,0.09521657_JPRB,0.07885858_JPRB,0.05927679_JPRB,&
+ & 0.04050184_JPRB,0.00440285_JPRB,0.00365748_JPRB,0.00286791_JPRB,&
+ & 0.00207507_JPRB,0.00129193_JPRB,0.00046679_JPRB,0.00006308_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB2:PART8',1,ZHOOK_HANDLE)
+END SUBROUTINE PART8
+
+
+END SUBROUTINE RRTM_KGB2
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb2.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb2.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb2.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_KGB2
+END SUBROUTINE RRTM_KGB2
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb3.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb3.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb3.F90	(revision 1989)
@@ -0,0 +1,11371 @@
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+#ifdef VPP 
+!OPT SCALAR
+#endif
+SUBROUTINE RRTM_KGB3
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 3:  500-630 cm-1 (low - H2O,CO2; high - H2O,CO2)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     R. Elkhatib 12-10-2005 Split for faster and more robust compilation.
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO3 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+ & FRACREFBO  ,FORREFO    ,ABSN2OAO   ,ABSN2OBO  
+USE YOERRTA3 , ONLY :    ETAREF    ,H2OREF     ,&
+ & N2OREF     ,CO2REF     ,STRRAT  
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3',0,ZHOOK_HANDLE)
+
+CALL PART1
+CALL PART2
+CALL PART3
+CALL PART4
+CALL PART5
+CALL PART6
+CALL PART7
+CALL PART8
+CALL PART9
+CALL PART10
+CALL PART11
+CALL PART12
+CALL PART13
+CALL PART14
+CALL PART15
+CALL PART16
+CALL PART17
+CALL PART18
+CALL PART19
+CALL PART20
+CALL PART21
+CALL PART22
+CALL PART23
+CALL PART24
+CALL PART25
+CALL PART26
+CALL PART27
+CALL PART28
+CALL PART29
+CALL PART30
+CALL PART31
+CALL PART32
+CALL PART33
+CALL PART34
+CALL PART35
+CALL PART36
+CALL PART37
+CALL PART38
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3',1,ZHOOK_HANDLE)
+
+!     -----------------------------------------------------------------
+
+CONTAINS
+
+SUBROUTINE PART1
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART1',0,ZHOOK_HANDLE)
+
+
+FORREFO( :) = (/&
+ & 1.76842E-04_JPRB, 1.77913E-04_JPRB, 1.25186E-04_JPRB, 1.07912E-04_JPRB,&
+ & 1.05217E-04_JPRB, 7.48726E-05_JPRB, 1.11701E-04_JPRB, 7.68921E-05_JPRB,&
+ & 9.87242E-05_JPRB, 9.85711E-05_JPRB, 6.16557E-05_JPRB,-1.61291E-05_JPRB,&
+ & -1.26794E-04_JPRB,-1.19011E-04_JPRB,-2.67814E-04_JPRB, 6.95005E-05_JPRB/)  
+
+ABSN2OAO( :) = (/&
+ & 1.50387E-01_JPRB,2.91407E-01_JPRB,6.28803E-01_JPRB,9.65619E-01_JPRB,&
+ & 1.15054E-00_JPRB,2.23424E-00_JPRB,1.83392E-00_JPRB,1.39033E-00_JPRB,&
+ & 4.28457E-01_JPRB,2.73502E-01_JPRB,1.84307E-01_JPRB,1.61325E-01_JPRB,&
+ & 7.66314E-02_JPRB,1.33862E-01_JPRB,6.71196E-07_JPRB,1.59293E-06_JPRB/)  
+
+ABSN2OBO( :) = (/&
+ & 9.37044E-05_JPRB,1.23318E-03_JPRB,7.91720E-03_JPRB,5.33005E-02_JPRB,&
+ & 1.72343E-01_JPRB,4.29571E-01_JPRB,1.01288E+00_JPRB,3.83863E+00_JPRB,&
+ & 1.15312E+01_JPRB,1.08383E+00_JPRB,2.24847E+00_JPRB,1.51268E+00_JPRB,&
+ & 3.33177E-01_JPRB,7.82102E-01_JPRB,3.44631E-01_JPRB,1.61039E-03_JPRB/)  
+
+ETAREF( :) = (/&
+ & 0.0_JPRB,0.125_JPRB,0.25_JPRB,0.375_JPRB,0.5_JPRB,0.625_JPRB,0.75_JPRB,0.875_JPRB,0.9875_JPRB,1.0_JPRB/)  
+
+H2OREF( :) = (/&
+ & 1.87599E-02_JPRB,1.22233E-02_JPRB,5.89086E-03_JPRB,2.76753E-03_JPRB,1.40651E-03_JPRB, &
+ & 7.59698E-04_JPRB,3.88758E-04_JPRB,1.65422E-04_JPRB,3.71895E-05_JPRB,7.47648E-06_JPRB, &
+ & 4.30818E-06_JPRB,3.33194E-06_JPRB,3.20393E-06_JPRB,3.16186E-06_JPRB,3.25235E-06_JPRB, &
+ & 3.42258E-06_JPRB,3.62884E-06_JPRB,3.91482E-06_JPRB,4.14875E-06_JPRB,4.30810E-06_JPRB,&
+ & 4.44204E-06_JPRB,4.57783E-06_JPRB,4.70865E-06_JPRB,4.79432E-06_JPRB,4.86971E-06_JPRB, &
+ & 4.92603E-06_JPRB,4.96688E-06_JPRB,4.99628E-06_JPRB,5.05266E-06_JPRB,5.12658E-06_JPRB, &
+ & 5.25028E-06_JPRB,5.35708E-06_JPRB,5.45085E-06_JPRB,5.48304E-06_JPRB,5.50000E-06_JPRB, &
+ & 5.50000E-06_JPRB,5.45359E-06_JPRB,5.40468E-06_JPRB,5.35576E-06_JPRB,5.25327E-06_JPRB,&
+ & 5.14362E-06_JPRB,5.03396E-06_JPRB,4.87662E-06_JPRB,4.69787E-06_JPRB,4.51911E-06_JPRB, &
+ & 4.33600E-06_JPRB,4.14416E-06_JPRB,3.95232E-06_JPRB,3.76048E-06_JPRB,3.57217E-06_JPRB, &
+ & 3.38549E-06_JPRB,3.19881E-06_JPRB,3.01212E-06_JPRB,2.82621E-06_JPRB,2.64068E-06_JPRB, &
+ & 2.45515E-06_JPRB,2.26962E-06_JPRB,2.08659E-06_JPRB,1.93029E-06_JPRB/)  
+
+N2OREF( :) = (/&
+ & 3.20000E-07_JPRB,3.20000E-07_JPRB,3.20000E-07_JPRB,3.20000E-07_JPRB,3.20000E-07_JPRB,&
+ & 3.19652E-07_JPRB,3.15324E-07_JPRB,3.03830E-07_JPRB,2.94221E-07_JPRB,2.84953E-07_JPRB,&
+ & 2.76714E-07_JPRB,2.64709E-07_JPRB,2.42847E-07_JPRB,2.09547E-07_JPRB,1.71945E-07_JPRB,&
+ & 1.37491E-07_JPRB,1.13319E-07_JPRB,1.00354E-07_JPRB,9.12812E-08_JPRB,8.54633E-08_JPRB,&
+ & 8.03631E-08_JPRB,7.33718E-08_JPRB,6.59754E-08_JPRB,5.60386E-08_JPRB,4.70901E-08_JPRB,&
+ & 3.99774E-08_JPRB,3.29786E-08_JPRB,2.60642E-08_JPRB,2.10663E-08_JPRB,1.65918E-08_JPRB,&
+ & 1.30167E-08_JPRB,1.00900E-08_JPRB,7.62490E-09_JPRB,6.11592E-09_JPRB,4.66725E-09_JPRB,&
+ & 3.28574E-09_JPRB,2.84838E-09_JPRB,2.46198E-09_JPRB,2.07557E-09_JPRB,1.85507E-09_JPRB,&
+ & 1.65675E-09_JPRB,1.45843E-09_JPRB,1.31948E-09_JPRB,1.20716E-09_JPRB,1.09485E-09_JPRB,&
+ & 9.97803E-10_JPRB,9.31260E-10_JPRB,8.64721E-10_JPRB,7.98181E-10_JPRB,7.51380E-10_JPRB,&
+ & 7.13670E-10_JPRB,6.75960E-10_JPRB,6.38250E-10_JPRB,6.09811E-10_JPRB,5.85998E-10_JPRB,&
+ & 5.62185E-10_JPRB,5.38371E-10_JPRB,5.15183E-10_JPRB,4.98660E-10_JPRB/)  
+
+CO2REF( :) = (/&
+ & 3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,&
+ & 3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,&
+ & 3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,&
+ & 3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,&
+ & 3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,&
+ & 3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,&
+ & 3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,&
+ & 3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,&
+ & 3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,&
+ & 3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,&
+ & 3.55000E-04_JPRB,3.55000E-04_JPRB,3.55000E-04_JPRB,&
+ & 3.5470873E-04_JPRB, 3.5427220E-04_JPRB, 3.5383567E-04_JPRB,&
+ & 3.5339911E-04_JPRB, 3.5282588E-04_JPRB, 3.5079606E-04_JPRB/)   
+
+STRRAT = 1.19268_JPRB
+
+!     ------------------------------------------------------------------
+
+!     The array KAO contains absorption coefs for each of the 16 g-intervals
+!     for a range of pressure levels > ~100mb, temperatures, and ratios
+!     of water vapor to CO2.  The first index in the array, JS, runs
+!     from 1 to 10, and corresponds to different water vapor to CO2 ratios,
+!     as expressed through the binary species parameter eta, defined as
+!     eta = h2o/(h20 + (rat) * co2), where rat is the ratio of the integrated
+!     line strength in the band of co2 to that of h2o.  For instance,
+!     JS=1 refers to dry air (eta = 0), JS = 10 corresponds to eta = 1.0.
+!     The 2nd index in the array, JT, which runs from 1 to 5, corresponds 
+!     to different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this  pressure 
+!     level, JT = 2 refers to the temperature
+!     TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the reference pressure level (e.g. JP = 1 is for a
+!     pressure of 1053.63 mb).  The fourth index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+
+KAO( :, 1, 1, 1) = (/&
+ & 1.3905E-05_JPRB,5.5491E-04_JPRB,9.4069E-04_JPRB,1.2683E-03_JPRB,1.5758E-03_JPRB,1.8657E-03_JPRB,&
+ & 2.1271E-03_JPRB,2.3310E-03_JPRB,2.2238E-03_JPRB,1.2098E-03_JPRB/)  
+KAO( :, 2, 1, 1) = (/&
+ & 1.8718E-05_JPRB,6.2254E-04_JPRB,1.0419E-03_JPRB,1.3944E-03_JPRB,1.7096E-03_JPRB,2.0070E-03_JPRB,&
+ & 2.2783E-03_JPRB,2.4921E-03_JPRB,2.4893E-03_JPRB,1.3329E-03_JPRB/)  
+KAO( :, 3, 1, 1) = (/&
+ & 2.5277E-05_JPRB,7.0791E-04_JPRB,1.1679E-03_JPRB,1.5540E-03_JPRB,1.8826E-03_JPRB,2.1855E-03_JPRB,&
+ & 2.4637E-03_JPRB,2.6836E-03_JPRB,2.4870E-03_JPRB,1.4683E-03_JPRB/)  
+KAO( :, 4, 1, 1) = (/&
+ & 3.3974E-05_JPRB,8.1479E-04_JPRB,1.3277E-03_JPRB,1.7495E-03_JPRB,2.1019E-03_JPRB,2.4115E-03_JPRB,&
+ & 2.6955E-03_JPRB,2.9144E-03_JPRB,2.6786E-03_JPRB,1.5835E-03_JPRB/)  
+KAO( :, 5, 1, 1) = (/&
+ & 4.5018E-05_JPRB,9.4621E-04_JPRB,1.5225E-03_JPRB,1.9888E-03_JPRB,2.3735E-03_JPRB,2.6924E-03_JPRB,&
+ & 2.9767E-03_JPRB,3.1904E-03_JPRB,2.9199E-03_JPRB,1.7196E-03_JPRB/)  
+KAO( :, 1, 2, 1) = (/&
+ & 1.0592E-05_JPRB,4.4499E-04_JPRB,7.6480E-04_JPRB,1.0361E-03_JPRB,1.2851E-03_JPRB,1.5183E-03_JPRB,&
+ & 1.7260E-03_JPRB,1.8861E-03_JPRB,1.7869E-03_JPRB,9.5189E-04_JPRB/)  
+KAO( :, 2, 2, 1) = (/&
+ & 1.4233E-05_JPRB,4.9754E-04_JPRB,8.4386E-04_JPRB,1.1364E-03_JPRB,1.3930E-03_JPRB,1.6308E-03_JPRB,&
+ & 1.8450E-03_JPRB,2.0088E-03_JPRB,1.9843E-03_JPRB,1.0406E-03_JPRB/)  
+KAO( :, 3, 2, 1) = (/&
+ & 1.9306E-05_JPRB,5.6436E-04_JPRB,9.4285E-04_JPRB,1.2611E-03_JPRB,1.5318E-03_JPRB,1.7753E-03_JPRB,&
+ & 1.9931E-03_JPRB,2.1588E-03_JPRB,2.0128E-03_JPRB,1.1498E-03_JPRB/)  
+KAO( :, 4, 2, 1) = (/&
+ & 2.6119E-05_JPRB,6.4842E-04_JPRB,1.0680E-03_JPRB,1.4147E-03_JPRB,1.7071E-03_JPRB,1.9567E-03_JPRB,&
+ & 2.1789E-03_JPRB,2.3401E-03_JPRB,2.1538E-03_JPRB,1.2358E-03_JPRB/)  
+KAO( :, 5, 2, 1) = (/&
+ & 3.4871E-05_JPRB,7.5256E-04_JPRB,1.2221E-03_JPRB,1.6045E-03_JPRB,1.9204E-03_JPRB,2.1824E-03_JPRB,&
+ & 2.4047E-03_JPRB,2.5599E-03_JPRB,2.3558E-03_JPRB,1.3458E-03_JPRB/)  
+KAO( :, 1, 3, 1) = (/&
+ & 7.6650E-06_JPRB,3.4947E-04_JPRB,6.0867E-04_JPRB,8.3119E-04_JPRB,1.0323E-03_JPRB,1.2185E-03_JPRB,&
+ & 1.3830E-03_JPRB,1.5087E-03_JPRB,1.4187E-03_JPRB,7.5325E-04_JPRB/)  
+KAO( :, 2, 3, 1) = (/&
+ & 1.0208E-05_JPRB,3.8799E-04_JPRB,6.6727E-04_JPRB,9.0569E-04_JPRB,1.1140E-03_JPRB,1.3039E-03_JPRB,&
+ & 1.4728E-03_JPRB,1.5994E-03_JPRB,1.5541E-03_JPRB,8.1826E-04_JPRB/)  
+KAO( :, 3, 3, 1) = (/&
+ & 1.3852E-05_JPRB,4.3745E-04_JPRB,7.4132E-04_JPRB,9.9801E-04_JPRB,1.2192E-03_JPRB,1.4137E-03_JPRB,&
+ & 1.5849E-03_JPRB,1.7123E-03_JPRB,1.6593E-03_JPRB,8.9528E-04_JPRB/)  
+KAO( :, 4, 3, 1) = (/&
+ & 1.8873E-05_JPRB,5.0084E-04_JPRB,8.3488E-04_JPRB,1.1136E-03_JPRB,1.3505E-03_JPRB,1.5529E-03_JPRB,&
+ & 1.7249E-03_JPRB,1.8487E-03_JPRB,1.7141E-03_JPRB,9.6472E-04_JPRB/)  
+KAO( :, 5, 3, 1) = (/&
+ & 2.5412E-05_JPRB,5.7989E-04_JPRB,9.5083E-04_JPRB,1.2577E-03_JPRB,1.5110E-03_JPRB,1.7265E-03_JPRB,&
+ & 1.9001E-03_JPRB,2.0154E-03_JPRB,1.8592E-03_JPRB,1.0514E-03_JPRB/)  
+KAO( :, 1, 4, 1) = (/&
+ & 5.5327E-06_JPRB,2.7370E-04_JPRB,4.8202E-04_JPRB,6.6293E-04_JPRB,8.2705E-04_JPRB,9.7621E-04_JPRB,&
+ & 1.1071E-03_JPRB,1.2149E-03_JPRB,1.1365E-03_JPRB,6.2235E-04_JPRB/)  
+KAO( :, 2, 4, 1) = (/&
+ & 7.2381E-06_JPRB,3.0138E-04_JPRB,5.2416E-04_JPRB,7.1697E-04_JPRB,8.8620E-04_JPRB,1.0391E-03_JPRB,&
+ & 1.1730E-03_JPRB,1.2726E-03_JPRB,1.2113E-03_JPRB,6.7320E-04_JPRB/)  
+KAO( :, 3, 4, 1) = (/&
+ & 9.7698E-06_JPRB,3.3721E-04_JPRB,5.7856E-04_JPRB,7.8512E-04_JPRB,9.6459E-04_JPRB,1.1210E-03_JPRB,&
+ & 1.2565E-03_JPRB,1.3549E-03_JPRB,1.3452E-03_JPRB,7.2416E-04_JPRB/)  
+KAO( :, 4, 4, 1) = (/&
+ & 1.3344E-05_JPRB,3.8381E-04_JPRB,6.4739E-04_JPRB,8.7038E-04_JPRB,1.0615E-03_JPRB,1.2252E-03_JPRB,&
+ & 1.3612E-03_JPRB,1.4576E-03_JPRB,1.3655E-03_JPRB,7.8325E-04_JPRB/)  
+KAO( :, 5, 4, 1) = (/&
+ & 1.8090E-05_JPRB,4.4258E-04_JPRB,7.3288E-04_JPRB,9.7754E-04_JPRB,1.1813E-03_JPRB,1.3549E-03_JPRB,&
+ & 1.4926E-03_JPRB,1.5822E-03_JPRB,1.4607E-03_JPRB,8.5221E-04_JPRB/)  
+KAO( :, 1, 5, 1) = (/&
+ & 4.0810E-06_JPRB,2.1551E-04_JPRB,3.8283E-04_JPRB,5.2940E-04_JPRB,6.6368E-04_JPRB,7.8503E-04_JPRB,&
+ & 8.8897E-04_JPRB,9.7870E-04_JPRB,9.2885E-04_JPRB,5.3112E-04_JPRB/)  
+KAO( :, 2, 5, 1) = (/&
+ & 5.1916E-06_JPRB,2.3507E-04_JPRB,4.1271E-04_JPRB,5.6826E-04_JPRB,7.0568E-04_JPRB,8.2971E-04_JPRB,&
+ & 9.3695E-04_JPRB,1.0168E-03_JPRB,9.5220E-04_JPRB,5.6840E-04_JPRB/)  
+KAO( :, 3, 5, 1) = (/&
+ & 6.9159E-06_JPRB,2.6088E-04_JPRB,4.5208E-04_JPRB,6.1797E-04_JPRB,7.6301E-04_JPRB,8.8979E-04_JPRB,&
+ & 9.9853E-04_JPRB,1.0759E-03_JPRB,1.0389E-03_JPRB,6.0777E-04_JPRB/)  
+KAO( :, 4, 5, 1) = (/&
+ & 9.4196E-06_JPRB,2.9480E-04_JPRB,5.0274E-04_JPRB,6.8088E-04_JPRB,8.3550E-04_JPRB,9.6746E-04_JPRB,&
+ & 1.0764E-03_JPRB,1.1522E-03_JPRB,1.1313E-03_JPRB,6.5577E-04_JPRB/)  
+KAO( :, 5, 5, 1) = (/&
+ & 1.2823E-05_JPRB,3.3834E-04_JPRB,5.6555E-04_JPRB,7.6000E-04_JPRB,9.2459E-04_JPRB,1.0640E-03_JPRB,&
+ & 1.1745E-03_JPRB,1.2456E-03_JPRB,1.1599E-03_JPRB,7.1205E-04_JPRB/)  
+KAO( :, 1, 6, 1) = (/&
+ & 3.0745E-06_JPRB,1.7028E-04_JPRB,3.0467E-04_JPRB,4.2351E-04_JPRB,5.3324E-04_JPRB,6.3166E-04_JPRB,&
+ & 7.1362E-04_JPRB,7.7595E-04_JPRB,7.2555E-04_JPRB,4.6766E-04_JPRB/)  
+KAO( :, 2, 6, 1) = (/&
+ & 3.7467E-06_JPRB,1.8364E-04_JPRB,3.2533E-04_JPRB,4.4992E-04_JPRB,5.6174E-04_JPRB,6.6289E-04_JPRB,&
+ & 7.4918E-04_JPRB,8.1992E-04_JPRB,7.7217E-04_JPRB,4.9540E-04_JPRB/)  
+KAO( :, 3, 6, 1) = (/&
+ & 4.8844E-06_JPRB,2.0189E-04_JPRB,3.5318E-04_JPRB,4.8611E-04_JPRB,6.0248E-04_JPRB,7.0548E-04_JPRB,&
+ & 7.9343E-04_JPRB,8.5556E-04_JPRB,8.1719E-04_JPRB,5.2871E-04_JPRB/)  
+KAO( :, 4, 6, 1) = (/&
+ & 6.5875E-06_JPRB,2.2623E-04_JPRB,3.8987E-04_JPRB,5.3174E-04_JPRB,6.5615E-04_JPRB,7.6255E-04_JPRB,&
+ & 8.5105E-04_JPRB,9.1164E-04_JPRB,9.0776E-04_JPRB,5.6738E-04_JPRB/)  
+KAO( :, 5, 6, 1) = (/&
+ & 8.9782E-06_JPRB,2.5797E-04_JPRB,4.3574E-04_JPRB,5.8945E-04_JPRB,7.2180E-04_JPRB,8.3401E-04_JPRB,&
+ & 9.2288E-04_JPRB,9.8059E-04_JPRB,9.2715E-04_JPRB,6.1340E-04_JPRB/)  
+KAO( :, 1, 7, 1) = (/&
+ & 2.3852E-06_JPRB,1.3537E-04_JPRB,2.4376E-04_JPRB,3.4046E-04_JPRB,4.2953E-04_JPRB,5.0877E-04_JPRB,&
+ & 5.7353E-04_JPRB,6.1192E-04_JPRB,5.7270E-04_JPRB,4.3319E-04_JPRB/)  
+KAO( :, 2, 7, 1) = (/&
+ & 2.7620E-06_JPRB,1.4429E-04_JPRB,2.5761E-04_JPRB,3.5752E-04_JPRB,4.4861E-04_JPRB,5.3102E-04_JPRB,&
+ & 5.9966E-04_JPRB,6.5817E-04_JPRB,6.2541E-04_JPRB,4.5750E-04_JPRB/)  
+KAO( :, 3, 7, 1) = (/&
+ & 3.4880E-06_JPRB,1.5701E-04_JPRB,2.7701E-04_JPRB,3.8344E-04_JPRB,4.7691E-04_JPRB,5.6092E-04_JPRB,&
+ & 6.3220E-04_JPRB,6.8391E-04_JPRB,6.4333E-04_JPRB,4.8664E-04_JPRB/)  
+KAO( :, 4, 7, 1) = (/&
+ & 4.6192E-06_JPRB,1.7428E-04_JPRB,3.0330E-04_JPRB,4.1640E-04_JPRB,5.1608E-04_JPRB,6.0192E-04_JPRB,&
+ & 6.7387E-04_JPRB,7.2302E-04_JPRB,7.0029E-04_JPRB,5.2115E-04_JPRB/)  
+KAO( :, 5, 7, 1) = (/&
+ & 6.2659E-06_JPRB,1.9723E-04_JPRB,3.3668E-04_JPRB,4.5828E-04_JPRB,5.6442E-04_JPRB,6.5465E-04_JPRB,&
+ & 7.2699E-04_JPRB,7.7405E-04_JPRB,7.7413E-04_JPRB,5.6002E-04_JPRB/)  
+KAO( :, 1, 8, 1) = (/&
+ & 1.9015E-06_JPRB,1.0820E-04_JPRB,1.9592E-04_JPRB,2.7484E-04_JPRB,3.4688E-04_JPRB,4.0988E-04_JPRB,&
+ & 4.6037E-04_JPRB,4.8747E-04_JPRB,4.5723E-04_JPRB,4.3074E-04_JPRB/)  
+KAO( :, 2, 8, 1) = (/&
+ & 2.0897E-06_JPRB,1.1410E-04_JPRB,2.0489E-04_JPRB,2.8543E-04_JPRB,3.5954E-04_JPRB,4.2599E-04_JPRB,&
+ & 4.8075E-04_JPRB,5.2102E-04_JPRB,4.8940E-04_JPRB,4.6091E-04_JPRB/)  
+KAO( :, 3, 8, 1) = (/&
+ & 2.5320E-06_JPRB,1.2277E-04_JPRB,2.1834E-04_JPRB,3.0321E-04_JPRB,3.7874E-04_JPRB,4.4717E-04_JPRB,&
+ & 5.0489E-04_JPRB,5.5180E-04_JPRB,5.2338E-04_JPRB,4.9080E-04_JPRB/)  
+KAO( :, 4, 8, 1) = (/&
+ & 3.2727E-06_JPRB,1.3498E-04_JPRB,2.3690E-04_JPRB,3.2720E-04_JPRB,4.0672E-04_JPRB,4.7636E-04_JPRB,&
+ & 5.3491E-04_JPRB,5.7561E-04_JPRB,5.5051E-04_JPRB,5.1978E-04_JPRB/)  
+KAO( :, 5, 8, 1) = (/&
+ & 4.3856E-06_JPRB,1.5147E-04_JPRB,2.6111E-04_JPRB,3.5765E-04_JPRB,4.4264E-04_JPRB,5.1502E-04_JPRB,&
+ & 5.7382E-04_JPRB,6.1302E-04_JPRB,6.1438E-04_JPRB,5.4976E-04_JPRB/)  
+KAO( :, 1, 9, 1) = (/&
+ & 1.5482E-06_JPRB,8.7052E-05_JPRB,1.5839E-04_JPRB,2.2300E-04_JPRB,2.8105E-04_JPRB,3.3090E-04_JPRB,&
+ & 3.6936E-04_JPRB,3.8992E-04_JPRB,3.6561E-04_JPRB,5.0307E-04_JPRB/)  
+KAO( :, 2, 9, 1) = (/&
+ & 1.6233E-06_JPRB,9.0800E-05_JPRB,1.6386E-04_JPRB,2.2916E-04_JPRB,2.8933E-04_JPRB,3.4270E-04_JPRB,&
+ & 3.8603E-04_JPRB,4.1137E-04_JPRB,3.8679E-04_JPRB,5.3034E-04_JPRB/)  
+KAO( :, 3, 9, 1) = (/&
+ & 1.8727E-06_JPRB,9.6605E-05_JPRB,1.7299E-04_JPRB,2.4068E-04_JPRB,3.0216E-04_JPRB,3.5768E-04_JPRB,&
+ & 4.0386E-04_JPRB,4.4306E-04_JPRB,4.2523E-04_JPRB,5.5823E-04_JPRB/)  
+KAO( :, 4, 9, 1) = (/&
+ & 2.3460E-06_JPRB,1.0514E-04_JPRB,1.8594E-04_JPRB,2.5798E-04_JPRB,3.2158E-04_JPRB,3.7830E-04_JPRB,&
+ & 4.2604E-04_JPRB,4.6061E-04_JPRB,4.3830E-04_JPRB,5.8904E-04_JPRB/)  
+KAO( :, 5, 9, 1) = (/&
+ & 3.0835E-06_JPRB,1.1691E-04_JPRB,2.0336E-04_JPRB,2.8015E-04_JPRB,3.4814E-04_JPRB,4.0638E-04_JPRB,&
+ & 4.5421E-04_JPRB,4.8658E-04_JPRB,4.7615E-04_JPRB,6.2435E-04_JPRB/)  
+KAO( :, 1,10, 1) = (/&
+ & 1.2799E-06_JPRB,7.0646E-05_JPRB,1.2898E-04_JPRB,1.8180E-04_JPRB,2.2870E-04_JPRB,2.6728E-04_JPRB,&
+ & 2.9678E-04_JPRB,3.1565E-04_JPRB,2.9877E-04_JPRB,5.6519E-04_JPRB/)  
+KAO( :, 2,10, 1) = (/&
+ & 1.2987E-06_JPRB,7.2906E-05_JPRB,1.3215E-04_JPRB,1.8535E-04_JPRB,2.3421E-04_JPRB,2.7695E-04_JPRB,&
+ & 3.1130E-04_JPRB,3.2886E-04_JPRB,3.1021E-04_JPRB,5.8706E-04_JPRB/)  
+KAO( :, 3,10, 1) = (/&
+ & 1.4353E-06_JPRB,7.6915E-05_JPRB,1.3835E-04_JPRB,1.9290E-04_JPRB,2.4295E-04_JPRB,2.8803E-04_JPRB,&
+ & 3.2514E-04_JPRB,3.5354E-04_JPRB,3.3578E-04_JPRB,6.1412E-04_JPRB/)  
+KAO( :, 4,10, 1) = (/&
+ & 1.7387E-06_JPRB,8.2894E-05_JPRB,1.4759E-04_JPRB,2.0528E-04_JPRB,2.5663E-04_JPRB,3.0293E-04_JPRB,&
+ & 3.4175E-04_JPRB,3.7216E-04_JPRB,3.5751E-04_JPRB,6.4985E-04_JPRB/)  
+KAO( :, 5,10, 1) = (/&
+ & 2.2343E-06_JPRB,9.1469E-05_JPRB,1.6022E-04_JPRB,2.2168E-04_JPRB,2.7630E-04_JPRB,3.2346E-04_JPRB,&
+ & 3.6268E-04_JPRB,3.8938E-04_JPRB,3.7492E-04_JPRB,6.9583E-04_JPRB/)  
+KAO( :, 1,11, 1) = (/&
+ & 1.0543E-06_JPRB,5.7983E-05_JPRB,1.0582E-04_JPRB,1.4919E-04_JPRB,1.8791E-04_JPRB,2.2000E-04_JPRB,&
+ & 2.4433E-04_JPRB,2.5995E-04_JPRB,2.4592E-04_JPRB,5.0307E-04_JPRB/)  
+KAO( :, 2,11, 1) = (/&
+ & 1.0726E-06_JPRB,5.9907E-05_JPRB,1.0858E-04_JPRB,1.5223E-04_JPRB,1.9244E-04_JPRB,2.2775E-04_JPRB,&
+ & 2.5610E-04_JPRB,2.7046E-04_JPRB,2.5615E-04_JPRB,5.1588E-04_JPRB/)  
+KAO( :, 3,11, 1) = (/&
+ & 1.1894E-06_JPRB,6.3212E-05_JPRB,1.1383E-04_JPRB,1.5870E-04_JPRB,1.9979E-04_JPRB,2.3693E-04_JPRB,&
+ & 2.6747E-04_JPRB,2.9154E-04_JPRB,2.7919E-04_JPRB,5.3855E-04_JPRB/)  
+KAO( :, 4,11, 1) = (/&
+ & 1.4390E-06_JPRB,6.8258E-05_JPRB,1.2145E-04_JPRB,1.6906E-04_JPRB,2.1138E-04_JPRB,2.4948E-04_JPRB,&
+ & 2.8136E-04_JPRB,3.0581E-04_JPRB,2.9553E-04_JPRB,5.7296E-04_JPRB/)  
+KAO( :, 5,11, 1) = (/&
+ & 1.8470E-06_JPRB,7.5489E-05_JPRB,1.3202E-04_JPRB,1.8257E-04_JPRB,2.2782E-04_JPRB,2.6681E-04_JPRB,&
+ & 2.9892E-04_JPRB,3.2058E-04_JPRB,3.1052E-04_JPRB,6.1818E-04_JPRB/)  
+KAO( :, 1,12, 1) = (/&
+ & 8.6798E-07_JPRB,4.7553E-05_JPRB,8.6730E-05_JPRB,1.2226E-04_JPRB,1.5413E-04_JPRB,1.8085E-04_JPRB,&
+ & 2.0088E-04_JPRB,2.1368E-04_JPRB,2.0252E-04_JPRB,4.1925E-04_JPRB/)  
+KAO( :, 2,12, 1) = (/&
+ & 8.8495E-07_JPRB,4.9183E-05_JPRB,8.9118E-05_JPRB,1.2490E-04_JPRB,1.5790E-04_JPRB,1.8699E-04_JPRB,&
+ & 2.1049E-04_JPRB,2.2231E-04_JPRB,2.1170E-04_JPRB,4.2911E-04_JPRB/)  
+KAO( :, 3,12, 1) = (/&
+ & 9.8325E-07_JPRB,5.1925E-05_JPRB,9.3547E-05_JPRB,1.3044E-04_JPRB,1.6413E-04_JPRB,1.9471E-04_JPRB,&
+ & 2.1986E-04_JPRB,2.4001E-04_JPRB,2.3209E-04_JPRB,4.4871E-04_JPRB/)  
+KAO( :, 4,12, 1) = (/&
+ & 1.1889E-06_JPRB,5.6183E-05_JPRB,9.9863E-05_JPRB,1.3905E-04_JPRB,1.7391E-04_JPRB,2.0522E-04_JPRB,&
+ & 2.3142E-04_JPRB,2.5135E-04_JPRB,2.4267E-04_JPRB,4.7818E-04_JPRB/)  
+KAO( :, 5,12, 1) = (/&
+ & 1.5235E-06_JPRB,6.2281E-05_JPRB,1.0874E-04_JPRB,1.5023E-04_JPRB,1.8755E-04_JPRB,2.1980E-04_JPRB,&
+ & 2.4617E-04_JPRB,2.6379E-04_JPRB,2.5784E-04_JPRB,5.1708E-04_JPRB/)  
+KAO( :, 1,13, 1) = (/&
+ & 7.1418E-07_JPRB,3.8921E-05_JPRB,7.0891E-05_JPRB,9.9889E-05_JPRB,1.2597E-04_JPRB,1.4799E-04_JPRB,&
+ & 1.6453E-04_JPRB,1.7513E-04_JPRB,1.6667E-04_JPRB,3.4309E-04_JPRB/)  
+KAO( :, 2,13, 1) = (/&
+ & 7.2895E-07_JPRB,4.0284E-05_JPRB,7.2945E-05_JPRB,1.0221E-04_JPRB,1.2923E-04_JPRB,1.5309E-04_JPRB,&
+ & 1.7258E-04_JPRB,1.8229E-04_JPRB,1.7386E-04_JPRB,3.5109E-04_JPRB/)  
+KAO( :, 3,13, 1) = (/&
+ & 8.1079E-07_JPRB,4.2576E-05_JPRB,7.6659E-05_JPRB,1.0692E-04_JPRB,1.3449E-04_JPRB,1.5961E-04_JPRB,&
+ & 1.8026E-04_JPRB,1.9704E-04_JPRB,1.9240E-04_JPRB,3.6700E-04_JPRB/)  
+KAO( :, 4,13, 1) = (/&
+ & 9.8001E-07_JPRB,4.6149E-05_JPRB,8.1932E-05_JPRB,1.1406E-04_JPRB,1.4271E-04_JPRB,1.6841E-04_JPRB,&
+ & 1.8992E-04_JPRB,2.0617E-04_JPRB,1.9928E-04_JPRB,3.9092E-04_JPRB/)  
+KAO( :, 5,13, 1) = (/&
+ & 1.2528E-06_JPRB,5.1280E-05_JPRB,8.9359E-05_JPRB,1.2338E-04_JPRB,1.5401E-04_JPRB,1.8056E-04_JPRB,&
+ & 2.0225E-04_JPRB,2.1672E-04_JPRB,2.1360E-04_JPRB,4.2252E-04_JPRB/)  
+KAO( :, 1, 1, 2) = (/&
+ & 6.1207E-05_JPRB,1.0978E-03_JPRB,1.7611E-03_JPRB,2.3638E-03_JPRB,2.9057E-03_JPRB,3.3651E-03_JPRB,&
+ & 3.7137E-03_JPRB,3.8383E-03_JPRB,3.2297E-03_JPRB,2.4264E-03_JPRB/)  
+KAO( :, 2, 1, 2) = (/&
+ & 8.5058E-05_JPRB,1.3292E-03_JPRB,2.0750E-03_JPRB,2.7338E-03_JPRB,3.3403E-03_JPRB,3.8629E-03_JPRB,&
+ & 4.2579E-03_JPRB,4.3337E-03_JPRB,3.4101E-03_JPRB,2.6736E-03_JPRB/)  
+KAO( :, 3, 1, 2) = (/&
+ & 1.1682E-04_JPRB,1.6162E-03_JPRB,2.4689E-03_JPRB,3.1946E-03_JPRB,3.8719E-03_JPRB,4.4552E-03_JPRB,&
+ & 4.9076E-03_JPRB,4.9335E-03_JPRB,3.9022E-03_JPRB,2.9247E-03_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART1',1,ZHOOK_HANDLE)
+END SUBROUTINE PART1
+
+
+SUBROUTINE PART2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART2',0,ZHOOK_HANDLE)
+
+
+KAO( :, 4, 1, 2) = (/&
+ & 1.5789E-04_JPRB,1.9668E-03_JPRB,2.9480E-03_JPRB,3.7669E-03_JPRB,4.5171E-03_JPRB,5.1682E-03_JPRB,&
+ & 5.6653E-03_JPRB,5.6499E-03_JPRB,4.0652E-03_JPRB,3.1515E-03_JPRB/)  
+KAO( :, 5, 1, 2) = (/&
+ & 2.0990E-04_JPRB,2.3887E-03_JPRB,3.5299E-03_JPRB,4.4565E-03_JPRB,5.2844E-03_JPRB,6.0076E-03_JPRB,&
+ & 6.5551E-03_JPRB,6.4764E-03_JPRB,4.4385E-03_JPRB,3.4538E-03_JPRB/)  
+KAO( :, 1, 2, 2) = (/&
+ & 4.6541E-05_JPRB,8.8674E-04_JPRB,1.4099E-03_JPRB,1.8864E-03_JPRB,2.3180E-03_JPRB,2.6798E-03_JPRB,&
+ & 2.9613E-03_JPRB,3.0615E-03_JPRB,2.6597E-03_JPRB,1.8872E-03_JPRB/)  
+KAO( :, 2, 2, 2) = (/&
+ & 6.5339E-05_JPRB,1.0747E-03_JPRB,1.6670E-03_JPRB,2.1855E-03_JPRB,2.6622E-03_JPRB,3.0710E-03_JPRB,&
+ & 3.3862E-03_JPRB,3.4584E-03_JPRB,2.7852E-03_JPRB,2.0782E-03_JPRB/)  
+KAO( :, 3, 2, 2) = (/&
+ & 9.0589E-05_JPRB,1.3082E-03_JPRB,1.9947E-03_JPRB,2.5634E-03_JPRB,3.0860E-03_JPRB,3.5379E-03_JPRB,&
+ & 3.8975E-03_JPRB,3.9366E-03_JPRB,3.1668E-03_JPRB,2.2590E-03_JPRB/)  
+KAO( :, 4, 2, 2) = (/&
+ & 1.2385E-04_JPRB,1.5968E-03_JPRB,2.3941E-03_JPRB,3.0350E-03_JPRB,3.6067E-03_JPRB,4.1057E-03_JPRB,&
+ & 4.4942E-03_JPRB,4.5107E-03_JPRB,3.2782E-03_JPRB,2.4504E-03_JPRB/)  
+KAO( :, 5, 2, 2) = (/&
+ & 1.6667E-04_JPRB,1.9480E-03_JPRB,2.8786E-03_JPRB,3.6064E-03_JPRB,4.2370E-03_JPRB,4.7805E-03_JPRB,&
+ & 5.2024E-03_JPRB,5.1677E-03_JPRB,3.5425E-03_JPRB,2.6975E-03_JPRB/)  
+KAO( :, 1, 3, 2) = (/&
+ & 3.2922E-05_JPRB,6.8654E-04_JPRB,1.0970E-03_JPRB,1.4654E-03_JPRB,1.8051E-03_JPRB,2.0847E-03_JPRB,&
+ & 2.3088E-03_JPRB,2.3837E-03_JPRB,2.1265E-03_JPRB,1.4540E-03_JPRB/)  
+KAO( :, 2, 3, 2) = (/&
+ & 4.6583E-05_JPRB,8.3015E-04_JPRB,1.2948E-03_JPRB,1.6958E-03_JPRB,2.0663E-03_JPRB,2.3792E-03_JPRB,&
+ & 2.6229E-03_JPRB,2.6951E-03_JPRB,2.2518E-03_JPRB,1.5969E-03_JPRB/)  
+KAO( :, 3, 3, 2) = (/&
+ & 6.5410E-05_JPRB,1.0114E-03_JPRB,1.5518E-03_JPRB,1.9919E-03_JPRB,2.3944E-03_JPRB,2.7366E-03_JPRB,&
+ & 3.0098E-03_JPRB,3.0595E-03_JPRB,2.4530E-03_JPRB,1.7299E-03_JPRB/)  
+KAO( :, 4, 3, 2) = (/&
+ & 9.0734E-05_JPRB,1.2366E-03_JPRB,1.8688E-03_JPRB,2.3652E-03_JPRB,2.8005E-03_JPRB,3.1725E-03_JPRB,&
+ & 3.4706E-03_JPRB,3.5000E-03_JPRB,2.6641E-03_JPRB,1.8912E-03_JPRB/)  
+KAO( :, 5, 3, 2) = (/&
+ & 1.2407E-04_JPRB,1.5126E-03_JPRB,2.2510E-03_JPRB,2.8211E-03_JPRB,3.2989E-03_JPRB,3.7001E-03_JPRB,&
+ & 4.0161E-03_JPRB,4.0075E-03_JPRB,2.7798E-03_JPRB,2.0796E-03_JPRB/)  
+KAO( :, 1, 4, 2) = (/&
+ & 2.2778E-05_JPRB,5.2510E-04_JPRB,8.4888E-04_JPRB,1.1352E-03_JPRB,1.3979E-03_JPRB,1.6168E-03_JPRB,&
+ & 1.7964E-03_JPRB,1.8331E-03_JPRB,1.7837E-03_JPRB,1.1723E-03_JPRB/)  
+KAO( :, 2, 4, 2) = (/&
+ & 3.2363E-05_JPRB,6.3086E-04_JPRB,9.9709E-04_JPRB,1.3073E-03_JPRB,1.5943E-03_JPRB,1.8366E-03_JPRB,&
+ & 2.0244E-03_JPRB,2.0875E-03_JPRB,1.8124E-03_JPRB,1.2732E-03_JPRB/)  
+KAO( :, 3, 4, 2) = (/&
+ & 4.5962E-05_JPRB,7.6788E-04_JPRB,1.1912E-03_JPRB,1.5347E-03_JPRB,1.8433E-03_JPRB,2.1077E-03_JPRB,&
+ & 2.3135E-03_JPRB,2.3586E-03_JPRB,1.8966E-03_JPRB,1.3806E-03_JPRB/)  
+KAO( :, 4, 4, 2) = (/&
+ & 6.4739E-05_JPRB,9.3992E-04_JPRB,1.4352E-03_JPRB,1.8248E-03_JPRB,2.1580E-03_JPRB,2.4403E-03_JPRB,&
+ & 2.6639E-03_JPRB,2.6893E-03_JPRB,2.1413E-03_JPRB,1.4999E-03_JPRB/)  
+KAO( :, 5, 4, 2) = (/&
+ & 9.0009E-05_JPRB,1.1535E-03_JPRB,1.7330E-03_JPRB,2.1811E-03_JPRB,2.5487E-03_JPRB,2.8464E-03_JPRB,&
+ & 3.0813E-03_JPRB,3.0811E-03_JPRB,2.2013E-03_JPRB,1.6370E-03_JPRB/)  
+KAO( :, 1, 5, 2) = (/&
+ & 1.5792E-05_JPRB,4.0148E-04_JPRB,6.5831E-04_JPRB,8.8434E-04_JPRB,1.0869E-03_JPRB,1.2568E-03_JPRB,&
+ & 1.4030E-03_JPRB,1.4157E-03_JPRB,1.3790E-03_JPRB,9.9471E-04_JPRB/)  
+KAO( :, 2, 5, 2) = (/&
+ & 2.2397E-05_JPRB,4.7887E-04_JPRB,7.6705E-04_JPRB,1.0113E-03_JPRB,1.2329E-03_JPRB,1.4202E-03_JPRB,&
+ & 1.5687E-03_JPRB,1.6184E-03_JPRB,1.4582E-03_JPRB,1.0698E-03_JPRB/)  
+KAO( :, 3, 5, 2) = (/&
+ & 3.2096E-05_JPRB,5.8078E-04_JPRB,9.1183E-04_JPRB,1.1823E-03_JPRB,1.4221E-03_JPRB,1.6260E-03_JPRB,&
+ & 1.7823E-03_JPRB,1.8208E-03_JPRB,1.5493E-03_JPRB,1.1486E-03_JPRB/)  
+KAO( :, 4, 5, 2) = (/&
+ & 4.5840E-05_JPRB,7.1160E-04_JPRB,1.0969E-03_JPRB,1.4034E-03_JPRB,1.6628E-03_JPRB,1.8804E-03_JPRB,&
+ & 2.0470E-03_JPRB,2.0686E-03_JPRB,1.6540E-03_JPRB,1.2365E-03_JPRB/)  
+KAO( :, 5, 5, 2) = (/&
+ & 6.4822E-05_JPRB,8.7496E-04_JPRB,1.3269E-03_JPRB,1.6793E-03_JPRB,1.9658E-03_JPRB,2.1946E-03_JPRB,&
+ & 2.3671E-03_JPRB,2.3677E-03_JPRB,1.7812E-03_JPRB,1.3376E-03_JPRB/)  
+KAO( :, 1, 6, 2) = (/&
+ & 1.0902E-05_JPRB,3.0605E-04_JPRB,5.1028E-04_JPRB,6.8853E-04_JPRB,8.4488E-04_JPRB,9.7840E-04_JPRB,&
+ & 1.0974E-03_JPRB,1.1101E-03_JPRB,1.0645E-03_JPRB,8.6648E-04_JPRB/)  
+KAO( :, 2, 6, 2) = (/&
+ & 1.5301E-05_JPRB,3.6130E-04_JPRB,5.8719E-04_JPRB,7.8079E-04_JPRB,9.5252E-04_JPRB,1.0959E-03_JPRB,&
+ & 1.2152E-03_JPRB,1.2397E-03_JPRB,1.2046E-03_JPRB,9.1885E-04_JPRB/)  
+KAO( :, 3, 6, 2) = (/&
+ & 2.2016E-05_JPRB,4.3548E-04_JPRB,6.9267E-04_JPRB,9.0511E-04_JPRB,1.0924E-03_JPRB,1.2498E-03_JPRB,&
+ & 1.3720E-03_JPRB,1.4053E-03_JPRB,1.2319E-03_JPRB,9.7396E-04_JPRB/)  
+KAO( :, 4, 6, 2) = (/&
+ & 3.1830E-05_JPRB,5.3317E-04_JPRB,8.3063E-04_JPRB,1.0698E-03_JPRB,1.2734E-03_JPRB,1.4418E-03_JPRB,&
+ & 1.5687E-03_JPRB,1.5881E-03_JPRB,1.2775E-03_JPRB,1.0399E-03_JPRB/)  
+KAO( :, 5, 6, 2) = (/&
+ & 4.5738E-05_JPRB,6.5696E-04_JPRB,1.0039E-03_JPRB,1.2790E-03_JPRB,1.5021E-03_JPRB,1.6812E-03_JPRB,&
+ & 1.8119E-03_JPRB,1.8117E-03_JPRB,1.4274E-03_JPRB,1.1156E-03_JPRB/)  
+KAO( :, 1, 7, 2) = (/&
+ & 7.6369E-06_JPRB,2.3409E-04_JPRB,3.9662E-04_JPRB,5.3736E-04_JPRB,6.5954E-04_JPRB,7.6628E-04_JPRB,&
+ & 8.6324E-04_JPRB,8.8119E-04_JPRB,8.6194E-04_JPRB,7.9079E-04_JPRB/)  
+KAO( :, 2, 7, 2) = (/&
+ & 1.0494E-05_JPRB,2.7293E-04_JPRB,4.5033E-04_JPRB,6.0419E-04_JPRB,7.3771E-04_JPRB,8.4846E-04_JPRB,&
+ & 9.4512E-04_JPRB,9.5497E-04_JPRB,9.2999E-04_JPRB,8.2387E-04_JPRB/)  
+KAO( :, 3, 7, 2) = (/&
+ & 1.5059E-05_JPRB,3.2612E-04_JPRB,5.2570E-04_JPRB,6.9285E-04_JPRB,8.4056E-04_JPRB,9.6214E-04_JPRB,&
+ & 1.0579E-03_JPRB,1.0868E-03_JPRB,9.8600E-04_JPRB,8.6421E-04_JPRB/)  
+KAO( :, 4, 7, 2) = (/&
+ & 2.1973E-05_JPRB,3.9766E-04_JPRB,6.2716E-04_JPRB,8.1307E-04_JPRB,9.7314E-04_JPRB,1.1062E-03_JPRB,&
+ & 1.2052E-03_JPRB,1.2224E-03_JPRB,1.0473E-03_JPRB,9.1386E-04_JPRB/)  
+KAO( :, 5, 7, 2) = (/&
+ & 3.2024E-05_JPRB,4.9023E-04_JPRB,7.5693E-04_JPRB,9.6942E-04_JPRB,1.1441E-03_JPRB,1.2861E-03_JPRB,&
+ & 1.3873E-03_JPRB,1.3904E-03_JPRB,1.0995E-03_JPRB,9.7409E-04_JPRB/)  
+KAO( :, 1, 8, 2) = (/&
+ & 5.4819E-06_JPRB,1.8022E-04_JPRB,3.0951E-04_JPRB,4.2109E-04_JPRB,5.1765E-04_JPRB,6.0434E-04_JPRB,&
+ & 6.7966E-04_JPRB,7.0414E-04_JPRB,7.0729E-04_JPRB,7.6543E-04_JPRB/)  
+KAO( :, 2, 8, 2) = (/&
+ & 7.2946E-06_JPRB,2.0689E-04_JPRB,3.4673E-04_JPRB,4.6841E-04_JPRB,5.7263E-04_JPRB,6.6046E-04_JPRB,&
+ & 7.3949E-04_JPRB,7.4887E-04_JPRB,7.2137E-04_JPRB,7.8512E-04_JPRB/)  
+KAO( :, 3, 8, 2) = (/&
+ & 1.0351E-05_JPRB,2.4457E-04_JPRB,3.9988E-04_JPRB,5.3188E-04_JPRB,6.4791E-04_JPRB,7.4247E-04_JPRB,&
+ & 8.1941E-04_JPRB,8.3495E-04_JPRB,8.1545E-04_JPRB,8.2107E-04_JPRB/)  
+KAO( :, 4, 8, 2) = (/&
+ & 1.5156E-05_JPRB,2.9629E-04_JPRB,4.7365E-04_JPRB,6.1873E-04_JPRB,7.4454E-04_JPRB,8.4958E-04_JPRB,&
+ & 9.2854E-04_JPRB,9.4393E-04_JPRB,8.3940E-04_JPRB,8.7281E-04_JPRB/)  
+KAO( :, 5, 8, 2) = (/&
+ & 2.2361E-05_JPRB,3.6482E-04_JPRB,5.6983E-04_JPRB,7.3407E-04_JPRB,8.7045E-04_JPRB,9.8366E-04_JPRB,&
+ & 1.0651E-03_JPRB,1.0698E-03_JPRB,8.6698E-04_JPRB,9.3613E-04_JPRB/)  
+KAO( :, 1, 9, 2) = (/&
+ & 4.0452E-06_JPRB,1.4017E-04_JPRB,2.4329E-04_JPRB,3.3218E-04_JPRB,4.0925E-04_JPRB,4.8103E-04_JPRB,&
+ & 5.3918E-04_JPRB,5.6100E-04_JPRB,5.6501E-04_JPRB,8.0970E-04_JPRB/)  
+KAO( :, 2, 9, 2) = (/&
+ & 5.1567E-06_JPRB,1.5795E-04_JPRB,2.6863E-04_JPRB,3.6500E-04_JPRB,4.4688E-04_JPRB,5.1756E-04_JPRB,&
+ & 5.8306E-04_JPRB,5.9423E-04_JPRB,5.8894E-04_JPRB,8.6646E-04_JPRB/)  
+KAO( :, 3, 9, 2) = (/&
+ & 7.1657E-06_JPRB,1.8427E-04_JPRB,3.0563E-04_JPRB,4.1026E-04_JPRB,5.0076E-04_JPRB,5.7510E-04_JPRB,&
+ & 6.3796E-04_JPRB,6.4416E-04_JPRB,6.2814E-04_JPRB,9.4589E-04_JPRB/)  
+KAO( :, 4, 9, 2) = (/&
+ & 1.0454E-05_JPRB,2.2117E-04_JPRB,3.5855E-04_JPRB,4.7222E-04_JPRB,5.7137E-04_JPRB,6.5350E-04_JPRB,&
+ & 7.1676E-04_JPRB,7.3182E-04_JPRB,6.7180E-04_JPRB,1.0445E-03_JPRB/)  
+KAO( :, 5, 9, 2) = (/&
+ & 1.5554E-05_JPRB,2.7129E-04_JPRB,4.2902E-04_JPRB,5.5622E-04_JPRB,6.6296E-04_JPRB,7.5220E-04_JPRB,&
+ & 8.1926E-04_JPRB,8.2534E-04_JPRB,7.1317E-04_JPRB,1.1567E-03_JPRB/)  
+KAO( :, 1,10, 2) = (/&
+ & 3.1057E-06_JPRB,1.1083E-04_JPRB,1.9379E-04_JPRB,2.6511E-04_JPRB,3.2793E-04_JPRB,3.8622E-04_JPRB,&
+ & 4.3071E-04_JPRB,4.4441E-04_JPRB,4.5952E-04_JPRB,8.8174E-04_JPRB/)  
+KAO( :, 2,10, 2) = (/&
+ & 3.7991E-06_JPRB,1.2283E-04_JPRB,2.1113E-04_JPRB,2.8821E-04_JPRB,3.5348E-04_JPRB,4.1112E-04_JPRB,&
+ & 4.6174E-04_JPRB,4.7717E-04_JPRB,4.8657E-04_JPRB,9.8685E-04_JPRB/)  
+KAO( :, 3,10, 2) = (/&
+ & 5.1499E-06_JPRB,1.4143E-04_JPRB,2.3734E-04_JPRB,3.2100E-04_JPRB,3.9236E-04_JPRB,4.5145E-04_JPRB,&
+ & 5.0315E-04_JPRB,5.0792E-04_JPRB,4.9406E-04_JPRB,1.1242E-03_JPRB/)  
+KAO( :, 4,10, 2) = (/&
+ & 7.4528E-06_JPRB,1.6827E-04_JPRB,2.7574E-04_JPRB,3.6613E-04_JPRB,4.4442E-04_JPRB,5.0912E-04_JPRB,&
+ & 5.6026E-04_JPRB,5.7140E-04_JPRB,5.5681E-04_JPRB,1.2935E-03_JPRB/)  
+KAO( :, 5,10, 2) = (/&
+ & 1.1134E-05_JPRB,2.0532E-04_JPRB,3.2832E-04_JPRB,4.2825E-04_JPRB,5.1275E-04_JPRB,5.8331E-04_JPRB,&
+ & 6.3709E-04_JPRB,6.4447E-04_JPRB,5.7554E-04_JPRB,1.4892E-03_JPRB/)  
+KAO( :, 1,11, 2) = (/&
+ & 2.5793E-06_JPRB,9.1386E-05_JPRB,1.5991E-04_JPRB,2.1914E-04_JPRB,2.7076E-04_JPRB,3.1821E-04_JPRB,&
+ & 3.5500E-04_JPRB,3.6871E-04_JPRB,3.7899E-04_JPRB,8.3339E-04_JPRB/)  
+KAO( :, 2,11, 2) = (/&
+ & 3.1932E-06_JPRB,1.0152E-04_JPRB,1.7439E-04_JPRB,2.3840E-04_JPRB,2.9253E-04_JPRB,3.3975E-04_JPRB,&
+ & 3.8122E-04_JPRB,3.9384E-04_JPRB,4.0567E-04_JPRB,9.5074E-04_JPRB/)  
+KAO( :, 3,11, 2) = (/&
+ & 4.3709E-06_JPRB,1.1728E-04_JPRB,1.9656E-04_JPRB,2.6595E-04_JPRB,3.2495E-04_JPRB,3.7366E-04_JPRB,&
+ & 4.1570E-04_JPRB,4.1965E-04_JPRB,4.1122E-04_JPRB,1.0992E-03_JPRB/)  
+KAO( :, 4,11, 2) = (/&
+ & 6.3954E-06_JPRB,1.4000E-04_JPRB,2.2922E-04_JPRB,3.0419E-04_JPRB,3.6879E-04_JPRB,4.2168E-04_JPRB,&
+ & 4.6345E-04_JPRB,4.7319E-04_JPRB,4.5954E-04_JPRB,1.2804E-03_JPRB/)  
+KAO( :, 5,11, 2) = (/&
+ & 9.6174E-06_JPRB,1.7120E-04_JPRB,2.7357E-04_JPRB,3.5711E-04_JPRB,4.2654E-04_JPRB,4.8415E-04_JPRB,&
+ & 5.2775E-04_JPRB,5.3321E-04_JPRB,4.7537E-04_JPRB,1.4946E-03_JPRB/)  
+KAO( :, 1,12, 2) = (/&
+ & 2.1449E-06_JPRB,7.5185E-05_JPRB,1.3159E-04_JPRB,1.8068E-04_JPRB,2.2335E-04_JPRB,2.6198E-04_JPRB,&
+ & 2.9235E-04_JPRB,3.0350E-04_JPRB,3.1256E-04_JPRB,7.2986E-04_JPRB/)  
+KAO( :, 2,12, 2) = (/&
+ & 2.6849E-06_JPRB,8.3739E-05_JPRB,1.4370E-04_JPRB,1.9666E-04_JPRB,2.4153E-04_JPRB,2.8046E-04_JPRB,&
+ & 3.1445E-04_JPRB,3.2440E-04_JPRB,3.3814E-04_JPRB,8.3896E-04_JPRB/)  
+KAO( :, 3,12, 2) = (/&
+ & 3.7120E-06_JPRB,9.7072E-05_JPRB,1.6242E-04_JPRB,2.1974E-04_JPRB,2.6866E-04_JPRB,3.0880E-04_JPRB,&
+ & 3.4296E-04_JPRB,3.4655E-04_JPRB,3.4183E-04_JPRB,9.7914E-04_JPRB/)  
+KAO( :, 4,12, 2) = (/&
+ & 5.4750E-06_JPRB,1.1621E-04_JPRB,1.9012E-04_JPRB,2.5210E-04_JPRB,3.0547E-04_JPRB,3.4901E-04_JPRB,&
+ & 3.8299E-04_JPRB,3.9098E-04_JPRB,3.8045E-04_JPRB,1.1499E-03_JPRB/)  
+KAO( :, 5,12, 2) = (/&
+ & 8.2703E-06_JPRB,1.4241E-04_JPRB,2.2731E-04_JPRB,2.9701E-04_JPRB,3.5442E-04_JPRB,4.0147E-04_JPRB,&
+ & 4.3679E-04_JPRB,4.4039E-04_JPRB,3.9154E-04_JPRB,1.3496E-03_JPRB/)  
+KAO( :, 1,13, 2) = (/&
+ & 1.7830E-06_JPRB,6.1545E-05_JPRB,1.0776E-04_JPRB,1.4816E-04_JPRB,1.8346E-04_JPRB,2.1518E-04_JPRB,&
+ & 2.4003E-04_JPRB,2.4920E-04_JPRB,2.5855E-04_JPRB,6.0483E-04_JPRB/)  
+KAO( :, 2,13, 2) = (/&
+ & 2.2523E-06_JPRB,6.8708E-05_JPRB,1.1787E-04_JPRB,1.6139E-04_JPRB,1.9846E-04_JPRB,2.3065E-04_JPRB,&
+ & 2.5831E-04_JPRB,2.6663E-04_JPRB,2.8115E-04_JPRB,6.9533E-04_JPRB/)  
+KAO( :, 3,13, 2) = (/&
+ & 3.1394E-06_JPRB,7.9894E-05_JPRB,1.3357E-04_JPRB,1.8071E-04_JPRB,2.2106E-04_JPRB,2.5423E-04_JPRB,&
+ & 2.8211E-04_JPRB,2.8541E-04_JPRB,2.8437E-04_JPRB,8.1181E-04_JPRB/)  
+KAO( :, 4,13, 2) = (/&
+ & 4.6431E-06_JPRB,9.5872E-05_JPRB,1.5677E-04_JPRB,2.0791E-04_JPRB,2.5190E-04_JPRB,2.8785E-04_JPRB,&
+ & 3.1567E-04_JPRB,3.2214E-04_JPRB,3.1077E-04_JPRB,9.5374E-04_JPRB/)  
+KAO( :, 5,13, 2) = (/&
+ & 7.0293E-06_JPRB,1.1782E-04_JPRB,1.8782E-04_JPRB,2.4556E-04_JPRB,2.9310E-04_JPRB,3.3172E-04_JPRB,&
+ & 3.6069E-04_JPRB,3.6276E-04_JPRB,3.2321E-04_JPRB,1.1190E-03_JPRB/)  
+KAO( :, 1, 1, 3) = (/&
+ & 3.1395E-04_JPRB,2.3358E-03_JPRB,3.6695E-03_JPRB,4.7583E-03_JPRB,5.6300E-03_JPRB,6.3084E-03_JPRB,&
+ & 6.4459E-03_JPRB,5.6476E-03_JPRB,4.3114E-03_JPRB,3.5359E-03_JPRB/)  
+KAO( :, 2, 1, 3) = (/&
+ & 4.4041E-04_JPRB,2.8550E-03_JPRB,4.4288E-03_JPRB,5.7337E-03_JPRB,6.7703E-03_JPRB,7.4874E-03_JPRB,&
+ & 7.5852E-03_JPRB,6.6048E-03_JPRB,4.4609E-03_JPRB,3.7307E-03_JPRB/)  
+KAO( :, 3, 1, 3) = (/&
+ & 6.0889E-04_JPRB,3.4990E-03_JPRB,5.3318E-03_JPRB,6.8783E-03_JPRB,8.0899E-03_JPRB,8.8562E-03_JPRB,&
+ & 8.8659E-03_JPRB,7.6998E-03_JPRB,5.0834E-03_JPRB,4.1606E-03_JPRB/)  
+KAO( :, 4, 1, 3) = (/&
+ & 8.2945E-04_JPRB,4.2967E-03_JPRB,6.4106E-03_JPRB,8.2013E-03_JPRB,9.6038E-03_JPRB,1.0382E-02_JPRB,&
+ & 1.0298E-02_JPRB,8.9419E-03_JPRB,6.1506E-03_JPRB,4.8030E-03_JPRB/)  
+KAO( :, 5, 1, 3) = (/&
+ & 1.1111E-03_JPRB,5.2640E-03_JPRB,7.6785E-03_JPRB,9.7243E-03_JPRB,1.1313E-02_JPRB,1.2073E-02_JPRB,&
+ & 1.1918E-02_JPRB,1.0340E-02_JPRB,7.2231E-03_JPRB,5.5559E-03_JPRB/)  
+KAO( :, 1, 2, 3) = (/&
+ & 2.5786E-04_JPRB,1.8689E-03_JPRB,2.9171E-03_JPRB,3.7655E-03_JPRB,4.4557E-03_JPRB,4.9851E-03_JPRB,&
+ & 5.0877E-03_JPRB,4.4987E-03_JPRB,3.5624E-03_JPRB,2.7823E-03_JPRB/)  
+KAO( :, 2, 2, 3) = (/&
+ & 3.6518E-04_JPRB,2.2982E-03_JPRB,3.5229E-03_JPRB,4.5348E-03_JPRB,5.3627E-03_JPRB,5.9413E-03_JPRB,&
+ & 6.0131E-03_JPRB,5.2796E-03_JPRB,3.6528E-03_JPRB,2.9862E-03_JPRB/)  
+KAO( :, 3, 2, 3) = (/&
+ & 5.0963E-04_JPRB,2.8326E-03_JPRB,4.2490E-03_JPRB,5.4478E-03_JPRB,6.4291E-03_JPRB,7.0522E-03_JPRB,&
+ & 7.0637E-03_JPRB,6.1794E-03_JPRB,4.0832E-03_JPRB,3.3326E-03_JPRB/)  
+KAO( :, 4, 2, 3) = (/&
+ & 7.0041E-04_JPRB,3.4946E-03_JPRB,5.1315E-03_JPRB,6.5181E-03_JPRB,7.6574E-03_JPRB,8.3039E-03_JPRB,&
+ & 8.2501E-03_JPRB,7.2013E-03_JPRB,4.9579E-03_JPRB,3.8182E-03_JPRB/)  
+KAO( :, 5, 2, 3) = (/&
+ & 9.4509E-04_JPRB,4.3042E-03_JPRB,6.1780E-03_JPRB,7.7645E-03_JPRB,9.0552E-03_JPRB,9.6970E-03_JPRB,&
+ & 9.5937E-03_JPRB,8.3644E-03_JPRB,5.8475E-03_JPRB,4.3744E-03_JPRB/)  
+KAO( :, 1, 3, 3) = (/&
+ & 1.9379E-04_JPRB,1.4316E-03_JPRB,2.2324E-03_JPRB,2.8735E-03_JPRB,3.3970E-03_JPRB,3.8041E-03_JPRB,&
+ & 3.8802E-03_JPRB,3.4669E-03_JPRB,2.9119E-03_JPRB,2.1744E-03_JPRB/)  
+KAO( :, 2, 3, 3) = (/&
+ & 2.7770E-04_JPRB,1.7674E-03_JPRB,2.7001E-03_JPRB,3.4577E-03_JPRB,4.0882E-03_JPRB,4.5451E-03_JPRB,&
+ & 4.6130E-03_JPRB,4.0692E-03_JPRB,2.9379E-03_JPRB,2.3588E-03_JPRB/)  
+KAO( :, 3, 3, 3) = (/&
+ & 3.9251E-04_JPRB,2.1938E-03_JPRB,3.2645E-03_JPRB,4.1604E-03_JPRB,4.9099E-03_JPRB,5.4125E-03_JPRB,&
+ & 5.4492E-03_JPRB,4.7846E-03_JPRB,3.2003E-03_JPRB,2.6346E-03_JPRB/)  
+KAO( :, 4, 3, 3) = (/&
+ & 5.4605E-04_JPRB,2.7278E-03_JPRB,3.9609E-03_JPRB,4.9977E-03_JPRB,5.8740E-03_JPRB,6.4067E-03_JPRB,&
+ & 6.4003E-03_JPRB,5.6054E-03_JPRB,3.7732E-03_JPRB,2.9860E-03_JPRB/)  
+KAO( :, 5, 3, 3) = (/&
+ & 7.4466E-04_JPRB,3.3848E-03_JPRB,4.8045E-03_JPRB,5.9823E-03_JPRB,6.9787E-03_JPRB,7.5209E-03_JPRB,&
+ & 7.4708E-03_JPRB,6.5433E-03_JPRB,4.5620E-03_JPRB,3.3966E-03_JPRB/)  
+KAO( :, 1, 4, 3) = (/&
+ & 1.4015E-04_JPRB,1.0813E-03_JPRB,1.6854E-03_JPRB,2.1729E-03_JPRB,2.5709E-03_JPRB,2.8772E-03_JPRB,&
+ & 2.9317E-03_JPRB,2.6451E-03_JPRB,2.2657E-03_JPRB,1.7383E-03_JPRB/)  
+KAO( :, 2, 4, 3) = (/&
+ & 2.0311E-04_JPRB,1.3407E-03_JPRB,2.0417E-03_JPRB,2.6162E-03_JPRB,3.0900E-03_JPRB,3.4371E-03_JPRB,&
+ & 3.4970E-03_JPRB,3.1030E-03_JPRB,2.4331E-03_JPRB,1.8807E-03_JPRB/)  
+KAO( :, 3, 4, 3) = (/&
+ & 2.9086E-04_JPRB,1.6740E-03_JPRB,2.4810E-03_JPRB,3.1478E-03_JPRB,3.7091E-03_JPRB,4.1012E-03_JPRB,&
+ & 4.1503E-03_JPRB,3.6669E-03_JPRB,2.5193E-03_JPRB,2.0853E-03_JPRB/)  
+KAO( :, 4, 4, 3) = (/&
+ & 4.1019E-04_JPRB,2.0975E-03_JPRB,3.0276E-03_JPRB,3.7932E-03_JPRB,4.4503E-03_JPRB,4.8736E-03_JPRB,&
+ & 4.8948E-03_JPRB,4.3129E-03_JPRB,2.8422E-03_JPRB,2.3481E-03_JPRB/)  
+KAO( :, 5, 4, 3) = (/&
+ & 5.6658E-04_JPRB,2.6213E-03_JPRB,3.6972E-03_JPRB,4.5663E-03_JPRB,5.3124E-03_JPRB,5.7564E-03_JPRB,&
+ & 5.7449E-03_JPRB,5.0602E-03_JPRB,3.4831E-03_JPRB,2.6607E-03_JPRB/)  
+KAO( :, 1, 5, 3) = (/&
+ & 1.0005E-04_JPRB,8.1751E-04_JPRB,1.2728E-03_JPRB,1.6409E-03_JPRB,1.9492E-03_JPRB,2.1828E-03_JPRB,&
+ & 2.2210E-03_JPRB,2.0236E-03_JPRB,1.7728E-03_JPRB,1.4477E-03_JPRB/)  
+KAO( :, 2, 5, 3) = (/&
+ & 1.4628E-04_JPRB,1.0154E-03_JPRB,1.5439E-03_JPRB,1.9778E-03_JPRB,2.3404E-03_JPRB,2.6065E-03_JPRB,&
+ & 2.6499E-03_JPRB,2.3648E-03_JPRB,1.9853E-03_JPRB,1.5598E-03_JPRB/)  
+KAO( :, 3, 5, 3) = (/&
+ & 2.1213E-04_JPRB,1.2737E-03_JPRB,1.8830E-03_JPRB,2.3878E-03_JPRB,2.8089E-03_JPRB,3.1116E-03_JPRB,&
+ & 3.1584E-03_JPRB,2.8055E-03_JPRB,1.9979E-03_JPRB,1.7165E-03_JPRB/)  
+KAO( :, 4, 5, 3) = (/&
+ & 3.0316E-04_JPRB,1.6037E-03_JPRB,2.3102E-03_JPRB,2.8890E-03_JPRB,3.3732E-03_JPRB,3.7052E-03_JPRB,&
+ & 3.7386E-03_JPRB,3.3128E-03_JPRB,2.1889E-03_JPRB,1.9135E-03_JPRB/)  
+KAO( :, 5, 5, 3) = (/&
+ & 4.2437E-04_JPRB,2.0170E-03_JPRB,2.8415E-03_JPRB,3.4970E-03_JPRB,4.0448E-03_JPRB,4.3946E-03_JPRB,&
+ & 4.4054E-03_JPRB,3.8956E-03_JPRB,2.6089E-03_JPRB,2.1456E-03_JPRB/)  
+KAO( :, 1, 6, 3) = (/&
+ & 6.9848E-05_JPRB,6.1344E-04_JPRB,9.5427E-04_JPRB,1.2333E-03_JPRB,1.4696E-03_JPRB,1.6459E-03_JPRB,&
+ & 1.6778E-03_JPRB,1.5491E-03_JPRB,1.4340E-03_JPRB,1.2155E-03_JPRB/)  
+KAO( :, 2, 6, 3) = (/&
+ & 1.0287E-04_JPRB,7.6231E-04_JPRB,1.1596E-03_JPRB,1.4875E-03_JPRB,1.7602E-03_JPRB,1.9644E-03_JPRB,&
+ & 1.9987E-03_JPRB,1.8015E-03_JPRB,1.5475E-03_JPRB,1.3106E-03_JPRB/)  
+KAO( :, 3, 6, 3) = (/&
+ & 1.5064E-04_JPRB,9.5897E-04_JPRB,1.4184E-03_JPRB,1.7997E-03_JPRB,2.1174E-03_JPRB,2.3481E-03_JPRB,&
+ & 2.3855E-03_JPRB,2.1239E-03_JPRB,1.6664E-03_JPRB,1.4397E-03_JPRB/)  
+KAO( :, 4, 6, 3) = (/&
+ & 2.1812E-04_JPRB,1.2102E-03_JPRB,1.7485E-03_JPRB,2.1875E-03_JPRB,2.5486E-03_JPRB,2.8028E-03_JPRB,&
+ & 2.8356E-03_JPRB,2.5206E-03_JPRB,1.7195E-03_JPRB,1.5934E-03_JPRB/)  
+KAO( :, 5, 6, 3) = (/&
+ & 3.0969E-04_JPRB,1.5273E-03_JPRB,2.1634E-03_JPRB,2.6620E-03_JPRB,3.0695E-03_JPRB,3.3380E-03_JPRB,&
+ & 3.3515E-03_JPRB,2.9746E-03_JPRB,1.9515E-03_JPRB,1.7778E-03_JPRB/)  
+KAO( :, 1, 7, 3) = (/&
+ & 4.8221E-05_JPRB,4.6010E-04_JPRB,7.1481E-04_JPRB,9.2859E-04_JPRB,1.1100E-03_JPRB,1.2408E-03_JPRB,&
+ & 1.2683E-03_JPRB,1.1941E-03_JPRB,1.1654E-03_JPRB,1.0618E-03_JPRB/)  
+KAO( :, 2, 7, 3) = (/&
+ & 7.1316E-05_JPRB,5.6993E-04_JPRB,8.6994E-04_JPRB,1.1165E-03_JPRB,1.3220E-03_JPRB,1.4781E-03_JPRB,&
+ & 1.5050E-03_JPRB,1.3757E-03_JPRB,1.2140E-03_JPRB,1.1427E-03_JPRB/)  
+KAO( :, 3, 7, 3) = (/&
+ & 1.0540E-04_JPRB,7.1740E-04_JPRB,1.0671E-03_JPRB,1.3546E-03_JPRB,1.5921E-03_JPRB,1.7675E-03_JPRB,&
+ & 1.7993E-03_JPRB,1.6085E-03_JPRB,1.3409E-03_JPRB,1.2460E-03_JPRB/)  
+KAO( :, 4, 7, 3) = (/&
+ & 1.5421E-04_JPRB,9.0675E-04_JPRB,1.3194E-03_JPRB,1.6531E-03_JPRB,1.9239E-03_JPRB,2.1163E-03_JPRB,&
+ & 2.1446E-03_JPRB,1.9118E-03_JPRB,1.3549E-03_JPRB,1.3702E-03_JPRB/)  
+KAO( :, 5, 7, 3) = (/&
+ & 2.2207E-04_JPRB,1.1485E-03_JPRB,1.6379E-03_JPRB,2.0236E-03_JPRB,2.3292E-03_JPRB,2.5319E-03_JPRB,&
+ & 2.5452E-03_JPRB,2.2618E-03_JPRB,1.4884E-03_JPRB,1.5202E-03_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART2',1,ZHOOK_HANDLE)
+END SUBROUTINE PART2
+
+
+SUBROUTINE PART3
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART3',0,ZHOOK_HANDLE)
+
+
+KAO( :, 1, 8, 3) = (/&
+ & 3.3024E-05_JPRB,3.4530E-04_JPRB,5.3688E-04_JPRB,7.0115E-04_JPRB,8.4229E-04_JPRB,9.3889E-04_JPRB,&
+ & 9.6725E-04_JPRB,9.1694E-04_JPRB,9.1670E-04_JPRB,1.0135E-03_JPRB/)  
+KAO( :, 2, 8, 3) = (/&
+ & 4.8867E-05_JPRB,4.2560E-04_JPRB,6.5145E-04_JPRB,8.3778E-04_JPRB,9.9544E-04_JPRB,1.1134E-03_JPRB,&
+ & 1.1345E-03_JPRB,1.0538E-03_JPRB,9.7113E-04_JPRB,1.0857E-03_JPRB/)  
+KAO( :, 3, 8, 3) = (/&
+ & 7.2825E-05_JPRB,5.3471E-04_JPRB,8.0022E-04_JPRB,1.0181E-03_JPRB,1.1967E-03_JPRB,1.3302E-03_JPRB,&
+ & 1.3547E-03_JPRB,1.2266E-03_JPRB,1.0446E-03_JPRB,1.1774E-03_JPRB/)  
+KAO( :, 4, 8, 3) = (/&
+ & 1.0774E-04_JPRB,6.7652E-04_JPRB,9.9081E-04_JPRB,1.2458E-03_JPRB,1.4508E-03_JPRB,1.5976E-03_JPRB,&
+ & 1.6199E-03_JPRB,1.4510E-03_JPRB,1.1389E-03_JPRB,1.2913E-03_JPRB/)  
+KAO( :, 5, 8, 3) = (/&
+ & 1.5712E-04_JPRB,8.5893E-04_JPRB,1.2330E-03_JPRB,1.5318E-03_JPRB,1.7648E-03_JPRB,1.9188E-03_JPRB,&
+ & 1.9298E-03_JPRB,1.7197E-03_JPRB,1.1585E-03_JPRB,1.4301E-03_JPRB/)  
+KAO( :, 1, 9, 3) = (/&
+ & 2.2694E-05_JPRB,2.5964E-04_JPRB,4.0587E-04_JPRB,5.3244E-04_JPRB,6.4307E-04_JPRB,7.1486E-04_JPRB,&
+ & 7.4240E-04_JPRB,7.1164E-04_JPRB,7.2273E-04_JPRB,1.2493E-03_JPRB/)  
+KAO( :, 2, 9, 3) = (/&
+ & 3.3403E-05_JPRB,3.1851E-04_JPRB,4.8826E-04_JPRB,6.2982E-04_JPRB,7.5282E-04_JPRB,8.4067E-04_JPRB,&
+ & 8.5777E-04_JPRB,8.1055E-04_JPRB,7.8048E-04_JPRB,1.3812E-03_JPRB/)  
+KAO( :, 3, 9, 3) = (/&
+ & 5.0028E-05_JPRB,3.9826E-04_JPRB,5.9931E-04_JPRB,7.6424E-04_JPRB,9.0031E-04_JPRB,1.0018E-03_JPRB,&
+ & 1.0201E-03_JPRB,9.3771E-04_JPRB,8.2897E-04_JPRB,1.5248E-03_JPRB/)  
+KAO( :, 4, 9, 3) = (/&
+ & 7.4767E-05_JPRB,5.0392E-04_JPRB,7.4141E-04_JPRB,9.3676E-04_JPRB,1.0930E-03_JPRB,1.2050E-03_JPRB,&
+ & 1.2228E-03_JPRB,1.0983E-03_JPRB,9.0134E-04_JPRB,1.6871E-03_JPRB/)  
+KAO( :, 5, 9, 3) = (/&
+ & 1.1035E-04_JPRB,6.4097E-04_JPRB,9.2434E-04_JPRB,1.1532E-03_JPRB,1.3334E-03_JPRB,1.4526E-03_JPRB,&
+ & 1.4614E-03_JPRB,1.3054E-03_JPRB,9.1810E-04_JPRB,1.8727E-03_JPRB/)  
+KAO( :, 1,10, 3) = (/&
+ & 1.6131E-05_JPRB,1.9889E-04_JPRB,3.1275E-04_JPRB,4.1228E-04_JPRB,4.9839E-04_JPRB,5.5623E-04_JPRB,&
+ & 5.8253E-04_JPRB,5.6343E-04_JPRB,5.6050E-04_JPRB,1.5889E-03_JPRB/)  
+KAO( :, 2,10, 3) = (/&
+ & 2.3548E-05_JPRB,2.4279E-04_JPRB,3.7289E-04_JPRB,4.8222E-04_JPRB,5.7912E-04_JPRB,6.4486E-04_JPRB,&
+ & 6.6265E-04_JPRB,6.3391E-04_JPRB,6.2287E-04_JPRB,1.8970E-03_JPRB/)  
+KAO( :, 3,10, 3) = (/&
+ & 3.5345E-05_JPRB,3.0213E-04_JPRB,4.5662E-04_JPRB,5.8302E-04_JPRB,6.8872E-04_JPRB,7.6652E-04_JPRB,&
+ & 7.8037E-04_JPRB,7.2531E-04_JPRB,6.6020E-04_JPRB,2.2611E-03_JPRB/)  
+KAO( :, 4,10, 3) = (/&
+ & 5.3207E-05_JPRB,3.8181E-04_JPRB,5.6403E-04_JPRB,7.1428E-04_JPRB,8.3596E-04_JPRB,9.2165E-04_JPRB,&
+ & 9.3562E-04_JPRB,8.4502E-04_JPRB,7.1249E-04_JPRB,2.6676E-03_JPRB/)  
+KAO( :, 5,10, 3) = (/&
+ & 7.9349E-05_JPRB,4.8668E-04_JPRB,7.0365E-04_JPRB,8.7954E-04_JPRB,1.0204E-03_JPRB,1.1145E-03_JPRB,&
+ & 1.1232E-03_JPRB,1.0045E-03_JPRB,7.7476E-04_JPRB,3.1110E-03_JPRB/)  
+KAO( :, 1,11, 3) = (/&
+ & 1.3601E-05_JPRB,1.6644E-04_JPRB,2.6059E-04_JPRB,3.4190E-04_JPRB,4.1323E-04_JPRB,4.6098E-04_JPRB,&
+ & 4.8236E-04_JPRB,4.6602E-04_JPRB,4.6408E-04_JPRB,1.7060E-03_JPRB/)  
+KAO( :, 2,11, 3) = (/&
+ & 2.0015E-05_JPRB,2.0390E-04_JPRB,3.1274E-04_JPRB,4.0248E-04_JPRB,4.8157E-04_JPRB,5.3553E-04_JPRB,&
+ & 5.5000E-04_JPRB,5.2592E-04_JPRB,5.1327E-04_JPRB,2.0930E-03_JPRB/)  
+KAO( :, 3,11, 3) = (/&
+ & 3.0229E-05_JPRB,2.5493E-04_JPRB,3.8325E-04_JPRB,4.8838E-04_JPRB,5.7590E-04_JPRB,6.3868E-04_JPRB,&
+ & 6.4952E-04_JPRB,6.0329E-04_JPRB,5.4354E-04_JPRB,2.5341E-03_JPRB/)  
+KAO( :, 4,11, 3) = (/&
+ & 4.5728E-05_JPRB,3.2357E-04_JPRB,4.7513E-04_JPRB,5.9900E-04_JPRB,7.0032E-04_JPRB,7.7052E-04_JPRB,&
+ & 7.8160E-04_JPRB,7.0364E-04_JPRB,5.8867E-04_JPRB,3.0110E-03_JPRB/)  
+KAO( :, 5,11, 3) = (/&
+ & 6.8471E-05_JPRB,4.1453E-04_JPRB,5.9518E-04_JPRB,7.3943E-04_JPRB,8.5586E-04_JPRB,9.3243E-04_JPRB,&
+ & 9.3985E-04_JPRB,8.3888E-04_JPRB,6.4004E-04_JPRB,3.5144E-03_JPRB/)  
+KAO( :, 1,12, 3) = (/&
+ & 1.1390E-05_JPRB,1.3855E-04_JPRB,2.1705E-04_JPRB,2.8356E-04_JPRB,3.4198E-04_JPRB,3.8125E-04_JPRB,&
+ & 3.9897E-04_JPRB,3.8701E-04_JPRB,3.8428E-04_JPRB,1.6202E-03_JPRB/)  
+KAO( :, 2,12, 3) = (/&
+ & 1.6895E-05_JPRB,1.7033E-04_JPRB,2.6132E-04_JPRB,3.3574E-04_JPRB,4.0033E-04_JPRB,4.4440E-04_JPRB,&
+ & 4.5547E-04_JPRB,4.3453E-04_JPRB,4.1795E-04_JPRB,2.0056E-03_JPRB/)  
+KAO( :, 3,12, 3) = (/&
+ & 2.5697E-05_JPRB,2.1399E-04_JPRB,3.2079E-04_JPRB,4.0794E-04_JPRB,4.8080E-04_JPRB,5.3172E-04_JPRB,&
+ & 5.4015E-04_JPRB,5.0131E-04_JPRB,4.5062E-04_JPRB,2.4356E-03_JPRB/)  
+KAO( :, 4,12, 3) = (/&
+ & 3.9098E-05_JPRB,2.7301E-04_JPRB,3.9923E-04_JPRB,5.0137E-04_JPRB,5.8487E-04_JPRB,6.4185E-04_JPRB,&
+ & 6.5190E-04_JPRB,5.8598E-04_JPRB,4.9100E-04_JPRB,2.8992E-03_JPRB/)  
+KAO( :, 5,12, 3) = (/&
+ & 5.8880E-05_JPRB,3.5135E-04_JPRB,5.0233E-04_JPRB,6.2054E-04_JPRB,7.1596E-04_JPRB,7.7742E-04_JPRB,&
+ & 7.8406E-04_JPRB,7.0089E-04_JPRB,5.2975E-04_JPRB,3.3853E-03_JPRB/)  
+KAO( :, 1,13, 3) = (/&
+ & 9.3589E-06_JPRB,1.1404E-04_JPRB,1.7929E-04_JPRB,2.3424E-04_JPRB,2.8177E-04_JPRB,3.1382E-04_JPRB,&
+ & 3.2887E-04_JPRB,3.1939E-04_JPRB,3.1782E-04_JPRB,1.3712E-03_JPRB/)  
+KAO( :, 2,13, 3) = (/&
+ & 1.3997E-05_JPRB,1.4070E-04_JPRB,2.1638E-04_JPRB,2.7822E-04_JPRB,3.3131E-04_JPRB,3.6740E-04_JPRB,&
+ & 3.7618E-04_JPRB,3.5875E-04_JPRB,3.4257E-04_JPRB,1.6948E-03_JPRB/)  
+KAO( :, 3,13, 3) = (/&
+ & 2.1467E-05_JPRB,1.7760E-04_JPRB,2.6657E-04_JPRB,3.3860E-04_JPRB,3.9863E-04_JPRB,4.4020E-04_JPRB,&
+ & 4.4774E-04_JPRB,4.1503E-04_JPRB,3.7387E-04_JPRB,2.0555E-03_JPRB/)  
+KAO( :, 4,13, 3) = (/&
+ & 3.2939E-05_JPRB,2.2791E-04_JPRB,3.3320E-04_JPRB,4.1728E-04_JPRB,4.8576E-04_JPRB,5.3169E-04_JPRB,&
+ & 5.4072E-04_JPRB,4.8718E-04_JPRB,4.1358E-04_JPRB,2.4418E-03_JPRB/)  
+KAO( :, 5,13, 3) = (/&
+ & 5.0038E-05_JPRB,2.9443E-04_JPRB,4.2080E-04_JPRB,5.1807E-04_JPRB,5.9619E-04_JPRB,6.4532E-04_JPRB,&
+ & 6.5035E-04_JPRB,5.8360E-04_JPRB,4.3228E-04_JPRB,2.8426E-03_JPRB/)  
+KAO( :, 1, 1, 4) = (/&
+ & 1.3959E-03_JPRB,5.9922E-03_JPRB,8.2316E-03_JPRB,9.8059E-03_JPRB,1.0613E-02_JPRB,1.0620E-02_JPRB,&
+ & 1.0007E-02_JPRB,8.7254E-03_JPRB,5.9465E-03_JPRB,5.3438E-03_JPRB/)  
+KAO( :, 2, 1, 4) = (/&
+ & 1.8497E-03_JPRB,7.5460E-03_JPRB,1.0203E-02_JPRB,1.1955E-02_JPRB,1.2786E-02_JPRB,1.2712E-02_JPRB,&
+ & 1.1856E-02_JPRB,1.0291E-02_JPRB,7.1447E-03_JPRB,6.1713E-03_JPRB/)  
+KAO( :, 3, 1, 4) = (/&
+ & 2.4455E-03_JPRB,9.3977E-03_JPRB,1.2548E-02_JPRB,1.4434E-02_JPRB,1.5252E-02_JPRB,1.5095E-02_JPRB,&
+ & 1.3989E-02_JPRB,1.2066E-02_JPRB,8.3510E-03_JPRB,7.1167E-03_JPRB/)  
+KAO( :, 4, 1, 4) = (/&
+ & 3.2093E-03_JPRB,1.1523E-02_JPRB,1.5232E-02_JPRB,1.7235E-02_JPRB,1.8051E-02_JPRB,1.7818E-02_JPRB,&
+ & 1.6407E-02_JPRB,1.4008E-02_JPRB,9.7059E-03_JPRB,8.2637E-03_JPRB/)  
+KAO( :, 5, 1, 4) = (/&
+ & 4.1640E-03_JPRB,1.3947E-02_JPRB,1.8138E-02_JPRB,2.0353E-02_JPRB,2.1133E-02_JPRB,2.0847E-02_JPRB,&
+ & 1.9064E-02_JPRB,1.6182E-02_JPRB,1.1218E-02_JPRB,9.5219E-03_JPRB/)  
+KAO( :, 1, 2, 4) = (/&
+ & 1.1784E-03_JPRB,4.8259E-03_JPRB,6.5824E-03_JPRB,7.8076E-03_JPRB,8.3997E-03_JPRB,8.4013E-03_JPRB,&
+ & 7.9589E-03_JPRB,6.9035E-03_JPRB,4.7972E-03_JPRB,4.1536E-03_JPRB/)  
+KAO( :, 2, 2, 4) = (/&
+ & 1.5660E-03_JPRB,6.0867E-03_JPRB,8.2146E-03_JPRB,9.5892E-03_JPRB,1.0197E-02_JPRB,1.0118E-02_JPRB,&
+ & 9.4816E-03_JPRB,8.1710E-03_JPRB,5.7311E-03_JPRB,4.7856E-03_JPRB/)  
+KAO( :, 3, 2, 4) = (/&
+ & 2.0771E-03_JPRB,7.6156E-03_JPRB,1.0151E-02_JPRB,1.1655E-02_JPRB,1.2244E-02_JPRB,1.2103E-02_JPRB,&
+ & 1.1249E-02_JPRB,9.6217E-03_JPRB,6.7053E-03_JPRB,5.5268E-03_JPRB/)  
+KAO( :, 4, 2, 4) = (/&
+ & 2.7371E-03_JPRB,9.3986E-03_JPRB,1.2362E-02_JPRB,1.3996E-02_JPRB,1.4573E-02_JPRB,1.4394E-02_JPRB,&
+ & 1.3273E-02_JPRB,1.1249E-02_JPRB,7.8082E-03_JPRB,6.4145E-03_JPRB/)  
+KAO( :, 5, 2, 4) = (/&
+ & 3.5707E-03_JPRB,1.1441E-02_JPRB,1.4782E-02_JPRB,1.6569E-02_JPRB,1.7185E-02_JPRB,1.6953E-02_JPRB,&
+ & 1.5517E-02_JPRB,1.3078E-02_JPRB,9.0555E-03_JPRB,7.4094E-03_JPRB/)  
+KAO( :, 1, 3, 4) = (/&
+ & 9.3612E-04_JPRB,3.7181E-03_JPRB,5.0390E-03_JPRB,5.9502E-03_JPRB,6.3679E-03_JPRB,6.3786E-03_JPRB,&
+ & 6.0698E-03_JPRB,5.2727E-03_JPRB,3.7120E-03_JPRB,3.2201E-03_JPRB/)  
+KAO( :, 2, 3, 4) = (/&
+ & 1.2490E-03_JPRB,4.6957E-03_JPRB,6.3176E-03_JPRB,7.3745E-03_JPRB,7.7966E-03_JPRB,7.7361E-03_JPRB,&
+ & 7.2751E-03_JPRB,6.2746E-03_JPRB,4.4490E-03_JPRB,3.6844E-03_JPRB/)  
+KAO( :, 3, 3, 4) = (/&
+ & 1.6672E-03_JPRB,5.9017E-03_JPRB,7.8487E-03_JPRB,9.0223E-03_JPRB,9.4573E-03_JPRB,9.3283E-03_JPRB,&
+ & 8.6995E-03_JPRB,7.4301E-03_JPRB,5.1895E-03_JPRB,4.2405E-03_JPRB/)  
+KAO( :, 4, 3, 4) = (/&
+ & 2.2134E-03_JPRB,7.3371E-03_JPRB,9.6281E-03_JPRB,1.0911E-02_JPRB,1.1346E-02_JPRB,1.1187E-02_JPRB,&
+ & 1.0343E-02_JPRB,8.7520E-03_JPRB,6.1061E-03_JPRB,4.8883E-03_JPRB/)  
+KAO( :, 5, 3, 4) = (/&
+ & 2.9080E-03_JPRB,9.0078E-03_JPRB,1.1596E-02_JPRB,1.2990E-02_JPRB,1.3474E-02_JPRB,1.3306E-02_JPRB,&
+ & 1.2200E-02_JPRB,1.0250E-02_JPRB,7.0746E-03_JPRB,5.6394E-03_JPRB/)  
+KAO( :, 1, 4, 4) = (/&
+ & 7.2899E-04_JPRB,2.8358E-03_JPRB,3.8166E-03_JPRB,4.4649E-03_JPRB,4.7605E-03_JPRB,4.7776E-03_JPRB,&
+ & 4.5645E-03_JPRB,3.9905E-03_JPRB,2.8172E-03_JPRB,2.5259E-03_JPRB/)  
+KAO( :, 2, 4, 4) = (/&
+ & 9.7562E-04_JPRB,3.5858E-03_JPRB,4.8000E-03_JPRB,5.5643E-03_JPRB,5.8729E-03_JPRB,5.8345E-03_JPRB,&
+ & 5.5106E-03_JPRB,4.7660E-03_JPRB,3.3369E-03_JPRB,2.8747E-03_JPRB/)  
+KAO( :, 3, 4, 4) = (/&
+ & 1.3110E-03_JPRB,4.5252E-03_JPRB,5.9861E-03_JPRB,6.8654E-03_JPRB,7.1912E-03_JPRB,7.0898E-03_JPRB,&
+ & 6.6257E-03_JPRB,5.6788E-03_JPRB,3.9467E-03_JPRB,3.3017E-03_JPRB/)  
+KAO( :, 4, 4, 4) = (/&
+ & 1.7535E-03_JPRB,5.6592E-03_JPRB,7.3895E-03_JPRB,8.3600E-03_JPRB,8.7028E-03_JPRB,8.5726E-03_JPRB,&
+ & 7.9544E-03_JPRB,6.7413E-03_JPRB,4.7023E-03_JPRB,3.7920E-03_JPRB/)  
+KAO( :, 5, 4, 4) = (/&
+ & 2.3234E-03_JPRB,7.0001E-03_JPRB,8.9795E-03_JPRB,1.0033E-02_JPRB,1.0407E-02_JPRB,1.0269E-02_JPRB,&
+ & 9.4690E-03_JPRB,7.9455E-03_JPRB,5.4450E-03_JPRB,4.3729E-03_JPRB/)  
+KAO( :, 1, 5, 4) = (/&
+ & 5.6650E-04_JPRB,2.1549E-03_JPRB,2.8964E-03_JPRB,3.3619E-03_JPRB,3.5664E-03_JPRB,3.5841E-03_JPRB,&
+ & 3.4323E-03_JPRB,3.0201E-03_JPRB,2.2575E-03_JPRB,2.0547E-03_JPRB/)  
+KAO( :, 2, 5, 4) = (/&
+ & 7.5923E-04_JPRB,2.7449E-03_JPRB,3.6494E-03_JPRB,4.2010E-03_JPRB,4.4180E-03_JPRB,4.3953E-03_JPRB,&
+ & 4.1675E-03_JPRB,3.6219E-03_JPRB,2.5473E-03_JPRB,2.3046E-03_JPRB/)  
+KAO( :, 3, 5, 4) = (/&
+ & 1.0253E-03_JPRB,3.4834E-03_JPRB,4.5686E-03_JPRB,5.2069E-03_JPRB,5.4481E-03_JPRB,5.3758E-03_JPRB,&
+ & 5.0408E-03_JPRB,4.3359E-03_JPRB,3.0162E-03_JPRB,2.6195E-03_JPRB/)  
+KAO( :, 4, 5, 4) = (/&
+ & 1.3801E-03_JPRB,4.3804E-03_JPRB,5.6725E-03_JPRB,6.3841E-03_JPRB,6.6485E-03_JPRB,6.5457E-03_JPRB,&
+ & 6.0914E-03_JPRB,5.1828E-03_JPRB,3.5636E-03_JPRB,2.9971E-03_JPRB/)  
+KAO( :, 5, 5, 4) = (/&
+ & 1.8434E-03_JPRB,5.4391E-03_JPRB,6.9434E-03_JPRB,7.7307E-03_JPRB,8.0143E-03_JPRB,7.8901E-03_JPRB,&
+ & 7.3072E-03_JPRB,6.1548E-03_JPRB,4.1784E-03_JPRB,3.4508E-03_JPRB/)  
+KAO( :, 1, 6, 4) = (/&
+ & 4.3479E-04_JPRB,1.6105E-03_JPRB,2.1624E-03_JPRB,2.5048E-03_JPRB,2.6629E-03_JPRB,2.6833E-03_JPRB,&
+ & 2.5738E-03_JPRB,2.2737E-03_JPRB,1.8606E-03_JPRB,1.7234E-03_JPRB/)  
+KAO( :, 2, 6, 4) = (/&
+ & 5.8233E-04_JPRB,2.0650E-03_JPRB,2.7444E-03_JPRB,3.1464E-03_JPRB,3.3112E-03_JPRB,3.2967E-03_JPRB,&
+ & 3.1292E-03_JPRB,2.7330E-03_JPRB,1.9142E-03_JPRB,1.9183E-03_JPRB/)  
+KAO( :, 3, 6, 4) = (/&
+ & 7.8843E-04_JPRB,2.6457E-03_JPRB,3.4646E-03_JPRB,3.9221E-03_JPRB,4.0954E-03_JPRB,4.0443E-03_JPRB,&
+ & 3.8065E-03_JPRB,3.2872E-03_JPRB,2.2472E-03_JPRB,2.1603E-03_JPRB/)  
+KAO( :, 4, 6, 4) = (/&
+ & 1.0676E-03_JPRB,3.3599E-03_JPRB,4.3294E-03_JPRB,4.8406E-03_JPRB,5.0306E-03_JPRB,4.9525E-03_JPRB,&
+ & 4.6235E-03_JPRB,3.9530E-03_JPRB,2.6778E-03_JPRB,2.4636E-03_JPRB/)  
+KAO( :, 5, 6, 4) = (/&
+ & 1.4360E-03_JPRB,4.2028E-03_JPRB,5.3355E-03_JPRB,5.9075E-03_JPRB,6.1148E-03_JPRB,6.0070E-03_JPRB,&
+ & 5.5779E-03_JPRB,4.7305E-03_JPRB,3.1938E-03_JPRB,2.8201E-03_JPRB/)  
+KAO( :, 1, 7, 4) = (/&
+ & 3.3066E-04_JPRB,1.1921E-03_JPRB,1.5997E-03_JPRB,1.8508E-03_JPRB,1.9750E-03_JPRB,2.0065E-03_JPRB,&
+ & 1.9362E-03_JPRB,1.7121E-03_JPRB,1.5102E-03_JPRB,1.4755E-03_JPRB/)  
+KAO( :, 2, 7, 4) = (/&
+ & 4.4251E-04_JPRB,1.5399E-03_JPRB,2.0431E-03_JPRB,2.3386E-03_JPRB,2.4693E-03_JPRB,2.4731E-03_JPRB,&
+ & 2.3559E-03_JPRB,2.0619E-03_JPRB,1.5167E-03_JPRB,1.6278E-03_JPRB/)  
+KAO( :, 3, 7, 4) = (/&
+ & 5.9954E-04_JPRB,1.9895E-03_JPRB,2.5996E-03_JPRB,2.9389E-03_JPRB,3.0769E-03_JPRB,3.0449E-03_JPRB,&
+ & 2.8696E-03_JPRB,2.4854E-03_JPRB,1.7100E-03_JPRB,1.8261E-03_JPRB/)  
+KAO( :, 4, 7, 4) = (/&
+ & 8.1539E-04_JPRB,2.5548E-03_JPRB,3.2831E-03_JPRB,3.6604E-03_JPRB,3.8004E-03_JPRB,3.7406E-03_JPRB,&
+ & 3.5004E-03_JPRB,3.0009E-03_JPRB,2.0185E-03_JPRB,2.0723E-03_JPRB/)  
+KAO( :, 5, 7, 4) = (/&
+ & 1.1035E-03_JPRB,3.2299E-03_JPRB,4.0851E-03_JPRB,4.5054E-03_JPRB,4.6506E-03_JPRB,4.5636E-03_JPRB,&
+ & 4.2458E-03_JPRB,3.6170E-03_JPRB,2.4150E-03_JPRB,2.3689E-03_JPRB/)  
+KAO( :, 1, 8, 4) = (/&
+ & 2.4824E-04_JPRB,8.7576E-04_JPRB,1.1750E-03_JPRB,1.3620E-03_JPRB,1.4591E-03_JPRB,1.4944E-03_JPRB,&
+ & 1.4530E-03_JPRB,1.3016E-03_JPRB,1.2362E-03_JPRB,1.3815E-03_JPRB/)  
+KAO( :, 2, 8, 4) = (/&
+ & 3.3230E-04_JPRB,1.1390E-03_JPRB,1.5103E-03_JPRB,1.7306E-03_JPRB,1.8323E-03_JPRB,1.8454E-03_JPRB,&
+ & 1.7715E-03_JPRB,1.5588E-03_JPRB,1.2567E-03_JPRB,1.5241E-03_JPRB/)  
+KAO( :, 3, 8, 4) = (/&
+ & 4.5036E-04_JPRB,1.4833E-03_JPRB,1.9397E-03_JPRB,2.1911E-03_JPRB,2.2984E-03_JPRB,2.2843E-03_JPRB,&
+ & 2.1644E-03_JPRB,1.8786E-03_JPRB,1.3010E-03_JPRB,1.7047E-03_JPRB/)  
+KAO( :, 4, 8, 4) = (/&
+ & 6.1425E-04_JPRB,1.9258E-03_JPRB,2.4736E-03_JPRB,2.7526E-03_JPRB,2.8618E-03_JPRB,2.8208E-03_JPRB,&
+ & 2.6474E-03_JPRB,2.2738E-03_JPRB,1.4977E-03_JPRB,1.9231E-03_JPRB/)  
+KAO( :, 5, 8, 4) = (/&
+ & 8.3579E-04_JPRB,2.4677E-03_JPRB,3.1100E-03_JPRB,3.4209E-03_JPRB,3.5321E-03_JPRB,3.4664E-03_JPRB,&
+ & 3.2302E-03_JPRB,2.7529E-03_JPRB,1.8211E-03_JPRB,2.1802E-03_JPRB/)  
+KAO( :, 1, 9, 4) = (/&
+ & 1.8648E-04_JPRB,6.4213E-04_JPRB,8.6248E-04_JPRB,1.0018E-03_JPRB,1.0759E-03_JPRB,1.1114E-03_JPRB,&
+ & 1.0893E-03_JPRB,9.9064E-04_JPRB,9.8753E-04_JPRB,1.8775E-03_JPRB/)  
+KAO( :, 2, 9, 4) = (/&
+ & 2.4931E-04_JPRB,8.3843E-04_JPRB,1.1135E-03_JPRB,1.2777E-03_JPRB,1.3549E-03_JPRB,1.3735E-03_JPRB,&
+ & 1.3267E-03_JPRB,1.1784E-03_JPRB,1.0225E-03_JPRB,2.0725E-03_JPRB/)  
+KAO( :, 3, 9, 4) = (/&
+ & 3.3739E-04_JPRB,1.0997E-03_JPRB,1.4388E-03_JPRB,1.6275E-03_JPRB,1.7095E-03_JPRB,1.7064E-03_JPRB,&
+ & 1.6276E-03_JPRB,1.4244E-03_JPRB,1.0196E-03_JPRB,2.3196E-03_JPRB/)  
+KAO( :, 4, 9, 4) = (/&
+ & 4.6000E-04_JPRB,1.4414E-03_JPRB,1.8531E-03_JPRB,2.0634E-03_JPRB,2.1453E-03_JPRB,2.1162E-03_JPRB,&
+ & 1.9970E-03_JPRB,1.7248E-03_JPRB,1.1677E-03_JPRB,2.6078E-03_JPRB/)  
+KAO( :, 5, 9, 4) = (/&
+ & 6.2819E-04_JPRB,1.8702E-03_JPRB,2.3574E-03_JPRB,2.5903E-03_JPRB,2.6704E-03_JPRB,2.6214E-03_JPRB,&
+ & 2.4477E-03_JPRB,2.0914E-03_JPRB,1.3608E-03_JPRB,2.9294E-03_JPRB/)  
+KAO( :, 1,10, 4) = (/&
+ & 1.4307E-04_JPRB,4.7989E-04_JPRB,6.4527E-04_JPRB,7.5154E-04_JPRB,8.0960E-04_JPRB,8.4090E-04_JPRB,&
+ & 8.3086E-04_JPRB,7.6874E-04_JPRB,8.2863E-04_JPRB,3.6347E-03_JPRB/)  
+KAO( :, 2,10, 4) = (/&
+ & 1.9105E-04_JPRB,6.2858E-04_JPRB,8.3500E-04_JPRB,9.5991E-04_JPRB,1.0185E-03_JPRB,1.0393E-03_JPRB,&
+ & 1.0095E-03_JPRB,9.0118E-04_JPRB,8.3114E-04_JPRB,4.2294E-03_JPRB/)  
+KAO( :, 3,10, 4) = (/&
+ & 2.5819E-04_JPRB,8.2975E-04_JPRB,1.0848E-03_JPRB,1.2290E-03_JPRB,1.2908E-03_JPRB,1.2943E-03_JPRB,&
+ & 1.2407E-03_JPRB,1.0947E-03_JPRB,8.4507E-04_JPRB,4.7942E-03_JPRB/)  
+KAO( :, 4,10, 4) = (/&
+ & 3.5175E-04_JPRB,1.0966E-03_JPRB,1.4090E-03_JPRB,1.5695E-03_JPRB,1.6301E-03_JPRB,1.6125E-03_JPRB,&
+ & 1.5271E-03_JPRB,1.3244E-03_JPRB,8.9574E-04_JPRB,5.3326E-03_JPRB/)  
+KAO( :, 5,10, 4) = (/&
+ & 4.8140E-04_JPRB,1.4355E-03_JPRB,1.8096E-03_JPRB,1.9894E-03_JPRB,2.0475E-03_JPRB,2.0080E-03_JPRB,&
+ & 1.8768E-03_JPRB,1.6118E-03_JPRB,1.0323E-03_JPRB,5.8712E-03_JPRB/)  
+KAO( :, 1,11, 4) = (/&
+ & 1.2480E-04_JPRB,4.0651E-04_JPRB,5.4317E-04_JPRB,6.3057E-04_JPRB,6.7711E-04_JPRB,7.0124E-04_JPRB,&
+ & 6.9230E-04_JPRB,6.3637E-04_JPRB,6.7480E-04_JPRB,4.4748E-03_JPRB/)  
+KAO( :, 2,11, 4) = (/&
+ & 1.6789E-04_JPRB,5.3657E-04_JPRB,7.0675E-04_JPRB,8.0798E-04_JPRB,8.5575E-04_JPRB,8.7116E-04_JPRB,&
+ & 8.4422E-04_JPRB,7.5306E-04_JPRB,6.8219E-04_JPRB,5.2484E-03_JPRB/)  
+KAO( :, 3,11, 4) = (/&
+ & 2.2748E-04_JPRB,7.1324E-04_JPRB,9.2430E-04_JPRB,1.0391E-03_JPRB,1.0880E-03_JPRB,1.0885E-03_JPRB,&
+ & 1.0414E-03_JPRB,9.1761E-04_JPRB,6.9310E-04_JPRB,5.9997E-03_JPRB/)  
+KAO( :, 4,11, 4) = (/&
+ & 3.1100E-04_JPRB,9.4662E-04_JPRB,1.2062E-03_JPRB,1.3345E-03_JPRB,1.3806E-03_JPRB,1.3616E-03_JPRB,&
+ & 1.2842E-03_JPRB,1.1132E-03_JPRB,7.5183E-04_JPRB,6.7275E-03_JPRB/)  
+KAO( :, 5,11, 4) = (/&
+ & 4.2632E-04_JPRB,1.2375E-03_JPRB,1.5507E-03_JPRB,1.6996E-03_JPRB,1.7428E-03_JPRB,1.7046E-03_JPRB,&
+ & 1.5835E-03_JPRB,1.3580E-03_JPRB,8.6852E-04_JPRB,7.4572E-03_JPRB/)  
+KAO( :, 1,12, 4) = (/&
+ & 1.0738E-04_JPRB,3.4370E-04_JPRB,4.5561E-04_JPRB,5.2712E-04_JPRB,5.6512E-04_JPRB,5.8418E-04_JPRB,&
+ & 5.7608E-04_JPRB,5.2824E-04_JPRB,5.5584E-04_JPRB,4.5229E-03_JPRB/)  
+KAO( :, 2,12, 4) = (/&
+ & 1.4509E-04_JPRB,4.5719E-04_JPRB,5.9628E-04_JPRB,6.7809E-04_JPRB,7.1697E-04_JPRB,7.2848E-04_JPRB,&
+ & 7.0565E-04_JPRB,6.2997E-04_JPRB,5.6436E-04_JPRB,5.3156E-03_JPRB/)  
+KAO( :, 3,12, 4) = (/&
+ & 1.9783E-04_JPRB,6.1167E-04_JPRB,7.8481E-04_JPRB,8.7764E-04_JPRB,9.1476E-04_JPRB,9.1298E-04_JPRB,&
+ & 8.7252E-04_JPRB,7.6652E-04_JPRB,5.7011E-04_JPRB,6.0757E-03_JPRB/)  
+KAO( :, 4,12, 4) = (/&
+ & 2.7192E-04_JPRB,8.1173E-04_JPRB,1.0265E-03_JPRB,1.1333E-03_JPRB,1.1680E-03_JPRB,1.1490E-03_JPRB,&
+ & 1.0784E-03_JPRB,9.3361E-04_JPRB,6.2718E-04_JPRB,6.8113E-03_JPRB/)  
+KAO( :, 5,12, 4) = (/&
+ & 3.7397E-04_JPRB,1.0598E-03_JPRB,1.3197E-03_JPRB,1.4449E-03_JPRB,1.4799E-03_JPRB,1.4465E-03_JPRB,&
+ & 1.3362E-03_JPRB,1.1407E-03_JPRB,7.2415E-04_JPRB,7.5425E-03_JPRB/)  
+KAO( :, 1,13, 4) = (/&
+ & 8.9292E-05_JPRB,2.8719E-04_JPRB,3.7864E-04_JPRB,4.3694E-04_JPRB,4.6878E-04_JPRB,4.8461E-04_JPRB,&
+ & 4.7788E-04_JPRB,4.3842E-04_JPRB,4.5719E-04_JPRB,3.8416E-03_JPRB/)  
+KAO( :, 2,13, 4) = (/&
+ & 1.2149E-04_JPRB,3.8537E-04_JPRB,4.9918E-04_JPRB,5.6557E-04_JPRB,5.9698E-04_JPRB,6.0549E-04_JPRB,&
+ & 5.8708E-04_JPRB,5.2472E-04_JPRB,4.6787E-04_JPRB,4.4931E-03_JPRB/)  
+KAO( :, 3,13, 4) = (/&
+ & 1.6719E-04_JPRB,5.1756E-04_JPRB,6.6044E-04_JPRB,7.3666E-04_JPRB,7.6591E-04_JPRB,7.6260E-04_JPRB,&
+ & 7.2753E-04_JPRB,6.3867E-04_JPRB,4.6954E-04_JPRB,5.0961E-03_JPRB/)  
+KAO( :, 4,13, 4) = (/&
+ & 2.3161E-04_JPRB,6.8759E-04_JPRB,8.6435E-04_JPRB,9.5388E-04_JPRB,9.8295E-04_JPRB,9.6568E-04_JPRB,&
+ & 9.0300E-04_JPRB,7.7979E-04_JPRB,5.2227E-04_JPRB,5.6855E-03_JPRB/)  
+KAO( :, 5,13, 4) = (/&
+ & 3.2057E-04_JPRB,8.9923E-04_JPRB,1.1130E-03_JPRB,1.2171E-03_JPRB,1.2465E-03_JPRB,1.2193E-03_JPRB,&
+ & 1.1245E-03_JPRB,9.5521E-04_JPRB,6.0646E-04_JPRB,6.2875E-03_JPRB/)  
+KAO( :, 1, 1, 5) = (/&
+ & 7.8581E-03_JPRB,1.6359E-02_JPRB,1.8747E-02_JPRB,1.9104E-02_JPRB,1.8493E-02_JPRB,1.7453E-02_JPRB,&
+ & 1.6124E-02_JPRB,1.4436E-02_JPRB,9.9634E-03_JPRB,9.0266E-03_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART3',1,ZHOOK_HANDLE)
+END SUBROUTINE PART3
+
+
+SUBROUTINE PART4
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART4',0,ZHOOK_HANDLE)
+
+
+KAO( :, 2, 1, 5) = (/&
+ & 1.0248E-02_JPRB,1.9930E-02_JPRB,2.2543E-02_JPRB,2.2901E-02_JPRB,2.2187E-02_JPRB,2.0954E-02_JPRB,&
+ & 1.9379E-02_JPRB,1.7194E-02_JPRB,1.1961E-02_JPRB,1.0706E-02_JPRB/)  
+KAO( :, 3, 1, 5) = (/&
+ & 1.3096E-02_JPRB,2.3888E-02_JPRB,2.6739E-02_JPRB,2.7195E-02_JPRB,2.6433E-02_JPRB,2.4936E-02_JPRB,&
+ & 2.3046E-02_JPRB,2.0295E-02_JPRB,1.4106E-02_JPRB,1.2544E-02_JPRB/)  
+KAO( :, 4, 1, 5) = (/&
+ & 1.6338E-02_JPRB,2.8329E-02_JPRB,3.1500E-02_JPRB,3.2047E-02_JPRB,3.1151E-02_JPRB,2.9395E-02_JPRB,&
+ & 2.7258E-02_JPRB,2.3909E-02_JPRB,1.6479E-02_JPRB,1.4541E-02_JPRB/)  
+KAO( :, 5, 1, 5) = (/&
+ & 1.9905E-02_JPRB,3.3267E-02_JPRB,3.6925E-02_JPRB,3.7523E-02_JPRB,3.6460E-02_JPRB,3.4480E-02_JPRB,&
+ & 3.1939E-02_JPRB,2.7924E-02_JPRB,1.9096E-02_JPRB,1.6820E-02_JPRB/)  
+KAO( :, 1, 2, 5) = (/&
+ & 6.5000E-03_JPRB,1.3210E-02_JPRB,1.5017E-02_JPRB,1.5338E-02_JPRB,1.4894E-02_JPRB,1.4046E-02_JPRB,&
+ & 1.2886E-02_JPRB,1.1485E-02_JPRB,7.8396E-03_JPRB,6.9835E-03_JPRB/)  
+KAO( :, 2, 2, 5) = (/&
+ & 8.5060E-03_JPRB,1.6246E-02_JPRB,1.8196E-02_JPRB,1.8546E-02_JPRB,1.7999E-02_JPRB,1.6962E-02_JPRB,&
+ & 1.5570E-02_JPRB,1.3759E-02_JPRB,9.5004E-03_JPRB,8.2524E-03_JPRB/)  
+KAO( :, 3, 2, 5) = (/&
+ & 1.0895E-02_JPRB,1.9629E-02_JPRB,2.1801E-02_JPRB,2.2202E-02_JPRB,2.1571E-02_JPRB,2.0287E-02_JPRB,&
+ & 1.8619E-02_JPRB,1.6336E-02_JPRB,1.1311E-02_JPRB,9.6763E-03_JPRB/)  
+KAO( :, 4, 2, 5) = (/&
+ & 1.3634E-02_JPRB,2.3467E-02_JPRB,2.5938E-02_JPRB,2.6385E-02_JPRB,2.5626E-02_JPRB,2.4039E-02_JPRB,&
+ & 2.2108E-02_JPRB,1.9320E-02_JPRB,1.3277E-02_JPRB,1.1254E-02_JPRB/)  
+KAO( :, 5, 2, 5) = (/&
+ & 1.6643E-02_JPRB,2.7789E-02_JPRB,3.0666E-02_JPRB,3.1149E-02_JPRB,3.0178E-02_JPRB,2.8317E-02_JPRB,&
+ & 2.6023E-02_JPRB,2.2644E-02_JPRB,1.5438E-02_JPRB,1.3058E-02_JPRB/)  
+KAO( :, 1, 3, 5) = (/&
+ & 5.1068E-03_JPRB,1.0155E-02_JPRB,1.1485E-02_JPRB,1.1770E-02_JPRB,1.1484E-02_JPRB,1.0823E-02_JPRB,&
+ & 9.8623E-03_JPRB,8.7594E-03_JPRB,5.9958E-03_JPRB,5.2611E-03_JPRB/)  
+KAO( :, 2, 3, 5) = (/&
+ & 6.6835E-03_JPRB,1.2640E-02_JPRB,1.4084E-02_JPRB,1.4382E-02_JPRB,1.4023E-02_JPRB,1.3192E-02_JPRB,&
+ & 1.2012E-02_JPRB,1.0560E-02_JPRB,7.2917E-03_JPRB,6.1864E-03_JPRB/)  
+KAO( :, 3, 3, 5) = (/&
+ & 8.6033E-03_JPRB,1.5444E-02_JPRB,1.7069E-02_JPRB,1.7437E-02_JPRB,1.6940E-02_JPRB,1.5900E-02_JPRB,&
+ & 1.4464E-02_JPRB,1.2619E-02_JPRB,8.8116E-03_JPRB,7.2531E-03_JPRB/)  
+KAO( :, 4, 3, 5) = (/&
+ & 1.0832E-02_JPRB,1.8665E-02_JPRB,2.0521E-02_JPRB,2.0939E-02_JPRB,2.0314E-02_JPRB,1.9000E-02_JPRB,&
+ & 1.7289E-02_JPRB,1.5015E-02_JPRB,1.0355E-02_JPRB,8.4725E-03_JPRB/)  
+KAO( :, 5, 3, 5) = (/&
+ & 1.3328E-02_JPRB,2.2307E-02_JPRB,2.4508E-02_JPRB,2.4967E-02_JPRB,2.4135E-02_JPRB,2.2494E-02_JPRB,&
+ & 2.0482E-02_JPRB,1.7714E-02_JPRB,1.2161E-02_JPRB,9.8543E-03_JPRB/)  
+KAO( :, 1, 4, 5) = (/&
+ & 3.9695E-03_JPRB,7.6818E-03_JPRB,8.6331E-03_JPRB,8.8728E-03_JPRB,8.6847E-03_JPRB,8.1743E-03_JPRB,&
+ & 7.4171E-03_JPRB,6.5733E-03_JPRB,4.6756E-03_JPRB,4.0395E-03_JPRB/)  
+KAO( :, 2, 4, 5) = (/&
+ & 5.1871E-03_JPRB,9.6669E-03_JPRB,1.0730E-02_JPRB,1.0984E-02_JPRB,1.0727E-02_JPRB,1.0079E-02_JPRB,&
+ & 9.1130E-03_JPRB,7.9640E-03_JPRB,5.5230E-03_JPRB,4.7457E-03_JPRB/)  
+KAO( :, 3, 4, 5) = (/&
+ & 6.6872E-03_JPRB,1.1936E-02_JPRB,1.3150E-02_JPRB,1.3447E-02_JPRB,1.3090E-02_JPRB,1.2266E-02_JPRB,&
+ & 1.1082E-02_JPRB,9.5819E-03_JPRB,6.7239E-03_JPRB,5.5582E-03_JPRB/)  
+KAO( :, 4, 4, 5) = (/&
+ & 8.4686E-03_JPRB,1.4558E-02_JPRB,1.5982E-02_JPRB,1.6346E-02_JPRB,1.5841E-02_JPRB,1.4783E-02_JPRB,&
+ & 1.3331E-02_JPRB,1.1473E-02_JPRB,7.9455E-03_JPRB,6.5009E-03_JPRB/)  
+KAO( :, 5, 4, 5) = (/&
+ & 1.0530E-02_JPRB,1.7532E-02_JPRB,1.9245E-02_JPRB,1.9697E-02_JPRB,1.9021E-02_JPRB,1.7663E-02_JPRB,&
+ & 1.5910E-02_JPRB,1.3642E-02_JPRB,9.4173E-03_JPRB,7.5638E-03_JPRB/)  
+KAO( :, 1, 5, 5) = (/&
+ & 3.1180E-03_JPRB,5.8209E-03_JPRB,6.4854E-03_JPRB,6.6644E-03_JPRB,6.5380E-03_JPRB,6.1410E-03_JPRB,&
+ & 5.5609E-03_JPRB,4.9182E-03_JPRB,3.5969E-03_JPRB,3.1582E-03_JPRB/)  
+KAO( :, 2, 5, 5) = (/&
+ & 4.0549E-03_JPRB,7.3757E-03_JPRB,8.1520E-03_JPRB,8.3497E-03_JPRB,8.1550E-03_JPRB,7.6434E-03_JPRB,&
+ & 6.8934E-03_JPRB,5.9840E-03_JPRB,4.1290E-03_JPRB,3.6940E-03_JPRB/)  
+KAO( :, 3, 5, 5) = (/&
+ & 5.2180E-03_JPRB,9.1787E-03_JPRB,1.0116E-02_JPRB,1.0335E-02_JPRB,1.0048E-02_JPRB,9.4058E-03_JPRB,&
+ & 8.4592E-03_JPRB,7.2447E-03_JPRB,5.0478E-03_JPRB,4.3308E-03_JPRB/)  
+KAO( :, 4, 5, 5) = (/&
+ & 6.6347E-03_JPRB,1.1285E-02_JPRB,1.2392E-02_JPRB,1.2680E-02_JPRB,1.2274E-02_JPRB,1.1447E-02_JPRB,&
+ & 1.0271E-02_JPRB,8.7310E-03_JPRB,6.0849E-03_JPRB,5.0691E-03_JPRB/)  
+KAO( :, 5, 5, 5) = (/&
+ & 8.3131E-03_JPRB,1.3706E-02_JPRB,1.5023E-02_JPRB,1.5394E-02_JPRB,1.4880E-02_JPRB,1.3810E-02_JPRB,&
+ & 1.2359E-02_JPRB,1.0459E-02_JPRB,7.2538E-03_JPRB,5.9083E-03_JPRB/)  
+KAO( :, 1, 6, 5) = (/&
+ & 2.4113E-03_JPRB,4.4035E-03_JPRB,4.8584E-03_JPRB,4.9702E-03_JPRB,4.8652E-03_JPRB,4.5631E-03_JPRB,&
+ & 4.1282E-03_JPRB,3.6475E-03_JPRB,2.6495E-03_JPRB,2.6380E-03_JPRB/)  
+KAO( :, 2, 6, 5) = (/&
+ & 3.1417E-03_JPRB,5.6041E-03_JPRB,6.1552E-03_JPRB,6.2788E-03_JPRB,6.1209E-03_JPRB,5.7279E-03_JPRB,&
+ & 5.1621E-03_JPRB,4.4647E-03_JPRB,3.1333E-03_JPRB,3.0490E-03_JPRB/)  
+KAO( :, 3, 6, 5) = (/&
+ & 4.0523E-03_JPRB,7.0107E-03_JPRB,7.6974E-03_JPRB,7.8556E-03_JPRB,7.6249E-03_JPRB,7.1228E-03_JPRB,&
+ & 6.3982E-03_JPRB,5.4412E-03_JPRB,3.7354E-03_JPRB,3.5351E-03_JPRB/)  
+KAO( :, 4, 6, 5) = (/&
+ & 5.1735E-03_JPRB,8.6714E-03_JPRB,9.5046E-03_JPRB,9.7062E-03_JPRB,9.3937E-03_JPRB,8.7514E-03_JPRB,&
+ & 7.8427E-03_JPRB,6.5998E-03_JPRB,4.6231E-03_JPRB,4.0931E-03_JPRB/)  
+KAO( :, 5, 6, 5) = (/&
+ & 6.5266E-03_JPRB,1.0615E-02_JPRB,1.1603E-02_JPRB,1.1862E-02_JPRB,1.1470E-02_JPRB,1.0665E-02_JPRB,&
+ & 9.5307E-03_JPRB,7.9589E-03_JPRB,5.4908E-03_JPRB,4.7354E-03_JPRB/)  
+KAO( :, 1, 7, 5) = (/&
+ & 1.8313E-03_JPRB,3.2981E-03_JPRB,3.6334E-03_JPRB,3.7067E-03_JPRB,3.6201E-03_JPRB,3.3912E-03_JPRB,&
+ & 3.0679E-03_JPRB,2.7066E-03_JPRB,2.0241E-03_JPRB,2.2554E-03_JPRB/)  
+KAO( :, 2, 7, 5) = (/&
+ & 2.3976E-03_JPRB,4.2444E-03_JPRB,4.6442E-03_JPRB,4.7217E-03_JPRB,4.5915E-03_JPRB,4.2847E-03_JPRB,&
+ & 3.8546E-03_JPRB,3.3328E-03_JPRB,2.4081E-03_JPRB,2.5954E-03_JPRB/)  
+KAO( :, 3, 7, 5) = (/&
+ & 3.1184E-03_JPRB,5.3559E-03_JPRB,5.8460E-03_JPRB,5.9451E-03_JPRB,5.7583E-03_JPRB,5.3717E-03_JPRB,&
+ & 4.8180E-03_JPRB,4.0888E-03_JPRB,2.7879E-03_JPRB,3.0032E-03_JPRB/)  
+KAO( :, 4, 7, 5) = (/&
+ & 4.0216E-03_JPRB,6.6605E-03_JPRB,7.2700E-03_JPRB,7.4007E-03_JPRB,7.1549E-03_JPRB,6.6561E-03_JPRB,&
+ & 5.9599E-03_JPRB,4.9929E-03_JPRB,3.4384E-03_JPRB,3.4860E-03_JPRB/)  
+KAO( :, 5, 7, 5) = (/&
+ & 5.1206E-03_JPRB,8.2127E-03_JPRB,8.9364E-03_JPRB,9.0944E-03_JPRB,8.7960E-03_JPRB,8.1717E-03_JPRB,&
+ & 7.3059E-03_JPRB,6.0651E-03_JPRB,4.1362E-03_JPRB,4.0383E-03_JPRB/)  
+KAO( :, 1, 8, 5) = (/&
+ & 1.3678E-03_JPRB,2.4344E-03_JPRB,2.6771E-03_JPRB,2.7314E-03_JPRB,2.6764E-03_JPRB,2.5199E-03_JPRB,&
+ & 2.2892E-03_JPRB,2.0146E-03_JPRB,1.5158E-03_JPRB,2.0717E-03_JPRB/)  
+KAO( :, 2, 8, 5) = (/&
+ & 1.7986E-03_JPRB,3.1721E-03_JPRB,3.4698E-03_JPRB,3.5325E-03_JPRB,3.4383E-03_JPRB,3.2125E-03_JPRB,&
+ & 2.8853E-03_JPRB,2.4940E-03_JPRB,1.7790E-03_JPRB,2.3653E-03_JPRB/)  
+KAO( :, 3, 8, 5) = (/&
+ & 2.3644E-03_JPRB,4.0587E-03_JPRB,4.4194E-03_JPRB,4.4912E-03_JPRB,4.3505E-03_JPRB,4.0574E-03_JPRB,&
+ & 3.6294E-03_JPRB,3.0753E-03_JPRB,2.0908E-03_JPRB,2.7075E-03_JPRB/)  
+KAO( :, 4, 8, 5) = (/&
+ & 3.0885E-03_JPRB,5.1052E-03_JPRB,5.5511E-03_JPRB,5.6359E-03_JPRB,5.4460E-03_JPRB,5.0617E-03_JPRB,&
+ & 4.5202E-03_JPRB,3.7834E-03_JPRB,2.5293E-03_JPRB,3.1178E-03_JPRB/)  
+KAO( :, 5, 8, 5) = (/&
+ & 3.9843E-03_JPRB,6.3521E-03_JPRB,6.8780E-03_JPRB,6.9729E-03_JPRB,6.7374E-03_JPRB,6.2484E-03_JPRB,&
+ & 5.5746E-03_JPRB,4.6304E-03_JPRB,3.1216E-03_JPRB,3.5944E-03_JPRB/)  
+KAO( :, 1, 9, 5) = (/&
+ & 1.0180E-03_JPRB,1.7808E-03_JPRB,1.9513E-03_JPRB,1.9917E-03_JPRB,1.9571E-03_JPRB,1.8568E-03_JPRB,&
+ & 1.7034E-03_JPRB,1.5143E-03_JPRB,1.2324E-03_JPRB,2.9566E-03_JPRB/)  
+KAO( :, 2, 9, 5) = (/&
+ & 1.3409E-03_JPRB,2.3491E-03_JPRB,2.5644E-03_JPRB,2.6103E-03_JPRB,2.5515E-03_JPRB,2.3969E-03_JPRB,&
+ & 2.1596E-03_JPRB,1.8679E-03_JPRB,1.3632E-03_JPRB,3.3317E-03_JPRB/)  
+KAO( :, 3, 9, 5) = (/&
+ & 1.7770E-03_JPRB,3.0450E-03_JPRB,3.3094E-03_JPRB,3.3641E-03_JPRB,3.2693E-03_JPRB,3.0590E-03_JPRB,&
+ & 2.7358E-03_JPRB,2.3083E-03_JPRB,1.6204E-03_JPRB,3.7464E-03_JPRB/)  
+KAO( :, 4, 9, 5) = (/&
+ & 2.3520E-03_JPRB,3.8805E-03_JPRB,4.2090E-03_JPRB,4.2722E-03_JPRB,4.1362E-03_JPRB,3.8521E-03_JPRB,&
+ & 3.4256E-03_JPRB,2.8568E-03_JPRB,1.8732E-03_JPRB,4.2061E-03_JPRB/)  
+KAO( :, 5, 9, 5) = (/&
+ & 3.0729E-03_JPRB,4.8855E-03_JPRB,5.2770E-03_JPRB,5.3379E-03_JPRB,5.1589E-03_JPRB,4.7790E-03_JPRB,&
+ & 4.2478E-03_JPRB,3.5241E-03_JPRB,2.3400E-03_JPRB,4.7374E-03_JPRB/)  
+KAO( :, 1,10, 5) = (/&
+ & 7.7253E-04_JPRB,1.3219E-03_JPRB,1.4421E-03_JPRB,1.4740E-03_JPRB,1.4539E-03_JPRB,1.3876E-03_JPRB,&
+ & 1.2853E-03_JPRB,1.1567E-03_JPRB,1.0022E-03_JPRB,6.8847E-03_JPRB/)  
+KAO( :, 2,10, 5) = (/&
+ & 1.0173E-03_JPRB,1.7625E-03_JPRB,1.9200E-03_JPRB,1.9559E-03_JPRB,1.9175E-03_JPRB,1.8087E-03_JPRB,&
+ & 1.6367E-03_JPRB,1.4242E-03_JPRB,1.0394E-03_JPRB,7.5328E-03_JPRB/)  
+KAO( :, 3,10, 5) = (/&
+ & 1.3564E-03_JPRB,2.3122E-03_JPRB,2.5093E-03_JPRB,2.5497E-03_JPRB,2.4848E-03_JPRB,2.3312E-03_JPRB,&
+ & 2.0902E-03_JPRB,1.7668E-03_JPRB,1.2230E-03_JPRB,8.3126E-03_JPRB/)  
+KAO( :, 4,10, 5) = (/&
+ & 1.8134E-03_JPRB,2.9832E-03_JPRB,3.2264E-03_JPRB,3.2755E-03_JPRB,3.1788E-03_JPRB,2.9672E-03_JPRB,&
+ & 2.6373E-03_JPRB,2.1956E-03_JPRB,1.4206E-03_JPRB,9.1949E-03_JPRB/)  
+KAO( :, 5,10, 5) = (/&
+ & 2.3982E-03_JPRB,3.8024E-03_JPRB,4.0921E-03_JPRB,4.1370E-03_JPRB,4.0025E-03_JPRB,3.7132E-03_JPRB,&
+ & 3.2913E-03_JPRB,2.7187E-03_JPRB,1.7437E-03_JPRB,1.0174E-02_JPRB/)  
+KAO( :, 1,11, 5) = (/&
+ & 6.6311E-04_JPRB,1.1233E-03_JPRB,1.2219E-03_JPRB,1.2485E-03_JPRB,1.2298E-03_JPRB,1.1731E-03_JPRB,&
+ & 1.0818E-03_JPRB,9.6812E-04_JPRB,8.2277E-04_JPRB,9.1151E-03_JPRB/)  
+KAO( :, 2,11, 5) = (/&
+ & 8.7961E-04_JPRB,1.5044E-03_JPRB,1.6329E-03_JPRB,1.6631E-03_JPRB,1.6279E-03_JPRB,1.5346E-03_JPRB,&
+ & 1.3878E-03_JPRB,1.1990E-03_JPRB,8.6844E-04_JPRB,9.9636E-03_JPRB/)  
+KAO( :, 3,11, 5) = (/&
+ & 1.1836E-03_JPRB,1.9811E-03_JPRB,2.1444E-03_JPRB,2.1783E-03_JPRB,2.1211E-03_JPRB,1.9859E-03_JPRB,&
+ & 1.7780E-03_JPRB,1.4952E-03_JPRB,1.0190E-03_JPRB,1.0941E-02_JPRB/)  
+KAO( :, 4,11, 5) = (/&
+ & 1.5905E-03_JPRB,2.5713E-03_JPRB,2.7694E-03_JPRB,2.8087E-03_JPRB,2.7235E-03_JPRB,2.5357E-03_JPRB,&
+ & 2.2512E-03_JPRB,1.8676E-03_JPRB,1.1718E-03_JPRB,1.2060E-02_JPRB/)  
+KAO( :, 5,11, 5) = (/&
+ & 2.1118E-03_JPRB,3.3009E-03_JPRB,3.5298E-03_JPRB,3.5548E-03_JPRB,3.4369E-03_JPRB,3.1821E-03_JPRB,&
+ & 2.8194E-03_JPRB,2.3141E-03_JPRB,1.4442E-03_JPRB,1.3285E-02_JPRB/)  
+KAO( :, 1,12, 5) = (/&
+ & 5.6477E-04_JPRB,9.5054E-04_JPRB,1.0327E-03_JPRB,1.0546E-03_JPRB,1.0374E-03_JPRB,9.8870E-04_JPRB,&
+ & 9.0992E-04_JPRB,8.0701E-04_JPRB,6.7076E-04_JPRB,9.4607E-03_JPRB/)  
+KAO( :, 2,12, 5) = (/&
+ & 7.5728E-04_JPRB,1.2785E-03_JPRB,1.3875E-03_JPRB,1.4113E-03_JPRB,1.3782E-03_JPRB,1.2986E-03_JPRB,&
+ & 1.1731E-03_JPRB,1.0074E-03_JPRB,7.2589E-04_JPRB,1.0331E-02_JPRB/)  
+KAO( :, 3,12, 5) = (/&
+ & 1.0261E-03_JPRB,1.6921E-03_JPRB,1.8295E-03_JPRB,1.8570E-03_JPRB,1.8051E-03_JPRB,1.6888E-03_JPRB,&
+ & 1.5086E-03_JPRB,1.2626E-03_JPRB,8.4339E-04_JPRB,1.1368E-02_JPRB/)  
+KAO( :, 4,12, 5) = (/&
+ & 1.3869E-03_JPRB,2.2095E-03_JPRB,2.3736E-03_JPRB,2.4008E-03_JPRB,2.3247E-03_JPRB,2.1615E-03_JPRB,&
+ & 1.9167E-03_JPRB,1.5821E-03_JPRB,9.6809E-04_JPRB,1.2545E-02_JPRB/)  
+KAO( :, 5,12, 5) = (/&
+ & 1.8434E-03_JPRB,2.8588E-03_JPRB,3.0424E-03_JPRB,3.0524E-03_JPRB,2.9442E-03_JPRB,2.7194E-03_JPRB,&
+ & 2.4068E-03_JPRB,1.9656E-03_JPRB,1.2057E-03_JPRB,1.3846E-02_JPRB/)  
+KAO( :, 1,13, 5) = (/&
+ & 4.7278E-04_JPRB,7.9552E-04_JPRB,8.6502E-04_JPRB,8.8337E-04_JPRB,8.6881E-04_JPRB,8.2802E-04_JPRB,&
+ & 7.6164E-04_JPRB,6.7146E-04_JPRB,5.4706E-04_JPRB,7.8912E-03_JPRB/)  
+KAO( :, 2,13, 5) = (/&
+ & 6.4178E-04_JPRB,1.0759E-03_JPRB,1.1686E-03_JPRB,1.1883E-03_JPRB,1.1601E-03_JPRB,1.0935E-03_JPRB,&
+ & 9.8725E-04_JPRB,8.4294E-04_JPRB,6.0294E-04_JPRB,8.6805E-03_JPRB/)  
+KAO( :, 3,13, 5) = (/&
+ & 8.7757E-04_JPRB,1.4325E-03_JPRB,1.5486E-03_JPRB,1.5698E-03_JPRB,1.5267E-03_JPRB,1.4283E-03_JPRB,&
+ & 1.2744E-03_JPRB,1.0604E-03_JPRB,6.9497E-04_JPRB,9.6337E-03_JPRB/)  
+KAO( :, 4,13, 5) = (/&
+ & 1.1912E-03_JPRB,1.8857E-03_JPRB,2.0225E-03_JPRB,2.0388E-03_JPRB,1.9725E-03_JPRB,1.8334E-03_JPRB,&
+ & 1.6247E-03_JPRB,1.3326E-03_JPRB,8.0026E-04_JPRB,1.0694E-02_JPRB/)  
+KAO( :, 5,13, 5) = (/&
+ & 1.5846E-03_JPRB,2.4545E-03_JPRB,2.6070E-03_JPRB,2.6093E-03_JPRB,2.5111E-03_JPRB,2.3151E-03_JPRB,&
+ & 2.0441E-03_JPRB,1.6606E-03_JPRB,1.0091E-03_JPRB,1.1828E-02_JPRB/)  
+KAO( :, 1, 1, 6) = (/&
+ & 2.7778E-02_JPRB,3.3405E-02_JPRB,3.5267E-02_JPRB,3.6006E-02_JPRB,3.5898E-02_JPRB,3.4553E-02_JPRB,&
+ & 3.1100E-02_JPRB,2.5014E-02_JPRB,1.8094E-02_JPRB,1.6794E-02_JPRB/)  
+KAO( :, 2, 1, 6) = (/&
+ & 3.3366E-02_JPRB,4.0235E-02_JPRB,4.2608E-02_JPRB,4.3370E-02_JPRB,4.2914E-02_JPRB,4.1247E-02_JPRB,&
+ & 3.7064E-02_JPRB,2.9946E-02_JPRB,2.1940E-02_JPRB,2.0091E-02_JPRB/)  
+KAO( :, 3, 1, 6) = (/&
+ & 3.9476E-02_JPRB,4.7919E-02_JPRB,5.0670E-02_JPRB,5.1321E-02_JPRB,5.0664E-02_JPRB,4.8610E-02_JPRB,&
+ & 4.3793E-02_JPRB,3.5486E-02_JPRB,2.6228E-02_JPRB,2.3816E-02_JPRB/)  
+KAO( :, 4, 1, 6) = (/&
+ & 4.6165E-02_JPRB,5.6406E-02_JPRB,5.9353E-02_JPRB,6.0117E-02_JPRB,5.9468E-02_JPRB,5.6918E-02_JPRB,&
+ & 5.1329E-02_JPRB,4.1643E-02_JPRB,3.1155E-02_JPRB,2.8224E-02_JPRB/)  
+KAO( :, 5, 1, 6) = (/&
+ & 5.3590E-02_JPRB,6.5676E-02_JPRB,6.8956E-02_JPRB,6.9882E-02_JPRB,6.9299E-02_JPRB,6.6139E-02_JPRB,&
+ & 5.9733E-02_JPRB,4.8638E-02_JPRB,3.6701E-02_JPRB,3.3219E-02_JPRB/)  
+KAO( :, 1, 2, 6) = (/&
+ & 2.2559E-02_JPRB,2.7654E-02_JPRB,2.9015E-02_JPRB,2.9337E-02_JPRB,2.9078E-02_JPRB,2.7937E-02_JPRB,&
+ & 2.5189E-02_JPRB,2.0404E-02_JPRB,1.4144E-02_JPRB,1.2909E-02_JPRB/)  
+KAO( :, 2, 2, 6) = (/&
+ & 2.7361E-02_JPRB,3.3523E-02_JPRB,3.5340E-02_JPRB,3.5540E-02_JPRB,3.5037E-02_JPRB,3.3575E-02_JPRB,&
+ & 3.0234E-02_JPRB,2.4558E-02_JPRB,1.7358E-02_JPRB,1.5458E-02_JPRB/)  
+KAO( :, 3, 2, 6) = (/&
+ & 3.2702E-02_JPRB,4.0222E-02_JPRB,4.2266E-02_JPRB,4.2370E-02_JPRB,4.1690E-02_JPRB,3.9887E-02_JPRB,&
+ & 3.5945E-02_JPRB,2.9242E-02_JPRB,2.0872E-02_JPRB,1.8389E-02_JPRB/)  
+KAO( :, 4, 2, 6) = (/&
+ & 3.8698E-02_JPRB,4.7703E-02_JPRB,4.9874E-02_JPRB,5.0037E-02_JPRB,4.9234E-02_JPRB,4.7000E-02_JPRB,&
+ & 4.2355E-02_JPRB,3.4462E-02_JPRB,2.4936E-02_JPRB,2.1874E-02_JPRB/)  
+KAO( :, 5, 2, 6) = (/&
+ & 4.5406E-02_JPRB,5.5864E-02_JPRB,5.8250E-02_JPRB,5.8611E-02_JPRB,5.7701E-02_JPRB,5.4940E-02_JPRB,&
+ & 4.9541E-02_JPRB,4.0425E-02_JPRB,2.9498E-02_JPRB,2.5824E-02_JPRB/)  
+KAO( :, 1, 3, 6) = (/&
+ & 1.7492E-02_JPRB,2.1787E-02_JPRB,2.2652E-02_JPRB,2.2750E-02_JPRB,2.2453E-02_JPRB,2.1534E-02_JPRB,&
+ & 1.9495E-02_JPRB,1.5819E-02_JPRB,1.0602E-02_JPRB,9.5365E-03_JPRB/)  
+KAO( :, 2, 3, 6) = (/&
+ & 2.1519E-02_JPRB,2.6731E-02_JPRB,2.7902E-02_JPRB,2.7864E-02_JPRB,2.7355E-02_JPRB,2.6151E-02_JPRB,&
+ & 2.3624E-02_JPRB,1.9184E-02_JPRB,1.3144E-02_JPRB,1.1427E-02_JPRB/)  
+KAO( :, 3, 3, 6) = (/&
+ & 2.6104E-02_JPRB,3.2391E-02_JPRB,3.3736E-02_JPRB,3.3545E-02_JPRB,3.2846E-02_JPRB,3.1374E-02_JPRB,&
+ & 2.8297E-02_JPRB,2.2996E-02_JPRB,1.5964E-02_JPRB,1.3632E-02_JPRB/)  
+KAO( :, 4, 3, 6) = (/&
+ & 3.1327E-02_JPRB,3.8767E-02_JPRB,4.0227E-02_JPRB,3.9993E-02_JPRB,3.9114E-02_JPRB,3.7263E-02_JPRB,&
+ & 3.3562E-02_JPRB,2.7293E-02_JPRB,1.9234E-02_JPRB,1.6283E-02_JPRB/)  
+KAO( :, 5, 3, 6) = (/&
+ & 3.7182E-02_JPRB,4.5791E-02_JPRB,4.7452E-02_JPRB,4.7270E-02_JPRB,4.6211E-02_JPRB,4.3900E-02_JPRB,&
+ & 3.9502E-02_JPRB,3.2188E-02_JPRB,2.2900E-02_JPRB,1.9326E-02_JPRB/)  
+KAO( :, 1, 4, 6) = (/&
+ & 1.3291E-02_JPRB,1.6678E-02_JPRB,1.7275E-02_JPRB,1.7278E-02_JPRB,1.6993E-02_JPRB,1.6286E-02_JPRB,&
+ & 1.4822E-02_JPRB,1.1990E-02_JPRB,7.7579E-03_JPRB,7.1488E-03_JPRB/)  
+KAO( :, 2, 4, 6) = (/&
+ & 1.6630E-02_JPRB,2.0815E-02_JPRB,2.1568E-02_JPRB,2.1440E-02_JPRB,2.0973E-02_JPRB,2.0006E-02_JPRB,&
+ & 1.8126E-02_JPRB,1.4654E-02_JPRB,9.8329E-03_JPRB,8.5205E-03_JPRB/)  
+KAO( :, 3, 4, 6) = (/&
+ & 2.0444E-02_JPRB,2.5553E-02_JPRB,2.6397E-02_JPRB,2.6132E-02_JPRB,2.5471E-02_JPRB,2.4223E-02_JPRB,&
+ & 2.1910E-02_JPRB,1.7722E-02_JPRB,1.2155E-02_JPRB,1.0148E-02_JPRB/)  
+KAO( :, 4, 4, 6) = (/&
+ & 2.4887E-02_JPRB,3.0959E-02_JPRB,3.1847E-02_JPRB,3.1469E-02_JPRB,3.0641E-02_JPRB,2.9051E-02_JPRB,&
+ & 2.6190E-02_JPRB,2.1212E-02_JPRB,1.4767E-02_JPRB,1.2110E-02_JPRB/)  
+KAO( :, 5, 4, 6) = (/&
+ & 2.9912E-02_JPRB,3.7010E-02_JPRB,3.8031E-02_JPRB,3.7546E-02_JPRB,3.6509E-02_JPRB,3.4523E-02_JPRB,&
+ & 3.1009E-02_JPRB,2.5164E-02_JPRB,1.7705E-02_JPRB,1.4427E-02_JPRB/)  
+KAO( :, 1, 5, 6) = (/&
+ & 1.0066E-02_JPRB,1.2668E-02_JPRB,1.3071E-02_JPRB,1.3029E-02_JPRB,1.2765E-02_JPRB,1.2217E-02_JPRB,&
+ & 1.1148E-02_JPRB,9.0021E-03_JPRB,5.7587E-03_JPRB,5.4209E-03_JPRB/)  
+KAO( :, 2, 5, 6) = (/&
+ & 1.2757E-02_JPRB,1.6015E-02_JPRB,1.6544E-02_JPRB,1.6397E-02_JPRB,1.5990E-02_JPRB,1.5234E-02_JPRB,&
+ & 1.3789E-02_JPRB,1.1105E-02_JPRB,7.3967E-03_JPRB,6.5046E-03_JPRB/)  
+KAO( :, 3, 5, 6) = (/&
+ & 1.5901E-02_JPRB,1.9963E-02_JPRB,2.0508E-02_JPRB,2.0254E-02_JPRB,1.9682E-02_JPRB,1.8644E-02_JPRB,&
+ & 1.6821E-02_JPRB,1.3552E-02_JPRB,9.2356E-03_JPRB,7.7811E-03_JPRB/)  
+KAO( :, 4, 5, 6) = (/&
+ & 1.9596E-02_JPRB,2.4499E-02_JPRB,2.5082E-02_JPRB,2.4696E-02_JPRB,2.3936E-02_JPRB,2.2580E-02_JPRB,&
+ & 2.0269E-02_JPRB,1.6344E-02_JPRB,1.1321E-02_JPRB,9.3163E-03_JPRB/)  
+KAO( :, 5, 5, 6) = (/&
+ & 2.3830E-02_JPRB,2.9650E-02_JPRB,3.0334E-02_JPRB,2.9811E-02_JPRB,2.8792E-02_JPRB,2.7070E-02_JPRB,&
+ & 2.4166E-02_JPRB,1.9536E-02_JPRB,1.3665E-02_JPRB,1.1111E-02_JPRB/)  
+KAO( :, 1, 6, 6) = (/&
+ & 7.6087E-03_JPRB,9.4951E-03_JPRB,9.7649E-03_JPRB,9.6943E-03_JPRB,9.4691E-03_JPRB,9.0311E-03_JPRB,&
+ & 8.2249E-03_JPRB,6.6528E-03_JPRB,4.3378E-03_JPRB,4.2627E-03_JPRB/)  
+KAO( :, 2, 6, 6) = (/&
+ & 9.7029E-03_JPRB,1.2146E-02_JPRB,1.2495E-02_JPRB,1.2394E-02_JPRB,1.2047E-02_JPRB,1.1438E-02_JPRB,&
+ & 1.0329E-02_JPRB,8.2946E-03_JPRB,5.4267E-03_JPRB,5.0549E-03_JPRB/)  
+KAO( :, 3, 6, 6) = (/&
+ & 1.2241E-02_JPRB,1.5353E-02_JPRB,1.5729E-02_JPRB,1.5534E-02_JPRB,1.5039E-02_JPRB,1.4188E-02_JPRB,&
+ & 1.2727E-02_JPRB,1.0218E-02_JPRB,6.8803E-03_JPRB,6.0223E-03_JPRB/)  
+KAO( :, 4, 6, 6) = (/&
+ & 1.5222E-02_JPRB,1.9088E-02_JPRB,1.9504E-02_JPRB,1.9213E-02_JPRB,1.8550E-02_JPRB,1.7379E-02_JPRB,&
+ & 1.5483E-02_JPRB,1.2434E-02_JPRB,8.5170E-03_JPRB,7.2084E-03_JPRB/)  
+KAO( :, 5, 6, 6) = (/&
+ & 1.8677E-02_JPRB,2.3384E-02_JPRB,2.3892E-02_JPRB,2.3510E-02_JPRB,2.2581E-02_JPRB,2.1034E-02_JPRB,&
+ & 1.8630E-02_JPRB,1.4980E-02_JPRB,1.0415E-02_JPRB,8.6059E-03_JPRB/)  
+KAO( :, 1, 7, 6) = (/&
+ & 5.7827E-03_JPRB,7.1313E-03_JPRB,7.2802E-03_JPRB,7.2045E-03_JPRB,6.9954E-03_JPRB,6.6269E-03_JPRB,&
+ & 6.0097E-03_JPRB,4.8731E-03_JPRB,3.1264E-03_JPRB,3.7137E-03_JPRB/)  
+KAO( :, 2, 7, 6) = (/&
+ & 7.4084E-03_JPRB,9.1887E-03_JPRB,9.4000E-03_JPRB,9.3096E-03_JPRB,9.0304E-03_JPRB,8.5190E-03_JPRB,&
+ & 7.6733E-03_JPRB,6.1525E-03_JPRB,3.9263E-03_JPRB,4.3944E-03_JPRB/)  
+KAO( :, 3, 7, 6) = (/&
+ & 9.4040E-03_JPRB,1.1717E-02_JPRB,1.1976E-02_JPRB,1.1835E-02_JPRB,1.1434E-02_JPRB,1.0726E-02_JPRB,&
+ & 9.5804E-03_JPRB,7.6627E-03_JPRB,5.0656E-03_JPRB,5.1961E-03_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART4',1,ZHOOK_HANDLE)
+END SUBROUTINE PART4
+
+
+SUBROUTINE PART5
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART5',0,ZHOOK_HANDLE)
+
+
+KAO( :, 4, 7, 6) = (/&
+ & 1.1772E-02_JPRB,1.4730E-02_JPRB,1.5048E-02_JPRB,1.4854E-02_JPRB,1.4302E-02_JPRB,1.3320E-02_JPRB,&
+ & 1.1779E-02_JPRB,9.4074E-03_JPRB,6.3725E-03_JPRB,6.1249E-03_JPRB/)  
+KAO( :, 5, 7, 6) = (/&
+ & 1.4533E-02_JPRB,1.8234E-02_JPRB,1.8652E-02_JPRB,1.8417E-02_JPRB,1.7654E-02_JPRB,1.6319E-02_JPRB,&
+ & 1.4317E-02_JPRB,1.1422E-02_JPRB,7.8881E-03_JPRB,7.1931E-03_JPRB/)  
+KAO( :, 1, 8, 6) = (/&
+ & 4.3473E-03_JPRB,5.3530E-03_JPRB,5.4453E-03_JPRB,5.3772E-03_JPRB,5.1866E-03_JPRB,4.8647E-03_JPRB,&
+ & 4.3808E-03_JPRB,3.5559E-03_JPRB,2.4173E-03_JPRB,3.5108E-03_JPRB/)  
+KAO( :, 2, 8, 6) = (/&
+ & 5.6534E-03_JPRB,6.9608E-03_JPRB,7.0942E-03_JPRB,6.9933E-03_JPRB,6.7489E-03_JPRB,6.3330E-03_JPRB,&
+ & 5.6745E-03_JPRB,4.5520E-03_JPRB,2.9081E-03_JPRB,4.1180E-03_JPRB/)  
+KAO( :, 3, 8, 6) = (/&
+ & 7.2231E-03_JPRB,8.9492E-03_JPRB,9.1155E-03_JPRB,8.9772E-03_JPRB,8.6519E-03_JPRB,8.0865E-03_JPRB,&
+ & 7.1842E-03_JPRB,5.7298E-03_JPRB,3.7126E-03_JPRB,4.8510E-03_JPRB/)  
+KAO( :, 4, 8, 6) = (/&
+ & 9.0980E-03_JPRB,1.1325E-02_JPRB,1.1554E-02_JPRB,1.1402E-02_JPRB,1.0960E-02_JPRB,1.0182E-02_JPRB,&
+ & 8.9521E-03_JPRB,7.1103E-03_JPRB,4.7399E-03_JPRB,5.6880E-03_JPRB/)  
+KAO( :, 5, 8, 6) = (/&
+ & 1.1302E-02_JPRB,1.4121E-02_JPRB,1.4457E-02_JPRB,1.4302E-02_JPRB,1.3709E-02_JPRB,1.2644E-02_JPRB,&
+ & 1.1007E-02_JPRB,8.6993E-03_JPRB,5.9281E-03_JPRB,6.6436E-03_JPRB/)  
+KAO( :, 1, 9, 6) = (/&
+ & 3.2166E-03_JPRB,3.9635E-03_JPRB,4.0421E-03_JPRB,3.9936E-03_JPRB,3.8441E-03_JPRB,3.5923E-03_JPRB,&
+ & 3.2097E-03_JPRB,2.5886E-03_JPRB,1.7693E-03_JPRB,5.0615E-03_JPRB/)  
+KAO( :, 2, 9, 6) = (/&
+ & 4.2551E-03_JPRB,5.2496E-03_JPRB,5.3431E-03_JPRB,5.2633E-03_JPRB,5.0543E-03_JPRB,4.7090E-03_JPRB,&
+ & 4.1979E-03_JPRB,3.3556E-03_JPRB,2.0811E-03_JPRB,5.7517E-03_JPRB/)  
+KAO( :, 3, 9, 6) = (/&
+ & 5.5178E-03_JPRB,6.8310E-03_JPRB,6.9481E-03_JPRB,6.8181E-03_JPRB,6.5340E-03_JPRB,6.0733E-03_JPRB,&
+ & 5.3775E-03_JPRB,4.2779E-03_JPRB,2.6744E-03_JPRB,6.5436E-03_JPRB/)  
+KAO( :, 4, 9, 6) = (/&
+ & 7.0233E-03_JPRB,8.7120E-03_JPRB,8.8693E-03_JPRB,8.7209E-03_JPRB,8.3514E-03_JPRB,7.7376E-03_JPRB,&
+ & 6.7992E-03_JPRB,5.3653E-03_JPRB,3.4836E-03_JPRB,7.4458E-03_JPRB/)  
+KAO( :, 5, 9, 6) = (/&
+ & 8.7908E-03_JPRB,1.0935E-02_JPRB,1.1156E-02_JPRB,1.1011E-02_JPRB,1.0551E-02_JPRB,9.7377E-03_JPRB,&
+ & 8.4643E-03_JPRB,6.6157E-03_JPRB,4.4105E-03_JPRB,8.4131E-03_JPRB/)  
+KAO( :, 1,10, 6) = (/&
+ & 2.4036E-03_JPRB,2.9626E-03_JPRB,3.0270E-03_JPRB,2.9891E-03_JPRB,2.8783E-03_JPRB,2.6966E-03_JPRB,&
+ & 2.4167E-03_JPRB,1.9384E-03_JPRB,1.2950E-03_JPRB,1.2580E-02_JPRB/)  
+KAO( :, 2,10, 6) = (/&
+ & 3.2304E-03_JPRB,3.9936E-03_JPRB,4.0696E-03_JPRB,4.0063E-03_JPRB,3.8441E-03_JPRB,3.5817E-03_JPRB,&
+ & 3.1841E-03_JPRB,2.5258E-03_JPRB,1.6318E-03_JPRB,1.3867E-02_JPRB/)  
+KAO( :, 3,10, 6) = (/&
+ & 4.2450E-03_JPRB,5.2713E-03_JPRB,5.3717E-03_JPRB,5.2683E-03_JPRB,5.0339E-03_JPRB,4.6625E-03_JPRB,&
+ & 4.1091E-03_JPRB,3.2509E-03_JPRB,2.0065E-03_JPRB,1.5204E-02_JPRB/)  
+KAO( :, 4,10, 6) = (/&
+ & 5.4744E-03_JPRB,6.8064E-03_JPRB,6.9238E-03_JPRB,6.7912E-03_JPRB,6.4905E-03_JPRB,5.9838E-03_JPRB,&
+ & 5.2439E-03_JPRB,4.1188E-03_JPRB,2.6002E-03_JPRB,1.6652E-02_JPRB/)  
+KAO( :, 5,10, 6) = (/&
+ & 6.9353E-03_JPRB,8.6079E-03_JPRB,8.7635E-03_JPRB,8.6181E-03_JPRB,8.2349E-03_JPRB,7.5886E-03_JPRB,&
+ & 6.5994E-03_JPRB,5.1192E-03_JPRB,3.3239E-03_JPRB,1.8251E-02_JPRB/)  
+KAO( :, 1,11, 6) = (/&
+ & 2.0648E-03_JPRB,2.5481E-03_JPRB,2.6000E-03_JPRB,2.5607E-03_JPRB,2.4630E-03_JPRB,2.3069E-03_JPRB,&
+ & 2.0692E-03_JPRB,1.6562E-03_JPRB,1.0860E-03_JPRB,1.7049E-02_JPRB/)  
+KAO( :, 2,11, 6) = (/&
+ & 2.7859E-03_JPRB,3.4547E-03_JPRB,3.5237E-03_JPRB,3.4594E-03_JPRB,3.3142E-03_JPRB,3.0841E-03_JPRB,&
+ & 2.7345E-03_JPRB,2.1584E-03_JPRB,1.3341E-03_JPRB,1.8747E-02_JPRB/)  
+KAO( :, 3,11, 6) = (/&
+ & 3.6773E-03_JPRB,4.5764E-03_JPRB,4.6633E-03_JPRB,4.5751E-03_JPRB,4.3721E-03_JPRB,4.0405E-03_JPRB,&
+ & 3.5419E-03_JPRB,2.7771E-03_JPRB,1.6730E-03_JPRB,2.0460E-02_JPRB/)  
+KAO( :, 4,11, 6) = (/&
+ & 4.7645E-03_JPRB,5.9262E-03_JPRB,6.0301E-03_JPRB,5.9104E-03_JPRB,5.6462E-03_JPRB,5.2017E-03_JPRB,&
+ & 4.5306E-03_JPRB,3.5163E-03_JPRB,2.1775E-03_JPRB,2.2225E-02_JPRB/)  
+KAO( :, 5,11, 6) = (/&
+ & 6.0673E-03_JPRB,7.5194E-03_JPRB,7.6592E-03_JPRB,7.5146E-03_JPRB,7.1608E-03_JPRB,6.5750E-03_JPRB,&
+ & 5.6954E-03_JPRB,4.3877E-03_JPRB,2.7878E-03_JPRB,2.4112E-02_JPRB/)  
+KAO( :, 1,12, 6) = (/&
+ & 1.7649E-03_JPRB,2.1840E-03_JPRB,2.2273E-03_JPRB,2.1894E-03_JPRB,2.1029E-03_JPRB,1.9647E-03_JPRB,&
+ & 1.7570E-03_JPRB,1.4092E-03_JPRB,9.0612E-04_JPRB,1.8116E-02_JPRB/)  
+KAO( :, 2,12, 6) = (/&
+ & 2.3911E-03_JPRB,2.9721E-03_JPRB,3.0306E-03_JPRB,2.9776E-03_JPRB,2.8514E-03_JPRB,2.6450E-03_JPRB,&
+ & 2.3351E-03_JPRB,1.8424E-03_JPRB,1.0968E-03_JPRB,1.9929E-02_JPRB/)  
+KAO( :, 3,12, 6) = (/&
+ & 3.1732E-03_JPRB,3.9503E-03_JPRB,4.0215E-03_JPRB,3.9440E-03_JPRB,3.7721E-03_JPRB,3.4863E-03_JPRB,&
+ & 3.0465E-03_JPRB,2.3738E-03_JPRB,1.3931E-03_JPRB,2.1707E-02_JPRB/)  
+KAO( :, 4,12, 6) = (/&
+ & 4.1329E-03_JPRB,5.1374E-03_JPRB,5.2226E-03_JPRB,5.1161E-03_JPRB,4.8827E-03_JPRB,4.4950E-03_JPRB,&
+ & 3.9019E-03_JPRB,3.0106E-03_JPRB,1.8199E-03_JPRB,2.3542E-02_JPRB/)  
+KAO( :, 5,12, 6) = (/&
+ & 5.2972E-03_JPRB,6.5406E-03_JPRB,6.6636E-03_JPRB,6.5319E-03_JPRB,6.2060E-03_JPRB,5.6779E-03_JPRB,&
+ & 4.9006E-03_JPRB,3.7653E-03_JPRB,2.3340E-03_JPRB,2.5478E-02_JPRB/)  
+KAO( :, 1,13, 6) = (/&
+ & 1.4917E-03_JPRB,1.8531E-03_JPRB,1.8920E-03_JPRB,1.8620E-03_JPRB,1.7861E-03_JPRB,1.6617E-03_JPRB,&
+ & 1.4788E-03_JPRB,1.1873E-03_JPRB,7.5550E-04_JPRB,1.5444E-02_JPRB/)  
+KAO( :, 2,13, 6) = (/&
+ & 2.0333E-03_JPRB,2.5348E-03_JPRB,2.5838E-03_JPRB,2.5408E-03_JPRB,2.4328E-03_JPRB,2.2514E-03_JPRB,&
+ & 1.9783E-03_JPRB,1.5611E-03_JPRB,9.0187E-04_JPRB,1.7015E-02_JPRB/)  
+KAO( :, 3,13, 6) = (/&
+ & 2.7153E-03_JPRB,3.3873E-03_JPRB,3.4439E-03_JPRB,3.3763E-03_JPRB,3.2264E-03_JPRB,2.9750E-03_JPRB,&
+ & 2.5932E-03_JPRB,2.0239E-03_JPRB,1.1597E-03_JPRB,1.8564E-02_JPRB/)  
+KAO( :, 4,13, 6) = (/&
+ & 3.5625E-03_JPRB,4.4244E-03_JPRB,4.4971E-03_JPRB,4.4025E-03_JPRB,4.1909E-03_JPRB,3.8436E-03_JPRB,&
+ & 3.3277E-03_JPRB,2.5719E-03_JPRB,1.5159E-03_JPRB,2.0176E-02_JPRB/)  
+KAO( :, 5,13, 6) = (/&
+ & 4.5915E-03_JPRB,5.6599E-03_JPRB,5.7629E-03_JPRB,5.6406E-03_JPRB,5.3423E-03_JPRB,4.8700E-03_JPRB,&
+ & 4.1907E-03_JPRB,3.2171E-03_JPRB,1.9497E-03_JPRB,2.1913E-02_JPRB/)  
+KAO( :, 1, 1, 7) = (/&
+ & 6.4013E-02_JPRB,7.3559E-02_JPRB,7.8016E-02_JPRB,7.8110E-02_JPRB,7.4963E-02_JPRB,6.8933E-02_JPRB,&
+ & 6.0750E-02_JPRB,4.8875E-02_JPRB,3.9308E-02_JPRB,3.6560E-02_JPRB/)  
+KAO( :, 2, 1, 7) = (/&
+ & 7.6363E-02_JPRB,8.7960E-02_JPRB,9.3559E-02_JPRB,9.3979E-02_JPRB,9.0734E-02_JPRB,8.3349E-02_JPRB,&
+ & 7.3192E-02_JPRB,5.8774E-02_JPRB,4.7441E-02_JPRB,4.4036E-02_JPRB/)  
+KAO( :, 3, 1, 7) = (/&
+ & 8.9758E-02_JPRB,1.0331E-01_JPRB,1.1051E-01_JPRB,1.1169E-01_JPRB,1.0769E-01_JPRB,9.8679E-02_JPRB,&
+ & 8.6726E-02_JPRB,6.9819E-02_JPRB,5.6655E-02_JPRB,5.2675E-02_JPRB/)  
+KAO( :, 4, 1, 7) = (/&
+ & 1.0433E-01_JPRB,1.2008E-01_JPRB,1.2928E-01_JPRB,1.3105E-01_JPRB,1.2576E-01_JPRB,1.1544E-01_JPRB,&
+ & 1.0166E-01_JPRB,8.2241E-02_JPRB,6.7142E-02_JPRB,6.2520E-02_JPRB/)  
+KAO( :, 5, 1, 7) = (/&
+ & 1.2001E-01_JPRB,1.3824E-01_JPRB,1.4932E-01_JPRB,1.5158E-01_JPRB,1.4526E-01_JPRB,1.3374E-01_JPRB,&
+ & 1.1804E-01_JPRB,9.5951E-02_JPRB,7.9016E-02_JPRB,7.3734E-02_JPRB/)  
+KAO( :, 1, 2, 7) = (/&
+ & 5.2968E-02_JPRB,6.2116E-02_JPRB,6.5835E-02_JPRB,6.6044E-02_JPRB,6.3294E-02_JPRB,5.8161E-02_JPRB,&
+ & 5.1176E-02_JPRB,4.1393E-02_JPRB,3.1133E-02_JPRB,2.8255E-02_JPRB/)  
+KAO( :, 2, 2, 7) = (/&
+ & 6.3728E-02_JPRB,7.4899E-02_JPRB,7.9536E-02_JPRB,8.0057E-02_JPRB,7.7101E-02_JPRB,7.0839E-02_JPRB,&
+ & 6.2175E-02_JPRB,5.0108E-02_JPRB,3.7798E-02_JPRB,3.4182E-02_JPRB/)  
+KAO( :, 3, 2, 7) = (/&
+ & 7.5532E-02_JPRB,8.8572E-02_JPRB,9.4648E-02_JPRB,9.5700E-02_JPRB,9.1973E-02_JPRB,8.4443E-02_JPRB,&
+ & 7.4085E-02_JPRB,5.9918E-02_JPRB,4.5429E-02_JPRB,4.1069E-02_JPRB/)  
+KAO( :, 4, 2, 7) = (/&
+ & 8.8404E-02_JPRB,1.0356E-01_JPRB,1.1124E-01_JPRB,1.1259E-01_JPRB,1.0798E-01_JPRB,9.9246E-02_JPRB,&
+ & 8.7373E-02_JPRB,7.0993E-02_JPRB,5.4110E-02_JPRB,4.8926E-02_JPRB/)  
+KAO( :, 5, 2, 7) = (/&
+ & 1.0235E-01_JPRB,1.2010E-01_JPRB,1.2926E-01_JPRB,1.3064E-01_JPRB,1.2537E-01_JPRB,1.1556E-01_JPRB,&
+ & 1.0208E-01_JPRB,8.3206E-02_JPRB,6.4030E-02_JPRB,5.7947E-02_JPRB/)  
+KAO( :, 1, 3, 7) = (/&
+ & 4.1735E-02_JPRB,4.9803E-02_JPRB,5.2741E-02_JPRB,5.2657E-02_JPRB,5.0249E-02_JPRB,4.6113E-02_JPRB,&
+ & 4.0588E-02_JPRB,3.2986E-02_JPRB,2.3522E-02_JPRB,2.0886E-02_JPRB/)  
+KAO( :, 2, 3, 7) = (/&
+ & 5.0841E-02_JPRB,6.0757E-02_JPRB,6.4389E-02_JPRB,6.4564E-02_JPRB,6.1844E-02_JPRB,5.6795E-02_JPRB,&
+ & 4.9854E-02_JPRB,4.0407E-02_JPRB,2.8855E-02_JPRB,2.5442E-02_JPRB/)  
+KAO( :, 3, 3, 7) = (/&
+ & 6.0889E-02_JPRB,7.2603E-02_JPRB,7.7334E-02_JPRB,7.7876E-02_JPRB,7.4574E-02_JPRB,6.8388E-02_JPRB,&
+ & 6.0037E-02_JPRB,4.8827E-02_JPRB,3.5004E-02_JPRB,3.0751E-02_JPRB/)  
+KAO( :, 4, 3, 7) = (/&
+ & 7.1992E-02_JPRB,8.5675E-02_JPRB,9.1634E-02_JPRB,9.2233E-02_JPRB,8.8356E-02_JPRB,8.1063E-02_JPRB,&
+ & 7.1397E-02_JPRB,5.8371E-02_JPRB,4.1972E-02_JPRB,3.6821E-02_JPRB/)  
+KAO( :, 5, 3, 7) = (/&
+ & 8.4144E-02_JPRB,1.0019E-01_JPRB,1.0713E-01_JPRB,1.0774E-01_JPRB,1.0345E-01_JPRB,9.5140E-02_JPRB,&
+ & 8.4076E-02_JPRB,6.8896E-02_JPRB,4.9944E-02_JPRB,4.3832E-02_JPRB/)  
+KAO( :, 1, 4, 7) = (/&
+ & 3.2154E-02_JPRB,3.8970E-02_JPRB,4.1150E-02_JPRB,4.0802E-02_JPRB,3.8734E-02_JPRB,3.5463E-02_JPRB,&
+ & 3.1189E-02_JPRB,2.5441E-02_JPRB,1.7426E-02_JPRB,1.5348E-02_JPRB/)  
+KAO( :, 2, 4, 7) = (/&
+ & 3.9739E-02_JPRB,4.8115E-02_JPRB,5.0846E-02_JPRB,5.0567E-02_JPRB,4.8188E-02_JPRB,4.4146E-02_JPRB,&
+ & 3.8765E-02_JPRB,3.1629E-02_JPRB,2.1722E-02_JPRB,1.8824E-02_JPRB/)  
+KAO( :, 3, 4, 7) = (/&
+ & 4.8232E-02_JPRB,5.8202E-02_JPRB,6.1786E-02_JPRB,6.1691E-02_JPRB,5.8769E-02_JPRB,5.3800E-02_JPRB,&
+ & 4.7237E-02_JPRB,3.8627E-02_JPRB,2.6596E-02_JPRB,2.2906E-02_JPRB/)  
+KAO( :, 4, 4, 7) = (/&
+ & 5.7693E-02_JPRB,6.9403E-02_JPRB,7.3912E-02_JPRB,7.3801E-02_JPRB,7.0370E-02_JPRB,6.4487E-02_JPRB,&
+ & 5.6733E-02_JPRB,4.6604E-02_JPRB,3.2157E-02_JPRB,2.7582E-02_JPRB/)  
+KAO( :, 5, 4, 7) = (/&
+ & 6.8162E-02_JPRB,8.1910E-02_JPRB,8.6943E-02_JPRB,8.6947E-02_JPRB,8.3116E-02_JPRB,7.6355E-02_JPRB,&
+ & 6.7389E-02_JPRB,5.5474E-02_JPRB,3.8506E-02_JPRB,3.2984E-02_JPRB/)  
+KAO( :, 1, 5, 7) = (/&
+ & 2.4543E-02_JPRB,3.0114E-02_JPRB,3.1564E-02_JPRB,3.1114E-02_JPRB,2.9453E-02_JPRB,2.6887E-02_JPRB,&
+ & 2.3575E-02_JPRB,1.9323E-02_JPRB,1.2795E-02_JPRB,1.1691E-02_JPRB/)  
+KAO( :, 2, 5, 7) = (/&
+ & 3.0843E-02_JPRB,3.7719E-02_JPRB,3.9540E-02_JPRB,3.9065E-02_JPRB,3.7079E-02_JPRB,3.3845E-02_JPRB,&
+ & 2.9679E-02_JPRB,2.4367E-02_JPRB,1.6282E-02_JPRB,1.4283E-02_JPRB/)  
+KAO( :, 3, 5, 7) = (/&
+ & 3.7989E-02_JPRB,4.6141E-02_JPRB,4.8601E-02_JPRB,4.8164E-02_JPRB,4.5691E-02_JPRB,4.1697E-02_JPRB,&
+ & 3.6599E-02_JPRB,3.0110E-02_JPRB,2.0230E-02_JPRB,1.7316E-02_JPRB/)  
+KAO( :, 4, 5, 7) = (/&
+ & 4.5997E-02_JPRB,5.5639E-02_JPRB,5.8738E-02_JPRB,5.8217E-02_JPRB,5.5293E-02_JPRB,5.0551E-02_JPRB,&
+ & 4.4474E-02_JPRB,3.6675E-02_JPRB,2.4679E-02_JPRB,2.0824E-02_JPRB/)  
+KAO( :, 5, 5, 7) = (/&
+ & 5.4980E-02_JPRB,6.6335E-02_JPRB,6.9689E-02_JPRB,6.9220E-02_JPRB,6.5934E-02_JPRB,6.0477E-02_JPRB,&
+ & 5.3356E-02_JPRB,4.4023E-02_JPRB,2.9735E-02_JPRB,2.4925E-02_JPRB/)  
+KAO( :, 1, 6, 7) = (/&
+ & 1.8426E-02_JPRB,2.2761E-02_JPRB,2.3641E-02_JPRB,2.3226E-02_JPRB,2.1929E-02_JPRB,1.9968E-02_JPRB,&
+ & 1.7467E-02_JPRB,1.4347E-02_JPRB,9.1807E-03_JPRB,8.8441E-03_JPRB/)  
+KAO( :, 2, 6, 7) = (/&
+ & 2.3578E-02_JPRB,2.9032E-02_JPRB,3.0133E-02_JPRB,2.9606E-02_JPRB,2.7996E-02_JPRB,2.5495E-02_JPRB,&
+ & 2.2298E-02_JPRB,1.8363E-02_JPRB,1.2129E-02_JPRB,1.0950E-02_JPRB/)  
+KAO( :, 3, 6, 7) = (/&
+ & 2.9507E-02_JPRB,3.6047E-02_JPRB,3.7508E-02_JPRB,3.6913E-02_JPRB,3.4886E-02_JPRB,3.1786E-02_JPRB,&
+ & 2.7844E-02_JPRB,2.2965E-02_JPRB,1.5292E-02_JPRB,1.3409E-02_JPRB/)  
+KAO( :, 4, 6, 7) = (/&
+ & 3.6266E-02_JPRB,4.4015E-02_JPRB,4.5865E-02_JPRB,4.5103E-02_JPRB,4.2675E-02_JPRB,3.8982E-02_JPRB,&
+ & 3.4261E-02_JPRB,2.8279E-02_JPRB,1.8853E-02_JPRB,1.6214E-02_JPRB/)  
+KAO( :, 5, 6, 7) = (/&
+ & 4.3984E-02_JPRB,5.3041E-02_JPRB,5.5017E-02_JPRB,5.4129E-02_JPRB,5.1429E-02_JPRB,4.7161E-02_JPRB,&
+ & 4.1564E-02_JPRB,3.4270E-02_JPRB,2.2882E-02_JPRB,1.9446E-02_JPRB/)  
+KAO( :, 1, 7, 7) = (/&
+ & 1.3764E-02_JPRB,1.6980E-02_JPRB,1.7488E-02_JPRB,1.7108E-02_JPRB,1.6106E-02_JPRB,1.4660E-02_JPRB,&
+ & 1.2811E-02_JPRB,1.0508E-02_JPRB,6.5858E-03_JPRB,7.3979E-03_JPRB/)  
+KAO( :, 2, 7, 7) = (/&
+ & 1.7905E-02_JPRB,2.2049E-02_JPRB,2.2708E-02_JPRB,2.2213E-02_JPRB,2.0912E-02_JPRB,1.9015E-02_JPRB,&
+ & 1.6594E-02_JPRB,1.3616E-02_JPRB,8.9925E-03_JPRB,8.9127E-03_JPRB/)  
+KAO( :, 3, 7, 7) = (/&
+ & 2.2781E-02_JPRB,2.7834E-02_JPRB,2.8707E-02_JPRB,2.8089E-02_JPRB,2.6436E-02_JPRB,2.4036E-02_JPRB,&
+ & 2.1001E-02_JPRB,1.7243E-02_JPRB,1.1550E-02_JPRB,1.0727E-02_JPRB/)  
+KAO( :, 4, 7, 7) = (/&
+ & 2.8466E-02_JPRB,3.4473E-02_JPRB,3.5499E-02_JPRB,3.4681E-02_JPRB,3.2695E-02_JPRB,2.9803E-02_JPRB,&
+ & 2.6138E-02_JPRB,2.1504E-02_JPRB,1.4432E-02_JPRB,1.2888E-02_JPRB/)  
+KAO( :, 5, 7, 7) = (/&
+ & 3.5087E-02_JPRB,4.2091E-02_JPRB,4.3096E-02_JPRB,4.2057E-02_JPRB,3.9781E-02_JPRB,3.6456E-02_JPRB,&
+ & 3.2089E-02_JPRB,2.6356E-02_JPRB,1.7665E-02_JPRB,1.5419E-02_JPRB/)  
+KAO( :, 1, 8, 7) = (/&
+ & 1.0353E-02_JPRB,1.2614E-02_JPRB,1.2882E-02_JPRB,1.2507E-02_JPRB,1.1737E-02_JPRB,1.0675E-02_JPRB,&
+ & 9.3093E-03_JPRB,7.6257E-03_JPRB,4.6116E-03_JPRB,7.3615E-03_JPRB/)  
+KAO( :, 2, 8, 7) = (/&
+ & 1.3587E-02_JPRB,1.6625E-02_JPRB,1.6988E-02_JPRB,1.6539E-02_JPRB,1.5521E-02_JPRB,1.4075E-02_JPRB,&
+ & 1.2252E-02_JPRB,1.0008E-02_JPRB,6.5742E-03_JPRB,8.8183E-03_JPRB/)  
+KAO( :, 3, 8, 7) = (/&
+ & 1.7551E-02_JPRB,2.1310E-02_JPRB,2.1821E-02_JPRB,2.1262E-02_JPRB,1.9937E-02_JPRB,1.8066E-02_JPRB,&
+ & 1.5721E-02_JPRB,1.2839E-02_JPRB,8.6653E-03_JPRB,1.0458E-02_JPRB/)  
+KAO( :, 4, 8, 7) = (/&
+ & 2.2265E-02_JPRB,2.6814E-02_JPRB,2.7357E-02_JPRB,2.6600E-02_JPRB,2.4976E-02_JPRB,2.2670E-02_JPRB,&
+ & 1.9796E-02_JPRB,1.6193E-02_JPRB,1.0979E-02_JPRB,1.2332E-02_JPRB/)  
+KAO( :, 5, 8, 7) = (/&
+ & 2.7862E-02_JPRB,3.3218E-02_JPRB,3.3662E-02_JPRB,3.2634E-02_JPRB,3.0703E-02_JPRB,2.8021E-02_JPRB,&
+ & 2.4581E-02_JPRB,2.0102E-02_JPRB,1.3589E-02_JPRB,1.4413E-02_JPRB/)  
+KAO( :, 1, 9, 7) = (/&
+ & 7.8781E-03_JPRB,9.4357E-03_JPRB,9.5082E-03_JPRB,9.1567E-03_JPRB,8.5455E-03_JPRB,7.7115E-03_JPRB,&
+ & 6.6987E-03_JPRB,5.4668E-03_JPRB,3.2375E-03_JPRB,1.0690E-02_JPRB/)  
+KAO( :, 2, 9, 7) = (/&
+ & 1.0378E-02_JPRB,1.2532E-02_JPRB,1.2692E-02_JPRB,1.2260E-02_JPRB,1.1450E-02_JPRB,1.0342E-02_JPRB,&
+ & 8.9582E-03_JPRB,7.2956E-03_JPRB,4.7236E-03_JPRB,1.2330E-02_JPRB/)  
+KAO( :, 3, 9, 7) = (/&
+ & 1.3495E-02_JPRB,1.6270E-02_JPRB,1.6516E-02_JPRB,1.6000E-02_JPRB,1.4955E-02_JPRB,1.3485E-02_JPRB,&
+ & 1.1675E-02_JPRB,9.4744E-03_JPRB,6.3929E-03_JPRB,1.4160E-02_JPRB/)  
+KAO( :, 4, 9, 7) = (/&
+ & 1.7315E-02_JPRB,2.0761E-02_JPRB,2.1026E-02_JPRB,2.0326E-02_JPRB,1.9009E-02_JPRB,1.7164E-02_JPRB,&
+ & 1.4884E-02_JPRB,1.2091E-02_JPRB,8.2532E-03_JPRB,1.6229E-02_JPRB/)  
+KAO( :, 5, 9, 7) = (/&
+ & 2.1950E-02_JPRB,2.6079E-02_JPRB,2.6242E-02_JPRB,2.5301E-02_JPRB,2.3645E-02_JPRB,2.1443E-02_JPRB,&
+ & 1.8684E-02_JPRB,1.5203E-02_JPRB,1.0361E-02_JPRB,1.8623E-02_JPRB/)  
+KAO( :, 1,10, 7) = (/&
+ & 6.0912E-03_JPRB,7.2618E-03_JPRB,7.2497E-03_JPRB,6.9368E-03_JPRB,6.4251E-03_JPRB,5.7381E-03_JPRB,&
+ & 4.9224E-03_JPRB,3.9870E-03_JPRB,2.3279E-03_JPRB,2.4406E-02_JPRB/)  
+KAO( :, 2,10, 7) = (/&
+ & 8.1237E-03_JPRB,9.7061E-03_JPRB,9.7375E-03_JPRB,9.3388E-03_JPRB,8.6591E-03_JPRB,7.7505E-03_JPRB,&
+ & 6.6642E-03_JPRB,5.3997E-03_JPRB,3.3513E-03_JPRB,2.6559E-02_JPRB/)  
+KAO( :, 3,10, 7) = (/&
+ & 1.0643E-02_JPRB,1.2680E-02_JPRB,1.2767E-02_JPRB,1.2292E-02_JPRB,1.1416E-02_JPRB,1.0235E-02_JPRB,&
+ & 8.8042E-03_JPRB,7.1077E-03_JPRB,4.7423E-03_JPRB,2.9166E-02_JPRB/)  
+KAO( :, 4,10, 7) = (/&
+ & 1.3745E-02_JPRB,1.6327E-02_JPRB,1.6432E-02_JPRB,1.5803E-02_JPRB,1.4680E-02_JPRB,1.3196E-02_JPRB,&
+ & 1.1368E-02_JPRB,9.1591E-03_JPRB,6.2576E-03_JPRB,3.2140E-02_JPRB/)  
+KAO( :, 5,10, 7) = (/&
+ & 1.7515E-02_JPRB,2.0726E-02_JPRB,2.0778E-02_JPRB,1.9936E-02_JPRB,1.8503E-02_JPRB,1.6679E-02_JPRB,&
+ & 1.4419E-02_JPRB,1.1642E-02_JPRB,7.9656E-03_JPRB,3.5445E-02_JPRB/)  
+KAO( :, 1,11, 7) = (/&
+ & 5.3549E-03_JPRB,6.3816E-03_JPRB,6.3660E-03_JPRB,6.0840E-03_JPRB,5.6156E-03_JPRB,4.9825E-03_JPRB,&
+ & 4.2303E-03_JPRB,3.3795E-03_JPRB,1.9749E-03_JPRB,3.2367E-02_JPRB/)  
+KAO( :, 2,11, 7) = (/&
+ & 7.2013E-03_JPRB,8.5604E-03_JPRB,8.5532E-03_JPRB,8.1763E-03_JPRB,7.5421E-03_JPRB,6.6997E-03_JPRB,&
+ & 5.7065E-03_JPRB,4.5729E-03_JPRB,2.8632E-03_JPRB,3.5196E-02_JPRB/)  
+KAO( :, 3,11, 7) = (/&
+ & 9.5022E-03_JPRB,1.1202E-02_JPRB,1.1204E-02_JPRB,1.0716E-02_JPRB,9.9000E-03_JPRB,8.8230E-03_JPRB,&
+ & 7.5394E-03_JPRB,6.0331E-03_JPRB,4.0236E-03_JPRB,3.8638E-02_JPRB/)  
+KAO( :, 4,11, 7) = (/&
+ & 1.2288E-02_JPRB,1.4432E-02_JPRB,1.4424E-02_JPRB,1.3791E-02_JPRB,1.2735E-02_JPRB,1.1387E-02_JPRB,&
+ & 9.7608E-03_JPRB,7.8103E-03_JPRB,5.3234E-03_JPRB,4.2507E-02_JPRB/)  
+KAO( :, 5,11, 7) = (/&
+ & 1.5567E-02_JPRB,1.8295E-02_JPRB,1.8261E-02_JPRB,1.7460E-02_JPRB,1.6145E-02_JPRB,1.4469E-02_JPRB,&
+ & 1.2448E-02_JPRB,9.9477E-03_JPRB,6.7800E-03_JPRB,4.6703E-02_JPRB/)  
+KAO( :, 1,12, 7) = (/&
+ & 4.6610E-03_JPRB,5.5454E-03_JPRB,5.5315E-03_JPRB,5.2838E-03_JPRB,4.8759E-03_JPRB,4.3254E-03_JPRB,&
+ & 3.6583E-03_JPRB,2.8821E-03_JPRB,1.6681E-03_JPRB,3.4347E-02_JPRB/)  
+KAO( :, 2,12, 7) = (/&
+ & 6.3285E-03_JPRB,7.4864E-03_JPRB,7.4682E-03_JPRB,7.1266E-03_JPRB,6.5590E-03_JPRB,5.8111E-03_JPRB,&
+ & 4.9232E-03_JPRB,3.8901E-03_JPRB,2.4263E-03_JPRB,3.7723E-02_JPRB/)  
+KAO( :, 3,12, 7) = (/&
+ & 8.4114E-03_JPRB,9.8725E-03_JPRB,9.8303E-03_JPRB,9.3562E-03_JPRB,8.6044E-03_JPRB,7.6370E-03_JPRB,&
+ & 6.4946E-03_JPRB,5.1447E-03_JPRB,3.4144E-03_JPRB,4.1645E-02_JPRB/)  
+KAO( :, 4,12, 7) = (/&
+ & 1.0877E-02_JPRB,1.2730E-02_JPRB,1.2662E-02_JPRB,1.2056E-02_JPRB,1.1093E-02_JPRB,9.8741E-03_JPRB,&
+ & 8.4352E-03_JPRB,6.6865E-03_JPRB,4.5146E-03_JPRB,4.5836E-02_JPRB/)  
+KAO( :, 5,12, 7) = (/&
+ & 1.3747E-02_JPRB,1.6074E-02_JPRB,1.5983E-02_JPRB,1.5257E-02_JPRB,1.4098E-02_JPRB,1.2612E-02_JPRB,&
+ & 1.0799E-02_JPRB,8.5347E-03_JPRB,5.7461E-03_JPRB,5.0295E-02_JPRB/)  
+KAO( :, 1,13, 7) = (/&
+ & 4.0079E-03_JPRB,4.7560E-03_JPRB,4.7417E-03_JPRB,4.5251E-03_JPRB,4.1763E-03_JPRB,3.7162E-03_JPRB,&
+ & 3.1488E-03_JPRB,2.4610E-03_JPRB,1.3983E-03_JPRB,2.9797E-02_JPRB/)  
+KAO( :, 2,13, 7) = (/&
+ & 5.4975E-03_JPRB,6.4791E-03_JPRB,6.4467E-03_JPRB,6.1399E-03_JPRB,5.6502E-03_JPRB,5.0140E-03_JPRB,&
+ & 4.2451E-03_JPRB,3.3175E-03_JPRB,2.0465E-03_JPRB,3.3074E-02_JPRB/)  
+KAO( :, 3,13, 7) = (/&
+ & 7.3173E-03_JPRB,8.5913E-03_JPRB,8.5377E-03_JPRB,8.1192E-03_JPRB,7.4539E-03_JPRB,6.6075E-03_JPRB,&
+ & 5.6063E-03_JPRB,4.3940E-03_JPRB,2.8772E-03_JPRB,3.6709E-02_JPRB/)  
+KAO( :, 4,13, 7) = (/&
+ & 9.4743E-03_JPRB,1.1090E-02_JPRB,1.1002E-02_JPRB,1.0468E-02_JPRB,9.6356E-03_JPRB,8.5792E-03_JPRB,&
+ & 7.2993E-03_JPRB,5.7314E-03_JPRB,3.8025E-03_JPRB,4.0547E-02_JPRB/)  
+KAO( :, 5,13, 7) = (/&
+ & 1.2013E-02_JPRB,1.3994E-02_JPRB,1.3879E-02_JPRB,1.3228E-02_JPRB,1.2234E-02_JPRB,1.0964E-02_JPRB,&
+ & 9.3662E-03_JPRB,7.3363E-03_JPRB,4.8412E-03_JPRB,4.4593E-02_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART5',1,ZHOOK_HANDLE)
+END SUBROUTINE PART5
+
+
+SUBROUTINE PART6
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART6',0,ZHOOK_HANDLE)
+
+
+KAO( :, 1, 1, 8) = (/&
+ & 1.6043E-01_JPRB,1.5955E-01_JPRB,1.5744E-01_JPRB,1.5203E-01_JPRB,1.4391E-01_JPRB,1.3266E-01_JPRB,&
+ & 1.1826E-01_JPRB,1.0647E-01_JPRB,1.0371E-01_JPRB,1.0144E-01_JPRB/)  
+KAO( :, 2, 1, 8) = (/&
+ & 1.9219E-01_JPRB,1.9200E-01_JPRB,1.8944E-01_JPRB,1.8309E-01_JPRB,1.7324E-01_JPRB,1.6054E-01_JPRB,&
+ & 1.4443E-01_JPRB,1.3095E-01_JPRB,1.2672E-01_JPRB,1.2410E-01_JPRB/)  
+KAO( :, 3, 1, 8) = (/&
+ & 2.2629E-01_JPRB,2.2700E-01_JPRB,2.2424E-01_JPRB,2.1719E-01_JPRB,2.0625E-01_JPRB,1.9280E-01_JPRB,&
+ & 1.7410E-01_JPRB,1.5851E-01_JPRB,1.5238E-01_JPRB,1.4924E-01_JPRB/)  
+KAO( :, 4, 1, 8) = (/&
+ & 2.6302E-01_JPRB,2.6487E-01_JPRB,2.6214E-01_JPRB,2.5470E-01_JPRB,2.4371E-01_JPRB,2.2882E-01_JPRB,&
+ & 2.0692E-01_JPRB,1.8914E-01_JPRB,1.8098E-01_JPRB,1.7748E-01_JPRB/)  
+KAO( :, 5, 1, 8) = (/&
+ & 3.0195E-01_JPRB,3.0538E-01_JPRB,3.0299E-01_JPRB,2.9584E-01_JPRB,2.8471E-01_JPRB,2.6793E-01_JPRB,&
+ & 2.4285E-01_JPRB,2.2301E-01_JPRB,2.1336E-01_JPRB,2.0952E-01_JPRB/)  
+KAO( :, 1, 2, 8) = (/&
+ & 1.3846E-01_JPRB,1.4022E-01_JPRB,1.4003E-01_JPRB,1.3582E-01_JPRB,1.2900E-01_JPRB,1.1965E-01_JPRB,&
+ & 1.0668E-01_JPRB,9.1059E-02_JPRB,8.5585E-02_JPRB,8.1636E-02_JPRB/)  
+KAO( :, 2, 2, 8) = (/&
+ & 1.6715E-01_JPRB,1.6985E-01_JPRB,1.6971E-01_JPRB,1.6484E-01_JPRB,1.5668E-01_JPRB,1.4564E-01_JPRB,&
+ & 1.3093E-01_JPRB,1.1285E-01_JPRB,1.0555E-01_JPRB,1.0079E-01_JPRB/)  
+KAO( :, 3, 2, 8) = (/&
+ & 1.9803E-01_JPRB,2.0244E-01_JPRB,2.0211E-01_JPRB,1.9690E-01_JPRB,1.8801E-01_JPRB,1.7558E-01_JPRB,&
+ & 1.5851E-01_JPRB,1.3719E-01_JPRB,1.2761E-01_JPRB,1.2193E-01_JPRB/)  
+KAO( :, 4, 2, 8) = (/&
+ & 2.3133E-01_JPRB,2.3777E-01_JPRB,2.3782E-01_JPRB,2.3254E-01_JPRB,2.2351E-01_JPRB,2.0946E-01_JPRB,&
+ & 1.8890E-01_JPRB,1.6397E-01_JPRB,1.5196E-01_JPRB,1.4557E-01_JPRB/)  
+KAO( :, 5, 2, 8) = (/&
+ & 2.6711E-01_JPRB,2.7542E-01_JPRB,2.7668E-01_JPRB,2.7185E-01_JPRB,2.6232E-01_JPRB,2.4621E-01_JPRB,&
+ & 2.2197E-01_JPRB,1.9371E-01_JPRB,1.7953E-01_JPRB,1.7231E-01_JPRB/)  
+KAO( :, 1, 3, 8) = (/&
+ & 1.1272E-01_JPRB,1.1648E-01_JPRB,1.1742E-01_JPRB,1.1452E-01_JPRB,1.0929E-01_JPRB,1.0158E-01_JPRB,&
+ & 9.0376E-02_JPRB,7.4637E-02_JPRB,6.6429E-02_JPRB,6.1506E-02_JPRB/)  
+KAO( :, 2, 3, 8) = (/&
+ & 1.3749E-01_JPRB,1.4273E-01_JPRB,1.4386E-01_JPRB,1.4052E-01_JPRB,1.3417E-01_JPRB,1.2510E-01_JPRB,&
+ & 1.1193E-01_JPRB,9.3361E-02_JPRB,8.2893E-02_JPRB,7.6819E-02_JPRB/)  
+KAO( :, 3, 3, 8) = (/&
+ & 1.6469E-01_JPRB,1.7179E-01_JPRB,1.7314E-01_JPRB,1.6944E-01_JPRB,1.6261E-01_JPRB,1.5216E-01_JPRB,&
+ & 1.3674E-01_JPRB,1.1431E-01_JPRB,1.0110E-01_JPRB,9.3702E-02_JPRB/)  
+KAO( :, 4, 3, 8) = (/&
+ & 1.9422E-01_JPRB,2.0356E-01_JPRB,2.0555E-01_JPRB,2.0203E-01_JPRB,1.9491E-01_JPRB,1.8285E-01_JPRB,&
+ & 1.6414E-01_JPRB,1.3754E-01_JPRB,1.2151E-01_JPRB,1.1286E-01_JPRB/)  
+KAO( :, 5, 3, 8) = (/&
+ & 2.2623E-01_JPRB,2.3781E-01_JPRB,2.4116E-01_JPRB,2.3829E-01_JPRB,2.3049E-01_JPRB,2.1610E-01_JPRB,&
+ & 1.9397E-01_JPRB,1.6347E-01_JPRB,1.4442E-01_JPRB,1.3449E-01_JPRB/)  
+KAO( :, 1, 4, 8) = (/&
+ & 8.9051E-02_JPRB,9.4148E-02_JPRB,9.5376E-02_JPRB,9.3490E-02_JPRB,8.9564E-02_JPRB,8.3123E-02_JPRB,&
+ & 7.3825E-02_JPRB,6.0440E-02_JPRB,5.0018E-02_JPRB,4.5241E-02_JPRB/)  
+KAO( :, 2, 4, 8) = (/&
+ & 1.0984E-01_JPRB,1.1667E-01_JPRB,1.1837E-01_JPRB,1.1624E-01_JPRB,1.1142E-01_JPRB,1.0383E-01_JPRB,&
+ & 9.2686E-02_JPRB,7.6384E-02_JPRB,6.3307E-02_JPRB,5.7158E-02_JPRB/)  
+KAO( :, 3, 4, 8) = (/&
+ & 1.3321E-01_JPRB,1.4188E-01_JPRB,1.4403E-01_JPRB,1.4173E-01_JPRB,1.3641E-01_JPRB,1.2779E-01_JPRB,&
+ & 1.1439E-01_JPRB,9.4375E-02_JPRB,7.8066E-02_JPRB,7.0497E-02_JPRB/)  
+KAO( :, 4, 4, 8) = (/&
+ & 1.5891E-01_JPRB,1.6984E-01_JPRB,1.7265E-01_JPRB,1.7069E-01_JPRB,1.6497E-01_JPRB,1.5505E-01_JPRB,&
+ & 1.3862E-01_JPRB,1.1439E-01_JPRB,9.4690E-02_JPRB,8.5635E-02_JPRB/)  
+KAO( :, 5, 4, 8) = (/&
+ & 1.8690E-01_JPRB,2.0031E-01_JPRB,2.0459E-01_JPRB,2.0306E-01_JPRB,1.9673E-01_JPRB,1.8463E-01_JPRB,&
+ & 1.6524E-01_JPRB,1.3669E-01_JPRB,1.1330E-01_JPRB,1.0289E-01_JPRB/)  
+KAO( :, 1, 5, 8) = (/&
+ & 6.9203E-02_JPRB,7.4779E-02_JPRB,7.5983E-02_JPRB,7.4840E-02_JPRB,7.1567E-02_JPRB,6.6398E-02_JPRB,&
+ & 5.8865E-02_JPRB,4.8193E-02_JPRB,3.7188E-02_JPRB,3.3169E-02_JPRB/)  
+KAO( :, 2, 5, 8) = (/&
+ & 8.6430E-02_JPRB,9.3817E-02_JPRB,9.5587E-02_JPRB,9.4322E-02_JPRB,9.0456E-02_JPRB,8.4124E-02_JPRB,&
+ & 7.5016E-02_JPRB,6.1615E-02_JPRB,4.7744E-02_JPRB,4.2317E-02_JPRB/)  
+KAO( :, 3, 5, 8) = (/&
+ & 1.0608E-01_JPRB,1.1542E-01_JPRB,1.1772E-01_JPRB,1.1636E-01_JPRB,1.1218E-01_JPRB,1.0479E-01_JPRB,&
+ & 9.3784E-02_JPRB,7.6996E-02_JPRB,5.9545E-02_JPRB,5.2656E-02_JPRB/)  
+KAO( :, 4, 5, 8) = (/&
+ & 1.2808E-01_JPRB,1.3974E-01_JPRB,1.4262E-01_JPRB,1.4148E-01_JPRB,1.3703E-01_JPRB,1.2845E-01_JPRB,&
+ & 1.1485E-01_JPRB,9.4184E-02_JPRB,7.2838E-02_JPRB,6.4516E-02_JPRB/)  
+KAO( :, 5, 5, 8) = (/&
+ & 1.5224E-01_JPRB,1.6648E-01_JPRB,1.7081E-01_JPRB,1.6990E-01_JPRB,1.6471E-01_JPRB,1.5442E-01_JPRB,&
+ & 1.3821E-01_JPRB,1.1347E-01_JPRB,8.7956E-02_JPRB,7.8195E-02_JPRB/)  
+KAO( :, 1, 6, 8) = (/&
+ & 5.2711E-02_JPRB,5.7994E-02_JPRB,5.9096E-02_JPRB,5.8090E-02_JPRB,5.5430E-02_JPRB,5.1354E-02_JPRB,&
+ & 4.5515E-02_JPRB,3.7271E-02_JPRB,2.7030E-02_JPRB,2.5040E-02_JPRB/)  
+KAO( :, 2, 6, 8) = (/&
+ & 6.6719E-02_JPRB,7.3700E-02_JPRB,7.5367E-02_JPRB,7.4311E-02_JPRB,7.1156E-02_JPRB,6.6068E-02_JPRB,&
+ & 5.8853E-02_JPRB,4.8369E-02_JPRB,3.5301E-02_JPRB,3.1744E-02_JPRB/)  
+KAO( :, 3, 6, 8) = (/&
+ & 8.2863E-02_JPRB,9.1758E-02_JPRB,9.3947E-02_JPRB,9.2979E-02_JPRB,8.9500E-02_JPRB,8.3468E-02_JPRB,&
+ & 7.4609E-02_JPRB,6.1328E-02_JPRB,4.4683E-02_JPRB,3.9440E-02_JPRB/)  
+KAO( :, 4, 6, 8) = (/&
+ & 1.0132E-01_JPRB,1.1234E-01_JPRB,1.1520E-01_JPRB,1.1443E-01_JPRB,1.1059E-01_JPRB,1.0353E-01_JPRB,&
+ & 9.2489E-02_JPRB,7.5833E-02_JPRB,5.5318E-02_JPRB,4.8406E-02_JPRB/)  
+KAO( :, 5, 6, 8) = (/&
+ & 1.2185E-01_JPRB,1.3538E-01_JPRB,1.3945E-01_JPRB,1.3895E-01_JPRB,1.3433E-01_JPRB,1.2572E-01_JPRB,&
+ & 1.1243E-01_JPRB,9.2112E-02_JPRB,6.7492E-02_JPRB,5.8870E-02_JPRB/)  
+KAO( :, 1, 7, 8) = (/&
+ & 3.9562E-02_JPRB,4.4276E-02_JPRB,4.5109E-02_JPRB,4.4187E-02_JPRB,4.2082E-02_JPRB,3.8859E-02_JPRB,&
+ & 3.4454E-02_JPRB,2.8224E-02_JPRB,1.9384E-02_JPRB,1.9321E-02_JPRB/)  
+KAO( :, 2, 7, 8) = (/&
+ & 5.0879E-02_JPRB,5.7055E-02_JPRB,5.8399E-02_JPRB,5.7367E-02_JPRB,5.4802E-02_JPRB,5.0789E-02_JPRB,&
+ & 4.5232E-02_JPRB,3.7273E-02_JPRB,2.5806E-02_JPRB,2.4869E-02_JPRB/)  
+KAO( :, 3, 7, 8) = (/&
+ & 6.4003E-02_JPRB,7.1996E-02_JPRB,7.3764E-02_JPRB,7.2774E-02_JPRB,6.9847E-02_JPRB,6.5078E-02_JPRB,&
+ & 5.8125E-02_JPRB,4.7947E-02_JPRB,3.3205E-02_JPRB,3.1173E-02_JPRB/)  
+KAO( :, 4, 7, 8) = (/&
+ & 7.9173E-02_JPRB,8.9239E-02_JPRB,9.1617E-02_JPRB,9.0750E-02_JPRB,8.7396E-02_JPRB,8.1720E-02_JPRB,&
+ & 7.3031E-02_JPRB,6.0013E-02_JPRB,4.1674E-02_JPRB,3.8297E-02_JPRB/)  
+KAO( :, 5, 7, 8) = (/&
+ & 9.6350E-02_JPRB,1.0877E-01_JPRB,1.1214E-01_JPRB,1.1148E-01_JPRB,1.0740E-01_JPRB,1.0030E-01_JPRB,&
+ & 8.9645E-02_JPRB,7.3703E-02_JPRB,5.1413E-02_JPRB,4.6217E-02_JPRB/)  
+KAO( :, 1, 8, 8) = (/&
+ & 2.9374E-02_JPRB,3.3358E-02_JPRB,3.3910E-02_JPRB,3.3176E-02_JPRB,3.1488E-02_JPRB,2.9002E-02_JPRB,&
+ & 2.5651E-02_JPRB,2.0998E-02_JPRB,1.3790E-02_JPRB,1.7931E-02_JPRB/)  
+KAO( :, 2, 8, 8) = (/&
+ & 3.8453E-02_JPRB,4.3732E-02_JPRB,4.4619E-02_JPRB,4.3676E-02_JPRB,4.1586E-02_JPRB,3.8491E-02_JPRB,&
+ & 3.4234E-02_JPRB,2.8236E-02_JPRB,1.8826E-02_JPRB,2.1882E-02_JPRB/)  
+KAO( :, 3, 8, 8) = (/&
+ & 4.9075E-02_JPRB,5.5936E-02_JPRB,5.7139E-02_JPRB,5.6138E-02_JPRB,5.3708E-02_JPRB,4.9953E-02_JPRB,&
+ & 4.4646E-02_JPRB,3.6887E-02_JPRB,2.4662E-02_JPRB,2.6591E-02_JPRB/)  
+KAO( :, 4, 8, 8) = (/&
+ & 6.1437E-02_JPRB,7.0140E-02_JPRB,7.1902E-02_JPRB,7.0919E-02_JPRB,6.8027E-02_JPRB,6.3508E-02_JPRB,&
+ & 5.6793E-02_JPRB,4.6822E-02_JPRB,3.1405E-02_JPRB,3.2120E-02_JPRB/)  
+KAO( :, 5, 8, 8) = (/&
+ & 7.5648E-02_JPRB,8.6455E-02_JPRB,8.9059E-02_JPRB,8.8138E-02_JPRB,8.4612E-02_JPRB,7.8826E-02_JPRB,&
+ & 7.0474E-02_JPRB,5.8121E-02_JPRB,3.9203E-02_JPRB,3.8693E-02_JPRB/)  
+KAO( :, 1, 9, 8) = (/&
+ & 2.1631E-02_JPRB,2.4762E-02_JPRB,2.5091E-02_JPRB,2.4519E-02_JPRB,2.3245E-02_JPRB,2.1343E-02_JPRB,&
+ & 1.8810E-02_JPRB,1.5373E-02_JPRB,9.7641E-03_JPRB,2.9273E-02_JPRB/)  
+KAO( :, 2, 9, 8) = (/&
+ & 2.8813E-02_JPRB,3.3084E-02_JPRB,3.3621E-02_JPRB,3.2842E-02_JPRB,3.1201E-02_JPRB,2.8769E-02_JPRB,&
+ & 2.5516E-02_JPRB,2.1018E-02_JPRB,1.3707E-02_JPRB,3.3813E-02_JPRB/)  
+KAO( :, 3, 9, 8) = (/&
+ & 3.7408E-02_JPRB,4.2984E-02_JPRB,4.3696E-02_JPRB,4.2737E-02_JPRB,4.0787E-02_JPRB,3.7847E-02_JPRB,&
+ & 3.3777E-02_JPRB,2.7905E-02_JPRB,1.8311E-02_JPRB,3.9010E-02_JPRB/)  
+KAO( :, 4, 9, 8) = (/&
+ & 4.7502E-02_JPRB,5.4598E-02_JPRB,5.5650E-02_JPRB,5.4654E-02_JPRB,5.2292E-02_JPRB,4.8701E-02_JPRB,&
+ & 4.3528E-02_JPRB,3.5956E-02_JPRB,2.3660E-02_JPRB,4.4684E-02_JPRB/)  
+KAO( :, 5, 9, 8) = (/&
+ & 5.9184E-02_JPRB,6.8075E-02_JPRB,6.9737E-02_JPRB,6.8716E-02_JPRB,6.5788E-02_JPRB,6.1148E-02_JPRB,&
+ & 5.4664E-02_JPRB,4.5216E-02_JPRB,2.9878E-02_JPRB,5.0829E-02_JPRB/)  
+KAO( :, 1,10, 8) = (/&
+ & 1.6420E-02_JPRB,1.8693E-02_JPRB,1.8856E-02_JPRB,1.8334E-02_JPRB,1.7341E-02_JPRB,1.5930E-02_JPRB,&
+ & 1.4013E-02_JPRB,1.1403E-02_JPRB,7.0640E-03_JPRB,7.0532E-02_JPRB/)  
+KAO( :, 2,10, 8) = (/&
+ & 2.2040E-02_JPRB,2.5317E-02_JPRB,2.5632E-02_JPRB,2.5009E-02_JPRB,2.3702E-02_JPRB,2.1797E-02_JPRB,&
+ & 1.9273E-02_JPRB,1.5810E-02_JPRB,1.0204E-02_JPRB,7.6827E-02_JPRB/)  
+KAO( :, 3,10, 8) = (/&
+ & 2.8968E-02_JPRB,3.3418E-02_JPRB,3.3805E-02_JPRB,3.2963E-02_JPRB,3.1358E-02_JPRB,2.9007E-02_JPRB,&
+ & 2.5810E-02_JPRB,2.1266E-02_JPRB,1.3886E-02_JPRB,8.3691E-02_JPRB/)  
+KAO( :, 4,10, 8) = (/&
+ & 3.7285E-02_JPRB,4.3000E-02_JPRB,4.3529E-02_JPRB,4.2562E-02_JPRB,4.0635E-02_JPRB,3.7704E-02_JPRB,&
+ & 3.3617E-02_JPRB,2.7781E-02_JPRB,1.8177E-02_JPRB,9.1457E-02_JPRB/)  
+KAO( :, 5,10, 8) = (/&
+ & 4.7085E-02_JPRB,5.4248E-02_JPRB,5.5089E-02_JPRB,5.4027E-02_JPRB,5.1573E-02_JPRB,4.7828E-02_JPRB,&
+ & 4.2671E-02_JPRB,3.5326E-02_JPRB,2.3198E-02_JPRB,9.9898E-02_JPRB/)  
+KAO( :, 1,11, 8) = (/&
+ & 1.4563E-02_JPRB,1.6480E-02_JPRB,1.6520E-02_JPRB,1.5972E-02_JPRB,1.5054E-02_JPRB,1.3800E-02_JPRB,&
+ & 1.2151E-02_JPRB,9.8498E-03_JPRB,6.1529E-03_JPRB,9.3025E-02_JPRB/)  
+KAO( :, 2,11, 8) = (/&
+ & 1.9422E-02_JPRB,2.2230E-02_JPRB,2.2365E-02_JPRB,2.1742E-02_JPRB,2.0575E-02_JPRB,1.8920E-02_JPRB,&
+ & 1.6702E-02_JPRB,1.3649E-02_JPRB,8.8593E-03_JPRB,9.9753E-02_JPRB/)  
+KAO( :, 3,11, 8) = (/&
+ & 2.5471E-02_JPRB,2.9351E-02_JPRB,2.9545E-02_JPRB,2.8766E-02_JPRB,2.7276E-02_JPRB,2.5150E-02_JPRB,&
+ & 2.2319E-02_JPRB,1.8330E-02_JPRB,1.2044E-02_JPRB,1.0708E-01_JPRB/)  
+KAO( :, 4,11, 8) = (/&
+ & 3.2877E-02_JPRB,3.7913E-02_JPRB,3.8172E-02_JPRB,3.7200E-02_JPRB,3.5345E-02_JPRB,3.2640E-02_JPRB,&
+ & 2.9010E-02_JPRB,2.3912E-02_JPRB,1.5750E-02_JPRB,1.1551E-01_JPRB/)  
+KAO( :, 5,11, 8) = (/&
+ & 4.1783E-02_JPRB,4.8070E-02_JPRB,4.8478E-02_JPRB,4.7211E-02_JPRB,4.4842E-02_JPRB,4.1431E-02_JPRB,&
+ & 3.6822E-02_JPRB,3.0426E-02_JPRB,2.0117E-02_JPRB,1.2493E-01_JPRB/)  
+KAO( :, 1,12, 8) = (/&
+ & 1.2968E-02_JPRB,1.4613E-02_JPRB,1.4518E-02_JPRB,1.3965E-02_JPRB,1.3108E-02_JPRB,1.1965E-02_JPRB,&
+ & 1.0480E-02_JPRB,8.4661E-03_JPRB,5.3281E-03_JPRB,9.6224E-02_JPRB/)  
+KAO( :, 2,12, 8) = (/&
+ & 1.7226E-02_JPRB,1.9607E-02_JPRB,1.9589E-02_JPRB,1.8955E-02_JPRB,1.7877E-02_JPRB,1.6390E-02_JPRB,&
+ & 1.4401E-02_JPRB,1.1714E-02_JPRB,7.6423E-03_JPRB,1.0281E-01_JPRB/)  
+KAO( :, 3,12, 8) = (/&
+ & 2.2561E-02_JPRB,2.5832E-02_JPRB,2.5887E-02_JPRB,2.5130E-02_JPRB,2.3746E-02_JPRB,2.1760E-02_JPRB,&
+ & 1.9184E-02_JPRB,1.5701E-02_JPRB,1.0359E-02_JPRB,1.1042E-01_JPRB/)  
+KAO( :, 4,12, 8) = (/&
+ & 2.9208E-02_JPRB,3.3517E-02_JPRB,3.3592E-02_JPRB,3.2561E-02_JPRB,3.0751E-02_JPRB,2.8221E-02_JPRB,&
+ & 2.4906E-02_JPRB,2.0465E-02_JPRB,1.3564E-02_JPRB,1.1943E-01_JPRB/)  
+KAO( :, 5,12, 8) = (/&
+ & 3.7315E-02_JPRB,4.2782E-02_JPRB,4.2863E-02_JPRB,4.1414E-02_JPRB,3.9083E-02_JPRB,3.5863E-02_JPRB,&
+ & 3.1661E-02_JPRB,2.6087E-02_JPRB,1.7348E-02_JPRB,1.2941E-01_JPRB/)  
+KAO( :, 1,13, 8) = (/&
+ & 1.1431E-02_JPRB,1.2896E-02_JPRB,1.2736E-02_JPRB,1.2199E-02_JPRB,1.1402E-02_JPRB,1.0345E-02_JPRB,&
+ & 9.0003E-03_JPRB,7.2287E-03_JPRB,4.5824E-03_JPRB,8.0519E-02_JPRB/)  
+KAO( :, 2,13, 8) = (/&
+ & 1.5206E-02_JPRB,1.7258E-02_JPRB,1.7158E-02_JPRB,1.6539E-02_JPRB,1.5531E-02_JPRB,1.4140E-02_JPRB,&
+ & 1.2338E-02_JPRB,9.9830E-03_JPRB,6.5464E-03_JPRB,8.6863E-02_JPRB/)  
+KAO( :, 3,13, 8) = (/&
+ & 1.9972E-02_JPRB,2.2777E-02_JPRB,2.2713E-02_JPRB,2.1940E-02_JPRB,2.0631E-02_JPRB,1.8770E-02_JPRB,&
+ & 1.6415E-02_JPRB,1.3364E-02_JPRB,8.8693E-03_JPRB,9.4420E-02_JPRB/)  
+KAO( :, 4,13, 8) = (/&
+ & 2.5947E-02_JPRB,2.9698E-02_JPRB,2.9634E-02_JPRB,2.8542E-02_JPRB,2.6762E-02_JPRB,2.4361E-02_JPRB,&
+ & 2.1338E-02_JPRB,1.7424E-02_JPRB,1.1633E-02_JPRB,1.0329E-01_JPRB/)  
+KAO( :, 5,13, 8) = (/&
+ & 3.3342E-02_JPRB,3.8082E-02_JPRB,3.7942E-02_JPRB,3.6482E-02_JPRB,3.4168E-02_JPRB,3.1080E-02_JPRB,&
+ & 2.7224E-02_JPRB,2.2266E-02_JPRB,1.4896E-02_JPRB,1.1299E-01_JPRB/)  
+KAO( :, 1, 1, 9) = (/&
+ & 3.5399E-01_JPRB,3.3121E-01_JPRB,3.2486E-01_JPRB,3.1880E-01_JPRB,3.1822E-01_JPRB,3.2442E-01_JPRB,&
+ & 3.3586E-01_JPRB,3.4269E-01_JPRB,3.3501E-01_JPRB,3.3685E-01_JPRB/)  
+KAO( :, 2, 1, 9) = (/&
+ & 4.2651E-01_JPRB,4.0055E-01_JPRB,3.9461E-01_JPRB,3.8890E-01_JPRB,3.8920E-01_JPRB,3.9613E-01_JPRB,&
+ & 4.0802E-01_JPRB,4.1445E-01_JPRB,4.0640E-01_JPRB,4.0867E-01_JPRB/)  
+KAO( :, 3, 1, 9) = (/&
+ & 5.0539E-01_JPRB,4.7639E-01_JPRB,4.7090E-01_JPRB,4.6538E-01_JPRB,4.6724E-01_JPRB,4.7472E-01_JPRB,&
+ & 4.8830E-01_JPRB,4.9479E-01_JPRB,4.8770E-01_JPRB,4.9083E-01_JPRB/)  
+KAO( :, 4, 1, 9) = (/&
+ & 5.9058E-01_JPRB,5.5850E-01_JPRB,5.5373E-01_JPRB,5.4899E-01_JPRB,5.5264E-01_JPRB,5.6233E-01_JPRB,&
+ & 5.7911E-01_JPRB,5.8486E-01_JPRB,5.8020E-01_JPRB,5.8417E-01_JPRB/)  
+KAO( :, 5, 1, 9) = (/&
+ & 6.8144E-01_JPRB,6.4618E-01_JPRB,6.4280E-01_JPRB,6.4028E-01_JPRB,6.4693E-01_JPRB,6.6026E-01_JPRB,&
+ & 6.7993E-01_JPRB,6.8608E-01_JPRB,6.8519E-01_JPRB,6.9037E-01_JPRB/)  
+KAO( :, 1, 2, 9) = (/&
+ & 3.4190E-01_JPRB,3.2327E-01_JPRB,3.1819E-01_JPRB,3.0936E-01_JPRB,3.0384E-01_JPRB,3.0263E-01_JPRB,&
+ & 3.0472E-01_JPRB,3.0754E-01_JPRB,2.9901E-01_JPRB,2.9844E-01_JPRB/)  
+KAO( :, 2, 2, 9) = (/&
+ & 4.1493E-01_JPRB,3.9389E-01_JPRB,3.8895E-01_JPRB,3.7913E-01_JPRB,3.7292E-01_JPRB,3.7132E-01_JPRB,&
+ & 3.7292E-01_JPRB,3.7436E-01_JPRB,3.6462E-01_JPRB,3.6374E-01_JPRB/)  
+KAO( :, 3, 2, 9) = (/&
+ & 4.9524E-01_JPRB,4.7144E-01_JPRB,4.6681E-01_JPRB,4.5556E-01_JPRB,4.4901E-01_JPRB,4.4730E-01_JPRB,&
+ & 4.4941E-01_JPRB,4.4980E-01_JPRB,4.3975E-01_JPRB,4.3888E-01_JPRB/)  
+KAO( :, 4, 2, 9) = (/&
+ & 5.8258E-01_JPRB,5.5620E-01_JPRB,5.5130E-01_JPRB,5.3974E-01_JPRB,5.3286E-01_JPRB,5.3221E-01_JPRB,&
+ & 5.3561E-01_JPRB,5.3530E-01_JPRB,5.2641E-01_JPRB,5.2532E-01_JPRB/)  
+KAO( :, 5, 2, 9) = (/&
+ & 6.7549E-01_JPRB,6.4700E-01_JPRB,6.4191E-01_JPRB,6.3134E-01_JPRB,6.2562E-01_JPRB,6.2644E-01_JPRB,&
+ & 6.3141E-01_JPRB,6.3148E-01_JPRB,6.2520E-01_JPRB,6.2423E-01_JPRB/)  
+KAO( :, 1, 3, 9) = (/&
+ & 3.1322E-01_JPRB,2.9905E-01_JPRB,2.9475E-01_JPRB,2.8714E-01_JPRB,2.7777E-01_JPRB,2.7056E-01_JPRB,&
+ & 2.6471E-01_JPRB,2.6169E-01_JPRB,2.5251E-01_JPRB,2.4874E-01_JPRB/)  
+KAO( :, 2, 3, 9) = (/&
+ & 3.8433E-01_JPRB,3.6852E-01_JPRB,3.6478E-01_JPRB,3.5517E-01_JPRB,3.4410E-01_JPRB,3.3552E-01_JPRB,&
+ & 3.2763E-01_JPRB,3.2198E-01_JPRB,3.1065E-01_JPRB,3.0619E-01_JPRB/)  
+KAO( :, 3, 3, 9) = (/&
+ & 4.6279E-01_JPRB,4.4538E-01_JPRB,4.4243E-01_JPRB,4.3036E-01_JPRB,4.1731E-01_JPRB,4.0795E-01_JPRB,&
+ & 3.9813E-01_JPRB,3.9008E-01_JPRB,3.7721E-01_JPRB,3.7260E-01_JPRB/)  
+KAO( :, 4, 3, 9) = (/&
+ & 5.4926E-01_JPRB,5.2996E-01_JPRB,5.2724E-01_JPRB,5.1320E-01_JPRB,4.9840E-01_JPRB,4.8894E-01_JPRB,&
+ & 4.7837E-01_JPRB,4.6780E-01_JPRB,4.5401E-01_JPRB,4.4835E-01_JPRB/)  
+KAO( :, 5, 3, 9) = (/&
+ & 6.4194E-01_JPRB,6.2152E-01_JPRB,6.1862E-01_JPRB,6.0327E-01_JPRB,5.8767E-01_JPRB,5.7864E-01_JPRB,&
+ & 5.6818E-01_JPRB,5.5487E-01_JPRB,5.4176E-01_JPRB,5.3533E-01_JPRB/)  
+KAO( :, 1, 4, 9) = (/&
+ & 2.7768E-01_JPRB,2.6760E-01_JPRB,2.6572E-01_JPRB,2.5980E-01_JPRB,2.4896E-01_JPRB,2.3795E-01_JPRB,&
+ & 2.2584E-01_JPRB,2.1553E-01_JPRB,2.0567E-01_JPRB,1.9994E-01_JPRB/)  
+KAO( :, 2, 4, 9) = (/&
+ & 3.4628E-01_JPRB,3.3518E-01_JPRB,3.3312E-01_JPRB,3.2573E-01_JPRB,3.1238E-01_JPRB,2.9848E-01_JPRB,&
+ & 2.8332E-01_JPRB,2.6934E-01_JPRB,2.5641E-01_JPRB,2.4969E-01_JPRB/)  
+KAO( :, 3, 4, 9) = (/&
+ & 4.2166E-01_JPRB,4.1018E-01_JPRB,4.0846E-01_JPRB,3.9896E-01_JPRB,3.8288E-01_JPRB,3.6617E-01_JPRB,&
+ & 3.4804E-01_JPRB,3.3049E-01_JPRB,3.1485E-01_JPRB,3.0688E-01_JPRB/)  
+KAO( :, 4, 4, 9) = (/&
+ & 5.0480E-01_JPRB,4.9294E-01_JPRB,4.9184E-01_JPRB,4.7995E-01_JPRB,4.6126E-01_JPRB,4.4207E-01_JPRB,&
+ & 4.2165E-01_JPRB,4.0000E-01_JPRB,3.8208E-01_JPRB,3.7264E-01_JPRB/)  
+KAO( :, 5, 4, 9) = (/&
+ & 5.9516E-01_JPRB,5.8326E-01_JPRB,5.8244E-01_JPRB,5.6852E-01_JPRB,5.4774E-01_JPRB,5.2760E-01_JPRB,&
+ & 5.0410E-01_JPRB,4.7792E-01_JPRB,4.5860E-01_JPRB,4.4782E-01_JPRB/)  
+KAO( :, 1, 5, 9) = (/&
+ & 2.4131E-01_JPRB,2.3501E-01_JPRB,2.3520E-01_JPRB,2.3089E-01_JPRB,2.2183E-01_JPRB,2.0721E-01_JPRB,&
+ & 1.9087E-01_JPRB,1.7544E-01_JPRB,1.6409E-01_JPRB,1.5817E-01_JPRB/)  
+KAO( :, 2, 5, 9) = (/&
+ & 3.0553E-01_JPRB,2.9936E-01_JPRB,2.9956E-01_JPRB,2.9368E-01_JPRB,2.8148E-01_JPRB,2.6374E-01_JPRB,&
+ & 2.4318E-01_JPRB,2.2281E-01_JPRB,2.0743E-01_JPRB,2.0014E-01_JPRB/)  
+KAO( :, 3, 5, 9) = (/&
+ & 3.7703E-01_JPRB,3.7157E-01_JPRB,3.7167E-01_JPRB,3.6419E-01_JPRB,3.4859E-01_JPRB,3.2739E-01_JPRB,&
+ & 3.0264E-01_JPRB,2.7688E-01_JPRB,2.5755E-01_JPRB,2.4828E-01_JPRB/)  
+KAO( :, 4, 5, 9) = (/&
+ & 4.5610E-01_JPRB,4.5131E-01_JPRB,4.5213E-01_JPRB,4.4247E-01_JPRB,4.2387E-01_JPRB,3.9882E-01_JPRB,&
+ & 3.7008E-01_JPRB,3.3849E-01_JPRB,3.1536E-01_JPRB,3.0426E-01_JPRB/)  
+KAO( :, 5, 5, 9) = (/&
+ & 5.4247E-01_JPRB,5.3886E-01_JPRB,5.4021E-01_JPRB,5.2840E-01_JPRB,5.0753E-01_JPRB,4.7901E-01_JPRB,&
+ & 4.4567E-01_JPRB,4.0809E-01_JPRB,3.8163E-01_JPRB,3.6881E-01_JPRB/)  
+KAO( :, 1, 6, 9) = (/&
+ & 2.0298E-01_JPRB,2.0025E-01_JPRB,2.0213E-01_JPRB,1.9982E-01_JPRB,1.9212E-01_JPRB,1.7691E-01_JPRB,&
+ & 1.5886E-01_JPRB,1.4069E-01_JPRB,1.2763E-01_JPRB,1.2147E-01_JPRB/)  
+KAO( :, 2, 6, 9) = (/&
+ & 2.6157E-01_JPRB,2.5976E-01_JPRB,2.6209E-01_JPRB,2.5832E-01_JPRB,2.4798E-01_JPRB,2.2871E-01_JPRB,&
+ & 2.0577E-01_JPRB,1.8197E-01_JPRB,1.6416E-01_JPRB,1.5634E-01_JPRB/)  
+KAO( :, 3, 6, 9) = (/&
+ & 3.2801E-01_JPRB,3.2761E-01_JPRB,3.3023E-01_JPRB,3.2484E-01_JPRB,3.1114E-01_JPRB,2.8803E-01_JPRB,&
+ & 2.5966E-01_JPRB,2.2885E-01_JPRB,2.0587E-01_JPRB,1.9644E-01_JPRB/)  
+KAO( :, 4, 6, 9) = (/&
+ & 4.0207E-01_JPRB,4.0351E-01_JPRB,4.0622E-01_JPRB,3.9903E-01_JPRB,3.8234E-01_JPRB,3.5465E-01_JPRB,&
+ & 3.2062E-01_JPRB,2.8289E-01_JPRB,2.5440E-01_JPRB,2.4312E-01_JPRB/)  
+KAO( :, 5, 6, 9) = (/&
+ & 4.8336E-01_JPRB,4.8697E-01_JPRB,4.9003E-01_JPRB,4.8114E-01_JPRB,4.6185E-01_JPRB,4.2928E-01_JPRB,&
+ & 3.8966E-01_JPRB,3.4463E-01_JPRB,3.1043E-01_JPRB,2.9706E-01_JPRB/)  
+KAO( :, 1, 7, 9) = (/&
+ & 1.6688E-01_JPRB,1.6702E-01_JPRB,1.7031E-01_JPRB,1.6921E-01_JPRB,1.6199E-01_JPRB,1.4897E-01_JPRB,&
+ & 1.3092E-01_JPRB,1.1133E-01_JPRB,9.6760E-02_JPRB,9.3718E-02_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART6',1,ZHOOK_HANDLE)
+END SUBROUTINE PART6
+
+
+SUBROUTINE PART7
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART7',0,ZHOOK_HANDLE)
+
+
+KAO( :, 2, 7, 9) = (/&
+ & 2.1882E-01_JPRB,2.2087E-01_JPRB,2.2486E-01_JPRB,2.2286E-01_JPRB,2.1335E-01_JPRB,1.9615E-01_JPRB,&
+ & 1.7285E-01_JPRB,1.4695E-01_JPRB,1.2690E-01_JPRB,1.2096E-01_JPRB/)  
+KAO( :, 3, 7, 9) = (/&
+ & 2.7888E-01_JPRB,2.8306E-01_JPRB,2.8777E-01_JPRB,2.8469E-01_JPRB,2.7204E-01_JPRB,2.5033E-01_JPRB,&
+ & 2.2122E-01_JPRB,1.8786E-01_JPRB,1.6161E-01_JPRB,1.5296E-01_JPRB/)  
+KAO( :, 4, 7, 9) = (/&
+ & 3.4680E-01_JPRB,3.5385E-01_JPRB,3.5881E-01_JPRB,3.5420E-01_JPRB,3.3854E-01_JPRB,3.1188E-01_JPRB,&
+ & 2.7612E-01_JPRB,2.3528E-01_JPRB,2.0215E-01_JPRB,1.9095E-01_JPRB/)  
+KAO( :, 5, 7, 9) = (/&
+ & 4.2205E-01_JPRB,4.3215E-01_JPRB,4.3759E-01_JPRB,4.3127E-01_JPRB,4.1273E-01_JPRB,3.8116E-01_JPRB,&
+ & 3.3879E-01_JPRB,2.8948E-01_JPRB,2.4886E-01_JPRB,2.3560E-01_JPRB/)  
+KAO( :, 1, 8, 9) = (/&
+ & 1.3459E-01_JPRB,1.3692E-01_JPRB,1.4080E-01_JPRB,1.3971E-01_JPRB,1.3347E-01_JPRB,1.2262E-01_JPRB,&
+ & 1.0666E-01_JPRB,8.7305E-02_JPRB,7.1915E-02_JPRB,8.0038E-02_JPRB/)  
+KAO( :, 2, 8, 9) = (/&
+ & 1.7963E-01_JPRB,1.8442E-01_JPRB,1.8954E-01_JPRB,1.8806E-01_JPRB,1.7951E-01_JPRB,1.6497E-01_JPRB,&
+ & 1.4377E-01_JPRB,1.1758E-01_JPRB,9.6206E-02_JPRB,1.0094E-01_JPRB/)  
+KAO( :, 3, 8, 9) = (/&
+ & 2.3266E-01_JPRB,2.4033E-01_JPRB,2.4672E-01_JPRB,2.4454E-01_JPRB,2.3290E-01_JPRB,2.1424E-01_JPRB,&
+ & 1.8695E-01_JPRB,1.5303E-01_JPRB,1.2456E-01_JPRB,1.2568E-01_JPRB/)  
+KAO( :, 4, 8, 9) = (/&
+ & 2.9355E-01_JPRB,3.0495E-01_JPRB,3.1213E-01_JPRB,3.0852E-01_JPRB,2.9407E-01_JPRB,2.7020E-01_JPRB,&
+ & 2.3654E-01_JPRB,1.9451E-01_JPRB,1.5796E-01_JPRB,1.5516E-01_JPRB/)  
+KAO( :, 5, 8, 9) = (/&
+ & 3.6186E-01_JPRB,3.7725E-01_JPRB,3.8522E-01_JPRB,3.7996E-01_JPRB,3.6242E-01_JPRB,3.3355E-01_JPRB,&
+ & 2.9318E-01_JPRB,2.4229E-01_JPRB,1.9677E-01_JPRB,1.8992E-01_JPRB/)  
+KAO( :, 1, 9, 9) = (/&
+ & 1.0631E-01_JPRB,1.0993E-01_JPRB,1.1355E-01_JPRB,1.1237E-01_JPRB,1.0701E-01_JPRB,9.8207E-02_JPRB,&
+ & 8.5182E-02_JPRB,6.7755E-02_JPRB,5.2331E-02_JPRB,1.0492E-01_JPRB/)  
+KAO( :, 2, 9, 9) = (/&
+ & 1.4454E-01_JPRB,1.5090E-01_JPRB,1.5590E-01_JPRB,1.5444E-01_JPRB,1.4727E-01_JPRB,1.3526E-01_JPRB,&
+ & 1.1750E-01_JPRB,9.3259E-02_JPRB,7.1622E-02_JPRB,1.2467E-01_JPRB/)  
+KAO( :, 3, 9, 9) = (/&
+ & 1.9019E-01_JPRB,2.0011E-01_JPRB,2.0653E-01_JPRB,2.0466E-01_JPRB,1.9486E-01_JPRB,1.7904E-01_JPRB,&
+ & 1.5563E-01_JPRB,1.2364E-01_JPRB,9.4415E-02_JPRB,1.4740E-01_JPRB/)  
+KAO( :, 4, 9, 9) = (/&
+ & 2.4347E-01_JPRB,2.5775E-01_JPRB,2.6549E-01_JPRB,2.6241E-01_JPRB,2.4987E-01_JPRB,2.2949E-01_JPRB,&
+ & 1.9969E-01_JPRB,1.5939E-01_JPRB,1.2136E-01_JPRB,1.7369E-01_JPRB/)  
+KAO( :, 5, 9, 9) = (/&
+ & 3.0422E-01_JPRB,3.2317E-01_JPRB,3.3203E-01_JPRB,3.2777E-01_JPRB,3.1197E-01_JPRB,2.8664E-01_JPRB,&
+ & 2.5051E-01_JPRB,2.0084E-01_JPRB,1.5296E-01_JPRB,2.0398E-01_JPRB/)  
+KAO( :, 1,10, 9) = (/&
+ & 8.4350E-02_JPRB,8.8815E-02_JPRB,9.2007E-02_JPRB,9.0712E-02_JPRB,8.6235E-02_JPRB,7.8834E-02_JPRB,&
+ & 6.8251E-02_JPRB,5.3494E-02_JPRB,3.8569E-02_JPRB,2.8448E-01_JPRB/)  
+KAO( :, 2,10, 9) = (/&
+ & 1.1655E-01_JPRB,1.2396E-01_JPRB,1.2864E-01_JPRB,1.2700E-01_JPRB,1.2091E-01_JPRB,1.1076E-01_JPRB,&
+ & 9.6175E-02_JPRB,7.5206E-02_JPRB,5.3741E-02_JPRB,3.1183E-01_JPRB/)  
+KAO( :, 3,10, 9) = (/&
+ & 1.5575E-01_JPRB,1.6688E-01_JPRB,1.7302E-01_JPRB,1.7096E-01_JPRB,1.6280E-01_JPRB,1.4927E-01_JPRB,&
+ & 1.2964E-01_JPRB,1.0128E-01_JPRB,7.1998E-02_JPRB,3.4035E-01_JPRB/)  
+KAO( :, 4,10, 9) = (/&
+ & 2.0199E-01_JPRB,2.1771E-01_JPRB,2.2539E-01_JPRB,2.2239E-01_JPRB,2.1182E-01_JPRB,1.9426E-01_JPRB,&
+ & 1.6870E-01_JPRB,1.3220E-01_JPRB,9.3820E-02_JPRB,3.7022E-01_JPRB/)  
+KAO( :, 5,10, 9) = (/&
+ & 2.5543E-01_JPRB,2.7602E-01_JPRB,2.8512E-01_JPRB,2.8125E-01_JPRB,2.6776E-01_JPRB,2.4558E-01_JPRB,&
+ & 2.1379E-01_JPRB,1.6843E-01_JPRB,1.1967E-01_JPRB,4.0133E-01_JPRB/)  
+KAO( :, 1,11, 9) = (/&
+ & 7.7305E-02_JPRB,8.3512E-02_JPRB,8.6558E-02_JPRB,8.5115E-02_JPRB,8.0759E-02_JPRB,7.3668E-02_JPRB,&
+ & 6.3729E-02_JPRB,4.9798E-02_JPRB,3.3279E-02_JPRB,4.2331E-01_JPRB/)  
+KAO( :, 2,11, 9) = (/&
+ & 1.0674E-01_JPRB,1.1631E-01_JPRB,1.2074E-01_JPRB,1.1897E-01_JPRB,1.1306E-01_JPRB,1.0338E-01_JPRB,&
+ & 8.9693E-02_JPRB,6.9947E-02_JPRB,4.6392E-02_JPRB,4.5759E-01_JPRB/)  
+KAO( :, 3,11, 9) = (/&
+ & 1.4252E-01_JPRB,1.5630E-01_JPRB,1.6230E-01_JPRB,1.5989E-01_JPRB,1.5215E-01_JPRB,1.3931E-01_JPRB,&
+ & 1.2082E-01_JPRB,9.4229E-02_JPRB,6.2207E-02_JPRB,4.9301E-01_JPRB/)  
+KAO( :, 4,11, 9) = (/&
+ & 1.8495E-01_JPRB,2.0344E-01_JPRB,2.1113E-01_JPRB,2.0801E-01_JPRB,1.9807E-01_JPRB,1.8125E-01_JPRB,&
+ & 1.5734E-01_JPRB,1.2303E-01_JPRB,8.1307E-02_JPRB,5.3012E-01_JPRB/)  
+KAO( :, 5,11, 9) = (/&
+ & 2.3411E-01_JPRB,2.5783E-01_JPRB,2.6690E-01_JPRB,2.6303E-01_JPRB,2.5035E-01_JPRB,2.2944E-01_JPRB,&
+ & 1.9943E-01_JPRB,1.5658E-01_JPRB,1.0397E-01_JPRB,5.6789E-01_JPRB/)  
+KAO( :, 1,12, 9) = (/&
+ & 7.0108E-02_JPRB,7.7427E-02_JPRB,8.0063E-02_JPRB,7.8695E-02_JPRB,7.4412E-02_JPRB,6.7798E-02_JPRB,&
+ & 5.8710E-02_JPRB,4.5826E-02_JPRB,2.8701E-02_JPRB,4.8793E-01_JPRB/)  
+KAO( :, 2,12, 9) = (/&
+ & 9.6572E-02_JPRB,1.0765E-01_JPRB,1.1154E-01_JPRB,1.0976E-01_JPRB,1.0403E-01_JPRB,9.5053E-02_JPRB,&
+ & 8.2414E-02_JPRB,6.4355E-02_JPRB,4.0085E-02_JPRB,5.2480E-01_JPRB/)  
+KAO( :, 3,12, 9) = (/&
+ & 1.2890E-01_JPRB,1.4436E-01_JPRB,1.4960E-01_JPRB,1.4739E-01_JPRB,1.3992E-01_JPRB,1.2801E-01_JPRB,&
+ & 1.1096E-01_JPRB,8.6644E-02_JPRB,5.3975E-02_JPRB,5.6251E-01_JPRB/)  
+KAO( :, 4,12, 9) = (/&
+ & 1.6737E-01_JPRB,1.8778E-01_JPRB,1.9430E-01_JPRB,1.9165E-01_JPRB,1.8208E-01_JPRB,1.6659E-01_JPRB,&
+ & 1.4450E-01_JPRB,1.1307E-01_JPRB,7.0696E-02_JPRB,6.0183E-01_JPRB/)  
+KAO( :, 5,12, 9) = (/&
+ & 2.1186E-01_JPRB,2.3792E-01_JPRB,2.4587E-01_JPRB,2.4233E-01_JPRB,2.3021E-01_JPRB,2.1086E-01_JPRB,&
+ & 1.8327E-01_JPRB,1.4386E-01_JPRB,9.0292E-02_JPRB,6.4163E-01_JPRB/)  
+KAO( :, 1,13, 9) = (/&
+ & 6.2750E-02_JPRB,7.0678E-02_JPRB,7.2850E-02_JPRB,7.1358E-02_JPRB,6.7441E-02_JPRB,6.1433E-02_JPRB,&
+ & 5.3185E-02_JPRB,4.1505E-02_JPRB,2.4806E-02_JPRB,4.4700E-01_JPRB/)  
+KAO( :, 2,13, 9) = (/&
+ & 8.6316E-02_JPRB,9.8143E-02_JPRB,1.0134E-01_JPRB,9.9447E-02_JPRB,9.4210E-02_JPRB,8.6014E-02_JPRB,&
+ & 7.4526E-02_JPRB,5.8273E-02_JPRB,3.4743E-02_JPRB,4.8103E-01_JPRB/)  
+KAO( :, 3,13, 9) = (/&
+ & 1.1529E-01_JPRB,1.3156E-01_JPRB,1.3579E-01_JPRB,1.3346E-01_JPRB,1.2666E-01_JPRB,1.1573E-01_JPRB,&
+ & 1.0031E-01_JPRB,7.8511E-02_JPRB,4.6928E-02_JPRB,5.1606E-01_JPRB/)  
+KAO( :, 4,13, 9) = (/&
+ & 1.4976E-01_JPRB,1.7104E-01_JPRB,1.7643E-01_JPRB,1.7358E-01_JPRB,1.6473E-01_JPRB,1.5058E-01_JPRB,&
+ & 1.3067E-01_JPRB,1.0249E-01_JPRB,6.1551E-02_JPRB,5.5224E-01_JPRB/)  
+KAO( :, 5,13, 9) = (/&
+ & 1.8964E-01_JPRB,2.1656E-01_JPRB,2.2339E-01_JPRB,2.1970E-01_JPRB,2.0856E-01_JPRB,1.9074E-01_JPRB,&
+ & 1.6575E-01_JPRB,1.3031E-01_JPRB,7.8382E-02_JPRB,5.8913E-01_JPRB/)  
+KAO( :, 1, 1,10) = (/&
+ & 6.1867E-01_JPRB,5.7630E-01_JPRB,6.0305E-01_JPRB,6.9456E-01_JPRB,7.7261E-01_JPRB,8.1005E-01_JPRB,&
+ & 8.2424E-01_JPRB,7.8487E-01_JPRB,7.9716E-01_JPRB,8.1097E-01_JPRB/)  
+KAO( :, 2, 1,10) = (/&
+ & 7.5538E-01_JPRB,7.0706E-01_JPRB,7.4825E-01_JPRB,8.6573E-01_JPRB,9.5133E-01_JPRB,9.9496E-01_JPRB,&
+ & 1.0144E+00_JPRB,9.4349E-01_JPRB,9.7510E-01_JPRB,9.8557E-01_JPRB/)  
+KAO( :, 3, 1,10) = (/&
+ & 9.0753E-01_JPRB,8.5431E-01_JPRB,9.0954E-01_JPRB,1.0504E+00_JPRB,1.1439E+00_JPRB,1.1961E+00_JPRB,&
+ & 1.2138E+00_JPRB,1.1038E+00_JPRB,1.1635E+00_JPRB,1.1729E+00_JPRB/)  
+KAO( :, 4, 1,10) = (/&
+ & 1.0717E+00_JPRB,1.0134E+00_JPRB,1.0876E+00_JPRB,1.2471E+00_JPRB,1.3505E+00_JPRB,1.4049E+00_JPRB,&
+ & 1.4219E+00_JPRB,1.2915E+00_JPRB,1.3878E+00_JPRB,1.3991E+00_JPRB/)  
+KAO( :, 5, 1,10) = (/&
+ & 1.2427E+00_JPRB,1.1827E+00_JPRB,1.2833E+00_JPRB,1.4504E+00_JPRB,1.5635E+00_JPRB,1.6298E+00_JPRB,&
+ & 1.6597E+00_JPRB,1.4857E+00_JPRB,1.6414E+00_JPRB,1.6460E+00_JPRB/)  
+KAO( :, 1, 2,10) = (/&
+ & 6.4321E-01_JPRB,5.8696E-01_JPRB,5.8230E-01_JPRB,6.5619E-01_JPRB,7.1556E-01_JPRB,7.4170E-01_JPRB,&
+ & 7.6071E-01_JPRB,7.3912E-01_JPRB,7.4532E-01_JPRB,7.5850E-01_JPRB/)  
+KAO( :, 2, 2,10) = (/&
+ & 7.8984E-01_JPRB,7.2453E-01_JPRB,7.3316E-01_JPRB,8.2574E-01_JPRB,8.9339E-01_JPRB,9.2578E-01_JPRB,&
+ & 9.3666E-01_JPRB,8.9172E-01_JPRB,9.0627E-01_JPRB,9.2412E-01_JPRB/)  
+KAO( :, 3, 2,10) = (/&
+ & 9.4869E-01_JPRB,8.7312E-01_JPRB,8.9992E-01_JPRB,1.0108E+00_JPRB,1.0906E+00_JPRB,1.1228E+00_JPRB,&
+ & 1.1184E+00_JPRB,1.0532E+00_JPRB,1.0816E+00_JPRB,1.1050E+00_JPRB/)  
+KAO( :, 4, 2,10) = (/&
+ & 1.1182E+00_JPRB,1.0333E+00_JPRB,1.0816E+00_JPRB,1.2099E+00_JPRB,1.2991E+00_JPRB,1.3295E+00_JPRB,&
+ & 1.3183E+00_JPRB,1.2305E+00_JPRB,1.2865E+00_JPRB,1.3109E+00_JPRB/)  
+KAO( :, 5, 2,10) = (/&
+ & 1.2953E+00_JPRB,1.2046E+00_JPRB,1.2743E+00_JPRB,1.4197E+00_JPRB,1.5179E+00_JPRB,1.5565E+00_JPRB,&
+ & 1.5463E+00_JPRB,1.4061E+00_JPRB,1.5050E+00_JPRB,1.5282E+00_JPRB/)  
+KAO( :, 1, 3,10) = (/&
+ & 6.2757E-01_JPRB,5.7473E-01_JPRB,5.5914E-01_JPRB,5.8172E-01_JPRB,6.2887E-01_JPRB,6.5014E-01_JPRB,&
+ & 6.7802E-01_JPRB,6.5904E-01_JPRB,6.5934E-01_JPRB,6.7295E-01_JPRB/)  
+KAO( :, 2, 3,10) = (/&
+ & 7.8418E-01_JPRB,7.1588E-01_JPRB,7.0607E-01_JPRB,7.4238E-01_JPRB,8.0014E-01_JPRB,8.1822E-01_JPRB,&
+ & 8.4016E-01_JPRB,8.0936E-01_JPRB,8.1484E-01_JPRB,8.2805E-01_JPRB/)  
+KAO( :, 3, 3,10) = (/&
+ & 9.6014E-01_JPRB,8.7612E-01_JPRB,8.6845E-01_JPRB,9.2232E-01_JPRB,9.9214E-01_JPRB,9.9810E-01_JPRB,&
+ & 1.0104E+00_JPRB,9.7306E-01_JPRB,9.8869E-01_JPRB,1.0030E+00_JPRB/)  
+KAO( :, 4, 3,10) = (/&
+ & 1.1436E+00_JPRB,1.0500E+00_JPRB,1.0473E+00_JPRB,1.1216E+00_JPRB,1.1992E+00_JPRB,1.1909E+00_JPRB,&
+ & 1.1979E+00_JPRB,1.1493E+00_JPRB,1.1843E+00_JPRB,1.2028E+00_JPRB/)  
+KAO( :, 5, 3,10) = (/&
+ & 1.3363E+00_JPRB,1.2288E+00_JPRB,1.2400E+00_JPRB,1.3328E+00_JPRB,1.4189E+00_JPRB,1.4085E+00_JPRB,&
+ & 1.4054E+00_JPRB,1.3326E+00_JPRB,1.3952E+00_JPRB,1.4190E+00_JPRB/)  
+KAO( :, 1, 4,10) = (/&
+ & 6.0902E-01_JPRB,5.5865E-01_JPRB,5.2875E-01_JPRB,5.1792E-01_JPRB,5.4518E-01_JPRB,5.6325E-01_JPRB,&
+ & 5.8877E-01_JPRB,5.8387E-01_JPRB,5.8206E-01_JPRB,5.9308E-01_JPRB/)  
+KAO( :, 2, 4,10) = (/&
+ & 7.6140E-01_JPRB,6.9912E-01_JPRB,6.7757E-01_JPRB,6.6690E-01_JPRB,7.0327E-01_JPRB,7.2305E-01_JPRB,&
+ & 7.4172E-01_JPRB,7.2030E-01_JPRB,7.2068E-01_JPRB,7.3161E-01_JPRB/)  
+KAO( :, 3, 4,10) = (/&
+ & 9.4002E-01_JPRB,8.6365E-01_JPRB,8.4366E-01_JPRB,8.3795E-01_JPRB,8.8109E-01_JPRB,8.9279E-01_JPRB,&
+ & 9.0652E-01_JPRB,8.7018E-01_JPRB,8.7595E-01_JPRB,8.8773E-01_JPRB/)  
+KAO( :, 4, 4,10) = (/&
+ & 1.1361E+00_JPRB,1.0471E+00_JPRB,1.0239E+00_JPRB,1.0291E+00_JPRB,1.0729E+00_JPRB,1.0769E+00_JPRB,&
+ & 1.0898E+00_JPRB,1.0370E+00_JPRB,1.0554E+00_JPRB,1.0680E+00_JPRB/)  
+KAO( :, 5, 4,10) = (/&
+ & 1.3459E+00_JPRB,1.2415E+00_JPRB,1.2200E+00_JPRB,1.2343E+00_JPRB,1.2811E+00_JPRB,1.2812E+00_JPRB,&
+ & 1.2941E+00_JPRB,1.2225E+00_JPRB,1.2598E+00_JPRB,1.2702E+00_JPRB/)  
+KAO( :, 1, 5,10) = (/&
+ & 5.7515E-01_JPRB,5.3232E-01_JPRB,5.0391E-01_JPRB,4.7978E-01_JPRB,4.6984E-01_JPRB,4.8839E-01_JPRB,&
+ & 5.1587E-01_JPRB,5.0590E-01_JPRB,5.0049E-01_JPRB,4.9518E-01_JPRB/)  
+KAO( :, 2, 5,10) = (/&
+ & 7.3128E-01_JPRB,6.7406E-01_JPRB,6.4811E-01_JPRB,6.2049E-01_JPRB,6.1868E-01_JPRB,6.3401E-01_JPRB,&
+ & 6.5439E-01_JPRB,6.3488E-01_JPRB,6.3015E-01_JPRB,6.2410E-01_JPRB/)  
+KAO( :, 3, 5,10) = (/&
+ & 9.0920E-01_JPRB,8.3759E-01_JPRB,8.1835E-01_JPRB,7.8435E-01_JPRB,7.8487E-01_JPRB,7.9695E-01_JPRB,&
+ & 8.0516E-01_JPRB,7.7727E-01_JPRB,7.7504E-01_JPRB,7.7636E-01_JPRB/)  
+KAO( :, 4, 5,10) = (/&
+ & 1.1099E+00_JPRB,1.0245E+00_JPRB,1.0070E+00_JPRB,9.7052E-01_JPRB,9.6348E-01_JPRB,9.7780E-01_JPRB,&
+ & 9.7649E-01_JPRB,9.3660E-01_JPRB,9.3973E-01_JPRB,9.4451E-01_JPRB/)  
+KAO( :, 5, 5,10) = (/&
+ & 1.3305E+00_JPRB,1.2272E+00_JPRB,1.2112E+00_JPRB,1.1732E+00_JPRB,1.1594E+00_JPRB,1.1784E+00_JPRB,&
+ & 1.1704E+00_JPRB,1.1112E+00_JPRB,1.1263E+00_JPRB,1.1272E+00_JPRB/)  
+KAO( :, 1, 6,10) = (/&
+ & 5.3624E-01_JPRB,4.9966E-01_JPRB,4.7124E-01_JPRB,4.4396E-01_JPRB,4.1309E-01_JPRB,4.1799E-01_JPRB,&
+ & 4.3204E-01_JPRB,4.1689E-01_JPRB,4.0796E-01_JPRB,4.0296E-01_JPRB/)  
+KAO( :, 2, 6,10) = (/&
+ & 6.9086E-01_JPRB,6.4214E-01_JPRB,6.1471E-01_JPRB,5.8168E-01_JPRB,5.4576E-01_JPRB,5.5331E-01_JPRB,&
+ & 5.6106E-01_JPRB,5.3207E-01_JPRB,5.1983E-01_JPRB,5.1381E-01_JPRB/)  
+KAO( :, 3, 6,10) = (/&
+ & 8.6785E-01_JPRB,8.0700E-01_JPRB,7.8156E-01_JPRB,7.4169E-01_JPRB,7.0281E-01_JPRB,7.0090E-01_JPRB,&
+ & 7.0317E-01_JPRB,6.6880E-01_JPRB,6.5685E-01_JPRB,6.4884E-01_JPRB/)  
+KAO( :, 4, 6,10) = (/&
+ & 1.0625E+00_JPRB,9.9150E-01_JPRB,9.7284E-01_JPRB,9.2583E-01_JPRB,8.7592E-01_JPRB,8.6864E-01_JPRB,&
+ & 8.6733E-01_JPRB,8.2238E-01_JPRB,8.1245E-01_JPRB,8.0011E-01_JPRB/)  
+KAO( :, 5, 6,10) = (/&
+ & 1.2823E+00_JPRB,1.1975E+00_JPRB,1.1856E+00_JPRB,1.1255E+00_JPRB,1.0659E+00_JPRB,1.0612E+00_JPRB,&
+ & 1.0498E+00_JPRB,9.8546E-01_JPRB,9.8371E-01_JPRB,9.6751E-01_JPRB/)  
+KAO( :, 1, 7,10) = (/&
+ & 4.8822E-01_JPRB,4.5431E-01_JPRB,4.2346E-01_JPRB,3.9680E-01_JPRB,3.7415E-01_JPRB,3.5071E-01_JPRB,&
+ & 3.5118E-01_JPRB,3.4152E-01_JPRB,3.3119E-01_JPRB,3.2558E-01_JPRB/)  
+KAO( :, 2, 7,10) = (/&
+ & 6.4341E-01_JPRB,5.9836E-01_JPRB,5.6565E-01_JPRB,5.3167E-01_JPRB,5.0027E-01_JPRB,4.7116E-01_JPRB,&
+ & 4.6350E-01_JPRB,4.4353E-01_JPRB,4.2884E-01_JPRB,4.2493E-01_JPRB/)  
+KAO( :, 3, 7,10) = (/&
+ & 8.2158E-01_JPRB,7.6606E-01_JPRB,7.3098E-01_JPRB,6.8632E-01_JPRB,6.4732E-01_JPRB,6.1167E-01_JPRB,&
+ & 5.9535E-01_JPRB,5.6548E-01_JPRB,5.4739E-01_JPRB,5.4288E-01_JPRB/)  
+KAO( :, 4, 7,10) = (/&
+ & 1.0179E+00_JPRB,9.5156E-01_JPRB,9.1785E-01_JPRB,8.6567E-01_JPRB,8.1404E-01_JPRB,7.7261E-01_JPRB,&
+ & 7.5332E-01_JPRB,7.0277E-01_JPRB,6.8164E-01_JPRB,6.6834E-01_JPRB/)  
+KAO( :, 5, 7,10) = (/&
+ & 1.2332E+00_JPRB,1.1568E+00_JPRB,1.1270E+00_JPRB,1.0643E+00_JPRB,1.0019E+00_JPRB,9.5490E-01_JPRB,&
+ & 9.2760E-01_JPRB,8.5293E-01_JPRB,8.3234E-01_JPRB,8.1269E-01_JPRB/)  
+KAO( :, 1, 8,10) = (/&
+ & 4.2698E-01_JPRB,3.9591E-01_JPRB,3.6905E-01_JPRB,3.5247E-01_JPRB,3.3247E-01_JPRB,3.0233E-01_JPRB,&
+ & 2.8539E-01_JPRB,2.7613E-01_JPRB,2.6380E-01_JPRB,2.5566E-01_JPRB/)  
+KAO( :, 2, 8,10) = (/&
+ & 5.7792E-01_JPRB,5.3599E-01_JPRB,5.0504E-01_JPRB,4.7965E-01_JPRB,4.5454E-01_JPRB,4.1047E-01_JPRB,&
+ & 3.8401E-01_JPRB,3.6795E-01_JPRB,3.5022E-01_JPRB,3.4085E-01_JPRB/)  
+KAO( :, 3, 8,10) = (/&
+ & 7.5312E-01_JPRB,7.0208E-01_JPRB,6.6433E-01_JPRB,6.2807E-01_JPRB,5.9800E-01_JPRB,5.3750E-01_JPRB,&
+ & 5.0237E-01_JPRB,4.7916E-01_JPRB,4.5629E-01_JPRB,4.4355E-01_JPRB/)  
+KAO( :, 4, 8,10) = (/&
+ & 9.4927E-01_JPRB,8.8669E-01_JPRB,8.4547E-01_JPRB,8.0194E-01_JPRB,7.5725E-01_JPRB,6.9205E-01_JPRB,&
+ & 6.4511E-01_JPRB,6.0026E-01_JPRB,5.7127E-01_JPRB,5.5530E-01_JPRB/)  
+KAO( :, 5, 8,10) = (/&
+ & 1.1639E+00_JPRB,1.0911E+00_JPRB,1.0454E+00_JPRB,9.9552E-01_JPRB,9.4083E-01_JPRB,8.6800E-01_JPRB,&
+ & 8.0258E-01_JPRB,7.3309E-01_JPRB,6.9987E-01_JPRB,6.8251E-01_JPRB/)  
+KAO( :, 1, 9,10) = (/&
+ & 3.5900E-01_JPRB,3.3445E-01_JPRB,3.1730E-01_JPRB,3.0609E-01_JPRB,2.8916E-01_JPRB,2.6120E-01_JPRB,&
+ & 2.3361E-01_JPRB,2.1576E-01_JPRB,2.0240E-01_JPRB,3.1625E-01_JPRB/)  
+KAO( :, 2, 9,10) = (/&
+ & 4.9875E-01_JPRB,4.6530E-01_JPRB,4.4401E-01_JPRB,4.2786E-01_JPRB,4.0336E-01_JPRB,3.6326E-01_JPRB,&
+ & 3.2063E-01_JPRB,2.9583E-01_JPRB,2.7549E-01_JPRB,3.9596E-01_JPRB/)  
+KAO( :, 3, 9,10) = (/&
+ & 6.6489E-01_JPRB,6.2199E-01_JPRB,5.9558E-01_JPRB,5.7021E-01_JPRB,5.3875E-01_JPRB,4.8355E-01_JPRB,&
+ & 4.2692E-01_JPRB,3.9415E-01_JPRB,3.6637E-01_JPRB,4.8553E-01_JPRB/)  
+KAO( :, 4, 9,10) = (/&
+ & 8.5340E-01_JPRB,8.0059E-01_JPRB,7.6830E-01_JPRB,7.3710E-01_JPRB,6.9306E-01_JPRB,6.2454E-01_JPRB,&
+ & 5.5697E-01_JPRB,5.0419E-01_JPRB,4.6742E-01_JPRB,5.7732E-01_JPRB/)  
+KAO( :, 5, 9,10) = (/&
+ & 1.0646E+00_JPRB,1.0028E+00_JPRB,9.6218E-01_JPRB,9.2180E-01_JPRB,8.7012E-01_JPRB,7.9202E-01_JPRB,&
+ & 6.9796E-01_JPRB,6.2710E-01_JPRB,5.8174E-01_JPRB,6.5582E-01_JPRB/)  
+KAO( :, 1,10,10) = (/&
+ & 3.0304E-01_JPRB,2.8397E-01_JPRB,2.7440E-01_JPRB,2.6814E-01_JPRB,2.5119E-01_JPRB,2.2864E-01_JPRB,&
+ & 1.9712E-01_JPRB,1.7067E-01_JPRB,1.5439E-01_JPRB,6.7616E-01_JPRB/)  
+KAO( :, 2,10,10) = (/&
+ & 4.3039E-01_JPRB,4.0463E-01_JPRB,3.9135E-01_JPRB,3.8116E-01_JPRB,3.5873E-01_JPRB,3.2509E-01_JPRB,&
+ & 2.7758E-01_JPRB,2.3881E-01_JPRB,2.1708E-01_JPRB,7.4040E-01_JPRB/)  
+KAO( :, 3,10,10) = (/&
+ & 5.8308E-01_JPRB,5.5089E-01_JPRB,5.3392E-01_JPRB,5.1881E-01_JPRB,4.8588E-01_JPRB,4.3969E-01_JPRB,&
+ & 3.7659E-01_JPRB,3.2471E-01_JPRB,2.9357E-01_JPRB,8.1103E-01_JPRB/)  
+KAO( :, 4,10,10) = (/&
+ & 7.6072E-01_JPRB,7.2098E-01_JPRB,6.9990E-01_JPRB,6.8047E-01_JPRB,6.3309E-01_JPRB,5.7383E-01_JPRB,&
+ & 4.9589E-01_JPRB,4.2336E-01_JPRB,3.8001E-01_JPRB,8.9328E-01_JPRB/)  
+KAO( :, 5,10,10) = (/&
+ & 9.6027E-01_JPRB,9.1775E-01_JPRB,8.8924E-01_JPRB,8.5893E-01_JPRB,8.0372E-01_JPRB,7.2911E-01_JPRB,&
+ & 6.3058E-01_JPRB,5.3610E-01_JPRB,4.7858E-01_JPRB,1.0024E+00_JPRB/)  
+KAO( :, 1,11,10) = (/&
+ & 2.9953E-01_JPRB,2.8331E-01_JPRB,2.7926E-01_JPRB,2.7321E-01_JPRB,2.5698E-01_JPRB,2.3318E-01_JPRB,&
+ & 1.9872E-01_JPRB,1.5868E-01_JPRB,1.3779E-01_JPRB,1.1107E+00_JPRB/)  
+KAO( :, 2,11,10) = (/&
+ & 4.2474E-01_JPRB,4.0404E-01_JPRB,3.9781E-01_JPRB,3.8780E-01_JPRB,3.6438E-01_JPRB,3.3087E-01_JPRB,&
+ & 2.8103E-01_JPRB,2.2386E-01_JPRB,1.9434E-01_JPRB,1.2029E+00_JPRB/)  
+KAO( :, 3,11,10) = (/&
+ & 5.7442E-01_JPRB,5.4924E-01_JPRB,5.3961E-01_JPRB,5.2667E-01_JPRB,4.9259E-01_JPRB,4.4653E-01_JPRB,&
+ & 3.8245E-01_JPRB,3.0341E-01_JPRB,2.6142E-01_JPRB,1.2915E+00_JPRB/)  
+KAO( :, 4,11,10) = (/&
+ & 7.4813E-01_JPRB,7.2159E-01_JPRB,7.0602E-01_JPRB,6.8759E-01_JPRB,6.4029E-01_JPRB,5.8462E-01_JPRB,&
+ & 4.9983E-01_JPRB,3.9642E-01_JPRB,3.3795E-01_JPRB,1.3704E+00_JPRB/)  
+KAO( :, 5,11,10) = (/&
+ & 9.4256E-01_JPRB,9.1581E-01_JPRB,8.9684E-01_JPRB,8.6915E-01_JPRB,8.1278E-01_JPRB,7.3805E-01_JPRB,&
+ & 6.3353E-01_JPRB,5.0310E-01_JPRB,4.2644E-01_JPRB,1.4638E+00_JPRB/)  
+KAO( :, 1,12,10) = (/&
+ & 2.9002E-01_JPRB,2.7890E-01_JPRB,2.8045E-01_JPRB,2.7244E-01_JPRB,2.5769E-01_JPRB,2.3303E-01_JPRB,&
+ & 1.9729E-01_JPRB,1.5119E-01_JPRB,1.2251E-01_JPRB,1.4129E+00_JPRB/)  
+KAO( :, 2,12,10) = (/&
+ & 4.1026E-01_JPRB,3.9679E-01_JPRB,3.9830E-01_JPRB,3.8652E-01_JPRB,3.6420E-01_JPRB,3.2847E-01_JPRB,&
+ & 2.8036E-01_JPRB,2.1376E-01_JPRB,1.7058E-01_JPRB,1.5197E+00_JPRB/)  
+KAO( :, 3,12,10) = (/&
+ & 5.5455E-01_JPRB,5.4038E-01_JPRB,5.4011E-01_JPRB,5.2208E-01_JPRB,4.9107E-01_JPRB,4.4447E-01_JPRB,&
+ & 3.8090E-01_JPRB,2.8868E-01_JPRB,2.2751E-01_JPRB,1.6225E+00_JPRB/)  
+KAO( :, 4,12,10) = (/&
+ & 7.2014E-01_JPRB,7.0695E-01_JPRB,7.0633E-01_JPRB,6.7903E-01_JPRB,6.3973E-01_JPRB,5.8007E-01_JPRB,&
+ & 4.9576E-01_JPRB,3.7656E-01_JPRB,2.9460E-01_JPRB,1.7134E+00_JPRB/)  
+KAO( :, 5,12,10) = (/&
+ & 9.0944E-01_JPRB,8.9423E-01_JPRB,8.9075E-01_JPRB,8.5941E-01_JPRB,8.0946E-01_JPRB,7.3161E-01_JPRB,&
+ & 6.2652E-01_JPRB,4.7880E-01_JPRB,3.7532E-01_JPRB,1.8224E+00_JPRB/)  
+KAO( :, 1,13,10) = (/&
+ & 2.7340E-01_JPRB,2.7076E-01_JPRB,2.7526E-01_JPRB,2.6770E-01_JPRB,2.5179E-01_JPRB,2.2675E-01_JPRB,&
+ & 1.9245E-01_JPRB,1.4682E-01_JPRB,1.0619E-01_JPRB,1.4210E+00_JPRB/)  
+KAO( :, 2,13,10) = (/&
+ & 3.8641E-01_JPRB,3.8425E-01_JPRB,3.8930E-01_JPRB,3.7816E-01_JPRB,3.5501E-01_JPRB,3.1994E-01_JPRB,&
+ & 2.7350E-01_JPRB,2.0671E-01_JPRB,1.4761E-01_JPRB,1.5251E+00_JPRB/)  
+KAO( :, 3,13,10) = (/&
+ & 5.2089E-01_JPRB,5.2113E-01_JPRB,5.2738E-01_JPRB,5.0973E-01_JPRB,4.7827E-01_JPRB,4.3346E-01_JPRB,&
+ & 3.6991E-01_JPRB,2.7849E-01_JPRB,1.9608E-01_JPRB,1.6238E+00_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART7',1,ZHOOK_HANDLE)
+END SUBROUTINE PART7
+
+
+SUBROUTINE PART8
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART8',0,ZHOOK_HANDLE)
+
+
+KAO( :, 4,13,10) = (/&
+ & 6.7786E-01_JPRB,6.7938E-01_JPRB,6.8608E-01_JPRB,6.6233E-01_JPRB,6.2421E-01_JPRB,5.6410E-01_JPRB,&
+ & 4.8140E-01_JPRB,3.6259E-01_JPRB,2.5473E-01_JPRB,1.7230E+00_JPRB/)  
+KAO( :, 5,13,10) = (/&
+ & 8.5711E-01_JPRB,8.6068E-01_JPRB,8.6472E-01_JPRB,8.3617E-01_JPRB,7.8602E-01_JPRB,7.1217E-01_JPRB,&
+ & 6.0760E-01_JPRB,4.5966E-01_JPRB,3.2905E-01_JPRB,1.8345E+00_JPRB/)  
+KAO( :, 1, 1,11) = (/&
+ & 9.4159E-01_JPRB,8.6910E-01_JPRB,9.4939E-01_JPRB,1.0309E+00_JPRB,1.0971E+00_JPRB,1.1597E+00_JPRB,&
+ & 1.1573E+00_JPRB,1.0198E+00_JPRB,1.1259E+00_JPRB,1.1444E+00_JPRB/)  
+KAO( :, 2, 1,11) = (/&
+ & 1.1816E+00_JPRB,1.0903E+00_JPRB,1.1681E+00_JPRB,1.2491E+00_JPRB,1.3524E+00_JPRB,1.4252E+00_JPRB,&
+ & 1.4017E+00_JPRB,1.2548E+00_JPRB,1.3885E+00_JPRB,1.4161E+00_JPRB/)  
+KAO( :, 3, 1,11) = (/&
+ & 1.4457E+00_JPRB,1.3338E+00_JPRB,1.4098E+00_JPRB,1.4943E+00_JPRB,1.6257E+00_JPRB,1.6966E+00_JPRB,&
+ & 1.6615E+00_JPRB,1.5145E+00_JPRB,1.6823E+00_JPRB,1.7160E+00_JPRB/)  
+KAO( :, 4, 1,11) = (/&
+ & 1.7261E+00_JPRB,1.5936E+00_JPRB,1.6676E+00_JPRB,1.7640E+00_JPRB,1.9034E+00_JPRB,1.9816E+00_JPRB,&
+ & 1.9375E+00_JPRB,1.7904E+00_JPRB,1.9915E+00_JPRB,2.0290E+00_JPRB/)  
+KAO( :, 5, 1,11) = (/&
+ & 2.0222E+00_JPRB,1.8664E+00_JPRB,1.9402E+00_JPRB,2.0588E+00_JPRB,2.1886E+00_JPRB,2.2719E+00_JPRB,&
+ & 2.2171E+00_JPRB,2.1130E+00_JPRB,2.3320E+00_JPRB,2.3861E+00_JPRB/)  
+KAO( :, 1, 2,11) = (/&
+ & 8.8414E-01_JPRB,8.3470E-01_JPRB,9.0122E-01_JPRB,9.8198E-01_JPRB,1.0450E+00_JPRB,1.0902E+00_JPRB,&
+ & 1.0770E+00_JPRB,9.4855E-01_JPRB,1.0386E+00_JPRB,1.0581E+00_JPRB/)  
+KAO( :, 2, 2,11) = (/&
+ & 1.1143E+00_JPRB,1.0550E+00_JPRB,1.1151E+00_JPRB,1.2176E+00_JPRB,1.3030E+00_JPRB,1.3437E+00_JPRB,&
+ & 1.3207E+00_JPRB,1.1746E+00_JPRB,1.3022E+00_JPRB,1.3229E+00_JPRB/)  
+KAO( :, 3, 2,11) = (/&
+ & 1.3705E+00_JPRB,1.3001E+00_JPRB,1.3557E+00_JPRB,1.4797E+00_JPRB,1.5774E+00_JPRB,1.6133E+00_JPRB,&
+ & 1.5892E+00_JPRB,1.4167E+00_JPRB,1.5912E+00_JPRB,1.6096E+00_JPRB/)  
+KAO( :, 4, 2,11) = (/&
+ & 1.6529E+00_JPRB,1.5667E+00_JPRB,1.6252E+00_JPRB,1.7602E+00_JPRB,1.8638E+00_JPRB,1.8995E+00_JPRB,&
+ & 1.8687E+00_JPRB,1.6782E+00_JPRB,1.8967E+00_JPRB,1.9189E+00_JPRB/)  
+KAO( :, 5, 2,11) = (/&
+ & 1.9543E+00_JPRB,1.8492E+00_JPRB,1.9198E+00_JPRB,2.0574E+00_JPRB,2.1583E+00_JPRB,2.1944E+00_JPRB,&
+ & 2.1594E+00_JPRB,1.9939E+00_JPRB,2.2472E+00_JPRB,2.2791E+00_JPRB/)  
+KAO( :, 1, 3,11) = (/&
+ & 8.1869E-01_JPRB,7.7023E-01_JPRB,8.2109E-01_JPRB,8.8336E-01_JPRB,9.2805E-01_JPRB,9.6128E-01_JPRB,&
+ & 9.4856E-01_JPRB,8.5843E-01_JPRB,9.1983E-01_JPRB,9.4743E-01_JPRB/)  
+KAO( :, 2, 3,11) = (/&
+ & 1.0389E+00_JPRB,9.8615E-01_JPRB,1.0345E+00_JPRB,1.1256E+00_JPRB,1.1752E+00_JPRB,1.2020E+00_JPRB,&
+ & 1.1857E+00_JPRB,1.0608E+00_JPRB,1.1599E+00_JPRB,1.1854E+00_JPRB/)  
+KAO( :, 3, 3,11) = (/&
+ & 1.2826E+00_JPRB,1.2250E+00_JPRB,1.2747E+00_JPRB,1.3968E+00_JPRB,1.4383E+00_JPRB,1.4671E+00_JPRB,&
+ & 1.4487E+00_JPRB,1.2721E+00_JPRB,1.4175E+00_JPRB,1.4350E+00_JPRB/)  
+KAO( :, 4, 3,11) = (/&
+ & 1.5564E+00_JPRB,1.4865E+00_JPRB,1.5447E+00_JPRB,1.6881E+00_JPRB,1.7201E+00_JPRB,1.7557E+00_JPRB,&
+ & 1.7225E+00_JPRB,1.5035E+00_JPRB,1.6929E+00_JPRB,1.7100E+00_JPRB/)  
+KAO( :, 5, 3,11) = (/&
+ & 1.8539E+00_JPRB,1.7704E+00_JPRB,1.8370E+00_JPRB,1.9889E+00_JPRB,2.0183E+00_JPRB,2.0511E+00_JPRB,&
+ & 2.0075E+00_JPRB,1.7816E+00_JPRB,2.0126E+00_JPRB,2.0331E+00_JPRB/)  
+KAO( :, 1, 4,11) = (/&
+ & 7.6497E-01_JPRB,7.1076E-01_JPRB,7.3295E-01_JPRB,7.7006E-01_JPRB,7.9642E-01_JPRB,8.2481E-01_JPRB,&
+ & 8.2608E-01_JPRB,7.5993E-01_JPRB,8.0777E-01_JPRB,8.2848E-01_JPRB/)  
+KAO( :, 2, 4,11) = (/&
+ & 9.8352E-01_JPRB,9.1857E-01_JPRB,9.4611E-01_JPRB,1.0073E+00_JPRB,1.0282E+00_JPRB,1.0497E+00_JPRB,&
+ & 1.0467E+00_JPRB,9.5389E-01_JPRB,1.0316E+00_JPRB,1.0517E+00_JPRB/)  
+KAO( :, 3, 4,11) = (/&
+ & 1.2292E+00_JPRB,1.1512E+00_JPRB,1.1846E+00_JPRB,1.2709E+00_JPRB,1.2824E+00_JPRB,1.3065E+00_JPRB,&
+ & 1.2899E+00_JPRB,1.1574E+00_JPRB,1.2650E+00_JPRB,1.2904E+00_JPRB/)  
+KAO( :, 4, 4,11) = (/&
+ & 1.5012E+00_JPRB,1.4093E+00_JPRB,1.4510E+00_JPRB,1.5565E+00_JPRB,1.5637E+00_JPRB,1.5870E+00_JPRB,&
+ & 1.5399E+00_JPRB,1.3774E+00_JPRB,1.5183E+00_JPRB,1.5518E+00_JPRB/)  
+KAO( :, 5, 4,11) = (/&
+ & 1.7934E+00_JPRB,1.6886E+00_JPRB,1.7434E+00_JPRB,1.8620E+00_JPRB,1.8667E+00_JPRB,1.8779E+00_JPRB,&
+ & 1.8058E+00_JPRB,1.6243E+00_JPRB,1.8061E+00_JPRB,1.8476E+00_JPRB/)  
+KAO( :, 1, 5,11) = (/&
+ & 7.4548E-01_JPRB,6.7814E-01_JPRB,6.5476E-01_JPRB,6.5948E-01_JPRB,6.7934E-01_JPRB,7.0788E-01_JPRB,&
+ & 7.1745E-01_JPRB,6.7353E-01_JPRB,7.0461E-01_JPRB,7.3099E-01_JPRB/)  
+KAO( :, 2, 5,11) = (/&
+ & 9.5969E-01_JPRB,8.7825E-01_JPRB,8.6017E-01_JPRB,8.8155E-01_JPRB,8.9239E-01_JPRB,9.1670E-01_JPRB,&
+ & 9.2708E-01_JPRB,8.5000E-01_JPRB,9.0728E-01_JPRB,9.3032E-01_JPRB/)  
+KAO( :, 3, 5,11) = (/&
+ & 1.2058E+00_JPRB,1.1099E+00_JPRB,1.0960E+00_JPRB,1.1330E+00_JPRB,1.1377E+00_JPRB,1.1558E+00_JPRB,&
+ & 1.1565E+00_JPRB,1.0416E+00_JPRB,1.1278E+00_JPRB,1.1476E+00_JPRB/)  
+KAO( :, 4, 5,11) = (/&
+ & 1.4810E+00_JPRB,1.3671E+00_JPRB,1.3639E+00_JPRB,1.4095E+00_JPRB,1.4162E+00_JPRB,1.4159E+00_JPRB,&
+ & 1.3960E+00_JPRB,1.2531E+00_JPRB,1.3726E+00_JPRB,1.3940E+00_JPRB/)  
+KAO( :, 5, 5,11) = (/&
+ & 1.7798E+00_JPRB,1.6471E+00_JPRB,1.6584E+00_JPRB,1.7100E+00_JPRB,1.7173E+00_JPRB,1.6890E+00_JPRB,&
+ & 1.6525E+00_JPRB,1.4879E+00_JPRB,1.6471E+00_JPRB,1.6748E+00_JPRB/)  
+KAO( :, 1, 6,11) = (/&
+ & 7.0565E-01_JPRB,6.4191E-01_JPRB,5.9174E-01_JPRB,5.6344E-01_JPRB,5.7413E-01_JPRB,6.0216E-01_JPRB,&
+ & 6.1735E-01_JPRB,5.8882E-01_JPRB,6.1391E-01_JPRB,6.2532E-01_JPRB/)  
+KAO( :, 2, 6,11) = (/&
+ & 9.2376E-01_JPRB,8.4064E-01_JPRB,7.8353E-01_JPRB,7.6203E-01_JPRB,7.6995E-01_JPRB,7.9470E-01_JPRB,&
+ & 8.0774E-01_JPRB,7.5710E-01_JPRB,7.9836E-01_JPRB,8.1211E-01_JPRB/)  
+KAO( :, 3, 6,11) = (/&
+ & 1.1735E+00_JPRB,1.0693E+00_JPRB,1.0163E+00_JPRB,9.9460E-01_JPRB,1.0005E+00_JPRB,1.0222E+00_JPRB,&
+ & 1.0221E+00_JPRB,9.3247E-01_JPRB,9.9633E-01_JPRB,1.0096E+00_JPRB/)  
+KAO( :, 4, 6,11) = (/&
+ & 1.4611E+00_JPRB,1.3294E+00_JPRB,1.2780E+00_JPRB,1.2558E+00_JPRB,1.2632E+00_JPRB,1.2674E+00_JPRB,&
+ & 1.2528E+00_JPRB,1.1244E+00_JPRB,1.2175E+00_JPRB,1.2339E+00_JPRB/)  
+KAO( :, 5, 6,11) = (/&
+ & 1.7762E+00_JPRB,1.6171E+00_JPRB,1.5645E+00_JPRB,1.5462E+00_JPRB,1.5483E+00_JPRB,1.5299E+00_JPRB,&
+ & 1.5045E+00_JPRB,1.3389E+00_JPRB,1.4702E+00_JPRB,1.4860E+00_JPRB/)  
+KAO( :, 1, 7,11) = (/&
+ & 6.4397E-01_JPRB,5.8848E-01_JPRB,5.4164E-01_JPRB,5.0438E-01_JPRB,4.8904E-01_JPRB,5.1205E-01_JPRB,&
+ & 5.2888E-01_JPRB,4.9547E-01_JPRB,5.1219E-01_JPRB,5.1357E-01_JPRB/)  
+KAO( :, 2, 7,11) = (/&
+ & 8.6014E-01_JPRB,7.8541E-01_JPRB,7.2738E-01_JPRB,6.8109E-01_JPRB,6.6447E-01_JPRB,6.8735E-01_JPRB,&
+ & 7.0610E-01_JPRB,6.4880E-01_JPRB,6.8044E-01_JPRB,6.7457E-01_JPRB/)  
+KAO( :, 3, 7,11) = (/&
+ & 1.1052E+00_JPRB,1.0089E+00_JPRB,9.5053E-01_JPRB,8.9433E-01_JPRB,8.7834E-01_JPRB,8.9637E-01_JPRB,&
+ & 9.0307E-01_JPRB,8.1519E-01_JPRB,8.6489E-01_JPRB,8.5495E-01_JPRB/)  
+KAO( :, 4, 7,11) = (/&
+ & 1.3894E+00_JPRB,1.2661E+00_JPRB,1.2117E+00_JPRB,1.1436E+00_JPRB,1.1239E+00_JPRB,1.1302E+00_JPRB,&
+ & 1.1159E+00_JPRB,1.0009E+00_JPRB,1.0705E+00_JPRB,1.0686E+00_JPRB/)  
+KAO( :, 5, 7,11) = (/&
+ & 1.7112E+00_JPRB,1.5598E+00_JPRB,1.4999E+00_JPRB,1.4251E+00_JPRB,1.3915E+00_JPRB,1.3874E+00_JPRB,&
+ & 1.3517E+00_JPRB,1.2058E+00_JPRB,1.3049E+00_JPRB,1.3059E+00_JPRB/)  
+KAO( :, 1, 8,11) = (/&
+ & 5.7879E-01_JPRB,5.3274E-01_JPRB,4.8973E-01_JPRB,4.5630E-01_JPRB,4.3269E-01_JPRB,4.3284E-01_JPRB,&
+ & 4.3930E-01_JPRB,4.0946E-01_JPRB,4.1860E-01_JPRB,4.1655E-01_JPRB/)  
+KAO( :, 2, 8,11) = (/&
+ & 7.8913E-01_JPRB,7.2614E-01_JPRB,6.7155E-01_JPRB,6.2927E-01_JPRB,5.8919E-01_JPRB,5.9377E-01_JPRB,&
+ & 5.9849E-01_JPRB,5.4629E-01_JPRB,5.6116E-01_JPRB,5.5524E-01_JPRB/)  
+KAO( :, 3, 8,11) = (/&
+ & 1.0315E+00_JPRB,9.4848E-01_JPRB,8.8923E-01_JPRB,8.3184E-01_JPRB,7.8312E-01_JPRB,7.8922E-01_JPRB,&
+ & 7.8217E-01_JPRB,6.9528E-01_JPRB,7.2027E-01_JPRB,7.1126E-01_JPRB/)  
+KAO( :, 4, 8,11) = (/&
+ & 1.3089E+00_JPRB,1.2030E+00_JPRB,1.1421E+00_JPRB,1.0710E+00_JPRB,1.0184E+00_JPRB,1.0078E+00_JPRB,&
+ & 9.8494E-01_JPRB,8.6981E-01_JPRB,9.1055E-01_JPRB,9.0117E-01_JPRB/)  
+KAO( :, 5, 8,11) = (/&
+ & 1.6233E+00_JPRB,1.4930E+00_JPRB,1.4334E+00_JPRB,1.3459E+00_JPRB,1.2797E+00_JPRB,1.2512E+00_JPRB,&
+ & 1.2155E+00_JPRB,1.0647E+00_JPRB,1.1303E+00_JPRB,1.1143E+00_JPRB/)  
+KAO( :, 1, 9,11) = (/&
+ & 5.0872E-01_JPRB,4.7000E-01_JPRB,4.3189E-01_JPRB,4.0703E-01_JPRB,3.8347E-01_JPRB,3.6637E-01_JPRB,&
+ & 3.5722E-01_JPRB,3.3322E-01_JPRB,3.3519E-01_JPRB,4.9629E-01_JPRB/)  
+KAO( :, 2, 9,11) = (/&
+ & 7.1032E-01_JPRB,6.5670E-01_JPRB,6.0796E-01_JPRB,5.7264E-01_JPRB,5.3661E-01_JPRB,5.0689E-01_JPRB,&
+ & 4.9599E-01_JPRB,4.5581E-01_JPRB,4.5901E-01_JPRB,6.1504E-01_JPRB/)  
+KAO( :, 3, 9,11) = (/&
+ & 9.4725E-01_JPRB,8.7492E-01_JPRB,8.2052E-01_JPRB,7.7219E-01_JPRB,7.2220E-01_JPRB,6.8379E-01_JPRB,&
+ & 6.5839E-01_JPRB,5.9352E-01_JPRB,5.9853E-01_JPRB,7.1363E-01_JPRB/)  
+KAO( :, 4, 9,11) = (/&
+ & 1.2212E+00_JPRB,1.1285E+00_JPRB,1.0680E+00_JPRB,1.0029E+00_JPRB,9.4208E-01_JPRB,8.9072E-01_JPRB,&
+ & 8.4577E-01_JPRB,7.5557E-01_JPRB,7.6527E-01_JPRB,8.0522E-01_JPRB/)  
+KAO( :, 5, 9,11) = (/&
+ & 1.5263E+00_JPRB,1.4126E+00_JPRB,1.3499E+00_JPRB,1.2718E+00_JPRB,1.1921E+00_JPRB,1.1220E+00_JPRB,&
+ & 1.0685E+00_JPRB,9.3213E-01_JPRB,9.5775E-01_JPRB,9.4303E-01_JPRB/)  
+KAO( :, 1,10,11) = (/&
+ & 4.4834E-01_JPRB,4.1596E-01_JPRB,3.8519E-01_JPRB,3.6738E-01_JPRB,3.4707E-01_JPRB,3.1667E-01_JPRB,&
+ & 2.9935E-01_JPRB,2.7308E-01_JPRB,2.6993E-01_JPRB,8.6202E-01_JPRB/)  
+KAO( :, 2,10,11) = (/&
+ & 6.4018E-01_JPRB,5.9476E-01_JPRB,5.5452E-01_JPRB,5.2742E-01_JPRB,4.9444E-01_JPRB,4.5039E-01_JPRB,&
+ & 4.1885E-01_JPRB,3.8235E-01_JPRB,3.7606E-01_JPRB,1.0050E+00_JPRB/)  
+KAO( :, 3,10,11) = (/&
+ & 8.6941E-01_JPRB,8.0719E-01_JPRB,7.6128E-01_JPRB,7.2083E-01_JPRB,6.7778E-01_JPRB,6.1132E-01_JPRB,&
+ & 5.6485E-01_JPRB,5.0977E-01_JPRB,5.0052E-01_JPRB,1.1879E+00_JPRB/)  
+KAO( :, 4,10,11) = (/&
+ & 1.1374E+00_JPRB,1.0578E+00_JPRB,1.0048E+00_JPRB,9.4669E-01_JPRB,8.9485E-01_JPRB,8.0262E-01_JPRB,&
+ & 7.3730E-01_JPRB,6.6231E-01_JPRB,6.5210E-01_JPRB,1.3926E+00_JPRB/)  
+KAO( :, 5,10,11) = (/&
+ & 1.4379E+00_JPRB,1.3398E+00_JPRB,1.2800E+00_JPRB,1.2099E+00_JPRB,1.1369E+00_JPRB,1.0290E+00_JPRB,&
+ & 9.4239E-01_JPRB,8.2621E-01_JPRB,8.2033E-01_JPRB,1.5987E+00_JPRB/)  
+KAO( :, 1,11,11) = (/&
+ & 4.6437E-01_JPRB,4.3195E-01_JPRB,4.0640E-01_JPRB,3.9083E-01_JPRB,3.6759E-01_JPRB,3.3095E-01_JPRB,&
+ & 2.9621E-01_JPRB,2.6059E-01_JPRB,2.4898E-01_JPRB,1.4424E+00_JPRB/)  
+KAO( :, 2,11,11) = (/&
+ & 6.5995E-01_JPRB,6.1504E-01_JPRB,5.8354E-01_JPRB,5.6109E-01_JPRB,5.2448E-01_JPRB,4.7076E-01_JPRB,&
+ & 4.1510E-01_JPRB,3.6345E-01_JPRB,3.4571E-01_JPRB,1.5679E+00_JPRB/)  
+KAO( :, 3,11,11) = (/&
+ & 8.9627E-01_JPRB,8.3726E-01_JPRB,7.9810E-01_JPRB,7.6313E-01_JPRB,7.1561E-01_JPRB,6.3926E-01_JPRB,&
+ & 5.5804E-01_JPRB,4.8959E-01_JPRB,4.6565E-01_JPRB,1.7093E+00_JPRB/)  
+KAO( :, 4,11,11) = (/&
+ & 1.1695E+00_JPRB,1.0949E+00_JPRB,1.0494E+00_JPRB,9.9979E-01_JPRB,9.3792E-01_JPRB,8.3384E-01_JPRB,&
+ & 7.3304E-01_JPRB,6.3611E-01_JPRB,6.0648E-01_JPRB,1.8687E+00_JPRB/)  
+KAO( :, 5,11,11) = (/&
+ & 1.4756E+00_JPRB,1.3865E+00_JPRB,1.3306E+00_JPRB,1.2700E+00_JPRB,1.1860E+00_JPRB,1.0648E+00_JPRB,&
+ & 9.3310E-01_JPRB,7.9796E-01_JPRB,7.6114E-01_JPRB,2.0433E+00_JPRB/)  
+KAO( :, 1,12,11) = (/&
+ & 4.6883E-01_JPRB,4.3992E-01_JPRB,4.2363E-01_JPRB,4.0991E-01_JPRB,3.8267E-01_JPRB,3.4548E-01_JPRB,&
+ & 2.9549E-01_JPRB,2.4606E-01_JPRB,2.2406E-01_JPRB,1.9161E+00_JPRB/)  
+KAO( :, 2,12,11) = (/&
+ & 6.6619E-01_JPRB,6.2643E-01_JPRB,6.0394E-01_JPRB,5.8416E-01_JPRB,5.4621E-01_JPRB,4.9020E-01_JPRB,&
+ & 4.1568E-01_JPRB,3.4416E-01_JPRB,3.1499E-01_JPRB,2.0541E+00_JPRB/)  
+KAO( :, 3,12,11) = (/&
+ & 9.0247E-01_JPRB,8.5182E-01_JPRB,8.2328E-01_JPRB,7.9362E-01_JPRB,7.4057E-01_JPRB,6.6249E-01_JPRB,&
+ & 5.6167E-01_JPRB,4.6621E-01_JPRB,4.2576E-01_JPRB,2.2005E+00_JPRB/)  
+KAO( :, 4,12,11) = (/&
+ & 1.1754E+00_JPRB,1.1141E+00_JPRB,1.0763E+00_JPRB,1.0393E+00_JPRB,9.6314E-01_JPRB,8.6349E-01_JPRB,&
+ & 7.3733E-01_JPRB,6.0555E-01_JPRB,5.5108E-01_JPRB,2.3506E+00_JPRB/)  
+KAO( :, 5,12,11) = (/&
+ & 1.4816E+00_JPRB,1.4118E+00_JPRB,1.3630E+00_JPRB,1.3109E+00_JPRB,1.2174E+00_JPRB,1.0945E+00_JPRB,&
+ & 9.3470E-01_JPRB,7.6327E-01_JPRB,6.9458E-01_JPRB,2.4817E+00_JPRB/)  
+KAO( :, 1,13,11) = (/&
+ & 4.6581E-01_JPRB,4.3907E-01_JPRB,4.3125E-01_JPRB,4.2012E-01_JPRB,3.9142E-01_JPRB,3.5288E-01_JPRB,&
+ & 2.9764E-01_JPRB,2.3165E-01_JPRB,2.0022E-01_JPRB,2.0038E+00_JPRB/)  
+KAO( :, 2,13,11) = (/&
+ & 6.6014E-01_JPRB,6.2525E-01_JPRB,6.1363E-01_JPRB,5.9556E-01_JPRB,5.5565E-01_JPRB,4.9958E-01_JPRB,&
+ & 4.1989E-01_JPRB,3.2603E-01_JPRB,2.8204E-01_JPRB,2.1506E+00_JPRB/)  
+KAO( :, 3,13,11) = (/&
+ & 8.9162E-01_JPRB,8.4866E-01_JPRB,8.3231E-01_JPRB,8.0747E-01_JPRB,7.5010E-01_JPRB,6.7287E-01_JPRB,&
+ & 5.6952E-01_JPRB,4.4032E-01_JPRB,3.7944E-01_JPRB,2.2963E+00_JPRB/)  
+KAO( :, 4,13,11) = (/&
+ & 1.1582E+00_JPRB,1.1105E+00_JPRB,1.0865E+00_JPRB,1.0526E+00_JPRB,9.7320E-01_JPRB,8.7688E-01_JPRB,&
+ & 7.4169E-01_JPRB,5.7254E-01_JPRB,4.9090E-01_JPRB,2.4264E+00_JPRB/)  
+KAO( :, 5,13,11) = (/&
+ & 1.4557E+00_JPRB,1.4054E+00_JPRB,1.3756E+00_JPRB,1.3241E+00_JPRB,1.2283E+00_JPRB,1.1037E+00_JPRB,&
+ & 9.3580E-01_JPRB,7.2342E-01_JPRB,6.1924E-01_JPRB,2.5526E+00_JPRB/)  
+KAO( :, 1, 1,12) = (/&
+ & 1.9899E+00_JPRB,1.7416E+00_JPRB,1.6557E+00_JPRB,1.6626E+00_JPRB,1.6292E+00_JPRB,1.6186E+00_JPRB,&
+ & 1.5516E+00_JPRB,1.5111E+00_JPRB,1.6515E+00_JPRB,1.6999E+00_JPRB/)  
+KAO( :, 2, 1,12) = (/&
+ & 2.4167E+00_JPRB,2.1150E+00_JPRB,2.0285E+00_JPRB,2.0154E+00_JPRB,1.9446E+00_JPRB,1.9378E+00_JPRB,&
+ & 1.8912E+00_JPRB,1.8727E+00_JPRB,2.0572E+00_JPRB,2.1137E+00_JPRB/)  
+KAO( :, 3, 1,12) = (/&
+ & 2.8678E+00_JPRB,2.5098E+00_JPRB,2.4251E+00_JPRB,2.3840E+00_JPRB,2.2898E+00_JPRB,2.2925E+00_JPRB,&
+ & 2.2262E+00_JPRB,2.2528E+00_JPRB,2.4748E+00_JPRB,2.5402E+00_JPRB/)  
+KAO( :, 4, 1,12) = (/&
+ & 3.3334E+00_JPRB,2.9172E+00_JPRB,2.8340E+00_JPRB,2.7633E+00_JPRB,2.6747E+00_JPRB,2.6799E+00_JPRB,&
+ & 2.5511E+00_JPRB,2.6575E+00_JPRB,2.9171E+00_JPRB,2.9951E+00_JPRB/)  
+KAO( :, 5, 1,12) = (/&
+ & 3.8070E+00_JPRB,3.3317E+00_JPRB,3.2431E+00_JPRB,3.1434E+00_JPRB,3.0844E+00_JPRB,3.0767E+00_JPRB,&
+ & 2.8871E+00_JPRB,3.0851E+00_JPRB,3.3768E+00_JPRB,3.4700E+00_JPRB/)  
+KAO( :, 1, 2,12) = (/&
+ & 1.8020E+00_JPRB,1.5771E+00_JPRB,1.5658E+00_JPRB,1.5529E+00_JPRB,1.5678E+00_JPRB,1.5609E+00_JPRB,&
+ & 1.5068E+00_JPRB,1.4322E+00_JPRB,1.5794E+00_JPRB,1.6265E+00_JPRB/)  
+KAO( :, 2, 2,12) = (/&
+ & 2.2244E+00_JPRB,1.9467E+00_JPRB,1.9376E+00_JPRB,1.8878E+00_JPRB,1.8907E+00_JPRB,1.9156E+00_JPRB,&
+ & 1.8451E+00_JPRB,1.7806E+00_JPRB,1.9775E+00_JPRB,2.0248E+00_JPRB/)  
+KAO( :, 3, 2,12) = (/&
+ & 2.6777E+00_JPRB,2.3433E+00_JPRB,2.3279E+00_JPRB,2.2466E+00_JPRB,2.2434E+00_JPRB,2.3061E+00_JPRB,&
+ & 2.1731E+00_JPRB,2.1601E+00_JPRB,2.3971E+00_JPRB,2.4544E+00_JPRB/)  
+KAO( :, 4, 2,12) = (/&
+ & 3.1544E+00_JPRB,2.7605E+00_JPRB,2.7326E+00_JPRB,2.6320E+00_JPRB,2.6342E+00_JPRB,2.7059E+00_JPRB,&
+ & 2.5082E+00_JPRB,2.5770E+00_JPRB,2.8498E+00_JPRB,2.9233E+00_JPRB/)  
+KAO( :, 5, 2,12) = (/&
+ & 3.6408E+00_JPRB,3.1864E+00_JPRB,3.1392E+00_JPRB,3.0321E+00_JPRB,3.0540E+00_JPRB,3.0950E+00_JPRB,&
+ & 2.8509E+00_JPRB,3.0202E+00_JPRB,3.3350E+00_JPRB,3.4273E+00_JPRB/)  
+KAO( :, 1, 3,12) = (/&
+ & 1.5649E+00_JPRB,1.3732E+00_JPRB,1.3826E+00_JPRB,1.4020E+00_JPRB,1.4318E+00_JPRB,1.4266E+00_JPRB,&
+ & 1.3676E+00_JPRB,1.2621E+00_JPRB,1.4113E+00_JPRB,1.4411E+00_JPRB/)  
+KAO( :, 2, 3,12) = (/&
+ & 1.9750E+00_JPRB,1.7323E+00_JPRB,1.7348E+00_JPRB,1.7212E+00_JPRB,1.7704E+00_JPRB,1.7925E+00_JPRB,&
+ & 1.6949E+00_JPRB,1.5960E+00_JPRB,1.7832E+00_JPRB,1.8209E+00_JPRB/)  
+KAO( :, 3, 3,12) = (/&
+ & 2.4222E+00_JPRB,2.1256E+00_JPRB,2.1157E+00_JPRB,2.0688E+00_JPRB,2.1464E+00_JPRB,2.1852E+00_JPRB,&
+ & 2.0239E+00_JPRB,1.9726E+00_JPRB,2.1958E+00_JPRB,2.2498E+00_JPRB/)  
+KAO( :, 4, 3,12) = (/&
+ & 2.9000E+00_JPRB,2.5481E+00_JPRB,2.5206E+00_JPRB,2.4500E+00_JPRB,2.5548E+00_JPRB,2.5853E+00_JPRB,&
+ & 2.3675E+00_JPRB,2.3891E+00_JPRB,2.6536E+00_JPRB,2.7238E+00_JPRB/)  
+KAO( :, 5, 3,12) = (/&
+ & 3.3931E+00_JPRB,2.9865E+00_JPRB,2.9396E+00_JPRB,2.8624E+00_JPRB,2.9741E+00_JPRB,2.9949E+00_JPRB,&
+ & 2.7166E+00_JPRB,2.8252E+00_JPRB,3.1477E+00_JPRB,3.2225E+00_JPRB/)  
+KAO( :, 1, 4,12) = (/&
+ & 1.3280E+00_JPRB,1.1786E+00_JPRB,1.2003E+00_JPRB,1.2384E+00_JPRB,1.2621E+00_JPRB,1.2623E+00_JPRB,&
+ & 1.2074E+00_JPRB,1.0954E+00_JPRB,1.2178E+00_JPRB,1.2519E+00_JPRB/)  
+KAO( :, 2, 4,12) = (/&
+ & 1.7214E+00_JPRB,1.5303E+00_JPRB,1.5296E+00_JPRB,1.5581E+00_JPRB,1.6045E+00_JPRB,1.6160E+00_JPRB,&
+ & 1.5191E+00_JPRB,1.4004E+00_JPRB,1.5599E+00_JPRB,1.5995E+00_JPRB/)  
+KAO( :, 3, 4,12) = (/&
+ & 2.1531E+00_JPRB,1.9184E+00_JPRB,1.8960E+00_JPRB,1.9073E+00_JPRB,1.9909E+00_JPRB,1.9956E+00_JPRB,&
+ & 1.8466E+00_JPRB,1.7529E+00_JPRB,1.9597E+00_JPRB,2.0020E+00_JPRB/)  
+KAO( :, 4, 4,12) = (/&
+ & 2.6259E+00_JPRB,2.3421E+00_JPRB,2.3006E+00_JPRB,2.2911E+00_JPRB,2.4098E+00_JPRB,2.3862E+00_JPRB,&
+ & 2.2059E+00_JPRB,2.1477E+00_JPRB,2.4083E+00_JPRB,2.4533E+00_JPRB/)  
+KAO( :, 5, 4,12) = (/&
+ & 3.1312E+00_JPRB,2.7951E+00_JPRB,2.7289E+00_JPRB,2.7098E+00_JPRB,2.8440E+00_JPRB,2.7955E+00_JPRB,&
+ & 2.5674E+00_JPRB,2.5718E+00_JPRB,2.8862E+00_JPRB,2.9375E+00_JPRB/)  
+KAO( :, 1, 5,12) = (/&
+ & 1.1161E+00_JPRB,1.0073E+00_JPRB,1.0475E+00_JPRB,1.0704E+00_JPRB,1.0924E+00_JPRB,1.0965E+00_JPRB,&
+ & 1.0516E+00_JPRB,9.4881E-01_JPRB,1.0568E+00_JPRB,1.0851E+00_JPRB/)  
+KAO( :, 2, 5,12) = (/&
+ & 1.4852E+00_JPRB,1.3439E+00_JPRB,1.3607E+00_JPRB,1.3892E+00_JPRB,1.4288E+00_JPRB,1.4308E+00_JPRB,&
+ & 1.3421E+00_JPRB,1.2297E+00_JPRB,1.3696E+00_JPRB,1.4061E+00_JPRB/)  
+KAO( :, 3, 5,12) = (/&
+ & 1.9072E+00_JPRB,1.7266E+00_JPRB,1.7136E+00_JPRB,1.7495E+00_JPRB,1.8113E+00_JPRB,1.7903E+00_JPRB,&
+ & 1.6625E+00_JPRB,1.5561E+00_JPRB,1.7354E+00_JPRB,1.7786E+00_JPRB/)  
+KAO( :, 4, 5,12) = (/&
+ & 2.3754E+00_JPRB,2.1543E+00_JPRB,2.1024E+00_JPRB,2.1512E+00_JPRB,2.2237E+00_JPRB,2.1735E+00_JPRB,&
+ & 2.0175E+00_JPRB,1.9176E+00_JPRB,2.1504E+00_JPRB,2.1913E+00_JPRB/)  
+KAO( :, 5, 5,12) = (/&
+ & 2.8766E+00_JPRB,2.6154E+00_JPRB,2.5264E+00_JPRB,2.5896E+00_JPRB,2.6493E+00_JPRB,2.5886E+00_JPRB,&
+ & 2.3776E+00_JPRB,2.3037E+00_JPRB,2.5969E+00_JPRB,2.6316E+00_JPRB/)  
+KAO( :, 1, 6,12) = (/&
+ & 9.4985E-01_JPRB,8.5933E-01_JPRB,8.8898E-01_JPRB,9.0232E-01_JPRB,9.2354E-01_JPRB,9.3066E-01_JPRB,&
+ & 9.0486E-01_JPRB,8.1739E-01_JPRB,9.0706E-01_JPRB,9.3532E-01_JPRB/)  
+KAO( :, 2, 6,12) = (/&
+ & 1.2834E+00_JPRB,1.1690E+00_JPRB,1.1908E+00_JPRB,1.2086E+00_JPRB,1.2415E+00_JPRB,1.2368E+00_JPRB,&
+ & 1.1756E+00_JPRB,1.0742E+00_JPRB,1.1928E+00_JPRB,1.2288E+00_JPRB/)  
+KAO( :, 3, 6,12) = (/&
+ & 1.6799E+00_JPRB,1.5378E+00_JPRB,1.5358E+00_JPRB,1.5673E+00_JPRB,1.6035E+00_JPRB,1.5726E+00_JPRB,&
+ & 1.4795E+00_JPRB,1.3798E+00_JPRB,1.5315E+00_JPRB,1.5776E+00_JPRB/)  
+KAO( :, 4, 6,12) = (/&
+ & 2.1238E+00_JPRB,1.9529E+00_JPRB,1.9235E+00_JPRB,1.9758E+00_JPRB,1.9970E+00_JPRB,1.9496E+00_JPRB,&
+ & 1.8190E+00_JPRB,1.7092E+00_JPRB,1.9137E+00_JPRB,1.9536E+00_JPRB/)  
+KAO( :, 5, 6,12) = (/&
+ & 2.6095E+00_JPRB,2.4084E+00_JPRB,2.3509E+00_JPRB,2.4228E+00_JPRB,2.4180E+00_JPRB,2.3618E+00_JPRB,&
+ & 2.1597E+00_JPRB,2.0675E+00_JPRB,2.3214E+00_JPRB,2.3618E+00_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART8',1,ZHOOK_HANDLE)
+END SUBROUTINE PART8
+
+
+SUBROUTINE PART9
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART9',0,ZHOOK_HANDLE)
+
+
+KAO( :, 1, 7,12) = (/&
+ & 8.4812E-01_JPRB,7.6841E-01_JPRB,7.5326E-01_JPRB,7.5035E-01_JPRB,7.7118E-01_JPRB,7.8872E-01_JPRB,&
+ & 7.7183E-01_JPRB,7.0585E-01_JPRB,7.7946E-01_JPRB,8.0795E-01_JPRB/)  
+KAO( :, 2, 7,12) = (/&
+ & 1.1465E+00_JPRB,1.0445E+00_JPRB,1.0290E+00_JPRB,1.0370E+00_JPRB,1.0598E+00_JPRB,1.0683E+00_JPRB,&
+ & 1.0242E+00_JPRB,9.3963E-01_JPRB,1.0386E+00_JPRB,1.0754E+00_JPRB/)  
+KAO( :, 3, 7,12) = (/&
+ & 1.5193E+00_JPRB,1.3894E+00_JPRB,1.3649E+00_JPRB,1.3853E+00_JPRB,1.3982E+00_JPRB,1.3813E+00_JPRB,&
+ & 1.3178E+00_JPRB,1.2173E+00_JPRB,1.3509E+00_JPRB,1.3914E+00_JPRB/)  
+KAO( :, 4, 7,12) = (/&
+ & 1.9518E+00_JPRB,1.7884E+00_JPRB,1.7513E+00_JPRB,1.7865E+00_JPRB,1.7771E+00_JPRB,1.7370E+00_JPRB,&
+ & 1.6446E+00_JPRB,1.5222E+00_JPRB,1.7063E+00_JPRB,1.7391E+00_JPRB/)  
+KAO( :, 5, 7,12) = (/&
+ & 2.4259E+00_JPRB,2.2279E+00_JPRB,2.1794E+00_JPRB,2.2290E+00_JPRB,2.1962E+00_JPRB,2.1299E+00_JPRB,&
+ & 1.9788E+00_JPRB,1.8585E+00_JPRB,2.0857E+00_JPRB,2.1225E+00_JPRB/)  
+KAO( :, 1, 8,12) = (/&
+ & 7.7841E-01_JPRB,7.0711E-01_JPRB,6.6522E-01_JPRB,6.3606E-01_JPRB,6.4760E-01_JPRB,6.6713E-01_JPRB,&
+ & 6.6148E-01_JPRB,6.0390E-01_JPRB,6.6973E-01_JPRB,6.8843E-01_JPRB/)  
+KAO( :, 2, 8,12) = (/&
+ & 1.0658E+00_JPRB,9.6636E-01_JPRB,9.1583E-01_JPRB,8.8699E-01_JPRB,9.0848E-01_JPRB,9.1965E-01_JPRB,&
+ & 8.9372E-01_JPRB,8.1955E-01_JPRB,9.1141E-01_JPRB,9.3497E-01_JPRB/)  
+KAO( :, 3, 8,12) = (/&
+ & 1.4137E+00_JPRB,1.2836E+00_JPRB,1.2307E+00_JPRB,1.2115E+00_JPRB,1.2232E+00_JPRB,1.2116E+00_JPRB,&
+ & 1.1659E+00_JPRB,1.0732E+00_JPRB,1.1969E+00_JPRB,1.2259E+00_JPRB/)  
+KAO( :, 4, 8,12) = (/&
+ & 1.8330E+00_JPRB,1.6670E+00_JPRB,1.6047E+00_JPRB,1.5956E+00_JPRB,1.5811E+00_JPRB,1.5515E+00_JPRB,&
+ & 1.4752E+00_JPRB,1.3507E+00_JPRB,1.5186E+00_JPRB,1.5425E+00_JPRB/)  
+KAO( :, 5, 8,12) = (/&
+ & 2.3049E+00_JPRB,2.1036E+00_JPRB,2.0278E+00_JPRB,2.0220E+00_JPRB,1.9855E+00_JPRB,1.9308E+00_JPRB,&
+ & 1.8019E+00_JPRB,1.6605E+00_JPRB,1.8705E+00_JPRB,1.8963E+00_JPRB/)  
+KAO( :, 1, 9,12) = (/&
+ & 7.0912E-01_JPRB,6.4469E-01_JPRB,5.9363E-01_JPRB,5.5627E-01_JPRB,5.5384E-01_JPRB,5.6186E-01_JPRB,&
+ & 5.5927E-01_JPRB,5.0354E-01_JPRB,5.6125E-01_JPRB,7.4969E-01_JPRB/)  
+KAO( :, 2, 9,12) = (/&
+ & 9.9527E-01_JPRB,9.0550E-01_JPRB,8.3442E-01_JPRB,7.8264E-01_JPRB,7.7752E-01_JPRB,7.8969E-01_JPRB,&
+ & 7.7692E-01_JPRB,6.9354E-01_JPRB,7.7793E-01_JPRB,8.7043E-01_JPRB/)  
+KAO( :, 3, 9,12) = (/&
+ & 1.3412E+00_JPRB,1.2190E+00_JPRB,1.1268E+00_JPRB,1.0743E+00_JPRB,1.0606E+00_JPRB,1.0614E+00_JPRB,&
+ & 1.0350E+00_JPRB,9.2237E-01_JPRB,1.0409E+00_JPRB,1.0573E+00_JPRB/)  
+KAO( :, 4, 9,12) = (/&
+ & 1.7493E+00_JPRB,1.5874E+00_JPRB,1.4863E+00_JPRB,1.4310E+00_JPRB,1.3986E+00_JPRB,1.3843E+00_JPRB,&
+ & 1.3254E+00_JPRB,1.1771E+00_JPRB,1.3374E+00_JPRB,1.3371E+00_JPRB/)  
+KAO( :, 5, 9,12) = (/&
+ & 2.2176E+00_JPRB,2.0127E+00_JPRB,1.9126E+00_JPRB,1.8371E+00_JPRB,1.7903E+00_JPRB,1.7504E+00_JPRB,&
+ & 1.6358E+00_JPRB,1.4630E+00_JPRB,1.6600E+00_JPRB,1.6679E+00_JPRB/)  
+KAO( :, 1,10,12) = (/&
+ & 6.5376E-01_JPRB,5.9649E-01_JPRB,5.4382E-01_JPRB,5.0392E-01_JPRB,4.9222E-01_JPRB,4.9094E-01_JPRB,&
+ & 4.7672E-01_JPRB,4.1966E-01_JPRB,4.6921E-01_JPRB,1.3769E+00_JPRB/)  
+KAO( :, 2,10,12) = (/&
+ & 9.3800E-01_JPRB,8.5670E-01_JPRB,7.8367E-01_JPRB,7.2595E-01_JPRB,6.9805E-01_JPRB,6.9533E-01_JPRB,&
+ & 6.7619E-01_JPRB,5.9132E-01_JPRB,6.6160E-01_JPRB,1.6706E+00_JPRB/)  
+KAO( :, 3,10,12) = (/&
+ & 1.2854E+00_JPRB,1.1741E+00_JPRB,1.0774E+00_JPRB,1.0008E+00_JPRB,9.5668E-01_JPRB,9.5165E-01_JPRB,&
+ & 9.1656E-01_JPRB,7.9224E-01_JPRB,8.9510E-01_JPRB,1.9785E+00_JPRB/)  
+KAO( :, 4,10,12) = (/&
+ & 1.6921E+00_JPRB,1.5448E+00_JPRB,1.4301E+00_JPRB,1.3361E+00_JPRB,1.2735E+00_JPRB,1.2587E+00_JPRB,&
+ & 1.1957E+00_JPRB,1.0181E+00_JPRB,1.1609E+00_JPRB,2.2894E+00_JPRB/)  
+KAO( :, 5,10,12) = (/&
+ & 2.1576E+00_JPRB,1.9664E+00_JPRB,1.8494E+00_JPRB,1.7300E+00_JPRB,1.6509E+00_JPRB,1.6070E+00_JPRB,&
+ & 1.4973E+00_JPRB,1.2816E+00_JPRB,1.4648E+00_JPRB,2.6067E+00_JPRB/)  
+KAO( :, 1,11,12) = (/&
+ & 7.0952E-01_JPRB,6.5053E-01_JPRB,5.9316E-01_JPRB,5.5146E-01_JPRB,5.2180E-01_JPRB,5.0652E-01_JPRB,&
+ & 4.7718E-01_JPRB,4.1246E-01_JPRB,4.5783E-01_JPRB,2.0241E+00_JPRB/)  
+KAO( :, 2,11,12) = (/&
+ & 1.0167E+00_JPRB,9.3262E-01_JPRB,8.5333E-01_JPRB,7.9232E-01_JPRB,7.4499E-01_JPRB,7.1140E-01_JPRB,&
+ & 6.7465E-01_JPRB,5.7859E-01_JPRB,6.4613E-01_JPRB,2.2912E+00_JPRB/)  
+KAO( :, 3,11,12) = (/&
+ & 1.3886E+00_JPRB,1.2732E+00_JPRB,1.1736E+00_JPRB,1.0906E+00_JPRB,1.0139E+00_JPRB,9.7034E-01_JPRB,&
+ & 9.1240E-01_JPRB,7.7049E-01_JPRB,8.6376E-01_JPRB,2.6463E+00_JPRB/)  
+KAO( :, 4,11,12) = (/&
+ & 1.8181E+00_JPRB,1.6680E+00_JPRB,1.5549E+00_JPRB,1.4417E+00_JPRB,1.3425E+00_JPRB,1.2830E+00_JPRB,&
+ & 1.1836E+00_JPRB,9.8857E-01_JPRB,1.1129E+00_JPRB,3.0263E+00_JPRB/)  
+KAO( :, 5,11,12) = (/&
+ & 2.3057E+00_JPRB,2.1146E+00_JPRB,1.9950E+00_JPRB,1.8508E+00_JPRB,1.7289E+00_JPRB,1.6307E+00_JPRB,&
+ & 1.4919E+00_JPRB,1.2455E+00_JPRB,1.4085E+00_JPRB,3.4186E+00_JPRB/)  
+KAO( :, 1,12,12) = (/&
+ & 7.5886E-01_JPRB,6.9796E-01_JPRB,6.3852E-01_JPRB,5.9929E-01_JPRB,5.5990E-01_JPRB,5.1924E-01_JPRB,&
+ & 4.7840E-01_JPRB,4.0341E-01_JPRB,4.4154E-01_JPRB,2.6087E+00_JPRB/)  
+KAO( :, 2,12,12) = (/&
+ & 1.0851E+00_JPRB,9.9770E-01_JPRB,9.1673E-01_JPRB,8.5899E-01_JPRB,7.9809E-01_JPRB,7.3287E-01_JPRB,&
+ & 6.7148E-01_JPRB,5.6350E-01_JPRB,6.1612E-01_JPRB,2.8310E+00_JPRB/)  
+KAO( :, 3,12,12) = (/&
+ & 1.4755E+00_JPRB,1.3573E+00_JPRB,1.2579E+00_JPRB,1.1774E+00_JPRB,1.0886E+00_JPRB,9.9484E-01_JPRB,&
+ & 9.0354E-01_JPRB,7.5007E-01_JPRB,8.2214E-01_JPRB,3.1388E+00_JPRB/)  
+KAO( :, 4,12,12) = (/&
+ & 1.9253E+00_JPRB,1.7711E+00_JPRB,1.6604E+00_JPRB,1.5471E+00_JPRB,1.4336E+00_JPRB,1.3051E+00_JPRB,&
+ & 1.1698E+00_JPRB,9.7140E-01_JPRB,1.0651E+00_JPRB,3.4850E+00_JPRB/)  
+KAO( :, 5,12,12) = (/&
+ & 2.4308E+00_JPRB,2.2396E+00_JPRB,2.1167E+00_JPRB,1.9729E+00_JPRB,1.8272E+00_JPRB,1.6585E+00_JPRB,&
+ & 1.4809E+00_JPRB,1.2177E+00_JPRB,1.3448E+00_JPRB,3.8825E+00_JPRB/)  
+KAO( :, 1,13,12) = (/&
+ & 7.9229E-01_JPRB,7.3221E-01_JPRB,6.7737E-01_JPRB,6.4130E-01_JPRB,5.9847E-01_JPRB,5.3580E-01_JPRB,&
+ & 4.7728E-01_JPRB,3.9003E-01_JPRB,4.1400E-01_JPRB,2.7638E+00_JPRB/)  
+KAO( :, 2,13,12) = (/&
+ & 1.1297E+00_JPRB,1.0450E+00_JPRB,9.7140E-01_JPRB,9.1618E-01_JPRB,8.5138E-01_JPRB,7.6006E-01_JPRB,&
+ & 6.6619E-01_JPRB,5.4383E-01_JPRB,5.7638E-01_JPRB,2.9703E+00_JPRB/)  
+KAO( :, 3,13,12) = (/&
+ & 1.5310E+00_JPRB,1.4169E+00_JPRB,1.3280E+00_JPRB,1.2470E+00_JPRB,1.1584E+00_JPRB,1.0272E+00_JPRB,&
+ & 8.9295E-01_JPRB,7.3007E-01_JPRB,7.7208E-01_JPRB,3.2180E+00_JPRB/)  
+KAO( :, 4,13,12) = (/&
+ & 1.9939E+00_JPRB,1.8457E+00_JPRB,1.7416E+00_JPRB,1.6315E+00_JPRB,1.5169E+00_JPRB,1.3360E+00_JPRB,&
+ & 1.1634E+00_JPRB,9.4900E-01_JPRB,1.0058E+00_JPRB,3.5288E+00_JPRB/)  
+KAO( :, 5,13,12) = (/&
+ & 2.5079E+00_JPRB,2.3287E+00_JPRB,2.2043E+00_JPRB,2.0691E+00_JPRB,1.9162E+00_JPRB,1.6967E+00_JPRB,&
+ & 1.4732E+00_JPRB,1.1903E+00_JPRB,1.2641E+00_JPRB,3.8603E+00_JPRB/)  
+KAO( :, 1, 1,13) = (/&
+ & 3.9649E+00_JPRB,3.4696E+00_JPRB,2.9742E+00_JPRB,2.6893E+00_JPRB,2.5814E+00_JPRB,2.2539E+00_JPRB,&
+ & 1.9591E+00_JPRB,2.1953E+00_JPRB,2.3585E+00_JPRB,2.4435E+00_JPRB/)  
+KAO( :, 2, 1,13) = (/&
+ & 4.6934E+00_JPRB,4.1070E+00_JPRB,3.5206E+00_JPRB,3.2425E+00_JPRB,3.0762E+00_JPRB,2.6670E+00_JPRB,&
+ & 2.3213E+00_JPRB,2.6577E+00_JPRB,2.8281E+00_JPRB,2.9391E+00_JPRB/)  
+KAO( :, 3, 1,13) = (/&
+ & 5.4309E+00_JPRB,4.7524E+00_JPRB,4.0738E+00_JPRB,3.8211E+00_JPRB,3.5699E+00_JPRB,3.1013E+00_JPRB,&
+ & 2.7446E+00_JPRB,3.1848E+00_JPRB,3.3841E+00_JPRB,3.5205E+00_JPRB/)  
+KAO( :, 4, 1,13) = (/&
+ & 6.1708E+00_JPRB,5.3997E+00_JPRB,4.6331E+00_JPRB,4.4110E+00_JPRB,4.0650E+00_JPRB,3.5506E+00_JPRB,&
+ & 3.2653E+00_JPRB,3.7939E+00_JPRB,4.0349E+00_JPRB,4.1946E+00_JPRB/)  
+KAO( :, 5, 1,13) = (/&
+ & 6.8879E+00_JPRB,6.0273E+00_JPRB,5.1873E+00_JPRB,4.9821E+00_JPRB,4.5559E+00_JPRB,4.0078E+00_JPRB,&
+ & 3.8433E+00_JPRB,4.4688E+00_JPRB,4.7724E+00_JPRB,4.9544E+00_JPRB/)  
+KAO( :, 1, 2,13) = (/&
+ & 3.6698E+00_JPRB,3.2113E+00_JPRB,2.7634E+00_JPRB,2.6220E+00_JPRB,2.4498E+00_JPRB,2.2177E+00_JPRB,&
+ & 1.9317E+00_JPRB,2.1759E+00_JPRB,2.3566E+00_JPRB,2.4539E+00_JPRB/)  
+KAO( :, 2, 2,13) = (/&
+ & 4.3922E+00_JPRB,3.8433E+00_JPRB,3.3174E+00_JPRB,3.1962E+00_JPRB,2.9402E+00_JPRB,2.6303E+00_JPRB,&
+ & 2.3496E+00_JPRB,2.7064E+00_JPRB,2.8995E+00_JPRB,3.0421E+00_JPRB/)  
+KAO( :, 3, 2,13) = (/&
+ & 5.1315E+00_JPRB,4.4903E+00_JPRB,3.8960E+00_JPRB,3.7804E+00_JPRB,3.4475E+00_JPRB,3.0575E+00_JPRB,&
+ & 2.8478E+00_JPRB,3.3075E+00_JPRB,3.5154E+00_JPRB,3.7101E+00_JPRB/)  
+KAO( :, 4, 2,13) = (/&
+ & 5.8800E+00_JPRB,5.1453E+00_JPRB,4.4924E+00_JPRB,4.3646E+00_JPRB,3.9642E+00_JPRB,3.5208E+00_JPRB,&
+ & 3.3891E+00_JPRB,3.9399E+00_JPRB,4.1954E+00_JPRB,4.4214E+00_JPRB/)  
+KAO( :, 5, 2,13) = (/&
+ & 6.6101E+00_JPRB,5.7841E+00_JPRB,5.0872E+00_JPRB,4.9348E+00_JPRB,4.4777E+00_JPRB,4.0458E+00_JPRB,&
+ & 3.9713E+00_JPRB,4.6160E+00_JPRB,4.9393E+00_JPRB,5.1870E+00_JPRB/)  
+KAO( :, 1, 3,13) = (/&
+ & 3.2411E+00_JPRB,2.8361E+00_JPRB,2.4831E+00_JPRB,2.4070E+00_JPRB,2.2480E+00_JPRB,2.0870E+00_JPRB,&
+ & 1.8051E+00_JPRB,2.0202E+00_JPRB,2.1994E+00_JPRB,2.3002E+00_JPRB/)  
+KAO( :, 2, 3,13) = (/&
+ & 3.9470E+00_JPRB,3.4538E+00_JPRB,3.0483E+00_JPRB,2.9667E+00_JPRB,2.7181E+00_JPRB,2.5148E+00_JPRB,&
+ & 2.2501E+00_JPRB,2.5765E+00_JPRB,2.7837E+00_JPRB,2.9313E+00_JPRB/)  
+KAO( :, 3, 3,13) = (/&
+ & 4.6804E+00_JPRB,4.0955E+00_JPRB,3.6459E+00_JPRB,3.5399E+00_JPRB,3.2163E+00_JPRB,2.9639E+00_JPRB,&
+ & 2.7715E+00_JPRB,3.2088E+00_JPRB,3.4557E+00_JPRB,3.6507E+00_JPRB/)  
+KAO( :, 4, 3,13) = (/&
+ & 5.4312E+00_JPRB,4.7525E+00_JPRB,4.2675E+00_JPRB,4.1206E+00_JPRB,3.7364E+00_JPRB,3.4562E+00_JPRB,&
+ & 3.3399E+00_JPRB,3.8844E+00_JPRB,4.1920E+00_JPRB,4.4202E+00_JPRB/)  
+KAO( :, 5, 3,13) = (/&
+ & 6.1796E+00_JPRB,5.4074E+00_JPRB,4.8990E+00_JPRB,4.7013E+00_JPRB,4.2915E+00_JPRB,3.9757E+00_JPRB,&
+ & 3.9407E+00_JPRB,4.5828E+00_JPRB,4.9410E+00_JPRB,5.2123E+00_JPRB/)  
+KAO( :, 1, 4,13) = (/&
+ & 2.7929E+00_JPRB,2.4439E+00_JPRB,2.1939E+00_JPRB,2.1454E+00_JPRB,2.0515E+00_JPRB,1.8877E+00_JPRB,&
+ & 1.6383E+00_JPRB,1.8045E+00_JPRB,1.9740E+00_JPRB,2.0628E+00_JPRB/)  
+KAO( :, 2, 4,13) = (/&
+ & 3.4793E+00_JPRB,3.0445E+00_JPRB,2.7598E+00_JPRB,2.6705E+00_JPRB,2.5121E+00_JPRB,2.3266E+00_JPRB,&
+ & 2.0901E+00_JPRB,2.3620E+00_JPRB,2.5689E+00_JPRB,2.6998E+00_JPRB/)  
+KAO( :, 3, 4,13) = (/&
+ & 4.2010E+00_JPRB,3.6761E+00_JPRB,3.3660E+00_JPRB,3.2278E+00_JPRB,3.0027E+00_JPRB,2.8086E+00_JPRB,&
+ & 2.6028E+00_JPRB,2.9855E+00_JPRB,3.2574E+00_JPRB,3.4124E+00_JPRB/)  
+KAO( :, 4, 4,13) = (/&
+ & 4.9519E+00_JPRB,4.3331E+00_JPRB,4.0066E+00_JPRB,3.8137E+00_JPRB,3.5269E+00_JPRB,3.3453E+00_JPRB,&
+ & 3.1635E+00_JPRB,3.6670E+00_JPRB,4.0070E+00_JPRB,4.1903E+00_JPRB/)  
+KAO( :, 5, 4,13) = (/&
+ & 5.7128E+00_JPRB,4.9989E+00_JPRB,4.6672E+00_JPRB,4.4092E+00_JPRB,4.0817E+00_JPRB,3.8791E+00_JPRB,&
+ & 3.7698E+00_JPRB,4.3882E+00_JPRB,4.8065E+00_JPRB,5.0150E+00_JPRB/)  
+KAO( :, 1, 5,13) = (/&
+ & 2.3832E+00_JPRB,2.0854E+00_JPRB,1.9206E+00_JPRB,1.9102E+00_JPRB,1.8377E+00_JPRB,1.6804E+00_JPRB,&
+ & 1.4581E+00_JPRB,1.5820E+00_JPRB,1.7385E+00_JPRB,1.8104E+00_JPRB/)  
+KAO( :, 2, 5,13) = (/&
+ & 3.0408E+00_JPRB,2.6608E+00_JPRB,2.4785E+00_JPRB,2.4054E+00_JPRB,2.3025E+00_JPRB,2.1234E+00_JPRB,&
+ & 1.8947E+00_JPRB,2.1142E+00_JPRB,2.3213E+00_JPRB,2.4192E+00_JPRB/)  
+KAO( :, 3, 5,13) = (/&
+ & 3.7472E+00_JPRB,3.2789E+00_JPRB,3.0888E+00_JPRB,2.9395E+00_JPRB,2.8036E+00_JPRB,2.6282E+00_JPRB,&
+ & 2.3906E+00_JPRB,2.7153E+00_JPRB,2.9926E+00_JPRB,3.1059E+00_JPRB/)  
+KAO( :, 4, 5,13) = (/&
+ & 4.4915E+00_JPRB,3.9302E+00_JPRB,3.7393E+00_JPRB,3.5090E+00_JPRB,3.3375E+00_JPRB,3.1759E+00_JPRB,&
+ & 2.9354E+00_JPRB,3.3827E+00_JPRB,3.7352E+00_JPRB,3.8690E+00_JPRB/)  
+KAO( :, 5, 5,13) = (/&
+ & 5.2663E+00_JPRB,4.6081E+00_JPRB,4.4077E+00_JPRB,4.1006E+00_JPRB,3.9180E+00_JPRB,3.7090E+00_JPRB,&
+ & 3.5307E+00_JPRB,4.1076E+00_JPRB,4.5338E+00_JPRB,4.6986E+00_JPRB/)  
+KAO( :, 1, 6,13) = (/&
+ & 1.9932E+00_JPRB,1.7450E+00_JPRB,1.6663E+00_JPRB,1.6747E+00_JPRB,1.5875E+00_JPRB,1.4577E+00_JPRB,&
+ & 1.2653E+00_JPRB,1.3499E+00_JPRB,1.4817E+00_JPRB,1.5465E+00_JPRB/)  
+KAO( :, 2, 6,13) = (/&
+ & 2.6126E+00_JPRB,2.2877E+00_JPRB,2.1906E+00_JPRB,2.1465E+00_JPRB,2.0440E+00_JPRB,1.8948E+00_JPRB,&
+ & 1.6751E+00_JPRB,1.8295E+00_JPRB,2.0253E+00_JPRB,2.0939E+00_JPRB/)  
+KAO( :, 3, 6,13) = (/&
+ & 3.3035E+00_JPRB,2.8922E+00_JPRB,2.7796E+00_JPRB,2.6671E+00_JPRB,2.5564E+00_JPRB,2.3982E+00_JPRB,&
+ & 2.1433E+00_JPRB,2.3876E+00_JPRB,2.6563E+00_JPRB,2.7311E+00_JPRB/)  
+KAO( :, 4, 6,13) = (/&
+ & 4.0480E+00_JPRB,3.5441E+00_JPRB,3.4094E+00_JPRB,3.2253E+00_JPRB,3.1196E+00_JPRB,2.9346E+00_JPRB,&
+ & 2.6536E+00_JPRB,3.0266E+00_JPRB,3.3710E+00_JPRB,3.4616E+00_JPRB/)  
+KAO( :, 5, 6,13) = (/&
+ & 4.8342E+00_JPRB,4.2338E+00_JPRB,4.0696E+00_JPRB,3.8230E+00_JPRB,3.7396E+00_JPRB,3.4594E+00_JPRB,&
+ & 3.2309E+00_JPRB,3.7339E+00_JPRB,4.1600E+00_JPRB,4.2696E+00_JPRB/)  
+KAO( :, 1, 7,13) = (/&
+ & 1.6468E+00_JPRB,1.4469E+00_JPRB,1.4375E+00_JPRB,1.4321E+00_JPRB,1.3474E+00_JPRB,1.2424E+00_JPRB,&
+ & 1.0892E+00_JPRB,1.1510E+00_JPRB,1.2626E+00_JPRB,1.3183E+00_JPRB/)  
+KAO( :, 2, 7,13) = (/&
+ & 2.2291E+00_JPRB,1.9582E+00_JPRB,1.9270E+00_JPRB,1.8946E+00_JPRB,1.7899E+00_JPRB,1.6613E+00_JPRB,&
+ & 1.4638E+00_JPRB,1.5844E+00_JPRB,1.7486E+00_JPRB,1.8143E+00_JPRB/)  
+KAO( :, 3, 7,13) = (/&
+ & 2.8937E+00_JPRB,2.5452E+00_JPRB,2.4760E+00_JPRB,2.4095E+00_JPRB,2.2977E+00_JPRB,2.1475E+00_JPRB,&
+ & 1.8921E+00_JPRB,2.0920E+00_JPRB,2.3240E+00_JPRB,2.3941E+00_JPRB/)  
+KAO( :, 4, 7,13) = (/&
+ & 3.6319E+00_JPRB,3.2018E+00_JPRB,3.0807E+00_JPRB,2.9736E+00_JPRB,2.8721E+00_JPRB,2.6699E+00_JPRB,&
+ & 2.3689E+00_JPRB,2.6767E+00_JPRB,2.9818E+00_JPRB,3.0621E+00_JPRB/)  
+KAO( :, 5, 7,13) = (/&
+ & 4.4294E+00_JPRB,3.9124E+00_JPRB,3.7363E+00_JPRB,3.5826E+00_JPRB,3.5031E+00_JPRB,3.1936E+00_JPRB,&
+ & 2.9162E+00_JPRB,3.3346E+00_JPRB,3.7295E+00_JPRB,3.8139E+00_JPRB/)  
+KAO( :, 1, 8,13) = (/&
+ & 1.3645E+00_JPRB,1.2030E+00_JPRB,1.2251E+00_JPRB,1.1980E+00_JPRB,1.1267E+00_JPRB,1.0496E+00_JPRB,&
+ & 9.4007E-01_JPRB,9.8738E-01_JPRB,1.0795E+00_JPRB,1.1321E+00_JPRB/)  
+KAO( :, 2, 8,13) = (/&
+ & 1.8875E+00_JPRB,1.6716E+00_JPRB,1.6787E+00_JPRB,1.6357E+00_JPRB,1.5491E+00_JPRB,1.4420E+00_JPRB,&
+ & 1.2844E+00_JPRB,1.3709E+00_JPRB,1.5112E+00_JPRB,1.5708E+00_JPRB/)  
+KAO( :, 3, 8,13) = (/&
+ & 2.5235E+00_JPRB,2.2405E+00_JPRB,2.2018E+00_JPRB,2.1383E+00_JPRB,2.0418E+00_JPRB,1.9034E+00_JPRB,&
+ & 1.6797E+00_JPRB,1.8309E+00_JPRB,2.0369E+00_JPRB,2.0956E+00_JPRB/)  
+KAO( :, 4, 8,13) = (/&
+ & 3.2460E+00_JPRB,2.8890E+00_JPRB,2.7989E+00_JPRB,2.7089E+00_JPRB,2.6113E+00_JPRB,2.4070E+00_JPRB,&
+ & 2.1243E+00_JPRB,2.3727E+00_JPRB,2.6443E+00_JPRB,2.7141E+00_JPRB/)  
+KAO( :, 5, 8,13) = (/&
+ & 4.0415E+00_JPRB,3.6015E+00_JPRB,3.4549E+00_JPRB,3.3427E+00_JPRB,3.2300E+00_JPRB,2.9321E+00_JPRB,&
+ & 2.6354E+00_JPRB,2.9888E+00_JPRB,3.3390E+00_JPRB,3.4186E+00_JPRB/)  
+KAO( :, 1, 9,13) = (/&
+ & 1.1543E+00_JPRB,1.0251E+00_JPRB,1.0349E+00_JPRB,9.8794E-01_JPRB,9.3205E-01_JPRB,8.8440E-01_JPRB,&
+ & 8.0320E-01_JPRB,8.4519E-01_JPRB,9.2711E-01_JPRB,1.0206E+00_JPRB/)  
+KAO( :, 2, 9,13) = (/&
+ & 1.6108E+00_JPRB,1.4310E+00_JPRB,1.4476E+00_JPRB,1.3885E+00_JPRB,1.3235E+00_JPRB,1.2492E+00_JPRB,&
+ & 1.1169E+00_JPRB,1.1958E+00_JPRB,1.3141E+00_JPRB,1.3705E+00_JPRB/)  
+KAO( :, 3, 9,13) = (/&
+ & 2.1885E+00_JPRB,1.9532E+00_JPRB,1.9550E+00_JPRB,1.8741E+00_JPRB,1.7932E+00_JPRB,1.6819E+00_JPRB,&
+ & 1.4843E+00_JPRB,1.6106E+00_JPRB,1.7801E+00_JPRB,1.8447E+00_JPRB/)  
+KAO( :, 4, 9,13) = (/&
+ & 2.8811E+00_JPRB,2.5830E+00_JPRB,2.5357E+00_JPRB,2.4436E+00_JPRB,2.3447E+00_JPRB,2.1613E+00_JPRB,&
+ & 1.9043E+00_JPRB,2.1005E+00_JPRB,2.3339E+00_JPRB,2.4057E+00_JPRB/)  
+KAO( :, 5, 9,13) = (/&
+ & 3.6764E+00_JPRB,3.3079E+00_JPRB,3.1796E+00_JPRB,3.0911E+00_JPRB,2.9539E+00_JPRB,2.6757E+00_JPRB,&
+ & 2.3874E+00_JPRB,2.6741E+00_JPRB,2.9820E+00_JPRB,3.0611E+00_JPRB/)  
+KAO( :, 1,10,13) = (/&
+ & 1.0302E+00_JPRB,9.2176E-01_JPRB,9.0574E-01_JPRB,8.4615E-01_JPRB,7.9970E-01_JPRB,7.6976E-01_JPRB,&
+ & 7.0274E-01_JPRB,7.4283E-01_JPRB,8.1565E-01_JPRB,2.7017E+00_JPRB/)  
+KAO( :, 2,10,13) = (/&
+ & 1.4458E+00_JPRB,1.2918E+00_JPRB,1.2726E+00_JPRB,1.2041E+00_JPRB,1.1546E+00_JPRB,1.1052E+00_JPRB,&
+ & 9.9535E-01_JPRB,1.0584E+00_JPRB,1.1691E+00_JPRB,2.9336E+00_JPRB/)  
+KAO( :, 3,10,13) = (/&
+ & 1.9856E+00_JPRB,1.7787E+00_JPRB,1.7427E+00_JPRB,1.6691E+00_JPRB,1.6016E+00_JPRB,1.5137E+00_JPRB,&
+ & 1.3407E+00_JPRB,1.4471E+00_JPRB,1.6060E+00_JPRB,3.2154E+00_JPRB/)  
+KAO( :, 4,10,13) = (/&
+ & 2.6493E+00_JPRB,2.3820E+00_JPRB,2.3103E+00_JPRB,2.2284E+00_JPRB,2.1316E+00_JPRB,1.9769E+00_JPRB,&
+ & 1.7435E+00_JPRB,1.9143E+00_JPRB,2.1248E+00_JPRB,3.4633E+00_JPRB/)  
+KAO( :, 5,10,13) = (/&
+ & 3.4281E+00_JPRB,3.0946E+00_JPRB,2.9645E+00_JPRB,2.8748E+00_JPRB,2.7245E+00_JPRB,2.4879E+00_JPRB,&
+ & 2.2103E+00_JPRB,2.4551E+00_JPRB,2.7307E+00_JPRB,3.6000E+00_JPRB/)  
+KAO( :, 1,11,13) = (/&
+ & 1.0987E+00_JPRB,9.8883E-01_JPRB,9.4457E-01_JPRB,8.7599E-01_JPRB,8.3570E-01_JPRB,8.0174E-01_JPRB,&
+ & 7.2908E-01_JPRB,7.6400E-01_JPRB,8.5040E-01_JPRB,4.1644E+00_JPRB/)  
+KAO( :, 2,11,13) = (/&
+ & 1.5519E+00_JPRB,1.3960E+00_JPRB,1.3272E+00_JPRB,1.2419E+00_JPRB,1.1936E+00_JPRB,1.1475E+00_JPRB,&
+ & 1.0323E+00_JPRB,1.0904E+00_JPRB,1.2118E+00_JPRB,4.4377E+00_JPRB/)  
+KAO( :, 3,11,13) = (/&
+ & 2.1168E+00_JPRB,1.9062E+00_JPRB,1.8156E+00_JPRB,1.7151E+00_JPRB,1.6554E+00_JPRB,1.5612E+00_JPRB,&
+ & 1.3900E+00_JPRB,1.4823E+00_JPRB,1.6504E+00_JPRB,4.7648E+00_JPRB/)  
+KAO( :, 4,11,13) = (/&
+ & 2.8109E+00_JPRB,2.5372E+00_JPRB,2.4065E+00_JPRB,2.2977E+00_JPRB,2.1984E+00_JPRB,2.0338E+00_JPRB,&
+ & 1.8057E+00_JPRB,1.9491E+00_JPRB,2.1792E+00_JPRB,5.1367E+00_JPRB/)  
+KAO( :, 5,11,13) = (/&
+ & 3.6200E+00_JPRB,3.2757E+00_JPRB,3.0973E+00_JPRB,2.9725E+00_JPRB,2.8049E+00_JPRB,2.5726E+00_JPRB,&
+ & 2.2731E+00_JPRB,2.4759E+00_JPRB,2.7857E+00_JPRB,5.3931E+00_JPRB/)  
+KAO( :, 1,12,13) = (/&
+ & 1.1834E+00_JPRB,1.0718E+00_JPRB,9.9832E-01_JPRB,9.1951E-01_JPRB,8.8066E-01_JPRB,8.3984E-01_JPRB,&
+ & 7.5516E-01_JPRB,7.7629E-01_JPRB,8.6924E-01_JPRB,5.0196E+00_JPRB/)  
+KAO( :, 2,12,13) = (/&
+ & 1.6817E+00_JPRB,1.5210E+00_JPRB,1.4125E+00_JPRB,1.3041E+00_JPRB,1.2468E+00_JPRB,1.1910E+00_JPRB,&
+ & 1.0644E+00_JPRB,1.0991E+00_JPRB,1.2384E+00_JPRB,5.3253E+00_JPRB/)  
+KAO( :, 3,12,13) = (/&
+ & 2.2884E+00_JPRB,2.0697E+00_JPRB,1.9237E+00_JPRB,1.7926E+00_JPRB,1.7105E+00_JPRB,1.6141E+00_JPRB,&
+ & 1.4356E+00_JPRB,1.4903E+00_JPRB,1.6827E+00_JPRB,5.6934E+00_JPRB/)  
+KAO( :, 4,12,13) = (/&
+ & 3.0153E+00_JPRB,2.7275E+00_JPRB,2.5449E+00_JPRB,2.3911E+00_JPRB,2.2578E+00_JPRB,2.1058E+00_JPRB,&
+ & 1.8686E+00_JPRB,1.9453E+00_JPRB,2.2026E+00_JPRB,6.1123E+00_JPRB/)  
+KAO( :, 5,12,13) = (/&
+ & 3.8521E+00_JPRB,3.4852E+00_JPRB,3.2646E+00_JPRB,3.0814E+00_JPRB,2.8800E+00_JPRB,2.6613E+00_JPRB,&
+ & 2.3377E+00_JPRB,2.4576E+00_JPRB,2.7866E+00_JPRB,6.4282E+00_JPRB/)  
+KAO( :, 1,13,13) = (/&
+ & 1.2852E+00_JPRB,1.1646E+00_JPRB,1.0642E+00_JPRB,9.7556E-01_JPRB,9.2420E-01_JPRB,8.7620E-01_JPRB,&
+ & 7.7196E-01_JPRB,7.7146E-01_JPRB,8.7630E-01_JPRB,4.8556E+00_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART9',1,ZHOOK_HANDLE)
+END SUBROUTINE PART9
+
+
+SUBROUTINE PART10
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART10',0,ZHOOK_HANDLE)
+
+
+KAO( :, 2,13,13) = (/&
+ & 1.8301E+00_JPRB,1.6589E+00_JPRB,1.5152E+00_JPRB,1.3893E+00_JPRB,1.3055E+00_JPRB,1.2323E+00_JPRB,&
+ & 1.0895E+00_JPRB,1.0875E+00_JPRB,1.2372E+00_JPRB,5.1762E+00_JPRB/)  
+KAO( :, 3,13,13) = (/&
+ & 2.4889E+00_JPRB,2.2558E+00_JPRB,2.0613E+00_JPRB,1.9034E+00_JPRB,1.7774E+00_JPRB,1.6692E+00_JPRB,&
+ & 1.4717E+00_JPRB,1.4657E+00_JPRB,1.6743E+00_JPRB,5.5984E+00_JPRB/)  
+KAO( :, 4,13,13) = (/&
+ & 3.2570E+00_JPRB,2.9493E+00_JPRB,2.7127E+00_JPRB,2.5175E+00_JPRB,2.3371E+00_JPRB,2.1800E+00_JPRB,&
+ & 1.9099E+00_JPRB,1.9041E+00_JPRB,2.1795E+00_JPRB,5.9989E+00_JPRB/)  
+KAO( :, 5,13,13) = (/&
+ & 4.1326E+00_JPRB,3.7382E+00_JPRB,3.4726E+00_JPRB,3.2172E+00_JPRB,2.9811E+00_JPRB,2.7433E+00_JPRB,&
+ & 2.3977E+00_JPRB,2.4060E+00_JPRB,2.7519E+00_JPRB,6.3218E+00_JPRB/)  
+KAO( :, 1, 1,14) = (/&
+ & 6.3467E+00_JPRB,5.5536E+00_JPRB,4.7605E+00_JPRB,3.9673E+00_JPRB,3.4386E+00_JPRB,3.0089E+00_JPRB,&
+ & 3.2295E+00_JPRB,3.7567E+00_JPRB,4.0531E+00_JPRB,4.1923E+00_JPRB/)  
+KAO( :, 2, 1,14) = (/&
+ & 7.3964E+00_JPRB,6.4721E+00_JPRB,5.5478E+00_JPRB,4.6234E+00_JPRB,4.0808E+00_JPRB,3.6137E+00_JPRB,&
+ & 3.9782E+00_JPRB,4.6298E+00_JPRB,5.0268E+00_JPRB,5.1845E+00_JPRB/)  
+KAO( :, 3, 1,14) = (/&
+ & 8.4250E+00_JPRB,7.3721E+00_JPRB,6.3192E+00_JPRB,5.2663E+00_JPRB,4.6836E+00_JPRB,4.2376E+00_JPRB,&
+ & 4.8035E+00_JPRB,5.5919E+00_JPRB,6.0740E+00_JPRB,6.2648E+00_JPRB/)  
+KAO( :, 4, 1,14) = (/&
+ & 9.4499E+00_JPRB,8.2689E+00_JPRB,7.0879E+00_JPRB,5.9239E+00_JPRB,5.2786E+00_JPRB,4.8999E+00_JPRB,&
+ & 5.6760E+00_JPRB,6.6052E+00_JPRB,7.1802E+00_JPRB,7.4022E+00_JPRB/)  
+KAO( :, 5, 1,14) = (/&
+ & 1.0423E+01_JPRB,9.1200E+00_JPRB,7.8174E+00_JPRB,6.5882E+00_JPRB,5.8558E+00_JPRB,5.6014E+00_JPRB,&
+ & 6.5884E+00_JPRB,7.6675E+00_JPRB,8.3255E+00_JPRB,8.5803E+00_JPRB/)  
+KAO( :, 1, 2,14) = (/&
+ & 6.0960E+00_JPRB,5.3341E+00_JPRB,4.5723E+00_JPRB,3.8126E+00_JPRB,3.4069E+00_JPRB,2.9396E+00_JPRB,&
+ & 3.2197E+00_JPRB,3.7455E+00_JPRB,4.0286E+00_JPRB,4.2155E+00_JPRB/)  
+KAO( :, 2, 2,14) = (/&
+ & 7.1676E+00_JPRB,6.2719E+00_JPRB,5.3761E+00_JPRB,4.4966E+00_JPRB,4.0412E+00_JPRB,3.5493E+00_JPRB,&
+ & 3.9472E+00_JPRB,4.5920E+00_JPRB,4.9699E+00_JPRB,5.1775E+00_JPRB/)  
+KAO( :, 3, 2,14) = (/&
+ & 8.2275E+00_JPRB,7.1993E+00_JPRB,6.1710E+00_JPRB,5.2089E+00_JPRB,4.6568E+00_JPRB,4.1985E+00_JPRB,&
+ & 4.7440E+00_JPRB,5.5211E+00_JPRB,6.0149E+00_JPRB,6.2370E+00_JPRB/)  
+KAO( :, 4, 2,14) = (/&
+ & 9.2799E+00_JPRB,8.1202E+00_JPRB,6.9604E+00_JPRB,5.9586E+00_JPRB,5.2716E+00_JPRB,4.8960E+00_JPRB,&
+ & 5.6599E+00_JPRB,6.5872E+00_JPRB,7.1735E+00_JPRB,7.4414E+00_JPRB/)  
+KAO( :, 5, 2,14) = (/&
+ & 1.0290E+01_JPRB,9.0044E+00_JPRB,7.7181E+00_JPRB,6.7211E+00_JPRB,5.8757E+00_JPRB,5.6245E+00_JPRB,&
+ & 6.6558E+00_JPRB,7.7452E+00_JPRB,8.4069E+00_JPRB,8.7373E+00_JPRB/)  
+KAO( :, 1, 3,14) = (/&
+ & 5.6039E+00_JPRB,4.9036E+00_JPRB,4.2032E+00_JPRB,3.5445E+00_JPRB,3.1902E+00_JPRB,2.7537E+00_JPRB,&
+ & 3.0813E+00_JPRB,3.5840E+00_JPRB,3.8576E+00_JPRB,4.0764E+00_JPRB/)  
+KAO( :, 2, 3,14) = (/&
+ & 6.6863E+00_JPRB,5.8506E+00_JPRB,5.0150E+00_JPRB,4.2815E+00_JPRB,3.8270E+00_JPRB,3.3352E+00_JPRB,&
+ & 3.7857E+00_JPRB,4.4048E+00_JPRB,4.7637E+00_JPRB,5.0131E+00_JPRB/)  
+KAO( :, 3, 3,14) = (/&
+ & 7.7737E+00_JPRB,6.8021E+00_JPRB,5.8305E+00_JPRB,5.0665E+00_JPRB,4.4594E+00_JPRB,3.9827E+00_JPRB,&
+ & 4.5659E+00_JPRB,5.3124E+00_JPRB,5.7659E+00_JPRB,6.0477E+00_JPRB/)  
+KAO( :, 4, 3,14) = (/&
+ & 8.8508E+00_JPRB,7.7446E+00_JPRB,6.6384E+00_JPRB,5.8813E+00_JPRB,5.0859E+00_JPRB,4.6840E+00_JPRB,&
+ & 5.4591E+00_JPRB,6.3527E+00_JPRB,6.8914E+00_JPRB,7.2291E+00_JPRB/)  
+KAO( :, 5, 3,14) = (/&
+ & 9.9079E+00_JPRB,8.6696E+00_JPRB,7.4314E+00_JPRB,6.6539E+00_JPRB,5.7107E+00_JPRB,5.4618E+00_JPRB,&
+ & 6.4933E+00_JPRB,7.5556E+00_JPRB,8.1916E+00_JPRB,8.5967E+00_JPRB/)  
+KAO( :, 1, 4,14) = (/&
+ & 5.0429E+00_JPRB,4.4127E+00_JPRB,3.7824E+00_JPRB,3.2565E+00_JPRB,2.9117E+00_JPRB,2.5898E+00_JPRB,&
+ & 2.8958E+00_JPRB,3.3702E+00_JPRB,3.6408E+00_JPRB,3.8526E+00_JPRB/)  
+KAO( :, 2, 4,14) = (/&
+ & 6.1165E+00_JPRB,5.3520E+00_JPRB,4.5876E+00_JPRB,4.0300E+00_JPRB,3.5416E+00_JPRB,3.1532E+00_JPRB,&
+ & 3.5780E+00_JPRB,4.1633E+00_JPRB,4.5155E+00_JPRB,4.7595E+00_JPRB/)  
+KAO( :, 3, 4,14) = (/&
+ & 7.2202E+00_JPRB,6.3178E+00_JPRB,5.4153E+00_JPRB,4.8492E+00_JPRB,4.1829E+00_JPRB,3.7790E+00_JPRB,&
+ & 4.3631E+00_JPRB,5.0766E+00_JPRB,5.4928E+00_JPRB,5.8029E+00_JPRB/)  
+KAO( :, 4, 4,14) = (/&
+ & 8.3276E+00_JPRB,7.2868E+00_JPRB,6.2460E+00_JPRB,5.6534E+00_JPRB,4.8225E+00_JPRB,4.4640E+00_JPRB,&
+ & 5.2625E+00_JPRB,6.1221E+00_JPRB,6.6156E+00_JPRB,6.9984E+00_JPRB/)  
+KAO( :, 5, 4,14) = (/&
+ & 9.4148E+00_JPRB,8.2381E+00_JPRB,7.0618E+00_JPRB,6.4221E+00_JPRB,5.4760E+00_JPRB,5.2668E+00_JPRB,&
+ & 6.3012E+00_JPRB,7.3279E+00_JPRB,7.8962E+00_JPRB,8.3774E+00_JPRB/)  
+KAO( :, 1, 5,14) = (/&
+ & 4.4802E+00_JPRB,3.9202E+00_JPRB,3.3603E+00_JPRB,2.9662E+00_JPRB,2.6611E+00_JPRB,2.4288E+00_JPRB,&
+ & 2.7026E+00_JPRB,3.1455E+00_JPRB,3.4114E+00_JPRB,3.6024E+00_JPRB/)  
+KAO( :, 2, 5,14) = (/&
+ & 5.5401E+00_JPRB,4.8477E+00_JPRB,4.1552E+00_JPRB,3.7384E+00_JPRB,3.2633E+00_JPRB,2.9928E+00_JPRB,&
+ & 3.3900E+00_JPRB,3.9443E+00_JPRB,4.2636E+00_JPRB,4.5188E+00_JPRB/)  
+KAO( :, 3, 5,14) = (/&
+ & 6.6438E+00_JPRB,5.8134E+00_JPRB,4.9831E+00_JPRB,4.5446E+00_JPRB,3.8884E+00_JPRB,3.6053E+00_JPRB,&
+ & 4.1835E+00_JPRB,4.8658E+00_JPRB,5.2435E+00_JPRB,5.5754E+00_JPRB/)  
+KAO( :, 4, 5,14) = (/&
+ & 7.7709E+00_JPRB,6.7996E+00_JPRB,5.8338E+00_JPRB,5.3460E+00_JPRB,4.5461E+00_JPRB,4.3055E+00_JPRB,&
+ & 5.1051E+00_JPRB,5.9359E+00_JPRB,6.3763E+00_JPRB,6.8031E+00_JPRB/)  
+KAO( :, 5, 5,14) = (/&
+ & 8.8898E+00_JPRB,7.7787E+00_JPRB,6.6983E+00_JPRB,6.1260E+00_JPRB,5.2267E+00_JPRB,5.1517E+00_JPRB,&
+ & 6.1712E+00_JPRB,7.1748E+00_JPRB,7.6888E+00_JPRB,8.2242E+00_JPRB/)  
+KAO( :, 1, 6,14) = (/&
+ & 3.8956E+00_JPRB,3.4087E+00_JPRB,2.9221E+00_JPRB,2.6281E+00_JPRB,2.4050E+00_JPRB,2.1916E+00_JPRB,&
+ & 2.4174E+00_JPRB,2.8161E+00_JPRB,3.0927E+00_JPRB,3.2244E+00_JPRB/)  
+KAO( :, 2, 6,14) = (/&
+ & 4.9303E+00_JPRB,4.3141E+00_JPRB,3.7046E+00_JPRB,3.3844E+00_JPRB,3.0105E+00_JPRB,2.7770E+00_JPRB,&
+ & 3.1412E+00_JPRB,3.6575E+00_JPRB,3.9814E+00_JPRB,4.1910E+00_JPRB/)  
+KAO( :, 3, 6,14) = (/&
+ & 6.0218E+00_JPRB,5.2691E+00_JPRB,4.5387E+00_JPRB,4.1657E+00_JPRB,3.6350E+00_JPRB,3.4172E+00_JPRB,&
+ & 3.9726E+00_JPRB,4.6214E+00_JPRB,4.9897E+00_JPRB,5.2991E+00_JPRB/)  
+KAO( :, 4, 6,14) = (/&
+ & 7.1568E+00_JPRB,6.2623E+00_JPRB,5.4345E+00_JPRB,4.9658E+00_JPRB,4.2966E+00_JPRB,4.1563E+00_JPRB,&
+ & 4.9351E+00_JPRB,5.7383E+00_JPRB,6.1434E+00_JPRB,6.5857E+00_JPRB/)  
+KAO( :, 5, 6,14) = (/&
+ & 8.3003E+00_JPRB,7.2628E+00_JPRB,6.3671E+00_JPRB,5.7590E+00_JPRB,4.9644E+00_JPRB,5.0298E+00_JPRB,&
+ & 6.0229E+00_JPRB,7.0046E+00_JPRB,7.4957E+00_JPRB,8.0375E+00_JPRB/)  
+KAO( :, 1, 7,14) = (/&
+ & 3.3388E+00_JPRB,2.9215E+00_JPRB,2.5187E+00_JPRB,2.3253E+00_JPRB,2.1119E+00_JPRB,1.9164E+00_JPRB,&
+ & 2.0859E+00_JPRB,2.4315E+00_JPRB,2.6982E+00_JPRB,2.7836E+00_JPRB/)  
+KAO( :, 2, 7,14) = (/&
+ & 4.3359E+00_JPRB,3.7940E+00_JPRB,3.2869E+00_JPRB,3.0293E+00_JPRB,2.7102E+00_JPRB,2.5026E+00_JPRB,&
+ & 2.8032E+00_JPRB,3.2661E+00_JPRB,3.5953E+00_JPRB,3.7400E+00_JPRB/)  
+KAO( :, 3, 7,14) = (/&
+ & 5.4120E+00_JPRB,4.7356E+00_JPRB,4.1395E+00_JPRB,3.7778E+00_JPRB,3.3513E+00_JPRB,3.1688E+00_JPRB,&
+ & 3.6572E+00_JPRB,4.2574E+00_JPRB,4.6459E+00_JPRB,4.8805E+00_JPRB/)  
+KAO( :, 4, 7,14) = (/&
+ & 6.5428E+00_JPRB,5.7250E+00_JPRB,5.0639E+00_JPRB,4.5620E+00_JPRB,4.0362E+00_JPRB,3.9521E+00_JPRB,&
+ & 4.6701E+00_JPRB,5.4350E+00_JPRB,5.8814E+00_JPRB,6.2344E+00_JPRB/)  
+KAO( :, 5, 7,14) = (/&
+ & 7.7011E+00_JPRB,6.7385E+00_JPRB,6.0359E+00_JPRB,5.3689E+00_JPRB,4.7398E+00_JPRB,4.8671E+00_JPRB,&
+ & 5.8104E+00_JPRB,6.7609E+00_JPRB,7.2855E+00_JPRB,7.7564E+00_JPRB/)  
+KAO( :, 1, 8,14) = (/&
+ & 2.8332E+00_JPRB,2.4790E+00_JPRB,2.1588E+00_JPRB,2.0517E+00_JPRB,1.8212E+00_JPRB,1.6427E+00_JPRB,&
+ & 1.7555E+00_JPRB,2.0463E+00_JPRB,2.2808E+00_JPRB,2.3417E+00_JPRB/)  
+KAO( :, 2, 8,14) = (/&
+ & 3.7845E+00_JPRB,3.3115E+00_JPRB,2.9062E+00_JPRB,2.7307E+00_JPRB,2.4002E+00_JPRB,2.2076E+00_JPRB,&
+ & 2.4394E+00_JPRB,2.8424E+00_JPRB,3.1489E+00_JPRB,3.2550E+00_JPRB/)  
+KAO( :, 3, 8,14) = (/&
+ & 4.8341E+00_JPRB,4.2299E+00_JPRB,3.7584E+00_JPRB,3.4582E+00_JPRB,3.0437E+00_JPRB,2.8748E+00_JPRB,&
+ & 3.2834E+00_JPRB,3.8242E+00_JPRB,4.1983E+00_JPRB,4.3823E+00_JPRB/)  
+KAO( :, 4, 8,14) = (/&
+ & 5.9611E+00_JPRB,5.2160E+00_JPRB,4.6841E+00_JPRB,4.2257E+00_JPRB,3.7381E+00_JPRB,3.6695E+00_JPRB,&
+ & 4.3008E+00_JPRB,5.0080E+00_JPRB,5.4653E+00_JPRB,5.7413E+00_JPRB/)  
+KAO( :, 5, 8,14) = (/&
+ & 7.1388E+00_JPRB,6.2465E+00_JPRB,5.6516E+00_JPRB,5.0317E+00_JPRB,4.4851E+00_JPRB,4.5966E+00_JPRB,&
+ & 5.4606E+00_JPRB,6.3571E+00_JPRB,6.9303E+00_JPRB,7.2901E+00_JPRB/)  
+KAO( :, 1, 9,14) = (/&
+ & 2.3712E+00_JPRB,2.0748E+00_JPRB,1.8514E+00_JPRB,1.7610E+00_JPRB,1.5410E+00_JPRB,1.3776E+00_JPRB,&
+ & 1.4602E+00_JPRB,1.7019E+00_JPRB,1.8917E+00_JPRB,1.9491E+00_JPRB/)  
+KAO( :, 2, 9,14) = (/&
+ & 3.2706E+00_JPRB,2.8618E+00_JPRB,2.5535E+00_JPRB,2.4121E+00_JPRB,2.0953E+00_JPRB,1.9091E+00_JPRB,&
+ & 2.0867E+00_JPRB,2.4315E+00_JPRB,2.6961E+00_JPRB,2.7855E+00_JPRB/)  
+KAO( :, 3, 9,14) = (/&
+ & 4.2928E+00_JPRB,3.7562E+00_JPRB,3.3707E+00_JPRB,3.1325E+00_JPRB,2.7323E+00_JPRB,2.5568E+00_JPRB,&
+ & 2.8897E+00_JPRB,3.3658E+00_JPRB,3.7112E+00_JPRB,3.8566E+00_JPRB/)  
+KAO( :, 4, 9,14) = (/&
+ & 5.4084E+00_JPRB,4.7324E+00_JPRB,4.2872E+00_JPRB,3.9074E+00_JPRB,3.4333E+00_JPRB,3.3403E+00_JPRB,&
+ & 3.8759E+00_JPRB,4.5148E+00_JPRB,4.9657E+00_JPRB,5.1730E+00_JPRB/)  
+KAO( :, 5, 9,14) = (/&
+ & 6.5945E+00_JPRB,5.7702E+00_JPRB,5.2612E+00_JPRB,4.7341E+00_JPRB,4.2027E+00_JPRB,4.2619E+00_JPRB,&
+ & 5.0203E+00_JPRB,5.8475E+00_JPRB,6.4247E+00_JPRB,6.7007E+00_JPRB/)  
+KAO( :, 1,10,14) = (/&
+ & 2.0238E+00_JPRB,1.7709E+00_JPRB,1.6271E+00_JPRB,1.5213E+00_JPRB,1.3211E+00_JPRB,1.1708E+00_JPRB,&
+ & 1.2470E+00_JPRB,1.4529E+00_JPRB,1.6100E+00_JPRB,4.3675E+00_JPRB/)  
+KAO( :, 2,10,14) = (/&
+ & 2.8739E+00_JPRB,2.5147E+00_JPRB,2.3020E+00_JPRB,2.1393E+00_JPRB,1.8575E+00_JPRB,1.6735E+00_JPRB,&
+ & 1.8305E+00_JPRB,2.1324E+00_JPRB,2.3565E+00_JPRB,4.3227E+00_JPRB/)  
+KAO( :, 3,10,14) = (/&
+ & 3.8650E+00_JPRB,3.3819E+00_JPRB,3.1009E+00_JPRB,2.8438E+00_JPRB,2.4832E+00_JPRB,2.3021E+00_JPRB,&
+ & 2.5924E+00_JPRB,3.0194E+00_JPRB,3.3202E+00_JPRB,4.3938E+00_JPRB/)  
+KAO( :, 4,10,14) = (/&
+ & 4.9777E+00_JPRB,4.3555E+00_JPRB,3.9964E+00_JPRB,3.6309E+00_JPRB,3.1871E+00_JPRB,3.0700E+00_JPRB,&
+ & 3.5258E+00_JPRB,4.1073E+00_JPRB,4.5249E+00_JPRB,4.9612E+00_JPRB/)  
+KAO( :, 5,10,14) = (/&
+ & 6.1825E+00_JPRB,5.4114E+00_JPRB,4.9528E+00_JPRB,4.4825E+00_JPRB,3.9869E+00_JPRB,3.9806E+00_JPRB,&
+ & 4.6382E+00_JPRB,5.4027E+00_JPRB,5.9521E+00_JPRB,6.1940E+00_JPRB/)  
+KAO( :, 1,11,14) = (/&
+ & 2.0804E+00_JPRB,1.8204E+00_JPRB,1.7005E+00_JPRB,1.5536E+00_JPRB,1.3500E+00_JPRB,1.2044E+00_JPRB,&
+ & 1.3053E+00_JPRB,1.5201E+00_JPRB,1.6683E+00_JPRB,7.0995E+00_JPRB/)  
+KAO( :, 2,11,14) = (/&
+ & 2.9372E+00_JPRB,2.5710E+00_JPRB,2.4123E+00_JPRB,2.1876E+00_JPRB,1.9103E+00_JPRB,1.7356E+00_JPRB,&
+ & 1.9131E+00_JPRB,2.2284E+00_JPRB,2.4493E+00_JPRB,7.0950E+00_JPRB/)  
+KAO( :, 3,11,14) = (/&
+ & 3.9628E+00_JPRB,3.4731E+00_JPRB,3.2411E+00_JPRB,2.9265E+00_JPRB,2.5614E+00_JPRB,2.3947E+00_JPRB,&
+ & 2.6976E+00_JPRB,3.1434E+00_JPRB,3.4700E+00_JPRB,6.9637E+00_JPRB/)  
+KAO( :, 4,11,14) = (/&
+ & 5.1248E+00_JPRB,4.4937E+00_JPRB,4.1603E+00_JPRB,3.7597E+00_JPRB,3.3177E+00_JPRB,3.2015E+00_JPRB,&
+ & 3.6687E+00_JPRB,4.2746E+00_JPRB,4.7220E+00_JPRB,6.9069E+00_JPRB/)  
+KAO( :, 5,11,14) = (/&
+ & 6.4048E+00_JPRB,5.6238E+00_JPRB,5.1596E+00_JPRB,4.6653E+00_JPRB,4.1869E+00_JPRB,4.1503E+00_JPRB,&
+ & 4.8291E+00_JPRB,5.6278E+00_JPRB,6.2131E+00_JPRB,7.3735E+00_JPRB/)  
+KAO( :, 1,12,14) = (/&
+ & 2.1606E+00_JPRB,1.8919E+00_JPRB,1.7776E+00_JPRB,1.5988E+00_JPRB,1.3931E+00_JPRB,1.2607E+00_JPRB,&
+ & 1.3765E+00_JPRB,1.6030E+00_JPRB,1.7584E+00_JPRB,8.8539E+00_JPRB/)  
+KAO( :, 2,12,14) = (/&
+ & 3.0241E+00_JPRB,2.6538E+00_JPRB,2.5108E+00_JPRB,2.2558E+00_JPRB,1.9760E+00_JPRB,1.8135E+00_JPRB,&
+ & 2.0048E+00_JPRB,2.3354E+00_JPRB,2.5682E+00_JPRB,8.8299E+00_JPRB/)  
+KAO( :, 3,12,14) = (/&
+ & 4.0854E+00_JPRB,3.5917E+00_JPRB,3.3758E+00_JPRB,3.0347E+00_JPRB,2.6732E+00_JPRB,2.5117E+00_JPRB,&
+ & 2.8106E+00_JPRB,3.2743E+00_JPRB,3.6095E+00_JPRB,8.6670E+00_JPRB/)  
+KAO( :, 4,12,14) = (/&
+ & 5.3044E+00_JPRB,4.6786E+00_JPRB,4.3443E+00_JPRB,3.9213E+00_JPRB,3.4969E+00_JPRB,3.3585E+00_JPRB,&
+ & 3.8040E+00_JPRB,4.4330E+00_JPRB,4.9075E+00_JPRB,8.5700E+00_JPRB/)  
+KAO( :, 5,12,14) = (/&
+ & 6.6440E+00_JPRB,5.8812E+00_JPRB,5.4120E+00_JPRB,4.9125E+00_JPRB,4.4282E+00_JPRB,4.3429E+00_JPRB,&
+ & 4.9855E+00_JPRB,5.8102E+00_JPRB,6.4492E+00_JPRB,8.6830E+00_JPRB/)  
+KAO( :, 1,13,14) = (/&
+ & 2.2525E+00_JPRB,1.9864E+00_JPRB,1.8643E+00_JPRB,1.6602E+00_JPRB,1.4614E+00_JPRB,1.3350E+00_JPRB,&
+ & 1.4569E+00_JPRB,1.6960E+00_JPRB,1.8539E+00_JPRB,8.7601E+00_JPRB/)  
+KAO( :, 2,13,14) = (/&
+ & 3.1332E+00_JPRB,2.7632E+00_JPRB,2.6018E+00_JPRB,2.3367E+00_JPRB,2.0765E+00_JPRB,1.9171E+00_JPRB,&
+ & 2.1105E+00_JPRB,2.4578E+00_JPRB,2.6945E+00_JPRB,8.6837E+00_JPRB/)  
+KAO( :, 3,13,14) = (/&
+ & 4.2146E+00_JPRB,3.7269E+00_JPRB,3.4963E+00_JPRB,3.1609E+00_JPRB,2.8326E+00_JPRB,2.6522E+00_JPRB,&
+ & 2.9390E+00_JPRB,3.4234E+00_JPRB,3.7715E+00_JPRB,8.5952E+00_JPRB/)  
+KAO( :, 4,13,14) = (/&
+ & 5.4718E+00_JPRB,4.8645E+00_JPRB,4.5313E+00_JPRB,4.1221E+00_JPRB,3.7163E+00_JPRB,3.5387E+00_JPRB,&
+ & 3.9442E+00_JPRB,4.5945E+00_JPRB,5.0796E+00_JPRB,8.5494E+00_JPRB/)  
+KAO( :, 5,13,14) = (/&
+ & 6.8761E+00_JPRB,6.1372E+00_JPRB,5.6718E+00_JPRB,5.2229E+00_JPRB,4.7155E+00_JPRB,4.5637E+00_JPRB,&
+ & 5.1163E+00_JPRB,5.9645E+00_JPRB,6.6388E+00_JPRB,8.7275E+00_JPRB/)  
+KAO( :, 1, 1,15) = (/&
+ & 7.4038E+00_JPRB,6.4785E+00_JPRB,5.5532E+00_JPRB,4.6280E+00_JPRB,3.7389E+00_JPRB,4.3853E+00_JPRB,&
+ & 5.2514E+00_JPRB,6.0902E+00_JPRB,6.2346E+00_JPRB,6.5981E+00_JPRB/)  
+KAO( :, 2, 1,15) = (/&
+ & 8.5770E+00_JPRB,7.5051E+00_JPRB,6.4332E+00_JPRB,5.3613E+00_JPRB,4.4922E+00_JPRB,5.5332E+00_JPRB,&
+ & 6.6248E+00_JPRB,7.6856E+00_JPRB,7.8788E+00_JPRB,8.3358E+00_JPRB/)  
+KAO( :, 3, 1,15) = (/&
+ & 9.7196E+00_JPRB,8.4924E+00_JPRB,7.2901E+00_JPRB,6.0754E+00_JPRB,5.4287E+00_JPRB,6.7758E+00_JPRB,&
+ & 8.1174E+00_JPRB,9.4295E+00_JPRB,9.6454E+00_JPRB,1.0231E+01_JPRB/)  
+KAO( :, 4, 1,15) = (/&
+ & 1.0823E+01_JPRB,9.4701E+00_JPRB,8.1175E+00_JPRB,6.7650E+00_JPRB,6.4845E+00_JPRB,8.0968E+00_JPRB,&
+ & 9.6971E+00_JPRB,1.1247E+01_JPRB,1.1535E+01_JPRB,1.2232E+01_JPRB/)  
+KAO( :, 5, 1,15) = (/&
+ & 1.1862E+01_JPRB,1.0380E+01_JPRB,8.8975E+00_JPRB,7.4149E+00_JPRB,7.5987E+00_JPRB,9.4854E+00_JPRB,&
+ & 1.1367E+01_JPRB,1.3183E+01_JPRB,1.3535E+01_JPRB,1.4322E+01_JPRB/)  
+KAO( :, 1, 2,15) = (/&
+ & 7.2487E+00_JPRB,6.3428E+00_JPRB,5.4369E+00_JPRB,4.5309E+00_JPRB,3.8305E+00_JPRB,4.6866E+00_JPRB,&
+ & 5.6122E+00_JPRB,6.5109E+00_JPRB,6.6944E+00_JPRB,7.2237E+00_JPRB/)  
+KAO( :, 2, 2,15) = (/&
+ & 8.4632E+00_JPRB,7.4054E+00_JPRB,6.3477E+00_JPRB,5.2900E+00_JPRB,4.7972E+00_JPRB,5.9774E+00_JPRB,&
+ & 7.1612E+00_JPRB,8.3091E+00_JPRB,8.5448E+00_JPRB,9.2203E+00_JPRB/)  
+KAO( :, 3, 2,15) = (/&
+ & 9.6376E+00_JPRB,8.4331E+00_JPRB,7.2286E+00_JPRB,6.0241E+00_JPRB,5.9277E+00_JPRB,7.4032E+00_JPRB,&
+ & 8.8670E+00_JPRB,1.0288E+01_JPRB,1.0591E+01_JPRB,1.1420E+01_JPRB/)  
+KAO( :, 4, 2,15) = (/&
+ & 1.0787E+01_JPRB,9.4386E+00_JPRB,8.0905E+00_JPRB,6.7423E+00_JPRB,7.1365E+00_JPRB,8.9120E+00_JPRB,&
+ & 1.0675E+01_JPRB,1.2387E+01_JPRB,1.2766E+01_JPRB,1.3751E+01_JPRB/)  
+KAO( :, 5, 2,15) = (/&
+ & 1.1876E+01_JPRB,1.0392E+01_JPRB,8.9076E+00_JPRB,7.4263E+00_JPRB,8.4093E+00_JPRB,1.0502E+01_JPRB,&
+ & 1.2577E+01_JPRB,1.4600E+01_JPRB,1.5061E+01_JPRB,1.6216E+01_JPRB/)  
+KAO( :, 1, 3,15) = (/&
+ & 6.8060E+00_JPRB,5.9554E+00_JPRB,5.1048E+00_JPRB,4.2541E+00_JPRB,3.7945E+00_JPRB,4.6793E+00_JPRB,&
+ & 5.6066E+00_JPRB,6.5069E+00_JPRB,6.7262E+00_JPRB,7.3705E+00_JPRB/)  
+KAO( :, 2, 3,15) = (/&
+ & 8.0512E+00_JPRB,7.0449E+00_JPRB,6.0387E+00_JPRB,5.0324E+00_JPRB,4.8723E+00_JPRB,6.0807E+00_JPRB,&
+ & 7.2845E+00_JPRB,8.4534E+00_JPRB,8.7471E+00_JPRB,9.5785E+00_JPRB/)  
+KAO( :, 3, 3,15) = (/&
+ & 9.2771E+00_JPRB,8.1176E+00_JPRB,6.9581E+00_JPRB,5.7986E+00_JPRB,6.1227E+00_JPRB,7.6490E+00_JPRB,&
+ & 9.1620E+00_JPRB,1.0634E+01_JPRB,1.1013E+01_JPRB,1.2049E+01_JPRB/)  
+KAO( :, 4, 3,15) = (/&
+ & 1.0461E+01_JPRB,9.1535E+00_JPRB,7.8460E+00_JPRB,6.5548E+00_JPRB,7.4810E+00_JPRB,9.3445E+00_JPRB,&
+ & 1.1193E+01_JPRB,1.2995E+01_JPRB,1.3474E+01_JPRB,1.4726E+01_JPRB/)  
+KAO( :, 5, 3,15) = (/&
+ & 1.1612E+01_JPRB,1.0161E+01_JPRB,8.7094E+00_JPRB,7.3963E+00_JPRB,8.9014E+00_JPRB,1.1119E+01_JPRB,&
+ & 1.3323E+01_JPRB,1.5462E+01_JPRB,1.6055E+01_JPRB,1.7525E+01_JPRB/)  
+KAO( :, 1, 4,15) = (/&
+ & 6.2727E+00_JPRB,5.4887E+00_JPRB,4.7047E+00_JPRB,3.9207E+00_JPRB,3.6525E+00_JPRB,4.5000E+00_JPRB,&
+ & 5.3898E+00_JPRB,6.2588E+00_JPRB,6.5149E+00_JPRB,7.1567E+00_JPRB/)  
+KAO( :, 2, 4,15) = (/&
+ & 7.5169E+00_JPRB,6.5774E+00_JPRB,5.6379E+00_JPRB,4.6985E+00_JPRB,4.7911E+00_JPRB,5.9751E+00_JPRB,&
+ & 7.1596E+00_JPRB,8.3141E+00_JPRB,8.6620E+00_JPRB,9.5044E+00_JPRB/)  
+KAO( :, 3, 4,15) = (/&
+ & 8.7861E+00_JPRB,7.6880E+00_JPRB,6.5898E+00_JPRB,5.5305E+00_JPRB,6.1247E+00_JPRB,7.6488E+00_JPRB,&
+ & 9.1669E+00_JPRB,1.0645E+01_JPRB,1.1106E+01_JPRB,1.2173E+01_JPRB/)  
+KAO( :, 4, 4,15) = (/&
+ & 1.0026E+01_JPRB,8.7728E+00_JPRB,7.5197E+00_JPRB,6.4473E+00_JPRB,7.6081E+00_JPRB,9.5022E+00_JPRB,&
+ & 1.1386E+01_JPRB,1.3225E+01_JPRB,1.3819E+01_JPRB,1.5121E+01_JPRB/)  
+KAO( :, 5, 4,15) = (/&
+ & 1.1215E+01_JPRB,9.8132E+00_JPRB,8.4117E+00_JPRB,7.4634E+00_JPRB,9.1763E+00_JPRB,1.1465E+01_JPRB,&
+ & 1.3734E+01_JPRB,1.5956E+01_JPRB,1.6697E+01_JPRB,1.8243E+01_JPRB/)  
+KAO( :, 1, 5,15) = (/&
+ & 5.7094E+00_JPRB,4.9958E+00_JPRB,4.2822E+00_JPRB,3.5751E+00_JPRB,3.4456E+00_JPRB,4.2408E+00_JPRB,&
+ & 5.0808E+00_JPRB,5.9001E+00_JPRB,6.1640E+00_JPRB,6.7724E+00_JPRB/)  
+KAO( :, 2, 5,15) = (/&
+ & 6.9610E+00_JPRB,6.0909E+00_JPRB,5.2209E+00_JPRB,4.3950E+00_JPRB,4.6160E+00_JPRB,5.7378E+00_JPRB,&
+ & 6.8746E+00_JPRB,7.9877E+00_JPRB,8.3933E+00_JPRB,9.1641E+00_JPRB/)  
+KAO( :, 3, 5,15) = (/&
+ & 8.2452E+00_JPRB,7.2146E+00_JPRB,6.1840E+00_JPRB,5.2978E+00_JPRB,5.9973E+00_JPRB,7.4900E+00_JPRB,&
+ & 8.9757E+00_JPRB,1.0429E+01_JPRB,1.0974E+01_JPRB,1.1967E+01_JPRB/)  
+KAO( :, 4, 5,15) = (/&
+ & 9.5317E+00_JPRB,8.3403E+00_JPRB,7.1489E+00_JPRB,6.3594E+00_JPRB,7.5690E+00_JPRB,9.4570E+00_JPRB,&
+ & 1.1330E+01_JPRB,1.3166E+01_JPRB,1.3879E+01_JPRB,1.5102E+01_JPRB/)  
+KAO( :, 5, 5,15) = (/&
+ & 1.0774E+01_JPRB,9.4271E+00_JPRB,8.0808E+00_JPRB,7.5165E+00_JPRB,9.2600E+00_JPRB,1.1570E+01_JPRB,&
+ & 1.3864E+01_JPRB,1.6116E+01_JPRB,1.7021E+01_JPRB,1.8481E+01_JPRB/)  
+KAO( :, 1, 6,15) = (/&
+ & 5.0892E+00_JPRB,4.4531E+00_JPRB,3.8170E+00_JPRB,3.2199E+00_JPRB,3.2113E+00_JPRB,4.0113E+00_JPRB,&
+ & 4.8052E+00_JPRB,5.5784E+00_JPRB,5.7946E+00_JPRB,6.4168E+00_JPRB/)  
+KAO( :, 2, 6,15) = (/&
+ & 6.3415E+00_JPRB,5.5489E+00_JPRB,4.7563E+00_JPRB,4.0482E+00_JPRB,4.3407E+00_JPRB,5.4212E+00_JPRB,&
+ & 6.4943E+00_JPRB,7.5434E+00_JPRB,7.9031E+00_JPRB,8.6734E+00_JPRB/)  
+KAO( :, 3, 6,15) = (/&
+ & 7.6230E+00_JPRB,6.6701E+00_JPRB,5.7173E+00_JPRB,5.0372E+00_JPRB,5.7049E+00_JPRB,7.1268E+00_JPRB,&
+ & 8.5427E+00_JPRB,9.9277E+00_JPRB,1.0503E+01_JPRB,1.1401E+01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART10',1,ZHOOK_HANDLE)
+END SUBROUTINE PART10
+
+
+SUBROUTINE PART11
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART11',0,ZHOOK_HANDLE)
+
+
+KAO( :, 4, 6,15) = (/&
+ & 8.9427E+00_JPRB,7.8250E+00_JPRB,6.7072E+00_JPRB,6.1864E+00_JPRB,7.3054E+00_JPRB,9.1262E+00_JPRB,&
+ & 1.0936E+01_JPRB,1.2717E+01_JPRB,1.3530E+01_JPRB,1.4596E+01_JPRB/)  
+KAO( :, 5, 6,15) = (/&
+ & 1.0234E+01_JPRB,8.9552E+00_JPRB,7.6757E+00_JPRB,7.4408E+00_JPRB,9.0975E+00_JPRB,1.1364E+01_JPRB,&
+ & 1.3619E+01_JPRB,1.5837E+01_JPRB,1.6857E+01_JPRB,1.8182E+01_JPRB/)  
+KAO( :, 1, 7,15) = (/&
+ & 4.4701E+00_JPRB,3.9114E+00_JPRB,3.3527E+00_JPRB,2.8491E+00_JPRB,3.0525E+00_JPRB,3.8120E+00_JPRB,&
+ & 4.5671E+00_JPRB,5.3029E+00_JPRB,5.5170E+00_JPRB,6.1054E+00_JPRB/)  
+KAO( :, 2, 7,15) = (/&
+ & 5.7025E+00_JPRB,4.9897E+00_JPRB,4.2769E+00_JPRB,3.7076E+00_JPRB,4.1441E+00_JPRB,5.1768E+00_JPRB,&
+ & 6.2022E+00_JPRB,7.2045E+00_JPRB,7.5353E+00_JPRB,8.2888E+00_JPRB/)  
+KAO( :, 3, 7,15) = (/&
+ & 6.9903E+00_JPRB,6.1166E+00_JPRB,5.2429E+00_JPRB,4.7421E+00_JPRB,5.4711E+00_JPRB,6.8345E+00_JPRB,&
+ & 8.1908E+00_JPRB,9.5158E+00_JPRB,1.0021E+01_JPRB,1.0944E+01_JPRB/)  
+KAO( :, 4, 7,15) = (/&
+ & 8.3116E+00_JPRB,7.2727E+00_JPRB,6.2339E+00_JPRB,5.9347E+00_JPRB,7.0277E+00_JPRB,8.7788E+00_JPRB,&
+ & 1.0523E+01_JPRB,1.2229E+01_JPRB,1.2970E+01_JPRB,1.4056E+01_JPRB/)  
+KAO( :, 5, 7,15) = (/&
+ & 9.6433E+00_JPRB,8.4379E+00_JPRB,7.2404E+00_JPRB,7.2539E+00_JPRB,8.8191E+00_JPRB,1.1015E+01_JPRB,&
+ & 1.3202E+01_JPRB,1.5351E+01_JPRB,1.6381E+01_JPRB,1.7636E+01_JPRB/)  
+KAO( :, 1, 8,15) = (/&
+ & 3.8815E+00_JPRB,3.3963E+00_JPRB,2.9112E+00_JPRB,2.5144E+00_JPRB,2.8901E+00_JPRB,3.6107E+00_JPRB,&
+ & 4.3267E+00_JPRB,5.0237E+00_JPRB,5.2562E+00_JPRB,5.7843E+00_JPRB/)  
+KAO( :, 2, 8,15) = (/&
+ & 5.0803E+00_JPRB,4.4453E+00_JPRB,3.8103E+00_JPRB,3.3588E+00_JPRB,3.9581E+00_JPRB,4.9433E+00_JPRB,&
+ & 5.9245E+00_JPRB,6.8831E+00_JPRB,7.2246E+00_JPRB,7.9205E+00_JPRB/)  
+KAO( :, 3, 8,15) = (/&
+ & 6.3642E+00_JPRB,5.5687E+00_JPRB,4.7732E+00_JPRB,4.4061E+00_JPRB,5.2635E+00_JPRB,6.5746E+00_JPRB,&
+ & 7.8793E+00_JPRB,9.1591E+00_JPRB,9.6612E+00_JPRB,1.0533E+01_JPRB/)  
+KAO( :, 4, 8,15) = (/&
+ & 7.6962E+00_JPRB,6.7342E+00_JPRB,5.8016E+00_JPRB,5.6218E+00_JPRB,6.8073E+00_JPRB,8.5035E+00_JPRB,&
+ & 1.0191E+01_JPRB,1.1842E+01_JPRB,1.2564E+01_JPRB,1.3618E+01_JPRB/)  
+KAO( :, 5, 8,15) = (/&
+ & 9.0600E+00_JPRB,7.9276E+00_JPRB,6.8887E+00_JPRB,6.9782E+00_JPRB,8.5965E+00_JPRB,1.0738E+01_JPRB,&
+ & 1.2872E+01_JPRB,1.4959E+01_JPRB,1.5916E+01_JPRB,1.7201E+01_JPRB/)  
+KAO( :, 1, 9,15) = (/&
+ & 3.3248E+00_JPRB,2.9093E+00_JPRB,2.4937E+00_JPRB,2.2724E+00_JPRB,2.6961E+00_JPRB,3.3684E+00_JPRB,&
+ & 4.0359E+00_JPRB,4.6900E+00_JPRB,4.9499E+00_JPRB,5.3973E+00_JPRB/)  
+KAO( :, 2, 9,15) = (/&
+ & 4.4808E+00_JPRB,3.9207E+00_JPRB,3.3615E+00_JPRB,3.0920E+00_JPRB,3.7395E+00_JPRB,4.6706E+00_JPRB,&
+ & 5.5971E+00_JPRB,6.5044E+00_JPRB,6.8727E+00_JPRB,7.4836E+00_JPRB/)  
+KAO( :, 3, 9,15) = (/&
+ & 5.7505E+00_JPRB,5.0317E+00_JPRB,4.3435E+00_JPRB,4.1016E+00_JPRB,5.0205E+00_JPRB,6.2714E+00_JPRB,&
+ & 7.5160E+00_JPRB,8.7397E+00_JPRB,9.2709E+00_JPRB,1.0047E+01_JPRB/)  
+KAO( :, 4, 9,15) = (/&
+ & 7.0908E+00_JPRB,6.2044E+00_JPRB,5.3782E+00_JPRB,5.2882E+00_JPRB,6.5597E+00_JPRB,8.1944E+00_JPRB,&
+ & 9.8217E+00_JPRB,1.1416E+01_JPRB,1.2142E+01_JPRB,1.3130E+01_JPRB/)  
+KAO( :, 5, 9,15) = (/&
+ & 8.4732E+00_JPRB,7.4141E+00_JPRB,6.4913E+00_JPRB,6.6287E+00_JPRB,8.3565E+00_JPRB,1.0438E+01_JPRB,&
+ & 1.2512E+01_JPRB,1.4551E+01_JPRB,1.5514E+01_JPRB,1.6723E+01_JPRB/)  
+KAO( :, 1,10,15) = (/&
+ & 2.8920E+00_JPRB,2.5306E+00_JPRB,2.1693E+00_JPRB,2.0986E+00_JPRB,2.5124E+00_JPRB,3.1388E+00_JPRB,&
+ & 3.7625E+00_JPRB,4.3752E+00_JPRB,4.6672E+00_JPRB,5.6157E+00_JPRB/)  
+KAO( :, 2,10,15) = (/&
+ & 4.0040E+00_JPRB,3.5035E+00_JPRB,3.0238E+00_JPRB,2.9376E+00_JPRB,3.5667E+00_JPRB,4.4559E+00_JPRB,&
+ & 5.3416E+00_JPRB,6.2115E+00_JPRB,6.6210E+00_JPRB,7.1691E+00_JPRB/)  
+KAO( :, 3,10,15) = (/&
+ & 5.2529E+00_JPRB,4.5963E+00_JPRB,3.9804E+00_JPRB,3.9436E+00_JPRB,4.8397E+00_JPRB,6.0465E+00_JPRB,&
+ & 7.2474E+00_JPRB,8.4282E+00_JPRB,9.0023E+00_JPRB,9.6885E+00_JPRB/)  
+KAO( :, 4,10,15) = (/&
+ & 6.6009E+00_JPRB,5.7758E+00_JPRB,5.0451E+00_JPRB,5.1236E+00_JPRB,6.3901E+00_JPRB,7.9831E+00_JPRB,&
+ & 9.5690E+00_JPRB,1.1128E+01_JPRB,1.1898E+01_JPRB,1.2790E+01_JPRB/)  
+KAO( :, 5,10,15) = (/&
+ & 8.0358E+00_JPRB,7.0314E+00_JPRB,6.2146E+00_JPRB,6.4650E+00_JPRB,8.1964E+00_JPRB,1.0240E+01_JPRB,&
+ & 1.2274E+01_JPRB,1.4283E+01_JPRB,1.5317E+01_JPRB,1.6405E+01_JPRB/)  
+KAO( :, 1,11,15) = (/&
+ & 2.9597E+00_JPRB,2.5897E+00_JPRB,2.2655E+00_JPRB,2.2769E+00_JPRB,2.7359E+00_JPRB,3.4131E+00_JPRB,&
+ & 4.0924E+00_JPRB,4.7622E+00_JPRB,5.1369E+00_JPRB,8.7664E+00_JPRB/)  
+KAO( :, 2,11,15) = (/&
+ & 4.1090E+00_JPRB,3.5954E+00_JPRB,3.1274E+00_JPRB,3.2086E+00_JPRB,3.8891E+00_JPRB,4.8589E+00_JPRB,&
+ & 5.8255E+00_JPRB,6.7761E+00_JPRB,7.2974E+00_JPRB,9.1429E+00_JPRB/)  
+KAO( :, 3,11,15) = (/&
+ & 5.4257E+00_JPRB,4.7475E+00_JPRB,4.1432E+00_JPRB,4.3071E+00_JPRB,5.2960E+00_JPRB,6.6178E+00_JPRB,&
+ & 7.9327E+00_JPRB,9.2300E+00_JPRB,9.9139E+00_JPRB,1.0877E+01_JPRB/)  
+KAO( :, 4,11,15) = (/&
+ & 6.8635E+00_JPRB,6.0056E+00_JPRB,5.3031E+00_JPRB,5.5726E+00_JPRB,6.9728E+00_JPRB,8.7117E+00_JPRB,&
+ & 1.0444E+01_JPRB,1.2152E+01_JPRB,1.3068E+01_JPRB,1.3956E+01_JPRB/)  
+KAO( :, 5,11,15) = (/&
+ & 8.4007E+00_JPRB,7.3506E+00_JPRB,6.6010E+00_JPRB,7.0376E+00_JPRB,8.9249E+00_JPRB,1.1150E+01_JPRB,&
+ & 1.3367E+01_JPRB,1.5547E+01_JPRB,1.6736E+01_JPRB,1.7861E+01_JPRB/)  
+KAO( :, 1,12,15) = (/&
+ & 3.0706E+00_JPRB,2.6868E+00_JPRB,2.3786E+00_JPRB,2.4650E+00_JPRB,2.9376E+00_JPRB,3.6606E+00_JPRB,&
+ & 4.3900E+00_JPRB,5.1097E+00_JPRB,5.5523E+00_JPRB,1.1122E+01_JPRB/)  
+KAO( :, 2,12,15) = (/&
+ & 4.2894E+00_JPRB,3.7532E+00_JPRB,3.3135E+00_JPRB,3.4942E+00_JPRB,4.2139E+00_JPRB,5.2646E+00_JPRB,&
+ & 6.3121E+00_JPRB,7.3466E+00_JPRB,7.9376E+00_JPRB,1.1136E+01_JPRB/)  
+KAO( :, 3,12,15) = (/&
+ & 5.6884E+00_JPRB,4.9773E+00_JPRB,4.4260E+00_JPRB,4.7039E+00_JPRB,5.7519E+00_JPRB,7.1866E+00_JPRB,&
+ & 8.6165E+00_JPRB,1.0029E+01_JPRB,1.0827E+01_JPRB,1.2499E+01_JPRB/)  
+KAO( :, 4,12,15) = (/&
+ & 7.2505E+00_JPRB,6.3448E+00_JPRB,5.7066E+00_JPRB,6.0941E+00_JPRB,7.5592E+00_JPRB,9.4443E+00_JPRB,&
+ & 1.1323E+01_JPRB,1.3172E+01_JPRB,1.4230E+01_JPRB,1.5157E+01_JPRB/)  
+KAO( :, 5,12,15) = (/&
+ & 8.9729E+00_JPRB,7.8513E+00_JPRB,7.1677E+00_JPRB,7.7018E+00_JPRB,9.6945E+00_JPRB,1.2112E+01_JPRB,&
+ & 1.4519E+01_JPRB,1.6896E+01_JPRB,1.8235E+01_JPRB,1.9402E+01_JPRB/)  
+KAO( :, 1,13,15) = (/&
+ & 3.2246E+00_JPRB,2.8216E+00_JPRB,2.5410E+00_JPRB,2.6672E+00_JPRB,3.1335E+00_JPRB,3.8953E+00_JPRB,&
+ & 4.6718E+00_JPRB,5.4398E+00_JPRB,5.9398E+00_JPRB,1.1048E+01_JPRB/)  
+KAO( :, 2,13,15) = (/&
+ & 4.5396E+00_JPRB,3.9722E+00_JPRB,3.6057E+00_JPRB,3.8124E+00_JPRB,4.5235E+00_JPRB,5.6334E+00_JPRB,&
+ & 6.7551E+00_JPRB,7.8654E+00_JPRB,8.5655E+00_JPRB,1.1523E+01_JPRB/)  
+KAO( :, 3,13,15) = (/&
+ & 6.0822E+00_JPRB,5.3219E+00_JPRB,4.8716E+00_JPRB,5.1514E+00_JPRB,6.1861E+00_JPRB,7.7214E+00_JPRB,&
+ & 9.2581E+00_JPRB,1.0776E+01_JPRB,1.1699E+01_JPRB,1.3150E+01_JPRB/)  
+KAO( :, 4,13,15) = (/&
+ & 7.8600E+00_JPRB,6.8777E+00_JPRB,6.3193E+00_JPRB,6.6903E+00_JPRB,8.1367E+00_JPRB,1.0164E+01_JPRB,&
+ & 1.2187E+01_JPRB,1.4188E+01_JPRB,1.5392E+01_JPRB,1.6289E+01_JPRB/)  
+KAO( :, 5,13,15) = (/&
+ & 9.8483E+00_JPRB,8.6182E+00_JPRB,7.9619E+00_JPRB,8.4555E+00_JPRB,1.0467E+01_JPRB,1.3077E+01_JPRB,&
+ & 1.5680E+01_JPRB,1.8246E+01_JPRB,1.9749E+01_JPRB,2.0946E+01_JPRB/)  
+KAO( :, 1, 1,16) = (/&
+ & 7.5127E+00_JPRB,6.5737E+00_JPRB,5.6349E+00_JPRB,4.6958E+00_JPRB,3.8779E+00_JPRB,4.8416E+00_JPRB,&
+ & 5.7981E+00_JPRB,6.7189E+00_JPRB,6.8002E+00_JPRB,7.2408E+00_JPRB/)  
+KAO( :, 2, 1,16) = (/&
+ & 8.6979E+00_JPRB,7.6109E+00_JPRB,6.5239E+00_JPRB,5.4368E+00_JPRB,4.7903E+00_JPRB,5.9807E+00_JPRB,&
+ & 7.1609E+00_JPRB,8.2994E+00_JPRB,8.3109E+00_JPRB,8.9455E+00_JPRB/)  
+KAO( :, 3, 1,16) = (/&
+ & 9.7317E+00_JPRB,8.6042E+00_JPRB,7.2993E+00_JPRB,6.0830E+00_JPRB,5.8526E+00_JPRB,7.3076E+00_JPRB,&
+ & 8.7490E+00_JPRB,1.0034E+01_JPRB,1.0263E+01_JPRB,1.0816E+01_JPRB/)  
+KAO( :, 4, 1,16) = (/&
+ & 1.0961E+01_JPRB,9.5913E+00_JPRB,8.2214E+00_JPRB,6.8514E+00_JPRB,7.1532E+00_JPRB,8.9336E+00_JPRB,&
+ & 1.0696E+01_JPRB,1.2395E+01_JPRB,1.2541E+01_JPRB,1.3218E+01_JPRB/)  
+KAO( :, 5, 1,16) = (/&
+ & 1.2007E+01_JPRB,1.0506E+01_JPRB,9.0063E+00_JPRB,7.5055E+00_JPRB,8.5533E+00_JPRB,1.0682E+01_JPRB,&
+ & 1.2789E+01_JPRB,1.4823E+01_JPRB,1.5003E+01_JPRB,1.5975E+01_JPRB/)  
+KAO( :, 1, 2,16) = (/&
+ & 7.3731E+00_JPRB,6.4516E+00_JPRB,5.5301E+00_JPRB,4.6086E+00_JPRB,4.2937E+00_JPRB,5.3609E+00_JPRB,&
+ & 6.4198E+00_JPRB,7.4408E+00_JPRB,7.5329E+00_JPRB,8.2124E+00_JPRB/)  
+KAO( :, 2, 2,16) = (/&
+ & 8.6021E+00_JPRB,7.5271E+00_JPRB,6.4520E+00_JPRB,5.3768E+00_JPRB,5.3675E+00_JPRB,6.7018E+00_JPRB,&
+ & 8.0237E+00_JPRB,9.2997E+00_JPRB,9.4140E+00_JPRB,1.0264E+01_JPRB/)  
+KAO( :, 3, 2,16) = (/&
+ & 9.7888E+00_JPRB,8.5654E+00_JPRB,7.3420E+00_JPRB,6.1186E+00_JPRB,6.5496E+00_JPRB,8.1782E+00_JPRB,&
+ & 9.7904E+00_JPRB,1.1344E+01_JPRB,1.1474E+01_JPRB,1.2519E+01_JPRB/)  
+KAO( :, 4, 2,16) = (/&
+ & 1.0945E+01_JPRB,9.5769E+00_JPRB,8.2090E+00_JPRB,6.8412E+00_JPRB,8.0474E+00_JPRB,1.0048E+01_JPRB,&
+ & 1.2030E+01_JPRB,1.3944E+01_JPRB,1.4114E+01_JPRB,1.5388E+01_JPRB/)  
+KAO( :, 5, 2,16) = (/&
+ & 1.2042E+01_JPRB,1.0537E+01_JPRB,9.0333E+00_JPRB,7.5280E+00_JPRB,9.7062E+00_JPRB,1.2117E+01_JPRB,&
+ & 1.4511E+01_JPRB,1.6819E+01_JPRB,1.7024E+01_JPRB,1.8558E+01_JPRB/)  
+KAO( :, 1, 3,16) = (/&
+ & 6.9437E+00_JPRB,6.0759E+00_JPRB,5.2080E+00_JPRB,4.3402E+00_JPRB,4.5023E+00_JPRB,5.6214E+00_JPRB,&
+ & 6.7297E+00_JPRB,7.8026E+00_JPRB,7.9012E+00_JPRB,8.8155E+00_JPRB/)  
+KAO( :, 2, 3,16) = (/&
+ & 8.2070E+00_JPRB,7.1813E+00_JPRB,6.1554E+00_JPRB,5.1298E+00_JPRB,5.7329E+00_JPRB,7.1578E+00_JPRB,&
+ & 8.5699E+00_JPRB,9.9336E+00_JPRB,1.0060E+01_JPRB,1.1228E+01_JPRB/)  
+KAO( :, 3, 3,16) = (/&
+ & 9.4491E+00_JPRB,8.2681E+00_JPRB,7.0872E+00_JPRB,5.9062E+00_JPRB,7.0707E+00_JPRB,8.8297E+00_JPRB,&
+ & 1.0581E+01_JPRB,1.2262E+01_JPRB,1.2422E+01_JPRB,1.3860E+01_JPRB/)  
+KAO( :, 4, 3,16) = (/&
+ & 1.0642E+01_JPRB,9.3115E+00_JPRB,7.9815E+00_JPRB,6.6515E+00_JPRB,8.6654E+00_JPRB,1.0819E+01_JPRB,&
+ & 1.2954E+01_JPRB,1.5013E+01_JPRB,1.5194E+01_JPRB,1.6966E+01_JPRB/)  
+KAO( :, 5, 3,16) = (/&
+ & 1.1807E+01_JPRB,1.0331E+01_JPRB,8.8554E+00_JPRB,7.9416E+00_JPRB,1.0582E+01_JPRB,1.3212E+01_JPRB,&
+ & 1.5820E+01_JPRB,1.8322E+01_JPRB,1.8571E+01_JPRB,2.0721E+01_JPRB/)  
+KAO( :, 1, 4,16) = (/&
+ & 6.4258E+00_JPRB,5.6226E+00_JPRB,4.8196E+00_JPRB,4.0164E+00_JPRB,4.5983E+00_JPRB,5.7339E+00_JPRB,&
+ & 6.8740E+00_JPRB,7.9661E+00_JPRB,8.0728E+00_JPRB,9.1132E+00_JPRB/)  
+KAO( :, 2, 4,16) = (/&
+ & 7.6917E+00_JPRB,6.7303E+00_JPRB,5.7690E+00_JPRB,4.8076E+00_JPRB,5.9866E+00_JPRB,7.4749E+00_JPRB,&
+ & 8.9518E+00_JPRB,1.0377E+01_JPRB,1.0515E+01_JPRB,1.1857E+01_JPRB/)  
+KAO( :, 3, 4,16) = (/&
+ & 8.9813E+00_JPRB,7.8586E+00_JPRB,6.7361E+00_JPRB,5.6678E+00_JPRB,7.5316E+00_JPRB,9.4038E+00_JPRB,&
+ & 1.1247E+01_JPRB,1.3049E+01_JPRB,1.3228E+01_JPRB,1.4925E+01_JPRB/)  
+KAO( :, 4, 4,16) = (/&
+ & 1.0239E+01_JPRB,8.9593E+00_JPRB,7.6796E+00_JPRB,6.9509E+00_JPRB,9.2615E+00_JPRB,1.1564E+01_JPRB,&
+ & 1.3845E+01_JPRB,1.6028E+01_JPRB,1.6220E+01_JPRB,1.8333E+01_JPRB/)  
+KAO( :, 5, 4,16) = (/&
+ & 1.1440E+01_JPRB,1.0010E+01_JPRB,8.5838E+00_JPRB,8.5098E+00_JPRB,1.1339E+01_JPRB,1.4159E+01_JPRB,&
+ & 1.6953E+01_JPRB,1.9656E+01_JPRB,1.9906E+01_JPRB,2.2476E+01_JPRB/)  
+KAO( :, 1, 5,16) = (/&
+ & 5.8770E+00_JPRB,5.1424E+00_JPRB,4.4079E+00_JPRB,3.6733E+00_JPRB,4.6297E+00_JPRB,5.7866E+00_JPRB,&
+ & 6.9277E+00_JPRB,8.0308E+00_JPRB,8.1369E+00_JPRB,9.2272E+00_JPRB/)  
+KAO( :, 2, 5,16) = (/&
+ & 7.1523E+00_JPRB,6.2582E+00_JPRB,5.3644E+00_JPRB,4.6413E+00_JPRB,6.1841E+00_JPRB,7.7213E+00_JPRB,&
+ & 9.2461E+00_JPRB,1.0718E+01_JPRB,1.0873E+01_JPRB,1.2325E+01_JPRB/)  
+KAO( :, 3, 5,16) = (/&
+ & 8.4613E+00_JPRB,7.4038E+00_JPRB,6.3462E+00_JPRB,5.9572E+00_JPRB,7.9337E+00_JPRB,9.9057E+00_JPRB,&
+ & 1.1872E+01_JPRB,1.3758E+01_JPRB,1.3965E+01_JPRB,1.5800E+01_JPRB/)  
+KAO( :, 4, 5,16) = (/&
+ & 9.7676E+00_JPRB,8.5468E+00_JPRB,7.3259E+00_JPRB,7.4238E+00_JPRB,9.8916E+00_JPRB,1.2352E+01_JPRB,&
+ & 1.4791E+01_JPRB,1.7147E+01_JPRB,1.7384E+01_JPRB,1.9719E+01_JPRB/)  
+KAO( :, 5, 5,16) = (/&
+ & 1.1025E+01_JPRB,9.6472E+00_JPRB,8.2716E+00_JPRB,9.1406E+00_JPRB,1.2179E+01_JPRB,1.5208E+01_JPRB,&
+ & 1.8211E+01_JPRB,2.1097E+01_JPRB,2.1364E+01_JPRB,2.4267E+01_JPRB/)  
+KAO( :, 1, 6,16) = (/&
+ & 5.2650E+00_JPRB,4.6069E+00_JPRB,3.9488E+00_JPRB,3.4184E+00_JPRB,4.5538E+00_JPRB,5.6834E+00_JPRB,&
+ & 6.8059E+00_JPRB,7.8914E+00_JPRB,8.0145E+00_JPRB,9.0940E+00_JPRB/)  
+KAO( :, 2, 6,16) = (/&
+ & 6.5470E+00_JPRB,5.7287E+00_JPRB,4.9104E+00_JPRB,4.6912E+00_JPRB,6.2505E+00_JPRB,7.8043E+00_JPRB,&
+ & 9.3463E+00_JPRB,1.0825E+01_JPRB,1.1010E+01_JPRB,1.2479E+01_JPRB/)  
+KAO( :, 3, 6,16) = (/&
+ & 7.8534E+00_JPRB,6.8718E+00_JPRB,5.8902E+00_JPRB,6.1640E+00_JPRB,8.2139E+00_JPRB,1.0257E+01_JPRB,&
+ & 1.2274E+01_JPRB,1.4245E+01_JPRB,1.4468E+01_JPRB,1.6406E+01_JPRB/)  
+KAO( :, 4, 6,16) = (/&
+ & 9.2007E+00_JPRB,8.0507E+00_JPRB,6.9007E+00_JPRB,7.8216E+00_JPRB,1.0421E+01_JPRB,1.3014E+01_JPRB,&
+ & 1.5581E+01_JPRB,1.8055E+01_JPRB,1.8344E+01_JPRB,2.0809E+01_JPRB/)  
+KAO( :, 5, 6,16) = (/&
+ & 1.0512E+01_JPRB,9.1984E+00_JPRB,7.8842E+00_JPRB,9.7429E+00_JPRB,1.2982E+01_JPRB,1.6206E+01_JPRB,&
+ & 1.9407E+01_JPRB,2.2502E+01_JPRB,2.2789E+01_JPRB,2.5928E+01_JPRB/)  
+KAO( :, 1, 7,16) = (/&
+ & 4.6565E+00_JPRB,4.0745E+00_JPRB,3.4925E+00_JPRB,3.2956E+00_JPRB,4.3911E+00_JPRB,5.4864E+00_JPRB,&
+ & 6.5695E+00_JPRB,7.6115E+00_JPRB,7.7439E+00_JPRB,8.7837E+00_JPRB/)  
+KAO( :, 2, 7,16) = (/&
+ & 5.9292E+00_JPRB,5.1881E+00_JPRB,4.4470E+00_JPRB,4.6697E+00_JPRB,6.2219E+00_JPRB,7.7686E+00_JPRB,&
+ & 9.3043E+00_JPRB,1.0790E+01_JPRB,1.0982E+01_JPRB,1.2451E+01_JPRB/)  
+KAO( :, 3, 7,16) = (/&
+ & 7.2576E+00_JPRB,6.3505E+00_JPRB,5.4433E+00_JPRB,6.2922E+00_JPRB,8.3823E+00_JPRB,1.0468E+01_JPRB,&
+ & 1.2543E+01_JPRB,1.4536E+01_JPRB,1.4805E+01_JPRB,1.6765E+01_JPRB/)  
+KAO( :, 4, 7,16) = (/&
+ & 8.6179E+00_JPRB,7.5406E+00_JPRB,6.4633E+00_JPRB,8.1550E+00_JPRB,1.0866E+01_JPRB,1.3567E+01_JPRB,&
+ & 1.6244E+01_JPRB,1.8842E+01_JPRB,1.9186E+01_JPRB,2.1742E+01_JPRB/)  
+KAO( :, 5, 7,16) = (/&
+ & 9.9851E+00_JPRB,8.7370E+00_JPRB,7.4898E+00_JPRB,1.0321E+01_JPRB,1.3752E+01_JPRB,1.7171E+01_JPRB,&
+ & 2.0561E+01_JPRB,2.3825E+01_JPRB,2.4177E+01_JPRB,2.7508E+01_JPRB/)  
+KAO( :, 1, 8,16) = (/&
+ & 4.0754E+00_JPRB,3.5660E+00_JPRB,3.0566E+00_JPRB,3.1333E+00_JPRB,4.1749E+00_JPRB,5.2109E+00_JPRB,&
+ & 6.2379E+00_JPRB,7.2391E+00_JPRB,7.3822E+00_JPRB,8.3583E+00_JPRB/)  
+KAO( :, 2, 8,16) = (/&
+ & 5.3273E+00_JPRB,4.6614E+00_JPRB,3.9956E+00_JPRB,4.5880E+00_JPRB,6.1132E+00_JPRB,7.6329E+00_JPRB,&
+ & 9.1372E+00_JPRB,1.0600E+01_JPRB,1.0819E+01_JPRB,1.2238E+01_JPRB/)  
+KAO( :, 3, 8,16) = (/&
+ & 6.6607E+00_JPRB,5.8281E+00_JPRB,4.9956E+00_JPRB,6.3489E+00_JPRB,8.4692E+00_JPRB,1.0575E+01_JPRB,&
+ & 1.2658E+01_JPRB,1.4678E+01_JPRB,1.4991E+01_JPRB,1.6951E+01_JPRB/)  
+KAO( :, 4, 8,16) = (/&
+ & 8.0394E+00_JPRB,7.0344E+00_JPRB,6.0296E+00_JPRB,8.4237E+00_JPRB,1.1224E+01_JPRB,1.4014E+01_JPRB,&
+ & 1.6789E+01_JPRB,1.9460E+01_JPRB,1.9854E+01_JPRB,2.2470E+01_JPRB/)  
+KAO( :, 5, 8,16) = (/&
+ & 9.4437E+00_JPRB,8.2633E+00_JPRB,7.2895E+00_JPRB,1.0868E+01_JPRB,1.4480E+01_JPRB,1.8081E+01_JPRB,&
+ & 2.1653E+01_JPRB,2.5111E+01_JPRB,2.5514E+01_JPRB,2.8990E+01_JPRB/)  
+KAO( :, 1, 9,16) = (/&
+ & 3.5121E+00_JPRB,3.0731E+00_JPRB,2.6341E+00_JPRB,2.9279E+00_JPRB,3.9013E+00_JPRB,4.8754E+00_JPRB,&
+ & 5.8368E+00_JPRB,6.7644E+00_JPRB,6.8920E+00_JPRB,7.8150E+00_JPRB/)  
+KAO( :, 2, 9,16) = (/&
+ & 4.7223E+00_JPRB,4.1321E+00_JPRB,3.5416E+00_JPRB,4.4240E+00_JPRB,5.8947E+00_JPRB,7.3602E+00_JPRB,&
+ & 8.8237E+00_JPRB,1.0234E+01_JPRB,1.0473E+01_JPRB,1.1818E+01_JPRB/)  
+KAO( :, 3, 9,16) = (/&
+ & 6.0478E+00_JPRB,5.2918E+00_JPRB,4.5359E+00_JPRB,6.3118E+00_JPRB,8.4105E+00_JPRB,1.0504E+01_JPRB,&
+ & 1.2585E+01_JPRB,1.4594E+01_JPRB,1.4948E+01_JPRB,1.6837E+01_JPRB/)  
+KAO( :, 4, 9,16) = (/&
+ & 7.4404E+00_JPRB,6.5104E+00_JPRB,5.8282E+00_JPRB,8.5908E+00_JPRB,1.1447E+01_JPRB,1.4294E+01_JPRB,&
+ & 1.7119E+01_JPRB,1.9856E+01_JPRB,2.0299E+01_JPRB,2.2935E+01_JPRB/)  
+KAO( :, 5, 9,16) = (/&
+ & 8.8732E+00_JPRB,7.7641E+00_JPRB,7.5539E+00_JPRB,1.1327E+01_JPRB,1.5093E+01_JPRB,1.8849E+01_JPRB,&
+ & 2.2573E+01_JPRB,2.6165E+01_JPRB,2.6652E+01_JPRB,3.0230E+01_JPRB/)  
+KAO( :, 1,10,16) = (/&
+ & 3.0618E+00_JPRB,2.6791E+00_JPRB,2.2964E+00_JPRB,2.9364E+00_JPRB,3.9126E+00_JPRB,4.8847E+00_JPRB,&
+ & 5.8475E+00_JPRB,6.7808E+00_JPRB,6.8756E+00_JPRB,7.8358E+00_JPRB/)  
+KAO( :, 2,10,16) = (/&
+ & 4.2316E+00_JPRB,3.7027E+00_JPRB,3.1743E+00_JPRB,4.3350E+00_JPRB,5.7762E+00_JPRB,7.2138E+00_JPRB,&
+ & 8.6367E+00_JPRB,1.0019E+01_JPRB,1.0284E+01_JPRB,1.1570E+01_JPRB/)  
+KAO( :, 3,10,16) = (/&
+ & 5.5457E+00_JPRB,4.8525E+00_JPRB,4.3615E+00_JPRB,6.3373E+00_JPRB,8.4492E+00_JPRB,1.0550E+01_JPRB,&
+ & 1.2638E+01_JPRB,1.4656E+01_JPRB,1.5082E+01_JPRB,1.6923E+01_JPRB/)  
+KAO( :, 4,10,16) = (/&
+ & 6.9593E+00_JPRB,6.0894E+00_JPRB,5.9134E+00_JPRB,8.8661E+00_JPRB,1.1814E+01_JPRB,1.4751E+01_JPRB,&
+ & 1.7669E+01_JPRB,2.0491E+01_JPRB,2.0978E+01_JPRB,2.3664E+01_JPRB/)  
+KAO( :, 5,10,16) = (/&
+ & 8.4396E+00_JPRB,7.3847E+00_JPRB,7.9651E+00_JPRB,1.1942E+01_JPRB,1.5915E+01_JPRB,1.9872E+01_JPRB,&
+ & 2.3793E+01_JPRB,2.7593E+01_JPRB,2.8161E+01_JPRB,3.1872E+01_JPRB/)  
+KAO( :, 1,11,16) = (/&
+ & 3.1579E+00_JPRB,2.7632E+00_JPRB,2.3896E+00_JPRB,3.5545E+00_JPRB,4.7362E+00_JPRB,5.9136E+00_JPRB,&
+ & 7.0823E+00_JPRB,8.2069E+00_JPRB,8.3323E+00_JPRB,9.4873E+00_JPRB/)  
+KAO( :, 2,11,16) = (/&
+ & 4.3744E+00_JPRB,3.8276E+00_JPRB,3.5100E+00_JPRB,5.1538E+00_JPRB,6.8671E+00_JPRB,8.5743E+00_JPRB,&
+ & 1.0274E+01_JPRB,1.1914E+01_JPRB,1.2209E+01_JPRB,1.3757E+01_JPRB/)  
+KAO( :, 3,11,16) = (/&
+ & 5.7471E+00_JPRB,5.0288E+00_JPRB,5.0034E+00_JPRB,7.4970E+00_JPRB,9.9888E+00_JPRB,1.2472E+01_JPRB,&
+ & 1.4942E+01_JPRB,1.7333E+01_JPRB,1.7821E+01_JPRB,2.0007E+01_JPRB/)  
+KAO( :, 4,11,16) = (/&
+ & 7.2629E+00_JPRB,6.3550E+00_JPRB,7.0474E+00_JPRB,1.0566E+01_JPRB,1.4079E+01_JPRB,1.7584E+01_JPRB,&
+ & 2.1057E+01_JPRB,2.4419E+01_JPRB,2.5019E+01_JPRB,2.8211E+01_JPRB/)  
+KAO( :, 5,11,16) = (/&
+ & 8.9069E+00_JPRB,7.7936E+00_JPRB,9.5284E+00_JPRB,1.4286E+01_JPRB,1.9037E+01_JPRB,2.3771E+01_JPRB,&
+ & 2.8468E+01_JPRB,3.3010E+01_JPRB,3.3751E+01_JPRB,3.8130E+01_JPRB/)  
+KAO( :, 1,12,16) = (/&
+ & 3.3006E+00_JPRB,2.8881E+00_JPRB,2.8666E+00_JPRB,4.2985E+00_JPRB,5.7274E+00_JPRB,7.1506E+00_JPRB,&
+ & 8.5607E+00_JPRB,9.9299E+00_JPRB,1.0097E+01_JPRB,1.1570E+01_JPRB/)  
+KAO( :, 2,12,16) = (/&
+ & 4.5952E+00_JPRB,4.0208E+00_JPRB,4.1024E+00_JPRB,6.1511E+00_JPRB,8.1959E+00_JPRB,1.0235E+01_JPRB,&
+ & 1.2254E+01_JPRB,1.4215E+01_JPRB,1.4558E+01_JPRB,1.6415E+01_JPRB/)  
+KAO( :, 3,12,16) = (/&
+ & 6.1172E+00_JPRB,5.3526E+00_JPRB,5.9205E+00_JPRB,8.8783E+00_JPRB,1.1835E+01_JPRB,1.4781E+01_JPRB,&
+ & 1.7706E+01_JPRB,2.0531E+01_JPRB,2.1114E+01_JPRB,2.3705E+01_JPRB/)  
+KAO( :, 4,12,16) = (/&
+ & 7.9063E+00_JPRB,6.9180E+00_JPRB,8.3812E+00_JPRB,1.2566E+01_JPRB,1.6747E+01_JPRB,2.0915E+01_JPRB,&
+ & 2.5049E+01_JPRB,2.9064E+01_JPRB,2.9820E+01_JPRB,3.3552E+01_JPRB/)  
+KAO( :, 5,12,16) = (/&
+ & 9.9405E+00_JPRB,8.6980E+00_JPRB,1.1361E+01_JPRB,1.7034E+01_JPRB,2.2697E+01_JPRB,2.8347E+01_JPRB,&
+ & 3.3936E+01_JPRB,3.9357E+01_JPRB,4.0377E+01_JPRB,4.5471E+01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART11',1,ZHOOK_HANDLE)
+END SUBROUTINE PART11
+
+
+SUBROUTINE PART12
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART12',0,ZHOOK_HANDLE)
+
+
+KAO( :, 1,13,16) = (/&
+ & 3.5240E+00_JPRB,3.0835E+00_JPRB,3.4502E+00_JPRB,5.1734E+00_JPRB,6.8947E+00_JPRB,8.6091E+00_JPRB,&
+ & 1.0310E+01_JPRB,1.1954E+01_JPRB,1.2187E+01_JPRB,1.3806E+01_JPRB/)  
+KAO( :, 2,13,16) = (/&
+ & 5.0191E+00_JPRB,4.3917E+00_JPRB,4.8873E+00_JPRB,7.3276E+00_JPRB,9.7654E+00_JPRB,1.2194E+01_JPRB,&
+ & 1.4608E+01_JPRB,1.6943E+01_JPRB,1.7366E+01_JPRB,1.9559E+01_JPRB/)  
+KAO( :, 3,13,16) = (/&
+ & 6.8612E+00_JPRB,6.0035E+00_JPRB,6.9941E+00_JPRB,1.0486E+01_JPRB,1.3971E+01_JPRB,1.7446E+01_JPRB,&
+ & 2.0896E+01_JPRB,2.4256E+01_JPRB,2.4993E+01_JPRB,2.7979E+01_JPRB/)  
+KAO( :, 4,13,16) = (/&
+ & 8.9937E+00_JPRB,7.8713E+00_JPRB,9.9172E+00_JPRB,1.4874E+01_JPRB,1.9818E+01_JPRB,2.4754E+01_JPRB,&
+ & 2.9642E+01_JPRB,3.4374E+01_JPRB,3.5407E+01_JPRB,3.9689E+01_JPRB/)  
+KAO( :, 5,13,16) = (/&
+ & 1.1386E+01_JPRB,9.9632E+00_JPRB,1.3441E+01_JPRB,2.0157E+01_JPRB,2.6861E+01_JPRB,3.3545E+01_JPRB,&
+ & 4.0165E+01_JPRB,4.6616E+01_JPRB,4.7981E+01_JPRB,5.3793E+01_JPRB/)  
+
+!     The array KBO contains absorption coefs for each of the 16 g-intervals
+!     for a range of pressure levels  < ~100mb, temperatures, and ratios
+!     of H2O to CO2.  The first index in the array, JS, runs from 1 to 5, 
+!     and corresponds to different H2O to CO2 ratios, as expressed through 
+!     the binary species parameter eta, defined as eta = H2O/(H2O+RAT*CO2), 
+!     where RAT is the ratio of the integrated line strength in the band 
+!     of CO2 to that of H2O.  For instance, JS=1 refers to no H2O, 
+!     JS = 2 corresponds to eta = 0.25, etc.  The second index, JT, which
+!     runs from 1 to 5, corresponds to different temperatures.  More 
+!     specifically, JT = 3 means that the data are for the corresponding 
+!     reference temperature TREF for this  pressure level, JT = 2 refers 
+!     to the TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and
+!     JT = 5 is for TREF+30.  The third index, JP, runs from 13 to 59 and
+!     refers to the corresponding pressure level in PREF (e.g. JP = 13 is
+!     for a pressure of 95.5835 mb).  The fourth index, IG, goes from 1 to
+!     16, and tells us which g-interval the absorption coefficients are for.
+
+KBO( :, 1,13, 1) = (/&
+ & 7.1418E-07_JPRB,7.7683E-05_JPRB,1.6530E-04_JPRB,3.3221E-04_JPRB,3.4375E-04_JPRB/)  
+KBO( :, 2,13, 1) = (/&
+ & 7.2895E-07_JPRB,7.7891E-05_JPRB,1.5813E-04_JPRB,2.9611E-04_JPRB,3.5156E-04_JPRB/)  
+KBO( :, 3,13, 1) = (/&
+ & 8.1104E-07_JPRB,8.0313E-05_JPRB,1.5573E-04_JPRB,2.7205E-04_JPRB,3.6744E-04_JPRB/)  
+KBO( :, 4,13, 1) = (/&
+ & 9.8030E-07_JPRB,8.4645E-05_JPRB,1.5829E-04_JPRB,2.5788E-04_JPRB,3.9124E-04_JPRB/)  
+KBO( :, 5,13, 1) = (/&
+ & 1.2532E-06_JPRB,9.1367E-05_JPRB,1.6556E-04_JPRB,2.5243E-04_JPRB,4.2278E-04_JPRB/)  
+KBO( :, 1,14, 1) = (/&
+ & 5.8662E-07_JPRB,6.3217E-05_JPRB,1.3394E-04_JPRB,2.6815E-04_JPRB,2.8024E-04_JPRB/)  
+KBO( :, 2,14, 1) = (/&
+ & 6.0322E-07_JPRB,6.3644E-05_JPRB,1.2871E-04_JPRB,2.3989E-04_JPRB,2.8697E-04_JPRB/)  
+KBO( :, 3,14, 1) = (/&
+ & 6.7707E-07_JPRB,6.5857E-05_JPRB,1.2726E-04_JPRB,2.2113E-04_JPRB,3.0014E-04_JPRB/)  
+KBO( :, 4,14, 1) = (/&
+ & 8.2251E-07_JPRB,6.9663E-05_JPRB,1.2984E-04_JPRB,2.1038E-04_JPRB,3.1976E-04_JPRB/)  
+KBO( :, 5,14, 1) = (/&
+ & 1.0537E-06_JPRB,7.5477E-05_JPRB,1.3625E-04_JPRB,2.0669E-04_JPRB,3.4553E-04_JPRB/)  
+KBO( :, 1,15, 1) = (/&
+ & 4.8159E-07_JPRB,5.1327E-05_JPRB,1.0828E-04_JPRB,2.1580E-04_JPRB,2.2716E-04_JPRB/)  
+KBO( :, 2,15, 1) = (/&
+ & 4.9953E-07_JPRB,5.1898E-05_JPRB,1.0456E-04_JPRB,1.9384E-04_JPRB,2.3282E-04_JPRB/)  
+KBO( :, 3,15, 1) = (/&
+ & 5.6592E-07_JPRB,5.3937E-05_JPRB,1.0383E-04_JPRB,1.7938E-04_JPRB,2.4342E-04_JPRB/)  
+KBO( :, 4,15, 1) = (/&
+ & 6.9060E-07_JPRB,5.7276E-05_JPRB,1.0637E-04_JPRB,1.7136E-04_JPRB,2.5925E-04_JPRB/)  
+KBO( :, 5,15, 1) = (/&
+ & 8.8764E-07_JPRB,6.2300E-05_JPRB,1.1206E-04_JPRB,1.6901E-04_JPRB,2.7978E-04_JPRB/)  
+KBO( :, 1,16, 1) = (/&
+ & 3.9534E-07_JPRB,4.1658E-05_JPRB,8.7509E-05_JPRB,1.7349E-04_JPRB,1.8327E-04_JPRB/)  
+KBO( :, 2,16, 1) = (/&
+ & 4.1395E-07_JPRB,4.2305E-05_JPRB,8.4934E-05_JPRB,1.5653E-04_JPRB,1.8794E-04_JPRB/)  
+KBO( :, 3,16, 1) = (/&
+ & 4.7298E-07_JPRB,4.4176E-05_JPRB,8.4714E-05_JPRB,1.4546E-04_JPRB,1.9627E-04_JPRB/)  
+KBO( :, 4,16, 1) = (/&
+ & 5.8017E-07_JPRB,4.7094E-05_JPRB,8.7162E-05_JPRB,1.3953E-04_JPRB,2.0862E-04_JPRB/)  
+KBO( :, 5,16, 1) = (/&
+ & 7.4847E-07_JPRB,5.1410E-05_JPRB,9.2164E-05_JPRB,1.3822E-04_JPRB,2.2492E-04_JPRB/)  
+KBO( :, 1,17, 1) = (/&
+ & 3.2461E-07_JPRB,3.3900E-05_JPRB,7.0928E-05_JPRB,1.3982E-04_JPRB,1.4790E-04_JPRB/)  
+KBO( :, 2,17, 1) = (/&
+ & 3.4310E-07_JPRB,3.4570E-05_JPRB,6.9142E-05_JPRB,1.2666E-04_JPRB,1.5175E-04_JPRB/)  
+KBO( :, 3,17, 1) = (/&
+ & 3.9502E-07_JPRB,3.6243E-05_JPRB,6.9258E-05_JPRB,1.1817E-04_JPRB,1.5840E-04_JPRB/)  
+KBO( :, 4,17, 1) = (/&
+ & 4.8706E-07_JPRB,3.8770E-05_JPRB,7.1558E-05_JPRB,1.1380E-04_JPRB,1.6811E-04_JPRB/)  
+KBO( :, 5,17, 1) = (/&
+ & 6.3052E-07_JPRB,4.2462E-05_JPRB,7.5924E-05_JPRB,1.1322E-04_JPRB,1.8097E-04_JPRB/)  
+KBO( :, 1,18, 1) = (/&
+ & 2.6665E-07_JPRB,2.7690E-05_JPRB,5.7714E-05_JPRB,1.1306E-04_JPRB,1.1974E-04_JPRB/)  
+KBO( :, 2,18, 1) = (/&
+ & 2.8433E-07_JPRB,2.8352E-05_JPRB,5.6467E-05_JPRB,1.0278E-04_JPRB,1.2295E-04_JPRB/)  
+KBO( :, 3,18, 1) = (/&
+ & 3.2991E-07_JPRB,2.9820E-05_JPRB,5.6782E-05_JPRB,9.6223E-05_JPRB,1.2833E-04_JPRB/)  
+KBO( :, 4,18, 1) = (/&
+ & 4.0885E-07_JPRB,3.1990E-05_JPRB,5.8916E-05_JPRB,9.3033E-05_JPRB,1.3601E-04_JPRB/)  
+KBO( :, 5,18, 1) = (/&
+ & 5.3113E-07_JPRB,3.5147E-05_JPRB,6.2667E-05_JPRB,9.2955E-05_JPRB,1.4604E-04_JPRB/)  
+KBO( :, 1,19, 1) = (/&
+ & 2.1915E-07_JPRB,2.2650E-05_JPRB,4.7032E-05_JPRB,9.1545E-05_JPRB,9.7174E-05_JPRB/)  
+KBO( :, 2,19, 1) = (/&
+ & 2.3563E-07_JPRB,2.3282E-05_JPRB,4.6172E-05_JPRB,8.3486E-05_JPRB,9.9869E-05_JPRB/)  
+KBO( :, 3,19, 1) = (/&
+ & 2.7548E-07_JPRB,2.4553E-05_JPRB,4.6603E-05_JPRB,7.8441E-05_JPRB,1.0422E-04_JPRB/)  
+KBO( :, 4,19, 1) = (/&
+ & 3.4310E-07_JPRB,2.6414E-05_JPRB,4.8547E-05_JPRB,7.6134E-05_JPRB,1.1036E-04_JPRB/)  
+KBO( :, 5,19, 1) = (/&
+ & 4.4724E-07_JPRB,2.9096E-05_JPRB,5.1737E-05_JPRB,7.6381E-05_JPRB,1.1839E-04_JPRB/)  
+KBO( :, 1,20, 1) = (/&
+ & 1.8030E-07_JPRB,1.8558E-05_JPRB,3.8356E-05_JPRB,7.4071E-05_JPRB,7.9169E-05_JPRB/)  
+KBO( :, 2,20, 1) = (/&
+ & 1.9579E-07_JPRB,1.9155E-05_JPRB,3.7791E-05_JPRB,6.7788E-05_JPRB,8.1446E-05_JPRB/)  
+KBO( :, 3,20, 1) = (/&
+ & 2.3085E-07_JPRB,2.0254E-05_JPRB,3.8309E-05_JPRB,6.3956E-05_JPRB,8.5047E-05_JPRB/)  
+KBO( :, 4,20, 1) = (/&
+ & 2.8924E-07_JPRB,2.1859E-05_JPRB,4.0062E-05_JPRB,6.2346E-05_JPRB,9.0082E-05_JPRB/)  
+KBO( :, 5,20, 1) = (/&
+ & 3.7846E-07_JPRB,2.4137E-05_JPRB,4.2788E-05_JPRB,6.2820E-05_JPRB,9.6650E-05_JPRB/)  
+KBO( :, 1,21, 1) = (/&
+ & 1.4847E-07_JPRB,1.5215E-05_JPRB,3.1290E-05_JPRB,5.9949E-05_JPRB,6.4552E-05_JPRB/)  
+KBO( :, 2,21, 1) = (/&
+ & 1.6287E-07_JPRB,1.5766E-05_JPRB,3.0943E-05_JPRB,5.5054E-05_JPRB,6.6478E-05_JPRB/)  
+KBO( :, 3,21, 1) = (/&
+ & 1.9366E-07_JPRB,1.6713E-05_JPRB,3.1503E-05_JPRB,5.2161E-05_JPRB,6.9475E-05_JPRB/)  
+KBO( :, 4,21, 1) = (/&
+ & 2.4408E-07_JPRB,1.8092E-05_JPRB,3.3059E-05_JPRB,5.1064E-05_JPRB,7.3632E-05_JPRB/)  
+KBO( :, 5,21, 1) = (/&
+ & 3.2048E-07_JPRB,2.0022E-05_JPRB,3.5383E-05_JPRB,5.1675E-05_JPRB,7.9025E-05_JPRB/)  
+KBO( :, 1,22, 1) = (/&
+ & 1.2289E-07_JPRB,1.2484E-05_JPRB,2.5472E-05_JPRB,4.8192E-05_JPRB,5.2603E-05_JPRB/)  
+KBO( :, 2,22, 1) = (/&
+ & 1.3697E-07_JPRB,1.3009E-05_JPRB,2.5334E-05_JPRB,4.4504E-05_JPRB,5.4267E-05_JPRB/)  
+KBO( :, 3,22, 1) = (/&
+ & 1.6488E-07_JPRB,1.3843E-05_JPRB,2.5950E-05_JPRB,4.2432E-05_JPRB,5.6803E-05_JPRB/)  
+KBO( :, 4,22, 1) = (/&
+ & 2.0968E-07_JPRB,1.5052E-05_JPRB,2.7363E-05_JPRB,4.1803E-05_JPRB,6.0274E-05_JPRB/)  
+KBO( :, 5,22, 1) = (/&
+ & 2.7669E-07_JPRB,1.6715E-05_JPRB,2.9384E-05_JPRB,4.2575E-05_JPRB,6.4715E-05_JPRB/)  
+KBO( :, 1,23, 1) = (/&
+ & 1.0206E-07_JPRB,1.0252E-05_JPRB,2.0747E-05_JPRB,3.8734E-05_JPRB,4.2840E-05_JPRB/)  
+KBO( :, 2,23, 1) = (/&
+ & 1.1559E-07_JPRB,1.0742E-05_JPRB,2.0755E-05_JPRB,3.5990E-05_JPRB,4.4274E-05_JPRB/)  
+KBO( :, 3,23, 1) = (/&
+ & 1.4082E-07_JPRB,1.1473E-05_JPRB,2.1391E-05_JPRB,3.4535E-05_JPRB,4.6409E-05_JPRB/)  
+KBO( :, 4,23, 1) = (/&
+ & 1.8064E-07_JPRB,1.2528E-05_JPRB,2.2650E-05_JPRB,3.4245E-05_JPRB,4.9289E-05_JPRB/)  
+KBO( :, 5,23, 1) = (/&
+ & 2.3944E-07_JPRB,1.3961E-05_JPRB,2.4408E-05_JPRB,3.5094E-05_JPRB,5.2908E-05_JPRB/)  
+KBO( :, 1,24, 1) = (/&
+ & 8.5103E-08_JPRB,8.4147E-06_JPRB,1.6891E-05_JPRB,3.1099E-05_JPRB,3.4780E-05_JPRB/)  
+KBO( :, 2,24, 1) = (/&
+ & 9.8006E-08_JPRB,8.8655E-06_JPRB,1.6999E-05_JPRB,2.9091E-05_JPRB,3.5996E-05_JPRB/)  
+KBO( :, 3,24, 1) = (/&
+ & 1.2073E-07_JPRB,9.5086E-06_JPRB,1.7631E-05_JPRB,2.8105E-05_JPRB,3.7773E-05_JPRB/)  
+KBO( :, 4,24, 1) = (/&
+ & 1.5616E-07_JPRB,1.0427E-05_JPRB,1.8742E-05_JPRB,2.8056E-05_JPRB,4.0114E-05_JPRB/)  
+KBO( :, 5,24, 1) = (/&
+ & 2.0784E-07_JPRB,1.1663E-05_JPRB,2.0274E-05_JPRB,2.8927E-05_JPRB,4.3028E-05_JPRB/)  
+KBO( :, 1,25, 1) = (/&
+ & 7.1310E-08_JPRB,6.9185E-06_JPRB,1.3767E-05_JPRB,2.4976E-05_JPRB,2.8241E-05_JPRB/)  
+KBO( :, 2,25, 1) = (/&
+ & 8.3499E-08_JPRB,7.3246E-06_JPRB,1.3943E-05_JPRB,2.3533E-05_JPRB,2.9273E-05_JPRB/)  
+KBO( :, 3,25, 1) = (/&
+ & 1.0401E-07_JPRB,7.8935E-06_JPRB,1.4555E-05_JPRB,2.2896E-05_JPRB,3.0735E-05_JPRB/)  
+KBO( :, 4,25, 1) = (/&
+ & 1.3555E-07_JPRB,8.6941E-06_JPRB,1.5529E-05_JPRB,2.3015E-05_JPRB,3.2639E-05_JPRB/)  
+KBO( :, 5,25, 1) = (/&
+ & 1.8108E-07_JPRB,9.7609E-06_JPRB,1.6867E-05_JPRB,2.3873E-05_JPRB,3.4993E-05_JPRB/)  
+KBO( :, 1,26, 1) = (/&
+ & 6.0142E-08_JPRB,5.7047E-06_JPRB,1.1243E-05_JPRB,2.0069E-05_JPRB,2.2978E-05_JPRB/)  
+KBO( :, 2,26, 1) = (/&
+ & 7.1603E-08_JPRB,6.0681E-06_JPRB,1.1465E-05_JPRB,1.9057E-05_JPRB,2.3854E-05_JPRB/)  
+KBO( :, 3,26, 1) = (/&
+ & 9.0251E-08_JPRB,6.5738E-06_JPRB,1.2045E-05_JPRB,1.8681E-05_JPRB,2.5076E-05_JPRB/)  
+KBO( :, 4,26, 1) = (/&
+ & 1.1847E-07_JPRB,7.2745E-06_JPRB,1.2903E-05_JPRB,1.8921E-05_JPRB,2.6626E-05_JPRB/)  
+KBO( :, 5,26, 1) = (/&
+ & 1.5875E-07_JPRB,8.1996E-06_JPRB,1.4077E-05_JPRB,1.9751E-05_JPRB,2.8555E-05_JPRB/)  
+KBO( :, 1,27, 1) = (/&
+ & 5.0983E-08_JPRB,4.7088E-06_JPRB,9.1912E-06_JPRB,1.6147E-05_JPRB,1.8668E-05_JPRB/)  
+KBO( :, 2,27, 1) = (/&
+ & 6.1630E-08_JPRB,5.0315E-06_JPRB,9.4402E-06_JPRB,1.5452E-05_JPRB,1.9405E-05_JPRB/)  
+KBO( :, 3,27, 1) = (/&
+ & 7.8563E-08_JPRB,5.4806E-06_JPRB,9.9742E-06_JPRB,1.5262E-05_JPRB,2.0403E-05_JPRB/)  
+KBO( :, 4,27, 1) = (/&
+ & 1.0377E-07_JPRB,6.0931E-06_JPRB,1.0731E-05_JPRB,1.5575E-05_JPRB,2.1672E-05_JPRB/)  
+KBO( :, 5,27, 1) = (/&
+ & 1.3934E-07_JPRB,6.8942E-06_JPRB,1.1760E-05_JPRB,1.6361E-05_JPRB,2.3196E-05_JPRB/)  
+KBO( :, 1,28, 1) = (/&
+ & 4.3423E-08_JPRB,3.8906E-06_JPRB,7.5226E-06_JPRB,1.3009E-05_JPRB,1.5127E-05_JPRB/)  
+KBO( :, 2,28, 1) = (/&
+ & 5.3228E-08_JPRB,4.1755E-06_JPRB,7.7818E-06_JPRB,1.2546E-05_JPRB,1.5736E-05_JPRB/)  
+KBO( :, 3,28, 1) = (/&
+ & 6.8564E-08_JPRB,4.5731E-06_JPRB,8.2639E-06_JPRB,1.2487E-05_JPRB,1.6536E-05_JPRB/)  
+KBO( :, 4,28, 1) = (/&
+ & 9.1039E-08_JPRB,5.1074E-06_JPRB,8.9326E-06_JPRB,1.2837E-05_JPRB,1.7505E-05_JPRB/)  
+KBO( :, 5,28, 1) = (/&
+ & 1.2239E-07_JPRB,5.8016E-06_JPRB,9.8318E-06_JPRB,1.3565E-05_JPRB,1.8670E-05_JPRB/)  
+KBO( :, 1,29, 1) = (/&
+ & 3.7204E-08_JPRB,3.2238E-06_JPRB,6.1736E-06_JPRB,1.0502E-05_JPRB,1.2279E-05_JPRB/)  
+KBO( :, 2,29, 1) = (/&
+ & 4.6206E-08_JPRB,3.4759E-06_JPRB,6.4330E-06_JPRB,1.0209E-05_JPRB,1.2764E-05_JPRB/)  
+KBO( :, 3,29, 1) = (/&
+ & 6.0076E-08_JPRB,3.8273E-06_JPRB,6.8635E-06_JPRB,1.0241E-05_JPRB,1.3368E-05_JPRB/)  
+KBO( :, 4,29, 1) = (/&
+ & 8.0144E-08_JPRB,4.2936E-06_JPRB,7.4538E-06_JPRB,1.0606E-05_JPRB,1.4121E-05_JPRB/)  
+KBO( :, 5,29, 1) = (/&
+ & 1.0777E-07_JPRB,4.8966E-06_JPRB,8.2412E-06_JPRB,1.1275E-05_JPRB,1.5046E-05_JPRB/)  
+KBO( :, 1,30, 1) = (/&
+ & 3.1996E-08_JPRB,2.6737E-06_JPRB,5.0754E-06_JPRB,8.4948E-06_JPRB,9.8822E-06_JPRB/)  
+KBO( :, 2,30, 1) = (/&
+ & 4.0245E-08_JPRB,2.8984E-06_JPRB,5.3264E-06_JPRB,8.3223E-06_JPRB,1.0256E-05_JPRB/)  
+KBO( :, 3,30, 1) = (/&
+ & 5.2747E-08_JPRB,3.2079E-06_JPRB,5.7080E-06_JPRB,8.4160E-06_JPRB,1.0727E-05_JPRB/)  
+KBO( :, 4,30, 1) = (/&
+ & 7.0609E-08_JPRB,3.6138E-06_JPRB,6.2283E-06_JPRB,8.7777E-06_JPRB,1.1320E-05_JPRB/)  
+KBO( :, 5,30, 1) = (/&
+ & 9.4984E-08_JPRB,4.1398E-06_JPRB,6.9193E-06_JPRB,9.3872E-06_JPRB,1.2062E-05_JPRB/)  
+KBO( :, 1,31, 1) = (/&
+ & 2.7641E-08_JPRB,2.2221E-06_JPRB,4.1820E-06_JPRB,6.8854E-06_JPRB,7.8857E-06_JPRB/)  
+KBO( :, 2,31, 1) = (/&
+ & 3.5201E-08_JPRB,2.4225E-06_JPRB,4.4182E-06_JPRB,6.7986E-06_JPRB,8.1875E-06_JPRB/)  
+KBO( :, 3,31, 1) = (/&
+ & 4.6451E-08_JPRB,2.6943E-06_JPRB,4.7566E-06_JPRB,6.9330E-06_JPRB,8.5704E-06_JPRB/)  
+KBO( :, 4,31, 1) = (/&
+ & 6.2336E-08_JPRB,3.0481E-06_JPRB,5.2150E-06_JPRB,7.2810E-06_JPRB,9.0473E-06_JPRB/)  
+KBO( :, 5,31, 1) = (/&
+ & 8.3774E-08_JPRB,3.5048E-06_JPRB,5.8188E-06_JPRB,7.8290E-06_JPRB,9.6365E-06_JPRB/)  
+KBO( :, 1,32, 1) = (/&
+ & 2.3981E-08_JPRB,1.8500E-06_JPRB,3.4538E-06_JPRB,5.5925E-06_JPRB,6.2708E-06_JPRB/)  
+KBO( :, 2,32, 1) = (/&
+ & 3.0888E-08_JPRB,2.0288E-06_JPRB,3.6701E-06_JPRB,5.5668E-06_JPRB,6.5148E-06_JPRB/)  
+KBO( :, 3,32, 1) = (/&
+ & 4.1004E-08_JPRB,2.2672E-06_JPRB,3.9709E-06_JPRB,5.7241E-06_JPRB,6.8232E-06_JPRB/)  
+KBO( :, 4,32, 1) = (/&
+ & 5.5092E-08_JPRB,2.5754E-06_JPRB,4.3743E-06_JPRB,6.0514E-06_JPRB,7.2153E-06_JPRB/)  
+KBO( :, 5,32, 1) = (/&
+ & 7.3928E-08_JPRB,2.9722E-06_JPRB,4.9013E-06_JPRB,6.5406E-06_JPRB,7.6884E-06_JPRB/)  
+KBO( :, 1,33, 1) = (/&
+ & 2.0891E-08_JPRB,1.5432E-06_JPRB,2.8587E-06_JPRB,4.5518E-06_JPRB,4.9648E-06_JPRB/)  
+KBO( :, 2,33, 1) = (/&
+ & 2.7170E-08_JPRB,1.7018E-06_JPRB,3.0535E-06_JPRB,4.5689E-06_JPRB,5.1628E-06_JPRB/)  
+KBO( :, 3,33, 1) = (/&
+ & 3.6242E-08_JPRB,1.9105E-06_JPRB,3.3202E-06_JPRB,4.7346E-06_JPRB,5.4226E-06_JPRB/)  
+KBO( :, 4,33, 1) = (/&
+ & 4.8741E-08_JPRB,2.1800E-06_JPRB,3.6760E-06_JPRB,5.0388E-06_JPRB,5.7379E-06_JPRB/)  
+KBO( :, 5,33, 1) = (/&
+ & 6.5227E-08_JPRB,2.5234E-06_JPRB,4.1341E-06_JPRB,5.4730E-06_JPRB,6.1189E-06_JPRB/)  
+KBO( :, 1,34, 1) = (/&
+ & 1.8095E-08_JPRB,1.2866E-06_JPRB,2.3675E-06_JPRB,3.7154E-06_JPRB,3.9669E-06_JPRB/)  
+KBO( :, 2,34, 1) = (/&
+ & 2.3709E-08_JPRB,1.4253E-06_JPRB,2.5394E-06_JPRB,3.7569E-06_JPRB,4.1359E-06_JPRB/)  
+KBO( :, 3,34, 1) = (/&
+ & 3.1721E-08_JPRB,1.6060E-06_JPRB,2.7729E-06_JPRB,3.9185E-06_JPRB,4.3498E-06_JPRB/)  
+KBO( :, 4,34, 1) = (/&
+ & 4.2654E-08_JPRB,1.8394E-06_JPRB,3.0822E-06_JPRB,4.1918E-06_JPRB,4.6083E-06_JPRB/)  
+KBO( :, 5,34, 1) = (/&
+ & 5.6945E-08_JPRB,2.1348E-06_JPRB,3.4773E-06_JPRB,4.5733E-06_JPRB,4.9229E-06_JPRB/)  
+KBO( :, 1,35, 1) = (/&
+ & 1.5318E-08_JPRB,1.0637E-06_JPRB,1.9503E-06_JPRB,3.0369E-06_JPRB,3.1425E-06_JPRB/)  
+KBO( :, 2,35, 1) = (/&
+ & 2.0142E-08_JPRB,1.1814E-06_JPRB,2.0969E-06_JPRB,3.0840E-06_JPRB,3.2804E-06_JPRB/)  
+KBO( :, 3,35, 1) = (/&
+ & 2.6985E-08_JPRB,1.3339E-06_JPRB,2.2954E-06_JPRB,3.2281E-06_JPRB,3.4506E-06_JPRB/)  
+KBO( :, 4,35, 1) = (/&
+ & 3.6271E-08_JPRB,1.5312E-06_JPRB,2.5572E-06_JPRB,3.4632E-06_JPRB,3.6600E-06_JPRB/)  
+KBO( :, 5,35, 1) = (/&
+ & 4.8348E-08_JPRB,1.7796E-06_JPRB,2.8900E-06_JPRB,3.7877E-06_JPRB,3.9119E-06_JPRB/)  
+KBO( :, 1,36, 1) = (/&
+ & 1.2609E-08_JPRB,8.7019E-07_JPRB,1.5952E-06_JPRB,2.4829E-06_JPRB,2.4549E-06_JPRB/)  
+KBO( :, 2,36, 1) = (/&
+ & 1.6587E-08_JPRB,9.6711E-07_JPRB,1.7160E-06_JPRB,2.5229E-06_JPRB,2.5656E-06_JPRB/)  
+KBO( :, 3,36, 1) = (/&
+ & 2.2224E-08_JPRB,1.0924E-06_JPRB,1.8795E-06_JPRB,2.6424E-06_JPRB,2.6986E-06_JPRB/)  
+KBO( :, 4,36, 1) = (/&
+ & 2.9869E-08_JPRB,1.2544E-06_JPRB,2.0948E-06_JPRB,2.8361E-06_JPRB,2.8620E-06_JPRB/)  
+KBO( :, 5,36, 1) = (/&
+ & 3.9802E-08_JPRB,1.4584E-06_JPRB,2.3682E-06_JPRB,3.1034E-06_JPRB,3.0593E-06_JPRB/)  
+KBO( :, 1,37, 1) = (/&
+ & 9.9825E-09_JPRB,7.0298E-07_JPRB,1.2942E-06_JPRB,2.0328E-06_JPRB,1.9580E-06_JPRB/)  
+KBO( :, 2,37, 1) = (/&
+ & 1.3082E-08_JPRB,7.7949E-07_JPRB,1.3892E-06_JPRB,2.0567E-06_JPRB,2.0455E-06_JPRB/)  
+KBO( :, 3,37, 1) = (/&
+ & 1.7504E-08_JPRB,8.7873E-07_JPRB,1.5181E-06_JPRB,2.1464E-06_JPRB,2.1505E-06_JPRB/)  
+KBO( :, 4,37, 1) = (/&
+ & 2.3530E-08_JPRB,1.0069E-06_JPRB,1.6884E-06_JPRB,2.2974E-06_JPRB,2.2783E-06_JPRB/)  
+KBO( :, 5,37, 1) = (/&
+ & 3.1408E-08_JPRB,1.1691E-06_JPRB,1.9058E-06_JPRB,2.5076E-06_JPRB,2.4325E-06_JPRB/)  
+KBO( :, 1,38, 1) = (/&
+ & 7.8914E-09_JPRB,5.6770E-07_JPRB,1.0500E-06_JPRB,1.6653E-06_JPRB,1.5591E-06_JPRB/)  
+KBO( :, 2,38, 1) = (/&
+ & 1.0298E-08_JPRB,6.2785E-07_JPRB,1.1243E-06_JPRB,1.6773E-06_JPRB,1.6284E-06_JPRB/)  
+KBO( :, 3,38, 1) = (/&
+ & 1.3752E-08_JPRB,7.0630E-07_JPRB,1.2256E-06_JPRB,1.7435E-06_JPRB,1.7113E-06_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART12',1,ZHOOK_HANDLE)
+END SUBROUTINE PART12
+
+
+SUBROUTINE PART13
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART13',0,ZHOOK_HANDLE)
+
+
+KBO( :, 4,38, 1) = (/&
+ & 1.8491E-08_JPRB,8.0748E-07_JPRB,1.3600E-06_JPRB,1.8604E-06_JPRB,1.8119E-06_JPRB/)  
+KBO( :, 5,38, 1) = (/&
+ & 2.4713E-08_JPRB,9.3623E-07_JPRB,1.5323E-06_JPRB,2.0252E-06_JPRB,1.9325E-06_JPRB/)  
+KBO( :, 1,39, 1) = (/&
+ & 6.2449E-09_JPRB,4.5862E-07_JPRB,8.5227E-07_JPRB,1.3650E-06_JPRB,1.2362E-06_JPRB/)  
+KBO( :, 2,39, 1) = (/&
+ & 8.1107E-09_JPRB,5.0588E-07_JPRB,9.1024E-07_JPRB,1.3687E-06_JPRB,1.2913E-06_JPRB/)  
+KBO( :, 3,39, 1) = (/&
+ & 1.0807E-08_JPRB,5.6790E-07_JPRB,9.8979E-07_JPRB,1.4171E-06_JPRB,1.3567E-06_JPRB/)  
+KBO( :, 4,39, 1) = (/&
+ & 1.4528E-08_JPRB,6.4780E-07_JPRB,1.0958E-06_JPRB,1.5072E-06_JPRB,1.4361E-06_JPRB/)  
+KBO( :, 5,39, 1) = (/&
+ & 1.9446E-08_JPRB,7.4988E-07_JPRB,1.2323E-06_JPRB,1.6363E-06_JPRB,1.5306E-06_JPRB/)  
+KBO( :, 1,40, 1) = (/&
+ & 4.8302E-09_JPRB,3.6764E-07_JPRB,6.8890E-07_JPRB,1.1218E-06_JPRB,9.8696E-07_JPRB/)  
+KBO( :, 2,40, 1) = (/&
+ & 6.2157E-09_JPRB,4.0354E-07_JPRB,7.3207E-07_JPRB,1.1164E-06_JPRB,1.0304E-06_JPRB/)  
+KBO( :, 3,40, 1) = (/&
+ & 8.2441E-09_JPRB,4.5131E-07_JPRB,7.9261E-07_JPRB,1.1474E-06_JPRB,1.0817E-06_JPRB/)  
+KBO( :, 4,40, 1) = (/&
+ & 1.1074E-08_JPRB,5.1282E-07_JPRB,8.7386E-07_JPRB,1.2132E-06_JPRB,1.1434E-06_JPRB/)  
+KBO( :, 5,40, 1) = (/&
+ & 1.4851E-08_JPRB,5.9180E-07_JPRB,9.7921E-07_JPRB,1.3110E-06_JPRB,1.2171E-06_JPRB/)  
+KBO( :, 1,41, 1) = (/&
+ & 3.7368E-09_JPRB,2.9476E-07_JPRB,5.5755E-07_JPRB,9.2376E-07_JPRB,7.8720E-07_JPRB/)  
+KBO( :, 2,41, 1) = (/&
+ & 4.7545E-09_JPRB,3.2182E-07_JPRB,5.8886E-07_JPRB,9.1238E-07_JPRB,8.2191E-07_JPRB/)  
+KBO( :, 3,41, 1) = (/&
+ & 6.2690E-09_JPRB,3.5842E-07_JPRB,6.3462E-07_JPRB,9.3003E-07_JPRB,8.6237E-07_JPRB/)  
+KBO( :, 4,41, 1) = (/&
+ & 8.4086E-09_JPRB,4.0567E-07_JPRB,6.9663E-07_JPRB,9.7688E-07_JPRB,9.1026E-07_JPRB/)  
+KBO( :, 5,41, 1) = (/&
+ & 1.1291E-08_JPRB,4.6640E-07_JPRB,7.7748E-07_JPRB,1.0503E-06_JPRB,9.6752E-07_JPRB/)  
+KBO( :, 1,42, 1) = (/&
+ & 2.9007E-09_JPRB,2.3650E-07_JPRB,4.5213E-07_JPRB,7.6209E-07_JPRB,6.2575E-07_JPRB/)  
+KBO( :, 2,42, 1) = (/&
+ & 3.6445E-09_JPRB,2.5698E-07_JPRB,4.7408E-07_JPRB,7.4714E-07_JPRB,6.5397E-07_JPRB/)  
+KBO( :, 3,42, 1) = (/&
+ & 4.7714E-09_JPRB,2.8488E-07_JPRB,5.0867E-07_JPRB,7.5527E-07_JPRB,6.8601E-07_JPRB/)  
+KBO( :, 4,42, 1) = (/&
+ & 6.3838E-09_JPRB,3.2120E-07_JPRB,5.5584E-07_JPRB,7.8778E-07_JPRB,7.2350E-07_JPRB/)  
+KBO( :, 5,42, 1) = (/&
+ & 8.5773E-09_JPRB,3.6777E-07_JPRB,6.1782E-07_JPRB,8.4249E-07_JPRB,7.6794E-07_JPRB/)  
+KBO( :, 1,43, 1) = (/&
+ & 2.2351E-09_JPRB,1.8911E-07_JPRB,3.6687E-07_JPRB,6.3162E-07_JPRB,4.9805E-07_JPRB/)  
+KBO( :, 2,43, 1) = (/&
+ & 2.7634E-09_JPRB,2.0451E-07_JPRB,3.8115E-07_JPRB,6.1360E-07_JPRB,5.2107E-07_JPRB/)  
+KBO( :, 3,43, 1) = (/&
+ & 3.5807E-09_JPRB,2.2534E-07_JPRB,4.0658E-07_JPRB,6.1409E-07_JPRB,5.4635E-07_JPRB/)  
+KBO( :, 4,43, 1) = (/&
+ & 4.7672E-09_JPRB,2.5284E-07_JPRB,4.4177E-07_JPRB,6.3473E-07_JPRB,5.7553E-07_JPRB/)  
+KBO( :, 5,43, 1) = (/&
+ & 6.4052E-09_JPRB,2.8805E-07_JPRB,4.8846E-07_JPRB,6.7397E-07_JPRB,6.0977E-07_JPRB/)  
+KBO( :, 1,44, 1) = (/&
+ & 1.7248E-09_JPRB,1.5121E-07_JPRB,2.9826E-07_JPRB,5.2580E-07_JPRB,3.9624E-07_JPRB/)  
+KBO( :, 2,44, 1) = (/&
+ & 2.0939E-09_JPRB,1.6277E-07_JPRB,3.0698E-07_JPRB,5.0563E-07_JPRB,4.1515E-07_JPRB/)  
+KBO( :, 3,44, 1) = (/&
+ & 2.6759E-09_JPRB,1.7808E-07_JPRB,3.2502E-07_JPRB,5.0085E-07_JPRB,4.3507E-07_JPRB/)  
+KBO( :, 4,44, 1) = (/&
+ & 3.5375E-09_JPRB,1.9875E-07_JPRB,3.5098E-07_JPRB,5.1227E-07_JPRB,4.5779E-07_JPRB/)  
+KBO( :, 5,44, 1) = (/&
+ & 4.7457E-09_JPRB,2.2523E-07_JPRB,3.8582E-07_JPRB,5.3933E-07_JPRB,4.8421E-07_JPRB/)  
+KBO( :, 1,45, 1) = (/&
+ & 1.3426E-09_JPRB,1.2131E-07_JPRB,2.4315E-07_JPRB,4.3919E-07_JPRB,3.1429E-07_JPRB/)  
+KBO( :, 2,45, 1) = (/&
+ & 1.5963E-09_JPRB,1.2978E-07_JPRB,2.4811E-07_JPRB,4.1799E-07_JPRB,3.2982E-07_JPRB/)  
+KBO( :, 3,45, 1) = (/&
+ & 2.0068E-09_JPRB,1.4107E-07_JPRB,2.6027E-07_JPRB,4.0999E-07_JPRB,3.4585E-07_JPRB/)  
+KBO( :, 4,45, 1) = (/&
+ & 2.6291E-09_JPRB,1.5649E-07_JPRB,2.7939E-07_JPRB,4.1473E-07_JPRB,3.6360E-07_JPRB/)  
+KBO( :, 5,45, 1) = (/&
+ & 3.5165E-09_JPRB,1.7643E-07_JPRB,3.0531E-07_JPRB,4.3268E-07_JPRB,3.8407E-07_JPRB/)  
+KBO( :, 1,46, 1) = (/&
+ & 1.0525E-09_JPRB,9.7607E-08_JPRB,1.9871E-07_JPRB,3.6864E-07_JPRB,2.4954E-07_JPRB/)  
+KBO( :, 2,46, 1) = (/&
+ & 1.2190E-09_JPRB,1.0342E-07_JPRB,2.0108E-07_JPRB,3.4713E-07_JPRB,2.6150E-07_JPRB/)  
+KBO( :, 3,46, 1) = (/&
+ & 1.5044E-09_JPRB,1.1181E-07_JPRB,2.0871E-07_JPRB,3.3691E-07_JPRB,2.7474E-07_JPRB/)  
+KBO( :, 4,46, 1) = (/&
+ & 1.9474E-09_JPRB,1.2315E-07_JPRB,2.2254E-07_JPRB,3.3690E-07_JPRB,2.8869E-07_JPRB/)  
+KBO( :, 5,46, 1) = (/&
+ & 2.5900E-09_JPRB,1.3809E-07_JPRB,2.4160E-07_JPRB,3.4784E-07_JPRB,3.0446E-07_JPRB/)  
+KBO( :, 1,47, 1) = (/&
+ & 8.3184E-10_JPRB,7.8730E-08_JPRB,1.6288E-07_JPRB,3.1142E-07_JPRB,1.9926E-07_JPRB/)  
+KBO( :, 2,47, 1) = (/&
+ & 9.3189E-10_JPRB,8.2400E-08_JPRB,1.6338E-07_JPRB,2.9014E-07_JPRB,2.0781E-07_JPRB/)  
+KBO( :, 3,47, 1) = (/&
+ & 1.1246E-09_JPRB,8.8566E-08_JPRB,1.6773E-07_JPRB,2.7820E-07_JPRB,2.1850E-07_JPRB/)  
+KBO( :, 4,47, 1) = (/&
+ & 1.4310E-09_JPRB,9.6726E-08_JPRB,1.7718E-07_JPRB,2.7482E-07_JPRB,2.2960E-07_JPRB/)  
+KBO( :, 5,47, 1) = (/&
+ & 1.8866E-09_JPRB,1.0777E-07_JPRB,1.9096E-07_JPRB,2.8016E-07_JPRB,2.4174E-07_JPRB/)  
+KBO( :, 1,48, 1) = (/&
+ & 6.6667E-10_JPRB,6.3743E-08_JPRB,1.3383E-07_JPRB,2.6444E-07_JPRB,1.5919E-07_JPRB/)  
+KBO( :, 2,48, 1) = (/&
+ & 7.2152E-10_JPRB,6.5980E-08_JPRB,1.3326E-07_JPRB,2.4370E-07_JPRB,1.6500E-07_JPRB/)  
+KBO( :, 3,48, 1) = (/&
+ & 8.4803E-10_JPRB,7.0305E-08_JPRB,1.3546E-07_JPRB,2.3079E-07_JPRB,1.7325E-07_JPRB/)  
+KBO( :, 4,48, 1) = (/&
+ & 1.0576E-09_JPRB,7.6239E-08_JPRB,1.4145E-07_JPRB,2.2533E-07_JPRB,1.8229E-07_JPRB/)  
+KBO( :, 5,48, 1) = (/&
+ & 1.3781E-09_JPRB,8.4292E-08_JPRB,1.5136E-07_JPRB,2.2672E-07_JPRB,1.9179E-07_JPRB/)  
+KBO( :, 1,49, 1) = (/&
+ & 5.4144E-10_JPRB,5.1801E-08_JPRB,1.1013E-07_JPRB,2.2618E-07_JPRB,1.2711E-07_JPRB/)  
+KBO( :, 2,49, 1) = (/&
+ & 5.6629E-10_JPRB,5.3107E-08_JPRB,1.0907E-07_JPRB,2.0553E-07_JPRB,1.3089E-07_JPRB/)  
+KBO( :, 3,49, 1) = (/&
+ & 6.4486E-10_JPRB,5.5918E-08_JPRB,1.0986E-07_JPRB,1.9244E-07_JPRB,1.3676E-07_JPRB/)  
+KBO( :, 4,49, 1) = (/&
+ & 7.8735E-10_JPRB,6.0291E-08_JPRB,1.1339E-07_JPRB,1.8565E-07_JPRB,1.4422E-07_JPRB/)  
+KBO( :, 5,49, 1) = (/&
+ & 1.0106E-09_JPRB,6.6110E-08_JPRB,1.2034E-07_JPRB,1.8446E-07_JPRB,1.5185E-07_JPRB/)  
+KBO( :, 1,50, 1) = (/&
+ & 4.4437E-10_JPRB,4.2232E-08_JPRB,9.0862E-08_JPRB,1.9444E-07_JPRB,1.0220E-07_JPRB/)  
+KBO( :, 2,50, 1) = (/&
+ & 4.5142E-10_JPRB,4.2954E-08_JPRB,8.9495E-08_JPRB,1.7367E-07_JPRB,1.0478E-07_JPRB/)  
+KBO( :, 3,50, 1) = (/&
+ & 4.9792E-10_JPRB,4.4724E-08_JPRB,8.9470E-08_JPRB,1.6100E-07_JPRB,1.0886E-07_JPRB/)  
+KBO( :, 4,50, 1) = (/&
+ & 5.9436E-10_JPRB,4.7919E-08_JPRB,9.1442E-08_JPRB,1.5352E-07_JPRB,1.1464E-07_JPRB/)  
+KBO( :, 5,50, 1) = (/&
+ & 7.4940E-10_JPRB,5.2145E-08_JPRB,9.6092E-08_JPRB,1.5086E-07_JPRB,1.2088E-07_JPRB/)  
+KBO( :, 1,51, 1) = (/&
+ & 3.6713E-10_JPRB,3.4474E-08_JPRB,7.5308E-08_JPRB,1.6803E-07_JPRB,8.2415E-08_JPRB/)  
+KBO( :, 2,51, 1) = (/&
+ & 3.6430E-10_JPRB,3.4862E-08_JPRB,7.3571E-08_JPRB,1.4732E-07_JPRB,8.4283E-08_JPRB/)  
+KBO( :, 3,51, 1) = (/&
+ & 3.8938E-10_JPRB,3.5958E-08_JPRB,7.3095E-08_JPRB,1.3515E-07_JPRB,8.7129E-08_JPRB/)  
+KBO( :, 4,51, 1) = (/&
+ & 4.5287E-10_JPRB,3.8169E-08_JPRB,7.4068E-08_JPRB,1.2746E-07_JPRB,9.1359E-08_JPRB/)  
+KBO( :, 5,51, 1) = (/&
+ & 5.6042E-10_JPRB,4.1297E-08_JPRB,7.7005E-08_JPRB,1.2390E-07_JPRB,9.6467E-08_JPRB/)  
+KBO( :, 1,52, 1) = (/&
+ & 3.0507E-10_JPRB,2.8135E-08_JPRB,6.2903E-08_JPRB,1.4596E-07_JPRB,6.6326E-08_JPRB/)  
+KBO( :, 2,52, 1) = (/&
+ & 2.9709E-10_JPRB,2.8385E-08_JPRB,6.0554E-08_JPRB,1.2580E-07_JPRB,6.7717E-08_JPRB/)  
+KBO( :, 3,52, 1) = (/&
+ & 3.0805E-10_JPRB,2.9029E-08_JPRB,5.9886E-08_JPRB,1.1380E-07_JPRB,6.9709E-08_JPRB/)  
+KBO( :, 4,52, 1) = (/&
+ & 3.4776E-10_JPRB,3.0470E-08_JPRB,6.0190E-08_JPRB,1.0625E-07_JPRB,7.2725E-08_JPRB/)  
+KBO( :, 5,52, 1) = (/&
+ & 4.2195E-10_JPRB,3.2800E-08_JPRB,6.1944E-08_JPRB,1.0216E-07_JPRB,7.6745E-08_JPRB/)  
+KBO( :, 1,53, 1) = (/&
+ & 2.5471E-10_JPRB,2.2998E-08_JPRB,5.2959E-08_JPRB,1.2738E-07_JPRB,5.3131E-08_JPRB/)  
+KBO( :, 2,53, 1) = (/&
+ & 2.4432E-10_JPRB,2.3152E-08_JPRB,5.0007E-08_JPRB,1.0819E-07_JPRB,5.4179E-08_JPRB/)  
+KBO( :, 3,53, 1) = (/&
+ & 2.4654E-10_JPRB,2.3508E-08_JPRB,4.9165E-08_JPRB,9.6195E-08_JPRB,5.5658E-08_JPRB/)  
+KBO( :, 4,53, 1) = (/&
+ & 2.6977E-10_JPRB,2.4417E-08_JPRB,4.9071E-08_JPRB,8.8939E-08_JPRB,5.7790E-08_JPRB/)  
+KBO( :, 5,53, 1) = (/&
+ & 3.1992E-10_JPRB,2.6104E-08_JPRB,5.0031E-08_JPRB,8.4550E-08_JPRB,6.0803E-08_JPRB/)  
+KBO( :, 1,54, 1) = (/&
+ & 2.1314E-10_JPRB,1.8852E-08_JPRB,4.4748E-08_JPRB,1.1115E-07_JPRB,4.3302E-08_JPRB/)  
+KBO( :, 2,54, 1) = (/&
+ & 2.0193E-10_JPRB,1.8904E-08_JPRB,4.1449E-08_JPRB,9.3135E-08_JPRB,4.4067E-08_JPRB/)  
+KBO( :, 3,54, 1) = (/&
+ & 1.9965E-10_JPRB,1.9105E-08_JPRB,4.0409E-08_JPRB,8.1420E-08_JPRB,4.5177E-08_JPRB/)  
+KBO( :, 4,54, 1) = (/&
+ & 2.1224E-10_JPRB,1.9678E-08_JPRB,4.0114E-08_JPRB,7.4541E-08_JPRB,4.6704E-08_JPRB/)  
+KBO( :, 5,54, 1) = (/&
+ & 2.4557E-10_JPRB,2.0847E-08_JPRB,4.0586E-08_JPRB,7.0154E-08_JPRB,4.8932E-08_JPRB/)  
+KBO( :, 1,55, 1) = (/&
+ & 1.7867E-10_JPRB,1.5555E-08_JPRB,3.7972E-08_JPRB,9.7108E-08_JPRB,3.5728E-08_JPRB/)  
+KBO( :, 2,55, 1) = (/&
+ & 1.6760E-10_JPRB,1.5433E-08_JPRB,3.4555E-08_JPRB,8.0306E-08_JPRB,3.6271E-08_JPRB/)  
+KBO( :, 3,55, 1) = (/&
+ & 1.6306E-10_JPRB,1.5570E-08_JPRB,3.3237E-08_JPRB,6.9179E-08_JPRB,3.7075E-08_JPRB/)  
+KBO( :, 4,55, 1) = (/&
+ & 1.6881E-10_JPRB,1.5918E-08_JPRB,3.2865E-08_JPRB,6.2543E-08_JPRB,3.8181E-08_JPRB/)  
+KBO( :, 5,55, 1) = (/&
+ & 1.9022E-10_JPRB,1.6697E-08_JPRB,3.3018E-08_JPRB,5.8357E-08_JPRB,3.9829E-08_JPRB/)  
+KBO( :, 1,56, 1) = (/&
+ & 1.5014E-10_JPRB,1.2915E-08_JPRB,3.2380E-08_JPRB,8.5055E-08_JPRB,2.9526E-08_JPRB/)  
+KBO( :, 2,56, 1) = (/&
+ & 1.3958E-10_JPRB,1.2616E-08_JPRB,2.8978E-08_JPRB,6.9473E-08_JPRB,2.9904E-08_JPRB/)  
+KBO( :, 3,56, 1) = (/&
+ & 1.3402E-10_JPRB,1.2704E-08_JPRB,2.7411E-08_JPRB,5.9088E-08_JPRB,3.0485E-08_JPRB/)  
+KBO( :, 4,56, 1) = (/&
+ & 1.3548E-10_JPRB,1.2908E-08_JPRB,2.6966E-08_JPRB,5.2631E-08_JPRB,3.1281E-08_JPRB/)  
+KBO( :, 5,56, 1) = (/&
+ & 1.4854E-10_JPRB,1.3416E-08_JPRB,2.6928E-08_JPRB,4.8694E-08_JPRB,3.2487E-08_JPRB/)  
+KBO( :, 1,57, 1) = (/&
+ & 1.2648E-10_JPRB,1.0778E-08_JPRB,2.7708E-08_JPRB,7.4942E-08_JPRB,2.4443E-08_JPRB/)  
+KBO( :, 2,57, 1) = (/&
+ & 1.1666E-10_JPRB,1.0334E-08_JPRB,2.4430E-08_JPRB,6.0404E-08_JPRB,2.4707E-08_JPRB/)  
+KBO( :, 3,57, 1) = (/&
+ & 1.1067E-10_JPRB,1.0374E-08_JPRB,2.2691E-08_JPRB,5.0714E-08_JPRB,2.5111E-08_JPRB/)  
+KBO( :, 4,57, 1) = (/&
+ & 1.0967E-10_JPRB,1.0490E-08_JPRB,2.2155E-08_JPRB,4.4446E-08_JPRB,2.5686E-08_JPRB/)  
+KBO( :, 5,57, 1) = (/&
+ & 1.1697E-10_JPRB,1.0815E-08_JPRB,2.2007E-08_JPRB,4.0752E-08_JPRB,2.6560E-08_JPRB/)  
+KBO( :, 1,58, 1) = (/&
+ & 1.0659E-10_JPRB,9.0293E-09_JPRB,2.3759E-08_JPRB,6.6089E-08_JPRB,2.0347E-08_JPRB/)  
+KBO( :, 2,58, 1) = (/&
+ & 9.7636E-11_JPRB,8.5135E-09_JPRB,2.0668E-08_JPRB,5.2543E-08_JPRB,2.0525E-08_JPRB/)  
+KBO( :, 3,58, 1) = (/&
+ & 9.1732E-11_JPRB,8.4689E-09_JPRB,1.8876E-08_JPRB,4.3570E-08_JPRB,2.0785E-08_JPRB/)  
+KBO( :, 4,58, 1) = (/&
+ & 8.9487E-11_JPRB,8.5483E-09_JPRB,1.8213E-08_JPRB,3.7645E-08_JPRB,2.1195E-08_JPRB/)  
+KBO( :, 5,58, 1) = (/&
+ & 9.3059E-11_JPRB,8.7505E-09_JPRB,1.8022E-08_JPRB,3.4131E-08_JPRB,2.1827E-08_JPRB/)  
+KBO( :, 1,59, 1) = (/&
+ & 8.8331E-11_JPRB,7.4630E-09_JPRB,1.9793E-08_JPRB,5.5593E-08_JPRB,1.7482E-08_JPRB/)  
+KBO( :, 2,59, 1) = (/&
+ & 8.0694E-11_JPRB,6.9932E-09_JPRB,1.7133E-08_JPRB,4.3957E-08_JPRB,1.7486E-08_JPRB/)  
+KBO( :, 3,59, 1) = (/&
+ & 7.5549E-11_JPRB,6.9233E-09_JPRB,1.5553E-08_JPRB,3.6288E-08_JPRB,1.7620E-08_JPRB/)  
+KBO( :, 4,59, 1) = (/&
+ & 7.3293E-11_JPRB,6.9863E-09_JPRB,1.4925E-08_JPRB,3.1206E-08_JPRB,1.7870E-08_JPRB/)  
+KBO( :, 5,59, 1) = (/&
+ & 7.5492E-11_JPRB,7.1328E-09_JPRB,1.4750E-08_JPRB,2.8159E-08_JPRB,1.8369E-08_JPRB/)  
+KBO( :, 1,13, 2) = (/&
+ & 1.7831E-06_JPRB,1.1485E-04_JPRB,2.2492E-04_JPRB,4.1688E-04_JPRB,6.0547E-04_JPRB/)  
+KBO( :, 2,13, 2) = (/&
+ & 2.2523E-06_JPRB,1.2306E-04_JPRB,2.2855E-04_JPRB,3.8873E-04_JPRB,6.9580E-04_JPRB/)  
+KBO( :, 3,13, 2) = (/&
+ & 3.1401E-06_JPRB,1.3738E-04_JPRB,2.4315E-04_JPRB,3.7873E-04_JPRB,8.1218E-04_JPRB/)  
+KBO( :, 4,13, 2) = (/&
+ & 4.6444E-06_JPRB,1.5956E-04_JPRB,2.6822E-04_JPRB,3.8629E-04_JPRB,9.5399E-04_JPRB/)  
+KBO( :, 5,13, 2) = (/&
+ & 7.0313E-06_JPRB,1.8987E-04_JPRB,3.0507E-04_JPRB,4.1261E-04_JPRB,1.1192E-03_JPRB/)  
+KBO( :, 1,14, 2) = (/&
+ & 1.5078E-06_JPRB,9.3955E-05_JPRB,1.8376E-04_JPRB,3.3845E-04_JPRB,5.0372E-04_JPRB/)  
+KBO( :, 2,14, 2) = (/&
+ & 1.9334E-06_JPRB,1.0121E-04_JPRB,1.8743E-04_JPRB,3.1713E-04_JPRB,5.7910E-04_JPRB/)  
+KBO( :, 3,14, 2) = (/&
+ & 2.7160E-06_JPRB,1.1368E-04_JPRB,2.0048E-04_JPRB,3.1032E-04_JPRB,6.7658E-04_JPRB/)  
+KBO( :, 4,14, 2) = (/&
+ & 4.0314E-06_JPRB,1.3266E-04_JPRB,2.2233E-04_JPRB,3.1845E-04_JPRB,7.9423E-04_JPRB/)  
+KBO( :, 5,14, 2) = (/&
+ & 6.1144E-06_JPRB,1.5848E-04_JPRB,2.5408E-04_JPRB,3.4197E-04_JPRB,9.2922E-04_JPRB/)  
+KBO( :, 1,15, 2) = (/&
+ & 1.2774E-06_JPRB,7.6659E-05_JPRB,1.4966E-04_JPRB,2.7428E-04_JPRB,4.0806E-04_JPRB/)  
+KBO( :, 2,15, 2) = (/&
+ & 1.6539E-06_JPRB,8.3075E-05_JPRB,1.5341E-04_JPRB,2.5818E-04_JPRB,4.6824E-04_JPRB/)  
+KBO( :, 3,15, 2) = (/&
+ & 2.3327E-06_JPRB,9.3823E-05_JPRB,1.6504E-04_JPRB,2.5400E-04_JPRB,5.4554E-04_JPRB/)  
+KBO( :, 4,15, 2) = (/&
+ & 3.4694E-06_JPRB,1.1007E-04_JPRB,1.8398E-04_JPRB,2.6231E-04_JPRB,6.3780E-04_JPRB/)  
+KBO( :, 5,15, 2) = (/&
+ & 5.2705E-06_JPRB,1.3207E-04_JPRB,2.1119E-04_JPRB,2.8323E-04_JPRB,7.4509E-04_JPRB/)  
+KBO( :, 1,16, 2) = (/&
+ & 1.0807E-06_JPRB,6.2530E-05_JPRB,1.2180E-04_JPRB,2.2215E-04_JPRB,3.2808E-04_JPRB/)  
+KBO( :, 2,16, 2) = (/&
+ & 1.4084E-06_JPRB,6.8196E-05_JPRB,1.2558E-04_JPRB,2.1014E-04_JPRB,3.7445E-04_JPRB/)  
+KBO( :, 3,16, 2) = (/&
+ & 1.9921E-06_JPRB,7.7409E-05_JPRB,1.3589E-04_JPRB,2.0792E-04_JPRB,4.3322E-04_JPRB/)  
+KBO( :, 4,16, 2) = (/&
+ & 2.9709E-06_JPRB,9.1317E-05_JPRB,1.5223E-04_JPRB,2.1610E-04_JPRB,5.0329E-04_JPRB/)  
+KBO( :, 5,16, 2) = (/&
+ & 4.5175E-06_JPRB,1.1013E-04_JPRB,1.7552E-04_JPRB,2.3456E-04_JPRB,5.8394E-04_JPRB/)  
+KBO( :, 1,17, 2) = (/&
+ & 9.1180E-07_JPRB,5.1179E-05_JPRB,9.9386E-05_JPRB,1.8025E-04_JPRB,2.6437E-04_JPRB/)  
+KBO( :, 2,17, 2) = (/&
+ & 1.1946E-06_JPRB,5.6143E-05_JPRB,1.0310E-04_JPRB,1.7134E-04_JPRB,2.9996E-04_JPRB/)  
+KBO( :, 3,17, 2) = (/&
+ & 1.6972E-06_JPRB,6.4077E-05_JPRB,1.1216E-04_JPRB,1.7049E-04_JPRB,3.4494E-04_JPRB/)  
+KBO( :, 4,17, 2) = (/&
+ & 2.5402E-06_JPRB,7.6034E-05_JPRB,1.2620E-04_JPRB,1.7834E-04_JPRB,3.9850E-04_JPRB/)  
+KBO( :, 5,17, 2) = (/&
+ & 3.8602E-06_JPRB,9.2137E-05_JPRB,1.4620E-04_JPRB,1.9446E-04_JPRB,4.6053E-04_JPRB/)  
+KBO( :, 1,18, 2) = (/&
+ & 7.6847E-07_JPRB,4.2128E-05_JPRB,8.1427E-05_JPRB,1.4663E-04_JPRB,2.1428E-04_JPRB/)  
+KBO( :, 2,18, 2) = (/&
+ & 1.0140E-06_JPRB,4.6467E-05_JPRB,8.5018E-05_JPRB,1.4005E-04_JPRB,2.4221E-04_JPRB/)  
+KBO( :, 3,18, 2) = (/&
+ & 1.4492E-06_JPRB,5.3358E-05_JPRB,9.2939E-05_JPRB,1.4019E-04_JPRB,2.7739E-04_JPRB/)  
+KBO( :, 4,18, 2) = (/&
+ & 2.1756E-06_JPRB,6.3671E-05_JPRB,1.0504E-04_JPRB,1.4753E-04_JPRB,3.1937E-04_JPRB/)  
+KBO( :, 5,18, 2) = (/&
+ & 3.2973E-06_JPRB,7.7469E-05_JPRB,1.2233E-04_JPRB,1.6159E-04_JPRB,3.6805E-04_JPRB/)  
+KBO( :, 1,19, 2) = (/&
+ & 6.4665E-07_JPRB,3.4756E-05_JPRB,6.6830E-05_JPRB,1.1940E-04_JPRB,1.7455E-04_JPRB/)  
+KBO( :, 2,19, 2) = (/&
+ & 8.6026E-07_JPRB,3.8528E-05_JPRB,7.0212E-05_JPRB,1.1460E-04_JPRB,1.9694E-04_JPRB/)  
+KBO( :, 3,19, 2) = (/&
+ & 1.2368E-06_JPRB,4.4528E-05_JPRB,7.7120E-05_JPRB,1.1540E-04_JPRB,2.2498E-04_JPRB/)  
+KBO( :, 4,19, 2) = (/&
+ & 1.8580E-06_JPRB,5.3404E-05_JPRB,8.7557E-05_JPRB,1.2215E-04_JPRB,2.5850E-04_JPRB/)  
+KBO( :, 5,19, 2) = (/&
+ & 2.8103E-06_JPRB,6.5162E-05_JPRB,1.0249E-04_JPRB,1.3438E-04_JPRB,2.9679E-04_JPRB/)  
+KBO( :, 1,20, 2) = (/&
+ & 5.4656E-07_JPRB,2.8770E-05_JPRB,5.4975E-05_JPRB,9.7196E-05_JPRB,1.4326E-04_JPRB/)  
+KBO( :, 2,20, 2) = (/&
+ & 7.3436E-07_JPRB,3.2085E-05_JPRB,5.8157E-05_JPRB,9.3865E-05_JPRB,1.6155E-04_JPRB/)  
+KBO( :, 3,20, 2) = (/&
+ & 1.0622E-06_JPRB,3.7358E-05_JPRB,6.4221E-05_JPRB,9.5159E-05_JPRB,1.8436E-04_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART13',1,ZHOOK_HANDLE)
+END SUBROUTINE PART13
+
+
+SUBROUTINE PART14
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART14',0,ZHOOK_HANDLE)
+
+
+KBO( :, 4,20, 2) = (/&
+ & 1.5965E-06_JPRB,4.4974E-05_JPRB,7.3287E-05_JPRB,1.0139E-04_JPRB,2.1149E-04_JPRB/)  
+KBO( :, 5,20, 2) = (/&
+ & 2.4119E-06_JPRB,5.5033E-05_JPRB,8.6244E-05_JPRB,1.1207E-04_JPRB,2.4172E-04_JPRB/)  
+KBO( :, 1,21, 2) = (/&
+ & 4.6233E-07_JPRB,2.3834E-05_JPRB,4.5264E-05_JPRB,7.9149E-05_JPRB,1.1774E-04_JPRB/)  
+KBO( :, 2,21, 2) = (/&
+ & 6.2707E-07_JPRB,2.6751E-05_JPRB,4.8202E-05_JPRB,7.6928E-05_JPRB,1.3273E-04_JPRB/)  
+KBO( :, 3,21, 2) = (/&
+ & 9.1123E-07_JPRB,3.1358E-05_JPRB,5.3515E-05_JPRB,7.8550E-05_JPRB,1.5133E-04_JPRB/)  
+KBO( :, 4,21, 2) = (/&
+ & 1.3711E-06_JPRB,3.7856E-05_JPRB,6.1405E-05_JPRB,8.4206E-05_JPRB,1.7321E-04_JPRB/)  
+KBO( :, 5,21, 2) = (/&
+ & 2.0698E-06_JPRB,4.6466E-05_JPRB,7.2555E-05_JPRB,9.3524E-05_JPRB,1.9698E-04_JPRB/)  
+KBO( :, 1,22, 2) = (/&
+ & 3.9809E-07_JPRB,1.9861E-05_JPRB,3.7362E-05_JPRB,6.4255E-05_JPRB,9.7130E-05_JPRB/)  
+KBO( :, 2,22, 2) = (/&
+ & 5.4666E-07_JPRB,2.2487E-05_JPRB,4.0159E-05_JPRB,6.3058E-05_JPRB,1.0946E-04_JPRB/)  
+KBO( :, 3,22, 2) = (/&
+ & 8.0057E-07_JPRB,2.6577E-05_JPRB,4.4935E-05_JPRB,6.5070E-05_JPRB,1.2456E-04_JPRB/)  
+KBO( :, 4,22, 2) = (/&
+ & 1.2071E-06_JPRB,3.2211E-05_JPRB,5.1924E-05_JPRB,7.0344E-05_JPRB,1.4182E-04_JPRB/)  
+KBO( :, 5,22, 2) = (/&
+ & 1.8195E-06_JPRB,3.9674E-05_JPRB,6.1645E-05_JPRB,7.8623E-05_JPRB,1.6040E-04_JPRB/)  
+KBO( :, 1,23, 2) = (/&
+ & 3.4367E-07_JPRB,1.6568E-05_JPRB,3.0880E-05_JPRB,5.2238E-05_JPRB,8.0021E-05_JPRB/)  
+KBO( :, 2,23, 2) = (/&
+ & 4.7758E-07_JPRB,1.8928E-05_JPRB,3.3504E-05_JPRB,5.1762E-05_JPRB,9.0054E-05_JPRB/)  
+KBO( :, 3,23, 2) = (/&
+ & 7.0447E-07_JPRB,2.2529E-05_JPRB,3.7774E-05_JPRB,5.3990E-05_JPRB,1.0211E-04_JPRB/)  
+KBO( :, 4,23, 2) = (/&
+ & 1.0638E-06_JPRB,2.7414E-05_JPRB,4.3928E-05_JPRB,5.8845E-05_JPRB,1.1542E-04_JPRB/)  
+KBO( :, 5,23, 2) = (/&
+ & 1.6007E-06_JPRB,3.3849E-05_JPRB,5.2353E-05_JPRB,6.6134E-05_JPRB,1.3002E-04_JPRB/)  
+KBO( :, 1,24, 2) = (/&
+ & 2.9731E-07_JPRB,1.3817E-05_JPRB,2.5531E-05_JPRB,4.2477E-05_JPRB,6.5483E-05_JPRB/)  
+KBO( :, 2,24, 2) = (/&
+ & 4.1800E-07_JPRB,1.5925E-05_JPRB,2.7963E-05_JPRB,4.2525E-05_JPRB,7.3450E-05_JPRB/)  
+KBO( :, 3,24, 2) = (/&
+ & 6.2039E-07_JPRB,1.9083E-05_JPRB,3.1748E-05_JPRB,4.4841E-05_JPRB,8.2603E-05_JPRB/)  
+KBO( :, 4,24, 2) = (/&
+ & 9.3799E-07_JPRB,2.3303E-05_JPRB,3.7155E-05_JPRB,4.9236E-05_JPRB,9.2771E-05_JPRB/)  
+KBO( :, 5,24, 2) = (/&
+ & 1.4084E-06_JPRB,2.8824E-05_JPRB,4.4404E-05_JPRB,5.5621E-05_JPRB,1.0401E-04_JPRB/)  
+KBO( :, 1,25, 2) = (/&
+ & 2.5846E-07_JPRB,1.1557E-05_JPRB,2.1168E-05_JPRB,3.4591E-05_JPRB,5.3402E-05_JPRB/)  
+KBO( :, 2,25, 2) = (/&
+ & 3.6779E-07_JPRB,1.3446E-05_JPRB,2.3397E-05_JPRB,3.5019E-05_JPRB,5.9504E-05_JPRB/)  
+KBO( :, 3,25, 2) = (/&
+ & 5.4914E-07_JPRB,1.6203E-05_JPRB,2.6747E-05_JPRB,3.7316E-05_JPRB,6.6453E-05_JPRB/)  
+KBO( :, 4,25, 2) = (/&
+ & 8.3081E-07_JPRB,1.9848E-05_JPRB,3.1489E-05_JPRB,4.1271E-05_JPRB,7.4204E-05_JPRB/)  
+KBO( :, 5,25, 2) = (/&
+ & 1.2434E-06_JPRB,2.4586E-05_JPRB,3.7706E-05_JPRB,4.6843E-05_JPRB,8.2964E-05_JPRB/)  
+KBO( :, 1,26, 2) = (/&
+ & 2.2688E-07_JPRB,9.7182E-06_JPRB,1.7626E-05_JPRB,2.8238E-05_JPRB,4.3458E-05_JPRB/)  
+KBO( :, 2,26, 2) = (/&
+ & 3.2698E-07_JPRB,1.1421E-05_JPRB,1.9660E-05_JPRB,2.8946E-05_JPRB,4.8104E-05_JPRB/)  
+KBO( :, 3,26, 2) = (/&
+ & 4.9095E-07_JPRB,1.3827E-05_JPRB,2.2642E-05_JPRB,3.1162E-05_JPRB,5.3458E-05_JPRB/)  
+KBO( :, 4,26, 2) = (/&
+ & 7.4254E-07_JPRB,1.6991E-05_JPRB,2.6804E-05_JPRB,3.4710E-05_JPRB,5.9616E-05_JPRB/)  
+KBO( :, 5,26, 2) = (/&
+ & 1.1064E-06_JPRB,2.1073E-05_JPRB,3.2131E-05_JPRB,3.9581E-05_JPRB,6.6564E-05_JPRB/)  
+KBO( :, 1,27, 2) = (/&
+ & 1.9993E-07_JPRB,8.1890E-06_JPRB,1.4706E-05_JPRB,2.3104E-05_JPRB,3.4885E-05_JPRB/)  
+KBO( :, 2,27, 2) = (/&
+ & 2.9147E-07_JPRB,9.7120E-06_JPRB,1.6544E-05_JPRB,2.3984E-05_JPRB,3.8444E-05_JPRB/)  
+KBO( :, 3,27, 2) = (/&
+ & 4.3955E-07_JPRB,1.1803E-05_JPRB,1.9192E-05_JPRB,2.6063E-05_JPRB,4.2658E-05_JPRB/)  
+KBO( :, 4,27, 2) = (/&
+ & 6.6365E-07_JPRB,1.4549E-05_JPRB,2.2817E-05_JPRB,2.9214E-05_JPRB,4.7548E-05_JPRB/)  
+KBO( :, 5,27, 2) = (/&
+ & 9.8399E-07_JPRB,1.8060E-05_JPRB,2.7381E-05_JPRB,3.3454E-05_JPRB,5.3034E-05_JPRB/)  
+KBO( :, 1,28, 2) = (/&
+ & 1.7666E-07_JPRB,6.9106E-06_JPRB,1.2291E-05_JPRB,1.8950E-05_JPRB,2.7614E-05_JPRB/)  
+KBO( :, 2,28, 2) = (/&
+ & 2.6027E-07_JPRB,8.2613E-06_JPRB,1.3939E-05_JPRB,1.9912E-05_JPRB,3.0347E-05_JPRB/)  
+KBO( :, 3,28, 2) = (/&
+ & 3.9360E-07_JPRB,1.0076E-05_JPRB,1.6277E-05_JPRB,2.1822E-05_JPRB,3.3665E-05_JPRB/)  
+KBO( :, 4,28, 2) = (/&
+ & 5.9255E-07_JPRB,1.2455E-05_JPRB,1.9419E-05_JPRB,2.4599E-05_JPRB,3.7521E-05_JPRB/)  
+KBO( :, 5,28, 2) = (/&
+ & 8.7397E-07_JPRB,1.5474E-05_JPRB,2.3332E-05_JPRB,2.8281E-05_JPRB,4.1809E-05_JPRB/)  
+KBO( :, 1,29, 2) = (/&
+ & 1.5731E-07_JPRB,5.8606E-06_JPRB,1.0316E-05_JPRB,1.5600E-05_JPRB,2.1902E-05_JPRB/)  
+KBO( :, 2,29, 2) = (/&
+ & 2.3400E-07_JPRB,7.0543E-06_JPRB,1.1790E-05_JPRB,1.6590E-05_JPRB,2.4089E-05_JPRB/)  
+KBO( :, 3,29, 2) = (/&
+ & 3.5418E-07_JPRB,8.6343E-06_JPRB,1.3853E-05_JPRB,1.8324E-05_JPRB,2.6737E-05_JPRB/)  
+KBO( :, 4,29, 2) = (/&
+ & 5.3119E-07_JPRB,1.0700E-05_JPRB,1.6576E-05_JPRB,2.0766E-05_JPRB,2.9758E-05_JPRB/)  
+KBO( :, 5,29, 2) = (/&
+ & 7.7916E-07_JPRB,1.3299E-05_JPRB,1.9939E-05_JPRB,2.3971E-05_JPRB,3.3117E-05_JPRB/)  
+KBO( :, 1,30, 2) = (/&
+ & 1.4063E-07_JPRB,4.9824E-06_JPRB,8.6764E-06_JPRB,1.2880E-05_JPRB,1.7310E-05_JPRB/)  
+KBO( :, 2,30, 2) = (/&
+ & 2.1067E-07_JPRB,6.0303E-06_JPRB,9.9875E-06_JPRB,1.3848E-05_JPRB,1.9047E-05_JPRB/)  
+KBO( :, 3,30, 2) = (/&
+ & 3.1873E-07_JPRB,7.4093E-06_JPRB,1.1804E-05_JPRB,1.5408E-05_JPRB,2.1112E-05_JPRB/)  
+KBO( :, 4,30, 2) = (/&
+ & 4.7602E-07_JPRB,9.1990E-06_JPRB,1.4156E-05_JPRB,1.7550E-05_JPRB,2.3467E-05_JPRB/)  
+KBO( :, 5,30, 2) = (/&
+ & 6.9431E-07_JPRB,1.1442E-05_JPRB,1.7053E-05_JPRB,2.0340E-05_JPRB,2.6091E-05_JPRB/)  
+KBO( :, 1,31, 2) = (/&
+ & 1.2644E-07_JPRB,4.2516E-06_JPRB,7.3195E-06_JPRB,1.0673E-05_JPRB,1.3682E-05_JPRB/)  
+KBO( :, 2,31, 2) = (/&
+ & 1.9031E-07_JPRB,5.1693E-06_JPRB,8.4857E-06_JPRB,1.1593E-05_JPRB,1.5034E-05_JPRB/)  
+KBO( :, 3,31, 2) = (/&
+ & 2.8751E-07_JPRB,6.3745E-06_JPRB,1.0084E-05_JPRB,1.2985E-05_JPRB,1.6635E-05_JPRB/)  
+KBO( :, 4,31, 2) = (/&
+ & 4.2724E-07_JPRB,7.9260E-06_JPRB,1.2109E-05_JPRB,1.4860E-05_JPRB,1.8446E-05_JPRB/)  
+KBO( :, 5,31, 2) = (/&
+ & 6.1916E-07_JPRB,9.8570E-06_JPRB,1.4602E-05_JPRB,1.7280E-05_JPRB,2.0481E-05_JPRB/)  
+KBO( :, 1,32, 2) = (/&
+ & 1.1409E-07_JPRB,3.6379E-06_JPRB,6.1915E-06_JPRB,8.8747E-06_JPRB,1.0783E-05_JPRB/)  
+KBO( :, 2,32, 2) = (/&
+ & 1.7228E-07_JPRB,4.4412E-06_JPRB,7.2287E-06_JPRB,9.7273E-06_JPRB,1.1842E-05_JPRB/)  
+KBO( :, 3,32, 2) = (/&
+ & 2.5962E-07_JPRB,5.4949E-06_JPRB,8.6268E-06_JPRB,1.0963E-05_JPRB,1.3078E-05_JPRB/)  
+KBO( :, 4,32, 2) = (/&
+ & 3.8365E-07_JPRB,6.8377E-06_JPRB,1.0371E-05_JPRB,1.2605E-05_JPRB,1.4477E-05_JPRB/)  
+KBO( :, 5,32, 2) = (/&
+ & 5.5233E-07_JPRB,8.5032E-06_JPRB,1.2515E-05_JPRB,1.4698E-05_JPRB,1.6068E-05_JPRB/)  
+KBO( :, 1,33, 2) = (/&
+ & 1.0319E-07_JPRB,3.1180E-06_JPRB,5.2481E-06_JPRB,7.4004E-06_JPRB,8.4500E-06_JPRB/)  
+KBO( :, 2,33, 2) = (/&
+ & 1.5612E-07_JPRB,3.8215E-06_JPRB,6.1686E-06_JPRB,8.1771E-06_JPRB,9.2833E-06_JPRB/)  
+KBO( :, 3,33, 2) = (/&
+ & 2.3441E-07_JPRB,4.7418E-06_JPRB,7.3861E-06_JPRB,9.2700E-06_JPRB,1.0235E-05_JPRB/)  
+KBO( :, 4,33, 2) = (/&
+ & 3.4446E-07_JPRB,5.9060E-06_JPRB,8.8925E-06_JPRB,1.0710E-05_JPRB,1.1335E-05_JPRB/)  
+KBO( :, 5,33, 2) = (/&
+ & 4.9241E-07_JPRB,7.3371E-06_JPRB,1.0731E-05_JPRB,1.2507E-05_JPRB,1.2576E-05_JPRB/)  
+KBO( :, 1,34, 2) = (/&
+ & 9.2307E-08_JPRB,2.6619E-06_JPRB,4.4385E-06_JPRB,6.1710E-06_JPRB,6.7086E-06_JPRB/)  
+KBO( :, 2,34, 2) = (/&
+ & 1.3970E-07_JPRB,3.2731E-06_JPRB,5.2448E-06_JPRB,6.8652E-06_JPRB,7.3666E-06_JPRB/)  
+KBO( :, 3,34, 2) = (/&
+ & 2.0895E-07_JPRB,4.0690E-06_JPRB,6.2930E-06_JPRB,7.8186E-06_JPRB,8.1274E-06_JPRB/)  
+KBO( :, 4,34, 2) = (/&
+ & 3.0532E-07_JPRB,5.0681E-06_JPRB,7.5836E-06_JPRB,9.0634E-06_JPRB,9.0071E-06_JPRB/)  
+KBO( :, 5,34, 2) = (/&
+ & 4.3392E-07_JPRB,6.2912E-06_JPRB,9.1516E-06_JPRB,1.0598E-05_JPRB,1.0001E-05_JPRB/)  
+KBO( :, 1,35, 2) = (/&
+ & 7.9334E-08_JPRB,2.2294E-06_JPRB,3.6998E-06_JPRB,5.1049E-06_JPRB,5.2466E-06_JPRB/)  
+KBO( :, 2,35, 2) = (/&
+ & 1.2002E-07_JPRB,2.7467E-06_JPRB,4.3846E-06_JPRB,5.6993E-06_JPRB,5.7554E-06_JPRB/)  
+KBO( :, 3,35, 2) = (/&
+ & 1.7912E-07_JPRB,3.4176E-06_JPRB,5.2654E-06_JPRB,6.5073E-06_JPRB,6.3538E-06_JPRB/)  
+KBO( :, 4,35, 2) = (/&
+ & 2.6096E-07_JPRB,4.2572E-06_JPRB,6.3499E-06_JPRB,7.5566E-06_JPRB,7.0484E-06_JPRB/)  
+KBO( :, 5,35, 2) = (/&
+ & 3.6971E-07_JPRB,5.2820E-06_JPRB,7.6616E-06_JPRB,8.8415E-06_JPRB,7.8403E-06_JPRB/)  
+KBO( :, 1,36, 2) = (/&
+ & 6.5133E-08_JPRB,1.8258E-06_JPRB,3.0305E-06_JPRB,4.1781E-06_JPRB,4.0391E-06_JPRB/)  
+KBO( :, 2,36, 2) = (/&
+ & 9.8521E-08_JPRB,2.2504E-06_JPRB,3.5927E-06_JPRB,4.6670E-06_JPRB,4.4257E-06_JPRB/)  
+KBO( :, 3,36, 2) = (/&
+ & 1.4704E-07_JPRB,2.8014E-06_JPRB,4.3159E-06_JPRB,5.3307E-06_JPRB,4.8851E-06_JPRB/)  
+KBO( :, 4,36, 2) = (/&
+ & 2.1423E-07_JPRB,3.4905E-06_JPRB,5.2056E-06_JPRB,6.1919E-06_JPRB,5.4221E-06_JPRB/)  
+KBO( :, 5,36, 2) = (/&
+ & 3.0347E-07_JPRB,4.3311E-06_JPRB,6.2810E-06_JPRB,7.2464E-06_JPRB,6.0400E-06_JPRB/)  
+KBO( :, 1,37, 2) = (/&
+ & 5.0409E-08_JPRB,1.4546E-06_JPRB,2.4297E-06_JPRB,3.3777E-06_JPRB,3.1888E-06_JPRB/)  
+KBO( :, 2,37, 2) = (/&
+ & 7.6278E-08_JPRB,1.7897E-06_JPRB,2.8722E-06_JPRB,3.7595E-06_JPRB,3.4883E-06_JPRB/)  
+KBO( :, 3,37, 2) = (/&
+ & 1.1416E-07_JPRB,2.2265E-06_JPRB,3.4480E-06_JPRB,4.2834E-06_JPRB,3.8454E-06_JPRB/)  
+KBO( :, 4,37, 2) = (/&
+ & 1.6695E-07_JPRB,2.7752E-06_JPRB,4.1566E-06_JPRB,4.9670E-06_JPRB,4.2653E-06_JPRB/)  
+KBO( :, 5,37, 2) = (/&
+ & 2.3741E-07_JPRB,3.4464E-06_JPRB,5.0175E-06_JPRB,5.8098E-06_JPRB,4.7509E-06_JPRB/)  
+KBO( :, 1,38, 2) = (/&
+ & 3.8890E-08_JPRB,1.1572E-06_JPRB,1.9462E-06_JPRB,2.7303E-06_JPRB,2.5173E-06_JPRB/)  
+KBO( :, 2,38, 2) = (/&
+ & 5.8839E-08_JPRB,1.4211E-06_JPRB,2.2935E-06_JPRB,3.0265E-06_JPRB,2.7490E-06_JPRB/)  
+KBO( :, 3,38, 2) = (/&
+ & 8.8306E-08_JPRB,1.7664E-06_JPRB,2.7503E-06_JPRB,3.4388E-06_JPRB,3.0259E-06_JPRB/)  
+KBO( :, 4,38, 2) = (/&
+ & 1.2963E-07_JPRB,2.2023E-06_JPRB,3.3138E-06_JPRB,3.9798E-06_JPRB,3.3533E-06_JPRB/)  
+KBO( :, 5,38, 2) = (/&
+ & 1.8509E-07_JPRB,2.7372E-06_JPRB,4.0007E-06_JPRB,4.6520E-06_JPRB,3.7342E-06_JPRB/)  
+KBO( :, 1,39, 2) = (/&
+ & 3.0015E-08_JPRB,9.2084E-07_JPRB,1.5596E-06_JPRB,2.2083E-06_JPRB,1.9828E-06_JPRB/)  
+KBO( :, 2,39, 2) = (/&
+ & 4.5385E-08_JPRB,1.1288E-06_JPRB,1.8319E-06_JPRB,2.4376E-06_JPRB,2.1608E-06_JPRB/)  
+KBO( :, 3,39, 2) = (/&
+ & 6.8278E-08_JPRB,1.4014E-06_JPRB,2.1937E-06_JPRB,2.7616E-06_JPRB,2.3751E-06_JPRB/)  
+KBO( :, 4,39, 2) = (/&
+ & 1.0061E-07_JPRB,1.7477E-06_JPRB,2.6422E-06_JPRB,3.1891E-06_JPRB,2.6290E-06_JPRB/)  
+KBO( :, 5,39, 2) = (/&
+ & 1.4423E-07_JPRB,2.1734E-06_JPRB,3.1901E-06_JPRB,3.7248E-06_JPRB,2.9256E-06_JPRB/)  
+KBO( :, 1,40, 2) = (/&
+ & 2.2256E-08_JPRB,7.1912E-07_JPRB,1.2329E-06_JPRB,1.7745E-06_JPRB,1.5697E-06_JPRB/)  
+KBO( :, 2,40, 2) = (/&
+ & 3.3569E-08_JPRB,8.7851E-07_JPRB,1.4396E-06_JPRB,1.9436E-06_JPRB,1.7055E-06_JPRB/)  
+KBO( :, 3,40, 2) = (/&
+ & 5.0664E-08_JPRB,1.0879E-06_JPRB,1.7182E-06_JPRB,2.1900E-06_JPRB,1.8705E-06_JPRB/)  
+KBO( :, 4,40, 2) = (/&
+ & 7.5118E-08_JPRB,1.3564E-06_JPRB,2.0680E-06_JPRB,2.5192E-06_JPRB,2.0668E-06_JPRB/)  
+KBO( :, 5,40, 2) = (/&
+ & 1.0843E-07_JPRB,1.6886E-06_JPRB,2.4960E-06_JPRB,2.9369E-06_JPRB,2.2973E-06_JPRB/)  
+KBO( :, 1,41, 2) = (/&
+ & 1.6447E-08_JPRB,5.6080E-07_JPRB,9.7444E-07_JPRB,1.4286E-06_JPRB,1.2435E-06_JPRB/)  
+KBO( :, 2,41, 2) = (/&
+ & 2.4695E-08_JPRB,6.8242E-07_JPRB,1.1302E-06_JPRB,1.5500E-06_JPRB,1.3469E-06_JPRB/)  
+KBO( :, 3,41, 2) = (/&
+ & 3.7349E-08_JPRB,8.4229E-07_JPRB,1.3428E-06_JPRB,1.7360E-06_JPRB,1.4732E-06_JPRB/)  
+KBO( :, 4,41, 2) = (/&
+ & 5.5705E-08_JPRB,1.0497E-06_JPRB,1.6148E-06_JPRB,1.9875E-06_JPRB,1.6246E-06_JPRB/)  
+KBO( :, 5,41, 2) = (/&
+ & 8.0988E-08_JPRB,1.3075E-06_JPRB,1.9479E-06_JPRB,2.3109E-06_JPRB,1.8030E-06_JPRB/)  
+KBO( :, 1,42, 2) = (/&
+ & 1.2186E-08_JPRB,4.3819E-07_JPRB,7.7124E-07_JPRB,1.1538E-06_JPRB,9.8460E-07_JPRB/)  
+KBO( :, 2,42, 2) = (/&
+ & 1.8167E-08_JPRB,5.3040E-07_JPRB,8.8867E-07_JPRB,1.2386E-06_JPRB,1.0631E-06_JPRB/)  
+KBO( :, 3,42, 2) = (/&
+ & 2.7496E-08_JPRB,6.5240E-07_JPRB,1.0501E-06_JPRB,1.3776E-06_JPRB,1.1592E-06_JPRB/)  
+KBO( :, 4,42, 2) = (/&
+ & 4.1226E-08_JPRB,8.1205E-07_JPRB,1.2611E-06_JPRB,1.5695E-06_JPRB,1.2755E-06_JPRB/)  
+KBO( :, 5,42, 2) = (/&
+ & 6.0358E-08_JPRB,1.0122E-06_JPRB,1.5198E-06_JPRB,1.8189E-06_JPRB,1.4129E-06_JPRB/)  
+KBO( :, 1,43, 2) = (/&
+ & 8.8825E-09_JPRB,3.4025E-07_JPRB,6.0770E-07_JPRB,9.3331E-07_JPRB,7.8085E-07_JPRB/)  
+KBO( :, 2,43, 2) = (/&
+ & 1.3077E-08_JPRB,4.0821E-07_JPRB,6.9425E-07_JPRB,9.8759E-07_JPRB,8.3977E-07_JPRB/)  
+KBO( :, 3,43, 2) = (/&
+ & 1.9763E-08_JPRB,4.9996E-07_JPRB,8.1437E-07_JPRB,1.0881E-06_JPRB,9.1252E-07_JPRB/)  
+KBO( :, 4,43, 2) = (/&
+ & 2.9785E-08_JPRB,6.2062E-07_JPRB,9.7495E-07_JPRB,1.2316E-06_JPRB,1.0010E-06_JPRB/)  
+KBO( :, 5,43, 2) = (/&
+ & 4.3968E-08_JPRB,7.7371E-07_JPRB,1.1737E-06_JPRB,1.4206E-06_JPRB,1.1059E-06_JPRB/)  
+KBO( :, 1,44, 2) = (/&
+ & 6.4652E-09_JPRB,2.6432E-07_JPRB,4.7930E-07_JPRB,7.5854E-07_JPRB,6.2018E-07_JPRB/)  
+KBO( :, 2,44, 2) = (/&
+ & 9.3431E-09_JPRB,3.1321E-07_JPRB,5.4189E-07_JPRB,7.8917E-07_JPRB,6.6342E-07_JPRB/)  
+KBO( :, 3,44, 2) = (/&
+ & 1.4054E-08_JPRB,3.8170E-07_JPRB,6.3021E-07_JPRB,8.5948E-07_JPRB,7.1866E-07_JPRB/)  
+KBO( :, 4,44, 2) = (/&
+ & 2.1257E-08_JPRB,4.7192E-07_JPRB,7.5053E-07_JPRB,9.6532E-07_JPRB,7.8542E-07_JPRB/)  
+KBO( :, 5,44, 2) = (/&
+ & 3.1636E-08_JPRB,5.8814E-07_JPRB,9.0255E-07_JPRB,1.1069E-06_JPRB,8.6508E-07_JPRB/)  
+KBO( :, 1,45, 2) = (/&
+ & 4.7493E-09_JPRB,2.0618E-07_JPRB,3.7955E-07_JPRB,6.2010E-07_JPRB,4.9320E-07_JPRB/)  
+KBO( :, 2,45, 2) = (/&
+ & 6.7046E-09_JPRB,2.4103E-07_JPRB,4.2421E-07_JPRB,6.3409E-07_JPRB,5.2372E-07_JPRB/)  
+KBO( :, 3,45, 2) = (/&
+ & 9.9979E-09_JPRB,2.9183E-07_JPRB,4.8903E-07_JPRB,6.8121E-07_JPRB,5.6534E-07_JPRB/)  
+KBO( :, 4,45, 2) = (/&
+ & 1.5142E-08_JPRB,3.5915E-07_JPRB,5.7833E-07_JPRB,7.5825E-07_JPRB,6.1575E-07_JPRB/)  
+KBO( :, 5,45, 2) = (/&
+ & 2.2692E-08_JPRB,4.4695E-07_JPRB,6.9435E-07_JPRB,8.6394E-07_JPRB,6.7584E-07_JPRB/)  
+KBO( :, 1,46, 2) = (/&
+ & 3.5026E-09_JPRB,1.6095E-07_JPRB,3.0164E-07_JPRB,5.0988E-07_JPRB,3.9266E-07_JPRB/)  
+KBO( :, 2,46, 2) = (/&
+ & 4.8056E-09_JPRB,1.8571E-07_JPRB,3.3238E-07_JPRB,5.1211E-07_JPRB,4.1411E-07_JPRB/)  
+KBO( :, 3,46, 2) = (/&
+ & 7.0611E-09_JPRB,2.2256E-07_JPRB,3.7936E-07_JPRB,5.4108E-07_JPRB,4.4422E-07_JPRB/)  
+KBO( :, 4,46, 2) = (/&
+ & 1.0674E-08_JPRB,2.7254E-07_JPRB,4.4484E-07_JPRB,5.9573E-07_JPRB,4.8213E-07_JPRB/)  
+KBO( :, 5,46, 2) = (/&
+ & 1.6091E-08_JPRB,3.3807E-07_JPRB,5.3220E-07_JPRB,6.7368E-07_JPRB,5.2739E-07_JPRB/)  
+KBO( :, 1,47, 2) = (/&
+ & 2.5860E-09_JPRB,1.2558E-07_JPRB,2.4079E-07_JPRB,4.2237E-07_JPRB,3.1326E-07_JPRB/)  
+KBO( :, 2,47, 2) = (/&
+ & 3.4290E-09_JPRB,1.4300E-07_JPRB,2.6056E-07_JPRB,4.1623E-07_JPRB,3.2857E-07_JPRB/)  
+KBO( :, 3,47, 2) = (/&
+ & 4.9220E-09_JPRB,1.6878E-07_JPRB,2.9365E-07_JPRB,4.3092E-07_JPRB,3.4960E-07_JPRB/)  
+KBO( :, 4,47, 2) = (/&
+ & 7.3908E-09_JPRB,2.0541E-07_JPRB,3.4074E-07_JPRB,4.6771E-07_JPRB,3.7790E-07_JPRB/)  
+KBO( :, 5,47, 2) = (/&
+ & 1.1182E-08_JPRB,2.5354E-07_JPRB,4.0498E-07_JPRB,5.2394E-07_JPRB,4.1187E-07_JPRB/)  
+KBO( :, 1,48, 2) = (/&
+ & 1.9362E-09_JPRB,9.8548E-08_JPRB,1.9411E-07_JPRB,3.5272E-07_JPRB,2.4937E-07_JPRB/)  
+KBO( :, 2,48, 2) = (/&
+ & 2.4798E-09_JPRB,1.1072E-07_JPRB,2.0550E-07_JPRB,3.4105E-07_JPRB,2.6090E-07_JPRB/)  
+KBO( :, 3,48, 2) = (/&
+ & 3.4555E-09_JPRB,1.2865E-07_JPRB,2.2828E-07_JPRB,3.4594E-07_JPRB,2.7560E-07_JPRB/)  
+KBO( :, 4,48, 2) = (/&
+ & 5.1234E-09_JPRB,1.5515E-07_JPRB,2.6207E-07_JPRB,3.6909E-07_JPRB,2.9595E-07_JPRB/)  
+KBO( :, 5,48, 2) = (/&
+ & 7.7538E-09_JPRB,1.9045E-07_JPRB,3.0872E-07_JPRB,4.0878E-07_JPRB,3.2128E-07_JPRB/)  
+KBO( :, 1,49, 2) = (/&
+ & 1.4693E-09_JPRB,7.7790E-08_JPRB,1.5796E-07_JPRB,2.9638E-07_JPRB,1.9770E-07_JPRB/)  
+KBO( :, 2,49, 2) = (/&
+ & 1.8189E-09_JPRB,8.6134E-08_JPRB,1.6334E-07_JPRB,2.8139E-07_JPRB,2.0674E-07_JPRB/)  
+KBO( :, 3,49, 2) = (/&
+ & 2.4514E-09_JPRB,9.8737E-08_JPRB,1.7842E-07_JPRB,2.8001E-07_JPRB,2.1740E-07_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART14',1,ZHOOK_HANDLE)
+END SUBROUTINE PART14
+
+
+SUBROUTINE PART15
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART15',0,ZHOOK_HANDLE)
+
+
+KBO( :, 4,49, 2) = (/&
+ & 3.5625E-09_JPRB,1.1749E-07_JPRB,2.0240E-07_JPRB,2.9292E-07_JPRB,2.3150E-07_JPRB/)  
+KBO( :, 5,49, 2) = (/&
+ & 5.3682E-09_JPRB,1.4339E-07_JPRB,2.3606E-07_JPRB,3.2024E-07_JPRB,2.5000E-07_JPRB/)  
+KBO( :, 1,50, 2) = (/&
+ & 1.1339E-09_JPRB,6.1945E-08_JPRB,1.2933E-07_JPRB,2.5041E-07_JPRB,1.5748E-07_JPRB/)  
+KBO( :, 2,50, 2) = (/&
+ & 1.3605E-09_JPRB,6.7603E-08_JPRB,1.3118E-07_JPRB,2.3383E-07_JPRB,1.6480E-07_JPRB/)  
+KBO( :, 3,50, 2) = (/&
+ & 1.7751E-09_JPRB,7.6527E-08_JPRB,1.4063E-07_JPRB,2.2853E-07_JPRB,1.7288E-07_JPRB/)  
+KBO( :, 4,50, 2) = (/&
+ & 2.5157E-09_JPRB,8.9697E-08_JPRB,1.5753E-07_JPRB,2.3451E-07_JPRB,1.8295E-07_JPRB/)  
+KBO( :, 5,50, 2) = (/&
+ & 3.7579E-09_JPRB,1.0875E-07_JPRB,1.8190E-07_JPRB,2.5266E-07_JPRB,1.9633E-07_JPRB/)  
+KBO( :, 1,51, 2) = (/&
+ & 8.8714E-10_JPRB,4.9745E-08_JPRB,1.0659E-07_JPRB,2.1260E-07_JPRB,1.2561E-07_JPRB/)  
+KBO( :, 2,51, 2) = (/&
+ & 1.0323E-09_JPRB,5.3369E-08_JPRB,1.0630E-07_JPRB,1.9542E-07_JPRB,1.3171E-07_JPRB/)  
+KBO( :, 3,51, 2) = (/&
+ & 1.3054E-09_JPRB,5.9668E-08_JPRB,1.1161E-07_JPRB,1.8777E-07_JPRB,1.3801E-07_JPRB/)  
+KBO( :, 4,51, 2) = (/&
+ & 1.7978E-09_JPRB,6.8999E-08_JPRB,1.2328E-07_JPRB,1.8919E-07_JPRB,1.4548E-07_JPRB/)  
+KBO( :, 5,51, 2) = (/&
+ & 2.6478E-09_JPRB,8.2837E-08_JPRB,1.4093E-07_JPRB,2.0051E-07_JPRB,1.5510E-07_JPRB/)  
+KBO( :, 1,52, 2) = (/&
+ & 7.0184E-10_JPRB,4.0190E-08_JPRB,8.8218E-08_JPRB,1.8136E-07_JPRB,9.9731E-08_JPRB/)  
+KBO( :, 2,52, 2) = (/&
+ & 7.9197E-10_JPRB,4.2349E-08_JPRB,8.6755E-08_JPRB,1.6417E-07_JPRB,1.0496E-07_JPRB/)  
+KBO( :, 3,52, 2) = (/&
+ & 9.7132E-10_JPRB,4.6717E-08_JPRB,8.9179E-08_JPRB,1.5515E-07_JPRB,1.1000E-07_JPRB/)  
+KBO( :, 4,52, 2) = (/&
+ & 1.2972E-09_JPRB,5.3380E-08_JPRB,9.6954E-08_JPRB,1.5366E-07_JPRB,1.1563E-07_JPRB/)  
+KBO( :, 5,52, 2) = (/&
+ & 1.8721E-09_JPRB,6.3248E-08_JPRB,1.0959E-07_JPRB,1.5990E-07_JPRB,1.2254E-07_JPRB/)  
+KBO( :, 1,53, 2) = (/&
+ & 5.6092E-10_JPRB,3.2648E-08_JPRB,7.3117E-08_JPRB,1.5519E-07_JPRB,7.8979E-08_JPRB/)  
+KBO( :, 2,53, 2) = (/&
+ & 6.1423E-10_JPRB,3.3821E-08_JPRB,7.1138E-08_JPRB,1.3880E-07_JPRB,8.3275E-08_JPRB/)  
+KBO( :, 3,53, 2) = (/&
+ & 7.3095E-10_JPRB,3.6763E-08_JPRB,7.1824E-08_JPRB,1.2909E-07_JPRB,8.7408E-08_JPRB/)  
+KBO( :, 4,53, 2) = (/&
+ & 9.4591E-10_JPRB,4.1492E-08_JPRB,7.6609E-08_JPRB,1.2565E-07_JPRB,9.1725E-08_JPRB/)  
+KBO( :, 5,53, 2) = (/&
+ & 1.3305E-09_JPRB,4.8452E-08_JPRB,8.5519E-08_JPRB,1.2833E-07_JPRB,9.6780E-08_JPRB/)  
+KBO( :, 1,54, 2) = (/&
+ & 4.5340E-10_JPRB,2.6715E-08_JPRB,6.0844E-08_JPRB,1.3273E-07_JPRB,6.3768E-08_JPRB/)  
+KBO( :, 2,54, 2) = (/&
+ & 4.8357E-10_JPRB,2.7241E-08_JPRB,5.8664E-08_JPRB,1.1758E-07_JPRB,6.7028E-08_JPRB/)  
+KBO( :, 3,54, 2) = (/&
+ & 5.5955E-10_JPRB,2.9137E-08_JPRB,5.8341E-08_JPRB,1.0779E-07_JPRB,7.0461E-08_JPRB/)  
+KBO( :, 4,54, 2) = (/&
+ & 7.0364E-10_JPRB,3.2508E-08_JPRB,6.1041E-08_JPRB,1.0330E-07_JPRB,7.3905E-08_JPRB/)  
+KBO( :, 5,54, 2) = (/&
+ & 9.6348E-10_JPRB,3.7510E-08_JPRB,6.7236E-08_JPRB,1.0378E-07_JPRB,7.7793E-08_JPRB/)  
+KBO( :, 1,55, 2) = (/&
+ & 3.7018E-10_JPRB,2.1877E-08_JPRB,5.0748E-08_JPRB,1.1383E-07_JPRB,5.2143E-08_JPRB/)  
+KBO( :, 2,55, 2) = (/&
+ & 3.8461E-10_JPRB,2.2059E-08_JPRB,4.8491E-08_JPRB,9.9810E-08_JPRB,5.4531E-08_JPRB/)  
+KBO( :, 3,55, 2) = (/&
+ & 4.3319E-10_JPRB,2.3219E-08_JPRB,4.7656E-08_JPRB,9.0291E-08_JPRB,5.7357E-08_JPRB/)  
+KBO( :, 4,55, 2) = (/&
+ & 5.3033E-10_JPRB,2.5603E-08_JPRB,4.8945E-08_JPRB,8.5282E-08_JPRB,6.0114E-08_JPRB/)  
+KBO( :, 5,55, 2) = (/&
+ & 7.0668E-10_JPRB,2.9236E-08_JPRB,5.3162E-08_JPRB,8.4413E-08_JPRB,6.3151E-08_JPRB/)  
+KBO( :, 1,56, 2) = (/&
+ & 3.0445E-10_JPRB,1.7931E-08_JPRB,4.2378E-08_JPRB,9.8533E-08_JPRB,4.2768E-08_JPRB/)  
+KBO( :, 2,56, 2) = (/&
+ & 3.0831E-10_JPRB,1.7934E-08_JPRB,4.0116E-08_JPRB,8.4908E-08_JPRB,4.4445E-08_JPRB/)  
+KBO( :, 3,56, 2) = (/&
+ & 3.3824E-10_JPRB,1.8600E-08_JPRB,3.9063E-08_JPRB,7.5998E-08_JPRB,4.6738E-08_JPRB/)  
+KBO( :, 4,56, 2) = (/&
+ & 4.0330E-10_JPRB,2.0246E-08_JPRB,3.9492E-08_JPRB,7.0783E-08_JPRB,4.8957E-08_JPRB/)  
+KBO( :, 5,56, 2) = (/&
+ & 5.2280E-10_JPRB,2.2872E-08_JPRB,4.2190E-08_JPRB,6.9008E-08_JPRB,5.1331E-08_JPRB/)  
+KBO( :, 1,57, 2) = (/&
+ & 2.5188E-10_JPRB,1.4754E-08_JPRB,3.5438E-08_JPRB,8.5756E-08_JPRB,3.5193E-08_JPRB/)  
+KBO( :, 2,57, 2) = (/&
+ & 2.4912E-10_JPRB,1.4670E-08_JPRB,3.3337E-08_JPRB,7.2430E-08_JPRB,3.6276E-08_JPRB/)  
+KBO( :, 3,57, 2) = (/&
+ & 2.6653E-10_JPRB,1.4983E-08_JPRB,3.2184E-08_JPRB,6.4241E-08_JPRB,3.8128E-08_JPRB/)  
+KBO( :, 4,57, 2) = (/&
+ & 3.0939E-10_JPRB,1.6062E-08_JPRB,3.2064E-08_JPRB,5.9025E-08_JPRB,3.9920E-08_JPRB/)  
+KBO( :, 5,57, 2) = (/&
+ & 3.9021E-10_JPRB,1.7948E-08_JPRB,3.3635E-08_JPRB,5.6680E-08_JPRB,4.1787E-08_JPRB/)  
+KBO( :, 1,58, 2) = (/&
+ & 2.0925E-10_JPRB,1.2170E-08_JPRB,2.9715E-08_JPRB,7.4671E-08_JPRB,2.9109E-08_JPRB/)  
+KBO( :, 2,58, 2) = (/&
+ & 2.0318E-10_JPRB,1.2015E-08_JPRB,2.7763E-08_JPRB,6.1869E-08_JPRB,2.9789E-08_JPRB/)  
+KBO( :, 3,58, 2) = (/&
+ & 2.1207E-10_JPRB,1.2135E-08_JPRB,2.6581E-08_JPRB,5.4388E-08_JPRB,3.1254E-08_JPRB/)  
+KBO( :, 4,58, 2) = (/&
+ & 2.3998E-10_JPRB,1.2810E-08_JPRB,2.6176E-08_JPRB,4.9330E-08_JPRB,3.2703E-08_JPRB/)  
+KBO( :, 5,58, 2) = (/&
+ & 2.9508E-10_JPRB,1.4156E-08_JPRB,2.6975E-08_JPRB,4.6724E-08_JPRB,3.4169E-08_JPRB/)  
+KBO( :, 1,59, 2) = (/&
+ & 1.7253E-10_JPRB,9.9906E-09_JPRB,2.4546E-08_JPRB,6.2526E-08_JPRB,2.4559E-08_JPRB/)  
+KBO( :, 2,59, 2) = (/&
+ & 1.6644E-10_JPRB,9.8313E-09_JPRB,2.2868E-08_JPRB,5.1484E-08_JPRB,2.5300E-08_JPRB/)  
+KBO( :, 3,59, 2) = (/&
+ & 1.7202E-10_JPRB,9.8966E-09_JPRB,2.1823E-08_JPRB,4.5067E-08_JPRB,2.6453E-08_JPRB/)  
+KBO( :, 4,59, 2) = (/&
+ & 1.9270E-10_JPRB,1.0388E-08_JPRB,2.1414E-08_JPRB,4.0702E-08_JPRB,2.7518E-08_JPRB/)  
+KBO( :, 5,59, 2) = (/&
+ & 2.3454E-10_JPRB,1.1431E-08_JPRB,2.1928E-08_JPRB,3.8364E-08_JPRB,2.8657E-08_JPRB/)  
+KBO( :, 1,13, 3) = (/&
+ & 9.3592E-06_JPRB,1.8635E-04_JPRB,3.2360E-04_JPRB,5.1013E-04_JPRB,1.3719E-03_JPRB/)  
+KBO( :, 2,13, 3) = (/&
+ & 1.3997E-05_JPRB,2.2150E-04_JPRB,3.6186E-04_JPRB,5.0766E-04_JPRB,1.6952E-03_JPRB/)  
+KBO( :, 3,13, 3) = (/&
+ & 2.1472E-05_JPRB,2.7029E-04_JPRB,4.2086E-04_JPRB,5.4160E-04_JPRB,2.0559E-03_JPRB/)  
+KBO( :, 4,13, 3) = (/&
+ & 3.2949E-05_JPRB,3.3595E-04_JPRB,5.0190E-04_JPRB,6.0909E-04_JPRB,2.4422E-03_JPRB/)  
+KBO( :, 5,13, 3) = (/&
+ & 5.0055E-05_JPRB,4.2283E-04_JPRB,6.0794E-04_JPRB,7.0057E-04_JPRB,2.8431E-03_JPRB/)  
+KBO( :, 1,14, 3) = (/&
+ & 7.7811E-06_JPRB,1.5443E-04_JPRB,2.6731E-04_JPRB,4.1737E-04_JPRB,1.1937E-03_JPRB/)  
+KBO( :, 2,14, 3) = (/&
+ & 1.1790E-05_JPRB,1.8454E-04_JPRB,3.0104E-04_JPRB,4.1861E-04_JPRB,1.4661E-03_JPRB/)  
+KBO( :, 3,14, 3) = (/&
+ & 1.8281E-05_JPRB,2.2651E-04_JPRB,3.5177E-04_JPRB,4.5049E-04_JPRB,1.7659E-03_JPRB/)  
+KBO( :, 4,14, 3) = (/&
+ & 2.8361E-05_JPRB,2.8319E-04_JPRB,4.2136E-04_JPRB,5.0814E-04_JPRB,2.0759E-03_JPRB/)  
+KBO( :, 5,14, 3) = (/&
+ & 4.3496E-05_JPRB,3.5806E-04_JPRB,5.1240E-04_JPRB,5.8626E-04_JPRB,2.3955E-03_JPRB/)  
+KBO( :, 1,15, 3) = (/&
+ & 6.4085E-06_JPRB,1.2732E-04_JPRB,2.2021E-04_JPRB,3.4093E-04_JPRB,1.0104E-03_JPRB/)  
+KBO( :, 2,15, 3) = (/&
+ & 9.8620E-06_JPRB,1.5303E-04_JPRB,2.4982E-04_JPRB,3.4487E-04_JPRB,1.2327E-03_JPRB/)  
+KBO( :, 3,15, 3) = (/&
+ & 1.5483E-05_JPRB,1.8913E-04_JPRB,2.9331E-04_JPRB,3.7385E-04_JPRB,1.4660E-03_JPRB/)  
+KBO( :, 4,15, 3) = (/&
+ & 2.4329E-05_JPRB,2.3772E-04_JPRB,3.5313E-04_JPRB,4.2330E-04_JPRB,1.7021E-03_JPRB/)  
+KBO( :, 5,15, 3) = (/&
+ & 3.7620E-05_JPRB,3.0181E-04_JPRB,4.3081E-04_JPRB,4.9037E-04_JPRB,1.9309E-03_JPRB/)  
+KBO( :, 1,16, 3) = (/&
+ & 5.2944E-06_JPRB,1.0489E-04_JPRB,1.8139E-04_JPRB,2.7836E-04_JPRB,8.1553E-04_JPRB/)  
+KBO( :, 2,16, 3) = (/&
+ & 8.2639E-06_JPRB,1.2685E-04_JPRB,2.0708E-04_JPRB,2.8409E-04_JPRB,9.8078E-04_JPRB/)  
+KBO( :, 3,16, 3) = (/&
+ & 1.3171E-05_JPRB,1.5775E-04_JPRB,2.4443E-04_JPRB,3.0988E-04_JPRB,1.1503E-03_JPRB/)  
+KBO( :, 4,16, 3) = (/&
+ & 2.0912E-05_JPRB,1.9929E-04_JPRB,2.9554E-04_JPRB,3.5252E-04_JPRB,1.3131E-03_JPRB/)  
+KBO( :, 5,16, 3) = (/&
+ & 3.2496E-05_JPRB,2.5409E-04_JPRB,3.6179E-04_JPRB,4.0963E-04_JPRB,1.4760E-03_JPRB/)  
+KBO( :, 1,17, 3) = (/&
+ & 4.4493E-06_JPRB,8.6770E-05_JPRB,1.4991E-04_JPRB,2.2771E-04_JPRB,6.5245E-04_JPRB/)  
+KBO( :, 2,17, 3) = (/&
+ & 7.0395E-06_JPRB,1.0559E-04_JPRB,1.7203E-04_JPRB,2.3430E-04_JPRB,7.7262E-04_JPRB/)  
+KBO( :, 3,17, 3) = (/&
+ & 1.1335E-05_JPRB,1.3208E-04_JPRB,2.0407E-04_JPRB,2.5722E-04_JPRB,8.9028E-04_JPRB/)  
+KBO( :, 4,17, 3) = (/&
+ & 1.8069E-05_JPRB,1.6765E-04_JPRB,2.4779E-04_JPRB,2.9368E-04_JPRB,1.0063E-03_JPRB/)  
+KBO( :, 5,17, 3) = (/&
+ & 2.8090E-05_JPRB,2.1455E-04_JPRB,3.0412E-04_JPRB,3.4249E-04_JPRB,1.1248E-03_JPRB/)  
+KBO( :, 1,18, 3) = (/&
+ & 3.8316E-06_JPRB,7.2347E-05_JPRB,1.2458E-04_JPRB,1.8673E-04_JPRB,5.2122E-04_JPRB/)  
+KBO( :, 2,18, 3) = (/&
+ & 6.1184E-06_JPRB,8.8580E-05_JPRB,1.4361E-04_JPRB,1.9377E-04_JPRB,6.0767E-04_JPRB/)  
+KBO( :, 3,18, 3) = (/&
+ & 9.8947E-06_JPRB,1.1135E-04_JPRB,1.7120E-04_JPRB,2.1410E-04_JPRB,6.9194E-04_JPRB/)  
+KBO( :, 4,18, 3) = (/&
+ & 1.5756E-05_JPRB,1.4190E-04_JPRB,2.0855E-04_JPRB,2.4531E-04_JPRB,7.7868E-04_JPRB/)  
+KBO( :, 5,18, 3) = (/&
+ & 2.4472E-05_JPRB,1.8227E-04_JPRB,2.5667E-04_JPRB,2.8708E-04_JPRB,8.6975E-04_JPRB/)  
+KBO( :, 1,19, 3) = (/&
+ & 3.3167E-06_JPRB,6.0472E-05_JPRB,1.0361E-04_JPRB,1.5344E-04_JPRB,4.1912E-04_JPRB/)  
+KBO( :, 2,19, 3) = (/&
+ & 5.3275E-06_JPRB,7.4485E-05_JPRB,1.2002E-04_JPRB,1.6049E-04_JPRB,4.8167E-04_JPRB/)  
+KBO( :, 3,19, 3) = (/&
+ & 8.6182E-06_JPRB,9.4048E-05_JPRB,1.4375E-04_JPRB,1.7839E-04_JPRB,5.4498E-04_JPRB/)  
+KBO( :, 4,19, 3) = (/&
+ & 1.3697E-05_JPRB,1.2034E-04_JPRB,1.7570E-04_JPRB,2.0508E-04_JPRB,6.1244E-04_JPRB/)  
+KBO( :, 5,19, 3) = (/&
+ & 2.1261E-05_JPRB,1.5516E-04_JPRB,2.1680E-04_JPRB,2.4089E-04_JPRB,6.8509E-04_JPRB/)  
+KBO( :, 1,20, 3) = (/&
+ & 2.9049E-06_JPRB,5.0863E-05_JPRB,8.6497E-05_JPRB,1.2631E-04_JPRB,3.3898E-04_JPRB/)  
+KBO( :, 2,20, 3) = (/&
+ & 4.6782E-06_JPRB,6.3037E-05_JPRB,1.0077E-04_JPRB,1.3328E-04_JPRB,3.8658E-04_JPRB/)  
+KBO( :, 3,20, 3) = (/&
+ & 7.5551E-06_JPRB,7.9949E-05_JPRB,1.2127E-04_JPRB,1.4912E-04_JPRB,4.3608E-04_JPRB/)  
+KBO( :, 4,20, 3) = (/&
+ & 1.1985E-05_JPRB,1.0272E-04_JPRB,1.4880E-04_JPRB,1.7209E-04_JPRB,4.8968E-04_JPRB/)  
+KBO( :, 5,20, 3) = (/&
+ & 1.8564E-05_JPRB,1.3289E-04_JPRB,1.8395E-04_JPRB,2.0290E-04_JPRB,5.4862E-04_JPRB/)  
+KBO( :, 1,21, 3) = (/&
+ & 2.5348E-06_JPRB,4.2827E-05_JPRB,7.2239E-05_JPRB,1.0405E-04_JPRB,2.7347E-04_JPRB/)  
+KBO( :, 2,21, 3) = (/&
+ & 4.0896E-06_JPRB,5.3392E-05_JPRB,8.4682E-05_JPRB,1.1078E-04_JPRB,3.1033E-04_JPRB/)  
+KBO( :, 3,21, 3) = (/&
+ & 6.5911E-06_JPRB,6.8002E-05_JPRB,1.0240E-04_JPRB,1.2468E-04_JPRB,3.4945E-04_JPRB/)  
+KBO( :, 4,21, 3) = (/&
+ & 1.0443E-05_JPRB,8.7777E-05_JPRB,1.2604E-04_JPRB,1.4448E-04_JPRB,3.9270E-04_JPRB/)  
+KBO( :, 5,21, 3) = (/&
+ & 1.6126E-05_JPRB,1.1384E-04_JPRB,1.5619E-04_JPRB,1.7100E-04_JPRB,4.4032E-04_JPRB/)  
+KBO( :, 1,22, 3) = (/&
+ & 2.2535E-06_JPRB,3.6484E-05_JPRB,6.0844E-05_JPRB,8.5915E-05_JPRB,2.1861E-04_JPRB/)  
+KBO( :, 2,22, 3) = (/&
+ & 3.6421E-06_JPRB,4.5838E-05_JPRB,7.1930E-05_JPRB,9.2688E-05_JPRB,2.4695E-04_JPRB/)  
+KBO( :, 3,22, 3) = (/&
+ & 5.8649E-06_JPRB,5.8716E-05_JPRB,8.7516E-05_JPRB,1.0512E-04_JPRB,2.7805E-04_JPRB/)  
+KBO( :, 4,22, 3) = (/&
+ & 9.2724E-06_JPRB,7.6158E-05_JPRB,1.0809E-04_JPRB,1.2256E-04_JPRB,3.1283E-04_JPRB/)  
+KBO( :, 5,22, 3) = (/&
+ & 1.4237E-05_JPRB,9.8834E-05_JPRB,1.3432E-04_JPRB,1.4571E-04_JPRB,3.5095E-04_JPRB/)  
+KBO( :, 1,23, 3) = (/&
+ & 1.9940E-06_JPRB,3.1133E-05_JPRB,5.1328E-05_JPRB,7.1090E-05_JPRB,1.7327E-04_JPRB/)  
+KBO( :, 2,23, 3) = (/&
+ & 3.2312E-06_JPRB,3.9399E-05_JPRB,6.1179E-05_JPRB,7.7708E-05_JPRB,1.9531E-04_JPRB/)  
+KBO( :, 3,23, 3) = (/&
+ & 5.2011E-06_JPRB,5.0768E-05_JPRB,7.4847E-05_JPRB,8.8760E-05_JPRB,2.2017E-04_JPRB/)  
+KBO( :, 4,23, 3) = (/&
+ & 8.1919E-06_JPRB,6.6023E-05_JPRB,9.2815E-05_JPRB,1.0413E-04_JPRB,2.4809E-04_JPRB/)  
+KBO( :, 5,23, 3) = (/&
+ & 1.2498E-05_JPRB,8.5676E-05_JPRB,1.1550E-04_JPRB,1.2430E-04_JPRB,2.7861E-04_JPRB/)  
+KBO( :, 1,24, 3) = (/&
+ & 1.7459E-06_JPRB,2.6558E-05_JPRB,4.3302E-05_JPRB,5.8931E-05_JPRB,1.3456E-04_JPRB/)  
+KBO( :, 2,24, 3) = (/&
+ & 2.8378E-06_JPRB,3.3840E-05_JPRB,5.2034E-05_JPRB,6.5221E-05_JPRB,1.5184E-04_JPRB/)  
+KBO( :, 3,24, 3) = (/&
+ & 4.5668E-06_JPRB,4.3812E-05_JPRB,6.4027E-05_JPRB,7.5015E-05_JPRB,1.7156E-04_JPRB/)  
+KBO( :, 4,24, 3) = (/&
+ & 7.1655E-06_JPRB,5.7056E-05_JPRB,7.9597E-05_JPRB,8.8545E-05_JPRB,1.9368E-04_JPRB/)  
+KBO( :, 5,24, 3) = (/&
+ & 1.0891E-05_JPRB,7.4041E-05_JPRB,9.9156E-05_JPRB,1.0602E-04_JPRB,2.1759E-04_JPRB/)  
+KBO( :, 1,25, 3) = (/&
+ & 1.5351E-06_JPRB,2.2739E-05_JPRB,3.6661E-05_JPRB,4.9033E-05_JPRB,1.0464E-04_JPRB/)  
+KBO( :, 2,25, 3) = (/&
+ & 2.5013E-06_JPRB,2.9156E-05_JPRB,4.4403E-05_JPRB,5.4906E-05_JPRB,1.1839E-04_JPRB/)  
+KBO( :, 3,25, 3) = (/&
+ & 4.0193E-06_JPRB,3.7867E-05_JPRB,5.4900E-05_JPRB,6.3596E-05_JPRB,1.3405E-04_JPRB/)  
+KBO( :, 4,25, 3) = (/&
+ & 6.2816E-06_JPRB,4.9369E-05_JPRB,6.8362E-05_JPRB,7.5478E-05_JPRB,1.5142E-04_JPRB/)  
+KBO( :, 5,25, 3) = (/&
+ & 9.5147E-06_JPRB,6.4006E-05_JPRB,8.5212E-05_JPRB,9.0532E-05_JPRB,1.6998E-04_JPRB/)  
+KBO( :, 1,26, 3) = (/&
+ & 1.3683E-06_JPRB,1.9609E-05_JPRB,3.1239E-05_JPRB,4.1025E-05_JPRB,8.2529E-05_JPRB/)  
+KBO( :, 2,26, 3) = (/&
+ & 2.2313E-06_JPRB,2.5269E-05_JPRB,3.8126E-05_JPRB,4.6436E-05_JPRB,9.3600E-05_JPRB/)  
+KBO( :, 3,26, 3) = (/&
+ & 3.5754E-06_JPRB,3.2913E-05_JPRB,4.7295E-05_JPRB,5.4190E-05_JPRB,1.0611E-04_JPRB/)  
+KBO( :, 4,26, 3) = (/&
+ & 5.5664E-06_JPRB,4.2915E-05_JPRB,5.8952E-05_JPRB,6.4581E-05_JPRB,1.1966E-04_JPRB/)  
+KBO( :, 5,26, 3) = (/&
+ & 8.3928E-06_JPRB,5.5540E-05_JPRB,7.3478E-05_JPRB,7.7578E-05_JPRB,1.3407E-04_JPRB/)  
+KBO( :, 1,27, 3) = (/&
+ & 1.2171E-06_JPRB,1.6923E-05_JPRB,2.6666E-05_JPRB,3.4428E-05_JPRB,6.4836E-05_JPRB/)  
+KBO( :, 2,27, 3) = (/&
+ & 1.9862E-06_JPRB,2.1896E-05_JPRB,3.2752E-05_JPRB,3.9332E-05_JPRB,7.3650E-05_JPRB/)  
+KBO( :, 3,27, 3) = (/&
+ & 3.1750E-06_JPRB,2.8593E-05_JPRB,4.0727E-05_JPRB,4.6210E-05_JPRB,8.3366E-05_JPRB/)  
+KBO( :, 4,27, 3) = (/&
+ & 4.9257E-06_JPRB,3.7245E-05_JPRB,5.0788E-05_JPRB,5.5242E-05_JPRB,9.3744E-05_JPRB/)  
+KBO( :, 5,27, 3) = (/&
+ & 7.3934E-06_JPRB,4.8090E-05_JPRB,6.3249E-05_JPRB,6.6414E-05_JPRB,1.0490E-04_JPRB/)  
+KBO( :, 1,28, 3) = (/&
+ & 1.0792E-06_JPRB,1.4600E-05_JPRB,2.2784E-05_JPRB,2.8952E-05_JPRB,5.0485E-05_JPRB/)  
+KBO( :, 2,28, 3) = (/&
+ & 1.7629E-06_JPRB,1.8972E-05_JPRB,2.8123E-05_JPRB,3.3346E-05_JPRB,5.7277E-05_JPRB/)  
+KBO( :, 3,28, 3) = (/&
+ & 2.8131E-06_JPRB,2.4805E-05_JPRB,3.5042E-05_JPRB,3.9409E-05_JPRB,6.4622E-05_JPRB/)  
+KBO( :, 4,28, 3) = (/&
+ & 4.3512E-06_JPRB,3.2251E-05_JPRB,4.3694E-05_JPRB,4.7211E-05_JPRB,7.2602E-05_JPRB/)  
+KBO( :, 5,28, 3) = (/&
+ & 6.4989E-06_JPRB,4.1559E-05_JPRB,5.4337E-05_JPRB,5.6763E-05_JPRB,8.1333E-05_JPRB/)  
+KBO( :, 1,29, 3) = (/&
+ & 9.6857E-07_JPRB,1.2666E-05_JPRB,1.9556E-05_JPRB,2.4447E-05_JPRB,3.9529E-05_JPRB/)  
+KBO( :, 2,29, 3) = (/&
+ & 1.5818E-06_JPRB,1.6515E-05_JPRB,2.4236E-05_JPRB,2.8362E-05_JPRB,4.4697E-05_JPRB/)  
+KBO( :, 3,29, 3) = (/&
+ & 2.5168E-06_JPRB,2.1586E-05_JPRB,3.0227E-05_JPRB,3.3688E-05_JPRB,5.0413E-05_JPRB/)  
+KBO( :, 4,29, 3) = (/&
+ & 3.8723E-06_JPRB,2.8010E-05_JPRB,3.7666E-05_JPRB,4.0411E-05_JPRB,5.6688E-05_JPRB/)  
+KBO( :, 5,29, 3) = (/&
+ & 5.7462E-06_JPRB,3.6016E-05_JPRB,4.6768E-05_JPRB,4.8565E-05_JPRB,6.3553E-05_JPRB/)  
+KBO( :, 1,30, 3) = (/&
+ & 8.7056E-07_JPRB,1.1001E-05_JPRB,1.6806E-05_JPRB,2.0679E-05_JPRB,3.0642E-05_JPRB/)  
+KBO( :, 2,30, 3) = (/&
+ & 1.4204E-06_JPRB,1.4373E-05_JPRB,2.0891E-05_JPRB,2.4158E-05_JPRB,3.4644E-05_JPRB/)  
+KBO( :, 3,30, 3) = (/&
+ & 2.2511E-06_JPRB,1.8769E-05_JPRB,2.6058E-05_JPRB,2.8796E-05_JPRB,3.9114E-05_JPRB/)  
+KBO( :, 4,30, 3) = (/&
+ & 3.4456E-06_JPRB,2.4312E-05_JPRB,3.2449E-05_JPRB,3.4570E-05_JPRB,4.4025E-05_JPRB/)  
+KBO( :, 5,30, 3) = (/&
+ & 5.0796E-06_JPRB,3.1203E-05_JPRB,4.0247E-05_JPRB,4.1528E-05_JPRB,4.9430E-05_JPRB/)  
+KBO( :, 1,31, 3) = (/&
+ & 7.8800E-07_JPRB,9.5841E-06_JPRB,1.4480E-05_JPRB,1.7537E-05_JPRB,2.3703E-05_JPRB/)  
+KBO( :, 2,31, 3) = (/&
+ & 1.2827E-06_JPRB,1.2532E-05_JPRB,1.8035E-05_JPRB,2.0619E-05_JPRB,2.6829E-05_JPRB/)  
+KBO( :, 3,31, 3) = (/&
+ & 2.0224E-06_JPRB,1.6343E-05_JPRB,2.2488E-05_JPRB,2.4639E-05_JPRB,3.0300E-05_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART15',1,ZHOOK_HANDLE)
+END SUBROUTINE PART15
+
+
+SUBROUTINE PART16
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART16',0,ZHOOK_HANDLE)
+
+
+KBO( :, 4,31, 3) = (/&
+ & 3.0735E-06_JPRB,2.1137E-05_JPRB,2.7988E-05_JPRB,2.9590E-05_JPRB,3.4174E-05_JPRB/)  
+KBO( :, 5,31, 3) = (/&
+ & 4.5010E-06_JPRB,2.7051E-05_JPRB,3.4649E-05_JPRB,3.5519E-05_JPRB,3.8449E-05_JPRB/)  
+KBO( :, 1,32, 3) = (/&
+ & 7.1645E-07_JPRB,8.3621E-06_JPRB,1.2499E-05_JPRB,1.4908E-05_JPRB,1.8443E-05_JPRB/)  
+KBO( :, 2,32, 3) = (/&
+ & 1.1619E-06_JPRB,1.0942E-05_JPRB,1.5584E-05_JPRB,1.7626E-05_JPRB,2.0886E-05_JPRB/)  
+KBO( :, 3,32, 3) = (/&
+ & 1.8202E-06_JPRB,1.4246E-05_JPRB,1.9422E-05_JPRB,2.1099E-05_JPRB,2.3648E-05_JPRB/)  
+KBO( :, 4,32, 3) = (/&
+ & 2.7468E-06_JPRB,1.8389E-05_JPRB,2.4154E-05_JPRB,2.5344E-05_JPRB,2.6722E-05_JPRB/)  
+KBO( :, 5,32, 3) = (/&
+ & 3.9939E-06_JPRB,2.3459E-05_JPRB,2.9845E-05_JPRB,3.0391E-05_JPRB,3.0128E-05_JPRB/)  
+KBO( :, 1,33, 3) = (/&
+ & 6.5279E-07_JPRB,7.3021E-06_JPRB,1.0797E-05_JPRB,1.2695E-05_JPRB,1.4402E-05_JPRB/)  
+KBO( :, 2,33, 3) = (/&
+ & 1.0533E-06_JPRB,9.5550E-06_JPRB,1.3466E-05_JPRB,1.5078E-05_JPRB,1.6322E-05_JPRB/)  
+KBO( :, 3,33, 3) = (/&
+ & 1.6386E-06_JPRB,1.2420E-05_JPRB,1.6777E-05_JPRB,1.8071E-05_JPRB,1.8509E-05_JPRB/)  
+KBO( :, 4,33, 3) = (/&
+ & 2.4555E-06_JPRB,1.6002E-05_JPRB,2.0850E-05_JPRB,2.1713E-05_JPRB,2.0967E-05_JPRB/)  
+KBO( :, 5,33, 3) = (/&
+ & 3.5438E-06_JPRB,2.0331E-05_JPRB,2.5695E-05_JPRB,2.6001E-05_JPRB,2.3644E-05_JPRB/)  
+KBO( :, 1,34, 3) = (/&
+ & 5.8863E-07_JPRB,6.3339E-06_JPRB,9.2734E-06_JPRB,1.0778E-05_JPRB,1.1469E-05_JPRB/)  
+KBO( :, 2,34, 3) = (/&
+ & 9.4445E-07_JPRB,8.2845E-06_JPRB,1.1567E-05_JPRB,1.2839E-05_JPRB,1.3017E-05_JPRB/)  
+KBO( :, 3,34, 3) = (/&
+ & 1.4596E-06_JPRB,1.0750E-05_JPRB,1.4406E-05_JPRB,1.5399E-05_JPRB,1.4774E-05_JPRB/)  
+KBO( :, 4,34, 3) = (/&
+ & 2.1724E-06_JPRB,1.3818E-05_JPRB,1.7879E-05_JPRB,1.8493E-05_JPRB,1.6729E-05_JPRB/)  
+KBO( :, 5,34, 3) = (/&
+ & 3.1148E-06_JPRB,1.7498E-05_JPRB,2.1987E-05_JPRB,2.2131E-05_JPRB,1.8824E-05_JPRB/)  
+KBO( :, 1,35, 3) = (/&
+ & 5.0537E-07_JPRB,5.3493E-06_JPRB,7.7919E-06_JPRB,9.0039E-06_JPRB,8.9781E-06_JPRB/)  
+KBO( :, 2,35, 3) = (/&
+ & 8.0918E-07_JPRB,6.9937E-06_JPRB,9.7192E-06_JPRB,1.0739E-05_JPRB,1.0213E-05_JPRB/)  
+KBO( :, 3,35, 3) = (/&
+ & 1.2470E-06_JPRB,9.0680E-06_JPRB,1.2102E-05_JPRB,1.2886E-05_JPRB,1.1596E-05_JPRB/)  
+KBO( :, 4,35, 3) = (/&
+ & 1.8501E-06_JPRB,1.1641E-05_JPRB,1.5006E-05_JPRB,1.5470E-05_JPRB,1.3118E-05_JPRB/)  
+KBO( :, 5,35, 3) = (/&
+ & 2.6449E-06_JPRB,1.4713E-05_JPRB,1.8433E-05_JPRB,1.8505E-05_JPRB,1.4740E-05_JPRB/)  
+KBO( :, 1,36, 3) = (/&
+ & 4.1057E-07_JPRB,4.3814E-06_JPRB,6.3851E-06_JPRB,7.3787E-06_JPRB,6.8704E-06_JPRB/)  
+KBO( :, 2,36, 3) = (/&
+ & 6.5882E-07_JPRB,5.7295E-06_JPRB,7.9649E-06_JPRB,8.8014E-06_JPRB,7.8310E-06_JPRB/)  
+KBO( :, 3,36, 3) = (/&
+ & 1.0168E-06_JPRB,7.4305E-06_JPRB,9.9179E-06_JPRB,1.0562E-05_JPRB,8.9079E-06_JPRB/)  
+KBO( :, 4,36, 3) = (/&
+ & 1.5108E-06_JPRB,9.5390E-06_JPRB,1.2298E-05_JPRB,1.2679E-05_JPRB,1.0083E-05_JPRB/)  
+KBO( :, 5,36, 3) = (/&
+ & 2.1616E-06_JPRB,1.2056E-05_JPRB,1.5104E-05_JPRB,1.5169E-05_JPRB,1.1345E-05_JPRB/)  
+KBO( :, 1,37, 3) = (/&
+ & 3.1315E-07_JPRB,3.4610E-06_JPRB,5.0780E-06_JPRB,5.9099E-06_JPRB,5.3692E-06_JPRB/)  
+KBO( :, 2,37, 3) = (/&
+ & 5.0553E-07_JPRB,4.5300E-06_JPRB,6.3356E-06_JPRB,7.0381E-06_JPRB,6.1160E-06_JPRB/)  
+KBO( :, 3,37, 3) = (/&
+ & 7.8502E-07_JPRB,5.8822E-06_JPRB,7.8910E-06_JPRB,8.4420E-06_JPRB,6.9587E-06_JPRB/)  
+KBO( :, 4,37, 3) = (/&
+ & 1.1731E-06_JPRB,7.5654E-06_JPRB,9.7936E-06_JPRB,1.0137E-05_JPRB,7.8860E-06_JPRB/)  
+KBO( :, 5,37, 3) = (/&
+ & 1.6874E-06_JPRB,9.5810E-06_JPRB,1.2045E-05_JPRB,1.2132E-05_JPRB,8.8810E-06_JPRB/)  
+KBO( :, 1,38, 3) = (/&
+ & 2.3771E-07_JPRB,2.7274E-06_JPRB,4.0311E-06_JPRB,4.7281E-06_JPRB,4.1877E-06_JPRB/)  
+KBO( :, 2,38, 3) = (/&
+ & 3.8612E-07_JPRB,3.5727E-06_JPRB,5.0296E-06_JPRB,5.6200E-06_JPRB,4.7630E-06_JPRB/)  
+KBO( :, 3,38, 3) = (/&
+ & 6.0348E-07_JPRB,4.6457E-06_JPRB,6.2661E-06_JPRB,6.7370E-06_JPRB,5.4196E-06_JPRB/)  
+KBO( :, 4,38, 3) = (/&
+ & 9.0735E-07_JPRB,5.9856E-06_JPRB,7.7840E-06_JPRB,8.0913E-06_JPRB,6.1484E-06_JPRB/)  
+KBO( :, 5,38, 3) = (/&
+ & 1.3127E-06_JPRB,7.5975E-06_JPRB,9.5859E-06_JPRB,9.6880E-06_JPRB,6.9288E-06_JPRB/)  
+KBO( :, 1,39, 3) = (/&
+ & 1.8023E-07_JPRB,2.1491E-06_JPRB,3.2000E-06_JPRB,3.7837E-06_JPRB,3.2502E-06_JPRB/)  
+KBO( :, 2,39, 3) = (/&
+ & 2.9456E-07_JPRB,2.8164E-06_JPRB,3.9921E-06_JPRB,4.4877E-06_JPRB,3.6914E-06_JPRB/)  
+KBO( :, 3,39, 3) = (/&
+ & 4.6344E-07_JPRB,3.6676E-06_JPRB,4.9751E-06_JPRB,5.3760E-06_JPRB,4.1983E-06_JPRB/)  
+KBO( :, 4,39, 3) = (/&
+ & 7.0119E-07_JPRB,4.7335E-06_JPRB,6.1852E-06_JPRB,6.4579E-06_JPRB,4.7648E-06_JPRB/)  
+KBO( :, 5,39, 3) = (/&
+ & 1.0202E-06_JPRB,6.0220E-06_JPRB,7.6267E-06_JPRB,7.7355E-06_JPRB,5.3712E-06_JPRB/)  
+KBO( :, 1,40, 3) = (/&
+ & 1.2988E-07_JPRB,1.6490E-06_JPRB,2.4862E-06_JPRB,2.9837E-06_JPRB,2.5331E-06_JPRB/)  
+KBO( :, 2,40, 3) = (/&
+ & 2.1421E-07_JPRB,2.1615E-06_JPRB,3.1003E-06_JPRB,3.5229E-06_JPRB,2.8723E-06_JPRB/)  
+KBO( :, 3,40, 3) = (/&
+ & 3.4046E-07_JPRB,2.8213E-06_JPRB,3.8655E-06_JPRB,4.2144E-06_JPRB,3.2646E-06_JPRB/)  
+KBO( :, 4,40, 3) = (/&
+ & 5.2031E-07_JPRB,3.6506E-06_JPRB,4.8112E-06_JPRB,5.0626E-06_JPRB,3.7075E-06_JPRB/)  
+KBO( :, 5,40, 3) = (/&
+ & 7.6450E-07_JPRB,4.6621E-06_JPRB,5.9448E-06_JPRB,6.0685E-06_JPRB,4.1839E-06_JPRB/)  
+KBO( :, 1,41, 3) = (/&
+ & 9.2788E-08_JPRB,1.2611E-06_JPRB,1.9271E-06_JPRB,2.3514E-06_JPRB,1.9748E-06_JPRB/)  
+KBO( :, 2,41, 3) = (/&
+ & 1.5438E-07_JPRB,1.6527E-06_JPRB,2.4004E-06_JPRB,2.7614E-06_JPRB,2.2337E-06_JPRB/)  
+KBO( :, 3,41, 3) = (/&
+ & 2.4802E-07_JPRB,2.1617E-06_JPRB,2.9945E-06_JPRB,3.2967E-06_JPRB,2.5364E-06_JPRB/)  
+KBO( :, 4,41, 3) = (/&
+ & 3.8306E-07_JPRB,2.8040E-06_JPRB,3.7298E-06_JPRB,3.9584E-06_JPRB,2.8813E-06_JPRB/)  
+KBO( :, 5,41, 3) = (/&
+ & 5.6866E-07_JPRB,3.5943E-06_JPRB,4.6183E-06_JPRB,4.7484E-06_JPRB,3.2555E-06_JPRB/)  
+KBO( :, 1,42, 3) = (/&
+ & 6.6123E-08_JPRB,9.6442E-07_JPRB,1.4943E-06_JPRB,1.8557E-06_JPRB,1.5379E-06_JPRB/)  
+KBO( :, 2,42, 3) = (/&
+ & 1.1090E-07_JPRB,1.2629E-06_JPRB,1.8581E-06_JPRB,2.1664E-06_JPRB,1.7336E-06_JPRB/)  
+KBO( :, 3,42, 3) = (/&
+ & 1.8006E-07_JPRB,1.6546E-06_JPRB,2.3186E-06_JPRB,2.5790E-06_JPRB,1.9660E-06_JPRB/)  
+KBO( :, 4,42, 3) = (/&
+ & 2.8112E-07_JPRB,2.1513E-06_JPRB,2.8897E-06_JPRB,3.0943E-06_JPRB,2.2331E-06_JPRB/)  
+KBO( :, 5,42, 3) = (/&
+ & 4.2176E-07_JPRB,2.7676E-06_JPRB,3.5854E-06_JPRB,3.7139E-06_JPRB,2.5247E-06_JPRB/)  
+KBO( :, 1,43, 3) = (/&
+ & 4.5723E-08_JPRB,7.2721E-07_JPRB,1.1468E-06_JPRB,1.4561E-06_JPRB,1.1970E-06_JPRB/)  
+KBO( :, 2,43, 3) = (/&
+ & 7.7279E-08_JPRB,9.5086E-07_JPRB,1.4214E-06_JPRB,1.6869E-06_JPRB,1.3436E-06_JPRB/)  
+KBO( :, 3,43, 3) = (/&
+ & 1.2698E-07_JPRB,1.2469E-06_JPRB,1.7734E-06_JPRB,1.9988E-06_JPRB,1.5201E-06_JPRB/)  
+KBO( :, 4,43, 3) = (/&
+ & 2.0087E-07_JPRB,1.6261E-06_JPRB,2.2117E-06_JPRB,2.3948E-06_JPRB,1.7257E-06_JPRB/)  
+KBO( :, 5,43, 3) = (/&
+ & 3.0517E-07_JPRB,2.0997E-06_JPRB,2.7492E-06_JPRB,2.8756E-06_JPRB,1.9526E-06_JPRB/)  
+KBO( :, 1,44, 3) = (/&
+ & 3.1195E-08_JPRB,5.4529E-07_JPRB,8.7740E-07_JPRB,1.1428E-06_JPRB,9.3212E-07_JPRB/)  
+KBO( :, 2,44, 3) = (/&
+ & 5.3002E-08_JPRB,7.1132E-07_JPRB,1.0821E-06_JPRB,1.3117E-06_JPRB,1.0411E-06_JPRB/)  
+KBO( :, 3,44, 3) = (/&
+ & 8.8116E-08_JPRB,9.3281E-07_JPRB,1.3488E-06_JPRB,1.5439E-06_JPRB,1.1733E-06_JPRB/)  
+KBO( :, 4,44, 3) = (/&
+ & 1.4135E-07_JPRB,1.2201E-06_JPRB,1.6833E-06_JPRB,1.8457E-06_JPRB,1.3305E-06_JPRB/)  
+KBO( :, 5,44, 3) = (/&
+ & 2.1772E-07_JPRB,1.5809E-06_JPRB,2.0956E-06_JPRB,2.2159E-06_JPRB,1.5063E-06_JPRB/)  
+KBO( :, 1,45, 3) = (/&
+ & 2.1310E-08_JPRB,4.0944E-07_JPRB,6.7327E-07_JPRB,9.0153E-07_JPRB,7.2497E-07_JPRB/)  
+KBO( :, 2,45, 3) = (/&
+ & 3.6231E-08_JPRB,5.3235E-07_JPRB,8.2462E-07_JPRB,1.0227E-06_JPRB,8.0606E-07_JPRB/)  
+KBO( :, 3,45, 3) = (/&
+ & 6.0860E-08_JPRB,6.9752E-07_JPRB,1.0257E-06_JPRB,1.1946E-06_JPRB,9.0421E-07_JPRB/)  
+KBO( :, 4,45, 3) = (/&
+ & 9.8966E-08_JPRB,9.1442E-07_JPRB,1.2808E-06_JPRB,1.4232E-06_JPRB,1.0228E-06_JPRB/)  
+KBO( :, 5,45, 3) = (/&
+ & 1.5458E-07_JPRB,1.1885E-06_JPRB,1.5957E-06_JPRB,1.7071E-06_JPRB,1.1581E-06_JPRB/)  
+KBO( :, 1,46, 3) = (/&
+ & 1.4455E-08_JPRB,3.0647E-07_JPRB,5.1657E-07_JPRB,7.1517E-07_JPRB,5.6309E-07_JPRB/)  
+KBO( :, 2,46, 3) = (/&
+ & 2.4438E-08_JPRB,3.9644E-07_JPRB,6.2668E-07_JPRB,7.9740E-07_JPRB,6.2357E-07_JPRB/)  
+KBO( :, 3,46, 3) = (/&
+ & 4.1400E-08_JPRB,5.1850E-07_JPRB,7.7667E-07_JPRB,9.2312E-07_JPRB,6.9619E-07_JPRB/)  
+KBO( :, 4,46, 3) = (/&
+ & 6.8241E-08_JPRB,6.8045E-07_JPRB,9.6951E-07_JPRB,1.0939E-06_JPRB,7.8455E-07_JPRB/)  
+KBO( :, 5,46, 3) = (/&
+ & 1.0821E-07_JPRB,8.8739E-07_JPRB,1.2089E-06_JPRB,1.3101E-06_JPRB,8.8794E-07_JPRB/)  
+KBO( :, 1,47, 3) = (/&
+ & 9.6929E-09_JPRB,2.2797E-07_JPRB,3.9542E-07_JPRB,5.7182E-07_JPRB,4.3847E-07_JPRB/)  
+KBO( :, 2,47, 3) = (/&
+ & 1.6123E-08_JPRB,2.9242E-07_JPRB,4.7359E-07_JPRB,6.2141E-07_JPRB,4.8271E-07_JPRB/)  
+KBO( :, 3,47, 3) = (/&
+ & 2.7447E-08_JPRB,3.8129E-07_JPRB,5.8328E-07_JPRB,7.1120E-07_JPRB,5.3692E-07_JPRB/)  
+KBO( :, 4,47, 3) = (/&
+ & 4.5855E-08_JPRB,5.0030E-07_JPRB,7.2710E-07_JPRB,8.3592E-07_JPRB,6.0206E-07_JPRB/)  
+KBO( :, 5,47, 3) = (/&
+ & 7.3923E-08_JPRB,6.5467E-07_JPRB,9.0733E-07_JPRB,9.9829E-07_JPRB,6.8031E-07_JPRB/)  
+KBO( :, 1,48, 3) = (/&
+ & 6.6058E-09_JPRB,1.7063E-07_JPRB,3.0447E-07_JPRB,4.6224E-07_JPRB,3.4217E-07_JPRB/)  
+KBO( :, 2,48, 3) = (/&
+ & 1.0670E-08_JPRB,2.1618E-07_JPRB,3.5958E-07_JPRB,4.8824E-07_JPRB,3.7325E-07_JPRB/)  
+KBO( :, 3,48, 3) = (/&
+ & 1.8128E-08_JPRB,2.8060E-07_JPRB,4.3881E-07_JPRB,5.5007E-07_JPRB,4.1348E-07_JPRB/)  
+KBO( :, 4,48, 3) = (/&
+ & 3.0624E-08_JPRB,3.6766E-07_JPRB,5.4535E-07_JPRB,6.4036E-07_JPRB,4.6137E-07_JPRB/)  
+KBO( :, 5,48, 3) = (/&
+ & 5.0151E-08_JPRB,4.8217E-07_JPRB,6.8071E-07_JPRB,7.6123E-07_JPRB,5.1955E-07_JPRB/)  
+KBO( :, 1,49, 3) = (/&
+ & 4.6014E-09_JPRB,1.2872E-07_JPRB,2.3633E-07_JPRB,3.7814E-07_JPRB,2.6748E-07_JPRB/)  
+KBO( :, 2,49, 3) = (/&
+ & 7.1127E-09_JPRB,1.6040E-07_JPRB,2.7445E-07_JPRB,3.8804E-07_JPRB,2.8841E-07_JPRB/)  
+KBO( :, 3,49, 3) = (/&
+ & 1.1951E-08_JPRB,2.0675E-07_JPRB,3.3098E-07_JPRB,4.2738E-07_JPRB,3.1734E-07_JPRB/)  
+KBO( :, 4,49, 3) = (/&
+ & 2.0341E-08_JPRB,2.7019E-07_JPRB,4.0929E-07_JPRB,4.9230E-07_JPRB,3.5284E-07_JPRB/)  
+KBO( :, 5,49, 3) = (/&
+ & 3.3789E-08_JPRB,3.5457E-07_JPRB,5.1051E-07_JPRB,5.8104E-07_JPRB,3.9543E-07_JPRB/)  
+KBO( :, 1,50, 3) = (/&
+ & 3.3123E-09_JPRB,9.8389E-08_JPRB,1.8583E-07_JPRB,3.1200E-07_JPRB,2.1151E-07_JPRB/)  
+KBO( :, 2,50, 3) = (/&
+ & 4.8635E-09_JPRB,1.2034E-07_JPRB,2.1156E-07_JPRB,3.1223E-07_JPRB,2.2606E-07_JPRB/)  
+KBO( :, 3,50, 3) = (/&
+ & 8.0017E-09_JPRB,1.5366E-07_JPRB,2.5190E-07_JPRB,3.3521E-07_JPRB,2.4676E-07_JPRB/)  
+KBO( :, 4,50, 3) = (/&
+ & 1.3638E-08_JPRB,2.0012E-07_JPRB,3.0928E-07_JPRB,3.8141E-07_JPRB,2.7336E-07_JPRB/)  
+KBO( :, 5,50, 3) = (/&
+ & 2.2922E-08_JPRB,2.6241E-07_JPRB,3.8502E-07_JPRB,4.4648E-07_JPRB,3.0528E-07_JPRB/)  
+KBO( :, 1,51, 3) = (/&
+ & 2.4418E-09_JPRB,7.5933E-08_JPRB,1.4742E-07_JPRB,2.5968E-07_JPRB,1.6891E-07_JPRB/)  
+KBO( :, 2,51, 3) = (/&
+ & 3.3989E-09_JPRB,9.1095E-08_JPRB,1.6428E-07_JPRB,2.5385E-07_JPRB,1.7889E-07_JPRB/)  
+KBO( :, 3,51, 3) = (/&
+ & 5.4139E-09_JPRB,1.1482E-07_JPRB,1.9299E-07_JPRB,2.6542E-07_JPRB,1.9344E-07_JPRB/)  
+KBO( :, 4,51, 3) = (/&
+ & 9.1803E-09_JPRB,1.4881E-07_JPRB,2.3477E-07_JPRB,2.9709E-07_JPRB,2.1318E-07_JPRB/)  
+KBO( :, 5,51, 3) = (/&
+ & 1.5567E-08_JPRB,1.9481E-07_JPRB,2.9131E-07_JPRB,3.4464E-07_JPRB,2.3734E-07_JPRB/)  
+KBO( :, 1,52, 3) = (/&
+ & 1.8356E-09_JPRB,5.9138E-08_JPRB,1.1788E-07_JPRB,2.1792E-07_JPRB,1.3551E-07_JPRB/)  
+KBO( :, 2,52, 3) = (/&
+ & 2.4226E-09_JPRB,6.9427E-08_JPRB,1.2853E-07_JPRB,2.0827E-07_JPRB,1.4167E-07_JPRB/)  
+KBO( :, 3,52, 3) = (/&
+ & 3.6921E-09_JPRB,8.6117E-08_JPRB,1.4855E-07_JPRB,2.1230E-07_JPRB,1.5195E-07_JPRB/)  
+KBO( :, 4,52, 3) = (/&
+ & 6.1793E-09_JPRB,1.1080E-07_JPRB,1.7865E-07_JPRB,2.3238E-07_JPRB,1.6623E-07_JPRB/)  
+KBO( :, 5,52, 3) = (/&
+ & 1.0533E-08_JPRB,1.4468E-07_JPRB,2.2055E-07_JPRB,2.6689E-07_JPRB,1.8440E-07_JPRB/)  
+KBO( :, 1,53, 3) = (/&
+ & 1.4057E-09_JPRB,4.6460E-08_JPRB,9.5335E-08_JPRB,1.8476E-07_JPRB,1.0859E-07_JPRB/)  
+KBO( :, 2,53, 3) = (/&
+ & 1.7607E-09_JPRB,5.3285E-08_JPRB,1.0139E-07_JPRB,1.7215E-07_JPRB,1.1242E-07_JPRB/)  
+KBO( :, 3,53, 3) = (/&
+ & 2.5488E-09_JPRB,6.4871E-08_JPRB,1.1488E-07_JPRB,1.7132E-07_JPRB,1.1951E-07_JPRB/)  
+KBO( :, 4,53, 3) = (/&
+ & 4.1657E-09_JPRB,8.2629E-08_JPRB,1.3641E-07_JPRB,1.8283E-07_JPRB,1.2965E-07_JPRB/)  
+KBO( :, 5,53, 3) = (/&
+ & 7.0997E-09_JPRB,1.0750E-07_JPRB,1.6715E-07_JPRB,2.0732E-07_JPRB,1.4296E-07_JPRB/)  
+KBO( :, 1,54, 3) = (/&
+ & 1.0999E-09_JPRB,3.6846E-08_JPRB,7.7697E-08_JPRB,1.5754E-07_JPRB,8.8206E-08_JPRB/)  
+KBO( :, 2,54, 3) = (/&
+ & 1.3156E-09_JPRB,4.1399E-08_JPRB,8.0749E-08_JPRB,1.4331E-07_JPRB,9.0854E-08_JPRB/)  
+KBO( :, 3,54, 3) = (/&
+ & 1.8124E-09_JPRB,4.9493E-08_JPRB,8.9710E-08_JPRB,1.3962E-07_JPRB,9.5712E-08_JPRB/)  
+KBO( :, 4,54, 3) = (/&
+ & 2.8677E-09_JPRB,6.2264E-08_JPRB,1.0518E-07_JPRB,1.4542E-07_JPRB,1.0312E-07_JPRB/)  
+KBO( :, 5,54, 3) = (/&
+ & 4.8571E-09_JPRB,8.0602E-08_JPRB,1.2774E-07_JPRB,1.6229E-07_JPRB,1.1315E-07_JPRB/)  
+KBO( :, 1,55, 3) = (/&
+ & 8.7254E-10_JPRB,2.9511E-08_JPRB,6.3773E-08_JPRB,1.3472E-07_JPRB,7.2224E-08_JPRB/)  
+KBO( :, 2,55, 3) = (/&
+ & 1.0019E-09_JPRB,3.2470E-08_JPRB,6.4795E-08_JPRB,1.1996E-07_JPRB,7.4131E-08_JPRB/)  
+KBO( :, 3,55, 3) = (/&
+ & 1.3171E-09_JPRB,3.8081E-08_JPRB,7.0642E-08_JPRB,1.1458E-07_JPRB,7.7438E-08_JPRB/)  
+KBO( :, 4,55, 3) = (/&
+ & 2.0021E-09_JPRB,4.7221E-08_JPRB,8.1614E-08_JPRB,1.1674E-07_JPRB,8.2998E-08_JPRB/)  
+KBO( :, 5,55, 3) = (/&
+ & 3.3482E-09_JPRB,6.0727E-08_JPRB,9.8113E-08_JPRB,1.2774E-07_JPRB,9.0672E-08_JPRB/)  
+KBO( :, 1,56, 3) = (/&
+ & 6.9950E-10_JPRB,2.3838E-08_JPRB,5.2680E-08_JPRB,1.1562E-07_JPRB,5.9234E-08_JPRB/)  
+KBO( :, 2,56, 3) = (/&
+ & 7.7413E-10_JPRB,2.5644E-08_JPRB,5.2472E-08_JPRB,1.0117E-07_JPRB,6.0572E-08_JPRB/)  
+KBO( :, 3,56, 3) = (/&
+ & 9.7208E-10_JPRB,2.9465E-08_JPRB,5.5972E-08_JPRB,9.4548E-08_JPRB,6.2834E-08_JPRB/)  
+KBO( :, 4,56, 3) = (/&
+ & 1.4121E-09_JPRB,3.5940E-08_JPRB,6.3562E-08_JPRB,9.4353E-08_JPRB,6.6970E-08_JPRB/)  
+KBO( :, 5,56, 3) = (/&
+ & 2.3128E-09_JPRB,4.5822E-08_JPRB,7.5568E-08_JPRB,1.0098E-07_JPRB,7.2808E-08_JPRB/)  
+KBO( :, 1,57, 3) = (/&
+ & 5.6581E-10_JPRB,1.9346E-08_JPRB,4.3790E-08_JPRB,9.9565E-08_JPRB,4.8602E-08_JPRB/)  
+KBO( :, 2,57, 3) = (/&
+ & 6.0638E-10_JPRB,2.0352E-08_JPRB,4.2737E-08_JPRB,8.6020E-08_JPRB,4.9598E-08_JPRB/)  
+KBO( :, 3,57, 3) = (/&
+ & 7.2835E-10_JPRB,2.2928E-08_JPRB,4.4588E-08_JPRB,7.8554E-08_JPRB,5.1156E-08_JPRB/)  
+KBO( :, 4,57, 3) = (/&
+ & 1.0089E-09_JPRB,2.7487E-08_JPRB,4.9704E-08_JPRB,7.6812E-08_JPRB,5.4188E-08_JPRB/)  
+KBO( :, 5,57, 3) = (/&
+ & 1.6034E-09_JPRB,3.4641E-08_JPRB,5.8392E-08_JPRB,8.0331E-08_JPRB,5.8574E-08_JPRB/)  
+KBO( :, 1,58, 3) = (/&
+ & 4.6103E-10_JPRB,1.5793E-08_JPRB,3.6627E-08_JPRB,8.5726E-08_JPRB,3.9978E-08_JPRB/)  
+KBO( :, 2,58, 3) = (/&
+ & 4.8130E-10_JPRB,1.6286E-08_JPRB,3.5015E-08_JPRB,7.3307E-08_JPRB,4.0789E-08_JPRB/)  
+KBO( :, 3,58, 3) = (/&
+ & 5.5585E-10_JPRB,1.8004E-08_JPRB,3.5764E-08_JPRB,6.5610E-08_JPRB,4.1884E-08_JPRB/)  
+KBO( :, 4,58, 3) = (/&
+ & 7.3630E-10_JPRB,2.1198E-08_JPRB,3.9171E-08_JPRB,6.2959E-08_JPRB,4.4100E-08_JPRB/)  
+KBO( :, 5,58, 3) = (/&
+ & 1.1276E-09_JPRB,2.6366E-08_JPRB,4.5403E-08_JPRB,6.4458E-08_JPRB,4.7431E-08_JPRB/)  
+KBO( :, 1,59, 3) = (/&
+ & 3.7755E-10_JPRB,1.2932E-08_JPRB,3.0232E-08_JPRB,7.1480E-08_JPRB,3.3647E-08_JPRB/)  
+KBO( :, 2,59, 3) = (/&
+ & 3.9028E-10_JPRB,1.3252E-08_JPRB,2.8716E-08_JPRB,6.0919E-08_JPRB,3.4209E-08_JPRB/)  
+KBO( :, 3,59, 3) = (/&
+ & 4.4415E-10_JPRB,1.4531E-08_JPRB,2.9099E-08_JPRB,5.4129E-08_JPRB,3.5197E-08_JPRB/)  
+KBO( :, 4,59, 3) = (/&
+ & 5.7804E-10_JPRB,1.6979E-08_JPRB,3.1645E-08_JPRB,5.1588E-08_JPRB,3.7203E-08_JPRB/)  
+KBO( :, 5,59, 3) = (/&
+ & 8.7073E-10_JPRB,2.0997E-08_JPRB,3.6469E-08_JPRB,5.2428E-08_JPRB,4.0115E-08_JPRB/)  
+KBO( :, 1,13, 4) = (/&
+ & 8.9291E-05_JPRB,3.8524E-04_JPRB,5.0838E-04_JPRB,6.5865E-04_JPRB,3.8422E-03_JPRB/)  
+KBO( :, 2,13, 4) = (/&
+ & 1.2150E-04_JPRB,5.0395E-04_JPRB,6.2502E-04_JPRB,7.1591E-04_JPRB,4.4934E-03_JPRB/)  
+KBO( :, 3,13, 4) = (/&
+ & 1.6722E-04_JPRB,6.6391E-04_JPRB,7.8605E-04_JPRB,8.2001E-04_JPRB,5.0967E-03_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART16',1,ZHOOK_HANDLE)
+END SUBROUTINE PART16
+
+
+SUBROUTINE PART17
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART17',0,ZHOOK_HANDLE)
+
+
+KBO( :, 4,13, 4) = (/&
+ & 2.3167E-04_JPRB,8.6690E-04_JPRB,9.9738E-04_JPRB,9.6960E-04_JPRB,5.6862E-03_JPRB/)  
+KBO( :, 5,13, 4) = (/&
+ & 3.2066E-04_JPRB,1.1149E-03_JPRB,1.2572E-03_JPRB,1.1723E-03_JPRB,6.2886E-03_JPRB/)  
+KBO( :, 1,14, 4) = (/&
+ & 7.3069E-05_JPRB,3.2443E-04_JPRB,4.2572E-04_JPRB,5.4565E-04_JPRB,3.2324E-03_JPRB/)  
+KBO( :, 2,14, 4) = (/&
+ & 1.0078E-04_JPRB,4.2788E-04_JPRB,5.2773E-04_JPRB,5.9812E-04_JPRB,3.7083E-03_JPRB/)  
+KBO( :, 3,14, 4) = (/&
+ & 1.4066E-04_JPRB,5.6564E-04_JPRB,6.6846E-04_JPRB,6.8982E-04_JPRB,4.1601E-03_JPRB/)  
+KBO( :, 4,14, 4) = (/&
+ & 1.9708E-04_JPRB,7.3974E-04_JPRB,8.5021E-04_JPRB,8.2165E-04_JPRB,4.6256E-03_JPRB/)  
+KBO( :, 5,14, 4) = (/&
+ & 2.7523E-04_JPRB,9.5281E-04_JPRB,1.0713E-03_JPRB,9.9745E-04_JPRB,5.1177E-03_JPRB/)  
+KBO( :, 1,15, 4) = (/&
+ & 5.8268E-05_JPRB,2.7203E-04_JPRB,3.5604E-04_JPRB,4.5206E-04_JPRB,2.5355E-03_JPRB/)  
+KBO( :, 2,15, 4) = (/&
+ & 8.1805E-05_JPRB,3.6098E-04_JPRB,4.4467E-04_JPRB,4.9956E-04_JPRB,2.8581E-03_JPRB/)  
+KBO( :, 3,15, 4) = (/&
+ & 1.1620E-04_JPRB,4.7910E-04_JPRB,5.6641E-04_JPRB,5.8044E-04_JPRB,3.1903E-03_JPRB/)  
+KBO( :, 4,15, 4) = (/&
+ & 1.6501E-04_JPRB,6.2810E-04_JPRB,7.2148E-04_JPRB,6.9577E-04_JPRB,3.5501E-03_JPRB/)  
+KBO( :, 5,15, 4) = (/&
+ & 2.3301E-04_JPRB,8.1144E-04_JPRB,9.1027E-04_JPRB,8.4726E-04_JPRB,3.9463E-03_JPRB/)  
+KBO( :, 1,16, 4) = (/&
+ & 4.6115E-05_JPRB,2.2742E-04_JPRB,2.9760E-04_JPRB,3.7441E-04_JPRB,1.8635E-03_JPRB/)  
+KBO( :, 2,16, 4) = (/&
+ & 6.6044E-05_JPRB,3.0388E-04_JPRB,3.7432E-04_JPRB,4.1709E-04_JPRB,2.0896E-03_JPRB/)  
+KBO( :, 3,16, 4) = (/&
+ & 9.5513E-05_JPRB,4.0494E-04_JPRB,4.7881E-04_JPRB,4.8833E-04_JPRB,2.3373E-03_JPRB/)  
+KBO( :, 4,16, 4) = (/&
+ & 1.3768E-04_JPRB,5.3229E-04_JPRB,6.1073E-04_JPRB,5.8836E-04_JPRB,2.6201E-03_JPRB/)  
+KBO( :, 5,16, 4) = (/&
+ & 1.9676E-04_JPRB,6.8916E-04_JPRB,7.7223E-04_JPRB,7.1811E-04_JPRB,2.9128E-03_JPRB/)  
+KBO( :, 1,17, 4) = (/&
+ & 3.7236E-05_JPRB,1.9117E-04_JPRB,2.4928E-04_JPRB,3.1036E-04_JPRB,1.3781E-03_JPRB/)  
+KBO( :, 2,17, 4) = (/&
+ & 5.4291E-05_JPRB,2.5693E-04_JPRB,3.1565E-04_JPRB,3.4867E-04_JPRB,1.5505E-03_JPRB/)  
+KBO( :, 3,17, 4) = (/&
+ & 7.9749E-05_JPRB,3.4332E-04_JPRB,4.0498E-04_JPRB,4.1127E-04_JPRB,1.7502E-03_JPRB/)  
+KBO( :, 4,17, 4) = (/&
+ & 1.1653E-04_JPRB,4.5210E-04_JPRB,5.1744E-04_JPRB,4.9715E-04_JPRB,1.9654E-03_JPRB/)  
+KBO( :, 5,17, 4) = (/&
+ & 1.6848E-04_JPRB,5.8567E-04_JPRB,6.5487E-04_JPRB,6.0828E-04_JPRB,2.1867E-03_JPRB/)  
+KBO( :, 1,18, 4) = (/&
+ & 3.1214E-05_JPRB,1.6265E-04_JPRB,2.1001E-04_JPRB,2.5789E-04_JPRB,1.0508E-03_JPRB/)  
+KBO( :, 2,18, 4) = (/&
+ & 4.6115E-05_JPRB,2.1928E-04_JPRB,2.6764E-04_JPRB,2.9235E-04_JPRB,1.1925E-03_JPRB/)  
+KBO( :, 3,18, 4) = (/&
+ & 6.8526E-05_JPRB,2.9311E-04_JPRB,3.4395E-04_JPRB,3.4662E-04_JPRB,1.3522E-03_JPRB/)  
+KBO( :, 4,18, 4) = (/&
+ & 1.0108E-04_JPRB,3.8595E-04_JPRB,4.3972E-04_JPRB,4.2050E-04_JPRB,1.5200E-03_JPRB/)  
+KBO( :, 5,18, 4) = (/&
+ & 1.4724E-04_JPRB,4.9979E-04_JPRB,5.5620E-04_JPRB,5.1508E-04_JPRB,1.6884E-03_JPRB/)  
+KBO( :, 1,19, 4) = (/&
+ & 2.6494E-05_JPRB,1.3877E-04_JPRB,1.7752E-04_JPRB,2.1456E-04_JPRB,8.3267E-04_JPRB/)  
+KBO( :, 2,19, 4) = (/&
+ & 3.9645E-05_JPRB,1.8735E-04_JPRB,2.2717E-04_JPRB,2.4531E-04_JPRB,9.5168E-04_JPRB/)  
+KBO( :, 3,19, 4) = (/&
+ & 5.9441E-05_JPRB,2.5031E-04_JPRB,2.9223E-04_JPRB,2.9203E-04_JPRB,1.0814E-03_JPRB/)  
+KBO( :, 4,19, 4) = (/&
+ & 8.8341E-05_JPRB,3.2954E-04_JPRB,3.7346E-04_JPRB,3.5516E-04_JPRB,1.2143E-03_JPRB/)  
+KBO( :, 5,19, 4) = (/&
+ & 1.2952E-04_JPRB,4.2674E-04_JPRB,4.7232E-04_JPRB,4.3565E-04_JPRB,1.3453E-03_JPRB/)  
+KBO( :, 1,20, 4) = (/&
+ & 2.2953E-05_JPRB,1.1923E-04_JPRB,1.5106E-04_JPRB,1.7906E-04_JPRB,6.7531E-04_JPRB/)  
+KBO( :, 2,20, 4) = (/&
+ & 3.4684E-05_JPRB,1.6096E-04_JPRB,1.9387E-04_JPRB,2.0645E-04_JPRB,7.7360E-04_JPRB/)  
+KBO( :, 3,20, 4) = (/&
+ & 5.2387E-05_JPRB,2.1493E-04_JPRB,2.4939E-04_JPRB,2.4674E-04_JPRB,8.7927E-04_JPRB/)  
+KBO( :, 4,20, 4) = (/&
+ & 7.8339E-05_JPRB,2.8287E-04_JPRB,3.1867E-04_JPRB,3.0094E-04_JPRB,9.8457E-04_JPRB/)  
+KBO( :, 5,20, 4) = (/&
+ & 1.1532E-04_JPRB,3.6655E-04_JPRB,4.0332E-04_JPRB,3.6955E-04_JPRB,1.0890E-03_JPRB/)  
+KBO( :, 1,21, 4) = (/&
+ & 1.9939E-05_JPRB,1.0230E-04_JPRB,1.2858E-04_JPRB,1.4968E-04_JPRB,5.4869E-04_JPRB/)  
+KBO( :, 2,21, 4) = (/&
+ & 3.0427E-05_JPRB,1.3816E-04_JPRB,1.6531E-04_JPRB,1.7375E-04_JPRB,6.2932E-04_JPRB/)  
+KBO( :, 3,21, 4) = (/&
+ & 4.6301E-05_JPRB,1.8453E-04_JPRB,2.1269E-04_JPRB,2.0848E-04_JPRB,7.1424E-04_JPRB/)  
+KBO( :, 4,21, 4) = (/&
+ & 6.9612E-05_JPRB,2.4288E-04_JPRB,2.7189E-04_JPRB,2.5497E-04_JPRB,7.9799E-04_JPRB/)  
+KBO( :, 5,21, 4) = (/&
+ & 1.0255E-04_JPRB,3.1496E-04_JPRB,3.4452E-04_JPRB,3.1356E-04_JPRB,8.8178E-04_JPRB/)  
+KBO( :, 1,22, 4) = (/&
+ & 1.7650E-05_JPRB,8.9099E-05_JPRB,1.1086E-04_JPRB,1.2617E-04_JPRB,4.4136E-04_JPRB/)  
+KBO( :, 2,22, 4) = (/&
+ & 2.7256E-05_JPRB,1.2040E-04_JPRB,1.4288E-04_JPRB,1.4770E-04_JPRB,5.0625E-04_JPRB/)  
+KBO( :, 3,22, 4) = (/&
+ & 4.1784E-05_JPRB,1.6082E-04_JPRB,1.8391E-04_JPRB,1.7825E-04_JPRB,5.7259E-04_JPRB/)  
+KBO( :, 4,22, 4) = (/&
+ & 6.2963E-05_JPRB,2.1168E-04_JPRB,2.3528E-04_JPRB,2.1869E-04_JPRB,6.3831E-04_JPRB/)  
+KBO( :, 5,22, 4) = (/&
+ & 9.2479E-05_JPRB,2.7473E-04_JPRB,2.9834E-04_JPRB,2.6936E-04_JPRB,7.0511E-04_JPRB/)  
+KBO( :, 1,23, 4) = (/&
+ & 1.5661E-05_JPRB,7.7570E-05_JPRB,9.5606E-05_JPRB,1.0649E-04_JPRB,3.5282E-04_JPRB/)  
+KBO( :, 2,23, 4) = (/&
+ & 2.4419E-05_JPRB,1.0492E-04_JPRB,1.2350E-04_JPRB,1.2569E-04_JPRB,4.0389E-04_JPRB/)  
+KBO( :, 3,23, 4) = (/&
+ & 3.7617E-05_JPRB,1.4021E-04_JPRB,1.5914E-04_JPRB,1.5253E-04_JPRB,4.5535E-04_JPRB/)  
+KBO( :, 4,23, 4) = (/&
+ & 5.6623E-05_JPRB,1.8459E-04_JPRB,2.0378E-04_JPRB,1.8772E-04_JPRB,5.0734E-04_JPRB/)  
+KBO( :, 5,23, 4) = (/&
+ & 8.2850E-05_JPRB,2.3955E-04_JPRB,2.5868E-04_JPRB,2.3168E-04_JPRB,5.6073E-04_JPRB/)  
+KBO( :, 1,24, 4) = (/&
+ & 1.3761E-05_JPRB,6.7313E-05_JPRB,8.2387E-05_JPRB,8.9985E-05_JPRB,2.7657E-04_JPRB/)  
+KBO( :, 2,24, 4) = (/&
+ & 2.1660E-05_JPRB,9.1214E-05_JPRB,1.0663E-04_JPRB,1.0703E-04_JPRB,3.1564E-04_JPRB/)  
+KBO( :, 3,24, 4) = (/&
+ & 3.3471E-05_JPRB,1.2198E-04_JPRB,1.3767E-04_JPRB,1.3062E-04_JPRB,3.5536E-04_JPRB/)  
+KBO( :, 4,24, 4) = (/&
+ & 5.0313E-05_JPRB,1.6066E-04_JPRB,1.7646E-04_JPRB,1.6127E-04_JPRB,3.9633E-04_JPRB/)  
+KBO( :, 5,24, 4) = (/&
+ & 7.3360E-05_JPRB,2.0829E-04_JPRB,2.2414E-04_JPRB,1.9939E-04_JPRB,4.3964E-04_JPRB/)  
+KBO( :, 1,25, 4) = (/&
+ & 1.2163E-05_JPRB,5.8632E-05_JPRB,7.1210E-05_JPRB,7.6289E-05_JPRB,2.1557E-04_JPRB/)  
+KBO( :, 2,25, 4) = (/&
+ & 1.9262E-05_JPRB,7.9563E-05_JPRB,9.2384E-05_JPRB,9.1431E-05_JPRB,2.4548E-04_JPRB/)  
+KBO( :, 3,25, 4) = (/&
+ & 2.9768E-05_JPRB,1.0645E-04_JPRB,1.1942E-04_JPRB,1.1222E-04_JPRB,2.7636E-04_JPRB/)  
+KBO( :, 4,25, 4) = (/&
+ & 4.4635E-05_JPRB,1.4006E-04_JPRB,1.5316E-04_JPRB,1.3892E-04_JPRB,3.0913E-04_JPRB/)  
+KBO( :, 5,25, 4) = (/&
+ & 6.4723E-05_JPRB,1.8122E-04_JPRB,1.9446E-04_JPRB,1.7203E-04_JPRB,3.4459E-04_JPRB/)  
+KBO( :, 1,26, 4) = (/&
+ & 1.0905E-05_JPRB,5.1509E-05_JPRB,6.1982E-05_JPRB,6.5048E-05_JPRB,1.6912E-04_JPRB/)  
+KBO( :, 2,26, 4) = (/&
+ & 1.7301E-05_JPRB,6.9938E-05_JPRB,8.0564E-05_JPRB,7.8594E-05_JPRB,1.9235E-04_JPRB/)  
+KBO( :, 3,26, 4) = (/&
+ & 2.6674E-05_JPRB,9.3478E-05_JPRB,1.0420E-04_JPRB,9.6933E-05_JPRB,2.1692E-04_JPRB/)  
+KBO( :, 4,26, 4) = (/&
+ & 3.9810E-05_JPRB,1.2260E-04_JPRB,1.3358E-04_JPRB,1.2031E-04_JPRB,2.4372E-04_JPRB/)  
+KBO( :, 5,26, 4) = (/&
+ & 5.7269E-05_JPRB,1.5819E-04_JPRB,1.6929E-04_JPRB,1.4904E-04_JPRB,2.7283E-04_JPRB/)  
+KBO( :, 1,27, 4) = (/&
+ & 9.7443E-06_JPRB,4.5256E-05_JPRB,5.3977E-05_JPRB,5.5564E-05_JPRB,1.3079E-04_JPRB/)  
+KBO( :, 2,27, 4) = (/&
+ & 1.5468E-05_JPRB,6.1434E-05_JPRB,7.0240E-05_JPRB,6.7661E-05_JPRB,1.4885E-04_JPRB/)  
+KBO( :, 3,27, 4) = (/&
+ & 2.3785E-05_JPRB,8.1876E-05_JPRB,9.0868E-05_JPRB,8.3801E-05_JPRB,1.6857E-04_JPRB/)  
+KBO( :, 4,27, 4) = (/&
+ & 3.5289E-05_JPRB,1.0705E-04_JPRB,1.1628E-04_JPRB,1.0418E-04_JPRB,1.9038E-04_JPRB/)  
+KBO( :, 5,27, 4) = (/&
+ & 5.0352E-05_JPRB,1.3763E-04_JPRB,1.4705E-04_JPRB,1.2891E-04_JPRB,2.1399E-04_JPRB/)  
+KBO( :, 1,28, 4) = (/&
+ & 8.6662E-06_JPRB,3.9710E-05_JPRB,4.6973E-05_JPRB,4.7545E-05_JPRB,9.9573E-05_JPRB/)  
+KBO( :, 2,28, 4) = (/&
+ & 1.3762E-05_JPRB,5.3808E-05_JPRB,6.1191E-05_JPRB,5.8312E-05_JPRB,1.1378E-04_JPRB/)  
+KBO( :, 3,28, 4) = (/&
+ & 2.1087E-05_JPRB,7.1458E-05_JPRB,7.9071E-05_JPRB,7.2428E-05_JPRB,1.2969E-04_JPRB/)  
+KBO( :, 4,28, 4) = (/&
+ & 3.1073E-05_JPRB,9.3127E-05_JPRB,1.0097E-04_JPRB,9.0079E-05_JPRB,1.4713E-04_JPRB/)  
+KBO( :, 5,28, 4) = (/&
+ & 4.4032E-05_JPRB,1.1919E-04_JPRB,1.2726E-04_JPRB,1.1128E-04_JPRB,1.6603E-04_JPRB/)  
+KBO( :, 1,29, 4) = (/&
+ & 7.7998E-06_JPRB,3.4996E-05_JPRB,4.1036E-05_JPRB,4.0865E-05_JPRB,7.6462E-05_JPRB/)  
+KBO( :, 2,29, 4) = (/&
+ & 1.2351E-05_JPRB,4.7253E-05_JPRB,5.3436E-05_JPRB,5.0409E-05_JPRB,8.7836E-05_JPRB/)  
+KBO( :, 3,29, 4) = (/&
+ & 1.8799E-05_JPRB,6.2498E-05_JPRB,6.8909E-05_JPRB,6.2727E-05_JPRB,1.0047E-04_JPRB/)  
+KBO( :, 4,29, 4) = (/&
+ & 2.7485E-05_JPRB,8.1095E-05_JPRB,8.7731E-05_JPRB,7.7973E-05_JPRB,1.1434E-04_JPRB/)  
+KBO( :, 5,29, 4) = (/&
+ & 3.8681E-05_JPRB,1.0324E-04_JPRB,1.1009E-04_JPRB,9.6092E-05_JPRB,1.2937E-04_JPRB/)  
+KBO( :, 1,30, 4) = (/&
+ & 7.0184E-06_JPRB,3.0793E-05_JPRB,3.5835E-05_JPRB,3.5181E-05_JPRB,5.8539E-05_JPRB/)  
+KBO( :, 2,30, 4) = (/&
+ & 1.1059E-05_JPRB,4.1419E-05_JPRB,4.6605E-05_JPRB,4.3585E-05_JPRB,6.7504E-05_JPRB/)  
+KBO( :, 3,30, 4) = (/&
+ & 1.6707E-05_JPRB,5.4550E-05_JPRB,5.9937E-05_JPRB,5.4295E-05_JPRB,7.7471E-05_JPRB/)  
+KBO( :, 4,30, 4) = (/&
+ & 2.4261E-05_JPRB,7.0416E-05_JPRB,7.6043E-05_JPRB,6.7394E-05_JPRB,8.8468E-05_JPRB/)  
+KBO( :, 5,30, 4) = (/&
+ & 3.3920E-05_JPRB,8.9259E-05_JPRB,9.5020E-05_JPRB,8.2834E-05_JPRB,1.0026E-04_JPRB/)  
+KBO( :, 1,31, 4) = (/&
+ & 6.3446E-06_JPRB,2.7130E-05_JPRB,3.1326E-05_JPRB,3.0364E-05_JPRB,4.4778E-05_JPRB/)  
+KBO( :, 2,31, 4) = (/&
+ & 9.9240E-06_JPRB,3.6330E-05_JPRB,4.0667E-05_JPRB,3.7732E-05_JPRB,5.1776E-05_JPRB/)  
+KBO( :, 3,31, 4) = (/&
+ & 1.4883E-05_JPRB,4.7593E-05_JPRB,5.2134E-05_JPRB,4.7015E-05_JPRB,5.9603E-05_JPRB/)  
+KBO( :, 4,31, 4) = (/&
+ & 2.1454E-05_JPRB,6.1120E-05_JPRB,6.5847E-05_JPRB,5.8207E-05_JPRB,6.8104E-05_JPRB/)  
+KBO( :, 5,31, 4) = (/&
+ & 2.9770E-05_JPRB,7.7114E-05_JPRB,8.1935E-05_JPRB,7.1309E-05_JPRB,7.7163E-05_JPRB/)  
+KBO( :, 1,32, 4) = (/&
+ & 5.7447E-06_JPRB,2.3909E-05_JPRB,2.7402E-05_JPRB,2.6256E-05_JPRB,3.4475E-05_JPRB/)  
+KBO( :, 2,32, 4) = (/&
+ & 8.9146E-06_JPRB,3.1849E-05_JPRB,3.5487E-05_JPRB,3.2695E-05_JPRB,3.9934E-05_JPRB/)  
+KBO( :, 3,32, 4) = (/&
+ & 1.3271E-05_JPRB,4.1481E-05_JPRB,4.5305E-05_JPRB,4.0703E-05_JPRB,4.6002E-05_JPRB/)  
+KBO( :, 4,32, 4) = (/&
+ & 1.8982E-05_JPRB,5.3015E-05_JPRB,5.6969E-05_JPRB,5.0230E-05_JPRB,5.2546E-05_JPRB/)  
+KBO( :, 5,32, 4) = (/&
+ & 2.6129E-05_JPRB,6.6634E-05_JPRB,7.0625E-05_JPRB,6.1359E-05_JPRB,5.9507E-05_JPRB/)  
+KBO( :, 1,33, 4) = (/&
+ & 5.1981E-06_JPRB,2.1048E-05_JPRB,2.3959E-05_JPRB,2.2727E-05_JPRB,2.6591E-05_JPRB/)  
+KBO( :, 2,33, 4) = (/&
+ & 8.0045E-06_JPRB,2.7863E-05_JPRB,3.0928E-05_JPRB,2.8329E-05_JPRB,3.0795E-05_JPRB/)  
+KBO( :, 3,33, 4) = (/&
+ & 1.1826E-05_JPRB,3.6107E-05_JPRB,3.9311E-05_JPRB,3.5200E-05_JPRB,3.5437E-05_JPRB/)  
+KBO( :, 4,33, 4) = (/&
+ & 1.6780E-05_JPRB,4.5955E-05_JPRB,4.9249E-05_JPRB,4.3321E-05_JPRB,4.0422E-05_JPRB/)  
+KBO( :, 5,33, 4) = (/&
+ & 2.2903E-05_JPRB,5.7519E-05_JPRB,6.0835E-05_JPRB,5.2765E-05_JPRB,4.5739E-05_JPRB/)  
+KBO( :, 1,34, 4) = (/&
+ & 4.6580E-06_JPRB,1.8365E-05_JPRB,2.0792E-05_JPRB,1.9562E-05_JPRB,2.0973E-05_JPRB/)  
+KBO( :, 2,34, 4) = (/&
+ & 7.1195E-06_JPRB,2.4178E-05_JPRB,2.6741E-05_JPRB,2.4385E-05_JPRB,2.4253E-05_JPRB/)  
+KBO( :, 3,34, 4) = (/&
+ & 1.0442E-05_JPRB,3.1196E-05_JPRB,3.3863E-05_JPRB,3.0227E-05_JPRB,2.7827E-05_JPRB/)  
+KBO( :, 4,34, 4) = (/&
+ & 1.4703E-05_JPRB,3.9556E-05_JPRB,4.2281E-05_JPRB,3.7105E-05_JPRB,3.1694E-05_JPRB/)  
+KBO( :, 5,34, 4) = (/&
+ & 1.9922E-05_JPRB,4.9351E-05_JPRB,5.2082E-05_JPRB,4.5102E-05_JPRB,3.5824E-05_JPRB/)  
+KBO( :, 1,35, 4) = (/&
+ & 3.9871E-06_JPRB,1.5551E-05_JPRB,1.7571E-05_JPRB,1.6475E-05_JPRB,1.6236E-05_JPRB/)  
+KBO( :, 2,35, 4) = (/&
+ & 6.0757E-06_JPRB,2.0414E-05_JPRB,2.2542E-05_JPRB,2.0527E-05_JPRB,1.8741E-05_JPRB/)  
+KBO( :, 3,35, 4) = (/&
+ & 8.8794E-06_JPRB,2.6281E-05_JPRB,2.8490E-05_JPRB,2.5405E-05_JPRB,2.1473E-05_JPRB/)  
+KBO( :, 4,35, 4) = (/&
+ & 1.2455E-05_JPRB,3.3253E-05_JPRB,3.5511E-05_JPRB,3.1147E-05_JPRB,2.4458E-05_JPRB/)  
+KBO( :, 5,35, 4) = (/&
+ & 1.6817E-05_JPRB,4.1417E-05_JPRB,4.3680E-05_JPRB,3.7812E-05_JPRB,2.7668E-05_JPRB/)  
+KBO( :, 1,36, 4) = (/&
+ & 3.2421E-06_JPRB,1.2741E-05_JPRB,1.4415E-05_JPRB,1.3532E-05_JPRB,1.2305E-05_JPRB/)  
+KBO( :, 2,36, 4) = (/&
+ & 4.9489E-06_JPRB,1.6721E-05_JPRB,1.8482E-05_JPRB,1.6856E-05_JPRB,1.4197E-05_JPRB/)  
+KBO( :, 3,36, 4) = (/&
+ & 7.2420E-06_JPRB,2.1525E-05_JPRB,2.3354E-05_JPRB,2.0857E-05_JPRB,1.6279E-05_JPRB/)  
+KBO( :, 4,36, 4) = (/&
+ & 1.0165E-05_JPRB,2.7235E-05_JPRB,2.9106E-05_JPRB,2.5564E-05_JPRB,1.8568E-05_JPRB/)  
+KBO( :, 5,36, 4) = (/&
+ & 1.3731E-05_JPRB,3.3924E-05_JPRB,3.5798E-05_JPRB,3.1035E-05_JPRB,2.1028E-05_JPRB/)  
+KBO( :, 1,37, 4) = (/&
+ & 2.4960E-06_JPRB,1.0060E-05_JPRB,1.1424E-05_JPRB,1.0782E-05_JPRB,9.5086E-06_JPRB/)  
+KBO( :, 2,37, 4) = (/&
+ & 3.8363E-06_JPRB,1.3236E-05_JPRB,1.4673E-05_JPRB,1.3431E-05_JPRB,1.0977E-05_JPRB/)  
+KBO( :, 3,37, 4) = (/&
+ & 5.6488E-06_JPRB,1.7076E-05_JPRB,1.8572E-05_JPRB,1.6635E-05_JPRB,1.2594E-05_JPRB/)  
+KBO( :, 4,37, 4) = (/&
+ & 7.9747E-06_JPRB,2.1652E-05_JPRB,2.3188E-05_JPRB,2.0415E-05_JPRB,1.4374E-05_JPRB/)  
+KBO( :, 5,37, 4) = (/&
+ & 1.0825E-05_JPRB,2.7021E-05_JPRB,2.8566E-05_JPRB,2.4811E-05_JPRB,1.6291E-05_JPRB/)  
+KBO( :, 1,38, 4) = (/&
+ & 1.9124E-06_JPRB,7.9183E-06_JPRB,9.0316E-06_JPRB,8.5743E-06_JPRB,7.3236E-06_JPRB/)  
+KBO( :, 2,38, 4) = (/&
+ & 2.9610E-06_JPRB,1.0450E-05_JPRB,1.1621E-05_JPRB,1.0680E-05_JPRB,8.4614E-06_JPRB/)  
+KBO( :, 3,38, 4) = (/&
+ & 4.3884E-06_JPRB,1.3515E-05_JPRB,1.4735E-05_JPRB,1.3241E-05_JPRB,9.7136E-06_JPRB/)  
+KBO( :, 4,38, 4) = (/&
+ & 6.2344E-06_JPRB,1.7177E-05_JPRB,1.8435E-05_JPRB,1.6272E-05_JPRB,1.1094E-05_JPRB/)  
+KBO( :, 5,38, 4) = (/&
+ & 8.5074E-06_JPRB,2.1480E-05_JPRB,2.2749E-05_JPRB,1.9801E-05_JPRB,1.2587E-05_JPRB/)  
+KBO( :, 1,39, 4) = (/&
+ & 1.4627E-06_JPRB,6.2280E-06_JPRB,7.1358E-06_JPRB,6.8164E-06_JPRB,5.6091E-06_JPRB/)  
+KBO( :, 2,39, 4) = (/&
+ & 2.2819E-06_JPRB,8.2437E-06_JPRB,9.1991E-06_JPRB,8.4900E-06_JPRB,6.4837E-06_JPRB/)  
+KBO( :, 3,39, 4) = (/&
+ & 3.4040E-06_JPRB,1.0689E-05_JPRB,1.1687E-05_JPRB,1.0535E-05_JPRB,7.4507E-06_JPRB/)  
+KBO( :, 4,39, 4) = (/&
+ & 4.8667E-06_JPRB,1.3619E-05_JPRB,1.4649E-05_JPRB,1.2965E-05_JPRB,8.5144E-06_JPRB/)  
+KBO( :, 5,39, 4) = (/&
+ & 6.6789E-06_JPRB,1.7065E-05_JPRB,1.8109E-05_JPRB,1.5796E-05_JPRB,9.6724E-06_JPRB/)  
+KBO( :, 1,40, 4) = (/&
+ & 1.0675E-06_JPRB,4.7580E-06_JPRB,5.4948E-06_JPRB,5.3059E-06_JPRB,4.3235E-06_JPRB/)  
+KBO( :, 2,40, 4) = (/&
+ & 1.6854E-06_JPRB,6.3316E-06_JPRB,7.1065E-06_JPRB,6.6059E-06_JPRB,5.0037E-06_JPRB/)  
+KBO( :, 3,40, 4) = (/&
+ & 2.5416E-06_JPRB,8.2475E-06_JPRB,9.0584E-06_JPRB,8.2078E-06_JPRB,5.7598E-06_JPRB/)  
+KBO( :, 4,40, 4) = (/&
+ & 3.6732E-06_JPRB,1.0552E-05_JPRB,1.1392E-05_JPRB,1.0125E-05_JPRB,6.5921E-06_JPRB/)  
+KBO( :, 5,40, 4) = (/&
+ & 5.0895E-06_JPRB,1.3270E-05_JPRB,1.4125E-05_JPRB,1.2362E-05_JPRB,7.4983E-06_JPRB/)  
+KBO( :, 1,41, 4) = (/&
+ & 7.7161E-07_JPRB,3.6153E-06_JPRB,4.2135E-06_JPRB,4.1208E-06_JPRB,3.3291E-06_JPRB/)  
+KBO( :, 2,41, 4) = (/&
+ & 1.2341E-06_JPRB,4.8398E-06_JPRB,5.4667E-06_JPRB,5.1245E-06_JPRB,3.8572E-06_JPRB/)  
+KBO( :, 3,41, 4) = (/&
+ & 1.8830E-06_JPRB,6.3358E-06_JPRB,6.9937E-06_JPRB,6.3742E-06_JPRB,4.4475E-06_JPRB/)  
+KBO( :, 4,41, 4) = (/&
+ & 2.7524E-06_JPRB,8.1422E-06_JPRB,8.8253E-06_JPRB,7.8806E-06_JPRB,5.1001E-06_JPRB/)  
+KBO( :, 5,41, 4) = (/&
+ & 3.8533E-06_JPRB,1.0280E-05_JPRB,1.0980E-05_JPRB,9.6445E-06_JPRB,5.8088E-06_JPRB/)  
+KBO( :, 1,42, 4) = (/&
+ & 5.5525E-07_JPRB,2.7416E-06_JPRB,3.2273E-06_JPRB,3.2019E-06_JPRB,2.5561E-06_JPRB/)  
+KBO( :, 2,42, 4) = (/&
+ & 8.9993E-07_JPRB,3.6924E-06_JPRB,4.1998E-06_JPRB,3.9740E-06_JPRB,2.9638E-06_JPRB/)  
+KBO( :, 3,42, 4) = (/&
+ & 1.3900E-06_JPRB,4.8597E-06_JPRB,5.3933E-06_JPRB,4.9465E-06_JPRB,3.4230E-06_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART17',1,ZHOOK_HANDLE)
+END SUBROUTINE PART17
+
+
+SUBROUTINE PART18
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART18',0,ZHOOK_HANDLE)
+
+
+KBO( :, 4,42, 4) = (/&
+ & 2.0552E-06_JPRB,6.2735E-06_JPRB,6.8295E-06_JPRB,6.1284E-06_JPRB,3.9326E-06_JPRB/)  
+KBO( :, 5,42, 4) = (/&
+ & 2.9084E-06_JPRB,7.9541E-06_JPRB,8.5264E-06_JPRB,7.5190E-06_JPRB,4.4871E-06_JPRB/)  
+KBO( :, 1,43, 4) = (/&
+ & 3.8700E-07_JPRB,2.0403E-06_JPRB,2.4343E-06_JPRB,2.4629E-06_JPRB,1.9559E-06_JPRB/)  
+KBO( :, 2,43, 4) = (/&
+ & 6.3768E-07_JPRB,2.7683E-06_JPRB,3.1780E-06_JPRB,3.0455E-06_JPRB,2.2677E-06_JPRB/)  
+KBO( :, 3,43, 4) = (/&
+ & 9.9992E-07_JPRB,3.6688E-06_JPRB,4.0996E-06_JPRB,3.7915E-06_JPRB,2.6241E-06_JPRB/)  
+KBO( :, 4,43, 4) = (/&
+ & 1.4987E-06_JPRB,4.7637E-06_JPRB,5.2140E-06_JPRB,4.7076E-06_JPRB,3.0207E-06_JPRB/)  
+KBO( :, 5,43, 4) = (/&
+ & 2.1501E-06_JPRB,6.0714E-06_JPRB,6.5361E-06_JPRB,5.7934E-06_JPRB,3.4541E-06_JPRB/)  
+KBO( :, 1,44, 4) = (/&
+ & 2.6473E-07_JPRB,1.5026E-06_JPRB,1.8221E-06_JPRB,1.8897E-06_JPRB,1.4930E-06_JPRB/)  
+KBO( :, 2,44, 4) = (/&
+ & 4.4431E-07_JPRB,2.0561E-06_JPRB,2.3866E-06_JPRB,2.3229E-06_JPRB,1.7300E-06_JPRB/)  
+KBO( :, 3,44, 4) = (/&
+ & 7.0836E-07_JPRB,2.7457E-06_JPRB,3.0927E-06_JPRB,2.8894E-06_JPRB,2.0046E-06_JPRB/)  
+KBO( :, 4,44, 4) = (/&
+ & 1.0778E-06_JPRB,3.5888E-06_JPRB,3.9529E-06_JPRB,3.5941E-06_JPRB,2.3122E-06_JPRB/)  
+KBO( :, 5,44, 4) = (/&
+ & 1.5696E-06_JPRB,4.6015E-06_JPRB,4.9786E-06_JPRB,4.4373E-06_JPRB,2.6499E-06_JPRB/)  
+KBO( :, 1,45, 4) = (/&
+ & 1.7988E-07_JPRB,1.1038E-06_JPRB,1.3625E-06_JPRB,1.4540E-06_JPRB,1.1371E-06_JPRB/)  
+KBO( :, 2,45, 4) = (/&
+ & 3.0761E-07_JPRB,1.5225E-06_JPRB,1.7898E-06_JPRB,1.7738E-06_JPRB,1.3160E-06_JPRB/)  
+KBO( :, 3,45, 4) = (/&
+ & 4.9893E-07_JPRB,2.0494E-06_JPRB,2.3287E-06_JPRB,2.2017E-06_JPRB,1.5258E-06_JPRB/)  
+KBO( :, 4,45, 4) = (/&
+ & 7.7117E-07_JPRB,2.6974E-06_JPRB,2.9913E-06_JPRB,2.7416E-06_JPRB,1.7632E-06_JPRB/)  
+KBO( :, 5,45, 4) = (/&
+ & 1.1399E-06_JPRB,3.4797E-06_JPRB,3.7851E-06_JPRB,3.3943E-06_JPRB,2.0252E-06_JPRB/)  
+KBO( :, 1,46, 4) = (/&
+ & 1.1995E-07_JPRB,8.0292E-07_JPRB,1.0121E-06_JPRB,1.1184E-06_JPRB,8.6488E-07_JPRB/)  
+KBO( :, 2,46, 4) = (/&
+ & 2.0923E-07_JPRB,1.1166E-06_JPRB,1.3331E-06_JPRB,1.3511E-06_JPRB,9.9849E-07_JPRB/)  
+KBO( :, 3,46, 4) = (/&
+ & 3.4582E-07_JPRB,1.5161E-06_JPRB,1.7409E-06_JPRB,1.6700E-06_JPRB,1.1579E-06_JPRB/)  
+KBO( :, 4,46, 4) = (/&
+ & 5.4384E-07_JPRB,2.0114E-06_JPRB,2.2481E-06_JPRB,2.0803E-06_JPRB,1.3401E-06_JPRB/)  
+KBO( :, 5,46, 4) = (/&
+ & 8.1669E-07_JPRB,2.6123E-06_JPRB,2.8596E-06_JPRB,2.5822E-06_JPRB,1.5424E-06_JPRB/)  
+KBO( :, 1,47, 4) = (/&
+ & 7.7552E-08_JPRB,5.7430E-07_JPRB,7.4352E-07_JPRB,8.5913E-07_JPRB,6.5834E-07_JPRB/)  
+KBO( :, 2,47, 4) = (/&
+ & 1.3815E-07_JPRB,8.0547E-07_JPRB,9.8055E-07_JPRB,1.0241E-06_JPRB,7.5785E-07_JPRB/)  
+KBO( :, 3,47, 4) = (/&
+ & 2.3338E-07_JPRB,1.1046E-06_JPRB,1.2855E-06_JPRB,1.2567E-06_JPRB,8.7753E-07_JPRB/)  
+KBO( :, 4,47, 4) = (/&
+ & 3.7439E-07_JPRB,1.4793E-06_JPRB,1.6690E-06_JPRB,1.5636E-06_JPRB,1.0168E-06_JPRB/)  
+KBO( :, 5,47, 4) = (/&
+ & 5.7238E-07_JPRB,1.9364E-06_JPRB,2.1357E-06_JPRB,1.9451E-06_JPRB,1.1726E-06_JPRB/)  
+KBO( :, 1,48, 4) = (/&
+ & 4.9759E-08_JPRB,4.0982E-07_JPRB,5.4734E-07_JPRB,6.6597E-07_JPRB,5.0055E-07_JPRB/)  
+KBO( :, 2,48, 4) = (/&
+ & 9.0399E-08_JPRB,5.7899E-07_JPRB,7.2041E-07_JPRB,7.7952E-07_JPRB,5.7407E-07_JPRB/)  
+KBO( :, 3,48, 4) = (/&
+ & 1.5613E-07_JPRB,8.0155E-07_JPRB,9.4754E-07_JPRB,9.4742E-07_JPRB,6.6288E-07_JPRB/)  
+KBO( :, 4,48, 4) = (/&
+ & 2.5563E-07_JPRB,1.0837E-06_JPRB,1.2359E-06_JPRB,1.1750E-06_JPRB,7.6860E-07_JPRB/)  
+KBO( :, 5,48, 4) = (/&
+ & 3.9824E-07_JPRB,1.4310E-06_JPRB,1.5913E-06_JPRB,1.4634E-06_JPRB,8.8756E-07_JPRB/)  
+KBO( :, 1,49, 4) = (/&
+ & 3.1747E-08_JPRB,2.9202E-07_JPRB,4.0458E-07_JPRB,5.2185E-07_JPRB,3.8074E-07_JPRB/)  
+KBO( :, 2,49, 4) = (/&
+ & 5.8620E-08_JPRB,4.1476E-07_JPRB,5.2889E-07_JPRB,5.9643E-07_JPRB,4.3322E-07_JPRB/)  
+KBO( :, 3,49, 4) = (/&
+ & 1.0349E-07_JPRB,5.7925E-07_JPRB,6.9731E-07_JPRB,7.1647E-07_JPRB,4.9889E-07_JPRB/)  
+KBO( :, 4,49, 4) = (/&
+ & 1.7311E-07_JPRB,7.9083E-07_JPRB,9.1312E-07_JPRB,8.8335E-07_JPRB,5.7760E-07_JPRB/)  
+KBO( :, 5,49, 4) = (/&
+ & 2.7502E-07_JPRB,1.0539E-06_JPRB,1.1826E-06_JPRB,1.1000E-06_JPRB,6.6799E-07_JPRB/)  
+KBO( :, 1,50, 4) = (/&
+ & 2.0584E-08_JPRB,2.1008E-07_JPRB,3.0301E-07_JPRB,4.1495E-07_JPRB,2.9497E-07_JPRB/)  
+KBO( :, 2,50, 4) = (/&
+ & 3.8348E-08_JPRB,2.9905E-07_JPRB,3.9149E-07_JPRB,4.6171E-07_JPRB,3.3200E-07_JPRB/)  
+KBO( :, 3,50, 4) = (/&
+ & 6.9001E-08_JPRB,4.2073E-07_JPRB,5.1626E-07_JPRB,5.4677E-07_JPRB,3.8063E-07_JPRB/)  
+KBO( :, 4,50, 4) = (/&
+ & 1.1783E-07_JPRB,5.7965E-07_JPRB,6.7829E-07_JPRB,6.6887E-07_JPRB,4.3991E-07_JPRB/)  
+KBO( :, 5,50, 4) = (/&
+ & 1.9076E-07_JPRB,7.7947E-07_JPRB,8.8269E-07_JPRB,8.3154E-07_JPRB,5.0913E-07_JPRB/)  
+KBO( :, 1,51, 4) = (/&
+ & 1.3493E-08_JPRB,1.5211E-07_JPRB,2.2929E-07_JPRB,3.3385E-07_JPRB,2.3077E-07_JPRB/)  
+KBO( :, 2,51, 4) = (/&
+ & 2.5122E-08_JPRB,2.1611E-07_JPRB,2.9145E-07_JPRB,3.6106E-07_JPRB,2.5676E-07_JPRB/)  
+KBO( :, 3,51, 4) = (/&
+ & 4.5978E-08_JPRB,3.0596E-07_JPRB,3.8316E-07_JPRB,4.1984E-07_JPRB,2.9257E-07_JPRB/)  
+KBO( :, 4,51, 4) = (/&
+ & 8.0110E-08_JPRB,4.2511E-07_JPRB,5.0483E-07_JPRB,5.0877E-07_JPRB,3.3737E-07_JPRB/)  
+KBO( :, 5,51, 4) = (/&
+ & 1.3215E-07_JPRB,5.7668E-07_JPRB,6.5965E-07_JPRB,6.3029E-07_JPRB,3.9043E-07_JPRB/)  
+KBO( :, 1,52, 4) = (/&
+ & 8.9230E-09_JPRB,1.1071E-07_JPRB,1.7523E-07_JPRB,2.7190E-07_JPRB,1.8118E-07_JPRB/)  
+KBO( :, 2,52, 4) = (/&
+ & 1.6411E-08_JPRB,1.5606E-07_JPRB,2.1785E-07_JPRB,2.8505E-07_JPRB,1.9923E-07_JPRB/)  
+KBO( :, 3,52, 4) = (/&
+ & 3.0439E-08_JPRB,2.2195E-07_JPRB,2.8438E-07_JPRB,3.2394E-07_JPRB,2.2485E-07_JPRB/)  
+KBO( :, 4,52, 4) = (/&
+ & 5.4073E-08_JPRB,3.1080E-07_JPRB,3.7535E-07_JPRB,3.8813E-07_JPRB,2.5827E-07_JPRB/)  
+KBO( :, 5,52, 4) = (/&
+ & 9.0961E-08_JPRB,4.2534E-07_JPRB,4.9215E-07_JPRB,4.7800E-07_JPRB,2.9864E-07_JPRB/)  
+KBO( :, 1,53, 4) = (/&
+ & 5.9876E-09_JPRB,8.1201E-08_JPRB,1.3536E-07_JPRB,2.2434E-07_JPRB,1.4306E-07_JPRB/)  
+KBO( :, 2,53, 4) = (/&
+ & 1.0717E-08_JPRB,1.1272E-07_JPRB,1.6383E-07_JPRB,2.2748E-07_JPRB,1.5495E-07_JPRB/)  
+KBO( :, 3,53, 4) = (/&
+ & 2.0015E-08_JPRB,1.6060E-07_JPRB,2.1125E-07_JPRB,2.5162E-07_JPRB,1.7284E-07_JPRB/)  
+KBO( :, 4,53, 4) = (/&
+ & 3.6209E-08_JPRB,2.2643E-07_JPRB,2.7869E-07_JPRB,2.9706E-07_JPRB,1.9723E-07_JPRB/)  
+KBO( :, 5,53, 4) = (/&
+ & 6.2161E-08_JPRB,3.1263E-07_JPRB,3.6655E-07_JPRB,3.6292E-07_JPRB,2.2770E-07_JPRB/)  
+KBO( :, 1,54, 4) = (/&
+ & 4.1655E-09_JPRB,6.0699E-08_JPRB,1.0631E-07_JPRB,1.8695E-07_JPRB,1.1504E-07_JPRB/)  
+KBO( :, 2,54, 4) = (/&
+ & 7.1662E-09_JPRB,8.2506E-08_JPRB,1.2498E-07_JPRB,1.8360E-07_JPRB,1.2311E-07_JPRB/)  
+KBO( :, 3,54, 4) = (/&
+ & 1.3353E-08_JPRB,1.1732E-07_JPRB,1.5863E-07_JPRB,1.9781E-07_JPRB,1.3609E-07_JPRB/)  
+KBO( :, 4,54, 4) = (/&
+ & 2.4527E-08_JPRB,1.6632E-07_JPRB,2.0860E-07_JPRB,2.2954E-07_JPRB,1.5431E-07_JPRB/)  
+KBO( :, 5,54, 4) = (/&
+ & 4.2883E-08_JPRB,2.3139E-07_JPRB,2.7507E-07_JPRB,2.7789E-07_JPRB,1.7766E-07_JPRB/)  
+KBO( :, 1,55, 4) = (/&
+ & 2.9815E-09_JPRB,4.5994E-08_JPRB,8.4525E-08_JPRB,1.5735E-07_JPRB,9.3462E-08_JPRB/)  
+KBO( :, 2,55, 4) = (/&
+ & 4.8723E-09_JPRB,6.0940E-08_JPRB,9.6391E-08_JPRB,1.4974E-07_JPRB,9.9006E-08_JPRB/)  
+KBO( :, 3,55, 4) = (/&
+ & 8.9683E-09_JPRB,8.6061E-08_JPRB,1.1996E-07_JPRB,1.5698E-07_JPRB,1.0869E-07_JPRB/)  
+KBO( :, 4,55, 4) = (/&
+ & 1.6661E-08_JPRB,1.2249E-07_JPRB,1.5677E-07_JPRB,1.7852E-07_JPRB,1.2250E-07_JPRB/)  
+KBO( :, 5,55, 4) = (/&
+ & 2.9629E-08_JPRB,1.7161E-07_JPRB,2.0705E-07_JPRB,2.1394E-07_JPRB,1.4060E-07_JPRB/)  
+KBO( :, 1,56, 4) = (/&
+ & 2.1861E-09_JPRB,3.5243E-08_JPRB,6.7842E-08_JPRB,1.3338E-07_JPRB,7.6071E-08_JPRB/)  
+KBO( :, 2,56, 4) = (/&
+ & 3.3518E-09_JPRB,4.5292E-08_JPRB,7.4962E-08_JPRB,1.2335E-07_JPRB,7.9965E-08_JPRB/)  
+KBO( :, 3,56, 4) = (/&
+ & 6.0272E-09_JPRB,6.3165E-08_JPRB,9.1168E-08_JPRB,1.2562E-07_JPRB,8.7021E-08_JPRB/)  
+KBO( :, 4,56, 4) = (/&
+ & 1.1269E-08_JPRB,9.0068E-08_JPRB,1.1792E-07_JPRB,1.3956E-07_JPRB,9.7479E-08_JPRB/)  
+KBO( :, 5,56, 4) = (/&
+ & 2.0362E-08_JPRB,1.2698E-07_JPRB,1.5571E-07_JPRB,1.6515E-07_JPRB,1.1148E-07_JPRB/)  
+KBO( :, 1,57, 4) = (/&
+ & 1.6409E-09_JPRB,2.7386E-08_JPRB,5.4848E-08_JPRB,1.1388E-07_JPRB,6.2033E-08_JPRB/)  
+KBO( :, 2,57, 4) = (/&
+ & 2.3428E-09_JPRB,3.3930E-08_JPRB,5.8875E-08_JPRB,1.0251E-07_JPRB,6.4870E-08_JPRB/)  
+KBO( :, 3,57, 4) = (/&
+ & 4.0625E-09_JPRB,4.6423E-08_JPRB,6.9674E-08_JPRB,1.0133E-07_JPRB,6.9866E-08_JPRB/)  
+KBO( :, 4,57, 4) = (/&
+ & 7.5880E-09_JPRB,6.6138E-08_JPRB,8.8862E-08_JPRB,1.0977E-07_JPRB,7.7746E-08_JPRB/)  
+KBO( :, 5,57, 4) = (/&
+ & 1.3915E-08_JPRB,9.3738E-08_JPRB,1.1702E-07_JPRB,1.2786E-07_JPRB,8.8586E-08_JPRB/)  
+KBO( :, 1,58, 4) = (/&
+ & 1.2635E-09_JPRB,2.1604E-08_JPRB,4.4731E-08_JPRB,9.7552E-08_JPRB,5.0828E-08_JPRB/)  
+KBO( :, 2,58, 4) = (/&
+ & 1.6814E-09_JPRB,2.5762E-08_JPRB,4.6786E-08_JPRB,8.5976E-08_JPRB,5.2911E-08_JPRB/)  
+KBO( :, 3,58, 4) = (/&
+ & 2.7835E-09_JPRB,3.4427E-08_JPRB,5.3815E-08_JPRB,8.2469E-08_JPRB,5.6515E-08_JPRB/)  
+KBO( :, 4,58, 4) = (/&
+ & 5.1497E-09_JPRB,4.8806E-08_JPRB,6.7425E-08_JPRB,8.7085E-08_JPRB,6.2504E-08_JPRB/)  
+KBO( :, 5,58, 4) = (/&
+ & 9.5533E-09_JPRB,6.9446E-08_JPRB,8.8336E-08_JPRB,9.9625E-08_JPRB,7.0988E-08_JPRB/)  
+KBO( :, 1,59, 4) = (/&
+ & 1.0158E-09_JPRB,1.7490E-08_JPRB,3.6651E-08_JPRB,8.1330E-08_JPRB,4.2750E-08_JPRB/)  
+KBO( :, 2,59, 4) = (/&
+ & 1.3161E-09_JPRB,2.0543E-08_JPRB,3.7942E-08_JPRB,7.1098E-08_JPRB,4.4506E-08_JPRB/)  
+KBO( :, 3,59, 4) = (/&
+ & 2.1325E-09_JPRB,2.7191E-08_JPRB,4.3180E-08_JPRB,6.7506E-08_JPRB,4.7664E-08_JPRB/)  
+KBO( :, 4,59, 4) = (/&
+ & 3.9206E-09_JPRB,3.8435E-08_JPRB,5.3711E-08_JPRB,7.0587E-08_JPRB,5.2961E-08_JPRB/)  
+KBO( :, 5,59, 4) = (/&
+ & 7.2991E-09_JPRB,5.4760E-08_JPRB,7.0199E-08_JPRB,8.0158E-08_JPRB,6.0356E-08_JPRB/)  
+KBO( :, 1,13, 5) = (/&
+ & 4.7279E-04_JPRB,8.7098E-04_JPRB,9.0543E-04_JPRB,9.3823E-04_JPRB,7.8919E-03_JPRB/)  
+KBO( :, 2,13, 5) = (/&
+ & 6.4177E-04_JPRB,1.1728E-03_JPRB,1.1865E-03_JPRB,1.1108E-03_JPRB,8.6809E-03_JPRB/)  
+KBO( :, 3,13, 5) = (/&
+ & 8.7771E-04_JPRB,1.5520E-03_JPRB,1.5457E-03_JPRB,1.3624E-03_JPRB,9.6358E-03_JPRB/)  
+KBO( :, 4,13, 5) = (/&
+ & 1.1913E-03_JPRB,2.0247E-03_JPRB,1.9864E-03_JPRB,1.6883E-03_JPRB,1.0697E-02_JPRB/)  
+KBO( :, 5,13, 5) = (/&
+ & 1.5849E-03_JPRB,2.6087E-03_JPRB,2.5214E-03_JPRB,2.0902E-03_JPRB,1.1832E-02_JPRB/)  
+KBO( :, 1,14, 5) = (/&
+ & 3.9797E-04_JPRB,7.4264E-04_JPRB,7.7131E-04_JPRB,7.8917E-04_JPRB,6.3875E-03_JPRB/)  
+KBO( :, 2,14, 5) = (/&
+ & 5.4883E-04_JPRB,1.0041E-03_JPRB,1.0164E-03_JPRB,9.4462E-04_JPRB,7.1228E-03_JPRB/)  
+KBO( :, 3,14, 5) = (/&
+ & 7.5764E-04_JPRB,1.3360E-03_JPRB,1.3281E-03_JPRB,1.1660E-03_JPRB,7.9451E-03_JPRB/)  
+KBO( :, 4,14, 5) = (/&
+ & 1.0318E-03_JPRB,1.7525E-03_JPRB,1.7145E-03_JPRB,1.4506E-03_JPRB,8.8337E-03_JPRB/)  
+KBO( :, 5,14, 5) = (/&
+ & 1.3764E-03_JPRB,2.2658E-03_JPRB,2.1860E-03_JPRB,1.8014E-03_JPRB,9.7391E-03_JPRB/)  
+KBO( :, 1,15, 5) = (/&
+ & 3.3164E-04_JPRB,6.3085E-04_JPRB,6.5753E-04_JPRB,6.6377E-04_JPRB,4.8736E-03_JPRB/)  
+KBO( :, 2,15, 5) = (/&
+ & 4.6431E-04_JPRB,8.5791E-04_JPRB,8.7041E-04_JPRB,8.0246E-04_JPRB,5.4864E-03_JPRB/)  
+KBO( :, 3,15, 5) = (/&
+ & 6.4635E-04_JPRB,1.1477E-03_JPRB,1.1413E-03_JPRB,9.9664E-04_JPRB,6.1519E-03_JPRB/)  
+KBO( :, 4,15, 5) = (/&
+ & 8.8542E-04_JPRB,1.5118E-03_JPRB,1.4797E-03_JPRB,1.2450E-03_JPRB,6.8384E-03_JPRB/)  
+KBO( :, 5,15, 5) = (/&
+ & 1.1860E-03_JPRB,1.9607E-03_JPRB,1.8917E-03_JPRB,1.5514E-03_JPRB,7.5330E-03_JPRB/)  
+KBO( :, 1,16, 5) = (/&
+ & 2.7547E-04_JPRB,5.3540E-04_JPRB,5.5986E-04_JPRB,5.5850E-04_JPRB,3.5571E-03_JPRB/)  
+KBO( :, 2,16, 5) = (/&
+ & 3.9076E-04_JPRB,7.3210E-04_JPRB,7.4449E-04_JPRB,6.8182E-04_JPRB,4.0376E-03_JPRB/)  
+KBO( :, 3,16, 5) = (/&
+ & 5.4914E-04_JPRB,9.8388E-04_JPRB,9.7975E-04_JPRB,8.5148E-04_JPRB,4.5400E-03_JPRB/)  
+KBO( :, 4,16, 5) = (/&
+ & 7.5647E-04_JPRB,1.3013E-03_JPRB,1.2750E-03_JPRB,1.0673E-03_JPRB,5.0491E-03_JPRB/)  
+KBO( :, 5,16, 5) = (/&
+ & 1.0168E-03_JPRB,1.6894E-03_JPRB,1.6327E-03_JPRB,1.3347E-03_JPRB,5.5864E-03_JPRB/)  
+KBO( :, 1,17, 5) = (/&
+ & 2.3152E-04_JPRB,4.5640E-04_JPRB,4.7753E-04_JPRB,4.7152E-04_JPRB,2.6479E-03_JPRB/)  
+KBO( :, 2,17, 5) = (/&
+ & 3.3215E-04_JPRB,6.2600E-04_JPRB,6.3690E-04_JPRB,5.8069E-04_JPRB,3.0163E-03_JPRB/)  
+KBO( :, 3,17, 5) = (/&
+ & 4.6960E-04_JPRB,8.4466E-04_JPRB,8.4113E-04_JPRB,7.2795E-04_JPRB,3.3924E-03_JPRB/)  
+KBO( :, 4,17, 5) = (/&
+ & 6.4890E-04_JPRB,1.1190E-03_JPRB,1.0981E-03_JPRB,9.1560E-04_JPRB,3.7876E-03_JPRB/)  
+KBO( :, 5,17, 5) = (/&
+ & 8.7357E-04_JPRB,1.4542E-03_JPRB,1.4067E-03_JPRB,1.1490E-03_JPRB,4.2015E-03_JPRB/)  
+KBO( :, 1,18, 5) = (/&
+ & 1.9932E-04_JPRB,3.9153E-04_JPRB,4.0894E-04_JPRB,3.9983E-04_JPRB,2.0392E-03_JPRB/)  
+KBO( :, 2,18, 5) = (/&
+ & 2.8740E-04_JPRB,5.3802E-04_JPRB,5.4670E-04_JPRB,4.9548E-04_JPRB,2.3218E-03_JPRB/)  
+KBO( :, 3,18, 5) = (/&
+ & 4.0688E-04_JPRB,7.2769E-04_JPRB,7.2473E-04_JPRB,6.2367E-04_JPRB,2.6171E-03_JPRB/)  
+KBO( :, 4,18, 5) = (/&
+ & 5.6212E-04_JPRB,9.6442E-04_JPRB,9.4622E-04_JPRB,7.8767E-04_JPRB,2.9286E-03_JPRB/)  
+KBO( :, 5,18, 5) = (/&
+ & 7.5657E-04_JPRB,1.2523E-03_JPRB,1.2126E-03_JPRB,9.8987E-04_JPRB,3.2584E-03_JPRB/)  
+KBO( :, 1,19, 5) = (/&
+ & 1.7300E-04_JPRB,3.3615E-04_JPRB,3.5010E-04_JPRB,3.3920E-04_JPRB,1.6249E-03_JPRB/)  
+KBO( :, 2,19, 5) = (/&
+ & 2.4990E-04_JPRB,4.6314E-04_JPRB,4.6930E-04_JPRB,4.2253E-04_JPRB,1.8509E-03_JPRB/)  
+KBO( :, 3,19, 5) = (/&
+ & 3.5374E-04_JPRB,6.2681E-04_JPRB,6.2354E-04_JPRB,5.3462E-04_JPRB,2.0903E-03_JPRB/)  
+KBO( :, 4,19, 5) = (/&
+ & 4.8808E-04_JPRB,8.3000E-04_JPRB,8.1368E-04_JPRB,6.7693E-04_JPRB,2.3442E-03_JPRB/)  
+KBO( :, 5,19, 5) = (/&
+ & 6.5622E-04_JPRB,1.0763E-03_JPRB,1.0415E-03_JPRB,8.5100E-04_JPRB,2.6149E-03_JPRB/)  
+KBO( :, 1,20, 5) = (/&
+ & 1.5202E-04_JPRB,2.9089E-04_JPRB,3.0118E-04_JPRB,2.8847E-04_JPRB,1.3195E-03_JPRB/)  
+KBO( :, 2,20, 5) = (/&
+ & 2.1947E-04_JPRB,4.0137E-04_JPRB,4.0488E-04_JPRB,3.6160E-04_JPRB,1.5051E-03_JPRB/)  
+KBO( :, 3,20, 5) = (/&
+ & 3.1005E-04_JPRB,5.4229E-04_JPRB,5.3773E-04_JPRB,4.5934E-04_JPRB,1.7011E-03_JPRB/)  
+KBO( :, 4,20, 5) = (/&
+ & 4.2687E-04_JPRB,7.1641E-04_JPRB,7.0062E-04_JPRB,5.8213E-04_JPRB,1.9126E-03_JPRB/)  
+KBO( :, 5,20, 5) = (/&
+ & 5.7243E-04_JPRB,9.2825E-04_JPRB,8.9565E-04_JPRB,7.3135E-04_JPRB,2.1352E-03_JPRB/)  
+KBO( :, 1,21, 5) = (/&
+ & 1.3342E-04_JPRB,2.5207E-04_JPRB,2.5927E-04_JPRB,2.4529E-04_JPRB,1.0741E-03_JPRB/)  
+KBO( :, 2,21, 5) = (/&
+ & 1.9233E-04_JPRB,3.4753E-04_JPRB,3.4906E-04_JPRB,3.0934E-04_JPRB,1.2262E-03_JPRB/)  
+KBO( :, 3,21, 5) = (/&
+ & 2.7108E-04_JPRB,4.6836E-04_JPRB,4.6295E-04_JPRB,3.9387E-04_JPRB,1.3885E-03_JPRB/)  
+KBO( :, 4,21, 5) = (/&
+ & 3.7228E-04_JPRB,6.1777E-04_JPRB,6.0200E-04_JPRB,4.9887E-04_JPRB,1.5626E-03_JPRB/)  
+KBO( :, 5,21, 5) = (/&
+ & 4.9911E-04_JPRB,7.9951E-04_JPRB,7.6864E-04_JPRB,6.2637E-04_JPRB,1.7443E-03_JPRB/)  
+KBO( :, 1,22, 5) = (/&
+ & 1.1876E-04_JPRB,2.2232E-04_JPRB,2.2723E-04_JPRB,2.1144E-04_JPRB,8.6475E-04_JPRB/)  
+KBO( :, 2,22, 5) = (/&
+ & 1.7098E-04_JPRB,3.0547E-04_JPRB,3.0556E-04_JPRB,2.6827E-04_JPRB,9.8817E-04_JPRB/)  
+KBO( :, 3,22, 5) = (/&
+ & 2.4024E-04_JPRB,4.1043E-04_JPRB,4.0412E-04_JPRB,3.4171E-04_JPRB,1.1213E-03_JPRB/)  
+KBO( :, 4,22, 5) = (/&
+ & 3.2954E-04_JPRB,5.4028E-04_JPRB,5.2414E-04_JPRB,4.3238E-04_JPRB,1.2619E-03_JPRB/)  
+KBO( :, 5,22, 5) = (/&
+ & 4.4187E-04_JPRB,6.9761E-04_JPRB,6.6809E-04_JPRB,5.4249E-04_JPRB,1.4080E-03_JPRB/)  
+KBO( :, 1,23, 5) = (/&
+ & 1.0533E-04_JPRB,1.9573E-04_JPRB,1.9910E-04_JPRB,1.8269E-04_JPRB,6.9257E-04_JPRB/)  
+KBO( :, 2,23, 5) = (/&
+ & 1.5155E-04_JPRB,2.6816E-04_JPRB,2.6720E-04_JPRB,2.3262E-04_JPRB,7.9308E-04_JPRB/)  
+KBO( :, 3,23, 5) = (/&
+ & 2.1274E-04_JPRB,3.5921E-04_JPRB,3.5244E-04_JPRB,2.9616E-04_JPRB,9.0068E-04_JPRB/)  
+KBO( :, 4,23, 5) = (/&
+ & 2.9190E-04_JPRB,4.7191E-04_JPRB,4.5593E-04_JPRB,3.7445E-04_JPRB,1.0136E-03_JPRB/)  
+KBO( :, 5,23, 5) = (/&
+ & 3.9138E-04_JPRB,6.0878E-04_JPRB,5.8059E-04_JPRB,4.6968E-04_JPRB,1.1306E-03_JPRB/)  
+KBO( :, 1,24, 5) = (/&
+ & 9.2582E-05_JPRB,1.7167E-04_JPRB,1.7398E-04_JPRB,1.5781E-04_JPRB,5.4677E-04_JPRB/)  
+KBO( :, 2,24, 5) = (/&
+ & 1.3344E-04_JPRB,2.3456E-04_JPRB,2.3315E-04_JPRB,2.0139E-04_JPRB,6.2782E-04_JPRB/)  
+KBO( :, 3,24, 5) = (/&
+ & 1.8769E-04_JPRB,3.1365E-04_JPRB,3.0670E-04_JPRB,2.5637E-04_JPRB,7.1420E-04_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART18',1,ZHOOK_HANDLE)
+END SUBROUTINE PART18
+
+
+SUBROUTINE PART19
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART19',0,ZHOOK_HANDLE)
+
+
+KBO( :, 4,24, 5) = (/&
+ & 2.5773E-04_JPRB,4.1174E-04_JPRB,3.9630E-04_JPRB,3.2402E-04_JPRB,8.0431E-04_JPRB/)  
+KBO( :, 5,24, 5) = (/&
+ & 3.4549E-04_JPRB,5.3124E-04_JPRB,5.0449E-04_JPRB,4.0653E-04_JPRB,8.9759E-04_JPRB/)  
+KBO( :, 1,25, 5) = (/&
+ & 8.1720E-05_JPRB,1.5080E-04_JPRB,1.5235E-04_JPRB,1.3662E-04_JPRB,4.3240E-04_JPRB/)  
+KBO( :, 2,25, 5) = (/&
+ & 1.1805E-04_JPRB,2.0558E-04_JPRB,2.0367E-04_JPRB,1.7460E-04_JPRB,4.9748E-04_JPRB/)  
+KBO( :, 3,25, 5) = (/&
+ & 1.6632E-04_JPRB,2.7459E-04_JPRB,2.6746E-04_JPRB,2.2227E-04_JPRB,5.6662E-04_JPRB/)  
+KBO( :, 4,25, 5) = (/&
+ & 2.2820E-04_JPRB,3.6032E-04_JPRB,3.4539E-04_JPRB,2.8107E-04_JPRB,6.3853E-04_JPRB/)  
+KBO( :, 5,25, 5) = (/&
+ & 3.0509E-04_JPRB,4.6497E-04_JPRB,4.3993E-04_JPRB,3.5289E-04_JPRB,7.1328E-04_JPRB/)  
+KBO( :, 1,26, 5) = (/&
+ & 7.3023E-05_JPRB,1.3337E-04_JPRB,1.3413E-04_JPRB,1.1892E-04_JPRB,3.4584E-04_JPRB/)  
+KBO( :, 2,26, 5) = (/&
+ & 1.0560E-04_JPRB,1.8141E-04_JPRB,1.7894E-04_JPRB,1.5213E-04_JPRB,3.9839E-04_JPRB/)  
+KBO( :, 3,26, 5) = (/&
+ & 1.4861E-04_JPRB,2.4208E-04_JPRB,2.3462E-04_JPRB,1.9371E-04_JPRB,4.5384E-04_JPRB/)  
+KBO( :, 4,26, 5) = (/&
+ & 2.0313E-04_JPRB,3.1741E-04_JPRB,3.0291E-04_JPRB,2.4516E-04_JPRB,5.1150E-04_JPRB/)  
+KBO( :, 5,26, 5) = (/&
+ & 2.7025E-04_JPRB,4.0891E-04_JPRB,3.8585E-04_JPRB,3.0810E-04_JPRB,5.7158E-04_JPRB/)  
+KBO( :, 1,27, 5) = (/&
+ & 6.5244E-05_JPRB,1.1779E-04_JPRB,1.1796E-04_JPRB,1.0347E-04_JPRB,2.7274E-04_JPRB/)  
+KBO( :, 2,27, 5) = (/&
+ & 9.4317E-05_JPRB,1.6003E-04_JPRB,1.5711E-04_JPRB,1.3251E-04_JPRB,3.1462E-04_JPRB/)  
+KBO( :, 3,27, 5) = (/&
+ & 1.3235E-04_JPRB,2.1338E-04_JPRB,2.0578E-04_JPRB,1.6888E-04_JPRB,3.5874E-04_JPRB/)  
+KBO( :, 4,27, 5) = (/&
+ & 1.7994E-04_JPRB,2.7923E-04_JPRB,2.6567E-04_JPRB,2.1397E-04_JPRB,4.0423E-04_JPRB/)  
+KBO( :, 5,27, 5) = (/&
+ & 2.3815E-04_JPRB,3.5878E-04_JPRB,3.3808E-04_JPRB,2.6908E-04_JPRB,4.5194E-04_JPRB/)  
+KBO( :, 1,28, 5) = (/&
+ & 5.8135E-05_JPRB,1.0393E-04_JPRB,1.0358E-04_JPRB,8.9974E-05_JPRB,2.1186E-04_JPRB/)  
+KBO( :, 2,28, 5) = (/&
+ & 8.3922E-05_JPRB,1.4106E-04_JPRB,1.3783E-04_JPRB,1.1539E-04_JPRB,2.4486E-04_JPRB/)  
+KBO( :, 3,28, 5) = (/&
+ & 1.1719E-04_JPRB,1.8771E-04_JPRB,1.8042E-04_JPRB,1.4725E-04_JPRB,2.7921E-04_JPRB/)  
+KBO( :, 4,28, 5) = (/&
+ & 1.5846E-04_JPRB,2.4498E-04_JPRB,2.3269E-04_JPRB,1.8682E-04_JPRB,3.1493E-04_JPRB/)  
+KBO( :, 5,28, 5) = (/&
+ & 2.0834E-04_JPRB,3.1383E-04_JPRB,2.9568E-04_JPRB,2.3488E-04_JPRB,3.5235E-04_JPRB/)  
+KBO( :, 1,29, 5) = (/&
+ & 5.2156E-05_JPRB,9.2110E-05_JPRB,9.1288E-05_JPRB,7.8487E-05_JPRB,1.6379E-04_JPRB/)  
+KBO( :, 2,29, 5) = (/&
+ & 7.4907E-05_JPRB,1.2474E-04_JPRB,1.2134E-04_JPRB,1.0081E-04_JPRB,1.8924E-04_JPRB/)  
+KBO( :, 3,29, 5) = (/&
+ & 1.0389E-04_JPRB,1.6543E-04_JPRB,1.5862E-04_JPRB,1.2884E-04_JPRB,2.1564E-04_JPRB/)  
+KBO( :, 4,29, 5) = (/&
+ & 1.3949E-04_JPRB,2.1507E-04_JPRB,2.0416E-04_JPRB,1.6349E-04_JPRB,2.4336E-04_JPRB/)  
+KBO( :, 5,29, 5) = (/&
+ & 1.8193E-04_JPRB,2.7457E-04_JPRB,2.5880E-04_JPRB,2.0529E-04_JPRB,2.7230E-04_JPRB/)  
+KBO( :, 1,30, 5) = (/&
+ & 4.6665E-05_JPRB,8.1578E-05_JPRB,8.0475E-05_JPRB,6.8545E-05_JPRB,1.2523E-04_JPRB/)  
+KBO( :, 2,30, 5) = (/&
+ & 6.6590E-05_JPRB,1.1011E-04_JPRB,1.0677E-04_JPRB,8.8175E-05_JPRB,1.4448E-04_JPRB/)  
+KBO( :, 3,30, 5) = (/&
+ & 9.1666E-05_JPRB,1.4544E-04_JPRB,1.3932E-04_JPRB,1.1280E-04_JPRB,1.6467E-04_JPRB/)  
+KBO( :, 4,30, 5) = (/&
+ & 1.2214E-04_JPRB,1.8830E-04_JPRB,1.7882E-04_JPRB,1.4301E-04_JPRB,1.8584E-04_JPRB/)  
+KBO( :, 5,30, 5) = (/&
+ & 1.5808E-04_JPRB,2.3937E-04_JPRB,2.2601E-04_JPRB,1.7927E-04_JPRB,2.0804E-04_JPRB/)  
+KBO( :, 1,31, 5) = (/&
+ & 4.1774E-05_JPRB,7.2293E-05_JPRB,7.1044E-05_JPRB,6.0014E-05_JPRB,9.4404E-05_JPRB/)  
+KBO( :, 2,31, 5) = (/&
+ & 5.9153E-05_JPRB,9.7142E-05_JPRB,9.4034E-05_JPRB,7.7303E-05_JPRB,1.0876E-04_JPRB/)  
+KBO( :, 3,31, 5) = (/&
+ & 8.0749E-05_JPRB,1.2773E-04_JPRB,1.2231E-04_JPRB,9.8861E-05_JPRB,1.2383E-04_JPRB/)  
+KBO( :, 4,31, 5) = (/&
+ & 1.0665E-04_JPRB,1.6459E-04_JPRB,1.5646E-04_JPRB,1.2511E-04_JPRB,1.3969E-04_JPRB/)  
+KBO( :, 5,31, 5) = (/&
+ & 1.3708E-04_JPRB,2.0815E-04_JPRB,1.9687E-04_JPRB,1.5634E-04_JPRB,1.5670E-04_JPRB/)  
+KBO( :, 1,32, 5) = (/&
+ & 3.7360E-05_JPRB,6.4042E-05_JPRB,6.2763E-05_JPRB,5.2674E-05_JPRB,7.1295E-05_JPRB/)  
+KBO( :, 2,32, 5) = (/&
+ & 5.2458E-05_JPRB,8.5627E-05_JPRB,8.2786E-05_JPRB,6.7846E-05_JPRB,8.1990E-05_JPRB/)  
+KBO( :, 3,32, 5) = (/&
+ & 7.0948E-05_JPRB,1.1205E-04_JPRB,1.0732E-04_JPRB,8.6659E-05_JPRB,9.3329E-05_JPRB/)  
+KBO( :, 4,32, 5) = (/&
+ & 9.2912E-05_JPRB,1.4361E-04_JPRB,1.3667E-04_JPRB,1.0937E-04_JPRB,1.0550E-04_JPRB/)  
+KBO( :, 5,32, 5) = (/&
+ & 1.1872E-04_JPRB,1.8058E-04_JPRB,1.7108E-04_JPRB,1.3607E-04_JPRB,1.1861E-04_JPRB/)  
+KBO( :, 1,33, 5) = (/&
+ & 3.3330E-05_JPRB,5.6651E-05_JPRB,5.5404E-05_JPRB,4.6257E-05_JPRB,5.3603E-05_JPRB/)  
+KBO( :, 2,33, 5) = (/&
+ & 4.6366E-05_JPRB,7.5365E-05_JPRB,7.2815E-05_JPRB,5.9541E-05_JPRB,6.1709E-05_JPRB/)  
+KBO( :, 3,33, 5) = (/&
+ & 6.2117E-05_JPRB,9.8064E-05_JPRB,9.4002E-05_JPRB,7.5880E-05_JPRB,7.0404E-05_JPRB/)  
+KBO( :, 4,33, 5) = (/&
+ & 8.0785E-05_JPRB,1.2503E-04_JPRB,1.1911E-04_JPRB,9.5440E-05_JPRB,7.9842E-05_JPRB/)  
+KBO( :, 5,33, 5) = (/&
+ & 1.0266E-04_JPRB,1.5642E-04_JPRB,1.4831E-04_JPRB,1.1813E-04_JPRB,8.9956E-05_JPRB/)  
+KBO( :, 1,34, 5) = (/&
+ & 2.9453E-05_JPRB,4.9674E-05_JPRB,4.8494E-05_JPRB,4.0330E-05_JPRB,4.1449E-05_JPRB/)  
+KBO( :, 2,34, 5) = (/&
+ & 4.0587E-05_JPRB,6.5763E-05_JPRB,6.3519E-05_JPRB,5.1852E-05_JPRB,4.7772E-05_JPRB/)  
+KBO( :, 3,34, 5) = (/&
+ & 5.3941E-05_JPRB,8.5109E-05_JPRB,8.1613E-05_JPRB,6.5908E-05_JPRB,5.4645E-05_JPRB/)  
+KBO( :, 4,34, 5) = (/&
+ & 6.9742E-05_JPRB,1.0800E-04_JPRB,1.0292E-04_JPRB,8.2540E-05_JPRB,6.2110E-05_JPRB/)  
+KBO( :, 5,34, 5) = (/&
+ & 8.8248E-05_JPRB,1.3461E-04_JPRB,1.2764E-04_JPRB,1.0173E-04_JPRB,7.0115E-05_JPRB/)  
+KBO( :, 1,35, 5) = (/&
+ & 2.5087E-05_JPRB,4.2259E-05_JPRB,4.1255E-05_JPRB,3.4275E-05_JPRB,3.1533E-05_JPRB/)  
+KBO( :, 2,35, 5) = (/&
+ & 3.4377E-05_JPRB,5.5779E-05_JPRB,5.3928E-05_JPRB,4.4037E-05_JPRB,3.6467E-05_JPRB/)  
+KBO( :, 3,35, 5) = (/&
+ & 4.5509E-05_JPRB,7.1962E-05_JPRB,6.9073E-05_JPRB,5.5855E-05_JPRB,4.1858E-05_JPRB/)  
+KBO( :, 4,35, 5) = (/&
+ & 5.8672E-05_JPRB,9.1085E-05_JPRB,8.6867E-05_JPRB,6.9736E-05_JPRB,4.7718E-05_JPRB/)  
+KBO( :, 5,35, 5) = (/&
+ & 7.4086E-05_JPRB,1.1331E-04_JPRB,1.0750E-04_JPRB,8.5753E-05_JPRB,5.3964E-05_JPRB/)  
+KBO( :, 1,36, 5) = (/&
+ & 2.0525E-05_JPRB,3.4767E-05_JPRB,3.4001E-05_JPRB,2.8297E-05_JPRB,2.3548E-05_JPRB/)  
+KBO( :, 2,36, 5) = (/&
+ & 2.8104E-05_JPRB,4.5872E-05_JPRB,4.4441E-05_JPRB,3.6357E-05_JPRB,2.7355E-05_JPRB/)  
+KBO( :, 3,36, 5) = (/&
+ & 3.7199E-05_JPRB,5.9142E-05_JPRB,5.6864E-05_JPRB,4.6074E-05_JPRB,3.1516E-05_JPRB/)  
+KBO( :, 4,36, 5) = (/&
+ & 4.7973E-05_JPRB,7.4842E-05_JPRB,7.1480E-05_JPRB,5.7473E-05_JPRB,3.6056E-05_JPRB/)  
+KBO( :, 5,36, 5) = (/&
+ & 6.0589E-05_JPRB,9.3078E-05_JPRB,8.8416E-05_JPRB,7.0645E-05_JPRB,4.0905E-05_JPRB/)  
+KBO( :, 1,37, 5) = (/&
+ & 1.6118E-05_JPRB,2.7523E-05_JPRB,2.6979E-05_JPRB,2.2543E-05_JPRB,1.8010E-05_JPRB/)  
+KBO( :, 2,37, 5) = (/&
+ & 2.2165E-05_JPRB,3.6407E-05_JPRB,3.5348E-05_JPRB,2.9008E-05_JPRB,2.0983E-05_JPRB/)  
+KBO( :, 3,37, 5) = (/&
+ & 2.9444E-05_JPRB,4.7055E-05_JPRB,4.5326E-05_JPRB,3.6808E-05_JPRB,2.4249E-05_JPRB/)  
+KBO( :, 4,37, 5) = (/&
+ & 3.8081E-05_JPRB,5.9681E-05_JPRB,5.7081E-05_JPRB,4.5982E-05_JPRB,2.7813E-05_JPRB/)  
+KBO( :, 5,37, 5) = (/&
+ & 4.8212E-05_JPRB,7.4374E-05_JPRB,7.0740E-05_JPRB,5.6602E-05_JPRB,3.1635E-05_JPRB/)  
+KBO( :, 1,38, 5) = (/&
+ & 1.2610E-05_JPRB,2.1718E-05_JPRB,2.1343E-05_JPRB,1.7908E-05_JPRB,1.3720E-05_JPRB/)  
+KBO( :, 2,38, 5) = (/&
+ & 1.7424E-05_JPRB,2.8812E-05_JPRB,2.8034E-05_JPRB,2.3079E-05_JPRB,1.6034E-05_JPRB/)  
+KBO( :, 3,38, 5) = (/&
+ & 2.3240E-05_JPRB,3.7339E-05_JPRB,3.6033E-05_JPRB,2.9331E-05_JPRB,1.8589E-05_JPRB/)  
+KBO( :, 4,38, 5) = (/&
+ & 3.0149E-05_JPRB,4.7476E-05_JPRB,4.5479E-05_JPRB,3.6700E-05_JPRB,2.1382E-05_JPRB/)  
+KBO( :, 5,38, 5) = (/&
+ & 3.8276E-05_JPRB,5.9294E-05_JPRB,5.6476E-05_JPRB,4.5256E-05_JPRB,2.4387E-05_JPRB/)  
+KBO( :, 1,39, 5) = (/&
+ & 9.8494E-06_JPRB,1.7119E-05_JPRB,1.6865E-05_JPRB,1.4215E-05_JPRB,1.0374E-05_JPRB/)  
+KBO( :, 2,39, 5) = (/&
+ & 1.3680E-05_JPRB,2.2781E-05_JPRB,2.2215E-05_JPRB,1.8350E-05_JPRB,1.2167E-05_JPRB/)  
+KBO( :, 3,39, 5) = (/&
+ & 1.8324E-05_JPRB,2.9603E-05_JPRB,2.8623E-05_JPRB,2.3356E-05_JPRB,1.4153E-05_JPRB/)  
+KBO( :, 4,39, 5) = (/&
+ & 2.3849E-05_JPRB,3.7739E-05_JPRB,3.6208E-05_JPRB,2.9278E-05_JPRB,1.6336E-05_JPRB/)  
+KBO( :, 5,39, 5) = (/&
+ & 3.0362E-05_JPRB,4.7240E-05_JPRB,4.5057E-05_JPRB,3.6164E-05_JPRB,1.8690E-05_JPRB/)  
+KBO( :, 1,40, 5) = (/&
+ & 7.4339E-06_JPRB,1.3096E-05_JPRB,1.2949E-05_JPRB,1.0994E-05_JPRB,7.9222E-06_JPRB/)  
+KBO( :, 2,40, 5) = (/&
+ & 1.0423E-05_JPRB,1.7529E-05_JPRB,1.7143E-05_JPRB,1.4230E-05_JPRB,9.3215E-06_JPRB/)  
+KBO( :, 3,40, 5) = (/&
+ & 1.4064E-05_JPRB,2.2897E-05_JPRB,2.2194E-05_JPRB,1.8169E-05_JPRB,1.0878E-05_JPRB/)  
+KBO( :, 4,40, 5) = (/&
+ & 1.8421E-05_JPRB,2.9319E-05_JPRB,2.8191E-05_JPRB,2.2850E-05_JPRB,1.2595E-05_JPRB/)  
+KBO( :, 5,40, 5) = (/&
+ & 2.3560E-05_JPRB,3.6849E-05_JPRB,3.5209E-05_JPRB,2.8311E-05_JPRB,1.4456E-05_JPRB/)  
+KBO( :, 1,41, 5) = (/&
+ & 5.5704E-06_JPRB,9.9619E-06_JPRB,9.8891E-06_JPRB,8.4654E-06_JPRB,6.0394E-06_JPRB/)  
+KBO( :, 2,41, 5) = (/&
+ & 7.8899E-06_JPRB,1.3424E-05_JPRB,1.3166E-05_JPRB,1.0990E-05_JPRB,7.1317E-06_JPRB/)  
+KBO( :, 3,41, 5) = (/&
+ & 1.0739E-05_JPRB,1.7632E-05_JPRB,1.7133E-05_JPRB,1.4077E-05_JPRB,8.3487E-06_JPRB/)  
+KBO( :, 4,41, 5) = (/&
+ & 1.4162E-05_JPRB,2.2683E-05_JPRB,2.1860E-05_JPRB,1.7767E-05_JPRB,9.6986E-06_JPRB/)  
+KBO( :, 5,41, 5) = (/&
+ & 1.8206E-05_JPRB,2.8635E-05_JPRB,2.7414E-05_JPRB,2.2091E-05_JPRB,1.1170E-05_JPRB/)  
+KBO( :, 1,42, 5) = (/&
+ & 4.1581E-06_JPRB,7.5591E-06_JPRB,7.5361E-06_JPRB,6.5108E-06_JPRB,4.5852E-06_JPRB/)  
+KBO( :, 2,42, 5) = (/&
+ & 5.9538E-06_JPRB,1.0259E-05_JPRB,1.0094E-05_JPRB,8.4784E-06_JPRB,5.4324E-06_JPRB/)  
+KBO( :, 3,42, 5) = (/&
+ & 8.1801E-06_JPRB,1.3552E-05_JPRB,1.3202E-05_JPRB,1.0892E-05_JPRB,6.3816E-06_JPRB/)  
+KBO( :, 4,42, 5) = (/&
+ & 1.0865E-05_JPRB,1.7520E-05_JPRB,1.6925E-05_JPRB,1.3796E-05_JPRB,7.4382E-06_JPRB/)  
+KBO( :, 5,42, 5) = (/&
+ & 1.4044E-05_JPRB,2.2222E-05_JPRB,2.1312E-05_JPRB,1.7215E-05_JPRB,8.5974E-06_JPRB/)  
+KBO( :, 1,43, 5) = (/&
+ & 3.0295E-06_JPRB,5.6227E-06_JPRB,5.6370E-06_JPRB,4.9291E-06_JPRB,3.4644E-06_JPRB/)  
+KBO( :, 2,43, 5) = (/&
+ & 4.3992E-06_JPRB,7.7006E-06_JPRB,7.6071E-06_JPRB,6.4406E-06_JPRB,4.1177E-06_JPRB/)  
+KBO( :, 3,43, 5) = (/&
+ & 6.1168E-06_JPRB,1.0248E-05_JPRB,1.0014E-05_JPRB,8.3065E-06_JPRB,4.8541E-06_JPRB/)  
+KBO( :, 4,43, 5) = (/&
+ & 8.2022E-06_JPRB,1.3332E-05_JPRB,1.2916E-05_JPRB,1.0567E-05_JPRB,5.6783E-06_JPRB/)  
+KBO( :, 5,43, 5) = (/&
+ & 1.0679E-05_JPRB,1.7006E-05_JPRB,1.6348E-05_JPRB,1.3242E-05_JPRB,6.5871E-06_JPRB/)  
+KBO( :, 1,44, 5) = (/&
+ & 2.1752E-06_JPRB,4.1354E-06_JPRB,4.1745E-06_JPRB,3.7028E-06_JPRB,2.6072E-06_JPRB/)  
+KBO( :, 2,44, 5) = (/&
+ & 3.2105E-06_JPRB,5.7219E-06_JPRB,5.6778E-06_JPRB,4.8546E-06_JPRB,3.1066E-06_JPRB/)  
+KBO( :, 3,44, 5) = (/&
+ & 4.5242E-06_JPRB,7.6797E-06_JPRB,7.5307E-06_JPRB,6.2874E-06_JPRB,3.6742E-06_JPRB/)  
+KBO( :, 4,44, 5) = (/&
+ & 6.1342E-06_JPRB,1.0065E-05_JPRB,9.7795E-06_JPRB,8.0353E-06_JPRB,4.3146E-06_JPRB/)  
+KBO( :, 5,44, 5) = (/&
+ & 8.0572E-06_JPRB,1.2919E-05_JPRB,1.2450E-05_JPRB,1.0118E-05_JPRB,5.0246E-06_JPRB/)  
+KBO( :, 1,45, 5) = (/&
+ & 1.5520E-06_JPRB,3.0304E-06_JPRB,3.0821E-06_JPRB,2.7797E-06_JPRB,1.9539E-06_JPRB/)  
+KBO( :, 2,45, 5) = (/&
+ & 2.3304E-06_JPRB,4.2364E-06_JPRB,4.2250E-06_JPRB,3.6531E-06_JPRB,2.3326E-06_JPRB/)  
+KBO( :, 3,45, 5) = (/&
+ & 3.3303E-06_JPRB,5.7394E-06_JPRB,5.6502E-06_JPRB,4.7523E-06_JPRB,2.7664E-06_JPRB/)  
+KBO( :, 4,45, 5) = (/&
+ & 4.5711E-06_JPRB,7.5789E-06_JPRB,7.3862E-06_JPRB,6.0991E-06_JPRB,3.2606E-06_JPRB/)  
+KBO( :, 5,45, 5) = (/&
+ & 6.0612E-06_JPRB,9.7914E-06_JPRB,9.4635E-06_JPRB,7.7174E-06_JPRB,3.8129E-06_JPRB/)  
+KBO( :, 1,46, 5) = (/&
+ & 1.0896E-06_JPRB,2.1957E-06_JPRB,2.2531E-06_JPRB,2.0749E-06_JPRB,1.4595E-06_JPRB/)  
+KBO( :, 2,46, 5) = (/&
+ & 1.6682E-06_JPRB,3.1035E-06_JPRB,3.1144E-06_JPRB,2.7296E-06_JPRB,1.7441E-06_JPRB/)  
+KBO( :, 3,46, 5) = (/&
+ & 2.4227E-06_JPRB,4.2500E-06_JPRB,4.2020E-06_JPRB,3.5671E-06_JPRB,2.0729E-06_JPRB/)  
+KBO( :, 4,46, 5) = (/&
+ & 3.3718E-06_JPRB,5.6598E-06_JPRB,5.5353E-06_JPRB,4.5977E-06_JPRB,2.4518E-06_JPRB/)  
+KBO( :, 5,46, 5) = (/&
+ & 4.5215E-06_JPRB,7.3662E-06_JPRB,7.1417E-06_JPRB,5.8470E-06_JPRB,2.8782E-06_JPRB/)  
+KBO( :, 1,47, 5) = (/&
+ & 7.4469E-07_JPRB,1.5605E-06_JPRB,1.6200E-06_JPRB,1.5335E-06_JPRB,1.0893E-06_JPRB/)  
+KBO( :, 2,47, 5) = (/&
+ & 1.1672E-06_JPRB,2.2327E-06_JPRB,2.2585E-06_JPRB,2.0143E-06_JPRB,1.3019E-06_JPRB/)  
+KBO( :, 3,47, 5) = (/&
+ & 1.7284E-06_JPRB,3.0966E-06_JPRB,3.0782E-06_JPRB,2.6442E-06_JPRB,1.5506E-06_JPRB/)  
+KBO( :, 4,47, 5) = (/&
+ & 2.4447E-06_JPRB,4.1671E-06_JPRB,4.0916E-06_JPRB,3.4253E-06_JPRB,1.8389E-06_JPRB/)  
+KBO( :, 5,47, 5) = (/&
+ & 3.3234E-06_JPRB,5.4710E-06_JPRB,5.3227E-06_JPRB,4.3793E-06_JPRB,2.1666E-06_JPRB/)  
+KBO( :, 1,48, 5) = (/&
+ & 5.0356E-07_JPRB,1.1031E-06_JPRB,1.1612E-06_JPRB,1.1366E-06_JPRB,8.1111E-07_JPRB/)  
+KBO( :, 2,48, 5) = (/&
+ & 8.0967E-07_JPRB,1.5982E-06_JPRB,1.6316E-06_JPRB,1.4855E-06_JPRB,9.6803E-07_JPRB/)  
+KBO( :, 3,48, 5) = (/&
+ & 1.2240E-06_JPRB,2.2449E-06_JPRB,2.2458E-06_JPRB,1.9554E-06_JPRB,1.1545E-06_JPRB/)  
+KBO( :, 4,48, 5) = (/&
+ & 1.7609E-06_JPRB,3.0561E-06_JPRB,3.0144E-06_JPRB,2.5471E-06_JPRB,1.3716E-06_JPRB/)  
+KBO( :, 5,48, 5) = (/&
+ & 2.4302E-06_JPRB,4.0500E-06_JPRB,3.9537E-06_JPRB,3.2729E-06_JPRB,1.6214E-06_JPRB/)  
+KBO( :, 1,49, 5) = (/&
+ & 3.3669E-07_JPRB,7.7562E-07_JPRB,8.3013E-07_JPRB,8.4661E-07_JPRB,6.0239E-07_JPRB/)  
+KBO( :, 2,49, 5) = (/&
+ & 5.5618E-07_JPRB,1.1378E-06_JPRB,1.1737E-06_JPRB,1.0960E-06_JPRB,7.1701E-07_JPRB/)  
+KBO( :, 3,49, 5) = (/&
+ & 8.5966E-07_JPRB,1.6189E-06_JPRB,1.6315E-06_JPRB,1.4432E-06_JPRB,8.5489E-07_JPRB/)  
+KBO( :, 4,49, 5) = (/&
+ & 1.2600E-06_JPRB,2.2310E-06_JPRB,2.2122E-06_JPRB,1.8904E-06_JPRB,1.0169E-06_JPRB/)  
+KBO( :, 5,49, 5) = (/&
+ & 1.7668E-06_JPRB,2.9864E-06_JPRB,2.9265E-06_JPRB,2.4403E-06_JPRB,1.2053E-06_JPRB/)  
+KBO( :, 1,50, 5) = (/&
+ & 2.2597E-07_JPRB,5.4865E-07_JPRB,5.9834E-07_JPRB,6.3972E-07_JPRB,4.5578E-07_JPRB/)  
+KBO( :, 2,50, 5) = (/&
+ & 3.8336E-07_JPRB,8.1421E-07_JPRB,8.4965E-07_JPRB,8.1592E-07_JPRB,5.4000E-07_JPRB/)  
+KBO( :, 3,50, 5) = (/&
+ & 6.0620E-07_JPRB,1.1725E-06_JPRB,1.1909E-06_JPRB,1.0720E-06_JPRB,6.4348E-07_JPRB/)  
+KBO( :, 4,50, 5) = (/&
+ & 9.0494E-07_JPRB,1.6354E-06_JPRB,1.6304E-06_JPRB,1.4100E-06_JPRB,7.6597E-07_JPRB/)  
+KBO( :, 5,50, 5) = (/&
+ & 1.2886E-06_JPRB,2.2119E-06_JPRB,2.1763E-06_JPRB,1.8292E-06_JPRB,9.0912E-07_JPRB/)  
+KBO( :, 1,51, 5) = (/&
+ & 1.5102E-07_JPRB,3.8839E-07_JPRB,4.3315E-07_JPRB,4.8969E-07_JPRB,3.4866E-07_JPRB/)  
+KBO( :, 2,51, 5) = (/&
+ & 2.6341E-07_JPRB,5.8277E-07_JPRB,6.1614E-07_JPRB,6.1112E-07_JPRB,4.1018E-07_JPRB/)  
+KBO( :, 3,51, 5) = (/&
+ & 4.2666E-07_JPRB,8.4914E-07_JPRB,8.6978E-07_JPRB,7.9868E-07_JPRB,4.8807E-07_JPRB/)  
+KBO( :, 4,51, 5) = (/&
+ & 6.4908E-07_JPRB,1.1984E-06_JPRB,1.2019E-06_JPRB,1.0530E-06_JPRB,5.8123E-07_JPRB/)  
+KBO( :, 5,51, 5) = (/&
+ & 9.3904E-07_JPRB,1.6385E-06_JPRB,1.6190E-06_JPRB,1.3734E-06_JPRB,6.9028E-07_JPRB/)  
+KBO( :, 1,52, 5) = (/&
+ & 9.9875E-08_JPRB,2.7392E-07_JPRB,3.1411E-07_JPRB,3.7992E-07_JPRB,2.6732E-07_JPRB/)  
+KBO( :, 2,52, 5) = (/&
+ & 1.7936E-07_JPRB,4.1537E-07_JPRB,4.4601E-07_JPRB,4.6002E-07_JPRB,3.1160E-07_JPRB/)  
+KBO( :, 3,52, 5) = (/&
+ & 2.9800E-07_JPRB,6.1230E-07_JPRB,6.3323E-07_JPRB,5.9558E-07_JPRB,3.6937E-07_JPRB/)  
+KBO( :, 4,52, 5) = (/&
+ & 4.6262E-07_JPRB,8.7457E-07_JPRB,8.8316E-07_JPRB,7.8544E-07_JPRB,4.3987E-07_JPRB/)  
+KBO( :, 5,52, 5) = (/&
+ & 6.8072E-07_JPRB,1.2094E-06_JPRB,1.2006E-06_JPRB,1.0296E-06_JPRB,5.2264E-07_JPRB/)  
+KBO( :, 1,53, 5) = (/&
+ & 6.5343E-08_JPRB,1.9251E-07_JPRB,2.2851E-07_JPRB,2.9947E-07_JPRB,2.0556E-07_JPRB/)  
+KBO( :, 2,53, 5) = (/&
+ & 1.2091E-07_JPRB,2.9469E-07_JPRB,3.2248E-07_JPRB,3.4877E-07_JPRB,2.3686E-07_JPRB/)  
+KBO( :, 3,53, 5) = (/&
+ & 2.0627E-07_JPRB,4.3946E-07_JPRB,4.5963E-07_JPRB,4.4471E-07_JPRB,2.7889E-07_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART19',1,ZHOOK_HANDLE)
+END SUBROUTINE PART19
+
+
+SUBROUTINE PART20
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART20',0,ZHOOK_HANDLE)
+
+
+KBO( :, 4,53, 5) = (/&
+ & 3.2743E-07_JPRB,6.3522E-07_JPRB,6.4653E-07_JPRB,5.8508E-07_JPRB,3.3168E-07_JPRB/)  
+KBO( :, 5,53, 5) = (/&
+ & 4.9060E-07_JPRB,8.8881E-07_JPRB,8.8708E-07_JPRB,7.7003E-07_JPRB,3.9409E-07_JPRB/)  
+KBO( :, 1,54, 5) = (/&
+ & 4.3306E-08_JPRB,1.3699E-07_JPRB,1.6897E-07_JPRB,2.4035E-07_JPRB,1.6171E-07_JPRB/)  
+KBO( :, 2,54, 5) = (/&
+ & 8.2182E-08_JPRB,2.1109E-07_JPRB,2.3589E-07_JPRB,2.6887E-07_JPRB,1.8465E-07_JPRB/)  
+KBO( :, 3,54, 5) = (/&
+ & 1.4392E-07_JPRB,3.1803E-07_JPRB,3.3664E-07_JPRB,3.3573E-07_JPRB,2.1605E-07_JPRB/)  
+KBO( :, 4,54, 5) = (/&
+ & 2.3356E-07_JPRB,4.6489E-07_JPRB,4.7688E-07_JPRB,4.3961E-07_JPRB,2.5649E-07_JPRB/)  
+KBO( :, 5,54, 5) = (/&
+ & 3.5601E-07_JPRB,6.5756E-07_JPRB,6.5990E-07_JPRB,5.7981E-07_JPRB,3.0495E-07_JPRB/)  
+KBO( :, 1,55, 5) = (/&
+ & 2.8854E-08_JPRB,9.8072E-08_JPRB,1.2651E-07_JPRB,1.9577E-07_JPRB,1.2893E-07_JPRB/)  
+KBO( :, 2,55, 5) = (/&
+ & 5.5873E-08_JPRB,1.5168E-07_JPRB,1.7364E-07_JPRB,2.1001E-07_JPRB,1.4600E-07_JPRB/)  
+KBO( :, 3,55, 5) = (/&
+ & 1.0041E-07_JPRB,2.3068E-07_JPRB,2.4750E-07_JPRB,2.5542E-07_JPRB,1.6992E-07_JPRB/)  
+KBO( :, 4,55, 5) = (/&
+ & 1.6665E-07_JPRB,3.4087E-07_JPRB,3.5250E-07_JPRB,3.3178E-07_JPRB,2.0129E-07_JPRB/)  
+KBO( :, 5,55, 5) = (/&
+ & 2.5859E-07_JPRB,4.8718E-07_JPRB,4.9183E-07_JPRB,4.3783E-07_JPRB,2.3951E-07_JPRB/)  
+KBO( :, 1,56, 5) = (/&
+ & 1.9183E-08_JPRB,7.0296E-08_JPRB,9.5958E-08_JPRB,1.6166E-07_JPRB,1.0324E-07_JPRB/)  
+KBO( :, 2,56, 5) = (/&
+ & 3.7690E-08_JPRB,1.0873E-07_JPRB,1.2816E-07_JPRB,1.6606E-07_JPRB,1.1573E-07_JPRB/)  
+KBO( :, 3,56, 5) = (/&
+ & 6.9564E-08_JPRB,1.6681E-07_JPRB,1.8184E-07_JPRB,1.9538E-07_JPRB,1.3395E-07_JPRB/)  
+KBO( :, 4,56, 5) = (/&
+ & 1.1817E-07_JPRB,2.4912E-07_JPRB,2.5998E-07_JPRB,2.5068E-07_JPRB,1.5820E-07_JPRB/)  
+KBO( :, 5,56, 5) = (/&
+ & 1.8685E-07_JPRB,3.5979E-07_JPRB,3.6566E-07_JPRB,3.3044E-07_JPRB,1.8828E-07_JPRB/)  
+KBO( :, 1,57, 5) = (/&
+ & 1.2749E-08_JPRB,5.0514E-08_JPRB,7.4147E-08_JPRB,1.3511E-07_JPRB,8.3045E-08_JPRB/)  
+KBO( :, 2,57, 5) = (/&
+ & 2.5237E-08_JPRB,7.7785E-08_JPRB,9.5012E-08_JPRB,1.3300E-07_JPRB,9.1992E-08_JPRB/)  
+KBO( :, 3,57, 5) = (/&
+ & 4.7790E-08_JPRB,1.2024E-07_JPRB,1.3358E-07_JPRB,1.5060E-07_JPRB,1.0586E-07_JPRB/)  
+KBO( :, 4,57, 5) = (/&
+ & 8.3233E-08_JPRB,1.8139E-07_JPRB,1.9136E-07_JPRB,1.8973E-07_JPRB,1.2456E-07_JPRB/)  
+KBO( :, 5,57, 5) = (/&
+ & 1.3430E-07_JPRB,2.6480E-07_JPRB,2.7113E-07_JPRB,2.4926E-07_JPRB,1.4817E-07_JPRB/)  
+KBO( :, 1,58, 5) = (/&
+ & 8.6071E-09_JPRB,3.6748E-08_JPRB,5.8348E-08_JPRB,1.1389E-07_JPRB,6.7280E-08_JPRB/)  
+KBO( :, 2,58, 5) = (/&
+ & 1.7003E-08_JPRB,5.6012E-08_JPRB,7.1270E-08_JPRB,1.0797E-07_JPRB,7.3801E-08_JPRB/)  
+KBO( :, 3,58, 5) = (/&
+ & 3.2884E-08_JPRB,8.7017E-08_JPRB,9.8797E-08_JPRB,1.1752E-07_JPRB,8.4329E-08_JPRB/)  
+KBO( :, 4,58, 5) = (/&
+ & 5.8722E-08_JPRB,1.3250E-07_JPRB,1.4147E-07_JPRB,1.4468E-07_JPRB,9.8923E-08_JPRB/)  
+KBO( :, 5,58, 5) = (/&
+ & 9.6718E-08_JPRB,1.9549E-07_JPRB,2.0167E-07_JPRB,1.8889E-07_JPRB,1.1761E-07_JPRB/)  
+KBO( :, 1,59, 5) = (/&
+ & 6.5762E-09_JPRB,2.8839E-08_JPRB,4.7240E-08_JPRB,9.4281E-08_JPRB,5.6347E-08_JPRB/)  
+KBO( :, 2,59, 5) = (/&
+ & 1.2969E-08_JPRB,4.3747E-08_JPRB,5.6620E-08_JPRB,8.8361E-08_JPRB,6.2071E-08_JPRB/)  
+KBO( :, 3,59, 5) = (/&
+ & 2.5275E-08_JPRB,6.8112E-08_JPRB,7.8014E-08_JPRB,9.4814E-08_JPRB,7.1293E-08_JPRB/)  
+KBO( :, 4,59, 5) = (/&
+ & 4.5565E-08_JPRB,1.0415E-07_JPRB,1.1172E-07_JPRB,1.1566E-07_JPRB,8.4152E-08_JPRB/)  
+KBO( :, 5,59, 5) = (/&
+ & 7.5655E-08_JPRB,1.5435E-07_JPRB,1.5965E-07_JPRB,1.5065E-07_JPRB,1.0042E-07_JPRB/)  
+KBO( :, 1,13, 6) = (/&
+ & 1.4917E-03_JPRB,1.8975E-03_JPRB,1.8217E-03_JPRB,1.6462E-03_JPRB,1.5445E-02_JPRB/)  
+KBO( :, 2,13, 6) = (/&
+ & 2.0332E-03_JPRB,2.5878E-03_JPRB,2.4581E-03_JPRB,2.0975E-03_JPRB,1.7016E-02_JPRB/)  
+KBO( :, 3,13, 6) = (/&
+ & 2.7157E-03_JPRB,3.4479E-03_JPRB,3.2442E-03_JPRB,2.6787E-03_JPRB,1.8566E-02_JPRB/)  
+KBO( :, 4,13, 6) = (/&
+ & 3.5630E-03_JPRB,4.4992E-03_JPRB,4.2037E-03_JPRB,3.3897E-03_JPRB,2.0183E-02_JPRB/)  
+KBO( :, 5,13, 6) = (/&
+ & 4.5925E-03_JPRB,5.7651E-03_JPRB,5.3543E-03_JPRB,4.2359E-03_JPRB,2.1919E-02_JPRB/)  
+KBO( :, 1,14, 6) = (/&
+ & 1.2829E-03_JPRB,1.6450E-03_JPRB,1.5791E-03_JPRB,1.4049E-03_JPRB,1.2669E-02_JPRB/)  
+KBO( :, 2,14, 6) = (/&
+ & 1.7594E-03_JPRB,2.2519E-03_JPRB,2.1337E-03_JPRB,1.8028E-03_JPRB,1.3983E-02_JPRB/)  
+KBO( :, 3,14, 6) = (/&
+ & 2.3660E-03_JPRB,3.0125E-03_JPRB,2.8248E-03_JPRB,2.3088E-03_JPRB,1.5340E-02_JPRB/)  
+KBO( :, 4,14, 6) = (/&
+ & 3.1206E-03_JPRB,3.9492E-03_JPRB,3.6685E-03_JPRB,2.9292E-03_JPRB,1.6758E-02_JPRB/)  
+KBO( :, 5,14, 6) = (/&
+ & 4.0424E-03_JPRB,5.0714E-03_JPRB,4.6797E-03_JPRB,3.6711E-03_JPRB,1.8318E-02_JPRB/)  
+KBO( :, 1,15, 6) = (/&
+ & 1.1010E-03_JPRB,1.4255E-03_JPRB,1.3650E-03_JPRB,1.2017E-03_JPRB,9.7184E-03_JPRB/)  
+KBO( :, 2,15, 6) = (/&
+ & 1.5219E-03_JPRB,1.9593E-03_JPRB,1.8495E-03_JPRB,1.5487E-03_JPRB,1.0782E-02_JPRB/)  
+KBO( :, 3,15, 6) = (/&
+ & 2.0586E-03_JPRB,2.6324E-03_JPRB,2.4574E-03_JPRB,1.9892E-03_JPRB,1.1885E-02_JPRB/)  
+KBO( :, 4,15, 6) = (/&
+ & 2.7279E-03_JPRB,3.4587E-03_JPRB,3.1990E-03_JPRB,2.5317E-03_JPRB,1.3076E-02_JPRB/)  
+KBO( :, 5,15, 6) = (/&
+ & 3.5476E-03_JPRB,4.4511E-03_JPRB,4.0873E-03_JPRB,3.1825E-03_JPRB,1.4381E-02_JPRB/)  
+KBO( :, 1,16, 6) = (/&
+ & 9.4439E-04_JPRB,1.2342E-03_JPRB,1.1791E-03_JPRB,1.0290E-03_JPRB,7.0974E-03_JPRB/)  
+KBO( :, 2,16, 6) = (/&
+ & 1.3152E-03_JPRB,1.7038E-03_JPRB,1.6038E-03_JPRB,1.3320E-03_JPRB,7.9219E-03_JPRB/)  
+KBO( :, 3,16, 6) = (/&
+ & 1.7873E-03_JPRB,2.2957E-03_JPRB,2.1360E-03_JPRB,1.7165E-03_JPRB,8.8130E-03_JPRB/)  
+KBO( :, 4,16, 6) = (/&
+ & 2.3776E-03_JPRB,3.0227E-03_JPRB,2.7856E-03_JPRB,2.1917E-03_JPRB,9.7773E-03_JPRB/)  
+KBO( :, 5,16, 6) = (/&
+ & 3.1042E-03_JPRB,3.9007E-03_JPRB,3.5645E-03_JPRB,2.7609E-03_JPRB,1.0823E-02_JPRB/)  
+KBO( :, 1,17, 6) = (/&
+ & 8.1418E-04_JPRB,1.0727E-03_JPRB,1.0215E-03_JPRB,8.8282E-04_JPRB,5.2836E-03_JPRB/)  
+KBO( :, 2,17, 6) = (/&
+ & 1.1389E-03_JPRB,1.4851E-03_JPRB,1.3936E-03_JPRB,1.1467E-03_JPRB,5.9459E-03_JPRB/)  
+KBO( :, 3,17, 6) = (/&
+ & 1.5530E-03_JPRB,2.0047E-03_JPRB,1.8586E-03_JPRB,1.4830E-03_JPRB,6.6722E-03_JPRB/)  
+KBO( :, 4,17, 6) = (/&
+ & 2.0750E-03_JPRB,2.6425E-03_JPRB,2.4247E-03_JPRB,1.8986E-03_JPRB,7.4589E-03_JPRB/)  
+KBO( :, 5,17, 6) = (/&
+ & 2.7144E-03_JPRB,3.4191E-03_JPRB,3.1093E-03_JPRB,2.3947E-03_JPRB,8.3055E-03_JPRB/)  
+KBO( :, 1,18, 6) = (/&
+ & 7.0743E-04_JPRB,9.3753E-04_JPRB,8.9000E-04_JPRB,7.5959E-04_JPRB,4.0718E-03_JPRB/)  
+KBO( :, 2,18, 6) = (/&
+ & 9.9182E-04_JPRB,1.3005E-03_JPRB,1.2154E-03_JPRB,9.9062E-04_JPRB,4.6245E-03_JPRB/)  
+KBO( :, 3,18, 6) = (/&
+ & 1.3564E-03_JPRB,1.7551E-03_JPRB,1.6207E-03_JPRB,1.2856E-03_JPRB,5.2287E-03_JPRB/)  
+KBO( :, 4,18, 6) = (/&
+ & 1.8159E-03_JPRB,2.3174E-03_JPRB,2.1151E-03_JPRB,1.6469E-03_JPRB,5.8797E-03_JPRB/)  
+KBO( :, 5,18, 6) = (/&
+ & 2.3773E-03_JPRB,3.0052E-03_JPRB,2.7189E-03_JPRB,2.0800E-03_JPRB,6.5746E-03_JPRB/)  
+KBO( :, 1,19, 6) = (/&
+ & 6.1525E-04_JPRB,8.1970E-04_JPRB,7.7553E-04_JPRB,6.5423E-04_JPRB,3.2676E-03_JPRB/)  
+KBO( :, 2,19, 6) = (/&
+ & 8.6391E-04_JPRB,1.1368E-03_JPRB,1.0592E-03_JPRB,8.5683E-04_JPRB,3.7402E-03_JPRB/)  
+KBO( :, 3,19, 6) = (/&
+ & 1.1842E-03_JPRB,1.5349E-03_JPRB,1.4113E-03_JPRB,1.1133E-03_JPRB,4.2531E-03_JPRB/)  
+KBO( :, 4,19, 6) = (/&
+ & 1.5850E-03_JPRB,2.0314E-03_JPRB,1.8453E-03_JPRB,1.4271E-03_JPRB,4.8022E-03_JPRB/)  
+KBO( :, 5,19, 6) = (/&
+ & 2.0738E-03_JPRB,2.6347E-03_JPRB,2.3756E-03_JPRB,1.8073E-03_JPRB,5.3894E-03_JPRB/)  
+KBO( :, 1,20, 6) = (/&
+ & 5.3813E-04_JPRB,7.1852E-04_JPRB,6.7742E-04_JPRB,5.6610E-04_JPRB,2.6837E-03_JPRB/)  
+KBO( :, 2,20, 6) = (/&
+ & 7.5609E-04_JPRB,9.9539E-04_JPRB,9.2396E-04_JPRB,7.4319E-04_JPRB,3.0864E-03_JPRB/)  
+KBO( :, 3,20, 6) = (/&
+ & 1.0360E-03_JPRB,1.3460E-03_JPRB,1.2317E-03_JPRB,9.6600E-04_JPRB,3.5220E-03_JPRB/)  
+KBO( :, 4,20, 6) = (/&
+ & 1.3841E-03_JPRB,1.7811E-03_JPRB,1.6124E-03_JPRB,1.2411E-03_JPRB,3.9882E-03_JPRB/)  
+KBO( :, 5,20, 6) = (/&
+ & 1.8083E-03_JPRB,2.3047E-03_JPRB,2.0753E-03_JPRB,1.5749E-03_JPRB,4.4863E-03_JPRB/)  
+KBO( :, 1,21, 6) = (/&
+ & 4.7047E-04_JPRB,6.2774E-04_JPRB,5.8945E-04_JPRB,4.8888E-04_JPRB,2.2094E-03_JPRB/)  
+KBO( :, 2,21, 6) = (/&
+ & 6.6102E-04_JPRB,8.6924E-04_JPRB,8.0377E-04_JPRB,6.4244E-04_JPRB,2.5494E-03_JPRB/)  
+KBO( :, 3,21, 6) = (/&
+ & 9.0363E-04_JPRB,1.1757E-03_JPRB,1.0725E-03_JPRB,8.3681E-04_JPRB,2.9166E-03_JPRB/)  
+KBO( :, 4,21, 6) = (/&
+ & 1.2048E-03_JPRB,1.5526E-03_JPRB,1.4031E-03_JPRB,1.0775E-03_JPRB,3.3103E-03_JPRB/)  
+KBO( :, 5,21, 6) = (/&
+ & 1.5718E-03_JPRB,2.0028E-03_JPRB,1.8024E-03_JPRB,1.3677E-03_JPRB,3.7308E-03_JPRB/)  
+KBO( :, 1,22, 6) = (/&
+ & 4.1907E-04_JPRB,5.5771E-04_JPRB,5.2119E-04_JPRB,4.2792E-04_JPRB,1.8003E-03_JPRB/)  
+KBO( :, 2,22, 6) = (/&
+ & 5.8671E-04_JPRB,7.7133E-04_JPRB,7.0998E-04_JPRB,5.6325E-04_JPRB,2.0828E-03_JPRB/)  
+KBO( :, 3,22, 6) = (/&
+ & 7.9916E-04_JPRB,1.0396E-03_JPRB,9.4560E-04_JPRB,7.3497E-04_JPRB,2.3875E-03_JPRB/)  
+KBO( :, 4,22, 6) = (/&
+ & 1.0624E-03_JPRB,1.3663E-03_JPRB,1.2338E-03_JPRB,9.4591E-04_JPRB,2.7147E-03_JPRB/)  
+KBO( :, 5,22, 6) = (/&
+ & 1.3828E-03_JPRB,1.7569E-03_JPRB,1.5791E-03_JPRB,1.1986E-03_JPRB,3.0625E-03_JPRB/)  
+KBO( :, 1,23, 6) = (/&
+ & 3.7268E-04_JPRB,4.9540E-04_JPRB,4.6049E-04_JPRB,3.7441E-04_JPRB,1.4599E-03_JPRB/)  
+KBO( :, 2,23, 6) = (/&
+ & 5.1963E-04_JPRB,6.8295E-04_JPRB,6.2616E-04_JPRB,4.9378E-04_JPRB,1.6928E-03_JPRB/)  
+KBO( :, 3,23, 6) = (/&
+ & 7.0552E-04_JPRB,9.1627E-04_JPRB,8.3118E-04_JPRB,6.4434E-04_JPRB,1.9439E-03_JPRB/)  
+KBO( :, 4,23, 6) = (/&
+ & 9.3566E-04_JPRB,1.1987E-03_JPRB,1.0808E-03_JPRB,8.2747E-04_JPRB,2.2129E-03_JPRB/)  
+KBO( :, 5,23, 6) = (/&
+ & 1.2165E-03_JPRB,1.5386E-03_JPRB,1.3793E-03_JPRB,1.0460E-03_JPRB,2.4958E-03_JPRB/)  
+KBO( :, 1,24, 6) = (/&
+ & 3.2966E-04_JPRB,4.3876E-04_JPRB,4.0641E-04_JPRB,3.2767E-04_JPRB,1.1682E-03_JPRB/)  
+KBO( :, 2,24, 6) = (/&
+ & 4.5833E-04_JPRB,6.0226E-04_JPRB,5.5059E-04_JPRB,4.3248E-04_JPRB,1.3581E-03_JPRB/)  
+KBO( :, 3,24, 6) = (/&
+ & 6.2099E-04_JPRB,8.0461E-04_JPRB,7.2851E-04_JPRB,5.6351E-04_JPRB,1.5621E-03_JPRB/)  
+KBO( :, 4,24, 6) = (/&
+ & 8.2193E-04_JPRB,1.0497E-03_JPRB,9.4428E-04_JPRB,7.2199E-04_JPRB,1.7793E-03_JPRB/)  
+KBO( :, 5,24, 6) = (/&
+ & 1.0685E-03_JPRB,1.3449E-03_JPRB,1.2028E-03_JPRB,9.1046E-04_JPRB,2.0052E-03_JPRB/)  
+KBO( :, 1,25, 6) = (/&
+ & 2.9215E-04_JPRB,3.8885E-04_JPRB,3.5906E-04_JPRB,2.8752E-04_JPRB,9.3498E-04_JPRB/)  
+KBO( :, 2,25, 6) = (/&
+ & 4.0498E-04_JPRB,5.3121E-04_JPRB,4.8436E-04_JPRB,3.7925E-04_JPRB,1.0888E-03_JPRB/)  
+KBO( :, 3,25, 6) = (/&
+ & 5.4724E-04_JPRB,7.0707E-04_JPRB,6.3870E-04_JPRB,4.9281E-04_JPRB,1.2539E-03_JPRB/)  
+KBO( :, 4,25, 6) = (/&
+ & 7.2403E-04_JPRB,9.2061E-04_JPRB,8.2594E-04_JPRB,6.2991E-04_JPRB,1.4275E-03_JPRB/)  
+KBO( :, 5,25, 6) = (/&
+ & 9.4207E-04_JPRB,1.1779E-03_JPRB,1.0503E-03_JPRB,7.9277E-04_JPRB,1.6058E-03_JPRB/)  
+KBO( :, 1,26, 6) = (/&
+ & 2.6060E-04_JPRB,3.4625E-04_JPRB,3.1865E-04_JPRB,2.5360E-04_JPRB,7.5595E-04_JPRB/)  
+KBO( :, 2,26, 6) = (/&
+ & 3.5990E-04_JPRB,4.7096E-04_JPRB,4.2792E-04_JPRB,3.3380E-04_JPRB,8.8083E-04_JPRB/)  
+KBO( :, 3,26, 6) = (/&
+ & 4.8540E-04_JPRB,6.2457E-04_JPRB,5.6257E-04_JPRB,4.3260E-04_JPRB,1.0137E-03_JPRB/)  
+KBO( :, 4,26, 6) = (/&
+ & 6.4236E-04_JPRB,8.1177E-04_JPRB,7.2596E-04_JPRB,5.5153E-04_JPRB,1.1519E-03_JPRB/)  
+KBO( :, 5,26, 6) = (/&
+ & 8.3673E-04_JPRB,1.0378E-03_JPRB,9.2177E-04_JPRB,6.9311E-04_JPRB,1.2938E-03_JPRB/)  
+KBO( :, 1,27, 6) = (/&
+ & 2.3167E-04_JPRB,3.0750E-04_JPRB,2.8206E-04_JPRB,2.2335E-04_JPRB,6.0157E-04_JPRB/)  
+KBO( :, 2,27, 6) = (/&
+ & 3.1908E-04_JPRB,4.1650E-04_JPRB,3.7750E-04_JPRB,2.9327E-04_JPRB,7.0083E-04_JPRB/)  
+KBO( :, 3,27, 6) = (/&
+ & 4.3021E-04_JPRB,5.5097E-04_JPRB,4.9488E-04_JPRB,3.7918E-04_JPRB,8.0532E-04_JPRB/)  
+KBO( :, 4,27, 6) = (/&
+ & 5.6999E-04_JPRB,7.1551E-04_JPRB,6.3770E-04_JPRB,4.8255E-04_JPRB,9.1424E-04_JPRB/)  
+KBO( :, 5,27, 6) = (/&
+ & 7.4251E-04_JPRB,9.1481E-04_JPRB,8.0913E-04_JPRB,6.0585E-04_JPRB,1.0264E-03_JPRB/)  
+KBO( :, 1,28, 6) = (/&
+ & 2.0524E-04_JPRB,2.7221E-04_JPRB,2.4906E-04_JPRB,1.9634E-04_JPRB,4.7063E-04_JPRB/)  
+KBO( :, 2,28, 6) = (/&
+ & 2.8255E-04_JPRB,3.6755E-04_JPRB,3.3244E-04_JPRB,2.5733E-04_JPRB,5.4784E-04_JPRB/)  
+KBO( :, 3,28, 6) = (/&
+ & 3.8119E-04_JPRB,4.8546E-04_JPRB,4.3507E-04_JPRB,3.3192E-04_JPRB,6.2929E-04_JPRB/)  
+KBO( :, 4,28, 6) = (/&
+ & 5.0531E-04_JPRB,6.3052E-04_JPRB,5.6015E-04_JPRB,4.2208E-04_JPRB,7.1426E-04_JPRB/)  
+KBO( :, 5,28, 6) = (/&
+ & 6.5768E-04_JPRB,8.0589E-04_JPRB,7.1092E-04_JPRB,5.3007E-04_JPRB,8.0182E-04_JPRB/)  
+KBO( :, 1,29, 6) = (/&
+ & 1.8268E-04_JPRB,2.4155E-04_JPRB,2.2044E-04_JPRB,1.7290E-04_JPRB,3.6473E-04_JPRB/)  
+KBO( :, 2,29, 6) = (/&
+ & 2.5147E-04_JPRB,3.2531E-04_JPRB,2.9347E-04_JPRB,2.2618E-04_JPRB,4.2431E-04_JPRB/)  
+KBO( :, 3,29, 6) = (/&
+ & 3.3930E-04_JPRB,4.2940E-04_JPRB,3.8351E-04_JPRB,2.9136E-04_JPRB,4.8729E-04_JPRB/)  
+KBO( :, 4,29, 6) = (/&
+ & 4.4909E-04_JPRB,5.5754E-04_JPRB,4.9362E-04_JPRB,3.7031E-04_JPRB,5.5277E-04_JPRB/)  
+KBO( :, 5,29, 6) = (/&
+ & 5.8288E-04_JPRB,7.1165E-04_JPRB,6.2625E-04_JPRB,4.6539E-04_JPRB,6.2094E-04_JPRB/)  
+KBO( :, 1,30, 6) = (/&
+ & 1.6275E-04_JPRB,2.1427E-04_JPRB,1.9492E-04_JPRB,1.5221E-04_JPRB,2.7882E-04_JPRB/)  
+KBO( :, 2,30, 6) = (/&
+ & 2.2397E-04_JPRB,2.8807E-04_JPRB,2.5905E-04_JPRB,1.9884E-04_JPRB,3.2464E-04_JPRB/)  
+KBO( :, 3,30, 6) = (/&
+ & 3.0173E-04_JPRB,3.8020E-04_JPRB,3.3838E-04_JPRB,2.5591E-04_JPRB,3.7279E-04_JPRB/)  
+KBO( :, 4,30, 6) = (/&
+ & 3.9835E-04_JPRB,4.9290E-04_JPRB,4.3523E-04_JPRB,3.2539E-04_JPRB,4.2318E-04_JPRB/)  
+KBO( :, 5,30, 6) = (/&
+ & 5.1512E-04_JPRB,6.2814E-04_JPRB,5.5236E-04_JPRB,4.0928E-04_JPRB,4.7644E-04_JPRB/)  
+KBO( :, 1,31, 6) = (/&
+ & 1.4541E-04_JPRB,1.9050E-04_JPRB,1.7269E-04_JPRB,1.3415E-04_JPRB,2.0988E-04_JPRB/)  
+KBO( :, 2,31, 6) = (/&
+ & 1.9968E-04_JPRB,2.5579E-04_JPRB,2.2917E-04_JPRB,1.7504E-04_JPRB,2.4454E-04_JPRB/)  
+KBO( :, 3,31, 6) = (/&
+ & 2.6831E-04_JPRB,3.3713E-04_JPRB,2.9924E-04_JPRB,2.2534E-04_JPRB,2.8116E-04_JPRB/)  
+KBO( :, 4,31, 6) = (/&
+ & 3.5296E-04_JPRB,4.3603E-04_JPRB,3.8460E-04_JPRB,2.8657E-04_JPRB,3.1971E-04_JPRB/)  
+KBO( :, 5,31, 6) = (/&
+ & 4.5385E-04_JPRB,5.5422E-04_JPRB,4.8747E-04_JPRB,3.6051E-04_JPRB,3.6033E-04_JPRB/)  
+KBO( :, 1,32, 6) = (/&
+ & 1.3012E-04_JPRB,1.6979E-04_JPRB,1.5332E-04_JPRB,1.1846E-04_JPRB,1.5858E-04_JPRB/)  
+KBO( :, 2,32, 6) = (/&
+ & 1.7811E-04_JPRB,2.2758E-04_JPRB,2.0328E-04_JPRB,1.5447E-04_JPRB,1.8500E-04_JPRB/)  
+KBO( :, 3,32, 6) = (/&
+ & 2.3846E-04_JPRB,2.9920E-04_JPRB,2.6508E-04_JPRB,1.9890E-04_JPRB,2.1289E-04_JPRB/)  
+KBO( :, 4,32, 6) = (/&
+ & 3.1195E-04_JPRB,3.8579E-04_JPRB,3.4029E-04_JPRB,2.5305E-04_JPRB,2.4226E-04_JPRB/)  
+KBO( :, 5,32, 6) = (/&
+ & 3.9831E-04_JPRB,4.8846E-04_JPRB,4.3040E-04_JPRB,3.1815E-04_JPRB,2.7351E-04_JPRB/)  
+KBO( :, 1,33, 6) = (/&
+ & 1.1634E-04_JPRB,1.5147E-04_JPRB,1.3636E-04_JPRB,1.0475E-04_JPRB,1.1978E-04_JPRB/)  
+KBO( :, 2,33, 6) = (/&
+ & 1.5863E-04_JPRB,2.0248E-04_JPRB,1.8050E-04_JPRB,1.3665E-04_JPRB,1.3973E-04_JPRB/)  
+KBO( :, 3,33, 6) = (/&
+ & 2.1137E-04_JPRB,2.6530E-04_JPRB,2.3496E-04_JPRB,1.7592E-04_JPRB,1.6087E-04_JPRB/)  
+KBO( :, 4,33, 6) = (/&
+ & 2.7467E-04_JPRB,3.4079E-04_JPRB,3.0109E-04_JPRB,2.2372E-04_JPRB,1.8344E-04_JPRB/)  
+KBO( :, 5,33, 6) = (/&
+ & 3.4782E-04_JPRB,4.2919E-04_JPRB,3.7950E-04_JPRB,2.8080E-04_JPRB,2.0757E-04_JPRB/)  
+KBO( :, 1,34, 6) = (/&
+ & 1.0312E-04_JPRB,1.3408E-04_JPRB,1.2041E-04_JPRB,9.2110E-05_JPRB,9.2903E-05_JPRB/)  
+KBO( :, 2,34, 6) = (/&
+ & 1.4008E-04_JPRB,1.7871E-04_JPRB,1.5914E-04_JPRB,1.2016E-04_JPRB,1.0831E-04_JPRB/)  
+KBO( :, 3,34, 6) = (/&
+ & 1.8556E-04_JPRB,2.3329E-04_JPRB,2.0678E-04_JPRB,1.5464E-04_JPRB,1.2476E-04_JPRB/)  
+KBO( :, 4,34, 6) = (/&
+ & 2.3939E-04_JPRB,2.9833E-04_JPRB,2.6429E-04_JPRB,1.9649E-04_JPRB,1.4248E-04_JPRB/)  
+KBO( :, 5,34, 6) = (/&
+ & 3.0117E-04_JPRB,3.7373E-04_JPRB,3.3162E-04_JPRB,2.4605E-04_JPRB,1.6152E-04_JPRB/)  
+KBO( :, 1,35, 6) = (/&
+ & 8.8443E-05_JPRB,1.1512E-04_JPRB,1.0336E-04_JPRB,7.8950E-05_JPRB,7.0684E-05_JPRB/)  
+KBO( :, 2,35, 6) = (/&
+ & 1.1985E-04_JPRB,1.5327E-04_JPRB,1.3658E-04_JPRB,1.0311E-04_JPRB,8.2504E-05_JPRB/)  
+KBO( :, 3,35, 6) = (/&
+ & 1.5813E-04_JPRB,1.9962E-04_JPRB,1.7734E-04_JPRB,1.3276E-04_JPRB,9.5244E-05_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART20',1,ZHOOK_HANDLE)
+END SUBROUTINE PART20
+
+
+SUBROUTINE PART21
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART21',0,ZHOOK_HANDLE)
+
+
+KBO( :, 4,35, 6) = (/&
+ & 2.0303E-04_JPRB,2.5445E-04_JPRB,2.2617E-04_JPRB,1.6859E-04_JPRB,1.0907E-04_JPRB/)  
+KBO( :, 5,35, 6) = (/&
+ & 2.5457E-04_JPRB,3.1764E-04_JPRB,2.8275E-04_JPRB,2.1067E-04_JPRB,1.2401E-04_JPRB/)  
+KBO( :, 1,36, 6) = (/&
+ & 7.3105E-05_JPRB,9.5553E-05_JPRB,8.5894E-05_JPRB,6.5665E-05_JPRB,5.2586E-05_JPRB/)  
+KBO( :, 2,36, 6) = (/&
+ & 9.9088E-05_JPRB,1.2731E-04_JPRB,1.1366E-04_JPRB,8.5950E-05_JPRB,6.1603E-05_JPRB/)  
+KBO( :, 3,36, 6) = (/&
+ & 1.3052E-04_JPRB,1.6575E-04_JPRB,1.4766E-04_JPRB,1.1085E-04_JPRB,7.1395E-05_JPRB/)  
+KBO( :, 4,36, 6) = (/&
+ & 1.6737E-04_JPRB,2.1100E-04_JPRB,1.8817E-04_JPRB,1.4082E-04_JPRB,8.2060E-05_JPRB/)  
+KBO( :, 5,36, 6) = (/&
+ & 2.0971E-04_JPRB,2.6328E-04_JPRB,2.3482E-04_JPRB,1.7583E-04_JPRB,9.3616E-05_JPRB/)  
+KBO( :, 1,37, 6) = (/&
+ & 5.7964E-05_JPRB,7.6160E-05_JPRB,6.8576E-05_JPRB,5.2541E-05_JPRB,4.0073E-05_JPRB/)  
+KBO( :, 2,37, 6) = (/&
+ & 7.8834E-05_JPRB,1.0183E-04_JPRB,9.1063E-05_JPRB,6.9045E-05_JPRB,4.7111E-05_JPRB/)  
+KBO( :, 3,37, 6) = (/&
+ & 1.0412E-04_JPRB,1.3294E-04_JPRB,1.1864E-04_JPRB,8.9322E-05_JPRB,5.4770E-05_JPRB/)  
+KBO( :, 4,37, 6) = (/&
+ & 1.3382E-04_JPRB,1.6952E-04_JPRB,1.5143E-04_JPRB,1.1374E-04_JPRB,6.3134E-05_JPRB/)  
+KBO( :, 5,37, 6) = (/&
+ & 1.6808E-04_JPRB,2.1196E-04_JPRB,1.8928E-04_JPRB,1.4220E-04_JPRB,7.2225E-05_JPRB/)  
+KBO( :, 1,38, 6) = (/&
+ & 4.5775E-05_JPRB,6.0479E-05_JPRB,5.4555E-05_JPRB,4.1902E-05_JPRB,3.0397E-05_JPRB/)  
+KBO( :, 2,38, 6) = (/&
+ & 6.2496E-05_JPRB,8.1164E-05_JPRB,7.2708E-05_JPRB,5.5274E-05_JPRB,3.5878E-05_JPRB/)  
+KBO( :, 3,38, 6) = (/&
+ & 8.2782E-05_JPRB,1.0626E-04_JPRB,9.5002E-05_JPRB,7.1740E-05_JPRB,4.1841E-05_JPRB/)  
+KBO( :, 4,38, 6) = (/&
+ & 1.0670E-04_JPRB,1.3583E-04_JPRB,1.2149E-04_JPRB,9.1558E-05_JPRB,4.8377E-05_JPRB/)  
+KBO( :, 5,38, 6) = (/&
+ & 1.3438E-04_JPRB,1.7021E-04_JPRB,1.5213E-04_JPRB,1.1463E-04_JPRB,5.5512E-05_JPRB/)  
+KBO( :, 1,39, 6) = (/&
+ & 3.6095E-05_JPRB,4.7960E-05_JPRB,4.3340E-05_JPRB,3.3379E-05_JPRB,2.2882E-05_JPRB/)  
+KBO( :, 2,39, 6) = (/&
+ & 4.9468E-05_JPRB,6.4614E-05_JPRB,5.7979E-05_JPRB,4.4199E-05_JPRB,2.7110E-05_JPRB/)  
+KBO( :, 3,39, 6) = (/&
+ & 6.5728E-05_JPRB,8.4830E-05_JPRB,7.5966E-05_JPRB,5.7541E-05_JPRB,3.1729E-05_JPRB/)  
+KBO( :, 4,39, 6) = (/&
+ & 8.4989E-05_JPRB,1.0871E-04_JPRB,9.7338E-05_JPRB,7.3595E-05_JPRB,3.6816E-05_JPRB/)  
+KBO( :, 5,39, 6) = (/&
+ & 1.0733E-04_JPRB,1.3655E-04_JPRB,1.2216E-04_JPRB,9.2289E-05_JPRB,4.2380E-05_JPRB/)  
+KBO( :, 1,40, 6) = (/&
+ & 2.7548E-05_JPRB,3.6866E-05_JPRB,3.3398E-05_JPRB,2.5816E-05_JPRB,1.7406E-05_JPRB/)  
+KBO( :, 2,40, 6) = (/&
+ & 3.8017E-05_JPRB,4.9978E-05_JPRB,4.4939E-05_JPRB,3.4363E-05_JPRB,2.0717E-05_JPRB/)  
+KBO( :, 3,40, 6) = (/&
+ & 5.0843E-05_JPRB,6.5998E-05_JPRB,5.9173E-05_JPRB,4.4960E-05_JPRB,2.4340E-05_JPRB/)  
+KBO( :, 4,40, 6) = (/&
+ & 6.6103E-05_JPRB,8.4982E-05_JPRB,7.6165E-05_JPRB,5.7734E-05_JPRB,2.8334E-05_JPRB/)  
+KBO( :, 5,40, 6) = (/&
+ & 8.3889E-05_JPRB,1.0718E-04_JPRB,9.5971E-05_JPRB,7.2651E-05_JPRB,3.2716E-05_JPRB/)  
+KBO( :, 1,41, 6) = (/&
+ & 2.0891E-05_JPRB,2.8160E-05_JPRB,2.5581E-05_JPRB,1.9853E-05_JPRB,1.3219E-05_JPRB/)  
+KBO( :, 2,41, 6) = (/&
+ & 2.9056E-05_JPRB,3.8448E-05_JPRB,3.4643E-05_JPRB,2.6578E-05_JPRB,1.5803E-05_JPRB/)  
+KBO( :, 3,41, 6) = (/&
+ & 3.9119E-05_JPRB,5.1086E-05_JPRB,4.5870E-05_JPRB,3.4949E-05_JPRB,1.8643E-05_JPRB/)  
+KBO( :, 4,41, 6) = (/&
+ & 5.1167E-05_JPRB,6.6144E-05_JPRB,5.9321E-05_JPRB,4.5078E-05_JPRB,2.1781E-05_JPRB/)  
+KBO( :, 5,41, 6) = (/&
+ & 6.5313E-05_JPRB,8.3807E-05_JPRB,7.5100E-05_JPRB,5.6965E-05_JPRB,2.5228E-05_JPRB/)  
+KBO( :, 1,42, 6) = (/&
+ & 1.5797E-05_JPRB,2.1452E-05_JPRB,1.9541E-05_JPRB,1.5234E-05_JPRB,9.9864E-06_JPRB/)  
+KBO( :, 2,42, 6) = (/&
+ & 2.2148E-05_JPRB,2.9506E-05_JPRB,2.6644E-05_JPRB,2.0507E-05_JPRB,1.1995E-05_JPRB/)  
+KBO( :, 3,42, 6) = (/&
+ & 3.0028E-05_JPRB,3.9456E-05_JPRB,3.5478E-05_JPRB,2.7113E-05_JPRB,1.4215E-05_JPRB/)  
+KBO( :, 4,42, 6) = (/&
+ & 3.9526E-05_JPRB,5.1380E-05_JPRB,4.6122E-05_JPRB,3.5139E-05_JPRB,1.6670E-05_JPRB/)  
+KBO( :, 5,42, 6) = (/&
+ & 5.0747E-05_JPRB,6.5409E-05_JPRB,5.8661E-05_JPRB,4.4588E-05_JPRB,1.9369E-05_JPRB/)  
+KBO( :, 1,43, 6) = (/&
+ & 1.1685E-05_JPRB,1.6001E-05_JPRB,1.4628E-05_JPRB,1.1471E-05_JPRB,7.4936E-06_JPRB/)  
+KBO( :, 2,43, 6) = (/&
+ & 1.6548E-05_JPRB,2.2213E-05_JPRB,2.0113E-05_JPRB,1.5537E-05_JPRB,9.0536E-06_JPRB/)  
+KBO( :, 3,43, 6) = (/&
+ & 2.2638E-05_JPRB,2.9954E-05_JPRB,2.6979E-05_JPRB,2.0685E-05_JPRB,1.0779E-05_JPRB/)  
+KBO( :, 4,43, 6) = (/&
+ & 3.0048E-05_JPRB,3.9293E-05_JPRB,3.5311E-05_JPRB,2.6968E-05_JPRB,1.2697E-05_JPRB/)  
+KBO( :, 5,43, 6) = (/&
+ & 3.8860E-05_JPRB,5.0338E-05_JPRB,4.5183E-05_JPRB,3.4410E-05_JPRB,1.4806E-05_JPRB/)  
+KBO( :, 1,44, 6) = (/&
+ & 8.5348E-06_JPRB,1.1792E-05_JPRB,1.0825E-05_JPRB,8.5515E-06_JPRB,5.5871E-06_JPRB/)  
+KBO( :, 2,44, 6) = (/&
+ & 1.2224E-05_JPRB,1.6542E-05_JPRB,1.5023E-05_JPRB,1.1659E-05_JPRB,6.7947E-06_JPRB/)  
+KBO( :, 3,44, 6) = (/&
+ & 1.6899E-05_JPRB,2.2521E-05_JPRB,2.0321E-05_JPRB,1.5633E-05_JPRB,8.1320E-06_JPRB/)  
+KBO( :, 4,44, 6) = (/&
+ & 2.2637E-05_JPRB,2.9783E-05_JPRB,2.6801E-05_JPRB,2.0525E-05_JPRB,9.6227E-06_JPRB/)  
+KBO( :, 5,44, 6) = (/&
+ & 2.9511E-05_JPRB,3.8437E-05_JPRB,3.4531E-05_JPRB,2.6356E-05_JPRB,1.1265E-05_JPRB/)  
+KBO( :, 1,45, 6) = (/&
+ & 6.2053E-06_JPRB,8.6498E-06_JPRB,7.9828E-06_JPRB,6.3587E-06_JPRB,4.1355E-06_JPRB/)  
+KBO( :, 2,45, 6) = (/&
+ & 8.9924E-06_JPRB,1.2274E-05_JPRB,1.1184E-05_JPRB,8.7228E-06_JPRB,5.0646E-06_JPRB/)  
+KBO( :, 3,45, 6) = (/&
+ & 1.2577E-05_JPRB,1.6878E-05_JPRB,1.5263E-05_JPRB,1.1781E-05_JPRB,6.0980E-06_JPRB/)  
+KBO( :, 4,45, 6) = (/&
+ & 1.7004E-05_JPRB,2.2510E-05_JPRB,2.0287E-05_JPRB,1.5579E-05_JPRB,7.2495E-06_JPRB/)  
+KBO( :, 5,45, 6) = (/&
+ & 2.2345E-05_JPRB,2.9273E-05_JPRB,2.6327E-05_JPRB,2.0139E-05_JPRB,8.5241E-06_JPRB/)  
+KBO( :, 1,46, 6) = (/&
+ & 4.4535E-06_JPRB,6.2663E-06_JPRB,5.8215E-06_JPRB,4.6847E-06_JPRB,3.0403E-06_JPRB/)  
+KBO( :, 2,46, 6) = (/&
+ & 6.5386E-06_JPRB,9.0087E-06_JPRB,8.2383E-06_JPRB,6.4650E-06_JPRB,3.7495E-06_JPRB/)  
+KBO( :, 3,46, 6) = (/&
+ & 9.2626E-06_JPRB,1.2523E-05_JPRB,1.1353E-05_JPRB,8.7958E-06_JPRB,4.5455E-06_JPRB/)  
+KBO( :, 4,46, 6) = (/&
+ & 1.2652E-05_JPRB,1.6866E-05_JPRB,1.5224E-05_JPRB,1.1726E-05_JPRB,5.4324E-06_JPRB/)  
+KBO( :, 5,46, 6) = (/&
+ & 1.6782E-05_JPRB,2.2115E-05_JPRB,1.9910E-05_JPRB,1.5271E-05_JPRB,6.4154E-06_JPRB/)  
+KBO( :, 1,47, 6) = (/&
+ & 3.1255E-06_JPRB,4.4445E-06_JPRB,4.1625E-06_JPRB,3.3973E-06_JPRB,2.2248E-06_JPRB/)  
+KBO( :, 2,47, 6) = (/&
+ & 4.6607E-06_JPRB,6.4871E-06_JPRB,5.9609E-06_JPRB,4.7149E-06_JPRB,2.7633E-06_JPRB/)  
+KBO( :, 3,47, 6) = (/&
+ & 6.6996E-06_JPRB,9.1349E-06_JPRB,8.3072E-06_JPRB,6.4651E-06_JPRB,3.3751E-06_JPRB/)  
+KBO( :, 4,47, 6) = (/&
+ & 9.2705E-06_JPRB,1.2449E-05_JPRB,1.1256E-05_JPRB,8.6999E-06_JPRB,4.0582E-06_JPRB/)  
+KBO( :, 5,47, 6) = (/&
+ & 1.2429E-05_JPRB,1.6480E-05_JPRB,1.4854E-05_JPRB,1.1428E-05_JPRB,4.8166E-06_JPRB/)  
+KBO( :, 1,48, 6) = (/&
+ & 2.1776E-06_JPRB,3.1287E-06_JPRB,2.9593E-06_JPRB,2.4588E-06_JPRB,1.6162E-06_JPRB/)  
+KBO( :, 2,48, 6) = (/&
+ & 3.3004E-06_JPRB,4.6424E-06_JPRB,4.2915E-06_JPRB,3.4279E-06_JPRB,2.0216E-06_JPRB/)  
+KBO( :, 3,48, 6) = (/&
+ & 4.8178E-06_JPRB,6.6317E-06_JPRB,6.0512E-06_JPRB,4.7347E-06_JPRB,2.4869E-06_JPRB/)  
+KBO( :, 4,48, 6) = (/&
+ & 6.7632E-06_JPRB,9.1507E-06_JPRB,8.2914E-06_JPRB,6.4284E-06_JPRB,3.0099E-06_JPRB/)  
+KBO( :, 5,48, 6) = (/&
+ & 9.1697E-06_JPRB,1.2234E-05_JPRB,1.1042E-05_JPRB,8.5224E-06_JPRB,3.5919E-06_JPRB/)  
+KBO( :, 1,49, 6) = (/&
+ & 1.5053E-06_JPRB,2.1858E-06_JPRB,2.0909E-06_JPRB,1.7774E-06_JPRB,1.1638E-06_JPRB/)  
+KBO( :, 2,49, 6) = (/&
+ & 2.3208E-06_JPRB,3.3001E-06_JPRB,3.0741E-06_JPRB,2.4849E-06_JPRB,1.4655E-06_JPRB/)  
+KBO( :, 3,49, 6) = (/&
+ & 3.4426E-06_JPRB,4.7874E-06_JPRB,4.3858E-06_JPRB,3.4542E-06_JPRB,1.8145E-06_JPRB/)  
+KBO( :, 4,49, 6) = (/&
+ & 4.9073E-06_JPRB,6.6937E-06_JPRB,6.0798E-06_JPRB,4.7299E-06_JPRB,2.2116E-06_JPRB/)  
+KBO( :, 5,49, 6) = (/&
+ & 6.7349E-06_JPRB,9.0453E-06_JPRB,8.1769E-06_JPRB,6.3309E-06_JPRB,2.6545E-06_JPRB/)  
+KBO( :, 1,50, 6) = (/&
+ & 1.0462E-06_JPRB,1.5340E-06_JPRB,1.4848E-06_JPRB,1.2964E-06_JPRB,8.5273E-07_JPRB/)  
+KBO( :, 2,50, 6) = (/&
+ & 1.6402E-06_JPRB,2.3557E-06_JPRB,2.2124E-06_JPRB,1.8137E-06_JPRB,1.0799E-06_JPRB/)  
+KBO( :, 3,50, 6) = (/&
+ & 2.4709E-06_JPRB,3.4712E-06_JPRB,3.1941E-06_JPRB,2.5342E-06_JPRB,1.3448E-06_JPRB/)  
+KBO( :, 4,50, 6) = (/&
+ & 3.5758E-06_JPRB,4.9168E-06_JPRB,4.4776E-06_JPRB,3.4964E-06_JPRB,1.6496E-06_JPRB/)  
+KBO( :, 5,50, 6) = (/&
+ & 4.9702E-06_JPRB,6.7202E-06_JPRB,6.0835E-06_JPRB,4.7222E-06_JPRB,1.9912E-06_JPRB/)  
+KBO( :, 1,51, 6) = (/&
+ & 7.2663E-07_JPRB,1.0750E-06_JPRB,1.0542E-06_JPRB,9.5059E-07_JPRB,6.2987E-07_JPRB/)  
+KBO( :, 2,51, 6) = (/&
+ & 1.1582E-06_JPRB,1.6789E-06_JPRB,1.5910E-06_JPRB,1.3276E-06_JPRB,8.0106E-07_JPRB/)  
+KBO( :, 3,51, 6) = (/&
+ & 1.7719E-06_JPRB,2.5144E-06_JPRB,2.3267E-06_JPRB,1.8622E-06_JPRB,1.0033E-06_JPRB/)  
+KBO( :, 4,51, 6) = (/&
+ & 2.6046E-06_JPRB,3.6115E-06_JPRB,3.2983E-06_JPRB,2.5872E-06_JPRB,1.2381E-06_JPRB/)  
+KBO( :, 5,51, 6) = (/&
+ & 3.6697E-06_JPRB,4.9945E-06_JPRB,4.5288E-06_JPRB,3.5236E-06_JPRB,1.5031E-06_JPRB/)  
+KBO( :, 1,52, 6) = (/&
+ & 5.0128E-07_JPRB,7.4829E-07_JPRB,7.4503E-07_JPRB,6.9902E-07_JPRB,4.6417E-07_JPRB/)  
+KBO( :, 2,52, 6) = (/&
+ & 8.1290E-07_JPRB,1.1889E-06_JPRB,1.1383E-06_JPRB,9.7075E-07_JPRB,5.9124E-07_JPRB/)  
+KBO( :, 3,52, 6) = (/&
+ & 1.2637E-06_JPRB,1.8111E-06_JPRB,1.6874E-06_JPRB,1.3654E-06_JPRB,7.4485E-07_JPRB/)  
+KBO( :, 4,52, 6) = (/&
+ & 1.8870E-06_JPRB,2.6414E-06_JPRB,2.4208E-06_JPRB,1.9088E-06_JPRB,9.2398E-07_JPRB/)  
+KBO( :, 5,52, 6) = (/&
+ & 2.6982E-06_JPRB,3.6981E-06_JPRB,3.3605E-06_JPRB,2.6209E-06_JPRB,1.1284E-06_JPRB/)  
+KBO( :, 1,53, 6) = (/&
+ & 3.4316E-07_JPRB,5.1730E-07_JPRB,5.2428E-07_JPRB,5.1650E-07_JPRB,3.4163E-07_JPRB/)  
+KBO( :, 2,53, 6) = (/&
+ & 5.6636E-07_JPRB,8.3600E-07_JPRB,8.0988E-07_JPRB,7.0959E-07_JPRB,4.3402E-07_JPRB/)  
+KBO( :, 3,53, 6) = (/&
+ & 8.9539E-07_JPRB,1.2957E-06_JPRB,1.2170E-06_JPRB,9.9881E-07_JPRB,5.4917E-07_JPRB/)  
+KBO( :, 4,53, 6) = (/&
+ & 1.3585E-06_JPRB,1.9213E-06_JPRB,1.7681E-06_JPRB,1.4039E-06_JPRB,6.8487E-07_JPRB/)  
+KBO( :, 5,53, 6) = (/&
+ & 1.9728E-06_JPRB,2.7267E-06_JPRB,2.4840E-06_JPRB,1.9431E-06_JPRB,8.4127E-07_JPRB/)  
+KBO( :, 1,54, 6) = (/&
+ & 2.3729E-07_JPRB,3.6141E-07_JPRB,3.7346E-07_JPRB,3.8814E-07_JPRB,2.5965E-07_JPRB/)  
+KBO( :, 2,54, 6) = (/&
+ & 3.9847E-07_JPRB,5.9281E-07_JPRB,5.8145E-07_JPRB,5.2497E-07_JPRB,3.2865E-07_JPRB/)  
+KBO( :, 3,54, 6) = (/&
+ & 6.4012E-07_JPRB,9.3418E-07_JPRB,8.8451E-07_JPRB,7.3760E-07_JPRB,4.1726E-07_JPRB/)  
+KBO( :, 4,54, 6) = (/&
+ & 9.8548E-07_JPRB,1.4072E-06_JPRB,1.3009E-06_JPRB,1.0414E-06_JPRB,5.2304E-07_JPRB/)  
+KBO( :, 5,54, 6) = (/&
+ & 1.4524E-06_JPRB,2.0243E-06_JPRB,1.8490E-06_JPRB,1.4514E-06_JPRB,6.4582E-07_JPRB/)  
+KBO( :, 1,55, 6) = (/&
+ & 1.6422E-07_JPRB,2.5313E-07_JPRB,2.6741E-07_JPRB,2.9555E-07_JPRB,2.0083E-07_JPRB/)  
+KBO( :, 2,55, 6) = (/&
+ & 2.8085E-07_JPRB,4.2089E-07_JPRB,4.1847E-07_JPRB,3.9112E-07_JPRB,2.5331E-07_JPRB/)  
+KBO( :, 3,55, 6) = (/&
+ & 4.5840E-07_JPRB,6.7405E-07_JPRB,6.4380E-07_JPRB,5.4696E-07_JPRB,3.2245E-07_JPRB/)  
+KBO( :, 4,55, 6) = (/&
+ & 7.1591E-07_JPRB,1.0314E-06_JPRB,9.5879E-07_JPRB,7.7462E-07_JPRB,4.0636E-07_JPRB/)  
+KBO( :, 5,55, 6) = (/&
+ & 1.0707E-06_JPRB,1.5050E-06_JPRB,1.3785E-06_JPRB,1.0868E-06_JPRB,5.0407E-07_JPRB/)  
+KBO( :, 1,56, 6) = (/&
+ & 1.1297E-07_JPRB,1.7654E-07_JPRB,1.9160E-07_JPRB,2.2785E-07_JPRB,1.5600E-07_JPRB/)  
+KBO( :, 2,56, 6) = (/&
+ & 1.9687E-07_JPRB,2.9736E-07_JPRB,3.0024E-07_JPRB,2.9250E-07_JPRB,1.9557E-07_JPRB/)  
+KBO( :, 3,56, 6) = (/&
+ & 3.2655E-07_JPRB,4.8379E-07_JPRB,4.6673E-07_JPRB,4.0545E-07_JPRB,2.4926E-07_JPRB/)  
+KBO( :, 4,56, 6) = (/&
+ & 5.1776E-07_JPRB,7.5239E-07_JPRB,7.0397E-07_JPRB,5.7515E-07_JPRB,3.1570E-07_JPRB/)  
+KBO( :, 5,56, 6) = (/&
+ & 7.8583E-07_JPRB,1.1146E-06_JPRB,1.0242E-06_JPRB,8.1180E-07_JPRB,3.9355E-07_JPRB/)  
+KBO( :, 1,57, 6) = (/&
+ & 7.7200E-08_JPRB,1.2264E-07_JPRB,1.3766E-07_JPRB,1.7856E-07_JPRB,1.2187E-07_JPRB/)  
+KBO( :, 2,57, 6) = (/&
+ & 1.3715E-07_JPRB,2.0905E-07_JPRB,2.1488E-07_JPRB,2.1998E-07_JPRB,1.5127E-07_JPRB/)  
+KBO( :, 3,57, 6) = (/&
+ & 2.3136E-07_JPRB,3.4526E-07_JPRB,3.3687E-07_JPRB,3.0067E-07_JPRB,1.9276E-07_JPRB/)  
+KBO( :, 4,57, 6) = (/&
+ & 3.7265E-07_JPRB,5.4598E-07_JPRB,5.1453E-07_JPRB,4.2632E-07_JPRB,2.4529E-07_JPRB/)  
+KBO( :, 5,57, 6) = (/&
+ & 5.7396E-07_JPRB,8.2172E-07_JPRB,7.5794E-07_JPRB,6.0477E-07_JPRB,3.0747E-07_JPRB/)  
+KBO( :, 1,58, 6) = (/&
+ & 5.2955E-08_JPRB,8.5764E-08_JPRB,1.0017E-07_JPRB,1.4310E-07_JPRB,9.6433E-08_JPRB/)  
+KBO( :, 2,58, 6) = (/&
+ & 9.5831E-08_JPRB,1.4757E-07_JPRB,1.5479E-07_JPRB,1.6745E-07_JPRB,1.1819E-07_JPRB/)  
+KBO( :, 3,58, 6) = (/&
+ & 1.6444E-07_JPRB,2.4707E-07_JPRB,2.4397E-07_JPRB,2.2463E-07_JPRB,1.5059E-07_JPRB/)  
+KBO( :, 4,58, 6) = (/&
+ & 2.6896E-07_JPRB,3.9698E-07_JPRB,3.7706E-07_JPRB,3.1744E-07_JPRB,1.9236E-07_JPRB/)  
+KBO( :, 5,58, 6) = (/&
+ & 4.2027E-07_JPRB,6.0686E-07_JPRB,5.6217E-07_JPRB,4.5216E-07_JPRB,2.4243E-07_JPRB/)  
+KBO( :, 1,59, 6) = (/&
+ & 4.0613E-08_JPRB,6.6330E-08_JPRB,7.8756E-08_JPRB,1.1682E-07_JPRB,8.0763E-08_JPRB/)  
+KBO( :, 2,59, 6) = (/&
+ & 7.4110E-08_JPRB,1.1464E-07_JPRB,1.2119E-07_JPRB,1.3394E-07_JPRB,1.0024E-07_JPRB/)  
+KBO( :, 3,59, 6) = (/&
+ & 1.2825E-07_JPRB,1.9327E-07_JPRB,1.9161E-07_JPRB,1.7847E-07_JPRB,1.2887E-07_JPRB/)  
+KBO( :, 4,59, 6) = (/&
+ & 2.1125E-07_JPRB,3.1279E-07_JPRB,2.9779E-07_JPRB,2.5217E-07_JPRB,1.6539E-07_JPRB/)  
+KBO( :, 5,59, 6) = (/&
+ & 3.3221E-07_JPRB,4.8128E-07_JPRB,4.4648E-07_JPRB,3.6014E-07_JPRB,2.0916E-07_JPRB/)  
+KBO( :, 1,13, 7) = (/&
+ & 4.0082E-03_JPRB,4.7471E-03_JPRB,4.2106E-03_JPRB,3.3097E-03_JPRB,2.9797E-02_JPRB/)  
+KBO( :, 2,13, 7) = (/&
+ & 5.4956E-03_JPRB,6.4503E-03_JPRB,5.6741E-03_JPRB,4.3606E-03_JPRB,3.3076E-02_JPRB/)  
+KBO( :, 3,13, 7) = (/&
+ & 7.3201E-03_JPRB,8.5434E-03_JPRB,7.4724E-03_JPRB,5.6899E-03_JPRB,3.6718E-02_JPRB/)  
+KBO( :, 4,13, 7) = (/&
+ & 9.4768E-03_JPRB,1.1006E-02_JPRB,9.6490E-03_JPRB,7.3607E-03_JPRB,4.0562E-02_JPRB/)  
+KBO( :, 5,13, 7) = (/&
+ & 1.2016E-02_JPRB,1.3883E-02_JPRB,1.2248E-02_JPRB,9.4126E-03_JPRB,4.4607E-02_JPRB/)  
+KBO( :, 1,14, 7) = (/&
+ & 3.5182E-03_JPRB,4.1440E-03_JPRB,3.6712E-03_JPRB,2.8865E-03_JPRB,2.5106E-02_JPRB/)  
+KBO( :, 2,14, 7) = (/&
+ & 4.8368E-03_JPRB,5.6585E-03_JPRB,4.9763E-03_JPRB,3.8241E-03_JPRB,2.8178E-02_JPRB/)  
+KBO( :, 3,14, 7) = (/&
+ & 6.4391E-03_JPRB,7.4926E-03_JPRB,6.5797E-03_JPRB,5.0127E-03_JPRB,3.1499E-02_JPRB/)  
+KBO( :, 4,14, 7) = (/&
+ & 8.3556E-03_JPRB,9.6590E-03_JPRB,8.4959E-03_JPRB,6.4956E-03_JPRB,3.4983E-02_JPRB/)  
+KBO( :, 5,14, 7) = (/&
+ & 1.0636E-02_JPRB,1.2197E-02_JPRB,1.0778E-02_JPRB,8.2927E-03_JPRB,3.8677E-02_JPRB/)  
+KBO( :, 1,15, 7) = (/&
+ & 3.0808E-03_JPRB,3.6180E-03_JPRB,3.2024E-03_JPRB,2.5077E-03_JPRB,2.0133E-02_JPRB/)  
+KBO( :, 2,15, 7) = (/&
+ & 4.2342E-03_JPRB,4.9408E-03_JPRB,4.3573E-03_JPRB,3.3447E-03_JPRB,2.2811E-02_JPRB/)  
+KBO( :, 3,15, 7) = (/&
+ & 5.6484E-03_JPRB,6.5425E-03_JPRB,5.7598E-03_JPRB,4.4050E-03_JPRB,2.5648E-02_JPRB/)  
+KBO( :, 4,15, 7) = (/&
+ & 7.3569E-03_JPRB,8.4459E-03_JPRB,7.4478E-03_JPRB,5.6997E-03_JPRB,2.8633E-02_JPRB/)  
+KBO( :, 5,15, 7) = (/&
+ & 9.4079E-03_JPRB,1.0695E-02_JPRB,9.4525E-03_JPRB,7.2671E-03_JPRB,3.1750E-02_JPRB/)  
+KBO( :, 1,16, 7) = (/&
+ & 2.6937E-03_JPRB,3.1581E-03_JPRB,2.7980E-03_JPRB,2.1775E-03_JPRB,1.5394E-02_JPRB/)  
+KBO( :, 2,16, 7) = (/&
+ & 3.7085E-03_JPRB,4.3109E-03_JPRB,3.8048E-03_JPRB,2.9219E-03_JPRB,1.7507E-02_JPRB/)  
+KBO( :, 3,16, 7) = (/&
+ & 4.9609E-03_JPRB,5.7164E-03_JPRB,5.0355E-03_JPRB,3.8483E-03_JPRB,1.9730E-02_JPRB/)  
+KBO( :, 4,16, 7) = (/&
+ & 6.4895E-03_JPRB,7.4002E-03_JPRB,6.5219E-03_JPRB,4.9806E-03_JPRB,2.2084E-02_JPRB/)  
+KBO( :, 5,16, 7) = (/&
+ & 8.3163E-03_JPRB,9.4051E-03_JPRB,8.2914E-03_JPRB,6.3525E-03_JPRB,2.4551E-02_JPRB/)  
+KBO( :, 1,17, 7) = (/&
+ & 2.3642E-03_JPRB,2.7668E-03_JPRB,2.4489E-03_JPRB,1.8988E-03_JPRB,1.1868E-02_JPRB/)  
+KBO( :, 2,17, 7) = (/&
+ & 3.2598E-03_JPRB,3.7811E-03_JPRB,3.3290E-03_JPRB,2.5510E-03_JPRB,1.3559E-02_JPRB/)  
+KBO( :, 3,17, 7) = (/&
+ & 4.3747E-03_JPRB,5.0202E-03_JPRB,4.4155E-03_JPRB,3.3613E-03_JPRB,1.5340E-02_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART21',1,ZHOOK_HANDLE)
+END SUBROUTINE PART21
+
+
+SUBROUTINE PART22
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART22',0,ZHOOK_HANDLE)
+
+
+KBO( :, 4,17, 7) = (/&
+ & 5.7340E-03_JPRB,6.5189E-03_JPRB,5.7286E-03_JPRB,4.3538E-03_JPRB,1.7220E-02_JPRB/)  
+KBO( :, 5,17, 7) = (/&
+ & 7.3600E-03_JPRB,8.2990E-03_JPRB,7.2992E-03_JPRB,5.5548E-03_JPRB,1.9205E-02_JPRB/)  
+KBO( :, 1,18, 7) = (/&
+ & 2.0898E-03_JPRB,2.4405E-03_JPRB,2.1542E-03_JPRB,1.6626E-03_JPRB,9.4417E-03_JPRB/)  
+KBO( :, 2,18, 7) = (/&
+ & 2.8863E-03_JPRB,3.3353E-03_JPRB,2.9318E-03_JPRB,2.2352E-03_JPRB,1.0813E-02_JPRB/)  
+KBO( :, 3,18, 7) = (/&
+ & 3.8771E-03_JPRB,4.4358E-03_JPRB,3.8935E-03_JPRB,2.9472E-03_JPRB,1.2260E-02_JPRB/)  
+KBO( :, 4,18, 7) = (/&
+ & 5.0839E-03_JPRB,5.7663E-03_JPRB,5.0610E-03_JPRB,3.8229E-03_JPRB,1.3797E-02_JPRB/)  
+KBO( :, 5,18, 7) = (/&
+ & 6.5362E-03_JPRB,7.3472E-03_JPRB,6.4549E-03_JPRB,4.8781E-03_JPRB,1.5427E-02_JPRB/)  
+KBO( :, 1,19, 7) = (/&
+ & 1.8517E-03_JPRB,2.1548E-03_JPRB,1.8965E-03_JPRB,1.4580E-03_JPRB,7.7773E-03_JPRB/)  
+KBO( :, 2,19, 7) = (/&
+ & 2.5576E-03_JPRB,2.9471E-03_JPRB,2.5846E-03_JPRB,1.9612E-03_JPRB,8.9176E-03_JPRB/)  
+KBO( :, 3,19, 7) = (/&
+ & 3.4345E-03_JPRB,3.9244E-03_JPRB,3.4362E-03_JPRB,2.5906E-03_JPRB,1.0132E-02_JPRB/)  
+KBO( :, 4,19, 7) = (/&
+ & 4.5064E-03_JPRB,5.0994E-03_JPRB,4.4700E-03_JPRB,3.3642E-03_JPRB,1.1431E-02_JPRB/)  
+KBO( :, 5,19, 7) = (/&
+ & 5.8097E-03_JPRB,6.5083E-03_JPRB,5.7046E-03_JPRB,4.2905E-03_JPRB,1.2808E-02_JPRB/)  
+KBO( :, 1,20, 7) = (/&
+ & 1.6458E-03_JPRB,1.9103E-03_JPRB,1.6781E-03_JPRB,1.2831E-03_JPRB,6.5141E-03_JPRB/)  
+KBO( :, 2,20, 7) = (/&
+ & 2.2698E-03_JPRB,2.6130E-03_JPRB,2.2877E-03_JPRB,1.7278E-03_JPRB,7.4849E-03_JPRB/)  
+KBO( :, 3,20, 7) = (/&
+ & 3.0464E-03_JPRB,3.4772E-03_JPRB,3.0427E-03_JPRB,2.2845E-03_JPRB,8.5198E-03_JPRB/)  
+KBO( :, 4,20, 7) = (/&
+ & 4.0053E-03_JPRB,4.5205E-03_JPRB,3.9563E-03_JPRB,2.9671E-03_JPRB,9.6230E-03_JPRB/)  
+KBO( :, 5,20, 7) = (/&
+ & 5.1704E-03_JPRB,5.7875E-03_JPRB,5.0542E-03_JPRB,3.7806E-03_JPRB,1.0800E-02_JPRB/)  
+KBO( :, 1,21, 7) = (/&
+ & 1.4548E-03_JPRB,1.6903E-03_JPRB,1.4830E-03_JPRB,1.1276E-03_JPRB,5.4461E-03_JPRB/)  
+KBO( :, 2,21, 7) = (/&
+ & 2.0031E-03_JPRB,2.3102E-03_JPRB,2.0214E-03_JPRB,1.5202E-03_JPRB,6.2763E-03_JPRB/)  
+KBO( :, 3,21, 7) = (/&
+ & 2.6919E-03_JPRB,3.0723E-03_JPRB,2.6854E-03_JPRB,2.0114E-03_JPRB,7.1636E-03_JPRB/)  
+KBO( :, 4,21, 7) = (/&
+ & 3.5436E-03_JPRB,4.0040E-03_JPRB,3.4935E-03_JPRB,2.6088E-03_JPRB,8.1098E-03_JPRB/)  
+KBO( :, 5,21, 7) = (/&
+ & 4.5742E-03_JPRB,5.1416E-03_JPRB,4.4723E-03_JPRB,3.3261E-03_JPRB,9.1112E-03_JPRB/)  
+KBO( :, 1,22, 7) = (/&
+ & 1.3025E-03_JPRB,1.5176E-03_JPRB,1.3319E-03_JPRB,1.0078E-03_JPRB,4.4970E-03_JPRB/)  
+KBO( :, 2,22, 7) = (/&
+ & 1.7911E-03_JPRB,2.0676E-03_JPRB,1.8104E-03_JPRB,1.3583E-03_JPRB,5.1953E-03_JPRB/)  
+KBO( :, 3,22, 7) = (/&
+ & 2.4070E-03_JPRB,2.7511E-03_JPRB,2.4021E-03_JPRB,1.7933E-03_JPRB,5.9455E-03_JPRB/)  
+KBO( :, 4,22, 7) = (/&
+ & 3.1635E-03_JPRB,3.5916E-03_JPRB,3.1285E-03_JPRB,2.3228E-03_JPRB,6.7435E-03_JPRB/)  
+KBO( :, 5,22, 7) = (/&
+ & 4.0745E-03_JPRB,4.6107E-03_JPRB,4.0048E-03_JPRB,2.9650E-03_JPRB,7.5904E-03_JPRB/)  
+KBO( :, 1,23, 7) = (/&
+ & 1.1628E-03_JPRB,1.3564E-03_JPRB,1.1911E-03_JPRB,9.0035E-04_JPRB,3.6865E-03_JPRB/)  
+KBO( :, 2,23, 7) = (/&
+ & 1.5981E-03_JPRB,1.8458E-03_JPRB,1.6157E-03_JPRB,1.2111E-03_JPRB,4.2718E-03_JPRB/)  
+KBO( :, 3,23, 7) = (/&
+ & 2.1434E-03_JPRB,2.4578E-03_JPRB,2.1451E-03_JPRB,1.5961E-03_JPRB,4.9004E-03_JPRB/)  
+KBO( :, 4,23, 7) = (/&
+ & 2.8070E-03_JPRB,3.2089E-03_JPRB,2.7931E-03_JPRB,2.0693E-03_JPRB,5.5690E-03_JPRB/)  
+KBO( :, 5,23, 7) = (/&
+ & 3.6060E-03_JPRB,4.1114E-03_JPRB,3.5718E-03_JPRB,2.6408E-03_JPRB,6.2767E-03_JPRB/)  
+KBO( :, 1,24, 7) = (/&
+ & 1.0349E-03_JPRB,1.2079E-03_JPRB,1.0608E-03_JPRB,8.0145E-04_JPRB,2.9772E-03_JPRB/)  
+KBO( :, 2,24, 7) = (/&
+ & 1.4200E-03_JPRB,1.6442E-03_JPRB,1.4384E-03_JPRB,1.0762E-03_JPRB,3.4619E-03_JPRB/)  
+KBO( :, 3,24, 7) = (/&
+ & 1.8974E-03_JPRB,2.1881E-03_JPRB,1.9089E-03_JPRB,1.4192E-03_JPRB,3.9815E-03_JPRB/)  
+KBO( :, 4,24, 7) = (/&
+ & 2.4779E-03_JPRB,2.8499E-03_JPRB,2.4818E-03_JPRB,1.8400E-03_JPRB,4.5322E-03_JPRB/)  
+KBO( :, 5,24, 7) = (/&
+ & 3.1754E-03_JPRB,3.6385E-03_JPRB,3.1666E-03_JPRB,2.3457E-03_JPRB,5.1151E-03_JPRB/)  
+KBO( :, 1,25, 7) = (/&
+ & 9.2232E-04_JPRB,1.0772E-03_JPRB,9.4524E-04_JPRB,7.1253E-04_JPRB,2.4032E-03_JPRB/)  
+KBO( :, 2,25, 7) = (/&
+ & 1.2605E-03_JPRB,1.4648E-03_JPRB,1.2810E-03_JPRB,9.5673E-04_JPRB,2.8023E-03_JPRB/)  
+KBO( :, 3,25, 7) = (/&
+ & 1.6782E-03_JPRB,1.9434E-03_JPRB,1.6961E-03_JPRB,1.2611E-03_JPRB,3.2283E-03_JPRB/)  
+KBO( :, 4,25, 7) = (/&
+ & 2.1858E-03_JPRB,2.5220E-03_JPRB,2.1978E-03_JPRB,1.6329E-03_JPRB,3.6803E-03_JPRB/)  
+KBO( :, 5,25, 7) = (/&
+ & 2.7953E-03_JPRB,3.2125E-03_JPRB,2.7973E-03_JPRB,2.0776E-03_JPRB,4.1586E-03_JPRB/)  
+KBO( :, 1,26, 7) = (/&
+ & 8.2577E-04_JPRB,9.6602E-04_JPRB,8.4698E-04_JPRB,6.3651E-04_JPRB,1.9589E-03_JPRB/)  
+KBO( :, 2,26, 7) = (/&
+ & 1.1231E-03_JPRB,1.3082E-03_JPRB,1.1442E-03_JPRB,8.5380E-04_JPRB,2.2874E-03_JPRB/)  
+KBO( :, 3,26, 7) = (/&
+ & 1.4894E-03_JPRB,1.7283E-03_JPRB,1.5086E-03_JPRB,1.1231E-03_JPRB,2.6381E-03_JPRB/)  
+KBO( :, 4,26, 7) = (/&
+ & 1.9347E-03_JPRB,2.2358E-03_JPRB,1.9486E-03_JPRB,1.4502E-03_JPRB,3.0100E-03_JPRB/)  
+KBO( :, 5,26, 7) = (/&
+ & 2.4718E-03_JPRB,2.8431E-03_JPRB,2.4753E-03_JPRB,1.8399E-03_JPRB,3.4018E-03_JPRB/)  
+KBO( :, 1,27, 7) = (/&
+ & 7.3643E-04_JPRB,8.6319E-04_JPRB,7.5644E-04_JPRB,5.6757E-04_JPRB,1.5698E-03_JPRB/)  
+KBO( :, 2,27, 7) = (/&
+ & 9.9721E-04_JPRB,1.1634E-03_JPRB,1.0175E-03_JPRB,7.5949E-04_JPRB,1.8348E-03_JPRB/)  
+KBO( :, 3,27, 7) = (/&
+ & 1.3189E-03_JPRB,1.5314E-03_JPRB,1.3364E-03_JPRB,9.9619E-04_JPRB,2.1183E-03_JPRB/)  
+KBO( :, 4,27, 7) = (/&
+ & 1.7109E-03_JPRB,1.9771E-03_JPRB,1.7222E-03_JPRB,1.2827E-03_JPRB,2.4187E-03_JPRB/)  
+KBO( :, 5,27, 7) = (/&
+ & 2.1861E-03_JPRB,2.5131E-03_JPRB,2.1851E-03_JPRB,1.6243E-03_JPRB,2.7339E-03_JPRB/)  
+KBO( :, 1,28, 7) = (/&
+ & 6.5434E-04_JPRB,7.6837E-04_JPRB,6.7291E-04_JPRB,5.0480E-04_JPRB,1.2349E-03_JPRB/)  
+KBO( :, 2,28, 7) = (/&
+ & 8.8335E-04_JPRB,1.0312E-03_JPRB,9.0136E-04_JPRB,6.7348E-04_JPRB,1.4454E-03_JPRB/)  
+KBO( :, 3,28, 7) = (/&
+ & 1.1654E-03_JPRB,1.3544E-03_JPRB,1.1806E-03_JPRB,8.8065E-04_JPRB,1.6701E-03_JPRB/)  
+KBO( :, 4,28, 7) = (/&
+ & 1.5130E-03_JPRB,1.7468E-03_JPRB,1.5197E-03_JPRB,1.1317E-03_JPRB,1.9084E-03_JPRB/)  
+KBO( :, 5,28, 7) = (/&
+ & 1.9346E-03_JPRB,2.2214E-03_JPRB,1.9275E-03_JPRB,1.4311E-03_JPRB,2.1590E-03_JPRB/)  
+KBO( :, 1,29, 7) = (/&
+ & 5.8250E-04_JPRB,6.8415E-04_JPRB,5.9900E-04_JPRB,4.4923E-04_JPRB,9.6138E-04_JPRB/)  
+KBO( :, 2,29, 7) = (/&
+ & 7.8379E-04_JPRB,9.1559E-04_JPRB,7.9935E-04_JPRB,5.9724E-04_JPRB,1.1264E-03_JPRB/)  
+KBO( :, 3,29, 7) = (/&
+ & 1.0337E-03_JPRB,1.2006E-03_JPRB,1.0452E-03_JPRB,7.7918E-04_JPRB,1.3027E-03_JPRB/)  
+KBO( :, 4,29, 7) = (/&
+ & 1.3430E-03_JPRB,1.5485E-03_JPRB,1.3445E-03_JPRB,9.9943E-04_JPRB,1.4903E-03_JPRB/)  
+KBO( :, 5,29, 7) = (/&
+ & 1.7207E-03_JPRB,1.9712E-03_JPRB,1.7058E-03_JPRB,1.2628E-03_JPRB,1.6874E-03_JPRB/)  
+KBO( :, 1,30, 7) = (/&
+ & 5.1788E-04_JPRB,6.0851E-04_JPRB,5.3244E-04_JPRB,3.9922E-04_JPRB,7.3807E-04_JPRB/)  
+KBO( :, 2,30, 7) = (/&
+ & 6.9560E-04_JPRB,8.1280E-04_JPRB,7.0896E-04_JPRB,5.2926E-04_JPRB,8.6555E-04_JPRB/)  
+KBO( :, 3,30, 7) = (/&
+ & 9.1854E-04_JPRB,1.0653E-03_JPRB,9.2608E-04_JPRB,6.8944E-04_JPRB,1.0029E-03_JPRB/)  
+KBO( :, 4,30, 7) = (/&
+ & 1.1948E-03_JPRB,1.3752E-03_JPRB,1.1917E-03_JPRB,8.8341E-04_JPRB,1.1491E-03_JPRB/)  
+KBO( :, 5,30, 7) = (/&
+ & 1.5335E-03_JPRB,1.7547E-03_JPRB,1.5125E-03_JPRB,1.1162E-03_JPRB,1.3024E-03_JPRB/)  
+KBO( :, 1,31, 7) = (/&
+ & 4.6092E-04_JPRB,5.4211E-04_JPRB,4.7408E-04_JPRB,3.5509E-04_JPRB,5.5682E-04_JPRB/)  
+KBO( :, 2,31, 7) = (/&
+ & 6.1918E-04_JPRB,7.2321E-04_JPRB,6.3005E-04_JPRB,4.6997E-04_JPRB,6.5454E-04_JPRB/)  
+KBO( :, 3,31, 7) = (/&
+ & 8.1881E-04_JPRB,9.4822E-04_JPRB,8.2290E-04_JPRB,6.1141E-04_JPRB,7.5997E-04_JPRB/)  
+KBO( :, 4,31, 7) = (/&
+ & 1.0668E-03_JPRB,1.2267E-03_JPRB,1.0593E-03_JPRB,7.8292E-04_JPRB,8.7195E-04_JPRB/)  
+KBO( :, 5,31, 7) = (/&
+ & 1.3704E-03_JPRB,1.5681E-03_JPRB,1.3465E-03_JPRB,9.8920E-04_JPRB,9.8973E-04_JPRB/)  
+KBO( :, 1,32, 7) = (/&
+ & 4.1152E-04_JPRB,4.8409E-04_JPRB,4.2308E-04_JPRB,3.1645E-04_JPRB,4.2168E-04_JPRB/)  
+KBO( :, 2,32, 7) = (/&
+ & 5.5334E-04_JPRB,6.4575E-04_JPRB,5.6167E-04_JPRB,4.1833E-04_JPRB,4.9677E-04_JPRB/)  
+KBO( :, 3,32, 7) = (/&
+ & 7.3299E-04_JPRB,8.4766E-04_JPRB,7.3383E-04_JPRB,5.4370E-04_JPRB,5.7774E-04_JPRB/)  
+KBO( :, 4,32, 7) = (/&
+ & 9.5588E-04_JPRB,1.0987E-03_JPRB,9.4586E-04_JPRB,6.9613E-04_JPRB,6.6384E-04_JPRB/)  
+KBO( :, 5,32, 7) = (/&
+ & 1.2288E-03_JPRB,1.4065E-03_JPRB,1.2040E-03_JPRB,8.8013E-04_JPRB,7.5486E-04_JPRB/)  
+KBO( :, 1,33, 7) = (/&
+ & 3.6854E-04_JPRB,4.3316E-04_JPRB,3.7817E-04_JPRB,2.8260E-04_JPRB,3.1899E-04_JPRB/)  
+KBO( :, 2,33, 7) = (/&
+ & 4.9646E-04_JPRB,5.7816E-04_JPRB,5.0221E-04_JPRB,3.7315E-04_JPRB,3.7656E-04_JPRB/)  
+KBO( :, 3,33, 7) = (/&
+ & 6.5808E-04_JPRB,7.6063E-04_JPRB,6.5667E-04_JPRB,4.8480E-04_JPRB,4.3876E-04_JPRB/)  
+KBO( :, 4,33, 7) = (/&
+ & 8.5867E-04_JPRB,9.8782E-04_JPRB,8.4748E-04_JPRB,6.2133E-04_JPRB,5.0517E-04_JPRB/)  
+KBO( :, 5,33, 7) = (/&
+ & 1.1037E-03_JPRB,1.2658E-03_JPRB,1.0801E-03_JPRB,7.8611E-04_JPRB,5.7532E-04_JPRB/)  
+KBO( :, 1,34, 7) = (/&
+ & 3.2867E-04_JPRB,3.8572E-04_JPRB,3.3622E-04_JPRB,2.5071E-04_JPRB,2.4855E-04_JPRB/)  
+KBO( :, 2,34, 7) = (/&
+ & 4.4343E-04_JPRB,5.1569E-04_JPRB,4.4686E-04_JPRB,3.3101E-04_JPRB,2.9381E-04_JPRB/)  
+KBO( :, 3,34, 7) = (/&
+ & 5.8810E-04_JPRB,6.7990E-04_JPRB,5.8528E-04_JPRB,4.3031E-04_JPRB,3.4255E-04_JPRB/)  
+KBO( :, 4,34, 7) = (/&
+ & 7.6737E-04_JPRB,8.8428E-04_JPRB,7.5640E-04_JPRB,5.5217E-04_JPRB,3.9478E-04_JPRB/)  
+KBO( :, 5,34, 7) = (/&
+ & 9.8517E-04_JPRB,1.1342E-03_JPRB,9.6554E-04_JPRB,6.9951E-04_JPRB,4.5002E-04_JPRB/)  
+KBO( :, 1,35, 7) = (/&
+ & 2.8513E-04_JPRB,3.3438E-04_JPRB,2.9108E-04_JPRB,2.1672E-04_JPRB,1.8974E-04_JPRB/)  
+KBO( :, 2,35, 7) = (/&
+ & 3.8542E-04_JPRB,4.4857E-04_JPRB,3.8802E-04_JPRB,2.8661E-04_JPRB,2.2492E-04_JPRB/)  
+KBO( :, 3,35, 7) = (/&
+ & 5.1208E-04_JPRB,5.9329E-04_JPRB,5.0967E-04_JPRB,3.7356E-04_JPRB,2.6284E-04_JPRB/)  
+KBO( :, 4,35, 7) = (/&
+ & 6.6882E-04_JPRB,7.7366E-04_JPRB,6.6059E-04_JPRB,4.8046E-04_JPRB,3.0352E-04_JPRB/)  
+KBO( :, 5,35, 7) = (/&
+ & 8.5775E-04_JPRB,9.9358E-04_JPRB,8.4548E-04_JPRB,6.1010E-04_JPRB,3.4691E-04_JPRB/)  
+KBO( :, 1,36, 7) = (/&
+ & 2.3908E-04_JPRB,2.8086E-04_JPRB,2.4432E-04_JPRB,1.8172E-04_JPRB,1.4131E-04_JPRB/)  
+KBO( :, 2,36, 7) = (/&
+ & 3.2447E-04_JPRB,3.7866E-04_JPRB,3.2729E-04_JPRB,2.4123E-04_JPRB,1.6828E-04_JPRB/)  
+KBO( :, 3,36, 7) = (/&
+ & 4.3244E-04_JPRB,5.0306E-04_JPRB,4.3179E-04_JPRB,3.1573E-04_JPRB,1.9752E-04_JPRB/)  
+KBO( :, 4,36, 7) = (/&
+ & 5.6587E-04_JPRB,6.5843E-04_JPRB,5.6206E-04_JPRB,4.0778E-04_JPRB,2.2899E-04_JPRB/)  
+KBO( :, 5,36, 7) = (/&
+ & 7.2600E-04_JPRB,8.4746E-04_JPRB,7.2177E-04_JPRB,5.1967E-04_JPRB,2.6262E-04_JPRB/)  
+KBO( :, 1,37, 7) = (/&
+ & 1.9223E-04_JPRB,2.2635E-04_JPRB,1.9687E-04_JPRB,1.4630E-04_JPRB,1.0794E-04_JPRB/)  
+KBO( :, 2,37, 7) = (/&
+ & 2.6242E-04_JPRB,3.0724E-04_JPRB,2.6553E-04_JPRB,1.9547E-04_JPRB,1.2910E-04_JPRB/)  
+KBO( :, 3,37, 7) = (/&
+ & 3.5150E-04_JPRB,4.1071E-04_JPRB,3.5262E-04_JPRB,2.5740E-04_JPRB,1.5213E-04_JPRB/)  
+KBO( :, 4,37, 7) = (/&
+ & 4.6185E-04_JPRB,5.4051E-04_JPRB,4.6167E-04_JPRB,3.3450E-04_JPRB,1.7700E-04_JPRB/)  
+KBO( :, 5,37, 7) = (/&
+ & 5.9416E-04_JPRB,6.9865E-04_JPRB,5.9573E-04_JPRB,4.2859E-04_JPRB,2.0366E-04_JPRB/)  
+KBO( :, 1,38, 7) = (/&
+ & 1.5396E-04_JPRB,1.8186E-04_JPRB,1.5820E-04_JPRB,1.1745E-04_JPRB,8.2026E-05_JPRB/)  
+KBO( :, 2,38, 7) = (/&
+ & 2.1139E-04_JPRB,2.4853E-04_JPRB,2.1486E-04_JPRB,1.5802E-04_JPRB,9.8555E-05_JPRB/)  
+KBO( :, 3,38, 7) = (/&
+ & 2.8454E-04_JPRB,3.3433E-04_JPRB,2.8721E-04_JPRB,2.0943E-04_JPRB,1.1661E-04_JPRB/)  
+KBO( :, 4,38, 7) = (/&
+ & 3.7538E-04_JPRB,4.4233E-04_JPRB,3.7835E-04_JPRB,2.7384E-04_JPRB,1.3622E-04_JPRB/)  
+KBO( :, 5,38, 7) = (/&
+ & 4.8432E-04_JPRB,5.7425E-04_JPRB,4.9054E-04_JPRB,3.5276E-04_JPRB,1.5730E-04_JPRB/)  
+KBO( :, 1,39, 7) = (/&
+ & 1.2310E-04_JPRB,1.4596E-04_JPRB,1.2703E-04_JPRB,9.4291E-05_JPRB,6.1783E-05_JPRB/)  
+KBO( :, 2,39, 7) = (/&
+ & 1.6994E-04_JPRB,2.0085E-04_JPRB,1.7375E-04_JPRB,1.2772E-04_JPRB,7.4607E-05_JPRB/)  
+KBO( :, 3,39, 7) = (/&
+ & 2.2988E-04_JPRB,2.7190E-04_JPRB,2.3385E-04_JPRB,1.7039E-04_JPRB,8.8689E-05_JPRB/)  
+KBO( :, 4,39, 7) = (/&
+ & 3.0447E-04_JPRB,3.6157E-04_JPRB,3.0996E-04_JPRB,2.2416E-04_JPRB,1.0404E-04_JPRB/)  
+KBO( :, 5,39, 7) = (/&
+ & 3.9383E-04_JPRB,4.7143E-04_JPRB,4.0364E-04_JPRB,2.9022E-04_JPRB,1.2062E-04_JPRB/)  
+KBO( :, 1,40, 7) = (/&
+ & 9.5155E-05_JPRB,1.1332E-04_JPRB,9.8734E-05_JPRB,7.3344E-05_JPRB,4.6985E-05_JPRB/)  
+KBO( :, 2,40, 7) = (/&
+ & 1.3236E-04_JPRB,1.5726E-04_JPRB,1.3621E-04_JPRB,1.0020E-04_JPRB,5.7054E-05_JPRB/)  
+KBO( :, 3,40, 7) = (/&
+ & 1.8031E-04_JPRB,2.1454E-04_JPRB,1.8484E-04_JPRB,1.3474E-04_JPRB,6.8162E-05_JPRB/)  
+KBO( :, 4,40, 7) = (/&
+ & 2.4017E-04_JPRB,2.8725E-04_JPRB,2.4684E-04_JPRB,1.7861E-04_JPRB,8.0321E-05_JPRB/)  
+KBO( :, 5,40, 7) = (/&
+ & 3.1223E-04_JPRB,3.7700E-04_JPRB,3.2358E-04_JPRB,2.3279E-04_JPRB,9.3499E-05_JPRB/)  
+KBO( :, 1,41, 7) = (/&
+ & 7.3040E-05_JPRB,8.7365E-05_JPRB,7.6219E-05_JPRB,5.6696E-05_JPRB,3.5628E-05_JPRB/)  
+KBO( :, 2,41, 7) = (/&
+ & 1.0242E-04_JPRB,1.2231E-04_JPRB,1.0608E-04_JPRB,7.8149E-05_JPRB,4.3528E-05_JPRB/)  
+KBO( :, 3,41, 7) = (/&
+ & 1.4051E-04_JPRB,1.6819E-04_JPRB,1.4521E-04_JPRB,1.0598E-04_JPRB,5.2277E-05_JPRB/)  
+KBO( :, 4,41, 7) = (/&
+ & 1.8838E-04_JPRB,2.2688E-04_JPRB,1.9542E-04_JPRB,1.4156E-04_JPRB,6.1894E-05_JPRB/)  
+KBO( :, 5,41, 7) = (/&
+ & 2.4622E-04_JPRB,2.9976E-04_JPRB,2.5798E-04_JPRB,1.8586E-04_JPRB,7.2357E-05_JPRB/)  
+KBO( :, 1,42, 7) = (/&
+ & 5.5864E-05_JPRB,6.7119E-05_JPRB,5.8652E-05_JPRB,4.3719E-05_JPRB,2.6853E-05_JPRB/)  
+KBO( :, 2,42, 7) = (/&
+ & 7.9009E-05_JPRB,9.4831E-05_JPRB,8.2368E-05_JPRB,6.0798E-05_JPRB,3.3017E-05_JPRB/)  
+KBO( :, 3,42, 7) = (/&
+ & 1.0919E-04_JPRB,1.3143E-04_JPRB,1.1371E-04_JPRB,8.3133E-05_JPRB,3.9881E-05_JPRB/)  
+KBO( :, 4,42, 7) = (/&
+ & 1.4736E-04_JPRB,1.7866E-04_JPRB,1.5424E-04_JPRB,1.1195E-04_JPRB,4.7449E-05_JPRB/)  
+KBO( :, 5,42, 7) = (/&
+ & 1.9372E-04_JPRB,2.3766E-04_JPRB,2.0511E-04_JPRB,1.4803E-04_JPRB,5.5730E-05_JPRB/)  
+KBO( :, 1,43, 7) = (/&
+ & 4.1761E-05_JPRB,5.0398E-05_JPRB,4.4130E-05_JPRB,3.2985E-05_JPRB,2.0073E-05_JPRB/)  
+KBO( :, 2,43, 7) = (/&
+ & 5.9645E-05_JPRB,7.1916E-05_JPRB,6.2599E-05_JPRB,4.6330E-05_JPRB,2.4864E-05_JPRB/)  
+KBO( :, 3,43, 7) = (/&
+ & 8.3194E-05_JPRB,1.0064E-04_JPRB,8.7232E-05_JPRB,6.3942E-05_JPRB,3.0235E-05_JPRB/)  
+KBO( :, 4,43, 7) = (/&
+ & 1.1320E-04_JPRB,1.3803E-04_JPRB,1.1940E-04_JPRB,8.6870E-05_JPRB,3.6178E-05_JPRB/)  
+KBO( :, 5,43, 7) = (/&
+ & 1.4992E-04_JPRB,1.8511E-04_JPRB,1.6011E-04_JPRB,1.1587E-04_JPRB,4.2707E-05_JPRB/)  
+KBO( :, 1,44, 7) = (/&
+ & 3.0801E-05_JPRB,3.7349E-05_JPRB,3.2753E-05_JPRB,2.4577E-05_JPRB,1.4891E-05_JPRB/)  
+KBO( :, 2,44, 7) = (/&
+ & 4.4487E-05_JPRB,5.3871E-05_JPRB,4.6990E-05_JPRB,3.4888E-05_JPRB,1.8592E-05_JPRB/)  
+KBO( :, 3,44, 7) = (/&
+ & 6.2658E-05_JPRB,7.6156E-05_JPRB,6.6129E-05_JPRB,4.8623E-05_JPRB,2.2773E-05_JPRB/)  
+KBO( :, 4,44, 7) = (/&
+ & 8.6061E-05_JPRB,1.0547E-04_JPRB,9.1388E-05_JPRB,6.6679E-05_JPRB,2.7431E-05_JPRB/)  
+KBO( :, 5,44, 7) = (/&
+ & 1.1501E-04_JPRB,1.4274E-04_JPRB,1.2369E-04_JPRB,8.9747E-05_JPRB,3.2565E-05_JPRB/)  
+KBO( :, 1,45, 7) = (/&
+ & 2.2608E-05_JPRB,2.7541E-05_JPRB,2.4185E-05_JPRB,1.8232E-05_JPRB,1.0958E-05_JPRB/)  
+KBO( :, 2,45, 7) = (/&
+ & 3.3025E-05_JPRB,4.0159E-05_JPRB,3.5109E-05_JPRB,2.6156E-05_JPRB,1.3799E-05_JPRB/)  
+KBO( :, 3,45, 7) = (/&
+ & 4.7011E-05_JPRB,5.7379E-05_JPRB,4.9919E-05_JPRB,3.6820E-05_JPRB,1.7031E-05_JPRB/)  
+KBO( :, 4,45, 7) = (/&
+ & 6.5198E-05_JPRB,8.0265E-05_JPRB,6.9669E-05_JPRB,5.0975E-05_JPRB,2.0660E-05_JPRB/)  
+KBO( :, 5,45, 7) = (/&
+ & 8.7915E-05_JPRB,1.0965E-04_JPRB,9.5159E-05_JPRB,6.9236E-05_JPRB,2.4675E-05_JPRB/)  
+KBO( :, 1,46, 7) = (/&
+ & 1.6373E-05_JPRB,2.0043E-05_JPRB,1.7624E-05_JPRB,1.3360E-05_JPRB,7.9926E-06_JPRB/)  
+KBO( :, 2,46, 7) = (/&
+ & 2.4216E-05_JPRB,2.9567E-05_JPRB,2.5903E-05_JPRB,1.9373E-05_JPRB,1.0160E-05_JPRB/)  
+KBO( :, 3,46, 7) = (/&
+ & 3.4868E-05_JPRB,4.2722E-05_JPRB,3.7241E-05_JPRB,2.7564E-05_JPRB,1.2643E-05_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART22',1,ZHOOK_HANDLE)
+END SUBROUTINE PART22
+
+
+SUBROUTINE PART23
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART23',0,ZHOOK_HANDLE)
+
+
+KBO( :, 4,46, 7) = (/&
+ & 4.8882E-05_JPRB,6.0410E-05_JPRB,5.2522E-05_JPRB,3.8539E-05_JPRB,1.5455E-05_JPRB/)  
+KBO( :, 5,46, 7) = (/&
+ & 6.6579E-05_JPRB,8.3392E-05_JPRB,7.2472E-05_JPRB,5.2864E-05_JPRB,1.8586E-05_JPRB/)  
+KBO( :, 1,47, 7) = (/&
+ & 1.1599E-05_JPRB,1.4268E-05_JPRB,1.2567E-05_JPRB,9.5846E-06_JPRB,5.7865E-06_JPRB/)  
+KBO( :, 2,47, 7) = (/&
+ & 1.7394E-05_JPRB,2.1321E-05_JPRB,1.8719E-05_JPRB,1.4063E-05_JPRB,7.4320E-06_JPRB/)  
+KBO( :, 3,47, 7) = (/&
+ & 2.5375E-05_JPRB,3.1189E-05_JPRB,2.7244E-05_JPRB,2.0242E-05_JPRB,9.3345E-06_JPRB/)  
+KBO( :, 4,47, 7) = (/&
+ & 3.6020E-05_JPRB,4.4624E-05_JPRB,3.8868E-05_JPRB,2.8612E-05_JPRB,1.1506E-05_JPRB/)  
+KBO( :, 5,47, 7) = (/&
+ & 4.9650E-05_JPRB,6.2358E-05_JPRB,5.4247E-05_JPRB,3.9674E-05_JPRB,1.3945E-05_JPRB/)  
+KBO( :, 1,48, 7) = (/&
+ & 8.1592E-06_JPRB,1.0088E-05_JPRB,8.9029E-06_JPRB,6.8352E-06_JPRB,4.1486E-06_JPRB/)  
+KBO( :, 2,48, 7) = (/&
+ & 1.2414E-05_JPRB,1.5281E-05_JPRB,1.3442E-05_JPRB,1.0147E-05_JPRB,5.3865E-06_JPRB/)  
+KBO( :, 3,48, 7) = (/&
+ & 1.8355E-05_JPRB,2.2636E-05_JPRB,1.9815E-05_JPRB,1.4784E-05_JPRB,6.8320E-06_JPRB/)  
+KBO( :, 4,48, 7) = (/&
+ & 2.6399E-05_JPRB,3.2787E-05_JPRB,2.8606E-05_JPRB,2.1130E-05_JPRB,8.4972E-06_JPRB/)  
+KBO( :, 5,48, 7) = (/&
+ & 3.6834E-05_JPRB,4.6374E-05_JPRB,4.0398E-05_JPRB,2.9623E-05_JPRB,1.0383E-05_JPRB/)  
+KBO( :, 1,49, 7) = (/&
+ & 5.6950E-06_JPRB,7.0854E-06_JPRB,6.2658E-06_JPRB,4.8460E-06_JPRB,2.9411E-06_JPRB/)  
+KBO( :, 2,49, 7) = (/&
+ & 8.8040E-06_JPRB,1.0880E-05_JPRB,9.5884E-06_JPRB,7.2776E-06_JPRB,3.8607E-06_JPRB/)  
+KBO( :, 3,49, 7) = (/&
+ & 1.3194E-05_JPRB,1.6321E-05_JPRB,1.4323E-05_JPRB,1.0731E-05_JPRB,4.9471E-06_JPRB/)  
+KBO( :, 4,49, 7) = (/&
+ & 1.9231E-05_JPRB,2.3945E-05_JPRB,2.0927E-05_JPRB,1.5515E-05_JPRB,6.2112E-06_JPRB/)  
+KBO( :, 5,49, 7) = (/&
+ & 2.7183E-05_JPRB,3.4291E-05_JPRB,2.9917E-05_JPRB,2.1999E-05_JPRB,7.6566E-06_JPRB/)  
+KBO( :, 1,50, 7) = (/&
+ & 3.9958E-06_JPRB,5.0015E-06_JPRB,4.4366E-06_JPRB,3.4585E-06_JPRB,2.1227E-06_JPRB/)  
+KBO( :, 2,50, 7) = (/&
+ & 6.2784E-06_JPRB,7.7901E-06_JPRB,6.8759E-06_JPRB,5.2490E-06_JPRB,2.8123E-06_JPRB/)  
+KBO( :, 3,50, 7) = (/&
+ & 9.5367E-06_JPRB,1.1828E-05_JPRB,1.0406E-05_JPRB,7.8273E-06_JPRB,3.6384E-06_JPRB/)  
+KBO( :, 4,50, 7) = (/&
+ & 1.4076E-05_JPRB,1.7574E-05_JPRB,1.5384E-05_JPRB,1.1445E-05_JPRB,4.6069E-06_JPRB/)  
+KBO( :, 5,50, 7) = (/&
+ & 2.0158E-05_JPRB,2.5470E-05_JPRB,2.2251E-05_JPRB,1.6406E-05_JPRB,5.7245E-06_JPRB/)  
+KBO( :, 1,51, 7) = (/&
+ & 2.7988E-06_JPRB,3.5266E-06_JPRB,3.1403E-06_JPRB,2.4729E-06_JPRB,1.5428E-06_JPRB/)  
+KBO( :, 2,51, 7) = (/&
+ & 4.4758E-06_JPRB,5.5781E-06_JPRB,4.9313E-06_JPRB,3.7868E-06_JPRB,2.0615E-06_JPRB/)  
+KBO( :, 3,51, 7) = (/&
+ & 6.8951E-06_JPRB,8.5722E-06_JPRB,7.5560E-06_JPRB,5.7084E-06_JPRB,2.6915E-06_JPRB/)  
+KBO( :, 4,51, 7) = (/&
+ & 1.0304E-05_JPRB,1.2894E-05_JPRB,1.1308E-05_JPRB,8.4393E-06_JPRB,3.4363E-06_JPRB/)  
+KBO( :, 5,51, 7) = (/&
+ & 1.4945E-05_JPRB,1.8920E-05_JPRB,1.6546E-05_JPRB,1.2232E-05_JPRB,4.3031E-06_JPRB/)  
+KBO( :, 1,52, 7) = (/&
+ & 1.9435E-06_JPRB,2.4685E-06_JPRB,2.2098E-06_JPRB,1.7634E-06_JPRB,1.1143E-06_JPRB/)  
+KBO( :, 2,52, 7) = (/&
+ & 3.1695E-06_JPRB,3.9713E-06_JPRB,3.5183E-06_JPRB,2.7199E-06_JPRB,1.5011E-06_JPRB/)  
+KBO( :, 3,52, 7) = (/&
+ & 4.9592E-06_JPRB,6.1828E-06_JPRB,5.4581E-06_JPRB,4.1434E-06_JPRB,1.9775E-06_JPRB/)  
+KBO( :, 4,52, 7) = (/&
+ & 7.5082E-06_JPRB,9.4119E-06_JPRB,8.2722E-06_JPRB,6.1949E-06_JPRB,2.5467E-06_JPRB/)  
+KBO( :, 5,52, 7) = (/&
+ & 1.1026E-05_JPRB,1.3984E-05_JPRB,1.2246E-05_JPRB,9.0780E-06_JPRB,3.2145E-06_JPRB/)  
+KBO( :, 1,53, 7) = (/&
+ & 1.3359E-06_JPRB,1.7128E-06_JPRB,1.5439E-06_JPRB,1.2551E-06_JPRB,7.9874E-07_JPRB/)  
+KBO( :, 2,53, 7) = (/&
+ & 2.2274E-06_JPRB,2.8086E-06_JPRB,2.4951E-06_JPRB,1.9446E-06_JPRB,1.0843E-06_JPRB/)  
+KBO( :, 3,53, 7) = (/&
+ & 3.5445E-06_JPRB,4.4342E-06_JPRB,3.9206E-06_JPRB,2.9916E-06_JPRB,1.4407E-06_JPRB/)  
+KBO( :, 4,53, 7) = (/&
+ & 5.4423E-06_JPRB,6.8307E-06_JPRB,6.0173E-06_JPRB,4.5231E-06_JPRB,1.8721E-06_JPRB/)  
+KBO( :, 5,53, 7) = (/&
+ & 8.0931E-06_JPRB,1.0281E-05_JPRB,9.0168E-06_JPRB,6.7031E-06_JPRB,2.3821E-06_JPRB/)  
+KBO( :, 1,54, 7) = (/&
+ & 9.2652E-07_JPRB,1.1988E-06_JPRB,1.0892E-06_JPRB,9.0472E-07_JPRB,5.9185E-07_JPRB/)  
+KBO( :, 2,54, 7) = (/&
+ & 1.5791E-06_JPRB,2.0042E-06_JPRB,1.7864E-06_JPRB,1.4053E-06_JPRB,8.0903E-07_JPRB/)  
+KBO( :, 3,54, 7) = (/&
+ & 2.5564E-06_JPRB,3.2106E-06_JPRB,2.8433E-06_JPRB,2.1812E-06_JPRB,1.0829E-06_JPRB/)  
+KBO( :, 4,54, 7) = (/&
+ & 3.9810E-06_JPRB,5.0042E-06_JPRB,4.4158E-06_JPRB,3.3311E-06_JPRB,1.4179E-06_JPRB/)  
+KBO( :, 5,54, 7) = (/&
+ & 5.9940E-06_JPRB,7.6213E-06_JPRB,6.6941E-06_JPRB,4.9908E-06_JPRB,1.8162E-06_JPRB/)  
+KBO( :, 1,55, 7) = (/&
+ & 6.4271E-07_JPRB,8.3986E-07_JPRB,7.6969E-07_JPRB,6.5622E-07_JPRB,4.4680E-07_JPRB/)  
+KBO( :, 2,55, 7) = (/&
+ & 1.1202E-06_JPRB,1.4315E-06_JPRB,1.2812E-06_JPRB,1.0198E-06_JPRB,6.1469E-07_JPRB/)  
+KBO( :, 3,55, 7) = (/&
+ & 1.8463E-06_JPRB,2.3303E-06_JPRB,2.0672E-06_JPRB,1.5950E-06_JPRB,8.2848E-07_JPRB/)  
+KBO( :, 4,55, 7) = (/&
+ & 2.9187E-06_JPRB,3.6752E-06_JPRB,3.2484E-06_JPRB,2.4593E-06_JPRB,1.0923E-06_JPRB/)  
+KBO( :, 5,55, 7) = (/&
+ & 4.4490E-06_JPRB,5.6623E-06_JPRB,4.9799E-06_JPRB,3.7232E-06_JPRB,1.4079E-06_JPRB/)  
+KBO( :, 1,56, 7) = (/&
+ & 4.4222E-07_JPRB,5.8443E-07_JPRB,5.4132E-07_JPRB,4.7675E-07_JPRB,3.3738E-07_JPRB/)  
+KBO( :, 2,56, 7) = (/&
+ & 7.8907E-07_JPRB,1.0157E-06_JPRB,9.1377E-07_JPRB,7.3810E-07_JPRB,4.6671E-07_JPRB/)  
+KBO( :, 3,56, 7) = (/&
+ & 1.3248E-06_JPRB,1.6819E-06_JPRB,1.4956E-06_JPRB,1.1622E-06_JPRB,6.3354E-07_JPRB/)  
+KBO( :, 4,56, 7) = (/&
+ & 2.1296E-06_JPRB,2.6885E-06_JPRB,2.3793E-06_JPRB,1.8091E-06_JPRB,8.4125E-07_JPRB/)  
+KBO( :, 5,56, 7) = (/&
+ & 3.2905E-06_JPRB,4.1906E-06_JPRB,3.6905E-06_JPRB,2.7667E-06_JPRB,1.0917E-06_JPRB/)  
+KBO( :, 1,57, 7) = (/&
+ & 3.0166E-07_JPRB,4.0366E-07_JPRB,3.7890E-07_JPRB,3.4759E-07_JPRB,2.5495E-07_JPRB/)  
+KBO( :, 2,57, 7) = (/&
+ & 5.5161E-07_JPRB,7.1542E-07_JPRB,6.4792E-07_JPRB,5.3334E-07_JPRB,3.5433E-07_JPRB/)  
+KBO( :, 3,57, 7) = (/&
+ & 9.4470E-07_JPRB,1.2069E-06_JPRB,1.0761E-06_JPRB,8.4394E-07_JPRB,4.8446E-07_JPRB/)  
+KBO( :, 4,57, 7) = (/&
+ & 1.5448E-06_JPRB,1.9571E-06_JPRB,1.7349E-06_JPRB,1.3257E-06_JPRB,6.4791E-07_JPRB/)  
+KBO( :, 5,57, 7) = (/&
+ & 2.4231E-06_JPRB,3.0885E-06_JPRB,2.7246E-06_JPRB,2.0476E-06_JPRB,8.4650E-07_JPRB/)  
+KBO( :, 1,58, 7) = (/&
+ & 2.0615E-07_JPRB,2.7966E-07_JPRB,2.6659E-07_JPRB,2.5672E-07_JPRB,1.9490E-07_JPRB/)  
+KBO( :, 2,58, 7) = (/&
+ & 3.8634E-07_JPRB,5.0506E-07_JPRB,4.6082E-07_JPRB,3.8792E-07_JPRB,2.7193E-07_JPRB/)  
+KBO( :, 3,58, 7) = (/&
+ & 6.7545E-07_JPRB,8.6794E-07_JPRB,7.7672E-07_JPRB,6.1534E-07_JPRB,3.7439E-07_JPRB/)  
+KBO( :, 4,58, 7) = (/&
+ & 1.1229E-06_JPRB,1.4289E-06_JPRB,1.2690E-06_JPRB,9.7539E-07_JPRB,5.0417E-07_JPRB/)  
+KBO( :, 5,58, 7) = (/&
+ & 1.7888E-06_JPRB,2.2841E-06_JPRB,2.0182E-06_JPRB,1.5209E-06_JPRB,6.6299E-07_JPRB/)  
+KBO( :, 1,59, 7) = (/&
+ & 1.5864E-07_JPRB,2.1618E-07_JPRB,2.0732E-07_JPRB,2.0350E-07_JPRB,1.6565E-07_JPRB/)  
+KBO( :, 2,59, 7) = (/&
+ & 3.0072E-07_JPRB,3.9451E-07_JPRB,3.6086E-07_JPRB,3.0632E-07_JPRB,2.3297E-07_JPRB/)  
+KBO( :, 3,59, 7) = (/&
+ & 5.3103E-07_JPRB,6.8463E-07_JPRB,6.1355E-07_JPRB,4.8792E-07_JPRB,3.2258E-07_JPRB/)  
+KBO( :, 4,59, 7) = (/&
+ & 8.9096E-07_JPRB,1.1377E-06_JPRB,1.0113E-06_JPRB,7.7874E-07_JPRB,4.3608E-07_JPRB/)  
+KBO( :, 5,59, 7) = (/&
+ & 1.4311E-06_JPRB,1.8344E-06_JPRB,1.6214E-06_JPRB,1.2223E-06_JPRB,5.7456E-07_JPRB/)  
+KBO( :, 1,13, 8) = (/&
+ & 1.1431E-02_JPRB,1.2741E-02_JPRB,1.1436E-02_JPRB,9.1621E-03_JPRB,8.0519E-02_JPRB/)  
+KBO( :, 2,13, 8) = (/&
+ & 1.5206E-02_JPRB,1.7160E-02_JPRB,1.5555E-02_JPRB,1.2454E-02_JPRB,8.6864E-02_JPRB/)  
+KBO( :, 3,13, 8) = (/&
+ & 1.9976E-02_JPRB,2.2722E-02_JPRB,2.0654E-02_JPRB,1.6502E-02_JPRB,9.4446E-02_JPRB/)  
+KBO( :, 4,13, 8) = (/&
+ & 2.5954E-02_JPRB,2.9643E-02_JPRB,2.6781E-02_JPRB,2.1406E-02_JPRB,1.0333E-01_JPRB/)  
+KBO( :, 5,13, 8) = (/&
+ & 3.3352E-02_JPRB,3.7953E-02_JPRB,3.4189E-02_JPRB,2.7277E-02_JPRB,1.1304E-01_JPRB/)  
+KBO( :, 1,14, 8) = (/&
+ & 1.0179E-02_JPRB,1.1389E-02_JPRB,1.0176E-02_JPRB,8.0522E-03_JPRB,6.5504E-02_JPRB/)  
+KBO( :, 2,14, 8) = (/&
+ & 1.3641E-02_JPRB,1.5355E-02_JPRB,1.3817E-02_JPRB,1.0906E-02_JPRB,7.2230E-02_JPRB/)  
+KBO( :, 3,14, 8) = (/&
+ & 1.8023E-02_JPRB,2.0418E-02_JPRB,1.8352E-02_JPRB,1.4437E-02_JPRB,8.0150E-02_JPRB/)  
+KBO( :, 4,14, 8) = (/&
+ & 2.3532E-02_JPRB,2.6705E-02_JPRB,2.3876E-02_JPRB,1.8758E-02_JPRB,8.9038E-02_JPRB/)  
+KBO( :, 5,14, 8) = (/&
+ & 3.0239E-02_JPRB,3.4282E-02_JPRB,3.0614E-02_JPRB,2.4017E-02_JPRB,9.8577E-02_JPRB/)  
+KBO( :, 1,15, 8) = (/&
+ & 9.0090E-03_JPRB,1.0120E-02_JPRB,9.0167E-03_JPRB,7.0764E-03_JPRB,5.2591E-02_JPRB/)  
+KBO( :, 2,15, 8) = (/&
+ & 1.2186E-02_JPRB,1.3734E-02_JPRB,1.2258E-02_JPRB,9.5696E-03_JPRB,5.9402E-02_JPRB/)  
+KBO( :, 3,15, 8) = (/&
+ & 1.6225E-02_JPRB,1.8333E-02_JPRB,1.6340E-02_JPRB,1.2688E-02_JPRB,6.7127E-02_JPRB/)  
+KBO( :, 4,15, 8) = (/&
+ & 2.1185E-02_JPRB,2.4042E-02_JPRB,2.1332E-02_JPRB,1.6578E-02_JPRB,7.5512E-02_JPRB/)  
+KBO( :, 5,15, 8) = (/&
+ & 2.7141E-02_JPRB,3.0928E-02_JPRB,2.7480E-02_JPRB,2.1333E-02_JPRB,8.4521E-02_JPRB/)  
+KBO( :, 1,16, 8) = (/&
+ & 7.9666E-03_JPRB,8.9862E-03_JPRB,7.9671E-03_JPRB,6.2242E-03_JPRB,4.1294E-02_JPRB/)  
+KBO( :, 2,16, 8) = (/&
+ & 1.0885E-02_JPRB,1.2270E-02_JPRB,1.0885E-02_JPRB,8.4303E-03_JPRB,4.7519E-02_JPRB/)  
+KBO( :, 3,16, 8) = (/&
+ & 1.4511E-02_JPRB,1.6442E-02_JPRB,1.4544E-02_JPRB,1.1234E-02_JPRB,5.4415E-02_JPRB/)  
+KBO( :, 4,16, 8) = (/&
+ & 1.8926E-02_JPRB,2.1554E-02_JPRB,1.9076E-02_JPRB,1.4750E-02_JPRB,6.1801E-02_JPRB/)  
+KBO( :, 5,16, 8) = (/&
+ & 2.4236E-02_JPRB,2.7687E-02_JPRB,2.4633E-02_JPRB,1.9024E-02_JPRB,6.9624E-02_JPRB/)  
+KBO( :, 1,17, 8) = (/&
+ & 7.1080E-03_JPRB,8.0147E-03_JPRB,7.0758E-03_JPRB,5.4873E-03_JPRB,3.3297E-02_JPRB/)  
+KBO( :, 2,17, 8) = (/&
+ & 9.7388E-03_JPRB,1.0991E-02_JPRB,9.6940E-03_JPRB,7.4587E-03_JPRB,3.8754E-02_JPRB/)  
+KBO( :, 3,17, 8) = (/&
+ & 1.2971E-02_JPRB,1.4712E-02_JPRB,1.2980E-02_JPRB,9.9806E-03_JPRB,4.4673E-02_JPRB/)  
+KBO( :, 4,17, 8) = (/&
+ & 1.6920E-02_JPRB,1.9221E-02_JPRB,1.7037E-02_JPRB,1.3131E-02_JPRB,5.0878E-02_JPRB/)  
+KBO( :, 5,17, 8) = (/&
+ & 2.1675E-02_JPRB,2.4688E-02_JPRB,2.1958E-02_JPRB,1.6944E-02_JPRB,5.7392E-02_JPRB/)  
+KBO( :, 1,18, 8) = (/&
+ & 6.4048E-03_JPRB,7.2149E-03_JPRB,6.3423E-03_JPRB,4.8705E-03_JPRB,2.7610E-02_JPRB/)  
+KBO( :, 2,18, 8) = (/&
+ & 8.7579E-03_JPRB,9.8929E-03_JPRB,8.6960E-03_JPRB,6.6399E-03_JPRB,3.2241E-02_JPRB/)  
+KBO( :, 3,18, 8) = (/&
+ & 1.1674E-02_JPRB,1.3178E-02_JPRB,1.1614E-02_JPRB,8.8937E-03_JPRB,3.7151E-02_JPRB/)  
+KBO( :, 4,18, 8) = (/&
+ & 1.5226E-02_JPRB,1.7183E-02_JPRB,1.5190E-02_JPRB,1.1678E-02_JPRB,4.2321E-02_JPRB/)  
+KBO( :, 5,18, 8) = (/&
+ & 1.9521E-02_JPRB,2.2065E-02_JPRB,1.9536E-02_JPRB,1.5022E-02_JPRB,4.7759E-02_JPRB/)  
+KBO( :, 1,19, 8) = (/&
+ & 5.7780E-03_JPRB,6.5097E-03_JPRB,5.7073E-03_JPRB,4.3362E-03_JPRB,2.3517E-02_JPRB/)  
+KBO( :, 2,19, 8) = (/&
+ & 7.8980E-03_JPRB,8.8943E-03_JPRB,7.8019E-03_JPRB,5.9182E-03_JPRB,2.7464E-02_JPRB/)  
+KBO( :, 3,19, 8) = (/&
+ & 1.0547E-02_JPRB,1.1813E-02_JPRB,1.0378E-02_JPRB,7.9082E-03_JPRB,3.1653E-02_JPRB/)  
+KBO( :, 4,19, 8) = (/&
+ & 1.3780E-02_JPRB,1.5395E-02_JPRB,1.3544E-02_JPRB,1.0334E-02_JPRB,3.6068E-02_JPRB/)  
+KBO( :, 5,19, 8) = (/&
+ & 1.7661E-02_JPRB,1.9769E-02_JPRB,1.7387E-02_JPRB,1.3263E-02_JPRB,4.0672E-02_JPRB/)  
+KBO( :, 1,20, 8) = (/&
+ & 5.2358E-03_JPRB,5.8943E-03_JPRB,5.1609E-03_JPRB,3.8930E-03_JPRB,2.0265E-02_JPRB/)  
+KBO( :, 2,20, 8) = (/&
+ & 7.1650E-03_JPRB,8.0337E-03_JPRB,7.0303E-03_JPRB,5.3009E-03_JPRB,2.3642E-02_JPRB/)  
+KBO( :, 3,20, 8) = (/&
+ & 9.5768E-03_JPRB,1.0673E-02_JPRB,9.3270E-03_JPRB,7.0467E-03_JPRB,2.7210E-02_JPRB/)  
+KBO( :, 4,20, 8) = (/&
+ & 1.2520E-02_JPRB,1.3910E-02_JPRB,1.2148E-02_JPRB,9.1772E-03_JPRB,3.0955E-02_JPRB/)  
+KBO( :, 5,20, 8) = (/&
+ & 1.6054E-02_JPRB,1.7830E-02_JPRB,1.5571E-02_JPRB,1.1760E-02_JPRB,3.4856E-02_JPRB/)  
+KBO( :, 1,21, 8) = (/&
+ & 4.7306E-03_JPRB,5.3228E-03_JPRB,4.6480E-03_JPRB,3.4934E-03_JPRB,1.7415E-02_JPRB/)  
+KBO( :, 2,21, 8) = (/&
+ & 6.4837E-03_JPRB,7.2505E-03_JPRB,6.3214E-03_JPRB,4.7410E-03_JPRB,2.0248E-02_JPRB/)  
+KBO( :, 3,21, 8) = (/&
+ & 8.6672E-03_JPRB,9.6479E-03_JPRB,8.3920E-03_JPRB,6.2776E-03_JPRB,2.3246E-02_JPRB/)  
+KBO( :, 4,21, 8) = (/&
+ & 1.1340E-02_JPRB,1.2581E-02_JPRB,1.0918E-02_JPRB,8.1620E-03_JPRB,2.6397E-02_JPRB/)  
+KBO( :, 5,21, 8) = (/&
+ & 1.4560E-02_JPRB,1.6102E-02_JPRB,1.3967E-02_JPRB,1.0440E-02_JPRB,2.9697E-02_JPRB/)  
+KBO( :, 1,22, 8) = (/&
+ & 4.3418E-03_JPRB,4.8765E-03_JPRB,4.2505E-03_JPRB,3.1831E-03_JPRB,1.4725E-02_JPRB/)  
+KBO( :, 2,22, 8) = (/&
+ & 5.9449E-03_JPRB,6.6380E-03_JPRB,5.7744E-03_JPRB,4.3038E-03_JPRB,1.7073E-02_JPRB/)  
+KBO( :, 3,22, 8) = (/&
+ & 7.9389E-03_JPRB,8.8321E-03_JPRB,7.6615E-03_JPRB,5.6883E-03_JPRB,1.9560E-02_JPRB/)  
+KBO( :, 4,22, 8) = (/&
+ & 1.0382E-02_JPRB,1.1507E-02_JPRB,9.9583E-03_JPRB,7.3808E-03_JPRB,2.2180E-02_JPRB/)  
+KBO( :, 5,22, 8) = (/&
+ & 1.3348E-02_JPRB,1.4718E-02_JPRB,1.2724E-02_JPRB,9.4158E-03_JPRB,2.4942E-02_JPRB/)  
+KBO( :, 1,23, 8) = (/&
+ & 3.9755E-03_JPRB,4.4601E-03_JPRB,3.8791E-03_JPRB,2.8940E-03_JPRB,1.2317E-02_JPRB/)  
+KBO( :, 2,23, 8) = (/&
+ & 5.4326E-03_JPRB,6.0675E-03_JPRB,5.2649E-03_JPRB,3.9079E-03_JPRB,1.4261E-02_JPRB/)  
+KBO( :, 3,23, 8) = (/&
+ & 7.2471E-03_JPRB,8.0652E-03_JPRB,6.9775E-03_JPRB,5.1609E-03_JPRB,1.6319E-02_JPRB/)  
+KBO( :, 4,23, 8) = (/&
+ & 9.4853E-03_JPRB,1.0499E-02_JPRB,9.0669E-03_JPRB,6.6817E-03_JPRB,1.8494E-02_JPRB/)  
+KBO( :, 5,23, 8) = (/&
+ & 1.2224E-02_JPRB,1.3433E-02_JPRB,1.1575E-02_JPRB,8.5016E-03_JPRB,2.0803E-02_JPRB/)  
+KBO( :, 1,24, 8) = (/&
+ & 3.6237E-03_JPRB,4.0664E-03_JPRB,3.5327E-03_JPRB,2.6249E-03_JPRB,1.0111E-02_JPRB/)  
+KBO( :, 2,24, 8) = (/&
+ & 4.9405E-03_JPRB,5.5284E-03_JPRB,4.7867E-03_JPRB,3.5422E-03_JPRB,1.1712E-02_JPRB/)  
+KBO( :, 3,24, 8) = (/&
+ & 6.5941E-03_JPRB,7.3367E-03_JPRB,6.3412E-03_JPRB,4.6740E-03_JPRB,1.3407E-02_JPRB/)  
+KBO( :, 4,24, 8) = (/&
+ & 8.6500E-03_JPRB,9.5582E-03_JPRB,8.2387E-03_JPRB,6.0413E-03_JPRB,1.5203E-02_JPRB/)  
+KBO( :, 5,24, 8) = (/&
+ & 1.1160E-02_JPRB,1.2258E-02_JPRB,1.0518E-02_JPRB,7.6745E-03_JPRB,1.7120E-02_JPRB/)  
+KBO( :, 1,25, 8) = (/&
+ & 3.2923E-03_JPRB,3.7097E-03_JPRB,3.2174E-03_JPRB,2.3852E-03_JPRB,8.2743E-03_JPRB/)  
+KBO( :, 2,25, 8) = (/&
+ & 4.4868E-03_JPRB,5.0333E-03_JPRB,4.3547E-03_JPRB,3.2140E-03_JPRB,9.5864E-03_JPRB/)  
+KBO( :, 3,25, 8) = (/&
+ & 6.0022E-03_JPRB,6.6817E-03_JPRB,5.7652E-03_JPRB,4.2348E-03_JPRB,1.0982E-02_JPRB/)  
+KBO( :, 4,25, 8) = (/&
+ & 7.8855E-03_JPRB,8.7187E-03_JPRB,7.4913E-03_JPRB,5.4655E-03_JPRB,1.2469E-02_JPRB/)  
+KBO( :, 5,25, 8) = (/&
+ & 1.0169E-02_JPRB,1.1196E-02_JPRB,9.5768E-03_JPRB,6.9385E-03_JPRB,1.4057E-02_JPRB/)  
+KBO( :, 1,26, 8) = (/&
+ & 2.9966E-03_JPRB,3.3936E-03_JPRB,2.9435E-03_JPRB,2.1773E-03_JPRB,6.8226E-03_JPRB/)  
+KBO( :, 2,26, 8) = (/&
+ & 4.0887E-03_JPRB,4.6003E-03_JPRB,3.9768E-03_JPRB,2.9281E-03_JPRB,7.9056E-03_JPRB/)  
+KBO( :, 3,26, 8) = (/&
+ & 5.4745E-03_JPRB,6.1149E-03_JPRB,5.2640E-03_JPRB,3.8491E-03_JPRB,9.0607E-03_JPRB/)  
+KBO( :, 4,26, 8) = (/&
+ & 7.1886E-03_JPRB,7.9856E-03_JPRB,6.8456E-03_JPRB,4.9643E-03_JPRB,1.0300E-02_JPRB/)  
+KBO( :, 5,26, 8) = (/&
+ & 9.2596E-03_JPRB,1.0248E-02_JPRB,8.7489E-03_JPRB,6.3014E-03_JPRB,1.1624E-02_JPRB/)  
+KBO( :, 1,27, 8) = (/&
+ & 2.7156E-03_JPRB,3.0876E-03_JPRB,2.6805E-03_JPRB,1.9822E-03_JPRB,5.5158E-03_JPRB/)  
+KBO( :, 2,27, 8) = (/&
+ & 3.7104E-03_JPRB,4.1900E-03_JPRB,3.6215E-03_JPRB,2.6593E-03_JPRB,6.4001E-03_JPRB/)  
+KBO( :, 3,27, 8) = (/&
+ & 4.9667E-03_JPRB,5.5771E-03_JPRB,4.8004E-03_JPRB,3.4928E-03_JPRB,7.3466E-03_JPRB/)  
+KBO( :, 4,27, 8) = (/&
+ & 6.5120E-03_JPRB,7.2813E-03_JPRB,6.2396E-03_JPRB,4.5038E-03_JPRB,8.3626E-03_JPRB/)  
+KBO( :, 5,27, 8) = (/&
+ & 8.3748E-03_JPRB,9.3312E-03_JPRB,7.9649E-03_JPRB,5.7101E-03_JPRB,9.4540E-03_JPRB/)  
+KBO( :, 1,28, 8) = (/&
+ & 2.4540E-03_JPRB,2.8015E-03_JPRB,2.4332E-03_JPRB,1.7986E-03_JPRB,4.3717E-03_JPRB/)  
+KBO( :, 2,28, 8) = (/&
+ & 3.3533E-03_JPRB,3.8065E-03_JPRB,3.2907E-03_JPRB,2.4104E-03_JPRB,5.0844E-03_JPRB/)  
+KBO( :, 3,28, 8) = (/&
+ & 4.4816E-03_JPRB,5.0648E-03_JPRB,4.3611E-03_JPRB,3.1641E-03_JPRB,5.8491E-03_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART23',1,ZHOOK_HANDLE)
+END SUBROUTINE PART23
+
+
+SUBROUTINE PART24
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART24',0,ZHOOK_HANDLE)
+
+
+KBO( :, 4,28, 8) = (/&
+ & 5.8656E-03_JPRB,6.6059E-03_JPRB,5.6649E-03_JPRB,4.0783E-03_JPRB,6.6719E-03_JPRB/)  
+KBO( :, 5,28, 8) = (/&
+ & 7.5375E-03_JPRB,8.4524E-03_JPRB,7.2181E-03_JPRB,5.1634E-03_JPRB,7.5534E-03_JPRB/)  
+KBO( :, 1,29, 8) = (/&
+ & 2.2199E-03_JPRB,2.5468E-03_JPRB,2.2116E-03_JPRB,1.6320E-03_JPRB,3.4313E-03_JPRB/)  
+KBO( :, 2,29, 8) = (/&
+ & 3.0284E-03_JPRB,3.4576E-03_JPRB,2.9908E-03_JPRB,2.1868E-03_JPRB,4.0007E-03_JPRB/)  
+KBO( :, 3,29, 8) = (/&
+ & 4.0394E-03_JPRB,4.5959E-03_JPRB,3.9584E-03_JPRB,2.8693E-03_JPRB,4.6141E-03_JPRB/)  
+KBO( :, 4,29, 8) = (/&
+ & 5.2804E-03_JPRB,5.9851E-03_JPRB,5.1333E-03_JPRB,3.6901E-03_JPRB,5.2723E-03_JPRB/)  
+KBO( :, 5,29, 8) = (/&
+ & 6.7815E-03_JPRB,7.6482E-03_JPRB,6.5273E-03_JPRB,4.6670E-03_JPRB,5.9784E-03_JPRB/)  
+KBO( :, 1,30, 8) = (/&
+ & 2.0046E-03_JPRB,2.3130E-03_JPRB,2.0090E-03_JPRB,1.4794E-03_JPRB,2.6543E-03_JPRB/)  
+KBO( :, 2,30, 8) = (/&
+ & 2.7295E-03_JPRB,3.1369E-03_JPRB,2.7138E-03_JPRB,1.9812E-03_JPRB,3.1043E-03_JPRB/)  
+KBO( :, 3,30, 8) = (/&
+ & 3.6356E-03_JPRB,4.1607E-03_JPRB,3.5841E-03_JPRB,2.5951E-03_JPRB,3.5892E-03_JPRB/)  
+KBO( :, 4,30, 8) = (/&
+ & 4.7491E-03_JPRB,5.4103E-03_JPRB,4.6363E-03_JPRB,3.3323E-03_JPRB,4.1088E-03_JPRB/)  
+KBO( :, 5,30, 8) = (/&
+ & 6.1030E-03_JPRB,6.9063E-03_JPRB,5.8950E-03_JPRB,4.2074E-03_JPRB,4.6673E-03_JPRB/)  
+KBO( :, 1,31, 8) = (/&
+ & 1.8116E-03_JPRB,2.1021E-03_JPRB,1.8264E-03_JPRB,1.3426E-03_JPRB,2.0192E-03_JPRB/)  
+KBO( :, 2,31, 8) = (/&
+ & 2.4626E-03_JPRB,2.8445E-03_JPRB,2.4615E-03_JPRB,1.7947E-03_JPRB,2.3682E-03_JPRB/)  
+KBO( :, 3,31, 8) = (/&
+ & 3.2770E-03_JPRB,3.7680E-03_JPRB,3.2435E-03_JPRB,2.3454E-03_JPRB,2.7454E-03_JPRB/)  
+KBO( :, 4,31, 8) = (/&
+ & 4.2825E-03_JPRB,4.8933E-03_JPRB,4.1907E-03_JPRB,3.0057E-03_JPRB,3.1516E-03_JPRB/)  
+KBO( :, 5,31, 8) = (/&
+ & 5.5107E-03_JPRB,6.2496E-03_JPRB,5.3257E-03_JPRB,3.7889E-03_JPRB,3.5873E-03_JPRB/)  
+KBO( :, 1,32, 8) = (/&
+ & 1.6409E-03_JPRB,1.9128E-03_JPRB,1.6615E-03_JPRB,1.2200E-03_JPRB,1.5399E-03_JPRB/)  
+KBO( :, 2,32, 8) = (/&
+ & 2.2276E-03_JPRB,2.5834E-03_JPRB,2.2335E-03_JPRB,1.6257E-03_JPRB,1.8108E-03_JPRB/)  
+KBO( :, 3,32, 8) = (/&
+ & 2.9642E-03_JPRB,3.4164E-03_JPRB,2.9366E-03_JPRB,2.1192E-03_JPRB,2.1049E-03_JPRB/)  
+KBO( :, 4,32, 8) = (/&
+ & 3.8783E-03_JPRB,4.4382E-03_JPRB,3.7929E-03_JPRB,2.7120E-03_JPRB,2.4216E-03_JPRB/)  
+KBO( :, 5,32, 8) = (/&
+ & 5.0008E-03_JPRB,5.6727E-03_JPRB,4.8212E-03_JPRB,3.4168E-03_JPRB,2.7630E-03_JPRB/)  
+KBO( :, 1,33, 8) = (/&
+ & 1.4896E-03_JPRB,1.7425E-03_JPRB,1.5121E-03_JPRB,1.1085E-03_JPRB,1.1708E-03_JPRB/)  
+KBO( :, 2,33, 8) = (/&
+ & 2.0219E-03_JPRB,2.3499E-03_JPRB,2.0274E-03_JPRB,1.4717E-03_JPRB,1.3798E-03_JPRB/)  
+KBO( :, 3,33, 8) = (/&
+ & 2.6933E-03_JPRB,3.1059E-03_JPRB,2.6641E-03_JPRB,1.9145E-03_JPRB,1.6078E-03_JPRB/)  
+KBO( :, 4,33, 8) = (/&
+ & 3.5312E-03_JPRB,4.0360E-03_JPRB,3.4383E-03_JPRB,2.4485E-03_JPRB,1.8549E-03_JPRB/)  
+KBO( :, 5,33, 8) = (/&
+ & 4.5576E-03_JPRB,5.1702E-03_JPRB,4.3769E-03_JPRB,3.0873E-03_JPRB,2.1221E-03_JPRB/)  
+KBO( :, 1,34, 8) = (/&
+ & 1.3461E-03_JPRB,1.5773E-03_JPRB,1.3654E-03_JPRB,9.9848E-04_JPRB,9.1828E-04_JPRB/)  
+KBO( :, 2,34, 8) = (/&
+ & 1.8293E-03_JPRB,2.1264E-03_JPRB,1.8294E-03_JPRB,1.3224E-03_JPRB,1.0850E-03_JPRB/)  
+KBO( :, 3,34, 8) = (/&
+ & 2.4421E-03_JPRB,2.8129E-03_JPRB,2.4038E-03_JPRB,1.7186E-03_JPRB,1.2670E-03_JPRB/)  
+KBO( :, 4,34, 8) = (/&
+ & 3.2077E-03_JPRB,3.6631E-03_JPRB,3.1076E-03_JPRB,2.1997E-03_JPRB,1.4654E-03_JPRB/)  
+KBO( :, 5,34, 8) = (/&
+ & 4.1521E-03_JPRB,4.7027E-03_JPRB,3.9614E-03_JPRB,2.7773E-03_JPRB,1.6801E-03_JPRB/)  
+KBO( :, 1,35, 8) = (/&
+ & 1.1832E-03_JPRB,1.3882E-03_JPRB,1.1991E-03_JPRB,8.7402E-04_JPRB,7.0393E-04_JPRB/)  
+KBO( :, 2,35, 8) = (/&
+ & 1.6136E-03_JPRB,1.8765E-03_JPRB,1.6089E-03_JPRB,1.1585E-03_JPRB,8.3445E-04_JPRB/)  
+KBO( :, 3,35, 8) = (/&
+ & 2.1631E-03_JPRB,2.4899E-03_JPRB,2.1186E-03_JPRB,1.5089E-03_JPRB,9.7770E-04_JPRB/)  
+KBO( :, 4,35, 8) = (/&
+ & 2.8535E-03_JPRB,3.2542E-03_JPRB,2.7485E-03_JPRB,1.9364E-03_JPRB,1.1343E-03_JPRB/)  
+KBO( :, 5,35, 8) = (/&
+ & 3.7092E-03_JPRB,4.1965E-03_JPRB,3.5164E-03_JPRB,2.4522E-03_JPRB,1.3039E-03_JPRB/)  
+KBO( :, 1,36, 8) = (/&
+ & 1.0066E-03_JPRB,1.1833E-03_JPRB,1.0195E-03_JPRB,7.4064E-04_JPRB,5.2366E-04_JPRB/)  
+KBO( :, 2,36, 8) = (/&
+ & 1.3815E-03_JPRB,1.6071E-03_JPRB,1.3739E-03_JPRB,9.8573E-04_JPRB,6.2344E-04_JPRB/)  
+KBO( :, 3,36, 8) = (/&
+ & 1.8626E-03_JPRB,2.1449E-03_JPRB,1.8191E-03_JPRB,1.2898E-03_JPRB,7.3360E-04_JPRB/)  
+KBO( :, 4,36, 8) = (/&
+ & 2.4741E-03_JPRB,2.8182E-03_JPRB,2.3729E-03_JPRB,1.6635E-03_JPRB,8.5436E-04_JPRB/)  
+KBO( :, 5,36, 8) = (/&
+ & 3.2336E-03_JPRB,3.6568E-03_JPRB,3.0504E-03_JPRB,2.1181E-03_JPRB,9.8625E-04_JPRB/)  
+KBO( :, 1,37, 8) = (/&
+ & 8.2084E-04_JPRB,9.6709E-04_JPRB,8.3229E-04_JPRB,6.0374E-04_JPRB,4.0420E-04_JPRB/)  
+KBO( :, 2,37, 8) = (/&
+ & 1.1372E-03_JPRB,1.3254E-03_JPRB,1.1300E-03_JPRB,8.0872E-04_JPRB,4.8417E-04_JPRB/)  
+KBO( :, 3,37, 8) = (/&
+ & 1.5468E-03_JPRB,1.7826E-03_JPRB,1.5083E-03_JPRB,1.0643E-03_JPRB,5.7283E-04_JPRB/)  
+KBO( :, 4,37, 8) = (/&
+ & 2.0724E-03_JPRB,2.3603E-03_JPRB,1.9807E-03_JPRB,1.3829E-03_JPRB,6.7031E-04_JPRB/)  
+KBO( :, 5,37, 8) = (/&
+ & 2.7301E-03_JPRB,3.0852E-03_JPRB,2.5656E-03_JPRB,1.7725E-03_JPRB,7.7693E-04_JPRB/)  
+KBO( :, 1,38, 8) = (/&
+ & 6.6765E-04_JPRB,7.8856E-04_JPRB,6.7796E-04_JPRB,4.9087E-04_JPRB,3.1034E-04_JPRB/)  
+KBO( :, 2,38, 8) = (/&
+ & 9.3399E-04_JPRB,1.0908E-03_JPRB,9.2831E-04_JPRB,6.6210E-04_JPRB,3.7420E-04_JPRB/)  
+KBO( :, 3,38, 8) = (/&
+ & 1.2829E-03_JPRB,1.4801E-03_JPRB,1.2480E-03_JPRB,8.7788E-04_JPRB,4.4529E-04_JPRB/)  
+KBO( :, 4,38, 8) = (/&
+ & 1.7334E-03_JPRB,1.9765E-03_JPRB,1.6521E-03_JPRB,1.1484E-03_JPRB,5.2389E-04_JPRB/)  
+KBO( :, 5,38, 8) = (/&
+ & 2.3042E-03_JPRB,2.6028E-03_JPRB,2.1565E-03_JPRB,1.4823E-03_JPRB,6.1008E-04_JPRB/)  
+KBO( :, 1,39, 8) = (/&
+ & 5.4315E-04_JPRB,6.4310E-04_JPRB,5.5211E-04_JPRB,3.9890E-04_JPRB,2.3583E-04_JPRB/)  
+KBO( :, 2,39, 8) = (/&
+ & 7.6743E-04_JPRB,8.9797E-04_JPRB,7.6314E-04_JPRB,5.4269E-04_JPRB,2.8632E-04_JPRB/)  
+KBO( :, 3,39, 8) = (/&
+ & 1.0649E-03_JPRB,1.2299E-03_JPRB,1.0342E-03_JPRB,7.2462E-04_JPRB,3.4293E-04_JPRB/)  
+KBO( :, 4,39, 8) = (/&
+ & 1.4519E-03_JPRB,1.6575E-03_JPRB,1.3791E-03_JPRB,9.5496E-04_JPRB,4.0575E-04_JPRB/)  
+KBO( :, 5,39, 8) = (/&
+ & 1.9462E-03_JPRB,2.1987E-03_JPRB,1.8149E-03_JPRB,1.2411E-03_JPRB,4.7487E-04_JPRB/)  
+KBO( :, 1,40, 8) = (/&
+ & 4.2660E-04_JPRB,5.0722E-04_JPRB,4.3537E-04_JPRB,3.1438E-04_JPRB,1.8128E-04_JPRB/)  
+KBO( :, 2,40, 8) = (/&
+ & 6.1039E-04_JPRB,7.1647E-04_JPRB,6.0817E-04_JPRB,4.3189E-04_JPRB,2.2187E-04_JPRB/)  
+KBO( :, 3,40, 8) = (/&
+ & 8.5703E-04_JPRB,9.9240E-04_JPRB,8.3374E-04_JPRB,5.8276E-04_JPRB,2.6760E-04_JPRB/)  
+KBO( :, 4,40, 8) = (/&
+ & 1.1823E-03_JPRB,1.3510E-03_JPRB,1.1225E-03_JPRB,7.7459E-04_JPRB,3.1857E-04_JPRB/)  
+KBO( :, 5,40, 8) = (/&
+ & 1.6018E-03_JPRB,1.8123E-03_JPRB,1.4916E-03_JPRB,1.0158E-03_JPRB,3.7479E-04_JPRB/)  
+KBO( :, 1,41, 8) = (/&
+ & 3.3271E-04_JPRB,3.9736E-04_JPRB,3.4108E-04_JPRB,2.4624E-04_JPRB,1.3885E-04_JPRB/)  
+KBO( :, 2,41, 8) = (/&
+ & 4.8225E-04_JPRB,5.6846E-04_JPRB,4.8237E-04_JPRB,3.4216E-04_JPRB,1.7137E-04_JPRB/)  
+KBO( :, 3,41, 8) = (/&
+ & 6.8576E-04_JPRB,7.9688E-04_JPRB,6.6837E-04_JPRB,4.6622E-04_JPRB,2.0821E-04_JPRB/)  
+KBO( :, 4,41, 8) = (/&
+ & 9.5732E-04_JPRB,1.0976E-03_JPRB,9.0996E-04_JPRB,6.2571E-04_JPRB,2.4955E-04_JPRB/)  
+KBO( :, 5,41, 8) = (/&
+ & 1.3120E-03_JPRB,1.4870E-03_JPRB,1.2214E-03_JPRB,8.2829E-04_JPRB,2.9516E-04_JPRB/)  
+KBO( :, 1,42, 8) = (/&
+ & 2.5867E-04_JPRB,3.1042E-04_JPRB,2.6645E-04_JPRB,1.9244E-04_JPRB,1.0554E-04_JPRB/)  
+KBO( :, 2,42, 8) = (/&
+ & 3.8005E-04_JPRB,4.4981E-04_JPRB,3.8160E-04_JPRB,2.7033E-04_JPRB,1.3138E-04_JPRB/)  
+KBO( :, 3,42, 8) = (/&
+ & 5.4750E-04_JPRB,6.3852E-04_JPRB,5.3511E-04_JPRB,3.7262E-04_JPRB,1.6089E-04_JPRB/)  
+KBO( :, 4,42, 8) = (/&
+ & 7.7370E-04_JPRB,8.8989E-04_JPRB,7.3675E-04_JPRB,5.0530E-04_JPRB,1.9414E-04_JPRB/)  
+KBO( :, 5,42, 8) = (/&
+ & 1.0732E-03_JPRB,1.2192E-03_JPRB,9.9944E-04_JPRB,6.7542E-04_JPRB,2.3100E-04_JPRB/)  
+KBO( :, 1,43, 8) = (/&
+ & 1.9608E-04_JPRB,2.3654E-04_JPRB,2.0330E-04_JPRB,1.4692E-04_JPRB,7.9640E-05_JPRB/)  
+KBO( :, 2,43, 8) = (/&
+ & 2.9244E-04_JPRB,3.4786E-04_JPRB,2.9536E-04_JPRB,2.0929E-04_JPRB,1.0013E-04_JPRB/)  
+KBO( :, 3,43, 8) = (/&
+ & 4.2746E-04_JPRB,5.0109E-04_JPRB,4.1968E-04_JPRB,2.9227E-04_JPRB,1.2370E-04_JPRB/)  
+KBO( :, 4,43, 8) = (/&
+ & 6.1258E-04_JPRB,7.0737E-04_JPRB,5.8531E-04_JPRB,4.0077E-04_JPRB,1.5047E-04_JPRB/)  
+KBO( :, 5,43, 8) = (/&
+ & 8.6089E-04_JPRB,9.8132E-04_JPRB,8.0325E-04_JPRB,5.4165E-04_JPRB,1.8030E-04_JPRB/)  
+KBO( :, 1,44, 8) = (/&
+ & 1.4641E-04_JPRB,1.7759E-04_JPRB,1.5289E-04_JPRB,1.1076E-04_JPRB,5.9627E-05_JPRB/)  
+KBO( :, 2,44, 8) = (/&
+ & 2.2184E-04_JPRB,2.6534E-04_JPRB,2.2560E-04_JPRB,1.6005E-04_JPRB,7.5777E-05_JPRB/)  
+KBO( :, 3,44, 8) = (/&
+ & 3.2924E-04_JPRB,3.8780E-04_JPRB,3.2524E-04_JPRB,2.2657E-04_JPRB,9.4517E-05_JPRB/)  
+KBO( :, 4,44, 8) = (/&
+ & 4.7893E-04_JPRB,5.5571E-04_JPRB,4.5993E-04_JPRB,3.1465E-04_JPRB,1.1599E-04_JPRB/)  
+KBO( :, 5,44, 8) = (/&
+ & 6.8243E-04_JPRB,7.8130E-04_JPRB,6.3916E-04_JPRB,4.3040E-04_JPRB,1.4006E-04_JPRB/)  
+KBO( :, 1,45, 8) = (/&
+ & 1.0865E-04_JPRB,1.3251E-04_JPRB,1.1435E-04_JPRB,8.2960E-05_JPRB,4.4212E-05_JPRB/)  
+KBO( :, 2,45, 8) = (/&
+ & 1.6729E-04_JPRB,2.0128E-04_JPRB,1.7134E-04_JPRB,1.2183E-04_JPRB,5.6830E-05_JPRB/)  
+KBO( :, 3,45, 8) = (/&
+ & 2.5229E-04_JPRB,2.9908E-04_JPRB,2.5083E-04_JPRB,1.7486E-04_JPRB,7.1604E-05_JPRB/)  
+KBO( :, 4,45, 8) = (/&
+ & 3.7262E-04_JPRB,4.3452E-04_JPRB,3.5986E-04_JPRB,2.4619E-04_JPRB,8.8632E-05_JPRB/)  
+KBO( :, 5,45, 8) = (/&
+ & 5.3882E-04_JPRB,6.2004E-04_JPRB,5.0717E-04_JPRB,3.4090E-04_JPRB,1.0793E-04_JPRB/)  
+KBO( :, 1,46, 8) = (/&
+ & 7.9358E-05_JPRB,9.7327E-05_JPRB,8.4209E-05_JPRB,6.1250E-05_JPRB,3.2459E-05_JPRB/)  
+KBO( :, 2,46, 8) = (/&
+ & 1.2429E-04_JPRB,1.5045E-04_JPRB,1.2830E-04_JPRB,9.1466E-05_JPRB,4.2241E-05_JPRB/)  
+KBO( :, 3,46, 8) = (/&
+ & 1.9053E-04_JPRB,2.2736E-04_JPRB,1.9100E-04_JPRB,1.3325E-04_JPRB,5.3783E-05_JPRB/)  
+KBO( :, 4,46, 8) = (/&
+ & 2.8614E-04_JPRB,3.3570E-04_JPRB,2.7828E-04_JPRB,1.9050E-04_JPRB,6.7218E-05_JPRB/)  
+KBO( :, 5,46, 8) = (/&
+ & 4.2039E-04_JPRB,4.8635E-04_JPRB,3.9774E-04_JPRB,2.6724E-04_JPRB,8.2582E-05_JPRB/)  
+KBO( :, 1,47, 8) = (/&
+ & 5.6453E-05_JPRB,6.9628E-05_JPRB,6.0410E-05_JPRB,4.4150E-05_JPRB,2.3634E-05_JPRB/)  
+KBO( :, 2,47, 8) = (/&
+ & 9.0039E-05_JPRB,1.0971E-04_JPRB,9.3809E-05_JPRB,6.7082E-05_JPRB,3.1174E-05_JPRB/)  
+KBO( :, 3,47, 8) = (/&
+ & 1.4053E-04_JPRB,1.6882E-04_JPRB,1.4207E-04_JPRB,9.9462E-05_JPRB,4.0177E-05_JPRB/)  
+KBO( :, 4,47, 8) = (/&
+ & 2.1477E-04_JPRB,2.5374E-04_JPRB,2.1068E-04_JPRB,1.4451E-04_JPRB,5.0742E-05_JPRB/)  
+KBO( :, 5,47, 8) = (/&
+ & 3.2088E-04_JPRB,3.7357E-04_JPRB,3.0615E-04_JPRB,2.0585E-04_JPRB,6.2901E-05_JPRB/)  
+KBO( :, 1,48, 8) = (/&
+ & 3.9798E-05_JPRB,4.9340E-05_JPRB,4.2936E-05_JPRB,3.1533E-05_JPRB,1.7003E-05_JPRB/)  
+KBO( :, 2,48, 8) = (/&
+ & 6.4659E-05_JPRB,7.9275E-05_JPRB,6.7974E-05_JPRB,4.8844E-05_JPRB,2.2754E-05_JPRB/)  
+KBO( :, 3,48, 8) = (/&
+ & 1.0277E-04_JPRB,1.2433E-04_JPRB,1.0493E-04_JPRB,7.3715E-05_JPRB,2.9706E-05_JPRB/)  
+KBO( :, 4,48, 8) = (/&
+ & 1.5992E-04_JPRB,1.9034E-04_JPRB,1.5838E-04_JPRB,1.0886E-04_JPRB,3.7936E-05_JPRB/)  
+KBO( :, 5,48, 8) = (/&
+ & 2.4325E-04_JPRB,2.8513E-04_JPRB,2.3408E-04_JPRB,1.5755E-04_JPRB,4.7492E-05_JPRB/)  
+KBO( :, 1,49, 8) = (/&
+ & 2.7802E-05_JPRB,3.4616E-05_JPRB,3.0218E-05_JPRB,2.2308E-05_JPRB,1.2061E-05_JPRB/)  
+KBO( :, 2,49, 8) = (/&
+ & 4.6014E-05_JPRB,5.6761E-05_JPRB,4.8820E-05_JPRB,3.5239E-05_JPRB,1.6386E-05_JPRB/)  
+KBO( :, 3,49, 8) = (/&
+ & 7.4491E-05_JPRB,9.0741E-05_JPRB,7.6795E-05_JPRB,5.4143E-05_JPRB,2.1687E-05_JPRB/)  
+KBO( :, 4,49, 8) = (/&
+ & 1.1802E-04_JPRB,1.4153E-04_JPRB,1.1806E-04_JPRB,8.1356E-05_JPRB,2.8022E-05_JPRB/)  
+KBO( :, 5,49, 8) = (/&
+ & 1.8279E-04_JPRB,2.1583E-04_JPRB,1.7754E-04_JPRB,1.1970E-04_JPRB,3.5456E-05_JPRB/)  
+KBO( :, 1,50, 8) = (/&
+ & 1.9540E-05_JPRB,2.4400E-05_JPRB,2.1361E-05_JPRB,1.5837E-05_JPRB,8.6997E-06_JPRB/)  
+KBO( :, 2,50, 8) = (/&
+ & 3.2918E-05_JPRB,4.0822E-05_JPRB,3.5205E-05_JPRB,2.5512E-05_JPRB,1.1990E-05_JPRB/)  
+KBO( :, 3,50, 8) = (/&
+ & 5.4255E-05_JPRB,6.6526E-05_JPRB,5.6438E-05_JPRB,3.9950E-05_JPRB,1.6073E-05_JPRB/)  
+KBO( :, 4,50, 8) = (/&
+ & 8.7526E-05_JPRB,1.0571E-04_JPRB,8.8383E-05_JPRB,6.1066E-05_JPRB,2.1006E-05_JPRB/)  
+KBO( :, 5,50, 8) = (/&
+ & 1.3799E-04_JPRB,1.6415E-04_JPRB,1.3524E-04_JPRB,9.1334E-05_JPRB,2.6847E-05_JPRB/)  
+KBO( :, 1,51, 8) = (/&
+ & 1.3715E-05_JPRB,1.7170E-05_JPRB,1.5061E-05_JPRB,1.1220E-05_JPRB,6.3066E-06_JPRB/)  
+KBO( :, 2,51, 8) = (/&
+ & 2.3525E-05_JPRB,2.9290E-05_JPRB,2.5329E-05_JPRB,1.8432E-05_JPRB,8.8176E-06_JPRB/)  
+KBO( :, 3,51, 8) = (/&
+ & 3.9460E-05_JPRB,4.8672E-05_JPRB,4.1377E-05_JPRB,2.9397E-05_JPRB,1.1971E-05_JPRB/)  
+KBO( :, 4,51, 8) = (/&
+ & 6.4794E-05_JPRB,7.8837E-05_JPRB,6.6040E-05_JPRB,4.5759E-05_JPRB,1.5830E-05_JPRB/)  
+KBO( :, 5,51, 8) = (/&
+ & 1.0402E-04_JPRB,1.2470E-04_JPRB,1.0290E-04_JPRB,6.9640E-05_JPRB,2.0433E-05_JPRB/)  
+KBO( :, 1,52, 8) = (/&
+ & 9.5578E-06_JPRB,1.1986E-05_JPRB,1.0529E-05_JPRB,7.8831E-06_JPRB,4.5278E-06_JPRB/)  
+KBO( :, 2,52, 8) = (/&
+ & 1.6679E-05_JPRB,2.0856E-05_JPRB,1.8076E-05_JPRB,1.3211E-05_JPRB,6.4244E-06_JPRB/)  
+KBO( :, 3,52, 8) = (/&
+ & 2.8477E-05_JPRB,3.5320E-05_JPRB,3.0103E-05_JPRB,2.1468E-05_JPRB,8.8391E-06_JPRB/)  
+KBO( :, 4,52, 8) = (/&
+ & 4.7594E-05_JPRB,5.8357E-05_JPRB,4.8987E-05_JPRB,3.4026E-05_JPRB,1.1833E-05_JPRB/)  
+KBO( :, 5,52, 8) = (/&
+ & 7.7798E-05_JPRB,9.3982E-05_JPRB,7.7692E-05_JPRB,5.2723E-05_JPRB,1.5437E-05_JPRB/)  
+KBO( :, 1,53, 8) = (/&
+ & 6.6072E-06_JPRB,8.2930E-06_JPRB,7.2961E-06_JPRB,5.4893E-06_JPRB,3.2145E-06_JPRB/)  
+KBO( :, 2,53, 8) = (/&
+ & 1.1726E-05_JPRB,1.4716E-05_JPRB,1.2781E-05_JPRB,9.3822E-06_JPRB,4.6284E-06_JPRB/)  
+KBO( :, 3,53, 8) = (/&
+ & 2.0380E-05_JPRB,2.5407E-05_JPRB,2.1715E-05_JPRB,1.5543E-05_JPRB,6.4582E-06_JPRB/)  
+KBO( :, 4,53, 8) = (/&
+ & 3.4658E-05_JPRB,4.2781E-05_JPRB,3.5988E-05_JPRB,2.5111E-05_JPRB,8.7586E-06_JPRB/)  
+KBO( :, 5,53, 8) = (/&
+ & 5.7694E-05_JPRB,7.0240E-05_JPRB,5.8204E-05_JPRB,3.9606E-05_JPRB,1.1558E-05_JPRB/)  
+KBO( :, 1,54, 8) = (/&
+ & 4.6231E-06_JPRB,5.8094E-06_JPRB,5.1159E-06_JPRB,3.8681E-06_JPRB,2.3617E-06_JPRB/)  
+KBO( :, 2,54, 8) = (/&
+ & 8.3487E-06_JPRB,1.0507E-05_JPRB,9.1409E-06_JPRB,6.7324E-06_JPRB,3.4457E-06_JPRB/)  
+KBO( :, 3,54, 8) = (/&
+ & 1.4749E-05_JPRB,1.8473E-05_JPRB,1.5818E-05_JPRB,1.1366E-05_JPRB,4.8678E-06_JPRB/)  
+KBO( :, 4,54, 8) = (/&
+ & 2.5524E-05_JPRB,3.1693E-05_JPRB,2.6712E-05_JPRB,1.8698E-05_JPRB,6.6754E-06_JPRB/)  
+KBO( :, 5,54, 8) = (/&
+ & 4.3244E-05_JPRB,5.3058E-05_JPRB,4.4050E-05_JPRB,3.0042E-05_JPRB,8.8957E-06_JPRB/)  
+KBO( :, 1,55, 8) = (/&
+ & 3.2435E-06_JPRB,4.0809E-06_JPRB,3.5968E-06_JPRB,2.7333E-06_JPRB,1.7666E-06_JPRB/)  
+KBO( :, 2,55, 8) = (/&
+ & 5.9644E-06_JPRB,7.5172E-06_JPRB,6.5506E-06_JPRB,4.8409E-06_JPRB,2.6116E-06_JPRB/)  
+KBO( :, 3,55, 8) = (/&
+ & 1.0704E-05_JPRB,1.3462E-05_JPRB,1.1547E-05_JPRB,8.3238E-06_JPRB,3.7328E-06_JPRB/)  
+KBO( :, 4,55, 8) = (/&
+ & 1.8846E-05_JPRB,2.3522E-05_JPRB,1.9854E-05_JPRB,1.3943E-05_JPRB,5.1720E-06_JPRB/)  
+KBO( :, 5,55, 8) = (/&
+ & 3.2477E-05_JPRB,4.0113E-05_JPRB,3.3370E-05_JPRB,2.2811E-05_JPRB,6.9569E-06_JPRB/)  
+KBO( :, 1,56, 8) = (/&
+ & 2.2574E-06_JPRB,2.8460E-06_JPRB,2.5125E-06_JPRB,1.9227E-06_JPRB,1.3179E-06_JPRB/)  
+KBO( :, 2,56, 8) = (/&
+ & 4.2369E-06_JPRB,5.3474E-06_JPRB,4.6648E-06_JPRB,3.4587E-06_JPRB,1.9756E-06_JPRB/)  
+KBO( :, 3,56, 8) = (/&
+ & 7.7258E-06_JPRB,9.7496E-06_JPRB,8.3766E-06_JPRB,6.0549E-06_JPRB,2.8571E-06_JPRB/)  
+KBO( :, 4,56, 8) = (/&
+ & 1.3829E-05_JPRB,1.7347E-05_JPRB,1.4668E-05_JPRB,1.0332E-05_JPRB,4.0014E-06_JPRB/)  
+KBO( :, 5,56, 8) = (/&
+ & 2.4242E-05_JPRB,3.0140E-05_JPRB,2.5119E-05_JPRB,1.7219E-05_JPRB,5.4349E-06_JPRB/)  
+KBO( :, 1,57, 8) = (/&
+ & 1.5562E-06_JPRB,1.9665E-06_JPRB,1.7413E-06_JPRB,1.3458E-06_JPRB,9.8093E-07_JPRB/)  
+KBO( :, 2,57, 8) = (/&
+ & 2.9891E-06_JPRB,3.7795E-06_JPRB,3.2995E-06_JPRB,2.4572E-06_JPRB,1.4913E-06_JPRB/)  
+KBO( :, 3,57, 8) = (/&
+ & 5.5415E-06_JPRB,7.0117E-06_JPRB,6.0356E-06_JPRB,4.3741E-06_JPRB,2.1827E-06_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART24',1,ZHOOK_HANDLE)
+END SUBROUTINE PART24
+
+
+SUBROUTINE PART25
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART25',0,ZHOOK_HANDLE)
+
+
+KBO( :, 4,57, 8) = (/&
+ & 1.0083E-05_JPRB,1.2702E-05_JPRB,1.0763E-05_JPRB,7.6047E-06_JPRB,3.0916E-06_JPRB/)  
+KBO( :, 5,57, 8) = (/&
+ & 1.7987E-05_JPRB,2.2497E-05_JPRB,1.8783E-05_JPRB,1.2912E-05_JPRB,4.2413E-06_JPRB/)  
+KBO( :, 1,58, 8) = (/&
+ & 1.0750E-06_JPRB,1.3607E-06_JPRB,1.2097E-06_JPRB,9.4788E-07_JPRB,7.3838E-07_JPRB/)  
+KBO( :, 2,58, 8) = (/&
+ & 2.1150E-06_JPRB,2.6811E-06_JPRB,2.3427E-06_JPRB,1.7529E-06_JPRB,1.1369E-06_JPRB/)  
+KBO( :, 3,58, 8) = (/&
+ & 3.9927E-06_JPRB,5.0636E-06_JPRB,4.3652E-06_JPRB,3.1731E-06_JPRB,1.6853E-06_JPRB/)  
+KBO( :, 4,58, 8) = (/&
+ & 7.3820E-06_JPRB,9.3320E-06_JPRB,7.9215E-06_JPRB,5.6104E-06_JPRB,2.4126E-06_JPRB/)  
+KBO( :, 5,58, 8) = (/&
+ & 1.3390E-05_JPRB,1.6843E-05_JPRB,1.4081E-05_JPRB,9.7051E-06_JPRB,3.3415E-06_JPRB/)  
+KBO( :, 1,59, 8) = (/&
+ & 8.4145E-07_JPRB,1.0679E-06_JPRB,9.4979E-07_JPRB,7.4709E-07_JPRB,6.3499E-07_JPRB/)  
+KBO( :, 2,59, 8) = (/&
+ & 1.6828E-06_JPRB,2.1406E-06_JPRB,1.8681E-06_JPRB,1.3967E-06_JPRB,9.8499E-07_JPRB/)  
+KBO( :, 3,59, 8) = (/&
+ & 3.2239E-06_JPRB,4.0954E-06_JPRB,3.5264E-06_JPRB,2.5580E-06_JPRB,1.4693E-06_JPRB/)  
+KBO( :, 4,59, 8) = (/&
+ & 6.0392E-06_JPRB,7.6569E-06_JPRB,6.4911E-06_JPRB,4.5821E-06_JPRB,2.1121E-06_JPRB/)  
+KBO( :, 5,59, 8) = (/&
+ & 1.1097E-05_JPRB,1.4009E-05_JPRB,1.1691E-05_JPRB,8.0420E-06_JPRB,2.9314E-06_JPRB/)  
+KBO( :, 1,13, 9) = (/&
+ & 6.2749E-02_JPRB,7.2855E-02_JPRB,6.7478E-02_JPRB,5.3345E-02_JPRB,4.4699E-01_JPRB/)  
+KBO( :, 2,13, 9) = (/&
+ & 8.6319E-02_JPRB,1.0135E-01_JPRB,9.4230E-02_JPRB,7.4640E-02_JPRB,4.8102E-01_JPRB/)  
+KBO( :, 3,13, 9) = (/&
+ & 1.1531E-01_JPRB,1.3583E-01_JPRB,1.2671E-01_JPRB,1.0042E-01_JPRB,5.1621E-01_JPRB/)  
+KBO( :, 4,13, 9) = (/&
+ & 1.4981E-01_JPRB,1.7650E-01_JPRB,1.6480E-01_JPRB,1.3078E-01_JPRB,5.5243E-01_JPRB/)  
+KBO( :, 5,13, 9) = (/&
+ & 1.8970E-01_JPRB,2.2347E-01_JPRB,2.0865E-01_JPRB,1.6587E-01_JPRB,5.8937E-01_JPRB/)  
+KBO( :, 1,14, 9) = (/&
+ & 5.7187E-02_JPRB,6.7301E-02_JPRB,6.2129E-02_JPRB,4.9110E-02_JPRB,3.7769E-01_JPRB/)  
+KBO( :, 2,14, 9) = (/&
+ & 7.8466E-02_JPRB,9.3270E-02_JPRB,8.6445E-02_JPRB,6.8459E-02_JPRB,4.0753E-01_JPRB/)  
+KBO( :, 3,14, 9) = (/&
+ & 1.0467E-01_JPRB,1.2476E-01_JPRB,1.1574E-01_JPRB,9.1819E-02_JPRB,4.3868E-01_JPRB/)  
+KBO( :, 4,14, 9) = (/&
+ & 1.3581E-01_JPRB,1.6192E-01_JPRB,1.5034E-01_JPRB,1.1930E-01_JPRB,4.7064E-01_JPRB/)  
+KBO( :, 5,14, 9) = (/&
+ & 1.7224E-01_JPRB,2.0464E-01_JPRB,1.9021E-01_JPRB,1.5110E-01_JPRB,5.0408E-01_JPRB/)  
+KBO( :, 1,15, 9) = (/&
+ & 5.1721E-02_JPRB,6.1566E-02_JPRB,5.6680E-02_JPRB,4.4751E-02_JPRB,2.9568E-01_JPRB/)  
+KBO( :, 2,15, 9) = (/&
+ & 7.0936E-02_JPRB,8.5115E-02_JPRB,7.8492E-02_JPRB,6.2182E-02_JPRB,3.2213E-01_JPRB/)  
+KBO( :, 3,15, 9) = (/&
+ & 9.4515E-02_JPRB,1.1370E-01_JPRB,1.0486E-01_JPRB,8.3182E-02_JPRB,3.4986E-01_JPRB/)  
+KBO( :, 4,15, 9) = (/&
+ & 1.2289E-01_JPRB,1.4728E-01_JPRB,1.3607E-01_JPRB,1.0790E-01_JPRB,3.7853E-01_JPRB/)  
+KBO( :, 5,15, 9) = (/&
+ & 1.5637E-01_JPRB,1.8627E-01_JPRB,1.7195E-01_JPRB,1.3626E-01_JPRB,4.0894E-01_JPRB/)  
+KBO( :, 1,16, 9) = (/&
+ & 4.6578E-02_JPRB,5.5911E-02_JPRB,5.1274E-02_JPRB,4.0416E-02_JPRB,2.2673E-01_JPRB/)  
+KBO( :, 2,16, 9) = (/&
+ & 6.3866E-02_JPRB,7.7158E-02_JPRB,7.0810E-02_JPRB,5.5944E-02_JPRB,2.5071E-01_JPRB/)  
+KBO( :, 3,16, 9) = (/&
+ & 8.5294E-02_JPRB,1.0285E-01_JPRB,9.4463E-02_JPRB,7.4731E-02_JPRB,2.7559E-01_JPRB/)  
+KBO( :, 4,16, 9) = (/&
+ & 1.1126E-01_JPRB,1.3331E-01_JPRB,1.2237E-01_JPRB,9.6725E-02_JPRB,3.0207E-01_JPRB/)  
+KBO( :, 5,16, 9) = (/&
+ & 1.4207E-01_JPRB,1.6889E-01_JPRB,1.5467E-01_JPRB,1.2182E-01_JPRB,3.3015E-01_JPRB/)  
+KBO( :, 1,17, 9) = (/&
+ & 4.1900E-02_JPRB,5.0464E-02_JPRB,4.6053E-02_JPRB,3.6179E-02_JPRB,1.8226E-01_JPRB/)  
+KBO( :, 2,17, 9) = (/&
+ & 5.7522E-02_JPRB,6.9444E-02_JPRB,6.3472E-02_JPRB,4.9973E-02_JPRB,2.0447E-01_JPRB/)  
+KBO( :, 3,17, 9) = (/&
+ & 7.7026E-02_JPRB,9.2538E-02_JPRB,8.4551E-02_JPRB,6.6605E-02_JPRB,2.2810E-01_JPRB/)  
+KBO( :, 4,17, 9) = (/&
+ & 1.0079E-01_JPRB,1.2017E-01_JPRB,1.0955E-01_JPRB,8.5985E-02_JPRB,2.5342E-01_JPRB/)  
+KBO( :, 5,17, 9) = (/&
+ & 1.2927E-01_JPRB,1.5258E-01_JPRB,1.3846E-01_JPRB,1.0816E-01_JPRB,2.7946E-01_JPRB/)  
+KBO( :, 1,18, 9) = (/&
+ & 3.7891E-02_JPRB,4.5454E-02_JPRB,4.1197E-02_JPRB,3.2260E-02_JPRB,1.5403E-01_JPRB/)  
+KBO( :, 2,18, 9) = (/&
+ & 5.2057E-02_JPRB,6.2358E-02_JPRB,5.6644E-02_JPRB,4.4449E-02_JPRB,1.7502E-01_JPRB/)  
+KBO( :, 3,18, 9) = (/&
+ & 6.9815E-02_JPRB,8.3160E-02_JPRB,7.5488E-02_JPRB,5.9051E-02_JPRB,1.9748E-01_JPRB/)  
+KBO( :, 4,18, 9) = (/&
+ & 9.1668E-02_JPRB,1.0819E-01_JPRB,9.7824E-02_JPRB,7.6130E-02_JPRB,2.2105E-01_JPRB/)  
+KBO( :, 5,18, 9) = (/&
+ & 1.1799E-01_JPRB,1.3770E-01_JPRB,1.2371E-01_JPRB,9.5780E-02_JPRB,2.4525E-01_JPRB/)  
+KBO( :, 1,19, 9) = (/&
+ & 3.4441E-02_JPRB,4.0854E-02_JPRB,3.6785E-02_JPRB,2.8648E-02_JPRB,1.3592E-01_JPRB/)  
+KBO( :, 2,19, 9) = (/&
+ & 4.7310E-02_JPRB,5.6014E-02_JPRB,5.0505E-02_JPRB,3.9333E-02_JPRB,1.5599E-01_JPRB/)  
+KBO( :, 3,19, 9) = (/&
+ & 6.3559E-02_JPRB,7.4763E-02_JPRB,6.7291E-02_JPRB,5.2149E-02_JPRB,1.7738E-01_JPRB/)  
+KBO( :, 4,19, 9) = (/&
+ & 8.3699E-02_JPRB,9.7466E-02_JPRB,8.7225E-02_JPRB,6.7250E-02_JPRB,1.9960E-01_JPRB/)  
+KBO( :, 5,19, 9) = (/&
+ & 1.0809E-01_JPRB,1.2436E-01_JPRB,1.1051E-01_JPRB,8.4704E-02_JPRB,2.2240E-01_JPRB/)  
+KBO( :, 1,20, 9) = (/&
+ & 3.1662E-02_JPRB,3.7011E-02_JPRB,3.3064E-02_JPRB,2.5535E-02_JPRB,1.2166E-01_JPRB/)  
+KBO( :, 2,20, 9) = (/&
+ & 4.3462E-02_JPRB,5.0683E-02_JPRB,4.5312E-02_JPRB,3.4918E-02_JPRB,1.4050E-01_JPRB/)  
+KBO( :, 3,20, 9) = (/&
+ & 5.8468E-02_JPRB,6.7693E-02_JPRB,6.0291E-02_JPRB,4.6251E-02_JPRB,1.6041E-01_JPRB/)  
+KBO( :, 4,20, 9) = (/&
+ & 7.7082E-02_JPRB,8.8368E-02_JPRB,7.8218E-02_JPRB,5.9632E-02_JPRB,1.8092E-01_JPRB/)  
+KBO( :, 5,20, 9) = (/&
+ & 9.9590E-02_JPRB,1.1296E-01_JPRB,9.9282E-02_JPRB,7.5236E-02_JPRB,2.0180E-01_JPRB/)  
+KBO( :, 1,21, 9) = (/&
+ & 2.9197E-02_JPRB,3.3644E-02_JPRB,2.9800E-02_JPRB,2.2751E-02_JPRB,1.0840E-01_JPRB/)  
+KBO( :, 2,21, 9) = (/&
+ & 4.0061E-02_JPRB,4.6022E-02_JPRB,4.0720E-02_JPRB,3.1025E-02_JPRB,1.2575E-01_JPRB/)  
+KBO( :, 3,21, 9) = (/&
+ & 5.3879E-02_JPRB,6.1513E-02_JPRB,5.4145E-02_JPRB,4.1071E-02_JPRB,1.4377E-01_JPRB/)  
+KBO( :, 4,21, 9) = (/&
+ & 7.1035E-02_JPRB,8.0368E-02_JPRB,7.0344E-02_JPRB,5.2993E-02_JPRB,1.6228E-01_JPRB/)  
+KBO( :, 5,21, 9) = (/&
+ & 9.1717E-02_JPRB,1.0275E-01_JPRB,8.9495E-02_JPRB,6.6978E-02_JPRB,1.8109E-01_JPRB/)  
+KBO( :, 1,22, 9) = (/&
+ & 2.7499E-02_JPRB,3.1251E-02_JPRB,2.7449E-02_JPRB,2.0717E-02_JPRB,9.5123E-02_JPRB/)  
+KBO( :, 2,22, 9) = (/&
+ & 3.7657E-02_JPRB,4.2715E-02_JPRB,3.7381E-02_JPRB,2.8145E-02_JPRB,1.1043E-01_JPRB/)  
+KBO( :, 3,22, 9) = (/&
+ & 5.0562E-02_JPRB,5.6977E-02_JPRB,4.9664E-02_JPRB,3.7184E-02_JPRB,1.2615E-01_JPRB/)  
+KBO( :, 4,22, 9) = (/&
+ & 6.6397E-02_JPRB,7.4321E-02_JPRB,6.4486E-02_JPRB,4.7986E-02_JPRB,1.4210E-01_JPRB/)  
+KBO( :, 5,22, 9) = (/&
+ & 8.5266E-02_JPRB,9.4958E-02_JPRB,8.2045E-02_JPRB,6.0712E-02_JPRB,1.5827E-01_JPRB/)  
+KBO( :, 1,23, 9) = (/&
+ & 2.5951E-02_JPRB,2.9125E-02_JPRB,2.5330E-02_JPRB,1.8934E-02_JPRB,8.2353E-02_JPRB/)  
+KBO( :, 2,23, 9) = (/&
+ & 3.5455E-02_JPRB,3.9694E-02_JPRB,3.4441E-02_JPRB,2.5641E-02_JPRB,9.5317E-02_JPRB/)  
+KBO( :, 3,23, 9) = (/&
+ & 4.7331E-02_JPRB,5.2838E-02_JPRB,4.5688E-02_JPRB,3.3836E-02_JPRB,1.0857E-01_JPRB/)  
+KBO( :, 4,23, 9) = (/&
+ & 6.1763E-02_JPRB,6.8758E-02_JPRB,5.9284E-02_JPRB,4.3652E-02_JPRB,1.2209E-01_JPRB/)  
+KBO( :, 5,23, 9) = (/&
+ & 7.8933E-02_JPRB,8.7537E-02_JPRB,7.5364E-02_JPRB,5.5173E-02_JPRB,1.3590E-01_JPRB/)  
+KBO( :, 1,24, 9) = (/&
+ & 2.4473E-02_JPRB,2.7169E-02_JPRB,2.3444E-02_JPRB,1.7363E-02_JPRB,6.9430E-02_JPRB/)  
+KBO( :, 2,24, 9) = (/&
+ & 3.3250E-02_JPRB,3.6936E-02_JPRB,3.1810E-02_JPRB,2.3462E-02_JPRB,8.0157E-02_JPRB/)  
+KBO( :, 3,24, 9) = (/&
+ & 4.4117E-02_JPRB,4.8975E-02_JPRB,4.2123E-02_JPRB,3.0921E-02_JPRB,9.1223E-02_JPRB/)  
+KBO( :, 4,24, 9) = (/&
+ & 5.7285E-02_JPRB,6.3439E-02_JPRB,5.4524E-02_JPRB,3.9854E-02_JPRB,1.0266E-01_JPRB/)  
+KBO( :, 5,24, 9) = (/&
+ & 7.2998E-02_JPRB,8.0524E-02_JPRB,6.9109E-02_JPRB,5.0332E-02_JPRB,1.1441E-01_JPRB/)  
+KBO( :, 1,25, 9) = (/&
+ & 2.3088E-02_JPRB,2.5438E-02_JPRB,2.1801E-02_JPRB,1.6002E-02_JPRB,5.7837E-02_JPRB/)  
+KBO( :, 2,25, 9) = (/&
+ & 3.1174E-02_JPRB,3.4396E-02_JPRB,2.9493E-02_JPRB,2.1569E-02_JPRB,6.6784E-02_JPRB/)  
+KBO( :, 3,25, 9) = (/&
+ & 4.1147E-02_JPRB,4.5360E-02_JPRB,3.8891E-02_JPRB,2.8375E-02_JPRB,7.6101E-02_JPRB/)  
+KBO( :, 4,25, 9) = (/&
+ & 5.3244E-02_JPRB,5.8521E-02_JPRB,5.0118E-02_JPRB,3.6473E-02_JPRB,8.5758E-02_JPRB/)  
+KBO( :, 5,25, 9) = (/&
+ & 6.7659E-02_JPRB,7.4121E-02_JPRB,6.3317E-02_JPRB,4.5953E-02_JPRB,9.5693E-02_JPRB/)  
+KBO( :, 1,26, 9) = (/&
+ & 2.1853E-02_JPRB,2.3928E-02_JPRB,2.0426E-02_JPRB,1.4853E-02_JPRB,4.8392E-02_JPRB/)  
+KBO( :, 2,26, 9) = (/&
+ & 2.9360E-02_JPRB,3.2138E-02_JPRB,2.7449E-02_JPRB,1.9958E-02_JPRB,5.5916E-02_JPRB/)  
+KBO( :, 3,26, 9) = (/&
+ & 3.8590E-02_JPRB,4.2170E-02_JPRB,3.5993E-02_JPRB,2.6138E-02_JPRB,6.3792E-02_JPRB/)  
+KBO( :, 4,26, 9) = (/&
+ & 4.9775E-02_JPRB,5.4242E-02_JPRB,4.6206E-02_JPRB,3.3463E-02_JPRB,7.1975E-02_JPRB/)  
+KBO( :, 5,26, 9) = (/&
+ & 6.3079E-02_JPRB,6.8549E-02_JPRB,5.8245E-02_JPRB,4.2044E-02_JPRB,8.0448E-02_JPRB/)  
+KBO( :, 1,27, 9) = (/&
+ & 2.0589E-02_JPRB,2.2432E-02_JPRB,1.9091E-02_JPRB,1.3798E-02_JPRB,3.9711E-02_JPRB/)  
+KBO( :, 2,27, 9) = (/&
+ & 2.7577E-02_JPRB,2.9992E-02_JPRB,2.5499E-02_JPRB,1.8441E-02_JPRB,4.5946E-02_JPRB/)  
+KBO( :, 3,27, 9) = (/&
+ & 3.6163E-02_JPRB,3.9222E-02_JPRB,3.3292E-02_JPRB,2.4027E-02_JPRB,5.2514E-02_JPRB/)  
+KBO( :, 4,27, 9) = (/&
+ & 4.6525E-02_JPRB,5.0331E-02_JPRB,4.2630E-02_JPRB,3.0669E-02_JPRB,5.9354E-02_JPRB/)  
+KBO( :, 5,27, 9) = (/&
+ & 5.8822E-02_JPRB,6.3502E-02_JPRB,5.3650E-02_JPRB,3.8505E-02_JPRB,6.6468E-02_JPRB/)  
+KBO( :, 1,28, 9) = (/&
+ & 1.9320E-02_JPRB,2.0975E-02_JPRB,1.7795E-02_JPRB,1.2791E-02_JPRB,3.1912E-02_JPRB/)  
+KBO( :, 2,28, 9) = (/&
+ & 2.5855E-02_JPRB,2.7959E-02_JPRB,2.3678E-02_JPRB,1.7000E-02_JPRB,3.7011E-02_JPRB/)  
+KBO( :, 3,28, 9) = (/&
+ & 3.3864E-02_JPRB,3.6500E-02_JPRB,3.0839E-02_JPRB,2.2082E-02_JPRB,4.2382E-02_JPRB/)  
+KBO( :, 4,28, 9) = (/&
+ & 4.3478E-02_JPRB,4.6764E-02_JPRB,3.9410E-02_JPRB,2.8143E-02_JPRB,4.8009E-02_JPRB/)  
+KBO( :, 5,28, 9) = (/&
+ & 5.4874E-02_JPRB,5.8907E-02_JPRB,4.9537E-02_JPRB,3.5320E-02_JPRB,5.3947E-02_JPRB/)  
+KBO( :, 1,29, 9) = (/&
+ & 1.8123E-02_JPRB,1.9628E-02_JPRB,1.6597E-02_JPRB,1.1861E-02_JPRB,2.5423E-02_JPRB/)  
+KBO( :, 2,29, 9) = (/&
+ & 2.4225E-02_JPRB,2.6121E-02_JPRB,2.2032E-02_JPRB,1.5699E-02_JPRB,2.9542E-02_JPRB/)  
+KBO( :, 3,29, 9) = (/&
+ & 3.1700E-02_JPRB,3.4031E-02_JPRB,2.8639E-02_JPRB,2.0345E-02_JPRB,3.3911E-02_JPRB/)  
+KBO( :, 4,29, 9) = (/&
+ & 4.0663E-02_JPRB,4.3529E-02_JPRB,3.6544E-02_JPRB,2.5917E-02_JPRB,3.8545E-02_JPRB/)  
+KBO( :, 5,29, 9) = (/&
+ & 5.1268E-02_JPRB,5.4769E-02_JPRB,4.5895E-02_JPRB,3.2522E-02_JPRB,4.3488E-02_JPRB/)  
+KBO( :, 1,30, 9) = (/&
+ & 1.6958E-02_JPRB,1.8364E-02_JPRB,1.5479E-02_JPRB,1.0998E-02_JPRB,1.9951E-02_JPRB/)  
+KBO( :, 2,30, 9) = (/&
+ & 2.2671E-02_JPRB,2.4409E-02_JPRB,2.0518E-02_JPRB,1.4521E-02_JPRB,2.3241E-02_JPRB/)  
+KBO( :, 3,30, 9) = (/&
+ & 2.9641E-02_JPRB,3.1772E-02_JPRB,2.6628E-02_JPRB,1.8795E-02_JPRB,2.6766E-02_JPRB/)  
+KBO( :, 4,30, 9) = (/&
+ & 3.8012E-02_JPRB,4.0581E-02_JPRB,3.3943E-02_JPRB,2.3935E-02_JPRB,3.0561E-02_JPRB/)  
+KBO( :, 5,30, 9) = (/&
+ & 4.7908E-02_JPRB,5.1031E-02_JPRB,4.2627E-02_JPRB,3.0033E-02_JPRB,3.4653E-02_JPRB/)  
+KBO( :, 1,31, 9) = (/&
+ & 1.5875E-02_JPRB,1.7181E-02_JPRB,1.4459E-02_JPRB,1.0211E-02_JPRB,1.5400E-02_JPRB/)  
+KBO( :, 2,31, 9) = (/&
+ & 2.1201E-02_JPRB,2.2826E-02_JPRB,1.9139E-02_JPRB,1.3463E-02_JPRB,1.8009E-02_JPRB/)  
+KBO( :, 3,31, 9) = (/&
+ & 2.7703E-02_JPRB,2.9694E-02_JPRB,2.4816E-02_JPRB,1.7421E-02_JPRB,2.0837E-02_JPRB/)  
+KBO( :, 4,31, 9) = (/&
+ & 3.5538E-02_JPRB,3.7926E-02_JPRB,3.1623E-02_JPRB,2.2179E-02_JPRB,2.3914E-02_JPRB/)  
+KBO( :, 5,31, 9) = (/&
+ & 4.4824E-02_JPRB,4.7692E-02_JPRB,3.9738E-02_JPRB,2.7844E-02_JPRB,2.7277E-02_JPRB/)  
+KBO( :, 1,32, 9) = (/&
+ & 1.4881E-02_JPRB,1.6116E-02_JPRB,1.3532E-02_JPRB,9.5127E-03_JPRB,1.1925E-02_JPRB/)  
+KBO( :, 2,32, 9) = (/&
+ & 1.9865E-02_JPRB,2.1395E-02_JPRB,1.7905E-02_JPRB,1.2529E-02_JPRB,1.4004E-02_JPRB/)  
+KBO( :, 3,32, 9) = (/&
+ & 2.5959E-02_JPRB,2.7823E-02_JPRB,2.3208E-02_JPRB,1.6206E-02_JPRB,1.6285E-02_JPRB/)  
+KBO( :, 4,32, 9) = (/&
+ & 3.3313E-02_JPRB,3.5564E-02_JPRB,2.9600E-02_JPRB,2.0639E-02_JPRB,1.8807E-02_JPRB/)  
+KBO( :, 5,32, 9) = (/&
+ & 4.2060E-02_JPRB,4.4782E-02_JPRB,3.7223E-02_JPRB,2.5926E-02_JPRB,2.1578E-02_JPRB/)  
+KBO( :, 1,33, 9) = (/&
+ & 1.3967E-02_JPRB,1.5144E-02_JPRB,1.2690E-02_JPRB,8.8844E-03_JPRB,9.2074E-03_JPRB/)  
+KBO( :, 2,33, 9) = (/&
+ & 1.8640E-02_JPRB,2.0097E-02_JPRB,1.6785E-02_JPRB,1.1705E-02_JPRB,1.0873E-02_JPRB/)  
+KBO( :, 3,33, 9) = (/&
+ & 2.4387E-02_JPRB,2.6153E-02_JPRB,2.1778E-02_JPRB,1.5136E-02_JPRB,1.2726E-02_JPRB/)  
+KBO( :, 4,33, 9) = (/&
+ & 3.1327E-02_JPRB,3.3471E-02_JPRB,2.7814E-02_JPRB,1.9292E-02_JPRB,1.4787E-02_JPRB/)  
+KBO( :, 5,33, 9) = (/&
+ & 3.9572E-02_JPRB,4.2221E-02_JPRB,3.5044E-02_JPRB,2.4264E-02_JPRB,1.7080E-02_JPRB/)  
+KBO( :, 1,34, 9) = (/&
+ & 1.3038E-02_JPRB,1.4154E-02_JPRB,1.1832E-02_JPRB,8.2492E-03_JPRB,7.3647E-03_JPRB/)  
+KBO( :, 2,34, 9) = (/&
+ & 1.7420E-02_JPRB,1.8798E-02_JPRB,1.5659E-02_JPRB,1.0876E-02_JPRB,8.7412E-03_JPRB/)  
+KBO( :, 3,34, 9) = (/&
+ & 2.2825E-02_JPRB,2.4500E-02_JPRB,2.0360E-02_JPRB,1.4089E-02_JPRB,1.0289E-02_JPRB/)  
+KBO( :, 4,34, 9) = (/&
+ & 2.9360E-02_JPRB,3.1418E-02_JPRB,2.6065E-02_JPRB,1.7978E-02_JPRB,1.2027E-02_JPRB/)  
+KBO( :, 5,34, 9) = (/&
+ & 3.7137E-02_JPRB,3.9713E-02_JPRB,3.2919E-02_JPRB,2.2661E-02_JPRB,1.3976E-02_JPRB/)  
+KBO( :, 1,35, 9) = (/&
+ & 1.1851E-02_JPRB,1.2890E-02_JPRB,1.0761E-02_JPRB,7.4718E-03_JPRB,5.7550E-03_JPRB/)  
+KBO( :, 2,35, 9) = (/&
+ & 1.5900E-02_JPRB,1.7182E-02_JPRB,1.4286E-02_JPRB,9.8834E-03_JPRB,6.8791E-03_JPRB/)  
+KBO( :, 3,35, 9) = (/&
+ & 2.0897E-02_JPRB,2.2486E-02_JPRB,1.8648E-02_JPRB,1.2848E-02_JPRB,8.1522E-03_JPRB/)  
+KBO( :, 4,35, 9) = (/&
+ & 2.6965E-02_JPRB,2.8940E-02_JPRB,2.3971E-02_JPRB,1.6457E-02_JPRB,9.5922E-03_JPRB/)  
+KBO( :, 5,35, 9) = (/&
+ & 3.4238E-02_JPRB,3.6722E-02_JPRB,3.0385E-02_JPRB,2.0819E-02_JPRB,1.1216E-02_JPRB/)  
+KBO( :, 1,36, 9) = (/&
+ & 1.0455E-02_JPRB,1.1397E-02_JPRB,9.5033E-03_JPRB,6.5755E-03_JPRB,4.3571E-03_JPRB/)  
+KBO( :, 2,36, 9) = (/&
+ & 1.4117E-02_JPRB,1.5290E-02_JPRB,1.2699E-02_JPRB,8.7484E-03_JPRB,5.2508E-03_JPRB/)  
+KBO( :, 3,36, 9) = (/&
+ & 1.8658E-02_JPRB,2.0138E-02_JPRB,1.6673E-02_JPRB,1.1439E-02_JPRB,6.2734E-03_JPRB/)  
+KBO( :, 4,36, 9) = (/&
+ & 2.4204E-02_JPRB,2.6071E-02_JPRB,2.1551E-02_JPRB,1.4738E-02_JPRB,7.4336E-03_JPRB/)  
+KBO( :, 5,36, 9) = (/&
+ & 3.0898E-02_JPRB,3.3263E-02_JPRB,2.7471E-02_JPRB,1.8745E-02_JPRB,8.7508E-03_JPRB/)  
+KBO( :, 1,37, 9) = (/&
+ & 8.8498E-03_JPRB,9.6657E-03_JPRB,8.0482E-03_JPRB,5.5507E-03_JPRB,3.4394E-03_JPRB/)  
+KBO( :, 2,37, 9) = (/&
+ & 1.2053E-02_JPRB,1.3088E-02_JPRB,1.0850E-02_JPRB,7.4463E-03_JPRB,4.1756E-03_JPRB/)  
+KBO( :, 3,37, 9) = (/&
+ & 1.6053E-02_JPRB,1.7380E-02_JPRB,1.4373E-02_JPRB,9.8197E-03_JPRB,5.0255E-03_JPRB/)  
+KBO( :, 4,37, 9) = (/&
+ & 2.0992E-02_JPRB,2.2697E-02_JPRB,1.8723E-02_JPRB,1.2754E-02_JPRB,5.9977E-03_JPRB/)  
+KBO( :, 5,37, 9) = (/&
+ & 2.6999E-02_JPRB,2.9182E-02_JPRB,2.4048E-02_JPRB,1.6341E-02_JPRB,7.1081E-03_JPRB/)  
+KBO( :, 1,38, 9) = (/&
+ & 7.4680E-03_JPRB,8.1793E-03_JPRB,6.8001E-03_JPRB,4.6741E-03_JPRB,2.7036E-03_JPRB/)  
+KBO( :, 2,38, 9) = (/&
+ & 1.0268E-02_JPRB,1.1184E-02_JPRB,9.2546E-03_JPRB,6.3288E-03_JPRB,3.3094E-03_JPRB/)  
+KBO( :, 3,38, 9) = (/&
+ & 1.3799E-02_JPRB,1.4987E-02_JPRB,1.2370E-02_JPRB,8.4204E-03_JPRB,4.0136E-03_JPRB/)  
+KBO( :, 4,38, 9) = (/&
+ & 1.8189E-02_JPRB,1.9741E-02_JPRB,1.6260E-02_JPRB,1.1031E-02_JPRB,4.8267E-03_JPRB/)  
+KBO( :, 5,38, 9) = (/&
+ & 2.3579E-02_JPRB,2.5605E-02_JPRB,2.1052E-02_JPRB,1.4244E-02_JPRB,5.7626E-03_JPRB/)  
+KBO( :, 1,39, 9) = (/&
+ & 6.2942E-03_JPRB,6.9249E-03_JPRB,5.7460E-03_JPRB,3.9360E-03_JPRB,2.1044E-03_JPRB/)  
+KBO( :, 2,39, 9) = (/&
+ & 8.7432E-03_JPRB,9.5663E-03_JPRB,7.9000E-03_JPRB,5.3823E-03_JPRB,2.5994E-03_JPRB/)  
+KBO( :, 3,39, 9) = (/&
+ & 1.1864E-02_JPRB,1.2937E-02_JPRB,1.0660E-02_JPRB,7.2304E-03_JPRB,3.1792E-03_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART25',1,ZHOOK_HANDLE)
+END SUBROUTINE PART25
+
+
+SUBROUTINE PART26
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART26',0,ZHOOK_HANDLE)
+
+
+KBO( :, 4,39, 9) = (/&
+ & 1.5781E-02_JPRB,1.7197E-02_JPRB,1.4145E-02_JPRB,9.5554E-03_JPRB,3.8556E-03_JPRB/)  
+KBO( :, 5,39, 9) = (/&
+ & 2.0624E-02_JPRB,2.2512E-02_JPRB,1.8470E-02_JPRB,1.2443E-02_JPRB,4.6381E-03_JPRB/)  
+KBO( :, 1,40, 9) = (/&
+ & 5.1375E-03_JPRB,5.6803E-03_JPRB,4.7069E-03_JPRB,3.2115E-03_JPRB,1.6578E-03_JPRB/)  
+KBO( :, 2,40, 9) = (/&
+ & 7.2291E-03_JPRB,7.9459E-03_JPRB,6.5495E-03_JPRB,4.4441E-03_JPRB,2.0666E-03_JPRB/)  
+KBO( :, 3,40, 9) = (/&
+ & 9.9296E-03_JPRB,1.0871E-02_JPRB,8.9384E-03_JPRB,6.0392E-03_JPRB,2.5498E-03_JPRB/)  
+KBO( :, 4,40, 9) = (/&
+ & 1.3354E-02_JPRB,1.4603E-02_JPRB,1.1989E-02_JPRB,8.0664E-03_JPRB,3.1172E-03_JPRB/)  
+KBO( :, 5,40, 9) = (/&
+ & 1.7630E-02_JPRB,1.9320E-02_JPRB,1.5819E-02_JPRB,1.0610E-02_JPRB,3.7783E-03_JPRB/)  
+KBO( :, 1,41, 9) = (/&
+ & 4.1669E-03_JPRB,4.6307E-03_JPRB,3.8311E-03_JPRB,2.6055E-03_JPRB,1.3022E-03_JPRB/)  
+KBO( :, 2,41, 9) = (/&
+ & 5.9450E-03_JPRB,6.5654E-03_JPRB,5.4031E-03_JPRB,3.6497E-03_JPRB,1.6387E-03_JPRB/)  
+KBO( :, 3,41, 9) = (/&
+ & 8.2702E-03_JPRB,9.0939E-03_JPRB,7.4627E-03_JPRB,5.0204E-03_JPRB,2.0406E-03_JPRB/)  
+KBO( :, 4,41, 9) = (/&
+ & 1.1254E-02_JPRB,1.2358E-02_JPRB,1.0124E-02_JPRB,6.7836E-03_JPRB,2.5160E-03_JPRB/)  
+KBO( :, 5,41, 9) = (/&
+ & 1.5021E-02_JPRB,1.6526E-02_JPRB,1.3505E-02_JPRB,9.0170E-03_JPRB,3.0745E-03_JPRB/)  
+KBO( :, 1,42, 9) = (/&
+ & 3.3673E-03_JPRB,3.7618E-03_JPRB,3.1084E-03_JPRB,2.1093E-03_JPRB,1.0159E-03_JPRB/)  
+KBO( :, 2,42, 9) = (/&
+ & 4.8758E-03_JPRB,5.4116E-03_JPRB,4.4469E-03_JPRB,2.9930E-03_JPRB,1.2910E-03_JPRB/)  
+KBO( :, 3,42, 9) = (/&
+ & 6.8765E-03_JPRB,7.5957E-03_JPRB,6.2240E-03_JPRB,4.1675E-03_JPRB,1.6231E-03_JPRB/)  
+KBO( :, 4,42, 9) = (/&
+ & 9.4703E-03_JPRB,1.0449E-02_JPRB,8.5426E-03_JPRB,5.6988E-03_JPRB,2.0195E-03_JPRB/)  
+KBO( :, 5,42, 9) = (/&
+ & 1.2789E-02_JPRB,1.4133E-02_JPRB,1.1527E-02_JPRB,7.6610E-03_JPRB,2.4891E-03_JPRB/)  
+KBO( :, 1,43, 9) = (/&
+ & 2.6545E-03_JPRB,2.9817E-03_JPRB,2.4611E-03_JPRB,1.6672E-03_JPRB,7.8914E-04_JPRB/)  
+KBO( :, 2,43, 9) = (/&
+ & 3.9072E-03_JPRB,4.3601E-03_JPRB,3.5785E-03_JPRB,2.4026E-03_JPRB,1.0130E-03_JPRB/)  
+KBO( :, 3,43, 9) = (/&
+ & 5.5970E-03_JPRB,6.2146E-03_JPRB,5.0833E-03_JPRB,3.3914E-03_JPRB,1.2871E-03_JPRB/)  
+KBO( :, 4,43, 9) = (/&
+ & 7.8170E-03_JPRB,8.6680E-03_JPRB,7.0728E-03_JPRB,4.6984E-03_JPRB,1.6175E-03_JPRB/)  
+KBO( :, 5,43, 9) = (/&
+ & 1.0695E-02_JPRB,1.1876E-02_JPRB,9.6670E-03_JPRB,6.3964E-03_JPRB,2.0136E-03_JPRB/)  
+KBO( :, 1,44, 9) = (/&
+ & 2.0599E-03_JPRB,2.3264E-03_JPRB,1.9189E-03_JPRB,1.2982E-03_JPRB,6.1043E-04_JPRB/)  
+KBO( :, 2,44, 9) = (/&
+ & 3.0865E-03_JPRB,3.4632E-03_JPRB,2.8398E-03_JPRB,1.9029E-03_JPRB,7.9160E-04_JPRB/)  
+KBO( :, 3,44, 9) = (/&
+ & 4.4945E-03_JPRB,5.0200E-03_JPRB,4.1009E-03_JPRB,2.7282E-03_JPRB,1.0166E-03_JPRB/)  
+KBO( :, 4,44, 9) = (/&
+ & 6.3771E-03_JPRB,7.1092E-03_JPRB,5.7918E-03_JPRB,3.8324E-03_JPRB,1.2916E-03_JPRB/)  
+KBO( :, 5,44, 9) = (/&
+ & 8.8507E-03_JPRB,9.8816E-03_JPRB,8.0271E-03_JPRB,5.2885E-03_JPRB,1.6254E-03_JPRB/)  
+KBO( :, 1,45, 9) = (/&
+ & 1.5883E-03_JPRB,1.8029E-03_JPRB,1.4862E-03_JPRB,1.0041E-03_JPRB,4.6915E-04_JPRB/)  
+KBO( :, 2,45, 9) = (/&
+ & 2.4237E-03_JPRB,2.7348E-03_JPRB,2.2402E-03_JPRB,1.4983E-03_JPRB,6.1463E-04_JPRB/)  
+KBO( :, 3,45, 9) = (/&
+ & 3.5915E-03_JPRB,4.0353E-03_JPRB,3.2920E-03_JPRB,2.1847E-03_JPRB,7.9813E-04_JPRB/)  
+KBO( :, 4,45, 9) = (/&
+ & 5.1787E-03_JPRB,5.8074E-03_JPRB,4.7242E-03_JPRB,3.1158E-03_JPRB,1.0255E-03_JPRB/)  
+KBO( :, 5,45, 9) = (/&
+ & 7.2977E-03_JPRB,8.1949E-03_JPRB,6.6455E-03_JPRB,4.3597E-03_JPRB,1.3052E-03_JPRB/)  
+KBO( :, 1,46, 9) = (/&
+ & 1.2050E-03_JPRB,1.3752E-03_JPRB,1.1327E-03_JPRB,7.6415E-04_JPRB,3.5825E-04_JPRB/)  
+KBO( :, 2,46, 9) = (/&
+ & 1.8745E-03_JPRB,2.1271E-03_JPRB,1.7406E-03_JPRB,1.1623E-03_JPRB,4.7455E-04_JPRB/)  
+KBO( :, 3,46, 9) = (/&
+ & 2.8292E-03_JPRB,3.1990E-03_JPRB,2.6058E-03_JPRB,1.7261E-03_JPRB,6.2280E-04_JPRB/)  
+KBO( :, 4,46, 9) = (/&
+ & 4.1523E-03_JPRB,4.6867E-03_JPRB,3.8068E-03_JPRB,2.5043E-03_JPRB,8.0997E-04_JPRB/)  
+KBO( :, 5,46, 9) = (/&
+ & 5.9484E-03_JPRB,6.7211E-03_JPRB,5.4412E-03_JPRB,3.5566E-03_JPRB,1.0425E-03_JPRB/)  
+KBO( :, 1,47, 9) = (/&
+ & 8.9059E-04_JPRB,1.0221E-03_JPRB,8.4076E-04_JPRB,5.6652E-04_JPRB,2.7270E-04_JPRB/)  
+KBO( :, 2,47, 9) = (/&
+ & 1.4154E-03_JPRB,1.6142E-03_JPRB,1.3191E-03_JPRB,8.8003E-04_JPRB,3.6578E-04_JPRB/)  
+KBO( :, 3,47, 9) = (/&
+ & 2.1790E-03_JPRB,2.4785E-03_JPRB,2.0162E-03_JPRB,1.3331E-03_JPRB,4.8487E-04_JPRB/)  
+KBO( :, 4,47, 9) = (/&
+ & 3.2603E-03_JPRB,3.7035E-03_JPRB,3.0033E-03_JPRB,1.9711E-03_JPRB,6.3790E-04_JPRB/)  
+KBO( :, 5,47, 9) = (/&
+ & 4.7543E-03_JPRB,5.4065E-03_JPRB,4.3698E-03_JPRB,2.8478E-03_JPRB,8.3079E-04_JPRB/)  
+KBO( :, 1,48, 9) = (/&
+ & 6.5137E-04_JPRB,7.5160E-04_JPRB,6.1768E-04_JPRB,4.1559E-04_JPRB,2.0605E-04_JPRB/)  
+KBO( :, 2,48, 9) = (/&
+ & 1.0584E-03_JPRB,1.2128E-03_JPRB,9.8996E-04_JPRB,6.6009E-04_JPRB,2.8014E-04_JPRB/)  
+KBO( :, 3,48, 9) = (/&
+ & 1.6631E-03_JPRB,1.9026E-03_JPRB,1.5461E-03_JPRB,1.0205E-03_JPRB,3.7581E-04_JPRB/)  
+KBO( :, 4,48, 9) = (/&
+ & 2.5384E-03_JPRB,2.9025E-03_JPRB,2.3504E-03_JPRB,1.5394E-03_JPRB,4.9967E-04_JPRB/)  
+KBO( :, 5,48, 9) = (/&
+ & 3.7716E-03_JPRB,4.3191E-03_JPRB,3.4853E-03_JPRB,2.2659E-03_JPRB,6.5826E-04_JPRB/)  
+KBO( :, 1,49, 9) = (/&
+ & 4.7074E-04_JPRB,5.4614E-04_JPRB,4.4842E-04_JPRB,3.0149E-04_JPRB,1.5387E-04_JPRB/)  
+KBO( :, 2,49, 9) = (/&
+ & 7.8312E-04_JPRB,9.0147E-04_JPRB,7.3522E-04_JPRB,4.8971E-04_JPRB,2.1293E-04_JPRB/)  
+KBO( :, 3,49, 9) = (/&
+ & 1.2566E-03_JPRB,1.4457E-03_JPRB,1.1738E-03_JPRB,7.7341E-04_JPRB,2.8949E-04_JPRB/)  
+KBO( :, 4,49, 9) = (/&
+ & 1.9577E-03_JPRB,2.2532E-03_JPRB,1.8228E-03_JPRB,1.1917E-03_JPRB,3.8929E-04_JPRB/)  
+KBO( :, 5,49, 9) = (/&
+ & 2.9665E-03_JPRB,3.4229E-03_JPRB,2.7586E-03_JPRB,1.7902E-03_JPRB,5.1846E-04_JPRB/)  
+KBO( :, 1,50, 9) = (/&
+ & 3.4213E-04_JPRB,3.9935E-04_JPRB,3.2746E-04_JPRB,2.1988E-04_JPRB,1.1674E-04_JPRB/)  
+KBO( :, 2,50, 9) = (/&
+ & 5.8343E-04_JPRB,6.7437E-04_JPRB,5.4936E-04_JPRB,3.6511E-04_JPRB,1.6480E-04_JPRB/)  
+KBO( :, 3,50, 9) = (/&
+ & 9.5650E-04_JPRB,1.1046E-03_JPRB,8.9539E-04_JPRB,5.8873E-04_JPRB,2.2733E-04_JPRB/)  
+KBO( :, 4,50, 9) = (/&
+ & 1.5196E-03_JPRB,1.7582E-03_JPRB,1.4207E-03_JPRB,9.2622E-04_JPRB,3.0916E-04_JPRB/)  
+KBO( :, 5,50, 9) = (/&
+ & 2.3472E-03_JPRB,2.7261E-03_JPRB,2.1933E-03_JPRB,1.4203E-03_JPRB,4.1592E-04_JPRB/)  
+KBO( :, 1,51, 9) = (/&
+ & 2.4775E-04_JPRB,2.9121E-04_JPRB,2.3870E-04_JPRB,1.5996E-04_JPRB,8.8877E-05_JPRB/)  
+KBO( :, 2,51, 9) = (/&
+ & 4.3433E-04_JPRB,5.0395E-04_JPRB,4.0996E-04_JPRB,2.7183E-04_JPRB,1.2827E-04_JPRB/)  
+KBO( :, 3,51, 9) = (/&
+ & 7.2809E-04_JPRB,8.4314E-04_JPRB,6.8222E-04_JPRB,4.4757E-04_JPRB,1.8017E-04_JPRB/)  
+KBO( :, 4,51, 9) = (/&
+ & 1.1797E-03_JPRB,1.3708E-03_JPRB,1.1057E-03_JPRB,7.1871E-04_JPRB,2.4785E-04_JPRB/)  
+KBO( :, 5,51, 9) = (/&
+ & 1.8569E-03_JPRB,2.1693E-03_JPRB,1.7420E-03_JPRB,1.1250E-03_JPRB,3.3679E-04_JPRB/)  
+KBO( :, 1,52, 9) = (/&
+ & 1.7722E-04_JPRB,2.0977E-04_JPRB,1.7188E-04_JPRB,1.1517E-04_JPRB,6.6934E-05_JPRB/)  
+KBO( :, 2,52, 9) = (/&
+ & 3.1988E-04_JPRB,3.7329E-04_JPRB,3.0314E-04_JPRB,2.0061E-04_JPRB,9.9021E-05_JPRB/)  
+KBO( :, 3,52, 9) = (/&
+ & 5.4977E-04_JPRB,6.3853E-04_JPRB,5.1539E-04_JPRB,3.3762E-04_JPRB,1.4208E-04_JPRB/)  
+KBO( :, 4,52, 9) = (/&
+ & 9.0908E-04_JPRB,1.0602E-03_JPRB,8.5370E-04_JPRB,5.5342E-04_JPRB,1.9834E-04_JPRB/)  
+KBO( :, 5,52, 9) = (/&
+ & 1.4584E-03_JPRB,1.7130E-03_JPRB,1.3740E-03_JPRB,8.8469E-04_JPRB,2.7257E-04_JPRB/)  
+KBO( :, 1,53, 9) = (/&
+ & 1.2486E-04_JPRB,1.4876E-04_JPRB,1.2192E-04_JPRB,8.1756E-05_JPRB,4.9810E-05_JPRB/)  
+KBO( :, 2,53, 9) = (/&
+ & 2.3236E-04_JPRB,2.7326E-04_JPRB,2.2175E-04_JPRB,1.4647E-04_JPRB,7.5549E-05_JPRB/)  
+KBO( :, 3,53, 9) = (/&
+ & 4.1092E-04_JPRB,4.7878E-04_JPRB,3.8566E-04_JPRB,2.5219E-04_JPRB,1.1108E-04_JPRB/)  
+KBO( :, 4,53, 9) = (/&
+ & 6.9449E-04_JPRB,8.1233E-04_JPRB,6.5288E-04_JPRB,4.2235E-04_JPRB,1.5818E-04_JPRB/)  
+KBO( :, 5,53, 9) = (/&
+ & 1.1362E-03_JPRB,1.3415E-03_JPRB,1.0746E-03_JPRB,6.9016E-04_JPRB,2.1993E-04_JPRB/)  
+KBO( :, 1,54, 9) = (/&
+ & 8.9225E-05_JPRB,1.0698E-04_JPRB,8.7651E-05_JPRB,5.8813E-05_JPRB,3.8030E-05_JPRB/)  
+KBO( :, 2,54, 9) = (/&
+ & 1.7137E-04_JPRB,2.0293E-04_JPRB,1.6456E-04_JPRB,1.0850E-04_JPRB,5.9001E-05_JPRB/)  
+KBO( :, 3,54, 9) = (/&
+ & 3.1189E-04_JPRB,3.6460E-04_JPRB,2.9303E-04_JPRB,1.9101E-04_JPRB,8.8833E-05_JPRB/)  
+KBO( :, 4,54, 9) = (/&
+ & 5.3932E-04_JPRB,6.3180E-04_JPRB,5.0597E-04_JPRB,3.2631E-04_JPRB,1.2913E-04_JPRB/)  
+KBO( :, 5,54, 9) = (/&
+ & 8.9911E-04_JPRB,1.0637E-03_JPRB,8.5017E-04_JPRB,5.4403E-04_JPRB,1.8204E-04_JPRB/)  
+KBO( :, 1,55, 9) = (/&
+ & 6.3909E-05_JPRB,7.7058E-05_JPRB,6.3103E-05_JPRB,4.2365E-05_JPRB,2.9408E-05_JPRB/)  
+KBO( :, 2,55, 9) = (/&
+ & 1.2694E-04_JPRB,1.5118E-04_JPRB,1.2247E-04_JPRB,8.0640E-05_JPRB,4.6546E-05_JPRB/)  
+KBO( :, 3,55, 9) = (/&
+ & 2.3779E-04_JPRB,2.7922E-04_JPRB,2.2392E-04_JPRB,1.4533E-04_JPRB,7.1755E-05_JPRB/)  
+KBO( :, 4,55, 9) = (/&
+ & 4.2152E-04_JPRB,4.9417E-04_JPRB,3.9420E-04_JPRB,2.5317E-04_JPRB,1.0664E-04_JPRB/)  
+KBO( :, 5,55, 9) = (/&
+ & 7.1633E-04_JPRB,8.4754E-04_JPRB,6.7522E-04_JPRB,4.3025E-04_JPRB,1.5287E-04_JPRB/)  
+KBO( :, 1,56, 9) = (/&
+ & 4.5238E-05_JPRB,5.4873E-05_JPRB,4.4919E-05_JPRB,3.0179E-05_JPRB,2.2620E-05_JPRB/)  
+KBO( :, 2,56, 9) = (/&
+ & 9.3046E-05_JPRB,1.1152E-04_JPRB,9.0251E-05_JPRB,5.9375E-05_JPRB,3.6523E-05_JPRB/)  
+KBO( :, 3,56, 9) = (/&
+ & 1.7973E-04_JPRB,2.1224E-04_JPRB,1.6993E-04_JPRB,1.0998E-04_JPRB,5.7678E-05_JPRB/)  
+KBO( :, 4,56, 9) = (/&
+ & 3.2753E-04_JPRB,3.8449E-04_JPRB,3.0571E-04_JPRB,1.9550E-04_JPRB,8.7776E-05_JPRB/)  
+KBO( :, 5,56, 9) = (/&
+ & 5.6860E-04_JPRB,6.7252E-04_JPRB,5.3373E-04_JPRB,3.3864E-04_JPRB,1.2833E-04_JPRB/)  
+KBO( :, 1,57, 9) = (/&
+ & 3.1565E-05_JPRB,3.8561E-05_JPRB,3.1572E-05_JPRB,2.1236E-05_JPRB,1.7319E-05_JPRB/)  
+KBO( :, 2,57, 9) = (/&
+ & 6.7437E-05_JPRB,8.1368E-05_JPRB,6.5785E-05_JPRB,4.3278E-05_JPRB,2.8513E-05_JPRB/)  
+KBO( :, 3,57, 9) = (/&
+ & 1.3453E-04_JPRB,1.5983E-04_JPRB,1.2788E-04_JPRB,8.2634E-05_JPRB,4.6105E-05_JPRB/)  
+KBO( :, 4,57, 9) = (/&
+ & 2.5265E-04_JPRB,2.9731E-04_JPRB,2.3573E-04_JPRB,1.5020E-04_JPRB,7.1946E-05_JPRB/)  
+KBO( :, 5,57, 9) = (/&
+ & 4.4894E-04_JPRB,5.3119E-04_JPRB,4.1979E-04_JPRB,2.6517E-04_JPRB,1.0766E-04_JPRB/)  
+KBO( :, 1,58, 9) = (/&
+ & 2.2075E-05_JPRB,2.7134E-05_JPRB,2.2226E-05_JPRB,1.4971E-05_JPRB,1.3364E-05_JPRB/)  
+KBO( :, 2,58, 9) = (/&
+ & 4.8978E-05_JPRB,5.9454E-05_JPRB,4.8051E-05_JPRB,3.1593E-05_JPRB,2.2406E-05_JPRB/)  
+KBO( :, 3,58, 9) = (/&
+ & 1.0101E-04_JPRB,1.2083E-04_JPRB,9.6543E-05_JPRB,6.2301E-05_JPRB,3.7078E-05_JPRB/)  
+KBO( :, 4,58, 9) = (/&
+ & 1.9559E-04_JPRB,2.3110E-04_JPRB,1.8274E-04_JPRB,1.1601E-04_JPRB,5.9357E-05_JPRB/)  
+KBO( :, 5,58, 9) = (/&
+ & 3.5639E-04_JPRB,4.2210E-04_JPRB,3.3215E-04_JPRB,2.0879E-04_JPRB,9.0999E-05_JPRB/)  
+KBO( :, 1,59, 9) = (/&
+ & 1.8162E-05_JPRB,2.2362E-05_JPRB,1.8260E-05_JPRB,1.2253E-05_JPRB,1.1708E-05_JPRB/)  
+KBO( :, 2,59, 9) = (/&
+ & 4.1323E-05_JPRB,5.0285E-05_JPRB,4.0483E-05_JPRB,2.6494E-05_JPRB,1.9897E-05_JPRB/)  
+KBO( :, 3,59, 9) = (/&
+ & 8.7123E-05_JPRB,1.0455E-04_JPRB,8.3213E-05_JPRB,5.3390E-05_JPRB,3.3400E-05_JPRB/)  
+KBO( :, 4,59, 9) = (/&
+ & 1.7214E-04_JPRB,2.0391E-04_JPRB,1.6047E-04_JPRB,1.0123E-04_JPRB,5.4263E-05_JPRB/)  
+KBO( :, 5,59, 9) = (/&
+ & 3.1897E-04_JPRB,3.7825E-04_JPRB,2.9606E-04_JPRB,1.8480E-04_JPRB,8.4393E-05_JPRB/)  
+KBO( :, 1,13,10) = (/&
+ & 2.7341E-01_JPRB,2.7526E-01_JPRB,2.5183E-01_JPRB,1.9261E-01_JPRB,1.4210E+00_JPRB/)  
+KBO( :, 2,13,10) = (/&
+ & 3.8641E-01_JPRB,3.8931E-01_JPRB,3.5500E-01_JPRB,2.7363E-01_JPRB,1.5250E+00_JPRB/)  
+KBO( :, 3,13,10) = (/&
+ & 5.2101E-01_JPRB,5.2751E-01_JPRB,4.7841E-01_JPRB,3.7012E-01_JPRB,1.6242E+00_JPRB/)  
+KBO( :, 4,13,10) = (/&
+ & 6.7807E-01_JPRB,6.8631E-01_JPRB,6.2447E-01_JPRB,4.8162E-01_JPRB,1.7236E+00_JPRB/)  
+KBO( :, 5,13,10) = (/&
+ & 8.5732E-01_JPRB,8.6502E-01_JPRB,7.8632E-01_JPRB,6.0788E-01_JPRB,1.8353E+00_JPRB/)  
+KBO( :, 1,14,10) = (/&
+ & 2.6100E-01_JPRB,2.7217E-01_JPRB,2.4857E-01_JPRB,1.9099E-01_JPRB,1.3096E+00_JPRB/)  
+KBO( :, 2,14,10) = (/&
+ & 3.6662E-01_JPRB,3.8321E-01_JPRB,3.4838E-01_JPRB,2.6817E-01_JPRB,1.4048E+00_JPRB/)  
+KBO( :, 3,14,10) = (/&
+ & 4.9302E-01_JPRB,5.1421E-01_JPRB,4.6962E-01_JPRB,3.6021E-01_JPRB,1.4986E+00_JPRB/)  
+KBO( :, 4,14,10) = (/&
+ & 6.4068E-01_JPRB,6.6503E-01_JPRB,6.0806E-01_JPRB,4.6655E-01_JPRB,1.6008E+00_JPRB/)  
+KBO( :, 5,14,10) = (/&
+ & 8.0594E-01_JPRB,8.3870E-01_JPRB,7.6286E-01_JPRB,5.8739E-01_JPRB,1.6996E+00_JPRB/)  
+KBO( :, 1,15,10) = (/&
+ & 2.4538E-01_JPRB,2.6450E-01_JPRB,2.4065E-01_JPRB,1.8544E-01_JPRB,1.0991E+00_JPRB/)  
+KBO( :, 2,15,10) = (/&
+ & 3.4290E-01_JPRB,3.6880E-01_JPRB,3.3714E-01_JPRB,2.5768E-01_JPRB,1.1807E+00_JPRB/)  
+KBO( :, 3,15,10) = (/&
+ & 4.6008E-01_JPRB,4.9212E-01_JPRB,4.5111E-01_JPRB,3.4351E-01_JPRB,1.2655E+00_JPRB/)  
+KBO( :, 4,15,10) = (/&
+ & 5.9510E-01_JPRB,6.3591E-01_JPRB,5.8042E-01_JPRB,4.4347E-01_JPRB,1.3538E+00_JPRB/)  
+KBO( :, 5,15,10) = (/&
+ & 7.4431E-01_JPRB,7.9818E-01_JPRB,7.2810E-01_JPRB,5.5870E-01_JPRB,1.4415E+00_JPRB/)  
+KBO( :, 1,16,10) = (/&
+ & 2.2814E-01_JPRB,2.5112E-01_JPRB,2.2894E-01_JPRB,1.7604E-01_JPRB,8.6918E-01_JPRB/)  
+KBO( :, 2,16,10) = (/&
+ & 3.1740E-01_JPRB,3.4815E-01_JPRB,3.1813E-01_JPRB,2.4321E-01_JPRB,9.3794E-01_JPRB/)  
+KBO( :, 3,16,10) = (/&
+ & 4.2406E-01_JPRB,4.6410E-01_JPRB,4.2260E-01_JPRB,3.2211E-01_JPRB,1.0122E+00_JPRB/)  
+KBO( :, 4,16,10) = (/&
+ & 5.4520E-01_JPRB,5.9870E-01_JPRB,5.4328E-01_JPRB,4.1424E-01_JPRB,1.0849E+00_JPRB/)  
+KBO( :, 5,16,10) = (/&
+ & 6.8053E-01_JPRB,7.4608E-01_JPRB,6.8074E-01_JPRB,5.2205E-01_JPRB,1.1616E+00_JPRB/)  
+KBO( :, 1,17,10) = (/&
+ & 2.0942E-01_JPRB,2.3428E-01_JPRB,2.1300E-01_JPRB,1.6357E-01_JPRB,6.8856E-01_JPRB/)  
+KBO( :, 2,17,10) = (/&
+ & 2.9028E-01_JPRB,3.2402E-01_JPRB,2.9334E-01_JPRB,2.2459E-01_JPRB,7.5316E-01_JPRB/)  
+KBO( :, 3,17,10) = (/&
+ & 3.8521E-01_JPRB,4.3154E-01_JPRB,3.8848E-01_JPRB,2.9660E-01_JPRB,8.1712E-01_JPRB/)  
+KBO( :, 4,17,10) = (/&
+ & 4.9386E-01_JPRB,5.5280E-01_JPRB,4.9908E-01_JPRB,3.8197E-01_JPRB,8.8331E-01_JPRB/)  
+KBO( :, 5,17,10) = (/&
+ & 6.1488E-01_JPRB,6.8821E-01_JPRB,6.2452E-01_JPRB,4.7879E-01_JPRB,9.5857E-01_JPRB/)  
+KBO( :, 1,18,10) = (/&
+ & 1.9063E-01_JPRB,2.1561E-01_JPRB,1.9503E-01_JPRB,1.4897E-01_JPRB,5.8262E-01_JPRB/)  
+KBO( :, 2,18,10) = (/&
+ & 2.6234E-01_JPRB,2.9815E-01_JPRB,2.6727E-01_JPRB,2.0340E-01_JPRB,6.4437E-01_JPRB/)  
+KBO( :, 3,18,10) = (/&
+ & 3.4666E-01_JPRB,3.9448E-01_JPRB,3.5278E-01_JPRB,2.6945E-01_JPRB,7.0773E-01_JPRB/)  
+KBO( :, 4,18,10) = (/&
+ & 4.4310E-01_JPRB,5.0370E-01_JPRB,4.5197E-01_JPRB,3.4624E-01_JPRB,7.7610E-01_JPRB/)  
+KBO( :, 5,18,10) = (/&
+ & 5.4979E-01_JPRB,6.2640E-01_JPRB,5.6607E-01_JPRB,4.3269E-01_JPRB,8.4498E-01_JPRB/)  
+KBO( :, 1,19,10) = (/&
+ & 1.7161E-01_JPRB,1.9659E-01_JPRB,1.7592E-01_JPRB,1.3400E-01_JPRB,5.2315E-01_JPRB/)  
+KBO( :, 2,19,10) = (/&
+ & 2.3489E-01_JPRB,2.7003E-01_JPRB,2.4068E-01_JPRB,1.8320E-01_JPRB,5.8488E-01_JPRB/)  
+KBO( :, 3,19,10) = (/&
+ & 3.0942E-01_JPRB,3.5576E-01_JPRB,3.1712E-01_JPRB,2.4210E-01_JPRB,6.4789E-01_JPRB/)  
+KBO( :, 4,19,10) = (/&
+ & 3.9389E-01_JPRB,4.5374E-01_JPRB,4.0629E-01_JPRB,3.0999E-01_JPRB,7.1351E-01_JPRB/)  
+KBO( :, 5,19,10) = (/&
+ & 4.8891E-01_JPRB,5.6402E-01_JPRB,5.0679E-01_JPRB,3.8613E-01_JPRB,7.7670E-01_JPRB/)  
+KBO( :, 1,20,10) = (/&
+ & 1.5436E-01_JPRB,1.7849E-01_JPRB,1.5835E-01_JPRB,1.2054E-01_JPRB,4.8122E-01_JPRB/)  
+KBO( :, 2,20,10) = (/&
+ & 2.1037E-01_JPRB,2.4329E-01_JPRB,2.1594E-01_JPRB,1.6475E-01_JPRB,5.4083E-01_JPRB/)  
+KBO( :, 3,20,10) = (/&
+ & 2.7588E-01_JPRB,3.1923E-01_JPRB,2.8475E-01_JPRB,2.1683E-01_JPRB,6.0229E-01_JPRB/)  
+KBO( :, 4,20,10) = (/&
+ & 3.5179E-01_JPRB,4.0673E-01_JPRB,3.6356E-01_JPRB,2.7647E-01_JPRB,6.6389E-01_JPRB/)  
+KBO( :, 5,20,10) = (/&
+ & 4.3944E-01_JPRB,5.0591E-01_JPRB,4.5161E-01_JPRB,3.4309E-01_JPRB,7.2588E-01_JPRB/)  
+KBO( :, 1,21,10) = (/&
+ & 1.3931E-01_JPRB,1.6061E-01_JPRB,1.4210E-01_JPRB,1.0800E-01_JPRB,4.4082E-01_JPRB/)  
+KBO( :, 2,21,10) = (/&
+ & 1.8903E-01_JPRB,2.1792E-01_JPRB,1.9361E-01_JPRB,1.4691E-01_JPRB,4.9685E-01_JPRB/)  
+KBO( :, 3,21,10) = (/&
+ & 2.4836E-01_JPRB,2.8494E-01_JPRB,2.5423E-01_JPRB,1.9232E-01_JPRB,5.5604E-01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART26',1,ZHOOK_HANDLE)
+END SUBROUTINE PART26
+
+
+SUBROUTINE PART27
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART27',0,ZHOOK_HANDLE)
+
+
+KBO( :, 4,21,10) = (/&
+ & 3.1855E-01_JPRB,3.6313E-01_JPRB,3.2325E-01_JPRB,2.4463E-01_JPRB,6.1543E-01_JPRB/)  
+KBO( :, 5,21,10) = (/&
+ & 4.0034E-01_JPRB,4.5346E-01_JPRB,4.0071E-01_JPRB,3.0346E-01_JPRB,6.7562E-01_JPRB/)  
+KBO( :, 1,22,10) = (/&
+ & 1.2853E-01_JPRB,1.4730E-01_JPRB,1.3012E-01_JPRB,9.8419E-02_JPRB,3.9506E-01_JPRB/)  
+KBO( :, 2,22,10) = (/&
+ & 1.7432E-01_JPRB,1.9857E-01_JPRB,1.7621E-01_JPRB,1.3274E-01_JPRB,4.4910E-01_JPRB/)  
+KBO( :, 3,22,10) = (/&
+ & 2.3012E-01_JPRB,2.5984E-01_JPRB,2.2960E-01_JPRB,1.7295E-01_JPRB,5.0505E-01_JPRB/)  
+KBO( :, 4,22,10) = (/&
+ & 2.9716E-01_JPRB,3.3163E-01_JPRB,2.9126E-01_JPRB,2.1891E-01_JPRB,5.6304E-01_JPRB/)  
+KBO( :, 5,22,10) = (/&
+ & 3.7733E-01_JPRB,4.1497E-01_JPRB,3.6137E-01_JPRB,2.7093E-01_JPRB,6.2241E-01_JPRB/)  
+KBO( :, 1,23,10) = (/&
+ & 1.1881E-01_JPRB,1.3545E-01_JPRB,1.1944E-01_JPRB,8.9244E-02_JPRB,3.5223E-01_JPRB/)  
+KBO( :, 2,23,10) = (/&
+ & 1.6173E-01_JPRB,1.8250E-01_JPRB,1.6019E-01_JPRB,1.1960E-01_JPRB,4.0380E-01_JPRB/)  
+KBO( :, 3,23,10) = (/&
+ & 2.1531E-01_JPRB,2.3918E-01_JPRB,2.0828E-01_JPRB,1.5508E-01_JPRB,4.5685E-01_JPRB/)  
+KBO( :, 4,23,10) = (/&
+ & 2.8111E-01_JPRB,3.0634E-01_JPRB,2.6433E-01_JPRB,1.9616E-01_JPRB,5.1050E-01_JPRB/)  
+KBO( :, 5,23,10) = (/&
+ & 3.5862E-01_JPRB,3.8538E-01_JPRB,3.2913E-01_JPRB,2.4336E-01_JPRB,5.6512E-01_JPRB/)  
+KBO( :, 1,24,10) = (/&
+ & 1.1051E-01_JPRB,1.2496E-01_JPRB,1.0957E-01_JPRB,8.1032E-02_JPRB,3.1062E-01_JPRB/)  
+KBO( :, 2,24,10) = (/&
+ & 1.5172E-01_JPRB,1.6880E-01_JPRB,1.4660E-01_JPRB,1.0802E-01_JPRB,3.5601E-01_JPRB/)  
+KBO( :, 3,24,10) = (/&
+ & 2.0376E-01_JPRB,2.2212E-01_JPRB,1.9093E-01_JPRB,1.3969E-01_JPRB,4.0151E-01_JPRB/)  
+KBO( :, 4,24,10) = (/&
+ & 2.6595E-01_JPRB,2.8670E-01_JPRB,2.4290E-01_JPRB,1.7693E-01_JPRB,4.4655E-01_JPRB/)  
+KBO( :, 5,24,10) = (/&
+ & 3.3711E-01_JPRB,3.6154E-01_JPRB,3.0421E-01_JPRB,2.2016E-01_JPRB,4.9307E-01_JPRB/)  
+KBO( :, 1,25,10) = (/&
+ & 1.0420E-01_JPRB,1.1612E-01_JPRB,1.0071E-01_JPRB,7.3994E-02_JPRB,2.6769E-01_JPRB/)  
+KBO( :, 2,25,10) = (/&
+ & 1.4379E-01_JPRB,1.5740E-01_JPRB,1.3501E-01_JPRB,9.8353E-02_JPRB,3.0486E-01_JPRB/)  
+KBO( :, 3,25,10) = (/&
+ & 1.9217E-01_JPRB,2.0868E-01_JPRB,1.7650E-01_JPRB,1.2735E-01_JPRB,3.4236E-01_JPRB/)  
+KBO( :, 4,25,10) = (/&
+ & 2.4870E-01_JPRB,2.6919E-01_JPRB,2.2634E-01_JPRB,1.6171E-01_JPRB,3.8148E-01_JPRB/)  
+KBO( :, 5,25,10) = (/&
+ & 3.1377E-01_JPRB,3.3803E-01_JPRB,2.8442E-01_JPRB,2.0146E-01_JPRB,4.2272E-01_JPRB/)  
+KBO( :, 1,26,10) = (/&
+ & 9.9675E-02_JPRB,1.0913E-01_JPRB,9.3389E-02_JPRB,6.8204E-02_JPRB,2.2702E-01_JPRB/)  
+KBO( :, 2,26,10) = (/&
+ & 1.3608E-01_JPRB,1.4866E-01_JPRB,1.2587E-01_JPRB,9.0548E-02_JPRB,2.5831E-01_JPRB/)  
+KBO( :, 3,26,10) = (/&
+ & 1.7987E-01_JPRB,1.9629E-01_JPRB,1.6531E-01_JPRB,1.1761E-01_JPRB,2.9077E-01_JPRB/)  
+KBO( :, 4,26,10) = (/&
+ & 2.3141E-01_JPRB,2.5133E-01_JPRB,2.1184E-01_JPRB,1.5002E-01_JPRB,3.2521E-01_JPRB/)  
+KBO( :, 5,26,10) = (/&
+ & 2.9168E-01_JPRB,3.1498E-01_JPRB,2.6568E-01_JPRB,1.8754E-01_JPRB,3.6164E-01_JPRB/)  
+KBO( :, 1,27,10) = (/&
+ & 9.4961E-02_JPRB,1.0334E-01_JPRB,8.7374E-02_JPRB,6.3126E-02_JPRB,1.8683E-01_JPRB/)  
+KBO( :, 2,27,10) = (/&
+ & 1.2783E-01_JPRB,1.3969E-01_JPRB,1.1790E-01_JPRB,8.4112E-02_JPRB,2.1332E-01_JPRB/)  
+KBO( :, 3,27,10) = (/&
+ & 1.6762E-01_JPRB,1.8278E-01_JPRB,1.5442E-01_JPRB,1.0984E-01_JPRB,2.4142E-01_JPRB/)  
+KBO( :, 4,27,10) = (/&
+ & 2.1518E-01_JPRB,2.3329E-01_JPRB,1.9719E-01_JPRB,1.3996E-01_JPRB,2.7159E-01_JPRB/)  
+KBO( :, 5,27,10) = (/&
+ & 2.7088E-01_JPRB,2.9228E-01_JPRB,2.4666E-01_JPRB,1.7442E-01_JPRB,3.0352E-01_JPRB/)  
+KBO( :, 1,28,10) = (/&
+ & 8.9894E-02_JPRB,9.7468E-02_JPRB,8.2177E-02_JPRB,5.8889E-02_JPRB,1.5060E-01_JPRB/)  
+KBO( :, 2,28,10) = (/&
+ & 1.1988E-01_JPRB,1.3035E-01_JPRB,1.1000E-01_JPRB,7.8738E-02_JPRB,1.7287E-01_JPRB/)  
+KBO( :, 3,28,10) = (/&
+ & 1.5649E-01_JPRB,1.6957E-01_JPRB,1.4329E-01_JPRB,1.0256E-01_JPRB,1.9707E-01_JPRB/)  
+KBO( :, 4,28,10) = (/&
+ & 2.0046E-01_JPRB,2.1640E-01_JPRB,1.8266E-01_JPRB,1.3021E-01_JPRB,2.2305E-01_JPRB/)  
+KBO( :, 5,28,10) = (/&
+ & 2.5209E-01_JPRB,2.7147E-01_JPRB,2.2856E-01_JPRB,1.6182E-01_JPRB,2.5048E-01_JPRB/)  
+KBO( :, 1,29,10) = (/&
+ & 8.4975E-02_JPRB,9.1564E-02_JPRB,7.7119E-02_JPRB,5.5320E-02_JPRB,1.2031E-01_JPRB/)  
+KBO( :, 2,29,10) = (/&
+ & 1.1279E-01_JPRB,1.2154E-01_JPRB,1.0248E-01_JPRB,7.3699E-02_JPRB,1.3921E-01_JPRB/)  
+KBO( :, 3,29,10) = (/&
+ & 1.4673E-01_JPRB,1.5792E-01_JPRB,1.3309E-01_JPRB,9.5449E-02_JPRB,1.5984E-01_JPRB/)  
+KBO( :, 4,29,10) = (/&
+ & 1.8741E-01_JPRB,2.0158E-01_JPRB,1.6951E-01_JPRB,1.2082E-01_JPRB,1.8203E-01_JPRB/)  
+KBO( :, 5,29,10) = (/&
+ & 2.3506E-01_JPRB,2.5337E-01_JPRB,2.1224E-01_JPRB,1.5053E-01_JPRB,2.0549E-01_JPRB/)  
+KBO( :, 1,30,10) = (/&
+ & 8.0540E-02_JPRB,8.5979E-02_JPRB,7.2248E-02_JPRB,5.1838E-02_JPRB,9.5257E-02_JPRB/)  
+KBO( :, 2,30,10) = (/&
+ & 1.0659E-01_JPRB,1.1363E-01_JPRB,9.5542E-02_JPRB,6.8630E-02_JPRB,1.1116E-01_JPRB/)  
+KBO( :, 3,30,10) = (/&
+ & 1.3811E-01_JPRB,1.4769E-01_JPRB,1.2398E-01_JPRB,8.8651E-02_JPRB,1.2851E-01_JPRB/)  
+KBO( :, 4,30,10) = (/&
+ & 1.7576E-01_JPRB,1.8885E-01_JPRB,1.5795E-01_JPRB,1.1230E-01_JPRB,1.4704E-01_JPRB/)  
+KBO( :, 5,30,10) = (/&
+ & 2.1968E-01_JPRB,2.3750E-01_JPRB,1.9778E-01_JPRB,1.4034E-01_JPRB,1.6746E-01_JPRB/)  
+KBO( :, 1,31,10) = (/&
+ & 7.6568E-02_JPRB,8.1013E-02_JPRB,6.7877E-02_JPRB,4.8531E-02_JPRB,7.4566E-02_JPRB/)  
+KBO( :, 2,31,10) = (/&
+ & 1.0109E-01_JPRB,1.0699E-01_JPRB,8.9628E-02_JPRB,6.3973E-02_JPRB,8.7642E-02_JPRB/)  
+KBO( :, 3,31,10) = (/&
+ & 1.3062E-01_JPRB,1.3896E-01_JPRB,1.1618E-01_JPRB,8.2665E-02_JPRB,1.0209E-01_JPRB/)  
+KBO( :, 4,31,10) = (/&
+ & 1.6550E-01_JPRB,1.7774E-01_JPRB,1.4814E-01_JPRB,1.0503E-01_JPRB,1.1802E-01_JPRB/)  
+KBO( :, 5,31,10) = (/&
+ & 2.0675E-01_JPRB,2.2327E-01_JPRB,1.8555E-01_JPRB,1.3151E-01_JPRB,1.3544E-01_JPRB/)  
+KBO( :, 1,32,10) = (/&
+ & 7.2888E-02_JPRB,7.6838E-02_JPRB,6.4126E-02_JPRB,4.5495E-02_JPRB,5.8817E-02_JPRB/)  
+KBO( :, 2,32,10) = (/&
+ & 9.6267E-02_JPRB,1.0140E-01_JPRB,8.4579E-02_JPRB,5.9945E-02_JPRB,6.9773E-02_JPRB/)  
+KBO( :, 3,32,10) = (/&
+ & 1.2398E-01_JPRB,1.3170E-01_JPRB,1.0960E-01_JPRB,7.7555E-02_JPRB,8.1997E-02_JPRB/)  
+KBO( :, 4,32,10) = (/&
+ & 1.5682E-01_JPRB,1.6810E-01_JPRB,1.3960E-01_JPRB,9.8812E-02_JPRB,9.5528E-02_JPRB/)  
+KBO( :, 5,32,10) = (/&
+ & 1.9594E-01_JPRB,2.1107E-01_JPRB,1.7505E-01_JPRB,1.2416E-01_JPRB,1.1090E-01_JPRB/)  
+KBO( :, 1,33,10) = (/&
+ & 6.9635E-02_JPRB,7.3317E-02_JPRB,6.1010E-02_JPRB,4.2865E-02_JPRB,4.6660E-02_JPRB/)  
+KBO( :, 2,33,10) = (/&
+ & 9.1701E-02_JPRB,9.6759E-02_JPRB,8.0326E-02_JPRB,5.6501E-02_JPRB,5.5833E-02_JPRB/)  
+KBO( :, 3,33,10) = (/&
+ & 1.1801E-01_JPRB,1.2540E-01_JPRB,1.0406E-01_JPRB,7.3316E-02_JPRB,6.6138E-02_JPRB/)  
+KBO( :, 4,33,10) = (/&
+ & 1.4953E-01_JPRB,1.5985E-01_JPRB,1.3238E-01_JPRB,9.3601E-02_JPRB,7.7808E-02_JPRB/)  
+KBO( :, 5,33,10) = (/&
+ & 1.8727E-01_JPRB,2.0108E-01_JPRB,1.6621E-01_JPRB,1.1789E-01_JPRB,9.1029E-02_JPRB/)  
+KBO( :, 1,34,10) = (/&
+ & 6.6051E-02_JPRB,6.9606E-02_JPRB,5.7793E-02_JPRB,4.0300E-02_JPRB,3.8390E-02_JPRB/)  
+KBO( :, 2,34,10) = (/&
+ & 8.6850E-02_JPRB,9.2010E-02_JPRB,7.6104E-02_JPRB,5.3129E-02_JPRB,4.6300E-02_JPRB/)  
+KBO( :, 3,34,10) = (/&
+ & 1.1190E-01_JPRB,1.1902E-01_JPRB,9.8376E-02_JPRB,6.9059E-02_JPRB,5.5243E-02_JPRB/)  
+KBO( :, 4,34,10) = (/&
+ & 1.4227E-01_JPRB,1.5193E-01_JPRB,1.2534E-01_JPRB,8.8424E-02_JPRB,6.5503E-02_JPRB/)  
+KBO( :, 5,34,10) = (/&
+ & 1.7893E-01_JPRB,1.9164E-01_JPRB,1.5780E-01_JPRB,1.1159E-01_JPRB,7.7108E-02_JPRB/)  
+KBO( :, 1,35,10) = (/&
+ & 6.1061E-02_JPRB,6.4589E-02_JPRB,5.3472E-02_JPRB,3.7076E-02_JPRB,3.0936E-02_JPRB/)  
+KBO( :, 2,35,10) = (/&
+ & 8.0413E-02_JPRB,8.5518E-02_JPRB,7.0631E-02_JPRB,4.9033E-02_JPRB,3.7630E-02_JPRB/)  
+KBO( :, 3,35,10) = (/&
+ & 1.0418E-01_JPRB,1.1098E-01_JPRB,9.1376E-02_JPRB,6.3892E-02_JPRB,4.5348E-02_JPRB/)  
+KBO( :, 4,35,10) = (/&
+ & 1.3326E-01_JPRB,1.4218E-01_JPRB,1.1684E-01_JPRB,8.2004E-02_JPRB,5.4177E-02_JPRB/)  
+KBO( :, 5,35,10) = (/&
+ & 1.6818E-01_JPRB,1.8014E-01_JPRB,1.4791E-01_JPRB,1.0383E-01_JPRB,6.4352E-02_JPRB/)  
+KBO( :, 1,36,10) = (/&
+ & 5.4859E-02_JPRB,5.8269E-02_JPRB,4.8182E-02_JPRB,3.3253E-02_JPRB,2.4204E-02_JPRB/)  
+KBO( :, 2,36,10) = (/&
+ & 7.2626E-02_JPRB,7.7491E-02_JPRB,6.3949E-02_JPRB,4.4186E-02_JPRB,2.9747E-02_JPRB/)  
+KBO( :, 3,36,10) = (/&
+ & 9.4867E-02_JPRB,1.0121E-01_JPRB,8.3126E-02_JPRB,5.7761E-02_JPRB,3.6183E-02_JPRB/)  
+KBO( :, 4,36,10) = (/&
+ & 1.2215E-01_JPRB,1.3045E-01_JPRB,1.0693E-01_JPRB,7.4445E-02_JPRB,4.3693E-02_JPRB/)  
+KBO( :, 5,36,10) = (/&
+ & 1.5514E-01_JPRB,1.6646E-01_JPRB,1.3613E-01_JPRB,9.4760E-02_JPRB,5.2444E-02_JPRB/)  
+KBO( :, 1,37,10) = (/&
+ & 4.7230E-02_JPRB,5.0376E-02_JPRB,4.1606E-02_JPRB,2.8650E-02_JPRB,1.9576E-02_JPRB/)  
+KBO( :, 2,37,10) = (/&
+ & 6.3162E-02_JPRB,6.7559E-02_JPRB,5.5737E-02_JPRB,3.8366E-02_JPRB,2.4307E-02_JPRB/)  
+KBO( :, 3,37,10) = (/&
+ & 8.3382E-02_JPRB,8.9100E-02_JPRB,7.3096E-02_JPRB,5.0404E-02_JPRB,2.9845E-02_JPRB/)  
+KBO( :, 4,37,10) = (/&
+ & 1.0831E-01_JPRB,1.1578E-01_JPRB,9.4747E-02_JPRB,6.5399E-02_JPRB,3.6334E-02_JPRB/)  
+KBO( :, 5,37,10) = (/&
+ & 1.3872E-01_JPRB,1.4912E-01_JPRB,1.2153E-01_JPRB,8.3890E-02_JPRB,4.3970E-02_JPRB/)  
+KBO( :, 1,38,10) = (/&
+ & 4.0594E-02_JPRB,4.3482E-02_JPRB,3.5882E-02_JPRB,2.4652E-02_JPRB,1.5796E-02_JPRB/)  
+KBO( :, 2,38,10) = (/&
+ & 5.4893E-02_JPRB,5.8859E-02_JPRB,4.8535E-02_JPRB,3.3342E-02_JPRB,1.9838E-02_JPRB/)  
+KBO( :, 3,38,10) = (/&
+ & 7.3270E-02_JPRB,7.8442E-02_JPRB,6.4299E-02_JPRB,4.4057E-02_JPRB,2.4587E-02_JPRB/)  
+KBO( :, 4,38,10) = (/&
+ & 9.6131E-02_JPRB,1.0297E-01_JPRB,8.4062E-02_JPRB,5.7542E-02_JPRB,3.0194E-02_JPRB/)  
+KBO( :, 5,38,10) = (/&
+ & 1.2425E-01_JPRB,1.3371E-01_JPRB,1.0871E-01_JPRB,7.4376E-02_JPRB,3.6826E-02_JPRB/)  
+KBO( :, 1,39,10) = (/&
+ & 3.4960E-02_JPRB,3.7584E-02_JPRB,3.1001E-02_JPRB,2.1253E-02_JPRB,1.2659E-02_JPRB/)  
+KBO( :, 2,39,10) = (/&
+ & 4.7796E-02_JPRB,5.1412E-02_JPRB,4.2333E-02_JPRB,2.9006E-02_JPRB,1.6073E-02_JPRB/)  
+KBO( :, 3,39,10) = (/&
+ & 6.4510E-02_JPRB,6.9244E-02_JPRB,5.6690E-02_JPRB,3.8671E-02_JPRB,2.0130E-02_JPRB/)  
+KBO( :, 4,39,10) = (/&
+ & 8.5561E-02_JPRB,9.1904E-02_JPRB,7.4800E-02_JPRB,5.0873E-02_JPRB,2.4941E-02_JPRB/)  
+KBO( :, 5,39,10) = (/&
+ & 1.1163E-01_JPRB,1.2022E-01_JPRB,9.7628E-02_JPRB,6.6235E-02_JPRB,3.0668E-02_JPRB/)  
+KBO( :, 1,40,10) = (/&
+ & 2.9268E-02_JPRB,3.1482E-02_JPRB,2.5935E-02_JPRB,1.7721E-02_JPRB,1.0217E-02_JPRB/)  
+KBO( :, 2,40,10) = (/&
+ & 4.0459E-02_JPRB,4.3586E-02_JPRB,3.5852E-02_JPRB,2.4486E-02_JPRB,1.3110E-02_JPRB/)  
+KBO( :, 3,40,10) = (/&
+ & 5.5229E-02_JPRB,5.9449E-02_JPRB,4.8588E-02_JPRB,3.3038E-02_JPRB,1.6586E-02_JPRB/)  
+KBO( :, 4,40,10) = (/&
+ & 7.4117E-02_JPRB,7.9872E-02_JPRB,6.4885E-02_JPRB,4.3907E-02_JPRB,2.0725E-02_JPRB/)  
+KBO( :, 5,40,10) = (/&
+ & 9.7865E-02_JPRB,1.0550E-01_JPRB,8.5568E-02_JPRB,5.7643E-02_JPRB,2.5662E-02_JPRB/)  
+KBO( :, 1,41,10) = (/&
+ & 2.4397E-02_JPRB,2.6231E-02_JPRB,2.1586E-02_JPRB,1.4682E-02_JPRB,8.2353E-03_JPRB/)  
+KBO( :, 2,41,10) = (/&
+ & 3.4139E-02_JPRB,3.6786E-02_JPRB,3.0230E-02_JPRB,2.0568E-02_JPRB,1.0674E-02_JPRB/)  
+KBO( :, 3,41,10) = (/&
+ & 4.7106E-02_JPRB,5.0858E-02_JPRB,4.1459E-02_JPRB,2.8115E-02_JPRB,1.3635E-02_JPRB/)  
+KBO( :, 4,41,10) = (/&
+ & 6.4000E-02_JPRB,6.9180E-02_JPRB,5.6062E-02_JPRB,3.7799E-02_JPRB,1.7204E-02_JPRB/)  
+KBO( :, 5,41,10) = (/&
+ & 8.5517E-02_JPRB,9.2400E-02_JPRB,7.4782E-02_JPRB,5.0099E-02_JPRB,2.1450E-02_JPRB/)  
+KBO( :, 1,42,10) = (/&
+ & 2.0268E-02_JPRB,2.1845E-02_JPRB,1.7956E-02_JPRB,1.2140E-02_JPRB,6.5991E-03_JPRB/)  
+KBO( :, 2,42,10) = (/&
+ & 2.8789E-02_JPRB,3.1021E-02_JPRB,2.5467E-02_JPRB,1.7246E-02_JPRB,8.6477E-03_JPRB/)  
+KBO( :, 3,42,10) = (/&
+ & 4.0194E-02_JPRB,4.3474E-02_JPRB,3.5363E-02_JPRB,2.3902E-02_JPRB,1.1154E-02_JPRB/)  
+KBO( :, 4,42,10) = (/&
+ & 5.5258E-02_JPRB,5.9919E-02_JPRB,4.8429E-02_JPRB,3.2536E-02_JPRB,1.4210E-02_JPRB/)  
+KBO( :, 5,42,10) = (/&
+ & 7.4696E-02_JPRB,8.0962E-02_JPRB,6.5393E-02_JPRB,4.3618E-02_JPRB,1.7849E-02_JPRB/)  
+KBO( :, 1,43,10) = (/&
+ & 1.6426E-02_JPRB,1.7804E-02_JPRB,1.4613E-02_JPRB,9.8050E-03_JPRB,5.2617E-03_JPRB/)  
+KBO( :, 2,43,10) = (/&
+ & 2.3747E-02_JPRB,2.5630E-02_JPRB,2.1011E-02_JPRB,1.4160E-02_JPRB,6.9847E-03_JPRB/)  
+KBO( :, 3,43,10) = (/&
+ & 3.3653E-02_JPRB,3.6412E-02_JPRB,2.9592E-02_JPRB,1.9925E-02_JPRB,9.1040E-03_JPRB/)  
+KBO( :, 4,43,10) = (/&
+ & 4.6868E-02_JPRB,5.0938E-02_JPRB,4.1108E-02_JPRB,2.7526E-02_JPRB,1.1710E-02_JPRB/)  
+KBO( :, 5,43,10) = (/&
+ & 6.4129E-02_JPRB,6.9760E-02_JPRB,5.6238E-02_JPRB,3.7383E-02_JPRB,1.4823E-02_JPRB/)  
+KBO( :, 1,44,10) = (/&
+ & 1.3100E-02_JPRB,1.4316E-02_JPRB,1.1742E-02_JPRB,7.8185E-03_JPRB,4.1731E-03_JPRB/)  
+KBO( :, 2,44,10) = (/&
+ & 1.9306E-02_JPRB,2.0946E-02_JPRB,1.7130E-02_JPRB,1.1488E-02_JPRB,5.6253E-03_JPRB/)  
+KBO( :, 3,44,10) = (/&
+ & 2.7839E-02_JPRB,3.0159E-02_JPRB,2.4497E-02_JPRB,1.6420E-02_JPRB,7.4177E-03_JPRB/)  
+KBO( :, 4,44,10) = (/&
+ & 3.9351E-02_JPRB,4.2845E-02_JPRB,3.4542E-02_JPRB,2.3036E-02_JPRB,9.6323E-03_JPRB/)  
+KBO( :, 5,44,10) = (/&
+ & 5.4545E-02_JPRB,5.9565E-02_JPRB,4.7916E-02_JPRB,3.1766E-02_JPRB,1.2297E-02_JPRB/)  
+KBO( :, 1,45,10) = (/&
+ & 1.0365E-02_JPRB,1.1432E-02_JPRB,9.3767E-03_JPRB,6.2117E-03_JPRB,3.2839E-03_JPRB/)  
+KBO( :, 2,45,10) = (/&
+ & 1.5589E-02_JPRB,1.7063E-02_JPRB,1.3930E-02_JPRB,9.2859E-03_JPRB,4.5005E-03_JPRB/)  
+KBO( :, 3,45,10) = (/&
+ & 2.2910E-02_JPRB,2.4924E-02_JPRB,2.0227E-02_JPRB,1.3494E-02_JPRB,6.0165E-03_JPRB/)  
+KBO( :, 4,45,10) = (/&
+ & 3.2938E-02_JPRB,3.5933E-02_JPRB,2.8944E-02_JPRB,1.9215E-02_JPRB,7.8901E-03_JPRB/)  
+KBO( :, 5,45,10) = (/&
+ & 4.6288E-02_JPRB,5.0739E-02_JPRB,4.0755E-02_JPRB,2.6930E-02_JPRB,1.0163E-02_JPRB/)  
+KBO( :, 1,46,10) = (/&
+ & 8.0611E-03_JPRB,8.9687E-03_JPRB,7.3616E-03_JPRB,4.8649E-03_JPRB,2.5630E-03_JPRB/)  
+KBO( :, 2,46,10) = (/&
+ & 1.2384E-02_JPRB,1.3700E-02_JPRB,1.1187E-02_JPRB,7.4141E-03_JPRB,3.5736E-03_JPRB/)  
+KBO( :, 3,46,10) = (/&
+ & 1.8589E-02_JPRB,2.0376E-02_JPRB,1.6514E-02_JPRB,1.0949E-02_JPRB,4.8546E-03_JPRB/)  
+KBO( :, 4,46,10) = (/&
+ & 2.7228E-02_JPRB,2.9798E-02_JPRB,2.3986E-02_JPRB,1.5867E-02_JPRB,6.4395E-03_JPRB/)  
+KBO( :, 5,46,10) = (/&
+ & 3.8907E-02_JPRB,4.2772E-02_JPRB,3.4328E-02_JPRB,2.2598E-02_JPRB,8.3793E-03_JPRB/)  
+KBO( :, 1,47,10) = (/&
+ & 6.0942E-03_JPRB,6.8373E-03_JPRB,5.6151E-03_JPRB,3.7108E-03_JPRB,1.9874E-03_JPRB/)  
+KBO( :, 2,47,10) = (/&
+ & 9.5830E-03_JPRB,1.0720E-02_JPRB,8.7687E-03_JPRB,5.7830E-03_JPRB,2.8149E-03_JPRB/)  
+KBO( :, 3,47,10) = (/&
+ & 1.4719E-02_JPRB,1.6286E-02_JPRB,1.3206E-02_JPRB,8.7082E-03_JPRB,3.8989E-03_JPRB/)  
+KBO( :, 4,47,10) = (/&
+ & 2.2034E-02_JPRB,2.4248E-02_JPRB,1.9496E-02_JPRB,1.2839E-02_JPRB,5.2464E-03_JPRB/)  
+KBO( :, 5,47,10) = (/&
+ & 3.2068E-02_JPRB,3.5385E-02_JPRB,2.8366E-02_JPRB,1.8611E-02_JPRB,6.9087E-03_JPRB/)  
+KBO( :, 1,48,10) = (/&
+ & 4.5510E-03_JPRB,5.1515E-03_JPRB,4.2286E-03_JPRB,2.7938E-03_JPRB,1.5324E-03_JPRB/)  
+KBO( :, 2,48,10) = (/&
+ & 7.3293E-03_JPRB,8.3022E-03_JPRB,6.7958E-03_JPRB,4.4708E-03_JPRB,2.2018E-03_JPRB/)  
+KBO( :, 3,48,10) = (/&
+ & 1.1532E-02_JPRB,1.2909E-02_JPRB,1.0485E-02_JPRB,6.8896E-03_JPRB,3.1032E-03_JPRB/)  
+KBO( :, 4,48,10) = (/&
+ & 1.7669E-02_JPRB,1.9619E-02_JPRB,1.5768E-02_JPRB,1.0334E-02_JPRB,4.2526E-03_JPRB/)  
+KBO( :, 5,48,10) = (/&
+ & 2.6263E-02_JPRB,2.9134E-02_JPRB,2.3325E-02_JPRB,1.5244E-02_JPRB,5.6768E-03_JPRB/)  
+KBO( :, 1,49,10) = (/&
+ & 3.3560E-03_JPRB,3.8327E-03_JPRB,3.1391E-03_JPRB,2.0743E-03_JPRB,1.1802E-03_JPRB/)  
+KBO( :, 2,49,10) = (/&
+ & 5.5342E-03_JPRB,6.3542E-03_JPRB,5.1981E-03_JPRB,3.4211E-03_JPRB,1.7096E-03_JPRB/)  
+KBO( :, 3,49,10) = (/&
+ & 8.9294E-03_JPRB,1.0143E-02_JPRB,8.2468E-03_JPRB,5.4196E-03_JPRB,2.4470E-03_JPRB/)  
+KBO( :, 4,49,10) = (/&
+ & 1.4024E-02_JPRB,1.5765E-02_JPRB,1.2684E-02_JPRB,8.2734E-03_JPRB,3.4129E-03_JPRB/)  
+KBO( :, 5,49,10) = (/&
+ & 2.1352E-02_JPRB,2.3866E-02_JPRB,1.9075E-02_JPRB,1.2411E-02_JPRB,4.6279E-03_JPRB/)  
+KBO( :, 1,50,10) = (/&
+ & 2.4929E-03_JPRB,2.8632E-03_JPRB,2.3379E-03_JPRB,1.5440E-03_JPRB,9.3225E-04_JPRB/)  
+KBO( :, 2,50,10) = (/&
+ & 4.2029E-03_JPRB,4.8752E-03_JPRB,3.9805E-03_JPRB,2.6198E-03_JPRB,1.3576E-03_JPRB/)  
+KBO( :, 3,50,10) = (/&
+ & 6.9325E-03_JPRB,7.9925E-03_JPRB,6.4974E-03_JPRB,4.2674E-03_JPRB,1.9613E-03_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART27',1,ZHOOK_HANDLE)
+END SUBROUTINE PART27
+
+
+SUBROUTINE PART28
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART28',0,ZHOOK_HANDLE)
+
+
+KBO( :, 4,50,10) = (/&
+ & 1.1158E-02_JPRB,1.2709E-02_JPRB,1.0229E-02_JPRB,6.6644E-03_JPRB,2.7832E-03_JPRB/)  
+KBO( :, 5,50,10) = (/&
+ & 1.7403E-02_JPRB,1.9642E-02_JPRB,1.5691E-02_JPRB,1.0155E-02_JPRB,3.8333E-03_JPRB/)  
+KBO( :, 1,51,10) = (/&
+ & 1.8532E-03_JPRB,2.1364E-03_JPRB,1.7376E-03_JPRB,1.1454E-03_JPRB,7.4878E-04_JPRB/)  
+KBO( :, 2,51,10) = (/&
+ & 3.1888E-03_JPRB,3.7291E-03_JPRB,3.0357E-03_JPRB,1.9945E-03_JPRB,1.0922E-03_JPRB/)  
+KBO( :, 3,51,10) = (/&
+ & 5.3638E-03_JPRB,6.2780E-03_JPRB,5.0968E-03_JPRB,3.3419E-03_JPRB,1.5858E-03_JPRB/)  
+KBO( :, 4,51,10) = (/&
+ & 8.8501E-03_JPRB,1.0219E-02_JPRB,8.2277E-03_JPRB,5.3639E-03_JPRB,2.2832E-03_JPRB/)  
+KBO( :, 5,51,10) = (/&
+ & 1.4149E-02_JPRB,1.6146E-02_JPRB,1.2912E-02_JPRB,8.3171E-03_JPRB,3.2000E-03_JPRB/)  
+KBO( :, 1,52,10) = (/&
+ & 1.3628E-03_JPRB,1.5783E-03_JPRB,1.2808E-03_JPRB,8.4055E-04_JPRB,6.0012E-04_JPRB/)  
+KBO( :, 2,52,10) = (/&
+ & 2.4017E-03_JPRB,2.8236E-03_JPRB,2.2905E-03_JPRB,1.5011E-03_JPRB,8.8126E-04_JPRB/)  
+KBO( :, 3,52,10) = (/&
+ & 4.1169E-03_JPRB,4.8815E-03_JPRB,3.9607E-03_JPRB,2.5906E-03_JPRB,1.2847E-03_JPRB/)  
+KBO( :, 4,52,10) = (/&
+ & 6.9536E-03_JPRB,8.1559E-03_JPRB,6.5664E-03_JPRB,4.2815E-03_JPRB,1.8638E-03_JPRB/)  
+KBO( :, 5,52,10) = (/&
+ & 1.1409E-02_JPRB,1.3194E-02_JPRB,1.0553E-02_JPRB,6.7875E-03_JPRB,2.6534E-03_JPRB/)  
+KBO( :, 1,53,10) = (/&
+ & 9.8606E-04_JPRB,1.1540E-03_JPRB,9.3384E-04_JPRB,6.1040E-04_JPRB,4.7709E-04_JPRB/)  
+KBO( :, 2,53,10) = (/&
+ & 1.7920E-03_JPRB,2.1145E-03_JPRB,1.7063E-03_JPRB,1.1169E-03_JPRB,7.1312E-04_JPRB/)  
+KBO( :, 3,53,10) = (/&
+ & 3.1294E-03_JPRB,3.7546E-03_JPRB,3.0421E-03_JPRB,1.9861E-03_JPRB,1.0419E-03_JPRB/)  
+KBO( :, 4,53,10) = (/&
+ & 5.4059E-03_JPRB,6.4522E-03_JPRB,5.1921E-03_JPRB,3.3816E-03_JPRB,1.5130E-03_JPRB/)  
+KBO( :, 5,53,10) = (/&
+ & 9.1118E-03_JPRB,1.0696E-02_JPRB,8.5534E-03_JPRB,5.5066E-03_JPRB,2.1843E-03_JPRB/)  
+KBO( :, 1,54,10) = (/&
+ & 7.2513E-04_JPRB,8.5732E-04_JPRB,6.9183E-04_JPRB,4.5039E-04_JPRB,3.8769E-04_JPRB/)  
+KBO( :, 2,54,10) = (/&
+ & 1.3639E-03_JPRB,1.6067E-03_JPRB,1.2902E-03_JPRB,8.3972E-04_JPRB,5.9341E-04_JPRB/)  
+KBO( :, 3,54,10) = (/&
+ & 2.4214E-03_JPRB,2.9176E-03_JPRB,2.3545E-03_JPRB,1.5328E-03_JPRB,8.7214E-04_JPRB/)  
+KBO( :, 4,54,10) = (/&
+ & 4.2490E-03_JPRB,5.1414E-03_JPRB,4.1362E-03_JPRB,2.6851E-03_JPRB,1.2710E-03_JPRB/)  
+KBO( :, 5,54,10) = (/&
+ & 7.3277E-03_JPRB,8.7352E-03_JPRB,6.9866E-03_JPRB,4.4974E-03_JPRB,1.8463E-03_JPRB/)  
+KBO( :, 1,55,10) = (/&
+ & 5.3536E-04_JPRB,6.3819E-04_JPRB,5.1429E-04_JPRB,3.3384E-04_JPRB,3.1787E-04_JPRB/)  
+KBO( :, 2,55,10) = (/&
+ & 1.0434E-03_JPRB,1.2286E-03_JPRB,9.8197E-04_JPRB,6.3464E-04_JPRB,5.0051E-04_JPRB/)  
+KBO( :, 3,55,10) = (/&
+ & 1.8896E-03_JPRB,2.2759E-03_JPRB,1.8255E-03_JPRB,1.1820E-03_JPRB,7.4689E-04_JPRB/)  
+KBO( :, 4,55,10) = (/&
+ & 3.3543E-03_JPRB,4.1000E-03_JPRB,3.2922E-03_JPRB,2.1289E-03_JPRB,1.0910E-03_JPRB/)  
+KBO( :, 5,55,10) = (/&
+ & 5.8957E-03_JPRB,7.1360E-03_JPRB,5.7072E-03_JPRB,3.6721E-03_JPRB,1.5883E-03_JPRB/)  
+KBO( :, 1,56,10) = (/&
+ & 3.9041E-04_JPRB,4.6983E-04_JPRB,3.7827E-04_JPRB,2.4495E-04_JPRB,2.5822E-04_JPRB/)  
+KBO( :, 2,56,10) = (/&
+ & 7.9041E-04_JPRB,9.3554E-04_JPRB,7.4444E-04_JPRB,4.7743E-04_JPRB,4.2098E-04_JPRB/)  
+KBO( :, 3,56,10) = (/&
+ & 1.4711E-03_JPRB,1.7706E-03_JPRB,1.4085E-03_JPRB,9.0462E-04_JPRB,6.4135E-04_JPRB/)  
+KBO( :, 4,56,10) = (/&
+ & 2.6410E-03_JPRB,3.2487E-03_JPRB,2.5994E-03_JPRB,1.6753E-03_JPRB,9.4189E-04_JPRB/)  
+KBO( :, 5,56,10) = (/&
+ & 4.7180E-03_JPRB,5.7942E-03_JPRB,4.6339E-03_JPRB,2.9753E-03_JPRB,1.3744E-03_JPRB/)  
+KBO( :, 1,57,10) = (/&
+ & 2.8112E-04_JPRB,3.4134E-04_JPRB,2.7460E-04_JPRB,1.7739E-04_JPRB,2.0810E-04_JPRB/)  
+KBO( :, 2,57,10) = (/&
+ & 5.9233E-04_JPRB,7.0612E-04_JPRB,5.6036E-04_JPRB,3.5724E-04_JPRB,3.5218E-04_JPRB/)  
+KBO( :, 3,57,10) = (/&
+ & 1.1404E-03_JPRB,1.3698E-03_JPRB,1.0818E-03_JPRB,6.8867E-04_JPRB,5.5095E-04_JPRB/)  
+KBO( :, 4,57,10) = (/&
+ & 2.0756E-03_JPRB,2.5598E-03_JPRB,2.0389E-03_JPRB,1.3071E-03_JPRB,8.1947E-04_JPRB/)  
+KBO( :, 5,57,10) = (/&
+ & 3.7565E-03_JPRB,4.6715E-03_JPRB,3.7372E-03_JPRB,2.3897E-03_JPRB,1.1970E-03_JPRB/)  
+KBO( :, 1,58,10) = (/&
+ & 2.0287E-04_JPRB,2.4841E-04_JPRB,1.9950E-04_JPRB,1.2870E-04_JPRB,1.6873E-04_JPRB/)  
+KBO( :, 2,58,10) = (/&
+ & 4.4472E-04_JPRB,5.3470E-04_JPRB,4.2292E-04_JPRB,2.6899E-04_JPRB,2.9556E-04_JPRB/)  
+KBO( :, 3,58,10) = (/&
+ & 8.8909E-04_JPRB,1.0668E-03_JPRB,8.3669E-04_JPRB,5.2917E-04_JPRB,4.7698E-04_JPRB/)  
+KBO( :, 4,58,10) = (/&
+ & 1.6472E-03_JPRB,2.0319E-03_JPRB,1.6079E-03_JPRB,1.0235E-03_JPRB,7.2222E-04_JPRB/)  
+KBO( :, 5,58,10) = (/&
+ & 3.0142E-03_JPRB,3.7808E-03_JPRB,3.0200E-03_JPRB,1.9230E-03_JPRB,1.0578E-03_JPRB/)  
+KBO( :, 1,59,10) = (/&
+ & 1.7264E-04_JPRB,2.1252E-04_JPRB,1.6979E-04_JPRB,1.0877E-04_JPRB,1.5535E-04_JPRB/)  
+KBO( :, 2,59,10) = (/&
+ & 3.8844E-04_JPRB,4.6892E-04_JPRB,3.6892E-04_JPRB,2.3285E-04_JPRB,2.7770E-04_JPRB/)  
+KBO( :, 3,59,10) = (/&
+ & 7.9313E-04_JPRB,9.5358E-04_JPRB,7.4242E-04_JPRB,4.6490E-04_JPRB,4.5611E-04_JPRB/)  
+KBO( :, 4,59,10) = (/&
+ & 1.4888E-03_JPRB,1.8362E-03_JPRB,1.4437E-03_JPRB,9.0907E-04_JPRB,6.9878E-04_JPRB/)  
+KBO( :, 5,59,10) = (/&
+ & 2.7412E-03_JPRB,3.4444E-03_JPRB,2.7403E-03_JPRB,1.7293E-03_JPRB,1.0280E-03_JPRB/)  
+KBO( :, 1,13,11) = (/&
+ & 4.6582E-01_JPRB,4.3126E-01_JPRB,3.9148E-01_JPRB,2.9782E-01_JPRB,2.0038E+00_JPRB/)  
+KBO( :, 2,13,11) = (/&
+ & 6.6015E-01_JPRB,6.1362E-01_JPRB,5.5564E-01_JPRB,4.1997E-01_JPRB,2.1506E+00_JPRB/)  
+KBO( :, 3,13,11) = (/&
+ & 8.9186E-01_JPRB,8.3255E-01_JPRB,7.5032E-01_JPRB,5.6975E-01_JPRB,2.2970E+00_JPRB/)  
+KBO( :, 4,13,11) = (/&
+ & 1.1586E+00_JPRB,1.0869E+00_JPRB,9.7359E-01_JPRB,7.4196E-01_JPRB,2.4271E+00_JPRB/)  
+KBO( :, 5,13,11) = (/&
+ & 1.4563E+00_JPRB,1.3761E+00_JPRB,1.2287E+00_JPRB,9.3624E-01_JPRB,2.5537E+00_JPRB/)  
+KBO( :, 1,14,11) = (/&
+ & 4.6622E-01_JPRB,4.4694E-01_JPRB,4.0621E-01_JPRB,3.0517E-01_JPRB,1.9239E+00_JPRB/)  
+KBO( :, 2,14,11) = (/&
+ & 6.5626E-01_JPRB,6.3097E-01_JPRB,5.7029E-01_JPRB,4.3017E-01_JPRB,2.0659E+00_JPRB/)  
+KBO( :, 3,14,11) = (/&
+ & 8.8153E-01_JPRB,8.5029E-01_JPRB,7.6391E-01_JPRB,5.8015E-01_JPRB,2.1968E+00_JPRB/)  
+KBO( :, 4,14,11) = (/&
+ & 1.1396E+00_JPRB,1.1043E+00_JPRB,9.8836E-01_JPRB,7.5006E-01_JPRB,2.3180E+00_JPRB/)  
+KBO( :, 5,14,11) = (/&
+ & 1.4290E+00_JPRB,1.3870E+00_JPRB,1.2407E+00_JPRB,9.4051E-01_JPRB,2.4548E+00_JPRB/)  
+KBO( :, 1,15,11) = (/&
+ & 4.5814E-01_JPRB,4.5398E-01_JPRB,4.1054E-01_JPRB,3.0839E-01_JPRB,1.6835E+00_JPRB/)  
+KBO( :, 2,15,11) = (/&
+ & 6.4005E-01_JPRB,6.3563E-01_JPRB,5.7202E-01_JPRB,4.3265E-01_JPRB,1.8044E+00_JPRB/)  
+KBO( :, 3,15,11) = (/&
+ & 8.5481E-01_JPRB,8.5188E-01_JPRB,7.6325E-01_JPRB,5.7776E-01_JPRB,1.9216E+00_JPRB/)  
+KBO( :, 4,15,11) = (/&
+ & 1.1011E+00_JPRB,1.0984E+00_JPRB,9.8470E-01_JPRB,7.4242E-01_JPRB,2.0480E+00_JPRB/)  
+KBO( :, 5,15,11) = (/&
+ & 1.3789E+00_JPRB,1.3707E+00_JPRB,1.2263E+00_JPRB,9.2692E-01_JPRB,2.1662E+00_JPRB/)  
+KBO( :, 1,16,11) = (/&
+ & 4.3936E-01_JPRB,4.5055E-01_JPRB,4.0610E-01_JPRB,3.0607E-01_JPRB,1.3891E+00_JPRB/)  
+KBO( :, 2,16,11) = (/&
+ & 6.0980E-01_JPRB,6.2580E-01_JPRB,5.6205E-01_JPRB,4.2411E-01_JPRB,1.4937E+00_JPRB/)  
+KBO( :, 3,16,11) = (/&
+ & 8.1051E-01_JPRB,8.3041E-01_JPRB,7.4762E-01_JPRB,5.6219E-01_JPRB,1.6024E+00_JPRB/)  
+KBO( :, 4,16,11) = (/&
+ & 1.0423E+00_JPRB,1.0629E+00_JPRB,9.5636E-01_JPRB,7.1926E-01_JPRB,1.7074E+00_JPRB/)  
+KBO( :, 5,16,11) = (/&
+ & 1.3012E+00_JPRB,1.3270E+00_JPRB,1.1867E+00_JPRB,8.9662E-01_JPRB,1.8065E+00_JPRB/)  
+KBO( :, 1,17,11) = (/&
+ & 4.1226E-01_JPRB,4.3606E-01_JPRB,3.9203E-01_JPRB,2.9614E-01_JPRB,1.1476E+00_JPRB/)  
+KBO( :, 2,17,11) = (/&
+ & 5.6889E-01_JPRB,6.0078E-01_JPRB,5.4100E-01_JPRB,4.0607E-01_JPRB,1.2378E+00_JPRB/)  
+KBO( :, 3,17,11) = (/&
+ & 7.5475E-01_JPRB,7.9223E-01_JPRB,7.1421E-01_JPRB,5.3429E-01_JPRB,1.3294E+00_JPRB/)  
+KBO( :, 4,17,11) = (/&
+ & 9.6747E-01_JPRB,1.0124E+00_JPRB,9.0807E-01_JPRB,6.8194E-01_JPRB,1.4124E+00_JPRB/)  
+KBO( :, 5,17,11) = (/&
+ & 1.1994E+00_JPRB,1.2593E+00_JPRB,1.1261E+00_JPRB,8.5185E-01_JPRB,1.4955E+00_JPRB/)  
+KBO( :, 1,18,11) = (/&
+ & 3.8064E-01_JPRB,4.1279E-01_JPRB,3.7089E-01_JPRB,2.7981E-01_JPRB,9.7150E-01_JPRB/)  
+KBO( :, 2,18,11) = (/&
+ & 5.2358E-01_JPRB,5.6462E-01_JPRB,5.0829E-01_JPRB,3.8105E-01_JPRB,1.0549E+00_JPRB/)  
+KBO( :, 3,18,11) = (/&
+ & 6.9263E-01_JPRB,7.4312E-01_JPRB,6.6621E-01_JPRB,4.9871E-01_JPRB,1.1339E+00_JPRB/)  
+KBO( :, 4,18,11) = (/&
+ & 8.8229E-01_JPRB,9.4872E-01_JPRB,8.4607E-01_JPRB,6.3576E-01_JPRB,1.2109E+00_JPRB/)  
+KBO( :, 5,18,11) = (/&
+ & 1.0918E+00_JPRB,1.1715E+00_JPRB,1.0485E+00_JPRB,7.9321E-01_JPRB,1.2966E+00_JPRB/)  
+KBO( :, 1,19,11) = (/&
+ & 3.4707E-01_JPRB,3.8254E-01_JPRB,3.4362E-01_JPRB,2.5858E-01_JPRB,8.6524E-01_JPRB/)  
+KBO( :, 2,19,11) = (/&
+ & 4.7624E-01_JPRB,5.2177E-01_JPRB,4.6660E-01_JPRB,3.5041E-01_JPRB,9.4567E-01_JPRB/)  
+KBO( :, 3,19,11) = (/&
+ & 6.2671E-01_JPRB,6.8651E-01_JPRB,6.0965E-01_JPRB,4.5831E-01_JPRB,1.0244E+00_JPRB/)  
+KBO( :, 4,19,11) = (/&
+ & 7.9653E-01_JPRB,8.7098E-01_JPRB,7.7442E-01_JPRB,5.8401E-01_JPRB,1.1073E+00_JPRB/)  
+KBO( :, 5,19,11) = (/&
+ & 9.8427E-01_JPRB,1.0726E+00_JPRB,9.5997E-01_JPRB,7.2540E-01_JPRB,1.1966E+00_JPRB/)  
+KBO( :, 1,20,11) = (/&
+ & 3.1567E-01_JPRB,3.5181E-01_JPRB,3.1444E-01_JPRB,2.3622E-01_JPRB,8.0158E-01_JPRB/)  
+KBO( :, 2,20,11) = (/&
+ & 4.3131E-01_JPRB,4.7923E-01_JPRB,4.2436E-01_JPRB,3.1880E-01_JPRB,8.8081E-01_JPRB/)  
+KBO( :, 3,20,11) = (/&
+ & 5.6512E-01_JPRB,6.2700E-01_JPRB,5.5312E-01_JPRB,4.1741E-01_JPRB,9.6113E-01_JPRB/)  
+KBO( :, 4,20,11) = (/&
+ & 7.1661E-01_JPRB,7.9159E-01_JPRB,7.0178E-01_JPRB,5.3032E-01_JPRB,1.0489E+00_JPRB/)  
+KBO( :, 5,20,11) = (/&
+ & 8.8236E-01_JPRB,9.7468E-01_JPRB,8.6952E-01_JPRB,6.5743E-01_JPRB,1.1372E+00_JPRB/)  
+KBO( :, 1,21,11) = (/&
+ & 2.8592E-01_JPRB,3.2074E-01_JPRB,2.8394E-01_JPRB,2.1333E-01_JPRB,7.4290E-01_JPRB/)  
+KBO( :, 2,21,11) = (/&
+ & 3.8826E-01_JPRB,4.3502E-01_JPRB,3.8223E-01_JPRB,2.8797E-01_JPRB,8.2178E-01_JPRB/)  
+KBO( :, 3,21,11) = (/&
+ & 5.0741E-01_JPRB,5.6572E-01_JPRB,4.9792E-01_JPRB,3.7590E-01_JPRB,9.0519E-01_JPRB/)  
+KBO( :, 4,21,11) = (/&
+ & 6.4058E-01_JPRB,7.1340E-01_JPRB,6.3080E-01_JPRB,4.7663E-01_JPRB,9.9225E-01_JPRB/)  
+KBO( :, 5,21,11) = (/&
+ & 7.8811E-01_JPRB,8.7944E-01_JPRB,7.7953E-01_JPRB,5.8917E-01_JPRB,1.0812E+00_JPRB/)  
+KBO( :, 1,22,11) = (/&
+ & 2.6349E-01_JPRB,2.9660E-01_JPRB,2.5964E-01_JPRB,1.9557E-01_JPRB,6.7570E-01_JPRB/)  
+KBO( :, 2,22,11) = (/&
+ & 3.5527E-01_JPRB,3.9835E-01_JPRB,3.4850E-01_JPRB,2.6305E-01_JPRB,7.5224E-01_JPRB/)  
+KBO( :, 3,22,11) = (/&
+ & 4.6050E-01_JPRB,5.1538E-01_JPRB,4.5315E-01_JPRB,3.4161E-01_JPRB,8.3620E-01_JPRB/)  
+KBO( :, 4,22,11) = (/&
+ & 5.8034E-01_JPRB,6.4971E-01_JPRB,5.7124E-01_JPRB,4.3148E-01_JPRB,9.2191E-01_JPRB/)  
+KBO( :, 5,22,11) = (/&
+ & 7.1598E-01_JPRB,7.9992E-01_JPRB,7.0387E-01_JPRB,5.3098E-01_JPRB,1.0108E+00_JPRB/)  
+KBO( :, 1,23,11) = (/&
+ & 2.4294E-01_JPRB,2.7306E-01_JPRB,2.3732E-01_JPRB,1.7872E-01_JPRB,6.0705E-01_JPRB/)  
+KBO( :, 2,23,11) = (/&
+ & 3.2497E-01_JPRB,3.6372E-01_JPRB,3.1788E-01_JPRB,2.3869E-01_JPRB,6.8421E-01_JPRB/)  
+KBO( :, 3,23,11) = (/&
+ & 4.2067E-01_JPRB,4.6941E-01_JPRB,4.1072E-01_JPRB,3.0874E-01_JPRB,7.6600E-01_JPRB/)  
+KBO( :, 4,23,11) = (/&
+ & 5.3164E-01_JPRB,5.9097E-01_JPRB,5.1614E-01_JPRB,3.8792E-01_JPRB,8.5300E-01_JPRB/)  
+KBO( :, 5,23,11) = (/&
+ & 6.5861E-01_JPRB,7.2844E-01_JPRB,6.3392E-01_JPRB,4.7757E-01_JPRB,9.4241E-01_JPRB/)  
+KBO( :, 1,24,11) = (/&
+ & 2.2482E-01_JPRB,2.5108E-01_JPRB,2.1802E-01_JPRB,1.6286E-01_JPRB,5.3854E-01_JPRB/)  
+KBO( :, 2,24,11) = (/&
+ & 2.9997E-01_JPRB,3.3291E-01_JPRB,2.8985E-01_JPRB,2.1640E-01_JPRB,6.1678E-01_JPRB/)  
+KBO( :, 3,24,11) = (/&
+ & 3.8949E-01_JPRB,4.2945E-01_JPRB,3.7259E-01_JPRB,2.7841E-01_JPRB,6.9947E-01_JPRB/)  
+KBO( :, 4,24,11) = (/&
+ & 4.9475E-01_JPRB,5.4040E-01_JPRB,4.6781E-01_JPRB,3.4874E-01_JPRB,7.8678E-01_JPRB/)  
+KBO( :, 5,24,11) = (/&
+ & 6.1688E-01_JPRB,6.6845E-01_JPRB,5.7526E-01_JPRB,4.2946E-01_JPRB,8.7638E-01_JPRB/)  
+KBO( :, 1,25,11) = (/&
+ & 2.0867E-01_JPRB,2.3175E-01_JPRB,2.0085E-01_JPRB,1.4849E-01_JPRB,4.8336E-01_JPRB/)  
+KBO( :, 2,25,11) = (/&
+ & 2.7944E-01_JPRB,3.0729E-01_JPRB,2.6487E-01_JPRB,1.9609E-01_JPRB,5.5823E-01_JPRB/)  
+KBO( :, 3,25,11) = (/&
+ & 3.6506E-01_JPRB,3.9632E-01_JPRB,3.4020E-01_JPRB,2.5115E-01_JPRB,6.3661E-01_JPRB/)  
+KBO( :, 4,25,11) = (/&
+ & 4.6727E-01_JPRB,5.0070E-01_JPRB,4.2731E-01_JPRB,3.1512E-01_JPRB,7.1582E-01_JPRB/)  
+KBO( :, 5,25,11) = (/&
+ & 5.8636E-01_JPRB,6.2209E-01_JPRB,5.2796E-01_JPRB,3.8925E-01_JPRB,7.9834E-01_JPRB/)  
+KBO( :, 1,26,11) = (/&
+ & 1.9587E-01_JPRB,2.1594E-01_JPRB,1.8576E-01_JPRB,1.3602E-01_JPRB,4.3426E-01_JPRB/)  
+KBO( :, 2,26,11) = (/&
+ & 2.6382E-01_JPRB,2.8676E-01_JPRB,2.4459E-01_JPRB,1.7873E-01_JPRB,5.0085E-01_JPRB/)  
+KBO( :, 3,26,11) = (/&
+ & 3.4692E-01_JPRB,3.7120E-01_JPRB,3.1465E-01_JPRB,2.2874E-01_JPRB,5.6934E-01_JPRB/)  
+KBO( :, 4,26,11) = (/&
+ & 4.4520E-01_JPRB,4.7181E-01_JPRB,3.9637E-01_JPRB,2.8766E-01_JPRB,6.3969E-01_JPRB/)  
+KBO( :, 5,26,11) = (/&
+ & 5.5605E-01_JPRB,5.8855E-01_JPRB,4.9195E-01_JPRB,3.5675E-01_JPRB,7.1476E-01_JPRB/)  
+KBO( :, 1,27,11) = (/&
+ & 1.8539E-01_JPRB,2.0232E-01_JPRB,1.7242E-01_JPRB,1.2491E-01_JPRB,3.7468E-01_JPRB/)  
+KBO( :, 2,27,11) = (/&
+ & 2.5096E-01_JPRB,2.6936E-01_JPRB,2.2766E-01_JPRB,1.6372E-01_JPRB,4.3134E-01_JPRB/)  
+KBO( :, 3,27,11) = (/&
+ & 3.2985E-01_JPRB,3.5118E-01_JPRB,2.9380E-01_JPRB,2.1018E-01_JPRB,4.9024E-01_JPRB/)  
+KBO( :, 4,27,11) = (/&
+ & 4.2050E-01_JPRB,4.4779E-01_JPRB,3.7245E-01_JPRB,2.6552E-01_JPRB,5.5373E-01_JPRB/)  
+KBO( :, 5,27,11) = (/&
+ & 5.2353E-01_JPRB,5.5799E-01_JPRB,4.6451E-01_JPRB,3.2979E-01_JPRB,6.2244E-01_JPRB/)  
+KBO( :, 1,28,11) = (/&
+ & 1.7670E-01_JPRB,1.9079E-01_JPRB,1.6081E-01_JPRB,1.1550E-01_JPRB,3.1173E-01_JPRB/)  
+KBO( :, 2,28,11) = (/&
+ & 2.3816E-01_JPRB,2.5545E-01_JPRB,2.1349E-01_JPRB,1.5165E-01_JPRB,3.6015E-01_JPRB/)  
+KBO( :, 3,28,11) = (/&
+ & 3.1046E-01_JPRB,3.3329E-01_JPRB,2.7692E-01_JPRB,1.9535E-01_JPRB,4.1203E-01_JPRB/)  
+KBO( :, 4,28,11) = (/&
+ & 3.9421E-01_JPRB,4.2355E-01_JPRB,3.5226E-01_JPRB,2.4753E-01_JPRB,4.6881E-01_JPRB/)  
+KBO( :, 5,28,11) = (/&
+ & 4.9113E-01_JPRB,5.2757E-01_JPRB,4.3988E-01_JPRB,3.0817E-01_JPRB,5.2989E-01_JPRB/)  
+KBO( :, 1,29,11) = (/&
+ & 1.6843E-01_JPRB,1.8154E-01_JPRB,1.5154E-01_JPRB,1.0767E-01_JPRB,2.5441E-01_JPRB/)  
+KBO( :, 2,29,11) = (/&
+ & 2.2466E-01_JPRB,2.4270E-01_JPRB,2.0190E-01_JPRB,1.4201E-01_JPRB,2.9556E-01_JPRB/)  
+KBO( :, 3,29,11) = (/&
+ & 2.9126E-01_JPRB,3.1537E-01_JPRB,2.6232E-01_JPRB,1.8387E-01_JPRB,3.4113E-01_JPRB/)  
+KBO( :, 4,29,11) = (/&
+ & 3.6983E-01_JPRB,4.0011E-01_JPRB,3.3340E-01_JPRB,2.3338E-01_JPRB,3.9100E-01_JPRB/)  
+KBO( :, 5,29,11) = (/&
+ & 4.6101E-01_JPRB,4.9867E-01_JPRB,4.1663E-01_JPRB,2.9053E-01_JPRB,4.4464E-01_JPRB/)  
+KBO( :, 1,30,11) = (/&
+ & 1.5959E-01_JPRB,1.7262E-01_JPRB,1.4374E-01_JPRB,1.0130E-01_JPRB,2.0471E-01_JPRB/)  
+KBO( :, 2,30,11) = (/&
+ & 2.1115E-01_JPRB,2.2963E-01_JPRB,1.9116E-01_JPRB,1.3421E-01_JPRB,2.4020E-01_JPRB/)  
+KBO( :, 3,30,11) = (/&
+ & 2.7360E-01_JPRB,2.9740E-01_JPRB,2.4795E-01_JPRB,1.7403E-01_JPRB,2.7968E-01_JPRB/)  
+KBO( :, 4,30,11) = (/&
+ & 3.4764E-01_JPRB,3.7756E-01_JPRB,3.1549E-01_JPRB,2.2070E-01_JPRB,3.2281E-01_JPRB/)  
+KBO( :, 5,30,11) = (/&
+ & 4.3440E-01_JPRB,4.7219E-01_JPRB,3.9465E-01_JPRB,2.7465E-01_JPRB,3.6896E-01_JPRB/)  
+KBO( :, 1,31,11) = (/&
+ & 1.5091E-01_JPRB,1.6391E-01_JPRB,1.3645E-01_JPRB,9.6278E-02_JPRB,1.6289E-01_JPRB/)  
+KBO( :, 2,31,11) = (/&
+ & 1.9931E-01_JPRB,2.1721E-01_JPRB,1.8079E-01_JPRB,1.2771E-01_JPRB,1.9309E-01_JPRB/)  
+KBO( :, 3,31,11) = (/&
+ & 2.5821E-01_JPRB,2.8109E-01_JPRB,2.3449E-01_JPRB,1.6502E-01_JPRB,2.2676E-01_JPRB/)  
+KBO( :, 4,31,11) = (/&
+ & 3.2875E-01_JPRB,3.5829E-01_JPRB,2.9898E-01_JPRB,2.0919E-01_JPRB,2.6370E-01_JPRB/)  
+KBO( :, 5,31,11) = (/&
+ & 4.1157E-01_JPRB,4.5002E-01_JPRB,3.7499E-01_JPRB,2.6064E-01_JPRB,3.0365E-01_JPRB/)  
+KBO( :, 1,32,11) = (/&
+ & 1.4350E-01_JPRB,1.5577E-01_JPRB,1.2948E-01_JPRB,9.1911E-02_JPRB,1.3126E-01_JPRB/)  
+KBO( :, 2,32,11) = (/&
+ & 1.8927E-01_JPRB,2.0591E-01_JPRB,1.7137E-01_JPRB,1.2148E-01_JPRB,1.5712E-01_JPRB/)  
+KBO( :, 3,32,11) = (/&
+ & 2.4542E-01_JPRB,2.6745E-01_JPRB,2.2265E-01_JPRB,1.5686E-01_JPRB,1.8606E-01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART28',1,ZHOOK_HANDLE)
+END SUBROUTINE PART28
+
+
+SUBROUTINE PART29
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART29',0,ZHOOK_HANDLE)
+
+
+KBO( :, 4,32,11) = (/&
+ & 3.1299E-01_JPRB,3.4211E-01_JPRB,2.8464E-01_JPRB,1.9879E-01_JPRB,2.1776E-01_JPRB/)  
+KBO( :, 5,32,11) = (/&
+ & 3.9189E-01_JPRB,4.3154E-01_JPRB,3.5784E-01_JPRB,2.4869E-01_JPRB,2.5261E-01_JPRB/)  
+KBO( :, 1,33,11) = (/&
+ & 1.3727E-01_JPRB,1.4838E-01_JPRB,1.2325E-01_JPRB,8.7723E-02_JPRB,1.0656E-01_JPRB/)  
+KBO( :, 2,33,11) = (/&
+ & 1.8110E-01_JPRB,1.9647E-01_JPRB,1.6322E-01_JPRB,1.1562E-01_JPRB,1.2867E-01_JPRB/)  
+KBO( :, 3,33,11) = (/&
+ & 2.3493E-01_JPRB,2.5633E-01_JPRB,2.1260E-01_JPRB,1.4945E-01_JPRB,1.5344E-01_JPRB/)  
+KBO( :, 4,33,11) = (/&
+ & 2.9930E-01_JPRB,3.2911E-01_JPRB,2.7241E-01_JPRB,1.8991E-01_JPRB,1.8112E-01_JPRB/)  
+KBO( :, 5,33,11) = (/&
+ & 3.7491E-01_JPRB,4.1658E-01_JPRB,3.4340E-01_JPRB,2.3867E-01_JPRB,2.1188E-01_JPRB/)  
+KBO( :, 1,34,11) = (/&
+ & 1.3092E-01_JPRB,1.4094E-01_JPRB,1.1667E-01_JPRB,8.2911E-02_JPRB,8.9471E-02_JPRB/)  
+KBO( :, 2,34,11) = (/&
+ & 1.7283E-01_JPRB,1.8720E-01_JPRB,1.5498E-01_JPRB,1.0945E-01_JPRB,1.0879E-01_JPRB/)  
+KBO( :, 3,34,11) = (/&
+ & 2.2423E-01_JPRB,2.4508E-01_JPRB,2.0247E-01_JPRB,1.4175E-01_JPRB,1.3067E-01_JPRB/)  
+KBO( :, 4,34,11) = (/&
+ & 2.8568E-01_JPRB,3.1613E-01_JPRB,2.6022E-01_JPRB,1.8119E-01_JPRB,1.5551E-01_JPRB/)  
+KBO( :, 5,34,11) = (/&
+ & 3.5836E-01_JPRB,4.0157E-01_JPRB,3.2942E-01_JPRB,2.2886E-01_JPRB,1.8335E-01_JPRB/)  
+KBO( :, 1,35,11) = (/&
+ & 1.2228E-01_JPRB,1.3118E-01_JPRB,1.0815E-01_JPRB,7.6480E-02_JPRB,7.3770E-02_JPRB/)  
+KBO( :, 2,35,11) = (/&
+ & 1.6172E-01_JPRB,1.7516E-01_JPRB,1.4419E-01_JPRB,1.0138E-01_JPRB,9.0532E-02_JPRB/)  
+KBO( :, 3,35,11) = (/&
+ & 2.1005E-01_JPRB,2.3024E-01_JPRB,1.8936E-01_JPRB,1.3212E-01_JPRB,1.0977E-01_JPRB/)  
+KBO( :, 4,35,11) = (/&
+ & 2.6823E-01_JPRB,2.9837E-01_JPRB,2.4450E-01_JPRB,1.7010E-01_JPRB,1.3152E-01_JPRB/)  
+KBO( :, 5,35,11) = (/&
+ & 3.3803E-01_JPRB,3.8069E-01_JPRB,3.1151E-01_JPRB,2.1623E-01_JPRB,1.5639E-01_JPRB/)  
+KBO( :, 1,36,11) = (/&
+ & 1.1127E-01_JPRB,1.1902E-01_JPRB,9.7790E-02_JPRB,6.8652E-02_JPRB,5.9294E-02_JPRB/)  
+KBO( :, 2,36,11) = (/&
+ & 1.4779E-01_JPRB,1.5991E-01_JPRB,1.3100E-01_JPRB,9.1678E-02_JPRB,7.3428E-02_JPRB/)  
+KBO( :, 3,36,11) = (/&
+ & 1.9248E-01_JPRB,2.1152E-01_JPRB,1.7310E-01_JPRB,1.2044E-01_JPRB,8.9931E-02_JPRB/)  
+KBO( :, 4,36,11) = (/&
+ & 2.4698E-01_JPRB,2.7546E-01_JPRB,2.2513E-01_JPRB,1.5635E-01_JPRB,1.0865E-01_JPRB/)  
+KBO( :, 5,36,11) = (/&
+ & 3.1312E-01_JPRB,3.5357E-01_JPRB,2.8900E-01_JPRB,2.0028E-01_JPRB,1.3007E-01_JPRB/)  
+KBO( :, 1,37,11) = (/&
+ & 9.7171E-02_JPRB,1.0370E-01_JPRB,8.4930E-02_JPRB,5.9132E-02_JPRB,4.8800E-02_JPRB/)  
+KBO( :, 2,37,11) = (/&
+ & 1.3022E-01_JPRB,1.4042E-01_JPRB,1.1467E-01_JPRB,7.9788E-02_JPRB,6.1101E-02_JPRB/)  
+KBO( :, 3,37,11) = (/&
+ & 1.7053E-01_JPRB,1.8732E-01_JPRB,1.5267E-01_JPRB,1.0592E-01_JPRB,7.5549E-02_JPRB/)  
+KBO( :, 4,37,11) = (/&
+ & 2.2021E-01_JPRB,2.4584E-01_JPRB,2.0025E-01_JPRB,1.3887E-01_JPRB,9.2123E-02_JPRB/)  
+KBO( :, 5,37,11) = (/&
+ & 2.8142E-01_JPRB,3.1806E-01_JPRB,2.5954E-01_JPRB,1.7970E-01_JPRB,1.1114E-01_JPRB/)  
+KBO( :, 1,38,11) = (/&
+ & 8.4750E-02_JPRB,9.0447E-02_JPRB,7.3862E-02_JPRB,5.1024E-02_JPRB,4.0120E-02_JPRB/)  
+KBO( :, 2,38,11) = (/&
+ & 1.1472E-01_JPRB,1.2347E-01_JPRB,1.0053E-01_JPRB,6.9437E-02_JPRB,5.0776E-02_JPRB/)  
+KBO( :, 3,38,11) = (/&
+ & 1.5136E-01_JPRB,1.6607E-01_JPRB,1.3499E-01_JPRB,9.3219E-02_JPRB,6.3385E-02_JPRB/)  
+KBO( :, 4,38,11) = (/&
+ & 1.9680E-01_JPRB,2.1978E-01_JPRB,1.7847E-01_JPRB,1.2347E-01_JPRB,7.8006E-02_JPRB/)  
+KBO( :, 5,38,11) = (/&
+ & 2.5341E-01_JPRB,2.8675E-01_JPRB,2.3338E-01_JPRB,1.6145E-01_JPRB,9.4840E-02_JPRB/)  
+KBO( :, 1,39,11) = (/&
+ & 7.4011E-02_JPRB,7.9191E-02_JPRB,6.4478E-02_JPRB,4.4207E-02_JPRB,3.2805E-02_JPRB/)  
+KBO( :, 2,39,11) = (/&
+ & 1.0122E-01_JPRB,1.0907E-01_JPRB,8.8541E-02_JPRB,6.0759E-02_JPRB,4.1971E-02_JPRB/)  
+KBO( :, 3,39,11) = (/&
+ & 1.3478E-01_JPRB,1.4779E-01_JPRB,1.1992E-01_JPRB,8.2325E-02_JPRB,5.2901E-02_JPRB/)  
+KBO( :, 4,39,11) = (/&
+ & 1.7660E-01_JPRB,1.9727E-01_JPRB,1.5986E-01_JPRB,1.1017E-01_JPRB,6.5730E-02_JPRB/)  
+KBO( :, 5,39,11) = (/&
+ & 2.2909E-01_JPRB,2.5986E-01_JPRB,2.1074E-01_JPRB,1.4557E-01_JPRB,8.0505E-02_JPRB/)  
+KBO( :, 1,40,11) = (/&
+ & 6.2473E-02_JPRB,6.7073E-02_JPRB,5.4566E-02_JPRB,3.7187E-02_JPRB,2.6885E-02_JPRB/)  
+KBO( :, 2,40,11) = (/&
+ & 8.6606E-02_JPRB,9.3644E-02_JPRB,7.5801E-02_JPRB,5.1661E-02_JPRB,3.4836E-02_JPRB/)  
+KBO( :, 3,40,11) = (/&
+ & 1.1680E-01_JPRB,1.2799E-01_JPRB,1.0372E-01_JPRB,7.0693E-02_JPRB,4.4368E-02_JPRB/)  
+KBO( :, 4,40,11) = (/&
+ & 1.5470E-01_JPRB,1.7247E-01_JPRB,1.3960E-01_JPRB,9.5679E-02_JPRB,5.5687E-02_JPRB/)  
+KBO( :, 5,40,11) = (/&
+ & 2.0237E-01_JPRB,2.2977E-01_JPRB,1.8573E-01_JPRB,1.2793E-01_JPRB,6.8850E-02_JPRB/)  
+KBO( :, 1,41,11) = (/&
+ & 5.2446E-02_JPRB,5.6507E-02_JPRB,4.5959E-02_JPRB,3.1195E-02_JPRB,2.1948E-02_JPRB/)  
+KBO( :, 2,41,11) = (/&
+ & 7.3701E-02_JPRB,8.0111E-02_JPRB,6.4714E-02_JPRB,4.3819E-02_JPRB,2.8834E-02_JPRB/)  
+KBO( :, 3,41,11) = (/&
+ & 1.0076E-01_JPRB,1.1070E-01_JPRB,8.9512E-02_JPRB,6.0576E-02_JPRB,3.7158E-02_JPRB/)  
+KBO( :, 4,41,11) = (/&
+ & 1.3508E-01_JPRB,1.5057E-01_JPRB,1.2175E-01_JPRB,8.2892E-02_JPRB,4.7100E-02_JPRB/)  
+KBO( :, 5,41,11) = (/&
+ & 1.7854E-01_JPRB,2.0269E-01_JPRB,1.6356E-01_JPRB,1.1214E-01_JPRB,5.8823E-02_JPRB/)  
+KBO( :, 1,42,11) = (/&
+ & 4.3993E-02_JPRB,4.7543E-02_JPRB,3.8628E-02_JPRB,2.6175E-02_JPRB,1.7822E-02_JPRB/)  
+KBO( :, 2,42,11) = (/&
+ & 6.2618E-02_JPRB,6.8461E-02_JPRB,5.5301E-02_JPRB,3.7217E-02_JPRB,2.3728E-02_JPRB/)  
+KBO( :, 3,42,11) = (/&
+ & 8.6814E-02_JPRB,9.5948E-02_JPRB,7.7328E-02_JPRB,5.2009E-02_JPRB,3.0953E-02_JPRB/)  
+KBO( :, 4,42,11) = (/&
+ & 1.1793E-01_JPRB,1.3165E-01_JPRB,1.0635E-01_JPRB,7.1967E-02_JPRB,3.9679E-02_JPRB/)  
+KBO( :, 5,42,11) = (/&
+ & 1.5767E-01_JPRB,1.7909E-01_JPRB,1.4430E-01_JPRB,9.8414E-02_JPRB,5.0031E-02_JPRB/)  
+KBO( :, 1,43,11) = (/&
+ & 3.6051E-02_JPRB,3.9068E-02_JPRB,3.1700E-02_JPRB,2.1500E-02_JPRB,1.4336E-02_JPRB/)  
+KBO( :, 2,43,11) = (/&
+ & 5.2131E-02_JPRB,5.7262E-02_JPRB,4.6240E-02_JPRB,3.1003E-02_JPRB,1.9367E-02_JPRB/)  
+KBO( :, 3,43,11) = (/&
+ & 7.3341E-02_JPRB,8.1590E-02_JPRB,6.5706E-02_JPRB,4.3880E-02_JPRB,2.5604E-02_JPRB/)  
+KBO( :, 4,43,11) = (/&
+ & 1.0113E-01_JPRB,1.1336E-01_JPRB,9.1355E-02_JPRB,6.1391E-02_JPRB,3.3210E-02_JPRB/)  
+KBO( :, 5,43,11) = (/&
+ & 1.3704E-01_JPRB,1.5566E-01_JPRB,1.2530E-01_JPRB,8.4984E-02_JPRB,4.2357E-02_JPRB/)  
+KBO( :, 1,44,11) = (/&
+ & 2.9153E-02_JPRB,3.1689E-02_JPRB,2.5651E-02_JPRB,1.7398E-02_JPRB,1.1452E-02_JPRB/)  
+KBO( :, 2,44,11) = (/&
+ & 4.2894E-02_JPRB,4.7271E-02_JPRB,3.8161E-02_JPRB,2.5559E-02_JPRB,1.5702E-02_JPRB/)  
+KBO( :, 3,44,11) = (/&
+ & 6.1316E-02_JPRB,6.8606E-02_JPRB,5.5241E-02_JPRB,3.6706E-02_JPRB,2.1051E-02_JPRB/)  
+KBO( :, 4,44,11) = (/&
+ & 8.5809E-02_JPRB,9.6811E-02_JPRB,7.7867E-02_JPRB,5.1972E-02_JPRB,2.7643E-02_JPRB/)  
+KBO( :, 5,44,11) = (/&
+ & 1.1804E-01_JPRB,1.3427E-01_JPRB,1.0805E-01_JPRB,7.2832E-02_JPRB,3.5698E-02_JPRB/)  
+KBO( :, 1,45,11) = (/&
+ & 2.3474E-02_JPRB,2.5620E-02_JPRB,2.0683E-02_JPRB,1.3992E-02_JPRB,9.0872E-03_JPRB/)  
+KBO( :, 2,45,11) = (/&
+ & 3.5168E-02_JPRB,3.8884E-02_JPRB,3.1357E-02_JPRB,2.0998E-02_JPRB,1.2650E-02_JPRB/)  
+KBO( :, 3,45,11) = (/&
+ & 5.1125E-02_JPRB,5.7479E-02_JPRB,4.6268E-02_JPRB,3.0685E-02_JPRB,1.7188E-02_JPRB/)  
+KBO( :, 4,45,11) = (/&
+ & 7.2642E-02_JPRB,8.2540E-02_JPRB,6.6385E-02_JPRB,4.3982E-02_JPRB,2.2878E-02_JPRB/)  
+KBO( :, 5,45,11) = (/&
+ & 1.0141E-01_JPRB,1.1593E-01_JPRB,9.3129E-02_JPRB,6.2384E-02_JPRB,2.9912E-02_JPRB/)  
+KBO( :, 1,46,11) = (/&
+ & 1.8622E-02_JPRB,2.0419E-02_JPRB,1.6446E-02_JPRB,1.1089E-02_JPRB,7.1508E-03_JPRB/)  
+KBO( :, 2,46,11) = (/&
+ & 2.8465E-02_JPRB,3.1591E-02_JPRB,2.5425E-02_JPRB,1.7003E-02_JPRB,1.0100E-02_JPRB/)  
+KBO( :, 3,46,11) = (/&
+ & 4.2115E-02_JPRB,4.7558E-02_JPRB,3.8296E-02_JPRB,2.5381E-02_JPRB,1.3928E-02_JPRB/)  
+KBO( :, 4,46,11) = (/&
+ & 6.0884E-02_JPRB,6.9606E-02_JPRB,5.6000E-02_JPRB,3.6888E-02_JPRB,1.8798E-02_JPRB/)  
+KBO( :, 5,46,11) = (/&
+ & 8.6271E-02_JPRB,9.9295E-02_JPRB,7.9645E-02_JPRB,5.2994E-02_JPRB,2.4873E-02_JPRB/)  
+KBO( :, 1,47,11) = (/&
+ & 1.4376E-02_JPRB,1.5849E-02_JPRB,1.2756E-02_JPRB,8.5637E-03_JPRB,5.5846E-03_JPRB/)  
+KBO( :, 2,47,11) = (/&
+ & 2.2523E-02_JPRB,2.5091E-02_JPRB,2.0133E-02_JPRB,1.3433E-02_JPRB,8.0135E-03_JPRB/)  
+KBO( :, 3,47,11) = (/&
+ & 3.3987E-02_JPRB,3.8521E-02_JPRB,3.0971E-02_JPRB,2.0498E-02_JPRB,1.1217E-02_JPRB/)  
+KBO( :, 4,47,11) = (/&
+ & 4.9995E-02_JPRB,5.7475E-02_JPRB,4.6271E-02_JPRB,3.0427E-02_JPRB,1.5354E-02_JPRB/)  
+KBO( :, 5,47,11) = (/&
+ & 7.2095E-02_JPRB,8.3553E-02_JPRB,6.7099E-02_JPRB,4.4249E-02_JPRB,2.0567E-02_JPRB/)  
+KBO( :, 1,48,11) = (/&
+ & 1.0948E-02_JPRB,1.2187E-02_JPRB,9.8197E-03_JPRB,6.5686E-03_JPRB,4.3309E-03_JPRB/)  
+KBO( :, 2,48,11) = (/&
+ & 1.7678E-02_JPRB,1.9773E-02_JPRB,1.5847E-02_JPRB,1.0523E-02_JPRB,6.3196E-03_JPRB/)  
+KBO( :, 3,48,11) = (/&
+ & 2.7272E-02_JPRB,3.1035E-02_JPRB,2.4886E-02_JPRB,1.6427E-02_JPRB,8.9753E-03_JPRB/)  
+KBO( :, 4,48,11) = (/&
+ & 4.0847E-02_JPRB,4.7231E-02_JPRB,3.7989E-02_JPRB,2.4968E-02_JPRB,1.2435E-02_JPRB/)  
+KBO( :, 5,48,11) = (/&
+ & 5.9943E-02_JPRB,6.9928E-02_JPRB,5.6261E-02_JPRB,3.6863E-02_JPRB,1.6884E-02_JPRB/)  
+KBO( :, 1,49,11) = (/&
+ & 8.2227E-03_JPRB,9.2751E-03_JPRB,7.4918E-03_JPRB,4.9857E-03_JPRB,3.3179E-03_JPRB/)  
+KBO( :, 2,49,11) = (/&
+ & 1.3710E-02_JPRB,1.5461E-02_JPRB,1.2382E-02_JPRB,8.1837E-03_JPRB,4.9416E-03_JPRB/)  
+KBO( :, 3,49,11) = (/&
+ & 2.1752E-02_JPRB,2.4824E-02_JPRB,1.9870E-02_JPRB,1.3064E-02_JPRB,7.1199E-03_JPRB/)  
+KBO( :, 4,49,11) = (/&
+ & 3.3202E-02_JPRB,3.8592E-02_JPRB,3.0992E-02_JPRB,2.0326E-02_JPRB,9.9895E-03_JPRB/)  
+KBO( :, 5,49,11) = (/&
+ & 4.9564E-02_JPRB,5.8206E-02_JPRB,4.6898E-02_JPRB,3.0661E-02_JPRB,1.3734E-02_JPRB/)  
+KBO( :, 1,50,11) = (/&
+ & 6.1915E-03_JPRB,7.0808E-03_JPRB,5.7341E-03_JPRB,3.7933E-03_JPRB,2.6014E-03_JPRB/)  
+KBO( :, 2,50,11) = (/&
+ & 1.0634E-02_JPRB,1.2140E-02_JPRB,9.7185E-03_JPRB,6.3965E-03_JPRB,3.9374E-03_JPRB/)  
+KBO( :, 3,50,11) = (/&
+ & 1.7391E-02_JPRB,1.9945E-02_JPRB,1.5955E-02_JPRB,1.0445E-02_JPRB,5.7678E-03_JPRB/)  
+KBO( :, 4,50,11) = (/&
+ & 2.7125E-02_JPRB,3.1701E-02_JPRB,2.5413E-02_JPRB,1.6599E-02_JPRB,8.1975E-03_JPRB/)  
+KBO( :, 5,50,11) = (/&
+ & 4.1193E-02_JPRB,4.8726E-02_JPRB,3.9234E-02_JPRB,2.5636E-02_JPRB,1.1392E-02_JPRB/)  
+KBO( :, 1,51,11) = (/&
+ & 4.6415E-03_JPRB,5.3779E-03_JPRB,4.3645E-03_JPRB,2.8762E-03_JPRB,2.0670E-03_JPRB/)  
+KBO( :, 2,51,11) = (/&
+ & 8.1982E-03_JPRB,9.4964E-03_JPRB,7.6128E-03_JPRB,4.9899E-03_JPRB,3.1638E-03_JPRB/)  
+KBO( :, 3,51,11) = (/&
+ & 1.3839E-02_JPRB,1.6014E-02_JPRB,1.2808E-02_JPRB,8.3362E-03_JPRB,4.7173E-03_JPRB/)  
+KBO( :, 4,51,11) = (/&
+ & 2.2155E-02_JPRB,2.6015E-02_JPRB,2.0833E-02_JPRB,1.3537E-02_JPRB,6.8071E-03_JPRB/)  
+KBO( :, 5,51,11) = (/&
+ & 3.4266E-02_JPRB,4.0819E-02_JPRB,3.2809E-02_JPRB,2.1399E-02_JPRB,9.5494E-03_JPRB/)  
+KBO( :, 1,52,11) = (/&
+ & 3.4450E-03_JPRB,4.0419E-03_JPRB,3.2822E-03_JPRB,2.1593E-03_JPRB,1.6475E-03_JPRB/)  
+KBO( :, 2,52,11) = (/&
+ & 6.2508E-03_JPRB,7.3537E-03_JPRB,5.9181E-03_JPRB,3.8603E-03_JPRB,2.5371E-03_JPRB/)  
+KBO( :, 3,52,11) = (/&
+ & 1.0900E-02_JPRB,1.2773E-02_JPRB,1.0216E-02_JPRB,6.6126E-03_JPRB,3.8348E-03_JPRB/)  
+KBO( :, 4,52,11) = (/&
+ & 1.7975E-02_JPRB,2.1233E-02_JPRB,1.7001E-02_JPRB,1.0994E-02_JPRB,5.6303E-03_JPRB/)  
+KBO( :, 5,52,11) = (/&
+ & 2.8375E-02_JPRB,3.4038E-02_JPRB,2.7332E-02_JPRB,1.7744E-02_JPRB,7.9843E-03_JPRB/)  
+KBO( :, 1,53,11) = (/&
+ & 2.5331E-03_JPRB,3.0017E-03_JPRB,2.4368E-03_JPRB,1.5998E-03_JPRB,1.3193E-03_JPRB/)  
+KBO( :, 2,53,11) = (/&
+ & 4.7088E-03_JPRB,5.6274E-03_JPRB,4.5483E-03_JPRB,2.9549E-03_JPRB,2.0294E-03_JPRB/)  
+KBO( :, 3,53,11) = (/&
+ & 8.4774E-03_JPRB,1.0097E-02_JPRB,8.0775E-03_JPRB,5.2092E-03_JPRB,3.0959E-03_JPRB/)  
+KBO( :, 4,53,11) = (/&
+ & 1.4441E-02_JPRB,1.7209E-02_JPRB,1.3780E-02_JPRB,8.8745E-03_JPRB,4.6172E-03_JPRB/)  
+KBO( :, 5,53,11) = (/&
+ & 2.3385E-02_JPRB,2.8212E-02_JPRB,2.2650E-02_JPRB,1.4615E-02_JPRB,6.6511E-03_JPRB/)  
+KBO( :, 1,54,11) = (/&
+ & 1.8954E-03_JPRB,2.2607E-03_JPRB,1.8278E-03_JPRB,1.1946E-03_JPRB,1.0985E-03_JPRB/)  
+KBO( :, 2,54,11) = (/&
+ & 3.5862E-03_JPRB,4.3471E-03_JPRB,3.5189E-03_JPRB,2.2822E-03_JPRB,1.6895E-03_JPRB/)  
+KBO( :, 3,54,11) = (/&
+ & 6.6312E-03_JPRB,8.0424E-03_JPRB,6.4523E-03_JPRB,4.1406E-03_JPRB,2.5940E-03_JPRB/)  
+KBO( :, 4,54,11) = (/&
+ & 1.1671E-02_JPRB,1.4089E-02_JPRB,1.1281E-02_JPRB,7.2279E-03_JPRB,3.9122E-03_JPRB/)  
+KBO( :, 5,54,11) = (/&
+ & 1.9432E-02_JPRB,2.3598E-02_JPRB,1.8940E-02_JPRB,1.2154E-02_JPRB,5.7337E-03_JPRB/)  
+KBO( :, 1,55,11) = (/&
+ & 1.4290E-03_JPRB,1.7125E-03_JPRB,1.3776E-03_JPRB,8.9347E-04_JPRB,9.3784E-04_JPRB/)  
+KBO( :, 2,55,11) = (/&
+ & 2.7457E-03_JPRB,3.3623E-03_JPRB,2.7182E-03_JPRB,1.7597E-03_JPRB,1.4453E-03_JPRB/)  
+KBO( :, 3,55,11) = (/&
+ & 5.1874E-03_JPRB,6.3979E-03_JPRB,5.1511E-03_JPRB,3.2930E-03_JPRB,2.2221E-03_JPRB/)  
+KBO( :, 4,55,11) = (/&
+ & 9.4226E-03_JPRB,1.1550E-02_JPRB,9.2557E-03_JPRB,5.8990E-03_JPRB,3.3851E-03_JPRB/)  
+KBO( :, 5,55,11) = (/&
+ & 1.6150E-02_JPRB,1.9777E-02_JPRB,1.5877E-02_JPRB,1.0138E-02_JPRB,5.0396E-03_JPRB/)  
+KBO( :, 1,56,11) = (/&
+ & 1.0680E-03_JPRB,1.2890E-03_JPRB,1.0316E-03_JPRB,6.6446E-04_JPRB,8.0430E-04_JPRB/)  
+KBO( :, 2,56,11) = (/&
+ & 2.0978E-03_JPRB,2.5858E-03_JPRB,2.0823E-03_JPRB,1.3442E-03_JPRB,1.2456E-03_JPRB/)  
+KBO( :, 3,56,11) = (/&
+ & 4.0301E-03_JPRB,5.0435E-03_JPRB,4.0770E-03_JPRB,2.5996E-03_JPRB,1.9142E-03_JPRB/)  
+KBO( :, 4,56,11) = (/&
+ & 7.5402E-03_JPRB,9.4035E-03_JPRB,7.5479E-03_JPRB,4.7898E-03_JPRB,2.9393E-03_JPRB/)  
+KBO( :, 5,56,11) = (/&
+ & 1.3330E-02_JPRB,1.6498E-02_JPRB,1.3248E-02_JPRB,8.4281E-03_JPRB,4.4305E-03_JPRB/)  
+KBO( :, 1,57,11) = (/&
+ & 7.8801E-04_JPRB,9.6289E-04_JPRB,7.6691E-04_JPRB,4.9097E-04_JPRB,6.8859E-04_JPRB/)  
+KBO( :, 2,57,11) = (/&
+ & 1.5966E-03_JPRB,1.9777E-03_JPRB,1.5840E-03_JPRB,1.0164E-03_JPRB,1.0803E-03_JPRB/)  
+KBO( :, 3,57,11) = (/&
+ & 3.1118E-03_JPRB,3.9473E-03_JPRB,3.1938E-03_JPRB,2.0343E-03_JPRB,1.6622E-03_JPRB/)  
+KBO( :, 4,57,11) = (/&
+ & 5.9752E-03_JPRB,7.5907E-03_JPRB,6.1119E-03_JPRB,3.8625E-03_JPRB,2.5583E-03_JPRB/)  
+KBO( :, 5,57,11) = (/&
+ & 1.0909E-02_JPRB,1.3694E-02_JPRB,1.0990E-02_JPRB,6.9630E-03_JPRB,3.8987E-03_JPRB/)  
+KBO( :, 1,58,11) = (/&
+ & 5.8173E-04_JPRB,7.2041E-04_JPRB,5.7279E-04_JPRB,3.6474E-04_JPRB,5.9355E-04_JPRB/)  
+KBO( :, 2,58,11) = (/&
+ & 1.2258E-03_JPRB,1.5249E-03_JPRB,1.2145E-03_JPRB,7.7245E-04_JPRB,9.5456E-04_JPRB/)  
+KBO( :, 3,58,11) = (/&
+ & 2.4241E-03_JPRB,3.1044E-03_JPRB,2.5087E-03_JPRB,1.5934E-03_JPRB,1.4697E-03_JPRB/)  
+KBO( :, 4,58,11) = (/&
+ & 4.7512E-03_JPRB,6.1351E-03_JPRB,4.9587E-03_JPRB,3.1245E-03_JPRB,2.2636E-03_JPRB/)  
+KBO( :, 5,58,11) = (/&
+ & 8.9451E-03_JPRB,1.1404E-02_JPRB,9.1570E-03_JPRB,5.7752E-03_JPRB,3.4844E-03_JPRB/)  
+KBO( :, 1,59,11) = (/&
+ & 5.0522E-04_JPRB,6.3041E-04_JPRB,4.9923E-04_JPRB,3.1529E-04_JPRB,5.7581E-04_JPRB/)  
+KBO( :, 2,59,11) = (/&
+ & 1.0885E-03_JPRB,1.3595E-03_JPRB,1.0775E-03_JPRB,6.7742E-04_JPRB,9.3929E-04_JPRB/)  
+KBO( :, 3,59,11) = (/&
+ & 2.1758E-03_JPRB,2.7928E-03_JPRB,2.2487E-03_JPRB,1.4181E-03_JPRB,1.4518E-03_JPRB/)  
+KBO( :, 4,59,11) = (/&
+ & 4.2933E-03_JPRB,5.5813E-03_JPRB,4.5166E-03_JPRB,2.8320E-03_JPRB,2.2456E-03_JPRB/)  
+KBO( :, 5,59,11) = (/&
+ & 8.1802E-03_JPRB,1.0526E-02_JPRB,8.4597E-03_JPRB,5.3170E-03_JPRB,3.4840E-03_JPRB/)  
+KBO( :, 1,13,12) = (/&
+ & 7.9228E-01_JPRB,6.7739E-01_JPRB,5.9851E-01_JPRB,4.7753E-01_JPRB,2.7637E+00_JPRB/)  
+KBO( :, 2,13,12) = (/&
+ & 1.1298E+00_JPRB,9.7146E-01_JPRB,8.5148E-01_JPRB,6.6642E-01_JPRB,2.9701E+00_JPRB/)  
+KBO( :, 3,13,12) = (/&
+ & 1.5315E+00_JPRB,1.3283E+00_JPRB,1.1586E+00_JPRB,8.9312E-01_JPRB,3.2188E+00_JPRB/)  
+KBO( :, 4,13,12) = (/&
+ & 1.9944E+00_JPRB,1.7422E+00_JPRB,1.5174E+00_JPRB,1.1641E+00_JPRB,3.5302E+00_JPRB/)  
+KBO( :, 5,13,12) = (/&
+ & 2.5089E+00_JPRB,2.2052E+00_JPRB,1.9170E+00_JPRB,1.4741E+00_JPRB,3.8622E+00_JPRB/)  
+KBO( :, 1,14,12) = (/&
+ & 8.3949E-01_JPRB,7.3093E-01_JPRB,6.4746E-01_JPRB,4.9215E-01_JPRB,2.7289E+00_JPRB/)  
+KBO( :, 2,14,12) = (/&
+ & 1.1838E+00_JPRB,1.0392E+00_JPRB,9.1530E-01_JPRB,6.8593E-01_JPRB,2.9374E+00_JPRB/)  
+KBO( :, 3,14,12) = (/&
+ & 1.5936E+00_JPRB,1.4080E+00_JPRB,1.2362E+00_JPRB,9.1792E-01_JPRB,3.1661E+00_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART29',1,ZHOOK_HANDLE)
+END SUBROUTINE PART29
+
+
+SUBROUTINE PART30
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART30',0,ZHOOK_HANDLE)
+
+
+KBO( :, 4,14,12) = (/&
+ & 2.0618E+00_JPRB,1.8318E+00_JPRB,1.6006E+00_JPRB,1.1951E+00_JPRB,3.4133E+00_JPRB/)  
+KBO( :, 5,14,12) = (/&
+ & 2.5782E+00_JPRB,2.3016E+00_JPRB,2.0067E+00_JPRB,1.5032E+00_JPRB,3.6330E+00_JPRB/)  
+KBO( :, 1,15,12) = (/&
+ & 8.6850E-01_JPRB,7.7816E-01_JPRB,6.8988E-01_JPRB,5.1142E-01_JPRB,2.4839E+00_JPRB/)  
+KBO( :, 2,15,12) = (/&
+ & 1.2152E+00_JPRB,1.0938E+00_JPRB,9.6727E-01_JPRB,7.1145E-01_JPRB,2.6794E+00_JPRB/)  
+KBO( :, 3,15,12) = (/&
+ & 1.6231E+00_JPRB,1.4682E+00_JPRB,1.2912E+00_JPRB,9.5405E-01_JPRB,2.8636E+00_JPRB/)  
+KBO( :, 4,15,12) = (/&
+ & 2.0833E+00_JPRB,1.8933E+00_JPRB,1.6562E+00_JPRB,1.2315E+00_JPRB,3.0203E+00_JPRB/)  
+KBO( :, 5,15,12) = (/&
+ & 2.5907E+00_JPRB,2.3660E+00_JPRB,2.0692E+00_JPRB,1.5407E+00_JPRB,3.1955E+00_JPRB/)  
+KBO( :, 1,16,12) = (/&
+ & 8.7903E-01_JPRB,8.1154E-01_JPRB,7.2017E-01_JPRB,5.2966E-01_JPRB,2.1487E+00_JPRB/)  
+KBO( :, 2,16,12) = (/&
+ & 1.2196E+00_JPRB,1.1290E+00_JPRB,9.9867E-01_JPRB,7.3589E-01_JPRB,2.2979E+00_JPRB/)  
+KBO( :, 3,16,12) = (/&
+ & 1.6158E+00_JPRB,1.5020E+00_JPRB,1.3215E+00_JPRB,9.8028E-01_JPRB,2.4332E+00_JPRB/)  
+KBO( :, 4,16,12) = (/&
+ & 2.0608E+00_JPRB,1.9258E+00_JPRB,1.6884E+00_JPRB,1.2547E+00_JPRB,2.5777E+00_JPRB/)  
+KBO( :, 5,16,12) = (/&
+ & 2.5444E+00_JPRB,2.3922E+00_JPRB,2.0979E+00_JPRB,1.5613E+00_JPRB,2.7073E+00_JPRB/)  
+KBO( :, 1,17,12) = (/&
+ & 8.6797E-01_JPRB,8.2657E-01_JPRB,7.3338E-01_JPRB,5.3823E-01_JPRB,1.8450E+00_JPRB/)  
+KBO( :, 2,17,12) = (/&
+ & 1.1929E+00_JPRB,1.1407E+00_JPRB,1.0074E+00_JPRB,7.4525E-01_JPRB,1.9691E+00_JPRB/)  
+KBO( :, 3,17,12) = (/&
+ & 1.5694E+00_JPRB,1.5051E+00_JPRB,1.3270E+00_JPRB,9.8535E-01_JPRB,2.0903E+00_JPRB/)  
+KBO( :, 4,17,12) = (/&
+ & 1.9886E+00_JPRB,1.9165E+00_JPRB,1.6896E+00_JPRB,1.2533E+00_JPRB,2.2071E+00_JPRB/)  
+KBO( :, 5,17,12) = (/&
+ & 2.4525E+00_JPRB,2.3619E+00_JPRB,2.0849E+00_JPRB,1.5524E+00_JPRB,2.3229E+00_JPRB/)  
+KBO( :, 1,18,12) = (/&
+ & 8.3385E-01_JPRB,8.2168E-01_JPRB,7.2749E-01_JPRB,5.3649E-01_JPRB,1.6234E+00_JPRB/)  
+KBO( :, 2,18,12) = (/&
+ & 1.1389E+00_JPRB,1.1231E+00_JPRB,9.9306E-01_JPRB,7.3634E-01_JPRB,1.7307E+00_JPRB/)  
+KBO( :, 3,18,12) = (/&
+ & 1.4887E+00_JPRB,1.4739E+00_JPRB,1.3034E+00_JPRB,9.6635E-01_JPRB,1.8435E+00_JPRB/)  
+KBO( :, 4,18,12) = (/&
+ & 1.8815E+00_JPRB,1.8634E+00_JPRB,1.6522E+00_JPRB,1.2254E+00_JPRB,1.9484E+00_JPRB/)  
+KBO( :, 5,18,12) = (/&
+ & 2.3106E+00_JPRB,2.2920E+00_JPRB,2.0285E+00_JPRB,1.5162E+00_JPRB,2.0551E+00_JPRB/)  
+KBO( :, 1,19,12) = (/&
+ & 7.8530E-01_JPRB,7.9679E-01_JPRB,7.0528E-01_JPRB,5.2265E-01_JPRB,1.4533E+00_JPRB/)  
+KBO( :, 2,19,12) = (/&
+ & 1.0644E+00_JPRB,1.0830E+00_JPRB,9.5920E-01_JPRB,7.1045E-01_JPRB,1.5651E+00_JPRB/)  
+KBO( :, 3,19,12) = (/&
+ & 1.3856E+00_JPRB,1.4087E+00_JPRB,1.2542E+00_JPRB,9.2677E-01_JPRB,1.6748E+00_JPRB/)  
+KBO( :, 4,19,12) = (/&
+ & 1.7452E+00_JPRB,1.7745E+00_JPRB,1.5782E+00_JPRB,1.1737E+00_JPRB,1.7839E+00_JPRB/)  
+KBO( :, 5,19,12) = (/&
+ & 2.1398E+00_JPRB,2.1794E+00_JPRB,1.9373E+00_JPRB,1.4553E+00_JPRB,1.9023E+00_JPRB/)  
+KBO( :, 1,20,12) = (/&
+ & 7.2778E-01_JPRB,7.6194E-01_JPRB,6.7390E-01_JPRB,5.0077E-01_JPRB,1.3617E+00_JPRB/)  
+KBO( :, 2,20,12) = (/&
+ & 9.8068E-01_JPRB,1.0262E+00_JPRB,9.1245E-01_JPRB,6.7491E-01_JPRB,1.4807E+00_JPRB/)  
+KBO( :, 3,20,12) = (/&
+ & 1.2722E+00_JPRB,1.3293E+00_JPRB,1.1831E+00_JPRB,8.7574E-01_JPRB,1.5966E+00_JPRB/)  
+KBO( :, 4,20,12) = (/&
+ & 1.5991E+00_JPRB,1.6714E+00_JPRB,1.4853E+00_JPRB,1.1090E+00_JPRB,1.7163E+00_JPRB/)  
+KBO( :, 5,20,12) = (/&
+ & 1.9535E+00_JPRB,2.0500E+00_JPRB,1.8231E+00_JPRB,1.3754E+00_JPRB,1.8494E+00_JPRB/)  
+KBO( :, 1,21,12) = (/&
+ & 6.6504E-01_JPRB,7.1378E-01_JPRB,6.3305E-01_JPRB,4.7002E-01_JPRB,1.2946E+00_JPRB/)  
+KBO( :, 2,21,12) = (/&
+ & 8.9278E-01_JPRB,9.5693E-01_JPRB,8.4967E-01_JPRB,6.2960E-01_JPRB,1.4170E+00_JPRB/)  
+KBO( :, 3,21,12) = (/&
+ & 1.1553E+00_JPRB,1.2382E+00_JPRB,1.0968E+00_JPRB,8.1599E-01_JPRB,1.5400E+00_JPRB/)  
+KBO( :, 4,21,12) = (/&
+ & 1.4482E+00_JPRB,1.5551E+00_JPRB,1.3761E+00_JPRB,1.0330E+00_JPRB,1.6737E+00_JPRB/)  
+KBO( :, 5,21,12) = (/&
+ & 1.7635E+00_JPRB,1.8984E+00_JPRB,1.6920E+00_JPRB,1.2782E+00_JPRB,1.8148E+00_JPRB/)  
+KBO( :, 1,22,12) = (/&
+ & 6.1409E-01_JPRB,6.7210E-01_JPRB,5.9517E-01_JPRB,4.4205E-01_JPRB,1.2140E+00_JPRB/)  
+KBO( :, 2,22,12) = (/&
+ & 8.2009E-01_JPRB,8.9690E-01_JPRB,7.9134E-01_JPRB,5.8900E-01_JPRB,1.3388E+00_JPRB/)  
+KBO( :, 3,22,12) = (/&
+ & 1.0573E+00_JPRB,1.1562E+00_JPRB,1.0170E+00_JPRB,7.6239E-01_JPRB,1.4674E+00_JPRB/)  
+KBO( :, 4,22,12) = (/&
+ & 1.3173E+00_JPRB,1.4441E+00_JPRB,1.2773E+00_JPRB,9.6111E-01_JPRB,1.6103E+00_JPRB/)  
+KBO( :, 5,22,12) = (/&
+ & 1.6008E+00_JPRB,1.7593E+00_JPRB,1.5714E+00_JPRB,1.1859E+00_JPRB,1.7554E+00_JPRB/)  
+KBO( :, 1,23,12) = (/&
+ & 5.6489E-01_JPRB,6.2643E-01_JPRB,5.5181E-01_JPRB,4.1055E-01_JPRB,1.1296E+00_JPRB/)  
+KBO( :, 2,23,12) = (/&
+ & 7.5136E-01_JPRB,8.3205E-01_JPRB,7.2882E-01_JPRB,5.4587E-01_JPRB,1.2556E+00_JPRB/)  
+KBO( :, 3,23,12) = (/&
+ & 9.6147E-01_JPRB,1.0673E+00_JPRB,9.3622E-01_JPRB,7.0474E-01_JPRB,1.3939E+00_JPRB/)  
+KBO( :, 4,23,12) = (/&
+ & 1.1945E+00_JPRB,1.3292E+00_JPRB,1.1758E+00_JPRB,8.8540E-01_JPRB,1.5380E+00_JPRB/)  
+KBO( :, 5,23,12) = (/&
+ & 1.4498E+00_JPRB,1.6203E+00_JPRB,1.4443E+00_JPRB,1.0897E+00_JPRB,1.6879E+00_JPRB/)  
+KBO( :, 1,24,12) = (/&
+ & 5.2019E-01_JPRB,5.8108E-01_JPRB,5.0714E-01_JPRB,3.7894E-01_JPRB,1.0335E+00_JPRB/)  
+KBO( :, 2,24,12) = (/&
+ & 6.8678E-01_JPRB,7.6753E-01_JPRB,6.6836E-01_JPRB,5.0261E-01_JPRB,1.1623E+00_JPRB/)  
+KBO( :, 3,24,12) = (/&
+ & 8.7490E-01_JPRB,9.8000E-01_JPRB,8.5888E-01_JPRB,6.4559E-01_JPRB,1.3047E+00_JPRB/)  
+KBO( :, 4,24,12) = (/&
+ & 1.0855E+00_JPRB,1.2194E+00_JPRB,1.0757E+00_JPRB,8.1029E-01_JPRB,1.4513E+00_JPRB/)  
+KBO( :, 5,24,12) = (/&
+ & 1.3195E+00_JPRB,1.4875E+00_JPRB,1.3176E+00_JPRB,9.9617E-01_JPRB,1.6042E+00_JPRB/)  
+KBO( :, 1,25,12) = (/&
+ & 4.8125E-01_JPRB,5.3776E-01_JPRB,4.6543E-01_JPRB,3.4920E-01_JPRB,9.4296E-01_JPRB/)  
+KBO( :, 2,25,12) = (/&
+ & 6.3062E-01_JPRB,7.0671E-01_JPRB,6.1374E-01_JPRB,4.6025E-01_JPRB,1.0786E+00_JPRB/)  
+KBO( :, 3,25,12) = (/&
+ & 8.0138E-01_JPRB,8.9961E-01_JPRB,7.8690E-01_JPRB,5.8999E-01_JPRB,1.2219E+00_JPRB/)  
+KBO( :, 4,25,12) = (/&
+ & 9.9501E-01_JPRB,1.1200E+00_JPRB,9.8131E-01_JPRB,7.3979E-01_JPRB,1.3746E+00_JPRB/)  
+KBO( :, 5,25,12) = (/&
+ & 1.2133E+00_JPRB,1.3690E+00_JPRB,1.2002E+00_JPRB,9.0848E-01_JPRB,1.5310E+00_JPRB/)  
+KBO( :, 1,26,12) = (/&
+ & 4.4718E-01_JPRB,5.0045E-01_JPRB,4.3026E-01_JPRB,3.2190E-01_JPRB,8.7401E-01_JPRB/)  
+KBO( :, 2,26,12) = (/&
+ & 5.8377E-01_JPRB,6.5329E-01_JPRB,5.6669E-01_JPRB,4.2222E-01_JPRB,1.0132E+00_JPRB/)  
+KBO( :, 3,26,12) = (/&
+ & 7.4225E-01_JPRB,8.3122E-01_JPRB,7.2142E-01_JPRB,5.4093E-01_JPRB,1.1599E+00_JPRB/)  
+KBO( :, 4,26,12) = (/&
+ & 9.2576E-01_JPRB,1.0363E+00_JPRB,8.9875E-01_JPRB,6.7651E-01_JPRB,1.3150E+00_JPRB/)  
+KBO( :, 5,26,12) = (/&
+ & 1.1359E+00_JPRB,1.2689E+00_JPRB,1.1003E+00_JPRB,8.3128E-01_JPRB,1.4725E+00_JPRB/)  
+KBO( :, 1,27,12) = (/&
+ & 4.1742E-01_JPRB,4.6589E-01_JPRB,4.0014E-01_JPRB,2.9607E-01_JPRB,8.0311E-01_JPRB/)  
+KBO( :, 2,27,12) = (/&
+ & 5.4534E-01_JPRB,6.0694E-01_JPRB,5.2254E-01_JPRB,3.8814E-01_JPRB,9.3748E-01_JPRB/)  
+KBO( :, 3,27,12) = (/&
+ & 6.9705E-01_JPRB,7.7317E-01_JPRB,6.6432E-01_JPRB,4.9566E-01_JPRB,1.0808E+00_JPRB/)  
+KBO( :, 4,27,12) = (/&
+ & 8.7421E-01_JPRB,9.6588E-01_JPRB,8.2816E-01_JPRB,6.1915E-01_JPRB,1.2270E+00_JPRB/)  
+KBO( :, 5,27,12) = (/&
+ & 1.0783E+00_JPRB,1.1900E+00_JPRB,1.0151E+00_JPRB,7.6356E-01_JPRB,1.3781E+00_JPRB/)  
+KBO( :, 1,28,12) = (/&
+ & 3.9237E-01_JPRB,4.3515E-01_JPRB,3.7248E-01_JPRB,2.7305E-01_JPRB,7.2280E-01_JPRB/)  
+KBO( :, 2,28,12) = (/&
+ & 5.1563E-01_JPRB,5.6757E-01_JPRB,4.8403E-01_JPRB,3.5700E-01_JPRB,8.4677E-01_JPRB/)  
+KBO( :, 3,28,12) = (/&
+ & 6.6308E-01_JPRB,7.2519E-01_JPRB,6.1590E-01_JPRB,4.5472E-01_JPRB,9.7710E-01_JPRB/)  
+KBO( :, 4,28,12) = (/&
+ & 8.3646E-01_JPRB,9.1152E-01_JPRB,7.6997E-01_JPRB,5.6988E-01_JPRB,1.1096E+00_JPRB/)  
+KBO( :, 5,28,12) = (/&
+ & 1.0359E+00_JPRB,1.1276E+00_JPRB,9.4962E-01_JPRB,7.0526E-01_JPRB,1.2485E+00_JPRB/)  
+KBO( :, 1,29,12) = (/&
+ & 3.7279E-01_JPRB,4.1014E-01_JPRB,3.4774E-01_JPRB,2.5341E-01_JPRB,6.3269E-01_JPRB/)  
+KBO( :, 2,29,12) = (/&
+ & 4.9283E-01_JPRB,5.3769E-01_JPRB,4.5233E-01_JPRB,3.3021E-01_JPRB,7.4294E-01_JPRB/)  
+KBO( :, 3,29,12) = (/&
+ & 6.3731E-01_JPRB,6.8994E-01_JPRB,5.7780E-01_JPRB,4.2070E-01_JPRB,8.5678E-01_JPRB/)  
+KBO( :, 4,29,12) = (/&
+ & 8.0637E-01_JPRB,8.7025E-01_JPRB,7.2644E-01_JPRB,5.2908E-01_JPRB,9.7595E-01_JPRB/)  
+KBO( :, 5,29,12) = (/&
+ & 9.9943E-01_JPRB,1.0813E+00_JPRB,9.0128E-01_JPRB,6.5866E-01_JPRB,1.1019E+00_JPRB/)  
+KBO( :, 1,30,12) = (/&
+ & 3.5722E-01_JPRB,3.9080E-01_JPRB,3.2710E-01_JPRB,2.3601E-01_JPRB,5.4037E-01_JPRB/)  
+KBO( :, 2,30,12) = (/&
+ & 4.7448E-01_JPRB,5.1429E-01_JPRB,4.2783E-01_JPRB,3.0716E-01_JPRB,6.3503E-01_JPRB/)  
+KBO( :, 3,30,12) = (/&
+ & 6.1439E-01_JPRB,6.6308E-01_JPRB,5.4920E-01_JPRB,3.9345E-01_JPRB,7.3381E-01_JPRB/)  
+KBO( :, 4,30,12) = (/&
+ & 7.7644E-01_JPRB,8.4062E-01_JPRB,6.9350E-01_JPRB,4.9782E-01_JPRB,8.4010E-01_JPRB/)  
+KBO( :, 5,30,12) = (/&
+ & 9.6226E-01_JPRB,1.0478E+00_JPRB,8.6468E-01_JPRB,6.2256E-01_JPRB,9.5398E-01_JPRB/)  
+KBO( :, 1,31,12) = (/&
+ & 3.4498E-01_JPRB,3.7545E-01_JPRB,3.1150E-01_JPRB,2.2122E-01_JPRB,4.4905E-01_JPRB/)  
+KBO( :, 2,31,12) = (/&
+ & 4.5820E-01_JPRB,4.9653E-01_JPRB,4.0983E-01_JPRB,2.8888E-01_JPRB,5.2917E-01_JPRB/)  
+KBO( :, 3,31,12) = (/&
+ & 5.9170E-01_JPRB,6.4378E-01_JPRB,5.2810E-01_JPRB,3.7284E-01_JPRB,6.1590E-01_JPRB/)  
+KBO( :, 4,31,12) = (/&
+ & 7.4787E-01_JPRB,8.1835E-01_JPRB,6.7064E-01_JPRB,4.7448E-01_JPRB,7.0953E-01_JPRB/)  
+KBO( :, 5,31,12) = (/&
+ & 9.2776E-01_JPRB,1.0238E+00_JPRB,8.4020E-01_JPRB,5.9540E-01_JPRB,8.0850E-01_JPRB/)  
+KBO( :, 1,32,12) = (/&
+ & 3.3387E-01_JPRB,3.6397E-01_JPRB,2.9979E-01_JPRB,2.0962E-01_JPRB,3.7307E-01_JPRB/)  
+KBO( :, 2,32,12) = (/&
+ & 4.4163E-01_JPRB,4.8363E-01_JPRB,3.9607E-01_JPRB,2.7594E-01_JPRB,4.4216E-01_JPRB/)  
+KBO( :, 3,32,12) = (/&
+ & 5.7015E-01_JPRB,6.2876E-01_JPRB,5.1363E-01_JPRB,3.5765E-01_JPRB,5.1788E-01_JPRB/)  
+KBO( :, 4,32,12) = (/&
+ & 7.2141E-01_JPRB,8.0151E-01_JPRB,6.5517E-01_JPRB,4.5717E-01_JPRB,6.0016E-01_JPRB/)  
+KBO( :, 5,32,12) = (/&
+ & 8.9922E-01_JPRB,1.0062E+00_JPRB,8.2407E-01_JPRB,5.7459E-01_JPRB,6.8536E-01_JPRB/)  
+KBO( :, 1,33,12) = (/&
+ & 3.2293E-01_JPRB,3.5547E-01_JPRB,2.9093E-01_JPRB,2.0149E-01_JPRB,3.0917E-01_JPRB/)  
+KBO( :, 2,33,12) = (/&
+ & 4.2627E-01_JPRB,4.7355E-01_JPRB,3.8619E-01_JPRB,2.6640E-01_JPRB,3.6920E-01_JPRB/)  
+KBO( :, 3,33,12) = (/&
+ & 5.5058E-01_JPRB,6.1665E-01_JPRB,5.0346E-01_JPRB,3.4679E-01_JPRB,4.3505E-01_JPRB/)  
+KBO( :, 4,33,12) = (/&
+ & 6.9980E-01_JPRB,7.8852E-01_JPRB,6.4475E-01_JPRB,4.4442E-01_JPRB,5.0488E-01_JPRB/)  
+KBO( :, 5,33,12) = (/&
+ & 8.7592E-01_JPRB,9.9390E-01_JPRB,8.1496E-01_JPRB,5.6029E-01_JPRB,5.7746E-01_JPRB/)  
+KBO( :, 1,34,12) = (/&
+ & 3.0940E-01_JPRB,3.4528E-01_JPRB,2.8156E-01_JPRB,1.9363E-01_JPRB,2.6611E-01_JPRB/)  
+KBO( :, 2,34,12) = (/&
+ & 4.0894E-01_JPRB,4.6074E-01_JPRB,3.7565E-01_JPRB,2.5763E-01_JPRB,3.1938E-01_JPRB/)  
+KBO( :, 3,34,12) = (/&
+ & 5.3041E-01_JPRB,6.0251E-01_JPRB,4.9185E-01_JPRB,3.3679E-01_JPRB,3.7762E-01_JPRB/)  
+KBO( :, 4,34,12) = (/&
+ & 6.7786E-01_JPRB,7.7350E-01_JPRB,6.3399E-01_JPRB,4.3276E-01_JPRB,4.3880E-01_JPRB/)  
+KBO( :, 5,34,12) = (/&
+ & 8.5216E-01_JPRB,9.8050E-01_JPRB,8.0443E-01_JPRB,5.4758E-01_JPRB,5.0384E-01_JPRB/)  
+KBO( :, 1,35,12) = (/&
+ & 2.8939E-01_JPRB,3.2702E-01_JPRB,2.6622E-01_JPRB,1.8249E-01_JPRB,2.2426E-01_JPRB/)  
+KBO( :, 2,35,12) = (/&
+ & 3.8432E-01_JPRB,4.3860E-01_JPRB,3.5768E-01_JPRB,2.4461E-01_JPRB,2.7044E-01_JPRB/)  
+KBO( :, 3,35,12) = (/&
+ & 5.0227E-01_JPRB,5.7687E-01_JPRB,4.7133E-01_JPRB,3.2156E-01_JPRB,3.2047E-01_JPRB/)  
+KBO( :, 4,35,12) = (/&
+ & 6.4522E-01_JPRB,7.4630E-01_JPRB,6.1202E-01_JPRB,4.1516E-01_JPRB,3.7356E-01_JPRB/)  
+KBO( :, 5,35,12) = (/&
+ & 8.1623E-01_JPRB,9.5325E-01_JPRB,7.8163E-01_JPRB,5.2821E-01_JPRB,4.3272E-01_JPRB/)  
+KBO( :, 1,36,12) = (/&
+ & 2.6330E-01_JPRB,3.0070E-01_JPRB,2.4442E-01_JPRB,1.6757E-01_JPRB,1.8310E-01_JPRB/)  
+KBO( :, 2,36,12) = (/&
+ & 3.5255E-01_JPRB,4.0667E-01_JPRB,3.3144E-01_JPRB,2.2644E-01_JPRB,2.2200E-01_JPRB/)  
+KBO( :, 3,36,12) = (/&
+ & 4.6468E-01_JPRB,5.3948E-01_JPRB,4.4110E-01_JPRB,3.0012E-01_JPRB,2.6412E-01_JPRB/)  
+KBO( :, 4,36,12) = (/&
+ & 6.0155E-01_JPRB,7.0486E-01_JPRB,5.7783E-01_JPRB,3.9058E-01_JPRB,3.1002E-01_JPRB/)  
+KBO( :, 5,36,12) = (/&
+ & 7.6703E-01_JPRB,9.0873E-01_JPRB,7.4457E-01_JPRB,5.0060E-01_JPRB,3.6395E-01_JPRB/)  
+KBO( :, 1,37,12) = (/&
+ & 2.3001E-01_JPRB,2.6442E-01_JPRB,2.1459E-01_JPRB,1.4727E-01_JPRB,1.5536E-01_JPRB/)  
+KBO( :, 2,37,12) = (/&
+ & 3.1096E-01_JPRB,3.6197E-01_JPRB,2.9461E-01_JPRB,2.0129E-01_JPRB,1.9004E-01_JPRB/)  
+KBO( :, 3,37,12) = (/&
+ & 4.1431E-01_JPRB,4.8589E-01_JPRB,3.9700E-01_JPRB,2.7000E-01_JPRB,2.2800E-01_JPRB/)  
+KBO( :, 4,37,12) = (/&
+ & 5.4226E-01_JPRB,6.4266E-01_JPRB,5.2665E-01_JPRB,3.5524E-01_JPRB,2.6910E-01_JPRB/)  
+KBO( :, 5,37,12) = (/&
+ & 6.9841E-01_JPRB,8.3797E-01_JPRB,6.8663E-01_JPRB,4.5963E-01_JPRB,3.1774E-01_JPRB/)  
+KBO( :, 1,38,12) = (/&
+ & 2.0134E-01_JPRB,2.3227E-01_JPRB,1.8814E-01_JPRB,1.2935E-01_JPRB,1.3137E-01_JPRB/)  
+KBO( :, 2,38,12) = (/&
+ & 2.7468E-01_JPRB,3.2208E-01_JPRB,2.6174E-01_JPRB,1.7891E-01_JPRB,1.6217E-01_JPRB/)  
+KBO( :, 3,38,12) = (/&
+ & 3.6956E-01_JPRB,4.3776E-01_JPRB,3.5733E-01_JPRB,2.4289E-01_JPRB,1.9623E-01_JPRB/)  
+KBO( :, 4,38,12) = (/&
+ & 4.8896E-01_JPRB,5.8640E-01_JPRB,4.8002E-01_JPRB,3.2349E-01_JPRB,2.3300E-01_JPRB/)  
+KBO( :, 5,38,12) = (/&
+ & 6.3666E-01_JPRB,7.7346E-01_JPRB,6.3380E-01_JPRB,4.2286E-01_JPRB,2.7663E-01_JPRB/)  
+KBO( :, 1,39,12) = (/&
+ & 1.7697E-01_JPRB,2.0467E-01_JPRB,1.6540E-01_JPRB,1.1386E-01_JPRB,1.1007E-01_JPRB/)  
+KBO( :, 2,39,12) = (/&
+ & 2.4368E-01_JPRB,2.8735E-01_JPRB,2.3319E-01_JPRB,1.5947E-01_JPRB,1.3719E-01_JPRB/)  
+KBO( :, 3,39,12) = (/&
+ & 3.3092E-01_JPRB,3.9580E-01_JPRB,3.2268E-01_JPRB,2.1918E-01_JPRB,1.6720E-01_JPRB/)  
+KBO( :, 4,39,12) = (/&
+ & 4.4249E-01_JPRB,5.3699E-01_JPRB,4.3914E-01_JPRB,2.9552E-01_JPRB,1.9987E-01_JPRB/)  
+KBO( :, 5,39,12) = (/&
+ & 5.8226E-01_JPRB,7.1600E-01_JPRB,5.8709E-01_JPRB,3.9058E-01_JPRB,2.3879E-01_JPRB/)  
+KBO( :, 1,40,12) = (/&
+ & 1.5084E-01_JPRB,1.7449E-01_JPRB,1.4045E-01_JPRB,9.6794E-02_JPRB,9.3392E-02_JPRB/)  
+KBO( :, 2,40,12) = (/&
+ & 2.1010E-01_JPRB,2.4822E-01_JPRB,2.0097E-01_JPRB,1.3766E-01_JPRB,1.1767E-01_JPRB/)  
+KBO( :, 3,40,12) = (/&
+ & 2.8835E-01_JPRB,3.4716E-01_JPRB,2.8248E-01_JPRB,1.9197E-01_JPRB,1.4495E-01_JPRB/)  
+KBO( :, 4,40,12) = (/&
+ & 3.8988E-01_JPRB,4.7789E-01_JPRB,3.9037E-01_JPRB,2.6261E-01_JPRB,1.7468E-01_JPRB/)  
+KBO( :, 5,40,12) = (/&
+ & 5.1945E-01_JPRB,6.4586E-01_JPRB,5.2903E-01_JPRB,3.5162E-01_JPRB,2.0975E-01_JPRB/)  
+KBO( :, 1,41,12) = (/&
+ & 1.2817E-01_JPRB,1.4829E-01_JPRB,1.1887E-01_JPRB,8.1840E-02_JPRB,7.9057E-02_JPRB/)  
+KBO( :, 2,41,12) = (/&
+ & 1.8060E-01_JPRB,2.1362E-01_JPRB,1.7247E-01_JPRB,1.1830E-01_JPRB,1.0081E-01_JPRB/)  
+KBO( :, 3,41,12) = (/&
+ & 2.5080E-01_JPRB,3.0334E-01_JPRB,2.4634E-01_JPRB,1.6753E-01_JPRB,1.2548E-01_JPRB/)  
+KBO( :, 4,41,12) = (/&
+ & 3.4280E-01_JPRB,4.2376E-01_JPRB,3.4586E-01_JPRB,2.3251E-01_JPRB,1.5256E-01_JPRB/)  
+KBO( :, 5,41,12) = (/&
+ & 4.6230E-01_JPRB,5.8070E-01_JPRB,4.7518E-01_JPRB,3.1572E-01_JPRB,1.8431E-01_JPRB/)  
+KBO( :, 1,42,12) = (/&
+ & 1.0893E-01_JPRB,1.2613E-01_JPRB,1.0083E-01_JPRB,6.9157E-02_JPRB,6.6394E-02_JPRB/)  
+KBO( :, 2,42,12) = (/&
+ & 1.5547E-01_JPRB,1.8415E-01_JPRB,1.4803E-01_JPRB,1.0161E-01_JPRB,8.5777E-02_JPRB/)  
+KBO( :, 3,42,12) = (/&
+ & 2.1846E-01_JPRB,2.6502E-01_JPRB,2.1486E-01_JPRB,1.4627E-01_JPRB,1.0794E-01_JPRB/)  
+KBO( :, 4,42,12) = (/&
+ & 3.0198E-01_JPRB,3.7587E-01_JPRB,3.0638E-01_JPRB,2.0583E-01_JPRB,1.3247E-01_JPRB/)  
+KBO( :, 5,42,12) = (/&
+ & 4.1199E-01_JPRB,5.2225E-01_JPRB,4.2709E-01_JPRB,2.8351E-01_JPRB,1.6111E-01_JPRB/)  
+KBO( :, 1,43,12) = (/&
+ & 9.0638E-02_JPRB,1.0503E-01_JPRB,8.3795E-02_JPRB,5.7071E-02_JPRB,5.5354E-02_JPRB/)  
+KBO( :, 2,43,12) = (/&
+ & 1.3131E-01_JPRB,1.5548E-01_JPRB,1.2458E-01_JPRB,8.5364E-02_JPRB,7.2576E-02_JPRB/)  
+KBO( :, 3,43,12) = (/&
+ & 1.8681E-01_JPRB,2.2707E-01_JPRB,1.8347E-01_JPRB,1.2501E-01_JPRB,9.2538E-02_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART30',1,ZHOOK_HANDLE)
+END SUBROUTINE PART30
+
+
+SUBROUTINE PART31
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART31',0,ZHOOK_HANDLE)
+
+
+KBO( :, 4,43,12) = (/&
+ & 2.6160E-01_JPRB,3.2672E-01_JPRB,2.6595E-01_JPRB,1.7876E-01_JPRB,1.1500E-01_JPRB/)  
+KBO( :, 5,43,12) = (/&
+ & 3.6120E-01_JPRB,4.6097E-01_JPRB,3.7669E-01_JPRB,2.4999E-01_JPRB,1.4075E-01_JPRB/)  
+KBO( :, 1,44,12) = (/&
+ & 7.4518E-02_JPRB,8.6409E-02_JPRB,6.8952E-02_JPRB,4.6577E-02_JPRB,4.5787E-02_JPRB/)  
+KBO( :, 2,44,12) = (/&
+ & 1.0975E-01_JPRB,1.2994E-01_JPRB,1.0385E-01_JPRB,7.0835E-02_JPRB,6.0976E-02_JPRB/)  
+KBO( :, 3,44,12) = (/&
+ & 1.5828E-01_JPRB,1.9250E-01_JPRB,1.5506E-01_JPRB,1.0558E-01_JPRB,7.8936E-02_JPRB/)  
+KBO( :, 4,44,12) = (/&
+ & 2.2471E-01_JPRB,2.8098E-01_JPRB,2.2821E-01_JPRB,1.5365E-01_JPRB,9.9460E-02_JPRB/)  
+KBO( :, 5,44,12) = (/&
+ & 3.1406E-01_JPRB,4.0269E-01_JPRB,3.2871E-01_JPRB,2.1813E-01_JPRB,1.2276E-01_JPRB/)  
+KBO( :, 1,45,12) = (/&
+ & 6.0927E-02_JPRB,7.0888E-02_JPRB,5.6604E-02_JPRB,3.8007E-02_JPRB,3.7451E-02_JPRB/)  
+KBO( :, 2,45,12) = (/&
+ & 9.1562E-02_JPRB,1.0848E-01_JPRB,8.6563E-02_JPRB,5.8638E-02_JPRB,5.0739E-02_JPRB/)  
+KBO( :, 3,45,12) = (/&
+ & 1.3401E-01_JPRB,1.6305E-01_JPRB,1.3093E-01_JPRB,8.8909E-02_JPRB,6.6645E-02_JPRB/)  
+KBO( :, 4,45,12) = (/&
+ & 1.9278E-01_JPRB,2.4132E-01_JPRB,1.9538E-01_JPRB,1.3171E-01_JPRB,8.5195E-02_JPRB/)  
+KBO( :, 5,45,12) = (/&
+ & 2.7301E-01_JPRB,3.5087E-01_JPRB,2.8599E-01_JPRB,1.8994E-01_JPRB,1.0627E-01_JPRB/)  
+KBO( :, 1,46,12) = (/&
+ & 4.9049E-02_JPRB,5.7390E-02_JPRB,4.5841E-02_JPRB,3.0652E-02_JPRB,3.0244E-02_JPRB/)  
+KBO( :, 2,46,12) = (/&
+ & 7.5395E-02_JPRB,8.9544E-02_JPRB,7.1479E-02_JPRB,4.8016E-02_JPRB,4.1812E-02_JPRB/)  
+KBO( :, 3,46,12) = (/&
+ & 1.1243E-01_JPRB,1.3673E-01_JPRB,1.0940E-01_JPRB,7.3992E-02_JPRB,5.5802E-02_JPRB/)  
+KBO( :, 4,46,12) = (/&
+ & 1.6385E-01_JPRB,2.0515E-01_JPRB,1.6554E-01_JPRB,1.1163E-01_JPRB,7.2384E-02_JPRB/)  
+KBO( :, 5,46,12) = (/&
+ & 2.3535E-01_JPRB,3.0228E-01_JPRB,2.4596E-01_JPRB,1.6359E-01_JPRB,9.1350E-02_JPRB/)  
+KBO( :, 1,47,12) = (/&
+ & 3.8455E-02_JPRB,4.5311E-02_JPRB,3.6191E-02_JPRB,2.4099E-02_JPRB,2.4180E-02_JPRB/)  
+KBO( :, 2,47,12) = (/&
+ & 6.0543E-02_JPRB,7.2219E-02_JPRB,5.7752E-02_JPRB,3.8501E-02_JPRB,3.4153E-02_JPRB/)  
+KBO( :, 3,47,12) = (/&
+ & 9.2469E-02_JPRB,1.1229E-01_JPRB,8.9649E-02_JPRB,6.0326E-02_JPRB,4.6448E-02_JPRB/)  
+KBO( :, 4,47,12) = (/&
+ & 1.3689E-01_JPRB,1.7102E-01_JPRB,1.3750E-01_JPRB,9.2547E-02_JPRB,6.1214E-02_JPRB/)  
+KBO( :, 5,47,12) = (/&
+ & 1.9927E-01_JPRB,2.5535E-01_JPRB,2.0704E-01_JPRB,1.3818E-01_JPRB,7.8425E-02_JPRB/)  
+KBO( :, 1,48,12) = (/&
+ & 2.9907E-02_JPRB,3.5538E-02_JPRB,2.8349E-02_JPRB,1.8781E-02_JPRB,1.9054E-02_JPRB/)  
+KBO( :, 2,48,12) = (/&
+ & 4.8228E-02_JPRB,5.7904E-02_JPRB,4.6345E-02_JPRB,3.0764E-02_JPRB,2.7466E-02_JPRB/)  
+KBO( :, 3,48,12) = (/&
+ & 7.5470E-02_JPRB,9.1806E-02_JPRB,7.3317E-02_JPRB,4.8995E-02_JPRB,3.8151E-02_JPRB/)  
+KBO( :, 4,48,12) = (/&
+ & 1.1406E-01_JPRB,1.4204E-01_JPRB,1.1383E-01_JPRB,7.6343E-02_JPRB,5.1172E-02_JPRB/)  
+KBO( :, 5,48,12) = (/&
+ & 1.6822E-01_JPRB,2.1497E-01_JPRB,1.7372E-01_JPRB,1.1607E-01_JPRB,6.6629E-02_JPRB/)  
+KBO( :, 1,49,12) = (/&
+ & 2.3084E-02_JPRB,2.7602E-02_JPRB,2.2043E-02_JPRB,1.4515E-02_JPRB,1.4700E-02_JPRB/)  
+KBO( :, 2,49,12) = (/&
+ & 3.8134E-02_JPRB,4.6138E-02_JPRB,3.6932E-02_JPRB,2.4422E-02_JPRB,2.1696E-02_JPRB/)  
+KBO( :, 3,49,12) = (/&
+ & 6.1053E-02_JPRB,7.4691E-02_JPRB,5.9743E-02_JPRB,3.9618E-02_JPRB,3.0784E-02_JPRB/)  
+KBO( :, 4,49,12) = (/&
+ & 9.4624E-02_JPRB,1.1747E-01_JPRB,9.3906E-02_JPRB,6.2717E-02_JPRB,4.2057E-02_JPRB/)  
+KBO( :, 5,49,12) = (/&
+ & 1.4162E-01_JPRB,1.8031E-01_JPRB,1.4520E-01_JPRB,9.6951E-02_JPRB,5.5665E-02_JPRB/)  
+KBO( :, 1,50,12) = (/&
+ & 1.7880E-02_JPRB,2.1522E-02_JPRB,1.7193E-02_JPRB,1.1281E-02_JPRB,1.1563E-02_JPRB/)  
+KBO( :, 2,50,12) = (/&
+ & 3.0304E-02_JPRB,3.6988E-02_JPRB,2.9594E-02_JPRB,1.9489E-02_JPRB,1.7511E-02_JPRB/)  
+KBO( :, 3,50,12) = (/&
+ & 4.9620E-02_JPRB,6.1130E-02_JPRB,4.8990E-02_JPRB,3.2313E-02_JPRB,2.5345E-02_JPRB/)  
+KBO( :, 4,50,12) = (/&
+ & 7.8794E-02_JPRB,9.7813E-02_JPRB,7.8198E-02_JPRB,5.1943E-02_JPRB,3.5298E-02_JPRB/)  
+KBO( :, 5,50,12) = (/&
+ & 1.2010E-01_JPRB,1.5227E-01_JPRB,1.2229E-01_JPRB,8.1438E-02_JPRB,4.7462E-02_JPRB/)  
+KBO( :, 1,51,12) = (/&
+ & 1.3778E-02_JPRB,1.6753E-02_JPRB,1.3366E-02_JPRB,8.7587E-03_JPRB,9.1691E-03_JPRB/)  
+KBO( :, 2,51,12) = (/&
+ & 2.4068E-02_JPRB,2.9598E-02_JPRB,2.3720E-02_JPRB,1.5531E-02_JPRB,1.4241E-02_JPRB/)  
+KBO( :, 3,51,12) = (/&
+ & 4.0319E-02_JPRB,5.0023E-02_JPRB,4.0146E-02_JPRB,2.6379E-02_JPRB,2.1041E-02_JPRB/)  
+KBO( :, 4,51,12) = (/&
+ & 6.5444E-02_JPRB,8.1559E-02_JPRB,6.5274E-02_JPRB,4.3107E-02_JPRB,2.9808E-02_JPRB/)  
+KBO( :, 5,51,12) = (/&
+ & 1.0193E-01_JPRB,1.2878E-01_JPRB,1.0316E-01_JPRB,6.8485E-02_JPRB,4.0764E-02_JPRB/)  
+KBO( :, 1,52,12) = (/&
+ & 1.0503E-02_JPRB,1.2908E-02_JPRB,1.0296E-02_JPRB,6.7391E-03_JPRB,7.1632E-03_JPRB/)  
+KBO( :, 2,52,12) = (/&
+ & 1.8963E-02_JPRB,2.3514E-02_JPRB,1.8863E-02_JPRB,1.2292E-02_JPRB,1.1416E-02_JPRB/)  
+KBO( :, 3,52,12) = (/&
+ & 3.2574E-02_JPRB,4.0763E-02_JPRB,3.2692E-02_JPRB,2.1413E-02_JPRB,1.7232E-02_JPRB/)  
+KBO( :, 4,52,12) = (/&
+ & 5.4015E-02_JPRB,6.7725E-02_JPRB,5.4297E-02_JPRB,3.5648E-02_JPRB,2.4880E-02_JPRB/)  
+KBO( :, 5,52,12) = (/&
+ & 8.6142E-02_JPRB,1.0850E-01_JPRB,8.6783E-02_JPRB,5.7412E-02_JPRB,3.4604E-02_JPRB/)  
+KBO( :, 1,53,12) = (/&
+ & 7.9034E-03_JPRB,9.8239E-03_JPRB,7.8369E-03_JPRB,5.1248E-03_JPRB,5.4843E-03_JPRB/)  
+KBO( :, 2,53,12) = (/&
+ & 1.4792E-02_JPRB,1.8526E-02_JPRB,1.4847E-02_JPRB,9.6585E-03_JPRB,8.9798E-03_JPRB/)  
+KBO( :, 3,53,12) = (/&
+ & 2.6145E-02_JPRB,3.2976E-02_JPRB,2.6454E-02_JPRB,1.7260E-02_JPRB,1.3880E-02_JPRB/)  
+KBO( :, 4,53,12) = (/&
+ & 4.4324E-02_JPRB,5.5900E-02_JPRB,4.4894E-02_JPRB,2.9345E-02_JPRB,2.0450E-02_JPRB/)  
+KBO( :, 5,53,12) = (/&
+ & 7.2259E-02_JPRB,9.1031E-02_JPRB,7.2836E-02_JPRB,4.7964E-02_JPRB,2.8899E-02_JPRB/)  
+KBO( :, 1,54,12) = (/&
+ & 6.0030E-03_JPRB,7.5343E-03_JPRB,6.0206E-03_JPRB,3.9269E-03_JPRB,4.4374E-03_JPRB/)  
+KBO( :, 2,54,12) = (/&
+ & 1.1626E-02_JPRB,1.4746E-02_JPRB,1.1801E-02_JPRB,7.6733E-03_JPRB,7.4644E-03_JPRB/)  
+KBO( :, 3,54,12) = (/&
+ & 2.1204E-02_JPRB,2.6932E-02_JPRB,2.1639E-02_JPRB,1.4058E-02_JPRB,1.1820E-02_JPRB/)  
+KBO( :, 4,54,12) = (/&
+ & 3.6734E-02_JPRB,4.6630E-02_JPRB,3.7473E-02_JPRB,2.4399E-02_JPRB,1.7746E-02_JPRB/)  
+KBO( :, 5,54,12) = (/&
+ & 6.1048E-02_JPRB,7.7176E-02_JPRB,6.1839E-02_JPRB,4.0517E-02_JPRB,2.5474E-02_JPRB/)  
+KBO( :, 1,55,12) = (/&
+ & 4.5630E-03_JPRB,5.7681E-03_JPRB,4.6205E-03_JPRB,3.0002E-03_JPRB,3.7045E-03_JPRB/)  
+KBO( :, 2,55,12) = (/&
+ & 9.1273E-03_JPRB,1.1728E-02_JPRB,9.3956E-03_JPRB,6.0945E-03_JPRB,6.4077E-03_JPRB/)  
+KBO( :, 3,55,12) = (/&
+ & 1.7191E-02_JPRB,2.2039E-02_JPRB,1.7711E-02_JPRB,1.1469E-02_JPRB,1.0390E-02_JPRB/)  
+KBO( :, 4,55,12) = (/&
+ & 3.0517E-02_JPRB,3.9009E-02_JPRB,3.1321E-02_JPRB,2.0350E-02_JPRB,1.5909E-02_JPRB/)  
+KBO( :, 5,55,12) = (/&
+ & 5.1680E-02_JPRB,6.5618E-02_JPRB,5.2649E-02_JPRB,3.4345E-02_JPRB,2.3231E-02_JPRB/)  
+KBO( :, 1,56,12) = (/&
+ & 3.4429E-03_JPRB,4.3693E-03_JPRB,3.5102E-03_JPRB,2.2664E-03_JPRB,3.0972E-03_JPRB/)  
+KBO( :, 2,56,12) = (/&
+ & 7.1067E-03_JPRB,9.2412E-03_JPRB,7.4106E-03_JPRB,4.8010E-03_JPRB,5.4938E-03_JPRB/)  
+KBO( :, 3,56,12) = (/&
+ & 1.3838E-02_JPRB,1.7926E-02_JPRB,1.4393E-02_JPRB,9.3102E-03_JPRB,9.1167E-03_JPRB/)  
+KBO( :, 4,56,12) = (/&
+ & 2.5226E-02_JPRB,3.2470E-02_JPRB,2.6067E-02_JPRB,1.6890E-02_JPRB,1.4253E-02_JPRB/)  
+KBO( :, 5,56,12) = (/&
+ & 4.3555E-02_JPRB,5.5559E-02_JPRB,4.4639E-02_JPRB,2.9008E-02_JPRB,2.1194E-02_JPRB/)  
+KBO( :, 1,57,12) = (/&
+ & 2.5835E-03_JPRB,3.2792E-03_JPRB,2.6340E-03_JPRB,1.6928E-03_JPRB,2.5979E-03_JPRB/)  
+KBO( :, 2,57,12) = (/&
+ & 5.4818E-03_JPRB,7.2018E-03_JPRB,5.7860E-03_JPRB,3.7399E-03_JPRB,4.6938E-03_JPRB/)  
+KBO( :, 3,57,12) = (/&
+ & 1.1045E-02_JPRB,1.4477E-02_JPRB,1.1615E-02_JPRB,7.5071E-03_JPRB,7.9880E-03_JPRB/)  
+KBO( :, 4,57,12) = (/&
+ & 2.0734E-02_JPRB,2.6855E-02_JPRB,2.1584E-02_JPRB,1.3939E-02_JPRB,1.2771E-02_JPRB/)  
+KBO( :, 5,57,12) = (/&
+ & 3.6531E-02_JPRB,4.6834E-02_JPRB,3.7641E-02_JPRB,2.4391E-02_JPRB,1.9328E-02_JPRB/)  
+KBO( :, 1,58,12) = (/&
+ & 1.9554E-03_JPRB,2.4805E-03_JPRB,1.9815E-03_JPRB,1.2675E-03_JPRB,2.2311E-03_JPRB/)  
+KBO( :, 2,58,12) = (/&
+ & 4.2406E-03_JPRB,5.6194E-03_JPRB,4.5251E-03_JPRB,2.9142E-03_JPRB,4.0751E-03_JPRB/)  
+KBO( :, 3,58,12) = (/&
+ & 8.8253E-03_JPRB,1.1715E-02_JPRB,9.4049E-03_JPRB,6.0687E-03_JPRB,7.1082E-03_JPRB/)  
+KBO( :, 4,58,12) = (/&
+ & 1.7081E-02_JPRB,2.2294E-02_JPRB,1.7921E-02_JPRB,1.1542E-02_JPRB,1.1601E-02_JPRB/)  
+KBO( :, 5,58,12) = (/&
+ & 3.0768E-02_JPRB,3.9661E-02_JPRB,3.1853E-02_JPRB,2.0599E-02_JPRB,1.7860E-02_JPRB/)  
+KBO( :, 1,59,12) = (/&
+ & 1.7311E-03_JPRB,2.1950E-03_JPRB,1.7464E-03_JPRB,1.1095E-03_JPRB,2.2810E-03_JPRB/)  
+KBO( :, 2,59,12) = (/&
+ & 3.7867E-03_JPRB,5.0375E-03_JPRB,4.0622E-03_JPRB,2.6050E-03_JPRB,4.2229E-03_JPRB/)  
+KBO( :, 3,59,12) = (/&
+ & 7.9927E-03_JPRB,1.0691E-02_JPRB,8.5872E-03_JPRB,5.5330E-03_JPRB,7.4637E-03_JPRB/)  
+KBO( :, 4,59,12) = (/&
+ & 1.5706E-02_JPRB,2.0603E-02_JPRB,1.6559E-02_JPRB,1.0653E-02_JPRB,1.2338E-02_JPRB/)  
+KBO( :, 5,59,12) = (/&
+ & 2.8614E-02_JPRB,3.6995E-02_JPRB,2.9703E-02_JPRB,1.9191E-02_JPRB,1.9178E-02_JPRB/)  
+KBO( :, 1,13,13) = (/&
+ & 1.2852E+00_JPRB,1.0643E+00_JPRB,9.2423E-01_JPRB,7.7210E-01_JPRB,4.8560E+00_JPRB/)  
+KBO( :, 2,13,13) = (/&
+ & 1.8300E+00_JPRB,1.5153E+00_JPRB,1.3056E+00_JPRB,1.0896E+00_JPRB,5.1762E+00_JPRB/)  
+KBO( :, 3,13,13) = (/&
+ & 2.4898E+00_JPRB,2.0619E+00_JPRB,1.7781E+00_JPRB,1.4720E+00_JPRB,5.5995E+00_JPRB/)  
+KBO( :, 4,13,13) = (/&
+ & 3.2580E+00_JPRB,2.7136E+00_JPRB,2.3379E+00_JPRB,1.9103E+00_JPRB,6.0006E+00_JPRB/)  
+KBO( :, 5,13,13) = (/&
+ & 4.1344E+00_JPRB,3.4741E+00_JPRB,2.9826E+00_JPRB,2.3986E+00_JPRB,6.3254E+00_JPRB/)  
+KBO( :, 1,14,13) = (/&
+ & 1.4353E+00_JPRB,1.1813E+00_JPRB,1.0097E+00_JPRB,8.1766E-01_JPRB,4.4364E+00_JPRB/)  
+KBO( :, 2,14,13) = (/&
+ & 2.0320E+00_JPRB,1.6766E+00_JPRB,1.4217E+00_JPRB,1.1476E+00_JPRB,4.7777E+00_JPRB/)  
+KBO( :, 3,14,13) = (/&
+ & 2.7397E+00_JPRB,2.2766E+00_JPRB,1.9164E+00_JPRB,1.5404E+00_JPRB,5.1956E+00_JPRB/)  
+KBO( :, 4,14,13) = (/&
+ & 3.5525E+00_JPRB,2.9774E+00_JPRB,2.5038E+00_JPRB,1.9898E+00_JPRB,5.5579E+00_JPRB/)  
+KBO( :, 5,14,13) = (/&
+ & 4.4583E+00_JPRB,3.7784E+00_JPRB,3.1767E+00_JPRB,2.5098E+00_JPRB,5.8954E+00_JPRB/)  
+KBO( :, 1,15,13) = (/&
+ & 1.5785E+00_JPRB,1.3067E+00_JPRB,1.1097E+00_JPRB,8.6674E-01_JPRB,3.8492E+00_JPRB/)  
+KBO( :, 2,15,13) = (/&
+ & 2.2125E+00_JPRB,1.8434E+00_JPRB,1.5563E+00_JPRB,1.2050E+00_JPRB,4.1968E+00_JPRB/)  
+KBO( :, 3,15,13) = (/&
+ & 2.9595E+00_JPRB,2.4844E+00_JPRB,2.0889E+00_JPRB,1.6068E+00_JPRB,4.5453E+00_JPRB/)  
+KBO( :, 4,15,13) = (/&
+ & 3.8045E+00_JPRB,3.2259E+00_JPRB,2.7088E+00_JPRB,2.0757E+00_JPRB,4.8945E+00_JPRB/)  
+KBO( :, 5,15,13) = (/&
+ & 4.7324E+00_JPRB,4.0530E+00_JPRB,3.4024E+00_JPRB,2.6201E+00_JPRB,5.1308E+00_JPRB/)  
+KBO( :, 1,16,13) = (/&
+ & 1.6990E+00_JPRB,1.4270E+00_JPRB,1.2197E+00_JPRB,9.1540E-01_JPRB,3.2967E+00_JPRB/)  
+KBO( :, 2,16,13) = (/&
+ & 2.3632E+00_JPRB,1.9965E+00_JPRB,1.6991E+00_JPRB,1.2635E+00_JPRB,3.5992E+00_JPRB/)  
+KBO( :, 3,16,13) = (/&
+ & 3.1332E+00_JPRB,2.6737E+00_JPRB,2.2662E+00_JPRB,1.6797E+00_JPRB,3.8825E+00_JPRB/)  
+KBO( :, 4,16,13) = (/&
+ & 3.9954E+00_JPRB,3.4413E+00_JPRB,2.9150E+00_JPRB,2.1732E+00_JPRB,4.0955E+00_JPRB/)  
+KBO( :, 5,16,13) = (/&
+ & 4.9441E+00_JPRB,4.2813E+00_JPRB,3.6296E+00_JPRB,2.7347E+00_JPRB,4.3356E+00_JPRB/)  
+KBO( :, 1,17,13) = (/&
+ & 1.7867E+00_JPRB,1.5291E+00_JPRB,1.3172E+00_JPRB,9.6442E-01_JPRB,2.8946E+00_JPRB/)  
+KBO( :, 2,17,13) = (/&
+ & 2.4630E+00_JPRB,2.1240E+00_JPRB,1.8197E+00_JPRB,1.3271E+00_JPRB,3.1209E+00_JPRB/)  
+KBO( :, 3,17,13) = (/&
+ & 3.2412E+00_JPRB,2.8205E+00_JPRB,2.4120E+00_JPRB,1.7621E+00_JPRB,3.3231E+00_JPRB/)  
+KBO( :, 4,17,13) = (/&
+ & 4.1129E+00_JPRB,3.6026E+00_JPRB,3.0785E+00_JPRB,2.2752E+00_JPRB,3.5467E+00_JPRB/)  
+KBO( :, 5,17,13) = (/&
+ & 5.0518E+00_JPRB,4.4575E+00_JPRB,3.8174E+00_JPRB,2.8444E+00_JPRB,3.7869E+00_JPRB/)  
+KBO( :, 1,18,13) = (/&
+ & 1.8395E+00_JPRB,1.6132E+00_JPRB,1.3961E+00_JPRB,1.0121E+00_JPRB,2.6255E+00_JPRB/)  
+KBO( :, 2,18,13) = (/&
+ & 2.5106E+00_JPRB,2.2211E+00_JPRB,1.9179E+00_JPRB,1.3918E+00_JPRB,2.8074E+00_JPRB/)  
+KBO( :, 3,18,13) = (/&
+ & 3.2840E+00_JPRB,2.9230E+00_JPRB,2.5216E+00_JPRB,1.8455E+00_JPRB,2.9886E+00_JPRB/)  
+KBO( :, 4,18,13) = (/&
+ & 4.1398E+00_JPRB,3.7076E+00_JPRB,3.1995E+00_JPRB,2.3655E+00_JPRB,3.2033E+00_JPRB/)  
+KBO( :, 5,18,13) = (/&
+ & 5.0652E+00_JPRB,4.5681E+00_JPRB,3.9586E+00_JPRB,2.9470E+00_JPRB,3.4431E+00_JPRB/)  
+KBO( :, 1,19,13) = (/&
+ & 1.8429E+00_JPRB,1.6700E+00_JPRB,1.4536E+00_JPRB,1.0564E+00_JPRB,2.4577E+00_JPRB/)  
+KBO( :, 2,19,13) = (/&
+ & 2.5022E+00_JPRB,2.2784E+00_JPRB,1.9833E+00_JPRB,1.4492E+00_JPRB,2.6093E+00_JPRB/)  
+KBO( :, 3,19,13) = (/&
+ & 3.2520E+00_JPRB,2.9805E+00_JPRB,2.5894E+00_JPRB,1.9140E+00_JPRB,2.7860E+00_JPRB/)  
+KBO( :, 4,19,13) = (/&
+ & 4.0807E+00_JPRB,3.7648E+00_JPRB,3.2792E+00_JPRB,2.4354E+00_JPRB,2.9804E+00_JPRB/)  
+KBO( :, 5,19,13) = (/&
+ & 4.9680E+00_JPRB,4.6224E+00_JPRB,4.0395E+00_JPRB,3.0224E+00_JPRB,3.2175E+00_JPRB/)  
+KBO( :, 1,20,13) = (/&
+ & 1.8228E+00_JPRB,1.7025E+00_JPRB,1.4928E+00_JPRB,1.0898E+00_JPRB,2.3654E+00_JPRB/)  
+KBO( :, 2,20,13) = (/&
+ & 2.4538E+00_JPRB,2.3051E+00_JPRB,2.0204E+00_JPRB,1.4897E+00_JPRB,2.5217E+00_JPRB/)  
+KBO( :, 3,20,13) = (/&
+ & 3.1699E+00_JPRB,2.9971E+00_JPRB,2.6320E+00_JPRB,1.9524E+00_JPRB,2.6999E+00_JPRB/)  
+KBO( :, 4,20,13) = (/&
+ & 3.9554E+00_JPRB,3.7710E+00_JPRB,3.3175E+00_JPRB,2.4725E+00_JPRB,2.8911E+00_JPRB/)  
+KBO( :, 5,20,13) = (/&
+ & 4.8063E+00_JPRB,4.6094E+00_JPRB,4.0741E+00_JPRB,3.0590E+00_JPRB,3.1232E+00_JPRB/)  
+KBO( :, 1,21,13) = (/&
+ & 1.7623E+00_JPRB,1.7061E+00_JPRB,1.5006E+00_JPRB,1.1051E+00_JPRB,2.2987E+00_JPRB/)  
+KBO( :, 2,21,13) = (/&
+ & 2.3568E+00_JPRB,2.2938E+00_JPRB,2.0241E+00_JPRB,1.5005E+00_JPRB,2.4810E+00_JPRB/)  
+KBO( :, 3,21,13) = (/&
+ & 3.0264E+00_JPRB,2.9663E+00_JPRB,2.6252E+00_JPRB,1.9540E+00_JPRB,2.6709E+00_JPRB/)  
+KBO( :, 4,21,13) = (/&
+ & 3.7661E+00_JPRB,3.7114E+00_JPRB,3.3017E+00_JPRB,2.4660E+00_JPRB,2.8739E+00_JPRB/)  
+KBO( :, 5,21,13) = (/&
+ & 4.5709E+00_JPRB,4.5292E+00_JPRB,4.0353E+00_JPRB,3.0458E+00_JPRB,3.1122E+00_JPRB/)  
+KBO( :, 1,22,13) = (/&
+ & 1.7051E+00_JPRB,1.7105E+00_JPRB,1.5137E+00_JPRB,1.1220E+00_JPRB,2.2215E+00_JPRB/)  
+KBO( :, 2,22,13) = (/&
+ & 2.2594E+00_JPRB,2.2812E+00_JPRB,2.0265E+00_JPRB,1.5078E+00_JPRB,2.4273E+00_JPRB/)  
+KBO( :, 3,22,13) = (/&
+ & 2.8843E+00_JPRB,2.9298E+00_JPRB,2.6159E+00_JPRB,1.9497E+00_JPRB,2.6344E+00_JPRB/)  
+KBO( :, 4,22,13) = (/&
+ & 3.5784E+00_JPRB,3.6530E+00_JPRB,3.2699E+00_JPRB,2.4532E+00_JPRB,2.8571E+00_JPRB/)  
+KBO( :, 5,22,13) = (/&
+ & 4.3282E+00_JPRB,4.4413E+00_JPRB,3.9817E+00_JPRB,3.0263E+00_JPRB,3.1138E+00_JPRB/)  
+KBO( :, 1,23,13) = (/&
+ & 1.6227E+00_JPRB,1.6865E+00_JPRB,1.4987E+00_JPRB,1.1164E+00_JPRB,2.1516E+00_JPRB/)  
+KBO( :, 2,23,13) = (/&
+ & 2.1334E+00_JPRB,2.2311E+00_JPRB,1.9947E+00_JPRB,1.4865E+00_JPRB,2.3714E+00_JPRB/)  
+KBO( :, 3,23,13) = (/&
+ & 2.7130E+00_JPRB,2.8505E+00_JPRB,2.5601E+00_JPRB,1.9131E+00_JPRB,2.5957E+00_JPRB/)  
+KBO( :, 4,23,13) = (/&
+ & 3.3545E+00_JPRB,3.5417E+00_JPRB,3.1845E+00_JPRB,2.4070E+00_JPRB,2.8423E+00_JPRB/)  
+KBO( :, 5,23,13) = (/&
+ & 4.0511E+00_JPRB,4.2980E+00_JPRB,3.8824E+00_JPRB,2.9663E+00_JPRB,3.1097E+00_JPRB/)  
+KBO( :, 1,24,13) = (/&
+ & 1.5221E+00_JPRB,1.6399E+00_JPRB,1.4631E+00_JPRB,1.0922E+00_JPRB,2.0557E+00_JPRB/)  
+KBO( :, 2,24,13) = (/&
+ & 1.9909E+00_JPRB,2.1551E+00_JPRB,1.9333E+00_JPRB,1.4438E+00_JPRB,2.2893E+00_JPRB/)  
+KBO( :, 3,24,13) = (/&
+ & 2.5227E+00_JPRB,2.7424E+00_JPRB,2.4670E+00_JPRB,1.8560E+00_JPRB,2.5308E+00_JPRB/)  
+KBO( :, 4,24,13) = (/&
+ & 3.1132E+00_JPRB,3.3998E+00_JPRB,3.0690E+00_JPRB,2.3315E+00_JPRB,2.7959E+00_JPRB/)  
+KBO( :, 5,24,13) = (/&
+ & 3.7625E+00_JPRB,4.1275E+00_JPRB,3.7502E+00_JPRB,2.8726E+00_JPRB,3.0711E+00_JPRB/)  
+KBO( :, 1,25,13) = (/&
+ & 1.4164E+00_JPRB,1.5764E+00_JPRB,1.4120E+00_JPRB,1.0539E+00_JPRB,1.9710E+00_JPRB/)  
+KBO( :, 2,25,13) = (/&
+ & 1.8451E+00_JPRB,2.0623E+00_JPRB,1.8523E+00_JPRB,1.3889E+00_JPRB,2.2117E+00_JPRB/)  
+KBO( :, 3,25,13) = (/&
+ & 2.3323E+00_JPRB,2.6170E+00_JPRB,2.3560E+00_JPRB,1.7813E+00_JPRB,2.4702E+00_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART31',1,ZHOOK_HANDLE)
+END SUBROUTINE PART31
+
+
+SUBROUTINE PART32
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART32',0,ZHOOK_HANDLE)
+
+
+KBO( :, 4,25,13) = (/&
+ & 2.8785E+00_JPRB,3.2423E+00_JPRB,2.9353E+00_JPRB,2.2379E+00_JPRB,2.7415E+00_JPRB/)  
+KBO( :, 5,25,13) = (/&
+ & 3.4748E+00_JPRB,3.9386E+00_JPRB,3.5958E+00_JPRB,2.7566E+00_JPRB,3.0246E+00_JPRB/)  
+KBO( :, 1,26,13) = (/&
+ & 1.3174E+00_JPRB,1.5065E+00_JPRB,1.3505E+00_JPRB,1.0108E+00_JPRB,1.9092E+00_JPRB/)  
+KBO( :, 2,26,13) = (/&
+ & 1.7100E+00_JPRB,1.9656E+00_JPRB,1.7614E+00_JPRB,1.3273E+00_JPRB,2.1568E+00_JPRB/)  
+KBO( :, 3,26,13) = (/&
+ & 2.1599E+00_JPRB,2.4918E+00_JPRB,2.2424E+00_JPRB,1.7022E+00_JPRB,2.4251E+00_JPRB/)  
+KBO( :, 4,26,13) = (/&
+ & 2.6619E+00_JPRB,3.0863E+00_JPRB,2.8007E+00_JPRB,2.1368E+00_JPRB,2.6974E+00_JPRB/)  
+KBO( :, 5,26,13) = (/&
+ & 3.2164E+00_JPRB,3.7562E+00_JPRB,3.4382E+00_JPRB,2.6323E+00_JPRB,2.9897E+00_JPRB/)  
+KBO( :, 1,27,13) = (/&
+ & 1.2227E+00_JPRB,1.4318E+00_JPRB,1.2776E+00_JPRB,9.6234E-01_JPRB,1.8084E+00_JPRB/)  
+KBO( :, 2,27,13) = (/&
+ & 1.5845E+00_JPRB,1.8650E+00_JPRB,1.6669E+00_JPRB,1.2616E+00_JPRB,2.0606E+00_JPRB/)  
+KBO( :, 3,27,13) = (/&
+ & 1.9986E+00_JPRB,2.3637E+00_JPRB,2.1255E+00_JPRB,1.6180E+00_JPRB,2.3235E+00_JPRB/)  
+KBO( :, 4,27,13) = (/&
+ & 2.4670E+00_JPRB,2.9335E+00_JPRB,2.6606E+00_JPRB,2.0306E+00_JPRB,2.5979E+00_JPRB/)  
+KBO( :, 5,27,13) = (/&
+ & 2.9836E+00_JPRB,3.5812E+00_JPRB,3.2799E+00_JPRB,2.5047E+00_JPRB,2.8940E+00_JPRB/)  
+KBO( :, 1,28,13) = (/&
+ & 1.1382E+00_JPRB,1.3569E+00_JPRB,1.2047E+00_JPRB,9.1050E-01_JPRB,1.6756E+00_JPRB/)  
+KBO( :, 2,28,13) = (/&
+ & 1.4731E+00_JPRB,1.7658E+00_JPRB,1.5747E+00_JPRB,1.1959E+00_JPRB,1.9259E+00_JPRB/)  
+KBO( :, 3,28,13) = (/&
+ & 1.8595E+00_JPRB,2.2417E+00_JPRB,2.0136E+00_JPRB,1.5323E+00_JPRB,2.1797E+00_JPRB/)  
+KBO( :, 4,28,13) = (/&
+ & 2.2933E+00_JPRB,2.7930E+00_JPRB,2.5304E+00_JPRB,1.9266E+00_JPRB,2.4581E+00_JPRB/)  
+KBO( :, 5,28,13) = (/&
+ & 2.7792E+00_JPRB,3.4303E+00_JPRB,3.1288E+00_JPRB,2.3846E+00_JPRB,2.7569E+00_JPRB/)  
+KBO( :, 1,29,13) = (/&
+ & 1.0690E+00_JPRB,1.2881E+00_JPRB,1.1394E+00_JPRB,8.6196E-01_JPRB,1.5316E+00_JPRB/)  
+KBO( :, 2,29,13) = (/&
+ & 1.3833E+00_JPRB,1.6767E+00_JPRB,1.4909E+00_JPRB,1.1330E+00_JPRB,1.7636E+00_JPRB/)  
+KBO( :, 3,29,13) = (/&
+ & 1.7418E+00_JPRB,2.1373E+00_JPRB,1.9152E+00_JPRB,1.4529E+00_JPRB,2.0079E+00_JPRB/)  
+KBO( :, 4,29,13) = (/&
+ & 2.1520E+00_JPRB,2.6796E+00_JPRB,2.4158E+00_JPRB,1.8327E+00_JPRB,2.2752E+00_JPRB/)  
+KBO( :, 5,29,13) = (/&
+ & 2.6198E+00_JPRB,3.3045E+00_JPRB,3.0000E+00_JPRB,2.2771E+00_JPRB,2.5616E+00_JPRB/)  
+KBO( :, 1,30,13) = (/&
+ & 1.0127E+00_JPRB,1.2266E+00_JPRB,1.0797E+00_JPRB,8.1863E-01_JPRB,1.3724E+00_JPRB/)  
+KBO( :, 2,30,13) = (/&
+ & 1.3069E+00_JPRB,1.6015E+00_JPRB,1.4185E+00_JPRB,1.0745E+00_JPRB,1.5829E+00_JPRB/)  
+KBO( :, 3,30,13) = (/&
+ & 1.6487E+00_JPRB,2.0522E+00_JPRB,1.8302E+00_JPRB,1.3820E+00_JPRB,1.8153E+00_JPRB/)  
+KBO( :, 4,30,13) = (/&
+ & 2.0473E+00_JPRB,2.5843E+00_JPRB,2.3209E+00_JPRB,1.7515E+00_JPRB,2.0659E+00_JPRB/)  
+KBO( :, 5,30,13) = (/&
+ & 2.5092E+00_JPRB,3.2023E+00_JPRB,2.8969E+00_JPRB,2.1888E+00_JPRB,2.3374E+00_JPRB/)  
+KBO( :, 1,31,13) = (/&
+ & 9.6510E-01_JPRB,1.1794E+00_JPRB,1.0308E+00_JPRB,7.7856E-01_JPRB,1.1918E+00_JPRB/)  
+KBO( :, 2,31,13) = (/&
+ & 1.2477E+00_JPRB,1.5457E+00_JPRB,1.3619E+00_JPRB,1.0252E+00_JPRB,1.3817E+00_JPRB/)  
+KBO( :, 3,31,13) = (/&
+ & 1.5837E+00_JPRB,1.9885E+00_JPRB,1.7652E+00_JPRB,1.3248E+00_JPRB,1.5914E+00_JPRB/)  
+KBO( :, 4,31,13) = (/&
+ & 1.9797E+00_JPRB,2.5159E+00_JPRB,2.2496E+00_JPRB,1.6880E+00_JPRB,1.8169E+00_JPRB/)  
+KBO( :, 5,31,13) = (/&
+ & 2.4397E+00_JPRB,3.1333E+00_JPRB,2.8243E+00_JPRB,2.1253E+00_JPRB,2.0691E+00_JPRB/)  
+KBO( :, 1,32,13) = (/&
+ & 9.2809E-01_JPRB,1.1462E+00_JPRB,9.9628E-01_JPRB,7.4536E-01_JPRB,1.0320E+00_JPRB/)  
+KBO( :, 2,32,13) = (/&
+ & 1.2071E+00_JPRB,1.5069E+00_JPRB,1.3205E+00_JPRB,9.8597E-01_JPRB,1.2033E+00_JPRB/)  
+KBO( :, 3,32,13) = (/&
+ & 1.5432E+00_JPRB,1.9476E+00_JPRB,1.7191E+00_JPRB,1.2835E+00_JPRB,1.3897E+00_JPRB/)  
+KBO( :, 4,32,13) = (/&
+ & 1.9406E+00_JPRB,2.4766E+00_JPRB,2.2038E+00_JPRB,1.6458E+00_JPRB,1.5971E+00_JPRB/)  
+KBO( :, 5,32,13) = (/&
+ & 2.3994E+00_JPRB,3.0984E+00_JPRB,2.7844E+00_JPRB,2.0892E+00_JPRB,1.8364E+00_JPRB/)  
+KBO( :, 1,33,13) = (/&
+ & 9.0452E-01_JPRB,1.1258E+00_JPRB,9.7321E-01_JPRB,7.2002E-01_JPRB,8.8562E-01_JPRB/)  
+KBO( :, 2,33,13) = (/&
+ & 1.1846E+00_JPRB,1.4864E+00_JPRB,1.2941E+00_JPRB,9.5876E-01_JPRB,1.0371E+00_JPRB/)  
+KBO( :, 3,33,13) = (/&
+ & 1.5214E+00_JPRB,1.9311E+00_JPRB,1.6937E+00_JPRB,1.2572E+00_JPRB,1.2046E+00_JPRB/)  
+KBO( :, 4,33,13) = (/&
+ & 1.9196E+00_JPRB,2.4657E+00_JPRB,2.1858E+00_JPRB,1.6239E+00_JPRB,1.3977E+00_JPRB/)  
+KBO( :, 5,33,13) = (/&
+ & 2.3836E+00_JPRB,3.1007E+00_JPRB,2.7768E+00_JPRB,2.0781E+00_JPRB,1.6273E+00_JPRB/)  
+KBO( :, 1,34,13) = (/&
+ & 8.8467E-01_JPRB,1.1068E+00_JPRB,9.5054E-01_JPRB,6.9629E-01_JPRB,7.8494E-01_JPRB/)  
+KBO( :, 2,34,13) = (/&
+ & 1.1642E+00_JPRB,1.4706E+00_JPRB,1.2717E+00_JPRB,9.3470E-01_JPRB,9.2138E-01_JPRB/)  
+KBO( :, 3,34,13) = (/&
+ & 1.5015E+00_JPRB,1.9181E+00_JPRB,1.6758E+00_JPRB,1.2345E+00_JPRB,1.0773E+00_JPRB/)  
+KBO( :, 4,34,13) = (/&
+ & 1.9018E+00_JPRB,2.4632E+00_JPRB,2.1759E+00_JPRB,1.6080E+00_JPRB,1.2614E+00_JPRB/)  
+KBO( :, 5,34,13) = (/&
+ & 2.3740E+00_JPRB,3.1145E+00_JPRB,2.7821E+00_JPRB,2.0712E+00_JPRB,1.4792E+00_JPRB/)  
+KBO( :, 1,35,13) = (/&
+ & 8.4955E-01_JPRB,1.0688E+00_JPRB,9.1231E-01_JPRB,6.6202E-01_JPRB,6.7824E-01_JPRB/)  
+KBO( :, 2,35,13) = (/&
+ & 1.1250E+00_JPRB,1.4313E+00_JPRB,1.2303E+00_JPRB,8.9698E-01_JPRB,8.0193E-01_JPRB/)  
+KBO( :, 3,35,13) = (/&
+ & 1.4599E+00_JPRB,1.8791E+00_JPRB,1.6347E+00_JPRB,1.1945E+00_JPRB,9.4771E-01_JPRB/)  
+KBO( :, 4,35,13) = (/&
+ & 1.8617E+00_JPRB,2.4289E+00_JPRB,2.1382E+00_JPRB,1.5703E+00_JPRB,1.1239E+00_JPRB/)  
+KBO( :, 5,35,13) = (/&
+ & 2.3371E+00_JPRB,3.0886E+00_JPRB,2.7503E+00_JPRB,2.0370E+00_JPRB,1.3258E+00_JPRB/)  
+KBO( :, 1,36,13) = (/&
+ & 7.9554E-01_JPRB,1.0086E+00_JPRB,8.5573E-01_JPRB,6.1485E-01_JPRB,5.7027E-01_JPRB/)  
+KBO( :, 2,36,13) = (/&
+ & 1.0642E+00_JPRB,1.3634E+00_JPRB,1.1652E+00_JPRB,8.4197E-01_JPRB,6.8378E-01_JPRB/)  
+KBO( :, 3,36,13) = (/&
+ & 1.3924E+00_JPRB,1.8049E+00_JPRB,1.5634E+00_JPRB,1.1326E+00_JPRB,8.2218E-01_JPRB/)  
+KBO( :, 4,36,13) = (/&
+ & 1.7900E+00_JPRB,2.3512E+00_JPRB,2.0607E+00_JPRB,1.5026E+00_JPRB,9.8859E-01_JPRB/)  
+KBO( :, 5,36,13) = (/&
+ & 2.2630E+00_JPRB,3.0065E+00_JPRB,2.6687E+00_JPRB,1.9640E+00_JPRB,1.1762E+00_JPRB/)  
+KBO( :, 1,37,13) = (/&
+ & 7.1417E-01_JPRB,9.1309E-01_JPRB,7.7089E-01_JPRB,5.4803E-01_JPRB,4.9622E-01_JPRB/)  
+KBO( :, 2,37,13) = (/&
+ & 9.6913E-01_JPRB,1.2512E+00_JPRB,1.0630E+00_JPRB,7.6043E-01_JPRB,5.9797E-01_JPRB/)  
+KBO( :, 3,37,13) = (/&
+ & 1.2840E+00_JPRB,1.6746E+00_JPRB,1.4416E+00_JPRB,1.0353E+00_JPRB,7.2233E-01_JPRB/)  
+KBO( :, 4,37,13) = (/&
+ & 1.6678E+00_JPRB,2.2008E+00_JPRB,1.9187E+00_JPRB,1.3875E+00_JPRB,8.7304E-01_JPRB/)  
+KBO( :, 5,37,13) = (/&
+ & 2.1271E+00_JPRB,2.8380E+00_JPRB,2.5062E+00_JPRB,1.8314E+00_JPRB,1.0444E+00_JPRB/)  
+KBO( :, 1,38,13) = (/&
+ & 6.4094E-01_JPRB,8.2768E-01_JPRB,6.9645E-01_JPRB,4.8972E-01_JPRB,4.2782E-01_JPRB/)  
+KBO( :, 2,38,13) = (/&
+ & 8.8268E-01_JPRB,1.1499E+00_JPRB,9.7252E-01_JPRB,6.8901E-01_JPRB,5.1817E-01_JPRB/)  
+KBO( :, 3,38,13) = (/&
+ & 1.1854E+00_JPRB,1.5567E+00_JPRB,1.3326E+00_JPRB,9.4875E-01_JPRB,6.2911E-01_JPRB/)  
+KBO( :, 4,38,13) = (/&
+ & 1.5548E+00_JPRB,2.0633E+00_JPRB,1.7903E+00_JPRB,1.2846E+00_JPRB,7.6404E-01_JPRB/)  
+KBO( :, 5,38,13) = (/&
+ & 2.0005E+00_JPRB,2.6819E+00_JPRB,2.3577E+00_JPRB,1.7108E+00_JPRB,9.1910E-01_JPRB/)  
+KBO( :, 1,39,13) = (/&
+ & 5.7700E-01_JPRB,7.5348E-01_JPRB,6.3234E-01_JPRB,4.4039E-01_JPRB,3.6316E-01_JPRB/)  
+KBO( :, 2,39,13) = (/&
+ & 8.0617E-01_JPRB,1.0607E+00_JPRB,8.9464E-01_JPRB,6.2787E-01_JPRB,4.4256E-01_JPRB/)  
+KBO( :, 3,39,13) = (/&
+ & 1.0971E+00_JPRB,1.4528E+00_JPRB,1.2371E+00_JPRB,8.7381E-01_JPRB,5.4063E-01_JPRB/)  
+KBO( :, 4,39,13) = (/&
+ & 1.4539E+00_JPRB,1.9409E+00_JPRB,1.6768E+00_JPRB,1.1946E+00_JPRB,6.6034E-01_JPRB/)  
+KBO( :, 5,39,13) = (/&
+ & 1.8880E+00_JPRB,2.5419E+00_JPRB,2.2244E+00_JPRB,1.6039E+00_JPRB,7.9890E-01_JPRB/)  
+KBO( :, 1,40,13) = (/&
+ & 5.0186E-01_JPRB,6.6294E-01_JPRB,5.5500E-01_JPRB,3.8289E-01_JPRB,3.1769E-01_JPRB/)  
+KBO( :, 2,40,13) = (/&
+ & 7.1323E-01_JPRB,9.4798E-01_JPRB,7.9752E-01_JPRB,5.5384E-01_JPRB,3.8877E-01_JPRB/)  
+KBO( :, 3,40,13) = (/&
+ & 9.8586E-01_JPRB,1.3164E+00_JPRB,1.1157E+00_JPRB,7.8136E-01_JPRB,4.7618E-01_JPRB/)  
+KBO( :, 4,40,13) = (/&
+ & 1.3258E+00_JPRB,1.7781E+00_JPRB,1.5269E+00_JPRB,1.0795E+00_JPRB,5.8462E-01_JPRB/)  
+KBO( :, 5,40,13) = (/&
+ & 1.7397E+00_JPRB,2.3496E+00_JPRB,2.0447E+00_JPRB,1.4640E+00_JPRB,7.1183E-01_JPRB/)  
+KBO( :, 1,41,13) = (/&
+ & 4.3380E-01_JPRB,5.8097E-01_JPRB,4.8476E-01_JPRB,3.3186E-01_JPRB,2.7762E-01_JPRB/)  
+KBO( :, 2,41,13) = (/&
+ & 6.2819E-01_JPRB,8.4375E-01_JPRB,7.0798E-01_JPRB,4.8718E-01_JPRB,3.4151E-01_JPRB/)  
+KBO( :, 3,41,13) = (/&
+ & 8.8231E-01_JPRB,1.1885E+00_JPRB,1.0030E+00_JPRB,6.9676E-01_JPRB,4.1944E-01_JPRB/)  
+KBO( :, 4,41,13) = (/&
+ & 1.2044E+00_JPRB,1.6239E+00_JPRB,1.3862E+00_JPRB,9.7292E-01_JPRB,5.1737E-01_JPRB/)  
+KBO( :, 5,41,13) = (/&
+ & 1.5976E+00_JPRB,2.1644E+00_JPRB,1.8733E+00_JPRB,1.3324E+00_JPRB,6.3382E-01_JPRB/)  
+KBO( :, 1,42,13) = (/&
+ & 3.7449E-01_JPRB,5.0898E-01_JPRB,4.2337E-01_JPRB,2.8788E-01_JPRB,2.4070E-01_JPRB/)  
+KBO( :, 2,42,13) = (/&
+ & 5.5270E-01_JPRB,7.5038E-01_JPRB,6.2836E-01_JPRB,4.2892E-01_JPRB,2.9753E-01_JPRB/)  
+KBO( :, 3,42,13) = (/&
+ & 7.8906E-01_JPRB,1.0722E+00_JPRB,9.0203E-01_JPRB,6.2172E-01_JPRB,3.6699E-01_JPRB/)  
+KBO( :, 4,42,13) = (/&
+ & 1.0928E+00_JPRB,1.4824E+00_JPRB,1.2591E+00_JPRB,8.7750E-01_JPRB,4.5486E-01_JPRB/)  
+KBO( :, 5,42,13) = (/&
+ & 1.4670E+00_JPRB,1.9931E+00_JPRB,1.7165E+00_JPRB,1.2130E+00_JPRB,5.6051E-01_JPRB/)  
+KBO( :, 1,43,13) = (/&
+ & 3.1535E-01_JPRB,4.3481E-01_JPRB,3.6057E-01_JPRB,2.4367E-01_JPRB,2.0825E-01_JPRB/)  
+KBO( :, 2,43,13) = (/&
+ & 4.7503E-01_JPRB,6.5262E-01_JPRB,5.4494E-01_JPRB,3.6943E-01_JPRB,2.5841E-01_JPRB/)  
+KBO( :, 3,43,13) = (/&
+ & 6.9119E-01_JPRB,9.4733E-01_JPRB,7.9475E-01_JPRB,5.4324E-01_JPRB,3.1952E-01_JPRB/)  
+KBO( :, 4,43,13) = (/&
+ & 9.7283E-01_JPRB,1.3279E+00_JPRB,1.1223E+00_JPRB,7.7674E-01_JPRB,3.9652E-01_JPRB/)  
+KBO( :, 5,43,13) = (/&
+ & 1.3243E+00_JPRB,1.8050E+00_JPRB,1.5450E+00_JPRB,1.0849E+00_JPRB,4.9087E-01_JPRB/)  
+KBO( :, 1,44,13) = (/&
+ & 2.6174E-01_JPRB,3.6590E-01_JPRB,3.0263E-01_JPRB,2.0344E-01_JPRB,1.7938E-01_JPRB/)  
+KBO( :, 2,44,13) = (/&
+ & 4.0277E-01_JPRB,5.6056E-01_JPRB,4.6662E-01_JPRB,3.1442E-01_JPRB,2.2338E-01_JPRB/)  
+KBO( :, 3,44,13) = (/&
+ & 5.9777E-01_JPRB,8.2704E-01_JPRB,6.9190E-01_JPRB,4.6961E-01_JPRB,2.7697E-01_JPRB/)  
+KBO( :, 4,44,13) = (/&
+ & 8.5584E-01_JPRB,1.1770E+00_JPRB,9.9059E-01_JPRB,6.8041E-01_JPRB,3.4323E-01_JPRB/)  
+KBO( :, 5,44,13) = (/&
+ & 1.1839E+00_JPRB,1.6189E+00_JPRB,1.3779E+00_JPRB,9.6037E-01_JPRB,4.2597E-01_JPRB/)  
+KBO( :, 1,45,13) = (/&
+ & 2.1651E-01_JPRB,3.0623E-01_JPRB,2.5303E-01_JPRB,1.6909E-01_JPRB,1.5286E-01_JPRB/)  
+KBO( :, 2,45,13) = (/&
+ & 3.3998E-01_JPRB,4.7944E-01_JPRB,3.9799E-01_JPRB,2.6665E-01_JPRB,1.9138E-01_JPRB/)  
+KBO( :, 3,45,13) = (/&
+ & 5.1505E-01_JPRB,7.1915E-01_JPRB,6.0047E-01_JPRB,4.0501E-01_JPRB,2.3804E-01_JPRB/)  
+KBO( :, 4,45,13) = (/&
+ & 7.5069E-01_JPRB,1.0392E+00_JPRB,8.7233E-01_JPRB,5.9477E-01_JPRB,2.9472E-01_JPRB/)  
+KBO( :, 5,45,13) = (/&
+ & 1.0546E+00_JPRB,1.4482E+00_JPRB,1.2265E+00_JPRB,8.4853E-01_JPRB,3.6589E-01_JPRB/)  
+KBO( :, 1,46,13) = (/&
+ & 1.7663E-01_JPRB,2.5198E-01_JPRB,2.0821E-01_JPRB,1.3852E-01_JPRB,1.2920E-01_JPRB/)  
+KBO( :, 2,46,13) = (/&
+ & 2.8312E-01_JPRB,4.0392E-01_JPRB,3.3454E-01_JPRB,2.2297E-01_JPRB,1.6315E-01_JPRB/)  
+KBO( :, 3,46,13) = (/&
+ & 4.3787E-01_JPRB,6.1746E-01_JPRB,5.1421E-01_JPRB,3.4506E-01_JPRB,2.0329E-01_JPRB/)  
+KBO( :, 4,46,13) = (/&
+ & 6.5040E-01_JPRB,9.0658E-01_JPRB,7.5889E-01_JPRB,5.1408E-01_JPRB,2.5188E-01_JPRB/)  
+KBO( :, 5,46,13) = (/&
+ & 9.2878E-01_JPRB,1.2821E+00_JPRB,1.0808E+00_JPRB,7.4274E-01_JPRB,3.1240E-01_JPRB/)  
+KBO( :, 1,47,13) = (/&
+ & 1.4044E-01_JPRB,2.0128E-01_JPRB,1.6621E-01_JPRB,1.1051E-01_JPRB,1.0897E-01_JPRB/)  
+KBO( :, 2,47,13) = (/&
+ & 2.3004E-01_JPRB,3.3154E-01_JPRB,2.7419E-01_JPRB,1.8180E-01_JPRB,1.3962E-01_JPRB/)  
+KBO( :, 3,47,13) = (/&
+ & 3.6325E-01_JPRB,5.1821E-01_JPRB,4.3034E-01_JPRB,2.8728E-01_JPRB,1.7431E-01_JPRB/)  
+KBO( :, 4,47,13) = (/&
+ & 5.5117E-01_JPRB,7.7483E-01_JPRB,6.4673E-01_JPRB,4.3554E-01_JPRB,2.1654E-01_JPRB/)  
+KBO( :, 5,47,13) = (/&
+ & 8.0200E-01_JPRB,1.1139E+00_JPRB,9.3561E-01_JPRB,6.3799E-01_JPRB,2.6782E-01_JPRB/)  
+KBO( :, 1,48,13) = (/&
+ & 1.1101E-01_JPRB,1.5927E-01_JPRB,1.3139E-01_JPRB,8.7527E-02_JPRB,9.0201E-02_JPRB/)  
+KBO( :, 2,48,13) = (/&
+ & 1.8567E-01_JPRB,2.6968E-01_JPRB,2.2270E-01_JPRB,1.4710E-01_JPRB,1.1764E-01_JPRB/)  
+KBO( :, 3,48,13) = (/&
+ & 2.9933E-01_JPRB,4.3159E-01_JPRB,3.5753E-01_JPRB,2.3730E-01_JPRB,1.4811E-01_JPRB/)  
+KBO( :, 4,48,13) = (/&
+ & 4.6369E-01_JPRB,6.5797E-01_JPRB,5.4789E-01_JPRB,3.6706E-01_JPRB,1.8402E-01_JPRB/)  
+KBO( :, 5,48,13) = (/&
+ & 6.8807E-01_JPRB,9.6214E-01_JPRB,8.0577E-01_JPRB,5.4570E-01_JPRB,2.2761E-01_JPRB/)  
+KBO( :, 1,49,13) = (/&
+ & 8.6952E-02_JPRB,1.2481E-01_JPRB,1.0270E-01_JPRB,6.8735E-02_JPRB,7.2916E-02_JPRB/)  
+KBO( :, 2,49,13) = (/&
+ & 1.4886E-01_JPRB,2.1718E-01_JPRB,1.7934E-01_JPRB,1.1829E-01_JPRB,9.6830E-02_JPRB/)  
+KBO( :, 3,49,13) = (/&
+ & 2.4507E-01_JPRB,3.5657E-01_JPRB,2.9496E-01_JPRB,1.9481E-01_JPRB,1.2384E-01_JPRB/)  
+KBO( :, 4,49,13) = (/&
+ & 3.8722E-01_JPRB,5.5518E-01_JPRB,4.6109E-01_JPRB,3.0744E-01_JPRB,1.5413E-01_JPRB/)  
+KBO( :, 5,49,13) = (/&
+ & 5.8631E-01_JPRB,8.2602E-01_JPRB,6.8968E-01_JPRB,4.6440E-01_JPRB,1.9058E-01_JPRB/)  
+KBO( :, 1,50,13) = (/&
+ & 6.8423E-02_JPRB,9.8362E-02_JPRB,8.0813E-02_JPRB,5.4318E-02_JPRB,6.0640E-02_JPRB/)  
+KBO( :, 2,50,13) = (/&
+ & 1.2024E-01_JPRB,1.7560E-01_JPRB,1.4487E-01_JPRB,9.5713E-02_JPRB,8.2094E-02_JPRB/)  
+KBO( :, 3,50,13) = (/&
+ & 2.0188E-01_JPRB,2.9561E-01_JPRB,2.4418E-01_JPRB,1.6072E-01_JPRB,1.0662E-01_JPRB/)  
+KBO( :, 4,50,13) = (/&
+ & 3.2485E-01_JPRB,4.7020E-01_JPRB,3.8945E-01_JPRB,2.5843E-01_JPRB,1.3377E-01_JPRB/)  
+KBO( :, 5,50,13) = (/&
+ & 5.0116E-01_JPRB,7.1185E-01_JPRB,5.9284E-01_JPRB,3.9734E-01_JPRB,1.6547E-01_JPRB/)  
+KBO( :, 1,51,13) = (/&
+ & 5.3728E-02_JPRB,7.7475E-02_JPRB,6.3575E-02_JPRB,4.2812E-02_JPRB,5.0933E-02_JPRB/)  
+KBO( :, 2,51,13) = (/&
+ & 9.7035E-02_JPRB,1.4176E-01_JPRB,1.1670E-01_JPRB,7.7313E-02_JPRB,7.0361E-02_JPRB/)  
+KBO( :, 3,51,13) = (/&
+ & 1.6618E-01_JPRB,2.4447E-01_JPRB,2.0180E-01_JPRB,1.3255E-01_JPRB,9.2830E-02_JPRB/)  
+KBO( :, 4,51,13) = (/&
+ & 2.7241E-01_JPRB,3.9733E-01_JPRB,3.2861E-01_JPRB,2.1702E-01_JPRB,1.1799E-01_JPRB/)  
+KBO( :, 5,51,13) = (/&
+ & 4.2784E-01_JPRB,6.1277E-01_JPRB,5.0908E-01_JPRB,3.3984E-01_JPRB,1.4641E-01_JPRB/)  
+KBO( :, 1,52,13) = (/&
+ & 4.1802E-02_JPRB,6.0502E-02_JPRB,4.9697E-02_JPRB,3.3504E-02_JPRB,4.2023E-02_JPRB/)  
+KBO( :, 2,52,13) = (/&
+ & 7.7722E-02_JPRB,1.1354E-01_JPRB,9.3251E-02_JPRB,6.2061E-02_JPRB,5.9351E-02_JPRB/)  
+KBO( :, 3,52,13) = (/&
+ & 1.3608E-01_JPRB,2.0057E-01_JPRB,1.6557E-01_JPRB,1.0873E-01_JPRB,7.9645E-02_JPRB/)  
+KBO( :, 4,52,13) = (/&
+ & 2.2730E-01_JPRB,3.3353E-01_JPRB,2.7571E-01_JPRB,1.8131E-01_JPRB,1.0280E-01_JPRB/)  
+KBO( :, 5,52,13) = (/&
+ & 3.6299E-01_JPRB,5.2462E-01_JPRB,4.3487E-01_JPRB,2.8905E-01_JPRB,1.2859E-01_JPRB/)  
+KBO( :, 1,53,13) = (/&
+ & 3.2183E-02_JPRB,4.6680E-02_JPRB,3.8481E-02_JPRB,2.6042E-02_JPRB,3.3756E-02_JPRB/)  
+KBO( :, 2,53,13) = (/&
+ & 6.1728E-02_JPRB,9.0133E-02_JPRB,7.3973E-02_JPRB,4.9381E-02_JPRB,4.8993E-02_JPRB/)  
+KBO( :, 3,53,13) = (/&
+ & 1.1077E-01_JPRB,1.6319E-01_JPRB,1.3454E-01_JPRB,8.8555E-02_JPRB,6.7056E-02_JPRB/)  
+KBO( :, 4,53,13) = (/&
+ & 1.8844E-01_JPRB,2.7785E-01_JPRB,2.2936E-01_JPRB,1.5042E-01_JPRB,8.7934E-02_JPRB/)  
+KBO( :, 5,53,13) = (/&
+ & 3.0619E-01_JPRB,4.4605E-01_JPRB,3.6897E-01_JPRB,2.4410E-01_JPRB,1.1120E-01_JPRB/)  
+KBO( :, 1,54,13) = (/&
+ & 2.5047E-02_JPRB,3.6400E-02_JPRB,3.0153E-02_JPRB,2.0502E-02_JPRB,2.9038E-02_JPRB/)  
+KBO( :, 2,54,13) = (/&
+ & 4.9509E-02_JPRB,7.2463E-02_JPRB,5.9428E-02_JPRB,3.9713E-02_JPRB,4.3296E-02_JPRB/)  
+KBO( :, 3,54,13) = (/&
+ & 9.1047E-02_JPRB,1.3408E-01_JPRB,1.1032E-01_JPRB,7.2811E-02_JPRB,6.0352E-02_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART32',1,ZHOOK_HANDLE)
+END SUBROUTINE PART32
+
+
+SUBROUTINE PART33
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART33',0,ZHOOK_HANDLE)
+
+
+KBO( :, 4,54,13) = (/&
+ & 1.5773E-01_JPRB,2.3322E-01_JPRB,1.9256E-01_JPRB,1.2610E-01_JPRB,8.0247E-02_JPRB/)  
+KBO( :, 5,54,13) = (/&
+ & 2.6064E-01_JPRB,3.8195E-01_JPRB,3.1567E-01_JPRB,2.0798E-01_JPRB,1.0268E-01_JPRB/)  
+KBO( :, 1,55,13) = (/&
+ & 1.9531E-02_JPRB,2.8409E-02_JPRB,2.3654E-02_JPRB,1.6169E-02_JPRB,2.6016E-02_JPRB/)  
+KBO( :, 2,55,13) = (/&
+ & 3.9731E-02_JPRB,5.8300E-02_JPRB,4.7864E-02_JPRB,3.2046E-02_JPRB,3.9891E-02_JPRB/)  
+KBO( :, 3,55,13) = (/&
+ & 7.5011E-02_JPRB,1.1035E-01_JPRB,9.0609E-02_JPRB,6.0025E-02_JPRB,5.6691E-02_JPRB/)  
+KBO( :, 4,55,13) = (/&
+ & 1.3239E-01_JPRB,1.9599E-01_JPRB,1.6178E-01_JPRB,1.0597E-01_JPRB,7.6430E-02_JPRB/)  
+KBO( :, 5,55,13) = (/&
+ & 2.2232E-01_JPRB,3.2737E-01_JPRB,2.7053E-01_JPRB,1.7756E-01_JPRB,9.9052E-02_JPRB/)  
+KBO( :, 1,56,13) = (/&
+ & 1.5085E-02_JPRB,2.1991E-02_JPRB,1.8385E-02_JPRB,1.2629E-02_JPRB,2.3210E-02_JPRB/)  
+KBO( :, 2,56,13) = (/&
+ & 3.1640E-02_JPRB,4.6519E-02_JPRB,3.8293E-02_JPRB,2.5741E-02_JPRB,3.6554E-02_JPRB/)  
+KBO( :, 3,56,13) = (/&
+ & 6.1401E-02_JPRB,9.0252E-02_JPRB,7.4044E-02_JPRB,4.9175E-02_JPRB,5.3168E-02_JPRB/)  
+KBO( :, 4,56,13) = (/&
+ & 1.1069E-01_JPRB,1.6371E-01_JPRB,1.3502E-01_JPRB,8.8647E-02_JPRB,7.2863E-02_JPRB/)  
+KBO( :, 5,56,13) = (/&
+ & 1.8882E-01_JPRB,2.7905E-01_JPRB,2.3042E-01_JPRB,1.5088E-01_JPRB,9.5532E-02_JPRB/)  
+KBO( :, 1,57,13) = (/&
+ & 1.1497E-02_JPRB,1.6861E-02_JPRB,1.4167E-02_JPRB,9.7433E-03_JPRB,2.0535E-02_JPRB/)  
+KBO( :, 2,57,13) = (/&
+ & 2.4982E-02_JPRB,3.6767E-02_JPRB,3.0405E-02_JPRB,2.0539E-02_JPRB,3.3381E-02_JPRB/)  
+KBO( :, 3,57,13) = (/&
+ & 4.9863E-02_JPRB,7.3408E-02_JPRB,6.0172E-02_JPRB,4.0018E-02_JPRB,4.9853E-02_JPRB/)  
+KBO( :, 4,57,13) = (/&
+ & 9.1973E-02_JPRB,1.3592E-01_JPRB,1.1188E-01_JPRB,7.3644E-02_JPRB,6.9368E-02_JPRB/)  
+KBO( :, 5,57,13) = (/&
+ & 1.5956E-01_JPRB,2.3633E-01_JPRB,1.9520E-01_JPRB,1.2765E-01_JPRB,9.2143E-02_JPRB/)  
+KBO( :, 1,58,13) = (/&
+ & 8.7557E-03_JPRB,1.2987E-02_JPRB,1.0957E-02_JPRB,7.5300E-03_JPRB,1.8437E-02_JPRB/)  
+KBO( :, 2,58,13) = (/&
+ & 1.9822E-02_JPRB,2.9153E-02_JPRB,2.4235E-02_JPRB,1.6460E-02_JPRB,3.1052E-02_JPRB/)  
+KBO( :, 3,58,13) = (/&
+ & 4.0615E-02_JPRB,5.9904E-02_JPRB,4.9134E-02_JPRB,3.2752E-02_JPRB,4.7553E-02_JPRB/)  
+KBO( :, 4,58,13) = (/&
+ & 7.6749E-02_JPRB,1.1326E-01_JPRB,9.3033E-02_JPRB,6.1446E-02_JPRB,6.7327E-02_JPRB/)  
+KBO( :, 5,58,13) = (/&
+ & 1.3538E-01_JPRB,2.0081E-01_JPRB,1.6583E-01_JPRB,1.0846E-01_JPRB,9.0540E-02_JPRB/)  
+KBO( :, 1,59,13) = (/&
+ & 7.7834E-03_JPRB,1.1635E-02_JPRB,9.8237E-03_JPRB,6.7346E-03_JPRB,2.0567E-02_JPRB/)  
+KBO( :, 2,59,13) = (/&
+ & 1.7968E-02_JPRB,2.6456E-02_JPRB,2.2028E-02_JPRB,1.4988E-02_JPRB,3.5300E-02_JPRB/)  
+KBO( :, 3,59,13) = (/&
+ & 3.7275E-02_JPRB,5.5026E-02_JPRB,4.5163E-02_JPRB,3.0132E-02_JPRB,5.4587E-02_JPRB/)  
+KBO( :, 4,59,13) = (/&
+ & 7.1187E-02_JPRB,1.0502E-01_JPRB,8.6201E-02_JPRB,5.6998E-02_JPRB,7.7965E-02_JPRB/)  
+KBO( :, 5,59,13) = (/&
+ & 1.2652E-01_JPRB,1.8769E-01_JPRB,1.5496E-01_JPRB,1.0142E-01_JPRB,1.0516E-01_JPRB/)  
+KBO( :, 1,13,14) = (/&
+ & 2.2524E+00_JPRB,1.8642E+00_JPRB,1.4613E+00_JPRB,1.4569E+00_JPRB,8.7601E+00_JPRB/)  
+KBO( :, 2,13,14) = (/&
+ & 3.1331E+00_JPRB,2.6017E+00_JPRB,2.0765E+00_JPRB,2.1108E+00_JPRB,8.6837E+00_JPRB/)  
+KBO( :, 3,13,14) = (/&
+ & 4.2161E+00_JPRB,3.4975E+00_JPRB,2.8332E+00_JPRB,2.9400E+00_JPRB,8.5967E+00_JPRB/)  
+KBO( :, 4,13,14) = (/&
+ & 5.4742E+00_JPRB,4.5326E+00_JPRB,3.7176E+00_JPRB,3.9461E+00_JPRB,8.5509E+00_JPRB/)  
+KBO( :, 5,13,14) = (/&
+ & 6.8794E+00_JPRB,5.6742E+00_JPRB,4.7180E+00_JPRB,5.1201E+00_JPRB,8.7332E+00_JPRB/)  
+KBO( :, 1,14,14) = (/&
+ & 2.4300E+00_JPRB,2.0099E+00_JPRB,1.6039E+00_JPRB,1.5951E+00_JPRB,7.9998E+00_JPRB/)  
+KBO( :, 2,14,14) = (/&
+ & 3.3671E+00_JPRB,2.7809E+00_JPRB,2.2722E+00_JPRB,2.2861E+00_JPRB,7.9399E+00_JPRB/)  
+KBO( :, 3,14,14) = (/&
+ & 4.5098E+00_JPRB,3.7249E+00_JPRB,3.1058E+00_JPRB,3.1479E+00_JPRB,7.9396E+00_JPRB/)  
+KBO( :, 4,14,14) = (/&
+ & 5.8479E+00_JPRB,4.8327E+00_JPRB,4.0848E+00_JPRB,4.1748E+00_JPRB,8.0204E+00_JPRB/)  
+KBO( :, 5,14,14) = (/&
+ & 7.3485E+00_JPRB,6.0867E+00_JPRB,5.1845E+00_JPRB,5.3505E+00_JPRB,8.4765E+00_JPRB/)  
+KBO( :, 1,15,14) = (/&
+ & 2.6568E+00_JPRB,2.1796E+00_JPRB,1.7854E+00_JPRB,1.7352E+00_JPRB,6.7060E+00_JPRB/)  
+KBO( :, 2,15,14) = (/&
+ & 3.6822E+00_JPRB,3.0192E+00_JPRB,2.5118E+00_JPRB,2.4660E+00_JPRB,6.7632E+00_JPRB/)  
+KBO( :, 3,15,14) = (/&
+ & 4.9145E+00_JPRB,4.0419E+00_JPRB,3.4197E+00_JPRB,3.3625E+00_JPRB,6.9344E+00_JPRB/)  
+KBO( :, 4,15,14) = (/&
+ & 6.3536E+00_JPRB,5.2540E+00_JPRB,4.4910E+00_JPRB,4.4107E+00_JPRB,7.2734E+00_JPRB/)  
+KBO( :, 5,15,14) = (/&
+ & 7.9751E+00_JPRB,6.6376E+00_JPRB,5.7127E+00_JPRB,5.6036E+00_JPRB,8.1653E+00_JPRB/)  
+KBO( :, 1,16,14) = (/&
+ & 2.9427E+00_JPRB,2.4019E+00_JPRB,1.9918E+00_JPRB,1.8807E+00_JPRB,5.4890E+00_JPRB/)  
+KBO( :, 2,16,14) = (/&
+ & 4.0755E+00_JPRB,3.3334E+00_JPRB,2.7941E+00_JPRB,2.6497E+00_JPRB,5.7267E+00_JPRB/)  
+KBO( :, 3,16,14) = (/&
+ & 5.4183E+00_JPRB,4.4587E+00_JPRB,3.7848E+00_JPRB,3.5786E+00_JPRB,6.0751E+00_JPRB/)  
+KBO( :, 4,16,14) = (/&
+ & 6.9849E+00_JPRB,5.7895E+00_JPRB,4.9533E+00_JPRB,4.6688E+00_JPRB,6.8712E+00_JPRB/)  
+KBO( :, 5,16,14) = (/&
+ & 8.7453E+00_JPRB,7.3192E+00_JPRB,6.3031E+00_JPRB,5.9185E+00_JPRB,8.0451E+00_JPRB/)  
+KBO( :, 1,17,14) = (/&
+ & 3.2750E+00_JPRB,2.6726E+00_JPRB,2.2378E+00_JPRB,2.0301E+00_JPRB,4.7640E+00_JPRB/)  
+KBO( :, 2,17,14) = (/&
+ & 4.5330E+00_JPRB,3.7089E+00_JPRB,3.1283E+00_JPRB,2.8374E+00_JPRB,5.1281E+00_JPRB/)  
+KBO( :, 3,17,14) = (/&
+ & 6.0126E+00_JPRB,4.9507E+00_JPRB,4.2109E+00_JPRB,3.8046E+00_JPRB,5.7513E+00_JPRB/)  
+KBO( :, 4,17,14) = (/&
+ & 7.7135E+00_JPRB,6.4169E+00_JPRB,5.4921E+00_JPRB,4.9337E+00_JPRB,6.7135E+00_JPRB/)  
+KBO( :, 5,17,14) = (/&
+ & 9.6338E+00_JPRB,8.1047E+00_JPRB,6.9599E+00_JPRB,6.2366E+00_JPRB,8.0058E+00_JPRB/)  
+KBO( :, 1,18,14) = (/&
+ & 3.6472E+00_JPRB,2.9807E+00_JPRB,2.5189E+00_JPRB,2.1796E+00_JPRB,4.4334E+00_JPRB/)  
+KBO( :, 2,18,14) = (/&
+ & 5.0323E+00_JPRB,4.1367E+00_JPRB,3.4979E+00_JPRB,3.0247E+00_JPRB,4.9096E+00_JPRB/)  
+KBO( :, 3,18,14) = (/&
+ & 6.6454E+00_JPRB,5.5144E+00_JPRB,4.6858E+00_JPRB,4.0381E+00_JPRB,5.6608E+00_JPRB/)  
+KBO( :, 4,18,14) = (/&
+ & 8.4890E+00_JPRB,7.1264E+00_JPRB,6.0803E+00_JPRB,5.2199E+00_JPRB,6.6925E+00_JPRB/)  
+KBO( :, 5,18,14) = (/&
+ & 1.0542E+01_JPRB,8.9586E+00_JPRB,7.6601E+00_JPRB,6.5575E+00_JPRB,7.9988E+00_JPRB/)  
+KBO( :, 1,19,14) = (/&
+ & 4.0274E+00_JPRB,3.3233E+00_JPRB,2.8227E+00_JPRB,2.3261E+00_JPRB,4.2975E+00_JPRB/)  
+KBO( :, 2,19,14) = (/&
+ & 5.5204E+00_JPRB,4.5992E+00_JPRB,3.8961E+00_JPRB,3.2089E+00_JPRB,4.8408E+00_JPRB/)  
+KBO( :, 3,19,14) = (/&
+ & 7.2641E+00_JPRB,6.1090E+00_JPRB,5.1847E+00_JPRB,4.2710E+00_JPRB,5.6348E+00_JPRB/)  
+KBO( :, 4,19,14) = (/&
+ & 9.2241E+00_JPRB,7.8543E+00_JPRB,6.6837E+00_JPRB,5.5155E+00_JPRB,6.6912E+00_JPRB/)  
+KBO( :, 5,19,14) = (/&
+ & 1.1403E+01_JPRB,9.8034E+00_JPRB,8.3820E+00_JPRB,6.9048E+00_JPRB,7.9670E+00_JPRB/)  
+KBO( :, 1,20,14) = (/&
+ & 4.4042E+00_JPRB,3.6923E+00_JPRB,3.1564E+00_JPRB,2.5009E+00_JPRB,4.3386E+00_JPRB/)  
+KBO( :, 2,20,14) = (/&
+ & 6.0056E+00_JPRB,5.0815E+00_JPRB,4.3305E+00_JPRB,3.4328E+00_JPRB,4.8920E+00_JPRB/)  
+KBO( :, 3,20,14) = (/&
+ & 7.8551E+00_JPRB,6.7164E+00_JPRB,5.7136E+00_JPRB,4.5512E+00_JPRB,5.6658E+00_JPRB/)  
+KBO( :, 4,20,14) = (/&
+ & 9.9239E+00_JPRB,8.5703E+00_JPRB,7.3215E+00_JPRB,5.8504E+00_JPRB,6.6818E+00_JPRB/)  
+KBO( :, 5,20,14) = (/&
+ & 1.2197E+01_JPRB,1.0639E+01_JPRB,9.1299E+00_JPRB,7.3134E+00_JPRB,7.9255E+00_JPRB/)  
+KBO( :, 1,21,14) = (/&
+ & 4.7479E+00_JPRB,4.0508E+00_JPRB,3.4983E+00_JPRB,2.6955E+00_JPRB,4.4010E+00_JPRB/)  
+KBO( :, 2,21,14) = (/&
+ & 6.4355E+00_JPRB,5.5399E+00_JPRB,4.7678E+00_JPRB,3.6820E+00_JPRB,4.9446E+00_JPRB/)  
+KBO( :, 3,21,14) = (/&
+ & 8.3663E+00_JPRB,7.2751E+00_JPRB,6.2518E+00_JPRB,4.8572E+00_JPRB,5.6757E+00_JPRB/)  
+KBO( :, 4,21,14) = (/&
+ & 1.0512E+01_JPRB,9.2314E+00_JPRB,7.9526E+00_JPRB,6.2141E+00_JPRB,6.6288E+00_JPRB/)  
+KBO( :, 5,21,14) = (/&
+ & 1.2856E+01_JPRB,1.1396E+01_JPRB,9.8659E+00_JPRB,7.7561E+00_JPRB,7.8277E+00_JPRB/)  
+KBO( :, 1,22,14) = (/&
+ & 5.1420E+00_JPRB,4.4823E+00_JPRB,3.9096E+00_JPRB,2.9527E+00_JPRB,4.4013E+00_JPRB/)  
+KBO( :, 2,22,14) = (/&
+ & 6.9006E+00_JPRB,6.0705E+00_JPRB,5.2806E+00_JPRB,4.0025E+00_JPRB,4.9528E+00_JPRB/)  
+KBO( :, 3,22,14) = (/&
+ & 8.8983E+00_JPRB,7.9013E+00_JPRB,6.8678E+00_JPRB,5.2402E+00_JPRB,5.6748E+00_JPRB/)  
+KBO( :, 4,22,14) = (/&
+ & 1.1116E+01_JPRB,9.9470E+00_JPRB,8.6698E+00_JPRB,6.6674E+00_JPRB,6.5994E+00_JPRB/)  
+KBO( :, 5,22,14) = (/&
+ & 1.3502E+01_JPRB,1.2202E+01_JPRB,1.0686E+01_JPRB,8.2853E+00_JPRB,7.7517E+00_JPRB/)  
+KBO( :, 1,23,14) = (/&
+ & 5.4713E+00_JPRB,4.8911E+00_JPRB,4.3072E+00_JPRB,3.2139E+00_JPRB,4.3813E+00_JPRB/)  
+KBO( :, 2,23,14) = (/&
+ & 7.2751E+00_JPRB,6.5638E+00_JPRB,5.7664E+00_JPRB,4.3250E+00_JPRB,4.9555E+00_JPRB/)  
+KBO( :, 3,23,14) = (/&
+ & 9.3230E+00_JPRB,8.4735E+00_JPRB,7.4455E+00_JPRB,5.6212E+00_JPRB,5.6783E+00_JPRB/)  
+KBO( :, 4,23,14) = (/&
+ & 1.1564E+01_JPRB,1.0599E+01_JPRB,9.3428E+00_JPRB,7.1049E+00_JPRB,6.5825E+00_JPRB/)  
+KBO( :, 5,23,14) = (/&
+ & 1.3974E+01_JPRB,1.2910E+01_JPRB,1.1439E+01_JPRB,8.7857E+00_JPRB,7.6865E+00_JPRB/)  
+KBO( :, 1,24,14) = (/&
+ & 5.7350E+00_JPRB,5.2712E+00_JPRB,4.6801E+00_JPRB,3.4774E+00_JPRB,4.3078E+00_JPRB/)  
+KBO( :, 2,24,14) = (/&
+ & 7.5695E+00_JPRB,7.0067E+00_JPRB,6.2189E+00_JPRB,4.6444E+00_JPRB,4.9097E+00_JPRB/)  
+KBO( :, 3,24,14) = (/&
+ & 9.6279E+00_JPRB,8.9845E+00_JPRB,7.9822E+00_JPRB,5.9954E+00_JPRB,5.6514E+00_JPRB/)  
+KBO( :, 4,24,14) = (/&
+ & 1.1878E+01_JPRB,1.1160E+01_JPRB,9.9533E+00_JPRB,7.5366E+00_JPRB,6.5532E+00_JPRB/)  
+KBO( :, 5,24,14) = (/&
+ & 1.4285E+01_JPRB,1.3514E+01_JPRB,1.2126E+01_JPRB,9.2665E+00_JPRB,7.6715E+00_JPRB/)  
+KBO( :, 1,25,14) = (/&
+ & 5.9267E+00_JPRB,5.6187E+00_JPRB,5.0280E+00_JPRB,3.7387E+00_JPRB,4.2972E+00_JPRB/)  
+KBO( :, 2,25,14) = (/&
+ & 7.7642E+00_JPRB,7.4077E+00_JPRB,6.6347E+00_JPRB,4.9555E+00_JPRB,4.9309E+00_JPRB/)  
+KBO( :, 3,25,14) = (/&
+ & 9.8187E+00_JPRB,9.4277E+00_JPRB,8.4720E+00_JPRB,6.3648E+00_JPRB,5.6934E+00_JPRB/)  
+KBO( :, 4,25,14) = (/&
+ & 1.2059E+01_JPRB,1.1644E+01_JPRB,1.0515E+01_JPRB,7.9525E+00_JPRB,6.6186E+00_JPRB/)  
+KBO( :, 5,25,14) = (/&
+ & 1.4463E+01_JPRB,1.4040E+01_JPRB,1.2752E+01_JPRB,9.7432E+00_JPRB,7.7714E+00_JPRB/)  
+KBO( :, 1,26,14) = (/&
+ & 6.0673E+00_JPRB,5.9449E+00_JPRB,5.3655E+00_JPRB,4.0058E+00_JPRB,4.3684E+00_JPRB/)  
+KBO( :, 2,26,14) = (/&
+ & 7.8884E+00_JPRB,7.7776E+00_JPRB,7.0359E+00_JPRB,5.2751E+00_JPRB,5.0446E+00_JPRB/)  
+KBO( :, 3,26,14) = (/&
+ & 9.9238E+00_JPRB,9.8293E+00_JPRB,8.9381E+00_JPRB,6.7352E+00_JPRB,5.8349E+00_JPRB/)  
+KBO( :, 4,26,14) = (/&
+ & 1.2150E+01_JPRB,1.2086E+01_JPRB,1.1047E+01_JPRB,8.3792E+00_JPRB,6.8011E+00_JPRB/)  
+KBO( :, 5,26,14) = (/&
+ & 1.4535E+01_JPRB,1.4527E+01_JPRB,1.3353E+01_JPRB,1.0236E+01_JPRB,7.9789E+00_JPRB/)  
+KBO( :, 1,27,14) = (/&
+ & 6.1343E+00_JPRB,6.2302E+00_JPRB,5.6763E+00_JPRB,4.2525E+00_JPRB,4.3799E+00_JPRB/)  
+KBO( :, 2,27,14) = (/&
+ & 7.9331E+00_JPRB,8.0869E+00_JPRB,7.4032E+00_JPRB,5.5689E+00_JPRB,5.1012E+00_JPRB/)  
+KBO( :, 3,27,14) = (/&
+ & 9.9492E+00_JPRB,1.0172E+01_JPRB,9.3622E+00_JPRB,7.0779E+00_JPRB,5.9411E+00_JPRB/)  
+KBO( :, 4,27,14) = (/&
+ & 1.2151E+01_JPRB,1.2467E+01_JPRB,1.1529E+01_JPRB,8.7861E+00_JPRB,6.9495E+00_JPRB/)  
+KBO( :, 5,27,14) = (/&
+ & 1.4529E+01_JPRB,1.4944E+01_JPRB,1.3914E+01_JPRB,1.0727E+01_JPRB,8.1417E+00_JPRB/)  
+KBO( :, 1,28,14) = (/&
+ & 6.1453E+00_JPRB,6.4763E+00_JPRB,5.9637E+00_JPRB,4.4841E+00_JPRB,4.3357E+00_JPRB/)  
+KBO( :, 2,28,14) = (/&
+ & 7.9217E+00_JPRB,8.3599E+00_JPRB,7.7430E+00_JPRB,5.8381E+00_JPRB,5.0957E+00_JPRB/)  
+KBO( :, 3,28,14) = (/&
+ & 9.9089E+00_JPRB,1.0474E+01_JPRB,9.7521E+00_JPRB,7.4031E+00_JPRB,5.9939E+00_JPRB/)  
+KBO( :, 4,28,14) = (/&
+ & 1.2103E+01_JPRB,1.2802E+01_JPRB,1.1983E+01_JPRB,9.1765E+00_JPRB,7.0380E+00_JPRB/)  
+KBO( :, 5,28,14) = (/&
+ & 1.4484E+01_JPRB,1.5315E+01_JPRB,1.4450E+01_JPRB,1.1205E+01_JPRB,8.2560E+00_JPRB/)  
+KBO( :, 1,29,14) = (/&
+ & 6.1344E+00_JPRB,6.7103E+00_JPRB,6.2468E+00_JPRB,4.7094E+00_JPRB,4.2060E+00_JPRB/)  
+KBO( :, 2,29,14) = (/&
+ & 7.8873E+00_JPRB,8.6217E+00_JPRB,8.0781E+00_JPRB,6.1108E+00_JPRB,4.9771E+00_JPRB/)  
+KBO( :, 3,29,14) = (/&
+ & 9.8658E+00_JPRB,1.0771E+01_JPRB,1.0146E+01_JPRB,7.7338E+00_JPRB,5.8851E+00_JPRB/)  
+KBO( :, 4,29,14) = (/&
+ & 1.2059E+01_JPRB,1.3133E+01_JPRB,1.2445E+01_JPRB,9.5787E+00_JPRB,6.9308E+00_JPRB/)  
+KBO( :, 5,29,14) = (/&
+ & 1.4440E+01_JPRB,1.5700E+01_JPRB,1.5002E+01_JPRB,1.1702E+01_JPRB,8.1658E+00_JPRB/)  
+KBO( :, 1,30,14) = (/&
+ & 6.1074E+00_JPRB,6.9340E+00_JPRB,6.5266E+00_JPRB,4.9327E+00_JPRB,4.0096E+00_JPRB/)  
+KBO( :, 2,30,14) = (/&
+ & 7.8501E+00_JPRB,8.8831E+00_JPRB,8.4088E+00_JPRB,6.3894E+00_JPRB,4.7868E+00_JPRB/)  
+KBO( :, 3,30,14) = (/&
+ & 9.8321E+00_JPRB,1.1068E+01_JPRB,1.0541E+01_JPRB,8.0663E+00_JPRB,5.6845E+00_JPRB/)  
+KBO( :, 4,30,14) = (/&
+ & 1.2029E+01_JPRB,1.3476E+01_JPRB,1.2917E+01_JPRB,9.9903E+00_JPRB,6.7312E+00_JPRB/)  
+KBO( :, 5,30,14) = (/&
+ & 1.4419E+01_JPRB,1.6109E+01_JPRB,1.5573E+01_JPRB,1.2209E+01_JPRB,7.9754E+00_JPRB/)  
+KBO( :, 1,31,14) = (/&
+ & 6.0986E+00_JPRB,7.1722E+00_JPRB,6.8200E+00_JPRB,5.1755E+00_JPRB,3.7163E+00_JPRB/)  
+KBO( :, 2,31,14) = (/&
+ & 7.8450E+00_JPRB,9.1619E+00_JPRB,8.7620E+00_JPRB,6.6858E+00_JPRB,4.4619E+00_JPRB/)  
+KBO( :, 3,31,14) = (/&
+ & 9.8340E+00_JPRB,1.1393E+01_JPRB,1.0969E+01_JPRB,8.4279E+00_JPRB,5.3316E+00_JPRB/)  
+KBO( :, 4,31,14) = (/&
+ & 1.2043E+01_JPRB,1.3864E+01_JPRB,1.3429E+01_JPRB,1.0440E+01_JPRB,6.3686E+00_JPRB/)  
+KBO( :, 5,31,14) = (/&
+ & 1.4461E+01_JPRB,1.6571E+01_JPRB,1.6185E+01_JPRB,1.2751E+01_JPRB,7.6315E+00_JPRB/)  
+KBO( :, 1,32,14) = (/&
+ & 6.1266E+00_JPRB,7.4384E+00_JPRB,7.1350E+00_JPRB,5.4384E+00_JPRB,3.4364E+00_JPRB/)  
+KBO( :, 2,32,14) = (/&
+ & 7.8843E+00_JPRB,9.4733E+00_JPRB,9.1481E+00_JPRB,7.0065E+00_JPRB,4.1508E+00_JPRB/)  
+KBO( :, 3,32,14) = (/&
+ & 9.8908E+00_JPRB,1.1765E+01_JPRB,1.1436E+01_JPRB,8.8189E+00_JPRB,5.0057E+00_JPRB/)  
+KBO( :, 4,32,14) = (/&
+ & 1.2132E+01_JPRB,1.4306E+01_JPRB,1.3989E+01_JPRB,1.0926E+01_JPRB,6.0480E+00_JPRB/)  
+KBO( :, 5,32,14) = (/&
+ & 1.4591E+01_JPRB,1.7095E+01_JPRB,1.6845E+01_JPRB,1.3332E+01_JPRB,7.3373E+00_JPRB/)  
+KBO( :, 1,33,14) = (/&
+ & 6.1928E+00_JPRB,7.7310E+00_JPRB,7.4804E+00_JPRB,5.7251E+00_JPRB,3.1571E+00_JPRB/)  
+KBO( :, 2,33,14) = (/&
+ & 7.9747E+00_JPRB,9.8269E+00_JPRB,9.5731E+00_JPRB,7.3563E+00_JPRB,3.8547E+00_JPRB/)  
+KBO( :, 3,33,14) = (/&
+ & 1.0016E+01_JPRB,1.2187E+01_JPRB,1.1940E+01_JPRB,9.2481E+00_JPRB,4.7049E+00_JPRB/)  
+KBO( :, 4,33,14) = (/&
+ & 1.2296E+01_JPRB,1.4804E+01_JPRB,1.4590E+01_JPRB,1.1453E+01_JPRB,5.7736E+00_JPRB/)  
+KBO( :, 5,33,14) = (/&
+ & 1.4813E+01_JPRB,1.7670E+01_JPRB,1.7552E+01_JPRB,1.3951E+01_JPRB,7.0995E+00_JPRB/)  
+KBO( :, 1,34,14) = (/&
+ & 6.2424E+00_JPRB,7.9897E+00_JPRB,7.7910E+00_JPRB,5.9836E+00_JPRB,2.9611E+00_JPRB/)  
+KBO( :, 2,34,14) = (/&
+ & 8.0550E+00_JPRB,1.0143E+01_JPRB,9.9528E+00_JPRB,7.6724E+00_JPRB,3.6568E+00_JPRB/)  
+KBO( :, 3,34,14) = (/&
+ & 1.0129E+01_JPRB,1.2569E+01_JPRB,1.2399E+01_JPRB,9.6375E+00_JPRB,4.5137E+00_JPRB/)  
+KBO( :, 4,34,14) = (/&
+ & 1.2455E+01_JPRB,1.5251E+01_JPRB,1.5135E+01_JPRB,1.1928E+01_JPRB,5.6067E+00_JPRB/)  
+KBO( :, 5,34,14) = (/&
+ & 1.5024E+01_JPRB,1.8190E+01_JPRB,1.8193E+01_JPRB,1.4509E+01_JPRB,6.9726E+00_JPRB/)  
+KBO( :, 1,35,14) = (/&
+ & 6.1783E+00_JPRB,8.0868E+00_JPRB,7.9354E+00_JPRB,6.1097E+00_JPRB,2.7386E+00_JPRB/)  
+KBO( :, 2,35,14) = (/&
+ & 8.0021E+00_JPRB,1.0274E+01_JPRB,1.0143E+01_JPRB,7.8342E+00_JPRB,3.4231E+00_JPRB/)  
+KBO( :, 3,35,14) = (/&
+ & 1.0093E+01_JPRB,1.2741E+01_JPRB,1.2638E+01_JPRB,9.8464E+00_JPRB,4.2817E+00_JPRB/)  
+KBO( :, 4,35,14) = (/&
+ & 1.2448E+01_JPRB,1.5466E+01_JPRB,1.5430E+01_JPRB,1.2190E+01_JPRB,5.3838E+00_JPRB/)  
+KBO( :, 5,35,14) = (/&
+ & 1.5050E+01_JPRB,1.8453E+01_JPRB,1.8553E+01_JPRB,1.4830E+01_JPRB,6.7795E+00_JPRB/)  
+KBO( :, 1,36,14) = (/&
+ & 5.9739E+00_JPRB,7.9879E+00_JPRB,7.8762E+00_JPRB,6.0736E+00_JPRB,2.4966E+00_JPRB/)  
+KBO( :, 2,36,14) = (/&
+ & 7.7837E+00_JPRB,1.0180E+01_JPRB,1.0097E+01_JPRB,7.8072E+00_JPRB,3.1606E+00_JPRB/)  
+KBO( :, 3,36,14) = (/&
+ & 9.8723E+00_JPRB,1.2658E+01_JPRB,1.2607E+01_JPRB,9.8330E+00_JPRB,4.0029E+00_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART33',1,ZHOOK_HANDLE)
+END SUBROUTINE PART33
+
+
+SUBROUTINE PART34
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART34',0,ZHOOK_HANDLE)
+
+
+KBO( :, 4,36,14) = (/&
+ & 1.2229E+01_JPRB,1.5396E+01_JPRB,1.5418E+01_JPRB,1.2194E+01_JPRB,5.0917E+00_JPRB/)  
+KBO( :, 5,36,14) = (/&
+ & 1.4834E+01_JPRB,1.8403E+01_JPRB,1.8570E+01_JPRB,1.4857E+01_JPRB,6.4863E+00_JPRB/)  
+KBO( :, 1,37,14) = (/&
+ & 5.5612E+00_JPRB,7.6037E+00_JPRB,7.5217E+00_JPRB,5.8049E+00_JPRB,2.2433E+00_JPRB/)  
+KBO( :, 2,37,14) = (/&
+ & 7.3179E+00_JPRB,9.7571E+00_JPRB,9.7063E+00_JPRB,7.5074E+00_JPRB,2.8646E+00_JPRB/)  
+KBO( :, 3,37,14) = (/&
+ & 9.3602E+00_JPRB,1.2203E+01_JPRB,1.2188E+01_JPRB,9.5001E+00_JPRB,3.6608E+00_JPRB/)  
+KBO( :, 4,37,14) = (/&
+ & 1.1681E+01_JPRB,1.4916E+01_JPRB,1.4967E+01_JPRB,1.1825E+01_JPRB,4.7005E+00_JPRB/)  
+KBO( :, 5,37,14) = (/&
+ & 1.4259E+01_JPRB,1.7897E+01_JPRB,1.8089E+01_JPRB,1.4461E+01_JPRB,6.0475E+00_JPRB/)  
+KBO( :, 1,38,14) = (/&
+ & 5.1796E+00_JPRB,7.2275E+00_JPRB,7.1681E+00_JPRB,5.5362E+00_JPRB,1.9985E+00_JPRB/)  
+KBO( :, 2,38,14) = (/&
+ & 6.8825E+00_JPRB,9.3401E+00_JPRB,9.3116E+00_JPRB,7.2050E+00_JPRB,2.5786E+00_JPRB/)  
+KBO( :, 3,38,14) = (/&
+ & 8.8770E+00_JPRB,1.1748E+01_JPRB,1.1759E+01_JPRB,9.1583E+00_JPRB,3.3304E+00_JPRB/)  
+KBO( :, 4,38,14) = (/&
+ & 1.1161E+01_JPRB,1.4430E+01_JPRB,1.4508E+01_JPRB,1.1443E+01_JPRB,4.3225E+00_JPRB/)  
+KBO( :, 5,38,14) = (/&
+ & 1.3706E+01_JPRB,1.7382E+01_JPRB,1.7591E+01_JPRB,1.4049E+01_JPRB,5.6183E+00_JPRB/)  
+KBO( :, 1,39,14) = (/&
+ & 4.8363E+00_JPRB,6.8762E+00_JPRB,6.8344E+00_JPRB,5.2801E+00_JPRB,1.7623E+00_JPRB/)  
+KBO( :, 2,39,14) = (/&
+ & 6.4874E+00_JPRB,8.9479E+00_JPRB,8.9339E+00_JPRB,6.9176E+00_JPRB,2.3035E+00_JPRB/)  
+KBO( :, 3,39,14) = (/&
+ & 8.4367E+00_JPRB,1.1315E+01_JPRB,1.1346E+01_JPRB,8.8331E+00_JPRB,3.0157E+00_JPRB/)  
+KBO( :, 4,39,14) = (/&
+ & 1.0680E+01_JPRB,1.3965E+01_JPRB,1.4062E+01_JPRB,1.1077E+01_JPRB,3.9619E+00_JPRB/)  
+KBO( :, 5,39,14) = (/&
+ & 1.3190E+01_JPRB,1.6887E+01_JPRB,1.7105E+01_JPRB,1.3646E+01_JPRB,5.2103E+00_JPRB/)  
+KBO( :, 1,40,14) = (/&
+ & 4.3793E+00_JPRB,6.3557E+00_JPRB,6.3258E+00_JPRB,4.8864E+00_JPRB,1.5658E+00_JPRB/)  
+KBO( :, 2,40,14) = (/&
+ & 5.9498E+00_JPRB,8.3535E+00_JPRB,8.3464E+00_JPRB,6.4658E+00_JPRB,2.0604E+00_JPRB/)  
+KBO( :, 3,40,14) = (/&
+ & 7.8232E+00_JPRB,1.0648E+01_JPRB,1.0689E+01_JPRB,8.3111E+00_JPRB,2.7192E+00_JPRB/)  
+KBO( :, 4,40,14) = (/&
+ & 9.9941E+00_JPRB,1.3236E+01_JPRB,1.3338E+01_JPRB,1.0477E+01_JPRB,3.5936E+00_JPRB/)  
+KBO( :, 5,40,14) = (/&
+ & 1.2441E+01_JPRB,1.6098E+01_JPRB,1.6304E+01_JPRB,1.2976E+01_JPRB,4.7608E+00_JPRB/)  
+KBO( :, 1,41,14) = (/&
+ & 3.9456E+00_JPRB,5.8420E+00_JPRB,5.8231E+00_JPRB,4.4960E+00_JPRB,1.3889E+00_JPRB/)  
+KBO( :, 2,41,14) = (/&
+ & 5.4322E+00_JPRB,7.7601E+00_JPRB,7.7597E+00_JPRB,6.0124E+00_JPRB,1.8377E+00_JPRB/)  
+KBO( :, 3,41,14) = (/&
+ & 7.2229E+00_JPRB,9.9804E+00_JPRB,1.0024E+01_JPRB,7.7851E+00_JPRB,2.4432E+00_JPRB/)  
+KBO( :, 4,41,14) = (/&
+ & 9.3151E+00_JPRB,1.2496E+01_JPRB,1.2598E+01_JPRB,9.8694E+00_JPRB,3.2503E+00_JPRB/)  
+KBO( :, 5,41,14) = (/&
+ & 1.1696E+01_JPRB,1.5294E+01_JPRB,1.5489E+01_JPRB,1.2290E+01_JPRB,4.3315E+00_JPRB/)  
+KBO( :, 1,42,14) = (/&
+ & 3.5496E+00_JPRB,5.3598E+00_JPRB,5.3497E+00_JPRB,4.1263E+00_JPRB,1.2230E+00_JPRB/)  
+KBO( :, 2,42,14) = (/&
+ & 4.9552E+00_JPRB,7.1957E+00_JPRB,7.1981E+00_JPRB,5.5771E+00_JPRB,1.6308E+00_JPRB/)  
+KBO( :, 3,42,14) = (/&
+ & 6.6624E+00_JPRB,9.3374E+00_JPRB,9.3819E+00_JPRB,7.2830E+00_JPRB,2.1850E+00_JPRB/)  
+KBO( :, 4,42,14) = (/&
+ & 8.6755E+00_JPRB,1.1781E+01_JPRB,1.1882E+01_JPRB,9.2833E+00_JPRB,2.9295E+00_JPRB/)  
+KBO( :, 5,42,14) = (/&
+ & 1.0984E+01_JPRB,1.4512E+01_JPRB,1.4694E+01_JPRB,1.1624E+01_JPRB,3.9287E+00_JPRB/)  
+KBO( :, 1,43,14) = (/&
+ & 3.1237E+00_JPRB,4.8164E+00_JPRB,4.8129E+00_JPRB,3.7055E+00_JPRB,1.0597E+00_JPRB/)  
+KBO( :, 2,43,14) = (/&
+ & 4.4310E+00_JPRB,6.5524E+00_JPRB,6.5555E+00_JPRB,5.0769E+00_JPRB,1.4220E+00_JPRB/)  
+KBO( :, 3,43,14) = (/&
+ & 6.0363E+00_JPRB,8.5993E+00_JPRB,8.6369E+00_JPRB,6.7040E+00_JPRB,1.9190E+00_JPRB/)  
+KBO( :, 4,43,14) = (/&
+ & 7.9515E+00_JPRB,1.0949E+01_JPRB,1.1041E+01_JPRB,8.6082E+00_JPRB,2.5937E+00_JPRB/)  
+KBO( :, 5,43,14) = (/&
+ & 1.0170E+01_JPRB,1.3594E+01_JPRB,1.3761E+01_JPRB,1.0846E+01_JPRB,3.5024E+00_JPRB/)  
+KBO( :, 1,44,14) = (/&
+ & 2.7094E+00_JPRB,4.2738E+00_JPRB,4.2715E+00_JPRB,3.2851E+00_JPRB,9.0642E-01_JPRB/)  
+KBO( :, 2,44,14) = (/&
+ & 3.9148E+00_JPRB,5.9019E+00_JPRB,5.9083E+00_JPRB,4.5708E+00_JPRB,1.2238E+00_JPRB/)  
+KBO( :, 3,44,14) = (/&
+ & 5.4146E+00_JPRB,7.8441E+00_JPRB,7.8762E+00_JPRB,6.1124E+00_JPRB,1.6632E+00_JPRB/)  
+KBO( :, 4,44,14) = (/&
+ & 7.2212E+00_JPRB,1.0093E+01_JPRB,1.0172E+01_JPRB,7.9162E+00_JPRB,2.2685E+00_JPRB/)  
+KBO( :, 5,44,14) = (/&
+ & 9.3383E+00_JPRB,1.2640E+01_JPRB,1.2790E+01_JPRB,1.0039E+01_JPRB,3.0877E+00_JPRB/)  
+KBO( :, 1,45,14) = (/&
+ & 2.3381E+00_JPRB,3.7708E+00_JPRB,3.7687E+00_JPRB,2.8968E+00_JPRB,7.6661E-01_JPRB/)  
+KBO( :, 2,45,14) = (/&
+ & 3.4439E+00_JPRB,5.2956E+00_JPRB,5.3039E+00_JPRB,4.0958E+00_JPRB,1.0405E+00_JPRB/)  
+KBO( :, 3,45,14) = (/&
+ & 4.8375E+00_JPRB,7.1296E+00_JPRB,7.1547E+00_JPRB,5.5510E+00_JPRB,1.4289E+00_JPRB/)  
+KBO( :, 4,45,14) = (/&
+ & 6.5366E+00_JPRB,9.2742E+00_JPRB,9.3409E+00_JPRB,7.2620E+00_JPRB,1.9684E+00_JPRB/)  
+KBO( :, 5,45,14) = (/&
+ & 8.5492E+00_JPRB,1.1723E+01_JPRB,1.1855E+01_JPRB,9.2715E+00_JPRB,2.7076E+00_JPRB/)  
+KBO( :, 1,46,14) = (/&
+ & 1.9868E+00_JPRB,3.2812E+00_JPRB,3.2800E+00_JPRB,2.5190E+00_JPRB,6.4180E-01_JPRB/)  
+KBO( :, 2,46,14) = (/&
+ & 2.9896E+00_JPRB,4.6959E+00_JPRB,4.7028E+00_JPRB,3.6244E+00_JPRB,8.7338E-01_JPRB/)  
+KBO( :, 3,46,14) = (/&
+ & 4.2743E+00_JPRB,6.4145E+00_JPRB,6.4351E+00_JPRB,4.9866E+00_JPRB,1.2115E+00_JPRB/)  
+KBO( :, 4,46,14) = (/&
+ & 5.8592E+00_JPRB,8.4475E+00_JPRB,8.5037E+00_JPRB,6.6059E+00_JPRB,1.6869E+00_JPRB/)  
+KBO( :, 5,46,14) = (/&
+ & 7.7565E+00_JPRB,1.0789E+01_JPRB,1.0900E+01_JPRB,8.5039E+00_JPRB,2.3466E+00_JPRB/)  
+KBO( :, 1,47,14) = (/&
+ & 1.6439E+00_JPRB,2.7872E+00_JPRB,2.7853E+00_JPRB,2.1361E+00_JPRB,5.3608E-01_JPRB/)  
+KBO( :, 2,47,14) = (/&
+ & 2.5332E+00_JPRB,4.0761E+00_JPRB,4.0808E+00_JPRB,3.1417E+00_JPRB,7.2689E-01_JPRB/)  
+KBO( :, 3,47,14) = (/&
+ & 3.7004E+00_JPRB,5.6682E+00_JPRB,5.6872E+00_JPRB,4.4002E+00_JPRB,1.0142E+00_JPRB/)  
+KBO( :, 4,47,14) = (/&
+ & 5.1603E+00_JPRB,7.5763E+00_JPRB,7.6194E+00_JPRB,5.9172E+00_JPRB,1.4236E+00_JPRB/)  
+KBO( :, 5,47,14) = (/&
+ & 6.9294E+00_JPRB,9.7951E+00_JPRB,9.8846E+00_JPRB,7.6954E+00_JPRB,2.0006E+00_JPRB/)  
+KBO( :, 1,48,14) = (/&
+ & 1.3454E+00_JPRB,2.3441E+00_JPRB,2.3435E+00_JPRB,1.7934E+00_JPRB,4.4332E-01_JPRB/)  
+KBO( :, 2,48,14) = (/&
+ & 2.1289E+00_JPRB,3.5090E+00_JPRB,3.5130E+00_JPRB,2.7017E+00_JPRB,5.9906E-01_JPRB/)  
+KBO( :, 3,48,14) = (/&
+ & 3.1810E+00_JPRB,4.9808E+00_JPRB,4.9955E+00_JPRB,3.8562E+00_JPRB,8.3681E-01_JPRB/)  
+KBO( :, 4,48,14) = (/&
+ & 4.5168E+00_JPRB,6.7583E+00_JPRB,6.7897E+00_JPRB,5.2679E+00_JPRB,1.1898E+00_JPRB/)  
+KBO( :, 5,48,14) = (/&
+ & 6.1589E+00_JPRB,8.8519E+00_JPRB,8.9240E+00_JPRB,6.9392E+00_JPRB,1.6894E+00_JPRB/)  
+KBO( :, 1,49,14) = (/&
+ & 1.0880E+00_JPRB,1.9520E+00_JPRB,1.9492E+00_JPRB,1.4892E+00_JPRB,3.6205E-01_JPRB/)  
+KBO( :, 2,49,14) = (/&
+ & 1.7730E+00_JPRB,2.9965E+00_JPRB,2.9993E+00_JPRB,2.3026E+00_JPRB,4.8696E-01_JPRB/)  
+KBO( :, 3,49,14) = (/&
+ & 2.7108E+00_JPRB,4.3431E+00_JPRB,4.3550E+00_JPRB,3.3555E+00_JPRB,6.7993E-01_JPRB/)  
+KBO( :, 4,49,14) = (/&
+ & 3.9297E+00_JPRB,5.9939E+00_JPRB,6.0205E+00_JPRB,4.6638E+00_JPRB,9.7892E-01_JPRB/)  
+KBO( :, 5,49,14) = (/&
+ & 5.4456E+00_JPRB,7.9623E+00_JPRB,8.0197E+00_JPRB,6.2316E+00_JPRB,1.4097E+00_JPRB/)  
+KBO( :, 1,50,14) = (/&
+ & 8.8117E-01_JPRB,1.6250E+00_JPRB,1.6221E+00_JPRB,1.2383E+00_JPRB,3.0851E-01_JPRB/)  
+KBO( :, 2,50,14) = (/&
+ & 1.4792E+00_JPRB,2.5614E+00_JPRB,2.5640E+00_JPRB,1.9649E+00_JPRB,4.1033E-01_JPRB/)  
+KBO( :, 3,50,14) = (/&
+ & 2.3153E+00_JPRB,3.7911E+00_JPRB,3.7998E+00_JPRB,2.9253E+00_JPRB,5.6911E-01_JPRB/)  
+KBO( :, 4,50,14) = (/&
+ & 3.4255E+00_JPRB,5.3270E+00_JPRB,5.3498E+00_JPRB,4.1369E+00_JPRB,8.2028E-01_JPRB/)  
+KBO( :, 5,50,14) = (/&
+ & 4.8249E+00_JPRB,7.1748E+00_JPRB,7.2189E+00_JPRB,5.6068E+00_JPRB,1.1946E+00_JPRB/)  
+KBO( :, 1,51,14) = (/&
+ & 7.1056E-01_JPRB,1.3442E+00_JPRB,1.3433E+00_JPRB,1.0241E+00_JPRB,2.6969E-01_JPRB/)  
+KBO( :, 2,51,14) = (/&
+ & 1.2285E+00_JPRB,2.1825E+00_JPRB,2.1836E+00_JPRB,1.6701E+00_JPRB,3.5352E-01_JPRB/)  
+KBO( :, 3,51,14) = (/&
+ & 1.9719E+00_JPRB,3.3009E+00_JPRB,3.3075E+00_JPRB,2.5431E+00_JPRB,4.8463E-01_JPRB/)  
+KBO( :, 4,51,14) = (/&
+ & 2.9787E+00_JPRB,4.7254E+00_JPRB,4.7429E+00_JPRB,3.6598E+00_JPRB,6.9430E-01_JPRB/)  
+KBO( :, 5,51,14) = (/&
+ & 4.2688E+00_JPRB,6.4560E+00_JPRB,6.4905E+00_JPRB,5.0345E+00_JPRB,1.0186E+00_JPRB/)  
+KBO( :, 1,52,14) = (/&
+ & 5.6673E-01_JPRB,1.0993E+00_JPRB,1.1002E+00_JPRB,8.3639E-01_JPRB,2.3587E-01_JPRB/)  
+KBO( :, 2,52,14) = (/&
+ & 1.0109E+00_JPRB,1.8431E+00_JPRB,1.8420E+00_JPRB,1.4073E+00_JPRB,3.0435E-01_JPRB/)  
+KBO( :, 3,52,14) = (/&
+ & 1.6672E+00_JPRB,2.8532E+00_JPRB,2.8589E+00_JPRB,2.1945E+00_JPRB,4.1172E-01_JPRB/)  
+KBO( :, 4,52,14) = (/&
+ & 2.5718E+00_JPRB,4.1653E+00_JPRB,4.1785E+00_JPRB,3.2201E+00_JPRB,5.8484E-01_JPRB/)  
+KBO( :, 5,52,14) = (/&
+ & 3.7560E+00_JPRB,5.7814E+00_JPRB,5.8111E+00_JPRB,4.5005E+00_JPRB,8.6103E-01_JPRB/)  
+KBO( :, 1,53,14) = (/&
+ & 4.4695E-01_JPRB,8.8846E-01_JPRB,8.9001E-01_JPRB,6.7290E-01_JPRB,2.0456E-01_JPRB/)  
+KBO( :, 2,53,14) = (/&
+ & 8.2293E-01_JPRB,1.5387E+00_JPRB,1.5377E+00_JPRB,1.1737E+00_JPRB,2.6214E-01_JPRB/)  
+KBO( :, 3,53,14) = (/&
+ & 1.3961E+00_JPRB,2.4467E+00_JPRB,2.4512E+00_JPRB,1.8778E+00_JPRB,3.4832E-01_JPRB/)  
+KBO( :, 4,53,14) = (/&
+ & 2.2042E+00_JPRB,3.6459E+00_JPRB,3.6556E+00_JPRB,2.8141E+00_JPRB,4.9014E-01_JPRB/)  
+KBO( :, 5,53,14) = (/&
+ & 3.2850E+00_JPRB,5.1511E+00_JPRB,5.1749E+00_JPRB,4.0006E+00_JPRB,7.2139E-01_JPRB/)  
+KBO( :, 1,54,14) = (/&
+ & 3.5542E-01_JPRB,7.2243E-01_JPRB,7.2402E-01_JPRB,5.4442E-01_JPRB,1.8822E-01_JPRB/)  
+KBO( :, 2,54,14) = (/&
+ & 6.7476E-01_JPRB,1.2906E+00_JPRB,1.2914E+00_JPRB,9.8429E-01_JPRB,2.4211E-01_JPRB/)  
+KBO( :, 3,54,14) = (/&
+ & 1.1767E+00_JPRB,2.1105E+00_JPRB,2.1120E+00_JPRB,1.6159E+00_JPRB,3.1436E-01_JPRB/)  
+KBO( :, 4,54,14) = (/&
+ & 1.9014E+00_JPRB,3.2074E+00_JPRB,3.2160E+00_JPRB,2.4725E+00_JPRB,4.3384E-01_JPRB/)  
+KBO( :, 5,54,14) = (/&
+ & 2.8871E+00_JPRB,4.6109E+00_JPRB,4.6302E+00_JPRB,3.5724E+00_JPRB,6.2978E-01_JPRB/)  
+KBO( :, 1,55,14) = (/&
+ & 2.8206E-01_JPRB,5.8561E-01_JPRB,5.8631E-01_JPRB,4.3881E-01_JPRB,1.7956E-01_JPRB/)  
+KBO( :, 2,55,14) = (/&
+ & 5.5285E-01_JPRB,1.0805E+00_JPRB,1.0824E+00_JPRB,8.2279E-01_JPRB,2.3170E-01_JPRB/)  
+KBO( :, 3,55,14) = (/&
+ & 9.9080E-01_JPRB,1.8171E+00_JPRB,1.8174E+00_JPRB,1.3888E+00_JPRB,2.9651E-01_JPRB/)  
+KBO( :, 4,55,14) = (/&
+ & 1.6397E+00_JPRB,2.8207E+00_JPRB,2.8269E+00_JPRB,2.1700E+00_JPRB,3.9927E-01_JPRB/)  
+KBO( :, 5,55,14) = (/&
+ & 2.5364E+00_JPRB,4.1246E+00_JPRB,4.1390E+00_JPRB,3.1901E+00_JPRB,5.6676E-01_JPRB/)  
+KBO( :, 1,56,14) = (/&
+ & 2.2149E-01_JPRB,4.6888E-01_JPRB,4.6793E-01_JPRB,3.4931E-01_JPRB,1.7153E-01_JPRB/)  
+KBO( :, 2,56,14) = (/&
+ & 4.4941E-01_JPRB,8.9702E-01_JPRB,8.9917E-01_JPRB,6.8030E-01_JPRB,2.2216E-01_JPRB/)  
+KBO( :, 3,56,14) = (/&
+ & 8.2764E-01_JPRB,1.5520E+00_JPRB,1.5517E+00_JPRB,1.1848E+00_JPRB,2.8403E-01_JPRB/)  
+KBO( :, 4,56,14) = (/&
+ & 1.4044E+00_JPRB,2.4656E+00_JPRB,2.4713E+00_JPRB,1.8937E+00_JPRB,3.7249E-01_JPRB/)  
+KBO( :, 5,56,14) = (/&
+ & 2.2168E+00_JPRB,3.6708E+00_JPRB,3.6827E+00_JPRB,2.8356E+00_JPRB,5.1654E-01_JPRB/)  
+KBO( :, 1,57,14) = (/&
+ & 1.7214E-01_JPRB,3.7079E-01_JPRB,3.6824E-01_JPRB,2.7420E-01_JPRB,1.6338E-01_JPRB/)  
+KBO( :, 2,57,14) = (/&
+ & 3.6172E-01_JPRB,7.3713E-01_JPRB,7.3924E-01_JPRB,5.5639E-01_JPRB,2.1373E-01_JPRB/)  
+KBO( :, 3,57,14) = (/&
+ & 6.8570E-01_JPRB,1.3134E+00_JPRB,1.3148E+00_JPRB,1.0025E+00_JPRB,2.7456E-01_JPRB/)  
+KBO( :, 4,57,14) = (/&
+ & 1.1942E+00_JPRB,2.1424E+00_JPRB,2.1454E+00_JPRB,1.6418E+00_JPRB,3.5310E-01_JPRB/)  
+KBO( :, 5,57,14) = (/&
+ & 1.9264E+00_JPRB,3.2505E+00_JPRB,3.2602E+00_JPRB,2.5070E+00_JPRB,4.7752E-01_JPRB/)  
+KBO( :, 1,58,14) = (/&
+ & 1.3445E-01_JPRB,2.9284E-01_JPRB,2.8903E-01_JPRB,2.1482E-01_JPRB,1.5774E-01_JPRB/)  
+KBO( :, 2,58,14) = (/&
+ & 2.9137E-01_JPRB,6.0563E-01_JPRB,6.0668E-01_JPRB,4.5447E-01_JPRB,2.0929E-01_JPRB/)  
+KBO( :, 3,58,14) = (/&
+ & 5.6904E-01_JPRB,1.1121E+00_JPRB,1.1143E+00_JPRB,8.4762E-01_JPRB,2.7004E-01_JPRB/)  
+KBO( :, 4,58,14) = (/&
+ & 1.0164E+00_JPRB,1.8625E+00_JPRB,1.8634E+00_JPRB,1.4242E+00_JPRB,3.4514E-01_JPRB/)  
+KBO( :, 5,58,14) = (/&
+ & 1.6772E+00_JPRB,2.8815E+00_JPRB,2.8885E+00_JPRB,2.2182E+00_JPRB,4.5564E-01_JPRB/)  
+KBO( :, 1,59,14) = (/&
+ & 1.2131E-01_JPRB,2.6518E-01_JPRB,2.6089E-01_JPRB,1.9393E-01_JPRB,1.7441E-01_JPRB/)  
+KBO( :, 2,59,14) = (/&
+ & 2.6626E-01_JPRB,5.5782E-01_JPRB,5.5852E-01_JPRB,4.1787E-01_JPRB,2.3461E-01_JPRB/)  
+KBO( :, 3,59,14) = (/&
+ & 5.2659E-01_JPRB,1.0377E+00_JPRB,1.0403E+00_JPRB,7.9028E-01_JPRB,3.0633E-01_JPRB/)  
+KBO( :, 4,59,14) = (/&
+ & 9.5064E-01_JPRB,1.7566E+00_JPRB,1.7573E+00_JPRB,1.3429E+00_JPRB,3.9674E-01_JPRB/)  
+KBO( :, 5,59,14) = (/&
+ & 1.5830E+00_JPRB,2.7404E+00_JPRB,2.7474E+00_JPRB,2.1087E+00_JPRB,5.2021E-01_JPRB/)  
+KBO( :, 1,13,15) = (/&
+ & 3.2244E+00_JPRB,2.5409E+00_JPRB,3.1328E+00_JPRB,4.6712E+00_JPRB,1.1048E+01_JPRB/)  
+KBO( :, 2,13,15) = (/&
+ & 4.5398E+00_JPRB,3.6057E+00_JPRB,4.5237E+00_JPRB,6.7554E+00_JPRB,1.1523E+01_JPRB/)  
+KBO( :, 3,13,15) = (/&
+ & 6.0837E+00_JPRB,4.8732E+00_JPRB,6.1887E+00_JPRB,9.2622E+00_JPRB,1.3154E+01_JPRB/)  
+KBO( :, 4,13,15) = (/&
+ & 7.8628E+00_JPRB,6.3217E+00_JPRB,8.1422E+00_JPRB,1.2196E+01_JPRB,1.6296E+01_JPRB/)  
+KBO( :, 5,13,15) = (/&
+ & 9.8525E+00_JPRB,7.9653E+00_JPRB,1.0472E+01_JPRB,1.5686E+01_JPRB,2.0959E+01_JPRB/)  
+KBO( :, 1,14,15) = (/&
+ & 3.5755E+00_JPRB,2.8779E+00_JPRB,3.4519E+00_JPRB,5.1028E+00_JPRB,1.0373E+01_JPRB/)  
+KBO( :, 2,14,15) = (/&
+ & 5.0524E+00_JPRB,4.1250E+00_JPRB,4.9883E+00_JPRB,7.3878E+00_JPRB,1.1513E+01_JPRB/)  
+KBO( :, 3,14,15) = (/&
+ & 6.8346E+00_JPRB,5.5984E+00_JPRB,6.8212E+00_JPRB,1.0151E+01_JPRB,1.3855E+01_JPRB/)  
+KBO( :, 4,14,15) = (/&
+ & 8.9000E+00_JPRB,7.2723E+00_JPRB,8.9537E+00_JPRB,1.3379E+01_JPRB,1.7871E+01_JPRB/)  
+KBO( :, 5,14,15) = (/&
+ & 1.1265E+01_JPRB,9.1701E+00_JPRB,1.1497E+01_JPRB,1.7206E+01_JPRB,2.2981E+01_JPRB/)  
+KBO( :, 1,15,15) = (/&
+ & 4.0824E+00_JPRB,3.3435E+00_JPRB,3.8164E+00_JPRB,5.5870E+00_JPRB,9.5637E+00_JPRB/)  
+KBO( :, 2,15,15) = (/&
+ & 5.7577E+00_JPRB,4.7850E+00_JPRB,5.5076E+00_JPRB,8.0842E+00_JPRB,1.1461E+01_JPRB/)  
+KBO( :, 3,15,15) = (/&
+ & 7.8213E+00_JPRB,6.5007E+00_JPRB,7.5362E+00_JPRB,1.1097E+01_JPRB,1.4826E+01_JPRB/)  
+KBO( :, 4,15,15) = (/&
+ & 1.0256E+01_JPRB,8.4593E+00_JPRB,9.9114E+00_JPRB,1.4655E+01_JPRB,1.9572E+01_JPRB/)  
+KBO( :, 5,15,15) = (/&
+ & 1.3032E+01_JPRB,1.0687E+01_JPRB,1.2684E+01_JPRB,1.8793E+01_JPRB,2.5099E+01_JPRB/)  
+KBO( :, 1,16,15) = (/&
+ & 4.7372E+00_JPRB,3.9270E+00_JPRB,4.2463E+00_JPRB,6.1221E+00_JPRB,9.0976E+00_JPRB/)  
+KBO( :, 2,16,15) = (/&
+ & 6.6436E+00_JPRB,5.5787E+00_JPRB,6.1045E+00_JPRB,8.8126E+00_JPRB,1.1843E+01_JPRB/)  
+KBO( :, 3,16,15) = (/&
+ & 9.0517E+00_JPRB,7.5797E+00_JPRB,8.3542E+00_JPRB,1.2092E+01_JPRB,1.6147E+01_JPRB/)  
+KBO( :, 4,16,15) = (/&
+ & 1.1879E+01_JPRB,9.9008E+00_JPRB,1.1023E+01_JPRB,1.5960E+01_JPRB,2.1309E+01_JPRB/)  
+KBO( :, 5,16,15) = (/&
+ & 1.5093E+01_JPRB,1.2519E+01_JPRB,1.4078E+01_JPRB,2.0387E+01_JPRB,2.7221E+01_JPRB/)  
+KBO( :, 1,17,15) = (/&
+ & 5.5197E+00_JPRB,4.6160E+00_JPRB,4.7418E+00_JPRB,6.6773E+00_JPRB,9.2205E+00_JPRB/)  
+KBO( :, 2,17,15) = (/&
+ & 7.7119E+00_JPRB,6.5019E+00_JPRB,6.7774E+00_JPRB,9.5358E+00_JPRB,1.2727E+01_JPRB/)  
+KBO( :, 3,17,15) = (/&
+ & 1.0467E+01_JPRB,8.8388E+00_JPRB,9.2742E+00_JPRB,1.3058E+01_JPRB,1.7430E+01_JPRB/)  
+KBO( :, 4,17,15) = (/&
+ & 1.3720E+01_JPRB,1.1553E+01_JPRB,1.2244E+01_JPRB,1.7227E+01_JPRB,2.2998E+01_JPRB/)  
+KBO( :, 5,17,15) = (/&
+ & 1.7413E+01_JPRB,1.4594E+01_JPRB,1.5673E+01_JPRB,2.2047E+01_JPRB,2.9433E+01_JPRB/)  
+KBO( :, 1,18,15) = (/&
+ & 6.4274E+00_JPRB,5.4111E+00_JPRB,5.3034E+00_JPRB,7.2350E+00_JPRB,9.7622E+00_JPRB/)  
+KBO( :, 2,18,15) = (/&
+ & 8.9573E+00_JPRB,7.5807E+00_JPRB,7.5479E+00_JPRB,1.0273E+01_JPRB,1.3710E+01_JPRB/)  
+KBO( :, 3,18,15) = (/&
+ & 1.2111E+01_JPRB,1.0258E+01_JPRB,1.0321E+01_JPRB,1.4006E+01_JPRB,1.8696E+01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART34',1,ZHOOK_HANDLE)
+END SUBROUTINE PART34
+
+
+SUBROUTINE PART35
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART35',0,ZHOOK_HANDLE)
+
+
+KBO( :, 4,18,15) = (/&
+ & 1.5845E+01_JPRB,1.3386E+01_JPRB,1.3622E+01_JPRB,1.8470E+01_JPRB,2.4650E+01_JPRB/)  
+KBO( :, 5,18,15) = (/&
+ & 2.0084E+01_JPRB,1.6890E+01_JPRB,1.7434E+01_JPRB,2.3673E+01_JPRB,3.1599E+01_JPRB/)  
+KBO( :, 1,19,15) = (/&
+ & 7.5164E+00_JPRB,6.3134E+00_JPRB,5.9395E+00_JPRB,7.8093E+00_JPRB,1.0475E+01_JPRB/)  
+KBO( :, 2,19,15) = (/&
+ & 1.0441E+01_JPRB,8.8014E+00_JPRB,8.4278E+00_JPRB,1.1035E+01_JPRB,1.4729E+01_JPRB/)  
+KBO( :, 3,19,15) = (/&
+ & 1.4043E+01_JPRB,1.1861E+01_JPRB,1.1513E+01_JPRB,1.4988E+01_JPRB,2.0004E+01_JPRB/)  
+KBO( :, 4,19,15) = (/&
+ & 1.8322E+01_JPRB,1.5433E+01_JPRB,1.5177E+01_JPRB,1.9715E+01_JPRB,2.6318E+01_JPRB/)  
+KBO( :, 5,19,15) = (/&
+ & 2.3146E+01_JPRB,1.9466E+01_JPRB,1.9384E+01_JPRB,2.5255E+01_JPRB,3.3709E+01_JPRB/)  
+KBO( :, 1,20,15) = (/&
+ & 8.8455E+00_JPRB,7.4066E+00_JPRB,6.7186E+00_JPRB,8.4558E+00_JPRB,1.1343E+01_JPRB/)  
+KBO( :, 2,20,15) = (/&
+ & 1.2219E+01_JPRB,1.0275E+01_JPRB,9.4871E+00_JPRB,1.1882E+01_JPRB,1.5858E+01_JPRB/)  
+KBO( :, 3,20,15) = (/&
+ & 1.6346E+01_JPRB,1.3763E+01_JPRB,1.2931E+01_JPRB,1.6095E+01_JPRB,2.1479E+01_JPRB/)  
+KBO( :, 4,20,15) = (/&
+ & 2.1206E+01_JPRB,1.7855E+01_JPRB,1.6990E+01_JPRB,2.1127E+01_JPRB,2.8198E+01_JPRB/)  
+KBO( :, 5,20,15) = (/&
+ & 2.6661E+01_JPRB,2.2435E+01_JPRB,2.1640E+01_JPRB,2.6969E+01_JPRB,3.5995E+01_JPRB/)  
+KBO( :, 1,21,15) = (/&
+ & 1.0378E+01_JPRB,8.6731E+00_JPRB,7.6340E+00_JPRB,9.1349E+00_JPRB,1.2281E+01_JPRB/)  
+KBO( :, 2,21,15) = (/&
+ & 1.4246E+01_JPRB,1.1959E+01_JPRB,1.0712E+01_JPRB,1.2780E+01_JPRB,1.7040E+01_JPRB/)  
+KBO( :, 3,21,15) = (/&
+ & 1.8940E+01_JPRB,1.5929E+01_JPRB,1.4528E+01_JPRB,1.7265E+01_JPRB,2.3018E+01_JPRB/)  
+KBO( :, 4,21,15) = (/&
+ & 2.4416E+01_JPRB,2.0563E+01_JPRB,1.9019E+01_JPRB,2.2602E+01_JPRB,3.0124E+01_JPRB/)  
+KBO( :, 5,21,15) = (/&
+ & 3.0523E+01_JPRB,2.5747E+01_JPRB,2.4135E+01_JPRB,2.8712E+01_JPRB,3.8248E+01_JPRB/)  
+KBO( :, 1,22,15) = (/&
+ & 1.2355E+01_JPRB,1.0324E+01_JPRB,8.9103E+00_JPRB,1.0132E+01_JPRB,1.3532E+01_JPRB/)  
+KBO( :, 2,22,15) = (/&
+ & 1.6827E+01_JPRB,1.4110E+01_JPRB,1.2397E+01_JPRB,1.4085E+01_JPRB,1.8635E+01_JPRB/)  
+KBO( :, 3,22,15) = (/&
+ & 2.2180E+01_JPRB,1.8653E+01_JPRB,1.6659E+01_JPRB,1.8921E+01_JPRB,2.5003E+01_JPRB/)  
+KBO( :, 4,22,15) = (/&
+ & 2.8311E+01_JPRB,2.3905E+01_JPRB,2.1641E+01_JPRB,2.4584E+01_JPRB,3.2472E+01_JPRB/)  
+KBO( :, 5,22,15) = (/&
+ & 3.5149E+01_JPRB,2.9738E+01_JPRB,2.7250E+01_JPRB,3.1004E+01_JPRB,4.0987E+01_JPRB/)  
+KBO( :, 1,23,15) = (/&
+ & 1.4605E+01_JPRB,1.2205E+01_JPRB,1.0445E+01_JPRB,1.1291E+01_JPRB,1.4871E+01_JPRB/)  
+KBO( :, 2,23,15) = (/&
+ & 1.9716E+01_JPRB,1.6539E+01_JPRB,1.4376E+01_JPRB,1.5566E+01_JPRB,2.0310E+01_JPRB/)  
+KBO( :, 3,23,15) = (/&
+ & 2.5726E+01_JPRB,2.1683E+01_JPRB,1.9115E+01_JPRB,2.0736E+01_JPRB,2.6995E+01_JPRB/)  
+KBO( :, 4,23,15) = (/&
+ & 3.2572E+01_JPRB,2.7566E+01_JPRB,2.4581E+01_JPRB,2.6716E+01_JPRB,3.4786E+01_JPRB/)  
+KBO( :, 5,23,15) = (/&
+ & 4.0123E+01_JPRB,3.4080E+01_JPRB,3.0686E+01_JPRB,3.3457E+01_JPRB,4.3686E+01_JPRB/)  
+KBO( :, 1,24,15) = (/&
+ & 1.7134E+01_JPRB,1.4330E+01_JPRB,1.2237E+01_JPRB,1.2592E+01_JPRB,1.6241E+01_JPRB/)  
+KBO( :, 2,24,15) = (/&
+ & 2.2882E+01_JPRB,1.9252E+01_JPRB,1.6642E+01_JPRB,1.7193E+01_JPRB,2.2035E+01_JPRB/)  
+KBO( :, 3,24,15) = (/&
+ & 2.9584E+01_JPRB,2.5005E+01_JPRB,2.1866E+01_JPRB,2.2682E+01_JPRB,2.9023E+01_JPRB/)  
+KBO( :, 4,24,15) = (/&
+ & 3.7130E+01_JPRB,3.1556E+01_JPRB,2.7836E+01_JPRB,2.8990E+01_JPRB,3.7154E+01_JPRB/)  
+KBO( :, 5,24,15) = (/&
+ & 4.5388E+01_JPRB,3.8713E+01_JPRB,3.4446E+01_JPRB,3.6104E+01_JPRB,4.6377E+01_JPRB/)  
+KBO( :, 1,25,15) = (/&
+ & 1.9927E+01_JPRB,1.6707E+01_JPRB,1.4288E+01_JPRB,1.4051E+01_JPRB,1.7699E+01_JPRB/)  
+KBO( :, 2,25,15) = (/&
+ & 2.6343E+01_JPRB,2.2217E+01_JPRB,1.9188E+01_JPRB,1.8973E+01_JPRB,2.3814E+01_JPRB/)  
+KBO( :, 3,25,15) = (/&
+ & 3.3724E+01_JPRB,2.8620E+01_JPRB,2.4897E+01_JPRB,2.4764E+01_JPRB,3.1106E+01_JPRB/)  
+KBO( :, 4,25,15) = (/&
+ & 4.1952E+01_JPRB,3.5794E+01_JPRB,3.1378E+01_JPRB,3.1440E+01_JPRB,3.9572E+01_JPRB/)  
+KBO( :, 5,25,15) = (/&
+ & 5.0891E+01_JPRB,4.3587E+01_JPRB,3.8479E+01_JPRB,3.8878E+01_JPRB,4.9030E+01_JPRB/)  
+KBO( :, 1,26,15) = (/&
+ & 2.3026E+01_JPRB,1.9365E+01_JPRB,1.6616E+01_JPRB,1.5692E+01_JPRB,1.9320E+01_JPRB/)  
+KBO( :, 2,26,15) = (/&
+ & 3.0129E+01_JPRB,2.5491E+01_JPRB,2.2032E+01_JPRB,2.0944E+01_JPRB,2.5726E+01_JPRB/)  
+KBO( :, 3,26,15) = (/&
+ & 3.8188E+01_JPRB,3.2536E+01_JPRB,2.8266E+01_JPRB,2.7089E+01_JPRB,3.3354E+01_JPRB/)  
+KBO( :, 4,26,15) = (/&
+ & 4.7076E+01_JPRB,4.0316E+01_JPRB,3.5238E+01_JPRB,3.4113E+01_JPRB,4.2106E+01_JPRB/)  
+KBO( :, 5,26,15) = (/&
+ & 5.6691E+01_JPRB,4.8702E+01_JPRB,4.2828E+01_JPRB,4.1890E+01_JPRB,5.1865E+01_JPRB/)  
+KBO( :, 1,27,15) = (/&
+ & 2.6319E+01_JPRB,2.2209E+01_JPRB,1.9103E+01_JPRB,1.7475E+01_JPRB,2.1047E+01_JPRB/)  
+KBO( :, 2,27,15) = (/&
+ & 3.4077E+01_JPRB,2.8961E+01_JPRB,2.5047E+01_JPRB,2.3066E+01_JPRB,2.7740E+01_JPRB/)  
+KBO( :, 3,27,15) = (/&
+ & 4.2766E+01_JPRB,3.6599E+01_JPRB,3.1799E+01_JPRB,2.9545E+01_JPRB,3.5624E+01_JPRB/)  
+KBO( :, 4,27,15) = (/&
+ & 5.2311E+01_JPRB,4.4949E+01_JPRB,3.9254E+01_JPRB,3.6881E+01_JPRB,4.4625E+01_JPRB/)  
+KBO( :, 5,27,15) = (/&
+ & 6.2535E+01_JPRB,5.3903E+01_JPRB,4.7276E+01_JPRB,4.4959E+01_JPRB,5.4744E+01_JPRB/)  
+KBO( :, 1,28,15) = (/&
+ & 2.9739E+01_JPRB,2.5212E+01_JPRB,2.1725E+01_JPRB,1.9370E+01_JPRB,2.2823E+01_JPRB/)  
+KBO( :, 2,28,15) = (/&
+ & 3.8111E+01_JPRB,3.2556E+01_JPRB,2.8178E+01_JPRB,2.5312E+01_JPRB,2.9805E+01_JPRB/)  
+KBO( :, 3,28,15) = (/&
+ & 4.7442E+01_JPRB,4.0758E+01_JPRB,3.5447E+01_JPRB,3.2130E+01_JPRB,3.7952E+01_JPRB/)  
+KBO( :, 4,28,15) = (/&
+ & 5.7581E+01_JPRB,4.9637E+01_JPRB,4.3359E+01_JPRB,3.9780E+01_JPRB,4.7241E+01_JPRB/)  
+KBO( :, 5,28,15) = (/&
+ & 6.8350E+01_JPRB,5.9110E+01_JPRB,5.1790E+01_JPRB,4.8135E+01_JPRB,5.7711E+01_JPRB/)  
+KBO( :, 1,29,15) = (/&
+ & 3.3289E+01_JPRB,2.8377E+01_JPRB,2.4485E+01_JPRB,2.1425E+01_JPRB,2.4625E+01_JPRB/)  
+KBO( :, 2,29,15) = (/&
+ & 4.2270E+01_JPRB,3.6277E+01_JPRB,3.1445E+01_JPRB,2.7695E+01_JPRB,3.1898E+01_JPRB/)  
+KBO( :, 3,29,15) = (/&
+ & 5.2200E+01_JPRB,4.5001E+01_JPRB,3.9165E+01_JPRB,3.4833E+01_JPRB,4.0336E+01_JPRB/)  
+KBO( :, 4,29,15) = (/&
+ & 6.2884E+01_JPRB,5.4377E+01_JPRB,4.7526E+01_JPRB,4.2792E+01_JPRB,4.9976E+01_JPRB/)  
+KBO( :, 5,29,15) = (/&
+ & 7.4157E+01_JPRB,6.4312E+01_JPRB,5.6343E+01_JPRB,5.1436E+01_JPRB,6.0842E+01_JPRB/)  
+KBO( :, 1,30,15) = (/&
+ & 3.6922E+01_JPRB,3.1637E+01_JPRB,2.7336E+01_JPRB,2.3566E+01_JPRB,2.6436E+01_JPRB/)  
+KBO( :, 2,30,15) = (/&
+ & 4.6484E+01_JPRB,4.0046E+01_JPRB,3.4764E+01_JPRB,3.0148E+01_JPRB,3.4000E+01_JPRB/)  
+KBO( :, 3,30,15) = (/&
+ & 5.6941E+01_JPRB,4.9235E+01_JPRB,4.2907E+01_JPRB,3.7604E+01_JPRB,4.2767E+01_JPRB/)  
+KBO( :, 4,30,15) = (/&
+ & 6.8119E+01_JPRB,5.9074E+01_JPRB,5.1660E+01_JPRB,4.5840E+01_JPRB,5.2778E+01_JPRB/)  
+KBO( :, 5,30,15) = (/&
+ & 7.9816E+01_JPRB,6.9391E+01_JPRB,6.0797E+01_JPRB,5.4746E+01_JPRB,6.4070E+01_JPRB/)  
+KBO( :, 1,31,15) = (/&
+ & 4.0648E+01_JPRB,3.4989E+01_JPRB,3.0276E+01_JPRB,2.5790E+01_JPRB,2.8253E+01_JPRB/)  
+KBO( :, 2,31,15) = (/&
+ & 5.0739E+01_JPRB,4.3869E+01_JPRB,3.8136E+01_JPRB,3.2693E+01_JPRB,3.6176E+01_JPRB/)  
+KBO( :, 3,31,15) = (/&
+ & 6.1698E+01_JPRB,5.3493E+01_JPRB,4.6669E+01_JPRB,4.0453E+01_JPRB,4.5327E+01_JPRB/)  
+KBO( :, 4,31,15) = (/&
+ & 7.3307E+01_JPRB,6.3725E+01_JPRB,5.5765E+01_JPRB,4.8944E+01_JPRB,5.5745E+01_JPRB/)  
+KBO( :, 5,31,15) = (/&
+ & 8.5379E+01_JPRB,7.4384E+01_JPRB,6.5189E+01_JPRB,5.8116E+01_JPRB,6.7439E+01_JPRB/)  
+KBO( :, 1,32,15) = (/&
+ & 4.4430E+01_JPRB,3.8384E+01_JPRB,3.3279E+01_JPRB,2.8093E+01_JPRB,3.0198E+01_JPRB/)  
+KBO( :, 2,32,15) = (/&
+ & 5.5010E+01_JPRB,4.7713E+01_JPRB,4.1521E+01_JPRB,3.5304E+01_JPRB,3.8486E+01_JPRB/)  
+KBO( :, 3,32,15) = (/&
+ & 6.6406E+01_JPRB,5.7714E+01_JPRB,5.0403E+01_JPRB,4.3340E+01_JPRB,4.8019E+01_JPRB/)  
+KBO( :, 4,32,15) = (/&
+ & 7.8394E+01_JPRB,6.8294E+01_JPRB,5.9802E+01_JPRB,5.2093E+01_JPRB,5.8861E+01_JPRB/)  
+KBO( :, 5,32,15) = (/&
+ & 9.0789E+01_JPRB,7.9248E+01_JPRB,6.9496E+01_JPRB,6.1520E+01_JPRB,7.0971E+01_JPRB/)  
+KBO( :, 1,33,15) = (/&
+ & 4.8242E+01_JPRB,4.1814E+01_JPRB,3.6311E+01_JPRB,3.0445E+01_JPRB,3.2261E+01_JPRB/)  
+KBO( :, 2,33,15) = (/&
+ & 5.9259E+01_JPRB,5.1534E+01_JPRB,4.4898E+01_JPRB,3.7953E+01_JPRB,4.0933E+01_JPRB/)  
+KBO( :, 3,33,15) = (/&
+ & 7.1044E+01_JPRB,6.1877E+01_JPRB,5.4099E+01_JPRB,4.6243E+01_JPRB,5.0861E+01_JPRB/)  
+KBO( :, 4,33,15) = (/&
+ & 8.3385E+01_JPRB,7.2754E+01_JPRB,6.3738E+01_JPRB,5.5225E+01_JPRB,6.2072E+01_JPRB/)  
+KBO( :, 5,33,15) = (/&
+ & 9.6014E+01_JPRB,8.3965E+01_JPRB,7.3665E+01_JPRB,6.4932E+01_JPRB,7.4660E+01_JPRB/)  
+KBO( :, 1,34,15) = (/&
+ & 5.1672E+01_JPRB,4.4907E+01_JPRB,3.9052E+01_JPRB,3.2559E+01_JPRB,3.4150E+01_JPRB/)  
+KBO( :, 2,34,15) = (/&
+ & 6.3066E+01_JPRB,5.4942E+01_JPRB,4.7932E+01_JPRB,4.0320E+01_JPRB,4.3137E+01_JPRB/)  
+KBO( :, 3,34,15) = (/&
+ & 7.5181E+01_JPRB,6.5586E+01_JPRB,5.7376E+01_JPRB,4.8848E+01_JPRB,5.3416E+01_JPRB/)  
+KBO( :, 4,34,15) = (/&
+ & 8.7786E+01_JPRB,7.6718E+01_JPRB,6.7237E+01_JPRB,5.8022E+01_JPRB,6.4986E+01_JPRB/)  
+KBO( :, 5,34,15) = (/&
+ & 1.0062E+02_JPRB,8.8122E+01_JPRB,7.7322E+01_JPRB,6.7972E+01_JPRB,7.7968E+01_JPRB/)  
+KBO( :, 1,35,15) = (/&
+ & 5.3974E+01_JPRB,4.7010E+01_JPRB,4.0914E+01_JPRB,3.3953E+01_JPRB,3.5284E+01_JPRB/)  
+KBO( :, 2,35,15) = (/&
+ & 6.5632E+01_JPRB,5.7261E+01_JPRB,4.9986E+01_JPRB,4.1880E+01_JPRB,4.4477E+01_JPRB/)  
+KBO( :, 3,35,15) = (/&
+ & 7.7983E+01_JPRB,6.8108E+01_JPRB,5.9607E+01_JPRB,5.0554E+01_JPRB,5.4966E+01_JPRB/)  
+KBO( :, 4,35,15) = (/&
+ & 9.0774E+01_JPRB,7.9423E+01_JPRB,6.9615E+01_JPRB,5.9856E+01_JPRB,6.6747E+01_JPRB/)  
+KBO( :, 5,35,15) = (/&
+ & 1.0376E+02_JPRB,9.0958E+01_JPRB,7.9827E+01_JPRB,6.9953E+01_JPRB,7.9975E+01_JPRB/)  
+KBO( :, 1,36,15) = (/&
+ & 5.4952E+01_JPRB,4.7928E+01_JPRB,4.1728E+01_JPRB,3.4482E+01_JPRB,3.5497E+01_JPRB/)  
+KBO( :, 2,36,15) = (/&
+ & 6.6748E+01_JPRB,5.8304E+01_JPRB,5.0900E+01_JPRB,4.2469E+01_JPRB,4.4743E+01_JPRB/)  
+KBO( :, 3,36,15) = (/&
+ & 7.9237E+01_JPRB,6.9268E+01_JPRB,6.0630E+01_JPRB,5.1203E+01_JPRB,5.5299E+01_JPRB/)  
+KBO( :, 4,36,15) = (/&
+ & 9.2160E+01_JPRB,8.0690E+01_JPRB,7.0740E+01_JPRB,6.0560E+01_JPRB,6.7150E+01_JPRB/)  
+KBO( :, 5,36,15) = (/&
+ & 1.0527E+02_JPRB,9.2347E+01_JPRB,8.1033E+01_JPRB,7.0691E+01_JPRB,8.0445E+01_JPRB/)  
+KBO( :, 1,37,15) = (/&
+ & 5.4077E+01_JPRB,4.7203E+01_JPRB,4.1090E+01_JPRB,3.3816E+01_JPRB,3.4402E+01_JPRB/)  
+KBO( :, 2,37,15) = (/&
+ & 6.5871E+01_JPRB,5.7581E+01_JPRB,5.0256E+01_JPRB,4.1730E+01_JPRB,4.3504E+01_JPRB/)  
+KBO( :, 3,37,15) = (/&
+ & 7.8394E+01_JPRB,6.8564E+01_JPRB,6.0003E+01_JPRB,5.0406E+01_JPRB,5.3919E+01_JPRB/)  
+KBO( :, 4,37,15) = (/&
+ & 9.1373E+01_JPRB,8.0024E+01_JPRB,7.0155E+01_JPRB,5.9711E+01_JPRB,6.5630E+01_JPRB/)  
+KBO( :, 5,37,15) = (/&
+ & 1.0457E+02_JPRB,9.1743E+01_JPRB,8.0502E+01_JPRB,6.9769E+01_JPRB,7.8764E+01_JPRB/)  
+KBO( :, 1,38,15) = (/&
+ & 5.2998E+01_JPRB,4.6292E+01_JPRB,4.0284E+01_JPRB,3.3047E+01_JPRB,3.3256E+01_JPRB/)  
+KBO( :, 2,38,15) = (/&
+ & 6.4758E+01_JPRB,5.6646E+01_JPRB,4.9430E+01_JPRB,4.0867E+01_JPRB,4.2193E+01_JPRB/)  
+KBO( :, 3,38,15) = (/&
+ & 7.7286E+01_JPRB,6.7628E+01_JPRB,5.9170E+01_JPRB,4.9481E+01_JPRB,5.2447E+01_JPRB/)  
+KBO( :, 4,38,15) = (/&
+ & 9.0295E+01_JPRB,7.9101E+01_JPRB,6.9339E+01_JPRB,5.8727E+01_JPRB,6.4002E+01_JPRB/)  
+KBO( :, 5,38,15) = (/&
+ & 1.0355E+02_JPRB,9.0878E+01_JPRB,7.9733E+01_JPRB,6.8695E+01_JPRB,7.6964E+01_JPRB/)  
+KBO( :, 1,39,15) = (/&
+ & 5.1838E+01_JPRB,4.5309E+01_JPRB,3.9414E+01_JPRB,3.2253E+01_JPRB,3.2133E+01_JPRB/)  
+KBO( :, 2,39,15) = (/&
+ & 6.3550E+01_JPRB,5.5622E+01_JPRB,4.8527E+01_JPRB,3.9972E+01_JPRB,4.0905E+01_JPRB/)  
+KBO( :, 3,39,15) = (/&
+ & 7.6056E+01_JPRB,6.6591E+01_JPRB,5.8243E+01_JPRB,4.8504E+01_JPRB,5.0987E+01_JPRB/)  
+KBO( :, 4,39,15) = (/&
+ & 8.9075E+01_JPRB,7.8055E+01_JPRB,6.8422E+01_JPRB,5.7684E+01_JPRB,6.2386E+01_JPRB/)  
+KBO( :, 5,39,15) = (/&
+ & 1.0239E+02_JPRB,8.9867E+01_JPRB,7.8837E+01_JPRB,6.7576E+01_JPRB,7.5172E+01_JPRB/)  
+KBO( :, 1,40,15) = (/&
+ & 4.9471E+01_JPRB,4.3246E+01_JPRB,3.7591E+01_JPRB,3.0698E+01_JPRB,3.0218E+01_JPRB/)  
+KBO( :, 2,40,15) = (/&
+ & 6.1032E+01_JPRB,5.3431E+01_JPRB,4.6594E+01_JPRB,3.8229E+01_JPRB,3.8702E+01_JPRB/)  
+KBO( :, 3,40,15) = (/&
+ & 7.3417E+01_JPRB,6.4309E+01_JPRB,5.6223E+01_JPRB,4.6591E+01_JPRB,4.8455E+01_JPRB/)  
+KBO( :, 4,40,15) = (/&
+ & 8.6398E+01_JPRB,7.5721E+01_JPRB,6.6340E+01_JPRB,5.5655E+01_JPRB,5.9567E+01_JPRB/)  
+KBO( :, 5,40,15) = (/&
+ & 9.9725E+01_JPRB,8.7493E+01_JPRB,7.6754E+01_JPRB,6.5366E+01_JPRB,7.2010E+01_JPRB/)  
+KBO( :, 1,41,15) = (/&
+ & 4.6940E+01_JPRB,4.1029E+01_JPRB,3.5646E+01_JPRB,2.9054E+01_JPRB,2.8252E+01_JPRB/)  
+KBO( :, 2,41,15) = (/&
+ & 5.8303E+01_JPRB,5.1061E+01_JPRB,4.4488E+01_JPRB,3.6382E+01_JPRB,3.6429E+01_JPRB/)  
+KBO( :, 3,41,15) = (/&
+ & 7.0545E+01_JPRB,6.1809E+01_JPRB,5.4014E+01_JPRB,4.4569E+01_JPRB,4.5866E+01_JPRB/)  
+KBO( :, 4,41,15) = (/&
+ & 8.3446E+01_JPRB,7.3140E+01_JPRB,6.4053E+01_JPRB,5.3489E+01_JPRB,5.6653E+01_JPRB/)  
+KBO( :, 5,41,15) = (/&
+ & 9.6762E+01_JPRB,8.4890E+01_JPRB,7.4453E+01_JPRB,6.3028E+01_JPRB,6.8762E+01_JPRB/)  
+KBO( :, 1,42,15) = (/&
+ & 4.4400E+01_JPRB,3.8808E+01_JPRB,3.3695E+01_JPRB,2.7433E+01_JPRB,2.6367E+01_JPRB/)  
+KBO( :, 2,42,15) = (/&
+ & 5.5548E+01_JPRB,4.8653E+01_JPRB,4.2370E+01_JPRB,3.4558E+01_JPRB,3.4231E+01_JPRB/)  
+KBO( :, 3,42,15) = (/&
+ & 6.7639E+01_JPRB,5.9264E+01_JPRB,5.1765E+01_JPRB,4.2548E+01_JPRB,4.3345E+01_JPRB/)  
+KBO( :, 4,42,15) = (/&
+ & 8.0422E+01_JPRB,7.0505E+01_JPRB,6.1708E+01_JPRB,5.1309E+01_JPRB,5.3802E+01_JPRB/)  
+KBO( :, 5,42,15) = (/&
+ & 9.3690E+01_JPRB,8.2187E+01_JPRB,7.2071E+01_JPRB,6.0692E+01_JPRB,6.5582E+01_JPRB/)  
+KBO( :, 1,43,15) = (/&
+ & 4.1299E+01_JPRB,3.6086E+01_JPRB,3.1303E+01_JPRB,2.5481E+01_JPRB,2.4168E+01_JPRB/)  
+KBO( :, 2,43,15) = (/&
+ & 5.2146E+01_JPRB,4.5668E+01_JPRB,3.9733E+01_JPRB,3.2349E+01_JPRB,3.1657E+01_JPRB/)  
+KBO( :, 3,43,15) = (/&
+ & 6.3997E+01_JPRB,5.6104E+01_JPRB,4.8948E+01_JPRB,4.0078E+01_JPRB,4.0382E+01_JPRB/)  
+KBO( :, 4,43,15) = (/&
+ & 7.6621E+01_JPRB,6.7188E+01_JPRB,5.8773E+01_JPRB,4.8617E+01_JPRB,5.0407E+01_JPRB/)  
+KBO( :, 5,43,15) = (/&
+ & 8.9810E+01_JPRB,7.8771E+01_JPRB,6.9043E+01_JPRB,5.7825E+01_JPRB,6.1798E+01_JPRB/)  
+KBO( :, 1,44,15) = (/&
+ & 3.8013E+01_JPRB,3.3205E+01_JPRB,2.8794E+01_JPRB,2.3425E+01_JPRB,2.1911E+01_JPRB/)  
+KBO( :, 2,44,15) = (/&
+ & 4.8506E+01_JPRB,4.2466E+01_JPRB,3.6916E+01_JPRB,3.0017E+01_JPRB,2.8999E+01_JPRB/)  
+KBO( :, 3,44,15) = (/&
+ & 6.0070E+01_JPRB,5.2664E+01_JPRB,4.5908E+01_JPRB,3.7464E+01_JPRB,3.7309E+01_JPRB/)  
+KBO( :, 4,44,15) = (/&
+ & 7.2479E+01_JPRB,6.3560E+01_JPRB,5.5564E+01_JPRB,4.5749E+01_JPRB,4.6877E+01_JPRB/)  
+KBO( :, 5,44,15) = (/&
+ & 8.5539E+01_JPRB,7.5028E+01_JPRB,6.5726E+01_JPRB,5.4770E+01_JPRB,5.7838E+01_JPRB/)  
+KBO( :, 1,45,15) = (/&
+ & 3.4808E+01_JPRB,3.0429E+01_JPRB,2.6372E+01_JPRB,2.1438E+01_JPRB,1.9764E+01_JPRB/)  
+KBO( :, 2,45,15) = (/&
+ & 4.4949E+01_JPRB,3.9329E+01_JPRB,3.4164E+01_JPRB,2.7759E+01_JPRB,2.6477E+01_JPRB/)  
+KBO( :, 3,45,15) = (/&
+ & 5.6198E+01_JPRB,4.9271E+01_JPRB,4.2916E+01_JPRB,3.4929E+01_JPRB,3.4365E+01_JPRB/)  
+KBO( :, 4,45,15) = (/&
+ & 6.8372E+01_JPRB,5.9966E+01_JPRB,5.2371E+01_JPRB,4.2948E+01_JPRB,4.3515E+01_JPRB/)  
+KBO( :, 5,45,15) = (/&
+ & 8.1258E+01_JPRB,7.1280E+01_JPRB,6.2402E+01_JPRB,5.1752E+01_JPRB,5.3999E+01_JPRB/)  
+KBO( :, 1,46,15) = (/&
+ & 3.1505E+01_JPRB,2.7578E+01_JPRB,2.3887E+01_JPRB,1.9401E+01_JPRB,1.7612E+01_JPRB/)  
+KBO( :, 2,46,15) = (/&
+ & 4.1254E+01_JPRB,3.6080E+01_JPRB,3.1312E+01_JPRB,2.5449E+01_JPRB,2.3941E+01_JPRB/)  
+KBO( :, 3,46,15) = (/&
+ & 5.2137E+01_JPRB,4.5691E+01_JPRB,3.9762E+01_JPRB,3.2315E+01_JPRB,3.1392E+01_JPRB/)  
+KBO( :, 4,46,15) = (/&
+ & 6.4023E+01_JPRB,5.6167E+01_JPRB,4.8996E+01_JPRB,4.0034E+01_JPRB,4.0089E+01_JPRB/)  
+KBO( :, 5,46,15) = (/&
+ & 7.6702E+01_JPRB,6.7284E+01_JPRB,5.8863E+01_JPRB,4.8569E+01_JPRB,5.0083E+01_JPRB/)  
+KBO( :, 1,47,15) = (/&
+ & 2.7961E+01_JPRB,2.4503E+01_JPRB,2.1248E+01_JPRB,1.7233E+01_JPRB,1.5367E+01_JPRB/)  
+KBO( :, 2,47,15) = (/&
+ & 3.7265E+01_JPRB,3.2586E+01_JPRB,2.8263E+01_JPRB,2.2963E+01_JPRB,2.1269E+01_JPRB/)  
+KBO( :, 3,47,15) = (/&
+ & 4.7706E+01_JPRB,4.1783E+01_JPRB,3.6327E+01_JPRB,2.9490E+01_JPRB,2.8246E+01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART35',1,ZHOOK_HANDLE)
+END SUBROUTINE PART35
+
+
+SUBROUTINE PART36
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART36',0,ZHOOK_HANDLE)
+
+
+KBO( :, 4,47,15) = (/&
+ & 5.9232E+01_JPRB,5.1960E+01_JPRB,4.5284E+01_JPRB,3.6873E+01_JPRB,3.6445E+01_JPRB/)  
+KBO( :, 5,47,15) = (/&
+ & 7.1624E+01_JPRB,6.2836E+01_JPRB,5.4930E+01_JPRB,4.5104E+01_JPRB,4.5902E+01_JPRB/)  
+KBO( :, 1,48,15) = (/&
+ & 2.4583E+01_JPRB,2.1589E+01_JPRB,1.8762E+01_JPRB,1.5191E+01_JPRB,1.3292E+01_JPRB/)  
+KBO( :, 2,48,15) = (/&
+ & 3.3426E+01_JPRB,2.9268E+01_JPRB,2.5357E+01_JPRB,2.0590E+01_JPRB,1.8769E+01_JPRB/)  
+KBO( :, 3,48,15) = (/&
+ & 4.3425E+01_JPRB,3.8016E+01_JPRB,3.3009E+01_JPRB,2.6800E+01_JPRB,2.5307E+01_JPRB/)  
+KBO( :, 4,48,15) = (/&
+ & 5.4549E+01_JPRB,4.7838E+01_JPRB,4.1652E+01_JPRB,3.3842E+01_JPRB,3.3001E+01_JPRB/)  
+KBO( :, 5,48,15) = (/&
+ & 6.6636E+01_JPRB,5.8472E+01_JPRB,5.1042E+01_JPRB,4.1740E+01_JPRB,4.1948E+01_JPRB/)  
+KBO( :, 1,49,15) = (/&
+ & 2.1421E+01_JPRB,1.8843E+01_JPRB,1.6440E+01_JPRB,1.3266E+01_JPRB,1.1366E+01_JPRB/)  
+KBO( :, 2,49,15) = (/&
+ & 2.9765E+01_JPRB,2.6085E+01_JPRB,2.2608E+01_JPRB,1.8340E+01_JPRB,1.6436E+01_JPRB/)  
+KBO( :, 3,49,15) = (/&
+ & 3.9312E+01_JPRB,3.4398E+01_JPRB,2.9848E+01_JPRB,2.4239E+01_JPRB,2.2553E+01_JPRB/)  
+KBO( :, 4,49,15) = (/&
+ & 5.0006E+01_JPRB,4.3828E+01_JPRB,3.8123E+01_JPRB,3.0941E+01_JPRB,2.9764E+01_JPRB/)  
+KBO( :, 5,49,15) = (/&
+ & 6.1741E+01_JPRB,5.4182E+01_JPRB,4.7244E+01_JPRB,3.8502E+01_JPRB,3.8207E+01_JPRB/)  
+KBO( :, 1,50,15) = (/&
+ & 1.8647E+01_JPRB,1.6457E+01_JPRB,1.4418E+01_JPRB,1.1591E+01_JPRB,9.7268E+00_JPRB/)  
+KBO( :, 2,50,15) = (/&
+ & 2.6492E+01_JPRB,2.3254E+01_JPRB,2.0184E+01_JPRB,1.6354E+01_JPRB,1.4411E+01_JPRB/)  
+KBO( :, 3,50,15) = (/&
+ & 3.5615E+01_JPRB,3.1176E+01_JPRB,2.7033E+01_JPRB,2.1940E+01_JPRB,2.0122E+01_JPRB/)  
+KBO( :, 4,50,15) = (/&
+ & 4.5887E+01_JPRB,4.0194E+01_JPRB,3.4925E+01_JPRB,2.8335E+01_JPRB,2.6904E+01_JPRB/)  
+KBO( :, 5,50,15) = (/&
+ & 5.7262E+01_JPRB,5.0235E+01_JPRB,4.3773E+01_JPRB,3.5576E+01_JPRB,3.4879E+01_JPRB/)  
+KBO( :, 1,51,15) = (/&
+ & 1.6143E+01_JPRB,1.4306E+01_JPRB,1.2586E+01_JPRB,1.0093E+01_JPRB,8.2870E+00_JPRB/)  
+KBO( :, 2,51,15) = (/&
+ & 2.3475E+01_JPRB,2.0646E+01_JPRB,1.7965E+01_JPRB,1.4527E+01_JPRB,1.2580E+01_JPRB/)  
+KBO( :, 3,51,15) = (/&
+ & 3.2173E+01_JPRB,2.8191E+01_JPRB,2.4427E+01_JPRB,1.9818E+01_JPRB,1.7912E+01_JPRB/)  
+KBO( :, 4,51,15) = (/&
+ & 4.2029E+01_JPRB,3.6799E+01_JPRB,3.1946E+01_JPRB,2.5931E+01_JPRB,2.4302E+01_JPRB/)  
+KBO( :, 5,51,15) = (/&
+ & 5.3021E+01_JPRB,4.6505E+01_JPRB,4.0477E+01_JPRB,3.2858E+01_JPRB,3.1825E+01_JPRB/)  
+KBO( :, 1,52,15) = (/&
+ & 1.3849E+01_JPRB,1.2323E+01_JPRB,1.0901E+01_JPRB,8.7257E+00_JPRB,7.0030E+00_JPRB/)  
+KBO( :, 2,52,15) = (/&
+ & 2.0656E+01_JPRB,1.8194E+01_JPRB,1.5897E+01_JPRB,1.2810E+01_JPRB,1.0879E+01_JPRB/)  
+KBO( :, 3,52,15) = (/&
+ & 2.8881E+01_JPRB,2.5328E+01_JPRB,2.1965E+01_JPRB,1.7806E+01_JPRB,1.5846E+01_JPRB/)  
+KBO( :, 4,52,15) = (/&
+ & 3.8328E+01_JPRB,3.3546E+01_JPRB,2.9106E+01_JPRB,2.3622E+01_JPRB,2.1850E+01_JPRB/)  
+KBO( :, 5,52,15) = (/&
+ & 4.8918E+01_JPRB,4.2880E+01_JPRB,3.7289E+01_JPRB,3.0246E+01_JPRB,2.8936E+01_JPRB/)  
+KBO( :, 1,53,15) = (/&
+ & 1.1740E+01_JPRB,1.0506E+01_JPRB,9.3420E+00_JPRB,7.4730E+00_JPRB,5.8524E+00_JPRB/)  
+KBO( :, 2,53,15) = (/&
+ & 1.8002E+01_JPRB,1.5914E+01_JPRB,1.3956E+01_JPRB,1.1210E+01_JPRB,9.3278E+00_JPRB/)  
+KBO( :, 3,53,15) = (/&
+ & 2.5731E+01_JPRB,2.2607E+01_JPRB,1.9634E+01_JPRB,1.5897E+01_JPRB,1.3918E+01_JPRB/)  
+KBO( :, 4,53,15) = (/&
+ & 3.4758E+01_JPRB,3.0444E+01_JPRB,2.6393E+01_JPRB,2.1412E+01_JPRB,1.9532E+01_JPRB/)  
+KBO( :, 5,53,15) = (/&
+ & 4.4940E+01_JPRB,3.9367E+01_JPRB,3.4201E+01_JPRB,2.7742E+01_JPRB,2.6213E+01_JPRB/)  
+KBO( :, 1,54,15) = (/&
+ & 9.9823E+00_JPRB,8.9835E+00_JPRB,8.0433E+00_JPRB,6.4217E+00_JPRB,4.9233E+00_JPRB/)  
+KBO( :, 2,54,15) = (/&
+ & 1.5743E+01_JPRB,1.3968E+01_JPRB,1.2300E+01_JPRB,9.8589E+00_JPRB,8.0425E+00_JPRB/)  
+KBO( :, 3,54,15) = (/&
+ & 2.2999E+01_JPRB,2.0231E+01_JPRB,1.7622E+01_JPRB,1.4237E+01_JPRB,1.2265E+01_JPRB/)  
+KBO( :, 4,54,15) = (/&
+ & 3.1619E+01_JPRB,2.7721E+01_JPRB,2.4021E+01_JPRB,1.9481E+01_JPRB,1.7533E+01_JPRB/)  
+KBO( :, 5,54,15) = (/&
+ & 4.1422E+01_JPRB,3.6269E+01_JPRB,3.1486E+01_JPRB,2.5548E+01_JPRB,2.3860E+01_JPRB/)  
+KBO( :, 1,55,15) = (/&
+ & 8.4600E+00_JPRB,7.6587E+00_JPRB,6.9105E+00_JPRB,5.5064E+00_JPRB,4.1393E+00_JPRB/)  
+KBO( :, 2,55,15) = (/&
+ & 1.3741E+01_JPRB,1.2235E+01_JPRB,1.0828E+01_JPRB,8.6641E+00_JPRB,6.9310E+00_JPRB/)  
+KBO( :, 3,55,15) = (/&
+ & 2.0525E+01_JPRB,1.8089E+01_JPRB,1.5809E+01_JPRB,1.2733E+01_JPRB,1.0785E+01_JPRB/)  
+KBO( :, 4,55,15) = (/&
+ & 2.8733E+01_JPRB,2.5211E+01_JPRB,2.1862E+01_JPRB,1.7718E+01_JPRB,1.5733E+01_JPRB/)  
+KBO( :, 5,55,15) = (/&
+ & 3.8167E+01_JPRB,3.3414E+01_JPRB,2.8994E+01_JPRB,2.3523E+01_JPRB,2.1717E+01_JPRB/)  
+KBO( :, 1,56,15) = (/&
+ & 7.0942E+00_JPRB,6.4705E+00_JPRB,5.8843E+00_JPRB,4.6820E+00_JPRB,3.4600E+00_JPRB/)  
+KBO( :, 2,56,15) = (/&
+ & 1.1888E+01_JPRB,1.0638E+01_JPRB,9.4563E+00_JPRB,7.5636E+00_JPRB,5.9306E+00_JPRB/)  
+KBO( :, 3,56,15) = (/&
+ & 1.8195E+01_JPRB,1.6084E+01_JPRB,1.4104E+01_JPRB,1.1328E+01_JPRB,9.4258E+00_JPRB/)  
+KBO( :, 4,56,15) = (/&
+ & 2.5965E+01_JPRB,2.2816E+01_JPRB,1.9813E+01_JPRB,1.6042E+01_JPRB,1.4044E+01_JPRB/)  
+KBO( :, 5,56,15) = (/&
+ & 3.5031E+01_JPRB,3.0686E+01_JPRB,2.6607E+01_JPRB,2.1582E+01_JPRB,1.9682E+01_JPRB/)  
+KBO( :, 1,57,15) = (/&
+ & 5.8809E+00_JPRB,5.4073E+00_JPRB,4.9520E+00_JPRB,3.9358E+00_JPRB,2.8765E+00_JPRB/)  
+KBO( :, 2,57,15) = (/&
+ & 1.0188E+01_JPRB,9.1644E+00_JPRB,8.1997E+00_JPRB,6.5476E+00_JPRB,5.0356E+00_JPRB/)  
+KBO( :, 3,57,15) = (/&
+ & 1.6011E+01_JPRB,1.4204E+01_JPRB,1.2504E+01_JPRB,1.0022E+01_JPRB,8.1887E+00_JPRB/)  
+KBO( :, 4,57,15) = (/&
+ & 2.3331E+01_JPRB,2.0526E+01_JPRB,1.7871E+01_JPRB,1.4443E+01_JPRB,1.2452E+01_JPRB/)  
+KBO( :, 5,57,15) = (/&
+ & 3.2013E+01_JPRB,2.8066E+01_JPRB,2.4321E+01_JPRB,1.9722E+01_JPRB,1.7763E+01_JPRB/)  
+KBO( :, 1,58,15) = (/&
+ & 4.8592E+00_JPRB,4.5120E+00_JPRB,4.1533E+00_JPRB,3.3050E+00_JPRB,2.4069E+00_JPRB/)  
+KBO( :, 2,58,15) = (/&
+ & 8.7235E+00_JPRB,7.8898E+00_JPRB,7.1098E+00_JPRB,5.6659E+00_JPRB,4.2880E+00_JPRB/)  
+KBO( :, 3,58,15) = (/&
+ & 1.4093E+01_JPRB,1.2543E+01_JPRB,1.1091E+01_JPRB,8.8788E+00_JPRB,7.1312E+00_JPRB/)  
+KBO( :, 4,58,15) = (/&
+ & 2.0969E+01_JPRB,1.8473E+01_JPRB,1.6137E+01_JPRB,1.3004E+01_JPRB,1.1037E+01_JPRB/)  
+KBO( :, 5,58,15) = (/&
+ & 2.9256E+01_JPRB,2.5669E+01_JPRB,2.2254E+01_JPRB,1.8039E+01_JPRB,1.6041E+01_JPRB/)  
+KBO( :, 1,59,15) = (/&
+ & 4.4860E+00_JPRB,4.1832E+00_JPRB,3.8589E+00_JPRB,3.0732E+00_JPRB,2.2588E+00_JPRB/)  
+KBO( :, 2,59,15) = (/&
+ & 8.1764E+00_JPRB,7.4157E+00_JPRB,6.7019E+00_JPRB,5.3375E+00_JPRB,4.0381E+00_JPRB/)  
+KBO( :, 3,59,15) = (/&
+ & 1.3363E+01_JPRB,1.1913E+01_JPRB,1.0553E+01_JPRB,8.4437E+00_JPRB,6.7583E+00_JPRB/)  
+KBO( :, 4,59,15) = (/&
+ & 2.0059E+01_JPRB,1.7690E+01_JPRB,1.5474E+01_JPRB,1.2453E+01_JPRB,1.0517E+01_JPRB/)  
+KBO( :, 5,59,15) = (/&
+ & 2.8188E+01_JPRB,2.4740E+01_JPRB,2.1460E+01_JPRB,1.7388E+01_JPRB,1.5382E+01_JPRB/)  
+KBO( :, 1,13,16) = (/&
+ & 3.5240E+00_JPRB,3.4508E+00_JPRB,6.8957E+00_JPRB,1.0310E+01_JPRB,1.3810E+01_JPRB/)  
+KBO( :, 2,13,16) = (/&
+ & 5.0188E+00_JPRB,4.8884E+00_JPRB,9.7668E+00_JPRB,1.4606E+01_JPRB,1.9563E+01_JPRB/)  
+KBO( :, 3,13,16) = (/&
+ & 6.8636E+00_JPRB,6.9963E+00_JPRB,1.3983E+01_JPRB,2.0917E+01_JPRB,2.7996E+01_JPRB/)  
+KBO( :, 4,13,16) = (/&
+ & 8.9983E+00_JPRB,9.9231E+00_JPRB,1.9821E+01_JPRB,2.9657E+01_JPRB,3.9702E+01_JPRB/)  
+KBO( :, 5,13,16) = (/&
+ & 1.1391E+01_JPRB,1.3448E+01_JPRB,2.6873E+01_JPRB,4.0197E+01_JPRB,5.3821E+01_JPRB/)  
+KBO( :, 1,14,16) = (/&
+ & 4.0865E+00_JPRB,4.2627E+00_JPRB,8.5157E+00_JPRB,1.2737E+01_JPRB,1.7061E+01_JPRB/)  
+KBO( :, 2,14,16) = (/&
+ & 5.9152E+00_JPRB,5.9770E+00_JPRB,1.1941E+01_JPRB,1.7861E+01_JPRB,2.3919E+01_JPRB/)  
+KBO( :, 3,14,16) = (/&
+ & 8.1116E+00_JPRB,8.4946E+00_JPRB,1.6974E+01_JPRB,2.5393E+01_JPRB,3.3994E+01_JPRB/)  
+KBO( :, 4,14,16) = (/&
+ & 1.0667E+01_JPRB,1.1982E+01_JPRB,2.3941E+01_JPRB,3.5820E+01_JPRB,4.7947E+01_JPRB/)  
+KBO( :, 5,14,16) = (/&
+ & 1.3570E+01_JPRB,1.6166E+01_JPRB,3.2293E+01_JPRB,4.8328E+01_JPRB,6.4679E+01_JPRB/)  
+KBO( :, 1,15,16) = (/&
+ & 4.9205E+00_JPRB,5.2381E+00_JPRB,1.0467E+01_JPRB,1.5657E+01_JPRB,2.0962E+01_JPRB/)  
+KBO( :, 2,15,16) = (/&
+ & 7.1107E+00_JPRB,7.3251E+00_JPRB,1.4636E+01_JPRB,2.1892E+01_JPRB,2.9314E+01_JPRB/)  
+KBO( :, 3,15,16) = (/&
+ & 9.7657E+00_JPRB,1.0319E+01_JPRB,2.0625E+01_JPRB,3.0857E+01_JPRB,4.1307E+01_JPRB/)  
+KBO( :, 4,15,16) = (/&
+ & 1.2863E+01_JPRB,1.4348E+01_JPRB,2.8667E+01_JPRB,4.2902E+01_JPRB,5.7415E+01_JPRB/)  
+KBO( :, 5,15,16) = (/&
+ & 1.6377E+01_JPRB,1.9245E+01_JPRB,3.8440E+01_JPRB,5.7530E+01_JPRB,7.7014E+01_JPRB/)  
+KBO( :, 1,16,16) = (/&
+ & 6.0019E+00_JPRB,6.3755E+00_JPRB,1.2742E+01_JPRB,1.9060E+01_JPRB,2.5511E+01_JPRB/)  
+KBO( :, 2,16,16) = (/&
+ & 8.6719E+00_JPRB,8.9601E+00_JPRB,1.7905E+01_JPRB,2.6782E+01_JPRB,3.5858E+01_JPRB/)  
+KBO( :, 3,16,16) = (/&
+ & 1.1897E+01_JPRB,1.2494E+01_JPRB,2.4965E+01_JPRB,3.7351E+01_JPRB,5.0005E+01_JPRB/)  
+KBO( :, 4,16,16) = (/&
+ & 1.5664E+01_JPRB,1.7033E+01_JPRB,3.4039E+01_JPRB,5.0943E+01_JPRB,6.8160E+01_JPRB/)  
+KBO( :, 5,16,16) = (/&
+ & 1.9931E+01_JPRB,2.2609E+01_JPRB,4.5144E+01_JPRB,6.7604E+01_JPRB,9.0384E+01_JPRB/)  
+KBO( :, 1,17,16) = (/&
+ & 7.3859E+00_JPRB,7.7004E+00_JPRB,1.5389E+01_JPRB,2.3023E+01_JPRB,3.0816E+01_JPRB/)  
+KBO( :, 2,17,16) = (/&
+ & 1.0640E+01_JPRB,1.0863E+01_JPRB,2.1706E+01_JPRB,3.2470E+01_JPRB,4.3467E+01_JPRB/)  
+KBO( :, 3,17,16) = (/&
+ & 1.4563E+01_JPRB,1.4992E+01_JPRB,2.9958E+01_JPRB,4.4824E+01_JPRB,5.9991E+01_JPRB/)  
+KBO( :, 4,17,16) = (/&
+ & 1.9138E+01_JPRB,2.0152E+01_JPRB,4.0219E+01_JPRB,6.0189E+01_JPRB,8.0517E+01_JPRB/)  
+KBO( :, 5,17,16) = (/&
+ & 2.4286E+01_JPRB,2.6459E+01_JPRB,5.2448E+01_JPRB,7.8504E+01_JPRB,1.0501E+02_JPRB/)  
+KBO( :, 1,18,16) = (/&
+ & 9.1226E+00_JPRB,9.2597E+00_JPRB,1.8491E+01_JPRB,2.7668E+01_JPRB,3.7034E+01_JPRB/)  
+KBO( :, 2,18,16) = (/&
+ & 1.3090E+01_JPRB,1.3038E+01_JPRB,2.6008E+01_JPRB,3.8923E+01_JPRB,5.2083E+01_JPRB/)  
+KBO( :, 3,18,16) = (/&
+ & 1.7870E+01_JPRB,1.7862E+01_JPRB,3.5545E+01_JPRB,5.3199E+01_JPRB,7.1167E+01_JPRB/)  
+KBO( :, 4,18,16) = (/&
+ & 2.3384E+01_JPRB,2.3802E+01_JPRB,4.7105E+01_JPRB,7.0494E+01_JPRB,9.4316E+01_JPRB/)  
+KBO( :, 5,18,16) = (/&
+ & 2.9603E+01_JPRB,3.0959E+01_JPRB,6.0617E+01_JPRB,9.0761E+01_JPRB,1.2137E+02_JPRB/)  
+KBO( :, 1,19,16) = (/&
+ & 1.1267E+01_JPRB,1.1103E+01_JPRB,2.1975E+01_JPRB,3.2891E+01_JPRB,4.4000E+01_JPRB/)  
+KBO( :, 2,19,16) = (/&
+ & 1.6108E+01_JPRB,1.5588E+01_JPRB,3.0737E+01_JPRB,4.5998E+01_JPRB,6.1538E+01_JPRB/)  
+KBO( :, 3,19,16) = (/&
+ & 2.1880E+01_JPRB,2.1226E+01_JPRB,4.1603E+01_JPRB,6.2286E+01_JPRB,8.3284E+01_JPRB/)  
+KBO( :, 4,19,16) = (/&
+ & 2.8546E+01_JPRB,2.8063E+01_JPRB,5.4555E+01_JPRB,8.1653E+01_JPRB,1.0920E+02_JPRB/)  
+KBO( :, 5,19,16) = (/&
+ & 3.6015E+01_JPRB,3.6209E+01_JPRB,6.9418E+01_JPRB,1.0398E+02_JPRB,1.3897E+02_JPRB/)  
+KBO( :, 1,20,16) = (/&
+ & 1.3993E+01_JPRB,1.3379E+01_JPRB,2.5920E+01_JPRB,3.8804E+01_JPRB,5.1896E+01_JPRB/)  
+KBO( :, 2,20,16) = (/&
+ & 1.9857E+01_JPRB,1.8711E+01_JPRB,3.5970E+01_JPRB,5.3858E+01_JPRB,7.2020E+01_JPRB/)  
+KBO( :, 3,20,16) = (/&
+ & 2.6849E+01_JPRB,2.5309E+01_JPRB,4.8236E+01_JPRB,7.2221E+01_JPRB,9.6564E+01_JPRB/)  
+KBO( :, 4,20,16) = (/&
+ & 3.4854E+01_JPRB,3.3204E+01_JPRB,6.2605E+01_JPRB,9.3754E+01_JPRB,1.2532E+02_JPRB/)  
+KBO( :, 5,20,16) = (/&
+ & 4.3828E+01_JPRB,4.2464E+01_JPRB,7.8932E+01_JPRB,1.1822E+02_JPRB,1.5801E+02_JPRB/)  
+KBO( :, 1,21,16) = (/&
+ & 1.7315E+01_JPRB,1.6114E+01_JPRB,3.0129E+01_JPRB,4.5115E+01_JPRB,6.0314E+01_JPRB/)  
+KBO( :, 2,21,16) = (/&
+ & 2.4393E+01_JPRB,2.2395E+01_JPRB,4.1483E+01_JPRB,6.2116E+01_JPRB,8.3040E+01_JPRB/)  
+KBO( :, 3,21,16) = (/&
+ & 3.2776E+01_JPRB,3.0091E+01_JPRB,5.5119E+01_JPRB,8.2559E+01_JPRB,1.1033E+02_JPRB/)  
+KBO( :, 4,21,16) = (/&
+ & 4.2294E+01_JPRB,3.9176E+01_JPRB,7.0924E+01_JPRB,1.0622E+02_JPRB,1.4195E+02_JPRB/)  
+KBO( :, 5,21,16) = (/&
+ & 5.3038E+01_JPRB,4.9692E+01_JPRB,8.8908E+01_JPRB,1.3317E+02_JPRB,1.7794E+02_JPRB/)  
+KBO( :, 1,22,16) = (/&
+ & 2.1825E+01_JPRB,1.9779E+01_JPRB,3.5248E+01_JPRB,5.2796E+01_JPRB,7.0550E+01_JPRB/)  
+KBO( :, 2,22,16) = (/&
+ & 3.0396E+01_JPRB,2.7253E+01_JPRB,4.8033E+01_JPRB,7.1948E+01_JPRB,9.6125E+01_JPRB/)  
+KBO( :, 3,22,16) = (/&
+ & 4.0380E+01_JPRB,3.6230E+01_JPRB,6.3173E+01_JPRB,9.4660E+01_JPRB,1.2648E+02_JPRB/)  
+KBO( :, 4,22,16) = (/&
+ & 5.1797E+01_JPRB,4.6707E+01_JPRB,8.0766E+01_JPRB,1.2099E+02_JPRB,1.6165E+02_JPRB/)  
+KBO( :, 5,22,16) = (/&
+ & 6.4540E+01_JPRB,5.8724E+01_JPRB,1.0071E+02_JPRB,1.5084E+02_JPRB,2.0156E+02_JPRB/)  
+KBO( :, 1,23,16) = (/&
+ & 2.7320E+01_JPRB,2.4188E+01_JPRB,4.0693E+01_JPRB,6.0960E+01_JPRB,8.1453E+01_JPRB/)  
+KBO( :, 2,23,16) = (/&
+ & 3.7558E+01_JPRB,3.2976E+01_JPRB,5.4970E+01_JPRB,8.2336E+01_JPRB,1.1003E+02_JPRB/)  
+KBO( :, 3,23,16) = (/&
+ & 4.9408E+01_JPRB,4.3375E+01_JPRB,7.1816E+01_JPRB,1.0759E+02_JPRB,1.4373E+02_JPRB/)  
+KBO( :, 4,23,16) = (/&
+ & 6.2874E+01_JPRB,5.5353E+01_JPRB,9.1309E+01_JPRB,1.3680E+02_JPRB,1.8276E+02_JPRB/)  
+KBO( :, 5,23,16) = (/&
+ & 7.7698E+01_JPRB,6.8961E+01_JPRB,1.1333E+02_JPRB,1.6978E+02_JPRB,2.2679E+02_JPRB/)  
+KBO( :, 1,24,16) = (/&
+ & 3.3869E+01_JPRB,2.9387E+01_JPRB,4.6648E+01_JPRB,6.9904E+01_JPRB,9.3367E+01_JPRB/)  
+KBO( :, 2,24,16) = (/&
+ & 4.6006E+01_JPRB,3.9622E+01_JPRB,6.2515E+01_JPRB,9.3679E+01_JPRB,1.2511E+02_JPRB/)  
+KBO( :, 3,24,16) = (/&
+ & 5.9946E+01_JPRB,5.1571E+01_JPRB,8.1209E+01_JPRB,1.2167E+02_JPRB,1.6250E+02_JPRB/)  
+KBO( :, 4,24,16) = (/&
+ & 7.5539E+01_JPRB,6.5110E+01_JPRB,1.0265E+02_JPRB,1.5380E+02_JPRB,2.0542E+02_JPRB/)  
+KBO( :, 5,24,16) = (/&
+ & 9.2477E+01_JPRB,8.0448E+01_JPRB,1.2660E+02_JPRB,1.8969E+02_JPRB,2.5333E+02_JPRB/)  
+KBO( :, 1,25,16) = (/&
+ & 4.1599E+01_JPRB,3.5454E+01_JPRB,5.3146E+01_JPRB,7.9642E+01_JPRB,1.0635E+02_JPRB/)  
+KBO( :, 2,25,16) = (/&
+ & 5.5782E+01_JPRB,4.7228E+01_JPRB,7.0740E+01_JPRB,1.0597E+02_JPRB,1.4155E+02_JPRB/)  
+KBO( :, 3,25,16) = (/&
+ & 7.1943E+01_JPRB,6.0744E+01_JPRB,9.1338E+01_JPRB,1.3688E+02_JPRB,1.8276E+02_JPRB/)  
+KBO( :, 4,25,16) = (/&
+ & 8.9735E+01_JPRB,7.6043E+01_JPRB,1.1460E+02_JPRB,1.7175E+02_JPRB,2.2932E+02_JPRB/)  
+KBO( :, 5,25,16) = (/&
+ & 1.0881E+02_JPRB,9.3022E+01_JPRB,1.4062E+02_JPRB,2.1079E+02_JPRB,2.8133E+02_JPRB/)  
+KBO( :, 1,26,16) = (/&
+ & 5.0633E+01_JPRB,4.2540E+01_JPRB,6.0521E+01_JPRB,9.0533E+01_JPRB,1.2089E+02_JPRB/)  
+KBO( :, 2,26,16) = (/&
+ & 6.7031E+01_JPRB,5.5881E+01_JPRB,7.9837E+01_JPRB,1.1964E+02_JPRB,1.5974E+02_JPRB/)  
+KBO( :, 3,26,16) = (/&
+ & 8.5449E+01_JPRB,7.1046E+01_JPRB,1.0219E+02_JPRB,1.5314E+02_JPRB,2.0448E+02_JPRB/)  
+KBO( :, 4,26,16) = (/&
+ & 1.0550E+02_JPRB,8.8104E+01_JPRB,1.2741E+02_JPRB,1.9092E+02_JPRB,2.5490E+02_JPRB/)  
+KBO( :, 5,26,16) = (/&
+ & 1.2662E+02_JPRB,1.0665E+02_JPRB,1.5535E+02_JPRB,2.3284E+02_JPRB,3.1085E+02_JPRB/)  
+KBO( :, 1,27,16) = (/&
+ & 6.0760E+01_JPRB,5.0362E+01_JPRB,6.8627E+01_JPRB,1.0214E+02_JPRB,1.3635E+02_JPRB/)  
+KBO( :, 2,27,16) = (/&
+ & 7.9372E+01_JPRB,6.5351E+01_JPRB,8.9496E+01_JPRB,1.3381E+02_JPRB,1.7862E+02_JPRB/)  
+KBO( :, 3,27,16) = (/&
+ & 1.0007E+02_JPRB,8.2171E+01_JPRB,1.1350E+02_JPRB,1.7014E+02_JPRB,2.2709E+02_JPRB/)  
+KBO( :, 4,27,16) = (/&
+ & 1.2219E+02_JPRB,1.0086E+02_JPRB,1.4060E+02_JPRB,2.1077E+02_JPRB,2.8135E+02_JPRB/)  
+KBO( :, 5,27,16) = (/&
+ & 1.4517E+02_JPRB,1.2078E+02_JPRB,1.7031E+02_JPRB,2.5527E+02_JPRB,3.4078E+02_JPRB/)  
+KBO( :, 1,28,16) = (/&
+ & 7.1850E+01_JPRB,5.8865E+01_JPRB,7.7249E+01_JPRB,1.1435E+02_JPRB,1.5263E+02_JPRB/)  
+KBO( :, 2,28,16) = (/&
+ & 9.2653E+01_JPRB,7.5393E+01_JPRB,9.9671E+01_JPRB,1.4851E+02_JPRB,1.9822E+02_JPRB/)  
+KBO( :, 3,28,16) = (/&
+ & 1.1541E+02_JPRB,9.3821E+01_JPRB,1.2515E+02_JPRB,1.8738E+02_JPRB,2.5009E+02_JPRB/)  
+KBO( :, 4,28,16) = (/&
+ & 1.3940E+02_JPRB,1.1403E+02_JPRB,1.5381E+02_JPRB,2.3053E+02_JPRB,3.0770E+02_JPRB/)  
+KBO( :, 5,28,16) = (/&
+ & 1.6406E+02_JPRB,1.3517E+02_JPRB,1.8510E+02_JPRB,2.7748E+02_JPRB,3.7030E+02_JPRB/)  
+KBO( :, 1,29,16) = (/&
+ & 8.3876E+01_JPRB,6.7955E+01_JPRB,8.6536E+01_JPRB,1.2716E+02_JPRB,1.6971E+02_JPRB/)  
+KBO( :, 2,29,16) = (/&
+ & 1.0671E+02_JPRB,8.6050E+01_JPRB,1.1035E+02_JPRB,1.6386E+02_JPRB,2.1869E+02_JPRB/)  
+KBO( :, 3,29,16) = (/&
+ & 1.3128E+02_JPRB,1.0596E+02_JPRB,1.3736E+02_JPRB,2.0522E+02_JPRB,2.7387E+02_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART36',1,ZHOOK_HANDLE)
+END SUBROUTINE PART36
+
+
+SUBROUTINE PART37
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART37',0,ZHOOK_HANDLE)
+
+
+KBO( :, 4,29,16) = (/&
+ & 1.5691E+02_JPRB,1.2750E+02_JPRB,1.6737E+02_JPRB,2.5071E+02_JPRB,3.3454E+02_JPRB/)  
+KBO( :, 5,29,16) = (/&
+ & 1.8307E+02_JPRB,1.4968E+02_JPRB,1.9986E+02_JPRB,2.9963E+02_JPRB,3.9981E+02_JPRB/)  
+KBO( :, 1,30,16) = (/&
+ & 9.6402E+01_JPRB,7.7403E+01_JPRB,9.6100E+01_JPRB,1.4042E+02_JPRB,1.8733E+02_JPRB/)  
+KBO( :, 2,30,16) = (/&
+ & 1.2111E+02_JPRB,9.6917E+01_JPRB,1.2129E+02_JPRB,1.7953E+02_JPRB,2.3957E+02_JPRB/)  
+KBO( :, 3,30,16) = (/&
+ & 1.4725E+02_JPRB,1.1830E+02_JPRB,1.4967E+02_JPRB,2.2319E+02_JPRB,2.9778E+02_JPRB/)  
+KBO( :, 4,30,16) = (/&
+ & 1.7435E+02_JPRB,1.4089E+02_JPRB,1.8090E+02_JPRB,2.7076E+02_JPRB,3.6126E+02_JPRB/)  
+KBO( :, 5,30,16) = (/&
+ & 2.0174E+02_JPRB,1.6391E+02_JPRB,2.1447E+02_JPRB,3.2140E+02_JPRB,4.2881E+02_JPRB/)  
+KBO( :, 1,31,16) = (/&
+ & 1.0938E+02_JPRB,8.7129E+01_JPRB,1.0605E+02_JPRB,1.5425E+02_JPRB,2.0576E+02_JPRB/)  
+KBO( :, 2,31,16) = (/&
+ & 1.3571E+02_JPRB,1.0800E+02_JPRB,1.3247E+02_JPRB,1.9550E+02_JPRB,2.6086E+02_JPRB/)  
+KBO( :, 3,31,16) = (/&
+ & 1.6324E+02_JPRB,1.3063E+02_JPRB,1.6212E+02_JPRB,2.4122E+02_JPRB,3.2182E+02_JPRB/)  
+KBO( :, 4,31,16) = (/&
+ & 1.9162E+02_JPRB,1.5412E+02_JPRB,1.9447E+02_JPRB,2.9069E+02_JPRB,3.8783E+02_JPRB/)  
+KBO( :, 5,31,16) = (/&
+ & 2.1989E+02_JPRB,1.7781E+02_JPRB,2.2900E+02_JPRB,3.4301E+02_JPRB,4.5761E+02_JPRB/)  
+KBO( :, 1,32,16) = (/&
+ & 1.2256E+02_JPRB,9.7067E+01_JPRB,1.1617E+02_JPRB,1.6836E+02_JPRB,2.2461E+02_JPRB/)  
+KBO( :, 2,32,16) = (/&
+ & 1.5030E+02_JPRB,1.1913E+02_JPRB,1.4393E+02_JPRB,2.1170E+02_JPRB,2.8241E+02_JPRB/)  
+KBO( :, 3,32,16) = (/&
+ & 1.7905E+02_JPRB,1.4279E+02_JPRB,1.7463E+02_JPRB,2.5936E+02_JPRB,3.4601E+02_JPRB/)  
+KBO( :, 4,32,16) = (/&
+ & 2.0835E+02_JPRB,1.6700E+02_JPRB,2.0791E+02_JPRB,3.1047E+02_JPRB,4.1404E+02_JPRB/)  
+KBO( :, 5,32,16) = (/&
+ & 2.3734E+02_JPRB,1.9118E+02_JPRB,2.4327E+02_JPRB,3.6420E+02_JPRB,4.8584E+02_JPRB/)  
+KBO( :, 1,33,16) = (/&
+ & 1.3570E+02_JPRB,1.0705E+02_JPRB,1.2638E+02_JPRB,1.8277E+02_JPRB,2.4379E+02_JPRB/)  
+KBO( :, 2,33,16) = (/&
+ & 1.6469E+02_JPRB,1.3015E+02_JPRB,1.5530E+02_JPRB,2.2797E+02_JPRB,3.0408E+02_JPRB/)  
+KBO( :, 3,33,16) = (/&
+ & 1.9448E+02_JPRB,1.5467E+02_JPRB,1.8707E+02_JPRB,2.7733E+02_JPRB,3.6994E+02_JPRB/)  
+KBO( :, 4,33,16) = (/&
+ & 2.2436E+02_JPRB,1.7936E+02_JPRB,2.2122E+02_JPRB,3.2976E+02_JPRB,4.3991E+02_JPRB/)  
+KBO( :, 5,33,16) = (/&
+ & 2.5393E+02_JPRB,2.0390E+02_JPRB,2.5728E+02_JPRB,3.8487E+02_JPRB,5.1330E+02_JPRB/)  
+KBO( :, 1,34,16) = (/&
+ & 1.4769E+02_JPRB,1.1615E+02_JPRB,1.3561E+02_JPRB,1.9580E+02_JPRB,2.6115E+02_JPRB/)  
+KBO( :, 2,34,16) = (/&
+ & 1.7765E+02_JPRB,1.4013E+02_JPRB,1.6546E+02_JPRB,2.4255E+02_JPRB,3.2352E+02_JPRB/)  
+KBO( :, 3,34,16) = (/&
+ & 2.0819E+02_JPRB,1.6522E+02_JPRB,1.9808E+02_JPRB,2.9327E+02_JPRB,3.9114E+02_JPRB/)  
+KBO( :, 4,34,16) = (/&
+ & 2.3855E+02_JPRB,1.9025E+02_JPRB,2.3293E+02_JPRB,3.4692E+02_JPRB,4.6270E+02_JPRB/)  
+KBO( :, 5,34,16) = (/&
+ & 2.6850E+02_JPRB,2.1503E+02_JPRB,2.6955E+02_JPRB,4.0292E+02_JPRB,5.3742E+02_JPRB/)  
+KBO( :, 1,35,16) = (/&
+ & 1.5643E+02_JPRB,1.2270E+02_JPRB,1.4190E+02_JPRB,2.0436E+02_JPRB,2.7254E+02_JPRB/)  
+KBO( :, 2,35,16) = (/&
+ & 1.8713E+02_JPRB,1.4730E+02_JPRB,1.7243E+02_JPRB,2.5214E+02_JPRB,3.3629E+02_JPRB/)  
+KBO( :, 3,35,16) = (/&
+ & 2.1819E+02_JPRB,1.7282E+02_JPRB,2.0562E+02_JPRB,3.0372E+02_JPRB,4.0506E+02_JPRB/)  
+KBO( :, 4,35,16) = (/&
+ & 2.4895E+02_JPRB,1.9814E+02_JPRB,2.4081E+02_JPRB,3.5825E+02_JPRB,4.7775E+02_JPRB/)  
+KBO( :, 5,35,16) = (/&
+ & 2.7917E+02_JPRB,2.2313E+02_JPRB,2.7780E+02_JPRB,4.1495E+02_JPRB,5.5336E+02_JPRB/)  
+KBO( :, 1,36,16) = (/&
+ & 1.6128E+02_JPRB,1.2623E+02_JPRB,1.4470E+02_JPRB,2.0760E+02_JPRB,2.7682E+02_JPRB/)  
+KBO( :, 2,36,16) = (/&
+ & 1.9250E+02_JPRB,1.5118E+02_JPRB,1.7553E+02_JPRB,2.5587E+02_JPRB,3.4124E+02_JPRB/)  
+KBO( :, 3,36,16) = (/&
+ & 2.2400E+02_JPRB,1.7706E+02_JPRB,2.0894E+02_JPRB,3.0787E+02_JPRB,4.1050E+02_JPRB/)  
+KBO( :, 4,36,16) = (/&
+ & 2.5511E+02_JPRB,2.0265E+02_JPRB,2.4435E+02_JPRB,3.6281E+02_JPRB,4.8383E+02_JPRB/)  
+KBO( :, 5,36,16) = (/&
+ & 2.8566E+02_JPRB,2.2781E+02_JPRB,2.8144E+02_JPRB,4.1994E+02_JPRB,5.6005E+02_JPRB/)  
+KBO( :, 1,37,16) = (/&
+ & 1.6074E+02_JPRB,1.2562E+02_JPRB,1.4270E+02_JPRB,2.0342E+02_JPRB,2.7131E+02_JPRB/)  
+KBO( :, 2,37,16) = (/&
+ & 1.9235E+02_JPRB,1.5069E+02_JPRB,1.7337E+02_JPRB,2.5150E+02_JPRB,3.3544E+02_JPRB/)  
+KBO( :, 3,37,16) = (/&
+ & 2.2422E+02_JPRB,1.7676E+02_JPRB,2.0661E+02_JPRB,3.0337E+02_JPRB,4.0456E+02_JPRB/)  
+KBO( :, 4,37,16) = (/&
+ & 2.5568E+02_JPRB,2.0266E+02_JPRB,2.4193E+02_JPRB,3.5830E+02_JPRB,4.7782E+02_JPRB/)  
+KBO( :, 5,37,16) = (/&
+ & 2.8661E+02_JPRB,2.2807E+02_JPRB,2.7894E+02_JPRB,4.1548E+02_JPRB,5.5411E+02_JPRB/)  
+KBO( :, 1,38,16) = (/&
+ & 1.5931E+02_JPRB,1.2434E+02_JPRB,1.4021E+02_JPRB,1.9855E+02_JPRB,2.6480E+02_JPRB/)  
+KBO( :, 2,38,16) = (/&
+ & 1.9120E+02_JPRB,1.4947E+02_JPRB,1.7064E+02_JPRB,2.4634E+02_JPRB,3.2849E+02_JPRB/)  
+KBO( :, 3,38,16) = (/&
+ & 2.2336E+02_JPRB,1.7568E+02_JPRB,2.0368E+02_JPRB,2.9797E+02_JPRB,3.9734E+02_JPRB/)  
+KBO( :, 4,38,16) = (/&
+ & 2.5520E+02_JPRB,2.0184E+02_JPRB,2.3879E+02_JPRB,3.5282E+02_JPRB,4.7045E+02_JPRB/)  
+KBO( :, 5,38,16) = (/&
+ & 2.8646E+02_JPRB,2.2749E+02_JPRB,2.7570E+02_JPRB,4.0988E+02_JPRB,5.4664E+02_JPRB/)  
+KBO( :, 1,39,16) = (/&
+ & 1.5737E+02_JPRB,1.2272E+02_JPRB,1.3752E+02_JPRB,1.9347E+02_JPRB,2.5800E+02_JPRB/)  
+KBO( :, 2,39,16) = (/&
+ & 1.8947E+02_JPRB,1.4785E+02_JPRB,1.6766E+02_JPRB,2.4086E+02_JPRB,3.2118E+02_JPRB/)  
+KBO( :, 3,39,16) = (/&
+ & 2.2190E+02_JPRB,1.7414E+02_JPRB,2.0048E+02_JPRB,2.9227E+02_JPRB,3.8976E+02_JPRB/)  
+KBO( :, 4,39,16) = (/&
+ & 2.5401E+02_JPRB,2.0054E+02_JPRB,2.3540E+02_JPRB,3.4685E+02_JPRB,4.6257E+02_JPRB/)  
+KBO( :, 5,39,16) = (/&
+ & 2.8557E+02_JPRB,2.2640E+02_JPRB,2.7220E+02_JPRB,4.0387E+02_JPRB,5.3853E+02_JPRB/)  
+KBO( :, 1,40,16) = (/&
+ & 1.5173E+02_JPRB,1.1834E+02_JPRB,1.3170E+02_JPRB,1.8369E+02_JPRB,2.4496E+02_JPRB/)  
+KBO( :, 2,40,16) = (/&
+ & 1.8387E+02_JPRB,1.4326E+02_JPRB,1.6126E+02_JPRB,2.3014E+02_JPRB,3.0690E+02_JPRB/)  
+KBO( :, 3,40,16) = (/&
+ & 2.1654E+02_JPRB,1.6951E+02_JPRB,1.9355E+02_JPRB,2.8092E+02_JPRB,3.7460E+02_JPRB/)  
+KBO( :, 4,40,16) = (/&
+ & 2.4896E+02_JPRB,1.9611E+02_JPRB,2.2806E+02_JPRB,3.3490E+02_JPRB,4.4658E+02_JPRB/)  
+KBO( :, 5,40,16) = (/&
+ & 2.8081E+02_JPRB,2.2225E+02_JPRB,2.6459E+02_JPRB,3.9162E+02_JPRB,5.2225E+02_JPRB/)  
+KBO( :, 1,41,16) = (/&
+ & 1.4531E+02_JPRB,1.1344E+02_JPRB,1.2539E+02_JPRB,1.7342E+02_JPRB,2.3126E+02_JPRB/)  
+KBO( :, 2,41,16) = (/&
+ & 1.7739E+02_JPRB,1.3804E+02_JPRB,1.5439E+02_JPRB,2.1880E+02_JPRB,2.9176E+02_JPRB/)  
+KBO( :, 3,41,16) = (/&
+ & 2.1022E+02_JPRB,1.6418E+02_JPRB,1.8612E+02_JPRB,2.6873E+02_JPRB,3.5832E+02_JPRB/)  
+KBO( :, 4,41,16) = (/&
+ & 2.4292E+02_JPRB,1.9086E+02_JPRB,2.2015E+02_JPRB,3.2196E+02_JPRB,4.2934E+02_JPRB/)  
+KBO( :, 5,41,16) = (/&
+ & 2.7507E+02_JPRB,2.1730E+02_JPRB,2.5630E+02_JPRB,3.7839E+02_JPRB,5.0449E+02_JPRB/)  
+KBO( :, 1,42,16) = (/&
+ & 1.3859E+02_JPRB,1.0832E+02_JPRB,1.1902E+02_JPRB,1.6325E+02_JPRB,2.1769E+02_JPRB/)  
+KBO( :, 2,42,16) = (/&
+ & 1.7052E+02_JPRB,1.3266E+02_JPRB,1.4745E+02_JPRB,2.0749E+02_JPRB,2.7665E+02_JPRB/)  
+KBO( :, 3,42,16) = (/&
+ & 2.0342E+02_JPRB,1.5859E+02_JPRB,1.7863E+02_JPRB,2.5644E+02_JPRB,3.4199E+02_JPRB/)  
+KBO( :, 4,42,16) = (/&
+ & 2.3635E+02_JPRB,1.8528E+02_JPRB,2.1215E+02_JPRB,3.0913E+02_JPRB,4.1213E+02_JPRB/)  
+KBO( :, 5,42,16) = (/&
+ & 2.6880E+02_JPRB,2.1197E+02_JPRB,2.4778E+02_JPRB,3.6481E+02_JPRB,4.8644E+02_JPRB/)  
+KBO( :, 1,43,16) = (/&
+ & 1.3001E+02_JPRB,1.0178E+02_JPRB,1.1123E+02_JPRB,1.5100E+02_JPRB,2.0132E+02_JPRB/)  
+KBO( :, 2,43,16) = (/&
+ & 1.6156E+02_JPRB,1.2573E+02_JPRB,1.3894E+02_JPRB,1.9371E+02_JPRB,2.5828E+02_JPRB/)  
+KBO( :, 3,43,16) = (/&
+ & 1.9443E+02_JPRB,1.5128E+02_JPRB,1.6930E+02_JPRB,2.4134E+02_JPRB,3.2182E+02_JPRB/)  
+KBO( :, 4,43,16) = (/&
+ & 2.2750E+02_JPRB,1.7792E+02_JPRB,2.0213E+02_JPRB,2.9308E+02_JPRB,3.9078E+02_JPRB/)  
+KBO( :, 5,43,16) = (/&
+ & 2.6025E+02_JPRB,2.0480E+02_JPRB,2.3724E+02_JPRB,3.4798E+02_JPRB,4.6403E+02_JPRB/)  
+KBO( :, 1,44,16) = (/&
+ & 1.2064E+02_JPRB,9.4696E+01_JPRB,1.0291E+02_JPRB,1.3822E+02_JPRB,1.8432E+02_JPRB/)  
+KBO( :, 2,44,16) = (/&
+ & 1.5164E+02_JPRB,1.1817E+02_JPRB,1.2980E+02_JPRB,1.7913E+02_JPRB,2.3893E+02_JPRB/)  
+KBO( :, 3,44,16) = (/&
+ & 1.8428E+02_JPRB,1.4322E+02_JPRB,1.5930E+02_JPRB,2.2526E+02_JPRB,3.0036E+02_JPRB/)  
+KBO( :, 4,44,16) = (/&
+ & 2.1753E+02_JPRB,1.6972E+02_JPRB,1.9139E+02_JPRB,2.7583E+02_JPRB,3.6782E+02_JPRB/)  
+KBO( :, 5,44,16) = (/&
+ & 2.5049E+02_JPRB,1.9666E+02_JPRB,2.2579E+02_JPRB,3.2975E+02_JPRB,4.3968E+02_JPRB/)  
+KBO( :, 1,45,16) = (/&
+ & 1.1151E+02_JPRB,8.7613E+01_JPRB,9.4790E+01_JPRB,1.2608E+02_JPRB,1.6812E+02_JPRB/)  
+KBO( :, 2,45,16) = (/&
+ & 1.4164E+02_JPRB,1.1057E+02_JPRB,1.2077E+02_JPRB,1.6507E+02_JPRB,2.2006E+02_JPRB/)  
+KBO( :, 3,45,16) = (/&
+ & 1.7396E+02_JPRB,1.3520E+02_JPRB,1.4945E+02_JPRB,2.0958E+02_JPRB,2.7946E+02_JPRB/)  
+KBO( :, 4,45,16) = (/&
+ & 2.0722E+02_JPRB,1.6134E+02_JPRB,1.8077E+02_JPRB,2.5885E+02_JPRB,3.4509E+02_JPRB/)  
+KBO( :, 5,45,16) = (/&
+ & 2.4041E+02_JPRB,1.8823E+02_JPRB,2.1441E+02_JPRB,3.1179E+02_JPRB,4.1569E+02_JPRB/)  
+KBO( :, 1,46,16) = (/&
+ & 1.0202E+02_JPRB,8.0263E+01_JPRB,8.6456E+01_JPRB,1.1385E+02_JPRB,1.5183E+02_JPRB/)  
+KBO( :, 2,46,16) = (/&
+ & 1.3102E+02_JPRB,1.0251E+02_JPRB,1.1143E+02_JPRB,1.5058E+02_JPRB,2.0077E+02_JPRB/)  
+KBO( :, 3,46,16) = (/&
+ & 1.6284E+02_JPRB,1.2664E+02_JPRB,1.3922E+02_JPRB,1.9326E+02_JPRB,2.5769E+02_JPRB/)  
+KBO( :, 4,46,16) = (/&
+ & 1.9593E+02_JPRB,1.5228E+02_JPRB,1.6961E+02_JPRB,2.4101E+02_JPRB,3.2127E+02_JPRB/)  
+KBO( :, 5,46,16) = (/&
+ & 2.2932E+02_JPRB,1.7911E+02_JPRB,2.0249E+02_JPRB,2.9283E+02_JPRB,3.9038E+02_JPRB/)  
+KBO( :, 1,47,16) = (/&
+ & 9.1833E+01_JPRB,7.2521E+01_JPRB,7.7492E+01_JPRB,1.0107E+02_JPRB,1.3478E+02_JPRB/)  
+KBO( :, 2,47,16) = (/&
+ & 1.1935E+02_JPRB,9.3639E+01_JPRB,1.0124E+02_JPRB,1.3522E+02_JPRB,1.8034E+02_JPRB/)  
+KBO( :, 3,47,16) = (/&
+ & 1.5031E+02_JPRB,1.1714E+02_JPRB,1.2800E+02_JPRB,1.7568E+02_JPRB,2.3430E+02_JPRB/)  
+KBO( :, 4,47,16) = (/&
+ & 1.8310E+02_JPRB,1.4216E+02_JPRB,1.5736E+02_JPRB,2.2148E+02_JPRB,2.9535E+02_JPRB/)  
+KBO( :, 5,47,16) = (/&
+ & 2.1655E+02_JPRB,1.6875E+02_JPRB,1.8931E+02_JPRB,2.7187E+02_JPRB,3.6261E+02_JPRB/)  
+KBO( :, 1,48,16) = (/&
+ & 8.2434E+01_JPRB,6.5271E+01_JPRB,6.9082E+01_JPRB,8.9310E+01_JPRB,1.1908E+02_JPRB/)  
+KBO( :, 2,48,16) = (/&
+ & 1.0815E+02_JPRB,8.4940E+01_JPRB,9.1497E+01_JPRB,1.2085E+02_JPRB,1.6117E+02_JPRB/)  
+KBO( :, 3,48,16) = (/&
+ & 1.3796E+02_JPRB,1.0775E+02_JPRB,1.1715E+02_JPRB,1.5893E+02_JPRB,2.1191E+02_JPRB/)  
+KBO( :, 4,48,16) = (/&
+ & 1.7024E+02_JPRB,1.3227E+02_JPRB,1.4550E+02_JPRB,2.0275E+02_JPRB,2.7033E+02_JPRB/)  
+KBO( :, 5,48,16) = (/&
+ & 2.0361E+02_JPRB,1.5829E+02_JPRB,1.7646E+02_JPRB,2.5142E+02_JPRB,3.3526E+02_JPRB/)  
+KBO( :, 1,49,16) = (/&
+ & 7.3591E+01_JPRB,5.8555E+01_JPRB,6.1217E+01_JPRB,7.8585E+01_JPRB,1.0478E+02_JPRB/)  
+KBO( :, 2,49,16) = (/&
+ & 9.7468E+01_JPRB,7.6787E+01_JPRB,8.2199E+01_JPRB,1.0753E+02_JPRB,1.4337E+02_JPRB/)  
+KBO( :, 3,49,16) = (/&
+ & 1.2589E+02_JPRB,9.8595E+01_JPRB,1.0664E+02_JPRB,1.4299E+02_JPRB,1.9063E+02_JPRB/)  
+KBO( :, 4,49,16) = (/&
+ & 1.5743E+02_JPRB,1.2250E+02_JPRB,1.3397E+02_JPRB,1.8464E+02_JPRB,2.4618E+02_JPRB/)  
+KBO( :, 5,49,16) = (/&
+ & 1.9052E+02_JPRB,1.4794E+02_JPRB,1.6391E+02_JPRB,2.3149E+02_JPRB,3.0868E+02_JPRB/)  
+KBO( :, 1,50,16) = (/&
+ & 6.5961E+01_JPRB,5.2638E+01_JPRB,5.4393E+01_JPRB,6.9399E+01_JPRB,9.2534E+01_JPRB/)  
+KBO( :, 2,50,16) = (/&
+ & 8.8116E+01_JPRB,6.9616E+01_JPRB,7.3948E+01_JPRB,9.5883E+01_JPRB,1.2784E+02_JPRB/)  
+KBO( :, 3,50,16) = (/&
+ & 1.1495E+02_JPRB,9.0222E+01_JPRB,9.7185E+01_JPRB,1.2898E+02_JPRB,1.7197E+02_JPRB/)  
+KBO( :, 4,50,16) = (/&
+ & 1.4556E+02_JPRB,1.1350E+02_JPRB,1.2350E+02_JPRB,1.6846E+02_JPRB,2.2453E+02_JPRB/)  
+KBO( :, 5,50,16) = (/&
+ & 1.7823E+02_JPRB,1.3839E+02_JPRB,1.5245E+02_JPRB,2.1343E+02_JPRB,2.8458E+02_JPRB/)  
+KBO( :, 1,51,16) = (/&
+ & 5.9119E+01_JPRB,4.7354E+01_JPRB,4.8344E+01_JPRB,6.1204E+01_JPRB,8.1604E+01_JPRB/)  
+KBO( :, 2,51,16) = (/&
+ & 7.9680E+01_JPRB,6.3168E+01_JPRB,6.6452E+01_JPRB,8.5530E+01_JPRB,1.1410E+02_JPRB/)  
+KBO( :, 3,51,16) = (/&
+ & 1.0482E+02_JPRB,8.2356E+01_JPRB,8.8430E+01_JPRB,1.1623E+02_JPRB,1.5497E+02_JPRB/)  
+KBO( :, 4,51,16) = (/&
+ & 1.3427E+02_JPRB,1.0494E+02_JPRB,1.1368E+02_JPRB,1.5339E+02_JPRB,2.0454E+02_JPRB/)  
+KBO( :, 5,51,16) = (/&
+ & 1.6639E+02_JPRB,1.2932E+02_JPRB,1.4173E+02_JPRB,1.9652E+02_JPRB,2.6202E+02_JPRB/)  
+KBO( :, 1,52,16) = (/&
+ & 5.2745E+01_JPRB,4.2467E+01_JPRB,4.2754E+01_JPRB,5.3680E+01_JPRB,7.1576E+01_JPRB/)  
+KBO( :, 2,52,16) = (/&
+ & 7.1747E+01_JPRB,5.7129E+01_JPRB,5.9424E+01_JPRB,7.6073E+01_JPRB,1.0142E+02_JPRB/)  
+KBO( :, 3,52,16) = (/&
+ & 9.5200E+01_JPRB,7.5047E+01_JPRB,8.0071E+01_JPRB,1.0434E+02_JPRB,1.3911E+02_JPRB/)  
+KBO( :, 4,52,16) = (/&
+ & 1.2328E+02_JPRB,9.6608E+01_JPRB,1.0420E+02_JPRB,1.3918E+02_JPRB,1.8556E+02_JPRB/)  
+KBO( :, 5,52,16) = (/&
+ & 1.5465E+02_JPRB,1.2039E+02_JPRB,1.3128E+02_JPRB,1.8026E+02_JPRB,2.4037E+02_JPRB/)  
+KBO( :, 1,53,16) = (/&
+ & 4.6931E+01_JPRB,3.7942E+01_JPRB,3.7717E+01_JPRB,4.6873E+01_JPRB,6.2479E+01_JPRB/)  
+KBO( :, 2,53,16) = (/&
+ & 6.4426E+01_JPRB,5.1434E+01_JPRB,5.2934E+01_JPRB,6.7323E+01_JPRB,8.9766E+01_JPRB/)  
+KBO( :, 3,53,16) = (/&
+ & 8.6242E+01_JPRB,6.8154E+01_JPRB,7.2147E+01_JPRB,9.3266E+01_JPRB,1.2436E+02_JPRB/)  
+KBO( :, 4,53,16) = (/&
+ & 1.1270E+02_JPRB,8.8425E+01_JPRB,9.5072E+01_JPRB,1.2575E+02_JPRB,1.6767E+02_JPRB/)  
+KBO( :, 5,53,16) = (/&
+ & 1.4306E+02_JPRB,1.1161E+02_JPRB,1.2116E+02_JPRB,1.6465E+02_JPRB,2.1957E+02_JPRB/)  
+KBO( :, 1,54,16) = (/&
+ & 4.2077E+01_JPRB,3.4169E+01_JPRB,3.3488E+01_JPRB,4.1262E+01_JPRB,5.4902E+01_JPRB/)  
+KBO( :, 2,54,16) = (/&
+ & 5.8190E+01_JPRB,4.6634E+01_JPRB,4.7441E+01_JPRB,5.9915E+01_JPRB,7.9878E+01_JPRB/)  
+KBO( :, 3,54,16) = (/&
+ & 7.8514E+01_JPRB,6.2282E+01_JPRB,6.5328E+01_JPRB,8.3924E+01_JPRB,1.1190E+02_JPRB/)  
+KBO( :, 4,54,16) = (/&
+ & 1.0342E+02_JPRB,8.1276E+01_JPRB,8.7086E+01_JPRB,1.1420E+02_JPRB,1.5227E+02_JPRB/)  
+KBO( :, 5,54,16) = (/&
+ & 1.3269E+02_JPRB,1.0372E+02_JPRB,1.1219E+02_JPRB,1.5097E+02_JPRB,2.0130E+02_JPRB/)  
+KBO( :, 1,55,16) = (/&
+ & 3.7797E+01_JPRB,3.0836E+01_JPRB,2.9805E+01_JPRB,3.6383E+01_JPRB,4.8271E+01_JPRB/)  
+KBO( :, 2,55,16) = (/&
+ & 5.2583E+01_JPRB,4.2337E+01_JPRB,4.2558E+01_JPRB,5.3364E+01_JPRB,7.1129E+01_JPRB/)  
+KBO( :, 3,55,16) = (/&
+ & 7.1538E+01_JPRB,5.6971E+01_JPRB,5.9162E+01_JPRB,7.5653E+01_JPRB,1.0088E+02_JPRB/)  
+KBO( :, 4,55,16) = (/&
+ & 9.4943E+01_JPRB,7.4845E+01_JPRB,7.9765E+01_JPRB,1.0380E+02_JPRB,1.3840E+02_JPRB/)  
+KBO( :, 5,55,16) = (/&
+ & 1.2300E+02_JPRB,9.6367E+01_JPRB,1.0384E+02_JPRB,1.3854E+02_JPRB,1.8472E+02_JPRB/)  
+KBO( :, 1,56,16) = (/&
+ & 3.3873E+01_JPRB,2.7740E+01_JPRB,2.6480E+01_JPRB,3.1942E+01_JPRB,4.2208E+01_JPRB/)  
+KBO( :, 2,56,16) = (/&
+ & 4.7453E+01_JPRB,3.8343E+01_JPRB,3.8125E+01_JPRB,4.7379E+01_JPRB,6.3148E+01_JPRB/)  
+KBO( :, 3,56,16) = (/&
+ & 6.5091E+01_JPRB,5.1940E+01_JPRB,5.3452E+01_JPRB,6.7966E+01_JPRB,9.0627E+01_JPRB/)  
+KBO( :, 4,56,16) = (/&
+ & 8.7046E+01_JPRB,6.8764E+01_JPRB,7.2784E+01_JPRB,9.4072E+01_JPRB,1.2543E+02_JPRB/)  
+KBO( :, 5,56,16) = (/&
+ & 1.1365E+02_JPRB,8.9173E+01_JPRB,9.5823E+01_JPRB,1.2676E+02_JPRB,1.6901E+02_JPRB/)  
+KBO( :, 1,57,16) = (/&
+ & 3.0269E+01_JPRB,2.4887E+01_JPRB,2.3522E+01_JPRB,2.7966E+01_JPRB,3.6672E+01_JPRB/)  
+KBO( :, 2,57,16) = (/&
+ & 4.2742E+01_JPRB,3.4680E+01_JPRB,3.4029E+01_JPRB,4.1940E+01_JPRB,5.5826E+01_JPRB/)  
+KBO( :, 3,57,16) = (/&
+ & 5.9049E+01_JPRB,4.7291E+01_JPRB,4.8146E+01_JPRB,6.0813E+01_JPRB,8.1079E+01_JPRB/)  
+KBO( :, 4,57,16) = (/&
+ & 7.9588E+01_JPRB,6.3092E+01_JPRB,6.6213E+01_JPRB,8.5068E+01_JPRB,1.1341E+02_JPRB/)  
+KBO( :, 5,57,16) = (/&
+ & 1.0467E+02_JPRB,8.2241E+01_JPRB,8.8127E+01_JPRB,1.1561E+02_JPRB,1.5417E+02_JPRB/)  
+KBO( :, 1,58,16) = (/&
+ & 2.7181E+01_JPRB,2.2407E+01_JPRB,2.1043E+01_JPRB,2.4570E+01_JPRB,3.1903E+01_JPRB/)  
+KBO( :, 2,58,16) = (/&
+ & 3.8607E+01_JPRB,3.1473E+01_JPRB,3.0470E+01_JPRB,3.7255E+01_JPRB,4.9462E+01_JPRB/)  
+KBO( :, 3,58,16) = (/&
+ & 5.3661E+01_JPRB,4.3166E+01_JPRB,4.3454E+01_JPRB,5.4507E+01_JPRB,7.2688E+01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART37',1,ZHOOK_HANDLE)
+END SUBROUTINE PART37
+
+
+SUBROUTINE PART38
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART38',0,ZHOOK_HANDLE)
+
+
+KBO( :, 4,58,16) = (/&
+ & 7.2881E+01_JPRB,5.7996E+01_JPRB,6.0310E+01_JPRB,7.7125E+01_JPRB,1.0284E+02_JPRB/)  
+KBO( :, 5,58,16) = (/&
+ & 9.6586E+01_JPRB,7.6089E+01_JPRB,8.1135E+01_JPRB,1.0566E+02_JPRB,1.4091E+02_JPRB/)  
+KBO( :, 1,59,16) = (/&
+ & 2.6031E+01_JPRB,2.1482E+01_JPRB,2.0126E+01_JPRB,2.3303E+01_JPRB,3.0129E+01_JPRB/)  
+KBO( :, 2,59,16) = (/&
+ & 3.7063E+01_JPRB,3.0259E+01_JPRB,2.9150E+01_JPRB,3.5486E+01_JPRB,4.7064E+01_JPRB/)  
+KBO( :, 3,59,16) = (/&
+ & 5.1630E+01_JPRB,4.1596E+01_JPRB,4.1690E+01_JPRB,5.2144E+01_JPRB,6.9539E+01_JPRB/)  
+KBO( :, 4,59,16) = (/&
+ & 7.0350E+01_JPRB,5.6032E+01_JPRB,5.8043E+01_JPRB,7.4115E+01_JPRB,9.8842E+01_JPRB/)  
+KBO( :, 5,59,16) = (/&
+ & 9.3474E+01_JPRB,7.3716E+01_JPRB,7.8416E+01_JPRB,1.0186E+02_JPRB,1.3581E+02_JPRB/)  
+
+!     The array SELFREFO contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+SELFREFO( :, 1) = (/&
+ & 5.10286E-01_JPRB, 4.30424E-01_JPRB, 3.63061E-01_JPRB, 3.06241E-01_JPRB, 2.58313E-01_JPRB,&
+ & 2.17886E-01_JPRB, 1.83786E-01_JPRB, 1.55023E-01_JPRB, 1.30761E-01_JPRB, 1.10297E-01_JPRB/)  
+SELFREFO( :, 2) = (/&
+ & 4.96777E-01_JPRB, 4.30758E-01_JPRB, 3.73512E-01_JPRB, 3.23874E-01_JPRB, 2.80833E-01_JPRB,&
+ & 2.43512E-01_JPRB, 2.11150E-01_JPRB, 1.83089E-01_JPRB, 1.58758E-01_JPRB, 1.37659E-01_JPRB/)  
+SELFREFO( :, 3) = (/&
+ & 4.65595E-01_JPRB, 4.04778E-01_JPRB, 3.51905E-01_JPRB, 3.05939E-01_JPRB, 2.65976E-01_JPRB,&
+ & 2.31234E-01_JPRB, 2.01030E-01_JPRB, 1.74771E-01_JPRB, 1.51942E-01_JPRB, 1.32095E-01_JPRB/)  
+SELFREFO( :, 4) = (/&
+ & 4.34629E-01_JPRB, 3.86709E-01_JPRB, 3.44073E-01_JPRB, 3.06137E-01_JPRB, 2.72384E-01_JPRB,&
+ & 2.42353E-01_JPRB, 2.15633E-01_JPRB, 1.91858E-01_JPRB, 1.70705E-01_JPRB, 1.51884E-01_JPRB/)  
+SELFREFO( :, 5) = (/&
+ & 4.17625E-01_JPRB, 3.75442E-01_JPRB, 3.37519E-01_JPRB, 3.03427E-01_JPRB, 2.72778E-01_JPRB,&
+ & 2.45225E-01_JPRB, 2.20456E-01_JPRB, 1.98188E-01_JPRB, 1.78169E-01_JPRB, 1.60173E-01_JPRB/)  
+SELFREFO( :, 6) = (/&
+ & 3.97412E-01_JPRB, 3.61249E-01_JPRB, 3.28376E-01_JPRB, 2.98494E-01_JPRB, 2.71332E-01_JPRB,&
+ & 2.46641E-01_JPRB, 2.24198E-01_JPRB, 2.03796E-01_JPRB, 1.85251E-01_JPRB, 1.68394E-01_JPRB/)  
+SELFREFO( :, 7) = (/&
+ & 3.89795E-01_JPRB, 3.56178E-01_JPRB, 3.25460E-01_JPRB, 2.97391E-01_JPRB, 2.71743E-01_JPRB,&
+ & 2.48307E-01_JPRB, 2.26892E-01_JPRB, 2.07324E-01_JPRB, 1.89444E-01_JPRB, 1.73105E-01_JPRB/)  
+SELFREFO( :, 8) = (/&
+ & 3.79095E-01_JPRB, 3.46828E-01_JPRB, 3.17308E-01_JPRB, 2.90301E-01_JPRB, 2.65592E-01_JPRB,&
+ & 2.42986E-01_JPRB, 2.22305E-01_JPRB, 2.03384E-01_JPRB, 1.86073E-01_JPRB, 1.70235E-01_JPRB/)  
+SELFREFO( :, 9) = (/&
+ & 3.87086E-01_JPRB, 3.53988E-01_JPRB, 3.23720E-01_JPRB, 2.96040E-01_JPRB, 2.70727E-01_JPRB,&
+ & 2.47578E-01_JPRB, 2.26409E-01_JPRB, 2.07050E-01_JPRB, 1.89346E-01_JPRB, 1.73156E-01_JPRB/)  
+SELFREFO( :,10) = (/&
+ & 4.07529E-01_JPRB, 3.71284E-01_JPRB, 3.38263E-01_JPRB, 3.08179E-01_JPRB, 2.80770E-01_JPRB,&
+ & 2.55799E-01_JPRB, 2.33049E-01_JPRB, 2.12322E-01_JPRB, 1.93438E-01_JPRB, 1.76234E-01_JPRB/)  
+SELFREFO( :,11) = (/&
+ & 4.09315E-01_JPRB, 3.74420E-01_JPRB, 3.42500E-01_JPRB, 3.13302E-01_JPRB, 2.86592E-01_JPRB,&
+ & 2.62160E-01_JPRB, 2.39811E-01_JPRB, 2.19367E-01_JPRB, 2.00665E-01_JPRB, 1.83558E-01_JPRB/)  
+SELFREFO( :,12) = (/&
+ & 3.73996E-01_JPRB, 3.51462E-01_JPRB, 3.30286E-01_JPRB, 3.10385E-01_JPRB, 2.91684E-01_JPRB,&
+ & 2.74109E-01_JPRB, 2.57593E-01_JPRB, 2.42072E-01_JPRB, 2.27487E-01_JPRB, 2.13780E-01_JPRB/)  
+SELFREFO( :,13) = (/&
+ & 4.87965E-01_JPRB, 4.44525E-01_JPRB, 4.04952E-01_JPRB, 3.68902E-01_JPRB, 3.36061E-01_JPRB,&
+ & 3.06144E-01_JPRB, 2.78891E-01_JPRB, 2.54063E-01_JPRB, 2.31446E-01_JPRB, 2.10842E-01_JPRB/)  
+SELFREFO( :,14) = (/&
+ & 5.67999E-01_JPRB, 5.03336E-01_JPRB, 4.46034E-01_JPRB, 3.95256E-01_JPRB, 3.50259E-01_JPRB,&
+ & 3.10384E-01_JPRB, 2.75048E-01_JPRB, 2.43736E-01_JPRB, 2.15988E-01_JPRB, 1.91399E-01_JPRB/)  
+SELFREFO( :,15) = (/&
+ & 5.92492E-01_JPRB, 5.27072E-01_JPRB, 4.68874E-01_JPRB, 4.17103E-01_JPRB, 3.71048E-01_JPRB,&
+ & 3.30079E-01_JPRB, 2.93633E-01_JPRB, 2.61211E-01_JPRB, 2.32369E-01_JPRB, 2.06712E-01_JPRB/)  
+SELFREFO( :,16) = (/&
+ & 5.04176E-01_JPRB, 4.64845E-01_JPRB, 4.28582E-01_JPRB, 3.95148E-01_JPRB, 3.64322E-01_JPRB,&
+ & 3.35901E-01_JPRB, 3.09697E-01_JPRB, 2.85538E-01_JPRB, 2.63263E-01_JPRB, 2.42725E-01_JPRB/)  
+
+FRACREFAO( :, 1) = (/&
+ !     From P = 1053.6 mb.
+ & 0.15116400_JPRB,0.14875700_JPRB,0.14232300_JPRB,0.13234501_JPRB,&
+ & 0.11881600_JPRB,0.10224100_JPRB,0.08345580_JPRB,0.06267490_JPRB,&
+ & 0.04250650_JPRB,0.00462650_JPRB,0.00382259_JPRB,0.00302600_JPRB,&
+ & 0.00222004_JPRB,0.00141397_JPRB,0.00053379_JPRB,0.00007421_JPRB/)  
+FRACREFAO( :, 2) = (/&
+ & 0.15266000_JPRB,0.14888400_JPRB,0.14195900_JPRB,0.13179500_JPRB,&
+ & 0.11842700_JPRB,0.10209000_JPRB,0.08336130_JPRB,0.06264370_JPRB,&
+ & 0.04247660_JPRB,0.00461946_JPRB,0.00381536_JPRB,0.00302601_JPRB,&
+ & 0.00222004_JPRB,0.00141397_JPRB,0.00053302_JPRB,0.00007498_JPRB/)  
+FRACREFAO( :, 3) = (/&
+ & 0.15282799_JPRB,0.14903000_JPRB,0.14192399_JPRB,0.13174300_JPRB,&
+ & 0.11835300_JPRB,0.10202700_JPRB,0.08329830_JPRB,0.06264830_JPRB,&
+ & 0.04246910_JPRB,0.00460242_JPRB,0.00381904_JPRB,0.00301573_JPRB,&
+ & 0.00222004_JPRB,0.00141397_JPRB,0.00053379_JPRB,0.00007421_JPRB/)  
+FRACREFAO( :, 4) = (/&
+ & 0.15298399_JPRB,0.14902800_JPRB,0.14193401_JPRB,0.13173500_JPRB,&
+ & 0.11833300_JPRB,0.10195800_JPRB,0.08324730_JPRB,0.06264770_JPRB,&
+ & 0.04246490_JPRB,0.00460489_JPRB,0.00381123_JPRB,0.00301893_JPRB,&
+ & 0.00221093_JPRB,0.00141397_JPRB,0.00053379_JPRB,0.00007421_JPRB/)  
+FRACREFAO( :, 5) = (/&
+ & 0.15307599_JPRB,0.14907201_JPRB,0.14198899_JPRB,0.13169800_JPRB,&
+ & 0.11827300_JPRB,0.10192300_JPRB,0.08321600_JPRB,0.06263490_JPRB,&
+ & 0.04245600_JPRB,0.00460846_JPRB,0.00380836_JPRB,0.00301663_JPRB,&
+ & 0.00221402_JPRB,0.00141167_JPRB,0.00052807_JPRB,0.00007376_JPRB/)  
+FRACREFAO( :, 6) = (/&
+ & 0.15311401_JPRB,0.14915401_JPRB,0.14207301_JPRB,0.13167299_JPRB,&
+ & 0.11819300_JPRB,0.10188900_JPRB,0.08318760_JPRB,0.06261960_JPRB,&
+ & 0.04243890_JPRB,0.00461584_JPRB,0.00380929_JPRB,0.00300815_JPRB,&
+ & 0.00221736_JPRB,0.00140588_JPRB,0.00052776_JPRB,0.00007376_JPRB/)  
+FRACREFAO( :, 7) = (/&
+ & 0.15316001_JPRB,0.14925499_JPRB,0.14213000_JPRB,0.13170999_JPRB,&
+ & 0.11807700_JPRB,0.10181400_JPRB,0.08317400_JPRB,0.06260300_JPRB,&
+ & 0.04242720_JPRB,0.00461520_JPRB,0.00381381_JPRB,0.00301285_JPRB,&
+ & 0.00220275_JPRB,0.00140371_JPRB,0.00052776_JPRB,0.00007376_JPRB/)  
+FRACREFAO( :, 8) = (/&
+ & 0.15321200_JPRB,0.14940999_JPRB,0.14222500_JPRB,0.13164200_JPRB,&
+ & 0.11798200_JPRB,0.10174500_JPRB,0.08317500_JPRB,0.06253640_JPRB,&
+ & 0.04243130_JPRB,0.00461724_JPRB,0.00381534_JPRB,0.00300320_JPRB,&
+ & 0.00220091_JPRB,0.00140364_JPRB,0.00052852_JPRB,0.00007300_JPRB/)  
+FRACREFAO( :, 9) = (/&
+ & 0.15312800_JPRB,0.14973100_JPRB,0.14234400_JPRB,0.13168900_JPRB,&
+ & 0.11795200_JPRB,0.10156100_JPRB,0.08302990_JPRB,0.06252240_JPRB,&
+ & 0.04240980_JPRB,0.00461035_JPRB,0.00381381_JPRB,0.00300176_JPRB,&
+ & 0.00220160_JPRB,0.00140284_JPRB,0.00052774_JPRB,0.00007376_JPRB/)  
+FRACREFAO( :,10) = (/&
+ & 0.15292500_JPRB,0.14978001_JPRB,0.14242400_JPRB,0.13172600_JPRB,&
+ & 0.11798800_JPRB,0.10156400_JPRB,0.08303050_JPRB,0.06251670_JPRB,&
+ & 0.04240970_JPRB,0.00461302_JPRB,0.00381452_JPRB,0.00300250_JPRB,&
+ & 0.00220126_JPRB,0.00140324_JPRB,0.00052850_JPRB,0.00007300_JPRB/)  
+
+FRACREFBO( :, 1) = (/&
+ !     From P = 64.1 mb.
+ & 0.16340201_JPRB,0.15607700_JPRB,0.14601400_JPRB,0.13182700_JPRB,&
+ & 0.11524700_JPRB,0.09666570_JPRB,0.07825360_JPRB,0.05849780_JPRB,&
+ & 0.03949650_JPRB,0.00427980_JPRB,0.00353719_JPRB,0.00279303_JPRB,&
+ & 0.00204788_JPRB,0.00130139_JPRB,0.00049055_JPRB,0.00006904_JPRB/)  
+FRACREFBO( :, 2) = (/&
+ & 0.15762900_JPRB,0.15494700_JPRB,0.14659800_JPRB,0.13267800_JPRB,&
+ & 0.11562700_JPRB,0.09838360_JPRB,0.07930420_JPRB,0.05962700_JPRB,&
+ & 0.04036360_JPRB,0.00438053_JPRB,0.00361463_JPRB,0.00285723_JPRB,&
+ & 0.00208345_JPRB,0.00132135_JPRB,0.00050528_JPRB,0.00008003_JPRB/)  
+FRACREFBO( :, 3) = (/&
+ & 0.15641500_JPRB,0.15394500_JPRB,0.14633600_JPRB,0.13180400_JPRB,&
+ & 0.11617100_JPRB,0.09924170_JPRB,0.08000510_JPRB,0.06021420_JPRB,&
+ & 0.04082730_JPRB,0.00441694_JPRB,0.00365364_JPRB,0.00287723_JPRB,&
+ & 0.00210914_JPRB,0.00135784_JPRB,0.00054651_JPRB,0.00008003_JPRB/)  
+FRACREFBO( :, 4) = (/&
+ & 0.15482700_JPRB,0.15286300_JPRB,0.14392500_JPRB,0.13244100_JPRB,&
+ & 0.11712000_JPRB,0.09994920_JPRB,0.08119200_JPRB,0.06104360_JPRB,&
+ & 0.04135600_JPRB,0.00446685_JPRB,0.00368377_JPRB,0.00290767_JPRB,&
+ & 0.00215445_JPRB,0.00142865_JPRB,0.00056142_JPRB,0.00008003_JPRB/)  
+FRACREFBO( :, 5) = (/&
+ & 0.15975100_JPRB,0.15653500_JPRB,0.14214399_JPRB,0.12892200_JPRB,&
+ & 0.11508400_JPRB,0.09906020_JPRB,0.08087940_JPRB,0.06078190_JPRB,&
+ & 0.04140530_JPRB,0.00452724_JPRB,0.00374558_JPRB,0.00295328_JPRB,&
+ & 0.00218509_JPRB,0.00138644_JPRB,0.00056018_JPRB,0.00008003_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB3:PART38',1,ZHOOK_HANDLE)
+END SUBROUTINE PART38
+
+END SUBROUTINE RRTM_KGB3
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb3.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb3.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb3.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_KGB3
+END SUBROUTINE RRTM_KGB3
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb4.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb4.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb4.F90	(revision 1989)
@@ -0,0 +1,11307 @@
+!OCL SCALAR
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0 
+SUBROUTINE RRTM_KGB4
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 4:  630-700 cm-1 (low - H2O,CO2; high - O3,CO2)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     R. Elkhatib 12-10-2005 Split for faster and more robust compilation.
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO4 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,FRACREFBO
+USE YOERRTA4 , ONLY : STRRAT1   ,STRRAT2
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4',0,ZHOOK_HANDLE)
+
+CALL PART1
+CALL PART2
+CALL PART3
+CALL PART4
+CALL PART5
+CALL PART6
+CALL PART7
+CALL PART8
+CALL PART9
+CALL PART10
+CALL PART11
+CALL PART12
+CALL PART13
+CALL PART14
+CALL PART15
+CALL PART16
+CALL PART17
+CALL PART18
+CALL PART19
+CALL PART20
+CALL PART21
+CALL PART22
+CALL PART23
+CALL PART24
+CALL PART25
+CALL PART26
+CALL PART27
+CALL PART28
+CALL PART29
+CALL PART30
+CALL PART31
+CALL PART32
+CALL PART33
+CALL PART34
+CALL PART35
+CALL PART36
+CALL PART37
+CALL PART38
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4',1,ZHOOK_HANDLE)
+
+!     -----------------------------------------------------------------
+
+CONTAINS
+
+
+SUBROUTINE PART1
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART1',0,ZHOOK_HANDLE)
+
+
+STRRAT1 = 850.577_JPRB
+STRRAT2 = 35.7416_JPRB
+
+!     ------------------------------------------------------------------
+
+!     The array KAO contains absorption coefs for each of the 16 g-intervals
+!     for a range of pressure levels > ~100mb, temperatures, and ratios
+!     of water vapor to CO2.  The first index in the array, JS, runs
+!     from 1 to 9 and corresponds to different water vapor to CO2 ratios,
+!     as expressed through the binary species parameter eta, defined as
+!     eta = h2o/(h20 + (rat) * co2), where rat is the ratio of the integrated
+!     line strength in the band of co2 to that of h2o.  For instance,
+!     JS=1 refers to dry air (eta = 0), JS = 9 corresponds to eta = 1.0.
+!     The 2nd index in the array, JT, which runs from 1 to 5, corresponds 
+!     to different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this pressure 
+!     level, JT = 2 refers to the temperature TREF-15,
+!     JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the reference pressure level (e.g. JP = 1 is for a
+!     pressure of 1053.63 mb).  The fourth index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+
+KAO( :, 1, 1, 1) = (/&
+ & 6.6520E-04_JPRB,9.3651E-04_JPRB,1.4195E-03_JPRB,1.7255E-03_JPRB,1.7636E-03_JPRB,1.9179E-03_JPRB,&
+ & 2.2204E-03_JPRB,6.6521E-04_JPRB,2.9560E-04_JPRB/)  
+KAO( :, 2, 1, 1) = (/&
+ & 7.2624E-04_JPRB,1.0466E-03_JPRB,1.3888E-03_JPRB,1.7096E-03_JPRB,1.7897E-03_JPRB,1.8561E-03_JPRB,&
+ & 2.1300E-03_JPRB,7.2624E-04_JPRB,3.1103E-04_JPRB/)  
+KAO( :, 3, 1, 1) = (/&
+ & 7.8383E-04_JPRB,1.1584E-03_JPRB,1.4071E-03_JPRB,1.6420E-03_JPRB,1.7160E-03_JPRB,1.8518E-03_JPRB,&
+ & 1.8802E-03_JPRB,7.8382E-04_JPRB,3.3914E-04_JPRB/)  
+KAO( :, 4, 1, 1) = (/&
+ & 8.3828E-04_JPRB,1.2570E-03_JPRB,1.4277E-03_JPRB,1.5406E-03_JPRB,1.6601E-03_JPRB,1.7661E-03_JPRB,&
+ & 1.9135E-03_JPRB,8.3828E-04_JPRB,3.4976E-04_JPRB/)  
+KAO( :, 5, 1, 1) = (/&
+ & 8.9042E-04_JPRB,1.3363E-03_JPRB,1.4623E-03_JPRB,1.4949E-03_JPRB,1.5948E-03_JPRB,1.7209E-03_JPRB,&
+ & 1.8800E-03_JPRB,8.9042E-04_JPRB,3.6339E-04_JPRB/)  
+KAO( :, 1, 2, 1) = (/&
+ & 5.6062E-04_JPRB,7.7127E-04_JPRB,1.2084E-03_JPRB,1.4307E-03_JPRB,1.4610E-03_JPRB,1.6052E-03_JPRB,&
+ & 1.8465E-03_JPRB,5.6064E-04_JPRB,2.2622E-04_JPRB/)  
+KAO( :, 2, 2, 1) = (/&
+ & 6.1375E-04_JPRB,8.6380E-04_JPRB,1.1701E-03_JPRB,1.4336E-03_JPRB,1.4895E-03_JPRB,1.5756E-03_JPRB,&
+ & 1.7789E-03_JPRB,6.1375E-04_JPRB,2.4137E-04_JPRB/)  
+KAO( :, 3, 2, 1) = (/&
+ & 6.6443E-04_JPRB,9.5953E-04_JPRB,1.1781E-03_JPRB,1.4158E-03_JPRB,1.4693E-03_JPRB,1.5606E-03_JPRB,&
+ & 1.5694E-03_JPRB,6.6443E-04_JPRB,2.6320E-04_JPRB/)  
+KAO( :, 4, 2, 1) = (/&
+ & 7.1315E-04_JPRB,1.0478E-03_JPRB,1.1975E-03_JPRB,1.3128E-03_JPRB,1.4207E-03_JPRB,1.5299E-03_JPRB,&
+ & 1.6204E-03_JPRB,7.1315E-04_JPRB,2.6697E-04_JPRB/)  
+KAO( :, 5, 2, 1) = (/&
+ & 7.6110E-04_JPRB,1.1196E-03_JPRB,1.2294E-03_JPRB,1.2636E-03_JPRB,1.3416E-03_JPRB,1.4292E-03_JPRB,&
+ & 1.6103E-03_JPRB,7.6110E-04_JPRB,2.8176E-04_JPRB/)  
+KAO( :, 1, 3, 1) = (/&
+ & 4.5610E-04_JPRB,6.1532E-04_JPRB,1.0634E-03_JPRB,1.1828E-03_JPRB,1.2321E-03_JPRB,1.3407E-03_JPRB,&
+ & 1.5585E-03_JPRB,4.5610E-04_JPRB,1.7188E-04_JPRB/)  
+KAO( :, 2, 3, 1) = (/&
+ & 5.0238E-04_JPRB,6.9021E-04_JPRB,9.8179E-04_JPRB,1.2124E-03_JPRB,1.2375E-03_JPRB,1.3359E-03_JPRB,&
+ & 1.5396E-03_JPRB,5.0238E-04_JPRB,1.8492E-04_JPRB/)  
+KAO( :, 3, 3, 1) = (/&
+ & 5.4735E-04_JPRB,7.7249E-04_JPRB,9.8402E-04_JPRB,1.2068E-03_JPRB,1.2546E-03_JPRB,1.2975E-03_JPRB,&
+ & 1.4283E-03_JPRB,5.4735E-04_JPRB,1.9939E-04_JPRB/)  
+KAO( :, 4, 3, 1) = (/&
+ & 5.9112E-04_JPRB,8.5275E-04_JPRB,9.9833E-04_JPRB,1.1432E-03_JPRB,1.2143E-03_JPRB,1.3053E-03_JPRB,&
+ & 1.3316E-03_JPRB,5.9111E-04_JPRB,2.0334E-04_JPRB/)  
+KAO( :, 5, 3, 1) = (/&
+ & 6.3422E-04_JPRB,9.1933E-04_JPRB,1.0199E-03_JPRB,1.0852E-03_JPRB,1.1540E-03_JPRB,1.2145E-03_JPRB,&
+ & 1.3760E-03_JPRB,6.3422E-04_JPRB,2.1583E-04_JPRB/)  
+KAO( :, 1, 4, 1) = (/&
+ & 3.6423E-04_JPRB,4.8714E-04_JPRB,9.4139E-04_JPRB,9.6507E-04_JPRB,9.9104E-04_JPRB,1.0740E-03_JPRB,&
+ & 1.2797E-03_JPRB,3.6423E-04_JPRB,1.3905E-04_JPRB/)  
+KAO( :, 2, 4, 1) = (/&
+ & 4.0448E-04_JPRB,5.4353E-04_JPRB,8.4041E-04_JPRB,9.9900E-04_JPRB,1.0270E-03_JPRB,1.1129E-03_JPRB,&
+ & 1.2594E-03_JPRB,4.0448E-04_JPRB,1.4875E-04_JPRB/)  
+KAO( :, 3, 4, 1) = (/&
+ & 4.4401E-04_JPRB,6.1201E-04_JPRB,8.1748E-04_JPRB,1.0205E-03_JPRB,1.0406E-03_JPRB,1.0943E-03_JPRB,&
+ & 1.2249E-03_JPRB,4.4401E-04_JPRB,1.5559E-04_JPRB/)  
+KAO( :, 4, 4, 1) = (/&
+ & 4.8291E-04_JPRB,6.8107E-04_JPRB,8.2218E-04_JPRB,9.9576E-04_JPRB,1.0515E-03_JPRB,1.1006E-03_JPRB,&
+ & 1.1252E-03_JPRB,4.8291E-04_JPRB,1.6190E-04_JPRB/)  
+KAO( :, 5, 4, 1) = (/&
+ & 5.2123E-04_JPRB,7.4343E-04_JPRB,8.4151E-04_JPRB,9.3019E-04_JPRB,1.0130E-03_JPRB,1.0785E-03_JPRB,&
+ & 1.1439E-03_JPRB,5.2123E-04_JPRB,1.7165E-04_JPRB/)  
+KAO( :, 1, 5, 1) = (/&
+ & 2.8763E-04_JPRB,3.8654E-04_JPRB,7.7838E-04_JPRB,7.8467E-04_JPRB,8.0817E-04_JPRB,8.9938E-04_JPRB,&
+ & 1.0676E-03_JPRB,2.8763E-04_JPRB,1.2485E-04_JPRB/)  
+KAO( :, 2, 5, 1) = (/&
+ & 3.2269E-04_JPRB,4.2830E-04_JPRB,7.4590E-04_JPRB,8.1887E-04_JPRB,8.5674E-04_JPRB,9.1744E-04_JPRB,&
+ & 1.0598E-03_JPRB,3.2269E-04_JPRB,1.2888E-04_JPRB/)  
+KAO( :, 3, 5, 1) = (/&
+ & 3.5710E-04_JPRB,4.8150E-04_JPRB,6.8301E-04_JPRB,8.4014E-04_JPRB,8.5447E-04_JPRB,9.4082E-04_JPRB,&
+ & 1.0595E-03_JPRB,3.5710E-04_JPRB,1.3287E-04_JPRB/)  
+KAO( :, 4, 5, 1) = (/&
+ & 3.9114E-04_JPRB,5.4044E-04_JPRB,6.7913E-04_JPRB,8.5598E-04_JPRB,8.6451E-04_JPRB,8.9768E-04_JPRB,&
+ & 1.0160E-03_JPRB,3.9114E-04_JPRB,1.3801E-04_JPRB/)  
+KAO( :, 5, 5, 1) = (/&
+ & 4.2493E-04_JPRB,5.9616E-04_JPRB,6.9081E-04_JPRB,8.1432E-04_JPRB,8.7086E-04_JPRB,9.0230E-04_JPRB,&
+ & 9.2751E-04_JPRB,4.2493E-04_JPRB,1.4524E-04_JPRB/)  
+KAO( :, 1, 6, 1) = (/&
+ & 2.2397E-04_JPRB,3.0352E-04_JPRB,6.2893E-04_JPRB,6.2633E-04_JPRB,6.5793E-04_JPRB,7.3403E-04_JPRB,&
+ & 8.4350E-04_JPRB,2.2397E-04_JPRB,1.2107E-04_JPRB/)  
+KAO( :, 2, 6, 1) = (/&
+ & 2.5420E-04_JPRB,3.3557E-04_JPRB,6.5797E-04_JPRB,6.6891E-04_JPRB,6.8491E-04_JPRB,7.4023E-04_JPRB,&
+ & 8.5687E-04_JPRB,2.5420E-04_JPRB,1.2280E-04_JPRB/)  
+KAO( :, 3, 6, 1) = (/&
+ & 2.8396E-04_JPRB,3.7655E-04_JPRB,5.9102E-04_JPRB,6.9033E-04_JPRB,7.1783E-04_JPRB,7.6667E-04_JPRB,&
+ & 8.6376E-04_JPRB,2.8396E-04_JPRB,1.2577E-04_JPRB/)  
+KAO( :, 4, 6, 1) = (/&
+ & 3.1350E-04_JPRB,4.2404E-04_JPRB,5.6109E-04_JPRB,7.1632E-04_JPRB,7.2169E-04_JPRB,7.5902E-04_JPRB,&
+ & 8.5063E-04_JPRB,3.1350E-04_JPRB,1.3038E-04_JPRB/)  
+KAO( :, 5, 6, 1) = (/&
+ & 3.4283E-04_JPRB,4.7259E-04_JPRB,5.6315E-04_JPRB,6.9669E-04_JPRB,7.3767E-04_JPRB,7.6266E-04_JPRB,&
+ & 8.1179E-04_JPRB,3.4283E-04_JPRB,1.3594E-04_JPRB/)  
+KAO( :, 1, 7, 1) = (/&
+ & 1.7269E-04_JPRB,2.3971E-04_JPRB,5.0297E-04_JPRB,4.9860E-04_JPRB,5.2471E-04_JPRB,5.7932E-04_JPRB,&
+ & 6.8439E-04_JPRB,1.7269E-04_JPRB,1.2386E-04_JPRB/)  
+KAO( :, 2, 7, 1) = (/&
+ & 1.9843E-04_JPRB,2.6259E-04_JPRB,5.3532E-04_JPRB,5.3729E-04_JPRB,5.5606E-04_JPRB,6.0939E-04_JPRB,&
+ & 7.1230E-04_JPRB,1.9843E-04_JPRB,1.2615E-04_JPRB/)  
+KAO( :, 3, 7, 1) = (/&
+ & 2.2393E-04_JPRB,2.9362E-04_JPRB,5.3350E-04_JPRB,5.6384E-04_JPRB,5.8750E-04_JPRB,6.2580E-04_JPRB,&
+ & 7.2255E-04_JPRB,2.2393E-04_JPRB,1.3021E-04_JPRB/)  
+KAO( :, 4, 7, 1) = (/&
+ & 2.4925E-04_JPRB,3.3156E-04_JPRB,4.6934E-04_JPRB,5.8250E-04_JPRB,5.9359E-04_JPRB,6.5453E-04_JPRB,&
+ & 7.2305E-04_JPRB,2.4925E-04_JPRB,1.3523E-04_JPRB/)  
+KAO( :, 5, 7, 1) = (/&
+ & 2.7472E-04_JPRB,3.7184E-04_JPRB,4.6283E-04_JPRB,5.9977E-04_JPRB,6.0303E-04_JPRB,6.2094E-04_JPRB,&
+ & 7.0629E-04_JPRB,2.7472E-04_JPRB,1.4126E-04_JPRB/)  
+KAO( :, 1, 8, 1) = (/&
+ & 1.3221E-04_JPRB,1.9199E-04_JPRB,3.9770E-04_JPRB,3.9939E-04_JPRB,4.1807E-04_JPRB,4.5731E-04_JPRB,&
+ & 5.2988E-04_JPRB,1.3221E-04_JPRB,1.4509E-04_JPRB/)  
+KAO( :, 2, 8, 1) = (/&
+ & 1.5393E-04_JPRB,2.0559E-04_JPRB,4.3250E-04_JPRB,4.2908E-04_JPRB,4.4968E-04_JPRB,4.9581E-04_JPRB,&
+ & 5.6885E-04_JPRB,1.5393E-04_JPRB,1.5038E-04_JPRB/)  
+KAO( :, 3, 8, 1) = (/&
+ & 1.7558E-04_JPRB,2.2912E-04_JPRB,4.5525E-04_JPRB,4.5996E-04_JPRB,4.7140E-04_JPRB,5.1385E-04_JPRB,&
+ & 5.9033E-04_JPRB,1.7558E-04_JPRB,1.5764E-04_JPRB/)  
+KAO( :, 4, 8, 1) = (/&
+ & 1.9711E-04_JPRB,2.5824E-04_JPRB,4.0990E-04_JPRB,4.7600E-04_JPRB,4.9383E-04_JPRB,5.2727E-04_JPRB,&
+ & 5.9173E-04_JPRB,1.9711E-04_JPRB,1.6674E-04_JPRB/)  
+KAO( :, 5, 8, 1) = (/&
+ & 2.1892E-04_JPRB,2.9157E-04_JPRB,3.8268E-04_JPRB,4.9451E-04_JPRB,4.9883E-04_JPRB,5.2700E-04_JPRB,&
+ & 5.9438E-04_JPRB,2.1892E-04_JPRB,1.7746E-04_JPRB/)  
+KAO( :, 1, 9, 1) = (/&
+ & 1.0035E-04_JPRB,1.5952E-04_JPRB,3.1293E-04_JPRB,3.1348E-04_JPRB,3.2666E-04_JPRB,3.7028E-04_JPRB,&
+ & 4.1425E-04_JPRB,1.0035E-04_JPRB,2.6669E-04_JPRB/)  
+KAO( :, 2, 9, 1) = (/&
+ & 1.1858E-04_JPRB,1.6346E-04_JPRB,3.4529E-04_JPRB,3.4165E-04_JPRB,3.5657E-04_JPRB,3.9289E-04_JPRB,&
+ & 4.5949E-04_JPRB,1.1858E-04_JPRB,2.9076E-04_JPRB/)  
+KAO( :, 3, 9, 1) = (/&
+ & 1.3693E-04_JPRB,1.7866E-04_JPRB,3.6700E-04_JPRB,3.7083E-04_JPRB,3.8336E-04_JPRB,4.1668E-04_JPRB,&
+ & 4.8180E-04_JPRB,1.3693E-04_JPRB,3.1567E-04_JPRB/)  
+KAO( :, 4, 9, 1) = (/&
+ & 1.5518E-04_JPRB,2.0111E-04_JPRB,3.6635E-04_JPRB,3.8855E-04_JPRB,4.0471E-04_JPRB,4.3043E-04_JPRB,&
+ & 4.9285E-04_JPRB,1.5518E-04_JPRB,3.4209E-04_JPRB/)  
+KAO( :, 5, 9, 1) = (/&
+ & 1.7362E-04_JPRB,2.2754E-04_JPRB,3.2201E-04_JPRB,4.0291E-04_JPRB,4.1258E-04_JPRB,4.4913E-04_JPRB,&
+ & 4.9613E-04_JPRB,1.7362E-04_JPRB,3.6921E-04_JPRB/)  
+KAO( :, 1,10, 1) = (/&
+ & 7.6756E-05_JPRB,1.3962E-04_JPRB,2.4767E-04_JPRB,2.4912E-04_JPRB,2.5968E-04_JPRB,2.8653E-04_JPRB,&
+ & 3.2992E-04_JPRB,7.6756E-05_JPRB,9.2332E-04_JPRB/)  
+KAO( :, 2,10, 1) = (/&
+ & 9.1972E-05_JPRB,1.3177E-04_JPRB,2.7498E-04_JPRB,2.7460E-04_JPRB,2.8768E-04_JPRB,3.1486E-04_JPRB,&
+ & 3.6117E-04_JPRB,9.1972E-05_JPRB,1.0290E-03_JPRB/)  
+KAO( :, 3,10, 1) = (/&
+ & 1.0747E-04_JPRB,1.4129E-04_JPRB,2.9762E-04_JPRB,2.9728E-04_JPRB,3.1080E-04_JPRB,3.3927E-04_JPRB,&
+ & 3.8542E-04_JPRB,1.0747E-04_JPRB,1.1258E-03_JPRB/)  
+KAO( :, 4,10, 1) = (/&
+ & 1.2295E-04_JPRB,1.5843E-04_JPRB,3.0850E-04_JPRB,3.1535E-04_JPRB,3.2529E-04_JPRB,3.5387E-04_JPRB,&
+ & 4.0422E-04_JPRB,1.2295E-04_JPRB,1.2119E-03_JPRB/)  
+KAO( :, 5,10, 1) = (/&
+ & 1.3850E-04_JPRB,1.7919E-04_JPRB,2.7969E-04_JPRB,3.2918E-04_JPRB,3.4141E-04_JPRB,3.6383E-04_JPRB,&
+ & 4.0592E-04_JPRB,1.3850E-04_JPRB,1.2885E-03_JPRB/)  
+KAO( :, 1,11, 1) = (/&
+ & 6.4262E-05_JPRB,1.1488E-04_JPRB,2.0652E-04_JPRB,2.0693E-04_JPRB,2.1515E-04_JPRB,2.3759E-04_JPRB,&
+ & 2.7074E-04_JPRB,6.4262E-05_JPRB,1.7436E-03_JPRB/)  
+KAO( :, 2,11, 1) = (/&
+ & 7.7063E-05_JPRB,1.0910E-04_JPRB,2.2893E-04_JPRB,2.2837E-04_JPRB,2.3880E-04_JPRB,2.5987E-04_JPRB,&
+ & 3.0065E-04_JPRB,7.7062E-05_JPRB,1.9352E-03_JPRB/)  
+KAO( :, 3,11, 1) = (/&
+ & 9.0126E-05_JPRB,1.1759E-04_JPRB,2.4677E-04_JPRB,2.4752E-04_JPRB,2.5932E-04_JPRB,2.8168E-04_JPRB,&
+ & 3.2064E-04_JPRB,9.0126E-05_JPRB,2.1015E-03_JPRB/)  
+KAO( :, 4,11, 1) = (/&
+ & 1.0318E-04_JPRB,1.3204E-04_JPRB,2.5349E-04_JPRB,2.6117E-04_JPRB,2.7047E-04_JPRB,2.9445E-04_JPRB,&
+ & 3.3354E-04_JPRB,1.0318E-04_JPRB,2.2375E-03_JPRB/)  
+KAO( :, 5,11, 1) = (/&
+ & 1.1625E-04_JPRB,1.4979E-04_JPRB,2.3047E-04_JPRB,2.7288E-04_JPRB,2.8316E-04_JPRB,3.0222E-04_JPRB,&
+ & 3.3717E-04_JPRB,1.1625E-04_JPRB,2.3499E-03_JPRB/)  
+KAO( :, 1,12, 1) = (/&
+ & 5.3838E-05_JPRB,9.4472E-05_JPRB,1.7221E-04_JPRB,1.7229E-04_JPRB,1.7912E-04_JPRB,1.9811E-04_JPRB,&
+ & 2.2298E-04_JPRB,5.3838E-05_JPRB,2.2190E-03_JPRB/)  
+KAO( :, 2,12, 1) = (/&
+ & 6.4583E-05_JPRB,9.0416E-05_JPRB,1.9070E-04_JPRB,1.8997E-04_JPRB,1.9851E-04_JPRB,2.1621E-04_JPRB,&
+ & 2.4883E-04_JPRB,6.4583E-05_JPRB,2.4508E-03_JPRB/)  
+KAO( :, 3,12, 1) = (/&
+ & 7.5579E-05_JPRB,9.8146E-05_JPRB,2.0479E-04_JPRB,2.0556E-04_JPRB,2.1508E-04_JPRB,2.3475E-04_JPRB,&
+ & 2.6564E-04_JPRB,7.5579E-05_JPRB,2.6460E-03_JPRB/)  
+KAO( :, 4,12, 1) = (/&
+ & 8.6531E-05_JPRB,1.1008E-04_JPRB,2.0887E-04_JPRB,2.1630E-04_JPRB,2.2430E-04_JPRB,2.4416E-04_JPRB,&
+ & 2.7688E-04_JPRB,8.6531E-05_JPRB,2.8013E-03_JPRB/)  
+KAO( :, 5,12, 1) = (/&
+ & 9.7427E-05_JPRB,1.2490E-04_JPRB,1.8859E-04_JPRB,2.2596E-04_JPRB,2.3336E-04_JPRB,2.5057E-04_JPRB,&
+ & 2.7888E-04_JPRB,9.7427E-05_JPRB,2.9236E-03_JPRB/)  
+KAO( :, 1,13, 1) = (/&
+ & 4.5099E-05_JPRB,7.7513E-05_JPRB,1.4325E-04_JPRB,1.4387E-04_JPRB,1.4900E-04_JPRB,1.6404E-04_JPRB,&
+ & 1.8470E-04_JPRB,4.5100E-05_JPRB,2.3136E-03_JPRB/)  
+KAO( :, 2,13, 1) = (/&
+ & 5.4137E-05_JPRB,7.5163E-05_JPRB,1.5870E-04_JPRB,1.5797E-04_JPRB,1.6505E-04_JPRB,1.7934E-04_JPRB,&
+ & 2.0687E-04_JPRB,5.4137E-05_JPRB,2.5403E-03_JPRB/)  
+KAO( :, 3,13, 1) = (/&
+ & 6.3329E-05_JPRB,8.1727E-05_JPRB,1.6965E-04_JPRB,1.7063E-04_JPRB,1.7871E-04_JPRB,1.9512E-04_JPRB,&
+ & 2.2035E-04_JPRB,6.3329E-05_JPRB,2.7282E-03_JPRB/)  
+KAO( :, 4,13, 1) = (/&
+ & 7.2450E-05_JPRB,9.1778E-05_JPRB,1.7219E-04_JPRB,1.7914E-04_JPRB,1.8635E-04_JPRB,2.0203E-04_JPRB,&
+ & 2.2943E-04_JPRB,7.2450E-05_JPRB,2.8788E-03_JPRB/)  
+KAO( :, 5,13, 1) = (/&
+ & 8.1530E-05_JPRB,1.0397E-04_JPRB,1.5476E-04_JPRB,1.8739E-04_JPRB,1.9322E-04_JPRB,2.0819E-04_JPRB,&
+ & 2.3071E-04_JPRB,8.1530E-05_JPRB,2.9950E-03_JPRB/)  
+KAO( :, 1, 1, 2) = (/&
+ & 1.5260E-03_JPRB,1.7595E-03_JPRB,1.6480E-03_JPRB,2.2258E-03_JPRB,2.8344E-03_JPRB,3.1469E-03_JPRB,&
+ & 3.6918E-03_JPRB,1.5260E-03_JPRB,4.9914E-04_JPRB/)  
+KAO( :, 2, 1, 2) = (/&
+ & 1.5826E-03_JPRB,1.8212E-03_JPRB,1.7561E-03_JPRB,1.9980E-03_JPRB,2.4681E-03_JPRB,2.9684E-03_JPRB,&
+ & 3.2872E-03_JPRB,1.5826E-03_JPRB,4.6415E-04_JPRB/)  
+KAO( :, 3, 1, 2) = (/&
+ & 1.6227E-03_JPRB,1.8571E-03_JPRB,1.8350E-03_JPRB,1.9032E-03_JPRB,2.3046E-03_JPRB,2.7220E-03_JPRB,&
+ & 3.3030E-03_JPRB,1.6227E-03_JPRB,4.6231E-04_JPRB/)  
+KAO( :, 4, 1, 2) = (/&
+ & 1.6627E-03_JPRB,1.9016E-03_JPRB,1.9450E-03_JPRB,1.9945E-03_JPRB,2.2414E-03_JPRB,2.5327E-03_JPRB,&
+ & 2.8363E-03_JPRB,1.6627E-03_JPRB,4.9516E-04_JPRB/)  
+KAO( :, 5, 1, 2) = (/&
+ & 1.6942E-03_JPRB,1.9567E-03_JPRB,2.0282E-03_JPRB,2.1178E-03_JPRB,2.1837E-03_JPRB,2.3289E-03_JPRB,&
+ & 2.6951E-03_JPRB,1.6942E-03_JPRB,5.5604E-04_JPRB/)  
+KAO( :, 1, 2, 2) = (/&
+ & 1.2957E-03_JPRB,1.4736E-03_JPRB,1.3696E-03_JPRB,1.9219E-03_JPRB,2.4448E-03_JPRB,2.7185E-03_JPRB,&
+ & 3.0973E-03_JPRB,1.2957E-03_JPRB,3.5777E-04_JPRB/)  
+KAO( :, 2, 2, 2) = (/&
+ & 1.3520E-03_JPRB,1.5352E-03_JPRB,1.4594E-03_JPRB,1.7363E-03_JPRB,2.1608E-03_JPRB,2.5931E-03_JPRB,&
+ & 2.9477E-03_JPRB,1.3520E-03_JPRB,3.5334E-04_JPRB/)  
+KAO( :, 3, 2, 2) = (/&
+ & 1.3955E-03_JPRB,1.5728E-03_JPRB,1.5388E-03_JPRB,1.5910E-03_JPRB,1.9652E-03_JPRB,2.3965E-03_JPRB,&
+ & 2.8214E-03_JPRB,1.3955E-03_JPRB,3.5208E-04_JPRB/)  
+KAO( :, 4, 2, 2) = (/&
+ & 1.4306E-03_JPRB,1.6119E-03_JPRB,1.6289E-03_JPRB,1.6668E-03_JPRB,1.8749E-03_JPRB,2.1515E-03_JPRB,&
+ & 2.5798E-03_JPRB,1.4306E-03_JPRB,3.8903E-04_JPRB/)  
+KAO( :, 5, 2, 2) = (/&
+ & 1.4618E-03_JPRB,1.6648E-03_JPRB,1.7112E-03_JPRB,1.7696E-03_JPRB,1.8658E-03_JPRB,2.0390E-03_JPRB,&
+ & 2.2630E-03_JPRB,1.4618E-03_JPRB,4.3501E-04_JPRB/)  
+KAO( :, 1, 3, 2) = (/&
+ & 1.0941E-03_JPRB,1.2249E-03_JPRB,1.1110E-03_JPRB,1.6978E-03_JPRB,2.0757E-03_JPRB,2.3977E-03_JPRB,&
+ & 2.5385E-03_JPRB,1.0941E-03_JPRB,2.5435E-04_JPRB/)  
+KAO( :, 2, 3, 2) = (/&
+ & 1.1496E-03_JPRB,1.2893E-03_JPRB,1.2094E-03_JPRB,1.5400E-03_JPRB,1.9037E-03_JPRB,2.2282E-03_JPRB,&
+ & 2.6108E-03_JPRB,1.1496E-03_JPRB,2.5844E-04_JPRB/)  
+KAO( :, 3, 3, 2) = (/&
+ & 1.1926E-03_JPRB,1.3278E-03_JPRB,1.2717E-03_JPRB,1.3590E-03_JPRB,1.7088E-03_JPRB,2.1812E-03_JPRB,&
+ & 2.3392E-03_JPRB,1.1926E-03_JPRB,2.6804E-04_JPRB/)  
+KAO( :, 4, 3, 2) = (/&
+ & 1.2267E-03_JPRB,1.3589E-03_JPRB,1.3473E-03_JPRB,1.3690E-03_JPRB,1.6042E-03_JPRB,1.9290E-03_JPRB,&
+ & 2.3507E-03_JPRB,1.2267E-03_JPRB,3.0065E-04_JPRB/)  
+KAO( :, 5, 3, 2) = (/&
+ & 1.2554E-03_JPRB,1.4034E-03_JPRB,1.4269E-03_JPRB,1.4462E-03_JPRB,1.5803E-03_JPRB,1.7891E-03_JPRB,&
+ & 1.9934E-03_JPRB,1.2554E-03_JPRB,3.3529E-04_JPRB/)  
+KAO( :, 1, 4, 2) = (/&
+ & 9.2228E-04_JPRB,1.0144E-03_JPRB,8.9155E-04_JPRB,1.5523E-03_JPRB,1.8182E-03_JPRB,2.0790E-03_JPRB,&
+ & 2.1019E-03_JPRB,9.2229E-04_JPRB,1.9739E-04_JPRB/)  
+KAO( :, 2, 4, 2) = (/&
+ & 9.7173E-04_JPRB,1.0764E-03_JPRB,9.9094E-04_JPRB,1.3563E-03_JPRB,1.7130E-03_JPRB,1.9182E-03_JPRB,&
+ & 2.1666E-03_JPRB,9.7173E-04_JPRB,1.9900E-04_JPRB/)  
+KAO( :, 3, 4, 2) = (/&
+ & 1.0138E-03_JPRB,1.1151E-03_JPRB,1.0445E-03_JPRB,1.2251E-03_JPRB,1.5369E-03_JPRB,1.8521E-03_JPRB,&
+ & 2.1013E-03_JPRB,1.0138E-03_JPRB,2.1276E-04_JPRB/)  
+KAO( :, 4, 4, 2) = (/&
+ & 1.0473E-03_JPRB,1.1460E-03_JPRB,1.1161E-03_JPRB,1.1284E-03_JPRB,1.3578E-03_JPRB,1.6754E-03_JPRB,&
+ & 2.0077E-03_JPRB,1.0473E-03_JPRB,2.3595E-04_JPRB/)  
+KAO( :, 5, 4, 2) = (/&
+ & 1.0726E-03_JPRB,1.1805E-03_JPRB,1.1814E-03_JPRB,1.1848E-03_JPRB,1.3479E-03_JPRB,1.5615E-03_JPRB,&
+ & 1.8994E-03_JPRB,1.0726E-03_JPRB,2.6165E-04_JPRB/)  
+KAO( :, 1, 5, 2) = (/&
+ & 7.6690E-04_JPRB,8.2765E-04_JPRB,7.8062E-04_JPRB,1.3867E-03_JPRB,1.5867E-03_JPRB,1.6936E-03_JPRB,&
+ & 1.7521E-03_JPRB,7.6690E-04_JPRB,1.6280E-04_JPRB/)  
+KAO( :, 2, 5, 2) = (/&
+ & 8.1285E-04_JPRB,8.8774E-04_JPRB,7.8341E-04_JPRB,1.1988E-03_JPRB,1.4770E-03_JPRB,1.6719E-03_JPRB,&
+ & 1.7693E-03_JPRB,8.1285E-04_JPRB,1.6768E-04_JPRB/)  
+KAO( :, 3, 5, 2) = (/&
+ & 8.5183E-04_JPRB,9.2930E-04_JPRB,8.6098E-04_JPRB,1.1035E-03_JPRB,1.3517E-03_JPRB,1.5871E-03_JPRB,&
+ & 1.8468E-03_JPRB,8.5182E-04_JPRB,1.7918E-04_JPRB/)  
+KAO( :, 4, 5, 2) = (/&
+ & 8.8381E-04_JPRB,9.6005E-04_JPRB,9.1547E-04_JPRB,9.4610E-04_JPRB,1.2396E-03_JPRB,1.5757E-03_JPRB,&
+ & 1.6719E-03_JPRB,8.8381E-04_JPRB,1.9528E-04_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART1',1,ZHOOK_HANDLE)
+END SUBROUTINE PART1
+
+
+SUBROUTINE PART2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART2',0,ZHOOK_HANDLE)
+
+
+KAO( :, 5, 5, 2) = (/&
+ & 9.0780E-04_JPRB,9.9038E-04_JPRB,9.7867E-04_JPRB,9.6385E-04_JPRB,1.1363E-03_JPRB,1.3750E-03_JPRB,&
+ & 1.6759E-03_JPRB,9.0780E-04_JPRB,2.1430E-04_JPRB/)  
+KAO( :, 1, 6, 2) = (/&
+ & 6.2795E-04_JPRB,6.6838E-04_JPRB,7.3561E-04_JPRB,1.2263E-03_JPRB,1.3683E-03_JPRB,1.4046E-03_JPRB,&
+ & 1.5094E-03_JPRB,6.2795E-04_JPRB,1.5216E-04_JPRB/)  
+KAO( :, 2, 6, 2) = (/&
+ & 6.7183E-04_JPRB,7.2288E-04_JPRB,6.1801E-04_JPRB,1.0919E-03_JPRB,1.2712E-03_JPRB,1.4757E-03_JPRB,&
+ & 1.4814E-03_JPRB,6.7183E-04_JPRB,1.5894E-04_JPRB/)  
+KAO( :, 3, 6, 2) = (/&
+ & 7.0773E-04_JPRB,7.6513E-04_JPRB,6.8912E-04_JPRB,9.6974E-04_JPRB,1.1945E-03_JPRB,1.3671E-03_JPRB,&
+ & 1.5170E-03_JPRB,7.0773E-04_JPRB,1.6897E-04_JPRB/)  
+KAO( :, 4, 6, 2) = (/&
+ & 7.3816E-04_JPRB,7.9782E-04_JPRB,7.4473E-04_JPRB,8.7065E-04_JPRB,1.1028E-03_JPRB,1.3310E-03_JPRB,&
+ & 1.4982E-03_JPRB,7.3816E-04_JPRB,1.8083E-04_JPRB/)  
+KAO( :, 5, 6, 2) = (/&
+ & 7.6173E-04_JPRB,8.2557E-04_JPRB,8.0696E-04_JPRB,7.9653E-04_JPRB,9.7171E-04_JPRB,1.2001E-03_JPRB,&
+ & 1.4350E-03_JPRB,7.6173E-04_JPRB,1.9544E-04_JPRB/)  
+KAO( :, 1, 7, 2) = (/&
+ & 5.0891E-04_JPRB,5.3280E-04_JPRB,7.2820E-04_JPRB,1.0600E-03_JPRB,1.1897E-03_JPRB,1.2028E-03_JPRB,&
+ & 1.2645E-03_JPRB,5.0891E-04_JPRB,1.6819E-04_JPRB/)  
+KAO( :, 2, 7, 2) = (/&
+ & 5.5019E-04_JPRB,5.8559E-04_JPRB,5.5050E-04_JPRB,9.8189E-04_JPRB,1.1133E-03_JPRB,1.1994E-03_JPRB,&
+ & 1.2177E-03_JPRB,5.5019E-04_JPRB,1.7740E-04_JPRB/)  
+KAO( :, 3, 7, 2) = (/&
+ & 5.8438E-04_JPRB,6.2588E-04_JPRB,5.2192E-04_JPRB,8.6875E-04_JPRB,1.0399E-03_JPRB,1.1761E-03_JPRB,&
+ & 1.2214E-03_JPRB,5.8438E-04_JPRB,1.8897E-04_JPRB/)  
+KAO( :, 4, 7, 2) = (/&
+ & 6.1239E-04_JPRB,6.5682E-04_JPRB,6.0713E-04_JPRB,7.7808E-04_JPRB,9.7331E-04_JPRB,1.1140E-03_JPRB,&
+ & 1.3014E-03_JPRB,6.1239E-04_JPRB,2.0290E-04_JPRB/)  
+KAO( :, 5, 7, 2) = (/&
+ & 6.3467E-04_JPRB,6.8419E-04_JPRB,6.5295E-04_JPRB,6.7554E-04_JPRB,8.8119E-04_JPRB,1.1133E-03_JPRB,&
+ & 1.2053E-03_JPRB,6.3467E-04_JPRB,2.1872E-04_JPRB/)  
+KAO( :, 1, 8, 2) = (/&
+ & 4.0935E-04_JPRB,4.1885E-04_JPRB,6.7101E-04_JPRB,9.1256E-04_JPRB,1.0194E-03_JPRB,1.0135E-03_JPRB,&
+ & 1.0819E-03_JPRB,4.0935E-04_JPRB,2.1824E-04_JPRB/)  
+KAO( :, 2, 8, 2) = (/&
+ & 4.4692E-04_JPRB,4.7118E-04_JPRB,5.1659E-04_JPRB,8.5913E-04_JPRB,9.6357E-04_JPRB,9.8846E-04_JPRB,&
+ & 1.0429E-03_JPRB,4.4692E-04_JPRB,2.3690E-04_JPRB/)  
+KAO( :, 3, 8, 2) = (/&
+ & 4.7903E-04_JPRB,5.0921E-04_JPRB,4.2513E-04_JPRB,7.7866E-04_JPRB,8.9423E-04_JPRB,1.0205E-03_JPRB,&
+ & 1.0213E-03_JPRB,4.7903E-04_JPRB,2.5819E-04_JPRB/)  
+KAO( :, 4, 8, 2) = (/&
+ & 5.0519E-04_JPRB,5.3873E-04_JPRB,4.7470E-04_JPRB,6.8242E-04_JPRB,8.4925E-04_JPRB,9.6082E-04_JPRB,&
+ & 1.0565E-03_JPRB,5.0519E-04_JPRB,2.8169E-04_JPRB/)  
+KAO( :, 5, 8, 2) = (/&
+ & 5.2646E-04_JPRB,5.6355E-04_JPRB,5.3173E-04_JPRB,6.2134E-04_JPRB,7.8503E-04_JPRB,9.3706E-04_JPRB,&
+ & 1.0322E-03_JPRB,5.2647E-04_JPRB,3.0574E-04_JPRB/)  
+KAO( :, 1, 9, 2) = (/&
+ & 3.2639E-04_JPRB,3.2062E-04_JPRB,6.1707E-04_JPRB,7.9540E-04_JPRB,8.4564E-04_JPRB,8.5817E-04_JPRB,&
+ & 9.0723E-04_JPRB,3.2639E-04_JPRB,5.5545E-04_JPRB/)  
+KAO( :, 2, 9, 2) = (/&
+ & 3.6012E-04_JPRB,3.7319E-04_JPRB,5.0226E-04_JPRB,7.4254E-04_JPRB,8.4023E-04_JPRB,8.3301E-04_JPRB,&
+ & 8.5728E-04_JPRB,3.6012E-04_JPRB,6.1165E-04_JPRB/)  
+KAO( :, 3, 9, 2) = (/&
+ & 3.8987E-04_JPRB,4.1225E-04_JPRB,3.7907E-04_JPRB,6.8530E-04_JPRB,7.7881E-04_JPRB,8.3778E-04_JPRB,&
+ & 8.4817E-04_JPRB,3.8987E-04_JPRB,6.6653E-04_JPRB/)  
+KAO( :, 4, 9, 2) = (/&
+ & 4.1424E-04_JPRB,4.3910E-04_JPRB,3.6051E-04_JPRB,6.1000E-04_JPRB,7.2902E-04_JPRB,8.1999E-04_JPRB,&
+ & 8.4396E-04_JPRB,4.1424E-04_JPRB,7.1819E-04_JPRB/)  
+KAO( :, 5, 9, 2) = (/&
+ & 4.3431E-04_JPRB,4.6239E-04_JPRB,4.2288E-04_JPRB,5.4880E-04_JPRB,6.8867E-04_JPRB,7.7866E-04_JPRB,&
+ & 8.9097E-04_JPRB,4.3431E-04_JPRB,7.7202E-04_JPRB/)  
+KAO( :, 1,10, 2) = (/&
+ & 2.6062E-04_JPRB,2.4097E-04_JPRB,5.6760E-04_JPRB,6.7838E-04_JPRB,7.0839E-04_JPRB,7.4582E-04_JPRB,&
+ & 7.5583E-04_JPRB,2.6062E-04_JPRB,2.5277E-03_JPRB/)  
+KAO( :, 2,10, 2) = (/&
+ & 2.9023E-04_JPRB,2.9545E-04_JPRB,4.5173E-04_JPRB,6.2994E-04_JPRB,7.1727E-04_JPRB,7.0001E-04_JPRB,&
+ & 7.3420E-04_JPRB,2.9022E-04_JPRB,2.7784E-03_JPRB/)  
+KAO( :, 3,10, 2) = (/&
+ & 3.1702E-04_JPRB,3.3294E-04_JPRB,3.4527E-04_JPRB,5.9793E-04_JPRB,6.6774E-04_JPRB,6.9352E-04_JPRB,&
+ & 7.1312E-04_JPRB,3.1702E-04_JPRB,3.0145E-03_JPRB/)  
+KAO( :, 4,10, 2) = (/&
+ & 3.3919E-04_JPRB,3.5815E-04_JPRB,2.9459E-04_JPRB,5.3609E-04_JPRB,6.2952E-04_JPRB,7.0029E-04_JPRB,&
+ & 6.9972E-04_JPRB,3.3919E-04_JPRB,3.2222E-03_JPRB/)  
+KAO( :, 5,10, 2) = (/&
+ & 3.5768E-04_JPRB,3.7923E-04_JPRB,3.2874E-04_JPRB,4.7549E-04_JPRB,5.9483E-04_JPRB,6.7311E-04_JPRB,&
+ & 7.3613E-04_JPRB,3.5768E-04_JPRB,3.4035E-03_JPRB/)  
+KAO( :, 1,11, 2) = (/&
+ & 2.1907E-04_JPRB,2.0328E-04_JPRB,4.6419E-04_JPRB,5.6297E-04_JPRB,5.8907E-04_JPRB,6.1155E-04_JPRB,&
+ & 6.1013E-04_JPRB,2.1907E-04_JPRB,5.1242E-03_JPRB/)  
+KAO( :, 2,11, 2) = (/&
+ & 2.4410E-04_JPRB,2.4843E-04_JPRB,3.7130E-04_JPRB,5.2284E-04_JPRB,5.9762E-04_JPRB,5.8585E-04_JPRB,&
+ & 6.0135E-04_JPRB,2.4411E-04_JPRB,5.5864E-03_JPRB/)  
+KAO( :, 3,11, 2) = (/&
+ & 2.6625E-04_JPRB,2.7930E-04_JPRB,2.8189E-04_JPRB,4.9405E-04_JPRB,5.5402E-04_JPRB,5.7720E-04_JPRB,&
+ & 5.8571E-04_JPRB,2.6625E-04_JPRB,6.0066E-03_JPRB/)  
+KAO( :, 4,11, 2) = (/&
+ & 2.8487E-04_JPRB,3.0018E-04_JPRB,2.4472E-04_JPRB,4.4200E-04_JPRB,5.2652E-04_JPRB,5.8248E-04_JPRB,&
+ & 5.7961E-04_JPRB,2.8487E-04_JPRB,6.3763E-03_JPRB/)  
+KAO( :, 5,11, 2) = (/&
+ & 3.0010E-04_JPRB,3.1719E-04_JPRB,2.7311E-04_JPRB,3.9201E-04_JPRB,4.9427E-04_JPRB,5.6306E-04_JPRB,&
+ & 6.1631E-04_JPRB,3.0010E-04_JPRB,6.6804E-03_JPRB/)  
+KAO( :, 1,12, 2) = (/&
+ & 1.8394E-04_JPRB,1.7118E-04_JPRB,3.7730E-04_JPRB,4.6792E-04_JPRB,4.8975E-04_JPRB,4.9917E-04_JPRB,&
+ & 5.0397E-04_JPRB,1.8394E-04_JPRB,6.7953E-03_JPRB/)  
+KAO( :, 2,12, 2) = (/&
+ & 2.0488E-04_JPRB,2.0891E-04_JPRB,3.0355E-04_JPRB,4.3536E-04_JPRB,4.9195E-04_JPRB,4.8369E-04_JPRB,&
+ & 4.9615E-04_JPRB,2.0488E-04_JPRB,7.3722E-03_JPRB/)  
+KAO( :, 3,12, 2) = (/&
+ & 2.2338E-04_JPRB,2.3370E-04_JPRB,2.2853E-04_JPRB,4.0848E-04_JPRB,4.6057E-04_JPRB,4.8139E-04_JPRB,&
+ & 4.8293E-04_JPRB,2.2338E-04_JPRB,7.8888E-03_JPRB/)  
+KAO( :, 4,12, 2) = (/&
+ & 2.3905E-04_JPRB,2.5126E-04_JPRB,2.0156E-04_JPRB,3.6557E-04_JPRB,4.3992E-04_JPRB,4.8195E-04_JPRB,&
+ & 4.8526E-04_JPRB,2.3905E-04_JPRB,8.3181E-03_JPRB/)  
+KAO( :, 5,12, 2) = (/&
+ & 2.5129E-04_JPRB,2.6467E-04_JPRB,2.2905E-04_JPRB,3.2273E-04_JPRB,4.1230E-04_JPRB,4.6630E-04_JPRB,&
+ & 5.1248E-04_JPRB,2.5129E-04_JPRB,8.6386E-03_JPRB/)  
+KAO( :, 1,13, 2) = (/&
+ & 1.5430E-04_JPRB,1.4442E-04_JPRB,3.0805E-04_JPRB,3.8950E-04_JPRB,4.0767E-04_JPRB,4.1179E-04_JPRB,&
+ & 4.1330E-04_JPRB,1.5430E-04_JPRB,7.3053E-03_JPRB/)  
+KAO( :, 2,13, 2) = (/&
+ & 1.7179E-04_JPRB,1.7510E-04_JPRB,2.4818E-04_JPRB,3.6198E-04_JPRB,4.0625E-04_JPRB,3.9974E-04_JPRB,&
+ & 4.1166E-04_JPRB,1.7179E-04_JPRB,7.9022E-03_JPRB/)  
+KAO( :, 3,13, 2) = (/&
+ & 1.8741E-04_JPRB,1.9575E-04_JPRB,1.8604E-04_JPRB,3.3670E-04_JPRB,3.8272E-04_JPRB,4.0145E-04_JPRB,&
+ & 4.0060E-04_JPRB,1.8741E-04_JPRB,8.4145E-03_JPRB/)  
+KAO( :, 4,13, 2) = (/&
+ & 2.0031E-04_JPRB,2.0975E-04_JPRB,1.6656E-04_JPRB,3.0379E-04_JPRB,3.6769E-04_JPRB,4.0078E-04_JPRB,&
+ & 4.0187E-04_JPRB,2.0032E-04_JPRB,8.8018E-03_JPRB/)  
+KAO( :, 5,13, 2) = (/&
+ & 2.1018E-04_JPRB,2.2076E-04_JPRB,1.9159E-04_JPRB,2.6448E-04_JPRB,3.4432E-04_JPRB,3.8512E-04_JPRB,&
+ & 4.2420E-04_JPRB,2.1018E-04_JPRB,9.0680E-03_JPRB/)  
+KAO( :, 1, 1, 3) = (/&
+ & 2.3465E-03_JPRB,2.4031E-03_JPRB,2.2597E-03_JPRB,2.1524E-03_JPRB,2.8276E-03_JPRB,3.5761E-03_JPRB,&
+ & 4.3079E-03_JPRB,2.3465E-03_JPRB,5.1471E-04_JPRB/)  
+KAO( :, 2, 1, 3) = (/&
+ & 2.3042E-03_JPRB,2.4485E-03_JPRB,2.4199E-03_JPRB,2.2938E-03_JPRB,2.9847E-03_JPRB,3.1952E-03_JPRB,&
+ & 4.1667E-03_JPRB,2.3042E-03_JPRB,6.2319E-04_JPRB/)  
+KAO( :, 3, 1, 3) = (/&
+ & 2.2700E-03_JPRB,2.4966E-03_JPRB,2.5862E-03_JPRB,2.6511E-03_JPRB,2.8738E-03_JPRB,2.9164E-03_JPRB,&
+ & 3.6118E-03_JPRB,2.2700E-03_JPRB,7.4229E-04_JPRB/)  
+KAO( :, 4, 1, 3) = (/&
+ & 2.2509E-03_JPRB,2.5573E-03_JPRB,2.7581E-03_JPRB,2.9718E-03_JPRB,3.0657E-03_JPRB,3.3376E-03_JPRB,&
+ & 3.1600E-03_JPRB,2.2509E-03_JPRB,8.5977E-04_JPRB/)  
+KAO( :, 5, 1, 3) = (/&
+ & 2.2422E-03_JPRB,2.6355E-03_JPRB,2.9552E-03_JPRB,3.2531E-03_JPRB,3.4296E-03_JPRB,3.4558E-03_JPRB,&
+ & 3.2808E-03_JPRB,2.2422E-03_JPRB,9.9766E-04_JPRB/)  
+KAO( :, 1, 2, 3) = (/&
+ & 2.0157E-03_JPRB,2.0510E-03_JPRB,1.8851E-03_JPRB,1.8206E-03_JPRB,2.4343E-03_JPRB,2.9704E-03_JPRB,&
+ & 3.8311E-03_JPRB,2.0157E-03_JPRB,4.1396E-04_JPRB/)  
+KAO( :, 2, 2, 3) = (/&
+ & 1.9815E-03_JPRB,2.0886E-03_JPRB,2.0439E-03_JPRB,1.8938E-03_JPRB,2.5204E-03_JPRB,2.7128E-03_JPRB,&
+ & 3.3350E-03_JPRB,1.9815E-03_JPRB,4.8039E-04_JPRB/)  
+KAO( :, 3, 2, 3) = (/&
+ & 1.9576E-03_JPRB,2.1326E-03_JPRB,2.1790E-03_JPRB,2.1795E-03_JPRB,2.4882E-03_JPRB,2.4941E-03_JPRB,&
+ & 3.2109E-03_JPRB,1.9575E-03_JPRB,5.7955E-04_JPRB/)  
+KAO( :, 4, 2, 3) = (/&
+ & 1.9481E-03_JPRB,2.1829E-03_JPRB,2.3235E-03_JPRB,2.4676E-03_JPRB,2.6097E-03_JPRB,2.8349E-03_JPRB,&
+ & 2.5868E-03_JPRB,1.9481E-03_JPRB,6.6714E-04_JPRB/)  
+KAO( :, 5, 2, 3) = (/&
+ & 1.9507E-03_JPRB,2.2521E-03_JPRB,2.4912E-03_JPRB,2.7356E-03_JPRB,2.8987E-03_JPRB,2.9418E-03_JPRB,&
+ & 2.7830E-03_JPRB,1.9507E-03_JPRB,7.7523E-04_JPRB/)  
+KAO( :, 1, 3, 3) = (/&
+ & 1.7285E-03_JPRB,1.7377E-03_JPRB,1.5305E-03_JPRB,1.6757E-03_JPRB,2.1680E-03_JPRB,2.5609E-03_JPRB,&
+ & 3.3887E-03_JPRB,1.7285E-03_JPRB,3.2280E-04_JPRB/)  
+KAO( :, 2, 3, 3) = (/&
+ & 1.7015E-03_JPRB,1.7653E-03_JPRB,1.6878E-03_JPRB,1.5112E-03_JPRB,2.1719E-03_JPRB,2.4083E-03_JPRB,&
+ & 2.8061E-03_JPRB,1.7015E-03_JPRB,3.7412E-04_JPRB/)  
+KAO( :, 3, 3, 3) = (/&
+ & 1.6851E-03_JPRB,1.8101E-03_JPRB,1.8073E-03_JPRB,1.7539E-03_JPRB,2.2398E-03_JPRB,2.1112E-03_JPRB,&
+ & 2.7333E-03_JPRB,1.6851E-03_JPRB,4.3157E-04_JPRB/)  
+KAO( :, 4, 3, 3) = (/&
+ & 1.6786E-03_JPRB,1.8567E-03_JPRB,1.9291E-03_JPRB,1.9927E-03_JPRB,2.1347E-03_JPRB,2.2693E-03_JPRB,&
+ & 2.2801E-03_JPRB,1.6786E-03_JPRB,5.0448E-04_JPRB/)  
+KAO( :, 5, 3, 3) = (/&
+ & 1.6877E-03_JPRB,1.9156E-03_JPRB,2.0710E-03_JPRB,2.2420E-03_JPRB,2.3625E-03_JPRB,2.5310E-03_JPRB,&
+ & 2.3182E-03_JPRB,1.6877E-03_JPRB,5.8583E-04_JPRB/)  
+KAO( :, 1, 4, 3) = (/&
+ & 1.4834E-03_JPRB,1.4711E-03_JPRB,1.2522E-03_JPRB,1.4479E-03_JPRB,1.9854E-03_JPRB,2.2569E-03_JPRB,&
+ & 2.9775E-03_JPRB,1.4834E-03_JPRB,2.5081E-04_JPRB/)  
+KAO( :, 2, 4, 3) = (/&
+ & 1.4601E-03_JPRB,1.4870E-03_JPRB,1.3690E-03_JPRB,1.2662E-03_JPRB,1.8060E-03_JPRB,2.0826E-03_JPRB,&
+ & 2.4977E-03_JPRB,1.4601E-03_JPRB,2.9277E-04_JPRB/)  
+KAO( :, 3, 4, 3) = (/&
+ & 1.4467E-03_JPRB,1.5271E-03_JPRB,1.4979E-03_JPRB,1.3500E-03_JPRB,1.8497E-03_JPRB,1.9610E-03_JPRB,&
+ & 2.2907E-03_JPRB,1.4467E-03_JPRB,3.3271E-04_JPRB/)  
+KAO( :, 4, 4, 3) = (/&
+ & 1.4432E-03_JPRB,1.5714E-03_JPRB,1.5969E-03_JPRB,1.5937E-03_JPRB,1.7902E-03_JPRB,1.9320E-03_JPRB,&
+ & 2.2420E-03_JPRB,1.4432E-03_JPRB,3.8467E-04_JPRB/)  
+KAO( :, 5, 4, 3) = (/&
+ & 1.4550E-03_JPRB,1.6236E-03_JPRB,1.7127E-03_JPRB,1.8068E-03_JPRB,1.8486E-03_JPRB,2.1176E-03_JPRB,&
+ & 1.8018E-03_JPRB,1.4551E-03_JPRB,4.4551E-04_JPRB/)  
+KAO( :, 1, 5, 3) = (/&
+ & 1.2773E-03_JPRB,1.2497E-03_JPRB,1.0064E-03_JPRB,1.2506E-03_JPRB,1.7352E-03_JPRB,2.1064E-03_JPRB,&
+ & 2.5188E-03_JPRB,1.2773E-03_JPRB,2.1025E-04_JPRB/)  
+KAO( :, 2, 5, 3) = (/&
+ & 1.2595E-03_JPRB,1.2634E-03_JPRB,1.1147E-03_JPRB,1.1296E-03_JPRB,1.5824E-03_JPRB,1.8075E-03_JPRB,&
+ & 2.2978E-03_JPRB,1.2595E-03_JPRB,2.3601E-04_JPRB/)  
+KAO( :, 3, 5, 3) = (/&
+ & 1.2471E-03_JPRB,1.2907E-03_JPRB,1.2226E-03_JPRB,1.0559E-03_JPRB,1.5556E-03_JPRB,1.7264E-03_JPRB,&
+ & 1.8319E-03_JPRB,1.2471E-03_JPRB,2.6674E-04_JPRB/)  
+KAO( :, 4, 5, 3) = (/&
+ & 1.2460E-03_JPRB,1.3277E-03_JPRB,1.3232E-03_JPRB,1.2839E-03_JPRB,1.5266E-03_JPRB,1.5639E-03_JPRB,&
+ & 1.9030E-03_JPRB,1.2460E-03_JPRB,3.0491E-04_JPRB/)  
+KAO( :, 5, 5, 3) = (/&
+ & 1.2575E-03_JPRB,1.3721E-03_JPRB,1.4143E-03_JPRB,1.4453E-03_JPRB,1.5006E-03_JPRB,1.7674E-03_JPRB,&
+ & 1.7436E-03_JPRB,1.2575E-03_JPRB,3.5060E-04_JPRB/)  
+KAO( :, 1, 6, 3) = (/&
+ & 1.0958E-03_JPRB,1.0595E-03_JPRB,7.7664E-04_JPRB,1.1085E-03_JPRB,1.5393E-03_JPRB,1.9338E-03_JPRB,&
+ & 2.1934E-03_JPRB,1.0958E-03_JPRB,1.9645E-04_JPRB/)  
+KAO( :, 2, 6, 3) = (/&
+ & 1.0816E-03_JPRB,1.0727E-03_JPRB,9.0695E-04_JPRB,1.0023E-03_JPRB,1.4434E-03_JPRB,1.5856E-03_JPRB,&
+ & 2.0291E-03_JPRB,1.0816E-03_JPRB,2.1208E-04_JPRB/)  
+KAO( :, 3, 6, 3) = (/&
+ & 1.0710E-03_JPRB,1.0888E-03_JPRB,9.9129E-04_JPRB,8.7443E-04_JPRB,1.3179E-03_JPRB,1.5033E-03_JPRB,&
+ & 1.7077E-03_JPRB,1.0710E-03_JPRB,2.3481E-04_JPRB/)  
+KAO( :, 4, 6, 3) = (/&
+ & 1.0708E-03_JPRB,1.1186E-03_JPRB,1.0874E-03_JPRB,9.5969E-04_JPRB,1.2671E-03_JPRB,1.4010E-03_JPRB,&
+ & 1.5917E-03_JPRB,1.0708E-03_JPRB,2.6339E-04_JPRB/)  
+KAO( :, 5, 6, 3) = (/&
+ & 1.0806E-03_JPRB,1.1572E-03_JPRB,1.1631E-03_JPRB,1.1545E-03_JPRB,1.2485E-03_JPRB,1.4294E-03_JPRB,&
+ & 1.6004E-03_JPRB,1.0806E-03_JPRB,2.9803E-04_JPRB/)  
+KAO( :, 1, 7, 3) = (/&
+ & 9.3348E-04_JPRB,8.9092E-04_JPRB,5.7161E-04_JPRB,1.0208E-03_JPRB,1.3784E-03_JPRB,1.7037E-03_JPRB,&
+ & 1.8935E-03_JPRB,9.3348E-04_JPRB,2.1146E-04_JPRB/)  
+KAO( :, 2, 7, 3) = (/&
+ & 9.2171E-04_JPRB,9.0329E-04_JPRB,7.1477E-04_JPRB,8.4903E-04_JPRB,1.2778E-03_JPRB,1.4945E-03_JPRB,&
+ & 1.7270E-03_JPRB,9.2171E-04_JPRB,2.3005E-04_JPRB/)  
+KAO( :, 3, 7, 3) = (/&
+ & 9.1419E-04_JPRB,9.1920E-04_JPRB,8.1160E-04_JPRB,7.6435E-04_JPRB,1.1213E-03_JPRB,1.3301E-03_JPRB,&
+ & 1.6214E-03_JPRB,9.1419E-04_JPRB,2.5234E-04_JPRB/)  
+KAO( :, 4, 7, 3) = (/&
+ & 9.1402E-04_JPRB,9.3968E-04_JPRB,8.8126E-04_JPRB,7.5287E-04_JPRB,1.0570E-03_JPRB,1.2475E-03_JPRB,&
+ & 1.2998E-03_JPRB,9.1402E-04_JPRB,2.7815E-04_JPRB/)  
+KAO( :, 5, 7, 3) = (/&
+ & 9.2290E-04_JPRB,9.7254E-04_JPRB,9.5644E-04_JPRB,8.9479E-04_JPRB,1.0508E-03_JPRB,1.1268E-03_JPRB,&
+ & 1.3501E-03_JPRB,9.2290E-04_JPRB,3.0806E-04_JPRB/)  
+KAO( :, 1, 8, 3) = (/&
+ & 7.8900E-04_JPRB,7.4488E-04_JPRB,4.6218E-04_JPRB,9.6318E-04_JPRB,1.2372E-03_JPRB,1.5237E-03_JPRB,&
+ & 1.6722E-03_JPRB,7.8900E-04_JPRB,3.0765E-04_JPRB/)  
+KAO( :, 2, 8, 3) = (/&
+ & 7.8043E-04_JPRB,7.5428E-04_JPRB,5.4366E-04_JPRB,7.5909E-04_JPRB,1.0879E-03_JPRB,1.3550E-03_JPRB,&
+ & 1.4794E-03_JPRB,7.8043E-04_JPRB,3.3864E-04_JPRB/)  
+KAO( :, 3, 8, 3) = (/&
+ & 7.7466E-04_JPRB,7.6980E-04_JPRB,6.4963E-04_JPRB,7.0009E-04_JPRB,9.7649E-04_JPRB,1.1689E-03_JPRB,&
+ & 1.4326E-03_JPRB,7.7466E-04_JPRB,3.7286E-04_JPRB/)  
+KAO( :, 4, 8, 3) = (/&
+ & 7.7506E-04_JPRB,7.8870E-04_JPRB,7.1575E-04_JPRB,6.1864E-04_JPRB,8.9565E-04_JPRB,1.0708E-03_JPRB,&
+ & 1.2387E-03_JPRB,7.7506E-04_JPRB,4.1070E-04_JPRB/)  
+KAO( :, 5, 8, 3) = (/&
+ & 7.8287E-04_JPRB,8.1561E-04_JPRB,7.7836E-04_JPRB,6.6838E-04_JPRB,8.8453E-04_JPRB,9.5158E-04_JPRB,&
+ & 1.1620E-03_JPRB,7.8287E-04_JPRB,4.5222E-04_JPRB/)  
+KAO( :, 1, 9, 3) = (/&
+ & 6.6353E-04_JPRB,6.2207E-04_JPRB,4.1497E-04_JPRB,8.5325E-04_JPRB,1.1545E-03_JPRB,1.3202E-03_JPRB,&
+ & 1.4543E-03_JPRB,6.6353E-04_JPRB,9.2255E-04_JPRB/)  
+KAO( :, 2, 9, 3) = (/&
+ & 6.5824E-04_JPRB,6.2786E-04_JPRB,3.9339E-04_JPRB,7.1164E-04_JPRB,9.5910E-04_JPRB,1.2248E-03_JPRB,&
+ & 1.2834E-03_JPRB,6.5824E-04_JPRB,1.0047E-03_JPRB/)  
+KAO( :, 3, 9, 3) = (/&
+ & 6.5331E-04_JPRB,6.3921E-04_JPRB,5.1016E-04_JPRB,5.9654E-04_JPRB,8.7596E-04_JPRB,1.0857E-03_JPRB,&
+ & 1.2145E-03_JPRB,6.5331E-04_JPRB,1.0900E-03_JPRB/)  
+KAO( :, 4, 9, 3) = (/&
+ & 6.5413E-04_JPRB,6.5950E-04_JPRB,5.8244E-04_JPRB,5.3974E-04_JPRB,7.9259E-04_JPRB,9.3024E-04_JPRB,&
+ & 1.1600E-03_JPRB,6.5413E-04_JPRB,1.1801E-03_JPRB/)  
+KAO( :, 5, 9, 3) = (/&
+ & 6.6022E-04_JPRB,6.8110E-04_JPRB,6.3639E-04_JPRB,5.2716E-04_JPRB,7.2311E-04_JPRB,8.5016E-04_JPRB,&
+ & 9.6256E-04_JPRB,6.6022E-04_JPRB,1.2684E-03_JPRB/)  
+KAO( :, 1,10, 3) = (/&
+ & 5.5537E-04_JPRB,5.1658E-04_JPRB,3.5969E-04_JPRB,7.5778E-04_JPRB,1.0268E-03_JPRB,1.1188E-03_JPRB,&
+ & 1.2385E-03_JPRB,5.5537E-04_JPRB,4.6647E-03_JPRB/)  
+KAO( :, 2,10, 3) = (/&
+ & 5.5299E-04_JPRB,5.2259E-04_JPRB,3.1728E-04_JPRB,6.5526E-04_JPRB,8.4363E-04_JPRB,1.0738E-03_JPRB,&
+ & 1.0790E-03_JPRB,5.5299E-04_JPRB,4.9960E-03_JPRB/)  
+KAO( :, 3,10, 3) = (/&
+ & 5.4881E-04_JPRB,5.3065E-04_JPRB,3.9373E-04_JPRB,5.2361E-04_JPRB,7.6014E-04_JPRB,9.4697E-04_JPRB,&
+ & 1.0409E-03_JPRB,5.4881E-04_JPRB,5.3035E-03_JPRB/)  
+KAO( :, 4,10, 3) = (/&
+ & 5.5010E-04_JPRB,5.4878E-04_JPRB,4.7038E-04_JPRB,4.9342E-04_JPRB,6.7583E-04_JPRB,8.0683E-04_JPRB,&
+ & 1.0299E-03_JPRB,5.5010E-04_JPRB,5.6055E-03_JPRB/)  
+KAO( :, 5,10, 3) = (/&
+ & 5.5598E-04_JPRB,5.6871E-04_JPRB,5.2247E-04_JPRB,4.3615E-04_JPRB,6.1815E-04_JPRB,7.4431E-04_JPRB,&
+ & 8.6008E-04_JPRB,5.5598E-04_JPRB,5.8866E-03_JPRB/)  
+KAO( :, 1,11, 3) = (/&
+ & 4.6383E-04_JPRB,4.3181E-04_JPRB,2.9311E-04_JPRB,6.2613E-04_JPRB,8.4464E-04_JPRB,9.4332E-04_JPRB,&
+ & 1.0276E-03_JPRB,4.6383E-04_JPRB,9.7820E-03_JPRB/)  
+KAO( :, 2,11, 3) = (/&
+ & 4.6171E-04_JPRB,4.3648E-04_JPRB,2.6562E-04_JPRB,5.3382E-04_JPRB,6.9685E-04_JPRB,9.0179E-04_JPRB,&
+ & 9.0128E-04_JPRB,4.6171E-04_JPRB,1.0398E-02_JPRB/)  
+KAO( :, 3,11, 3) = (/&
+ & 4.5971E-04_JPRB,4.4491E-04_JPRB,3.3508E-04_JPRB,4.3267E-04_JPRB,6.3864E-04_JPRB,7.7944E-04_JPRB,&
+ & 8.8922E-04_JPRB,4.5971E-04_JPRB,1.0944E-02_JPRB/)  
+KAO( :, 4,11, 3) = (/&
+ & 4.6259E-04_JPRB,4.6298E-04_JPRB,4.0175E-04_JPRB,4.0894E-04_JPRB,5.5874E-04_JPRB,6.6574E-04_JPRB,&
+ & 8.6378E-04_JPRB,4.6259E-04_JPRB,1.1452E-02_JPRB/)  
+KAO( :, 5,11, 3) = (/&
+ & 4.6974E-04_JPRB,4.8223E-04_JPRB,4.4819E-04_JPRB,3.7104E-04_JPRB,5.1007E-04_JPRB,6.1091E-04_JPRB,&
+ & 6.9095E-04_JPRB,4.6974E-04_JPRB,1.1916E-02_JPRB/)  
+KAO( :, 1,12, 3) = (/&
+ & 3.8677E-04_JPRB,3.6035E-04_JPRB,2.4184E-04_JPRB,5.1647E-04_JPRB,6.9945E-04_JPRB,8.0460E-04_JPRB,&
+ & 8.3717E-04_JPRB,3.8677E-04_JPRB,1.3274E-02_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART2',1,ZHOOK_HANDLE)
+END SUBROUTINE PART2
+
+
+SUBROUTINE PART3
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART3',0,ZHOOK_HANDLE)
+
+
+KAO( :, 2,12, 3) = (/&
+ & 3.8521E-04_JPRB,3.6402E-04_JPRB,2.2242E-04_JPRB,4.3447E-04_JPRB,5.8110E-04_JPRB,7.4047E-04_JPRB,&
+ & 7.6321E-04_JPRB,3.8521E-04_JPRB,1.4068E-02_JPRB/)  
+KAO( :, 3,12, 3) = (/&
+ & 3.8458E-04_JPRB,3.7296E-04_JPRB,2.8696E-04_JPRB,3.5751E-04_JPRB,5.2960E-04_JPRB,6.4366E-04_JPRB,&
+ & 7.5179E-04_JPRB,3.8458E-04_JPRB,1.4758E-02_JPRB/)  
+KAO( :, 4,12, 3) = (/&
+ & 3.8810E-04_JPRB,3.8944E-04_JPRB,3.4377E-04_JPRB,3.3355E-04_JPRB,4.6692E-04_JPRB,5.5746E-04_JPRB,&
+ & 7.0895E-04_JPRB,3.8810E-04_JPRB,1.5376E-02_JPRB/)  
+KAO( :, 5,12, 3) = (/&
+ & 3.9595E-04_JPRB,4.0863E-04_JPRB,3.8125E-04_JPRB,3.1202E-04_JPRB,4.2678E-04_JPRB,5.1131E-04_JPRB,&
+ & 5.7489E-04_JPRB,3.9595E-04_JPRB,1.5941E-02_JPRB/)  
+KAO( :, 1,13, 3) = (/&
+ & 3.2194E-04_JPRB,2.9976E-04_JPRB,1.9852E-04_JPRB,4.2567E-04_JPRB,5.7525E-04_JPRB,6.7061E-04_JPRB,&
+ & 6.9907E-04_JPRB,3.2194E-04_JPRB,1.4565E-02_JPRB/)  
+KAO( :, 2,13, 3) = (/&
+ & 3.2103E-04_JPRB,3.0342E-04_JPRB,1.8519E-04_JPRB,3.5157E-04_JPRB,4.8791E-04_JPRB,6.1939E-04_JPRB,&
+ & 6.5160E-04_JPRB,3.2103E-04_JPRB,1.5395E-02_JPRB/)  
+KAO( :, 3,13, 3) = (/&
+ & 3.2113E-04_JPRB,3.1205E-04_JPRB,2.4410E-04_JPRB,2.9571E-04_JPRB,4.4082E-04_JPRB,5.2957E-04_JPRB,&
+ & 6.2741E-04_JPRB,3.2112E-04_JPRB,1.6107E-02_JPRB/)  
+KAO( :, 4,13, 3) = (/&
+ & 3.2542E-04_JPRB,3.2754E-04_JPRB,2.9103E-04_JPRB,2.6678E-04_JPRB,3.8858E-04_JPRB,4.6663E-04_JPRB,&
+ & 5.7700E-04_JPRB,3.2542E-04_JPRB,1.6764E-02_JPRB/)  
+KAO( :, 5,13, 3) = (/&
+ & 3.3271E-04_JPRB,3.4522E-04_JPRB,3.2313E-04_JPRB,2.6306E-04_JPRB,3.5325E-04_JPRB,4.2786E-04_JPRB,&
+ & 4.7758E-04_JPRB,3.3271E-04_JPRB,1.7329E-02_JPRB/)  
+KAO( :, 1, 1, 4) = (/&
+ & 3.2539E-03_JPRB,3.4940E-03_JPRB,3.4388E-03_JPRB,3.0659E-03_JPRB,3.4522E-03_JPRB,4.1188E-03_JPRB,&
+ & 4.1472E-03_JPRB,3.2539E-03_JPRB,9.9646E-04_JPRB/)  
+KAO( :, 2, 1, 4) = (/&
+ & 3.2363E-03_JPRB,3.6045E-03_JPRB,3.7021E-03_JPRB,3.5901E-03_JPRB,3.1463E-03_JPRB,4.3360E-03_JPRB,&
+ & 4.0838E-03_JPRB,3.2363E-03_JPRB,1.0956E-03_JPRB/)  
+KAO( :, 3, 1, 4) = (/&
+ & 3.2334E-03_JPRB,3.7700E-03_JPRB,3.9602E-03_JPRB,3.9629E-03_JPRB,3.8081E-03_JPRB,4.2925E-03_JPRB,&
+ & 5.1219E-03_JPRB,3.2334E-03_JPRB,1.3007E-03_JPRB/)  
+KAO( :, 4, 1, 4) = (/&
+ & 3.2490E-03_JPRB,3.9748E-03_JPRB,4.2071E-03_JPRB,4.2935E-03_JPRB,4.3164E-03_JPRB,4.2604E-03_JPRB,&
+ & 5.6033E-03_JPRB,3.2490E-03_JPRB,1.5944E-03_JPRB/)  
+KAO( :, 5, 1, 4) = (/&
+ & 3.2698E-03_JPRB,4.1740E-03_JPRB,4.4497E-03_JPRB,4.6155E-03_JPRB,4.8047E-03_JPRB,5.1537E-03_JPRB,&
+ & 5.5559E-03_JPRB,3.2698E-03_JPRB,1.9119E-03_JPRB/)  
+KAO( :, 1, 2, 4) = (/&
+ & 2.8229E-03_JPRB,2.9984E-03_JPRB,2.9248E-03_JPRB,2.5710E-03_JPRB,2.9591E-03_JPRB,3.5685E-03_JPRB,&
+ & 3.3471E-03_JPRB,2.8229E-03_JPRB,7.1037E-04_JPRB/)  
+KAO( :, 2, 2, 4) = (/&
+ & 2.8182E-03_JPRB,3.1079E-03_JPRB,3.1510E-03_JPRB,3.0220E-03_JPRB,2.6456E-03_JPRB,3.5065E-03_JPRB,&
+ & 3.5091E-03_JPRB,2.8182E-03_JPRB,8.2941E-04_JPRB/)  
+KAO( :, 3, 2, 4) = (/&
+ & 2.8273E-03_JPRB,3.2641E-03_JPRB,3.3991E-03_JPRB,3.3882E-03_JPRB,3.1076E-03_JPRB,3.6339E-03_JPRB,&
+ & 4.1453E-03_JPRB,2.8273E-03_JPRB,9.9329E-04_JPRB/)  
+KAO( :, 4, 2, 4) = (/&
+ & 2.8479E-03_JPRB,3.4537E-03_JPRB,3.6378E-03_JPRB,3.6922E-03_JPRB,3.5902E-03_JPRB,3.4985E-03_JPRB,&
+ & 4.8079E-03_JPRB,2.8479E-03_JPRB,1.2207E-03_JPRB/)  
+KAO( :, 5, 2, 4) = (/&
+ & 2.8762E-03_JPRB,3.6435E-03_JPRB,3.8640E-03_JPRB,3.9829E-03_JPRB,4.0196E-03_JPRB,4.2137E-03_JPRB,&
+ & 4.6057E-03_JPRB,2.8762E-03_JPRB,1.4645E-03_JPRB/)  
+KAO( :, 1, 3, 4) = (/&
+ & 2.4480E-03_JPRB,2.5503E-03_JPRB,2.4276E-03_JPRB,1.9299E-03_JPRB,2.4394E-03_JPRB,2.9600E-03_JPRB,&
+ & 3.0819E-03_JPRB,2.4480E-03_JPRB,5.1310E-04_JPRB/)  
+KAO( :, 2, 3, 4) = (/&
+ & 2.4484E-03_JPRB,2.6489E-03_JPRB,2.6249E-03_JPRB,2.4613E-03_JPRB,2.1891E-03_JPRB,2.8113E-03_JPRB,&
+ & 2.9085E-03_JPRB,2.4484E-03_JPRB,6.0695E-04_JPRB/)  
+KAO( :, 3, 3, 4) = (/&
+ & 2.4631E-03_JPRB,2.7817E-03_JPRB,2.8578E-03_JPRB,2.8021E-03_JPRB,2.3361E-03_JPRB,3.1956E-03_JPRB,&
+ & 3.2912E-03_JPRB,2.4631E-03_JPRB,7.4313E-04_JPRB/)  
+KAO( :, 4, 3, 4) = (/&
+ & 2.4843E-03_JPRB,2.9440E-03_JPRB,3.0734E-03_JPRB,3.0947E-03_JPRB,2.9596E-03_JPRB,2.9621E-03_JPRB,&
+ & 3.8254E-03_JPRB,2.4843E-03_JPRB,8.9831E-04_JPRB/)  
+KAO( :, 5, 3, 4) = (/&
+ & 2.5152E-03_JPRB,3.1190E-03_JPRB,3.2801E-03_JPRB,3.3527E-03_JPRB,3.3374E-03_JPRB,3.2653E-03_JPRB,&
+ & 3.7266E-03_JPRB,2.5152E-03_JPRB,1.0797E-03_JPRB/)  
+KAO( :, 1, 4, 4) = (/&
+ & 2.1250E-03_JPRB,2.1670E-03_JPRB,1.9990E-03_JPRB,1.5199E-03_JPRB,1.9962E-03_JPRB,2.4995E-03_JPRB,&
+ & 2.9024E-03_JPRB,2.1250E-03_JPRB,3.7531E-04_JPRB/)  
+KAO( :, 2, 4, 4) = (/&
+ & 2.1204E-03_JPRB,2.2489E-03_JPRB,2.1700E-03_JPRB,1.9399E-03_JPRB,1.9963E-03_JPRB,2.4266E-03_JPRB,&
+ & 2.6000E-03_JPRB,2.1204E-03_JPRB,4.4756E-04_JPRB/)  
+KAO( :, 3, 4, 4) = (/&
+ & 2.1413E-03_JPRB,2.3587E-03_JPRB,2.3627E-03_JPRB,2.2544E-03_JPRB,1.9195E-03_JPRB,2.4658E-03_JPRB,&
+ & 2.5172E-03_JPRB,2.1413E-03_JPRB,5.4705E-04_JPRB/)  
+KAO( :, 4, 4, 4) = (/&
+ & 2.1654E-03_JPRB,2.4980E-03_JPRB,2.5663E-03_JPRB,2.5373E-03_JPRB,2.3728E-03_JPRB,2.4769E-03_JPRB,&
+ & 2.8318E-03_JPRB,2.1654E-03_JPRB,6.6125E-04_JPRB/)  
+KAO( :, 5, 4, 4) = (/&
+ & 2.1913E-03_JPRB,2.6456E-03_JPRB,2.7536E-03_JPRB,2.7816E-03_JPRB,2.7405E-03_JPRB,2.5702E-03_JPRB,&
+ & 3.2605E-03_JPRB,2.1913E-03_JPRB,7.9714E-04_JPRB/)  
+KAO( :, 1, 5, 4) = (/&
+ & 1.8265E-03_JPRB,1.8381E-03_JPRB,1.6457E-03_JPRB,1.2486E-03_JPRB,1.7229E-03_JPRB,2.0547E-03_JPRB,&
+ & 2.6848E-03_JPRB,1.8265E-03_JPRB,2.8596E-04_JPRB/)  
+KAO( :, 2, 5, 4) = (/&
+ & 1.8274E-03_JPRB,1.9048E-03_JPRB,1.7983E-03_JPRB,1.4752E-03_JPRB,1.7469E-03_JPRB,2.1116E-03_JPRB,&
+ & 2.1134E-03_JPRB,1.8274E-03_JPRB,3.4190E-04_JPRB/)  
+KAO( :, 3, 5, 4) = (/&
+ & 1.8508E-03_JPRB,2.0003E-03_JPRB,1.9620E-03_JPRB,1.8188E-03_JPRB,1.6077E-03_JPRB,1.9516E-03_JPRB,&
+ & 2.1073E-03_JPRB,1.8508E-03_JPRB,4.1292E-04_JPRB/)  
+KAO( :, 4, 5, 4) = (/&
+ & 1.8793E-03_JPRB,2.1182E-03_JPRB,2.1350E-03_JPRB,2.0517E-03_JPRB,1.8087E-03_JPRB,2.2071E-03_JPRB,&
+ & 2.2714E-03_JPRB,1.8793E-03_JPRB,4.9789E-04_JPRB/)  
+KAO( :, 5, 5, 4) = (/&
+ & 1.9065E-03_JPRB,2.2435E-03_JPRB,2.3053E-03_JPRB,2.2926E-03_JPRB,2.2224E-03_JPRB,2.0829E-03_JPRB,&
+ & 2.5565E-03_JPRB,1.9065E-03_JPRB,5.9975E-04_JPRB/)  
+KAO( :, 1, 6, 4) = (/&
+ & 1.5738E-03_JPRB,1.5536E-03_JPRB,1.3462E-03_JPRB,1.0905E-03_JPRB,1.5345E-03_JPRB,1.8378E-03_JPRB,&
+ & 2.3696E-03_JPRB,1.5738E-03_JPRB,2.4570E-04_JPRB/)  
+KAO( :, 2, 6, 4) = (/&
+ & 1.5785E-03_JPRB,1.6102E-03_JPRB,1.4864E-03_JPRB,1.0878E-03_JPRB,1.4533E-03_JPRB,1.8096E-03_JPRB,&
+ & 1.9208E-03_JPRB,1.5785E-03_JPRB,2.8650E-04_JPRB/)  
+KAO( :, 3, 6, 4) = (/&
+ & 1.5938E-03_JPRB,1.6886E-03_JPRB,1.6242E-03_JPRB,1.4329E-03_JPRB,1.3971E-03_JPRB,1.6588E-03_JPRB,&
+ & 1.7977E-03_JPRB,1.5938E-03_JPRB,3.3646E-04_JPRB/)  
+KAO( :, 4, 6, 4) = (/&
+ & 1.6207E-03_JPRB,1.7903E-03_JPRB,1.7740E-03_JPRB,1.6609E-03_JPRB,1.4090E-03_JPRB,1.7880E-03_JPRB,&
+ & 1.8264E-03_JPRB,1.6207E-03_JPRB,3.9927E-04_JPRB/)  
+KAO( :, 5, 6, 4) = (/&
+ & 1.6514E-03_JPRB,1.8945E-03_JPRB,1.9189E-03_JPRB,1.8707E-03_JPRB,1.7309E-03_JPRB,1.7651E-03_JPRB,&
+ & 1.8956E-03_JPRB,1.6514E-03_JPRB,4.7341E-04_JPRB/)  
+KAO( :, 1, 7, 4) = (/&
+ & 1.3566E-03_JPRB,1.3176E-03_JPRB,1.0800E-03_JPRB,9.9879E-04_JPRB,1.3645E-03_JPRB,1.6716E-03_JPRB,&
+ & 2.0138E-03_JPRB,1.3566E-03_JPRB,2.7117E-04_JPRB/)  
+KAO( :, 2, 7, 4) = (/&
+ & 1.3616E-03_JPRB,1.3614E-03_JPRB,1.2294E-03_JPRB,8.6943E-04_JPRB,1.2441E-03_JPRB,1.4557E-03_JPRB,&
+ & 1.7627E-03_JPRB,1.3616E-03_JPRB,3.0497E-04_JPRB/)  
+KAO( :, 3, 7, 4) = (/&
+ & 1.3738E-03_JPRB,1.4251E-03_JPRB,1.3424E-03_JPRB,1.0748E-03_JPRB,1.3239E-03_JPRB,1.4948E-03_JPRB,&
+ & 1.4893E-03_JPRB,1.3738E-03_JPRB,3.4547E-04_JPRB/)  
+KAO( :, 4, 7, 4) = (/&
+ & 1.3909E-03_JPRB,1.5062E-03_JPRB,1.4675E-03_JPRB,1.3314E-03_JPRB,1.1299E-03_JPRB,1.4256E-03_JPRB,&
+ & 1.5101E-03_JPRB,1.3909E-03_JPRB,3.9363E-04_JPRB/)  
+KAO( :, 5, 7, 4) = (/&
+ & 1.4214E-03_JPRB,1.5939E-03_JPRB,1.5929E-03_JPRB,1.5159E-03_JPRB,1.3044E-03_JPRB,1.5546E-03_JPRB,&
+ & 1.5847E-03_JPRB,1.4214E-03_JPRB,4.4999E-04_JPRB/)  
+KAO( :, 1, 8, 4) = (/&
+ & 1.1638E-03_JPRB,1.1139E-03_JPRB,8.4796E-04_JPRB,8.4668E-04_JPRB,1.2396E-03_JPRB,1.5094E-03_JPRB,&
+ & 1.6975E-03_JPRB,1.1638E-03_JPRB,4.3052E-04_JPRB/)  
+KAO( :, 2, 8, 4) = (/&
+ & 1.1671E-03_JPRB,1.1491E-03_JPRB,9.9702E-04_JPRB,7.1894E-04_JPRB,1.1157E-03_JPRB,1.2835E-03_JPRB,&
+ & 1.5171E-03_JPRB,1.1671E-03_JPRB,4.7244E-04_JPRB/)  
+KAO( :, 3, 8, 4) = (/&
+ & 1.1763E-03_JPRB,1.1971E-03_JPRB,1.1061E-03_JPRB,7.5625E-04_JPRB,1.0948E-03_JPRB,1.3227E-03_JPRB,&
+ & 1.3243E-03_JPRB,1.1763E-03_JPRB,5.1908E-04_JPRB/)  
+KAO( :, 4, 8, 4) = (/&
+ & 1.1882E-03_JPRB,1.2582E-03_JPRB,1.2081E-03_JPRB,1.0410E-03_JPRB,9.4931E-04_JPRB,1.2112E-03_JPRB,&
+ & 1.2350E-03_JPRB,1.1882E-03_JPRB,5.7242E-04_JPRB/)  
+KAO( :, 5, 8, 4) = (/&
+ & 1.2141E-03_JPRB,1.3322E-03_JPRB,1.3142E-03_JPRB,1.2208E-03_JPRB,9.8671E-04_JPRB,1.3128E-03_JPRB,&
+ & 1.3456E-03_JPRB,1.2141E-03_JPRB,6.3120E-04_JPRB/)  
+KAO( :, 1, 9, 4) = (/&
+ & 9.9337E-04_JPRB,9.3743E-04_JPRB,6.1970E-04_JPRB,7.5456E-04_JPRB,1.1089E-03_JPRB,1.3407E-03_JPRB,&
+ & 1.5068E-03_JPRB,9.9337E-04_JPRB,1.4422E-03_JPRB/)  
+KAO( :, 2, 9, 4) = (/&
+ & 9.9471E-04_JPRB,9.6601E-04_JPRB,8.0263E-04_JPRB,6.4260E-04_JPRB,9.9035E-04_JPRB,1.1710E-03_JPRB,&
+ & 1.3289E-03_JPRB,9.9471E-04_JPRB,1.5498E-03_JPRB/)  
+KAO( :, 3, 9, 4) = (/&
+ & 1.0028E-03_JPRB,1.0037E-03_JPRB,9.0388E-04_JPRB,5.9394E-04_JPRB,8.7485E-04_JPRB,1.0779E-03_JPRB,&
+ & 1.1968E-03_JPRB,1.0028E-03_JPRB,1.6632E-03_JPRB/)  
+KAO( :, 4, 9, 4) = (/&
+ & 1.0138E-03_JPRB,1.0500E-03_JPRB,9.8794E-04_JPRB,7.6322E-04_JPRB,8.5312E-04_JPRB,1.1047E-03_JPRB,&
+ & 1.0664E-03_JPRB,1.0138E-03_JPRB,1.7764E-03_JPRB/)  
+KAO( :, 5, 9, 4) = (/&
+ & 1.0324E-03_JPRB,1.1072E-03_JPRB,1.0751E-03_JPRB,9.6755E-04_JPRB,7.9829E-04_JPRB,1.0354E-03_JPRB,&
+ & 1.1339E-03_JPRB,1.0324E-03_JPRB,1.8836E-03_JPRB/)  
+KAO( :, 1,10, 4) = (/&
+ & 8.4390E-04_JPRB,7.8883E-04_JPRB,4.5496E-04_JPRB,6.3978E-04_JPRB,9.7062E-04_JPRB,1.1888E-03_JPRB,&
+ & 1.3025E-03_JPRB,8.4390E-04_JPRB,7.7978E-03_JPRB/)  
+KAO( :, 2,10, 4) = (/&
+ & 8.4417E-04_JPRB,8.1047E-04_JPRB,6.4039E-04_JPRB,5.5867E-04_JPRB,8.6775E-04_JPRB,1.0100E-03_JPRB,&
+ & 1.1972E-03_JPRB,8.4417E-04_JPRB,8.1651E-03_JPRB/)  
+KAO( :, 3,10, 4) = (/&
+ & 8.5209E-04_JPRB,8.4218E-04_JPRB,7.3701E-04_JPRB,4.8053E-04_JPRB,7.5503E-04_JPRB,9.4507E-04_JPRB,&
+ & 1.0394E-03_JPRB,8.5209E-04_JPRB,8.5320E-03_JPRB/)  
+KAO( :, 4,10, 4) = (/&
+ & 8.6243E-04_JPRB,8.7871E-04_JPRB,8.1378E-04_JPRB,5.4794E-04_JPRB,7.5693E-04_JPRB,9.4093E-04_JPRB,&
+ & 9.0694E-04_JPRB,8.6243E-04_JPRB,8.8886E-03_JPRB/)  
+KAO( :, 5,10, 4) = (/&
+ & 8.7838E-04_JPRB,9.2500E-04_JPRB,8.8544E-04_JPRB,7.6044E-04_JPRB,6.4236E-04_JPRB,8.2354E-04_JPRB,&
+ & 9.4540E-04_JPRB,8.7839E-04_JPRB,9.2325E-03_JPRB/)  
+KAO( :, 1,11, 4) = (/&
+ & 7.1140E-04_JPRB,6.6686E-04_JPRB,3.9659E-04_JPRB,5.3128E-04_JPRB,8.2390E-04_JPRB,9.6334E-04_JPRB,&
+ & 1.0535E-03_JPRB,7.1140E-04_JPRB,1.6752E-02_JPRB/)  
+KAO( :, 2,11, 4) = (/&
+ & 7.1470E-04_JPRB,6.8928E-04_JPRB,5.4857E-04_JPRB,4.7790E-04_JPRB,7.0017E-04_JPRB,8.4578E-04_JPRB,&
+ & 9.6239E-04_JPRB,7.1470E-04_JPRB,1.7467E-02_JPRB/)  
+KAO( :, 3,11, 4) = (/&
+ & 7.2406E-04_JPRB,7.1829E-04_JPRB,6.3252E-04_JPRB,4.0136E-04_JPRB,6.0473E-04_JPRB,8.1229E-04_JPRB,&
+ & 8.6413E-04_JPRB,7.2406E-04_JPRB,1.8154E-02_JPRB/)  
+KAO( :, 4,11, 4) = (/&
+ & 7.3750E-04_JPRB,7.5088E-04_JPRB,6.9603E-04_JPRB,4.8007E-04_JPRB,6.2834E-04_JPRB,7.5345E-04_JPRB,&
+ & 7.8530E-04_JPRB,7.3750E-04_JPRB,1.8779E-02_JPRB/)  
+KAO( :, 5,11, 4) = (/&
+ & 7.5575E-04_JPRB,7.9367E-04_JPRB,7.5606E-04_JPRB,6.5213E-04_JPRB,5.4718E-04_JPRB,7.0193E-04_JPRB,&
+ & 8.3404E-04_JPRB,7.5575E-04_JPRB,1.9352E-02_JPRB/)  
+KAO( :, 1,12, 4) = (/&
+ & 5.9829E-04_JPRB,5.6157E-04_JPRB,3.4347E-04_JPRB,4.4145E-04_JPRB,6.8008E-04_JPRB,7.8397E-04_JPRB,&
+ & 8.5127E-04_JPRB,5.9830E-04_JPRB,2.3223E-02_JPRB/)  
+KAO( :, 2,12, 4) = (/&
+ & 6.0344E-04_JPRB,5.8387E-04_JPRB,4.6957E-04_JPRB,3.9737E-04_JPRB,5.7696E-04_JPRB,7.2078E-04_JPRB,&
+ & 7.8930E-04_JPRB,6.0344E-04_JPRB,2.4171E-02_JPRB/)  
+KAO( :, 3,12, 4) = (/&
+ & 6.1383E-04_JPRB,6.1057E-04_JPRB,5.4014E-04_JPRB,3.4306E-04_JPRB,5.0450E-04_JPRB,6.7941E-04_JPRB,&
+ & 7.3306E-04_JPRB,6.1383E-04_JPRB,2.5042E-02_JPRB/)  
+KAO( :, 4,12, 4) = (/&
+ & 6.2909E-04_JPRB,6.4187E-04_JPRB,5.9443E-04_JPRB,4.2049E-04_JPRB,5.1244E-04_JPRB,6.1921E-04_JPRB,&
+ & 6.8115E-04_JPRB,6.2909E-04_JPRB,2.5830E-02_JPRB/)  
+KAO( :, 5,12, 4) = (/&
+ & 6.5010E-04_JPRB,6.8123E-04_JPRB,6.4805E-04_JPRB,5.6243E-04_JPRB,4.5555E-04_JPRB,5.8069E-04_JPRB,&
+ & 6.9766E-04_JPRB,6.5010E-04_JPRB,2.6537E-02_JPRB/)  
+KAO( :, 1,13, 4) = (/&
+ & 5.0269E-04_JPRB,4.7309E-04_JPRB,2.9722E-04_JPRB,3.6029E-04_JPRB,5.5327E-04_JPRB,6.7267E-04_JPRB,&
+ & 6.9641E-04_JPRB,5.0269E-04_JPRB,2.5949E-02_JPRB/)  
+KAO( :, 2,13, 4) = (/&
+ & 5.0863E-04_JPRB,4.9324E-04_JPRB,4.0227E-04_JPRB,3.2512E-04_JPRB,4.7435E-04_JPRB,5.7218E-04_JPRB,&
+ & 6.4965E-04_JPRB,5.0863E-04_JPRB,2.6966E-02_JPRB/)  
+KAO( :, 3,13, 4) = (/&
+ & 5.1998E-04_JPRB,5.1754E-04_JPRB,4.6042E-04_JPRB,2.9200E-04_JPRB,4.1919E-04_JPRB,5.5920E-04_JPRB,&
+ & 6.2355E-04_JPRB,5.1997E-04_JPRB,2.7905E-02_JPRB/)  
+KAO( :, 4,13, 4) = (/&
+ & 5.3565E-04_JPRB,5.4724E-04_JPRB,5.0865E-04_JPRB,3.7273E-04_JPRB,4.1799E-04_JPRB,5.1125E-04_JPRB,&
+ & 5.5790E-04_JPRB,5.3565E-04_JPRB,2.8735E-02_JPRB/)  
+KAO( :, 5,13, 4) = (/&
+ & 5.5698E-04_JPRB,5.8373E-04_JPRB,5.5557E-04_JPRB,4.8519E-04_JPRB,3.8080E-04_JPRB,4.8575E-04_JPRB,&
+ & 5.9866E-04_JPRB,5.5698E-04_JPRB,2.9481E-02_JPRB/)  
+KAO( :, 1, 1, 5) = (/&
+ & 5.1773E-03_JPRB,5.5179E-03_JPRB,5.4794E-03_JPRB,5.0590E-03_JPRB,3.8870E-03_JPRB,4.6296E-03_JPRB,&
+ & 5.9241E-03_JPRB,5.1773E-03_JPRB,1.5277E-03_JPRB/)  
+KAO( :, 2, 1, 5) = (/&
+ & 5.2034E-03_JPRB,5.6993E-03_JPRB,5.7195E-03_JPRB,5.6065E-03_JPRB,5.1571E-03_JPRB,4.6383E-03_JPRB,&
+ & 6.9998E-03_JPRB,5.2034E-03_JPRB,2.0327E-03_JPRB/)  
+KAO( :, 3, 1, 5) = (/&
+ & 5.2523E-03_JPRB,5.8787E-03_JPRB,6.0084E-03_JPRB,6.0684E-03_JPRB,6.0397E-03_JPRB,6.1073E-03_JPRB,&
+ & 5.9208E-03_JPRB,5.2523E-03_JPRB,2.5125E-03_JPRB/)  
+KAO( :, 4, 1, 5) = (/&
+ & 5.3054E-03_JPRB,6.0746E-03_JPRB,6.3010E-03_JPRB,6.5205E-03_JPRB,6.8111E-03_JPRB,7.3269E-03_JPRB,&
+ & 7.5915E-03_JPRB,5.3054E-03_JPRB,3.0259E-03_JPRB/)  
+KAO( :, 5, 1, 5) = (/&
+ & 5.3679E-03_JPRB,6.2880E-03_JPRB,6.5896E-03_JPRB,6.9769E-03_JPRB,7.5426E-03_JPRB,8.2616E-03_JPRB,&
+ & 9.5734E-03_JPRB,5.3679E-03_JPRB,3.5988E-03_JPRB/)  
+KAO( :, 1, 2, 5) = (/&
+ & 4.6050E-03_JPRB,4.8904E-03_JPRB,4.7826E-03_JPRB,4.2812E-03_JPRB,3.0961E-03_JPRB,4.0066E-03_JPRB,&
+ & 5.0115E-03_JPRB,4.6050E-03_JPRB,1.1833E-03_JPRB/)  
+KAO( :, 2, 2, 5) = (/&
+ & 4.6546E-03_JPRB,5.0669E-03_JPRB,5.0153E-03_JPRB,4.8028E-03_JPRB,4.2371E-03_JPRB,3.8571E-03_JPRB,&
+ & 5.7082E-03_JPRB,4.6545E-03_JPRB,1.5250E-03_JPRB/)  
+KAO( :, 3, 2, 5) = (/&
+ & 4.7163E-03_JPRB,5.2445E-03_JPRB,5.2818E-03_JPRB,5.2193E-03_JPRB,5.0401E-03_JPRB,4.8158E-03_JPRB,&
+ & 4.8111E-03_JPRB,4.7163E-03_JPRB,1.8851E-03_JPRB/)  
+KAO( :, 4, 2, 5) = (/&
+ & 4.7840E-03_JPRB,5.4375E-03_JPRB,5.5428E-03_JPRB,5.6145E-03_JPRB,5.7557E-03_JPRB,6.0979E-03_JPRB,&
+ & 6.0650E-03_JPRB,4.7840E-03_JPRB,2.2872E-03_JPRB/)  
+KAO( :, 5, 2, 5) = (/&
+ & 4.8541E-03_JPRB,5.6350E-03_JPRB,5.8029E-03_JPRB,5.9983E-03_JPRB,6.3916E-03_JPRB,6.9220E-03_JPRB,&
+ & 7.8417E-03_JPRB,4.8542E-03_JPRB,2.7410E-03_JPRB/)  
+KAO( :, 1, 3, 5) = (/&
+ & 4.0566E-03_JPRB,4.2666E-03_JPRB,4.1136E-03_JPRB,3.4902E-03_JPRB,2.4320E-03_JPRB,3.7448E-03_JPRB,&
+ & 4.0596E-03_JPRB,4.0566E-03_JPRB,8.5537E-04_JPRB/)  
+KAO( :, 2, 3, 5) = (/&
+ & 4.1192E-03_JPRB,4.4343E-03_JPRB,4.3374E-03_JPRB,4.0126E-03_JPRB,3.2863E-03_JPRB,3.1710E-03_JPRB,&
+ & 4.6913E-03_JPRB,4.1192E-03_JPRB,1.0912E-03_JPRB/)  
+KAO( :, 3, 3, 5) = (/&
+ & 4.1883E-03_JPRB,4.6068E-03_JPRB,4.5710E-03_JPRB,4.4080E-03_JPRB,4.0587E-03_JPRB,3.3970E-03_JPRB,&
+ & 4.0950E-03_JPRB,4.1883E-03_JPRB,1.3564E-03_JPRB/)  
+KAO( :, 4, 3, 5) = (/&
+ & 4.2607E-03_JPRB,4.7874E-03_JPRB,4.8302E-03_JPRB,4.7600E-03_JPRB,4.6789E-03_JPRB,4.6803E-03_JPRB,&
+ & 4.6046E-03_JPRB,4.2607E-03_JPRB,1.6587E-03_JPRB/)  
+KAO( :, 5, 3, 5) = (/&
+ & 4.3291E-03_JPRB,4.9729E-03_JPRB,5.0821E-03_JPRB,5.1132E-03_JPRB,5.2389E-03_JPRB,5.5501E-03_JPRB,&
+ & 6.1453E-03_JPRB,4.3291E-03_JPRB,2.0123E-03_JPRB/)  
+KAO( :, 1, 4, 5) = (/&
+ & 3.5459E-03_JPRB,3.6825E-03_JPRB,3.4932E-03_JPRB,2.7637E-03_JPRB,1.9201E-03_JPRB,3.0460E-03_JPRB,&
+ & 3.2749E-03_JPRB,3.5459E-03_JPRB,6.1561E-04_JPRB/)  
+KAO( :, 2, 4, 5) = (/&
+ & 3.6061E-03_JPRB,3.8362E-03_JPRB,3.7182E-03_JPRB,3.3223E-03_JPRB,2.3497E-03_JPRB,2.6627E-03_JPRB,&
+ & 3.6845E-03_JPRB,3.6061E-03_JPRB,7.8011E-04_JPRB/)  
+KAO( :, 3, 4, 5) = (/&
+ & 3.6751E-03_JPRB,4.0009E-03_JPRB,3.9352E-03_JPRB,3.7212E-03_JPRB,3.1586E-03_JPRB,2.6599E-03_JPRB,&
+ & 3.9284E-03_JPRB,3.6751E-03_JPRB,9.7541E-04_JPRB/)  
+KAO( :, 4, 4, 5) = (/&
+ & 3.7472E-03_JPRB,4.1657E-03_JPRB,4.1547E-03_JPRB,4.0471E-03_JPRB,3.7579E-03_JPRB,3.4987E-03_JPRB,&
+ & 3.4684E-03_JPRB,3.7472E-03_JPRB,1.2060E-03_JPRB/)  
+KAO( :, 5, 4, 5) = (/&
+ & 3.8173E-03_JPRB,4.3392E-03_JPRB,4.3926E-03_JPRB,4.3575E-03_JPRB,4.2919E-03_JPRB,4.2730E-03_JPRB,&
+ & 4.3662E-03_JPRB,3.8173E-03_JPRB,1.4743E-03_JPRB/)  
+KAO( :, 1, 5, 5) = (/&
+ & 3.0911E-03_JPRB,3.1547E-03_JPRB,2.9517E-03_JPRB,2.1585E-03_JPRB,1.7089E-03_JPRB,2.5065E-03_JPRB,&
+ & 2.6736E-03_JPRB,3.0911E-03_JPRB,4.5259E-04_JPRB/)  
+KAO( :, 2, 5, 5) = (/&
+ & 3.1432E-03_JPRB,3.2952E-03_JPRB,3.1535E-03_JPRB,2.7144E-03_JPRB,1.7305E-03_JPRB,2.3740E-03_JPRB,&
+ & 2.9171E-03_JPRB,3.1432E-03_JPRB,5.6940E-04_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART3',1,ZHOOK_HANDLE)
+END SUBROUTINE PART3
+
+
+SUBROUTINE PART4
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART4',0,ZHOOK_HANDLE)
+
+
+KAO( :, 3, 5, 5) = (/&
+ & 3.2011E-03_JPRB,3.4418E-03_JPRB,3.3526E-03_JPRB,3.0998E-03_JPRB,2.4424E-03_JPRB,2.1728E-03_JPRB,&
+ & 3.3563E-03_JPRB,3.2011E-03_JPRB,7.1313E-04_JPRB/)  
+KAO( :, 4, 5, 5) = (/&
+ & 3.2691E-03_JPRB,3.5925E-03_JPRB,3.5476E-03_JPRB,3.4130E-03_JPRB,3.0304E-03_JPRB,2.4542E-03_JPRB,&
+ & 2.7853E-03_JPRB,3.2691E-03_JPRB,8.8641E-04_JPRB/)  
+KAO( :, 5, 5, 5) = (/&
+ & 3.3413E-03_JPRB,3.7507E-03_JPRB,3.7512E-03_JPRB,3.6954E-03_JPRB,3.5144E-03_JPRB,3.3039E-03_JPRB,&
+ & 3.1174E-03_JPRB,3.3413E-03_JPRB,1.0913E-03_JPRB/)  
+KAO( :, 1, 6, 5) = (/&
+ & 2.6814E-03_JPRB,2.6940E-03_JPRB,2.4706E-03_JPRB,1.6241E-03_JPRB,1.5796E-03_JPRB,1.9986E-03_JPRB,&
+ & 2.3111E-03_JPRB,2.6814E-03_JPRB,3.5673E-04_JPRB/)  
+KAO( :, 2, 6, 5) = (/&
+ & 2.7286E-03_JPRB,2.8170E-03_JPRB,2.6566E-03_JPRB,2.1953E-03_JPRB,1.3951E-03_JPRB,2.0187E-03_JPRB,&
+ & 2.3167E-03_JPRB,2.7286E-03_JPRB,4.3928E-04_JPRB/)  
+KAO( :, 3, 6, 5) = (/&
+ & 2.7784E-03_JPRB,2.9396E-03_JPRB,2.8323E-03_JPRB,2.5431E-03_JPRB,1.8045E-03_JPRB,1.8580E-03_JPRB,&
+ & 2.5230E-03_JPRB,2.7784E-03_JPRB,5.4225E-04_JPRB/)  
+KAO( :, 4, 6, 5) = (/&
+ & 2.8457E-03_JPRB,3.0707E-03_JPRB,3.0040E-03_JPRB,2.8313E-03_JPRB,2.4304E-03_JPRB,1.8757E-03_JPRB,&
+ & 2.4280E-03_JPRB,2.8457E-03_JPRB,6.6880E-04_JPRB/)  
+KAO( :, 5, 6, 5) = (/&
+ & 2.9149E-03_JPRB,3.2145E-03_JPRB,3.1791E-03_JPRB,3.0927E-03_JPRB,2.8718E-03_JPRB,2.5020E-03_JPRB,&
+ & 2.4114E-03_JPRB,2.9149E-03_JPRB,8.2090E-04_JPRB/)  
+KAO( :, 1, 7, 5) = (/&
+ & 2.3167E-03_JPRB,2.2952E-03_JPRB,2.0696E-03_JPRB,1.1773E-03_JPRB,1.4001E-03_JPRB,1.6742E-03_JPRB,&
+ & 2.1113E-03_JPRB,2.3167E-03_JPRB,3.6556E-04_JPRB/)  
+KAO( :, 2, 7, 5) = (/&
+ & 2.3617E-03_JPRB,2.3995E-03_JPRB,2.2278E-03_JPRB,1.7561E-03_JPRB,1.2221E-03_JPRB,1.7039E-03_JPRB,&
+ & 1.9252E-03_JPRB,2.3617E-03_JPRB,4.2264E-04_JPRB/)  
+KAO( :, 3, 7, 5) = (/&
+ & 2.4125E-03_JPRB,2.5066E-03_JPRB,2.3818E-03_JPRB,2.0804E-03_JPRB,1.2642E-03_JPRB,1.6328E-03_JPRB,&
+ & 2.0160E-03_JPRB,2.4124E-03_JPRB,4.9466E-04_JPRB/)  
+KAO( :, 4, 7, 5) = (/&
+ & 2.4726E-03_JPRB,2.6189E-03_JPRB,2.5346E-03_JPRB,2.3337E-03_JPRB,1.9285E-03_JPRB,1.5396E-03_JPRB,&
+ & 2.2851E-03_JPRB,2.4726E-03_JPRB,5.8211E-04_JPRB/)  
+KAO( :, 5, 7, 5) = (/&
+ & 2.5348E-03_JPRB,2.7473E-03_JPRB,2.6870E-03_JPRB,2.5696E-03_JPRB,2.3235E-03_JPRB,1.8153E-03_JPRB,&
+ & 1.9526E-03_JPRB,2.5348E-03_JPRB,6.8811E-04_JPRB/)  
+KAO( :, 1, 8, 5) = (/&
+ & 1.9955E-03_JPRB,1.9488E-03_JPRB,1.7343E-03_JPRB,8.5576E-04_JPRB,1.2169E-03_JPRB,1.3982E-03_JPRB,&
+ & 1.8806E-03_JPRB,1.9955E-03_JPRB,5.8425E-04_JPRB/)  
+KAO( :, 2, 8, 5) = (/&
+ & 2.0363E-03_JPRB,2.0385E-03_JPRB,1.8715E-03_JPRB,1.3678E-03_JPRB,1.1488E-03_JPRB,1.3583E-03_JPRB,&
+ & 1.6630E-03_JPRB,2.0363E-03_JPRB,6.4943E-04_JPRB/)  
+KAO( :, 3, 8, 5) = (/&
+ & 2.0848E-03_JPRB,2.1355E-03_JPRB,2.0016E-03_JPRB,1.7099E-03_JPRB,1.0490E-03_JPRB,1.3612E-03_JPRB,&
+ & 1.5304E-03_JPRB,2.0848E-03_JPRB,7.2039E-04_JPRB/)  
+KAO( :, 4, 8, 5) = (/&
+ & 2.1402E-03_JPRB,2.2347E-03_JPRB,2.1377E-03_JPRB,1.9281E-03_JPRB,1.4576E-03_JPRB,1.3615E-03_JPRB,&
+ & 1.7494E-03_JPRB,2.1402E-03_JPRB,7.9144E-04_JPRB/)  
+KAO( :, 5, 8, 5) = (/&
+ & 2.1918E-03_JPRB,2.3439E-03_JPRB,2.2739E-03_JPRB,2.1323E-03_JPRB,1.8701E-03_JPRB,1.4117E-03_JPRB,&
+ & 1.6694E-03_JPRB,2.1918E-03_JPRB,8.7428E-04_JPRB/)  
+KAO( :, 1, 9, 5) = (/&
+ & 1.7089E-03_JPRB,1.6461E-03_JPRB,1.4363E-03_JPRB,6.6011E-04_JPRB,1.0235E-03_JPRB,1.2576E-03_JPRB,&
+ & 1.6021E-03_JPRB,1.7089E-03_JPRB,2.1905E-03_JPRB/)  
+KAO( :, 2, 9, 5) = (/&
+ & 1.7449E-03_JPRB,1.7240E-03_JPRB,1.5611E-03_JPRB,9.5939E-04_JPRB,1.0171E-03_JPRB,1.0930E-03_JPRB,&
+ & 1.4980E-03_JPRB,1.7449E-03_JPRB,2.3032E-03_JPRB/)  
+KAO( :, 3, 9, 5) = (/&
+ & 1.7892E-03_JPRB,1.8095E-03_JPRB,1.6779E-03_JPRB,1.3700E-03_JPRB,8.8733E-04_JPRB,1.1976E-03_JPRB,&
+ & 1.2362E-03_JPRB,1.7892E-03_JPRB,2.4285E-03_JPRB/)  
+KAO( :, 4, 9, 5) = (/&
+ & 1.8369E-03_JPRB,1.8975E-03_JPRB,1.7975E-03_JPRB,1.5888E-03_JPRB,1.0202E-03_JPRB,1.1883E-03_JPRB,&
+ & 1.3430E-03_JPRB,1.8369E-03_JPRB,2.5680E-03_JPRB/)  
+KAO( :, 5, 9, 5) = (/&
+ & 1.8812E-03_JPRB,1.9874E-03_JPRB,1.9123E-03_JPRB,1.7614E-03_JPRB,1.4649E-03_JPRB,1.1491E-03_JPRB,&
+ & 1.5713E-03_JPRB,1.8812E-03_JPRB,2.7221E-03_JPRB/)  
+KAO( :, 1,10, 5) = (/&
+ & 1.4572E-03_JPRB,1.3868E-03_JPRB,1.1826E-03_JPRB,6.2346E-04_JPRB,8.6762E-04_JPRB,1.0836E-03_JPRB,&
+ & 1.3348E-03_JPRB,1.4572E-03_JPRB,1.2658E-02_JPRB/)  
+KAO( :, 2,10, 5) = (/&
+ & 1.4886E-03_JPRB,1.4531E-03_JPRB,1.3004E-03_JPRB,6.9239E-04_JPRB,8.6868E-04_JPRB,9.6168E-04_JPRB,&
+ & 1.2569E-03_JPRB,1.4886E-03_JPRB,1.3059E-02_JPRB/)  
+KAO( :, 3,10, 5) = (/&
+ & 1.5264E-03_JPRB,1.5274E-03_JPRB,1.4051E-03_JPRB,1.0747E-03_JPRB,7.7218E-04_JPRB,9.7410E-04_JPRB,&
+ & 1.0859E-03_JPRB,1.5264E-03_JPRB,1.3449E-02_JPRB/)  
+KAO( :, 4,10, 5) = (/&
+ & 1.5664E-03_JPRB,1.6018E-03_JPRB,1.5021E-03_JPRB,1.3016E-03_JPRB,7.5442E-04_JPRB,1.0421E-03_JPRB,&
+ & 1.0986E-03_JPRB,1.5664E-03_JPRB,1.3823E-02_JPRB/)  
+KAO( :, 5,10, 5) = (/&
+ & 1.6039E-03_JPRB,1.6782E-03_JPRB,1.6029E-03_JPRB,1.4558E-03_JPRB,1.1428E-03_JPRB,9.8459E-04_JPRB,&
+ & 1.2311E-03_JPRB,1.6039E-03_JPRB,1.4197E-02_JPRB/)  
+KAO( :, 1,11, 5) = (/&
+ & 1.2517E-03_JPRB,1.1909E-03_JPRB,1.0253E-03_JPRB,4.8905E-04_JPRB,7.3597E-04_JPRB,9.0427E-04_JPRB,&
+ & 1.2588E-03_JPRB,1.2517E-03_JPRB,2.8270E-02_JPRB/)  
+KAO( :, 2,11, 5) = (/&
+ & 1.2817E-03_JPRB,1.2489E-03_JPRB,1.1208E-03_JPRB,6.0287E-04_JPRB,7.2254E-04_JPRB,8.2946E-04_JPRB,&
+ & 1.0205E-03_JPRB,1.2817E-03_JPRB,2.9032E-02_JPRB/)  
+KAO( :, 3,11, 5) = (/&
+ & 1.3127E-03_JPRB,1.3112E-03_JPRB,1.2059E-03_JPRB,9.4181E-04_JPRB,6.2131E-04_JPRB,8.6171E-04_JPRB,&
+ & 8.9101E-04_JPRB,1.3127E-03_JPRB,2.9698E-02_JPRB/)  
+KAO( :, 4,11, 5) = (/&
+ & 1.3452E-03_JPRB,1.3741E-03_JPRB,1.2883E-03_JPRB,1.1215E-03_JPRB,6.5766E-04_JPRB,8.7354E-04_JPRB,&
+ & 9.3021E-04_JPRB,1.3452E-03_JPRB,3.0336E-02_JPRB/)  
+KAO( :, 5,11, 5) = (/&
+ & 1.3753E-03_JPRB,1.4371E-03_JPRB,1.3746E-03_JPRB,1.2547E-03_JPRB,9.9517E-04_JPRB,7.9857E-04_JPRB,&
+ & 1.0959E-03_JPRB,1.3753E-03_JPRB,3.0956E-02_JPRB/)  
+KAO( :, 1,12, 5) = (/&
+ & 1.0733E-03_JPRB,1.0215E-03_JPRB,8.8454E-04_JPRB,3.9006E-04_JPRB,6.2359E-04_JPRB,7.4085E-04_JPRB,&
+ & 1.0395E-03_JPRB,1.0733E-03_JPRB,4.0158E-02_JPRB/)  
+KAO( :, 2,12, 5) = (/&
+ & 1.0987E-03_JPRB,1.0703E-03_JPRB,9.6221E-04_JPRB,5.3528E-04_JPRB,5.8115E-04_JPRB,7.1438E-04_JPRB,&
+ & 8.3203E-04_JPRB,1.0987E-03_JPRB,4.1196E-02_JPRB/)  
+KAO( :, 3,12, 5) = (/&
+ & 1.1257E-03_JPRB,1.1222E-03_JPRB,1.0309E-03_JPRB,8.1291E-04_JPRB,4.9033E-04_JPRB,7.2341E-04_JPRB,&
+ & 7.5536E-04_JPRB,1.1257E-03_JPRB,4.2149E-02_JPRB/)  
+KAO( :, 4,12, 5) = (/&
+ & 1.1520E-03_JPRB,1.1737E-03_JPRB,1.0999E-03_JPRB,9.6654E-04_JPRB,5.7890E-04_JPRB,6.9991E-04_JPRB,&
+ & 7.9257E-04_JPRB,1.1520E-03_JPRB,4.3060E-02_JPRB/)  
+KAO( :, 5,12, 5) = (/&
+ & 1.1770E-03_JPRB,1.2266E-03_JPRB,1.1727E-03_JPRB,1.0746E-03_JPRB,8.6506E-04_JPRB,6.5737E-04_JPRB,&
+ & 9.1851E-04_JPRB,1.1770E-03_JPRB,4.3899E-02_JPRB/)  
+KAO( :, 1,13, 5) = (/&
+ & 9.1723E-04_JPRB,8.7340E-04_JPRB,7.5855E-04_JPRB,3.3160E-04_JPRB,5.1898E-04_JPRB,6.0675E-04_JPRB,&
+ & 8.3666E-04_JPRB,9.1723E-04_JPRB,4.5805E-02_JPRB/)  
+KAO( :, 2,13, 5) = (/&
+ & 9.3894E-04_JPRB,9.1416E-04_JPRB,8.2179E-04_JPRB,4.8369E-04_JPRB,4.6977E-04_JPRB,6.3046E-04_JPRB,&
+ & 6.9917E-04_JPRB,9.3894E-04_JPRB,4.7104E-02_JPRB/)  
+KAO( :, 3,13, 5) = (/&
+ & 9.6174E-04_JPRB,9.5729E-04_JPRB,8.7932E-04_JPRB,7.0453E-04_JPRB,4.0162E-04_JPRB,5.9248E-04_JPRB,&
+ & 6.3372E-04_JPRB,9.6174E-04_JPRB,4.8249E-02_JPRB/)  
+KAO( :, 4,13, 5) = (/&
+ & 9.8438E-04_JPRB,1.0004E-03_JPRB,9.3575E-04_JPRB,8.2536E-04_JPRB,5.0557E-04_JPRB,5.5685E-04_JPRB,&
+ & 6.8082E-04_JPRB,9.8438E-04_JPRB,4.9296E-02_JPRB/)  
+KAO( :, 5,13, 5) = (/&
+ & 1.0080E-03_JPRB,1.0464E-03_JPRB,9.9862E-04_JPRB,9.1769E-04_JPRB,7.4911E-04_JPRB,5.5133E-04_JPRB,&
+ & 7.2141E-04_JPRB,1.0080E-03_JPRB,5.0236E-02_JPRB/)  
+KAO( :, 1, 1, 6) = (/&
+ & 8.5333E-03_JPRB,9.0798E-03_JPRB,9.1539E-03_JPRB,8.9379E-03_JPRB,8.0082E-03_JPRB,5.5783E-03_JPRB,&
+ & 6.6117E-03_JPRB,8.5333E-03_JPRB,2.8261E-03_JPRB/)  
+KAO( :, 2, 1, 6) = (/&
+ & 8.4109E-03_JPRB,9.3459E-03_JPRB,9.6624E-03_JPRB,9.7547E-03_JPRB,9.5796E-03_JPRB,8.4027E-03_JPRB,&
+ & 6.4961E-03_JPRB,8.4109E-03_JPRB,3.5780E-03_JPRB/)  
+KAO( :, 3, 1, 6) = (/&
+ & 8.3030E-03_JPRB,9.6326E-03_JPRB,1.0206E-02_JPRB,1.0614E-02_JPRB,1.0858E-02_JPRB,1.0462E-02_JPRB,&
+ & 9.8456E-03_JPRB,8.3030E-03_JPRB,4.4090E-03_JPRB/)  
+KAO( :, 4, 1, 6) = (/&
+ & 8.2237E-03_JPRB,9.8958E-03_JPRB,1.0796E-02_JPRB,1.1545E-02_JPRB,1.2099E-02_JPRB,1.2369E-02_JPRB,&
+ & 1.2077E-02_JPRB,8.2237E-03_JPRB,5.3050E-03_JPRB/)  
+KAO( :, 5, 1, 6) = (/&
+ & 8.1599E-03_JPRB,1.0181E-02_JPRB,1.1469E-02_JPRB,1.2490E-02_JPRB,1.3377E-02_JPRB,1.4165E-02_JPRB,&
+ & 1.4318E-02_JPRB,8.1599E-03_JPRB,6.2987E-03_JPRB/)  
+KAO( :, 1, 2, 6) = (/&
+ & 7.7094E-03_JPRB,8.1495E-03_JPRB,8.1817E-03_JPRB,7.9690E-03_JPRB,7.0574E-03_JPRB,4.6583E-03_JPRB,&
+ & 5.9458E-03_JPRB,7.7094E-03_JPRB,2.1253E-03_JPRB/)  
+KAO( :, 2, 2, 6) = (/&
+ & 7.6098E-03_JPRB,8.3857E-03_JPRB,8.6188E-03_JPRB,8.6202E-03_JPRB,8.3668E-03_JPRB,7.2354E-03_JPRB,&
+ & 5.4614E-03_JPRB,7.6098E-03_JPRB,2.6911E-03_JPRB/)  
+KAO( :, 3, 2, 6) = (/&
+ & 7.5380E-03_JPRB,8.6324E-03_JPRB,9.0696E-03_JPRB,9.3578E-03_JPRB,9.5323E-03_JPRB,9.1344E-03_JPRB,&
+ & 8.4099E-03_JPRB,7.5380E-03_JPRB,3.3283E-03_JPRB/)  
+KAO( :, 4, 2, 6) = (/&
+ & 7.4926E-03_JPRB,8.8750E-03_JPRB,9.5781E-03_JPRB,1.0164E-02_JPRB,1.0603E-02_JPRB,1.0755E-02_JPRB,&
+ & 1.0378E-02_JPRB,7.4926E-03_JPRB,4.0288E-03_JPRB/)  
+KAO( :, 5, 2, 6) = (/&
+ & 7.4775E-03_JPRB,9.1627E-03_JPRB,1.0156E-02_JPRB,1.0982E-02_JPRB,1.1695E-02_JPRB,1.2352E-02_JPRB,&
+ & 1.2667E-02_JPRB,7.4775E-03_JPRB,4.8116E-03_JPRB/)  
+KAO( :, 1, 3, 6) = (/&
+ & 6.9121E-03_JPRB,7.2188E-03_JPRB,7.1796E-03_JPRB,6.8889E-03_JPRB,5.8502E-03_JPRB,3.2278E-03_JPRB,&
+ & 4.9879E-03_JPRB,6.9121E-03_JPRB,1.5160E-03_JPRB/)  
+KAO( :, 2, 3, 6) = (/&
+ & 6.8480E-03_JPRB,7.4276E-03_JPRB,7.5203E-03_JPRB,7.4048E-03_JPRB,7.0014E-03_JPRB,5.7055E-03_JPRB,&
+ & 4.3384E-03_JPRB,6.8480E-03_JPRB,1.9279E-03_JPRB/)  
+KAO( :, 3, 3, 6) = (/&
+ & 6.8135E-03_JPRB,7.6493E-03_JPRB,7.8976E-03_JPRB,8.0141E-03_JPRB,8.0170E-03_JPRB,7.5441E-03_JPRB,&
+ & 6.5174E-03_JPRB,6.8135E-03_JPRB,2.4028E-03_JPRB/)  
+KAO( :, 4, 3, 6) = (/&
+ & 6.8122E-03_JPRB,7.8956E-03_JPRB,8.3131E-03_JPRB,8.6965E-03_JPRB,8.9952E-03_JPRB,8.9752E-03_JPRB,&
+ & 8.4882E-03_JPRB,6.8122E-03_JPRB,2.9375E-03_JPRB/)  
+KAO( :, 5, 3, 6) = (/&
+ & 6.8492E-03_JPRB,8.1657E-03_JPRB,8.7936E-03_JPRB,9.3904E-03_JPRB,9.9168E-03_JPRB,1.0345E-02_JPRB,&
+ & 1.0484E-02_JPRB,6.8492E-03_JPRB,3.5390E-03_JPRB/)  
+KAO( :, 1, 4, 6) = (/&
+ & 6.1397E-03_JPRB,6.3324E-03_JPRB,6.2269E-03_JPRB,5.8666E-03_JPRB,4.6601E-03_JPRB,2.6335E-03_JPRB,&
+ & 4.3502E-03_JPRB,6.1397E-03_JPRB,1.0676E-03_JPRB/)  
+KAO( :, 2, 4, 6) = (/&
+ & 6.1071E-03_JPRB,6.5281E-03_JPRB,6.5061E-03_JPRB,6.2987E-03_JPRB,5.7315E-03_JPRB,4.2122E-03_JPRB,&
+ & 3.5243E-03_JPRB,6.1071E-03_JPRB,1.3674E-03_JPRB/)  
+KAO( :, 3, 4, 6) = (/&
+ & 6.1173E-03_JPRB,6.7424E-03_JPRB,6.8351E-03_JPRB,6.7928E-03_JPRB,6.6355E-03_JPRB,6.0084E-03_JPRB,&
+ & 4.4111E-03_JPRB,6.1173E-03_JPRB,1.7216E-03_JPRB/)  
+KAO( :, 4, 4, 6) = (/&
+ & 6.1616E-03_JPRB,6.9850E-03_JPRB,7.2018E-03_JPRB,7.3533E-03_JPRB,7.4639E-03_JPRB,7.3054E-03_JPRB,&
+ & 6.7355E-03_JPRB,6.1616E-03_JPRB,2.1295E-03_JPRB/)  
+KAO( :, 5, 4, 6) = (/&
+ & 6.2327E-03_JPRB,7.2498E-03_JPRB,7.6166E-03_JPRB,7.9404E-03_JPRB,8.2799E-03_JPRB,8.5196E-03_JPRB,&
+ & 8.4780E-03_JPRB,6.2327E-03_JPRB,2.5893E-03_JPRB/)  
+KAO( :, 1, 5, 6) = (/&
+ & 5.4116E-03_JPRB,5.5054E-03_JPRB,5.3551E-03_JPRB,4.9387E-03_JPRB,3.4030E-03_JPRB,2.3925E-03_JPRB,&
+ & 3.5026E-03_JPRB,5.4116E-03_JPRB,7.5991E-04_JPRB/)  
+KAO( :, 2, 5, 6) = (/&
+ & 5.4112E-03_JPRB,5.7013E-03_JPRB,5.6024E-03_JPRB,5.3215E-03_JPRB,4.5735E-03_JPRB,2.7843E-03_JPRB,&
+ & 3.3021E-03_JPRB,5.4112E-03_JPRB,9.7889E-04_JPRB/)  
+KAO( :, 3, 5, 6) = (/&
+ & 5.4571E-03_JPRB,5.9124E-03_JPRB,5.8939E-03_JPRB,5.7468E-03_JPRB,5.4242E-03_JPRB,4.5784E-03_JPRB,&
+ & 3.1711E-03_JPRB,5.4571E-03_JPRB,1.2420E-03_JPRB/)  
+KAO( :, 4, 5, 6) = (/&
+ & 5.5303E-03_JPRB,6.1539E-03_JPRB,6.2322E-03_JPRB,6.2166E-03_JPRB,6.1395E-03_JPRB,5.8002E-03_JPRB,&
+ & 5.0694E-03_JPRB,5.5303E-03_JPRB,1.5508E-03_JPRB/)  
+KAO( :, 5, 5, 6) = (/&
+ & 5.6126E-03_JPRB,6.4231E-03_JPRB,6.6120E-03_JPRB,6.7193E-03_JPRB,6.8307E-03_JPRB,6.8747E-03_JPRB,&
+ & 6.7129E-03_JPRB,5.6126E-03_JPRB,1.9069E-03_JPRB/)  
+KAO( :, 1, 6, 6) = (/&
+ & 4.7396E-03_JPRB,4.7463E-03_JPRB,4.5518E-03_JPRB,4.0433E-03_JPRB,2.2638E-03_JPRB,2.3141E-03_JPRB,&
+ & 2.8805E-03_JPRB,4.7396E-03_JPRB,5.6698E-04_JPRB/)  
+KAO( :, 2, 6, 6) = (/&
+ & 4.7673E-03_JPRB,4.9357E-03_JPRB,4.7801E-03_JPRB,4.4457E-03_JPRB,3.5304E-03_JPRB,1.8920E-03_JPRB,&
+ & 2.9747E-03_JPRB,4.7673E-03_JPRB,7.2146E-04_JPRB/)  
+KAO( :, 3, 6, 6) = (/&
+ & 4.8326E-03_JPRB,5.1460E-03_JPRB,5.0538E-03_JPRB,4.8362E-03_JPRB,4.3455E-03_JPRB,3.2638E-03_JPRB,&
+ & 2.4492E-03_JPRB,4.8326E-03_JPRB,9.1393E-04_JPRB/)  
+KAO( :, 4, 6, 6) = (/&
+ & 4.9138E-03_JPRB,5.3898E-03_JPRB,5.3670E-03_JPRB,5.2448E-03_JPRB,5.0135E-03_JPRB,4.4890E-03_JPRB,&
+ & 3.4781E-03_JPRB,4.9137E-03_JPRB,1.1441E-03_JPRB/)  
+KAO( :, 5, 6, 6) = (/&
+ & 5.0007E-03_JPRB,5.6605E-03_JPRB,5.7246E-03_JPRB,5.6834E-03_JPRB,5.6159E-03_JPRB,5.4449E-03_JPRB,&
+ & 5.0343E-03_JPRB,5.0007E-03_JPRB,1.4139E-03_JPRB/)  
+KAO( :, 1, 7, 6) = (/&
+ & 4.1378E-03_JPRB,4.0754E-03_JPRB,3.8389E-03_JPRB,3.2475E-03_JPRB,1.4857E-03_JPRB,2.1025E-03_JPRB,&
+ & 2.2984E-03_JPRB,4.1378E-03_JPRB,5.2481E-04_JPRB/)  
+KAO( :, 2, 7, 6) = (/&
+ & 4.1822E-03_JPRB,4.2521E-03_JPRB,4.0570E-03_JPRB,3.6688E-03_JPRB,2.5306E-03_JPRB,1.4831E-03_JPRB,&
+ & 2.6067E-03_JPRB,4.1822E-03_JPRB,6.3111E-04_JPRB/)  
+KAO( :, 3, 7, 6) = (/&
+ & 4.2509E-03_JPRB,4.4583E-03_JPRB,4.3081E-03_JPRB,4.0486E-03_JPRB,3.4473E-03_JPRB,2.1091E-03_JPRB,&
+ & 1.9768E-03_JPRB,4.2509E-03_JPRB,7.6397E-04_JPRB/)  
+KAO( :, 4, 7, 6) = (/&
+ & 4.3334E-03_JPRB,4.6876E-03_JPRB,4.6037E-03_JPRB,4.4308E-03_JPRB,4.0651E-03_JPRB,3.3647E-03_JPRB,&
+ & 2.1587E-03_JPRB,4.3334E-03_JPRB,9.2876E-04_JPRB/)  
+KAO( :, 5, 7, 6) = (/&
+ & 4.4225E-03_JPRB,4.9342E-03_JPRB,4.9410E-03_JPRB,4.8191E-03_JPRB,4.6280E-03_JPRB,4.2870E-03_JPRB,&
+ & 3.6120E-03_JPRB,4.4226E-03_JPRB,1.1252E-03_JPRB/)  
+KAO( :, 1, 8, 6) = (/&
+ & 3.6094E-03_JPRB,3.5033E-03_JPRB,3.2400E-03_JPRB,2.6287E-03_JPRB,9.9863E-04_JPRB,1.7500E-03_JPRB,&
+ & 1.8960E-03_JPRB,3.6094E-03_JPRB,8.2600E-04_JPRB/)  
+KAO( :, 2, 8, 6) = (/&
+ & 3.6637E-03_JPRB,3.6642E-03_JPRB,3.4430E-03_JPRB,3.0211E-03_JPRB,1.7119E-03_JPRB,1.3558E-03_JPRB,&
+ & 2.1462E-03_JPRB,3.6637E-03_JPRB,9.0812E-04_JPRB/)  
+KAO( :, 3, 8, 6) = (/&
+ & 3.7354E-03_JPRB,3.8451E-03_JPRB,3.6742E-03_JPRB,3.3691E-03_JPRB,2.6819E-03_JPRB,1.3910E-03_JPRB,&
+ & 1.9474E-03_JPRB,3.7354E-03_JPRB,1.0101E-03_JPRB/)  
+KAO( :, 4, 8, 6) = (/&
+ & 3.8119E-03_JPRB,4.0509E-03_JPRB,3.9304E-03_JPRB,3.7228E-03_JPRB,3.3248E-03_JPRB,2.3768E-03_JPRB,&
+ & 1.6650E-03_JPRB,3.8120E-03_JPRB,1.1353E-03_JPRB/)  
+KAO( :, 5, 8, 6) = (/&
+ & 3.8974E-03_JPRB,4.2692E-03_JPRB,4.2189E-03_JPRB,4.0809E-03_JPRB,3.8147E-03_JPRB,3.3186E-03_JPRB,&
+ & 2.4419E-03_JPRB,3.8974E-03_JPRB,1.2742E-03_JPRB/)  
+KAO( :, 1, 9, 6) = (/&
+ & 3.1509E-03_JPRB,3.0135E-03_JPRB,2.7414E-03_JPRB,2.0848E-03_JPRB,8.0225E-04_JPRB,1.3860E-03_JPRB,&
+ & 1.6095E-03_JPRB,3.1509E-03_JPRB,3.2874E-03_JPRB/)  
+KAO( :, 2, 9, 6) = (/&
+ & 3.2069E-03_JPRB,3.1552E-03_JPRB,2.9300E-03_JPRB,2.5120E-03_JPRB,1.1882E-03_JPRB,1.2244E-03_JPRB,&
+ & 1.8134E-03_JPRB,3.2069E-03_JPRB,3.4426E-03_JPRB/)  
+KAO( :, 3, 9, 6) = (/&
+ & 3.2779E-03_JPRB,3.3142E-03_JPRB,3.1292E-03_JPRB,2.8177E-03_JPRB,2.0556E-03_JPRB,1.0032E-03_JPRB,&
+ & 1.7964E-03_JPRB,3.2779E-03_JPRB,3.6002E-03_JPRB/)  
+KAO( :, 4, 9, 6) = (/&
+ & 3.3512E-03_JPRB,3.4918E-03_JPRB,3.3477E-03_JPRB,3.1214E-03_JPRB,2.7090E-03_JPRB,1.5625E-03_JPRB,&
+ & 1.3565E-03_JPRB,3.3512E-03_JPRB,3.7586E-03_JPRB/)  
+KAO( :, 5, 9, 6) = (/&
+ & 3.4301E-03_JPRB,3.6852E-03_JPRB,3.5951E-03_JPRB,3.4314E-03_JPRB,3.1547E-03_JPRB,2.5504E-03_JPRB,&
+ & 1.5207E-03_JPRB,3.4301E-03_JPRB,3.9312E-03_JPRB/)  
+KAO( :, 1,10, 6) = (/&
+ & 2.7434E-03_JPRB,2.5990E-03_JPRB,2.3418E-03_JPRB,1.5988E-03_JPRB,7.7035E-04_JPRB,1.2159E-03_JPRB,&
+ & 1.3978E-03_JPRB,2.7434E-03_JPRB,2.0046E-02_JPRB/)  
+KAO( :, 2,10, 6) = (/&
+ & 2.7987E-03_JPRB,2.7245E-03_JPRB,2.5022E-03_JPRB,2.1126E-03_JPRB,8.9708E-04_JPRB,1.0763E-03_JPRB,&
+ & 1.5093E-03_JPRB,2.7987E-03_JPRB,2.0516E-02_JPRB/)  
+KAO( :, 3,10, 6) = (/&
+ & 2.8639E-03_JPRB,2.8623E-03_JPRB,2.6825E-03_JPRB,2.3837E-03_JPRB,1.5791E-03_JPRB,8.7614E-04_JPRB,&
+ & 1.4149E-03_JPRB,2.8639E-03_JPRB,2.0938E-02_JPRB/)  
+KAO( :, 4,10, 6) = (/&
+ & 2.9341E-03_JPRB,3.0198E-03_JPRB,2.8777E-03_JPRB,2.6425E-03_JPRB,2.2095E-03_JPRB,1.1197E-03_JPRB,&
+ & 1.2062E-03_JPRB,2.9342E-03_JPRB,2.1345E-02_JPRB/)  
+KAO( :, 5,10, 6) = (/&
+ & 3.0129E-03_JPRB,3.1899E-03_JPRB,3.0825E-03_JPRB,2.9045E-03_JPRB,2.6201E-03_JPRB,1.9654E-03_JPRB,&
+ & 1.1926E-03_JPRB,3.0129E-03_JPRB,2.1744E-02_JPRB/)  
+KAO( :, 1,11, 6) = (/&
+ & 2.3930E-03_JPRB,2.2760E-03_JPRB,2.0475E-03_JPRB,1.4917E-03_JPRB,6.1519E-04_JPRB,9.5739E-04_JPRB,&
+ & 1.2117E-03_JPRB,2.3930E-03_JPRB,4.6010E-02_JPRB/)  
+KAO( :, 2,11, 6) = (/&
+ & 2.4495E-03_JPRB,2.3897E-03_JPRB,2.1964E-03_JPRB,1.8774E-03_JPRB,8.8795E-04_JPRB,8.5785E-04_JPRB,&
+ & 1.2212E-03_JPRB,2.4495E-03_JPRB,4.7118E-02_JPRB/)  
+KAO( :, 3,11, 6) = (/&
+ & 2.5108E-03_JPRB,2.5149E-03_JPRB,2.3607E-03_JPRB,2.1179E-03_JPRB,1.5063E-03_JPRB,7.2487E-04_JPRB,&
+ & 1.1617E-03_JPRB,2.5108E-03_JPRB,4.8044E-02_JPRB/)  
+KAO( :, 4,11, 6) = (/&
+ & 2.5797E-03_JPRB,2.6613E-03_JPRB,2.5391E-03_JPRB,2.3353E-03_JPRB,1.9791E-03_JPRB,1.1049E-03_JPRB,&
+ & 9.4883E-04_JPRB,2.5797E-03_JPRB,4.8805E-02_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART4',1,ZHOOK_HANDLE)
+END SUBROUTINE PART4
+
+
+SUBROUTINE PART5
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART5',0,ZHOOK_HANDLE)
+
+
+KAO( :, 5,11, 6) = (/&
+ & 2.6499E-03_JPRB,2.8182E-03_JPRB,2.7229E-03_JPRB,2.5580E-03_JPRB,2.3142E-03_JPRB,1.8079E-03_JPRB,&
+ & 1.0035E-03_JPRB,2.6499E-03_JPRB,4.9391E-02_JPRB/)  
+KAO( :, 1,12, 6) = (/&
+ & 2.0746E-03_JPRB,1.9783E-03_JPRB,1.7801E-03_JPRB,1.3556E-03_JPRB,4.8267E-04_JPRB,8.1463E-04_JPRB,&
+ & 1.0185E-03_JPRB,2.0746E-03_JPRB,6.7547E-02_JPRB/)  
+KAO( :, 2,12, 6) = (/&
+ & 2.1273E-03_JPRB,2.0770E-03_JPRB,1.9105E-03_JPRB,1.6481E-03_JPRB,8.3724E-04_JPRB,7.1683E-04_JPRB,&
+ & 1.0103E-03_JPRB,2.1273E-03_JPRB,6.9266E-02_JPRB/)  
+KAO( :, 3,12, 6) = (/&
+ & 2.1844E-03_JPRB,2.1915E-03_JPRB,2.0594E-03_JPRB,1.8587E-03_JPRB,1.3892E-03_JPRB,6.4751E-04_JPRB,&
+ & 9.5728E-04_JPRB,2.1844E-03_JPRB,7.0619E-02_JPRB/)  
+KAO( :, 4,12, 6) = (/&
+ & 2.2441E-03_JPRB,2.3226E-03_JPRB,2.2206E-03_JPRB,2.0453E-03_JPRB,1.7491E-03_JPRB,1.0405E-03_JPRB,&
+ & 7.8138E-04_JPRB,2.2441E-03_JPRB,7.1602E-02_JPRB/)  
+KAO( :, 5,12, 6) = (/&
+ & 2.3050E-03_JPRB,2.4598E-03_JPRB,2.3822E-03_JPRB,2.2381E-03_JPRB,2.0304E-03_JPRB,1.6325E-03_JPRB,&
+ & 9.2438E-04_JPRB,2.3050E-03_JPRB,7.2303E-02_JPRB/)  
+KAO( :, 1,13, 6) = (/&
+ & 1.7883E-03_JPRB,1.7065E-03_JPRB,1.5374E-03_JPRB,1.2007E-03_JPRB,4.3025E-04_JPRB,6.7590E-04_JPRB,&
+ & 8.1885E-04_JPRB,1.7883E-03_JPRB,7.9860E-02_JPRB/)  
+KAO( :, 2,13, 6) = (/&
+ & 1.8363E-03_JPRB,1.7948E-03_JPRB,1.6528E-03_JPRB,1.4324E-03_JPRB,7.6774E-04_JPRB,6.2246E-04_JPRB,&
+ & 8.1329E-04_JPRB,1.8363E-03_JPRB,8.1807E-02_JPRB/)  
+KAO( :, 3,13, 6) = (/&
+ & 1.8869E-03_JPRB,1.8960E-03_JPRB,1.7818E-03_JPRB,1.6095E-03_JPRB,1.2397E-03_JPRB,5.6950E-04_JPRB,&
+ & 8.2318E-04_JPRB,1.8869E-03_JPRB,8.3291E-02_JPRB/)  
+KAO( :, 4,13, 6) = (/&
+ & 1.9378E-03_JPRB,2.0074E-03_JPRB,1.9206E-03_JPRB,1.7755E-03_JPRB,1.5322E-03_JPRB,9.5845E-04_JPRB,&
+ & 6.9708E-04_JPRB,1.9378E-03_JPRB,8.4416E-02_JPRB/)  
+KAO( :, 5,13, 6) = (/&
+ & 1.9900E-03_JPRB,2.1258E-03_JPRB,2.0644E-03_JPRB,1.9405E-03_JPRB,1.7651E-03_JPRB,1.4419E-03_JPRB,&
+ & 8.3688E-04_JPRB,1.9900E-03_JPRB,8.5292E-02_JPRB/)  
+KAO( :, 1, 1, 7) = (/&
+ & 1.6473E-02_JPRB,1.6639E-02_JPRB,1.6620E-02_JPRB,1.6044E-02_JPRB,1.5024E-02_JPRB,1.3187E-02_JPRB,&
+ & 7.6213E-03_JPRB,1.6473E-02_JPRB,5.9369E-03_JPRB/)  
+KAO( :, 2, 1, 7) = (/&
+ & 1.6283E-02_JPRB,1.7319E-02_JPRB,1.7601E-02_JPRB,1.7371E-02_JPRB,1.6714E-02_JPRB,1.5606E-02_JPRB,&
+ & 1.2675E-02_JPRB,1.6283E-02_JPRB,7.5309E-03_JPRB/)  
+KAO( :, 3, 1, 7) = (/&
+ & 1.6044E-02_JPRB,1.7939E-02_JPRB,1.8616E-02_JPRB,1.8736E-02_JPRB,1.8509E-02_JPRB,1.7932E-02_JPRB,&
+ & 1.6316E-02_JPRB,1.6044E-02_JPRB,9.3034E-03_JPRB/)  
+KAO( :, 4, 1, 7) = (/&
+ & 1.5780E-02_JPRB,1.8566E-02_JPRB,1.9707E-02_JPRB,2.0218E-02_JPRB,2.0468E-02_JPRB,2.0392E-02_JPRB,&
+ & 2.0221E-02_JPRB,1.5780E-02_JPRB,1.1241E-02_JPRB/)  
+KAO( :, 5, 1, 7) = (/&
+ & 1.5514E-02_JPRB,1.9239E-02_JPRB,2.0866E-02_JPRB,2.1848E-02_JPRB,2.2518E-02_JPRB,2.2938E-02_JPRB,&
+ & 2.4338E-02_JPRB,1.5514E-02_JPRB,1.3369E-02_JPRB/)  
+KAO( :, 1, 2, 7) = (/&
+ & 1.5534E-02_JPRB,1.5698E-02_JPRB,1.5655E-02_JPRB,1.5068E-02_JPRB,1.4135E-02_JPRB,1.2270E-02_JPRB,&
+ & 7.4181E-03_JPRB,1.5534E-02_JPRB,4.4640E-03_JPRB/)  
+KAO( :, 2, 2, 7) = (/&
+ & 1.5342E-02_JPRB,1.6324E-02_JPRB,1.6590E-02_JPRB,1.6353E-02_JPRB,1.5831E-02_JPRB,1.4815E-02_JPRB,&
+ & 1.2543E-02_JPRB,1.5342E-02_JPRB,5.6970E-03_JPRB/)  
+KAO( :, 3, 2, 7) = (/&
+ & 1.5098E-02_JPRB,1.6904E-02_JPRB,1.7545E-02_JPRB,1.7691E-02_JPRB,1.7497E-02_JPRB,1.7085E-02_JPRB,&
+ & 1.5776E-02_JPRB,1.5098E-02_JPRB,7.0876E-03_JPRB/)  
+KAO( :, 4, 2, 7) = (/&
+ & 1.4834E-02_JPRB,1.7491E-02_JPRB,1.8583E-02_JPRB,1.9136E-02_JPRB,1.9381E-02_JPRB,1.9396E-02_JPRB,&
+ & 1.8919E-02_JPRB,1.4834E-02_JPRB,8.6392E-03_JPRB/)  
+KAO( :, 5, 2, 7) = (/&
+ & 1.4582E-02_JPRB,1.8087E-02_JPRB,1.9710E-02_JPRB,2.0699E-02_JPRB,2.1415E-02_JPRB,2.1844E-02_JPRB,&
+ & 2.2101E-02_JPRB,1.4582E-02_JPRB,1.0344E-02_JPRB/)  
+KAO( :, 1, 3, 7) = (/&
+ & 1.4379E-02_JPRB,1.4400E-02_JPRB,1.4273E-02_JPRB,1.3714E-02_JPRB,1.2774E-02_JPRB,1.0758E-02_JPRB,&
+ & 5.9221E-03_JPRB,1.4379E-02_JPRB,3.1627E-03_JPRB/)  
+KAO( :, 2, 3, 7) = (/&
+ & 1.4181E-02_JPRB,1.4962E-02_JPRB,1.5204E-02_JPRB,1.4906E-02_JPRB,1.4357E-02_JPRB,1.3275E-02_JPRB,&
+ & 1.0750E-02_JPRB,1.4181E-02_JPRB,4.0720E-03_JPRB/)  
+KAO( :, 3, 3, 7) = (/&
+ & 1.3955E-02_JPRB,1.5485E-02_JPRB,1.6078E-02_JPRB,1.6124E-02_JPRB,1.5928E-02_JPRB,1.5419E-02_JPRB,&
+ & 1.4145E-02_JPRB,1.3955E-02_JPRB,5.1227E-03_JPRB/)  
+KAO( :, 4, 3, 7) = (/&
+ & 1.3715E-02_JPRB,1.6019E-02_JPRB,1.7011E-02_JPRB,1.7443E-02_JPRB,1.7601E-02_JPRB,1.7599E-02_JPRB,&
+ & 1.7151E-02_JPRB,1.3715E-02_JPRB,6.3251E-03_JPRB/)  
+KAO( :, 5, 3, 7) = (/&
+ & 1.3488E-02_JPRB,1.6566E-02_JPRB,1.8015E-02_JPRB,1.8885E-02_JPRB,1.9466E-02_JPRB,1.9880E-02_JPRB,&
+ & 1.9891E-02_JPRB,1.3488E-02_JPRB,7.6362E-03_JPRB/)  
+KAO( :, 1, 4, 7) = (/&
+ & 1.3100E-02_JPRB,1.2948E-02_JPRB,1.2709E-02_JPRB,1.2152E-02_JPRB,1.1211E-02_JPRB,8.9540E-03_JPRB,&
+ & 3.9235E-03_JPRB,1.3100E-02_JPRB,2.2077E-03_JPRB/)  
+KAO( :, 2, 4, 7) = (/&
+ & 1.2922E-02_JPRB,1.3421E-02_JPRB,1.3563E-02_JPRB,1.3273E-02_JPRB,1.2687E-02_JPRB,1.1465E-02_JPRB,&
+ & 8.5932E-03_JPRB,1.2922E-02_JPRB,2.8908E-03_JPRB/)  
+KAO( :, 3, 4, 7) = (/&
+ & 1.2710E-02_JPRB,1.3886E-02_JPRB,1.4373E-02_JPRB,1.4371E-02_JPRB,1.4080E-02_JPRB,1.3407E-02_JPRB,&
+ & 1.1985E-02_JPRB,1.2710E-02_JPRB,3.6760E-03_JPRB/)  
+KAO( :, 4, 4, 7) = (/&
+ & 1.2510E-02_JPRB,1.4373E-02_JPRB,1.5200E-02_JPRB,1.5503E-02_JPRB,1.5542E-02_JPRB,1.5364E-02_JPRB,&
+ & 1.4835E-02_JPRB,1.2510E-02_JPRB,4.5891E-03_JPRB/)  
+KAO( :, 5, 4, 7) = (/&
+ & 1.2325E-02_JPRB,1.4885E-02_JPRB,1.6099E-02_JPRB,1.6758E-02_JPRB,1.7169E-02_JPRB,1.7435E-02_JPRB,&
+ & 1.7471E-02_JPRB,1.2325E-02_JPRB,5.6179E-03_JPRB/)  
+KAO( :, 1, 5, 7) = (/&
+ & 1.1785E-02_JPRB,1.1507E-02_JPRB,1.1168E-02_JPRB,1.0600E-02_JPRB,9.6507E-03_JPRB,6.9414E-03_JPRB,&
+ & 2.9345E-03_JPRB,1.1785E-02_JPRB,1.5496E-03_JPRB/)  
+KAO( :, 2, 5, 7) = (/&
+ & 1.1618E-02_JPRB,1.1886E-02_JPRB,1.1906E-02_JPRB,1.1601E-02_JPRB,1.1008E-02_JPRB,9.7482E-03_JPRB,&
+ & 6.3716E-03_JPRB,1.1618E-02_JPRB,2.0513E-03_JPRB/)  
+KAO( :, 3, 5, 7) = (/&
+ & 1.1447E-02_JPRB,1.2288E-02_JPRB,1.2620E-02_JPRB,1.2540E-02_JPRB,1.2196E-02_JPRB,1.1475E-02_JPRB,&
+ & 9.8448E-03_JPRB,1.1447E-02_JPRB,2.6474E-03_JPRB/)  
+KAO( :, 4, 5, 7) = (/&
+ & 1.1293E-02_JPRB,1.2719E-02_JPRB,1.3350E-02_JPRB,1.3509E-02_JPRB,1.3472E-02_JPRB,1.3207E-02_JPRB,&
+ & 1.2517E-02_JPRB,1.1293E-02_JPRB,3.3414E-03_JPRB/)  
+KAO( :, 5, 5, 7) = (/&
+ & 1.1183E-02_JPRB,1.3178E-02_JPRB,1.4123E-02_JPRB,1.4583E-02_JPRB,1.4883E-02_JPRB,1.5015E-02_JPRB,&
+ & 1.4926E-02_JPRB,1.1183E-02_JPRB,4.1312E-03_JPRB/)  
+KAO( :, 1, 6, 7) = (/&
+ & 1.0487E-02_JPRB,1.0124E-02_JPRB,9.7249E-03_JPRB,9.1457E-03_JPRB,8.1285E-03_JPRB,4.8996E-03_JPRB,&
+ & 1.9678E-03_JPRB,1.0487E-02_JPRB,1.0937E-03_JPRB/)  
+KAO( :, 2, 6, 7) = (/&
+ & 1.0349E-02_JPRB,1.0437E-02_JPRB,1.0332E-02_JPRB,9.9754E-03_JPRB,9.2866E-03_JPRB,7.9160E-03_JPRB,&
+ & 4.3878E-03_JPRB,1.0349E-02_JPRB,1.4598E-03_JPRB/)  
+KAO( :, 3, 6, 7) = (/&
+ & 1.0220E-02_JPRB,1.0784E-02_JPRB,1.0929E-02_JPRB,1.0753E-02_JPRB,1.0353E-02_JPRB,9.5432E-03_JPRB,&
+ & 7.8232E-03_JPRB,1.0220E-02_JPRB,1.9008E-03_JPRB/)  
+KAO( :, 4, 6, 7) = (/&
+ & 1.0135E-02_JPRB,1.1143E-02_JPRB,1.1530E-02_JPRB,1.1576E-02_JPRB,1.1439E-02_JPRB,1.1088E-02_JPRB,&
+ & 1.0277E-02_JPRB,1.0135E-02_JPRB,2.4221E-03_JPRB/)  
+KAO( :, 5, 6, 7) = (/&
+ & 1.0102E-02_JPRB,1.1554E-02_JPRB,1.2194E-02_JPRB,1.2480E-02_JPRB,1.2652E-02_JPRB,1.2678E-02_JPRB,&
+ & 1.2494E-02_JPRB,1.0102E-02_JPRB,3.0257E-03_JPRB/)  
+KAO( :, 1, 7, 7) = (/&
+ & 9.2309E-03_JPRB,8.8319E-03_JPRB,8.3968E-03_JPRB,7.7952E-03_JPRB,6.7475E-03_JPRB,3.2870E-03_JPRB,&
+ & 1.9179E-03_JPRB,9.2309E-03_JPRB,8.9645E-04_JPRB/)  
+KAO( :, 2, 7, 7) = (/&
+ & 9.1242E-03_JPRB,9.0932E-03_JPRB,8.9046E-03_JPRB,8.4994E-03_JPRB,7.7737E-03_JPRB,6.2095E-03_JPRB,&
+ & 2.8211E-03_JPRB,9.1242E-03_JPRB,1.1346E-03_JPRB/)  
+KAO( :, 3, 7, 7) = (/&
+ & 9.0499E-03_JPRB,9.3880E-03_JPRB,9.3912E-03_JPRB,9.1437E-03_JPRB,8.6640E-03_JPRB,7.8059E-03_JPRB,&
+ & 5.8358E-03_JPRB,9.0499E-03_JPRB,1.4379E-03_JPRB/)  
+KAO( :, 4, 7, 7) = (/&
+ & 9.0319E-03_JPRB,9.7281E-03_JPRB,9.8888E-03_JPRB,9.8240E-03_JPRB,9.6043E-03_JPRB,9.1535E-03_JPRB,&
+ & 8.2625E-03_JPRB,9.0319E-03_JPRB,1.8162E-03_JPRB/)  
+KAO( :, 5, 7, 7) = (/&
+ & 9.0677E-03_JPRB,1.0114E-02_JPRB,1.0453E-02_JPRB,1.0590E-02_JPRB,1.0614E-02_JPRB,1.0515E-02_JPRB,&
+ & 1.0212E-02_JPRB,9.0678E-03_JPRB,2.2700E-03_JPRB/)  
+KAO( :, 1, 8, 7) = (/&
+ & 8.0750E-03_JPRB,7.6623E-03_JPRB,7.2138E-03_JPRB,6.5975E-03_JPRB,5.4257E-03_JPRB,2.2723E-03_JPRB,&
+ & 1.6249E-03_JPRB,8.0750E-03_JPRB,1.2831E-03_JPRB/)  
+KAO( :, 2, 8, 7) = (/&
+ & 7.9997E-03_JPRB,7.8793E-03_JPRB,7.6227E-03_JPRB,7.1817E-03_JPRB,6.4216E-03_JPRB,4.5366E-03_JPRB,&
+ & 1.9736E-03_JPRB,7.9997E-03_JPRB,1.4497E-03_JPRB/)  
+KAO( :, 3, 8, 7) = (/&
+ & 7.9739E-03_JPRB,8.1496E-03_JPRB,8.0220E-03_JPRB,7.7220E-03_JPRB,7.1874E-03_JPRB,6.2455E-03_JPRB,&
+ & 3.8530E-03_JPRB,7.9739E-03_JPRB,1.6552E-03_JPRB/)  
+KAO( :, 4, 8, 7) = (/&
+ & 8.0128E-03_JPRB,8.4694E-03_JPRB,8.4614E-03_JPRB,8.2951E-03_JPRB,7.9668E-03_JPRB,7.4368E-03_JPRB,&
+ & 6.3444E-03_JPRB,8.0128E-03_JPRB,1.8965E-03_JPRB/)  
+KAO( :, 5, 8, 7) = (/&
+ & 8.1136E-03_JPRB,8.8341E-03_JPRB,8.9710E-03_JPRB,8.9459E-03_JPRB,8.8203E-03_JPRB,8.6006E-03_JPRB,&
+ & 8.1402E-03_JPRB,8.1136E-03_JPRB,2.1909E-03_JPRB/)  
+KAO( :, 1, 9, 7) = (/&
+ & 7.0296E-03_JPRB,6.6308E-03_JPRB,6.1804E-03_JPRB,5.5360E-03_JPRB,4.1437E-03_JPRB,1.5632E-03_JPRB,&
+ & 1.4348E-03_JPRB,7.0296E-03_JPRB,5.0746E-03_JPRB/)  
+KAO( :, 2, 9, 7) = (/&
+ & 6.9891E-03_JPRB,6.8154E-03_JPRB,6.5047E-03_JPRB,6.0126E-03_JPRB,5.1664E-03_JPRB,3.1309E-03_JPRB,&
+ & 1.3440E-03_JPRB,6.9891E-03_JPRB,5.2575E-03_JPRB/)  
+KAO( :, 3, 9, 7) = (/&
+ & 7.0047E-03_JPRB,7.0682E-03_JPRB,6.8401E-03_JPRB,6.4671E-03_JPRB,5.8881E-03_JPRB,4.8032E-03_JPRB,&
+ & 2.4408E-03_JPRB,7.0047E-03_JPRB,5.4725E-03_JPRB/)  
+KAO( :, 4, 9, 7) = (/&
+ & 7.0937E-03_JPRB,7.3642E-03_JPRB,7.2266E-03_JPRB,6.9602E-03_JPRB,6.5505E-03_JPRB,5.9472E-03_JPRB,&
+ & 4.6225E-03_JPRB,7.0937E-03_JPRB,5.7075E-03_JPRB/)  
+KAO( :, 5, 9, 7) = (/&
+ & 7.2359E-03_JPRB,7.7189E-03_JPRB,7.6898E-03_JPRB,7.5393E-03_JPRB,7.2796E-03_JPRB,6.9540E-03_JPRB,&
+ & 6.3115E-03_JPRB,7.2359E-03_JPRB,5.9395E-03_JPRB/)  
+KAO( :, 1,10, 7) = (/&
+ & 6.0824E-03_JPRB,5.7201E-03_JPRB,5.2950E-03_JPRB,4.6533E-03_JPRB,3.1243E-03_JPRB,1.0849E-03_JPRB,&
+ & 1.3514E-03_JPRB,6.0824E-03_JPRB,3.2036E-02_JPRB/)  
+KAO( :, 2,10, 7) = (/&
+ & 6.0816E-03_JPRB,5.8999E-03_JPRB,5.5711E-03_JPRB,5.0543E-03_JPRB,4.1674E-03_JPRB,2.1951E-03_JPRB,&
+ & 1.1513E-03_JPRB,6.0816E-03_JPRB,3.2646E-02_JPRB/)  
+KAO( :, 3,10, 7) = (/&
+ & 6.1454E-03_JPRB,6.1496E-03_JPRB,5.8546E-03_JPRB,5.4437E-03_JPRB,4.8180E-03_JPRB,3.6424E-03_JPRB,&
+ & 1.7330E-03_JPRB,6.1454E-03_JPRB,3.3079E-02_JPRB/)  
+KAO( :, 4,10, 7) = (/&
+ & 6.2758E-03_JPRB,6.4382E-03_JPRB,6.1991E-03_JPRB,5.8783E-03_JPRB,5.4350E-03_JPRB,4.7237E-03_JPRB,&
+ & 3.2810E-03_JPRB,6.2757E-03_JPRB,3.3401E-02_JPRB/)  
+KAO( :, 5,10, 7) = (/&
+ & 6.4344E-03_JPRB,6.7774E-03_JPRB,6.6295E-03_JPRB,6.3941E-03_JPRB,6.0678E-03_JPRB,5.6397E-03_JPRB,&
+ & 4.8978E-03_JPRB,6.4344E-03_JPRB,3.3652E-02_JPRB/)  
+KAO( :, 1,11, 7) = (/&
+ & 5.2811E-03_JPRB,5.0055E-03_JPRB,4.6335E-03_JPRB,4.0757E-03_JPRB,2.8727E-03_JPRB,1.0865E-03_JPRB,&
+ & 1.0171E-03_JPRB,5.2811E-03_JPRB,7.6840E-02_JPRB/)  
+KAO( :, 2,11, 7) = (/&
+ & 5.3409E-03_JPRB,5.2140E-03_JPRB,4.8806E-03_JPRB,4.4140E-03_JPRB,3.6622E-03_JPRB,2.0302E-03_JPRB,&
+ & 9.1811E-04_JPRB,5.3409E-03_JPRB,7.7870E-02_JPRB/)  
+KAO( :, 3,11, 7) = (/&
+ & 5.4674E-03_JPRB,5.4758E-03_JPRB,5.1638E-03_JPRB,4.7679E-03_JPRB,4.2203E-03_JPRB,3.2247E-03_JPRB,&
+ & 1.5980E-03_JPRB,5.4674E-03_JPRB,7.8594E-02_JPRB/)  
+KAO( :, 4,11, 7) = (/&
+ & 5.6175E-03_JPRB,5.7677E-03_JPRB,5.5092E-03_JPRB,5.1897E-03_JPRB,4.7728E-03_JPRB,4.1267E-03_JPRB,&
+ & 2.9888E-03_JPRB,5.6175E-03_JPRB,7.8959E-02_JPRB/)  
+KAO( :, 5,11, 7) = (/&
+ & 5.7848E-03_JPRB,6.0885E-03_JPRB,5.9189E-03_JPRB,5.6782E-03_JPRB,5.3431E-03_JPRB,4.9223E-03_JPRB,&
+ & 4.2500E-03_JPRB,5.7848E-03_JPRB,7.9148E-02_JPRB/)  
+KAO( :, 1,12, 7) = (/&
+ & 4.6406E-03_JPRB,4.4264E-03_JPRB,4.0750E-03_JPRB,3.5822E-03_JPRB,2.6510E-03_JPRB,1.0132E-03_JPRB,&
+ & 9.2156E-04_JPRB,4.6406E-03_JPRB,1.1768E-01_JPRB/)  
+KAO( :, 2,12, 7) = (/&
+ & 4.7513E-03_JPRB,4.6501E-03_JPRB,4.3133E-03_JPRB,3.8811E-03_JPRB,3.2507E-03_JPRB,1.8501E-03_JPRB,&
+ & 7.3924E-04_JPRB,4.7513E-03_JPRB,1.1892E-01_JPRB/)  
+KAO( :, 3,12, 7) = (/&
+ & 4.8892E-03_JPRB,4.8966E-03_JPRB,4.5920E-03_JPRB,4.2162E-03_JPRB,3.7357E-03_JPRB,2.9015E-03_JPRB,&
+ & 1.4402E-03_JPRB,4.8892E-03_JPRB,1.1988E-01_JPRB/)  
+KAO( :, 4,12, 7) = (/&
+ & 5.0434E-03_JPRB,5.1649E-03_JPRB,4.9117E-03_JPRB,4.6087E-03_JPRB,4.2340E-03_JPRB,3.6743E-03_JPRB,&
+ & 2.6652E-03_JPRB,5.0434E-03_JPRB,1.2040E-01_JPRB/)  
+KAO( :, 5,12, 7) = (/&
+ & 5.1943E-03_JPRB,5.4604E-03_JPRB,5.2859E-03_JPRB,5.0532E-03_JPRB,4.7466E-03_JPRB,4.3367E-03_JPRB,&
+ & 3.6758E-03_JPRB,5.1943E-03_JPRB,1.2066E-01_JPRB/)  
+KAO( :, 1,13, 7) = (/&
+ & 4.1040E-03_JPRB,3.9320E-03_JPRB,3.6016E-03_JPRB,3.1660E-03_JPRB,2.4198E-03_JPRB,9.6006E-04_JPRB,&
+ & 7.4336E-04_JPRB,4.1040E-03_JPRB,1.4478E-01_JPRB/)  
+KAO( :, 2,13, 7) = (/&
+ & 4.2232E-03_JPRB,4.1425E-03_JPRB,3.8331E-03_JPRB,3.4407E-03_JPRB,2.9046E-03_JPRB,1.6979E-03_JPRB,&
+ & 6.7921E-04_JPRB,4.2232E-03_JPRB,1.4623E-01_JPRB/)  
+KAO( :, 3,13, 7) = (/&
+ & 4.3611E-03_JPRB,4.3698E-03_JPRB,4.0899E-03_JPRB,3.7461E-03_JPRB,3.3273E-03_JPRB,2.6603E-03_JPRB,&
+ & 1.2963E-03_JPRB,4.3611E-03_JPRB,1.4748E-01_JPRB/)  
+KAO( :, 4,13, 7) = (/&
+ & 4.4992E-03_JPRB,4.6148E-03_JPRB,4.3841E-03_JPRB,4.0963E-03_JPRB,3.7570E-03_JPRB,3.2859E-03_JPRB,&
+ & 2.3687E-03_JPRB,4.4992E-03_JPRB,1.4817E-01_JPRB/)  
+KAO( :, 5,13, 7) = (/&
+ & 4.6327E-03_JPRB,4.8729E-03_JPRB,4.7086E-03_JPRB,4.4884E-03_JPRB,4.2102E-03_JPRB,3.8391E-03_JPRB,&
+ & 3.2592E-03_JPRB,4.6327E-03_JPRB,1.4848E-01_JPRB/)  
+KAO( :, 1, 1, 8) = (/&
+ & 3.2446E-02_JPRB,3.0961E-02_JPRB,2.9943E-02_JPRB,2.8814E-02_JPRB,2.6701E-02_JPRB,2.3826E-02_JPRB,&
+ & 2.0786E-02_JPRB,3.2446E-02_JPRB,1.5676E-02_JPRB/)  
+KAO( :, 2, 1, 8) = (/&
+ & 3.2527E-02_JPRB,3.1848E-02_JPRB,3.1994E-02_JPRB,3.1175E-02_JPRB,2.9719E-02_JPRB,2.8532E-02_JPRB,&
+ & 2.8157E-02_JPRB,3.2527E-02_JPRB,2.0060E-02_JPRB/)  
+KAO( :, 3, 1, 8) = (/&
+ & 3.2555E-02_JPRB,3.3035E-02_JPRB,3.4009E-02_JPRB,3.3632E-02_JPRB,3.3098E-02_JPRB,3.4035E-02_JPRB,&
+ & 3.6093E-02_JPRB,3.2555E-02_JPRB,2.5319E-02_JPRB/)  
+KAO( :, 4, 1, 8) = (/&
+ & 3.2520E-02_JPRB,3.4424E-02_JPRB,3.5893E-02_JPRB,3.6221E-02_JPRB,3.7173E-02_JPRB,4.0037E-02_JPRB,&
+ & 4.3790E-02_JPRB,3.2520E-02_JPRB,3.1444E-02_JPRB/)  
+KAO( :, 5, 1, 8) = (/&
+ & 3.2436E-02_JPRB,3.5761E-02_JPRB,3.7828E-02_JPRB,3.9167E-02_JPRB,4.2081E-02_JPRB,4.6777E-02_JPRB,&
+ & 5.1699E-02_JPRB,3.2436E-02_JPRB,3.8339E-02_JPRB/)  
+KAO( :, 1, 2, 8) = (/&
+ & 3.3259E-02_JPRB,3.1637E-02_JPRB,3.0502E-02_JPRB,2.9322E-02_JPRB,2.7192E-02_JPRB,2.4045E-02_JPRB,&
+ & 1.9418E-02_JPRB,3.3259E-02_JPRB,1.2401E-02_JPRB/)  
+KAO( :, 2, 2, 8) = (/&
+ & 3.3309E-02_JPRB,3.2542E-02_JPRB,3.2579E-02_JPRB,3.1869E-02_JPRB,3.0109E-02_JPRB,2.7900E-02_JPRB,&
+ & 2.5530E-02_JPRB,3.3309E-02_JPRB,1.5971E-02_JPRB/)  
+KAO( :, 3, 2, 8) = (/&
+ & 3.3352E-02_JPRB,3.3755E-02_JPRB,3.4718E-02_JPRB,3.4392E-02_JPRB,3.3246E-02_JPRB,3.2250E-02_JPRB,&
+ & 3.2349E-02_JPRB,3.3352E-02_JPRB,2.0278E-02_JPRB/)  
+KAO( :, 4, 2, 8) = (/&
+ & 3.3330E-02_JPRB,3.5174E-02_JPRB,3.6737E-02_JPRB,3.6916E-02_JPRB,3.6641E-02_JPRB,3.7274E-02_JPRB,&
+ & 3.9441E-02_JPRB,3.3330E-02_JPRB,2.5234E-02_JPRB/)  
+KAO( :, 5, 2, 8) = (/&
+ & 3.3226E-02_JPRB,3.6569E-02_JPRB,3.8777E-02_JPRB,3.9713E-02_JPRB,4.0596E-02_JPRB,4.2979E-02_JPRB,&
+ & 4.7032E-02_JPRB,3.3226E-02_JPRB,3.0759E-02_JPRB/)  
+KAO( :, 1, 3, 8) = (/&
+ & 3.3391E-02_JPRB,3.1594E-02_JPRB,3.0176E-02_JPRB,2.8739E-02_JPRB,2.6633E-02_JPRB,2.3336E-02_JPRB,&
+ & 1.8177E-02_JPRB,3.3391E-02_JPRB,9.1438E-03_JPRB/)  
+KAO( :, 2, 3, 8) = (/&
+ & 3.3463E-02_JPRB,3.2445E-02_JPRB,3.2154E-02_JPRB,3.1362E-02_JPRB,2.9626E-02_JPRB,2.6963E-02_JPRB,&
+ & 2.3198E-02_JPRB,3.3463E-02_JPRB,1.1964E-02_JPRB/)  
+KAO( :, 3, 3, 8) = (/&
+ & 3.3507E-02_JPRB,3.3666E-02_JPRB,3.4348E-02_JPRB,3.4020E-02_JPRB,3.2664E-02_JPRB,3.0729E-02_JPRB,&
+ & 2.8675E-02_JPRB,3.3507E-02_JPRB,1.5312E-02_JPRB/)  
+KAO( :, 4, 3, 8) = (/&
+ & 3.3484E-02_JPRB,3.5076E-02_JPRB,3.6460E-02_JPRB,3.6685E-02_JPRB,3.5851E-02_JPRB,3.4760E-02_JPRB,&
+ & 3.4446E-02_JPRB,3.3484E-02_JPRB,1.9144E-02_JPRB/)  
+KAO( :, 5, 3, 8) = (/&
+ & 3.3365E-02_JPRB,3.6491E-02_JPRB,3.8546E-02_JPRB,3.9400E-02_JPRB,3.9309E-02_JPRB,3.9340E-02_JPRB,&
+ & 4.1039E-02_JPRB,3.3365E-02_JPRB,2.3426E-02_JPRB/)  
+KAO( :, 1, 4, 8) = (/&
+ & 3.2823E-02_JPRB,3.0856E-02_JPRB,2.9216E-02_JPRB,2.7536E-02_JPRB,2.5263E-02_JPRB,2.2005E-02_JPRB,&
+ & 1.7126E-02_JPRB,3.2823E-02_JPRB,6.4847E-03_JPRB/)  
+KAO( :, 2, 4, 8) = (/&
+ & 3.2916E-02_JPRB,3.1703E-02_JPRB,3.1081E-02_JPRB,3.0059E-02_JPRB,2.8252E-02_JPRB,2.5566E-02_JPRB,&
+ & 2.1643E-02_JPRB,3.2916E-02_JPRB,8.6411E-03_JPRB/)  
+KAO( :, 3, 4, 8) = (/&
+ & 3.2942E-02_JPRB,3.2855E-02_JPRB,3.3172E-02_JPRB,3.2679E-02_JPRB,3.1442E-02_JPRB,2.9283E-02_JPRB,&
+ & 2.6180E-02_JPRB,3.2942E-02_JPRB,1.1256E-02_JPRB/)  
+KAO( :, 4, 4, 8) = (/&
+ & 3.2895E-02_JPRB,3.4207E-02_JPRB,3.5261E-02_JPRB,3.5386E-02_JPRB,3.4683E-02_JPRB,3.2992E-02_JPRB,&
+ & 3.0830E-02_JPRB,3.2895E-02_JPRB,1.4266E-02_JPRB/)  
+KAO( :, 5, 4, 8) = (/&
+ & 3.2791E-02_JPRB,3.5598E-02_JPRB,3.7342E-02_JPRB,3.8144E-02_JPRB,3.7958E-02_JPRB,3.6915E-02_JPRB,&
+ & 3.6060E-02_JPRB,3.2791E-02_JPRB,1.7623E-02_JPRB/)  
+KAO( :, 1, 5, 8) = (/&
+ & 3.1527E-02_JPRB,2.9441E-02_JPRB,2.7666E-02_JPRB,2.5800E-02_JPRB,2.3517E-02_JPRB,2.0290E-02_JPRB,&
+ & 1.5284E-02_JPRB,3.1527E-02_JPRB,4.5483E-03_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART5',1,ZHOOK_HANDLE)
+END SUBROUTINE PART5
+
+
+SUBROUTINE PART6
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART6',0,ZHOOK_HANDLE)
+
+
+KAO( :, 2, 5, 8) = (/&
+ & 3.1627E-02_JPRB,3.0253E-02_JPRB,2.9410E-02_JPRB,2.8191E-02_JPRB,2.6385E-02_JPRB,2.3754E-02_JPRB,&
+ & 1.9782E-02_JPRB,3.1627E-02_JPRB,6.1662E-03_JPRB/)  
+KAO( :, 3, 5, 8) = (/&
+ & 3.1653E-02_JPRB,3.1374E-02_JPRB,3.1394E-02_JPRB,3.0704E-02_JPRB,2.9499E-02_JPRB,2.7410E-02_JPRB,&
+ & 2.4207E-02_JPRB,3.1653E-02_JPRB,8.1447E-03_JPRB/)  
+KAO( :, 4, 5, 8) = (/&
+ & 3.1587E-02_JPRB,3.2681E-02_JPRB,3.3373E-02_JPRB,3.3364E-02_JPRB,3.2711E-02_JPRB,3.1061E-02_JPRB,&
+ & 2.8366E-02_JPRB,3.1587E-02_JPRB,1.0460E-02_JPRB/)  
+KAO( :, 5, 5, 8) = (/&
+ & 3.1459E-02_JPRB,3.4035E-02_JPRB,3.5391E-02_JPRB,3.6063E-02_JPRB,3.5941E-02_JPRB,3.4747E-02_JPRB,&
+ & 3.2643E-02_JPRB,3.1459E-02_JPRB,1.3095E-02_JPRB/)  
+KAO( :, 1, 6, 8) = (/&
+ & 2.9690E-02_JPRB,2.7513E-02_JPRB,2.5633E-02_JPRB,2.3605E-02_JPRB,2.1298E-02_JPRB,1.8147E-02_JPRB,&
+ & 1.3146E-02_JPRB,2.9690E-02_JPRB,3.1369E-03_JPRB/)  
+KAO( :, 2, 6, 8) = (/&
+ & 2.9770E-02_JPRB,2.8288E-02_JPRB,2.7183E-02_JPRB,2.5789E-02_JPRB,2.4036E-02_JPRB,2.1561E-02_JPRB,&
+ & 1.7543E-02_JPRB,2.9770E-02_JPRB,4.3187E-03_JPRB/)  
+KAO( :, 3, 6, 8) = (/&
+ & 2.9783E-02_JPRB,2.9294E-02_JPRB,2.9045E-02_JPRB,2.8192E-02_JPRB,2.6960E-02_JPRB,2.5034E-02_JPRB,&
+ & 2.1858E-02_JPRB,2.9783E-02_JPRB,5.7867E-03_JPRB/)  
+KAO( :, 4, 6, 8) = (/&
+ & 2.9692E-02_JPRB,3.0523E-02_JPRB,3.0946E-02_JPRB,3.0715E-02_JPRB,3.0007E-02_JPRB,2.8497E-02_JPRB,&
+ & 2.5800E-02_JPRB,2.9692E-02_JPRB,7.5502E-03_JPRB/)  
+KAO( :, 5, 6, 8) = (/&
+ & 2.9534E-02_JPRB,3.1783E-02_JPRB,3.2869E-02_JPRB,3.3262E-02_JPRB,3.3064E-02_JPRB,3.1999E-02_JPRB,&
+ & 2.9755E-02_JPRB,2.9534E-02_JPRB,9.5800E-03_JPRB/)  
+KAO( :, 1, 7, 8) = (/&
+ & 2.7399E-02_JPRB,2.5219E-02_JPRB,2.3318E-02_JPRB,2.1250E-02_JPRB,1.8905E-02_JPRB,1.5866E-02_JPRB,&
+ & 1.0211E-02_JPRB,2.7399E-02_JPRB,2.2133E-03_JPRB/)  
+KAO( :, 2, 7, 8) = (/&
+ & 2.7465E-02_JPRB,2.5918E-02_JPRB,2.4664E-02_JPRB,2.3195E-02_JPRB,2.1415E-02_JPRB,1.9044E-02_JPRB,&
+ & 1.5287E-02_JPRB,2.7465E-02_JPRB,3.0581E-03_JPRB/)  
+KAO( :, 3, 7, 8) = (/&
+ & 2.7467E-02_JPRB,2.6847E-02_JPRB,2.6363E-02_JPRB,2.5381E-02_JPRB,2.4103E-02_JPRB,2.2261E-02_JPRB,&
+ & 1.9298E-02_JPRB,2.7467E-02_JPRB,4.1379E-03_JPRB/)  
+KAO( :, 4, 7, 8) = (/&
+ & 2.7377E-02_JPRB,2.7967E-02_JPRB,2.8113E-02_JPRB,2.7721E-02_JPRB,2.6897E-02_JPRB,2.5513E-02_JPRB,&
+ & 2.3011E-02_JPRB,2.7377E-02_JPRB,5.4434E-03_JPRB/)  
+KAO( :, 5, 7, 8) = (/&
+ & 2.7205E-02_JPRB,2.9095E-02_JPRB,2.9889E-02_JPRB,3.0064E-02_JPRB,2.9735E-02_JPRB,2.8823E-02_JPRB,&
+ & 2.6785E-02_JPRB,2.7205E-02_JPRB,6.9886E-03_JPRB/)  
+KAO( :, 1, 8, 8) = (/&
+ & 2.4838E-02_JPRB,2.2730E-02_JPRB,2.0879E-02_JPRB,1.8847E-02_JPRB,1.6562E-02_JPRB,1.3598E-02_JPRB,&
+ & 7.9263E-03_JPRB,2.4838E-02_JPRB,2.3197E-03_JPRB/)  
+KAO( :, 2, 8, 8) = (/&
+ & 2.4890E-02_JPRB,2.3360E-02_JPRB,2.2033E-02_JPRB,2.0523E-02_JPRB,1.8797E-02_JPRB,1.6567E-02_JPRB,&
+ & 1.2790E-02_JPRB,2.4890E-02_JPRB,2.7806E-03_JPRB/)  
+KAO( :, 3, 8, 8) = (/&
+ & 2.4862E-02_JPRB,2.4160E-02_JPRB,2.3528E-02_JPRB,2.2491E-02_JPRB,2.1199E-02_JPRB,1.9477E-02_JPRB,&
+ & 1.6802E-02_JPRB,2.4862E-02_JPRB,3.4079E-03_JPRB/)  
+KAO( :, 4, 8, 8) = (/&
+ & 2.4775E-02_JPRB,2.5154E-02_JPRB,2.5100E-02_JPRB,2.4578E-02_JPRB,2.3711E-02_JPRB,2.2381E-02_JPRB,&
+ & 2.0219E-02_JPRB,2.4775E-02_JPRB,4.2580E-03_JPRB/)  
+KAO( :, 5, 8, 8) = (/&
+ & 2.4622E-02_JPRB,2.6148E-02_JPRB,2.6699E-02_JPRB,2.6671E-02_JPRB,2.6294E-02_JPRB,2.5372E-02_JPRB,&
+ & 2.3589E-02_JPRB,2.4622E-02_JPRB,5.3361E-03_JPRB/)  
+KAO( :, 1, 9, 8) = (/&
+ & 2.2221E-02_JPRB,2.0209E-02_JPRB,1.8418E-02_JPRB,1.6497E-02_JPRB,1.4362E-02_JPRB,1.1452E-02_JPRB,&
+ & 5.8464E-03_JPRB,2.2221E-02_JPRB,8.1045E-03_JPRB/)  
+KAO( :, 2, 9, 8) = (/&
+ & 2.2228E-02_JPRB,2.0738E-02_JPRB,1.9399E-02_JPRB,1.7929E-02_JPRB,1.6274E-02_JPRB,1.4180E-02_JPRB,&
+ & 1.0256E-02_JPRB,2.2228E-02_JPRB,8.4976E-03_JPRB/)  
+KAO( :, 3, 9, 8) = (/&
+ & 2.2181E-02_JPRB,2.1419E-02_JPRB,2.0685E-02_JPRB,1.9636E-02_JPRB,1.8370E-02_JPRB,1.6740E-02_JPRB,&
+ & 1.4221E-02_JPRB,2.2181E-02_JPRB,8.9064E-03_JPRB/)  
+KAO( :, 4, 9, 8) = (/&
+ & 2.2077E-02_JPRB,2.2259E-02_JPRB,2.2053E-02_JPRB,2.1452E-02_JPRB,2.0561E-02_JPRB,1.9271E-02_JPRB,&
+ & 1.7337E-02_JPRB,2.2077E-02_JPRB,9.3666E-03_JPRB/)  
+KAO( :, 5, 9, 8) = (/&
+ & 2.1959E-02_JPRB,2.3140E-02_JPRB,2.3450E-02_JPRB,2.3281E-02_JPRB,2.2789E-02_JPRB,2.1856E-02_JPRB,&
+ & 2.0328E-02_JPRB,2.1959E-02_JPRB,9.8960E-03_JPRB/)  
+KAO( :, 1,10, 8) = (/&
+ & 1.9665E-02_JPRB,1.7813E-02_JPRB,1.6135E-02_JPRB,1.4379E-02_JPRB,1.2423E-02_JPRB,9.6194E-03_JPRB,&
+ & 4.3665E-03_JPRB,1.9665E-02_JPRB,5.0859E-02_JPRB/)  
+KAO( :, 2,10, 8) = (/&
+ & 1.9655E-02_JPRB,1.8254E-02_JPRB,1.6961E-02_JPRB,1.5587E-02_JPRB,1.4053E-02_JPRB,1.2088E-02_JPRB,&
+ & 8.1382E-03_JPRB,1.9655E-02_JPRB,5.1465E-02_JPRB/)  
+KAO( :, 3,10, 8) = (/&
+ & 1.9577E-02_JPRB,1.8805E-02_JPRB,1.8054E-02_JPRB,1.7058E-02_JPRB,1.5850E-02_JPRB,1.4336E-02_JPRB,&
+ & 1.1950E-02_JPRB,1.9577E-02_JPRB,5.1955E-02_JPRB/)  
+KAO( :, 4,10, 8) = (/&
+ & 1.9473E-02_JPRB,1.9523E-02_JPRB,1.9227E-02_JPRB,1.8591E-02_JPRB,1.7700E-02_JPRB,1.6478E-02_JPRB,&
+ & 1.4693E-02_JPRB,1.9473E-02_JPRB,5.2354E-02_JPRB/)  
+KAO( :, 5,10, 8) = (/&
+ & 1.9405E-02_JPRB,2.0288E-02_JPRB,2.0423E-02_JPRB,2.0132E-02_JPRB,1.9564E-02_JPRB,1.8691E-02_JPRB,&
+ & 1.7347E-02_JPRB,1.9405E-02_JPRB,5.2682E-02_JPRB/)  
+KAO( :, 1,11, 8) = (/&
+ & 1.7199E-02_JPRB,1.5692E-02_JPRB,1.4307E-02_JPRB,1.2861E-02_JPRB,1.1262E-02_JPRB,9.0316E-03_JPRB,&
+ & 4.4212E-03_JPRB,1.7199E-02_JPRB,1.2641E-01_JPRB/)  
+KAO( :, 2,11, 8) = (/&
+ & 1.7139E-02_JPRB,1.6089E-02_JPRB,1.5094E-02_JPRB,1.3995E-02_JPRB,1.2699E-02_JPRB,1.1063E-02_JPRB,&
+ & 8.1294E-03_JPRB,1.7139E-02_JPRB,1.2630E-01_JPRB/)  
+KAO( :, 3,11, 8) = (/&
+ & 1.7062E-02_JPRB,1.6616E-02_JPRB,1.6068E-02_JPRB,1.5250E-02_JPRB,1.4213E-02_JPRB,1.2927E-02_JPRB,&
+ & 1.0968E-02_JPRB,1.7062E-02_JPRB,1.2657E-01_JPRB/)  
+KAO( :, 4,11, 8) = (/&
+ & 1.7027E-02_JPRB,1.7284E-02_JPRB,1.7074E-02_JPRB,1.6503E-02_JPRB,1.5727E-02_JPRB,1.4747E-02_JPRB,&
+ & 1.3302E-02_JPRB,1.7027E-02_JPRB,1.2680E-01_JPRB/)  
+KAO( :, 5,11, 8) = (/&
+ & 1.7051E-02_JPRB,1.8003E-02_JPRB,1.8097E-02_JPRB,1.7795E-02_JPRB,1.7338E-02_JPRB,1.6670E-02_JPRB,&
+ & 1.5656E-02_JPRB,1.7051E-02_JPRB,1.2668E-01_JPRB/)  
+KAO( :, 1,12, 8) = (/&
+ & 1.4892E-02_JPRB,1.3707E-02_JPRB,1.2589E-02_JPRB,1.1424E-02_JPRB,1.0096E-02_JPRB,8.2815E-03_JPRB,&
+ & 4.4233E-03_JPRB,1.4892E-02_JPRB,2.0178E-01_JPRB/)  
+KAO( :, 2,12, 8) = (/&
+ & 1.4830E-02_JPRB,1.4076E-02_JPRB,1.3327E-02_JPRB,1.2415E-02_JPRB,1.1306E-02_JPRB,9.9128E-03_JPRB,&
+ & 7.6510E-03_JPRB,1.4830E-02_JPRB,2.0127E-01_JPRB/)  
+KAO( :, 3,12, 8) = (/&
+ & 1.4815E-02_JPRB,1.4616E-02_JPRB,1.4166E-02_JPRB,1.3436E-02_JPRB,1.2531E-02_JPRB,1.1419E-02_JPRB,&
+ & 9.8144E-03_JPRB,1.4815E-02_JPRB,2.0109E-01_JPRB/)  
+KAO( :, 4,12, 8) = (/&
+ & 1.4874E-02_JPRB,1.5249E-02_JPRB,1.5019E-02_JPRB,1.4484E-02_JPRB,1.3802E-02_JPRB,1.2969E-02_JPRB,&
+ & 1.1802E-02_JPRB,1.4874E-02_JPRB,2.0108E-01_JPRB/)  
+KAO( :, 5,12, 8) = (/&
+ & 1.5028E-02_JPRB,1.5947E-02_JPRB,1.5923E-02_JPRB,1.5630E-02_JPRB,1.5205E-02_JPRB,1.4665E-02_JPRB,&
+ & 1.3888E-02_JPRB,1.5028E-02_JPRB,2.0061E-01_JPRB/)  
+KAO( :, 1,13, 8) = (/&
+ & 1.2856E-02_JPRB,1.1926E-02_JPRB,1.1034E-02_JPRB,1.0051E-02_JPRB,8.9048E-03_JPRB,7.3808E-03_JPRB,&
+ & 4.3560E-03_JPRB,1.2856E-02_JPRB,2.5947E-01_JPRB/)  
+KAO( :, 2,13, 8) = (/&
+ & 1.2849E-02_JPRB,1.2317E-02_JPRB,1.1692E-02_JPRB,1.0882E-02_JPRB,9.8884E-03_JPRB,8.6786E-03_JPRB,&
+ & 6.8479E-03_JPRB,1.2849E-02_JPRB,2.5953E-01_JPRB/)  
+KAO( :, 3,13, 8) = (/&
+ & 1.2913E-02_JPRB,1.2850E-02_JPRB,1.2417E-02_JPRB,1.1721E-02_JPRB,1.0882E-02_JPRB,9.9190E-03_JPRB,&
+ & 8.6023E-03_JPRB,1.2913E-02_JPRB,2.5942E-01_JPRB/)  
+KAO( :, 4,13, 8) = (/&
+ & 1.3088E-02_JPRB,1.3471E-02_JPRB,1.3169E-02_JPRB,1.2637E-02_JPRB,1.1989E-02_JPRB,1.1248E-02_JPRB,&
+ & 1.0301E-02_JPRB,1.3088E-02_JPRB,2.5909E-01_JPRB/)  
+KAO( :, 5,13, 8) = (/&
+ & 1.3373E-02_JPRB,1.4159E-02_JPRB,1.4029E-02_JPRB,1.3679E-02_JPRB,1.3241E-02_JPRB,1.2749E-02_JPRB,&
+ & 1.2125E-02_JPRB,1.3373E-02_JPRB,2.5815E-01_JPRB/)  
+KAO( :, 1, 1, 9) = (/&
+ & 6.4733E-02_JPRB,6.0521E-02_JPRB,5.8252E-02_JPRB,5.6866E-02_JPRB,5.6526E-02_JPRB,5.5742E-02_JPRB,&
+ & 5.2046E-02_JPRB,6.4733E-02_JPRB,5.6233E-02_JPRB/)  
+KAO( :, 2, 1, 9) = (/&
+ & 6.5477E-02_JPRB,6.3047E-02_JPRB,6.3106E-02_JPRB,6.4612E-02_JPRB,6.6790E-02_JPRB,6.7507E-02_JPRB,&
+ & 6.4723E-02_JPRB,6.5477E-02_JPRB,7.2720E-02_JPRB/)  
+KAO( :, 3, 1, 9) = (/&
+ & 6.6216E-02_JPRB,6.6108E-02_JPRB,6.9181E-02_JPRB,7.4268E-02_JPRB,7.9047E-02_JPRB,8.0497E-02_JPRB,&
+ & 7.8280E-02_JPRB,6.6216E-02_JPRB,9.1648E-02_JPRB/)  
+KAO( :, 4, 1, 9) = (/&
+ & 6.6791E-02_JPRB,6.9579E-02_JPRB,7.6737E-02_JPRB,8.5244E-02_JPRB,9.1845E-02_JPRB,9.4527E-02_JPRB,&
+ & 9.2441E-02_JPRB,6.6791E-02_JPRB,1.1307E-01_JPRB/)  
+KAO( :, 5, 1, 9) = (/&
+ & 6.7298E-02_JPRB,7.3839E-02_JPRB,8.5356E-02_JPRB,9.7147E-02_JPRB,1.0554E-01_JPRB,1.0978E-01_JPRB,&
+ & 1.0752E-01_JPRB,6.7298E-02_JPRB,1.3678E-01_JPRB/)  
+KAO( :, 1, 2, 9) = (/&
+ & 7.0877E-02_JPRB,6.5253E-02_JPRB,6.1232E-02_JPRB,5.7942E-02_JPRB,5.5662E-02_JPRB,5.3703E-02_JPRB,&
+ & 5.0251E-02_JPRB,7.0877E-02_JPRB,4.8550E-02_JPRB/)  
+KAO( :, 2, 2, 9) = (/&
+ & 7.1555E-02_JPRB,6.7492E-02_JPRB,6.5473E-02_JPRB,6.4551E-02_JPRB,6.5054E-02_JPRB,6.5264E-02_JPRB,&
+ & 6.3231E-02_JPRB,7.1555E-02_JPRB,6.3334E-02_JPRB/)  
+KAO( :, 3, 2, 9) = (/&
+ & 7.2159E-02_JPRB,7.0218E-02_JPRB,7.0742E-02_JPRB,7.3278E-02_JPRB,7.6459E-02_JPRB,7.8274E-02_JPRB,&
+ & 7.6836E-02_JPRB,7.2159E-02_JPRB,8.0528E-02_JPRB/)  
+KAO( :, 4, 2, 9) = (/&
+ & 7.2672E-02_JPRB,7.3326E-02_JPRB,7.7456E-02_JPRB,8.3314E-02_JPRB,8.9061E-02_JPRB,9.2382E-02_JPRB,&
+ & 9.1438E-02_JPRB,7.2672E-02_JPRB,1.0017E-01_JPRB/)  
+KAO( :, 5, 2, 9) = (/&
+ & 7.3068E-02_JPRB,7.7090E-02_JPRB,8.5132E-02_JPRB,9.4518E-02_JPRB,1.0309E-01_JPRB,1.0796E-01_JPRB,&
+ & 1.0651E-01_JPRB,7.3067E-02_JPRB,1.2229E-01_JPRB/)  
+KAO( :, 1, 3, 9) = (/&
+ & 7.7836E-02_JPRB,7.0551E-02_JPRB,6.4559E-02_JPRB,5.9167E-02_JPRB,5.4414E-02_JPRB,5.0314E-02_JPRB,&
+ & 4.5794E-02_JPRB,7.7836E-02_JPRB,3.8882E-02_JPRB/)  
+KAO( :, 2, 3, 9) = (/&
+ & 7.8435E-02_JPRB,7.2532E-02_JPRB,6.8092E-02_JPRB,6.4613E-02_JPRB,6.2358E-02_JPRB,6.0608E-02_JPRB,&
+ & 5.8276E-02_JPRB,7.8435E-02_JPRB,5.1370E-02_JPRB/)  
+KAO( :, 3, 3, 9) = (/&
+ & 7.8932E-02_JPRB,7.4825E-02_JPRB,7.2527E-02_JPRB,7.1989E-02_JPRB,7.2471E-02_JPRB,7.2873E-02_JPRB,&
+ & 7.1766E-02_JPRB,7.8932E-02_JPRB,6.6086E-02_JPRB/)  
+KAO( :, 4, 3, 9) = (/&
+ & 7.9379E-02_JPRB,7.7501E-02_JPRB,7.8388E-02_JPRB,8.0847E-02_JPRB,8.4097E-02_JPRB,8.6801E-02_JPRB,&
+ & 8.6568E-02_JPRB,7.9379E-02_JPRB,8.3141E-02_JPRB/)  
+KAO( :, 5, 3, 9) = (/&
+ & 7.9699E-02_JPRB,8.0691E-02_JPRB,8.5121E-02_JPRB,9.1008E-02_JPRB,9.7441E-02_JPRB,1.0226E-01_JPRB,&
+ & 1.0163E-01_JPRB,7.9699E-02_JPRB,1.0254E-01_JPRB/)  
+KAO( :, 1, 4, 9) = (/&
+ & 8.4906E-02_JPRB,7.6241E-02_JPRB,6.8684E-02_JPRB,6.1260E-02_JPRB,5.4322E-02_JPRB,4.8027E-02_JPRB,&
+ & 4.1411E-02_JPRB,8.4906E-02_JPRB,3.0325E-02_JPRB/)  
+KAO( :, 2, 4, 9) = (/&
+ & 8.5698E-02_JPRB,7.8243E-02_JPRB,7.1748E-02_JPRB,6.5778E-02_JPRB,6.0935E-02_JPRB,5.6719E-02_JPRB,&
+ & 5.2610E-02_JPRB,8.5698E-02_JPRB,4.0549E-02_JPRB/)  
+KAO( :, 3, 4, 9) = (/&
+ & 8.6275E-02_JPRB,8.0324E-02_JPRB,7.5429E-02_JPRB,7.2009E-02_JPRB,6.9531E-02_JPRB,6.7539E-02_JPRB,&
+ & 6.5470E-02_JPRB,8.6275E-02_JPRB,5.2700E-02_JPRB/)  
+KAO( :, 4, 4, 9) = (/&
+ & 8.6713E-02_JPRB,8.2575E-02_JPRB,8.0462E-02_JPRB,7.9748E-02_JPRB,7.9735E-02_JPRB,8.0326E-02_JPRB,&
+ & 7.9974E-02_JPRB,8.6713E-02_JPRB,6.7029E-02_JPRB/)  
+KAO( :, 5, 4, 9) = (/&
+ & 8.7027E-02_JPRB,8.5276E-02_JPRB,8.6509E-02_JPRB,8.8819E-02_JPRB,9.1761E-02_JPRB,9.4798E-02_JPRB,&
+ & 9.4801E-02_JPRB,8.7027E-02_JPRB,8.3508E-02_JPRB/)  
+KAO( :, 1, 5, 9) = (/&
+ & 9.1507E-02_JPRB,8.1620E-02_JPRB,7.2828E-02_JPRB,6.4142E-02_JPRB,5.5568E-02_JPRB,4.7251E-02_JPRB,&
+ & 3.8880E-02_JPRB,9.1507E-02_JPRB,2.3229E-02_JPRB/)  
+KAO( :, 2, 5, 9) = (/&
+ & 9.2405E-02_JPRB,8.3679E-02_JPRB,7.5863E-02_JPRB,6.8216E-02_JPRB,6.1046E-02_JPRB,5.4513E-02_JPRB,&
+ & 4.8261E-02_JPRB,9.2405E-02_JPRB,3.1508E-02_JPRB/)  
+KAO( :, 3, 5, 9) = (/&
+ & 9.3115E-02_JPRB,8.5700E-02_JPRB,7.9335E-02_JPRB,7.3579E-02_JPRB,6.8420E-02_JPRB,6.3872E-02_JPRB,&
+ & 5.9567E-02_JPRB,9.3115E-02_JPRB,4.1511E-02_JPRB/)  
+KAO( :, 4, 5, 9) = (/&
+ & 9.3636E-02_JPRB,8.7963E-02_JPRB,8.3776E-02_JPRB,8.0336E-02_JPRB,7.7284E-02_JPRB,7.5046E-02_JPRB,&
+ & 7.2882E-02_JPRB,9.3636E-02_JPRB,5.3333E-02_JPRB/)  
+KAO( :, 5, 5, 9) = (/&
+ & 9.4011E-02_JPRB,9.0504E-02_JPRB,8.9128E-02_JPRB,8.8247E-02_JPRB,8.7824E-02_JPRB,8.7979E-02_JPRB,&
+ & 8.7078E-02_JPRB,9.4011E-02_JPRB,6.7155E-02_JPRB/)  
+KAO( :, 1, 6, 9) = (/&
+ & 9.7472E-02_JPRB,8.6538E-02_JPRB,7.6624E-02_JPRB,6.6824E-02_JPRB,5.7059E-02_JPRB,4.7268E-02_JPRB,&
+ & 3.7138E-02_JPRB,9.7472E-02_JPRB,1.7221E-02_JPRB/)  
+KAO( :, 2, 6, 9) = (/&
+ & 9.8451E-02_JPRB,8.8518E-02_JPRB,7.9536E-02_JPRB,7.0737E-02_JPRB,6.1956E-02_JPRB,5.3328E-02_JPRB,&
+ & 4.4923E-02_JPRB,9.8451E-02_JPRB,2.3780E-02_JPRB/)  
+KAO( :, 3, 6, 9) = (/&
+ & 9.9270E-02_JPRB,9.0592E-02_JPRB,8.2992E-02_JPRB,7.5645E-02_JPRB,6.8338E-02_JPRB,6.1246E-02_JPRB,&
+ & 5.4647E-02_JPRB,9.9270E-02_JPRB,3.1821E-02_JPRB/)  
+KAO( :, 4, 6, 9) = (/&
+ & 9.9874E-02_JPRB,9.2825E-02_JPRB,8.7145E-02_JPRB,8.1713E-02_JPRB,7.6024E-02_JPRB,7.0895E-02_JPRB,&
+ & 6.6256E-02_JPRB,9.9874E-02_JPRB,4.1514E-02_JPRB/)  
+KAO( :, 5, 6, 9) = (/&
+ & 1.0031E-01_JPRB,9.5362E-02_JPRB,9.2196E-02_JPRB,8.8672E-02_JPRB,8.5237E-02_JPRB,8.2164E-02_JPRB,&
+ & 7.9017E-02_JPRB,1.0031E-01_JPRB,5.2892E-02_JPRB/)  
+KAO( :, 1, 7, 9) = (/&
+ & 1.0232E-01_JPRB,9.0553E-02_JPRB,7.9624E-02_JPRB,6.8906E-02_JPRB,5.8070E-02_JPRB,4.7256E-02_JPRB,&
+ & 3.6147E-02_JPRB,1.0232E-01_JPRB,1.2551E-02_JPRB/)  
+KAO( :, 2, 7, 9) = (/&
+ & 1.0337E-01_JPRB,9.2407E-02_JPRB,8.2434E-02_JPRB,7.2548E-02_JPRB,6.2643E-02_JPRB,5.2753E-02_JPRB,&
+ & 4.2581E-02_JPRB,1.0337E-01_JPRB,1.7575E-02_JPRB/)  
+KAO( :, 3, 7, 9) = (/&
+ & 1.0428E-01_JPRB,9.4463E-02_JPRB,8.5756E-02_JPRB,7.7103E-02_JPRB,6.8472E-02_JPRB,5.9711E-02_JPRB,&
+ & 5.0861E-02_JPRB,1.0428E-01_JPRB,2.3865E-02_JPRB/)  
+KAO( :, 4, 7, 9) = (/&
+ & 1.0499E-01_JPRB,9.6649E-02_JPRB,8.9715E-02_JPRB,8.2804E-02_JPRB,7.5682E-02_JPRB,6.8094E-02_JPRB,&
+ & 6.0862E-02_JPRB,1.0499E-01_JPRB,3.1546E-02_JPRB/)  
+KAO( :, 5, 7, 9) = (/&
+ & 1.0547E-01_JPRB,9.9180E-02_JPRB,9.4519E-02_JPRB,8.9479E-02_JPRB,8.3717E-02_JPRB,7.7813E-02_JPRB,&
+ & 7.1993E-02_JPRB,1.0547E-01_JPRB,4.0721E-02_JPRB/)  
+KAO( :, 1, 8, 9) = (/&
+ & 1.0518E-01_JPRB,9.2886E-02_JPRB,8.1191E-02_JPRB,6.9957E-02_JPRB,5.8508E-02_JPRB,4.6965E-02_JPRB,&
+ & 3.4947E-02_JPRB,1.0518E-01_JPRB,9.1670E-03_JPRB/)  
+KAO( :, 2, 8, 9) = (/&
+ & 1.0636E-01_JPRB,9.4674E-02_JPRB,8.4036E-02_JPRB,7.3413E-02_JPRB,6.2776E-02_JPRB,5.2007E-02_JPRB,&
+ & 4.0951E-02_JPRB,1.0636E-01_JPRB,1.2998E-02_JPRB/)  
+KAO( :, 3, 8, 9) = (/&
+ & 1.0733E-01_JPRB,9.6738E-02_JPRB,8.7252E-02_JPRB,7.7783E-02_JPRB,6.8203E-02_JPRB,5.8372E-02_JPRB,&
+ & 4.8034E-02_JPRB,1.0733E-01_JPRB,1.7878E-02_JPRB/)  
+KAO( :, 4, 8, 9) = (/&
+ & 1.0812E-01_JPRB,9.8911E-02_JPRB,9.1152E-02_JPRB,8.3173E-02_JPRB,7.4963E-02_JPRB,6.6116E-02_JPRB,&
+ & 5.6655E-02_JPRB,1.0812E-01_JPRB,2.3868E-02_JPRB/)  
+KAO( :, 5, 8, 9) = (/&
+ & 1.0863E-01_JPRB,1.0151E-01_JPRB,9.5717E-02_JPRB,8.9578E-02_JPRB,8.2572E-02_JPRB,7.4669E-02_JPRB,&
+ & 6.6397E-02_JPRB,1.0863E-01_JPRB,3.1082E-02_JPRB/)  
+KAO( :, 1, 9, 9) = (/&
+ & 1.0589E-01_JPRB,9.3378E-02_JPRB,8.1320E-02_JPRB,6.9699E-02_JPRB,5.7939E-02_JPRB,4.5963E-02_JPRB,&
+ & 3.3510E-02_JPRB,1.0589E-01_JPRB,1.5005E-02_JPRB/)  
+KAO( :, 2, 9, 9) = (/&
+ & 1.0710E-01_JPRB,9.5046E-02_JPRB,8.3992E-02_JPRB,7.2968E-02_JPRB,6.1840E-02_JPRB,5.0670E-02_JPRB,&
+ & 3.9172E-02_JPRB,1.0710E-01_JPRB,1.6687E-02_JPRB/)  
+KAO( :, 3, 9, 9) = (/&
+ & 1.0811E-01_JPRB,9.7025E-02_JPRB,8.7062E-02_JPRB,7.7135E-02_JPRB,6.7008E-02_JPRB,5.6693E-02_JPRB,&
+ & 4.5539E-02_JPRB,1.0811E-01_JPRB,1.9062E-02_JPRB/)  
+KAO( :, 4, 9, 9) = (/&
+ & 1.0893E-01_JPRB,9.9210E-02_JPRB,9.0893E-02_JPRB,8.2268E-02_JPRB,7.3432E-02_JPRB,6.3872E-02_JPRB,&
+ & 5.3354E-02_JPRB,1.0893E-01_JPRB,2.2517E-02_JPRB/)  
+KAO( :, 5, 9, 9) = (/&
+ & 1.0951E-01_JPRB,1.0180E-01_JPRB,9.5328E-02_JPRB,8.8533E-02_JPRB,8.0777E-02_JPRB,7.1933E-02_JPRB,&
+ & 6.1860E-02_JPRB,1.0951E-01_JPRB,2.7194E-02_JPRB/)  
+KAO( :, 1,10, 9) = (/&
+ & 1.0463E-01_JPRB,9.2191E-02_JPRB,8.0132E-02_JPRB,6.8413E-02_JPRB,5.6641E-02_JPRB,4.4619E-02_JPRB,&
+ & 3.2080E-02_JPRB,1.0463E-01_JPRB,8.3991E-02_JPRB/)  
+KAO( :, 2,10, 9) = (/&
+ & 1.0582E-01_JPRB,9.3770E-02_JPRB,8.2627E-02_JPRB,7.1539E-02_JPRB,6.0265E-02_JPRB,4.8989E-02_JPRB,&
+ & 3.7366E-02_JPRB,1.0582E-01_JPRB,8.5008E-02_JPRB/)  
+KAO( :, 3,10, 9) = (/&
+ & 1.0683E-01_JPRB,9.5651E-02_JPRB,8.5587E-02_JPRB,7.5429E-02_JPRB,6.5154E-02_JPRB,5.4715E-02_JPRB,&
+ & 4.3408E-02_JPRB,1.0683E-01_JPRB,8.6636E-02_JPRB/)  
+KAO( :, 4,10, 9) = (/&
+ & 1.0759E-01_JPRB,9.7764E-02_JPRB,8.9220E-02_JPRB,8.0336E-02_JPRB,7.1349E-02_JPRB,6.1576E-02_JPRB,&
+ & 5.0720E-02_JPRB,1.0759E-01_JPRB,8.8133E-02_JPRB/)  
+KAO( :, 5,10, 9) = (/&
+ & 1.0814E-01_JPRB,1.0027E-01_JPRB,9.3476E-02_JPRB,8.6461E-02_JPRB,7.8470E-02_JPRB,6.9232E-02_JPRB,&
+ & 5.8604E-02_JPRB,1.0814E-01_JPRB,8.9595E-02_JPRB/)  
+KAO( :, 1,11, 9) = (/&
+ & 1.0192E-01_JPRB,8.9934E-02_JPRB,7.8442E-02_JPRB,6.7206E-02_JPRB,5.5807E-02_JPRB,4.4274E-02_JPRB,&
+ & 3.2485E-02_JPRB,1.0192E-01_JPRB,2.1346E-01_JPRB/)  
+KAO( :, 2,11, 9) = (/&
+ & 1.0294E-01_JPRB,9.1474E-02_JPRB,8.1001E-02_JPRB,7.0324E-02_JPRB,5.9618E-02_JPRB,4.8890E-02_JPRB,&
+ & 3.7724E-02_JPRB,1.0294E-01_JPRB,2.1319E-01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART6',1,ZHOOK_HANDLE)
+END SUBROUTINE PART6
+
+
+SUBROUTINE PART7
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART7',0,ZHOOK_HANDLE)
+
+
+KAO( :, 3,11, 9) = (/&
+ & 1.0376E-01_JPRB,9.3370E-02_JPRB,8.3962E-02_JPRB,7.4435E-02_JPRB,6.4795E-02_JPRB,5.4795E-02_JPRB,&
+ & 4.3827E-02_JPRB,1.0376E-01_JPRB,2.1289E-01_JPRB/)  
+KAO( :, 4,11, 9) = (/&
+ & 1.0437E-01_JPRB,9.5489E-02_JPRB,8.7682E-02_JPRB,7.9614E-02_JPRB,7.1102E-02_JPRB,6.1619E-02_JPRB,&
+ & 5.1046E-02_JPRB,1.0437E-01_JPRB,2.1287E-01_JPRB/)  
+KAO( :, 5,11, 9) = (/&
+ & 1.0475E-01_JPRB,9.8083E-02_JPRB,9.2124E-02_JPRB,8.5743E-02_JPRB,7.7946E-02_JPRB,6.9048E-02_JPRB,&
+ & 5.8627E-02_JPRB,1.0475E-01_JPRB,2.1310E-01_JPRB/)  
+KAO( :, 1,12, 9) = (/&
+ & 9.7261E-02_JPRB,8.5991E-02_JPRB,7.5324E-02_JPRB,6.4737E-02_JPRB,5.3989E-02_JPRB,4.3184E-02_JPRB,&
+ & 3.2169E-02_JPRB,9.7261E-02_JPRB,3.5384E-01_JPRB/)  
+KAO( :, 2,12, 9) = (/&
+ & 9.8101E-02_JPRB,8.7528E-02_JPRB,7.7838E-02_JPRB,6.7921E-02_JPRB,5.8031E-02_JPRB,4.8011E-02_JPRB,&
+ & 3.7356E-02_JPRB,9.8101E-02_JPRB,3.5110E-01_JPRB/)  
+KAO( :, 3,12, 9) = (/&
+ & 9.8721E-02_JPRB,8.9358E-02_JPRB,8.0844E-02_JPRB,7.2156E-02_JPRB,6.3303E-02_JPRB,5.3812E-02_JPRB,&
+ & 4.3478E-02_JPRB,9.8721E-02_JPRB,3.4905E-01_JPRB/)  
+KAO( :, 4,12, 9) = (/&
+ & 9.9073E-02_JPRB,9.1448E-02_JPRB,8.4556E-02_JPRB,7.7373E-02_JPRB,6.9369E-02_JPRB,6.0482E-02_JPRB,&
+ & 5.0434E-02_JPRB,9.9073E-02_JPRB,3.4710E-01_JPRB/)  
+KAO( :, 5,12, 9) = (/&
+ & 9.9229E-02_JPRB,9.3917E-02_JPRB,8.9028E-02_JPRB,8.3070E-02_JPRB,7.5795E-02_JPRB,6.7464E-02_JPRB,&
+ & 5.7745E-02_JPRB,9.9229E-02_JPRB,3.4526E-01_JPRB/)  
+KAO( :, 1,13, 9) = (/&
+ & 9.0938E-02_JPRB,8.0633E-02_JPRB,7.0954E-02_JPRB,6.1198E-02_JPRB,5.1349E-02_JPRB,4.1513E-02_JPRB,&
+ & 3.1321E-02_JPRB,9.0938E-02_JPRB,4.7630E-01_JPRB/)  
+KAO( :, 2,13, 9) = (/&
+ & 9.1524E-02_JPRB,8.2076E-02_JPRB,7.3333E-02_JPRB,6.4427E-02_JPRB,5.5526E-02_JPRB,4.6304E-02_JPRB,&
+ & 3.6408E-02_JPRB,9.1524E-02_JPRB,4.7149E-01_JPRB/)  
+KAO( :, 3,13, 9) = (/&
+ & 9.1870E-02_JPRB,8.3785E-02_JPRB,7.6354E-02_JPRB,6.8726E-02_JPRB,6.0650E-02_JPRB,5.1878E-02_JPRB,&
+ & 4.2350E-02_JPRB,9.1870E-02_JPRB,4.6781E-01_JPRB/)  
+KAO( :, 4,13, 9) = (/&
+ & 9.2057E-02_JPRB,8.5864E-02_JPRB,8.0053E-02_JPRB,7.3650E-02_JPRB,6.6361E-02_JPRB,5.8175E-02_JPRB,&
+ & 4.8890E-02_JPRB,9.2057E-02_JPRB,4.6471E-01_JPRB/)  
+KAO( :, 5,13, 9) = (/&
+ & 9.2051E-02_JPRB,8.8153E-02_JPRB,8.4238E-02_JPRB,7.8829E-02_JPRB,7.2224E-02_JPRB,6.4662E-02_JPRB,&
+ & 5.5790E-02_JPRB,9.2051E-02_JPRB,4.6177E-01_JPRB/)  
+KAO( :, 1, 1,10) = (/&
+ & 1.8970E-01_JPRB,1.6722E-01_JPRB,1.5940E-01_JPRB,1.4654E-01_JPRB,1.3412E-01_JPRB,1.1990E-01_JPRB,&
+ & 1.0153E-01_JPRB,1.8970E-01_JPRB,1.2683E-01_JPRB/)  
+KAO( :, 2, 1,10) = (/&
+ & 1.9310E-01_JPRB,1.7584E-01_JPRB,1.7032E-01_JPRB,1.6287E-01_JPRB,1.5198E-01_JPRB,1.3637E-01_JPRB,&
+ & 1.1338E-01_JPRB,1.9310E-01_JPRB,1.6492E-01_JPRB/)  
+KAO( :, 3, 1,10) = (/&
+ & 1.9644E-01_JPRB,1.8616E-01_JPRB,1.8463E-01_JPRB,1.7853E-01_JPRB,1.6686E-01_JPRB,1.5307E-01_JPRB,&
+ & 1.3006E-01_JPRB,1.9644E-01_JPRB,2.0951E-01_JPRB/)  
+KAO( :, 4, 1,10) = (/&
+ & 1.9909E-01_JPRB,1.9510E-01_JPRB,1.9794E-01_JPRB,1.9455E-01_JPRB,1.8814E-01_JPRB,1.6970E-01_JPRB,&
+ & 1.4049E-01_JPRB,1.9909E-01_JPRB,2.6023E-01_JPRB/)  
+KAO( :, 5, 1,10) = (/&
+ & 2.0141E-01_JPRB,2.0423E-01_JPRB,2.1198E-01_JPRB,2.1359E-01_JPRB,2.0320E-01_JPRB,1.7839E-01_JPRB,&
+ & 1.6166E-01_JPRB,2.0141E-01_JPRB,3.1814E-01_JPRB/)  
+KAO( :, 1, 2,10) = (/&
+ & 1.8513E-01_JPRB,1.6417E-01_JPRB,1.5570E-01_JPRB,1.4299E-01_JPRB,1.3028E-01_JPRB,1.1558E-01_JPRB,&
+ & 9.7575E-02_JPRB,1.8513E-01_JPRB,1.2033E-01_JPRB/)  
+KAO( :, 2, 2,10) = (/&
+ & 1.8950E-01_JPRB,1.7381E-01_JPRB,1.6710E-01_JPRB,1.5962E-01_JPRB,1.4697E-01_JPRB,1.3061E-01_JPRB,&
+ & 1.0961E-01_JPRB,1.8950E-01_JPRB,1.5920E-01_JPRB/)  
+KAO( :, 3, 2,10) = (/&
+ & 1.9362E-01_JPRB,1.8395E-01_JPRB,1.8195E-01_JPRB,1.7419E-01_JPRB,1.6167E-01_JPRB,1.4828E-01_JPRB,&
+ & 1.2568E-01_JPRB,1.9362E-01_JPRB,2.0282E-01_JPRB/)  
+KAO( :, 4, 2,10) = (/&
+ & 1.9721E-01_JPRB,1.9348E-01_JPRB,1.9530E-01_JPRB,1.9112E-01_JPRB,1.8284E-01_JPRB,1.6500E-01_JPRB,&
+ & 1.3708E-01_JPRB,1.9721E-01_JPRB,2.5204E-01_JPRB/)  
+KAO( :, 5, 2,10) = (/&
+ & 2.0023E-01_JPRB,2.0320E-01_JPRB,2.1020E-01_JPRB,2.0819E-01_JPRB,1.9741E-01_JPRB,1.7466E-01_JPRB,&
+ & 1.5343E-01_JPRB,2.0023E-01_JPRB,3.0808E-01_JPRB/)  
+KAO( :, 1, 3,10) = (/&
+ & 1.8001E-01_JPRB,1.5918E-01_JPRB,1.4957E-01_JPRB,1.3634E-01_JPRB,1.2400E-01_JPRB,1.1052E-01_JPRB,&
+ & 9.3510E-02_JPRB,1.8001E-01_JPRB,1.0219E-01_JPRB/)  
+KAO( :, 2, 3,10) = (/&
+ & 1.8528E-01_JPRB,1.6901E-01_JPRB,1.6096E-01_JPRB,1.5327E-01_JPRB,1.4061E-01_JPRB,1.2481E-01_JPRB,&
+ & 1.0682E-01_JPRB,1.8528E-01_JPRB,1.3773E-01_JPRB/)  
+KAO( :, 3, 3,10) = (/&
+ & 1.9023E-01_JPRB,1.7929E-01_JPRB,1.7582E-01_JPRB,1.6700E-01_JPRB,1.5430E-01_JPRB,1.4161E-01_JPRB,&
+ & 1.2252E-01_JPRB,1.9023E-01_JPRB,1.7877E-01_JPRB/)  
+KAO( :, 4, 3,10) = (/&
+ & 1.9469E-01_JPRB,1.8893E-01_JPRB,1.8906E-01_JPRB,1.8314E-01_JPRB,1.7449E-01_JPRB,1.5948E-01_JPRB,&
+ & 1.3408E-01_JPRB,1.9469E-01_JPRB,2.2723E-01_JPRB/)  
+KAO( :, 5, 3,10) = (/&
+ & 1.9821E-01_JPRB,1.9946E-01_JPRB,2.0415E-01_JPRB,1.9922E-01_JPRB,1.8972E-01_JPRB,1.7229E-01_JPRB,&
+ & 1.5170E-01_JPRB,1.9821E-01_JPRB,2.8243E-01_JPRB/)  
+KAO( :, 1, 4,10) = (/&
+ & 1.7916E-01_JPRB,1.5693E-01_JPRB,1.4317E-01_JPRB,1.2970E-01_JPRB,1.1820E-01_JPRB,1.0542E-01_JPRB,&
+ & 8.8810E-02_JPRB,1.7916E-01_JPRB,8.1629E-02_JPRB/)  
+KAO( :, 2, 4,10) = (/&
+ & 1.8393E-01_JPRB,1.6496E-01_JPRB,1.5408E-01_JPRB,1.4656E-01_JPRB,1.3470E-01_JPRB,1.1968E-01_JPRB,&
+ & 1.0109E-01_JPRB,1.8393E-01_JPRB,1.1300E-01_JPRB/)  
+KAO( :, 3, 4,10) = (/&
+ & 1.8829E-01_JPRB,1.7395E-01_JPRB,1.6912E-01_JPRB,1.6090E-01_JPRB,1.4836E-01_JPRB,1.3533E-01_JPRB,&
+ & 1.1688E-01_JPRB,1.8829E-01_JPRB,1.5011E-01_JPRB/)  
+KAO( :, 4, 4,10) = (/&
+ & 1.9238E-01_JPRB,1.8364E-01_JPRB,1.8242E-01_JPRB,1.7617E-01_JPRB,1.6761E-01_JPRB,1.5430E-01_JPRB,&
+ & 1.3056E-01_JPRB,1.9230E-01_JPRB,1.9532E-01_JPRB/)  
+KAO( :, 5, 4,10) = (/&
+ & 1.9574E-01_JPRB,1.9463E-01_JPRB,1.9705E-01_JPRB,1.9264E-01_JPRB,1.8511E-01_JPRB,1.7157E-01_JPRB,&
+ & 1.5145E-01_JPRB,1.9574E-01_JPRB,2.4701E-01_JPRB/)  
+KAO( :, 1, 5,10) = (/&
+ & 1.8797E-01_JPRB,1.6453E-01_JPRB,1.4533E-01_JPRB,1.2686E-01_JPRB,1.1219E-01_JPRB,9.8719E-02_JPRB,&
+ & 8.1932E-02_JPRB,1.8797E-01_JPRB,6.5166E-02_JPRB/)  
+KAO( :, 2, 5,10) = (/&
+ & 1.9160E-01_JPRB,1.6925E-01_JPRB,1.5218E-01_JPRB,1.4014E-01_JPRB,1.2917E-01_JPRB,1.1302E-01_JPRB,&
+ & 9.4480E-02_JPRB,1.9160E-01_JPRB,9.2077E-02_JPRB/)  
+KAO( :, 3, 5,10) = (/&
+ & 1.9446E-01_JPRB,1.7578E-01_JPRB,1.6402E-01_JPRB,1.5506E-01_JPRB,1.4235E-01_JPRB,1.2780E-01_JPRB,&
+ & 1.1066E-01_JPRB,1.9446E-01_JPRB,1.2479E-01_JPRB/)  
+KAO( :, 4, 5,10) = (/&
+ & 1.9736E-01_JPRB,1.8183E-01_JPRB,1.7664E-01_JPRB,1.6999E-01_JPRB,1.6179E-01_JPRB,1.4826E-01_JPRB,&
+ & 1.2816E-01_JPRB,1.9736E-01_JPRB,1.6346E-01_JPRB/)  
+KAO( :, 5, 5,10) = (/&
+ & 2.0011E-01_JPRB,1.9074E-01_JPRB,1.9082E-01_JPRB,1.8829E-01_JPRB,1.8080E-01_JPRB,1.6858E-01_JPRB,&
+ & 1.5009E-01_JPRB,2.0011E-01_JPRB,2.0822E-01_JPRB/)  
+KAO( :, 1, 6,10) = (/&
+ & 2.0223E-01_JPRB,1.7699E-01_JPRB,1.5322E-01_JPRB,1.3128E-01_JPRB,1.1092E-01_JPRB,9.1561E-02_JPRB,&
+ & 7.3661E-02_JPRB,2.0223E-01_JPRB,5.1377E-02_JPRB/)  
+KAO( :, 2, 6,10) = (/&
+ & 2.0512E-01_JPRB,1.7967E-01_JPRB,1.5788E-01_JPRB,1.3938E-01_JPRB,1.2268E-01_JPRB,1.0543E-01_JPRB,&
+ & 8.7385E-02_JPRB,2.0512E-01_JPRB,7.3853E-02_JPRB/)  
+KAO( :, 3, 6,10) = (/&
+ & 2.0790E-01_JPRB,1.8450E-01_JPRB,1.6529E-01_JPRB,1.5112E-01_JPRB,1.3529E-01_JPRB,1.2022E-01_JPRB,&
+ & 1.0398E-01_JPRB,2.0790E-01_JPRB,1.0087E-01_JPRB/)  
+KAO( :, 4, 6,10) = (/&
+ & 2.1004E-01_JPRB,1.8823E-01_JPRB,1.7509E-01_JPRB,1.6284E-01_JPRB,1.5386E-01_JPRB,1.4155E-01_JPRB,&
+ & 1.2427E-01_JPRB,2.1004E-01_JPRB,1.3360E-01_JPRB/)  
+KAO( :, 5, 6,10) = (/&
+ & 2.1183E-01_JPRB,1.9428E-01_JPRB,1.8513E-01_JPRB,1.8177E-01_JPRB,1.7498E-01_JPRB,1.6423E-01_JPRB,&
+ & 1.4704E-01_JPRB,2.1183E-01_JPRB,1.7178E-01_JPRB/)  
+KAO( :, 1, 7,10) = (/&
+ & 2.1966E-01_JPRB,1.9223E-01_JPRB,1.6487E-01_JPRB,1.4075E-01_JPRB,1.1743E-01_JPRB,9.2352E-02_JPRB,&
+ & 6.7165E-02_JPRB,2.1966E-01_JPRB,3.9844E-02_JPRB/)  
+KAO( :, 2, 7,10) = (/&
+ & 2.2289E-01_JPRB,1.9505E-01_JPRB,1.7012E-01_JPRB,1.4711E-01_JPRB,1.2482E-01_JPRB,1.0166E-01_JPRB,&
+ & 8.1116E-02_JPRB,2.2289E-01_JPRB,5.8803E-02_JPRB/)  
+KAO( :, 3, 7,10) = (/&
+ & 2.2562E-01_JPRB,1.9918E-01_JPRB,1.7558E-01_JPRB,1.5579E-01_JPRB,1.3361E-01_JPRB,1.1381E-01_JPRB,&
+ & 9.8296E-02_JPRB,2.2562E-01_JPRB,8.2105E-02_JPRB/)  
+KAO( :, 4, 7,10) = (/&
+ & 2.2798E-01_JPRB,2.0283E-01_JPRB,1.8393E-01_JPRB,1.6360E-01_JPRB,1.4672E-01_JPRB,1.3482E-01_JPRB,&
+ & 1.1942E-01_JPRB,2.2798E-01_JPRB,1.1013E-01_JPRB/)  
+KAO( :, 5, 7,10) = (/&
+ & 2.2965E-01_JPRB,2.0713E-01_JPRB,1.9045E-01_JPRB,1.7711E-01_JPRB,1.6890E-01_JPRB,1.5875E-01_JPRB,&
+ & 1.4294E-01_JPRB,2.2965E-01_JPRB,1.4301E-01_JPRB/)  
+KAO( :, 1, 8,10) = (/&
+ & 2.3927E-01_JPRB,2.0940E-01_JPRB,1.7953E-01_JPRB,1.5074E-01_JPRB,1.2505E-01_JPRB,9.7338E-02_JPRB,&
+ & 6.8761E-02_JPRB,2.3927E-01_JPRB,3.1572E-02_JPRB/)  
+KAO( :, 2, 8,10) = (/&
+ & 2.4243E-01_JPRB,2.1216E-01_JPRB,1.8359E-01_JPRB,1.5756E-01_JPRB,1.3069E-01_JPRB,1.0456E-01_JPRB,&
+ & 7.7923E-02_JPRB,2.4243E-01_JPRB,4.5978E-02_JPRB/)  
+KAO( :, 3, 8,10) = (/&
+ & 2.4547E-01_JPRB,2.1534E-01_JPRB,1.8853E-01_JPRB,1.6503E-01_JPRB,1.3896E-01_JPRB,1.1377E-01_JPRB,&
+ & 9.3425E-02_JPRB,2.4547E-01_JPRB,6.4381E-02_JPRB/)  
+KAO( :, 4, 8,10) = (/&
+ & 2.4802E-01_JPRB,2.1966E-01_JPRB,1.9648E-01_JPRB,1.7197E-01_JPRB,1.4872E-01_JPRB,1.2967E-01_JPRB,&
+ & 1.1417E-01_JPRB,2.4802E-01_JPRB,8.7970E-02_JPRB/)  
+KAO( :, 5, 8,10) = (/&
+ & 2.4998E-01_JPRB,2.2309E-01_JPRB,2.0261E-01_JPRB,1.8232E-01_JPRB,1.6517E-01_JPRB,1.5264E-01_JPRB,&
+ & 1.3834E-01_JPRB,2.4998E-01_JPRB,1.1639E-01_JPRB/)  
+KAO( :, 1, 9,10) = (/&
+ & 2.6148E-01_JPRB,2.2882E-01_JPRB,1.9618E-01_JPRB,1.6370E-01_JPRB,1.3448E-01_JPRB,1.0395E-01_JPRB,&
+ & 7.1629E-02_JPRB,2.6148E-01_JPRB,2.8503E-02_JPRB/)  
+KAO( :, 2, 9,10) = (/&
+ & 2.6519E-01_JPRB,2.3210E-01_JPRB,1.9937E-01_JPRB,1.7015E-01_JPRB,1.3964E-01_JPRB,1.0892E-01_JPRB,&
+ & 7.8889E-02_JPRB,2.6519E-01_JPRB,3.8008E-02_JPRB/)  
+KAO( :, 3, 9,10) = (/&
+ & 2.6824E-01_JPRB,2.3478E-01_JPRB,2.0449E-01_JPRB,1.7562E-01_JPRB,1.4652E-01_JPRB,1.1674E-01_JPRB,&
+ & 9.2270E-02_JPRB,2.6824E-01_JPRB,5.2422E-02_JPRB/)  
+KAO( :, 4, 9,10) = (/&
+ & 2.7078E-01_JPRB,2.3877E-01_JPRB,2.1054E-01_JPRB,1.8264E-01_JPRB,1.5412E-01_JPRB,1.3041E-01_JPRB,&
+ & 1.0749E-01_JPRB,2.7078E-01_JPRB,7.0338E-02_JPRB/)  
+KAO( :, 5, 9,10) = (/&
+ & 2.7264E-01_JPRB,2.4161E-01_JPRB,2.1662E-01_JPRB,1.8978E-01_JPRB,1.6860E-01_JPRB,1.4804E-01_JPRB,&
+ & 1.3080E-01_JPRB,2.7264E-01_JPRB,9.2554E-02_JPRB/)  
+KAO( :, 1,10,10) = (/&
+ & 2.8201E-01_JPRB,2.4678E-01_JPRB,2.1156E-01_JPRB,1.7638E-01_JPRB,1.4352E-01_JPRB,1.1084E-01_JPRB,&
+ & 7.6972E-02_JPRB,2.8201E-01_JPRB,1.2471E-01_JPRB/)  
+KAO( :, 2,10,10) = (/&
+ & 2.8576E-01_JPRB,2.5006E-01_JPRB,2.1438E-01_JPRB,1.8231E-01_JPRB,1.4961E-01_JPRB,1.1549E-01_JPRB,&
+ & 8.2006E-02_JPRB,2.8576E-01_JPRB,1.2496E-01_JPRB/)  
+KAO( :, 3,10,10) = (/&
+ & 2.8893E-01_JPRB,2.5286E-01_JPRB,2.1949E-01_JPRB,1.8787E-01_JPRB,1.5551E-01_JPRB,1.2228E-01_JPRB,&
+ & 9.3406E-02_JPRB,2.8893E-01_JPRB,1.2857E-01_JPRB/)  
+KAO( :, 4,10,10) = (/&
+ & 2.9143E-01_JPRB,2.5653E-01_JPRB,2.2518E-01_JPRB,1.9466E-01_JPRB,1.6197E-01_JPRB,1.3409E-01_JPRB,&
+ & 1.0614E-01_JPRB,2.9143E-01_JPRB,1.3664E-01_JPRB/)  
+KAO( :, 5,10,10) = (/&
+ & 2.9269E-01_JPRB,2.5878E-01_JPRB,2.3097E-01_JPRB,1.9967E-01_JPRB,1.7426E-01_JPRB,1.4933E-01_JPRB,&
+ & 1.2477E-01_JPRB,2.9269E-01_JPRB,1.4648E-01_JPRB/)  
+KAO( :, 1,11,10) = (/&
+ & 3.0003E-01_JPRB,2.6255E-01_JPRB,2.2506E-01_JPRB,1.8819E-01_JPRB,1.5371E-01_JPRB,1.1851E-01_JPRB,&
+ & 8.1809E-02_JPRB,3.0003E-01_JPRB,3.1454E-01_JPRB/)  
+KAO( :, 2,11,10) = (/&
+ & 3.0324E-01_JPRB,2.6535E-01_JPRB,2.2775E-01_JPRB,1.9448E-01_JPRB,1.5903E-01_JPRB,1.2292E-01_JPRB,&
+ & 8.8865E-02_JPRB,3.0324E-01_JPRB,3.0861E-01_JPRB/)  
+KAO( :, 3,11,10) = (/&
+ & 3.0493E-01_JPRB,2.6686E-01_JPRB,2.3266E-01_JPRB,1.9918E-01_JPRB,1.6490E-01_JPRB,1.3153E-01_JPRB,&
+ & 1.0078E-01_JPRB,3.0493E-01_JPRB,3.0699E-01_JPRB/)  
+KAO( :, 4,11,10) = (/&
+ & 3.0577E-01_JPRB,2.6940E-01_JPRB,2.3789E-01_JPRB,2.0495E-01_JPRB,1.7338E-01_JPRB,1.4467E-01_JPRB,&
+ & 1.1314E-01_JPRB,3.0577E-01_JPRB,3.1082E-01_JPRB/)  
+KAO( :, 5,11,10) = (/&
+ & 3.0551E-01_JPRB,2.7044E-01_JPRB,2.4227E-01_JPRB,2.1229E-01_JPRB,1.8801E-01_JPRB,1.5979E-01_JPRB,&
+ & 1.3090E-01_JPRB,3.0551E-01_JPRB,3.1527E-01_JPRB/)  
+KAO( :, 1,12,10) = (/&
+ & 3.1134E-01_JPRB,2.7243E-01_JPRB,2.3354E-01_JPRB,1.9639E-01_JPRB,1.6090E-01_JPRB,1.2387E-01_JPRB,&
+ & 8.6052E-02_JPRB,3.1134E-01_JPRB,5.2978E-01_JPRB/)  
+KAO( :, 2,12,10) = (/&
+ & 3.1359E-01_JPRB,2.7441E-01_JPRB,2.3677E-01_JPRB,2.0238E-01_JPRB,1.6552E-01_JPRB,1.2901E-01_JPRB,&
+ & 9.5207E-02_JPRB,3.1359E-01_JPRB,5.2052E-01_JPRB/)  
+KAO( :, 3,12,10) = (/&
+ & 3.1415E-01_JPRB,2.7537E-01_JPRB,2.4122E-01_JPRB,2.0715E-01_JPRB,1.7193E-01_JPRB,1.3997E-01_JPRB,&
+ & 1.0720E-01_JPRB,3.1415E-01_JPRB,5.1560E-01_JPRB/)  
+KAO( :, 4,12,10) = (/&
+ & 3.1372E-01_JPRB,2.7678E-01_JPRB,2.4609E-01_JPRB,2.1256E-01_JPRB,1.8335E-01_JPRB,1.5322E-01_JPRB,&
+ & 1.2081E-01_JPRB,3.1372E-01_JPRB,5.1557E-01_JPRB/)  
+KAO( :, 5,12,10) = (/&
+ & 3.1239E-01_JPRB,2.7822E-01_JPRB,2.4956E-01_JPRB,2.2367E-01_JPRB,1.9838E-01_JPRB,1.6937E-01_JPRB,&
+ & 1.3606E-01_JPRB,3.1239E-01_JPRB,5.1667E-01_JPRB/)  
+KAO( :, 1,13,10) = (/&
+ & 3.1638E-01_JPRB,2.7683E-01_JPRB,2.3750E-01_JPRB,2.0114E-01_JPRB,1.6456E-01_JPRB,1.2632E-01_JPRB,&
+ & 8.9253E-02_JPRB,3.1638E-01_JPRB,7.3497E-01_JPRB/)  
+KAO( :, 2,13,10) = (/&
+ & 3.1671E-01_JPRB,2.7713E-01_JPRB,2.4097E-01_JPRB,2.0542E-01_JPRB,1.6866E-01_JPRB,1.3347E-01_JPRB,&
+ & 9.9658E-02_JPRB,3.1671E-01_JPRB,7.1891E-01_JPRB/)  
+KAO( :, 3,13,10) = (/&
+ & 3.1659E-01_JPRB,2.7824E-01_JPRB,2.4448E-01_JPRB,2.1048E-01_JPRB,1.7715E-01_JPRB,1.4549E-01_JPRB,&
+ & 1.1132E-01_JPRB,3.1659E-01_JPRB,7.1020E-01_JPRB/)  
+KAO( :, 4,13,10) = (/&
+ & 3.1484E-01_JPRB,2.7845E-01_JPRB,2.4849E-01_JPRB,2.1796E-01_JPRB,1.8948E-01_JPRB,1.5955E-01_JPRB,&
+ & 1.2635E-01_JPRB,3.1484E-01_JPRB,7.0756E-01_JPRB/)  
+KAO( :, 5,13,10) = (/&
+ & 3.1186E-01_JPRB,2.8054E-01_JPRB,2.5362E-01_JPRB,2.3086E-01_JPRB,2.0496E-01_JPRB,1.7512E-01_JPRB,&
+ & 1.4143E-01_JPRB,3.1186E-01_JPRB,7.0584E-01_JPRB/)  
+KAO( :, 1, 1,11) = (/&
+ & 3.1327E-01_JPRB,2.7438E-01_JPRB,2.3864E-01_JPRB,2.1648E-01_JPRB,1.8690E-01_JPRB,1.5673E-01_JPRB,&
+ & 1.2734E-01_JPRB,3.1327E-01_JPRB,1.4986E-01_JPRB/)  
+KAO( :, 2, 1,11) = (/&
+ & 3.1392E-01_JPRB,2.7491E-01_JPRB,2.5200E-01_JPRB,2.2734E-01_JPRB,2.0303E-01_JPRB,1.7541E-01_JPRB,&
+ & 1.4089E-01_JPRB,3.1392E-01_JPRB,1.9707E-01_JPRB/)  
+KAO( :, 3, 1,11) = (/&
+ & 3.1383E-01_JPRB,2.7650E-01_JPRB,2.6109E-01_JPRB,2.4195E-01_JPRB,2.1927E-01_JPRB,1.8650E-01_JPRB,&
+ & 1.4955E-01_JPRB,3.1383E-01_JPRB,2.5159E-01_JPRB/)  
+KAO( :, 4, 1,11) = (/&
+ & 3.1272E-01_JPRB,2.8403E-01_JPRB,2.7223E-01_JPRB,2.5585E-01_JPRB,2.2854E-01_JPRB,2.0092E-01_JPRB,&
+ & 1.8691E-01_JPRB,3.1272E-01_JPRB,3.1304E-01_JPRB/)  
+KAO( :, 5, 1,11) = (/&
+ & 3.1090E-01_JPRB,2.8955E-01_JPRB,2.8191E-01_JPRB,2.6664E-01_JPRB,2.4121E-01_JPRB,2.1301E-01_JPRB,&
+ & 2.4137E-01_JPRB,3.1090E-01_JPRB,3.8118E-01_JPRB/)  
+KAO( :, 1, 2,11) = (/&
+ & 3.1324E-01_JPRB,2.7422E-01_JPRB,2.3920E-01_JPRB,2.1500E-01_JPRB,1.8495E-01_JPRB,1.5528E-01_JPRB,&
+ & 1.2577E-01_JPRB,3.1324E-01_JPRB,1.5045E-01_JPRB/)  
+KAO( :, 2, 2,11) = (/&
+ & 3.1470E-01_JPRB,2.7557E-01_JPRB,2.5223E-01_JPRB,2.2657E-01_JPRB,2.0210E-01_JPRB,1.7421E-01_JPRB,&
+ & 1.3837E-01_JPRB,3.1470E-01_JPRB,1.9866E-01_JPRB/)  
+KAO( :, 3, 2,11) = (/&
+ & 3.1536E-01_JPRB,2.7926E-01_JPRB,2.6141E-01_JPRB,2.4214E-01_JPRB,2.1888E-01_JPRB,1.8478E-01_JPRB,&
+ & 1.5074E-01_JPRB,3.1536E-01_JPRB,2.5677E-01_JPRB/)  
+KAO( :, 4, 2,11) = (/&
+ & 3.1504E-01_JPRB,2.8779E-01_JPRB,2.7376E-01_JPRB,2.5633E-01_JPRB,2.2942E-01_JPRB,1.9993E-01_JPRB,&
+ & 1.7112E-01_JPRB,3.1504E-01_JPRB,3.2302E-01_JPRB/)  
+KAO( :, 5, 2,11) = (/&
+ & 3.1381E-01_JPRB,2.9324E-01_JPRB,2.8519E-01_JPRB,2.6951E-01_JPRB,2.4055E-01_JPRB,2.0793E-01_JPRB,&
+ & 2.1700E-01_JPRB,3.1381E-01_JPRB,3.9625E-01_JPRB/)  
+KAO( :, 1, 3,11) = (/&
+ & 3.1204E-01_JPRB,2.7315E-01_JPRB,2.3704E-01_JPRB,2.1094E-01_JPRB,1.7966E-01_JPRB,1.4896E-01_JPRB,&
+ & 1.2013E-01_JPRB,3.1204E-01_JPRB,1.3758E-01_JPRB/)  
+KAO( :, 2, 3,11) = (/&
+ & 3.1466E-01_JPRB,2.7547E-01_JPRB,2.5029E-01_JPRB,2.2183E-01_JPRB,1.9651E-01_JPRB,1.6912E-01_JPRB,&
+ & 1.3258E-01_JPRB,3.1466E-01_JPRB,1.8586E-01_JPRB/)  
+KAO( :, 3, 3,11) = (/&
+ & 3.1617E-01_JPRB,2.7992E-01_JPRB,2.5948E-01_JPRB,2.3884E-01_JPRB,2.1445E-01_JPRB,1.8030E-01_JPRB,&
+ & 1.4450E-01_JPRB,3.1617E-01_JPRB,2.4266E-01_JPRB/)  
+KAO( :, 4, 3,11) = (/&
+ & 3.1681E-01_JPRB,2.8890E-01_JPRB,2.7221E-01_JPRB,2.5334E-01_JPRB,2.2580E-01_JPRB,1.9471E-01_JPRB,&
+ & 1.5799E-01_JPRB,3.1681E-01_JPRB,3.0762E-01_JPRB/)  
+KAO( :, 5, 3,11) = (/&
+ & 3.1660E-01_JPRB,2.9490E-01_JPRB,2.8472E-01_JPRB,2.6817E-01_JPRB,2.3814E-01_JPRB,2.0506E-01_JPRB,&
+ & 1.8418E-01_JPRB,3.1660E-01_JPRB,3.8162E-01_JPRB/)  
+KAO( :, 1, 4,11) = (/&
+ & 3.0866E-01_JPRB,2.7016E-01_JPRB,2.3341E-01_JPRB,2.0592E-01_JPRB,1.7365E-01_JPRB,1.4152E-01_JPRB,&
+ & 1.1350E-01_JPRB,3.0866E-01_JPRB,1.1729E-01_JPRB/)  
+KAO( :, 2, 4,11) = (/&
+ & 3.1261E-01_JPRB,2.7364E-01_JPRB,2.4679E-01_JPRB,2.1687E-01_JPRB,1.8912E-01_JPRB,1.6227E-01_JPRB,&
+ & 1.2877E-01_JPRB,3.1261E-01_JPRB,1.6263E-01_JPRB/)  
+KAO( :, 3, 4,11) = (/&
+ & 3.1517E-01_JPRB,2.7866E-01_JPRB,2.5633E-01_JPRB,2.3322E-01_JPRB,2.0818E-01_JPRB,1.7524E-01_JPRB,&
+ & 1.4011E-01_JPRB,3.1517E-01_JPRB,2.1741E-01_JPRB/)  
+KAO( :, 4, 4,11) = (/&
+ & 3.1718E-01_JPRB,2.8802E-01_JPRB,2.6947E-01_JPRB,2.4866E-01_JPRB,2.2061E-01_JPRB,1.8942E-01_JPRB,&
+ & 1.5695E-01_JPRB,3.1727E-01_JPRB,2.8012E-01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART7',1,ZHOOK_HANDLE)
+END SUBROUTINE PART7
+
+
+SUBROUTINE PART8
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART8',0,ZHOOK_HANDLE)
+
+
+KAO( :, 5, 4,11) = (/&
+ & 3.1858E-01_JPRB,2.9479E-01_JPRB,2.8190E-01_JPRB,2.6309E-01_JPRB,2.3448E-01_JPRB,2.0068E-01_JPRB,&
+ & 1.6930E-01_JPRB,3.1858E-01_JPRB,3.4979E-01_JPRB/)  
+KAO( :, 1, 5,11) = (/&
+ & 3.0359E-01_JPRB,2.6572E-01_JPRB,2.2874E-01_JPRB,1.9974E-01_JPRB,1.6826E-01_JPRB,1.3653E-01_JPRB,&
+ & 1.0959E-01_JPRB,3.0359E-01_JPRB,9.5564E-02_JPRB/)  
+KAO( :, 2, 5,11) = (/&
+ & 3.0961E-01_JPRB,2.7098E-01_JPRB,2.4191E-01_JPRB,2.1172E-01_JPRB,1.8197E-01_JPRB,1.5688E-01_JPRB,&
+ & 1.2682E-01_JPRB,3.0961E-01_JPRB,1.3546E-01_JPRB/)  
+KAO( :, 3, 5,11) = (/&
+ & 3.1431E-01_JPRB,2.7737E-01_JPRB,2.5231E-01_JPRB,2.2743E-01_JPRB,2.0217E-01_JPRB,1.7268E-01_JPRB,&
+ & 1.3768E-01_JPRB,3.1431E-01_JPRB,1.8484E-01_JPRB/)  
+KAO( :, 4, 5,11) = (/&
+ & 3.1787E-01_JPRB,2.8734E-01_JPRB,2.6579E-01_JPRB,2.4308E-01_JPRB,2.1533E-01_JPRB,1.8679E-01_JPRB,&
+ & 1.5347E-01_JPRB,3.1787E-01_JPRB,2.4315E-01_JPRB/)  
+KAO( :, 5, 5,11) = (/&
+ & 3.2027E-01_JPRB,2.9468E-01_JPRB,2.7870E-01_JPRB,2.5695E-01_JPRB,2.3189E-01_JPRB,2.0016E-01_JPRB,&
+ & 1.6850E-01_JPRB,3.2027E-01_JPRB,3.1159E-01_JPRB/)  
+KAO( :, 1, 6,11) = (/&
+ & 2.9865E-01_JPRB,2.6139E-01_JPRB,2.2417E-01_JPRB,1.9237E-01_JPRB,1.6261E-01_JPRB,1.3306E-01_JPRB,&
+ & 1.0402E-01_JPRB,2.9865E-01_JPRB,7.4728E-02_JPRB/)  
+KAO( :, 2, 6,11) = (/&
+ & 3.0619E-01_JPRB,2.6800E-01_JPRB,2.3652E-01_JPRB,2.0579E-01_JPRB,1.7684E-01_JPRB,1.5168E-01_JPRB,&
+ & 1.2223E-01_JPRB,3.0619E-01_JPRB,1.0829E-01_JPRB/)  
+KAO( :, 3, 6,11) = (/&
+ & 3.1241E-01_JPRB,2.7514E-01_JPRB,2.4815E-01_JPRB,2.2081E-01_JPRB,1.9720E-01_JPRB,1.6917E-01_JPRB,&
+ & 1.3396E-01_JPRB,3.1241E-01_JPRB,1.5151E-01_JPRB/)  
+KAO( :, 4, 6,11) = (/&
+ & 3.1661E-01_JPRB,2.8538E-01_JPRB,2.6104E-01_JPRB,2.3841E-01_JPRB,2.1165E-01_JPRB,1.8243E-01_JPRB,&
+ & 1.4887E-01_JPRB,3.1661E-01_JPRB,2.0348E-01_JPRB/)  
+KAO( :, 5, 6,11) = (/&
+ & 3.2000E-01_JPRB,2.9293E-01_JPRB,2.7479E-01_JPRB,2.5146E-01_JPRB,2.2881E-01_JPRB,1.9893E-01_JPRB,&
+ & 1.6745E-01_JPRB,3.2000E-01_JPRB,2.6520E-01_JPRB/)  
+KAO( :, 1, 7,11) = (/&
+ & 3.0081E-01_JPRB,2.6324E-01_JPRB,2.2567E-01_JPRB,1.8947E-01_JPRB,1.5824E-01_JPRB,1.2934E-01_JPRB,&
+ & 9.9139E-02_JPRB,3.0081E-01_JPRB,5.8236E-02_JPRB/)  
+KAO( :, 2, 7,11) = (/&
+ & 3.0785E-01_JPRB,2.6938E-01_JPRB,2.3362E-01_JPRB,2.0225E-01_JPRB,1.7197E-01_JPRB,1.4526E-01_JPRB,&
+ & 1.1606E-01_JPRB,3.0785E-01_JPRB,8.6143E-02_JPRB/)  
+KAO( :, 3, 7,11) = (/&
+ & 3.1355E-01_JPRB,2.7471E-01_JPRB,2.4475E-01_JPRB,2.1558E-01_JPRB,1.9203E-01_JPRB,1.6359E-01_JPRB,&
+ & 1.2884E-01_JPRB,3.1355E-01_JPRB,1.2279E-01_JPRB/)  
+KAO( :, 4, 7,11) = (/&
+ & 3.1773E-01_JPRB,2.8339E-01_JPRB,2.5534E-01_JPRB,2.3396E-01_JPRB,2.0755E-01_JPRB,1.7658E-01_JPRB,&
+ & 1.4450E-01_JPRB,3.1773E-01_JPRB,1.6752E-01_JPRB/)  
+KAO( :, 5, 7,11) = (/&
+ & 3.2073E-01_JPRB,2.9018E-01_JPRB,2.6952E-01_JPRB,2.4697E-01_JPRB,2.2381E-01_JPRB,1.9623E-01_JPRB,&
+ & 1.6582E-01_JPRB,3.2073E-01_JPRB,2.2165E-01_JPRB/)  
+KAO( :, 1, 8,11) = (/&
+ & 3.1629E-01_JPRB,2.7676E-01_JPRB,2.3728E-01_JPRB,1.9776E-01_JPRB,1.6109E-01_JPRB,1.2901E-01_JPRB,&
+ & 9.4699E-02_JPRB,3.1629E-01_JPRB,4.5300E-02_JPRB/)  
+KAO( :, 2, 8,11) = (/&
+ & 3.2227E-01_JPRB,2.8203E-01_JPRB,2.4214E-01_JPRB,2.0636E-01_JPRB,1.7262E-01_JPRB,1.4016E-01_JPRB,&
+ & 1.0877E-01_JPRB,3.2227E-01_JPRB,6.8853E-02_JPRB/)  
+KAO( :, 3, 8,11) = (/&
+ & 3.2688E-01_JPRB,2.8607E-01_JPRB,2.5069E-01_JPRB,2.1556E-01_JPRB,1.8748E-01_JPRB,1.5661E-01_JPRB,&
+ & 1.2299E-01_JPRB,3.2688E-01_JPRB,1.0018E-01_JPRB/)  
+KAO( :, 4, 8,11) = (/&
+ & 3.2981E-01_JPRB,2.9140E-01_JPRB,2.5712E-01_JPRB,2.3078E-01_JPRB,2.0158E-01_JPRB,1.7058E-01_JPRB,&
+ & 1.4006E-01_JPRB,3.2981E-01_JPRB,1.3838E-01_JPRB/)  
+KAO( :, 5, 8,11) = (/&
+ & 3.3188E-01_JPRB,2.9618E-01_JPRB,2.6784E-01_JPRB,2.4209E-01_JPRB,2.1696E-01_JPRB,1.9240E-01_JPRB,&
+ & 1.6480E-01_JPRB,3.3188E-01_JPRB,1.8388E-01_JPRB/)  
+KAO( :, 1, 9,11) = (/&
+ & 3.4054E-01_JPRB,2.9798E-01_JPRB,2.5543E-01_JPRB,2.1287E-01_JPRB,1.7079E-01_JPRB,1.3421E-01_JPRB,&
+ & 9.5710E-02_JPRB,3.4054E-01_JPRB,3.8236E-02_JPRB/)  
+KAO( :, 2, 9,11) = (/&
+ & 3.4633E-01_JPRB,3.0305E-01_JPRB,2.5976E-01_JPRB,2.1890E-01_JPRB,1.8147E-01_JPRB,1.4225E-01_JPRB,&
+ & 1.0350E-01_JPRB,3.4633E-01_JPRB,5.6238E-02_JPRB/)  
+KAO( :, 3, 9,11) = (/&
+ & 3.5037E-01_JPRB,3.0657E-01_JPRB,2.6602E-01_JPRB,2.2678E-01_JPRB,1.8994E-01_JPRB,1.5344E-01_JPRB,&
+ & 1.1667E-01_JPRB,3.5037E-01_JPRB,8.1743E-02_JPRB/)  
+KAO( :, 4, 9,11) = (/&
+ & 3.5228E-01_JPRB,3.0944E-01_JPRB,2.6992E-01_JPRB,2.3660E-01_JPRB,2.0123E-01_JPRB,1.6487E-01_JPRB,&
+ & 1.3602E-01_JPRB,3.5228E-01_JPRB,1.1413E-01_JPRB/)  
+KAO( :, 5, 9,11) = (/&
+ & 3.5225E-01_JPRB,3.1211E-01_JPRB,2.7731E-01_JPRB,2.4493E-01_JPRB,2.1160E-01_JPRB,1.8738E-01_JPRB,&
+ & 1.6276E-01_JPRB,3.5225E-01_JPRB,1.5348E-01_JPRB/)  
+KAO( :, 1,10,11) = (/&
+ & 3.6852E-01_JPRB,3.2247E-01_JPRB,2.7644E-01_JPRB,2.3039E-01_JPRB,1.8448E-01_JPRB,1.4188E-01_JPRB,&
+ & 9.9757E-02_JPRB,3.6852E-01_JPRB,1.4040E-01_JPRB/)  
+KAO( :, 2,10,11) = (/&
+ & 3.7315E-01_JPRB,3.2652E-01_JPRB,2.7989E-01_JPRB,2.3366E-01_JPRB,1.9261E-01_JPRB,1.5003E-01_JPRB,&
+ & 1.0586E-01_JPRB,3.7315E-01_JPRB,1.4526E-01_JPRB/)  
+KAO( :, 3,10,11) = (/&
+ & 3.7571E-01_JPRB,3.2878E-01_JPRB,2.8366E-01_JPRB,2.4104E-01_JPRB,1.9987E-01_JPRB,1.5820E-01_JPRB,&
+ & 1.1578E-01_JPRB,3.7571E-01_JPRB,1.5497E-01_JPRB/)  
+KAO( :, 4,10,11) = (/&
+ & 3.7705E-01_JPRB,3.3024E-01_JPRB,2.8735E-01_JPRB,2.4933E-01_JPRB,2.0907E-01_JPRB,1.6748E-01_JPRB,&
+ & 1.3413E-01_JPRB,3.7705E-01_JPRB,1.6746E-01_JPRB/)  
+KAO( :, 5,10,11) = (/&
+ & 3.7628E-01_JPRB,3.3247E-01_JPRB,2.9343E-01_JPRB,2.5663E-01_JPRB,2.1748E-01_JPRB,1.8673E-01_JPRB,&
+ & 1.6058E-01_JPRB,3.7628E-01_JPRB,1.8275E-01_JPRB/)  
+KAO( :, 1,11,11) = (/&
+ & 4.0038E-01_JPRB,3.5035E-01_JPRB,3.0034E-01_JPRB,2.5030E-01_JPRB,2.0116E-01_JPRB,1.5522E-01_JPRB,&
+ & 1.0823E-01_JPRB,4.0038E-01_JPRB,3.5490E-01_JPRB/)  
+KAO( :, 2,11,11) = (/&
+ & 4.0396E-01_JPRB,3.5350E-01_JPRB,3.0301E-01_JPRB,2.5425E-01_JPRB,2.0946E-01_JPRB,1.6195E-01_JPRB,&
+ & 1.1374E-01_JPRB,4.0396E-01_JPRB,3.4856E-01_JPRB/)  
+KAO( :, 3,11,11) = (/&
+ & 4.0565E-01_JPRB,3.5496E-01_JPRB,3.0665E-01_JPRB,2.6112E-01_JPRB,2.1551E-01_JPRB,1.6958E-01_JPRB,&
+ & 1.2572E-01_JPRB,4.0565E-01_JPRB,3.5076E-01_JPRB/)  
+KAO( :, 4,11,11) = (/&
+ & 4.0558E-01_JPRB,3.5595E-01_JPRB,3.0938E-01_JPRB,2.6840E-01_JPRB,2.2301E-01_JPRB,1.8046E-01_JPRB,&
+ & 1.4403E-01_JPRB,4.0558E-01_JPRB,3.5722E-01_JPRB/)  
+KAO( :, 5,11,11) = (/&
+ & 4.0446E-01_JPRB,3.5712E-01_JPRB,3.1553E-01_JPRB,2.7323E-01_JPRB,2.3366E-01_JPRB,2.0210E-01_JPRB,&
+ & 1.6875E-01_JPRB,4.0446E-01_JPRB,3.6719E-01_JPRB/)  
+KAO( :, 1,12,11) = (/&
+ & 4.3154E-01_JPRB,3.7764E-01_JPRB,3.2370E-01_JPRB,2.6981E-01_JPRB,2.1804E-01_JPRB,1.6850E-01_JPRB,&
+ & 1.1669E-01_JPRB,4.3154E-01_JPRB,6.0134E-01_JPRB/)  
+KAO( :, 2,12,11) = (/&
+ & 4.3374E-01_JPRB,3.7956E-01_JPRB,3.2536E-01_JPRB,2.7466E-01_JPRB,2.2555E-01_JPRB,1.7385E-01_JPRB,&
+ & 1.2290E-01_JPRB,4.3374E-01_JPRB,5.8479E-01_JPRB/)  
+KAO( :, 3,12,11) = (/&
+ & 4.3331E-01_JPRB,3.7916E-01_JPRB,3.2808E-01_JPRB,2.8000E-01_JPRB,2.3156E-01_JPRB,1.8166E-01_JPRB,&
+ & 1.3630E-01_JPRB,4.3331E-01_JPRB,5.7701E-01_JPRB/)  
+KAO( :, 4,12,11) = (/&
+ & 4.3216E-01_JPRB,3.8009E-01_JPRB,3.3136E-01_JPRB,2.8692E-01_JPRB,2.3835E-01_JPRB,1.9569E-01_JPRB,&
+ & 1.5406E-01_JPRB,4.3216E-01_JPRB,5.7788E-01_JPRB/)  
+KAO( :, 5,12,11) = (/&
+ & 4.2924E-01_JPRB,3.7929E-01_JPRB,3.3644E-01_JPRB,2.9162E-01_JPRB,2.5358E-01_JPRB,2.1598E-01_JPRB,&
+ & 1.7801E-01_JPRB,4.2924E-01_JPRB,5.8590E-01_JPRB/)  
+KAO( :, 1,13,11) = (/&
+ & 4.5507E-01_JPRB,3.9820E-01_JPRB,3.4134E-01_JPRB,2.8486E-01_JPRB,2.3199E-01_JPRB,1.7908E-01_JPRB,&
+ & 1.2378E-01_JPRB,4.5507E-01_JPRB,8.3466E-01_JPRB/)  
+KAO( :, 2,13,11) = (/&
+ & 4.5560E-01_JPRB,3.9865E-01_JPRB,3.4207E-01_JPRB,2.9076E-01_JPRB,2.3824E-01_JPRB,1.8413E-01_JPRB,&
+ & 1.3231E-01_JPRB,4.5560E-01_JPRB,8.1743E-01_JPRB/)  
+KAO( :, 3,13,11) = (/&
+ & 4.5408E-01_JPRB,3.9738E-01_JPRB,3.4508E-01_JPRB,2.9494E-01_JPRB,2.4447E-01_JPRB,1.9400E-01_JPRB,&
+ & 1.4658E-01_JPRB,4.5408E-01_JPRB,8.0395E-01_JPRB/)  
+KAO( :, 4,13,11) = (/&
+ & 4.5061E-01_JPRB,3.9693E-01_JPRB,3.4841E-01_JPRB,3.0086E-01_JPRB,2.5386E-01_JPRB,2.0976E-01_JPRB,&
+ & 1.6407E-01_JPRB,4.5061E-01_JPRB,8.0112E-01_JPRB/)  
+KAO( :, 5,13,11) = (/&
+ & 4.4632E-01_JPRB,3.9509E-01_JPRB,3.5179E-01_JPRB,3.0910E-01_JPRB,2.7153E-01_JPRB,2.3030E-01_JPRB,&
+ & 1.8645E-01_JPRB,4.4632E-01_JPRB,8.0445E-01_JPRB/)  
+KAO( :, 1, 1,12) = (/&
+ & 4.5134E-01_JPRB,3.9508E-01_JPRB,3.3890E-01_JPRB,2.8825E-01_JPRB,2.4778E-01_JPRB,1.9924E-01_JPRB,&
+ & 1.4875E-01_JPRB,4.5134E-01_JPRB,1.8824E-01_JPRB/)  
+KAO( :, 2, 1,12) = (/&
+ & 4.4302E-01_JPRB,3.8780E-01_JPRB,3.3477E-01_JPRB,2.9793E-01_JPRB,2.5163E-01_JPRB,2.0880E-01_JPRB,&
+ & 1.6421E-01_JPRB,4.4302E-01_JPRB,2.4393E-01_JPRB/)  
+KAO( :, 3, 1,12) = (/&
+ & 4.3442E-01_JPRB,3.8027E-01_JPRB,3.4110E-01_JPRB,2.9993E-01_JPRB,2.6022E-01_JPRB,2.1949E-01_JPRB,&
+ & 2.0337E-01_JPRB,4.3442E-01_JPRB,3.1211E-01_JPRB/)  
+KAO( :, 4, 1,12) = (/&
+ & 4.2548E-01_JPRB,3.7248E-01_JPRB,3.4001E-01_JPRB,3.0363E-01_JPRB,2.6872E-01_JPRB,2.3529E-01_JPRB,&
+ & 2.6208E-01_JPRB,4.2548E-01_JPRB,4.0218E-01_JPRB/)  
+KAO( :, 5, 1,12) = (/&
+ & 4.1637E-01_JPRB,3.7184E-01_JPRB,3.3956E-01_JPRB,3.0702E-01_JPRB,2.7666E-01_JPRB,3.0048E-01_JPRB,&
+ & 3.3370E-01_JPRB,4.1637E-01_JPRB,5.1810E-01_JPRB/)  
+KAO( :, 1, 2,12) = (/&
+ & 4.5993E-01_JPRB,4.0257E-01_JPRB,3.4522E-01_JPRB,2.9460E-01_JPRB,2.5120E-01_JPRB,2.0075E-01_JPRB,&
+ & 1.4994E-01_JPRB,4.5993E-01_JPRB,1.8380E-01_JPRB/)  
+KAO( :, 2, 2,12) = (/&
+ & 4.5214E-01_JPRB,3.9569E-01_JPRB,3.4306E-01_JPRB,3.0314E-01_JPRB,2.5542E-01_JPRB,2.1170E-01_JPRB,&
+ & 1.6517E-01_JPRB,4.5214E-01_JPRB,2.4302E-01_JPRB/)  
+KAO( :, 3, 2,12) = (/&
+ & 4.4392E-01_JPRB,3.8859E-01_JPRB,3.4836E-01_JPRB,3.0544E-01_JPRB,2.6499E-01_JPRB,2.2418E-01_JPRB,&
+ & 1.8731E-01_JPRB,4.4392E-01_JPRB,3.1300E-01_JPRB/)  
+KAO( :, 4, 2,12) = (/&
+ & 4.3542E-01_JPRB,3.8194E-01_JPRB,3.4769E-01_JPRB,3.0985E-01_JPRB,2.7291E-01_JPRB,2.3160E-01_JPRB,&
+ & 2.4758E-01_JPRB,4.3542E-01_JPRB,3.9636E-01_JPRB/)  
+KAO( :, 5, 2,12) = (/&
+ & 4.2659E-01_JPRB,3.8102E-01_JPRB,3.4597E-01_JPRB,3.1267E-01_JPRB,2.8101E-01_JPRB,2.8559E-01_JPRB,&
+ & 3.2264E-01_JPRB,4.2659E-01_JPRB,5.0187E-01_JPRB/)  
+KAO( :, 1, 3,12) = (/&
+ & 4.6833E-01_JPRB,4.0988E-01_JPRB,3.5146E-01_JPRB,2.9725E-01_JPRB,2.5255E-01_JPRB,2.0071E-01_JPRB,&
+ & 1.4658E-01_JPRB,4.6833E-01_JPRB,1.7493E-01_JPRB/)  
+KAO( :, 2, 3,12) = (/&
+ & 4.6121E-01_JPRB,4.0366E-01_JPRB,3.4878E-01_JPRB,3.0682E-01_JPRB,2.5668E-01_JPRB,2.1030E-01_JPRB,&
+ & 1.6556E-01_JPRB,4.6121E-01_JPRB,2.3373E-01_JPRB/)  
+KAO( :, 3, 3,12) = (/&
+ & 4.5378E-01_JPRB,3.9716E-01_JPRB,3.5415E-01_JPRB,3.0895E-01_JPRB,2.6677E-01_JPRB,2.2483E-01_JPRB,&
+ & 1.7374E-01_JPRB,4.5378E-01_JPRB,3.0656E-01_JPRB/)  
+KAO( :, 4, 3,12) = (/&
+ & 4.4576E-01_JPRB,3.9132E-01_JPRB,3.5375E-01_JPRB,3.1409E-01_JPRB,2.7473E-01_JPRB,2.3114E-01_JPRB,&
+ & 2.1677E-01_JPRB,4.4576E-01_JPRB,3.9296E-01_JPRB/)  
+KAO( :, 5, 3,12) = (/&
+ & 4.3705E-01_JPRB,3.9046E-01_JPRB,3.5326E-01_JPRB,3.1679E-01_JPRB,2.8502E-01_JPRB,2.5712E-01_JPRB,&
+ & 2.8930E-01_JPRB,4.3705E-01_JPRB,4.9026E-01_JPRB/)  
+KAO( :, 1, 4,12) = (/&
+ & 4.7595E-01_JPRB,4.1655E-01_JPRB,3.5714E-01_JPRB,2.9920E-01_JPRB,2.5213E-01_JPRB,1.9982E-01_JPRB,&
+ & 1.4381E-01_JPRB,4.7595E-01_JPRB,1.5872E-01_JPRB/)  
+KAO( :, 2, 4,12) = (/&
+ & 4.7033E-01_JPRB,4.1161E-01_JPRB,3.5414E-01_JPRB,3.0922E-01_JPRB,2.5846E-01_JPRB,2.0731E-01_JPRB,&
+ & 1.6215E-01_JPRB,4.7033E-01_JPRB,2.1800E-01_JPRB/)  
+KAO( :, 3, 4,12) = (/&
+ & 4.6352E-01_JPRB,4.0565E-01_JPRB,3.5971E-01_JPRB,3.1204E-01_JPRB,2.6678E-01_JPRB,2.2292E-01_JPRB,&
+ & 1.7122E-01_JPRB,4.6352E-01_JPRB,2.9018E-01_JPRB/)  
+KAO( :, 4, 4,12) = (/&
+ & 4.5585E-01_JPRB,4.0027E-01_JPRB,3.5920E-01_JPRB,3.1814E-01_JPRB,2.7571E-01_JPRB,2.2988E-01_JPRB,&
+ & 1.8807E-01_JPRB,4.5585E-01_JPRB,3.7615E-01_JPRB/)  
+KAO( :, 5, 4,12) = (/&
+ & 4.4747E-01_JPRB,3.9994E-01_JPRB,3.6045E-01_JPRB,3.2102E-01_JPRB,2.8482E-01_JPRB,2.4194E-01_JPRB,&
+ & 2.4872E-01_JPRB,4.4747E-01_JPRB,4.7733E-01_JPRB/)  
+KAO( :, 1, 5,12) = (/&
+ & 4.8332E-01_JPRB,4.2296E-01_JPRB,3.6260E-01_JPRB,3.0235E-01_JPRB,2.5042E-01_JPRB,1.9864E-01_JPRB,&
+ & 1.4130E-01_JPRB,4.8332E-01_JPRB,1.3745E-01_JPRB/)  
+KAO( :, 2, 5,12) = (/&
+ & 4.7867E-01_JPRB,4.1890E-01_JPRB,3.5947E-01_JPRB,3.1127E-01_JPRB,2.5927E-01_JPRB,2.0493E-01_JPRB,&
+ & 1.5750E-01_JPRB,4.7867E-01_JPRB,1.9596E-01_JPRB/)  
+KAO( :, 3, 5,12) = (/&
+ & 4.7259E-01_JPRB,4.1358E-01_JPRB,3.6520E-01_JPRB,3.1459E-01_JPRB,2.6723E-01_JPRB,2.2048E-01_JPRB,&
+ & 1.7032E-01_JPRB,4.7259E-01_JPRB,2.6742E-01_JPRB/)  
+KAO( :, 4, 5,12) = (/&
+ & 4.6538E-01_JPRB,4.0850E-01_JPRB,3.6518E-01_JPRB,3.2176E-01_JPRB,2.7688E-01_JPRB,2.2777E-01_JPRB,&
+ & 1.8088E-01_JPRB,4.6538E-01_JPRB,3.5196E-01_JPRB/)  
+KAO( :, 5, 5,12) = (/&
+ & 4.5769E-01_JPRB,4.0896E-01_JPRB,3.6726E-01_JPRB,3.2571E-01_JPRB,2.8321E-01_JPRB,2.4098E-01_JPRB,&
+ & 2.1462E-01_JPRB,4.5769E-01_JPRB,4.5123E-01_JPRB/)  
+KAO( :, 1, 6,12) = (/&
+ & 4.8993E-01_JPRB,4.2877E-01_JPRB,3.6756E-01_JPRB,3.0637E-01_JPRB,2.4861E-01_JPRB,1.9592E-01_JPRB,&
+ & 1.4097E-01_JPRB,4.8993E-01_JPRB,1.1309E-01_JPRB/)  
+KAO( :, 2, 6,12) = (/&
+ & 4.8623E-01_JPRB,4.2551E-01_JPRB,3.6480E-01_JPRB,3.1259E-01_JPRB,2.5937E-01_JPRB,2.0293E-01_JPRB,&
+ & 1.5359E-01_JPRB,4.8623E-01_JPRB,1.6654E-01_JPRB/)  
+KAO( :, 3, 6,12) = (/&
+ & 4.8158E-01_JPRB,4.2145E-01_JPRB,3.6981E-01_JPRB,3.1811E-01_JPRB,2.6579E-01_JPRB,2.1805E-01_JPRB,&
+ & 1.7034E-01_JPRB,4.8158E-01_JPRB,2.3416E-01_JPRB/)  
+KAO( :, 4, 6,12) = (/&
+ & 4.7580E-01_JPRB,4.1675E-01_JPRB,3.7108E-01_JPRB,3.2456E-01_JPRB,2.7803E-01_JPRB,2.2833E-01_JPRB,&
+ & 1.8066E-01_JPRB,4.7580E-01_JPRB,3.1607E-01_JPRB/)  
+KAO( :, 5, 6,12) = (/&
+ & 4.6758E-01_JPRB,4.1652E-01_JPRB,3.7367E-01_JPRB,3.3147E-01_JPRB,2.8380E-01_JPRB,2.4223E-01_JPRB,&
+ & 1.9841E-01_JPRB,4.6758E-01_JPRB,4.1181E-01_JPRB/)  
+KAO( :, 1, 7,12) = (/&
+ & 4.9556E-01_JPRB,4.3365E-01_JPRB,3.7175E-01_JPRB,3.0985E-01_JPRB,2.4854E-01_JPRB,1.9277E-01_JPRB,&
+ & 1.4013E-01_JPRB,4.9556E-01_JPRB,8.9473E-02_JPRB/)  
+KAO( :, 2, 7,12) = (/&
+ & 4.9363E-01_JPRB,4.3195E-01_JPRB,3.7029E-01_JPRB,3.1256E-01_JPRB,2.5963E-01_JPRB,2.0328E-01_JPRB,&
+ & 1.5194E-01_JPRB,4.9363E-01_JPRB,1.3619E-01_JPRB/)  
+KAO( :, 3, 7,12) = (/&
+ & 4.8988E-01_JPRB,4.2866E-01_JPRB,3.7265E-01_JPRB,3.2073E-01_JPRB,2.6549E-01_JPRB,2.1787E-01_JPRB,&
+ & 1.7010E-01_JPRB,4.8988E-01_JPRB,1.9644E-01_JPRB/)  
+KAO( :, 4, 7,12) = (/&
+ & 4.8356E-01_JPRB,4.2335E-01_JPRB,3.7640E-01_JPRB,3.2648E-01_JPRB,2.8045E-01_JPRB,2.3190E-01_JPRB,&
+ & 1.7955E-01_JPRB,4.8356E-01_JPRB,2.7163E-01_JPRB/)  
+KAO( :, 5, 7,12) = (/&
+ & 4.7613E-01_JPRB,4.2343E-01_JPRB,3.7941E-01_JPRB,3.3677E-01_JPRB,2.8839E-01_JPRB,2.4416E-01_JPRB,&
+ & 1.9240E-01_JPRB,4.7613E-01_JPRB,3.6146E-01_JPRB/)  
+KAO( :, 1, 8,12) = (/&
+ & 4.9952E-01_JPRB,4.3713E-01_JPRB,3.7469E-01_JPRB,3.1228E-01_JPRB,2.4992E-01_JPRB,1.8992E-01_JPRB,&
+ & 1.3910E-01_JPRB,4.9952E-01_JPRB,7.0068E-02_JPRB/)  
+KAO( :, 2, 8,12) = (/&
+ & 4.9876E-01_JPRB,4.3647E-01_JPRB,3.7415E-01_JPRB,3.1359E-01_JPRB,2.5898E-01_JPRB,2.0365E-01_JPRB,&
+ & 1.5225E-01_JPRB,4.9876E-01_JPRB,1.0911E-01_JPRB/)  
+KAO( :, 3, 8,12) = (/&
+ & 4.9561E-01_JPRB,4.3367E-01_JPRB,3.7478E-01_JPRB,3.2253E-01_JPRB,2.6652E-01_JPRB,2.1802E-01_JPRB,&
+ & 1.6931E-01_JPRB,4.9561E-01_JPRB,1.6065E-01_JPRB/)  
+KAO( :, 4, 8,12) = (/&
+ & 4.9132E-01_JPRB,4.2995E-01_JPRB,3.8056E-01_JPRB,3.2825E-01_JPRB,2.8313E-01_JPRB,2.3561E-01_JPRB,&
+ & 1.7963E-01_JPRB,4.9132E-01_JPRB,2.2657E-01_JPRB/)  
+KAO( :, 5, 8,12) = (/&
+ & 4.8493E-01_JPRB,4.3037E-01_JPRB,3.8392E-01_JPRB,3.3999E-01_JPRB,2.9506E-01_JPRB,2.4592E-01_JPRB,&
+ & 1.9305E-01_JPRB,4.8493E-01_JPRB,3.0798E-01_JPRB/)  
+KAO( :, 1, 9,12) = (/&
+ & 5.0297E-01_JPRB,4.4011E-01_JPRB,3.7727E-01_JPRB,3.1445E-01_JPRB,2.5164E-01_JPRB,1.8923E-01_JPRB,&
+ & 1.3630E-01_JPRB,5.0297E-01_JPRB,5.5928E-02_JPRB/)  
+KAO( :, 2, 9,12) = (/&
+ & 5.0280E-01_JPRB,4.3999E-01_JPRB,3.7719E-01_JPRB,3.1439E-01_JPRB,2.5596E-01_JPRB,2.0387E-01_JPRB,&
+ & 1.5194E-01_JPRB,5.0280E-01_JPRB,8.7259E-02_JPRB/)  
+KAO( :, 3, 9,12) = (/&
+ & 5.0165E-01_JPRB,4.3899E-01_JPRB,3.7733E-01_JPRB,3.2316E-01_JPRB,2.6815E-01_JPRB,2.1765E-01_JPRB,&
+ & 1.6729E-01_JPRB,5.0165E-01_JPRB,1.3032E-01_JPRB/)  
+KAO( :, 4, 9,12) = (/&
+ & 4.9775E-01_JPRB,4.3558E-01_JPRB,3.8325E-01_JPRB,3.2898E-01_JPRB,2.8348E-01_JPRB,2.3696E-01_JPRB,&
+ & 1.7992E-01_JPRB,4.9775E-01_JPRB,1.8697E-01_JPRB/)  
+KAO( :, 5, 9,12) = (/&
+ & 4.9256E-01_JPRB,4.3533E-01_JPRB,3.8600E-01_JPRB,3.4285E-01_JPRB,2.9917E-01_JPRB,2.4757E-01_JPRB,&
+ & 1.9469E-01_JPRB,4.9256E-01_JPRB,2.5776E-01_JPRB/)  
+KAO( :, 1,10,12) = (/&
+ & 5.1773E-01_JPRB,4.5305E-01_JPRB,3.8832E-01_JPRB,3.2361E-01_JPRB,2.5894E-01_JPRB,1.9444E-01_JPRB,&
+ & 1.3626E-01_JPRB,5.1773E-01_JPRB,1.7143E-01_JPRB/)  
+KAO( :, 2,10,12) = (/&
+ & 5.2014E-01_JPRB,4.5518E-01_JPRB,3.9014E-01_JPRB,3.2511E-01_JPRB,2.6137E-01_JPRB,2.0558E-01_JPRB,&
+ & 1.5091E-01_JPRB,5.2014E-01_JPRB,1.7878E-01_JPRB/)  
+KAO( :, 3,10,12) = (/&
+ & 5.1859E-01_JPRB,4.5376E-01_JPRB,3.8899E-01_JPRB,3.2977E-01_JPRB,2.7178E-01_JPRB,2.1806E-01_JPRB,&
+ & 1.6450E-01_JPRB,5.1859E-01_JPRB,1.8778E-01_JPRB/)  
+KAO( :, 4,10,12) = (/&
+ & 5.1464E-01_JPRB,4.5036E-01_JPRB,3.9278E-01_JPRB,3.3429E-01_JPRB,2.8520E-01_JPRB,2.3593E-01_JPRB,&
+ & 1.7923E-01_JPRB,5.1464E-01_JPRB,2.0686E-01_JPRB/)  
+KAO( :, 5,10,12) = (/&
+ & 5.1018E-01_JPRB,4.4905E-01_JPRB,3.9440E-01_JPRB,3.4703E-01_JPRB,3.0026E-01_JPRB,2.4817E-01_JPRB,&
+ & 1.9727E-01_JPRB,5.1018E-01_JPRB,2.4342E-01_JPRB/)  
+KAO( :, 1,11,12) = (/&
+ & 5.4832E-01_JPRB,4.7977E-01_JPRB,4.1126E-01_JPRB,3.4274E-01_JPRB,2.7420E-01_JPRB,2.0703E-01_JPRB,&
+ & 1.4636E-01_JPRB,5.4832E-01_JPRB,4.2229E-01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART8',1,ZHOOK_HANDLE)
+END SUBROUTINE PART8
+
+
+SUBROUTINE PART9
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART9',0,ZHOOK_HANDLE)
+
+
+KAO( :, 2,11,12) = (/&
+ & 5.4890E-01_JPRB,4.8029E-01_JPRB,4.1169E-01_JPRB,3.4308E-01_JPRB,2.7803E-01_JPRB,2.1902E-01_JPRB,&
+ & 1.5675E-01_JPRB,5.4890E-01_JPRB,4.1304E-01_JPRB/)  
+KAO( :, 3,11,12) = (/&
+ & 5.4760E-01_JPRB,4.7912E-01_JPRB,4.1148E-01_JPRB,3.4845E-01_JPRB,2.8802E-01_JPRB,2.2864E-01_JPRB,&
+ & 1.6957E-01_JPRB,5.4760E-01_JPRB,4.1866E-01_JPRB/)  
+KAO( :, 4,11,12) = (/&
+ & 5.4451E-01_JPRB,4.7646E-01_JPRB,4.1466E-01_JPRB,3.5324E-01_JPRB,3.0043E-01_JPRB,2.4253E-01_JPRB,&
+ & 1.8588E-01_JPRB,5.4451E-01_JPRB,4.2963E-01_JPRB/)  
+KAO( :, 5,11,12) = (/&
+ & 5.3844E-01_JPRB,4.7499E-01_JPRB,4.1514E-01_JPRB,3.6472E-01_JPRB,3.0977E-01_JPRB,2.5655E-01_JPRB,&
+ & 2.1387E-01_JPRB,5.3844E-01_JPRB,4.4513E-01_JPRB/)  
+KAO( :, 1,12,12) = (/&
+ & 5.9065E-01_JPRB,5.1684E-01_JPRB,4.4304E-01_JPRB,3.6914E-01_JPRB,2.9536E-01_JPRB,2.2452E-01_JPRB,&
+ & 1.5812E-01_JPRB,5.9065E-01_JPRB,7.0088E-01_JPRB/)  
+KAO( :, 2,12,12) = (/&
+ & 5.8872E-01_JPRB,5.1516E-01_JPRB,4.4157E-01_JPRB,3.6818E-01_JPRB,3.0050E-01_JPRB,2.3470E-01_JPRB,&
+ & 1.6533E-01_JPRB,5.8872E-01_JPRB,6.8724E-01_JPRB/)  
+KAO( :, 3,12,12) = (/&
+ & 5.8657E-01_JPRB,5.1328E-01_JPRB,4.4183E-01_JPRB,3.7357E-01_JPRB,3.0883E-01_JPRB,2.4369E-01_JPRB,&
+ & 1.7720E-01_JPRB,5.8657E-01_JPRB,6.7692E-01_JPRB/)  
+KAO( :, 4,12,12) = (/&
+ & 5.8202E-01_JPRB,5.0954E-01_JPRB,4.4287E-01_JPRB,3.7996E-01_JPRB,3.1901E-01_JPRB,2.5355E-01_JPRB,&
+ & 1.9754E-01_JPRB,5.8202E-01_JPRB,6.8063E-01_JPRB/)  
+KAO( :, 5,12,12) = (/&
+ & 5.7488E-01_JPRB,5.0736E-01_JPRB,4.4448E-01_JPRB,3.8734E-01_JPRB,3.2636E-01_JPRB,2.7530E-01_JPRB,&
+ & 2.2896E-01_JPRB,5.7488E-01_JPRB,6.8864E-01_JPRB/)  
+KAO( :, 1,13,12) = (/&
+ & 6.3330E-01_JPRB,5.5414E-01_JPRB,4.7500E-01_JPRB,3.9585E-01_JPRB,3.1697E-01_JPRB,2.4329E-01_JPRB,&
+ & 1.7024E-01_JPRB,6.3330E-01_JPRB,9.6193E-01_JPRB/)  
+KAO( :, 2,13,12) = (/&
+ & 6.3223E-01_JPRB,5.5319E-01_JPRB,4.7424E-01_JPRB,3.9638E-01_JPRB,3.2473E-01_JPRB,2.5152E-01_JPRB,&
+ & 1.7599E-01_JPRB,6.3223E-01_JPRB,9.4444E-01_JPRB/)  
+KAO( :, 3,13,12) = (/&
+ & 6.2744E-01_JPRB,5.4905E-01_JPRB,4.7373E-01_JPRB,4.0076E-01_JPRB,3.3050E-01_JPRB,2.6025E-01_JPRB,&
+ & 1.8993E-01_JPRB,6.2744E-01_JPRB,9.2859E-01_JPRB/)  
+KAO( :, 4,13,12) = (/&
+ & 6.2161E-01_JPRB,5.4502E-01_JPRB,4.7279E-01_JPRB,4.0774E-01_JPRB,3.3922E-01_JPRB,2.7164E-01_JPRB,&
+ & 2.1216E-01_JPRB,6.2161E-01_JPRB,9.1983E-01_JPRB/)  
+KAO( :, 5,13,12) = (/&
+ & 6.1416E-01_JPRB,5.4190E-01_JPRB,4.7545E-01_JPRB,4.1094E-01_JPRB,3.4988E-01_JPRB,2.9767E-01_JPRB,&
+ & 2.4315E-01_JPRB,6.1416E-01_JPRB,9.2076E-01_JPRB/)  
+KAO( :, 1, 1,13) = (/&
+ & 5.6801E-01_JPRB,4.9753E-01_JPRB,4.2614E-01_JPRB,3.5562E-01_JPRB,2.9784E-01_JPRB,2.3762E-01_JPRB,&
+ & 1.7067E-01_JPRB,5.6801E-01_JPRB,2.8847E-01_JPRB/)  
+KAO( :, 2, 1,13) = (/&
+ & 5.4506E-01_JPRB,4.7713E-01_JPRB,4.0945E-01_JPRB,3.5614E-01_JPRB,2.9906E-01_JPRB,2.3687E-01_JPRB,&
+ & 2.1806E-01_JPRB,5.4506E-01_JPRB,3.9566E-01_JPRB/)  
+KAO( :, 3, 1,13) = (/&
+ & 5.2208E-01_JPRB,4.5704E-01_JPRB,4.0103E-01_JPRB,3.5099E-01_JPRB,2.9640E-01_JPRB,2.7382E-01_JPRB,&
+ & 2.9611E-01_JPRB,5.2208E-01_JPRB,5.3813E-01_JPRB/)  
+KAO( :, 4, 1,13) = (/&
+ & 5.0009E-01_JPRB,4.3777E-01_JPRB,3.9424E-01_JPRB,3.4743E-01_JPRB,3.1380E-01_JPRB,3.5655E-01_JPRB,&
+ & 3.8844E-01_JPRB,5.0009E-01_JPRB,7.1248E-01_JPRB/)  
+KAO( :, 5, 1,13) = (/&
+ & 4.7842E-01_JPRB,4.2067E-01_JPRB,3.8681E-01_JPRB,3.4438E-01_JPRB,3.8224E-01_JPRB,4.4874E-01_JPRB,&
+ & 4.9670E-01_JPRB,4.7842E-01_JPRB,9.2069E-01_JPRB/)  
+KAO( :, 1, 2,13) = (/&
+ & 5.8929E-01_JPRB,5.1576E-01_JPRB,4.4253E-01_JPRB,3.6899E-01_JPRB,3.0866E-01_JPRB,2.4593E-01_JPRB,&
+ & 1.7419E-01_JPRB,5.8929E-01_JPRB,2.7016E-01_JPRB/)  
+KAO( :, 2, 2,13) = (/&
+ & 5.6495E-01_JPRB,4.9446E-01_JPRB,4.2405E-01_JPRB,3.6956E-01_JPRB,3.0941E-01_JPRB,2.4584E-01_JPRB,&
+ & 2.0900E-01_JPRB,5.6495E-01_JPRB,3.6136E-01_JPRB/)  
+KAO( :, 3, 2,13) = (/&
+ & 5.4068E-01_JPRB,4.7328E-01_JPRB,4.1750E-01_JPRB,3.6380E-01_JPRB,3.0869E-01_JPRB,2.6782E-01_JPRB,&
+ & 2.8845E-01_JPRB,5.4068E-01_JPRB,4.8684E-01_JPRB/)  
+KAO( :, 4, 2,13) = (/&
+ & 5.1706E-01_JPRB,4.5259E-01_JPRB,4.0848E-01_JPRB,3.6075E-01_JPRB,3.1658E-01_JPRB,3.4323E-01_JPRB,&
+ & 3.8025E-01_JPRB,5.1706E-01_JPRB,6.5346E-01_JPRB/)  
+KAO( :, 5, 2,13) = (/&
+ & 4.9404E-01_JPRB,4.3831E-01_JPRB,4.0091E-01_JPRB,3.5604E-01_JPRB,3.7274E-01_JPRB,4.3563E-01_JPRB,&
+ & 4.8657E-01_JPRB,4.9404E-01_JPRB,8.5443E-01_JPRB/)  
+KAO( :, 1, 3,13) = (/&
+ & 6.1460E-01_JPRB,5.3792E-01_JPRB,4.6119E-01_JPRB,3.8446E-01_JPRB,3.1580E-01_JPRB,2.5245E-01_JPRB,&
+ & 1.8069E-01_JPRB,6.1460E-01_JPRB,2.4476E-01_JPRB/)  
+KAO( :, 2, 3,13) = (/&
+ & 5.8902E-01_JPRB,5.1550E-01_JPRB,4.4201E-01_JPRB,3.8201E-01_JPRB,3.1981E-01_JPRB,2.5246E-01_JPRB,&
+ & 1.9290E-01_JPRB,5.8902E-01_JPRB,3.2384E-01_JPRB/)  
+KAO( :, 3, 3,13) = (/&
+ & 5.6359E-01_JPRB,4.9325E-01_JPRB,4.3340E-01_JPRB,3.7717E-01_JPRB,3.1924E-01_JPRB,2.6085E-01_JPRB,&
+ & 2.6060E-01_JPRB,5.6359E-01_JPRB,4.2953E-01_JPRB/)  
+KAO( :, 4, 3,13) = (/&
+ & 5.3858E-01_JPRB,4.7139E-01_JPRB,4.2433E-01_JPRB,3.7392E-01_JPRB,3.2043E-01_JPRB,3.1006E-01_JPRB,&
+ & 3.4867E-01_JPRB,5.3858E-01_JPRB,5.6773E-01_JPRB/)  
+KAO( :, 5, 3,13) = (/&
+ & 5.1490E-01_JPRB,4.5696E-01_JPRB,4.1592E-01_JPRB,3.6991E-01_JPRB,3.4822E-01_JPRB,4.0122E-01_JPRB,&
+ & 4.5118E-01_JPRB,5.1490E-01_JPRB,7.4387E-01_JPRB/)  
+KAO( :, 1, 4,13) = (/&
+ & 6.4145E-01_JPRB,5.6134E-01_JPRB,4.8123E-01_JPRB,4.0119E-01_JPRB,3.2332E-01_JPRB,2.5778E-01_JPRB,&
+ & 1.8494E-01_JPRB,6.4145E-01_JPRB,2.1630E-01_JPRB/)  
+KAO( :, 2, 4,13) = (/&
+ & 6.1419E-01_JPRB,5.3750E-01_JPRB,4.6079E-01_JPRB,3.9241E-01_JPRB,3.2922E-01_JPRB,2.5906E-01_JPRB,&
+ & 1.8892E-01_JPRB,6.1419E-01_JPRB,2.9208E-01_JPRB/)  
+KAO( :, 3, 4,13) = (/&
+ & 5.8813E-01_JPRB,5.1468E-01_JPRB,4.4799E-01_JPRB,3.9004E-01_JPRB,3.2671E-01_JPRB,2.6510E-01_JPRB,&
+ & 2.2685E-01_JPRB,5.8813E-01_JPRB,3.9137E-01_JPRB/)  
+KAO( :, 4, 4,13) = (/&
+ & 5.6273E-01_JPRB,4.9248E-01_JPRB,4.4059E-01_JPRB,3.8556E-01_JPRB,3.3060E-01_JPRB,2.8625E-01_JPRB,&
+ & 3.0760E-01_JPRB,5.6273E-01_JPRB,5.0589E-01_JPRB/)  
+KAO( :, 5, 4,13) = (/&
+ & 5.3804E-01_JPRB,4.7588E-01_JPRB,4.3067E-01_JPRB,3.8369E-01_JPRB,3.3395E-01_JPRB,3.5921E-01_JPRB,&
+ & 4.0495E-01_JPRB,5.3804E-01_JPRB,6.5237E-01_JPRB/)  
+KAO( :, 1, 5,13) = (/&
+ & 6.6759E-01_JPRB,5.8420E-01_JPRB,5.0082E-01_JPRB,4.1745E-01_JPRB,3.3417E-01_JPRB,2.6101E-01_JPRB,&
+ & 1.8769E-01_JPRB,6.6759E-01_JPRB,1.9371E-01_JPRB/)  
+KAO( :, 2, 5,13) = (/&
+ & 6.3993E-01_JPRB,5.5998E-01_JPRB,4.8009E-01_JPRB,4.0342E-01_JPRB,3.3762E-01_JPRB,2.6493E-01_JPRB,&
+ & 1.8973E-01_JPRB,6.3993E-01_JPRB,2.6409E-01_JPRB/)  
+KAO( :, 3, 5,13) = (/&
+ & 6.1332E-01_JPRB,5.3667E-01_JPRB,4.6314E-01_JPRB,4.0266E-01_JPRB,3.3397E-01_JPRB,2.6941E-01_JPRB,&
+ & 2.0819E-01_JPRB,6.1332E-01_JPRB,3.5928E-01_JPRB/)  
+KAO( :, 4, 5,13) = (/&
+ & 5.8743E-01_JPRB,5.1406E-01_JPRB,4.5644E-01_JPRB,3.9637E-01_JPRB,3.3947E-01_JPRB,2.7620E-01_JPRB,&
+ & 2.6432E-01_JPRB,5.8743E-01_JPRB,4.7554E-01_JPRB/)  
+KAO( :, 5, 5,13) = (/&
+ & 5.6212E-01_JPRB,4.9526E-01_JPRB,4.4574E-01_JPRB,3.9617E-01_JPRB,3.3572E-01_JPRB,3.1407E-01_JPRB,&
+ & 3.5828E-01_JPRB,5.6212E-01_JPRB,6.0837E-01_JPRB/)  
+KAO( :, 1, 6,13) = (/&
+ & 6.9473E-01_JPRB,6.0793E-01_JPRB,5.2119E-01_JPRB,4.3440E-01_JPRB,3.4764E-01_JPRB,2.6336E-01_JPRB,&
+ & 1.8896E-01_JPRB,6.9473E-01_JPRB,1.7250E-01_JPRB/)  
+KAO( :, 2, 6,13) = (/&
+ & 6.6721E-01_JPRB,5.8382E-01_JPRB,5.0053E-01_JPRB,4.1719E-01_JPRB,3.4561E-01_JPRB,2.7121E-01_JPRB,&
+ & 1.9177E-01_JPRB,6.6721E-01_JPRB,2.4044E-01_JPRB/)  
+KAO( :, 3, 6,13) = (/&
+ & 6.4000E-01_JPRB,5.6004E-01_JPRB,4.8024E-01_JPRB,4.1554E-01_JPRB,3.4402E-01_JPRB,2.7206E-01_JPRB,&
+ & 2.0202E-01_JPRB,6.4000E-01_JPRB,3.3099E-01_JPRB/)  
+KAO( :, 4, 6,13) = (/&
+ & 6.1394E-01_JPRB,5.3727E-01_JPRB,4.7423E-01_JPRB,4.0811E-01_JPRB,3.4656E-01_JPRB,2.7984E-01_JPRB,&
+ & 2.2944E-01_JPRB,6.1394E-01_JPRB,4.4214E-01_JPRB/)  
+KAO( :, 5, 6,13) = (/&
+ & 5.9084E-01_JPRB,5.1879E-01_JPRB,4.6252E-01_JPRB,4.0758E-01_JPRB,3.4602E-01_JPRB,2.8751E-01_JPRB,&
+ & 3.0432E-01_JPRB,5.9084E-01_JPRB,5.7787E-01_JPRB/)  
+KAO( :, 1, 7,13) = (/&
+ & 7.2249E-01_JPRB,6.3225E-01_JPRB,5.4192E-01_JPRB,4.5166E-01_JPRB,3.6141E-01_JPRB,2.7115E-01_JPRB,&
+ & 1.8926E-01_JPRB,7.2249E-01_JPRB,1.4840E-01_JPRB/)  
+KAO( :, 2, 7,13) = (/&
+ & 6.9569E-01_JPRB,6.0876E-01_JPRB,5.2183E-01_JPRB,4.3493E-01_JPRB,3.5253E-01_JPRB,2.7700E-01_JPRB,&
+ & 1.9463E-01_JPRB,6.9569E-01_JPRB,2.1366E-01_JPRB/)  
+KAO( :, 3, 7,13) = (/&
+ & 6.7030E-01_JPRB,5.8656E-01_JPRB,5.0282E-01_JPRB,4.3054E-01_JPRB,3.5472E-01_JPRB,2.7582E-01_JPRB,&
+ & 2.0558E-01_JPRB,6.7030E-01_JPRB,3.0169E-01_JPRB/)  
+KAO( :, 4, 7,13) = (/&
+ & 6.4750E-01_JPRB,5.6659E-01_JPRB,4.9555E-01_JPRB,4.2297E-01_JPRB,3.5382E-01_JPRB,2.8571E-01_JPRB,&
+ & 2.1673E-01_JPRB,6.4750E-01_JPRB,4.1281E-01_JPRB/)  
+KAO( :, 5, 7,13) = (/&
+ & 6.2512E-01_JPRB,5.4760E-01_JPRB,4.8374E-01_JPRB,4.2116E-01_JPRB,3.5619E-01_JPRB,2.8468E-01_JPRB,&
+ & 2.6466E-01_JPRB,6.2512E-01_JPRB,5.4714E-01_JPRB/)  
+KAO( :, 1, 8,13) = (/&
+ & 7.5294E-01_JPRB,6.5887E-01_JPRB,5.6474E-01_JPRB,4.7064E-01_JPRB,3.7654E-01_JPRB,2.8248E-01_JPRB,&
+ & 1.8974E-01_JPRB,7.5294E-01_JPRB,1.2274E-01_JPRB/)  
+KAO( :, 2, 8,13) = (/&
+ & 7.2891E-01_JPRB,6.3781E-01_JPRB,5.4671E-01_JPRB,4.5563E-01_JPRB,3.6498E-01_JPRB,2.8342E-01_JPRB,&
+ & 1.9844E-01_JPRB,7.2891E-01_JPRB,1.8310E-01_JPRB/)  
+KAO( :, 3, 8,13) = (/&
+ & 7.0557E-01_JPRB,6.1744E-01_JPRB,5.2928E-01_JPRB,4.4666E-01_JPRB,3.6716E-01_JPRB,2.8351E-01_JPRB,&
+ & 2.0879E-01_JPRB,7.0557E-01_JPRB,2.6614E-01_JPRB/)  
+KAO( :, 4, 8,13) = (/&
+ & 6.8244E-01_JPRB,5.9719E-01_JPRB,5.1867E-01_JPRB,4.4210E-01_JPRB,3.6383E-01_JPRB,2.9223E-01_JPRB,&
+ & 2.1877E-01_JPRB,6.8244E-01_JPRB,3.7635E-01_JPRB/)  
+KAO( :, 5, 8,13) = (/&
+ & 6.6089E-01_JPRB,5.7833E-01_JPRB,5.0944E-01_JPRB,4.4005E-01_JPRB,3.6857E-01_JPRB,2.9676E-01_JPRB,&
+ & 2.4160E-01_JPRB,6.6089E-01_JPRB,5.0930E-01_JPRB/)  
+KAO( :, 1, 9,13) = (/&
+ & 7.8582E-01_JPRB,6.8762E-01_JPRB,5.8934E-01_JPRB,4.9123E-01_JPRB,3.9298E-01_JPRB,2.9487E-01_JPRB,&
+ & 1.9668E-01_JPRB,7.8582E-01_JPRB,9.8816E-02_JPRB/)  
+KAO( :, 2, 9,13) = (/&
+ & 7.6340E-01_JPRB,6.6798E-01_JPRB,5.7260E-01_JPRB,4.7718E-01_JPRB,3.8186E-01_JPRB,2.8922E-01_JPRB,&
+ & 2.0391E-01_JPRB,7.6340E-01_JPRB,1.5257E-01_JPRB/)  
+KAO( :, 3, 9,13) = (/&
+ & 7.4083E-01_JPRB,6.4825E-01_JPRB,5.5561E-01_JPRB,4.6459E-01_JPRB,3.8180E-01_JPRB,2.9456E-01_JPRB,&
+ & 2.1305E-01_JPRB,7.4083E-01_JPRB,2.2771E-01_JPRB/)  
+KAO( :, 4, 9,13) = (/&
+ & 7.2071E-01_JPRB,6.3065E-01_JPRB,5.4414E-01_JPRB,4.6459E-01_JPRB,3.7956E-01_JPRB,3.0226E-01_JPRB,&
+ & 2.2460E-01_JPRB,7.2071E-01_JPRB,3.3060E-01_JPRB/)  
+KAO( :, 5, 9,13) = (/&
+ & 7.0101E-01_JPRB,6.1340E-01_JPRB,5.3848E-01_JPRB,4.5996E-01_JPRB,3.8516E-01_JPRB,3.1030E-01_JPRB,&
+ & 2.3292E-01_JPRB,7.0101E-01_JPRB,4.5916E-01_JPRB/)  
+KAO( :, 1,10,13) = (/&
+ & 8.1699E-01_JPRB,7.1490E-01_JPRB,6.1279E-01_JPRB,5.1070E-01_JPRB,4.0862E-01_JPRB,3.0651E-01_JPRB,&
+ & 2.0447E-01_JPRB,8.1699E-01_JPRB,2.0223E-01_JPRB/)  
+KAO( :, 2,10,13) = (/&
+ & 7.9680E-01_JPRB,6.9725E-01_JPRB,5.9768E-01_JPRB,4.9808E-01_JPRB,3.9857E-01_JPRB,2.9954E-01_JPRB,&
+ & 2.1116E-01_JPRB,7.9680E-01_JPRB,2.1512E-01_JPRB/)  
+KAO( :, 3,10,13) = (/&
+ & 7.7769E-01_JPRB,6.8054E-01_JPRB,5.8332E-01_JPRB,4.8646E-01_JPRB,3.9735E-01_JPRB,3.0638E-01_JPRB,&
+ & 2.2182E-01_JPRB,7.7769E-01_JPRB,2.3973E-01_JPRB/)  
+KAO( :, 4,10,13) = (/&
+ & 7.5760E-01_JPRB,6.6294E-01_JPRB,5.6993E-01_JPRB,4.8571E-01_JPRB,3.9617E-01_JPRB,3.1482E-01_JPRB,&
+ & 2.3294E-01_JPRB,7.5760E-01_JPRB,3.0285E-01_JPRB/)  
+KAO( :, 5,10,13) = (/&
+ & 7.3618E-01_JPRB,6.4414E-01_JPRB,5.6442E-01_JPRB,4.8052E-01_JPRB,4.0378E-01_JPRB,3.2545E-01_JPRB,&
+ & 2.3666E-01_JPRB,7.3618E-01_JPRB,4.1601E-01_JPRB/)  
+KAO( :, 1,11,13) = (/&
+ & 8.3942E-01_JPRB,7.3450E-01_JPRB,6.2963E-01_JPRB,5.2471E-01_JPRB,4.1987E-01_JPRB,3.1499E-01_JPRB,&
+ & 2.1173E-01_JPRB,8.3942E-01_JPRB,5.1704E-01_JPRB/)  
+KAO( :, 2,11,13) = (/&
+ & 8.2051E-01_JPRB,7.1798E-01_JPRB,6.1544E-01_JPRB,5.1289E-01_JPRB,4.1041E-01_JPRB,3.1180E-01_JPRB,&
+ & 2.2477E-01_JPRB,8.2051E-01_JPRB,5.0715E-01_JPRB/)  
+KAO( :, 3,11,13) = (/&
+ & 8.0104E-01_JPRB,7.0099E-01_JPRB,6.0089E-01_JPRB,5.0362E-01_JPRB,4.1222E-01_JPRB,3.2198E-01_JPRB,&
+ & 2.3377E-01_JPRB,8.0104E-01_JPRB,5.0602E-01_JPRB/)  
+KAO( :, 4,11,13) = (/&
+ & 7.7897E-01_JPRB,6.8168E-01_JPRB,5.9030E-01_JPRB,5.0190E-01_JPRB,4.1316E-01_JPRB,3.3484E-01_JPRB,&
+ & 2.4521E-01_JPRB,7.7897E-01_JPRB,5.2719E-01_JPRB/)  
+KAO( :, 5,11,13) = (/&
+ & 7.5657E-01_JPRB,6.6294E-01_JPRB,5.8168E-01_JPRB,4.9940E-01_JPRB,4.2397E-01_JPRB,3.4229E-01_JPRB,&
+ & 2.5422E-01_JPRB,7.5657E-01_JPRB,5.6893E-01_JPRB/)  
+KAO( :, 1,12,13) = (/&
+ & 8.6084E-01_JPRB,7.5332E-01_JPRB,6.4569E-01_JPRB,5.3811E-01_JPRB,4.3054E-01_JPRB,3.2302E-01_JPRB,&
+ & 2.2089E-01_JPRB,8.6084E-01_JPRB,8.5915E-01_JPRB/)  
+KAO( :, 2,12,13) = (/&
+ & 8.4383E-01_JPRB,7.3849E-01_JPRB,6.3296E-01_JPRB,5.2757E-01_JPRB,4.2272E-01_JPRB,3.2652E-01_JPRB,&
+ & 2.3662E-01_JPRB,8.4383E-01_JPRB,8.4258E-01_JPRB/)  
+KAO( :, 3,12,13) = (/&
+ & 8.2461E-01_JPRB,7.2162E-01_JPRB,6.1861E-01_JPRB,5.2173E-01_JPRB,4.2609E-01_JPRB,3.3651E-01_JPRB,&
+ & 2.4602E-01_JPRB,8.2461E-01_JPRB,8.2424E-01_JPRB/)  
+KAO( :, 4,12,13) = (/&
+ & 8.0362E-01_JPRB,7.0330E-01_JPRB,6.1076E-01_JPRB,5.1642E-01_JPRB,4.3196E-01_JPRB,3.5024E-01_JPRB,&
+ & 2.5788E-01_JPRB,8.0362E-01_JPRB,8.1526E-01_JPRB/)  
+KAO( :, 5,12,13) = (/&
+ & 7.8196E-01_JPRB,6.8686E-01_JPRB,5.9993E-01_JPRB,5.1915E-01_JPRB,4.4219E-01_JPRB,3.5857E-01_JPRB,&
+ & 2.8318E-01_JPRB,7.8196E-01_JPRB,8.4417E-01_JPRB/)  
+KAO( :, 1,13,13) = (/&
+ & 8.9885E-01_JPRB,7.8652E-01_JPRB,6.7417E-01_JPRB,5.6190E-01_JPRB,4.4957E-01_JPRB,3.3736E-01_JPRB,&
+ & 2.3468E-01_JPRB,8.9885E-01_JPRB,1.1747E+00_JPRB/)  
+KAO( :, 2,13,13) = (/&
+ & 8.8176E-01_JPRB,7.7157E-01_JPRB,6.6138E-01_JPRB,5.5126E-01_JPRB,4.4334E-01_JPRB,3.4503E-01_JPRB,&
+ & 2.4591E-01_JPRB,8.8176E-01_JPRB,1.1474E+00_JPRB/)  
+KAO( :, 3,13,13) = (/&
+ & 8.6445E-01_JPRB,7.5644E-01_JPRB,6.4871E-01_JPRB,5.4797E-01_JPRB,4.4798E-01_JPRB,3.5260E-01_JPRB,&
+ & 2.5729E-01_JPRB,8.6445E-01_JPRB,1.1167E+00_JPRB/)  
+KAO( :, 4,13,13) = (/&
+ & 8.4531E-01_JPRB,7.3968E-01_JPRB,6.4228E-01_JPRB,5.4288E-01_JPRB,4.5703E-01_JPRB,3.6588E-01_JPRB,&
+ & 2.7546E-01_JPRB,8.4531E-01_JPRB,1.0937E+00_JPRB/)  
+KAO( :, 5,13,13) = (/&
+ & 8.2636E-01_JPRB,7.2791E-01_JPRB,6.3427E-01_JPRB,5.5035E-01_JPRB,4.6456E-01_JPRB,3.8210E-01_JPRB,&
+ & 3.1914E-01_JPRB,8.2636E-01_JPRB,1.1091E+00_JPRB/)  
+KAO( :, 1, 1,14) = (/&
+ & 6.4697E-01_JPRB,5.6581E-01_JPRB,4.8619E-01_JPRB,4.0514E-01_JPRB,3.2628E-01_JPRB,2.6560E-01_JPRB,&
+ & 2.6000E-01_JPRB,6.4697E-01_JPRB,5.4302E-01_JPRB/)  
+KAO( :, 2, 1,14) = (/&
+ & 6.1615E-01_JPRB,5.3934E-01_JPRB,4.6216E-01_JPRB,3.9067E-01_JPRB,3.3456E-01_JPRB,3.3408E-01_JPRB,&
+ & 3.5677E-01_JPRB,6.1615E-01_JPRB,7.5638E-01_JPRB/)  
+KAO( :, 3, 1,14) = (/&
+ & 5.8533E-01_JPRB,5.1238E-01_JPRB,4.4004E-01_JPRB,3.8617E-01_JPRB,3.9537E-01_JPRB,4.4466E-01_JPRB,&
+ & 4.7278E-01_JPRB,5.8533E-01_JPRB,1.0166E+00_JPRB/)  
+KAO( :, 4, 1,14) = (/&
+ & 5.5669E-01_JPRB,4.8735E-01_JPRB,4.2781E-01_JPRB,4.2678E-01_JPRB,5.1253E-01_JPRB,5.7332E-01_JPRB,&
+ & 6.0788E-01_JPRB,5.5669E-01_JPRB,1.3240E+00_JPRB/)  
+KAO( :, 5, 1,14) = (/&
+ & 5.2879E-01_JPRB,4.6247E-01_JPRB,4.2802E-01_JPRB,5.3254E-01_JPRB,6.4936E-01_JPRB,7.2566E-01_JPRB,&
+ & 7.6206E-01_JPRB,5.2879E-01_JPRB,1.6773E+00_JPRB/)  
+KAO( :, 1, 2,14) = (/&
+ & 6.8303E-01_JPRB,5.9781E-01_JPRB,5.1220E-01_JPRB,4.2706E-01_JPRB,3.4379E-01_JPRB,2.7382E-01_JPRB,&
+ & 2.5162E-01_JPRB,6.8303E-01_JPRB,5.1036E-01_JPRB/)  
+KAO( :, 2, 2,14) = (/&
+ & 6.4954E-01_JPRB,5.6917E-01_JPRB,4.8810E-01_JPRB,4.1304E-01_JPRB,3.4632E-01_JPRB,3.2639E-01_JPRB,&
+ & 3.5170E-01_JPRB,6.4954E-01_JPRB,7.2343E-01_JPRB/)  
+KAO( :, 3, 2,14) = (/&
+ & 6.1641E-01_JPRB,5.3958E-01_JPRB,4.6497E-01_JPRB,4.0263E-01_JPRB,3.9007E-01_JPRB,4.3907E-01_JPRB,&
+ & 4.7004E-01_JPRB,6.1641E-01_JPRB,9.8553E-01_JPRB/)  
+KAO( :, 4, 2,14) = (/&
+ & 5.8470E-01_JPRB,5.1185E-01_JPRB,4.4927E-01_JPRB,4.3064E-01_JPRB,5.0846E-01_JPRB,5.7765E-01_JPRB,&
+ & 6.1669E-01_JPRB,5.8470E-01_JPRB,1.2985E+00_JPRB/)  
+KAO( :, 5, 2,14) = (/&
+ & 5.5467E-01_JPRB,4.8565E-01_JPRB,4.4367E-01_JPRB,5.2819E-01_JPRB,6.4947E-01_JPRB,7.3873E-01_JPRB,&
+ & 7.8515E-01_JPRB,5.5467E-01_JPRB,1.6649E+00_JPRB/)  
+KAO( :, 1, 3,14) = (/&
+ & 7.2604E-01_JPRB,6.3550E-01_JPRB,5.4494E-01_JPRB,4.5437E-01_JPRB,3.6385E-01_JPRB,2.8334E-01_JPRB,&
+ & 2.2702E-01_JPRB,7.2604E-01_JPRB,4.3950E-01_JPRB/)  
+KAO( :, 2, 3,14) = (/&
+ & 6.8954E-01_JPRB,6.0362E-01_JPRB,5.1760E-01_JPRB,4.3356E-01_JPRB,3.5873E-01_JPRB,3.0878E-01_JPRB,&
+ & 3.1582E-01_JPRB,6.8954E-01_JPRB,6.3380E-01_JPRB/)  
+KAO( :, 3, 3,14) = (/&
+ & 6.5385E-01_JPRB,5.7238E-01_JPRB,4.9126E-01_JPRB,4.2254E-01_JPRB,3.7557E-01_JPRB,4.0304E-01_JPRB,&
+ & 4.3683E-01_JPRB,6.5385E-01_JPRB,8.8264E-01_JPRB/)  
+KAO( :, 4, 3,14) = (/&
+ & 6.1901E-01_JPRB,5.4191E-01_JPRB,4.7603E-01_JPRB,4.2566E-01_JPRB,4.6990E-01_JPRB,5.3966E-01_JPRB,&
+ & 5.8392E-01_JPRB,6.1901E-01_JPRB,1.1869E+00_JPRB/)  
+KAO( :, 5, 3,14) = (/&
+ & 5.8653E-01_JPRB,5.1354E-01_JPRB,4.5882E-01_JPRB,4.9733E-01_JPRB,6.1274E-01_JPRB,7.0260E-01_JPRB,&
+ & 7.5851E-01_JPRB,5.8653E-01_JPRB,1.5549E+00_JPRB/)  
+KAO( :, 1, 4,14) = (/&
+ & 7.7382E-01_JPRB,6.7722E-01_JPRB,5.8077E-01_JPRB,4.8422E-01_JPRB,3.8766E-01_JPRB,2.9794E-01_JPRB,&
+ & 2.1506E-01_JPRB,7.7382E-01_JPRB,3.8561E-01_JPRB/)  
+KAO( :, 2, 4,14) = (/&
+ & 7.3238E-01_JPRB,6.4104E-01_JPRB,5.4969E-01_JPRB,4.5833E-01_JPRB,3.7818E-01_JPRB,3.0063E-01_JPRB,&
+ & 2.7269E-01_JPRB,7.3238E-01_JPRB,5.4567E-01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART9',1,ZHOOK_HANDLE)
+END SUBROUTINE PART9
+
+
+SUBROUTINE PART10
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART10',0,ZHOOK_HANDLE)
+
+
+KAO( :, 3, 4,14) = (/&
+ & 6.9409E-01_JPRB,6.0760E-01_JPRB,5.2105E-01_JPRB,4.4727E-01_JPRB,3.7346E-01_JPRB,3.5556E-01_JPRB,&
+ & 3.8970E-01_JPRB,6.9409E-01_JPRB,7.5575E-01_JPRB/)  
+KAO( :, 4, 4,14) = (/&
+ & 6.5680E-01_JPRB,5.7500E-01_JPRB,5.0421E-01_JPRB,4.3210E-01_JPRB,4.2750E-01_JPRB,4.8792E-01_JPRB,&
+ & 5.3313E-01_JPRB,6.5680E-01_JPRB,1.0436E+00_JPRB/)  
+KAO( :, 5, 4,14) = (/&
+ & 6.2089E-01_JPRB,5.4362E-01_JPRB,4.8130E-01_JPRB,4.7140E-01_JPRB,5.6311E-01_JPRB,6.4743E-01_JPRB,&
+ & 7.0793E-01_JPRB,6.2089E-01_JPRB,1.3960E+00_JPRB/)  
+KAO( :, 1, 5,14) = (/&
+ & 8.2229E-01_JPRB,7.1962E-01_JPRB,6.1700E-01_JPRB,5.1439E-01_JPRB,4.1134E-01_JPRB,3.0886E-01_JPRB,&
+ & 2.1652E-01_JPRB,8.2229E-01_JPRB,3.4617E-01_JPRB/)  
+KAO( :, 2, 5,14) = (/&
+ & 7.7737E-01_JPRB,6.8035E-01_JPRB,5.8334E-01_JPRB,4.8633E-01_JPRB,3.9777E-01_JPRB,3.0668E-01_JPRB,&
+ & 2.4242E-01_JPRB,7.7737E-01_JPRB,4.8134E-01_JPRB/)  
+KAO( :, 3, 5,14) = (/&
+ & 7.3545E-01_JPRB,6.4364E-01_JPRB,5.5194E-01_JPRB,4.7124E-01_JPRB,3.8457E-01_JPRB,3.2665E-01_JPRB,&
+ & 3.3917E-01_JPRB,7.3545E-01_JPRB,6.5879E-01_JPRB/)  
+KAO( :, 4, 5,14) = (/&
+ & 6.9572E-01_JPRB,6.0902E-01_JPRB,5.3204E-01_JPRB,4.5117E-01_JPRB,4.0273E-01_JPRB,4.3738E-01_JPRB,&
+ & 4.7818E-01_JPRB,6.9572E-01_JPRB,9.0069E-01_JPRB/)  
+KAO( :, 5, 5,14) = (/&
+ & 6.5745E-01_JPRB,5.7553E-01_JPRB,5.0705E-01_JPRB,4.6147E-01_JPRB,5.1159E-01_JPRB,5.9239E-01_JPRB,&
+ & 6.4809E-01_JPRB,6.5745E-01_JPRB,1.2234E+00_JPRB/)  
+KAO( :, 1, 6,14) = (/&
+ & 8.7308E-01_JPRB,7.6408E-01_JPRB,6.5505E-01_JPRB,5.4604E-01_JPRB,4.3705E-01_JPRB,3.2789E-01_JPRB,&
+ & 2.2557E-01_JPRB,8.7308E-01_JPRB,2.9961E-01_JPRB/)  
+KAO( :, 2, 6,14) = (/&
+ & 8.2540E-01_JPRB,7.2233E-01_JPRB,6.1930E-01_JPRB,5.1628E-01_JPRB,4.1422E-01_JPRB,3.2146E-01_JPRB,&
+ & 2.2994E-01_JPRB,8.2540E-01_JPRB,4.2262E-01_JPRB/)  
+KAO( :, 3, 6,14) = (/&
+ & 7.7924E-01_JPRB,6.8203E-01_JPRB,5.8479E-01_JPRB,4.9474E-01_JPRB,4.0395E-01_JPRB,3.1715E-01_JPRB,&
+ & 2.8904E-01_JPRB,7.7924E-01_JPRB,5.7314E-01_JPRB/)  
+KAO( :, 4, 6,14) = (/&
+ & 7.3709E-01_JPRB,6.4513E-01_JPRB,5.5979E-01_JPRB,4.7521E-01_JPRB,3.9636E-01_JPRB,3.8185E-01_JPRB,&
+ & 4.1862E-01_JPRB,7.3709E-01_JPRB,7.8091E-01_JPRB/)  
+KAO( :, 5, 6,14) = (/&
+ & 6.9621E-01_JPRB,6.0938E-01_JPRB,5.3478E-01_JPRB,4.6425E-01_JPRB,4.6297E-01_JPRB,5.2802E-01_JPRB,&
+ & 5.8170E-01_JPRB,6.9621E-01_JPRB,1.0527E+00_JPRB/)  
+KAO( :, 1, 7,14) = (/&
+ & 9.2395E-01_JPRB,8.0850E-01_JPRB,6.9306E-01_JPRB,5.7769E-01_JPRB,4.6224E-01_JPRB,3.4691E-01_JPRB,&
+ & 2.3084E-01_JPRB,9.2395E-01_JPRB,2.5497E-01_JPRB/)  
+KAO( :, 2, 7,14) = (/&
+ & 8.7317E-01_JPRB,7.6415E-01_JPRB,6.5513E-01_JPRB,5.4606E-01_JPRB,4.3714E-01_JPRB,3.3528E-01_JPRB,&
+ & 2.3202E-01_JPRB,8.7317E-01_JPRB,3.7202E-01_JPRB/)  
+KAO( :, 3, 7,14) = (/&
+ & 8.2438E-01_JPRB,7.2141E-01_JPRB,6.1853E-01_JPRB,5.1767E-01_JPRB,4.2475E-01_JPRB,3.2596E-01_JPRB,&
+ & 2.5061E-01_JPRB,8.2438E-01_JPRB,5.0761E-01_JPRB/)  
+KAO( :, 4, 7,14) = (/&
+ & 7.7804E-01_JPRB,6.8094E-01_JPRB,5.8814E-01_JPRB,5.0039E-01_JPRB,4.0791E-01_JPRB,3.4702E-01_JPRB,&
+ & 3.6090E-01_JPRB,7.7804E-01_JPRB,6.8063E-01_JPRB/)  
+KAO( :, 5, 7,14) = (/&
+ & 7.3636E-01_JPRB,6.4448E-01_JPRB,5.6430E-01_JPRB,4.8129E-01_JPRB,4.3569E-01_JPRB,4.6156E-01_JPRB,&
+ & 5.1425E-01_JPRB,7.3636E-01_JPRB,9.1422E-01_JPRB/)  
+KAO( :, 1, 8,14) = (/&
+ & 9.7397E-01_JPRB,8.5236E-01_JPRB,7.3070E-01_JPRB,6.0905E-01_JPRB,4.8737E-01_JPRB,3.6576E-01_JPRB,&
+ & 2.4401E-01_JPRB,9.7397E-01_JPRB,2.1663E-01_JPRB/)  
+KAO( :, 2, 8,14) = (/&
+ & 9.2100E-01_JPRB,8.0595E-01_JPRB,6.9096E-01_JPRB,5.7592E-01_JPRB,4.6092E-01_JPRB,3.4695E-01_JPRB,&
+ & 2.4168E-01_JPRB,9.2100E-01_JPRB,3.2348E-01_JPRB/)  
+KAO( :, 3, 8,14) = (/&
+ & 8.7221E-01_JPRB,7.6329E-01_JPRB,6.5435E-01_JPRB,5.4550E-01_JPRB,4.4631E-01_JPRB,3.4181E-01_JPRB,&
+ & 2.3826E-01_JPRB,8.7221E-01_JPRB,4.5837E-01_JPRB/)  
+KAO( :, 4, 8,14) = (/&
+ & 8.2606E-01_JPRB,7.2291E-01_JPRB,6.2015E-01_JPRB,5.2779E-01_JPRB,4.2860E-01_JPRB,3.3690E-01_JPRB,&
+ & 3.1094E-01_JPRB,8.2606E-01_JPRB,6.1646E-01_JPRB/)  
+KAO( :, 5, 8,14) = (/&
+ & 7.8339E-01_JPRB,6.8563E-01_JPRB,5.9715E-01_JPRB,5.0560E-01_JPRB,4.2904E-01_JPRB,4.0836E-01_JPRB,&
+ & 4.4759E-01_JPRB,7.8339E-01_JPRB,8.2068E-01_JPRB/)  
+KAO( :, 1, 9,14) = (/&
+ & 1.0301E+00_JPRB,9.0147E-01_JPRB,7.7271E-01_JPRB,6.4407E-01_JPRB,5.1534E-01_JPRB,3.8666E-01_JPRB,&
+ & 2.5795E-01_JPRB,1.0301E+00_JPRB,1.8238E-01_JPRB/)  
+KAO( :, 2, 9,14) = (/&
+ & 9.7820E-01_JPRB,8.5599E-01_JPRB,7.3388E-01_JPRB,6.1168E-01_JPRB,4.8943E-01_JPRB,3.6719E-01_JPRB,&
+ & 2.5130E-01_JPRB,9.7820E-01_JPRB,2.7990E-01_JPRB/)  
+KAO( :, 3, 9,14) = (/&
+ & 9.2786E-01_JPRB,8.1203E-01_JPRB,6.9612E-01_JPRB,5.8026E-01_JPRB,4.6878E-01_JPRB,3.5884E-01_JPRB,&
+ & 2.4589E-01_JPRB,9.2786E-01_JPRB,4.0829E-01_JPRB/)  
+KAO( :, 4, 9,14) = (/&
+ & 8.8063E-01_JPRB,7.7081E-01_JPRB,6.6089E-01_JPRB,5.5869E-01_JPRB,4.5326E-01_JPRB,3.4687E-01_JPRB,&
+ & 2.8154E-01_JPRB,8.8063E-01_JPRB,5.6423E-01_JPRB/)  
+KAO( :, 5, 9,14) = (/&
+ & 8.3750E-01_JPRB,7.3300E-01_JPRB,6.3612E-01_JPRB,5.3674E-01_JPRB,4.4242E-01_JPRB,3.8121E-01_JPRB,&
+ & 3.9514E-01_JPRB,8.3750E-01_JPRB,7.6101E-01_JPRB/)  
+KAO( :, 1,10,14) = (/&
+ & 1.0910E+00_JPRB,9.5477E-01_JPRB,8.1845E-01_JPRB,6.8213E-01_JPRB,5.4582E-01_JPRB,4.0946E-01_JPRB,&
+ & 2.7317E-01_JPRB,1.0910E+00_JPRB,2.4894E-01_JPRB/)  
+KAO( :, 2,10,14) = (/&
+ & 1.0359E+00_JPRB,9.0651E-01_JPRB,7.7708E-01_JPRB,6.4767E-01_JPRB,5.1833E-01_JPRB,3.8894E-01_JPRB,&
+ & 2.6039E-01_JPRB,1.0359E+00_JPRB,2.7831E-01_JPRB/)  
+KAO( :, 3,10,14) = (/&
+ & 9.8652E-01_JPRB,8.6341E-01_JPRB,7.4018E-01_JPRB,6.1698E-01_JPRB,4.9398E-01_JPRB,3.7879E-01_JPRB,&
+ & 2.6008E-01_JPRB,9.8652E-01_JPRB,3.7798E-01_JPRB/)  
+KAO( :, 4,10,14) = (/&
+ & 9.4211E-01_JPRB,8.2452E-01_JPRB,7.0695E-01_JPRB,5.9553E-01_JPRB,4.8274E-01_JPRB,3.6793E-01_JPRB,&
+ & 2.7883E-01_JPRB,9.4211E-01_JPRB,5.3013E-01_JPRB/)  
+KAO( :, 5,10,14) = (/&
+ & 9.0248E-01_JPRB,7.8992E-01_JPRB,6.8355E-01_JPRB,5.7648E-01_JPRB,4.7251E-01_JPRB,3.8441E-01_JPRB,&
+ & 3.6799E-01_JPRB,9.0248E-01_JPRB,7.2595E-01_JPRB/)  
+KAO( :, 1,11,14) = (/&
+ & 1.1319E+00_JPRB,9.9048E-01_JPRB,8.4899E-01_JPRB,7.0760E-01_JPRB,5.6613E-01_JPRB,4.2478E-01_JPRB,&
+ & 2.8341E-01_JPRB,1.1319E+00_JPRB,6.1592E-01_JPRB/)  
+KAO( :, 2,11,14) = (/&
+ & 1.0823E+00_JPRB,9.4725E-01_JPRB,8.1199E-01_JPRB,6.7675E-01_JPRB,5.4154E-01_JPRB,4.0630E-01_JPRB,&
+ & 2.7609E-01_JPRB,1.0823E+00_JPRB,6.1773E-01_JPRB/)  
+KAO( :, 3,11,14) = (/&
+ & 1.0367E+00_JPRB,9.0731E-01_JPRB,7.7783E-01_JPRB,6.4834E-01_JPRB,5.2311E-01_JPRB,3.9934E-01_JPRB,&
+ & 2.8089E-01_JPRB,1.0367E+00_JPRB,6.2937E-01_JPRB/)  
+KAO( :, 4,11,14) = (/&
+ & 9.9754E-01_JPRB,8.7303E-01_JPRB,7.4854E-01_JPRB,6.3329E-01_JPRB,5.1385E-01_JPRB,3.9730E-01_JPRB,&
+ & 3.1217E-01_JPRB,9.9754E-01_JPRB,6.7492E-01_JPRB/)  
+KAO( :, 5,11,14) = (/&
+ & 9.6377E-01_JPRB,8.4344E-01_JPRB,7.3462E-01_JPRB,6.2175E-01_JPRB,5.1718E-01_JPRB,4.2421E-01_JPRB,&
+ & 3.9708E-01_JPRB,9.6377E-01_JPRB,8.2165E-01_JPRB/)  
+KAO( :, 1,12,14) = (/&
+ & 1.1865E+00_JPRB,1.0383E+00_JPRB,8.9009E-01_JPRB,7.4185E-01_JPRB,5.9361E-01_JPRB,4.4539E-01_JPRB,&
+ & 2.9703E-01_JPRB,1.1865E+00_JPRB,1.0367E+00_JPRB/)  
+KAO( :, 2,12,14) = (/&
+ & 1.1417E+00_JPRB,9.9913E-01_JPRB,8.5647E-01_JPRB,7.1379E-01_JPRB,5.7124E-01_JPRB,4.2863E-01_JPRB,&
+ & 2.9688E-01_JPRB,1.1417E+00_JPRB,1.0233E+00_JPRB/)  
+KAO( :, 3,12,14) = (/&
+ & 1.1032E+00_JPRB,9.6547E-01_JPRB,8.2760E-01_JPRB,6.8985E-01_JPRB,5.6085E-01_JPRB,4.2892E-01_JPRB,&
+ & 3.0866E-01_JPRB,1.1032E+00_JPRB,1.0143E+00_JPRB/)  
+KAO( :, 4,12,14) = (/&
+ & 1.0706E+00_JPRB,9.3688E-01_JPRB,8.0548E-01_JPRB,6.8453E-01_JPRB,5.5710E-01_JPRB,4.4460E-01_JPRB,&
+ & 3.4889E-01_JPRB,1.0706E+00_JPRB,1.0266E+00_JPRB/)  
+KAO( :, 5,12,14) = (/&
+ & 1.0446E+00_JPRB,9.1422E-01_JPRB,8.0059E-01_JPRB,6.8230E-01_JPRB,5.7500E-01_JPRB,4.7448E-01_JPRB,&
+ & 4.2513E-01_JPRB,1.0446E+00_JPRB,1.0801E+00_JPRB/)  
+KAO( :, 1,13,14) = (/&
+ & 1.2550E+00_JPRB,1.0982E+00_JPRB,9.4143E-01_JPRB,7.8461E-01_JPRB,6.2776E-01_JPRB,4.7103E-01_JPRB,&
+ & 3.1423E-01_JPRB,1.2550E+00_JPRB,1.4399E+00_JPRB/)  
+KAO( :, 2,13,14) = (/&
+ & 1.2174E+00_JPRB,1.0653E+00_JPRB,9.1318E-01_JPRB,7.6114E-01_JPRB,6.0904E-01_JPRB,4.6025E-01_JPRB,&
+ & 3.2716E-01_JPRB,1.2174E+00_JPRB,1.4068E+00_JPRB/)  
+KAO( :, 3,13,14) = (/&
+ & 1.1864E+00_JPRB,1.0381E+00_JPRB,8.9001E-01_JPRB,7.4479E-01_JPRB,6.0816E-01_JPRB,4.7143E-01_JPRB,&
+ & 3.4454E-01_JPRB,1.1864E+00_JPRB,1.3882E+00_JPRB/)  
+KAO( :, 4,13,14) = (/&
+ & 1.1616E+00_JPRB,1.0165E+00_JPRB,8.7886E-01_JPRB,7.4766E-01_JPRB,6.1245E-01_JPRB,5.0020E-01_JPRB,&
+ & 3.8828E-01_JPRB,1.1616E+00_JPRB,1.3917E+00_JPRB/)  
+KAO( :, 5,13,14) = (/&
+ & 1.1397E+00_JPRB,9.9781E-01_JPRB,8.7736E-01_JPRB,7.5469E-01_JPRB,6.4460E-01_JPRB,5.3210E-01_JPRB,&
+ & 4.5910E-01_JPRB,1.1397E+00_JPRB,1.4042E+00_JPRB/)  
+KAO( :, 1, 1,15) = (/&
+ & 6.7013E-01_JPRB,5.8657E-01_JPRB,5.0312E-01_JPRB,4.1845E-01_JPRB,3.3604E-01_JPRB,3.2447E-01_JPRB,&
+ & 3.1596E-01_JPRB,6.7013E-01_JPRB,1.0209E+00_JPRB/)  
+KAO( :, 2, 1,15) = (/&
+ & 6.3713E-01_JPRB,5.5910E-01_JPRB,4.7959E-01_JPRB,4.0042E-01_JPRB,4.3246E-01_JPRB,4.5455E-01_JPRB,&
+ & 4.4491E-01_JPRB,6.3714E-01_JPRB,1.4151E+00_JPRB/)  
+KAO( :, 3, 1,15) = (/&
+ & 6.0413E-01_JPRB,5.2881E-01_JPRB,4.5365E-01_JPRB,5.1141E-01_JPRB,5.7932E-01_JPRB,6.0400E-01_JPRB,&
+ & 5.9194E-01_JPRB,6.0413E-01_JPRB,1.8935E+00_JPRB/)  
+KAO( :, 4, 1,15) = (/&
+ & 5.7379E-01_JPRB,5.0236E-01_JPRB,5.0998E-01_JPRB,6.6283E-01_JPRB,7.5577E-01_JPRB,7.9134E-01_JPRB,&
+ & 7.7383E-01_JPRB,5.7379E-01_JPRB,2.4386E+00_JPRB/)  
+KAO( :, 5, 1,15) = (/&
+ & 5.4412E-01_JPRB,4.7644E-01_JPRB,6.4179E-01_JPRB,8.3374E-01_JPRB,9.4901E-01_JPRB,9.9647E-01_JPRB,&
+ & 9.6829E-01_JPRB,5.4412E-01_JPRB,3.0668E+00_JPRB/)  
+KAO( :, 1, 2,15) = (/&
+ & 7.1168E-01_JPRB,6.2291E-01_JPRB,5.3428E-01_JPRB,4.4560E-01_JPRB,3.5787E-01_JPRB,3.3695E-01_JPRB,&
+ & 3.3151E-01_JPRB,7.1168E-01_JPRB,1.0408E+00_JPRB/)  
+KAO( :, 2, 2,15) = (/&
+ & 6.7551E-01_JPRB,5.8980E-01_JPRB,5.0589E-01_JPRB,4.2379E-01_JPRB,4.5484E-01_JPRB,4.7493E-01_JPRB,&
+ & 4.6615E-01_JPRB,6.7551E-01_JPRB,1.4628E+00_JPRB/)  
+KAO( :, 3, 2,15) = (/&
+ & 6.3979E-01_JPRB,5.6002E-01_JPRB,4.8033E-01_JPRB,5.3992E-01_JPRB,6.1725E-01_JPRB,6.4789E-01_JPRB,&
+ & 6.3640E-01_JPRB,6.3979E-01_JPRB,1.9740E+00_JPRB/)  
+KAO( :, 4, 2,15) = (/&
+ & 6.0574E-01_JPRB,5.3026E-01_JPRB,5.4102E-01_JPRB,7.0781E-01_JPRB,8.0810E-01_JPRB,8.5154E-01_JPRB,&
+ & 8.3777E-01_JPRB,6.0574E-01_JPRB,2.5770E+00_JPRB/)  
+KAO( :, 5, 2,15) = (/&
+ & 5.7367E-01_JPRB,5.0230E-01_JPRB,6.8564E-01_JPRB,8.9765E-01_JPRB,1.0319E+00_JPRB,1.0843E+00_JPRB,&
+ & 1.0692E+00_JPRB,5.7367E-01_JPRB,3.2665E+00_JPRB/)  
+KAO( :, 1, 3,15) = (/&
+ & 7.6206E-01_JPRB,6.6694E-01_JPRB,5.7209E-01_JPRB,4.7696E-01_JPRB,3.8092E-01_JPRB,3.2070E-01_JPRB,&
+ & 3.1660E-01_JPRB,7.6206E-01_JPRB,9.6051E-01_JPRB/)  
+KAO( :, 2, 3,15) = (/&
+ & 7.2225E-01_JPRB,6.3222E-01_JPRB,5.4222E-01_JPRB,4.5212E-01_JPRB,4.4022E-01_JPRB,4.6467E-01_JPRB,&
+ & 4.5854E-01_JPRB,7.2225E-01_JPRB,1.3827E+00_JPRB/)  
+KAO( :, 3, 3,15) = (/&
+ & 6.8319E-01_JPRB,5.9821E-01_JPRB,5.1315E-01_JPRB,5.2942E-01_JPRB,6.1251E-01_JPRB,6.4502E-01_JPRB,&
+ & 6.3732E-01_JPRB,6.8319E-01_JPRB,1.9060E+00_JPRB/)  
+KAO( :, 4, 3,15) = (/&
+ & 6.4520E-01_JPRB,5.6501E-01_JPRB,5.4637E-01_JPRB,7.0565E-01_JPRB,8.1836E-01_JPRB,8.6755E-01_JPRB,&
+ & 8.5856E-01_JPRB,6.4520E-01_JPRB,2.5416E+00_JPRB/)  
+KAO( :, 5, 3,15) = (/&
+ & 6.1032E-01_JPRB,5.3440E-01_JPRB,6.8762E-01_JPRB,9.1192E-01_JPRB,1.0544E+00_JPRB,1.1220E+00_JPRB,&
+ & 1.1118E+00_JPRB,6.1032E-01_JPRB,3.2899E+00_JPRB/)  
+KAO( :, 1, 4,15) = (/&
+ & 8.1880E-01_JPRB,7.1671E-01_JPRB,6.1469E-01_JPRB,5.1259E-01_JPRB,4.1035E-01_JPRB,3.0900E-01_JPRB,&
+ & 2.8774E-01_JPRB,8.1880E-01_JPRB,8.3214E-01_JPRB/)  
+KAO( :, 2, 4,15) = (/&
+ & 7.7244E-01_JPRB,6.7627E-01_JPRB,5.8000E-01_JPRB,4.8371E-01_JPRB,4.1707E-01_JPRB,4.3611E-01_JPRB,&
+ & 4.3242E-01_JPRB,7.7244E-01_JPRB,1.2349E+00_JPRB/)  
+KAO( :, 3, 4,15) = (/&
+ & 7.3041E-01_JPRB,6.3939E-01_JPRB,5.4855E-01_JPRB,5.1182E-01_JPRB,5.8284E-01_JPRB,6.2247E-01_JPRB,&
+ & 6.1822E-01_JPRB,7.3041E-01_JPRB,1.7591E+00_JPRB/)  
+KAO( :, 4, 4,15) = (/&
+ & 6.8937E-01_JPRB,6.0366E-01_JPRB,5.5228E-01_JPRB,6.8053E-01_JPRB,7.9580E-01_JPRB,8.4999E-01_JPRB,&
+ & 8.5210E-01_JPRB,6.8937E-01_JPRB,2.4071E+00_JPRB/)  
+KAO( :, 5, 4,15) = (/&
+ & 6.5021E-01_JPRB,5.6936E-01_JPRB,6.6656E-01_JPRB,8.9418E-01_JPRB,1.0485E+00_JPRB,1.1290E+00_JPRB,&
+ & 1.1228E+00_JPRB,6.5021E-01_JPRB,3.1879E+00_JPRB/)  
+KAO( :, 1, 5,15) = (/&
+ & 8.7693E-01_JPRB,7.6771E-01_JPRB,6.5835E-01_JPRB,5.4884E-01_JPRB,4.4068E-01_JPRB,3.3005E-01_JPRB,&
+ & 2.5822E-01_JPRB,8.7693E-01_JPRB,6.9752E-01_JPRB/)  
+KAO( :, 2, 5,15) = (/&
+ & 8.2534E-01_JPRB,7.2250E-01_JPRB,6.1982E-01_JPRB,5.1679E-01_JPRB,4.1772E-01_JPRB,4.0063E-01_JPRB,&
+ & 4.0196E-01_JPRB,8.2534E-01_JPRB,1.0779E+00_JPRB/)  
+KAO( :, 3, 5,15) = (/&
+ & 7.7811E-01_JPRB,6.8129E-01_JPRB,5.8442E-01_JPRB,5.0960E-01_JPRB,5.4382E-01_JPRB,5.8808E-01_JPRB,&
+ & 5.9145E-01_JPRB,7.7811E-01_JPRB,1.5826E+00_JPRB/)  
+KAO( :, 4, 5,15) = (/&
+ & 7.3361E-01_JPRB,6.4251E-01_JPRB,5.6661E-01_JPRB,6.4134E-01_JPRB,7.5938E-01_JPRB,8.2208E-01_JPRB,&
+ & 8.2942E-01_JPRB,7.3361E-01_JPRB,2.2230E+00_JPRB/)  
+KAO( :, 5, 5,15) = (/&
+ & 6.9110E-01_JPRB,6.0518E-01_JPRB,6.5033E-01_JPRB,8.5838E-01_JPRB,1.0195E+00_JPRB,1.1130E+00_JPRB,&
+ & 1.1201E+00_JPRB,6.9110E-01_JPRB,3.0082E+00_JPRB/)  
+KAO( :, 1, 6,15) = (/&
+ & 9.3756E-01_JPRB,8.2068E-01_JPRB,7.0383E-01_JPRB,5.8672E-01_JPRB,4.6972E-01_JPRB,3.5270E-01_JPRB,&
+ & 2.3642E-01_JPRB,9.3756E-01_JPRB,5.8692E-01_JPRB/)  
+KAO( :, 2, 6,15) = (/&
+ & 8.8146E-01_JPRB,7.7172E-01_JPRB,6.6172E-01_JPRB,5.5196E-01_JPRB,4.4195E-01_JPRB,3.6409E-01_JPRB,&
+ & 3.5917E-01_JPRB,8.8146E-01_JPRB,9.0877E-01_JPRB/)  
+KAO( :, 3, 6,15) = (/&
+ & 8.2746E-01_JPRB,7.2459E-01_JPRB,6.2157E-01_JPRB,5.2255E-01_JPRB,4.9923E-01_JPRB,5.3612E-01_JPRB,&
+ & 5.4635E-01_JPRB,8.2746E-01_JPRB,1.3807E+00_JPRB/)  
+KAO( :, 4, 6,15) = (/&
+ & 7.7986E-01_JPRB,6.8286E-01_JPRB,5.9009E-01_JPRB,6.0449E-01_JPRB,7.0052E-01_JPRB,7.7068E-01_JPRB,&
+ & 7.9084E-01_JPRB,7.7986E-01_JPRB,1.9934E+00_JPRB/)  
+KAO( :, 5, 6,15) = (/&
+ & 7.3459E-01_JPRB,6.4331E-01_JPRB,6.4051E-01_JPRB,8.0328E-01_JPRB,9.6129E-01_JPRB,1.0614E+00_JPRB,&
+ & 1.0888E+00_JPRB,7.3459E-01_JPRB,2.7652E+00_JPRB/)  
+KAO( :, 1, 7,15) = (/&
+ & 1.0010E+00_JPRB,8.7619E-01_JPRB,7.5131E-01_JPRB,6.2639E-01_JPRB,5.0149E-01_JPRB,3.7652E-01_JPRB,&
+ & 2.5149E-01_JPRB,1.0010E+00_JPRB,5.1478E-01_JPRB/)  
+KAO( :, 2, 7,15) = (/&
+ & 9.4042E-01_JPRB,8.2317E-01_JPRB,7.0607E-01_JPRB,5.8870E-01_JPRB,4.7134E-01_JPRB,3.5775E-01_JPRB,&
+ & 3.1227E-01_JPRB,9.4042E-01_JPRB,7.6928E-01_JPRB/)  
+KAO( :, 3, 7,15) = (/&
+ & 8.8237E-01_JPRB,7.7255E-01_JPRB,6.6259E-01_JPRB,5.5268E-01_JPRB,4.7859E-01_JPRB,4.7554E-01_JPRB,&
+ & 4.9216E-01_JPRB,8.8237E-01_JPRB,1.1825E+00_JPRB/)  
+KAO( :, 4, 7,15) = (/&
+ & 8.2933E-01_JPRB,7.2604E-01_JPRB,6.2305E-01_JPRB,5.8548E-01_JPRB,6.3044E-01_JPRB,7.0378E-01_JPRB,&
+ & 7.3153E-01_JPRB,8.2933E-01_JPRB,1.7634E+00_JPRB/)  
+KAO( :, 5, 7,15) = (/&
+ & 7.8131E-01_JPRB,6.8426E-01_JPRB,6.4094E-01_JPRB,7.3798E-01_JPRB,8.8857E-01_JPRB,9.9138E-01_JPRB,&
+ & 1.0340E+00_JPRB,7.8131E-01_JPRB,2.5071E+00_JPRB/)  
+KAO( :, 1, 8,15) = (/&
+ & 1.0680E+00_JPRB,9.3481E-01_JPRB,8.0158E-01_JPRB,6.6826E-01_JPRB,5.3482E-01_JPRB,4.0154E-01_JPRB,&
+ & 2.6788E-01_JPRB,1.0680E+00_JPRB,4.6455E-01_JPRB/)  
+KAO( :, 2, 8,15) = (/&
+ & 1.0024E+00_JPRB,8.7742E-01_JPRB,7.5246E-01_JPRB,6.2743E-01_JPRB,5.0223E-01_JPRB,3.7717E-01_JPRB,&
+ & 2.7719E-01_JPRB,1.0024E+00_JPRB,6.8110E-01_JPRB/)  
+KAO( :, 3, 8,15) = (/&
+ & 9.4024E-01_JPRB,8.2314E-01_JPRB,7.0609E-01_JPRB,5.8881E-01_JPRB,4.8025E-01_JPRB,4.2864E-01_JPRB,&
+ & 4.3393E-01_JPRB,9.4024E-01_JPRB,1.0170E+00_JPRB/)  
+KAO( :, 4, 8,15) = (/&
+ & 8.8264E-01_JPRB,7.7273E-01_JPRB,6.6282E-01_JPRB,5.8404E-01_JPRB,5.7821E-01_JPRB,6.2771E-01_JPRB,&
+ & 6.6458E-01_JPRB,8.8264E-01_JPRB,1.5302E+00_JPRB/)  
+KAO( :, 5, 8,15) = (/&
+ & 8.3199E-01_JPRB,7.2845E-01_JPRB,6.5427E-01_JPRB,6.8741E-01_JPRB,8.0945E-01_JPRB,9.0978E-01_JPRB,&
+ & 9.6418E-01_JPRB,8.3199E-01_JPRB,2.2337E+00_JPRB/)  
+KAO( :, 1, 9,15) = (/&
+ & 1.1381E+00_JPRB,9.9610E-01_JPRB,8.5409E-01_JPRB,7.1197E-01_JPRB,5.6977E-01_JPRB,4.2770E-01_JPRB,&
+ & 2.8544E-01_JPRB,1.1381E+00_JPRB,4.2382E-01_JPRB/)  
+KAO( :, 2, 9,15) = (/&
+ & 1.0667E+00_JPRB,9.3372E-01_JPRB,8.0061E-01_JPRB,6.6744E-01_JPRB,5.3433E-01_JPRB,4.0118E-01_JPRB,&
+ & 2.6997E-01_JPRB,1.0667E+00_JPRB,6.1324E-01_JPRB/)  
+KAO( :, 3, 9,15) = (/&
+ & 1.0035E+00_JPRB,8.7845E-01_JPRB,7.5330E-01_JPRB,6.2805E-01_JPRB,5.0276E-01_JPRB,4.0704E-01_JPRB,&
+ & 3.7170E-01_JPRB,1.0035E+00_JPRB,9.0055E-01_JPRB/)  
+KAO( :, 4, 9,15) = (/&
+ & 9.4646E-01_JPRB,8.2850E-01_JPRB,7.1051E-01_JPRB,6.0313E-01_JPRB,5.4959E-01_JPRB,5.4972E-01_JPRB,&
+ & 5.8769E-01_JPRB,9.4646E-01_JPRB,1.3351E+00_JPRB/)  
+KAO( :, 5, 9,15) = (/&
+ & 8.9740E-01_JPRB,7.8559E-01_JPRB,6.8592E-01_JPRB,6.6573E-01_JPRB,7.2528E-01_JPRB,8.1924E-01_JPRB,&
+ & 8.7543E-01_JPRB,8.9740E-01_JPRB,1.9504E+00_JPRB/)  
+KAO( :, 1,10,15) = (/&
+ & 1.2073E+00_JPRB,1.0565E+00_JPRB,9.0576E-01_JPRB,7.5488E-01_JPRB,6.0419E-01_JPRB,4.5329E-01_JPRB,&
+ & 3.0227E-01_JPRB,1.2073E+00_JPRB,3.9999E-01_JPRB/)  
+KAO( :, 2,10,15) = (/&
+ & 1.1382E+00_JPRB,9.9608E-01_JPRB,8.5413E-01_JPRB,7.1184E-01_JPRB,5.6976E-01_JPRB,4.2763E-01_JPRB,&
+ & 2.8536E-01_JPRB,1.1382E+00_JPRB,5.7883E-01_JPRB/)  
+KAO( :, 3,10,15) = (/&
+ & 1.0785E+00_JPRB,9.4391E-01_JPRB,8.0923E-01_JPRB,6.7459E-01_JPRB,5.3984E-01_JPRB,4.1488E-01_JPRB,&
+ & 3.3805E-01_JPRB,1.0785E+00_JPRB,8.3839E-01_JPRB/)  
+KAO( :, 4,10,15) = (/&
+ & 1.0278E+00_JPRB,8.9961E-01_JPRB,7.7127E-01_JPRB,6.4730E-01_JPRB,5.5430E-01_JPRB,5.1106E-01_JPRB,&
+ & 5.2425E-01_JPRB,1.0278E+00_JPRB,1.2284E+00_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART10',1,ZHOOK_HANDLE)
+END SUBROUTINE PART10
+
+
+SUBROUTINE PART11
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART11',0,ZHOOK_HANDLE)
+
+
+KAO( :, 5,10,15) = (/&
+ & 9.8618E-01_JPRB,8.6326E-01_JPRB,7.4679E-01_JPRB,6.7988E-01_JPRB,6.7637E-01_JPRB,7.4989E-01_JPRB,&
+ & 8.0479E-01_JPRB,9.8618E-01_JPRB,1.7791E+00_JPRB/)  
+KAO( :, 1,11,15) = (/&
+ & 1.2644E+00_JPRB,1.1063E+00_JPRB,9.4846E-01_JPRB,7.9047E-01_JPRB,6.3247E-01_JPRB,4.7453E-01_JPRB,&
+ & 3.1659E-01_JPRB,1.2644E+00_JPRB,7.4298E-01_JPRB/)  
+KAO( :, 2,11,15) = (/&
+ & 1.2071E+00_JPRB,1.0565E+00_JPRB,9.0557E-01_JPRB,7.5491E-01_JPRB,6.0392E-01_JPRB,4.5270E-01_JPRB,&
+ & 3.0399E-01_JPRB,1.2071E+00_JPRB,8.1705E-01_JPRB/)  
+KAO( :, 3,11,15) = (/&
+ & 1.1615E+00_JPRB,1.0165E+00_JPRB,8.7147E-01_JPRB,7.2637E-01_JPRB,5.8138E-01_JPRB,4.5624E-01_JPRB,&
+ & 3.7840E-01_JPRB,1.1615E+00_JPRB,9.7765E-01_JPRB/)  
+KAO( :, 4,11,15) = (/&
+ & 1.1264E+00_JPRB,9.8590E-01_JPRB,8.4531E-01_JPRB,7.1438E-01_JPRB,6.1502E-01_JPRB,5.6197E-01_JPRB,&
+ & 5.7803E-01_JPRB,1.1264E+00_JPRB,1.3520E+00_JPRB/)  
+KAO( :, 5,11,15) = (/&
+ & 1.0994E+00_JPRB,9.6216E-01_JPRB,8.3568E-01_JPRB,7.5689E-01_JPRB,7.4680E-01_JPRB,8.2884E-01_JPRB,&
+ & 8.8880E-01_JPRB,1.0994E+00_JPRB,1.9292E+00_JPRB/)  
+KAO( :, 1,12,15) = (/&
+ & 1.3647E+00_JPRB,1.1941E+00_JPRB,1.0237E+00_JPRB,8.5312E-01_JPRB,6.8264E-01_JPRB,5.1188E-01_JPRB,&
+ & 3.4108E-01_JPRB,1.3647E+00_JPRB,1.2788E+00_JPRB/)  
+KAO( :, 2,12,15) = (/&
+ & 1.3242E+00_JPRB,1.1588E+00_JPRB,9.9341E-01_JPRB,8.2794E-01_JPRB,6.6255E-01_JPRB,4.9690E-01_JPRB,&
+ & 3.3841E-01_JPRB,1.3242E+00_JPRB,1.2778E+00_JPRB/)  
+KAO( :, 3,12,15) = (/&
+ & 1.2955E+00_JPRB,1.1336E+00_JPRB,9.7197E-01_JPRB,8.1003E-01_JPRB,6.5411E-01_JPRB,5.1488E-01_JPRB,&
+ & 4.3081E-01_JPRB,1.2955E+00_JPRB,1.3626E+00_JPRB/)  
+KAO( :, 4,12,15) = (/&
+ & 1.2745E+00_JPRB,1.1153E+00_JPRB,9.5614E-01_JPRB,8.1202E-01_JPRB,6.9456E-01_JPRB,6.2323E-01_JPRB,&
+ & 6.4228E-01_JPRB,1.2745E+00_JPRB,1.6020E+00_JPRB/)  
+KAO( :, 5,12,15) = (/&
+ & 1.2602E+00_JPRB,1.1028E+00_JPRB,9.6134E-01_JPRB,8.5786E-01_JPRB,8.3175E-01_JPRB,9.1010E-01_JPRB,&
+ & 9.8660E-01_JPRB,1.2602E+00_JPRB,2.1013E+00_JPRB/)  
+KAO( :, 1,13,15) = (/&
+ & 1.5182E+00_JPRB,1.3286E+00_JPRB,1.1388E+00_JPRB,9.4918E-01_JPRB,7.5925E-01_JPRB,5.6967E-01_JPRB,&
+ & 3.7977E-01_JPRB,1.5182E+00_JPRB,1.8162E+00_JPRB/)  
+KAO( :, 2,13,15) = (/&
+ & 1.4954E+00_JPRB,1.3087E+00_JPRB,1.1217E+00_JPRB,9.3496E-01_JPRB,7.4798E-01_JPRB,5.6069E-01_JPRB,&
+ & 3.8653E-01_JPRB,1.4954E+00_JPRB,1.7757E+00_JPRB/)  
+KAO( :, 3,13,15) = (/&
+ & 1.4806E+00_JPRB,1.2956E+00_JPRB,1.1104E+00_JPRB,9.2545E-01_JPRB,7.5238E-01_JPRB,5.8983E-01_JPRB,&
+ & 4.8997E-01_JPRB,1.4806E+00_JPRB,1.8395E+00_JPRB/)  
+KAO( :, 4,13,15) = (/&
+ & 1.4707E+00_JPRB,1.2870E+00_JPRB,1.1033E+00_JPRB,9.3978E-01_JPRB,7.9436E-01_JPRB,6.9884E-01_JPRB,&
+ & 7.1743E-01_JPRB,1.4707E+00_JPRB,1.9733E+00_JPRB/)  
+KAO( :, 5,13,15) = (/&
+ & 1.4617E+00_JPRB,1.2790E+00_JPRB,1.1197E+00_JPRB,9.8344E-01_JPRB,9.3195E-01_JPRB,9.9536E-01_JPRB,&
+ & 1.0841E+00_JPRB,1.4617E+00_JPRB,2.3960E+00_JPRB/)  
+KAO( :, 1, 1,16) = (/&
+ & 6.7204E-01_JPRB,5.8835E-01_JPRB,4.9493E-01_JPRB,4.2075E-01_JPRB,3.2404E-01_JPRB,3.2835E-01_JPRB,&
+ & 3.1694E-01_JPRB,6.7204E-01_JPRB,1.1553E+00_JPRB/)  
+KAO( :, 2, 1,16) = (/&
+ & 6.3886E-01_JPRB,5.4837E-01_JPRB,4.7048E-01_JPRB,4.0570E-01_JPRB,4.5211E-01_JPRB,4.4664E-01_JPRB,&
+ & 4.2417E-01_JPRB,6.3887E-01_JPRB,1.6108E+00_JPRB/)  
+KAO( :, 3, 1,16) = (/&
+ & 6.0571E-01_JPRB,5.3024E-01_JPRB,4.5482E-01_JPRB,5.4623E-01_JPRB,6.0722E-01_JPRB,6.1523E-01_JPRB,&
+ & 6.0675E-01_JPRB,6.0571E-01_JPRB,2.1229E+00_JPRB/)  
+KAO( :, 4, 1,16) = (/&
+ & 5.7537E-01_JPRB,5.0361E-01_JPRB,5.5977E-01_JPRB,6.9780E-01_JPRB,7.7428E-01_JPRB,7.8387E-01_JPRB,&
+ & 7.5743E-01_JPRB,5.7537E-01_JPRB,2.8238E+00_JPRB/)  
+KAO( :, 5, 1,16) = (/&
+ & 5.4532E-01_JPRB,4.7762E-01_JPRB,7.0785E-01_JPRB,8.9753E-01_JPRB,9.9932E-01_JPRB,1.0137E+00_JPRB,&
+ & 1.0005E+00_JPRB,5.4532E-01_JPRB,3.5639E+00_JPRB/)  
+KAO( :, 1, 2,16) = (/&
+ & 7.1419E-01_JPRB,6.2513E-01_JPRB,5.3613E-01_JPRB,4.4716E-01_JPRB,3.5137E-01_JPRB,3.4275E-01_JPRB,&
+ & 3.2618E-01_JPRB,7.1419E-01_JPRB,1.2386E+00_JPRB/)  
+KAO( :, 2, 2,16) = (/&
+ & 6.7776E-01_JPRB,5.9352E-01_JPRB,5.0900E-01_JPRB,4.3513E-01_JPRB,4.7304E-01_JPRB,4.9853E-01_JPRB,&
+ & 4.7175E-01_JPRB,6.7776E-01_JPRB,1.7603E+00_JPRB/)  
+KAO( :, 3, 2,16) = (/&
+ & 6.4195E-01_JPRB,5.6188E-01_JPRB,4.8194E-01_JPRB,5.9011E-01_JPRB,6.5773E-01_JPRB,6.7703E-01_JPRB,&
+ & 6.5466E-01_JPRB,6.4195E-01_JPRB,2.4018E+00_JPRB/)  
+KAO( :, 4, 2,16) = (/&
+ & 6.0760E-01_JPRB,5.3187E-01_JPRB,6.1665E-01_JPRB,7.6305E-01_JPRB,8.6650E-01_JPRB,8.7779E-01_JPRB,&
+ & 8.4546E-01_JPRB,6.0760E-01_JPRB,3.1623E+00_JPRB/)  
+KAO( :, 5, 2,16) = (/&
+ & 5.7557E-01_JPRB,5.0389E-01_JPRB,7.8645E-01_JPRB,9.9605E-01_JPRB,1.1101E+00_JPRB,1.1441E+00_JPRB,&
+ & 1.0872E+00_JPRB,5.7557E-01_JPRB,4.0554E+00_JPRB/)  
+KAO( :, 1, 3,16) = (/&
+ & 7.6539E-01_JPRB,6.6993E-01_JPRB,5.7468E-01_JPRB,4.7908E-01_JPRB,3.8366E-01_JPRB,3.3164E-01_JPRB,&
+ & 3.1419E-01_JPRB,7.6539E-01_JPRB,1.2218E+00_JPRB/)  
+KAO( :, 2, 3,16) = (/&
+ & 7.2520E-01_JPRB,6.3496E-01_JPRB,5.4460E-01_JPRB,4.5403E-01_JPRB,4.7919E-01_JPRB,4.8518E-01_JPRB,&
+ & 4.6775E-01_JPRB,7.2520E-01_JPRB,1.7874E+00_JPRB/)  
+KAO( :, 3, 3,16) = (/&
+ & 6.8607E-01_JPRB,6.0066E-01_JPRB,5.1535E-01_JPRB,6.0192E-01_JPRB,6.5742E-01_JPRB,6.8742E-01_JPRB,&
+ & 6.6482E-01_JPRB,6.8607E-01_JPRB,2.4947E+00_JPRB/)  
+KAO( :, 4, 3,16) = (/&
+ & 6.4786E-01_JPRB,5.6724E-01_JPRB,6.3678E-01_JPRB,8.0813E-01_JPRB,8.8359E-01_JPRB,9.1109E-01_JPRB,&
+ & 8.7792E-01_JPRB,6.4786E-01_JPRB,3.3575E+00_JPRB/)  
+KAO( :, 5, 3,16) = (/&
+ & 6.1260E-01_JPRB,5.3649E-01_JPRB,8.2910E-01_JPRB,1.0492E+00_JPRB,1.1703E+00_JPRB,1.2063E+00_JPRB,&
+ & 1.1675E+00_JPRB,6.1260E-01_JPRB,4.3791E+00_JPRB/)  
+KAO( :, 1, 4,16) = (/&
+ & 8.2264E-01_JPRB,7.2018E-01_JPRB,6.1760E-01_JPRB,5.1504E-01_JPRB,4.1228E-01_JPRB,3.1403E-01_JPRB,&
+ & 3.0330E-01_JPRB,8.2264E-01_JPRB,1.1500E+00_JPRB/)  
+KAO( :, 2, 4,16) = (/&
+ & 7.7591E-01_JPRB,6.7905E-01_JPRB,5.8222E-01_JPRB,4.8587E-01_JPRB,4.6170E-01_JPRB,4.7497E-01_JPRB,&
+ & 4.5862E-01_JPRB,7.7591E-01_JPRB,1.7280E+00_JPRB/)  
+KAO( :, 3, 4,16) = (/&
+ & 7.3290E-01_JPRB,6.4193E-01_JPRB,5.5048E-01_JPRB,5.9279E-01_JPRB,6.6051E-01_JPRB,6.8079E-01_JPRB,&
+ & 6.5994E-01_JPRB,7.3290E-01_JPRB,2.4901E+00_JPRB/)  
+KAO( :, 4, 4,16) = (/&
+ & 6.9170E-01_JPRB,6.0563E-01_JPRB,6.4428E-01_JPRB,8.1421E-01_JPRB,9.0809E-01_JPRB,9.3805E-01_JPRB,&
+ & 8.9044E-01_JPRB,6.9170E-01_JPRB,3.4202E+00_JPRB/)  
+KAO( :, 5, 4,16) = (/&
+ & 6.5200E-01_JPRB,5.7086E-01_JPRB,8.5544E-01_JPRB,1.0841E+00_JPRB,1.2072E+00_JPRB,1.2191E+00_JPRB,&
+ & 1.2042E+00_JPRB,6.5200E-01_JPRB,4.5618E+00_JPRB/)  
+KAO( :, 1, 5,16) = (/&
+ & 8.8181E-01_JPRB,7.7179E-01_JPRB,6.6204E-01_JPRB,5.5199E-01_JPRB,4.3343E-01_JPRB,3.3186E-01_JPRB,&
+ & 2.7727E-01_JPRB,8.8181E-01_JPRB,1.0520E+00_JPRB/)  
+KAO( :, 2, 5,16) = (/&
+ & 8.2952E-01_JPRB,7.2638E-01_JPRB,6.2324E-01_JPRB,5.1947E-01_JPRB,4.3588E-01_JPRB,4.4832E-01_JPRB,&
+ & 4.3512E-01_JPRB,8.2952E-01_JPRB,1.6494E+00_JPRB/)  
+KAO( :, 3, 5,16) = (/&
+ & 7.8170E-01_JPRB,6.8471E-01_JPRB,5.8732E-01_JPRB,5.7928E-01_JPRB,6.4579E-01_JPRB,6.6360E-01_JPRB,&
+ & 6.4439E-01_JPRB,7.8170E-01_JPRB,2.4300E+00_JPRB/)  
+KAO( :, 4, 5,16) = (/&
+ & 7.3700E-01_JPRB,6.4559E-01_JPRB,6.4470E-01_JPRB,8.1536E-01_JPRB,9.1269E-01_JPRB,9.3873E-01_JPRB,&
+ & 9.0753E-01_JPRB,7.3700E-01_JPRB,3.4492E+00_JPRB/)  
+KAO( :, 5, 5,16) = (/&
+ & 6.9437E-01_JPRB,6.0807E-01_JPRB,8.7385E-01_JPRB,1.1073E+00_JPRB,1.2374E+00_JPRB,1.2510E+00_JPRB,&
+ & 1.2316E+00_JPRB,6.9437E-01_JPRB,4.6799E+00_JPRB/)  
+KAO( :, 1, 6,16) = (/&
+ & 9.4656E-01_JPRB,8.2884E-01_JPRB,7.1064E-01_JPRB,5.9233E-01_JPRB,4.7420E-01_JPRB,3.5608E-01_JPRB,&
+ & 2.4362E-01_JPRB,9.4656E-01_JPRB,9.2837E-01_JPRB/)  
+KAO( :, 2, 6,16) = (/&
+ & 8.9042E-01_JPRB,7.7970E-01_JPRB,6.6875E-01_JPRB,5.5799E-01_JPRB,4.4670E-01_JPRB,4.1251E-01_JPRB,&
+ & 4.0025E-01_JPRB,8.9042E-01_JPRB,1.5112E+00_JPRB/)  
+KAO( :, 3, 6,16) = (/&
+ & 8.3666E-01_JPRB,7.3284E-01_JPRB,6.2869E-01_JPRB,5.5096E-01_JPRB,6.1404E-01_JPRB,6.3375E-01_JPRB,&
+ & 6.1412E-01_JPRB,8.3666E-01_JPRB,2.3236E+00_JPRB/)  
+KAO( :, 4, 6,16) = (/&
+ & 7.8888E-01_JPRB,6.9101E-01_JPRB,6.2966E-01_JPRB,7.9961E-01_JPRB,8.9414E-01_JPRB,9.2254E-01_JPRB,&
+ & 8.7581E-01_JPRB,7.8888E-01_JPRB,3.3711E+00_JPRB/)  
+KAO( :, 5, 6,16) = (/&
+ & 7.4306E-01_JPRB,6.5113E-01_JPRB,8.7601E-01_JPRB,1.1131E+00_JPRB,1.2418E+00_JPRB,1.2838E+00_JPRB,&
+ & 1.2412E+00_JPRB,7.4306E-01_JPRB,4.6947E+00_JPRB/)  
+KAO( :, 1, 7,16) = (/&
+ & 1.0141E+00_JPRB,8.8774E-01_JPRB,7.6121E-01_JPRB,6.3477E-01_JPRB,5.0825E-01_JPRB,3.8150E-01_JPRB,&
+ & 2.5476E-01_JPRB,1.0141E+00_JPRB,7.9663E-01_JPRB/)  
+KAO( :, 2, 7,16) = (/&
+ & 9.5399E-01_JPRB,8.3513E-01_JPRB,7.1620E-01_JPRB,5.9743E-01_JPRB,4.7818E-01_JPRB,3.7373E-01_JPRB,&
+ & 3.6192E-01_JPRB,9.5399E-01_JPRB,1.3655E+00_JPRB/)  
+KAO( :, 3, 7,16) = (/&
+ & 8.9634E-01_JPRB,7.8499E-01_JPRB,6.7347E-01_JPRB,5.6171E-01_JPRB,5.7673E-01_JPRB,5.9473E-01_JPRB,&
+ & 5.7642E-01_JPRB,8.9634E-01_JPRB,2.1680E+00_JPRB/)  
+KAO( :, 4, 7,16) = (/&
+ & 8.4326E-01_JPRB,7.3869E-01_JPRB,6.3388E-01_JPRB,7.7423E-01_JPRB,8.6537E-01_JPRB,8.9227E-01_JPRB,&
+ & 8.6433E-01_JPRB,8.4326E-01_JPRB,3.2604E+00_JPRB/)  
+KAO( :, 5, 7,16) = (/&
+ & 7.9491E-01_JPRB,6.9647E-01_JPRB,8.6797E-01_JPRB,1.1053E+00_JPRB,1.2365E+00_JPRB,1.2774E+00_JPRB,&
+ & 1.2375E+00_JPRB,7.9491E-01_JPRB,4.6484E+00_JPRB/)  
+KAO( :, 1, 8,16) = (/&
+ & 1.0826E+00_JPRB,9.4750E-01_JPRB,8.1241E-01_JPRB,6.7724E-01_JPRB,5.4220E-01_JPRB,4.0687E-01_JPRB,&
+ & 2.7135E-01_JPRB,1.0826E+00_JPRB,6.7305E-01_JPRB/)  
+KAO( :, 2, 8,16) = (/&
+ & 1.0187E+00_JPRB,8.9193E-01_JPRB,7.6505E-01_JPRB,6.3785E-01_JPRB,5.1061E-01_JPRB,3.8339E-01_JPRB,&
+ & 3.2268E-01_JPRB,1.0187E+00_JPRB,1.2085E+00_JPRB/)  
+KAO( :, 3, 8,16) = (/&
+ & 9.5858E-01_JPRB,8.3946E-01_JPRB,7.2017E-01_JPRB,6.0051E-01_JPRB,5.3532E-01_JPRB,5.5217E-01_JPRB,&
+ & 5.3452E-01_JPRB,9.5858E-01_JPRB,2.0055E+00_JPRB/)  
+KAO( :, 4, 8,16) = (/&
+ & 9.0233E-01_JPRB,7.9038E-01_JPRB,6.7816E-01_JPRB,7.4178E-01_JPRB,8.2987E-01_JPRB,8.5828E-01_JPRB,&
+ & 8.2989E-01_JPRB,9.0233E-01_JPRB,3.1045E+00_JPRB/)  
+KAO( :, 5, 8,16) = (/&
+ & 8.5134E-01_JPRB,7.4583E-01_JPRB,8.5421E-01_JPRB,1.0895E+00_JPRB,1.2207E+00_JPRB,1.2603E+00_JPRB,&
+ & 1.2206E+00_JPRB,8.5134E-01_JPRB,4.5597E+00_JPRB/)  
+KAO( :, 1, 9,16) = (/&
+ & 1.1564E+00_JPRB,1.0121E+00_JPRB,8.6800E-01_JPRB,7.2367E-01_JPRB,5.7876E-01_JPRB,4.3457E-01_JPRB,&
+ & 2.8981E-01_JPRB,1.1564E+00_JPRB,5.5525E-01_JPRB/)  
+KAO( :, 2, 9,16) = (/&
+ & 1.0903E+00_JPRB,9.5491E-01_JPRB,8.1871E-01_JPRB,6.8281E-01_JPRB,5.4658E-01_JPRB,4.0983E-01_JPRB,&
+ & 2.8183E-01_JPRB,1.0903E+00_JPRB,1.0488E+00_JPRB/)  
+KAO( :, 3, 9,16) = (/&
+ & 1.0293E+00_JPRB,9.0147E-01_JPRB,7.7309E-01_JPRB,6.4495E-01_JPRB,5.1624E-01_JPRB,5.0522E-01_JPRB,&
+ & 4.8904E-01_JPRB,1.0293E+00_JPRB,1.8131E+00_JPRB/)  
+KAO( :, 4, 9,16) = (/&
+ & 9.7173E-01_JPRB,8.5120E-01_JPRB,7.3048E-01_JPRB,7.0120E-01_JPRB,7.8672E-01_JPRB,8.1370E-01_JPRB,&
+ & 7.8991E-01_JPRB,9.7173E-01_JPRB,2.9196E+00_JPRB/)  
+KAO( :, 5, 9,16) = (/&
+ & 9.1923E-01_JPRB,8.0514E-01_JPRB,8.3021E-01_JPRB,1.0615E+00_JPRB,1.1921E+00_JPRB,1.2331E+00_JPRB,&
+ & 1.1982E+00_JPRB,9.1923E-01_JPRB,4.4066E+00_JPRB/)  
+KAO( :, 1,10,16) = (/&
+ & 1.2374E+00_JPRB,1.0830E+00_JPRB,9.2878E-01_JPRB,7.7400E-01_JPRB,6.1971E-01_JPRB,4.6496E-01_JPRB,&
+ & 3.0999E-01_JPRB,1.2374E+00_JPRB,5.8062E-01_JPRB/)  
+KAO( :, 2,10,16) = (/&
+ & 1.1711E+00_JPRB,1.0252E+00_JPRB,8.7935E-01_JPRB,7.3302E-01_JPRB,5.8682E-01_JPRB,4.4044E-01_JPRB,&
+ & 2.9397E-01_JPRB,1.1711E+00_JPRB,9.3348E-01_JPRB/)  
+KAO( :, 3,10,16) = (/&
+ & 1.1097E+00_JPRB,9.7179E-01_JPRB,8.3349E-01_JPRB,6.9517E-01_JPRB,5.5660E-01_JPRB,4.7411E-01_JPRB,&
+ & 4.6026E-01_JPRB,1.1097E+00_JPRB,1.6848E+00_JPRB/)  
+KAO( :, 4,10,16) = (/&
+ & 1.0572E+00_JPRB,9.2545E-01_JPRB,7.9343E-01_JPRB,6.8000E-01_JPRB,7.6310E-01_JPRB,7.9077E-01_JPRB,&
+ & 7.6860E-01_JPRB,1.0572E+00_JPRB,2.7940E+00_JPRB/)  
+KAO( :, 5,10,16) = (/&
+ & 1.0175E+00_JPRB,8.9035E-01_JPRB,8.2349E-01_JPRB,1.0563E+00_JPRB,1.1865E+00_JPRB,1.2328E+00_JPRB,&
+ & 1.1994E+00_JPRB,1.0175E+00_JPRB,4.3373E+00_JPRB/)  
+KAO( :, 1,11,16) = (/&
+ & 1.3078E+00_JPRB,1.1446E+00_JPRB,9.8121E-01_JPRB,8.1822E-01_JPRB,6.5451E-01_JPRB,4.9148E-01_JPRB,&
+ & 3.2796E-01_JPRB,1.3078E+00_JPRB,8.7955E-01_JPRB/)  
+KAO( :, 2,11,16) = (/&
+ & 1.2495E+00_JPRB,1.0937E+00_JPRB,9.3769E-01_JPRB,7.8176E-01_JPRB,6.2549E-01_JPRB,4.6880E-01_JPRB,&
+ & 3.1026E-01_JPRB,1.2495E+00_JPRB,1.1103E+00_JPRB/)  
+KAO( :, 3,11,16) = (/&
+ & 1.2067E+00_JPRB,1.0559E+00_JPRB,9.0509E-01_JPRB,7.5401E-01_JPRB,6.0340E-01_JPRB,5.7377E-01_JPRB,&
+ & 5.5854E-01_JPRB,1.2067E+00_JPRB,1.9965E+00_JPRB/)  
+KAO( :, 4,11,16) = (/&
+ & 1.1748E+00_JPRB,1.0281E+00_JPRB,8.8102E-01_JPRB,8.1540E-01_JPRB,9.2020E-01_JPRB,9.5681E-01_JPRB,&
+ & 9.3190E-01_JPRB,1.1748E+00_JPRB,3.3092E+00_JPRB/)  
+KAO( :, 5,11,16) = (/&
+ & 1.1528E+00_JPRB,1.0088E+00_JPRB,9.8178E-01_JPRB,1.2680E+00_JPRB,1.4334E+00_JPRB,1.4913E+00_JPRB,&
+ & 1.4507E+00_JPRB,1.1528E+00_JPRB,5.1215E+00_JPRB/)  
+KAO( :, 1,12,16) = (/&
+ & 1.4264E+00_JPRB,1.2483E+00_JPRB,1.0700E+00_JPRB,8.9156E-01_JPRB,7.1342E-01_JPRB,5.3490E-01_JPRB,&
+ & 3.5601E-01_JPRB,1.4264E+00_JPRB,1.5795E+00_JPRB/)  
+KAO( :, 2,12,16) = (/&
+ & 1.3956E+00_JPRB,1.2210E+00_JPRB,1.0467E+00_JPRB,8.7214E-01_JPRB,6.9777E-01_JPRB,5.2320E-01_JPRB,&
+ & 3.7423E-01_JPRB,1.3956E+00_JPRB,1.5601E+00_JPRB/)  
+KAO( :, 3,12,16) = (/&
+ & 1.3711E+00_JPRB,1.1997E+00_JPRB,1.0285E+00_JPRB,8.5684E-01_JPRB,6.8534E-01_JPRB,6.9284E-01_JPRB,&
+ & 6.7781E-01_JPRB,1.3711E+00_JPRB,2.3512E+00_JPRB/)  
+KAO( :, 4,12,16) = (/&
+ & 1.3565E+00_JPRB,1.1870E+00_JPRB,1.0173E+00_JPRB,9.7613E-01_JPRB,1.1079E+00_JPRB,1.1568E+00_JPRB,&
+ & 1.1307E+00_JPRB,1.3565E+00_JPRB,3.8814E+00_JPRB/)  
+KAO( :, 5,12,16) = (/&
+ & 1.3408E+00_JPRB,1.1733E+00_JPRB,1.1680E+00_JPRB,1.5162E+00_JPRB,1.7205E+00_JPRB,1.8012E+00_JPRB,&
+ & 1.7627E+00_JPRB,1.3408E+00_JPRB,5.9949E+00_JPRB/)  
+KAO( :, 1,13,16) = (/&
+ & 1.6257E+00_JPRB,1.4225E+00_JPRB,1.2194E+00_JPRB,1.0160E+00_JPRB,8.1283E-01_JPRB,6.0965E-01_JPRB,&
+ & 4.0604E-01_JPRB,1.6257E+00_JPRB,2.2989E+00_JPRB/)  
+KAO( :, 2,13,16) = (/&
+ & 1.6092E+00_JPRB,1.4081E+00_JPRB,1.2069E+00_JPRB,1.0056E+00_JPRB,8.0424E-01_JPRB,6.0284E-01_JPRB,&
+ & 4.5252E-01_JPRB,1.6092E+00_JPRB,2.2727E+00_JPRB/)  
+KAO( :, 3,13,16) = (/&
+ & 1.6030E+00_JPRB,1.4026E+00_JPRB,1.2019E+00_JPRB,1.0013E+00_JPRB,8.1602E-01_JPRB,8.3675E-01_JPRB,&
+ & 8.2085E-01_JPRB,1.6030E+00_JPRB,2.7443E+00_JPRB/)  
+KAO( :, 4,13,16) = (/&
+ & 1.5933E+00_JPRB,1.3941E+00_JPRB,1.1949E+00_JPRB,1.1601E+00_JPRB,1.3266E+00_JPRB,1.3927E+00_JPRB,&
+ & 1.3677E+00_JPRB,1.5933E+00_JPRB,4.4922E+00_JPRB/)  
+KAO( :, 5,13,16) = (/&
+ & 1.5870E+00_JPRB,1.3885E+00_JPRB,1.3769E+00_JPRB,1.7994E+00_JPRB,2.0601E+00_JPRB,2.1667E+00_JPRB,&
+ & 2.1254E+00_JPRB,1.5870E+00_JPRB,6.9188E+00_JPRB/)  
+
+!     The array KBO contains absorption coefs for each of the 16 g-intervals
+!     for a range of pressure levels  < ~100mb, temperatures, and ratios
+!     of O3 to CO2.  The first index in the array, JS, runs from 1 to 6, 
+!     and corresponds to different O3 to CO2 ratios, as expressed through 
+!     the binary species parameter eta, defined as eta = O3/(O3+RAT*H2O), 
+!     where RAT is the ratio of the integrated line strength in the band 
+!     of CO2 to that of O3.  For instance, JS=1 refers to no O3 (eta = 0) 
+!     and JS = 5 corresponds to eta = 1.0.  The second index, JT, which
+!     runs from 1 to 5, corresponds to different temperatures.  More 
+!     specifically, JT = 3 means that the data are for the corresponding 
+!     reference temperature TREF for this  pressure level, JT = 2 refers 
+!     to the TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and
+!     JT = 5 is for TREF+30.  The third index, JP, runs from 13 to 59 and
+!     refers to the corresponding pressure level in PREF (e.g. JP = 13 is
+!     for a pressure of 95.5835 mb).  The fourth index, IG, goes from 1 to
+!     16, and tells us which g-interval the absorption coefficients are for.
+
+KBO( :, 1,13, 1) = (/&
+ & 1.0590E-03_JPRB,1.1708E-03_JPRB,6.1804E-03_JPRB,8.3851E-03_JPRB,9.8401E-03_JPRB,1.0650E-02_JPRB/)  
+KBO( :, 2,13, 1) = (/&
+ & 1.2737E-03_JPRB,1.3921E-03_JPRB,6.7837E-03_JPRB,9.1802E-03_JPRB,1.0724E-02_JPRB,1.1694E-02_JPRB/)  
+KBO( :, 3,13, 1) = (/&
+ & 1.4928E-03_JPRB,1.6167E-03_JPRB,7.3037E-03_JPRB,9.8097E-03_JPRB,1.1413E-02_JPRB,1.2559E-02_JPRB/)  
+KBO( :, 4,13, 1) = (/&
+ & 1.7101E-03_JPRB,1.8380E-03_JPRB,7.7361E-03_JPRB,1.0305E-02_JPRB,1.1932E-02_JPRB,1.3252E-02_JPRB/)  
+KBO( :, 5,13, 1) = (/&
+ & 1.9268E-03_JPRB,2.0574E-03_JPRB,8.1040E-03_JPRB,1.0709E-02_JPRB,1.2321E-02_JPRB,1.3787E-02_JPRB/)  
+KBO( :, 1,14, 1) = (/&
+ & 8.9853E-04_JPRB,1.0053E-03_JPRB,5.2612E-03_JPRB,7.1257E-03_JPRB,8.3170E-03_JPRB,8.6277E-03_JPRB/)  
+KBO( :, 2,14, 1) = (/&
+ & 1.0785E-03_JPRB,1.1914E-03_JPRB,5.7513E-03_JPRB,7.7564E-03_JPRB,9.0118E-03_JPRB,9.3819E-03_JPRB/)  
+KBO( :, 3,14, 1) = (/&
+ & 1.2591E-03_JPRB,1.3782E-03_JPRB,6.1715E-03_JPRB,8.2478E-03_JPRB,9.5484E-03_JPRB,9.9996E-03_JPRB/)  
+KBO( :, 4,14, 1) = (/&
+ & 1.4397E-03_JPRB,1.5627E-03_JPRB,6.5193E-03_JPRB,8.6487E-03_JPRB,9.9620E-03_JPRB,1.0485E-02_JPRB/)  
+KBO( :, 5,14, 1) = (/&
+ & 1.6201E-03_JPRB,1.7459E-03_JPRB,6.8165E-03_JPRB,8.9827E-03_JPRB,1.0273E-02_JPRB,1.0855E-02_JPRB/)  
+KBO( :, 1,15, 1) = (/&
+ & 7.6248E-04_JPRB,8.6279E-04_JPRB,4.4557E-03_JPRB,6.0207E-03_JPRB,6.9896E-03_JPRB,7.0236E-03_JPRB/)  
+KBO( :, 2,15, 1) = (/&
+ & 9.1117E-04_JPRB,1.0180E-03_JPRB,4.8561E-03_JPRB,6.5127E-03_JPRB,7.5369E-03_JPRB,7.5846E-03_JPRB/)  
+KBO( :, 3,15, 1) = (/&
+ & 1.0596E-03_JPRB,1.1723E-03_JPRB,5.1898E-03_JPRB,6.9089E-03_JPRB,7.9643E-03_JPRB,8.0325E-03_JPRB/)  
+KBO( :, 4,15, 1) = (/&
+ & 1.2094E-03_JPRB,1.3263E-03_JPRB,5.4734E-03_JPRB,7.2380E-03_JPRB,8.2957E-03_JPRB,8.3723E-03_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART11',1,ZHOOK_HANDLE)
+END SUBROUTINE PART11
+
+
+SUBROUTINE PART12
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART12',0,ZHOOK_HANDLE)
+
+
+KBO( :, 5,15, 1) = (/&
+ & 1.3603E-03_JPRB,1.4802E-03_JPRB,5.7085E-03_JPRB,7.5104E-03_JPRB,8.5497E-03_JPRB,8.6178E-03_JPRB/)  
+KBO( :, 1,16, 1) = (/&
+ & 6.4558E-04_JPRB,7.3804E-04_JPRB,3.7596E-03_JPRB,5.0589E-03_JPRB,5.8485E-03_JPRB,5.7705E-03_JPRB/)  
+KBO( :, 2,16, 1) = (/&
+ & 7.6748E-04_JPRB,8.6612E-04_JPRB,4.0796E-03_JPRB,5.4496E-03_JPRB,6.2858E-03_JPRB,6.2010E-03_JPRB/)  
+KBO( :, 3,16, 1) = (/&
+ & 8.9029E-04_JPRB,9.9466E-04_JPRB,4.3523E-03_JPRB,5.7735E-03_JPRB,6.6286E-03_JPRB,6.5375E-03_JPRB/)  
+KBO( :, 4,16, 1) = (/&
+ & 1.0154E-03_JPRB,1.1242E-03_JPRB,4.5767E-03_JPRB,6.0430E-03_JPRB,6.8981E-03_JPRB,6.7855E-03_JPRB/)  
+KBO( :, 5,16, 1) = (/&
+ & 1.1412E-03_JPRB,1.2532E-03_JPRB,4.7673E-03_JPRB,6.2610E-03_JPRB,7.1083E-03_JPRB,6.9585E-03_JPRB/)  
+KBO( :, 1,17, 1) = (/&
+ & 5.4461E-04_JPRB,6.2792E-04_JPRB,3.1575E-03_JPRB,4.2329E-03_JPRB,4.8773E-03_JPRB,4.7433E-03_JPRB/)  
+KBO( :, 2,17, 1) = (/&
+ & 6.4498E-04_JPRB,7.3395E-04_JPRB,3.4178E-03_JPRB,4.5500E-03_JPRB,5.2291E-03_JPRB,5.0778E-03_JPRB/)  
+KBO( :, 3,17, 1) = (/&
+ & 7.4677E-04_JPRB,8.4137E-04_JPRB,3.6368E-03_JPRB,4.8153E-03_JPRB,5.5080E-03_JPRB,5.3328E-03_JPRB/)  
+KBO( :, 4,17, 1) = (/&
+ & 8.5117E-04_JPRB,9.5016E-04_JPRB,3.8176E-03_JPRB,5.0337E-03_JPRB,5.7279E-03_JPRB,5.5173E-03_JPRB/)  
+KBO( :, 5,17, 1) = (/&
+ & 9.5670E-04_JPRB,1.0591E-03_JPRB,3.9736E-03_JPRB,5.2057E-03_JPRB,5.9001E-03_JPRB,5.6411E-03_JPRB/)  
+KBO( :, 1,18, 1) = (/&
+ & 4.5831E-04_JPRB,5.3207E-04_JPRB,2.6453E-03_JPRB,3.5350E-03_JPRB,4.0595E-03_JPRB,3.9025E-03_JPRB/)  
+KBO( :, 2,18, 1) = (/&
+ & 5.4148E-04_JPRB,6.2048E-04_JPRB,2.8564E-03_JPRB,3.7920E-03_JPRB,4.3430E-03_JPRB,4.1638E-03_JPRB/)  
+KBO( :, 3,18, 1) = (/&
+ & 6.2620E-04_JPRB,7.1046E-04_JPRB,3.0316E-03_JPRB,4.0093E-03_JPRB,4.5705E-03_JPRB,4.3594E-03_JPRB/)  
+KBO( :, 4,18, 1) = (/&
+ & 7.1296E-04_JPRB,8.0140E-04_JPRB,3.1785E-03_JPRB,4.1822E-03_JPRB,4.7500E-03_JPRB,4.4993E-03_JPRB/)  
+KBO( :, 5,18, 1) = (/&
+ & 8.0117E-04_JPRB,8.9283E-04_JPRB,3.3073E-03_JPRB,4.3215E-03_JPRB,4.8888E-03_JPRB,4.5891E-03_JPRB/)  
+KBO( :, 1,19, 1) = (/&
+ & 3.8494E-04_JPRB,4.4957E-04_JPRB,2.2130E-03_JPRB,2.9470E-03_JPRB,3.3734E-03_JPRB,3.2052E-03_JPRB/)  
+KBO( :, 2,19, 1) = (/&
+ & 4.5392E-04_JPRB,5.2326E-04_JPRB,2.3822E-03_JPRB,3.1567E-03_JPRB,3.6037E-03_JPRB,3.4087E-03_JPRB/)  
+KBO( :, 3,19, 1) = (/&
+ & 5.2442E-04_JPRB,5.9860E-04_JPRB,2.5231E-03_JPRB,3.3307E-03_JPRB,3.7894E-03_JPRB,3.5584E-03_JPRB/)  
+KBO( :, 4,19, 1) = (/&
+ & 5.9668E-04_JPRB,6.7462E-04_JPRB,2.6423E-03_JPRB,3.4702E-03_JPRB,3.9343E-03_JPRB,3.6638E-03_JPRB/)  
+KBO( :, 5,19, 1) = (/&
+ & 6.7047E-04_JPRB,7.5133E-04_JPRB,2.7479E-03_JPRB,3.5833E-03_JPRB,4.0439E-03_JPRB,3.7286E-03_JPRB/)  
+KBO( :, 1,20, 1) = (/&
+ & 3.2391E-04_JPRB,3.8002E-04_JPRB,1.8505E-03_JPRB,2.4575E-03_JPRB,2.8045E-03_JPRB,2.6400E-03_JPRB/)  
+KBO( :, 2,20, 1) = (/&
+ & 3.8111E-04_JPRB,4.4150E-04_JPRB,1.9855E-03_JPRB,2.6268E-03_JPRB,2.9913E-03_JPRB,2.7980E-03_JPRB/)  
+KBO( :, 3,20, 1) = (/&
+ & 4.3985E-04_JPRB,5.0438E-04_JPRB,2.0980E-03_JPRB,2.7657E-03_JPRB,3.1412E-03_JPRB,2.9140E-03_JPRB/)  
+KBO( :, 4,20, 1) = (/&
+ & 5.0012E-04_JPRB,5.6796E-04_JPRB,2.1952E-03_JPRB,2.8783E-03_JPRB,3.2557E-03_JPRB,2.9937E-03_JPRB/)  
+KBO( :, 5,20, 1) = (/&
+ & 5.6151E-04_JPRB,6.3169E-04_JPRB,2.2834E-03_JPRB,2.9700E-03_JPRB,3.3427E-03_JPRB,3.0410E-03_JPRB/)  
+KBO( :, 1,21, 1) = (/&
+ & 2.7240E-04_JPRB,3.2071E-04_JPRB,1.5442E-03_JPRB,2.0481E-03_JPRB,2.3310E-03_JPRB,2.1748E-03_JPRB/)  
+KBO( :, 2,21, 1) = (/&
+ & 3.1992E-04_JPRB,3.7200E-04_JPRB,1.6519E-03_JPRB,2.1831E-03_JPRB,2.4822E-03_JPRB,2.2984E-03_JPRB/)  
+KBO( :, 3,21, 1) = (/&
+ & 3.6883E-04_JPRB,4.2432E-04_JPRB,1.7430E-03_JPRB,2.2945E-03_JPRB,2.6004E-03_JPRB,2.3880E-03_JPRB/)  
+KBO( :, 4,21, 1) = (/&
+ & 4.1890E-04_JPRB,4.7736E-04_JPRB,1.8230E-03_JPRB,2.3849E-03_JPRB,2.6916E-03_JPRB,2.4483E-03_JPRB/)  
+KBO( :, 5,21, 1) = (/&
+ & 4.7018E-04_JPRB,5.3020E-04_JPRB,1.8963E-03_JPRB,2.4601E-03_JPRB,2.7620E-03_JPRB,2.4834E-03_JPRB/)  
+KBO( :, 1,22, 1) = (/&
+ & 2.3153E-04_JPRB,2.7303E-04_JPRB,1.2915E-03_JPRB,1.7120E-03_JPRB,1.9456E-03_JPRB,1.7989E-03_JPRB/)  
+KBO( :, 2,22, 1) = (/&
+ & 2.7103E-04_JPRB,3.1578E-04_JPRB,1.3773E-03_JPRB,1.8187E-03_JPRB,2.0643E-03_JPRB,1.8940E-03_JPRB/)  
+KBO( :, 3,22, 1) = (/&
+ & 3.1187E-04_JPRB,3.5947E-04_JPRB,1.4512E-03_JPRB,1.9068E-03_JPRB,2.1566E-03_JPRB,1.9615E-03_JPRB/)  
+KBO( :, 4,22, 1) = (/&
+ & 3.5350E-04_JPRB,4.0345E-04_JPRB,1.5172E-03_JPRB,1.9794E-03_JPRB,2.2288E-03_JPRB,2.0059E-03_JPRB/)  
+KBO( :, 5,22, 1) = (/&
+ & 3.9619E-04_JPRB,4.4713E-04_JPRB,1.5771E-03_JPRB,2.0415E-03_JPRB,2.2843E-03_JPRB,2.0310E-03_JPRB/)  
+KBO( :, 1,23, 1) = (/&
+ & 1.9680E-04_JPRB,2.3224E-04_JPRB,1.0785E-03_JPRB,1.4288E-03_JPRB,1.6223E-03_JPRB,1.4871E-03_JPRB/)  
+KBO( :, 2,23, 1) = (/&
+ & 2.2970E-04_JPRB,2.6791E-04_JPRB,1.1474E-03_JPRB,1.5138E-03_JPRB,1.7153E-03_JPRB,1.5600E-03_JPRB/)  
+KBO( :, 3,23, 1) = (/&
+ & 2.6356E-04_JPRB,3.0411E-04_JPRB,1.2075E-03_JPRB,1.5839E-03_JPRB,1.7875E-03_JPRB,1.6111E-03_JPRB/)  
+KBO( :, 4,23, 1) = (/&
+ & 2.9823E-04_JPRB,3.4049E-04_JPRB,1.2615E-03_JPRB,1.6428E-03_JPRB,1.8444E-03_JPRB,1.6436E-03_JPRB/)  
+KBO( :, 5,23, 1) = (/&
+ & 3.3366E-04_JPRB,3.7655E-04_JPRB,1.3106E-03_JPRB,1.6936E-03_JPRB,1.8885E-03_JPRB,1.6606E-03_JPRB/)  
+KBO( :, 1,24, 1) = (/&
+ & 1.6732E-04_JPRB,1.9749E-04_JPRB,9.0024E-04_JPRB,1.1912E-03_JPRB,1.3515E-03_JPRB,1.2284E-03_JPRB/)  
+KBO( :, 2,24, 1) = (/&
+ & 1.9470E-04_JPRB,2.2712E-04_JPRB,9.5558E-04_JPRB,1.2587E-03_JPRB,1.4239E-03_JPRB,1.2838E-03_JPRB/)  
+KBO( :, 3,24, 1) = (/&
+ & 2.2281E-04_JPRB,2.5707E-04_JPRB,1.0048E-03_JPRB,1.3153E-03_JPRB,1.4808E-03_JPRB,1.3221E-03_JPRB/)  
+KBO( :, 4,24, 1) = (/&
+ & 2.5169E-04_JPRB,2.8708E-04_JPRB,1.0484E-03_JPRB,1.3630E-03_JPRB,1.5260E-03_JPRB,1.3453E-03_JPRB/)  
+KBO( :, 5,24, 1) = (/&
+ & 2.8094E-04_JPRB,3.1674E-04_JPRB,1.0886E-03_JPRB,1.4046E-03_JPRB,1.5614E-03_JPRB,1.3561E-03_JPRB/)  
+KBO( :, 1,25, 1) = (/&
+ & 1.4236E-04_JPRB,1.6794E-04_JPRB,7.5125E-04_JPRB,9.9289E-04_JPRB,1.1254E-03_JPRB,1.0148E-03_JPRB/)  
+KBO( :, 2,25, 1) = (/&
+ & 1.6512E-04_JPRB,1.9246E-04_JPRB,7.9598E-04_JPRB,1.0465E-03_JPRB,1.1819E-03_JPRB,1.0567E-03_JPRB/)  
+KBO( :, 3,25, 1) = (/&
+ & 1.8845E-04_JPRB,2.1722E-04_JPRB,8.3598E-04_JPRB,1.0925E-03_JPRB,1.2269E-03_JPRB,1.0851E-03_JPRB/)  
+KBO( :, 4,25, 1) = (/&
+ & 2.1255E-04_JPRB,2.4198E-04_JPRB,8.7137E-04_JPRB,1.1312E-03_JPRB,1.2632E-03_JPRB,1.1012E-03_JPRB/)  
+KBO( :, 5,25, 1) = (/&
+ & 2.3642E-04_JPRB,2.6609E-04_JPRB,9.0373E-04_JPRB,1.1641E-03_JPRB,1.2904E-03_JPRB,1.1075E-03_JPRB/)  
+KBO( :, 1,26, 1) = (/&
+ & 1.2135E-04_JPRB,1.4296E-04_JPRB,6.2705E-04_JPRB,8.2752E-04_JPRB,9.3670E-04_JPRB,8.3888E-04_JPRB/)  
+KBO( :, 2,26, 1) = (/&
+ & 1.4025E-04_JPRB,1.6320E-04_JPRB,6.6335E-04_JPRB,8.7086E-04_JPRB,9.8124E-04_JPRB,8.7024E-04_JPRB/)  
+KBO( :, 3,26, 1) = (/&
+ & 1.5968E-04_JPRB,1.8367E-04_JPRB,6.9554E-04_JPRB,9.0762E-04_JPRB,1.0171E-03_JPRB,8.9085E-04_JPRB/)  
+KBO( :, 4,26, 1) = (/&
+ & 1.7968E-04_JPRB,2.0411E-04_JPRB,7.2423E-04_JPRB,9.3899E-04_JPRB,1.0460E-03_JPRB,9.0171E-04_JPRB/)  
+KBO( :, 5,26, 1) = (/&
+ & 1.9911E-04_JPRB,2.2355E-04_JPRB,7.5041E-04_JPRB,9.6460E-04_JPRB,1.0668E-03_JPRB,9.0488E-04_JPRB/)  
+KBO( :, 1,27, 1) = (/&
+ & 1.0341E-04_JPRB,1.2153E-04_JPRB,5.2310E-04_JPRB,6.8960E-04_JPRB,7.7919E-04_JPRB,6.9370E-04_JPRB/)  
+KBO( :, 2,27, 1) = (/&
+ & 1.1910E-04_JPRB,1.3828E-04_JPRB,5.5242E-04_JPRB,7.2420E-04_JPRB,8.1412E-04_JPRB,7.1711E-04_JPRB/)  
+KBO( :, 3,27, 1) = (/&
+ & 1.3529E-04_JPRB,1.5520E-04_JPRB,5.7820E-04_JPRB,7.5373E-04_JPRB,8.4285E-04_JPRB,7.3175E-04_JPRB/)  
+KBO( :, 4,27, 1) = (/&
+ & 1.5173E-04_JPRB,1.7193E-04_JPRB,6.0154E-04_JPRB,7.7867E-04_JPRB,8.6563E-04_JPRB,7.3890E-04_JPRB/)  
+KBO( :, 5,27, 1) = (/&
+ & 1.6753E-04_JPRB,1.8765E-04_JPRB,6.2289E-04_JPRB,7.9883E-04_JPRB,8.8130E-04_JPRB,7.3997E-04_JPRB/)  
+KBO( :, 1,28, 1) = (/&
+ & 8.8061E-05_JPRB,1.0321E-04_JPRB,4.3625E-04_JPRB,5.7437E-04_JPRB,6.4777E-04_JPRB,5.7348E-04_JPRB/)  
+KBO( :, 2,28, 1) = (/&
+ & 1.0110E-04_JPRB,1.1708E-04_JPRB,4.5983E-04_JPRB,6.0227E-04_JPRB,6.7553E-04_JPRB,5.9094E-04_JPRB/)  
+KBO( :, 3,28, 1) = (/&
+ & 1.1455E-04_JPRB,1.3102E-04_JPRB,4.8047E-04_JPRB,6.2567E-04_JPRB,6.9826E-04_JPRB,6.0125E-04_JPRB/)  
+KBO( :, 4,28, 1) = (/&
+ & 1.2801E-04_JPRB,1.4469E-04_JPRB,4.9957E-04_JPRB,6.4544E-04_JPRB,7.1609E-04_JPRB,6.0583E-04_JPRB/)  
+KBO( :, 5,28, 1) = (/&
+ & 1.4086E-04_JPRB,1.5736E-04_JPRB,5.1693E-04_JPRB,6.6170E-04_JPRB,7.2796E-04_JPRB,6.0570E-04_JPRB/)  
+KBO( :, 1,29, 1) = (/&
+ & 7.5003E-05_JPRB,8.7664E-05_JPRB,3.6374E-04_JPRB,4.7834E-04_JPRB,5.3844E-04_JPRB,4.7486E-04_JPRB/)  
+KBO( :, 2,29, 1) = (/&
+ & 8.5847E-05_JPRB,9.9153E-05_JPRB,3.8260E-04_JPRB,5.0066E-04_JPRB,5.6048E-04_JPRB,4.8785E-04_JPRB/)  
+KBO( :, 3,29, 1) = (/&
+ & 9.7004E-05_JPRB,1.1064E-04_JPRB,3.9929E-04_JPRB,5.1926E-04_JPRB,5.7857E-04_JPRB,4.9509E-04_JPRB/)  
+KBO( :, 4,29, 1) = (/&
+ & 1.0798E-04_JPRB,1.2169E-04_JPRB,4.1471E-04_JPRB,5.3469E-04_JPRB,5.9200E-04_JPRB,4.9798E-04_JPRB/)  
+KBO( :, 5,29, 1) = (/&
+ & 1.1839E-04_JPRB,1.3193E-04_JPRB,4.2885E-04_JPRB,5.4790E-04_JPRB,6.0121E-04_JPRB,4.9719E-04_JPRB/)  
+KBO( :, 1,30, 1) = (/&
+ & 6.3856E-05_JPRB,7.4428E-05_JPRB,3.0309E-04_JPRB,3.9831E-04_JPRB,4.4748E-04_JPRB,3.9336E-04_JPRB/)  
+KBO( :, 2,30, 1) = (/&
+ & 7.2870E-05_JPRB,8.3906E-05_JPRB,3.1816E-04_JPRB,4.1597E-04_JPRB,4.6500E-04_JPRB,4.0292E-04_JPRB/)  
+KBO( :, 3,30, 1) = (/&
+ & 8.2079E-05_JPRB,9.3343E-05_JPRB,3.3169E-04_JPRB,4.3066E-04_JPRB,4.7913E-04_JPRB,4.0807E-04_JPRB/)  
+KBO( :, 4,30, 1) = (/&
+ & 9.1015E-05_JPRB,1.0225E-04_JPRB,3.4430E-04_JPRB,4.4314E-04_JPRB,4.8947E-04_JPRB,4.0977E-04_JPRB/)  
+KBO( :, 5,30, 1) = (/&
+ & 9.9395E-05_JPRB,1.1051E-04_JPRB,3.5570E-04_JPRB,4.5357E-04_JPRB,4.9658E-04_JPRB,4.0872E-04_JPRB/)  
+KBO( :, 1,31, 1) = (/&
+ & 5.4357E-05_JPRB,6.3176E-05_JPRB,2.5245E-04_JPRB,3.3157E-04_JPRB,3.7178E-04_JPRB,3.2647E-04_JPRB/)  
+KBO( :, 2,31, 1) = (/&
+ & 6.1861E-05_JPRB,7.0996E-05_JPRB,2.6445E-04_JPRB,3.4538E-04_JPRB,3.8570E-04_JPRB,3.3355E-04_JPRB/)  
+KBO( :, 3,31, 1) = (/&
+ & 6.9416E-05_JPRB,7.8709E-05_JPRB,2.7554E-04_JPRB,3.5712E-04_JPRB,3.9671E-04_JPRB,3.3723E-04_JPRB/)  
+KBO( :, 4,31, 1) = (/&
+ & 7.6656E-05_JPRB,8.5880E-05_JPRB,2.8577E-04_JPRB,3.6709E-04_JPRB,4.0449E-04_JPRB,3.3826E-04_JPRB/)  
+KBO( :, 5,31, 1) = (/&
+ & 8.3388E-05_JPRB,9.2525E-05_JPRB,2.9501E-04_JPRB,3.7530E-04_JPRB,4.1001E-04_JPRB,3.3724E-04_JPRB/)  
+KBO( :, 1,32, 1) = (/&
+ & 4.6259E-05_JPRB,5.3603E-05_JPRB,2.1016E-04_JPRB,2.7584E-04_JPRB,3.0892E-04_JPRB,2.7109E-04_JPRB/)  
+KBO( :, 2,32, 1) = (/&
+ & 5.2498E-05_JPRB,6.0059E-05_JPRB,2.1987E-04_JPRB,2.8676E-04_JPRB,3.1987E-04_JPRB,2.7630E-04_JPRB/)  
+KBO( :, 3,32, 1) = (/&
+ & 5.8656E-05_JPRB,6.6298E-05_JPRB,2.2891E-04_JPRB,2.9611E-04_JPRB,3.2832E-04_JPRB,2.7895E-04_JPRB/)  
+KBO( :, 4,32, 1) = (/&
+ & 6.4498E-05_JPRB,7.2071E-05_JPRB,2.3718E-04_JPRB,3.0404E-04_JPRB,3.3430E-04_JPRB,2.7957E-04_JPRB/)  
+KBO( :, 5,32, 1) = (/&
+ & 6.9916E-05_JPRB,7.7424E-05_JPRB,2.4471E-04_JPRB,3.1058E-04_JPRB,3.3850E-04_JPRB,2.7859E-04_JPRB/)  
+KBO( :, 1,33, 1) = (/&
+ & 3.9361E-05_JPRB,4.5460E-05_JPRB,1.7493E-04_JPRB,2.2932E-04_JPRB,2.5656E-04_JPRB,2.2525E-04_JPRB/)  
+KBO( :, 2,33, 1) = (/&
+ & 4.4512E-05_JPRB,5.0768E-05_JPRB,1.8281E-04_JPRB,2.3800E-04_JPRB,2.6516E-04_JPRB,2.2918E-04_JPRB/)  
+KBO( :, 3,33, 1) = (/&
+ & 4.9514E-05_JPRB,5.5781E-05_JPRB,1.9016E-04_JPRB,2.4549E-04_JPRB,2.7165E-04_JPRB,2.3114E-04_JPRB/)  
+KBO( :, 4,33, 1) = (/&
+ & 5.4222E-05_JPRB,6.0427E-05_JPRB,1.9683E-04_JPRB,2.5168E-04_JPRB,2.7625E-04_JPRB,2.3152E-04_JPRB/)  
+KBO( :, 5,33, 1) = (/&
+ & 5.8568E-05_JPRB,6.4731E-05_JPRB,2.0299E-04_JPRB,2.5697E-04_JPRB,2.7939E-04_JPRB,2.3058E-04_JPRB/)  
+KBO( :, 1,34, 1) = (/&
+ & 3.3323E-05_JPRB,3.8371E-05_JPRB,1.4532E-04_JPRB,1.9026E-04_JPRB,2.1273E-04_JPRB,1.8680E-04_JPRB/)  
+KBO( :, 2,34, 1) = (/&
+ & 3.7542E-05_JPRB,4.2703E-05_JPRB,1.5176E-04_JPRB,1.9725E-04_JPRB,2.1949E-04_JPRB,1.8982E-04_JPRB/)  
+KBO( :, 3,34, 1) = (/&
+ & 4.1603E-05_JPRB,4.6750E-05_JPRB,1.5775E-04_JPRB,2.0322E-04_JPRB,2.2449E-04_JPRB,1.9126E-04_JPRB/)  
+KBO( :, 4,34, 1) = (/&
+ & 4.5410E-05_JPRB,5.0505E-05_JPRB,1.6321E-04_JPRB,2.0822E-04_JPRB,2.2810E-04_JPRB,1.9147E-04_JPRB/)  
+KBO( :, 5,34, 1) = (/&
+ & 4.8872E-05_JPRB,5.3940E-05_JPRB,1.6826E-04_JPRB,2.1254E-04_JPRB,2.3048E-04_JPRB,1.9060E-04_JPRB/)  
+KBO( :, 1,35, 1) = (/&
+ & 2.7848E-05_JPRB,3.2017E-05_JPRB,1.2019E-04_JPRB,1.5723E-04_JPRB,1.7574E-04_JPRB,1.5467E-04_JPRB/)  
+KBO( :, 2,35, 1) = (/&
+ & 3.1305E-05_JPRB,3.5553E-05_JPRB,1.2549E-04_JPRB,1.6294E-04_JPRB,1.8117E-04_JPRB,1.5712E-04_JPRB/)  
+KBO( :, 3,35, 1) = (/&
+ & 3.4621E-05_JPRB,3.8848E-05_JPRB,1.3039E-04_JPRB,1.6780E-04_JPRB,1.8517E-04_JPRB,1.5830E-04_JPRB/)  
+KBO( :, 4,35, 1) = (/&
+ & 3.7704E-05_JPRB,4.1891E-05_JPRB,1.3491E-04_JPRB,1.7188E-04_JPRB,1.8805E-04_JPRB,1.5843E-04_JPRB/)  
+KBO( :, 5,35, 1) = (/&
+ & 4.0476E-05_JPRB,4.4649E-05_JPRB,1.3909E-04_JPRB,1.7549E-04_JPRB,1.8997E-04_JPRB,1.5779E-04_JPRB/)  
+KBO( :, 1,36, 1) = (/&
+ & 2.2956E-05_JPRB,2.6385E-05_JPRB,9.8921E-05_JPRB,1.2940E-04_JPRB,1.4463E-04_JPRB,1.2779E-04_JPRB/)  
+KBO( :, 2,36, 1) = (/&
+ & 2.5793E-05_JPRB,2.9285E-05_JPRB,1.0333E-04_JPRB,1.3415E-04_JPRB,1.4912E-04_JPRB,1.2989E-04_JPRB/)  
+KBO( :, 3,36, 1) = (/&
+ & 2.8520E-05_JPRB,3.1993E-05_JPRB,1.0740E-04_JPRB,1.3821E-04_JPRB,1.5246E-04_JPRB,1.3097E-04_JPRB/)  
+KBO( :, 4,36, 1) = (/&
+ & 3.1028E-05_JPRB,3.4473E-05_JPRB,1.1115E-04_JPRB,1.4160E-04_JPRB,1.5487E-04_JPRB,1.3116E-04_JPRB/)  
+KBO( :, 5,36, 1) = (/&
+ & 3.3268E-05_JPRB,3.6701E-05_JPRB,1.1464E-04_JPRB,1.4466E-04_JPRB,1.5648E-04_JPRB,1.3075E-04_JPRB/)  
+KBO( :, 1,37, 1) = (/&
+ & 1.8563E-05_JPRB,2.1372E-05_JPRB,8.0857E-05_JPRB,1.0587E-04_JPRB,1.1839E-04_JPRB,1.0509E-04_JPRB/)  
+KBO( :, 2,37, 1) = (/&
+ & 2.0902E-05_JPRB,2.3771E-05_JPRB,8.4550E-05_JPRB,1.0990E-04_JPRB,1.2224E-04_JPRB,1.0704E-04_JPRB/)  
+KBO( :, 3,37, 1) = (/&
+ & 2.3158E-05_JPRB,2.6017E-05_JPRB,8.7968E-05_JPRB,1.1334E-04_JPRB,1.2513E-04_JPRB,1.0806E-04_JPRB/)  
+KBO( :, 4,37, 1) = (/&
+ & 2.5232E-05_JPRB,2.8068E-05_JPRB,9.1139E-05_JPRB,1.1630E-04_JPRB,1.2729E-04_JPRB,1.0839E-04_JPRB/)  
+KBO( :, 5,37, 1) = (/&
+ & 2.7075E-05_JPRB,2.9898E-05_JPRB,9.4071E-05_JPRB,1.1891E-04_JPRB,1.2874E-04_JPRB,1.0822E-04_JPRB/)  
+KBO( :, 1,38, 1) = (/&
+ & 1.4988E-05_JPRB,1.7289E-05_JPRB,6.6055E-05_JPRB,8.6575E-05_JPRB,9.6855E-05_JPRB,8.6493E-05_JPRB/)  
+KBO( :, 2,38, 1) = (/&
+ & 1.6918E-05_JPRB,1.9272E-05_JPRB,6.9150E-05_JPRB,8.9996E-05_JPRB,1.0016E-04_JPRB,8.8280E-05_JPRB/)  
+KBO( :, 3,38, 1) = (/&
+ & 1.8783E-05_JPRB,2.1138E-05_JPRB,7.2026E-05_JPRB,9.2962E-05_JPRB,1.0270E-04_JPRB,8.9275E-05_JPRB/)  
+KBO( :, 4,38, 1) = (/&
+ & 2.0496E-05_JPRB,2.2834E-05_JPRB,7.4689E-05_JPRB,9.5470E-05_JPRB,1.0459E-04_JPRB,8.9701E-05_JPRB/)  
+KBO( :, 5,38, 1) = (/&
+ & 2.2016E-05_JPRB,2.4338E-05_JPRB,7.7162E-05_JPRB,9.7704E-05_JPRB,1.0591E-04_JPRB,8.9718E-05_JPRB/)  
+KBO( :, 1,39, 1) = (/&
+ & 1.2096E-05_JPRB,1.3982E-05_JPRB,5.3949E-05_JPRB,7.0786E-05_JPRB,7.9230E-05_JPRB,7.1287E-05_JPRB/)  
+KBO( :, 2,39, 1) = (/&
+ & 1.3689E-05_JPRB,1.5620E-05_JPRB,5.6546E-05_JPRB,7.3698E-05_JPRB,8.2063E-05_JPRB,7.2936E-05_JPRB/)  
+KBO( :, 3,39, 1) = (/&
+ & 1.5231E-05_JPRB,1.7169E-05_JPRB,5.8966E-05_JPRB,7.6225E-05_JPRB,8.4277E-05_JPRB,7.3907E-05_JPRB/)  
+KBO( :, 4,39, 1) = (/&
+ & 1.6645E-05_JPRB,1.8570E-05_JPRB,6.1204E-05_JPRB,7.8367E-05_JPRB,8.5941E-05_JPRB,7.4418E-05_JPRB/)  
+KBO( :, 5,39, 1) = (/&
+ & 1.7901E-05_JPRB,1.9810E-05_JPRB,6.3290E-05_JPRB,8.0298E-05_JPRB,8.7131E-05_JPRB,7.4561E-05_JPRB/)  
+KBO( :, 1,40, 1) = (/&
+ & 9.6276E-06_JPRB,1.1165E-05_JPRB,4.3831E-05_JPRB,5.7599E-05_JPRB,6.4509E-05_JPRB,5.8273E-05_JPRB/)  
+KBO( :, 2,40, 1) = (/&
+ & 1.0939E-05_JPRB,1.2519E-05_JPRB,4.6024E-05_JPRB,6.0108E-05_JPRB,6.6994E-05_JPRB,5.9810E-05_JPRB/)  
+KBO( :, 3,40, 1) = (/&
+ & 1.2220E-05_JPRB,1.3814E-05_JPRB,4.8073E-05_JPRB,6.2293E-05_JPRB,6.8988E-05_JPRB,6.0759E-05_JPRB/)  
+KBO( :, 4,40, 1) = (/&
+ & 1.3401E-05_JPRB,1.4988E-05_JPRB,4.9968E-05_JPRB,6.4170E-05_JPRB,7.0494E-05_JPRB,6.1313E-05_JPRB/)  
+KBO( :, 5,40, 1) = (/&
+ & 1.4450E-05_JPRB,1.6022E-05_JPRB,5.1742E-05_JPRB,6.5833E-05_JPRB,7.1594E-05_JPRB,6.1539E-05_JPRB/)  
+KBO( :, 1,41, 1) = (/&
+ & 7.6383E-06_JPRB,8.8906E-06_JPRB,3.5555E-05_JPRB,4.6806E-05_JPRB,5.2458E-05_JPRB,4.7568E-05_JPRB/)  
+KBO( :, 2,41, 1) = (/&
+ & 8.7190E-06_JPRB,1.0010E-05_JPRB,3.7422E-05_JPRB,4.8972E-05_JPRB,5.4631E-05_JPRB,4.8981E-05_JPRB/)  
+KBO( :, 3,41, 1) = (/&
+ & 9.7816E-06_JPRB,1.1092E-05_JPRB,3.9150E-05_JPRB,5.0862E-05_JPRB,5.6413E-05_JPRB,4.9899E-05_JPRB/)  
+KBO( :, 4,41, 1) = (/&
+ & 1.0770E-05_JPRB,1.2078E-05_JPRB,4.0765E-05_JPRB,5.2505E-05_JPRB,5.7788E-05_JPRB,5.0461E-05_JPRB/)  
+KBO( :, 5,41, 1) = (/&
+ & 1.1650E-05_JPRB,1.2944E-05_JPRB,4.2271E-05_JPRB,5.3948E-05_JPRB,5.8801E-05_JPRB,5.0748E-05_JPRB/)  
+KBO( :, 1,42, 1) = (/&
+ & 6.0542E-06_JPRB,7.0721E-06_JPRB,2.8820E-05_JPRB,3.8000E-05_JPRB,4.2624E-05_JPRB,3.8819E-05_JPRB/)  
+KBO( :, 2,42, 1) = (/&
+ & 6.9406E-06_JPRB,7.9951E-06_JPRB,3.0412E-05_JPRB,3.9875E-05_JPRB,4.4529E-05_JPRB,4.0118E-05_JPRB/)  
+KBO( :, 3,42, 1) = (/&
+ & 7.8202E-06_JPRB,8.8967E-06_JPRB,3.1870E-05_JPRB,4.1509E-05_JPRB,4.6106E-05_JPRB,4.0986E-05_JPRB/)  
+KBO( :, 4,42, 1) = (/&
+ & 8.6462E-06_JPRB,9.7239E-06_JPRB,3.3236E-05_JPRB,4.2934E-05_JPRB,4.7338E-05_JPRB,4.1549E-05_JPRB/)  
+KBO( :, 5,42, 1) = (/&
+ & 9.3841E-06_JPRB,1.0450E-05_JPRB,3.4511E-05_JPRB,4.4186E-05_JPRB,4.8277E-05_JPRB,4.1876E-05_JPRB/)  
+KBO( :, 1,43, 1) = (/&
+ & 4.7535E-06_JPRB,5.5762E-06_JPRB,2.3267E-05_JPRB,3.0725E-05_JPRB,3.4509E-05_JPRB,3.1571E-05_JPRB/)  
+KBO( :, 2,43, 1) = (/&
+ & 5.4765E-06_JPRB,6.3357E-06_JPRB,2.4631E-05_JPRB,3.2364E-05_JPRB,3.6180E-05_JPRB,3.2776E-05_JPRB/)  
+KBO( :, 3,43, 1) = (/&
+ & 6.2063E-06_JPRB,7.0878E-06_JPRB,2.5870E-05_JPRB,3.3787E-05_JPRB,3.7588E-05_JPRB,3.3603E-05_JPRB/)  
+KBO( :, 4,43, 1) = (/&
+ & 6.8971E-06_JPRB,7.7847E-06_JPRB,2.7025E-05_JPRB,3.5030E-05_JPRB,3.8710E-05_JPRB,3.4166E-05_JPRB/)  
+KBO( :, 5,43, 1) = (/&
+ & 7.5200E-06_JPRB,8.3995E-06_JPRB,2.8111E-05_JPRB,3.6121E-05_JPRB,3.9582E-05_JPRB,3.4523E-05_JPRB/)  
+KBO( :, 1,44, 1) = (/&
+ & 3.7108E-06_JPRB,4.3735E-06_JPRB,1.8735E-05_JPRB,2.4774E-05_JPRB,2.7859E-05_JPRB,2.5624E-05_JPRB/)  
+KBO( :, 2,44, 1) = (/&
+ & 4.2986E-06_JPRB,4.9970E-06_JPRB,1.9896E-05_JPRB,2.6202E-05_JPRB,2.9326E-05_JPRB,2.6740E-05_JPRB/)  
+KBO( :, 3,44, 1) = (/&
+ & 4.9004E-06_JPRB,5.6209E-06_JPRB,2.0953E-05_JPRB,2.7445E-05_JPRB,3.0581E-05_JPRB,2.7533E-05_JPRB/)  
+KBO( :, 4,44, 1) = (/&
+ & 5.4800E-06_JPRB,6.2094E-06_JPRB,2.1942E-05_JPRB,2.8536E-05_JPRB,3.1606E-05_JPRB,2.8081E-05_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART12',1,ZHOOK_HANDLE)
+END SUBROUTINE PART12
+
+
+SUBROUTINE PART13
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART13',0,ZHOOK_HANDLE)
+
+
+KBO( :, 5,44, 1) = (/&
+ & 6.0067E-06_JPRB,6.7326E-06_JPRB,2.2861E-05_JPRB,2.9489E-05_JPRB,3.2408E-05_JPRB,2.8452E-05_JPRB/)  
+KBO( :, 1,45, 1) = (/&
+ & 2.8911E-06_JPRB,3.4227E-06_JPRB,1.5064E-05_JPRB,1.9947E-05_JPRB,2.2457E-05_JPRB,2.0791E-05_JPRB/)  
+KBO( :, 2,45, 1) = (/&
+ & 3.3674E-06_JPRB,3.9335E-06_JPRB,1.6057E-05_JPRB,2.1189E-05_JPRB,2.3743E-05_JPRB,2.1813E-05_JPRB/)  
+KBO( :, 3,45, 1) = (/&
+ & 3.8624E-06_JPRB,4.4499E-06_JPRB,1.6962E-05_JPRB,2.2274E-05_JPRB,2.4852E-05_JPRB,2.2566E-05_JPRB/)  
+KBO( :, 4,45, 1) = (/&
+ & 4.3456E-06_JPRB,4.9443E-06_JPRB,1.7794E-05_JPRB,2.3219E-05_JPRB,2.5777E-05_JPRB,2.3098E-05_JPRB/)  
+KBO( :, 5,45, 1) = (/&
+ & 4.7911E-06_JPRB,5.3898E-06_JPRB,1.8581E-05_JPRB,2.4056E-05_JPRB,2.6509E-05_JPRB,2.3470E-05_JPRB/)  
+KBO( :, 1,46, 1) = (/&
+ & 2.2383E-06_JPRB,2.6637E-06_JPRB,1.2073E-05_JPRB,1.6011E-05_JPRB,1.8044E-05_JPRB,1.6831E-05_JPRB/)  
+KBO( :, 2,46, 1) = (/&
+ & 2.6247E-06_JPRB,3.0814E-06_JPRB,1.2921E-05_JPRB,1.7081E-05_JPRB,1.9170E-05_JPRB,1.7760E-05_JPRB/)  
+KBO( :, 3,46, 1) = (/&
+ & 3.0283E-06_JPRB,3.5061E-06_JPRB,1.3701E-05_JPRB,1.8033E-05_JPRB,2.0150E-05_JPRB,1.8469E-05_JPRB/)  
+KBO( :, 4,46, 1) = (/&
+ & 3.4307E-06_JPRB,3.9211E-06_JPRB,1.4408E-05_JPRB,1.8862E-05_JPRB,2.0983E-05_JPRB,1.8985E-05_JPRB/)  
+KBO( :, 5,46, 1) = (/&
+ & 3.8069E-06_JPRB,4.3002E-06_JPRB,1.5076E-05_JPRB,1.9597E-05_JPRB,2.1654E-05_JPRB,1.9353E-05_JPRB/)  
+KBO( :, 1,47, 1) = (/&
+ & 1.7157E-06_JPRB,2.0538E-06_JPRB,9.6246E-06_JPRB,1.2782E-05_JPRB,1.4416E-05_JPRB,1.3539E-05_JPRB/)  
+KBO( :, 2,47, 1) = (/&
+ & 2.0274E-06_JPRB,2.3938E-06_JPRB,1.0355E-05_JPRB,1.3710E-05_JPRB,1.5413E-05_JPRB,1.4388E-05_JPRB/)  
+KBO( :, 3,47, 1) = (/&
+ & 2.3547E-06_JPRB,2.7420E-06_JPRB,1.1027E-05_JPRB,1.4546E-05_JPRB,1.6278E-05_JPRB,1.5051E-05_JPRB/)  
+KBO( :, 4,47, 1) = (/&
+ & 2.6881E-06_JPRB,3.0885E-06_JPRB,1.1632E-05_JPRB,1.5275E-05_JPRB,1.7026E-05_JPRB,1.5547E-05_JPRB/)  
+KBO( :, 5,47, 1) = (/&
+ & 3.0058E-06_JPRB,3.4107E-06_JPRB,1.2197E-05_JPRB,1.5919E-05_JPRB,1.7642E-05_JPRB,1.5912E-05_JPRB/)  
+KBO( :, 1,48, 1) = (/&
+ & 1.3107E-06_JPRB,1.5782E-06_JPRB,7.6508E-06_JPRB,1.0175E-05_JPRB,1.1482E-05_JPRB,1.0883E-05_JPRB/)  
+KBO( :, 2,48, 1) = (/&
+ & 1.5615E-06_JPRB,1.8540E-06_JPRB,8.2825E-06_JPRB,1.0980E-05_JPRB,1.2364E-05_JPRB,1.1653E-05_JPRB/)  
+KBO( :, 3,48, 1) = (/&
+ & 1.8258E-06_JPRB,2.1385E-06_JPRB,8.8579E-06_JPRB,1.1710E-05_JPRB,1.3124E-05_JPRB,1.2269E-05_JPRB/)  
+KBO( :, 4,48, 1) = (/&
+ & 2.0996E-06_JPRB,2.4258E-06_JPRB,9.3784E-06_JPRB,1.2351E-05_JPRB,1.3790E-05_JPRB,1.2743E-05_JPRB/)  
+KBO( :, 5,48, 1) = (/&
+ & 2.3667E-06_JPRB,2.6988E-06_JPRB,9.8574E-06_JPRB,1.2914E-05_JPRB,1.4353E-05_JPRB,1.3101E-05_JPRB/)  
+KBO( :, 1,49, 1) = (/&
+ & 9.9722E-07_JPRB,1.2088E-06_JPRB,6.0640E-06_JPRB,8.0714E-06_JPRB,9.1144E-06_JPRB,8.7529E-06_JPRB/)  
+KBO( :, 2,49, 1) = (/&
+ & 1.1984E-06_JPRB,1.4315E-06_JPRB,6.6089E-06_JPRB,8.7743E-06_JPRB,9.8916E-06_JPRB,9.4492E-06_JPRB/)  
+KBO( :, 3,49, 1) = (/&
+ & 1.4119E-06_JPRB,1.6631E-06_JPRB,7.1011E-06_JPRB,9.4039E-06_JPRB,1.0560E-05_JPRB,1.0016E-05_JPRB/)  
+KBO( :, 4,49, 1) = (/&
+ & 1.6351E-06_JPRB,1.8997E-06_JPRB,7.5513E-06_JPRB,9.9685E-06_JPRB,1.1148E-05_JPRB,1.0465E-05_JPRB/)  
+KBO( :, 5,49, 1) = (/&
+ & 1.8579E-06_JPRB,2.1297E-06_JPRB,7.9577E-06_JPRB,1.0461E-05_JPRB,1.1654E-05_JPRB,1.0817E-05_JPRB/)  
+KBO( :, 1,50, 1) = (/&
+ & 7.5886E-07_JPRB,9.2721E-07_JPRB,4.8038E-06_JPRB,6.3978E-06_JPRB,7.2231E-06_JPRB,7.0033E-06_JPRB/)  
+KBO( :, 2,50, 1) = (/&
+ & 9.2100E-07_JPRB,1.1063E-06_JPRB,5.2714E-06_JPRB,7.0056E-06_JPRB,7.9040E-06_JPRB,7.6216E-06_JPRB/)  
+KBO( :, 3,50, 1) = (/&
+ & 1.0933E-06_JPRB,1.2947E-06_JPRB,5.6945E-06_JPRB,7.5500E-06_JPRB,8.4922E-06_JPRB,8.1346E-06_JPRB/)  
+KBO( :, 4,50, 1) = (/&
+ & 1.2741E-06_JPRB,1.4882E-06_JPRB,6.0797E-06_JPRB,8.0421E-06_JPRB,9.0066E-06_JPRB,8.5490E-06_JPRB/)  
+KBO( :, 5,50, 1) = (/&
+ & 1.4586E-06_JPRB,1.6807E-06_JPRB,6.4274E-06_JPRB,8.4750E-06_JPRB,9.4574E-06_JPRB,8.8779E-06_JPRB/)  
+KBO( :, 1,51, 1) = (/&
+ & 5.7629E-07_JPRB,7.1029E-07_JPRB,3.7943E-06_JPRB,5.0570E-06_JPRB,5.7108E-06_JPRB,5.5791E-06_JPRB/)  
+KBO( :, 2,51, 1) = (/&
+ & 7.0702E-07_JPRB,8.5393E-07_JPRB,4.1966E-06_JPRB,5.5839E-06_JPRB,6.3056E-06_JPRB,6.1262E-06_JPRB/)  
+KBO( :, 3,51, 1) = (/&
+ & 8.4587E-07_JPRB,1.0071E-06_JPRB,4.5610E-06_JPRB,6.0549E-06_JPRB,6.8186E-06_JPRB,6.5832E-06_JPRB/)  
+KBO( :, 4,51, 1) = (/&
+ & 9.9205E-07_JPRB,1.1651E-06_JPRB,4.8914E-06_JPRB,6.4815E-06_JPRB,7.2681E-06_JPRB,6.9582E-06_JPRB/)  
+KBO( :, 5,51, 1) = (/&
+ & 1.1437E-06_JPRB,1.3245E-06_JPRB,5.1899E-06_JPRB,6.8593E-06_JPRB,7.6670E-06_JPRB,7.2604E-06_JPRB/)  
+KBO( :, 1,52, 1) = (/&
+ & 4.3584E-07_JPRB,5.4224E-07_JPRB,2.9855E-06_JPRB,3.9817E-06_JPRB,4.4976E-06_JPRB,4.4442E-06_JPRB/)  
+KBO( :, 2,52, 1) = (/&
+ & 5.4097E-07_JPRB,6.5764E-07_JPRB,3.3334E-06_JPRB,4.4392E-06_JPRB,5.0153E-06_JPRB,4.9246E-06_JPRB/)  
+KBO( :, 3,52, 1) = (/&
+ & 6.5253E-07_JPRB,7.8129E-07_JPRB,3.6456E-06_JPRB,4.8458E-06_JPRB,5.4625E-06_JPRB,5.3314E-06_JPRB/)  
+KBO( :, 4,52, 1) = (/&
+ & 7.7086E-07_JPRB,9.1002E-07_JPRB,3.9287E-06_JPRB,5.2127E-06_JPRB,5.8546E-06_JPRB,5.6688E-06_JPRB/)  
+KBO( :, 5,52, 1) = (/&
+ & 8.9444E-07_JPRB,1.0413E-06_JPRB,4.1837E-06_JPRB,5.5418E-06_JPRB,6.2037E-06_JPRB,5.9475E-06_JPRB/)  
+KBO( :, 1,53, 1) = (/&
+ & 3.2796E-07_JPRB,4.1214E-07_JPRB,2.3394E-06_JPRB,3.1195E-06_JPRB,3.5262E-06_JPRB,3.5455E-06_JPRB/)  
+KBO( :, 2,53, 1) = (/&
+ & 4.1213E-07_JPRB,5.0498E-07_JPRB,2.6399E-06_JPRB,3.5184E-06_JPRB,3.9742E-06_JPRB,3.9662E-06_JPRB/)  
+KBO( :, 3,53, 1) = (/&
+ & 5.0194E-07_JPRB,6.0442E-07_JPRB,2.9073E-06_JPRB,3.8680E-06_JPRB,4.3642E-06_JPRB,4.3273E-06_JPRB/)  
+KBO( :, 4,53, 1) = (/&
+ & 5.9752E-07_JPRB,7.0914E-07_JPRB,3.1505E-06_JPRB,4.1837E-06_JPRB,4.7059E-06_JPRB,4.6313E-06_JPRB/)  
+KBO( :, 5,53, 1) = (/&
+ & 6.9765E-07_JPRB,8.1659E-07_JPRB,3.3684E-06_JPRB,4.4697E-06_JPRB,5.0106E-06_JPRB,4.8882E-06_JPRB/)  
+KBO( :, 1,54, 1) = (/&
+ & 2.4768E-07_JPRB,3.1412E-07_JPRB,1.8333E-06_JPRB,2.4420E-06_JPRB,2.7649E-06_JPRB,2.7862E-06_JPRB/)  
+KBO( :, 2,54, 1) = (/&
+ & 3.1476E-07_JPRB,3.8873E-07_JPRB,2.0902E-06_JPRB,2.7876E-06_JPRB,3.1500E-06_JPRB,3.1426E-06_JPRB/)  
+KBO( :, 3,54, 1) = (/&
+ & 3.8724E-07_JPRB,4.6872E-07_JPRB,2.3192E-06_JPRB,3.0882E-06_JPRB,3.4874E-06_JPRB,3.4564E-06_JPRB/)  
+KBO( :, 4,54, 1) = (/&
+ & 4.6434E-07_JPRB,5.5384E-07_JPRB,2.5276E-06_JPRB,3.3593E-06_JPRB,3.7832E-06_JPRB,3.7206E-06_JPRB/)  
+KBO( :, 5,54, 1) = (/&
+ & 5.4537E-07_JPRB,6.4156E-07_JPRB,2.7141E-06_JPRB,3.6064E-06_JPRB,4.0468E-06_JPRB,3.9453E-06_JPRB/)  
+KBO( :, 1,55, 1) = (/&
+ & 1.8693E-07_JPRB,2.3927E-07_JPRB,1.4336E-06_JPRB,1.9074E-06_JPRB,2.1635E-06_JPRB,2.1619E-06_JPRB/)  
+KBO( :, 2,55, 1) = (/&
+ & 2.4025E-07_JPRB,2.9918E-07_JPRB,1.6519E-06_JPRB,2.2048E-06_JPRB,2.4926E-06_JPRB,2.4604E-06_JPRB/)  
+KBO( :, 3,55, 1) = (/&
+ & 2.9872E-07_JPRB,3.6360E-07_JPRB,1.8488E-06_JPRB,2.4633E-06_JPRB,2.7832E-06_JPRB,2.7282E-06_JPRB/)  
+KBO( :, 4,55, 1) = (/&
+ & 3.6075E-07_JPRB,4.3251E-07_JPRB,2.0265E-06_JPRB,2.6954E-06_JPRB,3.0391E-06_JPRB,2.9551E-06_JPRB/)  
+KBO( :, 5,55, 1) = (/&
+ & 4.2648E-07_JPRB,5.0404E-07_JPRB,2.1855E-06_JPRB,2.9070E-06_JPRB,3.2663E-06_JPRB,3.1458E-06_JPRB/)  
+KBO( :, 1,56, 1) = (/&
+ & 1.4054E-07_JPRB,1.8176E-07_JPRB,1.1161E-06_JPRB,1.4834E-06_JPRB,1.6858E-06_JPRB,1.6706E-06_JPRB/)  
+KBO( :, 2,56, 1) = (/&
+ & 1.8272E-07_JPRB,2.2962E-07_JPRB,1.3014E-06_JPRB,1.7377E-06_JPRB,1.9656E-06_JPRB,1.9215E-06_JPRB/)  
+KBO( :, 3,56, 1) = (/&
+ & 2.2968E-07_JPRB,2.8144E-07_JPRB,1.4702E-06_JPRB,1.9602E-06_JPRB,2.2149E-06_JPRB,2.1478E-06_JPRB/)  
+KBO( :, 4,56, 1) = (/&
+ & 2.7973E-07_JPRB,3.3709E-07_JPRB,1.6219E-06_JPRB,2.1586E-06_JPRB,2.4358E-06_JPRB,2.3428E-06_JPRB/)  
+KBO( :, 5,56, 1) = (/&
+ & 3.3292E-07_JPRB,3.9535E-07_JPRB,1.7578E-06_JPRB,2.3398E-06_JPRB,2.6321E-06_JPRB,2.5058E-06_JPRB/)  
+KBO( :, 1,57, 1) = (/&
+ & 1.0510E-07_JPRB,1.3750E-07_JPRB,8.6405E-07_JPRB,1.1473E-06_JPRB,1.3076E-06_JPRB,1.2850E-06_JPRB/)  
+KBO( :, 2,57, 1) = (/&
+ & 1.3849E-07_JPRB,1.7560E-07_JPRB,1.0222E-06_JPRB,1.3638E-06_JPRB,1.5446E-06_JPRB,1.4961E-06_JPRB/)  
+KBO( :, 3,57, 1) = (/&
+ & 1.7599E-07_JPRB,2.1727E-07_JPRB,1.1659E-06_JPRB,1.5556E-06_JPRB,1.7583E-06_JPRB,1.6859E-06_JPRB/)  
+KBO( :, 4,57, 1) = (/&
+ & 2.1642E-07_JPRB,2.6216E-07_JPRB,1.2954E-06_JPRB,1.7252E-06_JPRB,1.9483E-06_JPRB,1.8528E-06_JPRB/)  
+KBO( :, 5,57, 1) = (/&
+ & 2.5937E-07_JPRB,3.0954E-07_JPRB,1.4120E-06_JPRB,1.8802E-06_JPRB,2.1177E-06_JPRB,1.9931E-06_JPRB/)  
+KBO( :, 1,58, 1) = (/&
+ & 7.8562E-08_JPRB,1.0412E-07_JPRB,6.6697E-07_JPRB,8.8547E-07_JPRB,1.0122E-06_JPRB,9.8359E-07_JPRB/)  
+KBO( :, 2,58, 1) = (/&
+ & 1.0505E-07_JPRB,1.3435E-07_JPRB,8.0186E-07_JPRB,1.0688E-06_JPRB,1.2123E-06_JPRB,1.1602E-06_JPRB/)  
+KBO( :, 3,58, 1) = (/&
+ & 1.3491E-07_JPRB,1.6781E-07_JPRB,9.2343E-07_JPRB,1.2330E-06_JPRB,1.3947E-06_JPRB,1.3189E-06_JPRB/)  
+KBO( :, 4,58, 1) = (/&
+ & 1.6755E-07_JPRB,2.0398E-07_JPRB,1.0341E-06_JPRB,1.3781E-06_JPRB,1.5576E-06_JPRB,1.4600E-06_JPRB/)  
+KBO( :, 5,58, 1) = (/&
+ & 2.0219E-07_JPRB,2.4245E-07_JPRB,1.1337E-06_JPRB,1.5104E-06_JPRB,1.7029E-06_JPRB,1.5797E-06_JPRB/)  
+KBO( :, 1,59, 1) = (/&
+ & 6.2032E-08_JPRB,8.2667E-08_JPRB,5.3358E-07_JPRB,7.0860E-07_JPRB,8.1061E-07_JPRB,7.5992E-07_JPRB/)  
+KBO( :, 2,59, 1) = (/&
+ & 8.3464E-08_JPRB,1.0714E-07_JPRB,6.4596E-07_JPRB,8.6092E-07_JPRB,9.7714E-07_JPRB,9.0330E-07_JPRB/)  
+KBO( :, 3,59, 1) = (/&
+ & 1.0772E-07_JPRB,1.3445E-07_JPRB,7.4727E-07_JPRB,9.9822E-07_JPRB,1.1293E-06_JPRB,1.0310E-06_JPRB/)  
+KBO( :, 4,59, 1) = (/&
+ & 1.3434E-07_JPRB,1.6394E-07_JPRB,8.4000E-07_JPRB,1.1197E-06_JPRB,1.2658E-06_JPRB,1.1431E-06_JPRB/)  
+KBO( :, 5,59, 1) = (/&
+ & 1.6260E-07_JPRB,1.9540E-07_JPRB,9.2328E-07_JPRB,1.2307E-06_JPRB,1.3881E-06_JPRB,1.2388E-06_JPRB/)  
+KBO( :, 1,13, 2) = (/&
+ & 3.6523E-03_JPRB,3.8939E-03_JPRB,1.9272E-02_JPRB,2.7740E-02_JPRB,3.3512E-02_JPRB,3.3627E-02_JPRB/)  
+KBO( :, 2,13, 2) = (/&
+ & 4.0698E-03_JPRB,4.3006E-03_JPRB,2.0140E-02_JPRB,2.9159E-02_JPRB,3.5603E-02_JPRB,3.6375E-02_JPRB/)  
+KBO( :, 3,13, 2) = (/&
+ & 4.4412E-03_JPRB,4.6650E-03_JPRB,2.0907E-02_JPRB,3.0329E-02_JPRB,3.7178E-02_JPRB,3.8732E-02_JPRB/)  
+KBO( :, 4,13, 2) = (/&
+ & 4.7483E-03_JPRB,4.9652E-03_JPRB,2.1592E-02_JPRB,3.1266E-02_JPRB,3.8222E-02_JPRB,4.0514E-02_JPRB/)  
+KBO( :, 5,13, 2) = (/&
+ & 4.9829E-03_JPRB,5.1938E-03_JPRB,2.2168E-02_JPRB,3.1969E-02_JPRB,3.8794E-02_JPRB,4.1741E-02_JPRB/)  
+KBO( :, 1,14, 2) = (/&
+ & 3.0865E-03_JPRB,3.3200E-03_JPRB,1.6531E-02_JPRB,2.3817E-02_JPRB,2.8897E-02_JPRB,2.8142E-02_JPRB/)  
+KBO( :, 2,14, 2) = (/&
+ & 3.4362E-03_JPRB,3.6603E-03_JPRB,1.7252E-02_JPRB,2.4966E-02_JPRB,3.0545E-02_JPRB,3.0211E-02_JPRB/)  
+KBO( :, 3,14, 2) = (/&
+ & 3.7431E-03_JPRB,3.9586E-03_JPRB,1.7899E-02_JPRB,2.5891E-02_JPRB,3.1684E-02_JPRB,3.1824E-02_JPRB/)  
+KBO( :, 4,14, 2) = (/&
+ & 3.9872E-03_JPRB,4.1955E-03_JPRB,1.8459E-02_JPRB,2.6594E-02_JPRB,3.2362E-02_JPRB,3.2907E-02_JPRB/)  
+KBO( :, 5,14, 2) = (/&
+ & 4.1703E-03_JPRB,4.3748E-03_JPRB,1.8911E-02_JPRB,2.7074E-02_JPRB,3.2683E-02_JPRB,3.3591E-02_JPRB/)  
+KBO( :, 1,15, 2) = (/&
+ & 2.6115E-03_JPRB,2.8311E-03_JPRB,1.4085E-02_JPRB,2.0304E-02_JPRB,2.4710E-02_JPRB,2.3514E-02_JPRB/)  
+KBO( :, 2,15, 2) = (/&
+ & 2.9041E-03_JPRB,3.1144E-03_JPRB,1.4680E-02_JPRB,2.1210E-02_JPRB,2.5931E-02_JPRB,2.4999E-02_JPRB/)  
+KBO( :, 3,15, 2) = (/&
+ & 3.1530E-03_JPRB,3.3540E-03_JPRB,1.5212E-02_JPRB,2.1904E-02_JPRB,2.6711E-02_JPRB,2.6064E-02_JPRB/)  
+KBO( :, 4,15, 2) = (/&
+ & 3.3446E-03_JPRB,3.5395E-03_JPRB,1.5641E-02_JPRB,2.2409E-02_JPRB,2.7141E-02_JPRB,2.6755E-02_JPRB/)  
+KBO( :, 5,15, 2) = (/&
+ & 3.4849E-03_JPRB,3.6794E-03_JPRB,1.5995E-02_JPRB,2.2750E-02_JPRB,2.7330E-02_JPRB,2.7152E-02_JPRB/)  
+KBO( :, 1,16, 2) = (/&
+ & 2.2129E-03_JPRB,2.4168E-03_JPRB,1.1928E-02_JPRB,1.7179E-02_JPRB,2.0938E-02_JPRB,1.9617E-02_JPRB/)  
+KBO( :, 2,16, 2) = (/&
+ & 2.4536E-03_JPRB,2.6491E-03_JPRB,1.2409E-02_JPRB,1.7866E-02_JPRB,2.1799E-02_JPRB,2.0682E-02_JPRB/)  
+KBO( :, 3,16, 2) = (/&
+ & 2.6514E-03_JPRB,2.8384E-03_JPRB,1.2822E-02_JPRB,1.8380E-02_JPRB,2.2338E-02_JPRB,2.1426E-02_JPRB/)  
+KBO( :, 4,16, 2) = (/&
+ & 2.7951E-03_JPRB,2.9778E-03_JPRB,1.3157E-02_JPRB,1.8769E-02_JPRB,2.2630E-02_JPRB,2.1902E-02_JPRB/)  
+KBO( :, 5,16, 2) = (/&
+ & 2.9036E-03_JPRB,3.0860E-03_JPRB,1.3435E-02_JPRB,1.9027E-02_JPRB,2.2746E-02_JPRB,2.2146E-02_JPRB/)  
+KBO( :, 1,17, 2) = (/&
+ & 1.8735E-03_JPRB,2.0627E-03_JPRB,1.0036E-02_JPRB,1.4424E-02_JPRB,1.7577E-02_JPRB,1.6265E-02_JPRB/)  
+KBO( :, 2,17, 2) = (/&
+ & 2.0662E-03_JPRB,2.2488E-03_JPRB,1.0418E-02_JPRB,1.4944E-02_JPRB,1.8199E-02_JPRB,1.7052E-02_JPRB/)  
+KBO( :, 3,17, 2) = (/&
+ & 2.2194E-03_JPRB,2.3925E-03_JPRB,1.0739E-02_JPRB,1.5350E-02_JPRB,1.8589E-02_JPRB,1.7595E-02_JPRB/)  
+KBO( :, 4,17, 2) = (/&
+ & 2.3291E-03_JPRB,2.4990E-03_JPRB,1.1009E-02_JPRB,1.5656E-02_JPRB,1.8796E-02_JPRB,1.7924E-02_JPRB/)  
+KBO( :, 5,17, 2) = (/&
+ & 2.4168E-03_JPRB,2.5869E-03_JPRB,1.1220E-02_JPRB,1.5867E-02_JPRB,1.8872E-02_JPRB,1.8072E-02_JPRB/)  
+KBO( :, 1,18, 2) = (/&
+ & 1.5803E-03_JPRB,1.7549E-03_JPRB,8.3982E-03_JPRB,1.2038E-02_JPRB,1.4657E-02_JPRB,1.3443E-02_JPRB/)  
+KBO( :, 2,18, 2) = (/&
+ & 1.7325E-03_JPRB,1.9010E-03_JPRB,8.7001E-03_JPRB,1.2445E-02_JPRB,1.5124E-02_JPRB,1.4037E-02_JPRB/)  
+KBO( :, 3,18, 2) = (/&
+ & 1.8506E-03_JPRB,2.0095E-03_JPRB,8.9599E-03_JPRB,1.2773E-02_JPRB,1.5415E-02_JPRB,1.4442E-02_JPRB/)  
+KBO( :, 4,18, 2) = (/&
+ & 1.9372E-03_JPRB,2.0945E-03_JPRB,9.1682E-03_JPRB,1.3023E-02_JPRB,1.5571E-02_JPRB,1.4673E-02_JPRB/)  
+KBO( :, 5,18, 2) = (/&
+ & 2.0086E-03_JPRB,2.1668E-03_JPRB,9.3360E-03_JPRB,1.3189E-02_JPRB,1.5627E-02_JPRB,1.4767E-02_JPRB/)  
+KBO( :, 1,19, 2) = (/&
+ & 1.3263E-03_JPRB,1.4842E-03_JPRB,6.9965E-03_JPRB,1.0005E-02_JPRB,1.2171E-02_JPRB,1.1073E-02_JPRB/)  
+KBO( :, 2,19, 2) = (/&
+ & 1.4463E-03_JPRB,1.5975E-03_JPRB,7.2420E-03_JPRB,1.0335E-02_JPRB,1.2532E-02_JPRB,1.1527E-02_JPRB/)  
+KBO( :, 3,19, 2) = (/&
+ & 1.5391E-03_JPRB,1.6819E-03_JPRB,7.4473E-03_JPRB,1.0605E-02_JPRB,1.2756E-02_JPRB,1.1825E-02_JPRB/)  
+KBO( :, 4,19, 2) = (/&
+ & 1.6087E-03_JPRB,1.7515E-03_JPRB,7.6132E-03_JPRB,1.0806E-02_JPRB,1.2879E-02_JPRB,1.1987E-02_JPRB/)  
+KBO( :, 5,19, 2) = (/&
+ & 1.6667E-03_JPRB,1.8113E-03_JPRB,7.7489E-03_JPRB,1.0927E-02_JPRB,1.2923E-02_JPRB,1.2042E-02_JPRB/)  
+KBO( :, 1,20, 2) = (/&
+ & 1.1106E-03_JPRB,1.2504E-03_JPRB,5.8179E-03_JPRB,8.3016E-03_JPRB,1.0088E-02_JPRB,9.1254E-03_JPRB/)  
+KBO( :, 2,20, 2) = (/&
+ & 1.2060E-03_JPRB,1.3385E-03_JPRB,6.0163E-03_JPRB,8.5726E-03_JPRB,1.0368E-02_JPRB,9.4723E-03_JPRB/)  
+KBO( :, 3,20, 2) = (/&
+ & 1.2789E-03_JPRB,1.4052E-03_JPRB,6.1769E-03_JPRB,8.7907E-03_JPRB,1.0541E-02_JPRB,9.6942E-03_JPRB/)  
+KBO( :, 4,20, 2) = (/&
+ & 1.3351E-03_JPRB,1.4622E-03_JPRB,6.3118E-03_JPRB,8.9433E-03_JPRB,1.0640E-02_JPRB,9.8077E-03_JPRB/)  
+KBO( :, 5,20, 2) = (/&
+ & 1.3825E-03_JPRB,1.5123E-03_JPRB,6.4218E-03_JPRB,9.0350E-03_JPRB,1.0672E-02_JPRB,9.8366E-03_JPRB/)  
+KBO( :, 1,21, 2) = (/&
+ & 9.2789E-04_JPRB,1.0499E-03_JPRB,4.8309E-03_JPRB,6.8776E-03_JPRB,8.3442E-03_JPRB,7.5157E-03_JPRB/)  
+KBO( :, 2,21, 2) = (/&
+ & 1.0039E-03_JPRB,1.1183E-03_JPRB,4.9870E-03_JPRB,7.1016E-03_JPRB,8.5650E-03_JPRB,7.7816E-03_JPRB/)  
+KBO( :, 3,21, 2) = (/&
+ & 1.0617E-03_JPRB,1.1723E-03_JPRB,5.1161E-03_JPRB,7.2723E-03_JPRB,8.7032E-03_JPRB,7.9463E-03_JPRB/)  
+KBO( :, 4,21, 2) = (/&
+ & 1.1070E-03_JPRB,1.2185E-03_JPRB,5.2236E-03_JPRB,7.3886E-03_JPRB,8.7799E-03_JPRB,8.0257E-03_JPRB/)  
+KBO( :, 5,21, 2) = (/&
+ & 1.1455E-03_JPRB,1.2607E-03_JPRB,5.3143E-03_JPRB,7.4590E-03_JPRB,8.7976E-03_JPRB,8.0381E-03_JPRB/)  
+KBO( :, 1,22, 2) = (/&
+ & 7.7838E-04_JPRB,8.8274E-04_JPRB,4.0143E-03_JPRB,5.7070E-03_JPRB,6.9079E-03_JPRB,6.2019E-03_JPRB/)  
+KBO( :, 2,22, 2) = (/&
+ & 8.3803E-04_JPRB,9.3549E-04_JPRB,4.1360E-03_JPRB,5.8838E-03_JPRB,7.0782E-03_JPRB,6.4006E-03_JPRB/)  
+KBO( :, 3,22, 2) = (/&
+ & 8.8314E-04_JPRB,9.7914E-04_JPRB,4.2374E-03_JPRB,6.0145E-03_JPRB,7.1845E-03_JPRB,6.5168E-03_JPRB/)  
+KBO( :, 4,22, 2) = (/&
+ & 9.1968E-04_JPRB,1.0165E-03_JPRB,4.3241E-03_JPRB,6.1026E-03_JPRB,7.2358E-03_JPRB,6.5682E-03_JPRB/)  
+KBO( :, 5,22, 2) = (/&
+ & 9.5047E-04_JPRB,1.0512E-03_JPRB,4.4012E-03_JPRB,6.1547E-03_JPRB,7.2428E-03_JPRB,6.5673E-03_JPRB/)  
+KBO( :, 1,23, 2) = (/&
+ & 6.5215E-04_JPRB,7.4036E-04_JPRB,3.3305E-03_JPRB,4.7319E-03_JPRB,5.7142E-03_JPRB,5.1137E-03_JPRB/)  
+KBO( :, 2,23, 2) = (/&
+ & 6.9894E-04_JPRB,7.8162E-04_JPRB,3.4264E-03_JPRB,4.8693E-03_JPRB,5.8456E-03_JPRB,5.2602E-03_JPRB/)  
+KBO( :, 3,23, 2) = (/&
+ & 7.3388E-04_JPRB,8.1618E-04_JPRB,3.5078E-03_JPRB,4.9682E-03_JPRB,5.9222E-03_JPRB,5.3417E-03_JPRB/)  
+KBO( :, 4,23, 2) = (/&
+ & 7.6333E-04_JPRB,8.4695E-04_JPRB,3.5799E-03_JPRB,5.0349E-03_JPRB,5.9564E-03_JPRB,5.3733E-03_JPRB/)  
+KBO( :, 5,23, 2) = (/&
+ & 7.8904E-04_JPRB,8.7612E-04_JPRB,3.6454E-03_JPRB,5.0755E-03_JPRB,5.9574E-03_JPRB,5.3648E-03_JPRB/)  
+KBO( :, 1,24, 2) = (/&
+ & 5.4610E-04_JPRB,6.1977E-04_JPRB,2.7598E-03_JPRB,3.9203E-03_JPRB,4.7245E-03_JPRB,4.2113E-03_JPRB/)  
+KBO( :, 2,24, 2) = (/&
+ & 5.8222E-04_JPRB,6.5205E-04_JPRB,2.8366E-03_JPRB,4.0258E-03_JPRB,4.8222E-03_JPRB,4.3180E-03_JPRB/)  
+KBO( :, 3,24, 2) = (/&
+ & 6.0969E-04_JPRB,6.7974E-04_JPRB,2.9034E-03_JPRB,4.1010E-03_JPRB,4.8778E-03_JPRB,4.3739E-03_JPRB/)  
+KBO( :, 4,24, 2) = (/&
+ & 6.3347E-04_JPRB,7.0509E-04_JPRB,2.9644E-03_JPRB,4.1523E-03_JPRB,4.8995E-03_JPRB,4.3910E-03_JPRB/)  
+KBO( :, 5,24, 2) = (/&
+ & 6.5545E-04_JPRB,7.3021E-04_JPRB,3.0198E-03_JPRB,4.1861E-03_JPRB,4.8976E-03_JPRB,4.3789E-03_JPRB/)  
+KBO( :, 1,25, 2) = (/&
+ & 4.5690E-04_JPRB,5.1793E-04_JPRB,2.2852E-03_JPRB,3.2458E-03_JPRB,3.9043E-03_JPRB,3.4680E-03_JPRB/)  
+KBO( :, 2,25, 2) = (/&
+ & 4.8458E-04_JPRB,5.4334E-04_JPRB,2.3475E-03_JPRB,3.3264E-03_JPRB,3.9752E-03_JPRB,3.5434E-03_JPRB/)  
+KBO( :, 3,25, 2) = (/&
+ & 5.0654E-04_JPRB,5.6573E-04_JPRB,2.4036E-03_JPRB,3.3847E-03_JPRB,4.0147E-03_JPRB,3.5813E-03_JPRB/)  
+KBO( :, 4,25, 2) = (/&
+ & 5.2568E-04_JPRB,5.8676E-04_JPRB,2.4547E-03_JPRB,3.4258E-03_JPRB,4.0284E-03_JPRB,3.5893E-03_JPRB/)  
+KBO( :, 5,25, 2) = (/&
+ & 5.4469E-04_JPRB,6.0841E-04_JPRB,2.5000E-03_JPRB,3.4530E-03_JPRB,4.0252E-03_JPRB,3.5735E-03_JPRB/)  
+KBO( :, 1,26, 2) = (/&
+ & 3.8205E-04_JPRB,4.3242E-04_JPRB,1.8925E-03_JPRB,2.6857E-03_JPRB,3.2237E-03_JPRB,2.8541E-03_JPRB/)  
+KBO( :, 2,26, 2) = (/&
+ & 4.0335E-04_JPRB,4.5263E-04_JPRB,1.9438E-03_JPRB,2.7484E-03_JPRB,3.2757E-03_JPRB,2.9087E-03_JPRB/)  
+KBO( :, 3,26, 2) = (/&
+ & 4.2092E-04_JPRB,4.7075E-04_JPRB,1.9904E-03_JPRB,2.7942E-03_JPRB,3.3026E-03_JPRB,2.9324E-03_JPRB/)  
+KBO( :, 4,26, 2) = (/&
+ & 4.3655E-04_JPRB,4.8821E-04_JPRB,2.0326E-03_JPRB,2.8271E-03_JPRB,3.3119E-03_JPRB,2.9344E-03_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART13',1,ZHOOK_HANDLE)
+END SUBROUTINE PART13
+
+
+SUBROUTINE PART14
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART14',0,ZHOOK_HANDLE)
+
+
+KBO( :, 5,26, 2) = (/&
+ & 4.5316E-04_JPRB,5.0712E-04_JPRB,2.0685E-03_JPRB,2.8499E-03_JPRB,3.3084E-03_JPRB,2.9162E-03_JPRB/)  
+KBO( :, 1,27, 2) = (/&
+ & 3.1896E-04_JPRB,3.6052E-04_JPRB,1.5673E-03_JPRB,2.2211E-03_JPRB,2.6601E-03_JPRB,2.3492E-03_JPRB/)  
+KBO( :, 2,27, 2) = (/&
+ & 3.3544E-04_JPRB,3.7654E-04_JPRB,1.6095E-03_JPRB,2.2697E-03_JPRB,2.6969E-03_JPRB,2.3868E-03_JPRB/)  
+KBO( :, 3,27, 2) = (/&
+ & 3.4965E-04_JPRB,3.9143E-04_JPRB,1.6478E-03_JPRB,2.3068E-03_JPRB,2.7163E-03_JPRB,2.4023E-03_JPRB/)  
+KBO( :, 4,27, 2) = (/&
+ & 3.6268E-04_JPRB,4.0612E-04_JPRB,1.6818E-03_JPRB,2.3333E-03_JPRB,2.7227E-03_JPRB,2.3999E-03_JPRB/)  
+KBO( :, 5,27, 2) = (/&
+ & 3.7708E-04_JPRB,4.2263E-04_JPRB,1.7104E-03_JPRB,2.3514E-03_JPRB,2.7191E-03_JPRB,2.3811E-03_JPRB/)  
+KBO( :, 1,28, 2) = (/&
+ & 2.6585E-04_JPRB,3.0014E-04_JPRB,1.2979E-03_JPRB,1.8363E-03_JPRB,2.1935E-03_JPRB,1.9332E-03_JPRB/)  
+KBO( :, 2,28, 2) = (/&
+ & 2.7887E-04_JPRB,3.1300E-04_JPRB,1.3325E-03_JPRB,1.8753E-03_JPRB,2.2207E-03_JPRB,1.9593E-03_JPRB/)  
+KBO( :, 3,28, 2) = (/&
+ & 2.9041E-04_JPRB,3.2530E-04_JPRB,1.3637E-03_JPRB,1.9047E-03_JPRB,2.2348E-03_JPRB,1.9687E-03_JPRB/)  
+KBO( :, 4,28, 2) = (/&
+ & 3.0139E-04_JPRB,3.3786E-04_JPRB,1.3910E-03_JPRB,1.9260E-03_JPRB,2.2395E-03_JPRB,1.9637E-03_JPRB/)  
+KBO( :, 5,28, 2) = (/&
+ & 3.1381E-04_JPRB,3.5218E-04_JPRB,1.4147E-03_JPRB,1.9395E-03_JPRB,2.2363E-03_JPRB,1.9458E-03_JPRB/)  
+KBO( :, 1,29, 2) = (/&
+ & 2.2143E-04_JPRB,2.4968E-04_JPRB,1.0748E-03_JPRB,1.5182E-03_JPRB,1.8078E-03_JPRB,1.5923E-03_JPRB/)  
+KBO( :, 2,29, 2) = (/&
+ & 2.3186E-04_JPRB,2.6016E-04_JPRB,1.1033E-03_JPRB,1.5493E-03_JPRB,1.8281E-03_JPRB,1.6104E-03_JPRB/)  
+KBO( :, 3,29, 2) = (/&
+ & 2.4121E-04_JPRB,2.7036E-04_JPRB,1.1285E-03_JPRB,1.5726E-03_JPRB,1.8388E-03_JPRB,1.6155E-03_JPRB/)  
+KBO( :, 4,29, 2) = (/&
+ & 2.5062E-04_JPRB,2.8128E-04_JPRB,1.1506E-03_JPRB,1.5888E-03_JPRB,1.8420E-03_JPRB,1.6082E-03_JPRB/)  
+KBO( :, 5,29, 2) = (/&
+ & 2.6130E-04_JPRB,2.9358E-04_JPRB,1.1704E-03_JPRB,1.5992E-03_JPRB,1.8391E-03_JPRB,1.5924E-03_JPRB/)  
+KBO( :, 1,30, 2) = (/&
+ & 1.8434E-04_JPRB,2.0754E-04_JPRB,8.9026E-04_JPRB,1.2554E-03_JPRB,1.4899E-03_JPRB,1.3119E-03_JPRB/)  
+KBO( :, 2,30, 2) = (/&
+ & 1.9271E-04_JPRB,2.1620E-04_JPRB,9.1339E-04_JPRB,1.2800E-03_JPRB,1.5055E-03_JPRB,1.3245E-03_JPRB/)  
+KBO( :, 3,30, 2) = (/&
+ & 2.0034E-04_JPRB,2.2477E-04_JPRB,9.3373E-04_JPRB,1.2981E-03_JPRB,1.5133E-03_JPRB,1.3262E-03_JPRB/)  
+KBO( :, 4,30, 2) = (/&
+ & 2.0838E-04_JPRB,2.3416E-04_JPRB,9.5188E-04_JPRB,1.3104E-03_JPRB,1.5159E-03_JPRB,1.3190E-03_JPRB/)  
+KBO( :, 5,30, 2) = (/&
+ & 2.1766E-04_JPRB,2.4475E-04_JPRB,9.6842E-04_JPRB,1.3190E-03_JPRB,1.5130E-03_JPRB,1.3047E-03_JPRB/)  
+KBO( :, 1,31, 2) = (/&
+ & 1.5342E-04_JPRB,1.7254E-04_JPRB,7.3736E-04_JPRB,1.0379E-03_JPRB,1.2280E-03_JPRB,1.0823E-03_JPRB/)  
+KBO( :, 2,31, 2) = (/&
+ & 1.6018E-04_JPRB,1.7972E-04_JPRB,7.5593E-04_JPRB,1.0574E-03_JPRB,1.2397E-03_JPRB,1.0908E-03_JPRB/)  
+KBO( :, 3,31, 2) = (/&
+ & 1.6648E-04_JPRB,1.8697E-04_JPRB,7.7274E-04_JPRB,1.0714E-03_JPRB,1.2460E-03_JPRB,1.0906E-03_JPRB/)  
+KBO( :, 4,31, 2) = (/&
+ & 1.7342E-04_JPRB,1.9506E-04_JPRB,7.8773E-04_JPRB,1.0812E-03_JPRB,1.2476E-03_JPRB,1.0837E-03_JPRB/)  
+KBO( :, 5,31, 2) = (/&
+ & 1.8149E-04_JPRB,2.0420E-04_JPRB,8.0154E-04_JPRB,1.0881E-03_JPRB,1.2445E-03_JPRB,1.0711E-03_JPRB/)  
+KBO( :, 1,32, 2) = (/&
+ & 1.2767E-04_JPRB,1.4347E-04_JPRB,6.1066E-04_JPRB,8.5823E-04_JPRB,1.0121E-03_JPRB,8.9310E-04_JPRB/)  
+KBO( :, 2,32, 2) = (/&
+ & 1.3312E-04_JPRB,1.4941E-04_JPRB,6.2581E-04_JPRB,8.7345E-04_JPRB,1.0214E-03_JPRB,8.9860E-04_JPRB/)  
+KBO( :, 3,32, 2) = (/&
+ & 1.3844E-04_JPRB,1.5562E-04_JPRB,6.3952E-04_JPRB,8.8432E-04_JPRB,1.0259E-03_JPRB,8.9742E-04_JPRB/)  
+KBO( :, 4,32, 2) = (/&
+ & 1.4447E-04_JPRB,1.6260E-04_JPRB,6.5205E-04_JPRB,8.9226E-04_JPRB,1.0266E-03_JPRB,8.9098E-04_JPRB/)  
+KBO( :, 5,32, 2) = (/&
+ & 1.5144E-04_JPRB,1.7054E-04_JPRB,6.6359E-04_JPRB,8.9794E-04_JPRB,1.0240E-03_JPRB,8.8056E-04_JPRB/)  
+KBO( :, 1,33, 2) = (/&
+ & 1.0619E-04_JPRB,1.1931E-04_JPRB,5.0573E-04_JPRB,7.0964E-04_JPRB,8.3455E-04_JPRB,7.3747E-04_JPRB/)  
+KBO( :, 2,33, 2) = (/&
+ & 1.1061E-04_JPRB,1.2424E-04_JPRB,5.1808E-04_JPRB,7.2136E-04_JPRB,8.4148E-04_JPRB,7.4075E-04_JPRB/)  
+KBO( :, 3,33, 2) = (/&
+ & 1.1517E-04_JPRB,1.2959E-04_JPRB,5.2944E-04_JPRB,7.3007E-04_JPRB,8.4469E-04_JPRB,7.3913E-04_JPRB/)  
+KBO( :, 4,33, 2) = (/&
+ & 1.2041E-04_JPRB,1.3563E-04_JPRB,5.3985E-04_JPRB,7.3647E-04_JPRB,8.4479E-04_JPRB,7.3349E-04_JPRB/)  
+KBO( :, 5,33, 2) = (/&
+ & 1.2648E-04_JPRB,1.4256E-04_JPRB,5.4947E-04_JPRB,7.4123E-04_JPRB,8.4271E-04_JPRB,7.2498E-04_JPRB/)  
+KBO( :, 1,34, 2) = (/&
+ & 8.8157E-05_JPRB,9.9062E-05_JPRB,4.1842E-04_JPRB,5.8633E-04_JPRB,6.8789E-04_JPRB,6.0807E-04_JPRB/)  
+KBO( :, 2,34, 2) = (/&
+ & 9.1811E-05_JPRB,1.0321E-04_JPRB,4.2863E-04_JPRB,5.9556E-04_JPRB,6.9312E-04_JPRB,6.1023E-04_JPRB/)  
+KBO( :, 3,34, 2) = (/&
+ & 9.5729E-05_JPRB,1.0782E-04_JPRB,4.3808E-04_JPRB,6.0259E-04_JPRB,6.9556E-04_JPRB,6.0848E-04_JPRB/)  
+KBO( :, 4,34, 2) = (/&
+ & 1.0025E-04_JPRB,1.1302E-04_JPRB,4.4678E-04_JPRB,6.0791E-04_JPRB,6.9562E-04_JPRB,6.0393E-04_JPRB/)  
+KBO( :, 5,34, 2) = (/&
+ & 1.0555E-04_JPRB,1.1907E-04_JPRB,4.5478E-04_JPRB,6.1180E-04_JPRB,6.9395E-04_JPRB,5.9689E-04_JPRB/)  
+KBO( :, 1,35, 2) = (/&
+ & 7.2889E-05_JPRB,8.1925E-05_JPRB,3.4533E-04_JPRB,4.8352E-04_JPRB,5.6643E-04_JPRB,5.0117E-04_JPRB/)  
+KBO( :, 2,35, 2) = (/&
+ & 7.5938E-05_JPRB,8.5438E-05_JPRB,3.5394E-04_JPRB,4.9121E-04_JPRB,5.7081E-04_JPRB,5.0282E-04_JPRB/)  
+KBO( :, 3,35, 2) = (/&
+ & 7.9261E-05_JPRB,8.9337E-05_JPRB,3.6188E-04_JPRB,4.9693E-04_JPRB,5.7284E-04_JPRB,5.0143E-04_JPRB/)  
+KBO( :, 4,35, 2) = (/&
+ & 8.3119E-05_JPRB,9.3779E-05_JPRB,3.6918E-04_JPRB,5.0156E-04_JPRB,5.7314E-04_JPRB,4.9808E-04_JPRB/)  
+KBO( :, 5,35, 2) = (/&
+ & 8.7666E-05_JPRB,9.8982E-05_JPRB,3.7599E-04_JPRB,5.0487E-04_JPRB,5.7194E-04_JPRB,4.9242E-04_JPRB/)  
+KBO( :, 1,36, 2) = (/&
+ & 5.9995E-05_JPRB,6.7468E-05_JPRB,2.8433E-04_JPRB,3.9801E-04_JPRB,4.6610E-04_JPRB,4.1281E-04_JPRB/)  
+KBO( :, 2,36, 2) = (/&
+ & 6.2532E-05_JPRB,7.0399E-05_JPRB,2.9160E-04_JPRB,4.0447E-04_JPRB,4.6992E-04_JPRB,4.1443E-04_JPRB/)  
+KBO( :, 3,36, 2) = (/&
+ & 6.5308E-05_JPRB,7.3661E-05_JPRB,2.9838E-04_JPRB,4.0950E-04_JPRB,4.7187E-04_JPRB,4.1372E-04_JPRB/)  
+KBO( :, 4,36, 2) = (/&
+ & 6.8562E-05_JPRB,7.7412E-05_JPRB,3.0448E-04_JPRB,4.1355E-04_JPRB,4.7234E-04_JPRB,4.1122E-04_JPRB/)  
+KBO( :, 5,36, 2) = (/&
+ & 7.2367E-05_JPRB,8.1795E-05_JPRB,3.1033E-04_JPRB,4.1642E-04_JPRB,4.7161E-04_JPRB,4.0689E-04_JPRB/)  
+KBO( :, 1,37, 2) = (/&
+ & 4.9059E-05_JPRB,5.5199E-05_JPRB,2.3317E-04_JPRB,3.2671E-04_JPRB,3.8295E-04_JPRB,3.3938E-04_JPRB/)  
+KBO( :, 2,37, 2) = (/&
+ & 5.1165E-05_JPRB,5.7620E-05_JPRB,2.3941E-04_JPRB,3.3239E-04_JPRB,3.8652E-04_JPRB,3.4120E-04_JPRB/)  
+KBO( :, 3,37, 2) = (/&
+ & 5.3443E-05_JPRB,6.0304E-05_JPRB,2.4519E-04_JPRB,3.3687E-04_JPRB,3.8853E-04_JPRB,3.4110E-04_JPRB/)  
+KBO( :, 4,37, 2) = (/&
+ & 5.6114E-05_JPRB,6.3395E-05_JPRB,2.5044E-04_JPRB,3.4049E-04_JPRB,3.8930E-04_JPRB,3.3955E-04_JPRB/)  
+KBO( :, 5,37, 2) = (/&
+ & 5.9214E-05_JPRB,6.6999E-05_JPRB,2.5546E-04_JPRB,3.4318E-04_JPRB,3.8905E-04_JPRB,3.3631E-04_JPRB/)  
+KBO( :, 1,38, 2) = (/&
+ & 4.0104E-05_JPRB,4.5145E-05_JPRB,1.9118E-04_JPRB,2.6808E-04_JPRB,3.1457E-04_JPRB,2.7912E-04_JPRB/)  
+KBO( :, 2,38, 2) = (/&
+ & 4.1848E-05_JPRB,4.7145E-05_JPRB,1.9649E-04_JPRB,2.7305E-04_JPRB,3.1789E-04_JPRB,2.8112E-04_JPRB/)  
+KBO( :, 3,38, 2) = (/&
+ & 4.3721E-05_JPRB,4.9348E-05_JPRB,2.0143E-04_JPRB,2.7709E-04_JPRB,3.1990E-04_JPRB,2.8154E-04_JPRB/)  
+KBO( :, 4,38, 2) = (/&
+ & 4.5908E-05_JPRB,5.1893E-05_JPRB,2.0595E-04_JPRB,2.8033E-04_JPRB,3.2086E-04_JPRB,2.8062E-04_JPRB/)  
+KBO( :, 5,38, 2) = (/&
+ & 4.8428E-05_JPRB,5.4848E-05_JPRB,2.1030E-04_JPRB,2.8287E-04_JPRB,3.2098E-04_JPRB,2.7832E-04_JPRB/)  
+KBO( :, 1,39, 2) = (/&
+ & 3.2779E-05_JPRB,3.6913E-05_JPRB,1.5676E-04_JPRB,2.1996E-04_JPRB,2.5835E-04_JPRB,2.2986E-04_JPRB/)  
+KBO( :, 2,39, 2) = (/&
+ & 3.4226E-05_JPRB,3.8568E-05_JPRB,1.6127E-04_JPRB,2.2431E-04_JPRB,2.6140E-04_JPRB,2.3193E-04_JPRB/)  
+KBO( :, 3,39, 2) = (/&
+ & 3.5764E-05_JPRB,4.0382E-05_JPRB,1.6550E-04_JPRB,2.2790E-04_JPRB,2.6334E-04_JPRB,2.3271E-04_JPRB/)  
+KBO( :, 4,39, 2) = (/&
+ & 3.7558E-05_JPRB,4.2480E-05_JPRB,1.6939E-04_JPRB,2.3082E-04_JPRB,2.6439E-04_JPRB,2.3230E-04_JPRB/)  
+KBO( :, 5,39, 2) = (/&
+ & 3.9596E-05_JPRB,4.4889E-05_JPRB,1.7315E-04_JPRB,2.3313E-04_JPRB,2.6477E-04_JPRB,2.3072E-04_JPRB/)  
+KBO( :, 1,40, 2) = (/&
+ & 2.6669E-05_JPRB,3.0049E-05_JPRB,1.2812E-04_JPRB,1.8003E-04_JPRB,2.1187E-04_JPRB,1.8838E-04_JPRB/)  
+KBO( :, 2,40, 2) = (/&
+ & 2.7871E-05_JPRB,3.1411E-05_JPRB,1.3197E-04_JPRB,1.8389E-04_JPRB,2.1472E-04_JPRB,1.9052E-04_JPRB/)  
+KBO( :, 3,40, 2) = (/&
+ & 2.9115E-05_JPRB,3.2883E-05_JPRB,1.3564E-04_JPRB,1.8717E-04_JPRB,2.1664E-04_JPRB,1.9149E-04_JPRB/)  
+KBO( :, 4,40, 2) = (/&
+ & 3.0569E-05_JPRB,3.4584E-05_JPRB,1.3899E-04_JPRB,1.8980E-04_JPRB,2.1779E-04_JPRB,1.9147E-04_JPRB/)  
+KBO( :, 5,40, 2) = (/&
+ & 3.2192E-05_JPRB,3.6525E-05_JPRB,1.4223E-04_JPRB,1.9192E-04_JPRB,2.1835E-04_JPRB,1.9045E-04_JPRB/)  
+KBO( :, 1,41, 2) = (/&
+ & 2.1671E-05_JPRB,2.4436E-05_JPRB,1.0464E-04_JPRB,1.4721E-04_JPRB,1.7354E-04_JPRB,1.5422E-04_JPRB/)  
+KBO( :, 2,41, 2) = (/&
+ & 2.2673E-05_JPRB,2.5564E-05_JPRB,1.0794E-04_JPRB,1.5067E-04_JPRB,1.7624E-04_JPRB,1.5635E-04_JPRB/)  
+KBO( :, 3,41, 2) = (/&
+ & 2.3692E-05_JPRB,2.6758E-05_JPRB,1.1109E-04_JPRB,1.5359E-04_JPRB,1.7809E-04_JPRB,1.5746E-04_JPRB/)  
+KBO( :, 4,41, 2) = (/&
+ & 2.4859E-05_JPRB,2.8133E-05_JPRB,1.1398E-04_JPRB,1.5600E-04_JPRB,1.7932E-04_JPRB,1.5772E-04_JPRB/)  
+KBO( :, 5,41, 2) = (/&
+ & 2.6157E-05_JPRB,2.9694E-05_JPRB,1.1679E-04_JPRB,1.5797E-04_JPRB,1.8006E-04_JPRB,1.5714E-04_JPRB/)  
+KBO( :, 1,42, 2) = (/&
+ & 1.7599E-05_JPRB,1.9868E-05_JPRB,8.5428E-05_JPRB,1.2033E-04_JPRB,1.4210E-04_JPRB,1.2624E-04_JPRB/)  
+KBO( :, 2,42, 2) = (/&
+ & 1.8437E-05_JPRB,2.0798E-05_JPRB,8.8247E-05_JPRB,1.2340E-04_JPRB,1.4460E-04_JPRB,1.2832E-04_JPRB/)  
+KBO( :, 3,42, 2) = (/&
+ & 1.9276E-05_JPRB,2.1771E-05_JPRB,9.0940E-05_JPRB,1.2600E-04_JPRB,1.4636E-04_JPRB,1.2953E-04_JPRB/)  
+KBO( :, 4,42, 2) = (/&
+ & 2.0214E-05_JPRB,2.2883E-05_JPRB,9.3444E-05_JPRB,1.2819E-04_JPRB,1.4761E-04_JPRB,1.2995E-04_JPRB/)  
+KBO( :, 5,42, 2) = (/&
+ & 2.1256E-05_JPRB,2.4138E-05_JPRB,9.5879E-05_JPRB,1.2999E-04_JPRB,1.4842E-04_JPRB,1.2971E-04_JPRB/)  
+KBO( :, 1,43, 2) = (/&
+ & 1.4241E-05_JPRB,1.6107E-05_JPRB,6.9575E-05_JPRB,9.8122E-05_JPRB,1.1610E-04_JPRB,1.0313E-04_JPRB/)  
+KBO( :, 2,43, 2) = (/&
+ & 1.4953E-05_JPRB,1.6876E-05_JPRB,7.1989E-05_JPRB,1.0088E-04_JPRB,1.1847E-04_JPRB,1.0516E-04_JPRB/)  
+KBO( :, 3,43, 2) = (/&
+ & 1.5643E-05_JPRB,1.7668E-05_JPRB,7.4322E-05_JPRB,1.0321E-04_JPRB,1.2016E-04_JPRB,1.0643E-04_JPRB/)  
+KBO( :, 4,43, 2) = (/&
+ & 1.6392E-05_JPRB,1.8559E-05_JPRB,7.6469E-05_JPRB,1.0519E-04_JPRB,1.2140E-04_JPRB,1.0702E-04_JPRB/)  
+KBO( :, 5,43, 2) = (/&
+ & 1.7225E-05_JPRB,1.9561E-05_JPRB,7.8569E-05_JPRB,1.0686E-04_JPRB,1.2228E-04_JPRB,1.0704E-04_JPRB/)  
+KBO( :, 1,44, 2) = (/&
+ & 1.1498E-05_JPRB,1.3036E-05_JPRB,5.6576E-05_JPRB,7.9895E-05_JPRB,9.4733E-05_JPRB,8.4131E-05_JPRB/)  
+KBO( :, 2,44, 2) = (/&
+ & 1.2106E-05_JPRB,1.3670E-05_JPRB,5.8637E-05_JPRB,8.2333E-05_JPRB,9.6917E-05_JPRB,8.6094E-05_JPRB/)  
+KBO( :, 3,44, 2) = (/&
+ & 1.2676E-05_JPRB,1.4317E-05_JPRB,6.0634E-05_JPRB,8.4429E-05_JPRB,9.8546E-05_JPRB,8.7409E-05_JPRB/)  
+KBO( :, 4,44, 2) = (/&
+ & 1.3277E-05_JPRB,1.5031E-05_JPRB,6.2499E-05_JPRB,8.6240E-05_JPRB,9.9772E-05_JPRB,8.8130E-05_JPRB/)  
+KBO( :, 5,44, 2) = (/&
+ & 1.3943E-05_JPRB,1.5832E-05_JPRB,6.4310E-05_JPRB,8.7770E-05_JPRB,1.0066E-04_JPRB,8.8344E-05_JPRB/)  
+KBO( :, 1,45, 2) = (/&
+ & 9.2693E-06_JPRB,1.0543E-05_JPRB,4.5963E-05_JPRB,6.4978E-05_JPRB,7.7194E-05_JPRB,6.8589E-05_JPRB/)  
+KBO( :, 2,45, 2) = (/&
+ & 9.7957E-06_JPRB,1.1074E-05_JPRB,4.7739E-05_JPRB,6.7165E-05_JPRB,7.9241E-05_JPRB,7.0483E-05_JPRB/)  
+KBO( :, 3,45, 2) = (/&
+ & 1.0267E-05_JPRB,1.1600E-05_JPRB,4.9445E-05_JPRB,6.9027E-05_JPRB,8.0769E-05_JPRB,7.1812E-05_JPRB/)  
+KBO( :, 4,45, 2) = (/&
+ & 1.0754E-05_JPRB,1.2174E-05_JPRB,5.1050E-05_JPRB,7.0661E-05_JPRB,8.1921E-05_JPRB,7.2601E-05_JPRB/)  
+KBO( :, 5,45, 2) = (/&
+ & 1.1287E-05_JPRB,1.2814E-05_JPRB,5.2605E-05_JPRB,7.2048E-05_JPRB,8.2819E-05_JPRB,7.2974E-05_JPRB/)  
+KBO( :, 1,46, 2) = (/&
+ & 7.4503E-06_JPRB,8.5075E-06_JPRB,3.7281E-05_JPRB,5.2735E-05_JPRB,6.2776E-05_JPRB,5.5797E-05_JPRB/)  
+KBO( :, 2,46, 2) = (/&
+ & 7.9071E-06_JPRB,8.9566E-06_JPRB,3.8801E-05_JPRB,5.4682E-05_JPRB,6.4662E-05_JPRB,5.7621E-05_JPRB/)  
+KBO( :, 3,46, 2) = (/&
+ & 8.3054E-06_JPRB,9.3874E-06_JPRB,4.0254E-05_JPRB,5.6347E-05_JPRB,6.6096E-05_JPRB,5.8936E-05_JPRB/)  
+KBO( :, 4,46, 2) = (/&
+ & 8.7047E-06_JPRB,9.8508E-06_JPRB,4.1643E-05_JPRB,5.7815E-05_JPRB,6.7206E-05_JPRB,5.9793E-05_JPRB/)  
+KBO( :, 5,46, 2) = (/&
+ & 9.1293E-06_JPRB,1.0362E-05_JPRB,4.2978E-05_JPRB,5.9086E-05_JPRB,6.8087E-05_JPRB,6.0275E-05_JPRB/)  
+KBO( :, 1,47, 2) = (/&
+ & 5.9482E-06_JPRB,6.8343E-06_JPRB,3.0152E-05_JPRB,4.2665E-05_JPRB,5.0898E-05_JPRB,4.5169E-05_JPRB/)  
+KBO( :, 2,47, 2) = (/&
+ & 6.3610E-06_JPRB,7.2250E-06_JPRB,3.1455E-05_JPRB,4.4406E-05_JPRB,5.2643E-05_JPRB,4.6942E-05_JPRB/)  
+KBO( :, 3,47, 2) = (/&
+ & 6.7018E-06_JPRB,7.5799E-06_JPRB,3.2695E-05_JPRB,4.5897E-05_JPRB,5.3992E-05_JPRB,4.8229E-05_JPRB/)  
+KBO( :, 4,47, 2) = (/&
+ & 7.0296E-06_JPRB,7.9549E-06_JPRB,3.3896E-05_JPRB,4.7210E-05_JPRB,5.5050E-05_JPRB,4.9112E-05_JPRB/)  
+KBO( :, 5,47, 2) = (/&
+ & 7.3684E-06_JPRB,8.3623E-06_JPRB,3.5042E-05_JPRB,4.8359E-05_JPRB,5.5895E-05_JPRB,4.9665E-05_JPRB/)  
+KBO( :, 1,48, 2) = (/&
+ & 4.7226E-06_JPRB,5.4755E-06_JPRB,2.4366E-05_JPRB,3.4470E-05_JPRB,4.1173E-05_JPRB,3.6520E-05_JPRB/)  
+KBO( :, 2,48, 2) = (/&
+ & 5.1075E-06_JPRB,5.8220E-06_JPRB,2.5469E-05_JPRB,3.6010E-05_JPRB,4.2797E-05_JPRB,3.8222E-05_JPRB/)  
+KBO( :, 3,48, 2) = (/&
+ & 5.4030E-06_JPRB,6.1196E-06_JPRB,2.6535E-05_JPRB,3.7342E-05_JPRB,4.4049E-05_JPRB,3.9474E-05_JPRB/)  
+KBO( :, 4,48, 2) = (/&
+ & 5.6740E-06_JPRB,6.4213E-06_JPRB,2.7566E-05_JPRB,3.8507E-05_JPRB,4.5041E-05_JPRB,4.0367E-05_JPRB/)  
+KBO( :, 5,48, 2) = (/&
+ & 5.9485E-06_JPRB,6.7483E-06_JPRB,2.8544E-05_JPRB,3.9542E-05_JPRB,4.5839E-05_JPRB,4.0966E-05_JPRB/)  
+KBO( :, 1,49, 2) = (/&
+ & 3.7285E-06_JPRB,4.3687E-06_JPRB,1.9662E-05_JPRB,2.7800E-05_JPRB,3.3218E-05_JPRB,2.9501E-05_JPRB/)  
+KBO( :, 2,49, 2) = (/&
+ & 4.0884E-06_JPRB,4.6821E-06_JPRB,2.0602E-05_JPRB,2.9151E-05_JPRB,3.4721E-05_JPRB,3.1112E-05_JPRB/)  
+KBO( :, 3,49, 2) = (/&
+ & 4.3499E-06_JPRB,4.9382E-06_JPRB,2.1513E-05_JPRB,3.0331E-05_JPRB,3.5872E-05_JPRB,3.2329E-05_JPRB/)  
+KBO( :, 4,49, 2) = (/&
+ & 4.5782E-06_JPRB,5.1831E-06_JPRB,2.2388E-05_JPRB,3.1370E-05_JPRB,3.6806E-05_JPRB,3.3224E-05_JPRB/)  
+KBO( :, 5,49, 2) = (/&
+ & 4.8038E-06_JPRB,5.4471E-06_JPRB,2.3228E-05_JPRB,3.2295E-05_JPRB,3.7558E-05_JPRB,3.3865E-05_JPRB/)  
+KBO( :, 1,50, 2) = (/&
+ & 2.9385E-06_JPRB,3.4756E-06_JPRB,1.5868E-05_JPRB,2.2413E-05_JPRB,2.6776E-05_JPRB,2.3745E-05_JPRB/)  
+KBO( :, 2,50, 2) = (/&
+ & 3.2647E-06_JPRB,3.7628E-06_JPRB,1.6666E-05_JPRB,2.3594E-05_JPRB,2.8150E-05_JPRB,2.5211E-05_JPRB/)  
+KBO( :, 3,50, 2) = (/&
+ & 3.5024E-06_JPRB,3.9867E-06_JPRB,1.7439E-05_JPRB,2.4630E-05_JPRB,2.9198E-05_JPRB,2.6360E-05_JPRB/)  
+KBO( :, 4,50, 2) = (/&
+ & 3.6969E-06_JPRB,4.1885E-06_JPRB,1.8186E-05_JPRB,2.5547E-05_JPRB,3.0054E-05_JPRB,2.7214E-05_JPRB/)  
+KBO( :, 5,50, 2) = (/&
+ & 3.8815E-06_JPRB,4.4012E-06_JPRB,1.8910E-05_JPRB,2.6369E-05_JPRB,3.0754E-05_JPRB,2.7855E-05_JPRB/)  
+KBO( :, 1,51, 2) = (/&
+ & 2.3100E-06_JPRB,2.7563E-06_JPRB,1.2803E-05_JPRB,1.8054E-05_JPRB,2.1547E-05_JPRB,1.9044E-05_JPRB/)  
+KBO( :, 2,51, 2) = (/&
+ & 2.5961E-06_JPRB,3.0186E-06_JPRB,1.3477E-05_JPRB,1.9076E-05_JPRB,2.2781E-05_JPRB,2.0360E-05_JPRB/)  
+KBO( :, 3,51, 2) = (/&
+ & 2.8167E-06_JPRB,3.2170E-06_JPRB,1.4130E-05_JPRB,1.9983E-05_JPRB,2.3743E-05_JPRB,2.1431E-05_JPRB/)  
+KBO( :, 4,51, 2) = (/&
+ & 2.9847E-06_JPRB,3.3863E-06_JPRB,1.4767E-05_JPRB,2.0790E-05_JPRB,2.4523E-05_JPRB,2.2225E-05_JPRB/)  
+KBO( :, 5,51, 2) = (/&
+ & 3.1380E-06_JPRB,3.5588E-06_JPRB,1.5387E-05_JPRB,2.1516E-05_JPRB,2.5161E-05_JPRB,2.2842E-05_JPRB/)  
+KBO( :, 1,52, 2) = (/&
+ & 1.8092E-06_JPRB,2.1783E-06_JPRB,1.0320E-05_JPRB,1.4520E-05_JPRB,1.7296E-05_JPRB,1.5258E-05_JPRB/)  
+KBO( :, 2,52, 2) = (/&
+ & 2.0552E-06_JPRB,2.4128E-06_JPRB,1.0887E-05_JPRB,1.5404E-05_JPRB,1.8400E-05_JPRB,1.6432E-05_JPRB/)  
+KBO( :, 3,52, 2) = (/&
+ & 2.2593E-06_JPRB,2.5914E-06_JPRB,1.1440E-05_JPRB,1.6191E-05_JPRB,1.9279E-05_JPRB,1.7410E-05_JPRB/)  
+KBO( :, 4,52, 2) = (/&
+ & 2.4069E-06_JPRB,2.7365E-06_JPRB,1.1980E-05_JPRB,1.6899E-05_JPRB,1.9980E-05_JPRB,1.8159E-05_JPRB/)  
+KBO( :, 5,52, 2) = (/&
+ & 2.5360E-06_JPRB,2.8766E-06_JPRB,1.2509E-05_JPRB,1.7535E-05_JPRB,2.0563E-05_JPRB,1.8740E-05_JPRB/)  
+KBO( :, 1,53, 2) = (/&
+ & 1.4105E-06_JPRB,1.7158E-06_JPRB,8.3084E-06_JPRB,1.1659E-05_JPRB,1.3847E-05_JPRB,1.2214E-05_JPRB/)  
+KBO( :, 2,53, 2) = (/&
+ & 1.6202E-06_JPRB,1.9199E-06_JPRB,8.7865E-06_JPRB,1.2420E-05_JPRB,1.4832E-05_JPRB,1.3260E-05_JPRB/)  
+KBO( :, 3,53, 2) = (/&
+ & 1.8048E-06_JPRB,2.0833E-06_JPRB,9.2542E-06_JPRB,1.3103E-05_JPRB,1.5629E-05_JPRB,1.4148E-05_JPRB/)  
+KBO( :, 4,53, 2) = (/&
+ & 1.9388E-06_JPRB,2.2099E-06_JPRB,9.7095E-06_JPRB,1.3720E-05_JPRB,1.6258E-05_JPRB,1.4856E-05_JPRB/)  
+KBO( :, 5,53, 2) = (/&
+ & 2.0484E-06_JPRB,2.3252E-06_JPRB,1.0159E-05_JPRB,1.4275E-05_JPRB,1.6786E-05_JPRB,1.5408E-05_JPRB/)  
+KBO( :, 1,54, 2) = (/&
+ & 1.1001E-06_JPRB,1.3520E-06_JPRB,6.6915E-06_JPRB,9.3651E-06_JPRB,1.1080E-05_JPRB,9.6915E-06_JPRB/)  
+KBO( :, 2,54, 2) = (/&
+ & 1.2776E-06_JPRB,1.5264E-06_JPRB,7.0980E-06_JPRB,1.0019E-05_JPRB,1.1951E-05_JPRB,1.0599E-05_JPRB/)  
+KBO( :, 3,54, 2) = (/&
+ & 1.4389E-06_JPRB,1.6744E-06_JPRB,7.4896E-06_JPRB,1.0605E-05_JPRB,1.2661E-05_JPRB,1.1371E-05_JPRB/)  
+KBO( :, 4,54, 2) = (/&
+ & 1.5618E-06_JPRB,1.7856E-06_JPRB,7.8730E-06_JPRB,1.1139E-05_JPRB,1.3225E-05_JPRB,1.2005E-05_JPRB/)  
+KBO( :, 5,54, 2) = (/&
+ & 1.6563E-06_JPRB,1.8821E-06_JPRB,8.2537E-06_JPRB,1.1621E-05_JPRB,1.3700E-05_JPRB,1.2497E-05_JPRB/)  
+KBO( :, 1,55, 2) = (/&
+ & 8.5645E-07_JPRB,1.0639E-06_JPRB,5.3882E-06_JPRB,7.5160E-06_JPRB,8.8564E-06_JPRB,7.6411E-06_JPRB/)  
+KBO( :, 2,55, 2) = (/&
+ & 1.0060E-06_JPRB,1.2118E-06_JPRB,5.7336E-06_JPRB,8.0780E-06_JPRB,9.6170E-06_JPRB,8.4151E-06_JPRB/)  
+KBO( :, 3,55, 2) = (/&
+ & 1.1442E-06_JPRB,1.3431E-06_JPRB,6.0604E-06_JPRB,8.5801E-06_JPRB,1.0247E-05_JPRB,9.0709E-06_JPRB/)  
+KBO( :, 4,55, 2) = (/&
+ & 1.2568E-06_JPRB,1.4421E-06_JPRB,6.3829E-06_JPRB,9.0380E-06_JPRB,1.0752E-05_JPRB,9.6232E-06_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART14',1,ZHOOK_HANDLE)
+END SUBROUTINE PART14
+
+
+SUBROUTINE PART15
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART15',0,ZHOOK_HANDLE)
+
+
+KBO( :, 5,55, 2) = (/&
+ & 1.3389E-06_JPRB,1.5239E-06_JPRB,6.7048E-06_JPRB,9.4560E-06_JPRB,1.1172E-05_JPRB,1.0049E-05_JPRB/)  
+KBO( :, 1,56, 2) = (/&
+ & 6.6442E-07_JPRB,8.3379E-07_JPRB,4.3324E-06_JPRB,6.0198E-06_JPRB,7.0629E-06_JPRB,6.0049E-06_JPRB/)  
+KBO( :, 2,56, 2) = (/&
+ & 7.8950E-07_JPRB,9.5952E-07_JPRB,4.6273E-06_JPRB,6.5047E-06_JPRB,7.7219E-06_JPRB,6.6682E-06_JPRB/)  
+KBO( :, 3,56, 2) = (/&
+ & 9.0717E-07_JPRB,1.0738E-06_JPRB,4.9008E-06_JPRB,6.9329E-06_JPRB,8.2806E-06_JPRB,7.2285E-06_JPRB/)  
+KBO( :, 4,56, 2) = (/&
+ & 1.0084E-06_JPRB,1.1629E-06_JPRB,5.1710E-06_JPRB,7.3266E-06_JPRB,8.7308E-06_JPRB,7.6993E-06_JPRB/)  
+KBO( :, 5,56, 2) = (/&
+ & 1.0813E-06_JPRB,1.2332E-06_JPRB,5.4414E-06_JPRB,7.6876E-06_JPRB,9.1018E-06_JPRB,8.0751E-06_JPRB/)  
+KBO( :, 1,57, 2) = (/&
+ & 5.1317E-07_JPRB,6.4951E-07_JPRB,3.4793E-06_JPRB,4.8121E-06_JPRB,5.6195E-06_JPRB,4.7031E-06_JPRB/)  
+KBO( :, 2,57, 2) = (/&
+ & 6.1735E-07_JPRB,7.5758E-07_JPRB,3.7304E-06_JPRB,5.2293E-06_JPRB,6.1863E-06_JPRB,5.2741E-06_JPRB/)  
+KBO( :, 3,57, 2) = (/&
+ & 7.1698E-07_JPRB,8.5543E-07_JPRB,3.9609E-06_JPRB,5.5969E-06_JPRB,6.6797E-06_JPRB,5.7513E-06_JPRB/)  
+KBO( :, 4,57, 2) = (/&
+ & 8.0608E-07_JPRB,9.3608E-07_JPRB,4.1867E-06_JPRB,5.9326E-06_JPRB,7.0780E-06_JPRB,6.1535E-06_JPRB/)  
+KBO( :, 5,57, 2) = (/&
+ & 8.7220E-07_JPRB,9.9722E-07_JPRB,4.4123E-06_JPRB,6.2442E-06_JPRB,7.4063E-06_JPRB,6.4839E-06_JPRB/)  
+KBO( :, 1,58, 2) = (/&
+ & 3.9480E-07_JPRB,5.0435E-07_JPRB,2.7935E-06_JPRB,3.8432E-06_JPRB,4.4657E-06_JPRB,3.6764E-06_JPRB/)  
+KBO( :, 2,58, 2) = (/&
+ & 4.8219E-07_JPRB,5.9772E-07_JPRB,3.0073E-06_JPRB,4.2025E-06_JPRB,4.9518E-06_JPRB,4.1625E-06_JPRB/)  
+KBO( :, 3,58, 2) = (/&
+ & 5.6606E-07_JPRB,6.8070E-07_JPRB,3.2015E-06_JPRB,4.5174E-06_JPRB,5.3832E-06_JPRB,4.5681E-06_JPRB/)  
+KBO( :, 4,58, 2) = (/&
+ & 6.4282E-07_JPRB,7.5255E-07_JPRB,3.3896E-06_JPRB,4.8024E-06_JPRB,5.7338E-06_JPRB,4.9081E-06_JPRB/)  
+KBO( :, 5,58, 2) = (/&
+ & 7.0311E-07_JPRB,8.0645E-07_JPRB,3.5782E-06_JPRB,5.0698E-06_JPRB,6.0234E-06_JPRB,5.1890E-06_JPRB/)  
+KBO( :, 1,59, 2) = (/&
+ & 3.1539E-07_JPRB,4.0480E-07_JPRB,2.2738E-06_JPRB,3.1211E-06_JPRB,3.6182E-06_JPRB,2.9204E-06_JPRB/)  
+KBO( :, 2,59, 2) = (/&
+ & 3.8822E-07_JPRB,4.8324E-07_JPRB,2.4529E-06_JPRB,3.4232E-06_JPRB,4.0269E-06_JPRB,3.3117E-06_JPRB/)  
+KBO( :, 3,59, 2) = (/&
+ & 4.5803E-07_JPRB,5.5251E-07_JPRB,2.6142E-06_JPRB,3.6873E-06_JPRB,4.3909E-06_JPRB,3.6397E-06_JPRB/)  
+KBO( :, 4,59, 2) = (/&
+ & 5.2209E-07_JPRB,6.1313E-07_JPRB,2.7709E-06_JPRB,3.9267E-06_JPRB,4.6885E-06_JPRB,3.9100E-06_JPRB/)  
+KBO( :, 5,59, 2) = (/&
+ & 5.7356E-07_JPRB,6.5884E-07_JPRB,2.9288E-06_JPRB,4.1516E-06_JPRB,4.9350E-06_JPRB,4.1280E-06_JPRB/)  
+KBO( :, 1,13, 3) = (/&
+ & 7.6409E-03_JPRB,7.8630E-03_JPRB,3.5099E-02_JPRB,5.1489E-02_JPRB,6.3478E-02_JPRB,6.7045E-02_JPRB/)  
+KBO( :, 2,13, 3) = (/&
+ & 7.6194E-03_JPRB,7.8439E-03_JPRB,3.6320E-02_JPRB,5.3590E-02_JPRB,6.5755E-02_JPRB,7.0861E-02_JPRB/)  
+KBO( :, 3,13, 3) = (/&
+ & 7.6221E-03_JPRB,7.8478E-03_JPRB,3.7408E-02_JPRB,5.5388E-02_JPRB,6.7789E-02_JPRB,7.4140E-02_JPRB/)  
+KBO( :, 4,13, 3) = (/&
+ & 7.7245E-03_JPRB,7.9516E-03_JPRB,3.8346E-02_JPRB,5.6822E-02_JPRB,6.9566E-02_JPRB,7.7166E-02_JPRB/)  
+KBO( :, 5,13, 3) = (/&
+ & 7.8978E-03_JPRB,8.1255E-03_JPRB,3.9191E-02_JPRB,5.7916E-02_JPRB,7.1029E-02_JPRB,7.9766E-02_JPRB/)  
+KBO( :, 1,14, 3) = (/&
+ & 6.3458E-03_JPRB,6.5743E-03_JPRB,3.0544E-02_JPRB,4.4937E-02_JPRB,5.5150E-02_JPRB,5.7197E-02_JPRB/)  
+KBO( :, 2,14, 3) = (/&
+ & 6.3293E-03_JPRB,6.5605E-03_JPRB,3.1591E-02_JPRB,4.6706E-02_JPRB,5.7142E-02_JPRB,6.0155E-02_JPRB/)  
+KBO( :, 3,14, 3) = (/&
+ & 6.3587E-03_JPRB,6.5945E-03_JPRB,3.2496E-02_JPRB,4.8185E-02_JPRB,5.8909E-02_JPRB,6.2706E-02_JPRB/)  
+KBO( :, 4,14, 3) = (/&
+ & 6.4686E-03_JPRB,6.7092E-03_JPRB,3.3313E-02_JPRB,4.9362E-02_JPRB,6.0431E-02_JPRB,6.4908E-02_JPRB/)  
+KBO( :, 5,14, 3) = (/&
+ & 6.6255E-03_JPRB,6.8640E-03_JPRB,3.4024E-02_JPRB,5.0218E-02_JPRB,6.1528E-02_JPRB,6.6516E-02_JPRB/)  
+KBO( :, 1,15, 3) = (/&
+ & 5.2608E-03_JPRB,5.4955E-03_JPRB,2.6384E-02_JPRB,3.8869E-02_JPRB,4.7602E-02_JPRB,4.8635E-02_JPRB/)  
+KBO( :, 2,15, 3) = (/&
+ & 5.2548E-03_JPRB,5.4956E-03_JPRB,2.7249E-02_JPRB,4.0345E-02_JPRB,4.9310E-02_JPRB,5.0945E-02_JPRB/)  
+KBO( :, 3,15, 3) = (/&
+ & 5.2993E-03_JPRB,5.5500E-03_JPRB,2.8019E-02_JPRB,4.1551E-02_JPRB,5.0814E-02_JPRB,5.2823E-02_JPRB/)  
+KBO( :, 4,15, 3) = (/&
+ & 5.4066E-03_JPRB,5.6608E-03_JPRB,2.8708E-02_JPRB,4.2452E-02_JPRB,5.1926E-02_JPRB,5.4154E-02_JPRB/)  
+KBO( :, 5,15, 3) = (/&
+ & 5.5521E-03_JPRB,5.8017E-03_JPRB,2.9282E-02_JPRB,4.3007E-02_JPRB,5.2526E-02_JPRB,5.4943E-02_JPRB/)  
+KBO( :, 1,16, 3) = (/&
+ & 4.3548E-03_JPRB,4.5880E-03_JPRB,2.2610E-02_JPRB,3.3375E-02_JPRB,4.0790E-02_JPRB,4.1260E-02_JPRB/)  
+KBO( :, 2,16, 3) = (/&
+ & 4.3619E-03_JPRB,4.6068E-03_JPRB,2.3348E-02_JPRB,3.4577E-02_JPRB,4.2241E-02_JPRB,4.3009E-02_JPRB/)  
+KBO( :, 3,16, 3) = (/&
+ & 4.4136E-03_JPRB,4.6705E-03_JPRB,2.3984E-02_JPRB,3.5504E-02_JPRB,4.3353E-02_JPRB,4.4224E-02_JPRB/)  
+KBO( :, 4,16, 3) = (/&
+ & 4.5178E-03_JPRB,4.7766E-03_JPRB,2.4528E-02_JPRB,3.6072E-02_JPRB,4.4010E-02_JPRB,4.4975E-02_JPRB/)  
+KBO( :, 5,16, 3) = (/&
+ & 4.6504E-03_JPRB,4.9071E-03_JPRB,2.4942E-02_JPRB,3.6363E-02_JPRB,4.4282E-02_JPRB,4.5379E-02_JPRB/)  
+KBO( :, 1,17, 3) = (/&
+ & 3.6046E-03_JPRB,3.8291E-03_JPRB,1.9257E-02_JPRB,2.8451E-02_JPRB,3.4711E-02_JPRB,3.4756E-02_JPRB/)  
+KBO( :, 2,17, 3) = (/&
+ & 3.6213E-03_JPRB,3.8592E-03_JPRB,1.9862E-02_JPRB,2.9374E-02_JPRB,3.5819E-02_JPRB,3.5957E-02_JPRB/)  
+KBO( :, 3,17, 3) = (/&
+ & 3.6771E-03_JPRB,3.9291E-03_JPRB,2.0363E-02_JPRB,2.9994E-02_JPRB,3.6526E-02_JPRB,3.6699E-02_JPRB/)  
+KBO( :, 4,17, 3) = (/&
+ & 3.7714E-03_JPRB,4.0283E-03_JPRB,2.0759E-02_JPRB,3.0326E-02_JPRB,3.6910E-02_JPRB,3.7152E-02_JPRB/)  
+KBO( :, 5,17, 3) = (/&
+ & 3.8899E-03_JPRB,4.1466E-03_JPRB,2.1065E-02_JPRB,3.0505E-02_JPRB,3.7035E-02_JPRB,3.7347E-02_JPRB/)  
+KBO( :, 1,18, 3) = (/&
+ & 2.9885E-03_JPRB,3.1998E-03_JPRB,1.6296E-02_JPRB,2.4061E-02_JPRB,2.9310E-02_JPRB,2.9021E-02_JPRB/)  
+KBO( :, 2,18, 3) = (/&
+ & 3.0092E-03_JPRB,3.2357E-03_JPRB,1.6767E-02_JPRB,2.4711E-02_JPRB,3.0069E-02_JPRB,2.9818E-02_JPRB/)  
+KBO( :, 3,18, 3) = (/&
+ & 3.0601E-03_JPRB,3.3019E-03_JPRB,1.7137E-02_JPRB,2.5107E-02_JPRB,3.0527E-02_JPRB,3.0314E-02_JPRB/)  
+KBO( :, 4,18, 3) = (/&
+ & 3.1433E-03_JPRB,3.3904E-03_JPRB,1.7445E-02_JPRB,2.5340E-02_JPRB,3.0772E-02_JPRB,3.0595E-02_JPRB/)  
+KBO( :, 5,18, 3) = (/&
+ & 3.2491E-03_JPRB,3.4975E-03_JPRB,1.7663E-02_JPRB,2.5461E-02_JPRB,3.0822E-02_JPRB,3.0677E-02_JPRB/)  
+KBO( :, 1,19, 3) = (/&
+ & 2.4792E-03_JPRB,2.6786E-03_JPRB,1.3691E-02_JPRB,2.0180E-02_JPRB,2.4544E-02_JPRB,2.4040E-02_JPRB/)  
+KBO( :, 2,19, 3) = (/&
+ & 2.4982E-03_JPRB,2.7134E-03_JPRB,1.4049E-02_JPRB,2.0629E-02_JPRB,2.5069E-02_JPRB,2.4597E-02_JPRB/)  
+KBO( :, 3,19, 3) = (/&
+ & 2.5452E-03_JPRB,2.7746E-03_JPRB,1.4344E-02_JPRB,2.0921E-02_JPRB,2.5390E-02_JPRB,2.4935E-02_JPRB/)  
+KBO( :, 4,19, 3) = (/&
+ & 2.6196E-03_JPRB,2.8530E-03_JPRB,1.4579E-02_JPRB,2.1097E-02_JPRB,2.5555E-02_JPRB,2.5107E-02_JPRB/)  
+KBO( :, 5,19, 3) = (/&
+ & 2.7162E-03_JPRB,2.9530E-03_JPRB,1.4732E-02_JPRB,2.1186E-02_JPRB,2.5572E-02_JPRB,2.5118E-02_JPRB/)  
+KBO( :, 1,20, 3) = (/&
+ & 2.0528E-03_JPRB,2.2395E-03_JPRB,1.1440E-02_JPRB,1.6822E-02_JPRB,2.0437E-02_JPRB,1.9854E-02_JPRB/)  
+KBO( :, 2,20, 3) = (/&
+ & 2.0711E-03_JPRB,2.2736E-03_JPRB,1.1723E-02_JPRB,1.7158E-02_JPRB,2.0817E-02_JPRB,2.0254E-02_JPRB/)  
+KBO( :, 3,20, 3) = (/&
+ & 2.1151E-03_JPRB,2.3293E-03_JPRB,1.1957E-02_JPRB,1.7380E-02_JPRB,2.1050E-02_JPRB,2.0492E-02_JPRB/)  
+KBO( :, 4,20, 3) = (/&
+ & 2.1833E-03_JPRB,2.4015E-03_JPRB,1.2129E-02_JPRB,1.7522E-02_JPRB,2.1168E-02_JPRB,2.0597E-02_JPRB/)  
+KBO( :, 5,20, 3) = (/&
+ & 2.2724E-03_JPRB,2.4949E-03_JPRB,1.2249E-02_JPRB,1.7578E-02_JPRB,2.1166E-02_JPRB,2.0571E-02_JPRB/)  
+KBO( :, 1,21, 3) = (/&
+ & 1.6965E-03_JPRB,1.8666E-03_JPRB,9.5200E-03_JPRB,1.3965E-02_JPRB,1.6952E-02_JPRB,1.6357E-02_JPRB/)  
+KBO( :, 2,21, 3) = (/&
+ & 1.7152E-03_JPRB,1.9002E-03_JPRB,9.7517E-03_JPRB,1.4227E-02_JPRB,1.7236E-02_JPRB,1.6650E-02_JPRB/)  
+KBO( :, 3,21, 3) = (/&
+ & 1.7567E-03_JPRB,1.9510E-03_JPRB,9.9283E-03_JPRB,1.4408E-02_JPRB,1.7419E-02_JPRB,1.6821E-02_JPRB/)  
+KBO( :, 4,21, 3) = (/&
+ & 1.8182E-03_JPRB,2.0179E-03_JPRB,1.0061E-02_JPRB,1.4512E-02_JPRB,1.7502E-02_JPRB,1.6883E-02_JPRB/)  
+KBO( :, 5,21, 3) = (/&
+ & 1.9002E-03_JPRB,2.1049E-03_JPRB,1.0160E-02_JPRB,1.4547E-02_JPRB,1.7493E-02_JPRB,1.6838E-02_JPRB/)  
+KBO( :, 1,22, 3) = (/&
+ & 1.4012E-03_JPRB,1.5543E-03_JPRB,7.9187E-03_JPRB,1.1582E-02_JPRB,1.4044E-02_JPRB,1.3475E-02_JPRB/)  
+KBO( :, 2,22, 3) = (/&
+ & 1.4217E-03_JPRB,1.5878E-03_JPRB,8.0975E-03_JPRB,1.1789E-02_JPRB,1.4260E-02_JPRB,1.3686E-02_JPRB/)  
+KBO( :, 3,22, 3) = (/&
+ & 1.4625E-03_JPRB,1.6356E-03_JPRB,8.2342E-03_JPRB,1.1928E-02_JPRB,1.4399E-02_JPRB,1.3802E-02_JPRB/)  
+KBO( :, 4,22, 3) = (/&
+ & 1.5189E-03_JPRB,1.6982E-03_JPRB,8.3363E-03_JPRB,1.1996E-02_JPRB,1.4455E-02_JPRB,1.3830E-02_JPRB/)  
+KBO( :, 5,22, 3) = (/&
+ & 1.5929E-03_JPRB,1.7785E-03_JPRB,8.4131E-03_JPRB,1.2015E-02_JPRB,1.4430E-02_JPRB,1.3772E-02_JPRB/)  
+KBO( :, 1,23, 3) = (/&
+ & 1.1570E-03_JPRB,1.2929E-03_JPRB,6.5744E-03_JPRB,9.5929E-03_JPRB,1.1615E-02_JPRB,1.1086E-02_JPRB/)  
+KBO( :, 2,23, 3) = (/&
+ & 1.1790E-03_JPRB,1.3257E-03_JPRB,6.7098E-03_JPRB,9.7544E-03_JPRB,1.1782E-02_JPRB,1.1237E-02_JPRB/)  
+KBO( :, 3,23, 3) = (/&
+ & 1.2175E-03_JPRB,1.3704E-03_JPRB,6.8141E-03_JPRB,9.8515E-03_JPRB,1.1889E-02_JPRB,1.1315E-02_JPRB/)  
+KBO( :, 4,23, 3) = (/&
+ & 1.2686E-03_JPRB,1.4282E-03_JPRB,6.8934E-03_JPRB,9.9002E-03_JPRB,1.1920E-02_JPRB,1.1318E-02_JPRB/)  
+KBO( :, 5,23, 3) = (/&
+ & 1.3340E-03_JPRB,1.5001E-03_JPRB,6.9577E-03_JPRB,9.9108E-03_JPRB,1.1886E-02_JPRB,1.1254E-02_JPRB/)  
+KBO( :, 1,24, 3) = (/&
+ & 9.5574E-04_JPRB,1.0753E-03_JPRB,5.4476E-03_JPRB,7.9376E-03_JPRB,9.5959E-03_JPRB,9.1100E-03_JPRB/)  
+KBO( :, 2,24, 3) = (/&
+ & 9.7834E-04_JPRB,1.1070E-03_JPRB,5.5506E-03_JPRB,8.0557E-03_JPRB,9.7276E-03_JPRB,9.2176E-03_JPRB/)  
+KBO( :, 3,24, 3) = (/&
+ & 1.0140E-03_JPRB,1.1485E-03_JPRB,5.6323E-03_JPRB,8.1281E-03_JPRB,9.8028E-03_JPRB,9.2635E-03_JPRB/)  
+KBO( :, 4,24, 3) = (/&
+ & 1.0594E-03_JPRB,1.2005E-03_JPRB,5.6966E-03_JPRB,8.1612E-03_JPRB,9.8145E-03_JPRB,9.2505E-03_JPRB/)  
+KBO( :, 5,24, 3) = (/&
+ & 1.1172E-03_JPRB,1.2644E-03_JPRB,5.7523E-03_JPRB,8.1643E-03_JPRB,9.7794E-03_JPRB,9.1865E-03_JPRB/)  
+KBO( :, 1,25, 3) = (/&
+ & 7.9031E-04_JPRB,8.9498E-04_JPRB,4.5093E-03_JPRB,6.5597E-03_JPRB,7.9226E-03_JPRB,7.4814E-03_JPRB/)  
+KBO( :, 2,25, 3) = (/&
+ & 8.1263E-04_JPRB,9.2459E-04_JPRB,4.5880E-03_JPRB,6.6467E-03_JPRB,8.0247E-03_JPRB,7.5572E-03_JPRB/)  
+KBO( :, 3,25, 3) = (/&
+ & 8.4479E-04_JPRB,9.6257E-04_JPRB,4.6527E-03_JPRB,6.6977E-03_JPRB,8.0725E-03_JPRB,7.5813E-03_JPRB/)  
+KBO( :, 4,25, 3) = (/&
+ & 8.8545E-04_JPRB,1.0093E-03_JPRB,4.7088E-03_JPRB,6.7186E-03_JPRB,8.0725E-03_JPRB,7.5582E-03_JPRB/)  
+KBO( :, 5,25, 3) = (/&
+ & 9.3639E-04_JPRB,1.0658E-03_JPRB,4.7580E-03_JPRB,6.7210E-03_JPRB,8.0368E-03_JPRB,7.4940E-03_JPRB/)  
+KBO( :, 1,26, 3) = (/&
+ & 6.5440E-04_JPRB,7.4555E-04_JPRB,3.7287E-03_JPRB,5.4156E-03_JPRB,6.5397E-03_JPRB,6.1435E-03_JPRB/)  
+KBO( :, 2,26, 3) = (/&
+ & 6.7588E-04_JPRB,7.7292E-04_JPRB,3.7917E-03_JPRB,5.4786E-03_JPRB,6.6119E-03_JPRB,6.1927E-03_JPRB/)  
+KBO( :, 3,26, 3) = (/&
+ & 7.0450E-04_JPRB,8.0706E-04_JPRB,3.8452E-03_JPRB,5.5137E-03_JPRB,6.6415E-03_JPRB,6.2018E-03_JPRB/)  
+KBO( :, 4,26, 3) = (/&
+ & 7.4139E-04_JPRB,8.4916E-04_JPRB,3.8959E-03_JPRB,5.5296E-03_JPRB,6.6347E-03_JPRB,6.1729E-03_JPRB/)  
+KBO( :, 5,26, 3) = (/&
+ & 7.8678E-04_JPRB,8.9964E-04_JPRB,3.9398E-03_JPRB,5.5339E-03_JPRB,6.6007E-03_JPRB,6.1130E-03_JPRB/)  
+KBO( :, 1,27, 3) = (/&
+ & 5.4261E-04_JPRB,6.2138E-04_JPRB,3.0812E-03_JPRB,4.4673E-03_JPRB,5.3930E-03_JPRB,5.0432E-03_JPRB/)  
+KBO( :, 2,27, 3) = (/&
+ & 5.6244E-04_JPRB,6.4623E-04_JPRB,3.1326E-03_JPRB,4.5130E-03_JPRB,5.4441E-03_JPRB,5.0746E-03_JPRB/)  
+KBO( :, 3,27, 3) = (/&
+ & 5.8793E-04_JPRB,6.7665E-04_JPRB,3.1799E-03_JPRB,4.5386E-03_JPRB,5.4598E-03_JPRB,5.0735E-03_JPRB/)  
+KBO( :, 4,27, 3) = (/&
+ & 6.2139E-04_JPRB,7.1456E-04_JPRB,3.2246E-03_JPRB,4.5530E-03_JPRB,5.4488E-03_JPRB,5.0440E-03_JPRB/)  
+KBO( :, 5,27, 3) = (/&
+ & 6.6189E-04_JPRB,7.5928E-04_JPRB,3.2622E-03_JPRB,4.5583E-03_JPRB,5.4192E-03_JPRB,4.9887E-03_JPRB/)  
+KBO( :, 1,28, 3) = (/&
+ & 4.5041E-04_JPRB,5.1802E-04_JPRB,2.5459E-03_JPRB,3.6826E-03_JPRB,4.4432E-03_JPRB,4.1386E-03_JPRB/)  
+KBO( :, 2,28, 3) = (/&
+ & 4.6818E-04_JPRB,5.4025E-04_JPRB,2.5901E-03_JPRB,3.7166E-03_JPRB,4.4776E-03_JPRB,4.1576E-03_JPRB/)  
+KBO( :, 3,28, 3) = (/&
+ & 4.9122E-04_JPRB,5.6731E-04_JPRB,2.6317E-03_JPRB,3.7378E-03_JPRB,4.4848E-03_JPRB,4.1511E-03_JPRB/)  
+KBO( :, 4,28, 3) = (/&
+ & 5.2165E-04_JPRB,6.0153E-04_JPRB,2.6701E-03_JPRB,3.7517E-03_JPRB,4.4733E-03_JPRB,4.1214E-03_JPRB/)  
+KBO( :, 5,28, 3) = (/&
+ & 5.5747E-04_JPRB,6.4051E-04_JPRB,2.7007E-03_JPRB,3.7587E-03_JPRB,4.4498E-03_JPRB,4.0722E-03_JPRB/)  
+KBO( :, 1,29, 3) = (/&
+ & 3.7413E-04_JPRB,4.3196E-04_JPRB,2.1044E-03_JPRB,3.0343E-03_JPRB,3.6585E-03_JPRB,3.3981E-03_JPRB/)  
+KBO( :, 2,29, 3) = (/&
+ & 3.9017E-04_JPRB,4.5166E-04_JPRB,2.1424E-03_JPRB,3.0612E-03_JPRB,3.6810E-03_JPRB,3.4095E-03_JPRB/)  
+KBO( :, 3,29, 3) = (/&
+ & 4.1157E-04_JPRB,4.7625E-04_JPRB,2.1792E-03_JPRB,3.0806E-03_JPRB,3.6837E-03_JPRB,3.4002E-03_JPRB/)  
+KBO( :, 4,29, 3) = (/&
+ & 4.3865E-04_JPRB,5.0663E-04_JPRB,2.2090E-03_JPRB,3.0938E-03_JPRB,3.6744E-03_JPRB,3.3735E-03_JPRB/)  
+KBO( :, 5,29, 3) = (/&
+ & 4.7012E-04_JPRB,5.4039E-04_JPRB,2.2354E-03_JPRB,3.1005E-03_JPRB,3.6551E-03_JPRB,3.3297E-03_JPRB/)  
+KBO( :, 1,30, 3) = (/&
+ & 3.1103E-04_JPRB,3.6024E-04_JPRB,1.7406E-03_JPRB,2.5005E-03_JPRB,3.0110E-03_JPRB,2.7911E-03_JPRB/)  
+KBO( :, 2,30, 3) = (/&
+ & 3.2577E-04_JPRB,3.7785E-04_JPRB,1.7737E-03_JPRB,2.5236E-03_JPRB,3.0255E-03_JPRB,2.7972E-03_JPRB/)  
+KBO( :, 3,30, 3) = (/&
+ & 3.4538E-04_JPRB,4.0017E-04_JPRB,1.8036E-03_JPRB,2.5406E-03_JPRB,3.0269E-03_JPRB,2.7870E-03_JPRB/)  
+KBO( :, 4,30, 3) = (/&
+ & 3.6935E-04_JPRB,4.2673E-04_JPRB,1.8286E-03_JPRB,2.5529E-03_JPRB,3.0186E-03_JPRB,2.7615E-03_JPRB/)  
+KBO( :, 5,30, 3) = (/&
+ & 3.9676E-04_JPRB,4.5608E-04_JPRB,1.8513E-03_JPRB,2.5584E-03_JPRB,3.0040E-03_JPRB,2.7242E-03_JPRB/)  
+KBO( :, 1,31, 3) = (/&
+ & 2.5900E-04_JPRB,3.0066E-04_JPRB,1.4406E-03_JPRB,2.0618E-03_JPRB,2.4773E-03_JPRB,2.2948E-03_JPRB/)  
+KBO( :, 2,31, 3) = (/&
+ & 2.7261E-04_JPRB,3.1655E-04_JPRB,1.4684E-03_JPRB,2.0810E-03_JPRB,2.4873E-03_JPRB,2.2978E-03_JPRB/)  
+KBO( :, 3,31, 3) = (/&
+ & 2.9037E-04_JPRB,3.3669E-04_JPRB,1.4928E-03_JPRB,2.0966E-03_JPRB,2.4881E-03_JPRB,2.2878E-03_JPRB/)  
+KBO( :, 4,31, 3) = (/&
+ & 3.1154E-04_JPRB,3.5979E-04_JPRB,1.5138E-03_JPRB,2.1064E-03_JPRB,2.4823E-03_JPRB,2.2654E-03_JPRB/)  
+KBO( :, 5,31, 3) = (/&
+ & 3.3507E-04_JPRB,3.8509E-04_JPRB,1.5342E-03_JPRB,2.1116E-03_JPRB,2.4709E-03_JPRB,2.2338E-03_JPRB/)  
+KBO( :, 1,32, 3) = (/&
+ & 2.1614E-04_JPRB,2.5126E-04_JPRB,1.1930E-03_JPRB,1.7007E-03_JPRB,2.0381E-03_JPRB,1.8878E-03_JPRB/)  
+KBO( :, 2,32, 3) = (/&
+ & 2.2861E-04_JPRB,2.6571E-04_JPRB,1.2162E-03_JPRB,1.7180E-03_JPRB,2.0460E-03_JPRB,1.8890E-03_JPRB/)  
+KBO( :, 3,32, 3) = (/&
+ & 2.4457E-04_JPRB,2.8365E-04_JPRB,1.2363E-03_JPRB,1.7307E-03_JPRB,2.0470E-03_JPRB,1.8790E-03_JPRB/)  
+KBO( :, 4,32, 3) = (/&
+ & 2.6297E-04_JPRB,3.0364E-04_JPRB,1.2543E-03_JPRB,1.7385E-03_JPRB,2.0430E-03_JPRB,1.8594E-03_JPRB/)  
+KBO( :, 5,32, 3) = (/&
+ & 2.8320E-04_JPRB,3.2527E-04_JPRB,1.2726E-03_JPRB,1.7439E-03_JPRB,2.0334E-03_JPRB,1.8328E-03_JPRB/)  
+KBO( :, 1,33, 3) = (/&
+ & 1.8077E-04_JPRB,2.1039E-04_JPRB,9.8840E-04_JPRB,1.4043E-03_JPRB,1.6777E-03_JPRB,1.5543E-03_JPRB/)  
+KBO( :, 2,33, 3) = (/&
+ & 1.9220E-04_JPRB,2.2350E-04_JPRB,1.0074E-03_JPRB,1.4187E-03_JPRB,1.6838E-03_JPRB,1.5538E-03_JPRB/)  
+KBO( :, 3,33, 3) = (/&
+ & 2.0626E-04_JPRB,2.3918E-04_JPRB,1.0244E-03_JPRB,1.4289E-03_JPRB,1.6852E-03_JPRB,1.5443E-03_JPRB/)  
+KBO( :, 4,33, 3) = (/&
+ & 2.2215E-04_JPRB,2.5639E-04_JPRB,1.0403E-03_JPRB,1.4356E-03_JPRB,1.6818E-03_JPRB,1.5277E-03_JPRB/)  
+KBO( :, 5,33, 3) = (/&
+ & 2.3958E-04_JPRB,2.7494E-04_JPRB,1.0565E-03_JPRB,1.4410E-03_JPRB,1.6741E-03_JPRB,1.5054E-03_JPRB/)  
+KBO( :, 1,34, 3) = (/&
+ & 1.5119E-04_JPRB,1.7609E-04_JPRB,8.1855E-04_JPRB,1.1596E-03_JPRB,1.3812E-03_JPRB,1.2791E-03_JPRB/)  
+KBO( :, 2,34, 3) = (/&
+ & 1.6145E-04_JPRB,1.8785E-04_JPRB,8.3425E-04_JPRB,1.1712E-03_JPRB,1.3866E-03_JPRB,1.2773E-03_JPRB/)  
+KBO( :, 3,34, 3) = (/&
+ & 1.7367E-04_JPRB,2.0133E-04_JPRB,8.4883E-04_JPRB,1.1799E-03_JPRB,1.3882E-03_JPRB,1.2691E-03_JPRB/)  
+KBO( :, 4,34, 3) = (/&
+ & 1.8734E-04_JPRB,2.1609E-04_JPRB,8.6307E-04_JPRB,1.1863E-03_JPRB,1.3855E-03_JPRB,1.2550E-03_JPRB/)  
+KBO( :, 5,34, 3) = (/&
+ & 2.0225E-04_JPRB,2.3202E-04_JPRB,8.7752E-04_JPRB,1.1920E-03_JPRB,1.3795E-03_JPRB,1.2363E-03_JPRB/)  
+KBO( :, 1,35, 3) = (/&
+ & 1.2586E-04_JPRB,1.4671E-04_JPRB,6.7658E-04_JPRB,9.5649E-04_JPRB,1.1370E-03_JPRB,1.0523E-03_JPRB/)  
+KBO( :, 2,35, 3) = (/&
+ & 1.3479E-04_JPRB,1.5694E-04_JPRB,6.9016E-04_JPRB,9.6658E-04_JPRB,1.1423E-03_JPRB,1.0509E-03_JPRB/)  
+KBO( :, 3,35, 3) = (/&
+ & 1.4527E-04_JPRB,1.6840E-04_JPRB,7.0251E-04_JPRB,9.7407E-04_JPRB,1.1435E-03_JPRB,1.0441E-03_JPRB/)  
+KBO( :, 4,35, 3) = (/&
+ & 1.5691E-04_JPRB,1.8098E-04_JPRB,7.1533E-04_JPRB,9.8058E-04_JPRB,1.1418E-03_JPRB,1.0326E-03_JPRB/)  
+KBO( :, 5,35, 3) = (/&
+ & 1.6957E-04_JPRB,1.9459E-04_JPRB,7.2799E-04_JPRB,9.8636E-04_JPRB,1.1378E-03_JPRB,1.0171E-03_JPRB/)  
+KBO( :, 1,36, 3) = (/&
+ & 1.0414E-04_JPRB,1.2151E-04_JPRB,5.5801E-04_JPRB,7.8827E-04_JPRB,9.3599E-04_JPRB,8.6559E-04_JPRB/)  
+KBO( :, 2,36, 3) = (/&
+ & 1.1170E-04_JPRB,1.3016E-04_JPRB,5.6976E-04_JPRB,7.9724E-04_JPRB,9.4085E-04_JPRB,8.6498E-04_JPRB/)  
+KBO( :, 3,36, 3) = (/&
+ & 1.2056E-04_JPRB,1.3986E-04_JPRB,5.8091E-04_JPRB,8.0448E-04_JPRB,9.4273E-04_JPRB,8.5997E-04_JPRB/)  
+KBO( :, 4,36, 3) = (/&
+ & 1.3038E-04_JPRB,1.5047E-04_JPRB,5.9203E-04_JPRB,8.1040E-04_JPRB,9.4179E-04_JPRB,8.5084E-04_JPRB/)  
+KBO( :, 5,36, 3) = (/&
+ & 1.4104E-04_JPRB,1.6199E-04_JPRB,6.0308E-04_JPRB,8.1605E-04_JPRB,9.3933E-04_JPRB,8.3818E-04_JPRB/)  
+KBO( :, 1,37, 3) = (/&
+ & 8.5323E-05_JPRB,9.9664E-05_JPRB,4.5884E-04_JPRB,6.4852E-04_JPRB,7.6974E-04_JPRB,7.1141E-04_JPRB/)  
+KBO( :, 2,37, 3) = (/&
+ & 9.1527E-05_JPRB,1.0682E-04_JPRB,4.6909E-04_JPRB,6.5669E-04_JPRB,7.7467E-04_JPRB,7.1194E-04_JPRB/)  
+KBO( :, 3,37, 3) = (/&
+ & 9.8871E-05_JPRB,1.1487E-04_JPRB,4.7886E-04_JPRB,6.6345E-04_JPRB,7.7695E-04_JPRB,7.0849E-04_JPRB/)  
+KBO( :, 4,37, 3) = (/&
+ & 1.0704E-04_JPRB,1.2374E-04_JPRB,4.8883E-04_JPRB,6.6930E-04_JPRB,7.7737E-04_JPRB,7.0168E-04_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART15',1,ZHOOK_HANDLE)
+END SUBROUTINE PART15
+
+
+SUBROUTINE PART16
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART16',0,ZHOOK_HANDLE)
+
+
+KBO( :, 5,37, 3) = (/&
+ & 1.1597E-04_JPRB,1.3339E-04_JPRB,4.9841E-04_JPRB,6.7481E-04_JPRB,7.7624E-04_JPRB,6.9182E-04_JPRB/)  
+KBO( :, 1,38, 3) = (/&
+ & 6.9864E-05_JPRB,8.1702E-05_JPRB,3.7720E-04_JPRB,5.3356E-04_JPRB,6.3309E-04_JPRB,5.8498E-04_JPRB/)  
+KBO( :, 2,38, 3) = (/&
+ & 7.4949E-05_JPRB,8.7605E-05_JPRB,3.8612E-04_JPRB,5.4085E-04_JPRB,6.3774E-04_JPRB,5.8615E-04_JPRB/)  
+KBO( :, 3,38, 3) = (/&
+ & 8.1032E-05_JPRB,9.4290E-05_JPRB,3.9469E-04_JPRB,5.4710E-04_JPRB,6.4046E-04_JPRB,5.8424E-04_JPRB/)  
+KBO( :, 4,38, 3) = (/&
+ & 8.7830E-05_JPRB,1.0169E-04_JPRB,4.0337E-04_JPRB,5.5261E-04_JPRB,6.4155E-04_JPRB,5.7913E-04_JPRB/)  
+KBO( :, 5,38, 3) = (/&
+ & 9.5293E-05_JPRB,1.0978E-04_JPRB,4.1177E-04_JPRB,5.5788E-04_JPRB,6.4154E-04_JPRB,5.7166E-04_JPRB/)  
+KBO( :, 1,39, 3) = (/&
+ & 5.7197E-05_JPRB,6.6973E-05_JPRB,3.1005E-04_JPRB,4.3874E-04_JPRB,5.2056E-04_JPRB,4.8131E-04_JPRB/)  
+KBO( :, 2,39, 3) = (/&
+ & 6.1371E-05_JPRB,7.1842E-05_JPRB,3.1779E-04_JPRB,4.4531E-04_JPRB,5.2502E-04_JPRB,4.8298E-04_JPRB/)  
+KBO( :, 3,39, 3) = (/&
+ & 6.6407E-05_JPRB,7.7394E-05_JPRB,3.2540E-04_JPRB,4.5115E-04_JPRB,5.2799E-04_JPRB,4.8215E-04_JPRB/)  
+KBO( :, 4,39, 3) = (/&
+ & 7.2064E-05_JPRB,8.3560E-05_JPRB,3.3301E-04_JPRB,4.5632E-04_JPRB,5.2961E-04_JPRB,4.7858E-04_JPRB/)  
+KBO( :, 5,39, 3) = (/&
+ & 7.8303E-05_JPRB,9.0355E-05_JPRB,3.4035E-04_JPRB,4.6134E-04_JPRB,5.3031E-04_JPRB,4.7308E-04_JPRB/)  
+KBO( :, 1,40, 3) = (/&
+ & 4.6522E-05_JPRB,5.4522E-05_JPRB,2.5421E-04_JPRB,3.6027E-04_JPRB,4.2767E-04_JPRB,3.9473E-04_JPRB/)  
+KBO( :, 2,40, 3) = (/&
+ & 4.9863E-05_JPRB,5.8471E-05_JPRB,2.6092E-04_JPRB,3.6612E-04_JPRB,4.3197E-04_JPRB,3.9681E-04_JPRB/)  
+KBO( :, 3,40, 3) = (/&
+ & 5.3968E-05_JPRB,6.3027E-05_JPRB,2.6757E-04_JPRB,3.7152E-04_JPRB,4.3513E-04_JPRB,3.9683E-04_JPRB/)  
+KBO( :, 4,40, 3) = (/&
+ & 5.8623E-05_JPRB,6.8126E-05_JPRB,2.7426E-04_JPRB,3.7636E-04_JPRB,4.3711E-04_JPRB,3.9452E-04_JPRB/)  
+KBO( :, 5,40, 3) = (/&
+ & 6.3789E-05_JPRB,7.3766E-05_JPRB,2.8070E-04_JPRB,3.8106E-04_JPRB,4.3831E-04_JPRB,3.9053E-04_JPRB/)  
+KBO( :, 1,41, 3) = (/&
+ & 3.7804E-05_JPRB,4.4333E-05_JPRB,2.0821E-04_JPRB,2.9549E-04_JPRB,3.5103E-04_JPRB,3.2341E-04_JPRB/)  
+KBO( :, 2,41, 3) = (/&
+ & 4.0492E-05_JPRB,4.7550E-05_JPRB,2.1408E-04_JPRB,3.0089E-04_JPRB,3.5532E-04_JPRB,3.2587E-04_JPRB/)  
+KBO( :, 3,41, 3) = (/&
+ & 4.3795E-05_JPRB,5.1265E-05_JPRB,2.1987E-04_JPRB,3.0577E-04_JPRB,3.5843E-04_JPRB,3.2638E-04_JPRB/)  
+KBO( :, 4,41, 3) = (/&
+ & 4.7619E-05_JPRB,5.5462E-05_JPRB,2.2575E-04_JPRB,3.1023E-04_JPRB,3.6066E-04_JPRB,3.2506E-04_JPRB/)  
+KBO( :, 5,41, 3) = (/&
+ & 5.1898E-05_JPRB,6.0154E-05_JPRB,2.3138E-04_JPRB,3.1463E-04_JPRB,3.6219E-04_JPRB,3.2225E-04_JPRB/)  
+KBO( :, 1,42, 3) = (/&
+ & 3.0725E-05_JPRB,3.6043E-05_JPRB,1.7048E-04_JPRB,2.4228E-04_JPRB,2.8802E-04_JPRB,2.6497E-04_JPRB/)  
+KBO( :, 2,42, 3) = (/&
+ & 3.2881E-05_JPRB,3.8663E-05_JPRB,1.7559E-04_JPRB,2.4716E-04_JPRB,2.9210E-04_JPRB,2.6748E-04_JPRB/)  
+KBO( :, 3,42, 3) = (/&
+ & 3.5527E-05_JPRB,4.1681E-05_JPRB,1.8062E-04_JPRB,2.5152E-04_JPRB,2.9511E-04_JPRB,2.6841E-04_JPRB/)  
+KBO( :, 4,42, 3) = (/&
+ & 3.8664E-05_JPRB,4.5134E-05_JPRB,1.8577E-04_JPRB,2.5564E-04_JPRB,2.9747E-04_JPRB,2.6786E-04_JPRB/)  
+KBO( :, 5,42, 3) = (/&
+ & 4.2195E-05_JPRB,4.9021E-05_JPRB,1.9068E-04_JPRB,2.5970E-04_JPRB,2.9919E-04_JPRB,2.6599E-04_JPRB/)  
+KBO( :, 1,43, 3) = (/&
+ & 2.4891E-05_JPRB,2.9187E-05_JPRB,1.3928E-04_JPRB,1.9831E-04_JPRB,2.3592E-04_JPRB,2.1675E-04_JPRB/)  
+KBO( :, 2,43, 3) = (/&
+ & 2.6593E-05_JPRB,3.1301E-05_JPRB,1.4374E-04_JPRB,2.0272E-04_JPRB,2.3983E-04_JPRB,2.1942E-04_JPRB/)  
+KBO( :, 3,43, 3) = (/&
+ & 2.8690E-05_JPRB,3.3747E-05_JPRB,1.4810E-04_JPRB,2.0668E-04_JPRB,2.4285E-04_JPRB,2.2071E-04_JPRB/)  
+KBO( :, 4,43, 3) = (/&
+ & 3.1232E-05_JPRB,3.6547E-05_JPRB,1.5256E-04_JPRB,2.1038E-04_JPRB,2.4515E-04_JPRB,2.2071E-04_JPRB/)  
+KBO( :, 5,43, 3) = (/&
+ & 3.4120E-05_JPRB,3.9743E-05_JPRB,1.5683E-04_JPRB,2.1407E-04_JPRB,2.4696E-04_JPRB,2.1958E-04_JPRB/)  
+KBO( :, 1,44, 3) = (/&
+ & 2.0144E-05_JPRB,2.3605E-05_JPRB,1.1366E-04_JPRB,1.6217E-04_JPRB,1.9304E-04_JPRB,1.7720E-04_JPRB/)  
+KBO( :, 2,44, 3) = (/&
+ & 2.1468E-05_JPRB,2.5288E-05_JPRB,1.1746E-04_JPRB,1.6601E-04_JPRB,1.9664E-04_JPRB,1.7978E-04_JPRB/)  
+KBO( :, 3,44, 3) = (/&
+ & 2.3117E-05_JPRB,2.7255E-05_JPRB,1.2127E-04_JPRB,1.6962E-04_JPRB,1.9955E-04_JPRB,1.8133E-04_JPRB/)  
+KBO( :, 4,44, 3) = (/&
+ & 2.5167E-05_JPRB,2.9525E-05_JPRB,1.2515E-04_JPRB,1.7298E-04_JPRB,2.0188E-04_JPRB,1.8182E-04_JPRB/)  
+KBO( :, 5,44, 3) = (/&
+ & 2.7509E-05_JPRB,3.2133E-05_JPRB,1.2890E-04_JPRB,1.7631E-04_JPRB,2.0373E-04_JPRB,1.8128E-04_JPRB/)  
+KBO( :, 1,45, 3) = (/&
+ & 1.6315E-05_JPRB,1.9099E-05_JPRB,9.2658E-05_JPRB,1.3247E-04_JPRB,1.5777E-04_JPRB,1.4481E-04_JPRB/)  
+KBO( :, 2,45, 3) = (/&
+ & 1.7341E-05_JPRB,2.0427E-05_JPRB,9.5960E-05_JPRB,1.3596E-04_JPRB,1.6122E-04_JPRB,1.4738E-04_JPRB/)  
+KBO( :, 3,45, 3) = (/&
+ & 1.8647E-05_JPRB,2.2022E-05_JPRB,9.9238E-05_JPRB,1.3912E-04_JPRB,1.6388E-04_JPRB,1.4901E-04_JPRB/)  
+KBO( :, 4,45, 3) = (/&
+ & 2.0262E-05_JPRB,2.3840E-05_JPRB,1.0260E-04_JPRB,1.4211E-04_JPRB,1.6610E-04_JPRB,1.4980E-04_JPRB/)  
+KBO( :, 5,45, 3) = (/&
+ & 2.2167E-05_JPRB,2.5969E-05_JPRB,1.0588E-04_JPRB,1.4512E-04_JPRB,1.6796E-04_JPRB,1.4976E-04_JPRB/)  
+KBO( :, 1,46, 3) = (/&
+ & 1.3211E-05_JPRB,1.5446E-05_JPRB,7.5427E-05_JPRB,1.0806E-04_JPRB,1.2876E-04_JPRB,1.1821E-04_JPRB/)  
+KBO( :, 2,46, 3) = (/&
+ & 1.3990E-05_JPRB,1.6470E-05_JPRB,7.8248E-05_JPRB,1.1113E-04_JPRB,1.3193E-04_JPRB,1.2064E-04_JPRB/)  
+KBO( :, 3,46, 3) = (/&
+ & 1.5013E-05_JPRB,1.7753E-05_JPRB,8.1102E-05_JPRB,1.1397E-04_JPRB,1.3444E-04_JPRB,1.2234E-04_JPRB/)  
+KBO( :, 4,46, 3) = (/&
+ & 1.6277E-05_JPRB,1.9210E-05_JPRB,8.3980E-05_JPRB,1.1663E-04_JPRB,1.3652E-04_JPRB,1.2338E-04_JPRB/)  
+KBO( :, 5,46, 3) = (/&
+ & 1.7816E-05_JPRB,2.0932E-05_JPRB,8.6856E-05_JPRB,1.1931E-04_JPRB,1.3833E-04_JPRB,1.2371E-04_JPRB/)  
+KBO( :, 1,47, 3) = (/&
+ & 1.0695E-05_JPRB,1.2476E-05_JPRB,6.1245E-05_JPRB,8.7921E-05_JPRB,1.0481E-04_JPRB,9.6236E-05_JPRB/)  
+KBO( :, 2,47, 3) = (/&
+ & 1.1263E-05_JPRB,1.3243E-05_JPRB,6.3648E-05_JPRB,9.0656E-05_JPRB,1.0772E-04_JPRB,9.8519E-05_JPRB/)  
+KBO( :, 3,47, 3) = (/&
+ & 1.2048E-05_JPRB,1.4259E-05_JPRB,6.6115E-05_JPRB,9.3168E-05_JPRB,1.1009E-04_JPRB,1.0023E-04_JPRB/)  
+KBO( :, 4,47, 3) = (/&
+ & 1.3032E-05_JPRB,1.5427E-05_JPRB,6.8598E-05_JPRB,9.5568E-05_JPRB,1.1206E-04_JPRB,1.0142E-04_JPRB/)  
+KBO( :, 5,47, 3) = (/&
+ & 1.4254E-05_JPRB,1.6795E-05_JPRB,7.1096E-05_JPRB,9.7934E-05_JPRB,1.1379E-04_JPRB,1.0199E-04_JPRB/)  
+KBO( :, 1,48, 3) = (/&
+ & 8.6841E-06_JPRB,1.0096E-05_JPRB,4.9694E-05_JPRB,7.1452E-05_JPRB,8.5259E-05_JPRB,7.8307E-05_JPRB/)  
+KBO( :, 2,48, 3) = (/&
+ & 9.0796E-06_JPRB,1.0659E-05_JPRB,5.1740E-05_JPRB,7.3900E-05_JPRB,8.7875E-05_JPRB,8.0451E-05_JPRB/)  
+KBO( :, 3,48, 3) = (/&
+ & 9.6769E-06_JPRB,1.1450E-05_JPRB,5.3831E-05_JPRB,7.6095E-05_JPRB,9.0067E-05_JPRB,8.2117E-05_JPRB/)  
+KBO( :, 4,48, 3) = (/&
+ & 1.0440E-05_JPRB,1.2385E-05_JPRB,5.5960E-05_JPRB,7.8221E-05_JPRB,9.1891E-05_JPRB,8.3379E-05_JPRB/)  
+KBO( :, 5,48, 3) = (/&
+ & 1.1399E-05_JPRB,1.3468E-05_JPRB,5.8115E-05_JPRB,8.0301E-05_JPRB,9.3494E-05_JPRB,8.4132E-05_JPRB/)  
+KBO( :, 1,49, 3) = (/&
+ & 7.0695E-06_JPRB,8.1883E-06_JPRB,4.0270E-05_JPRB,5.7981E-05_JPRB,6.9259E-05_JPRB,6.3681E-05_JPRB/)  
+KBO( :, 2,49, 3) = (/&
+ & 7.3322E-06_JPRB,8.5897E-06_JPRB,4.2014E-05_JPRB,6.0156E-05_JPRB,7.1569E-05_JPRB,6.5714E-05_JPRB/)  
+KBO( :, 3,49, 3) = (/&
+ & 7.7779E-06_JPRB,9.1932E-06_JPRB,4.3778E-05_JPRB,6.2075E-05_JPRB,7.3581E-05_JPRB,6.7311E-05_JPRB/)  
+KBO( :, 4,49, 3) = (/&
+ & 8.3667E-06_JPRB,9.9391E-06_JPRB,4.5605E-05_JPRB,6.3945E-05_JPRB,7.5254E-05_JPRB,6.8602E-05_JPRB/)  
+KBO( :, 5,49, 3) = (/&
+ & 9.1100E-06_JPRB,1.0797E-05_JPRB,4.7455E-05_JPRB,6.5783E-05_JPRB,7.6741E-05_JPRB,6.9496E-05_JPRB/)  
+KBO( :, 1,50, 3) = (/&
+ & 5.7666E-06_JPRB,6.6617E-06_JPRB,3.2634E-05_JPRB,4.7026E-05_JPRB,5.6231E-05_JPRB,5.1646E-05_JPRB/)  
+KBO( :, 2,50, 3) = (/&
+ & 5.9413E-06_JPRB,6.9423E-06_JPRB,3.4121E-05_JPRB,4.8951E-05_JPRB,5.8275E-05_JPRB,5.3533E-05_JPRB/)  
+KBO( :, 3,50, 3) = (/&
+ & 6.2683E-06_JPRB,7.3972E-06_JPRB,3.5607E-05_JPRB,5.0641E-05_JPRB,6.0090E-05_JPRB,5.4999E-05_JPRB/)  
+KBO( :, 4,50, 3) = (/&
+ & 6.7199E-06_JPRB,7.9879E-06_JPRB,3.7167E-05_JPRB,5.2275E-05_JPRB,6.1608E-05_JPRB,5.6235E-05_JPRB/)  
+KBO( :, 5,50, 3) = (/&
+ & 7.3034E-06_JPRB,8.6808E-06_JPRB,3.8757E-05_JPRB,5.3881E-05_JPRB,6.2968E-05_JPRB,5.7167E-05_JPRB/)  
+KBO( :, 1,51, 3) = (/&
+ & 4.7086E-06_JPRB,5.4299E-06_JPRB,2.6424E-05_JPRB,3.8115E-05_JPRB,4.5610E-05_JPRB,4.1794E-05_JPRB/)  
+KBO( :, 2,51, 3) = (/&
+ & 4.8287E-06_JPRB,5.6240E-06_JPRB,2.7697E-05_JPRB,3.9799E-05_JPRB,4.7412E-05_JPRB,4.3512E-05_JPRB/)  
+KBO( :, 3,51, 3) = (/&
+ & 5.0606E-06_JPRB,5.9604E-06_JPRB,2.8952E-05_JPRB,4.1290E-05_JPRB,4.9031E-05_JPRB,4.4849E-05_JPRB/)  
+KBO( :, 4,51, 3) = (/&
+ & 5.4065E-06_JPRB,6.4263E-06_JPRB,3.0283E-05_JPRB,4.2717E-05_JPRB,5.0424E-05_JPRB,4.5995E-05_JPRB/)  
+KBO( :, 5,51, 3) = (/&
+ & 5.8615E-06_JPRB,6.9820E-06_JPRB,3.1641E-05_JPRB,4.4120E-05_JPRB,5.1647E-05_JPRB,4.6912E-05_JPRB/)  
+KBO( :, 1,52, 3) = (/&
+ & 3.8436E-06_JPRB,4.4274E-06_JPRB,2.1373E-05_JPRB,3.0858E-05_JPRB,3.6953E-05_JPRB,3.3785E-05_JPRB/)  
+KBO( :, 2,52, 3) = (/&
+ & 3.9328E-06_JPRB,4.5651E-06_JPRB,2.2468E-05_JPRB,3.2320E-05_JPRB,3.8527E-05_JPRB,3.5353E-05_JPRB/)  
+KBO( :, 3,52, 3) = (/&
+ & 4.0914E-06_JPRB,4.8085E-06_JPRB,2.3521E-05_JPRB,3.3631E-05_JPRB,3.9963E-05_JPRB,3.6585E-05_JPRB/)  
+KBO( :, 4,52, 3) = (/&
+ & 4.3531E-06_JPRB,5.1701E-06_JPRB,2.4643E-05_JPRB,3.4861E-05_JPRB,4.1208E-05_JPRB,3.7630E-05_JPRB/)  
+KBO( :, 5,52, 3) = (/&
+ & 4.7050E-06_JPRB,5.6131E-06_JPRB,2.5801E-05_JPRB,3.6084E-05_JPRB,4.2308E-05_JPRB,3.8507E-05_JPRB/)  
+KBO( :, 1,53, 3) = (/&
+ & 3.1307E-06_JPRB,3.6090E-06_JPRB,1.7271E-05_JPRB,2.4948E-05_JPRB,2.9905E-05_JPRB,2.7291E-05_JPRB/)  
+KBO( :, 2,53, 3) = (/&
+ & 3.2062E-06_JPRB,3.7126E-06_JPRB,1.8207E-05_JPRB,2.6210E-05_JPRB,3.1263E-05_JPRB,2.8728E-05_JPRB/)  
+KBO( :, 3,53, 3) = (/&
+ & 3.3144E-06_JPRB,3.8844E-06_JPRB,1.9096E-05_JPRB,2.7367E-05_JPRB,3.2548E-05_JPRB,2.9869E-05_JPRB/)  
+KBO( :, 4,53, 3) = (/&
+ & 3.5077E-06_JPRB,4.1595E-06_JPRB,2.0034E-05_JPRB,2.8427E-05_JPRB,3.3652E-05_JPRB,3.0823E-05_JPRB/)  
+KBO( :, 5,53, 3) = (/&
+ & 3.7772E-06_JPRB,4.5101E-06_JPRB,2.1018E-05_JPRB,2.9487E-05_JPRB,3.4629E-05_JPRB,3.1664E-05_JPRB/)  
+KBO( :, 1,54, 3) = (/&
+ & 2.5452E-06_JPRB,2.9417E-06_JPRB,1.3965E-05_JPRB,2.0178E-05_JPRB,2.4209E-05_JPRB,2.1911E-05_JPRB/)  
+KBO( :, 2,54, 3) = (/&
+ & 2.6173E-06_JPRB,3.0265E-06_JPRB,1.4760E-05_JPRB,2.1266E-05_JPRB,2.5377E-05_JPRB,2.3188E-05_JPRB/)  
+KBO( :, 3,54, 3) = (/&
+ & 2.6943E-06_JPRB,3.1475E-06_JPRB,1.5512E-05_JPRB,2.2269E-05_JPRB,2.6497E-05_JPRB,2.4193E-05_JPRB/)  
+KBO( :, 4,54, 3) = (/&
+ & 2.8346E-06_JPRB,3.3549E-06_JPRB,1.6295E-05_JPRB,2.3183E-05_JPRB,2.7474E-05_JPRB,2.5015E-05_JPRB/)  
+KBO( :, 5,54, 3) = (/&
+ & 3.0408E-06_JPRB,3.6324E-06_JPRB,1.7127E-05_JPRB,2.4100E-05_JPRB,2.8339E-05_JPRB,2.5745E-05_JPRB/)  
+KBO( :, 1,55, 3) = (/&
+ & 2.0632E-06_JPRB,2.3940E-06_JPRB,1.1296E-05_JPRB,1.6316E-05_JPRB,1.9586E-05_JPRB,1.7519E-05_JPRB/)  
+KBO( :, 2,55, 3) = (/&
+ & 2.1373E-06_JPRB,2.4691E-06_JPRB,1.1961E-05_JPRB,1.7242E-05_JPRB,2.0583E-05_JPRB,1.8621E-05_JPRB/)  
+KBO( :, 3,55, 3) = (/&
+ & 2.1949E-06_JPRB,2.5561E-06_JPRB,1.2600E-05_JPRB,1.8111E-05_JPRB,2.1559E-05_JPRB,1.9499E-05_JPRB/)  
+KBO( :, 4,55, 3) = (/&
+ & 2.2950E-06_JPRB,2.7109E-06_JPRB,1.3250E-05_JPRB,1.8899E-05_JPRB,2.2414E-05_JPRB,2.0198E-05_JPRB/)  
+KBO( :, 5,55, 3) = (/&
+ & 2.4530E-06_JPRB,2.9291E-06_JPRB,1.3951E-05_JPRB,1.9686E-05_JPRB,2.3177E-05_JPRB,2.0800E-05_JPRB/)  
+KBO( :, 1,56, 3) = (/&
+ & 1.6642E-06_JPRB,1.9426E-06_JPRB,9.1341E-06_JPRB,1.3181E-05_JPRB,1.5829E-05_JPRB,1.3992E-05_JPRB/)  
+KBO( :, 2,56, 3) = (/&
+ & 1.7429E-06_JPRB,2.0139E-06_JPRB,9.6851E-06_JPRB,1.3963E-05_JPRB,1.6681E-05_JPRB,1.4936E-05_JPRB/)  
+KBO( :, 3,56, 3) = (/&
+ & 1.7896E-06_JPRB,2.0795E-06_JPRB,1.0225E-05_JPRB,1.4716E-05_JPRB,1.7517E-05_JPRB,1.5702E-05_JPRB/)  
+KBO( :, 4,56, 3) = (/&
+ & 1.8607E-06_JPRB,2.1923E-06_JPRB,1.0768E-05_JPRB,1.5397E-05_JPRB,1.8274E-05_JPRB,1.6306E-05_JPRB/)  
+KBO( :, 5,56, 3) = (/&
+ & 1.9799E-06_JPRB,2.3617E-06_JPRB,1.1356E-05_JPRB,1.6070E-05_JPRB,1.8948E-05_JPRB,1.6801E-05_JPRB/)  
+KBO( :, 1,57, 3) = (/&
+ & 1.3353E-06_JPRB,1.5730E-06_JPRB,7.3811E-06_JPRB,1.0640E-05_JPRB,1.2777E-05_JPRB,1.1158E-05_JPRB/)  
+KBO( :, 2,57, 3) = (/&
+ & 1.4179E-06_JPRB,1.6416E-06_JPRB,7.8345E-06_JPRB,1.1296E-05_JPRB,1.3506E-05_JPRB,1.1962E-05_JPRB/)  
+KBO( :, 3,57, 3) = (/&
+ & 1.4599E-06_JPRB,1.6939E-06_JPRB,8.2917E-06_JPRB,1.1945E-05_JPRB,1.4220E-05_JPRB,1.2633E-05_JPRB/)  
+KBO( :, 4,57, 3) = (/&
+ & 1.5112E-06_JPRB,1.7747E-06_JPRB,8.7450E-06_JPRB,1.2531E-05_JPRB,1.4885E-05_JPRB,1.3158E-05_JPRB/)  
+KBO( :, 5,57, 3) = (/&
+ & 1.5993E-06_JPRB,1.9047E-06_JPRB,9.2362E-06_JPRB,1.3103E-05_JPRB,1.5471E-05_JPRB,1.3571E-05_JPRB/)  
+KBO( :, 1,58, 3) = (/&
+ & 1.0682E-06_JPRB,1.2707E-06_JPRB,5.9673E-06_JPRB,8.5915E-06_JPRB,1.0313E-05_JPRB,8.8875E-06_JPRB/)  
+KBO( :, 2,58, 3) = (/&
+ & 1.1510E-06_JPRB,1.3372E-06_JPRB,6.3383E-06_JPRB,9.1371E-06_JPRB,1.0932E-05_JPRB,9.5717E-06_JPRB/)  
+KBO( :, 3,58, 3) = (/&
+ & 1.1918E-06_JPRB,1.3813E-06_JPRB,6.7246E-06_JPRB,9.6935E-06_JPRB,1.1539E-05_JPRB,1.0149E-05_JPRB/)  
+KBO( :, 4,58, 3) = (/&
+ & 1.2303E-06_JPRB,1.4399E-06_JPRB,7.1031E-06_JPRB,1.0198E-05_JPRB,1.2120E-05_JPRB,1.0603E-05_JPRB/)  
+KBO( :, 5,58, 3) = (/&
+ & 1.2943E-06_JPRB,1.5387E-06_JPRB,7.5113E-06_JPRB,1.0682E-05_JPRB,1.2629E-05_JPRB,1.0955E-05_JPRB/)  
+KBO( :, 1,59, 3) = (/&
+ & 8.6844E-07_JPRB,1.0371E-06_JPRB,4.8749E-06_JPRB,7.0111E-06_JPRB,8.4115E-06_JPRB,7.1461E-06_JPRB/)  
+KBO( :, 2,59, 3) = (/&
+ & 9.4083E-07_JPRB,1.0954E-06_JPRB,5.1836E-06_JPRB,7.4691E-06_JPRB,8.9328E-06_JPRB,7.7016E-06_JPRB/)  
+KBO( :, 3,59, 3) = (/&
+ & 9.7741E-07_JPRB,1.1331E-06_JPRB,5.5070E-06_JPRB,7.9393E-06_JPRB,9.4488E-06_JPRB,8.1607E-06_JPRB/)  
+KBO( :, 4,59, 3) = (/&
+ & 1.0092E-06_JPRB,1.1806E-06_JPRB,5.8246E-06_JPRB,8.3651E-06_JPRB,9.9432E-06_JPRB,8.5246E-06_JPRB/)  
+KBO( :, 5,59, 3) = (/&
+ & 1.0602E-06_JPRB,1.2608E-06_JPRB,6.1682E-06_JPRB,8.7778E-06_JPRB,1.0376E-05_JPRB,8.8030E-06_JPRB/)  
+KBO( :, 1,13, 4) = (/&
+ & 1.1944E-02_JPRB,1.2168E-02_JPRB,5.9922E-02_JPRB,8.9367E-02_JPRB,1.1074E-01_JPRB,1.1944E-01_JPRB/)  
+KBO( :, 2,13, 4) = (/&
+ & 1.2086E-02_JPRB,1.2304E-02_JPRB,6.1460E-02_JPRB,9.1456E-02_JPRB,1.1344E-01_JPRB,1.2412E-01_JPRB/)  
+KBO( :, 3,13, 4) = (/&
+ & 1.2357E-02_JPRB,1.2570E-02_JPRB,6.2887E-02_JPRB,9.3358E-02_JPRB,1.1570E-01_JPRB,1.2845E-01_JPRB/)  
+KBO( :, 4,13, 4) = (/&
+ & 1.2729E-02_JPRB,1.2937E-02_JPRB,6.4147E-02_JPRB,9.5013E-02_JPRB,1.1762E-01_JPRB,1.3226E-01_JPRB/)  
+KBO( :, 5,13, 4) = (/&
+ & 1.3238E-02_JPRB,1.3440E-02_JPRB,6.5153E-02_JPRB,9.6392E-02_JPRB,1.1918E-01_JPRB,1.3570E-01_JPRB/)  
+KBO( :, 1,14, 4) = (/&
+ & 1.0012E-02_JPRB,1.0247E-02_JPRB,5.2975E-02_JPRB,7.8942E-02_JPRB,9.7346E-02_JPRB,1.0368E-01_JPRB/)  
+KBO( :, 2,14, 4) = (/&
+ & 1.0180E-02_JPRB,1.0410E-02_JPRB,5.4409E-02_JPRB,8.0856E-02_JPRB,9.9740E-02_JPRB,1.0751E-01_JPRB/)  
+KBO( :, 3,14, 4) = (/&
+ & 1.0467E-02_JPRB,1.0689E-02_JPRB,5.5693E-02_JPRB,8.2579E-02_JPRB,1.0188E-01_JPRB,1.1093E-01_JPRB/)  
+KBO( :, 4,14, 4) = (/&
+ & 1.0854E-02_JPRB,1.1067E-02_JPRB,5.6775E-02_JPRB,8.4028E-02_JPRB,1.0368E-01_JPRB,1.1389E-01_JPRB/)  
+KBO( :, 5,14, 4) = (/&
+ & 1.1343E-02_JPRB,1.1549E-02_JPRB,5.7714E-02_JPRB,8.5292E-02_JPRB,1.0511E-01_JPRB,1.1652E-01_JPRB/)  
+KBO( :, 1,15, 4) = (/&
+ & 8.3778E-03_JPRB,8.6309E-03_JPRB,4.6498E-02_JPRB,6.9169E-02_JPRB,8.4926E-02_JPRB,8.9479E-02_JPRB/)  
+KBO( :, 2,15, 4) = (/&
+ & 8.5667E-03_JPRB,8.8101E-03_JPRB,4.7757E-02_JPRB,7.0912E-02_JPRB,8.7130E-02_JPRB,9.2622E-02_JPRB/)  
+KBO( :, 3,15, 4) = (/&
+ & 8.8588E-03_JPRB,9.0893E-03_JPRB,4.8864E-02_JPRB,7.2379E-02_JPRB,8.9054E-02_JPRB,9.5411E-02_JPRB/)  
+KBO( :, 4,15, 4) = (/&
+ & 9.2397E-03_JPRB,9.4599E-03_JPRB,4.9829E-02_JPRB,7.3692E-02_JPRB,9.0686E-02_JPRB,9.7794E-02_JPRB/)  
+KBO( :, 5,15, 4) = (/&
+ & 9.6728E-03_JPRB,9.8843E-03_JPRB,5.0711E-02_JPRB,7.4868E-02_JPRB,9.2000E-02_JPRB,9.9673E-02_JPRB/)  
+KBO( :, 1,16, 4) = (/&
+ & 7.0032E-03_JPRB,7.2800E-03_JPRB,4.0493E-02_JPRB,6.0087E-02_JPRB,7.3654E-02_JPRB,7.6847E-02_JPRB/)  
+KBO( :, 2,16, 4) = (/&
+ & 7.2046E-03_JPRB,7.4657E-03_JPRB,4.1559E-02_JPRB,6.1552E-02_JPRB,7.5591E-02_JPRB,7.9522E-02_JPRB/)  
+KBO( :, 3,16, 4) = (/&
+ & 7.4951E-03_JPRB,7.7408E-03_JPRB,4.2525E-02_JPRB,6.2872E-02_JPRB,7.7303E-02_JPRB,8.1850E-02_JPRB/)  
+KBO( :, 4,16, 4) = (/&
+ & 7.8374E-03_JPRB,8.0731E-03_JPRB,4.3431E-02_JPRB,6.4066E-02_JPRB,7.8697E-02_JPRB,8.3564E-02_JPRB/)  
+KBO( :, 5,16, 4) = (/&
+ & 8.2028E-03_JPRB,8.4261E-03_JPRB,4.4256E-02_JPRB,6.5005E-02_JPRB,7.9598E-02_JPRB,8.4430E-02_JPRB/)  
+KBO( :, 1,17, 4) = (/&
+ & 5.8518E-03_JPRB,6.1531E-03_JPRB,3.4959E-02_JPRB,5.1741E-02_JPRB,6.3466E-02_JPRB,6.5605E-02_JPRB/)  
+KBO( :, 2,17, 4) = (/&
+ & 6.0575E-03_JPRB,6.3417E-03_JPRB,3.5874E-02_JPRB,5.3013E-02_JPRB,6.5151E-02_JPRB,6.7823E-02_JPRB/)  
+KBO( :, 3,17, 4) = (/&
+ & 6.3232E-03_JPRB,6.5951E-03_JPRB,3.6761E-02_JPRB,5.4168E-02_JPRB,6.6560E-02_JPRB,6.9496E-02_JPRB/)  
+KBO( :, 4,17, 4) = (/&
+ & 6.6221E-03_JPRB,6.8782E-03_JPRB,3.7567E-02_JPRB,5.5100E-02_JPRB,6.7478E-02_JPRB,7.0358E-02_JPRB/)  
+KBO( :, 5,17, 4) = (/&
+ & 6.9347E-03_JPRB,7.1778E-03_JPRB,3.8256E-02_JPRB,5.5641E-02_JPRB,6.7818E-02_JPRB,7.0537E-02_JPRB/)  
+KBO( :, 1,18, 4) = (/&
+ & 4.8880E-03_JPRB,5.2055E-03_JPRB,2.9960E-02_JPRB,4.4255E-02_JPRB,5.4342E-02_JPRB,5.5684E-02_JPRB/)  
+KBO( :, 2,18, 4) = (/&
+ & 5.0836E-03_JPRB,5.3884E-03_JPRB,3.0780E-02_JPRB,4.5359E-02_JPRB,5.5706E-02_JPRB,5.7297E-02_JPRB/)  
+KBO( :, 3,18, 4) = (/&
+ & 5.3194E-03_JPRB,5.6126E-03_JPRB,3.1543E-02_JPRB,4.6238E-02_JPRB,5.6632E-02_JPRB,5.8242E-02_JPRB/)  
+KBO( :, 4,18, 4) = (/&
+ & 5.5796E-03_JPRB,5.8558E-03_JPRB,3.2190E-02_JPRB,4.6796E-02_JPRB,5.7064E-02_JPRB,5.8579E-02_JPRB/)  
+KBO( :, 5,18, 4) = (/&
+ & 5.8422E-03_JPRB,6.1083E-03_JPRB,3.2701E-02_JPRB,4.7066E-02_JPRB,5.7105E-02_JPRB,5.8483E-02_JPRB/)  
+KBO( :, 1,19, 4) = (/&
+ & 4.0830E-03_JPRB,4.4003E-03_JPRB,2.5536E-02_JPRB,3.7635E-02_JPRB,4.6188E-02_JPRB,4.6830E-02_JPRB/)  
+KBO( :, 2,19, 4) = (/&
+ & 4.2621E-03_JPRB,4.5739E-03_JPRB,2.6225E-02_JPRB,3.8473E-02_JPRB,4.7113E-02_JPRB,4.7821E-02_JPRB/)  
+KBO( :, 3,19, 4) = (/&
+ & 4.4701E-03_JPRB,4.7726E-03_JPRB,2.6827E-02_JPRB,3.9028E-02_JPRB,4.7627E-02_JPRB,4.8310E-02_JPRB/)  
+KBO( :, 4,19, 4) = (/&
+ & 4.6836E-03_JPRB,4.9742E-03_JPRB,2.7306E-02_JPRB,3.9355E-02_JPRB,4.7801E-02_JPRB,4.8408E-02_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART16',1,ZHOOK_HANDLE)
+END SUBROUTINE PART16
+
+
+SUBROUTINE PART17
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART17',0,ZHOOK_HANDLE)
+
+
+KBO( :, 5,19, 4) = (/&
+ & 4.9101E-03_JPRB,5.1908E-03_JPRB,2.7671E-02_JPRB,3.9547E-02_JPRB,4.7738E-02_JPRB,4.8196E-02_JPRB/)  
+KBO( :, 1,20, 4) = (/&
+ & 3.4183E-03_JPRB,3.7281E-03_JPRB,2.1635E-02_JPRB,3.1767E-02_JPRB,3.8910E-02_JPRB,3.9035E-02_JPRB/)  
+KBO( :, 2,20, 4) = (/&
+ & 3.5755E-03_JPRB,3.8847E-03_JPRB,2.2172E-02_JPRB,3.2321E-02_JPRB,3.9468E-02_JPRB,3.9630E-02_JPRB/)  
+KBO( :, 3,20, 4) = (/&
+ & 3.7470E-03_JPRB,4.0489E-03_JPRB,2.2621E-02_JPRB,3.2676E-02_JPRB,3.9755E-02_JPRB,3.9891E-02_JPRB/)  
+KBO( :, 4,20, 4) = (/&
+ & 3.9257E-03_JPRB,4.2203E-03_JPRB,2.2997E-02_JPRB,3.2924E-02_JPRB,3.9820E-02_JPRB,3.9868E-02_JPRB/)  
+KBO( :, 5,20, 4) = (/&
+ & 4.1248E-03_JPRB,4.4107E-03_JPRB,2.3239E-02_JPRB,3.3086E-02_JPRB,3.9734E-02_JPRB,3.9622E-02_JPRB/)  
+KBO( :, 1,21, 4) = (/&
+ & 2.8606E-03_JPRB,3.1596E-03_JPRB,1.8191E-02_JPRB,2.6601E-02_JPRB,3.2515E-02_JPRB,3.2317E-02_JPRB/)  
+KBO( :, 2,21, 4) = (/&
+ & 2.9928E-03_JPRB,3.2930E-03_JPRB,1.8598E-02_JPRB,2.6970E-02_JPRB,3.2866E-02_JPRB,3.2699E-02_JPRB/)  
+KBO( :, 3,21, 4) = (/&
+ & 3.1369E-03_JPRB,3.4309E-03_JPRB,1.8968E-02_JPRB,2.7247E-02_JPRB,3.3035E-02_JPRB,3.2834E-02_JPRB/)  
+KBO( :, 4,21, 4) = (/&
+ & 3.2911E-03_JPRB,3.5807E-03_JPRB,1.9242E-02_JPRB,2.7455E-02_JPRB,3.3060E-02_JPRB,3.2754E-02_JPRB/)  
+KBO( :, 5,21, 4) = (/&
+ & 3.4660E-03_JPRB,3.7486E-03_JPRB,1.9402E-02_JPRB,2.7577E-02_JPRB,3.2988E-02_JPRB,3.2505E-02_JPRB/)  
+KBO( :, 1,22, 4) = (/&
+ & 2.3958E-03_JPRB,2.6786E-03_JPRB,1.5221E-02_JPRB,2.2163E-02_JPRB,2.7039E-02_JPRB,2.6675E-02_JPRB/)  
+KBO( :, 2,22, 4) = (/&
+ & 2.5089E-03_JPRB,2.7922E-03_JPRB,1.5555E-02_JPRB,2.2444E-02_JPRB,2.7268E-02_JPRB,2.6915E-02_JPRB/)  
+KBO( :, 3,22, 4) = (/&
+ & 2.6330E-03_JPRB,2.9125E-03_JPRB,1.5842E-02_JPRB,2.2675E-02_JPRB,2.7372E-02_JPRB,2.6968E-02_JPRB/)  
+KBO( :, 4,22, 4) = (/&
+ & 2.7694E-03_JPRB,3.0464E-03_JPRB,1.6030E-02_JPRB,2.2843E-02_JPRB,2.7392E-02_JPRB,2.6856E-02_JPRB/)  
+KBO( :, 5,22, 4) = (/&
+ & 2.9232E-03_JPRB,3.1956E-03_JPRB,1.6145E-02_JPRB,2.2906E-02_JPRB,2.7331E-02_JPRB,2.6610E-02_JPRB/)  
+KBO( :, 1,23, 4) = (/&
+ & 2.0042E-03_JPRB,2.2640E-03_JPRB,1.2690E-02_JPRB,1.8401E-02_JPRB,2.2404E-02_JPRB,2.1959E-02_JPRB/)  
+KBO( :, 2,23, 4) = (/&
+ & 2.1023E-03_JPRB,2.3617E-03_JPRB,1.2965E-02_JPRB,1.8637E-02_JPRB,2.2564E-02_JPRB,2.2109E-02_JPRB/)  
+KBO( :, 3,23, 4) = (/&
+ & 2.2103E-03_JPRB,2.4685E-03_JPRB,1.3173E-02_JPRB,1.8833E-02_JPRB,2.2645E-02_JPRB,2.2108E-02_JPRB/)  
+KBO( :, 4,23, 4) = (/&
+ & 2.3303E-03_JPRB,2.5871E-03_JPRB,1.3312E-02_JPRB,1.8940E-02_JPRB,2.2663E-02_JPRB,2.1985E-02_JPRB/)  
+KBO( :, 5,23, 4) = (/&
+ & 2.4661E-03_JPRB,2.7218E-03_JPRB,1.3399E-02_JPRB,1.8972E-02_JPRB,2.2604E-02_JPRB,2.1760E-02_JPRB/)  
+KBO( :, 1,24, 4) = (/&
+ & 1.6762E-03_JPRB,1.9090E-03_JPRB,1.0559E-02_JPRB,1.5252E-02_JPRB,1.8521E-02_JPRB,1.8042E-02_JPRB/)  
+KBO( :, 2,24, 4) = (/&
+ & 1.7614E-03_JPRB,1.9932E-03_JPRB,1.0770E-02_JPRB,1.5455E-02_JPRB,1.8647E-02_JPRB,1.8128E-02_JPRB/)  
+KBO( :, 3,24, 4) = (/&
+ & 1.8564E-03_JPRB,2.0890E-03_JPRB,1.0927E-02_JPRB,1.5598E-02_JPRB,1.8716E-02_JPRB,1.8097E-02_JPRB/)  
+KBO( :, 4,24, 4) = (/&
+ & 1.9618E-03_JPRB,2.1951E-03_JPRB,1.1029E-02_JPRB,1.5669E-02_JPRB,1.8728E-02_JPRB,1.7971E-02_JPRB/)  
+KBO( :, 5,24, 4) = (/&
+ & 2.0788E-03_JPRB,2.3139E-03_JPRB,1.1094E-02_JPRB,1.5685E-02_JPRB,1.8656E-02_JPRB,1.7765E-02_JPRB/)  
+KBO( :, 1,25, 4) = (/&
+ & 1.4025E-03_JPRB,1.6067E-03_JPRB,8.7676E-03_JPRB,1.2632E-02_JPRB,1.5295E-02_JPRB,1.4808E-02_JPRB/)  
+KBO( :, 2,25, 4) = (/&
+ & 1.4767E-03_JPRB,1.6810E-03_JPRB,8.9285E-03_JPRB,1.2792E-02_JPRB,1.5398E-02_JPRB,1.4849E-02_JPRB/)  
+KBO( :, 3,25, 4) = (/&
+ & 1.5600E-03_JPRB,1.7664E-03_JPRB,9.0451E-03_JPRB,1.2893E-02_JPRB,1.5458E-02_JPRB,1.4803E-02_JPRB/)  
+KBO( :, 4,25, 4) = (/&
+ & 1.6518E-03_JPRB,1.8613E-03_JPRB,9.1218E-03_JPRB,1.2945E-02_JPRB,1.5449E-02_JPRB,1.4682E-02_JPRB/)  
+KBO( :, 5,25, 4) = (/&
+ & 1.7503E-03_JPRB,1.9622E-03_JPRB,9.1788E-03_JPRB,1.2954E-02_JPRB,1.5378E-02_JPRB,1.4496E-02_JPRB/)  
+KBO( :, 1,26, 4) = (/&
+ & 1.1743E-03_JPRB,1.3515E-03_JPRB,7.2680E-03_JPRB,1.0453E-02_JPRB,1.2624E-02_JPRB,1.2143E-02_JPRB/)  
+KBO( :, 2,26, 4) = (/&
+ & 1.2397E-03_JPRB,1.4187E-03_JPRB,7.3884E-03_JPRB,1.0572E-02_JPRB,1.2713E-02_JPRB,1.2158E-02_JPRB/)  
+KBO( :, 3,26, 4) = (/&
+ & 1.3121E-03_JPRB,1.4944E-03_JPRB,7.4769E-03_JPRB,1.0647E-02_JPRB,1.2748E-02_JPRB,1.2101E-02_JPRB/)  
+KBO( :, 4,26, 4) = (/&
+ & 1.3904E-03_JPRB,1.5774E-03_JPRB,7.5401E-03_JPRB,1.0684E-02_JPRB,1.2728E-02_JPRB,1.1986E-02_JPRB/)  
+KBO( :, 5,26, 4) = (/&
+ & 1.4736E-03_JPRB,1.6625E-03_JPRB,7.5925E-03_JPRB,1.0683E-02_JPRB,1.2662E-02_JPRB,1.1823E-02_JPRB/)  
+KBO( :, 1,27, 4) = (/&
+ & 9.8402E-04_JPRB,1.1373E-03_JPRB,6.0162E-03_JPRB,8.6394E-03_JPRB,1.0419E-02_JPRB,9.9561E-03_JPRB/)  
+KBO( :, 2,27, 4) = (/&
+ & 1.0411E-03_JPRB,1.1972E-03_JPRB,6.1086E-03_JPRB,8.7287E-03_JPRB,1.0483E-02_JPRB,9.9519E-03_JPRB/)  
+KBO( :, 3,27, 4) = (/&
+ & 1.1029E-03_JPRB,1.2633E-03_JPRB,6.1781E-03_JPRB,8.7827E-03_JPRB,1.0501E-02_JPRB,9.8918E-03_JPRB/)  
+KBO( :, 4,27, 4) = (/&
+ & 1.1695E-03_JPRB,1.3344E-03_JPRB,6.2341E-03_JPRB,8.8083E-03_JPRB,1.0478E-02_JPRB,9.7857E-03_JPRB/)  
+KBO( :, 5,27, 4) = (/&
+ & 1.2409E-03_JPRB,1.4079E-03_JPRB,6.2822E-03_JPRB,8.8079E-03_JPRB,1.0418E-02_JPRB,9.6453E-03_JPRB/)  
+KBO( :, 1,28, 4) = (/&
+ & 8.2502E-04_JPRB,9.5751E-04_JPRB,4.9758E-03_JPRB,7.1338E-03_JPRB,8.5938E-03_JPRB,8.1599E-03_JPRB/)  
+KBO( :, 2,28, 4) = (/&
+ & 8.7450E-04_JPRB,1.0105E-03_JPRB,5.0486E-03_JPRB,7.1996E-03_JPRB,8.6369E-03_JPRB,8.1441E-03_JPRB/)  
+KBO( :, 3,28, 4) = (/&
+ & 9.2664E-04_JPRB,1.0674E-03_JPRB,5.1070E-03_JPRB,7.2390E-03_JPRB,8.6457E-03_JPRB,8.0849E-03_JPRB/)  
+KBO( :, 4,28, 4) = (/&
+ & 9.8426E-04_JPRB,1.1287E-03_JPRB,5.1587E-03_JPRB,7.2593E-03_JPRB,8.6218E-03_JPRB,7.9907E-03_JPRB/)  
+KBO( :, 5,28, 4) = (/&
+ & 1.0460E-03_JPRB,1.1932E-03_JPRB,5.2066E-03_JPRB,7.2612E-03_JPRB,8.5694E-03_JPRB,7.8705E-03_JPRB/)  
+KBO( :, 1,29, 4) = (/&
+ & 6.9236E-04_JPRB,8.0674E-04_JPRB,4.1133E-03_JPRB,5.8863E-03_JPRB,7.0815E-03_JPRB,6.6900E-03_JPRB/)  
+KBO( :, 2,29, 4) = (/&
+ & 7.3441E-04_JPRB,8.5270E-04_JPRB,4.1735E-03_JPRB,5.9349E-03_JPRB,7.1122E-03_JPRB,6.6683E-03_JPRB/)  
+KBO( :, 3,29, 4) = (/&
+ & 7.7930E-04_JPRB,9.0247E-04_JPRB,4.2252E-03_JPRB,5.9662E-03_JPRB,7.1136E-03_JPRB,6.6140E-03_JPRB/)  
+KBO( :, 4,29, 4) = (/&
+ & 8.2905E-04_JPRB,9.5490E-04_JPRB,4.2746E-03_JPRB,5.9835E-03_JPRB,7.0898E-03_JPRB,6.5328E-03_JPRB/)  
+KBO( :, 5,29, 4) = (/&
+ & 8.8288E-04_JPRB,1.0121E-03_JPRB,4.3168E-03_JPRB,5.9898E-03_JPRB,7.0475E-03_JPRB,6.4307E-03_JPRB/)  
+KBO( :, 1,30, 4) = (/&
+ & 5.8109E-04_JPRB,6.7992E-04_JPRB,3.4007E-03_JPRB,4.8546E-03_JPRB,5.8338E-03_JPRB,5.4857E-03_JPRB/)  
+KBO( :, 2,30, 4) = (/&
+ & 6.1672E-04_JPRB,7.1953E-04_JPRB,3.4531E-03_JPRB,4.8921E-03_JPRB,5.8538E-03_JPRB,5.4623E-03_JPRB/)  
+KBO( :, 3,30, 4) = (/&
+ & 6.5564E-04_JPRB,7.6235E-04_JPRB,3.5001E-03_JPRB,4.9200E-03_JPRB,5.8508E-03_JPRB,5.4136E-03_JPRB/)  
+KBO( :, 4,30, 4) = (/&
+ & 6.9916E-04_JPRB,8.0837E-04_JPRB,3.5445E-03_JPRB,4.9361E-03_JPRB,5.8315E-03_JPRB,5.3448E-03_JPRB/)  
+KBO( :, 5,30, 4) = (/&
+ & 7.4588E-04_JPRB,8.5907E-04_JPRB,3.5814E-03_JPRB,4.9470E-03_JPRB,5.7972E-03_JPRB,5.2575E-03_JPRB/)  
+KBO( :, 1,31, 4) = (/&
+ & 4.8773E-04_JPRB,5.7298E-04_JPRB,2.8142E-03_JPRB,4.0034E-03_JPRB,4.8046E-03_JPRB,4.5018E-03_JPRB/)  
+KBO( :, 2,31, 4) = (/&
+ & 5.1790E-04_JPRB,6.0687E-04_JPRB,2.8592E-03_JPRB,4.0352E-03_JPRB,4.8163E-03_JPRB,4.4785E-03_JPRB/)  
+KBO( :, 3,31, 4) = (/&
+ & 5.5259E-04_JPRB,6.4420E-04_JPRB,2.9026E-03_JPRB,4.0596E-03_JPRB,4.8128E-03_JPRB,4.4370E-03_JPRB/)  
+KBO( :, 4,31, 4) = (/&
+ & 5.9027E-04_JPRB,6.8473E-04_JPRB,2.9396E-03_JPRB,4.0779E-03_JPRB,4.7972E-03_JPRB,4.3789E-03_JPRB/)  
+KBO( :, 5,31, 4) = (/&
+ & 6.3109E-04_JPRB,7.2996E-04_JPRB,2.9730E-03_JPRB,4.0892E-03_JPRB,4.7703E-03_JPRB,4.3063E-03_JPRB/)  
+KBO( :, 1,32, 4) = (/&
+ & 4.0943E-04_JPRB,4.8260E-04_JPRB,2.3307E-03_JPRB,3.3026E-03_JPRB,3.9553E-03_JPRB,3.6951E-03_JPRB/)  
+KBO( :, 2,32, 4) = (/&
+ & 4.3585E-04_JPRB,5.1194E-04_JPRB,2.3706E-03_JPRB,3.3307E-03_JPRB,3.9627E-03_JPRB,3.6751E-03_JPRB/)  
+KBO( :, 3,32, 4) = (/&
+ & 4.6644E-04_JPRB,5.4471E-04_JPRB,2.4075E-03_JPRB,3.3544E-03_JPRB,3.9608E-03_JPRB,3.6388E-03_JPRB/)  
+KBO( :, 4,32, 4) = (/&
+ & 4.9918E-04_JPRB,5.8045E-04_JPRB,2.4395E-03_JPRB,3.3725E-03_JPRB,3.9485E-03_JPRB,3.5900E-03_JPRB/)  
+KBO( :, 5,32, 4) = (/&
+ & 5.3458E-04_JPRB,6.2069E-04_JPRB,2.4710E-03_JPRB,3.3839E-03_JPRB,3.9292E-03_JPRB,3.5299E-03_JPRB/)  
+KBO( :, 1,33, 4) = (/&
+ & 3.4410E-04_JPRB,4.0654E-04_JPRB,1.9317E-03_JPRB,2.7269E-03_JPRB,3.2560E-03_JPRB,3.0357E-03_JPRB/)  
+KBO( :, 2,33, 4) = (/&
+ & 3.6780E-04_JPRB,4.3231E-04_JPRB,1.9669E-03_JPRB,2.7524E-03_JPRB,3.2622E-03_JPRB,3.0171E-03_JPRB/)  
+KBO( :, 3,33, 4) = (/&
+ & 3.9422E-04_JPRB,4.6103E-04_JPRB,1.9979E-03_JPRB,2.7749E-03_JPRB,3.2617E-03_JPRB,2.9869E-03_JPRB/)  
+KBO( :, 4,33, 4) = (/&
+ & 4.2274E-04_JPRB,4.9289E-04_JPRB,2.0268E-03_JPRB,2.7910E-03_JPRB,3.2533E-03_JPRB,2.9461E-03_JPRB/)  
+KBO( :, 5,33, 4) = (/&
+ & 4.5356E-04_JPRB,5.2826E-04_JPRB,2.0558E-03_JPRB,2.8026E-03_JPRB,3.2388E-03_JPRB,2.8971E-03_JPRB/)  
+KBO( :, 1,34, 4) = (/&
+ & 2.8907E-04_JPRB,3.4197E-04_JPRB,1.6017E-03_JPRB,2.2527E-03_JPRB,2.6816E-03_JPRB,2.4934E-03_JPRB/)  
+KBO( :, 2,34, 4) = (/&
+ & 3.0999E-04_JPRB,3.6459E-04_JPRB,1.6314E-03_JPRB,2.2770E-03_JPRB,2.6881E-03_JPRB,2.4774E-03_JPRB/)  
+KBO( :, 3,34, 4) = (/&
+ & 3.3292E-04_JPRB,3.8989E-04_JPRB,1.6587E-03_JPRB,2.2965E-03_JPRB,2.6882E-03_JPRB,2.4516E-03_JPRB/)  
+KBO( :, 4,34, 4) = (/&
+ & 3.5758E-04_JPRB,4.1817E-04_JPRB,1.6851E-03_JPRB,2.3118E-03_JPRB,2.6837E-03_JPRB,2.4183E-03_JPRB/)  
+KBO( :, 5,34, 4) = (/&
+ & 3.8443E-04_JPRB,4.4891E-04_JPRB,1.7117E-03_JPRB,2.3241E-03_JPRB,2.6734E-03_JPRB,2.3789E-03_JPRB/)  
+KBO( :, 1,35, 4) = (/&
+ & 2.4163E-04_JPRB,2.8613E-04_JPRB,1.3262E-03_JPRB,1.8610E-03_JPRB,2.2092E-03_JPRB,2.0492E-03_JPRB/)  
+KBO( :, 2,35, 4) = (/&
+ & 2.5980E-04_JPRB,3.0590E-04_JPRB,1.3518E-03_JPRB,1.8829E-03_JPRB,2.2161E-03_JPRB,2.0364E-03_JPRB/)  
+KBO( :, 3,35, 4) = (/&
+ & 2.7948E-04_JPRB,3.2806E-04_JPRB,1.3762E-03_JPRB,1.9000E-03_JPRB,2.2186E-03_JPRB,2.0149E-03_JPRB/)  
+KBO( :, 4,35, 4) = (/&
+ & 3.0066E-04_JPRB,3.5268E-04_JPRB,1.4004E-03_JPRB,1.9149E-03_JPRB,2.2165E-03_JPRB,1.9889E-03_JPRB/)  
+KBO( :, 5,35, 4) = (/&
+ & 3.2401E-04_JPRB,3.7942E-04_JPRB,1.4250E-03_JPRB,1.9278E-03_JPRB,2.2099E-03_JPRB,1.9578E-03_JPRB/)  
+KBO( :, 1,36, 4) = (/&
+ & 2.0066E-04_JPRB,2.3797E-04_JPRB,1.0962E-03_JPRB,1.5363E-03_JPRB,1.8202E-03_JPRB,1.6851E-03_JPRB/)  
+KBO( :, 2,36, 4) = (/&
+ & 2.1623E-04_JPRB,2.5498E-04_JPRB,1.1188E-03_JPRB,1.5557E-03_JPRB,1.8279E-03_JPRB,1.6749E-03_JPRB/)  
+KBO( :, 3,36, 4) = (/&
+ & 2.3303E-04_JPRB,2.7423E-04_JPRB,1.1407E-03_JPRB,1.5718E-03_JPRB,1.8325E-03_JPRB,1.6591E-03_JPRB/)  
+KBO( :, 4,36, 4) = (/&
+ & 2.5102E-04_JPRB,2.9534E-04_JPRB,1.1626E-03_JPRB,1.5863E-03_JPRB,1.8324E-03_JPRB,1.6382E-03_JPRB/)  
+KBO( :, 5,36, 4) = (/&
+ & 2.7107E-04_JPRB,3.1839E-04_JPRB,1.1850E-03_JPRB,1.5990E-03_JPRB,1.8295E-03_JPRB,1.6138E-03_JPRB/)  
+KBO( :, 1,37, 4) = (/&
+ & 1.6489E-04_JPRB,1.9598E-04_JPRB,9.0338E-04_JPRB,1.2660E-03_JPRB,1.4992E-03_JPRB,1.3858E-03_JPRB/)  
+KBO( :, 2,37, 4) = (/&
+ & 1.7800E-04_JPRB,2.1035E-04_JPRB,9.2319E-04_JPRB,1.2835E-03_JPRB,1.5078E-03_JPRB,1.3789E-03_JPRB/)  
+KBO( :, 3,37, 4) = (/&
+ & 1.9213E-04_JPRB,2.2670E-04_JPRB,9.4286E-04_JPRB,1.2987E-03_JPRB,1.5138E-03_JPRB,1.3673E-03_JPRB/)  
+KBO( :, 4,37, 4) = (/&
+ & 2.0731E-04_JPRB,2.4467E-04_JPRB,9.6260E-04_JPRB,1.3129E-03_JPRB,1.5159E-03_JPRB,1.3520E-03_JPRB/)  
+KBO( :, 5,37, 4) = (/&
+ & 2.2426E-04_JPRB,2.6433E-04_JPRB,9.8317E-04_JPRB,1.3255E-03_JPRB,1.5160E-03_JPRB,1.3330E-03_JPRB/)  
+KBO( :, 1,38, 4) = (/&
+ & 1.3545E-04_JPRB,1.6133E-04_JPRB,7.4423E-04_JPRB,1.0430E-03_JPRB,1.2345E-03_JPRB,1.1400E-03_JPRB/)  
+KBO( :, 2,38, 4) = (/&
+ & 1.4647E-04_JPRB,1.7346E-04_JPRB,7.6176E-04_JPRB,1.0590E-03_JPRB,1.2440E-03_JPRB,1.1357E-03_JPRB/)  
+KBO( :, 3,38, 4) = (/&
+ & 1.5834E-04_JPRB,1.8731E-04_JPRB,7.7933E-04_JPRB,1.0731E-03_JPRB,1.2505E-03_JPRB,1.1275E-03_JPRB/)  
+KBO( :, 4,38, 4) = (/&
+ & 1.7112E-04_JPRB,2.0254E-04_JPRB,7.9709E-04_JPRB,1.0866E-03_JPRB,1.2542E-03_JPRB,1.1163E-03_JPRB/)  
+KBO( :, 5,38, 4) = (/&
+ & 1.8543E-04_JPRB,2.1932E-04_JPRB,8.1567E-04_JPRB,1.0989E-03_JPRB,1.2562E-03_JPRB,1.1014E-03_JPRB/)  
+KBO( :, 1,39, 4) = (/&
+ & 1.1128E-04_JPRB,1.3279E-04_JPRB,6.1308E-04_JPRB,8.5960E-04_JPRB,1.0171E-03_JPRB,9.3831E-04_JPRB/)  
+KBO( :, 2,39, 4) = (/&
+ & 1.2054E-04_JPRB,1.4305E-04_JPRB,6.2838E-04_JPRB,8.7394E-04_JPRB,1.0264E-03_JPRB,9.3635E-04_JPRB/)  
+KBO( :, 3,39, 4) = (/&
+ & 1.3051E-04_JPRB,1.5480E-04_JPRB,6.4408E-04_JPRB,8.8688E-04_JPRB,1.0332E-03_JPRB,9.3078E-04_JPRB/)  
+KBO( :, 4,39, 4) = (/&
+ & 1.4126E-04_JPRB,1.6774E-04_JPRB,6.5994E-04_JPRB,8.9946E-04_JPRB,1.0378E-03_JPRB,9.2268E-04_JPRB/)  
+KBO( :, 5,39, 4) = (/&
+ & 1.5338E-04_JPRB,1.8209E-04_JPRB,6.7678E-04_JPRB,9.1123E-04_JPRB,1.0413E-03_JPRB,9.1137E-04_JPRB/)  
+KBO( :, 1,40, 4) = (/&
+ & 9.0705E-05_JPRB,1.0852E-04_JPRB,5.0355E-04_JPRB,7.0681E-04_JPRB,8.3684E-04_JPRB,7.7091E-04_JPRB/)  
+KBO( :, 2,40, 4) = (/&
+ & 9.8348E-05_JPRB,1.1706E-04_JPRB,5.1697E-04_JPRB,7.2009E-04_JPRB,8.4601E-04_JPRB,7.7004E-04_JPRB/)  
+KBO( :, 3,40, 4) = (/&
+ & 1.0671E-04_JPRB,1.2689E-04_JPRB,5.3086E-04_JPRB,7.3191E-04_JPRB,8.5298E-04_JPRB,7.6666E-04_JPRB/)  
+KBO( :, 4,40, 4) = (/&
+ & 1.1570E-04_JPRB,1.3781E-04_JPRB,5.4507E-04_JPRB,7.4355E-04_JPRB,8.5831E-04_JPRB,7.6093E-04_JPRB/)  
+KBO( :, 5,40, 4) = (/&
+ & 1.2578E-04_JPRB,1.4990E-04_JPRB,5.6002E-04_JPRB,7.5473E-04_JPRB,8.6284E-04_JPRB,7.5245E-04_JPRB/)  
+KBO( :, 1,41, 4) = (/&
+ & 7.3817E-05_JPRB,8.8549E-05_JPRB,4.1325E-04_JPRB,5.8106E-04_JPRB,6.8830E-04_JPRB,6.3269E-04_JPRB/)  
+KBO( :, 2,41, 4) = (/&
+ & 8.0158E-05_JPRB,9.5680E-05_JPRB,4.2501E-04_JPRB,5.9293E-04_JPRB,6.9700E-04_JPRB,6.3310E-04_JPRB/)  
+KBO( :, 3,41, 4) = (/&
+ & 8.7116E-05_JPRB,1.0384E-04_JPRB,4.3722E-04_JPRB,6.0369E-04_JPRB,7.0401E-04_JPRB,6.3122E-04_JPRB/)  
+KBO( :, 4,41, 4) = (/&
+ & 9.4610E-05_JPRB,1.1303E-04_JPRB,4.4976E-04_JPRB,6.1448E-04_JPRB,7.0977E-04_JPRB,6.2726E-04_JPRB/)  
+KBO( :, 5,41, 4) = (/&
+ & 1.0305E-04_JPRB,1.2324E-04_JPRB,4.6311E-04_JPRB,6.2475E-04_JPRB,7.1477E-04_JPRB,6.2101E-04_JPRB/)  
+KBO( :, 1,42, 4) = (/&
+ & 6.0047E-05_JPRB,7.2210E-05_JPRB,3.3900E-04_JPRB,4.7749E-04_JPRB,5.6596E-04_JPRB,5.1926E-04_JPRB/)  
+KBO( :, 2,42, 4) = (/&
+ & 6.5307E-05_JPRB,7.8183E-05_JPRB,3.4927E-04_JPRB,4.8800E-04_JPRB,5.7404E-04_JPRB,5.2049E-04_JPRB/)  
+KBO( :, 3,42, 4) = (/&
+ & 7.1083E-05_JPRB,8.4948E-05_JPRB,3.5991E-04_JPRB,4.9776E-04_JPRB,5.8092E-04_JPRB,5.1968E-04_JPRB/)  
+KBO( :, 4,42, 4) = (/&
+ & 7.7339E-05_JPRB,9.2668E-05_JPRB,3.7098E-04_JPRB,5.0759E-04_JPRB,5.8676E-04_JPRB,5.1717E-04_JPRB/)  
+KBO( :, 5,42, 4) = (/&
+ & 8.4391E-05_JPRB,1.0128E-04_JPRB,3.8284E-04_JPRB,5.1710E-04_JPRB,5.9200E-04_JPRB,5.1265E-04_JPRB/)  
+KBO( :, 1,43, 4) = (/&
+ & 4.8611E-05_JPRB,5.8601E-05_JPRB,2.7749E-04_JPRB,3.9145E-04_JPRB,4.6464E-04_JPRB,4.2584E-04_JPRB/)  
+KBO( :, 2,43, 4) = (/&
+ & 5.2925E-05_JPRB,6.3562E-05_JPRB,2.8637E-04_JPRB,4.0094E-04_JPRB,4.7226E-04_JPRB,4.2773E-04_JPRB/)  
+KBO( :, 3,43, 4) = (/&
+ & 5.7704E-05_JPRB,6.9143E-05_JPRB,2.9565E-04_JPRB,4.0976E-04_JPRB,4.7882E-04_JPRB,4.2784E-04_JPRB/)  
+KBO( :, 4,43, 4) = (/&
+ & 6.2890E-05_JPRB,7.5555E-05_JPRB,3.0531E-04_JPRB,4.1861E-04_JPRB,4.8454E-04_JPRB,4.2632E-04_JPRB/)  
+KBO( :, 5,43, 4) = (/&
+ & 6.8733E-05_JPRB,8.2754E-05_JPRB,3.1574E-04_JPRB,4.2729E-04_JPRB,4.8985E-04_JPRB,4.2324E-04_JPRB/)  
+KBO( :, 1,44, 4) = (/&
+ & 3.9255E-05_JPRB,4.7428E-05_JPRB,2.2682E-04_JPRB,3.2053E-04_JPRB,3.8115E-04_JPRB,3.4904E-04_JPRB/)  
+KBO( :, 2,44, 4) = (/&
+ & 4.2756E-05_JPRB,5.1518E-05_JPRB,2.3446E-04_JPRB,3.2900E-04_JPRB,3.8818E-04_JPRB,3.5126E-04_JPRB/)  
+KBO( :, 3,44, 4) = (/&
+ & 4.6702E-05_JPRB,5.6118E-05_JPRB,2.4254E-04_JPRB,3.3696E-04_JPRB,3.9445E-04_JPRB,3.5204E-04_JPRB/)  
+KBO( :, 4,44, 4) = (/&
+ & 5.0988E-05_JPRB,6.1414E-05_JPRB,2.5093E-04_JPRB,3.4483E-04_JPRB,3.9984E-04_JPRB,3.5150E-04_JPRB/)  
+KBO( :, 5,44, 4) = (/&
+ & 5.5818E-05_JPRB,6.7413E-05_JPRB,2.6004E-04_JPRB,3.5271E-04_JPRB,4.0508E-04_JPRB,3.4955E-04_JPRB/)  
+KBO( :, 1,45, 4) = (/&
+ & 3.1677E-05_JPRB,3.8360E-05_JPRB,1.8523E-04_JPRB,2.6222E-04_JPRB,3.1238E-04_JPRB,2.8592E-04_JPRB/)  
+KBO( :, 2,45, 4) = (/&
+ & 3.4522E-05_JPRB,4.1731E-05_JPRB,1.9192E-04_JPRB,2.6971E-04_JPRB,3.1883E-04_JPRB,2.8860E-04_JPRB/)  
+KBO( :, 3,45, 4) = (/&
+ & 3.7775E-05_JPRB,4.5523E-05_JPRB,1.9882E-04_JPRB,2.7680E-04_JPRB,3.2469E-04_JPRB,2.8979E-04_JPRB/)  
+KBO( :, 4,45, 4) = (/&
+ & 4.1306E-05_JPRB,4.9872E-05_JPRB,2.0608E-04_JPRB,2.8384E-04_JPRB,3.2984E-04_JPRB,2.8984E-04_JPRB/)  
+KBO( :, 5,45, 4) = (/&
+ & 4.5292E-05_JPRB,5.4864E-05_JPRB,2.1395E-04_JPRB,2.9088E-04_JPRB,3.3473E-04_JPRB,2.8876E-04_JPRB/)  
+KBO( :, 1,46, 4) = (/&
+ & 2.5501E-05_JPRB,3.0949E-05_JPRB,1.5106E-04_JPRB,2.1422E-04_JPRB,2.5570E-04_JPRB,2.3396E-04_JPRB/)  
+KBO( :, 2,46, 4) = (/&
+ & 2.7795E-05_JPRB,3.3698E-05_JPRB,1.5681E-04_JPRB,2.2083E-04_JPRB,2.6153E-04_JPRB,2.3683E-04_JPRB/)  
+KBO( :, 3,46, 4) = (/&
+ & 3.0473E-05_JPRB,3.6830E-05_JPRB,1.6271E-04_JPRB,2.2704E-04_JPRB,2.6695E-04_JPRB,2.3842E-04_JPRB/)  
+KBO( :, 4,46, 4) = (/&
+ & 3.3376E-05_JPRB,4.0385E-05_JPRB,1.6899E-04_JPRB,2.3332E-04_JPRB,2.7178E-04_JPRB,2.3894E-04_JPRB/)  
+KBO( :, 5,46, 4) = (/&
+ & 3.6637E-05_JPRB,4.4507E-05_JPRB,1.7585E-04_JPRB,2.3962E-04_JPRB,2.7638E-04_JPRB,2.3855E-04_JPRB/)  
+KBO( :, 1,47, 4) = (/&
+ & 2.0450E-05_JPRB,2.4871E-05_JPRB,1.2285E-04_JPRB,1.7458E-04_JPRB,2.0883E-04_JPRB,1.9097E-04_JPRB/)  
+KBO( :, 2,47, 4) = (/&
+ & 2.2286E-05_JPRB,2.7086E-05_JPRB,1.2784E-04_JPRB,1.8042E-04_JPRB,2.1404E-04_JPRB,1.9395E-04_JPRB/)  
+KBO( :, 3,47, 4) = (/&
+ & 2.4454E-05_JPRB,2.9649E-05_JPRB,1.3286E-04_JPRB,1.8591E-04_JPRB,2.1910E-04_JPRB,1.9581E-04_JPRB/)  
+KBO( :, 4,47, 4) = (/&
+ & 2.6844E-05_JPRB,3.2545E-05_JPRB,1.3825E-04_JPRB,1.9143E-04_JPRB,2.2358E-04_JPRB,1.9673E-04_JPRB/)  
+KBO( :, 5,47, 4) = (/&
+ & 2.9484E-05_JPRB,3.5918E-05_JPRB,1.4411E-04_JPRB,1.9700E-04_JPRB,2.2781E-04_JPRB,1.9684E-04_JPRB/)  
+KBO( :, 1,48, 4) = (/&
+ & 1.6395E-05_JPRB,1.9987E-05_JPRB,9.9787E-05_JPRB,1.4214E-04_JPRB,1.7032E-04_JPRB,1.5582E-04_JPRB/)  
+KBO( :, 2,48, 4) = (/&
+ & 1.7860E-05_JPRB,2.1753E-05_JPRB,1.0413E-04_JPRB,1.4725E-04_JPRB,1.7499E-04_JPRB,1.5884E-04_JPRB/)  
+KBO( :, 3,48, 4) = (/&
+ & 1.9600E-05_JPRB,2.3834E-05_JPRB,1.0839E-04_JPRB,1.5207E-04_JPRB,1.7957E-04_JPRB,1.6083E-04_JPRB/)  
+KBO( :, 4,48, 4) = (/&
+ & 2.1567E-05_JPRB,2.6208E-05_JPRB,1.1299E-04_JPRB,1.5690E-04_JPRB,1.8370E-04_JPRB,1.6199E-04_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART17',1,ZHOOK_HANDLE)
+END SUBROUTINE PART17
+
+
+SUBROUTINE PART18
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART18',0,ZHOOK_HANDLE)
+
+
+KBO( :, 5,48, 4) = (/&
+ & 2.3704E-05_JPRB,2.8946E-05_JPRB,1.1797E-04_JPRB,1.6178E-04_JPRB,1.8753E-04_JPRB,1.6246E-04_JPRB/)  
+KBO( :, 1,49, 4) = (/&
+ & 1.3139E-05_JPRB,1.6062E-05_JPRB,8.0976E-05_JPRB,1.1562E-04_JPRB,1.3876E-04_JPRB,1.2714E-04_JPRB/)  
+KBO( :, 2,49, 4) = (/&
+ & 1.4304E-05_JPRB,1.7455E-05_JPRB,8.4710E-05_JPRB,1.2004E-04_JPRB,1.4288E-04_JPRB,1.3003E-04_JPRB/)  
+KBO( :, 3,49, 4) = (/&
+ & 1.5690E-05_JPRB,1.9136E-05_JPRB,8.8348E-05_JPRB,1.2427E-04_JPRB,1.4700E-04_JPRB,1.3213E-04_JPRB/)  
+KBO( :, 4,49, 4) = (/&
+ & 1.7304E-05_JPRB,2.1080E-05_JPRB,9.2222E-05_JPRB,1.2844E-04_JPRB,1.5072E-04_JPRB,1.3349E-04_JPRB/)  
+KBO( :, 5,49, 4) = (/&
+ & 1.9045E-05_JPRB,2.3296E-05_JPRB,9.6473E-05_JPRB,1.3272E-04_JPRB,1.5420E-04_JPRB,1.3424E-04_JPRB/)  
+KBO( :, 1,50, 4) = (/&
+ & 1.0555E-05_JPRB,1.2937E-05_JPRB,6.5695E-05_JPRB,9.4043E-05_JPRB,1.1302E-04_JPRB,1.0345E-04_JPRB/)  
+KBO( :, 2,50, 4) = (/&
+ & 1.1477E-05_JPRB,1.4031E-05_JPRB,6.8893E-05_JPRB,9.7810E-05_JPRB,1.1659E-04_JPRB,1.0618E-04_JPRB/)  
+KBO( :, 3,50, 4) = (/&
+ & 1.2581E-05_JPRB,1.5385E-05_JPRB,7.2022E-05_JPRB,1.0152E-04_JPRB,1.2023E-04_JPRB,1.0825E-04_JPRB/)  
+KBO( :, 4,50, 4) = (/&
+ & 1.3900E-05_JPRB,1.6979E-05_JPRB,7.5298E-05_JPRB,1.0513E-04_JPRB,1.2362E-04_JPRB,1.0965E-04_JPRB/)  
+KBO( :, 5,50, 4) = (/&
+ & 1.5333E-05_JPRB,1.8783E-05_JPRB,7.8918E-05_JPRB,1.0888E-04_JPRB,1.2677E-04_JPRB,1.1057E-04_JPRB/)  
+KBO( :, 1,51, 4) = (/&
+ & 8.4921E-06_JPRB,1.0428E-05_JPRB,5.3292E-05_JPRB,7.6448E-05_JPRB,9.1988E-05_JPRB,8.4025E-05_JPRB/)  
+KBO( :, 2,51, 4) = (/&
+ & 9.2127E-06_JPRB,1.1285E-05_JPRB,5.6005E-05_JPRB,7.9650E-05_JPRB,9.5066E-05_JPRB,8.6539E-05_JPRB/)  
+KBO( :, 3,51, 4) = (/&
+ & 1.0093E-05_JPRB,1.2374E-05_JPRB,5.8695E-05_JPRB,8.2891E-05_JPRB,9.8274E-05_JPRB,8.8509E-05_JPRB/)  
+KBO( :, 4,51, 4) = (/&
+ & 1.1165E-05_JPRB,1.3675E-05_JPRB,6.1461E-05_JPRB,8.6028E-05_JPRB,1.0132E-04_JPRB,8.9926E-05_JPRB/)  
+KBO( :, 5,51, 4) = (/&
+ & 1.2344E-05_JPRB,1.5149E-05_JPRB,6.4533E-05_JPRB,8.9294E-05_JPRB,1.0416E-04_JPRB,9.0887E-05_JPRB/)  
+KBO( :, 1,52, 4) = (/&
+ & 6.8430E-06_JPRB,8.4090E-06_JPRB,4.3193E-05_JPRB,6.2073E-05_JPRB,7.4815E-05_JPRB,6.8216E-05_JPRB/)  
+KBO( :, 2,52, 4) = (/&
+ & 7.3942E-06_JPRB,9.0790E-06_JPRB,4.5492E-05_JPRB,6.4818E-05_JPRB,7.7473E-05_JPRB,7.0540E-05_JPRB/)  
+KBO( :, 3,52, 4) = (/&
+ & 8.0962E-06_JPRB,9.9455E-06_JPRB,4.7801E-05_JPRB,6.7638E-05_JPRB,8.0241E-05_JPRB,7.2366E-05_JPRB/)  
+KBO( :, 4,52, 4) = (/&
+ & 8.9532E-06_JPRB,1.0996E-05_JPRB,5.0136E-05_JPRB,7.0352E-05_JPRB,8.2988E-05_JPRB,7.3738E-05_JPRB/)  
+KBO( :, 5,52, 4) = (/&
+ & 9.9254E-06_JPRB,1.2206E-05_JPRB,5.2722E-05_JPRB,7.3154E-05_JPRB,8.5502E-05_JPRB,7.4723E-05_JPRB/)  
+KBO( :, 1,53, 4) = (/&
+ & 5.5275E-06_JPRB,6.7826E-06_JPRB,3.4992E-05_JPRB,5.0387E-05_JPRB,6.0795E-05_JPRB,5.5379E-05_JPRB/)  
+KBO( :, 2,53, 4) = (/&
+ & 5.9360E-06_JPRB,7.3070E-06_JPRB,3.6904E-05_JPRB,5.2681E-05_JPRB,6.3070E-05_JPRB,5.7475E-05_JPRB/)  
+KBO( :, 3,53, 4) = (/&
+ & 6.4916E-06_JPRB,7.9876E-06_JPRB,3.8885E-05_JPRB,5.5123E-05_JPRB,6.5445E-05_JPRB,5.9194E-05_JPRB/)  
+KBO( :, 4,53, 4) = (/&
+ & 7.1721E-06_JPRB,8.8314E-06_JPRB,4.0856E-05_JPRB,5.7465E-05_JPRB,6.7875E-05_JPRB,6.0530E-05_JPRB/)  
+KBO( :, 5,53, 4) = (/&
+ & 7.9695E-06_JPRB,9.8225E-06_JPRB,4.3031E-05_JPRB,5.9870E-05_JPRB,7.0118E-05_JPRB,6.1520E-05_JPRB/)  
+KBO( :, 1,54, 4) = (/&
+ & 4.4841E-06_JPRB,5.4855E-06_JPRB,2.8370E-05_JPRB,4.0916E-05_JPRB,4.9401E-05_JPRB,4.4764E-05_JPRB/)  
+KBO( :, 2,54, 4) = (/&
+ & 4.7805E-06_JPRB,5.8965E-06_JPRB,2.9962E-05_JPRB,4.2832E-05_JPRB,5.1350E-05_JPRB,4.6575E-05_JPRB/)  
+KBO( :, 3,54, 4) = (/&
+ & 5.2175E-06_JPRB,6.4303E-06_JPRB,3.1646E-05_JPRB,4.4921E-05_JPRB,5.3377E-05_JPRB,4.8101E-05_JPRB/)  
+KBO( :, 4,54, 4) = (/&
+ & 5.7596E-06_JPRB,7.1078E-06_JPRB,3.3313E-05_JPRB,4.6951E-05_JPRB,5.5518E-05_JPRB,4.9299E-05_JPRB/)  
+KBO( :, 5,54, 4) = (/&
+ & 6.4121E-06_JPRB,7.9214E-06_JPRB,3.5145E-05_JPRB,4.9005E-05_JPRB,5.7497E-05_JPRB,5.0216E-05_JPRB/)  
+KBO( :, 1,55, 4) = (/&
+ & 3.6502E-06_JPRB,4.4452E-06_JPRB,2.3004E-05_JPRB,3.3225E-05_JPRB,4.0131E-05_JPRB,3.6076E-05_JPRB/)  
+KBO( :, 2,55, 4) = (/&
+ & 3.8584E-06_JPRB,4.7638E-06_JPRB,2.4322E-05_JPRB,3.4820E-05_JPRB,4.1798E-05_JPRB,3.7608E-05_JPRB/)  
+KBO( :, 3,55, 4) = (/&
+ & 4.1970E-06_JPRB,5.1824E-06_JPRB,2.5746E-05_JPRB,3.6594E-05_JPRB,4.3525E-05_JPRB,3.8921E-05_JPRB/)  
+KBO( :, 4,55, 4) = (/&
+ & 4.6296E-06_JPRB,5.7238E-06_JPRB,2.7170E-05_JPRB,3.8354E-05_JPRB,4.5386E-05_JPRB,3.9954E-05_JPRB/)  
+KBO( :, 5,55, 4) = (/&
+ & 5.1596E-06_JPRB,6.3897E-06_JPRB,2.8703E-05_JPRB,4.0103E-05_JPRB,4.7130E-05_JPRB,4.0748E-05_JPRB/)  
+KBO( :, 1,56, 4) = (/&
+ & 2.9798E-06_JPRB,3.6097E-06_JPRB,1.8645E-05_JPRB,2.6958E-05_JPRB,3.2565E-05_JPRB,2.9049E-05_JPRB/)  
+KBO( :, 2,56, 4) = (/&
+ & 3.1203E-06_JPRB,3.8503E-06_JPRB,1.9728E-05_JPRB,2.8285E-05_JPRB,3.3997E-05_JPRB,3.0362E-05_JPRB/)  
+KBO( :, 3,56, 4) = (/&
+ & 3.3770E-06_JPRB,4.1764E-06_JPRB,2.0929E-05_JPRB,2.9782E-05_JPRB,3.5468E-05_JPRB,3.1480E-05_JPRB/)  
+KBO( :, 4,56, 4) = (/&
+ & 3.7197E-06_JPRB,4.6073E-06_JPRB,2.2137E-05_JPRB,3.1299E-05_JPRB,3.7064E-05_JPRB,3.2373E-05_JPRB/)  
+KBO( :, 5,56, 4) = (/&
+ & 4.1476E-06_JPRB,5.1481E-06_JPRB,2.3420E-05_JPRB,3.2792E-05_JPRB,3.8590E-05_JPRB,3.3070E-05_JPRB/)  
+KBO( :, 1,57, 4) = (/&
+ & 2.4380E-06_JPRB,2.9371E-06_JPRB,1.5101E-05_JPRB,2.1849E-05_JPRB,2.6384E-05_JPRB,2.3378E-05_JPRB/)  
+KBO( :, 2,57, 4) = (/&
+ & 2.5283E-06_JPRB,3.1131E-06_JPRB,1.5990E-05_JPRB,2.2961E-05_JPRB,2.7628E-05_JPRB,2.4501E-05_JPRB/)  
+KBO( :, 3,57, 4) = (/&
+ & 2.7173E-06_JPRB,3.3659E-06_JPRB,1.6995E-05_JPRB,2.4208E-05_JPRB,2.8876E-05_JPRB,2.5443E-05_JPRB/)  
+KBO( :, 4,57, 4) = (/&
+ & 2.9882E-06_JPRB,3.7073E-06_JPRB,1.8018E-05_JPRB,2.5516E-05_JPRB,3.0235E-05_JPRB,2.6220E-05_JPRB/)  
+KBO( :, 5,57, 4) = (/&
+ & 3.3309E-06_JPRB,4.1429E-06_JPRB,1.9094E-05_JPRB,2.6794E-05_JPRB,3.1575E-05_JPRB,2.6825E-05_JPRB/)  
+KBO( :, 1,58, 4) = (/&
+ & 1.9991E-06_JPRB,2.3969E-06_JPRB,1.2235E-05_JPRB,1.7713E-05_JPRB,2.1380E-05_JPRB,1.8819E-05_JPRB/)  
+KBO( :, 2,58, 4) = (/&
+ & 2.0552E-06_JPRB,2.5217E-06_JPRB,1.2969E-05_JPRB,1.8641E-05_JPRB,2.2450E-05_JPRB,1.9754E-05_JPRB/)  
+KBO( :, 3,58, 4) = (/&
+ & 2.1912E-06_JPRB,2.7184E-06_JPRB,1.3803E-05_JPRB,1.9678E-05_JPRB,2.3501E-05_JPRB,2.0555E-05_JPRB/)  
+KBO( :, 4,58, 4) = (/&
+ & 2.4045E-06_JPRB,2.9869E-06_JPRB,1.4668E-05_JPRB,2.0799E-05_JPRB,2.4657E-05_JPRB,2.1216E-05_JPRB/)  
+KBO( :, 5,58, 4) = (/&
+ & 2.6779E-06_JPRB,3.3369E-06_JPRB,1.5570E-05_JPRB,2.1893E-05_JPRB,2.5824E-05_JPRB,2.1730E-05_JPRB/)  
+KBO( :, 1,59, 4) = (/&
+ & 1.6438E-06_JPRB,1.9701E-06_JPRB,1.0010E-05_JPRB,1.4487E-05_JPRB,1.7470E-05_JPRB,1.5234E-05_JPRB/)  
+KBO( :, 2,59, 4) = (/&
+ & 1.6869E-06_JPRB,2.0683E-06_JPRB,1.0627E-05_JPRB,1.5272E-05_JPRB,1.8381E-05_JPRB,1.5979E-05_JPRB/)  
+KBO( :, 3,59, 4) = (/&
+ & 1.7947E-06_JPRB,2.2294E-06_JPRB,1.1332E-05_JPRB,1.6155E-05_JPRB,1.9286E-05_JPRB,1.6622E-05_JPRB/)  
+KBO( :, 4,59, 4) = (/&
+ & 1.9699E-06_JPRB,2.4516E-06_JPRB,1.2063E-05_JPRB,1.7108E-05_JPRB,2.0268E-05_JPRB,1.7134E-05_JPRB/)  
+KBO( :, 5,59, 4) = (/&
+ & 2.1967E-06_JPRB,2.7433E-06_JPRB,1.2831E-05_JPRB,1.8043E-05_JPRB,2.1274E-05_JPRB,1.7524E-05_JPRB/)  
+KBO( :, 1,13, 5) = (/&
+ & 2.1807E-02_JPRB,2.2021E-02_JPRB,1.0044E-01_JPRB,1.4940E-01_JPRB,1.9004E-01_JPRB,2.1084E-01_JPRB/)  
+KBO( :, 2,13, 5) = (/&
+ & 2.2325E-02_JPRB,2.2543E-02_JPRB,1.0227E-01_JPRB,1.5170E-01_JPRB,1.9324E-01_JPRB,2.1682E-01_JPRB/)  
+KBO( :, 3,13, 5) = (/&
+ & 2.2866E-02_JPRB,2.3082E-02_JPRB,1.0400E-01_JPRB,1.5406E-01_JPRB,1.9625E-01_JPRB,2.2209E-01_JPRB/)  
+KBO( :, 4,13, 5) = (/&
+ & 2.3407E-02_JPRB,2.3630E-02_JPRB,1.0542E-01_JPRB,1.5634E-01_JPRB,1.9882E-01_JPRB,2.2691E-01_JPRB/)  
+KBO( :, 5,13, 5) = (/&
+ & 2.3969E-02_JPRB,2.4198E-02_JPRB,1.0673E-01_JPRB,1.5832E-01_JPRB,2.0084E-01_JPRB,2.3123E-01_JPRB/)  
+KBO( :, 1,14, 5) = (/&
+ & 1.8584E-02_JPRB,1.8801E-02_JPRB,9.0492E-02_JPRB,1.3383E-01_JPRB,1.6989E-01_JPRB,1.8690E-01_JPRB/)  
+KBO( :, 2,14, 5) = (/&
+ & 1.9043E-02_JPRB,1.9260E-02_JPRB,9.2363E-02_JPRB,1.3650E-01_JPRB,1.7338E-01_JPRB,1.9215E-01_JPRB/)  
+KBO( :, 3,14, 5) = (/&
+ & 1.9509E-02_JPRB,1.9727E-02_JPRB,9.4036E-02_JPRB,1.3911E-01_JPRB,1.7652E-01_JPRB,1.9653E-01_JPRB/)  
+KBO( :, 4,14, 5) = (/&
+ & 2.0012E-02_JPRB,2.0240E-02_JPRB,9.5547E-02_JPRB,1.4152E-01_JPRB,1.7904E-01_JPRB,2.0046E-01_JPRB/)  
+KBO( :, 5,14, 5) = (/&
+ & 2.0601E-02_JPRB,2.0831E-02_JPRB,9.6825E-02_JPRB,1.4354E-01_JPRB,1.8105E-01_JPRB,2.0381E-01_JPRB/)  
+KBO( :, 1,15, 5) = (/&
+ & 1.5764E-02_JPRB,1.5986E-02_JPRB,8.0805E-02_JPRB,1.1930E-01_JPRB,1.5084E-01_JPRB,1.6442E-01_JPRB/)  
+KBO( :, 2,15, 5) = (/&
+ & 1.6176E-02_JPRB,1.6398E-02_JPRB,8.2630E-02_JPRB,1.2205E-01_JPRB,1.5430E-01_JPRB,1.6881E-01_JPRB/)  
+KBO( :, 3,15, 5) = (/&
+ & 1.6614E-02_JPRB,1.6841E-02_JPRB,8.4265E-02_JPRB,1.2470E-01_JPRB,1.5722E-01_JPRB,1.7258E-01_JPRB/)  
+KBO( :, 4,15, 5) = (/&
+ & 1.7119E-02_JPRB,1.7353E-02_JPRB,8.5716E-02_JPRB,1.2695E-01_JPRB,1.5969E-01_JPRB,1.7588E-01_JPRB/)  
+KBO( :, 5,15, 5) = (/&
+ & 1.7713E-02_JPRB,1.7947E-02_JPRB,8.6884E-02_JPRB,1.2867E-01_JPRB,1.6168E-01_JPRB,1.7864E-01_JPRB/)  
+KBO( :, 1,16, 5) = (/&
+ & 1.3330E-02_JPRB,1.3559E-02_JPRB,7.1525E-02_JPRB,1.0570E-01_JPRB,1.3292E-01_JPRB,1.4360E-01_JPRB/)  
+KBO( :, 2,16, 5) = (/&
+ & 1.3693E-02_JPRB,1.3924E-02_JPRB,7.3291E-02_JPRB,1.0840E-01_JPRB,1.3614E-01_JPRB,1.4745E-01_JPRB/)  
+KBO( :, 3,16, 5) = (/&
+ & 1.4116E-02_JPRB,1.4356E-02_JPRB,7.4804E-02_JPRB,1.1084E-01_JPRB,1.3892E-01_JPRB,1.5078E-01_JPRB/)  
+KBO( :, 4,16, 5) = (/&
+ & 1.4627E-02_JPRB,1.4869E-02_JPRB,7.6067E-02_JPRB,1.1275E-01_JPRB,1.4132E-01_JPRB,1.5373E-01_JPRB/)  
+KBO( :, 5,16, 5) = (/&
+ & 1.5182E-02_JPRB,1.5422E-02_JPRB,7.7137E-02_JPRB,1.1432E-01_JPRB,1.4325E-01_JPRB,1.5618E-01_JPRB/)  
+KBO( :, 1,17, 5) = (/&
+ & 1.1226E-02_JPRB,1.1471E-02_JPRB,6.2864E-02_JPRB,9.2970E-02_JPRB,1.1624E-01_JPRB,1.2435E-01_JPRB/)  
+KBO( :, 2,17, 5) = (/&
+ & 1.1567E-02_JPRB,1.1813E-02_JPRB,6.4427E-02_JPRB,9.5505E-02_JPRB,1.1921E-01_JPRB,1.2773E-01_JPRB/)  
+KBO( :, 3,17, 5) = (/&
+ & 1.1990E-02_JPRB,1.2239E-02_JPRB,6.5773E-02_JPRB,9.7566E-02_JPRB,1.2183E-01_JPRB,1.3076E-01_JPRB/)  
+KBO( :, 4,17, 5) = (/&
+ & 1.2459E-02_JPRB,1.2709E-02_JPRB,6.6900E-02_JPRB,9.9291E-02_JPRB,1.2409E-01_JPRB,1.3335E-01_JPRB/)  
+KBO( :, 5,17, 5) = (/&
+ & 1.2942E-02_JPRB,1.3188E-02_JPRB,6.7902E-02_JPRB,1.0077E-01_JPRB,1.2586E-01_JPRB,1.3513E-01_JPRB/)  
+KBO( :, 1,18, 5) = (/&
+ & 9.4274E-03_JPRB,9.6965E-03_JPRB,5.4803E-02_JPRB,8.1156E-02_JPRB,1.0095E-01_JPRB,1.0689E-01_JPRB/)  
+KBO( :, 2,18, 5) = (/&
+ & 9.7636E-03_JPRB,1.0029E-02_JPRB,5.6180E-02_JPRB,8.3292E-02_JPRB,1.0368E-01_JPRB,1.0994E-01_JPRB/)  
+KBO( :, 3,18, 5) = (/&
+ & 1.0159E-02_JPRB,1.0423E-02_JPRB,5.7359E-02_JPRB,8.5142E-02_JPRB,1.0612E-01_JPRB,1.1256E-01_JPRB/)  
+KBO( :, 4,18, 5) = (/&
+ & 1.0557E-02_JPRB,1.0823E-02_JPRB,5.8403E-02_JPRB,8.6709E-02_JPRB,1.0803E-01_JPRB,1.1430E-01_JPRB/)  
+KBO( :, 5,18, 5) = (/&
+ & 1.0979E-02_JPRB,1.1237E-02_JPRB,5.9376E-02_JPRB,8.7774E-02_JPRB,1.0903E-01_JPRB,1.1483E-01_JPRB/)  
+KBO( :, 1,19, 5) = (/&
+ & 7.9098E-03_JPRB,8.2116E-03_JPRB,4.7414E-02_JPRB,7.0216E-02_JPRB,8.7160E-02_JPRB,9.1322E-02_JPRB/)  
+KBO( :, 2,19, 5) = (/&
+ & 8.2326E-03_JPRB,8.5288E-03_JPRB,4.8610E-02_JPRB,7.2087E-02_JPRB,8.9657E-02_JPRB,9.3915E-02_JPRB/)  
+KBO( :, 3,19, 5) = (/&
+ & 8.5662E-03_JPRB,8.8617E-03_JPRB,4.9664E-02_JPRB,7.3691E-02_JPRB,9.1636E-02_JPRB,9.5646E-02_JPRB/)  
+KBO( :, 4,19, 5) = (/&
+ & 8.9074E-03_JPRB,9.1995E-03_JPRB,5.0599E-02_JPRB,7.4784E-02_JPRB,9.2706E-02_JPRB,9.6286E-02_JPRB/)  
+KBO( :, 5,19, 5) = (/&
+ & 9.2777E-03_JPRB,9.5603E-03_JPRB,5.1404E-02_JPRB,7.5248E-02_JPRB,9.2890E-02_JPRB,9.6015E-02_JPRB/)  
+KBO( :, 1,20, 5) = (/&
+ & 6.6406E-03_JPRB,6.9730E-03_JPRB,4.0765E-02_JPRB,6.0395E-02_JPRB,7.4894E-02_JPRB,7.7615E-02_JPRB/)  
+KBO( :, 2,20, 5) = (/&
+ & 6.9207E-03_JPRB,7.2477E-03_JPRB,4.1802E-02_JPRB,6.1965E-02_JPRB,7.6901E-02_JPRB,7.9381E-02_JPRB/)  
+KBO( :, 3,20, 5) = (/&
+ & 7.2065E-03_JPRB,7.5323E-03_JPRB,4.2689E-02_JPRB,6.3071E-02_JPRB,7.8052E-02_JPRB,8.0177E-02_JPRB/)  
+KBO( :, 4,20, 5) = (/&
+ & 7.5033E-03_JPRB,7.8245E-03_JPRB,4.3401E-02_JPRB,6.3586E-02_JPRB,7.8425E-02_JPRB,8.0205E-02_JPRB/)  
+KBO( :, 5,20, 5) = (/&
+ & 7.8207E-03_JPRB,8.1353E-03_JPRB,4.3986E-02_JPRB,6.3704E-02_JPRB,7.8211E-02_JPRB,7.9644E-02_JPRB/)  
+KBO( :, 1,21, 5) = (/&
+ & 5.5684E-03_JPRB,5.9172E-03_JPRB,3.4857E-02_JPRB,5.1594E-02_JPRB,6.3858E-02_JPRB,6.5331E-02_JPRB/)  
+KBO( :, 2,21, 5) = (/&
+ & 5.8079E-03_JPRB,6.1557E-03_JPRB,3.5708E-02_JPRB,5.2705E-02_JPRB,6.5132E-02_JPRB,6.6285E-02_JPRB/)  
+KBO( :, 3,21, 5) = (/&
+ & 6.0503E-03_JPRB,6.4001E-03_JPRB,3.6352E-02_JPRB,5.3300E-02_JPRB,6.5675E-02_JPRB,6.6569E-02_JPRB/)  
+KBO( :, 4,21, 5) = (/&
+ & 6.2998E-03_JPRB,6.6477E-03_JPRB,3.6852E-02_JPRB,5.3519E-02_JPRB,6.5720E-02_JPRB,6.6352E-02_JPRB/)  
+KBO( :, 5,21, 5) = (/&
+ & 6.5744E-03_JPRB,6.9172E-03_JPRB,3.7271E-02_JPRB,5.3554E-02_JPRB,6.5371E-02_JPRB,6.5708E-02_JPRB/)  
+KBO( :, 1,22, 5) = (/&
+ & 4.6792E-03_JPRB,5.0331E-03_JPRB,2.9657E-02_JPRB,4.3716E-02_JPRB,5.3931E-02_JPRB,5.4472E-02_JPRB/)  
+KBO( :, 2,22, 5) = (/&
+ & 4.8778E-03_JPRB,5.2371E-03_JPRB,3.0261E-02_JPRB,4.4366E-02_JPRB,5.4607E-02_JPRB,5.4935E-02_JPRB/)  
+KBO( :, 3,22, 5) = (/&
+ & 5.0770E-03_JPRB,5.4422E-03_JPRB,3.0710E-02_JPRB,4.4665E-02_JPRB,5.4836E-02_JPRB,5.4959E-02_JPRB/)  
+KBO( :, 4,22, 5) = (/&
+ & 5.2927E-03_JPRB,5.6586E-03_JPRB,3.1096E-02_JPRB,4.4798E-02_JPRB,5.4724E-02_JPRB,5.4622E-02_JPRB/)  
+KBO( :, 5,22, 5) = (/&
+ & 5.5434E-03_JPRB,5.9042E-03_JPRB,3.1379E-02_JPRB,4.4838E-02_JPRB,5.4360E-02_JPRB,5.3969E-02_JPRB/)  
+KBO( :, 1,23, 5) = (/&
+ & 3.9250E-03_JPRB,4.2788E-03_JPRB,2.5012E-02_JPRB,3.6685E-02_JPRB,4.5117E-02_JPRB,4.5081E-02_JPRB/)  
+KBO( :, 2,23, 5) = (/&
+ & 4.0873E-03_JPRB,4.4491E-03_JPRB,2.5443E-02_JPRB,3.7065E-02_JPRB,4.5485E-02_JPRB,4.5295E-02_JPRB/)  
+KBO( :, 3,23, 5) = (/&
+ & 4.2581E-03_JPRB,4.6288E-03_JPRB,2.5803E-02_JPRB,3.7271E-02_JPRB,4.5559E-02_JPRB,4.5199E-02_JPRB/)  
+KBO( :, 4,23, 5) = (/&
+ & 4.4522E-03_JPRB,4.8247E-03_JPRB,2.6083E-02_JPRB,3.7398E-02_JPRB,4.5404E-02_JPRB,4.4816E-02_JPRB/)  
+KBO( :, 5,23, 5) = (/&
+ & 4.6797E-03_JPRB,5.0478E-03_JPRB,2.6273E-02_JPRB,3.7409E-02_JPRB,4.5088E-02_JPRB,4.4196E-02_JPRB/)  
+KBO( :, 1,24, 5) = (/&
+ & 3.2858E-03_JPRB,3.6291E-03_JPRB,2.0947E-02_JPRB,3.0585E-02_JPRB,3.7522E-02_JPRB,3.7149E-02_JPRB/)  
+KBO( :, 2,24, 5) = (/&
+ & 3.4236E-03_JPRB,3.7775E-03_JPRB,2.1296E-02_JPRB,3.0855E-02_JPRB,3.7729E-02_JPRB,3.7225E-02_JPRB/)  
+KBO( :, 3,24, 5) = (/&
+ & 3.5756E-03_JPRB,3.9404E-03_JPRB,2.1574E-02_JPRB,3.1034E-02_JPRB,3.7731E-02_JPRB,3.7059E-02_JPRB/)  
+KBO( :, 4,24, 5) = (/&
+ & 3.7547E-03_JPRB,4.1217E-03_JPRB,2.1772E-02_JPRB,3.1132E-02_JPRB,3.7589E-02_JPRB,3.6671E-02_JPRB/)  
+KBO( :, 5,24, 5) = (/&
+ & 3.9592E-03_JPRB,4.3220E-03_JPRB,2.1911E-02_JPRB,3.1105E-02_JPRB,3.7336E-02_JPRB,3.6105E-02_JPRB/)  
+KBO( :, 1,25, 5) = (/&
+ & 2.7485E-03_JPRB,3.0715E-03_JPRB,1.7485E-02_JPRB,2.5411E-02_JPRB,3.1088E-02_JPRB,3.0529E-02_JPRB/)  
+KBO( :, 2,25, 5) = (/&
+ & 2.8696E-03_JPRB,3.2062E-03_JPRB,1.7760E-02_JPRB,2.5637E-02_JPRB,3.1212E-02_JPRB,3.0522E-02_JPRB/)  
+KBO( :, 3,25, 5) = (/&
+ & 3.0093E-03_JPRB,3.3562E-03_JPRB,1.7965E-02_JPRB,2.5792E-02_JPRB,3.1200E-02_JPRB,3.0326E-02_JPRB/)  
+KBO( :, 4,25, 5) = (/&
+ & 3.1710E-03_JPRB,3.5209E-03_JPRB,1.8112E-02_JPRB,2.5834E-02_JPRB,3.1084E-02_JPRB,2.9961E-02_JPRB/)  
+KBO( :, 5,25, 5) = (/&
+ & 3.3541E-03_JPRB,3.7049E-03_JPRB,1.8221E-02_JPRB,2.5787E-02_JPRB,3.0865E-02_JPRB,2.9461E-02_JPRB/)  
+KBO( :, 1,26, 5) = (/&
+ & 2.3019E-03_JPRB,2.5991E-03_JPRB,1.4558E-02_JPRB,2.1083E-02_JPRB,2.5705E-02_JPRB,2.5046E-02_JPRB/)  
+KBO( :, 2,26, 5) = (/&
+ & 2.4097E-03_JPRB,2.7218E-03_JPRB,1.4765E-02_JPRB,2.1273E-02_JPRB,2.5791E-02_JPRB,2.4990E-02_JPRB/)  
+KBO( :, 3,26, 5) = (/&
+ & 2.5374E-03_JPRB,2.8582E-03_JPRB,1.4920E-02_JPRB,2.1375E-02_JPRB,2.5785E-02_JPRB,2.4784E-02_JPRB/)  
+KBO( :, 4,26, 5) = (/&
+ & 2.6838E-03_JPRB,3.0095E-03_JPRB,1.5036E-02_JPRB,2.1391E-02_JPRB,2.5681E-02_JPRB,2.4453E-02_JPRB/)  
+KBO( :, 5,26, 5) = (/&
+ & 2.8416E-03_JPRB,3.1735E-03_JPRB,1.5124E-02_JPRB,2.1341E-02_JPRB,2.5468E-02_JPRB,2.4016E-02_JPRB/)  
+KBO( :, 1,27, 5) = (/&
+ & 1.9284E-03_JPRB,2.1979E-03_JPRB,1.2092E-02_JPRB,1.7474E-02_JPRB,2.1233E-02_JPRB,2.0526E-02_JPRB/)  
+KBO( :, 2,27, 5) = (/&
+ & 2.0271E-03_JPRB,2.3110E-03_JPRB,1.2248E-02_JPRB,1.7617E-02_JPRB,2.1305E-02_JPRB,2.0445E-02_JPRB/)  
+KBO( :, 3,27, 5) = (/&
+ & 2.1413E-03_JPRB,2.4339E-03_JPRB,1.2368E-02_JPRB,1.7683E-02_JPRB,2.1297E-02_JPRB,2.0248E-02_JPRB/)  
+KBO( :, 4,27, 5) = (/&
+ & 2.2700E-03_JPRB,2.5708E-03_JPRB,1.2461E-02_JPRB,1.7683E-02_JPRB,2.1187E-02_JPRB,1.9954E-02_JPRB/)  
+KBO( :, 5,27, 5) = (/&
+ & 2.4050E-03_JPRB,2.7137E-03_JPRB,1.2547E-02_JPRB,1.7644E-02_JPRB,2.0996E-02_JPRB,1.9578E-02_JPRB/)  
+KBO( :, 1,28, 5) = (/&
+ & 1.6177E-03_JPRB,1.8598E-03_JPRB,1.0025E-02_JPRB,1.4464E-02_JPRB,1.7533E-02_JPRB,1.6811E-02_JPRB/)  
+KBO( :, 2,28, 5) = (/&
+ & 1.7070E-03_JPRB,1.9616E-03_JPRB,1.0146E-02_JPRB,1.4566E-02_JPRB,1.7595E-02_JPRB,1.6720E-02_JPRB/)  
+KBO( :, 3,28, 5) = (/&
+ & 1.8084E-03_JPRB,2.0731E-03_JPRB,1.0240E-02_JPRB,1.4610E-02_JPRB,1.7567E-02_JPRB,1.6539E-02_JPRB/)  
+KBO( :, 4,28, 5) = (/&
+ & 1.9191E-03_JPRB,2.1930E-03_JPRB,1.0326E-02_JPRB,1.4610E-02_JPRB,1.7462E-02_JPRB,1.6282E-02_JPRB/)  
+KBO( :, 5,28, 5) = (/&
+ & 2.0364E-03_JPRB,2.3203E-03_JPRB,1.0409E-02_JPRB,1.4583E-02_JPRB,1.7296E-02_JPRB,1.5960E-02_JPRB/)  
+KBO( :, 1,29, 5) = (/&
+ & 1.3593E-03_JPRB,1.5756E-03_JPRB,8.3017E-03_JPRB,1.1957E-02_JPRB,1.4479E-02_JPRB,1.3772E-02_JPRB/)  
+KBO( :, 2,29, 5) = (/&
+ & 1.4401E-03_JPRB,1.6674E-03_JPRB,8.3969E-03_JPRB,1.2033E-02_JPRB,1.4515E-02_JPRB,1.3681E-02_JPRB/)  
+KBO( :, 3,29, 5) = (/&
+ & 1.5286E-03_JPRB,1.7667E-03_JPRB,8.4784E-03_JPRB,1.2064E-02_JPRB,1.4477E-02_JPRB,1.3518E-02_JPRB/)  
+KBO( :, 4,29, 5) = (/&
+ & 1.6239E-03_JPRB,1.8725E-03_JPRB,8.5587E-03_JPRB,1.2064E-02_JPRB,1.4381E-02_JPRB,1.3294E-02_JPRB/)  
+KBO( :, 5,29, 5) = (/&
+ & 1.7270E-03_JPRB,1.9868E-03_JPRB,8.6438E-03_JPRB,1.2057E-02_JPRB,1.4239E-02_JPRB,1.3028E-02_JPRB/)  
+KBO( :, 1,30, 5) = (/&
+ & 1.1445E-03_JPRB,1.3361E-03_JPRB,6.8720E-03_JPRB,9.8791E-03_JPRB,1.1950E-02_JPRB,1.1283E-02_JPRB/)  
+KBO( :, 2,30, 5) = (/&
+ & 1.2156E-03_JPRB,1.4188E-03_JPRB,6.9493E-03_JPRB,9.9349E-03_JPRB,1.1964E-02_JPRB,1.1195E-02_JPRB/)  
+KBO( :, 3,30, 5) = (/&
+ & 1.2922E-03_JPRB,1.5061E-03_JPRB,7.0248E-03_JPRB,9.9580E-03_JPRB,1.1924E-02_JPRB,1.1051E-02_JPRB/)  
+KBO( :, 4,30, 5) = (/&
+ & 1.3747E-03_JPRB,1.6004E-03_JPRB,7.1033E-03_JPRB,9.9696E-03_JPRB,1.1840E-02_JPRB,1.0864E-02_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART18',1,ZHOOK_HANDLE)
+END SUBROUTINE PART18
+
+
+SUBROUTINE PART19
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART19',0,ZHOOK_HANDLE)
+
+
+KBO( :, 5,30, 5) = (/&
+ & 1.4679E-03_JPRB,1.7048E-03_JPRB,7.1904E-03_JPRB,9.9722E-03_JPRB,1.1724E-02_JPRB,1.0645E-02_JPRB/)  
+KBO( :, 1,31, 5) = (/&
+ & 9.6571E-04_JPRB,1.1355E-03_JPRB,5.6867E-03_JPRB,8.1598E-03_JPRB,9.8539E-03_JPRB,9.2507E-03_JPRB/)  
+KBO( :, 2,31, 5) = (/&
+ & 1.0268E-03_JPRB,1.2081E-03_JPRB,5.7561E-03_JPRB,8.2013E-03_JPRB,9.8560E-03_JPRB,9.1701E-03_JPRB/)  
+KBO( :, 3,31, 5) = (/&
+ & 1.0932E-03_JPRB,1.2857E-03_JPRB,5.8273E-03_JPRB,8.2243E-03_JPRB,9.8178E-03_JPRB,9.0482E-03_JPRB/)  
+KBO( :, 4,31, 5) = (/&
+ & 1.1666E-03_JPRB,1.3712E-03_JPRB,5.9075E-03_JPRB,8.2428E-03_JPRB,9.7465E-03_JPRB,8.8946E-03_JPRB/)  
+KBO( :, 5,31, 5) = (/&
+ & 1.2509E-03_JPRB,1.4662E-03_JPRB,5.9896E-03_JPRB,8.2555E-03_JPRB,9.6578E-03_JPRB,8.7121E-03_JPRB/)  
+KBO( :, 1,32, 5) = (/&
+ & 8.1549E-04_JPRB,9.6647E-04_JPRB,4.7087E-03_JPRB,6.7390E-03_JPRB,8.1222E-03_JPRB,7.5866E-03_JPRB/)  
+KBO( :, 2,32, 5) = (/&
+ & 8.6808E-04_JPRB,1.0303E-03_JPRB,4.7745E-03_JPRB,6.7731E-03_JPRB,8.1188E-03_JPRB,7.5153E-03_JPRB/)  
+KBO( :, 3,32, 5) = (/&
+ & 9.2635E-04_JPRB,1.0997E-03_JPRB,4.8447E-03_JPRB,6.7992E-03_JPRB,8.0828E-03_JPRB,7.4160E-03_JPRB/)  
+KBO( :, 4,32, 5) = (/&
+ & 9.9293E-04_JPRB,1.1779E-03_JPRB,4.9222E-03_JPRB,6.8226E-03_JPRB,8.0279E-03_JPRB,7.2877E-03_JPRB/)  
+KBO( :, 5,32, 5) = (/&
+ & 1.0686E-03_JPRB,1.2641E-03_JPRB,4.9952E-03_JPRB,6.8449E-03_JPRB,7.9628E-03_JPRB,7.1366E-03_JPRB/)  
+KBO( :, 1,33, 5) = (/&
+ & 6.8866E-04_JPRB,8.2347E-04_JPRB,3.9045E-03_JPRB,5.5660E-03_JPRB,6.6934E-03_JPRB,6.2259E-03_JPRB/)  
+KBO( :, 2,33, 5) = (/&
+ & 7.3455E-04_JPRB,8.7986E-04_JPRB,3.9663E-03_JPRB,5.5986E-03_JPRB,6.6866E-03_JPRB,6.1677E-03_JPRB/)  
+KBO( :, 3,33, 5) = (/&
+ & 7.8698E-04_JPRB,9.4282E-04_JPRB,4.0361E-03_JPRB,5.6281E-03_JPRB,6.6584E-03_JPRB,6.0842E-03_JPRB/)  
+KBO( :, 4,33, 5) = (/&
+ & 8.4706E-04_JPRB,1.0140E-03_JPRB,4.1036E-03_JPRB,5.6568E-03_JPRB,6.6185E-03_JPRB,5.9772E-03_JPRB/)  
+KBO( :, 5,33, 5) = (/&
+ & 9.1579E-04_JPRB,1.0926E-03_JPRB,4.1728E-03_JPRB,5.6818E-03_JPRB,6.5697E-03_JPRB,5.8519E-03_JPRB/)  
+KBO( :, 1,34, 5) = (/&
+ & 5.8058E-04_JPRB,7.0023E-04_JPRB,3.2403E-03_JPRB,4.6005E-03_JPRB,5.5166E-03_JPRB,5.1111E-03_JPRB/)  
+KBO( :, 2,34, 5) = (/&
+ & 6.2122E-04_JPRB,7.5048E-04_JPRB,3.3005E-03_JPRB,4.6334E-03_JPRB,5.5099E-03_JPRB,5.0626E-03_JPRB/)  
+KBO( :, 3,34, 5) = (/&
+ & 6.6865E-04_JPRB,8.0788E-04_JPRB,3.3630E-03_JPRB,4.6658E-03_JPRB,5.4906E-03_JPRB,4.9925E-03_JPRB/)  
+KBO( :, 4,34, 5) = (/&
+ & 7.2278E-04_JPRB,8.7227E-04_JPRB,3.4246E-03_JPRB,4.6970E-03_JPRB,5.4619E-03_JPRB,4.9033E-03_JPRB/)  
+KBO( :, 5,34, 5) = (/&
+ & 7.8420E-04_JPRB,9.4411E-04_JPRB,3.4913E-03_JPRB,4.7221E-03_JPRB,5.4290E-03_JPRB,4.7999E-03_JPRB/)  
+KBO( :, 1,35, 5) = (/&
+ & 4.8680E-04_JPRB,5.9168E-04_JPRB,2.6886E-03_JPRB,3.8031E-03_JPRB,4.5472E-03_JPRB,4.2007E-03_JPRB/)  
+KBO( :, 2,35, 5) = (/&
+ & 5.2287E-04_JPRB,6.3647E-04_JPRB,2.7442E-03_JPRB,3.8365E-03_JPRB,4.5442E-03_JPRB,4.1613E-03_JPRB/)  
+KBO( :, 3,35, 5) = (/&
+ & 5.6494E-04_JPRB,6.8801E-04_JPRB,2.7990E-03_JPRB,3.8713E-03_JPRB,4.5326E-03_JPRB,4.1035E-03_JPRB/)  
+KBO( :, 4,35, 5) = (/&
+ & 6.1346E-04_JPRB,7.4591E-04_JPRB,2.8564E-03_JPRB,3.9017E-03_JPRB,4.5150E-03_JPRB,4.0303E-03_JPRB/)  
+KBO( :, 5,35, 5) = (/&
+ & 6.6714E-04_JPRB,8.1053E-04_JPRB,2.9207E-03_JPRB,3.9294E-03_JPRB,4.4955E-03_JPRB,3.9472E-03_JPRB/)  
+KBO( :, 1,36, 5) = (/&
+ & 4.0556E-04_JPRB,4.9618E-04_JPRB,2.2284E-03_JPRB,3.1440E-03_JPRB,3.7492E-03_JPRB,3.4553E-03_JPRB/)  
+KBO( :, 2,36, 5) = (/&
+ & 4.3716E-04_JPRB,5.3572E-04_JPRB,2.2775E-03_JPRB,3.1778E-03_JPRB,3.7514E-03_JPRB,3.4245E-03_JPRB/)  
+KBO( :, 3,36, 5) = (/&
+ & 4.7403E-04_JPRB,5.8132E-04_JPRB,2.3270E-03_JPRB,3.2124E-03_JPRB,3.7468E-03_JPRB,3.3780E-03_JPRB/)  
+KBO( :, 4,36, 5) = (/&
+ & 5.1659E-04_JPRB,6.3283E-04_JPRB,2.3801E-03_JPRB,3.2412E-03_JPRB,3.7380E-03_JPRB,3.3193E-03_JPRB/)  
+KBO( :, 5,36, 5) = (/&
+ & 5.6320E-04_JPRB,6.9001E-04_JPRB,2.4401E-03_JPRB,3.2716E-03_JPRB,3.7268E-03_JPRB,3.2538E-03_JPRB/)  
+KBO( :, 1,37, 5) = (/&
+ & 3.3445E-04_JPRB,4.1138E-04_JPRB,1.8414E-03_JPRB,2.5960E-03_JPRB,3.0918E-03_JPRB,2.8440E-03_JPRB/)  
+KBO( :, 2,37, 5) = (/&
+ & 3.6139E-04_JPRB,4.4542E-04_JPRB,1.8850E-03_JPRB,2.6293E-03_JPRB,3.0984E-03_JPRB,2.8216E-03_JPRB/)  
+KBO( :, 3,37, 5) = (/&
+ & 3.9302E-04_JPRB,4.8495E-04_JPRB,1.9291E-03_JPRB,2.6624E-03_JPRB,3.0995E-03_JPRB,2.7862E-03_JPRB/)  
+KBO( :, 4,37, 5) = (/&
+ & 4.2962E-04_JPRB,5.3000E-04_JPRB,1.9778E-03_JPRB,2.6913E-03_JPRB,3.0985E-03_JPRB,2.7408E-03_JPRB/)  
+KBO( :, 5,37, 5) = (/&
+ & 4.6957E-04_JPRB,5.7981E-04_JPRB,2.0321E-03_JPRB,2.7224E-03_JPRB,3.0939E-03_JPRB,2.6899E-03_JPRB/)  
+KBO( :, 1,38, 5) = (/&
+ & 2.7565E-04_JPRB,3.4069E-04_JPRB,1.5215E-03_JPRB,2.1439E-03_JPRB,2.5502E-03_JPRB,2.3418E-03_JPRB/)  
+KBO( :, 2,38, 5) = (/&
+ & 2.9863E-04_JPRB,3.7003E-04_JPRB,1.5598E-03_JPRB,2.1756E-03_JPRB,2.5600E-03_JPRB,2.3264E-03_JPRB/)  
+KBO( :, 3,38, 5) = (/&
+ & 3.2577E-04_JPRB,4.0422E-04_JPRB,1.5995E-03_JPRB,2.2068E-03_JPRB,2.5657E-03_JPRB,2.2995E-03_JPRB/)  
+KBO( :, 4,38, 5) = (/&
+ & 3.5709E-04_JPRB,4.4339E-04_JPRB,1.6429E-03_JPRB,2.2349E-03_JPRB,2.5695E-03_JPRB,2.2650E-03_JPRB/)  
+KBO( :, 5,38, 5) = (/&
+ & 3.9150E-04_JPRB,4.8695E-04_JPRB,1.6922E-03_JPRB,2.2658E-03_JPRB,2.5693E-03_JPRB,2.2257E-03_JPRB/)  
+KBO( :, 1,39, 5) = (/&
+ & 2.2724E-04_JPRB,2.8211E-04_JPRB,1.2574E-03_JPRB,1.7709E-03_JPRB,2.1038E-03_JPRB,1.9299E-03_JPRB/)  
+KBO( :, 2,39, 5) = (/&
+ & 2.4681E-04_JPRB,3.0736E-04_JPRB,1.2915E-03_JPRB,1.8008E-03_JPRB,2.1155E-03_JPRB,1.9194E-03_JPRB/)  
+KBO( :, 3,39, 5) = (/&
+ & 2.7014E-04_JPRB,3.3704E-04_JPRB,1.3268E-03_JPRB,1.8293E-03_JPRB,2.1247E-03_JPRB,1.8997E-03_JPRB/)  
+KBO( :, 4,39, 5) = (/&
+ & 2.9696E-04_JPRB,3.7109E-04_JPRB,1.3658E-03_JPRB,1.8564E-03_JPRB,2.1316E-03_JPRB,1.8739E-03_JPRB/)  
+KBO( :, 5,39, 5) = (/&
+ & 3.2661E-04_JPRB,4.0911E-04_JPRB,1.4099E-03_JPRB,1.8866E-03_JPRB,2.1349E-03_JPRB,1.8442E-03_JPRB/)  
+KBO( :, 1,40, 5) = (/&
+ & 1.8579E-04_JPRB,2.3160E-04_JPRB,1.0365E-03_JPRB,1.4603E-03_JPRB,1.7343E-03_JPRB,1.5866E-03_JPRB/)  
+KBO( :, 2,40, 5) = (/&
+ & 2.0221E-04_JPRB,2.5290E-04_JPRB,1.0666E-03_JPRB,1.4877E-03_JPRB,1.7476E-03_JPRB,1.5810E-03_JPRB/)  
+KBO( :, 3,40, 5) = (/&
+ & 2.2187E-04_JPRB,2.7826E-04_JPRB,1.0975E-03_JPRB,1.5141E-03_JPRB,1.7589E-03_JPRB,1.5669E-03_JPRB/)  
+KBO( :, 4,40, 5) = (/&
+ & 2.4464E-04_JPRB,3.0747E-04_JPRB,1.1320E-03_JPRB,1.5399E-03_JPRB,1.7682E-03_JPRB,1.5479E-03_JPRB/)  
+KBO( :, 5,40, 5) = (/&
+ & 2.6982E-04_JPRB,3.4023E-04_JPRB,1.1712E-03_JPRB,1.5681E-03_JPRB,1.7744E-03_JPRB,1.5254E-03_JPRB/)  
+KBO( :, 1,41, 5) = (/&
+ & 1.5166E-04_JPRB,1.8980E-04_JPRB,8.5379E-04_JPRB,1.2035E-03_JPRB,1.4293E-03_JPRB,1.3039E-03_JPRB/)  
+KBO( :, 2,41, 5) = (/&
+ & 1.6546E-04_JPRB,2.0775E-04_JPRB,8.8025E-04_JPRB,1.2284E-03_JPRB,1.4432E-03_JPRB,1.3014E-03_JPRB/)  
+KBO( :, 3,41, 5) = (/&
+ & 1.8194E-04_JPRB,2.2930E-04_JPRB,9.0741E-04_JPRB,1.2528E-03_JPRB,1.4560E-03_JPRB,1.2919E-03_JPRB/)  
+KBO( :, 4,41, 5) = (/&
+ & 2.0120E-04_JPRB,2.5429E-04_JPRB,9.3787E-04_JPRB,1.2766E-03_JPRB,1.4664E-03_JPRB,1.2782E-03_JPRB/)  
+KBO( :, 5,41, 5) = (/&
+ & 2.2263E-04_JPRB,2.8250E-04_JPRB,9.7232E-04_JPRB,1.3029E-03_JPRB,1.4746E-03_JPRB,1.2613E-03_JPRB/)  
+KBO( :, 1,42, 5) = (/&
+ & 1.2374E-04_JPRB,1.5546E-04_JPRB,7.0307E-04_JPRB,9.9137E-04_JPRB,1.1774E-03_JPRB,1.0716E-03_JPRB/)  
+KBO( :, 2,42, 5) = (/&
+ & 1.3533E-04_JPRB,1.7055E-04_JPRB,7.2623E-04_JPRB,1.0140E-03_JPRB,1.1917E-03_JPRB,1.0713E-03_JPRB/)  
+KBO( :, 3,42, 5) = (/&
+ & 1.4914E-04_JPRB,1.8882E-04_JPRB,7.4998E-04_JPRB,1.0363E-03_JPRB,1.2049E-03_JPRB,1.0651E-03_JPRB/)  
+KBO( :, 4,42, 5) = (/&
+ & 1.6539E-04_JPRB,2.1022E-04_JPRB,7.7693E-04_JPRB,1.0584E-03_JPRB,1.2160E-03_JPRB,1.0556E-03_JPRB/)  
+KBO( :, 5,42, 5) = (/&
+ & 1.8361E-04_JPRB,2.3442E-04_JPRB,8.0719E-04_JPRB,1.0824E-03_JPRB,1.2253E-03_JPRB,1.0431E-03_JPRB/)  
+KBO( :, 1,43, 5) = (/&
+ & 1.0045E-04_JPRB,1.2664E-04_JPRB,5.7734E-04_JPRB,8.1536E-04_JPRB,9.6884E-04_JPRB,8.7977E-04_JPRB/)  
+KBO( :, 2,43, 5) = (/&
+ & 1.1005E-04_JPRB,1.3917E-04_JPRB,5.9774E-04_JPRB,8.3582E-04_JPRB,9.8292E-04_JPRB,8.8149E-04_JPRB/)  
+KBO( :, 3,43, 5) = (/&
+ & 1.2153E-04_JPRB,1.5445E-04_JPRB,6.1853E-04_JPRB,8.5606E-04_JPRB,9.9619E-04_JPRB,8.7826E-04_JPRB/)  
+KBO( :, 4,43, 5) = (/&
+ & 1.3510E-04_JPRB,1.7258E-04_JPRB,6.4186E-04_JPRB,8.7601E-04_JPRB,1.0075E-03_JPRB,8.7187E-04_JPRB/)  
+KBO( :, 5,43, 5) = (/&
+ & 1.5043E-04_JPRB,1.9318E-04_JPRB,6.6828E-04_JPRB,8.9763E-04_JPRB,1.0172E-03_JPRB,8.6294E-04_JPRB/)  
+KBO( :, 1,44, 5) = (/&
+ & 8.1305E-05_JPRB,1.0284E-04_JPRB,4.7336E-04_JPRB,6.6976E-04_JPRB,7.9626E-04_JPRB,7.2189E-04_JPRB/)  
+KBO( :, 2,44, 5) = (/&
+ & 8.9193E-05_JPRB,1.1315E-04_JPRB,4.9111E-04_JPRB,6.8790E-04_JPRB,8.0980E-04_JPRB,7.2505E-04_JPRB/)  
+KBO( :, 3,44, 5) = (/&
+ & 9.8676E-05_JPRB,1.2583E-04_JPRB,5.0913E-04_JPRB,7.0617E-04_JPRB,8.2256E-04_JPRB,7.2410E-04_JPRB/)  
+KBO( :, 4,44, 5) = (/&
+ & 1.0996E-04_JPRB,1.4111E-04_JPRB,5.2937E-04_JPRB,7.2436E-04_JPRB,8.3410E-04_JPRB,7.2019E-04_JPRB/)  
+KBO( :, 5,44, 5) = (/&
+ & 1.2282E-04_JPRB,1.5859E-04_JPRB,5.5236E-04_JPRB,7.4376E-04_JPRB,8.4405E-04_JPRB,7.1417E-04_JPRB/)  
+KBO( :, 1,45, 5) = (/&
+ & 6.5786E-05_JPRB,8.3420E-05_JPRB,3.8779E-04_JPRB,5.4957E-04_JPRB,6.5386E-04_JPRB,5.9205E-04_JPRB/)  
+KBO( :, 2,45, 5) = (/&
+ & 7.2236E-05_JPRB,9.1932E-05_JPRB,4.0331E-04_JPRB,5.6601E-04_JPRB,6.6677E-04_JPRB,5.9628E-04_JPRB/)  
+KBO( :, 3,45, 5) = (/&
+ & 8.0050E-05_JPRB,1.0242E-04_JPRB,4.1883E-04_JPRB,5.8238E-04_JPRB,6.7888E-04_JPRB,5.9688E-04_JPRB/)  
+KBO( :, 4,45, 5) = (/&
+ & 8.9405E-05_JPRB,1.1521E-04_JPRB,4.3614E-04_JPRB,5.9853E-04_JPRB,6.8997E-04_JPRB,5.9495E-04_JPRB/)  
+KBO( :, 5,45, 5) = (/&
+ & 1.0018E-04_JPRB,1.3003E-04_JPRB,4.5610E-04_JPRB,6.1576E-04_JPRB,6.9970E-04_JPRB,5.9107E-04_JPRB/)  
+KBO( :, 1,46, 5) = (/&
+ & 5.3104E-05_JPRB,6.7476E-05_JPRB,3.1711E-04_JPRB,4.5030E-04_JPRB,5.3634E-04_JPRB,4.8529E-04_JPRB/)  
+KBO( :, 2,46, 5) = (/&
+ & 5.8310E-05_JPRB,7.4440E-05_JPRB,3.3050E-04_JPRB,4.6471E-04_JPRB,5.4814E-04_JPRB,4.8994E-04_JPRB/)  
+KBO( :, 3,46, 5) = (/&
+ & 6.4721E-05_JPRB,8.3070E-05_JPRB,3.4388E-04_JPRB,4.7945E-04_JPRB,5.5942E-04_JPRB,4.9178E-04_JPRB/)  
+KBO( :, 4,46, 5) = (/&
+ & 7.2446E-05_JPRB,9.3711E-05_JPRB,3.5879E-04_JPRB,4.9397E-04_JPRB,5.7010E-04_JPRB,4.9130E-04_JPRB/)  
+KBO( :, 5,46, 5) = (/&
+ & 8.1435E-05_JPRB,1.0620E-04_JPRB,3.7604E-04_JPRB,5.0936E-04_JPRB,5.7974E-04_JPRB,4.8929E-04_JPRB/)  
+KBO( :, 1,47, 5) = (/&
+ & 4.2686E-05_JPRB,5.4314E-05_JPRB,2.5853E-04_JPRB,3.6799E-04_JPRB,4.3908E-04_JPRB,3.9686E-04_JPRB/)  
+KBO( :, 2,47, 5) = (/&
+ & 4.6834E-05_JPRB,5.9958E-05_JPRB,2.7010E-04_JPRB,3.8053E-04_JPRB,4.4992E-04_JPRB,4.0194E-04_JPRB/)  
+KBO( :, 3,47, 5) = (/&
+ & 5.2031E-05_JPRB,6.6956E-05_JPRB,2.8174E-04_JPRB,3.9382E-04_JPRB,4.6023E-04_JPRB,4.0464E-04_JPRB/)  
+KBO( :, 4,47, 5) = (/&
+ & 5.8344E-05_JPRB,7.5683E-05_JPRB,2.9437E-04_JPRB,4.0674E-04_JPRB,4.7039E-04_JPRB,4.0528E-04_JPRB/)  
+KBO( :, 5,47, 5) = (/&
+ & 6.5774E-05_JPRB,8.6102E-05_JPRB,3.0904E-04_JPRB,4.2022E-04_JPRB,4.7955E-04_JPRB,4.0445E-04_JPRB/)  
+KBO( :, 1,48, 5) = (/&
+ & 3.4313E-05_JPRB,4.3687E-05_JPRB,2.1071E-04_JPRB,3.0035E-04_JPRB,3.5902E-04_JPRB,3.2436E-04_JPRB/)  
+KBO( :, 2,48, 5) = (/&
+ & 3.7593E-05_JPRB,4.8250E-05_JPRB,2.2059E-04_JPRB,3.1121E-04_JPRB,3.6875E-04_JPRB,3.2956E-04_JPRB/)  
+KBO( :, 3,48, 5) = (/&
+ & 4.1785E-05_JPRB,5.3906E-05_JPRB,2.3062E-04_JPRB,3.2298E-04_JPRB,3.7819E-04_JPRB,3.3287E-04_JPRB/)  
+KBO( :, 4,48, 5) = (/&
+ & 4.6905E-05_JPRB,6.0993E-05_JPRB,2.4128E-04_JPRB,3.3438E-04_JPRB,3.8763E-04_JPRB,3.3428E-04_JPRB/)  
+KBO( :, 5,48, 5) = (/&
+ & 5.3020E-05_JPRB,6.9645E-05_JPRB,2.5366E-04_JPRB,3.4620E-04_JPRB,3.9625E-04_JPRB,3.3440E-04_JPRB/)  
+KBO( :, 1,49, 5) = (/&
+ & 2.7583E-05_JPRB,3.5115E-05_JPRB,1.7155E-04_JPRB,2.4481E-04_JPRB,2.9317E-04_JPRB,2.6498E-04_JPRB/)  
+KBO( :, 2,49, 5) = (/&
+ & 3.0170E-05_JPRB,3.8800E-05_JPRB,1.7986E-04_JPRB,2.5418E-04_JPRB,3.0189E-04_JPRB,2.7025E-04_JPRB/)  
+KBO( :, 3,49, 5) = (/&
+ & 3.3521E-05_JPRB,4.3336E-05_JPRB,1.8852E-04_JPRB,2.6447E-04_JPRB,3.1043E-04_JPRB,2.7387E-04_JPRB/)  
+KBO( :, 4,49, 5) = (/&
+ & 3.7657E-05_JPRB,4.9084E-05_JPRB,1.9758E-04_JPRB,2.7449E-04_JPRB,3.1899E-04_JPRB,2.7586E-04_JPRB/)  
+KBO( :, 5,49, 5) = (/&
+ & 4.2653E-05_JPRB,5.6226E-05_JPRB,2.0799E-04_JPRB,2.8484E-04_JPRB,3.2703E-04_JPRB,2.7676E-04_JPRB/)  
+KBO( :, 1,50, 5) = (/&
+ & 2.2217E-05_JPRB,2.8271E-05_JPRB,1.3969E-04_JPRB,1.9948E-04_JPRB,2.3919E-04_JPRB,2.1597E-04_JPRB/)  
+KBO( :, 2,50, 5) = (/&
+ & 2.4266E-05_JPRB,3.1256E-05_JPRB,1.4667E-04_JPRB,2.0754E-04_JPRB,2.4693E-04_JPRB,2.2097E-04_JPRB/)  
+KBO( :, 3,50, 5) = (/&
+ & 2.6941E-05_JPRB,3.4914E-05_JPRB,1.5413E-04_JPRB,2.1640E-04_JPRB,2.5457E-04_JPRB,2.2461E-04_JPRB/)  
+KBO( :, 4,50, 5) = (/&
+ & 3.0285E-05_JPRB,3.9575E-05_JPRB,1.6186E-04_JPRB,2.2530E-04_JPRB,2.6234E-04_JPRB,2.2692E-04_JPRB/)  
+KBO( :, 5,50, 5) = (/&
+ & 3.4382E-05_JPRB,4.5471E-05_JPRB,1.7067E-04_JPRB,2.3435E-04_JPRB,2.6986E-04_JPRB,2.2825E-04_JPRB/)  
+KBO( :, 1,51, 5) = (/&
+ & 1.7903E-05_JPRB,2.2773E-05_JPRB,1.1369E-04_JPRB,1.6241E-04_JPRB,1.9498E-04_JPRB,1.7573E-04_JPRB/)  
+KBO( :, 2,51, 5) = (/&
+ & 1.9536E-05_JPRB,2.5192E-05_JPRB,1.1954E-04_JPRB,1.6937E-04_JPRB,2.0181E-04_JPRB,1.8035E-04_JPRB/)  
+KBO( :, 3,51, 5) = (/&
+ & 2.1660E-05_JPRB,2.8144E-05_JPRB,1.2601E-04_JPRB,1.7700E-04_JPRB,2.0866E-04_JPRB,1.8387E-04_JPRB/)  
+KBO( :, 4,51, 5) = (/&
+ & 2.4364E-05_JPRB,3.1929E-05_JPRB,1.3264E-04_JPRB,1.8486E-04_JPRB,2.1560E-04_JPRB,1.8633E-04_JPRB/)  
+KBO( :, 5,51, 5) = (/&
+ & 2.7713E-05_JPRB,3.6767E-05_JPRB,1.4007E-04_JPRB,1.9273E-04_JPRB,2.2249E-04_JPRB,1.8786E-04_JPRB/)  
+KBO( :, 1,52, 5) = (/&
+ & 1.4419E-05_JPRB,1.8337E-05_JPRB,9.2470E-05_JPRB,1.3214E-04_JPRB,1.5869E-04_JPRB,1.4290E-04_JPRB/)  
+KBO( :, 2,52, 5) = (/&
+ & 1.5732E-05_JPRB,2.0292E-05_JPRB,9.7355E-05_JPRB,1.3808E-04_JPRB,1.6476E-04_JPRB,1.4717E-04_JPRB/)  
+KBO( :, 3,52, 5) = (/&
+ & 1.7402E-05_JPRB,2.2667E-05_JPRB,1.0291E-04_JPRB,1.4460E-04_JPRB,1.7083E-04_JPRB,1.5054E-04_JPRB/)  
+KBO( :, 4,52, 5) = (/&
+ & 1.9581E-05_JPRB,2.5730E-05_JPRB,1.0857E-04_JPRB,1.5152E-04_JPRB,1.7697E-04_JPRB,1.5305E-04_JPRB/)  
+KBO( :, 5,52, 5) = (/&
+ & 2.2301E-05_JPRB,2.9666E-05_JPRB,1.1484E-04_JPRB,1.5832E-04_JPRB,1.8319E-04_JPRB,1.5468E-04_JPRB/)  
+KBO( :, 1,53, 5) = (/&
+ & 1.1603E-05_JPRB,1.4759E-05_JPRB,7.5154E-05_JPRB,1.0740E-04_JPRB,1.2904E-04_JPRB,1.1618E-04_JPRB/)  
+KBO( :, 2,53, 5) = (/&
+ & 1.2667E-05_JPRB,1.6333E-05_JPRB,7.9235E-05_JPRB,1.1248E-04_JPRB,1.3438E-04_JPRB,1.2007E-04_JPRB/)  
+KBO( :, 3,53, 5) = (/&
+ & 1.3975E-05_JPRB,1.8245E-05_JPRB,8.3933E-05_JPRB,1.1800E-04_JPRB,1.3960E-04_JPRB,1.2329E-04_JPRB/)  
+KBO( :, 4,53, 5) = (/&
+ & 1.5718E-05_JPRB,2.0708E-05_JPRB,8.8803E-05_JPRB,1.2402E-04_JPRB,1.4502E-04_JPRB,1.2574E-04_JPRB/)  
+KBO( :, 5,53, 5) = (/&
+ & 1.7916E-05_JPRB,2.3895E-05_JPRB,9.4069E-05_JPRB,1.2995E-04_JPRB,1.5061E-04_JPRB,1.2749E-04_JPRB/)  
+KBO( :, 1,54, 5) = (/&
+ & 9.3552E-06_JPRB,1.1912E-05_JPRB,6.1100E-05_JPRB,8.7316E-05_JPRB,1.0492E-04_JPRB,9.4080E-05_JPRB/)  
+KBO( :, 2,54, 5) = (/&
+ & 1.0223E-05_JPRB,1.3180E-05_JPRB,6.4519E-05_JPRB,9.1648E-05_JPRB,1.0960E-04_JPRB,9.7474E-05_JPRB/)  
+KBO( :, 3,54, 5) = (/&
+ & 1.1260E-05_JPRB,1.4728E-05_JPRB,6.8487E-05_JPRB,9.6346E-05_JPRB,1.1410E-04_JPRB,1.0031E-04_JPRB/)  
+KBO( :, 4,54, 5) = (/&
+ & 1.2653E-05_JPRB,1.6714E-05_JPRB,7.2680E-05_JPRB,1.0156E-04_JPRB,1.1881E-04_JPRB,1.0254E-04_JPRB/)  
+KBO( :, 5,54, 5) = (/&
+ & 1.4429E-05_JPRB,1.9299E-05_JPRB,7.7137E-05_JPRB,1.0670E-04_JPRB,1.2378E-04_JPRB,1.0417E-04_JPRB/)  
+KBO( :, 1,55, 5) = (/&
+ & 7.5478E-06_JPRB,9.6233E-06_JPRB,4.9651E-05_JPRB,7.0961E-05_JPRB,8.5289E-05_JPRB,7.6005E-05_JPRB/)  
+KBO( :, 2,55, 5) = (/&
+ & 8.2560E-06_JPRB,1.0645E-05_JPRB,5.2535E-05_JPRB,7.4651E-05_JPRB,8.9338E-05_JPRB,7.8872E-05_JPRB/)  
+KBO( :, 3,55, 5) = (/&
+ & 9.0843E-06_JPRB,1.1897E-05_JPRB,5.5871E-05_JPRB,7.8654E-05_JPRB,9.3220E-05_JPRB,8.1320E-05_JPRB/)  
+KBO( :, 4,55, 5) = (/&
+ & 1.0193E-05_JPRB,1.3501E-05_JPRB,5.9444E-05_JPRB,8.3119E-05_JPRB,9.7325E-05_JPRB,8.3263E-05_JPRB/)  
+KBO( :, 5,55, 5) = (/&
+ & 1.1628E-05_JPRB,1.5599E-05_JPRB,6.3252E-05_JPRB,8.7606E-05_JPRB,1.0169E-04_JPRB,8.4683E-05_JPRB/)  
+KBO( :, 1,56, 5) = (/&
+ & 6.0903E-06_JPRB,7.7718E-06_JPRB,4.0310E-05_JPRB,5.7612E-05_JPRB,6.9244E-05_JPRB,6.1397E-05_JPRB/)  
+KBO( :, 2,56, 5) = (/&
+ & 6.6641E-06_JPRB,8.5930E-06_JPRB,4.2736E-05_JPRB,6.0755E-05_JPRB,7.2744E-05_JPRB,6.3793E-05_JPRB/)  
+KBO( :, 3,56, 5) = (/&
+ & 7.3291E-06_JPRB,9.6040E-06_JPRB,4.5523E-05_JPRB,6.4146E-05_JPRB,7.6097E-05_JPRB,6.5892E-05_JPRB/)  
+KBO( :, 4,56, 5) = (/&
+ & 8.2059E-06_JPRB,1.0897E-05_JPRB,4.8582E-05_JPRB,6.7958E-05_JPRB,7.9612E-05_JPRB,6.7572E-05_JPRB/)  
+KBO( :, 5,56, 5) = (/&
+ & 9.3593E-06_JPRB,1.2596E-05_JPRB,5.1826E-05_JPRB,7.1849E-05_JPRB,8.3426E-05_JPRB,6.8816E-05_JPRB/)  
+KBO( :, 1,57, 5) = (/&
+ & 4.9169E-06_JPRB,6.2768E-06_JPRB,3.2692E-05_JPRB,4.6726E-05_JPRB,5.6174E-05_JPRB,4.9561E-05_JPRB/)  
+KBO( :, 2,57, 5) = (/&
+ & 5.3758E-06_JPRB,6.9313E-06_JPRB,3.4730E-05_JPRB,4.9399E-05_JPRB,5.9171E-05_JPRB,5.1566E-05_JPRB/)  
+KBO( :, 3,57, 5) = (/&
+ & 5.9131E-06_JPRB,7.7475E-06_JPRB,3.7055E-05_JPRB,5.2261E-05_JPRB,6.2056E-05_JPRB,5.3362E-05_JPRB/)  
+KBO( :, 4,57, 5) = (/&
+ & 6.6016E-06_JPRB,8.7843E-06_JPRB,3.9661E-05_JPRB,5.5498E-05_JPRB,6.5058E-05_JPRB,5.4813E-05_JPRB/)  
+KBO( :, 5,57, 5) = (/&
+ & 7.5245E-06_JPRB,1.0159E-05_JPRB,4.2420E-05_JPRB,5.8870E-05_JPRB,6.8384E-05_JPRB,5.5909E-05_JPRB/)  
+KBO( :, 1,58, 5) = (/&
+ & 3.9769E-06_JPRB,5.0771E-06_JPRB,2.6520E-05_JPRB,3.7905E-05_JPRB,4.5566E-05_JPRB,3.9988E-05_JPRB/)  
+KBO( :, 2,58, 5) = (/&
+ & 4.3395E-06_JPRB,5.5964E-06_JPRB,2.8222E-05_JPRB,4.0161E-05_JPRB,4.8120E-05_JPRB,4.1683E-05_JPRB/)  
+KBO( :, 3,58, 5) = (/&
+ & 4.7765E-06_JPRB,6.2573E-06_JPRB,3.0162E-05_JPRB,4.2567E-05_JPRB,5.0612E-05_JPRB,4.3174E-05_JPRB/)  
+KBO( :, 4,58, 5) = (/&
+ & 5.3191E-06_JPRB,7.0924E-06_JPRB,3.2377E-05_JPRB,4.5319E-05_JPRB,5.3172E-05_JPRB,4.4428E-05_JPRB/)  
+KBO( :, 5,58, 5) = (/&
+ & 6.0584E-06_JPRB,8.2028E-06_JPRB,3.4727E-05_JPRB,4.8232E-05_JPRB,5.6042E-05_JPRB,4.5381E-05_JPRB/)  
+KBO( :, 1,59, 5) = (/&
+ & 3.2625E-06_JPRB,4.1716E-06_JPRB,2.1747E-05_JPRB,3.1052E-05_JPRB,3.7329E-05_JPRB,3.2409E-05_JPRB/)  
+KBO( :, 2,59, 5) = (/&
+ & 3.5622E-06_JPRB,4.6062E-06_JPRB,2.3191E-05_JPRB,3.2966E-05_JPRB,3.9488E-05_JPRB,3.3775E-05_JPRB/)  
+KBO( :, 3,59, 5) = (/&
+ & 3.9265E-06_JPRB,5.1603E-06_JPRB,2.4857E-05_JPRB,3.5039E-05_JPRB,4.1610E-05_JPRB,3.4936E-05_JPRB/)  
+KBO( :, 4,59, 5) = (/&
+ & 4.3796E-06_JPRB,5.8651E-06_JPRB,2.6758E-05_JPRB,3.7407E-05_JPRB,4.3840E-05_JPRB,3.5912E-05_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART19',1,ZHOOK_HANDLE)
+END SUBROUTINE PART19
+
+
+SUBROUTINE PART20
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART20',0,ZHOOK_HANDLE)
+
+
+KBO( :, 5,59, 5) = (/&
+ & 5.0004E-06_JPRB,6.8064E-06_JPRB,2.8778E-05_JPRB,3.9920E-05_JPRB,4.6344E-05_JPRB,3.6645E-05_JPRB/)  
+KBO( :, 1,13, 6) = (/&
+ & 4.2535E-02_JPRB,4.2762E-02_JPRB,1.6998E-01_JPRB,2.5943E-01_JPRB,3.3118E-01_JPRB,3.6759E-01_JPRB/)  
+KBO( :, 2,13, 6) = (/&
+ & 4.3681E-02_JPRB,4.3907E-02_JPRB,1.7098E-01_JPRB,2.6169E-01_JPRB,3.3567E-01_JPRB,3.7656E-01_JPRB/)  
+KBO( :, 3,13, 6) = (/&
+ & 4.4881E-02_JPRB,4.5106E-02_JPRB,1.7235E-01_JPRB,2.6332E-01_JPRB,3.3843E-01_JPRB,3.8337E-01_JPRB/)  
+KBO( :, 4,13, 6) = (/&
+ & 4.6097E-02_JPRB,4.6310E-02_JPRB,1.7381E-01_JPRB,2.6438E-01_JPRB,3.3969E-01_JPRB,3.8855E-01_JPRB/)  
+KBO( :, 5,13, 6) = (/&
+ & 4.7339E-02_JPRB,4.7538E-02_JPRB,1.7512E-01_JPRB,2.6493E-01_JPRB,3.3999E-01_JPRB,3.9260E-01_JPRB/)  
+KBO( :, 1,14, 6) = (/&
+ & 3.6653E-02_JPRB,3.6883E-02_JPRB,1.5729E-01_JPRB,2.3949E-01_JPRB,3.0622E-01_JPRB,3.3569E-01_JPRB/)  
+KBO( :, 2,14, 6) = (/&
+ & 3.7645E-02_JPRB,3.7873E-02_JPRB,1.5902E-01_JPRB,2.4213E-01_JPRB,3.1018E-01_JPRB,3.4313E-01_JPRB/)  
+KBO( :, 3,14, 6) = (/&
+ & 3.8674E-02_JPRB,3.8902E-02_JPRB,1.6072E-01_JPRB,2.4398E-01_JPRB,3.1256E-01_JPRB,3.4927E-01_JPRB/)  
+KBO( :, 4,14, 6) = (/&
+ & 3.9715E-02_JPRB,3.9924E-02_JPRB,1.6228E-01_JPRB,2.4539E-01_JPRB,3.1431E-01_JPRB,3.5395E-01_JPRB/)  
+KBO( :, 5,14, 6) = (/&
+ & 4.0819E-02_JPRB,4.1022E-02_JPRB,1.6343E-01_JPRB,2.4658E-01_JPRB,3.1537E-01_JPRB,3.5723E-01_JPRB/)  
+KBO( :, 1,15, 6) = (/&
+ & 3.1489E-02_JPRB,3.1717E-02_JPRB,1.4459E-01_JPRB,2.1886E-01_JPRB,2.7929E-01_JPRB,3.0333E-01_JPRB/)  
+KBO( :, 2,15, 6) = (/&
+ & 3.2325E-02_JPRB,3.2551E-02_JPRB,1.4651E-01_JPRB,2.2152E-01_JPRB,2.8283E-01_JPRB,3.1026E-01_JPRB/)  
+KBO( :, 3,15, 6) = (/&
+ & 3.3201E-02_JPRB,3.3419E-02_JPRB,1.4819E-01_JPRB,2.2372E-01_JPRB,2.8570E-01_JPRB,3.1588E-01_JPRB/)  
+KBO( :, 4,15, 6) = (/&
+ & 3.4109E-02_JPRB,3.4317E-02_JPRB,1.4957E-01_JPRB,2.2574E-01_JPRB,2.8792E-01_JPRB,3.2003E-01_JPRB/)  
+KBO( :, 5,15, 6) = (/&
+ & 3.5196E-02_JPRB,3.5403E-02_JPRB,1.5074E-01_JPRB,2.2750E-01_JPRB,2.8937E-01_JPRB,3.2300E-01_JPRB/)  
+KBO( :, 1,16, 6) = (/&
+ & 2.6937E-02_JPRB,2.7164E-02_JPRB,1.3162E-01_JPRB,1.9777E-01_JPRB,2.5164E-01_JPRB,2.7236E-01_JPRB/)  
+KBO( :, 2,16, 6) = (/&
+ & 2.7655E-02_JPRB,2.7881E-02_JPRB,1.3342E-01_JPRB,2.0067E-01_JPRB,2.5537E-01_JPRB,2.7880E-01_JPRB/)  
+KBO( :, 3,16, 6) = (/&
+ & 2.8404E-02_JPRB,2.8615E-02_JPRB,1.3503E-01_JPRB,2.0326E-01_JPRB,2.5856E-01_JPRB,2.8387E-01_JPRB/)  
+KBO( :, 4,16, 6) = (/&
+ & 2.9270E-02_JPRB,2.9476E-02_JPRB,1.3640E-01_JPRB,2.0574E-01_JPRB,2.6105E-01_JPRB,2.8764E-01_JPRB/)  
+KBO( :, 5,16, 6) = (/&
+ & 3.0417E-02_JPRB,3.0624E-02_JPRB,1.3764E-01_JPRB,2.0798E-01_JPRB,2.6293E-01_JPRB,2.9041E-01_JPRB/)  
+KBO( :, 1,17, 6) = (/&
+ & 2.2953E-02_JPRB,2.3180E-02_JPRB,1.1845E-01_JPRB,1.7721E-01_JPRB,2.2460E-01_JPRB,2.4224E-01_JPRB/)  
+KBO( :, 2,17, 6) = (/&
+ & 2.3559E-02_JPRB,2.3784E-02_JPRB,1.2023E-01_JPRB,1.8031E-01_JPRB,2.2852E-01_JPRB,2.4805E-01_JPRB/)  
+KBO( :, 3,17, 6) = (/&
+ & 2.4252E-02_JPRB,2.4462E-02_JPRB,1.2174E-01_JPRB,1.8322E-01_JPRB,2.3188E-01_JPRB,2.5256E-01_JPRB/)  
+KBO( :, 4,17, 6) = (/&
+ & 2.5160E-02_JPRB,2.5369E-02_JPRB,1.2317E-01_JPRB,1.8595E-01_JPRB,2.3461E-01_JPRB,2.5595E-01_JPRB/)  
+KBO( :, 5,17, 6) = (/&
+ & 2.6326E-02_JPRB,2.6536E-02_JPRB,1.2445E-01_JPRB,1.8813E-01_JPRB,2.3684E-01_JPRB,2.5843E-01_JPRB/)  
+KBO( :, 1,18, 6) = (/&
+ & 1.9482E-02_JPRB,1.9716E-02_JPRB,1.0560E-01_JPRB,1.5764E-01_JPRB,1.9885E-01_JPRB,2.1333E-01_JPRB/)  
+KBO( :, 2,18, 6) = (/&
+ & 2.0020E-02_JPRB,2.0247E-02_JPRB,1.0728E-01_JPRB,1.6080E-01_JPRB,2.0278E-01_JPRB,2.1852E-01_JPRB/)  
+KBO( :, 3,18, 6) = (/&
+ & 2.0718E-02_JPRB,2.0933E-02_JPRB,1.0881E-01_JPRB,1.6380E-01_JPRB,2.0619E-01_JPRB,2.2252E-01_JPRB/)  
+KBO( :, 4,18, 6) = (/&
+ & 2.1659E-02_JPRB,2.1872E-02_JPRB,1.1021E-01_JPRB,1.6633E-01_JPRB,2.0912E-01_JPRB,2.2570E-01_JPRB/)  
+KBO( :, 5,18, 6) = (/&
+ & 2.2723E-02_JPRB,2.2936E-02_JPRB,1.1153E-01_JPRB,1.6848E-01_JPRB,2.1149E-01_JPRB,2.2818E-01_JPRB/)  
+KBO( :, 1,19, 6) = (/&
+ & 1.6474E-02_JPRB,1.6726E-02_JPRB,9.3278E-02_JPRB,1.3911E-01_JPRB,1.7470E-01_JPRB,1.8607E-01_JPRB/)  
+KBO( :, 2,19, 6) = (/&
+ & 1.6988E-02_JPRB,1.7224E-02_JPRB,9.4914E-02_JPRB,1.4229E-01_JPRB,1.7855E-01_JPRB,1.9060E-01_JPRB/)  
+KBO( :, 3,19, 6) = (/&
+ & 1.7719E-02_JPRB,1.7943E-02_JPRB,9.6402E-02_JPRB,1.4506E-01_JPRB,1.8201E-01_JPRB,1.9424E-01_JPRB/)  
+KBO( :, 4,19, 6) = (/&
+ & 1.8600E-02_JPRB,1.8821E-02_JPRB,9.7809E-02_JPRB,1.4747E-01_JPRB,1.8495E-01_JPRB,1.9716E-01_JPRB/)  
+KBO( :, 5,19, 6) = (/&
+ & 1.9511E-02_JPRB,1.9731E-02_JPRB,9.9198E-02_JPRB,1.4957E-01_JPRB,1.8726E-01_JPRB,1.9887E-01_JPRB/)  
+KBO( :, 1,20, 6) = (/&
+ & 1.3891E-02_JPRB,1.4173E-02_JPRB,8.1755E-02_JPRB,1.2196E-01_JPRB,1.5249E-01_JPRB,1.6109E-01_JPRB/)  
+KBO( :, 2,20, 6) = (/&
+ & 1.4432E-02_JPRB,1.4692E-02_JPRB,8.3314E-02_JPRB,1.2486E-01_JPRB,1.5622E-01_JPRB,1.6508E-01_JPRB/)  
+KBO( :, 3,20, 6) = (/&
+ & 1.5139E-02_JPRB,1.5385E-02_JPRB,8.4783E-02_JPRB,1.2741E-01_JPRB,1.5952E-01_JPRB,1.6830E-01_JPRB/)  
+KBO( :, 4,20, 6) = (/&
+ & 1.5913E-02_JPRB,1.6152E-02_JPRB,8.6223E-02_JPRB,1.2966E-01_JPRB,1.6214E-01_JPRB,1.7014E-01_JPRB/)  
+KBO( :, 5,20, 6) = (/&
+ & 1.6685E-02_JPRB,1.6917E-02_JPRB,8.7642E-02_JPRB,1.3138E-01_JPRB,1.6356E-01_JPRB,1.7014E-01_JPRB/)  
+KBO( :, 1,21, 6) = (/&
+ & 1.1702E-02_JPRB,1.2032E-02_JPRB,7.1105E-02_JPRB,1.0613E-01_JPRB,1.3235E-01_JPRB,1.3851E-01_JPRB/)  
+KBO( :, 2,21, 6) = (/&
+ & 1.2249E-02_JPRB,1.2553E-02_JPRB,7.2595E-02_JPRB,1.0875E-01_JPRB,1.3581E-01_JPRB,1.4193E-01_JPRB/)  
+KBO( :, 3,21, 6) = (/&
+ & 1.2879E-02_JPRB,1.3168E-02_JPRB,7.4032E-02_JPRB,1.1102E-01_JPRB,1.3861E-01_JPRB,1.4396E-01_JPRB/)  
+KBO( :, 4,21, 6) = (/&
+ & 1.3537E-02_JPRB,1.3810E-02_JPRB,7.5416E-02_JPRB,1.1273E-01_JPRB,1.4012E-01_JPRB,1.4419E-01_JPRB/)  
+KBO( :, 5,21, 6) = (/&
+ & 1.4190E-02_JPRB,1.4451E-02_JPRB,7.6688E-02_JPRB,1.1355E-01_JPRB,1.4025E-01_JPRB,1.4302E-01_JPRB/)  
+KBO( :, 1,22, 6) = (/&
+ & 9.9001E-03_JPRB,1.0285E-02_JPRB,6.1552E-02_JPRB,9.1903E-02_JPRB,1.1446E-01_JPRB,1.1850E-01_JPRB/)  
+KBO( :, 2,22, 6) = (/&
+ & 1.0402E-02_JPRB,1.0764E-02_JPRB,6.2928E-02_JPRB,9.4123E-02_JPRB,1.1729E-01_JPRB,1.2066E-01_JPRB/)  
+KBO( :, 3,22, 6) = (/&
+ & 1.0945E-02_JPRB,1.1287E-02_JPRB,6.4219E-02_JPRB,9.5745E-02_JPRB,1.1884E-01_JPRB,1.2116E-01_JPRB/)  
+KBO( :, 4,22, 6) = (/&
+ & 1.1502E-02_JPRB,1.1824E-02_JPRB,6.5352E-02_JPRB,9.6543E-02_JPRB,1.1912E-01_JPRB,1.2043E-01_JPRB/)  
+KBO( :, 5,22, 6) = (/&
+ & 1.2057E-02_JPRB,1.2365E-02_JPRB,6.6306E-02_JPRB,9.6694E-02_JPRB,1.1850E-01_JPRB,1.1887E-01_JPRB/)  
+KBO( :, 1,23, 6) = (/&
+ & 8.3712E-03_JPRB,8.8014E-03_JPRB,5.2987E-02_JPRB,7.9036E-02_JPRB,9.8229E-02_JPRB,1.0022E-01_JPRB/)  
+KBO( :, 2,23, 6) = (/&
+ & 8.8086E-03_JPRB,9.2239E-03_JPRB,5.4159E-02_JPRB,8.0566E-02_JPRB,9.9889E-02_JPRB,1.0104E-01_JPRB/)  
+KBO( :, 3,23, 6) = (/&
+ & 9.2697E-03_JPRB,9.6659E-03_JPRB,5.5152E-02_JPRB,8.1379E-02_JPRB,1.0039E-01_JPRB,1.0074E-01_JPRB/)  
+KBO( :, 4,23, 6) = (/&
+ & 9.7327E-03_JPRB,1.0110E-02_JPRB,5.5972E-02_JPRB,8.1635E-02_JPRB,1.0009E-01_JPRB,9.9702E-02_JPRB/)  
+KBO( :, 5,23, 6) = (/&
+ & 1.0213E-02_JPRB,1.0575E-02_JPRB,5.6627E-02_JPRB,8.1638E-02_JPRB,9.9238E-02_JPRB,9.8092E-02_JPRB/)  
+KBO( :, 1,24, 6) = (/&
+ & 7.0727E-03_JPRB,7.5361E-03_JPRB,4.5321E-02_JPRB,6.7260E-02_JPRB,8.3279E-02_JPRB,8.3647E-02_JPRB/)  
+KBO( :, 2,24, 6) = (/&
+ & 7.4427E-03_JPRB,7.8986E-03_JPRB,4.6188E-02_JPRB,6.8096E-02_JPRB,8.4019E-02_JPRB,8.3747E-02_JPRB/)  
+KBO( :, 3,24, 6) = (/&
+ & 7.8269E-03_JPRB,8.2674E-03_JPRB,4.6892E-02_JPRB,6.8450E-02_JPRB,8.4013E-02_JPRB,8.3148E-02_JPRB/)  
+KBO( :, 4,24, 6) = (/&
+ & 8.2189E-03_JPRB,8.6445E-03_JPRB,4.7510E-02_JPRB,6.8583E-02_JPRB,8.3512E-02_JPRB,8.2039E-02_JPRB/)  
+KBO( :, 5,24, 6) = (/&
+ & 8.6506E-03_JPRB,9.0639E-03_JPRB,4.7979E-02_JPRB,6.8589E-02_JPRB,8.2686E-02_JPRB,8.0530E-02_JPRB/)  
+KBO( :, 1,25, 6) = (/&
+ & 5.9648E-03_JPRB,6.4506E-03_JPRB,3.8407E-02_JPRB,5.6605E-02_JPRB,6.9840E-02_JPRB,6.9218E-02_JPRB/)  
+KBO( :, 2,25, 6) = (/&
+ & 6.2753E-03_JPRB,6.7567E-03_JPRB,3.9061E-02_JPRB,5.7057E-02_JPRB,7.0098E-02_JPRB,6.9005E-02_JPRB/)  
+KBO( :, 3,25, 6) = (/&
+ & 6.5979E-03_JPRB,7.0692E-03_JPRB,3.9618E-02_JPRB,5.7283E-02_JPRB,6.9890E-02_JPRB,6.8312E-02_JPRB/)  
+KBO( :, 4,25, 6) = (/&
+ & 6.9472E-03_JPRB,7.4089E-03_JPRB,4.0072E-02_JPRB,5.7410E-02_JPRB,6.9371E-02_JPRB,6.7241E-02_JPRB/)  
+KBO( :, 5,25, 6) = (/&
+ & 7.3458E-03_JPRB,7.7968E-03_JPRB,4.0424E-02_JPRB,5.7407E-02_JPRB,6.8690E-02_JPRB,6.5883E-02_JPRB/)  
+KBO( :, 1,26, 6) = (/&
+ & 5.0276E-03_JPRB,5.5197E-03_JPRB,3.2341E-02_JPRB,4.7306E-02_JPRB,5.8159E-02_JPRB,5.6987E-02_JPRB/)  
+KBO( :, 2,26, 6) = (/&
+ & 5.2905E-03_JPRB,5.7808E-03_JPRB,3.2856E-02_JPRB,4.7610E-02_JPRB,5.8188E-02_JPRB,5.6640E-02_JPRB/)  
+KBO( :, 3,26, 6) = (/&
+ & 5.5724E-03_JPRB,6.0595E-03_JPRB,3.3306E-02_JPRB,4.7831E-02_JPRB,5.7928E-02_JPRB,5.5939E-02_JPRB/)  
+KBO( :, 4,26, 6) = (/&
+ & 5.8946E-03_JPRB,6.3770E-03_JPRB,3.3653E-02_JPRB,4.7935E-02_JPRB,5.7502E-02_JPRB,5.4956E-02_JPRB/)  
+KBO( :, 5,26, 6) = (/&
+ & 6.2574E-03_JPRB,6.7355E-03_JPRB,3.3928E-02_JPRB,4.7887E-02_JPRB,5.6970E-02_JPRB,5.3762E-02_JPRB/)  
+KBO( :, 1,27, 6) = (/&
+ & 4.2349E-03_JPRB,4.7179E-03_JPRB,2.7116E-02_JPRB,3.9401E-02_JPRB,4.8220E-02_JPRB,4.6782E-02_JPRB/)  
+KBO( :, 2,27, 6) = (/&
+ & 4.4634E-03_JPRB,4.9470E-03_JPRB,2.7543E-02_JPRB,3.9674E-02_JPRB,4.8162E-02_JPRB,4.6385E-02_JPRB/)  
+KBO( :, 3,27, 6) = (/&
+ & 4.7202E-03_JPRB,5.2071E-03_JPRB,2.7886E-02_JPRB,3.9869E-02_JPRB,4.7941E-02_JPRB,4.5722E-02_JPRB/)  
+KBO( :, 4,27, 6) = (/&
+ & 5.0160E-03_JPRB,5.5039E-03_JPRB,2.8167E-02_JPRB,3.9934E-02_JPRB,4.7615E-02_JPRB,4.4846E-02_JPRB/)  
+KBO( :, 5,27, 6) = (/&
+ & 5.3481E-03_JPRB,5.8380E-03_JPRB,2.8394E-02_JPRB,3.9860E-02_JPRB,4.7184E-02_JPRB,4.3824E-02_JPRB/)  
+KBO( :, 1,28, 6) = (/&
+ & 3.5674E-03_JPRB,4.0284E-03_JPRB,2.2673E-02_JPRB,3.2772E-02_JPRB,3.9872E-02_JPRB,3.8332E-02_JPRB/)  
+KBO( :, 2,28, 6) = (/&
+ & 3.7734E-03_JPRB,4.2398E-03_JPRB,2.3008E-02_JPRB,3.3028E-02_JPRB,3.9810E-02_JPRB,3.7930E-02_JPRB/)  
+KBO( :, 3,28, 6) = (/&
+ & 4.0097E-03_JPRB,4.4845E-03_JPRB,2.3286E-02_JPRB,3.3175E-02_JPRB,3.9654E-02_JPRB,3.7324E-02_JPRB/)  
+KBO( :, 4,28, 6) = (/&
+ & 4.2788E-03_JPRB,4.7627E-03_JPRB,2.3514E-02_JPRB,3.3194E-02_JPRB,3.9398E-02_JPRB,3.6571E-02_JPRB/)  
+KBO( :, 5,28, 6) = (/&
+ & 4.5757E-03_JPRB,5.0676E-03_JPRB,2.3719E-02_JPRB,3.3118E-02_JPRB,3.9020E-02_JPRB,3.5708E-02_JPRB/)  
+KBO( :, 1,29, 6) = (/&
+ & 3.0115E-03_JPRB,3.4411E-03_JPRB,1.8911E-02_JPRB,2.7247E-02_JPRB,3.2943E-02_JPRB,3.1382E-02_JPRB/)  
+KBO( :, 2,29, 6) = (/&
+ & 3.1994E-03_JPRB,3.6407E-03_JPRB,1.9179E-02_JPRB,2.7455E-02_JPRB,3.2911E-02_JPRB,3.1000E-02_JPRB/)  
+KBO( :, 3,29, 6) = (/&
+ & 3.4147E-03_JPRB,3.8682E-03_JPRB,1.9409E-02_JPRB,2.7552E-02_JPRB,3.2798E-02_JPRB,3.0472E-02_JPRB/)  
+KBO( :, 4,29, 6) = (/&
+ & 3.6579E-03_JPRB,4.1270E-03_JPRB,1.9605E-02_JPRB,2.7559E-02_JPRB,3.2573E-02_JPRB,2.9835E-02_JPRB/)  
+KBO( :, 5,29, 6) = (/&
+ & 3.9162E-03_JPRB,4.3987E-03_JPRB,1.9809E-02_JPRB,2.7488E-02_JPRB,3.2240E-02_JPRB,2.9120E-02_JPRB/)  
+KBO( :, 1,30, 6) = (/&
+ & 2.5481E-03_JPRB,2.9444E-03_JPRB,1.5745E-02_JPRB,2.2634E-02_JPRB,2.7226E-02_JPRB,2.5677E-02_JPRB/)  
+KBO( :, 2,30, 6) = (/&
+ & 2.7188E-03_JPRB,3.1307E-03_JPRB,1.5966E-02_JPRB,2.2786E-02_JPRB,2.7220E-02_JPRB,2.5335E-02_JPRB/)  
+KBO( :, 3,30, 6) = (/&
+ & 2.9148E-03_JPRB,3.3439E-03_JPRB,1.6160E-02_JPRB,2.2855E-02_JPRB,2.7119E-02_JPRB,2.4882E-02_JPRB/)  
+KBO( :, 4,30, 6) = (/&
+ & 3.1280E-03_JPRB,3.5773E-03_JPRB,1.6348E-02_JPRB,2.2854E-02_JPRB,2.6917E-02_JPRB,2.4354E-02_JPRB/)  
+KBO( :, 5,30, 6) = (/&
+ & 3.3553E-03_JPRB,3.8202E-03_JPRB,1.6558E-02_JPRB,2.2811E-02_JPRB,2.6630E-02_JPRB,2.3768E-02_JPRB/)  
+KBO( :, 1,31, 6) = (/&
+ & 2.1615E-03_JPRB,2.5257E-03_JPRB,1.3098E-02_JPRB,1.8778E-02_JPRB,2.2519E-02_JPRB,2.1018E-02_JPRB/)  
+KBO( :, 2,31, 6) = (/&
+ & 2.3170E-03_JPRB,2.6986E-03_JPRB,1.3284E-02_JPRB,1.8891E-02_JPRB,2.2515E-02_JPRB,2.0722E-02_JPRB/)  
+KBO( :, 3,31, 6) = (/&
+ & 2.4905E-03_JPRB,2.8953E-03_JPRB,1.3459E-02_JPRB,1.8946E-02_JPRB,2.2414E-02_JPRB,2.0345E-02_JPRB/)  
+KBO( :, 4,31, 6) = (/&
+ & 2.6777E-03_JPRB,3.1024E-03_JPRB,1.3649E-02_JPRB,1.8949E-02_JPRB,2.2235E-02_JPRB,1.9908E-02_JPRB/)  
+KBO( :, 5,31, 6) = (/&
+ & 2.8803E-03_JPRB,3.3243E-03_JPRB,1.3860E-02_JPRB,1.8946E-02_JPRB,2.1996E-02_JPRB,1.9437E-02_JPRB/)  
+KBO( :, 1,32, 6) = (/&
+ & 1.8385E-03_JPRB,2.1718E-03_JPRB,1.0896E-02_JPRB,1.5564E-02_JPRB,1.8628E-02_JPRB,1.7209E-02_JPRB/)  
+KBO( :, 2,32, 6) = (/&
+ & 1.9787E-03_JPRB,2.3333E-03_JPRB,1.1058E-02_JPRB,1.5657E-02_JPRB,1.8613E-02_JPRB,1.6956E-02_JPRB/)  
+KBO( :, 3,32, 6) = (/&
+ & 2.1311E-03_JPRB,2.5090E-03_JPRB,1.1225E-02_JPRB,1.5701E-02_JPRB,1.8522E-02_JPRB,1.6642E-02_JPRB/)  
+KBO( :, 4,32, 6) = (/&
+ & 2.2971E-03_JPRB,2.6964E-03_JPRB,1.1416E-02_JPRB,1.5725E-02_JPRB,1.8369E-02_JPRB,1.6291E-02_JPRB/)  
+KBO( :, 5,32, 6) = (/&
+ & 2.4814E-03_JPRB,2.9021E-03_JPRB,1.1629E-02_JPRB,1.5757E-02_JPRB,1.8177E-02_JPRB,1.5913E-02_JPRB/)  
+KBO( :, 1,33, 6) = (/&
+ & 1.5686E-03_JPRB,1.8737E-03_JPRB,9.0681E-03_JPRB,1.2902E-02_JPRB,1.5408E-02_JPRB,1.4096E-02_JPRB/)  
+KBO( :, 2,33, 6) = (/&
+ & 1.6920E-03_JPRB,2.0214E-03_JPRB,9.2168E-03_JPRB,1.2976E-02_JPRB,1.5384E-02_JPRB,1.3883E-02_JPRB/)  
+KBO( :, 3,33, 6) = (/&
+ & 1.8273E-03_JPRB,2.1791E-03_JPRB,9.3843E-03_JPRB,1.3022E-02_JPRB,1.5304E-02_JPRB,1.3632E-02_JPRB/)  
+KBO( :, 4,33, 6) = (/&
+ & 1.9765E-03_JPRB,2.3516E-03_JPRB,9.5730E-03_JPRB,1.3071E-02_JPRB,1.5178E-02_JPRB,1.3350E-02_JPRB/)  
+KBO( :, 5,33, 6) = (/&
+ & 2.1452E-03_JPRB,2.5432E-03_JPRB,9.7830E-03_JPRB,1.3131E-02_JPRB,1.5037E-02_JPRB,1.3045E-02_JPRB/)  
+KBO( :, 1,34, 6) = (/&
+ & 1.3372E-03_JPRB,1.6178E-03_JPRB,7.5519E-03_JPRB,1.0693E-02_JPRB,1.2740E-02_JPRB,1.1549E-02_JPRB/)  
+KBO( :, 2,34, 6) = (/&
+ & 1.4461E-03_JPRB,1.7503E-03_JPRB,7.6945E-03_JPRB,1.0757E-02_JPRB,1.2715E-02_JPRB,1.1377E-02_JPRB/)  
+KBO( :, 3,34, 6) = (/&
+ & 1.5660E-03_JPRB,1.8937E-03_JPRB,7.8583E-03_JPRB,1.0816E-02_JPRB,1.2648E-02_JPRB,1.1176E-02_JPRB/)  
+KBO( :, 4,34, 6) = (/&
+ & 1.7014E-03_JPRB,2.0534E-03_JPRB,8.0448E-03_JPRB,1.0884E-02_JPRB,1.2559E-02_JPRB,1.0950E-02_JPRB/)  
+KBO( :, 5,34, 6) = (/&
+ & 1.8558E-03_JPRB,2.2315E-03_JPRB,8.2423E-03_JPRB,1.0963E-02_JPRB,1.2464E-02_JPRB,1.0705E-02_JPRB/)  
+KBO( :, 1,35, 6) = (/&
+ & 1.1329E-03_JPRB,1.3895E-03_JPRB,6.2880E-03_JPRB,8.8610E-03_JPRB,1.0532E-02_JPRB,9.4809E-03_JPRB/)  
+KBO( :, 2,35, 6) = (/&
+ & 1.2284E-03_JPRB,1.5079E-03_JPRB,6.4262E-03_JPRB,8.9261E-03_JPRB,1.0516E-02_JPRB,9.3462E-03_JPRB/)  
+KBO( :, 3,35, 6) = (/&
+ & 1.3351E-03_JPRB,1.6386E-03_JPRB,6.5845E-03_JPRB,8.9958E-03_JPRB,1.0468E-02_JPRB,9.1865E-03_JPRB/)  
+KBO( :, 4,35, 6) = (/&
+ & 1.4573E-03_JPRB,1.7849E-03_JPRB,6.7614E-03_JPRB,9.0760E-03_JPRB,1.0410E-02_JPRB,9.0064E-03_JPRB/)  
+KBO( :, 5,35, 6) = (/&
+ & 1.5970E-03_JPRB,1.9487E-03_JPRB,6.9420E-03_JPRB,9.1662E-03_JPRB,1.0351E-02_JPRB,8.8117E-03_JPRB/)  
+KBO( :, 1,36, 6) = (/&
+ & 9.5211E-04_JPRB,1.1843E-03_JPRB,5.2312E-03_JPRB,7.3412E-03_JPRB,8.7087E-03_JPRB,7.7981E-03_JPRB/)  
+KBO( :, 2,36, 6) = (/&
+ & 1.0354E-03_JPRB,1.2901E-03_JPRB,5.3625E-03_JPRB,7.4088E-03_JPRB,8.7005E-03_JPRB,7.6928E-03_JPRB/)  
+KBO( :, 3,36, 6) = (/&
+ & 1.1296E-03_JPRB,1.4079E-03_JPRB,5.5138E-03_JPRB,7.4862E-03_JPRB,8.6732E-03_JPRB,7.5689E-03_JPRB/)  
+KBO( :, 4,36, 6) = (/&
+ & 1.2388E-03_JPRB,1.5409E-03_JPRB,5.6750E-03_JPRB,7.5726E-03_JPRB,8.6424E-03_JPRB,7.4262E-03_JPRB/)  
+KBO( :, 5,36, 6) = (/&
+ & 1.3638E-03_JPRB,1.6902E-03_JPRB,5.8416E-03_JPRB,7.6677E-03_JPRB,8.6124E-03_JPRB,7.2708E-03_JPRB/)  
+KBO( :, 1,37, 6) = (/&
+ & 7.9067E-04_JPRB,9.9728E-04_JPRB,4.3412E-03_JPRB,6.0781E-03_JPRB,7.2010E-03_JPRB,6.4225E-03_JPRB/)  
+KBO( :, 2,37, 6) = (/&
+ & 8.6207E-04_JPRB,1.0903E-03_JPRB,4.4618E-03_JPRB,6.1477E-03_JPRB,7.2040E-03_JPRB,6.3450E-03_JPRB/)  
+KBO( :, 3,37, 6) = (/&
+ & 9.4365E-04_JPRB,1.1951E-03_JPRB,4.6016E-03_JPRB,6.2259E-03_JPRB,7.1949E-03_JPRB,6.2491E-03_JPRB/)  
+KBO( :, 4,37, 6) = (/&
+ & 1.0390E-03_JPRB,1.3137E-03_JPRB,4.7474E-03_JPRB,6.3134E-03_JPRB,7.1835E-03_JPRB,6.1371E-03_JPRB/)  
+KBO( :, 5,37, 6) = (/&
+ & 1.1493E-03_JPRB,1.4482E-03_JPRB,4.9008E-03_JPRB,6.4092E-03_JPRB,7.1759E-03_JPRB,6.0153E-03_JPRB/)  
+KBO( :, 1,38, 6) = (/&
+ & 6.5574E-04_JPRB,8.3902E-04_JPRB,3.6029E-03_JPRB,5.0338E-03_JPRB,5.9535E-03_JPRB,5.2931E-03_JPRB/)  
+KBO( :, 2,38, 6) = (/&
+ & 7.1723E-04_JPRB,9.2092E-04_JPRB,3.7143E-03_JPRB,5.1033E-03_JPRB,5.9664E-03_JPRB,5.2356E-03_JPRB/)  
+KBO( :, 3,38, 6) = (/&
+ & 7.8817E-04_JPRB,1.0140E-03_JPRB,3.8410E-03_JPRB,5.1788E-03_JPRB,5.9694E-03_JPRB,5.1631E-03_JPRB/)  
+KBO( :, 4,38, 6) = (/&
+ & 8.7142E-04_JPRB,1.1199E-03_JPRB,3.9722E-03_JPRB,5.2685E-03_JPRB,5.9738E-03_JPRB,5.0758E-03_JPRB/)  
+KBO( :, 5,38, 6) = (/&
+ & 9.6814E-04_JPRB,1.2406E-03_JPRB,4.1130E-03_JPRB,5.3594E-03_JPRB,5.9796E-03_JPRB,4.9809E-03_JPRB/)  
+KBO( :, 1,39, 6) = (/&
+ & 5.4394E-04_JPRB,7.0587E-04_JPRB,2.9920E-03_JPRB,4.1712E-03_JPRB,4.9241E-03_JPRB,4.3648E-03_JPRB/)  
+KBO( :, 2,39, 6) = (/&
+ & 5.9679E-04_JPRB,7.7794E-04_JPRB,3.0938E-03_JPRB,4.2387E-03_JPRB,4.9429E-03_JPRB,4.3244E-03_JPRB/)  
+KBO( :, 3,39, 6) = (/&
+ & 6.5862E-04_JPRB,8.6057E-04_JPRB,3.2080E-03_JPRB,4.3149E-03_JPRB,4.9560E-03_JPRB,4.2705E-03_JPRB/)  
+KBO( :, 4,39, 6) = (/&
+ & 7.3136E-04_JPRB,9.5521E-04_JPRB,3.3261E-03_JPRB,4.3998E-03_JPRB,4.9704E-03_JPRB,4.2037E-03_JPRB/)  
+KBO( :, 5,39, 6) = (/&
+ & 8.1646E-04_JPRB,1.0637E-03_JPRB,3.4565E-03_JPRB,4.4868E-03_JPRB,4.9875E-03_JPRB,4.1313E-03_JPRB/)  
+KBO( :, 1,40, 6) = (/&
+ & 4.4679E-04_JPRB,5.8745E-04_JPRB,2.4763E-03_JPRB,3.4505E-03_JPRB,4.0708E-03_JPRB,3.5945E-03_JPRB/)  
+KBO( :, 2,40, 6) = (/&
+ & 4.9169E-04_JPRB,6.5005E-04_JPRB,2.5677E-03_JPRB,3.5152E-03_JPRB,4.0943E-03_JPRB,3.5667E-03_JPRB/)  
+KBO( :, 3,40, 6) = (/&
+ & 5.4450E-04_JPRB,7.2222E-04_JPRB,2.6693E-03_JPRB,3.5873E-03_JPRB,4.1135E-03_JPRB,3.5266E-03_JPRB/)  
+KBO( :, 4,40, 6) = (/&
+ & 6.0712E-04_JPRB,8.0578E-04_JPRB,2.7753E-03_JPRB,3.6696E-03_JPRB,4.1353E-03_JPRB,3.4759E-03_JPRB/)  
+KBO( :, 5,40, 6) = (/&
+ & 6.8061E-04_JPRB,9.0198E-04_JPRB,2.8937E-03_JPRB,3.7510E-03_JPRB,4.1595E-03_JPRB,3.4202E-03_JPRB/)  
+KBO( :, 1,41, 6) = (/&
+ & 3.6654E-04_JPRB,4.8763E-04_JPRB,2.0497E-03_JPRB,2.8544E-03_JPRB,3.3652E-03_JPRB,2.9593E-03_JPRB/)  
+KBO( :, 2,41, 6) = (/&
+ & 4.0436E-04_JPRB,5.4168E-04_JPRB,2.1297E-03_JPRB,2.9143E-03_JPRB,3.3913E-03_JPRB,2.9409E-03_JPRB/)  
+KBO( :, 3,41, 6) = (/&
+ & 4.4941E-04_JPRB,6.0442E-04_JPRB,2.2197E-03_JPRB,2.9825E-03_JPRB,3.4145E-03_JPRB,2.9122E-03_JPRB/)  
+KBO( :, 4,41, 6) = (/&
+ & 5.0288E-04_JPRB,6.7766E-04_JPRB,2.3143E-03_JPRB,3.0596E-03_JPRB,3.4407E-03_JPRB,2.8738E-03_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART20',1,ZHOOK_HANDLE)
+END SUBROUTINE PART20
+
+
+SUBROUTINE PART21
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART21',0,ZHOOK_HANDLE)
+
+
+KBO( :, 5,41, 6) = (/&
+ & 5.6627E-04_JPRB,7.6296E-04_JPRB,2.4209E-03_JPRB,3.1354E-03_JPRB,3.4693E-03_JPRB,2.8312E-03_JPRB/)  
+KBO( :, 1,42, 6) = (/&
+ & 3.0056E-04_JPRB,4.0423E-04_JPRB,1.6955E-03_JPRB,2.3604E-03_JPRB,2.7815E-03_JPRB,2.4359E-03_JPRB/)  
+KBO( :, 2,42, 6) = (/&
+ & 3.3240E-04_JPRB,4.5078E-04_JPRB,1.7662E-03_JPRB,2.4162E-03_JPRB,2.8087E-03_JPRB,2.4250E-03_JPRB/)  
+KBO( :, 3,42, 6) = (/&
+ & 3.7060E-04_JPRB,5.0501E-04_JPRB,1.8455E-03_JPRB,2.4795E-03_JPRB,2.8342E-03_JPRB,2.4047E-03_JPRB/)  
+KBO( :, 4,42, 6) = (/&
+ & 4.1638E-04_JPRB,5.6912E-04_JPRB,1.9299E-03_JPRB,2.5508E-03_JPRB,2.8626E-03_JPRB,2.3765E-03_JPRB/)  
+KBO( :, 5,42, 6) = (/&
+ & 4.7089E-04_JPRB,6.4463E-04_JPRB,2.0249E-03_JPRB,2.6208E-03_JPRB,2.8943E-03_JPRB,2.3447E-03_JPRB/)  
+KBO( :, 1,43, 6) = (/&
+ & 2.4502E-04_JPRB,3.3261E-04_JPRB,1.3991E-03_JPRB,1.9481E-03_JPRB,2.2961E-03_JPRB,2.0045E-03_JPRB/)  
+KBO( :, 2,43, 6) = (/&
+ & 2.7152E-04_JPRB,3.7212E-04_JPRB,1.4606E-03_JPRB,1.9988E-03_JPRB,2.3241E-03_JPRB,1.9999E-03_JPRB/)  
+KBO( :, 3,43, 6) = (/&
+ & 3.0343E-04_JPRB,4.1851E-04_JPRB,1.5301E-03_JPRB,2.0581E-03_JPRB,2.3515E-03_JPRB,1.9867E-03_JPRB/)  
+KBO( :, 4,43, 6) = (/&
+ & 3.4217E-04_JPRB,4.7384E-04_JPRB,1.6047E-03_JPRB,2.1225E-03_JPRB,2.3804E-03_JPRB,1.9662E-03_JPRB/)  
+KBO( :, 5,43, 6) = (/&
+ & 3.8865E-04_JPRB,5.3980E-04_JPRB,1.6888E-03_JPRB,2.1871E-03_JPRB,2.4134E-03_JPRB,1.9423E-03_JPRB/)  
+KBO( :, 1,44, 6) = (/&
+ & 1.9915E-04_JPRB,2.7249E-04_JPRB,1.1527E-03_JPRB,1.6068E-03_JPRB,1.8949E-03_JPRB,1.6492E-03_JPRB/)  
+KBO( :, 2,44, 6) = (/&
+ & 2.2104E-04_JPRB,3.0586E-04_JPRB,1.2059E-03_JPRB,1.6524E-03_JPRB,1.9220E-03_JPRB,1.6487E-03_JPRB/)  
+KBO( :, 3,44, 6) = (/&
+ & 2.4764E-04_JPRB,3.4529E-04_JPRB,1.2668E-03_JPRB,1.7051E-03_JPRB,1.9490E-03_JPRB,1.6410E-03_JPRB/)  
+KBO( :, 4,44, 6) = (/&
+ & 2.8005E-04_JPRB,3.9253E-04_JPRB,1.3322E-03_JPRB,1.7635E-03_JPRB,1.9786E-03_JPRB,1.6274E-03_JPRB/)  
+KBO( :, 5,44, 6) = (/&
+ & 3.1937E-04_JPRB,4.4948E-04_JPRB,1.4058E-03_JPRB,1.8224E-03_JPRB,2.0114E-03_JPRB,1.6103E-03_JPRB/)  
+KBO( :, 1,45, 6) = (/&
+ & 1.6169E-04_JPRB,2.2287E-04_JPRB,9.4886E-04_JPRB,1.3244E-03_JPRB,1.5624E-03_JPRB,1.3564E-03_JPRB/)  
+KBO( :, 2,45, 6) = (/&
+ & 1.7988E-04_JPRB,2.5107E-04_JPRB,9.9462E-04_JPRB,1.3650E-03_JPRB,1.5885E-03_JPRB,1.3595E-03_JPRB/)  
+KBO( :, 3,45, 6) = (/&
+ & 2.0188E-04_JPRB,2.8430E-04_JPRB,1.0481E-03_JPRB,1.4121E-03_JPRB,1.6151E-03_JPRB,1.3561E-03_JPRB/)  
+KBO( :, 4,45, 6) = (/&
+ & 2.2901E-04_JPRB,3.2458E-04_JPRB,1.1056E-03_JPRB,1.4643E-03_JPRB,1.6434E-03_JPRB,1.3471E-03_JPRB/)  
+KBO( :, 5,45, 6) = (/&
+ & 2.6215E-04_JPRB,3.7359E-04_JPRB,1.1700E-03_JPRB,1.5178E-03_JPRB,1.6750E-03_JPRB,1.3351E-03_JPRB/)  
+KBO( :, 1,46, 6) = (/&
+ & 1.3087E-04_JPRB,1.8153E-04_JPRB,7.8014E-04_JPRB,1.0903E-03_JPRB,1.2862E-03_JPRB,1.1149E-03_JPRB/)  
+KBO( :, 2,46, 6) = (/&
+ & 1.4588E-04_JPRB,2.0523E-04_JPRB,8.1887E-04_JPRB,1.1260E-03_JPRB,1.3113E-03_JPRB,1.1201E-03_JPRB/)  
+KBO( :, 3,46, 6) = (/&
+ & 1.6401E-04_JPRB,2.3309E-04_JPRB,8.6531E-04_JPRB,1.1670E-03_JPRB,1.3362E-03_JPRB,1.1199E-03_JPRB/)  
+KBO( :, 4,46, 6) = (/&
+ & 1.8657E-04_JPRB,2.6716E-04_JPRB,9.1576E-04_JPRB,1.2141E-03_JPRB,1.3636E-03_JPRB,1.1150E-03_JPRB/)  
+KBO( :, 5,46, 6) = (/&
+ & 2.1433E-04_JPRB,3.0901E-04_JPRB,9.7156E-04_JPRB,1.2621E-03_JPRB,1.3940E-03_JPRB,1.1075E-03_JPRB/)  
+KBO( :, 1,47, 6) = (/&
+ & 1.0532E-04_JPRB,1.4678E-04_JPRB,6.3931E-04_JPRB,8.9566E-04_JPRB,1.0570E-03_JPRB,9.1457E-04_JPRB/)  
+KBO( :, 2,47, 6) = (/&
+ & 1.1765E-04_JPRB,1.6658E-04_JPRB,6.7225E-04_JPRB,9.2702E-04_JPRB,1.0808E-03_JPRB,9.2153E-04_JPRB/)  
+KBO( :, 3,47, 6) = (/&
+ & 1.3241E-04_JPRB,1.8980E-04_JPRB,7.1202E-04_JPRB,9.6250E-04_JPRB,1.1041E-03_JPRB,9.2404E-04_JPRB/)  
+KBO( :, 4,47, 6) = (/&
+ & 1.5090E-04_JPRB,2.1814E-04_JPRB,7.5592E-04_JPRB,1.0038E-03_JPRB,1.1296E-03_JPRB,9.2224E-04_JPRB/)  
+KBO( :, 5,47, 6) = (/&
+ & 1.7385E-04_JPRB,2.5344E-04_JPRB,8.0420E-04_JPRB,1.0471E-03_JPRB,1.1580E-03_JPRB,9.1765E-04_JPRB/)  
+KBO( :, 1,48, 6) = (/&
+ & 8.4617E-05_JPRB,1.1838E-04_JPRB,5.2334E-04_JPRB,7.3546E-04_JPRB,8.6835E-04_JPRB,7.5017E-04_JPRB/)  
+KBO( :, 2,48, 6) = (/&
+ & 9.4785E-05_JPRB,1.3495E-04_JPRB,5.5091E-04_JPRB,7.6251E-04_JPRB,8.9031E-04_JPRB,7.5816E-04_JPRB/)  
+KBO( :, 3,48, 6) = (/&
+ & 1.0679E-04_JPRB,1.5426E-04_JPRB,5.8488E-04_JPRB,7.9332E-04_JPRB,9.1168E-04_JPRB,7.6245E-04_JPRB/)  
+KBO( :, 4,48, 6) = (/&
+ & 1.2188E-04_JPRB,1.7784E-04_JPRB,6.2314E-04_JPRB,8.2922E-04_JPRB,9.3479E-04_JPRB,7.6276E-04_JPRB/)  
+KBO( :, 5,48, 6) = (/&
+ & 1.4083E-04_JPRB,2.0741E-04_JPRB,6.6491E-04_JPRB,8.6778E-04_JPRB,9.6073E-04_JPRB,7.6049E-04_JPRB/)  
+KBO( :, 1,49, 6) = (/&
+ & 6.7867E-05_JPRB,9.5270E-05_JPRB,4.2786E-04_JPRB,6.0311E-04_JPRB,7.1217E-04_JPRB,6.1511E-04_JPRB/)  
+KBO( :, 2,49, 6) = (/&
+ & 7.6245E-05_JPRB,1.0908E-04_JPRB,4.5097E-04_JPRB,6.2662E-04_JPRB,7.3243E-04_JPRB,6.2369E-04_JPRB/)  
+KBO( :, 3,49, 6) = (/&
+ & 8.6029E-05_JPRB,1.2515E-04_JPRB,4.7966E-04_JPRB,6.5287E-04_JPRB,7.5158E-04_JPRB,6.2923E-04_JPRB/)  
+KBO( :, 4,49, 6) = (/&
+ & 9.8304E-05_JPRB,1.4466E-04_JPRB,5.1259E-04_JPRB,6.8383E-04_JPRB,7.7254E-04_JPRB,6.3132E-04_JPRB/)  
+KBO( :, 5,49, 6) = (/&
+ & 1.1386E-04_JPRB,1.6934E-04_JPRB,5.4863E-04_JPRB,7.1799E-04_JPRB,7.9596E-04_JPRB,6.3100E-04_JPRB/)  
+KBO( :, 1,50, 6) = (/&
+ & 5.4470E-05_JPRB,7.6746E-05_JPRB,3.4976E-04_JPRB,4.9428E-04_JPRB,5.8397E-04_JPRB,5.0306E-04_JPRB/)  
+KBO( :, 2,50, 6) = (/&
+ & 6.1410E-05_JPRB,8.8237E-05_JPRB,3.6915E-04_JPRB,5.1456E-04_JPRB,6.0217E-04_JPRB,5.1154E-04_JPRB/)  
+KBO( :, 3,50, 6) = (/&
+ & 6.9439E-05_JPRB,1.0166E-04_JPRB,3.9314E-04_JPRB,5.3721E-04_JPRB,6.1939E-04_JPRB,5.1755E-04_JPRB/)  
+KBO( :, 4,50, 6) = (/&
+ & 7.9454E-05_JPRB,1.1792E-04_JPRB,4.2160E-04_JPRB,5.6412E-04_JPRB,6.3835E-04_JPRB,5.2074E-04_JPRB/)  
+KBO( :, 5,50, 6) = (/&
+ & 9.2275E-05_JPRB,1.3855E-04_JPRB,4.5301E-04_JPRB,5.9448E-04_JPRB,6.5950E-04_JPRB,5.2175E-04_JPRB/)  
+KBO( :, 1,51, 6) = (/&
+ & 4.3722E-05_JPRB,6.1806E-05_JPRB,2.8578E-04_JPRB,4.0468E-04_JPRB,4.7855E-04_JPRB,4.1074E-04_JPRB/)  
+KBO( :, 2,51, 6) = (/&
+ & 4.9457E-05_JPRB,7.1342E-05_JPRB,3.0211E-04_JPRB,4.2230E-04_JPRB,4.9488E-04_JPRB,4.1886E-04_JPRB/)  
+KBO( :, 3,51, 6) = (/&
+ & 5.6064E-05_JPRB,8.2554E-05_JPRB,3.2225E-04_JPRB,4.4204E-04_JPRB,5.1049E-04_JPRB,4.2506E-04_JPRB/)  
+KBO( :, 4,51, 6) = (/&
+ & 6.4238E-05_JPRB,9.6120E-05_JPRB,3.4672E-04_JPRB,4.6528E-04_JPRB,5.2743E-04_JPRB,4.2888E-04_JPRB/)  
+KBO( :, 5,51, 6) = (/&
+ & 7.4796E-05_JPRB,1.1334E-04_JPRB,3.7378E-04_JPRB,4.9196E-04_JPRB,5.4618E-04_JPRB,4.3057E-04_JPRB/)  
+KBO( :, 1,52, 6) = (/&
+ & 3.5070E-05_JPRB,4.9691E-05_JPRB,2.3330E-04_JPRB,3.3093E-04_JPRB,3.9172E-04_JPRB,3.3527E-04_JPRB/)  
+KBO( :, 2,52, 6) = (/&
+ & 3.9769E-05_JPRB,5.7541E-05_JPRB,2.4706E-04_JPRB,3.4637E-04_JPRB,4.0670E-04_JPRB,3.4297E-04_JPRB/)  
+KBO( :, 3,52, 6) = (/&
+ & 4.5223E-05_JPRB,6.6916E-05_JPRB,2.6381E-04_JPRB,3.6327E-04_JPRB,4.2045E-04_JPRB,3.4912E-04_JPRB/)  
+KBO( :, 4,52, 6) = (/&
+ & 5.1871E-05_JPRB,7.8200E-05_JPRB,2.8472E-04_JPRB,3.8310E-04_JPRB,4.3533E-04_JPRB,3.5324E-04_JPRB/)  
+KBO( :, 5,52, 6) = (/&
+ & 6.0522E-05_JPRB,9.2554E-05_JPRB,3.0796E-04_JPRB,4.0644E-04_JPRB,4.5190E-04_JPRB,3.5548E-04_JPRB/)  
+KBO( :, 1,53, 6) = (/&
+ & 2.8114E-05_JPRB,3.9895E-05_JPRB,1.9033E-04_JPRB,2.7035E-04_JPRB,3.2027E-04_JPRB,2.7374E-04_JPRB/)  
+KBO( :, 2,53, 6) = (/&
+ & 3.1912E-05_JPRB,4.6272E-05_JPRB,2.0180E-04_JPRB,2.8364E-04_JPRB,3.3368E-04_JPRB,2.8088E-04_JPRB/)  
+KBO( :, 3,53, 6) = (/&
+ & 3.6415E-05_JPRB,5.4088E-05_JPRB,2.1570E-04_JPRB,2.9812E-04_JPRB,3.4609E-04_JPRB,2.8682E-04_JPRB/)  
+KBO( :, 4,53, 6) = (/&
+ & 4.1826E-05_JPRB,6.3486E-05_JPRB,2.3334E-04_JPRB,3.1498E-04_JPRB,3.5898E-04_JPRB,2.9120E-04_JPRB/)  
+KBO( :, 5,53, 6) = (/&
+ & 4.8885E-05_JPRB,7.5408E-05_JPRB,2.5337E-04_JPRB,3.3531E-04_JPRB,3.7352E-04_JPRB,2.9386E-04_JPRB/)  
+KBO( :, 1,54, 6) = (/&
+ & 2.2610E-05_JPRB,3.2120E-05_JPRB,1.5540E-04_JPRB,2.2090E-04_JPRB,2.6189E-04_JPRB,2.2252E-04_JPRB/)  
+KBO( :, 2,54, 6) = (/&
+ & 2.5670E-05_JPRB,3.7304E-05_JPRB,1.6500E-04_JPRB,2.3234E-04_JPRB,2.7383E-04_JPRB,2.2881E-04_JPRB/)  
+KBO( :, 3,54, 6) = (/&
+ & 2.9398E-05_JPRB,4.3828E-05_JPRB,1.7662E-04_JPRB,2.4475E-04_JPRB,2.8488E-04_JPRB,2.3410E-04_JPRB/)  
+KBO( :, 4,54, 6) = (/&
+ & 3.3830E-05_JPRB,5.1689E-05_JPRB,1.9147E-04_JPRB,2.5918E-04_JPRB,2.9621E-04_JPRB,2.3818E-04_JPRB/)  
+KBO( :, 5,54, 6) = (/&
+ & 3.9626E-05_JPRB,6.1637E-05_JPRB,2.0865E-04_JPRB,2.7674E-04_JPRB,3.0891E-04_JPRB,2.4078E-04_JPRB/)  
+KBO( :, 1,55, 6) = (/&
+ & 1.8209E-05_JPRB,2.5880E-05_JPRB,1.2688E-04_JPRB,1.8045E-04_JPRB,2.1398E-04_JPRB,1.8038E-04_JPRB/)  
+KBO( :, 2,55, 6) = (/&
+ & 2.0657E-05_JPRB,3.0086E-05_JPRB,1.3493E-04_JPRB,1.9025E-04_JPRB,2.2450E-04_JPRB,1.8582E-04_JPRB/)  
+KBO( :, 3,55, 6) = (/&
+ & 2.3739E-05_JPRB,3.5514E-05_JPRB,1.4460E-04_JPRB,2.0081E-04_JPRB,2.3430E-04_JPRB,1.9033E-04_JPRB/)  
+KBO( :, 4,55, 6) = (/&
+ & 2.7397E-05_JPRB,4.2088E-05_JPRB,1.5714E-04_JPRB,2.1306E-04_JPRB,2.4416E-04_JPRB,1.9386E-04_JPRB/)  
+KBO( :, 5,55, 6) = (/&
+ & 3.2153E-05_JPRB,5.0387E-05_JPRB,1.7186E-04_JPRB,2.2820E-04_JPRB,2.5533E-04_JPRB,1.9627E-04_JPRB/)  
+KBO( :, 1,56, 6) = (/&
+ & 1.4654E-05_JPRB,2.0836E-05_JPRB,1.0350E-04_JPRB,1.4723E-04_JPRB,1.7458E-04_JPRB,1.4613E-04_JPRB/)  
+KBO( :, 2,56, 6) = (/&
+ & 1.6602E-05_JPRB,2.4224E-05_JPRB,1.1023E-04_JPRB,1.5562E-04_JPRB,1.8380E-04_JPRB,1.5087E-04_JPRB/)  
+KBO( :, 3,56, 6) = (/&
+ & 1.9145E-05_JPRB,2.8713E-05_JPRB,1.1831E-04_JPRB,1.6458E-04_JPRB,1.9243E-04_JPRB,1.5466E-04_JPRB/)  
+KBO( :, 4,56, 6) = (/&
+ & 2.2162E-05_JPRB,3.4205E-05_JPRB,1.2877E-04_JPRB,1.7500E-04_JPRB,2.0107E-04_JPRB,1.5776E-04_JPRB/)  
+KBO( :, 5,56, 6) = (/&
+ & 2.6047E-05_JPRB,4.1114E-05_JPRB,1.4137E-04_JPRB,1.8796E-04_JPRB,2.1083E-04_JPRB,1.5994E-04_JPRB/)  
+KBO( :, 1,57, 6) = (/&
+ & 1.1795E-05_JPRB,1.6760E-05_JPRB,8.4304E-05_JPRB,1.1999E-04_JPRB,1.4218E-04_JPRB,1.1830E-04_JPRB/)  
+KBO( :, 2,57, 6) = (/&
+ & 1.3335E-05_JPRB,1.9476E-05_JPRB,8.9964E-05_JPRB,1.2718E-04_JPRB,1.5035E-04_JPRB,1.2244E-04_JPRB/)  
+KBO( :, 3,57, 6) = (/&
+ & 1.5412E-05_JPRB,2.3150E-05_JPRB,9.6680E-05_JPRB,1.3478E-04_JPRB,1.5779E-04_JPRB,1.2566E-04_JPRB/)  
+KBO( :, 4,57, 6) = (/&
+ & 1.7896E-05_JPRB,2.7728E-05_JPRB,1.0539E-04_JPRB,1.4358E-04_JPRB,1.6536E-04_JPRB,1.2835E-04_JPRB/)  
+KBO( :, 5,57, 6) = (/&
+ & 2.1071E-05_JPRB,3.3474E-05_JPRB,1.1614E-04_JPRB,1.5456E-04_JPRB,1.7382E-04_JPRB,1.3028E-04_JPRB/)  
+KBO( :, 1,58, 6) = (/&
+ & 9.5144E-06_JPRB,1.3504E-05_JPRB,6.8670E-05_JPRB,9.7752E-05_JPRB,1.1572E-04_JPRB,9.5731E-05_JPRB/)  
+KBO( :, 2,58, 6) = (/&
+ & 1.0727E-05_JPRB,1.5682E-05_JPRB,7.3425E-05_JPRB,1.0393E-04_JPRB,1.2288E-04_JPRB,9.9268E-05_JPRB/)  
+KBO( :, 3,58, 6) = (/&
+ & 1.2418E-05_JPRB,1.8676E-05_JPRB,7.9036E-05_JPRB,1.1042E-04_JPRB,1.2941E-04_JPRB,1.0205E-04_JPRB/)  
+KBO( :, 4,58, 6) = (/&
+ & 1.4470E-05_JPRB,2.2492E-05_JPRB,8.6301E-05_JPRB,1.1787E-04_JPRB,1.3601E-04_JPRB,1.0431E-04_JPRB/)  
+KBO( :, 5,58, 6) = (/&
+ & 1.7068E-05_JPRB,2.7290E-05_JPRB,9.5445E-05_JPRB,1.2711E-04_JPRB,1.4326E-04_JPRB,1.0599E-04_JPRB/)  
+KBO( :, 1,59, 6) = (/&
+ & 7.8205E-06_JPRB,1.1144E-05_JPRB,5.6553E-05_JPRB,8.0518E-05_JPRB,9.5253E-05_JPRB,7.7758E-05_JPRB/)  
+KBO( :, 2,59, 6) = (/&
+ & 8.8412E-06_JPRB,1.2994E-05_JPRB,6.0645E-05_JPRB,8.5808E-05_JPRB,1.0137E-04_JPRB,8.0565E-05_JPRB/)  
+KBO( :, 3,59, 6) = (/&
+ & 1.0275E-05_JPRB,1.5556E-05_JPRB,6.5508E-05_JPRB,9.1408E-05_JPRB,1.0703E-04_JPRB,8.2767E-05_JPRB/)  
+KBO( :, 4,59, 6) = (/&
+ & 1.2026E-05_JPRB,1.8861E-05_JPRB,7.1879E-05_JPRB,9.7918E-05_JPRB,1.1277E-04_JPRB,8.4443E-05_JPRB/)  
+KBO( :, 5,59, 6) = (/&
+ & 1.4259E-05_JPRB,2.3051E-05_JPRB,7.9857E-05_JPRB,1.0611E-04_JPRB,1.1921E-04_JPRB,8.5697E-05_JPRB/)  
+KBO( :, 1,13, 7) = (/&
+ & 9.7647E-02_JPRB,9.7855E-02_JPRB,3.0363E-01_JPRB,4.7031E-01_JPRB,5.9904E-01_JPRB,6.6640E-01_JPRB/)  
+KBO( :, 2,13, 7) = (/&
+ & 1.0049E-01_JPRB,1.0069E-01_JPRB,3.0218E-01_JPRB,4.6982E-01_JPRB,6.0036E-01_JPRB,6.7308E-01_JPRB/)  
+KBO( :, 3,13, 7) = (/&
+ & 1.0377E-01_JPRB,1.0396E-01_JPRB,3.0033E-01_JPRB,4.6762E-01_JPRB,5.9983E-01_JPRB,6.7883E-01_JPRB/)  
+KBO( :, 4,13, 7) = (/&
+ & 1.0704E-01_JPRB,1.0722E-01_JPRB,2.9892E-01_JPRB,4.6467E-01_JPRB,5.9751E-01_JPRB,6.8204E-01_JPRB/)  
+KBO( :, 5,13, 7) = (/&
+ & 1.1023E-01_JPRB,1.1040E-01_JPRB,2.9802E-01_JPRB,4.6155E-01_JPRB,5.9382E-01_JPRB,6.8342E-01_JPRB/)  
+KBO( :, 1,14, 7) = (/&
+ & 8.6235E-02_JPRB,8.6450E-02_JPRB,2.9028E-01_JPRB,4.5055E-01_JPRB,5.7620E-01_JPRB,6.3435E-01_JPRB/)  
+KBO( :, 2,14, 7) = (/&
+ & 8.9084E-02_JPRB,8.9292E-02_JPRB,2.8945E-01_JPRB,4.5002E-01_JPRB,5.7817E-01_JPRB,6.3980E-01_JPRB/)  
+KBO( :, 3,14, 7) = (/&
+ & 9.1939E-02_JPRB,9.2133E-02_JPRB,2.8902E-01_JPRB,4.4871E-01_JPRB,5.7814E-01_JPRB,6.4427E-01_JPRB/)  
+KBO( :, 4,14, 7) = (/&
+ & 9.4793E-02_JPRB,9.4979E-02_JPRB,2.8897E-01_JPRB,4.4708E-01_JPRB,5.7621E-01_JPRB,6.4667E-01_JPRB/)  
+KBO( :, 5,14, 7) = (/&
+ & 9.7493E-02_JPRB,9.7668E-02_JPRB,2.8924E-01_JPRB,4.4518E-01_JPRB,5.7317E-01_JPRB,6.4671E-01_JPRB/)  
+KBO( :, 1,15, 7) = (/&
+ & 7.5804E-02_JPRB,7.6029E-02_JPRB,2.7446E-01_JPRB,4.2589E-01_JPRB,5.4720E-01_JPRB,5.9726E-01_JPRB/)  
+KBO( :, 2,15, 7) = (/&
+ & 7.8300E-02_JPRB,7.8517E-02_JPRB,2.7502E-01_JPRB,4.2618E-01_JPRB,5.4948E-01_JPRB,6.0171E-01_JPRB/)  
+KBO( :, 3,15, 7) = (/&
+ & 8.0785E-02_JPRB,8.0989E-02_JPRB,2.7599E-01_JPRB,4.2609E-01_JPRB,5.4964E-01_JPRB,6.0469E-01_JPRB/)  
+KBO( :, 4,15, 7) = (/&
+ & 8.3195E-02_JPRB,8.3388E-02_JPRB,2.7720E-01_JPRB,4.2579E-01_JPRB,5.4827E-01_JPRB,6.0587E-01_JPRB/)  
+KBO( :, 5,15, 7) = (/&
+ & 8.5455E-02_JPRB,8.5636E-02_JPRB,2.7832E-01_JPRB,4.2510E-01_JPRB,5.4565E-01_JPRB,6.0534E-01_JPRB/)  
+KBO( :, 1,16, 7) = (/&
+ & 6.6118E-02_JPRB,6.6355E-02_JPRB,2.5732E-01_JPRB,3.9829E-01_JPRB,5.1265E-01_JPRB,5.5527E-01_JPRB/)  
+KBO( :, 2,16, 7) = (/&
+ & 6.8340E-02_JPRB,6.8565E-02_JPRB,2.5922E-01_JPRB,3.9972E-01_JPRB,5.1481E-01_JPRB,5.5901E-01_JPRB/)  
+KBO( :, 3,16, 7) = (/&
+ & 7.0479E-02_JPRB,7.0691E-02_JPRB,2.6131E-01_JPRB,4.0064E-01_JPRB,5.1513E-01_JPRB,5.6129E-01_JPRB/)  
+KBO( :, 4,16, 7) = (/&
+ & 7.2489E-02_JPRB,7.2689E-02_JPRB,2.6335E-01_JPRB,4.0108E-01_JPRB,5.1406E-01_JPRB,5.6253E-01_JPRB/)  
+KBO( :, 5,16, 7) = (/&
+ & 7.4397E-02_JPRB,7.4586E-02_JPRB,2.6518E-01_JPRB,4.0098E-01_JPRB,5.1222E-01_JPRB,5.6243E-01_JPRB/)  
+KBO( :, 1,17, 7) = (/&
+ & 5.7406E-02_JPRB,5.7650E-02_JPRB,2.3930E-01_JPRB,3.6866E-01_JPRB,4.7357E-01_JPRB,5.0878E-01_JPRB/)  
+KBO( :, 2,17, 7) = (/&
+ & 5.9309E-02_JPRB,5.9537E-02_JPRB,2.4214E-01_JPRB,3.7060E-01_JPRB,4.7573E-01_JPRB,5.1192E-01_JPRB/)  
+KBO( :, 3,17, 7) = (/&
+ & 6.1082E-02_JPRB,6.1301E-02_JPRB,2.4481E-01_JPRB,3.7220E-01_JPRB,4.7608E-01_JPRB,5.1457E-01_JPRB/)  
+KBO( :, 4,17, 7) = (/&
+ & 6.2769E-02_JPRB,6.2976E-02_JPRB,2.4726E-01_JPRB,3.7333E-01_JPRB,4.7575E-01_JPRB,5.1639E-01_JPRB/)  
+KBO( :, 5,17, 7) = (/&
+ & 6.4538E-02_JPRB,6.4738E-02_JPRB,2.4921E-01_JPRB,3.7444E-01_JPRB,4.7491E-01_JPRB,5.1718E-01_JPRB/)  
+KBO( :, 1,18, 7) = (/&
+ & 4.9552E-02_JPRB,4.9801E-02_JPRB,2.2056E-01_JPRB,3.3735E-01_JPRB,4.3161E-01_JPRB,4.5988E-01_JPRB/)  
+KBO( :, 2,18, 7) = (/&
+ & 5.1121E-02_JPRB,5.1359E-02_JPRB,2.2361E-01_JPRB,3.3991E-01_JPRB,4.3345E-01_JPRB,4.6346E-01_JPRB/)  
+KBO( :, 3,18, 7) = (/&
+ & 5.2593E-02_JPRB,5.2821E-02_JPRB,2.2654E-01_JPRB,3.4220E-01_JPRB,4.3440E-01_JPRB,4.6667E-01_JPRB/)  
+KBO( :, 4,18, 7) = (/&
+ & 5.4109E-02_JPRB,5.4323E-02_JPRB,2.2905E-01_JPRB,3.4438E-01_JPRB,4.3513E-01_JPRB,4.6905E-01_JPRB/)  
+KBO( :, 5,18, 7) = (/&
+ & 5.5939E-02_JPRB,5.6145E-02_JPRB,2.3107E-01_JPRB,3.4628E-01_JPRB,4.3581E-01_JPRB,4.7075E-01_JPRB/)  
+KBO( :, 1,19, 7) = (/&
+ & 4.2494E-02_JPRB,4.2746E-02_JPRB,2.0106E-01_JPRB,3.0520E-01_JPRB,3.8813E-01_JPRB,4.1087E-01_JPRB/)  
+KBO( :, 2,19, 7) = (/&
+ & 4.3779E-02_JPRB,4.4022E-02_JPRB,2.0425E-01_JPRB,3.0836E-01_JPRB,3.9036E-01_JPRB,4.1494E-01_JPRB/)  
+KBO( :, 3,19, 7) = (/&
+ & 4.5047E-02_JPRB,4.5279E-02_JPRB,2.0714E-01_JPRB,3.1149E-01_JPRB,3.9227E-01_JPRB,4.1866E-01_JPRB/)  
+KBO( :, 4,19, 7) = (/&
+ & 4.6572E-02_JPRB,4.6791E-02_JPRB,2.0960E-01_JPRB,3.1442E-01_JPRB,3.9443E-01_JPRB,4.2162E-01_JPRB/)  
+KBO( :, 5,19, 7) = (/&
+ & 4.8486E-02_JPRB,4.8693E-02_JPRB,2.1178E-01_JPRB,3.1724E-01_JPRB,3.9648E-01_JPRB,4.2406E-01_JPRB/)  
+KBO( :, 1,20, 7) = (/&
+ & 3.6269E-02_JPRB,3.6528E-02_JPRB,1.8145E-01_JPRB,2.7358E-01_JPRB,3.4556E-01_JPRB,3.6362E-01_JPRB/)  
+KBO( :, 2,20, 7) = (/&
+ & 3.7339E-02_JPRB,3.7589E-02_JPRB,1.8454E-01_JPRB,2.7744E-01_JPRB,3.4849E-01_JPRB,3.6815E-01_JPRB/)  
+KBO( :, 3,20, 7) = (/&
+ & 3.8549E-02_JPRB,3.8787E-02_JPRB,1.8732E-01_JPRB,2.8107E-01_JPRB,3.5173E-01_JPRB,3.7214E-01_JPRB/)  
+KBO( :, 4,20, 7) = (/&
+ & 4.0135E-02_JPRB,4.0360E-02_JPRB,1.8991E-01_JPRB,2.8468E-01_JPRB,3.5494E-01_JPRB,3.7578E-01_JPRB/)  
+KBO( :, 5,20, 7) = (/&
+ & 4.2034E-02_JPRB,4.2244E-02_JPRB,1.9231E-01_JPRB,2.8796E-01_JPRB,3.5825E-01_JPRB,3.7920E-01_JPRB/)  
+KBO( :, 1,21, 7) = (/&
+ & 3.0838E-02_JPRB,3.1110E-02_JPRB,1.6217E-01_JPRB,2.4347E-01_JPRB,3.0519E-01_JPRB,3.1909E-01_JPRB/)  
+KBO( :, 2,21, 7) = (/&
+ & 3.1802E-02_JPRB,3.2063E-02_JPRB,1.6515E-01_JPRB,2.4761E-01_JPRB,3.0911E-01_JPRB,3.2385E-01_JPRB/)  
+KBO( :, 3,21, 7) = (/&
+ & 3.3062E-02_JPRB,3.3309E-02_JPRB,1.6796E-01_JPRB,2.5173E-01_JPRB,3.1324E-01_JPRB,3.2836E-01_JPRB/)  
+KBO( :, 4,21, 7) = (/&
+ & 3.4629E-02_JPRB,3.4862E-02_JPRB,1.7066E-01_JPRB,2.5561E-01_JPRB,3.1762E-01_JPRB,3.3243E-01_JPRB/)  
+KBO( :, 5,21, 7) = (/&
+ & 3.6342E-02_JPRB,3.6556E-02_JPRB,1.7331E-01_JPRB,2.5945E-01_JPRB,3.2161E-01_JPRB,3.3536E-01_JPRB/)  
+KBO( :, 1,22, 7) = (/&
+ & 2.6185E-02_JPRB,2.6480E-02_JPRB,1.4390E-01_JPRB,2.1535E-01_JPRB,2.6825E-01_JPRB,2.7831E-01_JPRB/)  
+KBO( :, 2,22, 7) = (/&
+ & 2.7170E-02_JPRB,2.7445E-02_JPRB,1.4681E-01_JPRB,2.1972E-01_JPRB,2.7298E-01_JPRB,2.8332E-01_JPRB/)  
+KBO( :, 3,22, 7) = (/&
+ & 2.8461E-02_JPRB,2.8721E-02_JPRB,1.4967E-01_JPRB,2.2403E-01_JPRB,2.7800E-01_JPRB,2.8771E-01_JPRB/)  
+KBO( :, 4,22, 7) = (/&
+ & 2.9895E-02_JPRB,3.0136E-02_JPRB,1.5252E-01_JPRB,2.2826E-01_JPRB,2.8245E-01_JPRB,2.9094E-01_JPRB/)  
+KBO( :, 5,22, 7) = (/&
+ & 3.1389E-02_JPRB,3.1609E-02_JPRB,1.5546E-01_JPRB,2.3192E-01_JPRB,2.8576E-01_JPRB,2.9204E-01_JPRB/)  
+KBO( :, 1,23, 7) = (/&
+ & 2.2242E-02_JPRB,2.2585E-02_JPRB,1.2678E-01_JPRB,1.8942E-01_JPRB,2.3494E-01_JPRB,2.4143E-01_JPRB/)  
+KBO( :, 2,23, 7) = (/&
+ & 2.3269E-02_JPRB,2.3584E-02_JPRB,1.2966E-01_JPRB,1.9392E-01_JPRB,2.4012E-01_JPRB,2.4601E-01_JPRB/)  
+KBO( :, 3,23, 7) = (/&
+ & 2.4462E-02_JPRB,2.4752E-02_JPRB,1.3262E-01_JPRB,1.9826E-01_JPRB,2.4479E-01_JPRB,2.4932E-01_JPRB/)  
+KBO( :, 4,23, 7) = (/&
+ & 2.5724E-02_JPRB,2.5987E-02_JPRB,1.3562E-01_JPRB,2.0194E-01_JPRB,2.4827E-01_JPRB,2.5044E-01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART21',1,ZHOOK_HANDLE)
+END SUBROUTINE PART21
+
+
+SUBROUTINE PART22
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART22',0,ZHOOK_HANDLE)
+
+
+KBO( :, 5,23, 7) = (/&
+ & 2.7009E-02_JPRB,2.7247E-02_JPRB,1.3866E-01_JPRB,2.0472E-01_JPRB,2.4987E-01_JPRB,2.4911E-01_JPRB/)  
+KBO( :, 1,24, 7) = (/&
+ & 1.8924E-02_JPRB,1.9342E-02_JPRB,1.1105E-01_JPRB,1.6590E-01_JPRB,2.0499E-01_JPRB,2.0802E-01_JPRB/)  
+KBO( :, 2,24, 7) = (/&
+ & 1.9910E-02_JPRB,2.0290E-02_JPRB,1.1397E-01_JPRB,1.7018E-01_JPRB,2.0970E-01_JPRB,2.1135E-01_JPRB/)  
+KBO( :, 3,24, 7) = (/&
+ & 2.0965E-02_JPRB,2.1308E-02_JPRB,1.1690E-01_JPRB,1.7382E-01_JPRB,2.1319E-01_JPRB,2.1255E-01_JPRB/)  
+KBO( :, 4,24, 7) = (/&
+ & 2.2052E-02_JPRB,2.2362E-02_JPRB,1.1976E-01_JPRB,1.7647E-01_JPRB,2.1472E-01_JPRB,2.1155E-01_JPRB/)  
+KBO( :, 5,24, 7) = (/&
+ & 2.3159E-02_JPRB,2.3438E-02_JPRB,1.2254E-01_JPRB,1.7790E-01_JPRB,2.1436E-01_JPRB,2.0899E-01_JPRB/)  
+KBO( :, 1,25, 7) = (/&
+ & 1.6126E-02_JPRB,1.6634E-02_JPRB,9.6918E-02_JPRB,1.4450E-01_JPRB,1.7776E-01_JPRB,1.7751E-01_JPRB/)  
+KBO( :, 2,25, 7) = (/&
+ & 1.7005E-02_JPRB,1.7471E-02_JPRB,9.9655E-02_JPRB,1.4804E-01_JPRB,1.8117E-01_JPRB,1.7889E-01_JPRB/)  
+KBO( :, 3,25, 7) = (/&
+ & 1.7908E-02_JPRB,1.8330E-02_JPRB,1.0231E-01_JPRB,1.5056E-01_JPRB,1.8277E-01_JPRB,1.7834E-01_JPRB/)  
+KBO( :, 4,25, 7) = (/&
+ & 1.8834E-02_JPRB,1.9214E-02_JPRB,1.0481E-01_JPRB,1.5188E-01_JPRB,1.8269E-01_JPRB,1.7644E-01_JPRB/)  
+KBO( :, 5,25, 7) = (/&
+ & 1.9803E-02_JPRB,2.0147E-02_JPRB,1.0706E-01_JPRB,1.5241E-01_JPRB,1.8142E-01_JPRB,1.7360E-01_JPRB/)  
+KBO( :, 1,26, 7) = (/&
+ & 1.3733E-02_JPRB,1.4333E-02_JPRB,8.4163E-02_JPRB,1.2491E-01_JPRB,1.5264E-01_JPRB,1.4950E-01_JPRB/)  
+KBO( :, 2,26, 7) = (/&
+ & 1.4485E-02_JPRB,1.5042E-02_JPRB,8.6571E-02_JPRB,1.2729E-01_JPRB,1.5433E-01_JPRB,1.4938E-01_JPRB/)  
+KBO( :, 3,26, 7) = (/&
+ & 1.5263E-02_JPRB,1.5775E-02_JPRB,8.8793E-02_JPRB,1.2861E-01_JPRB,1.5456E-01_JPRB,1.4809E-01_JPRB/)  
+KBO( :, 4,26, 7) = (/&
+ & 1.6060E-02_JPRB,1.6526E-02_JPRB,9.0766E-02_JPRB,1.2922E-01_JPRB,1.5373E-01_JPRB,1.4598E-01_JPRB/)  
+KBO( :, 5,26, 7) = (/&
+ & 1.6936E-02_JPRB,1.7356E-02_JPRB,9.2410E-02_JPRB,1.2957E-01_JPRB,1.5224E-01_JPRB,1.4323E-01_JPRB/)  
+KBO( :, 1,27, 7) = (/&
+ & 1.1673E-02_JPRB,1.2349E-02_JPRB,7.2668E-02_JPRB,1.0678E-01_JPRB,1.2946E-01_JPRB,1.2446E-01_JPRB/)  
+KBO( :, 2,27, 7) = (/&
+ & 1.2313E-02_JPRB,1.2955E-02_JPRB,7.4613E-02_JPRB,1.0813E-01_JPRB,1.2998E-01_JPRB,1.2372E-01_JPRB/)  
+KBO( :, 3,27, 7) = (/&
+ & 1.2974E-02_JPRB,1.3574E-02_JPRB,7.6365E-02_JPRB,1.0885E-01_JPRB,1.2958E-01_JPRB,1.2223E-01_JPRB/)  
+KBO( :, 4,27, 7) = (/&
+ & 1.3688E-02_JPRB,1.4241E-02_JPRB,7.7870E-02_JPRB,1.0934E-01_JPRB,1.2859E-01_JPRB,1.2019E-01_JPRB/)  
+KBO( :, 5,27, 7) = (/&
+ & 1.4500E-02_JPRB,1.5004E-02_JPRB,7.9154E-02_JPRB,1.0968E-01_JPRB,1.2721E-01_JPRB,1.1769E-01_JPRB/)  
+KBO( :, 1,28, 7) = (/&
+ & 9.9017E-03_JPRB,1.0637E-02_JPRB,6.2269E-02_JPRB,9.0336E-02_JPRB,1.0873E-01_JPRB,1.0289E-01_JPRB/)  
+KBO( :, 2,28, 7) = (/&
+ & 1.0447E-02_JPRB,1.1155E-02_JPRB,6.3837E-02_JPRB,9.1161E-02_JPRB,1.0870E-01_JPRB,1.0194E-01_JPRB/)  
+KBO( :, 3,28, 7) = (/&
+ & 1.1031E-02_JPRB,1.1703E-02_JPRB,6.5234E-02_JPRB,9.1757E-02_JPRB,1.0813E-01_JPRB,1.0049E-01_JPRB/)  
+KBO( :, 4,28, 7) = (/&
+ & 1.1687E-02_JPRB,1.2317E-02_JPRB,6.6435E-02_JPRB,9.2244E-02_JPRB,1.0722E-01_JPRB,9.8621E-02_JPRB/)  
+KBO( :, 5,28, 7) = (/&
+ & 1.2452E-02_JPRB,1.3036E-02_JPRB,6.7452E-02_JPRB,9.2541E-02_JPRB,1.0617E-01_JPRB,9.6430E-02_JPRB/)  
+KBO( :, 1,29, 7) = (/&
+ & 8.3943E-03_JPRB,9.1654E-03_JPRB,5.3047E-02_JPRB,7.5941E-02_JPRB,9.0764E-02_JPRB,8.4732E-02_JPRB/)  
+KBO( :, 2,29, 7) = (/&
+ & 8.8669E-03_JPRB,9.6211E-03_JPRB,5.4351E-02_JPRB,7.6615E-02_JPRB,9.0534E-02_JPRB,8.3768E-02_JPRB/)  
+KBO( :, 3,29, 7) = (/&
+ & 9.3976E-03_JPRB,1.0125E-02_JPRB,5.5501E-02_JPRB,7.7201E-02_JPRB,8.9989E-02_JPRB,8.2428E-02_JPRB/)  
+KBO( :, 4,29, 7) = (/&
+ & 1.0017E-02_JPRB,1.0708E-02_JPRB,5.6489E-02_JPRB,7.7643E-02_JPRB,8.9310E-02_JPRB,8.0785E-02_JPRB/)  
+KBO( :, 5,29, 7) = (/&
+ & 1.0736E-02_JPRB,1.1389E-02_JPRB,5.7305E-02_JPRB,7.7877E-02_JPRB,8.8545E-02_JPRB,7.8917E-02_JPRB/)  
+KBO( :, 1,30, 7) = (/&
+ & 7.1195E-03_JPRB,7.9064E-03_JPRB,4.5048E-02_JPRB,6.3701E-02_JPRB,7.5506E-02_JPRB,6.9609E-02_JPRB/)  
+KBO( :, 2,30, 7) = (/&
+ & 7.5430E-03_JPRB,8.3223E-03_JPRB,4.6141E-02_JPRB,6.4336E-02_JPRB,7.5249E-02_JPRB,6.8691E-02_JPRB/)  
+KBO( :, 3,30, 7) = (/&
+ & 8.0392E-03_JPRB,8.8028E-03_JPRB,4.7092E-02_JPRB,6.4887E-02_JPRB,7.4865E-02_JPRB,6.7513E-02_JPRB/)  
+KBO( :, 4,30, 7) = (/&
+ & 8.6260E-03_JPRB,9.3657E-03_JPRB,4.7903E-02_JPRB,6.5263E-02_JPRB,7.4401E-02_JPRB,6.6108E-02_JPRB/)  
+KBO( :, 5,30, 7) = (/&
+ & 9.2967E-03_JPRB,1.0007E-02_JPRB,4.8615E-02_JPRB,6.5447E-02_JPRB,7.3852E-02_JPRB,6.4545E-02_JPRB/)  
+KBO( :, 1,31, 7) = (/&
+ & 6.0475E-03_JPRB,6.8335E-03_JPRB,3.8158E-02_JPRB,5.3421E-02_JPRB,6.2695E-02_JPRB,5.7118E-02_JPRB/)  
+KBO( :, 2,31, 7) = (/&
+ & 6.4423E-03_JPRB,7.2306E-03_JPRB,3.9087E-02_JPRB,5.4038E-02_JPRB,6.2533E-02_JPRB,5.6304E-02_JPRB/)  
+KBO( :, 3,31, 7) = (/&
+ & 6.9157E-03_JPRB,7.6990E-03_JPRB,3.9885E-02_JPRB,5.4507E-02_JPRB,6.2314E-02_JPRB,5.5291E-02_JPRB/)  
+KBO( :, 4,31, 7) = (/&
+ & 7.4643E-03_JPRB,8.2378E-03_JPRB,4.0585E-02_JPRB,5.4818E-02_JPRB,6.2007E-02_JPRB,5.4123E-02_JPRB/)  
+KBO( :, 5,31, 7) = (/&
+ & 8.0870E-03_JPRB,8.8427E-03_JPRB,4.1238E-02_JPRB,5.4956E-02_JPRB,6.1571E-02_JPRB,5.2845E-02_JPRB/)  
+KBO( :, 1,32, 7) = (/&
+ & 5.1572E-03_JPRB,5.9281E-03_JPRB,3.2288E-02_JPRB,4.4834E-02_JPRB,5.2063E-02_JPRB,4.6838E-02_JPRB/)  
+KBO( :, 2,32, 7) = (/&
+ & 5.5343E-03_JPRB,6.3178E-03_JPRB,3.3066E-02_JPRB,4.5379E-02_JPRB,5.2022E-02_JPRB,4.6134E-02_JPRB/)  
+KBO( :, 3,32, 7) = (/&
+ & 5.9793E-03_JPRB,6.7732E-03_JPRB,3.3755E-02_JPRB,4.5782E-02_JPRB,5.1906E-02_JPRB,4.5284E-02_JPRB/)  
+KBO( :, 4,32, 7) = (/&
+ & 6.4923E-03_JPRB,7.2876E-03_JPRB,3.4382E-02_JPRB,4.6031E-02_JPRB,5.1677E-02_JPRB,4.4332E-02_JPRB/)  
+KBO( :, 5,32, 7) = (/&
+ & 7.0596E-03_JPRB,7.8510E-03_JPRB,3.5020E-02_JPRB,4.6157E-02_JPRB,5.1326E-02_JPRB,4.3327E-02_JPRB/)  
+KBO( :, 1,33, 7) = (/&
+ & 4.4193E-03_JPRB,5.1672E-03_JPRB,2.7281E-02_JPRB,3.7643E-02_JPRB,4.3289E-02_JPRB,3.8410E-02_JPRB/)  
+KBO( :, 2,33, 7) = (/&
+ & 4.7780E-03_JPRB,5.5509E-03_JPRB,2.7954E-02_JPRB,3.8112E-02_JPRB,4.3323E-02_JPRB,3.7821E-02_JPRB/)  
+KBO( :, 3,33, 7) = (/&
+ & 5.1954E-03_JPRB,5.9899E-03_JPRB,2.8558E-02_JPRB,3.8442E-02_JPRB,4.3253E-02_JPRB,3.7133E-02_JPRB/)  
+KBO( :, 4,33, 7) = (/&
+ & 5.6675E-03_JPRB,6.4760E-03_JPRB,2.9162E-02_JPRB,3.8661E-02_JPRB,4.3077E-02_JPRB,3.6382E-02_JPRB/)  
+KBO( :, 5,33, 7) = (/&
+ & 6.1867E-03_JPRB,6.9981E-03_JPRB,2.9817E-02_JPRB,3.8817E-02_JPRB,4.2791E-02_JPRB,3.5593E-02_JPRB/)  
+KBO( :, 1,34, 7) = (/&
+ & 3.7967E-03_JPRB,4.5190E-03_JPRB,2.3030E-02_JPRB,3.1601E-02_JPRB,3.6054E-02_JPRB,3.1509E-02_JPRB/)  
+KBO( :, 2,34, 7) = (/&
+ & 4.1317E-03_JPRB,4.8886E-03_JPRB,2.3612E-02_JPRB,3.1993E-02_JPRB,3.6114E-02_JPRB,3.1025E-02_JPRB/)  
+KBO( :, 3,34, 7) = (/&
+ & 4.5197E-03_JPRB,5.3080E-03_JPRB,2.4172E-02_JPRB,3.2284E-02_JPRB,3.6075E-02_JPRB,3.0475E-02_JPRB/)  
+KBO( :, 4,34, 7) = (/&
+ & 4.9490E-03_JPRB,5.7615E-03_JPRB,2.4765E-02_JPRB,3.2500E-02_JPRB,3.5934E-02_JPRB,2.9886E-02_JPRB/)  
+KBO( :, 5,34, 7) = (/&
+ & 5.4277E-03_JPRB,6.2506E-03_JPRB,2.5457E-02_JPRB,3.2703E-02_JPRB,3.5717E-02_JPRB,2.9265E-02_JPRB/)  
+KBO( :, 1,35, 7) = (/&
+ & 3.2485E-03_JPRB,3.9401E-03_JPRB,1.9395E-02_JPRB,2.6487E-02_JPRB,3.0061E-02_JPRB,2.5898E-02_JPRB/)  
+KBO( :, 2,35, 7) = (/&
+ & 3.5574E-03_JPRB,4.2902E-03_JPRB,1.9918E-02_JPRB,2.6839E-02_JPRB,3.0137E-02_JPRB,2.5509E-02_JPRB/)  
+KBO( :, 3,35, 7) = (/&
+ & 3.9084E-03_JPRB,4.6823E-03_JPRB,2.0454E-02_JPRB,2.7112E-02_JPRB,3.0123E-02_JPRB,2.5080E-02_JPRB/)  
+KBO( :, 4,35, 7) = (/&
+ & 4.2975E-03_JPRB,5.1039E-03_JPRB,2.1052E-02_JPRB,2.7348E-02_JPRB,3.0028E-02_JPRB,2.4626E-02_JPRB/)  
+KBO( :, 5,35, 7) = (/&
+ & 4.7400E-03_JPRB,5.5642E-03_JPRB,2.1748E-02_JPRB,2.7600E-02_JPRB,2.9873E-02_JPRB,2.4136E-02_JPRB/)  
+KBO( :, 1,36, 7) = (/&
+ & 2.7607E-03_JPRB,3.4142E-03_JPRB,1.6292E-02_JPRB,2.2168E-02_JPRB,2.5071E-02_JPRB,2.1321E-02_JPRB/)  
+KBO( :, 2,36, 7) = (/&
+ & 3.0408E-03_JPRB,3.7429E-03_JPRB,1.6771E-02_JPRB,2.2492E-02_JPRB,2.5167E-02_JPRB,2.1022E-02_JPRB/)  
+KBO( :, 3,36, 7) = (/&
+ & 3.3541E-03_JPRB,4.1050E-03_JPRB,1.7286E-02_JPRB,2.2762E-02_JPRB,2.5179E-02_JPRB,2.0697E-02_JPRB/)  
+KBO( :, 4,36, 7) = (/&
+ & 3.7038E-03_JPRB,4.4924E-03_JPRB,1.7882E-02_JPRB,2.3025E-02_JPRB,2.5128E-02_JPRB,2.0344E-02_JPRB/)  
+KBO( :, 5,36, 7) = (/&
+ & 4.1115E-03_JPRB,4.9275E-03_JPRB,1.8561E-02_JPRB,2.3321E-02_JPRB,2.5038E-02_JPRB,1.9966E-02_JPRB/)  
+KBO( :, 1,37, 7) = (/&
+ & 2.3165E-03_JPRB,2.9243E-03_JPRB,1.3632E-02_JPRB,1.8511E-02_JPRB,2.0911E-02_JPRB,1.7582E-02_JPRB/)  
+KBO( :, 2,37, 7) = (/&
+ & 2.5620E-03_JPRB,3.2240E-03_JPRB,1.4078E-02_JPRB,1.8817E-02_JPRB,2.1021E-02_JPRB,1.7359E-02_JPRB/)  
+KBO( :, 3,37, 7) = (/&
+ & 2.8378E-03_JPRB,3.5536E-03_JPRB,1.4566E-02_JPRB,1.9089E-02_JPRB,2.1062E-02_JPRB,1.7112E-02_JPRB/)  
+KBO( :, 4,37, 7) = (/&
+ & 3.1506E-03_JPRB,3.9105E-03_JPRB,1.5134E-02_JPRB,1.9368E-02_JPRB,2.1055E-02_JPRB,1.6843E-02_JPRB/)  
+KBO( :, 5,37, 7) = (/&
+ & 3.5154E-03_JPRB,4.3116E-03_JPRB,1.5780E-02_JPRB,1.9690E-02_JPRB,2.1025E-02_JPRB,1.6554E-02_JPRB/)  
+KBO( :, 1,38, 7) = (/&
+ & 1.9436E-03_JPRB,2.5043E-03_JPRB,1.1409E-02_JPRB,1.5449E-02_JPRB,1.7439E-02_JPRB,1.4509E-02_JPRB/)  
+KBO( :, 2,38, 7) = (/&
+ & 2.1585E-03_JPRB,2.7776E-03_JPRB,1.1822E-02_JPRB,1.5741E-02_JPRB,1.7560E-02_JPRB,1.4349E-02_JPRB/)  
+KBO( :, 3,38, 7) = (/&
+ & 2.4018E-03_JPRB,3.0766E-03_JPRB,1.2278E-02_JPRB,1.6010E-02_JPRB,1.7625E-02_JPRB,1.4163E-02_JPRB/)  
+KBO( :, 4,38, 7) = (/&
+ & 2.6807E-03_JPRB,3.4074E-03_JPRB,1.2821E-02_JPRB,1.6300E-02_JPRB,1.7653E-02_JPRB,1.3961E-02_JPRB/)  
+KBO( :, 5,38, 7) = (/&
+ & 3.0074E-03_JPRB,3.7767E-03_JPRB,1.3427E-02_JPRB,1.6635E-02_JPRB,1.7670E-02_JPRB,1.3745E-02_JPRB/)  
+KBO( :, 1,39, 7) = (/&
+ & 1.6324E-03_JPRB,2.1472E-03_JPRB,9.5576E-03_JPRB,1.2899E-02_JPRB,1.4546E-02_JPRB,1.1989E-02_JPRB/)  
+KBO( :, 2,39, 7) = (/&
+ & 1.8200E-03_JPRB,2.3947E-03_JPRB,9.9337E-03_JPRB,1.3170E-02_JPRB,1.4671E-02_JPRB,1.1875E-02_JPRB/)  
+KBO( :, 3,39, 7) = (/&
+ & 2.0341E-03_JPRB,2.6676E-03_JPRB,1.0368E-02_JPRB,1.3436E-02_JPRB,1.4754E-02_JPRB,1.1741E-02_JPRB/)  
+KBO( :, 4,39, 7) = (/&
+ & 2.2822E-03_JPRB,2.9700E-03_JPRB,1.0873E-02_JPRB,1.3729E-02_JPRB,1.4811E-02_JPRB,1.1592E-02_JPRB/)  
+KBO( :, 5,39, 7) = (/&
+ & 2.5777E-03_JPRB,3.3169E-03_JPRB,1.1451E-02_JPRB,1.4071E-02_JPRB,1.4864E-02_JPRB,1.1429E-02_JPRB/)  
+KBO( :, 1,40, 7) = (/&
+ & 1.3560E-03_JPRB,1.8205E-03_JPRB,7.9786E-03_JPRB,1.0746E-02_JPRB,1.2116E-02_JPRB,9.8937E-03_JPRB/)  
+KBO( :, 2,40, 7) = (/&
+ & 1.5188E-03_JPRB,2.0432E-03_JPRB,8.3209E-03_JPRB,1.1001E-02_JPRB,1.2248E-02_JPRB,9.8116E-03_JPRB/)  
+KBO( :, 3,40, 7) = (/&
+ & 1.7047E-03_JPRB,2.2893E-03_JPRB,8.7183E-03_JPRB,1.1256E-02_JPRB,1.2346E-02_JPRB,9.7139E-03_JPRB/)  
+KBO( :, 4,40, 7) = (/&
+ & 1.9222E-03_JPRB,2.5662E-03_JPRB,9.1877E-03_JPRB,1.1545E-02_JPRB,1.2425E-02_JPRB,9.6034E-03_JPRB/)  
+KBO( :, 5,40, 7) = (/&
+ & 2.1827E-03_JPRB,2.8825E-03_JPRB,9.7216E-03_JPRB,1.1880E-02_JPRB,1.2506E-02_JPRB,9.4790E-03_JPRB/)  
+KBO( :, 1,41, 7) = (/&
+ & 1.1245E-03_JPRB,1.5415E-03_JPRB,6.6591E-03_JPRB,8.9478E-03_JPRB,1.0087E-02_JPRB,8.1642E-03_JPRB/)  
+KBO( :, 2,41, 7) = (/&
+ & 1.2648E-03_JPRB,1.7402E-03_JPRB,6.9688E-03_JPRB,9.1871E-03_JPRB,1.0221E-02_JPRB,8.1056E-03_JPRB/)  
+KBO( :, 3,41, 7) = (/&
+ & 1.4266E-03_JPRB,1.9622E-03_JPRB,7.3306E-03_JPRB,9.4300E-03_JPRB,1.0328E-02_JPRB,8.0356E-03_JPRB/)  
+KBO( :, 4,41, 7) = (/&
+ & 1.6162E-03_JPRB,2.2132E-03_JPRB,7.7614E-03_JPRB,9.7094E-03_JPRB,1.0422E-02_JPRB,7.9538E-03_JPRB/)  
+KBO( :, 5,41, 7) = (/&
+ & 1.8452E-03_JPRB,2.5020E-03_JPRB,8.2540E-03_JPRB,1.0030E-02_JPRB,1.0522E-02_JPRB,7.8592E-03_JPRB/)  
+KBO( :, 1,42, 7) = (/&
+ & 9.3219E-04_JPRB,1.3042E-03_JPRB,5.5558E-03_JPRB,7.4502E-03_JPRB,8.3930E-03_JPRB,6.7373E-03_JPRB/)  
+KBO( :, 2,42, 7) = (/&
+ & 1.0531E-03_JPRB,1.4817E-03_JPRB,5.8359E-03_JPRB,7.6727E-03_JPRB,8.5267E-03_JPRB,6.6979E-03_JPRB/)  
+KBO( :, 3,42, 7) = (/&
+ & 1.1932E-03_JPRB,1.6822E-03_JPRB,6.1662E-03_JPRB,7.9012E-03_JPRB,8.6371E-03_JPRB,6.6486E-03_JPRB/)  
+KBO( :, 4,42, 7) = (/&
+ & 1.3591E-03_JPRB,1.9101E-03_JPRB,6.5594E-03_JPRB,8.1659E-03_JPRB,8.7400E-03_JPRB,6.5900E-03_JPRB/)  
+KBO( :, 5,42, 7) = (/&
+ & 1.5595E-03_JPRB,2.1712E-03_JPRB,7.0143E-03_JPRB,8.4711E-03_JPRB,8.8520E-03_JPRB,6.5197E-03_JPRB/)  
+KBO( :, 1,43, 7) = (/&
+ & 7.6655E-04_JPRB,1.0948E-03_JPRB,4.6199E-03_JPRB,6.1929E-03_JPRB,6.9738E-03_JPRB,5.5590E-03_JPRB/)  
+KBO( :, 2,43, 7) = (/&
+ & 8.7006E-04_JPRB,1.2519E-03_JPRB,4.8725E-03_JPRB,6.3982E-03_JPRB,7.1051E-03_JPRB,5.5354E-03_JPRB/)  
+KBO( :, 3,43, 7) = (/&
+ & 9.9067E-04_JPRB,1.4317E-03_JPRB,5.1714E-03_JPRB,6.6094E-03_JPRB,7.2167E-03_JPRB,5.5034E-03_JPRB/)  
+KBO( :, 4,43, 7) = (/&
+ & 1.1333E-03_JPRB,1.6361E-03_JPRB,5.5238E-03_JPRB,6.8549E-03_JPRB,7.3224E-03_JPRB,5.4615E-03_JPRB/)  
+KBO( :, 5,43, 7) = (/&
+ & 1.3078E-03_JPRB,1.8729E-03_JPRB,5.9392E-03_JPRB,7.1404E-03_JPRB,7.4395E-03_JPRB,5.4098E-03_JPRB/)  
+KBO( :, 1,44, 7) = (/&
+ & 6.2716E-04_JPRB,9.1445E-04_JPRB,3.8379E-03_JPRB,5.1423E-03_JPRB,5.7885E-03_JPRB,4.5879E-03_JPRB/)  
+KBO( :, 2,44, 7) = (/&
+ & 7.1539E-04_JPRB,1.0525E-03_JPRB,4.0608E-03_JPRB,5.3284E-03_JPRB,5.9139E-03_JPRB,4.5750E-03_JPRB/)  
+KBO( :, 3,44, 7) = (/&
+ & 8.1868E-04_JPRB,1.2124E-03_JPRB,4.3261E-03_JPRB,5.5223E-03_JPRB,6.0237E-03_JPRB,4.5564E-03_JPRB/)  
+KBO( :, 4,44, 7) = (/&
+ & 9.4076E-04_JPRB,1.3951E-03_JPRB,4.6439E-03_JPRB,5.7493E-03_JPRB,6.1304E-03_JPRB,4.5291E-03_JPRB/)  
+KBO( :, 5,44, 7) = (/&
+ & 1.0905E-03_JPRB,1.6074E-03_JPRB,5.0184E-03_JPRB,6.0132E-03_JPRB,6.2498E-03_JPRB,4.4930E-03_JPRB/)  
+KBO( :, 1,45, 7) = (/&
+ & 5.1229E-04_JPRB,7.6193E-04_JPRB,3.1853E-03_JPRB,4.2678E-03_JPRB,4.8007E-03_JPRB,3.7867E-03_JPRB/)  
+KBO( :, 2,45, 7) = (/&
+ & 5.8700E-04_JPRB,8.8309E-04_JPRB,3.3822E-03_JPRB,4.4376E-03_JPRB,4.9204E-03_JPRB,3.7837E-03_JPRB/)  
+KBO( :, 3,45, 7) = (/&
+ & 6.7532E-04_JPRB,1.0253E-03_JPRB,3.6172E-03_JPRB,4.6137E-03_JPRB,5.0263E-03_JPRB,3.7750E-03_JPRB/)  
+KBO( :, 4,45, 7) = (/&
+ & 7.7992E-04_JPRB,1.1886E-03_JPRB,3.9001E-03_JPRB,4.8193E-03_JPRB,5.1305E-03_JPRB,3.7582E-03_JPRB/)  
+KBO( :, 5,45, 7) = (/&
+ & 9.0898E-04_JPRB,1.3801E-03_JPRB,4.2375E-03_JPRB,5.0602E-03_JPRB,5.2468E-03_JPRB,3.7339E-03_JPRB/)  
+KBO( :, 1,46, 7) = (/&
+ & 4.1645E-04_JPRB,6.3110E-04_JPRB,2.6350E-03_JPRB,3.5353E-03_JPRB,3.9769E-03_JPRB,3.1256E-03_JPRB/)  
+KBO( :, 2,46, 7) = (/&
+ & 4.7902E-04_JPRB,7.3636E-04_JPRB,2.8091E-03_JPRB,3.6888E-03_JPRB,4.0884E-03_JPRB,3.1284E-03_JPRB/)  
+KBO( :, 3,46, 7) = (/&
+ & 5.5407E-04_JPRB,8.6233E-04_JPRB,3.0151E-03_JPRB,3.8480E-03_JPRB,4.1890E-03_JPRB,3.1266E-03_JPRB/)  
+KBO( :, 4,46, 7) = (/&
+ & 6.4357E-04_JPRB,1.0083E-03_JPRB,3.2677E-03_JPRB,4.0349E-03_JPRB,4.2897E-03_JPRB,3.1195E-03_JPRB/)  
+KBO( :, 5,46, 7) = (/&
+ & 7.5354E-04_JPRB,1.1783E-03_JPRB,3.5685E-03_JPRB,4.2544E-03_JPRB,4.4018E-03_JPRB,3.1063E-03_JPRB/)  
+KBO( :, 1,47, 7) = (/&
+ & 3.3601E-04_JPRB,5.1777E-04_JPRB,2.1723E-03_JPRB,2.9197E-03_JPRB,3.2860E-03_JPRB,2.5760E-03_JPRB/)  
+KBO( :, 2,47, 7) = (/&
+ & 3.8754E-04_JPRB,6.0796E-04_JPRB,2.3239E-03_JPRB,3.0581E-03_JPRB,3.3911E-03_JPRB,2.5844E-03_JPRB/)  
+KBO( :, 3,47, 7) = (/&
+ & 4.5065E-04_JPRB,7.1798E-04_JPRB,2.5022E-03_JPRB,3.2019E-03_JPRB,3.4875E-03_JPRB,2.5889E-03_JPRB/)  
+KBO( :, 4,47, 7) = (/&
+ & 5.2613E-04_JPRB,8.4682E-04_JPRB,2.7238E-03_JPRB,3.3682E-03_JPRB,3.5815E-03_JPRB,2.5884E-03_JPRB/)  
+KBO( :, 5,47, 7) = (/&
+ & 6.1929E-04_JPRB,9.9786E-04_JPRB,2.9897E-03_JPRB,3.5658E-03_JPRB,3.6861E-03_JPRB,2.5827E-03_JPRB/)  
+KBO( :, 1,48, 7) = (/&
+ & 2.7083E-04_JPRB,4.2347E-04_JPRB,1.7899E-03_JPRB,2.4088E-03_JPRB,2.7136E-03_JPRB,2.1244E-03_JPRB/)  
+KBO( :, 2,48, 7) = (/&
+ & 3.1279E-04_JPRB,4.9999E-04_JPRB,1.9206E-03_JPRB,2.5330E-03_JPRB,2.8112E-03_JPRB,2.1367E-03_JPRB/)  
+KBO( :, 3,48, 7) = (/&
+ & 3.6550E-04_JPRB,5.9533E-04_JPRB,2.0740E-03_JPRB,2.6614E-03_JPRB,2.9002E-03_JPRB,2.1451E-03_JPRB/)  
+KBO( :, 4,48, 7) = (/&
+ & 4.2897E-04_JPRB,7.0913E-04_JPRB,2.2662E-03_JPRB,2.8083E-03_JPRB,2.9875E-03_JPRB,2.1497E-03_JPRB/)  
+KBO( :, 5,48, 7) = (/&
+ & 5.0746E-04_JPRB,8.4310E-04_JPRB,2.4995E-03_JPRB,2.9841E-03_JPRB,3.0838E-03_JPRB,2.1494E-03_JPRB/)  
+KBO( :, 1,49, 7) = (/&
+ & 2.1798E-04_JPRB,3.4528E-04_JPRB,1.4710E-03_JPRB,1.9833E-03_JPRB,2.2375E-03_JPRB,1.7528E-03_JPRB/)  
+KBO( :, 2,49, 7) = (/&
+ & 2.5177E-04_JPRB,4.0956E-04_JPRB,1.5850E-03_JPRB,2.0943E-03_JPRB,2.3273E-03_JPRB,1.7678E-03_JPRB/)  
+KBO( :, 3,49, 7) = (/&
+ & 2.9568E-04_JPRB,4.9144E-04_JPRB,1.7161E-03_JPRB,2.2089E-03_JPRB,2.4094E-03_JPRB,1.7791E-03_JPRB/)  
+KBO( :, 4,49, 7) = (/&
+ & 3.4874E-04_JPRB,5.9100E-04_JPRB,1.8818E-03_JPRB,2.3380E-03_JPRB,2.4892E-03_JPRB,1.7874E-03_JPRB/)  
+KBO( :, 5,49, 7) = (/&
+ & 4.1458E-04_JPRB,7.0951E-04_JPRB,2.0849E-03_JPRB,2.4934E-03_JPRB,2.5772E-03_JPRB,1.7919E-03_JPRB/)  
+KBO( :, 1,50, 7) = (/&
+ & 1.7585E-04_JPRB,2.8189E-04_JPRB,1.2093E-03_JPRB,1.6329E-03_JPRB,1.8441E-03_JPRB,1.4430E-03_JPRB/)  
+KBO( :, 2,50, 7) = (/&
+ & 2.0319E-04_JPRB,3.3574E-04_JPRB,1.3080E-03_JPRB,1.7313E-03_JPRB,1.9256E-03_JPRB,1.4584E-03_JPRB/)  
+KBO( :, 3,50, 7) = (/&
+ & 2.3954E-04_JPRB,4.0576E-04_JPRB,1.4210E-03_JPRB,1.8326E-03_JPRB,2.0011E-03_JPRB,1.4708E-03_JPRB/)  
+KBO( :, 4,50, 7) = (/&
+ & 2.8402E-04_JPRB,4.9271E-04_JPRB,1.5642E-03_JPRB,1.9468E-03_JPRB,2.0746E-03_JPRB,1.4813E-03_JPRB/)  
+KBO( :, 5,50, 7) = (/&
+ & 3.3943E-04_JPRB,5.9790E-04_JPRB,1.7417E-03_JPRB,2.0852E-03_JPRB,2.1555E-03_JPRB,1.4890E-03_JPRB/)  
+KBO( :, 1,51, 7) = (/&
+ & 1.4190E-04_JPRB,2.2992E-04_JPRB,9.9404E-04_JPRB,1.3435E-03_JPRB,1.5181E-03_JPRB,1.1857E-03_JPRB/)  
+KBO( :, 2,51, 7) = (/&
+ & 1.6404E-04_JPRB,2.7497E-04_JPRB,1.0789E-03_JPRB,1.4304E-03_JPRB,1.5921E-03_JPRB,1.2010E-03_JPRB/)  
+KBO( :, 3,51, 7) = (/&
+ & 1.9404E-04_JPRB,3.3460E-04_JPRB,1.1768E-03_JPRB,1.5204E-03_JPRB,1.6616E-03_JPRB,1.2144E-03_JPRB/)  
+KBO( :, 4,51, 7) = (/&
+ & 2.3131E-04_JPRB,4.1015E-04_JPRB,1.3000E-03_JPRB,1.6207E-03_JPRB,1.7290E-03_JPRB,1.2257E-03_JPRB/)  
+KBO( :, 5,51, 7) = (/&
+ & 2.7780E-04_JPRB,5.0292E-04_JPRB,1.4546E-03_JPRB,1.7432E-03_JPRB,1.8024E-03_JPRB,1.2347E-03_JPRB/)  
+KBO( :, 1,52, 7) = (/&
+ & 1.1444E-04_JPRB,1.8707E-04_JPRB,8.1510E-04_JPRB,1.1036E-03_JPRB,1.2481E-03_JPRB,9.7442E-04_JPRB/)  
+KBO( :, 2,52, 7) = (/&
+ & 1.3222E-04_JPRB,2.2446E-04_JPRB,8.8966E-04_JPRB,1.1810E-03_JPRB,1.3153E-03_JPRB,9.8987E-04_JPRB/)  
+KBO( :, 3,52, 7) = (/&
+ & 1.5685E-04_JPRB,2.7479E-04_JPRB,9.7350E-04_JPRB,1.2602E-03_JPRB,1.3785E-03_JPRB,1.0031E-03_JPRB/)  
+KBO( :, 4,52, 7) = (/&
+ & 1.8798E-04_JPRB,3.3998E-04_JPRB,1.0787E-03_JPRB,1.3479E-03_JPRB,1.4399E-03_JPRB,1.0147E-03_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART22',1,ZHOOK_HANDLE)
+END SUBROUTINE PART22
+
+
+SUBROUTINE PART23
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART23',0,ZHOOK_HANDLE)
+
+
+KBO( :, 5,52, 7) = (/&
+ & 2.2685E-04_JPRB,4.2103E-04_JPRB,1.2129E-03_JPRB,1.4553E-03_JPRB,1.5058E-03_JPRB,1.0246E-03_JPRB/)  
+KBO( :, 1,53, 7) = (/&
+ & 9.2203E-05_JPRB,1.5178E-04_JPRB,6.6684E-04_JPRB,9.0491E-04_JPRB,1.0248E-03_JPRB,8.0095E-04_JPRB/)  
+KBO( :, 2,53, 7) = (/&
+ & 1.0645E-04_JPRB,1.8273E-04_JPRB,7.3180E-04_JPRB,9.7345E-04_JPRB,1.0848E-03_JPRB,8.1627E-04_JPRB/)  
+KBO( :, 3,53, 7) = (/&
+ & 1.2645E-04_JPRB,2.2480E-04_JPRB,8.0421E-04_JPRB,1.0432E-03_JPRB,1.1420E-03_JPRB,8.2935E-04_JPRB/)  
+KBO( :, 4,53, 7) = (/&
+ & 1.5240E-04_JPRB,2.8048E-04_JPRB,8.9332E-04_JPRB,1.1196E-03_JPRB,1.1976E-03_JPRB,8.4108E-04_JPRB/)  
+KBO( :, 5,53, 7) = (/&
+ & 1.8493E-04_JPRB,3.5120E-04_JPRB,1.0092E-03_JPRB,1.2130E-03_JPRB,1.2568E-03_JPRB,8.5144E-04_JPRB/)  
+KBO( :, 1,54, 7) = (/&
+ & 7.4475E-05_JPRB,1.2345E-04_JPRB,5.4618E-04_JPRB,7.4261E-04_JPRB,8.4183E-04_JPRB,6.5530E-04_JPRB/)  
+KBO( :, 2,54, 7) = (/&
+ & 8.5959E-05_JPRB,1.4923E-04_JPRB,6.0251E-04_JPRB,8.0294E-04_JPRB,8.9490E-04_JPRB,6.6891E-04_JPRB/)  
+KBO( :, 3,54, 7) = (/&
+ & 1.0229E-04_JPRB,1.8454E-04_JPRB,6.6507E-04_JPRB,8.6435E-04_JPRB,9.4622E-04_JPRB,6.8052E-04_JPRB/)  
+KBO( :, 4,54, 7) = (/&
+ & 1.2399E-04_JPRB,2.3208E-04_JPRB,7.4156E-04_JPRB,9.3133E-04_JPRB,9.9626E-04_JPRB,6.9113E-04_JPRB/)  
+KBO( :, 5,54, 7) = (/&
+ & 1.5132E-04_JPRB,2.9378E-04_JPRB,8.4147E-04_JPRB,1.0125E-03_JPRB,1.0494E-03_JPRB,7.0039E-04_JPRB/)  
+KBO( :, 1,55, 7) = (/&
+ & 6.0192E-05_JPRB,1.0040E-04_JPRB,4.4700E-04_JPRB,6.0908E-04_JPRB,6.9112E-04_JPRB,5.3444E-04_JPRB/)  
+KBO( :, 2,55, 7) = (/&
+ & 6.9457E-05_JPRB,1.2191E-04_JPRB,4.9554E-04_JPRB,6.6216E-04_JPRB,7.3789E-04_JPRB,5.4620E-04_JPRB/)  
+KBO( :, 3,55, 7) = (/&
+ & 8.2806E-05_JPRB,1.5147E-04_JPRB,5.4968E-04_JPRB,7.1596E-04_JPRB,7.8355E-04_JPRB,5.5595E-04_JPRB/)  
+KBO( :, 4,55, 7) = (/&
+ & 1.0089E-04_JPRB,1.9188E-04_JPRB,6.1506E-04_JPRB,7.7451E-04_JPRB,8.2844E-04_JPRB,5.6494E-04_JPRB/)  
+KBO( :, 5,55, 7) = (/&
+ & 1.2391E-04_JPRB,2.4549E-04_JPRB,7.0152E-04_JPRB,8.4524E-04_JPRB,8.7589E-04_JPRB,5.7264E-04_JPRB/)  
+KBO( :, 1,56, 7) = (/&
+ & 4.8580E-05_JPRB,8.1447E-05_JPRB,3.6499E-04_JPRB,4.9860E-04_JPRB,5.6674E-04_JPRB,4.3567E-04_JPRB/)  
+KBO( :, 2,56, 7) = (/&
+ & 5.6047E-05_JPRB,9.9320E-05_JPRB,4.0649E-04_JPRB,5.4492E-04_JPRB,6.0760E-04_JPRB,4.4586E-04_JPRB/)  
+KBO( :, 3,56, 7) = (/&
+ & 6.6893E-05_JPRB,1.2391E-04_JPRB,4.5320E-04_JPRB,5.9224E-04_JPRB,6.4818E-04_JPRB,4.5422E-04_JPRB/)  
+KBO( :, 4,56, 7) = (/&
+ & 8.1912E-05_JPRB,1.5812E-04_JPRB,5.0921E-04_JPRB,6.4326E-04_JPRB,6.8817E-04_JPRB,4.6166E-04_JPRB/)  
+KBO( :, 5,56, 7) = (/&
+ & 1.0126E-04_JPRB,2.0443E-04_JPRB,5.8380E-04_JPRB,7.0456E-04_JPRB,7.3041E-04_JPRB,4.6808E-04_JPRB/)  
+KBO( :, 1,57, 7) = (/&
+ & 3.9160E-05_JPRB,6.5848E-05_JPRB,2.9734E-04_JPRB,4.0720E-04_JPRB,4.6401E-04_JPRB,3.5487E-04_JPRB/)  
+KBO( :, 2,57, 7) = (/&
+ & 4.5169E-05_JPRB,8.0667E-05_JPRB,3.3303E-04_JPRB,4.4771E-04_JPRB,4.9960E-04_JPRB,3.6385E-04_JPRB/)  
+KBO( :, 3,57, 7) = (/&
+ & 5.3922E-05_JPRB,1.0107E-04_JPRB,3.7271E-04_JPRB,4.8901E-04_JPRB,5.3556E-04_JPRB,3.7100E-04_JPRB/)  
+KBO( :, 4,57, 7) = (/&
+ & 6.6309E-05_JPRB,1.2986E-04_JPRB,4.2066E-04_JPRB,5.3363E-04_JPRB,5.7118E-04_JPRB,3.7715E-04_JPRB/)  
+KBO( :, 5,57, 7) = (/&
+ & 8.2558E-05_JPRB,1.6957E-04_JPRB,4.8458E-04_JPRB,5.8660E-04_JPRB,6.0854E-04_JPRB,3.8261E-04_JPRB/)  
+KBO( :, 1,58, 7) = (/&
+ & 3.1595E-05_JPRB,5.3251E-05_JPRB,2.4214E-04_JPRB,3.3220E-04_JPRB,3.7979E-04_JPRB,2.8893E-04_JPRB/)  
+KBO( :, 2,58, 7) = (/&
+ & 3.6453E-05_JPRB,6.5530E-05_JPRB,2.7256E-04_JPRB,3.6744E-04_JPRB,4.1068E-04_JPRB,2.9670E-04_JPRB/)  
+KBO( :, 3,58, 7) = (/&
+ & 4.3522E-05_JPRB,8.2522E-05_JPRB,3.0670E-04_JPRB,4.0362E-04_JPRB,4.4239E-04_JPRB,3.0276E-04_JPRB/)  
+KBO( :, 4,58, 7) = (/&
+ & 5.3718E-05_JPRB,1.0672E-04_JPRB,3.4774E-04_JPRB,4.4273E-04_JPRB,4.7408E-04_JPRB,3.0780E-04_JPRB/)  
+KBO( :, 5,58, 7) = (/&
+ & 6.7377E-05_JPRB,1.4070E-04_JPRB,4.0225E-04_JPRB,4.8863E-04_JPRB,5.0717E-04_JPRB,3.1234E-04_JPRB/)  
+KBO( :, 1,59, 7) = (/&
+ & 2.6095E-05_JPRB,4.4557E-05_JPRB,2.0135E-04_JPRB,2.7586E-04_JPRB,3.1509E-04_JPRB,2.3542E-04_JPRB/)  
+KBO( :, 2,59, 7) = (/&
+ & 3.0251E-05_JPRB,5.5296E-05_JPRB,2.2770E-04_JPRB,3.0652E-04_JPRB,3.4210E-04_JPRB,2.4160E-04_JPRB/)  
+KBO( :, 3,59, 7) = (/&
+ & 3.6364E-05_JPRB,7.0315E-05_JPRB,2.5762E-04_JPRB,3.3839E-04_JPRB,3.7008E-04_JPRB,2.4615E-04_JPRB/)  
+KBO( :, 4,59, 7) = (/&
+ & 4.5252E-05_JPRB,9.1955E-05_JPRB,2.9410E-04_JPRB,3.7318E-04_JPRB,3.9814E-04_JPRB,2.4968E-04_JPRB/)  
+KBO( :, 5,59, 7) = (/&
+ & 5.7239E-05_JPRB,1.2271E-04_JPRB,3.4336E-04_JPRB,4.1464E-04_JPRB,4.2794E-04_JPRB,2.5280E-04_JPRB/)  
+KBO( :, 1,13, 8) = (/&
+ & 3.0593E-01_JPRB,3.0601E-01_JPRB,5.8936E-01_JPRB,8.8205E-01_JPRB,1.0947E+00_JPRB,1.1943E+00_JPRB/)  
+KBO( :, 2,13, 8) = (/&
+ & 3.0576E-01_JPRB,3.0585E-01_JPRB,5.8416E-01_JPRB,8.7445E-01_JPRB,1.0842E+00_JPRB,1.1946E+00_JPRB/)  
+KBO( :, 3,13, 8) = (/&
+ & 3.0730E-01_JPRB,3.0739E-01_JPRB,5.7838E-01_JPRB,8.6622E-01_JPRB,1.0736E+00_JPRB,1.1941E+00_JPRB/)  
+KBO( :, 4,13, 8) = (/&
+ & 3.1143E-01_JPRB,3.1153E-01_JPRB,5.7236E-01_JPRB,8.5664E-01_JPRB,1.0623E+00_JPRB,1.1926E+00_JPRB/)  
+KBO( :, 5,13, 8) = (/&
+ & 3.1821E-01_JPRB,3.1830E-01_JPRB,5.6671E-01_JPRB,8.4589E-01_JPRB,1.0496E+00_JPRB,1.1883E+00_JPRB/)  
+KBO( :, 1,14, 8) = (/&
+ & 2.6541E-01_JPRB,2.6552E-01_JPRB,5.8043E-01_JPRB,8.8352E-01_JPRB,1.1026E+00_JPRB,1.1931E+00_JPRB/)  
+KBO( :, 2,14, 8) = (/&
+ & 2.6695E-01_JPRB,2.6706E-01_JPRB,5.7539E-01_JPRB,8.7778E-01_JPRB,1.0951E+00_JPRB,1.1937E+00_JPRB/)  
+KBO( :, 3,14, 8) = (/&
+ & 2.7112E-01_JPRB,2.7123E-01_JPRB,5.7000E-01_JPRB,8.7108E-01_JPRB,1.0869E+00_JPRB,1.1910E+00_JPRB/)  
+KBO( :, 4,14, 8) = (/&
+ & 2.7807E-01_JPRB,2.7818E-01_JPRB,5.6514E-01_JPRB,8.6271E-01_JPRB,1.0767E+00_JPRB,1.1867E+00_JPRB/)  
+KBO( :, 5,14, 8) = (/&
+ & 2.8739E-01_JPRB,2.8751E-01_JPRB,5.6126E-01_JPRB,8.5280E-01_JPRB,1.0643E+00_JPRB,1.1809E+00_JPRB/)  
+KBO( :, 1,15, 8) = (/&
+ & 2.3178E-01_JPRB,2.3191E-01_JPRB,5.7184E-01_JPRB,8.7693E-01_JPRB,1.1022E+00_JPRB,1.1813E+00_JPRB/)  
+KBO( :, 2,15, 8) = (/&
+ & 2.3560E-01_JPRB,2.3573E-01_JPRB,5.6724E-01_JPRB,8.7349E-01_JPRB,1.0976E+00_JPRB,1.1800E+00_JPRB/)  
+KBO( :, 3,15, 8) = (/&
+ & 2.4219E-01_JPRB,2.4233E-01_JPRB,5.6272E-01_JPRB,8.6826E-01_JPRB,1.0904E+00_JPRB,1.1766E+00_JPRB/)  
+KBO( :, 4,15, 8) = (/&
+ & 2.5074E-01_JPRB,2.5088E-01_JPRB,5.5919E-01_JPRB,8.6097E-01_JPRB,1.0807E+00_JPRB,1.1720E+00_JPRB/)  
+KBO( :, 5,15, 8) = (/&
+ & 2.6000E-01_JPRB,2.6013E-01_JPRB,5.5698E-01_JPRB,8.5261E-01_JPRB,1.0688E+00_JPRB,1.1657E+00_JPRB/)  
+KBO( :, 1,16, 8) = (/&
+ & 2.0414E-01_JPRB,2.0429E-01_JPRB,5.5967E-01_JPRB,8.6370E-01_JPRB,1.0904E+00_JPRB,1.1562E+00_JPRB/)  
+KBO( :, 2,16, 8) = (/&
+ & 2.1009E-01_JPRB,2.1024E-01_JPRB,5.5625E-01_JPRB,8.6141E-01_JPRB,1.0865E+00_JPRB,1.1558E+00_JPRB/)  
+KBO( :, 3,16, 8) = (/&
+ & 2.1753E-01_JPRB,2.1768E-01_JPRB,5.5355E-01_JPRB,8.5657E-01_JPRB,1.0800E+00_JPRB,1.1537E+00_JPRB/)  
+KBO( :, 4,16, 8) = (/&
+ & 2.2581E-01_JPRB,2.2595E-01_JPRB,5.5210E-01_JPRB,8.5071E-01_JPRB,1.0712E+00_JPRB,1.1497E+00_JPRB/)  
+KBO( :, 5,16, 8) = (/&
+ & 2.3451E-01_JPRB,2.3466E-01_JPRB,5.5166E-01_JPRB,8.4445E-01_JPRB,1.0599E+00_JPRB,1.1442E+00_JPRB/)  
+KBO( :, 1,17, 8) = (/&
+ & 1.8111E-01_JPRB,1.8127E-01_JPRB,5.4370E-01_JPRB,8.4066E-01_JPRB,1.0633E+00_JPRB,1.1173E+00_JPRB/)  
+KBO( :, 2,17, 8) = (/&
+ & 1.8751E-01_JPRB,1.8767E-01_JPRB,5.4225E-01_JPRB,8.3870E-01_JPRB,1.0603E+00_JPRB,1.1188E+00_JPRB/)  
+KBO( :, 3,17, 8) = (/&
+ & 1.9478E-01_JPRB,1.9494E-01_JPRB,5.4182E-01_JPRB,8.3528E-01_JPRB,1.0547E+00_JPRB,1.1179E+00_JPRB/)  
+KBO( :, 4,17, 8) = (/&
+ & 2.0226E-01_JPRB,2.0242E-01_JPRB,5.4242E-01_JPRB,8.3135E-01_JPRB,1.0462E+00_JPRB,1.1153E+00_JPRB/)  
+KBO( :, 5,17, 8) = (/&
+ & 2.0977E-01_JPRB,2.0992E-01_JPRB,5.4408E-01_JPRB,8.2665E-01_JPRB,1.0353E+00_JPRB,1.1109E+00_JPRB/)  
+KBO( :, 1,18, 8) = (/&
+ & 1.6037E-01_JPRB,1.6054E-01_JPRB,5.2354E-01_JPRB,8.0743E-01_JPRB,1.0214E+00_JPRB,1.0665E+00_JPRB/)  
+KBO( :, 2,18, 8) = (/&
+ & 1.6652E-01_JPRB,1.6669E-01_JPRB,5.2468E-01_JPRB,8.0676E-01_JPRB,1.0196E+00_JPRB,1.0692E+00_JPRB/)  
+KBO( :, 3,18, 8) = (/&
+ & 1.7290E-01_JPRB,1.7307E-01_JPRB,5.2655E-01_JPRB,8.0477E-01_JPRB,1.0147E+00_JPRB,1.0691E+00_JPRB/)  
+KBO( :, 4,18, 8) = (/&
+ & 1.7934E-01_JPRB,1.7951E-01_JPRB,5.2943E-01_JPRB,8.0251E-01_JPRB,1.0069E+00_JPRB,1.0675E+00_JPRB/)  
+KBO( :, 5,18, 8) = (/&
+ & 1.8580E-01_JPRB,1.8596E-01_JPRB,5.3218E-01_JPRB,7.9996E-01_JPRB,9.9675E-01_JPRB,1.0641E+00_JPRB/)  
+KBO( :, 1,19, 8) = (/&
+ & 1.4147E-01_JPRB,1.4165E-01_JPRB,4.9931E-01_JPRB,7.6579E-01_JPRB,9.6706E-01_JPRB,1.0036E+00_JPRB/)  
+KBO( :, 2,19, 8) = (/&
+ & 1.4680E-01_JPRB,1.4699E-01_JPRB,5.0235E-01_JPRB,7.6624E-01_JPRB,9.6598E-01_JPRB,1.0066E+00_JPRB/)  
+KBO( :, 3,19, 8) = (/&
+ & 1.5225E-01_JPRB,1.5244E-01_JPRB,5.0654E-01_JPRB,7.6618E-01_JPRB,9.6124E-01_JPRB,1.0077E+00_JPRB/)  
+KBO( :, 4,19, 8) = (/&
+ & 1.5772E-01_JPRB,1.5791E-01_JPRB,5.1074E-01_JPRB,7.6598E-01_JPRB,9.5363E-01_JPRB,1.0072E+00_JPRB/)  
+KBO( :, 5,19, 8) = (/&
+ & 1.6330E-01_JPRB,1.6348E-01_JPRB,5.1433E-01_JPRB,7.6482E-01_JPRB,9.4459E-01_JPRB,1.0048E+00_JPRB/)  
+KBO( :, 1,20, 8) = (/&
+ & 1.2415E-01_JPRB,1.2435E-01_JPRB,4.7152E-01_JPRB,7.1700E-01_JPRB,9.0180E-01_JPRB,9.3194E-01_JPRB/)  
+KBO( :, 2,20, 8) = (/&
+ & 1.2873E-01_JPRB,1.2894E-01_JPRB,4.7682E-01_JPRB,7.1874E-01_JPRB,9.0028E-01_JPRB,9.3593E-01_JPRB/)  
+KBO( :, 3,20, 8) = (/&
+ & 1.3332E-01_JPRB,1.3352E-01_JPRB,4.8227E-01_JPRB,7.2020E-01_JPRB,8.9592E-01_JPRB,9.3812E-01_JPRB/)  
+KBO( :, 4,20, 8) = (/&
+ & 1.3806E-01_JPRB,1.3826E-01_JPRB,4.8689E-01_JPRB,7.2110E-01_JPRB,8.9003E-01_JPRB,9.3865E-01_JPRB/)  
+KBO( :, 5,20, 8) = (/&
+ & 1.4304E-01_JPRB,1.4323E-01_JPRB,4.9097E-01_JPRB,7.2157E-01_JPRB,8.8366E-01_JPRB,9.3774E-01_JPRB/)  
+KBO( :, 1,21, 8) = (/&
+ & 1.0824E-01_JPRB,1.0845E-01_JPRB,4.4084E-01_JPRB,6.6237E-01_JPRB,8.2840E-01_JPRB,8.5416E-01_JPRB/)  
+KBO( :, 2,21, 8) = (/&
+ & 1.1215E-01_JPRB,1.1237E-01_JPRB,4.4741E-01_JPRB,6.6560E-01_JPRB,8.2721E-01_JPRB,8.5880E-01_JPRB/)  
+KBO( :, 3,21, 8) = (/&
+ & 1.1610E-01_JPRB,1.1631E-01_JPRB,4.5328E-01_JPRB,6.6844E-01_JPRB,8.2433E-01_JPRB,8.6217E-01_JPRB/)  
+KBO( :, 4,21, 8) = (/&
+ & 1.2031E-01_JPRB,1.2052E-01_JPRB,4.5831E-01_JPRB,6.7112E-01_JPRB,8.2101E-01_JPRB,8.6470E-01_JPRB/)  
+KBO( :, 5,21, 8) = (/&
+ & 1.2513E-01_JPRB,1.2535E-01_JPRB,4.6228E-01_JPRB,6.7321E-01_JPRB,8.1773E-01_JPRB,8.6681E-01_JPRB/)  
+KBO( :, 1,22, 8) = (/&
+ & 9.4136E-02_JPRB,9.4356E-02_JPRB,4.0812E-01_JPRB,6.0557E-01_JPRB,7.5102E-01_JPRB,7.7334E-01_JPRB/)  
+KBO( :, 2,22, 8) = (/&
+ & 9.7453E-02_JPRB,9.7680E-02_JPRB,4.1479E-01_JPRB,6.0994E-01_JPRB,7.5090E-01_JPRB,7.7909E-01_JPRB/)  
+KBO( :, 3,22, 8) = (/&
+ & 1.0097E-01_JPRB,1.0120E-01_JPRB,4.2075E-01_JPRB,6.1446E-01_JPRB,7.5039E-01_JPRB,7.8458E-01_JPRB/)  
+KBO( :, 4,22, 8) = (/&
+ & 1.0505E-01_JPRB,1.0527E-01_JPRB,4.2583E-01_JPRB,6.1845E-01_JPRB,7.5036E-01_JPRB,7.8977E-01_JPRB/)  
+KBO( :, 5,22, 8) = (/&
+ & 1.0993E-01_JPRB,1.1016E-01_JPRB,4.2991E-01_JPRB,6.2156E-01_JPRB,7.5073E-01_JPRB,7.9510E-01_JPRB/)  
+KBO( :, 1,23, 8) = (/&
+ & 8.1349E-02_JPRB,8.1584E-02_JPRB,3.7354E-01_JPRB,5.4796E-01_JPRB,6.7356E-01_JPRB,6.9291E-01_JPRB/)  
+KBO( :, 2,23, 8) = (/&
+ & 8.4276E-02_JPRB,8.4510E-02_JPRB,3.8021E-01_JPRB,5.5386E-01_JPRB,6.7570E-01_JPRB,7.0065E-01_JPRB/)  
+KBO( :, 3,23, 8) = (/&
+ & 8.7640E-02_JPRB,8.7874E-02_JPRB,3.8598E-01_JPRB,5.5948E-01_JPRB,6.7838E-01_JPRB,7.0844E-01_JPRB/)  
+KBO( :, 4,23, 8) = (/&
+ & 9.1780E-02_JPRB,9.2021E-02_JPRB,3.9102E-01_JPRB,5.6473E-01_JPRB,6.8175E-01_JPRB,7.1651E-01_JPRB/)  
+KBO( :, 5,23, 8) = (/&
+ & 9.6686E-02_JPRB,9.6939E-02_JPRB,3.9533E-01_JPRB,5.6950E-01_JPRB,6.8602E-01_JPRB,7.2456E-01_JPRB/)  
+KBO( :, 1,24, 8) = (/&
+ & 6.9990E-02_JPRB,7.0237E-02_JPRB,3.3858E-01_JPRB,4.9217E-01_JPRB,5.9977E-01_JPRB,6.1602E-01_JPRB/)  
+KBO( :, 2,24, 8) = (/&
+ & 7.2713E-02_JPRB,7.2959E-02_JPRB,3.4483E-01_JPRB,4.9901E-01_JPRB,6.0467E-01_JPRB,6.2572E-01_JPRB/)  
+KBO( :, 3,24, 8) = (/&
+ & 7.6092E-02_JPRB,7.6339E-02_JPRB,3.5052E-01_JPRB,5.0586E-01_JPRB,6.1039E-01_JPRB,6.3593E-01_JPRB/)  
+KBO( :, 4,24, 8) = (/&
+ & 8.0272E-02_JPRB,8.0531E-02_JPRB,3.5585E-01_JPRB,5.1250E-01_JPRB,6.1729E-01_JPRB,6.4602E-01_JPRB/)  
+KBO( :, 5,24, 8) = (/&
+ & 8.5043E-02_JPRB,8.5307E-02_JPRB,3.6095E-01_JPRB,5.1914E-01_JPRB,6.2467E-01_JPRB,6.5479E-01_JPRB/)  
+KBO( :, 1,25, 8) = (/&
+ & 6.0058E-02_JPRB,6.0325E-02_JPRB,3.0404E-01_JPRB,4.3931E-01_JPRB,5.3180E-01_JPRB,5.4488E-01_JPRB/)  
+KBO( :, 2,25, 8) = (/&
+ & 6.2808E-02_JPRB,6.3070E-02_JPRB,3.1019E-01_JPRB,4.4720E-01_JPRB,5.3927E-01_JPRB,5.5647E-01_JPRB/)  
+KBO( :, 3,25, 8) = (/&
+ & 6.6253E-02_JPRB,6.6517E-02_JPRB,3.1620E-01_JPRB,4.5515E-01_JPRB,5.4804E-01_JPRB,5.6793E-01_JPRB/)  
+KBO( :, 4,25, 8) = (/&
+ & 7.0286E-02_JPRB,7.0564E-02_JPRB,3.2210E-01_JPRB,4.6317E-01_JPRB,5.5729E-01_JPRB,5.7748E-01_JPRB/)  
+KBO( :, 5,25, 8) = (/&
+ & 7.4631E-02_JPRB,7.4904E-02_JPRB,3.2818E-01_JPRB,4.7084E-01_JPRB,5.6535E-01_JPRB,5.8428E-01_JPRB/)  
+KBO( :, 1,26, 8) = (/&
+ & 5.1659E-02_JPRB,5.1968E-02_JPRB,2.7136E-01_JPRB,3.9044E-01_JPRB,4.7061E-01_JPRB,4.8066E-01_JPRB/)  
+KBO( :, 2,26, 8) = (/&
+ & 5.4454E-02_JPRB,5.4749E-02_JPRB,2.7780E-01_JPRB,3.9925E-01_JPRB,4.8060E-01_JPRB,4.9280E-01_JPRB/)  
+KBO( :, 3,26, 8) = (/&
+ & 5.7864E-02_JPRB,5.8160E-02_JPRB,2.8427E-01_JPRB,4.0818E-01_JPRB,4.9092E-01_JPRB,5.0289E-01_JPRB/)  
+KBO( :, 4,26, 8) = (/&
+ & 6.1551E-02_JPRB,6.1849E-02_JPRB,2.9095E-01_JPRB,4.1685E-01_JPRB,4.9998E-01_JPRB,5.1033E-01_JPRB/)  
+KBO( :, 5,26, 8) = (/&
+ & 6.5434E-02_JPRB,6.5724E-02_JPRB,2.9806E-01_JPRB,4.2453E-01_JPRB,5.0716E-01_JPRB,5.1469E-01_JPRB/)  
+KBO( :, 1,27, 8) = (/&
+ & 4.4574E-02_JPRB,4.4959E-02_JPRB,2.4126E-01_JPRB,3.4609E-01_JPRB,4.1629E-01_JPRB,4.2248E-01_JPRB/)  
+KBO( :, 2,27, 8) = (/&
+ & 4.7372E-02_JPRB,4.7727E-02_JPRB,2.4803E-01_JPRB,3.5548E-01_JPRB,4.2721E-01_JPRB,4.3291E-01_JPRB/)  
+KBO( :, 3,27, 8) = (/&
+ & 5.0509E-02_JPRB,5.0855E-02_JPRB,2.5505E-01_JPRB,3.6464E-01_JPRB,4.3687E-01_JPRB,4.4067E-01_JPRB/)  
+KBO( :, 4,27, 8) = (/&
+ & 5.3857E-02_JPRB,5.4187E-02_JPRB,2.6242E-01_JPRB,3.7281E-01_JPRB,4.4478E-01_JPRB,4.4531E-01_JPRB/)  
+KBO( :, 5,27, 8) = (/&
+ & 5.7275E-02_JPRB,5.7589E-02_JPRB,2.7029E-01_JPRB,3.7997E-01_JPRB,4.5055E-01_JPRB,4.4651E-01_JPRB/)  
+KBO( :, 1,28, 8) = (/&
+ & 3.8595E-02_JPRB,3.9083E-02_JPRB,2.1409E-01_JPRB,3.0626E-01_JPRB,3.6758E-01_JPRB,3.6870E-01_JPRB/)  
+KBO( :, 2,28, 8) = (/&
+ & 4.1250E-02_JPRB,4.1701E-02_JPRB,2.2115E-01_JPRB,3.1552E-01_JPRB,3.7756E-01_JPRB,3.7664E-01_JPRB/)  
+KBO( :, 3,28, 8) = (/&
+ & 4.4090E-02_JPRB,4.4510E-02_JPRB,2.2858E-01_JPRB,3.2391E-01_JPRB,3.8579E-01_JPRB,3.8144E-01_JPRB/)  
+KBO( :, 4,28, 8) = (/&
+ & 4.7006E-02_JPRB,4.7391E-02_JPRB,2.3638E-01_JPRB,3.3136E-01_JPRB,3.9193E-01_JPRB,3.8299E-01_JPRB/)  
+KBO( :, 5,28, 8) = (/&
+ & 5.0054E-02_JPRB,5.0402E-02_JPRB,2.4452E-01_JPRB,3.3791E-01_JPRB,3.9580E-01_JPRB,3.8186E-01_JPRB/)  
+KBO( :, 1,29, 8) = (/&
+ & 3.3476E-02_JPRB,3.4098E-02_JPRB,1.8985E-01_JPRB,2.7044E-01_JPRB,3.2310E-01_JPRB,3.1910E-01_JPRB/)  
+KBO( :, 2,29, 8) = (/&
+ & 3.5905E-02_JPRB,3.6473E-02_JPRB,1.9710E-01_JPRB,2.7881E-01_JPRB,3.3147E-01_JPRB,3.2409E-01_JPRB/)  
+KBO( :, 3,29, 8) = (/&
+ & 3.8420E-02_JPRB,3.8933E-02_JPRB,2.0468E-01_JPRB,2.8629E-01_JPRB,3.3775E-01_JPRB,3.2611E-01_JPRB/)  
+KBO( :, 4,29, 8) = (/&
+ & 4.1043E-02_JPRB,4.1502E-02_JPRB,2.1261E-01_JPRB,2.9284E-01_JPRB,3.4187E-01_JPRB,3.2584E-01_JPRB/)  
+KBO( :, 5,29, 8) = (/&
+ & 4.3764E-02_JPRB,4.4163E-02_JPRB,2.2069E-01_JPRB,2.9879E-01_JPRB,3.4414E-01_JPRB,3.2382E-01_JPRB/)  
+KBO( :, 1,30, 8) = (/&
+ & 2.9059E-02_JPRB,2.9833E-02_JPRB,1.6831E-01_JPRB,2.3789E-01_JPRB,2.8228E-01_JPRB,2.7330E-01_JPRB/)  
+KBO( :, 2,30, 8) = (/&
+ & 3.1236E-02_JPRB,3.1934E-02_JPRB,1.7554E-01_JPRB,2.4524E-01_JPRB,2.8861E-01_JPRB,2.7583E-01_JPRB/)  
+KBO( :, 3,30, 8) = (/&
+ & 3.3473E-02_JPRB,3.4095E-02_JPRB,1.8314E-01_JPRB,2.5166E-01_JPRB,2.9297E-01_JPRB,2.7628E-01_JPRB/)  
+KBO( :, 4,30, 8) = (/&
+ & 3.5829E-02_JPRB,3.6370E-02_JPRB,1.9099E-01_JPRB,2.5743E-01_JPRB,2.9573E-01_JPRB,2.7526E-01_JPRB/)  
+KBO( :, 5,30, 8) = (/&
+ & 3.8342E-02_JPRB,3.8806E-02_JPRB,1.9889E-01_JPRB,2.6291E-01_JPRB,2.9753E-01_JPRB,2.7308E-01_JPRB/)  
+KBO( :, 1,31, 8) = (/&
+ & 2.5215E-02_JPRB,2.6144E-02_JPRB,1.4919E-01_JPRB,2.0841E-01_JPRB,2.4479E-01_JPRB,2.3198E-01_JPRB/)  
+KBO( :, 2,31, 8) = (/&
+ & 2.7144E-02_JPRB,2.7979E-02_JPRB,1.5634E-01_JPRB,2.1462E-01_JPRB,2.4940E-01_JPRB,2.3311E-01_JPRB/)  
+KBO( :, 3,31, 8) = (/&
+ & 2.9169E-02_JPRB,2.9907E-02_JPRB,1.6380E-01_JPRB,2.2020E-01_JPRB,2.5250E-01_JPRB,2.3291E-01_JPRB/)  
+KBO( :, 4,31, 8) = (/&
+ & 3.1339E-02_JPRB,3.1975E-02_JPRB,1.7145E-01_JPRB,2.2560E-01_JPRB,2.5484E-01_JPRB,2.3169E-01_JPRB/)  
+KBO( :, 5,31, 8) = (/&
+ & 3.3710E-02_JPRB,3.4248E-02_JPRB,1.7897E-01_JPRB,2.3122E-01_JPRB,2.5681E-01_JPRB,2.2968E-01_JPRB/)  
+KBO( :, 1,32, 8) = (/&
+ & 2.1908E-02_JPRB,2.2988E-02_JPRB,1.3234E-01_JPRB,1.8179E-01_JPRB,2.1098E-01_JPRB,1.9567E-01_JPRB/)  
+KBO( :, 2,32, 8) = (/&
+ & 2.3644E-02_JPRB,2.4617E-02_JPRB,1.3932E-01_JPRB,1.8712E-01_JPRB,2.1438E-01_JPRB,1.9614E-01_JPRB/)  
+KBO( :, 3,32, 8) = (/&
+ & 2.5493E-02_JPRB,2.6345E-02_JPRB,1.4655E-01_JPRB,1.9237E-01_JPRB,2.1705E-01_JPRB,1.9570E-01_JPRB/)  
+KBO( :, 4,32, 8) = (/&
+ & 2.7518E-02_JPRB,2.8252E-02_JPRB,1.5380E-01_JPRB,1.9790E-01_JPRB,2.1948E-01_JPRB,1.9455E-01_JPRB/)  
+KBO( :, 5,32, 8) = (/&
+ & 2.9773E-02_JPRB,3.0387E-02_JPRB,1.6098E-01_JPRB,2.0383E-01_JPRB,2.2190E-01_JPRB,1.9286E-01_JPRB/)  
+KBO( :, 1,33, 8) = (/&
+ & 1.9045E-02_JPRB,2.0261E-02_JPRB,1.1752E-01_JPRB,1.5812E-01_JPRB,1.8110E-01_JPRB,1.6448E-01_JPRB/)  
+KBO( :, 2,33, 8) = (/&
+ & 2.0626E-02_JPRB,2.1724E-02_JPRB,1.2423E-01_JPRB,1.6307E-01_JPRB,1.8397E-01_JPRB,1.6464E-01_JPRB/)  
+KBO( :, 3,33, 8) = (/&
+ & 2.2336E-02_JPRB,2.3302E-02_JPRB,1.3114E-01_JPRB,1.6839E-01_JPRB,1.8664E-01_JPRB,1.6418E-01_JPRB/)  
+KBO( :, 4,33, 8) = (/&
+ & 2.4266E-02_JPRB,2.5093E-02_JPRB,1.3811E-01_JPRB,1.7421E-01_JPRB,1.8938E-01_JPRB,1.6325E-01_JPRB/)  
+KBO( :, 5,33, 8) = (/&
+ & 2.6466E-02_JPRB,2.7164E-02_JPRB,1.4513E-01_JPRB,1.8048E-01_JPRB,1.9238E-01_JPRB,1.6211E-01_JPRB/)  
+KBO( :, 1,34, 8) = (/&
+ & 1.6556E-02_JPRB,1.7892E-02_JPRB,1.0429E-01_JPRB,1.3736E-01_JPRB,1.5516E-01_JPRB,1.3789E-01_JPRB/)  
+KBO( :, 2,34, 8) = (/&
+ & 1.7996E-02_JPRB,1.9210E-02_JPRB,1.1072E-01_JPRB,1.4236E-01_JPRB,1.5794E-01_JPRB,1.3797E-01_JPRB/)  
+KBO( :, 3,34, 8) = (/&
+ & 1.9608E-02_JPRB,2.0681E-02_JPRB,1.1739E-01_JPRB,1.4788E-01_JPRB,1.6081E-01_JPRB,1.3764E-01_JPRB/)  
+KBO( :, 4,34, 8) = (/&
+ & 2.1464E-02_JPRB,2.2387E-02_JPRB,1.2421E-01_JPRB,1.5396E-01_JPRB,1.6395E-01_JPRB,1.3706E-01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART23',1,ZHOOK_HANDLE)
+END SUBROUTINE PART23
+
+
+SUBROUTINE PART24
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART24',0,ZHOOK_HANDLE)
+
+
+KBO( :, 5,34, 8) = (/&
+ & 2.3594E-02_JPRB,2.4379E-02_JPRB,1.3126E-01_JPRB,1.6048E-01_JPRB,1.6756E-01_JPRB,1.3645E-01_JPRB/)  
+KBO( :, 1,35, 8) = (/&
+ & 1.4319E-02_JPRB,1.5758E-02_JPRB,9.2204E-02_JPRB,1.1925E-01_JPRB,1.3286E-01_JPRB,1.1548E-01_JPRB/)  
+KBO( :, 2,35, 8) = (/&
+ & 1.5652E-02_JPRB,1.6978E-02_JPRB,9.8399E-02_JPRB,1.2433E-01_JPRB,1.3567E-01_JPRB,1.1564E-01_JPRB/)  
+KBO( :, 3,35, 8) = (/&
+ & 1.7169E-02_JPRB,1.8350E-02_JPRB,1.0487E-01_JPRB,1.3003E-01_JPRB,1.3879E-01_JPRB,1.1554E-01_JPRB/)  
+KBO( :, 4,35, 8) = (/&
+ & 1.8944E-02_JPRB,1.9975E-02_JPRB,1.1167E-01_JPRB,1.3629E-01_JPRB,1.4236E-01_JPRB,1.1534E-01_JPRB/)  
+KBO( :, 5,35, 8) = (/&
+ & 2.0938E-02_JPRB,2.1824E-02_JPRB,1.1877E-01_JPRB,1.4294E-01_JPRB,1.4651E-01_JPRB,1.1522E-01_JPRB/)  
+KBO( :, 1,36, 8) = (/&
+ & 1.2304E-02_JPRB,1.3829E-02_JPRB,8.1120E-02_JPRB,1.0334E-01_JPRB,1.1366E-01_JPRB,9.6686E-02_JPRB/)  
+KBO( :, 2,36, 8) = (/&
+ & 1.3517E-02_JPRB,1.4942E-02_JPRB,8.7082E-02_JPRB,1.0850E-01_JPRB,1.1660E-01_JPRB,9.6981E-02_JPRB/)  
+KBO( :, 3,36, 8) = (/&
+ & 1.4939E-02_JPRB,1.6232E-02_JPRB,9.3439E-02_JPRB,1.1431E-01_JPRB,1.1995E-01_JPRB,9.7085E-02_JPRB/)  
+KBO( :, 4,36, 8) = (/&
+ & 1.6604E-02_JPRB,1.7754E-02_JPRB,1.0020E-01_JPRB,1.2061E-01_JPRB,1.2384E-01_JPRB,9.7245E-02_JPRB/)  
+KBO( :, 5,36, 8) = (/&
+ & 1.8458E-02_JPRB,1.9458E-02_JPRB,1.0732E-01_JPRB,1.2741E-01_JPRB,1.2840E-01_JPRB,9.7611E-02_JPRB/)  
+KBO( :, 1,37, 8) = (/&
+ & 1.0441E-02_JPRB,1.2037E-02_JPRB,7.0733E-02_JPRB,8.9104E-02_JPRB,9.7006E-02_JPRB,8.0853E-02_JPRB/)  
+KBO( :, 2,37, 8) = (/&
+ & 1.1538E-02_JPRB,1.3055E-02_JPRB,7.6444E-02_JPRB,9.4227E-02_JPRB,1.0002E-01_JPRB,8.1261E-02_JPRB/)  
+KBO( :, 3,37, 8) = (/&
+ & 1.2840E-02_JPRB,1.4247E-02_JPRB,8.2653E-02_JPRB,9.9992E-02_JPRB,1.0351E-01_JPRB,8.1587E-02_JPRB/)  
+KBO( :, 4,37, 8) = (/&
+ & 1.4355E-02_JPRB,1.5634E-02_JPRB,8.9312E-02_JPRB,1.0629E-01_JPRB,1.0761E-01_JPRB,8.2022E-02_JPRB/)  
+KBO( :, 5,37, 8) = (/&
+ & 1.6059E-02_JPRB,1.7188E-02_JPRB,9.6394E-02_JPRB,1.1316E-01_JPRB,1.1240E-01_JPRB,8.2731E-02_JPRB/)  
+KBO( :, 1,38, 8) = (/&
+ & 8.8645E-03_JPRB,1.0501E-02_JPRB,6.1698E-02_JPRB,7.6908E-02_JPRB,8.2883E-02_JPRB,6.7642E-02_JPRB/)  
+KBO( :, 2,38, 8) = (/&
+ & 9.8554E-03_JPRB,1.1441E-02_JPRB,6.7213E-02_JPRB,8.1954E-02_JPRB,8.5931E-02_JPRB,6.8150E-02_JPRB/)  
+KBO( :, 3,38, 8) = (/&
+ & 1.1041E-02_JPRB,1.2540E-02_JPRB,7.3258E-02_JPRB,8.7642E-02_JPRB,8.9506E-02_JPRB,6.8667E-02_JPRB/)  
+KBO( :, 4,38, 8) = (/&
+ & 1.2430E-02_JPRB,1.3817E-02_JPRB,7.9801E-02_JPRB,9.3936E-02_JPRB,9.3782E-02_JPRB,6.9339E-02_JPRB/)  
+KBO( :, 5,38, 8) = (/&
+ & 1.3983E-02_JPRB,1.5235E-02_JPRB,8.6814E-02_JPRB,1.0083E-01_JPRB,9.8742E-02_JPRB,7.0319E-02_JPRB/)  
+KBO( :, 1,39, 8) = (/&
+ & 7.5404E-03_JPRB,9.1874E-03_JPRB,5.3906E-02_JPRB,6.6495E-02_JPRB,7.0902E-02_JPRB,5.6657E-02_JPRB/)  
+KBO( :, 2,39, 8) = (/&
+ & 8.4340E-03_JPRB,1.0061E-02_JPRB,5.9245E-02_JPRB,7.1435E-02_JPRB,7.3979E-02_JPRB,5.7261E-02_JPRB/)  
+KBO( :, 3,39, 8) = (/&
+ & 9.5242E-03_JPRB,1.1089E-02_JPRB,6.5132E-02_JPRB,7.7048E-02_JPRB,7.7636E-02_JPRB,5.7943E-02_JPRB/)  
+KBO( :, 4,39, 8) = (/&
+ & 1.0781E-02_JPRB,1.2259E-02_JPRB,7.1549E-02_JPRB,8.3326E-02_JPRB,8.2004E-02_JPRB,5.8823E-02_JPRB/)  
+KBO( :, 5,39, 8) = (/&
+ & 1.2213E-02_JPRB,1.3570E-02_JPRB,7.8488E-02_JPRB,9.0234E-02_JPRB,8.7139E-02_JPRB,6.0045E-02_JPRB/)  
+KBO( :, 1,40, 8) = (/&
+ & 6.3480E-03_JPRB,7.9841E-03_JPRB,4.6707E-02_JPRB,5.7154E-02_JPRB,6.0478E-02_JPRB,4.7309E-02_JPRB/)  
+KBO( :, 2,40, 8) = (/&
+ & 7.1416E-03_JPRB,8.7876E-03_JPRB,5.1799E-02_JPRB,6.1892E-02_JPRB,6.3504E-02_JPRB,4.7969E-02_JPRB/)  
+KBO( :, 3,40, 8) = (/&
+ & 8.1113E-03_JPRB,9.7274E-03_JPRB,5.7484E-02_JPRB,6.7350E-02_JPRB,6.7140E-02_JPRB,4.8718E-02_JPRB/)  
+KBO( :, 4,40, 8) = (/&
+ & 9.2465E-03_JPRB,1.0801E-02_JPRB,6.3707E-02_JPRB,7.3511E-02_JPRB,7.1497E-02_JPRB,4.9676E-02_JPRB/)  
+KBO( :, 5,40, 8) = (/&
+ & 1.0544E-02_JPRB,1.2001E-02_JPRB,7.0505E-02_JPRB,8.0368E-02_JPRB,7.6674E-02_JPRB,5.0981E-02_JPRB/)  
+KBO( :, 1,41, 8) = (/&
+ & 5.3391E-03_JPRB,6.9383E-03_JPRB,4.0421E-02_JPRB,4.9104E-02_JPRB,5.1567E-02_JPRB,3.9495E-02_JPRB/)  
+KBO( :, 2,41, 8) = (/&
+ & 6.0420E-03_JPRB,7.6785E-03_JPRB,4.5260E-02_JPRB,5.3617E-02_JPRB,5.4523E-02_JPRB,4.0174E-02_JPRB/)  
+KBO( :, 3,41, 8) = (/&
+ & 6.9017E-03_JPRB,8.5389E-03_JPRB,5.0726E-02_JPRB,5.8886E-02_JPRB,5.8106E-02_JPRB,4.0950E-02_JPRB/)  
+KBO( :, 4,41, 8) = (/&
+ & 7.9215E-03_JPRB,9.5281E-03_JPRB,5.6758E-02_JPRB,6.4894E-02_JPRB,6.2425E-02_JPRB,4.1953E-02_JPRB/)  
+KBO( :, 5,41, 8) = (/&
+ & 9.0958E-03_JPRB,1.0632E-02_JPRB,6.3380E-02_JPRB,7.1665E-02_JPRB,6.7575E-02_JPRB,4.3294E-02_JPRB/)  
+KBO( :, 1,42, 8) = (/&
+ & 4.4874E-03_JPRB,6.0277E-03_JPRB,3.4973E-02_JPRB,4.2181E-02_JPRB,4.3972E-02_JPRB,3.2976E-02_JPRB/)  
+KBO( :, 2,42, 8) = (/&
+ & 5.1084E-03_JPRB,6.7117E-03_JPRB,3.9569E-02_JPRB,4.6481E-02_JPRB,4.6838E-02_JPRB,3.3656E-02_JPRB/)  
+KBO( :, 3,42, 8) = (/&
+ & 5.8774E-03_JPRB,7.5092E-03_JPRB,4.4793E-02_JPRB,5.1534E-02_JPRB,5.0349E-02_JPRB,3.4440E-02_JPRB/)  
+KBO( :, 4,42, 8) = (/&
+ & 6.7906E-03_JPRB,8.4227E-03_JPRB,5.0631E-02_JPRB,5.7384E-02_JPRB,5.4620E-02_JPRB,3.5462E-02_JPRB/)  
+KBO( :, 5,42, 8) = (/&
+ & 7.8525E-03_JPRB,9.4467E-03_JPRB,5.7082E-02_JPRB,6.4044E-02_JPRB,5.9718E-02_JPRB,3.6824E-02_JPRB/)  
+KBO( :, 1,43, 8) = (/&
+ & 3.7422E-03_JPRB,5.2033E-03_JPRB,3.0024E-02_JPRB,3.6022E-02_JPRB,3.7358E-02_JPRB,2.7486E-02_JPRB/)  
+KBO( :, 2,43, 8) = (/&
+ & 4.2855E-03_JPRB,5.8316E-03_JPRB,3.4344E-02_JPRB,4.0070E-02_JPRB,4.0089E-02_JPRB,2.8154E-02_JPRB/)  
+KBO( :, 3,43, 8) = (/&
+ & 4.9638E-03_JPRB,6.5666E-03_JPRB,3.9296E-02_JPRB,4.4870E-02_JPRB,4.3472E-02_JPRB,2.8929E-02_JPRB/)  
+KBO( :, 4,43, 8) = (/&
+ & 5.7736E-03_JPRB,7.4071E-03_JPRB,4.4883E-02_JPRB,5.0478E-02_JPRB,4.7614E-02_JPRB,2.9920E-02_JPRB/)  
+KBO( :, 5,43, 8) = (/&
+ & 6.7269E-03_JPRB,8.3547E-03_JPRB,5.1126E-02_JPRB,5.6946E-02_JPRB,5.2603E-02_JPRB,3.1259E-02_JPRB/)  
+KBO( :, 1,44, 8) = (/&
+ & 3.1123E-03_JPRB,4.4787E-03_JPRB,2.5629E-02_JPRB,3.0645E-02_JPRB,3.1662E-02_JPRB,2.2891E-02_JPRB/)  
+KBO( :, 2,44, 8) = (/&
+ & 3.5819E-03_JPRB,5.0510E-03_JPRB,2.9662E-02_JPRB,3.4404E-02_JPRB,3.4213E-02_JPRB,2.3525E-02_JPRB/)  
+KBO( :, 3,44, 8) = (/&
+ & 4.1717E-03_JPRB,5.7219E-03_JPRB,3.4337E-02_JPRB,3.8941E-02_JPRB,3.7437E-02_JPRB,2.4274E-02_JPRB/)  
+KBO( :, 4,44, 8) = (/&
+ & 4.8874E-03_JPRB,6.4997E-03_JPRB,3.9651E-02_JPRB,4.4278E-02_JPRB,4.1431E-02_JPRB,2.5229E-02_JPRB/)  
+KBO( :, 5,44, 8) = (/&
+ & 5.7377E-03_JPRB,7.3726E-03_JPRB,4.5649E-02_JPRB,5.0511E-02_JPRB,4.6265E-02_JPRB,2.6526E-02_JPRB/)  
+KBO( :, 1,45, 8) = (/&
+ & 2.5853E-03_JPRB,3.8513E-03_JPRB,2.1823E-02_JPRB,2.6026E-02_JPRB,2.6804E-02_JPRB,1.9058E-02_JPRB/)  
+KBO( :, 2,45, 8) = (/&
+ & 2.9888E-03_JPRB,4.3719E-03_JPRB,2.5563E-02_JPRB,2.9502E-02_JPRB,2.9182E-02_JPRB,1.9668E-02_JPRB/)  
+KBO( :, 3,45, 8) = (/&
+ & 3.5037E-03_JPRB,4.9832E-03_JPRB,2.9957E-02_JPRB,3.3763E-02_JPRB,3.2213E-02_JPRB,2.0379E-02_JPRB/)  
+KBO( :, 4,45, 8) = (/&
+ & 4.1322E-03_JPRB,5.6995E-03_JPRB,3.5000E-02_JPRB,3.8824E-02_JPRB,3.6032E-02_JPRB,2.1286E-02_JPRB/)  
+KBO( :, 5,45, 8) = (/&
+ & 4.8892E-03_JPRB,6.5060E-03_JPRB,4.0741E-02_JPRB,4.4793E-02_JPRB,4.0699E-02_JPRB,2.2533E-02_JPRB/)  
+KBO( :, 1,46, 8) = (/&
+ & 2.1331E-03_JPRB,3.2909E-03_JPRB,1.8461E-02_JPRB,2.1996E-02_JPRB,2.2623E-02_JPRB,1.5851E-02_JPRB/)  
+KBO( :, 2,46, 8) = (/&
+ & 2.4815E-03_JPRB,3.7686E-03_JPRB,2.1893E-02_JPRB,2.5181E-02_JPRB,2.4805E-02_JPRB,1.6418E-02_JPRB/)  
+KBO( :, 3,46, 8) = (/&
+ & 2.9255E-03_JPRB,4.3224E-03_JPRB,2.5992E-02_JPRB,2.9135E-02_JPRB,2.7620E-02_JPRB,1.7082E-02_JPRB/)  
+KBO( :, 4,46, 8) = (/&
+ & 3.4773E-03_JPRB,4.9794E-03_JPRB,3.0754E-02_JPRB,3.3905E-02_JPRB,3.1233E-02_JPRB,1.7942E-02_JPRB/)  
+KBO( :, 5,46, 8) = (/&
+ & 4.1439E-03_JPRB,5.7240E-03_JPRB,3.6209E-02_JPRB,3.9579E-02_JPRB,3.5705E-02_JPRB,1.9124E-02_JPRB/)  
+KBO( :, 1,47, 8) = (/&
+ & 1.7489E-03_JPRB,2.7917E-03_JPRB,1.5439E-02_JPRB,1.8422E-02_JPRB,1.8978E-02_JPRB,1.3134E-02_JPRB/)  
+KBO( :, 2,47, 8) = (/&
+ & 2.0428E-03_JPRB,3.2234E-03_JPRB,1.8541E-02_JPRB,2.1302E-02_JPRB,2.0952E-02_JPRB,1.3661E-02_JPRB/)  
+KBO( :, 3,47, 8) = (/&
+ & 2.4192E-03_JPRB,3.7223E-03_JPRB,2.2314E-02_JPRB,2.4927E-02_JPRB,2.3525E-02_JPRB,1.4273E-02_JPRB/)  
+KBO( :, 4,47, 8) = (/&
+ & 2.8969E-03_JPRB,4.3171E-03_JPRB,2.6764E-02_JPRB,2.9356E-02_JPRB,2.6874E-02_JPRB,1.5058E-02_JPRB/)  
+KBO( :, 5,47, 8) = (/&
+ & 3.4807E-03_JPRB,5.0006E-03_JPRB,3.1906E-02_JPRB,3.4693E-02_JPRB,3.1094E-02_JPRB,1.6142E-02_JPRB/)  
+KBO( :, 1,48, 8) = (/&
+ & 1.4327E-03_JPRB,2.3618E-03_JPRB,1.2851E-02_JPRB,1.5372E-02_JPRB,1.5885E-02_JPRB,1.0883E-02_JPRB/)  
+KBO( :, 2,48, 8) = (/&
+ & 1.6785E-03_JPRB,2.7495E-03_JPRB,1.5626E-02_JPRB,1.7950E-02_JPRB,1.7654E-02_JPRB,1.1366E-02_JPRB/)  
+KBO( :, 3,48, 8) = (/&
+ & 1.9967E-03_JPRB,3.1986E-03_JPRB,1.9069E-02_JPRB,2.1252E-02_JPRB,1.9987E-02_JPRB,1.1922E-02_JPRB/)  
+KBO( :, 4,48, 8) = (/&
+ & 2.4067E-03_JPRB,3.7350E-03_JPRB,2.3203E-02_JPRB,2.5339E-02_JPRB,2.3066E-02_JPRB,1.2640E-02_JPRB/)  
+KBO( :, 5,48, 8) = (/&
+ & 2.9156E-03_JPRB,4.3597E-03_JPRB,2.8035E-02_JPRB,3.0335E-02_JPRB,2.7010E-02_JPRB,1.3635E-02_JPRB/)  
+KBO( :, 1,49, 8) = (/&
+ & 1.1689E-03_JPRB,1.9883E-03_JPRB,1.0644E-02_JPRB,1.2774E-02_JPRB,1.3257E-02_JPRB,9.0102E-03_JPRB/)  
+KBO( :, 2,49, 8) = (/&
+ & 1.3778E-03_JPRB,2.3380E-03_JPRB,1.3100E-02_JPRB,1.5054E-02_JPRB,1.4830E-02_JPRB,9.4528E-03_JPRB/)  
+KBO( :, 3,49, 8) = (/&
+ & 1.6437E-03_JPRB,2.7417E-03_JPRB,1.6213E-02_JPRB,1.8042E-02_JPRB,1.6928E-02_JPRB,9.9612E-03_JPRB/)  
+KBO( :, 4,49, 8) = (/&
+ & 1.9940E-03_JPRB,3.2236E-03_JPRB,2.0024E-02_JPRB,2.1800E-02_JPRB,1.9739E-02_JPRB,1.0620E-02_JPRB/)  
+KBO( :, 5,49, 8) = (/&
+ & 2.4346E-03_JPRB,3.7942E-03_JPRB,2.4548E-02_JPRB,2.6440E-02_JPRB,2.3396E-02_JPRB,1.1534E-02_JPRB/)  
+KBO( :, 1,50, 8) = (/&
+ & 9.5607E-04_JPRB,1.6753E-03_JPRB,8.8167E-03_JPRB,1.0612E-02_JPRB,1.1052E-02_JPRB,7.4373E-03_JPRB/)  
+KBO( :, 2,50, 8) = (/&
+ & 1.1316E-03_JPRB,1.9897E-03_JPRB,1.0983E-02_JPRB,1.2621E-02_JPRB,1.2456E-02_JPRB,7.8368E-03_JPRB/)  
+KBO( :, 3,50, 8) = (/&
+ & 1.3565E-03_JPRB,2.3537E-03_JPRB,1.3790E-02_JPRB,1.5320E-02_JPRB,1.4346E-02_JPRB,8.2918E-03_JPRB/)  
+KBO( :, 4,50, 8) = (/&
+ & 1.6563E-03_JPRB,2.7888E-03_JPRB,1.7295E-02_JPRB,1.8780E-02_JPRB,1.6915E-02_JPRB,8.8832E-03_JPRB/)  
+KBO( :, 5,50, 8) = (/&
+ & 2.0379E-03_JPRB,3.3085E-03_JPRB,2.1524E-02_JPRB,2.3092E-02_JPRB,2.0305E-02_JPRB,9.7144E-03_JPRB/)  
+KBO( :, 1,51, 8) = (/&
+ & 7.8250E-04_JPRB,1.4092E-03_JPRB,7.2896E-03_JPRB,8.7965E-03_JPRB,9.1930E-03_JPRB,6.1252E-03_JPRB/)  
+KBO( :, 2,51, 8) = (/&
+ & 9.2963E-04_JPRB,1.6917E-03_JPRB,9.1856E-03_JPRB,1.0556E-02_JPRB,1.0442E-02_JPRB,6.4818E-03_JPRB/)  
+KBO( :, 3,51, 8) = (/&
+ & 1.1199E-03_JPRB,2.0205E-03_JPRB,1.1706E-02_JPRB,1.2981E-02_JPRB,1.2146E-02_JPRB,6.8899E-03_JPRB/)  
+KBO( :, 4,51, 8) = (/&
+ & 1.3754E-03_JPRB,2.4116E-03_JPRB,1.4910E-02_JPRB,1.6157E-02_JPRB,1.4484E-02_JPRB,7.4151E-03_JPRB/)  
+KBO( :, 5,51, 8) = (/&
+ & 1.7057E-03_JPRB,2.8850E-03_JPRB,1.8848E-02_JPRB,2.0162E-02_JPRB,1.7617E-02_JPRB,8.1571E-03_JPRB/)  
+KBO( :, 1,52, 8) = (/&
+ & 6.3740E-04_JPRB,1.1795E-03_JPRB,6.0058E-03_JPRB,7.2694E-03_JPRB,7.6231E-03_JPRB,5.0413E-03_JPRB/)  
+KBO( :, 2,52, 8) = (/&
+ & 7.6292E-04_JPRB,1.4345E-03_JPRB,7.6473E-03_JPRB,8.7976E-03_JPRB,8.7274E-03_JPRB,5.3621E-03_JPRB/)  
+KBO( :, 3,52, 8) = (/&
+ & 9.2276E-04_JPRB,1.7301E-03_JPRB,9.8884E-03_JPRB,1.0949E-02_JPRB,1.0250E-02_JPRB,5.7262E-03_JPRB/)  
+KBO( :, 4,52, 8) = (/&
+ & 1.1390E-03_JPRB,2.0817E-03_JPRB,1.2797E-02_JPRB,1.3842E-02_JPRB,1.2367E-02_JPRB,6.1911E-03_JPRB/)  
+KBO( :, 5,52, 8) = (/&
+ & 1.4240E-03_JPRB,2.5099E-03_JPRB,1.6438E-02_JPRB,1.7549E-02_JPRB,1.5248E-02_JPRB,6.8528E-03_JPRB/)  
+KBO( :, 1,53, 8) = (/&
+ & 5.1732E-04_JPRB,9.8178E-04_JPRB,4.9291E-03_JPRB,5.9861E-03_JPRB,6.3013E-03_JPRB,4.1478E-03_JPRB/)  
+KBO( :, 2,53, 8) = (/&
+ & 6.2319E-04_JPRB,1.2101E-03_JPRB,6.3342E-03_JPRB,7.2982E-03_JPRB,7.2668E-03_JPRB,4.4355E-03_JPRB/)  
+KBO( :, 3,53, 8) = (/&
+ & 7.5896E-04_JPRB,1.4772E-03_JPRB,8.3073E-03_JPRB,9.1884E-03_JPRB,8.6166E-03_JPRB,4.7615E-03_JPRB/)  
+KBO( :, 4,53, 8) = (/&
+ & 9.4032E-04_JPRB,1.7923E-03_JPRB,1.0926E-02_JPRB,1.1795E-02_JPRB,1.0522E-02_JPRB,5.1760E-03_JPRB/)  
+KBO( :, 5,53, 8) = (/&
+ & 1.1855E-03_JPRB,2.1779E-03_JPRB,1.4267E-02_JPRB,1.5211E-02_JPRB,1.3151E-02_JPRB,5.7675E-03_JPRB/)  
+KBO( :, 1,54, 8) = (/&
+ & 4.2099E-04_JPRB,8.1896E-04_JPRB,4.0587E-03_JPRB,4.9414E-03_JPRB,5.2122E-03_JPRB,3.3954E-03_JPRB/)  
+KBO( :, 2,54, 8) = (/&
+ & 5.1072E-04_JPRB,1.0232E-03_JPRB,5.2659E-03_JPRB,6.0692E-03_JPRB,6.0577E-03_JPRB,3.6461E-03_JPRB/)  
+KBO( :, 3,54, 8) = (/&
+ & 6.2630E-04_JPRB,1.2640E-03_JPRB,7.0010E-03_JPRB,7.7316E-03_JPRB,7.2545E-03_JPRB,3.9269E-03_JPRB/)  
+KBO( :, 4,54, 8) = (/&
+ & 7.8065E-04_JPRB,1.5498E-03_JPRB,9.3602E-03_JPRB,1.0080E-02_JPRB,8.9779E-03_JPRB,4.2798E-03_JPRB/)  
+KBO( :, 5,54, 8) = (/&
+ & 9.9133E-04_JPRB,1.8976E-03_JPRB,1.2427E-02_JPRB,1.3231E-02_JPRB,1.1388E-02_JPRB,4.7881E-03_JPRB/)  
+KBO( :, 1,55, 8) = (/&
+ & 3.4264E-04_JPRB,6.8196E-04_JPRB,3.3418E-03_JPRB,4.0786E-03_JPRB,4.3077E-03_JPRB,2.7691E-03_JPRB/)  
+KBO( :, 2,55, 8) = (/&
+ & 4.1827E-04_JPRB,8.6407E-04_JPRB,4.3772E-03_JPRB,5.0438E-03_JPRB,5.0439E-03_JPRB,2.9836E-03_JPRB/)  
+KBO( :, 3,55, 8) = (/&
+ & 5.1651E-04_JPRB,1.0809E-03_JPRB,5.8977E-03_JPRB,6.5003E-03_JPRB,6.1007E-03_JPRB,3.2208E-03_JPRB/)  
+KBO( :, 4,55, 8) = (/&
+ & 6.4755E-04_JPRB,1.3394E-03_JPRB,8.0143E-03_JPRB,8.6084E-03_JPRB,7.6585E-03_JPRB,3.5143E-03_JPRB/)  
+KBO( :, 5,55, 8) = (/&
+ & 8.2913E-04_JPRB,1.6553E-03_JPRB,1.0821E-02_JPRB,1.1504E-02_JPRB,9.8668E-03_JPRB,3.9383E-03_JPRB/)  
+KBO( :, 1,56, 8) = (/&
+ & 2.7803E-04_JPRB,5.6487E-04_JPRB,2.7420E-03_JPRB,3.3568E-03_JPRB,3.5496E-03_JPRB,2.2543E-03_JPRB/)  
+KBO( :, 2,56, 8) = (/&
+ & 3.4121E-04_JPRB,7.2622E-04_JPRB,3.6228E-03_JPRB,4.1781E-03_JPRB,4.1862E-03_JPRB,2.4382E-03_JPRB/)  
+KBO( :, 3,56, 8) = (/&
+ & 4.2449E-04_JPRB,9.2149E-04_JPRB,4.9469E-03_JPRB,5.4413E-03_JPRB,5.1116E-03_JPRB,2.6387E-03_JPRB/)  
+KBO( :, 4,56, 8) = (/&
+ & 5.3591E-04_JPRB,1.1547E-03_JPRB,6.8316E-03_JPRB,7.3206E-03_JPRB,6.5078E-03_JPRB,2.8830E-03_JPRB/)  
+KBO( :, 5,56, 8) = (/&
+ & 6.9206E-04_JPRB,1.4413E-03_JPRB,9.3865E-03_JPRB,9.9613E-03_JPRB,8.5223E-03_JPRB,3.2344E-03_JPRB/)  
+KBO( :, 1,57, 8) = (/&
+ & 2.2504E-04_JPRB,4.6500E-04_JPRB,2.2403E-03_JPRB,2.7543E-03_JPRB,2.9166E-03_JPRB,1.8323E-03_JPRB/)  
+KBO( :, 2,57, 8) = (/&
+ & 2.7798E-04_JPRB,6.0783E-04_JPRB,2.9851E-03_JPRB,3.4491E-03_JPRB,3.4628E-03_JPRB,1.9897E-03_JPRB/)  
+KBO( :, 3,57, 8) = (/&
+ & 3.4753E-04_JPRB,7.8225E-04_JPRB,4.1312E-03_JPRB,4.5352E-03_JPRB,4.2657E-03_JPRB,2.1593E-03_JPRB/)  
+KBO( :, 4,57, 8) = (/&
+ & 4.4202E-04_JPRB,9.9272E-04_JPRB,5.7973E-03_JPRB,6.1951E-03_JPRB,5.5060E-03_JPRB,2.3628E-03_JPRB/)  
+KBO( :, 5,57, 8) = (/&
+ & 5.7558E-04_JPRB,1.2517E-03_JPRB,8.1058E-03_JPRB,8.5872E-03_JPRB,7.3360E-03_JPRB,2.6522E-03_JPRB/)  
+KBO( :, 1,58, 8) = (/&
+ & 1.8228E-04_JPRB,3.8208E-04_JPRB,1.8308E-03_JPRB,2.2613E-03_JPRB,2.3970E-03_JPRB,1.4881E-03_JPRB/)  
+KBO( :, 2,58, 8) = (/&
+ & 2.2635E-04_JPRB,5.0773E-04_JPRB,2.4625E-03_JPRB,2.8501E-03_JPRB,2.8647E-03_JPRB,1.6219E-03_JPRB/)  
+KBO( :, 3,58, 8) = (/&
+ & 2.8516E-04_JPRB,6.6412E-04_JPRB,3.4519E-03_JPRB,3.7830E-03_JPRB,3.5592E-03_JPRB,1.7642E-03_JPRB/)  
+KBO( :, 4,58, 8) = (/&
+ & 3.6538E-04_JPRB,8.5444E-04_JPRB,4.9230E-03_JPRB,5.2451E-03_JPRB,4.6580E-03_JPRB,1.9336E-03_JPRB/)  
+KBO( :, 5,58, 8) = (/&
+ & 4.7911E-04_JPRB,1.0886E-03_JPRB,7.0070E-03_JPRB,7.4069E-03_JPRB,6.3208E-03_JPRB,2.1715E-03_JPRB/)  
+KBO( :, 1,59, 8) = (/&
+ & 1.5316E-04_JPRB,3.3009E-04_JPRB,1.5697E-03_JPRB,1.9267E-03_JPRB,2.0287E-03_JPRB,1.2203E-03_JPRB/)  
+KBO( :, 2,59, 8) = (/&
+ & 1.9174E-04_JPRB,4.4479E-04_JPRB,2.1483E-03_JPRB,2.4646E-03_JPRB,2.4521E-03_JPRB,1.3301E-03_JPRB/)  
+KBO( :, 3,59, 8) = (/&
+ & 2.4392E-04_JPRB,5.8967E-04_JPRB,3.0690E-03_JPRB,3.3341E-03_JPRB,3.1017E-03_JPRB,1.4481E-03_JPRB/)  
+KBO( :, 4,59, 8) = (/&
+ & 3.1594E-04_JPRB,7.6769E-04_JPRB,4.4545E-03_JPRB,4.7180E-03_JPRB,4.1523E-03_JPRB,1.5884E-03_JPRB/)  
+KBO( :, 5,59, 8) = (/&
+ & 4.1934E-04_JPRB,9.8859E-04_JPRB,6.4430E-03_JPRB,6.7951E-03_JPRB,5.7622E-03_JPRB,1.7867E-03_JPRB/)  
+KBO( :, 1,13, 9) = (/&
+ & 2.1640E+00_JPRB,2.1630E+00_JPRB,1.9037E+00_JPRB,1.9914E+00_JPRB,2.1507E+00_JPRB,2.1924E+00_JPRB/)  
+KBO( :, 2,13, 9) = (/&
+ & 2.1780E+00_JPRB,2.1770E+00_JPRB,1.9043E+00_JPRB,1.9692E+00_JPRB,2.1183E+00_JPRB,2.1702E+00_JPRB/)  
+KBO( :, 3,13, 9) = (/&
+ & 2.1863E+00_JPRB,2.1853E+00_JPRB,1.9004E+00_JPRB,1.9443E+00_JPRB,2.0822E+00_JPRB,2.1533E+00_JPRB/)  
+KBO( :, 4,13, 9) = (/&
+ & 2.1908E+00_JPRB,2.1898E+00_JPRB,1.8939E+00_JPRB,1.9183E+00_JPRB,2.0440E+00_JPRB,2.1390E+00_JPRB/)  
+KBO( :, 5,13, 9) = (/&
+ & 2.1905E+00_JPRB,2.1895E+00_JPRB,1.8836E+00_JPRB,1.8902E+00_JPRB,2.0042E+00_JPRB,2.1255E+00_JPRB/)  
+KBO( :, 1,14, 9) = (/&
+ & 1.9847E+00_JPRB,1.9838E+00_JPRB,1.8303E+00_JPRB,2.0353E+00_JPRB,2.2590E+00_JPRB,2.3088E+00_JPRB/)  
+KBO( :, 2,14, 9) = (/&
+ & 1.9934E+00_JPRB,1.9925E+00_JPRB,1.8250E+00_JPRB,2.0091E+00_JPRB,2.2231E+00_JPRB,2.2801E+00_JPRB/)  
+KBO( :, 3,14, 9) = (/&
+ & 1.9976E+00_JPRB,1.9967E+00_JPRB,1.8170E+00_JPRB,1.9802E+00_JPRB,2.1840E+00_JPRB,2.2566E+00_JPRB/)  
+KBO( :, 4,14, 9) = (/&
+ & 1.9974E+00_JPRB,1.9965E+00_JPRB,1.8053E+00_JPRB,1.9495E+00_JPRB,2.1431E+00_JPRB,2.2372E+00_JPRB/)  
+KBO( :, 5,14, 9) = (/&
+ & 1.9939E+00_JPRB,1.9930E+00_JPRB,1.7904E+00_JPRB,1.9177E+00_JPRB,2.1004E+00_JPRB,2.2192E+00_JPRB/)  
+KBO( :, 1,15, 9) = (/&
+ & 1.7889E+00_JPRB,1.7882E+00_JPRB,1.7547E+00_JPRB,2.0779E+00_JPRB,2.3573E+00_JPRB,2.4290E+00_JPRB/)  
+KBO( :, 2,15, 9) = (/&
+ & 1.7928E+00_JPRB,1.7920E+00_JPRB,1.7452E+00_JPRB,2.0486E+00_JPRB,2.3189E+00_JPRB,2.4037E+00_JPRB/)  
+KBO( :, 3,15, 9) = (/&
+ & 1.7928E+00_JPRB,1.7920E+00_JPRB,1.7330E+00_JPRB,2.0171E+00_JPRB,2.2790E+00_JPRB,2.3775E+00_JPRB/)  
+KBO( :, 4,15, 9) = (/&
+ & 1.7917E+00_JPRB,1.7909E+00_JPRB,1.7182E+00_JPRB,1.9838E+00_JPRB,2.2366E+00_JPRB,2.3528E+00_JPRB/)  
+KBO( :, 5,15, 9) = (/&
+ & 1.7907E+00_JPRB,1.7899E+00_JPRB,1.7010E+00_JPRB,1.9495E+00_JPRB,2.1934E+00_JPRB,2.3317E+00_JPRB/)  
+KBO( :, 1,16, 9) = (/&
+ & 1.5869E+00_JPRB,1.5863E+00_JPRB,1.6883E+00_JPRB,2.1193E+00_JPRB,2.4455E+00_JPRB,2.5492E+00_JPRB/)  
+KBO( :, 2,16, 9) = (/&
+ & 1.5874E+00_JPRB,1.5868E+00_JPRB,1.6750E+00_JPRB,2.0881E+00_JPRB,2.4087E+00_JPRB,2.5259E+00_JPRB/)  
+KBO( :, 3,16, 9) = (/&
+ & 1.5879E+00_JPRB,1.5873E+00_JPRB,1.6596E+00_JPRB,2.0559E+00_JPRB,2.3694E+00_JPRB,2.5006E+00_JPRB/)  
+KBO( :, 4,16, 9) = (/&
+ & 1.5893E+00_JPRB,1.5886E+00_JPRB,1.6420E+00_JPRB,2.0221E+00_JPRB,2.3275E+00_JPRB,2.4758E+00_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART24',1,ZHOOK_HANDLE)
+END SUBROUTINE PART24
+
+
+SUBROUTINE PART25
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART25',0,ZHOOK_HANDLE)
+
+
+KBO( :, 5,16, 9) = (/&
+ & 1.5915E+00_JPRB,1.5908E+00_JPRB,1.6225E+00_JPRB,1.9860E+00_JPRB,2.2837E+00_JPRB,2.4531E+00_JPRB/)  
+KBO( :, 1,17, 9) = (/&
+ & 1.3911E+00_JPRB,1.3906E+00_JPRB,1.6357E+00_JPRB,2.1551E+00_JPRB,2.5270E+00_JPRB,2.6550E+00_JPRB/)  
+KBO( :, 2,17, 9) = (/&
+ & 1.3924E+00_JPRB,1.3919E+00_JPRB,1.6197E+00_JPRB,2.1251E+00_JPRB,2.4914E+00_JPRB,2.6342E+00_JPRB/)  
+KBO( :, 3,17, 9) = (/&
+ & 1.3948E+00_JPRB,1.3943E+00_JPRB,1.6016E+00_JPRB,2.0927E+00_JPRB,2.4529E+00_JPRB,2.6104E+00_JPRB/)  
+KBO( :, 4,17, 9) = (/&
+ & 1.4001E+00_JPRB,1.3995E+00_JPRB,1.5824E+00_JPRB,2.0573E+00_JPRB,2.4118E+00_JPRB,2.5862E+00_JPRB/)  
+KBO( :, 5,17, 9) = (/&
+ & 1.4089E+00_JPRB,1.4083E+00_JPRB,1.5632E+00_JPRB,2.0202E+00_JPRB,2.3685E+00_JPRB,2.5625E+00_JPRB/)  
+KBO( :, 1,18, 9) = (/&
+ & 1.2109E+00_JPRB,1.2104E+00_JPRB,1.5964E+00_JPRB,2.1814E+00_JPRB,2.5952E+00_JPRB,2.7389E+00_JPRB/)  
+KBO( :, 2,18, 9) = (/&
+ & 1.2140E+00_JPRB,1.2136E+00_JPRB,1.5784E+00_JPRB,2.1525E+00_JPRB,2.5616E+00_JPRB,2.7209E+00_JPRB/)  
+KBO( :, 3,18, 9) = (/&
+ & 1.2208E+00_JPRB,1.2204E+00_JPRB,1.5595E+00_JPRB,2.1201E+00_JPRB,2.5247E+00_JPRB,2.7005E+00_JPRB/)  
+KBO( :, 4,18, 9) = (/&
+ & 1.2322E+00_JPRB,1.2318E+00_JPRB,1.5407E+00_JPRB,2.0849E+00_JPRB,2.4850E+00_JPRB,2.6784E+00_JPRB/)  
+KBO( :, 5,18, 9) = (/&
+ & 1.2477E+00_JPRB,1.2472E+00_JPRB,1.5230E+00_JPRB,2.0478E+00_JPRB,2.4440E+00_JPRB,2.6553E+00_JPRB/)  
+KBO( :, 1,19, 9) = (/&
+ & 1.0487E+00_JPRB,1.0484E+00_JPRB,1.5649E+00_JPRB,2.1968E+00_JPRB,2.6409E+00_JPRB,2.7963E+00_JPRB/)  
+KBO( :, 2,19, 9) = (/&
+ & 1.0560E+00_JPRB,1.0557E+00_JPRB,1.5474E+00_JPRB,2.1687E+00_JPRB,2.6108E+00_JPRB,2.7829E+00_JPRB/)  
+KBO( :, 3,19, 9) = (/&
+ & 1.0685E+00_JPRB,1.0682E+00_JPRB,1.5292E+00_JPRB,2.1368E+00_JPRB,2.5782E+00_JPRB,2.7649E+00_JPRB/)  
+KBO( :, 4,19, 9) = (/&
+ & 1.0859E+00_JPRB,1.0855E+00_JPRB,1.5121E+00_JPRB,2.1019E+00_JPRB,2.5438E+00_JPRB,2.7445E+00_JPRB/)  
+KBO( :, 5,19, 9) = (/&
+ & 1.1065E+00_JPRB,1.1062E+00_JPRB,1.4975E+00_JPRB,2.0661E+00_JPRB,2.5062E+00_JPRB,2.7222E+00_JPRB/)  
+KBO( :, 1,20, 9) = (/&
+ & 9.0827E-01_JPRB,9.0805E-01_JPRB,1.5341E+00_JPRB,2.1956E+00_JPRB,2.6632E+00_JPRB,2.8242E+00_JPRB/)  
+KBO( :, 2,20, 9) = (/&
+ & 9.2064E-01_JPRB,9.2040E-01_JPRB,1.5172E+00_JPRB,2.1687E+00_JPRB,2.6400E+00_JPRB,2.8145E+00_JPRB/)  
+KBO( :, 3,20, 9) = (/&
+ & 9.3844E-01_JPRB,9.3819E-01_JPRB,1.5016E+00_JPRB,2.1388E+00_JPRB,2.6129E+00_JPRB,2.8000E+00_JPRB/)  
+KBO( :, 4,20, 9) = (/&
+ & 9.6013E-01_JPRB,9.5986E-01_JPRB,1.4885E+00_JPRB,2.1071E+00_JPRB,2.5814E+00_JPRB,2.7828E+00_JPRB/)  
+KBO( :, 5,20, 9) = (/&
+ & 9.8430E-01_JPRB,9.8400E-01_JPRB,1.4771E+00_JPRB,2.0741E+00_JPRB,2.5454E+00_JPRB,2.7636E+00_JPRB/)  
+KBO( :, 1,21, 9) = (/&
+ & 7.8993E-01_JPRB,7.8978E-01_JPRB,1.4986E+00_JPRB,2.1733E+00_JPRB,2.6623E+00_JPRB,2.8179E+00_JPRB/)  
+KBO( :, 2,21, 9) = (/&
+ & 8.0667E-01_JPRB,8.0650E-01_JPRB,1.4848E+00_JPRB,2.1496E+00_JPRB,2.6446E+00_JPRB,2.8129E+00_JPRB/)  
+KBO( :, 3,21, 9) = (/&
+ & 8.2802E-01_JPRB,8.2784E-01_JPRB,1.4733E+00_JPRB,2.1235E+00_JPRB,2.6208E+00_JPRB,2.8029E+00_JPRB/)  
+KBO( :, 4,21, 9) = (/&
+ & 8.5232E-01_JPRB,8.5211E-01_JPRB,1.4639E+00_JPRB,2.0960E+00_JPRB,2.5913E+00_JPRB,2.7898E+00_JPRB/)  
+KBO( :, 5,21, 9) = (/&
+ & 8.7899E-01_JPRB,8.7876E-01_JPRB,1.4566E+00_JPRB,2.0681E+00_JPRB,2.5576E+00_JPRB,2.7727E+00_JPRB/)  
+KBO( :, 1,22, 9) = (/&
+ & 6.9217E-01_JPRB,6.9207E-01_JPRB,1.4567E+00_JPRB,2.1294E+00_JPRB,2.6320E+00_JPRB,2.7789E+00_JPRB/)  
+KBO( :, 2,22, 9) = (/&
+ & 7.1220E-01_JPRB,7.1209E-01_JPRB,1.4478E+00_JPRB,2.1106E+00_JPRB,2.6173E+00_JPRB,2.7783E+00_JPRB/)  
+KBO( :, 3,22, 9) = (/&
+ & 7.3566E-01_JPRB,7.3553E-01_JPRB,1.4413E+00_JPRB,2.0897E+00_JPRB,2.5963E+00_JPRB,2.7722E+00_JPRB/)  
+KBO( :, 4,22, 9) = (/&
+ & 7.6128E-01_JPRB,7.6113E-01_JPRB,1.4363E+00_JPRB,2.0682E+00_JPRB,2.5703E+00_JPRB,2.7624E+00_JPRB/)  
+KBO( :, 5,22, 9) = (/&
+ & 7.8574E-01_JPRB,7.8555E-01_JPRB,1.4327E+00_JPRB,2.0477E+00_JPRB,2.5401E+00_JPRB,2.7492E+00_JPRB/)  
+KBO( :, 1,23, 9) = (/&
+ & 6.1008E-01_JPRB,6.1003E-01_JPRB,1.4083E+00_JPRB,2.0681E+00_JPRB,2.5705E+00_JPRB,2.7083E+00_JPRB/)  
+KBO( :, 2,23, 9) = (/&
+ & 6.3198E-01_JPRB,6.3192E-01_JPRB,1.4051E+00_JPRB,2.0548E+00_JPRB,2.5593E+00_JPRB,2.7117E+00_JPRB/)  
+KBO( :, 3,23, 9) = (/&
+ & 6.5543E-01_JPRB,6.5535E-01_JPRB,1.4040E+00_JPRB,2.0403E+00_JPRB,2.5427E+00_JPRB,2.7102E+00_JPRB/)  
+KBO( :, 4,23, 9) = (/&
+ & 6.7837E-01_JPRB,6.7826E-01_JPRB,1.4041E+00_JPRB,2.0263E+00_JPRB,2.5213E+00_JPRB,2.7060E+00_JPRB/)  
+KBO( :, 5,23, 9) = (/&
+ & 7.0030E-01_JPRB,7.0016E-01_JPRB,1.4050E+00_JPRB,2.0127E+00_JPRB,2.4961E+00_JPRB,2.6994E+00_JPRB/)  
+KBO( :, 1,24, 9) = (/&
+ & 5.4033E-01_JPRB,5.4033E-01_JPRB,1.3546E+00_JPRB,1.9899E+00_JPRB,2.4822E+00_JPRB,2.6084E+00_JPRB/)  
+KBO( :, 2,24, 9) = (/&
+ & 5.6139E-01_JPRB,5.6138E-01_JPRB,1.3577E+00_JPRB,1.9836E+00_JPRB,2.4759E+00_JPRB,2.6174E+00_JPRB/)  
+KBO( :, 3,24, 9) = (/&
+ & 5.8245E-01_JPRB,5.8242E-01_JPRB,1.3618E+00_JPRB,1.9770E+00_JPRB,2.4649E+00_JPRB,2.6232E+00_JPRB/)  
+KBO( :, 4,24, 9) = (/&
+ & 6.0241E-01_JPRB,6.0233E-01_JPRB,1.3664E+00_JPRB,1.9707E+00_JPRB,2.4498E+00_JPRB,2.6268E+00_JPRB/)  
+KBO( :, 5,24, 9) = (/&
+ & 6.2165E-01_JPRB,6.2155E-01_JPRB,1.3699E+00_JPRB,1.9646E+00_JPRB,2.4321E+00_JPRB,2.6277E+00_JPRB/)  
+KBO( :, 1,25, 9) = (/&
+ & 4.7832E-01_JPRB,4.7836E-01_JPRB,1.2974E+00_JPRB,1.9000E+00_JPRB,2.3730E+00_JPRB,2.4875E+00_JPRB/)  
+KBO( :, 2,25, 9) = (/&
+ & 4.9733E-01_JPRB,4.9735E-01_JPRB,1.3057E+00_JPRB,1.9014E+00_JPRB,2.3734E+00_JPRB,2.5038E+00_JPRB/)  
+KBO( :, 3,25, 9) = (/&
+ & 5.1523E-01_JPRB,5.1522E-01_JPRB,1.3146E+00_JPRB,1.9031E+00_JPRB,2.3699E+00_JPRB,2.5183E+00_JPRB/)  
+KBO( :, 4,25, 9) = (/&
+ & 5.3256E-01_JPRB,5.3251E-01_JPRB,1.3228E+00_JPRB,1.9051E+00_JPRB,2.3637E+00_JPRB,2.5320E+00_JPRB/)  
+KBO( :, 5,25, 9) = (/&
+ & 5.4968E-01_JPRB,5.4961E-01_JPRB,1.3292E+00_JPRB,1.9068E+00_JPRB,2.3561E+00_JPRB,2.5438E+00_JPRB/)  
+KBO( :, 1,26, 9) = (/&
+ & 4.2201E-01_JPRB,4.2207E-01_JPRB,1.2364E+00_JPRB,1.8029E+00_JPRB,2.2507E+00_JPRB,2.3533E+00_JPRB/)  
+KBO( :, 2,26, 9) = (/&
+ & 4.3804E-01_JPRB,4.3809E-01_JPRB,1.2498E+00_JPRB,1.8126E+00_JPRB,2.2597E+00_JPRB,2.3788E+00_JPRB/)  
+KBO( :, 3,26, 9) = (/&
+ & 4.5354E-01_JPRB,4.5356E-01_JPRB,1.2632E+00_JPRB,1.8229E+00_JPRB,2.2657E+00_JPRB,2.4047E+00_JPRB/)  
+KBO( :, 4,26, 9) = (/&
+ & 4.6906E-01_JPRB,4.6904E-01_JPRB,1.2746E+00_JPRB,1.8333E+00_JPRB,2.2706E+00_JPRB,2.4304E+00_JPRB/)  
+KBO( :, 5,26, 9) = (/&
+ & 4.8497E-01_JPRB,4.8494E-01_JPRB,1.2839E+00_JPRB,1.8429E+00_JPRB,2.2744E+00_JPRB,2.4544E+00_JPRB/)  
+KBO( :, 1,27, 9) = (/&
+ & 3.7036E-01_JPRB,3.7045E-01_JPRB,1.1734E+00_JPRB,1.7029E+00_JPRB,2.1233E+00_JPRB,2.2152E+00_JPRB/)  
+KBO( :, 2,27, 9) = (/&
+ & 3.8398E-01_JPRB,3.8406E-01_JPRB,1.1918E+00_JPRB,1.7218E+00_JPRB,2.1420E+00_JPRB,2.2527E+00_JPRB/)  
+KBO( :, 3,27, 9) = (/&
+ & 3.9787E-01_JPRB,3.9791E-01_JPRB,1.2085E+00_JPRB,1.7412E+00_JPRB,2.1596E+00_JPRB,2.2917E+00_JPRB/)  
+KBO( :, 4,27, 9) = (/&
+ & 4.1227E-01_JPRB,4.1229E-01_JPRB,1.2235E+00_JPRB,1.7604E+00_JPRB,2.1764E+00_JPRB,2.3307E+00_JPRB/)  
+KBO( :, 5,27, 9) = (/&
+ & 4.2780E-01_JPRB,4.2779E-01_JPRB,1.2358E+00_JPRB,1.7785E+00_JPRB,2.1924E+00_JPRB,2.3678E+00_JPRB/)  
+KBO( :, 1,28, 9) = (/&
+ & 3.2384E-01_JPRB,3.2396E-01_JPRB,1.1111E+00_JPRB,1.6050E+00_JPRB,1.9966E+00_JPRB,2.0814E+00_JPRB/)  
+KBO( :, 2,28, 9) = (/&
+ & 3.3603E-01_JPRB,3.3613E-01_JPRB,1.1332E+00_JPRB,1.6332E+00_JPRB,2.0271E+00_JPRB,2.1324E+00_JPRB/)  
+KBO( :, 3,28, 9) = (/&
+ & 3.4881E-01_JPRB,3.4887E-01_JPRB,1.1536E+00_JPRB,1.6622E+00_JPRB,2.0573E+00_JPRB,2.1850E+00_JPRB/)  
+KBO( :, 4,28, 9) = (/&
+ & 3.6268E-01_JPRB,3.6273E-01_JPRB,1.1720E+00_JPRB,1.6900E+00_JPRB,2.0870E+00_JPRB,2.2373E+00_JPRB/)  
+KBO( :, 5,28, 9) = (/&
+ & 3.7804E-01_JPRB,3.7806E-01_JPRB,1.1877E+00_JPRB,1.7173E+00_JPRB,2.1162E+00_JPRB,2.2869E+00_JPRB/)  
+KBO( :, 1,29, 9) = (/&
+ & 2.8312E-01_JPRB,2.8326E-01_JPRB,1.0508E+00_JPRB,1.5130E+00_JPRB,1.8780E+00_JPRB,1.9589E+00_JPRB/)  
+KBO( :, 2,29, 9) = (/&
+ & 2.9434E-01_JPRB,2.9445E-01_JPRB,1.0766E+00_JPRB,1.5511E+00_JPRB,1.9210E+00_JPRB,2.0243E+00_JPRB/)  
+KBO( :, 3,29, 9) = (/&
+ & 3.0652E-01_JPRB,3.0661E-01_JPRB,1.1009E+00_JPRB,1.5889E+00_JPRB,1.9642E+00_JPRB,2.0907E+00_JPRB/)  
+KBO( :, 4,29, 9) = (/&
+ & 3.2016E-01_JPRB,3.2023E-01_JPRB,1.1226E+00_JPRB,1.6261E+00_JPRB,2.0071E+00_JPRB,2.1548E+00_JPRB/)  
+KBO( :, 5,29, 9) = (/&
+ & 3.3571E-01_JPRB,3.3577E-01_JPRB,1.1421E+00_JPRB,1.6615E+00_JPRB,2.0485E+00_JPRB,2.2151E+00_JPRB/)  
+KBO( :, 1,30, 9) = (/&
+ & 2.4766E-01_JPRB,2.4782E-01_JPRB,9.9433E-01_JPRB,1.4304E+00_JPRB,1.7715E+00_JPRB,1.8514E+00_JPRB/)  
+KBO( :, 2,30, 9) = (/&
+ & 2.5837E-01_JPRB,2.5850E-01_JPRB,1.0241E+00_JPRB,1.4775E+00_JPRB,1.8271E+00_JPRB,1.9302E+00_JPRB/)  
+KBO( :, 3,30, 9) = (/&
+ & 2.7045E-01_JPRB,2.7056E-01_JPRB,1.0517E+00_JPRB,1.5244E+00_JPRB,1.8833E+00_JPRB,2.0084E+00_JPRB/)  
+KBO( :, 4,30, 9) = (/&
+ & 2.8427E-01_JPRB,2.8436E-01_JPRB,1.0773E+00_JPRB,1.5701E+00_JPRB,1.9380E+00_JPRB,2.0829E+00_JPRB/)  
+KBO( :, 5,30, 9) = (/&
+ & 3.0013E-01_JPRB,3.0021E-01_JPRB,1.1005E+00_JPRB,1.6130E+00_JPRB,1.9897E+00_JPRB,2.1530E+00_JPRB/)  
+KBO( :, 1,31, 9) = (/&
+ & 2.1718E-01_JPRB,2.1735E-01_JPRB,9.4336E-01_JPRB,1.3592E+00_JPRB,1.6802E+00_JPRB,1.7623E+00_JPRB/)  
+KBO( :, 2,31, 9) = (/&
+ & 2.2773E-01_JPRB,2.2787E-01_JPRB,9.7667E-01_JPRB,1.4147E+00_JPRB,1.7480E+00_JPRB,1.8530E+00_JPRB/)  
+KBO( :, 3,31, 9) = (/&
+ & 2.3995E-01_JPRB,2.4007E-01_JPRB,1.0080E+00_JPRB,1.4699E+00_JPRB,1.8151E+00_JPRB,1.9409E+00_JPRB/)  
+KBO( :, 4,31, 9) = (/&
+ & 2.5414E-01_JPRB,2.5424E-01_JPRB,1.0371E+00_JPRB,1.5227E+00_JPRB,1.8795E+00_JPRB,2.0251E+00_JPRB/)  
+KBO( :, 5,31, 9) = (/&
+ & 2.7018E-01_JPRB,2.7028E-01_JPRB,1.0644E+00_JPRB,1.5717E+00_JPRB,1.9397E+00_JPRB,2.1038E+00_JPRB/)  
+KBO( :, 1,32, 9) = (/&
+ & 1.9126E-01_JPRB,1.9146E-01_JPRB,8.9853E-01_JPRB,1.2997E+00_JPRB,1.6046E+00_JPRB,1.6901E+00_JPRB/)  
+KBO( :, 2,32, 9) = (/&
+ & 2.0193E-01_JPRB,2.0209E-01_JPRB,9.3540E-01_JPRB,1.3632E+00_JPRB,1.6829E+00_JPRB,1.7901E+00_JPRB/)  
+KBO( :, 3,32, 9) = (/&
+ & 2.1445E-01_JPRB,2.1459E-01_JPRB,9.7036E-01_JPRB,1.4251E+00_JPRB,1.7593E+00_JPRB,1.8876E+00_JPRB/)  
+KBO( :, 4,32, 9) = (/&
+ & 2.2890E-01_JPRB,2.2902E-01_JPRB,1.0032E+00_JPRB,1.4834E+00_JPRB,1.8319E+00_JPRB,1.9801E+00_JPRB/)  
+KBO( :, 5,32, 9) = (/&
+ & 2.4476E-01_JPRB,2.4488E-01_JPRB,1.0341E+00_JPRB,1.5373E+00_JPRB,1.8995E+00_JPRB,2.0662E+00_JPRB/)  
+KBO( :, 1,33, 9) = (/&
+ & 1.6940E-01_JPRB,1.6962E-01_JPRB,8.6040E-01_JPRB,1.2516E+00_JPRB,1.5440E+00_JPRB,1.6336E+00_JPRB/)  
+KBO( :, 2,33, 9) = (/&
+ & 1.8040E-01_JPRB,1.8058E-01_JPRB,9.0069E-01_JPRB,1.3217E+00_JPRB,1.6313E+00_JPRB,1.7427E+00_JPRB/)  
+KBO( :, 3,33, 9) = (/&
+ & 1.9322E-01_JPRB,1.9338E-01_JPRB,9.3905E-01_JPRB,1.3887E+00_JPRB,1.7155E+00_JPRB,1.8483E+00_JPRB/)  
+KBO( :, 4,33, 9) = (/&
+ & 2.0759E-01_JPRB,2.0774E-01_JPRB,9.7525E-01_JPRB,1.4518E+00_JPRB,1.7950E+00_JPRB,1.9477E+00_JPRB/)  
+KBO( :, 5,33, 9) = (/&
+ & 2.2287E-01_JPRB,2.2300E-01_JPRB,1.0095E+00_JPRB,1.5103E+00_JPRB,1.8688E+00_JPRB,2.0398E+00_JPRB/)  
+KBO( :, 1,34, 9) = (/&
+ & 1.5076E-01_JPRB,1.5101E-01_JPRB,8.2749E-01_JPRB,1.2115E+00_JPRB,1.4944E+00_JPRB,1.5862E+00_JPRB/)  
+KBO( :, 2,34, 9) = (/&
+ & 1.6203E-01_JPRB,1.6224E-01_JPRB,8.7097E-01_JPRB,1.2867E+00_JPRB,1.5891E+00_JPRB,1.7034E+00_JPRB/)  
+KBO( :, 3,34, 9) = (/&
+ & 1.7492E-01_JPRB,1.7510E-01_JPRB,9.1244E-01_JPRB,1.3584E+00_JPRB,1.6800E+00_JPRB,1.8152E+00_JPRB/)  
+KBO( :, 4,34, 9) = (/&
+ & 1.8884E-01_JPRB,1.8900E-01_JPRB,9.5164E-01_JPRB,1.4257E+00_JPRB,1.7654E+00_JPRB,1.9207E+00_JPRB/)  
+KBO( :, 5,34, 9) = (/&
+ & 2.0347E-01_JPRB,2.0361E-01_JPRB,9.8858E-01_JPRB,1.4882E+00_JPRB,1.8441E+00_JPRB,2.0182E+00_JPRB/)  
+KBO( :, 1,35, 9) = (/&
+ & 1.3410E-01_JPRB,1.3442E-01_JPRB,7.9621E-01_JPRB,1.1726E+00_JPRB,1.4470E+00_JPRB,1.5402E+00_JPRB/)  
+KBO( :, 2,35, 9) = (/&
+ & 1.4542E-01_JPRB,1.4567E-01_JPRB,8.4262E-01_JPRB,1.2523E+00_JPRB,1.5484E+00_JPRB,1.6636E+00_JPRB/)  
+KBO( :, 3,35, 9) = (/&
+ & 1.5802E-01_JPRB,1.5823E-01_JPRB,8.8698E-01_JPRB,1.3283E+00_JPRB,1.6454E+00_JPRB,1.7818E+00_JPRB/)  
+KBO( :, 4,35, 9) = (/&
+ & 1.7135E-01_JPRB,1.7153E-01_JPRB,9.2894E-01_JPRB,1.3999E+00_JPRB,1.7361E+00_JPRB,1.8932E+00_JPRB/)  
+KBO( :, 5,35, 9) = (/&
+ & 1.8540E-01_JPRB,1.8556E-01_JPRB,9.6841E-01_JPRB,1.4664E+00_JPRB,1.8195E+00_JPRB,1.9967E+00_JPRB/)  
+KBO( :, 1,36, 9) = (/&
+ & 1.1885E-01_JPRB,1.1927E-01_JPRB,7.6459E-01_JPRB,1.1318E+00_JPRB,1.3978E+00_JPRB,1.4899E+00_JPRB/)  
+KBO( :, 2,36, 9) = (/&
+ & 1.2990E-01_JPRB,1.3022E-01_JPRB,8.1382E-01_JPRB,1.2158E+00_JPRB,1.5052E+00_JPRB,1.6195E+00_JPRB/)  
+KBO( :, 3,36, 9) = (/&
+ & 1.4201E-01_JPRB,1.4226E-01_JPRB,8.6094E-01_JPRB,1.2962E+00_JPRB,1.6079E+00_JPRB,1.7441E+00_JPRB/)  
+KBO( :, 4,36, 9) = (/&
+ & 1.5478E-01_JPRB,1.5499E-01_JPRB,9.0551E-01_JPRB,1.3720E+00_JPRB,1.7039E+00_JPRB,1.8614E+00_JPRB/)  
+KBO( :, 5,36, 9) = (/&
+ & 1.6836E-01_JPRB,1.6854E-01_JPRB,9.4765E-01_JPRB,1.4424E+00_JPRB,1.7920E+00_JPRB,1.9701E+00_JPRB/)  
+KBO( :, 1,37, 9) = (/&
+ & 1.0428E-01_JPRB,1.0485E-01_JPRB,7.2899E-01_JPRB,1.0835E+00_JPRB,1.3388E+00_JPRB,1.4259E+00_JPRB/)  
+KBO( :, 2,37, 9) = (/&
+ & 1.1481E-01_JPRB,1.1525E-01_JPRB,7.8118E-01_JPRB,1.1719E+00_JPRB,1.4522E+00_JPRB,1.5616E+00_JPRB/)  
+KBO( :, 3,37, 9) = (/&
+ & 1.2629E-01_JPRB,1.2662E-01_JPRB,8.3108E-01_JPRB,1.2566E+00_JPRB,1.5607E+00_JPRB,1.6925E+00_JPRB/)  
+KBO( :, 4,37, 9) = (/&
+ & 1.3851E-01_JPRB,1.3876E-01_JPRB,8.7848E-01_JPRB,1.3370E+00_JPRB,1.6624E+00_JPRB,1.8161E+00_JPRB/)  
+KBO( :, 5,37, 9) = (/&
+ & 1.5156E-01_JPRB,1.5177E-01_JPRB,9.2339E-01_JPRB,1.4116E+00_JPRB,1.7558E+00_JPRB,1.9309E+00_JPRB/)  
+KBO( :, 1,38, 9) = (/&
+ & 9.1605E-02_JPRB,9.2343E-02_JPRB,6.9610E-01_JPRB,1.0388E+00_JPRB,1.2845E+00_JPRB,1.3674E+00_JPRB/)  
+KBO( :, 2,38, 9) = (/&
+ & 1.0158E-01_JPRB,1.0215E-01_JPRB,7.5088E-01_JPRB,1.1311E+00_JPRB,1.4032E+00_JPRB,1.5087E+00_JPRB/)  
+KBO( :, 3,38, 9) = (/&
+ & 1.1247E-01_JPRB,1.1289E-01_JPRB,8.0339E-01_JPRB,1.2200E+00_JPRB,1.5169E+00_JPRB,1.6453E+00_JPRB/)  
+KBO( :, 4,38, 9) = (/&
+ & 1.2417E-01_JPRB,1.2448E-01_JPRB,8.5338E-01_JPRB,1.3042E+00_JPRB,1.6236E+00_JPRB,1.7750E+00_JPRB/)  
+KBO( :, 5,38, 9) = (/&
+ & 1.3676E-01_JPRB,1.3700E-01_JPRB,9.0083E-01_JPRB,1.3828E+00_JPRB,1.7217E+00_JPRB,1.8952E+00_JPRB/)  
+KBO( :, 1,39, 9) = (/&
+ & 8.0656E-02_JPRB,8.1594E-02_JPRB,6.6607E-01_JPRB,9.9815E-01_JPRB,1.2351E+00_JPRB,1.3152E+00_JPRB/)  
+KBO( :, 2,39, 9) = (/&
+ & 9.0069E-02_JPRB,9.0786E-02_JPRB,7.2321E-01_JPRB,1.0941E+00_JPRB,1.3584E+00_JPRB,1.4617E+00_JPRB/)  
+KBO( :, 3,39, 9) = (/&
+ & 1.0038E-01_JPRB,1.0092E-01_JPRB,7.7814E-01_JPRB,1.1864E+00_JPRB,1.4767E+00_JPRB,1.6037E+00_JPRB/)  
+KBO( :, 4,39, 9) = (/&
+ & 1.1160E-01_JPRB,1.1200E-01_JPRB,8.3050E-01_JPRB,1.2742E+00_JPRB,1.5879E+00_JPRB,1.7392E+00_JPRB/)  
+KBO( :, 5,39, 9) = (/&
+ & 1.2381E-01_JPRB,1.2410E-01_JPRB,8.8026E-01_JPRB,1.3564E+00_JPRB,1.6903E+00_JPRB,1.8642E+00_JPRB/)  
+KBO( :, 1,40, 9) = (/&
+ & 7.0343E-02_JPRB,7.1517E-02_JPRB,6.3258E-01_JPRB,9.5074E-01_JPRB,1.1768E+00_JPRB,1.2495E+00_JPRB/)  
+KBO( :, 2,40, 9) = (/&
+ & 7.9103E-02_JPRB,8.0020E-02_JPRB,6.9189E-01_JPRB,1.0501E+00_JPRB,1.3045E+00_JPRB,1.4003E+00_JPRB/)  
+KBO( :, 3,40, 9) = (/&
+ & 8.8790E-02_JPRB,8.9492E-02_JPRB,7.4925E-01_JPRB,1.1461E+00_JPRB,1.4274E+00_JPRB,1.5476E+00_JPRB/)  
+KBO( :, 4,40, 9) = (/&
+ & 9.9461E-02_JPRB,9.9977E-02_JPRB,8.0414E-01_JPRB,1.2375E+00_JPRB,1.5434E+00_JPRB,1.6884E+00_JPRB/)  
+KBO( :, 5,40, 9) = (/&
+ & 1.1114E-01_JPRB,1.1151E-01_JPRB,8.5633E-01_JPRB,1.3236E+00_JPRB,1.6507E+00_JPRB,1.8191E+00_JPRB/)  
+KBO( :, 1,41, 9) = (/&
+ & 6.1266E-02_JPRB,6.2696E-02_JPRB,6.0022E-01_JPRB,9.0450E-01_JPRB,1.1198E+00_JPRB,1.1852E+00_JPRB/)  
+KBO( :, 2,41, 9) = (/&
+ & 6.9449E-02_JPRB,7.0593E-02_JPRB,6.6161E-01_JPRB,1.0070E+00_JPRB,1.2513E+00_JPRB,1.3399E+00_JPRB/)  
+KBO( :, 3,41, 9) = (/&
+ & 7.8517E-02_JPRB,7.9409E-02_JPRB,7.2121E-01_JPRB,1.1063E+00_JPRB,1.3785E+00_JPRB,1.4916E+00_JPRB/)  
+KBO( :, 4,41, 9) = (/&
+ & 8.8610E-02_JPRB,8.9276E-02_JPRB,7.7839E-01_JPRB,1.2012E+00_JPRB,1.4990E+00_JPRB,1.6374E+00_JPRB/)  
+KBO( :, 5,41, 9) = (/&
+ & 9.9774E-02_JPRB,1.0026E-01_JPRB,8.3284E-01_JPRB,1.2906E+00_JPRB,1.6108E+00_JPRB,1.7737E+00_JPRB/)  
+KBO( :, 1,42, 9) = (/&
+ & 5.3360E-02_JPRB,5.5059E-02_JPRB,5.6966E-01_JPRB,8.6038E-01_JPRB,1.0655E+00_JPRB,1.1243E+00_JPRB/)  
+KBO( :, 2,42, 9) = (/&
+ & 6.0993E-02_JPRB,6.2382E-02_JPRB,6.3280E-01_JPRB,9.6562E-01_JPRB,1.2001E+00_JPRB,1.2823E+00_JPRB/)  
+KBO( :, 3,42, 9) = (/&
+ & 6.9507E-02_JPRB,7.0610E-02_JPRB,6.9445E-01_JPRB,1.0679E+00_JPRB,1.3311E+00_JPRB,1.4380E+00_JPRB/)  
+KBO( :, 4,42, 9) = (/&
+ & 7.9032E-02_JPRB,7.9871E-02_JPRB,7.5376E-01_JPRB,1.1658E+00_JPRB,1.4555E+00_JPRB,1.5883E+00_JPRB/)  
+KBO( :, 5,42, 9) = (/&
+ & 8.9684E-02_JPRB,9.0303E-02_JPRB,8.1031E-01_JPRB,1.2585E+00_JPRB,1.5717E+00_JPRB,1.7298E+00_JPRB/)  
+KBO( :, 1,43, 9) = (/&
+ & 4.6136E-02_JPRB,4.8125E-02_JPRB,5.3704E-01_JPRB,8.1220E-01_JPRB,1.0058E+00_JPRB,1.0569E+00_JPRB/)  
+KBO( :, 2,43, 9) = (/&
+ & 5.3161E-02_JPRB,5.4823E-02_JPRB,6.0168E-01_JPRB,9.1982E-01_JPRB,1.1431E+00_JPRB,1.2177E+00_JPRB/)  
+KBO( :, 3,43, 9) = (/&
+ & 6.1123E-02_JPRB,6.2470E-02_JPRB,6.6532E-01_JPRB,1.0249E+00_JPRB,1.2775E+00_JPRB,1.3770E+00_JPRB/)  
+KBO( :, 4,43, 9) = (/&
+ & 7.0049E-02_JPRB,7.1098E-02_JPRB,7.2673E-01_JPRB,1.1259E+00_JPRB,1.4060E+00_JPRB,1.5318E+00_JPRB/)  
+KBO( :, 5,43, 9) = (/&
+ & 8.0119E-02_JPRB,8.0908E-02_JPRB,7.8534E-01_JPRB,1.2218E+00_JPRB,1.5266E+00_JPRB,1.6786E+00_JPRB/)  
+KBO( :, 1,44, 9) = (/&
+ & 3.9685E-02_JPRB,4.1972E-02_JPRB,5.0412E-01_JPRB,7.6296E-01_JPRB,9.4428E-01_JPRB,9.8787E-01_JPRB/)  
+KBO( :, 2,44, 9) = (/&
+ & 4.6152E-02_JPRB,4.8103E-02_JPRB,5.7004E-01_JPRB,8.7240E-01_JPRB,1.0838E+00_JPRB,1.1508E+00_JPRB/)  
+KBO( :, 3,44, 9) = (/&
+ & 5.3529E-02_JPRB,5.5143E-02_JPRB,6.3536E-01_JPRB,9.8002E-01_JPRB,1.2213E+00_JPRB,1.3132E+00_JPRB/)  
+KBO( :, 4,44, 9) = (/&
+ & 6.1901E-02_JPRB,6.3183E-02_JPRB,6.9879E-01_JPRB,1.0840E+00_JPRB,1.3536E+00_JPRB,1.4723E+00_JPRB/)  
+KBO( :, 5,44, 9) = (/&
+ & 7.1354E-02_JPRB,7.2347E-02_JPRB,7.5939E-01_JPRB,1.1829E+00_JPRB,1.4784E+00_JPRB,1.6242E+00_JPRB/)  
+KBO( :, 1,45, 9) = (/&
+ & 3.4076E-02_JPRB,3.6651E-02_JPRB,4.7238E-01_JPRB,7.1511E-01_JPRB,8.8440E-01_JPRB,9.2130E-01_JPRB/)  
+KBO( :, 2,45, 9) = (/&
+ & 4.0025E-02_JPRB,4.2260E-02_JPRB,5.3939E-01_JPRB,8.2584E-01_JPRB,1.0257E+00_JPRB,1.0858E+00_JPRB/)  
+KBO( :, 3,45, 9) = (/&
+ & 4.6843E-02_JPRB,4.8732E-02_JPRB,6.0607E-01_JPRB,9.3570E-01_JPRB,1.1656E+00_JPRB,1.2509E+00_JPRB/)  
+KBO( :, 4,45, 9) = (/&
+ & 5.4663E-02_JPRB,5.6198E-02_JPRB,6.7125E-01_JPRB,1.0423E+00_JPRB,1.3013E+00_JPRB,1.4137E+00_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART25',1,ZHOOK_HANDLE)
+END SUBROUTINE PART25
+
+
+SUBROUTINE PART26
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART26',0,ZHOOK_HANDLE)
+
+
+KBO( :, 5,45, 9) = (/&
+ & 6.3560E-02_JPRB,6.4776E-02_JPRB,7.3381E-01_JPRB,1.1441E+00_JPRB,1.4299E+00_JPRB,1.5705E+00_JPRB/)  
+KBO( :, 1,46, 9) = (/&
+ & 2.9074E-02_JPRB,3.1936E-02_JPRB,4.4021E-01_JPRB,6.6617E-01_JPRB,8.2306E-01_JPRB,8.5311E-01_JPRB/)  
+KBO( :, 2,46, 9) = (/&
+ & 3.4514E-02_JPRB,3.7034E-02_JPRB,5.0803E-01_JPRB,7.7771E-01_JPRB,9.6537E-01_JPRB,1.0184E+00_JPRB/)  
+KBO( :, 3,46, 9) = (/&
+ & 4.0817E-02_JPRB,4.2987E-02_JPRB,5.7579E-01_JPRB,8.8933E-01_JPRB,1.1073E+00_JPRB,1.1856E+00_JPRB/)  
+KBO( :, 4,46, 9) = (/&
+ & 4.8065E-02_JPRB,4.9872E-02_JPRB,6.4255E-01_JPRB,9.9829E-01_JPRB,1.2460E+00_JPRB,1.3517E+00_JPRB/)  
+KBO( :, 5,46, 9) = (/&
+ & 5.6423E-02_JPRB,5.7882E-02_JPRB,7.0700E-01_JPRB,1.1029E+00_JPRB,1.3784E+00_JPRB,1.5131E+00_JPRB/)  
+KBO( :, 1,47, 9) = (/&
+ & 2.4535E-02_JPRB,2.7684E-02_JPRB,4.0628E-01_JPRB,6.1382E-01_JPRB,7.5741E-01_JPRB,7.7949E-01_JPRB/)  
+KBO( :, 2,47, 9) = (/&
+ & 2.9449E-02_JPRB,3.2260E-02_JPRB,4.7443E-01_JPRB,7.2561E-01_JPRB,8.9979E-01_JPRB,9.4468E-01_JPRB/)  
+KBO( :, 3,47, 9) = (/&
+ & 3.5234E-02_JPRB,3.7694E-02_JPRB,5.4316E-01_JPRB,8.3846E-01_JPRB,1.0433E+00_JPRB,1.1130E+00_JPRB/)  
+KBO( :, 4,47, 9) = (/&
+ & 4.1912E-02_JPRB,4.4006E-02_JPRB,6.1119E-01_JPRB,9.4961E-01_JPRB,1.1846E+00_JPRB,1.2819E+00_JPRB/)  
+KBO( :, 5,47, 9) = (/&
+ & 4.9674E-02_JPRB,5.1405E-02_JPRB,6.7740E-01_JPRB,1.0570E+00_JPRB,1.3207E+00_JPRB,1.4474E+00_JPRB/)  
+KBO( :, 1,48, 9) = (/&
+ & 2.0618E-02_JPRB,2.4026E-02_JPRB,3.7343E-01_JPRB,5.6290E-01_JPRB,6.9352E-01_JPRB,7.0849E-01_JPRB/)  
+KBO( :, 2,48, 9) = (/&
+ & 2.5013E-02_JPRB,2.8103E-02_JPRB,4.4151E-01_JPRB,6.7436E-01_JPRB,8.3513E-01_JPRB,8.7266E-01_JPRB/)  
+KBO( :, 3,48, 9) = (/&
+ & 3.0305E-02_JPRB,3.3049E-02_JPRB,5.1090E-01_JPRB,7.8783E-01_JPRB,9.7958E-01_JPRB,1.0415E+00_JPRB/)  
+KBO( :, 4,48, 9) = (/&
+ & 3.6461E-02_JPRB,3.8842E-02_JPRB,5.7999E-01_JPRB,9.0076E-01_JPRB,1.1229E+00_JPRB,1.2126E+00_JPRB/)  
+KBO( :, 5,48, 9) = (/&
+ & 4.3637E-02_JPRB,4.5645E-02_JPRB,6.4766E-01_JPRB,1.0105E+00_JPRB,1.2621E+00_JPRB,1.3817E+00_JPRB/)  
+KBO( :, 1,49, 9) = (/&
+ & 1.7262E-02_JPRB,2.0889E-02_JPRB,3.4154E-01_JPRB,5.1353E-01_JPRB,6.3147E-01_JPRB,6.4035E-01_JPRB/)  
+KBO( :, 2,49, 9) = (/&
+ & 2.1137E-02_JPRB,2.4489E-02_JPRB,4.0924E-01_JPRB,6.2397E-01_JPRB,7.7164E-01_JPRB,8.0268E-01_JPRB/)  
+KBO( :, 3,49, 9) = (/&
+ & 2.5945E-02_JPRB,2.8963E-02_JPRB,4.7895E-01_JPRB,7.3764E-01_JPRB,9.1622E-01_JPRB,9.7159E-01_JPRB/)  
+KBO( :, 4,49, 9) = (/&
+ & 3.1605E-02_JPRB,3.4269E-02_JPRB,5.4885E-01_JPRB,8.5174E-01_JPRB,1.0610E+00_JPRB,1.1442E+00_JPRB/)  
+KBO( :, 5,49, 9) = (/&
+ & 3.8248E-02_JPRB,4.0534E-02_JPRB,6.1776E-01_JPRB,9.6350E-01_JPRB,1.2028E+00_JPRB,1.3168E+00_JPRB/)  
+KBO( :, 1,50, 9) = (/&
+ & 1.4461E-02_JPRB,1.8256E-02_JPRB,3.1238E-01_JPRB,4.6845E-01_JPRB,5.7488E-01_JPRB,5.7744E-01_JPRB/)  
+KBO( :, 2,50, 9) = (/&
+ & 1.7870E-02_JPRB,2.1439E-02_JPRB,3.7949E-01_JPRB,5.7732E-01_JPRB,7.1302E-01_JPRB,7.3703E-01_JPRB/)  
+KBO( :, 3,50, 9) = (/&
+ & 2.2222E-02_JPRB,2.5490E-02_JPRB,4.4914E-01_JPRB,6.9079E-01_JPRB,8.5702E-01_JPRB,9.0516E-01_JPRB/)  
+KBO( :, 4,50, 9) = (/&
+ & 2.7435E-02_JPRB,3.0361E-02_JPRB,5.1966E-01_JPRB,8.0553E-01_JPRB,1.0027E+00_JPRB,1.0781E+00_JPRB/)  
+KBO( :, 5,50, 9) = (/&
+ & 3.3599E-02_JPRB,3.6150E-02_JPRB,5.8955E-01_JPRB,9.1897E-01_JPRB,1.1465E+00_JPRB,1.2529E+00_JPRB/)  
+KBO( :, 1,51, 9) = (/&
+ & 1.2097E-02_JPRB,1.6003E-02_JPRB,2.8492E-01_JPRB,4.2603E-01_JPRB,5.2182E-01_JPRB,5.1816E-01_JPRB/)  
+KBO( :, 2,51, 9) = (/&
+ & 1.5083E-02_JPRB,1.8829E-02_JPRB,3.5127E-01_JPRB,5.3304E-01_JPRB,6.5735E-01_JPRB,6.7429E-01_JPRB/)  
+KBO( :, 3,51, 9) = (/&
+ & 1.8997E-02_JPRB,2.2488E-02_JPRB,4.2058E-01_JPRB,6.4583E-01_JPRB,8.0019E-01_JPRB,8.4077E-01_JPRB/)  
+KBO( :, 4,51, 9) = (/&
+ & 2.3775E-02_JPRB,2.6948E-02_JPRB,4.9143E-01_JPRB,7.6084E-01_JPRB,9.4628E-01_JPRB,1.0134E+00_JPRB/)  
+KBO( :, 5,51, 9) = (/&
+ & 2.9499E-02_JPRB,3.2304E-02_JPRB,5.6205E-01_JPRB,8.7547E-01_JPRB,1.0915E+00_JPRB,1.1895E+00_JPRB/)  
+KBO( :, 1,52, 9) = (/&
+ & 1.0095E-02_JPRB,1.4050E-02_JPRB,2.5854E-01_JPRB,3.8529E-01_JPRB,4.7109E-01_JPRB,4.6197E-01_JPRB/)  
+KBO( :, 2,52, 9) = (/&
+ & 1.2680E-02_JPRB,1.6562E-02_JPRB,3.2378E-01_JPRB,4.9000E-01_JPRB,6.0315E-01_JPRB,6.1385E-01_JPRB/)  
+KBO( :, 3,52, 9) = (/&
+ & 1.6167E-02_JPRB,1.9851E-02_JPRB,3.9257E-01_JPRB,6.0150E-01_JPRB,7.4434E-01_JPRB,7.7805E-01_JPRB/)  
+KBO( :, 4,52, 9) = (/&
+ & 2.0524E-02_JPRB,2.3923E-02_JPRB,4.6343E-01_JPRB,7.1644E-01_JPRB,8.9011E-01_JPRB,9.4994E-01_JPRB/)  
+KBO( :, 5,52, 9) = (/&
+ & 2.5821E-02_JPRB,2.8872E-02_JPRB,5.3465E-01_JPRB,8.3183E-01_JPRB,1.0363E+00_JPRB,1.1268E+00_JPRB/)  
+KBO( :, 1,53, 9) = (/&
+ & 8.3963E-03_JPRB,1.2343E-02_JPRB,2.3325E-01_JPRB,3.4626E-01_JPRB,4.2244E-01_JPRB,4.0883E-01_JPRB/)  
+KBO( :, 2,53, 9) = (/&
+ & 1.0621E-02_JPRB,1.4581E-02_JPRB,2.9700E-01_JPRB,4.4811E-01_JPRB,5.5051E-01_JPRB,5.5572E-01_JPRB/)  
+KBO( :, 3,53, 9) = (/&
+ & 1.3693E-02_JPRB,1.7537E-02_JPRB,3.6501E-01_JPRB,5.5778E-01_JPRB,6.8933E-01_JPRB,7.1705E-01_JPRB/)  
+KBO( :, 4,53, 9) = (/&
+ & 1.7633E-02_JPRB,2.1242E-02_JPRB,4.3562E-01_JPRB,6.7222E-01_JPRB,8.3412E-01_JPRB,8.8780E-01_JPRB/)  
+KBO( :, 5,53, 9) = (/&
+ & 2.2506E-02_JPRB,2.5791E-02_JPRB,5.0721E-01_JPRB,7.8803E-01_JPRB,9.8102E-01_JPRB,1.0650E+00_JPRB/)  
+KBO( :, 1,54, 9) = (/&
+ & 7.0177E-03_JPRB,1.0894E-02_JPRB,2.1095E-01_JPRB,3.1199E-01_JPRB,3.7969E-01_JPRB,3.6085E-01_JPRB/)  
+KBO( :, 2,54, 9) = (/&
+ & 8.9302E-03_JPRB,1.2918E-02_JPRB,2.7298E-01_JPRB,4.1066E-01_JPRB,5.0363E-01_JPRB,5.0181E-01_JPRB/)  
+KBO( :, 3,54, 9) = (/&
+ & 1.1634E-02_JPRB,1.5589E-02_JPRB,3.4013E-01_JPRB,5.1838E-01_JPRB,6.3970E-01_JPRB,6.5930E-01_JPRB/)  
+KBO( :, 4,54, 9) = (/&
+ & 1.5199E-02_JPRB,1.8979E-02_JPRB,4.1032E-01_JPRB,6.3200E-01_JPRB,7.8327E-01_JPRB,8.2770E-01_JPRB/)  
+KBO( :, 5,54, 9) = (/&
+ & 1.9687E-02_JPRB,2.3177E-02_JPRB,4.8201E-01_JPRB,7.4784E-01_JPRB,9.3015E-01_JPRB,1.0034E+00_JPRB/)  
+KBO( :, 1,55, 9) = (/&
+ & 5.8731E-03_JPRB,9.6286E-03_JPRB,1.9052E-01_JPRB,2.8063E-01_JPRB,3.4069E-01_JPRB,3.1655E-01_JPRB/)  
+KBO( :, 2,55, 9) = (/&
+ & 7.5168E-03_JPRB,1.1480E-02_JPRB,2.5064E-01_JPRB,3.7586E-01_JPRB,4.6019E-01_JPRB,4.5069E-01_JPRB/)  
+KBO( :, 3,55, 9) = (/&
+ & 9.8853E-03_JPRB,1.3900E-02_JPRB,3.1669E-01_JPRB,4.8140E-01_JPRB,5.9307E-01_JPRB,6.0350E-01_JPRB/)  
+KBO( :, 4,55, 9) = (/&
+ & 1.3096E-02_JPRB,1.7018E-02_JPRB,3.8628E-01_JPRB,5.9371E-01_JPRB,7.3500E-01_JPRB,7.6887E-01_JPRB/)  
+KBO( :, 5,55, 9) = (/&
+ & 1.7222E-02_JPRB,2.0899E-02_JPRB,4.5791E-01_JPRB,7.0935E-01_JPRB,8.8144E-01_JPRB,9.4215E-01_JPRB/)  
+KBO( :, 1,56, 9) = (/&
+ & 4.9060E-03_JPRB,8.5039E-03_JPRB,1.7111E-01_JPRB,2.5106E-01_JPRB,3.0385E-01_JPRB,2.7511E-01_JPRB/)  
+KBO( :, 2,56, 9) = (/&
+ & 6.3120E-03_JPRB,1.0201E-02_JPRB,2.2915E-01_JPRB,3.4243E-01_JPRB,4.1847E-01_JPRB,4.0215E-01_JPRB/)  
+KBO( :, 3,56, 9) = (/&
+ & 8.3672E-03_JPRB,1.2401E-02_JPRB,2.9378E-01_JPRB,4.4537E-01_JPRB,5.4774E-01_JPRB,5.4959E-01_JPRB/)  
+KBO( :, 4,56, 9) = (/&
+ & 1.1240E-02_JPRB,1.5268E-02_JPRB,3.6263E-01_JPRB,5.5595E-01_JPRB,6.8746E-01_JPRB,7.1138E-01_JPRB/)  
+KBO( :, 5,56, 9) = (/&
+ & 1.5010E-02_JPRB,1.8851E-02_JPRB,4.3398E-01_JPRB,6.7113E-01_JPRB,8.3300E-01_JPRB,8.8217E-01_JPRB/)  
+KBO( :, 1,57, 9) = (/&
+ & 4.0878E-03_JPRB,7.4982E-03_JPRB,1.5269E-01_JPRB,2.2324E-01_JPRB,2.6911E-01_JPRB,2.3696E-01_JPRB/)  
+KBO( :, 2,57, 9) = (/&
+ & 5.2898E-03_JPRB,9.0610E-03_JPRB,2.0850E-01_JPRB,3.1039E-01_JPRB,3.7842E-01_JPRB,3.5615E-01_JPRB/)  
+KBO( :, 3,57, 9) = (/&
+ & 7.0606E-03_JPRB,1.1069E-02_JPRB,2.7146E-01_JPRB,4.1021E-01_JPRB,5.0366E-01_JPRB,4.9745E-01_JPRB/)  
+KBO( :, 4,57, 9) = (/&
+ & 9.6071E-03_JPRB,1.3700E-02_JPRB,3.3939E-01_JPRB,5.1887E-01_JPRB,6.4072E-01_JPRB,6.5511E-01_JPRB/)  
+KBO( :, 5,57, 9) = (/&
+ & 1.3031E-02_JPRB,1.7013E-02_JPRB,4.1025E-01_JPRB,6.3316E-01_JPRB,7.8498E-01_JPRB,8.2331E-01_JPRB/)  
+KBO( :, 1,58, 9) = (/&
+ & 3.4110E-03_JPRB,6.6187E-03_JPRB,1.3608E-01_JPRB,1.9844E-01_JPRB,2.3812E-01_JPRB,2.0347E-01_JPRB/)  
+KBO( :, 2,58, 9) = (/&
+ & 4.4437E-03_JPRB,8.0723E-03_JPRB,1.8969E-01_JPRB,2.8123E-01_JPRB,3.4208E-01_JPRB,3.1439E-01_JPRB/)  
+KBO( :, 3,58, 9) = (/&
+ & 5.9725E-03_JPRB,9.9123E-03_JPRB,2.5079E-01_JPRB,3.7777E-01_JPRB,4.6311E-01_JPRB,4.4931E-01_JPRB/)  
+KBO( :, 4,58, 9) = (/&
+ & 8.2191E-03_JPRB,1.2333E-02_JPRB,3.1765E-01_JPRB,4.8433E-01_JPRB,5.9715E-01_JPRB,6.0236E-01_JPRB/)  
+KBO( :, 5,58, 9) = (/&
+ & 1.1325E-02_JPRB,1.5419E-02_JPRB,3.8789E-01_JPRB,5.9740E-01_JPRB,7.3982E-01_JPRB,7.6757E-01_JPRB/)  
+KBO( :, 1,59, 9) = (/&
+ & 2.9777E-03_JPRB,6.0559E-03_JPRB,1.2911E-01_JPRB,1.8831E-01_JPRB,2.2557E-01_JPRB,1.8804E-01_JPRB/)  
+KBO( :, 2,59, 9) = (/&
+ & 3.9243E-03_JPRB,7.4586E-03_JPRB,1.8188E-01_JPRB,2.6942E-01_JPRB,3.2742E-01_JPRB,2.9431E-01_JPRB/)  
+KBO( :, 3,59, 9) = (/&
+ & 5.3410E-03_JPRB,9.2341E-03_JPRB,2.4229E-01_JPRB,3.6461E-01_JPRB,4.4670E-01_JPRB,4.2516E-01_JPRB/)  
+KBO( :, 4,59, 9) = (/&
+ & 7.4484E-03_JPRB,1.1574E-02_JPRB,3.0869E-01_JPRB,4.7031E-01_JPRB,5.7948E-01_JPRB,5.7493E-01_JPRB/)  
+KBO( :, 5,59, 9) = (/&
+ & 1.0416E-02_JPRB,1.4573E-02_JPRB,3.7872E-01_JPRB,5.8281E-01_JPRB,7.2146E-01_JPRB,7.3756E-01_JPRB/)  
+KBO( :, 1,13,10) = (/&
+ & 7.5289E+00_JPRB,7.5248E+00_JPRB,5.8020E+00_JPRB,4.2235E+00_JPRB,3.4788E+00_JPRB,3.3830E+00_JPRB/)  
+KBO( :, 2,13,10) = (/&
+ & 7.5373E+00_JPRB,7.5331E+00_JPRB,5.7965E+00_JPRB,4.1949E+00_JPRB,3.4100E+00_JPRB,3.3091E+00_JPRB/)  
+KBO( :, 3,13,10) = (/&
+ & 7.5342E+00_JPRB,7.5300E+00_JPRB,5.7907E+00_JPRB,4.1656E+00_JPRB,3.3402E+00_JPRB,3.2690E+00_JPRB/)  
+KBO( :, 4,13,10) = (/&
+ & 7.4927E+00_JPRB,7.4886E+00_JPRB,5.7565E+00_JPRB,4.1206E+00_JPRB,3.2641E+00_JPRB,3.2567E+00_JPRB/)  
+KBO( :, 5,13,10) = (/&
+ & 7.4212E+00_JPRB,7.4171E+00_JPRB,5.6978E+00_JPRB,4.0611E+00_JPRB,3.1856E+00_JPRB,3.2490E+00_JPRB/)  
+KBO( :, 1,14,10) = (/&
+ & 7.4571E+00_JPRB,7.4529E+00_JPRB,5.7300E+00_JPRB,4.2516E+00_JPRB,3.6973E+00_JPRB,3.6249E+00_JPRB/)  
+KBO( :, 2,14,10) = (/&
+ & 7.4407E+00_JPRB,7.4365E+00_JPRB,5.7211E+00_JPRB,4.2113E+00_JPRB,3.6244E+00_JPRB,3.5667E+00_JPRB/)  
+KBO( :, 3,14,10) = (/&
+ & 7.3963E+00_JPRB,7.3922E+00_JPRB,5.6812E+00_JPRB,4.1556E+00_JPRB,3.5526E+00_JPRB,3.5115E+00_JPRB/)  
+KBO( :, 4,14,10) = (/&
+ & 7.3296E+00_JPRB,7.3255E+00_JPRB,5.6249E+00_JPRB,4.0935E+00_JPRB,3.4766E+00_JPRB,3.4707E+00_JPRB/)  
+KBO( :, 5,14,10) = (/&
+ & 7.2465E+00_JPRB,7.2425E+00_JPRB,5.5619E+00_JPRB,4.0245E+00_JPRB,3.4020E+00_JPRB,3.4493E+00_JPRB/)  
+KBO( :, 1,15,10) = (/&
+ & 7.1911E+00_JPRB,7.1871E+00_JPRB,5.5280E+00_JPRB,4.2968E+00_JPRB,3.9627E+00_JPRB,3.9090E+00_JPRB/)  
+KBO( :, 2,15,10) = (/&
+ & 7.1513E+00_JPRB,7.1474E+00_JPRB,5.4956E+00_JPRB,4.2289E+00_JPRB,3.8871E+00_JPRB,3.8400E+00_JPRB/)  
+KBO( :, 3,15,10) = (/&
+ & 7.0923E+00_JPRB,7.0884E+00_JPRB,5.4464E+00_JPRB,4.1468E+00_JPRB,3.8062E+00_JPRB,3.7828E+00_JPRB/)  
+KBO( :, 4,15,10) = (/&
+ & 6.9934E+00_JPRB,6.9895E+00_JPRB,5.3713E+00_JPRB,4.0638E+00_JPRB,3.7328E+00_JPRB,3.7290E+00_JPRB/)  
+KBO( :, 5,15,10) = (/&
+ & 6.8864E+00_JPRB,6.8825E+00_JPRB,5.2899E+00_JPRB,3.9761E+00_JPRB,3.6483E+00_JPRB,3.6704E+00_JPRB/)  
+KBO( :, 1,16,10) = (/&
+ & 6.7911E+00_JPRB,6.7873E+00_JPRB,5.2205E+00_JPRB,4.3199E+00_JPRB,4.2502E+00_JPRB,4.2466E+00_JPRB/)  
+KBO( :, 2,16,10) = (/&
+ & 6.7263E+00_JPRB,6.7226E+00_JPRB,5.1711E+00_JPRB,4.2329E+00_JPRB,4.1599E+00_JPRB,4.1741E+00_JPRB/)  
+KBO( :, 3,16,10) = (/&
+ & 6.6333E+00_JPRB,6.6296E+00_JPRB,5.0988E+00_JPRB,4.1448E+00_JPRB,4.0703E+00_JPRB,4.1094E+00_JPRB/)  
+KBO( :, 4,16,10) = (/&
+ & 6.5280E+00_JPRB,6.5244E+00_JPRB,5.0198E+00_JPRB,4.0496E+00_JPRB,3.9801E+00_JPRB,4.0403E+00_JPRB/)  
+KBO( :, 5,16,10) = (/&
+ & 6.4167E+00_JPRB,6.4131E+00_JPRB,4.9361E+00_JPRB,3.9499E+00_JPRB,3.8927E+00_JPRB,3.9614E+00_JPRB/)  
+KBO( :, 1,17,10) = (/&
+ & 6.2531E+00_JPRB,6.2497E+00_JPRB,4.8286E+00_JPRB,4.3686E+00_JPRB,4.5172E+00_JPRB,4.6364E+00_JPRB/)  
+KBO( :, 2,17,10) = (/&
+ & 6.1677E+00_JPRB,6.1643E+00_JPRB,4.7626E+00_JPRB,4.2792E+00_JPRB,4.4298E+00_JPRB,4.5601E+00_JPRB/)  
+KBO( :, 3,17,10) = (/&
+ & 6.0747E+00_JPRB,6.0713E+00_JPRB,4.6908E+00_JPRB,4.1860E+00_JPRB,4.3428E+00_JPRB,4.4812E+00_JPRB/)  
+KBO( :, 4,17,10) = (/&
+ & 5.9604E+00_JPRB,5.9571E+00_JPRB,4.6053E+00_JPRB,4.0899E+00_JPRB,4.2570E+00_JPRB,4.3935E+00_JPRB/)  
+KBO( :, 5,17,10) = (/&
+ & 5.8291E+00_JPRB,5.8259E+00_JPRB,4.5089E+00_JPRB,3.9935E+00_JPRB,4.1733E+00_JPRB,4.3011E+00_JPRB/)  
+KBO( :, 1,18,10) = (/&
+ & 5.6266E+00_JPRB,5.6236E+00_JPRB,4.4207E+00_JPRB,4.4989E+00_JPRB,4.8053E+00_JPRB,5.0247E+00_JPRB/)  
+KBO( :, 2,18,10) = (/&
+ & 5.5427E+00_JPRB,5.5397E+00_JPRB,4.3512E+00_JPRB,4.4021E+00_JPRB,4.7226E+00_JPRB,4.9470E+00_JPRB/)  
+KBO( :, 3,18,10) = (/&
+ & 5.4374E+00_JPRB,5.4345E+00_JPRB,4.2669E+00_JPRB,4.3054E+00_JPRB,4.6429E+00_JPRB,4.8548E+00_JPRB/)  
+KBO( :, 4,18,10) = (/&
+ & 5.3118E+00_JPRB,5.3090E+00_JPRB,4.1727E+00_JPRB,4.2046E+00_JPRB,4.5567E+00_JPRB,4.7652E+00_JPRB/)  
+KBO( :, 5,18,10) = (/&
+ & 5.1788E+00_JPRB,5.1760E+00_JPRB,4.0826E+00_JPRB,4.1045E+00_JPRB,4.4583E+00_JPRB,4.6766E+00_JPRB/)  
+KBO( :, 1,19,10) = (/&
+ & 4.9892E+00_JPRB,4.9865E+00_JPRB,4.1022E+00_JPRB,4.6290E+00_JPRB,5.1554E+00_JPRB,5.3946E+00_JPRB/)  
+KBO( :, 2,19,10) = (/&
+ & 4.8951E+00_JPRB,4.8924E+00_JPRB,4.0165E+00_JPRB,4.5273E+00_JPRB,5.0702E+00_JPRB,5.3073E+00_JPRB/)  
+KBO( :, 3,19,10) = (/&
+ & 4.7798E+00_JPRB,4.7773E+00_JPRB,3.9238E+00_JPRB,4.4269E+00_JPRB,4.9753E+00_JPRB,5.2208E+00_JPRB/)  
+KBO( :, 4,19,10) = (/&
+ & 4.6598E+00_JPRB,4.6573E+00_JPRB,3.8352E+00_JPRB,4.3303E+00_JPRB,4.8704E+00_JPRB,5.1400E+00_JPRB/)  
+KBO( :, 5,19,10) = (/&
+ & 4.5508E+00_JPRB,4.5484E+00_JPRB,3.7462E+00_JPRB,4.2290E+00_JPRB,4.7590E+00_JPRB,5.0603E+00_JPRB/)  
+KBO( :, 1,20,10) = (/&
+ & 4.3446E+00_JPRB,4.3423E+00_JPRB,3.8795E+00_JPRB,4.7522E+00_JPRB,5.5065E+00_JPRB,5.7535E+00_JPRB/)  
+KBO( :, 2,20,10) = (/&
+ & 4.2431E+00_JPRB,4.2409E+00_JPRB,3.7927E+00_JPRB,4.6561E+00_JPRB,5.4004E+00_JPRB,5.6800E+00_JPRB/)  
+KBO( :, 3,20,10) = (/&
+ & 4.1397E+00_JPRB,4.1376E+00_JPRB,3.7047E+00_JPRB,4.5585E+00_JPRB,5.2878E+00_JPRB,5.6033E+00_JPRB/)  
+KBO( :, 4,20,10) = (/&
+ & 4.0481E+00_JPRB,4.0460E+00_JPRB,3.6150E+00_JPRB,4.4575E+00_JPRB,5.1721E+00_JPRB,5.5261E+00_JPRB/)  
+KBO( :, 5,20,10) = (/&
+ & 3.9765E+00_JPRB,3.9744E+00_JPRB,3.5343E+00_JPRB,4.3595E+00_JPRB,5.0554E+00_JPRB,5.4406E+00_JPRB/)  
+KBO( :, 1,21,10) = (/&
+ & 3.7211E+00_JPRB,3.7192E+00_JPRB,3.7613E+00_JPRB,4.9074E+00_JPRB,5.7827E+00_JPRB,6.1154E+00_JPRB/)  
+KBO( :, 2,21,10) = (/&
+ & 3.6330E+00_JPRB,3.6312E+00_JPRB,3.6717E+00_JPRB,4.8116E+00_JPRB,5.6714E+00_JPRB,6.0506E+00_JPRB/)  
+KBO( :, 3,21,10) = (/&
+ & 3.5589E+00_JPRB,3.5571E+00_JPRB,3.5807E+00_JPRB,4.7108E+00_JPRB,5.5635E+00_JPRB,5.9724E+00_JPRB/)  
+KBO( :, 4,21,10) = (/&
+ & 3.5073E+00_JPRB,3.5055E+00_JPRB,3.5016E+00_JPRB,4.6097E+00_JPRB,5.4603E+00_JPRB,5.8886E+00_JPRB/)  
+KBO( :, 5,21,10) = (/&
+ & 3.4691E+00_JPRB,3.4674E+00_JPRB,3.4364E+00_JPRB,4.5052E+00_JPRB,5.3541E+00_JPRB,5.8090E+00_JPRB/)  
+KBO( :, 1,22,10) = (/&
+ & 3.1543E+00_JPRB,3.1527E+00_JPRB,3.6782E+00_JPRB,5.0447E+00_JPRB,6.0160E+00_JPRB,6.4253E+00_JPRB/)  
+KBO( :, 2,22,10) = (/&
+ & 3.0969E+00_JPRB,3.0954E+00_JPRB,3.5898E+00_JPRB,4.9499E+00_JPRB,5.9206E+00_JPRB,6.3659E+00_JPRB/)  
+KBO( :, 3,22,10) = (/&
+ & 3.0620E+00_JPRB,3.0605E+00_JPRB,3.5058E+00_JPRB,4.8486E+00_JPRB,5.8265E+00_JPRB,6.2989E+00_JPRB/)  
+KBO( :, 4,22,10) = (/&
+ & 3.0425E+00_JPRB,3.0410E+00_JPRB,3.4395E+00_JPRB,4.7446E+00_JPRB,5.7289E+00_JPRB,6.2283E+00_JPRB/)  
+KBO( :, 5,22,10) = (/&
+ & 3.0546E+00_JPRB,3.0532E+00_JPRB,3.3854E+00_JPRB,4.6358E+00_JPRB,5.6252E+00_JPRB,6.1603E+00_JPRB/)  
+KBO( :, 1,23,10) = (/&
+ & 2.6854E+00_JPRB,2.6841E+00_JPRB,3.6308E+00_JPRB,5.1459E+00_JPRB,6.2399E+00_JPRB,6.6740E+00_JPRB/)  
+KBO( :, 2,23,10) = (/&
+ & 2.6617E+00_JPRB,2.6604E+00_JPRB,3.5468E+00_JPRB,5.0540E+00_JPRB,6.1652E+00_JPRB,6.6315E+00_JPRB/)  
+KBO( :, 3,23,10) = (/&
+ & 2.6584E+00_JPRB,2.6571E+00_JPRB,3.4703E+00_JPRB,4.9599E+00_JPRB,6.0780E+00_JPRB,6.5824E+00_JPRB/)  
+KBO( :, 4,23,10) = (/&
+ & 2.6872E+00_JPRB,2.6859E+00_JPRB,3.4111E+00_JPRB,4.8587E+00_JPRB,5.9856E+00_JPRB,6.5287E+00_JPRB/)  
+KBO( :, 5,23,10) = (/&
+ & 2.7417E+00_JPRB,2.7405E+00_JPRB,3.3560E+00_JPRB,4.7548E+00_JPRB,5.8884E+00_JPRB,6.4686E+00_JPRB/)  
+KBO( :, 1,24,10) = (/&
+ & 2.3151E+00_JPRB,2.3140E+00_JPRB,3.5886E+00_JPRB,5.2274E+00_JPRB,6.4311E+00_JPRB,6.8789E+00_JPRB/)  
+KBO( :, 2,24,10) = (/&
+ & 2.3230E+00_JPRB,2.3219E+00_JPRB,3.5113E+00_JPRB,5.1442E+00_JPRB,6.3705E+00_JPRB,6.8549E+00_JPRB/)  
+KBO( :, 3,24,10) = (/&
+ & 2.3609E+00_JPRB,2.3598E+00_JPRB,3.4524E+00_JPRB,5.0514E+00_JPRB,6.2984E+00_JPRB,6.8163E+00_JPRB/)  
+KBO( :, 4,24,10) = (/&
+ & 2.4175E+00_JPRB,2.4164E+00_JPRB,3.3989E+00_JPRB,4.9521E+00_JPRB,6.2181E+00_JPRB,6.7710E+00_JPRB/)  
+KBO( :, 5,24,10) = (/&
+ & 2.4762E+00_JPRB,2.4752E+00_JPRB,3.3577E+00_JPRB,4.8533E+00_JPRB,6.1278E+00_JPRB,6.7244E+00_JPRB/)  
+KBO( :, 1,25,10) = (/&
+ & 2.0244E+00_JPRB,2.0235E+00_JPRB,3.5269E+00_JPRB,5.2724E+00_JPRB,6.5740E+00_JPRB,7.0315E+00_JPRB/)  
+KBO( :, 2,25,10) = (/&
+ & 2.0651E+00_JPRB,2.0643E+00_JPRB,3.4750E+00_JPRB,5.1965E+00_JPRB,6.5327E+00_JPRB,7.0283E+00_JPRB/)  
+KBO( :, 3,25,10) = (/&
+ & 2.1229E+00_JPRB,2.1220E+00_JPRB,3.4316E+00_JPRB,5.1098E+00_JPRB,6.4777E+00_JPRB,7.0013E+00_JPRB/)  
+KBO( :, 4,25,10) = (/&
+ & 2.1858E+00_JPRB,2.1849E+00_JPRB,3.3932E+00_JPRB,5.0189E+00_JPRB,6.4050E+00_JPRB,6.9699E+00_JPRB/)  
+KBO( :, 5,25,10) = (/&
+ & 2.2519E+00_JPRB,2.2510E+00_JPRB,3.3680E+00_JPRB,4.9354E+00_JPRB,6.3143E+00_JPRB,6.9411E+00_JPRB/)  
+KBO( :, 1,26,10) = (/&
+ & 1.8038E+00_JPRB,1.8031E+00_JPRB,3.4751E+00_JPRB,5.2741E+00_JPRB,6.6754E+00_JPRB,7.1367E+00_JPRB/)  
+KBO( :, 2,26,10) = (/&
+ & 1.8584E+00_JPRB,1.8577E+00_JPRB,3.4421E+00_JPRB,5.2128E+00_JPRB,6.6468E+00_JPRB,7.1525E+00_JPRB/)  
+KBO( :, 3,26,10) = (/&
+ & 1.9217E+00_JPRB,1.9209E+00_JPRB,3.4089E+00_JPRB,5.1445E+00_JPRB,6.6040E+00_JPRB,7.1457E+00_JPRB/)  
+KBO( :, 4,26,10) = (/&
+ & 1.9824E+00_JPRB,1.9816E+00_JPRB,3.3919E+00_JPRB,5.0736E+00_JPRB,6.5398E+00_JPRB,7.1301E+00_JPRB/)  
+KBO( :, 5,26,10) = (/&
+ & 2.0431E+00_JPRB,2.0423E+00_JPRB,3.3693E+00_JPRB,5.0098E+00_JPRB,6.4614E+00_JPRB,7.1116E+00_JPRB/)  
+KBO( :, 1,27,10) = (/&
+ & 1.6205E+00_JPRB,1.6200E+00_JPRB,3.4312E+00_JPRB,5.2512E+00_JPRB,6.7302E+00_JPRB,7.1916E+00_JPRB/)  
+KBO( :, 2,27,10) = (/&
+ & 1.6821E+00_JPRB,1.6815E+00_JPRB,3.4096E+00_JPRB,5.2107E+00_JPRB,6.7204E+00_JPRB,7.2341E+00_JPRB/)  
+KBO( :, 3,27,10) = (/&
+ & 1.7393E+00_JPRB,1.7387E+00_JPRB,3.3986E+00_JPRB,5.1611E+00_JPRB,6.6901E+00_JPRB,7.2461E+00_JPRB/)  
+KBO( :, 4,27,10) = (/&
+ & 1.7952E+00_JPRB,1.7945E+00_JPRB,3.3849E+00_JPRB,5.1118E+00_JPRB,6.6400E+00_JPRB,7.2521E+00_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART26',1,ZHOOK_HANDLE)
+END SUBROUTINE PART26
+
+
+SUBROUTINE PART27
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART27',0,ZHOOK_HANDLE)
+
+
+KBO( :, 5,27,10) = (/&
+ & 1.8467E+00_JPRB,1.8460E+00_JPRB,3.3678E+00_JPRB,5.0688E+00_JPRB,6.5750E+00_JPRB,7.2529E+00_JPRB/)  
+KBO( :, 1,28,10) = (/&
+ & 1.4581E+00_JPRB,1.4577E+00_JPRB,3.3793E+00_JPRB,5.2151E+00_JPRB,6.7528E+00_JPRB,7.2099E+00_JPRB/)  
+KBO( :, 2,28,10) = (/&
+ & 1.5130E+00_JPRB,1.5126E+00_JPRB,3.3785E+00_JPRB,5.1947E+00_JPRB,6.7653E+00_JPRB,7.2740E+00_JPRB/)  
+KBO( :, 3,28,10) = (/&
+ & 1.5669E+00_JPRB,1.5664E+00_JPRB,3.3810E+00_JPRB,5.1664E+00_JPRB,6.7512E+00_JPRB,7.3192E+00_JPRB/)  
+KBO( :, 4,28,10) = (/&
+ & 1.6172E+00_JPRB,1.6166E+00_JPRB,3.3732E+00_JPRB,5.1425E+00_JPRB,6.7177E+00_JPRB,7.3590E+00_JPRB/)  
+KBO( :, 5,28,10) = (/&
+ & 1.6631E+00_JPRB,1.6625E+00_JPRB,3.3694E+00_JPRB,5.1109E+00_JPRB,6.6624E+00_JPRB,7.3782E+00_JPRB/)  
+KBO( :, 1,29,10) = (/&
+ & 1.3022E+00_JPRB,1.3019E+00_JPRB,3.3270E+00_JPRB,5.1728E+00_JPRB,6.7559E+00_JPRB,7.2096E+00_JPRB/)  
+KBO( :, 2,29,10) = (/&
+ & 1.3533E+00_JPRB,1.3529E+00_JPRB,3.3473E+00_JPRB,5.1723E+00_JPRB,6.7905E+00_JPRB,7.3069E+00_JPRB/)  
+KBO( :, 3,29,10) = (/&
+ & 1.4031E+00_JPRB,1.4027E+00_JPRB,3.3571E+00_JPRB,5.1703E+00_JPRB,6.7965E+00_JPRB,7.3925E+00_JPRB/)  
+KBO( :, 4,29,10) = (/&
+ & 1.4491E+00_JPRB,1.4487E+00_JPRB,3.3643E+00_JPRB,5.1652E+00_JPRB,6.7741E+00_JPRB,7.4637E+00_JPRB/)  
+KBO( :, 5,29,10) = (/&
+ & 1.4926E+00_JPRB,1.4921E+00_JPRB,3.3697E+00_JPRB,5.1473E+00_JPRB,6.7261E+00_JPRB,7.4940E+00_JPRB/)  
+KBO( :, 1,30,10) = (/&
+ & 1.1600E+00_JPRB,1.1597E+00_JPRB,3.2811E+00_JPRB,5.1242E+00_JPRB,6.7455E+00_JPRB,7.2055E+00_JPRB/)  
+KBO( :, 2,30,10) = (/&
+ & 1.2064E+00_JPRB,1.2061E+00_JPRB,3.3125E+00_JPRB,5.1497E+00_JPRB,6.8027E+00_JPRB,7.3456E+00_JPRB/)  
+KBO( :, 3,30,10) = (/&
+ & 1.2511E+00_JPRB,1.2508E+00_JPRB,3.3366E+00_JPRB,5.1707E+00_JPRB,6.8233E+00_JPRB,7.4712E+00_JPRB/)  
+KBO( :, 4,30,10) = (/&
+ & 1.2939E+00_JPRB,1.2935E+00_JPRB,3.3556E+00_JPRB,5.1801E+00_JPRB,6.8143E+00_JPRB,7.5611E+00_JPRB/)  
+KBO( :, 5,30,10) = (/&
+ & 1.3350E+00_JPRB,1.3346E+00_JPRB,3.3660E+00_JPRB,5.1735E+00_JPRB,6.7754E+00_JPRB,7.6031E+00_JPRB/)  
+KBO( :, 1,31,10) = (/&
+ & 1.0335E+00_JPRB,1.0333E+00_JPRB,3.2413E+00_JPRB,5.0768E+00_JPRB,6.7328E+00_JPRB,7.2247E+00_JPRB/)  
+KBO( :, 2,31,10) = (/&
+ & 1.0751E+00_JPRB,1.0749E+00_JPRB,3.2817E+00_JPRB,5.1294E+00_JPRB,6.8096E+00_JPRB,7.4118E+00_JPRB/)  
+KBO( :, 3,31,10) = (/&
+ & 1.1154E+00_JPRB,1.1152E+00_JPRB,3.3173E+00_JPRB,5.1678E+00_JPRB,6.8467E+00_JPRB,7.5648E+00_JPRB/)  
+KBO( :, 4,31,10) = (/&
+ & 1.1549E+00_JPRB,1.1546E+00_JPRB,3.3453E+00_JPRB,5.1899E+00_JPRB,6.8485E+00_JPRB,7.6626E+00_JPRB/)  
+KBO( :, 5,31,10) = (/&
+ & 1.1976E+00_JPRB,1.1973E+00_JPRB,3.3597E+00_JPRB,5.1968E+00_JPRB,6.8174E+00_JPRB,7.7173E+00_JPRB/)  
+KBO( :, 1,32,10) = (/&
+ & 9.2196E-01_JPRB,9.2184E-01_JPRB,3.2061E+00_JPRB,5.0420E+00_JPRB,6.7251E+00_JPRB,7.2717E+00_JPRB/)  
+KBO( :, 2,32,10) = (/&
+ & 9.5916E-01_JPRB,9.5901E-01_JPRB,3.2581E+00_JPRB,5.1143E+00_JPRB,6.8187E+00_JPRB,7.4921E+00_JPRB/)  
+KBO( :, 3,32,10) = (/&
+ & 9.9613E-01_JPRB,9.9593E-01_JPRB,3.3030E+00_JPRB,5.1678E+00_JPRB,6.8677E+00_JPRB,7.6515E+00_JPRB/)  
+KBO( :, 4,32,10) = (/&
+ & 1.0359E+00_JPRB,1.0357E+00_JPRB,3.3356E+00_JPRB,5.2002E+00_JPRB,6.8779E+00_JPRB,7.7596E+00_JPRB/)  
+KBO( :, 5,32,10) = (/&
+ & 1.0855E+00_JPRB,1.0851E+00_JPRB,3.3519E+00_JPRB,5.2172E+00_JPRB,6.8517E+00_JPRB,7.8246E+00_JPRB/)  
+KBO( :, 1,33,10) = (/&
+ & 8.2444E-01_JPRB,8.2438E-01_JPRB,3.1786E+00_JPRB,5.0173E+00_JPRB,6.7243E+00_JPRB,7.3448E+00_JPRB/)  
+KBO( :, 2,33,10) = (/&
+ & 8.5838E-01_JPRB,8.5826E-01_JPRB,3.2411E+00_JPRB,5.1061E+00_JPRB,6.8299E+00_JPRB,7.5783E+00_JPRB/)  
+KBO( :, 3,33,10) = (/&
+ & 8.9425E-01_JPRB,8.9407E-01_JPRB,3.2909E+00_JPRB,5.1715E+00_JPRB,6.8889E+00_JPRB,7.7451E+00_JPRB/)  
+KBO( :, 4,33,10) = (/&
+ & 9.3902E-01_JPRB,9.3875E-01_JPRB,3.3252E+00_JPRB,5.2146E+00_JPRB,6.9056E+00_JPRB,7.8681E+00_JPRB/)  
+KBO( :, 5,33,10) = (/&
+ & 9.9963E-01_JPRB,9.9926E-01_JPRB,3.3429E+00_JPRB,5.2364E+00_JPRB,6.8820E+00_JPRB,7.9383E+00_JPRB/)  
+KBO( :, 1,34,10) = (/&
+ & 7.3808E-01_JPRB,7.3807E-01_JPRB,3.1554E+00_JPRB,5.0005E+00_JPRB,6.7270E+00_JPRB,7.4193E+00_JPRB/)  
+KBO( :, 2,34,10) = (/&
+ & 7.7041E-01_JPRB,7.7031E-01_JPRB,3.2245E+00_JPRB,5.1037E+00_JPRB,6.8428E+00_JPRB,7.6564E+00_JPRB/)  
+KBO( :, 3,34,10) = (/&
+ & 8.0927E-01_JPRB,8.0908E-01_JPRB,3.2785E+00_JPRB,5.1786E+00_JPRB,6.9090E+00_JPRB,7.8421E+00_JPRB/)  
+KBO( :, 4,34,10) = (/&
+ & 8.6226E-01_JPRB,8.6198E-01_JPRB,3.3161E+00_JPRB,5.2290E+00_JPRB,6.9264E+00_JPRB,7.9654E+00_JPRB/)  
+KBO( :, 5,34,10) = (/&
+ & 9.3161E-01_JPRB,9.3129E-01_JPRB,3.3332E+00_JPRB,5.2535E+00_JPRB,6.9068E+00_JPRB,8.0359E+00_JPRB/)  
+KBO( :, 1,35,10) = (/&
+ & 6.6091E-01_JPRB,6.6090E-01_JPRB,3.1297E+00_JPRB,4.9826E+00_JPRB,6.7231E+00_JPRB,7.4730E+00_JPRB/)  
+KBO( :, 2,35,10) = (/&
+ & 6.9343E-01_JPRB,6.9337E-01_JPRB,3.2054E+00_JPRB,5.0985E+00_JPRB,6.8504E+00_JPRB,7.7289E+00_JPRB/)  
+KBO( :, 3,35,10) = (/&
+ & 7.3707E-01_JPRB,7.3689E-01_JPRB,3.2647E+00_JPRB,5.1833E+00_JPRB,6.9233E+00_JPRB,7.9244E+00_JPRB/)  
+KBO( :, 4,35,10) = (/&
+ & 7.9689E-01_JPRB,7.9665E-01_JPRB,3.3047E+00_JPRB,5.2421E+00_JPRB,6.9456E+00_JPRB,8.0506E+00_JPRB/)  
+KBO( :, 5,35,10) = (/&
+ & 8.7135E-01_JPRB,8.7107E-01_JPRB,3.3248E+00_JPRB,5.2688E+00_JPRB,6.9299E+00_JPRB,8.1175E+00_JPRB/)  
+KBO( :, 1,36,10) = (/&
+ & 5.9261E-01_JPRB,5.9263E-01_JPRB,3.0998E+00_JPRB,4.9572E+00_JPRB,6.7063E+00_JPRB,7.5006E+00_JPRB/)  
+KBO( :, 2,36,10) = (/&
+ & 6.2616E-01_JPRB,6.2611E-01_JPRB,3.1830E+00_JPRB,5.0867E+00_JPRB,6.8489E+00_JPRB,7.7811E+00_JPRB/)  
+KBO( :, 3,36,10) = (/&
+ & 6.7343E-01_JPRB,6.7330E-01_JPRB,3.2478E+00_JPRB,5.1832E+00_JPRB,6.9309E+00_JPRB,7.9826E+00_JPRB/)  
+KBO( :, 4,36,10) = (/&
+ & 7.3660E-01_JPRB,7.3640E-01_JPRB,3.2928E+00_JPRB,5.2484E+00_JPRB,6.9611E+00_JPRB,8.1184E+00_JPRB/)  
+KBO( :, 5,36,10) = (/&
+ & 8.1395E-01_JPRB,8.1372E-01_JPRB,3.3165E+00_JPRB,5.2807E+00_JPRB,6.9512E+00_JPRB,8.1925E+00_JPRB/)  
+KBO( :, 1,37,10) = (/&
+ & 5.2989E-01_JPRB,5.2996E-01_JPRB,3.0580E+00_JPRB,4.9104E+00_JPRB,6.6637E+00_JPRB,7.4740E+00_JPRB/)  
+KBO( :, 2,37,10) = (/&
+ & 5.6419E-01_JPRB,5.6414E-01_JPRB,3.1506E+00_JPRB,5.0576E+00_JPRB,6.8262E+00_JPRB,7.7836E+00_JPRB/)  
+KBO( :, 3,37,10) = (/&
+ & 6.1196E-01_JPRB,6.1186E-01_JPRB,3.2232E+00_JPRB,5.1694E+00_JPRB,6.9254E+00_JPRB,8.0021E+00_JPRB/)  
+KBO( :, 4,37,10) = (/&
+ & 6.7516E-01_JPRB,6.7503E-01_JPRB,3.2773E+00_JPRB,5.2468E+00_JPRB,6.9696E+00_JPRB,8.1546E+00_JPRB/)  
+KBO( :, 5,37,10) = (/&
+ & 7.5242E-01_JPRB,7.5225E-01_JPRB,3.3077E+00_JPRB,5.2880E+00_JPRB,6.9712E+00_JPRB,8.2436E+00_JPRB/)  
+KBO( :, 1,38,10) = (/&
+ & 4.7505E-01_JPRB,4.7513E-01_JPRB,3.0176E+00_JPRB,4.8628E+00_JPRB,6.6172E+00_JPRB,7.4494E+00_JPRB/)  
+KBO( :, 2,38,10) = (/&
+ & 5.1071E-01_JPRB,5.1070E-01_JPRB,3.1197E+00_JPRB,5.0269E+00_JPRB,6.7975E+00_JPRB,7.7810E+00_JPRB/)  
+KBO( :, 3,38,10) = (/&
+ & 5.5877E-01_JPRB,5.5872E-01_JPRB,3.2002E+00_JPRB,5.1526E+00_JPRB,6.9148E+00_JPRB,8.0180E+00_JPRB/)  
+KBO( :, 4,38,10) = (/&
+ & 6.2123E-01_JPRB,6.2116E-01_JPRB,3.2619E+00_JPRB,5.2424E+00_JPRB,6.9725E+00_JPRB,8.1853E+00_JPRB/)  
+KBO( :, 5,38,10) = (/&
+ & 6.9700E-01_JPRB,6.9689E-01_JPRB,3.2986E+00_JPRB,5.2927E+00_JPRB,6.9850E+00_JPRB,8.2945E+00_JPRB/)  
+KBO( :, 1,39,10) = (/&
+ & 4.2667E-01_JPRB,4.2675E-01_JPRB,2.9792E+00_JPRB,4.8162E+00_JPRB,6.5678E+00_JPRB,7.4301E+00_JPRB/)  
+KBO( :, 2,39,10) = (/&
+ & 4.6368E-01_JPRB,4.6371E-01_JPRB,3.0898E+00_JPRB,4.9949E+00_JPRB,6.7657E+00_JPRB,7.7791E+00_JPRB/)  
+KBO( :, 3,39,10) = (/&
+ & 5.1271E-01_JPRB,5.1271E-01_JPRB,3.1789E+00_JPRB,5.1345E+00_JPRB,6.8995E+00_JPRB,8.0327E+00_JPRB/)  
+KBO( :, 4,39,10) = (/&
+ & 5.7418E-01_JPRB,5.7416E-01_JPRB,3.2474E+00_JPRB,5.2350E+00_JPRB,6.9705E+00_JPRB,8.2154E+00_JPRB/)  
+KBO( :, 5,39,10) = (/&
+ & 6.4813E-01_JPRB,6.4808E-01_JPRB,3.2906E+00_JPRB,5.2946E+00_JPRB,6.9954E+00_JPRB,8.3481E+00_JPRB/)  
+KBO( :, 1,40,10) = (/&
+ & 3.8059E-01_JPRB,3.8066E-01_JPRB,2.9294E+00_JPRB,4.7482E+00_JPRB,6.4900E+00_JPRB,7.3413E+00_JPRB/)  
+KBO( :, 2,40,10) = (/&
+ & 4.1764E-01_JPRB,4.1768E-01_JPRB,3.0517E+00_JPRB,4.9455E+00_JPRB,6.7137E+00_JPRB,7.7220E+00_JPRB/)  
+KBO( :, 3,40,10) = (/&
+ & 4.6631E-01_JPRB,4.6635E-01_JPRB,3.1498E+00_JPRB,5.1004E+00_JPRB,6.8682E+00_JPRB,8.0003E+00_JPRB/)  
+KBO( :, 4,40,10) = (/&
+ & 5.2644E-01_JPRB,5.2648E-01_JPRB,3.2265E+00_JPRB,5.2162E+00_JPRB,6.9603E+00_JPRB,8.2072E+00_JPRB/)  
+KBO( :, 5,40,10) = (/&
+ & 5.9702E-01_JPRB,5.9703E-01_JPRB,3.2787E+00_JPRB,5.2882E+00_JPRB,7.0004E+00_JPRB,8.3571E+00_JPRB/)  
+KBO( :, 1,41,10) = (/&
+ & 3.3906E-01_JPRB,3.3914E-01_JPRB,2.8764E+00_JPRB,4.6750E+00_JPRB,6.4031E+00_JPRB,7.2374E+00_JPRB/)  
+KBO( :, 2,41,10) = (/&
+ & 3.7555E-01_JPRB,3.7562E-01_JPRB,3.0116E+00_JPRB,4.8899E+00_JPRB,6.6527E+00_JPRB,7.6510E+00_JPRB/)  
+KBO( :, 3,41,10) = (/&
+ & 4.2374E-01_JPRB,4.2382E-01_JPRB,3.1192E+00_JPRB,5.0596E+00_JPRB,6.8298E+00_JPRB,7.9584E+00_JPRB/)  
+KBO( :, 4,41,10) = (/&
+ & 4.8252E-01_JPRB,4.8261E-01_JPRB,3.2032E+00_JPRB,5.1909E+00_JPRB,6.9423E+00_JPRB,8.1883E+00_JPRB/)  
+KBO( :, 5,41,10) = (/&
+ & 5.5055E-01_JPRB,5.5059E-01_JPRB,3.2647E+00_JPRB,5.2767E+00_JPRB,6.9993E+00_JPRB,8.3564E+00_JPRB/)  
+KBO( :, 1,42,10) = (/&
+ & 3.0216E-01_JPRB,3.0227E-01_JPRB,2.8228E+00_JPRB,4.6001E+00_JPRB,6.3100E+00_JPRB,7.1283E+00_JPRB/)  
+KBO( :, 2,42,10) = (/&
+ & 3.3749E-01_JPRB,3.3759E-01_JPRB,2.9700E+00_JPRB,4.8303E+00_JPRB,6.5864E+00_JPRB,7.5749E+00_JPRB/)  
+KBO( :, 3,42,10) = (/&
+ & 3.8480E-01_JPRB,3.8492E-01_JPRB,3.0865E+00_JPRB,5.0162E+00_JPRB,6.7847E+00_JPRB,7.9100E+00_JPRB/)  
+KBO( :, 4,42,10) = (/&
+ & 4.4288E-01_JPRB,4.4301E-01_JPRB,3.1790E+00_JPRB,5.1608E+00_JPRB,6.9184E+00_JPRB,8.1647E+00_JPRB/)  
+KBO( :, 5,42,10) = (/&
+ & 5.0928E-01_JPRB,5.0935E-01_JPRB,3.2490E+00_JPRB,5.2607E+00_JPRB,6.9918E+00_JPRB,8.3533E+00_JPRB/)  
+KBO( :, 1,43,10) = (/&
+ & 2.6768E-01_JPRB,2.6781E-01_JPRB,2.7595E+00_JPRB,4.5068E+00_JPRB,6.1924E+00_JPRB,6.9816E+00_JPRB/)  
+KBO( :, 2,43,10) = (/&
+ & 3.0121E-01_JPRB,3.0134E-01_JPRB,2.9195E+00_JPRB,4.7538E+00_JPRB,6.4985E+00_JPRB,7.4658E+00_JPRB/)  
+KBO( :, 3,43,10) = (/&
+ & 3.4636E-01_JPRB,3.4652E-01_JPRB,3.0475E+00_JPRB,4.9586E+00_JPRB,6.7250E+00_JPRB,7.8363E+00_JPRB/)  
+KBO( :, 4,43,10) = (/&
+ & 4.0279E-01_JPRB,4.0294E-01_JPRB,3.1487E+00_JPRB,5.1186E+00_JPRB,6.8816E+00_JPRB,8.1193E+00_JPRB/)  
+KBO( :, 5,43,10) = (/&
+ & 4.6775E-01_JPRB,4.6784E-01_JPRB,3.2281E+00_JPRB,5.2365E+00_JPRB,6.9765E+00_JPRB,8.3335E+00_JPRB/)  
+KBO( :, 1,44,10) = (/&
+ & 2.3663E-01_JPRB,2.3679E-01_JPRB,2.6889E+00_JPRB,4.3996E+00_JPRB,6.0559E+00_JPRB,6.8135E+00_JPRB/)  
+KBO( :, 2,44,10) = (/&
+ & 2.6748E-01_JPRB,2.6764E-01_JPRB,2.8618E+00_JPRB,4.6667E+00_JPRB,6.3943E+00_JPRB,7.3355E+00_JPRB/)  
+KBO( :, 3,44,10) = (/&
+ & 3.1007E-01_JPRB,3.1028E-01_JPRB,3.0033E+00_JPRB,4.8904E+00_JPRB,6.6510E+00_JPRB,7.7469E+00_JPRB/)  
+KBO( :, 4,44,10) = (/&
+ & 3.6426E-01_JPRB,3.6444E-01_JPRB,3.1143E+00_JPRB,5.0666E+00_JPRB,6.8341E+00_JPRB,8.0609E+00_JPRB/)  
+KBO( :, 5,44,10) = (/&
+ & 4.2790E-01_JPRB,4.2800E-01_JPRB,3.2017E+00_JPRB,5.2027E+00_JPRB,6.9510E+00_JPRB,8.3005E+00_JPRB/)  
+KBO( :, 1,45,10) = (/&
+ & 2.0943E-01_JPRB,2.0961E-01_JPRB,2.6149E+00_JPRB,4.2870E+00_JPRB,5.9088E+00_JPRB,6.6376E+00_JPRB/)  
+KBO( :, 2,45,10) = (/&
+ & 2.3748E-01_JPRB,2.3768E-01_JPRB,2.7996E+00_JPRB,4.5739E+00_JPRB,6.2800E+00_JPRB,7.1981E+00_JPRB/)  
+KBO( :, 3,45,10) = (/&
+ & 2.7717E-01_JPRB,2.7741E-01_JPRB,2.9545E+00_JPRB,4.8149E+00_JPRB,6.5679E+00_JPRB,7.6498E+00_JPRB/)  
+KBO( :, 4,45,10) = (/&
+ & 3.2881E-01_JPRB,3.2900E-01_JPRB,3.0769E+00_JPRB,5.0100E+00_JPRB,6.7767E+00_JPRB,7.9956E+00_JPRB/)  
+KBO( :, 5,45,10) = (/&
+ & 3.9089E-01_JPRB,3.9099E-01_JPRB,3.1729E+00_JPRB,5.1617E+00_JPRB,6.9184E+00_JPRB,8.2647E+00_JPRB/)  
+KBO( :, 1,46,10) = (/&
+ & 1.8488E-01_JPRB,1.8509E-01_JPRB,2.5337E+00_JPRB,4.1619E+00_JPRB,5.7408E+00_JPRB,6.4343E+00_JPRB/)  
+KBO( :, 2,46,10) = (/&
+ & 2.1029E-01_JPRB,2.1052E-01_JPRB,2.7308E+00_JPRB,4.4685E+00_JPRB,6.1476E+00_JPRB,7.0351E+00_JPRB/)  
+KBO( :, 3,46,10) = (/&
+ & 2.4641E-01_JPRB,2.4669E-01_JPRB,2.8991E+00_JPRB,4.7282E+00_JPRB,6.4680E+00_JPRB,7.5299E+00_JPRB/)  
+KBO( :, 4,46,10) = (/&
+ & 2.9502E-01_JPRB,2.9523E-01_JPRB,3.0336E+00_JPRB,4.9428E+00_JPRB,6.7064E+00_JPRB,7.9122E+00_JPRB/)  
+KBO( :, 5,46,10) = (/&
+ & 3.5492E-01_JPRB,3.5504E-01_JPRB,3.1395E+00_JPRB,5.1108E+00_JPRB,6.8742E+00_JPRB,8.2122E+00_JPRB/)  
+KBO( :, 1,47,10) = (/&
+ & 1.6240E-01_JPRB,1.6263E-01_JPRB,2.4388E+00_JPRB,4.0166E+00_JPRB,5.5397E+00_JPRB,6.1804E+00_JPRB/)  
+KBO( :, 2,47,10) = (/&
+ & 1.8504E-01_JPRB,1.8532E-01_JPRB,2.6496E+00_JPRB,4.3442E+00_JPRB,5.9864E+00_JPRB,6.8265E+00_JPRB/)  
+KBO( :, 3,47,10) = (/&
+ & 2.1735E-01_JPRB,2.1764E-01_JPRB,2.8316E+00_JPRB,4.6250E+00_JPRB,6.3441E+00_JPRB,7.3704E+00_JPRB/)  
+KBO( :, 4,47,10) = (/&
+ & 2.6219E-01_JPRB,2.6243E-01_JPRB,2.9807E+00_JPRB,4.8597E+00_JPRB,6.6165E+00_JPRB,7.7948E+00_JPRB/)  
+KBO( :, 5,47,10) = (/&
+ & 3.1904E-01_JPRB,3.1916E-01_JPRB,3.0987E+00_JPRB,5.0473E+00_JPRB,6.8132E+00_JPRB,8.1318E+00_JPRB/)  
+KBO( :, 1,48,10) = (/&
+ & 1.4274E-01_JPRB,1.4309E-01_JPRB,2.3378E+00_JPRB,3.8621E+00_JPRB,5.3223E+00_JPRB,5.9129E+00_JPRB/)  
+KBO( :, 2,48,10) = (/&
+ & 1.6289E-01_JPRB,1.6319E-01_JPRB,2.5631E+00_JPRB,4.2108E+00_JPRB,5.8103E+00_JPRB,6.6062E+00_JPRB/)  
+KBO( :, 3,48,10) = (/&
+ & 1.9167E-01_JPRB,1.9198E-01_JPRB,2.7584E+00_JPRB,4.5133E+00_JPRB,6.2051E+00_JPRB,7.1967E+00_JPRB/)  
+KBO( :, 4,48,10) = (/&
+ & 2.3239E-01_JPRB,2.3264E-01_JPRB,2.9226E+00_JPRB,4.7680E+00_JPRB,6.5135E+00_JPRB,7.6665E+00_JPRB/)  
+KBO( :, 5,48,10) = (/&
+ & 2.8577E-01_JPRB,2.8592E-01_JPRB,3.0525E+00_JPRB,4.9759E+00_JPRB,6.7401E+00_JPRB,8.0423E+00_JPRB/)  
+KBO( :, 1,49,10) = (/&
+ & 1.2506E-01_JPRB,1.2569E-01_JPRB,2.2315E+00_JPRB,3.6984E+00_JPRB,5.0916E+00_JPRB,5.6363E+00_JPRB/)  
+KBO( :, 2,49,10) = (/&
+ & 1.4348E-01_JPRB,1.4383E-01_JPRB,2.4717E+00_JPRB,4.0691E+00_JPRB,5.6178E+00_JPRB,6.3745E+00_JPRB/)  
+KBO( :, 3,49,10) = (/&
+ & 1.6900E-01_JPRB,1.6934E-01_JPRB,2.6802E+00_JPRB,4.3928E+00_JPRB,6.0515E+00_JPRB,7.0127E+00_JPRB/)  
+KBO( :, 4,49,10) = (/&
+ & 2.0581E-01_JPRB,2.0606E-01_JPRB,2.8586E+00_JPRB,4.6682E+00_JPRB,6.3962E+00_JPRB,7.5292E+00_JPRB/)  
+KBO( :, 5,49,10) = (/&
+ & 2.5518E-01_JPRB,2.5533E-01_JPRB,3.0025E+00_JPRB,4.8968E+00_JPRB,6.6558E+00_JPRB,7.9457E+00_JPRB/)  
+KBO( :, 1,50,10) = (/&
+ & 1.0959E-01_JPRB,1.1070E-01_JPRB,2.1267E+00_JPRB,3.5368E+00_JPRB,4.8615E+00_JPRB,5.3538E+00_JPRB/)  
+KBO( :, 2,50,10) = (/&
+ & 1.2689E-01_JPRB,1.2744E-01_JPRB,2.3809E+00_JPRB,3.9302E+00_JPRB,5.4235E+00_JPRB,6.1306E+00_JPRB/)  
+KBO( :, 3,50,10) = (/&
+ & 1.4973E-01_JPRB,1.5009E-01_JPRB,2.6019E+00_JPRB,4.2725E+00_JPRB,5.8946E+00_JPRB,6.8112E+00_JPRB/)  
+KBO( :, 4,50,10) = (/&
+ & 1.8304E-01_JPRB,1.8331E-01_JPRB,2.7927E+00_JPRB,4.5675E+00_JPRB,6.2731E+00_JPRB,7.3745E+00_JPRB/)  
+KBO( :, 5,50,10) = (/&
+ & 2.2866E-01_JPRB,2.2882E-01_JPRB,2.9508E+00_JPRB,4.8146E+00_JPRB,6.5657E+00_JPRB,7.8282E+00_JPRB/)  
+KBO( :, 1,51,10) = (/&
+ & 9.5768E-02_JPRB,9.7661E-02_JPRB,2.0216E+00_JPRB,3.3751E+00_JPRB,4.6268E+00_JPRB,5.0597E+00_JPRB/)  
+KBO( :, 2,51,10) = (/&
+ & 1.1216E-01_JPRB,1.1307E-01_JPRB,2.2881E+00_JPRB,3.7875E+00_JPRB,5.2217E+00_JPRB,5.8744E+00_JPRB/)  
+KBO( :, 3,51,10) = (/&
+ & 1.3299E-01_JPRB,1.3343E-01_JPRB,2.5219E+00_JPRB,4.1480E+00_JPRB,5.7284E+00_JPRB,6.5943E+00_JPRB/)  
+KBO( :, 4,51,10) = (/&
+ & 1.6308E-01_JPRB,1.6337E-01_JPRB,2.7248E+00_JPRB,4.4626E+00_JPRB,6.1415E+00_JPRB,7.2033E+00_JPRB/)  
+KBO( :, 5,51,10) = (/&
+ & 2.0524E-01_JPRB,2.0541E-01_JPRB,2.8961E+00_JPRB,4.7281E+00_JPRB,6.4666E+00_JPRB,7.6945E+00_JPRB/)  
+KBO( :, 1,52,10) = (/&
+ & 8.3171E-02_JPRB,8.6221E-02_JPRB,1.9144E+00_JPRB,3.2076E+00_JPRB,4.3819E+00_JPRB,4.7580E+00_JPRB/)  
+KBO( :, 2,52,10) = (/&
+ & 9.8912E-02_JPRB,1.0039E-01_JPRB,2.1906E+00_JPRB,3.6370E+00_JPRB,5.0088E+00_JPRB,5.6089E+00_JPRB/)  
+KBO( :, 3,52,10) = (/&
+ & 1.1809E-01_JPRB,1.1874E-01_JPRB,2.4381E+00_JPRB,4.0185E+00_JPRB,5.5505E+00_JPRB,6.3684E+00_JPRB/)  
+KBO( :, 4,52,10) = (/&
+ & 1.4539E-01_JPRB,1.4572E-01_JPRB,2.6526E+00_JPRB,4.3511E+00_JPRB,5.9980E+00_JPRB,7.0214E+00_JPRB/)  
+KBO( :, 5,52,10) = (/&
+ & 1.8406E-01_JPRB,1.8425E-01_JPRB,2.8362E+00_JPRB,4.6354E+00_JPRB,6.3565E+00_JPRB,7.5532E+00_JPRB/)  
+KBO( :, 1,53,10) = (/&
+ & 7.1760E-02_JPRB,7.6225E-02_JPRB,1.8049E+00_JPRB,3.0338E+00_JPRB,4.1285E+00_JPRB,4.4543E+00_JPRB/)  
+KBO( :, 2,53,10) = (/&
+ & 8.6733E-02_JPRB,8.9133E-02_JPRB,2.0890E+00_JPRB,3.4808E+00_JPRB,4.7838E+00_JPRB,5.3384E+00_JPRB/)  
+KBO( :, 3,53,10) = (/&
+ & 1.0470E-01_JPRB,1.0571E-01_JPRB,2.3496E+00_JPRB,3.8826E+00_JPRB,5.3593E+00_JPRB,6.1340E+00_JPRB/)  
+KBO( :, 4,53,10) = (/&
+ & 1.2964E-01_JPRB,1.3004E-01_JPRB,2.5758E+00_JPRB,4.2328E+00_JPRB,5.8432E+00_JPRB,6.8310E+00_JPRB/)  
+KBO( :, 5,53,10) = (/&
+ & 1.6486E-01_JPRB,1.6505E-01_JPRB,2.7718E+00_JPRB,4.5358E+00_JPRB,6.2341E+00_JPRB,7.4042E+00_JPRB/)  
+KBO( :, 1,54,10) = (/&
+ & 6.1882E-02_JPRB,6.7940E-02_JPRB,1.7027E+00_JPRB,2.8705E+00_JPRB,3.8894E+00_JPRB,4.1460E+00_JPRB/)  
+KBO( :, 2,54,10) = (/&
+ & 7.6155E-02_JPRB,7.9684E-02_JPRB,1.9930E+00_JPRB,3.3325E+00_JPRB,4.5678E+00_JPRB,5.0509E+00_JPRB/)  
+KBO( :, 3,54,10) = (/&
+ & 9.3240E-02_JPRB,9.4826E-02_JPRB,2.2641E+00_JPRB,3.7513E+00_JPRB,5.1730E+00_JPRB,5.8771E+00_JPRB/)  
+KBO( :, 4,54,10) = (/&
+ & 1.1632E-01_JPRB,1.1690E-01_JPRB,2.5020E+00_JPRB,4.1182E+00_JPRB,5.6892E+00_JPRB,6.6127E+00_JPRB/)  
+KBO( :, 5,54,10) = (/&
+ & 1.4865E-01_JPRB,1.4887E-01_JPRB,2.7085E+00_JPRB,4.4384E+00_JPRB,6.1110E+00_JPRB,7.2268E+00_JPRB/)  
+KBO( :, 1,55,10) = (/&
+ & 5.3143E-02_JPRB,6.0929E-02_JPRB,1.6034E+00_JPRB,2.7108E+00_JPRB,3.6519E+00_JPRB,3.8346E+00_JPRB/)  
+KBO( :, 2,55,10) = (/&
+ & 6.6664E-02_JPRB,7.1549E-02_JPRB,1.8993E+00_JPRB,3.1854E+00_JPRB,4.3528E+00_JPRB,4.7449E+00_JPRB/)  
+KBO( :, 3,55,10) = (/&
+ & 8.2988E-02_JPRB,8.5434E-02_JPRB,2.1781E+00_JPRB,3.6188E+00_JPRB,4.9850E+00_JPRB,5.6016E+00_JPRB/)  
+KBO( :, 4,55,10) = (/&
+ & 1.0455E-01_JPRB,1.0541E-01_JPRB,2.4283E+00_JPRB,4.0035E+00_JPRB,5.5314E+00_JPRB,6.3670E+00_JPRB/)  
+KBO( :, 5,55,10) = (/&
+ & 1.3450E-01_JPRB,1.3475E-01_JPRB,2.6447E+00_JPRB,4.3400E+00_JPRB,5.9837E+00_JPRB,7.0246E+00_JPRB/)  
+KBO( :, 1,56,10) = (/&
+ & 4.5363E-02_JPRB,5.4761E-02_JPRB,1.5057E+00_JPRB,2.5465E+00_JPRB,3.4107E+00_JPRB,3.5270E+00_JPRB/)  
+KBO( :, 2,56,10) = (/&
+ & 5.8005E-02_JPRB,6.4431E-02_JPRB,1.8040E+00_JPRB,3.0340E+00_JPRB,4.1322E+00_JPRB,4.4343E+00_JPRB/)  
+KBO( :, 3,56,10) = (/&
+ & 7.3593E-02_JPRB,7.7144E-02_JPRB,2.0898E+00_JPRB,3.4823E+00_JPRB,4.7884E+00_JPRB,5.3173E+00_JPRB/)  
+KBO( :, 4,56,10) = (/&
+ & 9.3887E-02_JPRB,9.5237E-02_JPRB,2.3510E+00_JPRB,3.8850E+00_JPRB,5.3647E+00_JPRB,6.1108E+00_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART27',1,ZHOOK_HANDLE)
+END SUBROUTINE PART27
+
+
+SUBROUTINE PART28
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART28',0,ZHOOK_HANDLE)
+
+
+KBO( :, 5,56,10) = (/&
+ & 1.2181E-01_JPRB,1.2219E-01_JPRB,2.5776E+00_JPRB,4.2361E+00_JPRB,5.8482E+00_JPRB,6.8081E+00_JPRB/)  
+KBO( :, 1,57,10) = (/&
+ & 3.8484E-02_JPRB,4.9332E-02_JPRB,1.4087E+00_JPRB,2.3775E+00_JPRB,3.1673E+00_JPRB,3.2197E+00_JPRB/)  
+KBO( :, 2,57,10) = (/&
+ & 5.0147E-02_JPRB,5.8221E-02_JPRB,1.7073E+00_JPRB,2.8793E+00_JPRB,3.9049E+00_JPRB,4.1273E+00_JPRB/)  
+KBO( :, 3,57,10) = (/&
+ & 6.4931E-02_JPRB,6.9815E-02_JPRB,1.9987E+00_JPRB,3.3420E+00_JPRB,4.5839E+00_JPRB,5.0218E+00_JPRB/)  
+KBO( :, 4,57,10) = (/&
+ & 8.4109E-02_JPRB,8.6186E-02_JPRB,2.2698E+00_JPRB,3.7606E+00_JPRB,5.1878E+00_JPRB,5.8449E+00_JPRB/)  
+KBO( :, 5,57,10) = (/&
+ & 1.1023E-01_JPRB,1.1081E-01_JPRB,2.5075E+00_JPRB,4.1274E+00_JPRB,5.7022E+00_JPRB,6.5747E+00_JPRB/)  
+KBO( :, 1,58,10) = (/&
+ & 3.2626E-02_JPRB,4.4633E-02_JPRB,1.3174E+00_JPRB,2.2156E+00_JPRB,2.9363E+00_JPRB,2.9278E+00_JPRB/)  
+KBO( :, 2,58,10) = (/&
+ & 4.3298E-02_JPRB,5.2922E-02_JPRB,1.6144E+00_JPRB,2.7304E+00_JPRB,3.6831E+00_JPRB,3.8325E+00_JPRB/)  
+KBO( :, 3,58,10) = (/&
+ & 5.7247E-02_JPRB,6.3597E-02_JPRB,1.9107E+00_JPRB,3.2043E+00_JPRB,4.3821E+00_JPRB,4.7236E+00_JPRB/)  
+KBO( :, 4,58,10) = (/&
+ & 7.5473E-02_JPRB,7.8525E-02_JPRB,2.1894E+00_JPRB,3.6369E+00_JPRB,5.0121E+00_JPRB,5.5748E+00_JPRB/)  
+KBO( :, 5,58,10) = (/&
+ & 1.0003E-01_JPRB,1.0093E-01_JPRB,2.4389E+00_JPRB,4.0197E+00_JPRB,5.5549E+00_JPRB,6.3325E+00_JPRB/)  
+KBO( :, 1,59,10) = (/&
+ & 2.9072E-02_JPRB,4.1705E-02_JPRB,1.2802E+00_JPRB,2.1494E+00_JPRB,2.8421E+00_JPRB,2.7798E+00_JPRB/)  
+KBO( :, 2,59,10) = (/&
+ & 3.9252E-02_JPRB,4.9835E-02_JPRB,1.5765E+00_JPRB,2.6680E+00_JPRB,3.5911E+00_JPRB,3.6659E+00_JPRB/)  
+KBO( :, 3,59,10) = (/&
+ & 5.3000E-02_JPRB,6.0270E-02_JPRB,1.8744E+00_JPRB,3.1473E+00_JPRB,4.2993E+00_JPRB,4.5411E+00_JPRB/)  
+KBO( :, 4,59,10) = (/&
+ & 7.1218E-02_JPRB,7.4859E-02_JPRB,2.1561E+00_JPRB,3.5852E+00_JPRB,4.9384E+00_JPRB,5.3790E+00_JPRB/)  
+KBO( :, 5,59,10) = (/&
+ & 9.5581E-02_JPRB,9.6679E-02_JPRB,2.4098E+00_JPRB,3.9752E+00_JPRB,5.4931E+00_JPRB,6.1513E+00_JPRB/)  
+KBO( :, 1,13,11) = (/&
+ & 1.0830E+01_JPRB,1.0824E+01_JPRB,8.2966E+00_JPRB,5.7775E+00_JPRB,4.2067E+00_JPRB,3.8416E+00_JPRB/)  
+KBO( :, 2,13,11) = (/&
+ & 1.0842E+01_JPRB,1.0836E+01_JPRB,8.3048E+00_JPRB,5.7756E+00_JPRB,4.1117E+00_JPRB,3.7626E+00_JPRB/)  
+KBO( :, 3,13,11) = (/&
+ & 1.0806E+01_JPRB,1.0800E+01_JPRB,8.2770E+00_JPRB,5.7524E+00_JPRB,4.0103E+00_JPRB,3.7005E+00_JPRB/)  
+KBO( :, 4,13,11) = (/&
+ & 1.0724E+01_JPRB,1.0718E+01_JPRB,8.2112E+00_JPRB,5.7002E+00_JPRB,3.9058E+00_JPRB,3.6875E+00_JPRB/)  
+KBO( :, 5,13,11) = (/&
+ & 1.0621E+01_JPRB,1.0615E+01_JPRB,8.1337E+00_JPRB,5.6465E+00_JPRB,3.8013E+00_JPRB,3.7028E+00_JPRB/)  
+KBO( :, 1,14,11) = (/&
+ & 1.1181E+01_JPRB,1.1175E+01_JPRB,8.5568E+00_JPRB,5.9649E+00_JPRB,4.4522E+00_JPRB,4.2077E+00_JPRB/)  
+KBO( :, 2,14,11) = (/&
+ & 1.1133E+01_JPRB,1.1127E+01_JPRB,8.5167E+00_JPRB,5.9323E+00_JPRB,4.3476E+00_JPRB,4.1247E+00_JPRB/)  
+KBO( :, 3,14,11) = (/&
+ & 1.1053E+01_JPRB,1.1047E+01_JPRB,8.4570E+00_JPRB,5.8889E+00_JPRB,4.2415E+00_JPRB,4.0417E+00_JPRB/)  
+KBO( :, 4,14,11) = (/&
+ & 1.0933E+01_JPRB,1.0927E+01_JPRB,8.3682E+00_JPRB,5.8252E+00_JPRB,4.1413E+00_JPRB,3.9695E+00_JPRB/)  
+KBO( :, 5,14,11) = (/&
+ & 1.0780E+01_JPRB,1.0774E+01_JPRB,8.2481E+00_JPRB,5.7382E+00_JPRB,4.0362E+00_JPRB,3.9481E+00_JPRB/)  
+KBO( :, 1,15,11) = (/&
+ & 1.1265E+01_JPRB,1.1259E+01_JPRB,8.6144E+00_JPRB,6.0504E+00_JPRB,4.7323E+00_JPRB,4.5971E+00_JPRB/)  
+KBO( :, 2,15,11) = (/&
+ & 1.1162E+01_JPRB,1.1156E+01_JPRB,8.5378E+00_JPRB,5.9895E+00_JPRB,4.6323E+00_JPRB,4.4988E+00_JPRB/)  
+KBO( :, 3,15,11) = (/&
+ & 1.1022E+01_JPRB,1.1015E+01_JPRB,8.4337E+00_JPRB,5.9199E+00_JPRB,4.5312E+00_JPRB,4.4142E+00_JPRB/)  
+KBO( :, 4,15,11) = (/&
+ & 1.0880E+01_JPRB,1.0874E+01_JPRB,8.3234E+00_JPRB,5.8348E+00_JPRB,4.4237E+00_JPRB,4.3326E+00_JPRB/)  
+KBO( :, 5,15,11) = (/&
+ & 1.0698E+01_JPRB,1.0692E+01_JPRB,8.1811E+00_JPRB,5.7294E+00_JPRB,4.3189E+00_JPRB,4.2569E+00_JPRB/)  
+KBO( :, 1,16,11) = (/&
+ & 1.1047E+01_JPRB,1.1041E+01_JPRB,8.4566E+00_JPRB,6.0733E+00_JPRB,5.0987E+00_JPRB,4.9814E+00_JPRB/)  
+KBO( :, 2,16,11) = (/&
+ & 1.0912E+01_JPRB,1.0905E+01_JPRB,8.3558E+00_JPRB,5.9956E+00_JPRB,4.9979E+00_JPRB,4.8884E+00_JPRB/)  
+KBO( :, 3,16,11) = (/&
+ & 1.0758E+01_JPRB,1.0752E+01_JPRB,8.2381E+00_JPRB,5.8935E+00_JPRB,4.8881E+00_JPRB,4.7986E+00_JPRB/)  
+KBO( :, 4,16,11) = (/&
+ & 1.0569E+01_JPRB,1.0563E+01_JPRB,8.0898E+00_JPRB,5.7760E+00_JPRB,4.7808E+00_JPRB,4.7200E+00_JPRB/)  
+KBO( :, 5,16,11) = (/&
+ & 1.0363E+01_JPRB,1.0357E+01_JPRB,7.9324E+00_JPRB,5.6614E+00_JPRB,4.6746E+00_JPRB,4.6272E+00_JPRB/)  
+KBO( :, 1,17,11) = (/&
+ & 1.0577E+01_JPRB,1.0572E+01_JPRB,8.1098E+00_JPRB,6.0991E+00_JPRB,5.5106E+00_JPRB,5.4165E+00_JPRB/)  
+KBO( :, 2,17,11) = (/&
+ & 1.0411E+01_JPRB,1.0405E+01_JPRB,7.9835E+00_JPRB,5.9805E+00_JPRB,5.3996E+00_JPRB,5.3206E+00_JPRB/)  
+KBO( :, 3,17,11) = (/&
+ & 1.0224E+01_JPRB,1.0219E+01_JPRB,7.8406E+00_JPRB,5.8520E+00_JPRB,5.2910E+00_JPRB,5.2289E+00_JPRB/)  
+KBO( :, 4,17,11) = (/&
+ & 1.0028E+01_JPRB,1.0022E+01_JPRB,7.6890E+00_JPRB,5.7215E+00_JPRB,5.1803E+00_JPRB,5.1373E+00_JPRB/)  
+KBO( :, 5,17,11) = (/&
+ & 9.8160E+00_JPRB,9.8105E+00_JPRB,7.5244E+00_JPRB,5.5839E+00_JPRB,5.0653E+00_JPRB,5.0432E+00_JPRB/)  
+KBO( :, 1,18,11) = (/&
+ & 9.8986E+00_JPRB,9.8931E+00_JPRB,7.6044E+00_JPRB,6.1164E+00_JPRB,5.9534E+00_JPRB,5.9474E+00_JPRB/)  
+KBO( :, 2,18,11) = (/&
+ & 9.7140E+00_JPRB,9.7086E+00_JPRB,7.4654E+00_JPRB,5.9795E+00_JPRB,5.8383E+00_JPRB,5.8411E+00_JPRB/)  
+KBO( :, 3,18,11) = (/&
+ & 9.5273E+00_JPRB,9.5220E+00_JPRB,7.3210E+00_JPRB,5.8383E+00_JPRB,5.7189E+00_JPRB,5.7395E+00_JPRB/)  
+KBO( :, 4,18,11) = (/&
+ & 9.3182E+00_JPRB,9.3130E+00_JPRB,7.1594E+00_JPRB,5.7006E+00_JPRB,5.6002E+00_JPRB,5.6385E+00_JPRB/)  
+KBO( :, 5,18,11) = (/&
+ & 9.0984E+00_JPRB,9.0934E+00_JPRB,6.9901E+00_JPRB,5.5596E+00_JPRB,5.4784E+00_JPRB,5.5361E+00_JPRB/)  
+KBO( :, 1,19,11) = (/&
+ & 9.0617E+00_JPRB,9.0567E+00_JPRB,6.9882E+00_JPRB,6.1944E+00_JPRB,6.4032E+00_JPRB,6.5506E+00_JPRB/)  
+KBO( :, 2,19,11) = (/&
+ & 8.8807E+00_JPRB,8.8758E+00_JPRB,6.8508E+00_JPRB,6.0541E+00_JPRB,6.2790E+00_JPRB,6.4421E+00_JPRB/)  
+KBO( :, 3,19,11) = (/&
+ & 8.6840E+00_JPRB,8.6793E+00_JPRB,6.6993E+00_JPRB,5.9155E+00_JPRB,6.1530E+00_JPRB,6.3302E+00_JPRB/)  
+KBO( :, 4,19,11) = (/&
+ & 8.4690E+00_JPRB,8.4643E+00_JPRB,6.5346E+00_JPRB,5.7782E+00_JPRB,6.0205E+00_JPRB,6.1969E+00_JPRB/)  
+KBO( :, 5,19,11) = (/&
+ & 8.2461E+00_JPRB,8.2415E+00_JPRB,6.3683E+00_JPRB,5.6418E+00_JPRB,5.8884E+00_JPRB,6.0738E+00_JPRB/)  
+KBO( :, 1,20,11) = (/&
+ & 8.1338E+00_JPRB,8.1294E+00_JPRB,6.3787E+00_JPRB,6.3724E+00_JPRB,6.8676E+00_JPRB,7.1512E+00_JPRB/)  
+KBO( :, 2,20,11) = (/&
+ & 7.9489E+00_JPRB,7.9446E+00_JPRB,6.2323E+00_JPRB,6.2367E+00_JPRB,6.7380E+00_JPRB,7.0235E+00_JPRB/)  
+KBO( :, 3,20,11) = (/&
+ & 7.7484E+00_JPRB,7.7442E+00_JPRB,6.0747E+00_JPRB,6.0984E+00_JPRB,6.6037E+00_JPRB,6.8886E+00_JPRB/)  
+KBO( :, 4,20,11) = (/&
+ & 7.5336E+00_JPRB,7.5295E+00_JPRB,5.9158E+00_JPRB,5.9585E+00_JPRB,6.4615E+00_JPRB,6.7483E+00_JPRB/)  
+KBO( :, 5,20,11) = (/&
+ & 7.3192E+00_JPRB,7.3153E+00_JPRB,5.7540E+00_JPRB,5.8154E+00_JPRB,6.3114E+00_JPRB,6.6285E+00_JPRB/)  
+KBO( :, 1,21,11) = (/&
+ & 7.1783E+00_JPRB,7.1745E+00_JPRB,5.8792E+00_JPRB,6.5789E+00_JPRB,7.3613E+00_JPRB,7.7022E+00_JPRB/)  
+KBO( :, 2,21,11) = (/&
+ & 6.9919E+00_JPRB,6.9882E+00_JPRB,5.7299E+00_JPRB,6.4389E+00_JPRB,7.2225E+00_JPRB,7.5647E+00_JPRB/)  
+KBO( :, 3,21,11) = (/&
+ & 6.7909E+00_JPRB,6.7873E+00_JPRB,5.5766E+00_JPRB,6.2973E+00_JPRB,7.0712E+00_JPRB,7.4405E+00_JPRB/)  
+KBO( :, 4,21,11) = (/&
+ & 6.5939E+00_JPRB,6.5903E+00_JPRB,5.4217E+00_JPRB,6.1490E+00_JPRB,6.9129E+00_JPRB,7.3122E+00_JPRB/)  
+KBO( :, 5,21,11) = (/&
+ & 6.4093E+00_JPRB,6.4059E+00_JPRB,5.2663E+00_JPRB,5.9963E+00_JPRB,6.7516E+00_JPRB,7.1970E+00_JPRB/)  
+KBO( :, 1,22,11) = (/&
+ & 6.2177E+00_JPRB,6.2144E+00_JPRB,5.5479E+00_JPRB,6.7900E+00_JPRB,7.8374E+00_JPRB,8.2375E+00_JPRB/)  
+KBO( :, 2,22,11) = (/&
+ & 6.0356E+00_JPRB,6.0324E+00_JPRB,5.3995E+00_JPRB,6.6451E+00_JPRB,7.6895E+00_JPRB,8.1166E+00_JPRB/)  
+KBO( :, 3,22,11) = (/&
+ & 5.8596E+00_JPRB,5.8565E+00_JPRB,5.2499E+00_JPRB,6.4943E+00_JPRB,7.5342E+00_JPRB,8.0016E+00_JPRB/)  
+KBO( :, 4,22,11) = (/&
+ & 5.7069E+00_JPRB,5.7039E+00_JPRB,5.1029E+00_JPRB,6.3342E+00_JPRB,7.3721E+00_JPRB,7.8779E+00_JPRB/)  
+KBO( :, 5,22,11) = (/&
+ & 5.5907E+00_JPRB,5.5878E+00_JPRB,4.9677E+00_JPRB,6.1731E+00_JPRB,7.2068E+00_JPRB,7.7598E+00_JPRB/)  
+KBO( :, 1,23,11) = (/&
+ & 5.3001E+00_JPRB,5.2974E+00_JPRB,5.3392E+00_JPRB,7.0212E+00_JPRB,8.2731E+00_JPRB,8.7769E+00_JPRB/)  
+KBO( :, 2,23,11) = (/&
+ & 5.1465E+00_JPRB,5.1439E+00_JPRB,5.1959E+00_JPRB,6.8658E+00_JPRB,8.1318E+00_JPRB,8.6756E+00_JPRB/)  
+KBO( :, 3,23,11) = (/&
+ & 5.0259E+00_JPRB,5.0234E+00_JPRB,5.0568E+00_JPRB,6.6964E+00_JPRB,7.9822E+00_JPRB,8.5635E+00_JPRB/)  
+KBO( :, 4,23,11) = (/&
+ & 4.9408E+00_JPRB,4.9383E+00_JPRB,4.9256E+00_JPRB,6.5229E+00_JPRB,7.8283E+00_JPRB,8.4337E+00_JPRB/)  
+KBO( :, 5,23,11) = (/&
+ & 4.8982E+00_JPRB,4.8957E+00_JPRB,4.8170E+00_JPRB,6.3467E+00_JPRB,7.6656E+00_JPRB,8.3117E+00_JPRB/)  
+KBO( :, 1,24,11) = (/&
+ & 4.4810E+00_JPRB,4.4788E+00_JPRB,5.2117E+00_JPRB,7.2187E+00_JPRB,8.6894E+00_JPRB,9.2830E+00_JPRB/)  
+KBO( :, 2,24,11) = (/&
+ & 4.3875E+00_JPRB,4.3854E+00_JPRB,5.0729E+00_JPRB,7.0552E+00_JPRB,8.5552E+00_JPRB,9.1952E+00_JPRB/)  
+KBO( :, 3,24,11) = (/&
+ & 4.3298E+00_JPRB,4.3277E+00_JPRB,4.9395E+00_JPRB,6.8841E+00_JPRB,8.4129E+00_JPRB,9.0854E+00_JPRB/)  
+KBO( :, 4,24,11) = (/&
+ & 4.3240E+00_JPRB,4.3219E+00_JPRB,4.8305E+00_JPRB,6.7106E+00_JPRB,8.2583E+00_JPRB,8.9534E+00_JPRB/)  
+KBO( :, 5,24,11) = (/&
+ & 4.3568E+00_JPRB,4.3547E+00_JPRB,4.7450E+00_JPRB,6.5341E+00_JPRB,8.0917E+00_JPRB,8.8298E+00_JPRB/)  
+KBO( :, 1,25,11) = (/&
+ & 3.8157E+00_JPRB,3.8139E+00_JPRB,5.1260E+00_JPRB,7.3753E+00_JPRB,9.0809E+00_JPRB,9.7303E+00_JPRB/)  
+KBO( :, 2,25,11) = (/&
+ & 3.7828E+00_JPRB,3.7809E+00_JPRB,4.9881E+00_JPRB,7.2252E+00_JPRB,8.9546E+00_JPRB,9.6529E+00_JPRB/)  
+KBO( :, 3,25,11) = (/&
+ & 3.7966E+00_JPRB,3.7948E+00_JPRB,4.8698E+00_JPRB,7.0694E+00_JPRB,8.8114E+00_JPRB,9.5492E+00_JPRB/)  
+KBO( :, 4,25,11) = (/&
+ & 3.8447E+00_JPRB,3.8429E+00_JPRB,4.7808E+00_JPRB,6.9055E+00_JPRB,8.6548E+00_JPRB,9.4220E+00_JPRB/)  
+KBO( :, 5,25,11) = (/&
+ & 3.9327E+00_JPRB,3.9309E+00_JPRB,4.7021E+00_JPRB,6.7298E+00_JPRB,8.4889E+00_JPRB,9.2936E+00_JPRB/)  
+KBO( :, 1,26,11) = (/&
+ & 3.3036E+00_JPRB,3.3021E+00_JPRB,5.0575E+00_JPRB,7.5192E+00_JPRB,9.4189E+00_JPRB,1.0102E+01_JPRB/)  
+KBO( :, 2,26,11) = (/&
+ & 3.3285E+00_JPRB,3.3270E+00_JPRB,4.9281E+00_JPRB,7.3849E+00_JPRB,9.3027E+00_JPRB,1.0041E+01_JPRB/)  
+KBO( :, 3,26,11) = (/&
+ & 3.3889E+00_JPRB,3.3874E+00_JPRB,4.8326E+00_JPRB,7.2371E+00_JPRB,9.1673E+00_JPRB,9.9526E+00_JPRB/)  
+KBO( :, 4,26,11) = (/&
+ & 3.4837E+00_JPRB,3.4822E+00_JPRB,4.7525E+00_JPRB,7.0754E+00_JPRB,9.0130E+00_JPRB,9.8334E+00_JPRB/)  
+KBO( :, 5,26,11) = (/&
+ & 3.5869E+00_JPRB,3.5853E+00_JPRB,4.6879E+00_JPRB,6.9081E+00_JPRB,8.8429E+00_JPRB,9.7104E+00_JPRB/)  
+KBO( :, 1,27,11) = (/&
+ & 2.9165E+00_JPRB,2.9152E+00_JPRB,4.9857E+00_JPRB,7.6560E+00_JPRB,9.7110E+00_JPRB,1.0421E+01_JPRB/)  
+KBO( :, 2,27,11) = (/&
+ & 2.9834E+00_JPRB,2.9822E+00_JPRB,4.8877E+00_JPRB,7.5297E+00_JPRB,9.6106E+00_JPRB,1.0382E+01_JPRB/)  
+KBO( :, 3,27,11) = (/&
+ & 3.0758E+00_JPRB,3.0745E+00_JPRB,4.8130E+00_JPRB,7.3870E+00_JPRB,9.4838E+00_JPRB,1.0306E+01_JPRB/)  
+KBO( :, 4,27,11) = (/&
+ & 3.1796E+00_JPRB,3.1781E+00_JPRB,4.7485E+00_JPRB,7.2327E+00_JPRB,9.3303E+00_JPRB,1.0198E+01_JPRB/)  
+KBO( :, 5,27,11) = (/&
+ & 3.2957E+00_JPRB,3.2941E+00_JPRB,4.7038E+00_JPRB,7.0683E+00_JPRB,9.1564E+00_JPRB,1.0089E+01_JPRB/)  
+KBO( :, 1,28,11) = (/&
+ & 2.6155E+00_JPRB,2.6145E+00_JPRB,4.9275E+00_JPRB,7.7638E+00_JPRB,9.9551E+00_JPRB,1.0696E+01_JPRB/)  
+KBO( :, 2,28,11) = (/&
+ & 2.7046E+00_JPRB,2.7035E+00_JPRB,4.8641E+00_JPRB,7.6476E+00_JPRB,9.8682E+00_JPRB,1.0682E+01_JPRB/)  
+KBO( :, 3,28,11) = (/&
+ & 2.8078E+00_JPRB,2.8066E+00_JPRB,4.8086E+00_JPRB,7.5132E+00_JPRB,9.7479E+00_JPRB,1.0615E+01_JPRB/)  
+KBO( :, 4,28,11) = (/&
+ & 2.9220E+00_JPRB,2.9207E+00_JPRB,4.7661E+00_JPRB,7.3606E+00_JPRB,9.5999E+00_JPRB,1.0521E+01_JPRB/)  
+KBO( :, 5,28,11) = (/&
+ & 3.0419E+00_JPRB,3.0404E+00_JPRB,4.7235E+00_JPRB,7.2046E+00_JPRB,9.4195E+00_JPRB,1.0424E+01_JPRB/)  
+KBO( :, 1,29,11) = (/&
+ & 2.3732E+00_JPRB,2.3723E+00_JPRB,4.8900E+00_JPRB,7.8375E+00_JPRB,1.0150E+01_JPRB,1.0951E+01_JPRB/)  
+KBO( :, 2,29,11) = (/&
+ & 2.4712E+00_JPRB,2.4702E+00_JPRB,4.8481E+00_JPRB,7.7319E+00_JPRB,1.0078E+01_JPRB,1.0946E+01_JPRB/)  
+KBO( :, 3,29,11) = (/&
+ & 2.5783E+00_JPRB,2.5771E+00_JPRB,4.8118E+00_JPRB,7.6037E+00_JPRB,9.9721E+00_JPRB,1.0893E+01_JPRB/)  
+KBO( :, 4,29,11) = (/&
+ & 2.6902E+00_JPRB,2.6889E+00_JPRB,4.7850E+00_JPRB,7.4580E+00_JPRB,9.8268E+00_JPRB,1.0822E+01_JPRB/)  
+KBO( :, 5,29,11) = (/&
+ & 2.8045E+00_JPRB,2.8032E+00_JPRB,4.7400E+00_JPRB,7.3154E+00_JPRB,9.6483E+00_JPRB,1.0741E+01_JPRB/)  
+KBO( :, 1,30,11) = (/&
+ & 2.1658E+00_JPRB,2.1650E+00_JPRB,4.8677E+00_JPRB,7.8862E+00_JPRB,1.0317E+01_JPRB,1.1167E+01_JPRB/)  
+KBO( :, 2,30,11) = (/&
+ & 2.2662E+00_JPRB,2.2652E+00_JPRB,4.8423E+00_JPRB,7.7911E+00_JPRB,1.0262E+01_JPRB,1.1177E+01_JPRB/)  
+KBO( :, 3,30,11) = (/&
+ & 2.3698E+00_JPRB,2.3687E+00_JPRB,4.8249E+00_JPRB,7.6717E+00_JPRB,1.0162E+01_JPRB,1.1145E+01_JPRB/)  
+KBO( :, 4,30,11) = (/&
+ & 2.4773E+00_JPRB,2.4761E+00_JPRB,4.7959E+00_JPRB,7.5389E+00_JPRB,1.0012E+01_JPRB,1.1105E+01_JPRB/)  
+KBO( :, 5,30,11) = (/&
+ & 2.5877E+00_JPRB,2.5865E+00_JPRB,4.7569E+00_JPRB,7.4115E+00_JPRB,9.8340E+00_JPRB,1.1029E+01_JPRB/)  
+KBO( :, 1,31,11) = (/&
+ & 1.9790E+00_JPRB,1.9782E+00_JPRB,4.8500E+00_JPRB,7.9143E+00_JPRB,1.0464E+01_JPRB,1.1366E+01_JPRB/)  
+KBO( :, 2,31,11) = (/&
+ & 2.0776E+00_JPRB,2.0767E+00_JPRB,4.8427E+00_JPRB,7.8316E+00_JPRB,1.0417E+01_JPRB,1.1398E+01_JPRB/)  
+KBO( :, 3,31,11) = (/&
+ & 2.1797E+00_JPRB,2.1787E+00_JPRB,4.8321E+00_JPRB,7.7240E+00_JPRB,1.0316E+01_JPRB,1.1410E+01_JPRB/)  
+KBO( :, 4,31,11) = (/&
+ & 2.2842E+00_JPRB,2.2832E+00_JPRB,4.8021E+00_JPRB,7.6072E+00_JPRB,1.0171E+01_JPRB,1.1390E+01_JPRB/)  
+KBO( :, 5,31,11) = (/&
+ & 2.3904E+00_JPRB,2.3893E+00_JPRB,4.7702E+00_JPRB,7.4874E+00_JPRB,9.9885E+00_JPRB,1.1305E+01_JPRB/)  
+KBO( :, 1,32,11) = (/&
+ & 1.8065E+00_JPRB,1.8057E+00_JPRB,4.8337E+00_JPRB,7.9321E+00_JPRB,1.0594E+01_JPRB,1.1553E+01_JPRB/)  
+KBO( :, 2,32,11) = (/&
+ & 1.9056E+00_JPRB,1.9048E+00_JPRB,4.8404E+00_JPRB,7.8602E+00_JPRB,1.0550E+01_JPRB,1.1632E+01_JPRB/)  
+KBO( :, 3,32,11) = (/&
+ & 2.0071E+00_JPRB,2.0062E+00_JPRB,4.8291E+00_JPRB,7.7660E+00_JPRB,1.0447E+01_JPRB,1.1676E+01_JPRB/)  
+KBO( :, 4,32,11) = (/&
+ & 2.1091E+00_JPRB,2.1082E+00_JPRB,4.8052E+00_JPRB,7.6656E+00_JPRB,1.0296E+01_JPRB,1.1648E+01_JPRB/)  
+KBO( :, 5,32,11) = (/&
+ & 2.2144E+00_JPRB,2.2134E+00_JPRB,4.7806E+00_JPRB,7.5529E+00_JPRB,1.0105E+01_JPRB,1.1557E+01_JPRB/)  
+KBO( :, 1,33,11) = (/&
+ & 1.6510E+00_JPRB,1.6503E+00_JPRB,4.8210E+00_JPRB,7.9482E+00_JPRB,1.0706E+01_JPRB,1.1767E+01_JPRB/)  
+KBO( :, 2,33,11) = (/&
+ & 1.7494E+00_JPRB,1.7487E+00_JPRB,4.8343E+00_JPRB,7.8861E+00_JPRB,1.0658E+01_JPRB,1.1881E+01_JPRB/)  
+KBO( :, 3,33,11) = (/&
+ & 1.8501E+00_JPRB,1.8493E+00_JPRB,4.8252E+00_JPRB,7.8076E+00_JPRB,1.0548E+01_JPRB,1.1918E+01_JPRB/)  
+KBO( :, 4,33,11) = (/&
+ & 1.9524E+00_JPRB,1.9516E+00_JPRB,4.8101E+00_JPRB,7.7163E+00_JPRB,1.0391E+01_JPRB,1.1878E+01_JPRB/)  
+KBO( :, 5,33,11) = (/&
+ & 2.0594E+00_JPRB,2.0586E+00_JPRB,4.7896E+00_JPRB,7.6047E+00_JPRB,1.0193E+01_JPRB,1.1783E+01_JPRB/)  
+KBO( :, 1,34,11) = (/&
+ & 1.5098E+00_JPRB,1.5093E+00_JPRB,4.8119E+00_JPRB,7.9653E+00_JPRB,1.0798E+01_JPRB,1.1972E+01_JPRB/)  
+KBO( :, 2,34,11) = (/&
+ & 1.6067E+00_JPRB,1.6061E+00_JPRB,4.8282E+00_JPRB,7.9164E+00_JPRB,1.0745E+01_JPRB,1.2091E+01_JPRB/)  
+KBO( :, 3,34,11) = (/&
+ & 1.7068E+00_JPRB,1.7062E+00_JPRB,4.8254E+00_JPRB,7.8470E+00_JPRB,1.0632E+01_JPRB,1.2113E+01_JPRB/)  
+KBO( :, 4,34,11) = (/&
+ & 1.8116E+00_JPRB,1.8109E+00_JPRB,4.8147E+00_JPRB,7.7622E+00_JPRB,1.0470E+01_JPRB,1.2073E+01_JPRB/)  
+KBO( :, 5,34,11) = (/&
+ & 1.9232E+00_JPRB,1.9225E+00_JPRB,4.7977E+00_JPRB,7.6521E+00_JPRB,1.0264E+01_JPRB,1.1969E+01_JPRB/)  
+KBO( :, 1,35,11) = (/&
+ & 1.3777E+00_JPRB,1.3773E+00_JPRB,4.8007E+00_JPRB,7.9865E+00_JPRB,1.0878E+01_JPRB,1.2152E+01_JPRB/)  
+KBO( :, 2,35,11) = (/&
+ & 1.4720E+00_JPRB,1.4715E+00_JPRB,4.8220E+00_JPRB,7.9505E+00_JPRB,1.0824E+01_JPRB,1.2272E+01_JPRB/)  
+KBO( :, 3,35,11) = (/&
+ & 1.5713E+00_JPRB,1.5708E+00_JPRB,4.8275E+00_JPRB,7.8907E+00_JPRB,1.0710E+01_JPRB,1.2296E+01_JPRB/)  
+KBO( :, 4,35,11) = (/&
+ & 1.6790E+00_JPRB,1.6784E+00_JPRB,4.8220E+00_JPRB,7.8081E+00_JPRB,1.0547E+01_JPRB,1.2260E+01_JPRB/)  
+KBO( :, 5,35,11) = (/&
+ & 1.7986E+00_JPRB,1.7980E+00_JPRB,4.8075E+00_JPRB,7.7002E+00_JPRB,1.0336E+01_JPRB,1.2159E+01_JPRB/)  
+KBO( :, 1,36,11) = (/&
+ & 1.2514E+00_JPRB,1.2511E+00_JPRB,4.7868E+00_JPRB,8.0109E+00_JPRB,1.0946E+01_JPRB,1.2304E+01_JPRB/)  
+KBO( :, 2,36,11) = (/&
+ & 1.3435E+00_JPRB,1.3431E+00_JPRB,4.8179E+00_JPRB,7.9877E+00_JPRB,1.0897E+01_JPRB,1.2427E+01_JPRB/)  
+KBO( :, 3,36,11) = (/&
+ & 1.4435E+00_JPRB,1.4430E+00_JPRB,4.8314E+00_JPRB,7.9353E+00_JPRB,1.0788E+01_JPRB,1.2470E+01_JPRB/)  
+KBO( :, 4,36,11) = (/&
+ & 1.5538E+00_JPRB,1.5533E+00_JPRB,4.8318E+00_JPRB,7.8582E+00_JPRB,1.0627E+01_JPRB,1.2438E+01_JPRB/)  
+KBO( :, 5,36,11) = (/&
+ & 1.6810E+00_JPRB,1.6804E+00_JPRB,4.8203E+00_JPRB,7.7528E+00_JPRB,1.0416E+01_JPRB,1.2339E+01_JPRB/)  
+KBO( :, 1,37,11) = (/&
+ & 1.1282E+00_JPRB,1.1280E+00_JPRB,4.7699E+00_JPRB,8.0315E+00_JPRB,1.1000E+01_JPRB,1.2396E+01_JPRB/)  
+KBO( :, 2,37,11) = (/&
+ & 1.2167E+00_JPRB,1.2164E+00_JPRB,4.8125E+00_JPRB,8.0243E+00_JPRB,1.0970E+01_JPRB,1.2544E+01_JPRB/)  
+KBO( :, 3,37,11) = (/&
+ & 1.3158E+00_JPRB,1.3155E+00_JPRB,4.8359E+00_JPRB,7.9814E+00_JPRB,1.0872E+01_JPRB,1.2615E+01_JPRB/)  
+KBO( :, 4,37,11) = (/&
+ & 1.4284E+00_JPRB,1.4280E+00_JPRB,4.8417E+00_JPRB,7.9120E+00_JPRB,1.0722E+01_JPRB,1.2596E+01_JPRB/)  
+KBO( :, 5,37,11) = (/&
+ & 1.5612E+00_JPRB,1.5606E+00_JPRB,4.8348E+00_JPRB,7.8131E+00_JPRB,1.0516E+01_JPRB,1.2504E+01_JPRB/)  
+KBO( :, 1,38,11) = (/&
+ & 1.0204E+00_JPRB,1.0202E+00_JPRB,4.7523E+00_JPRB,8.0470E+00_JPRB,1.1041E+01_JPRB,1.2476E+01_JPRB/)  
+KBO( :, 2,38,11) = (/&
+ & 1.1044E+00_JPRB,1.1042E+00_JPRB,4.8063E+00_JPRB,8.0526E+00_JPRB,1.1031E+01_JPRB,1.2656E+01_JPRB/)  
+KBO( :, 3,38,11) = (/&
+ & 1.2026E+00_JPRB,1.2023E+00_JPRB,4.8389E+00_JPRB,8.0207E+00_JPRB,1.0945E+01_JPRB,1.2754E+01_JPRB/)  
+KBO( :, 4,38,11) = (/&
+ & 1.3171E+00_JPRB,1.3167E+00_JPRB,4.8508E+00_JPRB,7.9583E+00_JPRB,1.0805E+01_JPRB,1.2746E+01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART28',1,ZHOOK_HANDLE)
+END SUBROUTINE PART28
+
+
+SUBROUTINE PART29
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART29',0,ZHOOK_HANDLE)
+
+
+KBO( :, 5,38,11) = (/&
+ & 1.4551E+00_JPRB,1.4546E+00_JPRB,4.8486E+00_JPRB,7.8661E+00_JPRB,1.0608E+01_JPRB,1.2659E+01_JPRB/)  
+KBO( :, 1,39,11) = (/&
+ & 9.2697E-01_JPRB,9.2690E-01_JPRB,4.7345E+00_JPRB,8.0529E+00_JPRB,1.1070E+01_JPRB,1.2554E+01_JPRB/)  
+KBO( :, 2,39,11) = (/&
+ & 1.0083E+00_JPRB,1.0081E+00_JPRB,4.8007E+00_JPRB,8.0735E+00_JPRB,1.1079E+01_JPRB,1.2773E+01_JPRB/)  
+KBO( :, 3,39,11) = (/&
+ & 1.1037E+00_JPRB,1.1035E+00_JPRB,4.8402E+00_JPRB,8.0520E+00_JPRB,1.1008E+01_JPRB,1.2893E+01_JPRB/)  
+KBO( :, 4,39,11) = (/&
+ & 1.2204E+00_JPRB,1.2201E+00_JPRB,4.8590E+00_JPRB,7.9971E+00_JPRB,1.0876E+01_JPRB,1.2892E+01_JPRB/)  
+KBO( :, 5,39,11) = (/&
+ & 1.3628E+00_JPRB,1.3623E+00_JPRB,4.8606E+00_JPRB,7.9113E+00_JPRB,1.0688E+01_JPRB,1.2810E+01_JPRB/)  
+KBO( :, 1,40,11) = (/&
+ & 8.3758E-01_JPRB,8.3760E-01_JPRB,4.7063E+00_JPRB,8.0487E+00_JPRB,1.1082E+01_JPRB,1.2556E+01_JPRB/)  
+KBO( :, 2,40,11) = (/&
+ & 9.1581E-01_JPRB,9.1577E-01_JPRB,4.7869E+00_JPRB,8.0879E+00_JPRB,1.1120E+01_JPRB,1.2816E+01_JPRB/)  
+KBO( :, 3,40,11) = (/&
+ & 1.0079E+00_JPRB,1.0078E+00_JPRB,4.8371E+00_JPRB,8.0805E+00_JPRB,1.1070E+01_JPRB,1.2970E+01_JPRB/)  
+KBO( :, 4,40,11) = (/&
+ & 1.1225E+00_JPRB,1.1222E+00_JPRB,4.8639E+00_JPRB,8.0357E+00_JPRB,1.0954E+01_JPRB,1.2989E+01_JPRB/)  
+KBO( :, 5,40,11) = (/&
+ & 1.2665E+00_JPRB,1.2660E+00_JPRB,4.8714E+00_JPRB,7.9591E+00_JPRB,1.0779E+01_JPRB,1.2926E+01_JPRB/)  
+KBO( :, 1,41,11) = (/&
+ & 7.5804E-01_JPRB,7.5812E-01_JPRB,4.6746E+00_JPRB,8.0347E+00_JPRB,1.1077E+01_JPRB,1.2530E+01_JPRB/)  
+KBO( :, 2,41,11) = (/&
+ & 8.3424E-01_JPRB,8.3425E-01_JPRB,4.7690E+00_JPRB,8.0936E+00_JPRB,1.1147E+01_JPRB,1.2837E+01_JPRB/)  
+KBO( :, 3,41,11) = (/&
+ & 9.2284E-01_JPRB,9.2272E-01_JPRB,4.8295E+00_JPRB,8.1031E+00_JPRB,1.1121E+01_JPRB,1.3026E+01_JPRB/)  
+KBO( :, 4,41,11) = (/&
+ & 1.0345E+00_JPRB,1.0342E+00_JPRB,4.8660E+00_JPRB,8.0690E+00_JPRB,1.1022E+01_JPRB,1.3069E+01_JPRB/)  
+KBO( :, 5,41,11) = (/&
+ & 1.1779E+00_JPRB,1.1775E+00_JPRB,4.8792E+00_JPRB,8.0025E+00_JPRB,1.0862E+01_JPRB,1.3028E+01_JPRB/)  
+KBO( :, 1,42,11) = (/&
+ & 6.8836E-01_JPRB,6.8850E-01_JPRB,4.6395E+00_JPRB,8.0108E+00_JPRB,1.1057E+01_JPRB,1.2493E+01_JPRB/)  
+KBO( :, 2,42,11) = (/&
+ & 7.6202E-01_JPRB,7.6208E-01_JPRB,4.7478E+00_JPRB,8.0915E+00_JPRB,1.1161E+01_JPRB,1.2847E+01_JPRB/)  
+KBO( :, 3,42,11) = (/&
+ & 8.4897E-01_JPRB,8.4889E-01_JPRB,4.8194E+00_JPRB,8.1177E+00_JPRB,1.1160E+01_JPRB,1.3071E+01_JPRB/)  
+KBO( :, 4,42,11) = (/&
+ & 9.5721E-01_JPRB,9.5697E-01_JPRB,4.8642E+00_JPRB,8.0964E+00_JPRB,1.1081E+01_JPRB,1.3142E+01_JPRB/)  
+KBO( :, 5,42,11) = (/&
+ & 1.0979E+00_JPRB,1.0975E+00_JPRB,4.8838E+00_JPRB,8.0399E+00_JPRB,1.0937E+01_JPRB,1.3122E+01_JPRB/)  
+KBO( :, 1,43,11) = (/&
+ & 6.2327E-01_JPRB,6.2346E-01_JPRB,4.5920E+00_JPRB,7.9682E+00_JPRB,1.1010E+01_JPRB,1.2410E+01_JPRB/)  
+KBO( :, 2,43,11) = (/&
+ & 6.9363E-01_JPRB,6.9372E-01_JPRB,4.7172E+00_JPRB,8.0779E+00_JPRB,1.1157E+01_JPRB,1.2823E+01_JPRB/)  
+KBO( :, 3,43,11) = (/&
+ & 7.7812E-01_JPRB,7.7808E-01_JPRB,4.8024E+00_JPRB,8.1237E+00_JPRB,1.1190E+01_JPRB,1.3092E+01_JPRB/)  
+KBO( :, 4,43,11) = (/&
+ & 8.8257E-01_JPRB,8.8240E-01_JPRB,4.8564E+00_JPRB,8.1185E+00_JPRB,1.1134E+01_JPRB,1.3199E+01_JPRB/)  
+KBO( :, 5,43,11) = (/&
+ & 1.0175E+00_JPRB,1.0172E+00_JPRB,4.8852E+00_JPRB,8.0748E+00_JPRB,1.1010E+01_JPRB,1.3208E+01_JPRB/)  
+KBO( :, 1,44,11) = (/&
+ & 5.6319E-01_JPRB,5.6344E-01_JPRB,4.5362E+00_JPRB,7.9098E+00_JPRB,1.0942E+01_JPRB,1.2291E+01_JPRB/)  
+KBO( :, 2,44,11) = (/&
+ & 6.3128E-01_JPRB,6.3143E-01_JPRB,4.6773E+00_JPRB,8.0513E+00_JPRB,1.1133E+01_JPRB,1.2773E+01_JPRB/)  
+KBO( :, 3,44,11) = (/&
+ & 7.1290E-01_JPRB,7.1288E-01_JPRB,4.7788E+00_JPRB,8.1200E+00_JPRB,1.1206E+01_JPRB,1.3092E+01_JPRB/)  
+KBO( :, 4,44,11) = (/&
+ & 8.1370E-01_JPRB,8.1356E-01_JPRB,4.8431E+00_JPRB,8.1349E+00_JPRB,1.1178E+01_JPRB,1.3245E+01_JPRB/)  
+KBO( :, 5,44,11) = (/&
+ & 9.4155E-01_JPRB,9.4126E-01_JPRB,4.8828E+00_JPRB,8.1039E+00_JPRB,1.1076E+01_JPRB,1.3283E+01_JPRB/)  
+KBO( :, 1,45,11) = (/&
+ & 5.0848E-01_JPRB,5.0877E-01_JPRB,4.4759E+00_JPRB,7.8396E+00_JPRB,1.0853E+01_JPRB,1.2157E+01_JPRB/)  
+KBO( :, 2,45,11) = (/&
+ & 5.7558E-01_JPRB,5.7574E-01_JPRB,4.6321E+00_JPRB,8.0148E+00_JPRB,1.1090E+01_JPRB,1.2710E+01_JPRB/)  
+KBO( :, 3,45,11) = (/&
+ & 6.5428E-01_JPRB,6.5431E-01_JPRB,4.7490E+00_JPRB,8.1075E+00_JPRB,1.1206E+01_JPRB,1.3081E+01_JPRB/)  
+KBO( :, 4,45,11) = (/&
+ & 7.5171E-01_JPRB,7.5160E-01_JPRB,4.8272E+00_JPRB,8.1428E+00_JPRB,1.1211E+01_JPRB,1.3283E+01_JPRB/)  
+KBO( :, 5,45,11) = (/&
+ & 8.7320E-01_JPRB,8.7295E-01_JPRB,4.8756E+00_JPRB,8.1271E+00_JPRB,1.1133E+01_JPRB,1.3354E+01_JPRB/)  
+KBO( :, 1,46,11) = (/&
+ & 4.5749E-01_JPRB,4.5781E-01_JPRB,4.4050E+00_JPRB,7.7477E+00_JPRB,1.0733E+01_JPRB,1.1988E+01_JPRB/)  
+KBO( :, 2,46,11) = (/&
+ & 5.2335E-01_JPRB,5.2354E-01_JPRB,4.5777E+00_JPRB,7.9624E+00_JPRB,1.1027E+01_JPRB,1.2622E+01_JPRB/)  
+KBO( :, 3,46,11) = (/&
+ & 5.9972E-01_JPRB,5.9977E-01_JPRB,4.7113E+00_JPRB,8.0849E+00_JPRB,1.1188E+01_JPRB,1.3051E+01_JPRB/)  
+KBO( :, 4,46,11) = (/&
+ & 6.9340E-01_JPRB,6.9332E-01_JPRB,4.8042E+00_JPRB,8.1402E+00_JPRB,1.1232E+01_JPRB,1.3309E+01_JPRB/)  
+KBO( :, 5,46,11) = (/&
+ & 8.0900E-01_JPRB,8.0880E-01_JPRB,4.8629E+00_JPRB,8.1438E+00_JPRB,1.1182E+01_JPRB,1.3415E+01_JPRB/)  
+KBO( :, 1,47,11) = (/&
+ & 4.0799E-01_JPRB,4.0834E-01_JPRB,4.3192E+00_JPRB,7.6262E+00_JPRB,1.0570E+01_JPRB,1.1748E+01_JPRB/)  
+KBO( :, 2,47,11) = (/&
+ & 4.7291E-01_JPRB,4.7311E-01_JPRB,4.5111E+00_JPRB,7.8858E+00_JPRB,1.0930E+01_JPRB,1.2474E+01_JPRB/)  
+KBO( :, 3,47,11) = (/&
+ & 5.4737E-01_JPRB,5.4746E-01_JPRB,4.6622E+00_JPRB,8.0462E+00_JPRB,1.1144E+01_JPRB,1.2972E+01_JPRB/)  
+KBO( :, 4,47,11) = (/&
+ & 6.3579E-01_JPRB,6.3575E-01_JPRB,4.7722E+00_JPRB,8.1275E+00_JPRB,1.1235E+01_JPRB,1.3300E+01_JPRB/)  
+KBO( :, 5,47,11) = (/&
+ & 7.4500E-01_JPRB,7.4486E-01_JPRB,4.8444E+00_JPRB,8.1534E+00_JPRB,1.1220E+01_JPRB,1.3455E+01_JPRB/)  
+KBO( :, 1,48,11) = (/&
+ & 3.6234E-01_JPRB,3.6271E-01_JPRB,4.2229E+00_JPRB,7.4847E+00_JPRB,1.0381E+01_JPRB,1.1491E+01_JPRB/)  
+KBO( :, 2,48,11) = (/&
+ & 4.2649E-01_JPRB,4.2672E-01_JPRB,4.4362E+00_JPRB,7.7928E+00_JPRB,1.0805E+01_JPRB,1.2307E+01_JPRB/)  
+KBO( :, 3,48,11) = (/&
+ & 4.9899E-01_JPRB,4.9911E-01_JPRB,4.6047E+00_JPRB,7.9930E+00_JPRB,1.1077E+01_JPRB,1.2882E+01_JPRB/)  
+KBO( :, 4,48,11) = (/&
+ & 5.8344E-01_JPRB,5.8343E-01_JPRB,4.7326E+00_JPRB,8.1042E+00_JPRB,1.1219E+01_JPRB,1.3280E+01_JPRB/)  
+KBO( :, 5,48,11) = (/&
+ & 6.8655E-01_JPRB,6.8645E-01_JPRB,4.8209E+00_JPRB,8.1532E+00_JPRB,1.1244E+01_JPRB,1.3490E+01_JPRB/)  
+KBO( :, 1,49,11) = (/&
+ & 3.2105E-01_JPRB,3.2141E-01_JPRB,4.1218E+00_JPRB,7.3215E+00_JPRB,1.0162E+01_JPRB,1.1223E+01_JPRB/)  
+KBO( :, 2,49,11) = (/&
+ & 3.8263E-01_JPRB,3.8290E-01_JPRB,4.3538E+00_JPRB,7.6804E+00_JPRB,1.0654E+01_JPRB,1.2130E+01_JPRB/)  
+KBO( :, 3,49,11) = (/&
+ & 4.5423E-01_JPRB,4.5438E-01_JPRB,4.5413E+00_JPRB,7.9230E+00_JPRB,1.0989E+01_JPRB,1.2791E+01_JPRB/)  
+KBO( :, 4,49,11) = (/&
+ & 5.3583E-01_JPRB,5.3587E-01_JPRB,4.6861E+00_JPRB,8.0697E+00_JPRB,1.1180E+01_JPRB,1.3260E+01_JPRB/)  
+KBO( :, 5,49,11) = (/&
+ & 6.3293E-01_JPRB,6.3285E-01_JPRB,4.7905E+00_JPRB,8.1418E+00_JPRB,1.1253E+01_JPRB,1.3527E+01_JPRB/)  
+KBO( :, 1,50,11) = (/&
+ & 2.8508E-01_JPRB,2.8546E-01_JPRB,4.0216E+00_JPRB,7.1533E+00_JPRB,9.9242E+00_JPRB,1.0908E+01_JPRB/)  
+KBO( :, 2,50,11) = (/&
+ & 3.4378E-01_JPRB,3.4406E-01_JPRB,4.2684E+00_JPRB,7.5560E+00_JPRB,1.0485E+01_JPRB,1.1896E+01_JPRB/)  
+KBO( :, 3,50,11) = (/&
+ & 4.1407E-01_JPRB,4.1424E-01_JPRB,4.4746E+00_JPRB,7.8430E+00_JPRB,1.0882E+01_JPRB,1.2647E+01_JPRB/)  
+KBO( :, 4,50,11) = (/&
+ & 4.9363E-01_JPRB,4.9370E-01_JPRB,4.6366E+00_JPRB,8.0253E+00_JPRB,1.1126E+01_JPRB,1.3186E+01_JPRB/)  
+KBO( :, 5,50,11) = (/&
+ & 5.8619E-01_JPRB,5.8614E-01_JPRB,4.7566E+00_JPRB,8.1231E+00_JPRB,1.1244E+01_JPRB,1.3516E+01_JPRB/)  
+KBO( :, 1,51,11) = (/&
+ & 2.5326E-01_JPRB,2.5365E-01_JPRB,3.9197E+00_JPRB,6.9713E+00_JPRB,9.6644E+00_JPRB,1.0563E+01_JPRB/)  
+KBO( :, 2,51,11) = (/&
+ & 3.0874E-01_JPRB,3.0902E-01_JPRB,4.1778E+00_JPRB,7.4188E+00_JPRB,1.0300E+01_JPRB,1.1619E+01_JPRB/)  
+KBO( :, 3,51,11) = (/&
+ & 3.7711E-01_JPRB,3.7728E-01_JPRB,4.4030E+00_JPRB,7.7505E+00_JPRB,1.0757E+01_JPRB,1.2466E+01_JPRB/)  
+KBO( :, 4,51,11) = (/&
+ & 4.5549E-01_JPRB,4.5558E-01_JPRB,4.5816E+00_JPRB,7.9699E+00_JPRB,1.1056E+01_JPRB,1.3074E+01_JPRB/)  
+KBO( :, 5,51,11) = (/&
+ & 5.4422E-01_JPRB,5.4419E-01_JPRB,4.7173E+00_JPRB,8.0963E+00_JPRB,1.1218E+01_JPRB,1.3472E+01_JPRB/)  
+KBO( :, 1,52,11) = (/&
+ & 2.2461E-01_JPRB,2.2501E-01_JPRB,3.8110E+00_JPRB,6.7727E+00_JPRB,9.3780E+00_JPRB,1.0204E+01_JPRB/)  
+KBO( :, 2,52,11) = (/&
+ & 2.7696E-01_JPRB,2.7724E-01_JPRB,4.0846E+00_JPRB,7.2661E+00_JPRB,1.0090E+01_JPRB,1.1325E+01_JPRB/)  
+KBO( :, 3,52,11) = (/&
+ & 3.4251E-01_JPRB,3.4273E-01_JPRB,4.3258E+00_JPRB,7.6413E+00_JPRB,1.0608E+01_JPRB,1.2266E+01_JPRB/)  
+KBO( :, 4,52,11) = (/&
+ & 4.1924E-01_JPRB,4.1934E-01_JPRB,4.5215E+00_JPRB,7.9004E+00_JPRB,1.0966E+01_JPRB,1.2948E+01_JPRB/)  
+KBO( :, 5,52,11) = (/&
+ & 5.0516E-01_JPRB,5.0516E-01_JPRB,4.6729E+00_JPRB,8.0607E+00_JPRB,1.1176E+01_JPRB,1.3418E+01_JPRB/)  
+KBO( :, 1,53,11) = (/&
+ & 1.9876E-01_JPRB,1.9925E-01_JPRB,3.6957E+00_JPRB,6.5526E+00_JPRB,9.0627E+00_JPRB,9.8215E+00_JPRB/)  
+KBO( :, 2,53,11) = (/&
+ & 2.4812E-01_JPRB,2.4842E-01_JPRB,3.9863E+00_JPRB,7.0970E+00_JPRB,9.8501E+00_JPRB,1.1018E+01_JPRB/)  
+KBO( :, 3,53,11) = (/&
+ & 3.1019E-01_JPRB,3.1042E-01_JPRB,4.2400E+00_JPRB,7.5167E+00_JPRB,1.0436E+01_JPRB,1.2052E+01_JPRB/)  
+KBO( :, 4,53,11) = (/&
+ & 3.8453E-01_JPRB,3.8465E-01_JPRB,4.4543E+00_JPRB,7.8181E+00_JPRB,1.0855E+01_JPRB,1.2811E+01_JPRB/)  
+KBO( :, 5,53,11) = (/&
+ & 4.6824E-01_JPRB,4.6827E-01_JPRB,4.6221E+00_JPRB,8.0127E+00_JPRB,1.1114E+01_JPRB,1.3357E+01_JPRB/)  
+KBO( :, 1,54,11) = (/&
+ & 1.7658E-01_JPRB,1.7738E-01_JPRB,3.5830E+00_JPRB,6.3331E+00_JPRB,8.7501E+00_JPRB,9.3830E+00_JPRB/)  
+KBO( :, 2,54,11) = (/&
+ & 2.2311E-01_JPRB,2.2343E-01_JPRB,3.8924E+00_JPRB,6.9272E+00_JPRB,9.6066E+00_JPRB,1.0637E+01_JPRB/)  
+KBO( :, 3,54,11) = (/&
+ & 2.8225E-01_JPRB,2.8249E-01_JPRB,4.1567E+00_JPRB,7.3875E+00_JPRB,1.0262E+01_JPRB,1.1745E+01_JPRB/)  
+KBO( :, 4,54,11) = (/&
+ & 3.5407E-01_JPRB,3.5420E-01_JPRB,4.3869E+00_JPRB,7.7293E+00_JPRB,1.0733E+01_JPRB,1.2587E+01_JPRB/)  
+KBO( :, 5,54,11) = (/&
+ & 4.3599E-01_JPRB,4.3605E-01_JPRB,4.5705E+00_JPRB,7.9578E+00_JPRB,1.1045E+01_JPRB,1.3213E+01_JPRB/)  
+KBO( :, 1,55,11) = (/&
+ & 1.5693E-01_JPRB,1.5821E-01_JPRB,3.4683E+00_JPRB,6.1089E+00_JPRB,8.4282E+00_JPRB,8.9090E+00_JPRB/)  
+KBO( :, 2,55,11) = (/&
+ & 2.0085E-01_JPRB,2.0128E-01_JPRB,3.7963E+00_JPRB,6.7515E+00_JPRB,9.3517E+00_JPRB,1.0215E+01_JPRB/)  
+KBO( :, 3,55,11) = (/&
+ & 2.5734E-01_JPRB,2.5756E-01_JPRB,4.0737E+00_JPRB,7.2511E+00_JPRB,1.0072E+01_JPRB,1.1362E+01_JPRB/)  
+KBO( :, 4,55,11) = (/&
+ & 3.2630E-01_JPRB,3.2643E-01_JPRB,4.3183E+00_JPRB,7.6321E+00_JPRB,1.0598E+01_JPRB,1.2305E+01_JPRB/)  
+KBO( :, 5,55,11) = (/&
+ & 4.0605E-01_JPRB,4.0612E-01_JPRB,4.5166E+00_JPRB,7.8950E+00_JPRB,1.0962E+01_JPRB,1.2994E+01_JPRB/)  
+KBO( :, 1,56,11) = (/&
+ & 1.3887E-01_JPRB,1.4103E-01_JPRB,3.3452E+00_JPRB,5.8712E+00_JPRB,8.0833E+00_JPRB,8.4282E+00_JPRB/)  
+KBO( :, 2,56,11) = (/&
+ & 1.8055E-01_JPRB,1.8122E-01_JPRB,3.6957E+00_JPRB,6.5591E+00_JPRB,9.0757E+00_JPRB,9.7805E+00_JPRB/)  
+KBO( :, 3,56,11) = (/&
+ & 2.3436E-01_JPRB,2.3458E-01_JPRB,3.9878E+00_JPRB,7.1027E+00_JPRB,9.8624E+00_JPRB,1.0961E+01_JPRB/)  
+KBO( :, 4,56,11) = (/&
+ & 2.9996E-01_JPRB,3.0009E-01_JPRB,4.2431E+00_JPRB,7.5221E+00_JPRB,1.0447E+01_JPRB,1.1989E+01_JPRB/)  
+KBO( :, 5,56,11) = (/&
+ & 3.7712E-01_JPRB,3.7719E-01_JPRB,4.4577E+00_JPRB,7.8227E+00_JPRB,1.0864E+01_JPRB,1.2750E+01_JPRB/)  
+KBO( :, 1,57,11) = (/&
+ & 1.2231E-01_JPRB,1.2572E-01_JPRB,3.2149E+00_JPRB,5.6195E+00_JPRB,7.7189E+00_JPRB,7.9409E+00_JPRB/)  
+KBO( :, 2,57,11) = (/&
+ & 1.6188E-01_JPRB,1.6303E-01_JPRB,3.5895E+00_JPRB,6.3509E+00_JPRB,8.7789E+00_JPRB,9.3239E+00_JPRB/)  
+KBO( :, 3,57,11) = (/&
+ & 2.1281E-01_JPRB,2.1309E-01_JPRB,3.8984E+00_JPRB,6.9426E+00_JPRB,9.6313E+00_JPRB,1.0551E+01_JPRB/)  
+KBO( :, 4,57,11) = (/&
+ & 2.7533E-01_JPRB,2.7549E-01_JPRB,4.1635E+00_JPRB,7.3997E+00_JPRB,1.0280E+01_JPRB,1.1629E+01_JPRB/)  
+KBO( :, 5,57,11) = (/&
+ & 3.4953E-01_JPRB,3.4962E-01_JPRB,4.3933E+00_JPRB,7.7390E+00_JPRB,1.0749E+01_JPRB,1.2483E+01_JPRB/)  
+KBO( :, 1,58,11) = (/&
+ & 1.0753E-01_JPRB,1.1255E-01_JPRB,3.0845E+00_JPRB,5.3675E+00_JPRB,7.3519E+00_JPRB,7.4714E+00_JPRB/)  
+KBO( :, 2,58,11) = (/&
+ & 1.4527E-01_JPRB,1.4713E-01_JPRB,3.4823E+00_JPRB,6.1407E+00_JPRB,8.4780E+00_JPRB,8.8781E+00_JPRB/)  
+KBO( :, 3,58,11) = (/&
+ & 1.9346E-01_JPRB,1.9393E-01_JPRB,3.8086E+00_JPRB,6.7779E+00_JPRB,9.3926E+00_JPRB,1.0139E+01_JPRB/)  
+KBO( :, 4,58,11) = (/&
+ & 2.5331E-01_JPRB,2.5345E-01_JPRB,4.0858E+00_JPRB,7.2725E+00_JPRB,1.0104E+01_JPRB,1.1238E+01_JPRB/)  
+KBO( :, 5,58,11) = (/&
+ & 3.2441E-01_JPRB,3.2451E-01_JPRB,4.3290E+00_JPRB,7.6484E+00_JPRB,1.0623E+01_JPRB,1.2180E+01_JPRB/)  
+KBO( :, 1,59,11) = (/&
+ & 9.9614E-02_JPRB,1.0577E-01_JPRB,3.0288E+00_JPRB,5.2610E+00_JPRB,7.1978E+00_JPRB,7.2394E+00_JPRB/)  
+KBO( :, 2,59,11) = (/&
+ & 1.3736E-01_JPRB,1.3969E-01_JPRB,3.4366E+00_JPRB,6.0532E+00_JPRB,8.3509E+00_JPRB,8.6179E+00_JPRB/)  
+KBO( :, 3,59,11) = (/&
+ & 1.8506E-01_JPRB,1.8566E-01_JPRB,3.7708E+00_JPRB,6.7076E+00_JPRB,9.2912E+00_JPRB,9.8422E+00_JPRB/)  
+KBO( :, 4,59,11) = (/&
+ & 2.4408E-01_JPRB,2.4421E-01_JPRB,4.0531E+00_JPRB,7.2180E+00_JPRB,1.0029E+01_JPRB,1.0900E+01_JPRB/)  
+KBO( :, 5,59,11) = (/&
+ & 3.1395E-01_JPRB,3.1406E-01_JPRB,4.3016E+00_JPRB,7.6085E+00_JPRB,1.0568E+01_JPRB,1.1809E+01_JPRB/)  
+KBO( :, 1,13,12) = (/&
+ & 1.5071E+01_JPRB,1.5062E+01_JPRB,1.1553E+01_JPRB,8.0422E+00_JPRB,5.1775E+00_JPRB,4.4276E+00_JPRB/)  
+KBO( :, 2,13,12) = (/&
+ & 1.5045E+01_JPRB,1.5037E+01_JPRB,1.1523E+01_JPRB,8.0068E+00_JPRB,5.0603E+00_JPRB,4.3468E+00_JPRB/)  
+KBO( :, 3,13,12) = (/&
+ & 1.4932E+01_JPRB,1.4924E+01_JPRB,1.1428E+01_JPRB,7.9305E+00_JPRB,4.9434E+00_JPRB,4.2743E+00_JPRB/)  
+KBO( :, 4,13,12) = (/&
+ & 1.4793E+01_JPRB,1.4785E+01_JPRB,1.1318E+01_JPRB,7.8509E+00_JPRB,4.8345E+00_JPRB,4.2338E+00_JPRB/)  
+KBO( :, 5,13,12) = (/&
+ & 1.4616E+01_JPRB,1.4607E+01_JPRB,1.1172E+01_JPRB,7.7373E+00_JPRB,4.7181E+00_JPRB,4.2382E+00_JPRB/)  
+KBO( :, 1,14,12) = (/&
+ & 1.6109E+01_JPRB,1.6100E+01_JPRB,1.2313E+01_JPRB,8.5158E+00_JPRB,5.5307E+00_JPRB,4.8392E+00_JPRB/)  
+KBO( :, 2,14,12) = (/&
+ & 1.6026E+01_JPRB,1.6017E+01_JPRB,1.2244E+01_JPRB,8.4632E+00_JPRB,5.4108E+00_JPRB,4.7399E+00_JPRB/)  
+KBO( :, 3,14,12) = (/&
+ & 1.5874E+01_JPRB,1.5865E+01_JPRB,1.2127E+01_JPRB,8.3786E+00_JPRB,5.2843E+00_JPRB,4.6480E+00_JPRB/)  
+KBO( :, 4,14,12) = (/&
+ & 1.5690E+01_JPRB,1.5681E+01_JPRB,1.1982E+01_JPRB,8.2687E+00_JPRB,5.1442E+00_JPRB,4.5663E+00_JPRB/)  
+KBO( :, 5,14,12) = (/&
+ & 1.5467E+01_JPRB,1.5458E+01_JPRB,1.1810E+01_JPRB,8.1473E+00_JPRB,5.0031E+00_JPRB,4.5067E+00_JPRB/)  
+KBO( :, 1,15,12) = (/&
+ & 1.6950E+01_JPRB,1.6940E+01_JPRB,1.2936E+01_JPRB,8.9243E+00_JPRB,5.9139E+00_JPRB,5.3392E+00_JPRB/)  
+KBO( :, 2,15,12) = (/&
+ & 1.6795E+01_JPRB,1.6786E+01_JPRB,1.2817E+01_JPRB,8.8403E+00_JPRB,5.7728E+00_JPRB,5.2173E+00_JPRB/)  
+KBO( :, 3,15,12) = (/&
+ & 1.6618E+01_JPRB,1.6608E+01_JPRB,1.2675E+01_JPRB,8.7335E+00_JPRB,5.6294E+00_JPRB,5.1076E+00_JPRB/)  
+KBO( :, 4,15,12) = (/&
+ & 1.6363E+01_JPRB,1.6354E+01_JPRB,1.2477E+01_JPRB,8.5926E+00_JPRB,5.4844E+00_JPRB,5.0174E+00_JPRB/)  
+KBO( :, 5,15,12) = (/&
+ & 1.6071E+01_JPRB,1.6061E+01_JPRB,1.2263E+01_JPRB,8.4516E+00_JPRB,5.3505E+00_JPRB,4.9217E+00_JPRB/)  
+KBO( :, 1,16,12) = (/&
+ & 1.7483E+01_JPRB,1.7473E+01_JPRB,1.3331E+01_JPRB,9.1930E+00_JPRB,6.3135E+00_JPRB,5.9094E+00_JPRB/)  
+KBO( :, 2,16,12) = (/&
+ & 1.7265E+01_JPRB,1.7255E+01_JPRB,1.3158E+01_JPRB,9.0640E+00_JPRB,6.1752E+00_JPRB,5.7636E+00_JPRB/)  
+KBO( :, 3,16,12) = (/&
+ & 1.7001E+01_JPRB,1.6992E+01_JPRB,1.2961E+01_JPRB,8.9272E+00_JPRB,6.0421E+00_JPRB,5.6420E+00_JPRB/)  
+KBO( :, 4,16,12) = (/&
+ & 1.6715E+01_JPRB,1.6706E+01_JPRB,1.2750E+01_JPRB,8.7873E+00_JPRB,5.9067E+00_JPRB,5.5250E+00_JPRB/)  
+KBO( :, 5,16,12) = (/&
+ & 1.6400E+01_JPRB,1.6391E+01_JPRB,1.2509E+01_JPRB,8.6238E+00_JPRB,5.7670E+00_JPRB,5.4408E+00_JPRB/)  
+KBO( :, 1,17,12) = (/&
+ & 1.7611E+01_JPRB,1.7601E+01_JPRB,1.3423E+01_JPRB,9.2865E+00_JPRB,6.8286E+00_JPRB,6.5192E+00_JPRB/)  
+KBO( :, 2,17,12) = (/&
+ & 1.7351E+01_JPRB,1.7341E+01_JPRB,1.3231E+01_JPRB,9.1506E+00_JPRB,6.6893E+00_JPRB,6.3748E+00_JPRB/)  
+KBO( :, 3,17,12) = (/&
+ & 1.7056E+01_JPRB,1.7047E+01_JPRB,1.3013E+01_JPRB,9.0104E+00_JPRB,6.5437E+00_JPRB,6.2526E+00_JPRB/)  
+KBO( :, 4,17,12) = (/&
+ & 1.6747E+01_JPRB,1.6738E+01_JPRB,1.2778E+01_JPRB,8.8490E+00_JPRB,6.3936E+00_JPRB,6.1321E+00_JPRB/)  
+KBO( :, 5,17,12) = (/&
+ & 1.6425E+01_JPRB,1.6416E+01_JPRB,1.2531E+01_JPRB,8.6800E+00_JPRB,6.2394E+00_JPRB,6.0341E+00_JPRB/)  
+KBO( :, 1,18,12) = (/&
+ & 1.7373E+01_JPRB,1.7363E+01_JPRB,1.3259E+01_JPRB,9.2987E+00_JPRB,7.4434E+00_JPRB,7.1986E+00_JPRB/)  
+KBO( :, 2,18,12) = (/&
+ & 1.7075E+01_JPRB,1.7065E+01_JPRB,1.3035E+01_JPRB,9.1492E+00_JPRB,7.2871E+00_JPRB,7.0606E+00_JPRB/)  
+KBO( :, 3,18,12) = (/&
+ & 1.6756E+01_JPRB,1.6747E+01_JPRB,1.2796E+01_JPRB,8.9869E+00_JPRB,7.1229E+00_JPRB,6.9365E+00_JPRB/)  
+KBO( :, 4,18,12) = (/&
+ & 1.6448E+01_JPRB,1.6438E+01_JPRB,1.2559E+01_JPRB,8.8102E+00_JPRB,6.9614E+00_JPRB,6.7953E+00_JPRB/)  
+KBO( :, 5,18,12) = (/&
+ & 1.6127E+01_JPRB,1.6118E+01_JPRB,1.2311E+01_JPRB,8.6284E+00_JPRB,6.8009E+00_JPRB,6.6712E+00_JPRB/)  
+KBO( :, 1,19,12) = (/&
+ & 1.6746E+01_JPRB,1.6736E+01_JPRB,1.2803E+01_JPRB,9.3167E+00_JPRB,8.0934E+00_JPRB,7.9604E+00_JPRB/)  
+KBO( :, 2,19,12) = (/&
+ & 1.6435E+01_JPRB,1.6426E+01_JPRB,1.2567E+01_JPRB,9.1426E+00_JPRB,7.9243E+00_JPRB,7.8083E+00_JPRB/)  
+KBO( :, 3,19,12) = (/&
+ & 1.6123E+01_JPRB,1.6114E+01_JPRB,1.2329E+01_JPRB,8.9518E+00_JPRB,7.7527E+00_JPRB,7.6627E+00_JPRB/)  
+KBO( :, 4,19,12) = (/&
+ & 1.5818E+01_JPRB,1.5809E+01_JPRB,1.2094E+01_JPRB,8.7559E+00_JPRB,7.5782E+00_JPRB,7.5080E+00_JPRB/)  
+KBO( :, 5,19,12) = (/&
+ & 1.5498E+01_JPRB,1.5490E+01_JPRB,1.1845E+01_JPRB,8.5563E+00_JPRB,7.3997E+00_JPRB,7.3552E+00_JPRB/)  
+KBO( :, 1,20,12) = (/&
+ & 1.5808E+01_JPRB,1.5799E+01_JPRB,1.2109E+01_JPRB,9.3560E+00_JPRB,8.7540E+00_JPRB,8.7978E+00_JPRB/)  
+KBO( :, 2,20,12) = (/&
+ & 1.5503E+01_JPRB,1.5494E+01_JPRB,1.1873E+01_JPRB,9.1479E+00_JPRB,8.5752E+00_JPRB,8.6307E+00_JPRB/)  
+KBO( :, 3,20,12) = (/&
+ & 1.5194E+01_JPRB,1.5185E+01_JPRB,1.1636E+01_JPRB,8.9392E+00_JPRB,8.3955E+00_JPRB,8.4731E+00_JPRB/)  
+KBO( :, 4,20,12) = (/&
+ & 1.4894E+01_JPRB,1.4886E+01_JPRB,1.1403E+01_JPRB,8.7296E+00_JPRB,8.2170E+00_JPRB,8.2989E+00_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART29',1,ZHOOK_HANDLE)
+END SUBROUTINE PART29
+
+
+SUBROUTINE PART30
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART30',0,ZHOOK_HANDLE)
+
+
+KBO( :, 5,20,12) = (/&
+ & 1.4572E+01_JPRB,1.4563E+01_JPRB,1.1152E+01_JPRB,8.5115E+00_JPRB,8.0382E+00_JPRB,8.1214E+00_JPRB/)  
+KBO( :, 1,21,12) = (/&
+ & 1.4618E+01_JPRB,1.4609E+01_JPRB,1.1224E+01_JPRB,9.4749E+00_JPRB,9.4674E+00_JPRB,9.7176E+00_JPRB/)  
+KBO( :, 2,21,12) = (/&
+ & 1.4320E+01_JPRB,1.4312E+01_JPRB,1.0993E+01_JPRB,9.2613E+00_JPRB,9.2871E+00_JPRB,9.5392E+00_JPRB/)  
+KBO( :, 3,21,12) = (/&
+ & 1.4030E+01_JPRB,1.4022E+01_JPRB,1.0770E+01_JPRB,9.0451E+00_JPRB,9.1076E+00_JPRB,9.3604E+00_JPRB/)  
+KBO( :, 4,21,12) = (/&
+ & 1.3731E+01_JPRB,1.3724E+01_JPRB,1.0538E+01_JPRB,8.8193E+00_JPRB,8.9189E+00_JPRB,9.1661E+00_JPRB/)  
+KBO( :, 5,21,12) = (/&
+ & 1.3412E+01_JPRB,1.3405E+01_JPRB,1.0288E+01_JPRB,8.5978E+00_JPRB,8.7269E+00_JPRB,8.9634E+00_JPRB/)  
+KBO( :, 1,22,12) = (/&
+ & 1.3252E+01_JPRB,1.3245E+01_JPRB,1.0263E+01_JPRB,9.6884E+00_JPRB,1.0237E+01_JPRB,1.0659E+01_JPRB/)  
+KBO( :, 2,22,12) = (/&
+ & 1.2974E+01_JPRB,1.2967E+01_JPRB,1.0045E+01_JPRB,9.4635E+00_JPRB,1.0051E+01_JPRB,1.0470E+01_JPRB/)  
+KBO( :, 3,22,12) = (/&
+ & 1.2686E+01_JPRB,1.2679E+01_JPRB,9.8204E+00_JPRB,9.2336E+00_JPRB,9.8532E+00_JPRB,1.0276E+01_JPRB/)  
+KBO( :, 4,22,12) = (/&
+ & 1.2392E+01_JPRB,1.2385E+01_JPRB,9.5853E+00_JPRB,9.0077E+00_JPRB,9.6460E+00_JPRB,1.0057E+01_JPRB/)  
+KBO( :, 5,22,12) = (/&
+ & 1.2080E+01_JPRB,1.2073E+01_JPRB,9.3373E+00_JPRB,8.7763E+00_JPRB,9.4290E+00_JPRB,9.8257E+00_JPRB/)  
+KBO( :, 1,23,12) = (/&
+ & 1.1802E+01_JPRB,1.1796E+01_JPRB,9.3955E+00_JPRB,9.9793E+00_JPRB,1.1071E+01_JPRB,1.1590E+01_JPRB/)  
+KBO( :, 2,23,12) = (/&
+ & 1.1532E+01_JPRB,1.1526E+01_JPRB,9.1740E+00_JPRB,9.7510E+00_JPRB,1.0853E+01_JPRB,1.1387E+01_JPRB/)  
+KBO( :, 3,23,12) = (/&
+ & 1.1254E+01_JPRB,1.1248E+01_JPRB,8.9457E+00_JPRB,9.5279E+00_JPRB,1.0621E+01_JPRB,1.1176E+01_JPRB/)  
+KBO( :, 4,23,12) = (/&
+ & 1.0971E+01_JPRB,1.0965E+01_JPRB,8.7049E+00_JPRB,9.2947E+00_JPRB,1.0373E+01_JPRB,1.0939E+01_JPRB/)  
+KBO( :, 5,23,12) = (/&
+ & 1.0694E+01_JPRB,1.0688E+01_JPRB,8.4691E+00_JPRB,9.0520E+00_JPRB,1.0118E+01_JPRB,1.0692E+01_JPRB/)  
+KBO( :, 1,24,12) = (/&
+ & 1.0339E+01_JPRB,1.0334E+01_JPRB,8.7416E+00_JPRB,1.0311E+01_JPRB,1.1869E+01_JPRB,1.2496E+01_JPRB/)  
+KBO( :, 2,24,12) = (/&
+ & 1.0079E+01_JPRB,1.0074E+01_JPRB,8.5118E+00_JPRB,1.0085E+01_JPRB,1.1623E+01_JPRB,1.2266E+01_JPRB/)  
+KBO( :, 3,24,12) = (/&
+ & 9.8237E+00_JPRB,9.8183E+00_JPRB,8.2739E+00_JPRB,9.8502E+00_JPRB,1.1362E+01_JPRB,1.2041E+01_JPRB/)  
+KBO( :, 4,24,12) = (/&
+ & 9.5837E+00_JPRB,9.5785E+00_JPRB,8.0352E+00_JPRB,9.6060E+00_JPRB,1.1087E+01_JPRB,1.1795E+01_JPRB/)  
+KBO( :, 5,24,12) = (/&
+ & 9.4022E+00_JPRB,9.3971E+00_JPRB,7.8130E+00_JPRB,9.3488E+00_JPRB,1.0802E+01_JPRB,1.1530E+01_JPRB/)  
+KBO( :, 1,25,12) = (/&
+ & 8.9159E+00_JPRB,8.9112E+00_JPRB,8.3253E+00_JPRB,1.0680E+01_JPRB,1.2624E+01_JPRB,1.3349E+01_JPRB/)  
+KBO( :, 2,25,12) = (/&
+ & 8.6856E+00_JPRB,8.6810E+00_JPRB,8.0901E+00_JPRB,1.0434E+01_JPRB,1.2357E+01_JPRB,1.3117E+01_JPRB/)  
+KBO( :, 3,25,12) = (/&
+ & 8.4955E+00_JPRB,8.4909E+00_JPRB,7.8520E+00_JPRB,1.0179E+01_JPRB,1.2070E+01_JPRB,1.2889E+01_JPRB/)  
+KBO( :, 4,25,12) = (/&
+ & 8.3669E+00_JPRB,8.3624E+00_JPRB,7.6206E+00_JPRB,9.9074E+00_JPRB,1.1769E+01_JPRB,1.2627E+01_JPRB/)  
+KBO( :, 5,25,12) = (/&
+ & 8.2951E+00_JPRB,8.2906E+00_JPRB,7.4263E+00_JPRB,9.6322E+00_JPRB,1.1459E+01_JPRB,1.2339E+01_JPRB/)  
+KBO( :, 1,26,12) = (/&
+ & 7.5918E+00_JPRB,7.5878E+00_JPRB,8.0448E+00_JPRB,1.1047E+01_JPRB,1.3308E+01_JPRB,1.4181E+01_JPRB/)  
+KBO( :, 2,26,12) = (/&
+ & 7.4417E+00_JPRB,7.4378E+00_JPRB,7.8118E+00_JPRB,1.0782E+01_JPRB,1.3032E+01_JPRB,1.3946E+01_JPRB/)  
+KBO( :, 3,26,12) = (/&
+ & 7.3590E+00_JPRB,7.3551E+00_JPRB,7.5780E+00_JPRB,1.0497E+01_JPRB,1.2721E+01_JPRB,1.3696E+01_JPRB/)  
+KBO( :, 4,26,12) = (/&
+ & 7.3502E+00_JPRB,7.3462E+00_JPRB,7.3714E+00_JPRB,1.0203E+01_JPRB,1.2399E+01_JPRB,1.3409E+01_JPRB/)  
+KBO( :, 5,26,12) = (/&
+ & 7.4276E+00_JPRB,7.4236E+00_JPRB,7.2173E+00_JPRB,9.8998E+00_JPRB,1.2064E+01_JPRB,1.3105E+01_JPRB/)  
+KBO( :, 1,27,12) = (/&
+ & 6.4683E+00_JPRB,6.4649E+00_JPRB,7.8812E+00_JPRB,1.1375E+01_JPRB,1.3927E+01_JPRB,1.4966E+01_JPRB/)  
+KBO( :, 2,27,12) = (/&
+ & 6.4189E+00_JPRB,6.4156E+00_JPRB,7.6472E+00_JPRB,1.1088E+01_JPRB,1.3638E+01_JPRB,1.4716E+01_JPRB/)  
+KBO( :, 3,27,12) = (/&
+ & 6.4591E+00_JPRB,6.4557E+00_JPRB,7.4245E+00_JPRB,1.0785E+01_JPRB,1.3326E+01_JPRB,1.4451E+01_JPRB/)  
+KBO( :, 4,27,12) = (/&
+ & 6.5895E+00_JPRB,6.5861E+00_JPRB,7.2540E+00_JPRB,1.0466E+01_JPRB,1.2988E+01_JPRB,1.4141E+01_JPRB/)  
+KBO( :, 5,27,12) = (/&
+ & 6.7673E+00_JPRB,6.7638E+00_JPRB,7.1253E+00_JPRB,1.0145E+01_JPRB,1.2630E+01_JPRB,1.3805E+01_JPRB/)  
+KBO( :, 1,28,12) = (/&
+ & 5.5812E+00_JPRB,5.5783E+00_JPRB,7.7689E+00_JPRB,1.1658E+01_JPRB,1.4504E+01_JPRB,1.5676E+01_JPRB/)  
+KBO( :, 2,28,12) = (/&
+ & 5.6494E+00_JPRB,5.6465E+00_JPRB,7.5324E+00_JPRB,1.1356E+01_JPRB,1.4208E+01_JPRB,1.5420E+01_JPRB/)  
+KBO( :, 3,28,12) = (/&
+ & 5.8063E+00_JPRB,5.8033E+00_JPRB,7.3350E+00_JPRB,1.1035E+01_JPRB,1.3883E+01_JPRB,1.5136E+01_JPRB/)  
+KBO( :, 4,28,12) = (/&
+ & 5.9982E+00_JPRB,5.9952E+00_JPRB,7.1895E+00_JPRB,1.0705E+01_JPRB,1.3523E+01_JPRB,1.4796E+01_JPRB/)  
+KBO( :, 5,28,12) = (/&
+ & 6.2275E+00_JPRB,6.2243E+00_JPRB,7.0847E+00_JPRB,1.0363E+01_JPRB,1.3144E+01_JPRB,1.4440E+01_JPRB/)  
+KBO( :, 1,29,12) = (/&
+ & 4.9263E+00_JPRB,4.9239E+00_JPRB,7.6738E+00_JPRB,1.1886E+01_JPRB,1.5034E+01_JPRB,1.6303E+01_JPRB/)  
+KBO( :, 2,29,12) = (/&
+ & 5.0905E+00_JPRB,5.0880E+00_JPRB,7.4511E+00_JPRB,1.1577E+01_JPRB,1.4725E+01_JPRB,1.6056E+01_JPRB/)  
+KBO( :, 3,29,12) = (/&
+ & 5.2910E+00_JPRB,5.2884E+00_JPRB,7.2824E+00_JPRB,1.1245E+01_JPRB,1.4371E+01_JPRB,1.5737E+01_JPRB/)  
+KBO( :, 4,29,12) = (/&
+ & 5.5388E+00_JPRB,5.5361E+00_JPRB,7.1566E+00_JPRB,1.0903E+01_JPRB,1.3995E+01_JPRB,1.5373E+01_JPRB/)  
+KBO( :, 5,29,12) = (/&
+ & 5.8140E+00_JPRB,5.8111E+00_JPRB,7.0642E+00_JPRB,1.0551E+01_JPRB,1.3590E+01_JPRB,1.5023E+01_JPRB/)  
+KBO( :, 1,30,12) = (/&
+ & 4.4481E+00_JPRB,4.4460E+00_JPRB,7.5927E+00_JPRB,1.2072E+01_JPRB,1.5506E+01_JPRB,1.6872E+01_JPRB/)  
+KBO( :, 2,30,12) = (/&
+ & 4.6495E+00_JPRB,4.6473E+00_JPRB,7.3991E+00_JPRB,1.1764E+01_JPRB,1.5173E+01_JPRB,1.6609E+01_JPRB/)  
+KBO( :, 3,30,12) = (/&
+ & 4.9026E+00_JPRB,4.9003E+00_JPRB,7.2499E+00_JPRB,1.1426E+01_JPRB,1.4795E+01_JPRB,1.6261E+01_JPRB/)  
+KBO( :, 4,30,12) = (/&
+ & 5.1748E+00_JPRB,5.1723E+00_JPRB,7.1402E+00_JPRB,1.1073E+01_JPRB,1.4399E+01_JPRB,1.5886E+01_JPRB/)  
+KBO( :, 5,30,12) = (/&
+ & 5.4669E+00_JPRB,5.4641E+00_JPRB,7.0513E+00_JPRB,1.0712E+01_JPRB,1.3969E+01_JPRB,1.5546E+01_JPRB/)  
+KBO( :, 1,31,12) = (/&
+ & 4.0826E+00_JPRB,4.0808E+00_JPRB,7.5248E+00_JPRB,1.2230E+01_JPRB,1.5909E+01_JPRB,1.7372E+01_JPRB/)  
+KBO( :, 2,31,12) = (/&
+ & 4.3203E+00_JPRB,4.3184E+00_JPRB,7.3583E+00_JPRB,1.1921E+01_JPRB,1.5546E+01_JPRB,1.7073E+01_JPRB/)  
+KBO( :, 3,31,12) = (/&
+ & 4.5820E+00_JPRB,4.5799E+00_JPRB,7.2311E+00_JPRB,1.1577E+01_JPRB,1.5153E+01_JPRB,1.6713E+01_JPRB/)  
+KBO( :, 4,31,12) = (/&
+ & 4.8695E+00_JPRB,4.8672E+00_JPRB,7.1286E+00_JPRB,1.1212E+01_JPRB,1.4724E+01_JPRB,1.6381E+01_JPRB/)  
+KBO( :, 5,31,12) = (/&
+ & 5.1816E+00_JPRB,5.1790E+00_JPRB,7.0469E+00_JPRB,1.0847E+01_JPRB,1.4274E+01_JPRB,1.6048E+01_JPRB/)  
+KBO( :, 1,32,12) = (/&
+ & 3.7968E+00_JPRB,3.7952E+00_JPRB,7.4739E+00_JPRB,1.2361E+01_JPRB,1.6239E+01_JPRB,1.7800E+01_JPRB/)  
+KBO( :, 2,32,12) = (/&
+ & 4.0447E+00_JPRB,4.0430E+00_JPRB,7.3338E+00_JPRB,1.2050E+01_JPRB,1.5855E+01_JPRB,1.7484E+01_JPRB/)  
+KBO( :, 3,32,12) = (/&
+ & 4.3179E+00_JPRB,4.3159E+00_JPRB,7.2183E+00_JPRB,1.1702E+01_JPRB,1.5442E+01_JPRB,1.7161E+01_JPRB/)  
+KBO( :, 4,32,12) = (/&
+ & 4.6213E+00_JPRB,4.6191E+00_JPRB,7.1240E+00_JPRB,1.1329E+01_JPRB,1.4991E+01_JPRB,1.6858E+01_JPRB/)  
+KBO( :, 5,32,12) = (/&
+ & 4.9485E+00_JPRB,4.9460E+00_JPRB,7.0483E+00_JPRB,1.0954E+01_JPRB,1.4516E+01_JPRB,1.6491E+01_JPRB/)  
+KBO( :, 1,33,12) = (/&
+ & 3.5568E+00_JPRB,3.5554E+00_JPRB,7.4337E+00_JPRB,1.2471E+01_JPRB,1.6507E+01_JPRB,1.8167E+01_JPRB/)  
+KBO( :, 2,33,12) = (/&
+ & 3.8191E+00_JPRB,3.8174E+00_JPRB,7.3162E+00_JPRB,1.2150E+01_JPRB,1.6107E+01_JPRB,1.7878E+01_JPRB/)  
+KBO( :, 3,33,12) = (/&
+ & 4.1081E+00_JPRB,4.1061E+00_JPRB,7.2154E+00_JPRB,1.1795E+01_JPRB,1.5670E+01_JPRB,1.7617E+01_JPRB/)  
+KBO( :, 4,33,12) = (/&
+ & 4.4244E+00_JPRB,4.4223E+00_JPRB,7.1305E+00_JPRB,1.1413E+01_JPRB,1.5196E+01_JPRB,1.7282E+01_JPRB/)  
+KBO( :, 5,33,12) = (/&
+ & 4.7677E+00_JPRB,4.7653E+00_JPRB,7.0542E+00_JPRB,1.1036E+01_JPRB,1.4698E+01_JPRB,1.6888E+01_JPRB/)  
+KBO( :, 1,34,12) = (/&
+ & 3.3521E+00_JPRB,3.3507E+00_JPRB,7.4128E+00_JPRB,1.2559E+01_JPRB,1.6734E+01_JPRB,1.8506E+01_JPRB/)  
+KBO( :, 2,34,12) = (/&
+ & 3.6291E+00_JPRB,3.6275E+00_JPRB,7.3128E+00_JPRB,1.2232E+01_JPRB,1.6317E+01_JPRB,1.8280E+01_JPRB/)  
+KBO( :, 3,34,12) = (/&
+ & 3.9317E+00_JPRB,3.9298E+00_JPRB,7.2212E+00_JPRB,1.1872E+01_JPRB,1.5854E+01_JPRB,1.8005E+01_JPRB/)  
+KBO( :, 4,34,12) = (/&
+ & 4.2593E+00_JPRB,4.2572E+00_JPRB,7.1423E+00_JPRB,1.1481E+01_JPRB,1.5360E+01_JPRB,1.7643E+01_JPRB/)  
+KBO( :, 5,34,12) = (/&
+ & 4.6153E+00_JPRB,4.6130E+00_JPRB,7.0650E+00_JPRB,1.1105E+01_JPRB,1.4842E+01_JPRB,1.7226E+01_JPRB/)  
+KBO( :, 1,35,12) = (/&
+ & 3.1598E+00_JPRB,3.1585E+00_JPRB,7.4142E+00_JPRB,1.2657E+01_JPRB,1.6945E+01_JPRB,1.8872E+01_JPRB/)  
+KBO( :, 2,35,12) = (/&
+ & 3.4442E+00_JPRB,3.4427E+00_JPRB,7.3257E+00_JPRB,1.2327E+01_JPRB,1.6516E+01_JPRB,1.8673E+01_JPRB/)  
+KBO( :, 3,35,12) = (/&
+ & 3.7587E+00_JPRB,3.7569E+00_JPRB,7.2409E+00_JPRB,1.1960E+01_JPRB,1.6036E+01_JPRB,1.8373E+01_JPRB/)  
+KBO( :, 4,35,12) = (/&
+ & 4.0964E+00_JPRB,4.0944E+00_JPRB,7.1633E+00_JPRB,1.1567E+01_JPRB,1.5526E+01_JPRB,1.7979E+01_JPRB/)  
+KBO( :, 5,35,12) = (/&
+ & 4.4686E+00_JPRB,4.4663E+00_JPRB,7.0860E+00_JPRB,1.1190E+01_JPRB,1.4992E+01_JPRB,1.7544E+01_JPRB/)  
+KBO( :, 1,36,12) = (/&
+ & 2.9654E+00_JPRB,2.9641E+00_JPRB,7.4313E+00_JPRB,1.2766E+01_JPRB,1.7160E+01_JPRB,1.9227E+01_JPRB/)  
+KBO( :, 2,36,12) = (/&
+ & 3.2570E+00_JPRB,3.2555E+00_JPRB,7.3495E+00_JPRB,1.2436E+01_JPRB,1.6723E+01_JPRB,1.9033E+01_JPRB/)  
+KBO( :, 3,36,12) = (/&
+ & 3.5797E+00_JPRB,3.5780E+00_JPRB,7.2711E+00_JPRB,1.2069E+01_JPRB,1.6233E+01_JPRB,1.8715E+01_JPRB/)  
+KBO( :, 4,36,12) = (/&
+ & 3.9316E+00_JPRB,3.9297E+00_JPRB,7.1919E+00_JPRB,1.1675E+01_JPRB,1.5711E+01_JPRB,1.8314E+01_JPRB/)  
+KBO( :, 5,36,12) = (/&
+ & 4.3127E+00_JPRB,4.3105E+00_JPRB,7.1101E+00_JPRB,1.1293E+01_JPRB,1.5166E+01_JPRB,1.7865E+01_JPRB/)  
+KBO( :, 1,37,12) = (/&
+ & 2.7533E+00_JPRB,2.7522E+00_JPRB,7.4577E+00_JPRB,1.2906E+01_JPRB,1.7405E+01_JPRB,1.9546E+01_JPRB/)  
+KBO( :, 2,37,12) = (/&
+ & 3.0486E+00_JPRB,3.0472E+00_JPRB,7.3839E+00_JPRB,1.2582E+01_JPRB,1.6967E+01_JPRB,1.9367E+01_JPRB/)  
+KBO( :, 3,37,12) = (/&
+ & 3.3772E+00_JPRB,3.3756E+00_JPRB,7.3093E+00_JPRB,1.2218E+01_JPRB,1.6476E+01_JPRB,1.9050E+01_JPRB/)  
+KBO( :, 4,37,12) = (/&
+ & 3.7381E+00_JPRB,3.7362E+00_JPRB,7.2303E+00_JPRB,1.1826E+01_JPRB,1.5946E+01_JPRB,1.8659E+01_JPRB/)  
+KBO( :, 5,37,12) = (/&
+ & 4.1246E+00_JPRB,4.1225E+00_JPRB,7.1455E+00_JPRB,1.1440E+01_JPRB,1.5395E+01_JPRB,1.8212E+01_JPRB/)  
+KBO( :, 1,38,12) = (/&
+ & 2.5620E+00_JPRB,2.5610E+00_JPRB,7.4808E+00_JPRB,1.3030E+01_JPRB,1.7619E+01_JPRB,1.9841E+01_JPRB/)  
+KBO( :, 2,38,12) = (/&
+ & 2.8608E+00_JPRB,2.8595E+00_JPRB,7.4174E+00_JPRB,1.2714E+01_JPRB,1.7188E+01_JPRB,1.9683E+01_JPRB/)  
+KBO( :, 3,38,12) = (/&
+ & 3.1956E+00_JPRB,3.1942E+00_JPRB,7.3440E+00_JPRB,1.2353E+01_JPRB,1.6696E+01_JPRB,1.9369E+01_JPRB/)  
+KBO( :, 4,38,12) = (/&
+ & 3.5649E+00_JPRB,3.5631E+00_JPRB,7.2670E+00_JPRB,1.1965E+01_JPRB,1.6163E+01_JPRB,1.8994E+01_JPRB/)  
+KBO( :, 5,38,12) = (/&
+ & 3.9585E+00_JPRB,3.9565E+00_JPRB,7.1817E+00_JPRB,1.1573E+01_JPRB,1.5604E+01_JPRB,1.8550E+01_JPRB/)  
+KBO( :, 1,39,12) = (/&
+ & 2.3896E+00_JPRB,2.3887E+00_JPRB,7.5031E+00_JPRB,1.3145E+01_JPRB,1.7806E+01_JPRB,2.0123E+01_JPRB/)  
+KBO( :, 2,39,12) = (/&
+ & 2.6949E+00_JPRB,2.6937E+00_JPRB,7.4455E+00_JPRB,1.2830E+01_JPRB,1.7380E+01_JPRB,1.9979E+01_JPRB/)  
+KBO( :, 3,39,12) = (/&
+ & 3.0362E+00_JPRB,3.0348E+00_JPRB,7.3756E+00_JPRB,1.2474E+01_JPRB,1.6890E+01_JPRB,1.9683E+01_JPRB/)  
+KBO( :, 4,39,12) = (/&
+ & 3.4116E+00_JPRB,3.4099E+00_JPRB,7.3010E+00_JPRB,1.2089E+01_JPRB,1.6357E+01_JPRB,1.9331E+01_JPRB/)  
+KBO( :, 5,39,12) = (/&
+ & 3.8125E+00_JPRB,3.8105E+00_JPRB,7.2161E+00_JPRB,1.1695E+01_JPRB,1.5793E+01_JPRB,1.8893E+01_JPRB/)  
+KBO( :, 1,40,12) = (/&
+ & 2.2084E+00_JPRB,2.2076E+00_JPRB,7.5257E+00_JPRB,1.3272E+01_JPRB,1.8011E+01_JPRB,2.0327E+01_JPRB/)  
+KBO( :, 2,40,12) = (/&
+ & 2.5142E+00_JPRB,2.5132E+00_JPRB,7.4776E+00_JPRB,1.2969E+01_JPRB,1.7599E+01_JPRB,2.0223E+01_JPRB/)  
+KBO( :, 3,40,12) = (/&
+ & 2.8571E+00_JPRB,2.8558E+00_JPRB,7.4104E+00_JPRB,1.2622E+01_JPRB,1.7115E+01_JPRB,1.9951E+01_JPRB/)  
+KBO( :, 4,40,12) = (/&
+ & 3.2355E+00_JPRB,3.2339E+00_JPRB,7.3412E+00_JPRB,1.2241E+01_JPRB,1.6586E+01_JPRB,1.9625E+01_JPRB/)  
+KBO( :, 5,40,12) = (/&
+ & 3.6402E+00_JPRB,3.6383E+00_JPRB,7.2559E+00_JPRB,1.1846E+01_JPRB,1.6023E+01_JPRB,1.9193E+01_JPRB/)  
+KBO( :, 1,41,12) = (/&
+ & 2.0392E+00_JPRB,2.0384E+00_JPRB,7.5497E+00_JPRB,1.3388E+01_JPRB,1.8196E+01_JPRB,2.0499E+01_JPRB/)  
+KBO( :, 2,41,12) = (/&
+ & 2.3453E+00_JPRB,2.3444E+00_JPRB,7.5055E+00_JPRB,1.3103E+01_JPRB,1.7800E+01_JPRB,2.0441E+01_JPRB/)  
+KBO( :, 3,41,12) = (/&
+ & 2.6889E+00_JPRB,2.6876E+00_JPRB,7.4442E+00_JPRB,1.2764E+01_JPRB,1.7330E+01_JPRB,2.0201E+01_JPRB/)  
+KBO( :, 4,41,12) = (/&
+ & 3.0674E+00_JPRB,3.0659E+00_JPRB,7.3773E+00_JPRB,1.2388E+01_JPRB,1.6806E+01_JPRB,1.9901E+01_JPRB/)  
+KBO( :, 5,41,12) = (/&
+ & 3.4739E+00_JPRB,3.4722E+00_JPRB,7.2932E+00_JPRB,1.1996E+01_JPRB,1.6248E+01_JPRB,1.9478E+01_JPRB/)  
+KBO( :, 1,42,12) = (/&
+ & 1.8842E+00_JPRB,1.8835E+00_JPRB,7.5738E+00_JPRB,1.3492E+01_JPRB,1.8356E+01_JPRB,2.0651E+01_JPRB/)  
+KBO( :, 2,42,12) = (/&
+ & 2.1916E+00_JPRB,2.1907E+00_JPRB,7.5284E+00_JPRB,1.3224E+01_JPRB,1.7982E+01_JPRB,2.0639E+01_JPRB/)  
+KBO( :, 3,42,12) = (/&
+ & 2.5344E+00_JPRB,2.5332E+00_JPRB,7.4756E+00_JPRB,1.2895E+01_JPRB,1.7528E+01_JPRB,2.0438E+01_JPRB/)  
+KBO( :, 4,42,12) = (/&
+ & 2.9115E+00_JPRB,2.9101E+00_JPRB,7.4107E+00_JPRB,1.2526E+01_JPRB,1.7014E+01_JPRB,2.0170E+01_JPRB/)  
+KBO( :, 5,42,12) = (/&
+ & 3.3176E+00_JPRB,3.3160E+00_JPRB,7.3300E+00_JPRB,1.2138E+01_JPRB,1.6460E+01_JPRB,1.9759E+01_JPRB/)  
+KBO( :, 1,43,12) = (/&
+ & 1.7267E+00_JPRB,1.7260E+00_JPRB,7.5950E+00_JPRB,1.3597E+01_JPRB,1.8513E+01_JPRB,2.0770E+01_JPRB/)  
+KBO( :, 2,43,12) = (/&
+ & 2.0318E+00_JPRB,2.0310E+00_JPRB,7.5508E+00_JPRB,1.3350E+01_JPRB,1.8172E+01_JPRB,2.0815E+01_JPRB/)  
+KBO( :, 3,43,12) = (/&
+ & 2.3711E+00_JPRB,2.3700E+00_JPRB,7.5067E+00_JPRB,1.3037E+01_JPRB,1.7739E+01_JPRB,2.0667E+01_JPRB/)  
+KBO( :, 4,43,12) = (/&
+ & 2.7430E+00_JPRB,2.7417E+00_JPRB,7.4433E+00_JPRB,1.2679E+01_JPRB,1.7236E+01_JPRB,2.0434E+01_JPRB/)  
+KBO( :, 5,43,12) = (/&
+ & 3.1470E+00_JPRB,3.1454E+00_JPRB,7.3686E+00_JPRB,1.2292E+01_JPRB,1.6691E+01_JPRB,2.0048E+01_JPRB/)  
+KBO( :, 1,44,12) = (/&
+ & 1.5761E+00_JPRB,1.5756E+00_JPRB,7.6126E+00_JPRB,1.3691E+01_JPRB,1.8648E+01_JPRB,2.0862E+01_JPRB/)  
+KBO( :, 2,44,12) = (/&
+ & 1.8753E+00_JPRB,1.8746E+00_JPRB,7.5725E+00_JPRB,1.3468E+01_JPRB,1.8351E+01_JPRB,2.0968E+01_JPRB/)  
+KBO( :, 3,44,12) = (/&
+ & 2.2096E+00_JPRB,2.2086E+00_JPRB,7.5342E+00_JPRB,1.3177E+01_JPRB,1.7945E+01_JPRB,2.0887E+01_JPRB/)  
+KBO( :, 4,44,12) = (/&
+ & 2.5754E+00_JPRB,2.5742E+00_JPRB,7.4767E+00_JPRB,1.2832E+01_JPRB,1.7460E+01_JPRB,2.0692E+01_JPRB/)  
+KBO( :, 5,44,12) = (/&
+ & 2.9738E+00_JPRB,2.9723E+00_JPRB,7.4066E+00_JPRB,1.2450E+01_JPRB,1.6925E+01_JPRB,2.0342E+01_JPRB/)  
+KBO( :, 1,45,12) = (/&
+ & 1.4392E+00_JPRB,1.4387E+00_JPRB,7.6289E+00_JPRB,1.3769E+01_JPRB,1.8760E+01_JPRB,2.0935E+01_JPRB/)  
+KBO( :, 2,45,12) = (/&
+ & 1.7286E+00_JPRB,1.7279E+00_JPRB,7.5921E+00_JPRB,1.3574E+01_JPRB,1.8509E+01_JPRB,2.1105E+01_JPRB/)  
+KBO( :, 3,45,12) = (/&
+ & 2.0581E+00_JPRB,2.0572E+00_JPRB,7.5558E+00_JPRB,1.3307E+01_JPRB,1.8131E+01_JPRB,2.1101E+01_JPRB/)  
+KBO( :, 4,45,12) = (/&
+ & 2.4180E+00_JPRB,2.4169E+00_JPRB,7.5062E+00_JPRB,1.2976E+01_JPRB,1.7672E+01_JPRB,2.0953E+01_JPRB/)  
+KBO( :, 5,45,12) = (/&
+ & 2.8084E+00_JPRB,2.8070E+00_JPRB,7.4420E+00_JPRB,1.2604E+01_JPRB,1.7149E+01_JPRB,2.0640E+01_JPRB/)  
+KBO( :, 1,46,12) = (/&
+ & 1.3097E+00_JPRB,1.3093E+00_JPRB,7.6423E+00_JPRB,1.3829E+01_JPRB,1.8849E+01_JPRB,2.0974E+01_JPRB/)  
+KBO( :, 2,46,12) = (/&
+ & 1.5854E+00_JPRB,1.5848E+00_JPRB,7.6098E+00_JPRB,1.3672E+01_JPRB,1.8651E+01_JPRB,2.1212E+01_JPRB/)  
+KBO( :, 3,46,12) = (/&
+ & 1.9071E+00_JPRB,1.9063E+00_JPRB,7.5745E+00_JPRB,1.3430E+01_JPRB,1.8314E+01_JPRB,2.1300E+01_JPRB/)  
+KBO( :, 4,46,12) = (/&
+ & 2.2598E+00_JPRB,2.2588E+00_JPRB,7.5350E+00_JPRB,1.3119E+01_JPRB,1.7880E+01_JPRB,2.1201E+01_JPRB/)  
+KBO( :, 5,46,12) = (/&
+ & 2.6412E+00_JPRB,2.6399E+00_JPRB,7.4731E+00_JPRB,1.2761E+01_JPRB,1.7374E+01_JPRB,2.0932E+01_JPRB/)  
+KBO( :, 1,47,12) = (/&
+ & 1.1830E+00_JPRB,1.1826E+00_JPRB,7.6481E+00_JPRB,1.3869E+01_JPRB,1.8908E+01_JPRB,2.0951E+01_JPRB/)  
+KBO( :, 2,47,12) = (/&
+ & 1.4407E+00_JPRB,1.4402E+00_JPRB,7.6261E+00_JPRB,1.3765E+01_JPRB,1.8775E+01_JPRB,2.1251E+01_JPRB/)  
+KBO( :, 3,47,12) = (/&
+ & 1.7493E+00_JPRB,1.7485E+00_JPRB,7.5928E+00_JPRB,1.3553E+01_JPRB,1.8492E+01_JPRB,2.1457E+01_JPRB/)  
+KBO( :, 4,47,12) = (/&
+ & 2.0941E+00_JPRB,2.0931E+00_JPRB,7.5591E+00_JPRB,1.3267E+01_JPRB,1.8091E+01_JPRB,2.1416E+01_JPRB/)  
+KBO( :, 5,47,12) = (/&
+ & 2.4666E+00_JPRB,2.4654E+00_JPRB,7.5056E+00_JPRB,1.2925E+01_JPRB,1.7610E+01_JPRB,2.1209E+01_JPRB/)  
+KBO( :, 1,48,12) = (/&
+ & 1.0695E+00_JPRB,1.0692E+00_JPRB,7.6498E+00_JPRB,1.3881E+01_JPRB,1.8927E+01_JPRB,2.0896E+01_JPRB/)  
+KBO( :, 2,48,12) = (/&
+ & 1.3081E+00_JPRB,1.3076E+00_JPRB,7.6404E+00_JPRB,1.3836E+01_JPRB,1.8873E+01_JPRB,2.1276E+01_JPRB/)  
+KBO( :, 3,48,12) = (/&
+ & 1.6006E+00_JPRB,1.5999E+00_JPRB,7.6097E+00_JPRB,1.3659E+01_JPRB,1.8647E+01_JPRB,2.1600E+01_JPRB/)  
+KBO( :, 4,48,12) = (/&
+ & 1.9354E+00_JPRB,1.9345E+00_JPRB,7.5773E+00_JPRB,1.3403E+01_JPRB,1.8286E+01_JPRB,2.1634E+01_JPRB/)  
+KBO( :, 5,48,12) = (/&
+ & 2.2984E+00_JPRB,2.2973E+00_JPRB,7.5353E+00_JPRB,1.3082E+01_JPRB,1.7836E+01_JPRB,2.1486E+01_JPRB/)  
+KBO( :, 1,49,12) = (/&
+ & 9.6483E-01_JPRB,9.6464E-01_JPRB,7.6392E+00_JPRB,1.3864E+01_JPRB,1.8901E+01_JPRB,2.0809E+01_JPRB/)  
+KBO( :, 2,49,12) = (/&
+ & 1.1880E+00_JPRB,1.1876E+00_JPRB,7.6494E+00_JPRB,1.3882E+01_JPRB,1.8939E+01_JPRB,2.1303E+01_JPRB/)  
+KBO( :, 3,49,12) = (/&
+ & 1.4610E+00_JPRB,1.4604E+00_JPRB,7.6246E+00_JPRB,1.3753E+01_JPRB,1.8773E+01_JPRB,2.1746E+01_JPRB/)  
+KBO( :, 4,49,12) = (/&
+ & 1.7825E+00_JPRB,1.7817E+00_JPRB,7.5952E+00_JPRB,1.3527E+01_JPRB,1.8464E+01_JPRB,2.1864E+01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART30',1,ZHOOK_HANDLE)
+END SUBROUTINE PART30
+
+
+SUBROUTINE PART31
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART31',0,ZHOOK_HANDLE)
+
+
+KBO( :, 5,49,12) = (/&
+ & 2.1366E+00_JPRB,2.1357E+00_JPRB,7.5591E+00_JPRB,1.3229E+01_JPRB,1.8046E+01_JPRB,2.1779E+01_JPRB/)  
+KBO( :, 1,50,12) = (/&
+ & 8.7334E-01_JPRB,8.7321E-01_JPRB,7.6167E+00_JPRB,1.3816E+01_JPRB,1.8840E+01_JPRB,2.0653E+01_JPRB/)  
+KBO( :, 2,50,12) = (/&
+ & 1.0849E+00_JPRB,1.0846E+00_JPRB,7.6499E+00_JPRB,1.3902E+01_JPRB,1.8966E+01_JPRB,2.1256E+01_JPRB/)  
+KBO( :, 3,50,12) = (/&
+ & 1.3397E+00_JPRB,1.3393E+00_JPRB,7.6369E+00_JPRB,1.3826E+01_JPRB,1.8870E+01_JPRB,2.1793E+01_JPRB/)  
+KBO( :, 4,50,12) = (/&
+ & 1.6451E+00_JPRB,1.6444E+00_JPRB,7.6078E+00_JPRB,1.3629E+01_JPRB,1.8612E+01_JPRB,2.2015E+01_JPRB/)  
+KBO( :, 5,50,12) = (/&
+ & 1.9901E+00_JPRB,1.9893E+00_JPRB,7.5766E+00_JPRB,1.3357E+01_JPRB,1.8227E+01_JPRB,2.2000E+01_JPRB/)  
+KBO( :, 1,51,12) = (/&
+ & 7.9109E-01_JPRB,7.9101E-01_JPRB,7.5808E+00_JPRB,1.3738E+01_JPRB,1.8738E+01_JPRB,2.0437E+01_JPRB/)  
+KBO( :, 2,51,12) = (/&
+ & 9.9151E-01_JPRB,9.9125E-01_JPRB,7.6471E+00_JPRB,1.3897E+01_JPRB,1.8959E+01_JPRB,2.1160E+01_JPRB/)  
+KBO( :, 3,51,12) = (/&
+ & 1.2299E+00_JPRB,1.2295E+00_JPRB,7.6471E+00_JPRB,1.3876E+01_JPRB,1.8940E+01_JPRB,2.1766E+01_JPRB/)  
+KBO( :, 4,51,12) = (/&
+ & 1.5182E+00_JPRB,1.5176E+00_JPRB,7.6211E+00_JPRB,1.3717E+01_JPRB,1.8736E+01_JPRB,2.2115E+01_JPRB/)  
+KBO( :, 5,51,12) = (/&
+ & 1.8518E+00_JPRB,1.8510E+00_JPRB,7.5920E+00_JPRB,1.3472E+01_JPRB,1.8393E+01_JPRB,2.2169E+01_JPRB/)  
+KBO( :, 1,52,12) = (/&
+ & 7.1584E-01_JPRB,7.1581E-01_JPRB,7.5315E+00_JPRB,1.3629E+01_JPRB,1.8592E+01_JPRB,2.0184E+01_JPRB/)  
+KBO( :, 2,52,12) = (/&
+ & 9.0437E-01_JPRB,9.0419E-01_JPRB,7.6323E+00_JPRB,1.3867E+01_JPRB,1.8918E+01_JPRB,2.1052E+01_JPRB/)  
+KBO( :, 3,52,12) = (/&
+ & 1.1294E+00_JPRB,1.1290E+00_JPRB,7.6500E+00_JPRB,1.3907E+01_JPRB,1.8982E+01_JPRB,2.1738E+01_JPRB/)  
+KBO( :, 4,52,12) = (/&
+ & 1.3999E+00_JPRB,1.3994E+00_JPRB,7.6316E+00_JPRB,1.3795E+01_JPRB,1.8838E+01_JPRB,2.2212E+01_JPRB/)  
+KBO( :, 5,52,12) = (/&
+ & 1.7187E+00_JPRB,1.7179E+00_JPRB,7.6040E+00_JPRB,1.3576E+01_JPRB,1.8542E+01_JPRB,2.2347E+01_JPRB/)  
+KBO( :, 1,53,12) = (/&
+ & 6.4519E-01_JPRB,6.4525E-01_JPRB,7.4665E+00_JPRB,1.3494E+01_JPRB,1.8401E+01_JPRB,1.9906E+01_JPRB/)  
+KBO( :, 2,53,12) = (/&
+ & 8.2291E-01_JPRB,8.2276E-01_JPRB,7.6064E+00_JPRB,1.3809E+01_JPRB,1.8841E+01_JPRB,2.0928E+01_JPRB/)  
+KBO( :, 3,53,12) = (/&
+ & 1.0366E+00_JPRB,1.0363E+00_JPRB,7.6500E+00_JPRB,1.3915E+01_JPRB,1.8993E+01_JPRB,2.1723E+01_JPRB/)  
+KBO( :, 4,53,12) = (/&
+ & 1.2893E+00_JPRB,1.2888E+00_JPRB,7.6422E+00_JPRB,1.3856E+01_JPRB,1.8918E+01_JPRB,2.2328E+01_JPRB/)  
+KBO( :, 5,53,12) = (/&
+ & 1.5912E+00_JPRB,1.5905E+00_JPRB,7.6165E+00_JPRB,1.3669E+01_JPRB,1.8674E+01_JPRB,2.2548E+01_JPRB/)  
+KBO( :, 1,54,12) = (/&
+ & 5.8435E-01_JPRB,5.8444E-01_JPRB,7.3907E+00_JPRB,1.3327E+01_JPRB,1.8178E+01_JPRB,1.9515E+01_JPRB/)  
+KBO( :, 2,54,12) = (/&
+ & 7.5368E-01_JPRB,7.5356E-01_JPRB,7.5705E+00_JPRB,1.3729E+01_JPRB,1.8734E+01_JPRB,2.0634E+01_JPRB/)  
+KBO( :, 3,54,12) = (/&
+ & 9.5607E-01_JPRB,9.5580E-01_JPRB,7.6449E+00_JPRB,1.3905E+01_JPRB,1.8977E+01_JPRB,2.1497E+01_JPRB/)  
+KBO( :, 4,54,12) = (/&
+ & 1.1937E+00_JPRB,1.1933E+00_JPRB,7.6499E+00_JPRB,1.3896E+01_JPRB,1.8973E+01_JPRB,2.2212E+01_JPRB/)  
+KBO( :, 5,54,12) = (/&
+ & 1.4797E+00_JPRB,1.4791E+00_JPRB,7.6261E+00_JPRB,1.3745E+01_JPRB,1.8779E+01_JPRB,2.2527E+01_JPRB/)  
+KBO( :, 1,55,12) = (/&
+ & 5.2854E-01_JPRB,5.2867E-01_JPRB,7.3044E+00_JPRB,1.3131E+01_JPRB,1.7924E+01_JPRB,1.9047E+01_JPRB/)  
+KBO( :, 2,55,12) = (/&
+ & 6.9118E-01_JPRB,6.9109E-01_JPRB,7.5254E+00_JPRB,1.3628E+01_JPRB,1.8597E+01_JPRB,2.0249E+01_JPRB/)  
+KBO( :, 3,55,12) = (/&
+ & 8.8293E-01_JPRB,8.8272E-01_JPRB,7.6307E+00_JPRB,1.3873E+01_JPRB,1.8933E+01_JPRB,2.1158E+01_JPRB/)  
+KBO( :, 4,55,12) = (/&
+ & 1.1091E+00_JPRB,1.1087E+00_JPRB,7.6507E+00_JPRB,1.3919E+01_JPRB,1.9002E+01_JPRB,2.1900E+01_JPRB/)  
+KBO( :, 5,55,12) = (/&
+ & 1.3791E+00_JPRB,1.3786E+00_JPRB,7.6348E+00_JPRB,1.3810E+01_JPRB,1.8863E+01_JPRB,2.2367E+01_JPRB/)  
+KBO( :, 1,56,12) = (/&
+ & 4.7560E-01_JPRB,4.7583E-01_JPRB,7.2007E+00_JPRB,1.2908E+01_JPRB,1.7624E+01_JPRB,1.8559E+01_JPRB/)  
+KBO( :, 2,56,12) = (/&
+ & 6.3205E-01_JPRB,6.3206E-01_JPRB,7.4679E+00_JPRB,1.3507E+01_JPRB,1.8426E+01_JPRB,1.9860E+01_JPRB/)  
+KBO( :, 3,56,12) = (/&
+ & 8.1360E-01_JPRB,8.1344E-01_JPRB,7.6074E+00_JPRB,1.3821E+01_JPRB,1.8863E+01_JPRB,2.0825E+01_JPRB/)  
+KBO( :, 4,56,12) = (/&
+ & 1.0301E+00_JPRB,1.0298E+00_JPRB,7.6506E+00_JPRB,1.3924E+01_JPRB,1.9011E+01_JPRB,2.1557E+01_JPRB/)  
+KBO( :, 5,56,12) = (/&
+ & 1.2841E+00_JPRB,1.2836E+00_JPRB,7.6437E+00_JPRB,1.3864E+01_JPRB,1.8933E+01_JPRB,2.2162E+01_JPRB/)  
+KBO( :, 1,57,12) = (/&
+ & 4.2603E-01_JPRB,4.2637E-01_JPRB,7.0800E+00_JPRB,1.2651E+01_JPRB,1.7279E+01_JPRB,1.8044E+01_JPRB/)  
+KBO( :, 2,57,12) = (/&
+ & 5.7620E-01_JPRB,5.7623E-01_JPRB,7.3960E+00_JPRB,1.3349E+01_JPRB,1.8215E+01_JPRB,1.9448E+01_JPRB/)  
+KBO( :, 3,57,12) = (/&
+ & 7.4950E-01_JPRB,7.4937E-01_JPRB,7.5736E+00_JPRB,1.3745E+01_JPRB,1.8761E+01_JPRB,2.0480E+01_JPRB/)  
+KBO( :, 4,57,12) = (/&
+ & 9.5476E-01_JPRB,9.5448E-01_JPRB,7.6455E+00_JPRB,1.3913E+01_JPRB,1.8993E+01_JPRB,2.1239E+01_JPRB/)  
+KBO( :, 5,57,12) = (/&
+ & 1.1947E+00_JPRB,1.1943E+00_JPRB,7.6507E+00_JPRB,1.3900E+01_JPRB,1.8982E+01_JPRB,2.1879E+01_JPRB/)  
+KBO( :, 1,58,12) = (/&
+ & 3.8222E-01_JPRB,3.8258E-01_JPRB,6.9487E+00_JPRB,1.2376E+01_JPRB,1.6911E+01_JPRB,1.7525E+01_JPRB/)  
+KBO( :, 2,58,12) = (/&
+ & 5.2528E-01_JPRB,5.2538E-01_JPRB,7.3177E+00_JPRB,1.3169E+01_JPRB,1.7977E+01_JPRB,1.9013E+01_JPRB/)  
+KBO( :, 3,58,12) = (/&
+ & 6.9186E-01_JPRB,6.9176E-01_JPRB,7.5326E+00_JPRB,1.3651E+01_JPRB,1.8633E+01_JPRB,2.0139E+01_JPRB/)  
+KBO( :, 4,58,12) = (/&
+ & 8.8662E-01_JPRB,8.8639E-01_JPRB,7.6334E+00_JPRB,1.3885E+01_JPRB,1.8953E+01_JPRB,2.0942E+01_JPRB/)  
+KBO( :, 5,58,12) = (/&
+ & 1.1152E+00_JPRB,1.1149E+00_JPRB,7.6513E+00_JPRB,1.3923E+01_JPRB,1.9012E+01_JPRB,2.1525E+01_JPRB/)  
+KBO( :, 1,59,12) = (/&
+ & 3.6401E-01_JPRB,3.6437E-01_JPRB,6.8886E+00_JPRB,1.2256E+01_JPRB,1.6751E+01_JPRB,1.7277E+01_JPRB/)  
+KBO( :, 2,59,12) = (/&
+ & 5.0412E-01_JPRB,5.0423E-01_JPRB,7.2807E+00_JPRB,1.3088E+01_JPRB,1.7871E+01_JPRB,1.8767E+01_JPRB/)  
+KBO( :, 3,59,12) = (/&
+ & 6.6841E-01_JPRB,6.6833E-01_JPRB,7.5138E+00_JPRB,1.3610E+01_JPRB,1.8575E+01_JPRB,1.9865E+01_JPRB/)  
+KBO( :, 4,59,12) = (/&
+ & 8.5925E-01_JPRB,8.5905E-01_JPRB,7.6263E+00_JPRB,1.3870E+01_JPRB,1.8932E+01_JPRB,2.0637E+01_JPRB/)  
+KBO( :, 5,59,12) = (/&
+ & 1.0843E+00_JPRB,1.0840E+00_JPRB,7.6509E+00_JPRB,1.3928E+01_JPRB,1.9019E+01_JPRB,2.1126E+01_JPRB/)  
+KBO( :, 1,13,13) = (/&
+ & 2.1392E+01_JPRB,2.1380E+01_JPRB,1.6377E+01_JPRB,1.1373E+01_JPRB,6.6382E+00_JPRB,5.4072E+00_JPRB/)  
+KBO( :, 2,13,13) = (/&
+ & 2.0984E+01_JPRB,2.0973E+01_JPRB,1.6065E+01_JPRB,1.1155E+01_JPRB,6.4809E+00_JPRB,5.2816E+00_JPRB/)  
+KBO( :, 3,13,13) = (/&
+ & 2.0571E+01_JPRB,2.0560E+01_JPRB,1.5742E+01_JPRB,1.0918E+01_JPRB,6.3142E+00_JPRB,5.1399E+00_JPRB/)  
+KBO( :, 4,13,13) = (/&
+ & 2.0116E+01_JPRB,2.0104E+01_JPRB,1.5385E+01_JPRB,1.0661E+01_JPRB,6.1353E+00_JPRB,5.0342E+00_JPRB/)  
+KBO( :, 5,13,13) = (/&
+ & 1.9665E+01_JPRB,1.9654E+01_JPRB,1.5041E+01_JPRB,1.0410E+01_JPRB,5.9659E+00_JPRB,5.1046E+00_JPRB/)  
+KBO( :, 1,14,13) = (/&
+ & 2.2611E+01_JPRB,2.2598E+01_JPRB,1.7286E+01_JPRB,1.1979E+01_JPRB,6.9848E+00_JPRB,5.8003E+00_JPRB/)  
+KBO( :, 2,14,13) = (/&
+ & 2.2235E+01_JPRB,2.2222E+01_JPRB,1.6999E+01_JPRB,1.1763E+01_JPRB,6.8307E+00_JPRB,5.6143E+00_JPRB/)  
+KBO( :, 3,14,13) = (/&
+ & 2.1845E+01_JPRB,2.1832E+01_JPRB,1.6684E+01_JPRB,1.1532E+01_JPRB,6.6725E+00_JPRB,5.4768E+00_JPRB/)  
+KBO( :, 4,14,13) = (/&
+ & 2.1455E+01_JPRB,2.1442E+01_JPRB,1.6377E+01_JPRB,1.1313E+01_JPRB,6.5206E+00_JPRB,5.3624E+00_JPRB/)  
+KBO( :, 5,14,13) = (/&
+ & 2.1081E+01_JPRB,2.1069E+01_JPRB,1.6078E+01_JPRB,1.1090E+01_JPRB,6.3823E+00_JPRB,5.2307E+00_JPRB/)  
+KBO( :, 1,15,13) = (/&
+ & 2.4085E+01_JPRB,2.4071E+01_JPRB,1.8394E+01_JPRB,1.2709E+01_JPRB,7.4960E+00_JPRB,6.3317E+00_JPRB/)  
+KBO( :, 2,15,13) = (/&
+ & 2.3744E+01_JPRB,2.3731E+01_JPRB,1.8118E+01_JPRB,1.2499E+01_JPRB,7.3422E+00_JPRB,6.1431E+00_JPRB/)  
+KBO( :, 3,15,13) = (/&
+ & 2.3384E+01_JPRB,2.3371E+01_JPRB,1.7836E+01_JPRB,1.2301E+01_JPRB,7.1895E+00_JPRB,5.9905E+00_JPRB/)  
+KBO( :, 4,15,13) = (/&
+ & 2.3079E+01_JPRB,2.3065E+01_JPRB,1.7598E+01_JPRB,1.2125E+01_JPRB,7.0485E+00_JPRB,5.8455E+00_JPRB/)  
+KBO( :, 5,15,13) = (/&
+ & 2.2790E+01_JPRB,2.2777E+01_JPRB,1.7354E+01_JPRB,1.1938E+01_JPRB,6.8999E+00_JPRB,5.7410E+00_JPRB/)  
+KBO( :, 1,16,13) = (/&
+ & 2.5695E+01_JPRB,2.5680E+01_JPRB,1.9581E+01_JPRB,1.3479E+01_JPRB,8.1349E+00_JPRB,7.0625E+00_JPRB/)  
+KBO( :, 2,16,13) = (/&
+ & 2.5421E+01_JPRB,2.5406E+01_JPRB,1.9374E+01_JPRB,1.3336E+01_JPRB,7.9760E+00_JPRB,6.8886E+00_JPRB/)  
+KBO( :, 3,16,13) = (/&
+ & 2.5170E+01_JPRB,2.5155E+01_JPRB,1.9169E+01_JPRB,1.3185E+01_JPRB,7.8208E+00_JPRB,6.7331E+00_JPRB/)  
+KBO( :, 4,16,13) = (/&
+ & 2.4917E+01_JPRB,2.4902E+01_JPRB,1.8958E+01_JPRB,1.3021E+01_JPRB,7.6613E+00_JPRB,6.5695E+00_JPRB/)  
+KBO( :, 5,16,13) = (/&
+ & 2.4671E+01_JPRB,2.4656E+01_JPRB,1.8755E+01_JPRB,1.2857E+01_JPRB,7.5038E+00_JPRB,6.4414E+00_JPRB/)  
+KBO( :, 1,17,13) = (/&
+ & 2.7485E+01_JPRB,2.7469E+01_JPRB,2.0920E+01_JPRB,1.4359E+01_JPRB,8.8403E+00_JPRB,7.9625E+00_JPRB/)  
+KBO( :, 2,17,13) = (/&
+ & 2.7261E+01_JPRB,2.7245E+01_JPRB,2.0734E+01_JPRB,1.4221E+01_JPRB,8.6752E+00_JPRB,7.7696E+00_JPRB/)  
+KBO( :, 3,17,13) = (/&
+ & 2.7019E+01_JPRB,2.7003E+01_JPRB,2.0538E+01_JPRB,1.4067E+01_JPRB,8.5095E+00_JPRB,7.5869E+00_JPRB/)  
+KBO( :, 4,17,13) = (/&
+ & 2.6774E+01_JPRB,2.6758E+01_JPRB,2.0340E+01_JPRB,1.3916E+01_JPRB,8.3433E+00_JPRB,7.4093E+00_JPRB/)  
+KBO( :, 5,17,13) = (/&
+ & 2.6489E+01_JPRB,2.6473E+01_JPRB,2.0113E+01_JPRB,1.3747E+01_JPRB,8.1757E+00_JPRB,7.2580E+00_JPRB/)  
+KBO( :, 1,18,13) = (/&
+ & 2.9073E+01_JPRB,2.9056E+01_JPRB,2.2090E+01_JPRB,1.5130E+01_JPRB,9.6108E+00_JPRB,8.9667E+00_JPRB/)  
+KBO( :, 2,18,13) = (/&
+ & 2.8847E+01_JPRB,2.8830E+01_JPRB,2.1906E+01_JPRB,1.4984E+01_JPRB,9.4415E+00_JPRB,8.7341E+00_JPRB/)  
+KBO( :, 3,18,13) = (/&
+ & 2.8614E+01_JPRB,2.8597E+01_JPRB,2.1721E+01_JPRB,1.4840E+01_JPRB,9.2727E+00_JPRB,8.5308E+00_JPRB/)  
+KBO( :, 4,18,13) = (/&
+ & 2.8333E+01_JPRB,2.8317E+01_JPRB,2.1498E+01_JPRB,1.4677E+01_JPRB,9.0956E+00_JPRB,8.3322E+00_JPRB/)  
+KBO( :, 5,18,13) = (/&
+ & 2.8019E+01_JPRB,2.8003E+01_JPRB,2.1254E+01_JPRB,1.4499E+01_JPRB,8.9142E+00_JPRB,8.1468E+00_JPRB/)  
+KBO( :, 1,19,13) = (/&
+ & 3.0315E+01_JPRB,3.0297E+01_JPRB,2.3006E+01_JPRB,1.5724E+01_JPRB,1.0512E+01_JPRB,1.0019E+01_JPRB/)  
+KBO( :, 2,19,13) = (/&
+ & 3.0061E+01_JPRB,3.0044E+01_JPRB,2.2808E+01_JPRB,1.5577E+01_JPRB,1.0342E+01_JPRB,9.7644E+00_JPRB/)  
+KBO( :, 3,19,13) = (/&
+ & 2.9787E+01_JPRB,2.9769E+01_JPRB,2.2595E+01_JPRB,1.5419E+01_JPRB,1.0163E+01_JPRB,9.5327E+00_JPRB/)  
+KBO( :, 4,19,13) = (/&
+ & 2.9464E+01_JPRB,2.9447E+01_JPRB,2.2343E+01_JPRB,1.5239E+01_JPRB,9.9795E+00_JPRB,9.3290E+00_JPRB/)  
+KBO( :, 5,19,13) = (/&
+ & 2.9104E+01_JPRB,2.9087E+01_JPRB,2.2065E+01_JPRB,1.5039E+01_JPRB,9.7881E+00_JPRB,9.1292E+00_JPRB/)  
+KBO( :, 1,20,13) = (/&
+ & 3.1036E+01_JPRB,3.1018E+01_JPRB,2.3548E+01_JPRB,1.6113E+01_JPRB,1.1579E+01_JPRB,1.1154E+01_JPRB/)  
+KBO( :, 2,20,13) = (/&
+ & 3.0755E+01_JPRB,3.0737E+01_JPRB,2.3334E+01_JPRB,1.5957E+01_JPRB,1.1393E+01_JPRB,1.0893E+01_JPRB/)  
+KBO( :, 3,20,13) = (/&
+ & 3.0452E+01_JPRB,3.0434E+01_JPRB,2.3095E+01_JPRB,1.5780E+01_JPRB,1.1192E+01_JPRB,1.0651E+01_JPRB/)  
+KBO( :, 4,20,13) = (/&
+ & 3.0086E+01_JPRB,3.0068E+01_JPRB,2.2811E+01_JPRB,1.5577E+01_JPRB,1.0976E+01_JPRB,1.0441E+01_JPRB/)  
+KBO( :, 5,20,13) = (/&
+ & 2.9696E+01_JPRB,2.9679E+01_JPRB,2.2510E+01_JPRB,1.5363E+01_JPRB,1.0748E+01_JPRB,1.0213E+01_JPRB/)  
+KBO( :, 1,21,13) = (/&
+ & 3.1144E+01_JPRB,3.1126E+01_JPRB,2.3635E+01_JPRB,1.6360E+01_JPRB,1.2781E+01_JPRB,1.2415E+01_JPRB/)  
+KBO( :, 2,21,13) = (/&
+ & 3.0844E+01_JPRB,3.0826E+01_JPRB,2.3403E+01_JPRB,1.6172E+01_JPRB,1.2549E+01_JPRB,1.2147E+01_JPRB/)  
+KBO( :, 3,21,13) = (/&
+ & 3.0498E+01_JPRB,3.0480E+01_JPRB,2.3133E+01_JPRB,1.5960E+01_JPRB,1.2302E+01_JPRB,1.1885E+01_JPRB/)  
+KBO( :, 4,21,13) = (/&
+ & 3.0111E+01_JPRB,3.0093E+01_JPRB,2.2836E+01_JPRB,1.5742E+01_JPRB,1.2041E+01_JPRB,1.1642E+01_JPRB/)  
+KBO( :, 5,21,13) = (/&
+ & 2.9700E+01_JPRB,2.9683E+01_JPRB,2.2517E+01_JPRB,1.5496E+01_JPRB,1.1766E+01_JPRB,1.1381E+01_JPRB/)  
+KBO( :, 1,22,13) = (/&
+ & 3.0579E+01_JPRB,3.0561E+01_JPRB,2.3219E+01_JPRB,1.6510E+01_JPRB,1.4016E+01_JPRB,1.3791E+01_JPRB/)  
+KBO( :, 2,22,13) = (/&
+ & 3.0252E+01_JPRB,3.0234E+01_JPRB,2.2968E+01_JPRB,1.6283E+01_JPRB,1.3741E+01_JPRB,1.3488E+01_JPRB/)  
+KBO( :, 3,22,13) = (/&
+ & 2.9906E+01_JPRB,2.9889E+01_JPRB,2.2700E+01_JPRB,1.6051E+01_JPRB,1.3445E+01_JPRB,1.3187E+01_JPRB/)  
+KBO( :, 4,22,13) = (/&
+ & 2.9523E+01_JPRB,2.9506E+01_JPRB,2.2405E+01_JPRB,1.5794E+01_JPRB,1.3135E+01_JPRB,1.2905E+01_JPRB/)  
+KBO( :, 5,22,13) = (/&
+ & 2.9116E+01_JPRB,2.9100E+01_JPRB,2.2090E+01_JPRB,1.5521E+01_JPRB,1.2819E+01_JPRB,1.2597E+01_JPRB/)  
+KBO( :, 1,23,13) = (/&
+ & 2.9397E+01_JPRB,2.9380E+01_JPRB,2.2345E+01_JPRB,1.6640E+01_JPRB,1.5241E+01_JPRB,1.5271E+01_JPRB/)  
+KBO( :, 2,23,13) = (/&
+ & 2.9096E+01_JPRB,2.9079E+01_JPRB,2.2113E+01_JPRB,1.6382E+01_JPRB,1.4921E+01_JPRB,1.4908E+01_JPRB/)  
+KBO( :, 3,23,13) = (/&
+ & 2.8759E+01_JPRB,2.8742E+01_JPRB,2.1850E+01_JPRB,1.6098E+01_JPRB,1.4591E+01_JPRB,1.4553E+01_JPRB/)  
+KBO( :, 4,23,13) = (/&
+ & 2.8405E+01_JPRB,2.8388E+01_JPRB,2.1576E+01_JPRB,1.5810E+01_JPRB,1.4244E+01_JPRB,1.4213E+01_JPRB/)  
+KBO( :, 5,23,13) = (/&
+ & 2.8010E+01_JPRB,2.7994E+01_JPRB,2.1268E+01_JPRB,1.5508E+01_JPRB,1.3883E+01_JPRB,1.3842E+01_JPRB/)  
+KBO( :, 1,24,13) = (/&
+ & 2.7736E+01_JPRB,2.7720E+01_JPRB,2.1114E+01_JPRB,1.6904E+01_JPRB,1.6493E+01_JPRB,1.6795E+01_JPRB/)  
+KBO( :, 2,24,13) = (/&
+ & 2.7462E+01_JPRB,2.7446E+01_JPRB,2.0900E+01_JPRB,1.6582E+01_JPRB,1.6130E+01_JPRB,1.6394E+01_JPRB/)  
+KBO( :, 3,24,13) = (/&
+ & 2.7151E+01_JPRB,2.7136E+01_JPRB,2.0660E+01_JPRB,1.6247E+01_JPRB,1.5745E+01_JPRB,1.5974E+01_JPRB/)  
+KBO( :, 4,24,13) = (/&
+ & 2.6831E+01_JPRB,2.6816E+01_JPRB,2.0409E+01_JPRB,1.5908E+01_JPRB,1.5345E+01_JPRB,1.5569E+01_JPRB/)  
+KBO( :, 5,24,13) = (/&
+ & 2.6459E+01_JPRB,2.6444E+01_JPRB,2.0122E+01_JPRB,1.5560E+01_JPRB,1.4934E+01_JPRB,1.5132E+01_JPRB/)  
+KBO( :, 1,25,13) = (/&
+ & 2.5741E+01_JPRB,2.5726E+01_JPRB,1.9691E+01_JPRB,1.7263E+01_JPRB,1.7747E+01_JPRB,1.8359E+01_JPRB/)  
+KBO( :, 2,25,13) = (/&
+ & 2.5497E+01_JPRB,2.5482E+01_JPRB,1.9486E+01_JPRB,1.6895E+01_JPRB,1.7326E+01_JPRB,1.7886E+01_JPRB/)  
+KBO( :, 3,25,13) = (/&
+ & 2.5241E+01_JPRB,2.5227E+01_JPRB,1.9275E+01_JPRB,1.6517E+01_JPRB,1.6889E+01_JPRB,1.7399E+01_JPRB/)  
+KBO( :, 4,25,13) = (/&
+ & 2.4941E+01_JPRB,2.4927E+01_JPRB,1.9033E+01_JPRB,1.6125E+01_JPRB,1.6436E+01_JPRB,1.6925E+01_JPRB/)  
+KBO( :, 5,25,13) = (/&
+ & 2.4625E+01_JPRB,2.4611E+01_JPRB,1.8780E+01_JPRB,1.5723E+01_JPRB,1.5971E+01_JPRB,1.6420E+01_JPRB/)  
+KBO( :, 1,26,13) = (/&
+ & 2.3543E+01_JPRB,2.3530E+01_JPRB,1.8282E+01_JPRB,1.7640E+01_JPRB,1.9000E+01_JPRB,1.9879E+01_JPRB/)  
+KBO( :, 2,26,13) = (/&
+ & 2.3344E+01_JPRB,2.3330E+01_JPRB,1.8083E+01_JPRB,1.7232E+01_JPRB,1.8508E+01_JPRB,1.9336E+01_JPRB/)  
+KBO( :, 3,26,13) = (/&
+ & 2.3131E+01_JPRB,2.3118E+01_JPRB,1.7881E+01_JPRB,1.6809E+01_JPRB,1.8012E+01_JPRB,1.8780E+01_JPRB/)  
+KBO( :, 4,26,13) = (/&
+ & 2.2891E+01_JPRB,2.2878E+01_JPRB,1.7660E+01_JPRB,1.6381E+01_JPRB,1.7496E+01_JPRB,1.8235E+01_JPRB/)  
+KBO( :, 5,26,13) = (/&
+ & 2.2635E+01_JPRB,2.2623E+01_JPRB,1.7424E+01_JPRB,1.5941E+01_JPRB,1.6965E+01_JPRB,1.7649E+01_JPRB/)  
+KBO( :, 1,27,13) = (/&
+ & 2.1263E+01_JPRB,2.1251E+01_JPRB,1.6999E+01_JPRB,1.8073E+01_JPRB,2.0218E+01_JPRB,2.1326E+01_JPRB/)  
+KBO( :, 2,27,13) = (/&
+ & 2.1130E+01_JPRB,2.1118E+01_JPRB,1.6805E+01_JPRB,1.7603E+01_JPRB,1.9655E+01_JPRB,2.0714E+01_JPRB/)  
+KBO( :, 3,27,13) = (/&
+ & 2.0964E+01_JPRB,2.0953E+01_JPRB,1.6591E+01_JPRB,1.7141E+01_JPRB,1.9068E+01_JPRB,2.0084E+01_JPRB/)  
+KBO( :, 4,27,13) = (/&
+ & 2.0811E+01_JPRB,2.0800E+01_JPRB,1.6383E+01_JPRB,1.6665E+01_JPRB,1.8477E+01_JPRB,1.9460E+01_JPRB/)  
+KBO( :, 5,27,13) = (/&
+ & 2.0671E+01_JPRB,2.0659E+01_JPRB,1.6163E+01_JPRB,1.6182E+01_JPRB,1.7875E+01_JPRB,1.8801E+01_JPRB/)  
+KBO( :, 1,28,13) = (/&
+ & 1.9006E+01_JPRB,1.8995E+01_JPRB,1.5933E+01_JPRB,1.8511E+01_JPRB,2.1355E+01_JPRB,2.2683E+01_JPRB/)  
+KBO( :, 2,28,13) = (/&
+ & 1.8934E+01_JPRB,1.8923E+01_JPRB,1.5716E+01_JPRB,1.8009E+01_JPRB,2.0708E+01_JPRB,2.1993E+01_JPRB/)  
+KBO( :, 3,28,13) = (/&
+ & 1.8875E+01_JPRB,1.8864E+01_JPRB,1.5505E+01_JPRB,1.7487E+01_JPRB,2.0041E+01_JPRB,2.1291E+01_JPRB/)  
+KBO( :, 4,28,13) = (/&
+ & 1.8867E+01_JPRB,1.8856E+01_JPRB,1.5292E+01_JPRB,1.6969E+01_JPRB,1.9370E+01_JPRB,2.0578E+01_JPRB/)  
+KBO( :, 5,28,13) = (/&
+ & 1.8926E+01_JPRB,1.8916E+01_JPRB,1.5114E+01_JPRB,1.6444E+01_JPRB,1.8700E+01_JPRB,1.9834E+01_JPRB/)  
+KBO( :, 1,29,13) = (/&
+ & 1.6866E+01_JPRB,1.6856E+01_JPRB,1.5090E+01_JPRB,1.8932E+01_JPRB,2.2378E+01_JPRB,2.3900E+01_JPRB/)  
+KBO( :, 2,29,13) = (/&
+ & 1.6895E+01_JPRB,1.6885E+01_JPRB,1.4848E+01_JPRB,1.8394E+01_JPRB,2.1642E+01_JPRB,2.3131E+01_JPRB/)  
+KBO( :, 3,29,13) = (/&
+ & 1.7005E+01_JPRB,1.6996E+01_JPRB,1.4617E+01_JPRB,1.7836E+01_JPRB,2.0899E+01_JPRB,2.2368E+01_JPRB/)  
+KBO( :, 4,29,13) = (/&
+ & 1.7186E+01_JPRB,1.7177E+01_JPRB,1.4419E+01_JPRB,1.7274E+01_JPRB,2.0148E+01_JPRB,2.1559E+01_JPRB/)  
+KBO( :, 5,29,13) = (/&
+ & 1.7419E+01_JPRB,1.7409E+01_JPRB,1.4291E+01_JPRB,1.6708E+01_JPRB,1.9414E+01_JPRB,2.0739E+01_JPRB/)  
+KBO( :, 1,30,13) = (/&
+ & 1.4953E+01_JPRB,1.4945E+01_JPRB,1.4448E+01_JPRB,1.9321E+01_JPRB,2.3266E+01_JPRB,2.4961E+01_JPRB/)  
+KBO( :, 2,30,13) = (/&
+ & 1.5147E+01_JPRB,1.5138E+01_JPRB,1.4172E+01_JPRB,1.8728E+01_JPRB,2.2451E+01_JPRB,2.4136E+01_JPRB/)  
+KBO( :, 3,30,13) = (/&
+ & 1.5423E+01_JPRB,1.5415E+01_JPRB,1.3932E+01_JPRB,1.8138E+01_JPRB,2.1636E+01_JPRB,2.3296E+01_JPRB/)  
+KBO( :, 4,30,13) = (/&
+ & 1.5783E+01_JPRB,1.5774E+01_JPRB,1.3754E+01_JPRB,1.7532E+01_JPRB,2.0815E+01_JPRB,2.2402E+01_JPRB/)  
+KBO( :, 5,30,13) = (/&
+ & 1.6221E+01_JPRB,1.6212E+01_JPRB,1.3682E+01_JPRB,1.6932E+01_JPRB,2.0014E+01_JPRB,2.1530E+01_JPRB/)  
+KBO( :, 1,31,13) = (/&
+ & 1.3343E+01_JPRB,1.3335E+01_JPRB,1.3979E+01_JPRB,1.9651E+01_JPRB,2.4006E+01_JPRB,2.5869E+01_JPRB/)  
+KBO( :, 2,31,13) = (/&
+ & 1.3698E+01_JPRB,1.3690E+01_JPRB,1.3675E+01_JPRB,1.9009E+01_JPRB,2.3133E+01_JPRB,2.5002E+01_JPRB/)  
+KBO( :, 3,31,13) = (/&
+ & 1.4163E+01_JPRB,1.4155E+01_JPRB,1.3429E+01_JPRB,1.8375E+01_JPRB,2.2243E+01_JPRB,2.4068E+01_JPRB/)  
+KBO( :, 4,31,13) = (/&
+ & 1.4712E+01_JPRB,1.4703E+01_JPRB,1.3295E+01_JPRB,1.7748E+01_JPRB,2.1362E+01_JPRB,2.3103E+01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART31',1,ZHOOK_HANDLE)
+END SUBROUTINE PART31
+
+
+SUBROUTINE PART32
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART32',0,ZHOOK_HANDLE)
+
+
+KBO( :, 5,31,13) = (/&
+ & 1.5311E+01_JPRB,1.5303E+01_JPRB,1.3250E+01_JPRB,1.7114E+01_JPRB,2.0500E+01_JPRB,2.2261E+01_JPRB/)  
+KBO( :, 1,32,13) = (/&
+ & 1.2052E+01_JPRB,1.2045E+01_JPRB,1.3628E+01_JPRB,1.9911E+01_JPRB,2.4618E+01_JPRB,2.6646E+01_JPRB/)  
+KBO( :, 2,32,13) = (/&
+ & 1.2587E+01_JPRB,1.2580E+01_JPRB,1.3324E+01_JPRB,1.9233E+01_JPRB,2.3679E+01_JPRB,2.5689E+01_JPRB/)  
+KBO( :, 3,32,13) = (/&
+ & 1.3218E+01_JPRB,1.3210E+01_JPRB,1.3094E+01_JPRB,1.8557E+01_JPRB,2.2722E+01_JPRB,2.4678E+01_JPRB/)  
+KBO( :, 4,32,13) = (/&
+ & 1.3914E+01_JPRB,1.3907E+01_JPRB,1.2978E+01_JPRB,1.7906E+01_JPRB,2.1782E+01_JPRB,2.3743E+01_JPRB/)  
+KBO( :, 5,32,13) = (/&
+ & 1.4655E+01_JPRB,1.4646E+01_JPRB,1.2957E+01_JPRB,1.7249E+01_JPRB,2.0874E+01_JPRB,2.2925E+01_JPRB/)  
+KBO( :, 1,33,13) = (/&
+ & 1.1069E+01_JPRB,1.1063E+01_JPRB,1.3365E+01_JPRB,2.0106E+01_JPRB,2.5097E+01_JPRB,2.7267E+01_JPRB/)  
+KBO( :, 2,33,13) = (/&
+ & 1.1756E+01_JPRB,1.1750E+01_JPRB,1.3070E+01_JPRB,1.9396E+01_JPRB,2.4095E+01_JPRB,2.6242E+01_JPRB/)  
+KBO( :, 3,33,13) = (/&
+ & 1.2532E+01_JPRB,1.2525E+01_JPRB,1.2868E+01_JPRB,1.8687E+01_JPRB,2.3087E+01_JPRB,2.5240E+01_JPRB/)  
+KBO( :, 4,33,13) = (/&
+ & 1.3360E+01_JPRB,1.3352E+01_JPRB,1.2765E+01_JPRB,1.8010E+01_JPRB,2.2099E+01_JPRB,2.4405E+01_JPRB/)  
+KBO( :, 5,33,13) = (/&
+ & 1.4221E+01_JPRB,1.4213E+01_JPRB,1.2776E+01_JPRB,1.7337E+01_JPRB,2.1144E+01_JPRB,2.3571E+01_JPRB/)  
+KBO( :, 1,34,13) = (/&
+ & 1.0330E+01_JPRB,1.0325E+01_JPRB,1.3170E+01_JPRB,2.0275E+01_JPRB,2.5492E+01_JPRB,2.7791E+01_JPRB/)  
+KBO( :, 2,34,13) = (/&
+ & 1.1144E+01_JPRB,1.1137E+01_JPRB,1.2897E+01_JPRB,1.9532E+01_JPRB,2.4430E+01_JPRB,2.6740E+01_JPRB/)  
+KBO( :, 3,34,13) = (/&
+ & 1.2039E+01_JPRB,1.2032E+01_JPRB,1.2723E+01_JPRB,1.8800E+01_JPRB,2.3383E+01_JPRB,2.5842E+01_JPRB/)  
+KBO( :, 4,34,13) = (/&
+ & 1.2978E+01_JPRB,1.2971E+01_JPRB,1.2635E+01_JPRB,1.8099E+01_JPRB,2.2352E+01_JPRB,2.4982E+01_JPRB/)  
+KBO( :, 5,34,13) = (/&
+ & 1.3934E+01_JPRB,1.3926E+01_JPRB,1.2668E+01_JPRB,1.7413E+01_JPRB,2.1361E+01_JPRB,2.4094E+01_JPRB/)  
+KBO( :, 1,35,13) = (/&
+ & 9.7254E+00_JPRB,9.7201E+00_JPRB,1.3055E+01_JPRB,2.0467E+01_JPRB,2.5890E+01_JPRB,2.8316E+01_JPRB/)  
+KBO( :, 2,35,13) = (/&
+ & 1.0642E+01_JPRB,1.0636E+01_JPRB,1.2799E+01_JPRB,1.9691E+01_JPRB,2.4776E+01_JPRB,2.7321E+01_JPRB/)  
+KBO( :, 3,35,13) = (/&
+ & 1.1630E+01_JPRB,1.1624E+01_JPRB,1.2635E+01_JPRB,1.8939E+01_JPRB,2.3691E+01_JPRB,2.6463E+01_JPRB/)  
+KBO( :, 4,35,13) = (/&
+ & 1.2660E+01_JPRB,1.2653E+01_JPRB,1.2560E+01_JPRB,1.8216E+01_JPRB,2.2621E+01_JPRB,2.5557E+01_JPRB/)  
+KBO( :, 5,35,13) = (/&
+ & 1.3686E+01_JPRB,1.3678E+01_JPRB,1.2601E+01_JPRB,1.7514E+01_JPRB,2.1598E+01_JPRB,2.4647E+01_JPRB/)  
+KBO( :, 1,36,13) = (/&
+ & 9.1824E+00_JPRB,9.1775E+00_JPRB,1.3014E+01_JPRB,2.0702E+01_JPRB,2.6319E+01_JPRB,2.8897E+01_JPRB/)  
+KBO( :, 2,36,13) = (/&
+ & 1.0178E+01_JPRB,1.0173E+01_JPRB,1.2753E+01_JPRB,1.9897E+01_JPRB,2.5164E+01_JPRB,2.7977E+01_JPRB/)  
+KBO( :, 3,36,13) = (/&
+ & 1.1240E+01_JPRB,1.1234E+01_JPRB,1.2589E+01_JPRB,1.9121E+01_JPRB,2.4043E+01_JPRB,2.7098E+01_JPRB/)  
+KBO( :, 4,36,13) = (/&
+ & 1.2332E+01_JPRB,1.2325E+01_JPRB,1.2520E+01_JPRB,1.8377E+01_JPRB,2.2938E+01_JPRB,2.6162E+01_JPRB/)  
+KBO( :, 5,36,13) = (/&
+ & 1.3423E+01_JPRB,1.3415E+01_JPRB,1.2563E+01_JPRB,1.7662E+01_JPRB,2.1883E+01_JPRB,2.5220E+01_JPRB/)  
+KBO( :, 1,37,13) = (/&
+ & 8.6099E+00_JPRB,8.6053E+00_JPRB,1.3043E+01_JPRB,2.1019E+01_JPRB,2.6856E+01_JPRB,2.9568E+01_JPRB/)  
+KBO( :, 2,37,13) = (/&
+ & 9.6546E+00_JPRB,9.6493E+00_JPRB,1.2762E+01_JPRB,2.0197E+01_JPRB,2.5667E+01_JPRB,2.8665E+01_JPRB/)  
+KBO( :, 3,37,13) = (/&
+ & 1.0769E+01_JPRB,1.0763E+01_JPRB,1.2583E+01_JPRB,1.9394E+01_JPRB,2.4509E+01_JPRB,2.7775E+01_JPRB/)  
+KBO( :, 4,37,13) = (/&
+ & 1.1910E+01_JPRB,1.1903E+01_JPRB,1.2502E+01_JPRB,1.8624E+01_JPRB,2.3371E+01_JPRB,2.6796E+01_JPRB/)  
+KBO( :, 5,37,13) = (/&
+ & 1.3054E+01_JPRB,1.3047E+01_JPRB,1.2531E+01_JPRB,1.7890E+01_JPRB,2.2279E+01_JPRB,2.5830E+01_JPRB/)  
+KBO( :, 1,38,13) = (/&
+ & 8.1124E+00_JPRB,8.1081E+00_JPRB,1.3090E+01_JPRB,2.1323E+01_JPRB,2.7354E+01_JPRB,3.0221E+01_JPRB/)  
+KBO( :, 2,38,13) = (/&
+ & 9.1955E+00_JPRB,9.1905E+00_JPRB,1.2789E+01_JPRB,2.0480E+01_JPRB,2.6132E+01_JPRB,2.9338E+01_JPRB/)  
+KBO( :, 3,38,13) = (/&
+ & 1.0346E+01_JPRB,1.0340E+01_JPRB,1.2594E+01_JPRB,1.9657E+01_JPRB,2.4940E+01_JPRB,2.8430E+01_JPRB/)  
+KBO( :, 4,38,13) = (/&
+ & 1.1526E+01_JPRB,1.1520E+01_JPRB,1.2499E+01_JPRB,1.8864E+01_JPRB,2.3774E+01_JPRB,2.7417E+01_JPRB/)  
+KBO( :, 5,38,13) = (/&
+ & 1.2710E+01_JPRB,1.2703E+01_JPRB,1.2513E+01_JPRB,1.8110E+01_JPRB,2.2651E+01_JPRB,2.6428E+01_JPRB/)  
+KBO( :, 1,39,13) = (/&
+ & 7.6875E+00_JPRB,7.6835E+00_JPRB,1.3146E+01_JPRB,2.1600E+01_JPRB,2.7801E+01_JPRB,3.0872E+01_JPRB/)  
+KBO( :, 2,39,13) = (/&
+ & 8.7929E+00_JPRB,8.7882E+00_JPRB,1.2830E+01_JPRB,2.0739E+01_JPRB,2.6556E+01_JPRB,3.0007E+01_JPRB/)  
+KBO( :, 3,39,13) = (/&
+ & 9.9744E+00_JPRB,9.9689E+00_JPRB,1.2617E+01_JPRB,1.9901E+01_JPRB,2.5334E+01_JPRB,2.9071E+01_JPRB/)  
+KBO( :, 4,39,13) = (/&
+ & 1.1184E+01_JPRB,1.1178E+01_JPRB,1.2503E+01_JPRB,1.9085E+01_JPRB,2.4144E+01_JPRB,2.8025E+01_JPRB/)  
+KBO( :, 5,39,13) = (/&
+ & 1.2397E+01_JPRB,1.2390E+01_JPRB,1.2501E+01_JPRB,1.8314E+01_JPRB,2.2991E+01_JPRB,2.7022E+01_JPRB/)  
+KBO( :, 1,40,13) = (/&
+ & 7.2073E+00_JPRB,7.2036E+00_JPRB,1.3244E+01_JPRB,2.1941E+01_JPRB,2.8335E+01_JPRB,3.1477E+01_JPRB/)  
+KBO( :, 2,40,13) = (/&
+ & 8.3183E+00_JPRB,8.3138E+00_JPRB,1.2905E+01_JPRB,2.1071E+01_JPRB,2.7076E+01_JPRB,3.0598E+01_JPRB/)  
+KBO( :, 3,40,13) = (/&
+ & 9.5140E+00_JPRB,9.5088E+00_JPRB,1.2663E+01_JPRB,2.0213E+01_JPRB,2.5823E+01_JPRB,2.9671E+01_JPRB/)  
+KBO( :, 4,40,13) = (/&
+ & 1.0744E+01_JPRB,1.0738E+01_JPRB,1.2520E+01_JPRB,1.9377E+01_JPRB,2.4607E+01_JPRB,2.8610E+01_JPRB/)  
+KBO( :, 5,40,13) = (/&
+ & 1.1983E+01_JPRB,1.1976E+01_JPRB,1.2493E+01_JPRB,1.8588E+01_JPRB,2.3425E+01_JPRB,2.7600E+01_JPRB/)  
+KBO( :, 1,41,13) = (/&
+ & 6.7611E+00_JPRB,6.7576E+00_JPRB,1.3349E+01_JPRB,2.2280E+01_JPRB,2.8859E+01_JPRB,3.2049E+01_JPRB/)  
+KBO( :, 2,41,13) = (/&
+ & 7.8674E+00_JPRB,7.8632E+00_JPRB,1.2993E+01_JPRB,2.1395E+01_JPRB,2.7586E+01_JPRB,3.1155E+01_JPRB/)  
+KBO( :, 3,41,13) = (/&
+ & 9.0665E+00_JPRB,9.0616E+00_JPRB,1.2725E+01_JPRB,2.0522E+01_JPRB,2.6310E+01_JPRB,3.0246E+01_JPRB/)  
+KBO( :, 4,41,13) = (/&
+ & 1.0311E+01_JPRB,1.0306E+01_JPRB,1.2549E+01_JPRB,1.9674E+01_JPRB,2.5066E+01_JPRB,2.9176E+01_JPRB/)  
+KBO( :, 5,41,13) = (/&
+ & 1.1568E+01_JPRB,1.1562E+01_JPRB,1.2494E+01_JPRB,1.8859E+01_JPRB,2.3856E+01_JPRB,2.8161E+01_JPRB/)  
+KBO( :, 1,42,13) = (/&
+ & 6.3548E+00_JPRB,6.3515E+00_JPRB,1.3456E+01_JPRB,2.2608E+01_JPRB,2.9366E+01_JPRB,3.2606E+01_JPRB/)  
+KBO( :, 2,42,13) = (/&
+ & 7.4451E+00_JPRB,7.4412E+00_JPRB,1.3085E+01_JPRB,2.1711E+01_JPRB,2.8070E+01_JPRB,3.1692E+01_JPRB/)  
+KBO( :, 3,42,13) = (/&
+ & 8.6411E+00_JPRB,8.6364E+00_JPRB,1.2793E+01_JPRB,2.0822E+01_JPRB,2.6779E+01_JPRB,3.0806E+01_JPRB/)  
+KBO( :, 4,42,13) = (/&
+ & 9.8929E+00_JPRB,9.8874E+00_JPRB,1.2589E+01_JPRB,1.9962E+01_JPRB,2.5511E+01_JPRB,2.9730E+01_JPRB/)  
+KBO( :, 5,42,13) = (/&
+ & 1.1166E+01_JPRB,1.1160E+01_JPRB,1.2501E+01_JPRB,1.9127E+01_JPRB,2.4277E+01_JPRB,2.8718E+01_JPRB/)  
+KBO( :, 1,43,13) = (/&
+ & 5.9236E+00_JPRB,5.9206E+00_JPRB,1.3597E+01_JPRB,2.2980E+01_JPRB,2.9923E+01_JPRB,3.3179E+01_JPRB/)  
+KBO( :, 2,43,13) = (/&
+ & 6.9885E+00_JPRB,6.9848E+00_JPRB,1.3206E+01_JPRB,2.2070E+01_JPRB,2.8607E+01_JPRB,3.2249E+01_JPRB/)  
+KBO( :, 3,43,13) = (/&
+ & 8.1682E+00_JPRB,8.1638E+00_JPRB,1.2880E+01_JPRB,2.1165E+01_JPRB,2.7304E+01_JPRB,3.1388E+01_JPRB/)  
+KBO( :, 4,43,13) = (/&
+ & 9.4211E+00_JPRB,9.4159E+00_JPRB,1.2650E+01_JPRB,2.0290E+01_JPRB,2.6012E+01_JPRB,3.0330E+01_JPRB/)  
+KBO( :, 5,43,13) = (/&
+ & 1.0699E+01_JPRB,1.0693E+01_JPRB,1.2520E+01_JPRB,1.9438E+01_JPRB,2.4759E+01_JPRB,2.9317E+01_JPRB/)  
+KBO( :, 1,44,13) = (/&
+ & 5.4998E+00_JPRB,5.4970E+00_JPRB,1.3748E+01_JPRB,2.3364E+01_JPRB,3.0492E+01_JPRB,3.3756E+01_JPRB/)  
+KBO( :, 2,44,13) = (/&
+ & 6.5311E+00_JPRB,6.5277E+00_JPRB,1.3340E+01_JPRB,2.2442E+01_JPRB,2.9167E+01_JPRB,3.2820E+01_JPRB/)  
+KBO( :, 3,44,13) = (/&
+ & 7.6857E+00_JPRB,7.6816E+00_JPRB,1.2985E+01_JPRB,2.1531E+01_JPRB,2.7848E+01_JPRB,3.1979E+01_JPRB/)  
+KBO( :, 4,44,13) = (/&
+ & 8.9256E+00_JPRB,8.9207E+00_JPRB,1.2724E+01_JPRB,2.0635E+01_JPRB,2.6540E+01_JPRB,3.0955E+01_JPRB/)  
+KBO( :, 5,44,13) = (/&
+ & 1.0209E+01_JPRB,1.0203E+01_JPRB,1.2556E+01_JPRB,1.9768E+01_JPRB,2.5264E+01_JPRB,2.9937E+01_JPRB/)  
+KBO( :, 1,45,13) = (/&
+ & 5.1066E+00_JPRB,5.1040E+00_JPRB,1.3894E+01_JPRB,2.3735E+01_JPRB,3.1041E+01_JPRB,3.4324E+01_JPRB/)  
+KBO( :, 2,45,13) = (/&
+ & 6.1015E+00_JPRB,6.0983E+00_JPRB,1.3484E+01_JPRB,2.2813E+01_JPRB,2.9715E+01_JPRB,3.3401E+01_JPRB/)  
+KBO( :, 3,45,13) = (/&
+ & 7.2220E+00_JPRB,7.2182E+00_JPRB,1.3105E+01_JPRB,2.1889E+01_JPRB,2.8383E+01_JPRB,3.2574E+01_JPRB/)  
+KBO( :, 4,45,13) = (/&
+ & 8.4438E+00_JPRB,8.4392E+00_JPRB,1.2807E+01_JPRB,2.0975E+01_JPRB,2.7061E+01_JPRB,3.1594E+01_JPRB/)  
+KBO( :, 5,45,13) = (/&
+ & 9.7243E+00_JPRB,9.7189E+00_JPRB,1.2602E+01_JPRB,2.0098E+01_JPRB,2.5763E+01_JPRB,3.0584E+01_JPRB/)  
+KBO( :, 1,46,13) = (/&
+ & 4.7235E+00_JPRB,4.7212E+00_JPRB,1.4046E+01_JPRB,2.4121E+01_JPRB,3.1588E+01_JPRB,3.4885E+01_JPRB/)  
+KBO( :, 2,46,13) = (/&
+ & 5.6742E+00_JPRB,5.6713E+00_JPRB,1.3640E+01_JPRB,2.3201E+01_JPRB,3.0277E+01_JPRB,3.3993E+01_JPRB/)  
+KBO( :, 3,46,13) = (/&
+ & 6.7562E+00_JPRB,6.7526E+00_JPRB,1.3243E+01_JPRB,2.2266E+01_JPRB,2.8936E+01_JPRB,3.3171E+01_JPRB/)  
+KBO( :, 4,46,13) = (/&
+ & 7.9500E+00_JPRB,7.9457E+00_JPRB,1.2906E+01_JPRB,2.1341E+01_JPRB,2.7604E+01_JPRB,3.2255E+01_JPRB/)  
+KBO( :, 5,46,13) = (/&
+ & 9.2204E+00_JPRB,9.2153E+00_JPRB,1.2671E+01_JPRB,2.0448E+01_JPRB,2.6287E+01_JPRB,3.1265E+01_JPRB/)  
+KBO( :, 1,47,13) = (/&
+ & 4.3300E+00_JPRB,4.3280E+00_JPRB,1.4218E+01_JPRB,2.4532E+01_JPRB,3.2164E+01_JPRB,3.5437E+01_JPRB/)  
+KBO( :, 2,47,13) = (/&
+ & 5.2306E+00_JPRB,5.2279E+00_JPRB,1.3812E+01_JPRB,2.3616E+01_JPRB,3.0887E+01_JPRB,3.4582E+01_JPRB/)  
+KBO( :, 3,47,13) = (/&
+ & 6.2646E+00_JPRB,6.2614E+00_JPRB,1.3402E+01_JPRB,2.2678E+01_JPRB,2.9542E+01_JPRB,3.3739E+01_JPRB/)  
+KBO( :, 4,47,13) = (/&
+ & 7.4192E+00_JPRB,7.4152E+00_JPRB,1.3037E+01_JPRB,2.1748E+01_JPRB,2.8196E+01_JPRB,3.2920E+01_JPRB/)  
+KBO( :, 5,47,13) = (/&
+ & 8.6683E+00_JPRB,8.6636E+00_JPRB,1.2760E+01_JPRB,2.0830E+01_JPRB,2.6867E+01_JPRB,3.1949E+01_JPRB/)  
+KBO( :, 1,48,13) = (/&
+ & 3.9563E+00_JPRB,3.9545E+00_JPRB,1.4390E+01_JPRB,2.4924E+01_JPRB,3.2712E+01_JPRB,3.5975E+01_JPRB/)  
+KBO( :, 2,48,13) = (/&
+ & 4.8163E+00_JPRB,4.8139E+00_JPRB,1.3982E+01_JPRB,2.4022E+01_JPRB,3.1475E+01_JPRB,3.5176E+01_JPRB/)  
+KBO( :, 3,48,13) = (/&
+ & 5.7995E+00_JPRB,5.7966E+00_JPRB,1.3571E+01_JPRB,2.3093E+01_JPRB,3.0140E+01_JPRB,3.4333E+01_JPRB/)  
+KBO( :, 4,48,13) = (/&
+ & 6.9101E+00_JPRB,6.9064E+00_JPRB,1.3183E+01_JPRB,2.2151E+01_JPRB,2.8787E+01_JPRB,3.3609E+01_JPRB/)  
+KBO( :, 5,48,13) = (/&
+ & 8.1290E+00_JPRB,8.1246E+00_JPRB,1.2862E+01_JPRB,2.1218E+01_JPRB,2.7446E+01_JPRB,3.2685E+01_JPRB/)  
+KBO( :, 1,49,13) = (/&
+ & 3.6095E+00_JPRB,3.6078E+00_JPRB,1.4558E+01_JPRB,2.5296E+01_JPRB,3.3234E+01_JPRB,3.6504E+01_JPRB/)  
+KBO( :, 2,49,13) = (/&
+ & 4.4271E+00_JPRB,4.4249E+00_JPRB,1.4150E+01_JPRB,2.4423E+01_JPRB,3.2036E+01_JPRB,3.5772E+01_JPRB/)  
+KBO( :, 3,49,13) = (/&
+ & 5.3603E+00_JPRB,5.3576E+00_JPRB,1.3742E+01_JPRB,2.3500E+01_JPRB,3.0731E+01_JPRB,3.4966E+01_JPRB/)  
+KBO( :, 4,49,13) = (/&
+ & 6.4234E+00_JPRB,6.4201E+00_JPRB,1.3335E+01_JPRB,2.2553E+01_JPRB,2.9376E+01_JPRB,3.4358E+01_JPRB/)  
+KBO( :, 5,49,13) = (/&
+ & 7.6032E+00_JPRB,7.5991E+00_JPRB,1.2984E+01_JPRB,2.1616E+01_JPRB,2.8020E+01_JPRB,3.3502E+01_JPRB/)  
+KBO( :, 1,50,13) = (/&
+ & 3.3075E+00_JPRB,3.3060E+00_JPRB,1.4713E+01_JPRB,2.5635E+01_JPRB,3.3698E+01_JPRB,3.6916E+01_JPRB/)  
+KBO( :, 2,50,13) = (/&
+ & 4.0785E+00_JPRB,4.0766E+00_JPRB,1.4310E+01_JPRB,2.4788E+01_JPRB,3.2546E+01_JPRB,3.6251E+01_JPRB/)  
+KBO( :, 3,50,13) = (/&
+ & 4.9697E+00_JPRB,4.9672E+00_JPRB,1.3904E+01_JPRB,2.3873E+01_JPRB,3.1275E+01_JPRB,3.5481E+01_JPRB/)  
+KBO( :, 4,50,13) = (/&
+ & 5.9880E+00_JPRB,5.9849E+00_JPRB,1.3488E+01_JPRB,2.2931E+01_JPRB,2.9923E+01_JPRB,3.4946E+01_JPRB/)  
+KBO( :, 5,50,13) = (/&
+ & 7.1253E+00_JPRB,7.1215E+00_JPRB,1.3112E+01_JPRB,2.1989E+01_JPRB,2.8565E+01_JPRB,3.4166E+01_JPRB/)  
+KBO( :, 1,51,13) = (/&
+ & 3.0350E+00_JPRB,3.0337E+00_JPRB,1.4851E+01_JPRB,2.5935E+01_JPRB,3.4107E+01_JPRB,3.7237E+01_JPRB/)  
+KBO( :, 2,51,13) = (/&
+ & 3.7587E+00_JPRB,3.7569E+00_JPRB,1.4465E+01_JPRB,2.5129E+01_JPRB,3.3019E+01_JPRB,3.6650E+01_JPRB/)  
+KBO( :, 3,51,13) = (/&
+ & 4.6142E+00_JPRB,4.6119E+00_JPRB,1.4053E+01_JPRB,2.4233E+01_JPRB,3.1785E+01_JPRB,3.5945E+01_JPRB/)  
+KBO( :, 4,51,13) = (/&
+ & 5.5848E+00_JPRB,5.5820E+00_JPRB,1.3644E+01_JPRB,2.3300E+01_JPRB,3.0450E+01_JPRB,3.5428E+01_JPRB/)  
+KBO( :, 5,51,13) = (/&
+ & 6.6798E+00_JPRB,6.6762E+00_JPRB,1.3245E+01_JPRB,2.2350E+01_JPRB,2.9088E+01_JPRB,3.4747E+01_JPRB/)  
+KBO( :, 1,52,13) = (/&
+ & 2.7825E+00_JPRB,2.7814E+00_JPRB,1.4975E+01_JPRB,2.6195E+01_JPRB,3.4492E+01_JPRB,3.7510E+01_JPRB/)  
+KBO( :, 2,52,13) = (/&
+ & 3.4605E+00_JPRB,3.4589E+00_JPRB,1.4616E+01_JPRB,2.5455E+01_JPRB,3.3469E+01_JPRB,3.7042E+01_JPRB/)  
+KBO( :, 3,52,13) = (/&
+ & 4.2744E+00_JPRB,4.2723E+00_JPRB,1.4207E+01_JPRB,2.4585E+01_JPRB,3.2279E+01_JPRB,3.6429E+01_JPRB/)  
+KBO( :, 4,52,13) = (/&
+ & 5.1994E+00_JPRB,5.1968E+00_JPRB,1.3797E+01_JPRB,2.3661E+01_JPRB,3.0975E+01_JPRB,3.5933E+01_JPRB/)  
+KBO( :, 5,52,13) = (/&
+ & 6.2531E+00_JPRB,6.2499E+00_JPRB,1.3386E+01_JPRB,2.2706E+01_JPRB,2.9608E+01_JPRB,3.5360E+01_JPRB/)  
+KBO( :, 1,53,13) = (/&
+ & 2.5462E+00_JPRB,2.5451E+00_JPRB,1.5076E+01_JPRB,2.6414E+01_JPRB,3.4840E+01_JPRB,3.7769E+01_JPRB/)  
+KBO( :, 2,53,13) = (/&
+ & 3.1815E+00_JPRB,3.1801E+00_JPRB,1.4759E+01_JPRB,2.5766E+01_JPRB,3.3894E+01_JPRB,3.7437E+01_JPRB/)  
+KBO( :, 3,53,13) = (/&
+ & 3.9476E+00_JPRB,3.9457E+00_JPRB,1.4361E+01_JPRB,2.4924E+01_JPRB,3.2751E+01_JPRB,3.6936E+01_JPRB/)  
+KBO( :, 4,53,13) = (/&
+ & 4.8360E+00_JPRB,4.8336E+00_JPRB,1.3950E+01_JPRB,2.4012E+01_JPRB,3.1482E+01_JPRB,3.6505E+01_JPRB/)  
+KBO( :, 5,53,13) = (/&
+ & 5.8444E+00_JPRB,5.8414E+00_JPRB,1.3535E+01_JPRB,2.3068E+01_JPRB,3.0128E+01_JPRB,3.6046E+01_JPRB/)  
+KBO( :, 1,54,13) = (/&
+ & 2.3476E+00_JPRB,2.3467E+00_JPRB,1.5163E+01_JPRB,2.6598E+01_JPRB,3.5117E+01_JPRB,3.7852E+01_JPRB/)  
+KBO( :, 2,54,13) = (/&
+ & 2.9439E+00_JPRB,2.9426E+00_JPRB,1.4884E+01_JPRB,2.6029E+01_JPRB,3.4253E+01_JPRB,3.7637E+01_JPRB/)  
+KBO( :, 3,54,13) = (/&
+ & 3.6641E+00_JPRB,3.6624E+00_JPRB,1.4503E+01_JPRB,2.5231E+01_JPRB,3.3172E+01_JPRB,3.7161E+01_JPRB/)  
+KBO( :, 4,54,13) = (/&
+ & 4.5193E+00_JPRB,4.5171E+00_JPRB,1.4088E+01_JPRB,2.4334E+01_JPRB,3.1938E+01_JPRB,3.6656E+01_JPRB/)  
+KBO( :, 5,54,13) = (/&
+ & 5.4838E+00_JPRB,5.4810E+00_JPRB,1.3677E+01_JPRB,2.3400E+01_JPRB,3.0603E+01_JPRB,3.6329E+01_JPRB/)  
+KBO( :, 1,55,13) = (/&
+ & 2.1710E+00_JPRB,2.1701E+00_JPRB,1.5234E+01_JPRB,2.6747E+01_JPRB,3.5339E+01_JPRB,3.7885E+01_JPRB/)  
+KBO( :, 2,55,13) = (/&
+ & 2.7278E+00_JPRB,2.7266E+00_JPRB,1.4989E+01_JPRB,2.6245E+01_JPRB,3.4579E+01_JPRB,3.7689E+01_JPRB/)  
+KBO( :, 3,55,13) = (/&
+ & 3.4082E+00_JPRB,3.4067E+00_JPRB,1.4633E+01_JPRB,2.5510E+01_JPRB,3.3556E+01_JPRB,3.7242E+01_JPRB/)  
+KBO( :, 4,55,13) = (/&
+ & 4.2238E+00_JPRB,4.2218E+00_JPRB,1.4223E+01_JPRB,2.4639E+01_JPRB,3.2363E+01_JPRB,3.6666E+01_JPRB/)  
+KBO( :, 5,55,13) = (/&
+ & 5.1513E+00_JPRB,5.1487E+00_JPRB,1.3812E+01_JPRB,2.3712E+01_JPRB,3.1057E+01_JPRB,3.6276E+01_JPRB/)  
+KBO( :, 1,56,13) = (/&
+ & 2.0079E+00_JPRB,2.0070E+00_JPRB,1.5283E+01_JPRB,2.6864E+01_JPRB,3.5527E+01_JPRB,3.7901E+01_JPRB/)  
+KBO( :, 2,56,13) = (/&
+ & 2.5254E+00_JPRB,2.5243E+00_JPRB,1.5077E+01_JPRB,2.6433E+01_JPRB,3.4877E+01_JPRB,3.7697E+01_JPRB/)  
+KBO( :, 3,56,13) = (/&
+ & 3.1684E+00_JPRB,3.1669E+00_JPRB,1.4757E+01_JPRB,2.5780E+01_JPRB,3.3923E+01_JPRB,3.7342E+01_JPRB/)  
+KBO( :, 4,56,13) = (/&
+ & 3.9407E+00_JPRB,3.9388E+00_JPRB,1.4357E+01_JPRB,2.4934E+01_JPRB,3.2773E+01_JPRB,3.6769E+01_JPRB/)  
+KBO( :, 5,56,13) = (/&
+ & 4.8364E+00_JPRB,4.8339E+00_JPRB,1.3945E+01_JPRB,2.4018E+01_JPRB,3.1497E+01_JPRB,3.6172E+01_JPRB/)  
+KBO( :, 1,57,13) = (/&
+ & 1.8578E+00_JPRB,1.8569E+00_JPRB,1.5303E+01_JPRB,2.6949E+01_JPRB,3.5653E+01_JPRB,3.7877E+01_JPRB/)  
+KBO( :, 2,57,13) = (/&
+ & 2.3391E+00_JPRB,2.3382E+00_JPRB,1.5160E+01_JPRB,2.6604E+01_JPRB,3.5134E+01_JPRB,3.7763E+01_JPRB/)  
+KBO( :, 3,57,13) = (/&
+ & 2.9439E+00_JPRB,2.9426E+00_JPRB,1.4876E+01_JPRB,2.6028E+01_JPRB,3.4258E+01_JPRB,3.7439E+01_JPRB/)  
+KBO( :, 4,57,13) = (/&
+ & 3.6722E+00_JPRB,3.6705E+00_JPRB,1.4492E+01_JPRB,2.5221E+01_JPRB,3.3167E+01_JPRB,3.6862E+01_JPRB/)  
+KBO( :, 5,57,13) = (/&
+ & 4.5340E+00_JPRB,4.5318E+00_JPRB,1.4076E+01_JPRB,2.4322E+01_JPRB,3.1926E+01_JPRB,3.6169E+01_JPRB/)  
+KBO( :, 1,58,13) = (/&
+ & 1.7257E+00_JPRB,1.7249E+00_JPRB,1.5300E+01_JPRB,2.6987E+01_JPRB,3.5715E+01_JPRB,3.7771E+01_JPRB/)  
+KBO( :, 2,58,13) = (/&
+ & 2.1747E+00_JPRB,2.1738E+00_JPRB,1.5228E+01_JPRB,2.6747E+01_JPRB,3.5343E+01_JPRB,3.7835E+01_JPRB/)  
+KBO( :, 3,58,13) = (/&
+ & 2.7413E+00_JPRB,2.7402E+00_JPRB,1.4977E+01_JPRB,2.6232E+01_JPRB,3.4563E+01_JPRB,3.7436E+01_JPRB/)  
+KBO( :, 4,58,13) = (/&
+ & 3.4316E+00_JPRB,3.4300E+00_JPRB,1.4616E+01_JPRB,2.5484E+01_JPRB,3.3527E+01_JPRB,3.6930E+01_JPRB/)  
+KBO( :, 5,58,13) = (/&
+ & 4.2563E+00_JPRB,4.2542E+00_JPRB,1.4203E+01_JPRB,2.4608E+01_JPRB,3.2326E+01_JPRB,3.6245E+01_JPRB/)  
+KBO( :, 1,59,13) = (/&
+ & 1.6718E+00_JPRB,1.6710E+00_JPRB,1.5295E+01_JPRB,2.6993E+01_JPRB,3.5730E+01_JPRB,3.7608E+01_JPRB/)  
+KBO( :, 2,59,13) = (/&
+ & 2.1089E+00_JPRB,2.1080E+00_JPRB,1.5254E+01_JPRB,2.6799E+01_JPRB,3.5425E+01_JPRB,3.7786E+01_JPRB/)  
+KBO( :, 3,59,13) = (/&
+ & 2.6604E+00_JPRB,2.6594E+00_JPRB,1.5013E+01_JPRB,2.6309E+01_JPRB,3.4684E+01_JPRB,3.7341E+01_JPRB/)  
+KBO( :, 4,59,13) = (/&
+ & 3.3364E+00_JPRB,3.3349E+00_JPRB,1.4664E+01_JPRB,2.5591E+01_JPRB,3.3675E+01_JPRB,3.6669E+01_JPRB/)  
+KBO( :, 5,59,13) = (/&
+ & 4.1451E+00_JPRB,4.1431E+00_JPRB,1.4254E+01_JPRB,2.4723E+01_JPRB,3.2485E+01_JPRB,3.5871E+01_JPRB/)  
+KBO( :, 1,13,14) = (/&
+ & 2.9867E+01_JPRB,2.9850E+01_JPRB,2.2813E+01_JPRB,1.5747E+01_JPRB,8.6461E+00_JPRB,6.6277E+00_JPRB/)  
+KBO( :, 2,13,14) = (/&
+ & 2.8970E+01_JPRB,2.8953E+01_JPRB,2.2112E+01_JPRB,1.5258E+01_JPRB,8.4453E+00_JPRB,6.4752E+00_JPRB/)  
+KBO( :, 3,13,14) = (/&
+ & 2.8231E+01_JPRB,2.8215E+01_JPRB,2.1546E+01_JPRB,1.4872E+01_JPRB,8.2664E+00_JPRB,6.3900E+00_JPRB/)  
+KBO( :, 4,13,14) = (/&
+ & 2.7643E+01_JPRB,2.7627E+01_JPRB,2.1093E+01_JPRB,1.4551E+01_JPRB,8.1037E+00_JPRB,6.4058E+00_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART32',1,ZHOOK_HANDLE)
+END SUBROUTINE PART32
+
+
+SUBROUTINE PART33
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART33',0,ZHOOK_HANDLE)
+
+
+KBO( :, 5,13,14) = (/&
+ & 2.7121E+01_JPRB,2.7106E+01_JPRB,2.0679E+01_JPRB,1.4264E+01_JPRB,7.9370E+00_JPRB,6.4632E+00_JPRB/)  
+KBO( :, 1,14,14) = (/&
+ & 3.1721E+01_JPRB,3.1703E+01_JPRB,2.4198E+01_JPRB,1.6672E+01_JPRB,9.2683E+00_JPRB,7.3049E+00_JPRB/)  
+KBO( :, 2,14,14) = (/&
+ & 3.1076E+01_JPRB,3.1058E+01_JPRB,2.3689E+01_JPRB,1.6337E+01_JPRB,9.1193E+00_JPRB,7.0508E+00_JPRB/)  
+KBO( :, 3,14,14) = (/&
+ & 3.0563E+01_JPRB,3.0546E+01_JPRB,2.3305E+01_JPRB,1.6071E+01_JPRB,8.9743E+00_JPRB,6.8812E+00_JPRB/)  
+KBO( :, 4,14,14) = (/&
+ & 3.0148E+01_JPRB,3.0131E+01_JPRB,2.2977E+01_JPRB,1.5835E+01_JPRB,8.8320E+00_JPRB,6.7605E+00_JPRB/)  
+KBO( :, 5,14,14) = (/&
+ & 2.9764E+01_JPRB,2.9747E+01_JPRB,2.2687E+01_JPRB,1.5631E+01_JPRB,8.6858E+00_JPRB,6.7365E+00_JPRB/)  
+KBO( :, 1,15,14) = (/&
+ & 3.4331E+01_JPRB,3.4311E+01_JPRB,2.6139E+01_JPRB,1.7967E+01_JPRB,1.0028E+01_JPRB,8.1321E+00_JPRB/)  
+KBO( :, 2,15,14) = (/&
+ & 3.3952E+01_JPRB,3.3933E+01_JPRB,2.5854E+01_JPRB,1.7780E+01_JPRB,9.9136E+00_JPRB,7.8472E+00_JPRB/)  
+KBO( :, 3,15,14) = (/&
+ & 3.3650E+01_JPRB,3.3631E+01_JPRB,2.5615E+01_JPRB,1.7601E+01_JPRB,9.7954E+00_JPRB,7.6157E+00_JPRB/)  
+KBO( :, 4,15,14) = (/&
+ & 3.3344E+01_JPRB,3.3325E+01_JPRB,2.5376E+01_JPRB,1.7433E+01_JPRB,9.6656E+00_JPRB,7.3952E+00_JPRB/)  
+KBO( :, 5,15,14) = (/&
+ & 3.3055E+01_JPRB,3.3036E+01_JPRB,2.5149E+01_JPRB,1.7257E+01_JPRB,9.5339E+00_JPRB,7.2585E+00_JPRB/)  
+KBO( :, 1,16,14) = (/&
+ & 3.7768E+01_JPRB,3.7746E+01_JPRB,2.8736E+01_JPRB,1.9717E+01_JPRB,1.0946E+01_JPRB,9.0577E+00_JPRB/)  
+KBO( :, 2,16,14) = (/&
+ & 3.7568E+01_JPRB,3.7546E+01_JPRB,2.8561E+01_JPRB,1.9575E+01_JPRB,1.0848E+01_JPRB,8.7437E+00_JPRB/)  
+KBO( :, 3,16,14) = (/&
+ & 3.7327E+01_JPRB,3.7305E+01_JPRB,2.8371E+01_JPRB,1.9439E+01_JPRB,1.0735E+01_JPRB,8.4668E+00_JPRB/)  
+KBO( :, 4,16,14) = (/&
+ & 3.7089E+01_JPRB,3.7067E+01_JPRB,2.8181E+01_JPRB,1.9291E+01_JPRB,1.0617E+01_JPRB,8.2419E+00_JPRB/)  
+KBO( :, 5,16,14) = (/&
+ & 3.6772E+01_JPRB,3.6751E+01_JPRB,2.7932E+01_JPRB,1.9114E+01_JPRB,1.0484E+01_JPRB,8.0316E+00_JPRB/)  
+KBO( :, 1,17,14) = (/&
+ & 4.1800E+01_JPRB,4.1776E+01_JPRB,3.1755E+01_JPRB,2.1740E+01_JPRB,1.2078E+01_JPRB,1.0093E+01_JPRB/)  
+KBO( :, 2,17,14) = (/&
+ & 4.1678E+01_JPRB,4.1653E+01_JPRB,3.1650E+01_JPRB,2.1659E+01_JPRB,1.1979E+01_JPRB,9.7654E+00_JPRB/)  
+KBO( :, 3,17,14) = (/&
+ & 4.1542E+01_JPRB,4.1518E+01_JPRB,3.1528E+01_JPRB,2.1552E+01_JPRB,1.1863E+01_JPRB,9.4632E+00_JPRB/)  
+KBO( :, 4,17,14) = (/&
+ & 4.1281E+01_JPRB,4.1257E+01_JPRB,3.1316E+01_JPRB,2.1389E+01_JPRB,1.1731E+01_JPRB,9.2257E+00_JPRB/)  
+KBO( :, 5,17,14) = (/&
+ & 4.1001E+01_JPRB,4.0977E+01_JPRB,3.1090E+01_JPRB,2.1207E+01_JPRB,1.1579E+01_JPRB,8.9705E+00_JPRB/)  
+KBO( :, 1,18,14) = (/&
+ & 4.6476E+01_JPRB,4.6449E+01_JPRB,3.5262E+01_JPRB,2.4079E+01_JPRB,1.3398E+01_JPRB,1.1310E+01_JPRB/)  
+KBO( :, 2,18,14) = (/&
+ & 4.6434E+01_JPRB,4.6407E+01_JPRB,3.5219E+01_JPRB,2.4028E+01_JPRB,1.3279E+01_JPRB,1.0988E+01_JPRB/)  
+KBO( :, 3,18,14) = (/&
+ & 4.6265E+01_JPRB,4.6238E+01_JPRB,3.5074E+01_JPRB,2.3903E+01_JPRB,1.3136E+01_JPRB,1.0670E+01_JPRB/)  
+KBO( :, 4,18,14) = (/&
+ & 4.6056E+01_JPRB,4.6029E+01_JPRB,3.4898E+01_JPRB,2.3749E+01_JPRB,1.2970E+01_JPRB,1.0429E+01_JPRB/)  
+KBO( :, 5,18,14) = (/&
+ & 4.5721E+01_JPRB,4.5694E+01_JPRB,3.4620E+01_JPRB,2.3533E+01_JPRB,1.2786E+01_JPRB,1.0167E+01_JPRB/)  
+KBO( :, 1,19,14) = (/&
+ & 5.1627E+01_JPRB,5.1597E+01_JPRB,3.9121E+01_JPRB,2.6626E+01_JPRB,1.4901E+01_JPRB,1.2801E+01_JPRB/)  
+KBO( :, 2,19,14) = (/&
+ & 5.1560E+01_JPRB,5.1530E+01_JPRB,3.9050E+01_JPRB,2.6558E+01_JPRB,1.4739E+01_JPRB,1.2472E+01_JPRB/)  
+KBO( :, 3,19,14) = (/&
+ & 5.1413E+01_JPRB,5.1383E+01_JPRB,3.8915E+01_JPRB,2.6432E+01_JPRB,1.4553E+01_JPRB,1.2141E+01_JPRB/)  
+KBO( :, 4,19,14) = (/&
+ & 5.1136E+01_JPRB,5.1106E+01_JPRB,3.8684E+01_JPRB,2.6245E+01_JPRB,1.4345E+01_JPRB,1.1879E+01_JPRB/)  
+KBO( :, 5,19,14) = (/&
+ & 5.0773E+01_JPRB,5.0743E+01_JPRB,3.8384E+01_JPRB,2.6014E+01_JPRB,1.4118E+01_JPRB,1.1591E+01_JPRB/)  
+KBO( :, 1,20,14) = (/&
+ & 5.6884E+01_JPRB,5.6851E+01_JPRB,4.3042E+01_JPRB,2.9216E+01_JPRB,1.6557E+01_JPRB,1.4595E+01_JPRB/)  
+KBO( :, 2,20,14) = (/&
+ & 5.6797E+01_JPRB,5.6764E+01_JPRB,4.2946E+01_JPRB,2.9117E+01_JPRB,1.6341E+01_JPRB,1.4232E+01_JPRB/)  
+KBO( :, 3,20,14) = (/&
+ & 5.6571E+01_JPRB,5.6538E+01_JPRB,4.2757E+01_JPRB,2.8963E+01_JPRB,1.6110E+01_JPRB,1.3871E+01_JPRB/)  
+KBO( :, 4,20,14) = (/&
+ & 5.6241E+01_JPRB,5.6208E+01_JPRB,4.2485E+01_JPRB,2.8752E+01_JPRB,1.5861E+01_JPRB,1.3552E+01_JPRB/)  
+KBO( :, 5,20,14) = (/&
+ & 5.5778E+01_JPRB,5.5746E+01_JPRB,4.2122E+01_JPRB,2.8488E+01_JPRB,1.5601E+01_JPRB,1.3221E+01_JPRB/)  
+KBO( :, 1,21,14) = (/&
+ & 6.2117E+01_JPRB,6.2081E+01_JPRB,4.6932E+01_JPRB,3.1772E+01_JPRB,1.8332E+01_JPRB,1.6634E+01_JPRB/)  
+KBO( :, 2,21,14) = (/&
+ & 6.1948E+01_JPRB,6.1912E+01_JPRB,4.6785E+01_JPRB,3.1648E+01_JPRB,1.8084E+01_JPRB,1.6213E+01_JPRB/)  
+KBO( :, 3,21,14) = (/&
+ & 6.1644E+01_JPRB,6.1608E+01_JPRB,4.6541E+01_JPRB,3.1461E+01_JPRB,1.7808E+01_JPRB,1.5772E+01_JPRB/)  
+KBO( :, 4,21,14) = (/&
+ & 6.1212E+01_JPRB,6.1176E+01_JPRB,4.6198E+01_JPRB,3.1208E+01_JPRB,1.7516E+01_JPRB,1.5375E+01_JPRB/)  
+KBO( :, 5,21,14) = (/&
+ & 6.0660E+01_JPRB,6.0625E+01_JPRB,4.5764E+01_JPRB,3.0893E+01_JPRB,1.7197E+01_JPRB,1.4982E+01_JPRB/)  
+KBO( :, 1,22,14) = (/&
+ & 6.7064E+01_JPRB,6.7024E+01_JPRB,5.0622E+01_JPRB,3.4206E+01_JPRB,2.0283E+01_JPRB,1.8773E+01_JPRB/)  
+KBO( :, 2,22,14) = (/&
+ & 6.6814E+01_JPRB,6.6775E+01_JPRB,5.0411E+01_JPRB,3.4038E+01_JPRB,1.9964E+01_JPRB,1.8268E+01_JPRB/)  
+KBO( :, 3,22,14) = (/&
+ & 6.6405E+01_JPRB,6.6365E+01_JPRB,5.0089E+01_JPRB,3.3800E+01_JPRB,1.9618E+01_JPRB,1.7753E+01_JPRB/)  
+KBO( :, 4,22,14) = (/&
+ & 6.5854E+01_JPRB,6.5815E+01_JPRB,4.9659E+01_JPRB,3.3490E+01_JPRB,1.9247E+01_JPRB,1.7292E+01_JPRB/)  
+KBO( :, 5,22,14) = (/&
+ & 6.5177E+01_JPRB,6.5139E+01_JPRB,4.9133E+01_JPRB,3.3115E+01_JPRB,1.8852E+01_JPRB,1.6841E+01_JPRB/)  
+KBO( :, 1,23,14) = (/&
+ & 7.1524E+01_JPRB,7.1482E+01_JPRB,5.3943E+01_JPRB,3.6394E+01_JPRB,2.2409E+01_JPRB,2.1034E+01_JPRB/)  
+KBO( :, 2,23,14) = (/&
+ & 7.1180E+01_JPRB,7.1138E+01_JPRB,5.3667E+01_JPRB,3.6188E+01_JPRB,2.2011E+01_JPRB,2.0463E+01_JPRB/)  
+KBO( :, 3,23,14) = (/&
+ & 7.0675E+01_JPRB,7.0634E+01_JPRB,5.3273E+01_JPRB,3.5900E+01_JPRB,2.1570E+01_JPRB,1.9880E+01_JPRB/)  
+KBO( :, 4,23,14) = (/&
+ & 7.0044E+01_JPRB,7.0003E+01_JPRB,5.2781E+01_JPRB,3.5547E+01_JPRB,2.1106E+01_JPRB,1.9340E+01_JPRB/)  
+KBO( :, 5,23,14) = (/&
+ & 6.9258E+01_JPRB,6.9217E+01_JPRB,5.2177E+01_JPRB,3.5122E+01_JPRB,2.0624E+01_JPRB,1.8817E+01_JPRB/)  
+KBO( :, 1,24,14) = (/&
+ & 7.5188E+01_JPRB,7.5144E+01_JPRB,5.6672E+01_JPRB,3.8194E+01_JPRB,2.4653E+01_JPRB,2.3438E+01_JPRB/)  
+KBO( :, 2,24,14) = (/&
+ & 7.4771E+01_JPRB,7.4727E+01_JPRB,5.6346E+01_JPRB,3.7956E+01_JPRB,2.4153E+01_JPRB,2.2769E+01_JPRB/)  
+KBO( :, 3,24,14) = (/&
+ & 7.4256E+01_JPRB,7.4212E+01_JPRB,5.5942E+01_JPRB,3.7664E+01_JPRB,2.3612E+01_JPRB,2.2098E+01_JPRB/)  
+KBO( :, 4,24,14) = (/&
+ & 7.3533E+01_JPRB,7.3489E+01_JPRB,5.5386E+01_JPRB,3.7269E+01_JPRB,2.3047E+01_JPRB,2.1446E+01_JPRB/)  
+KBO( :, 5,24,14) = (/&
+ & 7.2712E+01_JPRB,7.2669E+01_JPRB,5.4752E+01_JPRB,3.6822E+01_JPRB,2.2450E+01_JPRB,2.0823E+01_JPRB/)  
+KBO( :, 1,25,14) = (/&
+ & 7.7905E+01_JPRB,7.7859E+01_JPRB,5.8695E+01_JPRB,3.9643E+01_JPRB,2.6946E+01_JPRB,2.5911E+01_JPRB/)  
+KBO( :, 2,25,14) = (/&
+ & 7.7541E+01_JPRB,7.7495E+01_JPRB,5.8407E+01_JPRB,3.9379E+01_JPRB,2.6314E+01_JPRB,2.5120E+01_JPRB/)  
+KBO( :, 3,25,14) = (/&
+ & 7.6964E+01_JPRB,7.6919E+01_JPRB,5.7957E+01_JPRB,3.9027E+01_JPRB,2.5656E+01_JPRB,2.4314E+01_JPRB/)  
+KBO( :, 4,25,14) = (/&
+ & 7.6272E+01_JPRB,7.6227E+01_JPRB,5.7424E+01_JPRB,3.8630E+01_JPRB,2.4965E+01_JPRB,2.3534E+01_JPRB/)  
+KBO( :, 5,25,14) = (/&
+ & 7.5432E+01_JPRB,7.5387E+01_JPRB,5.6779E+01_JPRB,3.8173E+01_JPRB,2.4252E+01_JPRB,2.2796E+01_JPRB/)  
+KBO( :, 1,26,14) = (/&
+ & 7.9766E+01_JPRB,7.9719E+01_JPRB,6.0079E+01_JPRB,4.0881E+01_JPRB,2.9223E+01_JPRB,2.8381E+01_JPRB/)  
+KBO( :, 2,26,14) = (/&
+ & 7.9434E+01_JPRB,7.9387E+01_JPRB,5.9813E+01_JPRB,4.0549E+01_JPRB,2.8445E+01_JPRB,2.7433E+01_JPRB/)  
+KBO( :, 3,26,14) = (/&
+ & 7.8929E+01_JPRB,7.8882E+01_JPRB,5.9418E+01_JPRB,4.0176E+01_JPRB,2.7639E+01_JPRB,2.6466E+01_JPRB/)  
+KBO( :, 4,26,14) = (/&
+ & 7.8299E+01_JPRB,7.8253E+01_JPRB,5.8927E+01_JPRB,3.9741E+01_JPRB,2.6813E+01_JPRB,2.5543E+01_JPRB/)  
+KBO( :, 5,26,14) = (/&
+ & 7.7472E+01_JPRB,7.7426E+01_JPRB,5.8300E+01_JPRB,3.9244E+01_JPRB,2.5976E+01_JPRB,2.4671E+01_JPRB/)  
+KBO( :, 1,27,14) = (/&
+ & 8.0841E+01_JPRB,8.0794E+01_JPRB,6.0873E+01_JPRB,4.1874E+01_JPRB,3.1425E+01_JPRB,3.0772E+01_JPRB/)  
+KBO( :, 2,27,14) = (/&
+ & 8.0592E+01_JPRB,8.0544E+01_JPRB,6.0668E+01_JPRB,4.1525E+01_JPRB,3.0489E+01_JPRB,2.9641E+01_JPRB/)  
+KBO( :, 3,27,14) = (/&
+ & 8.0232E+01_JPRB,8.0184E+01_JPRB,6.0383E+01_JPRB,4.1112E+01_JPRB,2.9523E+01_JPRB,2.8513E+01_JPRB/)  
+KBO( :, 4,27,14) = (/&
+ & 7.9648E+01_JPRB,7.9600E+01_JPRB,5.9935E+01_JPRB,4.0653E+01_JPRB,2.8551E+01_JPRB,2.7444E+01_JPRB/)  
+KBO( :, 5,27,14) = (/&
+ & 7.8924E+01_JPRB,7.8877E+01_JPRB,5.9378E+01_JPRB,4.0128E+01_JPRB,2.7582E+01_JPRB,2.6425E+01_JPRB/)  
+KBO( :, 1,28,14) = (/&
+ & 8.1302E+01_JPRB,8.1254E+01_JPRB,6.1208E+01_JPRB,4.2732E+01_JPRB,3.3493E+01_JPRB,3.3014E+01_JPRB/)  
+KBO( :, 2,28,14) = (/&
+ & 8.1246E+01_JPRB,8.1198E+01_JPRB,6.1149E+01_JPRB,4.2327E+01_JPRB,3.2380E+01_JPRB,3.1684E+01_JPRB/)  
+KBO( :, 3,28,14) = (/&
+ & 8.0968E+01_JPRB,8.0920E+01_JPRB,6.0927E+01_JPRB,4.1887E+01_JPRB,3.1259E+01_JPRB,3.0389E+01_JPRB/)  
+KBO( :, 4,28,14) = (/&
+ & 8.0565E+01_JPRB,8.0517E+01_JPRB,6.0611E+01_JPRB,4.1407E+01_JPRB,3.0143E+01_JPRB,2.9193E+01_JPRB/)  
+KBO( :, 5,28,14) = (/&
+ & 7.9942E+01_JPRB,7.9894E+01_JPRB,6.0131E+01_JPRB,4.0878E+01_JPRB,2.9022E+01_JPRB,2.8027E+01_JPRB/)  
+KBO( :, 1,29,14) = (/&
+ & 8.1307E+01_JPRB,8.1259E+01_JPRB,6.1205E+01_JPRB,4.3500E+01_JPRB,3.5359E+01_JPRB,3.5050E+01_JPRB/)  
+KBO( :, 2,29,14) = (/&
+ & 8.1478E+01_JPRB,8.1430E+01_JPRB,6.1314E+01_JPRB,4.3042E+01_JPRB,3.4075E+01_JPRB,3.3533E+01_JPRB/)  
+KBO( :, 3,29,14) = (/&
+ & 8.1374E+01_JPRB,8.1326E+01_JPRB,6.1221E+01_JPRB,4.2543E+01_JPRB,3.2801E+01_JPRB,3.2073E+01_JPRB/)  
+KBO( :, 4,29,14) = (/&
+ & 8.1081E+01_JPRB,8.1032E+01_JPRB,6.0988E+01_JPRB,4.2019E+01_JPRB,3.1534E+01_JPRB,3.0765E+01_JPRB/)  
+KBO( :, 5,29,14) = (/&
+ & 8.0577E+01_JPRB,8.0529E+01_JPRB,6.0599E+01_JPRB,4.1461E+01_JPRB,3.0285E+01_JPRB,2.9423E+01_JPRB/)  
+KBO( :, 1,30,14) = (/&
+ & 8.1051E+01_JPRB,8.1003E+01_JPRB,6.1003E+01_JPRB,4.4185E+01_JPRB,3.7000E+01_JPRB,3.6850E+01_JPRB/)  
+KBO( :, 2,30,14) = (/&
+ & 8.1462E+01_JPRB,8.1414E+01_JPRB,6.1293E+01_JPRB,4.3687E+01_JPRB,3.5552E+01_JPRB,3.5134E+01_JPRB/)  
+KBO( :, 3,30,14) = (/&
+ & 8.1539E+01_JPRB,8.1490E+01_JPRB,6.1337E+01_JPRB,4.3125E+01_JPRB,3.4127E+01_JPRB,3.3561E+01_JPRB/)  
+KBO( :, 4,30,14) = (/&
+ & 8.1391E+01_JPRB,8.1342E+01_JPRB,6.1214E+01_JPRB,4.2562E+01_JPRB,3.2726E+01_JPRB,3.2101E+01_JPRB/)  
+KBO( :, 5,30,14) = (/&
+ & 8.0955E+01_JPRB,8.0906E+01_JPRB,6.0875E+01_JPRB,4.1945E+01_JPRB,3.1354E+01_JPRB,3.0606E+01_JPRB/)  
+KBO( :, 1,31,14) = (/&
+ & 8.0671E+01_JPRB,8.0623E+01_JPRB,6.0709E+01_JPRB,4.4790E+01_JPRB,3.8398E+01_JPRB,3.8352E+01_JPRB/)  
+KBO( :, 2,31,14) = (/&
+ & 8.1282E+01_JPRB,8.1234E+01_JPRB,6.1149E+01_JPRB,4.4230E+01_JPRB,3.6789E+01_JPRB,3.6501E+01_JPRB/)  
+KBO( :, 3,31,14) = (/&
+ & 8.1574E+01_JPRB,8.1525E+01_JPRB,6.1354E+01_JPRB,4.3641E+01_JPRB,3.5216E+01_JPRB,3.4852E+01_JPRB/)  
+KBO( :, 4,31,14) = (/&
+ & 8.1529E+01_JPRB,8.1481E+01_JPRB,6.1310E+01_JPRB,4.3014E+01_JPRB,3.3693E+01_JPRB,3.3201E+01_JPRB/)  
+KBO( :, 5,31,14) = (/&
+ & 8.1189E+01_JPRB,8.1141E+01_JPRB,6.1044E+01_JPRB,4.2350E+01_JPRB,3.2213E+01_JPRB,3.1581E+01_JPRB/)  
+KBO( :, 1,32,14) = (/&
+ & 8.0273E+01_JPRB,8.0225E+01_JPRB,6.0440E+01_JPRB,4.5305E+01_JPRB,3.9524E+01_JPRB,3.9577E+01_JPRB/)  
+KBO( :, 2,32,14) = (/&
+ & 8.1061E+01_JPRB,8.1013E+01_JPRB,6.0977E+01_JPRB,4.4682E+01_JPRB,3.7774E+01_JPRB,3.7685E+01_JPRB/)  
+KBO( :, 3,32,14) = (/&
+ & 8.1507E+01_JPRB,8.1459E+01_JPRB,6.1299E+01_JPRB,4.4057E+01_JPRB,3.6074E+01_JPRB,3.5862E+01_JPRB/)  
+KBO( :, 4,32,14) = (/&
+ & 8.1572E+01_JPRB,8.1523E+01_JPRB,6.1336E+01_JPRB,4.3367E+01_JPRB,3.4447E+01_JPRB,3.4068E+01_JPRB/)  
+KBO( :, 5,32,14) = (/&
+ & 8.1328E+01_JPRB,8.1279E+01_JPRB,6.1143E+01_JPRB,4.2670E+01_JPRB,3.2874E+01_JPRB,3.2515E+01_JPRB/)  
+KBO( :, 1,33,14) = (/&
+ & 7.9947E+01_JPRB,7.9899E+01_JPRB,6.0245E+01_JPRB,4.5734E+01_JPRB,4.0389E+01_JPRB,4.0600E+01_JPRB/)  
+KBO( :, 2,33,14) = (/&
+ & 8.0885E+01_JPRB,8.0836E+01_JPRB,6.0856E+01_JPRB,4.5062E+01_JPRB,3.8518E+01_JPRB,3.8594E+01_JPRB/)  
+KBO( :, 3,33,14) = (/&
+ & 8.1444E+01_JPRB,8.1395E+01_JPRB,6.1246E+01_JPRB,4.4394E+01_JPRB,3.6721E+01_JPRB,3.6614E+01_JPRB/)  
+KBO( :, 4,33,14) = (/&
+ & 8.1576E+01_JPRB,8.1528E+01_JPRB,6.1332E+01_JPRB,4.3653E+01_JPRB,3.5005E+01_JPRB,3.4830E+01_JPRB/)  
+KBO( :, 5,33,14) = (/&
+ & 8.1383E+01_JPRB,8.1335E+01_JPRB,6.1178E+01_JPRB,4.2909E+01_JPRB,3.3354E+01_JPRB,3.3470E+01_JPRB/)  
+KBO( :, 1,34,14) = (/&
+ & 7.9662E+01_JPRB,7.9614E+01_JPRB,6.0102E+01_JPRB,4.6098E+01_JPRB,4.1095E+01_JPRB,4.1483E+01_JPRB/)  
+KBO( :, 2,34,14) = (/&
+ & 8.0738E+01_JPRB,8.0690E+01_JPRB,6.0775E+01_JPRB,4.5387E+01_JPRB,3.9122E+01_JPRB,3.9299E+01_JPRB/)  
+KBO( :, 3,34,14) = (/&
+ & 8.1366E+01_JPRB,8.1318E+01_JPRB,6.1186E+01_JPRB,4.4659E+01_JPRB,3.7233E+01_JPRB,3.7257E+01_JPRB/)  
+KBO( :, 4,34,14) = (/&
+ & 8.1568E+01_JPRB,8.1519E+01_JPRB,6.1321E+01_JPRB,4.3886E+01_JPRB,3.5446E+01_JPRB,3.5711E+01_JPRB/)  
+KBO( :, 5,34,14) = (/&
+ & 8.1413E+01_JPRB,8.1365E+01_JPRB,6.1195E+01_JPRB,4.3093E+01_JPRB,3.3726E+01_JPRB,3.4415E+01_JPRB/)  
+KBO( :, 1,35,14) = (/&
+ & 7.9337E+01_JPRB,7.9289E+01_JPRB,5.9949E+01_JPRB,4.6449E+01_JPRB,4.1796E+01_JPRB,4.2326E+01_JPRB/)  
+KBO( :, 2,35,14) = (/&
+ & 8.0544E+01_JPRB,8.0496E+01_JPRB,6.0670E+01_JPRB,4.5697E+01_JPRB,3.9737E+01_JPRB,4.0033E+01_JPRB/)  
+KBO( :, 3,35,14) = (/&
+ & 8.1258E+01_JPRB,8.1209E+01_JPRB,6.1112E+01_JPRB,4.4918E+01_JPRB,3.7765E+01_JPRB,3.8111E+01_JPRB/)  
+KBO( :, 4,35,14) = (/&
+ & 8.1537E+01_JPRB,8.1488E+01_JPRB,6.1295E+01_JPRB,4.4118E+01_JPRB,3.5911E+01_JPRB,3.6760E+01_JPRB/)  
+KBO( :, 5,35,14) = (/&
+ & 8.1445E+01_JPRB,8.1397E+01_JPRB,6.1217E+01_JPRB,4.3296E+01_JPRB,3.4131E+01_JPRB,3.5503E+01_JPRB/)  
+KBO( :, 1,36,14) = (/&
+ & 7.8929E+01_JPRB,7.8882E+01_JPRB,5.9746E+01_JPRB,4.6822E+01_JPRB,4.2579E+01_JPRB,4.3271E+01_JPRB/)  
+KBO( :, 2,36,14) = (/&
+ & 8.0271E+01_JPRB,8.0223E+01_JPRB,6.0527E+01_JPRB,4.6026E+01_JPRB,4.0432E+01_JPRB,4.0931E+01_JPRB/)  
+KBO( :, 3,36,14) = (/&
+ & 8.1107E+01_JPRB,8.1058E+01_JPRB,6.1024E+01_JPRB,4.5215E+01_JPRB,3.8381E+01_JPRB,3.9211E+01_JPRB/)  
+KBO( :, 4,36,14) = (/&
+ & 8.1508E+01_JPRB,8.1459E+01_JPRB,6.1272E+01_JPRB,4.4394E+01_JPRB,3.6464E+01_JPRB,3.7915E+01_JPRB/)  
+KBO( :, 5,36,14) = (/&
+ & 8.1479E+01_JPRB,8.1431E+01_JPRB,6.1242E+01_JPRB,4.3542E+01_JPRB,3.4625E+01_JPRB,3.6634E+01_JPRB/)  
+KBO( :, 1,37,14) = (/&
+ & 7.8277E+01_JPRB,7.8230E+01_JPRB,5.9419E+01_JPRB,4.7267E+01_JPRB,4.3580E+01_JPRB,4.4454E+01_JPRB/)  
+KBO( :, 2,37,14) = (/&
+ & 7.9839E+01_JPRB,7.9792E+01_JPRB,6.0300E+01_JPRB,4.6427E+01_JPRB,4.1343E+01_JPRB,4.2071E+01_JPRB/)  
+KBO( :, 3,37,14) = (/&
+ & 8.0875E+01_JPRB,8.0827E+01_JPRB,6.0897E+01_JPRB,4.5598E+01_JPRB,3.9207E+01_JPRB,4.0399E+01_JPRB/)  
+KBO( :, 4,37,14) = (/&
+ & 8.1407E+01_JPRB,8.1359E+01_JPRB,6.1209E+01_JPRB,4.4745E+01_JPRB,3.7210E+01_JPRB,3.9084E+01_JPRB/)  
+KBO( :, 5,37,14) = (/&
+ & 8.1511E+01_JPRB,8.1463E+01_JPRB,6.1267E+01_JPRB,4.3885E+01_JPRB,3.5313E+01_JPRB,3.7757E+01_JPRB/)  
+KBO( :, 1,38,14) = (/&
+ & 7.7604E+01_JPRB,7.7558E+01_JPRB,5.9100E+01_JPRB,4.7673E+01_JPRB,4.4519E+01_JPRB,4.5590E+01_JPRB/)  
+KBO( :, 2,38,14) = (/&
+ & 7.9387E+01_JPRB,7.9340E+01_JPRB,6.0071E+01_JPRB,4.6807E+01_JPRB,4.2192E+01_JPRB,4.3208E+01_JPRB/)  
+KBO( :, 3,38,14) = (/&
+ & 8.0600E+01_JPRB,8.0552E+01_JPRB,6.0751E+01_JPRB,4.5947E+01_JPRB,3.9982E+01_JPRB,4.1623E+01_JPRB/)  
+KBO( :, 4,38,14) = (/&
+ & 8.1297E+01_JPRB,8.1248E+01_JPRB,6.1150E+01_JPRB,4.5081E+01_JPRB,3.7909E+01_JPRB,4.0273E+01_JPRB/)  
+KBO( :, 5,38,14) = (/&
+ & 8.1523E+01_JPRB,8.1474E+01_JPRB,6.1279E+01_JPRB,4.4207E+01_JPRB,3.5960E+01_JPRB,3.8923E+01_JPRB/)  
+KBO( :, 1,39,14) = (/&
+ & 7.6924E+01_JPRB,7.6879E+01_JPRB,5.8785E+01_JPRB,4.8037E+01_JPRB,4.5384E+01_JPRB,4.6696E+01_JPRB/)  
+KBO( :, 2,39,14) = (/&
+ & 7.8919E+01_JPRB,7.8872E+01_JPRB,5.9835E+01_JPRB,4.7151E+01_JPRB,4.2965E+01_JPRB,4.4375E+01_JPRB/)  
+KBO( :, 3,39,14) = (/&
+ & 8.0301E+01_JPRB,8.0253E+01_JPRB,6.0596E+01_JPRB,4.6264E+01_JPRB,4.0694E+01_JPRB,4.2894E+01_JPRB/)  
+KBO( :, 4,39,14) = (/&
+ & 8.1135E+01_JPRB,8.1087E+01_JPRB,6.1060E+01_JPRB,4.5380E+01_JPRB,3.8551E+01_JPRB,4.1533E+01_JPRB/)  
+KBO( :, 5,39,14) = (/&
+ & 8.1498E+01_JPRB,8.1449E+01_JPRB,6.1268E+01_JPRB,4.4494E+01_JPRB,3.6550E+01_JPRB,4.0180E+01_JPRB/)  
+KBO( :, 1,40,14) = (/&
+ & 7.6003E+01_JPRB,7.5957E+01_JPRB,5.8367E+01_JPRB,4.8484E+01_JPRB,4.6448E+01_JPRB,4.7942E+01_JPRB/)  
+KBO( :, 2,40,14) = (/&
+ & 7.8250E+01_JPRB,7.8203E+01_JPRB,5.9505E+01_JPRB,4.7557E+01_JPRB,4.3937E+01_JPRB,4.5516E+01_JPRB/)  
+KBO( :, 3,40,14) = (/&
+ & 7.9849E+01_JPRB,7.9801E+01_JPRB,6.0362E+01_JPRB,4.6641E+01_JPRB,4.1586E+01_JPRB,4.3950E+01_JPRB/)  
+KBO( :, 4,40,14) = (/&
+ & 8.0899E+01_JPRB,8.0851E+01_JPRB,6.0936E+01_JPRB,4.5752E+01_JPRB,3.9370E+01_JPRB,4.2576E+01_JPRB/)  
+KBO( :, 5,40,14) = (/&
+ & 8.1420E+01_JPRB,8.1371E+01_JPRB,6.1226E+01_JPRB,4.4847E+01_JPRB,3.7301E+01_JPRB,4.1187E+01_JPRB/)  
+KBO( :, 1,41,14) = (/&
+ & 7.5005E+01_JPRB,7.4960E+01_JPRB,5.7923E+01_JPRB,4.8919E+01_JPRB,4.7504E+01_JPRB,4.9183E+01_JPRB/)  
+KBO( :, 2,41,14) = (/&
+ & 7.7512E+01_JPRB,7.7466E+01_JPRB,5.9150E+01_JPRB,4.7955E+01_JPRB,4.4905E+01_JPRB,4.6631E+01_JPRB/)  
+KBO( :, 3,41,14) = (/&
+ & 7.9348E+01_JPRB,7.9301E+01_JPRB,6.0108E+01_JPRB,4.7025E+01_JPRB,4.2473E+01_JPRB,4.4967E+01_JPRB/)  
+KBO( :, 4,41,14) = (/&
+ & 8.0591E+01_JPRB,8.0543E+01_JPRB,6.0779E+01_JPRB,4.6109E+01_JPRB,4.0189E+01_JPRB,4.3586E+01_JPRB/)  
+KBO( :, 5,41,14) = (/&
+ & 8.1296E+01_JPRB,8.1247E+01_JPRB,6.1167E+01_JPRB,4.5201E+01_JPRB,3.8056E+01_JPRB,4.2157E+01_JPRB/)  
+KBO( :, 1,42,14) = (/&
+ & 7.3966E+01_JPRB,7.3922E+01_JPRB,5.7469E+01_JPRB,4.9337E+01_JPRB,4.8525E+01_JPRB,5.0393E+01_JPRB/)  
+KBO( :, 2,42,14) = (/&
+ & 7.6721E+01_JPRB,7.6675E+01_JPRB,5.8783E+01_JPRB,4.8336E+01_JPRB,4.5846E+01_JPRB,4.7757E+01_JPRB/)  
+KBO( :, 3,42,14) = (/&
+ & 7.8788E+01_JPRB,7.8741E+01_JPRB,5.9830E+01_JPRB,4.7390E+01_JPRB,4.3338E+01_JPRB,4.6001E+01_JPRB/)  
+KBO( :, 4,42,14) = (/&
+ & 8.0252E+01_JPRB,8.0204E+01_JPRB,6.0610E+01_JPRB,4.6463E+01_JPRB,4.0990E+01_JPRB,4.4619E+01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART33',1,ZHOOK_HANDLE)
+END SUBROUTINE PART33
+
+
+SUBROUTINE PART34
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART34',0,ZHOOK_HANDLE)
+
+
+KBO( :, 5,42,14) = (/&
+ & 8.1117E+01_JPRB,8.1069E+01_JPRB,6.1079E+01_JPRB,4.5535E+01_JPRB,3.8790E+01_JPRB,4.3153E+01_JPRB/)  
+KBO( :, 1,43,14) = (/&
+ & 7.2705E+01_JPRB,7.2662E+01_JPRB,5.6918E+01_JPRB,4.9800E+01_JPRB,4.9669E+01_JPRB,5.1746E+01_JPRB/)  
+KBO( :, 2,43,14) = (/&
+ & 7.5730E+01_JPRB,7.5685E+01_JPRB,5.8326E+01_JPRB,4.8759E+01_JPRB,4.6917E+01_JPRB,4.8987E+01_JPRB/)  
+KBO( :, 3,43,14) = (/&
+ & 7.8083E+01_JPRB,7.8037E+01_JPRB,5.9488E+01_JPRB,4.7800E+01_JPRB,4.4326E+01_JPRB,4.7090E+01_JPRB/)  
+KBO( :, 4,43,14) = (/&
+ & 7.9761E+01_JPRB,7.9714E+01_JPRB,6.0355E+01_JPRB,4.6841E+01_JPRB,4.1904E+01_JPRB,4.5691E+01_JPRB/)  
+KBO( :, 5,43,14) = (/&
+ & 8.0847E+01_JPRB,8.0799E+01_JPRB,6.0937E+01_JPRB,4.5910E+01_JPRB,3.9634E+01_JPRB,4.4206E+01_JPRB/)  
+KBO( :, 1,44,14) = (/&
+ & 7.1287E+01_JPRB,7.1245E+01_JPRB,5.6316E+01_JPRB,5.0292E+01_JPRB,5.0887E+01_JPRB,5.3170E+01_JPRB/)  
+KBO( :, 2,44,14) = (/&
+ & 7.4599E+01_JPRB,7.4555E+01_JPRB,5.7821E+01_JPRB,4.9215E+01_JPRB,4.8047E+01_JPRB,5.0291E+01_JPRB/)  
+KBO( :, 3,44,14) = (/&
+ & 7.7237E+01_JPRB,7.7191E+01_JPRB,5.9077E+01_JPRB,4.8209E+01_JPRB,4.5375E+01_JPRB,4.8245E+01_JPRB/)  
+KBO( :, 4,44,14) = (/&
+ & 7.9186E+01_JPRB,7.9139E+01_JPRB,6.0066E+01_JPRB,4.7254E+01_JPRB,4.2877E+01_JPRB,4.6818E+01_JPRB/)  
+KBO( :, 5,44,14) = (/&
+ & 8.0509E+01_JPRB,8.0461E+01_JPRB,6.0765E+01_JPRB,4.6310E+01_JPRB,4.0533E+01_JPRB,4.5323E+01_JPRB/)  
+KBO( :, 1,45,14) = (/&
+ & 6.9761E+01_JPRB,6.9720E+01_JPRB,5.5680E+01_JPRB,5.0779E+01_JPRB,5.2112E+01_JPRB,5.4609E+01_JPRB/)  
+KBO( :, 2,45,14) = (/&
+ & 7.3387E+01_JPRB,7.3344E+01_JPRB,5.7284E+01_JPRB,4.9658E+01_JPRB,4.9177E+01_JPRB,5.1651E+01_JPRB/)  
+KBO( :, 3,45,14) = (/&
+ & 7.6302E+01_JPRB,7.6257E+01_JPRB,5.8639E+01_JPRB,4.8623E+01_JPRB,4.6419E+01_JPRB,4.9491E+01_JPRB/)  
+KBO( :, 4,45,14) = (/&
+ & 7.8515E+01_JPRB,7.8468E+01_JPRB,5.9732E+01_JPRB,4.7651E+01_JPRB,4.3843E+01_JPRB,4.8016E+01_JPRB/)  
+KBO( :, 5,45,14) = (/&
+ & 8.0070E+01_JPRB,8.0022E+01_JPRB,6.0538E+01_JPRB,4.6688E+01_JPRB,4.1436E+01_JPRB,4.6520E+01_JPRB/)  
+KBO( :, 1,46,14) = (/&
+ & 6.8043E+01_JPRB,6.8003E+01_JPRB,5.4978E+01_JPRB,5.1296E+01_JPRB,5.3415E+01_JPRB,5.6131E+01_JPRB/)  
+KBO( :, 2,46,14) = (/&
+ & 7.2020E+01_JPRB,7.1978E+01_JPRB,5.6693E+01_JPRB,5.0128E+01_JPRB,5.0366E+01_JPRB,5.3081E+01_JPRB/)  
+KBO( :, 3,46,14) = (/&
+ & 7.5220E+01_JPRB,7.5175E+01_JPRB,5.8142E+01_JPRB,4.9054E+01_JPRB,4.7529E+01_JPRB,5.0825E+01_JPRB/)  
+KBO( :, 4,46,14) = (/&
+ & 7.7714E+01_JPRB,7.7668E+01_JPRB,5.9339E+01_JPRB,4.8058E+01_JPRB,4.4874E+01_JPRB,4.9267E+01_JPRB/)  
+KBO( :, 5,46,14) = (/&
+ & 7.9534E+01_JPRB,7.9486E+01_JPRB,6.0264E+01_JPRB,4.7084E+01_JPRB,4.2395E+01_JPRB,4.7792E+01_JPRB/)  
+KBO( :, 1,47,14) = (/&
+ & 6.6054E+01_JPRB,6.6015E+01_JPRB,5.4183E+01_JPRB,5.1903E+01_JPRB,5.4894E+01_JPRB,5.7778E+01_JPRB/)  
+KBO( :, 2,47,14) = (/&
+ & 7.0378E+01_JPRB,7.0336E+01_JPRB,5.5996E+01_JPRB,5.0654E+01_JPRB,5.1707E+01_JPRB,5.4608E+01_JPRB/)  
+KBO( :, 3,47,14) = (/&
+ & 7.3908E+01_JPRB,7.3864E+01_JPRB,5.7556E+01_JPRB,4.9537E+01_JPRB,4.8774E+01_JPRB,5.2210E+01_JPRB/)  
+KBO( :, 4,47,14) = (/&
+ & 7.6726E+01_JPRB,7.6681E+01_JPRB,5.8866E+01_JPRB,4.8503E+01_JPRB,4.6033E+01_JPRB,5.0483E+01_JPRB/)  
+KBO( :, 5,47,14) = (/&
+ & 7.8817E+01_JPRB,7.8770E+01_JPRB,5.9899E+01_JPRB,4.7521E+01_JPRB,4.3467E+01_JPRB,4.9057E+01_JPRB/)  
+KBO( :, 1,48,14) = (/&
+ & 6.3955E+01_JPRB,6.3917E+01_JPRB,5.3354E+01_JPRB,5.2548E+01_JPRB,5.6389E+01_JPRB,5.9437E+01_JPRB/)  
+KBO( :, 2,48,14) = (/&
+ & 6.8594E+01_JPRB,6.8553E+01_JPRB,5.5256E+01_JPRB,5.1194E+01_JPRB,5.3073E+01_JPRB,5.6223E+01_JPRB/)  
+KBO( :, 3,48,14) = (/&
+ & 7.2478E+01_JPRB,7.2435E+01_JPRB,5.6928E+01_JPRB,5.0025E+01_JPRB,5.0034E+01_JPRB,5.3708E+01_JPRB/)  
+KBO( :, 4,48,14) = (/&
+ & 7.5613E+01_JPRB,7.5568E+01_JPRB,5.8350E+01_JPRB,4.8962E+01_JPRB,4.7206E+01_JPRB,5.1823E+01_JPRB/)  
+KBO( :, 5,48,14) = (/&
+ & 7.8004E+01_JPRB,7.7958E+01_JPRB,5.9498E+01_JPRB,4.7959E+01_JPRB,4.4557E+01_JPRB,5.0435E+01_JPRB/)  
+KBO( :, 1,49,14) = (/&
+ & 6.1733E+01_JPRB,6.1696E+01_JPRB,5.2490E+01_JPRB,5.3233E+01_JPRB,5.7911E+01_JPRB,6.1164E+01_JPRB/)  
+KBO( :, 2,49,14) = (/&
+ & 6.6686E+01_JPRB,6.6647E+01_JPRB,5.4483E+01_JPRB,5.1761E+01_JPRB,5.4482E+01_JPRB,5.7948E+01_JPRB/)  
+KBO( :, 3,49,14) = (/&
+ & 7.0933E+01_JPRB,7.0891E+01_JPRB,5.6270E+01_JPRB,5.0531E+01_JPRB,5.1319E+01_JPRB,5.5363E+01_JPRB/)  
+KBO( :, 4,49,14) = (/&
+ & 7.4366E+01_JPRB,7.4322E+01_JPRB,5.7787E+01_JPRB,4.9421E+01_JPRB,4.8403E+01_JPRB,5.3357E+01_JPRB/)  
+KBO( :, 5,49,14) = (/&
+ & 7.7078E+01_JPRB,7.7033E+01_JPRB,5.9049E+01_JPRB,4.8386E+01_JPRB,4.5673E+01_JPRB,5.2019E+01_JPRB/)  
+KBO( :, 1,50,14) = (/&
+ & 5.9556E+01_JPRB,5.9521E+01_JPRB,5.1669E+01_JPRB,5.3919E+01_JPRB,5.9382E+01_JPRB,6.2781E+01_JPRB/)  
+KBO( :, 2,50,14) = (/&
+ & 6.4814E+01_JPRB,6.4775E+01_JPRB,5.3744E+01_JPRB,5.2339E+01_JPRB,5.5844E+01_JPRB,5.9493E+01_JPRB/)  
+KBO( :, 3,50,14) = (/&
+ & 6.9336E+01_JPRB,6.9295E+01_JPRB,5.5596E+01_JPRB,5.1013E+01_JPRB,5.2559E+01_JPRB,5.6778E+01_JPRB/)  
+KBO( :, 4,50,14) = (/&
+ & 7.3091E+01_JPRB,7.3048E+01_JPRB,5.7225E+01_JPRB,4.9862E+01_JPRB,4.9551E+01_JPRB,5.4617E+01_JPRB/)  
+KBO( :, 5,50,14) = (/&
+ & 7.6098E+01_JPRB,7.6053E+01_JPRB,5.8589E+01_JPRB,4.8799E+01_JPRB,4.6739E+01_JPRB,5.3303E+01_JPRB/)  
+KBO( :, 1,51,14) = (/&
+ & 5.7367E+01_JPRB,5.7333E+01_JPRB,5.0871E+01_JPRB,5.4612E+01_JPRB,6.0840E+01_JPRB,6.4373E+01_JPRB/)  
+KBO( :, 2,51,14) = (/&
+ & 6.2885E+01_JPRB,6.2848E+01_JPRB,5.2984E+01_JPRB,5.2932E+01_JPRB,5.7187E+01_JPRB,6.0966E+01_JPRB/)  
+KBO( :, 3,51,14) = (/&
+ & 6.7687E+01_JPRB,6.7647E+01_JPRB,5.4925E+01_JPRB,5.1505E+01_JPRB,5.3793E+01_JPRB,5.8080E+01_JPRB/)  
+KBO( :, 4,51,14) = (/&
+ & 7.1761E+01_JPRB,7.1718E+01_JPRB,5.6647E+01_JPRB,5.0300E+01_JPRB,5.0681E+01_JPRB,5.5789E+01_JPRB/)  
+KBO( :, 5,51,14) = (/&
+ & 7.5046E+01_JPRB,7.5001E+01_JPRB,5.8108E+01_JPRB,4.9204E+01_JPRB,4.7793E+01_JPRB,5.4431E+01_JPRB/)  
+KBO( :, 1,52,14) = (/&
+ & 5.5098E+01_JPRB,5.5065E+01_JPRB,5.0074E+01_JPRB,5.5358E+01_JPRB,6.2317E+01_JPRB,6.6056E+01_JPRB/)  
+KBO( :, 2,52,14) = (/&
+ & 6.0852E+01_JPRB,6.0816E+01_JPRB,5.2195E+01_JPRB,5.3549E+01_JPRB,5.8551E+01_JPRB,6.2483E+01_JPRB/)  
+KBO( :, 3,52,14) = (/&
+ & 6.5953E+01_JPRB,6.5914E+01_JPRB,5.4229E+01_JPRB,5.2028E+01_JPRB,5.5063E+01_JPRB,5.9490E+01_JPRB/)  
+KBO( :, 4,52,14) = (/&
+ & 7.0320E+01_JPRB,7.0278E+01_JPRB,5.6036E+01_JPRB,5.0747E+01_JPRB,5.1835E+01_JPRB,5.7114E+01_JPRB/)  
+KBO( :, 5,52,14) = (/&
+ & 7.3892E+01_JPRB,7.3848E+01_JPRB,5.7595E+01_JPRB,4.9618E+01_JPRB,4.8874E+01_JPRB,5.5672E+01_JPRB/)  
+KBO( :, 1,53,14) = (/&
+ & 5.2721E+01_JPRB,5.2690E+01_JPRB,4.9263E+01_JPRB,5.6120E+01_JPRB,6.3814E+01_JPRB,6.7766E+01_JPRB/)  
+KBO( :, 2,53,14) = (/&
+ & 5.8756E+01_JPRB,5.8721E+01_JPRB,5.1411E+01_JPRB,5.4211E+01_JPRB,5.9956E+01_JPRB,6.4072E+01_JPRB/)  
+KBO( :, 3,53,14) = (/&
+ & 6.4126E+01_JPRB,6.4088E+01_JPRB,5.3502E+01_JPRB,5.2588E+01_JPRB,5.6365E+01_JPRB,6.1039E+01_JPRB/)  
+KBO( :, 4,53,14) = (/&
+ & 6.8738E+01_JPRB,6.8697E+01_JPRB,5.5371E+01_JPRB,5.1205E+01_JPRB,5.3025E+01_JPRB,5.8602E+01_JPRB/)  
+KBO( :, 5,53,14) = (/&
+ & 7.2636E+01_JPRB,7.2593E+01_JPRB,5.7041E+01_JPRB,5.0037E+01_JPRB,4.9973E+01_JPRB,5.7127E+01_JPRB/)  
+KBO( :, 1,54,14) = (/&
+ & 5.0488E+01_JPRB,5.0458E+01_JPRB,4.8529E+01_JPRB,5.6862E+01_JPRB,6.5226E+01_JPRB,6.9287E+01_JPRB/)  
+KBO( :, 2,54,14) = (/&
+ & 5.6752E+01_JPRB,5.6718E+01_JPRB,5.0683E+01_JPRB,5.4841E+01_JPRB,6.1279E+01_JPRB,6.5223E+01_JPRB/)  
+KBO( :, 3,54,14) = (/&
+ & 6.2359E+01_JPRB,6.2322E+01_JPRB,5.2805E+01_JPRB,5.3124E+01_JPRB,5.7582E+01_JPRB,6.2132E+01_JPRB/)  
+KBO( :, 4,54,14) = (/&
+ & 6.7239E+01_JPRB,6.7199E+01_JPRB,5.4766E+01_JPRB,5.1664E+01_JPRB,5.4149E+01_JPRB,5.9478E+01_JPRB/)  
+KBO( :, 5,54,14) = (/&
+ & 7.1401E+01_JPRB,7.1358E+01_JPRB,5.6510E+01_JPRB,5.0433E+01_JPRB,5.0999E+01_JPRB,5.7575E+01_JPRB/)  
+KBO( :, 1,55,14) = (/&
+ & 4.8301E+01_JPRB,4.8272E+01_JPRB,4.7833E+01_JPRB,5.7595E+01_JPRB,6.6585E+01_JPRB,7.0689E+01_JPRB/)  
+KBO( :, 2,55,14) = (/&
+ & 5.4769E+01_JPRB,5.4736E+01_JPRB,4.9988E+01_JPRB,5.5495E+01_JPRB,6.2560E+01_JPRB,6.6385E+01_JPRB/)  
+KBO( :, 3,55,14) = (/&
+ & 6.0573E+01_JPRB,6.0537E+01_JPRB,5.2112E+01_JPRB,5.3664E+01_JPRB,5.8770E+01_JPRB,6.2943E+01_JPRB/)  
+KBO( :, 4,55,14) = (/&
+ & 6.5713E+01_JPRB,6.5674E+01_JPRB,5.4151E+01_JPRB,5.2119E+01_JPRB,5.5258E+01_JPRB,6.0010E+01_JPRB/)  
+KBO( :, 5,55,14) = (/&
+ & 7.0126E+01_JPRB,7.0084E+01_JPRB,5.5970E+01_JPRB,5.0826E+01_JPRB,5.2008E+01_JPRB,5.7678E+01_JPRB/)  
+KBO( :, 1,56,14) = (/&
+ & 4.6079E+01_JPRB,4.6051E+01_JPRB,4.7176E+01_JPRB,5.8356E+01_JPRB,6.7969E+01_JPRB,7.2050E+01_JPRB/)  
+KBO( :, 2,56,14) = (/&
+ & 5.2701E+01_JPRB,5.2670E+01_JPRB,4.9282E+01_JPRB,5.6152E+01_JPRB,6.3857E+01_JPRB,6.7749E+01_JPRB/)  
+KBO( :, 3,56,14) = (/&
+ & 5.8754E+01_JPRB,5.8720E+01_JPRB,5.1436E+01_JPRB,5.4239E+01_JPRB,5.9985E+01_JPRB,6.3792E+01_JPRB/)  
+KBO( :, 4,56,14) = (/&
+ & 6.4130E+01_JPRB,6.4092E+01_JPRB,5.3523E+01_JPRB,5.2605E+01_JPRB,5.6386E+01_JPRB,6.0677E+01_JPRB/)  
+KBO( :, 5,56,14) = (/&
+ & 6.8768E+01_JPRB,6.8727E+01_JPRB,5.5406E+01_JPRB,5.1229E+01_JPRB,5.3042E+01_JPRB,5.8111E+01_JPRB/)  
+KBO( :, 1,57,14) = (/&
+ & 4.3796E+01_JPRB,4.3770E+01_JPRB,4.6545E+01_JPRB,5.9133E+01_JPRB,6.9380E+01_JPRB,7.3404E+01_JPRB/)  
+KBO( :, 2,57,14) = (/&
+ & 5.0589E+01_JPRB,5.0559E+01_JPRB,4.8583E+01_JPRB,5.6850E+01_JPRB,6.5189E+01_JPRB,6.9103E+01_JPRB/)  
+KBO( :, 3,57,14) = (/&
+ & 5.6860E+01_JPRB,5.6826E+01_JPRB,5.0745E+01_JPRB,5.4829E+01_JPRB,6.1234E+01_JPRB,6.4852E+01_JPRB/)  
+KBO( :, 4,57,14) = (/&
+ & 6.2462E+01_JPRB,6.2424E+01_JPRB,5.2862E+01_JPRB,5.3112E+01_JPRB,5.7531E+01_JPRB,6.1451E+01_JPRB/)  
+KBO( :, 5,57,14) = (/&
+ & 6.7340E+01_JPRB,6.7300E+01_JPRB,5.4823E+01_JPRB,5.1656E+01_JPRB,5.4098E+01_JPRB,5.8580E+01_JPRB/)  
+KBO( :, 1,58,14) = (/&
+ & 4.1597E+01_JPRB,4.1573E+01_JPRB,4.5980E+01_JPRB,5.9890E+01_JPRB,7.0733E+01_JPRB,7.4721E+01_JPRB/)  
+KBO( :, 2,58,14) = (/&
+ & 4.8541E+01_JPRB,4.8512E+01_JPRB,4.7924E+01_JPRB,5.7530E+01_JPRB,6.6457E+01_JPRB,7.0297E+01_JPRB/)  
+KBO( :, 3,58,14) = (/&
+ & 5.5001E+01_JPRB,5.4968E+01_JPRB,5.0085E+01_JPRB,5.5434E+01_JPRB,6.2433E+01_JPRB,6.6096E+01_JPRB/)  
+KBO( :, 4,58,14) = (/&
+ & 6.0796E+01_JPRB,6.0760E+01_JPRB,5.2213E+01_JPRB,5.3615E+01_JPRB,5.8644E+01_JPRB,6.2188E+01_JPRB/)  
+KBO( :, 5,58,14) = (/&
+ & 6.5915E+01_JPRB,6.5876E+01_JPRB,5.4248E+01_JPRB,5.2078E+01_JPRB,5.5135E+01_JPRB,5.9028E+01_JPRB/)  
+KBO( :, 1,59,14) = (/&
+ & 4.0694E+01_JPRB,4.0670E+01_JPRB,4.5769E+01_JPRB,6.0220E+01_JPRB,7.1303E+01_JPRB,7.5294E+01_JPRB/)  
+KBO( :, 2,59,14) = (/&
+ & 4.7704E+01_JPRB,4.7676E+01_JPRB,4.7670E+01_JPRB,5.7820E+01_JPRB,6.6989E+01_JPRB,7.0669E+01_JPRB/)  
+KBO( :, 3,59,14) = (/&
+ & 5.4223E+01_JPRB,5.4191E+01_JPRB,4.9817E+01_JPRB,5.5687E+01_JPRB,6.2924E+01_JPRB,6.6331E+01_JPRB/)  
+KBO( :, 4,59,14) = (/&
+ & 6.0110E+01_JPRB,6.0074E+01_JPRB,5.1957E+01_JPRB,5.3831E+01_JPRB,5.9105E+01_JPRB,6.2224E+01_JPRB/)  
+KBO( :, 5,59,14) = (/&
+ & 6.5318E+01_JPRB,6.5279E+01_JPRB,5.4011E+01_JPRB,5.2258E+01_JPRB,5.5565E+01_JPRB,5.8638E+01_JPRB/)  
+KBO( :, 1,13,15) = (/&
+ & 3.6131E+01_JPRB,3.6111E+01_JPRB,2.7504E+01_JPRB,1.8893E+01_JPRB,1.0455E+01_JPRB,8.3589E+00_JPRB/)  
+KBO( :, 2,13,15) = (/&
+ & 3.5587E+01_JPRB,3.5567E+01_JPRB,2.7173E+01_JPRB,1.8796E+01_JPRB,1.0430E+01_JPRB,8.1741E+00_JPRB/)  
+KBO( :, 3,13,15) = (/&
+ & 3.5232E+01_JPRB,3.5212E+01_JPRB,2.6920E+01_JPRB,1.8645E+01_JPRB,1.0345E+01_JPRB,8.4671E+00_JPRB/)  
+KBO( :, 4,13,15) = (/&
+ & 3.5001E+01_JPRB,3.4981E+01_JPRB,2.6729E+01_JPRB,1.8467E+01_JPRB,1.0232E+01_JPRB,9.0834E+00_JPRB/)  
+KBO( :, 5,13,15) = (/&
+ & 3.4785E+01_JPRB,3.4765E+01_JPRB,2.6543E+01_JPRB,1.8302E+01_JPRB,1.0125E+01_JPRB,1.1028E+01_JPRB/)  
+KBO( :, 1,14,15) = (/&
+ & 4.1079E+01_JPRB,4.1055E+01_JPRB,3.1300E+01_JPRB,2.1582E+01_JPRB,1.1853E+01_JPRB,9.3349E+00_JPRB/)  
+KBO( :, 2,14,15) = (/&
+ & 4.0876E+01_JPRB,4.0852E+01_JPRB,3.1181E+01_JPRB,2.1527E+01_JPRB,1.1831E+01_JPRB,9.0870E+00_JPRB/)  
+KBO( :, 3,14,15) = (/&
+ & 4.0794E+01_JPRB,4.0770E+01_JPRB,3.1110E+01_JPRB,2.1447E+01_JPRB,1.1767E+01_JPRB,9.0396E+00_JPRB/)  
+KBO( :, 4,14,15) = (/&
+ & 4.0674E+01_JPRB,4.0650E+01_JPRB,3.1006E+01_JPRB,2.1331E+01_JPRB,1.1685E+01_JPRB,9.1026E+00_JPRB/)  
+KBO( :, 5,14,15) = (/&
+ & 4.0556E+01_JPRB,4.0533E+01_JPRB,3.0850E+01_JPRB,2.1168E+01_JPRB,1.1577E+01_JPRB,9.5160E+00_JPRB/)  
+KBO( :, 1,15,15) = (/&
+ & 4.7326E+01_JPRB,4.7299E+01_JPRB,3.6027E+01_JPRB,2.4785E+01_JPRB,1.3503E+01_JPRB,1.0407E+01_JPRB/)  
+KBO( :, 2,15,15) = (/&
+ & 4.7413E+01_JPRB,4.7386E+01_JPRB,3.6106E+01_JPRB,2.4831E+01_JPRB,1.3509E+01_JPRB,1.0116E+01_JPRB/)  
+KBO( :, 3,15,15) = (/&
+ & 4.7425E+01_JPRB,4.7398E+01_JPRB,3.6101E+01_JPRB,2.4790E+01_JPRB,1.3473E+01_JPRB,9.8259E+00_JPRB/)  
+KBO( :, 4,15,15) = (/&
+ & 4.7432E+01_JPRB,4.7405E+01_JPRB,3.6056E+01_JPRB,2.4680E+01_JPRB,1.3388E+01_JPRB,9.8639E+00_JPRB/)  
+KBO( :, 5,15,15) = (/&
+ & 4.7370E+01_JPRB,4.7342E+01_JPRB,3.5942E+01_JPRB,2.4552E+01_JPRB,1.3257E+01_JPRB,9.8173E+00_JPRB/)  
+KBO( :, 1,16,15) = (/&
+ & 5.4875E+01_JPRB,5.4844E+01_JPRB,4.1702E+01_JPRB,2.8578E+01_JPRB,1.5437E+01_JPRB,1.1664E+01_JPRB/)  
+KBO( :, 2,16,15) = (/&
+ & 5.5032E+01_JPRB,5.5000E+01_JPRB,4.1823E+01_JPRB,2.8656E+01_JPRB,1.5467E+01_JPRB,1.1353E+01_JPRB/)  
+KBO( :, 3,16,15) = (/&
+ & 5.5199E+01_JPRB,5.5167E+01_JPRB,4.1916E+01_JPRB,2.8637E+01_JPRB,1.5432E+01_JPRB,1.1037E+01_JPRB/)  
+KBO( :, 4,16,15) = (/&
+ & 5.5276E+01_JPRB,5.5244E+01_JPRB,4.1910E+01_JPRB,2.8561E+01_JPRB,1.5341E+01_JPRB,1.0976E+01_JPRB/)  
+KBO( :, 5,16,15) = (/&
+ & 5.5278E+01_JPRB,5.5245E+01_JPRB,4.1857E+01_JPRB,2.8461E+01_JPRB,1.5222E+01_JPRB,1.0876E+01_JPRB/)  
+KBO( :, 1,17,15) = (/&
+ & 6.3573E+01_JPRB,6.3536E+01_JPRB,4.8216E+01_JPRB,3.2905E+01_JPRB,1.7651E+01_JPRB,1.3317E+01_JPRB/)  
+KBO( :, 2,17,15) = (/&
+ & 6.3845E+01_JPRB,6.3808E+01_JPRB,4.8400E+01_JPRB,3.2984E+01_JPRB,1.7690E+01_JPRB,1.2970E+01_JPRB/)  
+KBO( :, 3,17,15) = (/&
+ & 6.4023E+01_JPRB,6.3985E+01_JPRB,4.8498E+01_JPRB,3.2989E+01_JPRB,1.7656E+01_JPRB,1.2620E+01_JPRB/)  
+KBO( :, 4,17,15) = (/&
+ & 6.4166E+01_JPRB,6.4129E+01_JPRB,4.8557E+01_JPRB,3.2962E+01_JPRB,1.7567E+01_JPRB,1.2436E+01_JPRB/)  
+KBO( :, 5,17,15) = (/&
+ & 6.4111E+01_JPRB,6.4073E+01_JPRB,4.8467E+01_JPRB,3.2855E+01_JPRB,1.7451E+01_JPRB,1.2281E+01_JPRB/)  
+KBO( :, 1,18,15) = (/&
+ & 7.3440E+01_JPRB,7.3397E+01_JPRB,5.5592E+01_JPRB,3.7776E+01_JPRB,2.0119E+01_JPRB,1.5329E+01_JPRB/)  
+KBO( :, 2,18,15) = (/&
+ & 7.3743E+01_JPRB,7.3700E+01_JPRB,5.5787E+01_JPRB,3.7865E+01_JPRB,2.0169E+01_JPRB,1.4924E+01_JPRB/)  
+KBO( :, 3,18,15) = (/&
+ & 7.3962E+01_JPRB,7.3919E+01_JPRB,5.5904E+01_JPRB,3.7908E+01_JPRB,2.0135E+01_JPRB,1.4518E+01_JPRB/)  
+KBO( :, 4,18,15) = (/&
+ & 7.3953E+01_JPRB,7.3909E+01_JPRB,5.5863E+01_JPRB,3.7855E+01_JPRB,2.0062E+01_JPRB,1.4197E+01_JPRB/)  
+KBO( :, 5,18,15) = (/&
+ & 7.3825E+01_JPRB,7.3781E+01_JPRB,5.5741E+01_JPRB,3.7729E+01_JPRB,1.9926E+01_JPRB,1.3956E+01_JPRB/)  
+KBO( :, 1,19,15) = (/&
+ & 8.4462E+01_JPRB,8.4413E+01_JPRB,6.3820E+01_JPRB,4.3253E+01_JPRB,2.2902E+01_JPRB,1.7600E+01_JPRB/)  
+KBO( :, 2,19,15) = (/&
+ & 8.4860E+01_JPRB,8.4810E+01_JPRB,6.4094E+01_JPRB,4.3382E+01_JPRB,2.2923E+01_JPRB,1.7125E+01_JPRB/)  
+KBO( :, 3,19,15) = (/&
+ & 8.4963E+01_JPRB,8.4913E+01_JPRB,6.4146E+01_JPRB,4.3401E+01_JPRB,2.2894E+01_JPRB,1.6619E+01_JPRB/)  
+KBO( :, 4,19,15) = (/&
+ & 8.4919E+01_JPRB,8.4869E+01_JPRB,6.4089E+01_JPRB,4.3332E+01_JPRB,2.2791E+01_JPRB,1.6133E+01_JPRB/)  
+KBO( :, 5,19,15) = (/&
+ & 8.4612E+01_JPRB,8.4563E+01_JPRB,6.3846E+01_JPRB,4.3142E+01_JPRB,2.2633E+01_JPRB,1.5830E+01_JPRB/)  
+KBO( :, 1,20,15) = (/&
+ & 9.7043E+01_JPRB,9.6986E+01_JPRB,7.3234E+01_JPRB,4.9485E+01_JPRB,2.5962E+01_JPRB,2.0077E+01_JPRB/)  
+KBO( :, 2,20,15) = (/&
+ & 9.7332E+01_JPRB,9.7275E+01_JPRB,7.3444E+01_JPRB,4.9611E+01_JPRB,2.5984E+01_JPRB,1.9505E+01_JPRB/)  
+KBO( :, 3,20,15) = (/&
+ & 9.7370E+01_JPRB,9.7313E+01_JPRB,7.3448E+01_JPRB,4.9583E+01_JPRB,2.5915E+01_JPRB,1.8890E+01_JPRB/)  
+KBO( :, 4,20,15) = (/&
+ & 9.7125E+01_JPRB,9.7068E+01_JPRB,7.3251E+01_JPRB,4.9424E+01_JPRB,2.5774E+01_JPRB,1.8285E+01_JPRB/)  
+KBO( :, 5,20,15) = (/&
+ & 9.6643E+01_JPRB,9.6586E+01_JPRB,7.2853E+01_JPRB,4.9111E+01_JPRB,2.5548E+01_JPRB,1.7915E+01_JPRB/)  
+KBO( :, 1,21,15) = (/&
+ & 1.1092E+02_JPRB,1.1085E+02_JPRB,8.3649E+01_JPRB,5.6418E+01_JPRB,2.9378E+01_JPRB,2.2812E+01_JPRB/)  
+KBO( :, 2,21,15) = (/&
+ & 1.1109E+02_JPRB,1.1103E+02_JPRB,8.3756E+01_JPRB,5.6460E+01_JPRB,2.9344E+01_JPRB,2.2156E+01_JPRB/)  
+KBO( :, 3,21,15) = (/&
+ & 1.1096E+02_JPRB,1.1089E+02_JPRB,8.3624E+01_JPRB,5.6337E+01_JPRB,2.9225E+01_JPRB,2.1484E+01_JPRB/)  
+KBO( :, 4,21,15) = (/&
+ & 1.1048E+02_JPRB,1.1042E+02_JPRB,8.3238E+01_JPRB,5.6034E+01_JPRB,2.9000E+01_JPRB,2.0793E+01_JPRB/)  
+KBO( :, 5,21,15) = (/&
+ & 1.0971E+02_JPRB,1.0964E+02_JPRB,8.2635E+01_JPRB,5.5599E+01_JPRB,2.8723E+01_JPRB,2.0338E+01_JPRB/)  
+KBO( :, 1,22,15) = (/&
+ & 1.2596E+02_JPRB,1.2589E+02_JPRB,9.4893E+01_JPRB,6.3871E+01_JPRB,3.3059E+01_JPRB,2.5998E+01_JPRB/)  
+KBO( :, 2,22,15) = (/&
+ & 1.2587E+02_JPRB,1.2580E+02_JPRB,9.4816E+01_JPRB,6.3793E+01_JPRB,3.2943E+01_JPRB,2.5227E+01_JPRB/)  
+KBO( :, 3,22,15) = (/&
+ & 1.2541E+02_JPRB,1.2533E+02_JPRB,9.4434E+01_JPRB,6.3497E+01_JPRB,3.2730E+01_JPRB,2.4435E+01_JPRB/)  
+KBO( :, 4,22,15) = (/&
+ & 1.2461E+02_JPRB,1.2453E+02_JPRB,9.3802E+01_JPRB,6.3040E+01_JPRB,3.2441E+01_JPRB,2.3619E+01_JPRB/)  
+KBO( :, 5,22,15) = (/&
+ & 1.2345E+02_JPRB,1.2338E+02_JPRB,9.2915E+01_JPRB,6.2412E+01_JPRB,3.2063E+01_JPRB,2.3036E+01_JPRB/)  
+KBO( :, 1,23,15) = (/&
+ & 1.4197E+02_JPRB,1.4188E+02_JPRB,1.0687E+02_JPRB,7.1809E+01_JPRB,3.7052E+01_JPRB,2.9587E+01_JPRB/)  
+KBO( :, 2,23,15) = (/&
+ & 1.4145E+02_JPRB,1.4137E+02_JPRB,1.0646E+02_JPRB,7.1497E+01_JPRB,3.6788E+01_JPRB,2.8648E+01_JPRB/)  
+KBO( :, 3,23,15) = (/&
+ & 1.4055E+02_JPRB,1.4047E+02_JPRB,1.0576E+02_JPRB,7.1003E+01_JPRB,3.6445E+01_JPRB,2.7684E+01_JPRB/)  
+KBO( :, 4,23,15) = (/&
+ & 1.3924E+02_JPRB,1.3916E+02_JPRB,1.0475E+02_JPRB,7.0305E+01_JPRB,3.6030E+01_JPRB,2.6707E+01_JPRB/)  
+KBO( :, 5,23,15) = (/&
+ & 1.3763E+02_JPRB,1.3754E+02_JPRB,1.0352E+02_JPRB,6.9448E+01_JPRB,3.5536E+01_JPRB,2.5941E+01_JPRB/)  
+KBO( :, 1,24,15) = (/&
+ & 1.5875E+02_JPRB,1.5866E+02_JPRB,1.1943E+02_JPRB,8.0138E+01_JPRB,4.1339E+01_JPRB,3.3488E+01_JPRB/)  
+KBO( :, 2,24,15) = (/&
+ & 1.5772E+02_JPRB,1.5762E+02_JPRB,1.1862E+02_JPRB,7.9566E+01_JPRB,4.0871E+01_JPRB,3.2326E+01_JPRB/)  
+KBO( :, 3,24,15) = (/&
+ & 1.5618E+02_JPRB,1.5608E+02_JPRB,1.1744E+02_JPRB,7.8741E+01_JPRB,4.0347E+01_JPRB,3.1135E+01_JPRB/)  
+KBO( :, 4,24,15) = (/&
+ & 1.5432E+02_JPRB,1.5423E+02_JPRB,1.1603E+02_JPRB,7.7772E+01_JPRB,3.9739E+01_JPRB,2.9970E+01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART34',1,ZHOOK_HANDLE)
+END SUBROUTINE PART34
+
+
+SUBROUTINE PART35
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART35',0,ZHOOK_HANDLE)
+
+
+KBO( :, 5,24,15) = (/&
+ & 1.5201E+02_JPRB,1.5192E+02_JPRB,1.1428E+02_JPRB,7.6577E+01_JPRB,3.9078E+01_JPRB,2.8958E+01_JPRB/)  
+KBO( :, 1,25,15) = (/&
+ & 1.7605E+02_JPRB,1.7595E+02_JPRB,1.3237E+02_JPRB,8.8710E+01_JPRB,4.5816E+01_JPRB,3.7592E+01_JPRB/)  
+KBO( :, 2,25,15) = (/&
+ & 1.7422E+02_JPRB,1.7412E+02_JPRB,1.3097E+02_JPRB,8.7758E+01_JPRB,4.5131E+01_JPRB,3.6159E+01_JPRB/)  
+KBO( :, 3,25,15) = (/&
+ & 1.7201E+02_JPRB,1.7191E+02_JPRB,1.2929E+02_JPRB,8.6602E+01_JPRB,4.4346E+01_JPRB,3.4734E+01_JPRB/)  
+KBO( :, 4,25,15) = (/&
+ & 1.6938E+02_JPRB,1.6928E+02_JPRB,1.2730E+02_JPRB,8.5245E+01_JPRB,4.3518E+01_JPRB,3.3295E+01_JPRB/)  
+KBO( :, 5,25,15) = (/&
+ & 1.6630E+02_JPRB,1.6620E+02_JPRB,1.2498E+02_JPRB,8.3665E+01_JPRB,4.2629E+01_JPRB,3.2020E+01_JPRB/)  
+KBO( :, 1,26,15) = (/&
+ & 1.9312E+02_JPRB,1.9300E+02_JPRB,1.4513E+02_JPRB,9.7167E+01_JPRB,5.0350E+01_JPRB,4.1741E+01_JPRB/)  
+KBO( :, 2,26,15) = (/&
+ & 1.9055E+02_JPRB,1.9044E+02_JPRB,1.4319E+02_JPRB,9.5848E+01_JPRB,4.9379E+01_JPRB,3.9996E+01_JPRB/)  
+KBO( :, 3,26,15) = (/&
+ & 1.8750E+02_JPRB,1.8738E+02_JPRB,1.4088E+02_JPRB,9.4283E+01_JPRB,4.8328E+01_JPRB,3.8277E+01_JPRB/)  
+KBO( :, 4,26,15) = (/&
+ & 1.8390E+02_JPRB,1.8379E+02_JPRB,1.3817E+02_JPRB,9.2456E+01_JPRB,4.7225E+01_JPRB,3.6567E+01_JPRB/)  
+KBO( :, 5,26,15) = (/&
+ & 1.8004E+02_JPRB,1.7993E+02_JPRB,1.3525E+02_JPRB,9.0479E+01_JPRB,4.6075E+01_JPRB,3.5023E+01_JPRB/)  
+KBO( :, 1,27,15) = (/&
+ & 2.0962E+02_JPRB,2.0950E+02_JPRB,1.5747E+02_JPRB,1.0535E+02_JPRB,5.4802E+01_JPRB,4.5812E+01_JPRB/)  
+KBO( :, 2,27,15) = (/&
+ & 2.0617E+02_JPRB,2.0605E+02_JPRB,1.5487E+02_JPRB,1.0359E+02_JPRB,5.3500E+01_JPRB,4.3722E+01_JPRB/)  
+KBO( :, 3,27,15) = (/&
+ & 2.0210E+02_JPRB,2.0198E+02_JPRB,1.5180E+02_JPRB,1.0153E+02_JPRB,5.2160E+01_JPRB,4.1668E+01_JPRB/)  
+KBO( :, 4,27,15) = (/&
+ & 1.9765E+02_JPRB,1.9753E+02_JPRB,1.4844E+02_JPRB,9.9264E+01_JPRB,5.0764E+01_JPRB,3.9657E+01_JPRB/)  
+KBO( :, 5,27,15) = (/&
+ & 1.9285E+02_JPRB,1.9273E+02_JPRB,1.4483E+02_JPRB,9.6837E+01_JPRB,4.9332E+01_JPRB,3.7870E+01_JPRB/)  
+KBO( :, 1,28,15) = (/&
+ & 2.2504E+02_JPRB,2.2491E+02_JPRB,1.6900E+02_JPRB,1.1299E+02_JPRB,5.9023E+01_JPRB,4.9671E+01_JPRB/)  
+KBO( :, 2,28,15) = (/&
+ & 2.2060E+02_JPRB,2.2047E+02_JPRB,1.6566E+02_JPRB,1.1075E+02_JPRB,5.7389E+01_JPRB,4.7215E+01_JPRB/)  
+KBO( :, 3,28,15) = (/&
+ & 2.1560E+02_JPRB,2.1547E+02_JPRB,1.6190E+02_JPRB,1.0822E+02_JPRB,5.5706E+01_JPRB,4.4816E+01_JPRB/)  
+KBO( :, 4,28,15) = (/&
+ & 2.1015E+02_JPRB,2.1002E+02_JPRB,1.5779E+02_JPRB,1.0547E+02_JPRB,5.4003E+01_JPRB,4.2483E+01_JPRB/)  
+KBO( :, 5,28,15) = (/&
+ & 2.0436E+02_JPRB,2.0424E+02_JPRB,1.5344E+02_JPRB,1.0255E+02_JPRB,5.2316E+01_JPRB,4.0478E+01_JPRB/)  
+KBO( :, 1,29,15) = (/&
+ & 2.3909E+02_JPRB,2.3895E+02_JPRB,1.7950E+02_JPRB,1.1994E+02_JPRB,6.2884E+01_JPRB,5.3166E+01_JPRB/)  
+KBO( :, 2,29,15) = (/&
+ & 2.3356E+02_JPRB,2.3342E+02_JPRB,1.7535E+02_JPRB,1.1717E+02_JPRB,6.0903E+01_JPRB,5.0319E+01_JPRB/)  
+KBO( :, 3,29,15) = (/&
+ & 2.2760E+02_JPRB,2.2747E+02_JPRB,1.7088E+02_JPRB,1.1417E+02_JPRB,5.8870E+01_JPRB,4.7588E+01_JPRB/)  
+KBO( :, 4,29,15) = (/&
+ & 2.2117E+02_JPRB,2.2104E+02_JPRB,1.6604E+02_JPRB,1.1094E+02_JPRB,5.6871E+01_JPRB,4.4984E+01_JPRB/)  
+KBO( :, 5,29,15) = (/&
+ & 2.1449E+02_JPRB,2.1436E+02_JPRB,1.6102E+02_JPRB,1.0757E+02_JPRB,5.4912E+01_JPRB,4.2890E+01_JPRB/)  
+KBO( :, 1,30,15) = (/&
+ & 2.5146E+02_JPRB,2.5131E+02_JPRB,1.8876E+02_JPRB,1.2608E+02_JPRB,6.6304E+01_JPRB,5.6220E+01_JPRB/)  
+KBO( :, 2,30,15) = (/&
+ & 2.4482E+02_JPRB,2.4467E+02_JPRB,1.8377E+02_JPRB,1.2275E+02_JPRB,6.3959E+01_JPRB,5.3007E+01_JPRB/)  
+KBO( :, 3,30,15) = (/&
+ & 2.3792E+02_JPRB,2.3777E+02_JPRB,1.7859E+02_JPRB,1.1929E+02_JPRB,6.1625E+01_JPRB,4.9952E+01_JPRB/)  
+KBO( :, 4,30,15) = (/&
+ & 2.3061E+02_JPRB,2.3047E+02_JPRB,1.7311E+02_JPRB,1.1562E+02_JPRB,5.9353E+01_JPRB,4.7238E+01_JPRB/)  
+KBO( :, 5,30,15) = (/&
+ & 2.2308E+02_JPRB,2.2295E+02_JPRB,1.6746E+02_JPRB,1.1184E+02_JPRB,5.7116E+01_JPRB,4.4978E+01_JPRB/)  
+KBO( :, 1,31,15) = (/&
+ & 2.6202E+02_JPRB,2.6186E+02_JPRB,1.9666E+02_JPRB,1.3132E+02_JPRB,6.9199E+01_JPRB,5.8789E+01_JPRB/)  
+KBO( :, 2,31,15) = (/&
+ & 2.5437E+02_JPRB,2.5422E+02_JPRB,1.9092E+02_JPRB,1.2749E+02_JPRB,6.6513E+01_JPRB,5.5233E+01_JPRB/)  
+KBO( :, 3,31,15) = (/&
+ & 2.4648E+02_JPRB,2.4634E+02_JPRB,1.8501E+02_JPRB,1.2354E+02_JPRB,6.3925E+01_JPRB,5.1946E+01_JPRB/)  
+KBO( :, 4,31,15) = (/&
+ & 2.3838E+02_JPRB,2.3824E+02_JPRB,1.7892E+02_JPRB,1.1948E+02_JPRB,6.1400E+01_JPRB,4.9329E+01_JPRB/)  
+KBO( :, 5,31,15) = (/&
+ & 2.3010E+02_JPRB,2.2996E+02_JPRB,1.7271E+02_JPRB,1.1532E+02_JPRB,5.8925E+01_JPRB,4.6712E+01_JPRB/)  
+KBO( :, 1,32,15) = (/&
+ & 2.7074E+02_JPRB,2.7057E+02_JPRB,2.0319E+02_JPRB,1.3565E+02_JPRB,7.1571E+01_JPRB,6.0821E+01_JPRB/)  
+KBO( :, 2,32,15) = (/&
+ & 2.6218E+02_JPRB,2.6203E+02_JPRB,1.9677E+02_JPRB,1.3137E+02_JPRB,6.8590E+01_JPRB,5.6967E+01_JPRB/)  
+KBO( :, 3,32,15) = (/&
+ & 2.5343E+02_JPRB,2.5328E+02_JPRB,1.9020E+02_JPRB,1.2698E+02_JPRB,6.5765E+01_JPRB,5.3801E+01_JPRB/)  
+KBO( :, 4,32,15) = (/&
+ & 2.4457E+02_JPRB,2.4443E+02_JPRB,1.8356E+02_JPRB,1.2255E+02_JPRB,6.3014E+01_JPRB,5.0945E+01_JPRB/)  
+KBO( :, 5,32,15) = (/&
+ & 2.3559E+02_JPRB,2.3545E+02_JPRB,1.7681E+02_JPRB,1.1805E+02_JPRB,6.0339E+01_JPRB,4.8062E+01_JPRB/)  
+KBO( :, 1,33,15) = (/&
+ & 2.7764E+02_JPRB,2.7748E+02_JPRB,2.0836E+02_JPRB,1.3907E+02_JPRB,7.3436E+01_JPRB,6.2345E+01_JPRB/)  
+KBO( :, 2,33,15) = (/&
+ & 2.6829E+02_JPRB,2.6813E+02_JPRB,2.0135E+02_JPRB,1.3440E+02_JPRB,7.0216E+01_JPRB,5.8526E+01_JPRB/)  
+KBO( :, 3,33,15) = (/&
+ & 2.5890E+02_JPRB,2.5874E+02_JPRB,1.9430E+02_JPRB,1.2970E+02_JPRB,6.7179E+01_JPRB,5.5377E+01_JPRB/)  
+KBO( :, 4,33,15) = (/&
+ & 2.4933E+02_JPRB,2.4918E+02_JPRB,1.8712E+02_JPRB,1.2490E+02_JPRB,6.4220E+01_JPRB,5.2156E+01_JPRB/)  
+KBO( :, 5,33,15) = (/&
+ & 2.3975E+02_JPRB,2.3960E+02_JPRB,1.7993E+02_JPRB,1.2011E+02_JPRB,6.1401E+01_JPRB,4.9280E+01_JPRB/)  
+KBO( :, 1,34,15) = (/&
+ & 2.8330E+02_JPRB,2.8313E+02_JPRB,2.1259E+02_JPRB,1.4188E+02_JPRB,7.4943E+01_JPRB,6.3611E+01_JPRB/)  
+KBO( :, 2,34,15) = (/&
+ & 2.7328E+02_JPRB,2.7312E+02_JPRB,2.0508E+02_JPRB,1.3687E+02_JPRB,7.1539E+01_JPRB,6.0040E+01_JPRB/)  
+KBO( :, 3,34,15) = (/&
+ & 2.6322E+02_JPRB,2.6306E+02_JPRB,1.9753E+02_JPRB,1.3184E+02_JPRB,6.8302E+01_JPRB,5.6531E+01_JPRB/)  
+KBO( :, 4,34,15) = (/&
+ & 2.5315E+02_JPRB,2.5300E+02_JPRB,1.8997E+02_JPRB,1.2680E+02_JPRB,6.5194E+01_JPRB,5.3134E+01_JPRB/)  
+KBO( :, 5,34,15) = (/&
+ & 2.4305E+02_JPRB,2.4290E+02_JPRB,1.8239E+02_JPRB,1.2174E+02_JPRB,6.2238E+01_JPRB,5.0964E+01_JPRB/)  
+KBO( :, 1,35,15) = (/&
+ & 2.8856E+02_JPRB,2.8838E+02_JPRB,2.1653E+02_JPRB,1.4450E+02_JPRB,7.6402E+01_JPRB,6.5174E+01_JPRB/)  
+KBO( :, 2,35,15) = (/&
+ & 2.7804E+02_JPRB,2.7787E+02_JPRB,2.0864E+02_JPRB,1.3924E+02_JPRB,7.2828E+01_JPRB,6.1468E+01_JPRB/)  
+KBO( :, 3,35,15) = (/&
+ & 2.6749E+02_JPRB,2.6733E+02_JPRB,2.0072E+02_JPRB,1.3396E+02_JPRB,6.9428E+01_JPRB,5.7687E+01_JPRB/)  
+KBO( :, 4,35,15) = (/&
+ & 2.5691E+02_JPRB,2.5675E+02_JPRB,1.9278E+02_JPRB,1.2866E+02_JPRB,6.6172E+01_JPRB,5.4537E+01_JPRB/)  
+KBO( :, 5,35,15) = (/&
+ & 2.4636E+02_JPRB,2.4621E+02_JPRB,1.8487E+02_JPRB,1.2339E+02_JPRB,6.3093E+01_JPRB,5.3102E+01_JPRB/)  
+KBO( :, 1,36,15) = (/&
+ & 2.9394E+02_JPRB,2.9376E+02_JPRB,2.2055E+02_JPRB,1.4717E+02_JPRB,7.7976E+01_JPRB,6.6997E+01_JPRB/)  
+KBO( :, 2,36,15) = (/&
+ & 2.8294E+02_JPRB,2.8277E+02_JPRB,2.1230E+02_JPRB,1.4167E+02_JPRB,7.4208E+01_JPRB,6.2977E+01_JPRB/)  
+KBO( :, 3,36,15) = (/&
+ & 2.7194E+02_JPRB,2.7178E+02_JPRB,2.0405E+02_JPRB,1.3617E+02_JPRB,7.0657E+01_JPRB,5.9032E+01_JPRB/)  
+KBO( :, 4,36,15) = (/&
+ & 2.6092E+02_JPRB,2.6077E+02_JPRB,1.9579E+02_JPRB,1.3066E+02_JPRB,6.7258E+01_JPRB,5.6406E+01_JPRB/)  
+KBO( :, 5,36,15) = (/&
+ & 2.5003E+02_JPRB,2.4988E+02_JPRB,1.8762E+02_JPRB,1.2521E+02_JPRB,6.4068E+01_JPRB,5.5624E+01_JPRB/)  
+KBO( :, 1,37,15) = (/&
+ & 3.0017E+02_JPRB,2.9999E+02_JPRB,2.2523E+02_JPRB,1.5028E+02_JPRB,7.9918E+01_JPRB,6.9171E+01_JPRB/)  
+KBO( :, 2,37,15) = (/&
+ & 2.8870E+02_JPRB,2.8853E+02_JPRB,2.1662E+02_JPRB,1.4454E+02_JPRB,7.5932E+01_JPRB,6.4872E+01_JPRB/)  
+KBO( :, 3,37,15) = (/&
+ & 2.7736E+02_JPRB,2.7719E+02_JPRB,2.0811E+02_JPRB,1.3887E+02_JPRB,7.2229E+01_JPRB,6.0792E+01_JPRB/)  
+KBO( :, 4,37,15) = (/&
+ & 2.6599E+02_JPRB,2.6584E+02_JPRB,1.9958E+02_JPRB,1.3319E+02_JPRB,6.8687E+01_JPRB,5.8518E+01_JPRB/)  
+KBO( :, 5,37,15) = (/&
+ & 2.5476E+02_JPRB,2.5461E+02_JPRB,1.9116E+02_JPRB,1.2757E+02_JPRB,6.5367E+01_JPRB,5.8059E+01_JPRB/)  
+KBO( :, 1,38,15) = (/&
+ & 3.0587E+02_JPRB,3.0569E+02_JPRB,2.2949E+02_JPRB,1.5312E+02_JPRB,8.1725E+01_JPRB,7.1248E+01_JPRB/)  
+KBO( :, 2,38,15) = (/&
+ & 2.9408E+02_JPRB,2.9390E+02_JPRB,2.2065E+02_JPRB,1.4722E+02_JPRB,7.7560E+01_JPRB,6.6691E+01_JPRB/)  
+KBO( :, 3,38,15) = (/&
+ & 2.8234E+02_JPRB,2.8218E+02_JPRB,2.1184E+02_JPRB,1.4135E+02_JPRB,7.3693E+01_JPRB,6.2607E+01_JPRB/)  
+KBO( :, 4,38,15) = (/&
+ & 2.7064E+02_JPRB,2.7048E+02_JPRB,2.0306E+02_JPRB,1.3550E+02_JPRB,7.0023E+01_JPRB,6.0914E+01_JPRB/)  
+KBO( :, 5,38,15) = (/&
+ & 2.5911E+02_JPRB,2.5896E+02_JPRB,1.9442E+02_JPRB,1.2974E+02_JPRB,6.6580E+01_JPRB,6.0840E+01_JPRB/)  
+KBO( :, 1,39,15) = (/&
+ & 3.1101E+02_JPRB,3.1082E+02_JPRB,2.3334E+02_JPRB,1.5567E+02_JPRB,8.3378E+01_JPRB,7.3218E+01_JPRB/)  
+KBO( :, 2,39,15) = (/&
+ & 2.9887E+02_JPRB,2.9869E+02_JPRB,2.2423E+02_JPRB,1.4960E+02_JPRB,7.9045E+01_JPRB,6.8519E+01_JPRB/)  
+KBO( :, 3,39,15) = (/&
+ & 2.8683E+02_JPRB,2.8666E+02_JPRB,2.1520E+02_JPRB,1.4359E+02_JPRB,7.5024E+01_JPRB,6.4735E+01_JPRB/)  
+KBO( :, 4,39,15) = (/&
+ & 2.7487E+02_JPRB,2.7471E+02_JPRB,2.0623E+02_JPRB,1.3761E+02_JPRB,7.1242E+01_JPRB,6.3858E+01_JPRB/)  
+KBO( :, 5,39,15) = (/&
+ & 2.6303E+02_JPRB,2.6287E+02_JPRB,1.9735E+02_JPRB,1.3169E+02_JPRB,6.7680E+01_JPRB,6.4377E+01_JPRB/)  
+KBO( :, 1,40,15) = (/&
+ & 3.1694E+02_JPRB,3.1675E+02_JPRB,2.3777E+02_JPRB,1.5862E+02_JPRB,8.5396E+01_JPRB,7.5421E+01_JPRB/)  
+KBO( :, 2,40,15) = (/&
+ & 3.0448E+02_JPRB,3.0430E+02_JPRB,2.2843E+02_JPRB,1.5240E+02_JPRB,8.0839E+01_JPRB,7.0612E+01_JPRB/)  
+KBO( :, 3,40,15) = (/&
+ & 2.9221E+02_JPRB,2.9204E+02_JPRB,2.1923E+02_JPRB,1.4627E+02_JPRB,7.6677E+01_JPRB,6.6660E+01_JPRB/)  
+KBO( :, 4,40,15) = (/&
+ & 2.8000E+02_JPRB,2.7983E+02_JPRB,2.1007E+02_JPRB,1.4017E+02_JPRB,7.2757E+01_JPRB,6.5710E+01_JPRB/)  
+KBO( :, 5,40,15) = (/&
+ & 2.6789E+02_JPRB,2.6773E+02_JPRB,2.0099E+02_JPRB,1.3412E+02_JPRB,6.9075E+01_JPRB,6.6414E+01_JPRB/)  
+KBO( :, 1,41,15) = (/&
+ & 3.2263E+02_JPRB,3.2244E+02_JPRB,2.4204E+02_JPRB,1.6146E+02_JPRB,8.7409E+01_JPRB,7.7606E+01_JPRB/)  
+KBO( :, 2,41,15) = (/&
+ & 3.0995E+02_JPRB,3.0976E+02_JPRB,2.3253E+02_JPRB,1.5513E+02_JPRB,8.2644E+01_JPRB,7.2713E+01_JPRB/)  
+KBO( :, 3,41,15) = (/&
+ & 2.9738E+02_JPRB,2.9720E+02_JPRB,2.2311E+02_JPRB,1.4885E+02_JPRB,7.8306E+01_JPRB,6.8571E+01_JPRB/)  
+KBO( :, 4,41,15) = (/&
+ & 2.8499E+02_JPRB,2.8482E+02_JPRB,2.1382E+02_JPRB,1.4266E+02_JPRB,7.4270E+01_JPRB,6.7462E+01_JPRB/)  
+KBO( :, 5,41,15) = (/&
+ & 2.7266E+02_JPRB,2.7250E+02_JPRB,2.0456E+02_JPRB,1.3649E+02_JPRB,7.0464E+01_JPRB,6.8326E+01_JPRB/)  
+KBO( :, 1,42,15) = (/&
+ & 3.2806E+02_JPRB,3.2786E+02_JPRB,2.4610E+02_JPRB,1.6416E+02_JPRB,8.9382E+01_JPRB,7.9783E+01_JPRB/)  
+KBO( :, 2,42,15) = (/&
+ & 3.1513E+02_JPRB,3.1494E+02_JPRB,2.3641E+02_JPRB,1.5771E+02_JPRB,8.4411E+01_JPRB,7.4828E+01_JPRB/)  
+KBO( :, 3,42,15) = (/&
+ & 3.0236E+02_JPRB,3.0217E+02_JPRB,2.2683E+02_JPRB,1.5133E+02_JPRB,7.9899E+01_JPRB,7.0566E+01_JPRB/)  
+KBO( :, 4,42,15) = (/&
+ & 2.8974E+02_JPRB,2.8956E+02_JPRB,2.1737E+02_JPRB,1.4502E+02_JPRB,7.5728E+01_JPRB,6.9377E+01_JPRB/)  
+KBO( :, 5,42,15) = (/&
+ & 2.7725E+02_JPRB,2.7708E+02_JPRB,2.0800E+02_JPRB,1.3878E+02_JPRB,7.1813E+01_JPRB,7.0507E+01_JPRB/)  
+KBO( :, 1,43,15) = (/&
+ & 3.3393E+02_JPRB,3.3373E+02_JPRB,2.5050E+02_JPRB,1.6709E+02_JPRB,9.1659E+01_JPRB,8.2181E+01_JPRB/)  
+KBO( :, 2,43,15) = (/&
+ & 3.2087E+02_JPRB,3.2068E+02_JPRB,2.4071E+02_JPRB,1.6058E+02_JPRB,8.6435E+01_JPRB,7.7203E+01_JPRB/)  
+KBO( :, 3,43,15) = (/&
+ & 3.0784E+02_JPRB,3.0766E+02_JPRB,2.3094E+02_JPRB,1.5407E+02_JPRB,8.1705E+01_JPRB,7.2734E+01_JPRB/)  
+KBO( :, 4,43,15) = (/&
+ & 2.9498E+02_JPRB,2.9480E+02_JPRB,2.2130E+02_JPRB,1.4764E+02_JPRB,7.7383E+01_JPRB,7.1244E+01_JPRB/)  
+KBO( :, 5,43,15) = (/&
+ & 2.8236E+02_JPRB,2.8219E+02_JPRB,2.1184E+02_JPRB,1.4134E+02_JPRB,7.3355E+01_JPRB,7.2525E+01_JPRB/)  
+KBO( :, 1,44,15) = (/&
+ & 3.3993E+02_JPRB,3.3973E+02_JPRB,2.5500E+02_JPRB,1.7009E+02_JPRB,9.4079E+01_JPRB,8.4777E+01_JPRB/)  
+KBO( :, 2,44,15) = (/&
+ & 3.2668E+02_JPRB,3.2648E+02_JPRB,2.4506E+02_JPRB,1.6347E+02_JPRB,8.8568E+01_JPRB,7.9722E+01_JPRB/)  
+KBO( :, 3,44,15) = (/&
+ & 3.1350E+02_JPRB,3.1331E+02_JPRB,2.3519E+02_JPRB,1.5690E+02_JPRB,8.3629E+01_JPRB,7.5073E+01_JPRB/)  
+KBO( :, 4,44,15) = (/&
+ & 3.0048E+02_JPRB,3.0030E+02_JPRB,2.2542E+02_JPRB,1.5039E+02_JPRB,7.9147E+01_JPRB,7.3210E+01_JPRB/)  
+KBO( :, 5,44,15) = (/&
+ & 2.8768E+02_JPRB,2.8750E+02_JPRB,2.1582E+02_JPRB,1.4399E+02_JPRB,7.4989E+01_JPRB,7.4615E+01_JPRB/)  
+KBO( :, 1,45,15) = (/&
+ & 3.4570E+02_JPRB,3.4549E+02_JPRB,2.5932E+02_JPRB,1.7296E+02_JPRB,9.6495E+01_JPRB,8.7516E+01_JPRB/)  
+KBO( :, 2,45,15) = (/&
+ & 3.3235E+02_JPRB,3.3215E+02_JPRB,2.4931E+02_JPRB,1.6630E+02_JPRB,9.0736E+01_JPRB,8.2360E+01_JPRB/)  
+KBO( :, 3,45,15) = (/&
+ & 3.1903E+02_JPRB,3.1884E+02_JPRB,2.3933E+02_JPRB,1.5965E+02_JPRB,8.5580E+01_JPRB,7.7592E+01_JPRB/)  
+KBO( :, 4,45,15) = (/&
+ & 3.0583E+02_JPRB,3.0564E+02_JPRB,2.2943E+02_JPRB,1.5306E+02_JPRB,8.0904E+01_JPRB,7.5512E+01_JPRB/)  
+KBO( :, 5,45,15) = (/&
+ & 2.9285E+02_JPRB,2.9267E+02_JPRB,2.1969E+02_JPRB,1.4657E+02_JPRB,7.6606E+01_JPRB,7.7136E+01_JPRB/)  
+KBO( :, 1,46,15) = (/&
+ & 3.5162E+02_JPRB,3.5141E+02_JPRB,2.6376E+02_JPRB,1.7592E+02_JPRB,9.9116E+01_JPRB,9.0486E+01_JPRB/)  
+KBO( :, 2,46,15) = (/&
+ & 3.3821E+02_JPRB,3.3800E+02_JPRB,2.5370E+02_JPRB,1.6922E+02_JPRB,9.3089E+01_JPRB,8.5193E+01_JPRB/)  
+KBO( :, 3,46,15) = (/&
+ & 3.2475E+02_JPRB,3.2455E+02_JPRB,2.4361E+02_JPRB,1.6250E+02_JPRB,8.7670E+01_JPRB,8.0271E+01_JPRB/)  
+KBO( :, 4,46,15) = (/&
+ & 3.1144E+02_JPRB,3.1126E+02_JPRB,2.3364E+02_JPRB,1.5586E+02_JPRB,8.2789E+01_JPRB,7.7967E+01_JPRB/)  
+KBO( :, 5,46,15) = (/&
+ & 2.9826E+02_JPRB,2.9808E+02_JPRB,2.2376E+02_JPRB,1.4928E+02_JPRB,7.8339E+01_JPRB,7.9667E+01_JPRB/)  
+KBO( :, 1,47,15) = (/&
+ & 3.5795E+02_JPRB,3.5773E+02_JPRB,2.6850E+02_JPRB,1.7907E+02_JPRB,1.0208E+02_JPRB,9.3825E+01_JPRB/)  
+KBO( :, 2,47,15) = (/&
+ & 3.4453E+02_JPRB,3.4432E+02_JPRB,2.5844E+02_JPRB,1.7237E+02_JPRB,9.5731E+01_JPRB,8.8246E+01_JPRB/)  
+KBO( :, 3,47,15) = (/&
+ & 3.3096E+02_JPRB,3.3076E+02_JPRB,2.4827E+02_JPRB,1.6560E+02_JPRB,9.0023E+01_JPRB,8.3072E+01_JPRB/)  
+KBO( :, 4,47,15) = (/&
+ & 3.1751E+02_JPRB,3.1732E+02_JPRB,2.3819E+02_JPRB,1.5889E+02_JPRB,8.4913E+01_JPRB,8.0301E+01_JPRB/)  
+KBO( :, 5,47,15) = (/&
+ & 3.0419E+02_JPRB,3.0401E+02_JPRB,2.2820E+02_JPRB,1.5224E+02_JPRB,8.0275E+01_JPRB,8.1585E+01_JPRB/)  
+KBO( :, 1,48,15) = (/&
+ & 3.6405E+02_JPRB,3.6383E+02_JPRB,2.7307E+02_JPRB,1.8212E+02_JPRB,1.0516E+02_JPRB,9.7509E+01_JPRB/)  
+KBO( :, 2,48,15) = (/&
+ & 3.5068E+02_JPRB,3.5047E+02_JPRB,2.6305E+02_JPRB,1.7544E+02_JPRB,9.8444E+01_JPRB,9.1443E+01_JPRB/)  
+KBO( :, 3,48,15) = (/&
+ & 3.3709E+02_JPRB,3.3688E+02_JPRB,2.5286E+02_JPRB,1.6866E+02_JPRB,9.2465E+01_JPRB,8.6144E+01_JPRB/)  
+KBO( :, 4,48,15) = (/&
+ & 3.2352E+02_JPRB,3.2332E+02_JPRB,2.4269E+02_JPRB,1.6188E+02_JPRB,8.7099E+01_JPRB,8.3145E+01_JPRB/)  
+KBO( :, 5,48,15) = (/&
+ & 3.1006E+02_JPRB,3.0987E+02_JPRB,2.3260E+02_JPRB,1.5516E+02_JPRB,8.2249E+01_JPRB,8.4244E+01_JPRB/)  
+KBO( :, 1,49,15) = (/&
+ & 3.7003E+02_JPRB,3.6981E+02_JPRB,2.7756E+02_JPRB,1.8510E+02_JPRB,1.0838E+02_JPRB,1.0148E+02_JPRB/)  
+KBO( :, 2,49,15) = (/&
+ & 3.5675E+02_JPRB,3.5654E+02_JPRB,2.6761E+02_JPRB,1.7847E+02_JPRB,1.0127E+02_JPRB,9.4886E+01_JPRB/)  
+KBO( :, 3,49,15) = (/&
+ & 3.4318E+02_JPRB,3.4298E+02_JPRB,2.5743E+02_JPRB,1.7170E+02_JPRB,9.5003E+01_JPRB,8.9591E+01_JPRB/)  
+KBO( :, 4,49,15) = (/&
+ & 3.2947E+02_JPRB,3.2927E+02_JPRB,2.4715E+02_JPRB,1.6485E+02_JPRB,8.9342E+01_JPRB,8.6726E+01_JPRB/)  
+KBO( :, 5,49,15) = (/&
+ & 3.1591E+02_JPRB,3.1572E+02_JPRB,2.3699E+02_JPRB,1.5809E+02_JPRB,8.4278E+01_JPRB,8.8051E+01_JPRB/)  
+KBO( :, 1,50,15) = (/&
+ & 3.7556E+02_JPRB,3.7534E+02_JPRB,2.8170E+02_JPRB,1.8786E+02_JPRB,1.1154E+02_JPRB,1.0526E+02_JPRB/)  
+KBO( :, 2,50,15) = (/&
+ & 3.6235E+02_JPRB,3.6213E+02_JPRB,2.7180E+02_JPRB,1.8127E+02_JPRB,1.0404E+02_JPRB,9.7933E+01_JPRB/)  
+KBO( :, 3,50,15) = (/&
+ & 3.4884E+02_JPRB,3.4863E+02_JPRB,2.6167E+02_JPRB,1.7452E+02_JPRB,9.7449E+01_JPRB,9.2614E+01_JPRB/)  
+KBO( :, 4,50,15) = (/&
+ & 3.3508E+02_JPRB,3.3488E+02_JPRB,2.5136E+02_JPRB,1.6766E+02_JPRB,9.1542E+01_JPRB,8.9470E+01_JPRB/)  
+KBO( :, 5,50,15) = (/&
+ & 3.2141E+02_JPRB,3.2122E+02_JPRB,2.4111E+02_JPRB,1.6083E+02_JPRB,8.6254E+01_JPRB,9.0426E+01_JPRB/)  
+KBO( :, 1,51,15) = (/&
+ & 3.8078E+02_JPRB,3.8056E+02_JPRB,2.8562E+02_JPRB,1.9055E+02_JPRB,1.1479E+02_JPRB,1.0898E+02_JPRB/)  
+KBO( :, 2,51,15) = (/&
+ & 3.6766E+02_JPRB,3.6744E+02_JPRB,2.7578E+02_JPRB,1.8392E+02_JPRB,1.0684E+02_JPRB,1.0093E+02_JPRB/)  
+KBO( :, 3,51,15) = (/&
+ & 3.5420E+02_JPRB,3.5398E+02_JPRB,2.6569E+02_JPRB,1.7719E+02_JPRB,9.9903E+01_JPRB,9.5407E+01_JPRB/)  
+KBO( :, 4,51,15) = (/&
+ & 3.4048E+02_JPRB,3.4027E+02_JPRB,2.5540E+02_JPRB,1.7035E+02_JPRB,9.3766E+01_JPRB,9.1798E+01_JPRB/)  
+KBO( :, 5,51,15) = (/&
+ & 3.2673E+02_JPRB,3.2653E+02_JPRB,2.4509E+02_JPRB,1.6348E+02_JPRB,8.8237E+01_JPRB,9.2138E+01_JPRB/)  
+KBO( :, 1,52,15) = (/&
+ & 3.8584E+02_JPRB,3.8560E+02_JPRB,2.8941E+02_JPRB,1.9322E+02_JPRB,1.1816E+02_JPRB,1.1293E+02_JPRB/)  
+KBO( :, 2,52,15) = (/&
+ & 3.7294E+02_JPRB,3.7271E+02_JPRB,2.7974E+02_JPRB,1.8654E+02_JPRB,1.0976E+02_JPRB,1.0425E+02_JPRB/)  
+KBO( :, 3,52,15) = (/&
+ & 3.5951E+02_JPRB,3.5930E+02_JPRB,2.6967E+02_JPRB,1.7985E+02_JPRB,1.0246E+02_JPRB,9.8398E+01_JPRB/)  
+KBO( :, 4,52,15) = (/&
+ & 3.4582E+02_JPRB,3.4561E+02_JPRB,2.5941E+02_JPRB,1.7301E+02_JPRB,9.6032E+01_JPRB,9.4572E+01_JPRB/)  
+KBO( :, 5,52,15) = (/&
+ & 3.3204E+02_JPRB,3.3185E+02_JPRB,2.4908E+02_JPRB,1.6614E+02_JPRB,9.0266E+01_JPRB,9.4675E+01_JPRB/)  
+KBO( :, 1,53,15) = (/&
+ & 3.9087E+02_JPRB,3.9063E+02_JPRB,2.9318E+02_JPRB,1.9599E+02_JPRB,1.2171E+02_JPRB,1.1718E+02_JPRB/)  
+KBO( :, 2,53,15) = (/&
+ & 3.7802E+02_JPRB,3.7780E+02_JPRB,2.8355E+02_JPRB,1.8910E+02_JPRB,1.1281E+02_JPRB,1.0800E+02_JPRB/)  
+KBO( :, 3,53,15) = (/&
+ & 3.6473E+02_JPRB,3.6451E+02_JPRB,2.7359E+02_JPRB,1.8245E+02_JPRB,1.0513E+02_JPRB,1.0177E+02_JPRB/)  
+KBO( :, 4,53,15) = (/&
+ & 3.5112E+02_JPRB,3.5091E+02_JPRB,2.6338E+02_JPRB,1.7566E+02_JPRB,9.8387E+01_JPRB,9.7989E+01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART35',1,ZHOOK_HANDLE)
+END SUBROUTINE PART35
+
+
+SUBROUTINE PART36
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART36',0,ZHOOK_HANDLE)
+
+
+KBO( :, 5,53,15) = (/&
+ & 3.3733E+02_JPRB,3.3713E+02_JPRB,2.5304E+02_JPRB,1.6878E+02_JPRB,9.2381E+01_JPRB,9.8180E+01_JPRB/)  
+KBO( :, 1,54,15) = (/&
+ & 3.9531E+02_JPRB,3.9507E+02_JPRB,2.9651E+02_JPRB,1.9853E+02_JPRB,1.2515E+02_JPRB,1.2078E+02_JPRB/)  
+KBO( :, 2,54,15) = (/&
+ & 3.8263E+02_JPRB,3.8240E+02_JPRB,2.8700E+02_JPRB,1.9150E+02_JPRB,1.1577E+02_JPRB,1.1118E+02_JPRB/)  
+KBO( :, 3,54,15) = (/&
+ & 3.6948E+02_JPRB,3.6926E+02_JPRB,2.7715E+02_JPRB,1.8482E+02_JPRB,1.0769E+02_JPRB,1.0351E+02_JPRB/)  
+KBO( :, 4,54,15) = (/&
+ & 3.5596E+02_JPRB,3.5575E+02_JPRB,2.6701E+02_JPRB,1.7807E+02_JPRB,1.0063E+02_JPRB,9.9143E+01_JPRB/)  
+KBO( :, 5,54,15) = (/&
+ & 3.4214E+02_JPRB,3.4194E+02_JPRB,2.5665E+02_JPRB,1.7118E+02_JPRB,9.4395E+01_JPRB,9.8105E+01_JPRB/)  
+KBO( :, 1,55,15) = (/&
+ & 3.9946E+02_JPRB,3.9922E+02_JPRB,2.9962E+02_JPRB,2.0102E+02_JPRB,1.2867E+02_JPRB,1.2425E+02_JPRB/)  
+KBO( :, 2,55,15) = (/&
+ & 3.8700E+02_JPRB,3.8677E+02_JPRB,2.9028E+02_JPRB,1.9382E+02_JPRB,1.1872E+02_JPRB,1.1387E+02_JPRB/)  
+KBO( :, 3,55,15) = (/&
+ & 3.7399E+02_JPRB,3.7376E+02_JPRB,2.8052E+02_JPRB,1.8707E+02_JPRB,1.1023E+02_JPRB,1.0518E+02_JPRB/)  
+KBO( :, 4,55,15) = (/&
+ & 3.6056E+02_JPRB,3.6034E+02_JPRB,2.7046E+02_JPRB,1.8037E+02_JPRB,1.0287E+02_JPRB,9.9691E+01_JPRB/)  
+KBO( :, 5,55,15) = (/&
+ & 3.4681E+02_JPRB,3.4660E+02_JPRB,2.6015E+02_JPRB,1.7350E+02_JPRB,9.6390E+01_JPRB,9.6621E+01_JPRB/)  
+KBO( :, 1,56,15) = (/&
+ & 4.0345E+02_JPRB,4.0321E+02_JPRB,3.0261E+02_JPRB,2.0354E+02_JPRB,1.3232E+02_JPRB,1.2822E+02_JPRB/)  
+KBO( :, 2,56,15) = (/&
+ & 3.9129E+02_JPRB,3.9105E+02_JPRB,2.9349E+02_JPRB,1.9619E+02_JPRB,1.2179E+02_JPRB,1.1677E+02_JPRB/)  
+KBO( :, 3,56,15) = (/&
+ & 3.7839E+02_JPRB,3.7816E+02_JPRB,2.8382E+02_JPRB,1.8928E+02_JPRB,1.1288E+02_JPRB,1.0755E+02_JPRB/)  
+KBO( :, 4,56,15) = (/&
+ & 3.6503E+02_JPRB,3.6481E+02_JPRB,2.7381E+02_JPRB,1.8260E+02_JPRB,1.0518E+02_JPRB,1.0056E+02_JPRB/)  
+KBO( :, 5,56,15) = (/&
+ & 3.5139E+02_JPRB,3.5118E+02_JPRB,2.6358E+02_JPRB,1.7579E+02_JPRB,9.8426E+01_JPRB,9.5940E+01_JPRB/)  
+KBO( :, 1,57,15) = (/&
+ & 4.0732E+02_JPRB,4.0708E+02_JPRB,3.0551E+02_JPRB,2.0612E+02_JPRB,1.3611E+02_JPRB,1.3253E+02_JPRB/)  
+KBO( :, 2,57,15) = (/&
+ & 3.9551E+02_JPRB,3.9527E+02_JPRB,2.9666E+02_JPRB,1.9860E+02_JPRB,1.2505E+02_JPRB,1.2007E+02_JPRB/)  
+KBO( :, 3,57,15) = (/&
+ & 3.8272E+02_JPRB,3.8249E+02_JPRB,2.8707E+02_JPRB,1.9154E+02_JPRB,1.1567E+02_JPRB,1.1005E+02_JPRB/)  
+KBO( :, 4,57,15) = (/&
+ & 3.6944E+02_JPRB,3.6922E+02_JPRB,2.7712E+02_JPRB,1.8480E+02_JPRB,1.0758E+02_JPRB,1.0192E+02_JPRB/)  
+KBO( :, 5,57,15) = (/&
+ & 3.5592E+02_JPRB,3.5571E+02_JPRB,2.6698E+02_JPRB,1.7805E+02_JPRB,1.0054E+02_JPRB,9.6453E+01_JPRB/)  
+KBO( :, 1,58,15) = (/&
+ & 4.1059E+02_JPRB,4.1035E+02_JPRB,3.0796E+02_JPRB,2.0852E+02_JPRB,1.3980E+02_JPRB,1.3680E+02_JPRB/)  
+KBO( :, 2,58,15) = (/&
+ & 3.9929E+02_JPRB,3.9905E+02_JPRB,2.9949E+02_JPRB,2.0087E+02_JPRB,1.2831E+02_JPRB,1.2369E+02_JPRB/)  
+KBO( :, 3,58,15) = (/&
+ & 3.8677E+02_JPRB,3.8654E+02_JPRB,2.9010E+02_JPRB,1.9368E+02_JPRB,1.1842E+02_JPRB,1.1258E+02_JPRB/)  
+KBO( :, 4,58,15) = (/&
+ & 3.7367E+02_JPRB,3.7345E+02_JPRB,2.8029E+02_JPRB,1.8691E+02_JPRB,1.0996E+02_JPRB,1.0363E+02_JPRB/)  
+KBO( :, 5,58,15) = (/&
+ & 3.6017E+02_JPRB,3.5995E+02_JPRB,2.7016E+02_JPRB,1.8017E+02_JPRB,1.0261E+02_JPRB,9.7140E+01_JPRB/)  
+KBO( :, 1,59,15) = (/&
+ & 4.1203E+02_JPRB,4.1178E+02_JPRB,3.0904E+02_JPRB,2.0958E+02_JPRB,1.4140E+02_JPRB,1.3865E+02_JPRB/)  
+KBO( :, 2,59,15) = (/&
+ & 4.0086E+02_JPRB,4.0061E+02_JPRB,3.0066E+02_JPRB,2.0184E+02_JPRB,1.2968E+02_JPRB,1.2523E+02_JPRB/)  
+KBO( :, 3,59,15) = (/&
+ & 3.8845E+02_JPRB,3.8822E+02_JPRB,2.9137E+02_JPRB,1.9459E+02_JPRB,1.1957E+02_JPRB,1.1363E+02_JPRB/)  
+KBO( :, 4,59,15) = (/&
+ & 3.7538E+02_JPRB,3.7516E+02_JPRB,2.8157E+02_JPRB,1.8776E+02_JPRB,1.1095E+02_JPRB,1.0368E+02_JPRB/)  
+KBO( :, 5,59,15) = (/&
+ & 3.6194E+02_JPRB,3.6172E+02_JPRB,2.7149E+02_JPRB,1.8106E+02_JPRB,1.0349E+02_JPRB,9.5485E+01_JPRB/)  
+KBO( :, 1,13,16) = (/&
+ & 3.8689E+01_JPRB,3.8666E+01_JPRB,2.9260E+01_JPRB,2.0209E+01_JPRB,1.1782E+01_JPRB,1.0583E+01_JPRB/)  
+KBO( :, 2,13,16) = (/&
+ & 3.8299E+01_JPRB,3.8276E+01_JPRB,2.8975E+01_JPRB,1.9748E+01_JPRB,1.1593E+01_JPRB,1.0462E+01_JPRB/)  
+KBO( :, 3,13,16) = (/&
+ & 3.8145E+01_JPRB,3.8122E+01_JPRB,2.8865E+01_JPRB,1.9633E+01_JPRB,1.1641E+01_JPRB,1.2633E+01_JPRB/)  
+KBO( :, 4,13,16) = (/&
+ & 3.7920E+01_JPRB,3.7898E+01_JPRB,2.8722E+01_JPRB,1.9787E+01_JPRB,1.1762E+01_JPRB,2.0692E+01_JPRB/)  
+KBO( :, 5,13,16) = (/&
+ & 3.7770E+01_JPRB,3.7748E+01_JPRB,2.8670E+01_JPRB,1.9920E+01_JPRB,1.1827E+01_JPRB,3.1866E+01_JPRB/)  
+KBO( :, 1,14,16) = (/&
+ & 4.5054E+01_JPRB,4.5027E+01_JPRB,3.4026E+01_JPRB,2.3071E+01_JPRB,1.3319E+01_JPRB,1.2073E+01_JPRB/)  
+KBO( :, 2,14,16) = (/&
+ & 4.5133E+01_JPRB,4.5106E+01_JPRB,3.4091E+01_JPRB,2.3057E+01_JPRB,1.3364E+01_JPRB,1.1925E+01_JPRB/)  
+KBO( :, 3,14,16) = (/&
+ & 4.5119E+01_JPRB,4.5092E+01_JPRB,3.4098E+01_JPRB,2.3216E+01_JPRB,1.3503E+01_JPRB,1.1702E+01_JPRB/)  
+KBO( :, 4,14,16) = (/&
+ & 4.5115E+01_JPRB,4.5088E+01_JPRB,3.4119E+01_JPRB,2.3467E+01_JPRB,1.3637E+01_JPRB,1.5244E+01_JPRB/)  
+KBO( :, 5,14,16) = (/&
+ & 4.5059E+01_JPRB,4.5033E+01_JPRB,3.4214E+01_JPRB,2.3627E+01_JPRB,1.3694E+01_JPRB,2.3098E+01_JPRB/)  
+KBO( :, 1,15,16) = (/&
+ & 5.3422E+01_JPRB,5.3390E+01_JPRB,4.0289E+01_JPRB,2.7161E+01_JPRB,1.5356E+01_JPRB,1.3721E+01_JPRB/)  
+KBO( :, 2,15,16) = (/&
+ & 5.3696E+01_JPRB,5.3664E+01_JPRB,4.0505E+01_JPRB,2.7340E+01_JPRB,1.5494E+01_JPRB,1.3518E+01_JPRB/)  
+KBO( :, 3,15,16) = (/&
+ & 5.3925E+01_JPRB,5.3893E+01_JPRB,4.0694E+01_JPRB,2.7658E+01_JPRB,1.5638E+01_JPRB,1.3237E+01_JPRB/)  
+KBO( :, 4,15,16) = (/&
+ & 5.4035E+01_JPRB,5.4003E+01_JPRB,4.0835E+01_JPRB,2.7959E+01_JPRB,1.5745E+01_JPRB,1.3582E+01_JPRB/)  
+KBO( :, 5,15,16) = (/&
+ & 5.4075E+01_JPRB,5.4044E+01_JPRB,4.1021E+01_JPRB,2.8130E+01_JPRB,1.5788E+01_JPRB,1.7824E+01_JPRB/)  
+KBO( :, 1,16,16) = (/&
+ & 6.3798E+01_JPRB,6.3761E+01_JPRB,4.8055E+01_JPRB,3.2321E+01_JPRB,1.7804E+01_JPRB,1.5476E+01_JPRB/)  
+KBO( :, 2,16,16) = (/&
+ & 6.4371E+01_JPRB,6.4333E+01_JPRB,4.8500E+01_JPRB,3.2671E+01_JPRB,1.7962E+01_JPRB,1.5197E+01_JPRB/)  
+KBO( :, 3,16,16) = (/&
+ & 6.4762E+01_JPRB,6.4724E+01_JPRB,4.8796E+01_JPRB,3.3069E+01_JPRB,1.8081E+01_JPRB,1.4836E+01_JPRB/)  
+KBO( :, 4,16,16) = (/&
+ & 6.4916E+01_JPRB,6.4878E+01_JPRB,4.9055E+01_JPRB,3.3403E+01_JPRB,1.8207E+01_JPRB,1.4562E+01_JPRB/)  
+KBO( :, 5,16,16) = (/&
+ & 6.5062E+01_JPRB,6.5024E+01_JPRB,4.9265E+01_JPRB,3.3568E+01_JPRB,1.8256E+01_JPRB,1.7370E+01_JPRB/)  
+KBO( :, 1,17,16) = (/&
+ & 7.6610E+01_JPRB,7.6564E+01_JPRB,5.7652E+01_JPRB,3.8697E+01_JPRB,2.0672E+01_JPRB,1.7278E+01_JPRB/)  
+KBO( :, 2,17,16) = (/&
+ & 7.7427E+01_JPRB,7.7381E+01_JPRB,5.8265E+01_JPRB,3.9185E+01_JPRB,2.0866E+01_JPRB,1.6909E+01_JPRB/)  
+KBO( :, 3,17,16) = (/&
+ & 7.7882E+01_JPRB,7.7836E+01_JPRB,5.8659E+01_JPRB,3.9624E+01_JPRB,2.1079E+01_JPRB,1.6452E+01_JPRB/)  
+KBO( :, 4,17,16) = (/&
+ & 7.8153E+01_JPRB,7.8107E+01_JPRB,5.8983E+01_JPRB,3.9939E+01_JPRB,2.1227E+01_JPRB,1.5935E+01_JPRB/)  
+KBO( :, 5,17,16) = (/&
+ & 7.8285E+01_JPRB,7.8239E+01_JPRB,5.9159E+01_JPRB,4.0098E+01_JPRB,2.1284E+01_JPRB,1.7883E+01_JPRB/)  
+KBO( :, 1,18,16) = (/&
+ & 9.2189E+01_JPRB,9.2134E+01_JPRB,6.9312E+01_JPRB,4.6439E+01_JPRB,2.4197E+01_JPRB,1.9120E+01_JPRB/)  
+KBO( :, 2,18,16) = (/&
+ & 9.3127E+01_JPRB,9.3071E+01_JPRB,7.0021E+01_JPRB,4.7049E+01_JPRB,2.4478E+01_JPRB,1.8615E+01_JPRB/)  
+KBO( :, 3,18,16) = (/&
+ & 9.3687E+01_JPRB,9.3631E+01_JPRB,7.0554E+01_JPRB,4.7512E+01_JPRB,2.4757E+01_JPRB,1.8049E+01_JPRB/)  
+KBO( :, 4,18,16) = (/&
+ & 9.4033E+01_JPRB,9.3977E+01_JPRB,7.0871E+01_JPRB,4.7767E+01_JPRB,2.4905E+01_JPRB,1.7594E+01_JPRB/)  
+KBO( :, 5,18,16) = (/&
+ & 9.4115E+01_JPRB,9.4059E+01_JPRB,7.0982E+01_JPRB,4.7909E+01_JPRB,2.4988E+01_JPRB,1.9077E+01_JPRB/)  
+KBO( :, 1,19,16) = (/&
+ & 1.1088E+02_JPRB,1.1082E+02_JPRB,8.3307E+01_JPRB,5.5744E+01_JPRB,2.8599E+01_JPRB,2.1582E+01_JPRB/)  
+KBO( :, 2,19,16) = (/&
+ & 1.1182E+02_JPRB,1.1175E+02_JPRB,8.4097E+01_JPRB,5.6442E+01_JPRB,2.8984E+01_JPRB,2.0983E+01_JPRB/)  
+KBO( :, 3,19,16) = (/&
+ & 1.1254E+02_JPRB,1.1247E+02_JPRB,8.4694E+01_JPRB,5.6884E+01_JPRB,2.9231E+01_JPRB,2.0488E+01_JPRB/)  
+KBO( :, 4,19,16) = (/&
+ & 1.1281E+02_JPRB,1.1274E+02_JPRB,8.4918E+01_JPRB,5.7062E+01_JPRB,2.9345E+01_JPRB,2.0019E+01_JPRB/)  
+KBO( :, 5,19,16) = (/&
+ & 1.1284E+02_JPRB,1.1277E+02_JPRB,8.4969E+01_JPRB,5.7133E+01_JPRB,2.9423E+01_JPRB,2.0552E+01_JPRB/)  
+KBO( :, 1,20,16) = (/&
+ & 1.3304E+02_JPRB,1.3296E+02_JPRB,9.9902E+01_JPRB,6.6832E+01_JPRB,3.3983E+01_JPRB,2.4788E+01_JPRB/)  
+KBO( :, 2,20,16) = (/&
+ & 1.3397E+02_JPRB,1.3389E+02_JPRB,1.0072E+02_JPRB,6.7494E+01_JPRB,3.4377E+01_JPRB,2.4125E+01_JPRB/)  
+KBO( :, 3,20,16) = (/&
+ & 1.3463E+02_JPRB,1.3455E+02_JPRB,1.0123E+02_JPRB,6.7864E+01_JPRB,3.4571E+01_JPRB,2.3603E+01_JPRB/)  
+KBO( :, 4,20,16) = (/&
+ & 1.3476E+02_JPRB,1.3468E+02_JPRB,1.0135E+02_JPRB,6.7962E+01_JPRB,3.4649E+01_JPRB,2.3098E+01_JPRB/)  
+KBO( :, 5,20,16) = (/&
+ & 1.3461E+02_JPRB,1.3453E+02_JPRB,1.0126E+02_JPRB,6.7912E+01_JPRB,3.4631E+01_JPRB,2.3014E+01_JPRB/)  
+KBO( :, 1,21,16) = (/&
+ & 1.5902E+02_JPRB,1.5892E+02_JPRB,1.1942E+02_JPRB,7.9855E+01_JPRB,4.0380E+01_JPRB,2.8857E+01_JPRB/)  
+KBO( :, 2,21,16) = (/&
+ & 1.5986E+02_JPRB,1.5976E+02_JPRB,1.2010E+02_JPRB,8.0360E+01_JPRB,4.0679E+01_JPRB,2.8064E+01_JPRB/)  
+KBO( :, 3,21,16) = (/&
+ & 1.6009E+02_JPRB,1.5999E+02_JPRB,1.2030E+02_JPRB,8.0530E+01_JPRB,4.0801E+01_JPRB,2.7409E+01_JPRB/)  
+KBO( :, 4,21,16) = (/&
+ & 1.6003E+02_JPRB,1.5993E+02_JPRB,1.2027E+02_JPRB,8.0522E+01_JPRB,4.0812E+01_JPRB,2.6783E+01_JPRB/)  
+KBO( :, 5,21,16) = (/&
+ & 1.5940E+02_JPRB,1.5931E+02_JPRB,1.1980E+02_JPRB,8.0213E+01_JPRB,4.0653E+01_JPRB,2.6207E+01_JPRB/)  
+KBO( :, 1,22,16) = (/&
+ & 1.8914E+02_JPRB,1.8903E+02_JPRB,1.4202E+02_JPRB,9.4911E+01_JPRB,4.7837E+01_JPRB,3.3682E+01_JPRB/)  
+KBO( :, 2,22,16) = (/&
+ & 1.8942E+02_JPRB,1.8931E+02_JPRB,1.4225E+02_JPRB,9.5082E+01_JPRB,4.7944E+01_JPRB,3.2660E+01_JPRB/)  
+KBO( :, 3,22,16) = (/&
+ & 1.8906E+02_JPRB,1.8895E+02_JPRB,1.4200E+02_JPRB,9.4945E+01_JPRB,4.7916E+01_JPRB,3.1774E+01_JPRB/)  
+KBO( :, 4,22,16) = (/&
+ & 1.8832E+02_JPRB,1.8821E+02_JPRB,1.4146E+02_JPRB,9.4597E+01_JPRB,4.7752E+01_JPRB,3.0917E+01_JPRB/)  
+KBO( :, 5,22,16) = (/&
+ & 1.8683E+02_JPRB,1.8672E+02_JPRB,1.4034E+02_JPRB,9.3850E+01_JPRB,4.7374E+01_JPRB,3.0042E+01_JPRB/)  
+KBO( :, 1,23,16) = (/&
+ & 2.2303E+02_JPRB,2.2290E+02_JPRB,1.6742E+02_JPRB,1.1182E+02_JPRB,5.6236E+01_JPRB,3.9223E+01_JPRB/)  
+KBO( :, 2,23,16) = (/&
+ & 2.2245E+02_JPRB,2.2232E+02_JPRB,1.6700E+02_JPRB,1.1156E+02_JPRB,5.6122E+01_JPRB,3.7879E+01_JPRB/)  
+KBO( :, 3,23,16) = (/&
+ & 2.2122E+02_JPRB,2.2109E+02_JPRB,1.6608E+02_JPRB,1.1095E+02_JPRB,5.5829E+01_JPRB,3.6659E+01_JPRB/)  
+KBO( :, 4,23,16) = (/&
+ & 2.1922E+02_JPRB,2.1909E+02_JPRB,1.6458E+02_JPRB,1.0995E+02_JPRB,5.5344E+01_JPRB,3.5458E+01_JPRB/)  
+KBO( :, 5,23,16) = (/&
+ & 2.1646E+02_JPRB,2.1633E+02_JPRB,1.6251E+02_JPRB,1.0858E+02_JPRB,5.4654E+01_JPRB,3.4278E+01_JPRB/)  
+KBO( :, 1,24,16) = (/&
+ & 2.6009E+02_JPRB,2.5994E+02_JPRB,1.9520E+02_JPRB,1.3031E+02_JPRB,6.5430E+01_JPRB,4.5390E+01_JPRB/)  
+KBO( :, 2,24,16) = (/&
+ & 2.5840E+02_JPRB,2.5824E+02_JPRB,1.9393E+02_JPRB,1.2948E+02_JPRB,6.5031E+01_JPRB,4.3599E+01_JPRB/)  
+KBO( :, 3,24,16) = (/&
+ & 2.5582E+02_JPRB,2.5567E+02_JPRB,1.9201E+02_JPRB,1.2820E+02_JPRB,6.4398E+01_JPRB,4.1930E+01_JPRB/)  
+KBO( :, 4,24,16) = (/&
+ & 2.5214E+02_JPRB,2.5199E+02_JPRB,1.8925E+02_JPRB,1.2636E+02_JPRB,6.3477E+01_JPRB,4.0299E+01_JPRB/)  
+KBO( :, 5,24,16) = (/&
+ & 2.4775E+02_JPRB,2.4761E+02_JPRB,1.8596E+02_JPRB,1.2416E+02_JPRB,6.2364E+01_JPRB,3.8770E+01_JPRB/)  
+KBO( :, 1,25,16) = (/&
+ & 2.9961E+02_JPRB,2.9943E+02_JPRB,2.2482E+02_JPRB,1.5004E+02_JPRB,7.5282E+01_JPRB,5.1967E+01_JPRB/)  
+KBO( :, 2,25,16) = (/&
+ & 2.9633E+02_JPRB,2.9616E+02_JPRB,2.2237E+02_JPRB,1.4840E+02_JPRB,7.4441E+01_JPRB,4.9689E+01_JPRB/)  
+KBO( :, 3,25,16) = (/&
+ & 2.9175E+02_JPRB,2.9157E+02_JPRB,2.1893E+02_JPRB,1.4611E+02_JPRB,7.3302E+01_JPRB,4.7422E+01_JPRB/)  
+KBO( :, 4,25,16) = (/&
+ & 2.8609E+02_JPRB,2.8592E+02_JPRB,2.1467E+02_JPRB,1.4326E+02_JPRB,7.1858E+01_JPRB,4.5354E+01_JPRB/)  
+KBO( :, 5,25,16) = (/&
+ & 2.7979E+02_JPRB,2.7962E+02_JPRB,2.0995E+02_JPRB,1.4011E+02_JPRB,7.0273E+01_JPRB,4.3371E+01_JPRB/)  
+KBO( :, 1,26,16) = (/&
+ & 3.4064E+02_JPRB,3.4044E+02_JPRB,2.5559E+02_JPRB,1.7054E+02_JPRB,8.5509E+01_JPRB,5.8664E+01_JPRB/)  
+KBO( :, 2,26,16) = (/&
+ & 3.3479E+02_JPRB,3.3459E+02_JPRB,2.5118E+02_JPRB,1.6758E+02_JPRB,8.3998E+01_JPRB,5.5796E+01_JPRB/)  
+KBO( :, 3,26,16) = (/&
+ & 3.2781E+02_JPRB,3.2761E+02_JPRB,2.4595E+02_JPRB,1.6410E+02_JPRB,8.2241E+01_JPRB,5.2997E+01_JPRB/)  
+KBO( :, 4,26,16) = (/&
+ & 3.1991E+02_JPRB,3.1971E+02_JPRB,2.4002E+02_JPRB,1.6013E+02_JPRB,8.0246E+01_JPRB,5.0365E+01_JPRB/)  
+KBO( :, 5,26,16) = (/&
+ & 3.1125E+02_JPRB,3.1106E+02_JPRB,2.3353E+02_JPRB,1.5580E+02_JPRB,7.8078E+01_JPRB,4.7882E+01_JPRB/)  
+KBO( :, 1,27,16) = (/&
+ & 3.8151E+02_JPRB,3.8128E+02_JPRB,2.8624E+02_JPRB,1.9097E+02_JPRB,9.5695E+01_JPRB,6.5294E+01_JPRB/)  
+KBO( :, 2,27,16) = (/&
+ & 3.7246E+02_JPRB,3.7224E+02_JPRB,2.7942E+02_JPRB,1.8640E+02_JPRB,9.3380E+01_JPRB,6.1731E+01_JPRB/)  
+KBO( :, 3,27,16) = (/&
+ & 3.6293E+02_JPRB,3.6271E+02_JPRB,2.7227E+02_JPRB,1.8161E+02_JPRB,9.0959E+01_JPRB,5.8403E+01_JPRB/)  
+KBO( :, 4,27,16) = (/&
+ & 3.5247E+02_JPRB,3.5226E+02_JPRB,2.6442E+02_JPRB,1.7637E+02_JPRB,8.8327E+01_JPRB,5.5221E+01_JPRB/)  
+KBO( :, 5,27,16) = (/&
+ & 3.4112E+02_JPRB,3.4092E+02_JPRB,2.5591E+02_JPRB,1.7070E+02_JPRB,8.5490E+01_JPRB,5.2167E+01_JPRB/)  
+KBO( :, 1,28,16) = (/&
+ & 4.2083E+02_JPRB,4.2057E+02_JPRB,3.1571E+02_JPRB,2.1058E+02_JPRB,1.0546E+02_JPRB,7.1596E+01_JPRB/)  
+KBO( :, 2,28,16) = (/&
+ & 4.0846E+02_JPRB,4.0821E+02_JPRB,3.0641E+02_JPRB,2.0435E+02_JPRB,1.0232E+02_JPRB,6.7371E+01_JPRB/)  
+KBO( :, 3,28,16) = (/&
+ & 3.9603E+02_JPRB,3.9579E+02_JPRB,2.9708E+02_JPRB,1.9813E+02_JPRB,9.9186E+01_JPRB,6.3413E+01_JPRB/)  
+KBO( :, 4,28,16) = (/&
+ & 3.8255E+02_JPRB,3.8232E+02_JPRB,2.8697E+02_JPRB,1.9139E+02_JPRB,9.5812E+01_JPRB,5.9684E+01_JPRB/)  
+KBO( :, 5,28,16) = (/&
+ & 3.6876E+02_JPRB,3.6854E+02_JPRB,2.7662E+02_JPRB,1.8449E+02_JPRB,9.2357E+01_JPRB,5.6128E+01_JPRB/)  
+KBO( :, 1,29,16) = (/&
+ & 4.5696E+02_JPRB,4.5668E+02_JPRB,3.4279E+02_JPRB,2.2863E+02_JPRB,1.1447E+02_JPRB,7.7353E+01_JPRB/)  
+KBO( :, 2,29,16) = (/&
+ & 4.4141E+02_JPRB,4.4115E+02_JPRB,3.3112E+02_JPRB,2.2083E+02_JPRB,1.1054E+02_JPRB,7.2448E+01_JPRB/)  
+KBO( :, 3,29,16) = (/&
+ & 4.2589E+02_JPRB,4.2564E+02_JPRB,3.1947E+02_JPRB,2.1304E+02_JPRB,1.0662E+02_JPRB,6.7886E+01_JPRB/)  
+KBO( :, 4,29,16) = (/&
+ & 4.0969E+02_JPRB,4.0945E+02_JPRB,3.0731E+02_JPRB,2.0494E+02_JPRB,1.0256E+02_JPRB,6.3607E+01_JPRB/)  
+KBO( :, 5,29,16) = (/&
+ & 3.9310E+02_JPRB,3.9286E+02_JPRB,2.9486E+02_JPRB,1.9663E+02_JPRB,9.8402E+01_JPRB,5.9577E+01_JPRB/)  
+KBO( :, 1,30,16) = (/&
+ & 4.8959E+02_JPRB,4.8930E+02_JPRB,3.6726E+02_JPRB,2.4492E+02_JPRB,1.2259E+02_JPRB,8.2395E+01_JPRB/)  
+KBO( :, 2,30,16) = (/&
+ & 4.7092E+02_JPRB,4.7063E+02_JPRB,3.5324E+02_JPRB,2.3556E+02_JPRB,1.1788E+02_JPRB,7.6844E+01_JPRB/)  
+KBO( :, 3,30,16) = (/&
+ & 4.5203E+02_JPRB,4.5176E+02_JPRB,3.3907E+02_JPRB,2.2611E+02_JPRB,1.1315E+02_JPRB,7.1734E+01_JPRB/)  
+KBO( :, 4,30,16) = (/&
+ & 4.3310E+02_JPRB,4.3284E+02_JPRB,3.2486E+02_JPRB,2.1662E+02_JPRB,1.0839E+02_JPRB,6.6928E+01_JPRB/)  
+KBO( :, 5,30,16) = (/&
+ & 4.1412E+02_JPRB,4.1387E+02_JPRB,3.1062E+02_JPRB,2.0713E+02_JPRB,1.0363E+02_JPRB,6.3289E+01_JPRB/)  
+KBO( :, 1,31,16) = (/&
+ & 5.1786E+02_JPRB,5.1755E+02_JPRB,3.8845E+02_JPRB,2.5903E+02_JPRB,1.2962E+02_JPRB,8.6621E+01_JPRB/)  
+KBO( :, 2,31,16) = (/&
+ & 4.9597E+02_JPRB,4.9567E+02_JPRB,3.7202E+02_JPRB,2.4806E+02_JPRB,1.2412E+02_JPRB,8.0470E+01_JPRB/)  
+KBO( :, 3,31,16) = (/&
+ & 4.7405E+02_JPRB,4.7377E+02_JPRB,3.5558E+02_JPRB,2.3710E+02_JPRB,1.1862E+02_JPRB,7.4852E+01_JPRB/)  
+KBO( :, 4,31,16) = (/&
+ & 4.5255E+02_JPRB,4.5228E+02_JPRB,3.3944E+02_JPRB,2.2633E+02_JPRB,1.1323E+02_JPRB,6.9726E+01_JPRB/)  
+KBO( :, 5,31,16) = (/&
+ & 4.3142E+02_JPRB,4.3116E+02_JPRB,3.2359E+02_JPRB,2.1576E+02_JPRB,1.0794E+02_JPRB,6.8706E+01_JPRB/)  
+KBO( :, 1,32,16) = (/&
+ & 5.4131E+02_JPRB,5.4099E+02_JPRB,4.0602E+02_JPRB,2.7073E+02_JPRB,1.3545E+02_JPRB,8.9958E+01_JPRB/)  
+KBO( :, 2,32,16) = (/&
+ & 5.1653E+02_JPRB,5.1622E+02_JPRB,3.8743E+02_JPRB,2.5834E+02_JPRB,1.2924E+02_JPRB,8.3331E+01_JPRB/)  
+KBO( :, 3,32,16) = (/&
+ & 4.9189E+02_JPRB,4.9160E+02_JPRB,3.6895E+02_JPRB,2.4600E+02_JPRB,1.2306E+02_JPRB,7.7256E+01_JPRB/)  
+KBO( :, 4,32,16) = (/&
+ & 4.6812E+02_JPRB,4.6784E+02_JPRB,3.5111E+02_JPRB,2.3411E+02_JPRB,1.1710E+02_JPRB,7.4368E+01_JPRB/)  
+KBO( :, 5,32,16) = (/&
+ & 4.4507E+02_JPRB,4.4480E+02_JPRB,3.3382E+02_JPRB,2.2258E+02_JPRB,1.1133E+02_JPRB,7.6072E+01_JPRB/)  
+KBO( :, 1,33,16) = (/&
+ & 5.6013E+02_JPRB,5.5980E+02_JPRB,4.2013E+02_JPRB,2.8013E+02_JPRB,1.4013E+02_JPRB,9.2452E+01_JPRB/)  
+KBO( :, 2,33,16) = (/&
+ & 5.3265E+02_JPRB,5.3233E+02_JPRB,3.9951E+02_JPRB,2.6638E+02_JPRB,1.3325E+02_JPRB,8.5421E+01_JPRB/)  
+KBO( :, 3,33,16) = (/&
+ & 5.0565E+02_JPRB,5.0535E+02_JPRB,3.7926E+02_JPRB,2.5287E+02_JPRB,1.2648E+02_JPRB,8.0582E+01_JPRB/)  
+KBO( :, 4,33,16) = (/&
+ & 4.8012E+02_JPRB,4.7983E+02_JPRB,3.6011E+02_JPRB,2.4010E+02_JPRB,1.2009E+02_JPRB,8.1630E+01_JPRB/)  
+KBO( :, 5,33,16) = (/&
+ & 4.5545E+02_JPRB,4.5518E+02_JPRB,3.4161E+02_JPRB,2.2776E+02_JPRB,1.1392E+02_JPRB,8.6476E+01_JPRB/)  
+KBO( :, 1,34,16) = (/&
+ & 5.7564E+02_JPRB,5.7530E+02_JPRB,4.3176E+02_JPRB,2.8787E+02_JPRB,1.4399E+02_JPRB,9.4439E+01_JPRB/)  
+KBO( :, 2,34,16) = (/&
+ & 5.4576E+02_JPRB,5.4543E+02_JPRB,4.0934E+02_JPRB,2.7293E+02_JPRB,1.3651E+02_JPRB,8.7181E+01_JPRB/)  
+KBO( :, 3,34,16) = (/&
+ & 5.1688E+02_JPRB,5.1657E+02_JPRB,3.8768E+02_JPRB,2.5848E+02_JPRB,1.2927E+02_JPRB,8.6122E+01_JPRB/)  
+KBO( :, 4,34,16) = (/&
+ & 4.8984E+02_JPRB,4.8955E+02_JPRB,3.6740E+02_JPRB,2.4495E+02_JPRB,1.2251E+02_JPRB,9.0125E+01_JPRB/)  
+KBO( :, 5,34,16) = (/&
+ & 4.6368E+02_JPRB,4.6340E+02_JPRB,3.4777E+02_JPRB,2.3187E+02_JPRB,1.1596E+02_JPRB,9.7964E+01_JPRB/)  
+KBO( :, 1,35,16) = (/&
+ & 5.9022E+02_JPRB,5.8986E+02_JPRB,4.4268E+02_JPRB,2.9515E+02_JPRB,1.4762E+02_JPRB,9.6547E+01_JPRB/)  
+KBO( :, 2,35,16) = (/&
+ & 5.5830E+02_JPRB,5.5796E+02_JPRB,4.1874E+02_JPRB,2.7919E+02_JPRB,1.3963E+02_JPRB,9.1112E+01_JPRB/)  
+KBO( :, 3,35,16) = (/&
+ & 5.2772E+02_JPRB,5.2741E+02_JPRB,3.9581E+02_JPRB,2.6389E+02_JPRB,1.3198E+02_JPRB,9.3202E+01_JPRB/)  
+KBO( :, 4,35,16) = (/&
+ & 4.9925E+02_JPRB,4.9895E+02_JPRB,3.7445E+02_JPRB,2.4965E+02_JPRB,1.2485E+02_JPRB,1.0012E+02_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART36',1,ZHOOK_HANDLE)
+END SUBROUTINE PART36
+
+
+SUBROUTINE PART37
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART37',0,ZHOOK_HANDLE)
+
+
+KBO( :, 5,35,16) = (/&
+ & 4.7190E+02_JPRB,4.7162E+02_JPRB,3.5394E+02_JPRB,2.3598E+02_JPRB,1.1801E+02_JPRB,1.1144E+02_JPRB/)  
+KBO( :, 1,36,16) = (/&
+ & 6.0541E+02_JPRB,6.0504E+02_JPRB,4.5407E+02_JPRB,3.0274E+02_JPRB,1.5140E+02_JPRB,9.9056E+01_JPRB/)  
+KBO( :, 2,36,16) = (/&
+ & 5.7172E+02_JPRB,5.7138E+02_JPRB,4.2880E+02_JPRB,2.8589E+02_JPRB,1.4298E+02_JPRB,9.6302E+01_JPRB/)  
+KBO( :, 3,36,16) = (/&
+ & 5.3964E+02_JPRB,5.3931E+02_JPRB,4.0474E+02_JPRB,2.6984E+02_JPRB,1.3495E+02_JPRB,1.0085E+02_JPRB/)  
+KBO( :, 4,36,16) = (/&
+ & 5.0967E+02_JPRB,5.0936E+02_JPRB,3.8226E+02_JPRB,2.5485E+02_JPRB,1.2745E+02_JPRB,1.1048E+02_JPRB/)  
+KBO( :, 5,36,16) = (/&
+ & 4.8120E+02_JPRB,4.8091E+02_JPRB,3.6091E+02_JPRB,2.4062E+02_JPRB,1.2033E+02_JPRB,1.2766E+02_JPRB/)  
+KBO( :, 1,37,16) = (/&
+ & 6.2365E+02_JPRB,6.2328E+02_JPRB,4.6775E+02_JPRB,3.1185E+02_JPRB,1.5596E+02_JPRB,1.0253E+02_JPRB/)  
+KBO( :, 2,37,16) = (/&
+ & 5.8812E+02_JPRB,5.8777E+02_JPRB,4.4110E+02_JPRB,2.9409E+02_JPRB,1.4707E+02_JPRB,1.0086E+02_JPRB/)  
+KBO( :, 3,37,16) = (/&
+ & 5.5432E+02_JPRB,5.5398E+02_JPRB,4.1575E+02_JPRB,2.7718E+02_JPRB,1.3861E+02_JPRB,1.0660E+02_JPRB/)  
+KBO( :, 4,37,16) = (/&
+ & 5.2295E+02_JPRB,5.2264E+02_JPRB,3.9222E+02_JPRB,2.6149E+02_JPRB,1.3076E+02_JPRB,1.1783E+02_JPRB/)  
+KBO( :, 5,37,16) = (/&
+ & 4.9325E+02_JPRB,4.9295E+02_JPRB,3.6994E+02_JPRB,2.4664E+02_JPRB,1.2334E+02_JPRB,1.3920E+02_JPRB/)  
+KBO( :, 1,38,16) = (/&
+ & 6.4066E+02_JPRB,6.4028E+02_JPRB,4.8051E+02_JPRB,3.2036E+02_JPRB,1.6020E+02_JPRB,1.0610E+02_JPRB/)  
+KBO( :, 2,38,16) = (/&
+ & 6.0334E+02_JPRB,6.0298E+02_JPRB,4.5252E+02_JPRB,3.0169E+02_JPRB,1.5087E+02_JPRB,1.0585E+02_JPRB/)  
+KBO( :, 3,38,16) = (/&
+ & 5.6803E+02_JPRB,5.6769E+02_JPRB,4.2603E+02_JPRB,2.8403E+02_JPRB,1.4204E+02_JPRB,1.1325E+02_JPRB/)  
+KBO( :, 4,38,16) = (/&
+ & 5.3536E+02_JPRB,5.3504E+02_JPRB,4.0152E+02_JPRB,2.6769E+02_JPRB,1.3386E+02_JPRB,1.2673E+02_JPRB/)  
+KBO( :, 5,38,16) = (/&
+ & 5.0450E+02_JPRB,5.0419E+02_JPRB,3.7838E+02_JPRB,2.5226E+02_JPRB,1.2614E+02_JPRB,1.5384E+02_JPRB/)  
+KBO( :, 1,39,16) = (/&
+ & 6.5607E+02_JPRB,6.5567E+02_JPRB,4.9206E+02_JPRB,3.2805E+02_JPRB,1.6405E+02_JPRB,1.1010E+02_JPRB/)  
+KBO( :, 2,39,16) = (/&
+ & 6.1741E+02_JPRB,6.1704E+02_JPRB,4.6306E+02_JPRB,3.0872E+02_JPRB,1.5438E+02_JPRB,1.1190E+02_JPRB/)  
+KBO( :, 3,39,16) = (/&
+ & 5.8064E+02_JPRB,5.8030E+02_JPRB,4.3549E+02_JPRB,2.9034E+02_JPRB,1.4519E+02_JPRB,1.2173E+02_JPRB/)  
+KBO( :, 4,39,16) = (/&
+ & 5.4667E+02_JPRB,5.4634E+02_JPRB,4.1001E+02_JPRB,2.7335E+02_JPRB,1.3668E+02_JPRB,1.3901E+02_JPRB/)  
+KBO( :, 5,39,16) = (/&
+ & 5.1480E+02_JPRB,5.1449E+02_JPRB,3.8610E+02_JPRB,2.5741E+02_JPRB,1.2872E+02_JPRB,1.7411E+02_JPRB/)  
+KBO( :, 1,40,16) = (/&
+ & 6.7476E+02_JPRB,6.7436E+02_JPRB,5.0608E+02_JPRB,3.3740E+02_JPRB,1.6871E+02_JPRB,1.1362E+02_JPRB/)  
+KBO( :, 2,40,16) = (/&
+ & 6.3434E+02_JPRB,6.3396E+02_JPRB,4.7576E+02_JPRB,3.1718E+02_JPRB,1.5861E+02_JPRB,1.1463E+02_JPRB/)  
+KBO( :, 3,40,16) = (/&
+ & 5.9602E+02_JPRB,5.9566E+02_JPRB,4.4702E+02_JPRB,2.9802E+02_JPRB,1.4902E+02_JPRB,1.2450E+02_JPRB/)  
+KBO( :, 4,40,16) = (/&
+ & 5.6052E+02_JPRB,5.6019E+02_JPRB,4.2040E+02_JPRB,2.8027E+02_JPRB,1.4015E+02_JPRB,1.4231E+02_JPRB/)  
+KBO( :, 5,40,16) = (/&
+ & 5.2757E+02_JPRB,5.2726E+02_JPRB,3.9569E+02_JPRB,2.6380E+02_JPRB,1.3191E+02_JPRB,1.7853E+02_JPRB/)  
+KBO( :, 1,41,16) = (/&
+ & 6.9313E+02_JPRB,6.9271E+02_JPRB,5.1985E+02_JPRB,3.4658E+02_JPRB,1.7330E+02_JPRB,1.1720E+02_JPRB/)  
+KBO( :, 2,41,16) = (/&
+ & 6.5096E+02_JPRB,6.5057E+02_JPRB,4.8822E+02_JPRB,3.2549E+02_JPRB,1.6276E+02_JPRB,1.1702E+02_JPRB/)  
+KBO( :, 3,41,16) = (/&
+ & 6.1137E+02_JPRB,6.1101E+02_JPRB,4.5853E+02_JPRB,3.0570E+02_JPRB,1.5286E+02_JPRB,1.2672E+02_JPRB/)  
+KBO( :, 4,41,16) = (/&
+ & 5.7432E+02_JPRB,5.7398E+02_JPRB,4.3074E+02_JPRB,2.8717E+02_JPRB,1.4359E+02_JPRB,1.4478E+02_JPRB/)  
+KBO( :, 5,41,16) = (/&
+ & 5.4017E+02_JPRB,5.3985E+02_JPRB,4.0513E+02_JPRB,2.7009E+02_JPRB,1.3505E+02_JPRB,1.8129E+02_JPRB/)  
+KBO( :, 1,42,16) = (/&
+ & 7.1087E+02_JPRB,7.1044E+02_JPRB,5.3316E+02_JPRB,3.5544E+02_JPRB,1.7773E+02_JPRB,1.2104E+02_JPRB/)  
+KBO( :, 2,42,16) = (/&
+ & 6.6722E+02_JPRB,6.6682E+02_JPRB,5.0042E+02_JPRB,3.3362E+02_JPRB,1.6682E+02_JPRB,1.1969E+02_JPRB/)  
+KBO( :, 3,42,16) = (/&
+ & 6.2628E+02_JPRB,6.2590E+02_JPRB,4.6971E+02_JPRB,3.1315E+02_JPRB,1.5658E+02_JPRB,1.2937E+02_JPRB/)  
+KBO( :, 4,42,16) = (/&
+ & 5.8799E+02_JPRB,5.8763E+02_JPRB,4.4099E+02_JPRB,2.9400E+02_JPRB,1.4701E+02_JPRB,1.4803E+02_JPRB/)  
+KBO( :, 5,42,16) = (/&
+ & 5.5259E+02_JPRB,5.5226E+02_JPRB,4.1445E+02_JPRB,2.7630E+02_JPRB,1.3816E+02_JPRB,1.8567E+02_JPRB/)  
+KBO( :, 1,43,16) = (/&
+ & 7.3062E+02_JPRB,7.3018E+02_JPRB,5.4797E+02_JPRB,3.6532E+02_JPRB,1.8267E+02_JPRB,1.2580E+02_JPRB/)  
+KBO( :, 2,43,16) = (/&
+ & 6.8544E+02_JPRB,6.8503E+02_JPRB,5.1409E+02_JPRB,3.4273E+02_JPRB,1.7137E+02_JPRB,1.2199E+02_JPRB/)  
+KBO( :, 3,43,16) = (/&
+ & 6.4317E+02_JPRB,6.4278E+02_JPRB,4.8238E+02_JPRB,3.2159E+02_JPRB,1.6080E+02_JPRB,1.3097E+02_JPRB/)  
+KBO( :, 4,43,16) = (/&
+ & 6.0333E+02_JPRB,6.0297E+02_JPRB,4.5250E+02_JPRB,3.0167E+02_JPRB,1.5084E+02_JPRB,1.4959E+02_JPRB/)  
+KBO( :, 5,43,16) = (/&
+ & 5.6660E+02_JPRB,5.6626E+02_JPRB,4.2495E+02_JPRB,2.8331E+02_JPRB,1.4166E+02_JPRB,1.8670E+02_JPRB/)  
+KBO( :, 1,44,16) = (/&
+ & 7.5137E+02_JPRB,7.5091E+02_JPRB,5.6353E+02_JPRB,3.7569E+02_JPRB,1.8785E+02_JPRB,1.3103E+02_JPRB/)  
+KBO( :, 2,44,16) = (/&
+ & 7.0468E+02_JPRB,7.0426E+02_JPRB,5.2852E+02_JPRB,3.5235E+02_JPRB,1.7618E+02_JPRB,1.2458E+02_JPRB/)  
+KBO( :, 3,44,16) = (/&
+ & 6.6086E+02_JPRB,6.6046E+02_JPRB,4.9565E+02_JPRB,3.3044E+02_JPRB,1.6522E+02_JPRB,1.3258E+02_JPRB/)  
+KBO( :, 4,44,16) = (/&
+ & 6.1971E+02_JPRB,6.1934E+02_JPRB,4.6479E+02_JPRB,3.0986E+02_JPRB,1.5494E+02_JPRB,1.5142E+02_JPRB/)  
+KBO( :, 5,44,16) = (/&
+ & 5.8152E+02_JPRB,5.8117E+02_JPRB,4.3614E+02_JPRB,2.9077E+02_JPRB,1.4539E+02_JPRB,1.8803E+02_JPRB/)  
+KBO( :, 1,45,16) = (/&
+ & 7.7242E+02_JPRB,7.7196E+02_JPRB,5.7932E+02_JPRB,3.8622E+02_JPRB,1.9312E+02_JPRB,1.3645E+02_JPRB/)  
+KBO( :, 2,45,16) = (/&
+ & 7.2383E+02_JPRB,7.2339E+02_JPRB,5.4287E+02_JPRB,3.6192E+02_JPRB,1.8097E+02_JPRB,1.2782E+02_JPRB/)  
+KBO( :, 3,45,16) = (/&
+ & 6.7845E+02_JPRB,6.7804E+02_JPRB,5.0884E+02_JPRB,3.3923E+02_JPRB,1.6962E+02_JPRB,1.3514E+02_JPRB/)  
+KBO( :, 4,45,16) = (/&
+ & 6.3619E+02_JPRB,6.3581E+02_JPRB,4.7715E+02_JPRB,3.1810E+02_JPRB,1.5906E+02_JPRB,1.5528E+02_JPRB/)  
+KBO( :, 5,45,16) = (/&
+ & 5.9654E+02_JPRB,5.9618E+02_JPRB,4.4741E+02_JPRB,2.9827E+02_JPRB,1.4914E+02_JPRB,1.9320E+02_JPRB/)  
+KBO( :, 1,46,16) = (/&
+ & 7.9501E+02_JPRB,7.9453E+02_JPRB,5.9626E+02_JPRB,3.9751E+02_JPRB,1.9876E+02_JPRB,1.4240E+02_JPRB/)  
+KBO( :, 2,46,16) = (/&
+ & 7.4406E+02_JPRB,7.4362E+02_JPRB,5.5805E+02_JPRB,3.7204E+02_JPRB,1.8602E+02_JPRB,1.3140E+02_JPRB/)  
+KBO( :, 3,46,16) = (/&
+ & 6.9726E+02_JPRB,6.9684E+02_JPRB,5.2295E+02_JPRB,3.4863E+02_JPRB,1.7432E+02_JPRB,1.3799E+02_JPRB/)  
+KBO( :, 4,46,16) = (/&
+ & 6.5358E+02_JPRB,6.5318E+02_JPRB,4.9018E+02_JPRB,3.2679E+02_JPRB,1.6340E+02_JPRB,1.5937E+02_JPRB/)  
+KBO( :, 5,46,16) = (/&
+ & 6.1254E+02_JPRB,6.1218E+02_JPRB,4.5941E+02_JPRB,3.0628E+02_JPRB,1.5314E+02_JPRB,1.9924E+02_JPRB/)  
+KBO( :, 1,47,16) = (/&
+ & 8.2010E+02_JPRB,8.1961E+02_JPRB,6.1508E+02_JPRB,4.1005E+02_JPRB,2.0503E+02_JPRB,1.4924E+02_JPRB/)  
+KBO( :, 2,47,16) = (/&
+ & 7.6659E+02_JPRB,7.6613E+02_JPRB,5.7494E+02_JPRB,3.8330E+02_JPRB,1.9165E+02_JPRB,1.3525E+02_JPRB/)  
+KBO( :, 3,47,16) = (/&
+ & 7.1831E+02_JPRB,7.1788E+02_JPRB,5.3873E+02_JPRB,3.5916E+02_JPRB,1.7958E+02_JPRB,1.3959E+02_JPRB/)  
+KBO( :, 4,47,16) = (/&
+ & 6.7281E+02_JPRB,6.7241E+02_JPRB,5.0461E+02_JPRB,3.3641E+02_JPRB,1.6821E+02_JPRB,1.6058E+02_JPRB/)  
+KBO( :, 5,47,16) = (/&
+ & 6.3054E+02_JPRB,6.3016E+02_JPRB,4.7291E+02_JPRB,3.1527E+02_JPRB,1.5764E+02_JPRB,2.0056E+02_JPRB/)  
+KBO( :, 1,48,16) = (/&
+ & 8.4633E+02_JPRB,8.4583E+02_JPRB,6.3475E+02_JPRB,4.2317E+02_JPRB,2.1159E+02_JPRB,1.5645E+02_JPRB/)  
+KBO( :, 2,48,16) = (/&
+ & 7.9016E+02_JPRB,7.8968E+02_JPRB,5.9262E+02_JPRB,3.9508E+02_JPRB,1.9755E+02_JPRB,1.4053E+02_JPRB/)  
+KBO( :, 3,48,16) = (/&
+ & 7.3934E+02_JPRB,7.3890E+02_JPRB,5.5451E+02_JPRB,3.6967E+02_JPRB,1.8484E+02_JPRB,1.4309E+02_JPRB/)  
+KBO( :, 4,48,16) = (/&
+ & 6.9255E+02_JPRB,6.9213E+02_JPRB,5.1941E+02_JPRB,3.4628E+02_JPRB,1.7314E+02_JPRB,1.6459E+02_JPRB/)  
+KBO( :, 5,48,16) = (/&
+ & 6.4886E+02_JPRB,6.4847E+02_JPRB,4.8665E+02_JPRB,3.2443E+02_JPRB,1.6222E+02_JPRB,2.0658E+02_JPRB/)  
+KBO( :, 1,49,16) = (/&
+ & 8.7303E+02_JPRB,8.7251E+02_JPRB,6.5477E+02_JPRB,4.3652E+02_JPRB,2.1826E+02_JPRB,1.6405E+02_JPRB/)  
+KBO( :, 2,49,16) = (/&
+ & 8.1423E+02_JPRB,8.1374E+02_JPRB,6.1067E+02_JPRB,4.0712E+02_JPRB,2.0356E+02_JPRB,1.4757E+02_JPRB/)  
+KBO( :, 3,49,16) = (/&
+ & 7.6096E+02_JPRB,7.6050E+02_JPRB,5.7072E+02_JPRB,3.8048E+02_JPRB,1.9025E+02_JPRB,1.4935E+02_JPRB/)  
+KBO( :, 4,49,16) = (/&
+ & 7.1274E+02_JPRB,7.1231E+02_JPRB,5.3455E+02_JPRB,3.5637E+02_JPRB,1.7819E+02_JPRB,1.7305E+02_JPRB/)  
+KBO( :, 5,49,16) = (/&
+ & 6.6745E+02_JPRB,6.6705E+02_JPRB,5.0059E+02_JPRB,3.3373E+02_JPRB,1.6687E+02_JPRB,2.2042E+02_JPRB/)  
+KBO( :, 1,50,16) = (/&
+ & 8.9886E+02_JPRB,8.9832E+02_JPRB,6.7415E+02_JPRB,4.4943E+02_JPRB,2.2472E+02_JPRB,1.7154E+02_JPRB/)  
+KBO( :, 2,50,16) = (/&
+ & 8.3744E+02_JPRB,8.3694E+02_JPRB,6.2808E+02_JPRB,4.1872E+02_JPRB,2.0936E+02_JPRB,1.5447E+02_JPRB/)  
+KBO( :, 3,50,16) = (/&
+ & 7.8206E+02_JPRB,7.8159E+02_JPRB,5.8654E+02_JPRB,3.9103E+02_JPRB,1.9552E+02_JPRB,1.5292E+02_JPRB/)  
+KBO( :, 4,50,16) = (/&
+ & 7.3184E+02_JPRB,7.3140E+02_JPRB,5.4888E+02_JPRB,3.6592E+02_JPRB,1.8296E+02_JPRB,1.7616E+02_JPRB/)  
+KBO( :, 5,50,16) = (/&
+ & 6.8529E+02_JPRB,6.8488E+02_JPRB,5.1397E+02_JPRB,3.4265E+02_JPRB,1.7133E+02_JPRB,2.2472E+02_JPRB/)  
+KBO( :, 1,51,16) = (/&
+ & 9.2454E+02_JPRB,9.2398E+02_JPRB,6.9341E+02_JPRB,4.6227E+02_JPRB,2.3114E+02_JPRB,1.7932E+02_JPRB/)  
+KBO( :, 2,51,16) = (/&
+ & 8.6100E+02_JPRB,8.6049E+02_JPRB,6.4575E+02_JPRB,4.3050E+02_JPRB,2.1525E+02_JPRB,1.6117E+02_JPRB/)  
+KBO( :, 3,51,16) = (/&
+ & 8.0315E+02_JPRB,8.0267E+02_JPRB,6.0236E+02_JPRB,4.0158E+02_JPRB,2.0079E+02_JPRB,1.5563E+02_JPRB/)  
+KBO( :, 4,51,16) = (/&
+ & 7.5078E+02_JPRB,7.5033E+02_JPRB,5.6309E+02_JPRB,3.7539E+02_JPRB,1.8770E+02_JPRB,1.7663E+02_JPRB/)  
+KBO( :, 5,51,16) = (/&
+ & 7.0300E+02_JPRB,7.0257E+02_JPRB,5.2725E+02_JPRB,3.5150E+02_JPRB,1.7575E+02_JPRB,2.2386E+02_JPRB/)  
+KBO( :, 1,52,16) = (/&
+ & 9.5090E+02_JPRB,9.5033E+02_JPRB,7.1318E+02_JPRB,4.7545E+02_JPRB,2.3773E+02_JPRB,1.8754E+02_JPRB/)  
+KBO( :, 2,52,16) = (/&
+ & 8.8502E+02_JPRB,8.8448E+02_JPRB,6.6376E+02_JPRB,4.4251E+02_JPRB,2.2126E+02_JPRB,1.6850E+02_JPRB/)  
+KBO( :, 3,52,16) = (/&
+ & 8.2471E+02_JPRB,8.2421E+02_JPRB,6.1853E+02_JPRB,4.1235E+02_JPRB,2.0618E+02_JPRB,1.6061E+02_JPRB/)  
+KBO( :, 4,52,16) = (/&
+ & 7.7013E+02_JPRB,7.6967E+02_JPRB,5.7760E+02_JPRB,3.8507E+02_JPRB,1.9253E+02_JPRB,1.8010E+02_JPRB/)  
+KBO( :, 5,52,16) = (/&
+ & 7.2097E+02_JPRB,7.2053E+02_JPRB,5.4073E+02_JPRB,3.6048E+02_JPRB,1.8024E+02_JPRB,2.2809E+02_JPRB/)  
+KBO( :, 1,53,16) = (/&
+ & 9.7788E+02_JPRB,9.7729E+02_JPRB,7.3341E+02_JPRB,4.8894E+02_JPRB,2.4447E+02_JPRB,1.9637E+02_JPRB/)  
+KBO( :, 2,53,16) = (/&
+ & 9.0961E+02_JPRB,9.0906E+02_JPRB,6.8221E+02_JPRB,4.5481E+02_JPRB,2.2740E+02_JPRB,1.7681E+02_JPRB/)  
+KBO( :, 3,53,16) = (/&
+ & 8.4702E+02_JPRB,8.4651E+02_JPRB,6.3527E+02_JPRB,4.2351E+02_JPRB,2.1176E+02_JPRB,1.6836E+02_JPRB/)  
+KBO( :, 4,53,16) = (/&
+ & 7.9046E+02_JPRB,7.8999E+02_JPRB,5.9285E+02_JPRB,3.9523E+02_JPRB,1.9762E+02_JPRB,1.8837E+02_JPRB/)  
+KBO( :, 5,53,16) = (/&
+ & 7.3936E+02_JPRB,7.3892E+02_JPRB,5.5452E+02_JPRB,3.6968E+02_JPRB,1.8484E+02_JPRB,2.4127E+02_JPRB/)  
+KBO( :, 1,54,16) = (/&
+ & 1.0035E+03_JPRB,1.0029E+03_JPRB,7.5259E+02_JPRB,5.0173E+02_JPRB,2.5087E+02_JPRB,2.0491E+02_JPRB/)  
+KBO( :, 2,54,16) = (/&
+ & 9.3285E+02_JPRB,9.3229E+02_JPRB,6.9964E+02_JPRB,4.6643E+02_JPRB,2.3321E+02_JPRB,1.8242E+02_JPRB/)  
+KBO( :, 3,54,16) = (/&
+ & 8.6846E+02_JPRB,8.6794E+02_JPRB,6.5134E+02_JPRB,4.3423E+02_JPRB,2.1712E+02_JPRB,1.7066E+02_JPRB/)  
+KBO( :, 4,54,16) = (/&
+ & 8.0960E+02_JPRB,8.0911E+02_JPRB,6.0720E+02_JPRB,4.0480E+02_JPRB,2.0240E+02_JPRB,1.8019E+02_JPRB/)  
+KBO( :, 5,54,16) = (/&
+ & 7.5654E+02_JPRB,7.5608E+02_JPRB,5.6740E+02_JPRB,3.7827E+02_JPRB,1.8914E+02_JPRB,2.2258E+02_JPRB/)  
+KBO( :, 1,55,16) = (/&
+ & 1.0290E+03_JPRB,1.0283E+03_JPRB,7.7171E+02_JPRB,5.1448E+02_JPRB,2.5724E+02_JPRB,2.1368E+02_JPRB/)  
+KBO( :, 2,55,16) = (/&
+ & 9.5574E+02_JPRB,9.5517E+02_JPRB,7.1681E+02_JPRB,4.7787E+02_JPRB,2.3894E+02_JPRB,1.8874E+02_JPRB/)  
+KBO( :, 3,55,16) = (/&
+ & 8.8926E+02_JPRB,8.8873E+02_JPRB,6.6695E+02_JPRB,4.4463E+02_JPRB,2.2232E+02_JPRB,1.7135E+02_JPRB/)  
+KBO( :, 4,55,16) = (/&
+ & 8.2830E+02_JPRB,8.2781E+02_JPRB,6.2123E+02_JPRB,4.1415E+02_JPRB,2.0708E+02_JPRB,1.6723E+02_JPRB/)  
+KBO( :, 5,55,16) = (/&
+ & 7.7332E+02_JPRB,7.7285E+02_JPRB,5.7999E+02_JPRB,3.8666E+02_JPRB,1.9333E+02_JPRB,1.9285E+02_JPRB/)  
+KBO( :, 1,56,16) = (/&
+ & 1.0544E+03_JPRB,1.0538E+03_JPRB,7.9084E+02_JPRB,5.2722E+02_JPRB,2.6389E+02_JPRB,2.2294E+02_JPRB/)  
+KBO( :, 2,56,16) = (/&
+ & 9.7928E+02_JPRB,9.7870E+02_JPRB,7.3446E+02_JPRB,4.8964E+02_JPRB,2.4482E+02_JPRB,1.9643E+02_JPRB/)  
+KBO( :, 3,56,16) = (/&
+ & 9.1058E+02_JPRB,9.1004E+02_JPRB,6.8294E+02_JPRB,4.5529E+02_JPRB,2.2765E+02_JPRB,1.7473E+02_JPRB/)  
+KBO( :, 4,56,16) = (/&
+ & 8.4774E+02_JPRB,8.4724E+02_JPRB,6.3581E+02_JPRB,4.2387E+02_JPRB,2.1194E+02_JPRB,1.6206E+02_JPRB/)  
+KBO( :, 5,56,16) = (/&
+ & 7.9097E+02_JPRB,7.9049E+02_JPRB,5.9323E+02_JPRB,3.9548E+02_JPRB,1.9774E+02_JPRB,1.7273E+02_JPRB/)  
+KBO( :, 1,57,16) = (/&
+ & 1.0813E+03_JPRB,1.0806E+03_JPRB,8.1095E+02_JPRB,5.4063E+02_JPRB,2.7119E+02_JPRB,2.3288E+02_JPRB/)  
+KBO( :, 2,57,16) = (/&
+ & 1.0033E+03_JPRB,1.0027E+03_JPRB,7.5245E+02_JPRB,5.0163E+02_JPRB,2.5082E+02_JPRB,2.0449E+02_JPRB/)  
+KBO( :, 3,57,16) = (/&
+ & 9.3233E+02_JPRB,9.3177E+02_JPRB,6.9925E+02_JPRB,4.6617E+02_JPRB,2.3308E+02_JPRB,1.8109E+02_JPRB/)  
+KBO( :, 4,57,16) = (/&
+ & 8.6794E+02_JPRB,8.6742E+02_JPRB,6.5095E+02_JPRB,4.3397E+02_JPRB,2.1699E+02_JPRB,1.6333E+02_JPRB/)  
+KBO( :, 5,57,16) = (/&
+ & 8.0892E+02_JPRB,8.0843E+02_JPRB,6.0669E+02_JPRB,4.0446E+02_JPRB,2.0223E+02_JPRB,1.5955E+02_JPRB/)  
+KBO( :, 1,58,16) = (/&
+ & 1.1081E+03_JPRB,1.1074E+03_JPRB,8.3108E+02_JPRB,5.5405E+02_JPRB,2.7884E+02_JPRB,2.4302E+02_JPRB/)  
+KBO( :, 2,58,16) = (/&
+ & 1.0267E+03_JPRB,1.0261E+03_JPRB,7.7004E+02_JPRB,5.1336E+02_JPRB,2.5668E+02_JPRB,2.1265E+02_JPRB/)  
+KBO( :, 3,58,16) = (/&
+ & 9.5368E+02_JPRB,9.5311E+02_JPRB,7.1526E+02_JPRB,4.7684E+02_JPRB,2.3842E+02_JPRB,1.8786E+02_JPRB/)  
+KBO( :, 4,58,16) = (/&
+ & 8.8727E+02_JPRB,8.8673E+02_JPRB,6.6545E+02_JPRB,4.4363E+02_JPRB,2.2182E+02_JPRB,1.6726E+02_JPRB/)  
+KBO( :, 5,58,16) = (/&
+ & 8.2643E+02_JPRB,8.2594E+02_JPRB,6.1982E+02_JPRB,4.1322E+02_JPRB,2.0661E+02_JPRB,1.5255E+02_JPRB/)  
+KBO( :, 1,59,16) = (/&
+ & 1.1197E+03_JPRB,1.1190E+03_JPRB,8.3976E+02_JPRB,5.5984E+02_JPRB,2.8216E+02_JPRB,2.4731E+02_JPRB/)  
+KBO( :, 2,59,16) = (/&
+ & 1.0365E+03_JPRB,1.0359E+03_JPRB,7.7738E+02_JPRB,5.1826E+02_JPRB,2.5916E+02_JPRB,2.1609E+02_JPRB/)  
+KBO( :, 3,59,16) = (/&
+ & 9.6265E+02_JPRB,9.6208E+02_JPRB,7.2199E+02_JPRB,4.8133E+02_JPRB,2.4066E+02_JPRB,1.9071E+02_JPRB/)  
+KBO( :, 4,59,16) = (/&
+ & 8.9534E+02_JPRB,8.9480E+02_JPRB,6.7151E+02_JPRB,4.4767E+02_JPRB,2.2384E+02_JPRB,1.6963E+02_JPRB/)  
+KBO( :, 5,59,16) = (/&
+ & 8.3369E+02_JPRB,8.3319E+02_JPRB,6.2527E+02_JPRB,4.1685E+02_JPRB,2.0842E+02_JPRB,1.5178E+02_JPRB/)  
+
+!     The array SELFREFO contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+SELFREFO( :, 1) = (/&
+ & 2.62628E-01_JPRB, 2.29008E-01_JPRB, 1.99692E-01_JPRB, 1.74129E-01_JPRB, 1.51838E-01_JPRB,&
+ & 1.32400E-01_JPRB, 1.15451E-01_JPRB, 1.00672E-01_JPRB, 8.77845E-02_JPRB, 7.65469E-02_JPRB/)  
+SELFREFO( :, 2) = (/&
+ & 2.45051E-01_JPRB, 2.12961E-01_JPRB, 1.85073E-01_JPRB, 1.60837E-01_JPRB, 1.39775E-01_JPRB,&
+ & 1.21471E-01_JPRB, 1.05564E-01_JPRB, 9.17397E-02_JPRB, 7.97260E-02_JPRB, 6.92856E-02_JPRB/)  
+SELFREFO( :, 3) = (/&
+ & 2.42194E-01_JPRB, 2.09976E-01_JPRB, 1.82044E-01_JPRB, 1.57827E-01_JPRB, 1.36832E-01_JPRB,&
+ & 1.18630E-01_JPRB, 1.02849E-01_JPRB, 8.91673E-02_JPRB, 7.73057E-02_JPRB, 6.70221E-02_JPRB/)  
+SELFREFO( :, 4) = (/&
+ & 2.44485E-01_JPRB, 2.11926E-01_JPRB, 1.83702E-01_JPRB, 1.59237E-01_JPRB, 1.38030E-01_JPRB,&
+ & 1.19648E-01_JPRB, 1.03714E-01_JPRB, 8.99014E-02_JPRB, 7.79286E-02_JPRB, 6.75503E-02_JPRB/)  
+SELFREFO( :, 5) = (/&
+ & 2.43120E-01_JPRB, 2.10743E-01_JPRB, 1.82679E-01_JPRB, 1.58351E-01_JPRB, 1.37263E-01_JPRB,&
+ & 1.18984E-01_JPRB, 1.03139E-01_JPRB, 8.94038E-02_JPRB, 7.74978E-02_JPRB, 6.71774E-02_JPRB/)  
+SELFREFO( :, 6) = (/&
+ & 2.40558E-01_JPRB, 2.08922E-01_JPRB, 1.81446E-01_JPRB, 1.57583E-01_JPRB, 1.36859E-01_JPRB,&
+ & 1.18860E-01_JPRB, 1.03229E-01_JPRB, 8.96529E-02_JPRB, 7.78624E-02_JPRB, 6.76225E-02_JPRB/)  
+SELFREFO( :, 7) = (/&
+ & 2.42496E-01_JPRB, 2.10386E-01_JPRB, 1.82528E-01_JPRB, 1.58359E-01_JPRB, 1.37390E-01_JPRB,&
+ & 1.19198E-01_JPRB, 1.03415E-01_JPRB, 8.97211E-02_JPRB, 7.78409E-02_JPRB, 6.75337E-02_JPRB/)  
+SELFREFO( :, 8) = (/&
+ & 2.39781E-01_JPRB, 2.08227E-01_JPRB, 1.80825E-01_JPRB, 1.57029E-01_JPRB, 1.36365E-01_JPRB,&
+ & 1.18419E-01_JPRB, 1.02836E-01_JPRB, 8.93030E-02_JPRB, 7.75510E-02_JPRB, 6.73456E-02_JPRB/)  
+SELFREFO( :, 9) = (/&
+ & 2.38707E-01_JPRB, 2.07058E-01_JPRB, 1.79605E-01_JPRB, 1.55792E-01_JPRB, 1.35136E-01_JPRB,&
+ & 1.17219E-01_JPRB, 1.01677E-01_JPRB, 8.81962E-02_JPRB, 7.65026E-02_JPRB, 6.63594E-02_JPRB/)  
+SELFREFO( :,10) = (/&
+ & 2.29942E-01_JPRB, 2.00668E-01_JPRB, 1.75121E-01_JPRB, 1.52826E-01_JPRB, 1.33370E-01_JPRB,&
+ & 1.16390E-01_JPRB, 1.01572E-01_JPRB, 8.86410E-02_JPRB, 7.73560E-02_JPRB, 6.75077E-02_JPRB/)  
+SELFREFO( :,11) = (/&
+ & 2.39870E-01_JPRB, 2.08120E-01_JPRB, 1.80573E-01_JPRB, 1.56671E-01_JPRB, 1.35934E-01_JPRB,&
+ & 1.17941E-01_JPRB, 1.02330E-01_JPRB, 8.87854E-02_JPRB, 7.70335E-02_JPRB, 6.68371E-02_JPRB/)  
+SELFREFO( :,12) = (/&
+ & 2.40196E-01_JPRB, 2.08400E-01_JPRB, 1.80812E-01_JPRB, 1.56877E-01_JPRB, 1.36110E-01_JPRB,&
+ & 1.18092E-01_JPRB, 1.02460E-01_JPRB, 8.88962E-02_JPRB, 7.71284E-02_JPRB, 6.69184E-02_JPRB/)  
+SELFREFO( :,13) = (/&
+ & 2.40426E-01_JPRB, 2.08603E-01_JPRB, 1.80991E-01_JPRB, 1.57035E-01_JPRB, 1.36249E-01_JPRB,&
+ & 1.18214E-01_JPRB, 1.02567E-01_JPRB, 8.89909E-02_JPRB, 7.72117E-02_JPRB, 6.69917E-02_JPRB/)  
+SELFREFO( :,14) = (/&
+ & 2.40590E-01_JPRB, 2.08742E-01_JPRB, 1.81110E-01_JPRB, 1.57135E-01_JPRB, 1.36334E-01_JPRB,&
+ & 1.18287E-01_JPRB, 1.02628E-01_JPRB, 8.90428E-02_JPRB, 7.72556E-02_JPRB, 6.70288E-02_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART37',1,ZHOOK_HANDLE)
+END SUBROUTINE PART37
+
+
+SUBROUTINE PART38
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART38',0,ZHOOK_HANDLE)
+
+
+SELFREFO( :,15) = (/&
+ & 2.40634E-01_JPRB, 2.08779E-01_JPRB, 1.81141E-01_JPRB, 1.57162E-01_JPRB, 1.36357E-01_JPRB,&
+ & 1.18306E-01_JPRB, 1.02645E-01_JPRB, 8.90565E-02_JPRB, 7.72673E-02_JPRB, 6.70387E-02_JPRB/)  
+SELFREFO( :,16) = (/&
+ & 2.40652E-01_JPRB, 2.08793E-01_JPRB, 1.81151E-01_JPRB, 1.57169E-01_JPRB, 1.36362E-01_JPRB,&
+ & 1.18309E-01_JPRB, 1.02647E-01_JPRB, 8.90576E-02_JPRB, 7.72675E-02_JPRB, 6.70383E-02_JPRB/)  
+
+FRACREFAO( :, 1) = (/&
+ !     From P = 
+ & 0.15579100_JPRB,0.14918099_JPRB,0.14113800_JPRB,0.13127001_JPRB,&
+ & 0.11796300_JPRB,0.10174300_JPRB,0.08282370_JPRB,0.06238150_JPRB,&
+ & 0.04213440_JPRB,0.00458968_JPRB,0.00377949_JPRB,0.00298736_JPRB,&
+ & 0.00220743_JPRB,0.00140644_JPRB,0.00053024_JPRB,0.00007459_JPRB/)  
+FRACREFAO( :, 2) = (/&
+ & 0.15292799_JPRB,0.15004000_JPRB,0.14211500_JPRB,0.13176700_JPRB,&
+ & 0.11821100_JPRB,0.10186300_JPRB,0.08288040_JPRB,0.06241390_JPRB,&
+ & 0.04220720_JPRB,0.00459006_JPRB,0.00377919_JPRB,0.00298743_JPRB,&
+ & 0.00220743_JPRB,0.00140644_JPRB,0.00053024_JPRB,0.00007459_JPRB/)  
+FRACREFAO( :, 3) = (/&
+ & 0.14386199_JPRB,0.15125300_JPRB,0.14650001_JPRB,0.13377000_JPRB,&
+ & 0.11895900_JPRB,0.10229400_JPRB,0.08312110_JPRB,0.06239520_JPRB,&
+ & 0.04225560_JPRB,0.00459428_JPRB,0.00378865_JPRB,0.00298860_JPRB,&
+ & 0.00220743_JPRB,0.00140644_JPRB,0.00053024_JPRB,0.00007459_JPRB/)  
+FRACREFAO( :, 4) = (/&
+ & 0.14359100_JPRB,0.14561599_JPRB,0.14479300_JPRB,0.13740200_JPRB,&
+ & 0.12150100_JPRB,0.10315400_JPRB,0.08355480_JPRB,0.06247240_JPRB,&
+ & 0.04230980_JPRB,0.00459916_JPRB,0.00378373_JPRB,0.00300063_JPRB,&
+ & 0.00221111_JPRB,0.00140644_JPRB,0.00053024_JPRB,0.00007459_JPRB/)  
+FRACREFAO( :, 5) = (/&
+ & 0.14337599_JPRB,0.14451601_JPRB,0.14238000_JPRB,0.13520500_JPRB,&
+ & 0.12354200_JPRB,0.10581200_JPRB,0.08451810_JPRB,0.06262440_JPRB,&
+ & 0.04239590_JPRB,0.00460297_JPRB,0.00378701_JPRB,0.00300466_JPRB,&
+ & 0.00221899_JPRB,0.00141020_JPRB,0.00053024_JPRB,0.00007459_JPRB/)  
+FRACREFAO( :, 6) = (/&
+ & 0.14322001_JPRB,0.14397401_JPRB,0.14117201_JPRB,0.13401900_JPRB,&
+ & 0.12255500_JPRB,0.10774100_JPRB,0.08617650_JPRB,0.06296420_JPRB,&
+ & 0.04249590_JPRB,0.00463406_JPRB,0.00378241_JPRB,0.00302037_JPRB,&
+ & 0.00221583_JPRB,0.00141103_JPRB,0.00053814_JPRB,0.00007991_JPRB/)  
+FRACREFAO( :, 7) = (/&
+ & 0.14309500_JPRB,0.14364301_JPRB,0.14043900_JPRB,0.13348100_JPRB,&
+ & 0.12211600_JPRB,0.10684700_JPRB,0.08820590_JPRB,0.06374610_JPRB,&
+ & 0.04264730_JPRB,0.00464231_JPRB,0.00384022_JPRB,0.00303427_JPRB,&
+ & 0.00221825_JPRB,0.00140943_JPRB,0.00055564_JPRB,0.00007991_JPRB/)  
+FRACREFAO( :, 8) = (/&
+ & 0.15579100_JPRB,0.14918099_JPRB,0.14113800_JPRB,0.13127001_JPRB,&
+ & 0.11796300_JPRB,0.10174300_JPRB,0.08282370_JPRB,0.06238150_JPRB,&
+ & 0.04213440_JPRB,0.00458968_JPRB,0.00377949_JPRB,0.00298736_JPRB,&
+ & 0.00220743_JPRB,0.00140644_JPRB,0.00053024_JPRB,0.00007459_JPRB/)  
+FRACREFAO( :, 9) = (/&
+ & 0.15937001_JPRB,0.15159500_JPRB,0.14242800_JPRB,0.13078900_JPRB,&
+ & 0.11671300_JPRB,0.10035700_JPRB,0.08143450_JPRB,0.06093850_JPRB,&
+ & 0.04105320_JPRB,0.00446233_JPRB,0.00369844_JPRB,0.00293784_JPRB,&
+ & 0.00216425_JPRB,0.00143403_JPRB,0.00054571_JPRB,0.00007991_JPRB/)  
+
+FRACREFBO( :, 1) = (/&
+ !     From P = 1.17 mb.
+ & 0.15558299_JPRB,0.14930600_JPRB,0.14104301_JPRB,0.13124099_JPRB,&
+ & 0.11792900_JPRB,0.10159200_JPRB,0.08314130_JPRB,0.06240450_JPRB,&
+ & 0.04217020_JPRB,0.00459313_JPRB,0.00379798_JPRB,0.00299835_JPRB,&
+ & 0.00218950_JPRB,0.00140615_JPRB,0.00053010_JPRB,0.00007457_JPRB/)  
+FRACREFBO( :, 2) = (/&
+ & 0.15592700_JPRB,0.14918999_JPRB,0.14095700_JPRB,0.13115700_JPRB,&
+ & 0.11788900_JPRB,0.10158000_JPRB,0.08313780_JPRB,0.06240240_JPRB,&
+ & 0.04217000_JPRB,0.00459313_JPRB,0.00379798_JPRB,0.00299835_JPRB,&
+ & 0.00218950_JPRB,0.00140615_JPRB,0.00053010_JPRB,0.00007457_JPRB/)  
+FRACREFBO( :, 3) = (/&
+ & 0.15949000_JPRB,0.15014900_JPRB,0.14162201_JPRB,0.13080800_JPRB,&
+ & 0.11713500_JPRB,0.10057100_JPRB,0.08170080_JPRB,0.06128110_JPRB,&
+ & 0.04165600_JPRB,0.00459202_JPRB,0.00379835_JPRB,0.00299717_JPRB,&
+ & 0.00218958_JPRB,0.00140616_JPRB,0.00053010_JPRB,0.00007457_JPRB/)  
+FRACREFBO( :, 4) = (/&
+ & 0.15967900_JPRB,0.15038200_JPRB,0.14196999_JPRB,0.13074800_JPRB,&
+ & 0.11701700_JPRB,0.10053000_JPRB,0.08160790_JPRB,0.06122690_JPRB,&
+ & 0.04128310_JPRB,0.00456598_JPRB,0.00379486_JPRB,0.00299457_JPRB,&
+ & 0.00219016_JPRB,0.00140619_JPRB,0.00053011_JPRB,0.00007456_JPRB/)  
+FRACREFBO( :, 5) = (/&
+ & 0.15989800_JPRB,0.15057300_JPRB,0.14207700_JPRB,0.13068600_JPRB,&
+ & 0.11682900_JPRB,0.10053900_JPRB,0.08163610_JPRB,0.06121870_JPRB,&
+ & 0.04121690_JPRB,0.00449061_JPRB,0.00371235_JPRB,0.00294207_JPRB,&
+ & 0.00217778_JPRB,0.00139877_JPRB,0.00053011_JPRB,0.00007455_JPRB/)  
+FRACREFBO( :, 6) = (/&
+ & 0.15950100_JPRB,0.15112500_JPRB,0.14199100_JPRB,0.13071300_JPRB,&
+ & 0.11680800_JPRB,0.10054600_JPRB,0.08179050_JPRB,0.06120910_JPRB,&
+ & 0.04126050_JPRB,0.00444324_JPRB,0.00366843_JPRB,0.00289369_JPRB,&
+ & 0.00211550_JPRB,0.00134746_JPRB,0.00050874_JPRB,0.00007863_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB4:PART38',1,ZHOOK_HANDLE)
+END SUBROUTINE PART38
+
+
+END SUBROUTINE RRTM_KGB4
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb4.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb4.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb4.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_KGB4
+END SUBROUTINE RRTM_KGB4
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb5.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb5.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb5.F90	(revision 1989)
@@ -0,0 +1,11311 @@
+#ifdef VPP
+!OCL SCALAR
+#endif
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0 
+SUBROUTINE RRTM_KGB5
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 5:  700-820 cm-1 (low - H2O,CO2; high - O3,CO2)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     R. Elkhatib 12-10-2005 Split for faster and more robust compilation
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO5 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+ & FRACREFBO, CCL4O  
+USE YOERRTA5 , ONLY : STRRAT1   ,STRRAT2
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5',0,ZHOOK_HANDLE)
+
+CALL PART1
+CALL PART2
+CALL PART3
+CALL PART4
+CALL PART5
+CALL PART6
+CALL PART7
+CALL PART8
+CALL PART9
+CALL PART10
+CALL PART11
+CALL PART12
+CALL PART13
+CALL PART14
+CALL PART15
+CALL PART16
+CALL PART17
+CALL PART18
+CALL PART19
+CALL PART20
+CALL PART21
+CALL PART22
+CALL PART23
+CALL PART24
+CALL PART25
+CALL PART26
+CALL PART27
+CALL PART28
+CALL PART29
+CALL PART30
+CALL PART31
+CALL PART32
+CALL PART33
+CALL PART34
+CALL PART35
+CALL PART36
+CALL PART37
+CALL PART38
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5',1,ZHOOK_HANDLE)
+
+!     -----------------------------------------------------------------
+
+CONTAINS
+
+
+SUBROUTINE PART1
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART1',0,ZHOOK_HANDLE)
+
+
+CCL4O( :) = (/&
+ & 26.1407_JPRB,  53.9776_JPRB,  63.8085_JPRB,  36.1701_JPRB,&
+ & 15.4099_JPRB, 10.23116_JPRB,  4.82948_JPRB,  5.03836_JPRB,&
+ & 1.75558_JPRB,  0.0_JPRB     ,  0.0_JPRB     ,  0.0_JPRB     ,&
+ & 0.0_JPRB     ,  0.0_JPRB     ,  0.0_JPRB     ,  0.0_JPRB      /)  
+
+STRRAT1 = 90.4894_JPRB
+STRRAT2 = 0.900502_JPRB
+
+!     ------------------------------------------------------------------
+
+!     The array KAO contains absorption coefs for each of the 16 g-intervals
+!     for a range of pressure levels > ~100mb, temperatures, and ratios
+!     of water vapor to CO2.  The first index in the array, JS, runs
+!     from 1 to 9 and corresponds to different water vapor to CO2 ratios,
+!     as expressed through the binary species parameter eta, defined as
+!     eta = h2o/(h20 + (rat) * co2), where rat is the ratio of the integrated
+!     line strength in the band of co2 to that of h2o.  For instance,
+!     JS=1 refers to dry air (eta = 0), JS = 9 corresponds to eta = 1.0.
+!     The 2nd index in the array, JT, which runs from 1 to 5, corresponds 
+!     to different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this  pressure 
+!     level, JT = 2 refers to the temperature TREF-15, 
+!     JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the reference pressure level (e.g. JP = 1 is for a
+!     pressure of 1053.63 mb).  The fourth index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+
+KAO( :, 1, 1, 1) = (/&
+ & 1.2281E-06_JPRB,7.3444E-06_JPRB,1.3802E-05_JPRB,2.1363E-05_JPRB,3.4026E-05_JPRB,5.1149E-05_JPRB,&
+ & 7.6454E-05_JPRB,1.1492E-04_JPRB,5.1051E-05_JPRB/)  
+KAO( :, 2, 1, 1) = (/&
+ & 1.6369E-06_JPRB,8.9617E-06_JPRB,1.6072E-05_JPRB,2.4135E-05_JPRB,3.4106E-05_JPRB,4.9214E-05_JPRB,&
+ & 7.9048E-05_JPRB,1.3905E-04_JPRB,5.4063E-05_JPRB/)  
+KAO( :, 3, 1, 1) = (/&
+ & 2.1611E-06_JPRB,1.1094E-05_JPRB,1.8726E-05_JPRB,2.7825E-05_JPRB,3.8281E-05_JPRB,5.1592E-05_JPRB,&
+ & 7.6813E-05_JPRB,1.3616E-04_JPRB,6.0994E-05_JPRB/)  
+KAO( :, 4, 1, 1) = (/&
+ & 2.8032E-06_JPRB,1.3911E-05_JPRB,2.1873E-05_JPRB,3.1872E-05_JPRB,4.3669E-05_JPRB,5.8650E-05_JPRB,&
+ & 8.1107E-05_JPRB,1.3247E-04_JPRB,6.8413E-05_JPRB/)  
+KAO( :, 5, 1, 1) = (/&
+ & 3.5749E-06_JPRB,1.7399E-05_JPRB,2.6270E-05_JPRB,3.5363E-05_JPRB,4.8470E-05_JPRB,6.5479E-05_JPRB,&
+ & 9.0735E-05_JPRB,1.4099E-04_JPRB,5.7731E-05_JPRB/)  
+KAO( :, 1, 2, 1) = (/&
+ & 9.2208E-07_JPRB,5.6661E-06_JPRB,1.0853E-05_JPRB,1.7695E-05_JPRB,2.8111E-05_JPRB,4.1811E-05_JPRB,&
+ & 5.7766E-05_JPRB,8.8171E-05_JPRB,3.6499E-05_JPRB/)  
+KAO( :, 2, 2, 1) = (/&
+ & 1.2339E-06_JPRB,6.8718E-06_JPRB,1.2450E-05_JPRB,1.9038E-05_JPRB,2.7428E-05_JPRB,4.2214E-05_JPRB,&
+ & 6.5891E-05_JPRB,1.0808E-04_JPRB,3.9328E-05_JPRB/)  
+KAO( :, 3, 2, 1) = (/&
+ & 1.6382E-06_JPRB,8.4733E-06_JPRB,1.4470E-05_JPRB,2.1567E-05_JPRB,3.0172E-05_JPRB,4.1842E-05_JPRB,&
+ & 6.2761E-05_JPRB,1.1359E-04_JPRB,4.4926E-05_JPRB/)  
+KAO( :, 4, 2, 1) = (/&
+ & 2.1437E-06_JPRB,1.0582E-05_JPRB,1.7090E-05_JPRB,2.4961E-05_JPRB,3.4319E-05_JPRB,4.6334E-05_JPRB,&
+ & 6.4942E-05_JPRB,1.0880E-04_JPRB,4.8706E-05_JPRB/)  
+KAO( :, 5, 2, 1) = (/&
+ & 2.7550E-06_JPRB,1.3307E-05_JPRB,2.0303E-05_JPRB,2.7768E-05_JPRB,3.8649E-05_JPRB,5.3069E-05_JPRB,&
+ & 7.1656E-05_JPRB,1.1174E-04_JPRB,4.2264E-05_JPRB/)  
+KAO( :, 1, 3, 1) = (/&
+ & 6.5681E-07_JPRB,4.2928E-06_JPRB,8.6206E-06_JPRB,1.4813E-05_JPRB,2.2795E-05_JPRB,3.0956E-05_JPRB,&
+ & 4.2159E-05_JPRB,6.7143E-05_JPRB,2.4558E-05_JPRB/)  
+KAO( :, 2, 3, 1) = (/&
+ & 8.8032E-07_JPRB,5.0858E-06_JPRB,9.4979E-06_JPRB,1.4908E-05_JPRB,2.3302E-05_JPRB,3.4761E-05_JPRB,&
+ & 5.2810E-05_JPRB,7.8083E-05_JPRB,2.7352E-05_JPRB/)  
+KAO( :, 3, 3, 1) = (/&
+ & 1.1757E-06_JPRB,6.2479E-06_JPRB,1.1007E-05_JPRB,1.6613E-05_JPRB,2.3543E-05_JPRB,3.3879E-05_JPRB,&
+ & 5.3064E-05_JPRB,9.3905E-05_JPRB,3.1433E-05_JPRB/)  
+KAO( :, 4, 3, 1) = (/&
+ & 1.5541E-06_JPRB,7.7549E-06_JPRB,1.2987E-05_JPRB,1.9178E-05_JPRB,2.6197E-05_JPRB,3.5750E-05_JPRB,&
+ & 5.1915E-05_JPRB,9.2229E-05_JPRB,2.9423E-05_JPRB/)  
+KAO( :, 5, 3, 1) = (/&
+ & 2.0193E-06_JPRB,9.7639E-06_JPRB,1.5167E-05_JPRB,2.2031E-05_JPRB,3.0010E-05_JPRB,4.0258E-05_JPRB,&
+ & 5.5267E-05_JPRB,9.0112E-05_JPRB,2.9943E-05_JPRB/)  
+KAO( :, 1, 4, 1) = (/&
+ & 4.6419E-07_JPRB,3.2238E-06_JPRB,7.0968E-06_JPRB,1.2172E-05_JPRB,1.6732E-05_JPRB,2.2369E-05_JPRB,&
+ & 3.1463E-05_JPRB,5.3229E-05_JPRB,1.7381E-05_JPRB/)  
+KAO( :, 2, 4, 1) = (/&
+ & 6.2245E-07_JPRB,3.7726E-06_JPRB,7.2766E-06_JPRB,1.2504E-05_JPRB,1.9255E-05_JPRB,2.8079E-05_JPRB,&
+ & 3.7485E-05_JPRB,5.7403E-05_JPRB,1.9667E-05_JPRB/)  
+KAO( :, 3, 4, 1) = (/&
+ & 8.3351E-07_JPRB,4.5653E-06_JPRB,8.3036E-06_JPRB,1.2777E-05_JPRB,1.8816E-05_JPRB,2.9030E-05_JPRB,&
+ & 4.4417E-05_JPRB,7.0863E-05_JPRB,2.1895E-05_JPRB/)  
+KAO( :, 4, 4, 1) = (/&
+ & 1.1087E-06_JPRB,5.6384E-06_JPRB,9.6405E-06_JPRB,1.4565E-05_JPRB,2.0321E-05_JPRB,2.8264E-05_JPRB,&
+ & 4.3444E-05_JPRB,7.7444E-05_JPRB,2.1414E-05_JPRB/)  
+KAO( :, 5, 4, 1) = (/&
+ & 1.4581E-06_JPRB,7.0726E-06_JPRB,1.1402E-05_JPRB,1.6579E-05_JPRB,2.3011E-05_JPRB,3.1009E-05_JPRB,&
+ & 4.3245E-05_JPRB,7.3708E-05_JPRB,2.2863E-05_JPRB/)  
+KAO( :, 1, 5, 1) = (/&
+ & 3.3427E-07_JPRB,2.5337E-06_JPRB,5.7680E-06_JPRB,8.9425E-06_JPRB,1.2242E-05_JPRB,1.6995E-05_JPRB,&
+ & 2.4164E-05_JPRB,4.4230E-05_JPRB,1.3422E-05_JPRB/)  
+KAO( :, 2, 5, 1) = (/&
+ & 4.4601E-07_JPRB,2.8401E-06_JPRB,5.8531E-06_JPRB,1.0220E-05_JPRB,1.5419E-05_JPRB,2.0153E-05_JPRB,&
+ & 2.7336E-05_JPRB,4.3727E-05_JPRB,1.5115E-05_JPRB/)  
+KAO( :, 3, 5, 1) = (/&
+ & 5.9812E-07_JPRB,3.3532E-06_JPRB,6.3191E-06_JPRB,1.0031E-05_JPRB,1.5953E-05_JPRB,2.3950E-05_JPRB,&
+ & 3.4195E-05_JPRB,5.0601E-05_JPRB,1.6591E-05_JPRB/)  
+KAO( :, 4, 5, 1) = (/&
+ & 7.9837E-07_JPRB,4.1280E-06_JPRB,7.3147E-06_JPRB,1.1079E-05_JPRB,1.5854E-05_JPRB,2.3810E-05_JPRB,&
+ & 3.6514E-05_JPRB,6.2591E-05_JPRB,1.7658E-05_JPRB/)  
+KAO( :, 5, 5, 1) = (/&
+ & 1.0575E-06_JPRB,5.1440E-06_JPRB,8.5910E-06_JPRB,1.2709E-05_JPRB,1.7592E-05_JPRB,2.4262E-05_JPRB,&
+ & 3.5276E-05_JPRB,6.2368E-05_JPRB,1.9388E-05_JPRB/)  
+KAO( :, 1, 6, 1) = (/&
+ & 2.4467E-07_JPRB,2.0115E-06_JPRB,4.4506E-06_JPRB,6.5328E-06_JPRB,9.2134E-06_JPRB,1.2867E-05_JPRB,&
+ & 1.9266E-05_JPRB,3.4226E-05_JPRB,1.1020E-05_JPRB/)  
+KAO( :, 2, 6, 1) = (/&
+ & 3.2244E-07_JPRB,2.1802E-06_JPRB,4.7859E-06_JPRB,8.3031E-06_JPRB,1.1024E-05_JPRB,1.4816E-05_JPRB,&
+ & 2.0767E-05_JPRB,3.3867E-05_JPRB,1.2361E-05_JPRB/)  
+KAO( :, 3, 6, 1) = (/&
+ & 4.3252E-07_JPRB,2.5034E-06_JPRB,4.8788E-06_JPRB,8.5188E-06_JPRB,1.3353E-05_JPRB,1.8353E-05_JPRB,&
+ & 2.4440E-05_JPRB,3.7220E-05_JPRB,1.3756E-05_JPRB/)  
+KAO( :, 4, 6, 1) = (/&
+ & 5.7866E-07_JPRB,3.0227E-06_JPRB,5.4901E-06_JPRB,8.5441E-06_JPRB,1.3294E-05_JPRB,1.9970E-05_JPRB,&
+ & 3.0079E-05_JPRB,4.5487E-05_JPRB,1.5370E-05_JPRB/)  
+KAO( :, 5, 6, 1) = (/&
+ & 7.6960E-07_JPRB,3.7504E-06_JPRB,6.3767E-06_JPRB,9.6311E-06_JPRB,1.3563E-05_JPRB,1.9464E-05_JPRB,&
+ & 3.0023E-05_JPRB,5.3031E-05_JPRB,1.7349E-05_JPRB/)  
+KAO( :, 1, 7, 1) = (/&
+ & 1.8363E-07_JPRB,1.6339E-06_JPRB,3.2365E-06_JPRB,4.8736E-06_JPRB,7.0565E-06_JPRB,1.0168E-05_JPRB,&
+ & 1.5448E-05_JPRB,2.6119E-05_JPRB,9.9973E-06_JPRB/)  
+KAO( :, 2, 7, 1) = (/&
+ & 2.3828E-07_JPRB,1.7045E-06_JPRB,3.9446E-06_JPRB,5.9885E-06_JPRB,8.1187E-06_JPRB,1.1164E-05_JPRB,&
+ & 1.5910E-05_JPRB,2.7804E-05_JPRB,1.1252E-05_JPRB/)  
+KAO( :, 3, 7, 1) = (/&
+ & 3.1712E-07_JPRB,1.8915E-06_JPRB,4.0133E-06_JPRB,6.9371E-06_JPRB,1.0184E-05_JPRB,1.3247E-05_JPRB,&
+ & 1.8144E-05_JPRB,2.8687E-05_JPRB,1.2767E-05_JPRB/)  
+KAO( :, 4, 7, 1) = (/&
+ & 4.2549E-07_JPRB,2.2415E-06_JPRB,4.2001E-06_JPRB,7.0066E-06_JPRB,1.0950E-05_JPRB,1.6323E-05_JPRB,&
+ & 2.2218E-05_JPRB,3.2987E-05_JPRB,1.4591E-05_JPRB/)  
+KAO( :, 5, 7, 1) = (/&
+ & 5.6782E-07_JPRB,2.7608E-06_JPRB,4.8541E-06_JPRB,7.3705E-06_JPRB,1.0748E-05_JPRB,1.6390E-05_JPRB,&
+ & 2.5035E-05_JPRB,4.1583E-05_JPRB,1.6759E-05_JPRB/)  
+KAO( :, 1, 8, 1) = (/&
+ & 1.4297E-07_JPRB,1.2986E-06_JPRB,2.4296E-06_JPRB,3.7740E-06_JPRB,5.5717E-06_JPRB,8.1007E-06_JPRB,&
+ & 1.2269E-05_JPRB,2.0668E-05_JPRB,1.1224E-05_JPRB/)  
+KAO( :, 2, 8, 1) = (/&
+ & 1.8237E-07_JPRB,1.3796E-06_JPRB,2.9841E-06_JPRB,4.4232E-06_JPRB,6.1625E-06_JPRB,8.6070E-06_JPRB,&
+ & 1.2749E-05_JPRB,2.2374E-05_JPRB,1.3050E-05_JPRB/)  
+KAO( :, 3, 8, 1) = (/&
+ & 2.3995E-07_JPRB,1.4828E-06_JPRB,3.2302E-06_JPRB,5.5721E-06_JPRB,7.4009E-06_JPRB,9.9584E-06_JPRB,&
+ & 1.3793E-05_JPRB,2.2720E-05_JPRB,1.5037E-05_JPRB/)  
+KAO( :, 4, 8, 1) = (/&
+ & 3.2109E-07_JPRB,1.7086E-06_JPRB,3.3052E-06_JPRB,5.7552E-06_JPRB,9.1163E-06_JPRB,1.2137E-05_JPRB,&
+ & 1.6200E-05_JPRB,2.4932E-05_JPRB,1.7316E-05_JPRB/)  
+KAO( :, 5, 8, 1) = (/&
+ & 4.2933E-07_JPRB,2.0665E-06_JPRB,3.6851E-06_JPRB,5.7093E-06_JPRB,9.1231E-06_JPRB,1.3616E-05_JPRB,&
+ & 2.0240E-05_JPRB,2.9795E-05_JPRB,1.9811E-05_JPRB/)  
+KAO( :, 1, 9, 1) = (/&
+ & 1.1391E-07_JPRB,9.6607E-07_JPRB,1.8596E-06_JPRB,2.9960E-06_JPRB,4.4278E-06_JPRB,6.4496E-06_JPRB,&
+ & 9.3668E-06_JPRB,1.6296E-05_JPRB,2.3175E-05_JPRB/)  
+KAO( :, 2, 9, 1) = (/&
+ & 1.4318E-07_JPRB,1.1432E-06_JPRB,2.1917E-06_JPRB,3.3465E-06_JPRB,4.7894E-06_JPRB,6.8583E-06_JPRB,&
+ & 1.0124E-05_JPRB,1.7732E-05_JPRB,2.8424E-05_JPRB/)  
+KAO( :, 3, 9, 1) = (/&
+ & 1.8594E-07_JPRB,1.1885E-06_JPRB,2.6962E-06_JPRB,4.0343E-06_JPRB,5.5351E-06_JPRB,7.5514E-06_JPRB,&
+ & 1.0675E-05_JPRB,1.8150E-05_JPRB,3.4053E-05_JPRB/)  
+KAO( :, 4, 9, 1) = (/&
+ & 2.4670E-07_JPRB,1.3380E-06_JPRB,2.7503E-06_JPRB,4.7549E-06_JPRB,6.8876E-06_JPRB,8.9087E-06_JPRB,&
+ & 1.2295E-05_JPRB,1.9210E-05_JPRB,3.9839E-05_JPRB/)  
+KAO( :, 5, 9, 1) = (/&
+ & 3.3010E-07_JPRB,1.5784E-06_JPRB,2.8513E-06_JPRB,4.8049E-06_JPRB,7.4827E-06_JPRB,1.1096E-05_JPRB,&
+ & 1.4749E-05_JPRB,2.1955E-05_JPRB,4.5594E-05_JPRB/)  
+KAO( :, 1,10, 1) = (/&
+ & 9.5530E-08_JPRB,7.6103E-07_JPRB,1.4822E-06_JPRB,2.4013E-06_JPRB,3.5241E-06_JPRB,5.0863E-06_JPRB,&
+ & 7.7041E-06_JPRB,1.2423E-05_JPRB,8.9067E-05_JPRB/)  
+KAO( :, 2,10, 1) = (/&
+ & 1.1882E-07_JPRB,9.2450E-07_JPRB,1.6979E-06_JPRB,2.6207E-06_JPRB,3.8503E-06_JPRB,5.4657E-06_JPRB,&
+ & 7.9684E-06_JPRB,1.3651E-05_JPRB,1.1125E-04_JPRB/)  
+KAO( :, 3,10, 1) = (/&
+ & 1.5289E-07_JPRB,9.7942E-07_JPRB,2.0846E-06_JPRB,3.0524E-06_JPRB,4.2640E-06_JPRB,5.9216E-06_JPRB,&
+ & 8.6666E-06_JPRB,1.4411E-05_JPRB,1.3376E-04_JPRB/)  
+KAO( :, 4,10, 1) = (/&
+ & 2.0094E-07_JPRB,1.0816E-06_JPRB,2.2331E-06_JPRB,3.8855E-06_JPRB,5.1239E-06_JPRB,6.8144E-06_JPRB,&
+ & 9.5102E-06_JPRB,1.5396E-05_JPRB,1.5621E-04_JPRB/)  
+KAO( :, 5,10, 1) = (/&
+ & 2.6711E-07_JPRB,1.2572E-06_JPRB,2.3283E-06_JPRB,3.9502E-06_JPRB,6.1703E-06_JPRB,8.4471E-06_JPRB,&
+ & 1.1047E-05_JPRB,1.7057E-05_JPRB,1.7815E-04_JPRB/)  
+KAO( :, 1,11, 1) = (/&
+ & 8.8479E-08_JPRB,6.5723E-07_JPRB,1.2585E-06_JPRB,2.0039E-06_JPRB,2.9121E-06_JPRB,4.1955E-06_JPRB,&
+ & 6.2637E-06_JPRB,1.0419E-05_JPRB,1.7219E-04_JPRB/)  
+KAO( :, 2,11, 1) = (/&
+ & 1.1103E-07_JPRB,7.9724E-07_JPRB,1.4388E-06_JPRB,2.1938E-06_JPRB,3.2099E-06_JPRB,4.5380E-06_JPRB,&
+ & 6.5334E-06_JPRB,1.1529E-05_JPRB,2.1393E-04_JPRB/)  
+KAO( :, 3,11, 1) = (/&
+ & 1.4325E-07_JPRB,8.5009E-07_JPRB,1.7790E-06_JPRB,2.5762E-06_JPRB,3.5853E-06_JPRB,4.9027E-06_JPRB,&
+ & 7.2087E-06_JPRB,1.1783E-05_JPRB,2.5548E-04_JPRB/)  
+KAO( :, 4,11, 1) = (/&
+ & 1.8796E-07_JPRB,9.4910E-07_JPRB,1.8794E-06_JPRB,3.2448E-06_JPRB,4.3096E-06_JPRB,5.7004E-06_JPRB,&
+ & 7.8146E-06_JPRB,1.2759E-05_JPRB,2.9570E-04_JPRB/)  
+KAO( :, 5,11, 1) = (/&
+ & 2.4830E-07_JPRB,1.0997E-06_JPRB,1.9987E-06_JPRB,3.2788E-06_JPRB,5.0983E-06_JPRB,7.0948E-06_JPRB,&
+ & 9.2185E-06_JPRB,1.4157E-05_JPRB,3.3417E-04_JPRB/)  
+KAO( :, 1,12, 1) = (/&
+ & 7.8411E-08_JPRB,5.6432E-07_JPRB,1.0564E-06_JPRB,1.6792E-06_JPRB,2.4262E-06_JPRB,3.3875E-06_JPRB,&
+ & 5.1824E-06_JPRB,8.5930E-06_JPRB,2.1970E-04_JPRB/)  
+KAO( :, 2,12, 1) = (/&
+ & 9.8958E-08_JPRB,6.8328E-07_JPRB,1.2215E-06_JPRB,1.8350E-06_JPRB,2.6716E-06_JPRB,3.7787E-06_JPRB,&
+ & 5.3849E-06_JPRB,9.1860E-06_JPRB,2.7209E-04_JPRB/)  
+KAO( :, 3,12, 1) = (/&
+ & 1.2797E-07_JPRB,7.2421E-07_JPRB,1.5209E-06_JPRB,2.1711E-06_JPRB,3.0040E-06_JPRB,4.0829E-06_JPRB,&
+ & 6.0229E-06_JPRB,9.7068E-06_JPRB,3.2380E-04_JPRB/)  
+KAO( :, 4,12, 1) = (/&
+ & 1.6772E-07_JPRB,8.1500E-07_JPRB,1.5843E-06_JPRB,2.7212E-06_JPRB,3.6141E-06_JPRB,4.7595E-06_JPRB,&
+ & 6.4840E-06_JPRB,1.0629E-05_JPRB,3.7332E-04_JPRB/)  
+KAO( :, 5,12, 1) = (/&
+ & 2.2081E-07_JPRB,9.4887E-07_JPRB,1.7061E-06_JPRB,2.7338E-06_JPRB,4.2409E-06_JPRB,5.9628E-06_JPRB,&
+ & 7.7123E-06_JPRB,1.1668E-05_JPRB,4.2006E-04_JPRB/)  
+KAO( :, 1,13, 1) = (/&
+ & 6.9984E-08_JPRB,4.8746E-07_JPRB,8.9934E-07_JPRB,1.4101E-06_JPRB,2.0188E-06_JPRB,2.7991E-06_JPRB,&
+ & 4.1521E-06_JPRB,7.2727E-06_JPRB,2.2865E-04_JPRB/)  
+KAO( :, 2,13, 1) = (/&
+ & 8.8821E-08_JPRB,5.8672E-07_JPRB,1.0421E-06_JPRB,1.5517E-06_JPRB,2.2340E-06_JPRB,3.1346E-06_JPRB,&
+ & 4.4727E-06_JPRB,7.4604E-06_JPRB,2.8267E-04_JPRB/)  
+KAO( :, 3,13, 1) = (/&
+ & 1.1504E-07_JPRB,6.2137E-07_JPRB,1.3015E-06_JPRB,1.8350E-06_JPRB,2.5305E-06_JPRB,3.4076E-06_JPRB,&
+ & 4.9426E-06_JPRB,8.0265E-06_JPRB,3.3576E-04_JPRB/)  
+KAO( :, 4,13, 1) = (/&
+ & 1.5036E-07_JPRB,7.0084E-07_JPRB,1.3483E-06_JPRB,2.2875E-06_JPRB,3.0337E-06_JPRB,3.9839E-06_JPRB,&
+ & 5.4210E-06_JPRB,8.7755E-06_JPRB,3.8637E-04_JPRB/)  
+KAO( :, 5,13, 1) = (/&
+ & 1.9712E-07_JPRB,8.1525E-07_JPRB,1.4451E-06_JPRB,2.3051E-06_JPRB,3.5032E-06_JPRB,5.0029E-06_JPRB,&
+ & 6.4407E-06_JPRB,9.6564E-06_JPRB,4.3385E-04_JPRB/)  
+KAO( :, 1, 1, 2) = (/&
+ & 3.7010E-06_JPRB,1.8091E-05_JPRB,2.8711E-05_JPRB,4.8863E-05_JPRB,7.2307E-05_JPRB,1.1413E-04_JPRB,&
+ & 1.8771E-04_JPRB,3.6122E-04_JPRB,1.1281E-04_JPRB/)  
+KAO( :, 2, 1, 2) = (/&
+ & 5.3266E-06_JPRB,2.4423E-05_JPRB,3.4269E-05_JPRB,4.7704E-05_JPRB,7.6078E-05_JPRB,1.1442E-04_JPRB,&
+ & 1.6436E-04_JPRB,3.2838E-04_JPRB,8.7847E-05_JPRB/)  
+KAO( :, 3, 1, 2) = (/&
+ & 7.5177E-06_JPRB,3.2854E-05_JPRB,4.4289E-05_JPRB,5.4913E-05_JPRB,7.2779E-05_JPRB,1.0814E-04_JPRB,&
+ & 1.7906E-04_JPRB,2.8467E-04_JPRB,8.6883E-05_JPRB/)  
+KAO( :, 4, 1, 2) = (/&
+ & 1.0391E-05_JPRB,4.3522E-05_JPRB,5.8544E-05_JPRB,6.9693E-05_JPRB,8.1288E-05_JPRB,1.0220E-04_JPRB,&
+ & 1.5047E-04_JPRB,3.0285E-04_JPRB,9.1049E-05_JPRB/)  
+KAO( :, 5, 1, 2) = (/&
+ & 1.4024E-05_JPRB,5.6758E-05_JPRB,7.6016E-05_JPRB,9.1662E-05_JPRB,1.0372E-04_JPRB,1.1700E-04_JPRB,&
+ & 1.4991E-04_JPRB,2.3704E-04_JPRB,1.3000E-04_JPRB/)  
+KAO( :, 1, 2, 2) = (/&
+ & 2.7903E-06_JPRB,1.3902E-05_JPRB,2.3771E-05_JPRB,3.9190E-05_JPRB,6.1137E-05_JPRB,9.7231E-05_JPRB,&
+ & 1.5250E-04_JPRB,2.8746E-04_JPRB,7.5943E-05_JPRB/)  
+KAO( :, 2, 2, 2) = (/&
+ & 4.0561E-06_JPRB,1.8720E-05_JPRB,2.7225E-05_JPRB,3.9741E-05_JPRB,6.4537E-05_JPRB,9.0899E-05_JPRB,&
+ & 1.4609E-04_JPRB,2.7008E-04_JPRB,6.2612E-05_JPRB/)  
+KAO( :, 3, 2, 2) = (/&
+ & 5.7887E-06_JPRB,2.5353E-05_JPRB,3.4446E-05_JPRB,4.3750E-05_JPRB,5.8352E-05_JPRB,9.7668E-05_JPRB,&
+ & 1.4210E-04_JPRB,2.4211E-04_JPRB,6.1269E-05_JPRB/)  
+KAO( :, 4, 2, 2) = (/&
+ & 8.0784E-06_JPRB,3.3950E-05_JPRB,4.5325E-05_JPRB,5.3921E-05_JPRB,6.4280E-05_JPRB,8.5665E-05_JPRB,&
+ & 1.3688E-04_JPRB,2.4556E-04_JPRB,6.9568E-05_JPRB/)  
+KAO( :, 5, 2, 2) = (/&
+ & 1.1019E-05_JPRB,4.4672E-05_JPRB,5.9575E-05_JPRB,7.1166E-05_JPRB,7.9595E-05_JPRB,9.1088E-05_JPRB,&
+ & 1.2520E-04_JPRB,2.1802E-04_JPRB,9.5557E-05_JPRB/)  
+KAO( :, 1, 3, 2) = (/&
+ & 1.9479E-06_JPRB,1.0095E-05_JPRB,1.9141E-05_JPRB,3.0705E-05_JPRB,5.2363E-05_JPRB,7.9991E-05_JPRB,&
+ & 1.2823E-04_JPRB,2.3806E-04_JPRB,4.6992E-05_JPRB/)  
+KAO( :, 2, 3, 2) = (/&
+ & 2.8509E-06_JPRB,1.3413E-05_JPRB,2.1137E-05_JPRB,3.4101E-05_JPRB,4.9706E-05_JPRB,7.8708E-05_JPRB,&
+ & 1.2808E-04_JPRB,2.2769E-04_JPRB,4.2012E-05_JPRB/)  
+KAO( :, 3, 3, 2) = (/&
+ & 4.1189E-06_JPRB,1.8265E-05_JPRB,2.5419E-05_JPRB,3.4683E-05_JPRB,5.2513E-05_JPRB,8.0240E-05_JPRB,&
+ & 1.1481E-04_JPRB,2.1816E-04_JPRB,4.3174E-05_JPRB/)  
+KAO( :, 4, 3, 2) = (/&
+ & 5.8233E-06_JPRB,2.4801E-05_JPRB,3.3200E-05_JPRB,4.0180E-05_JPRB,5.1786E-05_JPRB,7.2468E-05_JPRB,&
+ & 1.2549E-04_JPRB,1.9856E-04_JPRB,5.6282E-05_JPRB/)  
+KAO( :, 5, 3, 2) = (/&
+ & 8.0612E-06_JPRB,3.3094E-05_JPRB,4.4191E-05_JPRB,5.1801E-05_JPRB,5.9300E-05_JPRB,7.2075E-05_JPRB,&
+ & 1.0386E-04_JPRB,2.0859E-04_JPRB,6.8039E-05_JPRB/)  
+KAO( :, 1, 4, 2) = (/&
+ & 1.3432E-06_JPRB,7.4538E-06_JPRB,1.4964E-05_JPRB,2.5625E-05_JPRB,4.3243E-05_JPRB,6.6019E-05_JPRB,&
+ & 1.0530E-04_JPRB,1.9952E-04_JPRB,3.1575E-05_JPRB/)  
+KAO( :, 2, 4, 2) = (/&
+ & 1.9591E-06_JPRB,9.5155E-06_JPRB,1.6737E-05_JPRB,2.6791E-05_JPRB,4.2345E-05_JPRB,6.7439E-05_JPRB,&
+ & 1.0271E-04_JPRB,1.8871E-04_JPRB,3.0704E-05_JPRB/)  
+KAO( :, 3, 4, 2) = (/&
+ & 2.8537E-06_JPRB,1.2845E-05_JPRB,1.8934E-05_JPRB,2.8752E-05_JPRB,4.4199E-05_JPRB,6.2430E-05_JPRB,&
+ & 1.0202E-04_JPRB,1.8062E-04_JPRB,3.4088E-05_JPRB/)  
+KAO( :, 4, 4, 2) = (/&
+ & 4.0888E-06_JPRB,1.7612E-05_JPRB,2.3922E-05_JPRB,3.0749E-05_JPRB,4.2010E-05_JPRB,6.5728E-05_JPRB,&
+ & 9.6566E-05_JPRB,1.7460E-04_JPRB,4.3387E-05_JPRB/)  
+KAO( :, 5, 4, 2) = (/&
+ & 5.7388E-06_JPRB,2.3829E-05_JPRB,3.1758E-05_JPRB,3.7789E-05_JPRB,4.5312E-05_JPRB,5.9095E-05_JPRB,&
+ & 1.0064E-04_JPRB,1.6850E-04_JPRB,5.1079E-05_JPRB/)  
+KAO( :, 1, 5, 2) = (/&
+ & 9.4882E-07_JPRB,5.7155E-06_JPRB,1.1980E-05_JPRB,2.2295E-05_JPRB,3.5116E-05_JPRB,5.3339E-05_JPRB,&
+ & 8.8729E-05_JPRB,1.5937E-04_JPRB,2.5456E-05_JPRB/)  
+KAO( :, 2, 5, 2) = (/&
+ & 1.3669E-06_JPRB,6.8739E-06_JPRB,1.3459E-05_JPRB,2.1396E-05_JPRB,3.6297E-05_JPRB,5.4282E-05_JPRB,&
+ & 8.6042E-05_JPRB,1.6025E-04_JPRB,2.6654E-05_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART1',1,ZHOOK_HANDLE)
+END SUBROUTINE PART1
+
+
+SUBROUTINE PART2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART2',0,ZHOOK_HANDLE)
+
+
+KAO( :, 3, 5, 2) = (/&
+ & 1.9884E-06_JPRB,9.0859E-06_JPRB,1.4605E-05_JPRB,2.3671E-05_JPRB,3.4093E-05_JPRB,5.5324E-05_JPRB,&
+ & 8.6463E-05_JPRB,1.5363E-04_JPRB,3.0684E-05_JPRB/)  
+KAO( :, 4, 5, 2) = (/&
+ & 2.8701E-06_JPRB,1.2430E-05_JPRB,1.7294E-05_JPRB,2.4580E-05_JPRB,3.7203E-05_JPRB,5.3154E-05_JPRB,&
+ & 8.1963E-05_JPRB,1.5281E-04_JPRB,3.6321E-05_JPRB/)  
+KAO( :, 5, 5, 2) = (/&
+ & 4.0709E-06_JPRB,1.7029E-05_JPRB,2.2743E-05_JPRB,2.7902E-05_JPRB,3.6353E-05_JPRB,5.3115E-05_JPRB,&
+ & 8.4864E-05_JPRB,1.3732E-04_JPRB,4.2547E-05_JPRB/)  
+KAO( :, 1, 6, 2) = (/&
+ & 6.8988E-07_JPRB,4.4652E-06_JPRB,9.7580E-06_JPRB,1.7678E-05_JPRB,2.8332E-05_JPRB,4.4145E-05_JPRB,&
+ & 7.0109E-05_JPRB,1.2493E-04_JPRB,2.3716E-05_JPRB/)  
+KAO( :, 2, 6, 2) = (/&
+ & 9.7314E-07_JPRB,5.0974E-06_JPRB,1.0412E-05_JPRB,1.7485E-05_JPRB,2.9376E-05_JPRB,4.4804E-05_JPRB,&
+ & 7.0122E-05_JPRB,1.3276E-04_JPRB,2.6375E-05_JPRB/)  
+KAO( :, 3, 6, 2) = (/&
+ & 1.3972E-06_JPRB,6.4724E-06_JPRB,1.1564E-05_JPRB,1.8858E-05_JPRB,2.8568E-05_JPRB,4.7043E-05_JPRB,&
+ & 7.0202E-05_JPRB,1.2748E-04_JPRB,3.0169E-05_JPRB/)  
+KAO( :, 4, 6, 2) = (/&
+ & 2.0156E-06_JPRB,8.7063E-06_JPRB,1.3025E-05_JPRB,2.0355E-05_JPRB,3.0069E-05_JPRB,4.4240E-05_JPRB,&
+ & 7.1336E-05_JPRB,1.2324E-04_JPRB,3.4994E-05_JPRB/)  
+KAO( :, 5, 6, 2) = (/&
+ & 2.8756E-06_JPRB,1.1976E-05_JPRB,1.6242E-05_JPRB,2.1147E-05_JPRB,3.0629E-05_JPRB,4.5526E-05_JPRB,&
+ & 6.5474E-05_JPRB,1.2130E-04_JPRB,4.0495E-05_JPRB/)  
+KAO( :, 1, 7, 2) = (/&
+ & 5.2255E-07_JPRB,3.4411E-06_JPRB,7.7789E-06_JPRB,1.4395E-05_JPRB,2.2965E-05_JPRB,3.5662E-05_JPRB,&
+ & 5.5652E-05_JPRB,9.9078E-05_JPRB,2.5677E-05_JPRB/)  
+KAO( :, 2, 7, 2) = (/&
+ & 7.2172E-07_JPRB,4.0179E-06_JPRB,8.3376E-06_JPRB,1.4853E-05_JPRB,2.4331E-05_JPRB,3.6364E-05_JPRB,&
+ & 5.7791E-05_JPRB,1.0563E-04_JPRB,2.9556E-05_JPRB/)  
+KAO( :, 3, 7, 2) = (/&
+ & 1.0201E-06_JPRB,4.7217E-06_JPRB,9.3095E-06_JPRB,1.5083E-05_JPRB,2.5365E-05_JPRB,3.7347E-05_JPRB,&
+ & 5.8190E-05_JPRB,1.0603E-04_JPRB,3.3998E-05_JPRB/)  
+KAO( :, 4, 7, 2) = (/&
+ & 1.4537E-06_JPRB,6.1748E-06_JPRB,1.0020E-05_JPRB,1.6138E-05_JPRB,2.3962E-05_JPRB,3.7967E-05_JPRB,&
+ & 5.8451E-05_JPRB,1.0372E-04_JPRB,3.9119E-05_JPRB/)  
+KAO( :, 5, 7, 2) = (/&
+ & 2.0693E-06_JPRB,8.4363E-06_JPRB,1.1705E-05_JPRB,1.7001E-05_JPRB,2.5826E-05_JPRB,3.5527E-05_JPRB,&
+ & 5.8296E-05_JPRB,1.0385E-04_JPRB,4.4936E-05_JPRB/)  
+KAO( :, 1, 8, 2) = (/&
+ & 4.1700E-07_JPRB,2.7639E-06_JPRB,6.4938E-06_JPRB,1.1630E-05_JPRB,1.8371E-05_JPRB,2.7706E-05_JPRB,&
+ & 4.4850E-05_JPRB,8.0696E-05_JPRB,3.5956E-05_JPRB/)  
+KAO( :, 2, 8, 2) = (/&
+ & 5.6411E-07_JPRB,3.1556E-06_JPRB,6.9457E-06_JPRB,1.2120E-05_JPRB,1.9397E-05_JPRB,2.9581E-05_JPRB,&
+ & 4.6513E-05_JPRB,8.4727E-05_JPRB,4.2511E-05_JPRB/)  
+KAO( :, 3, 8, 2) = (/&
+ & 7.8647E-07_JPRB,3.6535E-06_JPRB,7.3255E-06_JPRB,1.2353E-05_JPRB,2.0079E-05_JPRB,3.0844E-05_JPRB,&
+ & 4.7401E-05_JPRB,8.6525E-05_JPRB,4.9724E-05_JPRB/)  
+KAO( :, 4, 8, 2) = (/&
+ & 1.1061E-06_JPRB,4.5424E-06_JPRB,7.9917E-06_JPRB,1.3185E-05_JPRB,1.9791E-05_JPRB,3.2038E-05_JPRB,&
+ & 4.8054E-05_JPRB,8.5457E-05_JPRB,5.7233E-05_JPRB/)  
+KAO( :, 5, 8, 2) = (/&
+ & 1.5569E-06_JPRB,6.0599E-06_JPRB,9.0209E-06_JPRB,1.3990E-05_JPRB,2.0815E-05_JPRB,3.0475E-05_JPRB,&
+ & 4.9899E-05_JPRB,8.4659E-05_JPRB,6.5356E-05_JPRB/)  
+KAO( :, 1, 9, 2) = (/&
+ & 3.4646E-07_JPRB,2.3339E-06_JPRB,5.2376E-06_JPRB,9.2182E-06_JPRB,1.4337E-05_JPRB,2.2490E-05_JPRB,&
+ & 3.6396E-05_JPRB,6.1412E-05_JPRB,1.0490E-04_JPRB/)  
+KAO( :, 2, 9, 2) = (/&
+ & 4.5919E-07_JPRB,2.4585E-06_JPRB,5.5676E-06_JPRB,9.8533E-06_JPRB,1.5559E-05_JPRB,2.3683E-05_JPRB,&
+ & 3.6999E-05_JPRB,7.0677E-05_JPRB,1.2405E-04_JPRB/)  
+KAO( :, 3, 9, 2) = (/&
+ & 6.2898E-07_JPRB,2.9262E-06_JPRB,5.8022E-06_JPRB,1.0344E-05_JPRB,1.6840E-05_JPRB,2.4691E-05_JPRB,&
+ & 3.8818E-05_JPRB,7.0031E-05_JPRB,1.4290E-04_JPRB/)  
+KAO( :, 4, 9, 2) = (/&
+ & 8.7625E-07_JPRB,3.4474E-06_JPRB,6.4904E-06_JPRB,1.0589E-05_JPRB,1.7378E-05_JPRB,2.5849E-05_JPRB,&
+ & 3.9400E-05_JPRB,7.0716E-05_JPRB,1.6112E-04_JPRB/)  
+KAO( :, 5, 9, 2) = (/&
+ & 1.2209E-06_JPRB,4.4922E-06_JPRB,7.0958E-06_JPRB,1.1298E-05_JPRB,1.6936E-05_JPRB,2.6020E-05_JPRB,&
+ & 4.0325E-05_JPRB,7.2083E-05_JPRB,1.7893E-04_JPRB/)  
+KAO( :, 1,10, 2) = (/&
+ & 3.1214E-07_JPRB,1.9536E-06_JPRB,4.2576E-06_JPRB,7.3396E-06_JPRB,1.1621E-05_JPRB,1.8021E-05_JPRB,&
+ & 2.8013E-05_JPRB,4.7749E-05_JPRB,4.9962E-04_JPRB/)  
+KAO( :, 2,10, 2) = (/&
+ & 4.0887E-07_JPRB,2.0598E-06_JPRB,4.7149E-06_JPRB,8.0606E-06_JPRB,1.2573E-05_JPRB,1.8809E-05_JPRB,&
+ & 3.0275E-05_JPRB,5.6188E-05_JPRB,5.8548E-04_JPRB/)  
+KAO( :, 3,10, 2) = (/&
+ & 5.5155E-07_JPRB,2.4175E-06_JPRB,4.9545E-06_JPRB,8.5941E-06_JPRB,1.3457E-05_JPRB,2.0204E-05_JPRB,&
+ & 3.1138E-05_JPRB,5.6286E-05_JPRB,6.6291E-04_JPRB/)  
+KAO( :, 4,10, 2) = (/&
+ & 7.5650E-07_JPRB,2.8298E-06_JPRB,5.3256E-06_JPRB,8.7402E-06_JPRB,1.3978E-05_JPRB,2.1601E-05_JPRB,&
+ & 3.2082E-05_JPRB,5.7693E-05_JPRB,7.2972E-04_JPRB/)  
+KAO( :, 5,10, 2) = (/&
+ & 1.0427E-06_JPRB,3.5400E-06_JPRB,5.8501E-06_JPRB,9.4137E-06_JPRB,1.4055E-05_JPRB,2.2092E-05_JPRB,&
+ & 3.3371E-05_JPRB,5.7680E-05_JPRB,7.8611E-04_JPRB/)  
+KAO( :, 1,11, 2) = (/&
+ & 3.2074E-07_JPRB,1.7276E-06_JPRB,3.6239E-06_JPRB,6.1854E-06_JPRB,9.6607E-06_JPRB,1.4993E-05_JPRB,&
+ & 2.3443E-05_JPRB,4.1061E-05_JPRB,1.0142E-03_JPRB/)  
+KAO( :, 2,11, 2) = (/&
+ & 4.2113E-07_JPRB,1.8116E-06_JPRB,4.1199E-06_JPRB,6.7716E-06_JPRB,1.0543E-05_JPRB,1.5526E-05_JPRB,&
+ & 2.4849E-05_JPRB,4.5454E-05_JPRB,1.1742E-03_JPRB/)  
+KAO( :, 3,11, 2) = (/&
+ & 5.6514E-07_JPRB,2.1552E-06_JPRB,4.2148E-06_JPRB,7.3585E-06_JPRB,1.1239E-05_JPRB,1.6846E-05_JPRB,&
+ & 2.5655E-05_JPRB,4.5531E-05_JPRB,1.3139E-03_JPRB/)  
+KAO( :, 4,11, 2) = (/&
+ & 7.6814E-07_JPRB,2.5322E-06_JPRB,4.6852E-06_JPRB,7.3538E-06_JPRB,1.1830E-05_JPRB,1.8155E-05_JPRB,&
+ & 2.6824E-05_JPRB,4.7139E-05_JPRB,1.4305E-03_JPRB/)  
+KAO( :, 5,11, 2) = (/&
+ & 1.0464E-06_JPRB,3.2313E-06_JPRB,5.0889E-06_JPRB,8.1260E-06_JPRB,1.1741E-05_JPRB,1.8567E-05_JPRB,&
+ & 2.7673E-05_JPRB,4.7684E-05_JPRB,1.5261E-03_JPRB/)  
+KAO( :, 1,12, 2) = (/&
+ & 3.0483E-07_JPRB,1.4986E-06_JPRB,3.1036E-06_JPRB,5.2551E-06_JPRB,7.9883E-06_JPRB,1.2411E-05_JPRB,&
+ & 1.9208E-05_JPRB,3.3894E-05_JPRB,1.3243E-03_JPRB/)  
+KAO( :, 2,12, 2) = (/&
+ & 4.0026E-07_JPRB,1.5746E-06_JPRB,3.5034E-06_JPRB,5.7409E-06_JPRB,8.9248E-06_JPRB,1.2928E-05_JPRB,&
+ & 2.0014E-05_JPRB,3.7406E-05_JPRB,1.5202E-03_JPRB/)  
+KAO( :, 3,12, 2) = (/&
+ & 5.3553E-07_JPRB,1.8879E-06_JPRB,3.5598E-06_JPRB,6.2204E-06_JPRB,9.4506E-06_JPRB,1.4131E-05_JPRB,&
+ & 2.1193E-05_JPRB,3.7290E-05_JPRB,1.6892E-03_JPRB/)  
+KAO( :, 4,12, 2) = (/&
+ & 7.2441E-07_JPRB,2.2261E-06_JPRB,4.0611E-06_JPRB,6.2008E-06_JPRB,9.9865E-06_JPRB,1.4941E-05_JPRB,&
+ & 2.2423E-05_JPRB,3.8766E-05_JPRB,1.8301E-03_JPRB/)  
+KAO( :, 5,12, 2) = (/&
+ & 9.8233E-07_JPRB,2.8782E-06_JPRB,4.3585E-06_JPRB,6.9707E-06_JPRB,9.7990E-06_JPRB,1.5463E-05_JPRB,&
+ & 2.2949E-05_JPRB,3.9658E-05_JPRB,1.9441E-03_JPRB/)  
+KAO( :, 1,13, 2) = (/&
+ & 2.9003E-07_JPRB,1.3003E-06_JPRB,2.6851E-06_JPRB,4.4901E-06_JPRB,6.6847E-06_JPRB,1.0336E-05_JPRB,&
+ & 1.6084E-05_JPRB,2.8206E-05_JPRB,1.3971E-03_JPRB/)  
+KAO( :, 2,13, 2) = (/&
+ & 3.7990E-07_JPRB,1.3887E-06_JPRB,2.9888E-06_JPRB,4.8895E-06_JPRB,7.4887E-06_JPRB,1.0848E-05_JPRB,&
+ & 1.6497E-05_JPRB,3.0927E-05_JPRB,1.5951E-03_JPRB/)  
+KAO( :, 3,13, 2) = (/&
+ & 5.0572E-07_JPRB,1.6533E-06_JPRB,3.0166E-06_JPRB,5.2825E-06_JPRB,8.0084E-06_JPRB,1.1877E-05_JPRB,&
+ & 1.7766E-05_JPRB,3.0474E-05_JPRB,1.7653E-03_JPRB/)  
+KAO( :, 4,13, 2) = (/&
+ & 6.7947E-07_JPRB,1.9700E-06_JPRB,3.4410E-06_JPRB,5.2325E-06_JPRB,8.4395E-06_JPRB,1.2460E-05_JPRB,&
+ & 1.8625E-05_JPRB,3.2158E-05_JPRB,1.9067E-03_JPRB/)  
+KAO( :, 5,13, 2) = (/&
+ & 9.1576E-07_JPRB,2.5777E-06_JPRB,3.7459E-06_JPRB,5.9026E-06_JPRB,8.2962E-06_JPRB,1.2772E-05_JPRB,&
+ & 1.8972E-05_JPRB,3.2948E-05_JPRB,2.0202E-03_JPRB/)  
+KAO( :, 1, 1, 3) = (/&
+ & 1.2955E-05_JPRB,5.0522E-05_JPRB,7.1945E-05_JPRB,8.6154E-05_JPRB,1.0208E-04_JPRB,1.2598E-04_JPRB,&
+ & 1.9123E-04_JPRB,3.6418E-04_JPRB,1.3186E-04_JPRB/)  
+KAO( :, 2, 1, 3) = (/&
+ & 1.9287E-05_JPRB,7.0010E-05_JPRB,9.9593E-05_JPRB,1.2286E-04_JPRB,1.3525E-04_JPRB,1.5548E-04_JPRB,&
+ & 2.0918E-04_JPRB,3.4739E-04_JPRB,1.7322E-04_JPRB/)  
+KAO( :, 3, 1, 3) = (/&
+ & 2.7759E-05_JPRB,9.4510E-05_JPRB,1.3259E-04_JPRB,1.6366E-04_JPRB,1.8879E-04_JPRB,2.0943E-04_JPRB,&
+ & 2.3157E-04_JPRB,3.4811E-04_JPRB,1.6150E-04_JPRB/)  
+KAO( :, 4, 1, 3) = (/&
+ & 3.8738E-05_JPRB,1.2422E-04_JPRB,1.7221E-04_JPRB,2.0992E-04_JPRB,2.4272E-04_JPRB,2.7453E-04_JPRB,&
+ & 3.1488E-04_JPRB,3.8180E-04_JPRB,1.6247E-04_JPRB/)  
+KAO( :, 5, 1, 3) = (/&
+ & 5.2551E-05_JPRB,1.5948E-04_JPRB,2.1800E-04_JPRB,2.6091E-04_JPRB,2.8985E-04_JPRB,3.1670E-04_JPRB,&
+ & 3.5730E-04_JPRB,5.0275E-04_JPRB,1.6769E-04_JPRB/)  
+KAO( :, 1, 2, 3) = (/&
+ & 1.0215E-05_JPRB,3.8380E-05_JPRB,5.3048E-05_JPRB,6.6381E-05_JPRB,7.9446E-05_JPRB,1.0242E-04_JPRB,&
+ & 1.6771E-04_JPRB,3.2794E-04_JPRB,9.6316E-05_JPRB/)  
+KAO( :, 2, 2, 3) = (/&
+ & 1.5451E-05_JPRB,5.4104E-05_JPRB,7.5600E-05_JPRB,9.3324E-05_JPRB,1.0289E-04_JPRB,1.2339E-04_JPRB,&
+ & 1.5508E-04_JPRB,2.9561E-04_JPRB,1.1950E-04_JPRB/)  
+KAO( :, 3, 2, 3) = (/&
+ & 2.2597E-05_JPRB,7.3963E-05_JPRB,1.0253E-04_JPRB,1.2549E-04_JPRB,1.4695E-04_JPRB,1.5501E-04_JPRB,&
+ & 1.8766E-04_JPRB,2.7580E-04_JPRB,1.1963E-04_JPRB/)  
+KAO( :, 4, 2, 3) = (/&
+ & 3.1981E-05_JPRB,9.8266E-05_JPRB,1.3455E-04_JPRB,1.6363E-04_JPRB,1.9057E-04_JPRB,2.1405E-04_JPRB,&
+ & 2.4009E-04_JPRB,3.0871E-04_JPRB,1.1944E-04_JPRB/)  
+KAO( :, 5, 2, 3) = (/&
+ & 4.3949E-05_JPRB,1.2724E-04_JPRB,1.7210E-04_JPRB,2.0576E-04_JPRB,2.2967E-04_JPRB,2.5641E-04_JPRB,&
+ & 2.9387E-04_JPRB,3.8545E-04_JPRB,1.2834E-04_JPRB/)  
+KAO( :, 1, 3, 3) = (/&
+ & 7.2365E-06_JPRB,2.6998E-05_JPRB,3.6477E-05_JPRB,4.7217E-05_JPRB,5.6642E-05_JPRB,8.7936E-05_JPRB,&
+ & 1.4529E-04_JPRB,2.7769E-04_JPRB,6.9628E-05_JPRB/)  
+KAO( :, 2, 3, 3) = (/&
+ & 1.1199E-05_JPRB,3.9041E-05_JPRB,5.3564E-05_JPRB,6.4272E-05_JPRB,7.6774E-05_JPRB,9.0855E-05_JPRB,&
+ & 1.2382E-04_JPRB,2.6260E-04_JPRB,7.7539E-05_JPRB/)  
+KAO( :, 3, 3, 3) = (/&
+ & 1.6746E-05_JPRB,5.4459E-05_JPRB,7.4537E-05_JPRB,8.9917E-05_JPRB,1.0355E-04_JPRB,1.1572E-04_JPRB,&
+ & 1.4649E-04_JPRB,2.2179E-04_JPRB,7.9988E-05_JPRB/)  
+KAO( :, 4, 3, 3) = (/&
+ & 2.4191E-05_JPRB,7.3480E-05_JPRB,9.9615E-05_JPRB,1.2140E-04_JPRB,1.3959E-04_JPRB,1.5714E-04_JPRB,&
+ & 1.6549E-04_JPRB,2.4024E-04_JPRB,8.5666E-05_JPRB/)  
+KAO( :, 5, 3, 3) = (/&
+ & 3.3870E-05_JPRB,9.6615E-05_JPRB,1.2939E-04_JPRB,1.5483E-04_JPRB,1.7605E-04_JPRB,2.0033E-04_JPRB,&
+ & 2.2747E-04_JPRB,2.7100E-04_JPRB,9.7295E-05_JPRB/)  
+KAO( :, 1, 4, 3) = (/&
+ & 4.9164E-06_JPRB,1.8370E-05_JPRB,2.4721E-05_JPRB,3.3121E-05_JPRB,4.7620E-05_JPRB,7.5266E-05_JPRB,&
+ & 1.2052E-04_JPRB,2.1534E-04_JPRB,5.2534E-05_JPRB/)  
+KAO( :, 2, 4, 3) = (/&
+ & 7.7659E-06_JPRB,2.7326E-05_JPRB,3.6365E-05_JPRB,4.5331E-05_JPRB,5.4377E-05_JPRB,7.0048E-05_JPRB,&
+ & 1.1606E-04_JPRB,2.2356E-04_JPRB,5.6606E-05_JPRB/)  
+KAO( :, 3, 4, 3) = (/&
+ & 1.1872E-05_JPRB,3.9091E-05_JPRB,5.2753E-05_JPRB,6.2810E-05_JPRB,7.2334E-05_JPRB,8.5510E-05_JPRB,&
+ & 1.0655E-04_JPRB,2.0132E-04_JPRB,6.1013E-05_JPRB/)  
+KAO( :, 4, 4, 3) = (/&
+ & 1.7537E-05_JPRB,5.3794E-05_JPRB,7.2225E-05_JPRB,8.6566E-05_JPRB,1.0009E-04_JPRB,1.0905E-04_JPRB,&
+ & 1.2927E-04_JPRB,1.7979E-04_JPRB,6.7247E-05_JPRB/)  
+KAO( :, 5, 4, 3) = (/&
+ & 2.5077E-05_JPRB,7.1949E-05_JPRB,9.5586E-05_JPRB,1.1422E-04_JPRB,1.3046E-04_JPRB,1.4874E-04_JPRB,&
+ & 1.6151E-04_JPRB,2.1004E-04_JPRB,7.8070E-05_JPRB/)  
+KAO( :, 1, 5, 3) = (/&
+ & 3.3274E-06_JPRB,1.2413E-05_JPRB,1.6893E-05_JPRB,2.5297E-05_JPRB,3.9702E-05_JPRB,6.2471E-05_JPRB,&
+ & 9.4799E-05_JPRB,1.7379E-04_JPRB,4.3352E-05_JPRB/)  
+KAO( :, 2, 5, 3) = (/&
+ & 5.3144E-06_JPRB,1.8924E-05_JPRB,2.4595E-05_JPRB,3.1378E-05_JPRB,3.9382E-05_JPRB,6.2226E-05_JPRB,&
+ & 9.6051E-05_JPRB,1.8141E-04_JPRB,4.9071E-05_JPRB/)  
+KAO( :, 3, 5, 3) = (/&
+ & 8.2729E-06_JPRB,2.7735E-05_JPRB,3.6853E-05_JPRB,4.3473E-05_JPRB,5.3077E-05_JPRB,6.0111E-05_JPRB,&
+ & 8.8205E-05_JPRB,1.7170E-04_JPRB,5.3581E-05_JPRB/)  
+KAO( :, 4, 5, 3) = (/&
+ & 1.2483E-05_JPRB,3.8936E-05_JPRB,5.1944E-05_JPRB,6.0771E-05_JPRB,7.0416E-05_JPRB,8.1406E-05_JPRB,&
+ & 9.7912E-05_JPRB,1.4624E-04_JPRB,6.0502E-05_JPRB/)  
+KAO( :, 5, 5, 3) = (/&
+ & 1.8234E-05_JPRB,5.2997E-05_JPRB,7.0214E-05_JPRB,8.3889E-05_JPRB,9.4583E-05_JPRB,1.0646E-04_JPRB,&
+ & 1.1645E-04_JPRB,1.6664E-04_JPRB,6.9524E-05_JPRB/)  
+KAO( :, 1, 6, 3) = (/&
+ & 2.2627E-06_JPRB,8.2256E-06_JPRB,1.2662E-05_JPRB,2.0881E-05_JPRB,3.2287E-05_JPRB,4.9842E-05_JPRB,&
+ & 7.8514E-05_JPRB,1.5143E-04_JPRB,4.2185E-05_JPRB/)  
+KAO( :, 2, 6, 3) = (/&
+ & 3.5902E-06_JPRB,1.2715E-05_JPRB,1.6777E-05_JPRB,2.2883E-05_JPRB,3.3890E-05_JPRB,5.0807E-05_JPRB,&
+ & 8.0753E-05_JPRB,1.4463E-04_JPRB,4.8590E-05_JPRB/)  
+KAO( :, 3, 6, 3) = (/&
+ & 5.6436E-06_JPRB,1.9109E-05_JPRB,2.4998E-05_JPRB,3.0305E-05_JPRB,3.7831E-05_JPRB,4.7255E-05_JPRB,&
+ & 7.8945E-05_JPRB,1.4406E-04_JPRB,5.5296E-05_JPRB/)  
+KAO( :, 4, 6, 3) = (/&
+ & 8.6680E-06_JPRB,2.7468E-05_JPRB,3.6416E-05_JPRB,4.2070E-05_JPRB,4.9055E-05_JPRB,5.8245E-05_JPRB,&
+ & 7.2889E-05_JPRB,1.3759E-04_JPRB,6.2699E-05_JPRB/)  
+KAO( :, 5, 6, 3) = (/&
+ & 1.2910E-05_JPRB,3.8070E-05_JPRB,5.0552E-05_JPRB,5.9531E-05_JPRB,6.5990E-05_JPRB,7.5485E-05_JPRB,&
+ & 9.0151E-05_JPRB,1.2519E-04_JPRB,7.1158E-05_JPRB/)  
+KAO( :, 1, 7, 3) = (/&
+ & 1.6260E-06_JPRB,5.6512E-06_JPRB,1.0534E-05_JPRB,1.6548E-05_JPRB,2.5722E-05_JPRB,3.9212E-05_JPRB,&
+ & 6.5255E-05_JPRB,1.1642E-04_JPRB,4.8396E-05_JPRB/)  
+KAO( :, 2, 7, 3) = (/&
+ & 2.4977E-06_JPRB,8.5111E-06_JPRB,1.1552E-05_JPRB,1.8620E-05_JPRB,2.6964E-05_JPRB,4.1086E-05_JPRB,&
+ & 6.5326E-05_JPRB,1.2038E-04_JPRB,5.6755E-05_JPRB/)  
+KAO( :, 3, 7, 3) = (/&
+ & 3.8937E-06_JPRB,1.3083E-05_JPRB,1.6837E-05_JPRB,2.1037E-05_JPRB,2.8103E-05_JPRB,4.1971E-05_JPRB,&
+ & 6.4916E-05_JPRB,1.2035E-04_JPRB,6.5643E-05_JPRB/)  
+KAO( :, 4, 7, 3) = (/&
+ & 6.0131E-06_JPRB,1.9182E-05_JPRB,2.5262E-05_JPRB,2.9578E-05_JPRB,3.5380E-05_JPRB,4.1824E-05_JPRB,&
+ & 6.4389E-05_JPRB,1.1625E-04_JPRB,7.5112E-05_JPRB/)  
+KAO( :, 5, 7, 3) = (/&
+ & 9.0775E-06_JPRB,2.7049E-05_JPRB,3.5910E-05_JPRB,4.1673E-05_JPRB,4.7430E-05_JPRB,5.6675E-05_JPRB,&
+ & 6.4662E-05_JPRB,1.0376E-04_JPRB,8.5479E-05_JPRB/)  
+KAO( :, 1, 8, 3) = (/&
+ & 1.2762E-06_JPRB,4.2855E-06_JPRB,8.2820E-06_JPRB,1.3051E-05_JPRB,1.9907E-05_JPRB,3.3971E-05_JPRB,&
+ & 5.0446E-05_JPRB,8.6971E-05_JPRB,7.7745E-05_JPRB/)  
+KAO( :, 2, 8, 3) = (/&
+ & 1.8844E-06_JPRB,5.9050E-06_JPRB,8.9489E-06_JPRB,1.4806E-05_JPRB,2.1839E-05_JPRB,3.2608E-05_JPRB,&
+ & 5.2540E-05_JPRB,9.7610E-05_JPRB,8.9498E-05_JPRB/)  
+KAO( :, 3, 8, 3) = (/&
+ & 2.8385E-06_JPRB,8.9737E-06_JPRB,1.1895E-05_JPRB,1.5870E-05_JPRB,2.4156E-05_JPRB,3.3906E-05_JPRB,&
+ & 5.3605E-05_JPRB,9.6849E-05_JPRB,1.0287E-04_JPRB/)  
+KAO( :, 4, 8, 3) = (/&
+ & 4.3106E-06_JPRB,1.3404E-05_JPRB,1.7498E-05_JPRB,2.1009E-05_JPRB,2.6036E-05_JPRB,3.4758E-05_JPRB,&
+ & 5.4115E-05_JPRB,9.7671E-05_JPRB,1.1774E-04_JPRB/)  
+KAO( :, 5, 8, 3) = (/&
+ & 6.4933E-06_JPRB,1.9198E-05_JPRB,2.5108E-05_JPRB,2.9532E-05_JPRB,3.3547E-05_JPRB,4.0870E-05_JPRB,&
+ & 5.0672E-05_JPRB,9.4048E-05_JPRB,1.3326E-04_JPRB/)  
+KAO( :, 1, 9, 3) = (/&
+ & 1.0706E-06_JPRB,3.3489E-06_JPRB,6.5283E-06_JPRB,1.0192E-05_JPRB,1.7278E-05_JPRB,2.6238E-05_JPRB,&
+ & 3.9041E-05_JPRB,7.0346E-05_JPRB,2.7103E-04_JPRB/)  
+KAO( :, 2, 9, 3) = (/&
+ & 1.5238E-06_JPRB,4.4647E-06_JPRB,7.4896E-06_JPRB,1.1805E-05_JPRB,1.7404E-05_JPRB,2.6241E-05_JPRB,&
+ & 4.5076E-05_JPRB,7.3357E-05_JPRB,3.0478E-04_JPRB/)  
+KAO( :, 3, 9, 3) = (/&
+ & 2.2245E-06_JPRB,6.3482E-06_JPRB,8.7814E-06_JPRB,1.3182E-05_JPRB,1.8649E-05_JPRB,2.8139E-05_JPRB,&
+ & 4.2432E-05_JPRB,8.1918E-05_JPRB,3.3943E-04_JPRB/)  
+KAO( :, 4, 9, 3) = (/&
+ & 3.2853E-06_JPRB,9.5377E-06_JPRB,1.2081E-05_JPRB,1.5048E-05_JPRB,2.0438E-05_JPRB,2.9250E-05_JPRB,&
+ & 4.4492E-05_JPRB,8.0054E-05_JPRB,3.7569E-04_JPRB/)  
+KAO( :, 5, 9, 3) = (/&
+ & 4.8340E-06_JPRB,1.3704E-05_JPRB,1.7727E-05_JPRB,2.0846E-05_JPRB,2.4389E-05_JPRB,3.0169E-05_JPRB,&
+ & 4.5558E-05_JPRB,7.6780E-05_JPRB,4.1363E-04_JPRB/)  
+KAO( :, 1,10, 3) = (/&
+ & 1.0087E-06_JPRB,2.8522E-06_JPRB,5.3847E-06_JPRB,8.7589E-06_JPRB,1.3656E-05_JPRB,2.0793E-05_JPRB,&
+ & 3.0265E-05_JPRB,5.6466E-05_JPRB,1.4467E-03_JPRB/)  
+KAO( :, 2,10, 3) = (/&
+ & 1.3893E-06_JPRB,3.6572E-06_JPRB,6.0381E-06_JPRB,9.5656E-06_JPRB,1.3744E-05_JPRB,2.2378E-05_JPRB,&
+ & 3.6073E-05_JPRB,5.8999E-05_JPRB,1.6134E-03_JPRB/)  
+KAO( :, 3,10, 3) = (/&
+ & 1.9601E-06_JPRB,4.9746E-06_JPRB,7.1675E-06_JPRB,1.0782E-05_JPRB,1.5548E-05_JPRB,2.2425E-05_JPRB,&
+ & 3.4813E-05_JPRB,6.8188E-05_JPRB,1.7742E-03_JPRB/)  
+KAO( :, 4,10, 3) = (/&
+ & 2.8046E-06_JPRB,7.3061E-06_JPRB,9.2760E-06_JPRB,1.2016E-05_JPRB,1.7674E-05_JPRB,2.3526E-05_JPRB,&
+ & 3.6626E-05_JPRB,6.3451E-05_JPRB,1.9257E-03_JPRB/)  
+KAO( :, 5,10, 3) = (/&
+ & 4.0204E-06_JPRB,1.0448E-05_JPRB,1.3168E-05_JPRB,1.5711E-05_JPRB,1.8780E-05_JPRB,2.5290E-05_JPRB,&
+ & 3.7179E-05_JPRB,6.5468E-05_JPRB,2.0654E-03_JPRB/)  
+KAO( :, 1,11, 3) = (/&
+ & 1.1167E-06_JPRB,2.7196E-06_JPRB,4.8414E-06_JPRB,7.5750E-06_JPRB,1.1619E-05_JPRB,1.6844E-05_JPRB,&
+ & 2.5920E-05_JPRB,4.2497E-05_JPRB,3.0648E-03_JPRB/)  
+KAO( :, 2,11, 3) = (/&
+ & 1.5177E-06_JPRB,3.5342E-06_JPRB,5.4336E-06_JPRB,8.4346E-06_JPRB,1.1729E-05_JPRB,1.8362E-05_JPRB,&
+ & 2.9194E-05_JPRB,5.0129E-05_JPRB,3.3976E-03_JPRB/)  
+KAO( :, 3,11, 3) = (/&
+ & 2.0984E-06_JPRB,4.8006E-06_JPRB,6.5451E-06_JPRB,9.5029E-06_JPRB,1.3465E-05_JPRB,1.9020E-05_JPRB,&
+ & 2.8692E-05_JPRB,5.7928E-05_JPRB,3.7050E-03_JPRB/)  
+KAO( :, 4,11, 3) = (/&
+ & 2.9335E-06_JPRB,6.8708E-06_JPRB,8.4101E-06_JPRB,1.0863E-05_JPRB,1.4762E-05_JPRB,2.0091E-05_JPRB,&
+ & 3.0371E-05_JPRB,5.2028E-05_JPRB,3.9809E-03_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART2',1,ZHOOK_HANDLE)
+END SUBROUTINE PART2
+
+
+SUBROUTINE PART3
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART3',0,ZHOOK_HANDLE)
+
+
+KAO( :, 5,11, 3) = (/&
+ & 4.1000E-06_JPRB,9.6543E-06_JPRB,1.1857E-05_JPRB,1.3714E-05_JPRB,1.6526E-05_JPRB,2.1427E-05_JPRB,&
+ & 3.1464E-05_JPRB,5.4245E-05_JPRB,4.2143E-03_JPRB/)  
+KAO( :, 1,12, 3) = (/&
+ & 1.1265E-06_JPRB,2.5186E-06_JPRB,4.3674E-06_JPRB,6.5192E-06_JPRB,9.8193E-06_JPRB,1.4195E-05_JPRB,&
+ & 2.1669E-05_JPRB,3.5591E-05_JPRB,4.1354E-03_JPRB/)  
+KAO( :, 2,12, 3) = (/&
+ & 1.5273E-06_JPRB,3.2471E-06_JPRB,4.8453E-06_JPRB,7.4929E-06_JPRB,9.9333E-06_JPRB,1.5224E-05_JPRB,&
+ & 2.4490E-05_JPRB,4.2520E-05_JPRB,4.5631E-03_JPRB/)  
+KAO( :, 3,12, 3) = (/&
+ & 2.0931E-06_JPRB,4.4632E-06_JPRB,5.8990E-06_JPRB,8.1723E-06_JPRB,1.1637E-05_JPRB,1.5989E-05_JPRB,&
+ & 2.3803E-05_JPRB,4.4958E-05_JPRB,4.9406E-03_JPRB/)  
+KAO( :, 4,12, 3) = (/&
+ & 2.8927E-06_JPRB,6.3250E-06_JPRB,7.6186E-06_JPRB,9.4669E-06_JPRB,1.2563E-05_JPRB,1.7445E-05_JPRB,&
+ & 2.5222E-05_JPRB,4.2668E-05_JPRB,5.2603E-03_JPRB/)  
+KAO( :, 5,12, 3) = (/&
+ & 3.9848E-06_JPRB,8.7921E-06_JPRB,1.0605E-05_JPRB,1.2004E-05_JPRB,1.4341E-05_JPRB,1.8049E-05_JPRB,&
+ & 2.6521E-05_JPRB,4.4754E-05_JPRB,5.5165E-03_JPRB/)  
+KAO( :, 1,13, 3) = (/&
+ & 1.1328E-06_JPRB,2.3238E-06_JPRB,3.9430E-06_JPRB,5.6932E-06_JPRB,8.4038E-06_JPRB,1.1800E-05_JPRB,&
+ & 1.7829E-05_JPRB,3.0820E-05_JPRB,4.4819E-03_JPRB/)  
+KAO( :, 2,13, 3) = (/&
+ & 1.5311E-06_JPRB,3.0098E-06_JPRB,4.3521E-06_JPRB,6.6679E-06_JPRB,8.7081E-06_JPRB,1.2897E-05_JPRB,&
+ & 1.9883E-05_JPRB,3.4493E-05_JPRB,4.9164E-03_JPRB/)  
+KAO( :, 3,13, 3) = (/&
+ & 2.0853E-06_JPRB,4.1223E-06_JPRB,5.4114E-06_JPRB,7.2554E-06_JPRB,1.0229E-05_JPRB,1.3641E-05_JPRB,&
+ & 1.9729E-05_JPRB,3.6438E-05_JPRB,5.2852E-03_JPRB/)  
+KAO( :, 4,13, 3) = (/&
+ & 2.8506E-06_JPRB,5.8568E-06_JPRB,6.9938E-06_JPRB,8.4840E-06_JPRB,1.0942E-05_JPRB,1.5066E-05_JPRB,&
+ & 2.1270E-05_JPRB,3.5313E-05_JPRB,5.5871E-03_JPRB/)  
+KAO( :, 5,13, 3) = (/&
+ & 3.8711E-06_JPRB,8.0712E-06_JPRB,9.6159E-06_JPRB,1.0719E-05_JPRB,1.2561E-05_JPRB,1.5293E-05_JPRB,&
+ & 2.2681E-05_JPRB,3.7058E-05_JPRB,5.8266E-03_JPRB/)  
+KAO( :, 1, 1, 4) = (/&
+ & 7.4893E-05_JPRB,1.7660E-04_JPRB,2.0743E-04_JPRB,2.2345E-04_JPRB,2.5541E-04_JPRB,3.0113E-04_JPRB,&
+ & 4.0065E-04_JPRB,5.1140E-04_JPRB,1.9420E-04_JPRB/)  
+KAO( :, 2, 1, 4) = (/&
+ & 1.0396E-04_JPRB,2.3012E-04_JPRB,2.6622E-04_JPRB,2.8243E-04_JPRB,2.9424E-04_JPRB,3.3000E-04_JPRB,&
+ & 4.1387E-04_JPRB,6.5618E-04_JPRB,1.7248E-04_JPRB/)  
+KAO( :, 3, 1, 4) = (/&
+ & 1.3874E-04_JPRB,2.9171E-04_JPRB,3.3413E-04_JPRB,3.5198E-04_JPRB,3.5734E-04_JPRB,3.6401E-04_JPRB,&
+ & 4.2489E-04_JPRB,6.4403E-04_JPRB,1.9641E-04_JPRB/)  
+KAO( :, 4, 1, 4) = (/&
+ & 1.7941E-04_JPRB,3.6434E-04_JPRB,4.1317E-04_JPRB,4.3271E-04_JPRB,4.3728E-04_JPRB,4.3279E-04_JPRB,&
+ & 4.4184E-04_JPRB,6.1293E-04_JPRB,2.4660E-04_JPRB/)  
+KAO( :, 5, 1, 4) = (/&
+ & 2.2524E-04_JPRB,4.4700E-04_JPRB,5.0389E-04_JPRB,5.2899E-04_JPRB,5.4228E-04_JPRB,5.4473E-04_JPRB,&
+ & 5.3368E-04_JPRB,5.6423E-04_JPRB,3.1492E-04_JPRB/)  
+KAO( :, 1, 2, 4) = (/&
+ & 5.8910E-05_JPRB,1.3730E-04_JPRB,1.6111E-04_JPRB,1.7338E-04_JPRB,1.9974E-04_JPRB,2.3614E-04_JPRB,&
+ & 3.1448E-04_JPRB,3.8866E-04_JPRB,1.4405E-04_JPRB/)  
+KAO( :, 2, 2, 4) = (/&
+ & 8.3036E-05_JPRB,1.8135E-04_JPRB,2.0964E-04_JPRB,2.2070E-04_JPRB,2.3158E-04_JPRB,2.7057E-04_JPRB,&
+ & 3.3372E-04_JPRB,5.4726E-04_JPRB,1.2817E-04_JPRB/)  
+KAO( :, 3, 2, 4) = (/&
+ & 1.1213E-04_JPRB,2.3284E-04_JPRB,2.6662E-04_JPRB,2.8050E-04_JPRB,2.8374E-04_JPRB,2.9072E-04_JPRB,&
+ & 3.5956E-04_JPRB,5.3062E-04_JPRB,1.4567E-04_JPRB/)  
+KAO( :, 4, 2, 4) = (/&
+ & 1.4639E-04_JPRB,2.9331E-04_JPRB,3.3229E-04_JPRB,3.4773E-04_JPRB,3.4771E-04_JPRB,3.4598E-04_JPRB,&
+ & 3.5609E-04_JPRB,5.3796E-04_JPRB,1.8917E-04_JPRB/)  
+KAO( :, 5, 2, 4) = (/&
+ & 1.8573E-04_JPRB,3.6333E-04_JPRB,4.0899E-04_JPRB,4.2805E-04_JPRB,4.3596E-04_JPRB,4.3023E-04_JPRB,&
+ & 4.2036E-04_JPRB,4.7310E-04_JPRB,2.4106E-04_JPRB/)  
+KAO( :, 1, 3, 4) = (/&
+ & 4.2697E-05_JPRB,9.9737E-05_JPRB,1.1762E-04_JPRB,1.3175E-04_JPRB,1.5206E-04_JPRB,1.7738E-04_JPRB,&
+ & 2.2461E-04_JPRB,3.0012E-04_JPRB,9.0760E-05_JPRB/)  
+KAO( :, 2, 3, 4) = (/&
+ & 6.1628E-05_JPRB,1.3453E-04_JPRB,1.5553E-04_JPRB,1.6395E-04_JPRB,1.7863E-04_JPRB,2.1026E-04_JPRB,&
+ & 2.6559E-04_JPRB,4.0665E-04_JPRB,9.5213E-05_JPRB/)  
+KAO( :, 3, 3, 4) = (/&
+ & 8.5155E-05_JPRB,1.7580E-04_JPRB,2.0156E-04_JPRB,2.1203E-04_JPRB,2.1267E-04_JPRB,2.2935E-04_JPRB,&
+ & 2.8279E-04_JPRB,4.3028E-04_JPRB,1.1265E-04_JPRB/)  
+KAO( :, 4, 3, 4) = (/&
+ & 1.1317E-04_JPRB,2.2386E-04_JPRB,2.5438E-04_JPRB,2.6544E-04_JPRB,2.6602E-04_JPRB,2.6653E-04_JPRB,&
+ & 2.9745E-04_JPRB,4.2745E-04_JPRB,1.4173E-04_JPRB/)  
+KAO( :, 5, 3, 4) = (/&
+ & 1.4597E-04_JPRB,2.8045E-04_JPRB,3.1649E-04_JPRB,3.3077E-04_JPRB,3.3240E-04_JPRB,3.2175E-04_JPRB,&
+ & 3.2192E-04_JPRB,4.1153E-04_JPRB,1.7765E-04_JPRB/)  
+KAO( :, 1, 4, 4) = (/&
+ & 2.9896E-05_JPRB,7.0709E-05_JPRB,8.4360E-05_JPRB,9.7466E-05_JPRB,1.0874E-04_JPRB,1.3074E-04_JPRB,&
+ & 1.6227E-04_JPRB,2.5464E-04_JPRB,6.8134E-05_JPRB/)  
+KAO( :, 2, 4, 4) = (/&
+ & 4.4341E-05_JPRB,9.6962E-05_JPRB,1.1247E-04_JPRB,1.1929E-04_JPRB,1.3785E-04_JPRB,1.5834E-04_JPRB,&
+ & 2.0071E-04_JPRB,2.9189E-04_JPRB,7.8206E-05_JPRB/)  
+KAO( :, 3, 4, 4) = (/&
+ & 6.2914E-05_JPRB,1.2902E-04_JPRB,1.4817E-04_JPRB,1.5527E-04_JPRB,1.5849E-04_JPRB,1.8569E-04_JPRB,&
+ & 2.2497E-04_JPRB,3.4124E-04_JPRB,9.0845E-05_JPRB/)  
+KAO( :, 4, 4, 4) = (/&
+ & 8.5677E-05_JPRB,1.6689E-04_JPRB,1.9068E-04_JPRB,1.9916E-04_JPRB,1.9978E-04_JPRB,2.0155E-04_JPRB,&
+ & 2.4936E-04_JPRB,3.5340E-04_JPRB,1.0988E-04_JPRB/)  
+KAO( :, 5, 4, 4) = (/&
+ & 1.1242E-04_JPRB,2.1149E-04_JPRB,2.3915E-04_JPRB,2.5028E-04_JPRB,2.4989E-04_JPRB,2.4272E-04_JPRB,&
+ & 2.4831E-04_JPRB,3.6709E-04_JPRB,1.3381E-04_JPRB/)  
+KAO( :, 1, 5, 4) = (/&
+ & 2.0688E-05_JPRB,4.9203E-05_JPRB,5.9785E-05_JPRB,6.6990E-05_JPRB,7.8124E-05_JPRB,9.2624E-05_JPRB,&
+ & 1.2472E-04_JPRB,2.0745E-04_JPRB,6.1812E-05_JPRB/)  
+KAO( :, 2, 5, 4) = (/&
+ & 3.1637E-05_JPRB,6.9271E-05_JPRB,8.0604E-05_JPRB,9.0077E-05_JPRB,1.0181E-04_JPRB,1.1707E-04_JPRB,&
+ & 1.4853E-04_JPRB,2.1722E-04_JPRB,7.1005E-05_JPRB/)  
+KAO( :, 3, 5, 4) = (/&
+ & 4.6076E-05_JPRB,9.3625E-05_JPRB,1.0769E-04_JPRB,1.1334E-04_JPRB,1.2174E-04_JPRB,1.4414E-04_JPRB,&
+ & 1.7668E-04_JPRB,2.5800E-04_JPRB,8.3094E-05_JPRB/)  
+KAO( :, 4, 5, 4) = (/&
+ & 6.4341E-05_JPRB,1.2346E-04_JPRB,1.4103E-04_JPRB,1.4850E-04_JPRB,1.4693E-04_JPRB,1.5815E-04_JPRB,&
+ & 1.9286E-04_JPRB,2.8817E-04_JPRB,9.6701E-05_JPRB/)  
+KAO( :, 5, 5, 4) = (/&
+ & 8.6238E-05_JPRB,1.5868E-04_JPRB,1.7942E-04_JPRB,1.8707E-04_JPRB,1.8806E-04_JPRB,1.8319E-04_JPRB,&
+ & 2.0554E-04_JPRB,2.8611E-04_JPRB,1.1287E-04_JPRB/)  
+KAO( :, 1, 6, 4) = (/&
+ & 1.4006E-05_JPRB,3.3343E-05_JPRB,4.0079E-05_JPRB,4.5588E-05_JPRB,5.4107E-05_JPRB,6.6418E-05_JPRB,&
+ & 1.0066E-04_JPRB,1.4196E-04_JPRB,6.6243E-05_JPRB/)  
+KAO( :, 2, 6, 4) = (/&
+ & 2.2071E-05_JPRB,4.8614E-05_JPRB,5.7228E-05_JPRB,6.5093E-05_JPRB,7.1721E-05_JPRB,8.5635E-05_JPRB,&
+ & 1.0856E-04_JPRB,1.8021E-04_JPRB,7.5554E-05_JPRB/)  
+KAO( :, 3, 6, 4) = (/&
+ & 3.3040E-05_JPRB,6.6682E-05_JPRB,7.6698E-05_JPRB,8.2380E-05_JPRB,9.3552E-05_JPRB,1.0700E-04_JPRB,&
+ & 1.3596E-04_JPRB,1.9405E-04_JPRB,8.6063E-05_JPRB/)  
+KAO( :, 4, 6, 4) = (/&
+ & 4.7386E-05_JPRB,8.9793E-05_JPRB,1.0237E-04_JPRB,1.0759E-04_JPRB,1.0965E-04_JPRB,1.2726E-04_JPRB,&
+ & 1.5398E-04_JPRB,2.2704E-04_JPRB,9.8696E-05_JPRB/)  
+KAO( :, 5, 6, 4) = (/&
+ & 6.5121E-05_JPRB,1.1757E-04_JPRB,1.3268E-04_JPRB,1.3869E-04_JPRB,1.4006E-04_JPRB,1.3836E-04_JPRB,&
+ & 1.7051E-04_JPRB,2.3669E-04_JPRB,1.1305E-04_JPRB/)  
+KAO( :, 1, 7, 4) = (/&
+ & 9.5061E-06_JPRB,2.2311E-05_JPRB,2.6088E-05_JPRB,3.0162E-05_JPRB,3.7877E-05_JPRB,5.4505E-05_JPRB,&
+ & 7.5227E-05_JPRB,1.1255E-04_JPRB,8.3483E-05_JPRB/)  
+KAO( :, 2, 7, 4) = (/&
+ & 1.5323E-05_JPRB,3.3598E-05_JPRB,4.0386E-05_JPRB,4.3881E-05_JPRB,5.0583E-05_JPRB,6.2493E-05_JPRB,&
+ & 8.2842E-05_JPRB,1.4322E-04_JPRB,9.4311E-05_JPRB/)  
+KAO( :, 3, 7, 4) = (/&
+ & 2.3596E-05_JPRB,4.7494E-05_JPRB,5.4556E-05_JPRB,6.1372E-05_JPRB,6.7015E-05_JPRB,7.9350E-05_JPRB,&
+ & 9.7496E-05_JPRB,1.4436E-04_JPRB,1.0703E-04_JPRB/)  
+KAO( :, 4, 7, 4) = (/&
+ & 3.4570E-05_JPRB,6.4860E-05_JPRB,7.3694E-05_JPRB,7.7754E-05_JPRB,8.4695E-05_JPRB,9.7029E-05_JPRB,&
+ & 1.1678E-04_JPRB,1.6858E-04_JPRB,1.2127E-04_JPRB/)  
+KAO( :, 5, 7, 4) = (/&
+ & 4.8551E-05_JPRB,8.6609E-05_JPRB,9.7619E-05_JPRB,1.0164E-04_JPRB,1.0226E-04_JPRB,1.0885E-04_JPRB,&
+ & 1.3405E-04_JPRB,1.9133E-04_JPRB,1.3656E-04_JPRB/)  
+KAO( :, 1, 8, 4) = (/&
+ & 6.7311E-06_JPRB,1.4755E-05_JPRB,1.6935E-05_JPRB,2.1463E-05_JPRB,3.1231E-05_JPRB,4.0742E-05_JPRB,&
+ & 5.6656E-05_JPRB,8.5927E-05_JPRB,1.5049E-04_JPRB/)  
+KAO( :, 2, 8, 4) = (/&
+ & 1.0838E-05_JPRB,2.3183E-05_JPRB,2.7453E-05_JPRB,3.0553E-05_JPRB,3.5694E-05_JPRB,4.6374E-05_JPRB,&
+ & 6.9419E-05_JPRB,1.0643E-04_JPRB,1.6866E-04_JPRB/)  
+KAO( :, 3, 8, 4) = (/&
+ & 1.6914E-05_JPRB,3.3766E-05_JPRB,3.8989E-05_JPRB,4.4447E-05_JPRB,4.8070E-05_JPRB,5.7198E-05_JPRB,&
+ & 7.1116E-05_JPRB,1.2478E-04_JPRB,1.8779E-04_JPRB/)  
+KAO( :, 4, 8, 4) = (/&
+ & 2.5195E-05_JPRB,4.6972E-05_JPRB,5.3026E-05_JPRB,5.6927E-05_JPRB,6.4565E-05_JPRB,7.1923E-05_JPRB,&
+ & 9.0751E-05_JPRB,1.2249E-04_JPRB,2.0805E-04_JPRB/)  
+KAO( :, 5, 8, 4) = (/&
+ & 3.5942E-05_JPRB,6.3786E-05_JPRB,7.1729E-05_JPRB,7.3949E-05_JPRB,7.6446E-05_JPRB,8.8163E-05_JPRB,&
+ & 1.0367E-04_JPRB,1.5461E-04_JPRB,2.3067E-04_JPRB/)  
+KAO( :, 1, 9, 4) = (/&
+ & 5.1599E-06_JPRB,1.0081E-05_JPRB,1.1772E-05_JPRB,1.6698E-05_JPRB,2.2821E-05_JPRB,2.9936E-05_JPRB,&
+ & 4.2105E-05_JPRB,6.2990E-05_JPRB,5.8733E-04_JPRB/)  
+KAO( :, 2, 9, 4) = (/&
+ & 8.0231E-06_JPRB,1.6031E-05_JPRB,1.8581E-05_JPRB,2.0889E-05_JPRB,2.6202E-05_JPRB,3.8502E-05_JPRB,&
+ & 5.1188E-05_JPRB,8.2231E-05_JPRB,6.4455E-04_JPRB/)  
+KAO( :, 3, 9, 4) = (/&
+ & 1.2365E-05_JPRB,2.3962E-05_JPRB,2.7785E-05_JPRB,3.0574E-05_JPRB,3.4959E-05_JPRB,4.1433E-05_JPRB,&
+ & 5.7939E-05_JPRB,9.7311E-05_JPRB,7.0196E-04_JPRB/)  
+KAO( :, 4, 9, 4) = (/&
+ & 1.8494E-05_JPRB,3.4148E-05_JPRB,3.8522E-05_JPRB,4.2610E-05_JPRB,4.6125E-05_JPRB,5.4566E-05_JPRB,&
+ & 6.5066E-05_JPRB,9.3543E-05_JPRB,7.5838E-04_JPRB/)  
+KAO( :, 5, 9, 4) = (/&
+ & 2.6560E-05_JPRB,4.6839E-05_JPRB,5.2429E-05_JPRB,5.4183E-05_JPRB,5.9609E-05_JPRB,6.7149E-05_JPRB,&
+ & 7.9436E-05_JPRB,1.1417E-04_JPRB,8.1247E-04_JPRB/)  
+KAO( :, 1,10, 4) = (/&
+ & 4.5845E-06_JPRB,7.8051E-06_JPRB,9.3693E-06_JPRB,1.2991E-05_JPRB,1.7572E-05_JPRB,2.3437E-05_JPRB,&
+ & 3.3813E-05_JPRB,4.9188E-05_JPRB,3.3674E-03_JPRB/)  
+KAO( :, 2,10, 4) = (/&
+ & 6.8084E-06_JPRB,1.2034E-05_JPRB,1.3688E-05_JPRB,1.5733E-05_JPRB,2.1211E-05_JPRB,2.9098E-05_JPRB,&
+ & 3.8545E-05_JPRB,6.3500E-05_JPRB,3.6391E-03_JPRB/)  
+KAO( :, 3,10, 4) = (/&
+ & 1.0062E-05_JPRB,1.7982E-05_JPRB,2.0409E-05_JPRB,2.2663E-05_JPRB,2.5613E-05_JPRB,3.1784E-05_JPRB,&
+ & 4.7385E-05_JPRB,7.3006E-05_JPRB,3.8993E-03_JPRB/)  
+KAO( :, 4,10, 4) = (/&
+ & 1.4658E-05_JPRB,2.5727E-05_JPRB,2.8782E-05_JPRB,3.2310E-05_JPRB,3.4485E-05_JPRB,4.0752E-05_JPRB,&
+ & 4.8720E-05_JPRB,8.2499E-05_JPRB,4.1490E-03_JPRB/)  
+KAO( :, 5,10, 4) = (/&
+ & 2.0786E-05_JPRB,3.5657E-05_JPRB,3.9659E-05_JPRB,4.1123E-05_JPRB,4.6983E-05_JPRB,5.0556E-05_JPRB,&
+ & 6.3521E-05_JPRB,8.4499E-05_JPRB,4.3775E-03_JPRB/)  
+KAO( :, 1,11, 4) = (/&
+ & 5.0356E-06_JPRB,7.7353E-06_JPRB,8.8833E-06_JPRB,1.1452E-05_JPRB,1.5243E-05_JPRB,2.1044E-05_JPRB,&
+ & 2.8338E-05_JPRB,4.9949E-05_JPRB,7.2577E-03_JPRB/)  
+KAO( :, 2,11, 4) = (/&
+ & 7.2423E-06_JPRB,1.1514E-05_JPRB,1.2798E-05_JPRB,1.4086E-05_JPRB,1.8007E-05_JPRB,2.4558E-05_JPRB,&
+ & 3.3851E-05_JPRB,5.2802E-05_JPRB,7.8158E-03_JPRB/)  
+KAO( :, 3,11, 4) = (/&
+ & 1.0309E-05_JPRB,1.6653E-05_JPRB,1.8407E-05_JPRB,2.0089E-05_JPRB,2.2296E-05_JPRB,2.7018E-05_JPRB,&
+ & 3.8586E-05_JPRB,6.0068E-05_JPRB,8.3354E-03_JPRB/)  
+KAO( :, 4,11, 4) = (/&
+ & 1.4421E-05_JPRB,2.3379E-05_JPRB,2.5740E-05_JPRB,2.7750E-05_JPRB,3.0309E-05_JPRB,3.4851E-05_JPRB,&
+ & 4.1245E-05_JPRB,6.8211E-05_JPRB,8.8296E-03_JPRB/)  
+KAO( :, 5,11, 4) = (/&
+ & 1.9663E-05_JPRB,3.1842E-05_JPRB,3.4991E-05_JPRB,3.6140E-05_JPRB,3.9688E-05_JPRB,4.2983E-05_JPRB,&
+ & 5.3776E-05_JPRB,6.9907E-05_JPRB,9.2688E-03_JPRB/)  
+KAO( :, 1,12, 4) = (/&
+ & 5.1165E-06_JPRB,7.4029E-06_JPRB,8.1941E-06_JPRB,1.0138E-05_JPRB,1.3490E-05_JPRB,1.7256E-05_JPRB,&
+ & 2.4419E-05_JPRB,4.0146E-05_JPRB,9.9448E-03_JPRB/)  
+KAO( :, 2,12, 4) = (/&
+ & 7.2283E-06_JPRB,1.0802E-05_JPRB,1.1887E-05_JPRB,1.2642E-05_JPRB,1.5734E-05_JPRB,2.0542E-05_JPRB,&
+ & 2.7886E-05_JPRB,4.3910E-05_JPRB,1.0705E-02_JPRB/)  
+KAO( :, 3,12, 4) = (/&
+ & 1.0065E-05_JPRB,1.5284E-05_JPRB,1.6642E-05_JPRB,1.8157E-05_JPRB,1.9448E-05_JPRB,2.3207E-05_JPRB,&
+ & 3.2168E-05_JPRB,5.3905E-05_JPRB,1.1409E-02_JPRB/)  
+KAO( :, 4,12, 4) = (/&
+ & 1.3731E-05_JPRB,2.1142E-05_JPRB,2.2780E-05_JPRB,2.4378E-05_JPRB,2.6665E-05_JPRB,2.9738E-05_JPRB,&
+ & 3.5163E-05_JPRB,5.5828E-05_JPRB,1.2051E-02_JPRB/)  
+KAO( :, 5,12, 4) = (/&
+ & 1.8328E-05_JPRB,2.8382E-05_JPRB,3.0850E-05_JPRB,3.1430E-05_JPRB,3.3929E-05_JPRB,3.7016E-05_JPRB,&
+ & 4.5266E-05_JPRB,5.8847E-05_JPRB,1.2603E-02_JPRB/)  
+KAO( :, 1,13, 4) = (/&
+ & 5.1628E-06_JPRB,7.0476E-06_JPRB,7.6783E-06_JPRB,9.1901E-06_JPRB,1.1659E-05_JPRB,1.4990E-05_JPRB,&
+ & 2.0746E-05_JPRB,3.1591E-05_JPRB,1.0979E-02_JPRB/)  
+KAO( :, 2,13, 4) = (/&
+ & 7.1656E-06_JPRB,1.0090E-05_JPRB,1.0951E-05_JPRB,1.1562E-05_JPRB,1.3750E-05_JPRB,1.7398E-05_JPRB,&
+ & 2.3701E-05_JPRB,3.7488E-05_JPRB,1.1813E-02_JPRB/)  
+KAO( :, 3,13, 4) = (/&
+ & 9.7810E-06_JPRB,1.4159E-05_JPRB,1.5003E-05_JPRB,1.6207E-05_JPRB,1.7175E-05_JPRB,1.9965E-05_JPRB,&
+ & 2.7079E-05_JPRB,4.3382E-05_JPRB,1.2578E-02_JPRB/)  
+KAO( :, 4,13, 4) = (/&
+ & 1.3104E-05_JPRB,1.9253E-05_JPRB,2.0395E-05_JPRB,2.1436E-05_JPRB,2.3261E-05_JPRB,2.5640E-05_JPRB,&
+ & 2.9895E-05_JPRB,4.6045E-05_JPRB,1.3231E-02_JPRB/)  
+KAO( :, 5,13, 4) = (/&
+ & 1.7208E-05_JPRB,2.5546E-05_JPRB,2.7424E-05_JPRB,2.7535E-05_JPRB,2.9380E-05_JPRB,3.2546E-05_JPRB,&
+ & 3.8040E-05_JPRB,4.9840E-05_JPRB,1.3742E-02_JPRB/)  
+KAO( :, 1, 1, 5) = (/&
+ & 3.1090E-04_JPRB,4.1312E-04_JPRB,4.5176E-04_JPRB,4.6856E-04_JPRB,4.5586E-04_JPRB,4.3213E-04_JPRB,&
+ & 4.5397E-04_JPRB,7.8015E-04_JPRB,2.0103E-04_JPRB/)  
+KAO( :, 2, 1, 5) = (/&
+ & 3.8398E-04_JPRB,5.2122E-04_JPRB,5.7336E-04_JPRB,6.0217E-04_JPRB,6.0591E-04_JPRB,5.7511E-04_JPRB,&
+ & 5.3422E-04_JPRB,6.1896E-04_JPRB,2.8351E-04_JPRB/)  
+KAO( :, 3, 1, 5) = (/&
+ & 4.6534E-04_JPRB,6.4382E-04_JPRB,7.1301E-04_JPRB,7.5438E-04_JPRB,7.7134E-04_JPRB,7.6006E-04_JPRB,&
+ & 7.0811E-04_JPRB,7.4234E-04_JPRB,3.7763E-04_JPRB/)  
+KAO( :, 4, 1, 5) = (/&
+ & 5.5987E-04_JPRB,7.8442E-04_JPRB,8.7478E-04_JPRB,9.3078E-04_JPRB,9.6145E-04_JPRB,9.6632E-04_JPRB,&
+ & 9.4057E-04_JPRB,8.7094E-04_JPRB,4.7321E-04_JPRB/)  
+KAO( :, 5, 1, 5) = (/&
+ & 6.6579E-04_JPRB,9.4348E-04_JPRB,1.0594E-03_JPRB,1.1323E-03_JPRB,1.1769E-03_JPRB,1.1973E-03_JPRB,&
+ & 1.1941E-03_JPRB,1.1720E-03_JPRB,5.8670E-04_JPRB/)  
+KAO( :, 1, 2, 5) = (/&
+ & 2.4736E-04_JPRB,3.2724E-04_JPRB,3.5306E-04_JPRB,3.6178E-04_JPRB,3.4912E-04_JPRB,3.3979E-04_JPRB,&
+ & 3.6882E-04_JPRB,6.4661E-04_JPRB,1.4637E-04_JPRB/)  
+KAO( :, 2, 2, 5) = (/&
+ & 3.1002E-04_JPRB,4.1717E-04_JPRB,4.5359E-04_JPRB,4.7283E-04_JPRB,4.7168E-04_JPRB,4.4103E-04_JPRB,&
+ & 4.4124E-04_JPRB,5.1519E-04_JPRB,2.1389E-04_JPRB/)  
+KAO( :, 3, 2, 5) = (/&
+ & 3.8079E-04_JPRB,5.2107E-04_JPRB,5.7062E-04_JPRB,5.9973E-04_JPRB,6.0662E-04_JPRB,5.9325E-04_JPRB,&
+ & 5.3745E-04_JPRB,5.8652E-04_JPRB,2.8633E-04_JPRB/)  
+KAO( :, 4, 2, 5) = (/&
+ & 4.6210E-04_JPRB,6.4094E-04_JPRB,7.0763E-04_JPRB,7.4776E-04_JPRB,7.6652E-04_JPRB,7.5984E-04_JPRB,&
+ & 7.3202E-04_JPRB,6.4140E-04_JPRB,3.5290E-04_JPRB/)  
+KAO( :, 5, 2, 5) = (/&
+ & 5.5546E-04_JPRB,7.7925E-04_JPRB,8.6616E-04_JPRB,9.1863E-04_JPRB,9.4674E-04_JPRB,9.5490E-04_JPRB,&
+ & 9.4094E-04_JPRB,9.1867E-04_JPRB,4.4201E-04_JPRB/)  
+KAO( :, 1, 3, 5) = (/&
+ & 1.8639E-04_JPRB,2.4387E-04_JPRB,2.5915E-04_JPRB,2.5906E-04_JPRB,2.4918E-04_JPRB,2.5967E-04_JPRB,&
+ & 3.1653E-04_JPRB,4.7580E-04_JPRB,1.1679E-04_JPRB/)  
+KAO( :, 2, 3, 5) = (/&
+ & 2.3798E-04_JPRB,3.1564E-04_JPRB,3.3906E-04_JPRB,3.5000E-04_JPRB,3.4157E-04_JPRB,3.1943E-04_JPRB,&
+ & 3.2743E-04_JPRB,4.5496E-04_JPRB,1.5856E-04_JPRB/)  
+KAO( :, 3, 3, 5) = (/&
+ & 2.9733E-04_JPRB,4.0070E-04_JPRB,4.3349E-04_JPRB,4.5188E-04_JPRB,4.5270E-04_JPRB,4.3123E-04_JPRB,&
+ & 3.9880E-04_JPRB,4.4081E-04_JPRB,2.0446E-04_JPRB/)  
+KAO( :, 4, 3, 5) = (/&
+ & 3.6501E-04_JPRB,4.9946E-04_JPRB,5.4499E-04_JPRB,5.7170E-04_JPRB,5.7932E-04_JPRB,5.6633E-04_JPRB,&
+ & 5.2704E-04_JPRB,5.1414E-04_JPRB,2.5539E-04_JPRB/)  
+KAO( :, 5, 3, 5) = (/&
+ & 4.4410E-04_JPRB,6.1578E-04_JPRB,6.7619E-04_JPRB,7.1133E-04_JPRB,7.2738E-04_JPRB,7.2351E-04_JPRB,&
+ & 7.0138E-04_JPRB,6.6673E-04_JPRB,3.2169E-04_JPRB/)  
+KAO( :, 1, 4, 5) = (/&
+ & 1.3808E-04_JPRB,1.7775E-04_JPRB,1.8565E-04_JPRB,1.8174E-04_JPRB,1.8202E-04_JPRB,1.9738E-04_JPRB,&
+ & 2.6854E-04_JPRB,3.3980E-04_JPRB,9.6622E-05_JPRB/)  
+KAO( :, 2, 4, 5) = (/&
+ & 1.7835E-04_JPRB,2.3331E-04_JPRB,2.4753E-04_JPRB,2.5139E-04_JPRB,2.3877E-04_JPRB,2.3221E-04_JPRB,&
+ & 2.5394E-04_JPRB,4.0618E-04_JPRB,1.2075E-04_JPRB/)  
+KAO( :, 3, 4, 5) = (/&
+ & 2.2702E-04_JPRB,3.0170E-04_JPRB,3.2275E-04_JPRB,3.3261E-04_JPRB,3.2998E-04_JPRB,3.0635E-04_JPRB,&
+ & 3.0422E-04_JPRB,3.7513E-04_JPRB,1.4994E-04_JPRB/)  
+KAO( :, 4, 4, 5) = (/&
+ & 2.8327E-04_JPRB,3.8288E-04_JPRB,4.1191E-04_JPRB,4.2826E-04_JPRB,4.2837E-04_JPRB,4.1511E-04_JPRB,&
+ & 3.7299E-04_JPRB,4.1488E-04_JPRB,1.8740E-04_JPRB/)  
+KAO( :, 5, 4, 5) = (/&
+ & 3.4778E-04_JPRB,4.7798E-04_JPRB,5.1863E-04_JPRB,5.4065E-04_JPRB,5.4665E-04_JPRB,5.3624E-04_JPRB,&
+ & 5.0550E-04_JPRB,4.5874E-04_JPRB,2.3509E-04_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART3',1,ZHOOK_HANDLE)
+END SUBROUTINE PART3
+
+
+SUBROUTINE PART4
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART4',0,ZHOOK_HANDLE)
+
+
+KAO( :, 1, 5, 5) = (/&
+ & 1.0090E-04_JPRB,1.2840E-04_JPRB,1.3222E-04_JPRB,1.3092E-04_JPRB,1.3649E-04_JPRB,1.6019E-04_JPRB,&
+ & 2.1671E-04_JPRB,2.5303E-04_JPRB,9.1217E-05_JPRB/)  
+KAO( :, 2, 5, 5) = (/&
+ & 1.3290E-04_JPRB,1.7161E-04_JPRB,1.7952E-04_JPRB,1.7693E-04_JPRB,1.6957E-04_JPRB,1.7378E-04_JPRB,&
+ & 2.2031E-04_JPRB,3.2593E-04_JPRB,1.0460E-04_JPRB/)  
+KAO( :, 3, 5, 5) = (/&
+ & 1.7169E-04_JPRB,2.2556E-04_JPRB,2.3842E-04_JPRB,2.4266E-04_JPRB,2.3387E-04_JPRB,2.1722E-04_JPRB,&
+ & 2.2376E-04_JPRB,3.3249E-04_JPRB,1.2312E-04_JPRB/)  
+KAO( :, 4, 5, 5) = (/&
+ & 2.1761E-04_JPRB,2.9095E-04_JPRB,3.1013E-04_JPRB,3.1776E-04_JPRB,3.1556E-04_JPRB,2.9734E-04_JPRB,&
+ & 2.7621E-04_JPRB,3.0674E-04_JPRB,1.4846E-04_JPRB/)  
+KAO( :, 5, 5, 5) = (/&
+ & 2.6974E-04_JPRB,3.6873E-04_JPRB,3.9640E-04_JPRB,4.0873E-04_JPRB,4.0796E-04_JPRB,3.9425E-04_JPRB,&
+ & 3.6157E-04_JPRB,3.6174E-04_JPRB,1.8146E-04_JPRB/)  
+KAO( :, 1, 6, 5) = (/&
+ & 7.2092E-05_JPRB,9.1048E-05_JPRB,9.3429E-05_JPRB,9.5226E-05_JPRB,1.0150E-04_JPRB,1.3173E-04_JPRB,&
+ & 1.4984E-04_JPRB,1.9196E-04_JPRB,9.8397E-05_JPRB/)  
+KAO( :, 2, 6, 5) = (/&
+ & 9.7448E-05_JPRB,1.2423E-04_JPRB,1.2792E-04_JPRB,1.2413E-04_JPRB,1.2424E-04_JPRB,1.3383E-04_JPRB,&
+ & 1.7960E-04_JPRB,2.4434E-04_JPRB,1.1133E-04_JPRB/)  
+KAO( :, 3, 6, 5) = (/&
+ & 1.2736E-04_JPRB,1.6584E-04_JPRB,1.7360E-04_JPRB,1.7200E-04_JPRB,1.6167E-04_JPRB,1.5892E-04_JPRB,&
+ & 1.7153E-04_JPRB,2.8218E-04_JPRB,1.2781E-04_JPRB/)  
+KAO( :, 4, 6, 5) = (/&
+ & 1.6376E-04_JPRB,2.1742E-04_JPRB,2.3003E-04_JPRB,2.3266E-04_JPRB,2.2686E-04_JPRB,2.0723E-04_JPRB,&
+ & 2.0538E-04_JPRB,2.5489E-04_JPRB,1.4690E-04_JPRB/)  
+KAO( :, 5, 6, 5) = (/&
+ & 2.0555E-04_JPRB,2.7960E-04_JPRB,2.9861E-04_JPRB,3.0501E-04_JPRB,3.0003E-04_JPRB,2.8746E-04_JPRB,&
+ & 2.5983E-04_JPRB,2.8313E-04_JPRB,1.7007E-04_JPRB/)  
+KAO( :, 1, 7, 5) = (/&
+ & 5.0915E-05_JPRB,6.4096E-05_JPRB,6.5839E-05_JPRB,7.0435E-05_JPRB,8.2474E-05_JPRB,1.0016E-04_JPRB,&
+ & 1.1360E-04_JPRB,1.4590E-04_JPRB,1.4032E-04_JPRB/)  
+KAO( :, 2, 7, 5) = (/&
+ & 7.0625E-05_JPRB,8.9097E-05_JPRB,9.0314E-05_JPRB,8.9429E-05_JPRB,9.3251E-05_JPRB,1.0724E-04_JPRB,&
+ & 1.4912E-04_JPRB,1.8863E-04_JPRB,1.5518E-04_JPRB/)  
+KAO( :, 3, 7, 5) = (/&
+ & 9.4098E-05_JPRB,1.2125E-04_JPRB,1.2537E-04_JPRB,1.2091E-04_JPRB,1.1603E-04_JPRB,1.1857E-04_JPRB,&
+ & 1.4624E-04_JPRB,2.2506E-04_JPRB,1.7262E-04_JPRB/)  
+KAO( :, 4, 7, 5) = (/&
+ & 1.2191E-04_JPRB,1.6102E-04_JPRB,1.6901E-04_JPRB,1.6848E-04_JPRB,1.5829E-04_JPRB,1.4830E-04_JPRB,&
+ & 1.5156E-04_JPRB,2.2031E-04_JPRB,1.9339E-04_JPRB/)  
+KAO( :, 5, 7, 5) = (/&
+ & 1.5529E-04_JPRB,2.0973E-04_JPRB,2.2297E-04_JPRB,2.2562E-04_JPRB,2.1894E-04_JPRB,2.0410E-04_JPRB,&
+ & 1.8782E-04_JPRB,2.1024E-04_JPRB,2.1671E-04_JPRB/)  
+KAO( :, 1, 8, 5) = (/&
+ & 3.6049E-05_JPRB,4.5291E-05_JPRB,4.7754E-05_JPRB,5.1919E-05_JPRB,6.1186E-05_JPRB,6.9190E-05_JPRB,&
+ & 8.4378E-05_JPRB,1.1648E-04_JPRB,2.7572E-04_JPRB/)  
+KAO( :, 2, 8, 5) = (/&
+ & 5.1045E-05_JPRB,6.3896E-05_JPRB,6.4272E-05_JPRB,6.5150E-05_JPRB,6.9954E-05_JPRB,8.8868E-05_JPRB,&
+ & 1.0162E-04_JPRB,1.4598E-04_JPRB,3.0000E-04_JPRB/)  
+KAO( :, 3, 8, 5) = (/&
+ & 6.9216E-05_JPRB,8.8252E-05_JPRB,9.0050E-05_JPRB,8.5873E-05_JPRB,8.5359E-05_JPRB,9.1693E-05_JPRB,&
+ & 1.2432E-04_JPRB,1.5741E-04_JPRB,3.2619E-04_JPRB/)  
+KAO( :, 4, 8, 5) = (/&
+ & 9.0719E-05_JPRB,1.1854E-04_JPRB,1.2391E-04_JPRB,1.2089E-04_JPRB,1.1160E-04_JPRB,1.0845E-04_JPRB,&
+ & 1.1912E-04_JPRB,1.9063E-04_JPRB,3.5459E-04_JPRB/)  
+KAO( :, 5, 8, 5) = (/&
+ & 1.1702E-04_JPRB,1.5606E-04_JPRB,1.6531E-04_JPRB,1.6622E-04_JPRB,1.5932E-04_JPRB,1.4248E-04_JPRB,&
+ & 1.4183E-04_JPRB,1.7131E-04_JPRB,3.8497E-04_JPRB/)  
+KAO( :, 1, 9, 5) = (/&
+ & 2.5866E-05_JPRB,3.2320E-05_JPRB,3.4576E-05_JPRB,3.8709E-05_JPRB,4.6229E-05_JPRB,5.2438E-05_JPRB,&
+ & 6.5503E-05_JPRB,9.3730E-05_JPRB,1.1703E-03_JPRB/)  
+KAO( :, 2, 9, 5) = (/&
+ & 3.7130E-05_JPRB,4.6042E-05_JPRB,4.6409E-05_JPRB,4.8783E-05_JPRB,5.6170E-05_JPRB,6.7762E-05_JPRB,&
+ & 7.7225E-05_JPRB,1.1273E-04_JPRB,1.2364E-03_JPRB/)  
+KAO( :, 3, 9, 5) = (/&
+ & 5.1057E-05_JPRB,6.4238E-05_JPRB,6.4747E-05_JPRB,6.3009E-05_JPRB,6.3858E-05_JPRB,7.4779E-05_JPRB,&
+ & 9.9385E-05_JPRB,1.2137E-04_JPRB,1.3035E-03_JPRB/)  
+KAO( :, 4, 9, 5) = (/&
+ & 6.7872E-05_JPRB,8.7074E-05_JPRB,9.0171E-05_JPRB,8.6365E-05_JPRB,8.1775E-05_JPRB,8.1150E-05_JPRB,&
+ & 1.0091E-04_JPRB,1.5846E-04_JPRB,1.3706E-03_JPRB/)  
+KAO( :, 5, 9, 5) = (/&
+ & 8.8212E-05_JPRB,1.1565E-04_JPRB,1.2170E-04_JPRB,1.2148E-04_JPRB,1.1255E-04_JPRB,1.0392E-04_JPRB,&
+ & 1.0391E-04_JPRB,1.5035E-04_JPRB,1.4393E-03_JPRB/)  
+KAO( :, 1,10, 5) = (/&
+ & 2.0052E-05_JPRB,2.4599E-05_JPRB,2.6224E-05_JPRB,2.9775E-05_JPRB,3.4377E-05_JPRB,3.9753E-05_JPRB,&
+ & 5.1870E-05_JPRB,7.0614E-05_JPRB,6.9310E-03_JPRB/)  
+KAO( :, 2,10, 5) = (/&
+ & 2.8642E-05_JPRB,3.5006E-05_JPRB,3.5601E-05_JPRB,3.7670E-05_JPRB,4.4192E-05_JPRB,5.0297E-05_JPRB,&
+ & 6.0753E-05_JPRB,8.8409E-05_JPRB,7.2473E-03_JPRB/)  
+KAO( :, 3,10, 5) = (/&
+ & 3.9509E-05_JPRB,4.8803E-05_JPRB,4.8668E-05_JPRB,4.7951E-05_JPRB,5.0708E-05_JPRB,6.1469E-05_JPRB,&
+ & 7.4297E-05_JPRB,9.6176E-05_JPRB,7.5424E-03_JPRB/)  
+KAO( :, 4,10, 5) = (/&
+ & 5.2822E-05_JPRB,6.6323E-05_JPRB,6.7918E-05_JPRB,6.3993E-05_JPRB,6.2062E-05_JPRB,6.4519E-05_JPRB,&
+ & 8.5147E-05_JPRB,1.1230E-04_JPRB,7.8121E-03_JPRB/)  
+KAO( :, 5,10, 5) = (/&
+ & 6.8969E-05_JPRB,8.8314E-05_JPRB,9.1957E-05_JPRB,9.0701E-05_JPRB,8.2062E-05_JPRB,7.8779E-05_JPRB,&
+ & 8.1888E-05_JPRB,1.3051E-04_JPRB,8.0714E-03_JPRB/)  
+KAO( :, 1,11, 5) = (/&
+ & 1.9311E-05_JPRB,2.2943E-05_JPRB,2.3712E-05_JPRB,2.6076E-05_JPRB,2.9763E-05_JPRB,3.4761E-05_JPRB,&
+ & 4.2561E-05_JPRB,5.7624E-05_JPRB,1.5187E-02_JPRB/)  
+KAO( :, 2,11, 5) = (/&
+ & 2.6757E-05_JPRB,3.2178E-05_JPRB,3.2098E-05_JPRB,3.3425E-05_JPRB,3.7561E-05_JPRB,4.3432E-05_JPRB,&
+ & 5.1256E-05_JPRB,7.3332E-05_JPRB,1.5840E-02_JPRB/)  
+KAO( :, 3,11, 5) = (/&
+ & 3.6196E-05_JPRB,4.4102E-05_JPRB,4.3948E-05_JPRB,4.2431E-05_JPRB,4.4099E-05_JPRB,5.1811E-05_JPRB,&
+ & 6.2145E-05_JPRB,8.0656E-05_JPRB,1.6449E-02_JPRB/)  
+KAO( :, 4,11, 5) = (/&
+ & 4.7882E-05_JPRB,5.9111E-05_JPRB,6.0086E-05_JPRB,5.7204E-05_JPRB,5.4371E-05_JPRB,5.5076E-05_JPRB,&
+ & 7.0526E-05_JPRB,9.2945E-05_JPRB,1.6989E-02_JPRB/)  
+KAO( :, 5,11, 5) = (/&
+ & 6.2068E-05_JPRB,7.8174E-05_JPRB,8.0859E-05_JPRB,7.9258E-05_JPRB,7.2738E-05_JPRB,6.8607E-05_JPRB,&
+ & 6.8925E-05_JPRB,1.0616E-04_JPRB,1.7481E-02_JPRB/)  
+KAO( :, 1,12, 5) = (/&
+ & 1.8157E-05_JPRB,2.1121E-05_JPRB,2.1509E-05_JPRB,2.2736E-05_JPRB,2.6145E-05_JPRB,3.0200E-05_JPRB,&
+ & 3.7064E-05_JPRB,5.0458E-05_JPRB,2.1164E-02_JPRB/)  
+KAO( :, 2,12, 5) = (/&
+ & 2.4750E-05_JPRB,2.9265E-05_JPRB,2.8640E-05_JPRB,2.9365E-05_JPRB,3.1815E-05_JPRB,3.7644E-05_JPRB,&
+ & 4.4258E-05_JPRB,6.0893E-05_JPRB,2.2083E-02_JPRB/)  
+KAO( :, 3,12, 5) = (/&
+ & 3.3051E-05_JPRB,3.9669E-05_JPRB,3.9323E-05_JPRB,3.7322E-05_JPRB,3.8330E-05_JPRB,4.3268E-05_JPRB,&
+ & 5.2953E-05_JPRB,6.6459E-05_JPRB,2.2904E-02_JPRB/)  
+KAO( :, 4,12, 5) = (/&
+ & 4.3268E-05_JPRB,5.2755E-05_JPRB,5.3305E-05_JPRB,5.0755E-05_JPRB,4.7183E-05_JPRB,4.7321E-05_JPRB,&
+ & 5.8905E-05_JPRB,7.8211E-05_JPRB,2.3625E-02_JPRB/)  
+KAO( :, 5,12, 5) = (/&
+ & 5.5712E-05_JPRB,6.9313E-05_JPRB,7.1134E-05_JPRB,6.9400E-05_JPRB,6.4153E-05_JPRB,5.9244E-05_JPRB,&
+ & 5.8683E-05_JPRB,8.6772E-05_JPRB,2.4304E-02_JPRB/)  
+KAO( :, 1,13, 5) = (/&
+ & 1.7179E-05_JPRB,1.9773E-05_JPRB,1.9599E-05_JPRB,2.0374E-05_JPRB,2.3480E-05_JPRB,2.5935E-05_JPRB,&
+ & 3.2097E-05_JPRB,4.3807E-05_JPRB,2.3722E-02_JPRB/)  
+KAO( :, 2,13, 5) = (/&
+ & 2.3195E-05_JPRB,2.7018E-05_JPRB,2.6155E-05_JPRB,2.6118E-05_JPRB,2.7654E-05_JPRB,3.2413E-05_JPRB,&
+ & 3.6439E-05_JPRB,5.1480E-05_JPRB,2.4748E-02_JPRB/)  
+KAO( :, 3,13, 5) = (/&
+ & 3.0612E-05_JPRB,3.6208E-05_JPRB,3.5603E-05_JPRB,3.3306E-05_JPRB,3.3238E-05_JPRB,3.6754E-05_JPRB,&
+ & 4.5231E-05_JPRB,5.7370E-05_JPRB,2.5646E-02_JPRB/)  
+KAO( :, 4,13, 5) = (/&
+ & 3.9626E-05_JPRB,4.7737E-05_JPRB,4.7941E-05_JPRB,4.5252E-05_JPRB,4.1653E-05_JPRB,4.0753E-05_JPRB,&
+ & 4.9320E-05_JPRB,6.5660E-05_JPRB,2.6492E-02_JPRB/)  
+KAO( :, 5,13, 5) = (/&
+ & 5.0622E-05_JPRB,6.2138E-05_JPRB,6.3203E-05_JPRB,6.1426E-05_JPRB,5.6252E-05_JPRB,5.1272E-05_JPRB,&
+ & 5.0385E-05_JPRB,7.0865E-05_JPRB,2.7279E-02_JPRB/)  
+KAO( :, 1, 1, 6) = (/&
+ & 7.6668E-04_JPRB,9.5698E-04_JPRB,1.0451E-03_JPRB,1.0706E-03_JPRB,1.0458E-03_JPRB,9.8544E-04_JPRB,&
+ & 8.4925E-04_JPRB,7.0084E-04_JPRB,3.6790E-04_JPRB/)  
+KAO( :, 2, 1, 6) = (/&
+ & 9.3715E-04_JPRB,1.2033E-03_JPRB,1.3264E-03_JPRB,1.3678E-03_JPRB,1.3579E-03_JPRB,1.2955E-03_JPRB,&
+ & 1.2019E-03_JPRB,1.0530E-03_JPRB,4.9374E-04_JPRB/)  
+KAO( :, 3, 1, 6) = (/&
+ & 1.1259E-03_JPRB,1.4892E-03_JPRB,1.6507E-03_JPRB,1.7086E-03_JPRB,1.7099E-03_JPRB,1.6660E-03_JPRB,&
+ & 1.5468E-03_JPRB,1.3572E-03_JPRB,6.9469E-04_JPRB/)  
+KAO( :, 4, 1, 6) = (/&
+ & 1.3346E-03_JPRB,1.8150E-03_JPRB,2.0125E-03_JPRB,2.0930E-03_JPRB,2.1054E-03_JPRB,2.0604E-03_JPRB,&
+ & 1.9461E-03_JPRB,1.7694E-03_JPRB,9.3629E-04_JPRB/)  
+KAO( :, 5, 1, 6) = (/&
+ & 1.5631E-03_JPRB,2.1751E-03_JPRB,2.4107E-03_JPRB,2.5177E-03_JPRB,2.5412E-03_JPRB,2.4997E-03_JPRB,&
+ & 2.4003E-03_JPRB,2.2329E-03_JPRB,1.1943E-03_JPRB/)  
+KAO( :, 1, 2, 6) = (/&
+ & 6.1736E-04_JPRB,7.7957E-04_JPRB,8.4495E-04_JPRB,8.5822E-04_JPRB,8.3168E-04_JPRB,7.6710E-04_JPRB,&
+ & 6.8197E-04_JPRB,6.1117E-04_JPRB,2.7552E-04_JPRB/)  
+KAO( :, 2, 2, 6) = (/&
+ & 7.6431E-04_JPRB,9.9047E-04_JPRB,1.0825E-03_JPRB,1.1059E-03_JPRB,1.0905E-03_JPRB,1.0282E-03_JPRB,&
+ & 9.1763E-04_JPRB,8.3788E-04_JPRB,3.8116E-04_JPRB/)  
+KAO( :, 3, 2, 6) = (/&
+ & 9.2906E-04_JPRB,1.2346E-03_JPRB,1.3561E-03_JPRB,1.3925E-03_JPRB,1.3898E-03_JPRB,1.3440E-03_JPRB,&
+ & 1.2411E-03_JPRB,1.1007E-03_JPRB,5.2777E-04_JPRB/)  
+KAO( :, 4, 2, 6) = (/&
+ & 1.1126E-03_JPRB,1.5138E-03_JPRB,1.6623E-03_JPRB,1.7166E-03_JPRB,1.7237E-03_JPRB,1.6799E-03_JPRB,&
+ & 1.5813E-03_JPRB,1.4262E-03_JPRB,7.0852E-04_JPRB/)  
+KAO( :, 5, 2, 6) = (/&
+ & 1.3161E-03_JPRB,1.8216E-03_JPRB,2.0023E-03_JPRB,2.0780E-03_JPRB,2.0918E-03_JPRB,2.0576E-03_JPRB,&
+ & 1.9689E-03_JPRB,1.8083E-03_JPRB,9.0055E-04_JPRB/)  
+KAO( :, 1, 3, 6) = (/&
+ & 4.6874E-04_JPRB,5.9508E-04_JPRB,6.3781E-04_JPRB,6.4117E-04_JPRB,6.1436E-04_JPRB,5.4822E-04_JPRB,&
+ & 5.0421E-04_JPRB,5.3533E-04_JPRB,2.0334E-04_JPRB/)  
+KAO( :, 2, 3, 6) = (/&
+ & 5.9055E-04_JPRB,7.6700E-04_JPRB,8.2890E-04_JPRB,8.3946E-04_JPRB,8.1795E-04_JPRB,7.6034E-04_JPRB,&
+ & 6.7368E-04_JPRB,6.0816E-04_JPRB,2.8145E-04_JPRB/)  
+KAO( :, 3, 3, 6) = (/&
+ & 7.2955E-04_JPRB,9.6821E-04_JPRB,1.0493E-03_JPRB,1.0696E-03_JPRB,1.0616E-03_JPRB,1.0150E-03_JPRB,&
+ & 9.2112E-04_JPRB,8.3960E-04_JPRB,3.8605E-04_JPRB/)  
+KAO( :, 4, 3, 6) = (/&
+ & 8.8621E-04_JPRB,1.1995E-03_JPRB,1.3001E-03_JPRB,1.3322E-03_JPRB,1.3333E-03_JPRB,1.2938E-03_JPRB,&
+ & 1.2044E-03_JPRB,1.0885E-03_JPRB,5.0764E-04_JPRB/)  
+KAO( :, 5, 3, 6) = (/&
+ & 1.0620E-03_JPRB,1.4561E-03_JPRB,1.5813E-03_JPRB,1.6291E-03_JPRB,1.6339E-03_JPRB,1.6065E-03_JPRB,&
+ & 1.5265E-03_JPRB,1.3705E-03_JPRB,6.4701E-04_JPRB/)  
+KAO( :, 1, 4, 6) = (/&
+ & 3.4631E-04_JPRB,4.3892E-04_JPRB,4.6539E-04_JPRB,4.6252E-04_JPRB,4.3395E-04_JPRB,3.8559E-04_JPRB,&
+ & 3.5487E-04_JPRB,4.4831E-04_JPRB,1.5114E-04_JPRB/)  
+KAO( :, 2, 4, 6) = (/&
+ & 4.4425E-04_JPRB,5.7553E-04_JPRB,6.1538E-04_JPRB,6.1883E-04_JPRB,5.9314E-04_JPRB,5.4165E-04_JPRB,&
+ & 4.8640E-04_JPRB,4.4227E-04_JPRB,2.0515E-04_JPRB/)  
+KAO( :, 3, 4, 6) = (/&
+ & 5.5883E-04_JPRB,7.3740E-04_JPRB,7.9031E-04_JPRB,7.9974E-04_JPRB,7.8639E-04_JPRB,7.3691E-04_JPRB,&
+ & 6.4680E-04_JPRB,6.1866E-04_JPRB,2.7731E-04_JPRB/)  
+KAO( :, 4, 4, 6) = (/&
+ & 6.8974E-04_JPRB,9.2537E-04_JPRB,9.9228E-04_JPRB,1.0098E-03_JPRB,1.0044E-03_JPRB,9.6650E-04_JPRB,&
+ & 8.8358E-04_JPRB,7.6484E-04_JPRB,3.6266E-04_JPRB/)  
+KAO( :, 5, 4, 6) = (/&
+ & 8.3990E-04_JPRB,1.1361E-03_JPRB,1.2201E-03_JPRB,1.2496E-03_JPRB,1.2472E-03_JPRB,1.2194E-03_JPRB,&
+ & 1.1540E-03_JPRB,1.0325E-03_JPRB,4.6430E-04_JPRB/)  
+KAO( :, 1, 5, 6) = (/&
+ & 2.5250E-04_JPRB,3.1808E-04_JPRB,3.3386E-04_JPRB,3.2714E-04_JPRB,3.0037E-04_JPRB,2.7399E-04_JPRB,&
+ & 2.6791E-04_JPRB,3.5704E-04_JPRB,1.2908E-04_JPRB/)  
+KAO( :, 2, 5, 6) = (/&
+ & 3.3043E-04_JPRB,4.2488E-04_JPRB,4.5012E-04_JPRB,4.4889E-04_JPRB,4.2554E-04_JPRB,3.8200E-04_JPRB,&
+ & 3.3745E-04_JPRB,3.7310E-04_JPRB,1.6348E-04_JPRB/)  
+KAO( :, 3, 5, 6) = (/&
+ & 4.2316E-04_JPRB,5.5338E-04_JPRB,5.8740E-04_JPRB,5.9160E-04_JPRB,5.7542E-04_JPRB,5.3101E-04_JPRB,&
+ & 4.6257E-04_JPRB,4.4755E-04_JPRB,2.1057E-04_JPRB/)  
+KAO( :, 4, 5, 6) = (/&
+ & 5.3209E-04_JPRB,7.0370E-04_JPRB,7.4784E-04_JPRB,7.5773E-04_JPRB,7.4773E-04_JPRB,7.1163E-04_JPRB,&
+ & 6.4170E-04_JPRB,5.6009E-04_JPRB,2.6995E-04_JPRB/)  
+KAO( :, 5, 5, 6) = (/&
+ & 6.5954E-04_JPRB,8.7577E-04_JPRB,9.3136E-04_JPRB,9.4956E-04_JPRB,9.4321E-04_JPRB,9.1424E-04_JPRB,&
+ & 8.5021E-04_JPRB,7.6505E-04_JPRB,3.4403E-04_JPRB/)  
+KAO( :, 1, 6, 6) = (/&
+ & 1.8041E-04_JPRB,2.2490E-04_JPRB,2.3336E-04_JPRB,2.2464E-04_JPRB,2.0963E-04_JPRB,1.9425E-04_JPRB,&
+ & 2.2107E-04_JPRB,2.7984E-04_JPRB,1.4894E-04_JPRB/)  
+KAO( :, 2, 6, 6) = (/&
+ & 2.4129E-04_JPRB,3.0664E-04_JPRB,3.2201E-04_JPRB,3.1753E-04_JPRB,2.9432E-04_JPRB,2.6424E-04_JPRB,&
+ & 2.4608E-04_JPRB,3.2717E-04_JPRB,1.7150E-04_JPRB/)  
+KAO( :, 3, 6, 6) = (/&
+ & 3.1506E-04_JPRB,4.0665E-04_JPRB,4.2823E-04_JPRB,4.2924E-04_JPRB,4.1092E-04_JPRB,3.7075E-04_JPRB,&
+ & 3.2608E-04_JPRB,3.0715E-04_JPRB,1.9997E-04_JPRB/)  
+KAO( :, 4, 6, 6) = (/&
+ & 4.0467E-04_JPRB,5.2530E-04_JPRB,5.5383E-04_JPRB,5.5842E-04_JPRB,5.4724E-04_JPRB,5.1243E-04_JPRB,&
+ & 4.4254E-04_JPRB,3.9888E-04_JPRB,2.3767E-04_JPRB/)  
+KAO( :, 5, 6, 6) = (/&
+ & 5.1106E-04_JPRB,6.6417E-04_JPRB,6.9974E-04_JPRB,7.0967E-04_JPRB,7.0212E-04_JPRB,6.7161E-04_JPRB,&
+ & 6.0464E-04_JPRB,5.2589E-04_JPRB,2.8598E-04_JPRB/)  
+KAO( :, 1, 7, 6) = (/&
+ & 1.2786E-04_JPRB,1.5741E-04_JPRB,1.6149E-04_JPRB,1.5385E-04_JPRB,1.4113E-04_JPRB,1.3717E-04_JPRB,&
+ & 1.7921E-04_JPRB,2.1884E-04_JPRB,2.2335E-04_JPRB/)  
+KAO( :, 2, 7, 6) = (/&
+ & 1.7476E-04_JPRB,2.1914E-04_JPRB,2.2777E-04_JPRB,2.2084E-04_JPRB,2.0229E-04_JPRB,1.8812E-04_JPRB,&
+ & 1.8018E-04_JPRB,2.7538E-04_JPRB,2.4653E-04_JPRB/)  
+KAO( :, 3, 7, 6) = (/&
+ & 2.3335E-04_JPRB,2.9589E-04_JPRB,3.0942E-04_JPRB,3.0765E-04_JPRB,2.8977E-04_JPRB,2.5625E-04_JPRB,&
+ & 2.3275E-04_JPRB,2.5170E-04_JPRB,2.7339E-04_JPRB/)  
+KAO( :, 4, 7, 6) = (/&
+ & 3.0583E-04_JPRB,3.8902E-04_JPRB,4.0709E-04_JPRB,4.0819E-04_JPRB,3.9588E-04_JPRB,3.6356E-04_JPRB,&
+ & 3.1361E-04_JPRB,2.9658E-04_JPRB,3.0348E-04_JPRB/)  
+KAO( :, 5, 7, 6) = (/&
+ & 3.9359E-04_JPRB,5.0084E-04_JPRB,5.2271E-04_JPRB,5.2613E-04_JPRB,5.1742E-04_JPRB,4.8862E-04_JPRB,&
+ & 4.3693E-04_JPRB,3.8092E-04_JPRB,3.3962E-04_JPRB/)  
+KAO( :, 1, 8, 6) = (/&
+ & 9.0775E-05_JPRB,1.1005E-04_JPRB,1.1099E-04_JPRB,1.0509E-04_JPRB,9.9650E-05_JPRB,1.1055E-04_JPRB,&
+ & 1.4832E-04_JPRB,1.7530E-04_JPRB,4.7525E-04_JPRB/)  
+KAO( :, 2, 8, 6) = (/&
+ & 1.2669E-04_JPRB,1.5629E-04_JPRB,1.6068E-04_JPRB,1.5361E-04_JPRB,1.4250E-04_JPRB,1.3452E-04_JPRB,&
+ & 1.4933E-04_JPRB,2.0310E-04_JPRB,5.0480E-04_JPRB/)  
+KAO( :, 3, 8, 6) = (/&
+ & 1.7285E-04_JPRB,2.1483E-04_JPRB,2.2274E-04_JPRB,2.1837E-04_JPRB,2.0107E-04_JPRB,1.8034E-04_JPRB,&
+ & 1.6967E-04_JPRB,2.2418E-04_JPRB,5.3971E-04_JPRB/)  
+KAO( :, 4, 8, 6) = (/&
+ & 2.3078E-04_JPRB,2.8784E-04_JPRB,2.9834E-04_JPRB,2.9682E-04_JPRB,2.8348E-04_JPRB,2.5378E-04_JPRB,&
+ & 2.1967E-04_JPRB,2.1775E-04_JPRB,5.7949E-04_JPRB/)  
+KAO( :, 5, 8, 6) = (/&
+ & 3.0207E-04_JPRB,3.7730E-04_JPRB,3.9003E-04_JPRB,3.8941E-04_JPRB,3.7851E-04_JPRB,3.5314E-04_JPRB,&
+ & 3.0320E-04_JPRB,2.7345E-04_JPRB,6.2347E-04_JPRB/)  
+KAO( :, 1, 9, 6) = (/&
+ & 6.4923E-05_JPRB,7.7301E-05_JPRB,7.6873E-05_JPRB,7.2507E-05_JPRB,7.2968E-05_JPRB,8.8916E-05_JPRB,&
+ & 1.0626E-04_JPRB,1.3047E-04_JPRB,2.1479E-03_JPRB/)  
+KAO( :, 2, 9, 6) = (/&
+ & 9.2060E-05_JPRB,1.1144E-04_JPRB,1.1301E-04_JPRB,1.0673E-04_JPRB,9.8741E-05_JPRB,9.7585E-05_JPRB,&
+ & 1.2203E-04_JPRB,1.5315E-04_JPRB,2.2213E-03_JPRB/)  
+KAO( :, 3, 9, 6) = (/&
+ & 1.2784E-04_JPRB,1.5591E-04_JPRB,1.5957E-04_JPRB,1.5395E-04_JPRB,1.4101E-04_JPRB,1.2937E-04_JPRB,&
+ & 1.2902E-04_JPRB,1.8269E-04_JPRB,2.3004E-03_JPRB/)  
+KAO( :, 4, 9, 6) = (/&
+ & 1.7362E-04_JPRB,2.1265E-04_JPRB,2.1819E-04_JPRB,2.1460E-04_JPRB,2.0088E-04_JPRB,1.7687E-04_JPRB,&
+ & 1.6114E-04_JPRB,1.7045E-04_JPRB,2.3836E-03_JPRB/)  
+KAO( :, 5, 9, 6) = (/&
+ & 2.3060E-04_JPRB,2.8346E-04_JPRB,2.9069E-04_JPRB,2.8691E-04_JPRB,2.7538E-04_JPRB,2.5192E-04_JPRB,&
+ & 2.1567E-04_JPRB,2.0242E-04_JPRB,2.4645E-03_JPRB/)  
+KAO( :, 1,10, 6) = (/&
+ & 4.9625E-05_JPRB,5.7572E-05_JPRB,5.6443E-05_JPRB,5.4999E-05_JPRB,5.9435E-05_JPRB,7.0786E-05_JPRB,&
+ & 7.6295E-05_JPRB,1.0573E-04_JPRB,1.3224E-02_JPRB/)  
+KAO( :, 2,10, 6) = (/&
+ & 7.0134E-05_JPRB,8.3014E-05_JPRB,8.2620E-05_JPRB,7.7969E-05_JPRB,7.3377E-05_JPRB,8.0016E-05_JPRB,&
+ & 9.8395E-05_JPRB,1.2266E-04_JPRB,1.3476E-02_JPRB/)  
+KAO( :, 3,10, 6) = (/&
+ & 9.7838E-05_JPRB,1.1716E-04_JPRB,1.1840E-04_JPRB,1.1257E-04_JPRB,1.0247E-04_JPRB,9.5389E-05_JPRB,&
+ & 1.0384E-04_JPRB,1.4488E-04_JPRB,1.3733E-02_JPRB/)  
+KAO( :, 4,10, 6) = (/&
+ & 1.3411E-04_JPRB,1.6175E-04_JPRB,1.6407E-04_JPRB,1.5918E-04_JPRB,1.4592E-04_JPRB,1.2914E-04_JPRB,&
+ & 1.2234E-04_JPRB,1.5601E-04_JPRB,1.4015E-02_JPRB/)  
+KAO( :, 5,10, 6) = (/&
+ & 1.7947E-04_JPRB,2.1813E-04_JPRB,2.2167E-04_JPRB,2.1661E-04_JPRB,2.0497E-04_JPRB,1.8308E-04_JPRB,&
+ & 1.5705E-04_JPRB,1.5556E-04_JPRB,1.4285E-02_JPRB/)  
+KAO( :, 1,11, 6) = (/&
+ & 4.6838E-05_JPRB,5.3188E-05_JPRB,5.1940E-05_JPRB,4.9560E-05_JPRB,5.2867E-05_JPRB,6.0471E-05_JPRB,&
+ & 6.7131E-05_JPRB,8.9235E-05_JPRB,2.9682E-02_JPRB/)  
+KAO( :, 2,11, 6) = (/&
+ & 6.4771E-05_JPRB,7.4879E-05_JPRB,7.3789E-05_JPRB,6.9085E-05_JPRB,6.5402E-05_JPRB,6.9078E-05_JPRB,&
+ & 8.2402E-05_JPRB,9.7823E-05_JPRB,3.0214E-02_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART4',1,ZHOOK_HANDLE)
+END SUBROUTINE PART4
+
+
+SUBROUTINE PART5
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART5',0,ZHOOK_HANDLE)
+
+
+KAO( :, 3,11, 6) = (/&
+ & 8.8977E-05_JPRB,1.0443E-04_JPRB,1.0449E-04_JPRB,9.8837E-05_JPRB,8.9325E-05_JPRB,8.2564E-05_JPRB,&
+ & 9.0256E-05_JPRB,1.2264E-04_JPRB,3.0751E-02_JPRB/)  
+KAO( :, 4,11, 6) = (/&
+ & 1.2031E-04_JPRB,1.4341E-04_JPRB,1.4439E-04_JPRB,1.3909E-04_JPRB,1.2684E-04_JPRB,1.1148E-04_JPRB,&
+ & 1.0343E-04_JPRB,1.2710E-04_JPRB,3.1294E-02_JPRB/)  
+KAO( :, 5,11, 6) = (/&
+ & 1.5966E-04_JPRB,1.9217E-04_JPRB,1.9445E-04_JPRB,1.8922E-04_JPRB,1.7785E-04_JPRB,1.5826E-04_JPRB,&
+ & 1.3426E-04_JPRB,1.3572E-04_JPRB,3.1828E-02_JPRB/)  
+KAO( :, 1,12, 6) = (/&
+ & 4.4013E-05_JPRB,4.9051E-05_JPRB,4.7310E-05_JPRB,4.5083E-05_JPRB,4.5655E-05_JPRB,5.3046E-05_JPRB,&
+ & 5.5846E-05_JPRB,7.3868E-05_JPRB,4.2262E-02_JPRB/)  
+KAO( :, 2,12, 6) = (/&
+ & 5.9811E-05_JPRB,6.7905E-05_JPRB,6.6450E-05_JPRB,6.1482E-05_JPRB,5.7471E-05_JPRB,5.8427E-05_JPRB,&
+ & 7.0235E-05_JPRB,8.1755E-05_JPRB,4.3100E-02_JPRB/)  
+KAO( :, 3,12, 6) = (/&
+ & 8.0771E-05_JPRB,9.3483E-05_JPRB,9.2712E-05_JPRB,8.7290E-05_JPRB,7.8335E-05_JPRB,7.2055E-05_JPRB,&
+ & 7.5619E-05_JPRB,1.0330E-04_JPRB,4.3963E-02_JPRB/)  
+KAO( :, 4,12, 6) = (/&
+ & 1.0778E-04_JPRB,1.2684E-04_JPRB,1.2706E-04_JPRB,1.2188E-04_JPRB,1.1092E-04_JPRB,9.6993E-05_JPRB,&
+ & 8.8534E-05_JPRB,1.0545E-04_JPRB,4.4781E-02_JPRB/)  
+KAO( :, 5,12, 6) = (/&
+ & 1.4170E-04_JPRB,1.6874E-04_JPRB,1.7020E-04_JPRB,1.6546E-04_JPRB,1.5470E-04_JPRB,1.3786E-04_JPRB,&
+ & 1.1554E-04_JPRB,1.1534E-04_JPRB,4.5542E-02_JPRB/)  
+KAO( :, 1,13, 6) = (/&
+ & 4.2090E-05_JPRB,4.6101E-05_JPRB,4.3965E-05_JPRB,4.1016E-05_JPRB,4.0300E-05_JPRB,4.5499E-05_JPRB,&
+ & 4.8852E-05_JPRB,6.1759E-05_JPRB,4.8346E-02_JPRB/)  
+KAO( :, 2,13, 6) = (/&
+ & 5.6243E-05_JPRB,6.2753E-05_JPRB,6.0819E-05_JPRB,5.5713E-05_JPRB,5.1322E-05_JPRB,5.0494E-05_JPRB,&
+ & 6.0604E-05_JPRB,6.8003E-05_JPRB,4.9462E-02_JPRB/)  
+KAO( :, 3,13, 6) = (/&
+ & 7.4458E-05_JPRB,8.4643E-05_JPRB,8.3343E-05_JPRB,7.8251E-05_JPRB,6.9869E-05_JPRB,6.3030E-05_JPRB,&
+ & 6.3206E-05_JPRB,8.7133E-05_JPRB,5.0553E-02_JPRB/)  
+KAO( :, 4,13, 6) = (/&
+ & 9.7702E-05_JPRB,1.1298E-04_JPRB,1.1246E-04_JPRB,1.0753E-04_JPRB,9.7507E-05_JPRB,8.4857E-05_JPRB,&
+ & 7.6788E-05_JPRB,8.6167E-05_JPRB,5.1568E-02_JPRB/)  
+KAO( :, 5,13, 6) = (/&
+ & 1.2694E-04_JPRB,1.4871E-04_JPRB,1.4954E-04_JPRB,1.4480E-04_JPRB,1.3473E-04_JPRB,1.1941E-04_JPRB,&
+ & 9.9413E-05_JPRB,9.9688E-05_JPRB,5.2519E-02_JPRB/)  
+KAO( :, 1, 1, 7) = (/&
+ & 2.0564E-03_JPRB,2.2357E-03_JPRB,2.2921E-03_JPRB,2.2746E-03_JPRB,2.1808E-03_JPRB,2.0118E-03_JPRB,&
+ & 1.7401E-03_JPRB,1.3032E-03_JPRB,9.5552E-04_JPRB/)  
+KAO( :, 2, 1, 7) = (/&
+ & 2.5245E-03_JPRB,2.7780E-03_JPRB,2.8722E-03_JPRB,2.8575E-03_JPRB,2.7633E-03_JPRB,2.6046E-03_JPRB,&
+ & 2.3222E-03_JPRB,1.8131E-03_JPRB,1.3540E-03_JPRB/)  
+KAO( :, 3, 1, 7) = (/&
+ & 3.0325E-03_JPRB,3.3773E-03_JPRB,3.5284E-03_JPRB,3.5242E-03_JPRB,3.4302E-03_JPRB,3.2547E-03_JPRB,&
+ & 2.9982E-03_JPRB,2.6610E-03_JPRB,1.7942E-03_JPRB/)  
+KAO( :, 4, 1, 7) = (/&
+ & 3.5774E-03_JPRB,4.0328E-03_JPRB,4.2570E-03_JPRB,4.2786E-03_JPRB,4.1734E-03_JPRB,3.9880E-03_JPRB,&
+ & 3.7418E-03_JPRB,3.6443E-03_JPRB,2.2977E-03_JPRB/)  
+KAO( :, 5, 1, 7) = (/&
+ & 4.1551E-03_JPRB,4.7493E-03_JPRB,5.0612E-03_JPRB,5.1084E-03_JPRB,4.9896E-03_JPRB,4.7828E-03_JPRB,&
+ & 4.5388E-03_JPRB,4.6729E-03_JPRB,2.8901E-03_JPRB/)  
+KAO( :, 1, 2, 7) = (/&
+ & 1.7021E-03_JPRB,1.8729E-03_JPRB,1.9247E-03_JPRB,1.9078E-03_JPRB,1.8213E-03_JPRB,1.6737E-03_JPRB,&
+ & 1.4152E-03_JPRB,1.0410E-03_JPRB,7.2465E-04_JPRB/)  
+KAO( :, 2, 2, 7) = (/&
+ & 2.1085E-03_JPRB,2.3473E-03_JPRB,2.4306E-03_JPRB,2.4189E-03_JPRB,2.3372E-03_JPRB,2.1946E-03_JPRB,&
+ & 1.9650E-03_JPRB,1.4507E-03_JPRB,1.0070E-03_JPRB/)  
+KAO( :, 3, 2, 7) = (/&
+ & 2.5539E-03_JPRB,2.8790E-03_JPRB,3.0056E-03_JPRB,3.0096E-03_JPRB,2.9218E-03_JPRB,2.7596E-03_JPRB,&
+ & 2.5256E-03_JPRB,2.1562E-03_JPRB,1.3358E-03_JPRB/)  
+KAO( :, 4, 2, 7) = (/&
+ & 3.0381E-03_JPRB,3.4689E-03_JPRB,3.6518E-03_JPRB,3.6778E-03_JPRB,3.5757E-03_JPRB,3.4032E-03_JPRB,&
+ & 3.1678E-03_JPRB,2.9648E-03_JPRB,1.7229E-03_JPRB/)  
+KAO( :, 5, 2, 7) = (/&
+ & 3.5521E-03_JPRB,4.1214E-03_JPRB,4.3704E-03_JPRB,4.4118E-03_JPRB,4.3015E-03_JPRB,4.1082E-03_JPRB,&
+ & 3.8609E-03_JPRB,3.8044E-03_JPRB,2.1852E-03_JPRB/)  
+KAO( :, 1, 3, 7) = (/&
+ & 1.3207E-03_JPRB,1.4650E-03_JPRB,1.5081E-03_JPRB,1.4879E-03_JPRB,1.4138E-03_JPRB,1.2859E-03_JPRB,&
+ & 1.0511E-03_JPRB,7.8811E-04_JPRB,5.1479E-04_JPRB/)  
+KAO( :, 2, 3, 7) = (/&
+ & 1.6600E-03_JPRB,1.8649E-03_JPRB,1.9312E-03_JPRB,1.9179E-03_JPRB,1.8422E-03_JPRB,1.7178E-03_JPRB,&
+ & 1.5069E-03_JPRB,1.1268E-03_JPRB,7.0924E-04_JPRB/)  
+KAO( :, 3, 3, 7) = (/&
+ & 2.0389E-03_JPRB,2.3205E-03_JPRB,2.4185E-03_JPRB,2.4171E-03_JPRB,2.3339E-03_JPRB,2.1929E-03_JPRB,&
+ & 1.9846E-03_JPRB,1.6361E-03_JPRB,9.4601E-04_JPRB/)  
+KAO( :, 4, 3, 7) = (/&
+ & 2.4547E-03_JPRB,2.8320E-03_JPRB,2.9726E-03_JPRB,2.9883E-03_JPRB,2.8925E-03_JPRB,2.7393E-03_JPRB,&
+ & 2.5305E-03_JPRB,2.2455E-03_JPRB,1.2306E-03_JPRB/)  
+KAO( :, 5, 3, 7) = (/&
+ & 2.8997E-03_JPRB,3.4059E-03_JPRB,3.5906E-03_JPRB,3.6183E-03_JPRB,3.5177E-03_JPRB,3.3454E-03_JPRB,&
+ & 3.1285E-03_JPRB,2.9519E-03_JPRB,1.5729E-03_JPRB/)  
+KAO( :, 1, 4, 7) = (/&
+ & 9.9106E-04_JPRB,1.1077E-03_JPRB,1.1376E-03_JPRB,1.1157E-03_JPRB,1.0521E-03_JPRB,9.4148E-04_JPRB,&
+ & 7.8510E-04_JPRB,5.6824E-04_JPRB,3.5975E-04_JPRB/)  
+KAO( :, 2, 4, 7) = (/&
+ & 1.2690E-03_JPRB,1.4351E-03_JPRB,1.4835E-03_JPRB,1.4646E-03_JPRB,1.3997E-03_JPRB,1.2889E-03_JPRB,&
+ & 1.0960E-03_JPRB,8.9289E-04_JPRB,4.9353E-04_JPRB/)  
+KAO( :, 3, 4, 7) = (/&
+ & 1.5842E-03_JPRB,1.8142E-03_JPRB,1.8866E-03_JPRB,1.8780E-03_JPRB,1.8013E-03_JPRB,1.6820E-03_JPRB,&
+ & 1.5023E-03_JPRB,1.1830E-03_JPRB,6.6203E-04_JPRB/)  
+KAO( :, 4, 4, 7) = (/&
+ & 1.9340E-03_JPRB,2.2471E-03_JPRB,2.3499E-03_JPRB,2.3511E-03_JPRB,2.2648E-03_JPRB,2.1322E-03_JPRB,&
+ & 1.9509E-03_JPRB,1.6764E-03_JPRB,8.7194E-04_JPRB/)  
+KAO( :, 5, 4, 7) = (/&
+ & 2.3113E-03_JPRB,2.7351E-03_JPRB,2.8762E-03_JPRB,2.8805E-03_JPRB,2.7879E-03_JPRB,2.6395E-03_JPRB,&
+ & 2.4567E-03_JPRB,2.2403E-03_JPRB,1.1262E-03_JPRB/)  
+KAO( :, 1, 5, 7) = (/&
+ & 7.3127E-04_JPRB,8.2296E-04_JPRB,8.4087E-04_JPRB,8.1934E-04_JPRB,7.6237E-04_JPRB,6.6355E-04_JPRB,&
+ & 5.7712E-04_JPRB,4.2586E-04_JPRB,2.6106E-04_JPRB/)  
+KAO( :, 2, 5, 7) = (/&
+ & 9.5564E-04_JPRB,1.0866E-03_JPRB,1.1175E-03_JPRB,1.0975E-03_JPRB,1.0423E-03_JPRB,9.4115E-04_JPRB,&
+ & 7.8089E-04_JPRB,7.0271E-04_JPRB,3.5186E-04_JPRB/)  
+KAO( :, 3, 5, 7) = (/&
+ & 1.2139E-03_JPRB,1.3968E-03_JPRB,1.4447E-03_JPRB,1.4289E-03_JPRB,1.3656E-03_JPRB,1.2642E-03_JPRB,&
+ & 1.1044E-03_JPRB,8.5519E-04_JPRB,4.7090E-04_JPRB/)  
+KAO( :, 4, 5, 7) = (/&
+ & 1.5030E-03_JPRB,1.7556E-03_JPRB,1.8265E-03_JPRB,1.8139E-03_JPRB,1.7423E-03_JPRB,1.6256E-03_JPRB,&
+ & 1.4668E-03_JPRB,1.2302E-03_JPRB,6.2262E-04_JPRB/)  
+KAO( :, 5, 5, 7) = (/&
+ & 1.8204E-03_JPRB,2.1651E-03_JPRB,2.2625E-03_JPRB,2.2502E-03_JPRB,2.1716E-03_JPRB,2.0469E-03_JPRB,&
+ & 1.8925E-03_JPRB,1.6626E-03_JPRB,8.1240E-04_JPRB/)  
+KAO( :, 1, 6, 7) = (/&
+ & 5.2529E-04_JPRB,5.9432E-04_JPRB,6.0352E-04_JPRB,5.8305E-04_JPRB,5.3304E-04_JPRB,4.5328E-04_JPRB,&
+ & 4.1878E-04_JPRB,3.5780E-04_JPRB,2.4217E-04_JPRB/)  
+KAO( :, 2, 6, 7) = (/&
+ & 7.0212E-04_JPRB,8.0206E-04_JPRB,8.1885E-04_JPRB,8.0064E-04_JPRB,7.5267E-04_JPRB,6.6720E-04_JPRB,&
+ & 5.4925E-04_JPRB,4.7137E-04_JPRB,2.9304E-04_JPRB/)  
+KAO( :, 3, 6, 7) = (/&
+ & 9.0974E-04_JPRB,1.0505E-03_JPRB,1.0784E-03_JPRB,1.0608E-03_JPRB,1.0082E-03_JPRB,9.2191E-04_JPRB,&
+ & 7.8184E-04_JPRB,6.5554E-04_JPRB,3.6650E-04_JPRB/)  
+KAO( :, 4, 6, 7) = (/&
+ & 1.1453E-03_JPRB,1.3423E-03_JPRB,1.3852E-03_JPRB,1.3677E-03_JPRB,1.3077E-03_JPRB,1.2097E-03_JPRB,&
+ & 1.0767E-03_JPRB,8.5645E-04_JPRB,4.6653E-04_JPRB/)  
+KAO( :, 5, 6, 7) = (/&
+ & 1.4081E-03_JPRB,1.6785E-03_JPRB,1.7408E-03_JPRB,1.7212E-03_JPRB,1.6525E-03_JPRB,1.5502E-03_JPRB,&
+ & 1.4183E-03_JPRB,1.2157E-03_JPRB,5.9973E-04_JPRB/)  
+KAO( :, 1, 7, 7) = (/&
+ & 3.7120E-04_JPRB,4.2080E-04_JPRB,4.2477E-04_JPRB,4.0604E-04_JPRB,3.6355E-04_JPRB,3.1468E-04_JPRB,&
+ & 2.7452E-04_JPRB,3.0003E-04_JPRB,3.4329E-04_JPRB/)  
+KAO( :, 2, 7, 7) = (/&
+ & 5.0811E-04_JPRB,5.8113E-04_JPRB,5.8975E-04_JPRB,5.7433E-04_JPRB,5.3282E-04_JPRB,4.5716E-04_JPRB,&
+ & 3.8591E-04_JPRB,3.1558E-04_JPRB,3.8021E-04_JPRB/)  
+KAO( :, 3, 7, 7) = (/&
+ & 6.7189E-04_JPRB,7.7708E-04_JPRB,7.9243E-04_JPRB,7.7528E-04_JPRB,7.3224E-04_JPRB,6.5998E-04_JPRB,&
+ & 5.4384E-04_JPRB,5.0808E-04_JPRB,4.2510E-04_JPRB/)  
+KAO( :, 4, 7, 7) = (/&
+ & 8.6172E-04_JPRB,1.0111E-03_JPRB,1.0357E-03_JPRB,1.0171E-03_JPRB,9.6771E-04_JPRB,8.8863E-04_JPRB,&
+ & 7.7053E-04_JPRB,5.9901E-04_JPRB,4.8327E-04_JPRB/)  
+KAO( :, 5, 7, 7) = (/&
+ & 1.0762E-03_JPRB,1.2838E-03_JPRB,1.3208E-03_JPRB,1.3007E-03_JPRB,1.2428E-03_JPRB,1.1566E-03_JPRB,&
+ & 1.0378E-03_JPRB,8.6101E-04_JPRB,5.6256E-04_JPRB/)  
+KAO( :, 1, 8, 7) = (/&
+ & 2.6005E-04_JPRB,2.9445E-04_JPRB,2.9544E-04_JPRB,2.7954E-04_JPRB,2.4583E-04_JPRB,2.1647E-04_JPRB,&
+ & 1.8002E-04_JPRB,2.3598E-04_JPRB,7.9092E-04_JPRB/)  
+KAO( :, 2, 8, 7) = (/&
+ & 3.6459E-04_JPRB,4.1637E-04_JPRB,4.2010E-04_JPRB,4.0556E-04_JPRB,3.7047E-04_JPRB,3.0940E-04_JPRB,&
+ & 2.7524E-04_JPRB,2.5435E-04_JPRB,8.3476E-04_JPRB/)  
+KAO( :, 3, 8, 7) = (/&
+ & 4.9221E-04_JPRB,5.6877E-04_JPRB,5.7633E-04_JPRB,5.6089E-04_JPRB,5.2598E-04_JPRB,4.6466E-04_JPRB,&
+ & 3.7776E-04_JPRB,3.4121E-04_JPRB,8.7965E-04_JPRB/)  
+KAO( :, 4, 8, 7) = (/&
+ & 6.4351E-04_JPRB,7.5336E-04_JPRB,7.6684E-04_JPRB,7.4955E-04_JPRB,7.0992E-04_JPRB,6.4867E-04_JPRB,&
+ & 5.4671E-04_JPRB,4.4943E-04_JPRB,9.3048E-04_JPRB/)  
+KAO( :, 5, 8, 7) = (/&
+ & 8.1696E-04_JPRB,9.7167E-04_JPRB,9.9275E-04_JPRB,9.7485E-04_JPRB,9.2841E-04_JPRB,8.5440E-04_JPRB,&
+ & 7.5642E-04_JPRB,5.9342E-04_JPRB,9.8996E-04_JPRB/)  
+KAO( :, 1, 9, 7) = (/&
+ & 1.8087E-04_JPRB,2.0393E-04_JPRB,2.0319E-04_JPRB,1.8996E-04_JPRB,1.6599E-04_JPRB,1.4845E-04_JPRB,&
+ & 1.4517E-04_JPRB,1.8943E-04_JPRB,3.7840E-03_JPRB/)  
+KAO( :, 2, 9, 7) = (/&
+ & 2.5947E-04_JPRB,2.9518E-04_JPRB,2.9598E-04_JPRB,2.8323E-04_JPRB,2.5237E-04_JPRB,2.1334E-04_JPRB,&
+ & 1.9297E-04_JPRB,2.0265E-04_JPRB,3.8746E-03_JPRB/)  
+KAO( :, 3, 9, 7) = (/&
+ & 3.5788E-04_JPRB,4.1170E-04_JPRB,4.1507E-04_JPRB,4.0085E-04_JPRB,3.7117E-04_JPRB,3.1718E-04_JPRB,&
+ & 2.6164E-04_JPRB,2.2715E-04_JPRB,3.9645E-03_JPRB/)  
+KAO( :, 4, 9, 7) = (/&
+ & 4.7699E-04_JPRB,5.5569E-04_JPRB,5.6204E-04_JPRB,5.4699E-04_JPRB,5.1526E-04_JPRB,4.6408E-04_JPRB,&
+ & 3.7784E-04_JPRB,3.4199E-04_JPRB,4.0560E-03_JPRB/)  
+KAO( :, 5, 9, 7) = (/&
+ & 6.1621E-04_JPRB,7.2836E-04_JPRB,7.3953E-04_JPRB,7.2389E-04_JPRB,6.8675E-04_JPRB,6.2690E-04_JPRB,&
+ & 5.4244E-04_JPRB,4.1506E-04_JPRB,4.1481E-03_JPRB/)  
+KAO( :, 1,10, 7) = (/&
+ & 1.3094E-04_JPRB,1.4617E-04_JPRB,1.4409E-04_JPRB,1.3166E-04_JPRB,1.1671E-04_JPRB,1.0840E-04_JPRB,&
+ & 1.1994E-04_JPRB,1.5334E-04_JPRB,2.4678E-02_JPRB/)  
+KAO( :, 2,10, 7) = (/&
+ & 1.9036E-04_JPRB,2.1493E-04_JPRB,2.1399E-04_JPRB,2.0239E-04_JPRB,1.7779E-04_JPRB,1.5202E-04_JPRB,&
+ & 1.3461E-04_JPRB,1.6391E-04_JPRB,2.4818E-02_JPRB/)  
+KAO( :, 3,10, 7) = (/&
+ & 2.6670E-04_JPRB,3.0451E-04_JPRB,3.0518E-04_JPRB,2.9252E-04_JPRB,2.6713E-04_JPRB,2.2545E-04_JPRB,&
+ & 1.9430E-04_JPRB,1.7654E-04_JPRB,2.4944E-02_JPRB/)  
+KAO( :, 4,10, 7) = (/&
+ & 3.6077E-04_JPRB,4.1729E-04_JPRB,4.1982E-04_JPRB,4.0619E-04_JPRB,3.7979E-04_JPRB,3.3605E-04_JPRB,&
+ & 2.6665E-04_JPRB,2.5064E-04_JPRB,2.5043E-02_JPRB/)  
+KAO( :, 5,10, 7) = (/&
+ & 4.7368E-04_JPRB,5.5457E-04_JPRB,5.6006E-04_JPRB,5.4560E-04_JPRB,5.1520E-04_JPRB,4.6682E-04_JPRB,&
+ & 3.9587E-04_JPRB,3.0490E-04_JPRB,2.5182E-02_JPRB/)  
+KAO( :, 1,11, 7) = (/&
+ & 1.1672E-04_JPRB,1.2865E-04_JPRB,1.2575E-04_JPRB,1.1552E-04_JPRB,1.0159E-04_JPRB,9.2164E-05_JPRB,&
+ & 9.9270E-05_JPRB,1.2653E-04_JPRB,5.7559E-02_JPRB/)  
+KAO( :, 2,11, 7) = (/&
+ & 1.6732E-04_JPRB,1.8741E-04_JPRB,1.8550E-04_JPRB,1.7442E-04_JPRB,1.5354E-04_JPRB,1.3133E-04_JPRB,&
+ & 1.1767E-04_JPRB,1.4329E-04_JPRB,5.7684E-02_JPRB/)  
+KAO( :, 3,11, 7) = (/&
+ & 2.3276E-04_JPRB,2.6444E-04_JPRB,2.6342E-04_JPRB,2.5118E-04_JPRB,2.2884E-04_JPRB,1.9264E-04_JPRB,&
+ & 1.6524E-04_JPRB,1.4558E-04_JPRB,5.7855E-02_JPRB/)  
+KAO( :, 4,11, 7) = (/&
+ & 3.1443E-04_JPRB,3.6154E-04_JPRB,3.6203E-04_JPRB,3.4857E-04_JPRB,3.2499E-04_JPRB,2.8713E-04_JPRB,&
+ & 2.2934E-04_JPRB,2.1182E-04_JPRB,5.7981E-02_JPRB/)  
+KAO( :, 5,11, 7) = (/&
+ & 4.1392E-04_JPRB,4.8111E-04_JPRB,4.8318E-04_JPRB,4.6852E-04_JPRB,4.4073E-04_JPRB,3.9804E-04_JPRB,&
+ & 3.3719E-04_JPRB,2.5664E-04_JPRB,5.8015E-02_JPRB/)  
+KAO( :, 1,12, 7) = (/&
+ & 1.0495E-04_JPRB,1.1425E-04_JPRB,1.1065E-04_JPRB,1.0139E-04_JPRB,8.8702E-05_JPRB,8.0270E-05_JPRB,&
+ & 8.3227E-05_JPRB,1.1035E-04_JPRB,8.4777E-02_JPRB/)  
+KAO( :, 2,12, 7) = (/&
+ & 1.4811E-04_JPRB,1.6444E-04_JPRB,1.6133E-04_JPRB,1.5088E-04_JPRB,1.3304E-04_JPRB,1.1329E-04_JPRB,&
+ & 1.0211E-04_JPRB,1.1814E-04_JPRB,8.5052E-02_JPRB/)  
+KAO( :, 3,12, 7) = (/&
+ & 2.0461E-04_JPRB,2.3053E-04_JPRB,2.2799E-04_JPRB,2.1647E-04_JPRB,1.9655E-04_JPRB,1.6510E-04_JPRB,&
+ & 1.3813E-04_JPRB,1.2052E-04_JPRB,8.5320E-02_JPRB/)  
+KAO( :, 4,12, 7) = (/&
+ & 2.7614E-04_JPRB,3.1483E-04_JPRB,3.1311E-04_JPRB,3.0005E-04_JPRB,2.7866E-04_JPRB,2.4569E-04_JPRB,&
+ & 1.9595E-04_JPRB,1.7650E-04_JPRB,8.5551E-02_JPRB/)  
+KAO( :, 5,12, 7) = (/&
+ & 3.6369E-04_JPRB,4.1945E-04_JPRB,4.1876E-04_JPRB,4.0374E-04_JPRB,3.7792E-04_JPRB,3.3990E-04_JPRB,&
+ & 2.8821E-04_JPRB,2.1660E-04_JPRB,8.5586E-02_JPRB/)  
+KAO( :, 1,13, 7) = (/&
+ & 9.6451E-05_JPRB,1.0341E-04_JPRB,9.9264E-05_JPRB,9.0436E-05_JPRB,7.8283E-05_JPRB,7.1353E-05_JPRB,&
+ & 7.0038E-05_JPRB,8.7127E-05_JPRB,1.0017E-01_JPRB/)  
+KAO( :, 2,13, 7) = (/&
+ & 1.3353E-04_JPRB,1.4634E-04_JPRB,1.4212E-04_JPRB,1.3211E-04_JPRB,1.1628E-04_JPRB,9.7846E-05_JPRB,&
+ & 8.8593E-05_JPRB,9.9520E-05_JPRB,1.0066E-01_JPRB/)  
+KAO( :, 3,13, 7) = (/&
+ & 1.8247E-04_JPRB,2.0319E-04_JPRB,1.9922E-04_JPRB,1.8770E-04_JPRB,1.6984E-04_JPRB,1.4285E-04_JPRB,&
+ & 1.1822E-04_JPRB,1.0096E-04_JPRB,1.0114E-01_JPRB/)  
+KAO( :, 4,13, 7) = (/&
+ & 2.4463E-04_JPRB,2.7635E-04_JPRB,2.7262E-04_JPRB,2.5991E-04_JPRB,2.4023E-04_JPRB,2.1109E-04_JPRB,&
+ & 1.6739E-04_JPRB,1.4711E-04_JPRB,1.0151E-01_JPRB/)  
+KAO( :, 5,13, 7) = (/&
+ & 3.2023E-04_JPRB,3.6781E-04_JPRB,3.6463E-04_JPRB,3.4949E-04_JPRB,3.2644E-04_JPRB,2.9244E-04_JPRB,&
+ & 2.4737E-04_JPRB,1.8188E-04_JPRB,1.0162E-01_JPRB/)  
+KAO( :, 1, 1, 8) = (/&
+ & 4.4239E-03_JPRB,4.5519E-03_JPRB,4.5724E-03_JPRB,4.4178E-03_JPRB,4.2198E-03_JPRB,4.0058E-03_JPRB,&
+ & 3.6615E-03_JPRB,3.0019E-03_JPRB,2.7752E-03_JPRB/)  
+KAO( :, 2, 1, 8) = (/&
+ & 5.3797E-03_JPRB,5.6034E-03_JPRB,5.6810E-03_JPRB,5.5458E-03_JPRB,5.3768E-03_JPRB,5.2131E-03_JPRB,&
+ & 5.0349E-03_JPRB,4.6587E-03_JPRB,3.8056E-03_JPRB/)  
+KAO( :, 3, 1, 8) = (/&
+ & 6.4347E-03_JPRB,6.7859E-03_JPRB,6.9273E-03_JPRB,6.8482E-03_JPRB,6.7118E-03_JPRB,6.6177E-03_JPRB,&
+ & 6.6013E-03_JPRB,6.5225E-03_JPRB,5.0401E-03_JPRB/)  
+KAO( :, 4, 1, 8) = (/&
+ & 7.5645E-03_JPRB,8.0892E-03_JPRB,8.3352E-03_JPRB,8.3083E-03_JPRB,8.2560E-03_JPRB,8.2611E-03_JPRB,&
+ & 8.3847E-03_JPRB,8.5252E-03_JPRB,6.4996E-03_JPRB/)  
+KAO( :, 5, 1, 8) = (/&
+ & 8.7680E-03_JPRB,9.5130E-03_JPRB,9.8898E-03_JPRB,9.9473E-03_JPRB,1.0011E-02_JPRB,1.0143E-02_JPRB,&
+ & 1.0425E-02_JPRB,1.0769E-02_JPRB,8.2076E-03_JPRB/)  
+KAO( :, 1, 2, 8) = (/&
+ & 3.8956E-03_JPRB,4.0502E-03_JPRB,4.0603E-03_JPRB,3.9353E-03_JPRB,3.7465E-03_JPRB,3.4739E-03_JPRB,&
+ & 3.0905E-03_JPRB,2.3943E-03_JPRB,2.1184E-03_JPRB/)  
+KAO( :, 2, 2, 8) = (/&
+ & 4.7918E-03_JPRB,5.0484E-03_JPRB,5.0971E-03_JPRB,4.9960E-03_JPRB,4.7901E-03_JPRB,4.5311E-03_JPRB,&
+ & 4.2459E-03_JPRB,3.8455E-03_JPRB,2.9268E-03_JPRB/)  
+KAO( :, 3, 2, 8) = (/&
+ & 5.7854E-03_JPRB,6.1757E-03_JPRB,6.2838E-03_JPRB,6.2127E-03_JPRB,6.0071E-03_JPRB,5.7828E-03_JPRB,&
+ & 5.6083E-03_JPRB,5.4427E-03_JPRB,3.9021E-03_JPRB/)  
+KAO( :, 4, 2, 8) = (/&
+ & 6.8580E-03_JPRB,7.4217E-03_JPRB,7.6327E-03_JPRB,7.5901E-03_JPRB,7.4062E-03_JPRB,7.2358E-03_JPRB,&
+ & 7.1625E-03_JPRB,7.2397E-03_JPRB,5.0676E-03_JPRB/)  
+KAO( :, 5, 2, 8) = (/&
+ & 8.0102E-03_JPRB,8.7860E-03_JPRB,9.1257E-03_JPRB,9.1299E-03_JPRB,8.9977E-03_JPRB,8.9056E-03_JPRB,&
+ & 8.9466E-03_JPRB,9.2132E-03_JPRB,6.4234E-03_JPRB/)  
+KAO( :, 1, 3, 8) = (/&
+ & 3.2185E-03_JPRB,3.3667E-03_JPRB,3.3683E-03_JPRB,3.2709E-03_JPRB,3.1158E-03_JPRB,2.8506E-03_JPRB,&
+ & 2.4272E-03_JPRB,1.7393E-03_JPRB,1.4905E-03_JPRB/)  
+KAO( :, 2, 3, 8) = (/&
+ & 4.0272E-03_JPRB,4.2617E-03_JPRB,4.2966E-03_JPRB,4.2148E-03_JPRB,4.0495E-03_JPRB,3.7679E-03_JPRB,&
+ & 3.4096E-03_JPRB,2.8817E-03_JPRB,2.0706E-03_JPRB/)  
+KAO( :, 3, 3, 8) = (/&
+ & 4.9255E-03_JPRB,5.2838E-03_JPRB,5.3750E-03_JPRB,5.3109E-03_JPRB,5.1338E-03_JPRB,4.8398E-03_JPRB,&
+ & 4.5501E-03_JPRB,4.1909E-03_JPRB,2.7937E-03_JPRB/)  
+KAO( :, 4, 3, 8) = (/&
+ & 5.9079E-03_JPRB,6.4325E-03_JPRB,6.6107E-03_JPRB,6.5630E-03_JPRB,6.3820E-03_JPRB,6.0909E-03_JPRB,&
+ & 5.8611E-03_JPRB,5.7562E-03_JPRB,3.6692E-03_JPRB/)  
+KAO( :, 5, 3, 8) = (/&
+ & 6.9696E-03_JPRB,7.6975E-03_JPRB,7.9877E-03_JPRB,7.9811E-03_JPRB,7.8040E-03_JPRB,7.5290E-03_JPRB,&
+ & 7.3615E-03_JPRB,7.4650E-03_JPRB,4.7053E-03_JPRB/)  
+KAO( :, 1, 4, 8) = (/&
+ & 2.5545E-03_JPRB,2.6859E-03_JPRB,2.6880E-03_JPRB,2.6203E-03_JPRB,2.4823E-03_JPRB,2.2588E-03_JPRB,&
+ & 1.8322E-03_JPRB,1.2713E-03_JPRB,1.0214E-03_JPRB/)  
+KAO( :, 2, 4, 8) = (/&
+ & 3.2572E-03_JPRB,3.4677E-03_JPRB,3.4957E-03_JPRB,3.4378E-03_JPRB,3.2931E-03_JPRB,3.0601E-03_JPRB,&
+ & 2.6717E-03_JPRB,2.0170E-03_JPRB,1.4352E-03_JPRB/)  
+KAO( :, 3, 4, 8) = (/&
+ & 4.0447E-03_JPRB,4.3684E-03_JPRB,4.4456E-03_JPRB,4.3951E-03_JPRB,4.2405E-03_JPRB,3.9923E-03_JPRB,&
+ & 3.6333E-03_JPRB,3.0944E-03_JPRB,1.9579E-03_JPRB/)  
+KAO( :, 4, 4, 8) = (/&
+ & 4.9198E-03_JPRB,5.3921E-03_JPRB,5.5389E-03_JPRB,5.5062E-03_JPRB,5.3434E-03_JPRB,5.0807E-03_JPRB,&
+ & 4.7402E-03_JPRB,4.4587E-03_JPRB,2.6028E-03_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART5',1,ZHOOK_HANDLE)
+END SUBROUTINE PART5
+
+
+SUBROUTINE PART6
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART6',0,ZHOOK_HANDLE)
+
+
+KAO( :, 5, 4, 8) = (/&
+ & 5.8819E-03_JPRB,6.5317E-03_JPRB,6.7822E-03_JPRB,6.7765E-03_JPRB,6.6162E-03_JPRB,6.3253E-03_JPRB,&
+ & 5.9954E-03_JPRB,5.8840E-03_JPRB,3.3755E-03_JPRB/)  
+KAO( :, 1, 5, 8) = (/&
+ & 1.9756E-03_JPRB,2.0856E-03_JPRB,2.0921E-03_JPRB,2.0392E-03_JPRB,1.9309E-03_JPRB,1.7377E-03_JPRB,&
+ & 1.3394E-03_JPRB,9.1353E-04_JPRB,7.0438E-04_JPRB/)  
+KAO( :, 2, 5, 8) = (/&
+ & 2.5687E-03_JPRB,2.7468E-03_JPRB,2.7774E-03_JPRB,2.7346E-03_JPRB,2.6141E-03_JPRB,2.4178E-03_JPRB,&
+ & 2.0843E-03_JPRB,1.3471E-03_JPRB,9.9854E-04_JPRB/)  
+KAO( :, 3, 5, 8) = (/&
+ & 3.2454E-03_JPRB,3.5226E-03_JPRB,3.5942E-03_JPRB,3.5589E-03_JPRB,3.4246E-03_JPRB,3.2139E-03_JPRB,&
+ & 2.8968E-03_JPRB,2.2808E-03_JPRB,1.3756E-03_JPRB/)  
+KAO( :, 4, 5, 8) = (/&
+ & 4.0078E-03_JPRB,4.4135E-03_JPRB,4.5464E-03_JPRB,4.5227E-03_JPRB,4.3801E-03_JPRB,4.1565E-03_JPRB,&
+ & 3.8227E-03_JPRB,3.4129E-03_JPRB,1.8460E-03_JPRB/)  
+KAO( :, 5, 5, 8) = (/&
+ & 4.8571E-03_JPRB,5.4208E-03_JPRB,5.6379E-03_JPRB,5.6316E-03_JPRB,5.4908E-03_JPRB,5.2408E-03_JPRB,&
+ & 4.8842E-03_JPRB,4.5932E-03_JPRB,2.4240E-03_JPRB/)  
+KAO( :, 1, 6, 8) = (/&
+ & 1.4751E-03_JPRB,1.5649E-03_JPRB,1.5698E-03_JPRB,1.5250E-03_JPRB,1.4367E-03_JPRB,1.2692E-03_JPRB,&
+ & 9.2432E-04_JPRB,6.8601E-04_JPRB,5.0937E-04_JPRB/)  
+KAO( :, 2, 6, 8) = (/&
+ & 1.9613E-03_JPRB,2.1071E-03_JPRB,2.1348E-03_JPRB,2.0943E-03_JPRB,1.9976E-03_JPRB,1.8330E-03_JPRB,&
+ & 1.5334E-03_JPRB,9.4512E-04_JPRB,7.0634E-04_JPRB/)  
+KAO( :, 3, 6, 8) = (/&
+ & 2.5283E-03_JPRB,2.7572E-03_JPRB,2.8184E-03_JPRB,2.7830E-03_JPRB,2.6756E-03_JPRB,2.5003E-03_JPRB,&
+ & 2.2237E-03_JPRB,1.6320E-03_JPRB,9.7275E-04_JPRB/)  
+KAO( :, 4, 6, 8) = (/&
+ & 3.1771E-03_JPRB,3.5120E-03_JPRB,3.6225E-03_JPRB,3.5959E-03_JPRB,3.4819E-03_JPRB,3.2887E-03_JPRB,&
+ & 3.0155E-03_JPRB,2.5468E-03_JPRB,1.3152E-03_JPRB/)  
+KAO( :, 5, 6, 8) = (/&
+ & 3.9082E-03_JPRB,4.3796E-03_JPRB,4.5491E-03_JPRB,4.5475E-03_JPRB,4.4280E-03_JPRB,4.2073E-03_JPRB,&
+ & 3.9106E-03_JPRB,3.5240E-03_JPRB,1.7410E-03_JPRB/)  
+KAO( :, 1, 7, 8) = (/&
+ & 1.0756E-03_JPRB,1.1457E-03_JPRB,1.1474E-03_JPRB,1.1092E-03_JPRB,1.0328E-03_JPRB,8.8328E-04_JPRB,&
+ & 6.4847E-04_JPRB,4.9589E-04_JPRB,5.7093E-04_JPRB/)  
+KAO( :, 2, 7, 8) = (/&
+ & 1.4649E-03_JPRB,1.5820E-03_JPRB,1.5990E-03_JPRB,1.5629E-03_JPRB,1.4809E-03_JPRB,1.3423E-03_JPRB,&
+ & 1.0733E-03_JPRB,6.5945E-04_JPRB,6.7059E-04_JPRB/)  
+KAO( :, 3, 7, 8) = (/&
+ & 1.9283E-03_JPRB,2.1130E-03_JPRB,2.1564E-03_JPRB,2.1214E-03_JPRB,2.0320E-03_JPRB,1.8875E-03_JPRB,&
+ & 1.6475E-03_JPRB,1.0998E-03_JPRB,8.2028E-04_JPRB/)  
+KAO( :, 4, 7, 8) = (/&
+ & 2.4693E-03_JPRB,2.7409E-03_JPRB,2.8220E-03_JPRB,2.7928E-03_JPRB,2.6936E-03_JPRB,2.5390E-03_JPRB,&
+ & 2.3115E-03_JPRB,1.8751E-03_JPRB,1.0332E-03_JPRB/)  
+KAO( :, 5, 7, 8) = (/&
+ & 3.0886E-03_JPRB,3.4749E-03_JPRB,3.5989E-03_JPRB,3.5853E-03_JPRB,3.4794E-03_JPRB,3.3014E-03_JPRB,&
+ & 3.0555E-03_JPRB,2.6855E-03_JPRB,1.3202E-03_JPRB/)  
+KAO( :, 1, 8, 8) = (/&
+ & 7.7013E-04_JPRB,8.2269E-04_JPRB,8.2096E-04_JPRB,7.8766E-04_JPRB,7.2051E-04_JPRB,5.9734E-04_JPRB,&
+ & 4.5221E-04_JPRB,3.6815E-04_JPRB,1.2465E-03_JPRB/)  
+KAO( :, 2, 8, 8) = (/&
+ & 1.0761E-03_JPRB,1.1666E-03_JPRB,1.1753E-03_JPRB,1.1418E-03_JPRB,1.0747E-03_JPRB,9.5486E-04_JPRB,&
+ & 7.2722E-04_JPRB,4.9024E-04_JPRB,1.3265E-03_JPRB/)  
+KAO( :, 3, 8, 8) = (/&
+ & 1.4486E-03_JPRB,1.5933E-03_JPRB,1.6206E-03_JPRB,1.5872E-03_JPRB,1.5112E-03_JPRB,1.3931E-03_JPRB,&
+ & 1.1791E-03_JPRB,7.7032E-04_JPRB,1.4183E-03_JPRB/)  
+KAO( :, 4, 8, 8) = (/&
+ & 1.8914E-03_JPRB,2.1096E-03_JPRB,2.1595E-03_JPRB,2.1285E-03_JPRB,2.0449E-03_JPRB,1.9150E-03_JPRB,&
+ & 1.7248E-03_JPRB,1.3234E-03_JPRB,1.5297E-03_JPRB/)  
+KAO( :, 5, 8, 8) = (/&
+ & 2.4078E-03_JPRB,2.7196E-03_JPRB,2.8008E-03_JPRB,2.7757E-03_JPRB,2.6827E-03_JPRB,2.5404E-03_JPRB,&
+ & 2.3451E-03_JPRB,2.0264E-03_JPRB,1.6770E-03_JPRB/)  
+KAO( :, 1, 9, 8) = (/&
+ & 5.4062E-04_JPRB,5.7894E-04_JPRB,5.7406E-04_JPRB,5.4447E-04_JPRB,4.8698E-04_JPRB,3.9028E-04_JPRB,&
+ & 3.0735E-04_JPRB,2.8186E-04_JPRB,6.3377E-03_JPRB/)  
+KAO( :, 2, 9, 8) = (/&
+ & 7.7655E-04_JPRB,8.4391E-04_JPRB,8.4599E-04_JPRB,8.1629E-04_JPRB,7.6016E-04_JPRB,6.5450E-04_JPRB,&
+ & 4.7980E-04_JPRB,3.6416E-04_JPRB,6.4305E-03_JPRB/)  
+KAO( :, 3, 9, 8) = (/&
+ & 1.0705E-03_JPRB,1.1799E-03_JPRB,1.1936E-03_JPRB,1.1638E-03_JPRB,1.1017E-03_JPRB,1.0023E-03_JPRB,&
+ & 8.1517E-04_JPRB,5.4679E-04_JPRB,6.5495E-03_JPRB/)  
+KAO( :, 4, 9, 8) = (/&
+ & 1.4270E-03_JPRB,1.5951E-03_JPRB,1.6232E-03_JPRB,1.5910E-03_JPRB,1.5219E-03_JPRB,1.4168E-03_JPRB,&
+ & 1.2519E-03_JPRB,8.7875E-04_JPRB,6.6729E-03_JPRB/)  
+KAO( :, 5, 9, 8) = (/&
+ & 1.8505E-03_JPRB,2.0950E-03_JPRB,2.1415E-03_JPRB,2.1108E-03_JPRB,2.0308E-03_JPRB,1.9153E-03_JPRB,&
+ & 1.7561E-03_JPRB,1.4678E-03_JPRB,6.8190E-03_JPRB/)  
+KAO( :, 1,10, 8) = (/&
+ & 3.8585E-04_JPRB,4.1375E-04_JPRB,4.0806E-04_JPRB,3.8295E-04_JPRB,3.3374E-04_JPRB,2.6302E-04_JPRB,&
+ & 2.1519E-04_JPRB,2.1943E-04_JPRB,4.4307E-02_JPRB/)  
+KAO( :, 2,10, 8) = (/&
+ & 5.6783E-04_JPRB,6.1776E-04_JPRB,6.1659E-04_JPRB,5.9118E-04_JPRB,5.4276E-04_JPRB,4.5386E-04_JPRB,&
+ & 3.3714E-04_JPRB,2.8172E-04_JPRB,4.4039E-02_JPRB/)  
+KAO( :, 3,10, 8) = (/&
+ & 7.9994E-04_JPRB,8.8269E-04_JPRB,8.8820E-04_JPRB,8.6201E-04_JPRB,8.1182E-04_JPRB,7.2562E-04_JPRB,&
+ & 5.6386E-04_JPRB,3.8153E-04_JPRB,4.3887E-02_JPRB/)  
+KAO( :, 4,10, 8) = (/&
+ & 1.0873E-03_JPRB,1.2167E-03_JPRB,1.2305E-03_JPRB,1.2016E-03_JPRB,1.1439E-03_JPRB,1.0569E-03_JPRB,&
+ & 9.1489E-04_JPRB,6.0012E-04_JPRB,4.3695E-02_JPRB/)  
+KAO( :, 5,10, 8) = (/&
+ & 1.4329E-03_JPRB,1.6260E-03_JPRB,1.6511E-03_JPRB,1.6186E-03_JPRB,1.5509E-03_JPRB,1.4549E-03_JPRB,&
+ & 1.3198E-03_JPRB,1.0619E-03_JPRB,4.3454E-02_JPRB/)  
+KAO( :, 1,11, 8) = (/&
+ & 3.3331E-04_JPRB,3.5859E-04_JPRB,3.5347E-04_JPRB,3.3213E-04_JPRB,2.8916E-04_JPRB,2.2877E-04_JPRB,&
+ & 1.7900E-04_JPRB,1.9967E-04_JPRB,1.0878E-01_JPRB/)  
+KAO( :, 2,11, 8) = (/&
+ & 4.9047E-04_JPRB,5.3552E-04_JPRB,5.3381E-04_JPRB,5.1299E-04_JPRB,4.7115E-04_JPRB,3.9388E-04_JPRB,&
+ & 2.9080E-04_JPRB,2.3623E-04_JPRB,1.0793E-01_JPRB/)  
+KAO( :, 3,11, 8) = (/&
+ & 6.9278E-04_JPRB,7.6757E-04_JPRB,7.7025E-04_JPRB,7.4755E-04_JPRB,7.0442E-04_JPRB,6.3244E-04_JPRB,&
+ & 4.9501E-04_JPRB,3.3029E-04_JPRB,1.0687E-01_JPRB/)  
+KAO( :, 4,11, 8) = (/&
+ & 9.4454E-04_JPRB,1.0621E-03_JPRB,1.0699E-03_JPRB,1.0431E-03_JPRB,9.9167E-04_JPRB,9.1658E-04_JPRB,&
+ & 7.9795E-04_JPRB,5.4407E-04_JPRB,1.0586E-01_JPRB/)  
+KAO( :, 5,11, 8) = (/&
+ & 1.2469E-03_JPRB,1.4253E-03_JPRB,1.4411E-03_JPRB,1.4083E-03_JPRB,1.3458E-03_JPRB,1.2607E-03_JPRB,&
+ & 1.1470E-03_JPRB,9.3092E-04_JPRB,1.0499E-01_JPRB/)  
+KAO( :, 1,12, 8) = (/&
+ & 2.8868E-04_JPRB,3.1016E-04_JPRB,3.0546E-04_JPRB,2.8704E-04_JPRB,2.5147E-04_JPRB,1.9676E-04_JPRB,&
+ & 1.5529E-04_JPRB,1.6943E-04_JPRB,1.6800E-01_JPRB/)  
+KAO( :, 2,12, 8) = (/&
+ & 4.2419E-04_JPRB,4.6341E-04_JPRB,4.6115E-04_JPRB,4.4308E-04_JPRB,4.0808E-04_JPRB,3.4351E-04_JPRB,&
+ & 2.4857E-04_JPRB,1.9580E-04_JPRB,1.6656E-01_JPRB/)  
+KAO( :, 3,12, 8) = (/&
+ & 6.0023E-04_JPRB,6.6617E-04_JPRB,6.6650E-04_JPRB,6.4587E-04_JPRB,6.0783E-04_JPRB,5.4736E-04_JPRB,&
+ & 4.3585E-04_JPRB,2.8774E-04_JPRB,1.6485E-01_JPRB/)  
+KAO( :, 4,12, 8) = (/&
+ & 8.1906E-04_JPRB,9.2524E-04_JPRB,9.2921E-04_JPRB,9.0286E-04_JPRB,8.5627E-04_JPRB,7.9080E-04_JPRB,&
+ & 6.9052E-04_JPRB,4.8039E-04_JPRB,1.6324E-01_JPRB/)  
+KAO( :, 5,12, 8) = (/&
+ & 1.0839E-03_JPRB,1.2432E-03_JPRB,1.2546E-03_JPRB,1.2224E-03_JPRB,1.1638E-03_JPRB,1.0874E-03_JPRB,&
+ & 9.8876E-04_JPRB,8.1388E-04_JPRB,1.6195E-01_JPRB/)  
+KAO( :, 1,13, 8) = (/&
+ & 2.5312E-04_JPRB,2.6982E-04_JPRB,2.6458E-04_JPRB,2.4857E-04_JPRB,2.1806E-04_JPRB,1.7081E-04_JPRB,&
+ & 1.3117E-04_JPRB,1.3895E-04_JPRB,2.0739E-01_JPRB/)  
+KAO( :, 2,13, 8) = (/&
+ & 3.6904E-04_JPRB,4.0143E-04_JPRB,3.9817E-04_JPRB,3.8186E-04_JPRB,3.5137E-04_JPRB,2.9757E-04_JPRB,&
+ & 2.1658E-04_JPRB,1.6379E-04_JPRB,2.0586E-01_JPRB/)  
+KAO( :, 3,13, 8) = (/&
+ & 5.2080E-04_JPRB,5.7811E-04_JPRB,5.7661E-04_JPRB,5.5693E-04_JPRB,5.2224E-04_JPRB,4.6985E-04_JPRB,&
+ & 3.7580E-04_JPRB,2.4807E-04_JPRB,2.0409E-01_JPRB/)  
+KAO( :, 4,13, 8) = (/&
+ & 7.1123E-04_JPRB,8.0344E-04_JPRB,8.0567E-04_JPRB,7.8029E-04_JPRB,7.3718E-04_JPRB,6.7848E-04_JPRB,&
+ & 5.9304E-04_JPRB,4.2232E-04_JPRB,2.0245E-01_JPRB/)  
+KAO( :, 5,13, 8) = (/&
+ & 9.4485E-04_JPRB,1.0811E-03_JPRB,1.0875E-03_JPRB,1.0578E-03_JPRB,1.0044E-03_JPRB,9.3443E-04_JPRB,&
+ & 8.4723E-04_JPRB,7.0315E-04_JPRB,2.0129E-01_JPRB/)  
+KAO( :, 1, 1, 9) = (/&
+ & 1.0292E-02_JPRB,1.0074E-02_JPRB,1.0433E-02_JPRB,1.0920E-02_JPRB,1.1239E-02_JPRB,1.1304E-02_JPRB,&
+ & 1.1018E-02_JPRB,9.9412E-03_JPRB,1.0267E-02_JPRB/)  
+KAO( :, 2, 1, 9) = (/&
+ & 1.2495E-02_JPRB,1.2453E-02_JPRB,1.3049E-02_JPRB,1.3792E-02_JPRB,1.4278E-02_JPRB,1.4496E-02_JPRB,&
+ & 1.4236E-02_JPRB,1.3361E-02_JPRB,1.3925E-02_JPRB/)  
+KAO( :, 3, 1, 9) = (/&
+ & 1.4859E-02_JPRB,1.5091E-02_JPRB,1.6017E-02_JPRB,1.7045E-02_JPRB,1.7806E-02_JPRB,1.8195E-02_JPRB,&
+ & 1.7952E-02_JPRB,1.7365E-02_JPRB,1.8464E-02_JPRB/)  
+KAO( :, 4, 1, 9) = (/&
+ & 1.7363E-02_JPRB,1.7942E-02_JPRB,1.9281E-02_JPRB,2.0718E-02_JPRB,2.1801E-02_JPRB,2.2424E-02_JPRB,&
+ & 2.2300E-02_JPRB,2.2092E-02_JPRB,2.3948E-02_JPRB/)  
+KAO( :, 5, 1, 9) = (/&
+ & 1.9984E-02_JPRB,2.1018E-02_JPRB,2.2868E-02_JPRB,2.4808E-02_JPRB,2.6324E-02_JPRB,2.7242E-02_JPRB,&
+ & 2.7276E-02_JPRB,2.7701E-02_JPRB,3.0488E-02_JPRB/)  
+KAO( :, 1, 2, 9) = (/&
+ & 9.5128E-03_JPRB,9.2867E-03_JPRB,9.5490E-03_JPRB,9.8633E-03_JPRB,1.0027E-02_JPRB,1.0058E-02_JPRB,&
+ & 9.7636E-03_JPRB,8.7994E-03_JPRB,8.5570E-03_JPRB/)  
+KAO( :, 2, 2, 9) = (/&
+ & 1.1668E-02_JPRB,1.1584E-02_JPRB,1.2077E-02_JPRB,1.2559E-02_JPRB,1.2920E-02_JPRB,1.3060E-02_JPRB,&
+ & 1.2825E-02_JPRB,1.1983E-02_JPRB,1.1751E-02_JPRB/)  
+KAO( :, 3, 2, 9) = (/&
+ & 1.4011E-02_JPRB,1.4151E-02_JPRB,1.4940E-02_JPRB,1.5660E-02_JPRB,1.6284E-02_JPRB,1.6579E-02_JPRB,&
+ & 1.6367E-02_JPRB,1.5804E-02_JPRB,1.5742E-02_JPRB/)  
+KAO( :, 4, 2, 9) = (/&
+ & 1.6508E-02_JPRB,1.6961E-02_JPRB,1.8102E-02_JPRB,1.9197E-02_JPRB,2.0137E-02_JPRB,2.0668E-02_JPRB,&
+ & 2.0505E-02_JPRB,2.0318E-02_JPRB,2.0610E-02_JPRB/)  
+KAO( :, 5, 2, 9) = (/&
+ & 1.9122E-02_JPRB,2.0006E-02_JPRB,2.1590E-02_JPRB,2.3174E-02_JPRB,2.4520E-02_JPRB,2.5288E-02_JPRB,&
+ & 2.5261E-02_JPRB,2.5631E-02_JPRB,2.6467E-02_JPRB/)  
+KAO( :, 1, 3, 9) = (/&
+ & 8.4316E-03_JPRB,8.1842E-03_JPRB,8.3414E-03_JPRB,8.4601E-03_JPRB,8.4527E-03_JPRB,8.3467E-03_JPRB,&
+ & 8.0420E-03_JPRB,7.1142E-03_JPRB,6.5461E-03_JPRB/)  
+KAO( :, 2, 3, 9) = (/&
+ & 1.0508E-02_JPRB,1.0365E-02_JPRB,1.0700E-02_JPRB,1.0941E-02_JPRB,1.1049E-02_JPRB,1.1031E-02_JPRB,&
+ & 1.0751E-02_JPRB,9.9386E-03_JPRB,9.1449E-03_JPRB/)  
+KAO( :, 3, 3, 9) = (/&
+ & 1.2785E-02_JPRB,1.2829E-02_JPRB,1.3389E-02_JPRB,1.3825E-02_JPRB,1.4105E-02_JPRB,1.4232E-02_JPRB,&
+ & 1.3991E-02_JPRB,1.3420E-02_JPRB,1.2428E-02_JPRB/)  
+KAO( :, 4, 3, 9) = (/&
+ & 1.5245E-02_JPRB,1.5545E-02_JPRB,1.6390E-02_JPRB,1.7132E-02_JPRB,1.7666E-02_JPRB,1.7977E-02_JPRB,&
+ & 1.7716E-02_JPRB,1.7486E-02_JPRB,1.6472E-02_JPRB/)  
+KAO( :, 5, 3, 9) = (/&
+ & 1.7859E-02_JPRB,1.8505E-02_JPRB,1.9736E-02_JPRB,2.0852E-02_JPRB,2.1757E-02_JPRB,2.2224E-02_JPRB,&
+ & 2.2056E-02_JPRB,2.2280E-02_JPRB,2.1403E-02_JPRB/)  
+KAO( :, 1, 4, 9) = (/&
+ & 7.3484E-03_JPRB,7.0902E-03_JPRB,7.1380E-03_JPRB,7.1024E-03_JPRB,6.9776E-03_JPRB,6.7400E-03_JPRB,&
+ & 6.3521E-03_JPRB,5.4673E-03_JPRB,4.8295E-03_JPRB/)  
+KAO( :, 2, 4, 9) = (/&
+ & 9.3310E-03_JPRB,9.1397E-03_JPRB,9.3159E-03_JPRB,9.3538E-03_JPRB,9.2681E-03_JPRB,9.0554E-03_JPRB,&
+ & 8.7344E-03_JPRB,7.9076E-03_JPRB,6.8828E-03_JPRB/)  
+KAO( :, 3, 4, 9) = (/&
+ & 1.1534E-02_JPRB,1.1475E-02_JPRB,1.1819E-02_JPRB,1.1988E-02_JPRB,1.2000E-02_JPRB,1.1864E-02_JPRB,&
+ & 1.1575E-02_JPRB,1.0994E-02_JPRB,9.4901E-03_JPRB/)  
+KAO( :, 4, 4, 9) = (/&
+ & 1.3943E-02_JPRB,1.4087E-02_JPRB,1.4649E-02_JPRB,1.5032E-02_JPRB,1.5214E-02_JPRB,1.5176E-02_JPRB,&
+ & 1.4865E-02_JPRB,1.4524E-02_JPRB,1.2777E-02_JPRB/)  
+KAO( :, 5, 4, 9) = (/&
+ & 1.6517E-02_JPRB,1.6976E-02_JPRB,1.7827E-02_JPRB,1.8519E-02_JPRB,1.8920E-02_JPRB,1.9000E-02_JPRB,&
+ & 1.8720E-02_JPRB,1.8746E-02_JPRB,1.6804E-02_JPRB/)  
+KAO( :, 1, 5, 9) = (/&
+ & 6.3624E-03_JPRB,6.1133E-03_JPRB,6.0634E-03_JPRB,5.9330E-03_JPRB,5.7181E-03_JPRB,5.4022E-03_JPRB,&
+ & 4.9483E-03_JPRB,4.1022E-03_JPRB,3.4892E-03_JPRB/)  
+KAO( :, 2, 5, 9) = (/&
+ & 8.2407E-03_JPRB,8.0303E-03_JPRB,8.0632E-03_JPRB,7.9504E-03_JPRB,7.7253E-03_JPRB,7.3962E-03_JPRB,&
+ & 6.9698E-03_JPRB,6.1767E-03_JPRB,5.0748E-03_JPRB/)  
+KAO( :, 3, 5, 9) = (/&
+ & 1.0363E-02_JPRB,1.0246E-02_JPRB,1.0387E-02_JPRB,1.0335E-02_JPRB,1.0149E-02_JPRB,9.8386E-03_JPRB,&
+ & 9.4225E-03_JPRB,8.8118E-03_JPRB,7.1402E-03_JPRB/)  
+KAO( :, 4, 5, 9) = (/&
+ & 1.2695E-02_JPRB,1.2755E-02_JPRB,1.3046E-02_JPRB,1.3138E-02_JPRB,1.3029E-02_JPRB,1.2750E-02_JPRB,&
+ & 1.2327E-02_JPRB,1.1882E-02_JPRB,9.7414E-03_JPRB/)  
+KAO( :, 5, 5, 9) = (/&
+ & 1.5221E-02_JPRB,1.5544E-02_JPRB,1.6067E-02_JPRB,1.6367E-02_JPRB,1.6363E-02_JPRB,1.6145E-02_JPRB,&
+ & 1.5702E-02_JPRB,1.5530E-02_JPRB,1.2966E-02_JPRB/)  
+KAO( :, 1, 6, 9) = (/&
+ & 5.3819E-03_JPRB,5.1682E-03_JPRB,5.0489E-03_JPRB,4.8682E-03_JPRB,4.6033E-03_JPRB,4.2570E-03_JPRB,&
+ & 3.7892E-03_JPRB,2.8608E-03_JPRB,2.4512E-03_JPRB/)  
+KAO( :, 2, 6, 9) = (/&
+ & 7.1280E-03_JPRB,6.9367E-03_JPRB,6.8489E-03_JPRB,6.6487E-03_JPRB,6.3384E-03_JPRB,5.9570E-03_JPRB,&
+ & 5.4784E-03_JPRB,4.6646E-03_JPRB,3.6355E-03_JPRB/)  
+KAO( :, 3, 6, 9) = (/&
+ & 9.1302E-03_JPRB,9.0145E-03_JPRB,8.9822E-03_JPRB,8.7868E-03_JPRB,8.4616E-03_JPRB,8.0561E-03_JPRB,&
+ & 7.5662E-03_JPRB,6.8605E-03_JPRB,5.2018E-03_JPRB/)  
+KAO( :, 4, 6, 9) = (/&
+ & 1.1358E-02_JPRB,1.1388E-02_JPRB,1.1456E-02_JPRB,1.1318E-02_JPRB,1.1012E-02_JPRB,1.0595E-02_JPRB,&
+ & 1.0058E-02_JPRB,9.4902E-03_JPRB,7.2223E-03_JPRB/)  
+KAO( :, 5, 6, 9) = (/&
+ & 1.3798E-02_JPRB,1.4041E-02_JPRB,1.4287E-02_JPRB,1.4257E-02_JPRB,1.3997E-02_JPRB,1.3586E-02_JPRB,&
+ & 1.2991E-02_JPRB,1.2596E-02_JPRB,9.7278E-03_JPRB/)  
+KAO( :, 1, 7, 9) = (/&
+ & 4.4201E-03_JPRB,4.2655E-03_JPRB,4.1450E-03_JPRB,3.9476E-03_JPRB,3.6722E-03_JPRB,3.3249E-03_JPRB,&
+ & 2.8458E-03_JPRB,1.9671E-03_JPRB,1.7803E-03_JPRB/)  
+KAO( :, 2, 7, 9) = (/&
+ & 5.9991E-03_JPRB,5.8588E-03_JPRB,5.7556E-03_JPRB,5.5028E-03_JPRB,5.1661E-03_JPRB,4.7702E-03_JPRB,&
+ & 4.2756E-03_JPRB,3.4608E-03_JPRB,2.6084E-03_JPRB/)  
+KAO( :, 3, 7, 9) = (/&
+ & 7.8395E-03_JPRB,7.7643E-03_JPRB,7.6944E-03_JPRB,7.4017E-03_JPRB,7.0170E-03_JPRB,6.5646E-03_JPRB,&
+ & 6.0423E-03_JPRB,5.2630E-03_JPRB,3.7628E-03_JPRB/)  
+KAO( :, 4, 7, 9) = (/&
+ & 9.9189E-03_JPRB,9.9815E-03_JPRB,9.9658E-03_JPRB,9.6723E-03_JPRB,9.2685E-03_JPRB,8.7611E-03_JPRB,&
+ & 8.1722E-03_JPRB,7.4723E-03_JPRB,5.2872E-03_JPRB/)  
+KAO( :, 5, 7, 9) = (/&
+ & 1.2224E-02_JPRB,1.2487E-02_JPRB,1.2587E-02_JPRB,1.2338E-02_JPRB,1.1918E-02_JPRB,1.1379E-02_JPRB,&
+ & 1.0715E-02_JPRB,1.0101E-02_JPRB,7.2253E-03_JPRB/)  
+KAO( :, 1, 8, 9) = (/&
+ & 3.5350E-03_JPRB,3.4325E-03_JPRB,3.3275E-03_JPRB,3.1605E-03_JPRB,2.8988E-03_JPRB,2.5686E-03_JPRB,&
+ & 2.1091E-03_JPRB,1.2955E-03_JPRB,2.2677E-03_JPRB/)  
+KAO( :, 2, 8, 9) = (/&
+ & 4.9245E-03_JPRB,4.8341E-03_JPRB,4.7376E-03_JPRB,4.5164E-03_JPRB,4.1844E-03_JPRB,3.7894E-03_JPRB,&
+ & 3.3070E-03_JPRB,2.4762E-03_JPRB,2.6602E-03_JPRB/)  
+KAO( :, 3, 8, 9) = (/&
+ & 6.5727E-03_JPRB,6.5413E-03_JPRB,6.4715E-03_JPRB,6.1921E-03_JPRB,5.7948E-03_JPRB,5.3290E-03_JPRB,&
+ & 4.7963E-03_JPRB,4.0123E-03_JPRB,3.3053E-03_JPRB/)  
+KAO( :, 4, 8, 9) = (/&
+ & 8.4673E-03_JPRB,8.5585E-03_JPRB,8.5340E-03_JPRB,8.2251E-03_JPRB,7.7660E-03_JPRB,7.2331E-03_JPRB,&
+ & 6.6181E-03_JPRB,5.8537E-03_JPRB,4.2835E-03_JPRB/)  
+KAO( :, 5, 8, 9) = (/&
+ & 1.0594E-02_JPRB,1.0877E-02_JPRB,1.0934E-02_JPRB,1.0630E-02_JPRB,1.0118E-02_JPRB,9.5083E-03_JPRB,&
+ & 8.7956E-03_JPRB,8.0306E-03_JPRB,5.6393E-03_JPRB/)  
+KAO( :, 1, 9, 9) = (/&
+ & 2.7403E-03_JPRB,2.6787E-03_JPRB,2.5973E-03_JPRB,2.4570E-03_JPRB,2.2443E-03_JPRB,1.9562E-03_JPRB,&
+ & 1.5185E-03_JPRB,8.3616E-04_JPRB,1.0274E-02_JPRB/)  
+KAO( :, 2, 9, 9) = (/&
+ & 3.9274E-03_JPRB,3.8796E-03_JPRB,3.7992E-03_JPRB,3.6140E-03_JPRB,3.3367E-03_JPRB,2.9763E-03_JPRB,&
+ & 2.5173E-03_JPRB,1.7223E-03_JPRB,1.0390E-02_JPRB/)  
+KAO( :, 3, 9, 9) = (/&
+ & 5.3634E-03_JPRB,5.3721E-03_JPRB,5.3082E-03_JPRB,5.0709E-03_JPRB,4.7250E-03_JPRB,4.2829E-03_JPRB,&
+ & 3.7573E-03_JPRB,2.9940E-03_JPRB,1.0638E-02_JPRB/)  
+KAO( :, 4, 9, 9) = (/&
+ & 7.0458E-03_JPRB,7.1640E-03_JPRB,7.1301E-03_JPRB,6.8617E-03_JPRB,6.4511E-03_JPRB,5.9118E-03_JPRB,&
+ & 5.2974E-03_JPRB,4.5531E-03_JPRB,1.1091E-02_JPRB/)  
+KAO( :, 5, 9, 9) = (/&
+ & 8.9617E-03_JPRB,9.2589E-03_JPRB,9.2849E-03_JPRB,9.0088E-03_JPRB,8.5345E-03_JPRB,7.8845E-03_JPRB,&
+ & 7.1544E-03_JPRB,6.3553E-03_JPRB,1.1709E-02_JPRB/)  
+KAO( :, 1,10, 9) = (/&
+ & 2.1319E-03_JPRB,2.1004E-03_JPRB,2.0372E-03_JPRB,1.9210E-03_JPRB,1.7497E-03_JPRB,1.5111E-03_JPRB,&
+ & 1.1301E-03_JPRB,5.5756E-04_JPRB,7.5283E-02_JPRB/)  
+KAO( :, 2,10, 9) = (/&
+ & 3.1363E-03_JPRB,3.1212E-03_JPRB,3.0574E-03_JPRB,2.9015E-03_JPRB,2.6722E-03_JPRB,2.3756E-03_JPRB,&
+ & 1.9576E-03_JPRB,1.2195E-03_JPRB,7.4064E-02_JPRB/)  
+KAO( :, 3,10, 9) = (/&
+ & 4.3731E-03_JPRB,4.4117E-03_JPRB,4.3602E-03_JPRB,4.1608E-03_JPRB,3.8669E-03_JPRB,3.4927E-03_JPRB,&
+ & 3.0050E-03_JPRB,2.2902E-03_JPRB,7.3035E-02_JPRB/)  
+KAO( :, 4,10, 9) = (/&
+ & 5.8455E-03_JPRB,5.9881E-03_JPRB,5.9565E-03_JPRB,5.7270E-03_JPRB,5.3754E-03_JPRB,4.9035E-03_JPRB,&
+ & 4.3124E-03_JPRB,3.6091E-03_JPRB,7.2537E-02_JPRB/)  
+KAO( :, 5,10, 9) = (/&
+ & 7.5468E-03_JPRB,7.8566E-03_JPRB,7.8695E-03_JPRB,7.6289E-03_JPRB,7.2133E-03_JPRB,6.6234E-03_JPRB,&
+ & 5.9025E-03_JPRB,5.1322E-03_JPRB,7.2257E-02_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART6',1,ZHOOK_HANDLE)
+END SUBROUTINE PART6
+
+
+SUBROUTINE PART7
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART7',0,ZHOOK_HANDLE)
+
+
+KAO( :, 1,11, 9) = (/&
+ & 1.9745E-03_JPRB,1.9703E-03_JPRB,1.9199E-03_JPRB,1.8121E-03_JPRB,1.6559E-03_JPRB,1.4431E-03_JPRB,&
+ & 1.1163E-03_JPRB,5.3500E-04_JPRB,1.9757E-01_JPRB/)  
+KAO( :, 2,11, 9) = (/&
+ & 2.8999E-03_JPRB,2.9279E-03_JPRB,2.8819E-03_JPRB,2.7350E-03_JPRB,2.5277E-03_JPRB,2.2543E-03_JPRB,&
+ & 1.8746E-03_JPRB,1.2124E-03_JPRB,1.9384E-01_JPRB/)  
+KAO( :, 3,11, 9) = (/&
+ & 4.0444E-03_JPRB,4.1420E-03_JPRB,4.1037E-03_JPRB,3.9240E-03_JPRB,3.6578E-03_JPRB,3.3096E-03_JPRB,&
+ & 2.8567E-03_JPRB,2.1998E-03_JPRB,1.9071E-01_JPRB/)  
+KAO( :, 4,11, 9) = (/&
+ & 5.4085E-03_JPRB,5.6287E-03_JPRB,5.6077E-03_JPRB,5.4059E-03_JPRB,5.0834E-03_JPRB,4.6413E-03_JPRB,&
+ & 4.0709E-03_JPRB,3.3776E-03_JPRB,1.8809E-01_JPRB/)  
+KAO( :, 5,11, 9) = (/&
+ & 6.9941E-03_JPRB,7.3880E-03_JPRB,7.4108E-03_JPRB,7.2046E-03_JPRB,6.8126E-03_JPRB,6.2573E-03_JPRB,&
+ & 5.5477E-03_JPRB,4.7861E-03_JPRB,1.8600E-01_JPRB/)  
+KAO( :, 1,12, 9) = (/&
+ & 1.7996E-03_JPRB,1.8206E-03_JPRB,1.7805E-03_JPRB,1.6829E-03_JPRB,1.5433E-03_JPRB,1.3501E-03_JPRB,&
+ & 1.0572E-03_JPRB,5.4808E-04_JPRB,3.2846E-01_JPRB/)  
+KAO( :, 2,12, 9) = (/&
+ & 2.6426E-03_JPRB,2.7068E-03_JPRB,2.6687E-03_JPRB,2.5393E-03_JPRB,2.3520E-03_JPRB,2.1038E-03_JPRB,&
+ & 1.7678E-03_JPRB,1.1889E-03_JPRB,3.2273E-01_JPRB/)  
+KAO( :, 3,12, 9) = (/&
+ & 3.6853E-03_JPRB,3.8343E-03_JPRB,3.8028E-03_JPRB,3.6418E-03_JPRB,3.4031E-03_JPRB,3.0855E-03_JPRB,&
+ & 2.6713E-03_JPRB,2.0755E-03_JPRB,3.1779E-01_JPRB/)  
+KAO( :, 4,12, 9) = (/&
+ & 4.9356E-03_JPRB,5.2142E-03_JPRB,5.1981E-03_JPRB,5.0221E-03_JPRB,4.7252E-03_JPRB,4.3142E-03_JPRB,&
+ & 3.7960E-03_JPRB,3.1444E-03_JPRB,3.1325E-01_JPRB/)  
+KAO( :, 5,12, 9) = (/&
+ & 6.3947E-03_JPRB,6.8520E-03_JPRB,6.8760E-03_JPRB,6.6872E-03_JPRB,6.3222E-03_JPRB,5.8083E-03_JPRB,&
+ & 5.1616E-03_JPRB,4.4214E-03_JPRB,3.0903E-01_JPRB/)  
+KAO( :, 1,13, 9) = (/&
+ & 1.6151E-03_JPRB,1.6567E-03_JPRB,1.6234E-03_JPRB,1.5373E-03_JPRB,1.4124E-03_JPRB,1.2394E-03_JPRB,&
+ & 9.8564E-04_JPRB,5.5616E-04_JPRB,4.3871E-01_JPRB/)  
+KAO( :, 2,13, 9) = (/&
+ & 2.3710E-03_JPRB,2.4678E-03_JPRB,2.4327E-03_JPRB,2.3183E-03_JPRB,2.1495E-03_JPRB,1.9302E-03_JPRB,&
+ & 1.6336E-03_JPRB,1.1398E-03_JPRB,4.3206E-01_JPRB/)  
+KAO( :, 3,13, 9) = (/&
+ & 3.3121E-03_JPRB,3.4978E-03_JPRB,3.4669E-03_JPRB,3.3267E-03_JPRB,3.1113E-03_JPRB,2.8243E-03_JPRB,&
+ & 2.4585E-03_JPRB,1.9402E-03_JPRB,4.2585E-01_JPRB/)  
+KAO( :, 4,13, 9) = (/&
+ & 4.4457E-03_JPRB,4.7587E-03_JPRB,4.7468E-03_JPRB,4.5875E-03_JPRB,4.3110E-03_JPRB,3.9394E-03_JPRB,&
+ & 3.4774E-03_JPRB,2.8993E-03_JPRB,4.1993E-01_JPRB/)  
+KAO( :, 5,13, 9) = (/&
+ & 5.7689E-03_JPRB,6.2589E-03_JPRB,6.2951E-03_JPRB,6.1057E-03_JPRB,5.7619E-03_JPRB,5.2957E-03_JPRB,&
+ & 4.7230E-03_JPRB,4.0528E-03_JPRB,4.1400E-01_JPRB/)  
+KAO( :, 1, 1,10) = (/&
+ & 2.8341E-02_JPRB,2.4949E-02_JPRB,2.4794E-02_JPRB,2.3987E-02_JPRB,2.3812E-02_JPRB,2.2586E-02_JPRB,&
+ & 2.0187E-02_JPRB,1.9376E-02_JPRB,2.5381E-02_JPRB/)  
+KAO( :, 2, 1,10) = (/&
+ & 3.3991E-02_JPRB,3.0192E-02_JPRB,3.0574E-02_JPRB,3.0065E-02_JPRB,2.9840E-02_JPRB,2.8013E-02_JPRB,&
+ & 2.5566E-02_JPRB,2.6044E-02_JPRB,3.3447E-02_JPRB/)  
+KAO( :, 3, 1,10) = (/&
+ & 3.9910E-02_JPRB,3.6271E-02_JPRB,3.6774E-02_JPRB,3.6789E-02_JPRB,3.6160E-02_JPRB,3.4328E-02_JPRB,&
+ & 3.2309E-02_JPRB,3.3900E-02_JPRB,4.2891E-02_JPRB/)  
+KAO( :, 4, 1,10) = (/&
+ & 4.5950E-02_JPRB,4.3254E-02_JPRB,4.3515E-02_JPRB,4.3816E-02_JPRB,4.3274E-02_JPRB,4.0958E-02_JPRB,&
+ & 3.9828E-02_JPRB,4.3039E-02_JPRB,5.4536E-02_JPRB/)  
+KAO( :, 5, 1,10) = (/&
+ & 5.2074E-02_JPRB,5.0170E-02_JPRB,5.0735E-02_JPRB,5.1340E-02_JPRB,5.0699E-02_JPRB,4.7916E-02_JPRB,&
+ & 4.9158E-02_JPRB,5.3574E-02_JPRB,6.8520E-02_JPRB/)  
+KAO( :, 1, 2,10) = (/&
+ & 2.6184E-02_JPRB,2.3296E-02_JPRB,2.3226E-02_JPRB,2.2714E-02_JPRB,2.2514E-02_JPRB,2.1363E-02_JPRB,&
+ & 1.9364E-02_JPRB,1.8250E-02_JPRB,2.2856E-02_JPRB/)  
+KAO( :, 2, 2,10) = (/&
+ & 3.1743E-02_JPRB,2.8597E-02_JPRB,2.8854E-02_JPRB,2.8835E-02_JPRB,2.8199E-02_JPRB,2.7046E-02_JPRB,&
+ & 2.4544E-02_JPRB,2.4456E-02_JPRB,3.0699E-02_JPRB/)  
+KAO( :, 3, 2,10) = (/&
+ & 3.7600E-02_JPRB,3.4758E-02_JPRB,3.5112E-02_JPRB,3.5357E-02_JPRB,3.4504E-02_JPRB,3.3441E-02_JPRB,&
+ & 3.1117E-02_JPRB,3.2055E-02_JPRB,4.0509E-02_JPRB/)  
+KAO( :, 4, 2,10) = (/&
+ & 4.3772E-02_JPRB,4.1496E-02_JPRB,4.2012E-02_JPRB,4.2309E-02_JPRB,4.1696E-02_JPRB,3.9959E-02_JPRB,&
+ & 3.8762E-02_JPRB,4.0415E-02_JPRB,5.2629E-02_JPRB/)  
+KAO( :, 5, 2,10) = (/&
+ & 5.0069E-02_JPRB,4.8330E-02_JPRB,4.9427E-02_JPRB,4.9767E-02_JPRB,4.9310E-02_JPRB,4.7260E-02_JPRB,&
+ & 4.8222E-02_JPRB,5.0586E-02_JPRB,6.6929E-02_JPRB/)  
+KAO( :, 1, 3,10) = (/&
+ & 2.2843E-02_JPRB,2.0821E-02_JPRB,2.0350E-02_JPRB,2.0283E-02_JPRB,1.9897E-02_JPRB,1.9120E-02_JPRB,&
+ & 1.7384E-02_JPRB,1.6170E-02_JPRB,1.8446E-02_JPRB/)  
+KAO( :, 2, 3,10) = (/&
+ & 2.8199E-02_JPRB,2.6062E-02_JPRB,2.5776E-02_JPRB,2.5997E-02_JPRB,2.5440E-02_JPRB,2.4723E-02_JPRB,&
+ & 2.2441E-02_JPRB,2.1717E-02_JPRB,2.5483E-02_JPRB/)  
+KAO( :, 3, 3,10) = (/&
+ & 3.3953E-02_JPRB,3.1919E-02_JPRB,3.1941E-02_JPRB,3.2157E-02_JPRB,3.1747E-02_JPRB,3.0922E-02_JPRB,&
+ & 2.8559E-02_JPRB,2.8709E-02_JPRB,3.4439E-02_JPRB/)  
+KAO( :, 4, 3,10) = (/&
+ & 4.0002E-02_JPRB,3.8423E-02_JPRB,3.8902E-02_JPRB,3.8911E-02_JPRB,3.8820E-02_JPRB,3.7594E-02_JPRB,&
+ & 3.6351E-02_JPRB,3.6718E-02_JPRB,4.5775E-02_JPRB/)  
+KAO( :, 5, 3,10) = (/&
+ & 4.6219E-02_JPRB,4.5155E-02_JPRB,4.6197E-02_JPRB,4.6387E-02_JPRB,4.6153E-02_JPRB,4.5334E-02_JPRB,&
+ & 4.5834E-02_JPRB,4.6534E-02_JPRB,5.9401E-02_JPRB/)  
+KAO( :, 1, 4,10) = (/&
+ & 1.9312E-02_JPRB,1.7992E-02_JPRB,1.7480E-02_JPRB,1.7446E-02_JPRB,1.7111E-02_JPRB,1.6477E-02_JPRB,&
+ & 1.5243E-02_JPRB,1.3399E-02_JPRB,1.4121E-02_JPRB/)  
+KAO( :, 2, 4,10) = (/&
+ & 2.4344E-02_JPRB,2.2955E-02_JPRB,2.2617E-02_JPRB,2.2783E-02_JPRB,2.2496E-02_JPRB,2.1867E-02_JPRB,&
+ & 1.9808E-02_JPRB,1.8936E-02_JPRB,1.9938E-02_JPRB/)  
+KAO( :, 3, 4,10) = (/&
+ & 2.9801E-02_JPRB,2.8523E-02_JPRB,2.8566E-02_JPRB,2.8709E-02_JPRB,2.8682E-02_JPRB,2.7725E-02_JPRB,&
+ & 2.5334E-02_JPRB,2.5284E-02_JPRB,2.7743E-02_JPRB/)  
+KAO( :, 4, 4,10) = (/&
+ & 3.5620E-02_JPRB,3.4742E-02_JPRB,3.5299E-02_JPRB,3.5308E-02_JPRB,3.5457E-02_JPRB,3.4419E-02_JPRB,&
+ & 3.2604E-02_JPRB,3.3013E-02_JPRB,3.7587E-02_JPRB/)  
+KAO( :, 5, 4,10) = (/&
+ & 4.1887E-02_JPRB,4.1321E-02_JPRB,4.2274E-02_JPRB,4.2660E-02_JPRB,4.2937E-02_JPRB,4.2081E-02_JPRB,&
+ & 4.1593E-02_JPRB,4.2622E-02_JPRB,4.9653E-02_JPRB/)  
+KAO( :, 1, 5,10) = (/&
+ & 1.5962E-02_JPRB,1.5091E-02_JPRB,1.4926E-02_JPRB,1.4725E-02_JPRB,1.4471E-02_JPRB,1.4016E-02_JPRB,&
+ & 1.2941E-02_JPRB,1.0781E-02_JPRB,1.0820E-02_JPRB/)  
+KAO( :, 2, 5,10) = (/&
+ & 2.0561E-02_JPRB,1.9656E-02_JPRB,1.9606E-02_JPRB,1.9723E-02_JPRB,1.9597E-02_JPRB,1.8959E-02_JPRB,&
+ & 1.7070E-02_JPRB,1.5994E-02_JPRB,1.5507E-02_JPRB/)  
+KAO( :, 3, 5,10) = (/&
+ & 2.5675E-02_JPRB,2.4818E-02_JPRB,2.5196E-02_JPRB,2.5517E-02_JPRB,2.5439E-02_JPRB,2.4412E-02_JPRB,&
+ & 2.1991E-02_JPRB,2.1552E-02_JPRB,2.1888E-02_JPRB/)  
+KAO( :, 4, 5,10) = (/&
+ & 3.1284E-02_JPRB,3.0688E-02_JPRB,3.1452E-02_JPRB,3.1913E-02_JPRB,3.1938E-02_JPRB,3.0781E-02_JPRB,&
+ & 2.8330E-02_JPRB,2.8796E-02_JPRB,3.0247E-02_JPRB/)  
+KAO( :, 5, 5,10) = (/&
+ & 3.7244E-02_JPRB,3.7039E-02_JPRB,3.8113E-02_JPRB,3.9041E-02_JPRB,3.9409E-02_JPRB,3.8138E-02_JPRB,&
+ & 3.6567E-02_JPRB,3.7730E-02_JPRB,4.0679E-02_JPRB/)  
+KAO( :, 1, 6,10) = (/&
+ & 1.2975E-02_JPRB,1.2256E-02_JPRB,1.2340E-02_JPRB,1.2080E-02_JPRB,1.1895E-02_JPRB,1.1506E-02_JPRB,&
+ & 1.0365E-02_JPRB,8.5383E-03_JPRB,8.0172E-03_JPRB/)  
+KAO( :, 2, 6,10) = (/&
+ & 1.7187E-02_JPRB,1.6321E-02_JPRB,1.6561E-02_JPRB,1.6669E-02_JPRB,1.6611E-02_JPRB,1.5858E-02_JPRB,&
+ & 1.4206E-02_JPRB,1.2638E-02_JPRB,1.1866E-02_JPRB/)  
+KAO( :, 3, 6,10) = (/&
+ & 2.1950E-02_JPRB,2.1039E-02_JPRB,2.1721E-02_JPRB,2.2100E-02_JPRB,2.1989E-02_JPRB,2.0834E-02_JPRB,&
+ & 1.8607E-02_JPRB,1.7648E-02_JPRB,1.7187E-02_JPRB/)  
+KAO( :, 4, 6,10) = (/&
+ & 2.7221E-02_JPRB,2.6492E-02_JPRB,2.7582E-02_JPRB,2.8232E-02_JPRB,2.8034E-02_JPRB,2.6720E-02_JPRB,&
+ & 2.4048E-02_JPRB,2.4099E-02_JPRB,2.3975E-02_JPRB/)  
+KAO( :, 5, 6,10) = (/&
+ & 3.2966E-02_JPRB,3.2596E-02_JPRB,3.4013E-02_JPRB,3.5128E-02_JPRB,3.5174E-02_JPRB,3.3585E-02_JPRB,&
+ & 3.0966E-02_JPRB,3.2147E-02_JPRB,3.2714E-02_JPRB/)  
+KAO( :, 1, 7,10) = (/&
+ & 1.1003E-02_JPRB,1.0172E-02_JPRB,9.9689E-03_JPRB,9.7030E-03_JPRB,9.5816E-03_JPRB,9.1864E-03_JPRB,&
+ & 8.3157E-03_JPRB,6.5477E-03_JPRB,5.8584E-03_JPRB/)  
+KAO( :, 2, 7,10) = (/&
+ & 1.4954E-02_JPRB,1.3915E-02_JPRB,1.3705E-02_JPRB,1.3805E-02_JPRB,1.3711E-02_JPRB,1.2918E-02_JPRB,&
+ & 1.1613E-02_JPRB,9.7524E-03_JPRB,8.8921E-03_JPRB/)  
+KAO( :, 3, 7,10) = (/&
+ & 1.9525E-02_JPRB,1.8286E-02_JPRB,1.8359E-02_JPRB,1.8803E-02_JPRB,1.8505E-02_JPRB,1.7397E-02_JPRB,&
+ & 1.5545E-02_JPRB,1.4074E-02_JPRB,1.3147E-02_JPRB/)  
+KAO( :, 4, 7,10) = (/&
+ & 2.4765E-02_JPRB,2.3347E-02_JPRB,2.3852E-02_JPRB,2.4521E-02_JPRB,2.4046E-02_JPRB,2.2746E-02_JPRB,&
+ & 2.0338E-02_JPRB,1.9593E-02_JPRB,1.8718E-02_JPRB/)  
+KAO( :, 5, 7,10) = (/&
+ & 3.0444E-02_JPRB,2.9114E-02_JPRB,2.9981E-02_JPRB,3.1001E-02_JPRB,3.0659E-02_JPRB,2.9115E-02_JPRB,&
+ & 2.6153E-02_JPRB,2.6663E-02_JPRB,2.5778E-02_JPRB/)  
+KAO( :, 1, 8,10) = (/&
+ & 9.5903E-03_JPRB,8.7677E-03_JPRB,8.2751E-03_JPRB,7.7628E-03_JPRB,7.6194E-03_JPRB,7.2194E-03_JPRB,&
+ & 6.4757E-03_JPRB,5.1626E-03_JPRB,4.5446E-03_JPRB/)  
+KAO( :, 2, 8,10) = (/&
+ & 1.3386E-02_JPRB,1.2290E-02_JPRB,1.1661E-02_JPRB,1.1306E-02_JPRB,1.1055E-02_JPRB,1.0454E-02_JPRB,&
+ & 9.3918E-03_JPRB,7.5740E-03_JPRB,6.6212E-03_JPRB/)  
+KAO( :, 3, 8,10) = (/&
+ & 1.7895E-02_JPRB,1.6495E-02_JPRB,1.5871E-02_JPRB,1.5730E-02_JPRB,1.5237E-02_JPRB,1.4347E-02_JPRB,&
+ & 1.2880E-02_JPRB,1.1121E-02_JPRB,9.9657E-03_JPRB/)  
+KAO( :, 4, 8,10) = (/&
+ & 2.3088E-02_JPRB,2.1460E-02_JPRB,2.0931E-02_JPRB,2.0828E-02_JPRB,2.0243E-02_JPRB,1.9039E-02_JPRB,&
+ & 1.7178E-02_JPRB,1.5707E-02_JPRB,1.4369E-02_JPRB/)  
+KAO( :, 5, 8,10) = (/&
+ & 2.8768E-02_JPRB,2.7065E-02_JPRB,2.6736E-02_JPRB,2.6678E-02_JPRB,2.6248E-02_JPRB,2.4878E-02_JPRB,&
+ & 2.2359E-02_JPRB,2.1798E-02_JPRB,1.9974E-02_JPRB/)  
+KAO( :, 1, 9,10) = (/&
+ & 8.1489E-03_JPRB,7.4648E-03_JPRB,6.9804E-03_JPRB,6.4191E-03_JPRB,5.9636E-03_JPRB,5.4909E-03_JPRB,&
+ & 4.8784E-03_JPRB,3.8347E-03_JPRB,1.5314E-02_JPRB/)  
+KAO( :, 2, 9,10) = (/&
+ & 1.1712E-02_JPRB,1.0789E-02_JPRB,1.0109E-02_JPRB,9.4829E-03_JPRB,8.8584E-03_JPRB,8.2278E-03_JPRB,&
+ & 7.3764E-03_JPRB,5.7877E-03_JPRB,1.6244E-02_JPRB/)  
+KAO( :, 3, 9,10) = (/&
+ & 1.6046E-02_JPRB,1.4820E-02_JPRB,1.4055E-02_JPRB,1.3332E-02_JPRB,1.2456E-02_JPRB,1.1636E-02_JPRB,&
+ & 1.0489E-02_JPRB,8.6873E-03_JPRB,1.7494E-02_JPRB/)  
+KAO( :, 4, 9,10) = (/&
+ & 2.1066E-02_JPRB,1.9610E-02_JPRB,1.8931E-02_JPRB,1.7888E-02_JPRB,1.6756E-02_JPRB,1.5784E-02_JPRB,&
+ & 1.4417E-02_JPRB,1.2557E-02_JPRB,1.9326E-02_JPRB/)  
+KAO( :, 5, 9,10) = (/&
+ & 2.6667E-02_JPRB,2.5074E-02_JPRB,2.4522E-02_JPRB,2.3189E-02_JPRB,2.2008E-02_JPRB,2.0995E-02_JPRB,&
+ & 1.9281E-02_JPRB,1.7791E-02_JPRB,2.1654E-02_JPRB/)  
+KAO( :, 1,10,10) = (/&
+ & 6.9366E-03_JPRB,6.3789E-03_JPRB,5.9595E-03_JPRB,5.4852E-03_JPRB,4.9360E-03_JPRB,4.3201E-03_JPRB,&
+ & 3.7060E-03_JPRB,2.8411E-03_JPRB,1.0865E-01_JPRB/)  
+KAO( :, 2,10,10) = (/&
+ & 1.0236E-02_JPRB,9.4750E-03_JPRB,8.8501E-03_JPRB,8.3036E-03_JPRB,7.4880E-03_JPRB,6.6146E-03_JPRB,&
+ & 5.8580E-03_JPRB,4.5793E-03_JPRB,1.0627E-01_JPRB/)  
+KAO( :, 3,10,10) = (/&
+ & 1.4332E-02_JPRB,1.3324E-02_JPRB,1.2604E-02_JPRB,1.1845E-02_JPRB,1.0730E-02_JPRB,9.5741E-03_JPRB,&
+ & 8.5876E-03_JPRB,7.0236E-03_JPRB,1.0490E-01_JPRB/)  
+KAO( :, 4,10,10) = (/&
+ & 1.9120E-02_JPRB,1.7914E-02_JPRB,1.7311E-02_JPRB,1.6108E-02_JPRB,1.4592E-02_JPRB,1.3253E-02_JPRB,&
+ & 1.2097E-02_JPRB,1.0165E-02_JPRB,1.0426E-01_JPRB/)  
+KAO( :, 5,10,10) = (/&
+ & 2.4561E-02_JPRB,2.3221E-02_JPRB,2.2646E-02_JPRB,2.1122E-02_JPRB,1.9334E-02_JPRB,1.7961E-02_JPRB,&
+ & 1.6559E-02_JPRB,1.4610E-02_JPRB,1.0510E-01_JPRB/)  
+KAO( :, 1,11,10) = (/&
+ & 7.0237E-03_JPRB,6.5225E-03_JPRB,6.1043E-03_JPRB,5.6444E-03_JPRB,5.0633E-03_JPRB,4.3399E-03_JPRB,&
+ & 3.5607E-03_JPRB,2.6850E-03_JPRB,2.8892E-01_JPRB/)  
+KAO( :, 2,11,10) = (/&
+ & 1.0384E-02_JPRB,9.6831E-03_JPRB,9.0835E-03_JPRB,8.5192E-03_JPRB,7.6404E-03_JPRB,6.6528E-03_JPRB,&
+ & 5.6514E-03_JPRB,4.5273E-03_JPRB,2.8169E-01_JPRB/)  
+KAO( :, 3,11,10) = (/&
+ & 1.4456E-02_JPRB,1.3566E-02_JPRB,1.2997E-02_JPRB,1.2107E-02_JPRB,1.0901E-02_JPRB,9.5425E-03_JPRB,&
+ & 8.2374E-03_JPRB,6.8400E-03_JPRB,2.7734E-01_JPRB/)  
+KAO( :, 4,11,10) = (/&
+ & 1.9195E-02_JPRB,1.8156E-02_JPRB,1.7656E-02_JPRB,1.6419E-02_JPRB,1.4881E-02_JPRB,1.3205E-02_JPRB,&
+ & 1.1741E-02_JPRB,9.9915E-03_JPRB,2.7331E-01_JPRB/)  
+KAO( :, 5,11,10) = (/&
+ & 2.4521E-02_JPRB,2.3536E-02_JPRB,2.2979E-02_JPRB,2.1464E-02_JPRB,1.9799E-02_JPRB,1.7771E-02_JPRB,&
+ & 1.6045E-02_JPRB,1.4047E-02_JPRB,2.7061E-01_JPRB/)  
+KAO( :, 1,12,10) = (/&
+ & 6.9801E-03_JPRB,6.5414E-03_JPRB,6.1464E-03_JPRB,5.6988E-03_JPRB,5.0902E-03_JPRB,4.4198E-03_JPRB,&
+ & 3.6370E-03_JPRB,2.5506E-03_JPRB,4.9609E-01_JPRB/)  
+KAO( :, 2,12,10) = (/&
+ & 1.0252E-02_JPRB,9.6631E-03_JPRB,9.2104E-03_JPRB,8.5451E-03_JPRB,7.6724E-03_JPRB,6.7086E-03_JPRB,&
+ & 5.5412E-03_JPRB,4.4277E-03_JPRB,4.8672E-01_JPRB/)  
+KAO( :, 3,12,10) = (/&
+ & 1.4194E-02_JPRB,1.3473E-02_JPRB,1.3019E-02_JPRB,1.2130E-02_JPRB,1.0940E-02_JPRB,9.6059E-03_JPRB,&
+ & 8.1091E-03_JPRB,6.7337E-03_JPRB,4.7779E-01_JPRB/)  
+KAO( :, 4,12,10) = (/&
+ & 1.8764E-02_JPRB,1.7996E-02_JPRB,1.7549E-02_JPRB,1.6391E-02_JPRB,1.4970E-02_JPRB,1.3362E-02_JPRB,&
+ & 1.1424E-02_JPRB,9.7371E-03_JPRB,4.7094E-01_JPRB/)  
+KAO( :, 5,12,10) = (/&
+ & 2.3822E-02_JPRB,2.3255E-02_JPRB,2.2798E-02_JPRB,2.1487E-02_JPRB,1.9935E-02_JPRB,1.7893E-02_JPRB,&
+ & 1.5477E-02_JPRB,1.3501E-02_JPRB,4.6404E-01_JPRB/)  
+KAO( :, 1,13,10) = (/&
+ & 6.7570E-03_JPRB,6.3985E-03_JPRB,6.0648E-03_JPRB,5.6090E-03_JPRB,5.0372E-03_JPRB,4.3896E-03_JPRB,&
+ & 3.5984E-03_JPRB,2.5612E-03_JPRB,7.0129E-01_JPRB/)  
+KAO( :, 2,13,10) = (/&
+ & 9.8516E-03_JPRB,9.3610E-03_JPRB,9.0380E-03_JPRB,8.3857E-03_JPRB,7.5801E-03_JPRB,6.6037E-03_JPRB,&
+ & 5.4660E-03_JPRB,4.1572E-03_JPRB,6.8624E-01_JPRB/)  
+KAO( :, 3,13,10) = (/&
+ & 1.3565E-02_JPRB,1.3023E-02_JPRB,1.2697E-02_JPRB,1.1845E-02_JPRB,1.0771E-02_JPRB,9.5129E-03_JPRB,&
+ & 8.0355E-03_JPRB,6.4068E-03_JPRB,6.7348E-01_JPRB/)  
+KAO( :, 4,13,10) = (/&
+ & 1.7823E-02_JPRB,1.7451E-02_JPRB,1.7031E-02_JPRB,1.6025E-02_JPRB,1.4810E-02_JPRB,1.3226E-02_JPRB,&
+ & 1.1248E-02_JPRB,9.2627E-03_JPRB,6.6252E-01_JPRB/)  
+KAO( :, 5,13,10) = (/&
+ & 2.2635E-02_JPRB,2.2570E-02_JPRB,2.2029E-02_JPRB,2.1116E-02_JPRB,1.9648E-02_JPRB,1.7648E-02_JPRB,&
+ & 1.5125E-02_JPRB,1.2814E-02_JPRB,6.5224E-01_JPRB/)  
+KAO( :, 1, 1,11) = (/&
+ & 4.0423E-02_JPRB,3.5511E-02_JPRB,3.2385E-02_JPRB,3.1302E-02_JPRB,2.9329E-02_JPRB,2.7493E-02_JPRB,&
+ & 2.5237E-02_JPRB,2.6262E-02_JPRB,3.3335E-02_JPRB/)  
+KAO( :, 2, 1,11) = (/&
+ & 4.8068E-02_JPRB,4.2224E-02_JPRB,3.9790E-02_JPRB,3.8473E-02_JPRB,3.6916E-02_JPRB,3.3889E-02_JPRB,&
+ & 3.2387E-02_JPRB,3.4784E-02_JPRB,4.3954E-02_JPRB/)  
+KAO( :, 3, 1,11) = (/&
+ & 5.5962E-02_JPRB,4.9147E-02_JPRB,4.7932E-02_JPRB,4.6498E-02_JPRB,4.4808E-02_JPRB,4.0788E-02_JPRB,&
+ & 4.1145E-02_JPRB,4.4752E-02_JPRB,5.6848E-02_JPRB/)  
+KAO( :, 4, 1,11) = (/&
+ & 6.3927E-02_JPRB,5.6554E-02_JPRB,5.6496E-02_JPRB,5.5146E-02_JPRB,5.2972E-02_JPRB,4.9275E-02_JPRB,&
+ & 5.2218E-02_JPRB,5.7028E-02_JPRB,7.1593E-02_JPRB/)  
+KAO( :, 5, 1,11) = (/&
+ & 7.1900E-02_JPRB,6.5533E-02_JPRB,6.5482E-02_JPRB,6.4060E-02_JPRB,6.1054E-02_JPRB,5.9498E-02_JPRB,&
+ & 6.4850E-02_JPRB,7.0769E-02_JPRB,8.8897E-02_JPRB/)  
+KAO( :, 1, 2,11) = (/&
+ & 3.8292E-02_JPRB,3.3588E-02_JPRB,3.1358E-02_JPRB,2.9906E-02_JPRB,2.8447E-02_JPRB,2.6569E-02_JPRB,&
+ & 2.3944E-02_JPRB,2.4132E-02_JPRB,3.1513E-02_JPRB/)  
+KAO( :, 2, 2,11) = (/&
+ & 4.5994E-02_JPRB,4.0345E-02_JPRB,3.8650E-02_JPRB,3.7178E-02_JPRB,3.6077E-02_JPRB,3.2811E-02_JPRB,&
+ & 3.1189E-02_JPRB,3.2232E-02_JPRB,4.1849E-02_JPRB/)  
+KAO( :, 3, 2,11) = (/&
+ & 5.3984E-02_JPRB,4.7456E-02_JPRB,4.6641E-02_JPRB,4.5568E-02_JPRB,4.3973E-02_JPRB,3.9559E-02_JPRB,&
+ & 3.9776E-02_JPRB,4.1895E-02_JPRB,5.4339E-02_JPRB/)  
+KAO( :, 4, 2,11) = (/&
+ & 6.2153E-02_JPRB,5.5541E-02_JPRB,5.5147E-02_JPRB,5.4419E-02_JPRB,5.2145E-02_JPRB,4.8212E-02_JPRB,&
+ & 5.0049E-02_JPRB,5.4211E-02_JPRB,6.8573E-02_JPRB/)  
+KAO( :, 5, 2,11) = (/&
+ & 7.0498E-02_JPRB,6.4912E-02_JPRB,6.4005E-02_JPRB,6.3675E-02_JPRB,6.0340E-02_JPRB,5.8471E-02_JPRB,&
+ & 6.1765E-02_JPRB,6.8106E-02_JPRB,8.5795E-02_JPRB/)  
+KAO( :, 1, 3,11) = (/&
+ & 3.4351E-02_JPRB,3.0114E-02_JPRB,2.8690E-02_JPRB,2.7033E-02_JPRB,2.5922E-02_JPRB,2.4043E-02_JPRB,&
+ & 2.1412E-02_JPRB,2.0519E-02_JPRB,2.7411E-02_JPRB/)  
+KAO( :, 2, 3,11) = (/&
+ & 4.1940E-02_JPRB,3.6767E-02_JPRB,3.5782E-02_JPRB,3.4187E-02_JPRB,3.3188E-02_JPRB,3.0297E-02_JPRB,&
+ & 2.8550E-02_JPRB,2.8551E-02_JPRB,3.7044E-02_JPRB/)  
+KAO( :, 3, 3,11) = (/&
+ & 5.0028E-02_JPRB,4.4118E-02_JPRB,4.3712E-02_JPRB,4.2513E-02_JPRB,4.0818E-02_JPRB,3.7223E-02_JPRB,&
+ & 3.6892E-02_JPRB,3.7585E-02_JPRB,4.9025E-02_JPRB/)  
+KAO( :, 4, 3,11) = (/&
+ & 5.8382E-02_JPRB,5.2350E-02_JPRB,5.2192E-02_JPRB,5.1365E-02_JPRB,4.8840E-02_JPRB,4.5605E-02_JPRB,&
+ & 4.6688E-02_JPRB,4.8795E-02_JPRB,6.3308E-02_JPRB/)  
+KAO( :, 5, 3,11) = (/&
+ & 6.6855E-02_JPRB,6.1851E-02_JPRB,6.1319E-02_JPRB,6.0440E-02_JPRB,5.7553E-02_JPRB,5.5141E-02_JPRB,&
+ & 5.7507E-02_JPRB,6.1726E-02_JPRB,8.0747E-02_JPRB/)  
+KAO( :, 1, 4,11) = (/&
+ & 2.9914E-02_JPRB,2.6434E-02_JPRB,2.5229E-02_JPRB,2.3960E-02_JPRB,2.2872E-02_JPRB,2.1167E-02_JPRB,&
+ & 1.8618E-02_JPRB,1.7654E-02_JPRB,2.2206E-02_JPRB/)  
+KAO( :, 2, 4,11) = (/&
+ & 3.7311E-02_JPRB,3.2955E-02_JPRB,3.1987E-02_JPRB,3.0816E-02_JPRB,2.9746E-02_JPRB,2.7451E-02_JPRB,&
+ & 2.5496E-02_JPRB,2.4816E-02_JPRB,3.0769E-02_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART7',1,ZHOOK_HANDLE)
+END SUBROUTINE PART7
+
+
+SUBROUTINE PART8
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART8',0,ZHOOK_HANDLE)
+
+
+KAO( :, 3, 4,11) = (/&
+ & 4.5214E-02_JPRB,4.0225E-02_JPRB,3.9665E-02_JPRB,3.8830E-02_JPRB,3.7073E-02_JPRB,3.4317E-02_JPRB,&
+ & 3.3498E-02_JPRB,3.3259E-02_JPRB,4.1672E-02_JPRB/)  
+KAO( :, 4, 4,11) = (/&
+ & 5.3522E-02_JPRB,4.8440E-02_JPRB,4.8077E-02_JPRB,4.7499E-02_JPRB,4.5060E-02_JPRB,4.2198E-02_JPRB,&
+ & 4.2877E-02_JPRB,4.3659E-02_JPRB,5.5415E-02_JPRB/)  
+KAO( :, 5, 4,11) = (/&
+ & 6.2112E-02_JPRB,5.7637E-02_JPRB,5.7355E-02_JPRB,5.6365E-02_JPRB,5.3831E-02_JPRB,5.1483E-02_JPRB,&
+ & 5.3578E-02_JPRB,5.5548E-02_JPRB,7.2397E-02_JPRB/)  
+KAO( :, 1, 5,11) = (/&
+ & 2.5525E-02_JPRB,2.2961E-02_JPRB,2.1743E-02_JPRB,2.1045E-02_JPRB,1.9762E-02_JPRB,1.8313E-02_JPRB,&
+ & 1.6006E-02_JPRB,1.4928E-02_JPRB,1.7243E-02_JPRB/)  
+KAO( :, 2, 5,11) = (/&
+ & 3.2562E-02_JPRB,2.9297E-02_JPRB,2.8118E-02_JPRB,2.7378E-02_JPRB,2.6219E-02_JPRB,2.4429E-02_JPRB,&
+ & 2.2374E-02_JPRB,2.1608E-02_JPRB,2.4409E-02_JPRB/)  
+KAO( :, 3, 5,11) = (/&
+ & 4.0237E-02_JPRB,3.6530E-02_JPRB,3.5529E-02_JPRB,3.4947E-02_JPRB,3.3507E-02_JPRB,3.1205E-02_JPRB,&
+ & 2.9865E-02_JPRB,2.9668E-02_JPRB,3.3965E-02_JPRB/)  
+KAO( :, 4, 5,11) = (/&
+ & 4.8489E-02_JPRB,4.4640E-02_JPRB,4.3882E-02_JPRB,4.3184E-02_JPRB,4.1466E-02_JPRB,3.8716E-02_JPRB,&
+ & 3.8839E-02_JPRB,3.9053E-02_JPRB,4.6193E-02_JPRB/)  
+KAO( :, 5, 5,11) = (/&
+ & 5.7075E-02_JPRB,5.3520E-02_JPRB,5.3151E-02_JPRB,5.1813E-02_JPRB,5.0143E-02_JPRB,4.7699E-02_JPRB,&
+ & 4.9575E-02_JPRB,5.0287E-02_JPRB,6.1844E-02_JPRB/)  
+KAO( :, 1, 6,11) = (/&
+ & 2.1185E-02_JPRB,1.9366E-02_JPRB,1.8345E-02_JPRB,1.7861E-02_JPRB,1.6696E-02_JPRB,1.5286E-02_JPRB,&
+ & 1.3538E-02_JPRB,1.2110E-02_JPRB,1.3050E-02_JPRB/)  
+KAO( :, 2, 6,11) = (/&
+ & 2.7736E-02_JPRB,2.5421E-02_JPRB,2.4344E-02_JPRB,2.3686E-02_JPRB,2.2632E-02_JPRB,2.1167E-02_JPRB,&
+ & 1.8994E-02_JPRB,1.8327E-02_JPRB,1.8722E-02_JPRB/)  
+KAO( :, 3, 6,11) = (/&
+ & 3.5098E-02_JPRB,3.2433E-02_JPRB,3.1346E-02_JPRB,3.0890E-02_JPRB,2.9717E-02_JPRB,2.7709E-02_JPRB,&
+ & 2.5626E-02_JPRB,2.5639E-02_JPRB,2.6411E-02_JPRB/)  
+KAO( :, 4, 6,11) = (/&
+ & 4.3033E-02_JPRB,4.0261E-02_JPRB,3.9466E-02_JPRB,3.8845E-02_JPRB,3.7545E-02_JPRB,3.4640E-02_JPRB,&
+ & 3.3862E-02_JPRB,3.4287E-02_JPRB,3.6956E-02_JPRB/)  
+KAO( :, 5, 6,11) = (/&
+ & 5.1415E-02_JPRB,4.8889E-02_JPRB,4.8524E-02_JPRB,4.7406E-02_JPRB,4.5977E-02_JPRB,4.3021E-02_JPRB,&
+ & 4.4126E-02_JPRB,4.4906E-02_JPRB,5.0432E-02_JPRB/)  
+KAO( :, 1, 7,11) = (/&
+ & 1.7209E-02_JPRB,1.5911E-02_JPRB,1.5312E-02_JPRB,1.4785E-02_JPRB,1.3788E-02_JPRB,1.2644E-02_JPRB,&
+ & 1.1178E-02_JPRB,9.4262E-03_JPRB,9.6250E-03_JPRB/)  
+KAO( :, 2, 7,11) = (/&
+ & 2.3204E-02_JPRB,2.1530E-02_JPRB,2.0850E-02_JPRB,2.0150E-02_JPRB,1.9195E-02_JPRB,1.8013E-02_JPRB,&
+ & 1.5715E-02_JPRB,1.4967E-02_JPRB,1.4283E-02_JPRB/)  
+KAO( :, 3, 7,11) = (/&
+ & 3.0021E-02_JPRB,2.8103E-02_JPRB,2.7384E-02_JPRB,2.6841E-02_JPRB,2.5917E-02_JPRB,2.4071E-02_JPRB,&
+ & 2.1339E-02_JPRB,2.1364E-02_JPRB,2.0562E-02_JPRB/)  
+KAO( :, 4, 7,11) = (/&
+ & 3.7516E-02_JPRB,3.5493E-02_JPRB,3.5022E-02_JPRB,3.4550E-02_JPRB,3.3425E-02_JPRB,3.0562E-02_JPRB,&
+ & 2.8485E-02_JPRB,2.9108E-02_JPRB,2.9186E-02_JPRB/)  
+KAO( :, 5, 7,11) = (/&
+ & 4.5622E-02_JPRB,4.3704E-02_JPRB,4.3641E-02_JPRB,4.3057E-02_JPRB,4.1664E-02_JPRB,3.8186E-02_JPRB,&
+ & 3.7831E-02_JPRB,3.8897E-02_JPRB,4.0505E-02_JPRB/)  
+KAO( :, 1, 8,11) = (/&
+ & 1.3818E-02_JPRB,1.2820E-02_JPRB,1.2555E-02_JPRB,1.2034E-02_JPRB,1.1176E-02_JPRB,1.0359E-02_JPRB,&
+ & 9.1227E-03_JPRB,7.1909E-03_JPRB,7.1385E-03_JPRB/)  
+KAO( :, 2, 8,11) = (/&
+ & 1.9199E-02_JPRB,1.7868E-02_JPRB,1.7585E-02_JPRB,1.6871E-02_JPRB,1.6078E-02_JPRB,1.5016E-02_JPRB,&
+ & 1.2893E-02_JPRB,1.1875E-02_JPRB,1.0811E-02_JPRB/)  
+KAO( :, 3, 8,11) = (/&
+ & 2.5464E-02_JPRB,2.3910E-02_JPRB,2.3566E-02_JPRB,2.3034E-02_JPRB,2.2314E-02_JPRB,2.0472E-02_JPRB,&
+ & 1.7635E-02_JPRB,1.7256E-02_JPRB,1.5992E-02_JPRB/)  
+KAO( :, 4, 8,11) = (/&
+ & 3.2551E-02_JPRB,3.0722E-02_JPRB,3.0704E-02_JPRB,3.0409E-02_JPRB,2.9339E-02_JPRB,2.6650E-02_JPRB,&
+ & 2.3599E-02_JPRB,2.4044E-02_JPRB,2.3236E-02_JPRB/)  
+KAO( :, 5, 8,11) = (/&
+ & 4.0250E-02_JPRB,3.8454E-02_JPRB,3.8842E-02_JPRB,3.8675E-02_JPRB,3.7147E-02_JPRB,3.3647E-02_JPRB,&
+ & 3.1602E-02_JPRB,3.2839E-02_JPRB,3.2581E-02_JPRB/)  
+KAO( :, 1, 9,11) = (/&
+ & 1.1316E-02_JPRB,1.0378E-02_JPRB,1.0058E-02_JPRB,9.5388E-03_JPRB,8.9583E-03_JPRB,8.3215E-03_JPRB,&
+ & 7.2172E-03_JPRB,5.3794E-03_JPRB,1.8355E-02_JPRB/)  
+KAO( :, 2, 9,11) = (/&
+ & 1.6231E-02_JPRB,1.4928E-02_JPRB,1.4498E-02_JPRB,1.3829E-02_JPRB,1.3241E-02_JPRB,1.2313E-02_JPRB,&
+ & 1.0614E-02_JPRB,9.2668E-03_JPRB,1.9770E-02_JPRB/)  
+KAO( :, 3, 9,11) = (/&
+ & 2.2130E-02_JPRB,2.0494E-02_JPRB,1.9903E-02_JPRB,1.9411E-02_JPRB,1.8773E-02_JPRB,1.7143E-02_JPRB,&
+ & 1.4703E-02_JPRB,1.3790E-02_JPRB,2.1581E-02_JPRB/)  
+KAO( :, 4, 9,11) = (/&
+ & 2.8872E-02_JPRB,2.6893E-02_JPRB,2.6410E-02_JPRB,2.6293E-02_JPRB,2.5184E-02_JPRB,2.2875E-02_JPRB,&
+ & 1.9599E-02_JPRB,1.9453E-02_JPRB,2.4207E-02_JPRB/)  
+KAO( :, 5, 9,11) = (/&
+ & 3.6434E-02_JPRB,3.4163E-02_JPRB,3.4039E-02_JPRB,3.4059E-02_JPRB,3.2485E-02_JPRB,2.9558E-02_JPRB,&
+ & 2.6124E-02_JPRB,2.6908E-02_JPRB,2.8766E-02_JPRB/)  
+KAO( :, 1,10,11) = (/&
+ & 9.7526E-03_JPRB,8.8471E-03_JPRB,8.4095E-03_JPRB,7.7992E-03_JPRB,7.2733E-03_JPRB,6.6861E-03_JPRB,&
+ & 5.7804E-03_JPRB,4.0724E-03_JPRB,1.2763E-01_JPRB/)  
+KAO( :, 2,10,11) = (/&
+ & 1.4441E-02_JPRB,1.3149E-02_JPRB,1.2436E-02_JPRB,1.1554E-02_JPRB,1.1049E-02_JPRB,1.0173E-02_JPRB,&
+ & 8.7698E-03_JPRB,7.1450E-03_JPRB,1.2600E-01_JPRB/)  
+KAO( :, 3,10,11) = (/&
+ & 2.0155E-02_JPRB,1.8437E-02_JPRB,1.7426E-02_JPRB,1.6603E-02_JPRB,1.5853E-02_JPRB,1.4561E-02_JPRB,&
+ & 1.2511E-02_JPRB,1.1073E-02_JPRB,1.2528E-01_JPRB/)  
+KAO( :, 4,10,11) = (/&
+ & 2.6846E-02_JPRB,2.4609E-02_JPRB,2.3486E-02_JPRB,2.2854E-02_JPRB,2.1623E-02_JPRB,1.9796E-02_JPRB,&
+ & 1.6929E-02_JPRB,1.5991E-02_JPRB,1.2447E-01_JPRB/)  
+KAO( :, 5,10,11) = (/&
+ & 3.4410E-02_JPRB,3.1744E-02_JPRB,3.0750E-02_JPRB,2.9972E-02_JPRB,2.8397E-02_JPRB,2.5966E-02_JPRB,&
+ & 2.2616E-02_JPRB,2.2449E-02_JPRB,1.2610E-01_JPRB/)  
+KAO( :, 1,11,11) = (/&
+ & 1.0324E-02_JPRB,9.3720E-03_JPRB,8.7252E-03_JPRB,7.9450E-03_JPRB,7.2482E-03_JPRB,6.5147E-03_JPRB,&
+ & 5.6100E-03_JPRB,4.1662E-03_JPRB,3.4329E-01_JPRB/)  
+KAO( :, 2,11,11) = (/&
+ & 1.5204E-02_JPRB,1.3885E-02_JPRB,1.2891E-02_JPRB,1.1869E-02_JPRB,1.0956E-02_JPRB,9.8826E-03_JPRB,&
+ & 8.5703E-03_JPRB,6.8061E-03_JPRB,3.3565E-01_JPRB/)  
+KAO( :, 3,11,11) = (/&
+ & 2.1115E-02_JPRB,1.9367E-02_JPRB,1.8058E-02_JPRB,1.6962E-02_JPRB,1.5612E-02_JPRB,1.4165E-02_JPRB,&
+ & 1.2308E-02_JPRB,1.0528E-02_JPRB,3.2746E-01_JPRB/)  
+KAO( :, 4,11,11) = (/&
+ & 2.8056E-02_JPRB,2.5869E-02_JPRB,2.4495E-02_JPRB,2.3019E-02_JPRB,2.1190E-02_JPRB,1.9340E-02_JPRB,&
+ & 1.6909E-02_JPRB,1.5353E-02_JPRB,3.2105E-01_JPRB/)  
+KAO( :, 5,11,11) = (/&
+ & 3.5830E-02_JPRB,3.3269E-02_JPRB,3.2053E-02_JPRB,3.0019E-02_JPRB,2.7764E-02_JPRB,2.5746E-02_JPRB,&
+ & 2.2821E-02_JPRB,2.2018E-02_JPRB,3.1597E-01_JPRB/)  
+KAO( :, 1,12,11) = (/&
+ & 1.0672E-02_JPRB,9.7549E-03_JPRB,9.0561E-03_JPRB,8.2466E-03_JPRB,7.3613E-03_JPRB,6.3875E-03_JPRB,&
+ & 5.3947E-03_JPRB,4.0883E-03_JPRB,5.8394E-01_JPRB/)  
+KAO( :, 2,12,11) = (/&
+ & 1.5642E-02_JPRB,1.4385E-02_JPRB,1.3307E-02_JPRB,1.2366E-02_JPRB,1.1058E-02_JPRB,9.6585E-03_JPRB,&
+ & 8.3795E-03_JPRB,6.6353E-03_JPRB,5.6769E-01_JPRB/)  
+KAO( :, 3,12,11) = (/&
+ & 2.1675E-02_JPRB,2.0001E-02_JPRB,1.8764E-02_JPRB,1.7488E-02_JPRB,1.5704E-02_JPRB,1.3828E-02_JPRB,&
+ & 1.2045E-02_JPRB,1.0080E-02_JPRB,5.5255E-01_JPRB/)  
+KAO( :, 4,12,11) = (/&
+ & 2.8647E-02_JPRB,2.6665E-02_JPRB,2.5514E-02_JPRB,2.3603E-02_JPRB,2.1257E-02_JPRB,1.8966E-02_JPRB,&
+ & 1.6778E-02_JPRB,1.4837E-02_JPRB,5.4088E-01_JPRB/)  
+KAO( :, 5,12,11) = (/&
+ & 3.6513E-02_JPRB,3.4282E-02_JPRB,3.3140E-02_JPRB,3.0751E-02_JPRB,2.7941E-02_JPRB,2.5430E-02_JPRB,&
+ & 2.2803E-02_JPRB,2.1312E-02_JPRB,5.3155E-01_JPRB/)  
+KAO( :, 1,13,11) = (/&
+ & 1.0760E-02_JPRB,9.9165E-03_JPRB,9.2107E-03_JPRB,8.4431E-03_JPRB,7.5043E-03_JPRB,6.4219E-03_JPRB,&
+ & 5.3322E-03_JPRB,3.9942E-03_JPRB,8.0574E-01_JPRB/)  
+KAO( :, 2,13,11) = (/&
+ & 1.5718E-02_JPRB,1.4579E-02_JPRB,1.3580E-02_JPRB,1.2603E-02_JPRB,1.1240E-02_JPRB,9.7118E-03_JPRB,&
+ & 8.1489E-03_JPRB,6.5540E-03_JPRB,7.8546E-01_JPRB/)  
+KAO( :, 3,13,11) = (/&
+ & 2.1709E-02_JPRB,2.0244E-02_JPRB,1.9196E-02_JPRB,1.7788E-02_JPRB,1.5932E-02_JPRB,1.3847E-02_JPRB,&
+ & 1.1724E-02_JPRB,9.8122E-03_JPRB,7.6747E-01_JPRB/)  
+KAO( :, 4,13,11) = (/&
+ & 2.8590E-02_JPRB,2.6855E-02_JPRB,2.5888E-02_JPRB,2.3974E-02_JPRB,2.1610E-02_JPRB,1.9031E-02_JPRB,&
+ & 1.6481E-02_JPRB,1.4419E-02_JPRB,7.5290E-01_JPRB/)  
+KAO( :, 5,13,11) = (/&
+ & 3.6243E-02_JPRB,3.4524E-02_JPRB,3.3518E-02_JPRB,3.1146E-02_JPRB,2.8589E-02_JPRB,2.5416E-02_JPRB,&
+ & 2.2358E-02_JPRB,2.0400E-02_JPRB,7.4359E-01_JPRB/)  
+KAO( :, 1, 1,12) = (/&
+ & 5.6231E-02_JPRB,4.9245E-02_JPRB,4.2437E-02_JPRB,3.9377E-02_JPRB,3.6183E-02_JPRB,3.2140E-02_JPRB,&
+ & 3.2423E-02_JPRB,3.1523E-02_JPRB,4.6750E-02_JPRB/)  
+KAO( :, 2, 1,12) = (/&
+ & 6.6148E-02_JPRB,5.7978E-02_JPRB,5.1041E-02_JPRB,4.8104E-02_JPRB,4.3912E-02_JPRB,4.1677E-02_JPRB,&
+ & 4.3817E-02_JPRB,4.4437E-02_JPRB,6.2584E-02_JPRB/)  
+KAO( :, 3, 1,12) = (/&
+ & 7.6244E-02_JPRB,6.6854E-02_JPRB,6.1488E-02_JPRB,5.7173E-02_JPRB,5.2540E-02_JPRB,5.2875E-02_JPRB,&
+ & 5.7103E-02_JPRB,5.8708E-02_JPRB,8.0763E-02_JPRB/)  
+KAO( :, 4, 1,12) = (/&
+ & 8.6310E-02_JPRB,7.5728E-02_JPRB,7.2130E-02_JPRB,6.6817E-02_JPRB,6.2530E-02_JPRB,6.5257E-02_JPRB,&
+ & 7.2354E-02_JPRB,7.4823E-02_JPRB,1.0291E-01_JPRB/)  
+KAO( :, 5, 1,12) = (/&
+ & 9.6172E-02_JPRB,8.4532E-02_JPRB,8.2586E-02_JPRB,7.6624E-02_JPRB,7.4096E-02_JPRB,7.9889E-02_JPRB,&
+ & 9.0215E-02_JPRB,9.5892E-02_JPRB,1.2765E-01_JPRB/)  
+KAO( :, 1, 2,12) = (/&
+ & 5.4471E-02_JPRB,4.7727E-02_JPRB,4.1337E-02_JPRB,3.9056E-02_JPRB,3.5201E-02_JPRB,3.1688E-02_JPRB,&
+ & 3.1483E-02_JPRB,3.1390E-02_JPRB,4.4121E-02_JPRB/)  
+KAO( :, 2, 2,12) = (/&
+ & 6.4761E-02_JPRB,5.6767E-02_JPRB,5.0472E-02_JPRB,4.7843E-02_JPRB,4.3316E-02_JPRB,4.1425E-02_JPRB,&
+ & 4.2288E-02_JPRB,4.3887E-02_JPRB,5.9020E-02_JPRB/)  
+KAO( :, 3, 2,12) = (/&
+ & 7.5278E-02_JPRB,6.6006E-02_JPRB,6.0892E-02_JPRB,5.7036E-02_JPRB,5.2510E-02_JPRB,5.2589E-02_JPRB,&
+ & 5.4973E-02_JPRB,5.8082E-02_JPRB,7.6747E-02_JPRB/)  
+KAO( :, 4, 2,12) = (/&
+ & 8.5814E-02_JPRB,7.5272E-02_JPRB,7.1653E-02_JPRB,6.6752E-02_JPRB,6.2771E-02_JPRB,6.5169E-02_JPRB,&
+ & 7.0350E-02_JPRB,7.4345E-02_JPRB,9.8748E-02_JPRB/)  
+KAO( :, 5, 2,12) = (/&
+ & 9.6214E-02_JPRB,8.4711E-02_JPRB,8.2534E-02_JPRB,7.6688E-02_JPRB,7.5320E-02_JPRB,7.9513E-02_JPRB,&
+ & 8.8443E-02_JPRB,9.3326E-02_JPRB,1.2393E-01_JPRB/)  
+KAO( :, 1, 3,12) = (/&
+ & 5.0240E-02_JPRB,4.4018E-02_JPRB,3.8537E-02_JPRB,3.6190E-02_JPRB,3.2727E-02_JPRB,2.9265E-02_JPRB,&
+ & 2.8718E-02_JPRB,2.8539E-02_JPRB,3.8545E-02_JPRB/)  
+KAO( :, 2, 3,12) = (/&
+ & 6.0700E-02_JPRB,5.3194E-02_JPRB,4.7696E-02_JPRB,4.4849E-02_JPRB,4.0923E-02_JPRB,3.8400E-02_JPRB,&
+ & 3.8699E-02_JPRB,3.9635E-02_JPRB,5.2691E-02_JPRB/)  
+KAO( :, 3, 3,12) = (/&
+ & 7.1446E-02_JPRB,6.2599E-02_JPRB,5.7763E-02_JPRB,5.4243E-02_JPRB,5.0207E-02_JPRB,4.9187E-02_JPRB,&
+ & 5.0052E-02_JPRB,5.3471E-02_JPRB,6.9258E-02_JPRB/)  
+KAO( :, 4, 3,12) = (/&
+ & 8.2289E-02_JPRB,7.2095E-02_JPRB,6.8416E-02_JPRB,6.4344E-02_JPRB,6.0447E-02_JPRB,6.1241E-02_JPRB,&
+ & 6.3891E-02_JPRB,6.9264E-02_JPRB,8.9560E-02_JPRB/)  
+KAO( :, 5, 3,12) = (/&
+ & 9.3052E-02_JPRB,8.1807E-02_JPRB,7.9129E-02_JPRB,7.4686E-02_JPRB,7.2461E-02_JPRB,7.5879E-02_JPRB,&
+ & 8.1262E-02_JPRB,8.8197E-02_JPRB,1.1309E-01_JPRB/)  
+KAO( :, 1, 4,12) = (/&
+ & 4.5028E-02_JPRB,3.9435E-02_JPRB,3.5334E-02_JPRB,3.2580E-02_JPRB,2.9727E-02_JPRB,2.6383E-02_JPRB,&
+ & 2.5279E-02_JPRB,2.4249E-02_JPRB,3.2836E-02_JPRB/)  
+KAO( :, 2, 4,12) = (/&
+ & 5.5340E-02_JPRB,4.8463E-02_JPRB,4.4234E-02_JPRB,4.0965E-02_JPRB,3.7511E-02_JPRB,3.4709E-02_JPRB,&
+ & 3.4617E-02_JPRB,3.4578E-02_JPRB,4.5997E-02_JPRB/)  
+KAO( :, 3, 4,12) = (/&
+ & 6.6183E-02_JPRB,5.7963E-02_JPRB,5.3924E-02_JPRB,5.0425E-02_JPRB,4.6576E-02_JPRB,4.4933E-02_JPRB,&
+ & 4.5427E-02_JPRB,4.7054E-02_JPRB,6.1726E-02_JPRB/)  
+KAO( :, 4, 4,12) = (/&
+ & 7.7283E-02_JPRB,6.7685E-02_JPRB,6.4408E-02_JPRB,6.0620E-02_JPRB,5.6689E-02_JPRB,5.6675E-02_JPRB,&
+ & 5.7994E-02_JPRB,6.1679E-02_JPRB,8.0866E-02_JPRB/)  
+KAO( :, 5, 4,12) = (/&
+ & 8.8418E-02_JPRB,7.8061E-02_JPRB,7.5140E-02_JPRB,7.1155E-02_JPRB,6.8119E-02_JPRB,7.0861E-02_JPRB,&
+ & 7.3683E-02_JPRB,7.9503E-02_JPRB,1.0285E-01_JPRB/)  
+KAO( :, 1, 5,12) = (/&
+ & 3.9662E-02_JPRB,3.4731E-02_JPRB,3.1644E-02_JPRB,2.8938E-02_JPRB,2.6745E-02_JPRB,2.3268E-02_JPRB,&
+ & 2.1825E-02_JPRB,2.0476E-02_JPRB,2.7392E-02_JPRB/)  
+KAO( :, 2, 5,12) = (/&
+ & 4.9795E-02_JPRB,4.3597E-02_JPRB,4.0424E-02_JPRB,3.7076E-02_JPRB,3.4194E-02_JPRB,3.1021E-02_JPRB,&
+ & 3.0623E-02_JPRB,2.9562E-02_JPRB,3.9492E-02_JPRB/)  
+KAO( :, 3, 5,12) = (/&
+ & 6.0584E-02_JPRB,5.3042E-02_JPRB,4.9894E-02_JPRB,4.6289E-02_JPRB,4.2817E-02_JPRB,4.0884E-02_JPRB,&
+ & 4.1181E-02_JPRB,4.1314E-02_JPRB,5.4083E-02_JPRB/)  
+KAO( :, 4, 5,12) = (/&
+ & 7.1810E-02_JPRB,6.2970E-02_JPRB,6.0288E-02_JPRB,5.6611E-02_JPRB,5.2417E-02_JPRB,5.2364E-02_JPRB,&
+ & 5.3447E-02_JPRB,5.4733E-02_JPRB,7.1895E-02_JPRB/)  
+KAO( :, 5, 5,12) = (/&
+ & 8.3191E-02_JPRB,7.3693E-02_JPRB,7.1136E-02_JPRB,6.7175E-02_JPRB,6.3303E-02_JPRB,6.5794E-02_JPRB,&
+ & 6.8047E-02_JPRB,7.1167E-02_JPRB,9.3099E-02_JPRB/)  
+KAO( :, 1, 6,12) = (/&
+ & 3.4073E-02_JPRB,2.9970E-02_JPRB,2.7448E-02_JPRB,2.5187E-02_JPRB,2.3238E-02_JPRB,2.0151E-02_JPRB,&
+ & 1.8356E-02_JPRB,1.7087E-02_JPRB,2.1825E-02_JPRB/)  
+KAO( :, 2, 6,12) = (/&
+ & 4.3805E-02_JPRB,3.8540E-02_JPRB,3.5809E-02_JPRB,3.2989E-02_JPRB,3.0183E-02_JPRB,2.7066E-02_JPRB,&
+ & 2.6460E-02_JPRB,2.5241E-02_JPRB,3.2266E-02_JPRB/)  
+KAO( :, 3, 6,12) = (/&
+ & 5.4408E-02_JPRB,4.7827E-02_JPRB,4.4959E-02_JPRB,4.1832E-02_JPRB,3.8412E-02_JPRB,3.6156E-02_JPRB,&
+ & 3.6616E-02_JPRB,3.5630E-02_JPRB,4.5299E-02_JPRB/)  
+KAO( :, 4, 6,12) = (/&
+ & 6.5566E-02_JPRB,5.7738E-02_JPRB,5.4996E-02_JPRB,5.1938E-02_JPRB,4.7753E-02_JPRB,4.7435E-02_JPRB,&
+ & 4.8559E-02_JPRB,4.8244E-02_JPRB,6.1467E-02_JPRB/)  
+KAO( :, 5, 6,12) = (/&
+ & 7.7055E-02_JPRB,6.8635E-02_JPRB,6.5830E-02_JPRB,6.2404E-02_JPRB,5.8371E-02_JPRB,6.0640E-02_JPRB,&
+ & 6.2553E-02_JPRB,6.3410E-02_JPRB,8.1734E-02_JPRB/)  
+KAO( :, 1, 7,12) = (/&
+ & 2.8703E-02_JPRB,2.5583E-02_JPRB,2.3276E-02_JPRB,2.1697E-02_JPRB,1.9747E-02_JPRB,1.7089E-02_JPRB,&
+ & 1.5072E-02_JPRB,1.3835E-02_JPRB,1.6883E-02_JPRB/)  
+KAO( :, 2, 7,12) = (/&
+ & 3.7935E-02_JPRB,3.3728E-02_JPRB,3.1173E-02_JPRB,2.9047E-02_JPRB,2.6304E-02_JPRB,2.3254E-02_JPRB,&
+ & 2.2495E-02_JPRB,2.1233E-02_JPRB,2.5258E-02_JPRB/)  
+KAO( :, 3, 7,12) = (/&
+ & 4.8109E-02_JPRB,4.2733E-02_JPRB,3.9875E-02_JPRB,3.7411E-02_JPRB,3.4221E-02_JPRB,3.1727E-02_JPRB,&
+ & 3.2013E-02_JPRB,3.0954E-02_JPRB,3.6228E-02_JPRB/)  
+KAO( :, 4, 7,12) = (/&
+ & 5.9015E-02_JPRB,5.2712E-02_JPRB,4.9724E-02_JPRB,4.7098E-02_JPRB,4.3201E-02_JPRB,4.2396E-02_JPRB,&
+ & 4.3420E-02_JPRB,4.2821E-02_JPRB,5.0322E-02_JPRB/)  
+KAO( :, 5, 7,12) = (/&
+ & 7.0562E-02_JPRB,6.3765E-02_JPRB,6.0647E-02_JPRB,5.7324E-02_JPRB,5.3581E-02_JPRB,5.4932E-02_JPRB,&
+ & 5.6750E-02_JPRB,5.6861E-02_JPRB,6.8648E-02_JPRB/)  
+KAO( :, 1, 8,12) = (/&
+ & 2.3797E-02_JPRB,2.1507E-02_JPRB,1.9481E-02_JPRB,1.8328E-02_JPRB,1.6567E-02_JPRB,1.4195E-02_JPRB,&
+ & 1.2226E-02_JPRB,1.1084E-02_JPRB,1.2769E-02_JPRB/)  
+KAO( :, 2, 8,12) = (/&
+ & 3.2290E-02_JPRB,2.9132E-02_JPRB,2.6787E-02_JPRB,2.5154E-02_JPRB,2.2698E-02_JPRB,1.9789E-02_JPRB,&
+ & 1.8738E-02_JPRB,1.7668E-02_JPRB,1.9523E-02_JPRB/)  
+KAO( :, 3, 8,12) = (/&
+ & 4.1971E-02_JPRB,3.7809E-02_JPRB,3.5153E-02_JPRB,3.3039E-02_JPRB,3.0227E-02_JPRB,2.7550E-02_JPRB,&
+ & 2.7403E-02_JPRB,2.6633E-02_JPRB,2.8356E-02_JPRB/)  
+KAO( :, 4, 8,12) = (/&
+ & 5.2643E-02_JPRB,4.7711E-02_JPRB,4.4776E-02_JPRB,4.2382E-02_JPRB,3.8941E-02_JPRB,3.7160E-02_JPRB,&
+ & 3.7962E-02_JPRB,3.7660E-02_JPRB,4.0067E-02_JPRB/)  
+KAO( :, 5, 8,12) = (/&
+ & 6.4120E-02_JPRB,5.8657E-02_JPRB,5.5707E-02_JPRB,5.2735E-02_JPRB,4.8989E-02_JPRB,4.8789E-02_JPRB,&
+ & 5.0472E-02_JPRB,5.0598E-02_JPRB,5.5953E-02_JPRB/)  
+KAO( :, 1, 9,12) = (/&
+ & 1.9250E-02_JPRB,1.7588E-02_JPRB,1.6042E-02_JPRB,1.5146E-02_JPRB,1.3631E-02_JPRB,1.1686E-02_JPRB,&
+ & 9.9858E-03_JPRB,8.6677E-03_JPRB,2.1707E-02_JPRB/)  
+KAO( :, 2, 9,12) = (/&
+ & 2.7012E-02_JPRB,2.4595E-02_JPRB,2.2809E-02_JPRB,2.1369E-02_JPRB,1.9226E-02_JPRB,1.6776E-02_JPRB,&
+ & 1.5292E-02_JPRB,1.4425E-02_JPRB,2.4366E-02_JPRB/)  
+KAO( :, 3, 9,12) = (/&
+ & 3.6057E-02_JPRB,3.2810E-02_JPRB,3.0756E-02_JPRB,2.8820E-02_JPRB,2.6287E-02_JPRB,2.3677E-02_JPRB,&
+ & 2.2692E-02_JPRB,2.2334E-02_JPRB,2.7809E-02_JPRB/)  
+KAO( :, 4, 9,12) = (/&
+ & 4.6276E-02_JPRB,4.2323E-02_JPRB,4.0041E-02_JPRB,3.7778E-02_JPRB,3.4895E-02_JPRB,3.2122E-02_JPRB,&
+ & 3.2057E-02_JPRB,3.2163E-02_JPRB,3.3773E-02_JPRB/)  
+KAO( :, 5, 9,12) = (/&
+ & 5.7287E-02_JPRB,5.2928E-02_JPRB,5.0545E-02_JPRB,4.8124E-02_JPRB,4.4442E-02_JPRB,4.2249E-02_JPRB,&
+ & 4.3334E-02_JPRB,4.4067E-02_JPRB,4.5714E-02_JPRB/)  
+KAO( :, 1,10,12) = (/&
+ & 1.5724E-02_JPRB,1.4480E-02_JPRB,1.3399E-02_JPRB,1.2607E-02_JPRB,1.1371E-02_JPRB,9.8756E-03_JPRB,&
+ & 8.2202E-03_JPRB,7.0920E-03_JPRB,1.5327E-01_JPRB/)  
+KAO( :, 2,10,12) = (/&
+ & 2.2742E-02_JPRB,2.0839E-02_JPRB,1.9648E-02_JPRB,1.8330E-02_JPRB,1.6472E-02_JPRB,1.4615E-02_JPRB,&
+ & 1.2794E-02_JPRB,1.2185E-02_JPRB,1.5107E-01_JPRB/)  
+KAO( :, 3,10,12) = (/&
+ & 3.1111E-02_JPRB,2.8526E-02_JPRB,2.7137E-02_JPRB,2.5313E-02_JPRB,2.3236E-02_JPRB,2.0664E-02_JPRB,&
+ & 1.8952E-02_JPRB,1.8782E-02_JPRB,1.5057E-01_JPRB/)  
+KAO( :, 4,10,12) = (/&
+ & 4.0637E-02_JPRB,3.7549E-02_JPRB,3.5922E-02_JPRB,3.3978E-02_JPRB,3.1652E-02_JPRB,2.8132E-02_JPRB,&
+ & 2.7006E-02_JPRB,2.7319E-02_JPRB,1.5207E-01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART8',1,ZHOOK_HANDLE)
+END SUBROUTINE PART8
+
+
+SUBROUTINE PART9
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART9',0,ZHOOK_HANDLE)
+
+
+KAO( :, 5,10,12) = (/&
+ & 5.1227E-02_JPRB,4.7699E-02_JPRB,4.6069E-02_JPRB,4.4170E-02_JPRB,4.0891E-02_JPRB,3.7225E-02_JPRB,&
+ & 3.7060E-02_JPRB,3.8071E-02_JPRB,1.5409E-01_JPRB/)  
+KAO( :, 1,11,12) = (/&
+ & 1.5555E-02_JPRB,1.4241E-02_JPRB,1.3404E-02_JPRB,1.2541E-02_JPRB,1.1360E-02_JPRB,1.0012E-02_JPRB,&
+ & 8.3342E-03_JPRB,7.3523E-03_JPRB,4.1658E-01_JPRB/)  
+KAO( :, 2,11,12) = (/&
+ & 2.2569E-02_JPRB,2.0619E-02_JPRB,1.9629E-02_JPRB,1.8217E-02_JPRB,1.6713E-02_JPRB,1.4923E-02_JPRB,&
+ & 1.2799E-02_JPRB,1.2337E-02_JPRB,4.0531E-01_JPRB/)  
+KAO( :, 3,11,12) = (/&
+ & 3.1003E-02_JPRB,2.8414E-02_JPRB,2.7101E-02_JPRB,2.5438E-02_JPRB,2.3803E-02_JPRB,2.0993E-02_JPRB,&
+ & 1.8716E-02_JPRB,1.8686E-02_JPRB,3.9474E-01_JPRB/)  
+KAO( :, 4,11,12) = (/&
+ & 4.0722E-02_JPRB,3.7543E-02_JPRB,3.5908E-02_JPRB,3.4570E-02_JPRB,3.2168E-02_JPRB,2.8356E-02_JPRB,&
+ & 2.6227E-02_JPRB,2.6848E-02_JPRB,3.8831E-01_JPRB/)  
+KAO( :, 5,11,12) = (/&
+ & 5.1560E-02_JPRB,4.7783E-02_JPRB,4.6376E-02_JPRB,4.5061E-02_JPRB,4.1670E-02_JPRB,3.7328E-02_JPRB,&
+ & 3.5965E-02_JPRB,3.7251E-02_JPRB,3.8125E-01_JPRB/)  
+KAO( :, 1,12,12) = (/&
+ & 1.5830E-02_JPRB,1.4387E-02_JPRB,1.3516E-02_JPRB,1.2418E-02_JPRB,1.1346E-02_JPRB,1.0079E-02_JPRB,&
+ & 8.3729E-03_JPRB,7.3472E-03_JPRB,7.1942E-01_JPRB/)  
+KAO( :, 2,12,12) = (/&
+ & 2.3055E-02_JPRB,2.0962E-02_JPRB,1.9738E-02_JPRB,1.8144E-02_JPRB,1.6929E-02_JPRB,1.5067E-02_JPRB,&
+ & 1.2702E-02_JPRB,1.1955E-02_JPRB,6.9772E-01_JPRB/)  
+KAO( :, 3,12,12) = (/&
+ & 3.1847E-02_JPRB,2.9081E-02_JPRB,2.7322E-02_JPRB,2.5612E-02_JPRB,2.3940E-02_JPRB,2.1303E-02_JPRB,&
+ & 1.8481E-02_JPRB,1.8181E-02_JPRB,6.7687E-01_JPRB/)  
+KAO( :, 4,12,12) = (/&
+ & 4.1961E-02_JPRB,3.8413E-02_JPRB,3.6388E-02_JPRB,3.4886E-02_JPRB,3.2236E-02_JPRB,2.8808E-02_JPRB,&
+ & 2.5797E-02_JPRB,2.6077E-02_JPRB,6.5603E-01_JPRB/)  
+KAO( :, 5,12,12) = (/&
+ & 5.3319E-02_JPRB,4.9117E-02_JPRB,4.7169E-02_JPRB,4.5236E-02_JPRB,4.1943E-02_JPRB,3.7873E-02_JPRB,&
+ & 3.5355E-02_JPRB,3.6412E-02_JPRB,6.4190E-01_JPRB/)  
+KAO( :, 1,13,12) = (/&
+ & 1.6495E-02_JPRB,1.4909E-02_JPRB,1.3825E-02_JPRB,1.2544E-02_JPRB,1.1340E-02_JPRB,9.9975E-03_JPRB,&
+ & 8.3433E-03_JPRB,7.0546E-03_JPRB,9.9911E-01_JPRB/)  
+KAO( :, 2,13,12) = (/&
+ & 2.4109E-02_JPRB,2.1885E-02_JPRB,2.0210E-02_JPRB,1.8488E-02_JPRB,1.6936E-02_JPRB,1.4953E-02_JPRB,&
+ & 1.2660E-02_JPRB,1.1467E-02_JPRB,9.6984E-01_JPRB/)  
+KAO( :, 3,13,12) = (/&
+ & 3.3220E-02_JPRB,3.0296E-02_JPRB,2.8083E-02_JPRB,2.6185E-02_JPRB,2.3860E-02_JPRB,2.1223E-02_JPRB,&
+ & 1.8346E-02_JPRB,1.7437E-02_JPRB,9.3888E-01_JPRB/)  
+KAO( :, 4,13,12) = (/&
+ & 4.3831E-02_JPRB,4.0158E-02_JPRB,3.7697E-02_JPRB,3.5285E-02_JPRB,3.2116E-02_JPRB,2.8881E-02_JPRB,&
+ & 2.5602E-02_JPRB,2.5164E-02_JPRB,9.0808E-01_JPRB/)  
+KAO( :, 5,13,12) = (/&
+ & 5.5677E-02_JPRB,5.1368E-02_JPRB,4.8923E-02_JPRB,4.5702E-02_JPRB,4.1832E-02_JPRB,3.8470E-02_JPRB,&
+ & 3.5318E-02_JPRB,3.5646E-02_JPRB,8.8465E-01_JPRB/)  
+KAO( :, 1, 1,13) = (/&
+ & 7.2506E-02_JPRB,6.3446E-02_JPRB,5.4408E-02_JPRB,4.7483E-02_JPRB,4.2382E-02_JPRB,4.1239E-02_JPRB,&
+ & 4.3386E-02_JPRB,4.4074E-02_JPRB,6.4271E-02_JPRB/)  
+KAO( :, 2, 1,13) = (/&
+ & 8.4465E-02_JPRB,7.3953E-02_JPRB,6.3427E-02_JPRB,5.6900E-02_JPRB,5.2376E-02_JPRB,5.3648E-02_JPRB,&
+ & 5.8354E-02_JPRB,5.9101E-02_JPRB,8.6583E-02_JPRB/)  
+KAO( :, 3, 1,13) = (/&
+ & 9.6444E-02_JPRB,8.4439E-02_JPRB,7.3063E-02_JPRB,6.7601E-02_JPRB,6.5429E-02_JPRB,6.9474E-02_JPRB,&
+ & 7.7817E-02_JPRB,8.1204E-02_JPRB,1.1413E-01_JPRB/)  
+KAO( :, 4, 1,13) = (/&
+ & 1.0833E-01_JPRB,9.4864E-02_JPRB,8.5278E-02_JPRB,7.9673E-02_JPRB,8.1089E-02_JPRB,9.1367E-02_JPRB,&
+ & 1.0434E-01_JPRB,1.1177E-01_JPRB,1.4904E-01_JPRB/)  
+KAO( :, 5, 1,13) = (/&
+ & 1.1980E-01_JPRB,1.0493E-01_JPRB,9.6406E-02_JPRB,9.4783E-02_JPRB,1.0132E-01_JPRB,1.1971E-01_JPRB,&
+ & 1.3809E-01_JPRB,1.4964E-01_JPRB,1.9375E-01_JPRB/)  
+KAO( :, 1, 2,13) = (/&
+ & 7.1478E-02_JPRB,6.2570E-02_JPRB,5.3664E-02_JPRB,4.6754E-02_JPRB,4.2681E-02_JPRB,4.1156E-02_JPRB,&
+ & 4.2008E-02_JPRB,4.2483E-02_JPRB,6.2959E-02_JPRB/)  
+KAO( :, 2, 2,13) = (/&
+ & 8.4247E-02_JPRB,7.3747E-02_JPRB,6.3249E-02_JPRB,5.6233E-02_JPRB,5.3534E-02_JPRB,5.3727E-02_JPRB,&
+ & 5.7468E-02_JPRB,5.8178E-02_JPRB,8.6328E-02_JPRB/)  
+KAO( :, 3, 2,13) = (/&
+ & 9.6812E-02_JPRB,8.4747E-02_JPRB,7.4116E-02_JPRB,6.7508E-02_JPRB,6.6781E-02_JPRB,6.9983E-02_JPRB,&
+ & 7.6767E-02_JPRB,7.7852E-02_JPRB,1.1485E-01_JPRB/)  
+KAO( :, 4, 2,13) = (/&
+ & 1.0887E-01_JPRB,9.5297E-02_JPRB,8.6108E-02_JPRB,8.0754E-02_JPRB,8.2919E-02_JPRB,8.8967E-02_JPRB,&
+ & 1.0013E-01_JPRB,1.0496E-01_JPRB,1.4738E-01_JPRB/)  
+KAO( :, 5, 2,13) = (/&
+ & 1.2040E-01_JPRB,1.0544E-01_JPRB,9.8262E-02_JPRB,9.7024E-02_JPRB,1.0128E-01_JPRB,1.1389E-01_JPRB,&
+ & 1.3047E-01_JPRB,1.4126E-01_JPRB,1.8810E-01_JPRB/)  
+KAO( :, 1, 3,13) = (/&
+ & 6.7428E-02_JPRB,5.9012E-02_JPRB,5.0600E-02_JPRB,4.4820E-02_JPRB,4.0284E-02_JPRB,3.8905E-02_JPRB,&
+ & 3.8433E-02_JPRB,3.8221E-02_JPRB,5.7695E-02_JPRB/)  
+KAO( :, 2, 3,13) = (/&
+ & 8.0097E-02_JPRB,7.0092E-02_JPRB,6.0231E-02_JPRB,5.4560E-02_JPRB,5.1238E-02_JPRB,5.1427E-02_JPRB,&
+ & 5.2635E-02_JPRB,5.3599E-02_JPRB,7.9873E-02_JPRB/)  
+KAO( :, 3, 3,13) = (/&
+ & 9.2835E-02_JPRB,8.1288E-02_JPRB,7.1303E-02_JPRB,6.5788E-02_JPRB,6.5168E-02_JPRB,6.7196E-02_JPRB,&
+ & 7.1689E-02_JPRB,7.2641E-02_JPRB,1.0771E-01_JPRB/)  
+KAO( :, 4, 3,13) = (/&
+ & 1.0559E-01_JPRB,9.2480E-02_JPRB,8.3299E-02_JPRB,7.8616E-02_JPRB,8.1678E-02_JPRB,8.5882E-02_JPRB,&
+ & 9.4318E-02_JPRB,9.6259E-02_JPRB,1.4043E-01_JPRB/)  
+KAO( :, 5, 3,13) = (/&
+ & 1.1824E-01_JPRB,1.0358E-01_JPRB,9.6455E-02_JPRB,9.5066E-02_JPRB,9.9972E-02_JPRB,1.0747E-01_JPRB,&
+ & 1.2012E-01_JPRB,1.2676E-01_JPRB,1.7816E-01_JPRB/)  
+KAO( :, 1, 4,13) = (/&
+ & 6.1574E-02_JPRB,5.3893E-02_JPRB,4.6221E-02_JPRB,4.1581E-02_JPRB,3.7011E-02_JPRB,3.6135E-02_JPRB,&
+ & 3.5573E-02_JPRB,3.4371E-02_JPRB,5.0320E-02_JPRB/)  
+KAO( :, 2, 4,13) = (/&
+ & 7.4469E-02_JPRB,6.5196E-02_JPRB,5.6073E-02_JPRB,5.1353E-02_JPRB,4.7821E-02_JPRB,4.7971E-02_JPRB,&
+ & 4.8104E-02_JPRB,4.8151E-02_JPRB,7.0598E-02_JPRB/)  
+KAO( :, 3, 4,13) = (/&
+ & 8.7893E-02_JPRB,7.6969E-02_JPRB,6.7380E-02_JPRB,6.2778E-02_JPRB,6.1745E-02_JPRB,6.3327E-02_JPRB,&
+ & 6.5251E-02_JPRB,6.6605E-02_JPRB,9.6688E-02_JPRB/)  
+KAO( :, 4, 4,13) = (/&
+ & 1.0128E-01_JPRB,8.8666E-02_JPRB,7.9558E-02_JPRB,7.6113E-02_JPRB,7.8711E-02_JPRB,8.2067E-02_JPRB,&
+ & 8.7118E-02_JPRB,8.9685E-02_JPRB,1.2734E-01_JPRB/)  
+KAO( :, 5, 4,13) = (/&
+ & 1.1397E-01_JPRB,9.9791E-02_JPRB,9.3095E-02_JPRB,9.2358E-02_JPRB,9.7817E-02_JPRB,1.0283E-01_JPRB,&
+ & 1.1271E-01_JPRB,1.1615E-01_JPRB,1.6394E-01_JPRB/)  
+KAO( :, 1, 5,13) = (/&
+ & 5.5644E-02_JPRB,4.8706E-02_JPRB,4.2042E-02_JPRB,3.7730E-02_JPRB,3.3816E-02_JPRB,3.3296E-02_JPRB,&
+ & 3.2567E-02_JPRB,3.1307E-02_JPRB,4.2852E-02_JPRB/)  
+KAO( :, 2, 5,13) = (/&
+ & 6.8700E-02_JPRB,6.0145E-02_JPRB,5.2078E-02_JPRB,4.7465E-02_JPRB,4.4257E-02_JPRB,4.4542E-02_JPRB,&
+ & 4.3904E-02_JPRB,4.3555E-02_JPRB,6.1397E-02_JPRB/)  
+KAO( :, 3, 5,13) = (/&
+ & 8.2079E-02_JPRB,7.1842E-02_JPRB,6.3336E-02_JPRB,5.8826E-02_JPRB,5.7771E-02_JPRB,5.9150E-02_JPRB,&
+ & 5.9615E-02_JPRB,6.0276E-02_JPRB,8.5213E-02_JPRB/)  
+KAO( :, 4, 5,13) = (/&
+ & 9.5395E-02_JPRB,8.3509E-02_JPRB,7.5491E-02_JPRB,7.2428E-02_JPRB,7.4615E-02_JPRB,7.7323E-02_JPRB,&
+ & 7.9697E-02_JPRB,8.2375E-02_JPRB,1.1408E-01_JPRB/)  
+KAO( :, 5, 5,13) = (/&
+ & 1.0879E-01_JPRB,9.5224E-02_JPRB,8.9008E-02_JPRB,8.9139E-02_JPRB,9.4277E-02_JPRB,9.8162E-02_JPRB,&
+ & 1.0347E-01_JPRB,1.0938E-01_JPRB,1.4850E-01_JPRB/)  
+KAO( :, 1, 6,13) = (/&
+ & 4.9166E-02_JPRB,4.3032E-02_JPRB,3.7697E-02_JPRB,3.3418E-02_JPRB,3.0271E-02_JPRB,2.9707E-02_JPRB,&
+ & 2.8739E-02_JPRB,2.7107E-02_JPRB,3.5180E-02_JPRB/)  
+KAO( :, 2, 6,13) = (/&
+ & 6.1802E-02_JPRB,5.4091E-02_JPRB,4.7585E-02_JPRB,4.2912E-02_JPRB,4.0335E-02_JPRB,4.0310E-02_JPRB,&
+ & 3.9360E-02_JPRB,3.8194E-02_JPRB,5.1590E-02_JPRB/)  
+KAO( :, 3, 6,13) = (/&
+ & 7.4933E-02_JPRB,6.5583E-02_JPRB,5.8743E-02_JPRB,5.3925E-02_JPRB,5.3041E-02_JPRB,5.4106E-02_JPRB,&
+ & 5.3825E-02_JPRB,5.3725E-02_JPRB,7.3865E-02_JPRB/)  
+KAO( :, 4, 6,13) = (/&
+ & 8.8794E-02_JPRB,7.7714E-02_JPRB,7.0892E-02_JPRB,6.7266E-02_JPRB,6.9411E-02_JPRB,7.1602E-02_JPRB,&
+ & 7.2167E-02_JPRB,7.4198E-02_JPRB,1.0072E-01_JPRB/)  
+KAO( :, 5, 6,13) = (/&
+ & 1.0284E-01_JPRB,9.0019E-02_JPRB,8.4346E-02_JPRB,8.3697E-02_JPRB,8.8853E-02_JPRB,9.1618E-02_JPRB,&
+ & 9.4095E-02_JPRB,9.9493E-02_JPRB,1.3200E-01_JPRB/)  
+KAO( :, 1, 7,13) = (/&
+ & 4.2481E-02_JPRB,3.7182E-02_JPRB,3.2941E-02_JPRB,2.9053E-02_JPRB,2.6729E-02_JPRB,2.5857E-02_JPRB,&
+ & 2.4817E-02_JPRB,2.3036E-02_JPRB,2.8513E-02_JPRB/)  
+KAO( :, 2, 7,13) = (/&
+ & 5.4646E-02_JPRB,4.7829E-02_JPRB,4.2493E-02_JPRB,3.8260E-02_JPRB,3.6179E-02_JPRB,3.5843E-02_JPRB,&
+ & 3.4675E-02_JPRB,3.3090E-02_JPRB,4.3061E-02_JPRB/)  
+KAO( :, 3, 7,13) = (/&
+ & 6.7949E-02_JPRB,5.9473E-02_JPRB,5.3629E-02_JPRB,4.8997E-02_JPRB,4.7960E-02_JPRB,4.8517E-02_JPRB,&
+ & 4.7980E-02_JPRB,4.6686E-02_JPRB,6.3225E-02_JPRB/)  
+KAO( :, 4, 7,13) = (/&
+ & 8.2011E-02_JPRB,7.1775E-02_JPRB,6.5638E-02_JPRB,6.1779E-02_JPRB,6.3457E-02_JPRB,6.4989E-02_JPRB,&
+ & 6.5420E-02_JPRB,6.5338E-02_JPRB,8.8114E-02_JPRB/)  
+KAO( :, 5, 7,13) = (/&
+ & 9.6121E-02_JPRB,8.4118E-02_JPRB,7.9080E-02_JPRB,7.7840E-02_JPRB,8.2099E-02_JPRB,8.4733E-02_JPRB,&
+ & 8.6013E-02_JPRB,8.9165E-02_JPRB,1.1782E-01_JPRB/)  
+KAO( :, 1, 8,13) = (/&
+ & 3.6137E-02_JPRB,3.1658E-02_JPRB,2.8232E-02_JPRB,2.4974E-02_JPRB,2.3118E-02_JPRB,2.2088E-02_JPRB,&
+ & 2.1064E-02_JPRB,1.9376E-02_JPRB,2.2745E-02_JPRB/)  
+KAO( :, 2, 8,13) = (/&
+ & 4.8016E-02_JPRB,4.2076E-02_JPRB,3.7504E-02_JPRB,3.3789E-02_JPRB,3.1931E-02_JPRB,3.1218E-02_JPRB,&
+ & 3.0077E-02_JPRB,2.8144E-02_JPRB,3.5232E-02_JPRB/)  
+KAO( :, 3, 8,13) = (/&
+ & 6.1205E-02_JPRB,5.3668E-02_JPRB,4.8373E-02_JPRB,4.4145E-02_JPRB,4.2766E-02_JPRB,4.3001E-02_JPRB,&
+ & 4.2234E-02_JPRB,4.0332E-02_JPRB,5.3276E-02_JPRB/)  
+KAO( :, 4, 8,13) = (/&
+ & 7.5025E-02_JPRB,6.5801E-02_JPRB,6.0176E-02_JPRB,5.6410E-02_JPRB,5.7125E-02_JPRB,5.8703E-02_JPRB,&
+ & 5.8721E-02_JPRB,5.7394E-02_JPRB,7.6141E-02_JPRB/)  
+KAO( :, 5, 8,13) = (/&
+ & 8.9588E-02_JPRB,7.8614E-02_JPRB,7.3265E-02_JPRB,7.1609E-02_JPRB,7.4944E-02_JPRB,7.7845E-02_JPRB,&
+ & 7.8817E-02_JPRB,7.9234E-02_JPRB,1.0406E-01_JPRB/)  
+KAO( :, 1, 9,13) = (/&
+ & 3.0354E-02_JPRB,2.6812E-02_JPRB,2.3806E-02_JPRB,2.1190E-02_JPRB,1.9445E-02_JPRB,1.8240E-02_JPRB,&
+ & 1.7300E-02_JPRB,1.5970E-02_JPRB,2.7469E-02_JPRB/)  
+KAO( :, 2, 9,13) = (/&
+ & 4.1683E-02_JPRB,3.6828E-02_JPRB,3.2679E-02_JPRB,2.9622E-02_JPRB,2.7586E-02_JPRB,2.6377E-02_JPRB,&
+ & 2.5396E-02_JPRB,2.3781E-02_JPRB,3.1985E-02_JPRB/)  
+KAO( :, 3, 9,13) = (/&
+ & 5.4431E-02_JPRB,4.8107E-02_JPRB,4.3192E-02_JPRB,3.9529E-02_JPRB,3.7624E-02_JPRB,3.7195E-02_JPRB,&
+ & 3.6607E-02_JPRB,3.4524E-02_JPRB,4.4340E-02_JPRB/)  
+KAO( :, 4, 9,13) = (/&
+ & 6.8321E-02_JPRB,6.0391E-02_JPRB,5.4610E-02_JPRB,5.1211E-02_JPRB,5.0615E-02_JPRB,5.1938E-02_JPRB,&
+ & 5.2206E-02_JPRB,5.0002E-02_JPRB,6.4376E-02_JPRB/)  
+KAO( :, 5, 9,13) = (/&
+ & 8.3382E-02_JPRB,7.3864E-02_JPRB,6.7608E-02_JPRB,6.5416E-02_JPRB,6.7796E-02_JPRB,7.0544E-02_JPRB,&
+ & 7.1581E-02_JPRB,7.0367E-02_JPRB,8.9820E-02_JPRB/)  
+KAO( :, 1,10,13) = (/&
+ & 2.5866E-02_JPRB,2.3096E-02_JPRB,2.0359E-02_JPRB,1.8244E-02_JPRB,1.6555E-02_JPRB,1.5241E-02_JPRB,&
+ & 1.4537E-02_JPRB,1.3197E-02_JPRB,1.8207E-01_JPRB/)  
+KAO( :, 2,10,13) = (/&
+ & 3.6597E-02_JPRB,3.2659E-02_JPRB,2.8899E-02_JPRB,2.6262E-02_JPRB,2.4046E-02_JPRB,2.2449E-02_JPRB,&
+ & 2.1774E-02_JPRB,2.0251E-02_JPRB,1.8269E-01_JPRB/)  
+KAO( :, 3,10,13) = (/&
+ & 4.8990E-02_JPRB,4.3688E-02_JPRB,3.9094E-02_JPRB,3.5827E-02_JPRB,3.3277E-02_JPRB,3.2592E-02_JPRB,&
+ & 3.2234E-02_JPRB,3.0480E-02_JPRB,1.8337E-01_JPRB/)  
+KAO( :, 4,10,13) = (/&
+ & 6.3031E-02_JPRB,5.6150E-02_JPRB,5.0614E-02_JPRB,4.7098E-02_JPRB,4.5295E-02_JPRB,4.6573E-02_JPRB,&
+ & 4.6974E-02_JPRB,4.5107E-02_JPRB,1.8526E-01_JPRB/)  
+KAO( :, 5,10,13) = (/&
+ & 7.8337E-02_JPRB,7.0036E-02_JPRB,6.3907E-02_JPRB,6.0875E-02_JPRB,6.1588E-02_JPRB,6.4404E-02_JPRB,&
+ & 6.5574E-02_JPRB,6.4038E-02_JPRB,1.9009E-01_JPRB/)  
+KAO( :, 1,11,13) = (/&
+ & 2.6170E-02_JPRB,2.3547E-02_JPRB,2.0835E-02_JPRB,1.8825E-02_JPRB,1.6889E-02_JPRB,1.5401E-02_JPRB,&
+ & 1.4727E-02_JPRB,1.3614E-02_JPRB,5.0818E-01_JPRB/)  
+KAO( :, 2,11,13) = (/&
+ & 3.7087E-02_JPRB,3.3315E-02_JPRB,2.9858E-02_JPRB,2.7151E-02_JPRB,2.4450E-02_JPRB,2.2833E-02_JPRB,&
+ & 2.2404E-02_JPRB,2.1001E-02_JPRB,5.0103E-01_JPRB/)  
+KAO( :, 3,11,13) = (/&
+ & 4.9963E-02_JPRB,4.4837E-02_JPRB,4.0625E-02_JPRB,3.7044E-02_JPRB,3.4135E-02_JPRB,3.3574E-02_JPRB,&
+ & 3.3602E-02_JPRB,3.2090E-02_JPRB,4.9194E-01_JPRB/)  
+KAO( :, 4,11,13) = (/&
+ & 6.4516E-02_JPRB,5.7977E-02_JPRB,5.3206E-02_JPRB,4.8937E-02_JPRB,4.7272E-02_JPRB,4.8448E-02_JPRB,&
+ & 4.9192E-02_JPRB,4.7870E-02_JPRB,4.8323E-01_JPRB/)  
+KAO( :, 5,11,13) = (/&
+ & 8.0357E-02_JPRB,7.2810E-02_JPRB,6.7423E-02_JPRB,6.3846E-02_JPRB,6.4063E-02_JPRB,6.6805E-02_JPRB,&
+ & 6.8458E-02_JPRB,6.7693E-02_JPRB,4.8224E-01_JPRB/)  
+KAO( :, 1,12,13) = (/&
+ & 2.6382E-02_JPRB,2.3869E-02_JPRB,2.1423E-02_JPRB,1.9530E-02_JPRB,1.7276E-02_JPRB,1.5597E-02_JPRB,&
+ & 1.4852E-02_JPRB,1.3926E-02_JPRB,8.8613E-01_JPRB/)  
+KAO( :, 2,12,13) = (/&
+ & 3.7554E-02_JPRB,3.3911E-02_JPRB,3.0989E-02_JPRB,2.8114E-02_JPRB,2.5051E-02_JPRB,2.3359E-02_JPRB,&
+ & 2.2994E-02_JPRB,2.2005E-02_JPRB,8.7122E-01_JPRB/)  
+KAO( :, 3,12,13) = (/&
+ & 5.0689E-02_JPRB,4.5835E-02_JPRB,4.2372E-02_JPRB,3.8639E-02_JPRB,3.5524E-02_JPRB,3.4470E-02_JPRB,&
+ & 3.4752E-02_JPRB,3.3789E-02_JPRB,8.5297E-01_JPRB/)  
+KAO( :, 4,12,13) = (/&
+ & 6.5611E-02_JPRB,5.9692E-02_JPRB,5.5677E-02_JPRB,5.1555E-02_JPRB,4.9587E-02_JPRB,4.9441E-02_JPRB,&
+ & 5.0436E-02_JPRB,4.9926E-02_JPRB,8.3445E-01_JPRB/)  
+KAO( :, 5,12,13) = (/&
+ & 8.2012E-02_JPRB,7.5239E-02_JPRB,7.1004E-02_JPRB,6.7701E-02_JPRB,6.6707E-02_JPRB,6.7915E-02_JPRB,&
+ & 6.9915E-02_JPRB,7.0294E-02_JPRB,8.1920E-01_JPRB/)  
+KAO( :, 1,13,13) = (/&
+ & 2.6411E-02_JPRB,2.4001E-02_JPRB,2.2003E-02_JPRB,2.0098E-02_JPRB,1.7783E-02_JPRB,1.5910E-02_JPRB,&
+ & 1.4921E-02_JPRB,1.4266E-02_JPRB,1.2499E+00_JPRB/)  
+KAO( :, 2,13,13) = (/&
+ & 3.7728E-02_JPRB,3.4235E-02_JPRB,3.1890E-02_JPRB,2.9069E-02_JPRB,2.6051E-02_JPRB,2.4137E-02_JPRB,&
+ & 2.3431E-02_JPRB,2.2763E-02_JPRB,1.2233E+00_JPRB/)  
+KAO( :, 3,13,13) = (/&
+ & 5.1168E-02_JPRB,4.6582E-02_JPRB,4.3725E-02_JPRB,4.0296E-02_JPRB,3.7356E-02_JPRB,3.5542E-02_JPRB,&
+ & 3.5231E-02_JPRB,3.4850E-02_JPRB,1.1970E+00_JPRB/)  
+KAO( :, 4,13,13) = (/&
+ & 6.6532E-02_JPRB,6.1023E-02_JPRB,5.7678E-02_JPRB,5.4658E-02_JPRB,5.1906E-02_JPRB,5.0202E-02_JPRB,&
+ & 5.0477E-02_JPRB,5.0911E-02_JPRB,1.1702E+00_JPRB/)  
+KAO( :, 5,13,13) = (/&
+ & 8.3713E-02_JPRB,7.7246E-02_JPRB,7.4186E-02_JPRB,7.1956E-02_JPRB,6.9311E-02_JPRB,6.8138E-02_JPRB,&
+ & 6.9472E-02_JPRB,7.1080E-02_JPRB,1.1427E+00_JPRB/)  
+KAO( :, 1, 1,14) = (/&
+ & 8.4406E-02_JPRB,7.3923E-02_JPRB,6.3390E-02_JPRB,5.3666E-02_JPRB,5.2956E-02_JPRB,5.5472E-02_JPRB,&
+ & 6.0634E-02_JPRB,5.8813E-02_JPRB,9.2877E-02_JPRB/)  
+KAO( :, 2, 1,14) = (/&
+ & 9.8373E-02_JPRB,8.6109E-02_JPRB,7.3836E-02_JPRB,6.7549E-02_JPRB,6.9431E-02_JPRB,7.7739E-02_JPRB,&
+ & 8.6438E-02_JPRB,8.5388E-02_JPRB,1.3005E-01_JPRB/)  
+KAO( :, 3, 1,14) = (/&
+ & 1.1220E-01_JPRB,9.8227E-02_JPRB,8.4237E-02_JPRB,8.6127E-02_JPRB,9.3558E-02_JPRB,1.1007E-01_JPRB,&
+ & 1.2298E-01_JPRB,1.2120E-01_JPRB,1.8519E-01_JPRB/)  
+KAO( :, 4, 1,14) = (/&
+ & 1.2589E-01_JPRB,1.1021E-01_JPRB,9.7341E-02_JPRB,1.0805E-01_JPRB,1.2702E-01_JPRB,1.5181E-01_JPRB,&
+ & 1.6898E-01_JPRB,1.6664E-01_JPRB,2.5570E-01_JPRB/)  
+KAO( :, 5, 1,14) = (/&
+ & 1.3898E-01_JPRB,1.2167E-01_JPRB,1.1790E-01_JPRB,1.3538E-01_JPRB,1.6936E-01_JPRB,2.0147E-01_JPRB,&
+ & 2.2468E-01_JPRB,2.1901E-01_JPRB,3.4200E-01_JPRB/)  
+KAO( :, 1, 2,14) = (/&
+ & 8.6965E-02_JPRB,7.6122E-02_JPRB,6.5271E-02_JPRB,5.5929E-02_JPRB,5.5266E-02_JPRB,5.6412E-02_JPRB,&
+ & 6.1162E-02_JPRB,5.9084E-02_JPRB,9.4145E-02_JPRB/)  
+KAO( :, 2, 2,14) = (/&
+ & 1.0214E-01_JPRB,8.9404E-02_JPRB,7.6670E-02_JPRB,7.1026E-02_JPRB,7.1152E-02_JPRB,7.6438E-02_JPRB,&
+ & 8.4319E-02_JPRB,8.3198E-02_JPRB,1.2897E-01_JPRB/)  
+KAO( :, 3, 2,14) = (/&
+ & 1.1758E-01_JPRB,1.0294E-01_JPRB,8.8300E-02_JPRB,9.0301E-02_JPRB,9.3552E-02_JPRB,1.0592E-01_JPRB,&
+ & 1.1887E-01_JPRB,1.2017E-01_JPRB,1.7974E-01_JPRB/)  
+KAO( :, 4, 2,14) = (/&
+ & 1.3321E-01_JPRB,1.1665E-01_JPRB,1.0423E-01_JPRB,1.1370E-01_JPRB,1.2505E-01_JPRB,1.4860E-01_JPRB,&
+ & 1.6715E-01_JPRB,1.6784E-01_JPRB,2.5046E-01_JPRB/)  
+KAO( :, 5, 2,14) = (/&
+ & 1.4865E-01_JPRB,1.3020E-01_JPRB,1.2666E-01_JPRB,1.3953E-01_JPRB,1.6682E-01_JPRB,2.0058E-01_JPRB,&
+ & 2.2553E-01_JPRB,2.2565E-01_JPRB,3.3899E-01_JPRB/)  
+KAO( :, 1, 3,14) = (/&
+ & 8.6079E-02_JPRB,7.5340E-02_JPRB,6.4607E-02_JPRB,5.5456E-02_JPRB,5.5272E-02_JPRB,5.5233E-02_JPRB,&
+ & 5.8267E-02_JPRB,5.6783E-02_JPRB,8.9464E-02_JPRB/)  
+KAO( :, 2, 3,14) = (/&
+ & 1.0304E-01_JPRB,9.0205E-02_JPRB,7.7348E-02_JPRB,7.0519E-02_JPRB,7.0862E-02_JPRB,7.2390E-02_JPRB,&
+ & 7.8791E-02_JPRB,7.7229E-02_JPRB,1.2132E-01_JPRB/)  
+KAO( :, 3, 3,14) = (/&
+ & 1.2050E-01_JPRB,1.0550E-01_JPRB,9.0628E-02_JPRB,8.9686E-02_JPRB,9.0578E-02_JPRB,9.7251E-02_JPRB,&
+ & 1.0832E-01_JPRB,1.0857E-01_JPRB,1.6570E-01_JPRB/)  
+KAO( :, 4, 3,14) = (/&
+ & 1.3798E-01_JPRB,1.2081E-01_JPRB,1.0757E-01_JPRB,1.1366E-01_JPRB,1.1771E-01_JPRB,1.3404E-01_JPRB,&
+ & 1.5114E-01_JPRB,1.5446E-01_JPRB,2.2779E-01_JPRB/)  
+KAO( :, 5, 3,14) = (/&
+ & 1.5527E-01_JPRB,1.3594E-01_JPRB,1.3049E-01_JPRB,1.4065E-01_JPRB,1.5498E-01_JPRB,1.8347E-01_JPRB,&
+ & 2.0928E-01_JPRB,2.1357E-01_JPRB,3.1056E-01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART9',1,ZHOOK_HANDLE)
+END SUBROUTINE PART9
+
+
+SUBROUTINE PART10
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART10',0,ZHOOK_HANDLE)
+
+
+KAO( :, 1, 4,14) = (/&
+ & 8.3658E-02_JPRB,7.3219E-02_JPRB,6.2782E-02_JPRB,5.4421E-02_JPRB,5.4252E-02_JPRB,5.2373E-02_JPRB,&
+ & 5.2872E-02_JPRB,5.3249E-02_JPRB,8.1760E-02_JPRB/)  
+KAO( :, 2, 4,14) = (/&
+ & 1.0179E-01_JPRB,8.9084E-02_JPRB,7.6372E-02_JPRB,6.9322E-02_JPRB,6.9646E-02_JPRB,6.9291E-02_JPRB,&
+ & 7.2799E-02_JPRB,7.2370E-02_JPRB,1.1302E-01_JPRB/)  
+KAO( :, 3, 4,14) = (/&
+ & 1.2055E-01_JPRB,1.0553E-01_JPRB,9.0925E-02_JPRB,8.8158E-02_JPRB,8.8997E-02_JPRB,9.0835E-02_JPRB,&
+ & 9.8776E-02_JPRB,9.8752E-02_JPRB,1.5269E-01_JPRB/)  
+KAO( :, 4, 4,14) = (/&
+ & 1.3976E-01_JPRB,1.2239E-01_JPRB,1.0872E-01_JPRB,1.1120E-01_JPRB,1.1304E-01_JPRB,1.2136E-01_JPRB,&
+ & 1.3545E-01_JPRB,1.3720E-01_JPRB,2.0650E-01_JPRB/)  
+KAO( :, 5, 4,14) = (/&
+ & 1.5964E-01_JPRB,1.3984E-01_JPRB,1.3154E-01_JPRB,1.3870E-01_JPRB,1.4428E-01_JPRB,1.6405E-01_JPRB,&
+ & 1.8578E-01_JPRB,1.9371E-01_JPRB,2.7910E-01_JPRB/)  
+KAO( :, 1, 5,14) = (/&
+ & 7.9613E-02_JPRB,6.9667E-02_JPRB,5.9735E-02_JPRB,5.2890E-02_JPRB,5.1672E-02_JPRB,4.9631E-02_JPRB,&
+ & 4.7983E-02_JPRB,4.7891E-02_JPRB,7.3721E-02_JPRB/)  
+KAO( :, 2, 5,14) = (/&
+ & 9.8444E-02_JPRB,8.6165E-02_JPRB,7.3879E-02_JPRB,6.8004E-02_JPRB,6.7906E-02_JPRB,6.5760E-02_JPRB,&
+ & 6.6820E-02_JPRB,6.7095E-02_JPRB,1.0263E-01_JPRB/)  
+KAO( :, 3, 5,14) = (/&
+ & 1.1874E-01_JPRB,1.0393E-01_JPRB,8.9653E-02_JPRB,8.6769E-02_JPRB,8.7048E-02_JPRB,8.6781E-02_JPRB,&
+ & 9.1705E-02_JPRB,9.1503E-02_JPRB,1.4159E-01_JPRB/)  
+KAO( :, 4, 5,14) = (/&
+ & 1.4009E-01_JPRB,1.2266E-01_JPRB,1.0834E-01_JPRB,1.0954E-01_JPRB,1.1083E-01_JPRB,1.1372E-01_JPRB,&
+ & 1.2361E-01_JPRB,1.2496E-01_JPRB,1.9192E-01_JPRB/)  
+KAO( :, 5, 5,14) = (/&
+ & 1.6191E-01_JPRB,1.4179E-01_JPRB,1.3132E-01_JPRB,1.3664E-01_JPRB,1.3962E-01_JPRB,1.5009E-01_JPRB,&
+ & 1.6802E-01_JPRB,1.7246E-01_JPRB,2.5602E-01_JPRB/)  
+KAO( :, 1, 6,14) = (/&
+ & 7.3321E-02_JPRB,6.4173E-02_JPRB,5.5115E-02_JPRB,5.0047E-02_JPRB,4.8003E-02_JPRB,4.5729E-02_JPRB,&
+ & 4.3413E-02_JPRB,4.2157E-02_JPRB,6.5110E-02_JPRB/)  
+KAO( :, 2, 6,14) = (/&
+ & 9.2952E-02_JPRB,8.1355E-02_JPRB,6.9976E-02_JPRB,6.5257E-02_JPRB,6.4561E-02_JPRB,6.2014E-02_JPRB,&
+ & 6.0594E-02_JPRB,6.0655E-02_JPRB,9.1731E-02_JPRB/)  
+KAO( :, 3, 6,14) = (/&
+ & 1.1439E-01_JPRB,1.0014E-01_JPRB,8.6575E-02_JPRB,8.3912E-02_JPRB,8.3786E-02_JPRB,8.2279E-02_JPRB,&
+ & 8.3550E-02_JPRB,8.4201E-02_JPRB,1.2740E-01_JPRB/)  
+KAO( :, 4, 6,14) = (/&
+ & 1.3703E-01_JPRB,1.1997E-01_JPRB,1.0601E-01_JPRB,1.0652E-01_JPRB,1.0715E-01_JPRB,1.0792E-01_JPRB,&
+ & 1.1407E-01_JPRB,1.1447E-01_JPRB,1.7570E-01_JPRB/)  
+KAO( :, 5, 6,14) = (/&
+ & 1.6047E-01_JPRB,1.4048E-01_JPRB,1.2948E-01_JPRB,1.3382E-01_JPRB,1.3571E-01_JPRB,1.4072E-01_JPRB,&
+ & 1.5346E-01_JPRB,1.5557E-01_JPRB,2.3674E-01_JPRB/)  
+KAO( :, 1, 7,14) = (/&
+ & 6.6096E-02_JPRB,5.7840E-02_JPRB,5.0291E-02_JPRB,4.6255E-02_JPRB,4.3749E-02_JPRB,4.1346E-02_JPRB,&
+ & 3.9237E-02_JPRB,3.7187E-02_JPRB,5.6581E-02_JPRB/)  
+KAO( :, 2, 7,14) = (/&
+ & 8.5997E-02_JPRB,7.5272E-02_JPRB,6.5564E-02_JPRB,6.1464E-02_JPRB,6.0084E-02_JPRB,5.7566E-02_JPRB,&
+ & 5.5305E-02_JPRB,5.4415E-02_JPRB,8.1052E-02_JPRB/)  
+KAO( :, 3, 7,14) = (/&
+ & 1.0792E-01_JPRB,9.4463E-02_JPRB,8.2746E-02_JPRB,8.0231E-02_JPRB,7.9656E-02_JPRB,7.7519E-02_JPRB,&
+ & 7.6243E-02_JPRB,7.6636E-02_JPRB,1.1376E-01_JPRB/)  
+KAO( :, 4, 7,14) = (/&
+ & 1.3147E-01_JPRB,1.1508E-01_JPRB,1.0289E-01_JPRB,1.0281E-01_JPRB,1.0321E-01_JPRB,1.0267E-01_JPRB,&
+ & 1.0428E-01_JPRB,1.0618E-01_JPRB,1.5831E-01_JPRB/)  
+KAO( :, 5, 7,14) = (/&
+ & 1.5658E-01_JPRB,1.3709E-01_JPRB,1.2648E-01_JPRB,1.2964E-01_JPRB,1.3186E-01_JPRB,1.3458E-01_JPRB,&
+ & 1.4246E-01_JPRB,1.4352E-01_JPRB,2.1656E-01_JPRB/)  
+KAO( :, 1, 8,14) = (/&
+ & 5.8400E-02_JPRB,5.1103E-02_JPRB,4.5168E-02_JPRB,4.1948E-02_JPRB,3.9253E-02_JPRB,3.7020E-02_JPRB,&
+ & 3.5370E-02_JPRB,3.2290E-02_JPRB,4.8663E-02_JPRB/)  
+KAO( :, 2, 8,14) = (/&
+ & 7.8005E-02_JPRB,6.8268E-02_JPRB,6.0453E-02_JPRB,5.7096E-02_JPRB,5.4905E-02_JPRB,5.3117E-02_JPRB,&
+ & 5.0732E-02_JPRB,4.8891E-02_JPRB,7.1101E-02_JPRB/)  
+KAO( :, 3, 8,14) = (/&
+ & 9.9991E-02_JPRB,8.7516E-02_JPRB,7.8019E-02_JPRB,7.5868E-02_JPRB,7.4621E-02_JPRB,7.2463E-02_JPRB,&
+ & 7.0304E-02_JPRB,6.9569E-02_JPRB,1.0104E-01_JPRB/)  
+KAO( :, 4, 8,14) = (/&
+ & 1.2410E-01_JPRB,1.0864E-01_JPRB,9.8489E-02_JPRB,9.8564E-02_JPRB,9.8094E-02_JPRB,9.6833E-02_JPRB,&
+ & 9.6022E-02_JPRB,9.6830E-02_JPRB,1.4193E-01_JPRB/)  
+KAO( :, 5, 8,14) = (/&
+ & 1.4968E-01_JPRB,1.3103E-01_JPRB,1.2227E-01_JPRB,1.2491E-01_JPRB,1.2710E-01_JPRB,1.2811E-01_JPRB,&
+ & 1.3093E-01_JPRB,1.3351E-01_JPRB,1.9610E-01_JPRB/)  
+KAO( :, 1, 9,14) = (/&
+ & 5.0397E-02_JPRB,4.4093E-02_JPRB,3.9683E-02_JPRB,3.6946E-02_JPRB,3.4574E-02_JPRB,3.2784E-02_JPRB,&
+ & 3.1190E-02_JPRB,2.7785E-02_JPRB,4.2938E-02_JPRB/)  
+KAO( :, 2, 9,14) = (/&
+ & 6.9192E-02_JPRB,6.0558E-02_JPRB,5.4594E-02_JPRB,5.1616E-02_JPRB,4.9513E-02_JPRB,4.8432E-02_JPRB,&
+ & 4.6308E-02_JPRB,4.3232E-02_JPRB,6.1150E-02_JPRB/)  
+KAO( :, 3, 9,14) = (/&
+ & 9.0684E-02_JPRB,7.9364E-02_JPRB,7.1928E-02_JPRB,7.0062E-02_JPRB,6.8840E-02_JPRB,6.7293E-02_JPRB,&
+ & 6.5005E-02_JPRB,6.2608E-02_JPRB,8.8443E-02_JPRB/)  
+KAO( :, 4, 9,14) = (/&
+ & 1.1460E-01_JPRB,1.0028E-01_JPRB,9.2569E-02_JPRB,9.2695E-02_JPRB,9.1960E-02_JPRB,9.0808E-02_JPRB,&
+ & 8.8903E-02_JPRB,8.7875E-02_JPRB,1.2618E-01_JPRB/)  
+KAO( :, 5, 9,14) = (/&
+ & 1.4029E-01_JPRB,1.2278E-01_JPRB,1.1658E-01_JPRB,1.1927E-01_JPRB,1.2033E-01_JPRB,1.2086E-01_JPRB,&
+ & 1.2101E-01_JPRB,1.2214E-01_JPRB,1.7683E-01_JPRB/)  
+KAO( :, 1,10,14) = (/&
+ & 4.3717E-02_JPRB,3.8278E-02_JPRB,3.5080E-02_JPRB,3.2701E-02_JPRB,3.0716E-02_JPRB,2.9342E-02_JPRB,&
+ & 2.7684E-02_JPRB,2.4470E-02_JPRB,2.2009E-01_JPRB/)  
+KAO( :, 2,10,14) = (/&
+ & 6.1476E-02_JPRB,5.3866E-02_JPRB,4.9319E-02_JPRB,4.6960E-02_JPRB,4.5259E-02_JPRB,4.4478E-02_JPRB,&
+ & 4.2577E-02_JPRB,3.9251E-02_JPRB,2.1963E-01_JPRB/)  
+KAO( :, 3,10,14) = (/&
+ & 8.2385E-02_JPRB,7.2234E-02_JPRB,6.6445E-02_JPRB,6.4962E-02_JPRB,6.4371E-02_JPRB,6.3180E-02_JPRB,&
+ & 6.0931E-02_JPRB,5.7438E-02_JPRB,2.2242E-01_JPRB/)  
+KAO( :, 4,10,14) = (/&
+ & 1.0599E-01_JPRB,9.3000E-02_JPRB,8.7065E-02_JPRB,8.7339E-02_JPRB,8.7286E-02_JPRB,8.6396E-02_JPRB,&
+ & 8.4334E-02_JPRB,8.1297E-02_JPRB,2.2730E-01_JPRB/)  
+KAO( :, 5,10,14) = (/&
+ & 1.3194E-01_JPRB,1.1580E-01_JPRB,1.1124E-01_JPRB,1.1411E-01_JPRB,1.1533E-01_JPRB,1.1612E-01_JPRB,&
+ & 1.1515E-01_JPRB,1.1414E-01_JPRB,2.3906E-01_JPRB/)  
+KAO( :, 1,11,14) = (/&
+ & 4.4414E-02_JPRB,3.9124E-02_JPRB,3.6276E-02_JPRB,3.4192E-02_JPRB,3.2709E-02_JPRB,3.1757E-02_JPRB,&
+ & 3.0272E-02_JPRB,2.7274E-02_JPRB,6.0923E-01_JPRB/)  
+KAO( :, 2,11,14) = (/&
+ & 6.2792E-02_JPRB,5.5349E-02_JPRB,5.1175E-02_JPRB,4.9442E-02_JPRB,4.8780E-02_JPRB,4.8068E-02_JPRB,&
+ & 4.6106E-02_JPRB,4.2789E-02_JPRB,6.0862E-01_JPRB/)  
+KAO( :, 3,11,14) = (/&
+ & 8.4498E-02_JPRB,7.4522E-02_JPRB,6.9553E-02_JPRB,6.8963E-02_JPRB,6.9106E-02_JPRB,6.8253E-02_JPRB,&
+ & 6.6044E-02_JPRB,6.2338E-02_JPRB,6.0545E-01_JPRB/)  
+KAO( :, 4,11,14) = (/&
+ & 1.0929E-01_JPRB,9.6406E-02_JPRB,9.1543E-02_JPRB,9.3189E-02_JPRB,9.3647E-02_JPRB,9.3574E-02_JPRB,&
+ & 9.1735E-02_JPRB,8.8253E-02_JPRB,5.9922E-01_JPRB/)  
+KAO( :, 5,11,14) = (/&
+ & 1.3686E-01_JPRB,1.2067E-01_JPRB,1.1766E-01_JPRB,1.2167E-01_JPRB,1.2456E-01_JPRB,1.2652E-01_JPRB,&
+ & 1.2561E-01_JPRB,1.2397E-01_JPRB,5.9856E-01_JPRB/)  
+KAO( :, 1,12,14) = (/&
+ & 4.5286E-02_JPRB,4.0194E-02_JPRB,3.7498E-02_JPRB,3.5426E-02_JPRB,3.4720E-02_JPRB,3.4064E-02_JPRB,&
+ & 3.2556E-02_JPRB,2.9605E-02_JPRB,1.0899E+00_JPRB/)  
+KAO( :, 2,12,14) = (/&
+ & 6.4484E-02_JPRB,5.7256E-02_JPRB,5.3321E-02_JPRB,5.1760E-02_JPRB,5.1954E-02_JPRB,5.1386E-02_JPRB,&
+ & 4.9166E-02_JPRB,4.5588E-02_JPRB,1.0909E+00_JPRB/)  
+KAO( :, 3,12,14) = (/&
+ & 8.7239E-02_JPRB,7.7409E-02_JPRB,7.3021E-02_JPRB,7.2641E-02_JPRB,7.3363E-02_JPRB,7.2923E-02_JPRB,&
+ & 7.0510E-02_JPRB,6.6538E-02_JPRB,1.0837E+00_JPRB/)  
+KAO( :, 4,12,14) = (/&
+ & 1.1325E-01_JPRB,1.0044E-01_JPRB,9.6532E-02_JPRB,9.7960E-02_JPRB,9.9715E-02_JPRB,1.0061E-01_JPRB,&
+ & 9.8953E-02_JPRB,9.5070E-02_JPRB,1.0714E+00_JPRB/)  
+KAO( :, 5,12,14) = (/&
+ & 1.4215E-01_JPRB,1.2620E-01_JPRB,1.2476E-01_JPRB,1.2858E-01_JPRB,1.3345E-01_JPRB,1.3645E-01_JPRB,&
+ & 1.3637E-01_JPRB,1.3374E-01_JPRB,1.0563E+00_JPRB/)  
+KAO( :, 1,13,14) = (/&
+ & 4.6570E-02_JPRB,4.1678E-02_JPRB,3.8725E-02_JPRB,3.6717E-02_JPRB,3.6394E-02_JPRB,3.5946E-02_JPRB,&
+ & 3.4376E-02_JPRB,3.1454E-02_JPRB,1.5895E+00_JPRB/)  
+KAO( :, 2,13,14) = (/&
+ & 6.6498E-02_JPRB,5.9462E-02_JPRB,5.5660E-02_JPRB,5.4101E-02_JPRB,5.4467E-02_JPRB,5.3788E-02_JPRB,&
+ & 5.1648E-02_JPRB,4.8046E-02_JPRB,1.5849E+00_JPRB/)  
+KAO( :, 3,13,14) = (/&
+ & 9.0364E-02_JPRB,8.0700E-02_JPRB,7.6577E-02_JPRB,7.6135E-02_JPRB,7.6849E-02_JPRB,7.6753E-02_JPRB,&
+ & 7.4630E-02_JPRB,7.0420E-02_JPRB,1.5698E+00_JPRB/)  
+KAO( :, 4,13,14) = (/&
+ & 1.1790E-01_JPRB,1.0519E-01_JPRB,1.0195E-01_JPRB,1.0248E-01_JPRB,1.0532E-01_JPRB,1.0714E-01_JPRB,&
+ & 1.0603E-01_JPRB,1.0171E-01_JPRB,1.5492E+00_JPRB/)  
+KAO( :, 5,13,14) = (/&
+ & 1.4874E-01_JPRB,1.3321E-01_JPRB,1.3189E-01_JPRB,1.3520E-01_JPRB,1.4175E-01_JPRB,1.4629E-01_JPRB,&
+ & 1.4735E-01_JPRB,1.4395E-01_JPRB,1.5228E+00_JPRB/)  
+KAO( :, 1, 1,15) = (/&
+ & 1.1131E-01_JPRB,9.7434E-02_JPRB,8.3539E-02_JPRB,6.9673E-02_JPRB,6.4542E-02_JPRB,7.4907E-02_JPRB,&
+ & 8.0610E-02_JPRB,7.4592E-02_JPRB,1.2983E-01_JPRB/)  
+KAO( :, 2, 1,15) = (/&
+ & 1.2948E-01_JPRB,1.1334E-01_JPRB,9.7201E-02_JPRB,8.1647E-02_JPRB,9.0214E-02_JPRB,1.0535E-01_JPRB,&
+ & 1.1308E-01_JPRB,1.0399E-01_JPRB,1.8473E-01_JPRB/)  
+KAO( :, 3, 1,15) = (/&
+ & 1.4765E-01_JPRB,1.2925E-01_JPRB,1.1103E-01_JPRB,1.0059E-01_JPRB,1.2467E-01_JPRB,1.4566E-01_JPRB,&
+ & 1.5615E-01_JPRB,1.4358E-01_JPRB,2.5548E-01_JPRB/)  
+KAO( :, 4, 1,15) = (/&
+ & 1.6551E-01_JPRB,1.4490E-01_JPRB,1.2421E-01_JPRB,1.3376E-01_JPRB,1.6988E-01_JPRB,1.9836E-01_JPRB,&
+ & 2.1296E-01_JPRB,1.9754E-01_JPRB,3.4830E-01_JPRB/)  
+KAO( :, 5, 1,15) = (/&
+ & 1.8295E-01_JPRB,1.6015E-01_JPRB,1.4430E-01_JPRB,1.8250E-01_JPRB,2.3252E-01_JPRB,2.7304E-01_JPRB,&
+ & 2.9658E-01_JPRB,2.7983E-01_JPRB,4.7759E-01_JPRB/)  
+KAO( :, 1, 2,15) = (/&
+ & 1.2229E-01_JPRB,1.0698E-01_JPRB,9.1752E-02_JPRB,7.6480E-02_JPRB,6.8179E-02_JPRB,7.6324E-02_JPRB,&
+ & 8.2595E-02_JPRB,7.6957E-02_JPRB,1.3490E-01_JPRB/)  
+KAO( :, 2, 2,15) = (/&
+ & 1.4324E-01_JPRB,1.2538E-01_JPRB,1.0747E-01_JPRB,9.0191E-02_JPRB,9.3013E-02_JPRB,1.0900E-01_JPRB,&
+ & 1.1749E-01_JPRB,1.0918E-01_JPRB,1.9459E-01_JPRB/)  
+KAO( :, 3, 2,15) = (/&
+ & 1.6466E-01_JPRB,1.4413E-01_JPRB,1.2359E-01_JPRB,1.1001E-01_JPRB,1.3054E-01_JPRB,1.5305E-01_JPRB,&
+ & 1.6497E-01_JPRB,1.5263E-01_JPRB,2.7373E-01_JPRB/)  
+KAO( :, 4, 2,15) = (/&
+ & 1.8622E-01_JPRB,1.6296E-01_JPRB,1.3975E-01_JPRB,1.4019E-01_JPRB,1.7799E-01_JPRB,2.0816E-01_JPRB,&
+ & 2.2421E-01_JPRB,2.0784E-01_JPRB,3.7366E-01_JPRB/)  
+KAO( :, 5, 2,15) = (/&
+ & 2.0755E-01_JPRB,1.8167E-01_JPRB,1.5934E-01_JPRB,1.9033E-01_JPRB,2.4247E-01_JPRB,2.8472E-01_JPRB,&
+ & 3.0675E-01_JPRB,2.8798E-01_JPRB,5.0930E-01_JPRB/)  
+KAO( :, 1, 3,15) = (/&
+ & 1.2835E-01_JPRB,1.1233E-01_JPRB,9.6332E-02_JPRB,8.0294E-02_JPRB,6.8892E-02_JPRB,7.2388E-02_JPRB,&
+ & 7.7841E-02_JPRB,7.2996E-02_JPRB,1.3009E-01_JPRB/)  
+KAO( :, 2, 3,15) = (/&
+ & 1.5296E-01_JPRB,1.3385E-01_JPRB,1.1480E-01_JPRB,9.5678E-02_JPRB,9.1260E-02_JPRB,1.0384E-01_JPRB,&
+ & 1.1265E-01_JPRB,1.0600E-01_JPRB,1.8774E-01_JPRB/)  
+KAO( :, 3, 3,15) = (/&
+ & 1.7841E-01_JPRB,1.5614E-01_JPRB,1.3387E-01_JPRB,1.1551E-01_JPRB,1.2609E-01_JPRB,1.4839E-01_JPRB,&
+ & 1.6074E-01_JPRB,1.4978E-01_JPRB,2.6916E-01_JPRB/)  
+KAO( :, 4, 3,15) = (/&
+ & 2.0421E-01_JPRB,1.7872E-01_JPRB,1.5328E-01_JPRB,1.4514E-01_JPRB,1.7532E-01_JPRB,2.0570E-01_JPRB,&
+ & 2.2217E-01_JPRB,2.0725E-01_JPRB,3.7502E-01_JPRB/)  
+KAO( :, 5, 3,15) = (/&
+ & 2.2993E-01_JPRB,2.0124E-01_JPRB,1.7291E-01_JPRB,1.8782E-01_JPRB,2.3935E-01_JPRB,2.8099E-01_JPRB,&
+ & 3.0349E-01_JPRB,2.8229E-01_JPRB,5.1274E-01_JPRB/)  
+KAO( :, 1, 4,15) = (/&
+ & 1.3220E-01_JPRB,1.1572E-01_JPRB,9.9179E-02_JPRB,8.2676E-02_JPRB,6.8587E-02_JPRB,6.9929E-02_JPRB,&
+ & 7.4555E-02_JPRB,6.8313E-02_JPRB,1.2618E-01_JPRB/)  
+KAO( :, 2, 4,15) = (/&
+ & 1.6060E-01_JPRB,1.4053E-01_JPRB,1.2046E-01_JPRB,1.0042E-01_JPRB,9.1232E-02_JPRB,9.6578E-02_JPRB,&
+ & 1.0443E-01_JPRB,9.9068E-02_JPRB,1.7466E-01_JPRB/)  
+KAO( :, 3, 4,15) = (/&
+ & 1.9027E-01_JPRB,1.6651E-01_JPRB,1.4275E-01_JPRB,1.1998E-01_JPRB,1.2056E-01_JPRB,1.3873E-01_JPRB,&
+ & 1.5129E-01_JPRB,1.4272E-01_JPRB,2.5148E-01_JPRB/)  
+KAO( :, 4, 4,15) = (/&
+ & 2.2066E-01_JPRB,1.9311E-01_JPRB,1.6558E-01_JPRB,1.4877E-01_JPRB,1.6676E-01_JPRB,1.9681E-01_JPRB,&
+ & 2.1452E-01_JPRB,2.0223E-01_JPRB,3.5884E-01_JPRB/)  
+KAO( :, 5, 4,15) = (/&
+ & 2.5122E-01_JPRB,2.1983E-01_JPRB,1.8845E-01_JPRB,1.8829E-01_JPRB,2.3159E-01_JPRB,2.7258E-01_JPRB,&
+ & 2.9545E-01_JPRB,2.7646E-01_JPRB,4.9974E-01_JPRB/)  
+KAO( :, 1, 5,15) = (/&
+ & 1.3465E-01_JPRB,1.1783E-01_JPRB,1.0104E-01_JPRB,8.4191E-02_JPRB,7.0181E-02_JPRB,6.7764E-02_JPRB,&
+ & 7.2349E-02_JPRB,6.6738E-02_JPRB,1.2182E-01_JPRB/)  
+KAO( :, 2, 5,15) = (/&
+ & 1.6678E-01_JPRB,1.4597E-01_JPRB,1.2512E-01_JPRB,1.0428E-01_JPRB,9.0356E-02_JPRB,9.3548E-02_JPRB,&
+ & 1.0047E-01_JPRB,9.3395E-02_JPRB,1.6838E-01_JPRB/)  
+KAO( :, 3, 5,15) = (/&
+ & 2.0080E-01_JPRB,1.7573E-01_JPRB,1.5067E-01_JPRB,1.2564E-01_JPRB,1.1939E-01_JPRB,1.2897E-01_JPRB,&
+ & 1.4021E-01_JPRB,1.3389E-01_JPRB,2.3367E-01_JPRB/)  
+KAO( :, 4, 5,15) = (/&
+ & 2.3601E-01_JPRB,2.0651E-01_JPRB,1.7705E-01_JPRB,1.5299E-01_JPRB,1.5971E-01_JPRB,1.8409E-01_JPRB,&
+ & 2.0223E-01_JPRB,1.9297E-01_JPRB,3.3364E-01_JPRB/)  
+KAO( :, 5, 5,15) = (/&
+ & 2.7164E-01_JPRB,2.3767E-01_JPRB,2.0377E-01_JPRB,1.9351E-01_JPRB,2.2099E-01_JPRB,2.6145E-01_JPRB,&
+ & 2.8569E-01_JPRB,2.7068E-01_JPRB,4.7598E-01_JPRB/)  
+KAO( :, 1, 6,15) = (/&
+ & 1.3406E-01_JPRB,1.1731E-01_JPRB,1.0056E-01_JPRB,8.3806E-02_JPRB,7.0762E-02_JPRB,6.6238E-02_JPRB,&
+ & 6.8971E-02_JPRB,6.4722E-02_JPRB,1.1369E-01_JPRB/)  
+KAO( :, 2, 6,15) = (/&
+ & 1.6963E-01_JPRB,1.4845E-01_JPRB,1.2729E-01_JPRB,1.0606E-01_JPRB,9.0231E-02_JPRB,9.0723E-02_JPRB,&
+ & 9.7199E-02_JPRB,9.0437E-02_JPRB,1.6138E-01_JPRB/)  
+KAO( :, 3, 6,15) = (/&
+ & 2.0786E-01_JPRB,1.8191E-01_JPRB,1.5592E-01_JPRB,1.2995E-01_JPRB,1.1861E-01_JPRB,1.2279E-01_JPRB,&
+ & 1.3287E-01_JPRB,1.2524E-01_JPRB,2.2069E-01_JPRB/)  
+KAO( :, 4, 6,15) = (/&
+ & 2.4779E-01_JPRB,2.1681E-01_JPRB,1.8585E-01_JPRB,1.5823E-01_JPRB,1.5558E-01_JPRB,1.7012E-01_JPRB,&
+ & 1.8594E-01_JPRB,1.7956E-01_JPRB,3.0607E-01_JPRB/)  
+KAO( :, 5, 6,15) = (/&
+ & 2.8850E-01_JPRB,2.5250E-01_JPRB,2.1644E-01_JPRB,1.9593E-01_JPRB,2.0861E-01_JPRB,2.4203E-01_JPRB,&
+ & 2.6660E-01_JPRB,2.5670E-01_JPRB,4.3563E-01_JPRB/)  
+KAO( :, 1, 7,15) = (/&
+ & 1.3101E-01_JPRB,1.1464E-01_JPRB,9.8272E-02_JPRB,8.1907E-02_JPRB,7.0350E-02_JPRB,6.5243E-02_JPRB,&
+ & 6.4994E-02_JPRB,6.2397E-02_JPRB,1.0427E-01_JPRB/)  
+KAO( :, 2, 7,15) = (/&
+ & 1.6960E-01_JPRB,1.4841E-01_JPRB,1.2720E-01_JPRB,1.0602E-01_JPRB,9.1007E-02_JPRB,8.8046E-02_JPRB,&
+ & 9.1985E-02_JPRB,8.6734E-02_JPRB,1.5008E-01_JPRB/)  
+KAO( :, 3, 7,15) = (/&
+ & 2.1159E-01_JPRB,1.8512E-01_JPRB,1.5869E-01_JPRB,1.3227E-01_JPRB,1.1799E-01_JPRB,1.2016E-01_JPRB,&
+ & 1.2848E-01_JPRB,1.2123E-01_JPRB,2.0928E-01_JPRB/)  
+KAO( :, 4, 7,15) = (/&
+ & 2.5591E-01_JPRB,2.2393E-01_JPRB,1.9196E-01_JPRB,1.6246E-01_JPRB,1.5474E-01_JPRB,1.6150E-01_JPRB,&
+ & 1.7579E-01_JPRB,1.6710E-01_JPRB,2.8812E-01_JPRB/)  
+KAO( :, 5, 7,15) = (/&
+ & 3.0213E-01_JPRB,2.6429E-01_JPRB,2.2656E-01_JPRB,2.0075E-01_JPRB,2.0206E-01_JPRB,2.2299E-01_JPRB,&
+ & 2.4482E-01_JPRB,2.3852E-01_JPRB,4.0014E-01_JPRB/)  
+KAO( :, 1, 8,15) = (/&
+ & 1.2571E-01_JPRB,1.1002E-01_JPRB,9.4301E-02_JPRB,7.8660E-02_JPRB,6.9028E-02_JPRB,6.3512E-02_JPRB,&
+ & 6.0386E-02_JPRB,5.9283E-02_JPRB,9.4594E-02_JPRB/)  
+KAO( :, 2, 8,15) = (/&
+ & 1.6658E-01_JPRB,1.4578E-01_JPRB,1.2499E-01_JPRB,1.0438E-01_JPRB,9.1618E-02_JPRB,8.5835E-02_JPRB,&
+ & 8.6312E-02_JPRB,8.2954E-02_JPRB,1.3781E-01_JPRB/)  
+KAO( :, 3, 8,15) = (/&
+ & 2.1185E-01_JPRB,1.8540E-01_JPRB,1.5894E-01_JPRB,1.3292E-01_JPRB,1.1859E-01_JPRB,1.1793E-01_JPRB,&
+ & 1.2293E-01_JPRB,1.1767E-01_JPRB,1.9732E-01_JPRB/)  
+KAO( :, 4, 8,15) = (/&
+ & 2.6124E-01_JPRB,2.2860E-01_JPRB,1.9595E-01_JPRB,1.6484E-01_JPRB,1.5535E-01_JPRB,1.5770E-01_JPRB,&
+ & 1.6881E-01_JPRB,1.6159E-01_JPRB,2.7186E-01_JPRB/)  
+KAO( :, 5, 8,15) = (/&
+ & 3.1377E-01_JPRB,2.7455E-01_JPRB,2.3536E-01_JPRB,2.0526E-01_JPRB,2.0139E-01_JPRB,2.1210E-01_JPRB,&
+ & 2.3209E-01_JPRB,2.2418E-01_JPRB,3.7448E-01_JPRB/)  
+KAO( :, 1, 9,15) = (/&
+ & 1.1779E-01_JPRB,1.0307E-01_JPRB,8.8332E-02_JPRB,7.4504E-02_JPRB,6.6446E-02_JPRB,6.0468E-02_JPRB,&
+ & 5.6136E-02_JPRB,5.4947E-02_JPRB,8.6169E-02_JPRB/)  
+KAO( :, 2, 9,15) = (/&
+ & 1.6035E-01_JPRB,1.4031E-01_JPRB,1.2024E-01_JPRB,1.0163E-01_JPRB,9.0617E-02_JPRB,8.2714E-02_JPRB,&
+ & 7.9922E-02_JPRB,7.8110E-02_JPRB,1.2654E-01_JPRB/)  
+KAO( :, 3, 9,15) = (/&
+ & 2.0927E-01_JPRB,1.8312E-01_JPRB,1.5698E-01_JPRB,1.3222E-01_JPRB,1.1873E-01_JPRB,1.1424E-01_JPRB,&
+ & 1.1454E-01_JPRB,1.1174E-01_JPRB,1.8302E-01_JPRB/)  
+KAO( :, 4, 9,15) = (/&
+ & 2.6349E-01_JPRB,2.3054E-01_JPRB,1.9763E-01_JPRB,1.6626E-01_JPRB,1.5598E-01_JPRB,1.5598E-01_JPRB,&
+ & 1.6166E-01_JPRB,1.5736E-01_JPRB,2.5852E-01_JPRB/)  
+KAO( :, 5, 9,15) = (/&
+ & 3.2165E-01_JPRB,2.8148E-01_JPRB,2.4130E-01_JPRB,2.0798E-01_JPRB,2.0349E-01_JPRB,2.0671E-01_JPRB,&
+ & 2.2142E-01_JPRB,2.1528E-01_JPRB,3.5292E-01_JPRB/)  
+KAO( :, 1,10,15) = (/&
+ & 1.1095E-01_JPRB,9.7087E-02_JPRB,8.3232E-02_JPRB,7.1375E-02_JPRB,6.4431E-02_JPRB,5.8222E-02_JPRB,&
+ & 5.3438E-02_JPRB,5.1856E-02_JPRB,2.8234E-01_JPRB/)  
+KAO( :, 2,10,15) = (/&
+ & 1.5568E-01_JPRB,1.3623E-01_JPRB,1.1675E-01_JPRB,9.9778E-02_JPRB,9.0053E-02_JPRB,8.1186E-02_JPRB,&
+ & 7.6199E-02_JPRB,7.4185E-02_JPRB,2.7084E-01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART10',1,ZHOOK_HANDLE)
+END SUBROUTINE PART10
+
+
+SUBROUTINE PART11
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART11',0,ZHOOK_HANDLE)
+
+
+KAO( :, 3,10,15) = (/&
+ & 2.0787E-01_JPRB,1.8189E-01_JPRB,1.5590E-01_JPRB,1.3290E-01_JPRB,1.2001E-01_JPRB,1.1270E-01_JPRB,&
+ & 1.0975E-01_JPRB,1.0759E-01_JPRB,2.7158E-01_JPRB/)  
+KAO( :, 4,10,15) = (/&
+ & 2.6636E-01_JPRB,2.3306E-01_JPRB,1.9979E-01_JPRB,1.7021E-01_JPRB,1.5900E-01_JPRB,1.5510E-01_JPRB,&
+ & 1.5611E-01_JPRB,1.5403E-01_JPRB,2.9598E-01_JPRB/)  
+KAO( :, 5,10,15) = (/&
+ & 3.2972E-01_JPRB,2.8850E-01_JPRB,2.4729E-01_JPRB,2.1458E-01_JPRB,2.0828E-01_JPRB,2.0718E-01_JPRB,&
+ & 2.1605E-01_JPRB,2.1269E-01_JPRB,3.5425E-01_JPRB/)  
+KAO( :, 1,11,15) = (/&
+ & 1.2309E-01_JPRB,1.0770E-01_JPRB,9.2318E-02_JPRB,8.0169E-02_JPRB,7.2987E-02_JPRB,6.5556E-02_JPRB,&
+ & 5.9599E-02_JPRB,5.7207E-02_JPRB,7.8086E-01_JPRB/)  
+KAO( :, 2,11,15) = (/&
+ & 1.7300E-01_JPRB,1.5138E-01_JPRB,1.2976E-01_JPRB,1.1252E-01_JPRB,1.0172E-01_JPRB,9.2390E-02_JPRB,&
+ & 8.6481E-02_JPRB,8.3441E-02_JPRB,7.5756E-01_JPRB/)  
+KAO( :, 3,11,15) = (/&
+ & 2.3096E-01_JPRB,2.0210E-01_JPRB,1.7324E-01_JPRB,1.5024E-01_JPRB,1.3705E-01_JPRB,1.2915E-01_JPRB,&
+ & 1.2474E-01_JPRB,1.2191E-01_JPRB,7.4457E-01_JPRB/)  
+KAO( :, 4,11,15) = (/&
+ & 2.9558E-01_JPRB,2.5867E-01_JPRB,2.2168E-01_JPRB,1.9321E-01_JPRB,1.8253E-01_JPRB,1.7759E-01_JPRB,&
+ & 1.7734E-01_JPRB,1.7484E-01_JPRB,7.3821E-01_JPRB/)  
+KAO( :, 5,11,15) = (/&
+ & 3.6617E-01_JPRB,3.2039E-01_JPRB,2.7464E-01_JPRB,2.4544E-01_JPRB,2.3942E-01_JPRB,2.3664E-01_JPRB,&
+ & 2.4480E-01_JPRB,2.4186E-01_JPRB,7.3136E-01_JPRB/)  
+KAO( :, 1,12,15) = (/&
+ & 1.3535E-01_JPRB,1.1843E-01_JPRB,1.0165E-01_JPRB,8.9837E-02_JPRB,8.1690E-02_JPRB,7.3571E-02_JPRB,&
+ & 6.6791E-02_JPRB,6.3661E-02_JPRB,1.3757E+00_JPRB/)  
+KAO( :, 2,12,15) = (/&
+ & 1.8999E-01_JPRB,1.6623E-01_JPRB,1.4287E-01_JPRB,1.2620E-01_JPRB,1.1425E-01_JPRB,1.0484E-01_JPRB,&
+ & 9.8183E-02_JPRB,9.4523E-02_JPRB,1.3459E+00_JPRB/)  
+KAO( :, 3,12,15) = (/&
+ & 2.5368E-01_JPRB,2.2195E-01_JPRB,1.9057E-01_JPRB,1.6840E-01_JPRB,1.5584E-01_JPRB,1.4733E-01_JPRB,&
+ & 1.4186E-01_JPRB,1.3807E-01_JPRB,1.3315E+00_JPRB/)  
+KAO( :, 4,12,15) = (/&
+ & 3.2577E-01_JPRB,2.8506E-01_JPRB,2.4459E-01_JPRB,2.1851E-01_JPRB,2.0824E-01_JPRB,2.0259E-01_JPRB,&
+ & 2.0145E-01_JPRB,1.9850E-01_JPRB,1.3194E+00_JPRB/)  
+KAO( :, 5,12,15) = (/&
+ & 4.0459E-01_JPRB,3.5405E-01_JPRB,3.0385E-01_JPRB,2.7860E-01_JPRB,2.7319E-01_JPRB,2.7033E-01_JPRB,&
+ & 2.7684E-01_JPRB,2.7490E-01_JPRB,1.2999E+00_JPRB/)  
+KAO( :, 1,13,15) = (/&
+ & 1.4666E-01_JPRB,1.2832E-01_JPRB,1.1128E-01_JPRB,9.9675E-02_JPRB,9.0808E-02_JPRB,8.2287E-02_JPRB,&
+ & 7.4732E-02_JPRB,7.0894E-02_JPRB,1.9726E+00_JPRB/)  
+KAO( :, 2,13,15) = (/&
+ & 2.0655E-01_JPRB,1.8072E-01_JPRB,1.5634E-01_JPRB,1.3981E-01_JPRB,1.2800E-01_JPRB,1.1883E-01_JPRB,&
+ & 1.1080E-01_JPRB,1.0633E-01_JPRB,1.9427E+00_JPRB/)  
+KAO( :, 3,13,15) = (/&
+ & 2.7678E-01_JPRB,2.4218E-01_JPRB,2.0938E-01_JPRB,1.8714E-01_JPRB,1.7583E-01_JPRB,1.6736E-01_JPRB,&
+ & 1.6095E-01_JPRB,1.5626E-01_JPRB,1.9257E+00_JPRB/)  
+KAO( :, 4,13,15) = (/&
+ & 3.5575E-01_JPRB,3.1133E-01_JPRB,2.6913E-01_JPRB,2.4484E-01_JPRB,2.3543E-01_JPRB,2.2998E-01_JPRB,&
+ & 2.2795E-01_JPRB,2.2454E-01_JPRB,1.9087E+00_JPRB/)  
+KAO( :, 5,13,15) = (/&
+ & 4.4176E-01_JPRB,3.8657E-01_JPRB,3.3600E-01_JPRB,3.1312E-01_JPRB,3.0900E-01_JPRB,3.0654E-01_JPRB,&
+ & 3.1167E-01_JPRB,3.1059E-01_JPRB,1.8847E+00_JPRB/)  
+KAO( :, 1, 1,16) = (/&
+ & 1.2027E-01_JPRB,1.0526E-01_JPRB,9.0268E-02_JPRB,7.5271E-02_JPRB,6.8242E-02_JPRB,7.9946E-02_JPRB,&
+ & 8.4979E-02_JPRB,7.6217E-02_JPRB,1.4103E-01_JPRB/)  
+KAO( :, 2, 1,16) = (/&
+ & 1.4080E-01_JPRB,1.2324E-01_JPRB,1.0567E-01_JPRB,8.8126E-02_JPRB,9.6089E-02_JPRB,1.1140E-01_JPRB,&
+ & 1.1849E-01_JPRB,1.0627E-01_JPRB,1.9684E-01_JPRB/)  
+KAO( :, 3, 1,16) = (/&
+ & 1.6158E-01_JPRB,1.4144E-01_JPRB,1.1993E-01_JPRB,1.0577E-01_JPRB,1.3446E-01_JPRB,1.5713E-01_JPRB,&
+ & 1.6954E-01_JPRB,1.5459E-01_JPRB,2.8205E-01_JPRB/)  
+KAO( :, 4, 1,16) = (/&
+ & 1.8229E-01_JPRB,1.5953E-01_JPRB,1.3683E-01_JPRB,1.5400E-01_JPRB,1.9491E-01_JPRB,2.2859E-01_JPRB,&
+ & 2.4701E-01_JPRB,2.2397E-01_JPRB,4.1109E-01_JPRB/)  
+KAO( :, 5, 1,16) = (/&
+ & 2.0257E-01_JPRB,1.7732E-01_JPRB,1.5205E-01_JPRB,2.1653E-01_JPRB,2.7743E-01_JPRB,3.2485E-01_JPRB,&
+ & 3.4587E-01_JPRB,3.1685E-01_JPRB,5.7776E-01_JPRB/)  
+KAO( :, 1, 2,16) = (/&
+ & 1.3618E-01_JPRB,1.1918E-01_JPRB,1.0218E-01_JPRB,8.5185E-02_JPRB,7.2061E-02_JPRB,8.3641E-02_JPRB,&
+ & 8.9007E-02_JPRB,8.0776E-02_JPRB,1.5158E-01_JPRB/)  
+KAO( :, 2, 2,16) = (/&
+ & 1.6091E-01_JPRB,1.4083E-01_JPRB,1.2073E-01_JPRB,1.0065E-01_JPRB,1.0215E-01_JPRB,1.1864E-01_JPRB,&
+ & 1.2628E-01_JPRB,1.1335E-01_JPRB,2.1521E-01_JPRB/)  
+KAO( :, 3, 2,16) = (/&
+ & 1.8613E-01_JPRB,1.6291E-01_JPRB,1.3967E-01_JPRB,1.1644E-01_JPRB,1.3974E-01_JPRB,1.6244E-01_JPRB,&
+ & 1.7346E-01_JPRB,1.5531E-01_JPRB,2.9678E-01_JPRB/)  
+KAO( :, 4, 2,16) = (/&
+ & 2.1139E-01_JPRB,1.8501E-01_JPRB,1.5862E-01_JPRB,1.6081E-01_JPRB,2.0532E-01_JPRB,2.4099E-01_JPRB,&
+ & 2.5759E-01_JPRB,2.3243E-01_JPRB,4.4014E-01_JPRB/)  
+KAO( :, 5, 2,16) = (/&
+ & 2.3633E-01_JPRB,2.0681E-01_JPRB,1.7734E-01_JPRB,2.3037E-01_JPRB,2.9357E-01_JPRB,3.4250E-01_JPRB,&
+ & 3.6944E-01_JPRB,3.3497E-01_JPRB,6.2683E-01_JPRB/)  
+KAO( :, 1, 3,16) = (/&
+ & 1.4816E-01_JPRB,1.2967E-01_JPRB,1.1115E-01_JPRB,9.2659E-02_JPRB,7.4159E-02_JPRB,8.0583E-02_JPRB,&
+ & 8.5826E-02_JPRB,7.7925E-02_JPRB,1.4987E-01_JPRB/)  
+KAO( :, 2, 3,16) = (/&
+ & 1.7766E-01_JPRB,1.5547E-01_JPRB,1.3328E-01_JPRB,1.1109E-01_JPRB,1.0104E-01_JPRB,1.1748E-01_JPRB,&
+ & 1.2514E-01_JPRB,1.1367E-01_JPRB,2.1867E-01_JPRB/)  
+KAO( :, 3, 3,16) = (/&
+ & 2.0806E-01_JPRB,1.8208E-01_JPRB,1.5612E-01_JPRB,1.3012E-01_JPRB,1.4100E-01_JPRB,1.6398E-01_JPRB,&
+ & 1.7474E-01_JPRB,1.5873E-01_JPRB,3.0539E-01_JPRB/)  
+KAO( :, 4, 3,16) = (/&
+ & 2.3885E-01_JPRB,2.0905E-01_JPRB,1.7920E-01_JPRB,1.5462E-01_JPRB,1.9704E-01_JPRB,2.3104E-01_JPRB,&
+ & 2.4836E-01_JPRB,2.2742E-01_JPRB,4.3187E-01_JPRB/)  
+KAO( :, 5, 3,16) = (/&
+ & 2.6947E-01_JPRB,2.3583E-01_JPRB,2.0218E-01_JPRB,2.2565E-01_JPRB,2.8814E-01_JPRB,3.3769E-01_JPRB,&
+ & 3.6257E-01_JPRB,3.3019E-01_JPRB,6.3080E-01_JPRB/)  
+KAO( :, 1, 4,16) = (/&
+ & 1.5818E-01_JPRB,1.3843E-01_JPRB,1.1868E-01_JPRB,9.8906E-02_JPRB,7.9147E-02_JPRB,7.4782E-02_JPRB,&
+ & 7.9730E-02_JPRB,7.2448E-02_JPRB,1.4101E-01_JPRB/)  
+KAO( :, 2, 4,16) = (/&
+ & 1.9302E-01_JPRB,1.6890E-01_JPRB,1.4479E-01_JPRB,1.2067E-01_JPRB,9.6946E-02_JPRB,1.1266E-01_JPRB,&
+ & 1.2012E-01_JPRB,1.0916E-01_JPRB,2.1249E-01_JPRB/)  
+KAO( :, 3, 4,16) = (/&
+ & 2.2940E-01_JPRB,2.0076E-01_JPRB,1.7206E-01_JPRB,1.4345E-01_JPRB,1.3883E-01_JPRB,1.6162E-01_JPRB,&
+ & 1.7237E-01_JPRB,1.5669E-01_JPRB,3.0501E-01_JPRB/)  
+KAO( :, 4, 4,16) = (/&
+ & 2.6665E-01_JPRB,2.3335E-01_JPRB,2.0002E-01_JPRB,1.6674E-01_JPRB,1.9115E-01_JPRB,2.2258E-01_JPRB,&
+ & 2.3743E-01_JPRB,2.1581E-01_JPRB,4.2004E-01_JPRB/)  
+KAO( :, 5, 4,16) = (/&
+ & 3.0410E-01_JPRB,2.6615E-01_JPRB,2.2811E-01_JPRB,2.1285E-01_JPRB,2.7372E-01_JPRB,3.2083E-01_JPRB,&
+ & 3.4541E-01_JPRB,3.1599E-01_JPRB,6.0405E-01_JPRB/)  
+KAO( :, 1, 5,16) = (/&
+ & 1.6744E-01_JPRB,1.4653E-01_JPRB,1.2561E-01_JPRB,1.0468E-01_JPRB,8.3763E-02_JPRB,7.6430E-02_JPRB,&
+ & 8.0078E-02_JPRB,7.1821E-02_JPRB,1.3817E-01_JPRB/)  
+KAO( :, 2, 5,16) = (/&
+ & 2.0817E-01_JPRB,1.8217E-01_JPRB,1.5617E-01_JPRB,1.3014E-01_JPRB,1.0413E-01_JPRB,1.0666E-01_JPRB,&
+ & 1.1380E-01_JPRB,1.0350E-01_JPRB,2.0245E-01_JPRB/)  
+KAO( :, 3, 5,16) = (/&
+ & 2.5135E-01_JPRB,2.1998E-01_JPRB,1.8857E-01_JPRB,1.5714E-01_JPRB,1.3525E-01_JPRB,1.5761E-01_JPRB,&
+ & 1.6824E-01_JPRB,1.5302E-01_JPRB,2.9921E-01_JPRB/)  
+KAO( :, 4, 5,16) = (/&
+ & 2.9614E-01_JPRB,2.5913E-01_JPRB,2.2214E-01_JPRB,1.8514E-01_JPRB,1.9095E-01_JPRB,2.2256E-01_JPRB,&
+ & 2.3757E-01_JPRB,2.1609E-01_JPRB,4.2253E-01_JPRB/)  
+KAO( :, 5, 5,16) = (/&
+ & 3.4165E-01_JPRB,2.9890E-01_JPRB,2.5626E-01_JPRB,2.1358E-01_JPRB,2.6276E-01_JPRB,3.0710E-01_JPRB,&
+ & 3.2753E-01_JPRB,2.9875E-01_JPRB,5.8403E-01_JPRB/)  
+KAO( :, 1, 6,16) = (/&
+ & 1.7406E-01_JPRB,1.5231E-01_JPRB,1.3056E-01_JPRB,1.0879E-01_JPRB,8.7033E-02_JPRB,7.9557E-02_JPRB,&
+ & 8.3495E-02_JPRB,7.4970E-02_JPRB,1.4461E-01_JPRB/)  
+KAO( :, 2, 6,16) = (/&
+ & 2.2115E-01_JPRB,1.9353E-01_JPRB,1.6587E-01_JPRB,1.3825E-01_JPRB,1.1058E-01_JPRB,1.0079E-01_JPRB,&
+ & 1.0571E-01_JPRB,9.5354E-02_JPRB,1.8669E-01_JPRB/)  
+KAO( :, 3, 6,16) = (/&
+ & 2.7185E-01_JPRB,2.3789E-01_JPRB,2.0389E-01_JPRB,1.6994E-01_JPRB,1.3598E-01_JPRB,1.4993E-01_JPRB,&
+ & 1.6017E-01_JPRB,1.4582E-01_JPRB,2.8546E-01_JPRB/)  
+KAO( :, 4, 6,16) = (/&
+ & 3.2519E-01_JPRB,2.8454E-01_JPRB,2.4391E-01_JPRB,2.0327E-01_JPRB,1.8667E-01_JPRB,2.1780E-01_JPRB,&
+ & 2.3273E-01_JPRB,2.1193E-01_JPRB,4.1454E-01_JPRB/)  
+KAO( :, 5, 6,16) = (/&
+ & 3.7997E-01_JPRB,3.3252E-01_JPRB,2.8502E-01_JPRB,2.3749E-01_JPRB,2.5973E-01_JPRB,3.0308E-01_JPRB,&
+ & 3.2386E-01_JPRB,2.9502E-01_JPRB,5.7680E-01_JPRB/)  
+KAO( :, 1, 7,16) = (/&
+ & 1.7875E-01_JPRB,1.5642E-01_JPRB,1.3408E-01_JPRB,1.1175E-01_JPRB,8.9415E-02_JPRB,8.1831E-02_JPRB,&
+ & 8.6005E-02_JPRB,7.7323E-02_JPRB,1.4922E-01_JPRB/)  
+KAO( :, 2, 7,16) = (/&
+ & 2.3257E-01_JPRB,2.0349E-01_JPRB,1.7445E-01_JPRB,1.4538E-01_JPRB,1.1631E-01_JPRB,1.0616E-01_JPRB,&
+ & 1.1147E-01_JPRB,1.0017E-01_JPRB,1.9290E-01_JPRB/)  
+KAO( :, 3, 7,16) = (/&
+ & 2.9155E-01_JPRB,2.5511E-01_JPRB,2.1872E-01_JPRB,1.8226E-01_JPRB,1.4581E-01_JPRB,1.4057E-01_JPRB,&
+ & 1.5032E-01_JPRB,1.3703E-01_JPRB,2.6795E-01_JPRB/)  
+KAO( :, 4, 7,16) = (/&
+ & 3.5453E-01_JPRB,3.1018E-01_JPRB,2.6586E-01_JPRB,2.2158E-01_JPRB,1.8072E-01_JPRB,2.1059E-01_JPRB,&
+ & 2.2528E-01_JPRB,2.0539E-01_JPRB,4.0134E-01_JPRB/)  
+KAO( :, 5, 7,16) = (/&
+ & 4.2001E-01_JPRB,3.6750E-01_JPRB,3.1500E-01_JPRB,2.6252E-01_JPRB,2.5742E-01_JPRB,3.0072E-01_JPRB,&
+ & 3.2172E-01_JPRB,2.9345E-01_JPRB,5.7279E-01_JPRB/)  
+KAO( :, 1, 8,16) = (/&
+ & 1.8184E-01_JPRB,1.5912E-01_JPRB,1.3638E-01_JPRB,1.1367E-01_JPRB,9.0918E-02_JPRB,8.3330E-02_JPRB,&
+ & 8.7708E-02_JPRB,7.9039E-02_JPRB,1.5236E-01_JPRB/)  
+KAO( :, 2, 8,16) = (/&
+ & 2.4266E-01_JPRB,2.1231E-01_JPRB,1.8198E-01_JPRB,1.5168E-01_JPRB,1.2132E-01_JPRB,1.1090E-01_JPRB,&
+ & 1.1664E-01_JPRB,1.0501E-01_JPRB,2.0199E-01_JPRB/)  
+KAO( :, 3, 8,16) = (/&
+ & 3.1060E-01_JPRB,2.7177E-01_JPRB,2.3297E-01_JPRB,1.9411E-01_JPRB,1.5532E-01_JPRB,1.4153E-01_JPRB,&
+ & 1.4874E-01_JPRB,1.3387E-01_JPRB,2.5753E-01_JPRB/)  
+KAO( :, 4, 8,16) = (/&
+ & 3.8422E-01_JPRB,3.3618E-01_JPRB,2.8820E-01_JPRB,2.4017E-01_JPRB,1.9212E-01_JPRB,2.0191E-01_JPRB,&
+ & 2.1622E-01_JPRB,1.9751E-01_JPRB,3.8483E-01_JPRB/)  
+KAO( :, 5, 8,16) = (/&
+ & 4.6183E-01_JPRB,4.0412E-01_JPRB,3.4637E-01_JPRB,2.8861E-01_JPRB,2.5332E-01_JPRB,2.9628E-01_JPRB,&
+ & 3.1743E-01_JPRB,2.9007E-01_JPRB,5.6429E-01_JPRB/)  
+KAO( :, 1, 9,16) = (/&
+ & 1.8242E-01_JPRB,1.5964E-01_JPRB,1.3685E-01_JPRB,1.1403E-01_JPRB,9.1238E-02_JPRB,8.3650E-02_JPRB,&
+ & 8.8221E-02_JPRB,7.9647E-02_JPRB,1.5343E-01_JPRB/)  
+KAO( :, 2, 9,16) = (/&
+ & 2.5031E-01_JPRB,2.1903E-01_JPRB,1.8774E-01_JPRB,1.5645E-01_JPRB,1.2518E-01_JPRB,1.1450E-01_JPRB,&
+ & 1.2069E-01_JPRB,1.0894E-01_JPRB,2.0909E-01_JPRB/)  
+KAO( :, 3, 9,16) = (/&
+ & 3.2780E-01_JPRB,2.8681E-01_JPRB,2.4582E-01_JPRB,2.0484E-01_JPRB,1.6390E-01_JPRB,1.4947E-01_JPRB,&
+ & 1.5744E-01_JPRB,1.4207E-01_JPRB,2.7178E-01_JPRB/)  
+KAO( :, 4, 9,16) = (/&
+ & 4.1288E-01_JPRB,3.6136E-01_JPRB,3.0972E-01_JPRB,2.5810E-01_JPRB,2.0648E-01_JPRB,1.9240E-01_JPRB,&
+ & 2.0499E-01_JPRB,1.8750E-01_JPRB,3.6520E-01_JPRB/)  
+KAO( :, 5, 9,16) = (/&
+ & 5.0401E-01_JPRB,4.4105E-01_JPRB,3.7793E-01_JPRB,3.1504E-01_JPRB,2.5430E-01_JPRB,2.8859E-01_JPRB,&
+ & 3.0964E-01_JPRB,2.8367E-01_JPRB,5.5002E-01_JPRB/)  
+KAO( :, 1,10,16) = (/&
+ & 1.8581E-01_JPRB,1.6259E-01_JPRB,1.3934E-01_JPRB,1.1613E-01_JPRB,9.2903E-02_JPRB,8.5148E-02_JPRB,&
+ & 9.0034E-02_JPRB,8.1540E-02_JPRB,3.4590E-01_JPRB/)  
+KAO( :, 2,10,16) = (/&
+ & 2.6163E-01_JPRB,2.2890E-01_JPRB,1.9618E-01_JPRB,1.6349E-01_JPRB,1.3077E-01_JPRB,1.1965E-01_JPRB,&
+ & 1.2644E-01_JPRB,1.1450E-01_JPRB,3.2865E-01_JPRB/)  
+KAO( :, 3,10,16) = (/&
+ & 3.4958E-01_JPRB,3.0586E-01_JPRB,2.6220E-01_JPRB,2.1849E-01_JPRB,1.7478E-01_JPRB,1.5951E-01_JPRB,&
+ & 1.6845E-01_JPRB,1.5252E-01_JPRB,3.1204E-01_JPRB/)  
+KAO( :, 4,10,16) = (/&
+ & 4.4787E-01_JPRB,3.9191E-01_JPRB,3.3594E-01_JPRB,2.7989E-01_JPRB,2.2397E-01_JPRB,2.0376E-01_JPRB,&
+ & 2.1506E-01_JPRB,1.9478E-01_JPRB,3.7906E-01_JPRB/)  
+KAO( :, 5,10,16) = (/&
+ & 5.5414E-01_JPRB,4.8494E-01_JPRB,4.1561E-01_JPRB,3.4636E-01_JPRB,2.7711E-01_JPRB,2.8690E-01_JPRB,&
+ & 3.0857E-01_JPRB,2.8362E-01_JPRB,5.5736E-01_JPRB/)  
+KAO( :, 1,11,16) = (/&
+ & 2.2387E-01_JPRB,1.9590E-01_JPRB,1.6793E-01_JPRB,1.3995E-01_JPRB,1.1196E-01_JPRB,1.0248E-01_JPRB,&
+ & 1.0866E-01_JPRB,9.8759E-02_JPRB,9.7232E-01_JPRB/)  
+KAO( :, 2,11,16) = (/&
+ & 3.1487E-01_JPRB,2.7553E-01_JPRB,2.3616E-01_JPRB,1.9682E-01_JPRB,1.5747E-01_JPRB,1.4389E-01_JPRB,&
+ & 1.5251E-01_JPRB,1.3868E-01_JPRB,9.2352E-01_JPRB/)  
+KAO( :, 3,11,16) = (/&
+ & 4.2034E-01_JPRB,3.6781E-01_JPRB,3.1526E-01_JPRB,2.6274E-01_JPRB,2.1020E-01_JPRB,1.9156E-01_JPRB,&
+ & 2.0295E-01_JPRB,1.8465E-01_JPRB,8.7619E-01_JPRB/)  
+KAO( :, 4,11,16) = (/&
+ & 5.3783E-01_JPRB,4.7062E-01_JPRB,4.0338E-01_JPRB,3.3619E-01_JPRB,2.6900E-01_JPRB,2.4463E-01_JPRB,&
+ & 2.5910E-01_JPRB,2.3556E-01_JPRB,8.3528E-01_JPRB/)  
+KAO( :, 5,11,16) = (/&
+ & 6.6465E-01_JPRB,5.8160E-01_JPRB,4.9850E-01_JPRB,4.1545E-01_JPRB,3.3262E-01_JPRB,3.4381E-01_JPRB,&
+ & 3.7087E-01_JPRB,3.4266E-01_JPRB,8.3608E-01_JPRB/)  
+KAO( :, 1,12,16) = (/&
+ & 2.6898E-01_JPRB,2.3539E-01_JPRB,2.0175E-01_JPRB,1.6812E-01_JPRB,1.3451E-01_JPRB,1.2295E-01_JPRB,&
+ & 1.3082E-01_JPRB,1.1955E-01_JPRB,1.7254E+00_JPRB/)  
+KAO( :, 2,12,16) = (/&
+ & 3.7759E-01_JPRB,3.3035E-01_JPRB,2.8322E-01_JPRB,2.3602E-01_JPRB,1.8879E-01_JPRB,1.7231E-01_JPRB,&
+ & 1.8335E-01_JPRB,1.6769E-01_JPRB,1.6364E+00_JPRB/)  
+KAO( :, 3,12,16) = (/&
+ & 5.0302E-01_JPRB,4.4026E-01_JPRB,3.7736E-01_JPRB,3.1440E-01_JPRB,2.5155E-01_JPRB,2.2898E-01_JPRB,&
+ & 2.4369E-01_JPRB,2.2307E-01_JPRB,1.5678E+00_JPRB/)  
+KAO( :, 4,12,16) = (/&
+ & 6.4249E-01_JPRB,5.6214E-01_JPRB,4.8190E-01_JPRB,4.0154E-01_JPRB,3.2127E-01_JPRB,2.9402E-01_JPRB,&
+ & 3.1247E-01_JPRB,2.8485E-01_JPRB,1.5255E+00_JPRB/)  
+KAO( :, 5,12,16) = (/&
+ & 7.9248E-01_JPRB,6.9340E-01_JPRB,5.9438E-01_JPRB,4.9520E-01_JPRB,3.9963E-01_JPRB,4.1148E-01_JPRB,&
+ & 4.4433E-01_JPRB,4.1322E-01_JPRB,1.5412E+00_JPRB/)  
+KAO( :, 1,13,16) = (/&
+ & 3.2111E-01_JPRB,2.8086E-01_JPRB,2.4080E-01_JPRB,2.0063E-01_JPRB,1.6053E-01_JPRB,1.4645E-01_JPRB,&
+ & 1.5663E-01_JPRB,1.4415E-01_JPRB,2.4681E+00_JPRB/)  
+KAO( :, 2,13,16) = (/&
+ & 4.4952E-01_JPRB,3.9337E-01_JPRB,3.3709E-01_JPRB,2.8095E-01_JPRB,2.2474E-01_JPRB,2.0495E-01_JPRB,&
+ & 2.1909E-01_JPRB,2.0198E-01_JPRB,2.3822E+00_JPRB/)  
+KAO( :, 3,13,16) = (/&
+ & 5.9739E-01_JPRB,5.2281E-01_JPRB,4.4809E-01_JPRB,3.7333E-01_JPRB,2.9881E-01_JPRB,2.7217E-01_JPRB,&
+ & 2.9063E-01_JPRB,2.6832E-01_JPRB,2.3232E+00_JPRB/)  
+KAO( :, 4,13,16) = (/&
+ & 7.6112E-01_JPRB,6.6586E-01_JPRB,5.7079E-01_JPRB,4.7570E-01_JPRB,3.8102E-01_JPRB,3.5288E-01_JPRB,&
+ & 3.7640E-01_JPRB,3.4431E-01_JPRB,2.2950E+00_JPRB/)  
+KAO( :, 5,13,16) = (/&
+ & 9.3631E-01_JPRB,8.1920E-01_JPRB,7.0224E-01_JPRB,5.8508E-01_JPRB,4.7927E-01_JPRB,4.9193E-01_JPRB,&
+ & 5.3062E-01_JPRB,4.9592E-01_JPRB,2.3135E+00_JPRB/)  
+
+!     The array KB contains absorption coefs for each of the 16 g-intervals
+!     for a range of pressure levels  < ~100mb, temperatures, and ratios
+!     of O3 to CO2.  The first index in the array, JS, runs from 1 to 5, 
+!     and corresponds to different O3 to CO2 ratios, as expressed through 
+!     the binary species parameter eta, defined as eta = O3/(O3+RAT*CO2), 
+!     where RAT is the ratio of the integrated line strength in the band 
+!     of co2 to that of O3.  For instance, JS=1 refers to no O3 (eta = 0) 
+!     and JS = 5 corresponds to eta = 1.0.  The second index, JT, which
+!     runs from 1 to 5, corresponds to different temperatures.  More 
+!     specifically, JT = 3 means that the data are for the corresponding 
+!     reference temperature TREF for this  pressure level, JT = 2 refers 
+!     to the TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and
+!     JT = 5 is for TREF+30.  The third index, JP, runs from 13 to 59 and
+!     refers to the corresponding pressure level in PREF (e.g. JP = 13 is
+!     for a pressure of 95.5835 mb).  The fourth index, IG, goes from 1 to
+!     16, and tells us which g-interval the absorption coefficients are for.
+
+KBO( :, 1,13, 1) = (/&
+ & 3.4470E-06_JPRB,2.6372E-04_JPRB,5.1063E-04_JPRB,7.5257E-04_JPRB,1.0534E-03_JPRB/)  
+KBO( :, 2,13, 1) = (/&
+ & 4.0516E-06_JPRB,3.2949E-04_JPRB,6.3499E-04_JPRB,9.3141E-04_JPRB,1.3018E-03_JPRB/)  
+KBO( :, 3,13, 1) = (/&
+ & 5.1108E-06_JPRB,3.9538E-04_JPRB,7.5778E-04_JPRB,1.1060E-03_JPRB,1.5459E-03_JPRB/)  
+KBO( :, 4,13, 1) = (/&
+ & 6.7999E-06_JPRB,4.6001E-04_JPRB,8.7452E-04_JPRB,1.2718E-03_JPRB,1.7787E-03_JPRB/)  
+KBO( :, 5,13, 1) = (/&
+ & 9.3241E-06_JPRB,5.2270E-04_JPRB,9.8350E-04_JPRB,1.4243E-03_JPRB,1.9970E-03_JPRB/)  
+KBO( :, 1,14, 1) = (/&
+ & 2.8624E-06_JPRB,2.2203E-04_JPRB,4.2960E-04_JPRB,6.3242E-04_JPRB,8.7262E-04_JPRB/)  
+KBO( :, 2,14, 1) = (/&
+ & 3.3872E-06_JPRB,2.7597E-04_JPRB,5.3199E-04_JPRB,7.7931E-04_JPRB,1.0726E-03_JPRB/)  
+KBO( :, 3,14, 1) = (/&
+ & 4.3001E-06_JPRB,3.2993E-04_JPRB,6.3195E-04_JPRB,9.2225E-04_JPRB,1.2666E-03_JPRB/)  
+KBO( :, 4,14, 1) = (/&
+ & 5.7406E-06_JPRB,3.8294E-04_JPRB,7.2707E-04_JPRB,1.0576E-03_JPRB,1.4495E-03_JPRB/)  
+KBO( :, 5,14, 1) = (/&
+ & 7.8860E-06_JPRB,4.3459E-04_JPRB,8.1591E-04_JPRB,1.1810E-03_JPRB,1.6187E-03_JPRB/)  
+KBO( :, 1,15, 1) = (/&
+ & 2.3825E-06_JPRB,1.8697E-04_JPRB,3.6183E-04_JPRB,5.3195E-04_JPRB,7.2587E-04_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART11',1,ZHOOK_HANDLE)
+END SUBROUTINE PART11
+
+
+SUBROUTINE PART12
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART12',0,ZHOOK_HANDLE)
+
+
+KBO( :, 2,15, 1) = (/&
+ & 2.8419E-06_JPRB,2.3121E-04_JPRB,4.4556E-04_JPRB,6.5240E-04_JPRB,8.8767E-04_JPRB/)  
+KBO( :, 3,15, 1) = (/&
+ & 3.6307E-06_JPRB,2.7550E-04_JPRB,5.2710E-04_JPRB,7.6940E-04_JPRB,1.0435E-03_JPRB/)  
+KBO( :, 4,15, 1) = (/&
+ & 4.8654E-06_JPRB,3.1911E-04_JPRB,6.0466E-04_JPRB,8.7922E-04_JPRB,1.1890E-03_JPRB/)  
+KBO( :, 5,15, 1) = (/&
+ & 6.6952E-06_JPRB,3.6172E-04_JPRB,6.7720E-04_JPRB,9.7928E-04_JPRB,1.3218E-03_JPRB/)  
+KBO( :, 1,16, 1) = (/&
+ & 1.9858E-06_JPRB,1.5742E-04_JPRB,3.0462E-04_JPRB,4.4743E-04_JPRB,6.0679E-04_JPRB/)  
+KBO( :, 2,16, 1) = (/&
+ & 2.3893E-06_JPRB,1.9376E-04_JPRB,3.7303E-04_JPRB,5.4624E-04_JPRB,7.3818E-04_JPRB/)  
+KBO( :, 3,16, 1) = (/&
+ & 3.0717E-06_JPRB,2.3016E-04_JPRB,4.3960E-04_JPRB,6.4157E-04_JPRB,8.6419E-04_JPRB/)  
+KBO( :, 4,16, 1) = (/&
+ & 4.1308E-06_JPRB,2.6599E-04_JPRB,5.0281E-04_JPRB,7.3058E-04_JPRB,9.8120E-04_JPRB/)  
+KBO( :, 5,16, 1) = (/&
+ & 5.6927E-06_JPRB,3.0109E-04_JPRB,5.6202E-04_JPRB,8.1155E-04_JPRB,1.0872E-03_JPRB/)  
+KBO( :, 1,17, 1) = (/&
+ & 1.6559E-06_JPRB,1.3226E-04_JPRB,2.5580E-04_JPRB,3.7568E-04_JPRB,5.0686E-04_JPRB/)  
+KBO( :, 2,17, 1) = (/&
+ & 2.0083E-06_JPRB,1.6212E-04_JPRB,3.1178E-04_JPRB,4.5651E-04_JPRB,6.1368E-04_JPRB/)  
+KBO( :, 3,17, 1) = (/&
+ & 2.5968E-06_JPRB,1.9205E-04_JPRB,3.6613E-04_JPRB,5.3405E-04_JPRB,7.1563E-04_JPRB/)  
+KBO( :, 4,17, 1) = (/&
+ & 3.5047E-06_JPRB,2.2153E-04_JPRB,4.1782E-04_JPRB,6.0641E-04_JPRB,8.1002E-04_JPRB/)  
+KBO( :, 5,17, 1) = (/&
+ & 4.8351E-06_JPRB,2.5056E-04_JPRB,4.6632E-04_JPRB,6.7217E-04_JPRB,8.9508E-04_JPRB/)  
+KBO( :, 1,18, 1) = (/&
+ & 1.3818E-06_JPRB,1.1100E-04_JPRB,2.1454E-04_JPRB,3.1506E-04_JPRB,4.2338E-04_JPRB/)  
+KBO( :, 2,18, 1) = (/&
+ & 1.6887E-06_JPRB,1.3556E-04_JPRB,2.6035E-04_JPRB,3.8099E-04_JPRB,5.1025E-04_JPRB/)  
+KBO( :, 3,18, 1) = (/&
+ & 2.1957E-06_JPRB,1.6016E-04_JPRB,3.0479E-04_JPRB,4.4417E-04_JPRB,5.9284E-04_JPRB/)  
+KBO( :, 4,18, 1) = (/&
+ & 2.9733E-06_JPRB,1.8444E-04_JPRB,3.4704E-04_JPRB,5.0300E-04_JPRB,6.6896E-04_JPRB/)  
+KBO( :, 5,18, 1) = (/&
+ & 4.1061E-06_JPRB,2.0846E-04_JPRB,3.8680E-04_JPRB,5.5649E-04_JPRB,7.3738E-04_JPRB/)  
+KBO( :, 1,19, 1) = (/&
+ & 1.1530E-06_JPRB,9.3038E-05_JPRB,1.7970E-04_JPRB,2.6380E-04_JPRB,3.5309E-04_JPRB/)  
+KBO( :, 2,19, 1) = (/&
+ & 1.4193E-06_JPRB,1.1326E-04_JPRB,2.1722E-04_JPRB,3.1768E-04_JPRB,4.2371E-04_JPRB/)  
+KBO( :, 3,19, 1) = (/&
+ & 1.8551E-06_JPRB,1.3348E-04_JPRB,2.5355E-04_JPRB,3.6914E-04_JPRB,4.9054E-04_JPRB/)  
+KBO( :, 4,19, 1) = (/&
+ & 2.5194E-06_JPRB,1.5356E-04_JPRB,2.8811E-04_JPRB,4.1698E-04_JPRB,5.5182E-04_JPRB/)  
+KBO( :, 5,19, 1) = (/&
+ & 3.4823E-06_JPRB,1.7336E-04_JPRB,3.2068E-04_JPRB,4.6050E-04_JPRB,6.0663E-04_JPRB/)  
+KBO( :, 1,20, 1) = (/&
+ & 9.6514E-07_JPRB,7.8220E-05_JPRB,1.5093E-04_JPRB,2.2146E-04_JPRB,2.9562E-04_JPRB/)  
+KBO( :, 2,20, 1) = (/&
+ & 1.1977E-06_JPRB,9.4837E-05_JPRB,1.8160E-04_JPRB,2.6538E-04_JPRB,3.5295E-04_JPRB/)  
+KBO( :, 3,20, 1) = (/&
+ & 1.5743E-06_JPRB,1.1151E-04_JPRB,2.1133E-04_JPRB,3.0732E-04_JPRB,4.0705E-04_JPRB/)  
+KBO( :, 4,20, 1) = (/&
+ & 2.1452E-06_JPRB,1.2810E-04_JPRB,2.3959E-04_JPRB,3.4625E-04_JPRB,4.5647E-04_JPRB/)  
+KBO( :, 5,20, 1) = (/&
+ & 2.9673E-06_JPRB,1.4434E-04_JPRB,2.6631E-04_JPRB,3.8162E-04_JPRB,5.0047E-04_JPRB/)  
+KBO( :, 1,21, 1) = (/&
+ & 8.0884E-07_JPRB,6.5739E-05_JPRB,1.2670E-04_JPRB,1.8581E-04_JPRB,2.4748E-04_JPRB/)  
+KBO( :, 2,21, 1) = (/&
+ & 1.0118E-06_JPRB,7.9430E-05_JPRB,1.5182E-04_JPRB,2.2166E-04_JPRB,2.9412E-04_JPRB/)  
+KBO( :, 3,21, 1) = (/&
+ & 1.3370E-06_JPRB,9.3177E-05_JPRB,1.7611E-04_JPRB,2.5580E-04_JPRB,3.3790E-04_JPRB/)  
+KBO( :, 4,21, 1) = (/&
+ & 1.8276E-06_JPRB,1.0684E-04_JPRB,1.9928E-04_JPRB,2.8745E-04_JPRB,3.7772E-04_JPRB/)  
+KBO( :, 5,21, 1) = (/&
+ & 2.5289E-06_JPRB,1.2011E-04_JPRB,2.2122E-04_JPRB,3.1628E-04_JPRB,4.1308E-04_JPRB/)  
+KBO( :, 1,22, 1) = (/&
+ & 6.8770E-07_JPRB,5.5977E-05_JPRB,1.0768E-04_JPRB,1.5779E-04_JPRB,2.0975E-04_JPRB/)  
+KBO( :, 2,22, 1) = (/&
+ & 8.7051E-07_JPRB,6.7267E-05_JPRB,1.2822E-04_JPRB,1.8696E-04_JPRB,2.4752E-04_JPRB/)  
+KBO( :, 3,22, 1) = (/&
+ & 1.1593E-06_JPRB,7.8612E-05_JPRB,1.4804E-04_JPRB,2.1465E-04_JPRB,2.8275E-04_JPRB/)  
+KBO( :, 4,22, 1) = (/&
+ & 1.5914E-06_JPRB,8.9752E-05_JPRB,1.6700E-04_JPRB,2.4024E-04_JPRB,3.1462E-04_JPRB/)  
+KBO( :, 5,22, 1) = (/&
+ & 2.2022E-06_JPRB,1.0055E-04_JPRB,1.8482E-04_JPRB,2.6358E-04_JPRB,3.4283E-04_JPRB/)  
+KBO( :, 1,23, 1) = (/&
+ & 5.8681E-07_JPRB,4.7674E-05_JPRB,9.1507E-05_JPRB,1.3393E-04_JPRB,1.7770E-04_JPRB/)  
+KBO( :, 2,23, 1) = (/&
+ & 7.5149E-07_JPRB,5.7003E-05_JPRB,1.0829E-04_JPRB,1.5767E-04_JPRB,2.0825E-04_JPRB/)  
+KBO( :, 3,23, 1) = (/&
+ & 1.0080E-06_JPRB,6.6289E-05_JPRB,1.2450E-04_JPRB,1.8010E-04_JPRB,2.3658E-04_JPRB/)  
+KBO( :, 4,23, 1) = (/&
+ & 1.3887E-06_JPRB,7.5365E-05_JPRB,1.3995E-04_JPRB,2.0079E-04_JPRB,2.6204E-04_JPRB/)  
+KBO( :, 5,23, 1) = (/&
+ & 1.9208E-06_JPRB,8.4126E-05_JPRB,1.5435E-04_JPRB,2.1972E-04_JPRB,2.8449E-04_JPRB/)  
+KBO( :, 1,24, 1) = (/&
+ & 5.0292E-07_JPRB,4.0632E-05_JPRB,7.7788E-05_JPRB,1.1370E-04_JPRB,1.5053E-04_JPRB/)  
+KBO( :, 2,24, 1) = (/&
+ & 6.5118E-07_JPRB,4.8318E-05_JPRB,9.1504E-05_JPRB,1.3299E-04_JPRB,1.7517E-04_JPRB/)  
+KBO( :, 3,24, 1) = (/&
+ & 8.7976E-07_JPRB,5.5886E-05_JPRB,1.0475E-04_JPRB,1.5115E-04_JPRB,1.9787E-04_JPRB/)  
+KBO( :, 4,24, 1) = (/&
+ & 1.2151E-06_JPRB,6.3269E-05_JPRB,1.1727E-04_JPRB,1.6792E-04_JPRB,2.1820E-04_JPRB/)  
+KBO( :, 5,24, 1) = (/&
+ & 1.6790E-06_JPRB,7.0361E-05_JPRB,1.2886E-04_JPRB,1.8317E-04_JPRB,2.3599E-04_JPRB/)  
+KBO( :, 1,25, 1) = (/&
+ & 4.3320E-07_JPRB,3.4672E-05_JPRB,6.6172E-05_JPRB,9.6557E-05_JPRB,1.2755E-04_JPRB/)  
+KBO( :, 2,25, 1) = (/&
+ & 5.6706E-07_JPRB,4.0954E-05_JPRB,7.7399E-05_JPRB,1.1224E-04_JPRB,1.4744E-04_JPRB/)  
+KBO( :, 3,25, 1) = (/&
+ & 7.7121E-07_JPRB,4.7130E-05_JPRB,8.8173E-05_JPRB,1.2695E-04_JPRB,1.6559E-04_JPRB/)  
+KBO( :, 4,25, 1) = (/&
+ & 1.0669E-06_JPRB,5.3117E-05_JPRB,9.8264E-05_JPRB,1.4052E-04_JPRB,1.8177E-04_JPRB/)  
+KBO( :, 5,25, 1) = (/&
+ & 1.4722E-06_JPRB,5.8854E-05_JPRB,1.0754E-04_JPRB,1.5271E-04_JPRB,1.9584E-04_JPRB/)  
+KBO( :, 1,26, 1) = (/&
+ & 3.7607E-07_JPRB,2.9637E-05_JPRB,5.6418E-05_JPRB,8.2160E-05_JPRB,1.0828E-04_JPRB/)  
+KBO( :, 2,26, 1) = (/&
+ & 4.9757E-07_JPRB,3.4761E-05_JPRB,6.5581E-05_JPRB,9.4869E-05_JPRB,1.2424E-04_JPRB/)  
+KBO( :, 3,26, 1) = (/&
+ & 6.8088E-07_JPRB,3.9782E-05_JPRB,7.4280E-05_JPRB,1.0678E-04_JPRB,1.3874E-04_JPRB/)  
+KBO( :, 4,26, 1) = (/&
+ & 9.4259E-07_JPRB,4.4634E-05_JPRB,8.2385E-05_JPRB,1.1768E-04_JPRB,1.5157E-04_JPRB/)  
+KBO( :, 5,26, 1) = (/&
+ & 1.2981E-06_JPRB,4.9274E-05_JPRB,8.9787E-05_JPRB,1.2735E-04_JPRB,1.6265E-04_JPRB/)  
+KBO( :, 1,27, 1) = (/&
+ & 3.2783E-07_JPRB,2.5292E-05_JPRB,4.8063E-05_JPRB,6.9840E-05_JPRB,9.1852E-05_JPRB/)  
+KBO( :, 2,27, 1) = (/&
+ & 4.3792E-07_JPRB,2.9476E-05_JPRB,5.5497E-05_JPRB,8.0152E-05_JPRB,1.0466E-04_JPRB/)  
+KBO( :, 3,27, 1) = (/&
+ & 6.0227E-07_JPRB,3.3553E-05_JPRB,6.2514E-05_JPRB,8.9762E-05_JPRB,1.1621E-04_JPRB/)  
+KBO( :, 4,27, 1) = (/&
+ & 8.3354E-07_JPRB,3.7479E-05_JPRB,6.9000E-05_JPRB,9.8462E-05_JPRB,1.2640E-04_JPRB/)  
+KBO( :, 5,27, 1) = (/&
+ & 1.1448E-06_JPRB,4.1239E-05_JPRB,7.4917E-05_JPRB,1.0612E-04_JPRB,1.3514E-04_JPRB/)  
+KBO( :, 1,28, 1) = (/&
+ & 2.8669E-07_JPRB,2.1556E-05_JPRB,4.0892E-05_JPRB,5.9304E-05_JPRB,7.7833E-05_JPRB/)  
+KBO( :, 2,28, 1) = (/&
+ & 3.8635E-07_JPRB,2.4960E-05_JPRB,4.6902E-05_JPRB,6.7670E-05_JPRB,8.8103E-05_JPRB/)  
+KBO( :, 3,28, 1) = (/&
+ & 5.3330E-07_JPRB,2.8270E-05_JPRB,5.2542E-05_JPRB,7.5364E-05_JPRB,9.7308E-05_JPRB/)  
+KBO( :, 4,28, 1) = (/&
+ & 7.3734E-07_JPRB,3.1446E-05_JPRB,5.7727E-05_JPRB,8.2286E-05_JPRB,1.0537E-04_JPRB/)  
+KBO( :, 5,28, 1) = (/&
+ & 1.0096E-06_JPRB,3.4495E-05_JPRB,6.2455E-05_JPRB,8.8340E-05_JPRB,1.1227E-04_JPRB/)  
+KBO( :, 1,29, 1) = (/&
+ & 2.5201E-07_JPRB,1.8361E-05_JPRB,3.4763E-05_JPRB,5.0351E-05_JPRB,6.5987E-05_JPRB/)  
+KBO( :, 2,29, 1) = (/&
+ & 3.4236E-07_JPRB,2.1129E-05_JPRB,3.9617E-05_JPRB,5.7095E-05_JPRB,7.4216E-05_JPRB/)  
+KBO( :, 3,29, 1) = (/&
+ & 4.7361E-07_JPRB,2.3813E-05_JPRB,4.4138E-05_JPRB,6.3255E-05_JPRB,8.1563E-05_JPRB/)  
+KBO( :, 4,29, 1) = (/&
+ & 6.5380E-07_JPRB,2.6387E-05_JPRB,4.8286E-05_JPRB,6.8730E-05_JPRB,8.7959E-05_JPRB/)  
+KBO( :, 5,29, 1) = (/&
+ & 8.9193E-07_JPRB,2.8857E-05_JPRB,5.2062E-05_JPRB,7.3497E-05_JPRB,9.3411E-05_JPRB/)  
+KBO( :, 1,30, 1) = (/&
+ & 2.2221E-07_JPRB,1.5617E-05_JPRB,2.9506E-05_JPRB,4.2701E-05_JPRB,5.5901E-05_JPRB/)  
+KBO( :, 2,30, 1) = (/&
+ & 3.0397E-07_JPRB,1.7865E-05_JPRB,3.3414E-05_JPRB,4.8107E-05_JPRB,6.2491E-05_JPRB/)  
+KBO( :, 3,30, 1) = (/&
+ & 4.2084E-07_JPRB,2.0038E-05_JPRB,3.7035E-05_JPRB,5.3015E-05_JPRB,6.8354E-05_JPRB/)  
+KBO( :, 4,30, 1) = (/&
+ & 5.7974E-07_JPRB,2.2125E-05_JPRB,4.0351E-05_JPRB,5.7341E-05_JPRB,7.3435E-05_JPRB/)  
+KBO( :, 5,30, 1) = (/&
+ & 7.8765E-07_JPRB,2.4127E-05_JPRB,4.3366E-05_JPRB,6.1092E-05_JPRB,7.7733E-05_JPRB/)  
+KBO( :, 1,31, 1) = (/&
+ & 1.9681E-07_JPRB,1.3270E-05_JPRB,2.5018E-05_JPRB,3.6169E-05_JPRB,4.7371E-05_JPRB/)  
+KBO( :, 2,31, 1) = (/&
+ & 2.7071E-07_JPRB,1.5097E-05_JPRB,2.8159E-05_JPRB,4.0500E-05_JPRB,5.2659E-05_JPRB/)  
+KBO( :, 3,31, 1) = (/&
+ & 3.7475E-07_JPRB,1.6858E-05_JPRB,3.1057E-05_JPRB,4.4392E-05_JPRB,5.7349E-05_JPRB/)  
+KBO( :, 4,31, 1) = (/&
+ & 5.1477E-07_JPRB,1.8547E-05_JPRB,3.3705E-05_JPRB,4.7805E-05_JPRB,6.1389E-05_JPRB/)  
+KBO( :, 5,31, 1) = (/&
+ & 6.9625E-07_JPRB,2.0170E-05_JPRB,3.6118E-05_JPRB,5.0758E-05_JPRB,6.4797E-05_JPRB/)  
+KBO( :, 1,32, 1) = (/&
+ & 1.7485E-07_JPRB,1.1265E-05_JPRB,2.1186E-05_JPRB,3.0600E-05_JPRB,4.0119E-05_JPRB/)  
+KBO( :, 2,32, 1) = (/&
+ & 2.4148E-07_JPRB,1.2747E-05_JPRB,2.3704E-05_JPRB,3.4052E-05_JPRB,4.4364E-05_JPRB/)  
+KBO( :, 3,32, 1) = (/&
+ & 3.3391E-07_JPRB,1.4173E-05_JPRB,2.6023E-05_JPRB,3.7134E-05_JPRB,4.8107E-05_JPRB/)  
+KBO( :, 4,32, 1) = (/&
+ & 4.5712E-07_JPRB,1.5544E-05_JPRB,2.8139E-05_JPRB,3.9822E-05_JPRB,5.1320E-05_JPRB/)  
+KBO( :, 5,32, 1) = (/&
+ & 6.1526E-07_JPRB,1.6857E-05_JPRB,3.0064E-05_JPRB,4.2147E-05_JPRB,5.4009E-05_JPRB/)  
+KBO( :, 1,33, 1) = (/&
+ & 1.5570E-07_JPRB,9.5475E-06_JPRB,1.7911E-05_JPRB,2.5842E-05_JPRB,3.3957E-05_JPRB/)  
+KBO( :, 2,33, 1) = (/&
+ & 2.1549E-07_JPRB,1.0751E-05_JPRB,1.9931E-05_JPRB,2.8592E-05_JPRB,3.7370E-05_JPRB/)  
+KBO( :, 3,33, 1) = (/&
+ & 2.9746E-07_JPRB,1.1906E-05_JPRB,2.1783E-05_JPRB,3.1027E-05_JPRB,4.0353E-05_JPRB/)  
+KBO( :, 4,33, 1) = (/&
+ & 4.0565E-07_JPRB,1.3019E-05_JPRB,2.3473E-05_JPRB,3.3146E-05_JPRB,4.2910E-05_JPRB/)  
+KBO( :, 5,33, 1) = (/&
+ & 5.4308E-07_JPRB,1.4082E-05_JPRB,2.5010E-05_JPRB,3.4973E-05_JPRB,4.5040E-05_JPRB/)  
+KBO( :, 1,34, 1) = (/&
+ & 1.3721E-07_JPRB,8.0465E-06_JPRB,1.5060E-05_JPRB,2.1707E-05_JPRB,2.8588E-05_JPRB/)  
+KBO( :, 2,34, 1) = (/&
+ & 1.9002E-07_JPRB,9.0232E-06_JPRB,1.6681E-05_JPRB,2.3900E-05_JPRB,3.1327E-05_JPRB/)  
+KBO( :, 3,34, 1) = (/&
+ & 2.6180E-07_JPRB,9.9630E-06_JPRB,1.8168E-05_JPRB,2.5833E-05_JPRB,3.3720E-05_JPRB/)  
+KBO( :, 4,34, 1) = (/&
+ & 3.5566E-07_JPRB,1.0865E-05_JPRB,1.9523E-05_JPRB,2.7511E-05_JPRB,3.5767E-05_JPRB/)  
+KBO( :, 5,34, 1) = (/&
+ & 4.7391E-07_JPRB,1.1726E-05_JPRB,2.0751E-05_JPRB,2.8954E-05_JPRB,3.7468E-05_JPRB/)  
+KBO( :, 1,35, 1) = (/&
+ & 1.1723E-07_JPRB,6.6964E-06_JPRB,1.2516E-05_JPRB,1.8031E-05_JPRB,2.3821E-05_JPRB/)  
+KBO( :, 2,35, 1) = (/&
+ & 1.6235E-07_JPRB,7.4927E-06_JPRB,1.3829E-05_JPRB,1.9800E-05_JPRB,2.6051E-05_JPRB/)  
+KBO( :, 3,35, 1) = (/&
+ & 2.2335E-07_JPRB,8.2568E-06_JPRB,1.5029E-05_JPRB,2.1350E-05_JPRB,2.8000E-05_JPRB/)  
+KBO( :, 4,35, 1) = (/&
+ & 3.0275E-07_JPRB,8.9930E-06_JPRB,1.6127E-05_JPRB,2.2699E-05_JPRB,2.9671E-05_JPRB/)  
+KBO( :, 5,35, 1) = (/&
+ & 4.0236E-07_JPRB,9.6965E-06_JPRB,1.7121E-05_JPRB,2.3858E-05_JPRB,3.1064E-05_JPRB/)  
+KBO( :, 1,36, 1) = (/&
+ & 9.6662E-08_JPRB,5.4982E-06_JPRB,1.0275E-05_JPRB,1.4804E-05_JPRB,1.9630E-05_JPRB/)  
+KBO( :, 2,36, 1) = (/&
+ & 1.3386E-07_JPRB,6.1501E-06_JPRB,1.1348E-05_JPRB,1.6247E-05_JPRB,2.1474E-05_JPRB/)  
+KBO( :, 3,36, 1) = (/&
+ & 1.8410E-07_JPRB,6.7756E-06_JPRB,1.2329E-05_JPRB,1.7513E-05_JPRB,2.3090E-05_JPRB/)  
+KBO( :, 4,36, 1) = (/&
+ & 2.4947E-07_JPRB,7.3775E-06_JPRB,1.3225E-05_JPRB,1.8612E-05_JPRB,2.4479E-05_JPRB/)  
+KBO( :, 5,36, 1) = (/&
+ & 3.3138E-07_JPRB,7.9539E-06_JPRB,1.4038E-05_JPRB,1.9559E-05_JPRB,2.5645E-05_JPRB/)  
+KBO( :, 1,37, 1) = (/&
+ & 7.5833E-08_JPRB,4.4319E-06_JPRB,8.2961E-06_JPRB,1.1965E-05_JPRB,1.5922E-05_JPRB/)  
+KBO( :, 2,37, 1) = (/&
+ & 1.0502E-07_JPRB,4.9674E-06_JPRB,9.1830E-06_JPRB,1.3164E-05_JPRB,1.7469E-05_JPRB/)  
+KBO( :, 3,37, 1) = (/&
+ & 1.4465E-07_JPRB,5.4834E-06_JPRB,9.9967E-06_JPRB,1.4218E-05_JPRB,1.8834E-05_JPRB/)  
+KBO( :, 4,37, 1) = (/&
+ & 1.9645E-07_JPRB,5.9788E-06_JPRB,1.0738E-05_JPRB,1.5133E-05_JPRB,2.0012E-05_JPRB/)  
+KBO( :, 5,37, 1) = (/&
+ & 2.6166E-07_JPRB,6.4529E-06_JPRB,1.1414E-05_JPRB,1.5924E-05_JPRB,2.1010E-05_JPRB/)  
+KBO( :, 1,38, 1) = (/&
+ & 5.9339E-08_JPRB,3.5670E-06_JPRB,6.6893E-06_JPRB,9.6566E-06_JPRB,1.2902E-05_JPRB/)  
+KBO( :, 2,38, 1) = (/&
+ & 8.2155E-08_JPRB,4.0080E-06_JPRB,7.4233E-06_JPRB,1.0653E-05_JPRB,1.4205E-05_JPRB/)  
+KBO( :, 3,38, 1) = (/&
+ & 1.1331E-07_JPRB,4.4325E-06_JPRB,8.0980E-06_JPRB,1.1532E-05_JPRB,1.5359E-05_JPRB/)  
+KBO( :, 4,38, 1) = (/&
+ & 1.5427E-07_JPRB,4.8410E-06_JPRB,8.7132E-06_JPRB,1.2297E-05_JPRB,1.6364E-05_JPRB/)  
+KBO( :, 5,38, 1) = (/&
+ & 2.0603E-07_JPRB,5.2310E-06_JPRB,9.2738E-06_JPRB,1.2957E-05_JPRB,1.7220E-05_JPRB/)  
+KBO( :, 1,39, 1) = (/&
+ & 4.6457E-08_JPRB,2.8706E-06_JPRB,5.3922E-06_JPRB,7.7916E-06_JPRB,1.0463E-05_JPRB/)  
+KBO( :, 2,39, 1) = (/&
+ & 6.4280E-08_JPRB,3.2335E-06_JPRB,5.9995E-06_JPRB,8.6193E-06_JPRB,1.1561E-05_JPRB/)  
+KBO( :, 3,39, 1) = (/&
+ & 8.8753E-08_JPRB,3.5826E-06_JPRB,6.5580E-06_JPRB,9.3509E-06_JPRB,1.2539E-05_JPRB/)  
+KBO( :, 4,39, 1) = (/&
+ & 1.2109E-07_JPRB,3.9186E-06_JPRB,7.0688E-06_JPRB,9.9899E-06_JPRB,1.3398E-05_JPRB/)  
+KBO( :, 5,39, 1) = (/&
+ & 1.6221E-07_JPRB,4.2407E-06_JPRB,7.5350E-06_JPRB,1.0543E-05_JPRB,1.4137E-05_JPRB/)  
+KBO( :, 1,40, 1) = (/&
+ & 3.5213E-08_JPRB,2.2779E-06_JPRB,4.2906E-06_JPRB,6.2087E-06_JPRB,8.3621E-06_JPRB/)  
+KBO( :, 2,40, 1) = (/&
+ & 4.8621E-08_JPRB,2.5769E-06_JPRB,4.7967E-06_JPRB,6.9026E-06_JPRB,9.2884E-06_JPRB/)  
+KBO( :, 3,40, 1) = (/&
+ & 6.7228E-08_JPRB,2.8656E-06_JPRB,5.2643E-06_JPRB,7.5217E-06_JPRB,1.0122E-05_JPRB/)  
+KBO( :, 4,40, 1) = (/&
+ & 9.2051E-08_JPRB,3.1437E-06_JPRB,5.6919E-06_JPRB,8.0632E-06_JPRB,1.0858E-05_JPRB/)  
+KBO( :, 5,40, 1) = (/&
+ & 1.2392E-07_JPRB,3.4099E-06_JPRB,6.0819E-06_JPRB,8.5318E-06_JPRB,1.1495E-05_JPRB/)  
+KBO( :, 1,41, 1) = (/&
+ & 2.6618E-08_JPRB,1.8019E-06_JPRB,3.4036E-06_JPRB,4.9321E-06_JPRB,6.6614E-06_JPRB/)  
+KBO( :, 2,41, 1) = (/&
+ & 3.6608E-08_JPRB,2.0487E-06_JPRB,3.8262E-06_JPRB,5.5154E-06_JPRB,7.4437E-06_JPRB/)  
+KBO( :, 3,41, 1) = (/&
+ & 5.0672E-08_JPRB,2.2872E-06_JPRB,4.2170E-06_JPRB,6.0380E-06_JPRB,8.1516E-06_JPRB/)  
+KBO( :, 4,41, 1) = (/&
+ & 6.9610E-08_JPRB,2.5171E-06_JPRB,4.5756E-06_JPRB,6.4977E-06_JPRB,8.7822E-06_JPRB/)  
+KBO( :, 5,41, 1) = (/&
+ & 9.4152E-08_JPRB,2.7376E-06_JPRB,4.9025E-06_JPRB,6.8959E-06_JPRB,9.3313E-06_JPRB/)  
+KBO( :, 1,42, 1) = (/&
+ & 2.0157E-08_JPRB,1.4234E-06_JPRB,2.6959E-06_JPRB,3.9114E-06_JPRB,5.2999E-06_JPRB/)  
+KBO( :, 2,42, 1) = (/&
+ & 2.7569E-08_JPRB,1.6266E-06_JPRB,3.0478E-06_JPRB,4.4003E-06_JPRB,5.9585E-06_JPRB/)  
+KBO( :, 3,42, 1) = (/&
+ & 3.8168E-08_JPRB,1.8237E-06_JPRB,3.3743E-06_JPRB,4.8412E-06_JPRB,6.5607E-06_JPRB/)  
+KBO( :, 4,42, 1) = (/&
+ & 5.2578E-08_JPRB,2.0137E-06_JPRB,3.6751E-06_JPRB,5.2309E-06_JPRB,7.1001E-06_JPRB/)  
+KBO( :, 5,42, 1) = (/&
+ & 7.1438E-08_JPRB,2.1965E-06_JPRB,3.9491E-06_JPRB,5.5693E-06_JPRB,7.5736E-06_JPRB/)  
+KBO( :, 1,43, 1) = (/&
+ & 1.5048E-08_JPRB,1.1128E-06_JPRB,2.1143E-06_JPRB,3.0719E-06_JPRB,4.1759E-06_JPRB/)  
+KBO( :, 2,43, 1) = (/&
+ & 2.0401E-08_JPRB,1.2805E-06_JPRB,2.4084E-06_JPRB,3.4833E-06_JPRB,4.7326E-06_JPRB/)  
+KBO( :, 3,43, 1) = (/&
+ & 2.8205E-08_JPRB,1.4438E-06_JPRB,2.6828E-06_JPRB,3.8579E-06_JPRB,5.2466E-06_JPRB/)  
+KBO( :, 4,43, 1) = (/&
+ & 3.8951E-08_JPRB,1.6012E-06_JPRB,2.9353E-06_JPRB,4.1897E-06_JPRB,5.7090E-06_JPRB/)  
+KBO( :, 5,43, 1) = (/&
+ & 5.3191E-08_JPRB,1.7525E-06_JPRB,3.1662E-06_JPRB,4.4792E-06_JPRB,6.1200E-06_JPRB/)  
+KBO( :, 1,44, 1) = (/&
+ & 1.1198E-08_JPRB,8.6431E-07_JPRB,1.6473E-06_JPRB,2.3969E-06_JPRB,3.2705E-06_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART12',1,ZHOOK_HANDLE)
+END SUBROUTINE PART12
+
+
+SUBROUTINE PART13
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART13',0,ZHOOK_HANDLE)
+
+
+KBO( :, 2,44, 1) = (/&
+ & 1.5007E-08_JPRB,1.0027E-06_JPRB,1.8931E-06_JPRB,2.7433E-06_JPRB,3.7404E-06_JPRB/)  
+KBO( :, 3,44, 1) = (/&
+ & 2.0665E-08_JPRB,1.1376E-06_JPRB,2.1233E-06_JPRB,3.0602E-06_JPRB,4.1782E-06_JPRB/)  
+KBO( :, 4,44, 1) = (/&
+ & 2.8586E-08_JPRB,1.2680E-06_JPRB,2.3363E-06_JPRB,3.3439E-06_JPRB,4.5764E-06_JPRB/)  
+KBO( :, 5,44, 1) = (/&
+ & 3.9218E-08_JPRB,1.3937E-06_JPRB,2.5309E-06_JPRB,3.5921E-06_JPRB,4.9322E-06_JPRB/)  
+KBO( :, 1,45, 1) = (/&
+ & 8.3759E-09_JPRB,6.6910E-07_JPRB,1.2788E-06_JPRB,1.8633E-06_JPRB,2.5541E-06_JPRB/)  
+KBO( :, 2,45, 1) = (/&
+ & 1.1074E-08_JPRB,7.8311E-07_JPRB,1.4838E-06_JPRB,2.1538E-06_JPRB,2.9501E-06_JPRB/)  
+KBO( :, 3,45, 1) = (/&
+ & 1.5144E-08_JPRB,8.9455E-07_JPRB,1.6769E-06_JPRB,2.4217E-06_JPRB,3.3225E-06_JPRB/)  
+KBO( :, 4,45, 1) = (/&
+ & 2.0959E-08_JPRB,1.0028E-06_JPRB,1.8560E-06_JPRB,2.6635E-06_JPRB,3.6644E-06_JPRB/)  
+KBO( :, 5,45, 1) = (/&
+ & 2.8861E-08_JPRB,1.1068E-06_JPRB,2.0205E-06_JPRB,2.8768E-06_JPRB,3.9736E-06_JPRB/)  
+KBO( :, 1,46, 1) = (/&
+ & 6.2739E-09_JPRB,5.1407E-07_JPRB,9.8522E-07_JPRB,1.4377E-06_JPRB,1.9806E-06_JPRB/)  
+KBO( :, 2,46, 1) = (/&
+ & 8.1529E-09_JPRB,6.0797E-07_JPRB,1.1561E-06_JPRB,1.6807E-06_JPRB,2.3136E-06_JPRB/)  
+KBO( :, 3,46, 1) = (/&
+ & 1.1038E-08_JPRB,7.0008E-07_JPRB,1.3179E-06_JPRB,1.9073E-06_JPRB,2.6301E-06_JPRB/)  
+KBO( :, 4,46, 1) = (/&
+ & 1.5249E-08_JPRB,7.8964E-07_JPRB,1.4688E-06_JPRB,2.1133E-06_JPRB,2.9239E-06_JPRB/)  
+KBO( :, 5,46, 1) = (/&
+ & 2.1058E-08_JPRB,8.7606E-07_JPRB,1.6079E-06_JPRB,2.2965E-06_JPRB,3.1920E-06_JPRB/)  
+KBO( :, 1,47, 1) = (/&
+ & 4.6949E-09_JPRB,3.8992E-07_JPRB,7.4927E-07_JPRB,1.0952E-06_JPRB,1.5159E-06_JPRB/)  
+KBO( :, 2,47, 1) = (/&
+ & 5.9645E-09_JPRB,4.6716E-07_JPRB,8.9151E-07_JPRB,1.2982E-06_JPRB,1.7952E-06_JPRB/)  
+KBO( :, 3,47, 1) = (/&
+ & 7.9612E-09_JPRB,5.4321E-07_JPRB,1.0272E-06_JPRB,1.4897E-06_JPRB,2.0633E-06_JPRB/)  
+KBO( :, 4,47, 1) = (/&
+ & 1.0938E-08_JPRB,6.1746E-07_JPRB,1.1545E-06_JPRB,1.6654E-06_JPRB,2.3153E-06_JPRB/)  
+KBO( :, 5,47, 1) = (/&
+ & 1.5132E-08_JPRB,6.8917E-07_JPRB,1.2721E-06_JPRB,1.8228E-06_JPRB,2.5468E-06_JPRB/)  
+KBO( :, 1,48, 1) = (/&
+ & 3.5531E-09_JPRB,2.9393E-07_JPRB,5.6622E-07_JPRB,8.2884E-07_JPRB,1.1544E-06_JPRB/)  
+KBO( :, 2,48, 1) = (/&
+ & 4.3982E-09_JPRB,3.5721E-07_JPRB,6.8388E-07_JPRB,9.9751E-07_JPRB,1.3878E-06_JPRB/)  
+KBO( :, 3,48, 1) = (/&
+ & 5.7699E-09_JPRB,4.1995E-07_JPRB,7.9742E-07_JPRB,1.1586E-06_JPRB,1.6142E-06_JPRB/)  
+KBO( :, 4,48, 1) = (/&
+ & 7.8542E-09_JPRB,4.8132E-07_JPRB,9.0450E-07_JPRB,1.3078E-06_JPRB,1.8297E-06_JPRB/)  
+KBO( :, 5,48, 1) = (/&
+ & 1.0862E-08_JPRB,5.4098E-07_JPRB,1.0041E-06_JPRB,1.4432E-06_JPRB,2.0302E-06_JPRB/)  
+KBO( :, 1,49, 1) = (/&
+ & 2.7223E-09_JPRB,2.2011E-07_JPRB,4.2480E-07_JPRB,6.2273E-07_JPRB,8.7522E-07_JPRB/)  
+KBO( :, 2,49, 1) = (/&
+ & 3.2751E-09_JPRB,2.7175E-07_JPRB,5.2169E-07_JPRB,7.6216E-07_JPRB,1.0695E-06_JPRB/)  
+KBO( :, 3,49, 1) = (/&
+ & 4.2074E-09_JPRB,3.2338E-07_JPRB,6.1638E-07_JPRB,8.9710E-07_JPRB,1.2605E-06_JPRB/)  
+KBO( :, 4,49, 1) = (/&
+ & 5.6548E-09_JPRB,3.7408E-07_JPRB,7.0619E-07_JPRB,1.0234E-06_JPRB,1.4445E-06_JPRB/)  
+KBO( :, 5,49, 1) = (/&
+ & 7.7931E-09_JPRB,4.2353E-07_JPRB,7.9036E-07_JPRB,1.1391E-06_JPRB,1.6183E-06_JPRB/)  
+KBO( :, 1,50, 1) = (/&
+ & 2.1171E-09_JPRB,1.6461E-07_JPRB,3.1815E-07_JPRB,4.6707E-07_JPRB,6.6131E-07_JPRB/)  
+KBO( :, 2,50, 1) = (/&
+ & 2.4767E-09_JPRB,2.0654E-07_JPRB,3.9751E-07_JPRB,5.8161E-07_JPRB,8.2129E-07_JPRB/)  
+KBO( :, 3,50, 1) = (/&
+ & 3.1098E-09_JPRB,2.4898E-07_JPRB,4.7607E-07_JPRB,6.9397E-07_JPRB,9.8108E-07_JPRB/)  
+KBO( :, 4,50, 1) = (/&
+ & 4.1196E-09_JPRB,2.9082E-07_JPRB,5.5125E-07_JPRB,8.0034E-07_JPRB,1.1364E-06_JPRB/)  
+KBO( :, 5,50, 1) = (/&
+ & 5.6373E-09_JPRB,3.3169E-07_JPRB,6.2193E-07_JPRB,8.9844E-07_JPRB,1.2847E-06_JPRB/)  
+KBO( :, 1,51, 1) = (/&
+ & 1.6645E-09_JPRB,1.2257E-07_JPRB,2.3718E-07_JPRB,3.4865E-07_JPRB,4.9717E-07_JPRB/)  
+KBO( :, 2,51, 1) = (/&
+ & 1.8963E-09_JPRB,1.5653E-07_JPRB,3.0185E-07_JPRB,4.4222E-07_JPRB,6.2797E-07_JPRB/)  
+KBO( :, 3,51, 1) = (/&
+ & 2.3235E-09_JPRB,1.9123E-07_JPRB,3.6667E-07_JPRB,5.3530E-07_JPRB,7.6057E-07_JPRB/)  
+KBO( :, 4,51, 1) = (/&
+ & 3.0254E-09_JPRB,2.2572E-07_JPRB,4.2945E-07_JPRB,6.2453E-07_JPRB,8.9069E-07_JPRB/)  
+KBO( :, 5,51, 1) = (/&
+ & 4.0995E-09_JPRB,2.5950E-07_JPRB,4.8873E-07_JPRB,7.0742E-07_JPRB,1.0163E-06_JPRB/)  
+KBO( :, 1,52, 1) = (/&
+ & 1.3206E-09_JPRB,9.0571E-08_JPRB,1.7550E-07_JPRB,2.5829E-07_JPRB,3.7195E-07_JPRB/)  
+KBO( :, 2,52, 1) = (/&
+ & 1.4670E-09_JPRB,1.1797E-07_JPRB,2.2784E-07_JPRB,3.3424E-07_JPRB,4.7844E-07_JPRB/)  
+KBO( :, 3,52, 1) = (/&
+ & 1.7505E-09_JPRB,1.4623E-07_JPRB,2.8107E-07_JPRB,4.1094E-07_JPRB,5.8801E-07_JPRB/)  
+KBO( :, 4,52, 1) = (/&
+ & 2.2339E-09_JPRB,1.7460E-07_JPRB,3.3329E-07_JPRB,4.8542E-07_JPRB,6.9695E-07_JPRB/)  
+KBO( :, 5,52, 1) = (/&
+ & 2.9899E-09_JPRB,2.0250E-07_JPRB,3.8293E-07_JPRB,5.5538E-07_JPRB,8.0322E-07_JPRB/)  
+KBO( :, 1,53, 1) = (/&
+ & 1.0570E-09_JPRB,6.6355E-08_JPRB,1.2871E-07_JPRB,1.8963E-07_JPRB,2.7719E-07_JPRB/)  
+KBO( :, 2,53, 1) = (/&
+ & 1.1456E-09_JPRB,8.8306E-08_JPRB,1.7079E-07_JPRB,2.5086E-07_JPRB,3.6333E-07_JPRB/)  
+KBO( :, 3,53, 1) = (/&
+ & 1.3304E-09_JPRB,1.1127E-07_JPRB,2.1434E-07_JPRB,3.1381E-07_JPRB,4.5369E-07_JPRB/)  
+KBO( :, 4,53, 1) = (/&
+ & 1.6595E-09_JPRB,1.3454E-07_JPRB,2.5758E-07_JPRB,3.7572E-07_JPRB,5.4496E-07_JPRB/)  
+KBO( :, 5,53, 1) = (/&
+ & 2.1883E-09_JPRB,1.5755E-07_JPRB,2.9906E-07_JPRB,4.3451E-07_JPRB,6.3482E-07_JPRB/)  
+KBO( :, 1,54, 1) = (/&
+ & 8.5518E-10_JPRB,4.8675E-08_JPRB,9.4477E-08_JPRB,1.3931E-07_JPRB,2.0489E-07_JPRB/)  
+KBO( :, 2,54, 1) = (/&
+ & 9.0530E-10_JPRB,6.6186E-08_JPRB,1.2814E-07_JPRB,1.8845E-07_JPRB,2.7365E-07_JPRB/)  
+KBO( :, 3,54, 1) = (/&
+ & 1.0265E-09_JPRB,8.4782E-08_JPRB,1.6360E-07_JPRB,2.3982E-07_JPRB,3.4689E-07_JPRB/)  
+KBO( :, 4,54, 1) = (/&
+ & 1.2515E-09_JPRB,1.0381E-07_JPRB,1.9922E-07_JPRB,2.9100E-07_JPRB,4.2180E-07_JPRB/)  
+KBO( :, 5,54, 1) = (/&
+ & 1.6232E-09_JPRB,1.2276E-07_JPRB,2.3378E-07_JPRB,3.4015E-07_JPRB,4.9603E-07_JPRB/)  
+KBO( :, 1,55, 1) = (/&
+ & 6.9700E-10_JPRB,3.5570E-08_JPRB,6.9080E-08_JPRB,1.0195E-07_JPRB,1.4991E-07_JPRB/)  
+KBO( :, 2,55, 1) = (/&
+ & 7.2150E-10_JPRB,4.9476E-08_JPRB,9.5896E-08_JPRB,1.4119E-07_JPRB,2.0429E-07_JPRB/)  
+KBO( :, 3,55, 1) = (/&
+ & 8.0028E-10_JPRB,6.4502E-08_JPRB,1.2464E-07_JPRB,1.8291E-07_JPRB,2.6311E-07_JPRB/)  
+KBO( :, 4,55, 1) = (/&
+ & 9.5310E-10_JPRB,8.0013E-08_JPRB,1.5388E-07_JPRB,2.2506E-07_JPRB,3.2381E-07_JPRB/)  
+KBO( :, 5,55, 1) = (/&
+ & 1.2140E-09_JPRB,9.5569E-08_JPRB,1.8254E-07_JPRB,2.6597E-07_JPRB,3.8428E-07_JPRB/)  
+KBO( :, 1,56, 1) = (/&
+ & 5.7187E-10_JPRB,2.5788E-08_JPRB,5.0091E-08_JPRB,7.3976E-08_JPRB,1.0884E-07_JPRB/)  
+KBO( :, 2,56, 1) = (/&
+ & 5.7915E-10_JPRB,3.6758E-08_JPRB,7.1316E-08_JPRB,1.0509E-07_JPRB,1.5165E-07_JPRB/)  
+KBO( :, 3,56, 1) = (/&
+ & 6.2849E-10_JPRB,4.8831E-08_JPRB,9.4465E-08_JPRB,1.3879E-07_JPRB,1.9866E-07_JPRB/)  
+KBO( :, 4,56, 1) = (/&
+ & 7.3094E-10_JPRB,6.1436E-08_JPRB,1.1839E-07_JPRB,1.7336E-07_JPRB,2.4772E-07_JPRB/)  
+KBO( :, 5,56, 1) = (/&
+ & 9.1271E-10_JPRB,7.4209E-08_JPRB,1.4210E-07_JPRB,2.0734E-07_JPRB,2.9707E-07_JPRB/)  
+KBO( :, 1,57, 1) = (/&
+ & 4.7220E-10_JPRB,1.8526E-08_JPRB,3.5969E-08_JPRB,5.3151E-08_JPRB,7.8305E-08_JPRB/)  
+KBO( :, 2,57, 1) = (/&
+ & 4.6852E-10_JPRB,2.7111E-08_JPRB,5.2630E-08_JPRB,7.7619E-08_JPRB,1.1181E-07_JPRB/)  
+KBO( :, 3,57, 1) = (/&
+ & 4.9708E-10_JPRB,3.6762E-08_JPRB,7.1191E-08_JPRB,1.0471E-07_JPRB,1.4926E-07_JPRB/)  
+KBO( :, 4,57, 1) = (/&
+ & 5.6499E-10_JPRB,4.6985E-08_JPRB,9.0692E-08_JPRB,1.3297E-07_JPRB,1.8882E-07_JPRB/)  
+KBO( :, 5,57, 1) = (/&
+ & 6.9035E-10_JPRB,5.7429E-08_JPRB,1.1024E-07_JPRB,1.6105E-07_JPRB,2.2899E-07_JPRB/)  
+KBO( :, 1,58, 1) = (/&
+ & 3.9157E-10_JPRB,1.3270E-08_JPRB,2.5747E-08_JPRB,3.8061E-08_JPRB,5.5988E-08_JPRB/)  
+KBO( :, 2,58, 1) = (/&
+ & 3.8162E-10_JPRB,1.9958E-08_JPRB,3.8768E-08_JPRB,5.7217E-08_JPRB,8.2152E-08_JPRB/)  
+KBO( :, 3,58, 1) = (/&
+ & 3.9640E-10_JPRB,2.7646E-08_JPRB,5.3592E-08_JPRB,7.8902E-08_JPRB,1.1187E-07_JPRB/)  
+KBO( :, 4,58, 1) = (/&
+ & 4.4118E-10_JPRB,3.5913E-08_JPRB,6.9407E-08_JPRB,1.0187E-07_JPRB,1.4365E-07_JPRB/)  
+KBO( :, 5,58, 1) = (/&
+ & 5.2734E-10_JPRB,4.4431E-08_JPRB,8.5459E-08_JPRB,1.2500E-07_JPRB,1.7617E-07_JPRB/)  
+KBO( :, 1,59, 1) = (/&
+ & 3.2257E-10_JPRB,1.0274E-08_JPRB,1.9927E-08_JPRB,2.9461E-08_JPRB,4.2293E-08_JPRB/)  
+KBO( :, 2,59, 1) = (/&
+ & 3.1226E-10_JPRB,1.5633E-08_JPRB,3.0371E-08_JPRB,4.4840E-08_JPRB,6.3166E-08_JPRB/)  
+KBO( :, 3,59, 1) = (/&
+ & 3.2148E-10_JPRB,2.1846E-08_JPRB,4.2369E-08_JPRB,6.2405E-08_JPRB,8.6964E-08_JPRB/)  
+KBO( :, 4,59, 1) = (/&
+ & 3.5488E-10_JPRB,2.8579E-08_JPRB,5.5262E-08_JPRB,8.1150E-08_JPRB,1.1238E-07_JPRB/)  
+KBO( :, 5,59, 1) = (/&
+ & 4.2035E-10_JPRB,3.5535E-08_JPRB,6.8411E-08_JPRB,1.0012E-07_JPRB,1.3828E-07_JPRB/)  
+KBO( :, 1,13, 2) = (/&
+ & 8.0175E-06_JPRB,1.6125E-03_JPRB,3.1478E-03_JPRB,4.6753E-03_JPRB,6.4316E-03_JPRB/)  
+KBO( :, 2,13, 2) = (/&
+ & 1.0426E-05_JPRB,1.8783E-03_JPRB,3.6140E-03_JPRB,5.3229E-03_JPRB,7.3431E-03_JPRB/)  
+KBO( :, 3,13, 2) = (/&
+ & 1.4927E-05_JPRB,2.1311E-03_JPRB,4.0477E-03_JPRB,5.8993E-03_JPRB,8.1260E-03_JPRB/)  
+KBO( :, 4,13, 2) = (/&
+ & 2.2809E-05_JPRB,2.3738E-03_JPRB,4.4493E-03_JPRB,6.4056E-03_JPRB,8.7767E-03_JPRB/)  
+KBO( :, 5,13, 2) = (/&
+ & 3.5487E-05_JPRB,2.6072E-03_JPRB,4.8181E-03_JPRB,6.8488E-03_JPRB,9.2993E-03_JPRB/)  
+KBO( :, 1,14, 2) = (/&
+ & 6.7524E-06_JPRB,1.3623E-03_JPRB,2.6470E-03_JPRB,3.9213E-03_JPRB,5.3373E-03_JPRB/)  
+KBO( :, 2,14, 2) = (/&
+ & 8.8908E-06_JPRB,1.5796E-03_JPRB,3.0298E-03_JPRB,4.4457E-03_JPRB,6.0495E-03_JPRB/)  
+KBO( :, 3,14, 2) = (/&
+ & 1.2884E-05_JPRB,1.7866E-03_JPRB,3.3866E-03_JPRB,4.9144E-03_JPRB,6.6539E-03_JPRB/)  
+KBO( :, 4,14, 2) = (/&
+ & 1.9813E-05_JPRB,1.9855E-03_JPRB,3.7147E-03_JPRB,5.3297E-03_JPRB,7.1488E-03_JPRB/)  
+KBO( :, 5,14, 2) = (/&
+ & 3.0910E-05_JPRB,2.1779E-03_JPRB,4.0162E-03_JPRB,5.6950E-03_JPRB,7.5412E-03_JPRB/)  
+KBO( :, 1,15, 2) = (/&
+ & 5.7112E-06_JPRB,1.1474E-03_JPRB,2.2216E-03_JPRB,3.2811E-03_JPRB,4.4313E-03_JPRB/)  
+KBO( :, 2,15, 2) = (/&
+ & 7.6208E-06_JPRB,1.3247E-03_JPRB,2.5364E-03_JPRB,3.7071E-03_JPRB,4.9919E-03_JPRB/)  
+KBO( :, 3,15, 2) = (/&
+ & 1.1171E-05_JPRB,1.4944E-03_JPRB,2.8273E-03_JPRB,4.0906E-03_JPRB,5.4623E-03_JPRB/)  
+KBO( :, 4,15, 2) = (/&
+ & 1.7286E-05_JPRB,1.6573E-03_JPRB,3.0948E-03_JPRB,4.4313E-03_JPRB,5.8428E-03_JPRB/)  
+KBO( :, 5,15, 2) = (/&
+ & 2.7064E-05_JPRB,1.8170E-03_JPRB,3.3404E-03_JPRB,4.7290E-03_JPRB,6.1397E-03_JPRB/)  
+KBO( :, 1,16, 2) = (/&
+ & 4.8419E-06_JPRB,9.6341E-04_JPRB,1.8620E-03_JPRB,2.7407E-03_JPRB,3.6858E-03_JPRB/)  
+KBO( :, 2,16, 2) = (/&
+ & 6.5431E-06_JPRB,1.1085E-03_JPRB,2.1191E-03_JPRB,3.0886E-03_JPRB,4.1319E-03_JPRB/)  
+KBO( :, 3,16, 2) = (/&
+ & 9.6991E-06_JPRB,1.2471E-03_JPRB,2.3556E-03_JPRB,3.4027E-03_JPRB,4.5021E-03_JPRB/)  
+KBO( :, 4,16, 2) = (/&
+ & 1.5112E-05_JPRB,1.3813E-03_JPRB,2.5735E-03_JPRB,3.6791E-03_JPRB,4.7992E-03_JPRB/)  
+KBO( :, 5,16, 2) = (/&
+ & 2.3687E-05_JPRB,1.5146E-03_JPRB,2.7739E-03_JPRB,3.9205E-03_JPRB,5.0294E-03_JPRB/)  
+KBO( :, 1,17, 2) = (/&
+ & 4.1046E-06_JPRB,8.0658E-04_JPRB,1.5568E-03_JPRB,2.2850E-03_JPRB,3.0607E-03_JPRB/)  
+KBO( :, 2,17, 2) = (/&
+ & 5.6128E-06_JPRB,9.2491E-04_JPRB,1.7657E-03_JPRB,2.5701E-03_JPRB,3.4165E-03_JPRB/)  
+KBO( :, 3,17, 2) = (/&
+ & 8.4118E-06_JPRB,1.0386E-03_JPRB,1.9589E-03_JPRB,2.8258E-03_JPRB,3.7101E-03_JPRB/)  
+KBO( :, 4,17, 2) = (/&
+ & 1.3163E-05_JPRB,1.1499E-03_JPRB,2.1360E-03_JPRB,3.0493E-03_JPRB,3.9433E-03_JPRB/)  
+KBO( :, 5,17, 2) = (/&
+ & 2.0607E-05_JPRB,1.2605E-03_JPRB,2.3001E-03_JPRB,3.2445E-03_JPRB,4.1227E-03_JPRB/)  
+KBO( :, 1,18, 2) = (/&
+ & 3.4787E-06_JPRB,6.7375E-04_JPRB,1.2987E-03_JPRB,1.9033E-03_JPRB,2.5394E-03_JPRB/)  
+KBO( :, 2,18, 2) = (/&
+ & 4.8193E-06_JPRB,7.7048E-04_JPRB,1.4690E-03_JPRB,2.1362E-03_JPRB,2.8237E-03_JPRB/)  
+KBO( :, 3,18, 2) = (/&
+ & 7.2913E-06_JPRB,8.6393E-04_JPRB,1.6256E-03_JPRB,2.3423E-03_JPRB,3.0558E-03_JPRB/)  
+KBO( :, 4,18, 2) = (/&
+ & 1.1432E-05_JPRB,9.5623E-04_JPRB,1.7704E-03_JPRB,2.5237E-03_JPRB,3.2404E-03_JPRB/)  
+KBO( :, 5,18, 2) = (/&
+ & 1.7868E-05_JPRB,1.0481E-03_JPRB,1.9053E-03_JPRB,2.6812E-03_JPRB,3.3808E-03_JPRB/)  
+KBO( :, 1,19, 2) = (/&
+ & 2.9467E-06_JPRB,5.6177E-04_JPRB,1.0818E-03_JPRB,1.5840E-03_JPRB,2.1035E-03_JPRB/)  
+KBO( :, 2,19, 2) = (/&
+ & 4.1364E-06_JPRB,6.4090E-04_JPRB,1.2199E-03_JPRB,1.7723E-03_JPRB,2.3300E-03_JPRB/)  
+KBO( :, 3,19, 2) = (/&
+ & 6.2999E-06_JPRB,7.1829E-04_JPRB,1.3476E-03_JPRB,1.9398E-03_JPRB,2.5147E-03_JPRB/)  
+KBO( :, 4,19, 2) = (/&
+ & 9.8879E-06_JPRB,7.9456E-04_JPRB,1.4667E-03_JPRB,2.0867E-03_JPRB,2.6608E-03_JPRB/)  
+KBO( :, 5,19, 2) = (/&
+ & 1.5425E-05_JPRB,8.7102E-04_JPRB,1.5773E-03_JPRB,2.2143E-03_JPRB,2.7707E-03_JPRB/)  
+KBO( :, 1,20, 2) = (/&
+ & 2.5100E-06_JPRB,4.6893E-04_JPRB,9.0169E-04_JPRB,1.3192E-03_JPRB,1.7452E-03_JPRB/)  
+KBO( :, 2,20, 2) = (/&
+ & 3.5701E-06_JPRB,5.3398E-04_JPRB,1.0139E-03_JPRB,1.4717E-03_JPRB,1.9261E-03_JPRB/)  
+KBO( :, 3,20, 2) = (/&
+ & 5.4715E-06_JPRB,5.9772E-04_JPRB,1.1181E-03_JPRB,1.6068E-03_JPRB,2.0724E-03_JPRB/)  
+KBO( :, 4,20, 2) = (/&
+ & 8.5950E-06_JPRB,6.6090E-04_JPRB,1.2157E-03_JPRB,1.7253E-03_JPRB,2.1875E-03_JPRB/)  
+KBO( :, 5,20, 2) = (/&
+ & 1.3366E-05_JPRB,7.2450E-04_JPRB,1.3064E-03_JPRB,1.8293E-03_JPRB,2.2741E-03_JPRB/)  
+KBO( :, 1,21, 2) = (/&
+ & 2.1419E-06_JPRB,3.9129E-04_JPRB,7.5108E-04_JPRB,1.0978E-03_JPRB,1.4477E-03_JPRB/)  
+KBO( :, 2,21, 2) = (/&
+ & 3.0823E-06_JPRB,4.4480E-04_JPRB,8.4226E-04_JPRB,1.2211E-03_JPRB,1.5919E-03_JPRB/)  
+KBO( :, 3,21, 2) = (/&
+ & 4.7515E-06_JPRB,4.9734E-04_JPRB,9.2759E-04_JPRB,1.3300E-03_JPRB,1.7080E-03_JPRB/)  
+KBO( :, 4,21, 2) = (/&
+ & 7.4611E-06_JPRB,5.4971E-04_JPRB,1.0075E-03_JPRB,1.4263E-03_JPRB,1.7988E-03_JPRB/)  
+KBO( :, 5,21, 2) = (/&
+ & 1.1567E-05_JPRB,6.0267E-04_JPRB,1.0819E-03_JPRB,1.5108E-03_JPRB,1.8668E-03_JPRB/)  
+KBO( :, 1,22, 2) = (/&
+ & 1.8692E-06_JPRB,3.2930E-04_JPRB,6.3020E-04_JPRB,9.1986E-04_JPRB,1.2087E-03_JPRB/)  
+KBO( :, 2,22, 2) = (/&
+ & 2.7364E-06_JPRB,3.7324E-04_JPRB,7.0426E-04_JPRB,1.0187E-03_JPRB,1.3222E-03_JPRB/)  
+KBO( :, 3,22, 2) = (/&
+ & 4.2483E-06_JPRB,4.1663E-04_JPRB,7.7378E-04_JPRB,1.1062E-03_JPRB,1.4133E-03_JPRB/)  
+KBO( :, 4,22, 2) = (/&
+ & 6.6614E-06_JPRB,4.6001E-04_JPRB,8.3899E-04_JPRB,1.1837E-03_JPRB,1.4836E-03_JPRB/)  
+KBO( :, 5,22, 2) = (/&
+ & 1.0283E-05_JPRB,5.0444E-04_JPRB,8.9986E-04_JPRB,1.2517E-03_JPRB,1.5358E-03_JPRB/)  
+KBO( :, 1,23, 2) = (/&
+ & 1.6399E-06_JPRB,2.7719E-04_JPRB,5.2862E-04_JPRB,7.7027E-04_JPRB,1.0088E-03_JPRB/)  
+KBO( :, 2,23, 2) = (/&
+ & 2.4391E-06_JPRB,3.1328E-04_JPRB,5.8895E-04_JPRB,8.4951E-04_JPRB,1.0980E-03_JPRB/)  
+KBO( :, 3,23, 2) = (/&
+ & 3.8063E-06_JPRB,3.4908E-04_JPRB,6.4555E-04_JPRB,9.1997E-04_JPRB,1.1688E-03_JPRB/)  
+KBO( :, 4,23, 2) = (/&
+ & 5.9548E-06_JPRB,3.8523E-04_JPRB,6.9879E-04_JPRB,9.8233E-04_JPRB,1.2233E-03_JPRB/)  
+KBO( :, 5,23, 2) = (/&
+ & 9.1467E-06_JPRB,4.2262E-04_JPRB,7.4870E-04_JPRB,1.0371E-03_JPRB,1.2635E-03_JPRB/)  
+KBO( :, 1,24, 2) = (/&
+ & 1.4486E-06_JPRB,2.3343E-04_JPRB,4.4362E-04_JPRB,6.4490E-04_JPRB,8.4150E-04_JPRB/)  
+KBO( :, 2,24, 2) = (/&
+ & 2.1847E-06_JPRB,2.6312E-04_JPRB,4.9268E-04_JPRB,7.0858E-04_JPRB,9.1131E-04_JPRB/)  
+KBO( :, 3,24, 2) = (/&
+ & 3.4199E-06_JPRB,2.9273E-04_JPRB,5.3880E-04_JPRB,7.6525E-04_JPRB,9.6646E-04_JPRB/)  
+KBO( :, 4,24, 2) = (/&
+ & 5.3366E-06_JPRB,3.2305E-04_JPRB,5.8221E-04_JPRB,8.1539E-04_JPRB,1.0083E-03_JPRB/)  
+KBO( :, 5,24, 2) = (/&
+ & 8.1557E-06_JPRB,3.5422E-04_JPRB,6.2350E-04_JPRB,8.5963E-04_JPRB,1.0390E-03_JPRB/)  
+KBO( :, 1,25, 2) = (/&
+ & 1.2896E-06_JPRB,1.9674E-04_JPRB,3.7250E-04_JPRB,5.4009E-04_JPRB,7.0204E-04_JPRB/)  
+KBO( :, 2,25, 2) = (/&
+ & 1.9685E-06_JPRB,2.2117E-04_JPRB,4.1236E-04_JPRB,5.9119E-04_JPRB,7.5627E-04_JPRB/)  
+KBO( :, 3,25, 2) = (/&
+ & 3.0862E-06_JPRB,2.4587E-04_JPRB,4.4997E-04_JPRB,6.3678E-04_JPRB,7.9915E-04_JPRB/)  
+KBO( :, 4,25, 2) = (/&
+ & 4.8005E-06_JPRB,2.7122E-04_JPRB,4.8550E-04_JPRB,6.7707E-04_JPRB,8.3122E-04_JPRB/)  
+KBO( :, 5,25, 2) = (/&
+ & 7.2939E-06_JPRB,2.9701E-04_JPRB,5.1977E-04_JPRB,7.1279E-04_JPRB,8.5451E-04_JPRB/)  
+KBO( :, 1,26, 2) = (/&
+ & 1.1608E-06_JPRB,1.6612E-04_JPRB,3.1323E-04_JPRB,4.5281E-04_JPRB,5.8594E-04_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART13',1,ZHOOK_HANDLE)
+END SUBROUTINE PART13
+
+
+SUBROUTINE PART14
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART14',0,ZHOOK_HANDLE)
+
+
+KBO( :, 2,26, 2) = (/&
+ & 1.7905E-06_JPRB,1.8633E-04_JPRB,3.4562E-04_JPRB,4.9378E-04_JPRB,6.2806E-04_JPRB/)  
+KBO( :, 3,26, 2) = (/&
+ & 2.8083E-06_JPRB,2.0700E-04_JPRB,3.7628E-04_JPRB,5.3030E-04_JPRB,6.6095E-04_JPRB/)  
+KBO( :, 4,26, 2) = (/&
+ & 4.3494E-06_JPRB,2.2796E-04_JPRB,4.0557E-04_JPRB,5.6268E-04_JPRB,6.8538E-04_JPRB/)  
+KBO( :, 5,26, 2) = (/&
+ & 6.5643E-06_JPRB,2.4920E-04_JPRB,4.3382E-04_JPRB,5.9177E-04_JPRB,7.0285E-04_JPRB/)  
+KBO( :, 1,27, 2) = (/&
+ & 1.0500E-06_JPRB,1.4026E-04_JPRB,2.6331E-04_JPRB,3.7943E-04_JPRB,4.8869E-04_JPRB/)  
+KBO( :, 2,27, 2) = (/&
+ & 1.6326E-06_JPRB,1.5709E-04_JPRB,2.8964E-04_JPRB,4.1228E-04_JPRB,5.2142E-04_JPRB/)  
+KBO( :, 3,27, 2) = (/&
+ & 2.5571E-06_JPRB,1.7422E-04_JPRB,3.1477E-04_JPRB,4.4154E-04_JPRB,5.4660E-04_JPRB/)  
+KBO( :, 4,27, 2) = (/&
+ & 3.9402E-06_JPRB,1.9156E-04_JPRB,3.3894E-04_JPRB,4.6764E-04_JPRB,5.6523E-04_JPRB/)  
+KBO( :, 5,27, 2) = (/&
+ & 5.9052E-06_JPRB,2.0883E-04_JPRB,3.6207E-04_JPRB,4.9151E-04_JPRB,5.7833E-04_JPRB/)  
+KBO( :, 1,28, 2) = (/&
+ & 9.5343E-07_JPRB,1.1844E-04_JPRB,2.2122E-04_JPRB,3.1775E-04_JPRB,4.0735E-04_JPRB/)  
+KBO( :, 2,28, 2) = (/&
+ & 1.4904E-06_JPRB,1.3245E-04_JPRB,2.4271E-04_JPRB,3.4408E-04_JPRB,4.3267E-04_JPRB/)  
+KBO( :, 3,28, 2) = (/&
+ & 2.3285E-06_JPRB,1.4658E-04_JPRB,2.6343E-04_JPRB,3.6757E-04_JPRB,4.5198E-04_JPRB/)  
+KBO( :, 4,28, 2) = (/&
+ & 3.5672E-06_JPRB,1.6074E-04_JPRB,2.8315E-04_JPRB,3.8877E-04_JPRB,4.6611E-04_JPRB/)  
+KBO( :, 5,28, 2) = (/&
+ & 5.3086E-06_JPRB,1.7472E-04_JPRB,3.0190E-04_JPRB,4.0830E-04_JPRB,4.7586E-04_JPRB/)  
+KBO( :, 1,29, 2) = (/&
+ & 8.7130E-07_JPRB,1.0013E-04_JPRB,1.8593E-04_JPRB,2.6607E-04_JPRB,3.3959E-04_JPRB/)  
+KBO( :, 2,29, 2) = (/&
+ & 1.3662E-06_JPRB,1.1169E-04_JPRB,2.0357E-04_JPRB,2.8717E-04_JPRB,3.5915E-04_JPRB/)  
+KBO( :, 3,29, 2) = (/&
+ & 2.1272E-06_JPRB,1.2329E-04_JPRB,2.2053E-04_JPRB,3.0613E-04_JPRB,3.7392E-04_JPRB/)  
+KBO( :, 4,29, 2) = (/&
+ & 3.2367E-06_JPRB,1.3475E-04_JPRB,2.3655E-04_JPRB,3.2340E-04_JPRB,3.8475E-04_JPRB/)  
+KBO( :, 5,29, 2) = (/&
+ & 4.7798E-06_JPRB,1.4613E-04_JPRB,2.5163E-04_JPRB,3.3924E-04_JPRB,3.9199E-04_JPRB/)  
+KBO( :, 1,30, 2) = (/&
+ & 7.9857E-07_JPRB,8.4615E-05_JPRB,1.5625E-04_JPRB,2.2266E-04_JPRB,2.8295E-04_JPRB/)  
+KBO( :, 2,30, 2) = (/&
+ & 1.2528E-06_JPRB,9.4125E-05_JPRB,1.7078E-04_JPRB,2.3961E-04_JPRB,2.9806E-04_JPRB/)  
+KBO( :, 3,30, 2) = (/&
+ & 1.9419E-06_JPRB,1.0355E-04_JPRB,1.8452E-04_JPRB,2.5499E-04_JPRB,3.0943E-04_JPRB/)  
+KBO( :, 4,30, 2) = (/&
+ & 2.9342E-06_JPRB,1.1289E-04_JPRB,1.9751E-04_JPRB,2.6906E-04_JPRB,3.1766E-04_JPRB/)  
+KBO( :, 5,30, 2) = (/&
+ & 4.2987E-06_JPRB,1.2210E-04_JPRB,2.0947E-04_JPRB,2.8172E-04_JPRB,3.2307E-04_JPRB/)  
+KBO( :, 1,31, 2) = (/&
+ & 7.3491E-07_JPRB,7.1470E-05_JPRB,1.3139E-04_JPRB,1.8630E-04_JPRB,2.3588E-04_JPRB/)  
+KBO( :, 2,31, 2) = (/&
+ & 1.1514E-06_JPRB,7.9261E-05_JPRB,1.4322E-04_JPRB,1.9997E-04_JPRB,2.4758E-04_JPRB/)  
+KBO( :, 3,31, 2) = (/&
+ & 1.7751E-06_JPRB,8.6934E-05_JPRB,1.5438E-04_JPRB,2.1250E-04_JPRB,2.5633E-04_JPRB/)  
+KBO( :, 4,31, 2) = (/&
+ & 2.6619E-06_JPRB,9.4503E-05_JPRB,1.6470E-04_JPRB,2.2379E-04_JPRB,2.6262E-04_JPRB/)  
+KBO( :, 5,31, 2) = (/&
+ & 3.8682E-06_JPRB,1.0203E-04_JPRB,1.7422E-04_JPRB,2.3379E-04_JPRB,2.6667E-04_JPRB/)  
+KBO( :, 1,32, 2) = (/&
+ & 6.7761E-07_JPRB,6.0344E-05_JPRB,1.1046E-04_JPRB,1.5585E-04_JPRB,1.9661E-04_JPRB/)  
+KBO( :, 2,32, 2) = (/&
+ & 1.0588E-06_JPRB,6.6689E-05_JPRB,1.2006E-04_JPRB,1.6697E-04_JPRB,2.0563E-04_JPRB/)  
+KBO( :, 3,32, 2) = (/&
+ & 1.6222E-06_JPRB,7.2918E-05_JPRB,1.2900E-04_JPRB,1.7702E-04_JPRB,2.1238E-04_JPRB/)  
+KBO( :, 4,32, 2) = (/&
+ & 2.4128E-06_JPRB,7.9073E-05_JPRB,1.3719E-04_JPRB,1.8602E-04_JPRB,2.1720E-04_JPRB/)  
+KBO( :, 5,32, 2) = (/&
+ & 3.4779E-06_JPRB,8.5263E-05_JPRB,1.4481E-04_JPRB,1.9388E-04_JPRB,2.2025E-04_JPRB/)  
+KBO( :, 1,33, 2) = (/&
+ & 6.2527E-07_JPRB,5.0902E-05_JPRB,9.2812E-05_JPRB,1.3037E-04_JPRB,1.6382E-04_JPRB/)  
+KBO( :, 2,33, 2) = (/&
+ & 9.7334E-07_JPRB,5.6048E-05_JPRB,1.0055E-04_JPRB,1.3935E-04_JPRB,1.7082E-04_JPRB/)  
+KBO( :, 3,33, 2) = (/&
+ & 1.4801E-06_JPRB,6.1101E-05_JPRB,1.0766E-04_JPRB,1.4740E-04_JPRB,1.7611E-04_JPRB/)  
+KBO( :, 4,33, 2) = (/&
+ & 2.1838E-06_JPRB,6.6144E-05_JPRB,1.1420E-04_JPRB,1.5452E-04_JPRB,1.7978E-04_JPRB/)  
+KBO( :, 5,33, 2) = (/&
+ & 3.1224E-06_JPRB,7.1225E-05_JPRB,1.2030E-04_JPRB,1.6062E-04_JPRB,1.8204E-04_JPRB/)  
+KBO( :, 1,34, 2) = (/&
+ & 5.6731E-07_JPRB,4.2730E-05_JPRB,7.7685E-05_JPRB,1.0877E-04_JPRB,1.3615E-04_JPRB/)  
+KBO( :, 2,34, 2) = (/&
+ & 8.7950E-07_JPRB,4.6905E-05_JPRB,8.3883E-05_JPRB,1.1598E-04_JPRB,1.4163E-04_JPRB/)  
+KBO( :, 3,34, 2) = (/&
+ & 1.3287E-06_JPRB,5.1034E-05_JPRB,8.9565E-05_JPRB,1.2242E-04_JPRB,1.4574E-04_JPRB/)  
+KBO( :, 4,34, 2) = (/&
+ & 1.9464E-06_JPRB,5.5143E-05_JPRB,9.4797E-05_JPRB,1.2801E-04_JPRB,1.4856E-04_JPRB/)  
+KBO( :, 5,34, 2) = (/&
+ & 2.7640E-06_JPRB,5.9346E-05_JPRB,9.9732E-05_JPRB,1.3280E-04_JPRB,1.5030E-04_JPRB/)  
+KBO( :, 1,35, 2) = (/&
+ & 4.9270E-07_JPRB,3.5501E-05_JPRB,6.4454E-05_JPRB,9.0102E-05_JPRB,1.1262E-04_JPRB/)  
+KBO( :, 2,35, 2) = (/&
+ & 7.6173E-07_JPRB,3.8902E-05_JPRB,6.9450E-05_JPRB,9.5970E-05_JPRB,1.1707E-04_JPRB/)  
+KBO( :, 3,35, 2) = (/&
+ & 1.1464E-06_JPRB,4.2272E-05_JPRB,7.4027E-05_JPRB,1.0112E-04_JPRB,1.2036E-04_JPRB/)  
+KBO( :, 4,35, 2) = (/&
+ & 1.6726E-06_JPRB,4.5640E-05_JPRB,7.8266E-05_JPRB,1.0556E-04_JPRB,1.2264E-04_JPRB/)  
+KBO( :, 5,35, 2) = (/&
+ & 2.3658E-06_JPRB,4.9091E-05_JPRB,8.2279E-05_JPRB,1.0938E-04_JPRB,1.2407E-04_JPRB/)  
+KBO( :, 1,36, 2) = (/&
+ & 4.0753E-07_JPRB,2.9178E-05_JPRB,5.2991E-05_JPRB,7.4090E-05_JPRB,9.2739E-05_JPRB/)  
+KBO( :, 2,36, 2) = (/&
+ & 6.2965E-07_JPRB,3.1953E-05_JPRB,5.7057E-05_JPRB,7.8888E-05_JPRB,9.6418E-05_JPRB/)  
+KBO( :, 3,36, 2) = (/&
+ & 9.4705E-07_JPRB,3.4706E-05_JPRB,6.0784E-05_JPRB,8.3065E-05_JPRB,9.9161E-05_JPRB/)  
+KBO( :, 4,36, 2) = (/&
+ & 1.3808E-06_JPRB,3.7469E-05_JPRB,6.4241E-05_JPRB,8.6658E-05_JPRB,1.0108E-04_JPRB/)  
+KBO( :, 5,36, 2) = (/&
+ & 1.9520E-06_JPRB,4.0294E-05_JPRB,6.7509E-05_JPRB,8.9744E-05_JPRB,1.0229E-04_JPRB/)  
+KBO( :, 1,37, 2) = (/&
+ & 3.1476E-07_JPRB,2.3629E-05_JPRB,4.3024E-05_JPRB,6.0274E-05_JPRB,7.5761E-05_JPRB/)  
+KBO( :, 2,37, 2) = (/&
+ & 4.8773E-07_JPRB,2.5900E-05_JPRB,4.6378E-05_JPRB,6.4261E-05_JPRB,7.8929E-05_JPRB/)  
+KBO( :, 3,37, 2) = (/&
+ & 7.3652E-07_JPRB,2.8152E-05_JPRB,4.9455E-05_JPRB,6.7730E-05_JPRB,8.1326E-05_JPRB/)  
+KBO( :, 4,37, 2) = (/&
+ & 1.0783E-06_JPRB,3.0411E-05_JPRB,5.2306E-05_JPRB,7.0712E-05_JPRB,8.3006E-05_JPRB/)  
+KBO( :, 5,37, 2) = (/&
+ & 1.5305E-06_JPRB,3.2717E-05_JPRB,5.4998E-05_JPRB,7.3285E-05_JPRB,8.4133E-05_JPRB/)  
+KBO( :, 1,38, 2) = (/&
+ & 2.4210E-07_JPRB,1.9112E-05_JPRB,3.4895E-05_JPRB,4.8985E-05_JPRB,6.1887E-05_JPRB/)  
+KBO( :, 2,38, 2) = (/&
+ & 3.7627E-07_JPRB,2.0975E-05_JPRB,3.7671E-05_JPRB,5.2313E-05_JPRB,6.4617E-05_JPRB/)  
+KBO( :, 3,38, 2) = (/&
+ & 5.7052E-07_JPRB,2.2818E-05_JPRB,4.0210E-05_JPRB,5.5193E-05_JPRB,6.6701E-05_JPRB/)  
+KBO( :, 4,38, 2) = (/&
+ & 8.3911E-07_JPRB,2.4669E-05_JPRB,4.2570E-05_JPRB,5.7682E-05_JPRB,6.8211E-05_JPRB/)  
+KBO( :, 5,38, 2) = (/&
+ & 1.1958E-06_JPRB,2.6548E-05_JPRB,4.4784E-05_JPRB,5.9818E-05_JPRB,6.9237E-05_JPRB/)  
+KBO( :, 1,39, 2) = (/&
+ & 1.8625E-07_JPRB,1.5459E-05_JPRB,2.8298E-05_JPRB,3.9805E-05_JPRB,5.0586E-05_JPRB/)  
+KBO( :, 2,39, 2) = (/&
+ & 2.9016E-07_JPRB,1.6986E-05_JPRB,3.0594E-05_JPRB,4.2577E-05_JPRB,5.2943E-05_JPRB/)  
+KBO( :, 3,39, 2) = (/&
+ & 4.4173E-07_JPRB,1.8495E-05_JPRB,3.2693E-05_JPRB,4.4970E-05_JPRB,5.4767E-05_JPRB/)  
+KBO( :, 4,39, 2) = (/&
+ & 6.5253E-07_JPRB,2.0005E-05_JPRB,3.4636E-05_JPRB,4.7036E-05_JPRB,5.6106E-05_JPRB/)  
+KBO( :, 5,39, 2) = (/&
+ & 9.3398E-07_JPRB,2.1545E-05_JPRB,3.6467E-05_JPRB,4.8821E-05_JPRB,5.7052E-05_JPRB/)  
+KBO( :, 1,40, 2) = (/&
+ & 1.3668E-07_JPRB,1.2370E-05_JPRB,2.2736E-05_JPRB,3.2075E-05_JPRB,4.1000E-05_JPRB/)  
+KBO( :, 2,40, 2) = (/&
+ & 2.1371E-07_JPRB,1.3625E-05_JPRB,2.4652E-05_JPRB,3.4419E-05_JPRB,4.3071E-05_JPRB/)  
+KBO( :, 3,40, 2) = (/&
+ & 3.2755E-07_JPRB,1.4863E-05_JPRB,2.6404E-05_JPRB,3.6442E-05_JPRB,4.4686E-05_JPRB/)  
+KBO( :, 4,40, 2) = (/&
+ & 4.8754E-07_JPRB,1.6102E-05_JPRB,2.8025E-05_JPRB,3.8191E-05_JPRB,4.5890E-05_JPRB/)  
+KBO( :, 5,40, 2) = (/&
+ & 7.0305E-07_JPRB,1.7351E-05_JPRB,2.9541E-05_JPRB,3.9702E-05_JPRB,4.6757E-05_JPRB/)  
+KBO( :, 1,41, 2) = (/&
+ & 9.9669E-08_JPRB,9.8770E-06_JPRB,1.8228E-05_JPRB,2.5797E-05_JPRB,3.3169E-05_JPRB/)  
+KBO( :, 2,41, 2) = (/&
+ & 1.5628E-07_JPRB,1.0911E-05_JPRB,1.9833E-05_JPRB,2.7783E-05_JPRB,3.4989E-05_JPRB/)  
+KBO( :, 3,41, 2) = (/&
+ & 2.4106E-07_JPRB,1.1926E-05_JPRB,2.1297E-05_JPRB,2.9495E-05_JPRB,3.6412E-05_JPRB/)  
+KBO( :, 4,41, 2) = (/&
+ & 3.6163E-07_JPRB,1.2938E-05_JPRB,2.2645E-05_JPRB,3.0975E-05_JPRB,3.7495E-05_JPRB/)  
+KBO( :, 5,41, 2) = (/&
+ & 5.2576E-07_JPRB,1.3959E-05_JPRB,2.3909E-05_JPRB,3.2258E-05_JPRB,3.8288E-05_JPRB/)  
+KBO( :, 1,42, 2) = (/&
+ & 7.2678E-08_JPRB,7.8801E-06_JPRB,1.4600E-05_JPRB,2.0724E-05_JPRB,2.6808E-05_JPRB/)  
+KBO( :, 2,42, 2) = (/&
+ & 1.1413E-07_JPRB,8.7322E-06_JPRB,1.5944E-05_JPRB,2.2404E-05_JPRB,2.8406E-05_JPRB/)  
+KBO( :, 3,42, 2) = (/&
+ & 1.7705E-07_JPRB,9.5648E-06_JPRB,1.7165E-05_JPRB,2.3855E-05_JPRB,2.9660E-05_JPRB/)  
+KBO( :, 4,42, 2) = (/&
+ & 2.6763E-07_JPRB,1.0394E-05_JPRB,1.8292E-05_JPRB,2.5108E-05_JPRB,3.0631E-05_JPRB/)  
+KBO( :, 5,42, 2) = (/&
+ & 3.9231E-07_JPRB,1.1225E-05_JPRB,1.9340E-05_JPRB,2.6194E-05_JPRB,3.1357E-05_JPRB/)  
+KBO( :, 1,43, 2) = (/&
+ & 5.1710E-08_JPRB,6.2405E-06_JPRB,1.1615E-05_JPRB,1.6545E-05_JPRB,2.1547E-05_JPRB/)  
+KBO( :, 2,43, 2) = (/&
+ & 8.1128E-08_JPRB,6.9428E-06_JPRB,1.2742E-05_JPRB,1.7971E-05_JPRB,2.2964E-05_JPRB/)  
+KBO( :, 3,43, 2) = (/&
+ & 1.2657E-07_JPRB,7.6287E-06_JPRB,1.3773E-05_JPRB,1.9217E-05_JPRB,2.4086E-05_JPRB/)  
+KBO( :, 4,43, 2) = (/&
+ & 1.9308E-07_JPRB,8.3079E-06_JPRB,1.4717E-05_JPRB,2.0287E-05_JPRB,2.4962E-05_JPRB/)  
+KBO( :, 5,43, 2) = (/&
+ & 2.8583E-07_JPRB,8.9896E-06_JPRB,1.5595E-05_JPRB,2.1216E-05_JPRB,2.5632E-05_JPRB/)  
+KBO( :, 1,44, 2) = (/&
+ & 3.6495E-08_JPRB,4.9199E-06_JPRB,9.1989E-06_JPRB,1.3152E-05_JPRB,1.7255E-05_JPRB/)  
+KBO( :, 2,44, 2) = (/&
+ & 5.6951E-08_JPRB,5.5005E-06_JPRB,1.0149E-05_JPRB,1.4368E-05_JPRB,1.8514E-05_JPRB/)  
+KBO( :, 3,44, 2) = (/&
+ & 8.9239E-08_JPRB,6.0652E-06_JPRB,1.1016E-05_JPRB,1.5437E-05_JPRB,1.9519E-05_JPRB/)  
+KBO( :, 4,44, 2) = (/&
+ & 1.3737E-07_JPRB,6.6226E-06_JPRB,1.1811E-05_JPRB,1.6355E-05_JPRB,2.0314E-05_JPRB/)  
+KBO( :, 5,44, 2) = (/&
+ & 2.0554E-07_JPRB,7.1784E-06_JPRB,1.2547E-05_JPRB,1.7152E-05_JPRB,2.0929E-05_JPRB/)  
+KBO( :, 1,45, 2) = (/&
+ & 2.5907E-08_JPRB,3.8721E-06_JPRB,7.2719E-06_JPRB,1.0434E-05_JPRB,1.3790E-05_JPRB/)  
+KBO( :, 2,45, 2) = (/&
+ & 3.9986E-08_JPRB,4.3511E-06_JPRB,8.0697E-06_JPRB,1.1466E-05_JPRB,1.4905E-05_JPRB/)  
+KBO( :, 3,45, 2) = (/&
+ & 6.2804E-08_JPRB,4.8176E-06_JPRB,8.8015E-06_JPRB,1.2382E-05_JPRB,1.5806E-05_JPRB/)  
+KBO( :, 4,45, 2) = (/&
+ & 9.7423E-08_JPRB,5.2749E-06_JPRB,9.4698E-06_JPRB,1.3171E-05_JPRB,1.6523E-05_JPRB/)  
+KBO( :, 5,45, 2) = (/&
+ & 1.4724E-07_JPRB,5.7306E-06_JPRB,1.0089E-05_JPRB,1.3855E-05_JPRB,1.7089E-05_JPRB/)  
+KBO( :, 1,46, 2) = (/&
+ & 1.8373E-08_JPRB,3.0320E-06_JPRB,5.7197E-06_JPRB,8.2358E-06_JPRB,1.0971E-05_JPRB/)  
+KBO( :, 2,46, 2) = (/&
+ & 2.7848E-08_JPRB,3.4277E-06_JPRB,6.3901E-06_JPRB,9.1142E-06_JPRB,1.1956E-05_JPRB/)  
+KBO( :, 3,46, 2) = (/&
+ & 4.3687E-08_JPRB,3.8134E-06_JPRB,7.0085E-06_JPRB,9.9001E-06_JPRB,1.2766E-05_JPRB/)  
+KBO( :, 4,46, 2) = (/&
+ & 6.8194E-08_JPRB,4.1901E-06_JPRB,7.5729E-06_JPRB,1.0581E-05_JPRB,1.3413E-05_JPRB/)  
+KBO( :, 5,46, 2) = (/&
+ & 1.0416E-07_JPRB,4.5633E-06_JPRB,8.0938E-06_JPRB,1.1169E-05_JPRB,1.3933E-05_JPRB/)  
+KBO( :, 1,47, 2) = (/&
+ & 1.2986E-08_JPRB,2.3533E-06_JPRB,4.4615E-06_JPRB,6.4491E-06_JPRB,8.6543E-06_JPRB/)  
+KBO( :, 2,47, 2) = (/&
+ & 1.9128E-08_JPRB,2.6815E-06_JPRB,5.0257E-06_JPRB,7.1971E-06_JPRB,9.5261E-06_JPRB/)  
+KBO( :, 3,47, 2) = (/&
+ & 2.9772E-08_JPRB,3.0001E-06_JPRB,5.5492E-06_JPRB,7.8735E-06_JPRB,1.0255E-05_JPRB/)  
+KBO( :, 4,47, 2) = (/&
+ & 4.6702E-08_JPRB,3.3116E-06_JPRB,6.0282E-06_JPRB,8.4652E-06_JPRB,1.0843E-05_JPRB/)  
+KBO( :, 5,47, 2) = (/&
+ & 7.2070E-08_JPRB,3.6175E-06_JPRB,6.4678E-06_JPRB,8.9726E-06_JPRB,1.1318E-05_JPRB/)  
+KBO( :, 1,48, 2) = (/&
+ & 9.3416E-09_JPRB,1.8200E-06_JPRB,3.4670E-06_JPRB,5.0294E-06_JPRB,6.7990E-06_JPRB/)  
+KBO( :, 2,48, 2) = (/&
+ & 1.3255E-08_JPRB,2.0919E-06_JPRB,3.9405E-06_JPRB,5.6643E-06_JPRB,7.5695E-06_JPRB/)  
+KBO( :, 3,48, 2) = (/&
+ & 2.0305E-08_JPRB,2.3557E-06_JPRB,4.3829E-06_JPRB,6.2449E-06_JPRB,8.2237E-06_JPRB/)  
+KBO( :, 4,48, 2) = (/&
+ & 3.1895E-08_JPRB,2.6129E-06_JPRB,4.7893E-06_JPRB,6.7563E-06_JPRB,8.7563E-06_JPRB/)  
+KBO( :, 5,48, 2) = (/&
+ & 4.9634E-08_JPRB,2.8647E-06_JPRB,5.1614E-06_JPRB,7.1978E-06_JPRB,9.1908E-06_JPRB/)  
+KBO( :, 1,49, 2) = (/&
+ & 6.8359E-09_JPRB,1.4019E-06_JPRB,2.6826E-06_JPRB,3.9057E-06_JPRB,5.3233E-06_JPRB/)  
+KBO( :, 2,49, 2) = (/&
+ & 9.2996E-09_JPRB,1.6269E-06_JPRB,3.0793E-06_JPRB,4.4431E-06_JPRB,6.0005E-06_JPRB/)  
+KBO( :, 3,49, 2) = (/&
+ & 1.3902E-08_JPRB,1.8452E-06_JPRB,3.4523E-06_JPRB,4.9386E-06_JPRB,6.5835E-06_JPRB/)  
+KBO( :, 4,49, 2) = (/&
+ & 2.1742E-08_JPRB,2.0580E-06_JPRB,3.7970E-06_JPRB,5.3806E-06_JPRB,7.0678E-06_JPRB/)  
+KBO( :, 5,49, 2) = (/&
+ & 3.4035E-08_JPRB,2.2660E-06_JPRB,4.1122E-06_JPRB,5.7639E-06_JPRB,7.4641E-06_JPRB/)  
+KBO( :, 1,50, 2) = (/&
+ & 5.1178E-09_JPRB,1.0792E-06_JPRB,2.0739E-06_JPRB,3.0301E-06_JPRB,4.1532E-06_JPRB/)  
+KBO( :, 2,50, 2) = (/&
+ & 6.6862E-09_JPRB,1.2653E-06_JPRB,2.4055E-06_JPRB,3.4823E-06_JPRB,4.7385E-06_JPRB/)  
+KBO( :, 3,50, 2) = (/&
+ & 9.6897E-09_JPRB,1.4463E-06_JPRB,2.7192E-06_JPRB,3.9039E-06_JPRB,5.2519E-06_JPRB/)  
+KBO( :, 4,50, 2) = (/&
+ & 1.4989E-08_JPRB,1.6221E-06_JPRB,3.0101E-06_JPRB,4.2829E-06_JPRB,5.6841E-06_JPRB/)  
+KBO( :, 5,50, 2) = (/&
+ & 2.3540E-08_JPRB,1.7939E-06_JPRB,3.2769E-06_JPRB,4.6145E-06_JPRB,6.0402E-06_JPRB/)  
+KBO( :, 1,51, 2) = (/&
+ & 3.8928E-09_JPRB,8.2870E-07_JPRB,1.5995E-06_JPRB,2.3444E-06_JPRB,3.2274E-06_JPRB/)  
+KBO( :, 2,51, 2) = (/&
+ & 4.8976E-09_JPRB,9.8251E-07_JPRB,1.8756E-06_JPRB,2.7234E-06_JPRB,3.7274E-06_JPRB/)  
+KBO( :, 3,51, 2) = (/&
+ & 6.8457E-09_JPRB,1.1323E-06_JPRB,2.1385E-06_JPRB,3.0800E-06_JPRB,4.1752E-06_JPRB/)  
+KBO( :, 4,51, 2) = (/&
+ & 1.0404E-08_JPRB,1.2777E-06_JPRB,2.3837E-06_JPRB,3.4044E-06_JPRB,4.5574E-06_JPRB/)  
+KBO( :, 5,51, 2) = (/&
+ & 1.6329E-08_JPRB,1.4195E-06_JPRB,2.6091E-06_JPRB,3.6893E-06_JPRB,4.8743E-06_JPRB/)  
+KBO( :, 1,52, 2) = (/&
+ & 3.0020E-09_JPRB,6.3363E-07_JPRB,1.2279E-06_JPRB,1.8052E-06_JPRB,2.4975E-06_JPRB/)  
+KBO( :, 2,52, 2) = (/&
+ & 3.6400E-09_JPRB,7.6019E-07_JPRB,1.4569E-06_JPRB,2.1220E-06_JPRB,2.9231E-06_JPRB/)  
+KBO( :, 3,52, 2) = (/&
+ & 4.8925E-09_JPRB,8.8432E-07_JPRB,1.6773E-06_JPRB,2.4234E-06_JPRB,3.3127E-06_JPRB/)  
+KBO( :, 4,52, 2) = (/&
+ & 7.2540E-09_JPRB,1.0045E-06_JPRB,1.8834E-06_JPRB,2.6996E-06_JPRB,3.6485E-06_JPRB/)  
+KBO( :, 5,52, 2) = (/&
+ & 1.1316E-08_JPRB,1.1218E-06_JPRB,2.0739E-06_JPRB,2.9444E-06_JPRB,3.9318E-06_JPRB/)  
+KBO( :, 1,53, 2) = (/&
+ & 2.3480E-09_JPRB,4.8194E-07_JPRB,9.3751E-07_JPRB,1.3817E-06_JPRB,1.9236E-06_JPRB/)  
+KBO( :, 2,53, 2) = (/&
+ & 2.7431E-09_JPRB,5.8562E-07_JPRB,1.1268E-06_JPRB,1.6465E-06_JPRB,2.2857E-06_JPRB/)  
+KBO( :, 3,53, 2) = (/&
+ & 3.5464E-09_JPRB,6.8845E-07_JPRB,1.3110E-06_JPRB,1.8999E-06_JPRB,2.6221E-06_JPRB/)  
+KBO( :, 4,53, 2) = (/&
+ & 5.0907E-09_JPRB,7.8797E-07_JPRB,1.4844E-06_JPRB,2.1348E-06_JPRB,2.9184E-06_JPRB/)  
+KBO( :, 5,53, 2) = (/&
+ & 7.8410E-09_JPRB,8.8479E-07_JPRB,1.6450E-06_JPRB,2.3447E-06_JPRB,3.1713E-06_JPRB/)  
+KBO( :, 1,54, 2) = (/&
+ & 1.8594E-09_JPRB,3.6706E-07_JPRB,7.1625E-07_JPRB,1.0575E-06_JPRB,1.4721E-06_JPRB/)  
+KBO( :, 2,54, 2) = (/&
+ & 2.1055E-09_JPRB,4.5181E-07_JPRB,8.7256E-07_JPRB,1.2786E-06_JPRB,1.7762E-06_JPRB/)  
+KBO( :, 3,54, 2) = (/&
+ & 2.6291E-09_JPRB,5.3666E-07_JPRB,1.0257E-06_JPRB,1.4904E-06_JPRB,2.0598E-06_JPRB/)  
+KBO( :, 4,54, 2) = (/&
+ & 3.6482E-09_JPRB,6.1906E-07_JPRB,1.1709E-06_JPRB,1.6887E-06_JPRB,2.3147E-06_JPRB/)  
+KBO( :, 5,54, 2) = (/&
+ & 5.5210E-09_JPRB,6.9901E-07_JPRB,1.3059E-06_JPRB,1.8680E-06_JPRB,2.5342E-06_JPRB/)  
+KBO( :, 1,55, 2) = (/&
+ & 1.4849E-09_JPRB,2.7894E-07_JPRB,5.4560E-07_JPRB,8.0660E-07_JPRB,1.1188E-06_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART14',1,ZHOOK_HANDLE)
+END SUBROUTINE PART14
+
+
+SUBROUTINE PART15
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART15',0,ZHOOK_HANDLE)
+
+
+KBO( :, 2,55, 2) = (/&
+ & 1.6383E-09_JPRB,3.4819E-07_JPRB,6.7462E-07_JPRB,9.9127E-07_JPRB,1.3721E-06_JPRB/)  
+KBO( :, 3,55, 2) = (/&
+ & 1.9800E-09_JPRB,4.1799E-07_JPRB,8.0161E-07_JPRB,1.1677E-06_JPRB,1.6084E-06_JPRB/)  
+KBO( :, 4,55, 2) = (/&
+ & 2.6536E-09_JPRB,4.8615E-07_JPRB,9.2306E-07_JPRB,1.3349E-06_JPRB,1.8249E-06_JPRB/)  
+KBO( :, 5,55, 2) = (/&
+ & 3.9260E-09_JPRB,5.5226E-07_JPRB,1.0363E-06_JPRB,1.4870E-06_JPRB,2.0117E-06_JPRB/)  
+KBO( :, 1,56, 2) = (/&
+ & 1.1936E-09_JPRB,2.1075E-07_JPRB,4.1302E-07_JPRB,6.1132E-07_JPRB,8.4513E-07_JPRB/)  
+KBO( :, 2,56, 2) = (/&
+ & 1.2886E-09_JPRB,2.6729E-07_JPRB,5.1942E-07_JPRB,7.6519E-07_JPRB,1.0555E-06_JPRB/)  
+KBO( :, 3,56, 2) = (/&
+ & 1.5077E-09_JPRB,3.2455E-07_JPRB,6.2452E-07_JPRB,9.1202E-07_JPRB,1.2523E-06_JPRB/)  
+KBO( :, 4,56, 2) = (/&
+ & 1.9525E-09_JPRB,3.8098E-07_JPRB,7.2592E-07_JPRB,1.0524E-06_JPRB,1.4345E-06_JPRB/)  
+KBO( :, 5,56, 2) = (/&
+ & 2.8077E-09_JPRB,4.3561E-07_JPRB,8.2084E-07_JPRB,1.1815E-06_JPRB,1.5940E-06_JPRB/)  
+KBO( :, 1,57, 2) = (/&
+ & 9.6583E-10_JPRB,1.5815E-07_JPRB,3.1044E-07_JPRB,4.6005E-07_JPRB,6.3408E-07_JPRB/)  
+KBO( :, 2,57, 2) = (/&
+ & 1.0215E-09_JPRB,2.0426E-07_JPRB,3.9810E-07_JPRB,5.8767E-07_JPRB,8.0766E-07_JPRB/)  
+KBO( :, 3,57, 2) = (/&
+ & 1.1597E-09_JPRB,2.5112E-07_JPRB,4.8491E-07_JPRB,7.0984E-07_JPRB,9.7174E-07_JPRB/)  
+KBO( :, 4,57, 2) = (/&
+ & 1.4523E-09_JPRB,2.9779E-07_JPRB,5.6934E-07_JPRB,8.2739E-07_JPRB,1.1242E-06_JPRB/)  
+KBO( :, 5,57, 2) = (/&
+ & 2.0219E-09_JPRB,3.4296E-07_JPRB,6.4886E-07_JPRB,9.3651E-07_JPRB,1.2602E-06_JPRB/)  
+KBO( :, 1,58, 2) = (/&
+ & 7.8662E-10_JPRB,1.1835E-07_JPRB,2.3255E-07_JPRB,3.4498E-07_JPRB,4.7381E-07_JPRB/)  
+KBO( :, 2,58, 2) = (/&
+ & 8.1625E-10_JPRB,1.5593E-07_JPRB,3.0466E-07_JPRB,4.5040E-07_JPRB,6.1632E-07_JPRB/)  
+KBO( :, 3,58, 2) = (/&
+ & 9.0341E-10_JPRB,1.9427E-07_JPRB,3.7628E-07_JPRB,5.5215E-07_JPRB,7.5284E-07_JPRB/)  
+KBO( :, 4,58, 2) = (/&
+ & 1.0971E-09_JPRB,2.3273E-07_JPRB,4.4632E-07_JPRB,6.5008E-07_JPRB,8.7941E-07_JPRB/)  
+KBO( :, 5,58, 2) = (/&
+ & 1.4779E-09_JPRB,2.7004E-07_JPRB,5.1274E-07_JPRB,7.4188E-07_JPRB,9.9429E-07_JPRB/)  
+KBO( :, 1,59, 2) = (/&
+ & 6.4355E-10_JPRB,9.3344E-08_JPRB,1.8349E-07_JPRB,2.7230E-07_JPRB,3.7011E-07_JPRB/)  
+KBO( :, 2,59, 2) = (/&
+ & 6.6262E-10_JPRB,1.2407E-07_JPRB,2.4261E-07_JPRB,3.5886E-07_JPRB,4.8556E-07_JPRB/)  
+KBO( :, 3,59, 2) = (/&
+ & 7.2712E-10_JPRB,1.5550E-07_JPRB,3.0153E-07_JPRB,4.4284E-07_JPRB,5.9628E-07_JPRB/)  
+KBO( :, 4,59, 2) = (/&
+ & 8.7156E-10_JPRB,1.8704E-07_JPRB,3.5919E-07_JPRB,5.2368E-07_JPRB,6.9842E-07_JPRB/)  
+KBO( :, 5,59, 2) = (/&
+ & 1.1587E-09_JPRB,2.1775E-07_JPRB,4.1408E-07_JPRB,5.9979E-07_JPRB,7.9133E-07_JPRB/)  
+KBO( :, 1,13, 3) = (/&
+ & 2.0353E-05_JPRB,5.6795E-03_JPRB,1.0879E-02_JPRB,1.5836E-02_JPRB,2.0631E-02_JPRB/)  
+KBO( :, 2,13, 3) = (/&
+ & 3.3777E-05_JPRB,6.5066E-03_JPRB,1.2221E-02_JPRB,1.7564E-02_JPRB,2.2630E-02_JPRB/)  
+KBO( :, 3,13, 3) = (/&
+ & 5.9522E-05_JPRB,7.3512E-03_JPRB,1.3499E-02_JPRB,1.9109E-02_JPRB,2.4328E-02_JPRB/)  
+KBO( :, 4,13, 3) = (/&
+ & 1.0349E-04_JPRB,8.2028E-03_JPRB,1.4689E-02_JPRB,2.0461E-02_JPRB,2.5718E-02_JPRB/)  
+KBO( :, 5,13, 3) = (/&
+ & 1.7303E-04_JPRB,9.0516E-03_JPRB,1.5806E-02_JPRB,2.1651E-02_JPRB,2.6820E-02_JPRB/)  
+KBO( :, 1,14, 3) = (/&
+ & 1.7783E-05_JPRB,4.9056E-03_JPRB,9.3358E-03_JPRB,1.3535E-02_JPRB,1.7457E-02_JPRB/)  
+KBO( :, 2,14, 3) = (/&
+ & 3.0011E-05_JPRB,5.5977E-03_JPRB,1.0428E-02_JPRB,1.4906E-02_JPRB,1.8958E-02_JPRB/)  
+KBO( :, 3,14, 3) = (/&
+ & 5.3112E-05_JPRB,6.2970E-03_JPRB,1.1454E-02_JPRB,1.6118E-02_JPRB,2.0210E-02_JPRB/)  
+KBO( :, 4,14, 3) = (/&
+ & 9.2284E-05_JPRB,6.9980E-03_JPRB,1.2425E-02_JPRB,1.7194E-02_JPRB,2.1221E-02_JPRB/)  
+KBO( :, 5,14, 3) = (/&
+ & 1.5395E-04_JPRB,7.6990E-03_JPRB,1.3352E-02_JPRB,1.8155E-02_JPRB,2.2006E-02_JPRB/)  
+KBO( :, 1,15, 3) = (/&
+ & 1.5619E-05_JPRB,4.1987E-03_JPRB,7.9342E-03_JPRB,1.1456E-02_JPRB,1.4646E-02_JPRB/)  
+KBO( :, 2,15, 3) = (/&
+ & 2.6774E-05_JPRB,4.7704E-03_JPRB,8.8150E-03_JPRB,1.2537E-02_JPRB,1.5771E-02_JPRB/)  
+KBO( :, 3,15, 3) = (/&
+ & 4.7563E-05_JPRB,5.3462E-03_JPRB,9.6501E-03_JPRB,1.3503E-02_JPRB,1.6713E-02_JPRB/)  
+KBO( :, 4,15, 3) = (/&
+ & 8.2516E-05_JPRB,5.9238E-03_JPRB,1.0452E-02_JPRB,1.4374E-02_JPRB,1.7466E-02_JPRB/)  
+KBO( :, 5,15, 3) = (/&
+ & 1.3728E-04_JPRB,6.5026E-03_JPRB,1.1222E-02_JPRB,1.5161E-02_JPRB,1.8044E-02_JPRB/)  
+KBO( :, 1,16, 3) = (/&
+ & 1.3779E-05_JPRB,3.5660E-03_JPRB,6.6881E-03_JPRB,9.6171E-03_JPRB,1.2220E-02_JPRB/)  
+KBO( :, 2,16, 3) = (/&
+ & 2.3944E-05_JPRB,4.0358E-03_JPRB,7.4057E-03_JPRB,1.0483E-02_JPRB,1.3089E-02_JPRB/)  
+KBO( :, 3,16, 3) = (/&
+ & 4.2620E-05_JPRB,4.5089E-03_JPRB,8.0943E-03_JPRB,1.1266E-02_JPRB,1.3818E-02_JPRB/)  
+KBO( :, 4,16, 3) = (/&
+ & 7.3893E-05_JPRB,4.9861E-03_JPRB,8.7577E-03_JPRB,1.1978E-02_JPRB,1.4391E-02_JPRB/)  
+KBO( :, 5,16, 3) = (/&
+ & 1.2258E-04_JPRB,5.4637E-03_JPRB,9.3940E-03_JPRB,1.2628E-02_JPRB,1.4828E-02_JPRB/)  
+KBO( :, 1,17, 3) = (/&
+ & 1.2160E-05_JPRB,3.0074E-03_JPRB,5.6060E-03_JPRB,8.0296E-03_JPRB,1.0147E-02_JPRB/)  
+KBO( :, 2,17, 3) = (/&
+ & 2.1375E-05_JPRB,3.3935E-03_JPRB,6.1972E-03_JPRB,8.7313E-03_JPRB,1.0830E-02_JPRB/)  
+KBO( :, 3,17, 3) = (/&
+ & 3.8127E-05_JPRB,3.7835E-03_JPRB,6.7643E-03_JPRB,9.3718E-03_JPRB,1.1398E-02_JPRB/)  
+KBO( :, 4,17, 3) = (/&
+ & 6.6011E-05_JPRB,4.1770E-03_JPRB,7.3104E-03_JPRB,9.9575E-03_JPRB,1.1840E-02_JPRB/)  
+KBO( :, 5,17, 3) = (/&
+ & 1.0918E-04_JPRB,4.5738E-03_JPRB,7.8339E-03_JPRB,1.0495E-02_JPRB,1.2173E-02_JPRB/)  
+KBO( :, 1,18, 3) = (/&
+ & 1.0748E-05_JPRB,2.5245E-03_JPRB,4.6847E-03_JPRB,6.6825E-03_JPRB,8.4030E-03_JPRB/)  
+KBO( :, 2,18, 3) = (/&
+ & 1.9076E-05_JPRB,2.8417E-03_JPRB,5.1713E-03_JPRB,7.2560E-03_JPRB,8.9449E-03_JPRB/)  
+KBO( :, 3,18, 3) = (/&
+ & 3.4073E-05_JPRB,3.1636E-03_JPRB,5.6356E-03_JPRB,7.7811E-03_JPRB,9.3891E-03_JPRB/)  
+KBO( :, 4,18, 3) = (/&
+ & 5.8868E-05_JPRB,3.4883E-03_JPRB,6.0850E-03_JPRB,8.2633E-03_JPRB,9.7334E-03_JPRB/)  
+KBO( :, 5,18, 3) = (/&
+ & 9.7060E-05_JPRB,3.8208E-03_JPRB,6.5140E-03_JPRB,8.7058E-03_JPRB,9.9894E-03_JPRB/)  
+KBO( :, 1,19, 3) = (/&
+ & 9.4932E-06_JPRB,2.1111E-03_JPRB,3.9060E-03_JPRB,5.5505E-03_JPRB,6.9419E-03_JPRB/)  
+KBO( :, 2,19, 3) = (/&
+ & 1.6990E-05_JPRB,2.3724E-03_JPRB,4.3041E-03_JPRB,6.0210E-03_JPRB,7.3719E-03_JPRB/)  
+KBO( :, 3,19, 3) = (/&
+ & 3.0379E-05_JPRB,2.6375E-03_JPRB,4.6850E-03_JPRB,6.4526E-03_JPRB,7.7206E-03_JPRB/)  
+KBO( :, 4,19, 3) = (/&
+ & 5.2318E-05_JPRB,2.9073E-03_JPRB,5.0535E-03_JPRB,6.8468E-03_JPRB,7.9880E-03_JPRB/)  
+KBO( :, 5,19, 3) = (/&
+ & 8.5851E-05_JPRB,3.1863E-03_JPRB,5.4069E-03_JPRB,7.2090E-03_JPRB,8.1842E-03_JPRB/)  
+KBO( :, 1,20, 3) = (/&
+ & 8.4621E-06_JPRB,1.7648E-03_JPRB,3.2563E-03_JPRB,4.6122E-03_JPRB,5.7360E-03_JPRB/)  
+KBO( :, 2,20, 3) = (/&
+ & 1.5250E-05_JPRB,1.9802E-03_JPRB,3.5810E-03_JPRB,4.9972E-03_JPRB,6.0779E-03_JPRB/)  
+KBO( :, 3,20, 3) = (/&
+ & 2.7245E-05_JPRB,2.1990E-03_JPRB,3.8932E-03_JPRB,5.3488E-03_JPRB,6.3511E-03_JPRB/)  
+KBO( :, 4,20, 3) = (/&
+ & 4.6707E-05_JPRB,2.4242E-03_JPRB,4.1953E-03_JPRB,5.6710E-03_JPRB,6.5600E-03_JPRB/)  
+KBO( :, 5,20, 3) = (/&
+ & 7.6165E-05_JPRB,2.6575E-03_JPRB,4.4893E-03_JPRB,5.9661E-03_JPRB,6.7108E-03_JPRB/)  
+KBO( :, 1,21, 3) = (/&
+ & 7.5453E-06_JPRB,1.4733E-03_JPRB,2.7104E-03_JPRB,3.8302E-03_JPRB,4.7372E-03_JPRB/)  
+KBO( :, 2,21, 3) = (/&
+ & 1.3660E-05_JPRB,1.6505E-03_JPRB,2.9759E-03_JPRB,4.1434E-03_JPRB,5.0081E-03_JPRB/)  
+KBO( :, 3,21, 3) = (/&
+ & 2.4360E-05_JPRB,1.8325E-03_JPRB,3.2316E-03_JPRB,4.4300E-03_JPRB,5.2232E-03_JPRB/)  
+KBO( :, 4,21, 3) = (/&
+ & 4.1539E-05_JPRB,2.0202E-03_JPRB,3.4804E-03_JPRB,4.6921E-03_JPRB,5.3862E-03_JPRB/)  
+KBO( :, 5,21, 3) = (/&
+ & 6.7226E-05_JPRB,2.2135E-03_JPRB,3.7240E-03_JPRB,4.9321E-03_JPRB,5.5010E-03_JPRB/)  
+KBO( :, 1,22, 3) = (/&
+ & 6.9875E-06_JPRB,1.2377E-03_JPRB,2.2680E-03_JPRB,3.1957E-03_JPRB,3.9253E-03_JPRB/)  
+KBO( :, 2,22, 3) = (/&
+ & 1.2689E-05_JPRB,1.3846E-03_JPRB,2.4844E-03_JPRB,3.4484E-03_JPRB,4.1374E-03_JPRB/)  
+KBO( :, 3,22, 3) = (/&
+ & 2.2485E-05_JPRB,1.5363E-03_JPRB,2.6941E-03_JPRB,3.6801E-03_JPRB,4.3039E-03_JPRB/)  
+KBO( :, 4,22, 3) = (/&
+ & 3.7954E-05_JPRB,1.6925E-03_JPRB,2.8992E-03_JPRB,3.8918E-03_JPRB,4.4280E-03_JPRB/)  
+KBO( :, 5,22, 3) = (/&
+ & 6.0729E-05_JPRB,1.8529E-03_JPRB,3.1002E-03_JPRB,4.0883E-03_JPRB,4.5144E-03_JPRB/)  
+KBO( :, 1,23, 3) = (/&
+ & 6.4953E-06_JPRB,1.0396E-03_JPRB,1.8968E-03_JPRB,2.6642E-03_JPRB,3.2502E-03_JPRB/)  
+KBO( :, 2,23, 3) = (/&
+ & 1.1793E-05_JPRB,1.1619E-03_JPRB,2.0732E-03_JPRB,2.8684E-03_JPRB,3.4159E-03_JPRB/)  
+KBO( :, 3,23, 3) = (/&
+ & 2.0715E-05_JPRB,1.2879E-03_JPRB,2.2459E-03_JPRB,3.0558E-03_JPRB,3.5445E-03_JPRB/)  
+KBO( :, 4,23, 3) = (/&
+ & 3.4551E-05_JPRB,1.4176E-03_JPRB,2.4147E-03_JPRB,3.2275E-03_JPRB,3.6395E-03_JPRB/)  
+KBO( :, 5,23, 3) = (/&
+ & 5.4641E-05_JPRB,1.5512E-03_JPRB,2.5804E-03_JPRB,3.3885E-03_JPRB,3.7034E-03_JPRB/)  
+KBO( :, 1,24, 3) = (/&
+ & 6.0670E-06_JPRB,8.7365E-04_JPRB,1.5859E-03_JPRB,2.2204E-03_JPRB,2.6897E-03_JPRB/)  
+KBO( :, 2,24, 3) = (/&
+ & 1.0981E-05_JPRB,9.7532E-04_JPRB,1.7303E-03_JPRB,2.3852E-03_JPRB,2.8188E-03_JPRB/)  
+KBO( :, 3,24, 3) = (/&
+ & 1.9078E-05_JPRB,1.0799E-03_JPRB,1.8727E-03_JPRB,2.5367E-03_JPRB,2.9175E-03_JPRB/)  
+KBO( :, 4,24, 3) = (/&
+ & 3.1407E-05_JPRB,1.1876E-03_JPRB,2.0114E-03_JPRB,2.6770E-03_JPRB,2.9899E-03_JPRB/)  
+KBO( :, 5,24, 3) = (/&
+ & 4.9067E-05_JPRB,1.2997E-03_JPRB,2.1481E-03_JPRB,2.8086E-03_JPRB,3.0371E-03_JPRB/)  
+KBO( :, 1,25, 3) = (/&
+ & 5.6989E-06_JPRB,7.3485E-04_JPRB,1.3264E-03_JPRB,1.8506E-03_JPRB,2.2259E-03_JPRB/)  
+KBO( :, 2,25, 3) = (/&
+ & 1.0240E-05_JPRB,8.1910E-04_JPRB,1.4452E-03_JPRB,1.9836E-03_JPRB,2.3255E-03_JPRB/)  
+KBO( :, 3,25, 3) = (/&
+ & 1.7580E-05_JPRB,9.0587E-04_JPRB,1.5621E-03_JPRB,2.1066E-03_JPRB,2.4014E-03_JPRB/)  
+KBO( :, 4,25, 3) = (/&
+ & 2.8572E-05_JPRB,9.9581E-04_JPRB,1.6762E-03_JPRB,2.2210E-03_JPRB,2.4559E-03_JPRB/)  
+KBO( :, 5,25, 3) = (/&
+ & 4.4075E-05_JPRB,1.0904E-03_JPRB,1.7895E-03_JPRB,2.3285E-03_JPRB,2.4904E-03_JPRB/)  
+KBO( :, 1,26, 3) = (/&
+ & 5.4044E-06_JPRB,6.1917E-04_JPRB,1.1109E-03_JPRB,1.5435E-03_JPRB,1.8428E-03_JPRB/)  
+KBO( :, 2,26, 3) = (/&
+ & 9.6129E-06_JPRB,6.8903E-04_JPRB,1.2086E-03_JPRB,1.6510E-03_JPRB,1.9194E-03_JPRB/)  
+KBO( :, 3,26, 3) = (/&
+ & 1.6279E-05_JPRB,7.6112E-04_JPRB,1.3044E-03_JPRB,1.7509E-03_JPRB,1.9770E-03_JPRB/)  
+KBO( :, 4,26, 3) = (/&
+ & 2.6098E-05_JPRB,8.3688E-04_JPRB,1.3985E-03_JPRB,1.8442E-03_JPRB,2.0178E-03_JPRB/)  
+KBO( :, 5,26, 3) = (/&
+ & 3.9757E-05_JPRB,9.1748E-04_JPRB,1.4931E-03_JPRB,1.9319E-03_JPRB,2.0426E-03_JPRB/)  
+KBO( :, 1,27, 3) = (/&
+ & 5.1208E-06_JPRB,5.2155E-04_JPRB,9.3033E-04_JPRB,1.2869E-03_JPRB,1.5252E-03_JPRB/)  
+KBO( :, 2,27, 3) = (/&
+ & 9.0050E-06_JPRB,5.7947E-04_JPRB,1.0106E-03_JPRB,1.3741E-03_JPRB,1.5841E-03_JPRB/)  
+KBO( :, 3,27, 3) = (/&
+ & 1.5028E-05_JPRB,6.3999E-04_JPRB,1.0891E-03_JPRB,1.4551E-03_JPRB,1.6279E-03_JPRB/)  
+KBO( :, 4,27, 3) = (/&
+ & 2.3771E-05_JPRB,7.0422E-04_JPRB,1.1674E-03_JPRB,1.5313E-03_JPRB,1.6583E-03_JPRB/)  
+KBO( :, 5,27, 3) = (/&
+ & 3.5789E-05_JPRB,7.7220E-04_JPRB,1.2465E-03_JPRB,1.6033E-03_JPRB,1.6759E-03_JPRB/)  
+KBO( :, 1,28, 3) = (/&
+ & 4.8426E-06_JPRB,4.3932E-04_JPRB,7.7909E-04_JPRB,1.0728E-03_JPRB,1.2619E-03_JPRB/)  
+KBO( :, 2,28, 3) = (/&
+ & 8.4123E-06_JPRB,4.8757E-04_JPRB,8.4493E-04_JPRB,1.1435E-03_JPRB,1.3071E-03_JPRB/)  
+KBO( :, 3,28, 3) = (/&
+ & 1.3833E-05_JPRB,5.3874E-04_JPRB,9.0955E-04_JPRB,1.2094E-03_JPRB,1.3406E-03_JPRB/)  
+KBO( :, 4,28, 3) = (/&
+ & 2.1607E-05_JPRB,5.9328E-04_JPRB,9.7513E-04_JPRB,1.2716E-03_JPRB,1.3629E-03_JPRB/)  
+KBO( :, 5,28, 3) = (/&
+ & 3.2146E-05_JPRB,6.4978E-04_JPRB,1.0416E-03_JPRB,1.3310E-03_JPRB,1.3752E-03_JPRB/)  
+KBO( :, 1,29, 3) = (/&
+ & 4.5849E-06_JPRB,3.7023E-04_JPRB,6.5264E-04_JPRB,8.9457E-04_JPRB,1.0445E-03_JPRB/)  
+KBO( :, 2,29, 3) = (/&
+ & 7.8572E-06_JPRB,4.1089E-04_JPRB,7.0665E-04_JPRB,9.5187E-04_JPRB,1.0793E-03_JPRB/)  
+KBO( :, 3,29, 3) = (/&
+ & 1.2741E-05_JPRB,4.5436E-04_JPRB,7.6034E-04_JPRB,1.0055E-03_JPRB,1.1048E-03_JPRB/)  
+KBO( :, 4,29, 3) = (/&
+ & 1.9649E-05_JPRB,4.9998E-04_JPRB,8.1550E-04_JPRB,1.0566E-03_JPRB,1.1213E-03_JPRB/)  
+KBO( :, 5,29, 3) = (/&
+ & 2.8896E-05_JPRB,5.4682E-04_JPRB,8.7093E-04_JPRB,1.1060E-03_JPRB,1.1298E-03_JPRB/)  
+KBO( :, 1,30, 3) = (/&
+ & 4.3297E-06_JPRB,3.1217E-04_JPRB,5.4663E-04_JPRB,7.4580E-04_JPRB,8.6464E-04_JPRB/)  
+KBO( :, 2,30, 3) = (/&
+ & 7.3120E-06_JPRB,3.4668E-04_JPRB,5.9106E-04_JPRB,7.9232E-04_JPRB,8.9143E-04_JPRB/)  
+KBO( :, 3,30, 3) = (/&
+ & 1.1705E-05_JPRB,3.8338E-04_JPRB,6.3627E-04_JPRB,8.3604E-04_JPRB,9.1074E-04_JPRB/)  
+KBO( :, 4,30, 3) = (/&
+ & 1.7828E-05_JPRB,4.2125E-04_JPRB,6.8249E-04_JPRB,8.7824E-04_JPRB,9.2283E-04_JPRB/)  
+KBO( :, 5,30, 3) = (/&
+ & 2.5924E-05_JPRB,4.5966E-04_JPRB,7.2827E-04_JPRB,9.1964E-04_JPRB,9.2875E-04_JPRB/)  
+KBO( :, 1,31, 3) = (/&
+ & 4.0874E-06_JPRB,2.6368E-04_JPRB,4.5791E-04_JPRB,6.2183E-04_JPRB,7.1613E-04_JPRB/)  
+KBO( :, 2,31, 3) = (/&
+ & 6.8015E-06_JPRB,2.9293E-04_JPRB,4.9490E-04_JPRB,6.5949E-04_JPRB,7.3687E-04_JPRB/)  
+KBO( :, 3,31, 3) = (/&
+ & 1.0746E-05_JPRB,3.2348E-04_JPRB,5.3298E-04_JPRB,6.9547E-04_JPRB,7.5159E-04_JPRB/)  
+KBO( :, 4,31, 3) = (/&
+ & 1.6163E-05_JPRB,3.5480E-04_JPRB,5.7136E-04_JPRB,7.3073E-04_JPRB,7.6056E-04_JPRB/)  
+KBO( :, 5,31, 3) = (/&
+ & 2.3251E-05_JPRB,3.8597E-04_JPRB,6.0897E-04_JPRB,7.6515E-04_JPRB,7.6467E-04_JPRB/)  
+KBO( :, 1,32, 3) = (/&
+ & 3.8514E-06_JPRB,2.2297E-04_JPRB,3.8374E-04_JPRB,5.1829E-04_JPRB,5.9305E-04_JPRB/)  
+KBO( :, 2,32, 3) = (/&
+ & 6.3168E-06_JPRB,2.4754E-04_JPRB,4.1485E-04_JPRB,5.4904E-04_JPRB,6.0924E-04_JPRB/)  
+KBO( :, 3,32, 3) = (/&
+ & 9.8501E-06_JPRB,2.7292E-04_JPRB,4.4681E-04_JPRB,5.7897E-04_JPRB,6.2044E-04_JPRB/)  
+KBO( :, 4,32, 3) = (/&
+ & 1.4638E-05_JPRB,2.9846E-04_JPRB,4.7840E-04_JPRB,6.0852E-04_JPRB,6.2707E-04_JPRB/)  
+KBO( :, 5,32, 3) = (/&
+ & 2.0831E-05_JPRB,3.2361E-04_JPRB,5.0883E-04_JPRB,6.3658E-04_JPRB,6.2999E-04_JPRB/)  
+KBO( :, 1,33, 3) = (/&
+ & 3.6163E-06_JPRB,1.8866E-04_JPRB,3.2190E-04_JPRB,4.3205E-04_JPRB,4.9144E-04_JPRB/)  
+KBO( :, 2,33, 3) = (/&
+ & 5.8503E-06_JPRB,2.0912E-04_JPRB,3.4811E-04_JPRB,4.5736E-04_JPRB,5.0397E-04_JPRB/)  
+KBO( :, 3,33, 3) = (/&
+ & 9.0067E-06_JPRB,2.2999E-04_JPRB,3.7456E-04_JPRB,4.8239E-04_JPRB,5.1238E-04_JPRB/)  
+KBO( :, 4,33, 3) = (/&
+ & 1.3226E-05_JPRB,2.5067E-04_JPRB,4.0039E-04_JPRB,5.0676E-04_JPRB,5.1732E-04_JPRB/)  
+KBO( :, 5,33, 3) = (/&
+ & 1.8631E-05_JPRB,2.7107E-04_JPRB,4.2476E-04_JPRB,5.2963E-04_JPRB,5.1944E-04_JPRB/)  
+KBO( :, 1,34, 3) = (/&
+ & 3.3238E-06_JPRB,1.5902E-04_JPRB,2.6946E-04_JPRB,3.5933E-04_JPRB,4.0648E-04_JPRB/)  
+KBO( :, 2,34, 3) = (/&
+ & 5.3166E-06_JPRB,1.7590E-04_JPRB,2.9135E-04_JPRB,3.8047E-04_JPRB,4.1623E-04_JPRB/)  
+KBO( :, 3,34, 3) = (/&
+ & 8.0935E-06_JPRB,1.9289E-04_JPRB,3.1309E-04_JPRB,4.0135E-04_JPRB,4.2273E-04_JPRB/)  
+KBO( :, 4,34, 3) = (/&
+ & 1.1767E-05_JPRB,2.0963E-04_JPRB,3.3398E-04_JPRB,4.2136E-04_JPRB,4.2646E-04_JPRB/)  
+KBO( :, 5,34, 3) = (/&
+ & 1.6441E-05_JPRB,2.2628E-04_JPRB,3.5340E-04_JPRB,4.3976E-04_JPRB,4.2791E-04_JPRB/)  
+KBO( :, 1,35, 3) = (/&
+ & 2.9067E-06_JPRB,1.3259E-04_JPRB,2.2393E-04_JPRB,2.9733E-04_JPRB,3.3540E-04_JPRB/)  
+KBO( :, 2,35, 3) = (/&
+ & 4.6187E-06_JPRB,1.4644E-04_JPRB,2.4206E-04_JPRB,3.1503E-04_JPRB,3.4321E-04_JPRB/)  
+KBO( :, 3,35, 3) = (/&
+ & 6.9869E-06_JPRB,1.6027E-04_JPRB,2.5990E-04_JPRB,3.3236E-04_JPRB,3.4842E-04_JPRB/)  
+KBO( :, 4,35, 3) = (/&
+ & 1.0104E-05_JPRB,1.7387E-04_JPRB,2.7672E-04_JPRB,3.4881E-04_JPRB,3.5145E-04_JPRB/)  
+KBO( :, 5,35, 3) = (/&
+ & 1.4052E-05_JPRB,1.8746E-04_JPRB,2.9226E-04_JPRB,3.6359E-04_JPRB,3.5262E-04_JPRB/)  
+KBO( :, 1,36, 3) = (/&
+ & 2.4089E-06_JPRB,1.0927E-04_JPRB,1.8451E-04_JPRB,2.4455E-04_JPRB,2.7594E-04_JPRB/)  
+KBO( :, 2,36, 3) = (/&
+ & 3.8233E-06_JPRB,1.2060E-04_JPRB,1.9949E-04_JPRB,2.5938E-04_JPRB,2.8242E-04_JPRB/)  
+KBO( :, 3,36, 3) = (/&
+ & 5.7778E-06_JPRB,1.3185E-04_JPRB,2.1404E-04_JPRB,2.7372E-04_JPRB,2.8680E-04_JPRB/)  
+KBO( :, 4,36, 3) = (/&
+ & 8.3484E-06_JPRB,1.4295E-04_JPRB,2.2765E-04_JPRB,2.8727E-04_JPRB,2.8945E-04_JPRB/)  
+KBO( :, 5,36, 3) = (/&
+ & 1.1603E-05_JPRB,1.5407E-04_JPRB,2.4022E-04_JPRB,2.9918E-04_JPRB,2.9054E-04_JPRB/)  
+KBO( :, 1,37, 3) = (/&
+ & 1.8525E-06_JPRB,8.8636E-05_JPRB,1.5015E-04_JPRB,1.9932E-04_JPRB,2.2585E-04_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART15',1,ZHOOK_HANDLE)
+END SUBROUTINE PART15
+
+
+SUBROUTINE PART16
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART16',0,ZHOOK_HANDLE)
+
+
+KBO( :, 2,37, 3) = (/&
+ & 2.9593E-06_JPRB,9.7894E-05_JPRB,1.6249E-04_JPRB,2.1170E-04_JPRB,2.3148E-04_JPRB/)  
+KBO( :, 3,37, 3) = (/&
+ & 4.5018E-06_JPRB,1.0706E-04_JPRB,1.7444E-04_JPRB,2.2370E-04_JPRB,2.3543E-04_JPRB/)  
+KBO( :, 4,37, 3) = (/&
+ & 6.5383E-06_JPRB,1.1615E-04_JPRB,1.8559E-04_JPRB,2.3492E-04_JPRB,2.3791E-04_JPRB/)  
+KBO( :, 5,37, 3) = (/&
+ & 9.1296E-06_JPRB,1.2523E-04_JPRB,1.9593E-04_JPRB,2.4478E-04_JPRB,2.3911E-04_JPRB/)  
+KBO( :, 1,38, 3) = (/&
+ & 1.4171E-06_JPRB,7.1807E-05_JPRB,1.2206E-04_JPRB,1.6233E-04_JPRB,1.8481E-04_JPRB/)  
+KBO( :, 2,38, 3) = (/&
+ & 2.2804E-06_JPRB,7.9379E-05_JPRB,1.3224E-04_JPRB,1.7271E-04_JPRB,1.8979E-04_JPRB/)  
+KBO( :, 3,38, 3) = (/&
+ & 3.4913E-06_JPRB,8.6867E-05_JPRB,1.4204E-04_JPRB,1.8270E-04_JPRB,1.9335E-04_JPRB/)  
+KBO( :, 4,38, 3) = (/&
+ & 5.1024E-06_JPRB,9.4294E-05_JPRB,1.5119E-04_JPRB,1.9201E-04_JPRB,1.9566E-04_JPRB/)  
+KBO( :, 5,38, 3) = (/&
+ & 7.1603E-06_JPRB,1.0172E-04_JPRB,1.5970E-04_JPRB,2.0015E-04_JPRB,1.9689E-04_JPRB/)  
+KBO( :, 1,39, 3) = (/&
+ & 1.0836E-06_JPRB,5.8166E-05_JPRB,9.9215E-05_JPRB,1.3222E-04_JPRB,1.5133E-04_JPRB/)  
+KBO( :, 2,39, 3) = (/&
+ & 1.7555E-06_JPRB,6.4345E-05_JPRB,1.0758E-04_JPRB,1.4088E-04_JPRB,1.5570E-04_JPRB/)  
+KBO( :, 3,39, 3) = (/&
+ & 2.7062E-06_JPRB,7.0477E-05_JPRB,1.1564E-04_JPRB,1.4921E-04_JPRB,1.5890E-04_JPRB/)  
+KBO( :, 4,39, 3) = (/&
+ & 3.9795E-06_JPRB,7.6546E-05_JPRB,1.2316E-04_JPRB,1.5693E-04_JPRB,1.6103E-04_JPRB/)  
+KBO( :, 5,39, 3) = (/&
+ & 5.6128E-06_JPRB,8.2626E-05_JPRB,1.3018E-04_JPRB,1.6363E-04_JPRB,1.6230E-04_JPRB/)  
+KBO( :, 1,40, 3) = (/&
+ & 7.8445E-07_JPRB,4.6585E-05_JPRB,7.9902E-05_JPRB,1.0692E-04_JPRB,1.2321E-04_JPRB/)  
+KBO( :, 2,40, 3) = (/&
+ & 1.2866E-06_JPRB,5.1634E-05_JPRB,8.6802E-05_JPRB,1.1417E-04_JPRB,1.2708E-04_JPRB/)  
+KBO( :, 3,40, 3) = (/&
+ & 2.0073E-06_JPRB,5.6656E-05_JPRB,9.3478E-05_JPRB,1.2114E-04_JPRB,1.2998E-04_JPRB/)  
+KBO( :, 4,40, 3) = (/&
+ & 2.9837E-06_JPRB,6.1628E-05_JPRB,9.9689E-05_JPRB,1.2758E-04_JPRB,1.3201E-04_JPRB/)  
+KBO( :, 5,40, 3) = (/&
+ & 4.2474E-06_JPRB,6.6601E-05_JPRB,1.0552E-04_JPRB,1.3318E-04_JPRB,1.3326E-04_JPRB/)  
+KBO( :, 1,41, 3) = (/&
+ & 5.6200E-07_JPRB,3.7239E-05_JPRB,6.4245E-05_JPRB,8.6338E-05_JPRB,1.0021E-04_JPRB/)  
+KBO( :, 2,41, 3) = (/&
+ & 9.3423E-07_JPRB,4.1365E-05_JPRB,6.9922E-05_JPRB,9.2387E-05_JPRB,1.0362E-04_JPRB/)  
+KBO( :, 3,41, 3) = (/&
+ & 1.4759E-06_JPRB,4.5473E-05_JPRB,7.5442E-05_JPRB,9.8211E-05_JPRB,1.0623E-04_JPRB/)  
+KBO( :, 4,41, 3) = (/&
+ & 2.2204E-06_JPRB,4.9548E-05_JPRB,8.0603E-05_JPRB,1.0362E-04_JPRB,1.0811E-04_JPRB/)  
+KBO( :, 5,41, 3) = (/&
+ & 3.1941E-06_JPRB,5.3616E-05_JPRB,8.5442E-05_JPRB,1.0831E-04_JPRB,1.0933E-04_JPRB/)  
+KBO( :, 1,42, 3) = (/&
+ & 4.0111E-07_JPRB,2.9743E-05_JPRB,5.1608E-05_JPRB,6.9660E-05_JPRB,8.1453E-05_JPRB/)  
+KBO( :, 2,42, 3) = (/&
+ & 6.7588E-07_JPRB,3.3120E-05_JPRB,5.6295E-05_JPRB,7.4726E-05_JPRB,8.4452E-05_JPRB/)  
+KBO( :, 3,42, 3) = (/&
+ & 1.0815E-06_JPRB,3.6481E-05_JPRB,6.0861E-05_JPRB,7.9587E-05_JPRB,8.6802E-05_JPRB/)  
+KBO( :, 4,42, 3) = (/&
+ & 1.6472E-06_JPRB,3.9818E-05_JPRB,6.5135E-05_JPRB,8.4095E-05_JPRB,8.8535E-05_JPRB/)  
+KBO( :, 5,42, 3) = (/&
+ & 2.3953E-06_JPRB,4.3150E-05_JPRB,6.9163E-05_JPRB,8.8053E-05_JPRB,8.9707E-05_JPRB/)  
+KBO( :, 1,43, 3) = (/&
+ & 2.7634E-07_JPRB,2.3586E-05_JPRB,4.1208E-05_JPRB,5.5916E-05_JPRB,6.5980E-05_JPRB/)  
+KBO( :, 2,43, 3) = (/&
+ & 4.7339E-07_JPRB,2.6349E-05_JPRB,4.5082E-05_JPRB,6.0171E-05_JPRB,6.8655E-05_JPRB/)  
+KBO( :, 3,43, 3) = (/&
+ & 7.6946E-07_JPRB,2.9095E-05_JPRB,4.8858E-05_JPRB,6.4228E-05_JPRB,7.0769E-05_JPRB/)  
+KBO( :, 4,43, 3) = (/&
+ & 1.1899E-06_JPRB,3.1831E-05_JPRB,5.2419E-05_JPRB,6.8020E-05_JPRB,7.2392E-05_JPRB/)  
+KBO( :, 5,43, 3) = (/&
+ & 1.7542E-06_JPRB,3.4560E-05_JPRB,5.5769E-05_JPRB,7.1373E-05_JPRB,7.3520E-05_JPRB/)  
+KBO( :, 1,44, 3) = (/&
+ & 1.8677E-07_JPRB,1.8630E-05_JPRB,3.2790E-05_JPRB,4.4748E-05_JPRB,5.3325E-05_JPRB/)  
+KBO( :, 2,44, 3) = (/&
+ & 3.2545E-07_JPRB,2.0878E-05_JPRB,3.5981E-05_JPRB,4.8304E-05_JPRB,5.5702E-05_JPRB/)  
+KBO( :, 3,44, 3) = (/&
+ & 5.3812E-07_JPRB,2.3132E-05_JPRB,3.9119E-05_JPRB,5.1707E-05_JPRB,5.7625E-05_JPRB/)  
+KBO( :, 4,44, 3) = (/&
+ & 8.4624E-07_JPRB,2.5378E-05_JPRB,4.2094E-05_JPRB,5.4904E-05_JPRB,5.9117E-05_JPRB/)  
+KBO( :, 5,44, 3) = (/&
+ & 1.2670E-06_JPRB,2.7605E-05_JPRB,4.4873E-05_JPRB,5.7740E-05_JPRB,6.0210E-05_JPRB/)  
+KBO( :, 1,45, 3) = (/&
+ & 1.2570E-07_JPRB,1.4697E-05_JPRB,2.6055E-05_JPRB,3.5757E-05_JPRB,4.3043E-05_JPRB/)  
+KBO( :, 2,45, 3) = (/&
+ & 2.2228E-07_JPRB,1.6531E-05_JPRB,2.8696E-05_JPRB,3.8740E-05_JPRB,4.5168E-05_JPRB/)  
+KBO( :, 3,45, 3) = (/&
+ & 3.7425E-07_JPRB,1.8375E-05_JPRB,3.1286E-05_JPRB,4.1584E-05_JPRB,4.6892E-05_JPRB/)  
+KBO( :, 4,45, 3) = (/&
+ & 5.9851E-07_JPRB,2.0210E-05_JPRB,3.3765E-05_JPRB,4.4275E-05_JPRB,4.8273E-05_JPRB/)  
+KBO( :, 5,45, 3) = (/&
+ & 9.1064E-07_JPRB,2.2043E-05_JPRB,3.6086E-05_JPRB,4.6686E-05_JPRB,4.9306E-05_JPRB/)  
+KBO( :, 1,46, 3) = (/&
+ & 8.3151E-08_JPRB,1.1545E-05_JPRB,2.0622E-05_JPRB,2.8475E-05_JPRB,3.4643E-05_JPRB/)  
+KBO( :, 2,46, 3) = (/&
+ & 1.4909E-07_JPRB,1.3038E-05_JPRB,2.2804E-05_JPRB,3.0968E-05_JPRB,3.6538E-05_JPRB/)  
+KBO( :, 3,46, 3) = (/&
+ & 2.5589E-07_JPRB,1.4552E-05_JPRB,2.4958E-05_JPRB,3.3368E-05_JPRB,3.8096E-05_JPRB/)  
+KBO( :, 4,46, 3) = (/&
+ & 4.1668E-07_JPRB,1.6050E-05_JPRB,2.7017E-05_JPRB,3.5626E-05_JPRB,3.9358E-05_JPRB/)  
+KBO( :, 5,46, 3) = (/&
+ & 6.4518E-07_JPRB,1.7554E-05_JPRB,2.8957E-05_JPRB,3.7672E-05_JPRB,4.0331E-05_JPRB/)  
+KBO( :, 1,47, 3) = (/&
+ & 5.3540E-08_JPRB,9.0044E-06_JPRB,1.6219E-05_JPRB,2.2547E-05_JPRB,2.7739E-05_JPRB/)  
+KBO( :, 2,47, 3) = (/&
+ & 9.7029E-08_JPRB,1.0218E-05_JPRB,1.8025E-05_JPRB,2.4635E-05_JPRB,2.9430E-05_JPRB/)  
+KBO( :, 3,47, 3) = (/&
+ & 1.6982E-07_JPRB,1.1454E-05_JPRB,1.9806E-05_JPRB,2.6651E-05_JPRB,3.0836E-05_JPRB/)  
+KBO( :, 4,47, 3) = (/&
+ & 2.8228E-07_JPRB,1.2681E-05_JPRB,2.1522E-05_JPRB,2.8552E-05_JPRB,3.1984E-05_JPRB/)  
+KBO( :, 5,47, 3) = (/&
+ & 4.4593E-07_JPRB,1.3911E-05_JPRB,2.3146E-05_JPRB,3.0298E-05_JPRB,3.2902E-05_JPRB/)  
+KBO( :, 1,48, 3) = (/&
+ & 3.4557E-08_JPRB,7.0084E-06_JPRB,1.2731E-05_JPRB,1.7817E-05_JPRB,2.2170E-05_JPRB/)  
+KBO( :, 2,48, 3) = (/&
+ & 6.2743E-08_JPRB,7.9919E-06_JPRB,1.4216E-05_JPRB,1.9554E-05_JPRB,2.3663E-05_JPRB/)  
+KBO( :, 3,48, 3) = (/&
+ & 1.1169E-07_JPRB,8.9994E-06_JPRB,1.5688E-05_JPRB,2.1246E-05_JPRB,2.4930E-05_JPRB/)  
+KBO( :, 4,48, 3) = (/&
+ & 1.8970E-07_JPRB,1.0009E-05_JPRB,1.7121E-05_JPRB,2.2855E-05_JPRB,2.5977E-05_JPRB/)  
+KBO( :, 5,48, 3) = (/&
+ & 3.0578E-07_JPRB,1.1013E-05_JPRB,1.8479E-05_JPRB,2.4337E-05_JPRB,2.6830E-05_JPRB/)  
+KBO( :, 1,49, 3) = (/&
+ & 2.2502E-08_JPRB,5.4403E-06_JPRB,9.9701E-06_JPRB,1.4043E-05_JPRB,1.7685E-05_JPRB/)  
+KBO( :, 2,49, 3) = (/&
+ & 4.0407E-08_JPRB,6.2386E-06_JPRB,1.1187E-05_JPRB,1.5489E-05_JPRB,1.8999E-05_JPRB/)  
+KBO( :, 3,49, 3) = (/&
+ & 7.2903E-08_JPRB,7.0592E-06_JPRB,1.2408E-05_JPRB,1.6909E-05_JPRB,2.0138E-05_JPRB/)  
+KBO( :, 4,49, 3) = (/&
+ & 1.2643E-07_JPRB,7.8874E-06_JPRB,1.3602E-05_JPRB,1.8265E-05_JPRB,2.1093E-05_JPRB/)  
+KBO( :, 5,49, 3) = (/&
+ & 2.0803E-07_JPRB,8.7090E-06_JPRB,1.4734E-05_JPRB,1.9523E-05_JPRB,2.1885E-05_JPRB/)  
+KBO( :, 1,50, 3) = (/&
+ & 1.5095E-08_JPRB,4.2287E-06_JPRB,7.8121E-06_JPRB,1.1070E-05_JPRB,1.4078E-05_JPRB/)  
+KBO( :, 2,50, 3) = (/&
+ & 2.6427E-08_JPRB,4.8766E-06_JPRB,8.8105E-06_JPRB,1.2276E-05_JPRB,1.5222E-05_JPRB/)  
+KBO( :, 3,50, 3) = (/&
+ & 4.7991E-08_JPRB,5.5443E-06_JPRB,9.8192E-06_JPRB,1.3460E-05_JPRB,1.6227E-05_JPRB/)  
+KBO( :, 4,50, 3) = (/&
+ & 8.4675E-08_JPRB,6.2215E-06_JPRB,1.0811E-05_JPRB,1.4600E-05_JPRB,1.7078E-05_JPRB/)  
+KBO( :, 5,50, 3) = (/&
+ & 1.4213E-07_JPRB,6.8957E-06_JPRB,1.1757E-05_JPRB,1.5668E-05_JPRB,1.7797E-05_JPRB/)  
+KBO( :, 1,51, 3) = (/&
+ & 1.0409E-08_JPRB,3.2863E-06_JPRB,6.1164E-06_JPRB,8.7177E-06_JPRB,1.1179E-05_JPRB/)  
+KBO( :, 2,51, 3) = (/&
+ & 1.7475E-08_JPRB,3.8101E-06_JPRB,6.9343E-06_JPRB,9.7209E-06_JPRB,1.2172E-05_JPRB/)  
+KBO( :, 3,51, 3) = (/&
+ & 3.1652E-08_JPRB,4.3546E-06_JPRB,7.7683E-06_JPRB,1.0708E-05_JPRB,1.3048E-05_JPRB/)  
+KBO( :, 4,51, 3) = (/&
+ & 5.6664E-08_JPRB,4.9075E-06_JPRB,8.5891E-06_JPRB,1.1663E-05_JPRB,1.3802E-05_JPRB/)  
+KBO( :, 5,51, 3) = (/&
+ & 9.6978E-08_JPRB,5.4606E-06_JPRB,9.3785E-06_JPRB,1.2566E-05_JPRB,1.4438E-05_JPRB/)  
+KBO( :, 1,52, 3) = (/&
+ & 7.3730E-09_JPRB,2.5481E-06_JPRB,4.7781E-06_JPRB,6.8480E-06_JPRB,8.8551E-06_JPRB/)  
+KBO( :, 2,52, 3) = (/&
+ & 1.1665E-08_JPRB,2.9707E-06_JPRB,5.4480E-06_JPRB,7.6826E-06_JPRB,9.7180E-06_JPRB/)  
+KBO( :, 3,52, 3) = (/&
+ & 2.0839E-08_JPRB,3.4136E-06_JPRB,6.1334E-06_JPRB,8.5017E-06_JPRB,1.0476E-05_JPRB/)  
+KBO( :, 4,52, 3) = (/&
+ & 3.7702E-08_JPRB,3.8651E-06_JPRB,6.8133E-06_JPRB,9.3029E-06_JPRB,1.1144E-05_JPRB/)  
+KBO( :, 5,52, 3) = (/&
+ & 6.5719E-08_JPRB,4.3178E-06_JPRB,7.4715E-06_JPRB,1.0064E-05_JPRB,1.1709E-05_JPRB/)  
+KBO( :, 1,53, 3) = (/&
+ & 5.3750E-09_JPRB,1.9710E-06_JPRB,3.7222E-06_JPRB,5.3652E-06_JPRB,6.9985E-06_JPRB/)  
+KBO( :, 2,53, 3) = (/&
+ & 7.9112E-09_JPRB,2.3105E-06_JPRB,4.2696E-06_JPRB,6.0569E-06_JPRB,7.7450E-06_JPRB/)  
+KBO( :, 3,53, 3) = (/&
+ & 1.3727E-08_JPRB,2.6711E-06_JPRB,4.8332E-06_JPRB,6.7376E-06_JPRB,8.4040E-06_JPRB/)  
+KBO( :, 4,53, 3) = (/&
+ & 2.4945E-08_JPRB,3.0391E-06_JPRB,5.3954E-06_JPRB,7.4078E-06_JPRB,8.9922E-06_JPRB/)  
+KBO( :, 5,53, 3) = (/&
+ & 4.4184E-08_JPRB,3.4095E-06_JPRB,5.9433E-06_JPRB,8.0475E-06_JPRB,9.4957E-06_JPRB/)  
+KBO( :, 1,54, 3) = (/&
+ & 4.0653E-09_JPRB,1.5287E-06_JPRB,2.9053E-06_JPRB,4.2078E-06_JPRB,5.5137E-06_JPRB/)  
+KBO( :, 2,54, 3) = (/&
+ & 5.5613E-09_JPRB,1.8017E-06_JPRB,3.3529E-06_JPRB,4.7820E-06_JPRB,6.1506E-06_JPRB/)  
+KBO( :, 3,54, 3) = (/&
+ & 9.2526E-09_JPRB,2.0941E-06_JPRB,3.8143E-06_JPRB,5.3462E-06_JPRB,6.7127E-06_JPRB/)  
+KBO( :, 4,54, 3) = (/&
+ & 1.6740E-08_JPRB,2.3952E-06_JPRB,4.2796E-06_JPRB,5.9051E-06_JPRB,7.2164E-06_JPRB/)  
+KBO( :, 5,54, 3) = (/&
+ & 3.0031E-08_JPRB,2.6979E-06_JPRB,4.7338E-06_JPRB,6.4403E-06_JPRB,7.6524E-06_JPRB/)  
+KBO( :, 1,55, 3) = (/&
+ & 3.1540E-09_JPRB,1.1858E-06_JPRB,2.2670E-06_JPRB,3.2967E-06_JPRB,4.3283E-06_JPRB/)  
+KBO( :, 2,55, 3) = (/&
+ & 4.0196E-09_JPRB,1.4051E-06_JPRB,2.6332E-06_JPRB,3.7741E-06_JPRB,4.8678E-06_JPRB/)  
+KBO( :, 3,55, 3) = (/&
+ & 6.3379E-09_JPRB,1.6423E-06_JPRB,3.0104E-06_JPRB,4.2413E-06_JPRB,5.3455E-06_JPRB/)  
+KBO( :, 4,55, 3) = (/&
+ & 1.1312E-08_JPRB,1.8877E-06_JPRB,3.3935E-06_JPRB,4.7052E-06_JPRB,5.7689E-06_JPRB/)  
+KBO( :, 5,55, 3) = (/&
+ & 2.0477E-08_JPRB,2.1358E-06_JPRB,3.7709E-06_JPRB,5.1537E-06_JPRB,6.1417E-06_JPRB/)  
+KBO( :, 1,56, 3) = (/&
+ & 2.4885E-09_JPRB,9.1751E-07_JPRB,1.7642E-06_JPRB,2.5751E-06_JPRB,3.3880E-06_JPRB/)  
+KBO( :, 2,56, 3) = (/&
+ & 2.9720E-09_JPRB,1.0942E-06_JPRB,2.0641E-06_JPRB,2.9723E-06_JPRB,3.8440E-06_JPRB/)  
+KBO( :, 3,56, 3) = (/&
+ & 4.3988E-09_JPRB,1.2857E-06_JPRB,2.3716E-06_JPRB,3.3596E-06_JPRB,4.2506E-06_JPRB/)  
+KBO( :, 4,56, 3) = (/&
+ & 7.6547E-09_JPRB,1.4859E-06_JPRB,2.6877E-06_JPRB,3.7438E-06_JPRB,4.6065E-06_JPRB/)  
+KBO( :, 5,56, 3) = (/&
+ & 1.3911E-08_JPRB,1.6888E-06_JPRB,2.9997E-06_JPRB,4.1185E-06_JPRB,4.9232E-06_JPRB/)  
+KBO( :, 1,57, 3) = (/&
+ & 1.9886E-09_JPRB,7.0763E-07_JPRB,1.3683E-06_JPRB,2.0041E-06_JPRB,2.6428E-06_JPRB/)  
+KBO( :, 2,57, 3) = (/&
+ & 2.2504E-09_JPRB,8.5035E-07_JPRB,1.6145E-06_JPRB,2.3353E-06_JPRB,3.0283E-06_JPRB/)  
+KBO( :, 3,57, 3) = (/&
+ & 3.1057E-09_JPRB,1.0047E-06_JPRB,1.8650E-06_JPRB,2.6564E-06_JPRB,3.3731E-06_JPRB/)  
+KBO( :, 4,57, 3) = (/&
+ & 5.1987E-09_JPRB,1.1674E-06_JPRB,2.1248E-06_JPRB,2.9740E-06_JPRB,3.6745E-06_JPRB/)  
+KBO( :, 5,57, 3) = (/&
+ & 9.4155E-09_JPRB,1.3335E-06_JPRB,2.3825E-06_JPRB,3.2869E-06_JPRB,3.9424E-06_JPRB/)  
+KBO( :, 1,58, 3) = (/&
+ & 1.6068E-09_JPRB,5.4596E-07_JPRB,1.0610E-06_JPRB,1.5587E-06_JPRB,2.0582E-06_JPRB/)  
+KBO( :, 2,58, 3) = (/&
+ & 1.7459E-09_JPRB,6.6156E-07_JPRB,1.2631E-06_JPRB,1.8343E-06_JPRB,2.3824E-06_JPRB/)  
+KBO( :, 3,58, 3) = (/&
+ & 2.2524E-09_JPRB,7.8545E-07_JPRB,1.4674E-06_JPRB,2.1005E-06_JPRB,2.6733E-06_JPRB/)  
+KBO( :, 4,58, 3) = (/&
+ & 3.5899E-09_JPRB,9.1799E-07_JPRB,1.6806E-06_JPRB,2.3630E-06_JPRB,2.9296E-06_JPRB/)  
+KBO( :, 5,58, 3) = (/&
+ & 6.4281E-09_JPRB,1.0538E-06_JPRB,1.8933E-06_JPRB,2.6237E-06_JPRB,3.1542E-06_JPRB/)  
+KBO( :, 1,59, 3) = (/&
+ & 1.3115E-09_JPRB,4.3655E-07_JPRB,8.4995E-07_JPRB,1.2498E-06_JPRB,1.6427E-06_JPRB/)  
+KBO( :, 2,59, 3) = (/&
+ & 1.4063E-09_JPRB,5.3104E-07_JPRB,1.0161E-06_JPRB,1.4776E-06_JPRB,1.9087E-06_JPRB/)  
+KBO( :, 3,59, 3) = (/&
+ & 1.7670E-09_JPRB,6.3221E-07_JPRB,1.1839E-06_JPRB,1.6975E-06_JPRB,2.1469E-06_JPRB/)  
+KBO( :, 4,59, 3) = (/&
+ & 2.7538E-09_JPRB,7.4064E-07_JPRB,1.3591E-06_JPRB,1.9143E-06_JPRB,2.3563E-06_JPRB/)  
+KBO( :, 5,59, 3) = (/&
+ & 4.8966E-09_JPRB,8.5194E-07_JPRB,1.5343E-06_JPRB,2.1300E-06_JPRB,2.5372E-06_JPRB/)  
+KBO( :, 1,13, 4) = (/&
+ & 1.4832E-04_JPRB,1.5698E-02_JPRB,2.8434E-02_JPRB,4.0000E-02_JPRB,5.0535E-02_JPRB/)  
+KBO( :, 2,13, 4) = (/&
+ & 2.7354E-04_JPRB,1.7679E-02_JPRB,3.1476E-02_JPRB,4.3634E-02_JPRB,5.4373E-02_JPRB/)  
+KBO( :, 3,13, 4) = (/&
+ & 4.7514E-04_JPRB,1.9768E-02_JPRB,3.4498E-02_JPRB,4.7113E-02_JPRB,5.7896E-02_JPRB/)  
+KBO( :, 4,13, 4) = (/&
+ & 7.6575E-04_JPRB,2.1934E-02_JPRB,3.7431E-02_JPRB,5.0364E-02_JPRB,6.0901E-02_JPRB/)  
+KBO( :, 5,13, 4) = (/&
+ & 1.1458E-03_JPRB,2.4148E-02_JPRB,4.0264E-02_JPRB,5.3231E-02_JPRB,6.3251E-02_JPRB/)  
+KBO( :, 1,14, 4) = (/&
+ & 1.3350E-04_JPRB,1.3782E-02_JPRB,2.4857E-02_JPRB,3.4870E-02_JPRB,4.3573E-02_JPRB/)  
+KBO( :, 2,14, 4) = (/&
+ & 2.4593E-04_JPRB,1.5547E-02_JPRB,2.7509E-02_JPRB,3.8001E-02_JPRB,4.6776E-02_JPRB/)  
+KBO( :, 3,14, 4) = (/&
+ & 4.2506E-04_JPRB,1.7409E-02_JPRB,3.0122E-02_JPRB,4.0944E-02_JPRB,4.9474E-02_JPRB/)  
+KBO( :, 4,14, 4) = (/&
+ & 6.7927E-04_JPRB,1.9326E-02_JPRB,3.2594E-02_JPRB,4.3519E-02_JPRB,5.1527E-02_JPRB/)  
+KBO( :, 5,14, 4) = (/&
+ & 1.0076E-03_JPRB,2.1255E-02_JPRB,3.4899E-02_JPRB,4.5670E-02_JPRB,5.2951E-02_JPRB/)  
+KBO( :, 1,15, 4) = (/&
+ & 1.2065E-04_JPRB,1.2024E-02_JPRB,2.1582E-02_JPRB,3.0176E-02_JPRB,3.7371E-02_JPRB/)  
+KBO( :, 2,15, 4) = (/&
+ & 2.2207E-04_JPRB,1.3580E-02_JPRB,2.3845E-02_JPRB,3.2795E-02_JPRB,3.9887E-02_JPRB/)  
+KBO( :, 3,15, 4) = (/&
+ & 3.8077E-04_JPRB,1.5191E-02_JPRB,2.6000E-02_JPRB,3.5116E-02_JPRB,4.1764E-02_JPRB/)  
+KBO( :, 4,15, 4) = (/&
+ & 6.0257E-04_JPRB,1.6816E-02_JPRB,2.7979E-02_JPRB,3.7046E-02_JPRB,4.3070E-02_JPRB/)  
+KBO( :, 5,15, 4) = (/&
+ & 8.8599E-04_JPRB,1.8418E-02_JPRB,2.9799E-02_JPRB,3.8653E-02_JPRB,4.3914E-02_JPRB/)  
+KBO( :, 1,16, 4) = (/&
+ & 1.0931E-04_JPRB,1.0419E-02_JPRB,1.8587E-02_JPRB,2.5887E-02_JPRB,3.1833E-02_JPRB/)  
+KBO( :, 2,16, 4) = (/&
+ & 2.0062E-04_JPRB,1.1752E-02_JPRB,2.0443E-02_JPRB,2.7962E-02_JPRB,3.3659E-02_JPRB/)  
+KBO( :, 3,16, 4) = (/&
+ & 3.4061E-04_JPRB,1.3095E-02_JPRB,2.2148E-02_JPRB,2.9721E-02_JPRB,3.4939E-02_JPRB/)  
+KBO( :, 4,16, 4) = (/&
+ & 5.3341E-04_JPRB,1.4426E-02_JPRB,2.3724E-02_JPRB,3.1189E-02_JPRB,3.5807E-02_JPRB/)  
+KBO( :, 5,16, 4) = (/&
+ & 7.7707E-04_JPRB,1.5740E-02_JPRB,2.5194E-02_JPRB,3.2443E-02_JPRB,3.6342E-02_JPRB/)  
+KBO( :, 1,17, 4) = (/&
+ & 9.8787E-05_JPRB,8.9488E-03_JPRB,1.5843E-02_JPRB,2.1968E-02_JPRB,2.6812E-02_JPRB/)  
+KBO( :, 2,17, 4) = (/&
+ & 1.8034E-04_JPRB,1.0053E-02_JPRB,1.7312E-02_JPRB,2.3563E-02_JPRB,2.8105E-02_JPRB/)  
+KBO( :, 3,17, 4) = (/&
+ & 3.0330E-04_JPRB,1.1150E-02_JPRB,1.8677E-02_JPRB,2.4918E-02_JPRB,2.9010E-02_JPRB/)  
+KBO( :, 4,17, 4) = (/&
+ & 4.6915E-04_JPRB,1.2239E-02_JPRB,1.9960E-02_JPRB,2.6083E-02_JPRB,2.9616E-02_JPRB/)  
+KBO( :, 5,17, 4) = (/&
+ & 6.7860E-04_JPRB,1.3325E-02_JPRB,2.1171E-02_JPRB,2.7089E-02_JPRB,2.9962E-02_JPRB/)  
+KBO( :, 1,18, 4) = (/&
+ & 8.9115E-05_JPRB,7.6114E-03_JPRB,1.3364E-02_JPRB,1.8461E-02_JPRB,2.2371E-02_JPRB/)  
+KBO( :, 2,18, 4) = (/&
+ & 1.6151E-04_JPRB,8.5146E-03_JPRB,1.4542E-02_JPRB,1.9706E-02_JPRB,2.3318E-02_JPRB/)  
+KBO( :, 3,18, 4) = (/&
+ & 2.6853E-04_JPRB,9.4157E-03_JPRB,1.5660E-02_JPRB,2.0781E-02_JPRB,2.3982E-02_JPRB/)  
+KBO( :, 4,18, 4) = (/&
+ & 4.1020E-04_JPRB,1.0310E-02_JPRB,1.6712E-02_JPRB,2.1721E-02_JPRB,2.4416E-02_JPRB/)  
+KBO( :, 5,18, 4) = (/&
+ & 5.9029E-04_JPRB,1.1212E-02_JPRB,1.7715E-02_JPRB,2.2537E-02_JPRB,2.4643E-02_JPRB/)  
+KBO( :, 1,19, 4) = (/&
+ & 8.0095E-05_JPRB,6.4231E-03_JPRB,1.1196E-02_JPRB,1.5414E-02_JPRB,1.8549E-02_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART16',1,ZHOOK_HANDLE)
+END SUBROUTINE PART16
+
+
+SUBROUTINE PART17
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART17',0,ZHOOK_HANDLE)
+
+
+KBO( :, 2,19, 4) = (/&
+ & 1.4382E-04_JPRB,7.1662E-03_JPRB,1.2159E-02_JPRB,1.6403E-02_JPRB,1.9259E-02_JPRB/)  
+KBO( :, 3,19, 4) = (/&
+ & 2.3623E-04_JPRB,7.9047E-03_JPRB,1.3080E-02_JPRB,1.7271E-02_JPRB,1.9754E-02_JPRB/)  
+KBO( :, 4,19, 4) = (/&
+ & 3.5687E-04_JPRB,8.6444E-03_JPRB,1.3944E-02_JPRB,1.8036E-02_JPRB,2.0065E-02_JPRB/)  
+KBO( :, 5,19, 4) = (/&
+ & 5.1169E-04_JPRB,9.3924E-03_JPRB,1.4772E-02_JPRB,1.8710E-02_JPRB,2.0213E-02_JPRB/)  
+KBO( :, 1,20, 4) = (/&
+ & 7.2492E-05_JPRB,5.4035E-03_JPRB,9.3587E-03_JPRB,1.2831E-02_JPRB,1.5342E-02_JPRB/)  
+KBO( :, 2,20, 4) = (/&
+ & 1.2843E-04_JPRB,6.0138E-03_JPRB,1.0150E-02_JPRB,1.3627E-02_JPRB,1.5882E-02_JPRB/)  
+KBO( :, 3,20, 4) = (/&
+ & 2.0800E-04_JPRB,6.6212E-03_JPRB,1.0905E-02_JPRB,1.4334E-02_JPRB,1.6254E-02_JPRB/)  
+KBO( :, 4,20, 4) = (/&
+ & 3.1139E-04_JPRB,7.2334E-03_JPRB,1.1615E-02_JPRB,1.4959E-02_JPRB,1.6478E-02_JPRB/)  
+KBO( :, 5,20, 4) = (/&
+ & 4.4561E-04_JPRB,7.8568E-03_JPRB,1.2299E-02_JPRB,1.5516E-02_JPRB,1.6574E-02_JPRB/)  
+KBO( :, 1,21, 4) = (/&
+ & 6.5335E-05_JPRB,4.5290E-03_JPRB,7.8063E-03_JPRB,1.0655E-02_JPRB,1.2662E-02_JPRB/)  
+KBO( :, 2,21, 4) = (/&
+ & 1.1419E-04_JPRB,5.0316E-03_JPRB,8.4549E-03_JPRB,1.1302E-02_JPRB,1.3077E-02_JPRB/)  
+KBO( :, 3,21, 4) = (/&
+ & 1.8257E-04_JPRB,5.5323E-03_JPRB,9.0718E-03_JPRB,1.1880E-02_JPRB,1.3357E-02_JPRB/)  
+KBO( :, 4,21, 4) = (/&
+ & 2.7150E-04_JPRB,6.0382E-03_JPRB,9.6571E-03_JPRB,1.2392E-02_JPRB,1.3520E-02_JPRB/)  
+KBO( :, 5,21, 4) = (/&
+ & 3.8801E-04_JPRB,6.5620E-03_JPRB,1.0220E-02_JPRB,1.2849E-02_JPRB,1.3582E-02_JPRB/)  
+KBO( :, 1,22, 4) = (/&
+ & 6.0922E-05_JPRB,3.8139E-03_JPRB,6.5357E-03_JPRB,8.8714E-03_JPRB,1.0461E-02_JPRB/)  
+KBO( :, 2,22, 4) = (/&
+ & 1.0454E-04_JPRB,4.2277E-03_JPRB,7.0637E-03_JPRB,9.3969E-03_JPRB,1.0774E-02_JPRB/)  
+KBO( :, 3,22, 4) = (/&
+ & 1.6444E-04_JPRB,4.6414E-03_JPRB,7.5689E-03_JPRB,9.8658E-03_JPRB,1.0980E-02_JPRB/)  
+KBO( :, 4,22, 4) = (/&
+ & 2.4255E-04_JPRB,5.0640E-03_JPRB,8.0491E-03_JPRB,1.0279E-02_JPRB,1.1093E-02_JPRB/)  
+KBO( :, 5,22, 4) = (/&
+ & 3.4545E-04_JPRB,5.5019E-03_JPRB,8.5122E-03_JPRB,1.0654E-02_JPRB,1.1125E-02_JPRB/)  
+KBO( :, 1,23, 4) = (/&
+ & 5.6689E-05_JPRB,3.2067E-03_JPRB,5.4634E-03_JPRB,7.3826E-03_JPRB,8.6316E-03_JPRB/)  
+KBO( :, 2,23, 4) = (/&
+ & 9.5550E-05_JPRB,3.5483E-03_JPRB,5.8959E-03_JPRB,7.8077E-03_JPRB,8.8675E-03_JPRB/)  
+KBO( :, 3,23, 4) = (/&
+ & 1.4822E-04_JPRB,3.8901E-03_JPRB,6.3080E-03_JPRB,8.1829E-03_JPRB,9.0160E-03_JPRB/)  
+KBO( :, 4,23, 4) = (/&
+ & 2.1693E-04_JPRB,4.2438E-03_JPRB,6.7020E-03_JPRB,8.5212E-03_JPRB,9.0932E-03_JPRB/)  
+KBO( :, 5,23, 4) = (/&
+ & 3.0734E-04_JPRB,4.6091E-03_JPRB,7.0873E-03_JPRB,8.8256E-03_JPRB,9.1050E-03_JPRB/)  
+KBO( :, 1,24, 4) = (/&
+ & 5.2736E-05_JPRB,2.6949E-03_JPRB,4.5641E-03_JPRB,6.1416E-03_JPRB,7.1164E-03_JPRB/)  
+KBO( :, 2,24, 4) = (/&
+ & 8.7372E-05_JPRB,2.9764E-03_JPRB,4.9186E-03_JPRB,6.4817E-03_JPRB,7.2904E-03_JPRB/)  
+KBO( :, 3,24, 4) = (/&
+ & 1.3390E-04_JPRB,3.2620E-03_JPRB,5.2557E-03_JPRB,6.7856E-03_JPRB,7.3982E-03_JPRB/)  
+KBO( :, 4,24, 4) = (/&
+ & 1.9446E-04_JPRB,3.5561E-03_JPRB,5.5797E-03_JPRB,7.0599E-03_JPRB,7.4464E-03_JPRB/)  
+KBO( :, 5,24, 4) = (/&
+ & 2.7345E-04_JPRB,3.8596E-03_JPRB,5.8982E-03_JPRB,7.3057E-03_JPRB,7.4438E-03_JPRB/)  
+KBO( :, 1,25, 4) = (/&
+ & 4.9165E-05_JPRB,2.2652E-03_JPRB,3.8124E-03_JPRB,5.1055E-03_JPRB,5.8623E-03_JPRB/)  
+KBO( :, 2,25, 4) = (/&
+ & 8.0068E-05_JPRB,2.4983E-03_JPRB,4.1027E-03_JPRB,5.3800E-03_JPRB,5.9915E-03_JPRB/)  
+KBO( :, 3,25, 4) = (/&
+ & 1.2114E-04_JPRB,2.7360E-03_JPRB,4.3785E-03_JPRB,5.6255E-03_JPRB,6.0673E-03_JPRB/)  
+KBO( :, 4,25, 4) = (/&
+ & 1.7452E-04_JPRB,2.9807E-03_JPRB,4.6460E-03_JPRB,5.8473E-03_JPRB,6.0957E-03_JPRB/)  
+KBO( :, 5,25, 4) = (/&
+ & 2.4297E-04_JPRB,3.2336E-03_JPRB,4.9074E-03_JPRB,6.0470E-03_JPRB,6.0845E-03_JPRB/)  
+KBO( :, 1,26, 4) = (/&
+ & 4.6134E-05_JPRB,1.9065E-03_JPRB,3.1876E-03_JPRB,4.2457E-03_JPRB,4.8285E-03_JPRB/)  
+KBO( :, 2,26, 4) = (/&
+ & 7.3723E-05_JPRB,2.0998E-03_JPRB,3.4240E-03_JPRB,4.4668E-03_JPRB,4.9227E-03_JPRB/)  
+KBO( :, 3,26, 4) = (/&
+ & 1.0992E-04_JPRB,2.2971E-03_JPRB,3.6508E-03_JPRB,4.6650E-03_JPRB,4.9747E-03_JPRB/)  
+KBO( :, 4,26, 4) = (/&
+ & 1.5687E-04_JPRB,2.5009E-03_JPRB,3.8701E-03_JPRB,4.8439E-03_JPRB,4.9884E-03_JPRB/)  
+KBO( :, 5,26, 4) = (/&
+ & 2.1597E-04_JPRB,2.7132E-03_JPRB,4.0857E-03_JPRB,5.0072E-03_JPRB,4.9727E-03_JPRB/)  
+KBO( :, 1,27, 4) = (/&
+ & 4.3156E-05_JPRB,1.6045E-03_JPRB,2.6642E-03_JPRB,3.5293E-03_JPRB,3.9753E-03_JPRB/)  
+KBO( :, 2,27, 4) = (/&
+ & 6.7610E-05_JPRB,1.7645E-03_JPRB,2.8577E-03_JPRB,3.7073E-03_JPRB,4.0435E-03_JPRB/)  
+KBO( :, 3,27, 4) = (/&
+ & 9.9302E-05_JPRB,1.9283E-03_JPRB,3.0434E-03_JPRB,3.8675E-03_JPRB,4.0783E-03_JPRB/)  
+KBO( :, 4,27, 4) = (/&
+ & 1.4035E-04_JPRB,2.0987E-03_JPRB,3.2238E-03_JPRB,4.0126E-03_JPRB,4.0827E-03_JPRB/)  
+KBO( :, 5,27, 4) = (/&
+ & 1.9112E-04_JPRB,2.2790E-03_JPRB,3.4026E-03_JPRB,4.1445E-03_JPRB,4.0645E-03_JPRB/)  
+KBO( :, 1,28, 4) = (/&
+ & 4.0151E-05_JPRB,1.3496E-03_JPRB,2.2256E-03_JPRB,2.9318E-03_JPRB,3.2709E-03_JPRB/)  
+KBO( :, 2,28, 4) = (/&
+ & 6.1693E-05_JPRB,1.4821E-03_JPRB,2.3842E-03_JPRB,3.0756E-03_JPRB,3.3203E-03_JPRB/)  
+KBO( :, 3,28, 4) = (/&
+ & 8.9314E-05_JPRB,1.6183E-03_JPRB,2.5363E-03_JPRB,3.2052E-03_JPRB,3.3423E-03_JPRB/)  
+KBO( :, 4,28, 4) = (/&
+ & 1.2503E-04_JPRB,1.7621E-03_JPRB,2.6850E-03_JPRB,3.3229E-03_JPRB,3.3419E-03_JPRB/)  
+KBO( :, 5,28, 4) = (/&
+ & 1.6847E-04_JPRB,1.9159E-03_JPRB,2.8346E-03_JPRB,3.4298E-03_JPRB,3.3234E-03_JPRB/)  
+KBO( :, 1,29, 4) = (/&
+ & 3.7204E-05_JPRB,1.1357E-03_JPRB,1.8605E-03_JPRB,2.4364E-03_JPRB,2.6925E-03_JPRB/)  
+KBO( :, 2,29, 4) = (/&
+ & 5.6126E-05_JPRB,1.2453E-03_JPRB,1.9896E-03_JPRB,2.5519E-03_JPRB,2.7276E-03_JPRB/)  
+KBO( :, 3,29, 4) = (/&
+ & 8.0329E-05_JPRB,1.3596E-03_JPRB,2.1150E-03_JPRB,2.6576E-03_JPRB,2.7417E-03_JPRB/)  
+KBO( :, 4,29, 4) = (/&
+ & 1.1119E-04_JPRB,1.4821E-03_JPRB,2.2379E-03_JPRB,2.7526E-03_JPRB,2.7376E-03_JPRB/)  
+KBO( :, 5,29, 4) = (/&
+ & 1.4835E-04_JPRB,1.6135E-03_JPRB,2.3653E-03_JPRB,2.8402E-03_JPRB,2.7209E-03_JPRB/)  
+KBO( :, 1,30, 4) = (/&
+ & 3.4278E-05_JPRB,9.5541E-04_JPRB,1.5548E-03_JPRB,2.0242E-03_JPRB,2.2164E-03_JPRB/)  
+KBO( :, 2,30, 4) = (/&
+ & 5.0802E-05_JPRB,1.0465E-03_JPRB,1.6607E-03_JPRB,2.1179E-03_JPRB,2.2411E-03_JPRB/)  
+KBO( :, 3,30, 4) = (/&
+ & 7.2016E-05_JPRB,1.1433E-03_JPRB,1.7631E-03_JPRB,2.2027E-03_JPRB,2.2491E-03_JPRB/)  
+KBO( :, 4,30, 4) = (/&
+ & 9.8522E-05_JPRB,1.2484E-03_JPRB,1.8671E-03_JPRB,2.2807E-03_JPRB,2.2444E-03_JPRB/)  
+KBO( :, 5,30, 4) = (/&
+ & 1.3037E-04_JPRB,1.3590E-03_JPRB,1.9752E-03_JPRB,2.3528E-03_JPRB,2.2289E-03_JPRB/)  
+KBO( :, 1,31, 4) = (/&
+ & 3.1460E-05_JPRB,8.0377E-04_JPRB,1.2994E-03_JPRB,1.6818E-03_JPRB,1.8252E-03_JPRB/)  
+KBO( :, 2,31, 4) = (/&
+ & 4.5877E-05_JPRB,8.8014E-04_JPRB,1.3859E-03_JPRB,1.7575E-03_JPRB,1.8427E-03_JPRB/)  
+KBO( :, 3,31, 4) = (/&
+ & 6.4417E-05_JPRB,9.6356E-04_JPRB,1.4714E-03_JPRB,1.8269E-03_JPRB,1.8476E-03_JPRB/)  
+KBO( :, 4,31, 4) = (/&
+ & 8.7181E-05_JPRB,1.0525E-03_JPRB,1.5596E-03_JPRB,1.8902E-03_JPRB,1.8422E-03_JPRB/)  
+KBO( :, 5,31, 4) = (/&
+ & 1.1453E-04_JPRB,1.1450E-03_JPRB,1.6516E-03_JPRB,1.9513E-03_JPRB,1.8286E-03_JPRB/)  
+KBO( :, 1,32, 4) = (/&
+ & 2.8746E-05_JPRB,6.7650E-04_JPRB,1.0860E-03_JPRB,1.3976E-03_JPRB,1.5036E-03_JPRB/)  
+KBO( :, 2,32, 4) = (/&
+ & 4.1322E-05_JPRB,7.4162E-04_JPRB,1.1570E-03_JPRB,1.4588E-03_JPRB,1.5157E-03_JPRB/)  
+KBO( :, 3,32, 4) = (/&
+ & 5.7453E-05_JPRB,8.1295E-04_JPRB,1.2291E-03_JPRB,1.5152E-03_JPRB,1.5184E-03_JPRB/)  
+KBO( :, 4,32, 4) = (/&
+ & 7.7060E-05_JPRB,8.8760E-04_JPRB,1.3041E-03_JPRB,1.5676E-03_JPRB,1.5130E-03_JPRB/)  
+KBO( :, 5,32, 4) = (/&
+ & 1.0055E-04_JPRB,9.6447E-04_JPRB,1.3816E-03_JPRB,1.6201E-03_JPRB,1.5011E-03_JPRB/)  
+KBO( :, 1,33, 4) = (/&
+ & 2.6149E-05_JPRB,5.6986E-04_JPRB,9.0744E-04_JPRB,1.1611E-03_JPRB,1.2388E-03_JPRB/)  
+KBO( :, 2,33, 4) = (/&
+ & 3.7187E-05_JPRB,6.2590E-04_JPRB,9.6645E-04_JPRB,1.2109E-03_JPRB,1.2475E-03_JPRB/)  
+KBO( :, 3,33, 4) = (/&
+ & 5.1122E-05_JPRB,6.8620E-04_JPRB,1.0278E-03_JPRB,1.2567E-03_JPRB,1.2488E-03_JPRB/)  
+KBO( :, 4,33, 4) = (/&
+ & 6.7992E-05_JPRB,7.4863E-04_JPRB,1.0916E-03_JPRB,1.3015E-03_JPRB,1.2439E-03_JPRB/)  
+KBO( :, 5,33, 4) = (/&
+ & 8.8264E-05_JPRB,8.1165E-04_JPRB,1.1560E-03_JPRB,1.3467E-03_JPRB,1.2339E-03_JPRB/)  
+KBO( :, 1,34, 4) = (/&
+ & 2.3383E-05_JPRB,4.7914E-04_JPRB,7.5656E-04_JPRB,9.6327E-04_JPRB,1.0201E-03_JPRB/)  
+KBO( :, 2,34, 4) = (/&
+ & 3.2952E-05_JPRB,5.2698E-04_JPRB,8.0647E-04_JPRB,1.0038E-03_JPRB,1.0263E-03_JPRB/)  
+KBO( :, 3,34, 4) = (/&
+ & 4.4898E-05_JPRB,5.7759E-04_JPRB,8.5874E-04_JPRB,1.0423E-03_JPRB,1.0268E-03_JPRB/)  
+KBO( :, 4,34, 4) = (/&
+ & 5.9304E-05_JPRB,6.2906E-04_JPRB,9.1184E-04_JPRB,1.0803E-03_JPRB,1.0223E-03_JPRB/)  
+KBO( :, 5,34, 4) = (/&
+ & 7.6697E-05_JPRB,6.8025E-04_JPRB,9.6511E-04_JPRB,1.1186E-03_JPRB,1.0139E-03_JPRB/)  
+KBO( :, 1,35, 4) = (/&
+ & 2.0135E-05_JPRB,3.9961E-04_JPRB,6.2708E-04_JPRB,7.9562E-04_JPRB,8.3915E-04_JPRB/)  
+KBO( :, 2,35, 4) = (/&
+ & 2.8240E-05_JPRB,4.3984E-04_JPRB,6.6953E-04_JPRB,8.2921E-04_JPRB,8.4431E-04_JPRB/)  
+KBO( :, 3,35, 4) = (/&
+ & 3.8284E-05_JPRB,4.8179E-04_JPRB,7.1336E-04_JPRB,8.6176E-04_JPRB,8.4473E-04_JPRB/)  
+KBO( :, 4,35, 4) = (/&
+ & 5.0380E-05_JPRB,5.2399E-04_JPRB,7.5755E-04_JPRB,8.9436E-04_JPRB,8.4105E-04_JPRB/)  
+KBO( :, 5,35, 4) = (/&
+ & 6.4985E-05_JPRB,5.6538E-04_JPRB,8.0096E-04_JPRB,9.2613E-04_JPRB,8.3390E-04_JPRB/)  
+KBO( :, 1,36, 4) = (/&
+ & 1.6672E-05_JPRB,3.3001E-04_JPRB,5.1652E-04_JPRB,6.5429E-04_JPRB,6.8995E-04_JPRB/)  
+KBO( :, 2,36, 4) = (/&
+ & 2.3356E-05_JPRB,3.6341E-04_JPRB,5.5227E-04_JPRB,6.8236E-04_JPRB,6.9447E-04_JPRB/)  
+KBO( :, 3,36, 4) = (/&
+ & 3.1620E-05_JPRB,3.9798E-04_JPRB,5.8880E-04_JPRB,7.1017E-04_JPRB,6.9516E-04_JPRB/)  
+KBO( :, 4,36, 4) = (/&
+ & 4.1586E-05_JPRB,4.3228E-04_JPRB,6.2537E-04_JPRB,7.3771E-04_JPRB,6.9235E-04_JPRB/)  
+KBO( :, 5,36, 4) = (/&
+ & 5.3612E-05_JPRB,4.6581E-04_JPRB,6.6082E-04_JPRB,7.6427E-04_JPRB,6.8669E-04_JPRB/)  
+KBO( :, 1,37, 4) = (/&
+ & 1.3087E-05_JPRB,2.6849E-04_JPRB,4.2115E-04_JPRB,5.3442E-04_JPRB,5.6613E-04_JPRB/)  
+KBO( :, 2,37, 4) = (/&
+ & 1.8389E-05_JPRB,2.9596E-04_JPRB,4.5110E-04_JPRB,5.5819E-04_JPRB,5.7060E-04_JPRB/)  
+KBO( :, 3,37, 4) = (/&
+ & 2.4989E-05_JPRB,3.2427E-04_JPRB,4.8144E-04_JPRB,5.8191E-04_JPRB,5.7172E-04_JPRB/)  
+KBO( :, 4,37, 4) = (/&
+ & 3.2975E-05_JPRB,3.5221E-04_JPRB,5.1177E-04_JPRB,6.0525E-04_JPRB,5.6998E-04_JPRB/)  
+KBO( :, 5,37, 4) = (/&
+ & 4.2603E-05_JPRB,3.7949E-04_JPRB,5.4072E-04_JPRB,6.2738E-04_JPRB,5.6571E-04_JPRB/)  
+KBO( :, 1,38, 4) = (/&
+ & 1.0230E-05_JPRB,2.1818E-04_JPRB,3.4316E-04_JPRB,4.3622E-04_JPRB,4.6452E-04_JPRB/)  
+KBO( :, 2,38, 4) = (/&
+ & 1.4428E-05_JPRB,2.4074E-04_JPRB,3.6819E-04_JPRB,4.5640E-04_JPRB,4.6888E-04_JPRB/)  
+KBO( :, 3,38, 4) = (/&
+ & 1.9697E-05_JPRB,2.6389E-04_JPRB,3.9346E-04_JPRB,4.7668E-04_JPRB,4.7037E-04_JPRB/)  
+KBO( :, 4,38, 4) = (/&
+ & 2.6076E-05_JPRB,2.8667E-04_JPRB,4.1847E-04_JPRB,4.9632E-04_JPRB,4.6943E-04_JPRB/)  
+KBO( :, 5,38, 4) = (/&
+ & 3.3772E-05_JPRB,3.0890E-04_JPRB,4.4212E-04_JPRB,5.1488E-04_JPRB,4.6632E-04_JPRB/)  
+KBO( :, 1,39, 4) = (/&
+ & 7.9957E-06_JPRB,1.7734E-04_JPRB,2.7964E-04_JPRB,3.5608E-04_JPRB,3.8137E-04_JPRB/)  
+KBO( :, 2,39, 4) = (/&
+ & 1.1315E-05_JPRB,1.9578E-04_JPRB,3.0056E-04_JPRB,3.7320E-04_JPRB,3.8548E-04_JPRB/)  
+KBO( :, 3,39, 4) = (/&
+ & 1.5521E-05_JPRB,2.1469E-04_JPRB,3.2152E-04_JPRB,3.9044E-04_JPRB,3.8726E-04_JPRB/)  
+KBO( :, 4,39, 4) = (/&
+ & 2.0623E-05_JPRB,2.3327E-04_JPRB,3.4211E-04_JPRB,4.0694E-04_JPRB,3.8696E-04_JPRB/)  
+KBO( :, 5,39, 4) = (/&
+ & 2.6775E-05_JPRB,2.5145E-04_JPRB,3.6146E-04_JPRB,4.2258E-04_JPRB,3.8472E-04_JPRB/)  
+KBO( :, 1,40, 4) = (/&
+ & 6.0059E-06_JPRB,1.4255E-04_JPRB,2.2608E-04_JPRB,2.8913E-04_JPRB,3.1195E-04_JPRB/)  
+KBO( :, 2,40, 4) = (/&
+ & 8.5603E-06_JPRB,1.5759E-04_JPRB,2.4350E-04_JPRB,3.0367E-04_JPRB,3.1602E-04_JPRB/)  
+KBO( :, 3,40, 4) = (/&
+ & 1.1848E-05_JPRB,1.7303E-04_JPRB,2.6092E-04_JPRB,3.1829E-04_JPRB,3.1800E-04_JPRB/)  
+KBO( :, 4,40, 4) = (/&
+ & 1.5848E-05_JPRB,1.8824E-04_JPRB,2.7792E-04_JPRB,3.3233E-04_JPRB,3.1813E-04_JPRB/)  
+KBO( :, 5,40, 4) = (/&
+ & 2.0655E-05_JPRB,2.0317E-04_JPRB,2.9386E-04_JPRB,3.4558E-04_JPRB,3.1680E-04_JPRB/)  
+KBO( :, 1,41, 4) = (/&
+ & 4.4737E-06_JPRB,1.1440E-04_JPRB,1.8254E-04_JPRB,2.3457E-04_JPRB,2.5497E-04_JPRB/)  
+KBO( :, 2,41, 4) = (/&
+ & 6.4501E-06_JPRB,1.2664E-04_JPRB,1.9704E-04_JPRB,2.4685E-04_JPRB,2.5884E-04_JPRB/)  
+KBO( :, 3,41, 4) = (/&
+ & 8.9908E-06_JPRB,1.3923E-04_JPRB,2.1149E-04_JPRB,2.5926E-04_JPRB,2.6097E-04_JPRB/)  
+KBO( :, 4,41, 4) = (/&
+ & 1.2113E-05_JPRB,1.5171E-04_JPRB,2.2552E-04_JPRB,2.7117E-04_JPRB,2.6150E-04_JPRB/)  
+KBO( :, 5,41, 4) = (/&
+ & 1.5882E-05_JPRB,1.6391E-04_JPRB,2.3860E-04_JPRB,2.8232E-04_JPRB,2.6072E-04_JPRB/)  
+KBO( :, 1,42, 4) = (/&
+ & 3.3198E-06_JPRB,9.1718E-05_JPRB,1.4723E-04_JPRB,1.9011E-04_JPRB,2.0829E-04_JPRB/)  
+KBO( :, 2,42, 4) = (/&
+ & 4.8502E-06_JPRB,1.0170E-04_JPRB,1.5931E-04_JPRB,2.0051E-04_JPRB,2.1195E-04_JPRB/)  
+KBO( :, 3,42, 4) = (/&
+ & 6.8039E-06_JPRB,1.1200E-04_JPRB,1.7132E-04_JPRB,2.1108E-04_JPRB,2.1414E-04_JPRB/)  
+KBO( :, 4,42, 4) = (/&
+ & 9.2426E-06_JPRB,1.2222E-04_JPRB,1.8289E-04_JPRB,2.2117E-04_JPRB,2.1495E-04_JPRB/)  
+KBO( :, 5,42, 4) = (/&
+ & 1.2195E-05_JPRB,1.3221E-04_JPRB,1.9367E-04_JPRB,2.3056E-04_JPRB,2.1462E-04_JPRB/)  
+KBO( :, 1,43, 4) = (/&
+ & 2.3953E-06_JPRB,7.3035E-05_JPRB,1.1812E-04_JPRB,1.5350E-04_JPRB,1.6984E-04_JPRB/)  
+KBO( :, 2,43, 4) = (/&
+ & 3.5612E-06_JPRB,8.1187E-05_JPRB,1.2819E-04_JPRB,1.6232E-04_JPRB,1.7330E-04_JPRB/)  
+KBO( :, 3,43, 4) = (/&
+ & 5.0399E-06_JPRB,8.9542E-05_JPRB,1.3813E-04_JPRB,1.7126E-04_JPRB,1.7552E-04_JPRB/)  
+KBO( :, 4,43, 4) = (/&
+ & 6.9214E-06_JPRB,9.7944E-05_JPRB,1.4772E-04_JPRB,1.7984E-04_JPRB,1.7653E-04_JPRB/)  
+KBO( :, 5,43, 4) = (/&
+ & 9.2081E-06_JPRB,1.0615E-04_JPRB,1.5668E-04_JPRB,1.8781E-04_JPRB,1.7659E-04_JPRB/)  
+KBO( :, 1,44, 4) = (/&
+ & 1.6976E-06_JPRB,5.7928E-05_JPRB,9.4481E-05_JPRB,1.2365E-04_JPRB,1.3829E-04_JPRB/)  
+KBO( :, 2,44, 4) = (/&
+ & 2.5776E-06_JPRB,6.4569E-05_JPRB,1.0281E-04_JPRB,1.3107E-04_JPRB,1.4154E-04_JPRB/)  
+KBO( :, 3,44, 4) = (/&
+ & 3.6914E-06_JPRB,7.1395E-05_JPRB,1.1108E-04_JPRB,1.3867E-04_JPRB,1.4376E-04_JPRB/)  
+KBO( :, 4,44, 4) = (/&
+ & 5.1284E-06_JPRB,7.8255E-05_JPRB,1.1905E-04_JPRB,1.4597E-04_JPRB,1.4496E-04_JPRB/)  
+KBO( :, 5,44, 4) = (/&
+ & 6.8839E-06_JPRB,8.5009E-05_JPRB,1.2651E-04_JPRB,1.5274E-04_JPRB,1.4528E-04_JPRB/)  
+KBO( :, 1,45, 4) = (/&
+ & 1.1934E-06_JPRB,4.5877E-05_JPRB,7.5459E-05_JPRB,9.9465E-05_JPRB,1.1252E-04_JPRB/)  
+KBO( :, 2,45, 4) = (/&
+ & 1.8535E-06_JPRB,5.1319E-05_JPRB,8.2366E-05_JPRB,1.0575E-04_JPRB,1.1552E-04_JPRB/)  
+KBO( :, 3,45, 4) = (/&
+ & 2.7008E-06_JPRB,5.6880E-05_JPRB,8.9246E-05_JPRB,1.1216E-04_JPRB,1.1771E-04_JPRB/)  
+KBO( :, 4,45, 4) = (/&
+ & 3.7837E-06_JPRB,6.2494E-05_JPRB,9.5875E-05_JPRB,1.1839E-04_JPRB,1.1899E-04_JPRB/)  
+KBO( :, 5,45, 4) = (/&
+ & 5.1348E-06_JPRB,6.8027E-05_JPRB,1.0210E-04_JPRB,1.2412E-04_JPRB,1.1954E-04_JPRB/)  
+KBO( :, 1,46, 4) = (/&
+ & 8.2182E-07_JPRB,3.6187E-05_JPRB,6.0090E-05_JPRB,7.9818E-05_JPRB,9.1376E-05_JPRB/)  
+KBO( :, 2,46, 4) = (/&
+ & 1.3116E-06_JPRB,4.0642E-05_JPRB,6.5780E-05_JPRB,8.5120E-05_JPRB,9.4184E-05_JPRB/)  
+KBO( :, 3,46, 4) = (/&
+ & 1.9501E-06_JPRB,4.5184E-05_JPRB,7.1520E-05_JPRB,9.0515E-05_JPRB,9.6278E-05_JPRB/)  
+KBO( :, 4,46, 4) = (/&
+ & 2.7596E-06_JPRB,4.9774E-05_JPRB,7.7042E-05_JPRB,9.5816E-05_JPRB,9.7611E-05_JPRB/)  
+KBO( :, 5,46, 4) = (/&
+ & 3.7920E-06_JPRB,5.4316E-05_JPRB,8.2245E-05_JPRB,1.0070E-04_JPRB,9.8321E-05_JPRB/)  
+KBO( :, 1,47, 4) = (/&
+ & 5.4572E-07_JPRB,2.8352E-05_JPRB,4.7590E-05_JPRB,6.3770E-05_JPRB,7.3936E-05_JPRB/)  
+KBO( :, 2,47, 4) = (/&
+ & 9.0249E-07_JPRB,3.1986E-05_JPRB,5.2255E-05_JPRB,6.8238E-05_JPRB,7.6557E-05_JPRB/)  
+KBO( :, 3,47, 4) = (/&
+ & 1.3764E-06_JPRB,3.5691E-05_JPRB,5.7035E-05_JPRB,7.2769E-05_JPRB,7.8547E-05_JPRB/)  
+KBO( :, 4,47, 4) = (/&
+ & 1.9784E-06_JPRB,3.9441E-05_JPRB,6.1643E-05_JPRB,7.7278E-05_JPRB,7.9920E-05_JPRB/)  
+KBO( :, 5,47, 4) = (/&
+ & 2.7518E-06_JPRB,4.3171E-05_JPRB,6.6014E-05_JPRB,8.1443E-05_JPRB,8.0725E-05_JPRB/)  
+KBO( :, 1,48, 4) = (/&
+ & 3.5613E-07_JPRB,2.2167E-05_JPRB,3.7637E-05_JPRB,5.0854E-05_JPRB,5.9741E-05_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART17',1,ZHOOK_HANDLE)
+END SUBROUTINE PART17
+
+
+SUBROUTINE PART18
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART18',0,ZHOOK_HANDLE)
+
+
+KBO( :, 2,48, 4) = (/&
+ & 6.1385E-07_JPRB,2.5120E-05_JPRB,4.1451E-05_JPRB,5.4622E-05_JPRB,6.2174E-05_JPRB/)  
+KBO( :, 3,48, 4) = (/&
+ & 9.6245E-07_JPRB,2.8151E-05_JPRB,4.5401E-05_JPRB,5.8409E-05_JPRB,6.4024E-05_JPRB/)  
+KBO( :, 4,48, 4) = (/&
+ & 1.4130E-06_JPRB,3.1220E-05_JPRB,4.9258E-05_JPRB,6.2234E-05_JPRB,6.5397E-05_JPRB/)  
+KBO( :, 5,48, 4) = (/&
+ & 1.9862E-06_JPRB,3.4268E-05_JPRB,5.2922E-05_JPRB,6.5784E-05_JPRB,6.6274E-05_JPRB/)  
+KBO( :, 1,49, 4) = (/&
+ & 2.2854E-07_JPRB,1.7300E-05_JPRB,2.9705E-05_JPRB,4.0466E-05_JPRB,4.8198E-05_JPRB/)  
+KBO( :, 2,49, 4) = (/&
+ & 4.1152E-07_JPRB,1.9683E-05_JPRB,3.2825E-05_JPRB,4.3649E-05_JPRB,5.0447E-05_JPRB/)  
+KBO( :, 3,49, 4) = (/&
+ & 6.6605E-07_JPRB,2.2175E-05_JPRB,3.6088E-05_JPRB,4.6825E-05_JPRB,5.2181E-05_JPRB/)  
+KBO( :, 4,49, 4) = (/&
+ & 1.0015E-06_JPRB,2.4680E-05_JPRB,3.9305E-05_JPRB,5.0044E-05_JPRB,5.3514E-05_JPRB/)  
+KBO( :, 5,49, 4) = (/&
+ & 1.4253E-06_JPRB,2.7183E-05_JPRB,4.2380E-05_JPRB,5.3073E-05_JPRB,5.4435E-05_JPRB/)  
+KBO( :, 1,50, 4) = (/&
+ & 1.4675E-07_JPRB,1.3524E-05_JPRB,2.3463E-05_JPRB,3.2195E-05_JPRB,3.8796E-05_JPRB/)  
+KBO( :, 2,50, 4) = (/&
+ & 2.7518E-07_JPRB,1.5442E-05_JPRB,2.6020E-05_JPRB,3.4887E-05_JPRB,4.0832E-05_JPRB/)  
+KBO( :, 3,50, 4) = (/&
+ & 4.6153E-07_JPRB,1.7480E-05_JPRB,2.8694E-05_JPRB,3.7541E-05_JPRB,4.2427E-05_JPRB/)  
+KBO( :, 4,50, 4) = (/&
+ & 7.1099E-07_JPRB,1.9535E-05_JPRB,3.1383E-05_JPRB,4.0252E-05_JPRB,4.3676E-05_JPRB/)  
+KBO( :, 5,50, 4) = (/&
+ & 1.0304E-06_JPRB,2.1596E-05_JPRB,3.3959E-05_JPRB,4.2830E-05_JPRB,4.4585E-05_JPRB/)  
+KBO( :, 1,51, 4) = (/&
+ & 9.3830E-08_JPRB,1.0573E-05_JPRB,1.8529E-05_JPRB,2.5594E-05_JPRB,3.1167E-05_JPRB/)  
+KBO( :, 2,51, 4) = (/&
+ & 1.8257E-07_JPRB,1.2113E-05_JPRB,2.0626E-05_JPRB,2.7865E-05_JPRB,3.2983E-05_JPRB/)  
+KBO( :, 3,51, 4) = (/&
+ & 3.1815E-07_JPRB,1.3777E-05_JPRB,2.2807E-05_JPRB,3.0085E-05_JPRB,3.4435E-05_JPRB/)  
+KBO( :, 4,51, 4) = (/&
+ & 5.0296E-07_JPRB,1.5465E-05_JPRB,2.5047E-05_JPRB,3.2352E-05_JPRB,3.5572E-05_JPRB/)  
+KBO( :, 5,51, 4) = (/&
+ & 7.4372E-07_JPRB,1.7150E-05_JPRB,2.7196E-05_JPRB,3.4538E-05_JPRB,3.6442E-05_JPRB/)  
+KBO( :, 1,52, 4) = (/&
+ & 5.9402E-08_JPRB,8.2536E-06_JPRB,1.4613E-05_JPRB,2.0313E-05_JPRB,2.4997E-05_JPRB/)  
+KBO( :, 2,52, 4) = (/&
+ & 1.1950E-07_JPRB,9.4874E-06_JPRB,1.6325E-05_JPRB,2.2218E-05_JPRB,2.6608E-05_JPRB/)  
+KBO( :, 3,52, 4) = (/&
+ & 2.1668E-07_JPRB,1.0839E-05_JPRB,1.8107E-05_JPRB,2.4086E-05_JPRB,2.7927E-05_JPRB/)  
+KBO( :, 4,52, 4) = (/&
+ & 3.5284E-07_JPRB,1.2223E-05_JPRB,1.9960E-05_JPRB,2.5966E-05_JPRB,2.8965E-05_JPRB/)  
+KBO( :, 5,52, 4) = (/&
+ & 5.3348E-07_JPRB,1.3609E-05_JPRB,2.1758E-05_JPRB,2.7822E-05_JPRB,2.9780E-05_JPRB/)  
+KBO( :, 1,53, 4) = (/&
+ & 3.7345E-08_JPRB,6.4324E-06_JPRB,1.1502E-05_JPRB,1.6089E-05_JPRB,2.0014E-05_JPRB/)  
+KBO( :, 2,53, 4) = (/&
+ & 7.7125E-08_JPRB,7.4212E-06_JPRB,1.2900E-05_JPRB,1.7682E-05_JPRB,2.1442E-05_JPRB/)  
+KBO( :, 3,53, 4) = (/&
+ & 1.4542E-07_JPRB,8.5076E-06_JPRB,1.4352E-05_JPRB,1.9246E-05_JPRB,2.2631E-05_JPRB/)  
+KBO( :, 4,53, 4) = (/&
+ & 2.4523E-07_JPRB,9.6460E-06_JPRB,1.5883E-05_JPRB,2.0812E-05_JPRB,2.3585E-05_JPRB/)  
+KBO( :, 5,53, 4) = (/&
+ & 3.7962E-07_JPRB,1.0784E-05_JPRB,1.7382E-05_JPRB,2.2378E-05_JPRB,2.4349E-05_JPRB/)  
+KBO( :, 1,54, 4) = (/&
+ & 2.4018E-08_JPRB,5.0298E-06_JPRB,9.0727E-06_JPRB,1.2757E-05_JPRB,1.5972E-05_JPRB/)  
+KBO( :, 2,54, 4) = (/&
+ & 5.0282E-08_JPRB,5.8191E-06_JPRB,1.0210E-05_JPRB,1.4083E-05_JPRB,1.7202E-05_JPRB/)  
+KBO( :, 3,54, 4) = (/&
+ & 9.8093E-08_JPRB,6.6934E-06_JPRB,1.1398E-05_JPRB,1.5393E-05_JPRB,1.8246E-05_JPRB/)  
+KBO( :, 4,54, 4) = (/&
+ & 1.7136E-07_JPRB,7.6261E-06_JPRB,1.2653E-05_JPRB,1.6695E-05_JPRB,1.9090E-05_JPRB/)  
+KBO( :, 5,54, 4) = (/&
+ & 2.7159E-07_JPRB,8.5620E-06_JPRB,1.3903E-05_JPRB,1.8013E-05_JPRB,1.9768E-05_JPRB/)  
+KBO( :, 1,55, 4) = (/&
+ & 1.5705E-08_JPRB,3.9361E-06_JPRB,7.1560E-06_JPRB,1.0111E-05_JPRB,1.2713E-05_JPRB/)  
+KBO( :, 2,55, 4) = (/&
+ & 3.2852E-08_JPRB,4.5671E-06_JPRB,8.0833E-06_JPRB,1.1215E-05_JPRB,1.3756E-05_JPRB/)  
+KBO( :, 3,55, 4) = (/&
+ & 6.5995E-08_JPRB,5.2691E-06_JPRB,9.0558E-06_JPRB,1.2309E-05_JPRB,1.4658E-05_JPRB/)  
+KBO( :, 4,55, 4) = (/&
+ & 1.1933E-07_JPRB,6.0307E-06_JPRB,1.0082E-05_JPRB,1.3396E-05_JPRB,1.5392E-05_JPRB/)  
+KBO( :, 5,55, 4) = (/&
+ & 1.9407E-07_JPRB,6.7994E-06_JPRB,1.1122E-05_JPRB,1.4497E-05_JPRB,1.5981E-05_JPRB/)  
+KBO( :, 1,56, 4) = (/&
+ & 1.0423E-08_JPRB,3.0764E-06_JPRB,5.6365E-06_JPRB,8.0036E-06_JPRB,1.0107E-05_JPRB/)  
+KBO( :, 2,56, 4) = (/&
+ & 2.1352E-08_JPRB,3.5821E-06_JPRB,6.3947E-06_JPRB,8.9204E-06_JPRB,1.0989E-05_JPRB/)  
+KBO( :, 3,56, 4) = (/&
+ & 4.3941E-08_JPRB,4.1425E-06_JPRB,7.1860E-06_JPRB,9.8275E-06_JPRB,1.1759E-05_JPRB/)  
+KBO( :, 4,56, 4) = (/&
+ & 8.2219E-08_JPRB,4.7612E-06_JPRB,8.0218E-06_JPRB,1.0735E-05_JPRB,1.2399E-05_JPRB/)  
+KBO( :, 5,56, 4) = (/&
+ & 1.3782E-07_JPRB,5.3933E-06_JPRB,8.8859E-06_JPRB,1.1651E-05_JPRB,1.2911E-05_JPRB/)  
+KBO( :, 1,57, 4) = (/&
+ & 7.0716E-09_JPRB,2.4016E-06_JPRB,4.4336E-06_JPRB,6.3273E-06_JPRB,8.0236E-06_JPRB/)  
+KBO( :, 2,57, 4) = (/&
+ & 1.3864E-08_JPRB,2.8058E-06_JPRB,5.0502E-06_JPRB,7.0825E-06_JPRB,8.7616E-06_JPRB/)  
+KBO( :, 3,57, 4) = (/&
+ & 2.8989E-08_JPRB,3.2523E-06_JPRB,5.6949E-06_JPRB,7.8345E-06_JPRB,9.4204E-06_JPRB/)  
+KBO( :, 4,57, 4) = (/&
+ & 5.6049E-08_JPRB,3.7535E-06_JPRB,6.3764E-06_JPRB,8.5926E-06_JPRB,9.9758E-06_JPRB/)  
+KBO( :, 5,57, 4) = (/&
+ & 9.7119E-08_JPRB,4.2717E-06_JPRB,7.0902E-06_JPRB,9.3510E-06_JPRB,1.0422E-05_JPRB/)  
+KBO( :, 1,58, 4) = (/&
+ & 4.9738E-09_JPRB,1.8772E-06_JPRB,3.4889E-06_JPRB,5.0033E-06_JPRB,6.3670E-06_JPRB/)  
+KBO( :, 2,58, 4) = (/&
+ & 9.1491E-09_JPRB,2.2003E-06_JPRB,3.9908E-06_JPRB,5.6234E-06_JPRB,6.9822E-06_JPRB/)  
+KBO( :, 3,58, 4) = (/&
+ & 1.9204E-08_JPRB,2.5577E-06_JPRB,4.5175E-06_JPRB,6.2482E-06_JPRB,7.5411E-06_JPRB/)  
+KBO( :, 4,58, 4) = (/&
+ & 3.8223E-08_JPRB,2.9606E-06_JPRB,5.0708E-06_JPRB,6.8776E-06_JPRB,8.0170E-06_JPRB/)  
+KBO( :, 5,58, 4) = (/&
+ & 6.8398E-08_JPRB,3.3850E-06_JPRB,5.6590E-06_JPRB,7.5062E-06_JPRB,8.4029E-06_JPRB/)  
+KBO( :, 1,59, 4) = (/&
+ & 3.8735E-09_JPRB,1.5107E-06_JPRB,2.8146E-06_JPRB,4.0428E-06_JPRB,5.1269E-06_JPRB/)  
+KBO( :, 2,59, 4) = (/&
+ & 6.9185E-09_JPRB,1.7736E-06_JPRB,3.2266E-06_JPRB,4.5533E-06_JPRB,5.6260E-06_JPRB/)  
+KBO( :, 3,59, 4) = (/&
+ & 1.4484E-08_JPRB,2.0648E-06_JPRB,3.6588E-06_JPRB,5.0704E-06_JPRB,6.0775E-06_JPRB/)  
+KBO( :, 4,59, 4) = (/&
+ & 2.9105E-08_JPRB,2.3952E-06_JPRB,4.1152E-06_JPRB,5.5930E-06_JPRB,6.4648E-06_JPRB/)  
+KBO( :, 5,59, 4) = (/&
+ & 5.2712E-08_JPRB,2.7434E-06_JPRB,4.6004E-06_JPRB,6.1168E-06_JPRB,6.7765E-06_JPRB/)  
+KBO( :, 1,13, 5) = (/&
+ & 9.5206E-04_JPRB,3.5867E-02_JPRB,6.3329E-02_JPRB,8.8273E-02_JPRB,1.0919E-01_JPRB/)  
+KBO( :, 2,13, 5) = (/&
+ & 1.4606E-03_JPRB,3.9499E-02_JPRB,6.8038E-02_JPRB,9.3530E-02_JPRB,1.1392E-01_JPRB/)  
+KBO( :, 3,13, 5) = (/&
+ & 2.1122E-03_JPRB,4.3255E-02_JPRB,7.2755E-02_JPRB,9.8485E-02_JPRB,1.1804E-01_JPRB/)  
+KBO( :, 4,13, 5) = (/&
+ & 2.9342E-03_JPRB,4.7055E-02_JPRB,7.7481E-02_JPRB,1.0325E-01_JPRB,1.2194E-01_JPRB/)  
+KBO( :, 5,13, 5) = (/&
+ & 3.9691E-03_JPRB,5.0998E-02_JPRB,8.2111E-02_JPRB,1.0793E-01_JPRB,1.2556E-01_JPRB/)  
+KBO( :, 1,14, 5) = (/&
+ & 8.3529E-04_JPRB,3.1756E-02_JPRB,5.5904E-02_JPRB,7.7763E-02_JPRB,9.5354E-02_JPRB/)  
+KBO( :, 2,14, 5) = (/&
+ & 1.2709E-03_JPRB,3.5009E-02_JPRB,6.0040E-02_JPRB,8.2374E-02_JPRB,9.9262E-02_JPRB/)  
+KBO( :, 3,14, 5) = (/&
+ & 1.8315E-03_JPRB,3.8336E-02_JPRB,6.4269E-02_JPRB,8.6806E-02_JPRB,1.0290E-01_JPRB/)  
+KBO( :, 4,14, 5) = (/&
+ & 2.5450E-03_JPRB,4.1786E-02_JPRB,6.8525E-02_JPRB,9.1155E-02_JPRB,1.0629E-01_JPRB/)  
+KBO( :, 5,14, 5) = (/&
+ & 3.4515E-03_JPRB,4.5381E-02_JPRB,7.2773E-02_JPRB,9.5396E-02_JPRB,1.0928E-01_JPRB/)  
+KBO( :, 1,15, 5) = (/&
+ & 7.3165E-04_JPRB,2.7921E-02_JPRB,4.8914E-02_JPRB,6.7922E-02_JPRB,8.2662E-02_JPRB/)  
+KBO( :, 2,15, 5) = (/&
+ & 1.1052E-03_JPRB,3.0784E-02_JPRB,5.2602E-02_JPRB,7.1990E-02_JPRB,8.6043E-02_JPRB/)  
+KBO( :, 3,15, 5) = (/&
+ & 1.5893E-03_JPRB,3.3752E-02_JPRB,5.6376E-02_JPRB,7.5928E-02_JPRB,8.9235E-02_JPRB/)  
+KBO( :, 4,15, 5) = (/&
+ & 2.2106E-03_JPRB,3.6890E-02_JPRB,6.0189E-02_JPRB,7.9806E-02_JPRB,9.1982E-02_JPRB/)  
+KBO( :, 5,15, 5) = (/&
+ & 3.0053E-03_JPRB,4.0122E-02_JPRB,6.4009E-02_JPRB,8.3450E-02_JPRB,9.3979E-02_JPRB/)  
+KBO( :, 1,16, 5) = (/&
+ & 6.3939E-04_JPRB,2.4371E-02_JPRB,4.2503E-02_JPRB,5.8900E-02_JPRB,7.1290E-02_JPRB/)  
+KBO( :, 2,16, 5) = (/&
+ & 9.6055E-04_JPRB,2.6877E-02_JPRB,4.5773E-02_JPRB,6.2455E-02_JPRB,7.4252E-02_JPRB/)  
+KBO( :, 3,16, 5) = (/&
+ & 1.3794E-03_JPRB,2.9539E-02_JPRB,4.9114E-02_JPRB,6.5898E-02_JPRB,7.6813E-02_JPRB/)  
+KBO( :, 4,16, 5) = (/&
+ & 1.9216E-03_JPRB,3.2321E-02_JPRB,5.2426E-02_JPRB,6.9093E-02_JPRB,7.8632E-02_JPRB/)  
+KBO( :, 5,16, 5) = (/&
+ & 2.6144E-03_JPRB,3.5146E-02_JPRB,5.5567E-02_JPRB,7.1811E-02_JPRB,7.9616E-02_JPRB/)  
+KBO( :, 1,17, 5) = (/&
+ & 5.5621E-04_JPRB,2.1119E-02_JPRB,3.6702E-02_JPRB,5.0729E-02_JPRB,6.1106E-02_JPRB/)  
+KBO( :, 2,17, 5) = (/&
+ & 8.3232E-04_JPRB,2.3324E-02_JPRB,3.9564E-02_JPRB,5.3768E-02_JPRB,6.3482E-02_JPRB/)  
+KBO( :, 3,17, 5) = (/&
+ & 1.1952E-03_JPRB,2.5644E-02_JPRB,4.2368E-02_JPRB,5.6531E-02_JPRB,6.5194E-02_JPRB/)  
+KBO( :, 4,17, 5) = (/&
+ & 1.6664E-03_JPRB,2.8012E-02_JPRB,4.5051E-02_JPRB,5.8907E-02_JPRB,6.6158E-02_JPRB/)  
+KBO( :, 5,17, 5) = (/&
+ & 2.2697E-03_JPRB,3.0355E-02_JPRB,4.7479E-02_JPRB,6.0879E-02_JPRB,6.6574E-02_JPRB/)  
+KBO( :, 1,18, 5) = (/&
+ & 4.8259E-04_JPRB,1.8188E-02_JPRB,3.1503E-02_JPRB,4.3373E-02_JPRB,5.1944E-02_JPRB/)  
+KBO( :, 2,18, 5) = (/&
+ & 7.2053E-04_JPRB,2.0086E-02_JPRB,3.3870E-02_JPRB,4.5795E-02_JPRB,5.3602E-02_JPRB/)  
+KBO( :, 3,18, 5) = (/&
+ & 1.0344E-03_JPRB,2.2024E-02_JPRB,3.6106E-02_JPRB,4.7862E-02_JPRB,5.4601E-02_JPRB/)  
+KBO( :, 4,18, 5) = (/&
+ & 1.4426E-03_JPRB,2.3955E-02_JPRB,3.8187E-02_JPRB,4.9634E-02_JPRB,5.5105E-02_JPRB/)  
+KBO( :, 5,18, 5) = (/&
+ & 1.9652E-03_JPRB,2.5872E-02_JPRB,4.0129E-02_JPRB,5.1165E-02_JPRB,5.5250E-02_JPRB/)  
+KBO( :, 1,19, 5) = (/&
+ & 4.1792E-04_JPRB,1.5551E-02_JPRB,2.6815E-02_JPRB,3.6748E-02_JPRB,4.3685E-02_JPRB/)  
+KBO( :, 2,19, 5) = (/&
+ & 6.2288E-04_JPRB,1.7122E-02_JPRB,2.8681E-02_JPRB,3.8570E-02_JPRB,4.4726E-02_JPRB/)  
+KBO( :, 3,19, 5) = (/&
+ & 8.9314E-04_JPRB,1.8695E-02_JPRB,3.0435E-02_JPRB,4.0145E-02_JPRB,4.5326E-02_JPRB/)  
+KBO( :, 4,19, 5) = (/&
+ & 1.2454E-03_JPRB,2.0272E-02_JPRB,3.2103E-02_JPRB,4.1538E-02_JPRB,4.5592E-02_JPRB/)  
+KBO( :, 5,19, 5) = (/&
+ & 1.6963E-03_JPRB,2.1865E-02_JPRB,3.3692E-02_JPRB,4.2753E-02_JPRB,4.5589E-02_JPRB/)  
+KBO( :, 1,20, 5) = (/&
+ & 3.6420E-04_JPRB,1.3204E-02_JPRB,2.2627E-02_JPRB,3.0869E-02_JPRB,3.6406E-02_JPRB/)  
+KBO( :, 2,20, 5) = (/&
+ & 5.4128E-04_JPRB,1.4478E-02_JPRB,2.4102E-02_JPRB,3.2269E-02_JPRB,3.7086E-02_JPRB/)  
+KBO( :, 3,20, 5) = (/&
+ & 7.7497E-04_JPRB,1.5768E-02_JPRB,2.5513E-02_JPRB,3.3512E-02_JPRB,3.7454E-02_JPRB/)  
+KBO( :, 4,20, 5) = (/&
+ & 1.0788E-03_JPRB,1.7071E-02_JPRB,2.6877E-02_JPRB,3.4628E-02_JPRB,3.7589E-02_JPRB/)  
+KBO( :, 5,20, 5) = (/&
+ & 1.4684E-03_JPRB,1.8409E-02_JPRB,2.8186E-02_JPRB,3.5595E-02_JPRB,3.7513E-02_JPRB/)  
+KBO( :, 1,21, 5) = (/&
+ & 3.1749E-04_JPRB,1.1126E-02_JPRB,1.8957E-02_JPRB,2.5768E-02_JPRB,3.0157E-02_JPRB/)  
+KBO( :, 2,21, 5) = (/&
+ & 4.7023E-04_JPRB,1.2173E-02_JPRB,2.0148E-02_JPRB,2.6878E-02_JPRB,3.0618E-02_JPRB/)  
+KBO( :, 3,21, 5) = (/&
+ & 6.7172E-04_JPRB,1.3233E-02_JPRB,2.1304E-02_JPRB,2.7875E-02_JPRB,3.0852E-02_JPRB/)  
+KBO( :, 4,21, 5) = (/&
+ & 9.3331E-04_JPRB,1.4327E-02_JPRB,2.2423E-02_JPRB,2.8768E-02_JPRB,3.0908E-02_JPRB/)  
+KBO( :, 5,21, 5) = (/&
+ & 1.2694E-03_JPRB,1.5438E-02_JPRB,2.3509E-02_JPRB,2.9558E-02_JPRB,3.0797E-02_JPRB/)  
+KBO( :, 1,22, 5) = (/&
+ & 2.8408E-04_JPRB,9.3883E-03_JPRB,1.5880E-02_JPRB,2.1492E-02_JPRB,2.4916E-02_JPRB/)  
+KBO( :, 2,22, 5) = (/&
+ & 4.1797E-04_JPRB,1.0249E-02_JPRB,1.6855E-02_JPRB,2.2374E-02_JPRB,2.5222E-02_JPRB/)  
+KBO( :, 3,22, 5) = (/&
+ & 5.9453E-04_JPRB,1.1132E-02_JPRB,1.7800E-02_JPRB,2.3170E-02_JPRB,2.5366E-02_JPRB/)  
+KBO( :, 4,22, 5) = (/&
+ & 8.2301E-04_JPRB,1.2047E-02_JPRB,1.8719E-02_JPRB,2.3894E-02_JPRB,2.5365E-02_JPRB/)  
+KBO( :, 5,22, 5) = (/&
+ & 1.1184E-03_JPRB,1.2973E-02_JPRB,1.9629E-02_JPRB,2.4534E-02_JPRB,2.5237E-02_JPRB/)  
+KBO( :, 1,23, 5) = (/&
+ & 2.5418E-04_JPRB,7.8977E-03_JPRB,1.3269E-02_JPRB,1.7874E-02_JPRB,2.0529E-02_JPRB/)  
+KBO( :, 2,23, 5) = (/&
+ & 3.7141E-04_JPRB,8.6092E-03_JPRB,1.4071E-02_JPRB,1.8581E-02_JPRB,2.0735E-02_JPRB/)  
+KBO( :, 3,23, 5) = (/&
+ & 5.2592E-04_JPRB,9.3501E-03_JPRB,1.4842E-02_JPRB,1.9229E-02_JPRB,2.0817E-02_JPRB/)  
+KBO( :, 4,23, 5) = (/&
+ & 7.2596E-04_JPRB,1.0112E-02_JPRB,1.5610E-02_JPRB,1.9813E-02_JPRB,2.0787E-02_JPRB/)  
+KBO( :, 5,23, 5) = (/&
+ & 9.8686E-04_JPRB,1.0888E-02_JPRB,1.6368E-02_JPRB,2.0340E-02_JPRB,2.0658E-02_JPRB/)  
+KBO( :, 1,24, 5) = (/&
+ & 2.2750E-04_JPRB,6.6317E-03_JPRB,1.1075E-02_JPRB,1.4842E-02_JPRB,1.6884E-02_JPRB/)  
+KBO( :, 2,24, 5) = (/&
+ & 3.3026E-04_JPRB,7.2252E-03_JPRB,1.1728E-02_JPRB,1.5415E-02_JPRB,1.7024E-02_JPRB/)  
+KBO( :, 3,24, 5) = (/&
+ & 4.6578E-04_JPRB,7.8440E-03_JPRB,1.2367E-02_JPRB,1.5941E-02_JPRB,1.7063E-02_JPRB/)  
+KBO( :, 4,24, 5) = (/&
+ & 6.4270E-04_JPRB,8.4805E-03_JPRB,1.3008E-02_JPRB,1.6415E-02_JPRB,1.7016E-02_JPRB/)  
+KBO( :, 5,24, 5) = (/&
+ & 8.7339E-04_JPRB,9.1332E-03_JPRB,1.3636E-02_JPRB,1.6855E-02_JPRB,1.6890E-02_JPRB/)  
+KBO( :, 1,25, 5) = (/&
+ & 2.0394E-04_JPRB,5.5639E-03_JPRB,9.2339E-03_JPRB,1.2315E-02_JPRB,1.3870E-02_JPRB/)  
+KBO( :, 2,25, 5) = (/&
+ & 2.9439E-04_JPRB,6.0615E-03_JPRB,9.7694E-03_JPRB,1.2780E-02_JPRB,1.3961E-02_JPRB/)  
+KBO( :, 3,25, 5) = (/&
+ & 4.1407E-04_JPRB,6.5784E-03_JPRB,1.0303E-02_JPRB,1.3206E-02_JPRB,1.3975E-02_JPRB/)  
+KBO( :, 4,25, 5) = (/&
+ & 5.7180E-04_JPRB,7.1121E-03_JPRB,1.0835E-02_JPRB,1.3598E-02_JPRB,1.3919E-02_JPRB/)  
+KBO( :, 5,25, 5) = (/&
+ & 7.7557E-04_JPRB,7.6591E-03_JPRB,1.1360E-02_JPRB,1.3963E-02_JPRB,1.3799E-02_JPRB/)  
+KBO( :, 1,26, 5) = (/&
+ & 1.8382E-04_JPRB,4.6737E-03_JPRB,7.6992E-03_JPRB,1.0216E-02_JPRB,1.1388E-02_JPRB/)  
+KBO( :, 2,26, 5) = (/&
+ & 2.6412E-04_JPRB,5.0893E-03_JPRB,8.1430E-03_JPRB,1.0593E-02_JPRB,1.1444E-02_JPRB/)  
+KBO( :, 3,26, 5) = (/&
+ & 3.7112E-04_JPRB,5.5248E-03_JPRB,8.5884E-03_JPRB,1.0942E-02_JPRB,1.1439E-02_JPRB/)  
+KBO( :, 4,26, 5) = (/&
+ & 5.1206E-04_JPRB,5.9696E-03_JPRB,9.0299E-03_JPRB,1.1267E-02_JPRB,1.1378E-02_JPRB/)  
+KBO( :, 5,26, 5) = (/&
+ & 6.9168E-04_JPRB,6.4260E-03_JPRB,9.4675E-03_JPRB,1.1565E-02_JPRB,1.1265E-02_JPRB/)  
+KBO( :, 1,27, 5) = (/&
+ & 1.6571E-04_JPRB,3.9248E-03_JPRB,6.4172E-03_JPRB,8.4701E-03_JPRB,9.3451E-03_JPRB/)  
+KBO( :, 2,27, 5) = (/&
+ & 2.3754E-04_JPRB,4.2747E-03_JPRB,6.7865E-03_JPRB,8.7783E-03_JPRB,9.3771E-03_JPRB/)  
+KBO( :, 3,27, 5) = (/&
+ & 3.3337E-04_JPRB,4.6378E-03_JPRB,7.1567E-03_JPRB,9.0646E-03_JPRB,9.3601E-03_JPRB/)  
+KBO( :, 4,27, 5) = (/&
+ & 4.5858E-04_JPRB,5.0089E-03_JPRB,7.5246E-03_JPRB,9.3326E-03_JPRB,9.2999E-03_JPRB/)  
+KBO( :, 5,27, 5) = (/&
+ & 6.1684E-04_JPRB,5.3899E-03_JPRB,7.8886E-03_JPRB,9.5804E-03_JPRB,9.1956E-03_JPRB/)  
+KBO( :, 1,28, 5) = (/&
+ & 1.4962E-04_JPRB,3.2968E-03_JPRB,5.3486E-03_JPRB,7.0211E-03_JPRB,7.6657E-03_JPRB/)  
+KBO( :, 2,28, 5) = (/&
+ & 2.1414E-04_JPRB,3.5906E-03_JPRB,5.6546E-03_JPRB,7.2727E-03_JPRB,7.6801E-03_JPRB/)  
+KBO( :, 3,28, 5) = (/&
+ & 2.9958E-04_JPRB,3.8927E-03_JPRB,5.9643E-03_JPRB,7.5099E-03_JPRB,7.6582E-03_JPRB/)  
+KBO( :, 4,28, 5) = (/&
+ & 4.1038E-04_JPRB,4.2012E-03_JPRB,6.2693E-03_JPRB,7.7298E-03_JPRB,7.5988E-03_JPRB/)  
+KBO( :, 5,28, 5) = (/&
+ & 5.4914E-04_JPRB,4.5240E-03_JPRB,6.5722E-03_JPRB,7.9359E-03_JPRB,7.5057E-03_JPRB/)  
+KBO( :, 1,29, 5) = (/&
+ & 1.3561E-04_JPRB,2.7716E-03_JPRB,4.4584E-03_JPRB,5.8201E-03_JPRB,6.2872E-03_JPRB/)  
+KBO( :, 2,29, 5) = (/&
+ & 1.9362E-04_JPRB,3.0169E-03_JPRB,4.7155E-03_JPRB,6.0283E-03_JPRB,6.2926E-03_JPRB/)  
+KBO( :, 3,29, 5) = (/&
+ & 2.6977E-04_JPRB,3.2683E-03_JPRB,4.9713E-03_JPRB,6.2221E-03_JPRB,6.2669E-03_JPRB/)  
+KBO( :, 4,29, 5) = (/&
+ & 3.6734E-04_JPRB,3.5269E-03_JPRB,5.2257E-03_JPRB,6.4042E-03_JPRB,6.2118E-03_JPRB/)  
+KBO( :, 5,29, 5) = (/&
+ & 4.8841E-04_JPRB,3.8031E-03_JPRB,5.4769E-03_JPRB,6.5743E-03_JPRB,6.1306E-03_JPRB/)  
+KBO( :, 1,30, 5) = (/&
+ & 1.2311E-04_JPRB,2.3299E-03_JPRB,3.7176E-03_JPRB,4.8241E-03_JPRB,5.1561E-03_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART18',1,ZHOOK_HANDLE)
+END SUBROUTINE PART18
+
+
+SUBROUTINE PART19
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART19',0,ZHOOK_HANDLE)
+
+
+KBO( :, 2,30, 5) = (/&
+ & 1.7495E-04_JPRB,2.5344E-03_JPRB,3.9319E-03_JPRB,4.9954E-03_JPRB,5.1555E-03_JPRB/)  
+KBO( :, 3,30, 5) = (/&
+ & 2.4248E-04_JPRB,2.7440E-03_JPRB,4.1448E-03_JPRB,5.1563E-03_JPRB,5.1297E-03_JPRB/)  
+KBO( :, 4,30, 5) = (/&
+ & 3.2798E-04_JPRB,2.9629E-03_JPRB,4.3553E-03_JPRB,5.3054E-03_JPRB,5.0790E-03_JPRB/)  
+KBO( :, 5,30, 5) = (/&
+ & 4.3295E-04_JPRB,3.2017E-03_JPRB,4.5670E-03_JPRB,5.4466E-03_JPRB,5.0095E-03_JPRB/)  
+KBO( :, 1,31, 5) = (/&
+ & 1.1192E-04_JPRB,1.9595E-03_JPRB,3.1024E-03_JPRB,4.0004E-03_JPRB,4.2313E-03_JPRB/)  
+KBO( :, 2,31, 5) = (/&
+ & 1.5800E-04_JPRB,2.1296E-03_JPRB,3.2801E-03_JPRB,4.1421E-03_JPRB,4.2268E-03_JPRB/)  
+KBO( :, 3,31, 5) = (/&
+ & 2.1757E-04_JPRB,2.3054E-03_JPRB,3.4565E-03_JPRB,4.2735E-03_JPRB,4.2017E-03_JPRB/)  
+KBO( :, 4,31, 5) = (/&
+ & 2.9222E-04_JPRB,2.4942E-03_JPRB,3.6328E-03_JPRB,4.3970E-03_JPRB,4.1575E-03_JPRB/)  
+KBO( :, 5,31, 5) = (/&
+ & 3.8261E-04_JPRB,2.7007E-03_JPRB,3.8145E-03_JPRB,4.5146E-03_JPRB,4.0989E-03_JPRB/)  
+KBO( :, 1,32, 5) = (/&
+ & 1.0163E-04_JPRB,1.6481E-03_JPRB,2.5899E-03_JPRB,3.3182E-03_JPRB,3.4733E-03_JPRB/)  
+KBO( :, 2,32, 5) = (/&
+ & 1.4246E-04_JPRB,1.7902E-03_JPRB,2.7371E-03_JPRB,3.4345E-03_JPRB,3.4660E-03_JPRB/)  
+KBO( :, 3,32, 5) = (/&
+ & 1.9480E-04_JPRB,1.9398E-03_JPRB,2.8839E-03_JPRB,3.5427E-03_JPRB,3.4424E-03_JPRB/)  
+KBO( :, 4,32, 5) = (/&
+ & 2.5957E-04_JPRB,2.1035E-03_JPRB,3.0336E-03_JPRB,3.6462E-03_JPRB,3.4050E-03_JPRB/)  
+KBO( :, 5,32, 5) = (/&
+ & 3.3711E-04_JPRB,2.2803E-03_JPRB,3.1908E-03_JPRB,3.7450E-03_JPRB,3.3564E-03_JPRB/)  
+KBO( :, 1,33, 5) = (/&
+ & 9.2126E-05_JPRB,1.3862E-03_JPRB,2.1619E-03_JPRB,2.7533E-03_JPRB,2.8512E-03_JPRB/)  
+KBO( :, 2,33, 5) = (/&
+ & 1.2819E-04_JPRB,1.5059E-03_JPRB,2.2846E-03_JPRB,2.8490E-03_JPRB,2.8435E-03_JPRB/)  
+KBO( :, 3,33, 5) = (/&
+ & 1.7396E-04_JPRB,1.6352E-03_JPRB,2.4079E-03_JPRB,2.9394E-03_JPRB,2.8229E-03_JPRB/)  
+KBO( :, 4,33, 5) = (/&
+ & 2.2988E-04_JPRB,1.7763E-03_JPRB,2.5366E-03_JPRB,3.0253E-03_JPRB,2.7916E-03_JPRB/)  
+KBO( :, 5,33, 5) = (/&
+ & 2.9642E-04_JPRB,1.9270E-03_JPRB,2.6736E-03_JPRB,3.1112E-03_JPRB,2.7515E-03_JPRB/)  
+KBO( :, 1,34, 5) = (/&
+ & 8.2273E-05_JPRB,1.1628E-03_JPRB,1.8018E-03_JPRB,2.2821E-03_JPRB,2.3408E-03_JPRB/)  
+KBO( :, 2,34, 5) = (/&
+ & 1.1377E-04_JPRB,1.2650E-03_JPRB,1.9038E-03_JPRB,2.3616E-03_JPRB,2.3330E-03_JPRB/)  
+KBO( :, 3,34, 5) = (/&
+ & 1.5328E-04_JPRB,1.3767E-03_JPRB,2.0090E-03_JPRB,2.4362E-03_JPRB,2.3154E-03_JPRB/)  
+KBO( :, 4,34, 5) = (/&
+ & 2.0116E-04_JPRB,1.4967E-03_JPRB,2.1205E-03_JPRB,2.5102E-03_JPRB,2.2896E-03_JPRB/)  
+KBO( :, 5,34, 5) = (/&
+ & 2.5794E-04_JPRB,1.6239E-03_JPRB,2.2376E-03_JPRB,2.5850E-03_JPRB,2.2567E-03_JPRB/)  
+KBO( :, 1,35, 5) = (/&
+ & 7.0985E-05_JPRB,9.6792E-04_JPRB,1.4935E-03_JPRB,1.8860E-03_JPRB,1.9224E-03_JPRB/)  
+KBO( :, 2,35, 5) = (/&
+ & 9.7802E-05_JPRB,1.0553E-03_JPRB,1.5791E-03_JPRB,1.9515E-03_JPRB,1.9160E-03_JPRB/)  
+KBO( :, 3,35, 5) = (/&
+ & 1.3114E-04_JPRB,1.1504E-03_JPRB,1.6692E-03_JPRB,2.0149E-03_JPRB,1.9021E-03_JPRB/)  
+KBO( :, 4,35, 5) = (/&
+ & 1.7143E-04_JPRB,1.2515E-03_JPRB,1.7654E-03_JPRB,2.0786E-03_JPRB,1.8814E-03_JPRB/)  
+KBO( :, 5,35, 5) = (/&
+ & 2.1910E-04_JPRB,1.3576E-03_JPRB,1.8646E-03_JPRB,2.1453E-03_JPRB,1.8551E-03_JPRB/)  
+KBO( :, 1,36, 5) = (/&
+ & 5.9035E-05_JPRB,7.9892E-04_JPRB,1.2308E-03_JPRB,1.5523E-03_JPRB,1.5795E-03_JPRB/)  
+KBO( :, 2,36, 5) = (/&
+ & 8.1217E-05_JPRB,8.7305E-04_JPRB,1.3026E-03_JPRB,1.6078E-03_JPRB,1.5749E-03_JPRB/)  
+KBO( :, 3,36, 5) = (/&
+ & 1.0874E-04_JPRB,9.5286E-04_JPRB,1.3800E-03_JPRB,1.6617E-03_JPRB,1.5644E-03_JPRB/)  
+KBO( :, 4,36, 5) = (/&
+ & 1.4198E-04_JPRB,1.0374E-03_JPRB,1.4616E-03_JPRB,1.7169E-03_JPRB,1.5482E-03_JPRB/)  
+KBO( :, 5,36, 5) = (/&
+ & 1.8132E-04_JPRB,1.1249E-03_JPRB,1.5450E-03_JPRB,1.7750E-03_JPRB,1.5279E-03_JPRB/)  
+KBO( :, 1,37, 5) = (/&
+ & 4.6641E-05_JPRB,6.5099E-04_JPRB,1.0056E-03_JPRB,1.2714E-03_JPRB,1.2972E-03_JPRB/)  
+KBO( :, 2,37, 5) = (/&
+ & 6.4348E-05_JPRB,7.1292E-04_JPRB,1.0660E-03_JPRB,1.3181E-03_JPRB,1.2951E-03_JPRB/)  
+KBO( :, 3,37, 5) = (/&
+ & 8.6362E-05_JPRB,7.7917E-04_JPRB,1.1314E-03_JPRB,1.3641E-03_JPRB,1.2877E-03_JPRB/)  
+KBO( :, 4,37, 5) = (/&
+ & 1.1309E-04_JPRB,8.4913E-04_JPRB,1.1999E-03_JPRB,1.4118E-03_JPRB,1.2757E-03_JPRB/)  
+KBO( :, 5,37, 5) = (/&
+ & 1.4475E-04_JPRB,9.2097E-04_JPRB,1.2698E-03_JPRB,1.4619E-03_JPRB,1.2601E-03_JPRB/)  
+KBO( :, 1,38, 5) = (/&
+ & 3.6723E-05_JPRB,5.3005E-04_JPRB,8.2089E-04_JPRB,1.0406E-03_JPRB,1.0656E-03_JPRB/)  
+KBO( :, 2,38, 5) = (/&
+ & 5.0809E-05_JPRB,5.8160E-04_JPRB,8.7173E-04_JPRB,1.0802E-03_JPRB,1.0654E-03_JPRB/)  
+KBO( :, 3,38, 5) = (/&
+ & 6.8411E-05_JPRB,6.3671E-04_JPRB,9.2702E-04_JPRB,1.1191E-03_JPRB,1.0602E-03_JPRB/)  
+KBO( :, 4,38, 5) = (/&
+ & 8.9837E-05_JPRB,6.9447E-04_JPRB,9.8469E-04_JPRB,1.1603E-03_JPRB,1.0517E-03_JPRB/)  
+KBO( :, 5,38, 5) = (/&
+ & 1.1531E-04_JPRB,7.5325E-04_JPRB,1.0431E-03_JPRB,1.2032E-03_JPRB,1.0398E-03_JPRB/)  
+KBO( :, 1,39, 5) = (/&
+ & 2.8898E-05_JPRB,4.3158E-04_JPRB,6.7024E-04_JPRB,8.5167E-04_JPRB,8.7586E-04_JPRB/)  
+KBO( :, 2,39, 5) = (/&
+ & 4.0107E-05_JPRB,4.7450E-04_JPRB,7.1291E-04_JPRB,8.8507E-04_JPRB,8.7670E-04_JPRB/)  
+KBO( :, 3,39, 5) = (/&
+ & 5.4168E-05_JPRB,5.2021E-04_JPRB,7.5961E-04_JPRB,9.1815E-04_JPRB,8.7354E-04_JPRB/)  
+KBO( :, 4,39, 5) = (/&
+ & 7.1354E-05_JPRB,5.6789E-04_JPRB,8.0816E-04_JPRB,9.5425E-04_JPRB,8.6787E-04_JPRB/)  
+KBO( :, 5,39, 5) = (/&
+ & 9.1825E-05_JPRB,6.1595E-04_JPRB,8.5693E-04_JPRB,9.9080E-04_JPRB,8.5879E-04_JPRB/)  
+KBO( :, 1,40, 5) = (/&
+ & 2.1926E-05_JPRB,3.4792E-04_JPRB,5.4363E-04_JPRB,6.9406E-04_JPRB,7.1842E-04_JPRB/)  
+KBO( :, 2,40, 5) = (/&
+ & 3.0613E-05_JPRB,3.8334E-04_JPRB,5.7923E-04_JPRB,7.2214E-04_JPRB,7.2011E-04_JPRB/)  
+KBO( :, 3,40, 5) = (/&
+ & 4.1595E-05_JPRB,4.2107E-04_JPRB,6.1835E-04_JPRB,7.5061E-04_JPRB,7.1871E-04_JPRB/)  
+KBO( :, 4,40, 5) = (/&
+ & 5.5108E-05_JPRB,4.6016E-04_JPRB,6.5893E-04_JPRB,7.8109E-04_JPRB,7.1463E-04_JPRB/)  
+KBO( :, 5,40, 5) = (/&
+ & 7.1275E-05_JPRB,4.9940E-04_JPRB,6.9980E-04_JPRB,8.1264E-04_JPRB,7.0800E-04_JPRB/)  
+KBO( :, 1,41, 5) = (/&
+ & 1.6527E-05_JPRB,2.7994E-04_JPRB,4.4041E-04_JPRB,5.6504E-04_JPRB,5.8892E-04_JPRB/)  
+KBO( :, 2,41, 5) = (/&
+ & 2.3240E-05_JPRB,3.0917E-04_JPRB,4.7005E-04_JPRB,5.8887E-04_JPRB,5.9140E-04_JPRB/)  
+KBO( :, 3,41, 5) = (/&
+ & 3.1779E-05_JPRB,3.4025E-04_JPRB,5.0274E-04_JPRB,6.1295E-04_JPRB,5.9095E-04_JPRB/)  
+KBO( :, 4,41, 5) = (/&
+ & 4.2345E-05_JPRB,3.7229E-04_JPRB,5.3669E-04_JPRB,6.3912E-04_JPRB,5.8845E-04_JPRB/)  
+KBO( :, 5,41, 5) = (/&
+ & 5.5088E-05_JPRB,4.0429E-04_JPRB,5.7085E-04_JPRB,6.6587E-04_JPRB,5.8356E-04_JPRB/)  
+KBO( :, 1,42, 5) = (/&
+ & 1.2429E-05_JPRB,2.2514E-04_JPRB,3.5666E-04_JPRB,4.5978E-04_JPRB,4.8268E-04_JPRB/)  
+KBO( :, 2,42, 5) = (/&
+ & 1.7617E-05_JPRB,2.4922E-04_JPRB,3.8130E-04_JPRB,4.8000E-04_JPRB,4.8554E-04_JPRB/)  
+KBO( :, 3,42, 5) = (/&
+ & 2.4234E-05_JPRB,2.7477E-04_JPRB,4.0862E-04_JPRB,5.0042E-04_JPRB,4.8593E-04_JPRB/)  
+KBO( :, 4,42, 5) = (/&
+ & 3.2488E-05_JPRB,3.0100E-04_JPRB,4.3706E-04_JPRB,5.2275E-04_JPRB,4.8456E-04_JPRB/)  
+KBO( :, 5,42, 5) = (/&
+ & 4.2516E-05_JPRB,3.2713E-04_JPRB,4.6549E-04_JPRB,5.4559E-04_JPRB,4.8115E-04_JPRB/)  
+KBO( :, 1,43, 5) = (/&
+ & 9.1288E-06_JPRB,1.7990E-04_JPRB,2.8763E-04_JPRB,3.7307E-04_JPRB,3.9529E-04_JPRB/)  
+KBO( :, 2,43, 5) = (/&
+ & 1.3070E-05_JPRB,1.9955E-04_JPRB,3.0790E-04_JPRB,3.8997E-04_JPRB,3.9826E-04_JPRB/)  
+KBO( :, 3,43, 5) = (/&
+ & 1.8123E-05_JPRB,2.2051E-04_JPRB,3.3057E-04_JPRB,4.0731E-04_JPRB,3.9935E-04_JPRB/)  
+KBO( :, 4,43, 5) = (/&
+ & 2.4489E-05_JPRB,2.4201E-04_JPRB,3.5433E-04_JPRB,4.2614E-04_JPRB,3.9876E-04_JPRB/)  
+KBO( :, 5,43, 5) = (/&
+ & 3.2280E-05_JPRB,2.6336E-04_JPRB,3.7813E-04_JPRB,4.4577E-04_JPRB,3.9669E-04_JPRB/)  
+KBO( :, 1,44, 5) = (/&
+ & 6.6151E-06_JPRB,1.4326E-04_JPRB,2.3138E-04_JPRB,3.0204E-04_JPRB,3.2336E-04_JPRB/)  
+KBO( :, 2,44, 5) = (/&
+ & 9.5822E-06_JPRB,1.5927E-04_JPRB,2.4809E-04_JPRB,3.1644E-04_JPRB,3.2651E-04_JPRB/)  
+KBO( :, 3,44, 5) = (/&
+ & 1.3410E-05_JPRB,1.7639E-04_JPRB,2.6682E-04_JPRB,3.3096E-04_JPRB,3.2809E-04_JPRB/)  
+KBO( :, 4,44, 5) = (/&
+ & 1.8276E-05_JPRB,1.9397E-04_JPRB,2.8664E-04_JPRB,3.4697E-04_JPRB,3.2823E-04_JPRB/)  
+KBO( :, 5,44, 5) = (/&
+ & 2.4286E-05_JPRB,2.1151E-04_JPRB,3.0643E-04_JPRB,3.6349E-04_JPRB,3.2698E-04_JPRB/)  
+KBO( :, 1,45, 5) = (/&
+ & 4.7734E-06_JPRB,1.1403E-04_JPRB,1.8604E-04_JPRB,2.4442E-04_JPRB,2.6449E-04_JPRB/)  
+KBO( :, 2,45, 5) = (/&
+ & 6.9996E-06_JPRB,1.2693E-04_JPRB,1.9973E-04_JPRB,2.5644E-04_JPRB,2.6762E-04_JPRB/)  
+KBO( :, 3,45, 5) = (/&
+ & 9.8982E-06_JPRB,1.4091E-04_JPRB,2.1513E-04_JPRB,2.6865E-04_JPRB,2.6944E-04_JPRB/)  
+KBO( :, 4,45, 5) = (/&
+ & 1.3603E-05_JPRB,1.5533E-04_JPRB,2.3165E-04_JPRB,2.8211E-04_JPRB,2.7010E-04_JPRB/)  
+KBO( :, 5,45, 5) = (/&
+ & 1.8224E-05_JPRB,1.6976E-04_JPRB,2.4816E-04_JPRB,2.9621E-04_JPRB,2.6963E-04_JPRB/)  
+KBO( :, 1,46, 5) = (/&
+ & 3.3983E-06_JPRB,9.0473E-05_JPRB,1.4921E-04_JPRB,1.9732E-04_JPRB,2.1604E-04_JPRB/)  
+KBO( :, 2,46, 5) = (/&
+ & 5.0514E-06_JPRB,1.0084E-04_JPRB,1.6045E-04_JPRB,2.0752E-04_JPRB,2.1916E-04_JPRB/)  
+KBO( :, 3,46, 5) = (/&
+ & 7.2271E-06_JPRB,1.1223E-04_JPRB,1.7305E-04_JPRB,2.1775E-04_JPRB,2.2117E-04_JPRB/)  
+KBO( :, 4,46, 5) = (/&
+ & 1.0026E-05_JPRB,1.2405E-04_JPRB,1.8678E-04_JPRB,2.2906E-04_JPRB,2.2224E-04_JPRB/)  
+KBO( :, 5,46, 5) = (/&
+ & 1.3554E-05_JPRB,1.3592E-04_JPRB,2.0050E-04_JPRB,2.4099E-04_JPRB,2.2226E-04_JPRB/)  
+KBO( :, 1,47, 5) = (/&
+ & 2.3650E-06_JPRB,7.1417E-05_JPRB,1.1919E-04_JPRB,1.5882E-04_JPRB,1.7611E-04_JPRB/)  
+KBO( :, 2,47, 5) = (/&
+ & 3.5679E-06_JPRB,7.9650E-05_JPRB,1.2838E-04_JPRB,1.6748E-04_JPRB,1.7919E-04_JPRB/)  
+KBO( :, 3,47, 5) = (/&
+ & 5.1778E-06_JPRB,8.8892E-05_JPRB,1.3863E-04_JPRB,1.7599E-04_JPRB,1.8128E-04_JPRB/)  
+KBO( :, 4,47, 5) = (/&
+ & 7.2636E-06_JPRB,9.8532E-05_JPRB,1.4995E-04_JPRB,1.8532E-04_JPRB,1.8257E-04_JPRB/)  
+KBO( :, 5,47, 5) = (/&
+ & 9.9200E-06_JPRB,1.0829E-04_JPRB,1.6134E-04_JPRB,1.9543E-04_JPRB,1.8296E-04_JPRB/)  
+KBO( :, 1,48, 5) = (/&
+ & 1.6346E-06_JPRB,5.6335E-05_JPRB,9.5109E-05_JPRB,1.2769E-04_JPRB,1.4342E-04_JPRB/)  
+KBO( :, 2,48, 5) = (/&
+ & 2.5038E-06_JPRB,6.2854E-05_JPRB,1.0261E-04_JPRB,1.3493E-04_JPRB,1.4636E-04_JPRB/)  
+KBO( :, 3,48, 5) = (/&
+ & 3.6896E-06_JPRB,7.0296E-05_JPRB,1.1094E-04_JPRB,1.4209E-04_JPRB,1.4851E-04_JPRB/)  
+KBO( :, 4,48, 5) = (/&
+ & 5.2406E-06_JPRB,7.8146E-05_JPRB,1.2020E-04_JPRB,1.4978E-04_JPRB,1.4992E-04_JPRB/)  
+KBO( :, 5,48, 5) = (/&
+ & 7.2291E-06_JPRB,8.6170E-05_JPRB,1.2966E-04_JPRB,1.5832E-04_JPRB,1.5064E-04_JPRB/)  
+KBO( :, 1,49, 5) = (/&
+ & 1.1213E-06_JPRB,4.4399E-05_JPRB,7.5829E-05_JPRB,1.0254E-04_JPRB,1.1671E-04_JPRB/)  
+KBO( :, 2,49, 5) = (/&
+ & 1.7465E-06_JPRB,4.9565E-05_JPRB,8.1954E-05_JPRB,1.0863E-04_JPRB,1.1954E-04_JPRB/)  
+KBO( :, 3,49, 5) = (/&
+ & 2.6146E-06_JPRB,5.5485E-05_JPRB,8.8647E-05_JPRB,1.1460E-04_JPRB,1.2164E-04_JPRB/)  
+KBO( :, 4,49, 5) = (/&
+ & 3.7631E-06_JPRB,6.1900E-05_JPRB,9.6246E-05_JPRB,1.2097E-04_JPRB,1.2315E-04_JPRB/)  
+KBO( :, 5,49, 5) = (/&
+ & 5.2478E-06_JPRB,6.8486E-05_JPRB,1.0411E-04_JPRB,1.2810E-04_JPRB,1.2412E-04_JPRB/)  
+KBO( :, 1,50, 5) = (/&
+ & 7.7219E-07_JPRB,3.5060E-05_JPRB,6.0501E-05_JPRB,8.2333E-05_JPRB,9.4799E-05_JPRB/)  
+KBO( :, 2,50, 5) = (/&
+ & 1.2243E-06_JPRB,3.9171E-05_JPRB,6.5508E-05_JPRB,8.7444E-05_JPRB,9.7433E-05_JPRB/)  
+KBO( :, 3,50, 5) = (/&
+ & 1.8601E-06_JPRB,4.3898E-05_JPRB,7.0971E-05_JPRB,9.2481E-05_JPRB,9.9443E-05_JPRB/)  
+KBO( :, 4,50, 5) = (/&
+ & 2.7138E-06_JPRB,4.9113E-05_JPRB,7.7142E-05_JPRB,9.7774E-05_JPRB,1.0093E-04_JPRB/)  
+KBO( :, 5,50, 5) = (/&
+ & 3.8270E-06_JPRB,5.4504E-05_JPRB,8.3666E-05_JPRB,1.0372E-04_JPRB,1.0197E-04_JPRB/)  
+KBO( :, 1,51, 5) = (/&
+ & 5.3024E-07_JPRB,2.7696E-05_JPRB,4.8261E-05_JPRB,6.6083E-05_JPRB,7.6892E-05_JPRB/)  
+KBO( :, 2,51, 5) = (/&
+ & 8.5735E-07_JPRB,3.0983E-05_JPRB,5.2368E-05_JPRB,7.0412E-05_JPRB,7.9289E-05_JPRB/)  
+KBO( :, 3,51, 5) = (/&
+ & 1.3218E-06_JPRB,3.4738E-05_JPRB,5.6824E-05_JPRB,7.4609E-05_JPRB,8.1180E-05_JPRB/)  
+KBO( :, 4,51, 5) = (/&
+ & 1.9559E-06_JPRB,3.8961E-05_JPRB,6.1833E-05_JPRB,7.8998E-05_JPRB,8.2596E-05_JPRB/)  
+KBO( :, 5,51, 5) = (/&
+ & 2.7897E-06_JPRB,4.3372E-05_JPRB,6.7221E-05_JPRB,8.3927E-05_JPRB,8.3636E-05_JPRB/)  
+KBO( :, 1,52, 5) = (/&
+ & 3.6108E-07_JPRB,2.1866E-05_JPRB,3.8454E-05_JPRB,5.2969E-05_JPRB,6.2335E-05_JPRB/)  
+KBO( :, 2,52, 5) = (/&
+ & 5.9667E-07_JPRB,2.4493E-05_JPRB,4.1837E-05_JPRB,5.6625E-05_JPRB,6.4483E-05_JPRB/)  
+KBO( :, 3,52, 5) = (/&
+ & 9.3484E-07_JPRB,2.7465E-05_JPRB,4.5448E-05_JPRB,6.0126E-05_JPRB,6.6246E-05_JPRB/)  
+KBO( :, 4,52, 5) = (/&
+ & 1.4036E-06_JPRB,3.0877E-05_JPRB,4.9517E-05_JPRB,6.3789E-05_JPRB,6.7578E-05_JPRB/)  
+KBO( :, 5,52, 5) = (/&
+ & 2.0268E-06_JPRB,3.4479E-05_JPRB,5.3935E-05_JPRB,6.7855E-05_JPRB,6.8602E-05_JPRB/)  
+KBO( :, 1,53, 5) = (/&
+ & 2.4332E-07_JPRB,1.7244E-05_JPRB,3.0597E-05_JPRB,4.2405E-05_JPRB,5.0498E-05_JPRB/)  
+KBO( :, 2,53, 5) = (/&
+ & 4.1214E-07_JPRB,1.9345E-05_JPRB,3.3390E-05_JPRB,4.5480E-05_JPRB,5.2422E-05_JPRB/)  
+KBO( :, 3,53, 5) = (/&
+ & 6.5730E-07_JPRB,2.1709E-05_JPRB,3.6329E-05_JPRB,4.8415E-05_JPRB,5.4043E-05_JPRB/)  
+KBO( :, 4,53, 5) = (/&
+ & 1.0016E-06_JPRB,2.4434E-05_JPRB,3.9600E-05_JPRB,5.1439E-05_JPRB,5.5301E-05_JPRB/)  
+KBO( :, 5,53, 5) = (/&
+ & 1.4656E-06_JPRB,2.7368E-05_JPRB,4.3227E-05_JPRB,5.4790E-05_JPRB,5.6292E-05_JPRB/)  
+KBO( :, 1,54, 5) = (/&
+ & 1.6511E-07_JPRB,1.3630E-05_JPRB,2.4378E-05_JPRB,3.3979E-05_JPRB,4.0794E-05_JPRB/)  
+KBO( :, 2,54, 5) = (/&
+ & 2.8688E-07_JPRB,1.5326E-05_JPRB,2.6694E-05_JPRB,3.6556E-05_JPRB,4.2472E-05_JPRB/)  
+KBO( :, 3,54, 5) = (/&
+ & 4.6588E-07_JPRB,1.7208E-05_JPRB,2.9089E-05_JPRB,3.9026E-05_JPRB,4.3891E-05_JPRB/)  
+KBO( :, 4,54, 5) = (/&
+ & 7.2012E-07_JPRB,1.9389E-05_JPRB,3.1742E-05_JPRB,4.1533E-05_JPRB,4.5023E-05_JPRB/)  
+KBO( :, 5,54, 5) = (/&
+ & 1.0672E-06_JPRB,2.1776E-05_JPRB,3.4708E-05_JPRB,4.4305E-05_JPRB,4.5917E-05_JPRB/)  
+KBO( :, 1,55, 5) = (/&
+ & 1.1192E-07_JPRB,1.0784E-05_JPRB,1.9433E-05_JPRB,2.7227E-05_JPRB,3.2881E-05_JPRB/)  
+KBO( :, 2,55, 5) = (/&
+ & 1.9966E-07_JPRB,1.2152E-05_JPRB,2.1341E-05_JPRB,2.9385E-05_JPRB,3.4331E-05_JPRB/)  
+KBO( :, 3,55, 5) = (/&
+ & 3.3052E-07_JPRB,1.3654E-05_JPRB,2.3300E-05_JPRB,3.1458E-05_JPRB,3.5546E-05_JPRB/)  
+KBO( :, 4,55, 5) = (/&
+ & 5.1840E-07_JPRB,1.5395E-05_JPRB,2.5450E-05_JPRB,3.3531E-05_JPRB,3.6538E-05_JPRB/)  
+KBO( :, 5,55, 5) = (/&
+ & 7.7808E-07_JPRB,1.7333E-05_JPRB,2.7868E-05_JPRB,3.5813E-05_JPRB,3.7304E-05_JPRB/)  
+KBO( :, 1,56, 5) = (/&
+ & 7.5122E-08_JPRB,8.5244E-06_JPRB,1.5477E-05_JPRB,2.1786E-05_JPRB,2.6473E-05_JPRB/)  
+KBO( :, 2,56, 5) = (/&
+ & 1.3800E-07_JPRB,9.6271E-06_JPRB,1.7041E-05_JPRB,2.3587E-05_JPRB,2.7734E-05_JPRB/)  
+KBO( :, 3,56, 5) = (/&
+ & 2.3328E-07_JPRB,1.0832E-05_JPRB,1.8654E-05_JPRB,2.5333E-05_JPRB,2.8773E-05_JPRB/)  
+KBO( :, 4,56, 5) = (/&
+ & 3.7175E-07_JPRB,1.2217E-05_JPRB,2.0395E-05_JPRB,2.7050E-05_JPRB,2.9637E-05_JPRB/)  
+KBO( :, 5,56, 5) = (/&
+ & 5.6529E-07_JPRB,1.3785E-05_JPRB,2.2358E-05_JPRB,2.8934E-05_JPRB,3.0300E-05_JPRB/)  
+KBO( :, 1,57, 5) = (/&
+ & 4.9911E-08_JPRB,6.7334E-06_JPRB,1.2315E-05_JPRB,1.7411E-05_JPRB,2.1292E-05_JPRB/)  
+KBO( :, 2,57, 5) = (/&
+ & 9.4564E-08_JPRB,7.6208E-06_JPRB,1.3595E-05_JPRB,1.8912E-05_JPRB,2.2387E-05_JPRB/)  
+KBO( :, 3,57, 5) = (/&
+ & 1.6361E-07_JPRB,8.5900E-06_JPRB,1.4922E-05_JPRB,2.0379E-05_JPRB,2.3279E-05_JPRB/)  
+KBO( :, 4,57, 5) = (/&
+ & 2.6533E-07_JPRB,9.6896E-06_JPRB,1.6333E-05_JPRB,2.1806E-05_JPRB,2.4024E-05_JPRB/)  
+KBO( :, 5,57, 5) = (/&
+ & 4.0896E-07_JPRB,1.0955E-05_JPRB,1.7923E-05_JPRB,2.3357E-05_JPRB,2.4605E-05_JPRB/)  
+KBO( :, 1,58, 5) = (/&
+ & 3.3413E-08_JPRB,5.3223E-06_JPRB,9.7997E-06_JPRB,1.3911E-05_JPRB,1.7115E-05_JPRB/)  
+KBO( :, 2,58, 5) = (/&
+ & 6.4876E-08_JPRB,6.0389E-06_JPRB,1.0850E-05_JPRB,1.5164E-05_JPRB,1.8057E-05_JPRB/)  
+KBO( :, 3,58, 5) = (/&
+ & 1.1501E-07_JPRB,6.8202E-06_JPRB,1.1942E-05_JPRB,1.6396E-05_JPRB,1.8824E-05_JPRB/)  
+KBO( :, 4,58, 5) = (/&
+ & 1.8988E-07_JPRB,7.6962E-06_JPRB,1.3093E-05_JPRB,1.7589E-05_JPRB,1.9461E-05_JPRB/)  
+KBO( :, 5,58, 5) = (/&
+ & 2.9670E-07_JPRB,8.7155E-06_JPRB,1.4378E-05_JPRB,1.8862E-05_JPRB,1.9967E-05_JPRB/)  
+KBO( :, 1,59, 5) = (/&
+ & 2.5326E-08_JPRB,4.3059E-06_JPRB,7.9479E-06_JPRB,1.1296E-05_JPRB,1.3872E-05_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART19',1,ZHOOK_HANDLE)
+END SUBROUTINE PART19
+
+
+SUBROUTINE PART20
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART20',0,ZHOOK_HANDLE)
+
+
+KBO( :, 2,59, 5) = (/&
+ & 4.9570E-08_JPRB,4.8933E-06_JPRB,8.8138E-06_JPRB,1.2338E-05_JPRB,1.4642E-05_JPRB/)  
+KBO( :, 3,59, 5) = (/&
+ & 8.8759E-08_JPRB,5.5323E-06_JPRB,9.7147E-06_JPRB,1.3360E-05_JPRB,1.5267E-05_JPRB/)  
+KBO( :, 4,59, 5) = (/&
+ & 1.4767E-07_JPRB,6.2484E-06_JPRB,1.0666E-05_JPRB,1.4358E-05_JPRB,1.5775E-05_JPRB/)  
+KBO( :, 5,59, 5) = (/&
+ & 2.3207E-07_JPRB,7.0847E-06_JPRB,1.1728E-05_JPRB,1.5422E-05_JPRB,1.6178E-05_JPRB/)  
+KBO( :, 1,13, 6) = (/&
+ & 2.6469E-03_JPRB,7.2603E-02_JPRB,1.2898E-01_JPRB,1.8080E-01_JPRB,2.2253E-01_JPRB/)  
+KBO( :, 2,13, 6) = (/&
+ & 4.0410E-03_JPRB,7.8062E-02_JPRB,1.3546E-01_JPRB,1.8736E-01_JPRB,2.2767E-01_JPRB/)  
+KBO( :, 3,13, 6) = (/&
+ & 5.9076E-03_JPRB,8.4142E-02_JPRB,1.4233E-01_JPRB,1.9380E-01_JPRB,2.3269E-01_JPRB/)  
+KBO( :, 4,13, 6) = (/&
+ & 8.3159E-03_JPRB,9.0550E-02_JPRB,1.4952E-01_JPRB,2.0027E-01_JPRB,2.3737E-01_JPRB/)  
+KBO( :, 5,13, 6) = (/&
+ & 1.1338E-02_JPRB,9.6973E-02_JPRB,1.5692E-01_JPRB,2.0664E-01_JPRB,2.4174E-01_JPRB/)  
+KBO( :, 1,14, 6) = (/&
+ & 2.3459E-03_JPRB,6.5146E-02_JPRB,1.1561E-01_JPRB,1.6205E-01_JPRB,1.9813E-01_JPRB/)  
+KBO( :, 2,14, 6) = (/&
+ & 3.5742E-03_JPRB,7.0309E-02_JPRB,1.2183E-01_JPRB,1.6837E-01_JPRB,2.0310E-01_JPRB/)  
+KBO( :, 3,14, 6) = (/&
+ & 5.2156E-03_JPRB,7.5953E-02_JPRB,1.2830E-01_JPRB,1.7462E-01_JPRB,2.0779E-01_JPRB/)  
+KBO( :, 4,14, 6) = (/&
+ & 7.3297E-03_JPRB,8.1768E-02_JPRB,1.3506E-01_JPRB,1.8090E-01_JPRB,2.1206E-01_JPRB/)  
+KBO( :, 5,14, 6) = (/&
+ & 9.9793E-03_JPRB,8.7785E-02_JPRB,1.4192E-01_JPRB,1.8688E-01_JPRB,2.1597E-01_JPRB/)  
+KBO( :, 1,15, 6) = (/&
+ & 2.0815E-03_JPRB,5.8070E-02_JPRB,1.0290E-01_JPRB,1.4403E-01_JPRB,1.7518E-01_JPRB/)  
+KBO( :, 2,15, 6) = (/&
+ & 3.1616E-03_JPRB,6.2877E-02_JPRB,1.0871E-01_JPRB,1.5003E-01_JPRB,1.7983E-01_JPRB/)  
+KBO( :, 3,15, 6) = (/&
+ & 4.5990E-03_JPRB,6.8034E-02_JPRB,1.1474E-01_JPRB,1.5600E-01_JPRB,1.8413E-01_JPRB/)  
+KBO( :, 4,15, 6) = (/&
+ & 6.4457E-03_JPRB,7.3357E-02_JPRB,1.2094E-01_JPRB,1.6184E-01_JPRB,1.8811E-01_JPRB/)  
+KBO( :, 5,15, 6) = (/&
+ & 8.7688E-03_JPRB,7.8954E-02_JPRB,1.2718E-01_JPRB,1.6743E-01_JPRB,1.9184E-01_JPRB/)  
+KBO( :, 1,16, 6) = (/&
+ & 1.8434E-03_JPRB,5.1431E-02_JPRB,9.0904E-02_JPRB,1.2695E-01_JPRB,1.5373E-01_JPRB/)  
+KBO( :, 2,16, 6) = (/&
+ & 2.7883E-03_JPRB,5.5853E-02_JPRB,9.6202E-02_JPRB,1.3255E-01_JPRB,1.5805E-01_JPRB/)  
+KBO( :, 3,16, 6) = (/&
+ & 4.0405E-03_JPRB,6.0484E-02_JPRB,1.0174E-01_JPRB,1.3809E-01_JPRB,1.6209E-01_JPRB/)  
+KBO( :, 4,16, 6) = (/&
+ & 5.6545E-03_JPRB,6.5388E-02_JPRB,1.0742E-01_JPRB,1.4346E-01_JPRB,1.6594E-01_JPRB/)  
+KBO( :, 5,16, 6) = (/&
+ & 7.6948E-03_JPRB,7.0557E-02_JPRB,1.1317E-01_JPRB,1.4876E-01_JPRB,1.6944E-01_JPRB/)  
+KBO( :, 1,17, 6) = (/&
+ & 1.6228E-03_JPRB,4.5214E-02_JPRB,7.9628E-02_JPRB,1.1095E-01_JPRB,1.3382E-01_JPRB/)  
+KBO( :, 2,17, 6) = (/&
+ & 2.4444E-03_JPRB,4.9201E-02_JPRB,8.4449E-02_JPRB,1.1610E-01_JPRB,1.3782E-01_JPRB/)  
+KBO( :, 3,17, 6) = (/&
+ & 3.5341E-03_JPRB,5.3403E-02_JPRB,8.9520E-02_JPRB,1.2115E-01_JPRB,1.4166E-01_JPRB/)  
+KBO( :, 4,17, 6) = (/&
+ & 4.9442E-03_JPRB,5.7899E-02_JPRB,9.4657E-02_JPRB,1.2610E-01_JPRB,1.4516E-01_JPRB/)  
+KBO( :, 5,17, 6) = (/&
+ & 6.7314E-03_JPRB,6.2605E-02_JPRB,9.9934E-02_JPRB,1.3078E-01_JPRB,1.4759E-01_JPRB/)  
+KBO( :, 1,18, 6) = (/&
+ & 1.4215E-03_JPRB,3.9490E-02_JPRB,6.9231E-02_JPRB,9.6243E-02_JPRB,1.1568E-01_JPRB/)  
+KBO( :, 2,18, 6) = (/&
+ & 2.1346E-03_JPRB,4.3045E-02_JPRB,7.3605E-02_JPRB,1.0089E-01_JPRB,1.1941E-01_JPRB/)  
+KBO( :, 3,18, 6) = (/&
+ & 3.0824E-03_JPRB,4.6855E-02_JPRB,7.8190E-02_JPRB,1.0547E-01_JPRB,1.2277E-01_JPRB/)  
+KBO( :, 4,18, 6) = (/&
+ & 4.3155E-03_JPRB,5.0887E-02_JPRB,8.2789E-02_JPRB,1.0966E-01_JPRB,1.2516E-01_JPRB/)  
+KBO( :, 5,18, 6) = (/&
+ & 5.8773E-03_JPRB,5.5100E-02_JPRB,8.7246E-02_JPRB,1.1319E-01_JPRB,1.2607E-01_JPRB/)  
+KBO( :, 1,19, 6) = (/&
+ & 1.2396E-03_JPRB,3.4273E-02_JPRB,5.9817E-02_JPRB,8.2935E-02_JPRB,9.9419E-02_JPRB/)  
+KBO( :, 2,19, 6) = (/&
+ & 1.8580E-03_JPRB,3.7439E-02_JPRB,6.3787E-02_JPRB,8.7073E-02_JPRB,1.0261E-01_JPRB/)  
+KBO( :, 3,19, 6) = (/&
+ & 2.6842E-03_JPRB,4.0827E-02_JPRB,6.7738E-02_JPRB,9.0822E-02_JPRB,1.0491E-01_JPRB/)  
+KBO( :, 4,19, 6) = (/&
+ & 3.7596E-03_JPRB,4.4308E-02_JPRB,7.1517E-02_JPRB,9.3932E-02_JPRB,1.0593E-01_JPRB/)  
+KBO( :, 5,19, 6) = (/&
+ & 5.1106E-03_JPRB,4.7901E-02_JPRB,7.4978E-02_JPRB,9.6351E-02_JPRB,1.0588E-01_JPRB/)  
+KBO( :, 1,20, 6) = (/&
+ & 1.0863E-03_JPRB,2.9636E-02_JPRB,5.1506E-02_JPRB,7.1094E-02_JPRB,8.4913E-02_JPRB/)  
+KBO( :, 2,20, 6) = (/&
+ & 1.6251E-03_JPRB,3.2413E-02_JPRB,5.4873E-02_JPRB,7.4436E-02_JPRB,8.7129E-02_JPRB/)  
+KBO( :, 3,20, 6) = (/&
+ & 2.3482E-03_JPRB,3.5255E-02_JPRB,5.8051E-02_JPRB,7.7198E-02_JPRB,8.8290E-02_JPRB/)  
+KBO( :, 4,20, 6) = (/&
+ & 3.2830E-03_JPRB,3.8154E-02_JPRB,6.0963E-02_JPRB,7.9391E-02_JPRB,8.8534E-02_JPRB/)  
+KBO( :, 5,20, 6) = (/&
+ & 4.4496E-03_JPRB,4.1105E-02_JPRB,6.3670E-02_JPRB,8.1212E-02_JPRB,8.8096E-02_JPRB/)  
+KBO( :, 1,21, 6) = (/&
+ & 9.5155E-04_JPRB,2.5477E-02_JPRB,4.4023E-02_JPRB,6.0405E-02_JPRB,7.1745E-02_JPRB/)  
+KBO( :, 2,21, 6) = (/&
+ & 1.4227E-03_JPRB,2.7779E-02_JPRB,4.6702E-02_JPRB,6.2887E-02_JPRB,7.3006E-02_JPRB/)  
+KBO( :, 3,21, 6) = (/&
+ & 2.0513E-03_JPRB,3.0099E-02_JPRB,4.9167E-02_JPRB,6.4894E-02_JPRB,7.3521E-02_JPRB/)  
+KBO( :, 4,21, 6) = (/&
+ & 2.8588E-03_JPRB,3.2465E-02_JPRB,5.1448E-02_JPRB,6.6586E-02_JPRB,7.3416E-02_JPRB/)  
+KBO( :, 5,21, 6) = (/&
+ & 3.8612E-03_JPRB,3.4927E-02_JPRB,5.3670E-02_JPRB,6.8026E-02_JPRB,7.2850E-02_JPRB/)  
+KBO( :, 1,22, 6) = (/&
+ & 8.5713E-04_JPRB,2.1832E-02_JPRB,3.7420E-02_JPRB,5.0944E-02_JPRB,6.0002E-02_JPRB/)  
+KBO( :, 2,22, 6) = (/&
+ & 1.2758E-03_JPRB,2.3688E-02_JPRB,3.9495E-02_JPRB,5.2772E-02_JPRB,6.0672E-02_JPRB/)  
+KBO( :, 3,22, 6) = (/&
+ & 1.8291E-03_JPRB,2.5590E-02_JPRB,4.1428E-02_JPRB,5.4322E-02_JPRB,6.0829E-02_JPRB/)  
+KBO( :, 4,22, 6) = (/&
+ & 2.5337E-03_JPRB,2.7556E-02_JPRB,4.3286E-02_JPRB,5.5664E-02_JPRB,6.0555E-02_JPRB/)  
+KBO( :, 5,22, 6) = (/&
+ & 3.4060E-03_JPRB,2.9653E-02_JPRB,4.5131E-02_JPRB,5.6799E-02_JPRB,5.9942E-02_JPRB/)  
+KBO( :, 1,23, 6) = (/&
+ & 7.7308E-04_JPRB,1.8541E-02_JPRB,3.1541E-02_JPRB,4.2653E-02_JPRB,4.9784E-02_JPRB/)  
+KBO( :, 2,23, 6) = (/&
+ & 1.1436E-03_JPRB,2.0060E-02_JPRB,3.3177E-02_JPRB,4.4071E-02_JPRB,5.0135E-02_JPRB/)  
+KBO( :, 3,23, 6) = (/&
+ & 1.6287E-03_JPRB,2.1636E-02_JPRB,3.4743E-02_JPRB,4.5309E-02_JPRB,5.0108E-02_JPRB/)  
+KBO( :, 4,23, 6) = (/&
+ & 2.2433E-03_JPRB,2.3301E-02_JPRB,3.6276E-02_JPRB,4.6369E-02_JPRB,4.9769E-02_JPRB/)  
+KBO( :, 5,23, 6) = (/&
+ & 3.0015E-03_JPRB,2.5093E-02_JPRB,3.7820E-02_JPRB,4.7284E-02_JPRB,4.9161E-02_JPRB/)  
+KBO( :, 1,24, 6) = (/&
+ & 6.9820E-04_JPRB,1.5662E-02_JPRB,2.6451E-02_JPRB,3.5569E-02_JPRB,4.1103E-02_JPRB/)  
+KBO( :, 2,24, 6) = (/&
+ & 1.0252E-03_JPRB,1.6916E-02_JPRB,2.7766E-02_JPRB,3.6705E-02_JPRB,4.1269E-02_JPRB/)  
+KBO( :, 3,24, 6) = (/&
+ & 1.4503E-03_JPRB,1.8243E-02_JPRB,2.9050E-02_JPRB,3.7680E-02_JPRB,4.1148E-02_JPRB/)  
+KBO( :, 4,24, 6) = (/&
+ & 1.9860E-03_JPRB,1.9665E-02_JPRB,3.0328E-02_JPRB,3.8530E-02_JPRB,4.0787E-02_JPRB/)  
+KBO( :, 5,24, 6) = (/&
+ & 2.6469E-03_JPRB,2.1188E-02_JPRB,3.1637E-02_JPRB,3.9277E-02_JPRB,4.0220E-02_JPRB/)  
+KBO( :, 1,25, 6) = (/&
+ & 6.3170E-04_JPRB,1.3191E-02_JPRB,2.2113E-02_JPRB,2.9594E-02_JPRB,3.3832E-02_JPRB/)  
+KBO( :, 2,25, 6) = (/&
+ & 9.2001E-04_JPRB,1.4240E-02_JPRB,2.3188E-02_JPRB,3.0496E-02_JPRB,3.3883E-02_JPRB/)  
+KBO( :, 3,25, 6) = (/&
+ & 1.2928E-03_JPRB,1.5370E-02_JPRB,2.4249E-02_JPRB,3.1273E-02_JPRB,3.3716E-02_JPRB/)  
+KBO( :, 4,25, 6) = (/&
+ & 1.7603E-03_JPRB,1.6573E-02_JPRB,2.5329E-02_JPRB,3.1960E-02_JPRB,3.3363E-02_JPRB/)  
+KBO( :, 5,25, 6) = (/&
+ & 2.3402E-03_JPRB,1.7869E-02_JPRB,2.6443E-02_JPRB,3.2590E-02_JPRB,3.2859E-02_JPRB/)  
+KBO( :, 1,26, 6) = (/&
+ & 5.7419E-04_JPRB,1.1097E-02_JPRB,1.8461E-02_JPRB,2.4587E-02_JPRB,2.7791E-02_JPRB/)  
+KBO( :, 2,26, 6) = (/&
+ & 8.2924E-04_JPRB,1.1987E-02_JPRB,1.9343E-02_JPRB,2.5297E-02_JPRB,2.7770E-02_JPRB/)  
+KBO( :, 3,26, 6) = (/&
+ & 1.1565E-03_JPRB,1.2945E-02_JPRB,2.0233E-02_JPRB,2.5928E-02_JPRB,2.7584E-02_JPRB/)  
+KBO( :, 4,26, 6) = (/&
+ & 1.5683E-03_JPRB,1.3972E-02_JPRB,2.1156E-02_JPRB,2.6492E-02_JPRB,2.7256E-02_JPRB/)  
+KBO( :, 5,26, 6) = (/&
+ & 2.0814E-03_JPRB,1.5076E-02_JPRB,2.2099E-02_JPRB,2.7036E-02_JPRB,2.6815E-02_JPRB/)  
+KBO( :, 1,27, 6) = (/&
+ & 5.2085E-04_JPRB,9.3262E-03_JPRB,1.5390E-02_JPRB,2.0394E-02_JPRB,2.2795E-02_JPRB/)  
+KBO( :, 2,27, 6) = (/&
+ & 7.4611E-04_JPRB,1.0083E-02_JPRB,1.6124E-02_JPRB,2.0964E-02_JPRB,2.2740E-02_JPRB/)  
+KBO( :, 3,27, 6) = (/&
+ & 1.0345E-03_JPRB,1.0897E-02_JPRB,1.6882E-02_JPRB,2.1477E-02_JPRB,2.2550E-02_JPRB/)  
+KBO( :, 4,27, 6) = (/&
+ & 1.3997E-03_JPRB,1.1774E-02_JPRB,1.7663E-02_JPRB,2.1954E-02_JPRB,2.2255E-02_JPRB/)  
+KBO( :, 5,27, 6) = (/&
+ & 1.8540E-03_JPRB,1.2711E-02_JPRB,1.8466E-02_JPRB,2.2421E-02_JPRB,2.1874E-02_JPRB/)  
+KBO( :, 1,28, 6) = (/&
+ & 4.7154E-04_JPRB,7.8350E-03_JPRB,1.2820E-02_JPRB,1.6898E-02_JPRB,1.8683E-02_JPRB/)  
+KBO( :, 2,28, 6) = (/&
+ & 6.7041E-04_JPRB,8.4791E-03_JPRB,1.3441E-02_JPRB,1.7362E-02_JPRB,1.8606E-02_JPRB/)  
+KBO( :, 3,28, 6) = (/&
+ & 9.2613E-04_JPRB,9.1729E-03_JPRB,1.4084E-02_JPRB,1.7787E-02_JPRB,1.8427E-02_JPRB/)  
+KBO( :, 4,28, 6) = (/&
+ & 1.2511E-03_JPRB,9.9188E-03_JPRB,1.4746E-02_JPRB,1.8199E-02_JPRB,1.8168E-02_JPRB/)  
+KBO( :, 5,28, 6) = (/&
+ & 1.6528E-03_JPRB,1.0715E-02_JPRB,1.5432E-02_JPRB,1.8597E-02_JPRB,1.7841E-02_JPRB/)  
+KBO( :, 1,29, 6) = (/&
+ & 4.2728E-04_JPRB,6.5872E-03_JPRB,1.0682E-02_JPRB,1.3997E-02_JPRB,1.5306E-02_JPRB/)  
+KBO( :, 2,29, 6) = (/&
+ & 6.0398E-04_JPRB,7.1366E-03_JPRB,1.1209E-02_JPRB,1.4377E-02_JPRB,1.5221E-02_JPRB/)  
+KBO( :, 3,29, 6) = (/&
+ & 8.3275E-04_JPRB,7.7277E-03_JPRB,1.1754E-02_JPRB,1.4740E-02_JPRB,1.5060E-02_JPRB/)  
+KBO( :, 4,29, 6) = (/&
+ & 1.1219E-03_JPRB,8.3625E-03_JPRB,1.2318E-02_JPRB,1.5088E-02_JPRB,1.4833E-02_JPRB/)  
+KBO( :, 5,29, 6) = (/&
+ & 1.4752E-03_JPRB,9.0420E-03_JPRB,1.2902E-02_JPRB,1.5434E-02_JPRB,1.4555E-02_JPRB/)  
+KBO( :, 1,30, 6) = (/&
+ & 3.8695E-04_JPRB,5.5390E-03_JPRB,8.9023E-03_JPRB,1.1592E-02_JPRB,1.2537E-02_JPRB/)  
+KBO( :, 2,30, 6) = (/&
+ & 5.4519E-04_JPRB,6.0089E-03_JPRB,9.3487E-03_JPRB,1.1911E-02_JPRB,1.2451E-02_JPRB/)  
+KBO( :, 3,30, 6) = (/&
+ & 7.4997E-04_JPRB,6.5118E-03_JPRB,9.8133E-03_JPRB,1.2219E-02_JPRB,1.2307E-02_JPRB/)  
+KBO( :, 4,30, 6) = (/&
+ & 1.0057E-03_JPRB,7.0541E-03_JPRB,1.0293E-02_JPRB,1.2517E-02_JPRB,1.2111E-02_JPRB/)  
+KBO( :, 5,30, 6) = (/&
+ & 1.3159E-03_JPRB,7.6360E-03_JPRB,1.0791E-02_JPRB,1.2813E-02_JPRB,1.1876E-02_JPRB/)  
+KBO( :, 1,31, 6) = (/&
+ & 3.5135E-04_JPRB,4.6635E-03_JPRB,7.4241E-03_JPRB,9.6038E-03_JPRB,1.0269E-02_JPRB/)  
+KBO( :, 2,31, 6) = (/&
+ & 4.9394E-04_JPRB,5.0642E-03_JPRB,7.8045E-03_JPRB,9.8736E-03_JPRB,1.0187E-02_JPRB/)  
+KBO( :, 3,31, 6) = (/&
+ & 6.7641E-04_JPRB,5.4940E-03_JPRB,8.1988E-03_JPRB,1.0135E-02_JPRB,1.0061E-02_JPRB/)  
+KBO( :, 4,31, 6) = (/&
+ & 9.0234E-04_JPRB,5.9565E-03_JPRB,8.6081E-03_JPRB,1.0392E-02_JPRB,9.8960E-03_JPRB/)  
+KBO( :, 5,31, 6) = (/&
+ & 1.1742E-03_JPRB,6.4605E-03_JPRB,9.0359E-03_JPRB,1.0646E-02_JPRB,9.7006E-03_JPRB/)  
+KBO( :, 1,32, 6) = (/&
+ & 3.2001E-04_JPRB,3.9308E-03_JPRB,6.1947E-03_JPRB,7.9626E-03_JPRB,8.4097E-03_JPRB/)  
+KBO( :, 2,32, 6) = (/&
+ & 4.4829E-04_JPRB,4.2720E-03_JPRB,6.5203E-03_JPRB,8.1905E-03_JPRB,8.3364E-03_JPRB/)  
+KBO( :, 3,32, 6) = (/&
+ & 6.1024E-04_JPRB,4.6387E-03_JPRB,6.8547E-03_JPRB,8.4122E-03_JPRB,8.2274E-03_JPRB/)  
+KBO( :, 4,32, 6) = (/&
+ & 8.0906E-04_JPRB,5.0375E-03_JPRB,7.2071E-03_JPRB,8.6330E-03_JPRB,8.0902E-03_JPRB/)  
+KBO( :, 5,32, 6) = (/&
+ & 1.0464E-03_JPRB,5.4823E-03_JPRB,7.5792E-03_JPRB,8.8523E-03_JPRB,7.9289E-03_JPRB/)  
+KBO( :, 1,33, 6) = (/&
+ & 2.9187E-04_JPRB,3.3162E-03_JPRB,5.1759E-03_JPRB,6.6059E-03_JPRB,6.8900E-03_JPRB/)  
+KBO( :, 2,33, 6) = (/&
+ & 4.0643E-04_JPRB,3.6075E-03_JPRB,5.4523E-03_JPRB,6.7980E-03_JPRB,6.8251E-03_JPRB/)  
+KBO( :, 3,33, 6) = (/&
+ & 5.4996E-04_JPRB,3.9216E-03_JPRB,5.7391E-03_JPRB,6.9881E-03_JPRB,6.7331E-03_JPRB/)  
+KBO( :, 4,33, 6) = (/&
+ & 7.2438E-04_JPRB,4.2703E-03_JPRB,6.0424E-03_JPRB,7.1762E-03_JPRB,6.6187E-03_JPRB/)  
+KBO( :, 5,33, 6) = (/&
+ & 9.3060E-04_JPRB,4.6643E-03_JPRB,6.3702E-03_JPRB,7.3681E-03_JPRB,6.4878E-03_JPRB/)  
+KBO( :, 1,34, 6) = (/&
+ & 2.6296E-04_JPRB,2.7910E-03_JPRB,4.3184E-03_JPRB,5.4761E-03_JPRB,5.6450E-03_JPRB/)  
+KBO( :, 2,34, 6) = (/&
+ & 3.6417E-04_JPRB,3.0392E-03_JPRB,4.5551E-03_JPRB,5.6403E-03_JPRB,5.5898E-03_JPRB/)  
+KBO( :, 3,34, 6) = (/&
+ & 4.8977E-04_JPRB,3.3104E-03_JPRB,4.8001E-03_JPRB,5.8026E-03_JPRB,5.5129E-03_JPRB/)  
+KBO( :, 4,34, 6) = (/&
+ & 6.4109E-04_JPRB,3.6176E-03_JPRB,5.0649E-03_JPRB,5.9649E-03_JPRB,5.4188E-03_JPRB/)  
+KBO( :, 5,34, 6) = (/&
+ & 8.1804E-04_JPRB,3.9621E-03_JPRB,5.3546E-03_JPRB,6.1354E-03_JPRB,5.3128E-03_JPRB/)  
+KBO( :, 1,35, 6) = (/&
+ & 2.2910E-04_JPRB,2.3313E-03_JPRB,3.5886E-03_JPRB,4.5289E-03_JPRB,4.6300E-03_JPRB/)  
+KBO( :, 2,35, 6) = (/&
+ & 3.1618E-04_JPRB,2.5413E-03_JPRB,3.7885E-03_JPRB,4.6696E-03_JPRB,4.5851E-03_JPRB/)  
+KBO( :, 3,35, 6) = (/&
+ & 4.2365E-04_JPRB,2.7760E-03_JPRB,3.9992E-03_JPRB,4.8085E-03_JPRB,4.5223E-03_JPRB/)  
+KBO( :, 4,35, 6) = (/&
+ & 5.5209E-04_JPRB,3.0435E-03_JPRB,4.2290E-03_JPRB,4.9499E-03_JPRB,4.4473E-03_JPRB/)  
+KBO( :, 5,35, 6) = (/&
+ & 7.0126E-04_JPRB,3.3413E-03_JPRB,4.4858E-03_JPRB,5.1019E-03_JPRB,4.3622E-03_JPRB/)  
+KBO( :, 1,36, 6) = (/&
+ & 1.9220E-04_JPRB,1.9293E-03_JPRB,2.9645E-03_JPRB,3.7347E-03_JPRB,3.8021E-03_JPRB/)  
+KBO( :, 2,36, 6) = (/&
+ & 2.6515E-04_JPRB,2.1069E-03_JPRB,3.1345E-03_JPRB,3.8546E-03_JPRB,3.7663E-03_JPRB/)  
+KBO( :, 3,36, 6) = (/&
+ & 3.5491E-04_JPRB,2.3084E-03_JPRB,3.3147E-03_JPRB,3.9746E-03_JPRB,3.7181E-03_JPRB/)  
+KBO( :, 4,36, 6) = (/&
+ & 4.6148E-04_JPRB,2.5376E-03_JPRB,3.5142E-03_JPRB,4.0989E-03_JPRB,3.6590E-03_JPRB/)  
+KBO( :, 5,36, 6) = (/&
+ & 5.8535E-04_JPRB,2.7911E-03_JPRB,3.7375E-03_JPRB,4.2333E-03_JPRB,3.5914E-03_JPRB/)  
+KBO( :, 1,37, 6) = (/&
+ & 1.5305E-04_JPRB,1.5760E-03_JPRB,2.4302E-03_JPRB,3.0653E-03_JPRB,3.1247E-03_JPRB/)  
+KBO( :, 2,37, 6) = (/&
+ & 2.1204E-04_JPRB,1.7239E-03_JPRB,2.5719E-03_JPRB,3.1677E-03_JPRB,3.0989E-03_JPRB/)  
+KBO( :, 3,37, 6) = (/&
+ & 2.8465E-04_JPRB,1.8937E-03_JPRB,2.7243E-03_JPRB,3.2712E-03_JPRB,3.0625E-03_JPRB/)  
+KBO( :, 4,37, 6) = (/&
+ & 3.7093E-04_JPRB,2.0863E-03_JPRB,2.8955E-03_JPRB,3.3791E-03_JPRB,3.0167E-03_JPRB/)  
+KBO( :, 5,37, 6) = (/&
+ & 4.7146E-04_JPRB,2.2992E-03_JPRB,3.0865E-03_JPRB,3.4968E-03_JPRB,2.9640E-03_JPRB/)  
+KBO( :, 1,38, 6) = (/&
+ & 1.2136E-04_JPRB,1.2859E-03_JPRB,1.9906E-03_JPRB,2.5150E-03_JPRB,2.5688E-03_JPRB/)  
+KBO( :, 2,38, 6) = (/&
+ & 1.6887E-04_JPRB,1.4096E-03_JPRB,2.1097E-03_JPRB,2.6028E-03_JPRB,2.5509E-03_JPRB/)  
+KBO( :, 3,38, 6) = (/&
+ & 2.2753E-04_JPRB,1.5523E-03_JPRB,2.2385E-03_JPRB,2.6923E-03_JPRB,2.5240E-03_JPRB/)  
+KBO( :, 4,38, 6) = (/&
+ & 2.9721E-04_JPRB,1.7139E-03_JPRB,2.3837E-03_JPRB,2.7852E-03_JPRB,2.4889E-03_JPRB/)  
+KBO( :, 5,38, 6) = (/&
+ & 3.7858E-04_JPRB,1.8923E-03_JPRB,2.5471E-03_JPRB,2.8888E-03_JPRB,2.4479E-03_JPRB/)  
+KBO( :, 1,39, 6) = (/&
+ & 9.6167E-05_JPRB,1.0495E-03_JPRB,1.6303E-03_JPRB,2.0636E-03_JPRB,2.1132E-03_JPRB/)  
+KBO( :, 2,39, 6) = (/&
+ & 1.3440E-04_JPRB,1.1528E-03_JPRB,1.7304E-03_JPRB,2.1389E-03_JPRB,2.1009E-03_JPRB/)  
+KBO( :, 3,39, 6) = (/&
+ & 1.8170E-04_JPRB,1.2730E-03_JPRB,1.8388E-03_JPRB,2.2153E-03_JPRB,2.0813E-03_JPRB/)  
+KBO( :, 4,39, 6) = (/&
+ & 2.3793E-04_JPRB,1.4086E-03_JPRB,1.9640E-03_JPRB,2.2962E-03_JPRB,2.0549E-03_JPRB/)  
+KBO( :, 5,39, 6) = (/&
+ & 3.0389E-04_JPRB,1.5581E-03_JPRB,2.1030E-03_JPRB,2.3870E-03_JPRB,2.0237E-03_JPRB/)  
+KBO( :, 1,40, 6) = (/&
+ & 7.3361E-05_JPRB,8.4824E-04_JPRB,1.3271E-03_JPRB,1.6866E-03_JPRB,1.7362E-03_JPRB/)  
+KBO( :, 2,40, 6) = (/&
+ & 1.0336E-04_JPRB,9.3344E-04_JPRB,1.4100E-03_JPRB,1.7510E-03_JPRB,1.7287E-03_JPRB/)  
+KBO( :, 3,40, 6) = (/&
+ & 1.4073E-04_JPRB,1.0330E-03_JPRB,1.5012E-03_JPRB,1.8164E-03_JPRB,1.7149E-03_JPRB/)  
+KBO( :, 4,40, 6) = (/&
+ & 1.8535E-04_JPRB,1.1457E-03_JPRB,1.6065E-03_JPRB,1.8858E-03_JPRB,1.6953E-03_JPRB/)  
+KBO( :, 5,40, 6) = (/&
+ & 2.3794E-04_JPRB,1.2701E-03_JPRB,1.7242E-03_JPRB,1.9642E-03_JPRB,1.6715E-03_JPRB/)  
+KBO( :, 1,41, 6) = (/&
+ & 5.5536E-05_JPRB,6.8458E-04_JPRB,1.0790E-03_JPRB,1.3774E-03_JPRB,1.4257E-03_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART20',1,ZHOOK_HANDLE)
+END SUBROUTINE PART20
+
+
+SUBROUTINE PART21
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART21',0,ZHOOK_HANDLE)
+
+
+KBO( :, 2,41, 6) = (/&
+ & 7.8965E-05_JPRB,7.5448E-04_JPRB,1.1479E-03_JPRB,1.4323E-03_JPRB,1.4220E-03_JPRB/)  
+KBO( :, 3,41, 6) = (/&
+ & 1.0837E-04_JPRB,8.3692E-04_JPRB,1.2239E-03_JPRB,1.4879E-03_JPRB,1.4126E-03_JPRB/)  
+KBO( :, 4,41, 6) = (/&
+ & 1.4371E-04_JPRB,9.3022E-04_JPRB,1.3127E-03_JPRB,1.5474E-03_JPRB,1.3983E-03_JPRB/)  
+KBO( :, 5,41, 6) = (/&
+ & 1.8543E-04_JPRB,1.0335E-03_JPRB,1.4117E-03_JPRB,1.6149E-03_JPRB,1.3804E-03_JPRB/)  
+KBO( :, 1,42, 6) = (/&
+ & 4.1927E-05_JPRB,5.5223E-04_JPRB,8.7661E-04_JPRB,1.1242E-03_JPRB,1.1705E-03_JPRB/)  
+KBO( :, 2,42, 6) = (/&
+ & 6.0156E-05_JPRB,6.0961E-04_JPRB,9.3423E-04_JPRB,1.1710E-03_JPRB,1.1695E-03_JPRB/)  
+KBO( :, 3,42, 6) = (/&
+ & 8.3258E-05_JPRB,6.7778E-04_JPRB,9.9759E-04_JPRB,1.2187E-03_JPRB,1.1637E-03_JPRB/)  
+KBO( :, 4,42, 6) = (/&
+ & 1.1119E-04_JPRB,7.5501E-04_JPRB,1.0720E-03_JPRB,1.2691E-03_JPRB,1.1534E-03_JPRB/)  
+KBO( :, 5,42, 6) = (/&
+ & 1.4431E-04_JPRB,8.4052E-04_JPRB,1.1554E-03_JPRB,1.3271E-03_JPRB,1.1399E-03_JPRB/)  
+KBO( :, 1,43, 6) = (/&
+ & 3.0871E-05_JPRB,4.4295E-04_JPRB,7.0961E-04_JPRB,9.1501E-04_JPRB,9.6059E-04_JPRB/)  
+KBO( :, 2,43, 6) = (/&
+ & 4.4814E-05_JPRB,4.8939E-04_JPRB,7.5700E-04_JPRB,9.5494E-04_JPRB,9.6152E-04_JPRB/)  
+KBO( :, 3,43, 6) = (/&
+ & 6.2693E-05_JPRB,5.4521E-04_JPRB,8.0961E-04_JPRB,9.9510E-04_JPRB,9.5849E-04_JPRB/)  
+KBO( :, 4,43, 6) = (/&
+ & 8.4515E-05_JPRB,6.0874E-04_JPRB,8.7133E-04_JPRB,1.0381E-03_JPRB,9.5168E-04_JPRB/)  
+KBO( :, 5,43, 6) = (/&
+ & 1.1049E-04_JPRB,6.7929E-04_JPRB,9.4142E-04_JPRB,1.0873E-03_JPRB,9.4176E-04_JPRB/)  
+KBO( :, 1,44, 6) = (/&
+ & 2.2405E-05_JPRB,3.5419E-04_JPRB,5.7300E-04_JPRB,7.4330E-04_JPRB,7.8767E-04_JPRB/)  
+KBO( :, 2,44, 6) = (/&
+ & 3.2966E-05_JPRB,3.9175E-04_JPRB,6.1232E-04_JPRB,7.7738E-04_JPRB,7.9040E-04_JPRB/)  
+KBO( :, 3,44, 6) = (/&
+ & 4.6673E-05_JPRB,4.3706E-04_JPRB,6.5546E-04_JPRB,8.1138E-04_JPRB,7.8937E-04_JPRB/)  
+KBO( :, 4,44, 6) = (/&
+ & 6.3585E-05_JPRB,4.8914E-04_JPRB,7.0656E-04_JPRB,8.4741E-04_JPRB,7.8495E-04_JPRB/)  
+KBO( :, 5,44, 6) = (/&
+ & 8.3871E-05_JPRB,5.4682E-04_JPRB,7.6475E-04_JPRB,8.8894E-04_JPRB,7.7792E-04_JPRB/)  
+KBO( :, 1,45, 6) = (/&
+ & 1.6187E-05_JPRB,2.8311E-04_JPRB,4.6245E-04_JPRB,6.0348E-04_JPRB,6.4574E-04_JPRB/)  
+KBO( :, 2,45, 6) = (/&
+ & 2.4128E-05_JPRB,3.1327E-04_JPRB,4.9462E-04_JPRB,6.3227E-04_JPRB,6.4929E-04_JPRB/)  
+KBO( :, 3,45, 6) = (/&
+ & 3.4598E-05_JPRB,3.4993E-04_JPRB,5.3013E-04_JPRB,6.6097E-04_JPRB,6.4978E-04_JPRB/)  
+KBO( :, 4,45, 6) = (/&
+ & 4.7680E-05_JPRB,3.9262E-04_JPRB,5.7224E-04_JPRB,6.9137E-04_JPRB,6.4736E-04_JPRB/)  
+KBO( :, 5,45, 6) = (/&
+ & 6.3477E-05_JPRB,4.3989E-04_JPRB,6.2080E-04_JPRB,7.2641E-04_JPRB,6.4265E-04_JPRB/)  
+KBO( :, 1,46, 6) = (/&
+ & 1.1520E-05_JPRB,2.2564E-04_JPRB,3.7222E-04_JPRB,4.8884E-04_JPRB,5.2865E-04_JPRB/)  
+KBO( :, 2,46, 6) = (/&
+ & 1.7434E-05_JPRB,2.4986E-04_JPRB,3.9882E-04_JPRB,5.1333E-04_JPRB,5.3299E-04_JPRB/)  
+KBO( :, 3,46, 6) = (/&
+ & 2.5336E-05_JPRB,2.7928E-04_JPRB,4.2790E-04_JPRB,5.3774E-04_JPRB,5.3473E-04_JPRB/)  
+KBO( :, 4,46, 6) = (/&
+ & 3.5391E-05_JPRB,3.1408E-04_JPRB,4.6247E-04_JPRB,5.6316E-04_JPRB,5.3383E-04_JPRB/)  
+KBO( :, 5,46, 6) = (/&
+ & 4.7626E-05_JPRB,3.5268E-04_JPRB,5.0275E-04_JPRB,5.9251E-04_JPRB,5.3089E-04_JPRB/)  
+KBO( :, 1,47, 6) = (/&
+ & 7.9924E-06_JPRB,1.7901E-04_JPRB,2.9855E-04_JPRB,3.9477E-04_JPRB,4.3220E-04_JPRB/)  
+KBO( :, 2,47, 6) = (/&
+ & 1.2309E-05_JPRB,1.9833E-04_JPRB,3.2055E-04_JPRB,4.1563E-04_JPRB,4.3695E-04_JPRB/)  
+KBO( :, 3,47, 6) = (/&
+ & 1.8181E-05_JPRB,2.2162E-04_JPRB,3.4407E-04_JPRB,4.3618E-04_JPRB,4.3945E-04_JPRB/)  
+KBO( :, 4,47, 6) = (/&
+ & 2.5793E-05_JPRB,2.4965E-04_JPRB,3.7202E-04_JPRB,4.5733E-04_JPRB,4.3966E-04_JPRB/)  
+KBO( :, 5,47, 6) = (/&
+ & 3.5147E-05_JPRB,2.8107E-04_JPRB,4.0519E-04_JPRB,4.8165E-04_JPRB,4.3810E-04_JPRB/)  
+KBO( :, 1,48, 6) = (/&
+ & 5.4989E-06_JPRB,1.4192E-04_JPRB,2.3922E-04_JPRB,3.1843E-04_JPRB,3.5311E-04_JPRB/)  
+KBO( :, 2,48, 6) = (/&
+ & 8.6315E-06_JPRB,1.5730E-04_JPRB,2.5726E-04_JPRB,3.3610E-04_JPRB,3.5792E-04_JPRB/)  
+KBO( :, 3,48, 6) = (/&
+ & 1.2966E-05_JPRB,1.7572E-04_JPRB,2.7645E-04_JPRB,3.5343E-04_JPRB,3.6095E-04_JPRB/)  
+KBO( :, 4,48, 6) = (/&
+ & 1.8681E-05_JPRB,1.9817E-04_JPRB,2.9900E-04_JPRB,3.7105E-04_JPRB,3.6197E-04_JPRB/)  
+KBO( :, 5,48, 6) = (/&
+ & 2.5826E-05_JPRB,2.2362E-04_JPRB,3.2610E-04_JPRB,3.9105E-04_JPRB,3.6145E-04_JPRB/)  
+KBO( :, 1,49, 6) = (/&
+ & 3.7496E-06_JPRB,1.1244E-04_JPRB,1.9146E-04_JPRB,2.5656E-04_JPRB,2.8829E-04_JPRB/)  
+KBO( :, 2,49, 6) = (/&
+ & 6.0096E-06_JPRB,1.2470E-04_JPRB,2.0632E-04_JPRB,2.7145E-04_JPRB,2.9308E-04_JPRB/)  
+KBO( :, 3,49, 6) = (/&
+ & 9.1827E-06_JPRB,1.3921E-04_JPRB,2.2197E-04_JPRB,2.8604E-04_JPRB,2.9630E-04_JPRB/)  
+KBO( :, 4,49, 6) = (/&
+ & 1.3445E-05_JPRB,1.5710E-04_JPRB,2.4010E-04_JPRB,3.0080E-04_JPRB,2.9804E-04_JPRB/)  
+KBO( :, 5,49, 6) = (/&
+ & 1.8873E-05_JPRB,1.7770E-04_JPRB,2.6214E-04_JPRB,3.1726E-04_JPRB,2.9838E-04_JPRB/)  
+KBO( :, 1,50, 6) = (/&
+ & 2.5671E-06_JPRB,8.9202E-05_JPRB,1.5332E-04_JPRB,2.0675E-04_JPRB,2.3501E-04_JPRB/)  
+KBO( :, 2,50, 6) = (/&
+ & 4.1982E-06_JPRB,9.9030E-05_JPRB,1.6552E-04_JPRB,2.1923E-04_JPRB,2.3945E-04_JPRB/)  
+KBO( :, 3,50, 6) = (/&
+ & 6.5267E-06_JPRB,1.1055E-04_JPRB,1.7841E-04_JPRB,2.3163E-04_JPRB,2.4283E-04_JPRB/)  
+KBO( :, 4,50, 6) = (/&
+ & 9.7111E-06_JPRB,1.2482E-04_JPRB,1.9315E-04_JPRB,2.4401E-04_JPRB,2.4486E-04_JPRB/)  
+KBO( :, 5,50, 6) = (/&
+ & 1.3834E-05_JPRB,1.4148E-04_JPRB,2.1114E-04_JPRB,2.5764E-04_JPRB,2.4575E-04_JPRB/)  
+KBO( :, 1,51, 6) = (/&
+ & 1.7531E-06_JPRB,7.0824E-05_JPRB,1.2282E-04_JPRB,1.6665E-04_JPRB,1.9149E-04_JPRB/)  
+KBO( :, 2,51, 6) = (/&
+ & 2.9260E-06_JPRB,7.8726E-05_JPRB,1.3289E-04_JPRB,1.7703E-04_JPRB,1.9549E-04_JPRB/)  
+KBO( :, 3,51, 6) = (/&
+ & 4.6328E-06_JPRB,8.7882E-05_JPRB,1.4342E-04_JPRB,1.8752E-04_JPRB,1.9871E-04_JPRB/)  
+KBO( :, 4,51, 6) = (/&
+ & 7.0046E-06_JPRB,9.9229E-05_JPRB,1.5538E-04_JPRB,1.9791E-04_JPRB,2.0087E-04_JPRB/)  
+KBO( :, 5,51, 6) = (/&
+ & 1.0130E-05_JPRB,1.1266E-04_JPRB,1.6996E-04_JPRB,2.0914E-04_JPRB,2.0202E-04_JPRB/)  
+KBO( :, 1,52, 6) = (/&
+ & 1.1881E-06_JPRB,5.6174E-05_JPRB,9.8252E-05_JPRB,1.3417E-04_JPRB,1.5588E-04_JPRB/)  
+KBO( :, 2,52, 6) = (/&
+ & 2.0257E-06_JPRB,6.2550E-05_JPRB,1.0656E-04_JPRB,1.4280E-04_JPRB,1.5952E-04_JPRB/)  
+KBO( :, 3,52, 6) = (/&
+ & 3.2686E-06_JPRB,6.9845E-05_JPRB,1.1522E-04_JPRB,1.5163E-04_JPRB,1.6251E-04_JPRB/)  
+KBO( :, 4,52, 6) = (/&
+ & 5.0263E-06_JPRB,7.8807E-05_JPRB,1.2491E-04_JPRB,1.6037E-04_JPRB,1.6475E-04_JPRB/)  
+KBO( :, 5,52, 6) = (/&
+ & 7.3808E-06_JPRB,8.9616E-05_JPRB,1.3676E-04_JPRB,1.6966E-04_JPRB,1.6606E-04_JPRB/)  
+KBO( :, 1,53, 6) = (/&
+ & 7.9832E-07_JPRB,4.4542E-05_JPRB,7.8584E-05_JPRB,1.0800E-04_JPRB,1.2691E-04_JPRB/)  
+KBO( :, 2,53, 6) = (/&
+ & 1.3907E-06_JPRB,4.9657E-05_JPRB,8.5371E-05_JPRB,1.1509E-04_JPRB,1.3015E-04_JPRB/)  
+KBO( :, 3,53, 6) = (/&
+ & 2.2894E-06_JPRB,5.5484E-05_JPRB,9.2507E-05_JPRB,1.2251E-04_JPRB,1.3293E-04_JPRB/)  
+KBO( :, 4,53, 6) = (/&
+ & 3.5816E-06_JPRB,6.2524E-05_JPRB,1.0033E-04_JPRB,1.2981E-04_JPRB,1.3510E-04_JPRB/)  
+KBO( :, 5,53, 6) = (/&
+ & 5.3461E-06_JPRB,7.1179E-05_JPRB,1.0986E-04_JPRB,1.3751E-04_JPRB,1.3653E-04_JPRB/)  
+KBO( :, 1,54, 6) = (/&
+ & 5.4266E-07_JPRB,3.5380E-05_JPRB,6.2932E-05_JPRB,8.7009E-05_JPRB,1.0307E-04_JPRB/)  
+KBO( :, 2,54, 6) = (/&
+ & 9.6274E-07_JPRB,3.9519E-05_JPRB,6.8507E-05_JPRB,9.2859E-05_JPRB,1.0590E-04_JPRB/)  
+KBO( :, 3,54, 6) = (/&
+ & 1.6160E-06_JPRB,4.4199E-05_JPRB,7.4364E-05_JPRB,9.9034E-05_JPRB,1.0834E-04_JPRB/)  
+KBO( :, 4,54, 6) = (/&
+ & 2.5711E-06_JPRB,4.9786E-05_JPRB,8.0771E-05_JPRB,1.0520E-04_JPRB,1.1032E-04_JPRB/)  
+KBO( :, 5,54, 6) = (/&
+ & 3.8980E-06_JPRB,5.6706E-05_JPRB,8.8453E-05_JPRB,1.1157E-04_JPRB,1.1168E-04_JPRB/)  
+KBO( :, 1,55, 6) = (/&
+ & 3.6993E-07_JPRB,2.8151E-05_JPRB,5.0447E-05_JPRB,7.0154E-05_JPRB,8.3628E-05_JPRB/)  
+KBO( :, 2,55, 6) = (/&
+ & 6.6712E-07_JPRB,3.1488E-05_JPRB,5.5000E-05_JPRB,7.4925E-05_JPRB,8.6021E-05_JPRB/)  
+KBO( :, 3,55, 6) = (/&
+ & 1.1415E-06_JPRB,3.5243E-05_JPRB,5.9803E-05_JPRB,8.0054E-05_JPRB,8.8077E-05_JPRB/)  
+KBO( :, 4,55, 6) = (/&
+ & 1.8471E-06_JPRB,3.9685E-05_JPRB,6.5040E-05_JPRB,8.5219E-05_JPRB,8.9795E-05_JPRB/)  
+KBO( :, 5,55, 6) = (/&
+ & 2.8436E-06_JPRB,4.5216E-05_JPRB,7.1236E-05_JPRB,9.0537E-05_JPRB,9.1036E-05_JPRB/)  
+KBO( :, 1,56, 6) = (/&
+ & 2.5120E-07_JPRB,2.2384E-05_JPRB,4.0408E-05_JPRB,5.6527E-05_JPRB,6.7818E-05_JPRB/)  
+KBO( :, 2,56, 6) = (/&
+ & 4.5929E-07_JPRB,2.5052E-05_JPRB,4.4089E-05_JPRB,6.0389E-05_JPRB,6.9831E-05_JPRB/)  
+KBO( :, 3,56, 6) = (/&
+ & 8.0167E-07_JPRB,2.8088E-05_JPRB,4.8066E-05_JPRB,6.4674E-05_JPRB,7.1604E-05_JPRB/)  
+KBO( :, 4,56, 6) = (/&
+ & 1.3201E-06_JPRB,3.1626E-05_JPRB,5.2345E-05_JPRB,6.8997E-05_JPRB,7.3067E-05_JPRB/)  
+KBO( :, 5,56, 6) = (/&
+ & 2.0659E-06_JPRB,3.6024E-05_JPRB,5.7338E-05_JPRB,7.3417E-05_JPRB,7.4207E-05_JPRB/)  
+KBO( :, 1,57, 6) = (/&
+ & 1.7004E-07_JPRB,1.7782E-05_JPRB,3.2345E-05_JPRB,4.5525E-05_JPRB,5.4975E-05_JPRB/)  
+KBO( :, 2,57, 6) = (/&
+ & 3.1410E-07_JPRB,1.9933E-05_JPRB,3.5335E-05_JPRB,4.8660E-05_JPRB,5.6678E-05_JPRB/)  
+KBO( :, 3,57, 6) = (/&
+ & 5.5924E-07_JPRB,2.2368E-05_JPRB,3.8595E-05_JPRB,5.2193E-05_JPRB,5.8180E-05_JPRB/)  
+KBO( :, 4,57, 6) = (/&
+ & 9.3826E-07_JPRB,2.5192E-05_JPRB,4.2090E-05_JPRB,5.5809E-05_JPRB,5.9446E-05_JPRB/)  
+KBO( :, 5,57, 6) = (/&
+ & 1.4926E-06_JPRB,2.8677E-05_JPRB,4.6125E-05_JPRB,5.9484E-05_JPRB,6.0455E-05_JPRB/)  
+KBO( :, 1,58, 6) = (/&
+ & 1.1577E-07_JPRB,1.4158E-05_JPRB,2.5932E-05_JPRB,3.6700E-05_JPRB,4.4570E-05_JPRB/)  
+KBO( :, 2,58, 6) = (/&
+ & 2.1587E-07_JPRB,1.5875E-05_JPRB,2.8345E-05_JPRB,3.9233E-05_JPRB,4.6003E-05_JPRB/)  
+KBO( :, 3,58, 6) = (/&
+ & 3.9135E-07_JPRB,1.7835E-05_JPRB,3.1005E-05_JPRB,4.2122E-05_JPRB,4.7262E-05_JPRB/)  
+KBO( :, 4,58, 6) = (/&
+ & 6.6857E-07_JPRB,2.0101E-05_JPRB,3.3873E-05_JPRB,4.5147E-05_JPRB,4.8336E-05_JPRB/)  
+KBO( :, 5,58, 6) = (/&
+ & 1.0806E-06_JPRB,2.2861E-05_JPRB,3.7148E-05_JPRB,4.8221E-05_JPRB,4.9215E-05_JPRB/)  
+KBO( :, 1,59, 6) = (/&
+ & 8.8304E-08_JPRB,1.1506E-05_JPRB,2.1115E-05_JPRB,2.9926E-05_JPRB,3.6293E-05_JPRB/)  
+KBO( :, 2,59, 6) = (/&
+ & 1.6550E-07_JPRB,1.2912E-05_JPRB,2.3105E-05_JPRB,3.2031E-05_JPRB,3.7443E-05_JPRB/)  
+KBO( :, 3,59, 6) = (/&
+ & 3.0240E-07_JPRB,1.4529E-05_JPRB,2.5310E-05_JPRB,3.4431E-05_JPRB,3.8446E-05_JPRB/)  
+KBO( :, 4,59, 6) = (/&
+ & 5.2081E-07_JPRB,1.6394E-05_JPRB,2.7692E-05_JPRB,3.6949E-05_JPRB,3.9290E-05_JPRB/)  
+KBO( :, 5,59, 6) = (/&
+ & 8.4770E-07_JPRB,1.8680E-05_JPRB,3.0444E-05_JPRB,3.9546E-05_JPRB,3.9972E-05_JPRB/)  
+KBO( :, 1,13, 7) = (/&
+ & 7.6417E-03_JPRB,1.4685E-01_JPRB,2.6416E-01_JPRB,3.6864E-01_JPRB,4.6109E-01_JPRB/)  
+KBO( :, 2,13, 7) = (/&
+ & 1.1521E-02_JPRB,1.5454E-01_JPRB,2.7251E-01_JPRB,3.7688E-01_JPRB,4.6334E-01_JPRB/)  
+KBO( :, 3,13, 7) = (/&
+ & 1.6613E-02_JPRB,1.6273E-01_JPRB,2.8042E-01_JPRB,3.8453E-01_JPRB,4.6553E-01_JPRB/)  
+KBO( :, 4,13, 7) = (/&
+ & 2.3028E-02_JPRB,1.7232E-01_JPRB,2.8850E-01_JPRB,3.9133E-01_JPRB,4.6726E-01_JPRB/)  
+KBO( :, 5,13, 7) = (/&
+ & 3.0788E-02_JPRB,1.8356E-01_JPRB,2.9741E-01_JPRB,3.9745E-01_JPRB,4.6774E-01_JPRB/)  
+KBO( :, 1,14, 7) = (/&
+ & 6.7826E-03_JPRB,1.3584E-01_JPRB,2.4414E-01_JPRB,3.4060E-01_JPRB,4.2274E-01_JPRB/)  
+KBO( :, 2,14, 7) = (/&
+ & 1.0248E-02_JPRB,1.4315E-01_JPRB,2.5224E-01_JPRB,3.4887E-01_JPRB,4.2540E-01_JPRB/)  
+KBO( :, 3,14, 7) = (/&
+ & 1.4775E-02_JPRB,1.5124E-01_JPRB,2.6040E-01_JPRB,3.5649E-01_JPRB,4.2762E-01_JPRB/)  
+KBO( :, 4,14, 7) = (/&
+ & 2.0429E-02_JPRB,1.6084E-01_JPRB,2.6907E-01_JPRB,3.6333E-01_JPRB,4.2937E-01_JPRB/)  
+KBO( :, 5,14, 7) = (/&
+ & 2.7297E-02_JPRB,1.7167E-01_JPRB,2.7817E-01_JPRB,3.7020E-01_JPRB,4.3049E-01_JPRB/)  
+KBO( :, 1,15, 7) = (/&
+ & 6.0553E-03_JPRB,1.2441E-01_JPRB,2.2318E-01_JPRB,3.1131E-01_JPRB,3.8387E-01_JPRB/)  
+KBO( :, 2,15, 7) = (/&
+ & 9.1374E-03_JPRB,1.3148E-01_JPRB,2.3116E-01_JPRB,3.1936E-01_JPRB,3.8692E-01_JPRB/)  
+KBO( :, 3,15, 7) = (/&
+ & 1.3123E-02_JPRB,1.3959E-01_JPRB,2.3951E-01_JPRB,3.2683E-01_JPRB,3.8938E-01_JPRB/)  
+KBO( :, 4,15, 7) = (/&
+ & 1.8101E-02_JPRB,1.4896E-01_JPRB,2.4836E-01_JPRB,3.3404E-01_JPRB,3.9141E-01_JPRB/)  
+KBO( :, 5,15, 7) = (/&
+ & 2.4175E-02_JPRB,1.5911E-01_JPRB,2.5777E-01_JPRB,3.4141E-01_JPRB,3.9315E-01_JPRB/)  
+KBO( :, 1,16, 7) = (/&
+ & 5.4131E-03_JPRB,1.1283E-01_JPRB,2.0186E-01_JPRB,2.8155E-01_JPRB,3.4527E-01_JPRB/)  
+KBO( :, 2,16, 7) = (/&
+ & 8.1288E-03_JPRB,1.1972E-01_JPRB,2.0981E-01_JPRB,2.8928E-01_JPRB,3.4862E-01_JPRB/)  
+KBO( :, 3,16, 7) = (/&
+ & 1.1627E-02_JPRB,1.2773E-01_JPRB,2.1812E-01_JPRB,2.9668E-01_JPRB,3.5162E-01_JPRB/)  
+KBO( :, 4,16, 7) = (/&
+ & 1.6009E-02_JPRB,1.3671E-01_JPRB,2.2693E-01_JPRB,3.0423E-01_JPRB,3.5439E-01_JPRB/)  
+KBO( :, 5,16, 7) = (/&
+ & 2.1373E-02_JPRB,1.4625E-01_JPRB,2.3648E-01_JPRB,3.1202E-01_JPRB,3.5679E-01_JPRB/)  
+KBO( :, 1,17, 7) = (/&
+ & 4.8149E-03_JPRB,1.0146E-01_JPRB,1.8080E-01_JPRB,2.5190E-01_JPRB,3.0738E-01_JPRB/)  
+KBO( :, 2,17, 7) = (/&
+ & 7.1924E-03_JPRB,1.0816E-01_JPRB,1.8856E-01_JPRB,2.5937E-01_JPRB,3.1115E-01_JPRB/)  
+KBO( :, 3,17, 7) = (/&
+ & 1.0254E-02_JPRB,1.1589E-01_JPRB,1.9675E-01_JPRB,2.6692E-01_JPRB,3.1465E-01_JPRB/)  
+KBO( :, 4,17, 7) = (/&
+ & 1.4092E-02_JPRB,1.2436E-01_JPRB,2.0561E-01_JPRB,2.7457E-01_JPRB,3.1792E-01_JPRB/)  
+KBO( :, 5,17, 7) = (/&
+ & 1.8801E-02_JPRB,1.3345E-01_JPRB,2.1493E-01_JPRB,2.8234E-01_JPRB,3.2110E-01_JPRB/)  
+KBO( :, 1,18, 7) = (/&
+ & 4.2633E-03_JPRB,9.0462E-02_JPRB,1.6049E-01_JPRB,2.2327E-01_JPRB,2.7128E-01_JPRB/)  
+KBO( :, 2,18, 7) = (/&
+ & 6.3371E-03_JPRB,9.6983E-02_JPRB,1.6798E-01_JPRB,2.3054E-01_JPRB,2.7526E-01_JPRB/)  
+KBO( :, 3,18, 7) = (/&
+ & 9.0048E-03_JPRB,1.0434E-01_JPRB,1.7596E-01_JPRB,2.3795E-01_JPRB,2.7919E-01_JPRB/)  
+KBO( :, 4,18, 7) = (/&
+ & 1.2349E-02_JPRB,1.1235E-01_JPRB,1.8455E-01_JPRB,2.4558E-01_JPRB,2.8307E-01_JPRB/)  
+KBO( :, 5,18, 7) = (/&
+ & 1.6477E-02_JPRB,1.2095E-01_JPRB,1.9366E-01_JPRB,2.5349E-01_JPRB,2.8698E-01_JPRB/)  
+KBO( :, 1,19, 7) = (/&
+ & 3.7554E-03_JPRB,8.0086E-02_JPRB,1.4130E-01_JPRB,1.9618E-01_JPRB,2.3729E-01_JPRB/)  
+KBO( :, 2,19, 7) = (/&
+ & 5.5565E-03_JPRB,8.6345E-02_JPRB,1.4840E-01_JPRB,2.0316E-01_JPRB,2.4150E-01_JPRB/)  
+KBO( :, 3,19, 7) = (/&
+ & 7.8702E-03_JPRB,9.3236E-02_JPRB,1.5616E-01_JPRB,2.1043E-01_JPRB,2.4581E-01_JPRB/)  
+KBO( :, 4,19, 7) = (/&
+ & 1.0787E-02_JPRB,1.0080E-01_JPRB,1.6449E-01_JPRB,2.1798E-01_JPRB,2.5008E-01_JPRB/)  
+KBO( :, 5,19, 7) = (/&
+ & 1.4413E-02_JPRB,1.0887E-01_JPRB,1.7330E-01_JPRB,2.2565E-01_JPRB,2.5355E-01_JPRB/)  
+KBO( :, 1,20, 7) = (/&
+ & 3.3111E-03_JPRB,7.0557E-02_JPRB,1.2355E-01_JPRB,1.7117E-01_JPRB,2.0615E-01_JPRB/)  
+KBO( :, 2,20, 7) = (/&
+ & 4.8768E-03_JPRB,7.6467E-02_JPRB,1.3039E-01_JPRB,1.7787E-01_JPRB,2.1057E-01_JPRB/)  
+KBO( :, 3,20, 7) = (/&
+ & 6.8937E-03_JPRB,8.2939E-02_JPRB,1.3783E-01_JPRB,1.8491E-01_JPRB,2.1500E-01_JPRB/)  
+KBO( :, 4,20, 7) = (/&
+ & 9.4568E-03_JPRB,8.9997E-02_JPRB,1.4573E-01_JPRB,1.9190E-01_JPRB,2.1847E-01_JPRB/)  
+KBO( :, 5,20, 7) = (/&
+ & 1.2649E-02_JPRB,9.7398E-02_JPRB,1.5380E-01_JPRB,1.9837E-01_JPRB,2.2024E-01_JPRB/)  
+KBO( :, 1,21, 7) = (/&
+ & 2.9095E-03_JPRB,6.1851E-02_JPRB,1.0745E-01_JPRB,1.4844E-01_JPRB,1.7810E-01_JPRB/)  
+KBO( :, 2,21, 7) = (/&
+ & 4.2692E-03_JPRB,6.7344E-02_JPRB,1.1397E-01_JPRB,1.5479E-01_JPRB,1.8248E-01_JPRB/)  
+KBO( :, 3,21, 7) = (/&
+ & 6.0338E-03_JPRB,7.3350E-02_JPRB,1.2086E-01_JPRB,1.6105E-01_JPRB,1.8592E-01_JPRB/)  
+KBO( :, 4,21, 7) = (/&
+ & 8.2818E-03_JPRB,7.9701E-02_JPRB,1.2784E-01_JPRB,1.6671E-01_JPRB,1.8765E-01_JPRB/)  
+KBO( :, 5,21, 7) = (/&
+ & 1.1081E-02_JPRB,8.6263E-02_JPRB,1.3464E-01_JPRB,1.7152E-01_JPRB,1.8756E-01_JPRB/)  
+KBO( :, 1,22, 7) = (/&
+ & 2.6181E-03_JPRB,5.4287E-02_JPRB,9.3450E-02_JPRB,1.2844E-01_JPRB,1.5335E-01_JPRB/)  
+KBO( :, 2,22, 7) = (/&
+ & 3.8243E-03_JPRB,5.9349E-02_JPRB,9.9393E-02_JPRB,1.3393E-01_JPRB,1.5664E-01_JPRB/)  
+KBO( :, 3,22, 7) = (/&
+ & 5.3935E-03_JPRB,6.4666E-02_JPRB,1.0530E-01_JPRB,1.3879E-01_JPRB,1.5834E-01_JPRB/)  
+KBO( :, 4,22, 7) = (/&
+ & 7.3925E-03_JPRB,7.0137E-02_JPRB,1.1102E-01_JPRB,1.4284E-01_JPRB,1.5840E-01_JPRB/)  
+KBO( :, 5,22, 7) = (/&
+ & 9.8581E-03_JPRB,7.5739E-02_JPRB,1.1637E-01_JPRB,1.4626E-01_JPRB,1.5728E-01_JPRB/)  
+KBO( :, 1,23, 7) = (/&
+ & 2.3567E-03_JPRB,4.7466E-02_JPRB,8.0891E-02_JPRB,1.1029E-01_JPRB,1.3073E-01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART21',1,ZHOOK_HANDLE)
+END SUBROUTINE PART21
+
+
+SUBROUTINE PART22
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART22',0,ZHOOK_HANDLE)
+
+
+KBO( :, 2,23, 7) = (/&
+ & 3.4308E-03_JPRB,5.1876E-02_JPRB,8.5843E-02_JPRB,1.1448E-01_JPRB,1.3247E-01_JPRB/)  
+KBO( :, 3,23, 7) = (/&
+ & 4.8257E-03_JPRB,5.6351E-02_JPRB,9.0620E-02_JPRB,1.1795E-01_JPRB,1.3277E-01_JPRB/)  
+KBO( :, 4,23, 7) = (/&
+ & 6.5958E-03_JPRB,6.0900E-02_JPRB,9.5105E-02_JPRB,1.2092E-01_JPRB,1.3207E-01_JPRB/)  
+KBO( :, 5,23, 7) = (/&
+ & 8.7592E-03_JPRB,6.5586E-02_JPRB,9.9383E-02_JPRB,1.2354E-01_JPRB,1.3064E-01_JPRB/)  
+KBO( :, 1,24, 7) = (/&
+ & 2.1271E-03_JPRB,4.1190E-02_JPRB,6.9395E-02_JPRB,9.3707E-02_JPRB,1.1002E-01_JPRB/)  
+KBO( :, 2,24, 7) = (/&
+ & 3.0856E-03_JPRB,4.4852E-02_JPRB,7.3354E-02_JPRB,9.6714E-02_JPRB,1.1057E-01_JPRB/)  
+KBO( :, 3,24, 7) = (/&
+ & 4.3257E-03_JPRB,4.8524E-02_JPRB,7.7130E-02_JPRB,9.9321E-02_JPRB,1.1024E-01_JPRB/)  
+KBO( :, 4,24, 7) = (/&
+ & 5.8826E-03_JPRB,5.2297E-02_JPRB,8.0734E-02_JPRB,1.0166E-01_JPRB,1.0927E-01_JPRB/)  
+KBO( :, 5,24, 7) = (/&
+ & 7.7717E-03_JPRB,5.6295E-02_JPRB,8.4275E-02_JPRB,1.0378E-01_JPRB,1.0782E-01_JPRB/)  
+KBO( :, 1,25, 7) = (/&
+ & 1.9281E-03_JPRB,3.5411E-02_JPRB,5.8998E-02_JPRB,7.8852E-02_JPRB,9.1568E-02_JPRB/)  
+KBO( :, 2,25, 7) = (/&
+ & 2.7824E-03_JPRB,3.8393E-02_JPRB,6.2155E-02_JPRB,8.1138E-02_JPRB,9.1561E-02_JPRB/)  
+KBO( :, 3,25, 7) = (/&
+ & 3.8806E-03_JPRB,4.1433E-02_JPRB,6.5194E-02_JPRB,8.3215E-02_JPRB,9.0981E-02_JPRB/)  
+KBO( :, 4,25, 7) = (/&
+ & 5.2453E-03_JPRB,4.4637E-02_JPRB,6.8168E-02_JPRB,8.5119E-02_JPRB,8.9958E-02_JPRB/)  
+KBO( :, 5,25, 7) = (/&
+ & 6.8977E-03_JPRB,4.8120E-02_JPRB,7.1175E-02_JPRB,8.6855E-02_JPRB,8.8595E-02_JPRB/)  
+KBO( :, 1,26, 7) = (/&
+ & 1.7587E-03_JPRB,3.0214E-02_JPRB,4.9851E-02_JPRB,6.5996E-02_JPRB,7.5710E-02_JPRB/)  
+KBO( :, 2,26, 7) = (/&
+ & 2.5210E-03_JPRB,3.2677E-02_JPRB,5.2397E-02_JPRB,6.7829E-02_JPRB,7.5438E-02_JPRB/)  
+KBO( :, 3,26, 7) = (/&
+ & 3.4928E-03_JPRB,3.5239E-02_JPRB,5.4896E-02_JPRB,6.9528E-02_JPRB,7.4777E-02_JPRB/)  
+KBO( :, 4,26, 7) = (/&
+ & 4.6908E-03_JPRB,3.8029E-02_JPRB,5.7397E-02_JPRB,7.1083E-02_JPRB,7.3800E-02_JPRB/)  
+KBO( :, 5,26, 7) = (/&
+ & 6.1395E-03_JPRB,4.1060E-02_JPRB,5.9986E-02_JPRB,7.2531E-02_JPRB,7.2558E-02_JPRB/)  
+KBO( :, 1,27, 7) = (/&
+ & 1.6029E-03_JPRB,2.5642E-02_JPRB,4.1927E-02_JPRB,5.5065E-02_JPRB,6.2332E-02_JPRB/)  
+KBO( :, 2,27, 7) = (/&
+ & 2.2812E-03_JPRB,2.7700E-02_JPRB,4.4008E-02_JPRB,5.6573E-02_JPRB,6.1961E-02_JPRB/)  
+KBO( :, 3,27, 7) = (/&
+ & 3.1372E-03_JPRB,2.9918E-02_JPRB,4.6094E-02_JPRB,5.7948E-02_JPRB,6.1302E-02_JPRB/)  
+KBO( :, 4,27, 7) = (/&
+ & 4.1899E-03_JPRB,3.2354E-02_JPRB,4.8227E-02_JPRB,5.9239E-02_JPRB,6.0407E-02_JPRB/)  
+KBO( :, 5,27, 7) = (/&
+ & 5.4669E-03_JPRB,3.4991E-02_JPRB,5.0494E-02_JPRB,6.0487E-02_JPRB,5.9313E-02_JPRB/)  
+KBO( :, 1,28, 7) = (/&
+ & 1.4587E-03_JPRB,2.1692E-02_JPRB,3.5152E-02_JPRB,4.5868E-02_JPRB,5.1191E-02_JPRB/)  
+KBO( :, 2,28, 7) = (/&
+ & 2.0600E-03_JPRB,2.3452E-02_JPRB,3.6880E-02_JPRB,4.7085E-02_JPRB,5.0788E-02_JPRB/)  
+KBO( :, 3,28, 7) = (/&
+ & 2.8147E-03_JPRB,2.5390E-02_JPRB,3.8642E-02_JPRB,4.8221E-02_JPRB,5.0174E-02_JPRB/)  
+KBO( :, 4,28, 7) = (/&
+ & 3.7416E-03_JPRB,2.7500E-02_JPRB,4.0500E-02_JPRB,4.9318E-02_JPRB,4.9374E-02_JPRB/)  
+KBO( :, 5,28, 7) = (/&
+ & 4.8758E-03_JPRB,2.9796E-02_JPRB,4.2469E-02_JPRB,5.0418E-02_JPRB,4.8430E-02_JPRB/)  
+KBO( :, 1,29, 7) = (/&
+ & 1.3284E-03_JPRB,1.8334E-02_JPRB,2.9430E-02_JPRB,3.8154E-02_JPRB,4.1977E-02_JPRB/)  
+KBO( :, 2,29, 7) = (/&
+ & 1.8615E-03_JPRB,1.9864E-02_JPRB,3.0877E-02_JPRB,3.9147E-02_JPRB,4.1585E-02_JPRB/)  
+KBO( :, 3,29, 7) = (/&
+ & 2.5273E-03_JPRB,2.1548E-02_JPRB,3.2404E-02_JPRB,4.0101E-02_JPRB,4.1024E-02_JPRB/)  
+KBO( :, 4,29, 7) = (/&
+ & 3.3502E-03_JPRB,2.3383E-02_JPRB,3.4027E-02_JPRB,4.1054E-02_JPRB,4.0329E-02_JPRB/)  
+KBO( :, 5,29, 7) = (/&
+ & 4.3678E-03_JPRB,2.5374E-02_JPRB,3.5730E-02_JPRB,4.2021E-02_JPRB,3.9526E-02_JPRB/)  
+KBO( :, 1,30, 7) = (/&
+ & 1.2077E-03_JPRB,1.5498E-02_JPRB,2.4613E-02_JPRB,3.1700E-02_JPRB,3.4385E-02_JPRB/)  
+KBO( :, 2,30, 7) = (/&
+ & 1.6794E-03_JPRB,1.6830E-02_JPRB,2.5859E-02_JPRB,3.2527E-02_JPRB,3.4019E-02_JPRB/)  
+KBO( :, 3,30, 7) = (/&
+ & 2.2700E-03_JPRB,1.8290E-02_JPRB,2.7194E-02_JPRB,3.3342E-02_JPRB,3.3526E-02_JPRB/)  
+KBO( :, 4,30, 7) = (/&
+ & 3.0076E-03_JPRB,1.9884E-02_JPRB,2.8602E-02_JPRB,3.4179E-02_JPRB,3.2934E-02_JPRB/)  
+KBO( :, 5,30, 7) = (/&
+ & 3.9239E-03_JPRB,2.1618E-02_JPRB,3.0083E-02_JPRB,3.5038E-02_JPRB,3.2267E-02_JPRB/)  
+KBO( :, 1,31, 7) = (/&
+ & 1.0979E-03_JPRB,1.3116E-02_JPRB,2.0595E-02_JPRB,2.6327E-02_JPRB,2.8152E-02_JPRB/)  
+KBO( :, 2,31, 7) = (/&
+ & 1.5169E-03_JPRB,1.4272E-02_JPRB,2.1683E-02_JPRB,2.7024E-02_JPRB,2.7826E-02_JPRB/)  
+KBO( :, 3,31, 7) = (/&
+ & 2.0453E-03_JPRB,1.5538E-02_JPRB,2.2843E-02_JPRB,2.7738E-02_JPRB,2.7405E-02_JPRB/)  
+KBO( :, 4,31, 7) = (/&
+ & 2.7116E-03_JPRB,1.6927E-02_JPRB,2.4066E-02_JPRB,2.8483E-02_JPRB,2.6914E-02_JPRB/)  
+KBO( :, 5,31, 7) = (/&
+ & 3.5394E-03_JPRB,1.8442E-02_JPRB,2.5352E-02_JPRB,2.9238E-02_JPRB,2.6357E-02_JPRB/)  
+KBO( :, 1,32, 7) = (/&
+ & 9.9745E-04_JPRB,1.1111E-02_JPRB,1.7254E-02_JPRB,2.1864E-02_JPRB,2.3045E-02_JPRB/)  
+KBO( :, 2,32, 7) = (/&
+ & 1.3720E-03_JPRB,1.2113E-02_JPRB,1.8202E-02_JPRB,2.2466E-02_JPRB,2.2758E-02_JPRB/)  
+KBO( :, 3,32, 7) = (/&
+ & 1.8496E-03_JPRB,1.3215E-02_JPRB,1.9210E-02_JPRB,2.3105E-02_JPRB,2.2405E-02_JPRB/)  
+KBO( :, 4,32, 7) = (/&
+ & 2.4534E-03_JPRB,1.4429E-02_JPRB,2.0269E-02_JPRB,2.3758E-02_JPRB,2.1994E-02_JPRB/)  
+KBO( :, 5,32, 7) = (/&
+ & 3.1994E-03_JPRB,1.5763E-02_JPRB,2.1391E-02_JPRB,2.4424E-02_JPRB,2.1537E-02_JPRB/)  
+KBO( :, 1,33, 7) = (/&
+ & 9.0609E-04_JPRB,9.4233E-03_JPRB,1.4475E-02_JPRB,1.8167E-02_JPRB,1.8863E-02_JPRB/)  
+KBO( :, 2,33, 7) = (/&
+ & 1.2447E-03_JPRB,1.0296E-02_JPRB,1.5300E-02_JPRB,1.8704E-02_JPRB,1.8620E-02_JPRB/)  
+KBO( :, 3,33, 7) = (/&
+ & 1.6790E-03_JPRB,1.1258E-02_JPRB,1.6171E-02_JPRB,1.9267E-02_JPRB,1.8323E-02_JPRB/)  
+KBO( :, 4,33, 7) = (/&
+ & 2.2252E-03_JPRB,1.2324E-02_JPRB,1.7095E-02_JPRB,1.9844E-02_JPRB,1.7985E-02_JPRB/)  
+KBO( :, 5,33, 7) = (/&
+ & 2.8950E-03_JPRB,1.3521E-02_JPRB,1.8082E-02_JPRB,2.0433E-02_JPRB,1.7614E-02_JPRB/)  
+KBO( :, 1,34, 7) = (/&
+ & 8.1514E-04_JPRB,7.9756E-03_JPRB,1.2137E-02_JPRB,1.5099E-02_JPRB,1.5443E-02_JPRB/)  
+KBO( :, 2,34, 7) = (/&
+ & 1.1204E-03_JPRB,8.7356E-03_JPRB,1.2847E-02_JPRB,1.5577E-02_JPRB,1.5237E-02_JPRB/)  
+KBO( :, 3,34, 7) = (/&
+ & 1.5119E-03_JPRB,9.5758E-03_JPRB,1.3604E-02_JPRB,1.6072E-02_JPRB,1.4994E-02_JPRB/)  
+KBO( :, 4,34, 7) = (/&
+ & 2.0012E-03_JPRB,1.0522E-02_JPRB,1.4410E-02_JPRB,1.6579E-02_JPRB,1.4722E-02_JPRB/)  
+KBO( :, 5,34, 7) = (/&
+ & 2.5995E-03_JPRB,1.1602E-02_JPRB,1.5283E-02_JPRB,1.7098E-02_JPRB,1.4425E-02_JPRB/)  
+KBO( :, 1,35, 7) = (/&
+ & 7.1227E-04_JPRB,6.7018E-03_JPRB,1.0127E-02_JPRB,1.2528E-02_JPRB,1.2660E-02_JPRB/)  
+KBO( :, 2,35, 7) = (/&
+ & 9.8163E-04_JPRB,7.3560E-03_JPRB,1.0739E-02_JPRB,1.2948E-02_JPRB,1.2494E-02_JPRB/)  
+KBO( :, 3,35, 7) = (/&
+ & 1.3263E-03_JPRB,8.0909E-03_JPRB,1.1393E-02_JPRB,1.3382E-02_JPRB,1.2302E-02_JPRB/)  
+KBO( :, 4,35, 7) = (/&
+ & 1.7561E-03_JPRB,8.9242E-03_JPRB,1.2096E-02_JPRB,1.3825E-02_JPRB,1.2085E-02_JPRB/)  
+KBO( :, 5,35, 7) = (/&
+ & 2.2810E-03_JPRB,9.8947E-03_JPRB,1.2873E-02_JPRB,1.4284E-02_JPRB,1.1851E-02_JPRB/)  
+KBO( :, 1,36, 7) = (/&
+ & 6.0202E-04_JPRB,5.5779E-03_JPRB,8.4015E-03_JPRB,1.0366E-02_JPRB,1.0396E-02_JPRB/)  
+KBO( :, 2,36, 7) = (/&
+ & 8.3319E-04_JPRB,6.1400E-03_JPRB,8.9260E-03_JPRB,1.0732E-02_JPRB,1.0268E-02_JPRB/)  
+KBO( :, 3,36, 7) = (/&
+ & 1.1287E-03_JPRB,6.7734E-03_JPRB,9.4880E-03_JPRB,1.1109E-02_JPRB,1.0116E-02_JPRB/)  
+KBO( :, 4,36, 7) = (/&
+ & 1.4983E-03_JPRB,7.5040E-03_JPRB,1.0100E-02_JPRB,1.1497E-02_JPRB,9.9466E-03_JPRB/)  
+KBO( :, 5,36, 7) = (/&
+ & 1.9490E-03_JPRB,8.3637E-03_JPRB,1.0791E-02_JPRB,1.1906E-02_JPRB,9.7636E-03_JPRB/)  
+KBO( :, 1,37, 7) = (/&
+ & 4.8416E-04_JPRB,4.5804E-03_JPRB,6.9086E-03_JPRB,8.5355E-03_JPRB,8.5508E-03_JPRB/)  
+KBO( :, 2,37, 7) = (/&
+ & 6.7495E-04_JPRB,5.0520E-03_JPRB,7.3527E-03_JPRB,8.8519E-03_JPRB,8.4527E-03_JPRB/)  
+KBO( :, 3,37, 7) = (/&
+ & 9.1952E-04_JPRB,5.5894E-03_JPRB,7.8325E-03_JPRB,9.1782E-03_JPRB,8.3356E-03_JPRB/)  
+KBO( :, 4,37, 7) = (/&
+ & 1.2272E-03_JPRB,6.2161E-03_JPRB,8.3611E-03_JPRB,9.5172E-03_JPRB,8.2045E-03_JPRB/)  
+KBO( :, 5,37, 7) = (/&
+ & 1.6032E-03_JPRB,6.9603E-03_JPRB,8.9629E-03_JPRB,9.8764E-03_JPRB,8.0631E-03_JPRB/)  
+KBO( :, 1,38, 7) = (/&
+ & 3.8815E-04_JPRB,3.7581E-03_JPRB,5.6778E-03_JPRB,7.0261E-03_JPRB,7.0356E-03_JPRB/)  
+KBO( :, 2,38, 7) = (/&
+ & 5.4489E-04_JPRB,4.1553E-03_JPRB,6.0551E-03_JPRB,7.3001E-03_JPRB,6.9620E-03_JPRB/)  
+KBO( :, 3,38, 7) = (/&
+ & 7.4720E-04_JPRB,4.6096E-03_JPRB,6.4646E-03_JPRB,7.5820E-03_JPRB,6.8735E-03_JPRB/)  
+KBO( :, 4,38, 7) = (/&
+ & 1.0025E-03_JPRB,5.1457E-03_JPRB,6.9210E-03_JPRB,7.8773E-03_JPRB,6.7744E-03_JPRB/)  
+KBO( :, 5,38, 7) = (/&
+ & 1.3158E-03_JPRB,5.7907E-03_JPRB,7.4467E-03_JPRB,8.1937E-03_JPRB,6.6650E-03_JPRB/)  
+KBO( :, 1,39, 7) = (/&
+ & 3.1112E-04_JPRB,3.0839E-03_JPRB,4.6680E-03_JPRB,5.7846E-03_JPRB,5.7911E-03_JPRB/)  
+KBO( :, 2,39, 7) = (/&
+ & 4.3990E-04_JPRB,3.4180E-03_JPRB,4.9880E-03_JPRB,6.0205E-03_JPRB,5.7382E-03_JPRB/)  
+KBO( :, 3,39, 7) = (/&
+ & 6.0701E-04_JPRB,3.8014E-03_JPRB,5.3384E-03_JPRB,6.2649E-03_JPRB,5.6729E-03_JPRB/)  
+KBO( :, 4,39, 7) = (/&
+ & 8.1924E-04_JPRB,4.2647E-03_JPRB,5.7318E-03_JPRB,6.5208E-03_JPRB,5.5990E-03_JPRB/)  
+KBO( :, 5,39, 7) = (/&
+ & 1.0794E-03_JPRB,4.8235E-03_JPRB,6.1904E-03_JPRB,6.7997E-03_JPRB,5.5155E-03_JPRB/)  
+KBO( :, 1,40, 7) = (/&
+ & 2.3999E-04_JPRB,2.5045E-03_JPRB,3.8112E-03_JPRB,4.7419E-03_JPRB,4.7659E-03_JPRB/)  
+KBO( :, 2,40, 7) = (/&
+ & 3.4272E-04_JPRB,2.7807E-03_JPRB,4.0807E-03_JPRB,4.9438E-03_JPRB,4.7281E-03_JPRB/)  
+KBO( :, 3,40, 7) = (/&
+ & 4.7709E-04_JPRB,3.1013E-03_JPRB,4.3772E-03_JPRB,5.1542E-03_JPRB,4.6798E-03_JPRB/)  
+KBO( :, 4,40, 7) = (/&
+ & 6.4876E-04_JPRB,3.4905E-03_JPRB,4.7113E-03_JPRB,5.3759E-03_JPRB,4.6247E-03_JPRB/)  
+KBO( :, 5,40, 7) = (/&
+ & 8.6088E-04_JPRB,3.9661E-03_JPRB,5.1051E-03_JPRB,5.6199E-03_JPRB,4.5616E-03_JPRB/)  
+KBO( :, 1,41, 7) = (/&
+ & 1.8373E-04_JPRB,2.0302E-03_JPRB,3.1081E-03_JPRB,3.8838E-03_JPRB,3.9218E-03_JPRB/)  
+KBO( :, 2,41, 7) = (/&
+ & 2.6521E-04_JPRB,2.2593E-03_JPRB,3.3353E-03_JPRB,4.0566E-03_JPRB,3.8950E-03_JPRB/)  
+KBO( :, 3,41, 7) = (/&
+ & 3.7260E-04_JPRB,2.5252E-03_JPRB,3.5847E-03_JPRB,4.2368E-03_JPRB,3.8605E-03_JPRB/)  
+KBO( :, 4,41, 7) = (/&
+ & 5.1095E-04_JPRB,2.8525E-03_JPRB,3.8680E-03_JPRB,4.4284E-03_JPRB,3.8199E-03_JPRB/)  
+KBO( :, 5,41, 7) = (/&
+ & 6.8302E-04_JPRB,3.2540E-03_JPRB,4.2038E-03_JPRB,4.6408E-03_JPRB,3.7718E-03_JPRB/)  
+KBO( :, 1,42, 7) = (/&
+ & 1.4021E-04_JPRB,1.6447E-03_JPRB,2.5340E-03_JPRB,3.1794E-03_JPRB,3.2271E-03_JPRB/)  
+KBO( :, 2,42, 7) = (/&
+ & 2.0457E-04_JPRB,1.8341E-03_JPRB,2.7244E-03_JPRB,3.3270E-03_JPRB,3.2092E-03_JPRB/)  
+KBO( :, 3,42, 7) = (/&
+ & 2.9014E-04_JPRB,2.0556E-03_JPRB,2.9350E-03_JPRB,3.4824E-03_JPRB,3.1854E-03_JPRB/)  
+KBO( :, 4,42, 7) = (/&
+ & 4.0126E-04_JPRB,2.3289E-03_JPRB,3.1740E-03_JPRB,3.6472E-03_JPRB,3.1554E-03_JPRB/)  
+KBO( :, 5,42, 7) = (/&
+ & 5.4072E-04_JPRB,2.6686E-03_JPRB,3.4603E-03_JPRB,3.8315E-03_JPRB,3.1192E-03_JPRB/)  
+KBO( :, 1,43, 7) = (/&
+ & 1.0418E-04_JPRB,1.3241E-03_JPRB,2.0566E-03_JPRB,2.5949E-03_JPRB,2.6555E-03_JPRB/)  
+KBO( :, 2,43, 7) = (/&
+ & 1.5394E-04_JPRB,1.4792E-03_JPRB,2.2158E-03_JPRB,2.7206E-03_JPRB,2.6446E-03_JPRB/)  
+KBO( :, 3,43, 7) = (/&
+ & 2.2089E-04_JPRB,1.6609E-03_JPRB,2.3912E-03_JPRB,2.8530E-03_JPRB,2.6280E-03_JPRB/)  
+KBO( :, 4,43, 7) = (/&
+ & 3.0843E-04_JPRB,1.8861E-03_JPRB,2.5915E-03_JPRB,2.9949E-03_JPRB,2.6073E-03_JPRB/)  
+KBO( :, 5,43, 7) = (/&
+ & 4.1975E-04_JPRB,2.1696E-03_JPRB,2.8326E-03_JPRB,3.1535E-03_JPRB,2.5807E-03_JPRB/)  
+KBO( :, 1,44, 7) = (/&
+ & 7.6179E-05_JPRB,1.0623E-03_JPRB,1.6648E-03_JPRB,2.1141E-03_JPRB,2.1847E-03_JPRB/)  
+KBO( :, 2,44, 7) = (/&
+ & 1.1420E-04_JPRB,1.1887E-03_JPRB,1.7975E-03_JPRB,2.2205E-03_JPRB,2.1791E-03_JPRB/)  
+KBO( :, 3,44, 7) = (/&
+ & 1.6589E-04_JPRB,1.3367E-03_JPRB,1.9435E-03_JPRB,2.3337E-03_JPRB,2.1689E-03_JPRB/)  
+KBO( :, 4,44, 7) = (/&
+ & 2.3431E-04_JPRB,1.5216E-03_JPRB,2.1097E-03_JPRB,2.4546E-03_JPRB,2.1546E-03_JPRB/)  
+KBO( :, 5,44, 7) = (/&
+ & 3.2209E-04_JPRB,1.7553E-03_JPRB,2.3110E-03_JPRB,2.5901E-03_JPRB,2.1354E-03_JPRB/)  
+KBO( :, 1,45, 7) = (/&
+ & 5.5380E-05_JPRB,8.5190E-04_JPRB,1.3470E-03_JPRB,1.7214E-03_JPRB,1.7974E-03_JPRB/)  
+KBO( :, 2,45, 7) = (/&
+ & 8.4230E-05_JPRB,9.5419E-04_JPRB,1.4571E-03_JPRB,1.8110E-03_JPRB,1.7954E-03_JPRB/)  
+KBO( :, 3,45, 7) = (/&
+ & 1.2398E-04_JPRB,1.0747E-03_JPRB,1.5782E-03_JPRB,1.9072E-03_JPRB,1.7895E-03_JPRB/)  
+KBO( :, 4,45, 7) = (/&
+ & 1.7714E-04_JPRB,1.2254E-03_JPRB,1.7161E-03_JPRB,2.0103E-03_JPRB,1.7807E-03_JPRB/)  
+KBO( :, 5,45, 7) = (/&
+ & 2.4615E-04_JPRB,1.4185E-03_JPRB,1.8836E-03_JPRB,2.1255E-03_JPRB,1.7676E-03_JPRB/)  
+KBO( :, 1,46, 7) = (/&
+ & 3.9608E-05_JPRB,6.8065E-04_JPRB,1.0869E-03_JPRB,1.3989E-03_JPRB,1.4780E-03_JPRB/)  
+KBO( :, 2,46, 7) = (/&
+ & 6.1254E-05_JPRB,7.6359E-04_JPRB,1.1780E-03_JPRB,1.4742E-03_JPRB,1.4788E-03_JPRB/)  
+KBO( :, 3,46, 7) = (/&
+ & 9.1434E-05_JPRB,8.6131E-04_JPRB,1.2786E-03_JPRB,1.5561E-03_JPRB,1.4768E-03_JPRB/)  
+KBO( :, 4,46, 7) = (/&
+ & 1.3231E-04_JPRB,9.8314E-04_JPRB,1.3925E-03_JPRB,1.6437E-03_JPRB,1.4719E-03_JPRB/)  
+KBO( :, 5,46, 7) = (/&
+ & 1.8599E-04_JPRB,1.1411E-03_JPRB,1.5309E-03_JPRB,1.7412E-03_JPRB,1.4636E-03_JPRB/)  
+KBO( :, 1,47, 7) = (/&
+ & 2.7565E-05_JPRB,5.4081E-04_JPRB,8.7346E-04_JPRB,1.1337E-03_JPRB,1.2145E-03_JPRB/)  
+KBO( :, 2,47, 7) = (/&
+ & 4.3444E-05_JPRB,6.0782E-04_JPRB,9.4864E-04_JPRB,1.1966E-03_JPRB,1.2173E-03_JPRB/)  
+KBO( :, 3,47, 7) = (/&
+ & 6.5911E-05_JPRB,6.8599E-04_JPRB,1.0313E-03_JPRB,1.2655E-03_JPRB,1.2177E-03_JPRB/)  
+KBO( :, 4,47, 7) = (/&
+ & 9.6767E-05_JPRB,7.8305E-04_JPRB,1.1246E-03_JPRB,1.3397E-03_JPRB,1.2159E-03_JPRB/)  
+KBO( :, 5,47, 7) = (/&
+ & 1.3786E-04_JPRB,9.1017E-04_JPRB,1.2371E-03_JPRB,1.4212E-03_JPRB,1.2107E-03_JPRB/)  
+KBO( :, 1,48, 7) = (/&
+ & 1.9010E-05_JPRB,4.2934E-04_JPRB,7.0139E-04_JPRB,9.1842E-04_JPRB,9.9781E-04_JPRB/)  
+KBO( :, 2,48, 7) = (/&
+ & 3.0547E-05_JPRB,4.8321E-04_JPRB,7.6298E-04_JPRB,9.7015E-04_JPRB,1.0019E-03_JPRB/)  
+KBO( :, 3,48, 7) = (/&
+ & 4.7172E-05_JPRB,5.4566E-04_JPRB,8.3089E-04_JPRB,1.0280E-03_JPRB,1.0041E-03_JPRB/)  
+KBO( :, 4,48, 7) = (/&
+ & 7.0312E-05_JPRB,6.2270E-04_JPRB,9.0704E-04_JPRB,1.0904E-03_JPRB,1.0043E-03_JPRB/)  
+KBO( :, 5,48, 7) = (/&
+ & 1.0158E-04_JPRB,7.2457E-04_JPRB,9.9839E-04_JPRB,1.1584E-03_JPRB,1.0014E-03_JPRB/)  
+KBO( :, 1,49, 7) = (/&
+ & 1.2989E-05_JPRB,3.4041E-04_JPRB,5.6254E-04_JPRB,7.4336E-04_JPRB,8.1967E-04_JPRB/)  
+KBO( :, 2,49, 7) = (/&
+ & 2.1288E-05_JPRB,3.8375E-04_JPRB,6.1286E-04_JPRB,7.8566E-04_JPRB,8.2462E-04_JPRB/)  
+KBO( :, 3,49, 7) = (/&
+ & 3.3501E-05_JPRB,4.3371E-04_JPRB,6.6869E-04_JPRB,8.3391E-04_JPRB,8.2791E-04_JPRB/)  
+KBO( :, 4,49, 7) = (/&
+ & 5.0757E-05_JPRB,4.9477E-04_JPRB,7.3099E-04_JPRB,8.8650E-04_JPRB,8.2973E-04_JPRB/)  
+KBO( :, 5,49, 7) = (/&
+ & 7.4391E-05_JPRB,5.7603E-04_JPRB,8.0512E-04_JPRB,9.4378E-04_JPRB,8.2902E-04_JPRB/)  
+KBO( :, 1,50, 7) = (/&
+ & 8.9107E-06_JPRB,2.7028E-04_JPRB,4.5165E-04_JPRB,6.0203E-04_JPRB,6.7224E-04_JPRB/)  
+KBO( :, 2,50, 7) = (/&
+ & 1.4889E-05_JPRB,3.0526E-04_JPRB,4.9281E-04_JPRB,6.3656E-04_JPRB,6.7754E-04_JPRB/)  
+KBO( :, 3,50, 7) = (/&
+ & 2.3877E-05_JPRB,3.4554E-04_JPRB,5.3891E-04_JPRB,6.7691E-04_JPRB,6.8139E-04_JPRB/)  
+KBO( :, 4,50, 7) = (/&
+ & 3.6771E-05_JPRB,3.9444E-04_JPRB,5.9020E-04_JPRB,7.2140E-04_JPRB,6.8414E-04_JPRB/)  
+KBO( :, 5,50, 7) = (/&
+ & 5.4655E-05_JPRB,4.5942E-04_JPRB,6.5054E-04_JPRB,7.6968E-04_JPRB,6.8480E-04_JPRB/)  
+KBO( :, 1,51, 7) = (/&
+ & 6.0961E-06_JPRB,2.1476E-04_JPRB,3.6280E-04_JPRB,4.8765E-04_JPRB,5.5078E-04_JPRB/)  
+KBO( :, 2,51, 7) = (/&
+ & 1.0381E-05_JPRB,2.4307E-04_JPRB,3.9642E-04_JPRB,5.1588E-04_JPRB,5.5623E-04_JPRB/)  
+KBO( :, 3,51, 7) = (/&
+ & 1.6982E-05_JPRB,2.7555E-04_JPRB,4.3451E-04_JPRB,5.4955E-04_JPRB,5.6027E-04_JPRB/)  
+KBO( :, 4,51, 7) = (/&
+ & 2.6587E-05_JPRB,3.1466E-04_JPRB,4.7661E-04_JPRB,5.8697E-04_JPRB,5.6337E-04_JPRB/)  
+KBO( :, 5,51, 7) = (/&
+ & 4.0101E-05_JPRB,3.6650E-04_JPRB,5.2570E-04_JPRB,6.2745E-04_JPRB,5.6478E-04_JPRB/)  
+KBO( :, 1,52, 7) = (/&
+ & 4.1353E-06_JPRB,1.7061E-04_JPRB,2.9145E-04_JPRB,3.9501E-04_JPRB,4.5130E-04_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART22',1,ZHOOK_HANDLE)
+END SUBROUTINE PART22
+
+
+SUBROUTINE PART23
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART23',0,ZHOOK_HANDLE)
+
+
+KBO( :, 2,52, 7) = (/&
+ & 7.1818E-06_JPRB,1.9335E-04_JPRB,3.1863E-04_JPRB,4.1793E-04_JPRB,4.5663E-04_JPRB/)  
+KBO( :, 3,52, 7) = (/&
+ & 1.1989E-05_JPRB,2.1956E-04_JPRB,3.4994E-04_JPRB,4.4575E-04_JPRB,4.6074E-04_JPRB/)  
+KBO( :, 4,52, 7) = (/&
+ & 1.9102E-05_JPRB,2.5087E-04_JPRB,3.8455E-04_JPRB,4.7710E-04_JPRB,4.6395E-04_JPRB/)  
+KBO( :, 5,52, 7) = (/&
+ & 2.9266E-05_JPRB,2.9208E-04_JPRB,4.2456E-04_JPRB,5.1110E-04_JPRB,4.6590E-04_JPRB/)  
+KBO( :, 1,53, 7) = (/&
+ & 2.7771E-06_JPRB,1.3543E-04_JPRB,2.3402E-04_JPRB,3.1978E-04_JPRB,3.6971E-04_JPRB/)  
+KBO( :, 2,53, 7) = (/&
+ & 4.9256E-06_JPRB,1.5363E-04_JPRB,2.5583E-04_JPRB,3.3830E-04_JPRB,3.7486E-04_JPRB/)  
+KBO( :, 3,53, 7) = (/&
+ & 8.3927E-06_JPRB,1.7477E-04_JPRB,2.8146E-04_JPRB,3.6113E-04_JPRB,3.7892E-04_JPRB/)  
+KBO( :, 4,53, 7) = (/&
+ & 1.3629E-05_JPRB,1.9978E-04_JPRB,3.0996E-04_JPRB,3.8736E-04_JPRB,3.8222E-04_JPRB/)  
+KBO( :, 5,53, 7) = (/&
+ & 2.1224E-05_JPRB,2.3248E-04_JPRB,3.4254E-04_JPRB,4.1583E-04_JPRB,3.8453E-04_JPRB/)  
+KBO( :, 1,54, 7) = (/&
+ & 1.8811E-06_JPRB,1.0783E-04_JPRB,1.8829E-04_JPRB,2.5915E-04_JPRB,3.0210E-04_JPRB/)  
+KBO( :, 2,54, 7) = (/&
+ & 3.4084E-06_JPRB,1.2242E-04_JPRB,2.0578E-04_JPRB,2.7417E-04_JPRB,3.0673E-04_JPRB/)  
+KBO( :, 3,54, 7) = (/&
+ & 5.9212E-06_JPRB,1.3950E-04_JPRB,2.2680E-04_JPRB,2.9292E-04_JPRB,3.1041E-04_JPRB/)  
+KBO( :, 4,54, 7) = (/&
+ & 9.7966E-06_JPRB,1.5966E-04_JPRB,2.5030E-04_JPRB,3.1483E-04_JPRB,3.1342E-04_JPRB/)  
+KBO( :, 5,54, 7) = (/&
+ & 1.5501E-05_JPRB,1.8577E-04_JPRB,2.7693E-04_JPRB,3.3870E-04_JPRB,3.1563E-04_JPRB/)  
+KBO( :, 1,55, 7) = (/&
+ & 1.2736E-06_JPRB,8.5960E-05_JPRB,1.5164E-04_JPRB,2.1009E-04_JPRB,2.4656E-04_JPRB/)  
+KBO( :, 2,55, 7) = (/&
+ & 2.3598E-06_JPRB,9.7655E-05_JPRB,1.6564E-04_JPRB,2.2229E-04_JPRB,2.5059E-04_JPRB/)  
+KBO( :, 3,55, 7) = (/&
+ & 4.1776E-06_JPRB,1.1145E-04_JPRB,1.8284E-04_JPRB,2.3762E-04_JPRB,2.5377E-04_JPRB/)  
+KBO( :, 4,55, 7) = (/&
+ & 7.0441E-06_JPRB,1.2773E-04_JPRB,2.0219E-04_JPRB,2.5588E-04_JPRB,2.5634E-04_JPRB/)  
+KBO( :, 5,55, 7) = (/&
+ & 1.1323E-05_JPRB,1.4864E-04_JPRB,2.2410E-04_JPRB,2.7593E-04_JPRB,2.5827E-04_JPRB/)  
+KBO( :, 1,56, 7) = (/&
+ & 8.5479E-07_JPRB,6.8495E-05_JPRB,1.2209E-04_JPRB,1.7021E-04_JPRB,2.0114E-04_JPRB/)  
+KBO( :, 2,56, 7) = (/&
+ & 1.6225E-06_JPRB,7.7817E-05_JPRB,1.3325E-04_JPRB,1.8015E-04_JPRB,2.0463E-04_JPRB/)  
+KBO( :, 3,56, 7) = (/&
+ & 2.9270E-06_JPRB,8.8970E-05_JPRB,1.4725E-04_JPRB,1.9262E-04_JPRB,2.0743E-04_JPRB/)  
+KBO( :, 4,56, 7) = (/&
+ & 5.0340E-06_JPRB,1.0210E-04_JPRB,1.6318E-04_JPRB,2.0779E-04_JPRB,2.0965E-04_JPRB/)  
+KBO( :, 5,56, 7) = (/&
+ & 8.2279E-06_JPRB,1.1881E-04_JPRB,1.8117E-04_JPRB,2.2455E-04_JPRB,2.1130E-04_JPRB/)  
+KBO( :, 1,57, 7) = (/&
+ & 5.6832E-07_JPRB,5.4568E-05_JPRB,9.8248E-05_JPRB,1.3779E-04_JPRB,1.6394E-04_JPRB/)  
+KBO( :, 2,57, 7) = (/&
+ & 1.1069E-06_JPRB,6.1982E-05_JPRB,1.0712E-04_JPRB,1.4596E-04_JPRB,1.6709E-04_JPRB/)  
+KBO( :, 3,57, 7) = (/&
+ & 2.0353E-06_JPRB,7.0945E-05_JPRB,1.1847E-04_JPRB,1.5604E-04_JPRB,1.6951E-04_JPRB/)  
+KBO( :, 4,57, 7) = (/&
+ & 3.5732E-06_JPRB,8.1530E-05_JPRB,1.3155E-04_JPRB,1.6855E-04_JPRB,1.7142E-04_JPRB/)  
+KBO( :, 5,57, 7) = (/&
+ & 5.9454E-06_JPRB,9.4896E-05_JPRB,1.4631E-04_JPRB,1.8257E-04_JPRB,1.7286E-04_JPRB/)  
+KBO( :, 1,58, 7) = (/&
+ & 3.7890E-07_JPRB,4.3568E-05_JPRB,7.9163E-05_JPRB,1.1161E-04_JPRB,1.3361E-04_JPRB/)  
+KBO( :, 2,58, 7) = (/&
+ & 7.5700E-07_JPRB,4.9431E-05_JPRB,8.6199E-05_JPRB,1.1831E-04_JPRB,1.3638E-04_JPRB/)  
+KBO( :, 3,58, 7) = (/&
+ & 1.4190E-06_JPRB,5.6651E-05_JPRB,9.5379E-05_JPRB,1.2647E-04_JPRB,1.3843E-04_JPRB/)  
+KBO( :, 4,58, 7) = (/&
+ & 2.5422E-06_JPRB,6.5215E-05_JPRB,1.0612E-04_JPRB,1.3677E-04_JPRB,1.4007E-04_JPRB/)  
+KBO( :, 5,58, 7) = (/&
+ & 4.3056E-06_JPRB,7.5939E-05_JPRB,1.1825E-04_JPRB,1.4847E-04_JPRB,1.4132E-04_JPRB/)  
+KBO( :, 1,59, 7) = (/&
+ & 2.8711E-07_JPRB,3.5512E-05_JPRB,6.4676E-05_JPRB,9.1313E-05_JPRB,1.0905E-04_JPRB/)  
+KBO( :, 2,59, 7) = (/&
+ & 5.8051E-07_JPRB,4.0372E-05_JPRB,7.0558E-05_JPRB,9.6940E-05_JPRB,1.1137E-04_JPRB/)  
+KBO( :, 3,59, 7) = (/&
+ & 1.1009E-06_JPRB,4.6368E-05_JPRB,7.8242E-05_JPRB,1.0385E-04_JPRB,1.1298E-04_JPRB/)  
+KBO( :, 4,59, 7) = (/&
+ & 1.9927E-06_JPRB,5.3528E-05_JPRB,8.7247E-05_JPRB,1.1259E-04_JPRB,1.1418E-04_JPRB/)  
+KBO( :, 5,59, 7) = (/&
+ & 3.4060E-06_JPRB,6.2579E-05_JPRB,9.7497E-05_JPRB,1.2251E-04_JPRB,1.1509E-04_JPRB/)  
+KBO( :, 1,13, 8) = (/&
+ & 2.3970E-02_JPRB,3.0710E-01_JPRB,5.4364E-01_JPRB,7.5219E-01_JPRB,9.5462E-01_JPRB/)  
+KBO( :, 2,13, 8) = (/&
+ & 3.5910E-02_JPRB,3.2191E-01_JPRB,5.5986E-01_JPRB,7.6221E-01_JPRB,9.4753E-01_JPRB/)  
+KBO( :, 3,13, 8) = (/&
+ & 5.1314E-02_JPRB,3.3704E-01_JPRB,5.7518E-01_JPRB,7.7250E-01_JPRB,9.3944E-01_JPRB/)  
+KBO( :, 4,13, 8) = (/&
+ & 7.0544E-02_JPRB,3.5215E-01_JPRB,5.8965E-01_JPRB,7.8209E-01_JPRB,9.3187E-01_JPRB/)  
+KBO( :, 5,13, 8) = (/&
+ & 9.4072E-02_JPRB,3.6813E-01_JPRB,6.0322E-01_JPRB,7.9095E-01_JPRB,9.2652E-01_JPRB/)  
+KBO( :, 1,14, 8) = (/&
+ & 2.1394E-02_JPRB,2.9767E-01_JPRB,5.2636E-01_JPRB,7.2588E-01_JPRB,9.1476E-01_JPRB/)  
+KBO( :, 2,14, 8) = (/&
+ & 3.2006E-02_JPRB,3.1221E-01_JPRB,5.4240E-01_JPRB,7.3771E-01_JPRB,9.0915E-01_JPRB/)  
+KBO( :, 3,14, 8) = (/&
+ & 4.5714E-02_JPRB,3.2744E-01_JPRB,5.5760E-01_JPRB,7.4911E-01_JPRB,9.0264E-01_JPRB/)  
+KBO( :, 4,14, 8) = (/&
+ & 6.3005E-02_JPRB,3.4291E-01_JPRB,5.7202E-01_JPRB,7.5985E-01_JPRB,8.9702E-01_JPRB/)  
+KBO( :, 5,14, 8) = (/&
+ & 8.4224E-02_JPRB,3.5938E-01_JPRB,5.8648E-01_JPRB,7.6955E-01_JPRB,8.9207E-01_JPRB/)  
+KBO( :, 1,15, 8) = (/&
+ & 1.9200E-02_JPRB,2.8555E-01_JPRB,5.0447E-01_JPRB,6.9471E-01_JPRB,8.6829E-01_JPRB/)  
+KBO( :, 2,15, 8) = (/&
+ & 2.8674E-02_JPRB,2.9984E-01_JPRB,5.2000E-01_JPRB,7.0783E-01_JPRB,8.6420E-01_JPRB/)  
+KBO( :, 3,15, 8) = (/&
+ & 4.1036E-02_JPRB,3.1465E-01_JPRB,5.3501E-01_JPRB,7.2026E-01_JPRB,8.6024E-01_JPRB/)  
+KBO( :, 4,15, 8) = (/&
+ & 5.6691E-02_JPRB,3.3028E-01_JPRB,5.4991E-01_JPRB,7.3143E-01_JPRB,8.5592E-01_JPRB/)  
+KBO( :, 5,15, 8) = (/&
+ & 7.5884E-02_JPRB,3.4766E-01_JPRB,5.6508E-01_JPRB,7.4152E-01_JPRB,8.5184E-01_JPRB/)  
+KBO( :, 1,16, 8) = (/&
+ & 1.7280E-02_JPRB,2.7106E-01_JPRB,4.7797E-01_JPRB,6.5828E-01_JPRB,8.1566E-01_JPRB/)  
+KBO( :, 2,16, 8) = (/&
+ & 2.5826E-02_JPRB,2.8505E-01_JPRB,4.9327E-01_JPRB,6.7219E-01_JPRB,8.1411E-01_JPRB/)  
+KBO( :, 3,16, 8) = (/&
+ & 3.7038E-02_JPRB,2.9951E-01_JPRB,5.0847E-01_JPRB,6.8487E-01_JPRB,8.1174E-01_JPRB/)  
+KBO( :, 4,16, 8) = (/&
+ & 5.1196E-02_JPRB,3.1526E-01_JPRB,5.2352E-01_JPRB,6.9628E-01_JPRB,8.0904E-01_JPRB/)  
+KBO( :, 5,16, 8) = (/&
+ & 6.8473E-02_JPRB,3.3321E-01_JPRB,5.3879E-01_JPRB,7.0679E-01_JPRB,8.0649E-01_JPRB/)  
+KBO( :, 1,17, 8) = (/&
+ & 1.5538E-02_JPRB,2.5421E-01_JPRB,4.4772E-01_JPRB,6.1710E-01_JPRB,7.5839E-01_JPRB/)  
+KBO( :, 2,17, 8) = (/&
+ & 2.3272E-02_JPRB,2.6785E-01_JPRB,4.6279E-01_JPRB,6.3082E-01_JPRB,7.5816E-01_JPRB/)  
+KBO( :, 3,17, 8) = (/&
+ & 3.3383E-02_JPRB,2.8231E-01_JPRB,4.7772E-01_JPRB,6.4345E-01_JPRB,7.5757E-01_JPRB/)  
+KBO( :, 4,17, 8) = (/&
+ & 4.6070E-02_JPRB,2.9815E-01_JPRB,4.9276E-01_JPRB,6.5511E-01_JPRB,7.5658E-01_JPRB/)  
+KBO( :, 5,17, 8) = (/&
+ & 6.1414E-02_JPRB,3.1621E-01_JPRB,5.0851E-01_JPRB,6.6619E-01_JPRB,7.5588E-01_JPRB/)  
+KBO( :, 1,18, 8) = (/&
+ & 1.3967E-02_JPRB,2.3577E-01_JPRB,4.1440E-01_JPRB,5.7110E-01_JPRB,6.9644E-01_JPRB/)  
+KBO( :, 2,18, 8) = (/&
+ & 2.0919E-02_JPRB,2.4897E-01_JPRB,4.2906E-01_JPRB,5.8444E-01_JPRB,6.9784E-01_JPRB/)  
+KBO( :, 3,18, 8) = (/&
+ & 2.9927E-02_JPRB,2.6320E-01_JPRB,4.4386E-01_JPRB,5.9706E-01_JPRB,6.9881E-01_JPRB/)  
+KBO( :, 4,18, 8) = (/&
+ & 4.1175E-02_JPRB,2.7935E-01_JPRB,4.5908E-01_JPRB,6.0918E-01_JPRB,6.9970E-01_JPRB/)  
+KBO( :, 5,18, 8) = (/&
+ & 5.4768E-02_JPRB,2.9730E-01_JPRB,4.7517E-01_JPRB,6.2117E-01_JPRB,7.0068E-01_JPRB/)  
+KBO( :, 1,19, 8) = (/&
+ & 1.2535E-02_JPRB,2.1612E-01_JPRB,3.7880E-01_JPRB,5.2193E-01_JPRB,6.3226E-01_JPRB/)  
+KBO( :, 2,19, 8) = (/&
+ & 1.8709E-02_JPRB,2.2885E-01_JPRB,3.9316E-01_JPRB,5.3486E-01_JPRB,6.3494E-01_JPRB/)  
+KBO( :, 3,19, 8) = (/&
+ & 2.6683E-02_JPRB,2.4307E-01_JPRB,4.0782E-01_JPRB,5.4746E-01_JPRB,6.3735E-01_JPRB/)  
+KBO( :, 4,19, 8) = (/&
+ & 3.6602E-02_JPRB,2.5923E-01_JPRB,4.2323E-01_JPRB,5.6013E-01_JPRB,6.4003E-01_JPRB/)  
+KBO( :, 5,19, 8) = (/&
+ & 4.8595E-02_JPRB,2.7710E-01_JPRB,4.3996E-01_JPRB,5.7286E-01_JPRB,6.4337E-01_JPRB/)  
+KBO( :, 1,20, 8) = (/&
+ & 1.1287E-02_JPRB,1.9616E-01_JPRB,3.4278E-01_JPRB,4.7146E-01_JPRB,5.6767E-01_JPRB/)  
+KBO( :, 2,20, 8) = (/&
+ & 1.6764E-02_JPRB,2.0859E-01_JPRB,3.5655E-01_JPRB,4.8417E-01_JPRB,5.7171E-01_JPRB/)  
+KBO( :, 3,20, 8) = (/&
+ & 2.3811E-02_JPRB,2.2281E-01_JPRB,3.7110E-01_JPRB,4.9713E-01_JPRB,5.7584E-01_JPRB/)  
+KBO( :, 4,20, 8) = (/&
+ & 3.2552E-02_JPRB,2.3876E-01_JPRB,3.8677E-01_JPRB,5.1039E-01_JPRB,5.8077E-01_JPRB/)  
+KBO( :, 5,20, 8) = (/&
+ & 4.3159E-02_JPRB,2.5646E-01_JPRB,4.0398E-01_JPRB,5.2418E-01_JPRB,5.8653E-01_JPRB/)  
+KBO( :, 1,21, 8) = (/&
+ & 1.0123E-02_JPRB,1.7642E-01_JPRB,3.0702E-01_JPRB,4.2164E-01_JPRB,5.0497E-01_JPRB/)  
+KBO( :, 2,21, 8) = (/&
+ & 1.4960E-02_JPRB,1.8865E-01_JPRB,3.2047E-01_JPRB,4.3442E-01_JPRB,5.1019E-01_JPRB/)  
+KBO( :, 3,21, 8) = (/&
+ & 2.1152E-02_JPRB,2.0268E-01_JPRB,3.3499E-01_JPRB,4.4767E-01_JPRB,5.1630E-01_JPRB/)  
+KBO( :, 4,21, 8) = (/&
+ & 2.8843E-02_JPRB,2.1843E-01_JPRB,3.5106E-01_JPRB,4.6165E-01_JPRB,5.2357E-01_JPRB/)  
+KBO( :, 5,21, 8) = (/&
+ & 3.8204E-02_JPRB,2.3577E-01_JPRB,3.6853E-01_JPRB,4.7644E-01_JPRB,5.3124E-01_JPRB/)  
+KBO( :, 1,22, 8) = (/&
+ & 9.2874E-03_JPRB,1.5831E-01_JPRB,2.7358E-01_JPRB,3.7468E-01_JPRB,4.4590E-01_JPRB/)  
+KBO( :, 2,22, 8) = (/&
+ & 1.3605E-02_JPRB,1.7047E-01_JPRB,2.8679E-01_JPRB,3.8765E-01_JPRB,4.5286E-01_JPRB/)  
+KBO( :, 3,22, 8) = (/&
+ & 1.9114E-02_JPRB,1.8434E-01_JPRB,3.0159E-01_JPRB,4.0144E-01_JPRB,4.6097E-01_JPRB/)  
+KBO( :, 4,22, 8) = (/&
+ & 2.5961E-02_JPRB,1.9982E-01_JPRB,3.1798E-01_JPRB,4.1606E-01_JPRB,4.6951E-01_JPRB/)  
+KBO( :, 5,22, 8) = (/&
+ & 3.4349E-02_JPRB,2.1668E-01_JPRB,3.3570E-01_JPRB,4.3114E-01_JPRB,4.7729E-01_JPRB/)  
+KBO( :, 1,23, 8) = (/&
+ & 8.4921E-03_JPRB,1.4152E-01_JPRB,2.4231E-01_JPRB,3.3110E-01_JPRB,3.9186E-01_JPRB/)  
+KBO( :, 2,23, 8) = (/&
+ & 1.2342E-02_JPRB,1.5348E-01_JPRB,2.5569E-01_JPRB,3.4426E-01_JPRB,4.0022E-01_JPRB/)  
+KBO( :, 3,23, 8) = (/&
+ & 1.7244E-02_JPRB,1.6712E-01_JPRB,2.7061E-01_JPRB,3.5816E-01_JPRB,4.0905E-01_JPRB/)  
+KBO( :, 4,23, 8) = (/&
+ & 2.3366E-02_JPRB,1.8219E-01_JPRB,2.8684E-01_JPRB,3.7242E-01_JPRB,4.1729E-01_JPRB/)  
+KBO( :, 5,23, 8) = (/&
+ & 3.0906E-02_JPRB,1.9826E-01_JPRB,3.0394E-01_JPRB,3.8658E-01_JPRB,4.2349E-01_JPRB/)  
+KBO( :, 1,24, 8) = (/&
+ & 7.7535E-03_JPRB,1.2629E-01_JPRB,2.1405E-01_JPRB,2.9135E-01_JPRB,3.4301E-01_JPRB/)  
+KBO( :, 2,24, 8) = (/&
+ & 1.1183E-02_JPRB,1.3800E-01_JPRB,2.2733E-01_JPRB,3.0427E-01_JPRB,3.5176E-01_JPRB/)  
+KBO( :, 3,24, 8) = (/&
+ & 1.5576E-02_JPRB,1.5118E-01_JPRB,2.4185E-01_JPRB,3.1749E-01_JPRB,3.6002E-01_JPRB/)  
+KBO( :, 4,24, 8) = (/&
+ & 2.1087E-02_JPRB,1.6543E-01_JPRB,2.5728E-01_JPRB,3.3050E-01_JPRB,3.6605E-01_JPRB/)  
+KBO( :, 5,24, 8) = (/&
+ & 2.7862E-02_JPRB,1.8042E-01_JPRB,2.7311E-01_JPRB,3.4269E-01_JPRB,3.6924E-01_JPRB/)  
+KBO( :, 1,25, 8) = (/&
+ & 7.0742E-03_JPRB,1.1262E-01_JPRB,1.8871E-01_JPRB,2.5540E-01_JPRB,2.9903E-01_JPRB/)  
+KBO( :, 2,25, 8) = (/&
+ & 1.0155E-02_JPRB,1.2387E-01_JPRB,2.0149E-01_JPRB,2.6744E-01_JPRB,3.0694E-01_JPRB/)  
+KBO( :, 3,25, 8) = (/&
+ & 1.4119E-02_JPRB,1.3621E-01_JPRB,2.1507E-01_JPRB,2.7908E-01_JPRB,3.1279E-01_JPRB/)  
+KBO( :, 4,25, 8) = (/&
+ & 1.9079E-02_JPRB,1.4928E-01_JPRB,2.2897E-01_JPRB,2.8986E-01_JPRB,3.1583E-01_JPRB/)  
+KBO( :, 5,25, 8) = (/&
+ & 2.5164E-02_JPRB,1.6305E-01_JPRB,2.4282E-01_JPRB,2.9961E-01_JPRB,3.1616E-01_JPRB/)  
+KBO( :, 1,26, 8) = (/&
+ & 6.4819E-03_JPRB,1.0046E-01_JPRB,1.6616E-01_JPRB,2.2296E-01_JPRB,2.5906E-01_JPRB/)  
+KBO( :, 2,26, 8) = (/&
+ & 9.2746E-03_JPRB,1.1094E-01_JPRB,1.7789E-01_JPRB,2.3321E-01_JPRB,2.6463E-01_JPRB/)  
+KBO( :, 3,26, 8) = (/&
+ & 1.2860E-02_JPRB,1.2211E-01_JPRB,1.8982E-01_JPRB,2.4261E-01_JPRB,2.6762E-01_JPRB/)  
+KBO( :, 4,26, 8) = (/&
+ & 1.7340E-02_JPRB,1.3390E-01_JPRB,2.0176E-01_JPRB,2.5109E-01_JPRB,2.6820E-01_JPRB/)  
+KBO( :, 5,26, 8) = (/&
+ & 2.2797E-02_JPRB,1.4641E-01_JPRB,2.1346E-01_JPRB,2.5871E-01_JPRB,2.6701E-01_JPRB/)  
+KBO( :, 1,27, 8) = (/&
+ & 5.9496E-03_JPRB,8.9354E-02_JPRB,1.4559E-01_JPRB,1.9301E-01_JPRB,2.2196E-01_JPRB/)  
+KBO( :, 2,27, 8) = (/&
+ & 8.4823E-03_JPRB,9.8713E-02_JPRB,1.5575E-01_JPRB,2.0121E-01_JPRB,2.2502E-01_JPRB/)  
+KBO( :, 3,27, 8) = (/&
+ & 1.1723E-02_JPRB,1.0860E-01_JPRB,1.6592E-01_JPRB,2.0857E-01_JPRB,2.2594E-01_JPRB/)  
+KBO( :, 4,27, 8) = (/&
+ & 1.5760E-02_JPRB,1.1910E-01_JPRB,1.7588E-01_JPRB,2.1528E-01_JPRB,2.2532E-01_JPRB/)  
+KBO( :, 5,27, 8) = (/&
+ & 2.0640E-02_JPRB,1.3042E-01_JPRB,1.8584E-01_JPRB,2.2158E-01_JPRB,2.2357E-01_JPRB/)  
+KBO( :, 1,28, 8) = (/&
+ & 5.4648E-03_JPRB,7.8954E-02_JPRB,1.2664E-01_JPRB,1.6556E-01_JPRB,1.8790E-01_JPRB/)  
+KBO( :, 2,28, 8) = (/&
+ & 7.7612E-03_JPRB,8.7134E-02_JPRB,1.3525E-01_JPRB,1.7197E-01_JPRB,1.8917E-01_JPRB/)  
+KBO( :, 3,28, 8) = (/&
+ & 1.0688E-02_JPRB,9.5816E-02_JPRB,1.4371E-01_JPRB,1.7791E-01_JPRB,1.8910E-01_JPRB/)  
+KBO( :, 4,28, 8) = (/&
+ & 1.4301E-02_JPRB,1.0515E-01_JPRB,1.5218E-01_JPRB,1.8352E-01_JPRB,1.8804E-01_JPRB/)  
+KBO( :, 5,28, 8) = (/&
+ & 1.8668E-02_JPRB,1.1540E-01_JPRB,1.6098E-01_JPRB,1.8889E-01_JPRB,1.8616E-01_JPRB/)  
+KBO( :, 1,29, 8) = (/&
+ & 5.0360E-03_JPRB,6.9325E-02_JPRB,1.0943E-01_JPRB,1.4091E-01_JPRB,1.5759E-01_JPRB/)  
+KBO( :, 2,29, 8) = (/&
+ & 7.1202E-03_JPRB,7.6426E-02_JPRB,1.1663E-01_JPRB,1.4615E-01_JPRB,1.5798E-01_JPRB/)  
+KBO( :, 3,29, 8) = (/&
+ & 9.7533E-03_JPRB,8.4055E-02_JPRB,1.2381E-01_JPRB,1.5115E-01_JPRB,1.5749E-01_JPRB/)  
+KBO( :, 4,29, 8) = (/&
+ & 1.2997E-02_JPRB,9.2463E-02_JPRB,1.3122E-01_JPRB,1.5595E-01_JPRB,1.5628E-01_JPRB/)  
+KBO( :, 5,29, 8) = (/&
+ & 1.6906E-02_JPRB,1.0185E-01_JPRB,1.3918E-01_JPRB,1.6061E-01_JPRB,1.5451E-01_JPRB/)  
+KBO( :, 1,30, 8) = (/&
+ & 4.6402E-03_JPRB,6.0489E-02_JPRB,9.4043E-02_JPRB,1.1942E-01_JPRB,1.3140E-01_JPRB/)  
+KBO( :, 2,30, 8) = (/&
+ & 6.5263E-03_JPRB,6.6689E-02_JPRB,1.0012E-01_JPRB,1.2384E-01_JPRB,1.3139E-01_JPRB/)  
+KBO( :, 3,30, 8) = (/&
+ & 8.8957E-03_JPRB,7.3511E-02_JPRB,1.0635E-01_JPRB,1.2814E-01_JPRB,1.3072E-01_JPRB/)  
+KBO( :, 4,30, 8) = (/&
+ & 1.1806E-02_JPRB,8.1191E-02_JPRB,1.1302E-01_JPRB,1.3230E-01_JPRB,1.2954E-01_JPRB/)  
+KBO( :, 5,30, 8) = (/&
+ & 1.5321E-02_JPRB,8.9861E-02_JPRB,1.2036E-01_JPRB,1.3654E-01_JPRB,1.2795E-01_JPRB/)  
+KBO( :, 1,31, 8) = (/&
+ & 4.2816E-03_JPRB,5.2594E-02_JPRB,8.0556E-02_JPRB,1.0100E-01_JPRB,1.0923E-01_JPRB/)  
+KBO( :, 2,31, 8) = (/&
+ & 5.9928E-03_JPRB,5.8093E-02_JPRB,8.5788E-02_JPRB,1.0484E-01_JPRB,1.0901E-01_JPRB/)  
+KBO( :, 3,31, 8) = (/&
+ & 8.1254E-03_JPRB,6.4313E-02_JPRB,9.1351E-02_JPRB,1.0855E-01_JPRB,1.0832E-01_JPRB/)  
+KBO( :, 4,31, 8) = (/&
+ & 1.0750E-02_JPRB,7.1406E-02_JPRB,9.7440E-02_JPRB,1.1230E-01_JPRB,1.0725E-01_JPRB/)  
+KBO( :, 5,31, 8) = (/&
+ & 1.3934E-02_JPRB,7.9435E-02_JPRB,1.0429E-01_JPRB,1.1627E-01_JPRB,1.0582E-01_JPRB/)  
+KBO( :, 1,32, 8) = (/&
+ & 3.9575E-03_JPRB,4.5682E-02_JPRB,6.8898E-02_JPRB,8.5411E-02_JPRB,9.0602E-02_JPRB/)  
+KBO( :, 2,32, 8) = (/&
+ & 5.5021E-03_JPRB,5.0658E-02_JPRB,7.3522E-02_JPRB,8.8727E-02_JPRB,9.0292E-02_JPRB/)  
+KBO( :, 3,32, 8) = (/&
+ & 7.4345E-03_JPRB,5.6386E-02_JPRB,7.8565E-02_JPRB,9.2013E-02_JPRB,8.9633E-02_JPRB/)  
+KBO( :, 4,32, 8) = (/&
+ & 9.8223E-03_JPRB,6.2960E-02_JPRB,8.4228E-02_JPRB,9.5465E-02_JPRB,8.8660E-02_JPRB/)  
+KBO( :, 5,32, 8) = (/&
+ & 1.2730E-02_JPRB,7.0429E-02_JPRB,9.0625E-02_JPRB,9.9233E-02_JPRB,8.7449E-02_JPRB/)  
+KBO( :, 1,33, 8) = (/&
+ & 3.6591E-03_JPRB,3.9715E-02_JPRB,5.8948E-02_JPRB,7.2241E-02_JPRB,7.5055E-02_JPRB/)  
+KBO( :, 2,33, 8) = (/&
+ & 5.0639E-03_JPRB,4.4286E-02_JPRB,6.3097E-02_JPRB,7.5129E-02_JPRB,7.4722E-02_JPRB/)  
+KBO( :, 3,33, 8) = (/&
+ & 6.8217E-03_JPRB,4.9606E-02_JPRB,6.7743E-02_JPRB,7.8113E-02_JPRB,7.4121E-02_JPRB/)  
+KBO( :, 4,33, 8) = (/&
+ & 9.0010E-03_JPRB,5.5729E-02_JPRB,7.3038E-02_JPRB,8.1349E-02_JPRB,7.3284E-02_JPRB/)  
+KBO( :, 5,33, 8) = (/&
+ & 1.1693E-02_JPRB,6.2702E-02_JPRB,7.9022E-02_JPRB,8.4992E-02_JPRB,7.2286E-02_JPRB/)  
+KBO( :, 1,34, 8) = (/&
+ & 3.3424E-03_JPRB,3.4485E-02_JPRB,5.0364E-02_JPRB,6.1041E-02_JPRB,6.2108E-02_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART23',1,ZHOOK_HANDLE)
+END SUBROUTINE PART23
+
+
+SUBROUTINE PART24
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART24',0,ZHOOK_HANDLE)
+
+
+KBO( :, 2,34, 8) = (/&
+ & 4.6136E-03_JPRB,3.8708E-02_JPRB,5.4132E-02_JPRB,6.3612E-02_JPRB,6.1791E-02_JPRB/)  
+KBO( :, 3,34, 8) = (/&
+ & 6.2081E-03_JPRB,4.3641E-02_JPRB,5.8453E-02_JPRB,6.6369E-02_JPRB,6.1269E-02_JPRB/)  
+KBO( :, 4,34, 8) = (/&
+ & 8.2079E-03_JPRB,4.9328E-02_JPRB,6.3400E-02_JPRB,6.9443E-02_JPRB,6.0579E-02_JPRB/)  
+KBO( :, 5,34, 8) = (/&
+ & 1.0690E-02_JPRB,5.5879E-02_JPRB,6.9026E-02_JPRB,7.2976E-02_JPRB,5.9770E-02_JPRB/)  
+KBO( :, 1,35, 8) = (/&
+ & 2.9610E-03_JPRB,2.9708E-02_JPRB,4.2806E-02_JPRB,5.1414E-02_JPRB,5.1399E-02_JPRB/)  
+KBO( :, 2,35, 8) = (/&
+ & 4.0852E-03_JPRB,3.3563E-02_JPRB,4.6239E-02_JPRB,5.3734E-02_JPRB,5.1129E-02_JPRB/)  
+KBO( :, 3,35, 8) = (/&
+ & 5.5146E-03_JPRB,3.8090E-02_JPRB,5.0226E-02_JPRB,5.6294E-02_JPRB,5.0708E-02_JPRB/)  
+KBO( :, 4,35, 8) = (/&
+ & 7.3191E-03_JPRB,4.3348E-02_JPRB,5.4809E-02_JPRB,5.9220E-02_JPRB,5.0169E-02_JPRB/)  
+KBO( :, 5,35, 8) = (/&
+ & 9.5862E-03_JPRB,4.9447E-02_JPRB,6.0051E-02_JPRB,6.2576E-02_JPRB,4.9549E-02_JPRB/)  
+KBO( :, 1,36, 8) = (/&
+ & 2.5291E-03_JPRB,2.5317E-02_JPRB,3.6139E-02_JPRB,4.3139E-02_JPRB,4.2550E-02_JPRB/)  
+KBO( :, 2,36, 8) = (/&
+ & 3.5081E-03_JPRB,2.8787E-02_JPRB,3.9246E-02_JPRB,4.5245E-02_JPRB,4.2349E-02_JPRB/)  
+KBO( :, 3,36, 8) = (/&
+ & 4.7623E-03_JPRB,3.2880E-02_JPRB,4.2875E-02_JPRB,4.7610E-02_JPRB,4.2034E-02_JPRB/)  
+KBO( :, 4,36, 8) = (/&
+ & 6.3600E-03_JPRB,3.7684E-02_JPRB,4.7082E-02_JPRB,5.0344E-02_JPRB,4.1631E-02_JPRB/)  
+KBO( :, 5,36, 8) = (/&
+ & 8.3828E-03_JPRB,4.3328E-02_JPRB,5.1915E-02_JPRB,5.3486E-02_JPRB,4.1174E-02_JPRB/)  
+KBO( :, 1,37, 8) = (/&
+ & 2.0572E-03_JPRB,2.1190E-02_JPRB,3.0172E-02_JPRB,3.5966E-02_JPRB,3.5231E-02_JPRB/)  
+KBO( :, 2,37, 8) = (/&
+ & 2.8742E-03_JPRB,2.4234E-02_JPRB,3.2921E-02_JPRB,3.7847E-02_JPRB,3.5097E-02_JPRB/)  
+KBO( :, 3,37, 8) = (/&
+ & 3.9377E-03_JPRB,2.7856E-02_JPRB,3.6156E-02_JPRB,3.9991E-02_JPRB,3.4880E-02_JPRB/)  
+KBO( :, 4,37, 8) = (/&
+ & 5.3075E-03_JPRB,3.2157E-02_JPRB,3.9929E-02_JPRB,4.2485E-02_JPRB,3.4595E-02_JPRB/)  
+KBO( :, 5,37, 8) = (/&
+ & 7.0531E-03_JPRB,3.7266E-02_JPRB,4.4310E-02_JPRB,4.5361E-02_JPRB,3.4266E-02_JPRB/)  
+KBO( :, 1,38, 8) = (/&
+ & 1.6668E-03_JPRB,1.7718E-02_JPRB,2.5179E-02_JPRB,2.9976E-02_JPRB,2.9178E-02_JPRB/)  
+KBO( :, 2,38, 8) = (/&
+ & 2.3512E-03_JPRB,2.0388E-02_JPRB,2.7616E-02_JPRB,3.1654E-02_JPRB,2.9106E-02_JPRB/)  
+KBO( :, 3,38, 8) = (/&
+ & 3.2489E-03_JPRB,2.3599E-02_JPRB,3.0491E-02_JPRB,3.3589E-02_JPRB,2.8965E-02_JPRB/)  
+KBO( :, 4,38, 8) = (/&
+ & 4.4197E-03_JPRB,2.7448E-02_JPRB,3.3876E-02_JPRB,3.5861E-02_JPRB,2.8777E-02_JPRB/)  
+KBO( :, 5,38, 8) = (/&
+ & 5.9291E-03_JPRB,3.2085E-02_JPRB,3.7857E-02_JPRB,3.8499E-02_JPRB,2.8558E-02_JPRB/)  
+KBO( :, 1,39, 8) = (/&
+ & 1.3505E-03_JPRB,1.4824E-02_JPRB,2.1025E-02_JPRB,2.4988E-02_JPRB,2.4183E-02_JPRB/)  
+KBO( :, 2,39, 8) = (/&
+ & 1.9237E-03_JPRB,1.7169E-02_JPRB,2.3181E-02_JPRB,2.6485E-02_JPRB,2.4157E-02_JPRB/)  
+KBO( :, 3,39, 8) = (/&
+ & 2.6812E-03_JPRB,2.0015E-02_JPRB,2.5740E-02_JPRB,2.8232E-02_JPRB,2.4081E-02_JPRB/)  
+KBO( :, 4,39, 8) = (/&
+ & 3.6890E-03_JPRB,2.3470E-02_JPRB,2.8781E-02_JPRB,3.0301E-02_JPRB,2.3974E-02_JPRB/)  
+KBO( :, 5,39, 8) = (/&
+ & 4.9956E-03_JPRB,2.7688E-02_JPRB,3.2410E-02_JPRB,3.2726E-02_JPRB,2.3849E-02_JPRB/)  
+KBO( :, 1,40, 8) = (/&
+ & 1.0535E-03_JPRB,1.2217E-02_JPRB,1.7388E-02_JPRB,2.0709E-02_JPRB,2.0019E-02_JPRB/)  
+KBO( :, 2,40, 8) = (/&
+ & 1.5173E-03_JPRB,1.4233E-02_JPRB,1.9255E-02_JPRB,2.2025E-02_JPRB,2.0029E-02_JPRB/)  
+KBO( :, 3,40, 8) = (/&
+ & 2.1424E-03_JPRB,1.6709E-02_JPRB,2.1499E-02_JPRB,2.3574E-02_JPRB,2.0001E-02_JPRB/)  
+KBO( :, 4,40, 8) = (/&
+ & 2.9806E-03_JPRB,1.9754E-02_JPRB,2.4186E-02_JPRB,2.5425E-02_JPRB,1.9953E-02_JPRB/)  
+KBO( :, 5,40, 8) = (/&
+ & 4.0841E-03_JPRB,2.3521E-02_JPRB,2.7438E-02_JPRB,2.7615E-02_JPRB,1.9891E-02_JPRB/)  
+KBO( :, 1,41, 8) = (/&
+ & 8.1549E-04_JPRB,1.0039E-02_JPRB,1.4352E-02_JPRB,1.7141E-02_JPRB,1.6569E-02_JPRB/)  
+KBO( :, 2,41, 8) = (/&
+ & 1.1896E-03_JPRB,1.1765E-02_JPRB,1.5963E-02_JPRB,1.8295E-02_JPRB,1.6609E-02_JPRB/)  
+KBO( :, 3,41, 8) = (/&
+ & 1.7007E-03_JPRB,1.3910E-02_JPRB,1.7922E-02_JPRB,1.9664E-02_JPRB,1.6616E-02_JPRB/)  
+KBO( :, 4,41, 8) = (/&
+ & 2.3967E-03_JPRB,1.6587E-02_JPRB,2.0295E-02_JPRB,2.1313E-02_JPRB,1.6608E-02_JPRB/)  
+KBO( :, 5,41, 8) = (/&
+ & 3.3209E-03_JPRB,1.9941E-02_JPRB,2.3193E-02_JPRB,2.3279E-02_JPRB,1.6596E-02_JPRB/)  
+KBO( :, 1,42, 8) = (/&
+ & 6.2885E-04_JPRB,8.2389E-03_JPRB,1.1838E-02_JPRB,1.4182E-02_JPRB,1.3717E-02_JPRB/)  
+KBO( :, 2,42, 8) = (/&
+ & 9.3075E-04_JPRB,9.7147E-03_JPRB,1.3226E-02_JPRB,1.5189E-02_JPRB,1.3775E-02_JPRB/)  
+KBO( :, 3,42, 8) = (/&
+ & 1.3476E-03_JPRB,1.1572E-02_JPRB,1.4934E-02_JPRB,1.6397E-02_JPRB,1.3812E-02_JPRB/)  
+KBO( :, 4,42, 8) = (/&
+ & 1.9221E-03_JPRB,1.3921E-02_JPRB,1.7022E-02_JPRB,1.7862E-02_JPRB,1.3835E-02_JPRB/)  
+KBO( :, 5,42, 8) = (/&
+ & 2.6974E-03_JPRB,1.6905E-02_JPRB,1.9608E-02_JPRB,1.9625E-02_JPRB,1.3858E-02_JPRB/)  
+KBO( :, 1,43, 8) = (/&
+ & 4.7225E-04_JPRB,6.6911E-03_JPRB,9.6971E-03_JPRB,1.1682E-02_JPRB,1.1351E-02_JPRB/)  
+KBO( :, 2,43, 8) = (/&
+ & 7.0933E-04_JPRB,7.9348E-03_JPRB,1.0877E-02_JPRB,1.2551E-02_JPRB,1.1424E-02_JPRB/)  
+KBO( :, 3,43, 8) = (/&
+ & 1.0435E-03_JPRB,9.5155E-03_JPRB,1.2344E-02_JPRB,1.3602E-02_JPRB,1.1480E-02_JPRB/)  
+KBO( :, 4,43, 8) = (/&
+ & 1.5082E-03_JPRB,1.1547E-02_JPRB,1.4158E-02_JPRB,1.4886E-02_JPRB,1.1523E-02_JPRB/)  
+KBO( :, 5,43, 8) = (/&
+ & 2.1454E-03_JPRB,1.4163E-02_JPRB,1.6434E-02_JPRB,1.6450E-02_JPRB,1.1573E-02_JPRB/)  
+KBO( :, 1,44, 8) = (/&
+ & 3.4902E-04_JPRB,5.4014E-03_JPRB,7.9122E-03_JPRB,9.5973E-03_JPRB,9.3906E-03_JPRB/)  
+KBO( :, 2,44, 8) = (/&
+ & 5.3336E-04_JPRB,6.4385E-03_JPRB,8.9048E-03_JPRB,1.0341E-02_JPRB,9.4727E-03_JPRB/)  
+KBO( :, 3,44, 8) = (/&
+ & 7.9641E-04_JPRB,7.7741E-03_JPRB,1.0155E-02_JPRB,1.1247E-02_JPRB,9.5408E-03_JPRB/)  
+KBO( :, 4,44, 8) = (/&
+ & 1.1697E-03_JPRB,9.5107E-03_JPRB,1.1718E-02_JPRB,1.2366E-02_JPRB,9.5994E-03_JPRB/)  
+KBO( :, 5,44, 8) = (/&
+ & 1.6866E-03_JPRB,1.1782E-02_JPRB,1.3700E-02_JPRB,1.3737E-02_JPRB,9.6629E-03_JPRB/)  
+KBO( :, 1,45, 8) = (/&
+ & 2.5641E-04_JPRB,4.3524E-03_JPRB,6.4489E-03_JPRB,7.8776E-03_JPRB,7.7700E-03_JPRB/)  
+KBO( :, 2,45, 8) = (/&
+ & 3.9819E-04_JPRB,5.2131E-03_JPRB,7.2796E-03_JPRB,8.5115E-03_JPRB,7.8565E-03_JPRB/)  
+KBO( :, 3,45, 8) = (/&
+ & 6.0452E-04_JPRB,6.3356E-03_JPRB,8.3400E-03_JPRB,9.2883E-03_JPRB,7.9298E-03_JPRB/)  
+KBO( :, 4,45, 8) = (/&
+ & 9.0225E-04_JPRB,7.8148E-03_JPRB,9.6818E-03_JPRB,1.0257E-02_JPRB,7.9978E-03_JPRB/)  
+KBO( :, 5,45, 8) = (/&
+ & 1.3212E-03_JPRB,9.7779E-03_JPRB,1.1402E-02_JPRB,1.1457E-02_JPRB,8.0738E-03_JPRB/)  
+KBO( :, 1,46, 8) = (/&
+ & 1.8524E-04_JPRB,3.4864E-03_JPRB,5.2341E-03_JPRB,6.4466E-03_JPRB,6.4230E-03_JPRB/)  
+KBO( :, 2,46, 8) = (/&
+ & 2.9313E-04_JPRB,4.1931E-03_JPRB,5.9228E-03_JPRB,6.9831E-03_JPRB,6.5117E-03_JPRB/)  
+KBO( :, 3,46, 8) = (/&
+ & 4.5241E-04_JPRB,5.1271E-03_JPRB,6.8142E-03_JPRB,7.6439E-03_JPRB,6.5889E-03_JPRB/)  
+KBO( :, 4,46, 8) = (/&
+ & 6.8674E-04_JPRB,6.3729E-03_JPRB,7.9564E-03_JPRB,8.4768E-03_JPRB,6.6644E-03_JPRB/)  
+KBO( :, 5,46, 8) = (/&
+ & 1.0220E-03_JPRB,8.0538E-03_JPRB,9.4380E-03_JPRB,9.5193E-03_JPRB,6.7476E-03_JPRB/)  
+KBO( :, 1,47, 8) = (/&
+ & 1.3000E-04_JPRB,2.7663E-03_JPRB,4.2208E-03_JPRB,5.2521E-03_JPRB,5.3026E-03_JPRB/)  
+KBO( :, 2,47, 8) = (/&
+ & 2.1025E-04_JPRB,3.3363E-03_JPRB,4.7828E-03_JPRB,5.7020E-03_JPRB,5.3902E-03_JPRB/)  
+KBO( :, 3,47, 8) = (/&
+ & 3.3047E-04_JPRB,4.0995E-03_JPRB,5.5201E-03_JPRB,6.2559E-03_JPRB,5.4679E-03_JPRB/)  
+KBO( :, 4,47, 8) = (/&
+ & 5.1029E-04_JPRB,5.1296E-03_JPRB,6.4755E-03_JPRB,6.9601E-03_JPRB,5.5444E-03_JPRB/)  
+KBO( :, 5,47, 8) = (/&
+ & 7.7317E-04_JPRB,6.5403E-03_JPRB,7.7293E-03_JPRB,7.8503E-03_JPRB,5.6289E-03_JPRB/)  
+KBO( :, 1,48, 8) = (/&
+ & 9.0250E-05_JPRB,2.1914E-03_JPRB,3.3994E-03_JPRB,4.2738E-03_JPRB,4.3771E-03_JPRB/)  
+KBO( :, 2,48, 8) = (/&
+ & 1.4933E-04_JPRB,2.6470E-03_JPRB,3.8547E-03_JPRB,4.6490E-03_JPRB,4.4611E-03_JPRB/)  
+KBO( :, 3,48, 8) = (/&
+ & 2.3950E-04_JPRB,3.2661E-03_JPRB,4.4586E-03_JPRB,5.1091E-03_JPRB,4.5366E-03_JPRB/)  
+KBO( :, 4,48, 8) = (/&
+ & 3.7635E-04_JPRB,4.1116E-03_JPRB,5.2534E-03_JPRB,5.7004E-03_JPRB,4.6124E-03_JPRB/)  
+KBO( :, 5,48, 8) = (/&
+ & 5.8082E-04_JPRB,5.2884E-03_JPRB,6.3086E-03_JPRB,6.4573E-03_JPRB,4.6977E-03_JPRB/)  
+KBO( :, 1,49, 8) = (/&
+ & 6.1993E-05_JPRB,1.7331E-03_JPRB,2.7330E-03_JPRB,3.4719E-03_JPRB,3.6111E-03_JPRB/)  
+KBO( :, 2,49, 8) = (/&
+ & 1.0511E-04_JPRB,2.0938E-03_JPRB,3.1004E-03_JPRB,3.7836E-03_JPRB,3.6915E-03_JPRB/)  
+KBO( :, 3,49, 8) = (/&
+ & 1.7216E-04_JPRB,2.5932E-03_JPRB,3.5917E-03_JPRB,4.1650E-03_JPRB,3.7653E-03_JPRB/)  
+KBO( :, 4,49, 8) = (/&
+ & 2.7551E-04_JPRB,3.2829E-03_JPRB,4.2486E-03_JPRB,4.6580E-03_JPRB,3.8405E-03_JPRB/)  
+KBO( :, 5,49, 8) = (/&
+ & 4.3301E-04_JPRB,4.2570E-03_JPRB,5.1317E-03_JPRB,5.2985E-03_JPRB,3.9263E-03_JPRB/)  
+KBO( :, 1,50, 8) = (/&
+ & 4.2678E-05_JPRB,1.3745E-03_JPRB,2.2002E-03_JPRB,2.8212E-03_JPRB,2.9737E-03_JPRB/)  
+KBO( :, 2,50, 8) = (/&
+ & 7.4146E-05_JPRB,1.6605E-03_JPRB,2.4974E-03_JPRB,3.0815E-03_JPRB,3.0479E-03_JPRB/)  
+KBO( :, 3,50, 8) = (/&
+ & 1.2406E-04_JPRB,2.0639E-03_JPRB,2.8982E-03_JPRB,3.3988E-03_JPRB,3.1188E-03_JPRB/)  
+KBO( :, 4,50, 8) = (/&
+ & 2.0253E-04_JPRB,2.6282E-03_JPRB,3.4425E-03_JPRB,3.8116E-03_JPRB,3.1913E-03_JPRB/)  
+KBO( :, 5,50, 8) = (/&
+ & 3.2424E-04_JPRB,3.4369E-03_JPRB,4.1830E-03_JPRB,4.3547E-03_JPRB,3.2730E-03_JPRB/)  
+KBO( :, 1,51, 8) = (/&
+ & 2.9237E-05_JPRB,1.0909E-03_JPRB,1.7714E-03_JPRB,2.2917E-03_JPRB,2.4464E-03_JPRB/)  
+KBO( :, 2,51, 8) = (/&
+ & 5.2166E-05_JPRB,1.3176E-03_JPRB,2.0125E-03_JPRB,2.5102E-03_JPRB,2.5148E-03_JPRB/)  
+KBO( :, 3,51, 8) = (/&
+ & 8.9091E-05_JPRB,1.6426E-03_JPRB,2.3388E-03_JPRB,2.7738E-03_JPRB,2.5806E-03_JPRB/)  
+KBO( :, 4,51, 8) = (/&
+ & 1.4840E-04_JPRB,2.1028E-03_JPRB,2.7878E-03_JPRB,3.1176E-03_JPRB,2.6477E-03_JPRB/)  
+KBO( :, 5,51, 8) = (/&
+ & 2.4207E-04_JPRB,2.7714E-03_JPRB,3.4063E-03_JPRB,3.5762E-03_JPRB,2.7227E-03_JPRB/)  
+KBO( :, 1,52, 8) = (/&
+ & 1.9807E-05_JPRB,8.6538E-04_JPRB,1.4249E-03_JPRB,1.8595E-03_JPRB,2.0124E-03_JPRB/)  
+KBO( :, 2,52, 8) = (/&
+ & 3.6322E-05_JPRB,1.0438E-03_JPRB,1.6200E-03_JPRB,2.0422E-03_JPRB,2.0750E-03_JPRB/)  
+KBO( :, 3,52, 8) = (/&
+ & 6.3515E-05_JPRB,1.3037E-03_JPRB,1.8836E-03_JPRB,2.2603E-03_JPRB,2.1352E-03_JPRB/)  
+KBO( :, 4,52, 8) = (/&
+ & 1.0788E-04_JPRB,1.6767E-03_JPRB,2.2517E-03_JPRB,2.5448E-03_JPRB,2.1970E-03_JPRB/)  
+KBO( :, 5,52, 8) = (/&
+ & 1.7958E-04_JPRB,2.2260E-03_JPRB,2.7651E-03_JPRB,2.9295E-03_JPRB,2.2657E-03_JPRB/)  
+KBO( :, 1,53, 8) = (/&
+ & 1.3242E-05_JPRB,6.8573E-04_JPRB,1.1446E-03_JPRB,1.5067E-03_JPRB,1.6550E-03_JPRB/)  
+KBO( :, 2,53, 8) = (/&
+ & 2.5022E-05_JPRB,8.2535E-04_JPRB,1.3018E-03_JPRB,1.6587E-03_JPRB,1.7117E-03_JPRB/)  
+KBO( :, 3,53, 8) = (/&
+ & 4.4849E-05_JPRB,1.0313E-03_JPRB,1.5135E-03_JPRB,1.8385E-03_JPRB,1.7670E-03_JPRB/)  
+KBO( :, 4,53, 8) = (/&
+ & 7.7724E-05_JPRB,1.3321E-03_JPRB,1.8130E-03_JPRB,2.0729E-03_JPRB,1.8239E-03_JPRB/)  
+KBO( :, 5,53, 8) = (/&
+ & 1.3199E-04_JPRB,1.7794E-03_JPRB,2.2365E-03_JPRB,2.3931E-03_JPRB,1.8874E-03_JPRB/)  
+KBO( :, 1,54, 8) = (/&
+ & 8.9248E-06_JPRB,5.4556E-04_JPRB,9.2163E-04_JPRB,1.2225E-03_JPRB,1.3566E-03_JPRB/)  
+KBO( :, 2,54, 8) = (/&
+ & 1.7372E-05_JPRB,6.5581E-04_JPRB,1.0492E-03_JPRB,1.3494E-03_JPRB,1.4063E-03_JPRB/)  
+KBO( :, 3,54, 8) = (/&
+ & 3.1907E-05_JPRB,8.1979E-04_JPRB,1.2202E-03_JPRB,1.4983E-03_JPRB,1.4551E-03_JPRB/)  
+KBO( :, 4,54, 8) = (/&
+ & 5.6506E-05_JPRB,1.0634E-03_JPRB,1.4647E-03_JPRB,1.6922E-03_JPRB,1.5046E-03_JPRB/)  
+KBO( :, 5,54, 8) = (/&
+ & 9.7836E-05_JPRB,1.4301E-03_JPRB,1.8159E-03_JPRB,1.9597E-03_JPRB,1.5596E-03_JPRB/)  
+KBO( :, 1,55, 8) = (/&
+ & 6.0009E-06_JPRB,4.3459E-04_JPRB,7.4215E-04_JPRB,9.9172E-04_JPRB,1.1093E-03_JPRB/)  
+KBO( :, 2,55, 8) = (/&
+ & 1.2050E-05_JPRB,5.2184E-04_JPRB,8.4618E-04_JPRB,1.0977E-03_JPRB,1.1520E-03_JPRB/)  
+KBO( :, 3,55, 8) = (/&
+ & 2.2697E-05_JPRB,6.5227E-04_JPRB,9.8427E-04_JPRB,1.2212E-03_JPRB,1.1941E-03_JPRB/)  
+KBO( :, 4,55, 8) = (/&
+ & 4.1051E-05_JPRB,8.4944E-04_JPRB,1.1837E-03_JPRB,1.3815E-03_JPRB,1.2361E-03_JPRB/)  
+KBO( :, 5,55, 8) = (/&
+ & 7.2472E-05_JPRB,1.1494E-03_JPRB,1.4743E-03_JPRB,1.6046E-03_JPRB,1.2823E-03_JPRB/)  
+KBO( :, 1,56, 8) = (/&
+ & 3.9898E-06_JPRB,3.4589E-04_JPRB,5.9689E-04_JPRB,8.0352E-04_JPRB,9.0649E-04_JPRB/)  
+KBO( :, 2,56, 8) = (/&
+ & 8.2750E-06_JPRB,4.1470E-04_JPRB,6.8153E-04_JPRB,8.9166E-04_JPRB,9.4301E-04_JPRB/)  
+KBO( :, 3,56, 8) = (/&
+ & 1.6003E-05_JPRB,5.1786E-04_JPRB,7.9279E-04_JPRB,9.9410E-04_JPRB,9.7913E-04_JPRB/)  
+KBO( :, 4,56, 8) = (/&
+ & 2.9587E-05_JPRB,6.7655E-04_JPRB,9.5450E-04_JPRB,1.1258E-03_JPRB,1.0149E-03_JPRB/)  
+KBO( :, 5,56, 8) = (/&
+ & 5.3280E-05_JPRB,9.2055E-04_JPRB,1.1938E-03_JPRB,1.3111E-03_JPRB,1.0536E-03_JPRB/)  
+KBO( :, 1,57, 8) = (/&
+ & 2.6173E-06_JPRB,2.7500E-04_JPRB,4.7940E-04_JPRB,6.5022E-04_JPRB,7.4014E-04_JPRB/)  
+KBO( :, 2,57, 8) = (/&
+ & 5.6185E-06_JPRB,3.2928E-04_JPRB,5.4834E-04_JPRB,7.2338E-04_JPRB,7.7148E-04_JPRB/)  
+KBO( :, 3,57, 8) = (/&
+ & 1.1178E-05_JPRB,4.1034E-04_JPRB,6.3758E-04_JPRB,8.0791E-04_JPRB,8.0223E-04_JPRB/)  
+KBO( :, 4,57, 8) = (/&
+ & 2.1131E-05_JPRB,5.3714E-04_JPRB,7.6779E-04_JPRB,9.1604E-04_JPRB,8.3279E-04_JPRB/)  
+KBO( :, 5,57, 8) = (/&
+ & 3.8855E-05_JPRB,7.3446E-04_JPRB,9.6373E-04_JPRB,1.0689E-03_JPRB,8.6527E-04_JPRB/)  
+KBO( :, 1,58, 8) = (/&
+ & 1.7187E-06_JPRB,2.1897E-04_JPRB,3.8537E-04_JPRB,5.2636E-04_JPRB,6.0391E-04_JPRB/)  
+KBO( :, 2,58, 8) = (/&
+ & 3.8204E-06_JPRB,2.6201E-04_JPRB,4.4157E-04_JPRB,5.8689E-04_JPRB,6.3061E-04_JPRB/)  
+KBO( :, 3,58, 8) = (/&
+ & 7.8175E-06_JPRB,3.2596E-04_JPRB,5.1345E-04_JPRB,6.5702E-04_JPRB,6.5669E-04_JPRB/)  
+KBO( :, 4,58, 8) = (/&
+ & 1.5128E-05_JPRB,4.2731E-04_JPRB,6.1848E-04_JPRB,7.4589E-04_JPRB,6.8257E-04_JPRB/)  
+KBO( :, 5,58, 8) = (/&
+ & 2.8383E-05_JPRB,5.8709E-04_JPRB,7.7891E-04_JPRB,8.7185E-04_JPRB,7.0967E-04_JPRB/)  
+KBO( :, 1,59, 8) = (/&
+ & 1.3071E-06_JPRB,1.7971E-04_JPRB,3.1713E-04_JPRB,4.3408E-04_JPRB,4.9479E-04_JPRB/)  
+KBO( :, 2,59, 8) = (/&
+ & 2.9593E-06_JPRB,2.1590E-04_JPRB,3.6455E-04_JPRB,4.8545E-04_JPRB,5.1653E-04_JPRB/)  
+KBO( :, 3,59, 8) = (/&
+ & 6.1606E-06_JPRB,2.7044E-04_JPRB,4.2589E-04_JPRB,5.4538E-04_JPRB,5.3752E-04_JPRB/)  
+KBO( :, 4,59, 8) = (/&
+ & 1.2116E-05_JPRB,3.5815E-04_JPRB,5.1701E-04_JPRB,6.2252E-04_JPRB,5.5854E-04_JPRB/)  
+KBO( :, 5,59, 8) = (/&
+ & 2.3132E-05_JPRB,4.9905E-04_JPRB,6.5830E-04_JPRB,7.3365E-04_JPRB,5.8023E-04_JPRB/)  
+KBO( :, 1,13, 9) = (/&
+ & 1.6103E-01_JPRB,6.6158E-01_JPRB,1.1273E+00_JPRB,1.5637E+00_JPRB,2.0193E+00_JPRB/)  
+KBO( :, 2,13, 9) = (/&
+ & 2.3702E-01_JPRB,7.0502E-01_JPRB,1.1597E+00_JPRB,1.5650E+00_JPRB,1.9887E+00_JPRB/)  
+KBO( :, 3,13, 9) = (/&
+ & 3.3165E-01_JPRB,7.5350E-01_JPRB,1.1971E+00_JPRB,1.5759E+00_JPRB,1.9602E+00_JPRB/)  
+KBO( :, 4,13, 9) = (/&
+ & 4.4557E-01_JPRB,8.0998E-01_JPRB,1.2356E+00_JPRB,1.5909E+00_JPRB,1.9329E+00_JPRB/)  
+KBO( :, 5,13, 9) = (/&
+ & 5.7859E-01_JPRB,8.7605E-01_JPRB,1.2746E+00_JPRB,1.6061E+00_JPRB,1.9056E+00_JPRB/)  
+KBO( :, 1,14, 9) = (/&
+ & 1.4761E-01_JPRB,6.9347E-01_JPRB,1.1794E+00_JPRB,1.6262E+00_JPRB,2.0952E+00_JPRB/)  
+KBO( :, 2,14, 9) = (/&
+ & 2.1664E-01_JPRB,7.3539E-01_JPRB,1.2185E+00_JPRB,1.6328E+00_JPRB,2.0656E+00_JPRB/)  
+KBO( :, 3,14, 9) = (/&
+ & 3.0271E-01_JPRB,7.8091E-01_JPRB,1.2580E+00_JPRB,1.6489E+00_JPRB,2.0363E+00_JPRB/)  
+KBO( :, 4,14, 9) = (/&
+ & 4.0599E-01_JPRB,8.3259E-01_JPRB,1.2961E+00_JPRB,1.6672E+00_JPRB,2.0067E+00_JPRB/)  
+KBO( :, 5,14, 9) = (/&
+ & 5.2635E-01_JPRB,8.9136E-01_JPRB,1.3335E+00_JPRB,1.6865E+00_JPRB,1.9784E+00_JPRB/)  
+KBO( :, 1,15, 9) = (/&
+ & 1.3457E-01_JPRB,7.2100E-01_JPRB,1.2219E+00_JPRB,1.6745E+00_JPRB,2.1504E+00_JPRB/)  
+KBO( :, 2,15, 9) = (/&
+ & 1.9694E-01_JPRB,7.6310E-01_JPRB,1.2659E+00_JPRB,1.6872E+00_JPRB,2.1231E+00_JPRB/)  
+KBO( :, 3,15, 9) = (/&
+ & 2.7439E-01_JPRB,8.0691E-01_JPRB,1.3081E+00_JPRB,1.7082E+00_JPRB,2.0944E+00_JPRB/)  
+KBO( :, 4,15, 9) = (/&
+ & 3.6719E-01_JPRB,8.5456E-01_JPRB,1.3474E+00_JPRB,1.7304E+00_JPRB,2.0661E+00_JPRB/)  
+KBO( :, 5,15, 9) = (/&
+ & 4.7561E-01_JPRB,9.0769E-01_JPRB,1.3846E+00_JPRB,1.7533E+00_JPRB,2.0378E+00_JPRB/)  
+KBO( :, 1,16, 9) = (/&
+ & 1.2205E-01_JPRB,7.4077E-01_JPRB,1.2541E+00_JPRB,1.7073E+00_JPRB,2.1827E+00_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART24',1,ZHOOK_HANDLE)
+END SUBROUTINE PART24
+
+
+SUBROUTINE PART25
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART25',0,ZHOOK_HANDLE)
+
+
+KBO( :, 2,16, 9) = (/&
+ & 1.7791E-01_JPRB,7.8396E-01_JPRB,1.3002E+00_JPRB,1.7270E+00_JPRB,2.1581E+00_JPRB/)  
+KBO( :, 3,16, 9) = (/&
+ & 2.4715E-01_JPRB,8.2834E-01_JPRB,1.3436E+00_JPRB,1.7521E+00_JPRB,2.1327E+00_JPRB/)  
+KBO( :, 4,16, 9) = (/&
+ & 3.3034E-01_JPRB,8.7418E-01_JPRB,1.3847E+00_JPRB,1.7782E+00_JPRB,2.1067E+00_JPRB/)  
+KBO( :, 5,16, 9) = (/&
+ & 4.2786E-01_JPRB,9.2279E-01_JPRB,1.4244E+00_JPRB,1.8037E+00_JPRB,2.0808E+00_JPRB/)  
+KBO( :, 1,17, 9) = (/&
+ & 1.0982E-01_JPRB,7.5143E-01_JPRB,1.2725E+00_JPRB,1.7242E+00_JPRB,2.1909E+00_JPRB/)  
+KBO( :, 2,17, 9) = (/&
+ & 1.5953E-01_JPRB,7.9549E-01_JPRB,1.3193E+00_JPRB,1.7501E+00_JPRB,2.1703E+00_JPRB/)  
+KBO( :, 3,17, 9) = (/&
+ & 2.2127E-01_JPRB,8.4054E-01_JPRB,1.3636E+00_JPRB,1.7793E+00_JPRB,2.1486E+00_JPRB/)  
+KBO( :, 4,17, 9) = (/&
+ & 2.9584E-01_JPRB,8.8682E-01_JPRB,1.4059E+00_JPRB,1.8091E+00_JPRB,2.1266E+00_JPRB/)  
+KBO( :, 5,17, 9) = (/&
+ & 3.8385E-01_JPRB,9.3422E-01_JPRB,1.4466E+00_JPRB,1.8364E+00_JPRB,2.1039E+00_JPRB/)  
+KBO( :, 1,18, 9) = (/&
+ & 9.8329E-02_JPRB,7.5240E-01_JPRB,1.2756E+00_JPRB,1.7244E+00_JPRB,2.1757E+00_JPRB/)  
+KBO( :, 2,18, 9) = (/&
+ & 1.4251E-01_JPRB,7.9706E-01_JPRB,1.3228E+00_JPRB,1.7556E+00_JPRB,2.1597E+00_JPRB/)  
+KBO( :, 3,18, 9) = (/&
+ & 1.9773E-01_JPRB,8.4264E-01_JPRB,1.3673E+00_JPRB,1.7888E+00_JPRB,2.1427E+00_JPRB/)  
+KBO( :, 4,18, 9) = (/&
+ & 2.6482E-01_JPRB,8.8901E-01_JPRB,1.4101E+00_JPRB,1.8204E+00_JPRB,2.1245E+00_JPRB/)  
+KBO( :, 5,18, 9) = (/&
+ & 3.4448E-01_JPRB,9.3666E-01_JPRB,1.4514E+00_JPRB,1.8483E+00_JPRB,2.1059E+00_JPRB/)  
+KBO( :, 1,19, 9) = (/&
+ & 8.7815E-02_JPRB,7.4384E-01_JPRB,1.2637E+00_JPRB,1.7067E+00_JPRB,2.1362E+00_JPRB/)  
+KBO( :, 2,19, 9) = (/&
+ & 1.2725E-01_JPRB,7.8828E-01_JPRB,1.3102E+00_JPRB,1.7428E+00_JPRB,2.1257E+00_JPRB/)  
+KBO( :, 3,19, 9) = (/&
+ & 1.7679E-01_JPRB,8.3379E-01_JPRB,1.3547E+00_JPRB,1.7786E+00_JPRB,2.1135E+00_JPRB/)  
+KBO( :, 4,19, 9) = (/&
+ & 2.3728E-01_JPRB,8.8010E-01_JPRB,1.3977E+00_JPRB,1.8108E+00_JPRB,2.0991E+00_JPRB/)  
+KBO( :, 5,19, 9) = (/&
+ & 3.0895E-01_JPRB,9.2824E-01_JPRB,1.4393E+00_JPRB,1.8391E+00_JPRB,2.0837E+00_JPRB/)  
+KBO( :, 1,20, 9) = (/&
+ & 7.9041E-02_JPRB,7.2700E-01_JPRB,1.2374E+00_JPRB,1.6719E+00_JPRB,2.0747E+00_JPRB/)  
+KBO( :, 2,20, 9) = (/&
+ & 1.1454E-01_JPRB,7.7070E-01_JPRB,1.2831E+00_JPRB,1.7109E+00_JPRB,2.0685E+00_JPRB/)  
+KBO( :, 3,20, 9) = (/&
+ & 1.5930E-01_JPRB,8.1568E-01_JPRB,1.3273E+00_JPRB,1.7472E+00_JPRB,2.0604E+00_JPRB/)  
+KBO( :, 4,20, 9) = (/&
+ & 2.1376E-01_JPRB,8.6194E-01_JPRB,1.3702E+00_JPRB,1.7799E+00_JPRB,2.0509E+00_JPRB/)  
+KBO( :, 5,20, 9) = (/&
+ & 2.7842E-01_JPRB,9.1045E-01_JPRB,1.4124E+00_JPRB,1.8091E+00_JPRB,2.0408E+00_JPRB/)  
+KBO( :, 1,21, 9) = (/&
+ & 7.1445E-02_JPRB,7.0244E-01_JPRB,1.1970E+00_JPRB,1.6199E+00_JPRB,1.9923E+00_JPRB/)  
+KBO( :, 2,21, 9) = (/&
+ & 1.0353E-01_JPRB,7.4522E-01_JPRB,1.2418E+00_JPRB,1.6596E+00_JPRB,1.9909E+00_JPRB/)  
+KBO( :, 3,21, 9) = (/&
+ & 1.4384E-01_JPRB,7.8934E-01_JPRB,1.2854E+00_JPRB,1.6962E+00_JPRB,1.9875E+00_JPRB/)  
+KBO( :, 4,21, 9) = (/&
+ & 1.9307E-01_JPRB,8.3547E-01_JPRB,1.3286E+00_JPRB,1.7297E+00_JPRB,1.9830E+00_JPRB/)  
+KBO( :, 5,21, 9) = (/&
+ & 2.5151E-01_JPRB,8.8443E-01_JPRB,1.3716E+00_JPRB,1.7608E+00_JPRB,1.9785E+00_JPRB/)  
+KBO( :, 1,22, 9) = (/&
+ & 6.6536E-02_JPRB,6.7362E-01_JPRB,1.1476E+00_JPRB,1.5553E+00_JPRB,1.8930E+00_JPRB/)  
+KBO( :, 2,22, 9) = (/&
+ & 9.5961E-02_JPRB,7.1546E-01_JPRB,1.1915E+00_JPRB,1.5946E+00_JPRB,1.8960E+00_JPRB/)  
+KBO( :, 3,22, 9) = (/&
+ & 1.3293E-01_JPRB,7.5906E-01_JPRB,1.2350E+00_JPRB,1.6314E+00_JPRB,1.8977E+00_JPRB/)  
+KBO( :, 4,22, 9) = (/&
+ & 1.7791E-01_JPRB,8.0536E-01_JPRB,1.2788E+00_JPRB,1.6663E+00_JPRB,1.8991E+00_JPRB/)  
+KBO( :, 5,22, 9) = (/&
+ & 2.3124E-01_JPRB,8.5502E-01_JPRB,1.3230E+00_JPRB,1.6998E+00_JPRB,1.9008E+00_JPRB/)  
+KBO( :, 1,23, 9) = (/&
+ & 6.2130E-02_JPRB,6.3989E-01_JPRB,1.0889E+00_JPRB,1.4764E+00_JPRB,1.7800E+00_JPRB/)  
+KBO( :, 2,23, 9) = (/&
+ & 8.9203E-02_JPRB,6.8080E-01_JPRB,1.1324E+00_JPRB,1.5163E+00_JPRB,1.7885E+00_JPRB/)  
+KBO( :, 3,23, 9) = (/&
+ & 1.2310E-01_JPRB,7.2420E-01_JPRB,1.1763E+00_JPRB,1.5547E+00_JPRB,1.7963E+00_JPRB/)  
+KBO( :, 4,23, 9) = (/&
+ & 1.6423E-01_JPRB,7.7098E-01_JPRB,1.2210E+00_JPRB,1.5918E+00_JPRB,1.8040E+00_JPRB/)  
+KBO( :, 5,23, 9) = (/&
+ & 2.1277E-01_JPRB,8.2154E-01_JPRB,1.2673E+00_JPRB,1.6285E+00_JPRB,1.8132E+00_JPRB/)  
+KBO( :, 1,24, 9) = (/&
+ & 5.8273E-02_JPRB,6.0306E-01_JPRB,1.0238E+00_JPRB,1.3884E+00_JPRB,1.6590E+00_JPRB/)  
+KBO( :, 2,24, 9) = (/&
+ & 8.3232E-02_JPRB,6.4338E-01_JPRB,1.0676E+00_JPRB,1.4297E+00_JPRB,1.6731E+00_JPRB/)  
+KBO( :, 3,24, 9) = (/&
+ & 1.1427E-01_JPRB,6.8692E-01_JPRB,1.1126E+00_JPRB,1.4703E+00_JPRB,1.6874E+00_JPRB/)  
+KBO( :, 4,24, 9) = (/&
+ & 1.5163E-01_JPRB,7.3448E-01_JPRB,1.1591E+00_JPRB,1.5108E+00_JPRB,1.7035E+00_JPRB/)  
+KBO( :, 5,24, 9) = (/&
+ & 1.9552E-01_JPRB,7.8610E-01_JPRB,1.2077E+00_JPRB,1.5519E+00_JPRB,1.7219E+00_JPRB/)  
+KBO( :, 1,25, 9) = (/&
+ & 5.4812E-02_JPRB,5.6477E-01_JPRB,9.5569E-01_JPRB,1.2954E+00_JPRB,1.5347E+00_JPRB/)  
+KBO( :, 2,25, 9) = (/&
+ & 7.7748E-02_JPRB,6.0521E-01_JPRB,1.0005E+00_JPRB,1.3386E+00_JPRB,1.5551E+00_JPRB/)  
+KBO( :, 3,25, 9) = (/&
+ & 1.0600E-01_JPRB,6.4947E-01_JPRB,1.0471E+00_JPRB,1.3828E+00_JPRB,1.5779E+00_JPRB/)  
+KBO( :, 4,25, 9) = (/&
+ & 1.3990E-01_JPRB,6.9799E-01_JPRB,1.0963E+00_JPRB,1.4282E+00_JPRB,1.6034E+00_JPRB/)  
+KBO( :, 5,25, 9) = (/&
+ & 1.7983E-01_JPRB,7.5057E-01_JPRB,1.1486E+00_JPRB,1.4751E+00_JPRB,1.6307E+00_JPRB/)  
+KBO( :, 1,26, 9) = (/&
+ & 5.1716E-02_JPRB,5.2713E-01_JPRB,8.8788E-01_JPRB,1.2018E+00_JPRB,1.4126E+00_JPRB/)  
+KBO( :, 2,26, 9) = (/&
+ & 7.2684E-02_JPRB,5.6826E-01_JPRB,9.3427E-01_JPRB,1.2488E+00_JPRB,1.4411E+00_JPRB/)  
+KBO( :, 3,26, 9) = (/&
+ & 9.8449E-02_JPRB,6.1372E-01_JPRB,9.8375E-01_JPRB,1.2977E+00_JPRB,1.4727E+00_JPRB/)  
+KBO( :, 4,26, 9) = (/&
+ & 1.2939E-01_JPRB,6.6352E-01_JPRB,1.0365E+00_JPRB,1.3486E+00_JPRB,1.5064E+00_JPRB/)  
+KBO( :, 5,26, 9) = (/&
+ & 1.6591E-01_JPRB,7.1727E-01_JPRB,1.0930E+00_JPRB,1.4010E+00_JPRB,1.5406E+00_JPRB/)  
+KBO( :, 1,27, 9) = (/&
+ & 4.8584E-02_JPRB,4.9097E-01_JPRB,8.2256E-01_JPRB,1.1121E+00_JPRB,1.2977E+00_JPRB/)  
+KBO( :, 2,27, 9) = (/&
+ & 6.7759E-02_JPRB,5.3335E-01_JPRB,8.7159E-01_JPRB,1.1633E+00_JPRB,1.3342E+00_JPRB/)  
+KBO( :, 3,27, 9) = (/&
+ & 9.1281E-02_JPRB,5.8032E-01_JPRB,9.2435E-01_JPRB,1.2172E+00_JPRB,1.3733E+00_JPRB/)  
+KBO( :, 4,27, 9) = (/&
+ & 1.1958E-01_JPRB,6.3161E-01_JPRB,9.8117E-01_JPRB,1.2730E+00_JPRB,1.4135E+00_JPRB/)  
+KBO( :, 5,27, 9) = (/&
+ & 1.5306E-01_JPRB,6.8640E-01_JPRB,1.0413E+00_JPRB,1.3298E+00_JPRB,1.4532E+00_JPRB/)  
+KBO( :, 1,28, 9) = (/&
+ & 4.5513E-02_JPRB,4.5771E-01_JPRB,7.6221E-01_JPRB,1.0285E+00_JPRB,1.1920E+00_JPRB/)  
+KBO( :, 2,28, 9) = (/&
+ & 6.3043E-02_JPRB,5.0158E-01_JPRB,8.1400E-01_JPRB,1.0840E+00_JPRB,1.2355E+00_JPRB/)  
+KBO( :, 3,28, 9) = (/&
+ & 8.4577E-02_JPRB,5.5008E-01_JPRB,8.7020E-01_JPRB,1.1421E+00_JPRB,1.2807E+00_JPRB/)  
+KBO( :, 4,28, 9) = (/&
+ & 1.1056E-01_JPRB,6.0266E-01_JPRB,9.3037E-01_JPRB,1.2019E+00_JPRB,1.3261E+00_JPRB/)  
+KBO( :, 5,28, 9) = (/&
+ & 1.4146E-01_JPRB,6.5861E-01_JPRB,9.9361E-01_JPRB,1.2630E+00_JPRB,1.3707E+00_JPRB/)  
+KBO( :, 1,29, 9) = (/&
+ & 4.2634E-02_JPRB,4.2840E-01_JPRB,7.0804E-01_JPRB,9.5295E-01_JPRB,1.0976E+00_JPRB/)  
+KBO( :, 2,29, 9) = (/&
+ & 5.8749E-02_JPRB,4.7373E-01_JPRB,7.6274E-01_JPRB,1.0122E+00_JPRB,1.1466E+00_JPRB/)  
+KBO( :, 3,29, 9) = (/&
+ & 7.8594E-02_JPRB,5.2372E-01_JPRB,8.2196E-01_JPRB,1.0740E+00_JPRB,1.1968E+00_JPRB/)  
+KBO( :, 4,29, 9) = (/&
+ & 1.0258E-01_JPRB,5.7741E-01_JPRB,8.8498E-01_JPRB,1.1377E+00_JPRB,1.2469E+00_JPRB/)  
+KBO( :, 5,29, 9) = (/&
+ & 1.3125E-01_JPRB,6.3414E-01_JPRB,9.5133E-01_JPRB,1.2027E+00_JPRB,1.2962E+00_JPRB/)  
+KBO( :, 1,30, 9) = (/&
+ & 3.9899E-02_JPRB,4.0291E-01_JPRB,6.6036E-01_JPRB,8.8584E-01_JPRB,1.0137E+00_JPRB/)  
+KBO( :, 2,30, 9) = (/&
+ & 5.4774E-02_JPRB,4.4971E-01_JPRB,7.1779E-01_JPRB,9.4836E-01_JPRB,1.0674E+00_JPRB/)  
+KBO( :, 3,30, 9) = (/&
+ & 7.3108E-02_JPRB,5.0075E-01_JPRB,7.7974E-01_JPRB,1.0137E+00_JPRB,1.1221E+00_JPRB/)  
+KBO( :, 4,30, 9) = (/&
+ & 9.5439E-02_JPRB,5.5545E-01_JPRB,8.4558E-01_JPRB,1.0809E+00_JPRB,1.1769E+00_JPRB/)  
+KBO( :, 5,30, 9) = (/&
+ & 1.2214E-01_JPRB,6.1274E-01_JPRB,9.1443E-01_JPRB,1.1496E+00_JPRB,1.2307E+00_JPRB/)  
+KBO( :, 1,31, 9) = (/&
+ & 3.7399E-02_JPRB,3.8153E-01_JPRB,6.1964E-01_JPRB,8.2749E-01_JPRB,9.4112E-01_JPRB/)  
+KBO( :, 2,31, 9) = (/&
+ & 5.1170E-02_JPRB,4.2947E-01_JPRB,6.7967E-01_JPRB,8.9330E-01_JPRB,9.9936E-01_JPRB/)  
+KBO( :, 3,31, 9) = (/&
+ & 6.8267E-02_JPRB,4.8157E-01_JPRB,7.4418E-01_JPRB,9.6186E-01_JPRB,1.0590E+00_JPRB/)  
+KBO( :, 4,31, 9) = (/&
+ & 8.9119E-02_JPRB,5.3688E-01_JPRB,8.1247E-01_JPRB,1.0326E+00_JPRB,1.1185E+00_JPRB/)  
+KBO( :, 5,31, 9) = (/&
+ & 1.1420E-01_JPRB,5.9468E-01_JPRB,8.8352E-01_JPRB,1.1045E+00_JPRB,1.1767E+00_JPRB/)  
+KBO( :, 1,32, 9) = (/&
+ & 3.5118E-02_JPRB,3.6406E-01_JPRB,5.8571E-01_JPRB,7.7819E-01_JPRB,8.7995E-01_JPRB/)  
+KBO( :, 2,32, 9) = (/&
+ & 4.7970E-02_JPRB,4.1299E-01_JPRB,6.4823E-01_JPRB,8.4697E-01_JPRB,9.4296E-01_JPRB/)  
+KBO( :, 3,32, 9) = (/&
+ & 6.4004E-02_JPRB,4.6590E-01_JPRB,7.1516E-01_JPRB,9.1892E-01_JPRB,1.0071E+00_JPRB/)  
+KBO( :, 4,32, 9) = (/&
+ & 8.3615E-02_JPRB,5.2189E-01_JPRB,7.8583E-01_JPRB,9.9290E-01_JPRB,1.0709E+00_JPRB/)  
+KBO( :, 5,32, 9) = (/&
+ & 1.0720E-01_JPRB,5.8002E-01_JPRB,8.5872E-01_JPRB,1.0680E+00_JPRB,1.1336E+00_JPRB/)  
+KBO( :, 1,33, 9) = (/&
+ & 3.3077E-02_JPRB,3.5017E-01_JPRB,5.5838E-01_JPRB,7.3762E-01_JPRB,8.3032E-01_JPRB/)  
+KBO( :, 2,33, 9) = (/&
+ & 4.5163E-02_JPRB,4.0001E-01_JPRB,6.2312E-01_JPRB,8.0956E-01_JPRB,8.9776E-01_JPRB/)  
+KBO( :, 3,33, 9) = (/&
+ & 6.0263E-02_JPRB,4.5365E-01_JPRB,6.9243E-01_JPRB,8.8459E-01_JPRB,9.6617E-01_JPRB/)  
+KBO( :, 4,33, 9) = (/&
+ & 7.8793E-02_JPRB,5.1005E-01_JPRB,7.6498E-01_JPRB,9.6177E-01_JPRB,1.0343E+00_JPRB/)  
+KBO( :, 5,33, 9) = (/&
+ & 1.0108E-01_JPRB,5.6875E-01_JPRB,8.3998E-01_JPRB,1.0396E+00_JPRB,1.1011E+00_JPRB/)  
+KBO( :, 1,34, 9) = (/&
+ & 3.0915E-02_JPRB,3.3781E-01_JPRB,5.3486E-01_JPRB,7.0304E-01_JPRB,7.8832E-01_JPRB/)  
+KBO( :, 2,34, 9) = (/&
+ & 4.2252E-02_JPRB,3.8839E-01_JPRB,6.0166E-01_JPRB,7.7789E-01_JPRB,8.5967E-01_JPRB/)  
+KBO( :, 3,34, 9) = (/&
+ & 5.6470E-02_JPRB,4.4255E-01_JPRB,6.7299E-01_JPRB,8.5584E-01_JPRB,9.3187E-01_JPRB/)  
+KBO( :, 4,34, 9) = (/&
+ & 7.3896E-02_JPRB,4.9923E-01_JPRB,7.4727E-01_JPRB,9.3566E-01_JPRB,1.0039E+00_JPRB/)  
+KBO( :, 5,34, 9) = (/&
+ & 9.5018E-02_JPRB,5.5848E-01_JPRB,8.2408E-01_JPRB,1.0160E+00_JPRB,1.0743E+00_JPRB/)  
+KBO( :, 1,35, 9) = (/&
+ & 2.8132E-02_JPRB,3.2365E-01_JPRB,5.1055E-01_JPRB,6.6895E-01_JPRB,7.4864E-01_JPRB/)  
+KBO( :, 2,35, 9) = (/&
+ & 3.8581E-02_JPRB,3.7456E-01_JPRB,5.7889E-01_JPRB,7.4628E-01_JPRB,8.2332E-01_JPRB/)  
+KBO( :, 3,35, 9) = (/&
+ & 5.1721E-02_JPRB,4.2888E-01_JPRB,6.5160E-01_JPRB,8.2665E-01_JPRB,8.9938E-01_JPRB/)  
+KBO( :, 4,35, 9) = (/&
+ & 6.7950E-02_JPRB,4.8574E-01_JPRB,7.2738E-01_JPRB,9.0865E-01_JPRB,9.7493E-01_JPRB/)  
+KBO( :, 5,35, 9) = (/&
+ & 8.7661E-02_JPRB,5.4539E-01_JPRB,8.0566E-01_JPRB,9.9133E-01_JPRB,1.0487E+00_JPRB/)  
+KBO( :, 1,36, 9) = (/&
+ & 2.4794E-02_JPRB,3.0684E-01_JPRB,4.8374E-01_JPRB,6.3315E-01_JPRB,7.0816E-01_JPRB/)  
+KBO( :, 2,36, 9) = (/&
+ & 3.4216E-02_JPRB,3.5764E-01_JPRB,5.5293E-01_JPRB,7.1235E-01_JPRB,7.8609E-01_JPRB/)  
+KBO( :, 3,36, 9) = (/&
+ & 4.6142E-02_JPRB,4.1180E-01_JPRB,6.2660E-01_JPRB,7.9449E-01_JPRB,8.6552E-01_JPRB/)  
+KBO( :, 4,36, 9) = (/&
+ & 6.0983E-02_JPRB,4.6863E-01_JPRB,7.0343E-01_JPRB,8.7846E-01_JPRB,9.4446E-01_JPRB/)  
+KBO( :, 5,36, 9) = (/&
+ & 7.9101E-02_JPRB,5.2833E-01_JPRB,7.8277E-01_JPRB,9.6328E-01_JPRB,1.0212E+00_JPRB/)  
+KBO( :, 1,37, 9) = (/&
+ & 2.0815E-02_JPRB,2.8513E-01_JPRB,4.5081E-01_JPRB,5.9101E-01_JPRB,6.6164E-01_JPRB/)  
+KBO( :, 2,37, 9) = (/&
+ & 2.9022E-02_JPRB,3.3521E-01_JPRB,5.2012E-01_JPRB,6.7125E-01_JPRB,7.4211E-01_JPRB/)  
+KBO( :, 3,37, 9) = (/&
+ & 3.9516E-02_JPRB,3.8880E-01_JPRB,5.9400E-01_JPRB,7.5469E-01_JPRB,8.2434E-01_JPRB/)  
+KBO( :, 4,37, 9) = (/&
+ & 5.2685E-02_JPRB,4.4520E-01_JPRB,6.7131E-01_JPRB,8.4030E-01_JPRB,9.0639E-01_JPRB/)  
+KBO( :, 5,37, 9) = (/&
+ & 6.8908E-02_JPRB,5.0450E-01_JPRB,7.5128E-01_JPRB,9.2687E-01_JPRB,9.8613E-01_JPRB/)  
+KBO( :, 1,38, 9) = (/&
+ & 1.7440E-02_JPRB,2.6532E-01_JPRB,4.2090E-01_JPRB,5.5282E-01_JPRB,6.1999E-01_JPRB/)  
+KBO( :, 2,38, 9) = (/&
+ & 2.4585E-02_JPRB,3.1463E-01_JPRB,4.9010E-01_JPRB,6.3385E-01_JPRB,7.0267E-01_JPRB/)  
+KBO( :, 3,38, 9) = (/&
+ & 3.3827E-02_JPRB,3.6763E-01_JPRB,5.6406E-01_JPRB,7.1841E-01_JPRB,7.8751E-01_JPRB/)  
+KBO( :, 4,38, 9) = (/&
+ & 4.5497E-02_JPRB,4.2358E-01_JPRB,6.4172E-01_JPRB,8.0528E-01_JPRB,8.7233E-01_JPRB/)  
+KBO( :, 5,38, 9) = (/&
+ & 6.0061E-02_JPRB,4.8245E-01_JPRB,7.2216E-01_JPRB,8.9334E-01_JPRB,9.5488E-01_JPRB/)  
+KBO( :, 1,39, 9) = (/&
+ & 1.4635E-02_JPRB,2.4758E-01_JPRB,3.9422E-01_JPRB,5.1882E-01_JPRB,5.8346E-01_JPRB/)  
+KBO( :, 2,39, 9) = (/&
+ & 2.0862E-02_JPRB,2.9613E-01_JPRB,4.6317E-01_JPRB,6.0043E-01_JPRB,6.6823E-01_JPRB/)  
+KBO( :, 3,39, 9) = (/&
+ & 2.9010E-02_JPRB,3.4853E-01_JPRB,5.3715E-01_JPRB,6.8585E-01_JPRB,7.5543E-01_JPRB/)  
+KBO( :, 4,39, 9) = (/&
+ & 3.9392E-02_JPRB,4.0402E-01_JPRB,6.1498E-01_JPRB,7.7375E-01_JPRB,8.4272E-01_JPRB/)  
+KBO( :, 5,39, 9) = (/&
+ & 5.2487E-02_JPRB,4.6246E-01_JPRB,6.9574E-01_JPRB,8.6309E-01_JPRB,9.2808E-01_JPRB/)  
+KBO( :, 1,40, 9) = (/&
+ & 1.1817E-02_JPRB,2.2703E-01_JPRB,3.6362E-01_JPRB,4.8024E-01_JPRB,5.4110E-01_JPRB/)  
+KBO( :, 2,40, 9) = (/&
+ & 1.7093E-02_JPRB,2.7438E-01_JPRB,4.3164E-01_JPRB,5.6172E-01_JPRB,6.2692E-01_JPRB/)  
+KBO( :, 3,40, 9) = (/&
+ & 2.4086E-02_JPRB,3.2578E-01_JPRB,5.0508E-01_JPRB,6.4747E-01_JPRB,7.1559E-01_JPRB/)  
+KBO( :, 4,40, 9) = (/&
+ & 3.3120E-02_JPRB,3.8047E-01_JPRB,5.8258E-01_JPRB,7.3604E-01_JPRB,8.0488E-01_JPRB/)  
+KBO( :, 5,40, 9) = (/&
+ & 4.4642E-02_JPRB,4.3816E-01_JPRB,6.6329E-01_JPRB,8.2630E-01_JPRB,8.9263E-01_JPRB/)  
+KBO( :, 1,41, 9) = (/&
+ & 9.4732E-03_JPRB,2.0772E-01_JPRB,3.3472E-01_JPRB,4.4372E-01_JPRB,5.0098E-01_JPRB/)  
+KBO( :, 2,41, 9) = (/&
+ & 1.3924E-02_JPRB,2.5378E-01_JPRB,4.0168E-01_JPRB,5.2481E-01_JPRB,5.8738E-01_JPRB/)  
+KBO( :, 3,41, 9) = (/&
+ & 1.9893E-02_JPRB,3.0412E-01_JPRB,4.7431E-01_JPRB,6.1058E-01_JPRB,6.7711E-01_JPRB/)  
+KBO( :, 4,41, 9) = (/&
+ & 2.7726E-02_JPRB,3.5790E-01_JPRB,5.5133E-01_JPRB,6.9954E-01_JPRB,7.6804E-01_JPRB/)  
+KBO( :, 5,41, 9) = (/&
+ & 3.7835E-02_JPRB,4.1479E-01_JPRB,6.3183E-01_JPRB,7.9045E-01_JPRB,8.5793E-01_JPRB/)  
+KBO( :, 1,42, 9) = (/&
+ & 7.5682E-03_JPRB,1.9007E-01_JPRB,3.0814E-01_JPRB,4.0997E-01_JPRB,4.6395E-01_JPRB/)  
+KBO( :, 2,42, 9) = (/&
+ & 1.1315E-02_JPRB,2.3478E-01_JPRB,3.7386E-01_JPRB,4.9039E-01_JPRB,5.5062E-01_JPRB/)  
+KBO( :, 3,42, 9) = (/&
+ & 1.6414E-02_JPRB,2.8401E-01_JPRB,4.4556E-01_JPRB,5.7596E-01_JPRB,6.4116E-01_JPRB/)  
+KBO( :, 4,42, 9) = (/&
+ & 2.3189E-02_JPRB,3.3687E-01_JPRB,5.2199E-01_JPRB,6.6509E-01_JPRB,7.3350E-01_JPRB/)  
+KBO( :, 5,42, 9) = (/&
+ & 3.2053E-02_JPRB,3.9299E-01_JPRB,6.0205E-01_JPRB,7.5646E-01_JPRB,8.2526E-01_JPRB/)  
+KBO( :, 1,43, 9) = (/&
+ & 5.8792E-03_JPRB,1.7158E-01_JPRB,2.8021E-01_JPRB,3.7439E-01_JPRB,4.2476E-01_JPRB/)  
+KBO( :, 2,43, 9) = (/&
+ & 8.9664E-03_JPRB,2.1465E-01_JPRB,3.4423E-01_JPRB,4.5359E-01_JPRB,5.1109E-01_JPRB/)  
+KBO( :, 3,43, 9) = (/&
+ & 1.3239E-02_JPRB,2.6247E-01_JPRB,4.1451E-01_JPRB,5.3841E-01_JPRB,6.0195E-01_JPRB/)  
+KBO( :, 4,43, 9) = (/&
+ & 1.8999E-02_JPRB,3.1420E-01_JPRB,4.8991E-01_JPRB,6.2734E-01_JPRB,6.9535E-01_JPRB/)  
+KBO( :, 5,43, 9) = (/&
+ & 2.6643E-02_JPRB,3.6926E-01_JPRB,5.6925E-01_JPRB,7.1886E-01_JPRB,7.8877E-01_JPRB/)  
+KBO( :, 1,44, 9) = (/&
+ & 4.4882E-03_JPRB,1.5364E-01_JPRB,2.5283E-01_JPRB,3.3925E-01_JPRB,3.8604E-01_JPRB/)  
+KBO( :, 2,44, 9) = (/&
+ & 6.9936E-03_JPRB,1.9487E-01_JPRB,3.1482E-01_JPRB,4.1683E-01_JPRB,4.7142E-01_JPRB/)  
+KBO( :, 3,44, 9) = (/&
+ & 1.0532E-02_JPRB,2.4110E-01_JPRB,3.8337E-01_JPRB,5.0055E-01_JPRB,5.6226E-01_JPRB/)  
+KBO( :, 4,44, 9) = (/&
+ & 1.5385E-02_JPRB,2.9150E-01_JPRB,4.5750E-01_JPRB,5.8891E-01_JPRB,6.5637E-01_JPRB/)  
+KBO( :, 5,44, 9) = (/&
+ & 2.1907E-02_JPRB,3.4545E-01_JPRB,5.3592E-01_JPRB,6.8023E-01_JPRB,7.5115E-01_JPRB/)  
+KBO( :, 1,45, 9) = (/&
+ & 3.4023E-03_JPRB,1.3718E-01_JPRB,2.2742E-01_JPRB,3.0640E-01_JPRB,3.4986E-01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART25',1,ZHOOK_HANDLE)
+END SUBROUTINE PART25
+
+
+SUBROUTINE PART26
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART26',0,ZHOOK_HANDLE)
+
+
+KBO( :, 2,45, 9) = (/&
+ & 5.4211E-03_JPRB,1.7648E-01_JPRB,2.8724E-01_JPRB,3.8210E-01_JPRB,4.3396E-01_JPRB/)  
+KBO( :, 3,45, 9) = (/&
+ & 8.3344E-03_JPRB,2.2102E-01_JPRB,3.5390E-01_JPRB,4.6443E-01_JPRB,5.2448E-01_JPRB/)  
+KBO( :, 4,45, 9) = (/&
+ & 1.2410E-02_JPRB,2.7007E-01_JPRB,4.2657E-01_JPRB,5.5186E-01_JPRB,6.1889E-01_JPRB/)  
+KBO( :, 5,45, 9) = (/&
+ & 1.7962E-02_JPRB,3.2284E-01_JPRB,5.0389E-01_JPRB,6.4288E-01_JPRB,7.1489E-01_JPRB/)  
+KBO( :, 1,46, 9) = (/&
+ & 2.5298E-03_JPRB,1.2128E-01_JPRB,2.0265E-01_JPRB,2.7417E-01_JPRB,3.1426E-01_JPRB/)  
+KBO( :, 2,46, 9) = (/&
+ & 4.1311E-03_JPRB,1.5849E-01_JPRB,2.6002E-01_JPRB,3.4751E-01_JPRB,3.9644E-01_JPRB/)  
+KBO( :, 3,46, 9) = (/&
+ & 6.4978E-03_JPRB,2.0122E-01_JPRB,3.2453E-01_JPRB,4.2805E-01_JPRB,4.8611E-01_JPRB/)  
+KBO( :, 4,46, 9) = (/&
+ & 9.8756E-03_JPRB,2.4871E-01_JPRB,3.9537E-01_JPRB,5.1423E-01_JPRB,5.8048E-01_JPRB/)  
+KBO( :, 5,46, 9) = (/&
+ & 1.4561E-02_JPRB,3.0016E-01_JPRB,4.7134E-01_JPRB,6.0463E-01_JPRB,6.7732E-01_JPRB/)  
+KBO( :, 1,47, 9) = (/&
+ & 1.8212E-03_JPRB,1.0532E-01_JPRB,1.7755E-01_JPRB,2.4129E-01_JPRB,2.7755E-01_JPRB/)  
+KBO( :, 2,47, 9) = (/&
+ & 3.0568E-03_JPRB,1.4024E-01_JPRB,2.3198E-01_JPRB,3.1155E-01_JPRB,3.5689E-01_JPRB/)  
+KBO( :, 3,47, 9) = (/&
+ & 4.9310E-03_JPRB,1.8078E-01_JPRB,2.9385E-01_JPRB,3.8973E-01_JPRB,4.4482E-01_JPRB/)  
+KBO( :, 4,47, 9) = (/&
+ & 7.6712E-03_JPRB,2.2639E-01_JPRB,3.6245E-01_JPRB,4.7424E-01_JPRB,5.3854E-01_JPRB/)  
+KBO( :, 5,47, 9) = (/&
+ & 1.1548E-02_JPRB,2.7630E-01_JPRB,4.3672E-01_JPRB,5.6347E-01_JPRB,6.3559E-01_JPRB/)  
+KBO( :, 1,48, 9) = (/&
+ & 1.2952E-03_JPRB,9.0848E-02_JPRB,1.5447E-01_JPRB,2.1078E-01_JPRB,2.4345E-01_JPRB/)  
+KBO( :, 2,48, 9) = (/&
+ & 2.2372E-03_JPRB,1.2337E-01_JPRB,2.0574E-01_JPRB,2.7761E-01_JPRB,3.1960E-01_JPRB/)  
+KBO( :, 3,48, 9) = (/&
+ & 3.7056E-03_JPRB,1.6164E-01_JPRB,2.6488E-01_JPRB,3.5315E-01_JPRB,4.0534E-01_JPRB/)  
+KBO( :, 4,48, 9) = (/&
+ & 5.9066E-03_JPRB,2.0530E-01_JPRB,3.3102E-01_JPRB,4.3559E-01_JPRB,4.9804E-01_JPRB/)  
+KBO( :, 5,48, 9) = (/&
+ & 9.0925E-03_JPRB,2.5355E-01_JPRB,4.0335E-01_JPRB,5.2339E-01_JPRB,5.9498E-01_JPRB/)  
+KBO( :, 1,49, 9) = (/&
+ & 9.0858E-04_JPRB,7.7773E-02_JPRB,1.3333E-01_JPRB,1.8263E-01_JPRB,2.1203E-01_JPRB/)  
+KBO( :, 2,49, 9) = (/&
+ & 1.6178E-03_JPRB,1.0781E-01_JPRB,1.8129E-01_JPRB,2.4570E-01_JPRB,2.8465E-01_JPRB/)  
+KBO( :, 3,49, 9) = (/&
+ & 2.7562E-03_JPRB,1.4379E-01_JPRB,2.3752E-01_JPRB,3.1823E-01_JPRB,3.6781E-01_JPRB/)  
+KBO( :, 4,49, 9) = (/&
+ & 4.5071E-03_JPRB,1.8535E-01_JPRB,3.0106E-01_JPRB,3.9831E-01_JPRB,4.5913E-01_JPRB/)  
+KBO( :, 5,49, 9) = (/&
+ & 7.1028E-03_JPRB,2.3184E-01_JPRB,3.7117E-01_JPRB,4.8442E-01_JPRB,5.5577E-01_JPRB/)  
+KBO( :, 1,50, 9) = (/&
+ & 6.3845E-04_JPRB,6.6632E-02_JPRB,1.1508E-01_JPRB,1.5813E-01_JPRB,1.8420E-01_JPRB/)  
+KBO( :, 2,50, 9) = (/&
+ & 1.1723E-03_JPRB,9.4330E-02_JPRB,1.5988E-01_JPRB,2.1752E-01_JPRB,2.5295E-01_JPRB/)  
+KBO( :, 3,50, 9) = (/&
+ & 2.0555E-03_JPRB,1.2813E-01_JPRB,2.1319E-01_JPRB,2.8686E-01_JPRB,3.3317E-01_JPRB/)  
+KBO( :, 4,50, 9) = (/&
+ & 3.4507E-03_JPRB,1.6762E-01_JPRB,2.7419E-01_JPRB,3.6453E-01_JPRB,4.2252E-01_JPRB/)  
+KBO( :, 5,50, 9) = (/&
+ & 5.5676E-03_JPRB,2.1233E-01_JPRB,3.4204E-01_JPRB,4.4881E-01_JPRB,5.1834E-01_JPRB/)  
+KBO( :, 1,51, 9) = (/&
+ & 4.4606E-04_JPRB,5.6891E-02_JPRB,9.8867E-02_JPRB,1.3627E-01_JPRB,1.5911E-01_JPRB/)  
+KBO( :, 2,51, 9) = (/&
+ & 8.4540E-04_JPRB,8.2329E-02_JPRB,1.4056E-01_JPRB,1.9187E-01_JPRB,2.2375E-01_JPRB/)  
+KBO( :, 3,51, 9) = (/&
+ & 1.5266E-03_JPRB,1.1393E-01_JPRB,1.9092E-01_JPRB,2.5792E-01_JPRB,3.0065E-01_JPRB/)  
+KBO( :, 4,51, 9) = (/&
+ & 2.6330E-03_JPRB,1.5136E-01_JPRB,2.4932E-01_JPRB,3.3298E-01_JPRB,3.8756E-01_JPRB/)  
+KBO( :, 5,51, 9) = (/&
+ & 4.3537E-03_JPRB,1.9426E-01_JPRB,3.1486E-01_JPRB,4.1517E-01_JPRB,4.8205E-01_JPRB/)  
+KBO( :, 1,52, 9) = (/&
+ & 3.0758E-04_JPRB,4.8172E-02_JPRB,8.4225E-02_JPRB,1.1640E-01_JPRB,1.3632E-01_JPRB/)  
+KBO( :, 2,52, 9) = (/&
+ & 6.0273E-04_JPRB,7.1379E-02_JPRB,1.2274E-01_JPRB,1.6806E-01_JPRB,1.9667E-01_JPRB/)  
+KBO( :, 3,52, 9) = (/&
+ & 1.1225E-03_JPRB,1.0074E-01_JPRB,1.7004E-01_JPRB,2.3059E-01_JPRB,2.6996E-01_JPRB/)  
+KBO( :, 4,52, 9) = (/&
+ & 1.9908E-03_JPRB,1.3610E-01_JPRB,2.2571E-01_JPRB,3.0271E-01_JPRB,3.5416E-01_JPRB/)  
+KBO( :, 5,52, 9) = (/&
+ & 3.3781E-03_JPRB,1.7706E-01_JPRB,2.8879E-01_JPRB,3.8263E-01_JPRB,4.4697E-01_JPRB/)  
+KBO( :, 1,53, 9) = (/&
+ & 2.0907E-04_JPRB,4.0394E-02_JPRB,7.1019E-02_JPRB,9.8396E-02_JPRB,1.1571E-01_JPRB/)  
+KBO( :, 2,53, 9) = (/&
+ & 4.2389E-04_JPRB,6.1427E-02_JPRB,1.0630E-01_JPRB,1.4598E-01_JPRB,1.7164E-01_JPRB/)  
+KBO( :, 3,53, 9) = (/&
+ & 8.1536E-04_JPRB,8.8519E-02_JPRB,1.5049E-01_JPRB,2.0480E-01_JPRB,2.4110E-01_JPRB/)  
+KBO( :, 4,53, 9) = (/&
+ & 1.4900E-03_JPRB,1.2174E-01_JPRB,2.0325E-01_JPRB,2.7370E-01_JPRB,3.2235E-01_JPRB/)  
+KBO( :, 5,53, 9) = (/&
+ & 2.5972E-03_JPRB,1.6068E-01_JPRB,2.6380E-01_JPRB,3.5112E-01_JPRB,4.1323E-01_JPRB/)  
+KBO( :, 1,54, 9) = (/&
+ & 1.4322E-04_JPRB,3.4010E-02_JPRB,6.0069E-02_JPRB,8.3407E-02_JPRB,9.8018E-02_JPRB/)  
+KBO( :, 2,54, 9) = (/&
+ & 3.0073E-04_JPRB,5.3101E-02_JPRB,9.2377E-02_JPRB,1.2719E-01_JPRB,1.4939E-01_JPRB/)  
+KBO( :, 3,54, 9) = (/&
+ & 5.9718E-04_JPRB,7.8129E-02_JPRB,1.3368E-01_JPRB,1.8244E-01_JPRB,2.1463E-01_JPRB/)  
+KBO( :, 4,54, 9) = (/&
+ & 1.1241E-03_JPRB,1.0934E-01_JPRB,1.8368E-01_JPRB,2.4822E-01_JPRB,2.9238E-01_JPRB/)  
+KBO( :, 5,54, 9) = (/&
+ & 2.0131E-03_JPRB,1.4639E-01_JPRB,2.4179E-01_JPRB,3.2314E-01_JPRB,3.8050E-01_JPRB/)  
+KBO( :, 1,55, 9) = (/&
+ & 9.7902E-05_JPRB,2.8554E-02_JPRB,5.0642E-02_JPRB,7.0457E-02_JPRB,8.2500E-02_JPRB/)  
+KBO( :, 2,55, 9) = (/&
+ & 2.1303E-04_JPRB,4.5829E-02_JPRB,8.0130E-02_JPRB,1.1056E-01_JPRB,1.2929E-01_JPRB/)  
+KBO( :, 3,55, 9) = (/&
+ & 4.3705E-04_JPRB,6.8906E-02_JPRB,1.1861E-01_JPRB,1.6229E-01_JPRB,1.9004E-01_JPRB/)  
+KBO( :, 4,55, 9) = (/&
+ & 8.4778E-04_JPRB,9.8145E-02_JPRB,1.6589E-01_JPRB,2.2492E-01_JPRB,2.6385E-01_JPRB/)  
+KBO( :, 5,55, 9) = (/&
+ & 1.5604E-03_JPRB,1.3338E-01_JPRB,2.2157E-01_JPRB,2.9717E-01_JPRB,3.4860E-01_JPRB/)  
+KBO( :, 1,56, 9) = (/&
+ & 6.5982E-05_JPRB,2.3749E-02_JPRB,4.2283E-02_JPRB,5.8930E-02_JPRB,6.8770E-02_JPRB/)  
+KBO( :, 2,56, 9) = (/&
+ & 1.4918E-04_JPRB,3.9269E-02_JPRB,6.8966E-02_JPRB,9.5347E-02_JPRB,1.1107E-01_JPRB/)  
+KBO( :, 3,56, 9) = (/&
+ & 3.1651E-04_JPRB,6.0448E-02_JPRB,1.0460E-01_JPRB,1.4348E-01_JPRB,1.6725E-01_JPRB/)  
+KBO( :, 4,56, 9) = (/&
+ & 6.3389E-04_JPRB,8.7699E-02_JPRB,1.4915E-01_JPRB,2.0282E-01_JPRB,2.3679E-01_JPRB/)  
+KBO( :, 5,56, 9) = (/&
+ & 1.2004E-03_JPRB,1.2107E-01_JPRB,2.0225E-01_JPRB,2.7220E-01_JPRB,3.1806E-01_JPRB/)  
+KBO( :, 1,57, 9) = (/&
+ & 4.3767E-05_JPRB,1.9535E-02_JPRB,3.4912E-02_JPRB,4.8732E-02_JPRB,5.6673E-02_JPRB/)  
+KBO( :, 2,57, 9) = (/&
+ & 1.0316E-04_JPRB,3.3365E-02_JPRB,5.8830E-02_JPRB,8.1501E-02_JPRB,9.4580E-02_JPRB/)  
+KBO( :, 3,57, 9) = (/&
+ & 2.2677E-04_JPRB,5.2688E-02_JPRB,9.1608E-02_JPRB,1.2597E-01_JPRB,1.4616E-01_JPRB/)  
+KBO( :, 4,57, 9) = (/&
+ & 4.6916E-04_JPRB,7.7962E-02_JPRB,1.3338E-01_JPRB,1.8187E-01_JPRB,2.1133E-01_JPRB/)  
+KBO( :, 5,57, 9) = (/&
+ & 9.1588E-04_JPRB,1.0942E-01_JPRB,1.8382E-01_JPRB,2.4826E-01_JPRB,2.8886E-01_JPRB/)  
+KBO( :, 1,58, 9) = (/&
+ & 2.9014E-05_JPRB,1.6044E-02_JPRB,2.8753E-02_JPRB,4.0190E-02_JPRB,4.6551E-02_JPRB/)  
+KBO( :, 2,58, 9) = (/&
+ & 7.1292E-05_JPRB,2.8332E-02_JPRB,5.0135E-02_JPRB,6.9583E-02_JPRB,8.0381E-02_JPRB/)  
+KBO( :, 3,58, 9) = (/&
+ & 1.6267E-04_JPRB,4.5930E-02_JPRB,8.0232E-02_JPRB,1.1053E-01_JPRB,1.2757E-01_JPRB/)  
+KBO( :, 4,58, 9) = (/&
+ & 3.4791E-04_JPRB,6.9359E-02_JPRB,1.1932E-01_JPRB,1.6310E-01_JPRB,1.8840E-01_JPRB/)  
+KBO( :, 5,58, 9) = (/&
+ & 7.0018E-04_JPRB,9.8967E-02_JPRB,1.6720E-01_JPRB,2.2650E-01_JPRB,2.6195E-01_JPRB/)  
+KBO( :, 1,59, 9) = (/&
+ & 2.2635E-05_JPRB,1.4643E-02_JPRB,2.6255E-02_JPRB,3.6697E-02_JPRB,4.2048E-02_JPRB/)  
+KBO( :, 2,59, 9) = (/&
+ & 5.7212E-05_JPRB,2.6338E-02_JPRB,4.6664E-02_JPRB,6.4796E-02_JPRB,7.3964E-02_JPRB/)  
+KBO( :, 3,59, 9) = (/&
+ & 1.3405E-04_JPRB,4.3265E-02_JPRB,7.5702E-02_JPRB,1.0436E-01_JPRB,1.1887E-01_JPRB/)  
+KBO( :, 4,59, 9) = (/&
+ & 2.9326E-04_JPRB,6.5970E-02_JPRB,1.1372E-01_JPRB,1.5558E-01_JPRB,1.7711E-01_JPRB/)  
+KBO( :, 5,59, 9) = (/&
+ & 6.0242E-04_JPRB,9.4820E-02_JPRB,1.6057E-01_JPRB,2.1777E-01_JPRB,2.4787E-01_JPRB/)  
+KBO( :, 1,13,10) = (/&
+ & 6.7750E-01_JPRB,1.1612E+00_JPRB,1.7683E+00_JPRB,2.4833E+00_JPRB,3.2280E+00_JPRB/)  
+KBO( :, 2,13,10) = (/&
+ & 9.8868E-01_JPRB,1.3195E+00_JPRB,1.8430E+00_JPRB,2.4544E+00_JPRB,3.1587E+00_JPRB/)  
+KBO( :, 3,13,10) = (/&
+ & 1.3619E+00_JPRB,1.5274E+00_JPRB,1.9406E+00_JPRB,2.4411E+00_JPRB,3.1000E+00_JPRB/)  
+KBO( :, 4,13,10) = (/&
+ & 1.7899E+00_JPRB,1.7565E+00_JPRB,2.0793E+00_JPRB,2.4696E+00_JPRB,3.0494E+00_JPRB/)  
+KBO( :, 5,13,10) = (/&
+ & 2.2734E+00_JPRB,2.0120E+00_JPRB,2.2415E+00_JPRB,2.5072E+00_JPRB,3.0022E+00_JPRB/)  
+KBO( :, 1,14,10) = (/&
+ & 6.6134E-01_JPRB,1.2265E+00_JPRB,1.9371E+00_JPRB,2.7275E+00_JPRB,3.5435E+00_JPRB/)  
+KBO( :, 2,14,10) = (/&
+ & 9.5434E-01_JPRB,1.3839E+00_JPRB,2.0016E+00_JPRB,2.7009E+00_JPRB,3.4774E+00_JPRB/)  
+KBO( :, 3,14,10) = (/&
+ & 1.3032E+00_JPRB,1.5702E+00_JPRB,2.0959E+00_JPRB,2.6930E+00_JPRB,3.4197E+00_JPRB/)  
+KBO( :, 4,14,10) = (/&
+ & 1.7103E+00_JPRB,1.7846E+00_JPRB,2.2135E+00_JPRB,2.7227E+00_JPRB,3.3624E+00_JPRB/)  
+KBO( :, 5,14,10) = (/&
+ & 2.1701E+00_JPRB,2.0313E+00_JPRB,2.3489E+00_JPRB,2.7404E+00_JPRB,3.3020E+00_JPRB/)  
+KBO( :, 1,15,10) = (/&
+ & 6.3051E-01_JPRB,1.3065E+00_JPRB,2.1302E+00_JPRB,2.9787E+00_JPRB,3.8647E+00_JPRB/)  
+KBO( :, 2,15,10) = (/&
+ & 9.0166E-01_JPRB,1.4415E+00_JPRB,2.2062E+00_JPRB,2.9568E+00_JPRB,3.8040E+00_JPRB/)  
+KBO( :, 3,15,10) = (/&
+ & 1.2283E+00_JPRB,1.6099E+00_JPRB,2.2945E+00_JPRB,2.9614E+00_JPRB,3.7464E+00_JPRB/)  
+KBO( :, 4,15,10) = (/&
+ & 1.6076E+00_JPRB,1.8076E+00_JPRB,2.3898E+00_JPRB,2.9892E+00_JPRB,3.6813E+00_JPRB/)  
+KBO( :, 5,15,10) = (/&
+ & 2.0350E+00_JPRB,2.0302E+00_JPRB,2.4952E+00_JPRB,3.0078E+00_JPRB,3.6149E+00_JPRB/)  
+KBO( :, 1,16,10) = (/&
+ & 5.8908E-01_JPRB,1.4179E+00_JPRB,2.3250E+00_JPRB,3.2386E+00_JPRB,4.2028E+00_JPRB/)  
+KBO( :, 2,16,10) = (/&
+ & 8.3922E-01_JPRB,1.5233E+00_JPRB,2.4132E+00_JPRB,3.2198E+00_JPRB,4.1391E+00_JPRB/)  
+KBO( :, 3,16,10) = (/&
+ & 1.1390E+00_JPRB,1.6562E+00_JPRB,2.5083E+00_JPRB,3.2400E+00_JPRB,4.0764E+00_JPRB/)  
+KBO( :, 4,16,10) = (/&
+ & 1.4867E+00_JPRB,1.8239E+00_JPRB,2.5939E+00_JPRB,3.2704E+00_JPRB,4.0090E+00_JPRB/)  
+KBO( :, 5,16,10) = (/&
+ & 1.8763E+00_JPRB,2.0203E+00_JPRB,2.6728E+00_JPRB,3.3036E+00_JPRB,3.9360E+00_JPRB/)  
+KBO( :, 1,17,10) = (/&
+ & 5.4248E-01_JPRB,1.5341E+00_JPRB,2.5200E+00_JPRB,3.4785E+00_JPRB,4.5198E+00_JPRB/)  
+KBO( :, 2,17,10) = (/&
+ & 7.6928E-01_JPRB,1.6341E+00_JPRB,2.6202E+00_JPRB,3.4798E+00_JPRB,4.4583E+00_JPRB/)  
+KBO( :, 3,17,10) = (/&
+ & 1.0404E+00_JPRB,1.7374E+00_JPRB,2.7194E+00_JPRB,3.5099E+00_JPRB,4.3924E+00_JPRB/)  
+KBO( :, 4,17,10) = (/&
+ & 1.3522E+00_JPRB,1.8611E+00_JPRB,2.8021E+00_JPRB,3.5422E+00_JPRB,4.3166E+00_JPRB/)  
+KBO( :, 5,17,10) = (/&
+ & 1.7001E+00_JPRB,2.0150E+00_JPRB,2.8795E+00_JPRB,3.5848E+00_JPRB,4.2409E+00_JPRB/)  
+KBO( :, 1,18,10) = (/&
+ & 4.9348E-01_JPRB,1.6382E+00_JPRB,2.7119E+00_JPRB,3.6984E+00_JPRB,4.7971E+00_JPRB/)  
+KBO( :, 2,18,10) = (/&
+ & 6.9669E-01_JPRB,1.7374E+00_JPRB,2.8139E+00_JPRB,3.7221E+00_JPRB,4.7361E+00_JPRB/)  
+KBO( :, 3,18,10) = (/&
+ & 9.3760E-01_JPRB,1.8373E+00_JPRB,2.9117E+00_JPRB,3.7521E+00_JPRB,4.6633E+00_JPRB/)  
+KBO( :, 4,18,10) = (/&
+ & 1.2130E+00_JPRB,1.9403E+00_JPRB,3.0001E+00_JPRB,3.7974E+00_JPRB,4.5895E+00_JPRB/)  
+KBO( :, 5,18,10) = (/&
+ & 1.5215E+00_JPRB,2.0549E+00_JPRB,3.0821E+00_JPRB,3.8475E+00_JPRB,4.5159E+00_JPRB/)  
+KBO( :, 1,19,10) = (/&
+ & 4.4294E-01_JPRB,1.7294E+00_JPRB,2.8772E+00_JPRB,3.8900E+00_JPRB,5.0246E+00_JPRB/)  
+KBO( :, 2,19,10) = (/&
+ & 6.2191E-01_JPRB,1.8298E+00_JPRB,2.9845E+00_JPRB,3.9195E+00_JPRB,4.9572E+00_JPRB/)  
+KBO( :, 3,19,10) = (/&
+ & 8.3280E-01_JPRB,1.9296E+00_JPRB,3.0814E+00_JPRB,3.9651E+00_JPRB,4.8890E+00_JPRB/)  
+KBO( :, 4,19,10) = (/&
+ & 1.0758E+00_JPRB,2.0307E+00_JPRB,3.1709E+00_JPRB,4.0288E+00_JPRB,4.8272E+00_JPRB/)  
+KBO( :, 5,19,10) = (/&
+ & 1.3553E+00_JPRB,2.1313E+00_JPRB,3.2530E+00_JPRB,4.0885E+00_JPRB,4.7625E+00_JPRB/)  
+KBO( :, 1,20,10) = (/&
+ & 3.9571E-01_JPRB,1.8051E+00_JPRB,3.0095E+00_JPRB,4.0443E+00_JPRB,5.1864E+00_JPRB/)  
+KBO( :, 2,20,10) = (/&
+ & 5.5188E-01_JPRB,1.9076E+00_JPRB,3.1223E+00_JPRB,4.0868E+00_JPRB,5.1320E+00_JPRB/)  
+KBO( :, 3,20,10) = (/&
+ & 7.3749E-01_JPRB,2.0075E+00_JPRB,3.2244E+00_JPRB,4.1593E+00_JPRB,5.0769E+00_JPRB/)  
+KBO( :, 4,20,10) = (/&
+ & 9.5721E-01_JPRB,2.1096E+00_JPRB,3.3164E+00_JPRB,4.2324E+00_JPRB,5.0165E+00_JPRB/)  
+KBO( :, 5,20,10) = (/&
+ & 1.2100E+00_JPRB,2.2109E+00_JPRB,3.3994E+00_JPRB,4.2966E+00_JPRB,4.9507E+00_JPRB/)  
+KBO( :, 1,21,10) = (/&
+ & 3.5072E-01_JPRB,1.8556E+00_JPRB,3.1080E+00_JPRB,4.1542E+00_JPRB,5.2872E+00_JPRB/)  
+KBO( :, 2,21,10) = (/&
+ & 4.8766E-01_JPRB,1.9607E+00_JPRB,3.2231E+00_JPRB,4.2283E+00_JPRB,5.2442E+00_JPRB/)  
+KBO( :, 3,21,10) = (/&
+ & 6.5440E-01_JPRB,2.0647E+00_JPRB,3.3316E+00_JPRB,4.3160E+00_JPRB,5.1977E+00_JPRB/)  
+KBO( :, 4,21,10) = (/&
+ & 8.5123E-01_JPRB,2.1675E+00_JPRB,3.4268E+00_JPRB,4.3944E+00_JPRB,5.1446E+00_JPRB/)  
+KBO( :, 5,21,10) = (/&
+ & 1.0760E+00_JPRB,2.2689E+00_JPRB,3.5139E+00_JPRB,4.4592E+00_JPRB,5.0861E+00_JPRB/)  
+KBO( :, 1,22,10) = (/&
+ & 3.1704E-01_JPRB,1.8909E+00_JPRB,3.1718E+00_JPRB,4.2211E+00_JPRB,5.3188E+00_JPRB/)  
+KBO( :, 2,22,10) = (/&
+ & 4.4113E-01_JPRB,1.9967E+00_JPRB,3.2921E+00_JPRB,4.3258E+00_JPRB,5.2898E+00_JPRB/)  
+KBO( :, 3,22,10) = (/&
+ & 5.9182E-01_JPRB,2.1052E+00_JPRB,3.4006E+00_JPRB,4.4235E+00_JPRB,5.2566E+00_JPRB/)  
+KBO( :, 4,22,10) = (/&
+ & 7.6857E-01_JPRB,2.2097E+00_JPRB,3.4994E+00_JPRB,4.5051E+00_JPRB,5.2176E+00_JPRB/)  
+KBO( :, 5,22,10) = (/&
+ & 9.7285E-01_JPRB,2.3126E+00_JPRB,3.5927E+00_JPRB,4.5701E+00_JPRB,5.1722E+00_JPRB/)  
+KBO( :, 1,23,10) = (/&
+ & 2.8927E-01_JPRB,1.9014E+00_JPRB,3.1969E+00_JPRB,4.2666E+00_JPRB,5.3040E+00_JPRB/)  
+KBO( :, 2,23,10) = (/&
+ & 4.0191E-01_JPRB,2.0125E+00_JPRB,3.3191E+00_JPRB,4.3795E+00_JPRB,5.2890E+00_JPRB/)  
+KBO( :, 3,23,10) = (/&
+ & 5.3783E-01_JPRB,2.1222E+00_JPRB,3.4289E+00_JPRB,4.4796E+00_JPRB,5.2663E+00_JPRB/)  
+KBO( :, 4,23,10) = (/&
+ & 6.9875E-01_JPRB,2.2290E+00_JPRB,3.5339E+00_JPRB,4.5665E+00_JPRB,5.2397E+00_JPRB/)  
+KBO( :, 5,23,10) = (/&
+ & 8.8602E-01_JPRB,2.3359E+00_JPRB,3.6321E+00_JPRB,4.6372E+00_JPRB,5.2101E+00_JPRB/)  
+KBO( :, 1,24,10) = (/&
+ & 2.6648E-01_JPRB,1.8914E+00_JPRB,3.1927E+00_JPRB,4.2785E+00_JPRB,5.2470E+00_JPRB/)  
+KBO( :, 2,24,10) = (/&
+ & 3.6872E-01_JPRB,2.0063E+00_JPRB,3.3129E+00_JPRB,4.3925E+00_JPRB,5.2443E+00_JPRB/)  
+KBO( :, 3,24,10) = (/&
+ & 4.9335E-01_JPRB,2.1181E+00_JPRB,3.4275E+00_JPRB,4.4944E+00_JPRB,5.2358E+00_JPRB/)  
+KBO( :, 4,24,10) = (/&
+ & 6.4237E-01_JPRB,2.2281E+00_JPRB,3.5391E+00_JPRB,4.5872E+00_JPRB,5.2224E+00_JPRB/)  
+KBO( :, 5,24,10) = (/&
+ & 8.1853E-01_JPRB,2.3388E+00_JPRB,3.6424E+00_JPRB,4.6721E+00_JPRB,5.2057E+00_JPRB/)  
+KBO( :, 1,25,10) = (/&
+ & 2.4735E-01_JPRB,1.8676E+00_JPRB,3.1644E+00_JPRB,4.2512E+00_JPRB,5.1457E+00_JPRB/)  
+KBO( :, 2,25,10) = (/&
+ & 3.4172E-01_JPRB,1.9814E+00_JPRB,3.2839E+00_JPRB,4.3716E+00_JPRB,5.1625E+00_JPRB/)  
+KBO( :, 3,25,10) = (/&
+ & 4.5795E-01_JPRB,2.0952E+00_JPRB,3.4036E+00_JPRB,4.4805E+00_JPRB,5.1730E+00_JPRB/)  
+KBO( :, 4,25,10) = (/&
+ & 5.9795E-01_JPRB,2.2113E+00_JPRB,3.5208E+00_JPRB,4.5808E+00_JPRB,5.1736E+00_JPRB/)  
+KBO( :, 5,25,10) = (/&
+ & 7.5984E-01_JPRB,2.3264E+00_JPRB,3.6336E+00_JPRB,4.6738E+00_JPRB,5.1743E+00_JPRB/)  
+KBO( :, 1,26,10) = (/&
+ & 2.3360E-01_JPRB,1.8352E+00_JPRB,3.1131E+00_JPRB,4.1942E+00_JPRB,5.0148E+00_JPRB/)  
+KBO( :, 2,26,10) = (/&
+ & 3.2286E-01_JPRB,1.9478E+00_JPRB,3.2410E+00_JPRB,4.3228E+00_JPRB,5.0531E+00_JPRB/)  
+KBO( :, 3,26,10) = (/&
+ & 4.3204E-01_JPRB,2.0643E+00_JPRB,3.3666E+00_JPRB,4.4432E+00_JPRB,5.0819E+00_JPRB/)  
+KBO( :, 4,26,10) = (/&
+ & 5.6016E-01_JPRB,2.1838E+00_JPRB,3.4889E+00_JPRB,4.5535E+00_JPRB,5.1063E+00_JPRB/)  
+KBO( :, 5,26,10) = (/&
+ & 7.0753E-01_JPRB,2.3058E+00_JPRB,3.6092E+00_JPRB,4.6573E+00_JPRB,5.1261E+00_JPRB/)  
+KBO( :, 1,27,10) = (/&
+ & 2.2294E-01_JPRB,1.7950E+00_JPRB,3.0495E+00_JPRB,4.1133E+00_JPRB,4.8609E+00_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART26',1,ZHOOK_HANDLE)
+END SUBROUTINE PART26
+
+
+SUBROUTINE PART27
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART27',0,ZHOOK_HANDLE)
+
+
+KBO( :, 2,27,10) = (/&
+ & 3.0707E-01_JPRB,1.9093E+00_JPRB,3.1862E+00_JPRB,4.2562E+00_JPRB,4.9227E+00_JPRB/)  
+KBO( :, 3,27,10) = (/&
+ & 4.0769E-01_JPRB,2.0286E+00_JPRB,3.3192E+00_JPRB,4.3886E+00_JPRB,4.9781E+00_JPRB/)  
+KBO( :, 4,27,10) = (/&
+ & 5.2517E-01_JPRB,2.1513E+00_JPRB,3.4485E+00_JPRB,4.5128E+00_JPRB,5.0272E+00_JPRB/)  
+KBO( :, 5,27,10) = (/&
+ & 6.6106E-01_JPRB,2.2811E+00_JPRB,3.5767E+00_JPRB,4.6309E+00_JPRB,5.0714E+00_JPRB/)  
+KBO( :, 1,28,10) = (/&
+ & 2.1278E-01_JPRB,1.7516E+00_JPRB,2.9793E+00_JPRB,4.0203E+00_JPRB,4.7023E+00_JPRB/)  
+KBO( :, 2,28,10) = (/&
+ & 2.9077E-01_JPRB,1.8695E+00_JPRB,3.1275E+00_JPRB,4.1790E+00_JPRB,4.7891E+00_JPRB/)  
+KBO( :, 3,28,10) = (/&
+ & 3.8371E-01_JPRB,1.9907E+00_JPRB,3.2690E+00_JPRB,4.3298E+00_JPRB,4.8703E+00_JPRB/)  
+KBO( :, 4,28,10) = (/&
+ & 4.9305E-01_JPRB,2.1190E+00_JPRB,3.4062E+00_JPRB,4.4719E+00_JPRB,4.9485E+00_JPRB/)  
+KBO( :, 5,28,10) = (/&
+ & 6.1872E-01_JPRB,2.2538E+00_JPRB,3.5418E+00_JPRB,4.5998E+00_JPRB,5.0210E+00_JPRB/)  
+KBO( :, 1,29,10) = (/&
+ & 2.0270E-01_JPRB,1.7094E+00_JPRB,2.9099E+00_JPRB,3.9283E+00_JPRB,4.5455E+00_JPRB/)  
+KBO( :, 2,29,10) = (/&
+ & 2.7494E-01_JPRB,1.8321E+00_JPRB,3.0685E+00_JPRB,4.1039E+00_JPRB,4.6641E+00_JPRB/)  
+KBO( :, 3,29,10) = (/&
+ & 3.6154E-01_JPRB,1.9564E+00_JPRB,3.2214E+00_JPRB,4.2736E+00_JPRB,4.7773E+00_JPRB/)  
+KBO( :, 4,29,10) = (/&
+ & 4.6300E-01_JPRB,2.0903E+00_JPRB,3.3694E+00_JPRB,4.4317E+00_JPRB,4.8838E+00_JPRB/)  
+KBO( :, 5,29,10) = (/&
+ & 5.8057E-01_JPRB,2.2289E+00_JPRB,3.5079E+00_JPRB,4.5763E+00_JPRB,4.9830E+00_JPRB/)  
+KBO( :, 1,30,10) = (/&
+ & 1.9279E-01_JPRB,1.6706E+00_JPRB,2.8469E+00_JPRB,3.8440E+00_JPRB,4.4080E+00_JPRB/)  
+KBO( :, 2,30,10) = (/&
+ & 2.6009E-01_JPRB,1.7962E+00_JPRB,3.0153E+00_JPRB,4.0402E+00_JPRB,4.5583E+00_JPRB/)  
+KBO( :, 3,30,10) = (/&
+ & 3.4074E-01_JPRB,1.9283E+00_JPRB,3.1794E+00_JPRB,4.2253E+00_JPRB,4.7038E+00_JPRB/)  
+KBO( :, 4,30,10) = (/&
+ & 4.3604E-01_JPRB,2.0655E+00_JPRB,3.3337E+00_JPRB,4.4011E+00_JPRB,4.8377E+00_JPRB/)  
+KBO( :, 5,30,10) = (/&
+ & 5.4764E-01_JPRB,2.2092E+00_JPRB,3.4808E+00_JPRB,4.5595E+00_JPRB,4.9628E+00_JPRB/)  
+KBO( :, 1,31,10) = (/&
+ & 1.8369E-01_JPRB,1.6365E+00_JPRB,2.7938E+00_JPRB,3.7778E+00_JPRB,4.2984E+00_JPRB/)  
+KBO( :, 2,31,10) = (/&
+ & 2.4679E-01_JPRB,1.7684E+00_JPRB,2.9729E+00_JPRB,3.9905E+00_JPRB,4.4818E+00_JPRB/)  
+KBO( :, 3,31,10) = (/&
+ & 3.2266E-01_JPRB,1.9061E+00_JPRB,3.1442E+00_JPRB,4.1950E+00_JPRB,4.6519E+00_JPRB/)  
+KBO( :, 4,31,10) = (/&
+ & 4.1304E-01_JPRB,2.0477E+00_JPRB,3.3074E+00_JPRB,4.3826E+00_JPRB,4.8118E+00_JPRB/)  
+KBO( :, 5,31,10) = (/&
+ & 5.2000E-01_JPRB,2.1969E+00_JPRB,3.4636E+00_JPRB,4.5527E+00_JPRB,4.9659E+00_JPRB/)  
+KBO( :, 1,32,10) = (/&
+ & 1.7551E-01_JPRB,1.6097E+00_JPRB,2.7544E+00_JPRB,3.7286E+00_JPRB,4.2211E+00_JPRB/)  
+KBO( :, 2,32,10) = (/&
+ & 2.3510E-01_JPRB,1.7486E+00_JPRB,2.9407E+00_JPRB,3.9624E+00_JPRB,4.4263E+00_JPRB/)  
+KBO( :, 3,32,10) = (/&
+ & 3.0724E-01_JPRB,1.8916E+00_JPRB,3.1218E+00_JPRB,4.1778E+00_JPRB,4.6235E+00_JPRB/)  
+KBO( :, 4,32,10) = (/&
+ & 3.9398E-01_JPRB,2.0379E+00_JPRB,3.2915E+00_JPRB,4.3768E+00_JPRB,4.8156E+00_JPRB/)  
+KBO( :, 5,32,10) = (/&
+ & 4.9781E-01_JPRB,2.1923E+00_JPRB,3.4588E+00_JPRB,4.5574E+00_JPRB,4.9861E+00_JPRB/)  
+KBO( :, 1,33,10) = (/&
+ & 1.6799E-01_JPRB,1.5914E+00_JPRB,2.7274E+00_JPRB,3.7024E+00_JPRB,4.1697E+00_JPRB/)  
+KBO( :, 2,33,10) = (/&
+ & 2.2491E-01_JPRB,1.7368E+00_JPRB,2.9243E+00_JPRB,3.9492E+00_JPRB,4.4031E+00_JPRB/)  
+KBO( :, 3,33,10) = (/&
+ & 2.9437E-01_JPRB,1.8837E+00_JPRB,3.1109E+00_JPRB,4.1768E+00_JPRB,4.6308E+00_JPRB/)  
+KBO( :, 4,33,10) = (/&
+ & 3.7842E-01_JPRB,2.0362E+00_JPRB,3.2892E+00_JPRB,4.3833E+00_JPRB,4.8420E+00_JPRB/)  
+KBO( :, 5,33,10) = (/&
+ & 4.8057E-01_JPRB,2.1931E+00_JPRB,3.4634E+00_JPRB,4.5721E+00_JPRB,5.0256E+00_JPRB/)  
+KBO( :, 1,34,10) = (/&
+ & 1.5948E-01_JPRB,1.5775E+00_JPRB,2.7077E+00_JPRB,3.6846E+00_JPRB,4.1408E+00_JPRB/)  
+KBO( :, 2,34,10) = (/&
+ & 2.1390E-01_JPRB,1.7270E+00_JPRB,2.9131E+00_JPRB,3.9429E+00_JPRB,4.4016E+00_JPRB/)  
+KBO( :, 3,34,10) = (/&
+ & 2.8085E-01_JPRB,1.8791E+00_JPRB,3.1047E+00_JPRB,4.1792E+00_JPRB,4.6526E+00_JPRB/)  
+KBO( :, 4,34,10) = (/&
+ & 3.6334E-01_JPRB,2.0371E+00_JPRB,3.2904E+00_JPRB,4.3938E+00_JPRB,4.8733E+00_JPRB/)  
+KBO( :, 5,34,10) = (/&
+ & 4.6344E-01_JPRB,2.1941E+00_JPRB,3.4718E+00_JPRB,4.5911E+00_JPRB,5.0724E+00_JPRB/)  
+KBO( :, 1,35,10) = (/&
+ & 1.4741E-01_JPRB,1.5567E+00_JPRB,2.6803E+00_JPRB,3.6561E+00_JPRB,4.1139E+00_JPRB/)  
+KBO( :, 2,35,10) = (/&
+ & 1.9866E-01_JPRB,1.7096E+00_JPRB,2.8922E+00_JPRB,3.9256E+00_JPRB,4.4015E+00_JPRB/)  
+KBO( :, 3,35,10) = (/&
+ & 2.6293E-01_JPRB,1.8664E+00_JPRB,3.0898E+00_JPRB,4.1709E+00_JPRB,4.6633E+00_JPRB/)  
+KBO( :, 4,35,10) = (/&
+ & 3.4264E-01_JPRB,2.0276E+00_JPRB,3.2824E+00_JPRB,4.3940E+00_JPRB,4.8993E+00_JPRB/)  
+KBO( :, 5,35,10) = (/&
+ & 4.3976E-01_JPRB,2.1842E+00_JPRB,3.4695E+00_JPRB,4.5966E+00_JPRB,5.1130E+00_JPRB/)  
+KBO( :, 1,36,10) = (/&
+ & 1.3214E-01_JPRB,1.5254E+00_JPRB,2.6382E+00_JPRB,3.6093E+00_JPRB,4.0744E+00_JPRB/)  
+KBO( :, 2,36,10) = (/&
+ & 1.7956E-01_JPRB,1.6813E+00_JPRB,2.8567E+00_JPRB,3.8896E+00_JPRB,4.3806E+00_JPRB/)  
+KBO( :, 3,36,10) = (/&
+ & 2.4004E-01_JPRB,1.8415E+00_JPRB,3.0610E+00_JPRB,4.1453E+00_JPRB,4.6577E+00_JPRB/)  
+KBO( :, 4,36,10) = (/&
+ & 3.1565E-01_JPRB,2.0040E+00_JPRB,3.2597E+00_JPRB,4.3756E+00_JPRB,4.9082E+00_JPRB/)  
+KBO( :, 5,36,10) = (/&
+ & 4.0871E-01_JPRB,2.1610E+00_JPRB,3.4521E+00_JPRB,4.5836E+00_JPRB,5.1373E+00_JPRB/)  
+KBO( :, 1,37,10) = (/&
+ & 1.1316E-01_JPRB,1.4752E+00_JPRB,2.5688E+00_JPRB,3.5261E+00_JPRB,3.9938E+00_JPRB/)  
+KBO( :, 2,37,10) = (/&
+ & 1.5558E-01_JPRB,1.6337E+00_JPRB,2.7946E+00_JPRB,3.8188E+00_JPRB,4.3194E+00_JPRB/)  
+KBO( :, 3,37,10) = (/&
+ & 2.1051E-01_JPRB,1.7957E+00_JPRB,3.0066E+00_JPRB,4.0860E+00_JPRB,4.6128E+00_JPRB/)  
+KBO( :, 4,37,10) = (/&
+ & 2.8028E-01_JPRB,1.9593E+00_JPRB,3.2111E+00_JPRB,4.3259E+00_JPRB,4.8781E+00_JPRB/)  
+KBO( :, 5,37,10) = (/&
+ & 3.6684E-01_JPRB,2.1183E+00_JPRB,3.4096E+00_JPRB,4.5437E+00_JPRB,5.1231E+00_JPRB/)  
+KBO( :, 1,38,10) = (/&
+ & 9.6748E-02_JPRB,1.4275E+00_JPRB,2.5025E+00_JPRB,3.4448E+00_JPRB,3.9178E+00_JPRB/)  
+KBO( :, 2,38,10) = (/&
+ & 1.3470E-01_JPRB,1.5886E+00_JPRB,2.7351E+00_JPRB,3.7489E+00_JPRB,4.2599E+00_JPRB/)  
+KBO( :, 3,38,10) = (/&
+ & 1.8442E-01_JPRB,1.7514E+00_JPRB,2.9540E+00_JPRB,4.0269E+00_JPRB,4.5684E+00_JPRB/)  
+KBO( :, 4,38,10) = (/&
+ & 2.4862E-01_JPRB,1.9169E+00_JPRB,3.1637E+00_JPRB,4.2769E+00_JPRB,4.8492E+00_JPRB/)  
+KBO( :, 5,38,10) = (/&
+ & 3.2905E-01_JPRB,2.0776E+00_JPRB,3.3672E+00_JPRB,4.5027E+00_JPRB,5.1082E+00_JPRB/)  
+KBO( :, 1,39,10) = (/&
+ & 8.2846E-02_JPRB,1.3834E+00_JPRB,2.4412E+00_JPRB,3.3680E+00_JPRB,3.8485E+00_JPRB/)  
+KBO( :, 2,39,10) = (/&
+ & 1.1685E-01_JPRB,1.5463E+00_JPRB,2.6796E+00_JPRB,3.6824E+00_JPRB,4.2039E+00_JPRB/)  
+KBO( :, 3,39,10) = (/&
+ & 1.6194E-01_JPRB,1.7108E+00_JPRB,2.9043E+00_JPRB,3.9699E+00_JPRB,4.5285E+00_JPRB/)  
+KBO( :, 4,39,10) = (/&
+ & 2.2088E-01_JPRB,1.8779E+00_JPRB,3.1188E+00_JPRB,4.2292E+00_JPRB,4.8250E+00_JPRB/)  
+KBO( :, 5,39,10) = (/&
+ & 2.9576E-01_JPRB,2.0398E+00_JPRB,3.3275E+00_JPRB,4.4625E+00_JPRB,5.0971E+00_JPRB/)  
+KBO( :, 1,40,10) = (/&
+ & 6.8460E-02_JPRB,1.3257E+00_JPRB,2.3577E+00_JPRB,3.2603E+00_JPRB,3.7339E+00_JPRB/)  
+KBO( :, 2,40,10) = (/&
+ & 9.7988E-02_JPRB,1.4903E+00_JPRB,2.6023E+00_JPRB,3.5872E+00_JPRB,4.1045E+00_JPRB/)  
+KBO( :, 3,40,10) = (/&
+ & 1.3775E-01_JPRB,1.6559E+00_JPRB,2.8336E+00_JPRB,3.8858E+00_JPRB,4.4458E+00_JPRB/)  
+KBO( :, 4,40,10) = (/&
+ & 1.9045E-01_JPRB,1.8245E+00_JPRB,3.0542E+00_JPRB,4.1559E+00_JPRB,4.7581E+00_JPRB/)  
+KBO( :, 5,40,10) = (/&
+ & 2.5849E-01_JPRB,1.9886E+00_JPRB,3.2674E+00_JPRB,4.3994E+00_JPRB,5.0432E+00_JPRB/)  
+KBO( :, 1,41,10) = (/&
+ & 5.6234E-02_JPRB,1.2690E+00_JPRB,2.2720E+00_JPRB,3.1495E+00_JPRB,3.6139E+00_JPRB/)  
+KBO( :, 2,41,10) = (/&
+ & 8.1724E-02_JPRB,1.4342E+00_JPRB,2.5230E+00_JPRB,3.4875E+00_JPRB,3.9992E+00_JPRB/)  
+KBO( :, 3,41,10) = (/&
+ & 1.1661E-01_JPRB,1.6007E+00_JPRB,2.7616E+00_JPRB,3.7972E+00_JPRB,4.3567E+00_JPRB/)  
+KBO( :, 4,41,10) = (/&
+ & 1.6350E-01_JPRB,1.7709E+00_JPRB,2.9870E+00_JPRB,4.0779E+00_JPRB,4.6840E+00_JPRB/)  
+KBO( :, 5,41,10) = (/&
+ & 2.2482E-01_JPRB,1.9373E+00_JPRB,3.2036E+00_JPRB,4.3314E+00_JPRB,4.9822E+00_JPRB/)  
+KBO( :, 1,42,10) = (/&
+ & 4.6099E-02_JPRB,1.2146E+00_JPRB,2.1872E+00_JPRB,3.0381E+00_JPRB,3.4945E+00_JPRB/)  
+KBO( :, 2,42,10) = (/&
+ & 6.8068E-02_JPRB,1.3798E+00_JPRB,2.4452E+00_JPRB,3.3871E+00_JPRB,3.8938E+00_JPRB/)  
+KBO( :, 3,42,10) = (/&
+ & 9.8587E-02_JPRB,1.5478E+00_JPRB,2.6891E+00_JPRB,3.7072E+00_JPRB,4.2665E+00_JPRB/)  
+KBO( :, 4,42,10) = (/&
+ & 1.4020E-01_JPRB,1.7187E+00_JPRB,2.9198E+00_JPRB,3.9988E+00_JPRB,4.6092E+00_JPRB/)  
+KBO( :, 5,42,10) = (/&
+ & 1.9544E-01_JPRB,1.8864E+00_JPRB,3.1414E+00_JPRB,4.2616E+00_JPRB,4.9213E+00_JPRB/)  
+KBO( :, 1,43,10) = (/&
+ & 3.6837E-02_JPRB,1.1530E+00_JPRB,2.0885E+00_JPRB,2.9067E+00_JPRB,3.3518E+00_JPRB/)  
+KBO( :, 2,43,10) = (/&
+ & 5.5339E-02_JPRB,1.3181E+00_JPRB,2.3532E+00_JPRB,3.2663E+00_JPRB,3.7650E+00_JPRB/)  
+KBO( :, 3,43,10) = (/&
+ & 8.1513E-02_JPRB,1.4866E+00_JPRB,2.6028E+00_JPRB,3.5988E+00_JPRB,4.1527E+00_JPRB/)  
+KBO( :, 4,43,10) = (/&
+ & 1.1773E-01_JPRB,1.6570E+00_JPRB,2.8399E+00_JPRB,3.9012E+00_JPRB,4.5115E+00_JPRB/)  
+KBO( :, 5,43,10) = (/&
+ & 1.6664E-01_JPRB,1.8278E+00_JPRB,3.0668E+00_JPRB,4.1754E+00_JPRB,4.8396E+00_JPRB/)  
+KBO( :, 1,44,10) = (/&
+ & 2.8988E-02_JPRB,1.0887E+00_JPRB,1.9830E+00_JPRB,2.7653E+00_JPRB,3.1966E+00_JPRB/)  
+KBO( :, 2,44,10) = (/&
+ & 4.4338E-02_JPRB,1.2532E+00_JPRB,2.2540E+00_JPRB,3.1344E+00_JPRB,3.6243E+00_JPRB/)  
+KBO( :, 3,44,10) = (/&
+ & 6.6501E-02_JPRB,1.4222E+00_JPRB,2.5105E+00_JPRB,3.4789E+00_JPRB,4.0260E+00_JPRB/)  
+KBO( :, 4,44,10) = (/&
+ & 9.7639E-02_JPRB,1.5932E+00_JPRB,2.7543E+00_JPRB,3.7931E+00_JPRB,4.4021E+00_JPRB/)  
+KBO( :, 5,44,10) = (/&
+ & 1.4052E-01_JPRB,1.7655E+00_JPRB,2.9842E+00_JPRB,4.0798E+00_JPRB,4.7466E+00_JPRB/)  
+KBO( :, 1,45,10) = (/&
+ & 2.2674E-02_JPRB,1.0257E+00_JPRB,1.8783E+00_JPRB,2.6228E+00_JPRB,3.0412E+00_JPRB/)  
+KBO( :, 2,45,10) = (/&
+ & 3.5361E-02_JPRB,1.1906E+00_JPRB,2.1544E+00_JPRB,3.0007E+00_JPRB,3.4821E+00_JPRB/)  
+KBO( :, 3,45,10) = (/&
+ & 5.3984E-02_JPRB,1.3593E+00_JPRB,2.4179E+00_JPRB,3.3558E+00_JPRB,3.8978E+00_JPRB/)  
+KBO( :, 4,45,10) = (/&
+ & 8.0687E-02_JPRB,1.5302E+00_JPRB,2.6662E+00_JPRB,3.6830E+00_JPRB,4.2916E+00_JPRB/)  
+KBO( :, 5,45,10) = (/&
+ & 1.1807E-01_JPRB,1.7032E+00_JPRB,2.9026E+00_JPRB,3.9804E+00_JPRB,4.6530E+00_JPRB/)  
+KBO( :, 1,46,10) = (/&
+ & 1.7410E-02_JPRB,9.6094E-01_JPRB,1.7674E+00_JPRB,2.4706E+00_JPRB,2.8739E+00_JPRB/)  
+KBO( :, 2,46,10) = (/&
+ & 2.7786E-02_JPRB,1.1256E+00_JPRB,2.0477E+00_JPRB,2.8564E+00_JPRB,3.3272E+00_JPRB/)  
+KBO( :, 3,46,10) = (/&
+ & 4.3233E-02_JPRB,1.2931E+00_JPRB,2.3174E+00_JPRB,3.2226E+00_JPRB,3.7574E+00_JPRB/)  
+KBO( :, 4,46,10) = (/&
+ & 6.5795E-02_JPRB,1.4641E+00_JPRB,2.5723E+00_JPRB,3.5627E+00_JPRB,4.1675E+00_JPRB/)  
+KBO( :, 5,46,10) = (/&
+ & 9.8017E-02_JPRB,1.6372E+00_JPRB,2.8147E+00_JPRB,3.8708E+00_JPRB,4.5474E+00_JPRB/)  
+KBO( :, 1,47,10) = (/&
+ & 1.2932E-02_JPRB,8.9077E-01_JPRB,1.6439E+00_JPRB,2.2995E+00_JPRB,2.6825E+00_JPRB/)  
+KBO( :, 2,47,10) = (/&
+ & 2.1223E-02_JPRB,1.0540E+00_JPRB,1.9287E+00_JPRB,2.6946E+00_JPRB,3.1473E+00_JPRB/)  
+KBO( :, 3,47,10) = (/&
+ & 3.3771E-02_JPRB,1.2207E+00_JPRB,2.2047E+00_JPRB,3.0711E+00_JPRB,3.5926E+00_JPRB/)  
+KBO( :, 4,47,10) = (/&
+ & 5.2401E-02_JPRB,1.3916E+00_JPRB,2.4667E+00_JPRB,3.4226E+00_JPRB,4.0177E+00_JPRB/)  
+KBO( :, 5,47,10) = (/&
+ & 7.9614E-02_JPRB,1.5646E+00_JPRB,2.7148E+00_JPRB,3.7454E+00_JPRB,4.4170E+00_JPRB/)  
+KBO( :, 1,48,10) = (/&
+ & 9.4853E-03_JPRB,8.2116E-01_JPRB,1.5192E+00_JPRB,2.1278E+00_JPRB,2.4903E+00_JPRB/)  
+KBO( :, 2,48,10) = (/&
+ & 1.6017E-02_JPRB,9.8364E-01_JPRB,1.8094E+00_JPRB,2.5302E+00_JPRB,2.9654E+00_JPRB/)  
+KBO( :, 3,48,10) = (/&
+ & 2.6151E-02_JPRB,1.1500E+00_JPRB,2.0897E+00_JPRB,2.9152E+00_JPRB,3.4258E+00_JPRB/)  
+KBO( :, 4,48,10) = (/&
+ & 4.1450E-02_JPRB,1.3196E+00_JPRB,2.3589E+00_JPRB,3.2790E+00_JPRB,3.8661E+00_JPRB/)  
+KBO( :, 5,48,10) = (/&
+ & 6.4206E-02_JPRB,1.4922E+00_JPRB,2.6125E+00_JPRB,3.6159E+00_JPRB,4.2851E+00_JPRB/)  
+KBO( :, 1,49,10) = (/&
+ & 6.8584E-03_JPRB,7.5265E-01_JPRB,1.3951E+00_JPRB,1.9557E+00_JPRB,2.2987E+00_JPRB/)  
+KBO( :, 2,49,10) = (/&
+ & 1.1934E-02_JPRB,9.1467E-01_JPRB,1.6885E+00_JPRB,2.3631E+00_JPRB,2.7820E+00_JPRB/)  
+KBO( :, 3,49,10) = (/&
+ & 2.0019E-02_JPRB,1.0797E+00_JPRB,1.9731E+00_JPRB,2.7567E+00_JPRB,3.2569E+00_JPRB/)  
+KBO( :, 4,49,10) = (/&
+ & 3.2532E-02_JPRB,1.2481E+00_JPRB,2.2484E+00_JPRB,3.1312E+00_JPRB,3.7144E+00_JPRB/)  
+KBO( :, 5,49,10) = (/&
+ & 5.1423E-02_JPRB,1.4202E+00_JPRB,2.5087E+00_JPRB,3.4802E+00_JPRB,4.1524E+00_JPRB/)  
+KBO( :, 1,50,10) = (/&
+ & 4.9588E-03_JPRB,6.8907E-01_JPRB,1.2794E+00_JPRB,1.7942E+00_JPRB,2.1153E+00_JPRB/)  
+KBO( :, 2,50,10) = (/&
+ & 8.8947E-03_JPRB,8.5045E-01_JPRB,1.5739E+00_JPRB,2.2042E+00_JPRB,2.6031E+00_JPRB/)  
+KBO( :, 3,50,10) = (/&
+ & 1.5348E-02_JPRB,1.0143E+00_JPRB,1.8632E+00_JPRB,2.6056E+00_JPRB,3.0870E+00_JPRB/)  
+KBO( :, 4,50,10) = (/&
+ & 2.5608E-02_JPRB,1.1821E+00_JPRB,2.1430E+00_JPRB,2.9888E+00_JPRB,3.5596E+00_JPRB/)  
+KBO( :, 5,50,10) = (/&
+ & 4.1387E-02_JPRB,1.3536E+00_JPRB,2.4101E+00_JPRB,3.3481E+00_JPRB,4.0115E+00_JPRB/)  
+KBO( :, 1,51,10) = (/&
+ & 3.5571E-03_JPRB,6.2785E-01_JPRB,1.1678E+00_JPRB,1.6386E+00_JPRB,1.9369E+00_JPRB/)  
+KBO( :, 2,51,10) = (/&
+ & 6.5893E-03_JPRB,7.8876E-01_JPRB,1.4624E+00_JPRB,2.0498E+00_JPRB,2.4257E+00_JPRB/)  
+KBO( :, 3,51,10) = (/&
+ & 1.1707E-02_JPRB,9.5177E-01_JPRB,1.7551E+00_JPRB,2.4566E+00_JPRB,2.9162E+00_JPRB/)  
+KBO( :, 4,51,10) = (/&
+ & 2.0074E-02_JPRB,1.1187E+00_JPRB,2.0387E+00_JPRB,2.8466E+00_JPRB,3.3998E+00_JPRB/)  
+KBO( :, 5,51,10) = (/&
+ & 3.3273E-02_JPRB,1.2890E+00_JPRB,2.3117E+00_JPRB,3.2168E+00_JPRB,3.8651E+00_JPRB/)  
+KBO( :, 1,52,10) = (/&
+ & 2.5127E-03_JPRB,5.6820E-01_JPRB,1.0583E+00_JPRB,1.4864E+00_JPRB,1.7624E+00_JPRB/)  
+KBO( :, 2,52,10) = (/&
+ & 4.8248E-03_JPRB,7.2792E-01_JPRB,1.3512E+00_JPRB,1.8952E+00_JPRB,2.2490E+00_JPRB/)  
+KBO( :, 3,52,10) = (/&
+ & 8.8346E-03_JPRB,8.9029E-01_JPRB,1.6463E+00_JPRB,2.3052E+00_JPRB,2.7452E+00_JPRB/)  
+KBO( :, 4,52,10) = (/&
+ & 1.5583E-02_JPRB,1.0558E+00_JPRB,1.9336E+00_JPRB,2.7033E+00_JPRB,3.2391E+00_JPRB/)  
+KBO( :, 5,52,10) = (/&
+ & 2.6529E-02_JPRB,1.2246E+00_JPRB,2.2115E+00_JPRB,3.0824E+00_JPRB,3.7180E+00_JPRB/)  
+KBO( :, 1,53,10) = (/&
+ & 1.7459E-03_JPRB,5.1010E-01_JPRB,9.5136E-01_JPRB,1.3367E+00_JPRB,1.5916E+00_JPRB/)  
+KBO( :, 2,53,10) = (/&
+ & 3.4808E-03_JPRB,6.6729E-01_JPRB,1.2403E+00_JPRB,1.7405E+00_JPRB,2.0746E+00_JPRB/)  
+KBO( :, 3,53,10) = (/&
+ & 6.5872E-03_JPRB,8.2899E-01_JPRB,1.5363E+00_JPRB,2.1529E+00_JPRB,2.5747E+00_JPRB/)  
+KBO( :, 4,53,10) = (/&
+ & 1.1962E-02_JPRB,9.9325E-01_JPRB,1.8279E+00_JPRB,2.5576E+00_JPRB,3.0783E+00_JPRB/)  
+KBO( :, 5,53,10) = (/&
+ & 2.0951E-02_JPRB,1.1616E+00_JPRB,2.1096E+00_JPRB,2.9440E+00_JPRB,3.5715E+00_JPRB/)  
+KBO( :, 1,54,10) = (/&
+ & 1.2204E-03_JPRB,4.5823E-01_JPRB,8.5579E-01_JPRB,1.2025E+00_JPRB,1.4326E+00_JPRB/)  
+KBO( :, 2,54,10) = (/&
+ & 2.5281E-03_JPRB,6.1212E-01_JPRB,1.1396E+00_JPRB,1.5999E+00_JPRB,1.9069E+00_JPRB/)  
+KBO( :, 3,54,10) = (/&
+ & 4.9409E-03_JPRB,7.7338E-01_JPRB,1.4350E+00_JPRB,2.0125E+00_JPRB,2.4041E+00_JPRB/)  
+KBO( :, 4,54,10) = (/&
+ & 9.2436E-03_JPRB,9.3695E-01_JPRB,1.7295E+00_JPRB,2.4215E+00_JPRB,2.9094E+00_JPRB/)  
+KBO( :, 5,54,10) = (/&
+ & 1.6670E-02_JPRB,1.1040E+00_JPRB,2.0145E+00_JPRB,2.8142E+00_JPRB,3.4095E+00_JPRB/)  
+KBO( :, 1,55,10) = (/&
+ & 8.4904E-04_JPRB,4.1031E-01_JPRB,7.6714E-01_JPRB,1.0777E+00_JPRB,1.2810E+00_JPRB/)  
+KBO( :, 2,55,10) = (/&
+ & 1.8289E-03_JPRB,5.6051E-01_JPRB,1.0445E+00_JPRB,1.4675E+00_JPRB,1.7437E+00_JPRB/)  
+KBO( :, 3,55,10) = (/&
+ & 3.6957E-03_JPRB,7.2049E-01_JPRB,1.3381E+00_JPRB,1.8775E+00_JPRB,2.2346E+00_JPRB/)  
+KBO( :, 4,55,10) = (/&
+ & 7.1338E-03_JPRB,8.8320E-01_JPRB,1.6342E+00_JPRB,2.2888E+00_JPRB,2.7356E+00_JPRB/)  
+KBO( :, 5,55,10) = (/&
+ & 1.3248E-02_JPRB,1.0490E+00_JPRB,1.9226E+00_JPRB,2.6886E+00_JPRB,3.2366E+00_JPRB/)  
+KBO( :, 1,56,10) = (/&
+ & 5.8188E-04_JPRB,3.6451E-01_JPRB,6.8188E-01_JPRB,9.5775E-01_JPRB,1.1364E+00_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART27',1,ZHOOK_HANDLE)
+END SUBROUTINE PART27
+
+
+SUBROUTINE PART28
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART28',0,ZHOOK_HANDLE)
+
+
+KBO( :, 2,56,10) = (/&
+ & 1.3061E-03_JPRB,5.1010E-01_JPRB,9.5157E-01_JPRB,1.3373E+00_JPRB,1.5849E+00_JPRB/)  
+KBO( :, 3,56,10) = (/&
+ & 2.7348E-03_JPRB,6.6775E-01_JPRB,1.2416E+00_JPRB,1.7426E+00_JPRB,2.0675E+00_JPRB/)  
+KBO( :, 4,56,10) = (/&
+ & 5.4506E-03_JPRB,8.2982E-01_JPRB,1.5384E+00_JPRB,2.1560E+00_JPRB,2.5656E+00_JPRB/)  
+KBO( :, 5,56,10) = (/&
+ & 1.0438E-02_JPRB,9.9464E-01_JPRB,1.8304E+00_JPRB,2.5617E+00_JPRB,3.0643E+00_JPRB/)  
+KBO( :, 1,57,10) = (/&
+ & 3.9249E-04_JPRB,3.2068E-01_JPRB,6.0044E-01_JPRB,8.4280E-01_JPRB,9.9873E-01_JPRB/)  
+KBO( :, 2,57,10) = (/&
+ & 9.2030E-04_JPRB,4.6083E-01_JPRB,8.6077E-01_JPRB,1.2098E+00_JPRB,1.4302E+00_JPRB/)  
+KBO( :, 3,57,10) = (/&
+ & 2.0002E-03_JPRB,6.1542E-01_JPRB,1.1460E+00_JPRB,1.6091E+00_JPRB,1.9029E+00_JPRB/)  
+KBO( :, 4,57,10) = (/&
+ & 4.1235E-03_JPRB,7.7708E-01_JPRB,1.4422E+00_JPRB,2.0227E+00_JPRB,2.3967E+00_JPRB/)  
+KBO( :, 5,57,10) = (/&
+ & 8.1478E-03_JPRB,9.4098E-01_JPRB,1.7369E+00_JPRB,2.4323E+00_JPRB,2.8933E+00_JPRB/)  
+KBO( :, 1,58,10) = (/&
+ & 2.6430E-04_JPRB,2.8122E-01_JPRB,5.2695E-01_JPRB,7.3930E-01_JPRB,8.7420E-01_JPRB/)  
+KBO( :, 2,58,10) = (/&
+ & 6.4821E-04_JPRB,4.1579E-01_JPRB,7.7745E-01_JPRB,1.0922E+00_JPRB,1.2875E+00_JPRB/)  
+KBO( :, 3,58,10) = (/&
+ & 1.4624E-03_JPRB,5.6685E-01_JPRB,1.0564E+00_JPRB,1.4844E+00_JPRB,1.7489E+00_JPRB/)  
+KBO( :, 4,58,10) = (/&
+ & 3.1206E-03_JPRB,7.2740E-01_JPRB,1.3510E+00_JPRB,1.8958E+00_JPRB,2.2357E+00_JPRB/)  
+KBO( :, 5,58,10) = (/&
+ & 6.3628E-03_JPRB,8.9041E-01_JPRB,1.6474E+00_JPRB,2.3075E+00_JPRB,2.7302E+00_JPRB/)  
+KBO( :, 1,59,10) = (/&
+ & 2.0990E-04_JPRB,2.6575E-01_JPRB,4.9806E-01_JPRB,6.9856E-01_JPRB,8.1922E-01_JPRB/)  
+KBO( :, 2,59,10) = (/&
+ & 5.2942E-04_JPRB,3.9787E-01_JPRB,7.4416E-01_JPRB,1.0453E+00_JPRB,1.2213E+00_JPRB/)  
+KBO( :, 3,59,10) = (/&
+ & 1.2254E-03_JPRB,5.4737E-01_JPRB,1.0206E+00_JPRB,1.4342E+00_JPRB,1.6735E+00_JPRB/)  
+KBO( :, 4,59,10) = (/&
+ & 2.6840E-03_JPRB,7.0712E-01_JPRB,1.3141E+00_JPRB,1.8442E+00_JPRB,2.1507E+00_JPRB/)  
+KBO( :, 5,59,10) = (/&
+ & 5.6182E-03_JPRB,8.7007E-01_JPRB,1.6111E+00_JPRB,2.2569E+00_JPRB,2.6371E+00_JPRB/)  
+KBO( :, 1,13,11) = (/&
+ & 1.0801E+00_JPRB,1.4348E+00_JPRB,2.0789E+00_JPRB,2.8766E+00_JPRB,3.7088E+00_JPRB/)  
+KBO( :, 2,13,11) = (/&
+ & 1.5786E+00_JPRB,1.6909E+00_JPRB,2.2344E+00_JPRB,2.8378E+00_JPRB,3.6154E+00_JPRB/)  
+KBO( :, 3,13,11) = (/&
+ & 2.1806E+00_JPRB,1.9878E+00_JPRB,2.3945E+00_JPRB,2.8212E+00_JPRB,3.5326E+00_JPRB/)  
+KBO( :, 4,13,11) = (/&
+ & 2.8720E+00_JPRB,2.3800E+00_JPRB,2.5914E+00_JPRB,2.8385E+00_JPRB,3.4655E+00_JPRB/)  
+KBO( :, 5,13,11) = (/&
+ & 3.6411E+00_JPRB,2.8911E+00_JPRB,2.8480E+00_JPRB,2.9116E+00_JPRB,3.4228E+00_JPRB/)  
+KBO( :, 1,14,11) = (/&
+ & 1.1044E+00_JPRB,1.5475E+00_JPRB,2.2497E+00_JPRB,3.1463E+00_JPRB,4.0884E+00_JPRB/)  
+KBO( :, 2,14,11) = (/&
+ & 1.5971E+00_JPRB,1.7939E+00_JPRB,2.3794E+00_JPRB,3.1054E+00_JPRB,3.9980E+00_JPRB/)  
+KBO( :, 3,14,11) = (/&
+ & 2.1821E+00_JPRB,2.0987E+00_JPRB,2.5507E+00_JPRB,3.0870E+00_JPRB,3.9208E+00_JPRB/)  
+KBO( :, 4,14,11) = (/&
+ & 2.8502E+00_JPRB,2.4509E+00_JPRB,2.7671E+00_JPRB,3.1108E+00_JPRB,3.8503E+00_JPRB/)  
+KBO( :, 5,14,11) = (/&
+ & 3.5884E+00_JPRB,2.8921E+00_JPRB,3.0089E+00_JPRB,3.1705E+00_JPRB,3.7851E+00_JPRB/)  
+KBO( :, 1,15,11) = (/&
+ & 1.1021E+00_JPRB,1.6587E+00_JPRB,2.4815E+00_JPRB,3.5024E+00_JPRB,4.5632E+00_JPRB/)  
+KBO( :, 2,15,11) = (/&
+ & 1.5743E+00_JPRB,1.8988E+00_JPRB,2.5745E+00_JPRB,3.4612E+00_JPRB,4.4691E+00_JPRB/)  
+KBO( :, 3,15,11) = (/&
+ & 2.1315E+00_JPRB,2.1848E+00_JPRB,2.7319E+00_JPRB,3.4370E+00_JPRB,4.3819E+00_JPRB/)  
+KBO( :, 4,15,11) = (/&
+ & 2.7650E+00_JPRB,2.5138E+00_JPRB,2.9331E+00_JPRB,3.4633E+00_JPRB,4.3032E+00_JPRB/)  
+KBO( :, 5,15,11) = (/&
+ & 3.4727E+00_JPRB,2.9032E+00_JPRB,3.1579E+00_JPRB,3.5044E+00_JPRB,4.2227E+00_JPRB/)  
+KBO( :, 1,16,11) = (/&
+ & 1.0714E+00_JPRB,1.7588E+00_JPRB,2.7564E+00_JPRB,3.8747E+00_JPRB,5.0508E+00_JPRB/)  
+KBO( :, 2,16,11) = (/&
+ & 1.5150E+00_JPRB,1.9873E+00_JPRB,2.8550E+00_JPRB,3.8426E+00_JPRB,4.9605E+00_JPRB/)  
+KBO( :, 3,16,11) = (/&
+ & 2.0368E+00_JPRB,2.2470E+00_JPRB,2.9773E+00_JPRB,3.8351E+00_JPRB,4.8716E+00_JPRB/)  
+KBO( :, 4,16,11) = (/&
+ & 2.6368E+00_JPRB,2.5533E+00_JPRB,3.1361E+00_JPRB,3.8536E+00_JPRB,4.7863E+00_JPRB/)  
+KBO( :, 5,16,11) = (/&
+ & 3.3066E+00_JPRB,2.9151E+00_JPRB,3.3174E+00_JPRB,3.8762E+00_JPRB,4.6948E+00_JPRB/)  
+KBO( :, 1,17,11) = (/&
+ & 1.0151E+00_JPRB,1.8852E+00_JPRB,3.0518E+00_JPRB,4.2628E+00_JPRB,5.5542E+00_JPRB/)  
+KBO( :, 2,17,11) = (/&
+ & 1.4250E+00_JPRB,2.0700E+00_JPRB,3.1614E+00_JPRB,4.2288E+00_JPRB,5.4601E+00_JPRB/)  
+KBO( :, 3,17,11) = (/&
+ & 1.9121E+00_JPRB,2.3001E+00_JPRB,3.2776E+00_JPRB,4.2348E+00_JPRB,5.3679E+00_JPRB/)  
+KBO( :, 4,17,11) = (/&
+ & 2.4694E+00_JPRB,2.5770E+00_JPRB,3.4037E+00_JPRB,4.2558E+00_JPRB,5.2730E+00_JPRB/)  
+KBO( :, 5,17,11) = (/&
+ & 3.0899E+00_JPRB,2.9049E+00_JPRB,3.5383E+00_JPRB,4.2898E+00_JPRB,5.1747E+00_JPRB/)  
+KBO( :, 1,18,11) = (/&
+ & 9.4290E-01_JPRB,2.0484E+00_JPRB,3.3469E+00_JPRB,4.6479E+00_JPRB,6.0575E+00_JPRB/)  
+KBO( :, 2,18,11) = (/&
+ & 1.3205E+00_JPRB,2.1931E+00_JPRB,3.4728E+00_JPRB,4.6183E+00_JPRB,5.9563E+00_JPRB/)  
+KBO( :, 3,18,11) = (/&
+ & 1.7655E+00_JPRB,2.3717E+00_JPRB,3.5959E+00_JPRB,4.6412E+00_JPRB,5.8591E+00_JPRB/)  
+KBO( :, 4,18,11) = (/&
+ & 2.2742E+00_JPRB,2.6014E+00_JPRB,3.7076E+00_JPRB,4.6704E+00_JPRB,5.7576E+00_JPRB/)  
+KBO( :, 5,18,11) = (/&
+ & 2.8368E+00_JPRB,2.8834E+00_JPRB,3.8149E+00_JPRB,4.7239E+00_JPRB,5.6493E+00_JPRB/)  
+KBO( :, 1,19,11) = (/&
+ & 8.6437E-01_JPRB,2.2167E+00_JPRB,3.6423E+00_JPRB,5.0107E+00_JPRB,6.5258E+00_JPRB/)  
+KBO( :, 2,19,11) = (/&
+ & 1.2052E+00_JPRB,2.3536E+00_JPRB,3.7778E+00_JPRB,5.0137E+00_JPRB,6.4336E+00_JPRB/)  
+KBO( :, 3,19,11) = (/&
+ & 1.6063E+00_JPRB,2.4963E+00_JPRB,3.9078E+00_JPRB,5.0409E+00_JPRB,6.3317E+00_JPRB/)  
+KBO( :, 4,19,11) = (/&
+ & 2.0613E+00_JPRB,2.6673E+00_JPRB,4.0216E+00_JPRB,5.0848E+00_JPRB,6.2172E+00_JPRB/)  
+KBO( :, 5,19,11) = (/&
+ & 2.5635E+00_JPRB,2.8852E+00_JPRB,4.1233E+00_JPRB,5.1457E+00_JPRB,6.0969E+00_JPRB/)  
+KBO( :, 1,20,11) = (/&
+ & 7.8779E-01_JPRB,2.3765E+00_JPRB,3.9264E+00_JPRB,5.3499E+00_JPRB,6.9480E+00_JPRB/)  
+KBO( :, 2,20,11) = (/&
+ & 1.0926E+00_JPRB,2.5148E+00_JPRB,4.0670E+00_JPRB,5.3834E+00_JPRB,6.8553E+00_JPRB/)  
+KBO( :, 3,20,11) = (/&
+ & 1.4487E+00_JPRB,2.6525E+00_JPRB,4.1962E+00_JPRB,5.4179E+00_JPRB,6.7496E+00_JPRB/)  
+KBO( :, 4,20,11) = (/&
+ & 1.8513E+00_JPRB,2.7916E+00_JPRB,4.3148E+00_JPRB,5.4862E+00_JPRB,6.6370E+00_JPRB/)  
+KBO( :, 5,20,11) = (/&
+ & 2.2991E+00_JPRB,2.9510E+00_JPRB,4.4216E+00_JPRB,5.5498E+00_JPRB,6.5228E+00_JPRB/)  
+KBO( :, 1,21,11) = (/&
+ & 7.0932E-01_JPRB,2.5175E+00_JPRB,4.1824E+00_JPRB,5.6525E+00_JPRB,7.2957E+00_JPRB/)  
+KBO( :, 2,21,11) = (/&
+ & 9.7801E-01_JPRB,2.6602E+00_JPRB,4.3300E+00_JPRB,5.6984E+00_JPRB,7.2060E+00_JPRB/)  
+KBO( :, 3,21,11) = (/&
+ & 1.2908E+00_JPRB,2.7977E+00_JPRB,4.4565E+00_JPRB,5.7675E+00_JPRB,7.1115E+00_JPRB/)  
+KBO( :, 4,21,11) = (/&
+ & 1.6486E+00_JPRB,2.9337E+00_JPRB,4.5784E+00_JPRB,5.8514E+00_JPRB,7.0112E+00_JPRB/)  
+KBO( :, 5,21,11) = (/&
+ & 2.0548E+00_JPRB,3.0662E+00_JPRB,4.6884E+00_JPRB,5.9211E+00_JPRB,6.9051E+00_JPRB/)  
+KBO( :, 1,22,11) = (/&
+ & 6.4634E-01_JPRB,2.6427E+00_JPRB,4.4108E+00_JPRB,5.9111E+00_JPRB,7.5603E+00_JPRB/)  
+KBO( :, 2,22,11) = (/&
+ & 8.8382E-01_JPRB,2.7886E+00_JPRB,4.5605E+00_JPRB,5.9821E+00_JPRB,7.4874E+00_JPRB/)  
+KBO( :, 3,22,11) = (/&
+ & 1.1630E+00_JPRB,2.9292E+00_JPRB,4.6954E+00_JPRB,6.0879E+00_JPRB,7.4042E+00_JPRB/)  
+KBO( :, 4,22,11) = (/&
+ & 1.4885E+00_JPRB,3.0664E+00_JPRB,4.8184E+00_JPRB,6.1855E+00_JPRB,7.3136E+00_JPRB/)  
+KBO( :, 5,22,11) = (/&
+ & 1.8588E+00_JPRB,3.1975E+00_JPRB,4.9293E+00_JPRB,6.2618E+00_JPRB,7.2153E+00_JPRB/)  
+KBO( :, 1,23,11) = (/&
+ & 5.8489E-01_JPRB,2.7446E+00_JPRB,4.5940E+00_JPRB,6.1135E+00_JPRB,7.7491E+00_JPRB/)  
+KBO( :, 2,23,11) = (/&
+ & 7.9682E-01_JPRB,2.8912E+00_JPRB,4.7488E+00_JPRB,6.2356E+00_JPRB,7.6928E+00_JPRB/)  
+KBO( :, 3,23,11) = (/&
+ & 1.0504E+00_JPRB,3.0346E+00_JPRB,4.8968E+00_JPRB,6.3608E+00_JPRB,7.6287E+00_JPRB/)  
+KBO( :, 4,23,11) = (/&
+ & 1.3447E+00_JPRB,3.1725E+00_JPRB,5.0242E+00_JPRB,6.4689E+00_JPRB,7.5521E+00_JPRB/)  
+KBO( :, 5,23,11) = (/&
+ & 1.6807E+00_JPRB,3.3048E+00_JPRB,5.1382E+00_JPRB,6.5524E+00_JPRB,7.4632E+00_JPRB/)  
+KBO( :, 1,24,11) = (/&
+ & 5.2989E-01_JPRB,2.8195E+00_JPRB,4.7301E+00_JPRB,6.2761E+00_JPRB,7.8550E+00_JPRB/)  
+KBO( :, 2,24,11) = (/&
+ & 7.2198E-01_JPRB,2.9702E+00_JPRB,4.8974E+00_JPRB,6.4380E+00_JPRB,7.8243E+00_JPRB/)  
+KBO( :, 3,24,11) = (/&
+ & 9.5134E-01_JPRB,3.1164E+00_JPRB,5.0504E+00_JPRB,6.5817E+00_JPRB,7.7816E+00_JPRB/)  
+KBO( :, 4,24,11) = (/&
+ & 1.2196E+00_JPRB,3.2537E+00_JPRB,5.1885E+00_JPRB,6.6940E+00_JPRB,7.7249E+00_JPRB/)  
+KBO( :, 5,24,11) = (/&
+ & 1.5265E+00_JPRB,3.3851E+00_JPRB,5.3089E+00_JPRB,6.7822E+00_JPRB,7.6563E+00_JPRB/)  
+KBO( :, 1,25,11) = (/&
+ & 4.8476E-01_JPRB,2.8697E+00_JPRB,4.8218E+00_JPRB,6.4097E+00_JPRB,7.9026E+00_JPRB/)  
+KBO( :, 2,25,11) = (/&
+ & 6.5969E-01_JPRB,3.0274E+00_JPRB,5.0029E+00_JPRB,6.5890E+00_JPRB,7.8973E+00_JPRB/)  
+KBO( :, 3,25,11) = (/&
+ & 8.6906E-01_JPRB,3.1754E+00_JPRB,5.1656E+00_JPRB,6.7410E+00_JPRB,7.8772E+00_JPRB/)  
+KBO( :, 4,25,11) = (/&
+ & 1.1152E+00_JPRB,3.3120E+00_JPRB,5.3111E+00_JPRB,6.8679E+00_JPRB,7.8462E+00_JPRB/)  
+KBO( :, 5,25,11) = (/&
+ & 1.4024E+00_JPRB,3.4449E+00_JPRB,5.4363E+00_JPRB,6.9674E+00_JPRB,7.7978E+00_JPRB/)  
+KBO( :, 1,26,11) = (/&
+ & 4.4920E-01_JPRB,2.9004E+00_JPRB,4.8834E+00_JPRB,6.5041E+00_JPRB,7.9089E+00_JPRB/)  
+KBO( :, 2,26,11) = (/&
+ & 6.0999E-01_JPRB,3.0628E+00_JPRB,5.0713E+00_JPRB,6.6966E+00_JPRB,7.9304E+00_JPRB/)  
+KBO( :, 3,26,11) = (/&
+ & 8.0376E-01_JPRB,3.2124E+00_JPRB,5.2452E+00_JPRB,6.8629E+00_JPRB,7.9361E+00_JPRB/)  
+KBO( :, 4,26,11) = (/&
+ & 1.0358E+00_JPRB,3.3523E+00_JPRB,5.4003E+00_JPRB,7.0027E+00_JPRB,7.9285E+00_JPRB/)  
+KBO( :, 5,26,11) = (/&
+ & 1.3073E+00_JPRB,3.4838E+00_JPRB,5.5299E+00_JPRB,7.1136E+00_JPRB,7.9075E+00_JPRB/)  
+KBO( :, 1,27,11) = (/&
+ & 4.1952E-01_JPRB,2.9133E+00_JPRB,4.9160E+00_JPRB,6.5693E+00_JPRB,7.8901E+00_JPRB/)  
+KBO( :, 2,27,11) = (/&
+ & 5.6911E-01_JPRB,3.0774E+00_JPRB,5.1132E+00_JPRB,6.7755E+00_JPRB,7.9378E+00_JPRB/)  
+KBO( :, 3,27,11) = (/&
+ & 7.5273E-01_JPRB,3.2297E+00_JPRB,5.2948E+00_JPRB,6.9532E+00_JPRB,7.9707E+00_JPRB/)  
+KBO( :, 4,27,11) = (/&
+ & 9.7351E-01_JPRB,3.3745E+00_JPRB,5.4563E+00_JPRB,7.1054E+00_JPRB,7.9865E+00_JPRB/)  
+KBO( :, 5,27,11) = (/&
+ & 1.2293E+00_JPRB,3.5064E+00_JPRB,5.5938E+00_JPRB,7.2297E+00_JPRB,7.9857E+00_JPRB/)  
+KBO( :, 1,28,11) = (/&
+ & 3.9524E-01_JPRB,2.9112E+00_JPRB,4.9316E+00_JPRB,6.6151E+00_JPRB,7.8478E+00_JPRB/)  
+KBO( :, 2,28,11) = (/&
+ & 5.3765E-01_JPRB,3.0764E+00_JPRB,5.1350E+00_JPRB,6.8313E+00_JPRB,7.9309E+00_JPRB/)  
+KBO( :, 3,28,11) = (/&
+ & 7.1264E-01_JPRB,3.2343E+00_JPRB,5.3248E+00_JPRB,7.0207E+00_JPRB,7.9898E+00_JPRB/)  
+KBO( :, 4,28,11) = (/&
+ & 9.1903E-01_JPRB,3.3816E+00_JPRB,5.4915E+00_JPRB,7.1844E+00_JPRB,8.0261E+00_JPRB/)  
+KBO( :, 5,28,11) = (/&
+ & 1.1585E+00_JPRB,3.5178E+00_JPRB,5.6384E+00_JPRB,7.3251E+00_JPRB,8.0453E+00_JPRB/)  
+KBO( :, 1,29,11) = (/&
+ & 3.7850E-01_JPRB,2.9006E+00_JPRB,4.9391E+00_JPRB,6.6424E+00_JPRB,7.8025E+00_JPRB/)  
+KBO( :, 2,29,11) = (/&
+ & 5.1450E-01_JPRB,3.0673E+00_JPRB,5.1512E+00_JPRB,6.8720E+00_JPRB,7.9130E+00_JPRB/)  
+KBO( :, 3,29,11) = (/&
+ & 6.7825E-01_JPRB,3.2303E+00_JPRB,5.3447E+00_JPRB,7.0744E+00_JPRB,7.9988E+00_JPRB/)  
+KBO( :, 4,29,11) = (/&
+ & 8.7094E-01_JPRB,3.3797E+00_JPRB,5.5169E+00_JPRB,7.2525E+00_JPRB,8.0603E+00_JPRB/)  
+KBO( :, 5,29,11) = (/&
+ & 1.0951E+00_JPRB,3.5266E+00_JPRB,5.6745E+00_JPRB,7.3989E+00_JPRB,8.0964E+00_JPRB/)  
+KBO( :, 1,30,11) = (/&
+ & 3.6524E-01_JPRB,2.8876E+00_JPRB,4.9408E+00_JPRB,6.6613E+00_JPRB,7.7569E+00_JPRB/)  
+KBO( :, 2,30,11) = (/&
+ & 4.9379E-01_JPRB,3.0581E+00_JPRB,5.1612E+00_JPRB,6.9058E+00_JPRB,7.8990E+00_JPRB/)  
+KBO( :, 3,30,11) = (/&
+ & 6.4720E-01_JPRB,3.2216E+00_JPRB,5.3594E+00_JPRB,7.1246E+00_JPRB,8.0078E+00_JPRB/)  
+KBO( :, 4,30,11) = (/&
+ & 8.2776E-01_JPRB,3.3773E+00_JPRB,5.5423E+00_JPRB,7.3074E+00_JPRB,8.0873E+00_JPRB/)  
+KBO( :, 5,30,11) = (/&
+ & 1.0381E+00_JPRB,3.5327E+00_JPRB,5.7037E+00_JPRB,7.4625E+00_JPRB,8.1388E+00_JPRB/)  
+KBO( :, 1,31,11) = (/&
+ & 3.5308E-01_JPRB,2.8782E+00_JPRB,4.9477E+00_JPRB,6.6803E+00_JPRB,7.7265E+00_JPRB/)  
+KBO( :, 2,31,11) = (/&
+ & 4.7488E-01_JPRB,3.0504E+00_JPRB,5.1727E+00_JPRB,6.9441E+00_JPRB,7.8903E+00_JPRB/)  
+KBO( :, 3,31,11) = (/&
+ & 6.2002E-01_JPRB,3.2131E+00_JPRB,5.3800E+00_JPRB,7.1680E+00_JPRB,8.0238E+00_JPRB/)  
+KBO( :, 4,31,11) = (/&
+ & 7.9132E-01_JPRB,3.3767E+00_JPRB,5.5675E+00_JPRB,7.3599E+00_JPRB,8.1232E+00_JPRB/)  
+KBO( :, 5,31,11) = (/&
+ & 9.9103E-01_JPRB,3.5400E+00_JPRB,5.7311E+00_JPRB,7.5249E+00_JPRB,8.1871E+00_JPRB/)  
+KBO( :, 1,32,11) = (/&
+ & 3.4150E-01_JPRB,2.8720E+00_JPRB,4.9582E+00_JPRB,6.7133E+00_JPRB,7.7054E+00_JPRB/)  
+KBO( :, 2,32,11) = (/&
+ & 4.5747E-01_JPRB,3.0437E+00_JPRB,5.1930E+00_JPRB,6.9826E+00_JPRB,7.9024E+00_JPRB/)  
+KBO( :, 3,32,11) = (/&
+ & 5.9670E-01_JPRB,3.2099E+00_JPRB,5.4027E+00_JPRB,7.2169E+00_JPRB,8.0545E+00_JPRB/)  
+KBO( :, 4,32,11) = (/&
+ & 7.6078E-01_JPRB,3.3797E+00_JPRB,5.5915E+00_JPRB,7.4162E+00_JPRB,8.1621E+00_JPRB/)  
+KBO( :, 5,32,11) = (/&
+ & 9.5335E-01_JPRB,3.5468E+00_JPRB,5.7567E+00_JPRB,7.5820E+00_JPRB,8.2482E+00_JPRB/)  
+KBO( :, 1,33,11) = (/&
+ & 3.3112E-01_JPRB,2.8707E+00_JPRB,4.9789E+00_JPRB,6.7544E+00_JPRB,7.7163E+00_JPRB/)  
+KBO( :, 2,33,11) = (/&
+ & 4.4241E-01_JPRB,3.0429E+00_JPRB,5.2166E+00_JPRB,7.0302E+00_JPRB,7.9310E+00_JPRB/)  
+KBO( :, 3,33,11) = (/&
+ & 5.7622E-01_JPRB,3.2140E+00_JPRB,5.4288E+00_JPRB,7.2705E+00_JPRB,8.0890E+00_JPRB/)  
+KBO( :, 4,33,11) = (/&
+ & 7.3587E-01_JPRB,3.3885E+00_JPRB,5.6201E+00_JPRB,7.4720E+00_JPRB,8.2154E+00_JPRB/)  
+KBO( :, 5,33,11) = (/&
+ & 9.2410E-01_JPRB,3.5572E+00_JPRB,5.7855E+00_JPRB,7.6373E+00_JPRB,8.3240E+00_JPRB/)  
+KBO( :, 1,34,11) = (/&
+ & 3.1870E-01_JPRB,2.8673E+00_JPRB,5.0003E+00_JPRB,6.7932E+00_JPRB,7.7350E+00_JPRB/)  
+KBO( :, 2,34,11) = (/&
+ & 4.2545E-01_JPRB,3.0410E+00_JPRB,5.2383E+00_JPRB,7.0757E+00_JPRB,7.9562E+00_JPRB/)  
+KBO( :, 3,34,11) = (/&
+ & 5.5478E-01_JPRB,3.2165E+00_JPRB,5.4526E+00_JPRB,7.3185E+00_JPRB,8.1289E+00_JPRB/)  
+KBO( :, 4,34,11) = (/&
+ & 7.0990E-01_JPRB,3.3947E+00_JPRB,5.6453E+00_JPRB,7.5211E+00_JPRB,8.2807E+00_JPRB/)  
+KBO( :, 5,34,11) = (/&
+ & 8.9548E-01_JPRB,3.5658E+00_JPRB,5.8091E+00_JPRB,7.6845E+00_JPRB,8.3957E+00_JPRB/)  
+KBO( :, 1,35,11) = (/&
+ & 2.9899E-01_JPRB,2.8528E+00_JPRB,5.0022E+00_JPRB,6.8098E+00_JPRB,7.7352E+00_JPRB/)  
+KBO( :, 2,35,11) = (/&
+ & 4.0035E-01_JPRB,3.0296E+00_JPRB,5.2435E+00_JPRB,7.1001E+00_JPRB,7.9730E+00_JPRB/)  
+KBO( :, 3,35,11) = (/&
+ & 5.2425E-01_JPRB,3.2088E+00_JPRB,5.4619E+00_JPRB,7.3466E+00_JPRB,8.1718E+00_JPRB/)  
+KBO( :, 4,35,11) = (/&
+ & 6.7403E-01_JPRB,3.3885E+00_JPRB,5.6558E+00_JPRB,7.5526E+00_JPRB,8.3426E+00_JPRB/)  
+KBO( :, 5,35,11) = (/&
+ & 8.5588E-01_JPRB,3.5636E+00_JPRB,5.8215E+00_JPRB,7.7184E+00_JPRB,8.4695E+00_JPRB/)  
+KBO( :, 1,36,11) = (/&
+ & 2.7267E-01_JPRB,2.8247E+00_JPRB,4.9811E+00_JPRB,6.7967E+00_JPRB,7.7171E+00_JPRB/)  
+KBO( :, 2,36,11) = (/&
+ & 3.6730E-01_JPRB,3.0036E+00_JPRB,5.2282E+00_JPRB,7.0962E+00_JPRB,7.9794E+00_JPRB/)  
+KBO( :, 3,36,11) = (/&
+ & 4.8410E-01_JPRB,3.1863E+00_JPRB,5.4514E+00_JPRB,7.3517E+00_JPRB,8.2066E+00_JPRB/)  
+KBO( :, 4,36,11) = (/&
+ & 6.2745E-01_JPRB,3.3693E+00_JPRB,5.6486E+00_JPRB,7.5634E+00_JPRB,8.3923E+00_JPRB/)  
+KBO( :, 5,36,11) = (/&
+ & 8.0265E-01_JPRB,3.5462E+00_JPRB,5.8174E+00_JPRB,7.7338E+00_JPRB,8.5363E+00_JPRB/)  
+KBO( :, 1,37,11) = (/&
+ & 2.3789E-01_JPRB,2.7731E+00_JPRB,4.9241E+00_JPRB,6.7346E+00_JPRB,7.6594E+00_JPRB/)  
+KBO( :, 2,37,11) = (/&
+ & 3.2371E-01_JPRB,2.9546E+00_JPRB,5.1797E+00_JPRB,7.0518E+00_JPRB,7.9502E+00_JPRB/)  
+KBO( :, 3,37,11) = (/&
+ & 4.3093E-01_JPRB,3.1396E+00_JPRB,5.4103E+00_JPRB,7.3206E+00_JPRB,8.2067E+00_JPRB/)  
+KBO( :, 4,37,11) = (/&
+ & 5.6432E-01_JPRB,3.3261E+00_JPRB,5.6154E+00_JPRB,7.5430E+00_JPRB,8.4107E+00_JPRB/)  
+KBO( :, 5,37,11) = (/&
+ & 7.2921E-01_JPRB,3.5055E+00_JPRB,5.7906E+00_JPRB,7.7231E+00_JPRB,8.5767E+00_JPRB/)  
+KBO( :, 1,38,11) = (/&
+ & 2.0735E-01_JPRB,2.7246E+00_JPRB,4.8643E+00_JPRB,6.6686E+00_JPRB,7.6002E+00_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART28',1,ZHOOK_HANDLE)
+END SUBROUTINE PART28
+
+
+SUBROUTINE PART29
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART29',0,ZHOOK_HANDLE)
+
+
+KBO( :, 2,38,11) = (/&
+ & 2.8530E-01_JPRB,2.9075E+00_JPRB,5.1303E+00_JPRB,7.0023E+00_JPRB,7.9233E+00_JPRB/)  
+KBO( :, 3,38,11) = (/&
+ & 3.8349E-01_JPRB,3.0952E+00_JPRB,5.3688E+00_JPRB,7.2838E+00_JPRB,8.2079E+00_JPRB/)  
+KBO( :, 4,38,11) = (/&
+ & 5.0781E-01_JPRB,3.2834E+00_JPRB,5.5805E+00_JPRB,7.5172E+00_JPRB,8.4321E+00_JPRB/)  
+KBO( :, 5,38,11) = (/&
+ & 6.6307E-01_JPRB,3.4663E+00_JPRB,5.7630E+00_JPRB,7.7072E+00_JPRB,8.6191E+00_JPRB/)  
+KBO( :, 1,39,11) = (/&
+ & 1.8082E-01_JPRB,2.6797E+00_JPRB,4.8064E+00_JPRB,6.6001E+00_JPRB,7.5476E+00_JPRB/)  
+KBO( :, 2,39,11) = (/&
+ & 2.5186E-01_JPRB,2.8651E+00_JPRB,5.0819E+00_JPRB,6.9495E+00_JPRB,7.9070E+00_JPRB/)  
+KBO( :, 3,39,11) = (/&
+ & 3.4240E-01_JPRB,3.0532E+00_JPRB,5.3282E+00_JPRB,7.2446E+00_JPRB,8.2139E+00_JPRB/)  
+KBO( :, 4,39,11) = (/&
+ & 4.5842E-01_JPRB,3.2439E+00_JPRB,5.5467E+00_JPRB,7.4896E+00_JPRB,8.4602E+00_JPRB/)  
+KBO( :, 5,39,11) = (/&
+ & 6.0509E-01_JPRB,3.4298E+00_JPRB,5.7341E+00_JPRB,7.6881E+00_JPRB,8.6682E+00_JPRB/)  
+KBO( :, 1,40,11) = (/&
+ & 1.5207E-01_JPRB,2.6179E+00_JPRB,4.7176E+00_JPRB,6.4886E+00_JPRB,7.4449E+00_JPRB/)  
+KBO( :, 2,40,11) = (/&
+ & 2.1512E-01_JPRB,2.8059E+00_JPRB,5.0086E+00_JPRB,6.8609E+00_JPRB,7.8328E+00_JPRB/)  
+KBO( :, 3,40,11) = (/&
+ & 2.9689E-01_JPRB,2.9943E+00_JPRB,5.2638E+00_JPRB,7.1743E+00_JPRB,8.1664E+00_JPRB/)  
+KBO( :, 4,40,11) = (/&
+ & 4.0254E-01_JPRB,3.1876E+00_JPRB,5.4913E+00_JPRB,7.4357E+00_JPRB,8.4349E+00_JPRB/)  
+KBO( :, 5,40,11) = (/&
+ & 5.3785E-01_JPRB,3.3763E+00_JPRB,5.6880E+00_JPRB,7.6474E+00_JPRB,8.6627E+00_JPRB/)  
+KBO( :, 1,41,11) = (/&
+ & 1.2695E-01_JPRB,2.5542E+00_JPRB,4.6228E+00_JPRB,6.3672E+00_JPRB,7.3294E+00_JPRB/)  
+KBO( :, 2,41,11) = (/&
+ & 1.8252E-01_JPRB,2.7470E+00_JPRB,4.9288E+00_JPRB,6.7628E+00_JPRB,7.7447E+00_JPRB/)  
+KBO( :, 3,41,11) = (/&
+ & 2.5614E-01_JPRB,2.9363E+00_JPRB,5.1938E+00_JPRB,7.0965E+00_JPRB,8.1064E+00_JPRB/)  
+KBO( :, 4,41,11) = (/&
+ & 3.5214E-01_JPRB,3.1287E+00_JPRB,5.4316E+00_JPRB,7.3741E+00_JPRB,8.3985E+00_JPRB/)  
+KBO( :, 5,41,11) = (/&
+ & 4.7642E-01_JPRB,3.3197E+00_JPRB,5.6390E+00_JPRB,7.5995E+00_JPRB,8.6452E+00_JPRB/)  
+KBO( :, 1,42,11) = (/&
+ & 1.0572E-01_JPRB,2.4914E+00_JPRB,4.5264E+00_JPRB,6.2425E+00_JPRB,7.2103E+00_JPRB/)  
+KBO( :, 2,42,11) = (/&
+ & 1.5450E-01_JPRB,2.6890E+00_JPRB,4.8460E+00_JPRB,6.6593E+00_JPRB,7.6506E+00_JPRB/)  
+KBO( :, 3,42,11) = (/&
+ & 2.2046E-01_JPRB,2.8775E+00_JPRB,5.1228E+00_JPRB,7.0129E+00_JPRB,8.0405E+00_JPRB/)  
+KBO( :, 4,42,11) = (/&
+ & 3.0794E-01_JPRB,3.0704E+00_JPRB,5.3705E+00_JPRB,7.3070E+00_JPRB,8.3576E+00_JPRB/)  
+KBO( :, 5,42,11) = (/&
+ & 4.2243E-01_JPRB,3.2655E+00_JPRB,5.5859E+00_JPRB,7.5484E+00_JPRB,8.6234E+00_JPRB/)  
+KBO( :, 1,43,11) = (/&
+ & 8.5799E-02_JPRB,2.4158E+00_JPRB,4.4064E+00_JPRB,6.0854E+00_JPRB,7.0535E+00_JPRB/)  
+KBO( :, 2,43,11) = (/&
+ & 1.2776E-01_JPRB,2.6198E+00_JPRB,4.7439E+00_JPRB,6.5289E+00_JPRB,7.5260E+00_JPRB/)  
+KBO( :, 3,43,11) = (/&
+ & 1.8555E-01_JPRB,2.8110E+00_JPRB,5.0358E+00_JPRB,6.9052E+00_JPRB,7.9459E+00_JPRB/)  
+KBO( :, 4,43,11) = (/&
+ & 2.6399E-01_JPRB,3.0044E+00_JPRB,5.2930E+00_JPRB,7.2200E+00_JPRB,8.2902E+00_JPRB/)  
+KBO( :, 5,43,11) = (/&
+ & 3.6761E-01_JPRB,3.2003E+00_JPRB,5.5191E+00_JPRB,7.4799E+00_JPRB,8.5786E+00_JPRB/)  
+KBO( :, 1,44,11) = (/&
+ & 6.8535E-02_JPRB,2.3354E+00_JPRB,4.2721E+00_JPRB,5.9087E+00_JPRB,6.8762E+00_JPRB/)  
+KBO( :, 2,44,11) = (/&
+ & 1.0421E-01_JPRB,2.5468E+00_JPRB,4.6283E+00_JPRB,6.3792E+00_JPRB,7.3815E+00_JPRB/)  
+KBO( :, 3,44,11) = (/&
+ & 1.5420E-01_JPRB,2.7418E+00_JPRB,4.9358E+00_JPRB,6.7810E+00_JPRB,7.8336E+00_JPRB/)  
+KBO( :, 4,44,11) = (/&
+ & 2.2347E-01_JPRB,2.9335E+00_JPRB,5.2044E+00_JPRB,7.1195E+00_JPRB,8.2083E+00_JPRB/)  
+KBO( :, 5,44,11) = (/&
+ & 3.1682E-01_JPRB,3.1294E+00_JPRB,5.4461E+00_JPRB,7.3981E+00_JPRB,8.5217E+00_JPRB/)  
+KBO( :, 1,45,11) = (/&
+ & 5.4457E-02_JPRB,2.2535E+00_JPRB,4.1320E+00_JPRB,5.7238E+00_JPRB,6.6894E+00_JPRB/)  
+KBO( :, 2,45,11) = (/&
+ & 8.4549E-02_JPRB,2.4711E+00_JPRB,4.5065E+00_JPRB,6.2198E+00_JPRB,7.2293E+00_JPRB/)  
+KBO( :, 3,45,11) = (/&
+ & 1.2761E-01_JPRB,2.6717E+00_JPRB,4.8324E+00_JPRB,6.6492E+00_JPRB,7.7146E+00_JPRB/)  
+KBO( :, 4,45,11) = (/&
+ & 1.8837E-01_JPRB,2.8633E+00_JPRB,5.1155E+00_JPRB,7.0100E+00_JPRB,8.1205E+00_JPRB/)  
+KBO( :, 5,45,11) = (/&
+ & 2.7227E-01_JPRB,3.0592E+00_JPRB,5.3653E+00_JPRB,7.3089E+00_JPRB,8.4600E+00_JPRB/)  
+KBO( :, 1,46,11) = (/&
+ & 4.2589E-02_JPRB,2.1649E+00_JPRB,3.9784E+00_JPRB,5.5163E+00_JPRB,6.4796E+00_JPRB/)  
+KBO( :, 2,46,11) = (/&
+ & 6.7560E-02_JPRB,2.3893E+00_JPRB,4.3722E+00_JPRB,6.0430E+00_JPRB,7.0551E+00_JPRB/)  
+KBO( :, 3,46,11) = (/&
+ & 1.0417E-01_JPRB,2.5968E+00_JPRB,4.7173E+00_JPRB,6.4988E+00_JPRB,7.5749E+00_JPRB/)  
+KBO( :, 4,46,11) = (/&
+ & 1.5686E-01_JPRB,2.7912E+00_JPRB,5.0150E+00_JPRB,6.8844E+00_JPRB,8.0167E+00_JPRB/)  
+KBO( :, 5,46,11) = (/&
+ & 2.3102E-01_JPRB,2.9860E+00_JPRB,5.2763E+00_JPRB,7.2084E+00_JPRB,8.3844E+00_JPRB/)  
+KBO( :, 1,47,11) = (/&
+ & 3.2329E-02_JPRB,2.0635E+00_JPRB,3.7990E+00_JPRB,5.2746E+00_JPRB,6.2270E+00_JPRB/)  
+KBO( :, 2,47,11) = (/&
+ & 5.2621E-02_JPRB,2.2974E+00_JPRB,4.2140E+00_JPRB,5.8338E+00_JPRB,6.8413E+00_JPRB/)  
+KBO( :, 3,47,11) = (/&
+ & 8.2966E-02_JPRB,2.5124E+00_JPRB,4.5790E+00_JPRB,6.3183E+00_JPRB,7.3957E+00_JPRB/)  
+KBO( :, 4,47,11) = (/&
+ & 1.2765E-01_JPRB,2.7111E+00_JPRB,4.8962E+00_JPRB,6.7355E+00_JPRB,7.8773E+00_JPRB/)  
+KBO( :, 5,47,11) = (/&
+ & 1.9183E-01_JPRB,2.9039E+00_JPRB,5.1733E+00_JPRB,7.0849E+00_JPRB,8.2769E+00_JPRB/)  
+KBO( :, 1,48,11) = (/&
+ & 2.4260E-02_JPRB,1.9590E+00_JPRB,3.6114E+00_JPRB,5.0219E+00_JPRB,5.9614E+00_JPRB/)  
+KBO( :, 2,48,11) = (/&
+ & 4.0661E-02_JPRB,2.2016E+00_JPRB,4.0471E+00_JPRB,5.6109E+00_JPRB,6.6162E+00_JPRB/)  
+KBO( :, 3,48,11) = (/&
+ & 6.5567E-02_JPRB,2.4242E+00_JPRB,4.4350E+00_JPRB,6.1272E+00_JPRB,7.2066E+00_JPRB/)  
+KBO( :, 4,48,11) = (/&
+ & 1.0316E-01_JPRB,2.6297E+00_JPRB,4.7726E+00_JPRB,6.5740E+00_JPRB,7.7277E+00_JPRB/)  
+KBO( :, 5,48,11) = (/&
+ & 1.5827E-01_JPRB,2.8235E+00_JPRB,5.0650E+00_JPRB,6.9498E+00_JPRB,8.1636E+00_JPRB/)  
+KBO( :, 1,49,11) = (/&
+ & 1.7994E-02_JPRB,1.8499E+00_JPRB,3.4182E+00_JPRB,4.7557E+00_JPRB,5.6860E+00_JPRB/)  
+KBO( :, 2,49,11) = (/&
+ & 3.1088E-02_JPRB,2.1039E+00_JPRB,3.8735E+00_JPRB,5.3754E+00_JPRB,6.3833E+00_JPRB/)  
+KBO( :, 3,49,11) = (/&
+ & 5.1455E-02_JPRB,2.3348E+00_JPRB,4.2824E+00_JPRB,5.9252E+00_JPRB,7.0121E+00_JPRB/)  
+KBO( :, 4,49,11) = (/&
+ & 8.2689E-02_JPRB,2.5471E+00_JPRB,4.6395E+00_JPRB,6.4001E+00_JPRB,7.5720E+00_JPRB/)  
+KBO( :, 5,49,11) = (/&
+ & 1.2977E-01_JPRB,2.7449E+00_JPRB,4.9494E+00_JPRB,6.8054E+00_JPRB,8.0481E+00_JPRB/)  
+KBO( :, 1,50,11) = (/&
+ & 1.3371E-02_JPRB,1.7459E+00_JPRB,3.2314E+00_JPRB,4.4954E+00_JPRB,5.4078E+00_JPRB/)  
+KBO( :, 2,50,11) = (/&
+ & 2.3833E-02_JPRB,2.0084E+00_JPRB,3.7026E+00_JPRB,5.1456E+00_JPRB,6.1414E+00_JPRB/)  
+KBO( :, 3,50,11) = (/&
+ & 4.0559E-02_JPRB,2.2474E+00_JPRB,4.1296E+00_JPRB,5.7236E+00_JPRB,6.8056E+00_JPRB/)  
+KBO( :, 4,50,11) = (/&
+ & 6.6648E-02_JPRB,2.4671E+00_JPRB,4.5076E+00_JPRB,6.2258E+00_JPRB,7.4018E+00_JPRB/)  
+KBO( :, 5,50,11) = (/&
+ & 1.0683E-01_JPRB,2.6694E+00_JPRB,4.8363E+00_JPRB,6.6602E+00_JPRB,7.9136E+00_JPRB/)  
+KBO( :, 1,51,11) = (/&
+ & 9.8653E-03_JPRB,1.6429E+00_JPRB,3.0451E+00_JPRB,4.2358E+00_JPRB,5.1231E+00_JPRB/)  
+KBO( :, 2,51,11) = (/&
+ & 1.8201E-02_JPRB,1.9124E+00_JPRB,3.5299E+00_JPRB,4.9113E+00_JPRB,5.8903E+00_JPRB/)  
+KBO( :, 3,51,11) = (/&
+ & 3.1898E-02_JPRB,2.1605E+00_JPRB,3.9764E+00_JPRB,5.5162E+00_JPRB,6.5869E+00_JPRB/)  
+KBO( :, 4,51,11) = (/&
+ & 5.3712E-02_JPRB,2.3869E+00_JPRB,4.3743E+00_JPRB,6.0489E+00_JPRB,7.2173E+00_JPRB/)  
+KBO( :, 5,51,11) = (/&
+ & 8.7772E-02_JPRB,2.5955E+00_JPRB,4.7209E+00_JPRB,6.5087E+00_JPRB,7.7625E+00_JPRB/)  
+KBO( :, 1,52,11) = (/&
+ & 7.1653E-03_JPRB,1.5381E+00_JPRB,2.8544E+00_JPRB,3.9674E+00_JPRB,4.8308E+00_JPRB/)  
+KBO( :, 2,52,11) = (/&
+ & 1.3765E-02_JPRB,1.8137E+00_JPRB,3.3544E+00_JPRB,4.6675E+00_JPRB,5.6327E+00_JPRB/)  
+KBO( :, 3,52,11) = (/&
+ & 2.4855E-02_JPRB,2.0712E+00_JPRB,3.8173E+00_JPRB,5.3003E+00_JPRB,6.3625E+00_JPRB/)  
+KBO( :, 4,52,11) = (/&
+ & 4.3007E-02_JPRB,2.3053E+00_JPRB,4.2329E+00_JPRB,5.8617E+00_JPRB,7.0261E+00_JPRB/)  
+KBO( :, 5,52,11) = (/&
+ & 7.1746E-02_JPRB,2.5209E+00_JPRB,4.5976E+00_JPRB,6.3464E+00_JPRB,7.6074E+00_JPRB/)  
+KBO( :, 1,53,11) = (/&
+ & 5.1115E-03_JPRB,1.4319E+00_JPRB,2.6598E+00_JPRB,3.6923E+00_JPRB,4.5327E+00_JPRB/)  
+KBO( :, 2,53,11) = (/&
+ & 1.0264E-02_JPRB,1.7132E+00_JPRB,3.1732E+00_JPRB,4.4138E+00_JPRB,5.3644E+00_JPRB/)  
+KBO( :, 3,53,11) = (/&
+ & 1.9168E-02_JPRB,1.9787E+00_JPRB,3.6497E+00_JPRB,5.0750E+00_JPRB,6.1311E+00_JPRB/)  
+KBO( :, 4,53,11) = (/&
+ & 3.4142E-02_JPRB,2.2206E+00_JPRB,4.0841E+00_JPRB,5.6629E+00_JPRB,6.8305E+00_JPRB/)  
+KBO( :, 5,53,11) = (/&
+ & 5.8320E-02_JPRB,2.4429E+00_JPRB,4.4694E+00_JPRB,6.1755E+00_JPRB,7.4521E+00_JPRB/)  
+KBO( :, 1,54,11) = (/&
+ & 3.6599E-03_JPRB,1.3331E+00_JPRB,2.4769E+00_JPRB,3.4372E+00_JPRB,4.2368E+00_JPRB/)  
+KBO( :, 2,54,11) = (/&
+ & 7.6954E-03_JPRB,1.6189E+00_JPRB,3.0020E+00_JPRB,4.1755E+00_JPRB,5.0910E+00_JPRB/)  
+KBO( :, 3,54,11) = (/&
+ & 1.4927E-02_JPRB,1.8903E+00_JPRB,3.4914E+00_JPRB,4.8585E+00_JPRB,5.8811E+00_JPRB/)  
+KBO( :, 4,54,11) = (/&
+ & 2.7354E-02_JPRB,2.1411E+00_JPRB,3.9432E+00_JPRB,5.4718E+00_JPRB,6.6071E+00_JPRB/)  
+KBO( :, 5,54,11) = (/&
+ & 4.7880E-02_JPRB,2.3694E+00_JPRB,4.3455E+00_JPRB,6.0119E+00_JPRB,7.2530E+00_JPRB/)  
+KBO( :, 1,55,11) = (/&
+ & 2.6041E-03_JPRB,1.2377E+00_JPRB,2.2999E+00_JPRB,3.1900E+00_JPRB,3.9377E+00_JPRB/)  
+KBO( :, 2,55,11) = (/&
+ & 5.7429E-03_JPRB,1.5271E+00_JPRB,2.8349E+00_JPRB,3.9397E+00_JPRB,4.8084E+00_JPRB/)  
+KBO( :, 3,55,11) = (/&
+ & 1.1607E-02_JPRB,1.8036E+00_JPRB,3.3372E+00_JPRB,4.6433E+00_JPRB,5.6183E+00_JPRB/)  
+KBO( :, 4,55,11) = (/&
+ & 2.1919E-02_JPRB,2.0624E+00_JPRB,3.8024E+00_JPRB,5.2808E+00_JPRB,6.3606E+00_JPRB/)  
+KBO( :, 5,55,11) = (/&
+ & 3.9357E-02_JPRB,2.2976E+00_JPRB,4.2205E+00_JPRB,5.8462E+00_JPRB,7.0320E+00_JPRB/)  
+KBO( :, 1,56,11) = (/&
+ & 1.8212E-03_JPRB,1.1423E+00_JPRB,2.1234E+00_JPRB,2.9415E+00_JPRB,3.6402E+00_JPRB/)  
+KBO( :, 2,56,11) = (/&
+ & 4.2220E-03_JPRB,1.4344E+00_JPRB,2.6648E+00_JPRB,3.6993E+00_JPRB,4.5216E+00_JPRB/)  
+KBO( :, 3,56,11) = (/&
+ & 8.9199E-03_JPRB,1.7161E+00_JPRB,3.1791E+00_JPRB,4.4224E+00_JPRB,5.3514E+00_JPRB/)  
+KBO( :, 4,56,11) = (/&
+ & 1.7443E-02_JPRB,1.9818E+00_JPRB,3.6561E+00_JPRB,5.0841E+00_JPRB,6.1109E+00_JPRB/)  
+KBO( :, 5,56,11) = (/&
+ & 3.2146E-02_JPRB,2.2236E+00_JPRB,4.0904E+00_JPRB,5.6718E+00_JPRB,6.8038E+00_JPRB/)  
+KBO( :, 1,57,11) = (/&
+ & 1.2487E-03_JPRB,1.0475E+00_JPRB,1.9452E+00_JPRB,2.6920E+00_JPRB,3.3454E+00_JPRB/)  
+KBO( :, 2,57,11) = (/&
+ & 3.0556E-03_JPRB,1.3407E+00_JPRB,2.4912E+00_JPRB,3.4567E+00_JPRB,4.2318E+00_JPRB/)  
+KBO( :, 3,57,11) = (/&
+ & 6.7633E-03_JPRB,1.6266E+00_JPRB,3.0165E+00_JPRB,4.1956E+00_JPRB,5.0790E+00_JPRB/)  
+KBO( :, 4,57,11) = (/&
+ & 1.3762E-02_JPRB,1.8981E+00_JPRB,3.5056E+00_JPRB,4.8781E+00_JPRB,5.8578E+00_JPRB/)  
+KBO( :, 5,57,11) = (/&
+ & 2.6062E-02_JPRB,2.1481E+00_JPRB,3.9566E+00_JPRB,5.4903E+00_JPRB,6.5663E+00_JPRB/)  
+KBO( :, 1,58,11) = (/&
+ & 8.5190E-04_JPRB,9.5769E-01_JPRB,1.7770E+00_JPRB,2.4580E+00_JPRB,3.0673E+00_JPRB/)  
+KBO( :, 2,58,11) = (/&
+ & 2.2048E-03_JPRB,1.2510E+00_JPRB,2.3247E+00_JPRB,3.2249E+00_JPRB,3.9528E+00_JPRB/)  
+KBO( :, 3,58,11) = (/&
+ & 5.1227E-03_JPRB,1.5404E+00_JPRB,2.8593E+00_JPRB,3.9742E+00_JPRB,4.8120E+00_JPRB/)  
+KBO( :, 4,58,11) = (/&
+ & 1.0857E-02_JPRB,1.8165E+00_JPRB,3.3607E+00_JPRB,4.6761E+00_JPRB,5.6102E+00_JPRB/)  
+KBO( :, 5,58,11) = (/&
+ & 2.1207E-02_JPRB,2.0743E+00_JPRB,3.8247E+00_JPRB,5.3111E+00_JPRB,6.3315E+00_JPRB/)  
+KBO( :, 1,59,11) = (/&
+ & 6.9156E-04_JPRB,9.2148E-01_JPRB,1.7091E+00_JPRB,2.3639E+00_JPRB,2.9470E+00_JPRB/)  
+KBO( :, 2,59,11) = (/&
+ & 1.8554E-03_JPRB,1.2146E+00_JPRB,2.2573E+00_JPRB,3.1301E+00_JPRB,3.8229E+00_JPRB/)  
+KBO( :, 3,59,11) = (/&
+ & 4.4546E-03_JPRB,1.5052E+00_JPRB,2.7951E+00_JPRB,3.8834E+00_JPRB,4.6728E+00_JPRB/)  
+KBO( :, 4,59,11) = (/&
+ & 9.7022E-03_JPRB,1.7833E+00_JPRB,3.3009E+00_JPRB,4.5928E+00_JPRB,5.4696E+00_JPRB/)  
+KBO( :, 5,59,11) = (/&
+ & 1.9310E-02_JPRB,2.0440E+00_JPRB,3.7699E+00_JPRB,5.2372E+00_JPRB,6.1828E+00_JPRB/)  
+KBO( :, 1,13,12) = (/&
+ & 1.6565E+00_JPRB,1.7848E+00_JPRB,2.5700E+00_JPRB,3.5717E+00_JPRB,4.5988E+00_JPRB/)  
+KBO( :, 2,13,12) = (/&
+ & 2.4215E+00_JPRB,2.1271E+00_JPRB,2.6999E+00_JPRB,3.5485E+00_JPRB,4.4641E+00_JPRB/)  
+KBO( :, 3,13,12) = (/&
+ & 3.3369E+00_JPRB,2.6815E+00_JPRB,2.9576E+00_JPRB,3.5009E+00_JPRB,4.3216E+00_JPRB/)  
+KBO( :, 4,13,12) = (/&
+ & 4.4039E+00_JPRB,3.4401E+00_JPRB,3.2679E+00_JPRB,3.4869E+00_JPRB,4.1798E+00_JPRB/)  
+KBO( :, 5,13,12) = (/&
+ & 5.5941E+00_JPRB,4.3251E+00_JPRB,3.6079E+00_JPRB,3.5523E+00_JPRB,4.0718E+00_JPRB/)  
+KBO( :, 1,14,12) = (/&
+ & 1.7762E+00_JPRB,1.9421E+00_JPRB,2.7864E+00_JPRB,3.8795E+00_JPRB,4.9959E+00_JPRB/)  
+KBO( :, 2,14,12) = (/&
+ & 2.5729E+00_JPRB,2.3289E+00_JPRB,2.9407E+00_JPRB,3.8344E+00_JPRB,4.8460E+00_JPRB/)  
+KBO( :, 3,14,12) = (/&
+ & 3.5256E+00_JPRB,2.8532E+00_JPRB,3.1735E+00_JPRB,3.7815E+00_JPRB,4.6937E+00_JPRB/)  
+KBO( :, 4,14,12) = (/&
+ & 4.6225E+00_JPRB,3.6062E+00_JPRB,3.4878E+00_JPRB,3.7727E+00_JPRB,4.5592E+00_JPRB/)  
+KBO( :, 5,14,12) = (/&
+ & 5.8383E+00_JPRB,4.5040E+00_JPRB,3.8887E+00_JPRB,3.8650E+00_JPRB,4.4445E+00_JPRB/)  
+KBO( :, 1,15,12) = (/&
+ & 1.8721E+00_JPRB,2.1191E+00_JPRB,3.0241E+00_JPRB,4.2075E+00_JPRB,5.4430E+00_JPRB/)  
+KBO( :, 2,15,12) = (/&
+ & 2.6862E+00_JPRB,2.5250E+00_JPRB,3.1995E+00_JPRB,4.1499E+00_JPRB,5.2993E+00_JPRB/)  
+KBO( :, 3,15,12) = (/&
+ & 3.6549E+00_JPRB,3.0295E+00_JPRB,3.4400E+00_JPRB,4.1044E+00_JPRB,5.1665E+00_JPRB/)  
+KBO( :, 4,15,12) = (/&
+ & 4.7570E+00_JPRB,3.7259E+00_JPRB,3.7691E+00_JPRB,4.1180E+00_JPRB,5.0472E+00_JPRB/)  
+KBO( :, 5,15,12) = (/&
+ & 5.9648E+00_JPRB,4.5949E+00_JPRB,4.1611E+00_JPRB,4.2079E+00_JPRB,4.9426E+00_JPRB/)  
+KBO( :, 1,16,12) = (/&
+ & 1.9290E+00_JPRB,2.3038E+00_JPRB,3.3146E+00_JPRB,4.6435E+00_JPRB,6.0407E+00_JPRB/)  
+KBO( :, 2,16,12) = (/&
+ & 2.7431E+00_JPRB,2.7084E+00_JPRB,3.4673E+00_JPRB,4.5698E+00_JPRB,5.8966E+00_JPRB/)  
+KBO( :, 3,16,12) = (/&
+ & 3.6970E+00_JPRB,3.2040E+00_JPRB,3.7345E+00_JPRB,4.5214E+00_JPRB,5.7687E+00_JPRB/)  
+KBO( :, 4,16,12) = (/&
+ & 4.7715E+00_JPRB,3.8272E+00_JPRB,4.0666E+00_JPRB,4.5545E+00_JPRB,5.6476E+00_JPRB/)  
+KBO( :, 5,16,12) = (/&
+ & 5.9496E+00_JPRB,4.6127E+00_JPRB,4.4402E+00_JPRB,4.6207E+00_JPRB,5.5338E+00_JPRB/)  
+KBO( :, 1,17,12) = (/&
+ & 1.9373E+00_JPRB,2.4828E+00_JPRB,3.6697E+00_JPRB,5.1796E+00_JPRB,6.7612E+00_JPRB/)  
+KBO( :, 2,17,12) = (/&
+ & 2.7255E+00_JPRB,2.8755E+00_JPRB,3.8159E+00_JPRB,5.1042E+00_JPRB,6.6167E+00_JPRB/)  
+KBO( :, 3,17,12) = (/&
+ & 3.6395E+00_JPRB,3.3552E+00_JPRB,4.0591E+00_JPRB,5.0640E+00_JPRB,6.4791E+00_JPRB/)  
+KBO( :, 4,17,12) = (/&
+ & 4.6714E+00_JPRB,3.9092E+00_JPRB,4.3629E+00_JPRB,5.0919E+00_JPRB,6.3471E+00_JPRB/)  
+KBO( :, 5,17,12) = (/&
+ & 5.8138E+00_JPRB,4.6040E+00_JPRB,4.7123E+00_JPRB,5.1320E+00_JPRB,6.2136E+00_JPRB/)  
+KBO( :, 1,18,12) = (/&
+ & 1.8923E+00_JPRB,2.6601E+00_JPRB,4.0950E+00_JPRB,5.7689E+00_JPRB,7.5292E+00_JPRB/)  
+KBO( :, 2,18,12) = (/&
+ & 2.6358E+00_JPRB,3.0291E+00_JPRB,4.2495E+00_JPRB,5.7045E+00_JPRB,7.3896E+00_JPRB/)  
+KBO( :, 3,18,12) = (/&
+ & 3.5005E+00_JPRB,3.4699E+00_JPRB,4.4508E+00_JPRB,5.6824E+00_JPRB,7.2449E+00_JPRB/)  
+KBO( :, 4,18,12) = (/&
+ & 4.4831E+00_JPRB,3.9859E+00_JPRB,4.6968E+00_JPRB,5.6976E+00_JPRB,7.0972E+00_JPRB/)  
+KBO( :, 5,18,12) = (/&
+ & 5.5803E+00_JPRB,4.6005E+00_JPRB,4.9912E+00_JPRB,5.7191E+00_JPRB,6.9473E+00_JPRB/)  
+KBO( :, 1,19,12) = (/&
+ & 1.8026E+00_JPRB,2.8675E+00_JPRB,4.5643E+00_JPRB,6.3966E+00_JPRB,8.3446E+00_JPRB/)  
+KBO( :, 2,19,12) = (/&
+ & 2.4955E+00_JPRB,3.1750E+00_JPRB,4.7346E+00_JPRB,6.3280E+00_JPRB,8.1858E+00_JPRB/)  
+KBO( :, 3,19,12) = (/&
+ & 3.3065E+00_JPRB,3.5656E+00_JPRB,4.9096E+00_JPRB,6.3278E+00_JPRB,8.0274E+00_JPRB/)  
+KBO( :, 4,19,12) = (/&
+ & 4.2336E+00_JPRB,4.0373E+00_JPRB,5.1018E+00_JPRB,6.3400E+00_JPRB,7.8734E+00_JPRB/)  
+KBO( :, 5,19,12) = (/&
+ & 5.2638E+00_JPRB,4.5965E+00_JPRB,5.3281E+00_JPRB,6.3749E+00_JPRB,7.7186E+00_JPRB/)  
+KBO( :, 1,20,12) = (/&
+ & 1.6924E+00_JPRB,3.1159E+00_JPRB,5.0615E+00_JPRB,7.0193E+00_JPRB,9.1509E+00_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART29',1,ZHOOK_HANDLE)
+END SUBROUTINE PART29
+
+
+SUBROUTINE PART30
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART30',0,ZHOOK_HANDLE)
+
+
+KBO( :, 2,20,12) = (/&
+ & 2.3342E+00_JPRB,3.3609E+00_JPRB,5.2475E+00_JPRB,6.9651E+00_JPRB,8.9802E+00_JPRB/)  
+KBO( :, 3,20,12) = (/&
+ & 3.0883E+00_JPRB,3.6808E+00_JPRB,5.4216E+00_JPRB,6.9801E+00_JPRB,8.8129E+00_JPRB/)  
+KBO( :, 4,20,12) = (/&
+ & 3.9463E+00_JPRB,4.0848E+00_JPRB,5.5777E+00_JPRB,7.0012E+00_JPRB,8.6463E+00_JPRB/)  
+KBO( :, 5,20,12) = (/&
+ & 4.8961E+00_JPRB,4.5736E+00_JPRB,5.7512E+00_JPRB,7.0663E+00_JPRB,8.4743E+00_JPRB/)  
+KBO( :, 1,21,12) = (/&
+ & 1.5690E+00_JPRB,3.3918E+00_JPRB,5.5679E+00_JPRB,7.6325E+00_JPRB,9.9359E+00_JPRB/)  
+KBO( :, 2,21,12) = (/&
+ & 2.1586E+00_JPRB,3.5959E+00_JPRB,5.7632E+00_JPRB,7.6131E+00_JPRB,9.7631E+00_JPRB/)  
+KBO( :, 3,21,12) = (/&
+ & 2.8476E+00_JPRB,3.8439E+00_JPRB,5.9415E+00_JPRB,7.6317E+00_JPRB,9.5829E+00_JPRB/)  
+KBO( :, 4,21,12) = (/&
+ & 3.6276E+00_JPRB,4.1634E+00_JPRB,6.0894E+00_JPRB,7.6838E+00_JPRB,9.4023E+00_JPRB/)  
+KBO( :, 5,21,12) = (/&
+ & 4.4917E+00_JPRB,4.5642E+00_JPRB,6.2271E+00_JPRB,7.7630E+00_JPRB,9.2137E+00_JPRB/)  
+KBO( :, 1,22,12) = (/&
+ & 1.4699E+00_JPRB,3.6838E+00_JPRB,6.0744E+00_JPRB,8.2202E+00_JPRB,1.0664E+01_JPRB/)  
+KBO( :, 2,22,12) = (/&
+ & 2.0081E+00_JPRB,3.8770E+00_JPRB,6.2779E+00_JPRB,8.2401E+00_JPRB,1.0485E+01_JPRB/)  
+KBO( :, 3,22,12) = (/&
+ & 2.6322E+00_JPRB,4.0768E+00_JPRB,6.4526E+00_JPRB,8.2804E+00_JPRB,1.0306E+01_JPRB/)  
+KBO( :, 4,22,12) = (/&
+ & 3.3385E+00_JPRB,4.3174E+00_JPRB,6.6003E+00_JPRB,8.3666E+00_JPRB,1.0115E+01_JPRB/)  
+KBO( :, 5,22,12) = (/&
+ & 4.1224E+00_JPRB,4.6294E+00_JPRB,6.7220E+00_JPRB,8.4420E+00_JPRB,9.9167E+00_JPRB/)  
+KBO( :, 1,23,12) = (/&
+ & 1.3635E+00_JPRB,3.9535E+00_JPRB,6.5578E+00_JPRB,8.7891E+00_JPRB,1.1317E+01_JPRB/)  
+KBO( :, 2,23,12) = (/&
+ & 1.8479E+00_JPRB,4.1472E+00_JPRB,6.7653E+00_JPRB,8.8306E+00_JPRB,1.1151E+01_JPRB/)  
+KBO( :, 3,23,12) = (/&
+ & 2.4090E+00_JPRB,4.3291E+00_JPRB,6.9299E+00_JPRB,8.9124E+00_JPRB,1.0971E+01_JPRB/)  
+KBO( :, 4,23,12) = (/&
+ & 3.0476E+00_JPRB,4.5186E+00_JPRB,7.0757E+00_JPRB,9.0158E+00_JPRB,1.0781E+01_JPRB/)  
+KBO( :, 5,23,12) = (/&
+ & 3.7677E+00_JPRB,4.7466E+00_JPRB,7.1916E+00_JPRB,9.0858E+00_JPRB,1.0580E+01_JPRB/)  
+KBO( :, 1,24,12) = (/&
+ & 1.2524E+00_JPRB,4.1964E+00_JPRB,7.0027E+00_JPRB,9.3088E+00_JPRB,1.1891E+01_JPRB/)  
+KBO( :, 2,24,12) = (/&
+ & 1.6860E+00_JPRB,4.3866E+00_JPRB,7.2061E+00_JPRB,9.3894E+00_JPRB,1.1740E+01_JPRB/)  
+KBO( :, 3,24,12) = (/&
+ & 2.1916E+00_JPRB,4.5632E+00_JPRB,7.3707E+00_JPRB,9.5161E+00_JPRB,1.1574E+01_JPRB/)  
+KBO( :, 4,24,12) = (/&
+ & 2.7755E+00_JPRB,4.7310E+00_JPRB,7.5040E+00_JPRB,9.6239E+00_JPRB,1.1390E+01_JPRB/)  
+KBO( :, 5,24,12) = (/&
+ & 3.4421E+00_JPRB,4.9112E+00_JPRB,7.6141E+00_JPRB,9.6873E+00_JPRB,1.1189E+01_JPRB/)  
+KBO( :, 1,25,12) = (/&
+ & 1.1444E+00_JPRB,4.4093E+00_JPRB,7.3963E+00_JPRB,9.7702E+00_JPRB,1.2380E+01_JPRB/)  
+KBO( :, 2,25,12) = (/&
+ & 1.5338E+00_JPRB,4.5946E+00_JPRB,7.5950E+00_JPRB,9.9140E+00_JPRB,1.2253E+01_JPRB/)  
+KBO( :, 3,25,12) = (/&
+ & 1.9951E+00_JPRB,4.7679E+00_JPRB,7.7559E+00_JPRB,1.0074E+01_JPRB,1.2101E+01_JPRB/)  
+KBO( :, 4,25,12) = (/&
+ & 2.5340E+00_JPRB,4.9285E+00_JPRB,7.8837E+00_JPRB,1.0178E+01_JPRB,1.1928E+01_JPRB/)  
+KBO( :, 5,25,12) = (/&
+ & 3.1490E+00_JPRB,5.0856E+00_JPRB,7.9862E+00_JPRB,1.0230E+01_JPRB,1.1731E+01_JPRB/)  
+KBO( :, 1,26,12) = (/&
+ & 1.0478E+00_JPRB,4.5874E+00_JPRB,7.7327E+00_JPRB,1.0197E+01_JPRB,1.2777E+01_JPRB/)  
+KBO( :, 2,26,12) = (/&
+ & 1.4034E+00_JPRB,4.7724E+00_JPRB,7.9352E+00_JPRB,1.0399E+01_JPRB,1.2676E+01_JPRB/)  
+KBO( :, 3,26,12) = (/&
+ & 1.8290E+00_JPRB,4.9445E+00_JPRB,8.0940E+00_JPRB,1.0560E+01_JPRB,1.2548E+01_JPRB/)  
+KBO( :, 4,26,12) = (/&
+ & 2.3262E+00_JPRB,5.0995E+00_JPRB,8.2175E+00_JPRB,1.0662E+01_JPRB,1.2385E+01_JPRB/)  
+KBO( :, 5,26,12) = (/&
+ & 2.8994E+00_JPRB,5.2504E+00_JPRB,8.3168E+00_JPRB,1.0708E+01_JPRB,1.2185E+01_JPRB/)  
+KBO( :, 1,27,12) = (/&
+ & 9.6295E-01_JPRB,4.7357E+00_JPRB,8.0186E+00_JPRB,1.0582E+01_JPRB,1.3091E+01_JPRB/)  
+KBO( :, 2,27,12) = (/&
+ & 1.2910E+00_JPRB,4.9215E+00_JPRB,8.2248E+00_JPRB,1.0814E+01_JPRB,1.3028E+01_JPRB/)  
+KBO( :, 3,27,12) = (/&
+ & 1.6838E+00_JPRB,5.0898E+00_JPRB,8.3871E+00_JPRB,1.0984E+01_JPRB,1.2918E+01_JPRB/)  
+KBO( :, 4,27,12) = (/&
+ & 2.1466E+00_JPRB,5.2404E+00_JPRB,8.5110E+00_JPRB,1.1084E+01_JPRB,1.2766E+01_JPRB/)  
+KBO( :, 5,27,12) = (/&
+ & 2.6872E+00_JPRB,5.3861E+00_JPRB,8.6027E+00_JPRB,1.1128E+01_JPRB,1.2572E+01_JPRB/)  
+KBO( :, 1,28,12) = (/&
+ & 8.9212E-01_JPRB,4.8606E+00_JPRB,8.2568E+00_JPRB,1.0928E+01_JPRB,1.3355E+01_JPRB/)  
+KBO( :, 2,28,12) = (/&
+ & 1.1960E+00_JPRB,5.0446E+00_JPRB,8.4744E+00_JPRB,1.1178E+01_JPRB,1.3316E+01_JPRB/)  
+KBO( :, 3,28,12) = (/&
+ & 1.5631E+00_JPRB,5.2061E+00_JPRB,8.6403E+00_JPRB,1.1353E+01_JPRB,1.3227E+01_JPRB/)  
+KBO( :, 4,28,12) = (/&
+ & 2.0020E+00_JPRB,5.3547E+00_JPRB,8.7642E+00_JPRB,1.1451E+01_JPRB,1.3084E+01_JPRB/)  
+KBO( :, 5,28,12) = (/&
+ & 2.5209E+00_JPRB,5.4919E+00_JPRB,8.8461E+00_JPRB,1.1491E+01_JPRB,1.2898E+01_JPRB/)  
+KBO( :, 1,29,12) = (/&
+ & 8.3439E-01_JPRB,4.9630E+00_JPRB,8.4638E+00_JPRB,1.1240E+01_JPRB,1.3569E+01_JPRB/)  
+KBO( :, 2,29,12) = (/&
+ & 1.1207E+00_JPRB,5.1454E+00_JPRB,8.6875E+00_JPRB,1.1503E+01_JPRB,1.3552E+01_JPRB/)  
+KBO( :, 3,29,12) = (/&
+ & 1.4717E+00_JPRB,5.3013E+00_JPRB,8.8580E+00_JPRB,1.1673E+01_JPRB,1.3478E+01_JPRB/)  
+KBO( :, 4,29,12) = (/&
+ & 1.8931E+00_JPRB,5.4461E+00_JPRB,8.9793E+00_JPRB,1.1770E+01_JPRB,1.3347E+01_JPRB/)  
+KBO( :, 5,29,12) = (/&
+ & 2.3917E+00_JPRB,5.5710E+00_JPRB,9.0514E+00_JPRB,1.1806E+01_JPRB,1.3171E+01_JPRB/)  
+KBO( :, 1,30,12) = (/&
+ & 7.8953E-01_JPRB,5.0479E+00_JPRB,8.6488E+00_JPRB,1.1520E+01_JPRB,1.3753E+01_JPRB/)  
+KBO( :, 2,30,12) = (/&
+ & 1.0632E+00_JPRB,5.2264E+00_JPRB,8.8753E+00_JPRB,1.1783E+01_JPRB,1.3755E+01_JPRB/)  
+KBO( :, 3,30,12) = (/&
+ & 1.4002E+00_JPRB,5.3769E+00_JPRB,9.0463E+00_JPRB,1.1951E+01_JPRB,1.3696E+01_JPRB/)  
+KBO( :, 4,30,12) = (/&
+ & 1.8078E+00_JPRB,5.5153E+00_JPRB,9.1561E+00_JPRB,1.2049E+01_JPRB,1.3577E+01_JPRB/)  
+KBO( :, 5,30,12) = (/&
+ & 2.2911E+00_JPRB,5.6294E+00_JPRB,9.2248E+00_JPRB,1.2077E+01_JPRB,1.3407E+01_JPRB/)  
+KBO( :, 1,31,12) = (/&
+ & 7.5763E-01_JPRB,5.1182E+00_JPRB,8.8135E+00_JPRB,1.1775E+01_JPRB,1.3909E+01_JPRB/)  
+KBO( :, 2,31,12) = (/&
+ & 1.0216E+00_JPRB,5.2915E+00_JPRB,9.0421E+00_JPRB,1.2027E+01_JPRB,1.3937E+01_JPRB/)  
+KBO( :, 3,31,12) = (/&
+ & 1.3478E+00_JPRB,5.4413E+00_JPRB,9.2028E+00_JPRB,1.2197E+01_JPRB,1.3886E+01_JPRB/)  
+KBO( :, 4,31,12) = (/&
+ & 1.7441E+00_JPRB,5.5694E+00_JPRB,9.3055E+00_JPRB,1.2288E+01_JPRB,1.3772E+01_JPRB/)  
+KBO( :, 5,31,12) = (/&
+ & 2.2144E+00_JPRB,5.6760E+00_JPRB,9.3680E+00_JPRB,1.2303E+01_JPRB,1.3606E+01_JPRB/)  
+KBO( :, 1,32,12) = (/&
+ & 7.3463E-01_JPRB,5.1776E+00_JPRB,8.9653E+00_JPRB,1.1995E+01_JPRB,1.4066E+01_JPRB/)  
+KBO( :, 2,32,12) = (/&
+ & 9.9287E-01_JPRB,5.3488E+00_JPRB,9.1823E+00_JPRB,1.2248E+01_JPRB,1.4093E+01_JPRB/)  
+KBO( :, 3,32,12) = (/&
+ & 1.3124E+00_JPRB,5.4937E+00_JPRB,9.3364E+00_JPRB,1.2412E+01_JPRB,1.4048E+01_JPRB/)  
+KBO( :, 4,32,12) = (/&
+ & 1.6979E+00_JPRB,5.6116E+00_JPRB,9.4348E+00_JPRB,1.2490E+01_JPRB,1.3938E+01_JPRB/)  
+KBO( :, 5,32,12) = (/&
+ & 2.1569E+00_JPRB,5.7180E+00_JPRB,9.4915E+00_JPRB,1.2493E+01_JPRB,1.3768E+01_JPRB/)  
+KBO( :, 1,33,12) = (/&
+ & 7.1977E-01_JPRB,5.2298E+00_JPRB,9.0982E+00_JPRB,1.2196E+01_JPRB,1.4201E+01_JPRB/)  
+KBO( :, 2,33,12) = (/&
+ & 9.7359E-01_JPRB,5.3967E+00_JPRB,9.3054E+00_JPRB,1.2444E+01_JPRB,1.4231E+01_JPRB/)  
+KBO( :, 3,33,12) = (/&
+ & 1.2863E+00_JPRB,5.5361E+00_JPRB,9.4542E+00_JPRB,1.2592E+01_JPRB,1.4192E+01_JPRB/)  
+KBO( :, 4,33,12) = (/&
+ & 1.6635E+00_JPRB,5.6471E+00_JPRB,9.5434E+00_JPRB,1.2656E+01_JPRB,1.4080E+01_JPRB/)  
+KBO( :, 5,33,12) = (/&
+ & 2.1169E+00_JPRB,5.7606E+00_JPRB,9.5939E+00_JPRB,1.2650E+01_JPRB,1.3912E+01_JPRB/)  
+KBO( :, 1,34,12) = (/&
+ & 7.0357E-01_JPRB,5.2718E+00_JPRB,9.2058E+00_JPRB,1.2367E+01_JPRB,1.4318E+01_JPRB/)  
+KBO( :, 2,34,12) = (/&
+ & 9.5100E-01_JPRB,5.4364E+00_JPRB,9.4086E+00_JPRB,1.2603E+01_JPRB,1.4360E+01_JPRB/)  
+KBO( :, 3,34,12) = (/&
+ & 1.2571E+00_JPRB,5.5683E+00_JPRB,9.5524E+00_JPRB,1.2741E+01_JPRB,1.4321E+01_JPRB/)  
+KBO( :, 4,34,12) = (/&
+ & 1.6282E+00_JPRB,5.6772E+00_JPRB,9.6331E+00_JPRB,1.2794E+01_JPRB,1.4205E+01_JPRB/)  
+KBO( :, 5,34,12) = (/&
+ & 2.0759E+00_JPRB,5.7973E+00_JPRB,9.6806E+00_JPRB,1.2780E+01_JPRB,1.4057E+01_JPRB/)  
+KBO( :, 1,35,12) = (/&
+ & 6.7127E-01_JPRB,5.2954E+00_JPRB,9.2834E+00_JPRB,1.2496E+01_JPRB,1.4429E+01_JPRB/)  
+KBO( :, 2,35,12) = (/&
+ & 9.0855E-01_JPRB,5.4587E+00_JPRB,9.4864E+00_JPRB,1.2723E+01_JPRB,1.4480E+01_JPRB/)  
+KBO( :, 3,35,12) = (/&
+ & 1.2033E+00_JPRB,5.5864E+00_JPRB,9.6267E+00_JPRB,1.2858E+01_JPRB,1.4440E+01_JPRB/)  
+KBO( :, 4,35,12) = (/&
+ & 1.5648E+00_JPRB,5.6975E+00_JPRB,9.7046E+00_JPRB,1.2909E+01_JPRB,1.4336E+01_JPRB/)  
+KBO( :, 5,35,12) = (/&
+ & 2.0039E+00_JPRB,5.8207E+00_JPRB,9.7512E+00_JPRB,1.2890E+01_JPRB,1.4208E+01_JPRB/)  
+KBO( :, 1,36,12) = (/&
+ & 6.2192E-01_JPRB,5.2979E+00_JPRB,9.3271E+00_JPRB,1.2576E+01_JPRB,1.4520E+01_JPRB/)  
+KBO( :, 2,36,12) = (/&
+ & 8.4546E-01_JPRB,5.4637E+00_JPRB,9.5367E+00_JPRB,1.2809E+01_JPRB,1.4583E+01_JPRB/)  
+KBO( :, 3,36,12) = (/&
+ & 1.1251E+00_JPRB,5.5908E+00_JPRB,9.6790E+00_JPRB,1.2948E+01_JPRB,1.4550E+01_JPRB/)  
+KBO( :, 4,36,12) = (/&
+ & 1.4725E+00_JPRB,5.7038E+00_JPRB,9.7597E+00_JPRB,1.3004E+01_JPRB,1.4471E+01_JPRB/)  
+KBO( :, 5,36,12) = (/&
+ & 1.8981E+00_JPRB,5.8306E+00_JPRB,9.8077E+00_JPRB,1.2987E+01_JPRB,1.4353E+01_JPRB/)  
+KBO( :, 1,37,12) = (/&
+ & 5.5089E-01_JPRB,5.2730E+00_JPRB,9.3242E+00_JPRB,1.2595E+01_JPRB,1.4578E+01_JPRB/)  
+KBO( :, 2,37,12) = (/&
+ & 7.5546E-01_JPRB,5.4446E+00_JPRB,9.5503E+00_JPRB,1.2851E+01_JPRB,1.4663E+01_JPRB/)  
+KBO( :, 3,37,12) = (/&
+ & 1.0138E+00_JPRB,5.5779E+00_JPRB,9.7054E+00_JPRB,1.3008E+01_JPRB,1.4649E+01_JPRB/)  
+KBO( :, 4,37,12) = (/&
+ & 1.3388E+00_JPRB,5.6937E+00_JPRB,9.7968E+00_JPRB,1.3080E+01_JPRB,1.4599E+01_JPRB/)  
+KBO( :, 5,37,12) = (/&
+ & 1.7405E+00_JPRB,5.8196E+00_JPRB,9.8483E+00_JPRB,1.3074E+01_JPRB,1.4497E+01_JPRB/)  
+KBO( :, 1,38,12) = (/&
+ & 4.8774E-01_JPRB,5.2446E+00_JPRB,9.3121E+00_JPRB,1.2598E+01_JPRB,1.4624E+01_JPRB/)  
+KBO( :, 2,38,12) = (/&
+ & 6.7596E-01_JPRB,5.4236E+00_JPRB,9.5535E+00_JPRB,1.2878E+01_JPRB,1.4727E+01_JPRB/)  
+KBO( :, 3,38,12) = (/&
+ & 9.1580E-01_JPRB,5.5635E+00_JPRB,9.7210E+00_JPRB,1.3053E+01_JPRB,1.4738E+01_JPRB/)  
+KBO( :, 4,38,12) = (/&
+ & 1.2196E+00_JPRB,5.6813E+00_JPRB,9.8236E+00_JPRB,1.3139E+01_JPRB,1.4721E+01_JPRB/)  
+KBO( :, 5,38,12) = (/&
+ & 1.5995E+00_JPRB,5.8073E+00_JPRB,9.8794E+00_JPRB,1.3147E+01_JPRB,1.4637E+01_JPRB/)  
+KBO( :, 1,39,12) = (/&
+ & 4.3319E-01_JPRB,5.2171E+00_JPRB,9.2923E+00_JPRB,1.2591E+01_JPRB,1.4655E+01_JPRB/)  
+KBO( :, 2,39,12) = (/&
+ & 6.0674E-01_JPRB,5.4013E+00_JPRB,9.5491E+00_JPRB,1.2892E+01_JPRB,1.4779E+01_JPRB/)  
+KBO( :, 3,39,12) = (/&
+ & 8.3076E-01_JPRB,5.5491E+00_JPRB,9.7285E+00_JPRB,1.3083E+01_JPRB,1.4825E+01_JPRB/)  
+KBO( :, 4,39,12) = (/&
+ & 1.1162E+00_JPRB,5.6693E+00_JPRB,9.8420E+00_JPRB,1.3183E+01_JPRB,1.4848E+01_JPRB/)  
+KBO( :, 5,39,12) = (/&
+ & 1.4760E+00_JPRB,5.7939E+00_JPRB,9.9065E+00_JPRB,1.3208E+01_JPRB,1.4788E+01_JPRB/)  
+KBO( :, 1,40,12) = (/&
+ & 3.7146E-01_JPRB,5.1676E+00_JPRB,9.2350E+00_JPRB,1.2533E+01_JPRB,1.4645E+01_JPRB/)  
+KBO( :, 2,40,12) = (/&
+ & 5.2844E-01_JPRB,5.3608E+00_JPRB,9.5128E+00_JPRB,1.2866E+01_JPRB,1.4804E+01_JPRB/)  
+KBO( :, 3,40,12) = (/&
+ & 7.3313E-01_JPRB,5.5191E+00_JPRB,9.7148E+00_JPRB,1.3086E+01_JPRB,1.4881E+01_JPRB/)  
+KBO( :, 4,40,12) = (/&
+ & 9.9528E-01_JPRB,5.6415E+00_JPRB,9.8443E+00_JPRB,1.3210E+01_JPRB,1.4931E+01_JPRB/)  
+KBO( :, 5,40,12) = (/&
+ & 1.3291E+00_JPRB,5.7657E+00_JPRB,9.9220E+00_JPRB,1.3255E+01_JPRB,1.4902E+01_JPRB/)  
+KBO( :, 1,41,12) = (/&
+ & 3.1691E-01_JPRB,5.1123E+00_JPRB,9.1654E+00_JPRB,1.2453E+01_JPRB,1.4615E+01_JPRB/)  
+KBO( :, 2,41,12) = (/&
+ & 4.5854E-01_JPRB,5.3141E+00_JPRB,9.4645E+00_JPRB,1.2820E+01_JPRB,1.4813E+01_JPRB/)  
+KBO( :, 3,41,12) = (/&
+ & 6.4497E-01_JPRB,5.4832E+00_JPRB,9.6893E+00_JPRB,1.3072E+01_JPRB,1.4921E+01_JPRB/)  
+KBO( :, 4,41,12) = (/&
+ & 8.8600E-01_JPRB,5.6149E+00_JPRB,9.8376E+00_JPRB,1.3222E+01_JPRB,1.5000E+01_JPRB/)  
+KBO( :, 5,41,12) = (/&
+ & 1.1949E+00_JPRB,5.7388E+00_JPRB,9.9263E+00_JPRB,1.3289E+01_JPRB,1.5001E+01_JPRB/)  
+KBO( :, 1,42,12) = (/&
+ & 2.6990E-01_JPRB,5.0545E+00_JPRB,9.0851E+00_JPRB,1.2357E+01_JPRB,1.4568E+01_JPRB/)  
+KBO( :, 2,42,12) = (/&
+ & 3.9791E-01_JPRB,5.2666E+00_JPRB,9.4059E+00_JPRB,1.2762E+01_JPRB,1.4811E+01_JPRB/)  
+KBO( :, 3,42,12) = (/&
+ & 5.6786E-01_JPRB,5.4473E+00_JPRB,9.6535E+00_JPRB,1.3042E+01_JPRB,1.4951E+01_JPRB/)  
+KBO( :, 4,42,12) = (/&
+ & 7.8985E-01_JPRB,5.5889E+00_JPRB,9.8202E+00_JPRB,1.3220E+01_JPRB,1.5062E+01_JPRB/)  
+KBO( :, 5,42,12) = (/&
+ & 1.0759E+00_JPRB,5.7103E+00_JPRB,9.9256E+00_JPRB,1.3308E+01_JPRB,1.5095E+01_JPRB/)  
+KBO( :, 1,43,12) = (/&
+ & 2.2408E-01_JPRB,4.9801E+00_JPRB,8.9750E+00_JPRB,1.2220E+01_JPRB,1.4488E+01_JPRB/)  
+KBO( :, 2,43,12) = (/&
+ & 3.3742E-01_JPRB,5.2050E+00_JPRB,9.3221E+00_JPRB,1.2666E+01_JPRB,1.4779E+01_JPRB/)  
+KBO( :, 3,43,12) = (/&
+ & 4.9010E-01_JPRB,5.3960E+00_JPRB,9.5945E+00_JPRB,1.2984E+01_JPRB,1.4959E+01_JPRB/)  
+KBO( :, 4,43,12) = (/&
+ & 6.9169E-01_JPRB,5.5493E+00_JPRB,9.7889E+00_JPRB,1.3197E+01_JPRB,1.5104E+01_JPRB/)  
+KBO( :, 5,43,12) = (/&
+ & 9.5305E-01_JPRB,5.6745E+00_JPRB,9.9131E+00_JPRB,1.3310E+01_JPRB,1.5176E+01_JPRB/)  
+KBO( :, 1,44,12) = (/&
+ & 1.8323E-01_JPRB,4.8933E+00_JPRB,8.8410E+00_JPRB,1.2051E+01_JPRB,1.4377E+01_JPRB/)  
+KBO( :, 2,44,12) = (/&
+ & 2.8217E-01_JPRB,5.1330E+00_JPRB,9.2212E+00_JPRB,1.2543E+01_JPRB,1.4725E+01_JPRB/)  
+KBO( :, 3,44,12) = (/&
+ & 4.1838E-01_JPRB,5.3347E+00_JPRB,9.5219E+00_JPRB,1.2906E+01_JPRB,1.4949E+01_JPRB/)  
+KBO( :, 4,44,12) = (/&
+ & 5.9984E-01_JPRB,5.5043E+00_JPRB,9.7457E+00_JPRB,1.3153E+01_JPRB,1.5131E+01_JPRB/)  
+KBO( :, 5,44,12) = (/&
+ & 8.3730E-01_JPRB,5.6361E+00_JPRB,9.8881E+00_JPRB,1.3302E+01_JPRB,1.5248E+01_JPRB/)  
+KBO( :, 1,45,12) = (/&
+ & 1.4904E-01_JPRB,4.8014E+00_JPRB,8.6942E+00_JPRB,1.1857E+01_JPRB,1.4243E+01_JPRB/)  
+KBO( :, 2,45,12) = (/&
+ & 2.3486E-01_JPRB,5.0590E+00_JPRB,9.1087E+00_JPRB,1.2404E+01_JPRB,1.4652E+01_JPRB/)  
+KBO( :, 3,45,12) = (/&
+ & 3.5578E-01_JPRB,5.2728E+00_JPRB,9.4361E+00_JPRB,1.2811E+01_JPRB,1.4928E+01_JPRB/)  
+KBO( :, 4,45,12) = (/&
+ & 5.1907E-01_JPRB,5.4551E+00_JPRB,9.6849E+00_JPRB,1.3095E+01_JPRB,1.5155E+01_JPRB/)  
+KBO( :, 5,45,12) = (/&
+ & 7.3447E-01_JPRB,5.5970E+00_JPRB,9.8551E+00_JPRB,1.3278E+01_JPRB,1.5316E+01_JPRB/)  
+KBO( :, 1,46,12) = (/&
+ & 1.1910E-01_JPRB,4.6973E+00_JPRB,8.5264E+00_JPRB,1.1635E+01_JPRB,1.4074E+01_JPRB/)  
+KBO( :, 2,46,12) = (/&
+ & 1.9264E-01_JPRB,4.9713E+00_JPRB,8.9752E+00_JPRB,1.2231E+01_JPRB,1.4552E+01_JPRB/)  
+KBO( :, 3,46,12) = (/&
+ & 2.9840E-01_JPRB,5.1994E+00_JPRB,9.3302E+00_JPRB,1.2687E+01_JPRB,1.4886E+01_JPRB/)  
+KBO( :, 4,46,12) = (/&
+ & 4.4420E-01_JPRB,5.3934E+00_JPRB,9.6109E+00_JPRB,1.3017E+01_JPRB,1.5158E+01_JPRB/)  
+KBO( :, 5,46,12) = (/&
+ & 6.3821E-01_JPRB,5.5501E+00_JPRB,9.8128E+00_JPRB,1.3236E+01_JPRB,1.5371E+01_JPRB/)  
+KBO( :, 1,47,12) = (/&
+ & 9.2205E-02_JPRB,4.5728E+00_JPRB,8.3222E+00_JPRB,1.1357E+01_JPRB,1.3848E+01_JPRB/)  
+KBO( :, 2,47,12) = (/&
+ & 1.5376E-01_JPRB,4.8658E+00_JPRB,8.8065E+00_JPRB,1.2014E+01_JPRB,1.4405E+01_JPRB/)  
+KBO( :, 3,47,12) = (/&
+ & 2.4420E-01_JPRB,5.1135E+00_JPRB,9.2023E+00_JPRB,1.2528E+01_JPRB,1.4805E+01_JPRB/)  
+KBO( :, 4,47,12) = (/&
+ & 3.7202E-01_JPRB,5.3206E+00_JPRB,9.5150E+00_JPRB,1.2907E+01_JPRB,1.5121E+01_JPRB/)  
+KBO( :, 5,47,12) = (/&
+ & 5.4440E-01_JPRB,5.4945E+00_JPRB,9.7455E+00_JPRB,1.3168E+01_JPRB,1.5387E+01_JPRB/)  
+KBO( :, 1,48,12) = (/&
+ & 7.0454E-02_JPRB,4.4412E+00_JPRB,8.1011E+00_JPRB,1.1048E+01_JPRB,1.3590E+01_JPRB/)  
+KBO( :, 2,48,12) = (/&
+ & 1.2149E-01_JPRB,4.7546E+00_JPRB,8.6257E+00_JPRB,1.1771E+01_JPRB,1.4231E+01_JPRB/)  
+KBO( :, 3,48,12) = (/&
+ & 1.9826E-01_JPRB,5.0205E+00_JPRB,9.0577E+00_JPRB,1.2345E+01_JPRB,1.4705E+01_JPRB/)  
+KBO( :, 4,48,12) = (/&
+ & 3.0915E-01_JPRB,5.2415E+00_JPRB,9.3998E+00_JPRB,1.2778E+01_JPRB,1.5077E+01_JPRB/)  
+KBO( :, 5,48,12) = (/&
+ & 4.6199E-01_JPRB,5.4308E+00_JPRB,9.6652E+00_JPRB,1.3083E+01_JPRB,1.5397E+01_JPRB/)  
+KBO( :, 1,49,12) = (/&
+ & 5.3088E-02_JPRB,4.3008E+00_JPRB,7.8587E+00_JPRB,1.0710E+01_JPRB,1.3300E+01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART30',1,ZHOOK_HANDLE)
+END SUBROUTINE PART30
+
+
+SUBROUTINE PART31
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART31',0,ZHOOK_HANDLE)
+
+
+KBO( :, 2,49,12) = (/&
+ & 9.4886E-02_JPRB,4.6325E+00_JPRB,8.4260E+00_JPRB,1.1503E+01_JPRB,1.4035E+01_JPRB/)  
+KBO( :, 3,49,12) = (/&
+ & 1.5966E-01_JPRB,4.9173E+00_JPRB,8.8952E+00_JPRB,1.2135E+01_JPRB,1.4593E+01_JPRB/)  
+KBO( :, 4,49,12) = (/&
+ & 2.5505E-01_JPRB,5.1573E+00_JPRB,9.2755E+00_JPRB,1.2624E+01_JPRB,1.5028E+01_JPRB/)  
+KBO( :, 5,49,12) = (/&
+ & 3.8941E-01_JPRB,5.3580E+00_JPRB,9.5745E+00_JPRB,1.2980E+01_JPRB,1.5409E+01_JPRB/)  
+KBO( :, 1,50,12) = (/&
+ & 4.0067E-02_JPRB,4.1596E+00_JPRB,7.6089E+00_JPRB,1.0372E+01_JPRB,1.2988E+01_JPRB/)  
+KBO( :, 2,50,12) = (/&
+ & 7.4256E-02_JPRB,4.5125E+00_JPRB,8.2260E+00_JPRB,1.1225E+01_JPRB,1.3810E+01_JPRB/)  
+KBO( :, 3,50,12) = (/&
+ & 1.2901E-01_JPRB,4.8174E+00_JPRB,8.7310E+00_JPRB,1.1915E+01_JPRB,1.4444E+01_JPRB/)  
+KBO( :, 4,50,12) = (/&
+ & 2.1116E-01_JPRB,5.0740E+00_JPRB,9.1458E+00_JPRB,1.2461E+01_JPRB,1.4934E+01_JPRB/)  
+KBO( :, 5,50,12) = (/&
+ & 3.2945E-01_JPRB,5.2879E+00_JPRB,9.4738E+00_JPRB,1.2866E+01_JPRB,1.5371E+01_JPRB/)  
+KBO( :, 1,51,12) = (/&
+ & 3.0082E-02_JPRB,4.0166E+00_JPRB,7.3470E+00_JPRB,1.0024E+01_JPRB,1.2649E+01_JPRB/)  
+KBO( :, 2,51,12) = (/&
+ & 5.7864E-02_JPRB,4.3904E+00_JPRB,8.0166E+00_JPRB,1.0930E+01_JPRB,1.3555E+01_JPRB/)  
+KBO( :, 3,51,12) = (/&
+ & 1.0385E-01_JPRB,4.7103E+00_JPRB,8.5593E+00_JPRB,1.1684E+01_JPRB,1.4265E+01_JPRB/)  
+KBO( :, 4,51,12) = (/&
+ & 1.7451E-01_JPRB,4.9838E+00_JPRB,9.0063E+00_JPRB,1.2280E+01_JPRB,1.4812E+01_JPRB/)  
+KBO( :, 5,51,12) = (/&
+ & 2.7822E-01_JPRB,5.2130E+00_JPRB,9.3629E+00_JPRB,1.2735E+01_JPRB,1.5297E+01_JPRB/)  
+KBO( :, 1,52,12) = (/&
+ & 2.2321E-02_JPRB,3.8633E+00_JPRB,7.0669E+00_JPRB,9.6645E+00_JPRB,1.2286E+01_JPRB/)  
+KBO( :, 2,52,12) = (/&
+ & 4.4568E-02_JPRB,4.2586E+00_JPRB,7.7887E+00_JPRB,1.0615E+01_JPRB,1.3275E+01_JPRB/)  
+KBO( :, 3,52,12) = (/&
+ & 8.2764E-02_JPRB,4.5976E+00_JPRB,8.3722E+00_JPRB,1.1430E+01_JPRB,1.4067E+01_JPRB/)  
+KBO( :, 4,52,12) = (/&
+ & 1.4332E-01_JPRB,4.8897E+00_JPRB,8.8533E+00_JPRB,1.2081E+01_JPRB,1.4681E+01_JPRB/)  
+KBO( :, 5,52,12) = (/&
+ & 2.3359E-01_JPRB,5.1350E+00_JPRB,9.2453E+00_JPRB,1.2589E+01_JPRB,1.5214E+01_JPRB/)  
+KBO( :, 1,53,12) = (/&
+ & 1.6320E-02_JPRB,3.7017E+00_JPRB,6.7670E+00_JPRB,9.2859E+00_JPRB,1.1890E+01_JPRB/)  
+KBO( :, 2,53,12) = (/&
+ & 3.3883E-02_JPRB,4.1210E+00_JPRB,7.5408E+00_JPRB,1.0281E+01_JPRB,1.2972E+01_JPRB/)  
+KBO( :, 3,53,12) = (/&
+ & 6.5211E-02_JPRB,4.4803E+00_JPRB,8.1737E+00_JPRB,1.1152E+01_JPRB,1.3849E+01_JPRB/)  
+KBO( :, 4,53,12) = (/&
+ & 1.1656E-01_JPRB,4.7901E+00_JPRB,8.6895E+00_JPRB,1.1861E+01_JPRB,1.4540E+01_JPRB/)  
+KBO( :, 5,53,12) = (/&
+ & 1.9454E-01_JPRB,5.0513E+00_JPRB,9.1138E+00_JPRB,1.2423E+01_JPRB,1.5132E+01_JPRB/)  
+KBO( :, 1,54,12) = (/&
+ & 1.2044E-02_JPRB,3.5460E+00_JPRB,6.4769E+00_JPRB,8.9175E+00_JPRB,1.1478E+01_JPRB/)  
+KBO( :, 2,54,12) = (/&
+ & 2.6009E-02_JPRB,3.9878E+00_JPRB,7.2955E+00_JPRB,9.9571E+00_JPRB,1.2628E+01_JPRB/)  
+KBO( :, 3,54,12) = (/&
+ & 5.1821E-02_JPRB,4.3666E+00_JPRB,7.9779E+00_JPRB,1.0876E+01_JPRB,1.3583E+01_JPRB/)  
+KBO( :, 4,54,12) = (/&
+ & 9.5474E-02_JPRB,4.6901E+00_JPRB,8.5279E+00_JPRB,1.1644E+01_JPRB,1.4331E+01_JPRB/)  
+KBO( :, 5,54,12) = (/&
+ & 1.6346E-01_JPRB,4.9679E+00_JPRB,8.9829E+00_JPRB,1.2251E+01_JPRB,1.4953E+01_JPRB/)  
+KBO( :, 1,55,12) = (/&
+ & 8.8474E-03_JPRB,3.3874E+00_JPRB,6.1849E+00_JPRB,8.5463E+00_JPRB,1.1054E+01_JPRB/)  
+KBO( :, 2,55,12) = (/&
+ & 1.9964E-02_JPRB,3.8514E+00_JPRB,7.0467E+00_JPRB,9.6387E+00_JPRB,1.2268E+01_JPRB/)  
+KBO( :, 3,55,12) = (/&
+ & 4.1152E-02_JPRB,4.2498E+00_JPRB,7.7746E+00_JPRB,1.0596E+01_JPRB,1.3279E+01_JPRB/)  
+KBO( :, 4,55,12) = (/&
+ & 7.8159E-02_JPRB,4.5905E+00_JPRB,8.3623E+00_JPRB,1.1417E+01_JPRB,1.4084E+01_JPRB/)  
+KBO( :, 5,55,12) = (/&
+ & 1.3750E-01_JPRB,4.8845E+00_JPRB,8.8463E+00_JPRB,1.2073E+01_JPRB,1.4722E+01_JPRB/)  
+KBO( :, 1,56,12) = (/&
+ & 6.4082E-03_JPRB,3.2244E+00_JPRB,5.8774E+00_JPRB,8.1652E+00_JPRB,1.0610E+01_JPRB/)  
+KBO( :, 2,56,12) = (/&
+ & 1.5162E-02_JPRB,3.7100E+00_JPRB,6.7838E+00_JPRB,9.3060E+00_JPRB,1.1893E+01_JPRB/)  
+KBO( :, 3,56,12) = (/&
+ & 3.2388E-02_JPRB,4.1289E+00_JPRB,7.5561E+00_JPRB,1.0301E+01_JPRB,1.2952E+01_JPRB/)  
+KBO( :, 4,56,12) = (/&
+ & 6.3471E-02_JPRB,4.4879E+00_JPRB,8.1882E+00_JPRB,1.1172E+01_JPRB,1.3823E+01_JPRB/)  
+KBO( :, 5,56,12) = (/&
+ & 1.1487E-01_JPRB,4.7971E+00_JPRB,8.7028E+00_JPRB,1.1880E+01_JPRB,1.4496E+01_JPRB/)  
+KBO( :, 1,57,12) = (/&
+ & 4.5631E-03_JPRB,3.0511E+00_JPRB,5.5587E+00_JPRB,7.7750E+00_JPRB,1.0138E+01_JPRB/)  
+KBO( :, 2,57,12) = (/&
+ & 1.1368E-02_JPRB,3.5622E+00_JPRB,6.5073E+00_JPRB,8.9555E+00_JPRB,1.1499E+01_JPRB/)  
+KBO( :, 3,57,12) = (/&
+ & 2.5250E-02_JPRB,4.0025E+00_JPRB,7.3232E+00_JPRB,9.9930E+00_JPRB,1.2617E+01_JPRB/)  
+KBO( :, 4,57,12) = (/&
+ & 5.1105E-02_JPRB,4.3794E+00_JPRB,8.0015E+00_JPRB,1.0910E+01_JPRB,1.3544E+01_JPRB/)  
+KBO( :, 5,57,12) = (/&
+ & 9.5178E-02_JPRB,4.7023E+00_JPRB,8.5498E+00_JPRB,1.1673E+01_JPRB,1.4270E+01_JPRB/)  
+KBO( :, 1,58,12) = (/&
+ & 3.2442E-03_JPRB,2.8817E+00_JPRB,5.2469E+00_JPRB,7.3938E+00_JPRB,9.6647E+00_JPRB/)  
+KBO( :, 2,58,12) = (/&
+ & 8.5196E-03_JPRB,3.4130E+00_JPRB,6.2333E+00_JPRB,8.6058E+00_JPRB,1.1102E+01_JPRB/)  
+KBO( :, 3,58,12) = (/&
+ & 1.9737E-02_JPRB,3.8740E+00_JPRB,7.0888E+00_JPRB,9.6922E+00_JPRB,1.2287E+01_JPRB/)  
+KBO( :, 4,58,12) = (/&
+ & 4.1256E-02_JPRB,4.2697E+00_JPRB,7.8107E+00_JPRB,1.0646E+01_JPRB,1.3253E+01_JPRB/)  
+KBO( :, 5,58,12) = (/&
+ & 7.9005E-02_JPRB,4.6081E+00_JPRB,8.3923E+00_JPRB,1.1459E+01_JPRB,1.4032E+01_JPRB/)  
+KBO( :, 1,59,12) = (/&
+ & 2.7554E-03_JPRB,2.8115E+00_JPRB,5.1204E+00_JPRB,7.2380E+00_JPRB,9.4574E+00_JPRB/)  
+KBO( :, 2,59,12) = (/&
+ & 7.4695E-03_JPRB,3.3520E+00_JPRB,6.1191E+00_JPRB,8.4629E+00_JPRB,1.0919E+01_JPRB/)  
+KBO( :, 3,59,12) = (/&
+ & 1.7700E-02_JPRB,3.8208E+00_JPRB,6.9919E+00_JPRB,9.5688E+00_JPRB,1.2133E+01_JPRB/)  
+KBO( :, 4,59,12) = (/&
+ & 3.7590E-02_JPRB,4.2246E+00_JPRB,7.7306E+00_JPRB,1.0537E+01_JPRB,1.3092E+01_JPRB/)  
+KBO( :, 5,59,12) = (/&
+ & 7.2976E-02_JPRB,4.5698E+00_JPRB,8.3286E+00_JPRB,1.1370E+01_JPRB,1.3863E+01_JPRB/)  
+KBO( :, 1,13,13) = (/&
+ & 2.6529E+00_JPRB,2.2831E+00_JPRB,3.2422E+00_JPRB,4.4425E+00_JPRB,5.7532E+00_JPRB/)  
+KBO( :, 2,13,13) = (/&
+ & 3.7901E+00_JPRB,3.0012E+00_JPRB,3.3868E+00_JPRB,4.4780E+00_JPRB,5.6304E+00_JPRB/)  
+KBO( :, 3,13,13) = (/&
+ & 5.1407E+00_JPRB,3.9898E+00_JPRB,3.7034E+00_JPRB,4.5284E+00_JPRB,5.5094E+00_JPRB/)  
+KBO( :, 4,13,13) = (/&
+ & 6.6849E+00_JPRB,5.1505E+00_JPRB,4.1152E+00_JPRB,4.5525E+00_JPRB,5.3863E+00_JPRB/)  
+KBO( :, 5,13,13) = (/&
+ & 8.4107E+00_JPRB,6.4413E+00_JPRB,4.6939E+00_JPRB,4.5962E+00_JPRB,5.2598E+00_JPRB/)  
+KBO( :, 1,14,13) = (/&
+ & 2.7859E+00_JPRB,2.4754E+00_JPRB,3.5707E+00_JPRB,4.9274E+00_JPRB,6.3617E+00_JPRB/)  
+KBO( :, 2,14,13) = (/&
+ & 3.9819E+00_JPRB,3.1616E+00_JPRB,3.7430E+00_JPRB,4.9467E+00_JPRB,6.2248E+00_JPRB/)  
+KBO( :, 3,14,13) = (/&
+ & 5.4169E+00_JPRB,4.1984E+00_JPRB,4.1076E+00_JPRB,4.9547E+00_JPRB,6.0805E+00_JPRB/)  
+KBO( :, 4,14,13) = (/&
+ & 7.0660E+00_JPRB,5.4307E+00_JPRB,4.5231E+00_JPRB,4.9634E+00_JPRB,5.9266E+00_JPRB/)  
+KBO( :, 5,14,13) = (/&
+ & 8.9144E+00_JPRB,6.8140E+00_JPRB,5.0663E+00_JPRB,5.0044E+00_JPRB,5.7690E+00_JPRB/)  
+KBO( :, 1,15,13) = (/&
+ & 2.9857E+00_JPRB,2.7217E+00_JPRB,3.9316E+00_JPRB,5.4603E+00_JPRB,7.0398E+00_JPRB/)  
+KBO( :, 2,15,13) = (/&
+ & 4.2764E+00_JPRB,3.4089E+00_JPRB,4.1424E+00_JPRB,5.4476E+00_JPRB,6.8612E+00_JPRB/)  
+KBO( :, 3,15,13) = (/&
+ & 5.8211E+00_JPRB,4.5002E+00_JPRB,4.5148E+00_JPRB,5.4204E+00_JPRB,6.6790E+00_JPRB/)  
+KBO( :, 4,15,13) = (/&
+ & 7.6022E+00_JPRB,5.8275E+00_JPRB,4.9790E+00_JPRB,5.4051E+00_JPRB,6.4972E+00_JPRB/)  
+KBO( :, 5,15,13) = (/&
+ & 9.6077E+00_JPRB,7.3247E+00_JPRB,5.5648E+00_JPRB,5.4790E+00_JPRB,6.3175E+00_JPRB/)  
+KBO( :, 1,16,13) = (/&
+ & 3.2520E+00_JPRB,3.0398E+00_JPRB,4.3234E+00_JPRB,6.0080E+00_JPRB,7.7322E+00_JPRB/)  
+KBO( :, 2,16,13) = (/&
+ & 4.6456E+00_JPRB,3.7621E+00_JPRB,4.5833E+00_JPRB,5.9695E+00_JPRB,7.5298E+00_JPRB/)  
+KBO( :, 3,16,13) = (/&
+ & 6.3086E+00_JPRB,4.8685E+00_JPRB,4.9506E+00_JPRB,5.9143E+00_JPRB,7.3233E+00_JPRB/)  
+KBO( :, 4,16,13) = (/&
+ & 8.2262E+00_JPRB,6.2820E+00_JPRB,5.4881E+00_JPRB,5.8959E+00_JPRB,7.1229E+00_JPRB/)  
+KBO( :, 5,16,13) = (/&
+ & 1.0371E+01_JPRB,7.8838E+00_JPRB,6.1617E+00_JPRB,6.0261E+00_JPRB,6.9371E+00_JPRB/)  
+KBO( :, 1,17,13) = (/&
+ & 3.5103E+00_JPRB,3.4027E+00_JPRB,4.7571E+00_JPRB,6.5946E+00_JPRB,8.5011E+00_JPRB/)  
+KBO( :, 2,17,13) = (/&
+ & 4.9855E+00_JPRB,4.1396E+00_JPRB,5.0300E+00_JPRB,6.5219E+00_JPRB,8.2752E+00_JPRB/)  
+KBO( :, 3,17,13) = (/&
+ & 6.7391E+00_JPRB,5.2214E+00_JPRB,5.4410E+00_JPRB,6.4503E+00_JPRB,8.0549E+00_JPRB/)  
+KBO( :, 4,17,13) = (/&
+ & 8.7527E+00_JPRB,6.6750E+00_JPRB,6.0440E+00_JPRB,6.4589E+00_JPRB,7.8521E+00_JPRB/)  
+KBO( :, 5,17,13) = (/&
+ & 1.0977E+01_JPRB,8.3330E+00_JPRB,6.7610E+00_JPRB,6.6072E+00_JPRB,7.6623E+00_JPRB/)  
+KBO( :, 1,18,13) = (/&
+ & 3.7201E+00_JPRB,3.7715E+00_JPRB,5.2410E+00_JPRB,7.2877E+00_JPRB,9.4447E+00_JPRB/)  
+KBO( :, 2,18,13) = (/&
+ & 5.2473E+00_JPRB,4.5163E+00_JPRB,5.5131E+00_JPRB,7.1747E+00_JPRB,9.1964E+00_JPRB/)  
+KBO( :, 3,18,13) = (/&
+ & 7.0567E+00_JPRB,5.5681E+00_JPRB,5.9890E+00_JPRB,7.0880E+00_JPRB,8.9663E+00_JPRB/)  
+KBO( :, 4,18,13) = (/&
+ & 9.1072E+00_JPRB,6.9581E+00_JPRB,6.6273E+00_JPRB,7.1370E+00_JPRB,8.7546E+00_JPRB/)  
+KBO( :, 5,18,13) = (/&
+ & 1.1367E+01_JPRB,8.6174E+00_JPRB,7.3488E+00_JPRB,7.2704E+00_JPRB,8.5556E+00_JPRB/)  
+KBO( :, 1,19,13) = (/&
+ & 3.8561E+00_JPRB,4.1299E+00_JPRB,5.8089E+00_JPRB,8.1195E+00_JPRB,1.0564E+01_JPRB/)  
+KBO( :, 2,19,13) = (/&
+ & 5.4052E+00_JPRB,4.8948E+00_JPRB,6.0739E+00_JPRB,7.9918E+00_JPRB,1.0309E+01_JPRB/)  
+KBO( :, 3,19,13) = (/&
+ & 7.2158E+00_JPRB,5.8804E+00_JPRB,6.5899E+00_JPRB,7.9071E+00_JPRB,1.0068E+01_JPRB/)  
+KBO( :, 4,19,13) = (/&
+ & 9.2611E+00_JPRB,7.1822E+00_JPRB,7.2047E+00_JPRB,7.9510E+00_JPRB,9.8352E+00_JPRB/)  
+KBO( :, 5,19,13) = (/&
+ & 1.1520E+01_JPRB,8.7584E+00_JPRB,7.9092E+00_JPRB,8.0447E+00_JPRB,9.6021E+00_JPRB/)  
+KBO( :, 1,20,13) = (/&
+ & 3.9352E+00_JPRB,4.4974E+00_JPRB,6.4850E+00_JPRB,9.0968E+00_JPRB,1.1862E+01_JPRB/)  
+KBO( :, 2,20,13) = (/&
+ & 5.4656E+00_JPRB,5.2567E+00_JPRB,6.7702E+00_JPRB,8.9553E+00_JPRB,1.1592E+01_JPRB/)  
+KBO( :, 3,20,13) = (/&
+ & 7.2432E+00_JPRB,6.1806E+00_JPRB,7.2339E+00_JPRB,8.8912E+00_JPRB,1.1329E+01_JPRB/)  
+KBO( :, 4,20,13) = (/&
+ & 9.2559E+00_JPRB,7.3730E+00_JPRB,7.8059E+00_JPRB,8.9109E+00_JPRB,1.1059E+01_JPRB/)  
+KBO( :, 5,20,13) = (/&
+ & 1.1478E+01_JPRB,8.8414E+00_JPRB,8.4557E+00_JPRB,8.9640E+00_JPRB,1.0785E+01_JPRB/)  
+KBO( :, 1,21,13) = (/&
+ & 3.9152E+00_JPRB,4.8660E+00_JPRB,7.2675E+00_JPRB,1.0177E+01_JPRB,1.3275E+01_JPRB/)  
+KBO( :, 2,21,13) = (/&
+ & 5.3925E+00_JPRB,5.5769E+00_JPRB,7.5673E+00_JPRB,1.0032E+01_JPRB,1.2988E+01_JPRB/)  
+KBO( :, 3,21,13) = (/&
+ & 7.1172E+00_JPRB,6.4580E+00_JPRB,7.9491E+00_JPRB,9.9865E+00_JPRB,1.2690E+01_JPRB/)  
+KBO( :, 4,21,13) = (/&
+ & 9.0683E+00_JPRB,7.5180E+00_JPRB,8.4370E+00_JPRB,9.9647E+00_JPRB,1.2379E+01_JPRB/)  
+KBO( :, 5,21,13) = (/&
+ & 1.1238E+01_JPRB,8.8639E+00_JPRB,9.0125E+00_JPRB,9.9895E+00_JPRB,1.2064E+01_JPRB/)  
+KBO( :, 1,22,13) = (/&
+ & 3.8909E+00_JPRB,5.2900E+00_JPRB,8.1566E+00_JPRB,1.1308E+01_JPRB,1.4732E+01_JPRB/)  
+KBO( :, 2,22,13) = (/&
+ & 5.3181E+00_JPRB,5.9209E+00_JPRB,8.4402E+00_JPRB,1.1175E+01_JPRB,1.4410E+01_JPRB/)  
+KBO( :, 3,22,13) = (/&
+ & 6.9795E+00_JPRB,6.7348E+00_JPRB,8.7599E+00_JPRB,1.1122E+01_JPRB,1.4067E+01_JPRB/)  
+KBO( :, 4,22,13) = (/&
+ & 8.8688E+00_JPRB,7.7237E+00_JPRB,9.1513E+00_JPRB,1.1075E+01_JPRB,1.3709E+01_JPRB/)  
+KBO( :, 5,22,13) = (/&
+ & 1.0970E+01_JPRB,8.9302E+00_JPRB,9.6408E+00_JPRB,1.1105E+01_JPRB,1.3343E+01_JPRB/)  
+KBO( :, 1,23,13) = (/&
+ & 3.7997E+00_JPRB,5.7292E+00_JPRB,9.0913E+00_JPRB,1.2436E+01_JPRB,1.6180E+01_JPRB/)  
+KBO( :, 2,23,13) = (/&
+ & 5.1595E+00_JPRB,6.2753E+00_JPRB,9.3535E+00_JPRB,1.2331E+01_JPRB,1.5809E+01_JPRB/)  
+KBO( :, 3,23,13) = (/&
+ & 6.7493E+00_JPRB,6.9925E+00_JPRB,9.6137E+00_JPRB,1.2263E+01_JPRB,1.5425E+01_JPRB/)  
+KBO( :, 4,23,13) = (/&
+ & 8.5542E+00_JPRB,7.9012E+00_JPRB,9.9104E+00_JPRB,1.2220E+01_JPRB,1.5025E+01_JPRB/)  
+KBO( :, 5,23,13) = (/&
+ & 1.0561E+01_JPRB,8.9781E+00_JPRB,1.0309E+01_JPRB,1.2253E+01_JPRB,1.4614E+01_JPRB/)  
+KBO( :, 1,24,13) = (/&
+ & 3.6631E+00_JPRB,6.1905E+00_JPRB,1.0011E+01_JPRB,1.3544E+01_JPRB,1.7573E+01_JPRB/)  
+KBO( :, 2,24,13) = (/&
+ & 4.9530E+00_JPRB,6.6528E+00_JPRB,1.0267E+01_JPRB,1.3455E+01_JPRB,1.7161E+01_JPRB/)  
+KBO( :, 3,24,13) = (/&
+ & 6.4554E+00_JPRB,7.2715E+00_JPRB,1.0481E+01_JPRB,1.3377E+01_JPRB,1.6726E+01_JPRB/)  
+KBO( :, 4,24,13) = (/&
+ & 8.1608E+00_JPRB,8.0605E+00_JPRB,1.0709E+01_JPRB,1.3365E+01_JPRB,1.6282E+01_JPRB/)  
+KBO( :, 5,24,13) = (/&
+ & 1.0048E+01_JPRB,9.0171E+00_JPRB,1.1006E+01_JPRB,1.3382E+01_JPRB,1.5827E+01_JPRB/)  
+KBO( :, 1,25,13) = (/&
+ & 3.5057E+00_JPRB,6.6591E+00_JPRB,1.0912E+01_JPRB,1.4625E+01_JPRB,1.8883E+01_JPRB/)  
+KBO( :, 2,25,13) = (/&
+ & 4.7154E+00_JPRB,7.0448E+00_JPRB,1.1156E+01_JPRB,1.4541E+01_JPRB,1.8427E+01_JPRB/)  
+KBO( :, 3,25,13) = (/&
+ & 6.1224E+00_JPRB,7.5602E+00_JPRB,1.1335E+01_JPRB,1.4472E+01_JPRB,1.7954E+01_JPRB/)  
+KBO( :, 4,25,13) = (/&
+ & 7.7153E+00_JPRB,8.2240E+00_JPRB,1.1508E+01_JPRB,1.4486E+01_JPRB,1.7464E+01_JPRB/)  
+KBO( :, 5,25,13) = (/&
+ & 9.4941E+00_JPRB,9.0534E+00_JPRB,1.1717E+01_JPRB,1.4473E+01_JPRB,1.6960E+01_JPRB/)  
+KBO( :, 1,26,13) = (/&
+ & 3.3374E+00_JPRB,7.1235E+00_JPRB,1.1789E+01_JPRB,1.5669E+01_JPRB,2.0088E+01_JPRB/)  
+KBO( :, 2,26,13) = (/&
+ & 4.4661E+00_JPRB,7.4439E+00_JPRB,1.2007E+01_JPRB,1.5575E+01_JPRB,1.9597E+01_JPRB/)  
+KBO( :, 3,26,13) = (/&
+ & 5.7769E+00_JPRB,7.8591E+00_JPRB,1.2149E+01_JPRB,1.5545E+01_JPRB,1.9088E+01_JPRB/)  
+KBO( :, 4,26,13) = (/&
+ & 7.2756E+00_JPRB,8.4078E+00_JPRB,1.2269E+01_JPRB,1.5555E+01_JPRB,1.8555E+01_JPRB/)  
+KBO( :, 5,26,13) = (/&
+ & 8.9639E+00_JPRB,9.1104E+00_JPRB,1.2401E+01_JPRB,1.5501E+01_JPRB,1.8008E+01_JPRB/)  
+KBO( :, 1,27,13) = (/&
+ & 3.1533E+00_JPRB,7.5608E+00_JPRB,1.2611E+01_JPRB,1.6642E+01_JPRB,2.1191E+01_JPRB/)  
+KBO( :, 2,27,13) = (/&
+ & 4.1993E+00_JPRB,7.8220E+00_JPRB,1.2795E+01_JPRB,1.6570E+01_JPRB,2.0672E+01_JPRB/)  
+KBO( :, 3,27,13) = (/&
+ & 5.4265E+00_JPRB,8.1469E+00_JPRB,1.2900E+01_JPRB,1.6567E+01_JPRB,2.0125E+01_JPRB/)  
+KBO( :, 4,27,13) = (/&
+ & 6.8378E+00_JPRB,8.5911E+00_JPRB,1.2961E+01_JPRB,1.6544E+01_JPRB,1.9552E+01_JPRB/)  
+KBO( :, 5,27,13) = (/&
+ & 8.4460E+00_JPRB,9.1761E+00_JPRB,1.3028E+01_JPRB,1.6437E+01_JPRB,1.8965E+01_JPRB/)  
+KBO( :, 1,28,13) = (/&
+ & 2.9616E+00_JPRB,7.9550E+00_JPRB,1.3362E+01_JPRB,1.7538E+01_JPRB,2.2180E+01_JPRB/)  
+KBO( :, 2,28,13) = (/&
+ & 3.9383E+00_JPRB,8.1625E+00_JPRB,1.3501E+01_JPRB,1.7502E+01_JPRB,2.1637E+01_JPRB/)  
+KBO( :, 3,28,13) = (/&
+ & 5.0899E+00_JPRB,8.4137E+00_JPRB,1.3570E+01_JPRB,1.7504E+01_JPRB,2.1054E+01_JPRB/)  
+KBO( :, 4,28,13) = (/&
+ & 6.4309E+00_JPRB,8.7658E+00_JPRB,1.3582E+01_JPRB,1.7435E+01_JPRB,2.0443E+01_JPRB/)  
+KBO( :, 5,28,13) = (/&
+ & 7.9687E+00_JPRB,9.2612E+00_JPRB,1.3583E+01_JPRB,1.7274E+01_JPRB,1.9806E+01_JPRB/)  
+KBO( :, 1,29,13) = (/&
+ & 2.7798E+00_JPRB,8.2996E+00_JPRB,1.4029E+01_JPRB,1.8369E+01_JPRB,2.3056E+01_JPRB/)  
+KBO( :, 2,29,13) = (/&
+ & 3.6961E+00_JPRB,8.4616E+00_JPRB,1.4123E+01_JPRB,1.8351E+01_JPRB,2.2490E+01_JPRB/)  
+KBO( :, 3,29,13) = (/&
+ & 4.7900E+00_JPRB,8.6571E+00_JPRB,1.4153E+01_JPRB,1.8339E+01_JPRB,2.1869E+01_JPRB/)  
+KBO( :, 4,29,13) = (/&
+ & 6.0802E+00_JPRB,8.9313E+00_JPRB,1.4117E+01_JPRB,1.8214E+01_JPRB,2.1214E+01_JPRB/)  
+KBO( :, 5,29,13) = (/&
+ & 7.5801E+00_JPRB,9.3590E+00_JPRB,1.4065E+01_JPRB,1.8003E+01_JPRB,2.0531E+01_JPRB/)  
+KBO( :, 1,30,13) = (/&
+ & 2.6097E+00_JPRB,8.5908E+00_JPRB,1.4603E+01_JPRB,1.9121E+01_JPRB,2.3810E+01_JPRB/)  
+KBO( :, 2,30,13) = (/&
+ & 3.4798E+00_JPRB,8.7177E+00_JPRB,1.4662E+01_JPRB,1.9123E+01_JPRB,2.3210E+01_JPRB/)  
+KBO( :, 3,30,13) = (/&
+ & 4.5355E+00_JPRB,8.8683E+00_JPRB,1.4648E+01_JPRB,1.9056E+01_JPRB,2.2548E+01_JPRB/)  
+KBO( :, 4,30,13) = (/&
+ & 5.7939E+00_JPRB,9.0839E+00_JPRB,1.4573E+01_JPRB,1.8881E+01_JPRB,2.1848E+01_JPRB/)  
+KBO( :, 5,30,13) = (/&
+ & 7.2765E+00_JPRB,9.4615E+00_JPRB,1.4472E+01_JPRB,1.8622E+01_JPRB,2.1123E+01_JPRB/)  
+KBO( :, 1,31,13) = (/&
+ & 2.4675E+00_JPRB,8.8387E+00_JPRB,1.5097E+01_JPRB,1.9786E+01_JPRB,2.4442E+01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART31',1,ZHOOK_HANDLE)
+END SUBROUTINE PART31
+
+
+SUBROUTINE PART32
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART32',0,ZHOOK_HANDLE)
+
+
+KBO( :, 2,31,13) = (/&
+ & 3.3065E+00_JPRB,8.9332E+00_JPRB,1.5120E+01_JPRB,1.9782E+01_JPRB,2.3801E+01_JPRB/)  
+KBO( :, 3,31,13) = (/&
+ & 4.3370E+00_JPRB,9.0438E+00_JPRB,1.5067E+01_JPRB,1.9662E+01_JPRB,2.3103E+01_JPRB/)  
+KBO( :, 4,31,13) = (/&
+ & 5.5801E+00_JPRB,9.2263E+00_JPRB,1.4955E+01_JPRB,1.9437E+01_JPRB,2.2362E+01_JPRB/)  
+KBO( :, 5,31,13) = (/&
+ & 7.0509E+00_JPRB,9.5653E+00_JPRB,1.4810E+01_JPRB,1.9130E+01_JPRB,2.1597E+01_JPRB/)  
+KBO( :, 1,32,13) = (/&
+ & 2.3570E+00_JPRB,9.0474E+00_JPRB,1.5512E+01_JPRB,2.0376E+01_JPRB,2.4941E+01_JPRB/)  
+KBO( :, 2,32,13) = (/&
+ & 3.1778E+00_JPRB,9.1115E+00_JPRB,1.5508E+01_JPRB,2.0335E+01_JPRB,2.4268E+01_JPRB/)  
+KBO( :, 3,32,13) = (/&
+ & 4.1934E+00_JPRB,9.1907E+00_JPRB,1.5415E+01_JPRB,2.0161E+01_JPRB,2.3538E+01_JPRB/)  
+KBO( :, 4,32,13) = (/&
+ & 5.4301E+00_JPRB,9.3557E+00_JPRB,1.5262E+01_JPRB,1.9889E+01_JPRB,2.2767E+01_JPRB/)  
+KBO( :, 5,32,13) = (/&
+ & 6.9074E+00_JPRB,9.6740E+00_JPRB,1.5082E+01_JPRB,1.9542E+01_JPRB,2.1974E+01_JPRB/)  
+KBO( :, 1,33,13) = (/&
+ & 2.2789E+00_JPRB,9.2179E+00_JPRB,1.5861E+01_JPRB,2.0884E+01_JPRB,2.5338E+01_JPRB/)  
+KBO( :, 2,33,13) = (/&
+ & 3.0898E+00_JPRB,9.2539E+00_JPRB,1.5825E+01_JPRB,2.0788E+01_JPRB,2.4635E+01_JPRB/)  
+KBO( :, 3,33,13) = (/&
+ & 4.1032E+00_JPRB,9.3163E+00_JPRB,1.5692E+01_JPRB,2.0569E+01_JPRB,2.3873E+01_JPRB/)  
+KBO( :, 4,33,13) = (/&
+ & 5.3488E+00_JPRB,9.4706E+00_JPRB,1.5505E+01_JPRB,2.0254E+01_JPRB,2.3076E+01_JPRB/)  
+KBO( :, 5,33,13) = (/&
+ & 6.8488E+00_JPRB,9.7721E+00_JPRB,1.5299E+01_JPRB,1.9864E+01_JPRB,2.2268E+01_JPRB/)  
+KBO( :, 1,34,13) = (/&
+ & 2.2036E+00_JPRB,9.3532E+00_JPRB,1.6153E+01_JPRB,2.1306E+01_JPRB,2.5672E+01_JPRB/)  
+KBO( :, 2,34,13) = (/&
+ & 3.0096E+00_JPRB,9.3699E+00_JPRB,1.6083E+01_JPRB,2.1168E+01_JPRB,2.4937E+01_JPRB/)  
+KBO( :, 3,34,13) = (/&
+ & 4.0278E+00_JPRB,9.4208E+00_JPRB,1.5917E+01_JPRB,2.0905E+01_JPRB,2.4148E+01_JPRB/)  
+KBO( :, 4,34,13) = (/&
+ & 5.2881E+00_JPRB,9.5680E+00_JPRB,1.5706E+01_JPRB,2.0553E+01_JPRB,2.3339E+01_JPRB/)  
+KBO( :, 5,34,13) = (/&
+ & 6.8127E+00_JPRB,9.8518E+00_JPRB,1.5477E+01_JPRB,2.0124E+01_JPRB,2.2490E+01_JPRB/)  
+KBO( :, 1,35,13) = (/&
+ & 2.0911E+00_JPRB,9.4628E+00_JPRB,1.6401E+01_JPRB,2.1656E+01_JPRB,2.5992E+01_JPRB/)  
+KBO( :, 2,35,13) = (/&
+ & 2.8838E+00_JPRB,9.4629E+00_JPRB,1.6303E+01_JPRB,2.1492E+01_JPRB,2.5233E+01_JPRB/)  
+KBO( :, 3,35,13) = (/&
+ & 3.8959E+00_JPRB,9.5011E+00_JPRB,1.6117E+01_JPRB,2.1198E+01_JPRB,2.4439E+01_JPRB/)  
+KBO( :, 4,35,13) = (/&
+ & 5.1566E+00_JPRB,9.6352E+00_JPRB,1.5885E+01_JPRB,2.0818E+01_JPRB,2.3603E+01_JPRB/)  
+KBO( :, 5,35,13) = (/&
+ & 6.6907E+00_JPRB,9.8962E+00_JPRB,1.5633E+01_JPRB,2.0364E+01_JPRB,2.2731E+01_JPRB/)  
+KBO( :, 1,36,13) = (/&
+ & 1.9336E+00_JPRB,9.5525E+00_JPRB,1.6611E+01_JPRB,2.1959E+01_JPRB,2.6325E+01_JPRB/)  
+KBO( :, 2,36,13) = (/&
+ & 2.7002E+00_JPRB,9.5428E+00_JPRB,1.6501E+01_JPRB,2.1782E+01_JPRB,2.5563E+01_JPRB/)  
+KBO( :, 3,36,13) = (/&
+ & 3.6889E+00_JPRB,9.5627E+00_JPRB,1.6302E+01_JPRB,2.1472E+01_JPRB,2.4764E+01_JPRB/)  
+KBO( :, 4,36,13) = (/&
+ & 4.9268E+00_JPRB,9.6763E+00_JPRB,1.6053E+01_JPRB,2.1074E+01_JPRB,2.3903E+01_JPRB/)  
+KBO( :, 5,36,13) = (/&
+ & 6.4449E+00_JPRB,9.9025E+00_JPRB,1.5784E+01_JPRB,2.0602E+01_JPRB,2.3039E+01_JPRB/)  
+KBO( :, 1,37,13) = (/&
+ & 1.7104E+00_JPRB,9.6249E+00_JPRB,1.6795E+01_JPRB,2.2228E+01_JPRB,2.6709E+01_JPRB/)  
+KBO( :, 2,37,13) = (/&
+ & 2.4252E+00_JPRB,9.6135E+00_JPRB,1.6690E+01_JPRB,2.2061E+01_JPRB,2.5960E+01_JPRB/)  
+KBO( :, 3,37,13) = (/&
+ & 3.3606E+00_JPRB,9.6107E+00_JPRB,1.6491E+01_JPRB,2.1757E+01_JPRB,2.5160E+01_JPRB/)  
+KBO( :, 4,37,13) = (/&
+ & 4.5420E+00_JPRB,9.6944E+00_JPRB,1.6238E+01_JPRB,2.1356E+01_JPRB,2.4291E+01_JPRB/)  
+KBO( :, 5,37,13) = (/&
+ & 6.0039E+00_JPRB,9.8734E+00_JPRB,1.5956E+01_JPRB,2.0878E+01_JPRB,2.3432E+01_JPRB/)  
+KBO( :, 1,38,13) = (/&
+ & 1.5178E+00_JPRB,9.6872E+00_JPRB,1.6953E+01_JPRB,2.2459E+01_JPRB,2.7050E+01_JPRB/)  
+KBO( :, 2,38,13) = (/&
+ & 2.1837E+00_JPRB,9.6773E+00_JPRB,1.6856E+01_JPRB,2.2300E+01_JPRB,2.6324E+01_JPRB/)  
+KBO( :, 3,38,13) = (/&
+ & 3.0661E+00_JPRB,9.6576E+00_JPRB,1.6660E+01_JPRB,2.2007E+01_JPRB,2.5527E+01_JPRB/)  
+KBO( :, 4,38,13) = (/&
+ & 4.1937E+00_JPRB,9.7120E+00_JPRB,1.6406E+01_JPRB,2.1607E+01_JPRB,2.4654E+01_JPRB/)  
+KBO( :, 5,38,13) = (/&
+ & 5.6039E+00_JPRB,9.8559E+00_JPRB,1.6114E+01_JPRB,2.1125E+01_JPRB,2.3814E+01_JPRB/)  
+KBO( :, 1,39,13) = (/&
+ & 1.3554E+00_JPRB,9.7390E+00_JPRB,1.7088E+01_JPRB,2.2653E+01_JPRB,2.7361E+01_JPRB/)  
+KBO( :, 2,39,13) = (/&
+ & 1.9775E+00_JPRB,9.7313E+00_JPRB,1.6998E+01_JPRB,2.2506E+01_JPRB,2.6660E+01_JPRB/)  
+KBO( :, 3,39,13) = (/&
+ & 2.8107E+00_JPRB,9.7018E+00_JPRB,1.6808E+01_JPRB,2.2224E+01_JPRB,2.5863E+01_JPRB/)  
+KBO( :, 4,39,13) = (/&
+ & 3.8900E+00_JPRB,9.7305E+00_JPRB,1.6552E+01_JPRB,2.1827E+01_JPRB,2.4995E+01_JPRB/)  
+KBO( :, 5,39,13) = (/&
+ & 5.2496E+00_JPRB,9.8477E+00_JPRB,1.6251E+01_JPRB,2.1343E+01_JPRB,2.4180E+01_JPRB/)  
+KBO( :, 1,40,13) = (/&
+ & 1.1681E+00_JPRB,9.7791E+00_JPRB,1.7201E+01_JPRB,2.2818E+01_JPRB,2.7695E+01_JPRB/)  
+KBO( :, 2,40,13) = (/&
+ & 1.7299E+00_JPRB,9.7827E+00_JPRB,1.7132E+01_JPRB,2.2703E+01_JPRB,2.7023E+01_JPRB/)  
+KBO( :, 3,40,13) = (/&
+ & 2.4946E+00_JPRB,9.7467E+00_JPRB,1.6955E+01_JPRB,2.2448E+01_JPRB,2.6240E+01_JPRB/)  
+KBO( :, 4,40,13) = (/&
+ & 3.5017E+00_JPRB,9.7482E+00_JPRB,1.6709E+01_JPRB,2.2060E+01_JPRB,2.5376E+01_JPRB/)  
+KBO( :, 5,40,13) = (/&
+ & 4.7836E+00_JPRB,9.8329E+00_JPRB,1.6405E+01_JPRB,2.1591E+01_JPRB,2.4561E+01_JPRB/)  
+KBO( :, 1,41,13) = (/&
+ & 1.0033E+00_JPRB,9.8102E+00_JPRB,1.7286E+01_JPRB,2.2943E+01_JPRB,2.8002E+01_JPRB/)  
+KBO( :, 2,41,13) = (/&
+ & 1.5079E+00_JPRB,9.8257E+00_JPRB,1.7243E+01_JPRB,2.2872E+01_JPRB,2.7362E+01_JPRB/)  
+KBO( :, 3,41,13) = (/&
+ & 2.2063E+00_JPRB,9.7913E+00_JPRB,1.7089E+01_JPRB,2.2643E+01_JPRB,2.6601E+01_JPRB/)  
+KBO( :, 4,41,13) = (/&
+ & 3.1401E+00_JPRB,9.7698E+00_JPRB,1.6851E+01_JPRB,2.2278E+01_JPRB,2.5742E+01_JPRB/)  
+KBO( :, 5,41,13) = (/&
+ & 4.3440E+00_JPRB,9.8243E+00_JPRB,1.6560E+01_JPRB,2.1826E+01_JPRB,2.4926E+01_JPRB/)  
+KBO( :, 1,42,13) = (/&
+ & 8.6335E-01_JPRB,9.8273E+00_JPRB,1.7356E+01_JPRB,2.3044E+01_JPRB,2.8283E+01_JPRB/)  
+KBO( :, 2,42,13) = (/&
+ & 1.3157E+00_JPRB,9.8564E+00_JPRB,1.7335E+01_JPRB,2.3007E+01_JPRB,2.7677E+01_JPRB/)  
+KBO( :, 3,42,13) = (/&
+ & 1.9522E+00_JPRB,9.8313E+00_JPRB,1.7204E+01_JPRB,2.2814E+01_JPRB,2.6940E+01_JPRB/)  
+KBO( :, 4,42,13) = (/&
+ & 2.8149E+00_JPRB,9.7926E+00_JPRB,1.6984E+01_JPRB,2.2480E+01_JPRB,2.6086E+01_JPRB/)  
+KBO( :, 5,42,13) = (/&
+ & 3.9427E+00_JPRB,9.8251E+00_JPRB,1.6704E+01_JPRB,2.2040E+01_JPRB,2.5280E+01_JPRB/)  
+KBO( :, 1,43,13) = (/&
+ & 7.2508E-01_JPRB,9.8337E+00_JPRB,1.7398E+01_JPRB,2.3109E+01_JPRB,2.8558E+01_JPRB/)  
+KBO( :, 2,43,13) = (/&
+ & 1.1220E+00_JPRB,9.8829E+00_JPRB,1.7414E+01_JPRB,2.3123E+01_JPRB,2.7999E+01_JPRB/)  
+KBO( :, 3,43,13) = (/&
+ & 1.6895E+00_JPRB,9.8684E+00_JPRB,1.7314E+01_JPRB,2.2973E+01_JPRB,2.7299E+01_JPRB/)  
+KBO( :, 4,43,13) = (/&
+ & 2.4716E+00_JPRB,9.8264E+00_JPRB,1.7115E+01_JPRB,2.2681E+01_JPRB,2.6464E+01_JPRB/)  
+KBO( :, 5,43,13) = (/&
+ & 3.5092E+00_JPRB,9.8254E+00_JPRB,1.6846E+01_JPRB,2.2258E+01_JPRB,2.5655E+01_JPRB/)  
+KBO( :, 1,44,13) = (/&
+ & 6.0013E-01_JPRB,9.8242E+00_JPRB,1.7407E+01_JPRB,2.3147E+01_JPRB,2.8810E+01_JPRB/)  
+KBO( :, 2,44,13) = (/&
+ & 9.4539E-01_JPRB,9.8972E+00_JPRB,1.7468E+01_JPRB,2.3207E+01_JPRB,2.8309E+01_JPRB/)  
+KBO( :, 3,44,13) = (/&
+ & 1.4447E+00_JPRB,9.9041E+00_JPRB,1.7409E+01_JPRB,2.3114E+01_JPRB,2.7658E+01_JPRB/)  
+KBO( :, 4,44,13) = (/&
+ & 2.1455E+00_JPRB,9.8623E+00_JPRB,1.7235E+01_JPRB,2.2860E+01_JPRB,2.6847E+01_JPRB/)  
+KBO( :, 5,44,13) = (/&
+ & 3.0884E+00_JPRB,9.8324E+00_JPRB,1.6982E+01_JPRB,2.2470E+01_JPRB,2.6041E+01_JPRB/)  
+KBO( :, 1,45,13) = (/&
+ & 4.9465E-01_JPRB,9.7992E+00_JPRB,1.7389E+01_JPRB,2.3167E+01_JPRB,2.9031E+01_JPRB/)  
+KBO( :, 2,45,13) = (/&
+ & 7.9499E-01_JPRB,9.8981E+00_JPRB,1.7509E+01_JPRB,2.3257E+01_JPRB,2.8598E+01_JPRB/)  
+KBO( :, 3,45,13) = (/&
+ & 1.2327E+00_JPRB,9.9225E+00_JPRB,1.7478E+01_JPRB,2.3219E+01_JPRB,2.7995E+01_JPRB/)  
+KBO( :, 4,45,13) = (/&
+ & 1.8567E+00_JPRB,9.8915E+00_JPRB,1.7341E+01_JPRB,2.3018E+01_JPRB,2.7214E+01_JPRB/)  
+KBO( :, 5,45,13) = (/&
+ & 2.7102E+00_JPRB,9.8493E+00_JPRB,1.7115E+01_JPRB,2.2672E+01_JPRB,2.6426E+01_JPRB/)  
+KBO( :, 1,46,13) = (/&
+ & 4.0155E-01_JPRB,9.7565E+00_JPRB,1.7327E+01_JPRB,2.3150E+01_JPRB,2.9223E+01_JPRB/)  
+KBO( :, 2,46,13) = (/&
+ & 6.5885E-01_JPRB,9.8895E+00_JPRB,1.7519E+01_JPRB,2.3282E+01_JPRB,2.8865E+01_JPRB/)  
+KBO( :, 3,46,13) = (/&
+ & 1.0393E+00_JPRB,9.9389E+00_JPRB,1.7538E+01_JPRB,2.3304E+01_JPRB,2.8321E+01_JPRB/)  
+KBO( :, 4,46,13) = (/&
+ & 1.5881E+00_JPRB,9.9248E+00_JPRB,1.7436E+01_JPRB,2.3155E+01_JPRB,2.7586E+01_JPRB/)  
+KBO( :, 5,46,13) = (/&
+ & 2.3518E+00_JPRB,9.8787E+00_JPRB,1.7232E+01_JPRB,2.2856E+01_JPRB,2.6820E+01_JPRB/)  
+KBO( :, 1,47,13) = (/&
+ & 3.1717E-01_JPRB,9.6922E+00_JPRB,1.7208E+01_JPRB,2.3094E+01_JPRB,2.9376E+01_JPRB/)  
+KBO( :, 2,47,13) = (/&
+ & 5.3176E-01_JPRB,9.8626E+00_JPRB,1.7496E+01_JPRB,2.3281E+01_JPRB,2.9106E+01_JPRB/)  
+KBO( :, 3,47,13) = (/&
+ & 8.5644E-01_JPRB,9.9410E+00_JPRB,1.7572E+01_JPRB,2.3352E+01_JPRB,2.8639E+01_JPRB/)  
+KBO( :, 4,47,13) = (/&
+ & 1.3291E+00_JPRB,9.9482E+00_JPRB,1.7517E+01_JPRB,2.3272E+01_JPRB,2.7966E+01_JPRB/)  
+KBO( :, 5,47,13) = (/&
+ & 1.9994E+00_JPRB,9.9068E+00_JPRB,1.7348E+01_JPRB,2.3029E+01_JPRB,2.7224E+01_JPRB/)  
+KBO( :, 1,48,13) = (/&
+ & 2.4862E-01_JPRB,9.6017E+00_JPRB,1.7047E+01_JPRB,2.3003E+01_JPRB,2.9483E+01_JPRB/)  
+KBO( :, 2,48,13) = (/&
+ & 4.2613E-01_JPRB,9.8140E+00_JPRB,1.7433E+01_JPRB,2.3259E+01_JPRB,2.9313E+01_JPRB/)  
+KBO( :, 3,48,13) = (/&
+ & 7.0129E-01_JPRB,9.9267E+00_JPRB,1.7586E+01_JPRB,2.3367E+01_JPRB,2.8930E+01_JPRB/)  
+KBO( :, 4,48,13) = (/&
+ & 1.1072E+00_JPRB,9.9609E+00_JPRB,1.7574E+01_JPRB,2.3356E+01_JPRB,2.8330E+01_JPRB/)  
+KBO( :, 5,48,13) = (/&
+ & 1.6909E+00_JPRB,9.9361E+00_JPRB,1.7449E+01_JPRB,2.3177E+01_JPRB,2.7634E+01_JPRB/)  
+KBO( :, 1,49,13) = (/&
+ & 1.9264E-01_JPRB,9.4936E+00_JPRB,1.6831E+01_JPRB,2.2884E+01_JPRB,2.9536E+01_JPRB/)  
+KBO( :, 2,49,13) = (/&
+ & 3.3927E-01_JPRB,9.7516E+00_JPRB,1.7325E+01_JPRB,2.3198E+01_JPRB,2.9479E+01_JPRB/)  
+KBO( :, 3,49,13) = (/&
+ & 5.6996E-01_JPRB,9.9055E+00_JPRB,1.7565E+01_JPRB,2.3359E+01_JPRB,2.9191E+01_JPRB/)  
+KBO( :, 4,49,13) = (/&
+ & 9.1758E-01_JPRB,9.9664E+00_JPRB,1.7609E+01_JPRB,2.3411E+01_JPRB,2.8684E+01_JPRB/)  
+KBO( :, 5,49,13) = (/&
+ & 1.4225E+00_JPRB,9.9636E+00_JPRB,1.7532E+01_JPRB,2.3297E+01_JPRB,2.8060E+01_JPRB/)  
+KBO( :, 1,50,13) = (/&
+ & 1.4991E-01_JPRB,9.3720E+00_JPRB,1.6585E+01_JPRB,2.2746E+01_JPRB,2.9526E+01_JPRB/)  
+KBO( :, 2,50,13) = (/&
+ & 2.7206E-01_JPRB,9.6777E+00_JPRB,1.7184E+01_JPRB,2.3116E+01_JPRB,2.9581E+01_JPRB/)  
+KBO( :, 3,50,13) = (/&
+ & 4.6587E-01_JPRB,9.8653E+00_JPRB,1.7520E+01_JPRB,2.3339E+01_JPRB,2.9394E+01_JPRB/)  
+KBO( :, 4,50,13) = (/&
+ & 7.6520E-01_JPRB,9.9556E+00_JPRB,1.7628E+01_JPRB,2.3427E+01_JPRB,2.8975E+01_JPRB/)  
+KBO( :, 5,50,13) = (/&
+ & 1.2040E+00_JPRB,9.9732E+00_JPRB,1.7585E+01_JPRB,2.3377E+01_JPRB,2.8410E+01_JPRB/)  
+KBO( :, 1,51,13) = (/&
+ & 1.1613E-01_JPRB,9.2274E+00_JPRB,1.6313E+01_JPRB,2.2591E+01_JPRB,2.9458E+01_JPRB/)  
+KBO( :, 2,51,13) = (/&
+ & 2.1747E-01_JPRB,9.5837E+00_JPRB,1.7015E+01_JPRB,2.3015E+01_JPRB,2.9634E+01_JPRB/)  
+KBO( :, 3,51,13) = (/&
+ & 3.8080E-01_JPRB,9.8127E+00_JPRB,1.7438E+01_JPRB,2.3293E+01_JPRB,2.9540E+01_JPRB/)  
+KBO( :, 4,51,13) = (/&
+ & 6.3740E-01_JPRB,9.9403E+00_JPRB,1.7621E+01_JPRB,2.3422E+01_JPRB,2.9215E+01_JPRB/)  
+KBO( :, 5,51,13) = (/&
+ & 1.0193E+00_JPRB,9.9828E+00_JPRB,1.7629E+01_JPRB,2.3438E+01_JPRB,2.8716E+01_JPRB/)  
+KBO( :, 1,52,13) = (/&
+ & 8.8830E-02_JPRB,9.0603E+00_JPRB,1.6002E+01_JPRB,2.2409E+01_JPRB,2.9330E+01_JPRB/)  
+KBO( :, 2,52,13) = (/&
+ & 1.7228E-01_JPRB,9.4776E+00_JPRB,1.6796E+01_JPRB,2.2887E+01_JPRB,2.9643E+01_JPRB/)  
+KBO( :, 3,52,13) = (/&
+ & 3.0974E-01_JPRB,9.7502E+00_JPRB,1.7322E+01_JPRB,2.3223E+01_JPRB,2.9659E+01_JPRB/)  
+KBO( :, 4,52,13) = (/&
+ & 5.2763E-01_JPRB,9.9116E+00_JPRB,1.7589E+01_JPRB,2.3402E+01_JPRB,2.9438E+01_JPRB/)  
+KBO( :, 5,52,13) = (/&
+ & 8.5949E-01_JPRB,9.9800E+00_JPRB,1.7648E+01_JPRB,2.3465E+01_JPRB,2.9019E+01_JPRB/)  
+KBO( :, 1,53,13) = (/&
+ & 6.6880E-02_JPRB,8.8647E+00_JPRB,1.5677E+01_JPRB,2.2193E+01_JPRB,2.9155E+01_JPRB/)  
+KBO( :, 2,53,13) = (/&
+ & 1.3508E-01_JPRB,9.3494E+00_JPRB,1.6545E+01_JPRB,2.2742E+01_JPRB,2.9618E+01_JPRB/)  
+KBO( :, 3,53,13) = (/&
+ & 2.5013E-01_JPRB,9.6673E+00_JPRB,1.7171E+01_JPRB,2.3128E+01_JPRB,2.9750E+01_JPRB/)  
+KBO( :, 4,53,13) = (/&
+ & 4.3419E-01_JPRB,9.8656E+00_JPRB,1.7531E+01_JPRB,2.3368E+01_JPRB,2.9650E+01_JPRB/)  
+KBO( :, 5,53,13) = (/&
+ & 7.2052E-01_JPRB,9.9643E+00_JPRB,1.7656E+01_JPRB,2.3466E+01_JPRB,2.9335E+01_JPRB/)  
+KBO( :, 1,54,13) = (/&
+ & 5.0839E-02_JPRB,8.6560E+00_JPRB,1.5373E+01_JPRB,2.1974E+01_JPRB,2.8918E+01_JPRB/)  
+KBO( :, 2,54,13) = (/&
+ & 1.0673E-01_JPRB,9.2095E+00_JPRB,1.6282E+01_JPRB,2.2589E+01_JPRB,2.9523E+01_JPRB/)  
+KBO( :, 3,54,13) = (/&
+ & 2.0374E-01_JPRB,9.5773E+00_JPRB,1.7000E+01_JPRB,2.3024E+01_JPRB,2.9743E+01_JPRB/)  
+KBO( :, 4,54,13) = (/&
+ & 3.6116E-01_JPRB,9.8132E+00_JPRB,1.7444E+01_JPRB,2.3313E+01_JPRB,2.9733E+01_JPRB/)  
+KBO( :, 5,54,13) = (/&
+ & 6.0938E-01_JPRB,9.9478E+00_JPRB,1.7641E+01_JPRB,2.3452E+01_JPRB,2.9479E+01_JPRB/)  
+KBO( :, 1,55,13) = (/&
+ & 3.8590E-02_JPRB,8.4380E+00_JPRB,1.5071E+01_JPRB,2.1738E+01_JPRB,2.8629E+01_JPRB/)  
+KBO( :, 2,55,13) = (/&
+ & 8.4187E-02_JPRB,9.0594E+00_JPRB,1.6002E+01_JPRB,2.2420E+01_JPRB,2.9369E+01_JPRB/)  
+KBO( :, 3,55,13) = (/&
+ & 1.6606E-01_JPRB,9.4812E+00_JPRB,1.6803E+01_JPRB,2.2906E+01_JPRB,2.9692E+01_JPRB/)  
+KBO( :, 4,55,13) = (/&
+ & 3.0143E-01_JPRB,9.7562E+00_JPRB,1.7333E+01_JPRB,2.3245E+01_JPRB,2.9737E+01_JPRB/)  
+KBO( :, 5,55,13) = (/&
+ & 5.1631E-01_JPRB,9.9193E+00_JPRB,1.7608E+01_JPRB,2.3429E+01_JPRB,2.9535E+01_JPRB/)  
+KBO( :, 1,56,13) = (/&
+ & 2.8925E-02_JPRB,8.1981E+00_JPRB,1.4756E+01_JPRB,2.1468E+01_JPRB,2.8292E+01_JPRB/)  
+KBO( :, 2,56,13) = (/&
+ & 6.5661E-02_JPRB,8.8869E+00_JPRB,1.5713E+01_JPRB,2.2226E+01_JPRB,2.9164E+01_JPRB/)  
+KBO( :, 3,56,13) = (/&
+ & 1.3426E-01_JPRB,9.3664E+00_JPRB,1.6578E+01_JPRB,2.2772E+01_JPRB,2.9626E+01_JPRB/)  
+KBO( :, 4,56,13) = (/&
+ & 2.5023E-01_JPRB,9.6820E+00_JPRB,1.7199E+01_JPRB,2.3159E+01_JPRB,2.9723E+01_JPRB/)  
+KBO( :, 5,56,13) = (/&
+ & 4.3568E-01_JPRB,9.8776E+00_JPRB,1.7553E+01_JPRB,2.3395E+01_JPRB,2.9592E+01_JPRB/)  
+KBO( :, 1,57,13) = (/&
+ & 2.1373E-02_JPRB,7.9379E+00_JPRB,1.4433E+01_JPRB,2.1148E+01_JPRB,2.7903E+01_JPRB/)  
+KBO( :, 2,57,13) = (/&
+ & 5.0645E-02_JPRB,8.6879E+00_JPRB,1.5420E+01_JPRB,2.2015E+01_JPRB,2.8928E+01_JPRB/)  
+KBO( :, 3,57,13) = (/&
+ & 1.0745E-01_JPRB,9.2330E+00_JPRB,1.6328E+01_JPRB,2.2623E+01_JPRB,2.9512E+01_JPRB/)  
+KBO( :, 4,57,13) = (/&
+ & 2.0610E-01_JPRB,9.5955E+00_JPRB,1.7038E+01_JPRB,2.3057E+01_JPRB,2.9704E+01_JPRB/)  
+KBO( :, 5,57,13) = (/&
+ & 3.6599E-01_JPRB,9.8279E+00_JPRB,1.7470E+01_JPRB,2.3341E+01_JPRB,2.9632E+01_JPRB/)  
+KBO( :, 1,58,13) = (/&
+ & 1.5800E-02_JPRB,7.6756E+00_JPRB,1.4130E+01_JPRB,2.0811E+01_JPRB,2.7488E+01_JPRB/)  
+KBO( :, 2,58,13) = (/&
+ & 3.9154E-02_JPRB,8.4827E+00_JPRB,1.5134E+01_JPRB,2.1791E+01_JPRB,2.8663E+01_JPRB/)  
+KBO( :, 3,58,13) = (/&
+ & 8.6058E-02_JPRB,9.0936E+00_JPRB,1.6064E+01_JPRB,2.2465E+01_JPRB,2.9358E+01_JPRB/)  
+KBO( :, 4,58,13) = (/&
+ & 1.7024E-01_JPRB,9.5047E+00_JPRB,1.6851E+01_JPRB,2.2942E+01_JPRB,2.9664E+01_JPRB/)  
+KBO( :, 5,58,13) = (/&
+ & 3.0899E-01_JPRB,9.7734E+00_JPRB,1.7367E+01_JPRB,2.3275E+01_JPRB,2.9640E+01_JPRB/)  
+KBO( :, 1,59,13) = (/&
+ & 1.3838E-02_JPRB,7.5677E+00_JPRB,1.4007E+01_JPRB,2.0664E+01_JPRB,2.7307E+01_JPRB/)  
+KBO( :, 2,59,13) = (/&
+ & 3.5056E-02_JPRB,8.3966E+00_JPRB,1.5017E+01_JPRB,2.1696E+01_JPRB,2.8542E+01_JPRB/)  
+KBO( :, 3,59,13) = (/&
+ & 7.8363E-02_JPRB,9.0327E+00_JPRB,1.5954E+01_JPRB,2.2395E+01_JPRB,2.9259E+01_JPRB/)  
+KBO( :, 4,59,13) = (/&
+ & 1.5720E-01_JPRB,9.4649E+00_JPRB,1.6772E+01_JPRB,2.2896E+01_JPRB,2.9587E+01_JPRB/)  
+KBO( :, 5,59,13) = (/&
+ & 2.8816E-01_JPRB,9.7494E+00_JPRB,1.7321E+01_JPRB,2.3246E+01_JPRB,2.9569E+01_JPRB/)  
+KBO( :, 1,13,14) = (/&
+ & 4.6782E+00_JPRB,3.6509E+00_JPRB,4.2069E+00_JPRB,5.5965E+00_JPRB,7.3161E+00_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART32',1,ZHOOK_HANDLE)
+END SUBROUTINE PART32
+
+
+SUBROUTINE PART33
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART33',0,ZHOOK_HANDLE)
+
+
+KBO( :, 2,13,14) = (/&
+ & 6.6812E+00_JPRB,5.1302E+00_JPRB,4.5042E+00_JPRB,5.7107E+00_JPRB,7.2956E+00_JPRB/)  
+KBO( :, 3,13,14) = (/&
+ & 9.0802E+00_JPRB,6.9191E+00_JPRB,5.0854E+00_JPRB,5.8389E+00_JPRB,7.2254E+00_JPRB/)  
+KBO( :, 4,13,14) = (/&
+ & 1.1847E+01_JPRB,8.9860E+00_JPRB,6.1879E+00_JPRB,5.9827E+00_JPRB,7.1308E+00_JPRB/)  
+KBO( :, 5,13,14) = (/&
+ & 1.4944E+01_JPRB,1.1307E+01_JPRB,7.6807E+00_JPRB,6.1087E+00_JPRB,7.0090E+00_JPRB/)  
+KBO( :, 1,14,14) = (/&
+ & 4.9923E+00_JPRB,3.8888E+00_JPRB,4.7381E+00_JPRB,6.4037E+00_JPRB,8.3224E+00_JPRB/)  
+KBO( :, 2,14,14) = (/&
+ & 7.1439E+00_JPRB,5.4635E+00_JPRB,4.9958E+00_JPRB,6.5120E+00_JPRB,8.2505E+00_JPRB/)  
+KBO( :, 3,14,14) = (/&
+ & 9.7357E+00_JPRB,7.4026E+00_JPRB,5.5402E+00_JPRB,6.6306E+00_JPRB,8.1450E+00_JPRB/)  
+KBO( :, 4,14,14) = (/&
+ & 1.2709E+01_JPRB,9.6301E+00_JPRB,6.6722E+00_JPRB,6.7341E+00_JPRB,8.0104E+00_JPRB/)  
+KBO( :, 5,14,14) = (/&
+ & 1.6035E+01_JPRB,1.2120E+01_JPRB,8.2226E+00_JPRB,6.8436E+00_JPRB,7.8600E+00_JPRB/)  
+KBO( :, 1,15,14) = (/&
+ & 5.4062E+00_JPRB,4.2107E+00_JPRB,5.3329E+00_JPRB,7.2809E+00_JPRB,9.4098E+00_JPRB/)  
+KBO( :, 2,15,14) = (/&
+ & 7.7383E+00_JPRB,5.9068E+00_JPRB,5.5826E+00_JPRB,7.3825E+00_JPRB,9.2906E+00_JPRB/)  
+KBO( :, 3,15,14) = (/&
+ & 1.0510E+01_JPRB,7.9793E+00_JPRB,6.1638E+00_JPRB,7.4874E+00_JPRB,9.1316E+00_JPRB/)  
+KBO( :, 4,15,14) = (/&
+ & 1.3725E+01_JPRB,1.0385E+01_JPRB,7.2775E+00_JPRB,7.5682E+00_JPRB,8.9529E+00_JPRB/)  
+KBO( :, 5,15,14) = (/&
+ & 1.7334E+01_JPRB,1.3091E+01_JPRB,8.9110E+00_JPRB,7.6564E+00_JPRB,8.7607E+00_JPRB/)  
+KBO( :, 1,16,14) = (/&
+ & 5.9070E+00_JPRB,4.6227E+00_JPRB,6.0140E+00_JPRB,8.2333E+00_JPRB,1.0600E+01_JPRB/)  
+KBO( :, 2,16,14) = (/&
+ & 8.4297E+00_JPRB,6.4209E+00_JPRB,6.2881E+00_JPRB,8.3090E+00_JPRB,1.0416E+01_JPRB/)  
+KBO( :, 3,16,14) = (/&
+ & 1.1476E+01_JPRB,8.7000E+00_JPRB,6.9539E+00_JPRB,8.3944E+00_JPRB,1.0210E+01_JPRB/)  
+KBO( :, 4,16,14) = (/&
+ & 1.4985E+01_JPRB,1.1333E+01_JPRB,8.0898E+00_JPRB,8.4541E+00_JPRB,9.9887E+00_JPRB/)  
+KBO( :, 5,16,14) = (/&
+ & 1.8893E+01_JPRB,1.4263E+01_JPRB,9.7433E+00_JPRB,8.5272E+00_JPRB,9.7516E+00_JPRB/)  
+KBO( :, 1,17,14) = (/&
+ & 6.5286E+00_JPRB,5.1327E+00_JPRB,6.7700E+00_JPRB,9.2670E+00_JPRB,1.1882E+01_JPRB/)  
+KBO( :, 2,17,14) = (/&
+ & 9.3114E+00_JPRB,7.0853E+00_JPRB,7.1236E+00_JPRB,9.3227E+00_JPRB,1.1650E+01_JPRB/)  
+KBO( :, 3,17,14) = (/&
+ & 1.2634E+01_JPRB,9.5700E+00_JPRB,7.8705E+00_JPRB,9.3681E+00_JPRB,1.1400E+01_JPRB/)  
+KBO( :, 4,17,14) = (/&
+ & 1.6437E+01_JPRB,1.2419E+01_JPRB,9.0210E+00_JPRB,9.4013E+00_JPRB,1.1124E+01_JPRB/)  
+KBO( :, 5,17,14) = (/&
+ & 2.0695E+01_JPRB,1.5610E+01_JPRB,1.0717E+01_JPRB,9.5036E+00_JPRB,1.0836E+01_JPRB/)  
+KBO( :, 1,18,14) = (/&
+ & 7.2317E+00_JPRB,5.7331E+00_JPRB,7.5895E+00_JPRB,1.0388E+01_JPRB,1.3283E+01_JPRB/)  
+KBO( :, 2,18,14) = (/&
+ & 1.0272E+01_JPRB,7.8128E+00_JPRB,8.0485E+00_JPRB,1.0408E+01_JPRB,1.2989E+01_JPRB/)  
+KBO( :, 3,18,14) = (/&
+ & 1.3865E+01_JPRB,1.0490E+01_JPRB,8.8399E+00_JPRB,1.0411E+01_JPRB,1.2668E+01_JPRB/)  
+KBO( :, 4,18,14) = (/&
+ & 1.8001E+01_JPRB,1.3591E+01_JPRB,1.0044E+01_JPRB,1.0415E+01_JPRB,1.2336E+01_JPRB/)  
+KBO( :, 5,18,14) = (/&
+ & 2.2607E+01_JPRB,1.7043E+01_JPRB,1.1818E+01_JPRB,1.0584E+01_JPRB,1.2000E+01_JPRB/)  
+KBO( :, 1,19,14) = (/&
+ & 7.9818E+00_JPRB,6.4241E+00_JPRB,8.4744E+00_JPRB,1.1590E+01_JPRB,1.4808E+01_JPRB/)  
+KBO( :, 2,19,14) = (/&
+ & 1.1265E+01_JPRB,8.5751E+00_JPRB,9.0608E+00_JPRB,1.1546E+01_JPRB,1.4436E+01_JPRB/)  
+KBO( :, 3,19,14) = (/&
+ & 1.5159E+01_JPRB,1.1457E+01_JPRB,9.8998E+00_JPRB,1.1494E+01_JPRB,1.4048E+01_JPRB/)  
+KBO( :, 4,19,14) = (/&
+ & 1.9623E+01_JPRB,1.4803E+01_JPRB,1.1193E+01_JPRB,1.1515E+01_JPRB,1.3659E+01_JPRB/)  
+KBO( :, 5,19,14) = (/&
+ & 2.4552E+01_JPRB,1.8498E+01_JPRB,1.3028E+01_JPRB,1.1768E+01_JPRB,1.3289E+01_JPRB/)  
+KBO( :, 1,20,14) = (/&
+ & 8.8016E+00_JPRB,7.2179E+00_JPRB,9.4445E+00_JPRB,1.2859E+01_JPRB,1.6432E+01_JPRB/)  
+KBO( :, 2,20,14) = (/&
+ & 1.2354E+01_JPRB,9.4599E+00_JPRB,1.0108E+01_JPRB,1.2760E+01_JPRB,1.5989E+01_JPRB/)  
+KBO( :, 3,20,14) = (/&
+ & 1.6553E+01_JPRB,1.2501E+01_JPRB,1.1094E+01_JPRB,1.2659E+01_JPRB,1.5545E+01_JPRB/)  
+KBO( :, 4,20,14) = (/&
+ & 2.1320E+01_JPRB,1.6075E+01_JPRB,1.2479E+01_JPRB,1.2712E+01_JPRB,1.5125E+01_JPRB/)  
+KBO( :, 5,20,14) = (/&
+ & 2.6584E+01_JPRB,2.0023E+01_JPRB,1.4364E+01_JPRB,1.3028E+01_JPRB,1.4722E+01_JPRB/)  
+KBO( :, 1,21,14) = (/&
+ & 9.6531E+00_JPRB,8.0964E+00_JPRB,1.0501E+01_JPRB,1.4235E+01_JPRB,1.8234E+01_JPRB/)  
+KBO( :, 2,21,14) = (/&
+ & 1.3477E+01_JPRB,1.0427E+01_JPRB,1.1223E+01_JPRB,1.4069E+01_JPRB,1.7720E+01_JPRB/)  
+KBO( :, 3,21,14) = (/&
+ & 1.7944E+01_JPRB,1.3555E+01_JPRB,1.2376E+01_JPRB,1.3942E+01_JPRB,1.7224E+01_JPRB/)  
+KBO( :, 4,21,14) = (/&
+ & 2.3006E+01_JPRB,1.7340E+01_JPRB,1.3886E+01_JPRB,1.4053E+01_JPRB,1.6755E+01_JPRB/)  
+KBO( :, 5,21,14) = (/&
+ & 2.8574E+01_JPRB,2.1516E+01_JPRB,1.5811E+01_JPRB,1.4416E+01_JPRB,1.6302E+01_JPRB/)  
+KBO( :, 1,22,14) = (/&
+ & 1.0760E+01_JPRB,9.1888E+00_JPRB,1.1695E+01_JPRB,1.5745E+01_JPRB,2.0205E+01_JPRB/)  
+KBO( :, 2,22,14) = (/&
+ & 1.4853E+01_JPRB,1.1640E+01_JPRB,1.2517E+01_JPRB,1.5515E+01_JPRB,1.9617E+01_JPRB/)  
+KBO( :, 3,22,14) = (/&
+ & 1.9615E+01_JPRB,1.4884E+01_JPRB,1.3822E+01_JPRB,1.5397E+01_JPRB,1.9064E+01_JPRB/)  
+KBO( :, 4,22,14) = (/&
+ & 2.4968E+01_JPRB,1.8810E+01_JPRB,1.5484E+01_JPRB,1.5561E+01_JPRB,1.8540E+01_JPRB/)  
+KBO( :, 5,22,14) = (/&
+ & 3.0827E+01_JPRB,2.3206E+01_JPRB,1.7456E+01_JPRB,1.5921E+01_JPRB,1.8033E+01_JPRB/)  
+KBO( :, 1,23,14) = (/&
+ & 1.1802E+01_JPRB,1.0322E+01_JPRB,1.2998E+01_JPRB,1.7421E+01_JPRB,2.2401E+01_JPRB/)  
+KBO( :, 2,23,14) = (/&
+ & 1.6133E+01_JPRB,1.2850E+01_JPRB,1.3921E+01_JPRB,1.7123E+01_JPRB,2.1737E+01_JPRB/)  
+KBO( :, 3,23,14) = (/&
+ & 2.1125E+01_JPRB,1.6165E+01_JPRB,1.5339E+01_JPRB,1.7031E+01_JPRB,2.1100E+01_JPRB/)  
+KBO( :, 4,23,14) = (/&
+ & 2.6726E+01_JPRB,2.0157E+01_JPRB,1.7101E+01_JPRB,1.7209E+01_JPRB,2.0484E+01_JPRB/)  
+KBO( :, 5,23,14) = (/&
+ & 3.2827E+01_JPRB,2.4712E+01_JPRB,1.9081E+01_JPRB,1.7519E+01_JPRB,1.9884E+01_JPRB/)  
+KBO( :, 1,24,14) = (/&
+ & 1.2745E+01_JPRB,1.1442E+01_JPRB,1.4445E+01_JPRB,1.9244E+01_JPRB,2.4809E+01_JPRB/)  
+KBO( :, 2,24,14) = (/&
+ & 1.7253E+01_JPRB,1.4016E+01_JPRB,1.5441E+01_JPRB,1.8901E+01_JPRB,2.4045E+01_JPRB/)  
+KBO( :, 3,24,14) = (/&
+ & 2.2449E+01_JPRB,1.7365E+01_JPRB,1.6912E+01_JPRB,1.8816E+01_JPRB,2.3295E+01_JPRB/)  
+KBO( :, 4,24,14) = (/&
+ & 2.8233E+01_JPRB,2.1395E+01_JPRB,1.8672E+01_JPRB,1.8934E+01_JPRB,2.2558E+01_JPRB/)  
+KBO( :, 5,24,14) = (/&
+ & 3.4560E+01_JPRB,2.6021E+01_JPRB,2.0658E+01_JPRB,1.9202E+01_JPRB,2.1836E+01_JPRB/)  
+KBO( :, 1,25,14) = (/&
+ & 1.3566E+01_JPRB,1.2543E+01_JPRB,1.5996E+01_JPRB,2.1177E+01_JPRB,2.7336E+01_JPRB/)  
+KBO( :, 2,25,14) = (/&
+ & 1.8227E+01_JPRB,1.5135E+01_JPRB,1.7035E+01_JPRB,2.0783E+01_JPRB,2.6441E+01_JPRB/)  
+KBO( :, 3,25,14) = (/&
+ & 2.3565E+01_JPRB,1.8483E+01_JPRB,1.8488E+01_JPRB,2.0675E+01_JPRB,2.5549E+01_JPRB/)  
+KBO( :, 4,25,14) = (/&
+ & 2.9531E+01_JPRB,2.2535E+01_JPRB,2.0204E+01_JPRB,2.0688E+01_JPRB,2.4667E+01_JPRB/)  
+KBO( :, 5,25,14) = (/&
+ & 3.6063E+01_JPRB,2.7206E+01_JPRB,2.2162E+01_JPRB,2.0908E+01_JPRB,2.3805E+01_JPRB/)  
+KBO( :, 1,26,14) = (/&
+ & 1.4327E+01_JPRB,1.3631E+01_JPRB,1.7595E+01_JPRB,2.3118E+01_JPRB,2.9859E+01_JPRB/)  
+KBO( :, 2,26,14) = (/&
+ & 1.9108E+01_JPRB,1.6210E+01_JPRB,1.8663E+01_JPRB,2.2706E+01_JPRB,2.8803E+01_JPRB/)  
+KBO( :, 3,26,14) = (/&
+ & 2.4589E+01_JPRB,1.9567E+01_JPRB,2.0048E+01_JPRB,2.2494E+01_JPRB,2.7746E+01_JPRB/)  
+KBO( :, 4,26,14) = (/&
+ & 3.0710E+01_JPRB,2.3631E+01_JPRB,2.1693E+01_JPRB,2.2407E+01_JPRB,2.6705E+01_JPRB/)  
+KBO( :, 5,26,14) = (/&
+ & 3.7411E+01_JPRB,2.8326E+01_JPRB,2.3613E+01_JPRB,2.2582E+01_JPRB,2.5687E+01_JPRB/)  
+KBO( :, 1,27,14) = (/&
+ & 1.4974E+01_JPRB,1.4661E+01_JPRB,1.9208E+01_JPRB,2.5017E+01_JPRB,3.2282E+01_JPRB/)  
+KBO( :, 2,27,14) = (/&
+ & 1.9864E+01_JPRB,1.7209E+01_JPRB,2.0231E+01_JPRB,2.4566E+01_JPRB,3.1037E+01_JPRB/)  
+KBO( :, 3,27,14) = (/&
+ & 2.5463E+01_JPRB,2.0563E+01_JPRB,2.1528E+01_JPRB,2.4213E+01_JPRB,2.9805E+01_JPRB/)  
+KBO( :, 4,27,14) = (/&
+ & 3.1732E+01_JPRB,2.4635E+01_JPRB,2.3113E+01_JPRB,2.4054E+01_JPRB,2.8597E+01_JPRB/)  
+KBO( :, 5,27,14) = (/&
+ & 3.8595E+01_JPRB,2.9368E+01_JPRB,2.4984E+01_JPRB,2.4188E+01_JPRB,2.7415E+01_JPRB/)  
+KBO( :, 1,28,14) = (/&
+ & 1.5529E+01_JPRB,1.5623E+01_JPRB,2.0763E+01_JPRB,2.6821E+01_JPRB,3.4499E+01_JPRB/)  
+KBO( :, 2,28,14) = (/&
+ & 2.0516E+01_JPRB,1.8143E+01_JPRB,2.1720E+01_JPRB,2.6283E+01_JPRB,3.3057E+01_JPRB/)  
+KBO( :, 3,28,14) = (/&
+ & 2.6237E+01_JPRB,2.1495E+01_JPRB,2.2921E+01_JPRB,2.5811E+01_JPRB,3.1645E+01_JPRB/)  
+KBO( :, 4,28,14) = (/&
+ & 3.2647E+01_JPRB,2.5586E+01_JPRB,2.4438E+01_JPRB,2.5592E+01_JPRB,3.0274E+01_JPRB/)  
+KBO( :, 5,28,14) = (/&
+ & 3.9662E+01_JPRB,3.0339E+01_JPRB,2.6263E+01_JPRB,2.5678E+01_JPRB,2.8942E+01_JPRB/)  
+KBO( :, 1,29,14) = (/&
+ & 1.6065E+01_JPRB,1.6544E+01_JPRB,2.2216E+01_JPRB,2.8472E+01_JPRB,3.6458E+01_JPRB/)  
+KBO( :, 2,29,14) = (/&
+ & 2.1153E+01_JPRB,1.9041E+01_JPRB,2.3104E+01_JPRB,2.7817E+01_JPRB,3.4827E+01_JPRB/)  
+KBO( :, 3,29,14) = (/&
+ & 2.7000E+01_JPRB,2.2394E+01_JPRB,2.4221E+01_JPRB,2.7267E+01_JPRB,3.3240E+01_JPRB/)  
+KBO( :, 4,29,14) = (/&
+ & 3.3548E+01_JPRB,2.6519E+01_JPRB,2.5679E+01_JPRB,2.7001E+01_JPRB,3.1702E+01_JPRB/)  
+KBO( :, 5,29,14) = (/&
+ & 4.0738E+01_JPRB,3.1323E+01_JPRB,2.7457E+01_JPRB,2.7031E+01_JPRB,3.0226E+01_JPRB/)  
+KBO( :, 1,30,14) = (/&
+ & 1.6583E+01_JPRB,1.7406E+01_JPRB,2.3544E+01_JPRB,2.9947E+01_JPRB,3.8146E+01_JPRB/)  
+KBO( :, 2,30,14) = (/&
+ & 2.1792E+01_JPRB,1.9899E+01_JPRB,2.4353E+01_JPRB,2.9156E+01_JPRB,3.6330E+01_JPRB/)  
+KBO( :, 3,30,14) = (/&
+ & 2.7775E+01_JPRB,2.3269E+01_JPRB,2.5405E+01_JPRB,2.8560E+01_JPRB,3.4577E+01_JPRB/)  
+KBO( :, 4,30,14) = (/&
+ & 3.4468E+01_JPRB,2.7442E+01_JPRB,2.6816E+01_JPRB,2.8255E+01_JPRB,3.2901E+01_JPRB/)  
+KBO( :, 5,30,14) = (/&
+ & 4.1847E+01_JPRB,3.2326E+01_JPRB,2.8565E+01_JPRB,2.8235E+01_JPRB,3.1294E+01_JPRB/)  
+KBO( :, 1,31,14) = (/&
+ & 1.7141E+01_JPRB,1.8216E+01_JPRB,2.4732E+01_JPRB,3.1198E+01_JPRB,3.9531E+01_JPRB/)  
+KBO( :, 2,31,14) = (/&
+ & 2.2491E+01_JPRB,2.0743E+01_JPRB,2.5474E+01_JPRB,3.0318E+01_JPRB,3.7553E+01_JPRB/)  
+KBO( :, 3,31,14) = (/&
+ & 2.8624E+01_JPRB,2.4158E+01_JPRB,2.6485E+01_JPRB,2.9690E+01_JPRB,3.5656E+01_JPRB/)  
+KBO( :, 4,31,14) = (/&
+ & 3.5512E+01_JPRB,2.8414E+01_JPRB,2.7854E+01_JPRB,2.9357E+01_JPRB,3.3855E+01_JPRB/)  
+KBO( :, 5,31,14) = (/&
+ & 4.3115E+01_JPRB,3.3401E+01_JPRB,2.9611E+01_JPRB,2.9290E+01_JPRB,3.2132E+01_JPRB/)  
+KBO( :, 1,32,14) = (/&
+ & 1.7775E+01_JPRB,1.8991E+01_JPRB,2.5780E+01_JPRB,3.2231E+01_JPRB,4.0629E+01_JPRB/)  
+KBO( :, 2,32,14) = (/&
+ & 2.3279E+01_JPRB,2.1576E+01_JPRB,2.6467E+01_JPRB,3.1293E+01_JPRB,3.8513E+01_JPRB/)  
+KBO( :, 3,32,14) = (/&
+ & 2.9596E+01_JPRB,2.5078E+01_JPRB,2.7453E+01_JPRB,3.0651E+01_JPRB,3.6492E+01_JPRB/)  
+KBO( :, 4,32,14) = (/&
+ & 3.6705E+01_JPRB,2.9433E+01_JPRB,2.8819E+01_JPRB,3.0298E+01_JPRB,3.4575E+01_JPRB/)  
+KBO( :, 5,32,14) = (/&
+ & 4.4536E+01_JPRB,3.4534E+01_JPRB,3.0584E+01_JPRB,3.0174E+01_JPRB,3.2756E+01_JPRB/)  
+KBO( :, 1,33,14) = (/&
+ & 1.8489E+01_JPRB,1.9733E+01_JPRB,2.6684E+01_JPRB,3.3047E+01_JPRB,4.1445E+01_JPRB/)  
+KBO( :, 2,33,14) = (/&
+ & 2.4189E+01_JPRB,2.2424E+01_JPRB,2.7346E+01_JPRB,3.2099E+01_JPRB,3.9209E+01_JPRB/)  
+KBO( :, 3,33,14) = (/&
+ & 3.0723E+01_JPRB,2.6034E+01_JPRB,2.8320E+01_JPRB,3.1451E+01_JPRB,3.7092E+01_JPRB/)  
+KBO( :, 4,33,14) = (/&
+ & 3.8063E+01_JPRB,3.0513E+01_JPRB,2.9704E+01_JPRB,3.1070E+01_JPRB,3.5085E+01_JPRB/)  
+KBO( :, 5,33,14) = (/&
+ & 4.6119E+01_JPRB,3.5751E+01_JPRB,3.1499E+01_JPRB,3.0917E+01_JPRB,3.3191E+01_JPRB/)  
+KBO( :, 1,34,14) = (/&
+ & 1.9120E+01_JPRB,2.0380E+01_JPRB,2.7451E+01_JPRB,3.3738E+01_JPRB,4.2092E+01_JPRB/)  
+KBO( :, 2,34,14) = (/&
+ & 2.5003E+01_JPRB,2.3162E+01_JPRB,2.8086E+01_JPRB,3.2774E+01_JPRB,3.9759E+01_JPRB/)  
+KBO( :, 3,34,14) = (/&
+ & 3.1744E+01_JPRB,2.6883E+01_JPRB,2.9061E+01_JPRB,3.2120E+01_JPRB,3.7559E+01_JPRB/)  
+KBO( :, 4,34,14) = (/&
+ & 3.9301E+01_JPRB,3.1483E+01_JPRB,3.0464E+01_JPRB,3.1710E+01_JPRB,3.5480E+01_JPRB/)  
+KBO( :, 5,34,14) = (/&
+ & 4.7562E+01_JPRB,3.6856E+01_JPRB,3.2292E+01_JPRB,3.1536E+01_JPRB,3.3568E+01_JPRB/)  
+KBO( :, 1,35,14) = (/&
+ & 1.9330E+01_JPRB,2.0794E+01_JPRB,2.8053E+01_JPRB,3.4390E+01_JPRB,4.2763E+01_JPRB/)  
+KBO( :, 2,35,14) = (/&
+ & 2.5319E+01_JPRB,2.3595E+01_JPRB,2.8656E+01_JPRB,3.3397E+01_JPRB,4.0342E+01_JPRB/)  
+KBO( :, 3,35,14) = (/&
+ & 3.2191E+01_JPRB,2.7358E+01_JPRB,2.9608E+01_JPRB,3.2717E+01_JPRB,3.8062E+01_JPRB/)  
+KBO( :, 4,35,14) = (/&
+ & 3.9886E+01_JPRB,3.2011E+01_JPRB,3.1003E+01_JPRB,3.2263E+01_JPRB,3.5938E+01_JPRB/)  
+KBO( :, 5,35,14) = (/&
+ & 4.8294E+01_JPRB,3.7467E+01_JPRB,3.2840E+01_JPRB,3.2051E+01_JPRB,3.4008E+01_JPRB/)  
+KBO( :, 1,36,14) = (/&
+ & 1.9010E+01_JPRB,2.0941E+01_JPRB,2.8519E+01_JPRB,3.5044E+01_JPRB,4.3548E+01_JPRB/)  
+KBO( :, 2,36,14) = (/&
+ & 2.5019E+01_JPRB,2.3674E+01_JPRB,2.9070E+01_JPRB,3.3996E+01_JPRB,4.1038E+01_JPRB/)  
+KBO( :, 3,36,14) = (/&
+ & 3.1927E+01_JPRB,2.7395E+01_JPRB,2.9968E+01_JPRB,3.3265E+01_JPRB,3.8679E+01_JPRB/)  
+KBO( :, 4,36,14) = (/&
+ & 3.9672E+01_JPRB,3.2015E+01_JPRB,3.1322E+01_JPRB,3.2758E+01_JPRB,3.6525E+01_JPRB/)  
+KBO( :, 5,36,14) = (/&
+ & 4.8151E+01_JPRB,3.7481E+01_JPRB,3.3115E+01_JPRB,3.2494E+01_JPRB,3.4530E+01_JPRB/)  
+KBO( :, 1,37,14) = (/&
+ & 1.7926E+01_JPRB,2.0769E+01_JPRB,2.8871E+01_JPRB,3.5793E+01_JPRB,4.4612E+01_JPRB/)  
+KBO( :, 2,37,14) = (/&
+ & 2.3809E+01_JPRB,2.3285E+01_JPRB,2.9325E+01_JPRB,3.4640E+01_JPRB,4.1997E+01_JPRB/)  
+KBO( :, 3,37,14) = (/&
+ & 3.0620E+01_JPRB,2.6825E+01_JPRB,3.0118E+01_JPRB,3.3823E+01_JPRB,3.9558E+01_JPRB/)  
+KBO( :, 4,37,14) = (/&
+ & 3.8296E+01_JPRB,3.1288E+01_JPRB,3.1366E+01_JPRB,3.3235E+01_JPRB,3.7337E+01_JPRB/)  
+KBO( :, 5,37,14) = (/&
+ & 4.6724E+01_JPRB,3.6634E+01_JPRB,3.3044E+01_JPRB,3.2894E+01_JPRB,3.5259E+01_JPRB/)  
+KBO( :, 1,38,14) = (/&
+ & 1.6878E+01_JPRB,2.0610E+01_JPRB,2.9172E+01_JPRB,3.6472E+01_JPRB,4.5609E+01_JPRB/)  
+KBO( :, 2,38,14) = (/&
+ & 2.2623E+01_JPRB,2.2907E+01_JPRB,2.9536E+01_JPRB,3.5227E+01_JPRB,4.2904E+01_JPRB/)  
+KBO( :, 3,38,14) = (/&
+ & 2.9321E+01_JPRB,2.6260E+01_JPRB,3.0234E+01_JPRB,3.4327E+01_JPRB,4.0395E+01_JPRB/)  
+KBO( :, 4,38,14) = (/&
+ & 3.6903E+01_JPRB,3.0559E+01_JPRB,3.1375E+01_JPRB,3.3664E+01_JPRB,3.8108E+01_JPRB/)  
+KBO( :, 5,38,14) = (/&
+ & 4.5262E+01_JPRB,3.5766E+01_JPRB,3.2950E+01_JPRB,3.3255E+01_JPRB,3.5951E+01_JPRB/)  
+KBO( :, 1,39,14) = (/&
+ & 1.5902E+01_JPRB,2.0474E+01_JPRB,2.9440E+01_JPRB,3.7085E+01_JPRB,4.6521E+01_JPRB/)  
+KBO( :, 2,39,14) = (/&
+ & 2.1511E+01_JPRB,2.2570E+01_JPRB,2.9719E+01_JPRB,3.5757E+01_JPRB,4.3739E+01_JPRB/)  
+KBO( :, 3,39,14) = (/&
+ & 2.8094E+01_JPRB,2.5734E+01_JPRB,3.0328E+01_JPRB,3.4778E+01_JPRB,4.1182E+01_JPRB/)  
+KBO( :, 4,39,14) = (/&
+ & 3.5578E+01_JPRB,2.9877E+01_JPRB,3.1374E+01_JPRB,3.4050E+01_JPRB,3.8820E+01_JPRB/)  
+KBO( :, 5,39,14) = (/&
+ & 4.3862E+01_JPRB,3.4943E+01_JPRB,3.2862E+01_JPRB,3.3572E+01_JPRB,3.6607E+01_JPRB/)  
+KBO( :, 1,40,14) = (/&
+ & 1.4487E+01_JPRB,2.0210E+01_JPRB,2.9678E+01_JPRB,3.7814E+01_JPRB,4.7667E+01_JPRB/)  
+KBO( :, 2,40,14) = (/&
+ & 1.9857E+01_JPRB,2.2013E+01_JPRB,2.9846E+01_JPRB,3.6374E+01_JPRB,4.4798E+01_JPRB/)  
+KBO( :, 3,40,14) = (/&
+ & 2.6217E+01_JPRB,2.4887E+01_JPRB,3.0342E+01_JPRB,3.5275E+01_JPRB,4.2152E+01_JPRB/)  
+KBO( :, 4,40,14) = (/&
+ & 3.3508E+01_JPRB,2.8778E+01_JPRB,3.1239E+01_JPRB,3.4477E+01_JPRB,3.9718E+01_JPRB/)  
+KBO( :, 5,40,14) = (/&
+ & 4.1627E+01_JPRB,3.3601E+01_JPRB,3.2609E+01_JPRB,3.3904E+01_JPRB,3.7435E+01_JPRB/)  
+KBO( :, 1,41,14) = (/&
+ & 1.3110E+01_JPRB,1.9958E+01_JPRB,2.9912E+01_JPRB,3.8549E+01_JPRB,4.8809E+01_JPRB/)  
+KBO( :, 2,41,14) = (/&
+ & 1.8221E+01_JPRB,2.1507E+01_JPRB,2.9962E+01_JPRB,3.6988E+01_JPRB,4.5856E+01_JPRB/)  
+KBO( :, 3,41,14) = (/&
+ & 2.4334E+01_JPRB,2.4070E+01_JPRB,3.0356E+01_JPRB,3.5769E+01_JPRB,4.3126E+01_JPRB/)  
+KBO( :, 4,41,14) = (/&
+ & 3.1415E+01_JPRB,2.7692E+01_JPRB,3.1100E+01_JPRB,3.4894E+01_JPRB,4.0627E+01_JPRB/)  
+KBO( :, 5,41,14) = (/&
+ & 3.9350E+01_JPRB,3.2265E+01_JPRB,3.2344E+01_JPRB,3.4220E+01_JPRB,3.8269E+01_JPRB/)  
+KBO( :, 1,42,14) = (/&
+ & 1.1835E+01_JPRB,1.9752E+01_JPRB,3.0145E+01_JPRB,3.9251E+01_JPRB,4.9910E+01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART33',1,ZHOOK_HANDLE)
+END SUBROUTINE PART33
+
+
+SUBROUTINE PART34
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART34',0,ZHOOK_HANDLE)
+
+
+KBO( :, 2,42,14) = (/&
+ & 1.6674E+01_JPRB,2.1083E+01_JPRB,3.0080E+01_JPRB,3.7587E+01_JPRB,4.6885E+01_JPRB/)  
+KBO( :, 3,42,14) = (/&
+ & 2.2540E+01_JPRB,2.3336E+01_JPRB,3.0367E+01_JPRB,3.6256E+01_JPRB,4.4084E+01_JPRB/)  
+KBO( :, 4,42,14) = (/&
+ & 2.9380E+01_JPRB,2.6668E+01_JPRB,3.0980E+01_JPRB,3.5287E+01_JPRB,4.1523E+01_JPRB/)  
+KBO( :, 5,42,14) = (/&
+ & 3.7130E+01_JPRB,3.0990E+01_JPRB,3.2078E+01_JPRB,3.4533E+01_JPRB,3.9096E+01_JPRB/)  
+KBO( :, 1,43,14) = (/&
+ & 1.0424E+01_JPRB,1.9517E+01_JPRB,3.0390E+01_JPRB,4.0028E+01_JPRB,5.1165E+01_JPRB/)  
+KBO( :, 2,43,14) = (/&
+ & 1.4940E+01_JPRB,2.0651E+01_JPRB,3.0207E+01_JPRB,3.8268E+01_JPRB,4.8059E+01_JPRB/)  
+KBO( :, 3,43,14) = (/&
+ & 2.0485E+01_JPRB,2.2541E+01_JPRB,3.0363E+01_JPRB,3.6818E+01_JPRB,4.5176E+01_JPRB/)  
+KBO( :, 4,43,14) = (/&
+ & 2.7034E+01_JPRB,2.5521E+01_JPRB,3.0853E+01_JPRB,3.5715E+01_JPRB,4.2549E+01_JPRB/)  
+KBO( :, 5,43,14) = (/&
+ & 3.4521E+01_JPRB,2.9529E+01_JPRB,3.1770E+01_JPRB,3.4894E+01_JPRB,4.0051E+01_JPRB/)  
+KBO( :, 1,44,14) = (/&
+ & 9.0454E+00_JPRB,1.9303E+01_JPRB,3.0654E+01_JPRB,4.0829E+01_JPRB,5.2486E+01_JPRB/)  
+KBO( :, 2,44,14) = (/&
+ & 1.3210E+01_JPRB,2.0258E+01_JPRB,3.0364E+01_JPRB,3.9018E+01_JPRB,4.9303E+01_JPRB/)  
+KBO( :, 3,44,14) = (/&
+ & 1.8410E+01_JPRB,2.1811E+01_JPRB,3.0377E+01_JPRB,3.7427E+01_JPRB,4.6338E+01_JPRB/)  
+KBO( :, 4,44,14) = (/&
+ & 2.4625E+01_JPRB,2.4403E+01_JPRB,3.0751E+01_JPRB,3.6187E+01_JPRB,4.3644E+01_JPRB/)  
+KBO( :, 5,44,14) = (/&
+ & 3.1810E+01_JPRB,2.8069E+01_JPRB,3.1486E+01_JPRB,3.5287E+01_JPRB,4.1079E+01_JPRB/)  
+KBO( :, 1,45,14) = (/&
+ & 7.7991E+00_JPRB,1.9124E+01_JPRB,3.0912E+01_JPRB,4.1626E+01_JPRB,5.3793E+01_JPRB/)  
+KBO( :, 2,45,14) = (/&
+ & 1.1620E+01_JPRB,1.9930E+01_JPRB,3.0535E+01_JPRB,3.9772E+01_JPRB,5.0542E+01_JPRB/)  
+KBO( :, 3,45,14) = (/&
+ & 1.6462E+01_JPRB,2.1220E+01_JPRB,3.0424E+01_JPRB,3.8053E+01_JPRB,4.7507E+01_JPRB/)  
+KBO( :, 4,45,14) = (/&
+ & 2.2340E+01_JPRB,2.3424E+01_JPRB,3.0669E+01_JPRB,3.6679E+01_JPRB,4.4753E+01_JPRB/)  
+KBO( :, 5,45,14) = (/&
+ & 2.9206E+01_JPRB,2.6717E+01_JPRB,3.1243E+01_JPRB,3.5671E+01_JPRB,4.2118E+01_JPRB/)  
+KBO( :, 1,46,14) = (/&
+ & 6.6114E+00_JPRB,1.8975E+01_JPRB,3.1192E+01_JPRB,4.2505E+01_JPRB,5.5177E+01_JPRB/)  
+KBO( :, 2,46,14) = (/&
+ & 1.0078E+01_JPRB,1.9636E+01_JPRB,3.0742E+01_JPRB,4.0557E+01_JPRB,5.1854E+01_JPRB/)  
+KBO( :, 3,46,14) = (/&
+ & 1.4541E+01_JPRB,2.0717E+01_JPRB,3.0510E+01_JPRB,3.8745E+01_JPRB,4.8748E+01_JPRB/)  
+KBO( :, 4,46,14) = (/&
+ & 2.0050E+01_JPRB,2.2518E+01_JPRB,3.0610E+01_JPRB,3.7236E+01_JPRB,4.5932E+01_JPRB/)  
+KBO( :, 5,46,14) = (/&
+ & 2.6570E+01_JPRB,2.5413E+01_JPRB,3.1056E+01_JPRB,3.6085E+01_JPRB,4.3222E+01_JPRB/)  
+KBO( :, 1,47,14) = (/&
+ & 5.4426E+00_JPRB,1.8843E+01_JPRB,3.1468E+01_JPRB,4.3504E+01_JPRB,5.6708E+01_JPRB/)  
+KBO( :, 2,47,14) = (/&
+ & 8.5243E+00_JPRB,1.9360E+01_JPRB,3.0989E+01_JPRB,4.1408E+01_JPRB,5.3314E+01_JPRB/)  
+KBO( :, 3,47,14) = (/&
+ & 1.2575E+01_JPRB,2.0245E+01_JPRB,3.0638E+01_JPRB,3.9555E+01_JPRB,5.0119E+01_JPRB/)  
+KBO( :, 4,47,14) = (/&
+ & 1.7661E+01_JPRB,2.1683E+01_JPRB,3.0580E+01_JPRB,3.7894E+01_JPRB,4.7238E+01_JPRB/)  
+KBO( :, 5,47,14) = (/&
+ & 2.3779E+01_JPRB,2.4127E+01_JPRB,3.0897E+01_JPRB,3.6585E+01_JPRB,4.4450E+01_JPRB/)  
+KBO( :, 1,48,14) = (/&
+ & 4.4277E+00_JPRB,1.8761E+01_JPRB,3.1768E+01_JPRB,4.4555E+01_JPRB,5.8239E+01_JPRB/)  
+KBO( :, 2,48,14) = (/&
+ & 7.1412E+00_JPRB,1.9151E+01_JPRB,3.1244E+01_JPRB,4.2299E+01_JPRB,5.4783E+01_JPRB/)  
+KBO( :, 3,48,14) = (/&
+ & 1.0789E+01_JPRB,1.9869E+01_JPRB,3.0807E+01_JPRB,4.0379E+01_JPRB,5.1522E+01_JPRB/)  
+KBO( :, 4,48,14) = (/&
+ & 1.5451E+01_JPRB,2.1038E+01_JPRB,3.0616E+01_JPRB,3.8583E+01_JPRB,4.8572E+01_JPRB/)  
+KBO( :, 5,48,14) = (/&
+ & 2.1160E+01_JPRB,2.3022E+01_JPRB,3.0768E+01_JPRB,3.7126E+01_JPRB,4.5703E+01_JPRB/)  
+KBO( :, 1,49,14) = (/&
+ & 3.5582E+00_JPRB,1.8724E+01_JPRB,3.2110E+01_JPRB,4.5630E+01_JPRB,5.9777E+01_JPRB/)  
+KBO( :, 2,49,14) = (/&
+ & 5.9176E+00_JPRB,1.8981E+01_JPRB,3.1512E+01_JPRB,4.3246E+01_JPRB,5.6279E+01_JPRB/)  
+KBO( :, 3,49,14) = (/&
+ & 9.1765E+00_JPRB,1.9555E+01_JPRB,3.1023E+01_JPRB,4.1205E+01_JPRB,5.2968E+01_JPRB/)  
+KBO( :, 4,49,14) = (/&
+ & 1.3419E+01_JPRB,2.0517E+01_JPRB,3.0706E+01_JPRB,3.9341E+01_JPRB,4.9951E+01_JPRB/)  
+KBO( :, 5,49,14) = (/&
+ & 1.8709E+01_JPRB,2.2099E+01_JPRB,3.0706E+01_JPRB,3.7732E+01_JPRB,4.7001E+01_JPRB/)  
+KBO( :, 1,50,14) = (/&
+ & 2.8621E+00_JPRB,1.8722E+01_JPRB,3.2476E+01_JPRB,4.6653E+01_JPRB,6.1210E+01_JPRB/)  
+KBO( :, 2,50,14) = (/&
+ & 4.9088E+00_JPRB,1.8875E+01_JPRB,3.1754E+01_JPRB,4.4175E+01_JPRB,5.7683E+01_JPRB/)  
+KBO( :, 3,50,14) = (/&
+ & 7.8135E+00_JPRB,1.9320E+01_JPRB,3.1237E+01_JPRB,4.1987E+01_JPRB,5.4314E+01_JPRB/)  
+KBO( :, 4,50,14) = (/&
+ & 1.1676E+01_JPRB,2.0117E+01_JPRB,3.0830E+01_JPRB,4.0088E+01_JPRB,5.1232E+01_JPRB/)  
+KBO( :, 5,50,14) = (/&
+ & 1.6567E+01_JPRB,2.1410E+01_JPRB,3.0696E+01_JPRB,3.8343E+01_JPRB,4.8212E+01_JPRB/)  
+KBO( :, 1,51,14) = (/&
+ & 2.2871E+00_JPRB,1.8709E+01_JPRB,3.2860E+01_JPRB,4.7625E+01_JPRB,6.2589E+01_JPRB/)  
+KBO( :, 2,51,14) = (/&
+ & 4.0542E+00_JPRB,1.8811E+01_JPRB,3.2015E+01_JPRB,4.5121E+01_JPRB,5.9058E+01_JPRB/)  
+KBO( :, 3,51,14) = (/&
+ & 6.6290E+00_JPRB,1.9146E+01_JPRB,3.1467E+01_JPRB,4.2798E+01_JPRB,5.5634E+01_JPRB/)  
+KBO( :, 4,51,14) = (/&
+ & 1.0131E+01_JPRB,1.9796E+01_JPRB,3.0988E+01_JPRB,4.0823E+01_JPRB,5.2469E+01_JPRB/)  
+KBO( :, 5,51,14) = (/&
+ & 1.4636E+01_JPRB,2.0878E+01_JPRB,3.0739E+01_JPRB,3.8979E+01_JPRB,4.9405E+01_JPRB/)  
+KBO( :, 1,52,14) = (/&
+ & 1.8042E+00_JPRB,1.8682E+01_JPRB,3.3246E+01_JPRB,4.8560E+01_JPRB,6.3938E+01_JPRB/)  
+KBO( :, 2,52,14) = (/&
+ & 3.3141E+00_JPRB,1.8789E+01_JPRB,3.2326E+01_JPRB,4.6081E+01_JPRB,6.0432E+01_JPRB/)  
+KBO( :, 3,52,14) = (/&
+ & 5.5749E+00_JPRB,1.9001E+01_JPRB,3.1682E+01_JPRB,4.3646E+01_JPRB,5.6974E+01_JPRB/)  
+KBO( :, 4,52,14) = (/&
+ & 8.7257E+00_JPRB,1.9525E+01_JPRB,3.1181E+01_JPRB,4.1550E+01_JPRB,5.3732E+01_JPRB/)  
+KBO( :, 5,52,14) = (/&
+ & 1.2856E+01_JPRB,2.0429E+01_JPRB,3.0821E+01_JPRB,3.9666E+01_JPRB,5.0627E+01_JPRB/)  
+KBO( :, 1,53,14) = (/&
+ & 1.4016E+00_JPRB,1.8621E+01_JPRB,3.3678E+01_JPRB,4.9490E+01_JPRB,6.5279E+01_JPRB/)  
+KBO( :, 2,53,14) = (/&
+ & 2.6762E+00_JPRB,1.8776E+01_JPRB,3.2671E+01_JPRB,4.7047E+01_JPRB,6.1804E+01_JPRB/)  
+KBO( :, 3,53,14) = (/&
+ & 4.6412E+00_JPRB,1.8903E+01_JPRB,3.1912E+01_JPRB,4.4545E+01_JPRB,5.8349E+01_JPRB/)  
+KBO( :, 4,53,14) = (/&
+ & 7.4512E+00_JPRB,1.9311E+01_JPRB,3.1378E+01_JPRB,4.2307E+01_JPRB,5.5036E+01_JPRB/)  
+KBO( :, 5,53,14) = (/&
+ & 1.1217E+01_JPRB,2.0061E+01_JPRB,3.0940E+01_JPRB,4.0380E+01_JPRB,5.1884E+01_JPRB/)  
+KBO( :, 1,54,14) = (/&
+ & 1.0961E+00_JPRB,1.8547E+01_JPRB,3.4112E+01_JPRB,5.0332E+01_JPRB,6.6490E+01_JPRB/)  
+KBO( :, 2,54,14) = (/&
+ & 2.1755E+00_JPRB,1.8757E+01_JPRB,3.3015E+01_JPRB,4.7918E+01_JPRB,6.3018E+01_JPRB/)  
+KBO( :, 3,54,14) = (/&
+ & 3.8890E+00_JPRB,1.8845E+01_JPRB,3.2149E+01_JPRB,4.5398E+01_JPRB,5.9550E+01_JPRB/)  
+KBO( :, 4,54,14) = (/&
+ & 6.4008E+00_JPRB,1.9153E+01_JPRB,3.1582E+01_JPRB,4.3046E+01_JPRB,5.6158E+01_JPRB/)  
+KBO( :, 5,54,14) = (/&
+ & 9.8389E+00_JPRB,1.9773E+01_JPRB,3.1086E+01_JPRB,4.1043E+01_JPRB,5.2991E+01_JPRB/)  
+KBO( :, 1,55,14) = (/&
+ & 8.5398E-01_JPRB,1.8492E+01_JPRB,3.4545E+01_JPRB,5.1111E+01_JPRB,6.7620E+01_JPRB/)  
+KBO( :, 2,55,14) = (/&
+ & 1.7643E+00_JPRB,1.8724E+01_JPRB,3.3346E+01_JPRB,4.8723E+01_JPRB,6.4160E+01_JPRB/)  
+KBO( :, 3,55,14) = (/&
+ & 3.2551E+00_JPRB,1.8827E+01_JPRB,3.2415E+01_JPRB,4.6233E+01_JPRB,6.0665E+01_JPRB/)  
+KBO( :, 4,55,14) = (/&
+ & 5.4933E+00_JPRB,1.9028E+01_JPRB,3.1761E+01_JPRB,4.3784E+01_JPRB,5.7216E+01_JPRB/)  
+KBO( :, 5,55,14) = (/&
+ & 8.6198E+00_JPRB,1.9538E+01_JPRB,3.1251E+01_JPRB,4.1673E+01_JPRB,5.3976E+01_JPRB/)  
+KBO( :, 1,56,14) = (/&
+ & 6.5583E-01_JPRB,1.8466E+01_JPRB,3.5009E+01_JPRB,5.1852E+01_JPRB,6.8713E+01_JPRB/)  
+KBO( :, 2,56,14) = (/&
+ & 1.4149E+00_JPRB,1.8664E+01_JPRB,3.3714E+01_JPRB,4.9524E+01_JPRB,6.5316E+01_JPRB/)  
+KBO( :, 3,56,14) = (/&
+ & 2.7001E+00_JPRB,1.8813E+01_JPRB,3.2708E+01_JPRB,4.7069E+01_JPRB,6.1791E+01_JPRB/)  
+KBO( :, 4,56,14) = (/&
+ & 4.6799E+00_JPRB,1.8938E+01_JPRB,3.1954E+01_JPRB,4.4562E+01_JPRB,5.8292E+01_JPRB/)  
+KBO( :, 5,56,14) = (/&
+ & 7.5092E+00_JPRB,1.9349E+01_JPRB,3.1417E+01_JPRB,4.2326E+01_JPRB,5.4949E+01_JPRB/)  
+KBO( :, 1,57,14) = (/&
+ & 4.9569E-01_JPRB,1.8461E+01_JPRB,3.5476E+01_JPRB,5.2586E+01_JPRB,6.9771E+01_JPRB/)  
+KBO( :, 2,57,14) = (/&
+ & 1.1207E+00_JPRB,1.8588E+01_JPRB,3.4120E+01_JPRB,5.0320E+01_JPRB,6.6462E+01_JPRB/)  
+KBO( :, 3,57,14) = (/&
+ & 2.2185E+00_JPRB,1.8789E+01_JPRB,3.3026E+01_JPRB,4.7890E+01_JPRB,6.2944E+01_JPRB/)  
+KBO( :, 4,57,14) = (/&
+ & 3.9561E+00_JPRB,1.8878E+01_JPRB,3.2169E+01_JPRB,4.5368E+01_JPRB,5.9404E+01_JPRB/)  
+KBO( :, 5,57,14) = (/&
+ & 6.5001E+00_JPRB,1.9194E+01_JPRB,3.1605E+01_JPRB,4.3020E+01_JPRB,5.5955E+01_JPRB/)  
+KBO( :, 1,58,14) = (/&
+ & 3.7410E-01_JPRB,1.8476E+01_JPRB,3.5878E+01_JPRB,5.3233E+01_JPRB,7.0727E+01_JPRB/)  
+KBO( :, 2,58,14) = (/&
+ & 8.8722E-01_JPRB,1.8527E+01_JPRB,3.4515E+01_JPRB,5.1048E+01_JPRB,6.7516E+01_JPRB/)  
+KBO( :, 3,58,14) = (/&
+ & 1.8232E+00_JPRB,1.8757E+01_JPRB,3.3332E+01_JPRB,4.8650E+01_JPRB,6.4043E+01_JPRB/)  
+KBO( :, 4,58,14) = (/&
+ & 3.3485E+00_JPRB,1.8853E+01_JPRB,3.2410E+01_JPRB,4.6145E+01_JPRB,6.0474E+01_JPRB/)  
+KBO( :, 5,58,14) = (/&
+ & 5.6308E+00_JPRB,1.9066E+01_JPRB,3.1770E+01_JPRB,4.3707E+01_JPRB,5.6952E+01_JPRB/)  
+KBO( :, 1,59,14) = (/&
+ & 3.3226E-01_JPRB,1.8499E+01_JPRB,3.6042E+01_JPRB,5.3487E+01_JPRB,7.1108E+01_JPRB/)  
+KBO( :, 2,59,14) = (/&
+ & 8.0465E-01_JPRB,1.8512E+01_JPRB,3.4692E+01_JPRB,5.1340E+01_JPRB,6.7946E+01_JPRB/)  
+KBO( :, 3,59,14) = (/&
+ & 1.6796E+00_JPRB,1.8742E+01_JPRB,3.3465E+01_JPRB,4.8954E+01_JPRB,6.4485E+01_JPRB/)  
+KBO( :, 4,59,14) = (/&
+ & 3.1244E+00_JPRB,1.8851E+01_JPRB,3.2518E+01_JPRB,4.6468E+01_JPRB,6.0924E+01_JPRB/)  
+KBO( :, 5,59,14) = (/&
+ & 5.3047E+00_JPRB,1.9029E+01_JPRB,3.1839E+01_JPRB,4.3997E+01_JPRB,5.7335E+01_JPRB/)  
+KBO( :, 1,13,15) = (/&
+ & 1.4736E+01_JPRB,1.1137E+01_JPRB,7.6940E+00_JPRB,7.1072E+00_JPRB,9.0794E+00_JPRB/)  
+KBO( :, 2,13,15) = (/&
+ & 2.0753E+01_JPRB,1.5659E+01_JPRB,1.0572E+01_JPRB,7.4219E+00_JPRB,8.9416E+00_JPRB/)  
+KBO( :, 3,13,15) = (/&
+ & 2.7810E+01_JPRB,2.0956E+01_JPRB,1.4105E+01_JPRB,8.2365E+00_JPRB,8.8640E+00_JPRB/)  
+KBO( :, 4,13,15) = (/&
+ & 3.5751E+01_JPRB,2.6911E+01_JPRB,1.8075E+01_JPRB,9.6167E+00_JPRB,8.7852E+00_JPRB/)  
+KBO( :, 5,13,15) = (/&
+ & 4.4392E+01_JPRB,3.3391E+01_JPRB,2.2391E+01_JPRB,1.1515E+01_JPRB,8.6750E+00_JPRB/)  
+KBO( :, 1,14,15) = (/&
+ & 1.6396E+01_JPRB,1.2398E+01_JPRB,8.6531E+00_JPRB,8.0901E+00_JPRB,1.0338E+01_JPRB/)  
+KBO( :, 2,14,15) = (/&
+ & 2.3021E+01_JPRB,1.7368E+01_JPRB,1.1723E+01_JPRB,8.4557E+00_JPRB,1.0225E+01_JPRB/)  
+KBO( :, 3,14,15) = (/&
+ & 3.0725E+01_JPRB,2.3145E+01_JPRB,1.5568E+01_JPRB,9.3794E+00_JPRB,1.0164E+01_JPRB/)  
+KBO( :, 4,14,15) = (/&
+ & 3.9405E+01_JPRB,2.9646E+01_JPRB,1.9890E+01_JPRB,1.0857E+01_JPRB,1.0076E+01_JPRB/)  
+KBO( :, 5,14,15) = (/&
+ & 4.8887E+01_JPRB,3.6753E+01_JPRB,2.4621E+01_JPRB,1.2810E+01_JPRB,9.9619E+00_JPRB/)  
+KBO( :, 1,15,15) = (/&
+ & 1.8108E+01_JPRB,1.3685E+01_JPRB,9.7296E+00_JPRB,9.2864E+00_JPRB,1.1891E+01_JPRB/)  
+KBO( :, 2,15,15) = (/&
+ & 2.5292E+01_JPRB,1.9065E+01_JPRB,1.2925E+01_JPRB,9.7320E+00_JPRB,1.1822E+01_JPRB/)  
+KBO( :, 3,15,15) = (/&
+ & 3.3657E+01_JPRB,2.5333E+01_JPRB,1.7012E+01_JPRB,1.0681E+01_JPRB,1.1765E+01_JPRB/)  
+KBO( :, 4,15,15) = (/&
+ & 4.3009E+01_JPRB,3.2342E+01_JPRB,2.1677E+01_JPRB,1.2195E+01_JPRB,1.1648E+01_JPRB/)  
+KBO( :, 5,15,15) = (/&
+ & 5.3119E+01_JPRB,3.9920E+01_JPRB,2.6722E+01_JPRB,1.4174E+01_JPRB,1.1512E+01_JPRB/)  
+KBO( :, 1,16,15) = (/&
+ & 1.9766E+01_JPRB,1.4918E+01_JPRB,1.0847E+01_JPRB,1.0763E+01_JPRB,1.3814E+01_JPRB/)  
+KBO( :, 2,16,15) = (/&
+ & 2.7468E+01_JPRB,2.0688E+01_JPRB,1.4114E+01_JPRB,1.1259E+01_JPRB,1.3757E+01_JPRB/)  
+KBO( :, 3,16,15) = (/&
+ & 3.6341E+01_JPRB,2.7338E+01_JPRB,1.8370E+01_JPRB,1.2200E+01_JPRB,1.3647E+01_JPRB/)  
+KBO( :, 4,16,15) = (/&
+ & 4.6268E+01_JPRB,3.4775E+01_JPRB,2.3285E+01_JPRB,1.3712E+01_JPRB,1.3493E+01_JPRB/)  
+KBO( :, 5,16,15) = (/&
+ & 5.7098E+01_JPRB,4.2893E+01_JPRB,2.8688E+01_JPRB,1.5674E+01_JPRB,1.3336E+01_JPRB/)  
+KBO( :, 1,17,15) = (/&
+ & 2.1283E+01_JPRB,1.6042E+01_JPRB,1.2037E+01_JPRB,1.2521E+01_JPRB,1.6103E+01_JPRB/)  
+KBO( :, 2,17,15) = (/&
+ & 2.9464E+01_JPRB,2.2172E+01_JPRB,1.5299E+01_JPRB,1.3029E+01_JPRB,1.5994E+01_JPRB/)  
+KBO( :, 3,17,15) = (/&
+ & 3.8948E+01_JPRB,2.9275E+01_JPRB,1.9669E+01_JPRB,1.3963E+01_JPRB,1.5820E+01_JPRB/)  
+KBO( :, 4,17,15) = (/&
+ & 4.9621E+01_JPRB,3.7275E+01_JPRB,2.4936E+01_JPRB,1.5438E+01_JPRB,1.5638E+01_JPRB/)  
+KBO( :, 5,17,15) = (/&
+ & 6.1258E+01_JPRB,4.5999E+01_JPRB,3.0742E+01_JPRB,1.7360E+01_JPRB,1.5449E+01_JPRB/)  
+KBO( :, 1,18,15) = (/&
+ & 2.2877E+01_JPRB,1.7231E+01_JPRB,1.3375E+01_JPRB,1.4554E+01_JPRB,1.8639E+01_JPRB/)  
+KBO( :, 2,18,15) = (/&
+ & 3.1639E+01_JPRB,2.3798E+01_JPRB,1.6609E+01_JPRB,1.5067E+01_JPRB,1.8464E+01_JPRB/)  
+KBO( :, 3,18,15) = (/&
+ & 4.1858E+01_JPRB,3.1457E+01_JPRB,2.1141E+01_JPRB,1.5981E+01_JPRB,1.8293E+01_JPRB/)  
+KBO( :, 4,18,15) = (/&
+ & 5.3342E+01_JPRB,4.0067E+01_JPRB,2.6795E+01_JPRB,1.7399E+01_JPRB,1.8084E+01_JPRB/)  
+KBO( :, 5,18,15) = (/&
+ & 6.5884E+01_JPRB,4.9471E+01_JPRB,3.3060E+01_JPRB,1.9258E+01_JPRB,1.7848E+01_JPRB/)  
+KBO( :, 1,19,15) = (/&
+ & 2.4623E+01_JPRB,1.8531E+01_JPRB,1.4907E+01_JPRB,1.6838E+01_JPRB,2.1462E+01_JPRB/)  
+KBO( :, 2,19,15) = (/&
+ & 3.4070E+01_JPRB,2.5614E+01_JPRB,1.8084E+01_JPRB,1.7369E+01_JPRB,2.1261E+01_JPRB/)  
+KBO( :, 3,19,15) = (/&
+ & 4.5079E+01_JPRB,3.3868E+01_JPRB,2.2784E+01_JPRB,1.8262E+01_JPRB,2.1046E+01_JPRB/)  
+KBO( :, 4,19,15) = (/&
+ & 5.7371E+01_JPRB,4.3086E+01_JPRB,2.8804E+01_JPRB,1.9597E+01_JPRB,2.0788E+01_JPRB/)  
+KBO( :, 5,19,15) = (/&
+ & 7.0794E+01_JPRB,5.3152E+01_JPRB,3.5511E+01_JPRB,2.1320E+01_JPRB,2.0472E+01_JPRB/)  
+KBO( :, 1,20,15) = (/&
+ & 2.6740E+01_JPRB,2.0113E+01_JPRB,1.6687E+01_JPRB,1.9463E+01_JPRB,2.4692E+01_JPRB/)  
+KBO( :, 2,20,15) = (/&
+ & 3.6896E+01_JPRB,2.7729E+01_JPRB,1.9869E+01_JPRB,1.9965E+01_JPRB,2.4417E+01_JPRB/)  
+KBO( :, 3,20,15) = (/&
+ & 4.8627E+01_JPRB,3.6527E+01_JPRB,2.4686E+01_JPRB,2.0749E+01_JPRB,2.4109E+01_JPRB/)  
+KBO( :, 4,20,15) = (/&
+ & 6.1800E+01_JPRB,4.6406E+01_JPRB,3.1013E+01_JPRB,2.1980E+01_JPRB,2.3749E+01_JPRB/)  
+KBO( :, 5,20,15) = (/&
+ & 7.6193E+01_JPRB,5.7200E+01_JPRB,3.8207E+01_JPRB,2.3582E+01_JPRB,2.3335E+01_JPRB/)  
+KBO( :, 1,21,15) = (/&
+ & 2.8977E+01_JPRB,2.1786E+01_JPRB,1.8588E+01_JPRB,2.2423E+01_JPRB,2.8316E+01_JPRB/)  
+KBO( :, 2,21,15) = (/&
+ & 3.9801E+01_JPRB,2.9904E+01_JPRB,2.1842E+01_JPRB,2.2829E+01_JPRB,2.7905E+01_JPRB/)  
+KBO( :, 3,21,15) = (/&
+ & 5.2367E+01_JPRB,3.9328E+01_JPRB,2.6804E+01_JPRB,2.3451E+01_JPRB,2.7467E+01_JPRB/)  
+KBO( :, 4,21,15) = (/&
+ & 6.6469E+01_JPRB,4.9905E+01_JPRB,3.3345E+01_JPRB,2.4522E+01_JPRB,2.6969E+01_JPRB/)  
+KBO( :, 5,21,15) = (/&
+ & 8.1848E+01_JPRB,6.1440E+01_JPRB,4.1033E+01_JPRB,2.6023E+01_JPRB,2.6435E+01_JPRB/)  
+KBO( :, 1,22,15) = (/&
+ & 3.1988E+01_JPRB,2.4041E+01_JPRB,2.0812E+01_JPRB,2.5651E+01_JPRB,3.2255E+01_JPRB/)  
+KBO( :, 2,22,15) = (/&
+ & 4.3721E+01_JPRB,3.2841E+01_JPRB,2.4334E+01_JPRB,2.5950E+01_JPRB,3.1687E+01_JPRB/)  
+KBO( :, 3,22,15) = (/&
+ & 5.7294E+01_JPRB,4.3022E+01_JPRB,2.9561E+01_JPRB,2.6432E+01_JPRB,3.1040E+01_JPRB/)  
+KBO( :, 4,22,15) = (/&
+ & 7.2474E+01_JPRB,5.4409E+01_JPRB,3.6410E+01_JPRB,2.7333E+01_JPRB,3.0338E+01_JPRB/)  
+KBO( :, 5,22,15) = (/&
+ & 8.8942E+01_JPRB,6.6761E+01_JPRB,4.4583E+01_JPRB,2.8834E+01_JPRB,2.9615E+01_JPRB/)  
+KBO( :, 1,23,15) = (/&
+ & 3.5516E+01_JPRB,2.6690E+01_JPRB,2.3334E+01_JPRB,2.9036E+01_JPRB,3.6353E+01_JPRB/)  
+KBO( :, 2,23,15) = (/&
+ & 4.8281E+01_JPRB,3.6264E+01_JPRB,2.7127E+01_JPRB,2.9241E+01_JPRB,3.5539E+01_JPRB/)  
+KBO( :, 3,23,15) = (/&
+ & 6.2902E+01_JPRB,4.7230E+01_JPRB,3.2633E+01_JPRB,2.9564E+01_JPRB,3.4668E+01_JPRB/)  
+KBO( :, 4,23,15) = (/&
+ & 7.9108E+01_JPRB,5.9385E+01_JPRB,3.9793E+01_JPRB,3.0280E+01_JPRB,3.3772E+01_JPRB/)  
+KBO( :, 5,23,15) = (/&
+ & 9.6701E+01_JPRB,7.2580E+01_JPRB,4.8461E+01_JPRB,3.1825E+01_JPRB,3.2859E+01_JPRB/)  
+KBO( :, 1,24,15) = (/&
+ & 3.9680E+01_JPRB,2.9829E+01_JPRB,2.6160E+01_JPRB,3.2548E+01_JPRB,4.0469E+01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART34',1,ZHOOK_HANDLE)
+END SUBROUTINE PART34
+
+
+SUBROUTINE PART35
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART35',0,ZHOOK_HANDLE)
+
+
+KBO( :, 2,24,15) = (/&
+ & 5.3468E+01_JPRB,4.0169E+01_JPRB,3.0146E+01_JPRB,3.2629E+01_JPRB,3.9411E+01_JPRB/)  
+KBO( :, 3,24,15) = (/&
+ & 6.9159E+01_JPRB,5.1932E+01_JPRB,3.5957E+01_JPRB,3.2753E+01_JPRB,3.8325E+01_JPRB/)  
+KBO( :, 4,24,15) = (/&
+ & 8.6552E+01_JPRB,6.4969E+01_JPRB,4.3591E+01_JPRB,3.3410E+01_JPRB,3.7213E+01_JPRB/)  
+KBO( :, 5,24,15) = (/&
+ & 1.0532E+02_JPRB,7.9041E+01_JPRB,5.2783E+01_JPRB,3.4989E+01_JPRB,3.6087E+01_JPRB/)  
+KBO( :, 1,25,15) = (/&
+ & 4.4432E+01_JPRB,3.3401E+01_JPRB,2.9194E+01_JPRB,3.6051E+01_JPRB,4.4622E+01_JPRB/)  
+KBO( :, 2,25,15) = (/&
+ & 5.9330E+01_JPRB,4.4578E+01_JPRB,3.3433E+01_JPRB,3.6017E+01_JPRB,4.3268E+01_JPRB/)  
+KBO( :, 3,25,15) = (/&
+ & 7.6262E+01_JPRB,5.7273E+01_JPRB,3.9678E+01_JPRB,3.5986E+01_JPRB,4.1914E+01_JPRB/)  
+KBO( :, 4,25,15) = (/&
+ & 9.4907E+01_JPRB,7.1254E+01_JPRB,4.7861E+01_JPRB,3.6668E+01_JPRB,4.0563E+01_JPRB/)  
+KBO( :, 5,25,15) = (/&
+ & 1.1490E+02_JPRB,8.6240E+01_JPRB,5.7602E+01_JPRB,3.8320E+01_JPRB,3.9224E+01_JPRB/)  
+KBO( :, 1,26,15) = (/&
+ & 4.9945E+01_JPRB,3.7542E+01_JPRB,3.2485E+01_JPRB,3.9526E+01_JPRB,4.8685E+01_JPRB/)  
+KBO( :, 2,26,15) = (/&
+ & 6.6132E+01_JPRB,4.9685E+01_JPRB,3.7067E+01_JPRB,3.9294E+01_JPRB,4.7029E+01_JPRB/)  
+KBO( :, 3,26,15) = (/&
+ & 8.4358E+01_JPRB,6.3353E+01_JPRB,4.3878E+01_JPRB,3.9293E+01_JPRB,4.5384E+01_JPRB/)  
+KBO( :, 4,26,15) = (/&
+ & 1.0419E+02_JPRB,7.8224E+01_JPRB,5.2598E+01_JPRB,4.0034E+01_JPRB,4.3769E+01_JPRB/)  
+KBO( :, 5,26,15) = (/&
+ & 1.2529E+02_JPRB,9.4044E+01_JPRB,6.2813E+01_JPRB,4.1703E+01_JPRB,4.2207E+01_JPRB/)  
+KBO( :, 1,27,15) = (/&
+ & 5.6070E+01_JPRB,4.2141E+01_JPRB,3.5908E+01_JPRB,4.2930E+01_JPRB,5.2613E+01_JPRB/)  
+KBO( :, 2,27,15) = (/&
+ & 7.3488E+01_JPRB,5.5206E+01_JPRB,4.0960E+01_JPRB,4.2467E+01_JPRB,5.0627E+01_JPRB/)  
+KBO( :, 3,27,15) = (/&
+ & 9.2902E+01_JPRB,6.9766E+01_JPRB,4.8295E+01_JPRB,4.2561E+01_JPRB,4.8685E+01_JPRB/)  
+KBO( :, 4,27,15) = (/&
+ & 1.1389E+02_JPRB,8.5509E+01_JPRB,5.7519E+01_JPRB,4.3345E+01_JPRB,4.6803E+01_JPRB/)  
+KBO( :, 5,27,15) = (/&
+ & 1.3609E+02_JPRB,1.0215E+02_JPRB,6.8230E+01_JPRB,4.5005E+01_JPRB,4.4998E+01_JPRB/)  
+KBO( :, 1,28,15) = (/&
+ & 6.2602E+01_JPRB,4.7047E+01_JPRB,3.9407E+01_JPRB,4.6160E+01_JPRB,5.6361E+01_JPRB/)  
+KBO( :, 2,28,15) = (/&
+ & 8.1239E+01_JPRB,6.1026E+01_JPRB,4.4978E+01_JPRB,4.5556E+01_JPRB,5.4022E+01_JPRB/)  
+KBO( :, 3,28,15) = (/&
+ & 1.0182E+02_JPRB,7.6460E+01_JPRB,5.2849E+01_JPRB,4.5684E+01_JPRB,5.1781E+01_JPRB/)  
+KBO( :, 4,28,15) = (/&
+ & 1.2390E+02_JPRB,9.3015E+01_JPRB,6.2567E+01_JPRB,4.6514E+01_JPRB,4.9625E+01_JPRB/)  
+KBO( :, 5,28,15) = (/&
+ & 1.4712E+02_JPRB,1.1043E+02_JPRB,7.3749E+01_JPRB,4.8179E+01_JPRB,4.7555E+01_JPRB/)  
+KBO( :, 1,29,15) = (/&
+ & 6.9623E+01_JPRB,5.2320E+01_JPRB,4.3015E+01_JPRB,4.9123E+01_JPRB,5.9729E+01_JPRB/)  
+KBO( :, 2,29,15) = (/&
+ & 8.9447E+01_JPRB,6.7187E+01_JPRB,4.9134E+01_JPRB,4.8482E+01_JPRB,5.7058E+01_JPRB/)  
+KBO( :, 3,29,15) = (/&
+ & 1.1112E+02_JPRB,8.3443E+01_JPRB,5.7534E+01_JPRB,4.8630E+01_JPRB,5.4527E+01_JPRB/)  
+KBO( :, 4,29,15) = (/&
+ & 1.3428E+02_JPRB,1.0081E+02_JPRB,6.7748E+01_JPRB,4.9484E+01_JPRB,5.2105E+01_JPRB/)  
+KBO( :, 5,29,15) = (/&
+ & 1.5845E+02_JPRB,1.1893E+02_JPRB,7.9425E+01_JPRB,5.1210E+01_JPRB,4.9788E+01_JPRB/)  
+KBO( :, 1,30,15) = (/&
+ & 7.6956E+01_JPRB,5.7823E+01_JPRB,4.6660E+01_JPRB,5.1758E+01_JPRB,6.2685E+01_JPRB/)  
+KBO( :, 2,30,15) = (/&
+ & 9.7902E+01_JPRB,7.3533E+01_JPRB,5.3332E+01_JPRB,5.1164E+01_JPRB,5.9706E+01_JPRB/)  
+KBO( :, 3,30,15) = (/&
+ & 1.2067E+02_JPRB,9.0610E+01_JPRB,6.2274E+01_JPRB,5.1339E+01_JPRB,5.6887E+01_JPRB/)  
+KBO( :, 4,30,15) = (/&
+ & 1.4481E+02_JPRB,1.0871E+02_JPRB,7.2976E+01_JPRB,5.2237E+01_JPRB,5.4217E+01_JPRB/)  
+KBO( :, 5,30,15) = (/&
+ & 1.6975E+02_JPRB,1.2741E+02_JPRB,8.5081E+01_JPRB,5.4027E+01_JPRB,5.1685E+01_JPRB/)  
+KBO( :, 1,31,15) = (/&
+ & 8.4668E+01_JPRB,6.3613E+01_JPRB,5.0308E+01_JPRB,5.4125E+01_JPRB,6.5163E+01_JPRB/)  
+KBO( :, 2,31,15) = (/&
+ & 1.0670E+02_JPRB,8.0139E+01_JPRB,5.7571E+01_JPRB,5.3567E+01_JPRB,6.1881E+01_JPRB/)  
+KBO( :, 3,31,15) = (/&
+ & 1.3043E+02_JPRB,9.7932E+01_JPRB,6.7030E+01_JPRB,5.3784E+01_JPRB,5.8816E+01_JPRB/)  
+KBO( :, 4,31,15) = (/&
+ & 1.5531E+02_JPRB,1.1659E+02_JPRB,7.8195E+01_JPRB,5.4732E+01_JPRB,5.5925E+01_JPRB/)  
+KBO( :, 5,31,15) = (/&
+ & 1.8083E+02_JPRB,1.3573E+02_JPRB,9.0627E+01_JPRB,5.6617E+01_JPRB,5.3201E+01_JPRB/)  
+KBO( :, 1,32,15) = (/&
+ & 9.2652E+01_JPRB,6.9602E+01_JPRB,5.3950E+01_JPRB,5.6194E+01_JPRB,6.7147E+01_JPRB/)  
+KBO( :, 2,32,15) = (/&
+ & 1.1562E+02_JPRB,8.6827E+01_JPRB,6.1761E+01_JPRB,5.5696E+01_JPRB,6.3605E+01_JPRB/)  
+KBO( :, 3,32,15) = (/&
+ & 1.4016E+02_JPRB,1.0523E+02_JPRB,7.1723E+01_JPRB,5.5956E+01_JPRB,6.0313E+01_JPRB/)  
+KBO( :, 4,32,15) = (/&
+ & 1.6571E+02_JPRB,1.2439E+02_JPRB,8.3322E+01_JPRB,5.6967E+01_JPRB,5.7235E+01_JPRB/)  
+KBO( :, 5,32,15) = (/&
+ & 1.9180E+02_JPRB,1.4395E+02_JPRB,9.6112E+01_JPRB,5.9039E+01_JPRB,5.4359E+01_JPRB/)  
+KBO( :, 1,33,15) = (/&
+ & 1.0072E+02_JPRB,7.5656E+01_JPRB,5.7525E+01_JPRB,5.7981E+01_JPRB,6.8650E+01_JPRB/)  
+KBO( :, 2,33,15) = (/&
+ & 1.2455E+02_JPRB,9.3526E+01_JPRB,6.5887E+01_JPRB,5.7530E+01_JPRB,6.4898E+01_JPRB/)  
+KBO( :, 3,33,15) = (/&
+ & 1.4981E+02_JPRB,1.1247E+02_JPRB,7.6362E+01_JPRB,5.7872E+01_JPRB,6.1421E+01_JPRB/)  
+KBO( :, 4,33,15) = (/&
+ & 1.7592E+02_JPRB,1.3205E+02_JPRB,8.8345E+01_JPRB,5.9018E+01_JPRB,5.8197E+01_JPRB/)  
+KBO( :, 5,33,15) = (/&
+ & 2.0244E+02_JPRB,1.5193E+02_JPRB,1.0144E+02_JPRB,6.1255E+01_JPRB,5.5191E+01_JPRB/)  
+KBO( :, 1,34,15) = (/&
+ & 1.0805E+02_JPRB,8.1154E+01_JPRB,6.0752E+01_JPRB,5.9538E+01_JPRB,6.9858E+01_JPRB/)  
+KBO( :, 2,34,15) = (/&
+ & 1.3258E+02_JPRB,9.9553E+01_JPRB,6.9613E+01_JPRB,5.9127E+01_JPRB,6.5932E+01_JPRB/)  
+KBO( :, 3,34,15) = (/&
+ & 1.5841E+02_JPRB,1.1893E+02_JPRB,8.0500E+01_JPRB,5.9515E+01_JPRB,6.2316E+01_JPRB/)  
+KBO( :, 4,34,15) = (/&
+ & 1.8496E+02_JPRB,1.3883E+02_JPRB,9.2804E+01_JPRB,6.0816E+01_JPRB,5.8960E+01_JPRB/)  
+KBO( :, 5,34,15) = (/&
+ & 2.1175E+02_JPRB,1.5892E+02_JPRB,1.0610E+02_JPRB,6.3176E+01_JPRB,5.5844E+01_JPRB/)  
+KBO( :, 1,35,15) = (/&
+ & 1.1294E+02_JPRB,8.4826E+01_JPRB,6.3098E+01_JPRB,6.0919E+01_JPRB,7.1099E+01_JPRB/)  
+KBO( :, 2,35,15) = (/&
+ & 1.3798E+02_JPRB,1.0360E+02_JPRB,7.2230E+01_JPRB,6.0487E+01_JPRB,6.7012E+01_JPRB/)  
+KBO( :, 3,35,15) = (/&
+ & 1.6418E+02_JPRB,1.2325E+02_JPRB,8.3338E+01_JPRB,6.0862E+01_JPRB,6.3251E+01_JPRB/)  
+KBO( :, 4,35,15) = (/&
+ & 1.9102E+02_JPRB,1.4338E+02_JPRB,9.5820E+01_JPRB,6.2223E+01_JPRB,5.9778E+01_JPRB/)  
+KBO( :, 5,35,15) = (/&
+ & 2.1806E+02_JPRB,1.6365E+02_JPRB,1.0925E+02_JPRB,6.4647E+01_JPRB,5.6557E+01_JPRB/)  
+KBO( :, 1,36,15) = (/&
+ & 1.1497E+02_JPRB,8.6347E+01_JPRB,6.4397E+01_JPRB,6.2153E+01_JPRB,7.2517E+01_JPRB/)  
+KBO( :, 2,36,15) = (/&
+ & 1.4029E+02_JPRB,1.0534E+02_JPRB,7.3555E+01_JPRB,6.1644E+01_JPRB,6.8256E+01_JPRB/)  
+KBO( :, 3,36,15) = (/&
+ & 1.6674E+02_JPRB,1.2517E+02_JPRB,8.4714E+01_JPRB,6.1952E+01_JPRB,6.4357E+01_JPRB/)  
+KBO( :, 4,36,15) = (/&
+ & 1.9381E+02_JPRB,1.4548E+02_JPRB,9.7239E+01_JPRB,6.3251E+01_JPRB,6.0757E+01_JPRB/)  
+KBO( :, 5,36,15) = (/&
+ & 2.2104E+02_JPRB,1.6589E+02_JPRB,1.1075E+02_JPRB,6.5650E+01_JPRB,5.7519E+01_JPRB/)  
+KBO( :, 1,37,15) = (/&
+ & 1.1301E+02_JPRB,8.4880E+01_JPRB,6.4331E+01_JPRB,6.3346E+01_JPRB,7.4417E+01_JPRB/)  
+KBO( :, 2,37,15) = (/&
+ & 1.3839E+02_JPRB,1.0391E+02_JPRB,7.3187E+01_JPRB,6.2656E+01_JPRB,6.9936E+01_JPRB/)  
+KBO( :, 3,37,15) = (/&
+ & 1.6490E+02_JPRB,1.2380E+02_JPRB,8.4124E+01_JPRB,6.2789E+01_JPRB,6.5851E+01_JPRB/)  
+KBO( :, 4,37,15) = (/&
+ & 1.9210E+02_JPRB,1.4420E+02_JPRB,9.6503E+01_JPRB,6.3870E+01_JPRB,6.2117E+01_JPRB/)  
+KBO( :, 5,37,15) = (/&
+ & 2.1953E+02_JPRB,1.6476E+02_JPRB,1.1000E+02_JPRB,6.6083E+01_JPRB,5.8820E+01_JPRB/)  
+KBO( :, 1,38,15) = (/&
+ & 1.1060E+02_JPRB,8.3078E+01_JPRB,6.4103E+01_JPRB,6.4426E+01_JPRB,7.6201E+01_JPRB/)  
+KBO( :, 2,38,15) = (/&
+ & 1.3599E+02_JPRB,1.0211E+02_JPRB,7.2632E+01_JPRB,6.3555E+01_JPRB,7.1515E+01_JPRB/)  
+KBO( :, 3,38,15) = (/&
+ & 1.6253E+02_JPRB,1.2202E+02_JPRB,8.3307E+01_JPRB,6.3503E+01_JPRB,6.7259E+01_JPRB/)  
+KBO( :, 4,38,15) = (/&
+ & 1.8982E+02_JPRB,1.4248E+02_JPRB,9.5509E+01_JPRB,6.4372E+01_JPRB,6.3412E+01_JPRB/)  
+KBO( :, 5,38,15) = (/&
+ & 2.1740E+02_JPRB,1.6316E+02_JPRB,1.0894E+02_JPRB,6.6382E+01_JPRB,6.0081E+01_JPRB/)  
+KBO( :, 1,39,15) = (/&
+ & 1.0803E+02_JPRB,8.1144E+01_JPRB,6.3771E+01_JPRB,6.5414E+01_JPRB,7.7868E+01_JPRB/)  
+KBO( :, 2,39,15) = (/&
+ & 1.3337E+02_JPRB,1.0015E+02_JPRB,7.1982E+01_JPRB,6.4350E+01_JPRB,7.2975E+01_JPRB/)  
+KBO( :, 3,39,15) = (/&
+ & 1.5993E+02_JPRB,1.2007E+02_JPRB,8.2398E+01_JPRB,6.4114E+01_JPRB,6.8560E+01_JPRB/)  
+KBO( :, 4,39,15) = (/&
+ & 1.8726E+02_JPRB,1.4057E+02_JPRB,9.4413E+01_JPRB,6.4795E+01_JPRB,6.4662E+01_JPRB/)  
+KBO( :, 5,39,15) = (/&
+ & 2.1494E+02_JPRB,1.6132E+02_JPRB,1.0771E+02_JPRB,6.6595E+01_JPRB,6.1311E+01_JPRB/)  
+KBO( :, 1,40,15) = (/&
+ & 1.0282E+02_JPRB,7.7288E+01_JPRB,6.2719E+01_JPRB,6.6497E+01_JPRB,7.9980E+01_JPRB/)  
+KBO( :, 2,40,15) = (/&
+ & 1.2788E+02_JPRB,9.6038E+01_JPRB,7.0327E+01_JPRB,6.5135E+01_JPRB,7.4834E+01_JPRB/)  
+KBO( :, 3,40,15) = (/&
+ & 1.5434E+02_JPRB,1.1588E+02_JPRB,8.0252E+01_JPRB,6.4644E+01_JPRB,7.0224E+01_JPRB/)  
+KBO( :, 4,40,15) = (/&
+ & 1.8163E+02_JPRB,1.3634E+02_JPRB,9.1957E+01_JPRB,6.5051E+01_JPRB,6.6166E+01_JPRB/)  
+KBO( :, 5,40,15) = (/&
+ & 2.0939E+02_JPRB,1.5716E+02_JPRB,1.0497E+02_JPRB,6.6532E+01_JPRB,6.2695E+01_JPRB/)  
+KBO( :, 1,41,15) = (/&
+ & 9.7246E+01_JPRB,7.3264E+01_JPRB,6.1654E+01_JPRB,6.7606E+01_JPRB,8.2110E+01_JPRB/)  
+KBO( :, 2,41,15) = (/&
+ & 1.2196E+02_JPRB,9.1598E+01_JPRB,6.8639E+01_JPRB,6.5918E+01_JPRB,7.6715E+01_JPRB/)  
+KBO( :, 3,41,15) = (/&
+ & 1.4825E+02_JPRB,1.1131E+02_JPRB,7.7976E+01_JPRB,6.5166E+01_JPRB,7.1898E+01_JPRB/)  
+KBO( :, 4,41,15) = (/&
+ & 1.7546E+02_JPRB,1.3172E+02_JPRB,8.9341E+01_JPRB,6.5294E+01_JPRB,6.7663E+01_JPRB/)  
+KBO( :, 5,41,15) = (/&
+ & 2.0319E+02_JPRB,1.5251E+02_JPRB,1.0200E+02_JPRB,6.6466E+01_JPRB,6.4089E+01_JPRB/)  
+KBO( :, 1,42,15) = (/&
+ & 9.1646E+01_JPRB,6.9319E+01_JPRB,6.0662E+01_JPRB,6.8736E+01_JPRB,8.4225E+01_JPRB/)  
+KBO( :, 2,42,15) = (/&
+ & 1.1599E+02_JPRB,8.7117E+01_JPRB,6.7035E+01_JPRB,6.6694E+01_JPRB,7.8581E+01_JPRB/)  
+KBO( :, 3,42,15) = (/&
+ & 1.4201E+02_JPRB,1.0663E+02_JPRB,7.5772E+01_JPRB,6.5694E+01_JPRB,7.3551E+01_JPRB/)  
+KBO( :, 4,42,15) = (/&
+ & 1.6913E+02_JPRB,1.2698E+02_JPRB,8.6698E+01_JPRB,6.5537E+01_JPRB,6.9143E+01_JPRB/)  
+KBO( :, 5,42,15) = (/&
+ & 1.9682E+02_JPRB,1.4774E+02_JPRB,9.9046E+01_JPRB,6.6404E+01_JPRB,6.5463E+01_JPRB/)  
+KBO( :, 1,43,15) = (/&
+ & 8.4789E+01_JPRB,6.4636E+01_JPRB,5.9566E+01_JPRB,7.0099E+01_JPRB,8.6671E+01_JPRB/)  
+KBO( :, 2,43,15) = (/&
+ & 1.0857E+02_JPRB,8.1571E+01_JPRB,6.5097E+01_JPRB,6.7581E+01_JPRB,8.0749E+01_JPRB/)  
+KBO( :, 3,43,15) = (/&
+ & 1.3420E+02_JPRB,1.0078E+02_JPRB,7.3112E+01_JPRB,6.6245E+01_JPRB,7.5464E+01_JPRB/)  
+KBO( :, 4,43,15) = (/&
+ & 1.6112E+02_JPRB,1.2096E+02_JPRB,8.3408E+01_JPRB,6.5806E+01_JPRB,7.0849E+01_JPRB/)  
+KBO( :, 5,43,15) = (/&
+ & 1.8873E+02_JPRB,1.4167E+02_JPRB,9.5382E+01_JPRB,6.6299E+01_JPRB,6.7006E+01_JPRB/)  
+KBO( :, 1,44,15) = (/&
+ & 7.7526E+01_JPRB,5.9880E+01_JPRB,5.8674E+01_JPRB,7.1657E+01_JPRB,8.9332E+01_JPRB/)  
+KBO( :, 2,44,15) = (/&
+ & 1.0062E+02_JPRB,7.5764E+01_JPRB,6.3217E+01_JPRB,6.8595E+01_JPRB,8.3089E+01_JPRB/)  
+KBO( :, 3,44,15) = (/&
+ & 1.2573E+02_JPRB,9.4425E+01_JPRB,7.0405E+01_JPRB,6.6884E+01_JPRB,7.7528E+01_JPRB/)  
+KBO( :, 4,44,15) = (/&
+ & 1.5235E+02_JPRB,1.1439E+02_JPRB,7.9935E+01_JPRB,6.6125E+01_JPRB,7.2672E+01_JPRB/)  
+KBO( :, 5,44,15) = (/&
+ & 1.7985E+02_JPRB,1.3501E+02_JPRB,9.1481E+01_JPRB,6.6264E+01_JPRB,6.8668E+01_JPRB/)  
+KBO( :, 1,45,15) = (/&
+ & 7.0491E+01_JPRB,5.5510E+01_JPRB,5.8020E+01_JPRB,7.3319E+01_JPRB,9.2047E+01_JPRB/)  
+KBO( :, 2,45,15) = (/&
+ & 9.2796E+01_JPRB,7.0229E+01_JPRB,6.1583E+01_JPRB,6.9737E+01_JPRB,8.5464E+01_JPRB/)  
+KBO( :, 3,45,15) = (/&
+ & 1.1733E+02_JPRB,8.8127E+01_JPRB,6.7937E+01_JPRB,6.7594E+01_JPRB,7.9635E+01_JPRB/)  
+KBO( :, 4,45,15) = (/&
+ & 1.4359E+02_JPRB,1.0781E+02_JPRB,7.6707E+01_JPRB,6.6524E+01_JPRB,7.4535E+01_JPRB/)  
+KBO( :, 5,45,15) = (/&
+ & 1.7088E+02_JPRB,1.2829E+02_JPRB,8.7650E+01_JPRB,6.6303E+01_JPRB,7.0370E+01_JPRB/)  
+KBO( :, 1,46,15) = (/&
+ & 6.3285E+01_JPRB,5.1283E+01_JPRB,5.7489E+01_JPRB,7.5126E+01_JPRB,9.5002E+01_JPRB/)  
+KBO( :, 2,46,15) = (/&
+ & 8.4647E+01_JPRB,6.4675E+01_JPRB,6.0155E+01_JPRB,7.1107E+01_JPRB,8.8042E+01_JPRB/)  
+KBO( :, 3,46,15) = (/&
+ & 1.0850E+02_JPRB,8.1543E+01_JPRB,6.5540E+01_JPRB,6.8434E+01_JPRB,8.1933E+01_JPRB/)  
+KBO( :, 4,46,15) = (/&
+ & 1.3425E+02_JPRB,1.0081E+02_JPRB,7.3459E+01_JPRB,6.6985E+01_JPRB,7.6545E+01_JPRB/)  
+KBO( :, 5,46,15) = (/&
+ & 1.6128E+02_JPRB,1.2109E+02_JPRB,8.3670E+01_JPRB,6.6464E+01_JPRB,7.2233E+01_JPRB/)  
+KBO( :, 1,47,15) = (/&
+ & 5.5631E+01_JPRB,4.7112E+01_JPRB,5.7366E+01_JPRB,7.7250E+01_JPRB,9.8390E+01_JPRB/)  
+KBO( :, 2,47,15) = (/&
+ & 7.5847E+01_JPRB,5.8961E+01_JPRB,5.9001E+01_JPRB,7.2829E+01_JPRB,9.1005E+01_JPRB/)  
+KBO( :, 3,47,15) = (/&
+ & 9.8817E+01_JPRB,7.4522E+01_JPRB,6.3205E+01_JPRB,6.9511E+01_JPRB,8.4535E+01_JPRB/)  
+KBO( :, 4,47,15) = (/&
+ & 1.2390E+02_JPRB,9.3053E+01_JPRB,7.0147E+01_JPRB,6.7616E+01_JPRB,7.8824E+01_JPRB/)  
+KBO( :, 5,47,15) = (/&
+ & 1.5053E+02_JPRB,1.1302E+02_JPRB,7.9443E+01_JPRB,6.6722E+01_JPRB,7.4271E+01_JPRB/)  
+KBO( :, 1,48,15) = (/&
+ & 4.8436E+01_JPRB,4.3553E+01_JPRB,5.7561E+01_JPRB,7.9397E+01_JPRB,1.0193E+02_JPRB/)  
+KBO( :, 2,48,15) = (/&
+ & 6.7454E+01_JPRB,5.3825E+01_JPRB,5.8172E+01_JPRB,7.4675E+01_JPRB,9.4102E+01_JPRB/)  
+KBO( :, 3,48,15) = (/&
+ & 8.9409E+01_JPRB,6.7955E+01_JPRB,6.1273E+01_JPRB,7.0816E+01_JPRB,8.7238E+01_JPRB/)  
+KBO( :, 4,48,15) = (/&
+ & 1.1374E+02_JPRB,8.5433E+01_JPRB,6.7178E+01_JPRB,6.8391E+01_JPRB,8.1214E+01_JPRB/)  
+KBO( :, 5,48,15) = (/&
+ & 1.3983E+02_JPRB,1.0500E+02_JPRB,7.5561E+01_JPRB,6.7098E+01_JPRB,7.6443E+01_JPRB/)  
+KBO( :, 1,49,15) = (/&
+ & 4.1740E+01_JPRB,4.0612E+01_JPRB,5.8201E+01_JPRB,8.1772E+01_JPRB,1.0563E+02_JPRB/)  
+KBO( :, 2,49,15) = (/&
+ & 5.9508E+01_JPRB,4.9323E+01_JPRB,5.7719E+01_JPRB,7.6675E+01_JPRB,9.7333E+01_JPRB/)  
+KBO( :, 3,49,15) = (/&
+ & 8.0351E+01_JPRB,6.1919E+01_JPRB,5.9828E+01_JPRB,7.2362E+01_JPRB,9.0062E+01_JPRB/)  
+KBO( :, 4,49,15) = (/&
+ & 1.0383E+02_JPRB,7.8144E+01_JPRB,6.4592E+01_JPRB,6.9309E+01_JPRB,8.3761E+01_JPRB/)  
+KBO( :, 5,49,15) = (/&
+ & 1.2931E+02_JPRB,9.7110E+01_JPRB,7.1998E+01_JPRB,6.7617E+01_JPRB,7.8823E+01_JPRB/)  
+KBO( :, 1,50,15) = (/&
+ & 3.5934E+01_JPRB,3.8439E+01_JPRB,5.9112E+01_JPRB,8.4116E+01_JPRB,1.0931E+02_JPRB/)  
+KBO( :, 2,50,15) = (/&
+ & 5.2489E+01_JPRB,4.5633E+01_JPRB,5.7703E+01_JPRB,7.8607E+01_JPRB,1.0052E+02_JPRB/)  
+KBO( :, 3,50,15) = (/&
+ & 7.2228E+01_JPRB,5.6786E+01_JPRB,5.8886E+01_JPRB,7.4022E+01_JPRB,9.2854E+01_JPRB/)  
+KBO( :, 4,50,15) = (/&
+ & 9.4805E+01_JPRB,7.1728E+01_JPRB,6.2540E+01_JPRB,7.0379E+01_JPRB,8.6215E+01_JPRB/)  
+KBO( :, 5,50,15) = (/&
+ & 1.1961E+02_JPRB,8.9835E+01_JPRB,6.9015E+01_JPRB,6.8227E+01_JPRB,8.1035E+01_JPRB/)  
+KBO( :, 1,51,15) = (/&
+ & 3.0771E+01_JPRB,3.7000E+01_JPRB,6.0264E+01_JPRB,8.6506E+01_JPRB,1.1308E+02_JPRB/)  
+KBO( :, 2,51,15) = (/&
+ & 4.6091E+01_JPRB,4.2604E+01_JPRB,5.8016E+01_JPRB,8.0604E+01_JPRB,1.0374E+02_JPRB/)  
+KBO( :, 3,51,15) = (/&
+ & 6.4712E+01_JPRB,5.2306E+01_JPRB,5.8175E+01_JPRB,7.5702E+01_JPRB,9.5668E+01_JPRB/)  
+KBO( :, 4,51,15) = (/&
+ & 8.6318E+01_JPRB,6.5907E+01_JPRB,6.0924E+01_JPRB,7.1626E+01_JPRB,8.8689E+01_JPRB/)  
+KBO( :, 5,51,15) = (/&
+ & 1.1042E+02_JPRB,8.2968E+01_JPRB,6.6417E+01_JPRB,6.8953E+01_JPRB,8.3187E+01_JPRB/)  
+KBO( :, 1,52,15) = (/&
+ & 2.6073E+01_JPRB,3.6045E+01_JPRB,6.1822E+01_JPRB,8.9117E+01_JPRB,1.1704E+02_JPRB/)  
+KBO( :, 2,52,15) = (/&
+ & 4.0129E+01_JPRB,4.0074E+01_JPRB,5.8683E+01_JPRB,8.2788E+01_JPRB,1.0713E+02_JPRB/)  
+KBO( :, 3,52,15) = (/&
+ & 5.7599E+01_JPRB,4.8365E+01_JPRB,5.7911E+01_JPRB,7.7538E+01_JPRB,9.8609E+01_JPRB/)  
+KBO( :, 4,52,15) = (/&
+ & 7.8172E+01_JPRB,6.0565E+01_JPRB,5.9728E+01_JPRB,7.3072E+01_JPRB,9.1293E+01_JPRB/)  
+KBO( :, 5,52,15) = (/&
+ & 1.0144E+02_JPRB,7.6446E+01_JPRB,6.4164E+01_JPRB,6.9820E+01_JPRB,8.5483E+01_JPRB/)  
+KBO( :, 1,53,15) = (/&
+ & 2.1825E+01_JPRB,3.5431E+01_JPRB,6.3525E+01_JPRB,9.1916E+01_JPRB,1.2120E+02_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART35',1,ZHOOK_HANDLE)
+END SUBROUTINE PART35
+
+
+SUBROUTINE PART36
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART36',0,ZHOOK_HANDLE)
+
+
+KBO( :, 2,53,15) = (/&
+ & 3.4602E+01_JPRB,3.8125E+01_JPRB,5.9600E+01_JPRB,8.5050E+01_JPRB,1.1069E+02_JPRB/)  
+KBO( :, 3,53,15) = (/&
+ & 5.0871E+01_JPRB,4.4917E+01_JPRB,5.7933E+01_JPRB,7.9373E+01_JPRB,1.0169E+02_JPRB/)  
+KBO( :, 4,53,15) = (/&
+ & 7.0355E+01_JPRB,5.5689E+01_JPRB,5.8850E+01_JPRB,7.4670E+01_JPRB,9.4071E+01_JPRB/)  
+KBO( :, 5,53,15) = (/&
+ & 9.2711E+01_JPRB,7.0293E+01_JPRB,6.2235E+01_JPRB,7.0877E+01_JPRB,8.7997E+01_JPRB/)  
+KBO( :, 1,54,15) = (/&
+ & 1.8337E+01_JPRB,3.5294E+01_JPRB,6.5103E+01_JPRB,9.4568E+01_JPRB,1.2522E+02_JPRB/)  
+KBO( :, 2,54,15) = (/&
+ & 2.9950E+01_JPRB,3.6915E+01_JPRB,6.0716E+01_JPRB,8.7228E+01_JPRB,1.1414E+02_JPRB/)  
+KBO( :, 3,54,15) = (/&
+ & 4.5070E+01_JPRB,4.2223E+01_JPRB,5.8276E+01_JPRB,8.1216E+01_JPRB,1.0463E+02_JPRB/)  
+KBO( :, 4,54,15) = (/&
+ & 6.3520E+01_JPRB,5.1682E+01_JPRB,5.8241E+01_JPRB,7.6218E+01_JPRB,9.6556E+01_JPRB/)  
+KBO( :, 5,54,15) = (/&
+ & 8.4973E+01_JPRB,6.5035E+01_JPRB,6.0814E+01_JPRB,7.2031E+01_JPRB,8.9905E+01_JPRB/)  
+KBO( :, 1,55,15) = (/&
+ & 1.5337E+01_JPRB,3.5484E+01_JPRB,6.6783E+01_JPRB,9.7340E+01_JPRB,1.2928E+02_JPRB/)  
+KBO( :, 2,55,15) = (/&
+ & 2.5852E+01_JPRB,3.6097E+01_JPRB,6.2097E+01_JPRB,8.9537E+01_JPRB,1.1762E+02_JPRB/)  
+KBO( :, 3,55,15) = (/&
+ & 3.9852E+01_JPRB,4.0035E+01_JPRB,5.8876E+01_JPRB,8.3127E+01_JPRB,1.0760E+02_JPRB/)  
+KBO( :, 4,55,15) = (/&
+ & 5.7277E+01_JPRB,4.8243E+01_JPRB,5.8037E+01_JPRB,7.7828E+01_JPRB,9.9021E+01_JPRB/)  
+KBO( :, 5,55,15) = (/&
+ & 7.7821E+01_JPRB,6.0372E+01_JPRB,5.9798E+01_JPRB,7.3320E+01_JPRB,9.1766E+01_JPRB/)  
+KBO( :, 1,56,15) = (/&
+ & 1.2678E+01_JPRB,3.5873E+01_JPRB,6.8551E+01_JPRB,1.0034E+02_JPRB,1.3352E+02_JPRB/)  
+KBO( :, 2,56,15) = (/&
+ & 2.2123E+01_JPRB,3.5552E+01_JPRB,6.3571E+01_JPRB,9.1965E+01_JPRB,1.2124E+02_JPRB/)  
+KBO( :, 3,56,15) = (/&
+ & 3.5001E+01_JPRB,3.8317E+01_JPRB,5.9669E+01_JPRB,8.5094E+01_JPRB,1.1071E+02_JPRB/)  
+KBO( :, 4,56,15) = (/&
+ & 5.1365E+01_JPRB,4.5210E+01_JPRB,5.8041E+01_JPRB,7.9413E+01_JPRB,1.0170E+02_JPRB/)  
+KBO( :, 5,56,15) = (/&
+ & 7.0946E+01_JPRB,5.6077E+01_JPRB,5.9007E+01_JPRB,7.4694E+01_JPRB,9.3909E+01_JPRB/)  
+KBO( :, 1,57,15) = (/&
+ & 1.0339E+01_JPRB,3.6549E+01_JPRB,7.0411E+01_JPRB,1.0357E+02_JPRB,1.3800E+02_JPRB/)  
+KBO( :, 2,57,15) = (/&
+ & 1.8742E+01_JPRB,3.5363E+01_JPRB,6.5053E+01_JPRB,9.4457E+01_JPRB,1.2502E+02_JPRB/)  
+KBO( :, 3,57,15) = (/&
+ & 3.0504E+01_JPRB,3.7104E+01_JPRB,6.0681E+01_JPRB,8.7139E+01_JPRB,1.1395E+02_JPRB/)  
+KBO( :, 4,57,15) = (/&
+ & 4.5773E+01_JPRB,4.2584E+01_JPRB,5.8331E+01_JPRB,8.1143E+01_JPRB,1.0448E+02_JPRB/)  
+KBO( :, 5,57,15) = (/&
+ & 6.4363E+01_JPRB,5.2190E+01_JPRB,5.8389E+01_JPRB,7.6157E+01_JPRB,9.6302E+01_JPRB/)  
+KBO( :, 1,58,15) = (/&
+ & 8.4072E+00_JPRB,3.7388E+01_JPRB,7.2338E+01_JPRB,1.0684E+02_JPRB,1.4246E+02_JPRB/)  
+KBO( :, 2,58,15) = (/&
+ & 1.5855E+01_JPRB,3.5502E+01_JPRB,6.6608E+01_JPRB,9.7023E+01_JPRB,1.2881E+02_JPRB/)  
+KBO( :, 3,58,15) = (/&
+ & 2.6572E+01_JPRB,3.6289E+01_JPRB,6.1949E+01_JPRB,8.9266E+01_JPRB,1.1719E+02_JPRB/)  
+KBO( :, 4,58,15) = (/&
+ & 4.0779E+01_JPRB,4.0444E+01_JPRB,5.8844E+01_JPRB,8.2917E+01_JPRB,1.0723E+02_JPRB/)  
+KBO( :, 5,58,15) = (/&
+ & 5.8404E+01_JPRB,4.8880E+01_JPRB,5.8134E+01_JPRB,7.7647E+01_JPRB,9.8698E+01_JPRB/)  
+KBO( :, 1,59,15) = (/&
+ & 7.7095E+00_JPRB,3.7763E+01_JPRB,7.3160E+01_JPRB,1.0825E+02_JPRB,1.4434E+02_JPRB/)  
+KBO( :, 2,59,15) = (/&
+ & 1.4785E+01_JPRB,3.5623E+01_JPRB,6.7273E+01_JPRB,9.8137E+01_JPRB,1.3040E+02_JPRB/)  
+KBO( :, 3,59,15) = (/&
+ & 2.5092E+01_JPRB,3.6030E+01_JPRB,6.2505E+01_JPRB,9.0193E+01_JPRB,1.1856E+02_JPRB/)  
+KBO( :, 4,59,15) = (/&
+ & 3.8875E+01_JPRB,3.9709E+01_JPRB,5.9122E+01_JPRB,8.3653E+01_JPRB,1.0840E+02_JPRB/)  
+KBO( :, 5,59,15) = (/&
+ & 5.6102E+01_JPRB,4.7649E+01_JPRB,5.8109E+01_JPRB,7.8262E+01_JPRB,9.9705E+01_JPRB/)  
+KBO( :, 1,13,16) = (/&
+ & 3.2263E+01_JPRB,2.4210E+01_JPRB,1.6158E+01_JPRB,8.6472E+00_JPRB,1.1361E+01_JPRB/)  
+KBO( :, 2,13,16) = (/&
+ & 4.5174E+01_JPRB,3.3894E+01_JPRB,2.2614E+01_JPRB,1.1334E+01_JPRB,1.0965E+01_JPRB/)  
+KBO( :, 3,13,16) = (/&
+ & 6.0029E+01_JPRB,4.5035E+01_JPRB,3.0042E+01_JPRB,1.5048E+01_JPRB,1.0696E+01_JPRB/)  
+KBO( :, 4,13,16) = (/&
+ & 7.6465E+01_JPRB,5.7362E+01_JPRB,3.8260E+01_JPRB,1.9157E+01_JPRB,1.0564E+01_JPRB/)  
+KBO( :, 5,13,16) = (/&
+ & 9.4073E+01_JPRB,7.0568E+01_JPRB,4.7064E+01_JPRB,2.3559E+01_JPRB,1.0648E+01_JPRB/)  
+KBO( :, 1,14,16) = (/&
+ & 3.9418E+01_JPRB,2.9575E+01_JPRB,1.9732E+01_JPRB,1.0271E+01_JPRB,1.2990E+01_JPRB/)  
+KBO( :, 2,14,16) = (/&
+ & 5.4735E+01_JPRB,4.1063E+01_JPRB,2.7391E+01_JPRB,1.3719E+01_JPRB,1.2722E+01_JPRB/)  
+KBO( :, 3,14,16) = (/&
+ & 7.2196E+01_JPRB,5.4159E+01_JPRB,3.6122E+01_JPRB,1.8084E+01_JPRB,1.2482E+01_JPRB/)  
+KBO( :, 4,14,16) = (/&
+ & 9.1581E+01_JPRB,6.8699E+01_JPRB,4.5817E+01_JPRB,2.2935E+01_JPRB,1.2482E+01_JPRB/)  
+KBO( :, 5,14,16) = (/&
+ & 1.1260E+02_JPRB,8.4466E+01_JPRB,5.6330E+01_JPRB,2.8194E+01_JPRB,1.2541E+01_JPRB/)  
+KBO( :, 1,15,16) = (/&
+ & 4.7744E+01_JPRB,3.5818E+01_JPRB,2.3892E+01_JPRB,1.2552E+01_JPRB,1.5030E+01_JPRB/)  
+KBO( :, 2,15,16) = (/&
+ & 6.5839E+01_JPRB,4.9390E+01_JPRB,3.2941E+01_JPRB,1.6492E+01_JPRB,1.4777E+01_JPRB/)  
+KBO( :, 3,15,16) = (/&
+ & 8.6769E+01_JPRB,6.5089E+01_JPRB,4.3408E+01_JPRB,2.1728E+01_JPRB,1.4586E+01_JPRB/)  
+KBO( :, 4,15,16) = (/&
+ & 1.1002E+02_JPRB,8.2528E+01_JPRB,5.5036E+01_JPRB,2.7544E+01_JPRB,1.4666E+01_JPRB/)  
+KBO( :, 5,15,16) = (/&
+ & 1.3516E+02_JPRB,1.0139E+02_JPRB,6.7610E+01_JPRB,3.3833E+01_JPRB,1.4702E+01_JPRB/)  
+KBO( :, 1,16,16) = (/&
+ & 5.7645E+01_JPRB,4.3243E+01_JPRB,2.8842E+01_JPRB,1.5267E+01_JPRB,1.7359E+01_JPRB/)  
+KBO( :, 2,16,16) = (/&
+ & 7.9413E+01_JPRB,5.9570E+01_JPRB,3.9727E+01_JPRB,1.9884E+01_JPRB,1.7054E+01_JPRB/)  
+KBO( :, 3,16,16) = (/&
+ & 1.0440E+02_JPRB,7.8314E+01_JPRB,5.2225E+01_JPRB,2.6135E+01_JPRB,1.7041E+01_JPRB/)  
+KBO( :, 4,16,16) = (/&
+ & 1.3208E+02_JPRB,9.9071E+01_JPRB,6.6063E+01_JPRB,3.3056E+01_JPRB,1.7119E+01_JPRB/)  
+KBO( :, 5,16,16) = (/&
+ & 1.6175E+02_JPRB,1.2132E+02_JPRB,8.0899E+01_JPRB,4.0476E+01_JPRB,1.7152E+01_JPRB/)  
+KBO( :, 1,17,16) = (/&
+ & 6.9575E+01_JPRB,5.2190E+01_JPRB,3.4804E+01_JPRB,1.8369E+01_JPRB,1.9921E+01_JPRB/)  
+KBO( :, 2,17,16) = (/&
+ & 9.5428E+01_JPRB,7.1580E+01_JPRB,4.7733E+01_JPRB,2.3885E+01_JPRB,1.9756E+01_JPRB/)  
+KBO( :, 3,17,16) = (/&
+ & 1.2491E+02_JPRB,9.3694E+01_JPRB,6.2476E+01_JPRB,3.1259E+01_JPRB,1.9810E+01_JPRB/)  
+KBO( :, 4,17,16) = (/&
+ & 1.5735E+02_JPRB,1.1802E+02_JPRB,7.8696E+01_JPRB,3.9370E+01_JPRB,1.9895E+01_JPRB/)  
+KBO( :, 5,17,16) = (/&
+ & 1.9186E+02_JPRB,1.4391E+02_JPRB,9.5955E+01_JPRB,4.8001E+01_JPRB,1.9910E+01_JPRB/)  
+KBO( :, 1,18,16) = (/&
+ & 8.3432E+01_JPRB,6.2581E+01_JPRB,4.1731E+01_JPRB,2.1854E+01_JPRB,2.3228E+01_JPRB/)  
+KBO( :, 2,18,16) = (/&
+ & 1.1378E+02_JPRB,8.5346E+01_JPRB,5.6908E+01_JPRB,2.8471E+01_JPRB,2.3168E+01_JPRB/)  
+KBO( :, 3,18,16) = (/&
+ & 1.4807E+02_JPRB,1.1106E+02_JPRB,7.4051E+01_JPRB,3.7043E+01_JPRB,2.3063E+01_JPRB/)  
+KBO( :, 4,18,16) = (/&
+ & 1.8546E+02_JPRB,1.3910E+02_JPRB,9.2747E+01_JPRB,4.6393E+01_JPRB,2.3051E+01_JPRB/)  
+KBO( :, 5,18,16) = (/&
+ & 2.2501E+02_JPRB,1.6877E+02_JPRB,1.1253E+02_JPRB,5.6286E+01_JPRB,2.2993E+01_JPRB/)  
+KBO( :, 1,19,16) = (/&
+ & 9.9057E+01_JPRB,7.4299E+01_JPRB,4.9542E+01_JPRB,2.5942E+01_JPRB,2.7272E+01_JPRB/)  
+KBO( :, 2,19,16) = (/&
+ & 1.3405E+02_JPRB,1.0055E+02_JPRB,6.7042E+01_JPRB,3.3543E+01_JPRB,2.7144E+01_JPRB/)  
+KBO( :, 3,19,16) = (/&
+ & 1.7334E+02_JPRB,1.3002E+02_JPRB,8.6689E+01_JPRB,4.3364E+01_JPRB,2.6916E+01_JPRB/)  
+KBO( :, 4,19,16) = (/&
+ & 2.1641E+02_JPRB,1.6232E+02_JPRB,1.0823E+02_JPRB,5.4140E+01_JPRB,2.6725E+01_JPRB/)  
+KBO( :, 5,19,16) = (/&
+ & 2.6236E+02_JPRB,1.9678E+02_JPRB,1.3121E+02_JPRB,6.5630E+01_JPRB,2.6538E+01_JPRB/)  
+KBO( :, 1,20,16) = (/&
+ & 1.1670E+02_JPRB,8.7534E+01_JPRB,5.8366E+01_JPRB,3.0680E+01_JPRB,3.1959E+01_JPRB/)  
+KBO( :, 2,20,16) = (/&
+ & 1.5709E+02_JPRB,1.1783E+02_JPRB,7.8566E+01_JPRB,3.9305E+01_JPRB,3.1724E+01_JPRB/)  
+KBO( :, 3,20,16) = (/&
+ & 2.0269E+02_JPRB,1.5203E+02_JPRB,1.0137E+02_JPRB,5.0708E+01_JPRB,3.1376E+01_JPRB/)  
+KBO( :, 4,20,16) = (/&
+ & 2.5230E+02_JPRB,1.8924E+02_JPRB,1.2618E+02_JPRB,6.3114E+01_JPRB,3.0984E+01_JPRB/)  
+KBO( :, 5,20,16) = (/&
+ & 3.0479E+02_JPRB,2.2861E+02_JPRB,1.5242E+02_JPRB,7.6237E+01_JPRB,3.0606E+01_JPRB/)  
+KBO( :, 1,21,16) = (/&
+ & 1.3677E+02_JPRB,1.0259E+02_JPRB,6.8408E+01_JPRB,3.5947E+01_JPRB,3.7295E+01_JPRB/)  
+KBO( :, 2,21,16) = (/&
+ & 1.8327E+02_JPRB,1.3746E+02_JPRB,9.1655E+01_JPRB,4.5850E+01_JPRB,3.6923E+01_JPRB/)  
+KBO( :, 3,21,16) = (/&
+ & 2.3530E+02_JPRB,1.7648E+02_JPRB,1.1767E+02_JPRB,5.8860E+01_JPRB,3.6405E+01_JPRB/)  
+KBO( :, 4,21,16) = (/&
+ & 2.9155E+02_JPRB,2.1867E+02_JPRB,1.4580E+02_JPRB,7.2922E+01_JPRB,3.5874E+01_JPRB/)  
+KBO( :, 5,21,16) = (/&
+ & 3.5033E+02_JPRB,2.6276E+02_JPRB,1.7519E+02_JPRB,8.7619E+01_JPRB,3.5270E+01_JPRB/)  
+KBO( :, 1,22,16) = (/&
+ & 1.6233E+02_JPRB,1.2176E+02_JPRB,8.1187E+01_JPRB,4.2657E+01_JPRB,4.3248E+01_JPRB/)  
+KBO( :, 2,22,16) = (/&
+ & 2.1544E+02_JPRB,1.6159E+02_JPRB,1.0774E+02_JPRB,5.3945E+01_JPRB,4.2701E+01_JPRB/)  
+KBO( :, 3,22,16) = (/&
+ & 2.7410E+02_JPRB,2.0559E+02_JPRB,1.3707E+02_JPRB,6.8557E+01_JPRB,4.2119E+01_JPRB/)  
+KBO( :, 4,22,16) = (/&
+ & 3.3685E+02_JPRB,2.5265E+02_JPRB,1.6845E+02_JPRB,8.4248E+01_JPRB,4.1509E+01_JPRB/)  
+KBO( :, 5,22,16) = (/&
+ & 4.0263E+02_JPRB,3.0199E+02_JPRB,2.0134E+02_JPRB,1.0070E+02_JPRB,4.0811E+01_JPRB/)  
+KBO( :, 1,23,16) = (/&
+ & 1.9053E+02_JPRB,1.4291E+02_JPRB,9.5285E+01_JPRB,5.0617E+01_JPRB,5.0337E+01_JPRB/)  
+KBO( :, 2,23,16) = (/&
+ & 2.5017E+02_JPRB,1.8764E+02_JPRB,1.2511E+02_JPRB,6.2998E+01_JPRB,4.9660E+01_JPRB/)  
+KBO( :, 3,23,16) = (/&
+ & 3.1595E+02_JPRB,2.3698E+02_JPRB,1.5800E+02_JPRB,7.9029E+01_JPRB,4.8927E+01_JPRB/)  
+KBO( :, 4,23,16) = (/&
+ & 3.8628E+02_JPRB,2.8972E+02_JPRB,1.9317E+02_JPRB,9.6612E+01_JPRB,4.8034E+01_JPRB/)  
+KBO( :, 5,23,16) = (/&
+ & 4.5926E+02_JPRB,3.4446E+02_JPRB,2.2966E+02_JPRB,1.1486E+02_JPRB,4.7018E+01_JPRB/)  
+KBO( :, 1,24,16) = (/&
+ & 2.2153E+02_JPRB,1.6616E+02_JPRB,1.1079E+02_JPRB,5.9590E+01_JPRB,5.8418E+01_JPRB/)  
+KBO( :, 2,24,16) = (/&
+ & 2.8858E+02_JPRB,2.1645E+02_JPRB,1.4432E+02_JPRB,7.2964E+01_JPRB,5.7353E+01_JPRB/)  
+KBO( :, 3,24,16) = (/&
+ & 3.6176E+02_JPRB,2.7134E+02_JPRB,1.8091E+02_JPRB,9.0484E+01_JPRB,5.6191E+01_JPRB/)  
+KBO( :, 4,24,16) = (/&
+ & 4.3913E+02_JPRB,3.2936E+02_JPRB,2.1959E+02_JPRB,1.0983E+02_JPRB,5.4899E+01_JPRB/)  
+KBO( :, 5,24,16) = (/&
+ & 5.1871E+02_JPRB,3.8905E+02_JPRB,2.5939E+02_JPRB,1.2972E+02_JPRB,5.3493E+01_JPRB/)  
+KBO( :, 1,25,16) = (/&
+ & 2.5592E+02_JPRB,1.9195E+02_JPRB,1.2799E+02_JPRB,6.9505E+01_JPRB,6.6958E+01_JPRB/)  
+KBO( :, 2,25,16) = (/&
+ & 3.3021E+02_JPRB,2.4767E+02_JPRB,1.6513E+02_JPRB,8.3805E+01_JPRB,6.5388E+01_JPRB/)  
+KBO( :, 3,25,16) = (/&
+ & 4.1034E+02_JPRB,3.0777E+02_JPRB,2.0520E+02_JPRB,1.0263E+02_JPRB,6.3684E+01_JPRB/)  
+KBO( :, 4,25,16) = (/&
+ & 4.9407E+02_JPRB,3.7057E+02_JPRB,2.4706E+02_JPRB,1.2356E+02_JPRB,6.1889E+01_JPRB/)  
+KBO( :, 5,25,16) = (/&
+ & 5.7945E+02_JPRB,4.3460E+02_JPRB,2.8975E+02_JPRB,1.4490E+02_JPRB,6.0007E+01_JPRB/)  
+KBO( :, 1,26,16) = (/&
+ & 2.9375E+02_JPRB,2.2033E+02_JPRB,1.4690E+02_JPRB,8.0244E+01_JPRB,7.5657E+01_JPRB/)  
+KBO( :, 2,26,16) = (/&
+ & 3.7482E+02_JPRB,2.8113E+02_JPRB,1.8744E+02_JPRB,9.5627E+01_JPRB,7.3427E+01_JPRB/)  
+KBO( :, 3,26,16) = (/&
+ & 4.6126E+02_JPRB,3.4596E+02_JPRB,2.3065E+02_JPRB,1.1546E+02_JPRB,7.1104E+01_JPRB/)  
+KBO( :, 4,26,16) = (/&
+ & 5.5138E+02_JPRB,4.1354E+02_JPRB,2.7571E+02_JPRB,1.3788E+02_JPRB,6.8732E+01_JPRB/)  
+KBO( :, 5,26,16) = (/&
+ & 6.4282E+02_JPRB,4.8213E+02_JPRB,3.2143E+02_JPRB,1.6074E+02_JPRB,6.6296E+01_JPRB/)  
+KBO( :, 1,27,16) = (/&
+ & 3.3321E+02_JPRB,2.4992E+02_JPRB,1.6663E+02_JPRB,9.1366E+01_JPRB,8.4138E+01_JPRB/)  
+KBO( :, 2,27,16) = (/&
+ & 4.2092E+02_JPRB,3.1570E+02_JPRB,2.1048E+02_JPRB,1.0786E+02_JPRB,8.1216E+01_JPRB/)  
+KBO( :, 3,27,16) = (/&
+ & 5.1399E+02_JPRB,3.8550E+02_JPRB,2.5701E+02_JPRB,1.2862E+02_JPRB,7.8186E+01_JPRB/)  
+KBO( :, 4,27,16) = (/&
+ & 6.0988E+02_JPRB,4.5742E+02_JPRB,3.0496E+02_JPRB,1.5250E+02_JPRB,7.5179E+01_JPRB/)  
+KBO( :, 5,27,16) = (/&
+ & 7.0613E+02_JPRB,5.2960E+02_JPRB,3.5308E+02_JPRB,1.7656E+02_JPRB,7.2191E+01_JPRB/)  
+KBO( :, 1,28,16) = (/&
+ & 3.7433E+02_JPRB,2.8075E+02_JPRB,1.8718E+02_JPRB,1.0259E+02_JPRB,9.2146E+01_JPRB/)  
+KBO( :, 2,28,16) = (/&
+ & 4.6847E+02_JPRB,3.5136E+02_JPRB,2.3425E+02_JPRB,1.2023E+02_JPRB,8.8477E+01_JPRB/)  
+KBO( :, 3,28,16) = (/&
+ & 5.6719E+02_JPRB,4.2540E+02_JPRB,2.8361E+02_JPRB,1.4204E+02_JPRB,8.4711E+01_JPRB/)  
+KBO( :, 4,28,16) = (/&
+ & 6.6805E+02_JPRB,5.0105E+02_JPRB,3.3404E+02_JPRB,1.6704E+02_JPRB,8.1058E+01_JPRB/)  
+KBO( :, 5,28,16) = (/&
+ & 7.6861E+02_JPRB,5.7647E+02_JPRB,3.8432E+02_JPRB,1.9217E+02_JPRB,7.7535E+01_JPRB/)  
+KBO( :, 1,29,16) = (/&
+ & 4.1725E+02_JPRB,3.1294E+02_JPRB,2.0864E+02_JPRB,1.1391E+02_JPRB,9.9444E+01_JPRB/)  
+KBO( :, 2,29,16) = (/&
+ & 5.1701E+02_JPRB,3.8777E+02_JPRB,2.5852E+02_JPRB,1.3257E+02_JPRB,9.4950E+01_JPRB/)  
+KBO( :, 3,29,16) = (/&
+ & 6.2080E+02_JPRB,4.6561E+02_JPRB,3.1041E+02_JPRB,1.5542E+02_JPRB,9.0532E+01_JPRB/)  
+KBO( :, 4,29,16) = (/&
+ & 7.2558E+02_JPRB,5.4419E+02_JPRB,3.6280E+02_JPRB,1.8141E+02_JPRB,8.6254E+01_JPRB/)  
+KBO( :, 5,29,16) = (/&
+ & 8.2901E+02_JPRB,6.2176E+02_JPRB,4.1451E+02_JPRB,2.0727E+02_JPRB,8.2152E+01_JPRB/)  
+KBO( :, 1,30,16) = (/&
+ & 4.6074E+02_JPRB,3.4556E+02_JPRB,2.3038E+02_JPRB,1.2510E+02_JPRB,1.0583E+02_JPRB/)  
+KBO( :, 2,30,16) = (/&
+ & 5.6540E+02_JPRB,4.2406E+02_JPRB,2.8271E+02_JPRB,1.4464E+02_JPRB,1.0057E+02_JPRB/)  
+KBO( :, 3,30,16) = (/&
+ & 6.7286E+02_JPRB,5.0465E+02_JPRB,3.3644E+02_JPRB,1.6852E+02_JPRB,9.5505E+01_JPRB/)  
+KBO( :, 4,30,16) = (/&
+ & 7.8088E+02_JPRB,5.8566E+02_JPRB,3.9045E+02_JPRB,1.9523E+02_JPRB,9.0661E+01_JPRB/)  
+KBO( :, 5,30,16) = (/&
+ & 8.8686E+02_JPRB,6.6515E+02_JPRB,4.4344E+02_JPRB,2.2173E+02_JPRB,8.6036E+01_JPRB/)  
+KBO( :, 1,31,16) = (/&
+ & 5.0472E+02_JPRB,3.7854E+02_JPRB,2.5237E+02_JPRB,1.3614E+02_JPRB,1.1117E+02_JPRB/)  
+KBO( :, 2,31,16) = (/&
+ & 6.1339E+02_JPRB,4.6004E+02_JPRB,3.0670E+02_JPRB,1.5661E+02_JPRB,1.0529E+02_JPRB/)  
+KBO( :, 3,31,16) = (/&
+ & 7.2433E+02_JPRB,5.4325E+02_JPRB,3.6217E+02_JPRB,1.8144E+02_JPRB,9.9591E+01_JPRB/)  
+KBO( :, 4,31,16) = (/&
+ & 8.3504E+02_JPRB,6.2629E+02_JPRB,4.1753E+02_JPRB,2.0877E+02_JPRB,9.4229E+01_JPRB/)  
+KBO( :, 5,31,16) = (/&
+ & 9.4280E+02_JPRB,7.0711E+02_JPRB,4.7141E+02_JPRB,2.3571E+02_JPRB,8.9176E+01_JPRB/)  
+KBO( :, 1,32,16) = (/&
+ & 5.4855E+02_JPRB,4.1142E+02_JPRB,2.7428E+02_JPRB,1.4676E+02_JPRB,1.1548E+02_JPRB/)  
+KBO( :, 2,32,16) = (/&
+ & 6.6091E+02_JPRB,4.9568E+02_JPRB,3.3046E+02_JPRB,1.6826E+02_JPRB,1.0901E+02_JPRB/)  
+KBO( :, 3,32,16) = (/&
+ & 7.7477E+02_JPRB,5.8108E+02_JPRB,3.8739E+02_JPRB,1.9388E+02_JPRB,1.0281E+02_JPRB/)  
+KBO( :, 4,32,16) = (/&
+ & 8.8730E+02_JPRB,6.6548E+02_JPRB,4.4366E+02_JPRB,2.2183E+02_JPRB,9.7004E+01_JPRB/)  
+KBO( :, 5,32,16) = (/&
+ & 9.9594E+02_JPRB,7.4695E+02_JPRB,4.9797E+02_JPRB,2.4899E+02_JPRB,9.1601E+01_JPRB/)  
+KBO( :, 1,33,16) = (/&
+ & 5.9242E+02_JPRB,4.4432E+02_JPRB,2.9622E+02_JPRB,1.5694E+02_JPRB,1.1883E+02_JPRB/)  
+KBO( :, 2,33,16) = (/&
+ & 7.0777E+02_JPRB,5.3083E+02_JPRB,3.5389E+02_JPRB,1.7956E+02_JPRB,1.1183E+02_JPRB/)  
+KBO( :, 3,33,16) = (/&
+ & 8.2358E+02_JPRB,6.1768E+02_JPRB,4.1179E+02_JPRB,2.0591E+02_JPRB,1.0524E+02_JPRB/)  
+KBO( :, 4,33,16) = (/&
+ & 9.3713E+02_JPRB,7.0285E+02_JPRB,4.6857E+02_JPRB,2.3429E+02_JPRB,9.9066E+01_JPRB/)  
+KBO( :, 5,33,16) = (/&
+ & 1.0459E+03_JPRB,7.8446E+02_JPRB,5.2297E+02_JPRB,2.6149E+02_JPRB,9.3354E+01_JPRB/)  
+KBO( :, 1,34,16) = (/&
+ & 6.3153E+02_JPRB,4.7365E+02_JPRB,3.1577E+02_JPRB,1.6595E+02_JPRB,1.2152E+02_JPRB/)  
+KBO( :, 2,34,16) = (/&
+ & 7.4904E+02_JPRB,5.6178E+02_JPRB,3.7452E+02_JPRB,1.8952E+02_JPRB,1.1409E+02_JPRB/)  
+KBO( :, 3,34,16) = (/&
+ & 8.6625E+02_JPRB,6.4969E+02_JPRB,4.3313E+02_JPRB,2.1657E+02_JPRB,1.0714E+02_JPRB/)  
+KBO( :, 4,34,16) = (/&
+ & 9.8045E+02_JPRB,7.3534E+02_JPRB,4.9023E+02_JPRB,2.4512E+02_JPRB,1.0070E+02_JPRB/)  
+KBO( :, 5,34,16) = (/&
+ & 1.0897E+03_JPRB,8.1726E+02_JPRB,5.4484E+02_JPRB,2.7243E+02_JPRB,9.4730E+01_JPRB/)  
+KBO( :, 1,35,16) = (/&
+ & 6.5821E+02_JPRB,4.9366E+02_JPRB,3.2911E+02_JPRB,1.7240E+02_JPRB,1.2419E+02_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART36',1,ZHOOK_HANDLE)
+END SUBROUTINE PART36
+
+
+SUBROUTINE PART37
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART37',0,ZHOOK_HANDLE)
+
+
+KBO( :, 2,35,16) = (/&
+ & 7.7728E+02_JPRB,5.8296E+02_JPRB,3.8864E+02_JPRB,1.9649E+02_JPRB,1.1638E+02_JPRB/)  
+KBO( :, 3,35,16) = (/&
+ & 8.9594E+02_JPRB,6.7196E+02_JPRB,4.4797E+02_JPRB,2.2399E+02_JPRB,1.0909E+02_JPRB/)  
+KBO( :, 4,35,16) = (/&
+ & 1.0109E+03_JPRB,7.5821E+02_JPRB,5.0548E+02_JPRB,2.5274E+02_JPRB,1.0239E+02_JPRB/)  
+KBO( :, 5,35,16) = (/&
+ & 1.1199E+03_JPRB,8.3992E+02_JPRB,5.5995E+02_JPRB,2.7998E+02_JPRB,9.6183E+01_JPRB/)  
+KBO( :, 1,36,16) = (/&
+ & 6.7059E+02_JPRB,5.0294E+02_JPRB,3.3530E+02_JPRB,1.7604E+02_JPRB,1.2715E+02_JPRB/)  
+KBO( :, 2,36,16) = (/&
+ & 7.9094E+02_JPRB,5.9320E+02_JPRB,3.9547E+02_JPRB,2.0012E+02_JPRB,1.1897E+02_JPRB/)  
+KBO( :, 3,36,16) = (/&
+ & 9.1055E+02_JPRB,6.8291E+02_JPRB,4.5528E+02_JPRB,2.2764E+02_JPRB,1.1135E+02_JPRB/)  
+KBO( :, 4,36,16) = (/&
+ & 1.0266E+03_JPRB,7.6996E+02_JPRB,5.1331E+02_JPRB,2.5666E+02_JPRB,1.0436E+02_JPRB/)  
+KBO( :, 5,36,16) = (/&
+ & 1.1363E+03_JPRB,8.5221E+02_JPRB,5.6814E+02_JPRB,2.8407E+02_JPRB,9.7934E+01_JPRB/)  
+KBO( :, 1,37,16) = (/&
+ & 6.6319E+02_JPRB,4.9740E+02_JPRB,3.3160E+02_JPRB,1.7601E+02_JPRB,1.3096E+02_JPRB/)  
+KBO( :, 2,37,16) = (/&
+ & 7.8424E+02_JPRB,5.8818E+02_JPRB,3.9212E+02_JPRB,1.9937E+02_JPRB,1.2236E+02_JPRB/)  
+KBO( :, 3,37,16) = (/&
+ & 9.0524E+02_JPRB,6.7893E+02_JPRB,4.5262E+02_JPRB,2.2635E+02_JPRB,1.1439E+02_JPRB/)  
+KBO( :, 4,37,16) = (/&
+ & 1.0226E+03_JPRB,7.6693E+02_JPRB,5.1129E+02_JPRB,2.5565E+02_JPRB,1.0707E+02_JPRB/)  
+KBO( :, 5,37,16) = (/&
+ & 1.1340E+03_JPRB,8.5053E+02_JPRB,5.6702E+02_JPRB,2.8351E+02_JPRB,1.0033E+02_JPRB/)  
+KBO( :, 1,38,16) = (/&
+ & 6.5328E+02_JPRB,4.8996E+02_JPRB,3.2664E+02_JPRB,1.7551E+02_JPRB,1.3460E+02_JPRB/)  
+KBO( :, 2,38,16) = (/&
+ & 7.7497E+02_JPRB,5.8123E+02_JPRB,3.8749E+02_JPRB,1.9811E+02_JPRB,1.2556E+02_JPRB/)  
+KBO( :, 3,38,16) = (/&
+ & 8.9678E+02_JPRB,6.7259E+02_JPRB,4.4839E+02_JPRB,2.2452E+02_JPRB,1.1726E+02_JPRB/)  
+KBO( :, 4,38,16) = (/&
+ & 1.0156E+03_JPRB,7.6168E+02_JPRB,5.0779E+02_JPRB,2.5390E+02_JPRB,1.0960E+02_JPRB/)  
+KBO( :, 5,38,16) = (/&
+ & 1.1289E+03_JPRB,8.4669E+02_JPRB,5.6446E+02_JPRB,2.8223E+02_JPRB,1.0262E+02_JPRB/)  
+KBO( :, 1,39,16) = (/&
+ & 6.4257E+02_JPRB,4.8193E+02_JPRB,3.2129E+02_JPRB,1.7479E+02_JPRB,1.3792E+02_JPRB/)  
+KBO( :, 2,39,16) = (/&
+ & 7.6414E+02_JPRB,5.7310E+02_JPRB,3.8207E+02_JPRB,1.9654E+02_JPRB,1.2851E+02_JPRB/)  
+KBO( :, 3,39,16) = (/&
+ & 8.8664E+02_JPRB,6.6498E+02_JPRB,4.4332E+02_JPRB,2.2243E+02_JPRB,1.1989E+02_JPRB/)  
+KBO( :, 4,39,16) = (/&
+ & 1.0066E+03_JPRB,7.5495E+02_JPRB,5.0330E+02_JPRB,2.5165E+02_JPRB,1.1192E+02_JPRB/)  
+KBO( :, 5,39,16) = (/&
+ & 1.1211E+03_JPRB,8.4084E+02_JPRB,5.6056E+02_JPRB,2.8028E+02_JPRB,1.0470E+02_JPRB/)  
+KBO( :, 1,40,16) = (/&
+ & 6.1808E+02_JPRB,4.6356E+02_JPRB,3.0904E+02_JPRB,1.7192E+02_JPRB,1.4210E+02_JPRB/)  
+KBO( :, 2,40,16) = (/&
+ & 7.3974E+02_JPRB,5.5481E+02_JPRB,3.6987E+02_JPRB,1.9237E+02_JPRB,1.3221E+02_JPRB/)  
+KBO( :, 3,40,16) = (/&
+ & 8.6274E+02_JPRB,6.4706E+02_JPRB,4.3137E+02_JPRB,2.1745E+02_JPRB,1.2321E+02_JPRB/)  
+KBO( :, 4,40,16) = (/&
+ & 9.8377E+02_JPRB,7.3783E+02_JPRB,4.9189E+02_JPRB,2.4594E+02_JPRB,1.1493E+02_JPRB/)  
+KBO( :, 5,40,16) = (/&
+ & 1.1003E+03_JPRB,8.2526E+02_JPRB,5.5018E+02_JPRB,2.7509E+02_JPRB,1.0740E+02_JPRB/)  
+KBO( :, 1,41,16) = (/&
+ & 5.9120E+02_JPRB,4.4340E+02_JPRB,2.9560E+02_JPRB,1.6877E+02_JPRB,1.4632E+02_JPRB/)  
+KBO( :, 2,41,16) = (/&
+ & 7.1268E+02_JPRB,5.3451E+02_JPRB,3.5634E+02_JPRB,1.8787E+02_JPRB,1.3592E+02_JPRB/)  
+KBO( :, 3,41,16) = (/&
+ & 8.3597E+02_JPRB,6.2698E+02_JPRB,4.1798E+02_JPRB,2.1205E+02_JPRB,1.2655E+02_JPRB/)  
+KBO( :, 4,41,16) = (/&
+ & 9.5842E+02_JPRB,7.1882E+02_JPRB,4.7921E+02_JPRB,2.3967E+02_JPRB,1.1795E+02_JPRB/)  
+KBO( :, 5,41,16) = (/&
+ & 1.0766E+03_JPRB,8.0748E+02_JPRB,5.3832E+02_JPRB,2.6916E+02_JPRB,1.1013E+02_JPRB/)  
+KBO( :, 1,42,16) = (/&
+ & 5.6381E+02_JPRB,4.2287E+02_JPRB,2.8192E+02_JPRB,1.6586E+02_JPRB,1.5054E+02_JPRB/)  
+KBO( :, 2,42,16) = (/&
+ & 6.8496E+02_JPRB,5.1372E+02_JPRB,3.4248E+02_JPRB,1.8375E+02_JPRB,1.3960E+02_JPRB/)  
+KBO( :, 3,42,16) = (/&
+ & 8.0821E+02_JPRB,6.0616E+02_JPRB,4.0411E+02_JPRB,2.0657E+02_JPRB,1.2981E+02_JPRB/)  
+KBO( :, 4,42,16) = (/&
+ & 9.3135E+02_JPRB,6.9851E+02_JPRB,4.6567E+02_JPRB,2.3323E+02_JPRB,1.2093E+02_JPRB/)  
+KBO( :, 5,42,16) = (/&
+ & 1.0512E+03_JPRB,7.8842E+02_JPRB,5.2562E+02_JPRB,2.6281E+02_JPRB,1.1278E+02_JPRB/)  
+KBO( :, 1,43,16) = (/&
+ & 5.2955E+02_JPRB,3.9717E+02_JPRB,2.6480E+02_JPRB,1.6239E+02_JPRB,1.5543E+02_JPRB/)  
+KBO( :, 2,43,16) = (/&
+ & 6.4929E+02_JPRB,4.8697E+02_JPRB,3.2465E+02_JPRB,1.7863E+02_JPRB,1.4384E+02_JPRB/)  
+KBO( :, 3,43,16) = (/&
+ & 7.7272E+02_JPRB,5.7954E+02_JPRB,3.8636E+02_JPRB,1.9990E+02_JPRB,1.3363E+02_JPRB/)  
+KBO( :, 4,43,16) = (/&
+ & 8.9638E+02_JPRB,6.7229E+02_JPRB,4.4819E+02_JPRB,2.2542E+02_JPRB,1.2436E+02_JPRB/)  
+KBO( :, 5,43,16) = (/&
+ & 1.0176E+03_JPRB,7.6322E+02_JPRB,5.0881E+02_JPRB,2.5441E+02_JPRB,1.1585E+02_JPRB/)  
+KBO( :, 1,44,16) = (/&
+ & 4.9226E+02_JPRB,3.6921E+02_JPRB,2.4618E+02_JPRB,1.5919E+02_JPRB,1.6071E+02_JPRB/)  
+KBO( :, 2,44,16) = (/&
+ & 6.1049E+02_JPRB,4.5787E+02_JPRB,3.0525E+02_JPRB,1.7333E+02_JPRB,1.4841E+02_JPRB/)  
+KBO( :, 3,44,16) = (/&
+ & 7.3319E+02_JPRB,5.4989E+02_JPRB,3.6660E+02_JPRB,1.9274E+02_JPRB,1.3765E+02_JPRB/)  
+KBO( :, 4,44,16) = (/&
+ & 8.5738E+02_JPRB,6.4303E+02_JPRB,4.2869E+02_JPRB,2.1719E+02_JPRB,1.2801E+02_JPRB/)  
+KBO( :, 5,44,16) = (/&
+ & 9.7980E+02_JPRB,7.3485E+02_JPRB,4.8990E+02_JPRB,2.4500E+02_JPRB,1.1918E+02_JPRB/)  
+KBO( :, 1,45,16) = (/&
+ & 4.5538E+02_JPRB,3.4155E+02_JPRB,2.2854E+02_JPRB,1.5641E+02_JPRB,1.6609E+02_JPRB/)  
+KBO( :, 2,45,16) = (/&
+ & 5.7191E+02_JPRB,4.2894E+02_JPRB,2.8597E+02_JPRB,1.6860E+02_JPRB,1.5314E+02_JPRB/)  
+KBO( :, 3,45,16) = (/&
+ & 6.9342E+02_JPRB,5.2007E+02_JPRB,3.4671E+02_JPRB,1.8629E+02_JPRB,1.4178E+02_JPRB/)  
+KBO( :, 4,45,16) = (/&
+ & 8.1734E+02_JPRB,6.1301E+02_JPRB,4.0867E+02_JPRB,2.0907E+02_JPRB,1.3172E+02_JPRB/)  
+KBO( :, 5,45,16) = (/&
+ & 9.4113E+02_JPRB,7.0584E+02_JPRB,4.7056E+02_JPRB,2.3576E+02_JPRB,1.2254E+02_JPRB/)  
+KBO( :, 1,46,16) = (/&
+ & 4.1669E+02_JPRB,3.1253E+02_JPRB,2.1183E+02_JPRB,1.5432E+02_JPRB,1.7199E+02_JPRB/)  
+KBO( :, 2,46,16) = (/&
+ & 5.3032E+02_JPRB,3.9775E+02_JPRB,2.6519E+02_JPRB,1.6403E+02_JPRB,1.5825E+02_JPRB/)  
+KBO( :, 3,46,16) = (/&
+ & 6.5084E+02_JPRB,4.8813E+02_JPRB,3.2542E+02_JPRB,1.7998E+02_JPRB,1.4624E+02_JPRB/)  
+KBO( :, 4,46,16) = (/&
+ & 7.7453E+02_JPRB,5.8090E+02_JPRB,3.8727E+02_JPRB,2.0089E+02_JPRB,1.3568E+02_JPRB/)  
+KBO( :, 5,46,16) = (/&
+ & 8.9886E+02_JPRB,6.7414E+02_JPRB,4.4943E+02_JPRB,2.2628E+02_JPRB,1.2618E+02_JPRB/)  
+KBO( :, 1,47,16) = (/&
+ & 3.7428E+02_JPRB,2.8073E+02_JPRB,1.9464E+02_JPRB,1.5283E+02_JPRB,1.7876E+02_JPRB/)  
+KBO( :, 2,47,16) = (/&
+ & 4.8479E+02_JPRB,3.6362E+02_JPRB,2.4253E+02_JPRB,1.5990E+02_JPRB,1.6413E+02_JPRB/)  
+KBO( :, 3,47,16) = (/&
+ & 6.0294E+02_JPRB,4.5221E+02_JPRB,3.0147E+02_JPRB,1.7328E+02_JPRB,1.5134E+02_JPRB/)  
+KBO( :, 4,47,16) = (/&
+ & 7.2591E+02_JPRB,5.4443E+02_JPRB,3.6295E+02_JPRB,1.9215E+02_JPRB,1.4020E+02_JPRB/)  
+KBO( :, 5,47,16) = (/&
+ & 8.5037E+02_JPRB,6.3778E+02_JPRB,4.2518E+02_JPRB,2.1607E+02_JPRB,1.3023E+02_JPRB/)  
+KBO( :, 1,48,16) = (/&
+ & 3.3349E+02_JPRB,2.5014E+02_JPRB,1.7970E+02_JPRB,1.5302E+02_JPRB,1.8591E+02_JPRB/)  
+KBO( :, 2,48,16) = (/&
+ & 4.4002E+02_JPRB,3.3004E+02_JPRB,2.2195E+02_JPRB,1.5666E+02_JPRB,1.7030E+02_JPRB/)  
+KBO( :, 3,48,16) = (/&
+ & 5.5563E+02_JPRB,4.1673E+02_JPRB,2.7783E+02_JPRB,1.6752E+02_JPRB,1.5672E+02_JPRB/)  
+KBO( :, 4,48,16) = (/&
+ & 6.7724E+02_JPRB,5.0793E+02_JPRB,3.3862E+02_JPRB,1.8443E+02_JPRB,1.4489E+02_JPRB/)  
+KBO( :, 5,48,16) = (/&
+ & 8.0113E+02_JPRB,6.0085E+02_JPRB,4.0056E+02_JPRB,2.0627E+02_JPRB,1.3444E+02_JPRB/)  
+KBO( :, 1,49,16) = (/&
+ & 2.9450E+02_JPRB,2.2091E+02_JPRB,1.6633E+02_JPRB,1.5392E+02_JPRB,1.9354E+02_JPRB/)  
+KBO( :, 2,49,16) = (/&
+ & 3.9655E+02_JPRB,2.9743E+02_JPRB,2.0370E+02_JPRB,1.5444E+02_JPRB,1.7673E+02_JPRB/)  
+KBO( :, 3,49,16) = (/&
+ & 5.0897E+02_JPRB,3.8174E+02_JPRB,2.5452E+02_JPRB,1.6274E+02_JPRB,1.6236E+02_JPRB/)  
+KBO( :, 4,49,16) = (/&
+ & 6.2857E+02_JPRB,4.7143E+02_JPRB,3.1428E+02_JPRB,1.7731E+02_JPRB,1.4974E+02_JPRB/)  
+KBO( :, 5,49,16) = (/&
+ & 7.5222E+02_JPRB,5.6417E+02_JPRB,3.7611E+02_JPRB,1.9706E+02_JPRB,1.3876E+02_JPRB/)  
+KBO( :, 1,50,16) = (/&
+ & 2.5985E+02_JPRB,1.9491E+02_JPRB,1.5586E+02_JPRB,1.5616E+02_JPRB,2.0113E+02_JPRB/)  
+KBO( :, 2,50,16) = (/&
+ & 3.5704E+02_JPRB,2.6780E+02_JPRB,1.8851E+02_JPRB,1.5379E+02_JPRB,1.8310E+02_JPRB/)  
+KBO( :, 3,50,16) = (/&
+ & 4.6618E+02_JPRB,3.4965E+02_JPRB,2.3374E+02_JPRB,1.5907E+02_JPRB,1.6786E+02_JPRB/)  
+KBO( :, 4,50,16) = (/&
+ & 5.8341E+02_JPRB,4.3757E+02_JPRB,2.9172E+02_JPRB,1.7138E+02_JPRB,1.5459E+02_JPRB/)  
+KBO( :, 5,50,16) = (/&
+ & 7.0619E+02_JPRB,5.2964E+02_JPRB,3.5310E+02_JPRB,1.8927E+02_JPRB,1.4300E+02_JPRB/)  
+KBO( :, 1,51,16) = (/&
+ & 2.2810E+02_JPRB,1.7111E+02_JPRB,1.4781E+02_JPRB,1.5986E+02_JPRB,2.0899E+02_JPRB/)  
+KBO( :, 2,51,16) = (/&
+ & 3.2034E+02_JPRB,2.4028E+02_JPRB,1.7546E+02_JPRB,1.5410E+02_JPRB,1.8970E+02_JPRB/)  
+KBO( :, 3,51,16) = (/&
+ & 4.2561E+02_JPRB,3.1923E+02_JPRB,2.1599E+02_JPRB,1.5649E+02_JPRB,1.7346E+02_JPRB/)  
+KBO( :, 4,51,16) = (/&
+ & 5.4039E+02_JPRB,4.0531E+02_JPRB,2.7023E+02_JPRB,1.6638E+02_JPRB,1.5946E+02_JPRB/)  
+KBO( :, 5,51,16) = (/&
+ & 6.6162E+02_JPRB,4.9621E+02_JPRB,3.3081E+02_JPRB,1.8245E+02_JPRB,1.4725E+02_JPRB/)  
+KBO( :, 1,52,16) = (/&
+ & 1.9828E+02_JPRB,1.4993E+02_JPRB,1.4119E+02_JPRB,1.6436E+02_JPRB,2.1740E+02_JPRB/)  
+KBO( :, 2,52,16) = (/&
+ & 2.8540E+02_JPRB,2.1407E+02_JPRB,1.6382E+02_JPRB,1.5520E+02_JPRB,1.9665E+02_JPRB/)  
+KBO( :, 3,52,16) = (/&
+ & 3.8626E+02_JPRB,2.8971E+02_JPRB,1.9981E+02_JPRB,1.5468E+02_JPRB,1.7935E+02_JPRB/)  
+KBO( :, 4,52,16) = (/&
+ & 4.9804E+02_JPRB,3.7355E+02_JPRB,2.4908E+02_JPRB,1.6225E+02_JPRB,1.6458E+02_JPRB/)  
+KBO( :, 5,52,16) = (/&
+ & 6.1718E+02_JPRB,4.6289E+02_JPRB,3.0859E+02_JPRB,1.7607E+02_JPRB,1.5168E+02_JPRB/)  
+KBO( :, 1,53,16) = (/&
+ & 1.7053E+02_JPRB,1.3271E+02_JPRB,1.3636E+02_JPRB,1.6986E+02_JPRB,2.2630E+02_JPRB/)  
+KBO( :, 2,53,16) = (/&
+ & 2.5204E+02_JPRB,1.8906E+02_JPRB,1.5417E+02_JPRB,1.5767E+02_JPRB,2.0404E+02_JPRB/)  
+KBO( :, 3,53,16) = (/&
+ & 3.4819E+02_JPRB,2.6116E+02_JPRB,1.8555E+02_JPRB,1.5442E+02_JPRB,1.8552E+02_JPRB/)  
+KBO( :, 4,53,16) = (/&
+ & 4.5652E+02_JPRB,3.4241E+02_JPRB,2.2942E+02_JPRB,1.5882E+02_JPRB,1.6992E+02_JPRB/)  
+KBO( :, 5,53,16) = (/&
+ & 5.7327E+02_JPRB,4.2996E+02_JPRB,2.8665E+02_JPRB,1.7045E+02_JPRB,1.5636E+02_JPRB/)  
+KBO( :, 1,54,16) = (/&
+ & 1.4705E+02_JPRB,1.1956E+02_JPRB,1.3416E+02_JPRB,1.7624E+02_JPRB,2.3498E+02_JPRB/)  
+KBO( :, 2,54,16) = (/&
+ & 2.2318E+02_JPRB,1.6747E+02_JPRB,1.4694E+02_JPRB,1.6122E+02_JPRB,2.1126E+02_JPRB/)  
+KBO( :, 3,54,16) = (/&
+ & 3.1471E+02_JPRB,2.3606E+02_JPRB,1.7373E+02_JPRB,1.5475E+02_JPRB,1.9160E+02_JPRB/)  
+KBO( :, 4,54,16) = (/&
+ & 4.1929E+02_JPRB,3.1449E+02_JPRB,2.1344E+02_JPRB,1.5657E+02_JPRB,1.7506E+02_JPRB/)  
+KBO( :, 5,54,16) = (/&
+ & 5.3373E+02_JPRB,4.0031E+02_JPRB,2.6690E+02_JPRB,1.6597E+02_JPRB,1.6083E+02_JPRB/)  
+KBO( :, 1,55,16) = (/&
+ & 1.2631E+02_JPRB,1.0869E+02_JPRB,1.3316E+02_JPRB,1.8286E+02_JPRB,2.4381E+02_JPRB/)  
+KBO( :, 2,55,16) = (/&
+ & 1.9709E+02_JPRB,1.4921E+02_JPRB,1.4131E+02_JPRB,1.6522E+02_JPRB,2.1865E+02_JPRB/)  
+KBO( :, 3,55,16) = (/&
+ & 2.8395E+02_JPRB,2.1299E+02_JPRB,1.6360E+02_JPRB,1.5579E+02_JPRB,1.9769E+02_JPRB/)  
+KBO( :, 4,55,16) = (/&
+ & 3.8466E+02_JPRB,2.8852E+02_JPRB,1.9931E+02_JPRB,1.5501E+02_JPRB,1.8019E+02_JPRB/)  
+KBO( :, 5,55,16) = (/&
+ & 4.9642E+02_JPRB,3.7233E+02_JPRB,2.4828E+02_JPRB,1.6238E+02_JPRB,1.6531E+02_JPRB/)  
+KBO( :, 1,56,16) = (/&
+ & 1.0745E+02_JPRB,1.0001E+02_JPRB,1.3351E+02_JPRB,1.8985E+02_JPRB,2.5313E+02_JPRB/)  
+KBO( :, 2,56,16) = (/&
+ & 1.7263E+02_JPRB,1.3401E+02_JPRB,1.3702E+02_JPRB,1.6999E+02_JPRB,2.2638E+02_JPRB/)  
+KBO( :, 3,56,16) = (/&
+ & 2.5461E+02_JPRB,1.9098E+02_JPRB,1.5506E+02_JPRB,1.5788E+02_JPRB,2.0410E+02_JPRB/)  
+KBO( :, 4,56,16) = (/&
+ & 3.5127E+02_JPRB,2.6347E+02_JPRB,1.8679E+02_JPRB,1.5477E+02_JPRB,1.8556E+02_JPRB/)  
+KBO( :, 5,56,16) = (/&
+ & 4.5985E+02_JPRB,3.4491E+02_JPRB,2.3096E+02_JPRB,1.5935E+02_JPRB,1.6993E+02_JPRB/)  
+KBO( :, 1,57,16) = (/&
+ & 9.0369E+01_JPRB,9.3013E+01_JPRB,1.3545E+02_JPRB,1.9732E+02_JPRB,2.6309E+02_JPRB/)  
+KBO( :, 2,57,16) = (/&
+ & 1.4993E+02_JPRB,1.2125E+02_JPRB,1.3471E+02_JPRB,1.7593E+02_JPRB,2.3457E+02_JPRB/)  
+KBO( :, 3,57,16) = (/&
+ & 2.2676E+02_JPRB,1.7012E+02_JPRB,1.4804E+02_JPRB,1.6118E+02_JPRB,2.1092E+02_JPRB/)  
+KBO( :, 4,57,16) = (/&
+ & 3.1896E+02_JPRB,2.3925E+02_JPRB,1.7532E+02_JPRB,1.5501E+02_JPRB,1.9130E+02_JPRB/)  
+KBO( :, 5,57,16) = (/&
+ & 4.2411E+02_JPRB,3.1810E+02_JPRB,2.1552E+02_JPRB,1.5708E+02_JPRB,1.7479E+02_JPRB/)  
+KBO( :, 1,58,16) = (/&
+ & 7.5798E+01_JPRB,8.7968E+01_JPRB,1.3839E+02_JPRB,2.0486E+02_JPRB,2.7315E+02_JPRB/)  
+KBO( :, 2,58,16) = (/&
+ & 1.3002E+02_JPRB,1.1067E+02_JPRB,1.3357E+02_JPRB,1.8211E+02_JPRB,2.4282E+02_JPRB/)  
+KBO( :, 3,58,16) = (/&
+ & 2.0177E+02_JPRB,1.5234E+02_JPRB,1.4243E+02_JPRB,1.6481E+02_JPRB,2.1780E+02_JPRB/)  
+KBO( :, 4,58,16) = (/&
+ & 2.8967E+02_JPRB,2.1728E+02_JPRB,1.6554E+02_JPRB,1.5580E+02_JPRB,1.9696E+02_JPRB/)  
+KBO( :, 5,58,16) = (/&
+ & 3.9118E+02_JPRB,2.9340E+02_JPRB,2.0194E+02_JPRB,1.5548E+02_JPRB,1.7957E+02_JPRB/)  
+KBO( :, 1,59,16) = (/&
+ & 7.0427E+01_JPRB,8.6420E+01_JPRB,1.3992E+02_JPRB,2.0810E+02_JPRB,2.7747E+02_JPRB/)  
+KBO( :, 2,59,16) = (/&
+ & 1.2257E+02_JPRB,1.0699E+02_JPRB,1.3342E+02_JPRB,1.8471E+02_JPRB,2.4629E+02_JPRB/)  
+KBO( :, 3,59,16) = (/&
+ & 1.9225E+02_JPRB,1.4609E+02_JPRB,1.4061E+02_JPRB,1.6649E+02_JPRB,2.2067E+02_JPRB/)  
+KBO( :, 4,59,16) = (/&
+ & 2.7820E+02_JPRB,2.0868E+02_JPRB,1.6196E+02_JPRB,1.5644E+02_JPRB,1.9936E+02_JPRB/)  
+KBO( :, 5,59,16) = (/&
+ & 3.7829E+02_JPRB,2.8373E+02_JPRB,1.9693E+02_JPRB,1.5516E+02_JPRB,1.8158E+02_JPRB/)  
+
+!     The array SELFREFO contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+SELFREFO( :, 1) = (/&
+ & 1.27664E-01_JPRB, 1.09296E-01_JPRB, 9.35703E-02_JPRB, 8.01075E-02_JPRB, 6.85818E-02_JPRB,&
+ & 5.87143E-02_JPRB, 5.02666E-02_JPRB, 4.30343E-02_JPRB, 3.68426E-02_JPRB, 3.15417E-02_JPRB/)  
+SELFREFO( :, 2) = (/&
+ & 1.39620E-01_JPRB, 1.20381E-01_JPRB, 1.03793E-01_JPRB, 8.94908E-02_JPRB, 7.71595E-02_JPRB,&
+ & 6.65273E-02_JPRB, 5.73601E-02_JPRB, 4.94562E-02_JPRB, 4.26414E-02_JPRB, 3.67656E-02_JPRB/)  
+SELFREFO( :, 3) = (/&
+ & 1.42628E-01_JPRB, 1.23043E-01_JPRB, 1.06148E-01_JPRB, 9.15726E-02_JPRB, 7.89986E-02_JPRB,&
+ & 6.81511E-02_JPRB, 5.87931E-02_JPRB, 5.07201E-02_JPRB, 4.37556E-02_JPRB, 3.77474E-02_JPRB/)  
+SELFREFO( :, 4) = (/&
+ & 1.53569E-01_JPRB, 1.33143E-01_JPRB, 1.15435E-01_JPRB, 1.00082E-01_JPRB, 8.67706E-02_JPRB,&
+ & 7.52299E-02_JPRB, 6.52241E-02_JPRB, 5.65491E-02_JPRB, 4.90279E-02_JPRB, 4.25070E-02_JPRB/)  
+SELFREFO( :, 5) = (/&
+ & 1.70491E-01_JPRB, 1.46448E-01_JPRB, 1.25796E-01_JPRB, 1.08056E-01_JPRB, 9.28182E-02_JPRB,&
+ & 7.97290E-02_JPRB, 6.84856E-02_JPRB, 5.88278E-02_JPRB, 5.05319E-02_JPRB, 4.34059E-02_JPRB/)  
+SELFREFO( :, 6) = (/&
+ & 1.76394E-01_JPRB, 1.51432E-01_JPRB, 1.30003E-01_JPRB, 1.11606E-01_JPRB, 9.58127E-02_JPRB,&
+ & 8.22542E-02_JPRB, 7.06144E-02_JPRB, 6.06217E-02_JPRB, 5.20431E-02_JPRB, 4.46784E-02_JPRB/)  
+SELFREFO( :, 7) = (/&
+ & 1.85706E-01_JPRB, 1.59172E-01_JPRB, 1.36429E-01_JPRB, 1.16936E-01_JPRB, 1.00228E-01_JPRB,&
+ & 8.59068E-02_JPRB, 7.36322E-02_JPRB, 6.31114E-02_JPRB, 5.40939E-02_JPRB, 4.63648E-02_JPRB/)  
+SELFREFO( :, 8) = (/&
+ & 1.88647E-01_JPRB, 1.61657E-01_JPRB, 1.38529E-01_JPRB, 1.18710E-01_JPRB, 1.01726E-01_JPRB,&
+ & 8.71722E-02_JPRB, 7.47005E-02_JPRB, 6.40132E-02_JPRB, 5.48549E-02_JPRB, 4.70068E-02_JPRB/)  
+SELFREFO( :, 9) = (/&
+ & 1.90074E-01_JPRB, 1.62793E-01_JPRB, 1.39427E-01_JPRB, 1.19415E-01_JPRB, 1.02275E-01_JPRB,&
+ & 8.75959E-02_JPRB, 7.50233E-02_JPRB, 6.42552E-02_JPRB, 5.50327E-02_JPRB, 4.71338E-02_JPRB/)  
+SELFREFO( :,10) = (/&
+ & 1.94769E-01_JPRB, 1.66338E-01_JPRB, 1.42057E-01_JPRB, 1.21320E-01_JPRB, 1.03611E-01_JPRB,&
+ & 8.84863E-02_JPRB, 7.55696E-02_JPRB, 6.45384E-02_JPRB, 5.51175E-02_JPRB, 4.70718E-02_JPRB/)  
+SELFREFO( :,11) = (/&
+ & 1.90624E-01_JPRB, 1.64229E-01_JPRB, 1.41488E-01_JPRB, 1.21896E-01_JPRB, 1.05017E-01_JPRB,&
+ & 9.04757E-02_JPRB, 7.79475E-02_JPRB, 6.71542E-02_JPRB, 5.78554E-02_JPRB, 4.98442E-02_JPRB/)  
+SELFREFO( :,12) = (/&
+ & 1.90502E-01_JPRB, 1.64025E-01_JPRB, 1.41228E-01_JPRB, 1.21599E-01_JPRB, 1.04699E-01_JPRB,&
+ & 9.01472E-02_JPRB, 7.76181E-02_JPRB, 6.68303E-02_JPRB, 5.75419E-02_JPRB, 4.95444E-02_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART37',1,ZHOOK_HANDLE)
+END SUBROUTINE PART37
+
+
+SUBROUTINE PART38
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART38',0,ZHOOK_HANDLE)
+
+
+SELFREFO( :,13) = (/&
+ & 1.86786E-01_JPRB, 1.61636E-01_JPRB, 1.39872E-01_JPRB, 1.21039E-01_JPRB, 1.04741E-01_JPRB,&
+ & 9.06380E-02_JPRB, 7.84338E-02_JPRB, 6.78729E-02_JPRB, 5.87340E-02_JPRB, 5.08256E-02_JPRB/)  
+SELFREFO( :,14) = (/&
+ & 1.99149E-01_JPRB, 1.71475E-01_JPRB, 1.47646E-01_JPRB, 1.27129E-01_JPRB, 1.09462E-01_JPRB,&
+ & 9.42512E-02_JPRB, 8.11538E-02_JPRB, 6.98764E-02_JPRB, 6.01662E-02_JPRB, 5.18053E-02_JPRB/)  
+SELFREFO( :,15) = (/&
+ & 2.02676E-01_JPRB, 1.73701E-01_JPRB, 1.48869E-01_JPRB, 1.27587E-01_JPRB, 1.09347E-01_JPRB,&
+ & 9.37144E-02_JPRB, 8.03170E-02_JPRB, 6.88348E-02_JPRB, 5.89941E-02_JPRB, 5.05603E-02_JPRB/)  
+SELFREFO( :,16) = (/&
+ & 1.99865E-01_JPRB, 1.72699E-01_JPRB, 1.49225E-01_JPRB, 1.28942E-01_JPRB, 1.11416E-01_JPRB,&
+ & 9.62721E-02_JPRB, 8.31866E-02_JPRB, 7.18797E-02_JPRB, 6.21097E-02_JPRB, 5.36676E-02_JPRB/)        
+
+FRACREFAO( :, 1) = (/&
+ !     From P = 387.6 mb.
+ & 0.13966499_JPRB,0.14138900_JPRB,0.13763399_JPRB,0.13076700_JPRB,&
+ & 0.12299100_JPRB,0.10747700_JPRB,0.08942000_JPRB,0.06769200_JPRB,&
+ & 0.04587610_JPRB,0.00501173_JPRB,0.00415809_JPRB,0.00328398_JPRB,&
+ & 0.00240015_JPRB,0.00156222_JPRB,0.00059104_JPRB,0.00008323_JPRB/)  
+FRACREFAO( :, 2) = (/&
+ & 0.13958199_JPRB,0.14332899_JPRB,0.13785399_JPRB,0.13205400_JPRB,&
+ & 0.12199700_JPRB,0.10679600_JPRB,0.08861080_JPRB,0.06712320_JPRB,&
+ & 0.04556030_JPRB,0.00500863_JPRB,0.00416315_JPRB,0.00328629_JPRB,&
+ & 0.00240023_JPRB,0.00156220_JPRB,0.00059104_JPRB,0.00008323_JPRB/)  
+FRACREFAO( :, 3) = (/&
+ & 0.13907100_JPRB,0.14250501_JPRB,0.13889600_JPRB,0.13297300_JPRB,&
+ & 0.12218700_JPRB,0.10683800_JPRB,0.08839260_JPRB,0.06677310_JPRB,&
+ & 0.04538570_JPRB,0.00495402_JPRB,0.00409863_JPRB,0.00328219_JPRB,&
+ & 0.00240805_JPRB,0.00156266_JPRB,0.00059104_JPRB,0.00008323_JPRB/)  
+FRACREFAO( :, 4) = (/&
+ & 0.13867700_JPRB,0.14190100_JPRB,0.13932300_JPRB,0.13327099_JPRB,&
+ & 0.12280800_JPRB,0.10692500_JPRB,0.08844510_JPRB,0.06658510_JPRB,&
+ & 0.04519340_JPRB,0.00492276_JPRB,0.00408832_JPRB,0.00323856_JPRB,&
+ & 0.00239289_JPRB,0.00155698_JPRB,0.00059104_JPRB,0.00008323_JPRB/)  
+FRACREFAO( :, 5) = (/&
+ & 0.13845000_JPRB,0.14158800_JPRB,0.13929300_JPRB,0.13295600_JPRB,&
+ & 0.12348300_JPRB,0.10736700_JPRB,0.08859480_JPRB,0.06650610_JPRB,&
+ & 0.04498230_JPRB,0.00491335_JPRB,0.00406968_JPRB,0.00322901_JPRB,&
+ & 0.00234666_JPRB,0.00155235_JPRB,0.00058813_JPRB,0.00008323_JPRB/)  
+FRACREFAO( :, 6) = (/&
+ & 0.13837101_JPRB,0.14113200_JPRB,0.13930500_JPRB,0.13283101_JPRB,&
+ & 0.12349200_JPRB,0.10796400_JPRB,0.08890490_JPRB,0.06646480_JPRB,&
+ & 0.04485990_JPRB,0.00489554_JPRB,0.00405264_JPRB,0.00320313_JPRB,&
+ & 0.00234742_JPRB,0.00151159_JPRB,0.00058438_JPRB,0.00008253_JPRB/)  
+FRACREFAO( :, 7) = (/&
+ & 0.13834500_JPRB,0.14093500_JPRB,0.13896500_JPRB,0.13262001_JPRB,&
+ & 0.12326900_JPRB,0.10828900_JPRB,0.08950050_JPRB,0.06674610_JPRB,&
+ & 0.04476560_JPRB,0.00489624_JPRB,0.00400962_JPRB,0.00317423_JPRB,&
+ & 0.00233479_JPRB,0.00148249_JPRB,0.00058590_JPRB,0.00008253_JPRB/)  
+FRACREFAO( :, 8) = (/&
+ & 0.13831300_JPRB,0.14069000_JPRB,0.13871400_JPRB,0.13247600_JPRB,&
+ & 0.12251400_JPRB,0.10831300_JPRB,0.08977090_JPRB,0.06776920_JPRB,&
+ & 0.04498390_JPRB,0.00484111_JPRB,0.00398948_JPRB,0.00316069_JPRB,&
+ & 0.00229741_JPRB,0.00150104_JPRB,0.00058608_JPRB,0.00008253_JPRB/)  
+FRACREFAO( :, 9) = (/&
+ & 0.14027201_JPRB,0.14420401_JPRB,0.14215700_JPRB,0.13446601_JPRB,&
+ & 0.12303700_JPRB,0.10596100_JPRB,0.08650370_JPRB,0.06409570_JPRB,&
+ & 0.04312310_JPRB,0.00471110_JPRB,0.00393954_JPRB,0.00310850_JPRB,&
+ & 0.00229588_JPRB,0.00146366_JPRB,0.00058194_JPRB,0.00008253_JPRB/)  
+
+FRACREFBO( :, 1) = (/&
+ !     From P = 1.17 mb.
+ & 0.14339100_JPRB,0.14358699_JPRB,0.13935301_JPRB,0.13306700_JPRB,&
+ & 0.12135700_JPRB,0.10590600_JPRB,0.08688240_JPRB,0.06553220_JPRB,&
+ & 0.04446740_JPRB,0.00483580_JPRB,0.00399413_JPRB,0.00316225_JPRB,&
+ & 0.00233007_JPRB,0.00149135_JPRB,0.00056246_JPRB,0.00008059_JPRB/)  
+FRACREFBO( :, 2) = (/&
+ & 0.14330500_JPRB,0.14430299_JPRB,0.14053699_JPRB,0.13355300_JPRB,&
+ & 0.12151200_JPRB,0.10529100_JPRB,0.08627630_JPRB,0.06505230_JPRB,&
+ & 0.04385850_JPRB,0.00476555_JPRB,0.00395010_JPRB,0.00313878_JPRB,&
+ & 0.00232273_JPRB,0.00149354_JPRB,0.00056246_JPRB,0.00008059_JPRB/)  
+FRACREFBO( :, 3) = (/&
+ & 0.14328399_JPRB,0.14442700_JPRB,0.14078601_JPRB,0.13390100_JPRB,&
+ & 0.12132600_JPRB,0.10510600_JPRB,0.08613660_JPRB,0.06494630_JPRB,&
+ & 0.04381310_JPRB,0.00475378_JPRB,0.00394166_JPRB,0.00313076_JPRB,&
+ & 0.00231235_JPRB,0.00149159_JPRB,0.00056301_JPRB,0.00008059_JPRB/)  
+FRACREFBO( :, 4) = (/&
+ & 0.14326900_JPRB,0.14453100_JPRB,0.14114200_JPRB,0.13397101_JPRB,&
+ & 0.12127200_JPRB,0.10493400_JPRB,0.08601380_JPRB,0.06483360_JPRB,&
+ & 0.04378900_JPRB,0.00474655_JPRB,0.00393549_JPRB,0.00312583_JPRB,&
+ & 0.00230686_JPRB,0.00148433_JPRB,0.00056502_JPRB,0.00008059_JPRB/)  
+FRACREFBO( :, 5) = (/&
+ & 0.14328900_JPRB,0.14532700_JPRB,0.14179000_JPRB,0.13384600_JPRB,&
+ & 0.12093700_JPRB,0.10461500_JPRB,0.08573010_JPRB,0.06461340_JPRB,&
+ & 0.04366570_JPRB,0.00473087_JPRB,0.00392539_JPRB,0.00311238_JPRB,&
+ & 0.00229865_JPRB,0.00147572_JPRB,0.00056517_JPRB,0.00007939_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB5:PART38',1,ZHOOK_HANDLE)
+END SUBROUTINE PART38
+
+
+END SUBROUTINE RRTM_KGB5
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb5.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb5.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb5.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_KGB5
+END SUBROUTINE RRTM_KGB5
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb6.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb6.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb6.F90	(revision 1989)
@@ -0,0 +1,571 @@
+!OCL SCALAR
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0 
+SUBROUTINE RRTM_KGB6
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 6:  820-980 cm-1 (low - H2O; high - nothing)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     R. Elkhatib 12-10-2005 Split for faster and more robust compilation.
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO6 , ONLY : KAO     ,SELFREFO   ,FRACREFAO  ,CFC11ADJO ,&
+ & CFC12O   , ABSCO2O   
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB6',0,ZHOOK_HANDLE)
+
+CALL PART1
+CALL PART2
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB6',1,ZHOOK_HANDLE)
+
+!     -----------------------------------------------------------------
+
+CONTAINS
+
+
+SUBROUTINE PART1
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB6:PART1',0,ZHOOK_HANDLE)
+
+
+FRACREFAO( :) = (/&
+ !     From P = 706 mb.
+ & 0.13739009_JPRB,0.14259538_JPRB,0.14033118_JPRB,0.13547136_JPRB,&
+ & 0.12569460_JPRB,0.11028396_JPRB,0.08626066_JPRB,0.06245148_JPRB,&
+ & 0.04309394_JPRB,0.00473551_JPRB,0.00403920_JPRB,0.00321695_JPRB,&
+ & 0.00232470_JPRB,0.00147662_JPRB,0.00056095_JPRB,0.00007373_JPRB/)  
+
+!     CFC11 is multiplied by 1.385 to account for the 1060-1107 cm-1 band.
+CFC11ADJO( :) = (/&
+ & 0.0_JPRB,      0.0_JPRB, 36.7627_JPRB, 150.757_JPRB,    &
+ & 81.4109_JPRB, 74.9112_JPRB, 56.9325_JPRB, 49.3226_JPRB,  &
+ & 57.1074_JPRB, 66.1202_JPRB, 109.557_JPRB, 89.0562_JPRB,  &
+ & 149.865_JPRB, 196.140_JPRB, 258.393_JPRB, 80.9923_JPRB/)  
+
+CFC12O( :) = (/&
+ & 62.8368_JPRB, 43.2626_JPRB, 26.7549_JPRB, 22.2487_JPRB,&
+ & 23.5029_JPRB, 34.8323_JPRB, 26.2335_JPRB, 23.2306_JPRB,&
+ & 18.4062_JPRB, 13.9534_JPRB, 22.6268_JPRB, 24.2604_JPRB,&
+ & 30.0088_JPRB, 26.3634_JPRB, 15.8237_JPRB, 57.5050_JPRB/)  
+
+ABSCO2O( :) = (/&
+ & 7.44852E-05_JPRB, 6.29208E-05_JPRB, 7.34031E-05_JPRB, 6.65218E-05_JPRB,&
+ & 7.87511E-05_JPRB, 1.22489E-04_JPRB, 3.39785E-04_JPRB, 9.33040E-04_JPRB,&
+ & 1.54323E-03_JPRB, 4.07220E-04_JPRB, 4.34332E-04_JPRB, 8.76418E-05_JPRB,&
+ & 9.80381E-05_JPRB, 3.51680E-05_JPRB, 5.31766E-05_JPRB, 1.01542E-05_JPRB/)  
+
+!     ------------------------------------------------------------------
+
+!     The array KAO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels > ~100mb and temperatures.  The first
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the corresponding TREF for this  pressure level, 
+!     JT = 2 refers to the temperatureTREF-15, JT = 1 is for TREF-30, 
+!     JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  The second 
+!     index, JP, runs from 1 to 13 and refers to the corresponding 
+!     pressure level in PREF (e.g. JP = 1 is for a pressure of 1053.63 mb).  
+!     The third index, IG, goes from 1 to 16, and tells us which 
+!     g-interval the absorption coefficients are for.
+
+KAO( :, 1, 1) = (/&
+ & 2.2568E-05_JPRB,2.5521E-05_JPRB,2.4392E-05_JPRB,2.3686E-05_JPRB,2.3850E-05_JPRB/)  
+KAO( :, 2, 1) = (/&
+ & 1.8872E-05_JPRB,1.8763E-05_JPRB,1.8106E-05_JPRB,1.7702E-05_JPRB,1.7681E-05_JPRB/)  
+KAO( :, 3, 1) = (/&
+ & 1.2996E-05_JPRB,1.3086E-05_JPRB,1.3378E-05_JPRB,1.3260E-05_JPRB,1.1771E-05_JPRB/)  
+KAO( :, 4, 1) = (/&
+ & 9.6276E-06_JPRB,9.9774E-06_JPRB,9.6694E-06_JPRB,8.4861E-06_JPRB,8.9160E-06_JPRB/)  
+KAO( :, 5, 1) = (/&
+ & 7.1690E-06_JPRB,7.2984E-06_JPRB,5.8013E-06_JPRB,6.2225E-06_JPRB,6.6628E-06_JPRB/)  
+KAO( :, 6, 1) = (/&
+ & 5.6038E-06_JPRB,4.4095E-06_JPRB,4.4722E-06_JPRB,4.4395E-06_JPRB,5.4630E-06_JPRB/)  
+KAO( :, 7, 1) = (/&
+ & 3.4775E-06_JPRB,3.0437E-06_JPRB,3.3876E-06_JPRB,3.8636E-06_JPRB,4.9257E-06_JPRB/)  
+KAO( :, 8, 1) = (/&
+ & 2.7310E-06_JPRB,3.2224E-06_JPRB,3.6552E-06_JPRB,4.3975E-06_JPRB,5.5359E-06_JPRB/)  
+KAO( :, 9, 1) = (/&
+ & 6.6325E-06_JPRB,7.7076E-06_JPRB,8.9070E-06_JPRB,1.0179E-05_JPRB,1.1909E-05_JPRB/)  
+KAO( :,10, 1) = (/&
+ & 2.4079E-05_JPRB,2.6989E-05_JPRB,3.0753E-05_JPRB,3.4229E-05_JPRB,3.8060E-05_JPRB/)  
+KAO( :,11, 1) = (/&
+ & 3.3970E-05_JPRB,3.7965E-05_JPRB,4.2993E-05_JPRB,4.7630E-05_JPRB,5.2629E-05_JPRB/)  
+KAO( :,12, 1) = (/&
+ & 3.5907E-05_JPRB,4.0095E-05_JPRB,4.5267E-05_JPRB,5.0045E-05_JPRB,5.5178E-05_JPRB/)  
+KAO( :,13, 1) = (/&
+ & 3.0600E-05_JPRB,3.4162E-05_JPRB,3.8530E-05_JPRB,4.2579E-05_JPRB,4.6937E-05_JPRB/)  
+KAO( :, 1, 2) = (/&
+ & 2.9639E-05_JPRB,3.3221E-05_JPRB,3.2806E-05_JPRB,2.8964E-05_JPRB,2.6726E-05_JPRB/)  
+KAO( :, 2, 2) = (/&
+ & 2.3653E-05_JPRB,2.4355E-05_JPRB,2.4028E-05_JPRB,2.0887E-05_JPRB,2.2925E-05_JPRB/)  
+KAO( :, 3, 2) = (/&
+ & 1.6734E-05_JPRB,1.6216E-05_JPRB,1.4570E-05_JPRB,1.6223E-05_JPRB,1.7762E-05_JPRB/)  
+KAO( :, 4, 2) = (/&
+ & 1.0615E-05_JPRB,1.0115E-05_JPRB,1.1508E-05_JPRB,1.1885E-05_JPRB,1.3929E-05_JPRB/)  
+KAO( :, 5, 2) = (/&
+ & 7.5406E-06_JPRB,7.3085E-06_JPRB,8.6006E-06_JPRB,9.3888E-06_JPRB,1.1719E-05_JPRB/)  
+KAO( :, 6, 2) = (/&
+ & 4.8289E-06_JPRB,6.2547E-06_JPRB,5.8818E-06_JPRB,7.9263E-06_JPRB,1.0542E-05_JPRB/)  
+KAO( :, 7, 2) = (/&
+ & 4.3622E-06_JPRB,4.7605E-06_JPRB,5.4656E-06_JPRB,7.2224E-06_JPRB,1.0212E-05_JPRB/)  
+KAO( :, 8, 2) = (/&
+ & 4.2923E-06_JPRB,4.6584E-06_JPRB,6.2268E-06_JPRB,8.3462E-06_JPRB,1.1797E-05_JPRB/)  
+KAO( :, 9, 2) = (/&
+ & 9.7259E-06_JPRB,1.1243E-05_JPRB,1.3832E-05_JPRB,1.8290E-05_JPRB,2.4869E-05_JPRB/)  
+KAO( :,10, 2) = (/&
+ & 3.3596E-05_JPRB,3.8056E-05_JPRB,4.3895E-05_JPRB,5.4699E-05_JPRB,7.1889E-05_JPRB/)  
+KAO( :,11, 2) = (/&
+ & 4.7132E-05_JPRB,5.3142E-05_JPRB,6.1177E-05_JPRB,7.5188E-05_JPRB,9.8046E-05_JPRB/)  
+KAO( :,12, 2) = (/&
+ & 4.9755E-05_JPRB,5.6067E-05_JPRB,6.4461E-05_JPRB,7.8769E-05_JPRB,1.0238E-04_JPRB/)  
+KAO( :,13, 2) = (/&
+ & 4.2448E-05_JPRB,4.7895E-05_JPRB,5.4990E-05_JPRB,6.7099E-05_JPRB,8.7152E-05_JPRB/)  
+KAO( :, 1, 3) = (/&
+ & 2.4391E-05_JPRB,2.6179E-05_JPRB,3.0228E-05_JPRB,3.9877E-05_JPRB,4.1318E-05_JPRB/)  
+KAO( :, 2, 3) = (/&
+ & 2.0506E-05_JPRB,2.0015E-05_JPRB,2.6885E-05_JPRB,2.9284E-05_JPRB,2.9837E-05_JPRB/)  
+KAO( :, 3, 3) = (/&
+ & 1.3542E-05_JPRB,1.5721E-05_JPRB,1.9501E-05_JPRB,1.8947E-05_JPRB,2.4397E-05_JPRB/)  
+KAO( :, 4, 3) = (/&
+ & 9.0261E-06_JPRB,1.3633E-05_JPRB,1.2485E-05_JPRB,1.7278E-05_JPRB,2.0007E-05_JPRB/)  
+KAO( :, 5, 3) = (/&
+ & 8.7945E-06_JPRB,9.7631E-06_JPRB,1.1634E-05_JPRB,1.3600E-05_JPRB,1.9745E-05_JPRB/)  
+KAO( :, 6, 3) = (/&
+ & 7.5275E-06_JPRB,7.1532E-06_JPRB,9.4521E-06_JPRB,1.3168E-05_JPRB,1.9311E-05_JPRB/)  
+KAO( :, 7, 3) = (/&
+ & 5.6021E-06_JPRB,6.6005E-06_JPRB,8.8148E-06_JPRB,1.3299E-05_JPRB,1.9798E-05_JPRB/)  
+KAO( :, 8, 3) = (/&
+ & 5.6076E-06_JPRB,7.6899E-06_JPRB,1.0237E-05_JPRB,1.5421E-05_JPRB,2.3499E-05_JPRB/)  
+KAO( :, 9, 3) = (/&
+ & 1.3625E-05_JPRB,1.7122E-05_JPRB,2.2283E-05_JPRB,3.1506E-05_JPRB,4.8193E-05_JPRB/)  
+KAO( :,10, 3) = (/&
+ & 4.6234E-05_JPRB,5.4855E-05_JPRB,6.8590E-05_JPRB,8.9964E-05_JPRB,1.3093E-04_JPRB/)  
+KAO( :,11, 3) = (/&
+ & 6.5003E-05_JPRB,7.6686E-05_JPRB,9.5408E-05_JPRB,1.2507E-04_JPRB,1.8079E-04_JPRB/)  
+KAO( :,12, 3) = (/&
+ & 6.8759E-05_JPRB,8.1014E-05_JPRB,1.0079E-04_JPRB,1.3196E-04_JPRB,1.9017E-04_JPRB/)  
+KAO( :,13, 3) = (/&
+ & 5.8741E-05_JPRB,6.9297E-05_JPRB,8.6397E-05_JPRB,1.1292E-04_JPRB,1.6288E-04_JPRB/)  
+KAO( :, 1, 4) = (/&
+ & 3.6952E-05_JPRB,3.9167E-05_JPRB,4.5764E-05_JPRB,4.7701E-05_JPRB,5.5871E-05_JPRB/)  
+KAO( :, 2, 4) = (/&
+ & 2.6008E-05_JPRB,3.6209E-05_JPRB,2.8658E-05_JPRB,3.8449E-05_JPRB,3.8668E-05_JPRB/)  
+KAO( :, 3, 4) = (/&
+ & 2.1596E-05_JPRB,2.1370E-05_JPRB,2.2422E-05_JPRB,2.7123E-05_JPRB,3.0425E-05_JPRB/)  
+KAO( :, 4, 4) = (/&
+ & 1.4408E-05_JPRB,1.3094E-05_JPRB,1.9460E-05_JPRB,2.1634E-05_JPRB,3.3208E-05_JPRB/)  
+KAO( :, 5, 4) = (/&
+ & 8.9120E-06_JPRB,1.2874E-05_JPRB,1.5169E-05_JPRB,2.3591E-05_JPRB,3.5032E-05_JPRB/)  
+KAO( :, 6, 4) = (/&
+ & 7.0427E-06_JPRB,1.1114E-05_JPRB,1.4987E-05_JPRB,2.2856E-05_JPRB,3.4461E-05_JPRB/)  
+KAO( :, 7, 4) = (/&
+ & 7.4919E-06_JPRB,9.5389E-06_JPRB,1.5038E-05_JPRB,2.3474E-05_JPRB,3.5967E-05_JPRB/)  
+KAO( :, 8, 4) = (/&
+ & 8.6186E-06_JPRB,1.1413E-05_JPRB,1.7846E-05_JPRB,2.8336E-05_JPRB,4.4637E-05_JPRB/)  
+KAO( :, 9, 4) = (/&
+ & 1.9661E-05_JPRB,2.5521E-05_JPRB,3.7417E-05_JPRB,5.9323E-05_JPRB,9.6439E-05_JPRB/)  
+KAO( :,10, 4) = (/&
+ & 6.3994E-05_JPRB,8.1146E-05_JPRB,1.0850E-04_JPRB,1.6659E-04_JPRB,2.7179E-04_JPRB/)  
+KAO( :,11, 4) = (/&
+ & 9.0362E-05_JPRB,1.1392E-04_JPRB,1.5220E-04_JPRB,2.3565E-04_JPRB,3.8761E-04_JPRB/)  
+KAO( :,12, 4) = (/&
+ & 9.5893E-05_JPRB,1.2069E-04_JPRB,1.6199E-04_JPRB,2.5340E-04_JPRB,4.1839E-04_JPRB/)  
+KAO( :,13, 4) = (/&
+ & 8.2144E-05_JPRB,1.0344E-04_JPRB,1.3998E-04_JPRB,2.2132E-04_JPRB,3.6483E-04_JPRB/)  
+KAO( :, 1, 5) = (/&
+ & 3.3532E-05_JPRB,4.1940E-05_JPRB,5.7696E-05_JPRB,6.0186E-05_JPRB,6.3029E-05_JPRB/)  
+KAO( :, 2, 5) = (/&
+ & 2.3830E-05_JPRB,3.5587E-05_JPRB,4.6056E-05_JPRB,4.1505E-05_JPRB,5.7960E-05_JPRB/)  
+KAO( :, 3, 5) = (/&
+ & 2.1812E-05_JPRB,2.5706E-05_JPRB,2.8233E-05_JPRB,3.5229E-05_JPRB,5.8555E-05_JPRB/)  
+KAO( :, 4, 5) = (/&
+ & 1.7315E-05_JPRB,1.9695E-05_JPRB,2.2530E-05_JPRB,3.8597E-05_JPRB,5.8973E-05_JPRB/)  
+KAO( :, 5, 5) = (/&
+ & 1.1890E-05_JPRB,1.3867E-05_JPRB,2.3935E-05_JPRB,3.9940E-05_JPRB,5.8993E-05_JPRB/)  
+KAO( :, 6, 5) = (/&
+ & 1.0677E-05_JPRB,1.4192E-05_JPRB,2.4839E-05_JPRB,4.0149E-05_JPRB,5.9735E-05_JPRB/)  
+KAO( :, 7, 5) = (/&
+ & 9.2784E-06_JPRB,1.5528E-05_JPRB,2.6050E-05_JPRB,4.1864E-05_JPRB,6.4186E-05_JPRB/)  
+KAO( :, 8, 5) = (/&
+ & 1.1359E-05_JPRB,1.8672E-05_JPRB,3.1354E-05_JPRB,5.1149E-05_JPRB,8.0918E-05_JPRB/)  
+KAO( :, 9, 5) = (/&
+ & 2.6841E-05_JPRB,4.0944E-05_JPRB,6.8221E-05_JPRB,1.1515E-04_JPRB,1.8821E-04_JPRB/)  
+KAO( :,10, 5) = (/&
+ & 8.7415E-05_JPRB,1.2053E-04_JPRB,1.9441E-04_JPRB,3.3166E-04_JPRB,5.5740E-04_JPRB/)  
+KAO( :,11, 5) = (/&
+ & 1.2386E-04_JPRB,1.7143E-04_JPRB,2.7887E-04_JPRB,4.7716E-04_JPRB,8.0477E-04_JPRB/)  
+KAO( :,12, 5) = (/&
+ & 1.3204E-04_JPRB,1.8364E-04_JPRB,3.0111E-04_JPRB,5.1685E-04_JPRB,8.7520E-04_JPRB/)  
+KAO( :,13, 5) = (/&
+ & 1.1358E-04_JPRB,1.5915E-04_JPRB,2.6323E-04_JPRB,4.5343E-04_JPRB,7.7073E-04_JPRB/)  
+KAO( :, 1, 6) = (/&
+ & 5.6626E-05_JPRB,6.2952E-05_JPRB,5.6997E-05_JPRB,7.8387E-05_JPRB,1.4023E-04_JPRB/)  
+KAO( :, 2, 6) = (/&
+ & 4.2639E-05_JPRB,4.0472E-05_JPRB,5.1521E-05_JPRB,7.2367E-05_JPRB,1.2444E-04_JPRB/)  
+KAO( :, 3, 6) = (/&
+ & 3.3191E-05_JPRB,2.9821E-05_JPRB,4.1035E-05_JPRB,7.5835E-05_JPRB,1.1292E-04_JPRB/)  
+KAO( :, 4, 6) = (/&
+ & 1.7563E-05_JPRB,2.2621E-05_JPRB,4.3898E-05_JPRB,7.3541E-05_JPRB,1.0514E-04_JPRB/)  
+KAO( :, 5, 6) = (/&
+ & 1.4086E-05_JPRB,2.3545E-05_JPRB,4.5696E-05_JPRB,7.1090E-05_JPRB,1.0366E-04_JPRB/)  
+KAO( :, 6, 6) = (/&
+ & 1.2590E-05_JPRB,2.4048E-05_JPRB,4.4731E-05_JPRB,6.9646E-05_JPRB,1.0367E-04_JPRB/)  
+KAO( :, 7, 6) = (/&
+ & 1.3429E-05_JPRB,2.6924E-05_JPRB,4.6412E-05_JPRB,7.4051E-05_JPRB,1.1343E-04_JPRB/)  
+KAO( :, 8, 6) = (/&
+ & 1.8185E-05_JPRB,3.3168E-05_JPRB,5.7618E-05_JPRB,9.5901E-05_JPRB,1.5240E-04_JPRB/)  
+KAO( :, 9, 6) = (/&
+ & 4.0915E-05_JPRB,7.1523E-05_JPRB,1.2899E-04_JPRB,2.2341E-04_JPRB,3.6849E-04_JPRB/)  
+KAO( :,10, 6) = (/&
+ & 1.2433E-04_JPRB,2.0393E-04_JPRB,3.7307E-04_JPRB,6.6855E-04_JPRB,1.1425E-03_JPRB/)  
+KAO( :,11, 6) = (/&
+ & 1.8043E-04_JPRB,3.0126E-04_JPRB,5.5504E-04_JPRB,9.9966E-04_JPRB,1.7159E-03_JPRB/)  
+KAO( :,12, 6) = (/&
+ & 1.9679E-04_JPRB,3.3338E-04_JPRB,6.1765E-04_JPRB,1.1153E-03_JPRB,1.9175E-03_JPRB/)  
+KAO( :,13, 6) = (/&
+ & 1.7363E-04_JPRB,2.9831E-04_JPRB,5.5435E-04_JPRB,1.0025E-03_JPRB,1.7267E-03_JPRB/)  
+KAO( :, 1, 7) = (/&
+ & 5.4728E-05_JPRB,6.3216E-05_JPRB,9.7227E-05_JPRB,1.9830E-04_JPRB,3.0115E-04_JPRB/)  
+KAO( :, 2, 7) = (/&
+ & 3.7424E-05_JPRB,4.6891E-05_JPRB,9.3922E-05_JPRB,1.8575E-04_JPRB,2.6393E-04_JPRB/)  
+KAO( :, 3, 7) = (/&
+ & 3.2885E-05_JPRB,5.4240E-05_JPRB,1.1210E-04_JPRB,1.7073E-04_JPRB,2.3633E-04_JPRB/)  
+KAO( :, 4, 7) = (/&
+ & 2.6560E-05_JPRB,6.2341E-05_JPRB,1.0718E-04_JPRB,1.5691E-04_JPRB,2.1887E-04_JPRB/)  
+KAO( :, 5, 7) = (/&
+ & 2.8005E-05_JPRB,6.1158E-05_JPRB,9.7995E-05_JPRB,1.4461E-04_JPRB,2.0623E-04_JPRB/)  
+KAO( :, 6, 7) = (/&
+ & 2.6304E-05_JPRB,5.4858E-05_JPRB,8.8237E-05_JPRB,1.3524E-04_JPRB,2.0068E-04_JPRB/)  
+KAO( :, 7, 7) = (/&
+ & 2.8057E-05_JPRB,5.2849E-05_JPRB,8.8492E-05_JPRB,1.4199E-04_JPRB,2.1851E-04_JPRB/)  
+KAO( :, 8, 7) = (/&
+ & 3.4390E-05_JPRB,6.3412E-05_JPRB,1.1163E-04_JPRB,1.8592E-04_JPRB,2.9376E-04_JPRB/)  
+KAO( :, 9, 7) = (/&
+ & 7.2790E-05_JPRB,1.4039E-04_JPRB,2.5926E-04_JPRB,4.5257E-04_JPRB,7.4795E-04_JPRB/)  
+KAO( :,10, 7) = (/&
+ & 2.1021E-04_JPRB,4.1798E-04_JPRB,8.0790E-04_JPRB,1.4658E-03_JPRB,2.5048E-03_JPRB/)  
+KAO( :,11, 7) = (/&
+ & 3.2720E-04_JPRB,6.6181E-04_JPRB,1.2928E-03_JPRB,2.3683E-03_JPRB,4.0754E-03_JPRB/)  
+KAO( :,12, 7) = (/&
+ & 3.7693E-04_JPRB,7.7171E-04_JPRB,1.5176E-03_JPRB,2.7982E-03_JPRB,4.8311E-03_JPRB/)  
+KAO( :,13, 7) = (/&
+ & 3.5194E-04_JPRB,7.2710E-04_JPRB,1.4369E-03_JPRB,2.6518E-03_JPRB,4.5779E-03_JPRB/)  
+KAO( :, 1, 8) = (/&
+ & 8.8622E-05_JPRB,2.2200E-04_JPRB,4.1760E-04_JPRB,5.9916E-04_JPRB,8.1306E-04_JPRB/)  
+KAO( :, 2, 8) = (/&
+ & 7.7484E-05_JPRB,1.9083E-04_JPRB,3.2988E-04_JPRB,4.7824E-04_JPRB,6.5145E-04_JPRB/)  
+KAO( :, 3, 8) = (/&
+ & 6.8249E-05_JPRB,1.8888E-04_JPRB,2.9496E-04_JPRB,4.2064E-04_JPRB,5.7727E-04_JPRB/)  
+KAO( :, 4, 8) = (/&
+ & 1.0307E-04_JPRB,1.8157E-04_JPRB,2.7450E-04_JPRB,3.9411E-04_JPRB,5.4734E-04_JPRB/)  
+KAO( :, 5, 8) = (/&
+ & 1.0013E-04_JPRB,1.6578E-04_JPRB,2.5412E-04_JPRB,3.7165E-04_JPRB,5.2629E-04_JPRB/)  
+KAO( :, 6, 8) = (/&
+ & 8.7661E-05_JPRB,1.4688E-04_JPRB,2.3121E-04_JPRB,3.4816E-04_JPRB,5.0439E-04_JPRB/)  
+KAO( :, 7, 8) = (/&
+ & 7.9171E-05_JPRB,1.3672E-04_JPRB,2.2306E-04_JPRB,3.4738E-04_JPRB,5.2076E-04_JPRB/)  
+KAO( :, 8, 8) = (/&
+ & 8.3889E-05_JPRB,1.5157E-04_JPRB,2.5895E-04_JPRB,4.2268E-04_JPRB,6.6361E-04_JPRB/)  
+KAO( :, 9, 8) = (/&
+ & 1.6488E-04_JPRB,3.1976E-04_JPRB,5.8317E-04_JPRB,1.0082E-03_JPRB,1.6627E-03_JPRB/)  
+KAO( :,10, 8) = (/&
+ & 4.7725E-04_JPRB,9.7517E-04_JPRB,1.8746E-03_JPRB,3.3981E-03_JPRB,5.7914E-03_JPRB/)  
+KAO( :,11, 8) = (/&
+ & 7.9688E-04_JPRB,1.6560E-03_JPRB,3.2130E-03_JPRB,5.8470E-03_JPRB,9.9511E-03_JPRB/)  
+KAO( :,12, 8) = (/&
+ & 9.7776E-04_JPRB,2.0671E-03_JPRB,4.0593E-03_JPRB,7.3885E-03_JPRB,1.2564E-02_JPRB/)  
+KAO( :,13, 8) = (/&
+ & 9.8124E-04_JPRB,2.1024E-03_JPRB,4.1582E-03_JPRB,7.5870E-03_JPRB,1.2921E-02_JPRB/)  
+KAO( :, 1, 9) = (/&
+ & 7.4912E-04_JPRB,1.1099E-03_JPRB,1.5644E-03_JPRB,2.1464E-03_JPRB,2.8897E-03_JPRB/)  
+KAO( :, 2, 9) = (/&
+ & 6.2597E-04_JPRB,9.2912E-04_JPRB,1.3142E-03_JPRB,1.8181E-03_JPRB,2.4773E-03_JPRB/)  
+KAO( :, 3, 9) = (/&
+ & 4.7892E-04_JPRB,7.1171E-04_JPRB,1.0243E-03_JPRB,1.4397E-03_JPRB,1.9820E-03_JPRB/)  
+KAO( :, 4, 9) = (/&
+ & 3.8453E-04_JPRB,5.9140E-04_JPRB,8.7342E-04_JPRB,1.2581E-03_JPRB,1.7584E-03_JPRB/)  
+KAO( :, 5, 9) = (/&
+ & 3.6098E-04_JPRB,5.7696E-04_JPRB,8.8197E-04_JPRB,1.2954E-03_JPRB,1.8431E-03_JPRB/)  
+KAO( :, 6, 9) = (/&
+ & 3.4542E-04_JPRB,5.7060E-04_JPRB,8.9328E-04_JPRB,1.3402E-03_JPRB,1.9357E-03_JPRB/)  
+KAO( :, 7, 9) = (/&
+ & 3.3888E-04_JPRB,5.8373E-04_JPRB,9.4422E-04_JPRB,1.4513E-03_JPRB,2.1408E-03_JPRB/)  
+KAO( :, 8, 9) = (/&
+ & 3.7707E-04_JPRB,6.8408E-04_JPRB,1.1538E-03_JPRB,1.8357E-03_JPRB,2.7831E-03_JPRB/)  
+KAO( :, 9, 9) = (/&
+ & 7.0739E-04_JPRB,1.3735E-03_JPRB,2.4588E-03_JPRB,4.1112E-03_JPRB,6.4788E-03_JPRB/)  
+KAO( :,10, 9) = (/&
+ & 1.8575E-03_JPRB,3.8603E-03_JPRB,7.2941E-03_JPRB,1.2720E-02_JPRB,2.0839E-02_JPRB/)  
+KAO( :,11, 9) = (/&
+ & 2.9958E-03_JPRB,6.2197E-03_JPRB,1.1775E-02_JPRB,2.0597E-02_JPRB,3.3906E-02_JPRB/)  
+KAO( :,12, 9) = (/&
+ & 3.6668E-03_JPRB,7.6016E-03_JPRB,1.4363E-02_JPRB,2.5216E-02_JPRB,4.1719E-02_JPRB/)  
+KAO( :,13, 9) = (/&
+ & 3.7360E-03_JPRB,7.7341E-03_JPRB,1.4600E-02_JPRB,2.5684E-02_JPRB,4.2617E-02_JPRB/)  
+KAO( :, 1,10) = (/&
+ & 2.2204E-03_JPRB,3.1215E-03_JPRB,4.1592E-03_JPRB,5.5251E-03_JPRB,7.2462E-03_JPRB/)  
+KAO( :, 2,10) = (/&
+ & 1.8794E-03_JPRB,2.6515E-03_JPRB,3.6524E-03_JPRB,4.9115E-03_JPRB,6.4747E-03_JPRB/)  
+KAO( :, 3,10) = (/&
+ & 1.4689E-03_JPRB,2.0942E-03_JPRB,2.9433E-03_JPRB,4.0441E-03_JPRB,5.4540E-03_JPRB/)  
+KAO( :, 4,10) = (/&
+ & 1.1490E-03_JPRB,1.6495E-03_JPRB,2.3294E-03_JPRB,3.2354E-03_JPRB,4.4282E-03_JPRB/)  
+KAO( :, 5,10) = (/&
+ & 8.6570E-04_JPRB,1.3179E-03_JPRB,1.9604E-03_JPRB,2.8379E-03_JPRB,4.0441E-03_JPRB/)  
+KAO( :, 6,10) = (/&
+ & 8.5652E-04_JPRB,1.4272E-03_JPRB,2.2416E-03_JPRB,3.3643E-03_JPRB,4.8824E-03_JPRB/)  
+KAO( :, 7,10) = (/&
+ & 9.3347E-04_JPRB,1.6326E-03_JPRB,2.6435E-03_JPRB,4.0816E-03_JPRB,6.0203E-03_JPRB/)  
+KAO( :, 8,10) = (/&
+ & 1.1389E-03_JPRB,2.0806E-03_JPRB,3.5187E-03_JPRB,5.6514E-03_JPRB,8.6161E-03_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB6:PART1',1,ZHOOK_HANDLE)
+END SUBROUTINE PART1
+
+
+SUBROUTINE PART2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB6:PART2',0,ZHOOK_HANDLE)
+
+
+KAO( :, 9,10) = (/&
+ & 2.3318E-03_JPRB,4.5800E-03_JPRB,8.2437E-03_JPRB,1.3780E-02_JPRB,2.1744E-02_JPRB/)  
+KAO( :,10,10) = (/&
+ & 6.2326E-03_JPRB,1.3165E-02_JPRB,2.5232E-02_JPRB,4.4615E-02_JPRB,7.3492E-02_JPRB/)  
+KAO( :,11,10) = (/&
+ & 9.8704E-03_JPRB,2.0942E-02_JPRB,4.0187E-02_JPRB,7.0789E-02_JPRB,1.1609E-01_JPRB/)  
+KAO( :,12,10) = (/&
+ & 1.1999E-02_JPRB,2.5297E-02_JPRB,4.8337E-02_JPRB,8.4705E-02_JPRB,1.3826E-01_JPRB/)  
+KAO( :,13,10) = (/&
+ & 1.1789E-02_JPRB,2.4642E-02_JPRB,4.6747E-02_JPRB,8.1645E-02_JPRB,1.3284E-01_JPRB/)  
+KAO( :, 1,11) = (/&
+ & 3.1261E-03_JPRB,4.2813E-03_JPRB,5.7811E-03_JPRB,7.6623E-03_JPRB,1.0021E-02_JPRB/)  
+KAO( :, 2,11) = (/&
+ & 2.7730E-03_JPRB,3.9256E-03_JPRB,5.2937E-03_JPRB,7.0385E-03_JPRB,9.1561E-03_JPRB/)  
+KAO( :, 3,11) = (/&
+ & 2.2211E-03_JPRB,3.2332E-03_JPRB,4.4680E-03_JPRB,6.0516E-03_JPRB,7.9945E-03_JPRB/)  
+KAO( :, 4,11) = (/&
+ & 1.7260E-03_JPRB,2.5271E-03_JPRB,3.5974E-03_JPRB,5.0208E-03_JPRB,6.7957E-03_JPRB/)  
+KAO( :, 5,11) = (/&
+ & 1.3640E-03_JPRB,2.0174E-03_JPRB,2.8988E-03_JPRB,4.1037E-03_JPRB,5.6676E-03_JPRB/)  
+KAO( :, 6,11) = (/&
+ & 1.1158E-03_JPRB,1.8312E-03_JPRB,2.8771E-03_JPRB,4.3425E-03_JPRB,6.2982E-03_JPRB/)  
+KAO( :, 7,11) = (/&
+ & 1.2321E-03_JPRB,2.1507E-03_JPRB,3.5466E-03_JPRB,5.5748E-03_JPRB,8.3259E-03_JPRB/)  
+KAO( :, 8,11) = (/&
+ & 1.5691E-03_JPRB,2.9089E-03_JPRB,5.0376E-03_JPRB,8.1424E-03_JPRB,1.2407E-02_JPRB/)  
+KAO( :, 9,11) = (/&
+ & 3.5241E-03_JPRB,7.0356E-03_JPRB,1.2741E-02_JPRB,2.1461E-02_JPRB,3.3839E-02_JPRB/)  
+KAO( :,10,11) = (/&
+ & 1.0170E-02_JPRB,2.1914E-02_JPRB,4.2506E-02_JPRB,7.5273E-02_JPRB,1.2386E-01_JPRB/)  
+KAO( :,11,11) = (/&
+ & 1.6549E-02_JPRB,3.5671E-02_JPRB,6.9003E-02_JPRB,1.2202E-01_JPRB,2.0089E-01_JPRB/)  
+KAO( :,12,11) = (/&
+ & 2.0073E-02_JPRB,4.2914E-02_JPRB,8.2517E-02_JPRB,1.4566E-01_JPRB,2.3923E-01_JPRB/)  
+KAO( :,13,11) = (/&
+ & 1.9754E-02_JPRB,4.1795E-02_JPRB,8.0135E-02_JPRB,1.4074E-01_JPRB,2.2980E-01_JPRB/)  
+KAO( :, 1,12) = (/&
+ & 4.1564E-03_JPRB,5.9925E-03_JPRB,8.3120E-03_JPRB,1.1209E-02_JPRB,1.4597E-02_JPRB/)  
+KAO( :, 2,12) = (/&
+ & 3.9567E-03_JPRB,5.4909E-03_JPRB,7.6176E-03_JPRB,1.0371E-02_JPRB,1.3856E-02_JPRB/)  
+KAO( :, 3,12) = (/&
+ & 3.3974E-03_JPRB,4.7965E-03_JPRB,6.6252E-03_JPRB,8.9930E-03_JPRB,1.2050E-02_JPRB/)  
+KAO( :, 4,12) = (/&
+ & 2.7271E-03_JPRB,4.0009E-03_JPRB,5.6537E-03_JPRB,7.7402E-03_JPRB,1.0333E-02_JPRB/)  
+KAO( :, 5,12) = (/&
+ & 2.1241E-03_JPRB,3.2132E-03_JPRB,4.6676E-03_JPRB,6.6066E-03_JPRB,9.0309E-03_JPRB/)  
+KAO( :, 6,12) = (/&
+ & 1.6495E-03_JPRB,2.5482E-03_JPRB,3.8834E-03_JPRB,5.7278E-03_JPRB,8.1979E-03_JPRB/)  
+KAO( :, 7,12) = (/&
+ & 1.5776E-03_JPRB,2.7768E-03_JPRB,4.6314E-03_JPRB,7.2948E-03_JPRB,1.0930E-02_JPRB/)  
+KAO( :, 8,12) = (/&
+ & 2.1394E-03_JPRB,4.0088E-03_JPRB,6.9630E-03_JPRB,1.1391E-02_JPRB,1.7592E-02_JPRB/)  
+KAO( :, 9,12) = (/&
+ & 5.1508E-03_JPRB,1.0419E-02_JPRB,1.9252E-02_JPRB,3.2952E-02_JPRB,5.2981E-02_JPRB/)  
+KAO( :,10,12) = (/&
+ & 1.6525E-02_JPRB,3.6418E-02_JPRB,7.1731E-02_JPRB,1.2850E-01_JPRB,2.1301E-01_JPRB/)  
+KAO( :,11,12) = (/&
+ & 2.8843E-02_JPRB,6.3252E-02_JPRB,1.2384E-01_JPRB,2.2076E-01_JPRB,3.6471E-01_JPRB/)  
+KAO( :,12,12) = (/&
+ & 3.6629E-02_JPRB,7.9908E-02_JPRB,1.5563E-01_JPRB,2.7617E-01_JPRB,4.5458E-01_JPRB/)  
+KAO( :,13,12) = (/&
+ & 3.6750E-02_JPRB,7.9425E-02_JPRB,1.5346E-01_JPRB,2.7137E-01_JPRB,4.4636E-01_JPRB/)  
+KAO( :, 1,13) = (/&
+ & 6.2842E-03_JPRB,8.5901E-03_JPRB,1.1770E-02_JPRB,1.5848E-02_JPRB,2.1231E-02_JPRB/)  
+KAO( :, 2,13) = (/&
+ & 5.8832E-03_JPRB,8.3961E-03_JPRB,1.1688E-02_JPRB,1.5821E-02_JPRB,2.1081E-02_JPRB/)  
+KAO( :, 3,13) = (/&
+ & 5.0693E-03_JPRB,7.3487E-03_JPRB,1.0502E-02_JPRB,1.4654E-02_JPRB,1.9671E-02_JPRB/)  
+KAO( :, 4,13) = (/&
+ & 4.3064E-03_JPRB,6.2164E-03_JPRB,8.9638E-03_JPRB,1.2692E-02_JPRB,1.7434E-02_JPRB/)  
+KAO( :, 5,13) = (/&
+ & 3.5860E-03_JPRB,5.3245E-03_JPRB,7.6791E-03_JPRB,1.0860E-02_JPRB,1.5079E-02_JPRB/)  
+KAO( :, 6,13) = (/&
+ & 2.8314E-03_JPRB,4.3212E-03_JPRB,6.4657E-03_JPRB,9.2062E-03_JPRB,1.2862E-02_JPRB/)  
+KAO( :, 7,13) = (/&
+ & 2.2377E-03_JPRB,3.6343E-03_JPRB,5.9331E-03_JPRB,9.1864E-03_JPRB,1.3701E-02_JPRB/)  
+KAO( :, 8,13) = (/&
+ & 2.8263E-03_JPRB,5.3372E-03_JPRB,9.3113E-03_JPRB,1.5184E-02_JPRB,2.3750E-02_JPRB/)  
+KAO( :, 9,13) = (/&
+ & 7.1632E-03_JPRB,1.4853E-02_JPRB,2.8075E-02_JPRB,4.9370E-02_JPRB,8.0768E-02_JPRB/)  
+KAO( :,10,13) = (/&
+ & 2.5324E-02_JPRB,5.6755E-02_JPRB,1.1356E-01_JPRB,2.0699E-01_JPRB,3.4818E-01_JPRB/)  
+KAO( :,11,13) = (/&
+ & 4.7551E-02_JPRB,1.0638E-01_JPRB,2.1201E-01_JPRB,3.8439E-01_JPRB,6.4430E-01_JPRB/)  
+KAO( :,12,13) = (/&
+ & 6.5536E-02_JPRB,1.4596E-01_JPRB,2.8971E-01_JPRB,5.2186E-01_JPRB,8.7097E-01_JPRB/)  
+KAO( :,13,13) = (/&
+ & 7.1040E-02_JPRB,1.5739E-01_JPRB,3.0996E-01_JPRB,5.5635E-01_JPRB,9.2532E-01_JPRB/)  
+KAO( :, 1,14) = (/&
+ & 8.9073E-03_JPRB,1.2577E-02_JPRB,1.7104E-02_JPRB,2.3298E-02_JPRB,3.0760E-02_JPRB/)  
+KAO( :, 2,14) = (/&
+ & 9.1449E-03_JPRB,1.2712E-02_JPRB,1.7315E-02_JPRB,2.3477E-02_JPRB,3.1268E-02_JPRB/)  
+KAO( :, 3,14) = (/&
+ & 8.6458E-03_JPRB,1.1907E-02_JPRB,1.6470E-02_JPRB,2.2100E-02_JPRB,2.9699E-02_JPRB/)  
+KAO( :, 4,14) = (/&
+ & 7.6642E-03_JPRB,1.0832E-02_JPRB,1.5035E-02_JPRB,2.0201E-02_JPRB,2.7549E-02_JPRB/)  
+KAO( :, 5,14) = (/&
+ & 6.6532E-03_JPRB,9.4973E-03_JPRB,1.3436E-02_JPRB,1.8486E-02_JPRB,2.5410E-02_JPRB/)  
+KAO( :, 6,14) = (/&
+ & 5.6659E-03_JPRB,8.2188E-03_JPRB,1.1655E-02_JPRB,1.6380E-02_JPRB,2.2833E-02_JPRB/)  
+KAO( :, 7,14) = (/&
+ & 4.7388E-03_JPRB,7.0553E-03_JPRB,1.0065E-02_JPRB,1.4371E-02_JPRB,2.0476E-02_JPRB/)  
+KAO( :, 8,14) = (/&
+ & 4.0074E-03_JPRB,6.9317E-03_JPRB,1.1650E-02_JPRB,1.9270E-02_JPRB,3.0109E-02_JPRB/)  
+KAO( :, 9,14) = (/&
+ & 9.4290E-03_JPRB,1.9762E-02_JPRB,3.7876E-02_JPRB,6.6863E-02_JPRB,1.1024E-01_JPRB/)  
+KAO( :,10,14) = (/&
+ & 3.5639E-02_JPRB,8.0302E-02_JPRB,1.6119E-01_JPRB,2.9567E-01_JPRB,5.0285E-01_JPRB/)  
+KAO( :,11,14) = (/&
+ & 7.0994E-02_JPRB,1.5991E-01_JPRB,3.2149E-01_JPRB,5.8889E-01_JPRB,1.0009E+00_JPRB/)  
+KAO( :,12,14) = (/&
+ & 1.0472E-01_JPRB,2.3582E-01_JPRB,4.7386E-01_JPRB,8.6654E-01_JPRB,1.4714E+00_JPRB/)  
+KAO( :,13,14) = (/&
+ & 1.2287E-01_JPRB,2.7626E-01_JPRB,5.5413E-01_JPRB,1.0143E+00_JPRB,1.7166E+00_JPRB/)  
+KAO( :, 1,15) = (/&
+ & 1.0915E-02_JPRB,1.5406E-02_JPRB,2.1787E-02_JPRB,3.0490E-02_JPRB,4.2541E-02_JPRB/)  
+KAO( :, 2,15) = (/&
+ & 1.1315E-02_JPRB,1.6166E-02_JPRB,2.2798E-02_JPRB,3.1923E-02_JPRB,4.3992E-02_JPRB/)  
+KAO( :, 3,15) = (/&
+ & 1.0941E-02_JPRB,1.5701E-02_JPRB,2.1967E-02_JPRB,3.0980E-02_JPRB,4.2137E-02_JPRB/)  
+KAO( :, 4,15) = (/&
+ & 1.0488E-02_JPRB,1.4945E-02_JPRB,2.1284E-02_JPRB,2.9684E-02_JPRB,4.1028E-02_JPRB/)  
+KAO( :, 5,15) = (/&
+ & 9.8738E-03_JPRB,1.4407E-02_JPRB,2.0449E-02_JPRB,2.8357E-02_JPRB,3.9999E-02_JPRB/)  
+KAO( :, 6,15) = (/&
+ & 8.9244E-03_JPRB,1.3460E-02_JPRB,1.9534E-02_JPRB,2.7000E-02_JPRB,3.8027E-02_JPRB/)  
+KAO( :, 7,15) = (/&
+ & 8.0056E-03_JPRB,1.2241E-02_JPRB,1.8433E-02_JPRB,2.6084E-02_JPRB,3.5910E-02_JPRB/)  
+KAO( :, 8,15) = (/&
+ & 7.2557E-03_JPRB,1.0997E-02_JPRB,1.6847E-02_JPRB,2.4941E-02_JPRB,3.5979E-02_JPRB/)  
+KAO( :, 9,15) = (/&
+ & 1.1206E-02_JPRB,2.3492E-02_JPRB,4.5074E-02_JPRB,7.9749E-02_JPRB,1.3179E-01_JPRB/)  
+KAO( :,10,15) = (/&
+ & 4.3714E-02_JPRB,9.8800E-02_JPRB,1.9893E-01_JPRB,3.6488E-01_JPRB,6.2367E-01_JPRB/)  
+KAO( :,11,15) = (/&
+ & 9.0564E-02_JPRB,2.0463E-01_JPRB,4.1227E-01_JPRB,7.5790E-01_JPRB,1.2930E+00_JPRB/)  
+KAO( :,12,15) = (/&
+ & 1.4027E-01_JPRB,3.1640E-01_JPRB,6.3737E-01_JPRB,1.1714E+00_JPRB,1.9962E+00_JPRB/)  
+KAO( :,13,15) = (/&
+ & 1.7360E-01_JPRB,3.9198E-01_JPRB,7.8920E-01_JPRB,1.4509E+00_JPRB,2.4685E+00_JPRB/)  
+KAO( :, 1,16) = (/&
+ & 1.1824E-02_JPRB,1.7312E-02_JPRB,2.6044E-02_JPRB,4.2271E-02_JPRB,6.3915E-02_JPRB/)  
+KAO( :, 2,16) = (/&
+ & 1.2333E-02_JPRB,1.8642E-02_JPRB,2.7212E-02_JPRB,4.2155E-02_JPRB,7.0740E-02_JPRB/)  
+KAO( :, 3,16) = (/&
+ & 1.1914E-02_JPRB,1.8039E-02_JPRB,2.6483E-02_JPRB,3.8087E-02_JPRB,6.0410E-02_JPRB/)  
+KAO( :, 4,16) = (/&
+ & 1.1617E-02_JPRB,1.6736E-02_JPRB,2.5551E-02_JPRB,3.7243E-02_JPRB,5.5742E-02_JPRB/)  
+KAO( :, 5,16) = (/&
+ & 1.2207E-02_JPRB,1.6058E-02_JPRB,2.3899E-02_JPRB,3.5249E-02_JPRB,5.2521E-02_JPRB/)  
+KAO( :, 6,16) = (/&
+ & 1.2552E-02_JPRB,1.6221E-02_JPRB,2.2453E-02_JPRB,3.3451E-02_JPRB,4.8959E-02_JPRB/)  
+KAO( :, 7,16) = (/&
+ & 1.2682E-02_JPRB,1.6583E-02_JPRB,2.1720E-02_JPRB,3.1647E-02_JPRB,4.6528E-02_JPRB/)  
+KAO( :, 8,16) = (/&
+ & 1.2800E-02_JPRB,1.6916E-02_JPRB,2.2044E-02_JPRB,3.0239E-02_JPRB,4.5143E-02_JPRB/)  
+KAO( :, 9,16) = (/&
+ & 1.2606E-02_JPRB,2.5371E-02_JPRB,4.8585E-02_JPRB,8.6042E-02_JPRB,1.4214E-01_JPRB/)  
+KAO( :,10,16) = (/&
+ & 4.7940E-02_JPRB,1.0811E-01_JPRB,2.1696E-01_JPRB,3.9856E-01_JPRB,6.7922E-01_JPRB/)  
+KAO( :,11,16) = (/&
+ & 1.0038E-01_JPRB,2.2692E-01_JPRB,4.5634E-01_JPRB,8.3917E-01_JPRB,1.4277E+00_JPRB/)  
+KAO( :,12,16) = (/&
+ & 1.5780E-01_JPRB,3.5540E-01_JPRB,7.1875E-01_JPRB,1.3169E+00_JPRB,2.2414E+00_JPRB/)  
+KAO( :,13,16) = (/&
+ & 1.9907E-01_JPRB,4.4847E-01_JPRB,9.0510E-01_JPRB,1.6605E+00_JPRB,2.8238E+00_JPRB/)  
+
+!     The array SELFREFO contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+SELFREFO( :, 1) = (/&
+ & 7.71391E-02_JPRB, 6.43175E-02_JPRB, 5.36271E-02_JPRB, 4.47136E-02_JPRB, 3.72816E-02_JPRB,&
+ & 3.10849E-02_JPRB, 2.59182E-02_JPRB, 2.16102E-02_JPRB, 1.80183E-02_JPRB, 1.50234E-02_JPRB/)  
+SELFREFO( :, 2) = (/&
+ & 8.39275E-02_JPRB, 7.04019E-02_JPRB, 5.90561E-02_JPRB, 4.95388E-02_JPRB, 4.15552E-02_JPRB,&
+ & 3.48583E-02_JPRB, 2.92406E-02_JPRB, 2.45283E-02_JPRB, 2.05754E-02_JPRB, 1.72595E-02_JPRB/)  
+SELFREFO( :, 3) = (/&
+ & 8.77747E-02_JPRB, 7.41411E-02_JPRB, 6.26251E-02_JPRB, 5.28978E-02_JPRB, 4.46814E-02_JPRB,&
+ & 3.77413E-02_JPRB, 3.18791E-02_JPRB, 2.69275E-02_JPRB, 2.27449E-02_JPRB, 1.92121E-02_JPRB/)  
+SELFREFO( :, 4) = (/&
+ & 9.35855E-02_JPRB, 7.94116E-02_JPRB, 6.73843E-02_JPRB, 5.71787E-02_JPRB, 4.85187E-02_JPRB,&
+ & 4.11704E-02_JPRB, 3.49349E-02_JPRB, 2.96439E-02_JPRB, 2.51542E-02_JPRB, 2.13445E-02_JPRB/)  
+SELFREFO( :, 5) = (/&
+ & 9.31058E-02_JPRB, 7.97629E-02_JPRB, 6.83321E-02_JPRB, 5.85395E-02_JPRB, 5.01503E-02_JPRB,&
+ & 4.29633E-02_JPRB, 3.68062E-02_JPRB, 3.15316E-02_JPRB, 2.70128E-02_JPRB, 2.31416E-02_JPRB/)  
+SELFREFO( :, 6) = (/&
+ & 7.92454E-02_JPRB, 7.03070E-02_JPRB, 6.23769E-02_JPRB, 5.53412E-02_JPRB, 4.90991E-02_JPRB,&
+ & 4.35611E-02_JPRB, 3.86477E-02_JPRB, 3.42885E-02_JPRB, 3.04210E-02_JPRB, 2.69898E-02_JPRB/)  
+SELFREFO( :, 7) = (/&
+ & 7.29322E-02_JPRB, 6.57740E-02_JPRB, 5.93183E-02_JPRB, 5.34963E-02_JPRB, 4.82457E-02_JPRB,&
+ & 4.35104E-02_JPRB, 3.92399E-02_JPRB, 3.53886E-02_JPRB, 3.19152E-02_JPRB, 2.87828E-02_JPRB/)  
+SELFREFO( :, 8) = (/&
+ & 7.53680E-02_JPRB, 6.63817E-02_JPRB, 5.84669E-02_JPRB, 5.14958E-02_JPRB, 4.53558E-02_JPRB,&
+ & 3.99480E-02_JPRB, 3.51849E-02_JPRB, 3.09897E-02_JPRB, 2.72948E-02_JPRB, 2.40404E-02_JPRB/)  
+SELFREFO( :, 9) = (/&
+ & 7.17087E-02_JPRB, 6.34545E-02_JPRB, 5.61505E-02_JPRB, 4.96871E-02_JPRB, 4.39678E-02_JPRB,&
+ & 3.89068E-02_JPRB, 3.44283E-02_JPRB, 3.04654E-02_JPRB, 2.69586E-02_JPRB, 2.38554E-02_JPRB/)  
+SELFREFO( :,10) = (/&
+ & 7.20376E-02_JPRB, 6.42071E-02_JPRB, 5.72277E-02_JPRB, 5.10070E-02_JPRB, 4.54625E-02_JPRB,&
+ & 4.05207E-02_JPRB, 3.61161E-02_JPRB, 3.21903E-02_JPRB, 2.86912E-02_JPRB, 2.55724E-02_JPRB/)  
+SELFREFO( :,11) = (/&
+ & 8.56200E-02_JPRB, 7.44248E-02_JPRB, 6.46934E-02_JPRB, 5.62344E-02_JPRB, 4.88815E-02_JPRB,&
+ & 4.24900E-02_JPRB, 3.69342E-02_JPRB, 3.21049E-02_JPRB, 2.79070E-02_JPRB, 2.42581E-02_JPRB/)  
+SELFREFO( :,12) = (/&
+ & 9.30364E-02_JPRB, 8.00633E-02_JPRB, 6.88992E-02_JPRB, 5.92918E-02_JPRB, 5.10240E-02_JPRB,&
+ & 4.39092E-02_JPRB, 3.77864E-02_JPRB, 3.25174E-02_JPRB, 2.79832E-02_JPRB, 2.40811E-02_JPRB/)  
+SELFREFO( :,13) = (/&
+ & 9.58838E-02_JPRB, 8.17150E-02_JPRB, 6.96399E-02_JPRB, 5.93492E-02_JPRB, 5.05792E-02_JPRB,&
+ & 4.31051E-02_JPRB, 3.67354E-02_JPRB, 3.13070E-02_JPRB, 2.66808E-02_JPRB, 2.27381E-02_JPRB/)  
+SELFREFO( :,14) = (/&
+ & 8.92791E-02_JPRB, 7.69435E-02_JPRB, 6.63123E-02_JPRB, 5.71500E-02_JPRB, 4.92536E-02_JPRB,&
+ & 4.24483E-02_JPRB, 3.65833E-02_JPRB, 3.15286E-02_JPRB, 2.71723E-02_JPRB, 2.34179E-02_JPRB/)  
+SELFREFO( :,15) = (/&
+ & 9.09947E-02_JPRB, 7.81455E-02_JPRB, 6.71107E-02_JPRB, 5.76340E-02_JPRB, 4.94956E-02_JPRB,&
+ & 4.25064E-02_JPRB, 3.65041E-02_JPRB, 3.13494E-02_JPRB, 2.69226E-02_JPRB, 2.31209E-02_JPRB/)  
+SELFREFO( :,16) = (/&
+ & 7.99990E-02_JPRB, 7.02289E-02_JPRB, 6.16519E-02_JPRB, 5.41224E-02_JPRB, 4.75125E-02_JPRB,&
+ & 4.17099E-02_JPRB, 3.66159E-02_JPRB, 3.21440E-02_JPRB, 2.82183E-02_JPRB, 2.47720E-02_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB6:PART2',1,ZHOOK_HANDLE)
+END SUBROUTINE PART2
+
+
+END SUBROUTINE RRTM_KGB6
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb6.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb6.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb6.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_KGB6
+END SUBROUTINE RRTM_KGB6
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb7.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb7.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb7.F90	(revision 1989)
@@ -0,0 +1,5011 @@
+!OCL SCALAR
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0 
+SUBROUTINE RRTM_KGB7
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 7:  980-1080 cm-1 (low - H2O,O3; high - O3)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     R. Elkhatib 12-10-2005 Split for faster and more robust compilation.
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO7 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+ & FRACREFBO  ,ABSCO2O  
+USE YOERRTA7 , ONLY : STRRAT
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7',0,ZHOOK_HANDLE)
+
+CALL PART1
+CALL PART2
+CALL PART3
+CALL PART4
+CALL PART5
+CALL PART6
+CALL PART7
+CALL PART8
+CALL PART9
+CALL PART10
+CALL PART11
+CALL PART12
+CALL PART13
+CALL PART14
+CALL PART15
+CALL PART16
+CALL PART17
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7',1,ZHOOK_HANDLE)
+
+!     -----------------------------------------------------------------
+
+CONTAINS
+
+
+SUBROUTINE PART1
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART1',0,ZHOOK_HANDLE)
+
+
+FRACREFBO( :) = (/&
+ & 0.15355594_JPRB,0.15310939_JPRB,0.14274909_JPRB,0.13129812_JPRB,&
+ & 0.11736792_JPRB,0.10118213_JPRB,0.08215259_JPRB,0.06165591_JPRB,&
+ & 0.04164486_JPRB,0.00451141_JPRB,0.00372837_JPRB,0.00294095_JPRB,&
+ & 0.00215259_JPRB,0.00136792_JPRB,0.00051233_JPRB,0.00007075_JPRB/)  
+
+ABSCO2O( :) = (/&
+ & 9.30038E-05_JPRB, 1.74061E-04_JPRB, 2.09293E-04_JPRB, 2.52360E-04_JPRB,&
+ & 3.13404E-04_JPRB, 4.16619E-04_JPRB, 6.27394E-04_JPRB, 1.29386E-03_JPRB,&
+ & 4.05192E-03_JPRB, 3.97050E-03_JPRB, 7.00634E-04_JPRB, 6.06617E-04_JPRB,&
+ & 7.66978E-04_JPRB, 6.70661E-04_JPRB, 7.89971E-04_JPRB, 7.55709E-04_JPRB/)  
+
+STRRAT = 8.21104E+04_JPRB
+
+!     ------------------------------------------------------------------
+
+!     The array KAO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels> ~100mb, temperatures, and binary
+!     species parameters (see taumol.f for definition).  The first 
+!     index in the array, JS, runs from 1 to 9, and corresponds to 
+!     different values of the binary species parameter.  For instance, 
+!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, 
+!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index
+!     in the array, JT, which runs from 1 to 5, corresponds to different
+!     temperatures.  More specifically, JT = 3 means that the data are for
+!     the reference temperature TREF for this  pressure level, JT = 2 refers
+!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the JPth reference pressure level (see taumol.f for these levels
+!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates
+!     which g-interval the absorption coefficients are for.
+
+KAO( :, 1, 1, 1) = (/&
+ & 2.2177E-05_JPRB,2.0513E-05_JPRB,1.8414E-05_JPRB,1.6282E-05_JPRB,1.4597E-05_JPRB,1.7000E-05_JPRB,&
+ & 3.1783E-05_JPRB,2.9548E-05_JPRB,2.0326E-05_JPRB/)  
+KAO( :, 2, 1, 1) = (/&
+ & 2.9476E-05_JPRB,2.7495E-05_JPRB,2.4720E-05_JPRB,2.1727E-05_JPRB,1.8690E-05_JPRB,1.6642E-05_JPRB,&
+ & 2.2418E-05_JPRB,3.4177E-05_JPRB,1.9700E-05_JPRB/)  
+KAO( :, 3, 1, 1) = (/&
+ & 3.7965E-05_JPRB,3.5737E-05_JPRB,3.2254E-05_JPRB,2.8364E-05_JPRB,2.4321E-05_JPRB,2.0140E-05_JPRB,&
+ & 1.9338E-05_JPRB,3.5856E-05_JPRB,1.9799E-05_JPRB/)  
+KAO( :, 4, 1, 1) = (/&
+ & 4.7589E-05_JPRB,4.5238E-05_JPRB,4.1024E-05_JPRB,3.6253E-05_JPRB,3.0918E-05_JPRB,2.5365E-05_JPRB,&
+ & 2.0061E-05_JPRB,3.1406E-05_JPRB,1.8985E-05_JPRB/)  
+KAO( :, 5, 1, 1) = (/&
+ & 5.8133E-05_JPRB,5.5835E-05_JPRB,5.0877E-05_JPRB,4.5058E-05_JPRB,3.8486E-05_JPRB,3.1429E-05_JPRB,&
+ & 2.4355E-05_JPRB,2.3465E-05_JPRB,1.9414E-05_JPRB/)  
+KAO( :, 1, 2, 1) = (/&
+ & 1.7361E-05_JPRB,1.6018E-05_JPRB,1.4350E-05_JPRB,1.2700E-05_JPRB,1.2303E-05_JPRB,1.7164E-05_JPRB,&
+ & 3.1474E-05_JPRB,2.4947E-05_JPRB,1.4706E-05_JPRB/)  
+KAO( :, 2, 2, 1) = (/&
+ & 2.3361E-05_JPRB,2.1726E-05_JPRB,1.9465E-05_JPRB,1.7053E-05_JPRB,1.4815E-05_JPRB,1.4858E-05_JPRB,&
+ & 2.3603E-05_JPRB,2.7767E-05_JPRB,1.5833E-05_JPRB/)  
+KAO( :, 3, 2, 1) = (/&
+ & 3.0408E-05_JPRB,2.8494E-05_JPRB,2.5606E-05_JPRB,2.2430E-05_JPRB,1.9084E-05_JPRB,1.6104E-05_JPRB,&
+ & 1.8012E-05_JPRB,3.1460E-05_JPRB,1.6197E-05_JPRB/)  
+KAO( :, 4, 2, 1) = (/&
+ & 3.8408E-05_JPRB,3.6296E-05_JPRB,3.2790E-05_JPRB,2.8865E-05_JPRB,2.4498E-05_JPRB,1.9967E-05_JPRB,&
+ & 1.6925E-05_JPRB,3.2098E-05_JPRB,1.4117E-05_JPRB/)  
+KAO( :, 5, 2, 1) = (/&
+ & 4.7278E-05_JPRB,4.5107E-05_JPRB,4.0996E-05_JPRB,3.6211E-05_JPRB,3.0776E-05_JPRB,2.4989E-05_JPRB,&
+ & 1.9312E-05_JPRB,2.3551E-05_JPRB,1.4164E-05_JPRB/)  
+KAO( :, 1, 3, 1) = (/&
+ & 1.2199E-05_JPRB,1.1359E-05_JPRB,1.0200E-05_JPRB,9.6275E-06_JPRB,1.2031E-05_JPRB,1.8466E-05_JPRB,&
+ & 2.2967E-05_JPRB,2.1740E-05_JPRB,1.1424E-05_JPRB/)  
+KAO( :, 2, 3, 1) = (/&
+ & 1.6733E-05_JPRB,1.5628E-05_JPRB,1.3980E-05_JPRB,1.2308E-05_JPRB,1.1642E-05_JPRB,1.5244E-05_JPRB,&
+ & 2.7219E-05_JPRB,2.2185E-05_JPRB,1.1890E-05_JPRB/)  
+KAO( :, 3, 3, 1) = (/&
+ & 2.2207E-05_JPRB,2.0825E-05_JPRB,1.8647E-05_JPRB,1.6328E-05_JPRB,1.4051E-05_JPRB,1.3615E-05_JPRB,&
+ & 2.0537E-05_JPRB,2.5366E-05_JPRB,1.0328E-05_JPRB/)  
+KAO( :, 4, 3, 1) = (/&
+ & 2.8575E-05_JPRB,2.6953E-05_JPRB,2.4203E-05_JPRB,2.1170E-05_JPRB,1.7963E-05_JPRB,1.5129E-05_JPRB,&
+ & 1.6245E-05_JPRB,2.7906E-05_JPRB,8.9114E-06_JPRB/)  
+KAO( :, 5, 3, 1) = (/&
+ & 3.5718E-05_JPRB,3.3927E-05_JPRB,3.0634E-05_JPRB,2.6847E-05_JPRB,2.2736E-05_JPRB,1.8593E-05_JPRB,&
+ & 1.5444E-05_JPRB,2.7715E-05_JPRB,7.5424E-06_JPRB/)  
+KAO( :, 1, 4, 1) = (/&
+ & 8.2740E-06_JPRB,7.8120E-06_JPRB,7.3229E-06_JPRB,7.9409E-06_JPRB,1.1817E-05_JPRB,2.0000E-05_JPRB,&
+ & 1.7036E-05_JPRB,1.6859E-05_JPRB,8.3202E-06_JPRB/)  
+KAO( :, 2, 4, 1) = (/&
+ & 1.1549E-05_JPRB,1.0930E-05_JPRB,9.8917E-06_JPRB,9.2790E-06_JPRB,1.0972E-05_JPRB,1.6368E-05_JPRB,&
+ & 2.0889E-05_JPRB,1.9211E-05_JPRB,7.1922E-06_JPRB/)  
+KAO( :, 3, 4, 1) = (/&
+ & 1.5581E-05_JPRB,1.4791E-05_JPRB,1.3288E-05_JPRB,1.1769E-05_JPRB,1.1067E-05_JPRB,1.3703E-05_JPRB,&
+ & 2.3763E-05_JPRB,1.9912E-05_JPRB,5.4002E-06_JPRB/)  
+KAO( :, 4, 4, 1) = (/&
+ & 2.0367E-05_JPRB,1.9416E-05_JPRB,1.7464E-05_JPRB,1.5301E-05_JPRB,1.3238E-05_JPRB,1.2747E-05_JPRB,&
+ & 1.8197E-05_JPRB,2.2927E-05_JPRB,4.7781E-06_JPRB/)  
+KAO( :, 5, 4, 1) = (/&
+ & 2.5890E-05_JPRB,2.4787E-05_JPRB,2.2347E-05_JPRB,1.9553E-05_JPRB,1.6603E-05_JPRB,1.3957E-05_JPRB,&
+ & 1.4873E-05_JPRB,2.4745E-05_JPRB,6.3734E-06_JPRB/)  
+KAO( :, 1, 5, 1) = (/&
+ & 5.5869E-06_JPRB,5.3398E-06_JPRB,5.3975E-06_JPRB,7.5444E-06_JPRB,1.2793E-05_JPRB,1.5045E-05_JPRB,&
+ & 1.3730E-05_JPRB,1.2376E-05_JPRB,4.7266E-06_JPRB/)  
+KAO( :, 2, 5, 1) = (/&
+ & 7.8874E-06_JPRB,7.5569E-06_JPRB,7.0693E-06_JPRB,7.4130E-06_JPRB,1.0864E-05_JPRB,1.7853E-05_JPRB,&
+ & 1.5643E-05_JPRB,1.6221E-05_JPRB,3.5143E-06_JPRB/)  
+KAO( :, 3, 5, 1) = (/&
+ & 1.0780E-05_JPRB,1.0380E-05_JPRB,9.4898E-06_JPRB,8.8724E-06_JPRB,9.9994E-06_JPRB,1.4704E-05_JPRB,&
+ & 1.8972E-05_JPRB,1.7347E-05_JPRB,2.8694E-06_JPRB/)  
+KAO( :, 4, 5, 1) = (/&
+ & 1.4284E-05_JPRB,1.3812E-05_JPRB,1.2569E-05_JPRB,1.1246E-05_JPRB,1.0513E-05_JPRB,1.2455E-05_JPRB,&
+ & 2.1138E-05_JPRB,1.8036E-05_JPRB,3.9174E-06_JPRB/)  
+KAO( :, 5, 5, 1) = (/&
+ & 1.8381E-05_JPRB,1.7863E-05_JPRB,1.6238E-05_JPRB,1.4332E-05_JPRB,1.2479E-05_JPRB,1.1807E-05_JPRB,&
+ & 1.6766E-05_JPRB,2.0636E-05_JPRB,5.6357E-06_JPRB/)  
+KAO( :, 1, 6, 1) = (/&
+ & 3.7614E-06_JPRB,3.6612E-06_JPRB,4.2770E-06_JPRB,7.9260E-06_JPRB,1.2929E-05_JPRB,1.1264E-05_JPRB,&
+ & 1.2098E-05_JPRB,9.0224E-06_JPRB,2.4844E-06_JPRB/)  
+KAO( :, 2, 6, 1) = (/&
+ & 5.3574E-06_JPRB,5.1717E-06_JPRB,5.1909E-06_JPRB,6.9736E-06_JPRB,1.1707E-05_JPRB,1.3896E-05_JPRB,&
+ & 1.2589E-05_JPRB,1.2103E-05_JPRB,1.8407E-06_JPRB/)  
+KAO( :, 3, 6, 1) = (/&
+ & 7.3957E-06_JPRB,7.1617E-06_JPRB,6.7263E-06_JPRB,7.0062E-06_JPRB,1.0148E-05_JPRB,1.6269E-05_JPRB,&
+ & 1.4268E-05_JPRB,1.5386E-05_JPRB,2.1237E-06_JPRB/)  
+KAO( :, 4, 6, 1) = (/&
+ & 9.9154E-06_JPRB,9.6620E-06_JPRB,8.9048E-06_JPRB,8.3244E-06_JPRB,9.2342E-06_JPRB,1.3655E-05_JPRB,&
+ & 1.7166E-05_JPRB,1.5743E-05_JPRB,3.1741E-06_JPRB/)  
+KAO( :, 5, 6, 1) = (/&
+ & 1.2917E-05_JPRB,1.2663E-05_JPRB,1.1620E-05_JPRB,1.0475E-05_JPRB,9.8347E-06_JPRB,1.1480E-05_JPRB,&
+ & 1.8999E-05_JPRB,1.6296E-05_JPRB,4.8288E-06_JPRB/)  
+KAO( :, 1, 7, 1) = (/&
+ & 2.5698E-06_JPRB,2.6225E-06_JPRB,4.3229E-06_JPRB,9.1260E-06_JPRB,9.6331E-06_JPRB,9.4890E-06_JPRB,&
+ & 8.7898E-06_JPRB,6.9652E-06_JPRB,1.3336E-06_JPRB/)  
+KAO( :, 2, 7, 1) = (/&
+ & 3.6949E-06_JPRB,3.6079E-06_JPRB,4.1418E-06_JPRB,7.5616E-06_JPRB,1.2142E-05_JPRB,1.0521E-05_JPRB,&
+ & 1.1728E-05_JPRB,8.9866E-06_JPRB,1.2052E-06_JPRB/)  
+KAO( :, 3, 7, 1) = (/&
+ & 5.1506E-06_JPRB,5.0082E-06_JPRB,4.9832E-06_JPRB,6.5372E-06_JPRB,1.0639E-05_JPRB,1.2818E-05_JPRB,&
+ & 1.1491E-05_JPRB,1.1845E-05_JPRB,1.7476E-06_JPRB/)  
+KAO( :, 4, 7, 1) = (/&
+ & 6.9721E-06_JPRB,6.8111E-06_JPRB,6.4221E-06_JPRB,6.6314E-06_JPRB,9.5364E-06_JPRB,1.4735E-05_JPRB,&
+ & 1.3056E-05_JPRB,1.4613E-05_JPRB,2.7527E-06_JPRB/)  
+KAO( :, 5, 7, 1) = (/&
+ & 9.1741E-06_JPRB,9.0313E-06_JPRB,8.3715E-06_JPRB,7.8432E-06_JPRB,8.4495E-06_JPRB,1.2715E-05_JPRB,&
+ & 1.5629E-05_JPRB,1.4305E-05_JPRB,4.3096E-06_JPRB/)  
+KAO( :, 1, 8, 1) = (/&
+ & 1.7756E-06_JPRB,2.0634E-06_JPRB,5.0880E-06_JPRB,8.2373E-06_JPRB,7.8177E-06_JPRB,7.9286E-06_JPRB,&
+ & 6.3775E-06_JPRB,5.4113E-06_JPRB,9.3762E-07_JPRB/)  
+KAO( :, 2, 8, 1) = (/&
+ & 2.5589E-06_JPRB,2.6026E-06_JPRB,4.1994E-06_JPRB,8.7611E-06_JPRB,9.1501E-06_JPRB,8.9485E-06_JPRB,&
+ & 8.8743E-06_JPRB,7.1784E-06_JPRB,1.1824E-06_JPRB/)  
+KAO( :, 3, 8, 1) = (/&
+ & 3.5966E-06_JPRB,3.5351E-06_JPRB,4.0408E-06_JPRB,7.3057E-06_JPRB,1.1311E-05_JPRB,9.8836E-06_JPRB,&
+ & 1.0943E-05_JPRB,9.1050E-06_JPRB,1.7854E-06_JPRB/)  
+KAO( :, 4, 8, 1) = (/&
+ & 4.9051E-06_JPRB,4.8155E-06_JPRB,4.7641E-06_JPRB,6.2802E-06_JPRB,1.0233E-05_JPRB,1.1811E-05_JPRB,&
+ & 1.0660E-05_JPRB,1.1545E-05_JPRB,2.8335E-06_JPRB/)  
+KAO( :, 5, 8, 1) = (/&
+ & 6.5079E-06_JPRB,6.4275E-06_JPRB,6.0806E-06_JPRB,6.2850E-06_JPRB,8.9855E-06_JPRB,1.3690E-05_JPRB,&
+ & 1.2091E-05_JPRB,1.3991E-05_JPRB,4.4905E-06_JPRB/)  
+KAO( :, 1, 9, 1) = (/&
+ & 1.2486E-06_JPRB,2.0772E-06_JPRB,6.3261E-06_JPRB,6.5239E-06_JPRB,6.7379E-06_JPRB,5.7685E-06_JPRB,&
+ & 4.7923E-06_JPRB,4.4775E-06_JPRB,2.0431E-06_JPRB/)  
+KAO( :, 2, 9, 1) = (/&
+ & 1.8028E-06_JPRB,2.0516E-06_JPRB,4.9892E-06_JPRB,7.9160E-06_JPRB,7.4534E-06_JPRB,8.0589E-06_JPRB,&
+ & 6.6119E-06_JPRB,5.7051E-06_JPRB,2.4856E-06_JPRB/)  
+KAO( :, 3, 9, 1) = (/&
+ & 2.5445E-06_JPRB,2.5819E-06_JPRB,4.1305E-06_JPRB,8.3727E-06_JPRB,8.7276E-06_JPRB,8.5620E-06_JPRB,&
+ & 8.8118E-06_JPRB,7.4196E-06_JPRB,3.4314E-06_JPRB/)  
+KAO( :, 4, 9, 1) = (/&
+ & 3.4959E-06_JPRB,3.4634E-06_JPRB,3.9749E-06_JPRB,7.0571E-06_JPRB,1.0574E-05_JPRB,9.2822E-06_JPRB,&
+ & 1.0319E-05_JPRB,9.2300E-06_JPRB,5.1599E-06_JPRB/)  
+KAO( :, 5, 9, 1) = (/&
+ & 4.6733E-06_JPRB,4.6321E-06_JPRB,4.5821E-06_JPRB,6.0749E-06_JPRB,9.9333E-06_JPRB,1.0979E-05_JPRB,&
+ & 1.0111E-05_JPRB,1.1271E-05_JPRB,8.0274E-06_JPRB/)  
+KAO( :, 1,10, 1) = (/&
+ & 9.1025E-07_JPRB,2.4528E-06_JPRB,5.5726E-06_JPRB,5.5107E-06_JPRB,5.1975E-06_JPRB,4.4519E-06_JPRB,&
+ & 3.8745E-06_JPRB,3.7574E-06_JPRB,7.2814E-06_JPRB/)  
+KAO( :, 2,10, 1) = (/&
+ & 1.3156E-06_JPRB,2.0527E-06_JPRB,6.2782E-06_JPRB,6.4430E-06_JPRB,6.8843E-06_JPRB,6.1546E-06_JPRB,&
+ & 5.1800E-06_JPRB,4.8780E-06_JPRB,8.0238E-06_JPRB/)  
+KAO( :, 3,10, 1) = (/&
+ & 1.8603E-06_JPRB,2.0830E-06_JPRB,5.0693E-06_JPRB,7.7258E-06_JPRB,7.2719E-06_JPRB,8.2740E-06_JPRB,&
+ & 6.9520E-06_JPRB,6.2927E-06_JPRB,9.9400E-06_JPRB/)  
+KAO( :, 4,10, 1) = (/&
+ & 2.5643E-06_JPRB,2.6119E-06_JPRB,4.1284E-06_JPRB,8.2194E-06_JPRB,8.3768E-06_JPRB,8.2923E-06_JPRB,&
+ & 8.9244E-06_JPRB,7.7919E-06_JPRB,1.3755E-05_JPRB/)  
+KAO( :, 5,10, 1) = (/&
+ & 3.4396E-06_JPRB,3.4402E-06_JPRB,3.9520E-06_JPRB,6.9781E-06_JPRB,9.9688E-06_JPRB,8.9208E-06_JPRB,&
+ & 1.0073E-05_JPRB,9.4585E-06_JPRB,2.0482E-05_JPRB/)  
+KAO( :, 1,11, 1) = (/&
+ & 7.9990E-07_JPRB,2.6784E-06_JPRB,5.0182E-06_JPRB,5.2703E-06_JPRB,4.7427E-06_JPRB,4.1219E-06_JPRB,&
+ & 3.7030E-06_JPRB,3.7980E-06_JPRB,1.0212E-05_JPRB/)  
+KAO( :, 2,11, 1) = (/&
+ & 1.1506E-06_JPRB,2.1675E-06_JPRB,6.1676E-06_JPRB,5.9511E-06_JPRB,6.4671E-06_JPRB,5.5707E-06_JPRB,&
+ & 4.8102E-06_JPRB,4.7946E-06_JPRB,1.1170E-05_JPRB/)  
+KAO( :, 3,11, 1) = (/&
+ & 1.6161E-06_JPRB,1.9795E-06_JPRB,5.4689E-06_JPRB,6.8567E-06_JPRB,6.9277E-06_JPRB,7.3643E-06_JPRB,&
+ & 6.3255E-06_JPRB,6.0154E-06_JPRB,1.3679E-05_JPRB/)  
+KAO( :, 4,11, 1) = (/&
+ & 2.2097E-06_JPRB,2.3135E-06_JPRB,4.4934E-06_JPRB,8.2433E-06_JPRB,7.5005E-06_JPRB,8.0757E-06_JPRB,&
+ & 8.0043E-06_JPRB,7.4062E-06_JPRB,1.8725E-05_JPRB/)  
+KAO( :, 5,11, 1) = (/&
+ & 2.9383E-06_JPRB,2.9710E-06_JPRB,3.8010E-06_JPRB,7.4323E-06_JPRB,8.7355E-06_JPRB,8.0970E-06_JPRB,&
+ & 9.6640E-06_JPRB,8.8290E-06_JPRB,2.7664E-05_JPRB/)  
+KAO( :, 1,12, 1) = (/&
+ & 7.0941E-07_JPRB,2.6297E-06_JPRB,4.5700E-06_JPRB,4.9667E-06_JPRB,4.3747E-06_JPRB,3.8263E-06_JPRB,&
+ & 3.4506E-06_JPRB,3.6352E-06_JPRB,1.0764E-05_JPRB/)  
+KAO( :, 2,12, 1) = (/&
+ & 1.0191E-06_JPRB,2.0344E-06_JPRB,5.5461E-06_JPRB,5.4627E-06_JPRB,5.8842E-06_JPRB,5.0801E-06_JPRB,&
+ & 4.4391E-06_JPRB,4.4109E-06_JPRB,1.1741E-05_JPRB/)  
+KAO( :, 3,12, 1) = (/&
+ & 1.4279E-06_JPRB,1.8013E-06_JPRB,5.3154E-06_JPRB,6.1728E-06_JPRB,6.3556E-06_JPRB,6.6152E-06_JPRB,&
+ & 5.7465E-06_JPRB,5.5323E-06_JPRB,1.4320E-05_JPRB/)  
+KAO( :, 4,12, 1) = (/&
+ & 1.9430E-06_JPRB,2.0642E-06_JPRB,4.3928E-06_JPRB,7.3526E-06_JPRB,6.7817E-06_JPRB,7.5948E-06_JPRB,&
+ & 7.1609E-06_JPRB,6.7682E-06_JPRB,1.9523E-05_JPRB/)  
+KAO( :, 5,12, 1) = (/&
+ & 2.5711E-06_JPRB,2.6172E-06_JPRB,3.5411E-06_JPRB,7.1217E-06_JPRB,7.7996E-06_JPRB,7.3436E-06_JPRB,&
+ & 8.5622E-06_JPRB,7.9225E-06_JPRB,2.8755E-05_JPRB/)  
+KAO( :, 1,13, 1) = (/&
+ & 6.2420E-07_JPRB,2.5595E-06_JPRB,4.1789E-06_JPRB,4.5948E-06_JPRB,4.0362E-06_JPRB,3.5472E-06_JPRB,&
+ & 3.2436E-06_JPRB,3.4107E-06_JPRB,9.1608E-06_JPRB/)  
+KAO( :, 2,13, 1) = (/&
+ & 8.9615E-07_JPRB,1.9079E-06_JPRB,4.9940E-06_JPRB,5.0423E-06_JPRB,5.3353E-06_JPRB,4.6287E-06_JPRB,&
+ & 4.1017E-06_JPRB,4.1244E-06_JPRB,9.9901E-06_JPRB/)  
+KAO( :, 3,13, 1) = (/&
+ & 1.2529E-06_JPRB,1.6490E-06_JPRB,5.1498E-06_JPRB,5.5689E-06_JPRB,5.8865E-06_JPRB,5.9318E-06_JPRB,&
+ & 5.1860E-06_JPRB,5.1003E-06_JPRB,1.2178E-05_JPRB/)  
+KAO( :, 4,13, 1) = (/&
+ & 1.6987E-06_JPRB,1.8380E-06_JPRB,4.2684E-06_JPRB,6.5744E-06_JPRB,6.1601E-06_JPRB,7.0815E-06_JPRB,&
+ & 6.4247E-06_JPRB,6.1421E-06_JPRB,1.6600E-05_JPRB/)  
+KAO( :, 5,13, 1) = (/&
+ & 2.2352E-06_JPRB,2.2950E-06_JPRB,3.3070E-06_JPRB,6.8297E-06_JPRB,6.9887E-06_JPRB,6.7633E-06_JPRB,&
+ & 7.6284E-06_JPRB,7.1420E-06_JPRB,2.4442E-05_JPRB/)  
+KAO( :, 1, 1, 2) = (/&
+ & 5.4151E-05_JPRB,5.1620E-05_JPRB,4.7151E-05_JPRB,4.1642E-05_JPRB,3.5398E-05_JPRB,2.6235E-05_JPRB,&
+ & 2.1071E-05_JPRB,5.8698E-05_JPRB,2.4321E-05_JPRB/)  
+KAO( :, 2, 1, 2) = (/&
+ & 6.7514E-05_JPRB,6.4760E-05_JPRB,5.9233E-05_JPRB,5.2524E-05_JPRB,4.5074E-05_JPRB,3.6408E-05_JPRB,&
+ & 2.4335E-05_JPRB,5.6829E-05_JPRB,2.7514E-05_JPRB/)  
+KAO( :, 3, 1, 2) = (/&
+ & 8.2149E-05_JPRB,7.9291E-05_JPRB,7.2593E-05_JPRB,6.4606E-05_JPRB,5.5728E-05_JPRB,4.6152E-05_JPRB,&
+ & 3.4241E-05_JPRB,4.5420E-05_JPRB,2.4336E-05_JPRB/)  
+KAO( :, 4, 1, 2) = (/&
+ & 9.7723E-05_JPRB,9.4880E-05_JPRB,8.7232E-05_JPRB,7.7947E-05_JPRB,6.7833E-05_JPRB,5.6842E-05_JPRB,&
+ & 4.4766E-05_JPRB,2.6532E-05_JPRB,2.9870E-05_JPRB/)  
+KAO( :, 5, 1, 2) = (/&
+ & 1.1394E-04_JPRB,1.1139E-04_JPRB,1.0299E-04_JPRB,9.2684E-05_JPRB,8.1155E-05_JPRB,6.8389E-05_JPRB,&
+ & 5.3823E-05_JPRB,3.3217E-05_JPRB,2.3434E-05_JPRB/)  
+KAO( :, 1, 2, 2) = (/&
+ & 4.2753E-05_JPRB,4.0882E-05_JPRB,3.7362E-05_JPRB,3.3159E-05_JPRB,2.7615E-05_JPRB,1.8637E-05_JPRB,&
+ & 2.2134E-05_JPRB,5.3399E-05_JPRB,1.8302E-05_JPRB/)  
+KAO( :, 2, 2, 2) = (/&
+ & 5.3879E-05_JPRB,5.1846E-05_JPRB,4.7574E-05_JPRB,4.2472E-05_JPRB,3.6451E-05_JPRB,2.8399E-05_JPRB,&
+ & 1.9335E-05_JPRB,5.2953E-05_JPRB,1.7179E-05_JPRB/)  
+KAO( :, 3, 2, 2) = (/&
+ & 6.6088E-05_JPRB,6.4132E-05_JPRB,5.9087E-05_JPRB,5.2832E-05_JPRB,4.5668E-05_JPRB,3.7676E-05_JPRB,&
+ & 2.6673E-05_JPRB,4.9047E-05_JPRB,2.0200E-05_JPRB/)  
+KAO( :, 4, 2, 2) = (/&
+ & 7.9313E-05_JPRB,7.7493E-05_JPRB,7.1541E-05_JPRB,6.4098E-05_JPRB,5.5769E-05_JPRB,4.6664E-05_JPRB,&
+ & 3.6034E-05_JPRB,2.7239E-05_JPRB,1.9971E-05_JPRB/)  
+KAO( :, 5, 2, 2) = (/&
+ & 9.3172E-05_JPRB,9.1802E-05_JPRB,8.4933E-05_JPRB,7.6462E-05_JPRB,6.6920E-05_JPRB,5.6293E-05_JPRB,&
+ & 4.4283E-05_JPRB,2.5633E-05_JPRB,1.6128E-05_JPRB/)  
+KAO( :, 1, 3, 2) = (/&
+ & 3.1637E-05_JPRB,3.0177E-05_JPRB,2.7541E-05_JPRB,2.3988E-05_JPRB,1.7787E-05_JPRB,1.3073E-05_JPRB,&
+ & 4.0575E-05_JPRB,4.8194E-05_JPRB,1.2505E-05_JPRB/)  
+KAO( :, 2, 3, 2) = (/&
+ & 4.0410E-05_JPRB,3.8878E-05_JPRB,3.5667E-05_JPRB,3.1901E-05_JPRB,2.6742E-05_JPRB,1.8595E-05_JPRB,&
+ & 1.9446E-05_JPRB,5.0395E-05_JPRB,1.3203E-05_JPRB/)  
+KAO( :, 3, 3, 2) = (/&
+ & 5.0197E-05_JPRB,4.8688E-05_JPRB,4.4913E-05_JPRB,4.0333E-05_JPRB,3.4912E-05_JPRB,2.7673E-05_JPRB,&
+ & 1.8085E-05_JPRB,4.8586E-05_JPRB,1.3602E-05_JPRB/)  
+KAO( :, 4, 3, 2) = (/&
+ & 6.0782E-05_JPRB,5.9537E-05_JPRB,5.5167E-05_JPRB,4.9672E-05_JPRB,4.3304E-05_JPRB,3.6088E-05_JPRB,&
+ & 2.5607E-05_JPRB,4.2696E-05_JPRB,1.2094E-05_JPRB/)  
+KAO( :, 5, 3, 2) = (/&
+ & 7.2122E-05_JPRB,7.1291E-05_JPRB,6.6301E-05_JPRB,5.9947E-05_JPRB,5.2623E-05_JPRB,4.4244E-05_JPRB,&
+ & 3.4126E-05_JPRB,2.2584E-05_JPRB,1.6766E-05_JPRB/)  
+KAO( :, 1, 4, 2) = (/&
+ & 2.3214E-05_JPRB,2.2012E-05_JPRB,1.9759E-05_JPRB,1.6356E-05_JPRB,1.1177E-05_JPRB,1.3102E-05_JPRB,&
+ & 5.4531E-05_JPRB,4.5521E-05_JPRB,8.5704E-06_JPRB/)  
+KAO( :, 2, 4, 2) = (/&
+ & 2.9987E-05_JPRB,2.8729E-05_JPRB,2.6188E-05_JPRB,2.2885E-05_JPRB,1.7414E-05_JPRB,1.2331E-05_JPRB,&
+ & 3.4914E-05_JPRB,4.5109E-05_JPRB,8.5816E-06_JPRB/)  
+KAO( :, 3, 4, 2) = (/&
+ & 3.7737E-05_JPRB,3.6418E-05_JPRB,3.3481E-05_JPRB,2.9943E-05_JPRB,2.5212E-05_JPRB,1.8076E-05_JPRB,&
+ & 1.7776E-05_JPRB,4.6705E-05_JPRB,7.7341E-06_JPRB/)  
+KAO( :, 4, 4, 2) = (/&
+ & 4.6237E-05_JPRB,4.5035E-05_JPRB,4.1706E-05_JPRB,3.7594E-05_JPRB,3.2675E-05_JPRB,2.6052E-05_JPRB,&
+ & 1.7191E-05_JPRB,4.4501E-05_JPRB,1.1430E-05_JPRB/)  
+KAO( :, 5, 4, 2) = (/&
+ & 5.5394E-05_JPRB,5.4566E-05_JPRB,5.0800E-05_JPRB,4.6060E-05_JPRB,4.0396E-05_JPRB,3.3727E-05_JPRB,&
+ & 2.3835E-05_JPRB,3.7336E-05_JPRB,1.6242E-05_JPRB/)  
+KAO( :, 1, 5, 2) = (/&
+ & 1.7110E-05_JPRB,1.6145E-05_JPRB,1.4165E-05_JPRB,1.0426E-05_JPRB,7.9870E-06_JPRB,2.4744E-05_JPRB,&
+ & 5.4612E-05_JPRB,4.2211E-05_JPRB,5.8558E-06_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART1',1,ZHOOK_HANDLE)
+END SUBROUTINE PART1
+
+
+SUBROUTINE PART2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART2',0,ZHOOK_HANDLE)
+
+
+KAO( :, 2, 5, 2) = (/&
+ & 2.2350E-05_JPRB,2.1312E-05_JPRB,1.9197E-05_JPRB,1.6194E-05_JPRB,1.1081E-05_JPRB,1.1593E-05_JPRB,&
+ & 4.7643E-05_JPRB,4.2913E-05_JPRB,4.4739E-06_JPRB/)  
+KAO( :, 3, 5, 2) = (/&
+ & 2.8416E-05_JPRB,2.7289E-05_JPRB,2.4884E-05_JPRB,2.1811E-05_JPRB,1.7120E-05_JPRB,1.1847E-05_JPRB,&
+ & 3.1141E-05_JPRB,4.2424E-05_JPRB,6.9636E-06_JPRB/)  
+KAO( :, 4, 5, 2) = (/&
+ & 3.5202E-05_JPRB,3.4084E-05_JPRB,3.1336E-05_JPRB,2.8012E-05_JPRB,2.3757E-05_JPRB,1.7453E-05_JPRB,&
+ & 1.5962E-05_JPRB,4.2655E-05_JPRB,1.0597E-05_JPRB/)  
+KAO( :, 5, 5, 2) = (/&
+ & 4.2592E-05_JPRB,4.1680E-05_JPRB,3.8616E-05_JPRB,3.4875E-05_JPRB,3.0427E-05_JPRB,2.4423E-05_JPRB,&
+ & 1.5902E-05_JPRB,4.0629E-05_JPRB,1.5906E-05_JPRB/)  
+KAO( :, 1, 6, 2) = (/&
+ & 1.2522E-05_JPRB,1.1758E-05_JPRB,9.8897E-06_JPRB,6.3513E-06_JPRB,1.0585E-05_JPRB,4.0712E-05_JPRB,&
+ & 5.0160E-05_JPRB,4.0760E-05_JPRB,3.1679E-06_JPRB/)  
+KAO( :, 2, 6, 2) = (/&
+ & 1.6573E-05_JPRB,1.5756E-05_JPRB,1.3865E-05_JPRB,1.0569E-05_JPRB,7.4971E-06_JPRB,2.3617E-05_JPRB,&
+ & 5.0226E-05_JPRB,4.0741E-05_JPRB,3.5969E-06_JPRB/)  
+KAO( :, 3, 6, 2) = (/&
+ & 2.1308E-05_JPRB,2.0432E-05_JPRB,1.8454E-05_JPRB,1.5643E-05_JPRB,1.0753E-05_JPRB,1.1262E-05_JPRB,&
+ & 4.2958E-05_JPRB,3.9589E-05_JPRB,5.9975E-06_JPRB/)  
+KAO( :, 4, 6, 2) = (/&
+ & 2.6653E-05_JPRB,2.5731E-05_JPRB,2.3505E-05_JPRB,2.0714E-05_JPRB,1.6401E-05_JPRB,1.1347E-05_JPRB,&
+ & 2.9347E-05_JPRB,3.9364E-05_JPRB,9.7407E-06_JPRB/)  
+KAO( :, 5, 6, 2) = (/&
+ & 3.2562E-05_JPRB,3.1730E-05_JPRB,2.9223E-05_JPRB,2.6148E-05_JPRB,2.2224E-05_JPRB,1.6477E-05_JPRB,&
+ & 1.5448E-05_JPRB,3.9356E-05_JPRB,1.5151E-05_JPRB/)  
+KAO( :, 1, 7, 2) = (/&
+ & 9.2632E-06_JPRB,8.5835E-06_JPRB,6.2688E-06_JPRB,5.7491E-06_JPRB,2.0750E-05_JPRB,4.7549E-05_JPRB,&
+ & 4.9746E-05_JPRB,4.3221E-05_JPRB,1.9173E-06_JPRB/)  
+KAO( :, 2, 7, 2) = (/&
+ & 1.2411E-05_JPRB,1.1741E-05_JPRB,9.9384E-06_JPRB,6.3308E-06_JPRB,9.8932E-06_JPRB,3.7604E-05_JPRB,&
+ & 4.5915E-05_JPRB,3.8224E-05_JPRB,3.1404E-06_JPRB/)  
+KAO( :, 3, 7, 2) = (/&
+ & 1.6131E-05_JPRB,1.5426E-05_JPRB,1.3668E-05_JPRB,1.0538E-05_JPRB,7.5655E-06_JPRB,2.2395E-05_JPRB,&
+ & 4.5385E-05_JPRB,3.8777E-05_JPRB,5.5259E-06_JPRB/)  
+KAO( :, 4, 7, 2) = (/&
+ & 2.0394E-05_JPRB,1.9668E-05_JPRB,1.7772E-05_JPRB,1.5135E-05_JPRB,1.0480E-05_JPRB,1.1695E-05_JPRB,&
+ & 3.8455E-05_JPRB,3.6049E-05_JPRB,9.3488E-06_JPRB/)  
+KAO( :, 5, 7, 2) = (/&
+ & 2.5104E-05_JPRB,2.4438E-05_JPRB,2.2345E-05_JPRB,1.9724E-05_JPRB,1.5920E-05_JPRB,1.0909E-05_JPRB,&
+ & 2.7780E-05_JPRB,3.6976E-05_JPRB,1.5076E-05_JPRB/)  
+KAO( :, 1, 8, 2) = (/&
+ & 6.9226E-06_JPRB,6.1974E-06_JPRB,3.6925E-06_JPRB,9.7107E-06_JPRB,3.1400E-05_JPRB,5.1217E-05_JPRB,&
+ & 5.1133E-05_JPRB,4.7405E-05_JPRB,1.8023E-06_JPRB/)  
+KAO( :, 2, 8, 2) = (/&
+ & 9.3730E-06_JPRB,8.7696E-06_JPRB,6.5222E-06_JPRB,5.5338E-06_JPRB,2.0725E-05_JPRB,4.5311E-05_JPRB,&
+ & 4.6330E-05_JPRB,3.9950E-05_JPRB,3.2574E-06_JPRB/)  
+KAO( :, 3, 8, 2) = (/&
+ & 1.2271E-05_JPRB,1.1705E-05_JPRB,9.9611E-06_JPRB,6.4477E-06_JPRB,1.0502E-05_JPRB,3.6242E-05_JPRB,&
+ & 4.2814E-05_JPRB,3.6156E-05_JPRB,5.9101E-06_JPRB/)  
+KAO( :, 4, 8, 2) = (/&
+ & 1.5653E-05_JPRB,1.5070E-05_JPRB,1.3408E-05_JPRB,1.0377E-05_JPRB,7.4564E-06_JPRB,2.3003E-05_JPRB,&
+ & 4.1378E-05_JPRB,3.6628E-05_JPRB,1.0378E-05_JPRB/)  
+KAO( :, 5, 8, 2) = (/&
+ & 1.9451E-05_JPRB,1.8892E-05_JPRB,1.7102E-05_JPRB,1.4623E-05_JPRB,1.0332E-05_JPRB,1.2287E-05_JPRB,&
+ & 3.5601E-05_JPRB,3.3798E-05_JPRB,1.7377E-05_JPRB/)  
+KAO( :, 1, 9, 2) = (/&
+ & 5.2610E-06_JPRB,4.1633E-06_JPRB,4.0647E-06_JPRB,1.6473E-05_JPRB,4.2753E-05_JPRB,5.1385E-05_JPRB,&
+ & 4.7611E-05_JPRB,4.8409E-05_JPRB,3.6172E-06_JPRB/)  
+KAO( :, 2, 9, 2) = (/&
+ & 7.1572E-06_JPRB,6.5056E-06_JPRB,3.9269E-06_JPRB,9.8251E-06_JPRB,3.2469E-05_JPRB,4.6277E-05_JPRB,&
+ & 4.7279E-05_JPRB,4.4658E-05_JPRB,6.1285E-06_JPRB/)  
+KAO( :, 3, 9, 2) = (/&
+ & 9.4513E-06_JPRB,8.9266E-06_JPRB,6.7478E-06_JPRB,5.5531E-06_JPRB,2.0823E-05_JPRB,4.1922E-05_JPRB,&
+ & 4.3117E-05_JPRB,3.6857E-05_JPRB,1.1095E-05_JPRB/)  
+KAO( :, 4, 9, 2) = (/&
+ & 1.2144E-05_JPRB,1.1656E-05_JPRB,9.9211E-06_JPRB,6.5681E-06_JPRB,1.1366E-05_JPRB,3.4298E-05_JPRB,&
+ & 3.9570E-05_JPRB,3.4386E-05_JPRB,2.0048E-05_JPRB/)  
+KAO( :, 5, 9, 2) = (/&
+ & 1.5214E-05_JPRB,1.4744E-05_JPRB,1.3136E-05_JPRB,1.0200E-05_JPRB,7.5939E-06_JPRB,2.3119E-05_JPRB,&
+ & 3.7419E-05_JPRB,3.3965E-05_JPRB,3.4968E-05_JPRB/)  
+KAO( :, 1,10, 2) = (/&
+ & 4.1564E-06_JPRB,2.6079E-06_JPRB,6.9218E-06_JPRB,2.7859E-05_JPRB,4.8834E-05_JPRB,5.2686E-05_JPRB,&
+ & 4.6389E-05_JPRB,4.9087E-05_JPRB,1.0652E-05_JPRB/)  
+KAO( :, 2,10, 2) = (/&
+ & 5.6598E-06_JPRB,4.6524E-06_JPRB,4.2303E-06_JPRB,1.7606E-05_JPRB,4.1116E-05_JPRB,4.7567E-05_JPRB,&
+ & 4.5264E-05_JPRB,4.6736E-05_JPRB,1.6225E-05_JPRB/)  
+KAO( :, 3,10, 2) = (/&
+ & 7.4935E-06_JPRB,6.8980E-06_JPRB,4.2539E-06_JPRB,1.0638E-05_JPRB,3.2709E-05_JPRB,4.2416E-05_JPRB,&
+ & 4.4544E-05_JPRB,4.1212E-05_JPRB,2.8258E-05_JPRB/)  
+KAO( :, 4,10, 2) = (/&
+ & 9.6635E-06_JPRB,9.2067E-06_JPRB,7.0228E-06_JPRB,5.8835E-06_JPRB,2.2271E-05_JPRB,3.9179E-05_JPRB,&
+ & 4.0535E-05_JPRB,3.4910E-05_JPRB,5.1242E-05_JPRB/)  
+KAO( :, 5,10, 2) = (/&
+ & 1.2158E-05_JPRB,1.1756E-05_JPRB,1.0040E-05_JPRB,6.8113E-06_JPRB,1.2737E-05_JPRB,3.2445E-05_JPRB,&
+ & 3.6666E-05_JPRB,3.2986E-05_JPRB,9.1455E-05_JPRB/)  
+KAO( :, 1,11, 2) = (/&
+ & 3.8505E-06_JPRB,2.2272E-06_JPRB,9.0452E-06_JPRB,3.3373E-05_JPRB,4.6563E-05_JPRB,5.1119E-05_JPRB,&
+ & 4.6293E-05_JPRB,4.7828E-05_JPRB,1.4850E-05_JPRB/)  
+KAO( :, 2,11, 2) = (/&
+ & 5.1974E-06_JPRB,4.0087E-06_JPRB,5.3940E-06_JPRB,2.3158E-05_JPRB,4.1599E-05_JPRB,4.6146E-05_JPRB,&
+ & 4.2299E-05_JPRB,4.6208E-05_JPRB,2.2452E-05_JPRB/)  
+KAO( :, 3,11, 2) = (/&
+ & 6.8266E-06_JPRB,6.1648E-06_JPRB,4.0224E-06_JPRB,1.4825E-05_JPRB,3.4779E-05_JPRB,4.0817E-05_JPRB,&
+ & 4.2127E-05_JPRB,4.1473E-05_JPRB,3.8968E-05_JPRB/)  
+KAO( :, 4,11, 2) = (/&
+ & 8.7559E-06_JPRB,8.2911E-06_JPRB,5.8154E-06_JPRB,8.1179E-06_JPRB,2.7292E-05_JPRB,3.7470E-05_JPRB,&
+ & 3.8829E-05_JPRB,3.4450E-05_JPRB,7.0589E-05_JPRB/)  
+KAO( :, 5,11, 2) = (/&
+ & 1.0954E-05_JPRB,1.0574E-05_JPRB,8.7742E-06_JPRB,6.0446E-06_JPRB,1.8157E-05_JPRB,3.3048E-05_JPRB,&
+ & 3.5168E-05_JPRB,3.1159E-05_JPRB,1.2578E-04_JPRB/)  
+KAO( :, 1,12, 2) = (/&
+ & 3.5781E-06_JPRB,2.0859E-06_JPRB,9.5195E-06_JPRB,3.1787E-05_JPRB,4.2342E-05_JPRB,4.6653E-05_JPRB,&
+ & 4.2689E-05_JPRB,4.4370E-05_JPRB,1.5650E-05_JPRB/)  
+KAO( :, 2,12, 2) = (/&
+ & 4.8068E-06_JPRB,3.6887E-06_JPRB,5.7939E-06_JPRB,2.3796E-05_JPRB,3.7779E-05_JPRB,4.1997E-05_JPRB,&
+ & 3.8426E-05_JPRB,4.2634E-05_JPRB,2.3652E-05_JPRB/)  
+KAO( :, 3,12, 2) = (/&
+ & 6.2948E-06_JPRB,5.6556E-06_JPRB,3.7630E-06_JPRB,1.5847E-05_JPRB,3.2542E-05_JPRB,3.7297E-05_JPRB,&
+ & 3.8083E-05_JPRB,3.7879E-05_JPRB,4.1024E-05_JPRB/)  
+KAO( :, 4,12, 2) = (/&
+ & 8.0397E-06_JPRB,7.5827E-06_JPRB,5.0870E-06_JPRB,9.0305E-06_JPRB,2.6555E-05_JPRB,3.3515E-05_JPRB,&
+ & 3.5502E-05_JPRB,3.1529E-05_JPRB,7.4223E-05_JPRB/)  
+KAO( :, 5,12, 2) = (/&
+ & 1.0028E-05_JPRB,9.6397E-06_JPRB,7.9012E-06_JPRB,5.7864E-06_JPRB,1.8461E-05_JPRB,3.0406E-05_JPRB,&
+ & 3.2113E-05_JPRB,2.8581E-05_JPRB,1.3214E-04_JPRB/)  
+KAO( :, 1,13, 2) = (/&
+ & 3.3027E-06_JPRB,1.9849E-06_JPRB,1.0579E-05_JPRB,3.0102E-05_JPRB,3.8661E-05_JPRB,4.2078E-05_JPRB,&
+ & 3.9451E-05_JPRB,4.0882E-05_JPRB,1.3351E-05_JPRB/)  
+KAO( :, 2,13, 2) = (/&
+ & 4.4219E-06_JPRB,3.3751E-06_JPRB,6.3222E-06_JPRB,2.3724E-05_JPRB,3.3992E-05_JPRB,3.8161E-05_JPRB,&
+ & 3.4651E-05_JPRB,3.8910E-05_JPRB,2.0209E-05_JPRB/)  
+KAO( :, 3,13, 2) = (/&
+ & 5.7740E-06_JPRB,5.1371E-06_JPRB,3.6294E-06_JPRB,1.6612E-05_JPRB,3.0054E-05_JPRB,3.4084E-05_JPRB,&
+ & 3.4363E-05_JPRB,3.4522E-05_JPRB,3.5082E-05_JPRB/)  
+KAO( :, 4,13, 2) = (/&
+ & 7.3436E-06_JPRB,6.8959E-06_JPRB,4.5387E-06_JPRB,1.0066E-05_JPRB,2.5028E-05_JPRB,3.0345E-05_JPRB,&
+ & 3.2120E-05_JPRB,2.8785E-05_JPRB,6.3433E-05_JPRB/)  
+KAO( :, 5,13, 2) = (/&
+ & 9.1271E-06_JPRB,8.7491E-06_JPRB,7.0983E-06_JPRB,6.0072E-06_JPRB,1.8622E-05_JPRB,2.7834E-05_JPRB,&
+ & 2.8936E-05_JPRB,2.5906E-05_JPRB,1.1287E-04_JPRB/)  
+KAO( :, 1, 1, 3) = (/&
+ & 1.0561E-04_JPRB,9.9580E-05_JPRB,9.1881E-05_JPRB,8.2381E-05_JPRB,7.1375E-05_JPRB,5.7989E-05_JPRB,&
+ & 3.5664E-05_JPRB,6.4412E-05_JPRB,3.1092E-05_JPRB/)  
+KAO( :, 2, 1, 3) = (/&
+ & 1.2338E-04_JPRB,1.1773E-04_JPRB,1.0902E-04_JPRB,9.8327E-05_JPRB,8.5823E-05_JPRB,7.1198E-05_JPRB,&
+ & 5.2267E-05_JPRB,4.7983E-05_JPRB,3.3217E-05_JPRB/)  
+KAO( :, 3, 1, 3) = (/&
+ & 1.4195E-04_JPRB,1.3687E-04_JPRB,1.2720E-04_JPRB,1.1513E-04_JPRB,1.0071E-04_JPRB,8.3744E-05_JPRB,&
+ & 6.2834E-05_JPRB,3.3890E-05_JPRB,3.3867E-05_JPRB/)  
+KAO( :, 4, 1, 3) = (/&
+ & 1.6072E-04_JPRB,1.5621E-04_JPRB,1.4581E-04_JPRB,1.3254E-04_JPRB,1.1572E-04_JPRB,9.6056E-05_JPRB,&
+ & 7.3269E-05_JPRB,4.4619E-05_JPRB,2.4444E-05_JPRB/)  
+KAO( :, 5, 1, 3) = (/&
+ & 1.7870E-04_JPRB,1.7588E-04_JPRB,1.6519E-04_JPRB,1.5017E-04_JPRB,1.3146E-04_JPRB,1.0980E-04_JPRB,&
+ & 8.4775E-05_JPRB,5.5831E-05_JPRB,2.9607E-05_JPRB/)  
+KAO( :, 1, 2, 3) = (/&
+ & 9.0935E-05_JPRB,8.5722E-05_JPRB,7.8558E-05_JPRB,6.9752E-05_JPRB,5.9712E-05_JPRB,4.7385E-05_JPRB,&
+ & 2.8063E-05_JPRB,6.1629E-05_JPRB,2.1541E-05_JPRB/)  
+KAO( :, 2, 2, 3) = (/&
+ & 1.0613E-04_JPRB,1.0109E-04_JPRB,9.2923E-05_JPRB,8.2896E-05_JPRB,7.1836E-05_JPRB,5.9001E-05_JPRB,&
+ & 4.0531E-05_JPRB,5.4238E-05_JPRB,2.6282E-05_JPRB/)  
+KAO( :, 3, 2, 3) = (/&
+ & 1.2220E-04_JPRB,1.1726E-04_JPRB,1.0800E-04_JPRB,9.6883E-05_JPRB,8.4549E-05_JPRB,7.0132E-05_JPRB,&
+ & 5.2211E-05_JPRB,3.5371E-05_JPRB,2.0831E-05_JPRB/)  
+KAO( :, 4, 2, 3) = (/&
+ & 1.3840E-04_JPRB,1.3383E-04_JPRB,1.2384E-04_JPRB,1.1185E-04_JPRB,9.7762E-05_JPRB,8.1196E-05_JPRB,&
+ & 6.1844E-05_JPRB,3.5901E-05_JPRB,1.8797E-05_JPRB/)  
+KAO( :, 5, 2, 3) = (/&
+ & 1.5419E-04_JPRB,1.5072E-04_JPRB,1.4069E-04_JPRB,1.2749E-04_JPRB,1.1156E-04_JPRB,9.3151E-05_JPRB,&
+ & 7.1896E-05_JPRB,4.6407E-05_JPRB,2.8564E-05_JPRB/)  
+KAO( :, 1, 3, 3) = (/&
+ & 7.5234E-05_JPRB,7.0905E-05_JPRB,6.4619E-05_JPRB,5.6937E-05_JPRB,4.7925E-05_JPRB,3.4057E-05_JPRB,&
+ & 2.9471E-05_JPRB,6.0714E-05_JPRB,1.5353E-05_JPRB/)  
+KAO( :, 2, 3, 3) = (/&
+ & 8.8054E-05_JPRB,8.3720E-05_JPRB,7.6548E-05_JPRB,6.7694E-05_JPRB,5.7920E-05_JPRB,4.6422E-05_JPRB,&
+ & 2.6506E-05_JPRB,5.8794E-05_JPRB,1.3222E-05_JPRB/)  
+KAO( :, 3, 3, 3) = (/&
+ & 1.0142E-04_JPRB,9.7129E-05_JPRB,8.9011E-05_JPRB,7.9094E-05_JPRB,6.8344E-05_JPRB,5.6044E-05_JPRB,&
+ & 3.9469E-05_JPRB,4.5819E-05_JPRB,1.2529E-05_JPRB/)  
+KAO( :, 4, 3, 3) = (/&
+ & 1.1514E-04_JPRB,1.1089E-04_JPRB,1.0189E-04_JPRB,9.1196E-05_JPRB,7.9328E-05_JPRB,6.5564E-05_JPRB,&
+ & 4.9536E-05_JPRB,2.9992E-05_JPRB,2.0006E-05_JPRB/)  
+KAO( :, 5, 3, 3) = (/&
+ & 1.2867E-04_JPRB,1.2511E-04_JPRB,1.1573E-04_JPRB,1.0413E-04_JPRB,9.0747E-05_JPRB,7.5488E-05_JPRB,&
+ & 5.8137E-05_JPRB,3.3705E-05_JPRB,2.9649E-05_JPRB/)  
+KAO( :, 1, 4, 3) = (/&
+ & 6.1778E-05_JPRB,5.8294E-05_JPRB,5.2798E-05_JPRB,4.6202E-05_JPRB,3.7473E-05_JPRB,2.1169E-05_JPRB,&
+ & 3.9527E-05_JPRB,6.1900E-05_JPRB,9.6628E-06_JPRB/)  
+KAO( :, 2, 4, 3) = (/&
+ & 7.2880E-05_JPRB,6.9141E-05_JPRB,6.2841E-05_JPRB,5.5219E-05_JPRB,4.6442E-05_JPRB,3.4307E-05_JPRB,&
+ & 2.4540E-05_JPRB,5.8099E-05_JPRB,8.2774E-06_JPRB/)  
+KAO( :, 3, 4, 3) = (/&
+ & 8.4189E-05_JPRB,8.0422E-05_JPRB,7.3326E-05_JPRB,6.4671E-05_JPRB,5.5214E-05_JPRB,4.4201E-05_JPRB,&
+ & 2.5763E-05_JPRB,5.4305E-05_JPRB,1.4320E-05_JPRB/)  
+KAO( :, 4, 4, 3) = (/&
+ & 9.5731E-05_JPRB,9.1993E-05_JPRB,8.4010E-05_JPRB,7.4439E-05_JPRB,6.4080E-05_JPRB,5.2536E-05_JPRB,&
+ & 3.7772E-05_JPRB,4.0812E-05_JPRB,2.1667E-05_JPRB/)  
+KAO( :, 5, 4, 3) = (/&
+ & 1.0722E-04_JPRB,1.0376E-04_JPRB,9.5138E-05_JPRB,8.4789E-05_JPRB,7.3585E-05_JPRB,6.0982E-05_JPRB,&
+ & 4.6442E-05_JPRB,2.6775E-05_JPRB,3.0897E-05_JPRB/)  
+KAO( :, 1, 5, 3) = (/&
+ & 5.0693E-05_JPRB,4.7899E-05_JPRB,4.3078E-05_JPRB,3.7149E-05_JPRB,2.7343E-05_JPRB,1.8823E-05_JPRB,&
+ & 5.3113E-05_JPRB,6.4247E-05_JPRB,5.8413E-06_JPRB/)  
+KAO( :, 2, 5, 3) = (/&
+ & 6.0292E-05_JPRB,5.7244E-05_JPRB,5.1699E-05_JPRB,4.5062E-05_JPRB,3.6934E-05_JPRB,2.2807E-05_JPRB,&
+ & 3.5085E-05_JPRB,5.8430E-05_JPRB,9.0461E-06_JPRB/)  
+KAO( :, 3, 5, 3) = (/&
+ & 7.0130E-05_JPRB,6.6900E-05_JPRB,6.0628E-05_JPRB,5.3145E-05_JPRB,4.4673E-05_JPRB,3.3772E-05_JPRB,&
+ & 2.2961E-05_JPRB,5.4725E-05_JPRB,1.4542E-05_JPRB/)  
+KAO( :, 4, 5, 3) = (/&
+ & 7.9880E-05_JPRB,7.6664E-05_JPRB,6.9684E-05_JPRB,6.1301E-05_JPRB,5.2150E-05_JPRB,4.1916E-05_JPRB,&
+ & 2.5438E-05_JPRB,4.9130E-05_JPRB,2.2207E-05_JPRB/)  
+KAO( :, 5, 5, 3) = (/&
+ & 8.9549E-05_JPRB,8.6422E-05_JPRB,7.8834E-05_JPRB,6.9694E-05_JPRB,5.9898E-05_JPRB,4.9265E-05_JPRB,&
+ & 3.5529E-05_JPRB,3.7520E-05_JPRB,3.2469E-05_JPRB/)  
+KAO( :, 1, 6, 3) = (/&
+ & 4.1241E-05_JPRB,3.8825E-05_JPRB,3.4760E-05_JPRB,2.8889E-05_JPRB,1.6124E-05_JPRB,2.3998E-05_JPRB,&
+ & 6.9344E-05_JPRB,6.4810E-05_JPRB,4.4340E-06_JPRB/)  
+KAO( :, 2, 6, 3) = (/&
+ & 4.9399E-05_JPRB,4.6917E-05_JPRB,4.2198E-05_JPRB,3.6346E-05_JPRB,2.7704E-05_JPRB,1.8853E-05_JPRB,&
+ & 4.8135E-05_JPRB,6.0892E-05_JPRB,8.2681E-06_JPRB/)  
+KAO( :, 3, 6, 3) = (/&
+ & 5.7861E-05_JPRB,5.5206E-05_JPRB,4.9718E-05_JPRB,4.3299E-05_JPRB,3.5690E-05_JPRB,2.2202E-05_JPRB,&
+ & 3.1528E-05_JPRB,5.5484E-05_JPRB,1.3906E-05_JPRB/)  
+KAO( :, 4, 6, 3) = (/&
+ & 6.6294E-05_JPRB,6.3463E-05_JPRB,5.7396E-05_JPRB,5.0239E-05_JPRB,4.2302E-05_JPRB,3.1945E-05_JPRB,&
+ & 2.0634E-05_JPRB,5.2274E-05_JPRB,2.1920E-05_JPRB/)  
+KAO( :, 5, 6, 3) = (/&
+ & 7.4664E-05_JPRB,7.1784E-05_JPRB,6.5151E-05_JPRB,5.7238E-05_JPRB,4.8740E-05_JPRB,3.9314E-05_JPRB,&
+ & 2.3437E-05_JPRB,4.4846E-05_JPRB,3.3007E-05_JPRB/)  
+KAO( :, 1, 7, 3) = (/&
+ & 3.3565E-05_JPRB,3.1356E-05_JPRB,2.7729E-05_JPRB,1.9350E-05_JPRB,1.4415E-05_JPRB,3.7753E-05_JPRB,&
+ & 7.9102E-05_JPRB,6.2223E-05_JPRB,4.1072E-06_JPRB/)  
+KAO( :, 2, 7, 3) = (/&
+ & 4.0432E-05_JPRB,3.8210E-05_JPRB,3.4263E-05_JPRB,2.8707E-05_JPRB,1.6576E-05_JPRB,2.4516E-05_JPRB,&
+ & 6.1614E-05_JPRB,6.3419E-05_JPRB,8.0365E-06_JPRB/)  
+KAO( :, 3, 7, 3) = (/&
+ & 4.7650E-05_JPRB,4.5423E-05_JPRB,4.0777E-05_JPRB,3.5184E-05_JPRB,2.7131E-05_JPRB,1.8290E-05_JPRB,&
+ & 4.3600E-05_JPRB,5.7557E-05_JPRB,1.3883E-05_JPRB/)  
+KAO( :, 4, 7, 3) = (/&
+ & 5.4916E-05_JPRB,5.2553E-05_JPRB,4.7306E-05_JPRB,4.1198E-05_JPRB,3.3969E-05_JPRB,2.0841E-05_JPRB,&
+ & 2.8970E-05_JPRB,5.2203E-05_JPRB,2.2718E-05_JPRB/)  
+KAO( :, 5, 7, 3) = (/&
+ & 6.2191E-05_JPRB,5.9624E-05_JPRB,5.3859E-05_JPRB,4.7059E-05_JPRB,3.9626E-05_JPRB,3.0110E-05_JPRB,&
+ & 1.8574E-05_JPRB,4.8026E-05_JPRB,3.5441E-05_JPRB/)  
+KAO( :, 1, 8, 3) = (/&
+ & 2.7226E-05_JPRB,2.5212E-05_JPRB,2.1382E-05_JPRB,1.0543E-05_JPRB,2.2029E-05_JPRB,5.3627E-05_JPRB,&
+ & 8.2097E-05_JPRB,5.8785E-05_JPRB,4.6971E-06_JPRB/)  
+KAO( :, 2, 8, 3) = (/&
+ & 3.3008E-05_JPRB,3.0976E-05_JPRB,2.7464E-05_JPRB,1.9851E-05_JPRB,1.5586E-05_JPRB,3.6260E-05_JPRB,&
+ & 7.0608E-05_JPRB,6.2688E-05_JPRB,9.0473E-06_JPRB/)  
+KAO( :, 3, 8, 3) = (/&
+ & 3.9152E-05_JPRB,3.7119E-05_JPRB,3.3223E-05_JPRB,2.7933E-05_JPRB,1.6165E-05_JPRB,2.3754E-05_JPRB,&
+ & 5.6757E-05_JPRB,6.1667E-05_JPRB,1.6403E-05_JPRB/)  
+KAO( :, 4, 8, 3) = (/&
+ & 4.5401E-05_JPRB,4.3320E-05_JPRB,3.8890E-05_JPRB,3.3512E-05_JPRB,2.5986E-05_JPRB,1.7686E-05_JPRB,&
+ & 4.1699E-05_JPRB,5.5000E-05_JPRB,2.8038E-05_JPRB/)  
+KAO( :, 5, 8, 3) = (/&
+ & 5.1574E-05_JPRB,4.9405E-05_JPRB,4.4463E-05_JPRB,3.8672E-05_JPRB,3.1838E-05_JPRB,1.9274E-05_JPRB,&
+ & 2.7957E-05_JPRB,4.8608E-05_JPRB,4.5414E-05_JPRB/)  
+KAO( :, 1, 9, 3) = (/&
+ & 2.1974E-05_JPRB,2.0130E-05_JPRB,1.3358E-05_JPRB,1.2253E-05_JPRB,3.2656E-05_JPRB,7.0337E-05_JPRB,&
+ & 8.9242E-05_JPRB,5.7837E-05_JPRB,9.3121E-06_JPRB/)  
+KAO( :, 2, 9, 3) = (/&
+ & 2.6942E-05_JPRB,2.5061E-05_JPRB,2.1391E-05_JPRB,1.1226E-05_JPRB,2.1710E-05_JPRB,5.1789E-05_JPRB,&
+ & 7.4746E-05_JPRB,5.8409E-05_JPRB,1.8445E-05_JPRB/)  
+KAO( :, 3, 9, 3) = (/&
+ & 3.2174E-05_JPRB,3.0300E-05_JPRB,2.6794E-05_JPRB,1.9848E-05_JPRB,1.5650E-05_JPRB,3.5796E-05_JPRB,&
+ & 6.3518E-05_JPRB,6.2556E-05_JPRB,3.5097E-05_JPRB/)  
+KAO( :, 4, 9, 3) = (/&
+ & 3.7549E-05_JPRB,3.5640E-05_JPRB,3.1882E-05_JPRB,2.6804E-05_JPRB,1.5301E-05_JPRB,2.3066E-05_JPRB,&
+ & 5.1951E-05_JPRB,5.9042E-05_JPRB,6.2870E-05_JPRB/)  
+KAO( :, 5, 9, 3) = (/&
+ & 4.2852E-05_JPRB,4.0889E-05_JPRB,3.6715E-05_JPRB,3.1666E-05_JPRB,2.4183E-05_JPRB,1.7177E-05_JPRB,&
+ & 4.0166E-05_JPRB,5.1290E-05_JPRB,1.0621E-04_JPRB/)  
+KAO( :, 1,10, 3) = (/&
+ & 1.7885E-05_JPRB,1.6093E-05_JPRB,7.4609E-06_JPRB,1.9809E-05_JPRB,4.8743E-05_JPRB,8.4191E-05_JPRB,&
+ & 9.7811E-05_JPRB,5.7087E-05_JPRB,2.4684E-05_JPRB/)  
+KAO( :, 2,10, 3) = (/&
+ & 2.2205E-05_JPRB,2.0473E-05_JPRB,1.4192E-05_JPRB,1.3653E-05_JPRB,3.3673E-05_JPRB,6.6332E-05_JPRB,&
+ & 8.1889E-05_JPRB,5.8933E-05_JPRB,4.8726E-05_JPRB/)  
+KAO( :, 3,10, 3) = (/&
+ & 2.6710E-05_JPRB,2.4979E-05_JPRB,2.1384E-05_JPRB,1.1205E-05_JPRB,2.2836E-05_JPRB,5.0904E-05_JPRB,&
+ & 6.7817E-05_JPRB,6.0017E-05_JPRB,9.5318E-05_JPRB/)  
+KAO( :, 4,10, 3) = (/&
+ & 3.1308E-05_JPRB,2.9540E-05_JPRB,2.6146E-05_JPRB,1.9462E-05_JPRB,1.5742E-05_JPRB,3.6775E-05_JPRB,&
+ & 5.7447E-05_JPRB,6.0670E-05_JPRB,1.7750E-04_JPRB/)  
+KAO( :, 5,10, 3) = (/&
+ & 3.5884E-05_JPRB,3.4076E-05_JPRB,3.0469E-05_JPRB,2.5574E-05_JPRB,1.4532E-05_JPRB,2.3848E-05_JPRB,&
+ & 4.8505E-05_JPRB,5.5852E-05_JPRB,3.1067E-04_JPRB/)  
+KAO( :, 1,11, 3) = (/&
+ & 1.6247E-05_JPRB,1.4357E-05_JPRB,6.7662E-06_JPRB,2.3639E-05_JPRB,5.5683E-05_JPRB,8.1956E-05_JPRB,&
+ & 9.4483E-05_JPRB,5.8077E-05_JPRB,3.4483E-05_JPRB/)  
+KAO( :, 2,11, 3) = (/&
+ & 2.0083E-05_JPRB,1.8438E-05_JPRB,1.1223E-05_JPRB,1.6583E-05_JPRB,3.8809E-05_JPRB,6.7379E-05_JPRB,&
+ & 8.0717E-05_JPRB,5.8833E-05_JPRB,6.8180E-05_JPRB/)  
+KAO( :, 3,11, 3) = (/&
+ & 2.4035E-05_JPRB,2.2414E-05_JPRB,1.8252E-05_JPRB,1.1545E-05_JPRB,2.7168E-05_JPRB,5.4230E-05_JPRB,&
+ & 6.6296E-05_JPRB,5.8218E-05_JPRB,1.3381E-04_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART2',1,ZHOOK_HANDLE)
+END SUBROUTINE PART2
+
+
+SUBROUTINE PART3
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART3',0,ZHOOK_HANDLE)
+
+
+KAO( :, 4,11, 3) = (/&
+ & 2.8028E-05_JPRB,2.6371E-05_JPRB,2.3077E-05_JPRB,1.4565E-05_JPRB,1.8361E-05_JPRB,4.2537E-05_JPRB,&
+ & 5.6345E-05_JPRB,5.9076E-05_JPRB,2.5000E-04_JPRB/)  
+KAO( :, 5,11, 3) = (/&
+ & 3.1996E-05_JPRB,3.0330E-05_JPRB,2.7020E-05_JPRB,2.1917E-05_JPRB,1.3395E-05_JPRB,2.9523E-05_JPRB,&
+ & 4.8541E-05_JPRB,5.5094E-05_JPRB,4.3853E-04_JPRB/)  
+KAO( :, 1,12, 3) = (/&
+ & 1.4787E-05_JPRB,1.2868E-05_JPRB,7.7779E-06_JPRB,2.3775E-05_JPRB,5.3535E-05_JPRB,7.5004E-05_JPRB,&
+ & 8.6201E-05_JPRB,6.0383E-05_JPRB,3.6484E-05_JPRB/)  
+KAO( :, 2,12, 3) = (/&
+ & 1.8188E-05_JPRB,1.6624E-05_JPRB,9.6989E-06_JPRB,1.6809E-05_JPRB,3.8801E-05_JPRB,6.1756E-05_JPRB,&
+ & 7.3880E-05_JPRB,5.7828E-05_JPRB,7.2267E-05_JPRB/)  
+KAO( :, 3,12, 3) = (/&
+ & 2.1698E-05_JPRB,2.0162E-05_JPRB,1.6039E-05_JPRB,1.1681E-05_JPRB,2.6941E-05_JPRB,5.0140E-05_JPRB,&
+ & 6.0455E-05_JPRB,5.6955E-05_JPRB,1.4213E-04_JPRB/)  
+KAO( :, 4,12, 3) = (/&
+ & 2.5223E-05_JPRB,2.3667E-05_JPRB,2.0595E-05_JPRB,1.1968E-05_JPRB,1.8179E-05_JPRB,4.0062E-05_JPRB,&
+ & 5.0860E-05_JPRB,5.5338E-05_JPRB,2.6585E-04_JPRB/)  
+KAO( :, 5,12, 3) = (/&
+ & 2.8679E-05_JPRB,2.7160E-05_JPRB,2.4085E-05_JPRB,1.8993E-05_JPRB,1.3232E-05_JPRB,3.0080E-05_JPRB,&
+ & 4.4162E-05_JPRB,5.0190E-05_JPRB,4.6593E-04_JPRB/)  
+KAO( :, 1,13, 3) = (/&
+ & 1.3378E-05_JPRB,1.1412E-05_JPRB,8.0344E-06_JPRB,2.3863E-05_JPRB,5.0631E-05_JPRB,6.7851E-05_JPRB,&
+ & 7.7279E-05_JPRB,5.9944E-05_JPRB,3.1248E-05_JPRB/)  
+KAO( :, 2,13, 3) = (/&
+ & 1.6405E-05_JPRB,1.4918E-05_JPRB,8.1452E-06_JPRB,1.7072E-05_JPRB,3.8399E-05_JPRB,5.6349E-05_JPRB,&
+ & 6.7351E-05_JPRB,5.6397E-05_JPRB,6.1993E-05_JPRB/)  
+KAO( :, 3,13, 3) = (/&
+ & 1.9514E-05_JPRB,1.8083E-05_JPRB,1.3959E-05_JPRB,1.1780E-05_JPRB,2.7506E-05_JPRB,4.6033E-05_JPRB,&
+ & 5.5011E-05_JPRB,5.3246E-05_JPRB,1.2205E-04_JPRB/)  
+KAO( :, 4,13, 3) = (/&
+ & 2.2612E-05_JPRB,2.1175E-05_JPRB,1.8198E-05_JPRB,9.8216E-06_JPRB,1.8940E-05_JPRB,3.7116E-05_JPRB,&
+ & 4.6044E-05_JPRB,5.0287E-05_JPRB,2.2822E-04_JPRB/)  
+KAO( :, 5,13, 3) = (/&
+ & 2.5652E-05_JPRB,2.4254E-05_JPRB,2.1392E-05_JPRB,1.5930E-05_JPRB,1.2761E-05_JPRB,2.9362E-05_JPRB,&
+ & 4.0037E-05_JPRB,4.5639E-05_JPRB,3.9941E-04_JPRB/)  
+KAO( :, 1, 1, 4) = (/&
+ & 1.9325E-04_JPRB,1.8065E-04_JPRB,1.6180E-04_JPRB,1.4199E-04_JPRB,1.2006E-04_JPRB,9.6342E-05_JPRB,&
+ & 6.5622E-05_JPRB,4.8423E-05_JPRB,3.6972E-05_JPRB/)  
+KAO( :, 2, 1, 4) = (/&
+ & 2.0819E-04_JPRB,1.9606E-04_JPRB,1.7737E-04_JPRB,1.5604E-04_JPRB,1.3291E-04_JPRB,1.0794E-04_JPRB,&
+ & 7.9216E-05_JPRB,4.1605E-05_JPRB,3.5731E-05_JPRB/)  
+KAO( :, 3, 1, 4) = (/&
+ & 2.2206E-04_JPRB,2.1170E-04_JPRB,1.9336E-04_JPRB,1.7130E-04_JPRB,1.4701E-04_JPRB,1.2089E-04_JPRB,&
+ & 9.0968E-05_JPRB,4.3271E-05_JPRB,3.0303E-05_JPRB/)  
+KAO( :, 4, 1, 4) = (/&
+ & 2.3676E-04_JPRB,2.2953E-04_JPRB,2.1085E-04_JPRB,1.8785E-04_JPRB,1.6294E-04_JPRB,1.3496E-04_JPRB,&
+ & 1.0281E-04_JPRB,6.1284E-05_JPRB,3.2172E-05_JPRB/)  
+KAO( :, 5, 1, 4) = (/&
+ & 2.5437E-04_JPRB,2.4947E-04_JPRB,2.3011E-04_JPRB,2.0700E-04_JPRB,1.8097E-04_JPRB,1.5051E-04_JPRB,&
+ & 1.1633E-04_JPRB,7.7203E-05_JPRB,5.3094E-05_JPRB/)  
+KAO( :, 1, 2, 4) = (/&
+ & 1.7573E-04_JPRB,1.6392E-04_JPRB,1.4659E-04_JPRB,1.2809E-04_JPRB,1.0782E-04_JPRB,8.5648E-05_JPRB,&
+ & 5.2006E-05_JPRB,5.2667E-05_JPRB,2.6840E-05_JPRB/)  
+KAO( :, 2, 2, 4) = (/&
+ & 1.8913E-04_JPRB,1.7769E-04_JPRB,1.6041E-04_JPRB,1.4067E-04_JPRB,1.1911E-04_JPRB,9.5721E-05_JPRB,&
+ & 6.8639E-05_JPRB,4.4992E-05_JPRB,2.4069E-05_JPRB/)  
+KAO( :, 3, 2, 4) = (/&
+ & 2.0133E-04_JPRB,1.9150E-04_JPRB,1.7426E-04_JPRB,1.5374E-04_JPRB,1.3095E-04_JPRB,1.0674E-04_JPRB,&
+ & 7.9754E-05_JPRB,3.2688E-05_JPRB,1.8110E-05_JPRB/)  
+KAO( :, 4, 2, 4) = (/&
+ & 2.1403E-04_JPRB,2.0644E-04_JPRB,1.8885E-04_JPRB,1.6750E-04_JPRB,1.4394E-04_JPRB,1.1875E-04_JPRB,&
+ & 8.9867E-05_JPRB,4.7809E-05_JPRB,3.1086E-05_JPRB/)  
+KAO( :, 5, 2, 4) = (/&
+ & 2.2856E-04_JPRB,2.2298E-04_JPRB,2.0481E-04_JPRB,1.8286E-04_JPRB,1.5862E-04_JPRB,1.3164E-04_JPRB,&
+ & 1.0114E-04_JPRB,6.3503E-05_JPRB,4.8865E-05_JPRB/)  
+KAO( :, 1, 3, 4) = (/&
+ & 1.5562E-04_JPRB,1.4484E-04_JPRB,1.2927E-04_JPRB,1.1236E-04_JPRB,9.3995E-05_JPRB,7.3269E-05_JPRB,&
+ & 3.7797E-05_JPRB,5.7431E-05_JPRB,1.5095E-05_JPRB/)  
+KAO( :, 2, 3, 4) = (/&
+ & 1.6743E-04_JPRB,1.5710E-04_JPRB,1.4113E-04_JPRB,1.2321E-04_JPRB,1.0375E-04_JPRB,8.2299E-05_JPRB,&
+ & 5.2915E-05_JPRB,4.4705E-05_JPRB,1.4179E-05_JPRB/)  
+KAO( :, 3, 3, 4) = (/&
+ & 1.7855E-04_JPRB,1.6918E-04_JPRB,1.5296E-04_JPRB,1.3430E-04_JPRB,1.1381E-04_JPRB,9.1766E-05_JPRB,&
+ & 6.6891E-05_JPRB,3.9451E-05_JPRB,2.0319E-05_JPRB/)  
+KAO( :, 4, 3, 4) = (/&
+ & 1.8934E-04_JPRB,1.8180E-04_JPRB,1.6533E-04_JPRB,1.4585E-04_JPRB,1.2452E-04_JPRB,1.0168E-04_JPRB,&
+ & 7.6248E-05_JPRB,3.2208E-05_JPRB,3.3927E-05_JPRB/)  
+KAO( :, 5, 3, 4) = (/&
+ & 2.0107E-04_JPRB,1.9484E-04_JPRB,1.7806E-04_JPRB,1.5818E-04_JPRB,1.3631E-04_JPRB,1.1252E-04_JPRB,&
+ & 8.5478E-05_JPRB,4.8964E-05_JPRB,4.8647E-05_JPRB/)  
+KAO( :, 1, 4, 4) = (/&
+ & 1.3687E-04_JPRB,1.2644E-04_JPRB,1.1299E-04_JPRB,9.7757E-05_JPRB,8.1171E-05_JPRB,6.0079E-05_JPRB,&
+ & 3.3581E-05_JPRB,5.5796E-05_JPRB,9.0880E-06_JPRB/)  
+KAO( :, 2, 4, 4) = (/&
+ & 1.4693E-04_JPRB,1.3749E-04_JPRB,1.2327E-04_JPRB,1.0708E-04_JPRB,8.9715E-05_JPRB,7.0113E-05_JPRB,&
+ & 3.5389E-05_JPRB,5.3371E-05_JPRB,1.3014E-05_JPRB/)  
+KAO( :, 3, 4, 4) = (/&
+ & 1.5672E-04_JPRB,1.4837E-04_JPRB,1.3344E-04_JPRB,1.1660E-04_JPRB,9.8197E-05_JPRB,7.8371E-05_JPRB,&
+ & 5.1608E-05_JPRB,4.1358E-05_JPRB,2.3902E-05_JPRB/)  
+KAO( :, 4, 4, 4) = (/&
+ & 1.6639E-04_JPRB,1.5936E-04_JPRB,1.4405E-04_JPRB,1.2651E-04_JPRB,1.0733E-04_JPRB,8.6606E-05_JPRB,&
+ & 6.3258E-05_JPRB,3.2371E-05_JPRB,3.6595E-05_JPRB/)  
+KAO( :, 5, 4, 4) = (/&
+ & 1.7628E-04_JPRB,1.7040E-04_JPRB,1.5502E-04_JPRB,1.3697E-04_JPRB,1.1689E-04_JPRB,9.5499E-05_JPRB,&
+ & 7.1870E-05_JPRB,3.2326E-05_JPRB,5.1692E-05_JPRB/)  
+KAO( :, 1, 5, 4) = (/&
+ & 1.2014E-04_JPRB,1.0999E-04_JPRB,9.8155E-05_JPRB,8.4680E-05_JPRB,6.9013E-05_JPRB,3.7866E-05_JPRB,&
+ & 4.6216E-05_JPRB,5.4078E-05_JPRB,7.0562E-06_JPRB/)  
+KAO( :, 2, 5, 4) = (/&
+ & 1.2869E-04_JPRB,1.1940E-04_JPRB,1.0711E-04_JPRB,9.2677E-05_JPRB,7.7027E-05_JPRB,5.7820E-05_JPRB,&
+ & 3.1601E-05_JPRB,5.4237E-05_JPRB,1.5420E-05_JPRB/)  
+KAO( :, 3, 5, 4) = (/&
+ & 1.3705E-04_JPRB,1.2928E-04_JPRB,1.1605E-04_JPRB,1.0090E-04_JPRB,8.4608E-05_JPRB,6.6395E-05_JPRB,&
+ & 3.0335E-05_JPRB,4.8756E-05_JPRB,2.5527E-05_JPRB/)  
+KAO( :, 4, 5, 4) = (/&
+ & 1.4539E-04_JPRB,1.3907E-04_JPRB,1.2508E-04_JPRB,1.0941E-04_JPRB,9.2394E-05_JPRB,7.3775E-05_JPRB,&
+ & 4.9339E-05_JPRB,4.0777E-05_JPRB,3.8427E-05_JPRB/)  
+KAO( :, 5, 5, 4) = (/&
+ & 1.5402E-04_JPRB,1.4864E-04_JPRB,1.3443E-04_JPRB,1.1832E-04_JPRB,1.0042E-04_JPRB,8.1145E-05_JPRB,&
+ & 5.9883E-05_JPRB,2.8598E-05_JPRB,5.5173E-05_JPRB/)  
+KAO( :, 1, 6, 4) = (/&
+ & 1.0508E-04_JPRB,9.5482E-05_JPRB,8.4601E-05_JPRB,7.2633E-05_JPRB,5.7469E-05_JPRB,2.8022E-05_JPRB,&
+ & 6.0470E-05_JPRB,5.5709E-05_JPRB,8.4537E-06_JPRB/)  
+KAO( :, 2, 6, 4) = (/&
+ & 1.1254E-04_JPRB,1.0355E-04_JPRB,9.2576E-05_JPRB,7.9894E-05_JPRB,6.5248E-05_JPRB,3.5620E-05_JPRB,&
+ & 4.1186E-05_JPRB,5.3203E-05_JPRB,1.5781E-05_JPRB/)  
+KAO( :, 3, 6, 4) = (/&
+ & 1.1968E-04_JPRB,1.1191E-04_JPRB,1.0054E-04_JPRB,8.6961E-05_JPRB,7.2380E-05_JPRB,5.4688E-05_JPRB,&
+ & 2.8839E-05_JPRB,5.2690E-05_JPRB,2.5759E-05_JPRB/)  
+KAO( :, 4, 6, 4) = (/&
+ & 1.2668E-04_JPRB,1.2066E-04_JPRB,1.0839E-04_JPRB,9.4280E-05_JPRB,7.9174E-05_JPRB,6.2217E-05_JPRB,&
+ & 2.9595E-05_JPRB,4.6245E-05_JPRB,3.9594E-05_JPRB/)  
+KAO( :, 5, 6, 4) = (/&
+ & 1.3386E-04_JPRB,1.2916E-04_JPRB,1.1625E-04_JPRB,1.0183E-04_JPRB,8.5941E-05_JPRB,6.8663E-05_JPRB,&
+ & 4.7108E-05_JPRB,3.8925E-05_JPRB,5.8371E-05_JPRB/)  
+KAO( :, 1, 7, 4) = (/&
+ & 9.1290E-05_JPRB,8.2455E-05_JPRB,7.2640E-05_JPRB,6.1602E-05_JPRB,3.5951E-05_JPRB,3.2065E-05_JPRB,&
+ & 6.9438E-05_JPRB,5.4588E-05_JPRB,8.8732E-06_JPRB/)  
+KAO( :, 2, 7, 4) = (/&
+ & 9.8266E-05_JPRB,8.9923E-05_JPRB,7.9846E-05_JPRB,6.8611E-05_JPRB,5.4855E-05_JPRB,2.5347E-05_JPRB,&
+ & 5.3484E-05_JPRB,5.4646E-05_JPRB,1.6319E-05_JPRB/)  
+KAO( :, 3, 7, 4) = (/&
+ & 1.0452E-04_JPRB,9.6912E-05_JPRB,8.6790E-05_JPRB,7.4880E-05_JPRB,6.1588E-05_JPRB,3.4215E-05_JPRB,&
+ & 3.8465E-05_JPRB,5.3097E-05_JPRB,2.7544E-05_JPRB/)  
+KAO( :, 4, 7, 4) = (/&
+ & 1.1064E-04_JPRB,1.0436E-04_JPRB,9.3727E-05_JPRB,8.1191E-05_JPRB,6.7704E-05_JPRB,5.1369E-05_JPRB,&
+ & 2.6755E-05_JPRB,5.1792E-05_JPRB,4.3707E-05_JPRB/)  
+KAO( :, 5, 7, 4) = (/&
+ & 1.1674E-04_JPRB,1.1189E-04_JPRB,1.0064E-04_JPRB,8.7738E-05_JPRB,7.3682E-05_JPRB,5.8032E-05_JPRB,&
+ & 2.8026E-05_JPRB,4.3741E-05_JPRB,6.6125E-05_JPRB/)  
+KAO( :, 1, 8, 4) = (/&
+ & 7.8671E-05_JPRB,7.0723E-05_JPRB,6.1903E-05_JPRB,5.0899E-05_JPRB,2.5388E-05_JPRB,4.7045E-05_JPRB,&
+ & 8.3139E-05_JPRB,5.2475E-05_JPRB,1.0506E-05_JPRB/)  
+KAO( :, 2, 8, 4) = (/&
+ & 8.5114E-05_JPRB,7.7503E-05_JPRB,6.8369E-05_JPRB,5.8071E-05_JPRB,3.2941E-05_JPRB,3.1252E-05_JPRB,&
+ & 6.5972E-05_JPRB,5.4053E-05_JPRB,1.9913E-05_JPRB/)  
+KAO( :, 3, 8, 4) = (/&
+ & 9.0774E-05_JPRB,8.3700E-05_JPRB,7.4489E-05_JPRB,6.3931E-05_JPRB,5.1217E-05_JPRB,2.3975E-05_JPRB,&
+ & 4.9768E-05_JPRB,5.3114E-05_JPRB,3.5011E-05_JPRB/)  
+KAO( :, 4, 8, 4) = (/&
+ & 9.6188E-05_JPRB,9.0023E-05_JPRB,8.0588E-05_JPRB,6.9637E-05_JPRB,5.7276E-05_JPRB,3.0654E-05_JPRB,&
+ & 3.6814E-05_JPRB,5.0886E-05_JPRB,5.7647E-05_JPRB/)  
+KAO( :, 5, 8, 4) = (/&
+ & 1.0147E-04_JPRB,9.6459E-05_JPRB,8.6744E-05_JPRB,7.5335E-05_JPRB,6.2848E-05_JPRB,4.7544E-05_JPRB,&
+ & 2.4830E-05_JPRB,4.9742E-05_JPRB,8.9972E-05_JPRB/)  
+KAO( :, 1, 9, 4) = (/&
+ & 6.7736E-05_JPRB,6.0618E-05_JPRB,5.2744E-05_JPRB,3.0920E-05_JPRB,2.9239E-05_JPRB,6.2840E-05_JPRB,&
+ & 9.2889E-05_JPRB,5.0470E-05_JPRB,2.2355E-05_JPRB/)  
+KAO( :, 2, 9, 4) = (/&
+ & 7.3171E-05_JPRB,6.6259E-05_JPRB,5.8117E-05_JPRB,4.7578E-05_JPRB,2.3188E-05_JPRB,4.4116E-05_JPRB,&
+ & 7.7151E-05_JPRB,5.4835E-05_JPRB,4.4341E-05_JPRB/)  
+KAO( :, 3, 9, 4) = (/&
+ & 7.8488E-05_JPRB,7.2012E-05_JPRB,6.3679E-05_JPRB,5.4052E-05_JPRB,2.9892E-05_JPRB,3.0664E-05_JPRB,&
+ & 6.0561E-05_JPRB,5.3817E-05_JPRB,8.1564E-05_JPRB/)  
+KAO( :, 4, 9, 4) = (/&
+ & 8.3263E-05_JPRB,7.7446E-05_JPRB,6.8972E-05_JPRB,5.9229E-05_JPRB,4.7000E-05_JPRB,2.3105E-05_JPRB,&
+ & 4.7608E-05_JPRB,5.0373E-05_JPRB,1.4008E-04_JPRB/)  
+KAO( :, 5, 9, 4) = (/&
+ & 8.7956E-05_JPRB,8.2925E-05_JPRB,7.4329E-05_JPRB,6.4343E-05_JPRB,5.3101E-05_JPRB,2.7223E-05_JPRB,&
+ & 3.3997E-05_JPRB,5.1225E-05_JPRB,2.2664E-04_JPRB/)  
+KAO( :, 1,10, 4) = (/&
+ & 5.8447E-05_JPRB,5.2123E-05_JPRB,4.4386E-05_JPRB,2.1253E-05_JPRB,4.1633E-05_JPRB,7.5363E-05_JPRB,&
+ & 9.7685E-05_JPRB,4.9222E-05_JPRB,5.9155E-05_JPRB/)  
+KAO( :, 2,10, 4) = (/&
+ & 6.2971E-05_JPRB,5.6773E-05_JPRB,4.9349E-05_JPRB,2.7108E-05_JPRB,2.8492E-05_JPRB,5.8974E-05_JPRB,&
+ & 8.8305E-05_JPRB,5.1607E-05_JPRB,1.2250E-04_JPRB/)  
+KAO( :, 3,10, 4) = (/&
+ & 6.7713E-05_JPRB,6.1803E-05_JPRB,5.4313E-05_JPRB,4.4294E-05_JPRB,2.2166E-05_JPRB,4.3639E-05_JPRB,&
+ & 7.2310E-05_JPRB,5.3792E-05_JPRB,2.3595E-04_JPRB/)  
+KAO( :, 4,10, 4) = (/&
+ & 7.2017E-05_JPRB,6.6651E-05_JPRB,5.9032E-05_JPRB,5.0145E-05_JPRB,2.5984E-05_JPRB,3.1163E-05_JPRB,&
+ & 5.5814E-05_JPRB,5.4096E-05_JPRB,4.2155E-04_JPRB/)  
+KAO( :, 5,10, 4) = (/&
+ & 7.6122E-05_JPRB,7.1340E-05_JPRB,6.3672E-05_JPRB,5.4807E-05_JPRB,4.2703E-05_JPRB,2.2571E-05_JPRB,&
+ & 4.5447E-05_JPRB,5.0941E-05_JPRB,7.0536E-04_JPRB/)  
+KAO( :, 1,11, 4) = (/&
+ & 5.1997E-05_JPRB,4.6399E-05_JPRB,3.7006E-05_JPRB,2.2118E-05_JPRB,4.9070E-05_JPRB,8.0297E-05_JPRB,&
+ & 9.7665E-05_JPRB,4.9036E-05_JPRB,8.3819E-05_JPRB/)  
+KAO( :, 2,11, 4) = (/&
+ & 5.5995E-05_JPRB,5.0499E-05_JPRB,4.3536E-05_JPRB,1.8160E-05_JPRB,3.3942E-05_JPRB,6.1798E-05_JPRB,&
+ & 8.7929E-05_JPRB,5.1899E-05_JPRB,1.7378E-04_JPRB/)  
+KAO( :, 3,11, 4) = (/&
+ & 6.0050E-05_JPRB,5.4855E-05_JPRB,4.8042E-05_JPRB,3.2999E-05_JPRB,2.4599E-05_JPRB,4.8087E-05_JPRB,&
+ & 7.2580E-05_JPRB,5.4376E-05_JPRB,3.3527E-04_JPRB/)  
+KAO( :, 4,11, 4) = (/&
+ & 6.3834E-05_JPRB,5.9102E-05_JPRB,5.2252E-05_JPRB,4.3696E-05_JPRB,1.9003E-05_JPRB,3.4301E-05_JPRB,&
+ & 5.7788E-05_JPRB,5.3890E-05_JPRB,5.9988E-04_JPRB/)  
+KAO( :, 5,11, 4) = (/&
+ & 6.7488E-05_JPRB,6.3205E-05_JPRB,5.6377E-05_JPRB,4.8245E-05_JPRB,3.1229E-05_JPRB,2.6140E-05_JPRB,&
+ & 4.5484E-05_JPRB,5.1296E-05_JPRB,1.0059E-03_JPRB/)  
+KAO( :, 1,12, 4) = (/&
+ & 4.6056E-05_JPRB,4.1083E-05_JPRB,2.9802E-05_JPRB,2.2251E-05_JPRB,4.6624E-05_JPRB,7.2962E-05_JPRB,&
+ & 9.3907E-05_JPRB,4.7563E-05_JPRB,8.9454E-05_JPRB/)  
+KAO( :, 2,12, 4) = (/&
+ & 4.9615E-05_JPRB,4.4762E-05_JPRB,3.8254E-05_JPRB,1.6590E-05_JPRB,3.3432E-05_JPRB,5.6542E-05_JPRB,&
+ & 8.1508E-05_JPRB,5.1901E-05_JPRB,1.8559E-04_JPRB/)  
+KAO( :, 3,12, 4) = (/&
+ & 5.3180E-05_JPRB,4.8610E-05_JPRB,4.2465E-05_JPRB,2.5666E-05_JPRB,2.4567E-05_JPRB,4.4887E-05_JPRB,&
+ & 6.5994E-05_JPRB,5.4335E-05_JPRB,3.5825E-04_JPRB/)  
+KAO( :, 4,12, 4) = (/&
+ & 5.6562E-05_JPRB,5.2350E-05_JPRB,4.6232E-05_JPRB,3.8181E-05_JPRB,1.8227E-05_JPRB,3.2932E-05_JPRB,&
+ & 5.2904E-05_JPRB,5.3475E-05_JPRB,6.4181E-04_JPRB/)  
+KAO( :, 5,12, 4) = (/&
+ & 5.9903E-05_JPRB,5.6017E-05_JPRB,4.9962E-05_JPRB,4.2621E-05_JPRB,2.4691E-05_JPRB,2.4714E-05_JPRB,&
+ & 4.1916E-05_JPRB,5.0025E-05_JPRB,1.0767E-03_JPRB/)  
+KAO( :, 1,13, 4) = (/&
+ & 4.0560E-05_JPRB,3.6160E-05_JPRB,2.3255E-05_JPRB,2.2093E-05_JPRB,4.4020E-05_JPRB,6.7810E-05_JPRB,&
+ & 8.9069E-05_JPRB,4.8857E-05_JPRB,7.6979E-05_JPRB/)  
+KAO( :, 2,13, 4) = (/&
+ & 4.3721E-05_JPRB,3.9447E-05_JPRB,3.3315E-05_JPRB,1.5735E-05_JPRB,3.2401E-05_JPRB,5.2990E-05_JPRB,&
+ & 7.4939E-05_JPRB,5.2762E-05_JPRB,1.5983E-04_JPRB/)  
+KAO( :, 3,13, 4) = (/&
+ & 4.6874E-05_JPRB,4.2856E-05_JPRB,3.7307E-05_JPRB,1.9448E-05_JPRB,2.3246E-05_JPRB,4.1872E-05_JPRB,&
+ & 6.0127E-05_JPRB,5.4225E-05_JPRB,3.0871E-04_JPRB/)  
+KAO( :, 4,13, 4) = (/&
+ & 4.9922E-05_JPRB,4.6146E-05_JPRB,4.0717E-05_JPRB,3.2736E-05_JPRB,1.7797E-05_JPRB,3.1779E-05_JPRB,&
+ & 4.8971E-05_JPRB,5.3750E-05_JPRB,5.5309E-04_JPRB/)  
+KAO( :, 5,13, 4) = (/&
+ & 5.3030E-05_JPRB,4.9529E-05_JPRB,4.4121E-05_JPRB,3.7423E-05_JPRB,1.9634E-05_JPRB,2.2842E-05_JPRB,&
+ & 3.9348E-05_JPRB,4.8274E-05_JPRB,9.2736E-04_JPRB/)  
+KAO( :, 1, 1, 5) = (/&
+ & 2.7778E-04_JPRB,2.5521E-04_JPRB,2.2685E-04_JPRB,1.9591E-04_JPRB,1.6332E-04_JPRB,1.2879E-04_JPRB,&
+ & 9.0596E-05_JPRB,4.4043E-05_JPRB,3.2346E-05_JPRB/)  
+KAO( :, 2, 1, 5) = (/&
+ & 2.9066E-04_JPRB,2.6987E-04_JPRB,2.4077E-04_JPRB,2.0932E-04_JPRB,1.7577E-04_JPRB,1.4048E-04_JPRB,&
+ & 1.0294E-04_JPRB,3.8809E-05_JPRB,2.9426E-05_JPRB/)  
+KAO( :, 3, 1, 5) = (/&
+ & 3.0544E-04_JPRB,2.8616E-04_JPRB,2.5754E-04_JPRB,2.2525E-04_JPRB,1.9101E-04_JPRB,1.5455E-04_JPRB,&
+ & 1.1678E-04_JPRB,5.7173E-05_JPRB,3.3954E-05_JPRB/)  
+KAO( :, 4, 1, 5) = (/&
+ & 3.2184E-04_JPRB,3.0525E-04_JPRB,2.7707E-04_JPRB,2.4441E-04_JPRB,2.0932E-04_JPRB,1.7239E-04_JPRB,&
+ & 1.3430E-04_JPRB,8.9432E-05_JPRB,5.9307E-05_JPRB/)  
+KAO( :, 5, 1, 5) = (/&
+ & 3.3997E-04_JPRB,3.2768E-04_JPRB,2.9971E-04_JPRB,2.6685E-04_JPRB,2.3158E-04_JPRB,1.9537E-04_JPRB,&
+ & 1.5650E-04_JPRB,1.1300E-04_JPRB,9.1458E-05_JPRB/)  
+KAO( :, 1, 2, 5) = (/&
+ & 2.6036E-04_JPRB,2.3849E-04_JPRB,2.1215E-04_JPRB,1.8325E-04_JPRB,1.5238E-04_JPRB,1.1978E-04_JPRB,&
+ & 8.1666E-05_JPRB,4.4295E-05_JPRB,2.4496E-05_JPRB/)  
+KAO( :, 2, 2, 5) = (/&
+ & 2.7147E-04_JPRB,2.5141E-04_JPRB,2.2439E-04_JPRB,1.9462E-04_JPRB,1.6271E-04_JPRB,1.2925E-04_JPRB,&
+ & 9.2973E-05_JPRB,3.2500E-05_JPRB,1.9528E-05_JPRB/)  
+KAO( :, 3, 2, 5) = (/&
+ & 2.8407E-04_JPRB,2.6548E-04_JPRB,2.3846E-04_JPRB,2.0759E-04_JPRB,1.7524E-04_JPRB,1.4054E-04_JPRB,&
+ & 1.0396E-04_JPRB,4.5395E-05_JPRB,3.3431E-05_JPRB/)  
+KAO( :, 4, 2, 5) = (/&
+ & 2.9719E-04_JPRB,2.8128E-04_JPRB,2.5423E-04_JPRB,2.2320E-04_JPRB,1.8996E-04_JPRB,1.5400E-04_JPRB,&
+ & 1.1668E-04_JPRB,6.9584E-05_JPRB,5.7490E-05_JPRB/)  
+KAO( :, 5, 2, 5) = (/&
+ & 3.1122E-04_JPRB,2.9870E-04_JPRB,2.7220E-04_JPRB,2.4100E-04_JPRB,2.0649E-04_JPRB,1.7035E-04_JPRB,&
+ & 1.3266E-04_JPRB,9.1999E-05_JPRB,8.3000E-05_JPRB/)  
+KAO( :, 1, 3, 5) = (/&
+ & 2.4050E-04_JPRB,2.1900E-04_JPRB,1.9501E-04_JPRB,1.6859E-04_JPRB,1.4005E-04_JPRB,1.0947E-04_JPRB,&
+ & 5.4416E-05_JPRB,3.5695E-05_JPRB,1.3250E-05_JPRB/)  
+KAO( :, 2, 3, 5) = (/&
+ & 2.4980E-04_JPRB,2.3024E-04_JPRB,2.0600E-04_JPRB,1.7839E-04_JPRB,1.4857E-04_JPRB,1.1723E-04_JPRB,&
+ & 8.2222E-05_JPRB,4.3756E-05_JPRB,1.9778E-05_JPRB/)  
+KAO( :, 3, 3, 5) = (/&
+ & 2.5986E-04_JPRB,2.4240E-04_JPRB,2.1776E-04_JPRB,1.8907E-04_JPRB,1.5831E-04_JPRB,1.2594E-04_JPRB,&
+ & 9.1156E-05_JPRB,3.2284E-05_JPRB,3.8343E-05_JPRB/)  
+KAO( :, 4, 3, 5) = (/&
+ & 2.7050E-04_JPRB,2.5528E-04_JPRB,2.3027E-04_JPRB,2.0105E-04_JPRB,1.6973E-04_JPRB,1.3628E-04_JPRB,&
+ & 1.0110E-04_JPRB,4.6885E-05_JPRB,5.9630E-05_JPRB/)  
+KAO( :, 5, 3, 5) = (/&
+ & 2.8151E-04_JPRB,2.6949E-04_JPRB,2.4440E-04_JPRB,2.1478E-04_JPRB,1.8246E-04_JPRB,1.4822E-04_JPRB,&
+ & 1.1296E-04_JPRB,7.0463E-05_JPRB,8.2542E-05_JPRB/)  
+KAO( :, 1, 4, 5) = (/&
+ & 2.2167E-04_JPRB,2.0054E-04_JPRB,1.7755E-04_JPRB,1.5346E-04_JPRB,1.2760E-04_JPRB,9.8873E-05_JPRB,&
+ & 4.0720E-05_JPRB,3.6076E-05_JPRB,1.0820E-05_JPRB/)  
+KAO( :, 2, 4, 5) = (/&
+ & 2.2949E-04_JPRB,2.0991E-04_JPRB,1.8792E-04_JPRB,1.6318E-04_JPRB,1.3546E-04_JPRB,1.0612E-04_JPRB,&
+ & 6.1178E-05_JPRB,4.0667E-05_JPRB,2.5683E-05_JPRB/)  
+KAO( :, 3, 4, 5) = (/&
+ & 2.3807E-04_JPRB,2.2061E-04_JPRB,1.9870E-04_JPRB,1.7224E-04_JPRB,1.4361E-04_JPRB,1.1345E-04_JPRB,&
+ & 8.0170E-05_JPRB,3.9940E-05_JPRB,4.2610E-05_JPRB/)  
+KAO( :, 4, 4, 5) = (/&
+ & 2.4662E-04_JPRB,2.3181E-04_JPRB,2.0905E-04_JPRB,1.8202E-04_JPRB,1.5268E-04_JPRB,1.2186E-04_JPRB,&
+ & 8.8749E-05_JPRB,3.2893E-05_JPRB,6.1830E-05_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART3',1,ZHOOK_HANDLE)
+END SUBROUTINE PART3
+
+
+SUBROUTINE PART4
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART4',0,ZHOOK_HANDLE)
+
+
+KAO( :, 5, 4, 5) = (/&
+ & 2.5546E-04_JPRB,2.4342E-04_JPRB,2.2022E-04_JPRB,1.9281E-04_JPRB,1.6313E-04_JPRB,1.3125E-04_JPRB,&
+ & 9.8124E-05_JPRB,4.6973E-05_JPRB,8.6084E-05_JPRB/)  
+KAO( :, 1, 5, 5) = (/&
+ & 2.0312E-04_JPRB,1.8300E-04_JPRB,1.6095E-04_JPRB,1.3872E-04_JPRB,1.1510E-04_JPRB,8.6738E-05_JPRB,&
+ & 4.3892E-05_JPRB,4.1155E-05_JPRB,1.4610E-05_JPRB/)  
+KAO( :, 2, 5, 5) = (/&
+ & 2.1032E-04_JPRB,1.9153E-04_JPRB,1.7045E-04_JPRB,1.4818E-04_JPRB,1.2310E-04_JPRB,9.5120E-05_JPRB,&
+ & 3.7530E-05_JPRB,4.0109E-05_JPRB,2.7956E-05_JPRB/)  
+KAO( :, 3, 5, 5) = (/&
+ & 2.1754E-04_JPRB,2.0013E-04_JPRB,1.8048E-04_JPRB,1.5683E-04_JPRB,1.3036E-04_JPRB,1.0212E-04_JPRB,&
+ & 6.5559E-05_JPRB,4.4646E-05_JPRB,4.3990E-05_JPRB/)  
+KAO( :, 4, 5, 5) = (/&
+ & 2.2506E-04_JPRB,2.1008E-04_JPRB,1.8992E-04_JPRB,1.6512E-04_JPRB,1.3787E-04_JPRB,1.0933E-04_JPRB,&
+ & 7.7878E-05_JPRB,3.3941E-05_JPRB,6.4638E-05_JPRB/)  
+KAO( :, 5, 5, 5) = (/&
+ & 2.3238E-04_JPRB,2.2040E-04_JPRB,1.9936E-04_JPRB,1.7403E-04_JPRB,1.4649E-04_JPRB,1.1721E-04_JPRB,&
+ & 8.5745E-05_JPRB,3.1943E-05_JPRB,9.1486E-05_JPRB/)  
+KAO( :, 1, 6, 5) = (/&
+ & 1.8420E-04_JPRB,1.6521E-04_JPRB,1.4487E-04_JPRB,1.2401E-04_JPRB,1.0200E-04_JPRB,5.1119E-05_JPRB,&
+ & 5.2764E-05_JPRB,4.0912E-05_JPRB,1.5202E-05_JPRB/)  
+KAO( :, 2, 6, 5) = (/&
+ & 1.9125E-04_JPRB,1.7344E-04_JPRB,1.5331E-04_JPRB,1.3274E-04_JPRB,1.1039E-04_JPRB,8.3040E-05_JPRB,&
+ & 4.0684E-05_JPRB,4.1198E-05_JPRB,2.7867E-05_JPRB/)  
+KAO( :, 3, 6, 5) = (/&
+ & 1.9735E-04_JPRB,1.8080E-04_JPRB,1.6199E-04_JPRB,1.4097E-04_JPRB,1.1727E-04_JPRB,9.0932E-05_JPRB,&
+ & 3.7180E-05_JPRB,4.3495E-05_JPRB,4.4553E-05_JPRB/)  
+KAO( :, 4, 6, 5) = (/&
+ & 2.0383E-04_JPRB,1.8894E-04_JPRB,1.7073E-04_JPRB,1.4876E-04_JPRB,1.2398E-04_JPRB,9.7753E-05_JPRB,&
+ & 6.3121E-05_JPRB,4.1277E-05_JPRB,6.7315E-05_JPRB/)  
+KAO( :, 5, 6, 5) = (/&
+ & 2.1033E-04_JPRB,1.9804E-04_JPRB,1.7951E-04_JPRB,1.5655E-04_JPRB,1.3146E-04_JPRB,1.0454E-04_JPRB,&
+ & 7.4462E-05_JPRB,2.9067E-05_JPRB,9.7382E-05_JPRB/)  
+KAO( :, 1, 7, 5) = (/&
+ & 1.6701E-04_JPRB,1.4912E-04_JPRB,1.3042E-04_JPRB,1.1101E-04_JPRB,8.9476E-05_JPRB,4.0710E-05_JPRB,&
+ & 6.0855E-05_JPRB,4.0116E-05_JPRB,1.6644E-05_JPRB/)  
+KAO( :, 2, 7, 5) = (/&
+ & 1.7267E-04_JPRB,1.5557E-04_JPRB,1.3718E-04_JPRB,1.1786E-04_JPRB,9.7049E-05_JPRB,4.9928E-05_JPRB,&
+ & 4.8787E-05_JPRB,4.5062E-05_JPRB,2.9556E-05_JPRB/)  
+KAO( :, 3, 7, 5) = (/&
+ & 1.7837E-04_JPRB,1.6263E-04_JPRB,1.4469E-04_JPRB,1.2545E-04_JPRB,1.0416E-04_JPRB,7.8620E-05_JPRB,&
+ & 3.6425E-05_JPRB,4.0796E-05_JPRB,4.8760E-05_JPRB/)  
+KAO( :, 4, 7, 5) = (/&
+ & 1.8378E-04_JPRB,1.6956E-04_JPRB,1.5235E-04_JPRB,1.3267E-04_JPRB,1.1063E-04_JPRB,8.6254E-05_JPRB,&
+ & 3.2851E-05_JPRB,4.0620E-05_JPRB,7.6055E-05_JPRB/)  
+KAO( :, 5, 7, 5) = (/&
+ & 1.8944E-04_JPRB,1.7724E-04_JPRB,1.6021E-04_JPRB,1.4001E-04_JPRB,1.1733E-04_JPRB,9.2830E-05_JPRB,&
+ & 6.1065E-05_JPRB,3.8081E-05_JPRB,1.1312E-04_JPRB/)  
+KAO( :, 1, 8, 5) = (/&
+ & 1.5130E-04_JPRB,1.3448E-04_JPRB,1.1721E-04_JPRB,9.9034E-05_JPRB,5.7155E-05_JPRB,4.5775E-05_JPRB,&
+ & 6.5418E-05_JPRB,3.6348E-05_JPRB,2.0483E-05_JPRB/)  
+KAO( :, 2, 8, 5) = (/&
+ & 1.5492E-04_JPRB,1.3874E-04_JPRB,1.2199E-04_JPRB,1.0406E-04_JPRB,8.3301E-05_JPRB,3.7776E-05_JPRB,&
+ & 5.8525E-05_JPRB,4.3657E-05_JPRB,3.7683E-05_JPRB/)  
+KAO( :, 3, 8, 5) = (/&
+ & 1.6015E-04_JPRB,1.4504E-04_JPRB,1.2855E-04_JPRB,1.1077E-04_JPRB,9.0857E-05_JPRB,4.6752E-05_JPRB,&
+ & 4.3822E-05_JPRB,4.5900E-05_JPRB,6.4480E-05_JPRB/)  
+KAO( :, 4, 8, 5) = (/&
+ & 1.6485E-04_JPRB,1.5131E-04_JPRB,1.3522E-04_JPRB,1.1731E-04_JPRB,9.7584E-05_JPRB,7.3940E-05_JPRB,&
+ & 3.2766E-05_JPRB,4.4537E-05_JPRB,1.0397E-04_JPRB/)  
+KAO( :, 5, 8, 5) = (/&
+ & 1.6974E-04_JPRB,1.5791E-04_JPRB,1.4195E-04_JPRB,1.2381E-04_JPRB,1.0390E-04_JPRB,8.1150E-05_JPRB,&
+ & 3.2012E-05_JPRB,4.1555E-05_JPRB,1.5936E-04_JPRB/)  
+KAO( :, 1, 9, 5) = (/&
+ & 1.3564E-04_JPRB,1.2012E-04_JPRB,1.0422E-04_JPRB,8.6571E-05_JPRB,3.4561E-05_JPRB,5.5358E-05_JPRB,&
+ & 6.8138E-05_JPRB,3.3996E-05_JPRB,4.5162E-05_JPRB/)  
+KAO( :, 2, 9, 5) = (/&
+ & 1.3891E-04_JPRB,1.2385E-04_JPRB,1.0843E-04_JPRB,9.1664E-05_JPRB,5.0992E-05_JPRB,4.2386E-05_JPRB,&
+ & 6.5806E-05_JPRB,4.0485E-05_JPRB,8.7517E-05_JPRB/)  
+KAO( :, 3, 9, 5) = (/&
+ & 1.4289E-04_JPRB,1.2859E-04_JPRB,1.1355E-04_JPRB,9.7157E-05_JPRB,7.7469E-05_JPRB,3.4604E-05_JPRB,&
+ & 5.5697E-05_JPRB,4.6781E-05_JPRB,1.5660E-04_JPRB/)  
+KAO( :, 4, 9, 5) = (/&
+ & 1.4749E-04_JPRB,1.3449E-04_JPRB,1.1965E-04_JPRB,1.0332E-04_JPRB,8.5038E-05_JPRB,4.3487E-05_JPRB,&
+ & 3.9087E-05_JPRB,4.7631E-05_JPRB,2.6232E-04_JPRB/)  
+KAO( :, 5, 9, 5) = (/&
+ & 1.5175E-04_JPRB,1.4048E-04_JPRB,1.2566E-04_JPRB,1.0925E-04_JPRB,9.1216E-05_JPRB,6.9027E-05_JPRB,&
+ & 3.0570E-05_JPRB,4.2818E-05_JPRB,4.1578E-04_JPRB/)  
+KAO( :, 1,10, 5) = (/&
+ & 1.2050E-04_JPRB,1.0644E-04_JPRB,9.1895E-05_JPRB,5.4223E-05_JPRB,4.2282E-05_JPRB,7.1662E-05_JPRB,&
+ & 7.3849E-05_JPRB,3.1216E-05_JPRB,1.2336E-04_JPRB/)  
+KAO( :, 2,10, 5) = (/&
+ & 1.2385E-04_JPRB,1.1007E-04_JPRB,9.5885E-05_JPRB,7.9074E-05_JPRB,3.2785E-05_JPRB,5.1790E-05_JPRB,&
+ & 7.0330E-05_JPRB,3.8106E-05_JPRB,2.4914E-04_JPRB/)  
+KAO( :, 3,10, 5) = (/&
+ & 1.2701E-04_JPRB,1.1389E-04_JPRB,1.0009E-04_JPRB,8.4859E-05_JPRB,4.3697E-05_JPRB,3.8515E-05_JPRB,&
+ & 6.4563E-05_JPRB,4.6857E-05_JPRB,4.6353E-04_JPRB/)  
+KAO( :, 4,10, 5) = (/&
+ & 1.3108E-04_JPRB,1.1889E-04_JPRB,1.0547E-04_JPRB,9.0382E-05_JPRB,7.1811E-05_JPRB,3.1846E-05_JPRB,&
+ & 5.3076E-05_JPRB,4.9334E-05_JPRB,8.0273E-04_JPRB/)  
+KAO( :, 5,10, 5) = (/&
+ & 1.3517E-04_JPRB,1.2455E-04_JPRB,1.1096E-04_JPRB,9.6119E-05_JPRB,7.9300E-05_JPRB,3.9467E-05_JPRB,&
+ & 3.6989E-05_JPRB,4.6816E-05_JPRB,1.3114E-03_JPRB/)  
+KAO( :, 1,11, 5) = (/&
+ & 1.0765E-04_JPRB,9.5133E-05_JPRB,8.1740E-05_JPRB,2.9684E-05_JPRB,4.4771E-05_JPRB,7.3844E-05_JPRB,&
+ & 7.4458E-05_JPRB,3.2353E-05_JPRB,1.7556E-04_JPRB/)  
+KAO( :, 2,11, 5) = (/&
+ & 1.1086E-04_JPRB,9.8643E-05_JPRB,8.5755E-05_JPRB,6.3950E-05_JPRB,3.5072E-05_JPRB,5.6362E-05_JPRB,&
+ & 7.3811E-05_JPRB,3.7974E-05_JPRB,3.5513E-04_JPRB/)  
+KAO( :, 3,11, 5) = (/&
+ & 1.1390E-04_JPRB,1.0226E-04_JPRB,8.9873E-05_JPRB,7.5337E-05_JPRB,2.7488E-05_JPRB,4.0668E-05_JPRB,&
+ & 6.6695E-05_JPRB,4.8469E-05_JPRB,6.6195E-04_JPRB/)  
+KAO( :, 4,11, 5) = (/&
+ & 1.1768E-04_JPRB,1.0695E-04_JPRB,9.4758E-05_JPRB,8.0812E-05_JPRB,5.6203E-05_JPRB,3.0959E-05_JPRB,&
+ & 5.4960E-05_JPRB,5.2325E-05_JPRB,1.1500E-03_JPRB/)  
+KAO( :, 5,11, 5) = (/&
+ & 1.2143E-04_JPRB,1.1200E-04_JPRB,9.9665E-05_JPRB,8.6317E-05_JPRB,7.0507E-05_JPRB,2.8241E-05_JPRB,&
+ & 4.0108E-05_JPRB,4.7823E-05_JPRB,1.8824E-03_JPRB/)  
+KAO( :, 1,12, 5) = (/&
+ & 9.5550E-05_JPRB,8.4510E-05_JPRB,7.2433E-05_JPRB,2.4695E-05_JPRB,4.1319E-05_JPRB,6.8965E-05_JPRB,&
+ & 7.5836E-05_JPRB,3.3972E-05_JPRB,1.8803E-04_JPRB/)  
+KAO( :, 2,12, 5) = (/&
+ & 9.8585E-05_JPRB,8.7816E-05_JPRB,7.6262E-05_JPRB,5.0625E-05_JPRB,3.2099E-05_JPRB,5.2909E-05_JPRB,&
+ & 7.1285E-05_JPRB,4.2092E-05_JPRB,3.8071E-04_JPRB/)  
+KAO( :, 3,12, 5) = (/&
+ & 1.0170E-04_JPRB,9.1397E-05_JPRB,8.0291E-05_JPRB,6.6609E-05_JPRB,2.6053E-05_JPRB,3.8656E-05_JPRB,&
+ & 6.2061E-05_JPRB,5.0288E-05_JPRB,7.1091E-04_JPRB/)  
+KAO( :, 4,12, 5) = (/&
+ & 1.0532E-04_JPRB,9.5859E-05_JPRB,8.4741E-05_JPRB,7.2190E-05_JPRB,4.4571E-05_JPRB,2.9606E-05_JPRB,&
+ & 5.1144E-05_JPRB,5.0950E-05_JPRB,1.2367E-03_JPRB/)  
+KAO( :, 5,12, 5) = (/&
+ & 1.0873E-04_JPRB,1.0026E-04_JPRB,8.9123E-05_JPRB,7.7100E-05_JPRB,6.2475E-05_JPRB,2.4044E-05_JPRB,&
+ & 3.7811E-05_JPRB,4.5929E-05_JPRB,2.0278E-03_JPRB/)  
+KAO( :, 1,13, 5) = (/&
+ & 8.4205E-05_JPRB,7.4539E-05_JPRB,6.3467E-05_JPRB,2.3538E-05_JPRB,3.8325E-05_JPRB,6.4275E-05_JPRB,&
+ & 7.5533E-05_JPRB,3.5671E-05_JPRB,1.6223E-04_JPRB/)  
+KAO( :, 2,13, 5) = (/&
+ & 8.7134E-05_JPRB,7.7658E-05_JPRB,6.7263E-05_JPRB,3.8163E-05_JPRB,2.9276E-05_JPRB,4.8144E-05_JPRB,&
+ & 6.6883E-05_JPRB,4.5962E-05_JPRB,3.2881E-04_JPRB/)  
+KAO( :, 3,13, 5) = (/&
+ & 9.0177E-05_JPRB,8.1122E-05_JPRB,7.1136E-05_JPRB,5.8053E-05_JPRB,2.4699E-05_JPRB,3.6684E-05_JPRB,&
+ & 5.7406E-05_JPRB,5.0678E-05_JPRB,6.1498E-04_JPRB/)  
+KAO( :, 4,13, 5) = (/&
+ & 9.3566E-05_JPRB,8.5217E-05_JPRB,7.5208E-05_JPRB,6.3816E-05_JPRB,3.3862E-05_JPRB,2.8346E-05_JPRB,&
+ & 4.7321E-05_JPRB,4.6618E-05_JPRB,1.0717E-03_JPRB/)  
+KAO( :, 5,13, 5) = (/&
+ & 9.6738E-05_JPRB,8.9098E-05_JPRB,7.9178E-05_JPRB,6.8356E-05_JPRB,5.4471E-05_JPRB,2.2350E-05_JPRB,&
+ & 3.5198E-05_JPRB,4.4559E-05_JPRB,1.7596E-03_JPRB/)  
+KAO( :, 1, 1, 6) = (/&
+ & 3.5218E-04_JPRB,3.2067E-04_JPRB,2.8542E-04_JPRB,2.4691E-04_JPRB,2.0715E-04_JPRB,1.6430E-04_JPRB,&
+ & 1.1630E-04_JPRB,3.0602E-05_JPRB,2.2334E-05_JPRB/)  
+KAO( :, 2, 1, 6) = (/&
+ & 3.6703E-04_JPRB,3.3779E-04_JPRB,3.0330E-04_JPRB,2.6523E-04_JPRB,2.2344E-04_JPRB,1.7999E-04_JPRB,&
+ & 1.3446E-04_JPRB,5.1639E-05_JPRB,3.3226E-05_JPRB/)  
+KAO( :, 3, 1, 6) = (/&
+ & 3.8585E-04_JPRB,3.5978E-04_JPRB,3.2593E-04_JPRB,2.8711E-04_JPRB,2.4473E-04_JPRB,2.0196E-04_JPRB,&
+ & 1.5783E-04_JPRB,1.0327E-04_JPRB,6.5420E-05_JPRB/)  
+KAO( :, 4, 1, 6) = (/&
+ & 4.0907E-04_JPRB,3.8577E-04_JPRB,3.5450E-04_JPRB,3.1632E-04_JPRB,2.7470E-04_JPRB,2.3182E-04_JPRB,&
+ & 1.8685E-04_JPRB,1.3638E-04_JPRB,1.1847E-04_JPRB/)  
+KAO( :, 5, 1, 6) = (/&
+ & 4.3737E-04_JPRB,4.1878E-04_JPRB,3.9158E-04_JPRB,3.5534E-04_JPRB,3.1369E-04_JPRB,2.6894E-04_JPRB,&
+ & 2.2111E-04_JPRB,1.7023E-04_JPRB,1.6126E-04_JPRB/)  
+KAO( :, 1, 2, 6) = (/&
+ & 3.3988E-04_JPRB,3.0828E-04_JPRB,2.7319E-04_JPRB,2.3566E-04_JPRB,1.9671E-04_JPRB,1.5488E-04_JPRB,&
+ & 1.0656E-04_JPRB,2.4639E-05_JPRB,2.0135E-05_JPRB/)  
+KAO( :, 2, 2, 6) = (/&
+ & 3.5074E-04_JPRB,3.2145E-04_JPRB,2.8720E-04_JPRB,2.5072E-04_JPRB,2.1014E-04_JPRB,1.6733E-04_JPRB,&
+ & 1.2121E-04_JPRB,3.9180E-05_JPRB,2.9901E-05_JPRB/)  
+KAO( :, 3, 2, 6) = (/&
+ & 3.6475E-04_JPRB,3.3829E-04_JPRB,3.0546E-04_JPRB,2.6776E-04_JPRB,2.2592E-04_JPRB,1.8277E-04_JPRB,&
+ & 1.3792E-04_JPRB,7.3527E-05_JPRB,6.9892E-05_JPRB/)  
+KAO( :, 4, 2, 6) = (/&
+ & 3.8225E-04_JPRB,3.5820E-04_JPRB,3.2688E-04_JPRB,2.8858E-04_JPRB,2.4665E-04_JPRB,2.0403E-04_JPRB,&
+ & 1.5963E-04_JPRB,1.1035E-04_JPRB,1.0774E-04_JPRB/)  
+KAO( :, 5, 2, 6) = (/&
+ & 4.0273E-04_JPRB,3.8268E-04_JPRB,3.5304E-04_JPRB,3.1570E-04_JPRB,2.7513E-04_JPRB,2.3154E-04_JPRB,&
+ & 1.8624E-04_JPRB,1.3783E-04_JPRB,1.4438E-04_JPRB/)  
+KAO( :, 1, 3, 6) = (/&
+ & 3.2586E-04_JPRB,2.9354E-04_JPRB,2.5840E-04_JPRB,2.2211E-04_JPRB,1.8493E-04_JPRB,1.4459E-04_JPRB,&
+ & 9.3968E-05_JPRB,2.6836E-05_JPRB,1.7667E-05_JPRB/)  
+KAO( :, 2, 3, 6) = (/&
+ & 3.3335E-04_JPRB,3.0322E-04_JPRB,2.6938E-04_JPRB,2.3450E-04_JPRB,1.9584E-04_JPRB,1.5458E-04_JPRB,&
+ & 1.0872E-04_JPRB,2.7860E-05_JPRB,4.2305E-05_JPRB/)  
+KAO( :, 3, 3, 6) = (/&
+ & 3.4307E-04_JPRB,3.1560E-04_JPRB,2.8356E-04_JPRB,2.4811E-04_JPRB,2.0859E-04_JPRB,1.6657E-04_JPRB,&
+ & 1.2164E-04_JPRB,4.3049E-05_JPRB,7.4173E-05_JPRB/)  
+KAO( :, 4, 3, 6) = (/&
+ & 3.5510E-04_JPRB,3.3067E-04_JPRB,3.0030E-04_JPRB,2.6396E-04_JPRB,2.2347E-04_JPRB,1.8094E-04_JPRB,&
+ & 1.3617E-04_JPRB,8.0549E-05_JPRB,1.0462E-04_JPRB/)  
+KAO( :, 5, 3, 6) = (/&
+ & 3.6934E-04_JPRB,3.4886E-04_JPRB,3.1925E-04_JPRB,2.8285E-04_JPRB,2.4246E-04_JPRB,1.9904E-04_JPRB,&
+ & 1.5402E-04_JPRB,1.0740E-04_JPRB,1.4134E-04_JPRB/)  
+KAO( :, 1, 4, 6) = (/&
+ & 3.1202E-04_JPRB,2.8003E-04_JPRB,2.4507E-04_JPRB,2.0972E-04_JPRB,1.7365E-04_JPRB,1.3503E-04_JPRB,&
+ & 5.8768E-05_JPRB,2.9314E-05_JPRB,2.4023E-05_JPRB/)  
+KAO( :, 2, 4, 6) = (/&
+ & 3.1813E-04_JPRB,2.8791E-04_JPRB,2.5394E-04_JPRB,2.1965E-04_JPRB,1.8377E-04_JPRB,1.4389E-04_JPRB,&
+ & 9.7093E-05_JPRB,2.3337E-05_JPRB,5.0021E-05_JPRB/)  
+KAO( :, 3, 4, 6) = (/&
+ & 3.2483E-04_JPRB,2.9675E-04_JPRB,2.6510E-04_JPRB,2.3175E-04_JPRB,1.9444E-04_JPRB,1.5360E-04_JPRB,&
+ & 1.0928E-04_JPRB,3.0718E-05_JPRB,7.6252E-05_JPRB/)  
+KAO( :, 4, 4, 6) = (/&
+ & 3.3350E-04_JPRB,3.0829E-04_JPRB,2.7872E-04_JPRB,2.4437E-04_JPRB,2.0593E-04_JPRB,1.6469E-04_JPRB,&
+ & 1.2057E-04_JPRB,4.4984E-05_JPRB,1.0921E-04_JPRB/)  
+KAO( :, 5, 4, 6) = (/&
+ & 3.4440E-04_JPRB,3.2288E-04_JPRB,2.9368E-04_JPRB,2.5882E-04_JPRB,2.1958E-04_JPRB,1.7772E-04_JPRB,&
+ & 1.3279E-04_JPRB,8.3344E-05_JPRB,1.5068E-04_JPRB/)  
+KAO( :, 1, 5, 6) = (/&
+ & 2.9770E-04_JPRB,2.6568E-04_JPRB,2.3231E-04_JPRB,1.9760E-04_JPRB,1.6264E-04_JPRB,1.2501E-04_JPRB,&
+ & 5.2212E-05_JPRB,2.7851E-05_JPRB,2.9425E-05_JPRB/)  
+KAO( :, 2, 5, 6) = (/&
+ & 3.0341E-04_JPRB,2.7316E-04_JPRB,2.3988E-04_JPRB,2.0612E-04_JPRB,1.7178E-04_JPRB,1.3444E-04_JPRB,&
+ & 6.8808E-05_JPRB,2.4233E-05_JPRB,5.0902E-05_JPRB/)  
+KAO( :, 3, 5, 6) = (/&
+ & 3.0855E-04_JPRB,2.8044E-04_JPRB,2.4851E-04_JPRB,2.1615E-04_JPRB,1.8164E-04_JPRB,1.4300E-04_JPRB,&
+ & 9.8456E-05_JPRB,2.2567E-05_JPRB,7.8789E-05_JPRB/)  
+KAO( :, 4, 5, 6) = (/&
+ & 3.1479E-04_JPRB,2.8896E-04_JPRB,2.6020E-04_JPRB,2.2793E-04_JPRB,1.9183E-04_JPRB,1.5203E-04_JPRB,&
+ & 1.0899E-04_JPRB,3.3886E-05_JPRB,1.1586E-04_JPRB/)  
+KAO( :, 5, 5, 6) = (/&
+ & 3.2275E-04_JPRB,3.0062E-04_JPRB,2.7287E-04_JPRB,2.4005E-04_JPRB,2.0243E-04_JPRB,1.6230E-04_JPRB,&
+ & 1.1916E-04_JPRB,4.8642E-05_JPRB,1.6375E-04_JPRB/)  
+KAO( :, 1, 6, 6) = (/&
+ & 2.8451E-04_JPRB,2.5278E-04_JPRB,2.2028E-04_JPRB,1.8707E-04_JPRB,1.5294E-04_JPRB,1.1368E-04_JPRB,&
+ & 5.1499E-05_JPRB,2.2491E-05_JPRB,2.9300E-05_JPRB/)  
+KAO( :, 2, 6, 6) = (/&
+ & 2.8818E-04_JPRB,2.5756E-04_JPRB,2.2592E-04_JPRB,1.9305E-04_JPRB,1.5960E-04_JPRB,1.2358E-04_JPRB,&
+ & 4.9278E-05_JPRB,2.8018E-05_JPRB,5.0020E-05_JPRB/)  
+KAO( :, 3, 6, 6) = (/&
+ & 2.9308E-04_JPRB,2.6479E-04_JPRB,2.3342E-04_JPRB,2.0176E-04_JPRB,1.6837E-04_JPRB,1.3278E-04_JPRB,&
+ & 7.5022E-05_JPRB,2.4679E-05_JPRB,7.9554E-05_JPRB/)  
+KAO( :, 4, 6, 6) = (/&
+ & 2.9797E-04_JPRB,2.7171E-04_JPRB,2.4252E-04_JPRB,2.1130E-04_JPRB,1.7798E-04_JPRB,1.4080E-04_JPRB,&
+ & 9.8593E-05_JPRB,2.6413E-05_JPRB,1.2029E-04_JPRB/)  
+KAO( :, 5, 6, 6) = (/&
+ & 3.0385E-04_JPRB,2.8038E-04_JPRB,2.5320E-04_JPRB,2.2231E-04_JPRB,1.8746E-04_JPRB,1.4953E-04_JPRB,&
+ & 1.0805E-04_JPRB,3.4957E-05_JPRB,1.7428E-04_JPRB/)  
+KAO( :, 1, 7, 6) = (/&
+ & 2.7154E-04_JPRB,2.4047E-04_JPRB,2.0869E-04_JPRB,1.7653E-04_JPRB,1.4316E-04_JPRB,6.3076E-05_JPRB,&
+ & 5.3076E-05_JPRB,1.8799E-05_JPRB,2.9459E-05_JPRB/)  
+KAO( :, 2, 7, 6) = (/&
+ & 2.7322E-04_JPRB,2.4322E-04_JPRB,2.1245E-04_JPRB,1.8113E-04_JPRB,1.4876E-04_JPRB,1.1194E-04_JPRB,&
+ & 4.9416E-05_JPRB,2.1766E-05_JPRB,5.1977E-05_JPRB/)  
+KAO( :, 3, 7, 6) = (/&
+ & 2.7795E-04_JPRB,2.4940E-04_JPRB,2.1931E-04_JPRB,1.8853E-04_JPRB,1.5632E-04_JPRB,1.2173E-04_JPRB,&
+ & 4.3459E-05_JPRB,2.7910E-05_JPRB,8.5515E-05_JPRB/)  
+KAO( :, 4, 7, 6) = (/&
+ & 2.8245E-04_JPRB,2.5609E-04_JPRB,2.2726E-04_JPRB,1.9695E-04_JPRB,1.6467E-04_JPRB,1.3028E-04_JPRB,&
+ & 8.3030E-05_JPRB,3.1238E-05_JPRB,1.3325E-04_JPRB/)  
+KAO( :, 5, 7, 6) = (/&
+ & 2.8703E-04_JPRB,2.6318E-04_JPRB,2.3595E-04_JPRB,2.0579E-04_JPRB,1.7351E-04_JPRB,1.3813E-04_JPRB,&
+ & 9.7826E-05_JPRB,2.9395E-05_JPRB,1.9863E-04_JPRB/)  
+KAO( :, 1, 8, 6) = (/&
+ & 2.5666E-04_JPRB,2.2665E-04_JPRB,1.9623E-04_JPRB,1.6528E-04_JPRB,1.3188E-04_JPRB,5.2672E-05_JPRB,&
+ & 5.4590E-05_JPRB,1.5212E-05_JPRB,3.5336E-05_JPRB/)  
+KAO( :, 2, 8, 6) = (/&
+ & 2.5871E-04_JPRB,2.2976E-04_JPRB,1.9987E-04_JPRB,1.6976E-04_JPRB,1.3838E-04_JPRB,6.2293E-05_JPRB,&
+ & 5.1049E-05_JPRB,2.0990E-05_JPRB,6.5164E-05_JPRB/)  
+KAO( :, 3, 8, 6) = (/&
+ & 2.6131E-04_JPRB,2.3354E-04_JPRB,2.0472E-04_JPRB,1.7542E-04_JPRB,1.4479E-04_JPRB,1.0936E-04_JPRB,&
+ & 4.3593E-05_JPRB,2.7838E-05_JPRB,1.1164E-04_JPRB/)  
+KAO( :, 4, 8, 6) = (/&
+ & 2.6597E-04_JPRB,2.3972E-04_JPRB,2.1214E-04_JPRB,1.8293E-04_JPRB,1.5207E-04_JPRB,1.1872E-04_JPRB,&
+ & 4.2928E-05_JPRB,2.9399E-05_JPRB,1.8005E-04_JPRB/)  
+KAO( :, 5, 8, 6) = (/&
+ & 2.6965E-04_JPRB,2.4602E-04_JPRB,2.1946E-04_JPRB,1.9059E-04_JPRB,1.5945E-04_JPRB,1.2678E-04_JPRB,&
+ & 8.1506E-05_JPRB,3.0396E-05_JPRB,2.7574E-04_JPRB/)  
+KAO( :, 1, 9, 6) = (/&
+ & 2.4051E-04_JPRB,2.1191E-04_JPRB,1.8318E-04_JPRB,1.5348E-04_JPRB,8.9740E-05_JPRB,5.6443E-05_JPRB,&
+ & 5.8323E-05_JPRB,1.3977E-05_JPRB,7.8714E-05_JPRB/)  
+KAO( :, 2, 9, 6) = (/&
+ & 2.4280E-04_JPRB,2.1514E-04_JPRB,1.8659E-04_JPRB,1.5766E-04_JPRB,1.2621E-04_JPRB,4.8115E-05_JPRB,&
+ & 5.1962E-05_JPRB,1.8297E-05_JPRB,1.5286E-04_JPRB/)  
+KAO( :, 3, 9, 6) = (/&
+ & 2.4480E-04_JPRB,2.1809E-04_JPRB,1.9044E-04_JPRB,1.6238E-04_JPRB,1.3286E-04_JPRB,5.9719E-05_JPRB,&
+ & 4.7955E-05_JPRB,2.2245E-05_JPRB,2.7373E-04_JPRB/)  
+KAO( :, 4, 9, 6) = (/&
+ & 2.4800E-04_JPRB,2.2255E-04_JPRB,1.9613E-04_JPRB,1.6836E-04_JPRB,1.3908E-04_JPRB,1.0477E-04_JPRB,&
+ & 3.9262E-05_JPRB,3.1477E-05_JPRB,4.5768E-04_JPRB/)  
+KAO( :, 5, 9, 6) = (/&
+ & 2.5161E-04_JPRB,2.2818E-04_JPRB,2.0281E-04_JPRB,1.7515E-04_JPRB,1.4598E-04_JPRB,1.1469E-04_JPRB,&
+ & 3.6846E-05_JPRB,3.4477E-05_JPRB,7.2229E-04_JPRB/)  
+KAO( :, 1,10, 6) = (/&
+ & 2.2330E-04_JPRB,1.9647E-04_JPRB,1.6947E-04_JPRB,1.4070E-04_JPRB,5.0397E-05_JPRB,6.4372E-05_JPRB,&
+ & 5.4119E-05_JPRB,1.3671E-05_JPRB,2.1819E-04_JPRB/)  
+KAO( :, 2,10, 6) = (/&
+ & 2.2579E-04_JPRB,1.9970E-04_JPRB,1.7289E-04_JPRB,1.4528E-04_JPRB,8.0532E-05_JPRB,5.4367E-05_JPRB,&
+ & 6.0104E-05_JPRB,1.5483E-05_JPRB,4.4393E-04_JPRB/)  
+KAO( :, 3,10, 6) = (/&
+ & 2.2759E-04_JPRB,2.0234E-04_JPRB,1.7625E-04_JPRB,1.4950E-04_JPRB,1.1945E-04_JPRB,4.4354E-05_JPRB,&
+ & 5.3052E-05_JPRB,2.1110E-05_JPRB,8.2682E-04_JPRB/)  
+KAO( :, 4,10, 6) = (/&
+ & 2.2922E-04_JPRB,2.0521E-04_JPRB,1.8016E-04_JPRB,1.5410E-04_JPRB,1.2582E-04_JPRB,5.3486E-05_JPRB,&
+ & 4.4581E-05_JPRB,2.9122E-05_JPRB,1.4295E-03_JPRB/)  
+KAO( :, 5,10, 6) = (/&
+ & 2.3198E-04_JPRB,2.0949E-04_JPRB,1.8557E-04_JPRB,1.5950E-04_JPRB,1.3216E-04_JPRB,9.8775E-05_JPRB,&
+ & 3.6643E-05_JPRB,3.6794E-05_JPRB,2.3221E-03_JPRB/)  
+KAO( :, 1,11, 6) = (/&
+ & 2.0583E-04_JPRB,1.8127E-04_JPRB,1.5633E-04_JPRB,1.2776E-04_JPRB,4.7811E-05_JPRB,6.9737E-05_JPRB,&
+ & 5.8557E-05_JPRB,1.2546E-05_JPRB,3.1512E-04_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART4',1,ZHOOK_HANDLE)
+END SUBROUTINE PART4
+
+
+SUBROUTINE PART5
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART5',0,ZHOOK_HANDLE)
+
+
+KAO( :, 2,11, 6) = (/&
+ & 2.0808E-04_JPRB,1.8417E-04_JPRB,1.5959E-04_JPRB,1.3341E-04_JPRB,4.2960E-05_JPRB,5.2587E-05_JPRB,&
+ & 6.0943E-05_JPRB,1.7249E-05_JPRB,6.4309E-04_JPRB/)  
+KAO( :, 3,11, 6) = (/&
+ & 2.0985E-04_JPRB,1.8679E-04_JPRB,1.6278E-04_JPRB,1.3786E-04_JPRB,1.0094E-04_JPRB,4.2926E-05_JPRB,&
+ & 5.4000E-05_JPRB,2.1438E-05_JPRB,1.2009E-03_JPRB/)  
+KAO( :, 4,11, 6) = (/&
+ & 2.1113E-04_JPRB,1.8931E-04_JPRB,1.6638E-04_JPRB,1.4208E-04_JPRB,1.1471E-04_JPRB,3.5997E-05_JPRB,&
+ & 4.5064E-05_JPRB,2.9593E-05_JPRB,2.0809E-03_JPRB/)  
+KAO( :, 5,11, 6) = (/&
+ & 2.1332E-04_JPRB,1.9322E-04_JPRB,1.7102E-04_JPRB,1.4678E-04_JPRB,1.2136E-04_JPRB,7.6714E-05_JPRB,&
+ & 3.8255E-05_JPRB,4.0077E-05_JPRB,3.3932E-03_JPRB/)  
+KAO( :, 1,12, 6) = (/&
+ & 1.8719E-04_JPRB,1.6501E-04_JPRB,1.4226E-04_JPRB,1.0840E-04_JPRB,4.3551E-05_JPRB,6.5135E-05_JPRB,&
+ & 6.0449E-05_JPRB,1.2368E-05_JPRB,3.4134E-04_JPRB/)  
+KAO( :, 2,12, 6) = (/&
+ & 1.8952E-04_JPRB,1.6785E-04_JPRB,1.4553E-04_JPRB,1.2117E-04_JPRB,3.5062E-05_JPRB,4.8573E-05_JPRB,&
+ & 6.2841E-05_JPRB,1.5474E-05_JPRB,6.9803E-04_JPRB/)  
+KAO( :, 3,12, 6) = (/&
+ & 1.9118E-04_JPRB,1.7048E-04_JPRB,1.4865E-04_JPRB,1.2583E-04_JPRB,8.1862E-05_JPRB,3.7617E-05_JPRB,&
+ & 5.3564E-05_JPRB,2.1248E-05_JPRB,1.3057E-03_JPRB/)  
+KAO( :, 4,12, 6) = (/&
+ & 1.9270E-04_JPRB,1.7320E-04_JPRB,1.5231E-04_JPRB,1.2983E-04_JPRB,1.0441E-04_JPRB,3.3342E-05_JPRB,&
+ & 4.1959E-05_JPRB,3.5845E-05_JPRB,2.2690E-03_JPRB/)  
+KAO( :, 5,12, 6) = (/&
+ & 1.9518E-04_JPRB,1.7738E-04_JPRB,1.5684E-04_JPRB,1.3457E-04_JPRB,1.1104E-04_JPRB,6.4947E-05_JPRB,&
+ & 3.5407E-05_JPRB,4.3496E-05_JPRB,3.7128E-03_JPRB/)  
+KAO( :, 1,13, 6) = (/&
+ & 1.6844E-04_JPRB,1.4859E-04_JPRB,1.2806E-04_JPRB,8.6165E-05_JPRB,4.0107E-05_JPRB,6.0133E-05_JPRB,&
+ & 6.1357E-05_JPRB,1.2763E-05_JPRB,2.9734E-04_JPRB/)  
+KAO( :, 2,13, 6) = (/&
+ & 1.7069E-04_JPRB,1.5140E-04_JPRB,1.3134E-04_JPRB,1.0891E-04_JPRB,3.2613E-05_JPRB,4.6872E-05_JPRB,&
+ & 6.0094E-05_JPRB,1.5072E-05_JPRB,6.0887E-04_JPRB/)  
+KAO( :, 3,13, 6) = (/&
+ & 1.7244E-04_JPRB,1.5407E-04_JPRB,1.3444E-04_JPRB,1.1361E-04_JPRB,6.4637E-05_JPRB,3.4627E-05_JPRB,&
+ & 4.8765E-05_JPRB,2.7303E-05_JPRB,1.1416E-03_JPRB/)  
+KAO( :, 4,13, 6) = (/&
+ & 1.7422E-04_JPRB,1.5702E-04_JPRB,1.3806E-04_JPRB,1.1756E-04_JPRB,9.3337E-05_JPRB,3.0148E-05_JPRB,&
+ & 3.8538E-05_JPRB,4.2636E-05_JPRB,1.9903E-03_JPRB/)  
+KAO( :, 5,13, 6) = (/&
+ & 1.7685E-04_JPRB,1.6120E-04_JPRB,1.4238E-04_JPRB,1.2222E-04_JPRB,1.0041E-04_JPRB,5.2947E-05_JPRB,&
+ & 3.1886E-05_JPRB,4.0330E-05_JPRB,3.2638E-03_JPRB/)  
+KAO( :, 1, 1, 7) = (/&
+ & 4.3889E-04_JPRB,3.9958E-04_JPRB,3.5783E-04_JPRB,3.1336E-04_JPRB,2.6698E-04_JPRB,2.1857E-04_JPRB,&
+ & 1.6424E-04_JPRB,4.0399E-05_JPRB,2.8247E-05_JPRB/)  
+KAO( :, 2, 1, 7) = (/&
+ & 4.5976E-04_JPRB,4.2497E-04_JPRB,3.8736E-04_JPRB,3.4581E-04_JPRB,3.0220E-04_JPRB,2.5189E-04_JPRB,&
+ & 1.9631E-04_JPRB,1.0954E-04_JPRB,6.7630E-05_JPRB/)  
+KAO( :, 3, 1, 7) = (/&
+ & 4.8944E-04_JPRB,4.6159E-04_JPRB,4.2784E-04_JPRB,3.8962E-04_JPRB,3.4476E-04_JPRB,2.9292E-04_JPRB,&
+ & 2.3514E-04_JPRB,1.7014E-04_JPRB,1.5365E-04_JPRB/)  
+KAO( :, 4, 1, 7) = (/&
+ & 5.2941E-04_JPRB,5.1023E-04_JPRB,4.7948E-04_JPRB,4.4219E-04_JPRB,3.9618E-04_JPRB,3.4392E-04_JPRB,&
+ & 2.8630E-04_JPRB,2.2387E-04_JPRB,2.1803E-04_JPRB/)  
+KAO( :, 5, 1, 7) = (/&
+ & 5.7974E-04_JPRB,5.6859E-04_JPRB,5.4269E-04_JPRB,5.0514E-04_JPRB,4.6062E-04_JPRB,4.1002E-04_JPRB,&
+ & 3.5338E-04_JPRB,2.8599E-04_JPRB,2.8983E-04_JPRB/)  
+KAO( :, 1, 2, 7) = (/&
+ & 4.2778E-04_JPRB,3.8751E-04_JPRB,3.4424E-04_JPRB,2.9838E-04_JPRB,2.5188E-04_JPRB,2.0290E-04_JPRB,&
+ & 1.4875E-04_JPRB,2.6658E-05_JPRB,3.1573E-05_JPRB/)  
+KAO( :, 2, 2, 7) = (/&
+ & 4.4270E-04_JPRB,4.0621E-04_JPRB,3.6561E-04_JPRB,3.2154E-04_JPRB,2.7708E-04_JPRB,2.2750E-04_JPRB,&
+ & 1.7305E-04_JPRB,6.5324E-05_JPRB,8.8564E-05_JPRB/)  
+KAO( :, 3, 2, 7) = (/&
+ & 4.6316E-04_JPRB,4.3154E-04_JPRB,3.9306E-04_JPRB,3.5392E-04_JPRB,3.0888E-04_JPRB,2.5881E-04_JPRB,&
+ & 2.0328E-04_JPRB,1.3652E-04_JPRB,1.4781E-04_JPRB/)  
+KAO( :, 4, 2, 7) = (/&
+ & 4.8891E-04_JPRB,4.6467E-04_JPRB,4.3116E-04_JPRB,3.9316E-04_JPRB,3.4835E-04_JPRB,2.9748E-04_JPRB,&
+ & 2.4237E-04_JPRB,1.8240E-04_JPRB,2.0533E-04_JPRB/)  
+KAO( :, 5, 2, 7) = (/&
+ & 5.2249E-04_JPRB,5.0735E-04_JPRB,4.7839E-04_JPRB,4.4173E-04_JPRB,3.9700E-04_JPRB,3.4683E-04_JPRB,&
+ & 2.9289E-04_JPRB,2.3410E-04_JPRB,2.7363E-04_JPRB/)  
+KAO( :, 1, 3, 7) = (/&
+ & 4.1666E-04_JPRB,3.7587E-04_JPRB,3.3124E-04_JPRB,2.8500E-04_JPRB,2.3719E-04_JPRB,1.8911E-04_JPRB,&
+ & 1.3261E-04_JPRB,2.3452E-05_JPRB,4.9343E-05_JPRB/)  
+KAO( :, 2, 3, 7) = (/&
+ & 4.2699E-04_JPRB,3.8906E-04_JPRB,3.4648E-04_JPRB,3.0084E-04_JPRB,2.5570E-04_JPRB,2.0628E-04_JPRB,&
+ & 1.5092E-04_JPRB,2.8713E-05_JPRB,9.9198E-05_JPRB/)  
+KAO( :, 3, 3, 7) = (/&
+ & 4.4021E-04_JPRB,4.0629E-04_JPRB,3.6539E-04_JPRB,3.2263E-04_JPRB,2.7685E-04_JPRB,2.2699E-04_JPRB,&
+ & 1.7257E-04_JPRB,8.2898E-05_JPRB,1.4682E-04_JPRB/)  
+KAO( :, 4, 3, 7) = (/&
+ & 4.5674E-04_JPRB,4.2778E-04_JPRB,3.8962E-04_JPRB,3.4911E-04_JPRB,3.0352E-04_JPRB,2.5381E-04_JPRB,&
+ & 1.9998E-04_JPRB,1.3835E-04_JPRB,2.0520E-04_JPRB/)  
+KAO( :, 5, 3, 7) = (/&
+ & 4.7776E-04_JPRB,4.5415E-04_JPRB,4.2101E-04_JPRB,3.8173E-04_JPRB,3.3698E-04_JPRB,2.8849E-04_JPRB,&
+ & 2.3510E-04_JPRB,1.7936E-04_JPRB,2.7654E-04_JPRB/)  
+KAO( :, 1, 4, 7) = (/&
+ & 4.0967E-04_JPRB,3.6653E-04_JPRB,3.2176E-04_JPRB,2.7479E-04_JPRB,2.2703E-04_JPRB,1.7902E-04_JPRB,&
+ & 1.1570E-04_JPRB,2.0026E-05_JPRB,6.2716E-05_JPRB/)  
+KAO( :, 2, 4, 7) = (/&
+ & 4.1728E-04_JPRB,3.7737E-04_JPRB,3.3344E-04_JPRB,2.8769E-04_JPRB,2.4076E-04_JPRB,1.9242E-04_JPRB,&
+ & 1.3658E-04_JPRB,2.3923E-05_JPRB,1.0107E-04_JPRB/)  
+KAO( :, 3, 4, 7) = (/&
+ & 4.2535E-04_JPRB,3.8928E-04_JPRB,3.4656E-04_JPRB,3.0255E-04_JPRB,2.5648E-04_JPRB,2.0706E-04_JPRB,&
+ & 1.5237E-04_JPRB,3.0608E-05_JPRB,1.5048E-04_JPRB/)  
+KAO( :, 4, 4, 7) = (/&
+ & 4.3671E-04_JPRB,4.0394E-04_JPRB,3.6448E-04_JPRB,3.2102E-04_JPRB,2.7530E-04_JPRB,2.2501E-04_JPRB,&
+ & 1.7081E-04_JPRB,9.6060E-05_JPRB,2.1454E-04_JPRB/)  
+KAO( :, 5, 4, 7) = (/&
+ & 4.4976E-04_JPRB,4.2181E-04_JPRB,3.8534E-04_JPRB,3.4353E-04_JPRB,2.9780E-04_JPRB,2.4759E-04_JPRB,&
+ & 1.9471E-04_JPRB,1.3517E-04_JPRB,2.9601E-04_JPRB/)  
+KAO( :, 1, 5, 7) = (/&
+ & 4.0808E-04_JPRB,3.6358E-04_JPRB,3.1756E-04_JPRB,2.7050E-04_JPRB,2.2238E-04_JPRB,1.7234E-04_JPRB,&
+ & 5.9731E-05_JPRB,1.5183E-05_JPRB,6.3144E-05_JPRB/)  
+KAO( :, 2, 5, 7) = (/&
+ & 4.1172E-04_JPRB,3.6950E-04_JPRB,3.2496E-04_JPRB,2.7819E-04_JPRB,2.3077E-04_JPRB,1.8213E-04_JPRB,&
+ & 1.2446E-04_JPRB,2.0194E-05_JPRB,1.0232E-04_JPRB/)  
+KAO( :, 3, 5, 7) = (/&
+ & 4.1699E-04_JPRB,3.7855E-04_JPRB,3.3456E-04_JPRB,2.8999E-04_JPRB,2.4284E-04_JPRB,1.9427E-04_JPRB,&
+ & 1.3989E-04_JPRB,2.2013E-05_JPRB,1.5619E-04_JPRB/)  
+KAO( :, 4, 5, 7) = (/&
+ & 4.2318E-04_JPRB,3.8831E-04_JPRB,3.4637E-04_JPRB,3.0279E-04_JPRB,2.5707E-04_JPRB,2.0772E-04_JPRB,&
+ & 1.5350E-04_JPRB,3.7923E-05_JPRB,2.2888E-04_JPRB/)  
+KAO( :, 5, 5, 7) = (/&
+ & 4.3181E-04_JPRB,3.9999E-04_JPRB,3.6216E-04_JPRB,3.1916E-04_JPRB,2.7412E-04_JPRB,2.2354E-04_JPRB,&
+ & 1.6943E-04_JPRB,1.0257E-04_JPRB,3.2402E-04_JPRB/)  
+KAO( :, 1, 6, 7) = (/&
+ & 4.0917E-04_JPRB,3.6282E-04_JPRB,3.1586E-04_JPRB,2.6754E-04_JPRB,2.1851E-04_JPRB,1.6735E-04_JPRB,&
+ & 5.0306E-05_JPRB,1.4647E-05_JPRB,5.9838E-05_JPRB/)  
+KAO( :, 2, 6, 7) = (/&
+ & 4.0728E-04_JPRB,3.6393E-04_JPRB,3.1828E-04_JPRB,2.7141E-04_JPRB,2.2388E-04_JPRB,1.7484E-04_JPRB,&
+ & 6.6257E-05_JPRB,1.8734E-05_JPRB,1.0066E-04_JPRB/)  
+KAO( :, 3, 6, 7) = (/&
+ & 4.1093E-04_JPRB,3.6989E-04_JPRB,3.2582E-04_JPRB,2.7999E-04_JPRB,2.3310E-04_JPRB,1.8335E-04_JPRB,&
+ & 1.2803E-04_JPRB,1.9091E-05_JPRB,1.6014E-04_JPRB/)  
+KAO( :, 4, 6, 7) = (/&
+ & 4.1435E-04_JPRB,3.7775E-04_JPRB,3.3462E-04_JPRB,2.9056E-04_JPRB,2.4377E-04_JPRB,1.9519E-04_JPRB,&
+ & 1.4167E-04_JPRB,2.4651E-05_JPRB,2.4320E-04_JPRB/)  
+KAO( :, 5, 6, 7) = (/&
+ & 4.1880E-04_JPRB,3.8572E-04_JPRB,3.4541E-04_JPRB,3.0219E-04_JPRB,2.5684E-04_JPRB,2.0763E-04_JPRB,&
+ & 1.5383E-04_JPRB,5.0012E-05_JPRB,3.5512E-04_JPRB/)  
+KAO( :, 1, 7, 7) = (/&
+ & 4.0843E-04_JPRB,3.6062E-04_JPRB,3.1311E-04_JPRB,2.6422E-04_JPRB,2.1469E-04_JPRB,1.5788E-04_JPRB,&
+ & 4.4260E-05_JPRB,1.0477E-05_JPRB,5.9419E-05_JPRB/)  
+KAO( :, 2, 7, 7) = (/&
+ & 4.0468E-04_JPRB,3.5984E-04_JPRB,3.1329E-04_JPRB,2.6596E-04_JPRB,2.1769E-04_JPRB,1.6781E-04_JPRB,&
+ & 5.1786E-05_JPRB,1.4646E-05_JPRB,1.0524E-04_JPRB/)  
+KAO( :, 3, 7, 7) = (/&
+ & 4.0363E-04_JPRB,3.6136E-04_JPRB,3.1683E-04_JPRB,2.7075E-04_JPRB,2.2418E-04_JPRB,1.7495E-04_JPRB,&
+ & 8.7540E-05_JPRB,1.8041E-05_JPRB,1.7514E-04_JPRB/)  
+KAO( :, 4, 7, 7) = (/&
+ & 4.0645E-04_JPRB,3.6771E-04_JPRB,3.2468E-04_JPRB,2.8007E-04_JPRB,2.3381E-04_JPRB,1.8431E-04_JPRB,&
+ & 1.2997E-04_JPRB,1.8283E-05_JPRB,2.7663E-04_JPRB/)  
+KAO( :, 5, 7, 7) = (/&
+ & 4.0882E-04_JPRB,3.7446E-04_JPRB,3.3339E-04_JPRB,2.9009E-04_JPRB,2.4386E-04_JPRB,1.9554E-04_JPRB,&
+ & 1.4307E-04_JPRB,2.6104E-05_JPRB,4.1561E-04_JPRB/)  
+KAO( :, 1, 8, 7) = (/&
+ & 4.0424E-04_JPRB,3.5590E-04_JPRB,3.0795E-04_JPRB,2.5922E-04_JPRB,2.0908E-04_JPRB,7.0272E-05_JPRB,&
+ & 3.7437E-05_JPRB,1.0693E-05_JPRB,7.0148E-05_JPRB/)  
+KAO( :, 2, 8, 7) = (/&
+ & 3.9936E-04_JPRB,3.5369E-04_JPRB,3.0725E-04_JPRB,2.5982E-04_JPRB,2.1133E-04_JPRB,1.5687E-04_JPRB,&
+ & 4.6834E-05_JPRB,1.4067E-05_JPRB,1.3163E-04_JPRB/)  
+KAO( :, 3, 8, 7) = (/&
+ & 3.9575E-04_JPRB,3.5313E-04_JPRB,3.0818E-04_JPRB,2.6229E-04_JPRB,2.1562E-04_JPRB,1.6577E-04_JPRB,&
+ & 5.0426E-05_JPRB,1.5328E-05_JPRB,2.2983E-04_JPRB/)  
+KAO( :, 4, 8, 7) = (/&
+ & 3.9577E-04_JPRB,3.5593E-04_JPRB,3.1259E-04_JPRB,2.6838E-04_JPRB,2.2238E-04_JPRB,1.7380E-04_JPRB,&
+ & 9.5405E-05_JPRB,1.7738E-05_JPRB,3.7526E-04_JPRB/)  
+KAO( :, 5, 8, 7) = (/&
+ & 3.9853E-04_JPRB,3.6216E-04_JPRB,3.2118E-04_JPRB,2.7729E-04_JPRB,2.3198E-04_JPRB,1.8391E-04_JPRB,&
+ & 1.3140E-04_JPRB,2.3100E-05_JPRB,5.7971E-04_JPRB/)  
+KAO( :, 1, 9, 7) = (/&
+ & 3.9550E-04_JPRB,3.4756E-04_JPRB,2.9976E-04_JPRB,2.5157E-04_JPRB,2.0053E-04_JPRB,6.3971E-05_JPRB,&
+ & 3.0992E-05_JPRB,8.5618E-06_JPRB,1.5177E-04_JPRB/)  
+KAO( :, 2, 9, 7) = (/&
+ & 3.9108E-04_JPRB,3.4522E-04_JPRB,2.9936E-04_JPRB,2.5239E-04_JPRB,2.0355E-04_JPRB,7.9459E-05_JPRB,&
+ & 4.6168E-05_JPRB,1.0069E-05_JPRB,3.0222E-04_JPRB/)  
+KAO( :, 3, 9, 7) = (/&
+ & 3.8711E-04_JPRB,3.4432E-04_JPRB,2.9976E-04_JPRB,2.5434E-04_JPRB,2.0775E-04_JPRB,1.5531E-04_JPRB,&
+ & 4.6577E-05_JPRB,1.4628E-05_JPRB,5.5112E-04_JPRB/)  
+KAO( :, 4, 9, 7) = (/&
+ & 3.8454E-04_JPRB,3.4471E-04_JPRB,3.0182E-04_JPRB,2.5833E-04_JPRB,2.1289E-04_JPRB,1.6399E-04_JPRB,&
+ & 4.7735E-05_JPRB,1.8317E-05_JPRB,9.3434E-04_JPRB/)  
+KAO( :, 5, 9, 7) = (/&
+ & 3.8590E-04_JPRB,3.4906E-04_JPRB,3.0820E-04_JPRB,2.6500E-04_JPRB,2.1985E-04_JPRB,1.7262E-04_JPRB,&
+ & 1.0739E-04_JPRB,2.0046E-05_JPRB,1.4932E-03_JPRB/)  
+KAO( :, 1,10, 7) = (/&
+ & 3.8145E-04_JPRB,3.3484E-04_JPRB,2.8824E-04_JPRB,2.4073E-04_JPRB,1.3749E-04_JPRB,6.8864E-05_JPRB,&
+ & 1.3426E-05_JPRB,5.4253E-06_JPRB,4.2208E-04_JPRB/)  
+KAO( :, 2,10, 7) = (/&
+ & 3.7808E-04_JPRB,3.3310E-04_JPRB,2.8836E-04_JPRB,2.4244E-04_JPRB,1.9222E-04_JPRB,5.4332E-05_JPRB,&
+ & 3.8318E-05_JPRB,1.3544E-05_JPRB,8.8420E-04_JPRB/)  
+KAO( :, 3,10, 7) = (/&
+ & 3.7522E-04_JPRB,3.3290E-04_JPRB,2.8933E-04_JPRB,2.4468E-04_JPRB,1.9821E-04_JPRB,8.2625E-05_JPRB,&
+ & 4.6026E-05_JPRB,1.3859E-05_JPRB,1.6822E-03_JPRB/)  
+KAO( :, 4,10, 7) = (/&
+ & 3.7308E-04_JPRB,3.3362E-04_JPRB,2.9154E-04_JPRB,2.4864E-04_JPRB,2.0415E-04_JPRB,1.5269E-04_JPRB,&
+ & 4.6983E-05_JPRB,1.4205E-05_JPRB,2.9547E-03_JPRB/)  
+KAO( :, 5,10, 7) = (/&
+ & 3.7174E-04_JPRB,3.3554E-04_JPRB,2.9552E-04_JPRB,2.5392E-04_JPRB,2.0969E-04_JPRB,1.6270E-04_JPRB,&
+ & 4.1673E-05_JPRB,1.7828E-05_JPRB,4.8607E-03_JPRB/)  
+KAO( :, 1,11, 7) = (/&
+ & 3.6294E-04_JPRB,3.1871E-04_JPRB,2.7451E-04_JPRB,2.2858E-04_JPRB,8.3578E-05_JPRB,6.1372E-05_JPRB,&
+ & 1.3364E-05_JPRB,7.7912E-06_JPRB,6.2992E-04_JPRB/)  
+KAO( :, 2,11, 7) = (/&
+ & 3.6112E-04_JPRB,3.1852E-04_JPRB,2.7580E-04_JPRB,2.3178E-04_JPRB,1.8037E-04_JPRB,5.7295E-05_JPRB,&
+ & 4.0682E-05_JPRB,1.2520E-05_JPRB,1.3182E-03_JPRB/)  
+KAO( :, 3,11, 7) = (/&
+ & 3.5947E-04_JPRB,3.1941E-04_JPRB,2.7779E-04_JPRB,2.3507E-04_JPRB,1.9020E-04_JPRB,4.7650E-05_JPRB,&
+ & 4.7645E-05_JPRB,1.4087E-05_JPRB,2.5064E-03_JPRB/)  
+KAO( :, 4,11, 7) = (/&
+ & 3.5796E-04_JPRB,3.2062E-04_JPRB,2.8056E-04_JPRB,2.3967E-04_JPRB,1.9644E-04_JPRB,1.3235E-04_JPRB,&
+ & 4.6296E-05_JPRB,1.5164E-05_JPRB,4.4025E-03_JPRB/)  
+KAO( :, 5,11, 7) = (/&
+ & 3.5673E-04_JPRB,3.2259E-04_JPRB,2.8479E-04_JPRB,2.4474E-04_JPRB,2.0200E-04_JPRB,1.5578E-04_JPRB,&
+ & 4.2752E-05_JPRB,1.8894E-05_JPRB,7.2340E-03_JPRB/)  
+KAO( :, 1,12, 7) = (/&
+ & 3.4280E-04_JPRB,3.0118E-04_JPRB,2.5967E-04_JPRB,2.1631E-04_JPRB,7.2200E-05_JPRB,5.9727E-05_JPRB,&
+ & 3.2869E-05_JPRB,5.5658E-06_JPRB,7.0164E-04_JPRB/)  
+KAO( :, 2,12, 7) = (/&
+ & 3.4212E-04_JPRB,3.0217E-04_JPRB,2.6182E-04_JPRB,2.2007E-04_JPRB,1.6435E-04_JPRB,5.4340E-05_JPRB,&
+ & 4.2800E-05_JPRB,1.1130E-05_JPRB,1.4668E-03_JPRB/)  
+KAO( :, 3,12, 7) = (/&
+ & 3.4134E-04_JPRB,3.0369E-04_JPRB,2.6435E-04_JPRB,2.2391E-04_JPRB,1.8076E-04_JPRB,4.4282E-05_JPRB,&
+ & 4.6617E-05_JPRB,1.2881E-05_JPRB,2.7876E-03_JPRB/)  
+KAO( :, 4,12, 7) = (/&
+ & 3.4044E-04_JPRB,3.0540E-04_JPRB,2.6773E-04_JPRB,2.2890E-04_JPRB,1.8713E-04_JPRB,1.1838E-04_JPRB,&
+ & 4.1381E-05_JPRB,1.3556E-05_JPRB,4.8923E-03_JPRB/)  
+KAO( :, 5,12, 7) = (/&
+ & 3.3969E-04_JPRB,3.0785E-04_JPRB,2.7216E-04_JPRB,2.3387E-04_JPRB,1.9308E-04_JPRB,1.4819E-04_JPRB,&
+ & 3.8774E-05_JPRB,2.3365E-05_JPRB,8.0367E-03_JPRB/)  
+KAO( :, 1,13, 7) = (/&
+ & 3.2074E-04_JPRB,2.8200E-04_JPRB,2.4335E-04_JPRB,2.0260E-04_JPRB,5.9755E-05_JPRB,5.5012E-05_JPRB,&
+ & 4.0916E-05_JPRB,6.5979E-06_JPRB,6.2734E-04_JPRB/)  
+KAO( :, 2,13, 7) = (/&
+ & 3.2081E-04_JPRB,2.8371E-04_JPRB,2.4601E-04_JPRB,2.0672E-04_JPRB,1.4264E-04_JPRB,4.7131E-05_JPRB,&
+ & 4.6167E-05_JPRB,1.0279E-05_JPRB,1.3098E-03_JPRB/)  
+KAO( :, 3,13, 7) = (/&
+ & 3.2050E-04_JPRB,2.8547E-04_JPRB,2.4888E-04_JPRB,2.1104E-04_JPRB,1.6957E-04_JPRB,3.8720E-05_JPRB,&
+ & 4.6164E-05_JPRB,1.0646E-05_JPRB,2.4868E-03_JPRB/)  
+KAO( :, 4,13, 7) = (/&
+ & 3.2004E-04_JPRB,2.8761E-04_JPRB,2.5261E-04_JPRB,2.1602E-04_JPRB,1.7644E-04_JPRB,1.0425E-04_JPRB,&
+ & 3.7809E-05_JPRB,1.7867E-05_JPRB,4.3609E-03_JPRB/)  
+KAO( :, 5,13, 7) = (/&
+ & 3.1955E-04_JPRB,2.9043E-04_JPRB,2.5703E-04_JPRB,2.2081E-04_JPRB,1.8253E-04_JPRB,1.3988E-04_JPRB,&
+ & 3.6793E-05_JPRB,3.0837E-05_JPRB,7.1735E-03_JPRB/)  
+KAO( :, 1, 1, 8) = (/&
+ & 5.6685E-04_JPRB,5.1953E-04_JPRB,4.6936E-04_JPRB,4.1592E-04_JPRB,3.5781E-04_JPRB,2.9881E-04_JPRB,&
+ & 2.3721E-04_JPRB,1.2965E-04_JPRB,9.7553E-05_JPRB/)  
+KAO( :, 2, 1, 8) = (/&
+ & 6.1498E-04_JPRB,5.7331E-04_JPRB,5.2736E-04_JPRB,4.7456E-04_JPRB,4.1825E-04_JPRB,3.6336E-04_JPRB,&
+ & 3.0181E-04_JPRB,2.4017E-04_JPRB,2.2948E-04_JPRB/)  
+KAO( :, 3, 1, 8) = (/&
+ & 6.7611E-04_JPRB,6.4061E-04_JPRB,6.0111E-04_JPRB,5.5388E-04_JPRB,5.0779E-04_JPRB,4.5514E-04_JPRB,&
+ & 3.9223E-04_JPRB,3.3256E-04_JPRB,3.4276E-04_JPRB/)  
+KAO( :, 4, 1, 8) = (/&
+ & 7.5480E-04_JPRB,7.2914E-04_JPRB,7.0254E-04_JPRB,6.6835E-04_JPRB,6.2923E-04_JPRB,5.7675E-04_JPRB,&
+ & 5.0673E-04_JPRB,4.4275E-04_JPRB,4.7133E-04_JPRB/)  
+KAO( :, 5, 1, 8) = (/&
+ & 8.5668E-04_JPRB,8.5031E-04_JPRB,8.3845E-04_JPRB,8.1883E-04_JPRB,7.8346E-04_JPRB,7.2655E-04_JPRB,&
+ & 6.4693E-04_JPRB,5.7765E-04_JPRB,6.2516E-04_JPRB/)  
+KAO( :, 1, 2, 8) = (/&
+ & 5.4710E-04_JPRB,4.9662E-04_JPRB,4.4514E-04_JPRB,3.9135E-04_JPRB,3.3202E-04_JPRB,2.7342E-04_JPRB,&
+ & 2.1062E-04_JPRB,7.4193E-05_JPRB,1.1449E-04_JPRB/)  
+KAO( :, 2, 2, 8) = (/&
+ & 5.7920E-04_JPRB,5.3530E-04_JPRB,4.8866E-04_JPRB,4.3544E-04_JPRB,3.7966E-04_JPRB,3.2266E-04_JPRB,&
+ & 2.6099E-04_JPRB,1.8962E-04_JPRB,2.1819E-04_JPRB/)  
+KAO( :, 3, 2, 8) = (/&
+ & 6.1998E-04_JPRB,5.8558E-04_JPRB,5.4532E-04_JPRB,4.9598E-04_JPRB,4.4601E-04_JPRB,3.9266E-04_JPRB,&
+ & 3.3270E-04_JPRB,2.7330E-04_JPRB,3.1544E-04_JPRB/)  
+KAO( :, 4, 2, 8) = (/&
+ & 6.7522E-04_JPRB,6.5257E-04_JPRB,6.1970E-04_JPRB,5.8199E-04_JPRB,5.3956E-04_JPRB,4.8955E-04_JPRB,&
+ & 4.2848E-04_JPRB,3.6701E-04_JPRB,4.3346E-04_JPRB/)  
+KAO( :, 5, 2, 8) = (/&
+ & 7.4593E-04_JPRB,7.3758E-04_JPRB,7.2139E-04_JPRB,6.9843E-04_JPRB,6.6276E-04_JPRB,6.1561E-04_JPRB,&
+ & 5.4954E-04_JPRB,4.8184E-04_JPRB,5.7913E-04_JPRB/)  
+KAO( :, 1, 3, 8) = (/&
+ & 5.3214E-04_JPRB,4.7681E-04_JPRB,4.2344E-04_JPRB,3.6680E-04_JPRB,3.0810E-04_JPRB,2.4726E-04_JPRB,&
+ & 1.8453E-04_JPRB,2.5084E-05_JPRB,1.5128E-04_JPRB/)  
+KAO( :, 2, 3, 8) = (/&
+ & 5.5191E-04_JPRB,5.0347E-04_JPRB,4.5239E-04_JPRB,3.9784E-04_JPRB,3.4016E-04_JPRB,2.8162E-04_JPRB,&
+ & 2.1920E-04_JPRB,1.0464E-04_JPRB,2.3348E-04_JPRB/)  
+KAO( :, 3, 3, 8) = (/&
+ & 5.7477E-04_JPRB,5.3435E-04_JPRB,4.8907E-04_JPRB,4.3911E-04_JPRB,3.8574E-04_JPRB,3.2874E-04_JPRB,&
+ & 2.6890E-04_JPRB,2.0489E-04_JPRB,3.3684E-04_JPRB/)  
+KAO( :, 4, 3, 8) = (/&
+ & 6.0596E-04_JPRB,5.7781E-04_JPRB,5.4062E-04_JPRB,4.9604E-04_JPRB,4.4703E-04_JPRB,3.9517E-04_JPRB,&
+ & 3.3938E-04_JPRB,2.8379E-04_JPRB,4.6834E-04_JPRB/)  
+KAO( :, 5, 3, 8) = (/&
+ & 6.4785E-04_JPRB,6.3446E-04_JPRB,6.0817E-04_JPRB,5.7312E-04_JPRB,5.3235E-04_JPRB,4.8682E-04_JPRB,&
+ & 4.3334E-04_JPRB,3.7597E-04_JPRB,6.3257E-04_JPRB/)  
+KAO( :, 1, 4, 8) = (/&
+ & 5.3110E-04_JPRB,4.7262E-04_JPRB,4.1623E-04_JPRB,3.5723E-04_JPRB,2.9627E-04_JPRB,2.3321E-04_JPRB,&
+ & 1.6340E-04_JPRB,1.9895E-05_JPRB,1.6136E-04_JPRB/)  
+KAO( :, 2, 4, 8) = (/&
+ & 5.4153E-04_JPRB,4.8798E-04_JPRB,4.3377E-04_JPRB,3.7487E-04_JPRB,3.1581E-04_JPRB,2.5480E-04_JPRB,&
+ & 1.9036E-04_JPRB,3.4588E-05_JPRB,2.5102E-04_JPRB/)  
+KAO( :, 3, 4, 8) = (/&
+ & 5.5497E-04_JPRB,5.0890E-04_JPRB,4.5760E-04_JPRB,4.0292E-04_JPRB,3.4647E-04_JPRB,2.8693E-04_JPRB,&
+ & 2.2354E-04_JPRB,1.2964E-04_JPRB,3.6989E-04_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART5',1,ZHOOK_HANDLE)
+END SUBROUTINE PART5
+
+
+SUBROUTINE PART6
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART6',0,ZHOOK_HANDLE)
+
+
+KAO( :, 4, 4, 8) = (/&
+ & 5.7139E-04_JPRB,5.3494E-04_JPRB,4.8805E-04_JPRB,4.4096E-04_JPRB,3.8626E-04_JPRB,3.3033E-04_JPRB,&
+ & 2.7143E-04_JPRB,2.1212E-04_JPRB,5.2455E-04_JPRB/)  
+KAO( :, 5, 4, 8) = (/&
+ & 5.9415E-04_JPRB,5.6860E-04_JPRB,5.3306E-04_JPRB,4.9025E-04_JPRB,4.4085E-04_JPRB,3.9152E-04_JPRB,&
+ & 3.3850E-04_JPRB,2.8746E-04_JPRB,7.1892E-04_JPRB/)  
+KAO( :, 1, 5, 8) = (/&
+ & 5.4290E-04_JPRB,4.8021E-04_JPRB,4.2005E-04_JPRB,3.5773E-04_JPRB,2.9361E-04_JPRB,2.2840E-04_JPRB,&
+ & 1.2412E-04_JPRB,1.6779E-05_JPRB,1.6478E-04_JPRB/)  
+KAO( :, 2, 5, 8) = (/&
+ & 5.4234E-04_JPRB,4.8521E-04_JPRB,4.2730E-04_JPRB,3.6655E-04_JPRB,3.0462E-04_JPRB,2.4081E-04_JPRB,&
+ & 1.7158E-04_JPRB,2.4577E-05_JPRB,2.6430E-04_JPRB/)  
+KAO( :, 3, 5, 8) = (/&
+ & 5.5176E-04_JPRB,4.9971E-04_JPRB,4.4439E-04_JPRB,3.8473E-04_JPRB,3.2493E-04_JPRB,2.6199E-04_JPRB,&
+ & 1.9530E-04_JPRB,5.1968E-05_JPRB,4.0107E-04_JPRB/)  
+KAO( :, 4, 5, 8) = (/&
+ & 5.6082E-04_JPRB,5.1698E-04_JPRB,4.6451E-04_JPRB,4.1055E-04_JPRB,3.5125E-04_JPRB,2.9127E-04_JPRB,&
+ & 2.2746E-04_JPRB,1.4698E-04_JPRB,5.8315E-04_JPRB/)  
+KAO( :, 5, 5, 8) = (/&
+ & 5.7193E-04_JPRB,5.3856E-04_JPRB,4.9143E-04_JPRB,4.4154E-04_JPRB,3.8661E-04_JPRB,3.3087E-04_JPRB,&
+ & 2.7242E-04_JPRB,2.1704E-04_JPRB,8.1664E-04_JPRB/)  
+KAO( :, 1, 6, 8) = (/&
+ & 5.5933E-04_JPRB,4.9291E-04_JPRB,4.2842E-04_JPRB,3.6305E-04_JPRB,2.9613E-04_JPRB,2.2724E-04_JPRB,&
+ & 5.3023E-05_JPRB,1.5921E-05_JPRB,1.6080E-04_JPRB/)  
+KAO( :, 2, 6, 8) = (/&
+ & 5.5265E-04_JPRB,4.9132E-04_JPRB,4.3026E-04_JPRB,3.6705E-04_JPRB,3.0202E-04_JPRB,2.3616E-04_JPRB,&
+ & 1.5492E-04_JPRB,1.7381E-05_JPRB,2.6878E-04_JPRB/)  
+KAO( :, 3, 6, 8) = (/&
+ & 5.5383E-04_JPRB,4.9775E-04_JPRB,4.3880E-04_JPRB,3.7661E-04_JPRB,3.1407E-04_JPRB,2.4921E-04_JPRB,&
+ & 1.7746E-04_JPRB,2.2302E-05_JPRB,4.2225E-04_JPRB/)  
+KAO( :, 4, 6, 8) = (/&
+ & 5.6178E-04_JPRB,5.1138E-04_JPRB,4.5491E-04_JPRB,3.9556E-04_JPRB,3.3327E-04_JPRB,2.6812E-04_JPRB,&
+ & 2.0001E-04_JPRB,6.4403E-05_JPRB,6.3155E-04_JPRB/)  
+KAO( :, 5, 6, 8) = (/&
+ & 5.6806E-04_JPRB,5.2664E-04_JPRB,4.7387E-04_JPRB,4.1708E-04_JPRB,3.5623E-04_JPRB,2.9443E-04_JPRB,&
+ & 2.3016E-04_JPRB,1.5609E-04_JPRB,9.0635E-04_JPRB/)  
+KAO( :, 1, 7, 8) = (/&
+ & 5.7912E-04_JPRB,5.0929E-04_JPRB,4.4052E-04_JPRB,3.7179E-04_JPRB,3.0169E-04_JPRB,2.2904E-04_JPRB,&
+ & 3.6739E-05_JPRB,9.8065E-06_JPRB,1.6369E-04_JPRB/)  
+KAO( :, 2, 7, 8) = (/&
+ & 5.7054E-04_JPRB,5.0526E-04_JPRB,4.4059E-04_JPRB,3.7406E-04_JPRB,3.0610E-04_JPRB,2.3585E-04_JPRB,&
+ & 6.5393E-05_JPRB,1.3372E-05_JPRB,2.8615E-04_JPRB/)  
+KAO( :, 3, 7, 8) = (/&
+ & 5.6399E-04_JPRB,5.0435E-04_JPRB,4.4269E-04_JPRB,3.7826E-04_JPRB,3.1294E-04_JPRB,2.4573E-04_JPRB,&
+ & 1.6693E-04_JPRB,2.0015E-05_JPRB,4.6772E-04_JPRB/)  
+KAO( :, 4, 7, 8) = (/&
+ & 5.6580E-04_JPRB,5.1086E-04_JPRB,4.5119E-04_JPRB,3.8935E-04_JPRB,3.2489E-04_JPRB,2.5799E-04_JPRB,&
+ & 1.8517E-04_JPRB,2.1193E-05_JPRB,7.2326E-04_JPRB/)  
+KAO( :, 5, 7, 8) = (/&
+ & 5.7198E-04_JPRB,5.2353E-04_JPRB,4.6732E-04_JPRB,4.0650E-04_JPRB,3.4261E-04_JPRB,2.7564E-04_JPRB,&
+ & 2.0638E-04_JPRB,8.3698E-05_JPRB,1.0705E-03_JPRB/)  
+KAO( :, 1, 8, 8) = (/&
+ & 5.9871E-04_JPRB,5.2574E-04_JPRB,4.5363E-04_JPRB,3.8151E-04_JPRB,3.0818E-04_JPRB,2.2816E-04_JPRB,&
+ & 3.1690E-05_JPRB,9.1563E-06_JPRB,1.9592E-04_JPRB/)  
+KAO( :, 2, 8, 8) = (/&
+ & 5.8942E-04_JPRB,5.2019E-04_JPRB,4.5182E-04_JPRB,3.8232E-04_JPRB,3.1150E-04_JPRB,2.3688E-04_JPRB,&
+ & 4.4878E-05_JPRB,1.3062E-05_JPRB,3.5981E-04_JPRB/)  
+KAO( :, 3, 8, 8) = (/&
+ & 5.8144E-04_JPRB,5.1705E-04_JPRB,4.5231E-04_JPRB,3.8496E-04_JPRB,3.1600E-04_JPRB,2.4571E-04_JPRB,&
+ & 1.0309E-04_JPRB,1.4129E-05_JPRB,6.1385E-04_JPRB/)  
+KAO( :, 4, 8, 8) = (/&
+ & 5.7448E-04_JPRB,5.1610E-04_JPRB,4.5471E-04_JPRB,3.9018E-04_JPRB,3.2457E-04_JPRB,2.5556E-04_JPRB,&
+ & 1.7544E-04_JPRB,1.7304E-05_JPRB,9.8945E-04_JPRB/)  
+KAO( :, 5, 8, 8) = (/&
+ & 5.7483E-04_JPRB,5.2262E-04_JPRB,4.6340E-04_JPRB,4.0220E-04_JPRB,3.3597E-04_JPRB,2.6696E-04_JPRB,&
+ & 1.9367E-04_JPRB,2.4514E-05_JPRB,1.5199E-03_JPRB/)  
+KAO( :, 1, 9, 8) = (/&
+ & 6.1652E-04_JPRB,5.4081E-04_JPRB,4.6545E-04_JPRB,3.9056E-04_JPRB,3.1379E-04_JPRB,9.9114E-05_JPRB,&
+ & 1.3949E-05_JPRB,3.9239E-06_JPRB,4.2520E-04_JPRB/)  
+KAO( :, 2, 9, 8) = (/&
+ & 6.0629E-04_JPRB,5.3376E-04_JPRB,4.6202E-04_JPRB,3.8990E-04_JPRB,3.1655E-04_JPRB,2.3544E-04_JPRB,&
+ & 3.7382E-05_JPRB,8.6951E-06_JPRB,8.3044E-04_JPRB/)  
+KAO( :, 3, 9, 8) = (/&
+ & 5.9694E-04_JPRB,5.2858E-04_JPRB,4.6094E-04_JPRB,3.9128E-04_JPRB,3.1984E-04_JPRB,2.4585E-04_JPRB,&
+ & 4.7453E-05_JPRB,1.1219E-05_JPRB,1.4978E-03_JPRB/)  
+KAO( :, 4, 9, 8) = (/&
+ & 5.8812E-04_JPRB,5.2540E-04_JPRB,4.6162E-04_JPRB,3.9424E-04_JPRB,3.2635E-04_JPRB,2.5585E-04_JPRB,&
+ & 1.3793E-04_JPRB,1.5823E-05_JPRB,2.5315E-03_JPRB/)  
+KAO( :, 5, 9, 8) = (/&
+ & 5.8094E-04_JPRB,5.2489E-04_JPRB,4.6409E-04_JPRB,4.0156E-04_JPRB,3.3516E-04_JPRB,2.6461E-04_JPRB,&
+ & 1.8608E-04_JPRB,1.9887E-05_JPRB,4.0512E-03_JPRB/)  
+KAO( :, 1,10, 8) = (/&
+ & 6.2969E-04_JPRB,5.5181E-04_JPRB,4.7454E-04_JPRB,3.9703E-04_JPRB,3.1724E-04_JPRB,6.5127E-05_JPRB,&
+ & 3.7452E-06_JPRB,3.2741E-06_JPRB,1.1769E-03_JPRB/)  
+KAO( :, 2,10, 8) = (/&
+ & 6.1957E-04_JPRB,5.4459E-04_JPRB,4.7029E-04_JPRB,3.9585E-04_JPRB,3.1968E-04_JPRB,1.3041E-04_JPRB,&
+ & 2.4515E-05_JPRB,7.2975E-06_JPRB,2.4417E-03_JPRB/)  
+KAO( :, 3,10, 8) = (/&
+ & 6.0939E-04_JPRB,5.3813E-04_JPRB,4.6769E-04_JPRB,3.9651E-04_JPRB,3.2305E-04_JPRB,2.4182E-04_JPRB,&
+ & 4.3807E-05_JPRB,1.1783E-05_JPRB,4.6287E-03_JPRB/)  
+KAO( :, 4,10, 8) = (/&
+ & 5.9955E-04_JPRB,5.3329E-04_JPRB,4.6744E-04_JPRB,3.9835E-04_JPRB,3.2790E-04_JPRB,2.5437E-04_JPRB,&
+ & 4.6423E-05_JPRB,1.1970E-05_JPRB,8.1527E-03_JPRB/)  
+KAO( :, 5,10, 8) = (/&
+ & 5.9051E-04_JPRB,5.3069E-04_JPRB,4.6841E-04_JPRB,4.0335E-04_JPRB,3.3599E-04_JPRB,2.6411E-04_JPRB,&
+ & 1.6905E-04_JPRB,1.8347E-05_JPRB,1.3511E-02_JPRB/)  
+KAO( :, 1,11, 8) = (/&
+ & 6.3270E-04_JPRB,5.5469E-04_JPRB,4.7693E-04_JPRB,3.9917E-04_JPRB,3.1669E-04_JPRB,6.3388E-05_JPRB,&
+ & 3.6721E-06_JPRB,3.2147E-07_JPRB,1.7207E-03_JPRB/)  
+KAO( :, 2,11, 8) = (/&
+ & 6.2323E-04_JPRB,5.4792E-04_JPRB,4.7320E-04_JPRB,3.9836E-04_JPRB,3.2132E-04_JPRB,8.3669E-05_JPRB,&
+ & 2.5421E-05_JPRB,6.2024E-06_JPRB,3.6065E-03_JPRB/)  
+KAO( :, 3,11, 8) = (/&
+ & 6.1343E-04_JPRB,5.4174E-04_JPRB,4.7120E-04_JPRB,3.9965E-04_JPRB,3.2524E-04_JPRB,2.3807E-04_JPRB,&
+ & 4.5288E-05_JPRB,1.1010E-05_JPRB,6.9077E-03_JPRB/)  
+KAO( :, 4,11, 8) = (/&
+ & 6.0422E-04_JPRB,5.3760E-04_JPRB,4.7151E-04_JPRB,4.0215E-04_JPRB,3.3145E-04_JPRB,2.5596E-04_JPRB,&
+ & 4.6438E-05_JPRB,1.1046E-05_JPRB,1.2276E-02_JPRB/)  
+KAO( :, 5,11, 8) = (/&
+ & 5.9513E-04_JPRB,5.3553E-04_JPRB,4.7292E-04_JPRB,4.0786E-04_JPRB,3.3977E-04_JPRB,2.6645E-04_JPRB,&
+ & 1.3530E-04_JPRB,1.8396E-05_JPRB,2.0378E-02_JPRB/)  
+KAO( :, 1,12, 8) = (/&
+ & 6.3015E-04_JPRB,5.5264E-04_JPRB,4.7514E-04_JPRB,3.9757E-04_JPRB,3.1556E-04_JPRB,6.0378E-05_JPRB,&
+ & 5.1686E-06_JPRB,4.1217E-06_JPRB,1.9089E-03_JPRB/)  
+KAO( :, 2,12, 8) = (/&
+ & 6.2156E-04_JPRB,5.4661E-04_JPRB,4.7228E-04_JPRB,3.9794E-04_JPRB,3.2115E-04_JPRB,9.3459E-05_JPRB,&
+ & 3.5910E-05_JPRB,6.9491E-06_JPRB,4.0407E-03_JPRB/)  
+KAO( :, 3,12, 8) = (/&
+ & 6.1284E-04_JPRB,5.4153E-04_JPRB,4.7137E-04_JPRB,3.9993E-04_JPRB,3.2562E-04_JPRB,2.3942E-04_JPRB,&
+ & 4.5459E-05_JPRB,1.2207E-05_JPRB,7.7972E-03_JPRB/)  
+KAO( :, 4,12, 8) = (/&
+ & 6.0431E-04_JPRB,5.3827E-04_JPRB,4.7217E-04_JPRB,4.0315E-04_JPRB,3.3297E-04_JPRB,2.5722E-04_JPRB,&
+ & 4.4991E-05_JPRB,1.1842E-05_JPRB,1.3838E-02_JPRB/)  
+KAO( :, 5,12, 8) = (/&
+ & 5.9614E-04_JPRB,5.3719E-04_JPRB,4.7459E-04_JPRB,4.0965E-04_JPRB,3.4109E-04_JPRB,2.6763E-04_JPRB,&
+ & 1.4327E-04_JPRB,1.6122E-05_JPRB,2.2897E-02_JPRB/)  
+KAO( :, 1,13, 8) = (/&
+ & 6.2067E-04_JPRB,5.4442E-04_JPRB,4.6829E-04_JPRB,3.9206E-04_JPRB,3.1059E-04_JPRB,5.4570E-05_JPRB,&
+ & 2.5324E-05_JPRB,1.9027E-06_JPRB,1.7246E-03_JPRB/)  
+KAO( :, 2,13, 8) = (/&
+ & 6.1333E-04_JPRB,5.3966E-04_JPRB,4.6657E-04_JPRB,3.9353E-04_JPRB,3.1741E-04_JPRB,1.0184E-04_JPRB,&
+ & 4.1822E-05_JPRB,6.3468E-06_JPRB,3.6765E-03_JPRB/)  
+KAO( :, 3,13, 8) = (/&
+ & 6.0610E-04_JPRB,5.3617E-04_JPRB,4.6704E-04_JPRB,3.9622E-04_JPRB,3.2317E-04_JPRB,2.3665E-04_JPRB,&
+ & 4.5927E-05_JPRB,1.1176E-05_JPRB,7.0786E-03_JPRB/)  
+KAO( :, 4,13, 8) = (/&
+ & 5.9902E-04_JPRB,5.3443E-04_JPRB,4.6878E-04_JPRB,4.0069E-04_JPRB,3.3118E-04_JPRB,2.5588E-04_JPRB,&
+ & 4.4674E-05_JPRB,1.1239E-05_JPRB,1.2524E-02_JPRB/)  
+KAO( :, 5,13, 8) = (/&
+ & 5.9234E-04_JPRB,5.3454E-04_JPRB,4.7242E-04_JPRB,4.0791E-04_JPRB,3.3951E-04_JPRB,2.6646E-04_JPRB,&
+ & 1.4670E-04_JPRB,2.0921E-05_JPRB,2.0681E-02_JPRB/)  
+KAO( :, 1, 1, 9) = (/&
+ & 7.6730E-04_JPRB,6.9533E-04_JPRB,6.3435E-04_JPRB,5.7755E-04_JPRB,5.2747E-04_JPRB,4.8127E-04_JPRB,&
+ & 4.6360E-04_JPRB,4.7153E-04_JPRB,5.0503E-04_JPRB/)  
+KAO( :, 2, 1, 9) = (/&
+ & 8.9446E-04_JPRB,8.3145E-04_JPRB,7.7791E-04_JPRB,7.3079E-04_JPRB,6.8158E-04_JPRB,6.4054E-04_JPRB,&
+ & 6.4060E-04_JPRB,6.7751E-04_JPRB,7.4127E-04_JPRB/)  
+KAO( :, 3, 1, 9) = (/&
+ & 1.0839E-03_JPRB,1.0326E-03_JPRB,9.8910E-04_JPRB,9.4874E-04_JPRB,8.8995E-04_JPRB,8.5059E-04_JPRB,&
+ & 8.6660E-04_JPRB,9.3858E-04_JPRB,1.0404E-03_JPRB/)  
+KAO( :, 4, 1, 9) = (/&
+ & 1.3392E-03_JPRB,1.2976E-03_JPRB,1.2617E-03_JPRB,1.2187E-03_JPRB,1.1503E-03_JPRB,1.1142E-03_JPRB,&
+ & 1.1537E-03_JPRB,1.2600E-03_JPRB,1.4074E-03_JPRB/)  
+KAO( :, 5, 1, 9) = (/&
+ & 1.6572E-03_JPRB,1.6190E-03_JPRB,1.5928E-03_JPRB,1.5446E-03_JPRB,1.4696E-03_JPRB,1.4385E-03_JPRB,&
+ & 1.5029E-03_JPRB,1.6559E-03_JPRB,1.8563E-03_JPRB/)  
+KAO( :, 1, 2, 9) = (/&
+ & 7.2791E-04_JPRB,6.5760E-04_JPRB,5.9478E-04_JPRB,5.3539E-04_JPRB,4.8045E-04_JPRB,4.2766E-04_JPRB,&
+ & 4.0009E-04_JPRB,3.9735E-04_JPRB,4.3728E-04_JPRB/)  
+KAO( :, 2, 2, 9) = (/&
+ & 8.1810E-04_JPRB,7.5677E-04_JPRB,7.0172E-04_JPRB,6.5562E-04_JPRB,6.0484E-04_JPRB,5.6238E-04_JPRB,&
+ & 5.5650E-04_JPRB,5.8260E-04_JPRB,6.4861E-04_JPRB/)  
+KAO( :, 3, 2, 9) = (/&
+ & 9.5216E-04_JPRB,9.0507E-04_JPRB,8.6910E-04_JPRB,8.3462E-04_JPRB,7.8786E-04_JPRB,7.5096E-04_JPRB,&
+ & 7.5914E-04_JPRB,8.1646E-04_JPRB,9.1827E-04_JPRB/)  
+KAO( :, 4, 2, 9) = (/&
+ & 1.1442E-03_JPRB,1.1148E-03_JPRB,1.1009E-03_JPRB,1.0715E-03_JPRB,1.0248E-03_JPRB,9.9267E-04_JPRB,&
+ & 1.0179E-03_JPRB,1.1078E-03_JPRB,1.2541E-03_JPRB/)  
+KAO( :, 5, 2, 9) = (/&
+ & 1.3996E-03_JPRB,1.3905E-03_JPRB,1.3914E-03_JPRB,1.3624E-03_JPRB,1.3173E-03_JPRB,1.2906E-03_JPRB,&
+ & 1.3365E-03_JPRB,1.4703E-03_JPRB,1.6733E-03_JPRB/)  
+KAO( :, 1, 3, 9) = (/&
+ & 6.9198E-04_JPRB,6.2093E-04_JPRB,5.5500E-04_JPRB,4.9112E-04_JPRB,4.2858E-04_JPRB,3.6796E-04_JPRB,&
+ & 3.2243E-04_JPRB,2.7068E-04_JPRB,3.8445E-04_JPRB/)  
+KAO( :, 2, 3, 9) = (/&
+ & 7.4808E-04_JPRB,6.8197E-04_JPRB,6.2244E-04_JPRB,5.6656E-04_JPRB,5.0936E-04_JPRB,4.6235E-04_JPRB,&
+ & 4.4533E-04_JPRB,4.5718E-04_JPRB,5.8212E-04_JPRB/)  
+KAO( :, 3, 3, 9) = (/&
+ & 8.2613E-04_JPRB,7.7358E-04_JPRB,7.3159E-04_JPRB,6.8941E-04_JPRB,6.4390E-04_JPRB,6.1118E-04_JPRB,&
+ & 6.1390E-04_JPRB,6.5687E-04_JPRB,8.4097E-04_JPRB/)  
+KAO( :, 4, 3, 9) = (/&
+ & 9.3955E-04_JPRB,9.0936E-04_JPRB,8.9358E-04_JPRB,8.6993E-04_JPRB,8.3759E-04_JPRB,8.1431E-04_JPRB,&
+ & 8.3330E-04_JPRB,9.0689E-04_JPRB,1.1736E-03_JPRB/)  
+KAO( :, 5, 3, 9) = (/&
+ & 1.1024E-03_JPRB,1.1029E-03_JPRB,1.1144E-03_JPRB,1.1087E-03_JPRB,1.0858E-03_JPRB,1.0701E-03_JPRB,&
+ & 1.1102E-03_JPRB,1.2203E-03_JPRB,1.5855E-03_JPRB/)  
+KAO( :, 1, 4, 9) = (/&
+ & 6.9141E-04_JPRB,6.1573E-04_JPRB,5.4365E-04_JPRB,4.7268E-04_JPRB,4.0185E-04_JPRB,3.3169E-04_JPRB,&
+ & 2.6484E-04_JPRB,1.1941E-04_JPRB,4.2525E-04_JPRB/)  
+KAO( :, 2, 4, 9) = (/&
+ & 7.1303E-04_JPRB,6.4311E-04_JPRB,5.7730E-04_JPRB,5.1428E-04_JPRB,4.4890E-04_JPRB,3.8935E-04_JPRB,&
+ & 3.5277E-04_JPRB,3.2803E-04_JPRB,6.6098E-04_JPRB/)  
+KAO( :, 3, 4, 9) = (/&
+ & 7.6419E-04_JPRB,7.0113E-04_JPRB,6.4756E-04_JPRB,5.8990E-04_JPRB,5.3391E-04_JPRB,4.9265E-04_JPRB,&
+ & 4.8275E-04_JPRB,5.0730E-04_JPRB,9.8045E-04_JPRB/)  
+KAO( :, 4, 4, 9) = (/&
+ & 8.2609E-04_JPRB,7.8182E-04_JPRB,7.4991E-04_JPRB,7.1089E-04_JPRB,6.7442E-04_JPRB,6.5009E-04_JPRB,&
+ & 6.6146E-04_JPRB,7.1854E-04_JPRB,1.3938E-03_JPRB/)  
+KAO( :, 5, 4, 9) = (/&
+ & 9.1327E-04_JPRB,9.0245E-04_JPRB,8.9877E-04_JPRB,8.8705E-04_JPRB,8.7034E-04_JPRB,8.6010E-04_JPRB,&
+ & 8.9180E-04_JPRB,9.8101E-04_JPRB,1.9118E-03_JPRB/)  
+KAO( :, 1, 5, 9) = (/&
+ & 7.1194E-04_JPRB,6.3073E-04_JPRB,5.5152E-04_JPRB,4.7348E-04_JPRB,3.9513E-04_JPRB,3.1519E-04_JPRB,&
+ & 2.2983E-04_JPRB,2.7452E-05_JPRB,4.8453E-04_JPRB/)  
+KAO( :, 2, 5, 9) = (/&
+ & 7.1296E-04_JPRB,6.3797E-04_JPRB,5.6646E-04_JPRB,4.9574E-04_JPRB,4.2273E-04_JPRB,3.5196E-04_JPRB,&
+ & 2.8944E-04_JPRB,1.7242E-04_JPRB,7.7671E-04_JPRB/)  
+KAO( :, 3, 5, 9) = (/&
+ & 7.3444E-04_JPRB,6.6574E-04_JPRB,6.0369E-04_JPRB,5.3780E-04_JPRB,4.7146E-04_JPRB,4.1473E-04_JPRB,&
+ & 3.8369E-04_JPRB,3.7633E-04_JPRB,1.1824E-03_JPRB/)  
+KAO( :, 4, 5, 9) = (/&
+ & 7.7697E-04_JPRB,7.1991E-04_JPRB,6.7045E-04_JPRB,6.1217E-04_JPRB,5.6053E-04_JPRB,5.2336E-04_JPRB,&
+ & 5.2023E-04_JPRB,5.5862E-04_JPRB,1.7181E-03_JPRB/)  
+KAO( :, 5, 5, 9) = (/&
+ & 8.2601E-04_JPRB,7.9119E-04_JPRB,7.6213E-04_JPRB,7.3107E-04_JPRB,6.9880E-04_JPRB,6.8266E-04_JPRB,&
+ & 7.0503E-04_JPRB,7.7701E-04_JPRB,2.3991E-03_JPRB/)  
+KAO( :, 1, 6, 9) = (/&
+ & 7.4702E-04_JPRB,6.5911E-04_JPRB,5.7262E-04_JPRB,4.8679E-04_JPRB,4.0134E-04_JPRB,3.1318E-04_JPRB,&
+ & 1.5461E-04_JPRB,1.6758E-05_JPRB,5.2688E-04_JPRB/)  
+KAO( :, 2, 6, 9) = (/&
+ & 7.4128E-04_JPRB,6.5855E-04_JPRB,5.7826E-04_JPRB,4.9892E-04_JPRB,4.1789E-04_JPRB,3.3501E-04_JPRB,&
+ & 2.5184E-04_JPRB,5.3936E-05_JPRB,8.7850E-04_JPRB/)  
+KAO( :, 3, 6, 9) = (/&
+ & 7.3954E-04_JPRB,6.6416E-04_JPRB,5.9359E-04_JPRB,5.2126E-04_JPRB,4.4507E-04_JPRB,3.7370E-04_JPRB,&
+ & 3.1408E-04_JPRB,2.2236E-04_JPRB,1.3809E-03_JPRB/)  
+KAO( :, 4, 6, 9) = (/&
+ & 7.5717E-04_JPRB,6.9002E-04_JPRB,6.2962E-04_JPRB,5.6099E-04_JPRB,4.9557E-04_JPRB,4.3902E-04_JPRB,&
+ & 4.1006E-04_JPRB,4.1489E-04_JPRB,2.0655E-03_JPRB/)  
+KAO( :, 5, 6, 9) = (/&
+ & 7.8954E-04_JPRB,7.3758E-04_JPRB,6.8841E-04_JPRB,6.3360E-04_JPRB,5.8155E-04_JPRB,5.4713E-04_JPRB,&
+ & 5.4922E-04_JPRB,5.9986E-04_JPRB,2.9589E-03_JPRB/)  
+KAO( :, 1, 7, 9) = (/&
+ & 7.9467E-04_JPRB,6.9929E-04_JPRB,6.0424E-04_JPRB,5.1073E-04_JPRB,4.1693E-04_JPRB,3.2089E-04_JPRB,&
+ & 5.1325E-05_JPRB,1.2122E-05_JPRB,6.0259E-04_JPRB/)  
+KAO( :, 2, 7, 9) = (/&
+ & 7.8343E-04_JPRB,6.9250E-04_JPRB,6.0357E-04_JPRB,5.1592E-04_JPRB,4.2687E-04_JPRB,3.3542E-04_JPRB,&
+ & 2.2592E-04_JPRB,1.5976E-05_JPRB,1.0502E-03_JPRB/)  
+KAO( :, 3, 7, 9) = (/&
+ & 7.7573E-04_JPRB,6.9130E-04_JPRB,6.0997E-04_JPRB,5.2908E-04_JPRB,4.4409E-04_JPRB,3.5904E-04_JPRB,&
+ & 2.7616E-04_JPRB,9.2965E-05_JPRB,1.7102E-03_JPRB/)  
+KAO( :, 4, 7, 9) = (/&
+ & 7.7294E-04_JPRB,6.9692E-04_JPRB,6.2657E-04_JPRB,5.4965E-04_JPRB,4.7312E-04_JPRB,3.9920E-04_JPRB,&
+ & 3.3903E-04_JPRB,2.7602E-04_JPRB,2.6319E-03_JPRB/)  
+KAO( :, 5, 7, 9) = (/&
+ & 7.8731E-04_JPRB,7.2173E-04_JPRB,6.5887E-04_JPRB,5.9065E-04_JPRB,5.2295E-04_JPRB,4.6490E-04_JPRB,&
+ & 4.3618E-04_JPRB,4.5346E-04_JPRB,3.8668E-03_JPRB/)  
+KAO( :, 1, 8, 9) = (/&
+ & 8.5501E-04_JPRB,7.5078E-04_JPRB,6.4657E-04_JPRB,5.4366E-04_JPRB,4.4039E-04_JPRB,3.3294E-04_JPRB,&
+ & 2.6688E-05_JPRB,1.2258E-05_JPRB,8.1286E-04_JPRB/)  
+KAO( :, 2, 8, 9) = (/&
+ & 8.4099E-04_JPRB,7.4093E-04_JPRB,6.4228E-04_JPRB,5.4430E-04_JPRB,4.4636E-04_JPRB,3.4551E-04_JPRB,&
+ & 1.0468E-04_JPRB,1.2830E-05_JPRB,1.4923E-03_JPRB/)  
+KAO( :, 3, 8, 9) = (/&
+ & 8.2855E-04_JPRB,7.3472E-04_JPRB,6.4208E-04_JPRB,5.5147E-04_JPRB,4.5797E-04_JPRB,3.6152E-04_JPRB,&
+ & 2.5538E-04_JPRB,1.6241E-05_JPRB,2.5369E-03_JPRB/)  
+KAO( :, 4, 8, 9) = (/&
+ & 8.1840E-04_JPRB,7.3203E-04_JPRB,6.4929E-04_JPRB,5.6425E-04_JPRB,4.7544E-04_JPRB,3.8760E-04_JPRB,&
+ & 3.0236E-04_JPRB,1.3733E-04_JPRB,4.0371E-03_JPRB/)  
+KAO( :, 5, 8, 9) = (/&
+ & 8.1270E-04_JPRB,7.3589E-04_JPRB,6.6348E-04_JPRB,5.8412E-04_JPRB,5.0562E-04_JPRB,4.2829E-04_JPRB,&
+ & 3.6616E-04_JPRB,3.2564E-04_JPRB,6.0900E-03_JPRB/)  
+KAO( :, 1, 9, 9) = (/&
+ & 9.2560E-04_JPRB,8.1125E-04_JPRB,6.9819E-04_JPRB,5.8413E-04_JPRB,4.7055E-04_JPRB,3.5015E-04_JPRB,&
+ & 5.5500E-06_JPRB,4.9629E-06_JPRB,2.0290E-03_JPRB/)  
+KAO( :, 2, 9, 9) = (/&
+ & 9.1093E-04_JPRB,8.0097E-04_JPRB,6.9137E-04_JPRB,5.8249E-04_JPRB,4.7378E-04_JPRB,3.6194E-04_JPRB,&
+ & 3.0062E-05_JPRB,1.0842E-05_JPRB,3.9531E-03_JPRB/)  
+KAO( :, 3, 9, 9) = (/&
+ & 8.9709E-04_JPRB,7.9180E-04_JPRB,6.8775E-04_JPRB,5.8518E-04_JPRB,4.8156E-04_JPRB,3.7367E-04_JPRB,&
+ & 1.7999E-04_JPRB,1.5619E-05_JPRB,7.0405E-03_JPRB/)  
+KAO( :, 4, 9, 9) = (/&
+ & 8.8317E-04_JPRB,7.8542E-04_JPRB,6.8899E-04_JPRB,5.9345E-04_JPRB,4.9320E-04_JPRB,3.9217E-04_JPRB,&
+ & 2.8412E-04_JPRB,3.4988E-05_JPRB,1.1630E-02_JPRB/)  
+KAO( :, 5, 9, 9) = (/&
+ & 8.7042E-04_JPRB,7.8172E-04_JPRB,6.9655E-04_JPRB,6.0534E-04_JPRB,5.1346E-04_JPRB,4.2035E-04_JPRB,&
+ & 3.3049E-04_JPRB,1.7732E-04_JPRB,1.8084E-02_JPRB/)  
+KAO( :, 1,10, 9) = (/&
+ & 1.0020E-03_JPRB,8.7768E-04_JPRB,7.5453E-04_JPRB,6.2994E-04_JPRB,5.0369E-04_JPRB,2.0029E-04_JPRB,&
+ & 4.8338E-06_JPRB,1.1150E-06_JPRB,6.1828E-03_JPRB/)  
+KAO( :, 2,10, 9) = (/&
+ & 9.8614E-04_JPRB,8.6564E-04_JPRB,7.4527E-04_JPRB,6.2596E-04_JPRB,5.0608E-04_JPRB,3.8053E-04_JPRB,&
+ & 2.2407E-05_JPRB,6.0753E-06_JPRB,1.2701E-02_JPRB/)  
+KAO( :, 3,10, 9) = (/&
+ & 9.7041E-04_JPRB,8.5442E-04_JPRB,7.4008E-04_JPRB,6.2563E-04_JPRB,5.1190E-04_JPRB,3.9299E-04_JPRB,&
+ & 5.6685E-05_JPRB,1.0644E-05_JPRB,2.3596E-02_JPRB/)  
+KAO( :, 4,10, 9) = (/&
+ & 9.5474E-04_JPRB,8.4629E-04_JPRB,7.3757E-04_JPRB,6.3110E-04_JPRB,5.2156E-04_JPRB,4.0815E-04_JPRB,&
+ & 2.6069E-04_JPRB,1.4418E-05_JPRB,4.0339E-02_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART6',1,ZHOOK_HANDLE)
+END SUBROUTINE PART6
+
+
+SUBROUTINE PART7
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART7',0,ZHOOK_HANDLE)
+
+
+KAO( :, 5,10, 9) = (/&
+ & 9.3936E-04_JPRB,8.3916E-04_JPRB,7.4145E-04_JPRB,6.4037E-04_JPRB,5.3630E-04_JPRB,4.3024E-04_JPRB,&
+ & 3.1815E-04_JPRB,7.5689E-05_JPRB,6.4528E-02_JPRB/)  
+KAO( :, 1,11, 9) = (/&
+ & 1.0733E-03_JPRB,9.4010E-04_JPRB,8.0821E-04_JPRB,6.7481E-04_JPRB,5.3993E-04_JPRB,1.7304E-04_JPRB,&
+ & 4.5690E-06_JPRB,1.0947E-06_JPRB,9.5058E-03_JPRB/)  
+KAO( :, 2,11, 9) = (/&
+ & 1.0562E-03_JPRB,9.2720E-04_JPRB,7.9859E-04_JPRB,6.7071E-04_JPRB,5.4165E-04_JPRB,4.0387E-04_JPRB,&
+ & 2.1514E-05_JPRB,7.8378E-06_JPRB,1.9538E-02_JPRB/)  
+KAO( :, 3,11, 9) = (/&
+ & 1.0391E-03_JPRB,9.1541E-04_JPRB,7.9272E-04_JPRB,6.7016E-04_JPRB,5.4829E-04_JPRB,4.2037E-04_JPRB,&
+ & 4.6128E-05_JPRB,1.0839E-05_JPRB,3.6276E-02_JPRB/)  
+KAO( :, 4,11, 9) = (/&
+ & 1.0222E-03_JPRB,9.0627E-04_JPRB,7.9028E-04_JPRB,6.7590E-04_JPRB,5.5839E-04_JPRB,4.3725E-04_JPRB,&
+ & 2.4358E-04_JPRB,1.5967E-05_JPRB,6.2057E-02_JPRB/)  
+KAO( :, 5,11, 9) = (/&
+ & 1.0062E-03_JPRB,8.9870E-04_JPRB,7.9417E-04_JPRB,6.8540E-04_JPRB,5.7395E-04_JPRB,4.5941E-04_JPRB,&
+ & 3.3487E-04_JPRB,5.8510E-05_JPRB,9.9558E-02_JPRB/)  
+KAO( :, 1,12, 9) = (/&
+ & 1.1429E-03_JPRB,1.0011E-03_JPRB,8.6066E-04_JPRB,7.1891E-04_JPRB,5.7572E-04_JPRB,2.3708E-04_JPRB,&
+ & 4.4567E-06_JPRB,5.1497E-06_JPRB,1.0798E-02_JPRB/)  
+KAO( :, 2,12, 9) = (/&
+ & 1.1252E-03_JPRB,9.8802E-04_JPRB,8.5145E-04_JPRB,7.1518E-04_JPRB,5.7793E-04_JPRB,4.3517E-04_JPRB,&
+ & 2.8931E-05_JPRB,1.3305E-05_JPRB,2.2185E-02_JPRB/)  
+KAO( :, 3,12, 9) = (/&
+ & 1.1078E-03_JPRB,9.7648E-04_JPRB,8.4588E-04_JPRB,7.1557E-04_JPRB,5.8568E-04_JPRB,4.5025E-04_JPRB,&
+ & 8.7797E-05_JPRB,1.2058E-05_JPRB,4.1218E-02_JPRB/)  
+KAO( :, 4,12, 9) = (/&
+ & 1.0907E-03_JPRB,9.6728E-04_JPRB,8.4415E-04_JPRB,7.2188E-04_JPRB,5.9608E-04_JPRB,4.6749E-04_JPRB,&
+ & 2.9839E-04_JPRB,1.3906E-05_JPRB,7.0748E-02_JPRB/)  
+KAO( :, 5,12, 9) = (/&
+ & 1.0737E-03_JPRB,9.5961E-04_JPRB,8.4835E-04_JPRB,7.3154E-04_JPRB,6.1267E-04_JPRB,4.9042E-04_JPRB,&
+ & 3.5775E-04_JPRB,5.9229E-05_JPRB,1.1398E-01_JPRB/)  
+KAO( :, 1,13, 9) = (/&
+ & 1.2093E-03_JPRB,1.0592E-03_JPRB,9.1069E-04_JPRB,7.6104E-04_JPRB,6.0998E-04_JPRB,3.0141E-04_JPRB,&
+ & 8.4692E-06_JPRB,3.6390E-06_JPRB,9.7505E-03_JPRB/)  
+KAO( :, 2,13, 9) = (/&
+ & 1.1916E-03_JPRB,1.0465E-03_JPRB,9.0223E-04_JPRB,7.5810E-04_JPRB,6.1322E-04_JPRB,4.6338E-04_JPRB,&
+ & 3.8957E-05_JPRB,7.1625E-06_JPRB,2.0045E-02_JPRB/)  
+KAO( :, 3,13, 9) = (/&
+ & 1.1742E-03_JPRB,1.0355E-03_JPRB,8.9704E-04_JPRB,7.5964E-04_JPRB,6.2169E-04_JPRB,4.7851E-04_JPRB,&
+ & 1.3589E-04_JPRB,1.1895E-05_JPRB,3.7380E-02_JPRB/)  
+KAO( :, 4,13, 9) = (/&
+ & 1.1565E-03_JPRB,1.0260E-03_JPRB,8.9628E-04_JPRB,7.6660E-04_JPRB,6.3308E-04_JPRB,4.9715E-04_JPRB,&
+ & 3.4150E-04_JPRB,1.1060E-05_JPRB,6.4458E-02_JPRB/)  
+KAO( :, 5,13, 9) = (/&
+ & 1.1382E-03_JPRB,1.0180E-03_JPRB,9.0061E-04_JPRB,7.7706E-04_JPRB,6.5089E-04_JPRB,5.2149E-04_JPRB,&
+ & 3.8129E-04_JPRB,5.9752E-05_JPRB,1.0436E-01_JPRB/)  
+KAO( :, 1, 1,10) = (/&
+ & 9.4926E-04_JPRB,8.5786E-04_JPRB,8.1138E-04_JPRB,7.6433E-04_JPRB,7.2663E-04_JPRB,7.8967E-04_JPRB,&
+ & 8.8787E-04_JPRB,9.8903E-04_JPRB,1.1026E-03_JPRB/)  
+KAO( :, 2, 1,10) = (/&
+ & 1.2390E-03_JPRB,1.1300E-03_JPRB,1.0621E-03_JPRB,9.8809E-04_JPRB,9.8084E-04_JPRB,1.1153E-03_JPRB,&
+ & 1.2754E-03_JPRB,1.4463E-03_JPRB,1.6199E-03_JPRB/)  
+KAO( :, 3, 1,10) = (/&
+ & 1.6285E-03_JPRB,1.4941E-03_JPRB,1.4019E-03_JPRB,1.3143E-03_JPRB,1.3388E-03_JPRB,1.5587E-03_JPRB,&
+ & 1.7963E-03_JPRB,2.0319E-03_JPRB,2.2893E-03_JPRB/)  
+KAO( :, 4, 1,10) = (/&
+ & 2.1075E-03_JPRB,1.9429E-03_JPRB,1.8233E-03_JPRB,1.7260E-03_JPRB,1.7987E-03_JPRB,2.1195E-03_JPRB,&
+ & 2.4630E-03_JPRB,2.8065E-03_JPRB,3.1716E-03_JPRB/)  
+KAO( :, 5, 1,10) = (/&
+ & 2.6676E-03_JPRB,2.4810E-03_JPRB,2.3359E-03_JPRB,2.2329E-03_JPRB,2.3416E-03_JPRB,2.7812E-03_JPRB,&
+ & 3.2550E-03_JPRB,3.7334E-03_JPRB,4.2210E-03_JPRB/)  
+KAO( :, 1, 2,10) = (/&
+ & 8.9025E-04_JPRB,8.0274E-04_JPRB,7.4274E-04_JPRB,6.8609E-04_JPRB,6.7102E-04_JPRB,7.1742E-04_JPRB,&
+ & 7.9680E-04_JPRB,8.7045E-04_JPRB,9.7644E-04_JPRB/)  
+KAO( :, 2, 2,10) = (/&
+ & 1.1017E-03_JPRB,1.0100E-03_JPRB,9.5453E-04_JPRB,8.9274E-04_JPRB,8.8682E-04_JPRB,1.0003E-03_JPRB,&
+ & 1.1309E-03_JPRB,1.2737E-03_JPRB,1.4319E-03_JPRB/)  
+KAO( :, 3, 2,10) = (/&
+ & 1.4395E-03_JPRB,1.3424E-03_JPRB,1.2619E-03_JPRB,1.1931E-03_JPRB,1.1956E-03_JPRB,1.3885E-03_JPRB,&
+ & 1.5988E-03_JPRB,1.8061E-03_JPRB,2.0428E-03_JPRB/)  
+KAO( :, 4, 2,10) = (/&
+ & 1.8618E-03_JPRB,1.7544E-03_JPRB,1.6479E-03_JPRB,1.5853E-03_JPRB,1.5993E-03_JPRB,1.8833E-03_JPRB,&
+ & 2.1846E-03_JPRB,2.4927E-03_JPRB,2.8370E-03_JPRB/)  
+KAO( :, 5, 2,10) = (/&
+ & 2.3686E-03_JPRB,2.2486E-03_JPRB,2.1364E-03_JPRB,2.0670E-03_JPRB,2.0882E-03_JPRB,2.4685E-03_JPRB,&
+ & 2.8904E-03_JPRB,3.3295E-03_JPRB,3.7864E-03_JPRB/)  
+KAO( :, 1, 3,10) = (/&
+ & 8.4979E-04_JPRB,7.6433E-04_JPRB,6.9594E-04_JPRB,6.3370E-04_JPRB,5.8853E-04_JPRB,5.9559E-04_JPRB,&
+ & 6.5667E-04_JPRB,7.1533E-04_JPRB,8.1217E-04_JPRB/)  
+KAO( :, 2, 3,10) = (/&
+ & 9.3603E-04_JPRB,8.5921E-04_JPRB,7.9338E-04_JPRB,7.5508E-04_JPRB,7.6062E-04_JPRB,8.4114E-04_JPRB,&
+ & 9.4920E-04_JPRB,1.0487E-03_JPRB,1.2014E-03_JPRB/)  
+KAO( :, 3, 3,10) = (/&
+ & 1.1433E-03_JPRB,1.0846E-03_JPRB,1.0263E-03_JPRB,9.9233E-04_JPRB,1.0119E-03_JPRB,1.1695E-03_JPRB,&
+ & 1.3351E-03_JPRB,1.4995E-03_JPRB,1.7286E-03_JPRB/)  
+KAO( :, 4, 3,10) = (/&
+ & 1.4720E-03_JPRB,1.4093E-03_JPRB,1.3576E-03_JPRB,1.3122E-03_JPRB,1.3394E-03_JPRB,1.5776E-03_JPRB,&
+ & 1.8258E-03_JPRB,2.0744E-03_JPRB,2.3896E-03_JPRB/)  
+KAO( :, 5, 3,10) = (/&
+ & 1.8783E-03_JPRB,1.8107E-03_JPRB,1.7793E-03_JPRB,1.7293E-03_JPRB,1.7612E-03_JPRB,2.0848E-03_JPRB,&
+ & 2.4329E-03_JPRB,2.7873E-03_JPRB,3.2122E-03_JPRB/)  
+KAO( :, 1, 4,10) = (/&
+ & 8.5598E-04_JPRB,7.6200E-04_JPRB,6.7698E-04_JPRB,6.0274E-04_JPRB,5.4143E-04_JPRB,4.8510E-04_JPRB,&
+ & 5.0808E-04_JPRB,5.4195E-04_JPRB,7.2030E-04_JPRB/)  
+KAO( :, 2, 4,10) = (/&
+ & 8.7829E-04_JPRB,7.9754E-04_JPRB,7.2820E-04_JPRB,6.8132E-04_JPRB,6.4105E-04_JPRB,6.7652E-04_JPRB,&
+ & 7.5328E-04_JPRB,8.3000E-04_JPRB,1.1216E-03_JPRB/)  
+KAO( :, 3, 4,10) = (/&
+ & 9.6941E-04_JPRB,9.0019E-04_JPRB,8.3950E-04_JPRB,8.2706E-04_JPRB,8.3972E-04_JPRB,9.4956E-04_JPRB,&
+ & 1.0831E-03_JPRB,1.2181E-03_JPRB,1.6652E-03_JPRB/)  
+KAO( :, 4, 4,10) = (/&
+ & 1.1497E-03_JPRB,1.1076E-03_JPRB,1.0973E-03_JPRB,1.0748E-03_JPRB,1.1139E-03_JPRB,1.3070E-03_JPRB,&
+ & 1.5051E-03_JPRB,1.7091E-03_JPRB,2.3798E-03_JPRB/)  
+KAO( :, 5, 4,10) = (/&
+ & 1.4423E-03_JPRB,1.4228E-03_JPRB,1.4377E-03_JPRB,1.4117E-03_JPRB,1.4741E-03_JPRB,1.7577E-03_JPRB,&
+ & 2.0499E-03_JPRB,2.3324E-03_JPRB,3.2737E-03_JPRB/)  
+KAO( :, 1, 5,10) = (/&
+ & 8.8900E-04_JPRB,7.8652E-04_JPRB,6.9034E-04_JPRB,5.9667E-04_JPRB,5.1545E-04_JPRB,4.4672E-04_JPRB,&
+ & 3.9522E-04_JPRB,3.0801E-04_JPRB,9.0832E-04_JPRB/)  
+KAO( :, 2, 5,10) = (/&
+ & 8.9256E-04_JPRB,7.9933E-04_JPRB,7.1388E-04_JPRB,6.4679E-04_JPRB,5.8953E-04_JPRB,5.4566E-04_JPRB,&
+ & 5.8778E-04_JPRB,6.2517E-04_JPRB,1.4726E-03_JPRB/)  
+KAO( :, 3, 5,10) = (/&
+ & 9.1630E-04_JPRB,8.3731E-04_JPRB,7.6863E-04_JPRB,7.3348E-04_JPRB,7.0053E-04_JPRB,7.6737E-04_JPRB,&
+ & 8.6212E-04_JPRB,9.5439E-04_JPRB,2.2518E-03_JPRB/)  
+KAO( :, 4, 5,10) = (/&
+ & 1.0039E-03_JPRB,9.3325E-04_JPRB,8.9498E-04_JPRB,8.8178E-04_JPRB,9.2025E-04_JPRB,1.0734E-03_JPRB,&
+ & 1.2371E-03_JPRB,1.3976E-03_JPRB,3.3076E-03_JPRB/)  
+KAO( :, 5, 5,10) = (/&
+ & 1.1384E-03_JPRB,1.1125E-03_JPRB,1.1459E-03_JPRB,1.1447E-03_JPRB,1.2384E-03_JPRB,1.4768E-03_JPRB,&
+ & 1.7232E-03_JPRB,1.9621E-03_JPRB,4.6582E-03_JPRB/)  
+KAO( :, 1, 6,10) = (/&
+ & 9.4887E-04_JPRB,8.3839E-04_JPRB,7.3102E-04_JPRB,6.2493E-04_JPRB,5.2042E-04_JPRB,4.2275E-04_JPRB,&
+ & 3.3556E-04_JPRB,3.4740E-06_JPRB,1.1251E-03_JPRB/)  
+KAO( :, 2, 6,10) = (/&
+ & 9.3677E-04_JPRB,8.3218E-04_JPRB,7.3454E-04_JPRB,6.4594E-04_JPRB,5.6378E-04_JPRB,4.9151E-04_JPRB,&
+ & 4.4994E-04_JPRB,4.2597E-04_JPRB,1.8832E-03_JPRB/)  
+KAO( :, 3, 6,10) = (/&
+ & 9.3921E-04_JPRB,8.4673E-04_JPRB,7.5957E-04_JPRB,6.9636E-04_JPRB,6.3706E-04_JPRB,6.1057E-04_JPRB,&
+ & 6.7476E-04_JPRB,7.3912E-04_JPRB,2.9583E-03_JPRB/)  
+KAO( :, 4, 6,10) = (/&
+ & 9.5719E-04_JPRB,8.7688E-04_JPRB,8.1813E-04_JPRB,7.7967E-04_JPRB,7.5775E-04_JPRB,8.5851E-04_JPRB,&
+ & 9.8609E-04_JPRB,1.1121E-03_JPRB,4.4273E-03_JPRB/)  
+KAO( :, 5, 6,10) = (/&
+ & 1.0294E-03_JPRB,9.6457E-04_JPRB,9.3753E-04_JPRB,9.2588E-04_JPRB,1.0133E-03_JPRB,1.2038E-03_JPRB,&
+ & 1.4020E-03_JPRB,1.6034E-03_JPRB,6.3437E-03_JPRB/)  
+KAO( :, 1, 7,10) = (/&
+ & 1.0279E-03_JPRB,9.0433E-04_JPRB,7.8375E-04_JPRB,6.6508E-04_JPRB,5.4484E-04_JPRB,4.2431E-04_JPRB,&
+ & 2.6888E-04_JPRB,7.8015E-06_JPRB,1.4588E-03_JPRB/)  
+KAO( :, 2, 7,10) = (/&
+ & 1.0083E-03_JPRB,8.9241E-04_JPRB,7.8172E-04_JPRB,6.7204E-04_JPRB,5.7124E-04_JPRB,4.6914E-04_JPRB,&
+ & 3.6802E-04_JPRB,8.6137E-05_JPRB,2.5625E-03_JPRB/)  
+KAO( :, 3, 7,10) = (/&
+ & 9.9596E-04_JPRB,8.9237E-04_JPRB,7.9108E-04_JPRB,7.0321E-04_JPRB,6.1556E-04_JPRB,5.3871E-04_JPRB,&
+ & 5.1518E-04_JPRB,5.4052E-04_JPRB,4.1805E-03_JPRB/)  
+KAO( :, 4, 7,10) = (/&
+ & 9.8826E-04_JPRB,8.9639E-04_JPRB,8.1334E-04_JPRB,7.5573E-04_JPRB,6.8824E-04_JPRB,6.8183E-04_JPRB,&
+ & 7.7451E-04_JPRB,8.6801E-04_JPRB,6.4027E-03_JPRB/)  
+KAO( :, 5, 7,10) = (/&
+ & 1.0011E-03_JPRB,9.2233E-04_JPRB,8.6964E-04_JPRB,8.2719E-04_JPRB,8.3320E-04_JPRB,9.6571E-04_JPRB,&
+ & 1.1203E-03_JPRB,1.2853E-03_JPRB,9.3461E-03_JPRB/)  
+KAO( :, 1, 8,10) = (/&
+ & 1.1125E-03_JPRB,9.7475E-04_JPRB,8.4628E-04_JPRB,7.1245E-04_JPRB,5.8223E-04_JPRB,4.4955E-04_JPRB,&
+ & 1.2055E-05_JPRB,1.4979E-05_JPRB,2.2126E-03_JPRB/)  
+KAO( :, 2, 8,10) = (/&
+ & 1.0938E-03_JPRB,9.6654E-04_JPRB,8.3997E-04_JPRB,7.1323E-04_JPRB,5.9255E-04_JPRB,4.7230E-04_JPRB,&
+ & 3.2313E-04_JPRB,3.4269E-06_JPRB,4.0836E-03_JPRB/)  
+KAO( :, 3, 8,10) = (/&
+ & 1.0758E-03_JPRB,9.5487E-04_JPRB,8.3741E-04_JPRB,7.2643E-04_JPRB,6.2166E-04_JPRB,5.1323E-04_JPRB,&
+ & 4.2493E-04_JPRB,3.0113E-04_JPRB,6.9437E-03_JPRB/)  
+KAO( :, 4, 8,10) = (/&
+ & 1.0550E-03_JPRB,9.4862E-04_JPRB,8.4799E-04_JPRB,7.6117E-04_JPRB,6.7028E-04_JPRB,5.9614E-04_JPRB,&
+ & 6.0166E-04_JPRB,6.5642E-04_JPRB,1.1024E-02_JPRB/)  
+KAO( :, 5, 8,10) = (/&
+ & 1.0393E-03_JPRB,9.5089E-04_JPRB,8.7866E-04_JPRB,8.1224E-04_JPRB,7.5400E-04_JPRB,7.6815E-04_JPRB,&
+ & 8.8282E-04_JPRB,1.0221E-03_JPRB,1.6724E-02_JPRB/)  
+KAO( :, 1, 9,10) = (/&
+ & 1.2180E-03_JPRB,1.0664E-03_JPRB,9.2270E-04_JPRB,7.7328E-04_JPRB,6.2475E-04_JPRB,4.6815E-04_JPRB,&
+ & 9.5178E-06_JPRB,3.3772E-06_JPRB,6.2846E-03_JPRB/)  
+KAO( :, 2, 9,10) = (/&
+ & 1.1921E-03_JPRB,1.0498E-03_JPRB,9.0635E-04_JPRB,7.6682E-04_JPRB,6.2317E-04_JPRB,4.8406E-04_JPRB,&
+ & 8.3341E-05_JPRB,3.8343E-06_JPRB,1.2227E-02_JPRB/)  
+KAO( :, 3, 9,10) = (/&
+ & 1.1669E-03_JPRB,1.0310E-03_JPRB,8.9852E-04_JPRB,7.6558E-04_JPRB,6.4277E-04_JPRB,5.2121E-04_JPRB,&
+ & 3.7666E-04_JPRB,1.2040E-05_JPRB,2.1734E-02_JPRB/)  
+KAO( :, 4, 9,10) = (/&
+ & 1.1470E-03_JPRB,1.0235E-03_JPRB,9.0044E-04_JPRB,7.8767E-04_JPRB,6.8183E-04_JPRB,5.6489E-04_JPRB,&
+ & 4.9156E-04_JPRB,4.5088E-04_JPRB,3.6006E-02_JPRB/)  
+KAO( :, 5, 9,10) = (/&
+ & 1.1295E-03_JPRB,1.0174E-03_JPRB,9.1849E-04_JPRB,8.2709E-04_JPRB,7.3027E-04_JPRB,6.6994E-04_JPRB,&
+ & 6.9088E-04_JPRB,7.9186E-04_JPRB,5.6162E-02_JPRB/)  
+KAO( :, 1,10,10) = (/&
+ & 1.3419E-03_JPRB,1.1745E-03_JPRB,1.0112E-03_JPRB,8.4729E-04_JPRB,6.7925E-04_JPRB,4.9697E-04_JPRB,&
+ & 1.5254E-06_JPRB,1.5343E-06_JPRB,2.0999E-02_JPRB/)  
+KAO( :, 2,10,10) = (/&
+ & 1.3141E-03_JPRB,1.1539E-03_JPRB,9.9630E-04_JPRB,8.3744E-04_JPRB,6.7916E-04_JPRB,5.1101E-04_JPRB,&
+ & 6.8452E-06_JPRB,3.0451E-06_JPRB,4.3024E-02_JPRB/)  
+KAO( :, 3,10,10) = (/&
+ & 1.2898E-03_JPRB,1.1375E-03_JPRB,9.8703E-04_JPRB,8.3404E-04_JPRB,6.8649E-04_JPRB,5.3929E-04_JPRB,&
+ & 3.2626E-04_JPRB,6.0173E-06_JPRB,7.9885E-02_JPRB/)  
+KAO( :, 4,10,10) = (/&
+ & 1.2672E-03_JPRB,1.1264E-03_JPRB,9.8249E-04_JPRB,8.4764E-04_JPRB,7.1223E-04_JPRB,5.7730E-04_JPRB,&
+ & 4.4171E-04_JPRB,9.9896E-05_JPRB,1.3680E-01_JPRB/)  
+KAO( :, 5,10,10) = (/&
+ & 1.2477E-03_JPRB,1.1172E-03_JPRB,9.9135E-04_JPRB,8.7077E-04_JPRB,7.4770E-04_JPRB,6.3934E-04_JPRB,&
+ & 5.7696E-04_JPRB,6.1656E-04_JPRB,2.1952E-01_JPRB/)  
+KAO( :, 1,11,10) = (/&
+ & 1.4755E-03_JPRB,1.2917E-03_JPRB,1.1119E-03_JPRB,9.3058E-04_JPRB,7.4744E-04_JPRB,5.5051E-04_JPRB,&
+ & 1.6522E-06_JPRB,1.5412E-06_JPRB,3.4475E-02_JPRB/)  
+KAO( :, 2,11,10) = (/&
+ & 1.4485E-03_JPRB,1.2719E-03_JPRB,1.0971E-03_JPRB,9.2191E-04_JPRB,7.4745E-04_JPRB,5.7109E-04_JPRB,&
+ & 1.1696E-05_JPRB,3.1243E-06_JPRB,7.0850E-02_JPRB/)  
+KAO( :, 3,11,10) = (/&
+ & 1.4264E-03_JPRB,1.2579E-03_JPRB,1.0914E-03_JPRB,9.2154E-04_JPRB,7.5855E-04_JPRB,5.9482E-04_JPRB,&
+ & 3.1605E-04_JPRB,9.6309E-06_JPRB,1.3183E-01_JPRB/)  
+KAO( :, 4,11,10) = (/&
+ & 1.4023E-03_JPRB,1.2457E-03_JPRB,1.0849E-03_JPRB,9.3462E-04_JPRB,7.7881E-04_JPRB,6.1925E-04_JPRB,&
+ & 4.6174E-04_JPRB,2.1053E-05_JPRB,2.2597E-01_JPRB/)  
+KAO( :, 5,11,10) = (/&
+ & 1.3792E-03_JPRB,1.2345E-03_JPRB,1.0916E-03_JPRB,9.5041E-04_JPRB,8.0615E-04_JPRB,6.7157E-04_JPRB,&
+ & 5.8929E-04_JPRB,6.0215E-04_JPRB,3.6233E-01_JPRB/)  
+KAO( :, 1,12,10) = (/&
+ & 1.6315E-03_JPRB,1.4286E-03_JPRB,1.2296E-03_JPRB,1.0282E-03_JPRB,8.2450E-04_JPRB,6.1652E-04_JPRB,&
+ & 3.3057E-06_JPRB,1.5465E-06_JPRB,4.1474E-02_JPRB/)  
+KAO( :, 2,12,10) = (/&
+ & 1.6041E-03_JPRB,1.4085E-03_JPRB,1.2135E-03_JPRB,1.0193E-03_JPRB,8.2407E-04_JPRB,6.2890E-04_JPRB,&
+ & 2.0154E-05_JPRB,3.2488E-06_JPRB,8.5418E-02_JPRB/)  
+KAO( :, 3,12,10) = (/&
+ & 1.5781E-03_JPRB,1.3908E-03_JPRB,1.2052E-03_JPRB,1.0160E-03_JPRB,8.3518E-04_JPRB,6.5087E-04_JPRB,&
+ & 4.2444E-04_JPRB,1.1529E-05_JPRB,1.5881E-01_JPRB/)  
+KAO( :, 4,12,10) = (/&
+ & 1.5539E-03_JPRB,1.3775E-03_JPRB,1.1979E-03_JPRB,1.0287E-03_JPRB,8.5555E-04_JPRB,6.7702E-04_JPRB,&
+ & 4.9760E-04_JPRB,3.6698E-05_JPRB,2.7219E-01_JPRB/)  
+KAO( :, 5,12,10) = (/&
+ & 1.5294E-03_JPRB,1.3662E-03_JPRB,1.2069E-03_JPRB,1.0470E-03_JPRB,8.8424E-04_JPRB,7.2459E-04_JPRB,&
+ & 6.0457E-04_JPRB,5.8830E-04_JPRB,4.3580E-01_JPRB/)  
+KAO( :, 1,13,10) = (/&
+ & 1.8076E-03_JPRB,1.5828E-03_JPRB,1.3613E-03_JPRB,1.1383E-03_JPRB,9.1463E-04_JPRB,6.8299E-04_JPRB,&
+ & 3.0458E-06_JPRB,2.1473E-06_JPRB,3.9495E-02_JPRB/)  
+KAO( :, 2,13,10) = (/&
+ & 1.7788E-03_JPRB,1.5607E-03_JPRB,1.3444E-03_JPRB,1.1293E-03_JPRB,9.1288E-04_JPRB,6.9366E-04_JPRB,&
+ & 2.1339E-05_JPRB,1.1723E-05_JPRB,8.1294E-02_JPRB/)  
+KAO( :, 3,13,10) = (/&
+ & 1.7495E-03_JPRB,1.5404E-03_JPRB,1.3343E-03_JPRB,1.1244E-03_JPRB,9.2221E-04_JPRB,7.1955E-04_JPRB,&
+ & 4.9268E-04_JPRB,4.3370E-06_JPRB,1.5101E-01_JPRB/)  
+KAO( :, 4,13,10) = (/&
+ & 1.7235E-03_JPRB,1.5270E-03_JPRB,1.3269E-03_JPRB,1.1365E-03_JPRB,9.4473E-04_JPRB,7.4612E-04_JPRB,&
+ & 5.5227E-04_JPRB,4.6866E-05_JPRB,2.5856E-01_JPRB/)  
+KAO( :, 5,13,10) = (/&
+ & 1.6990E-03_JPRB,1.5170E-03_JPRB,1.3368E-03_JPRB,1.1584E-03_JPRB,9.7488E-04_JPRB,7.9318E-04_JPRB,&
+ & 6.2728E-04_JPRB,5.6960E-04_JPRB,4.1354E-01_JPRB/)  
+KAO( :, 1, 1,11) = (/&
+ & 1.0196E-03_JPRB,9.3758E-04_JPRB,9.0316E-04_JPRB,8.5667E-04_JPRB,8.7577E-04_JPRB,1.0236E-03_JPRB,&
+ & 1.1763E-03_JPRB,1.3143E-03_JPRB,1.4719E-03_JPRB/)  
+KAO( :, 2, 1,11) = (/&
+ & 1.3459E-03_JPRB,1.2311E-03_JPRB,1.1576E-03_JPRB,1.1100E-03_JPRB,1.2232E-03_JPRB,1.4576E-03_JPRB,&
+ & 1.6924E-03_JPRB,1.9154E-03_JPRB,2.1488E-03_JPRB/)  
+KAO( :, 3, 1,11) = (/&
+ & 1.7777E-03_JPRB,1.6234E-03_JPRB,1.5128E-03_JPRB,1.4437E-03_JPRB,1.6918E-03_JPRB,2.0373E-03_JPRB,&
+ & 2.3872E-03_JPRB,2.7172E-03_JPRB,3.0763E-03_JPRB/)  
+KAO( :, 4, 1,11) = (/&
+ & 2.2969E-03_JPRB,2.1117E-03_JPRB,1.9790E-03_JPRB,1.9131E-03_JPRB,2.3134E-03_JPRB,2.7903E-03_JPRB,&
+ & 3.2537E-03_JPRB,3.7099E-03_JPRB,4.2069E-03_JPRB/)  
+KAO( :, 5, 1,11) = (/&
+ & 2.9364E-03_JPRB,2.7064E-03_JPRB,2.5487E-03_JPRB,2.4995E-03_JPRB,3.0802E-03_JPRB,3.7340E-03_JPRB,&
+ & 4.3606E-03_JPRB,4.9323E-03_JPRB,5.6150E-03_JPRB/)  
+KAO( :, 1, 2,11) = (/&
+ & 9.5564E-04_JPRB,8.6594E-04_JPRB,8.2247E-04_JPRB,7.8184E-04_JPRB,7.7258E-04_JPRB,8.9065E-04_JPRB,&
+ & 1.0177E-03_JPRB,1.1498E-03_JPRB,1.2899E-03_JPRB/)  
+KAO( :, 2, 2,11) = (/&
+ & 1.2029E-03_JPRB,1.1043E-03_JPRB,1.0479E-03_JPRB,9.9924E-04_JPRB,1.0917E-03_JPRB,1.3015E-03_JPRB,&
+ & 1.5067E-03_JPRB,1.7035E-03_JPRB,1.9385E-03_JPRB/)  
+KAO( :, 3, 2,11) = (/&
+ & 1.5957E-03_JPRB,1.4702E-03_JPRB,1.3834E-03_JPRB,1.3292E-03_JPRB,1.5404E-03_JPRB,1.8482E-03_JPRB,&
+ & 2.1587E-03_JPRB,2.4595E-03_JPRB,2.8087E-03_JPRB/)  
+KAO( :, 4, 2,11) = (/&
+ & 2.0836E-03_JPRB,1.9269E-03_JPRB,1.8210E-03_JPRB,1.7577E-03_JPRB,2.1115E-03_JPRB,2.5490E-03_JPRB,&
+ & 2.9802E-03_JPRB,3.4053E-03_JPRB,3.8766E-03_JPRB/)  
+KAO( :, 5, 2,11) = (/&
+ & 2.6761E-03_JPRB,2.4830E-03_JPRB,2.3690E-03_JPRB,2.3218E-03_JPRB,2.8435E-03_JPRB,3.4292E-03_JPRB,&
+ & 4.0478E-03_JPRB,4.5913E-03_JPRB,5.2765E-03_JPRB/)  
+KAO( :, 1, 3,11) = (/&
+ & 9.1098E-04_JPRB,8.1971E-04_JPRB,7.5453E-04_JPRB,6.8955E-04_JPRB,6.6573E-04_JPRB,7.4366E-04_JPRB,&
+ & 8.3291E-04_JPRB,9.1681E-04_JPRB,1.0507E-03_JPRB/)  
+KAO( :, 2, 3,11) = (/&
+ & 1.0095E-03_JPRB,9.2632E-04_JPRB,8.7912E-04_JPRB,8.5222E-04_JPRB,9.1711E-04_JPRB,1.0796E-03_JPRB,&
+ & 1.2384E-03_JPRB,1.3937E-03_JPRB,1.6031E-03_JPRB/)  
+KAO( :, 3, 3,11) = (/&
+ & 1.2860E-03_JPRB,1.2005E-03_JPRB,1.1448E-03_JPRB,1.1224E-03_JPRB,1.2896E-03_JPRB,1.5406E-03_JPRB,&
+ & 1.7947E-03_JPRB,2.0396E-03_JPRB,2.3408E-03_JPRB/)  
+KAO( :, 4, 3,11) = (/&
+ & 1.6840E-03_JPRB,1.5843E-03_JPRB,1.5072E-03_JPRB,1.4946E-03_JPRB,1.7912E-03_JPRB,2.1550E-03_JPRB,&
+ & 2.5174E-03_JPRB,2.8934E-03_JPRB,3.3321E-03_JPRB/)  
+KAO( :, 5, 3,11) = (/&
+ & 2.1821E-03_JPRB,2.0586E-03_JPRB,1.9862E-03_JPRB,1.9857E-03_JPRB,2.4329E-03_JPRB,2.9479E-03_JPRB,&
+ & 3.4818E-03_JPRB,3.9625E-03_JPRB,4.5981E-03_JPRB/)  
+KAO( :, 1, 4,11) = (/&
+ & 9.1007E-04_JPRB,8.1515E-04_JPRB,7.4019E-04_JPRB,6.6666E-04_JPRB,6.0223E-04_JPRB,6.1717E-04_JPRB,&
+ & 6.7688E-04_JPRB,7.1358E-04_JPRB,8.7370E-04_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART7',1,ZHOOK_HANDLE)
+END SUBROUTINE PART7
+
+
+SUBROUTINE PART8
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART8',0,ZHOOK_HANDLE)
+
+
+KAO( :, 2, 4,11) = (/&
+ & 9.4061E-04_JPRB,8.5858E-04_JPRB,8.0024E-04_JPRB,7.4707E-04_JPRB,7.7220E-04_JPRB,8.8981E-04_JPRB,&
+ & 1.0064E-03_JPRB,1.1094E-03_JPRB,1.3491E-03_JPRB/)  
+KAO( :, 3, 4,11) = (/&
+ & 1.0580E-03_JPRB,9.8116E-04_JPRB,9.2713E-04_JPRB,9.3975E-04_JPRB,1.0753E-03_JPRB,1.2664E-03_JPRB,&
+ & 1.4600E-03_JPRB,1.6482E-03_JPRB,1.9983E-03_JPRB/)  
+KAO( :, 4, 4,11) = (/&
+ & 1.3185E-03_JPRB,1.2651E-03_JPRB,1.2235E-03_JPRB,1.2449E-03_JPRB,1.4893E-03_JPRB,1.7828E-03_JPRB,&
+ & 2.0723E-03_JPRB,2.3550E-03_JPRB,2.8663E-03_JPRB/)  
+KAO( :, 5, 4,11) = (/&
+ & 1.7012E-03_JPRB,1.6381E-03_JPRB,1.6202E-03_JPRB,1.6478E-03_JPRB,2.0248E-03_JPRB,2.4554E-03_JPRB,&
+ & 2.8747E-03_JPRB,3.2963E-03_JPRB,4.0058E-03_JPRB/)  
+KAO( :, 1, 5,11) = (/&
+ & 9.4336E-04_JPRB,8.3814E-04_JPRB,7.4599E-04_JPRB,6.5815E-04_JPRB,5.8713E-04_JPRB,5.1959E-04_JPRB,&
+ & 5.3264E-04_JPRB,5.5247E-04_JPRB,1.0574E-03_JPRB/)  
+KAO( :, 2, 5,11) = (/&
+ & 9.5312E-04_JPRB,8.5894E-04_JPRB,7.8295E-04_JPRB,7.1666E-04_JPRB,6.6657E-04_JPRB,7.2698E-04_JPRB,&
+ & 8.1350E-04_JPRB,8.9727E-04_JPRB,1.7265E-03_JPRB/)  
+KAO( :, 3, 5,11) = (/&
+ & 9.8083E-04_JPRB,9.0340E-04_JPRB,8.4536E-04_JPRB,8.1479E-04_JPRB,8.9835E-04_JPRB,1.0481E-03_JPRB,&
+ & 1.2030E-03_JPRB,1.3495E-03_JPRB,2.6645E-03_JPRB/)  
+KAO( :, 4, 5,11) = (/&
+ & 1.0919E-03_JPRB,1.0271E-03_JPRB,9.9432E-04_JPRB,1.0447E-03_JPRB,1.2444E-03_JPRB,1.4845E-03_JPRB,&
+ & 1.7171E-03_JPRB,1.9373E-03_JPRB,3.9343E-03_JPRB/)  
+KAO( :, 5, 5,11) = (/&
+ & 1.3125E-03_JPRB,1.2964E-03_JPRB,1.3064E-03_JPRB,1.3776E-03_JPRB,1.6940E-03_JPRB,2.0397E-03_JPRB,&
+ & 2.3911E-03_JPRB,2.7218E-03_JPRB,5.5487E-03_JPRB/)  
+KAO( :, 1, 6,11) = (/&
+ & 1.0191E-03_JPRB,8.9896E-04_JPRB,7.8508E-04_JPRB,6.7831E-04_JPRB,5.7633E-04_JPRB,4.9216E-04_JPRB,&
+ & 4.0826E-04_JPRB,9.2980E-05_JPRB,1.3931E-03_JPRB/)  
+KAO( :, 2, 6,11) = (/&
+ & 1.0047E-03_JPRB,8.9662E-04_JPRB,8.0205E-04_JPRB,7.1402E-04_JPRB,6.3991E-04_JPRB,5.8384E-04_JPRB,&
+ & 6.2794E-04_JPRB,6.7696E-04_JPRB,2.3552E-03_JPRB/)  
+KAO( :, 3, 6,11) = (/&
+ & 1.0047E-03_JPRB,9.1475E-04_JPRB,8.3262E-04_JPRB,7.7264E-04_JPRB,7.4682E-04_JPRB,8.3595E-04_JPRB,&
+ & 9.5189E-04_JPRB,1.0656E-03_JPRB,3.7189E-03_JPRB/)  
+KAO( :, 4, 6,11) = (/&
+ & 1.0246E-03_JPRB,9.4864E-04_JPRB,8.9322E-04_JPRB,8.8690E-04_JPRB,1.0204E-03_JPRB,1.2021E-03_JPRB,&
+ & 1.3925E-03_JPRB,1.5656E-03_JPRB,5.5692E-03_JPRB/)  
+KAO( :, 5, 6,11) = (/&
+ & 1.1192E-03_JPRB,1.0605E-03_JPRB,1.0485E-03_JPRB,1.1451E-03_JPRB,1.4045E-03_JPRB,1.6858E-03_JPRB,&
+ & 1.9713E-03_JPRB,2.2360E-03_JPRB,7.9629E-03_JPRB/)  
+KAO( :, 1, 7,11) = (/&
+ & 1.1105E-03_JPRB,9.7554E-04_JPRB,8.4845E-04_JPRB,7.2311E-04_JPRB,5.9822E-04_JPRB,4.8054E-04_JPRB,&
+ & 3.5912E-04_JPRB,1.6334E-05_JPRB,1.8685E-03_JPRB/)  
+KAO( :, 2, 7,11) = (/&
+ & 1.0953E-03_JPRB,9.7181E-04_JPRB,8.5659E-04_JPRB,7.3634E-04_JPRB,6.3339E-04_JPRB,5.4068E-04_JPRB,&
+ & 4.8190E-04_JPRB,4.0504E-04_JPRB,3.3171E-03_JPRB/)  
+KAO( :, 3, 7,11) = (/&
+ & 1.0776E-03_JPRB,9.6988E-04_JPRB,8.6596E-04_JPRB,7.7221E-04_JPRB,7.0034E-04_JPRB,6.6772E-04_JPRB,&
+ & 7.4067E-04_JPRB,8.0814E-04_JPRB,5.4649E-03_JPRB/)  
+KAO( :, 4, 7,11) = (/&
+ & 1.0633E-03_JPRB,9.7163E-04_JPRB,8.9525E-04_JPRB,8.4042E-04_JPRB,8.3803E-04_JPRB,9.5863E-04_JPRB,&
+ & 1.0998E-03_JPRB,1.2373E-03_JPRB,8.4838E-03_JPRB/)  
+KAO( :, 5, 7,11) = (/&
+ & 1.0727E-03_JPRB,1.0017E-03_JPRB,9.6422E-04_JPRB,9.7682E-04_JPRB,1.1474E-03_JPRB,1.3738E-03_JPRB,&
+ & 1.6070E-03_JPRB,1.8227E-03_JPRB,1.2477E-02_JPRB/)  
+KAO( :, 1, 8,11) = (/&
+ & 1.2212E-03_JPRB,1.0686E-03_JPRB,9.2776E-04_JPRB,7.8030E-04_JPRB,6.3679E-04_JPRB,4.9028E-04_JPRB,&
+ & 2.5705E-05_JPRB,3.5598E-06_JPRB,3.0236E-03_JPRB/)  
+KAO( :, 2, 8,11) = (/&
+ & 1.1904E-03_JPRB,1.0515E-03_JPRB,9.1846E-04_JPRB,7.8584E-04_JPRB,6.5098E-04_JPRB,5.2805E-04_JPRB,&
+ & 4.1417E-04_JPRB,7.4299E-06_JPRB,5.6339E-03_JPRB/)  
+KAO( :, 3, 8,11) = (/&
+ & 1.1656E-03_JPRB,1.0373E-03_JPRB,9.2017E-04_JPRB,7.9903E-04_JPRB,6.9375E-04_JPRB,6.0910E-04_JPRB,&
+ & 5.7009E-04_JPRB,5.4932E-04_JPRB,9.6178E-03_JPRB/)  
+KAO( :, 4, 8,11) = (/&
+ & 1.1498E-03_JPRB,1.0424E-03_JPRB,9.3266E-04_JPRB,8.4261E-04_JPRB,7.7492E-04_JPRB,7.6691E-04_JPRB,&
+ & 8.6816E-04_JPRB,9.6408E-04_JPRB,1.5378E-02_JPRB/)  
+KAO( :, 5, 8,11) = (/&
+ & 1.1310E-03_JPRB,1.0416E-03_JPRB,9.7038E-04_JPRB,9.2287E-04_JPRB,9.4475E-04_JPRB,1.1097E-03_JPRB,&
+ & 1.2928E-03_JPRB,1.4673E-03_JPRB,2.3131E-02_JPRB/)  
+KAO( :, 1, 9,11) = (/&
+ & 1.3346E-03_JPRB,1.1677E-03_JPRB,1.0079E-03_JPRB,8.4634E-04_JPRB,6.8278E-04_JPRB,5.1557E-04_JPRB,&
+ & 6.2170E-06_JPRB,3.5575E-07_JPRB,9.0278E-03_JPRB/)  
+KAO( :, 2, 9,11) = (/&
+ & 1.3004E-03_JPRB,1.1437E-03_JPRB,9.9288E-04_JPRB,8.4407E-04_JPRB,6.9152E-04_JPRB,5.4161E-04_JPRB,&
+ & 3.0407E-04_JPRB,7.5811E-06_JPRB,1.7755E-02_JPRB/)  
+KAO( :, 3, 9,11) = (/&
+ & 1.2716E-03_JPRB,1.1282E-03_JPRB,9.9193E-04_JPRB,8.4979E-04_JPRB,7.1877E-04_JPRB,5.8562E-04_JPRB,&
+ & 4.7440E-04_JPRB,1.3642E-04_JPRB,3.1669E-02_JPRB/)  
+KAO( :, 4, 9,11) = (/&
+ & 1.2493E-03_JPRB,1.1232E-03_JPRB,9.9486E-04_JPRB,8.7574E-04_JPRB,7.6208E-04_JPRB,6.8407E-04_JPRB,&
+ & 6.7008E-04_JPRB,7.2430E-04_JPRB,5.2322E-02_JPRB/)  
+KAO( :, 5, 9,11) = (/&
+ & 1.2292E-03_JPRB,1.1190E-03_JPRB,1.0123E-03_JPRB,9.2200E-04_JPRB,8.6839E-04_JPRB,8.8671E-04_JPRB,&
+ & 1.0239E-03_JPRB,1.1645E-03_JPRB,8.1332E-02_JPRB/)  
+KAO( :, 1,10,11) = (/&
+ & 1.4702E-03_JPRB,1.2866E-03_JPRB,1.1046E-03_JPRB,9.2775E-04_JPRB,7.4227E-04_JPRB,5.4877E-04_JPRB,&
+ & 1.5669E-06_JPRB,2.1750E-07_JPRB,3.1809E-02_JPRB/)  
+KAO( :, 2,10,11) = (/&
+ & 1.4381E-03_JPRB,1.2591E-03_JPRB,1.0910E-03_JPRB,9.1751E-04_JPRB,7.4581E-04_JPRB,5.6956E-04_JPRB,&
+ & 1.4408E-05_JPRB,2.9977E-06_JPRB,6.5658E-02_JPRB/)  
+KAO( :, 3,10,11) = (/&
+ & 1.4088E-03_JPRB,1.2443E-03_JPRB,1.0832E-03_JPRB,9.2001E-04_JPRB,7.6006E-04_JPRB,6.0163E-04_JPRB,&
+ & 4.0981E-04_JPRB,3.3752E-06_JPRB,1.2158E-01_JPRB/)  
+KAO( :, 4,10,11) = (/&
+ & 1.3837E-03_JPRB,1.2299E-03_JPRB,1.0785E-03_JPRB,9.3172E-04_JPRB,7.8792E-04_JPRB,6.5978E-04_JPRB,&
+ & 5.6509E-04_JPRB,4.3870E-04_JPRB,2.0789E-01_JPRB/)  
+KAO( :, 5,10,11) = (/&
+ & 1.3583E-03_JPRB,1.2214E-03_JPRB,1.0847E-03_JPRB,9.6075E-04_JPRB,8.5481E-04_JPRB,7.9082E-04_JPRB,&
+ & 8.2900E-04_JPRB,9.3239E-04_JPRB,3.3217E-01_JPRB/)  
+KAO( :, 1,11,11) = (/&
+ & 1.6253E-03_JPRB,1.4219E-03_JPRB,1.2219E-03_JPRB,1.0236E-03_JPRB,8.2003E-04_JPRB,6.0541E-04_JPRB,&
+ & 1.4231E-06_JPRB,1.8071E-07_JPRB,5.4692E-02_JPRB/)  
+KAO( :, 2,11,11) = (/&
+ & 1.5951E-03_JPRB,1.3985E-03_JPRB,1.2081E-03_JPRB,1.0150E-03_JPRB,8.2284E-04_JPRB,6.1646E-04_JPRB,&
+ & 9.6207E-06_JPRB,2.7452E-06_JPRB,1.1216E-01_JPRB/)  
+KAO( :, 3,11,11) = (/&
+ & 1.5642E-03_JPRB,1.3790E-03_JPRB,1.1965E-03_JPRB,1.0113E-03_JPRB,8.2943E-04_JPRB,6.4775E-04_JPRB,&
+ & 4.3571E-04_JPRB,8.6785E-06_JPRB,2.0795E-01_JPRB/)  
+KAO( :, 4,11,11) = (/&
+ & 1.5361E-03_JPRB,1.3630E-03_JPRB,1.1895E-03_JPRB,1.0207E-03_JPRB,8.5744E-04_JPRB,7.0323E-04_JPRB,&
+ & 5.8809E-04_JPRB,4.1682E-04_JPRB,3.5571E-01_JPRB/)  
+KAO( :, 5,11,11) = (/&
+ & 1.5066E-03_JPRB,1.3488E-03_JPRB,1.1930E-03_JPRB,1.0481E-03_JPRB,9.1295E-04_JPRB,8.2679E-04_JPRB,&
+ & 8.2109E-04_JPRB,9.1792E-04_JPRB,5.7120E-01_JPRB/)  
+KAO( :, 1,12,11) = (/&
+ & 1.8041E-03_JPRB,1.5789E-03_JPRB,1.3570E-03_JPRB,1.1389E-03_JPRB,9.1257E-04_JPRB,6.7888E-04_JPRB,&
+ & 5.1658E-06_JPRB,1.5829E-07_JPRB,6.8561E-02_JPRB/)  
+KAO( :, 2,12,11) = (/&
+ & 1.7738E-03_JPRB,1.5558E-03_JPRB,1.3438E-03_JPRB,1.1292E-03_JPRB,9.1436E-04_JPRB,6.9573E-04_JPRB,&
+ & 2.0820E-05_JPRB,3.7433E-06_JPRB,1.4057E-01_JPRB/)  
+KAO( :, 3,12,11) = (/&
+ & 1.7418E-03_JPRB,1.5353E-03_JPRB,1.3329E-03_JPRB,1.1261E-03_JPRB,9.2270E-04_JPRB,7.2358E-04_JPRB,&
+ & 4.7954E-04_JPRB,1.5535E-05_JPRB,2.6118E-01_JPRB/)  
+KAO( :, 4,12,11) = (/&
+ & 1.7090E-03_JPRB,1.5180E-03_JPRB,1.3238E-03_JPRB,1.1375E-03_JPRB,9.5111E-04_JPRB,7.6548E-04_JPRB,&
+ & 6.0636E-04_JPRB,4.1209E-04_JPRB,4.4778E-01_JPRB/)  
+KAO( :, 5,12,11) = (/&
+ & 1.6778E-03_JPRB,1.5017E-03_JPRB,1.3263E-03_JPRB,1.1626E-03_JPRB,9.9449E-04_JPRB,8.6348E-04_JPRB,&
+ & 8.1707E-04_JPRB,9.1552E-04_JPRB,7.1823E-01_JPRB/)  
+KAO( :, 1,13,11) = (/&
+ & 2.0162E-03_JPRB,1.7643E-03_JPRB,1.5166E-03_JPRB,1.2707E-03_JPRB,1.0200E-03_JPRB,7.6409E-04_JPRB,&
+ & 1.3933E-06_JPRB,1.3814E-07_JPRB,6.7541E-02_JPRB/)  
+KAO( :, 2,13,11) = (/&
+ & 1.9804E-03_JPRB,1.7378E-03_JPRB,1.5003E-03_JPRB,1.2598E-03_JPRB,1.0208E-03_JPRB,7.7583E-04_JPRB,&
+ & 1.0519E-04_JPRB,2.9677E-05_JPRB,1.3898E-01_JPRB/)  
+KAO( :, 3,13,11) = (/&
+ & 1.9463E-03_JPRB,1.7141E-03_JPRB,1.4887E-03_JPRB,1.2580E-03_JPRB,1.0319E-03_JPRB,8.0958E-04_JPRB,&
+ & 5.4607E-04_JPRB,8.2236E-06_JPRB,2.5839E-01_JPRB/)  
+KAO( :, 4,13,11) = (/&
+ & 1.9119E-03_JPRB,1.6986E-03_JPRB,1.4811E-03_JPRB,1.2741E-03_JPRB,1.0665E-03_JPRB,8.4965E-04_JPRB,&
+ & 6.3669E-04_JPRB,4.3144E-04_JPRB,4.4372E-01_JPRB/)  
+KAO( :, 5,13,11) = (/&
+ & 1.8807E-03_JPRB,1.6835E-03_JPRB,1.4885E-03_JPRB,1.3024E-03_JPRB,1.1081E-03_JPRB,9.2308E-04_JPRB,&
+ & 8.2856E-04_JPRB,9.1296E-04_JPRB,7.1076E-01_JPRB/)  
+KAO( :, 1, 1,12) = (/&
+ & 1.1348E-03_JPRB,1.0512E-03_JPRB,1.0112E-03_JPRB,1.0380E-03_JPRB,1.2591E-03_JPRB,1.5034E-03_JPRB,&
+ & 1.7458E-03_JPRB,1.9916E-03_JPRB,2.2515E-03_JPRB/)  
+KAO( :, 2, 1,12) = (/&
+ & 1.4497E-03_JPRB,1.3258E-03_JPRB,1.2902E-03_JPRB,1.3933E-03_JPRB,1.7402E-03_JPRB,2.0749E-03_JPRB,&
+ & 2.4232E-03_JPRB,2.7843E-03_JPRB,3.1336E-03_JPRB/)  
+KAO( :, 3, 1,12) = (/&
+ & 1.9087E-03_JPRB,1.7431E-03_JPRB,1.6616E-03_JPRB,1.8437E-03_JPRB,2.3259E-03_JPRB,2.8106E-03_JPRB,&
+ & 3.3232E-03_JPRB,3.7674E-03_JPRB,4.2777E-03_JPRB/)  
+KAO( :, 4, 1,12) = (/&
+ & 2.5088E-03_JPRB,2.2929E-03_JPRB,2.1415E-03_JPRB,2.4320E-03_JPRB,3.0901E-03_JPRB,3.7563E-03_JPRB,&
+ & 4.4295E-03_JPRB,5.0514E-03_JPRB,5.7435E-03_JPRB/)  
+KAO( :, 5, 1,12) = (/&
+ & 3.2224E-03_JPRB,2.9512E-03_JPRB,2.7375E-03_JPRB,3.2055E-03_JPRB,4.1147E-03_JPRB,5.0116E-03_JPRB,&
+ & 5.9163E-03_JPRB,6.7642E-03_JPRB,7.7486E-03_JPRB/)  
+KAO( :, 1, 2,12) = (/&
+ & 1.0492E-03_JPRB,9.6475E-04_JPRB,9.4375E-04_JPRB,9.3817E-04_JPRB,1.1146E-03_JPRB,1.3292E-03_JPRB,&
+ & 1.5275E-03_JPRB,1.7383E-03_JPRB,1.9763E-03_JPRB/)  
+KAO( :, 2, 2,12) = (/&
+ & 1.3114E-03_JPRB,1.2057E-03_JPRB,1.1899E-03_JPRB,1.2587E-03_JPRB,1.5556E-03_JPRB,1.8745E-03_JPRB,&
+ & 2.1716E-03_JPRB,2.4737E-03_JPRB,2.8199E-03_JPRB/)  
+KAO( :, 3, 2,12) = (/&
+ & 1.7413E-03_JPRB,1.5927E-03_JPRB,1.5301E-03_JPRB,1.6869E-03_JPRB,2.1324E-03_JPRB,2.5756E-03_JPRB,&
+ & 3.0059E-03_JPRB,3.4270E-03_JPRB,3.9244E-03_JPRB/)  
+KAO( :, 4, 2,12) = (/&
+ & 2.2840E-03_JPRB,2.1084E-03_JPRB,1.9850E-03_JPRB,2.2595E-03_JPRB,2.8933E-03_JPRB,3.5203E-03_JPRB,&
+ & 4.1407E-03_JPRB,4.7114E-03_JPRB,5.4047E-03_JPRB/)  
+KAO( :, 5, 2,12) = (/&
+ & 2.9533E-03_JPRB,2.7476E-03_JPRB,2.5658E-03_JPRB,3.0087E-03_JPRB,3.8774E-03_JPRB,4.7340E-03_JPRB,&
+ & 5.5746E-03_JPRB,6.3471E-03_JPRB,7.3465E-03_JPRB/)  
+KAO( :, 1, 3,12) = (/&
+ & 9.8854E-04_JPRB,8.9343E-04_JPRB,8.4035E-04_JPRB,7.9923E-04_JPRB,8.9609E-04_JPRB,1.0622E-03_JPRB,&
+ & 1.2115E-03_JPRB,1.3909E-03_JPRB,1.5813E-03_JPRB/)  
+KAO( :, 2, 3,12) = (/&
+ & 1.0879E-03_JPRB,1.0117E-03_JPRB,1.0134E-03_JPRB,1.0514E-03_JPRB,1.2838E-03_JPRB,1.5374E-03_JPRB,&
+ & 1.7938E-03_JPRB,2.0363E-03_JPRB,2.3508E-03_JPRB/)  
+KAO( :, 3, 3,12) = (/&
+ & 1.4163E-03_JPRB,1.3226E-03_JPRB,1.2897E-03_JPRB,1.4327E-03_JPRB,1.8163E-03_JPRB,2.1941E-03_JPRB,&
+ & 2.5686E-03_JPRB,2.9319E-03_JPRB,3.4012E-03_JPRB/)  
+KAO( :, 4, 3,12) = (/&
+ & 1.8714E-03_JPRB,1.7493E-03_JPRB,1.6791E-03_JPRB,1.9710E-03_JPRB,2.5266E-03_JPRB,3.0817E-03_JPRB,&
+ & 3.6203E-03_JPRB,4.1272E-03_JPRB,4.8320E-03_JPRB/)  
+KAO( :, 5, 3,12) = (/&
+ & 2.4278E-03_JPRB,2.3027E-03_JPRB,2.1923E-03_JPRB,2.6689E-03_JPRB,3.4381E-03_JPRB,4.1969E-03_JPRB,&
+ & 4.9576E-03_JPRB,5.6521E-03_JPRB,6.6247E-03_JPRB/)  
+KAO( :, 1, 4,12) = (/&
+ & 9.8669E-04_JPRB,8.8509E-04_JPRB,8.1352E-04_JPRB,7.2996E-04_JPRB,7.1817E-04_JPRB,8.1881E-04_JPRB,&
+ & 9.2748E-04_JPRB,1.0403E-03_JPRB,1.2116E-03_JPRB/)  
+KAO( :, 2, 4,12) = (/&
+ & 1.0290E-03_JPRB,9.4426E-04_JPRB,8.9000E-04_JPRB,8.7285E-04_JPRB,1.0287E-03_JPRB,1.2254E-03_JPRB,&
+ & 1.4193E-03_JPRB,1.6044E-03_JPRB,1.8734E-03_JPRB/)  
+KAO( :, 3, 4,12) = (/&
+ & 1.1436E-03_JPRB,1.0840E-03_JPRB,1.0833E-03_JPRB,1.1914E-03_JPRB,1.4983E-03_JPRB,1.8005E-03_JPRB,&
+ & 2.1029E-03_JPRB,2.3872E-03_JPRB,2.8182E-03_JPRB/)  
+KAO( :, 4, 4,12) = (/&
+ & 1.4872E-03_JPRB,1.4093E-03_JPRB,1.3825E-03_JPRB,1.6613E-03_JPRB,2.1282E-03_JPRB,2.5939E-03_JPRB,&
+ & 3.0338E-03_JPRB,3.4691E-03_JPRB,4.1139E-03_JPRB/)  
+KAO( :, 5, 4,12) = (/&
+ & 1.9382E-03_JPRB,1.8528E-03_JPRB,1.8277E-03_JPRB,2.2907E-03_JPRB,2.9502E-03_JPRB,3.6113E-03_JPRB,&
+ & 4.2678E-03_JPRB,4.8667E-03_JPRB,5.7453E-03_JPRB/)  
+KAO( :, 1, 5,12) = (/&
+ & 1.0261E-03_JPRB,9.1725E-04_JPRB,8.2759E-04_JPRB,7.3874E-04_JPRB,6.4512E-04_JPRB,6.5305E-04_JPRB,&
+ & 7.2025E-04_JPRB,7.5251E-04_JPRB,1.2236E-03_JPRB/)  
+KAO( :, 2, 5,12) = (/&
+ & 1.0342E-03_JPRB,9.3335E-04_JPRB,8.6180E-04_JPRB,7.8962E-04_JPRB,8.4539E-04_JPRB,9.8224E-04_JPRB,&
+ & 1.1196E-03_JPRB,1.2424E-03_JPRB,1.9823E-03_JPRB/)  
+KAO( :, 3, 5,12) = (/&
+ & 1.0684E-03_JPRB,1.0038E-03_JPRB,9.4286E-04_JPRB,9.9237E-04_JPRB,1.2238E-03_JPRB,1.4671E-03_JPRB,&
+ & 1.7012E-03_JPRB,1.9194E-03_JPRB,3.0657E-03_JPRB/)  
+KAO( :, 4, 5,12) = (/&
+ & 1.1964E-03_JPRB,1.1404E-03_JPRB,1.1495E-03_JPRB,1.3909E-03_JPRB,1.7635E-03_JPRB,2.1391E-03_JPRB,&
+ & 2.5166E-03_JPRB,2.8551E-03_JPRB,4.5233E-03_JPRB/)  
+KAO( :, 5, 5,12) = (/&
+ & 1.5188E-03_JPRB,1.4742E-03_JPRB,1.5113E-03_JPRB,1.9296E-03_JPRB,2.4758E-03_JPRB,3.0285E-03_JPRB,&
+ & 3.5691E-03_JPRB,4.1028E-03_JPRB,6.4627E-03_JPRB/)  
+KAO( :, 1, 6,12) = (/&
+ & 1.1049E-03_JPRB,9.7887E-04_JPRB,8.6230E-04_JPRB,7.6209E-04_JPRB,6.5337E-04_JPRB,5.5666E-04_JPRB,&
+ & 5.5642E-04_JPRB,4.3457E-04_JPRB,1.6601E-03_JPRB/)  
+KAO( :, 2, 6,12) = (/&
+ & 1.0940E-03_JPRB,9.8241E-04_JPRB,8.8704E-04_JPRB,7.8683E-04_JPRB,7.2565E-04_JPRB,7.9447E-04_JPRB,&
+ & 8.9119E-04_JPRB,9.6573E-04_JPRB,2.8308E-03_JPRB/)  
+KAO( :, 3, 6,12) = (/&
+ & 1.0875E-03_JPRB,9.9703E-04_JPRB,9.2009E-04_JPRB,8.7195E-04_JPRB,1.0022E-03_JPRB,1.1888E-03_JPRB,&
+ & 1.3628E-03_JPRB,1.5154E-03_JPRB,4.5116E-03_JPRB/)  
+KAO( :, 4, 6,12) = (/&
+ & 1.1159E-03_JPRB,1.0443E-03_JPRB,1.0086E-03_JPRB,1.1512E-03_JPRB,1.4495E-03_JPRB,1.7437E-03_JPRB,&
+ & 2.0380E-03_JPRB,2.2956E-03_JPRB,6.7993E-03_JPRB/)  
+KAO( :, 5, 6,12) = (/&
+ & 1.2286E-03_JPRB,1.1769E-03_JPRB,1.2461E-03_JPRB,1.5980E-03_JPRB,2.0421E-03_JPRB,2.4961E-03_JPRB,&
+ & 2.9289E-03_JPRB,3.3559E-03_JPRB,9.7752E-03_JPRB/)  
+KAO( :, 1, 7,12) = (/&
+ & 1.2137E-03_JPRB,1.0668E-03_JPRB,9.3381E-04_JPRB,8.0126E-04_JPRB,6.7255E-04_JPRB,5.4820E-04_JPRB,&
+ & 4.1640E-04_JPRB,3.0869E-05_JPRB,2.3413E-03_JPRB/)  
+KAO( :, 2, 7,12) = (/&
+ & 1.1848E-03_JPRB,1.0517E-03_JPRB,9.3479E-04_JPRB,8.1727E-04_JPRB,7.1224E-04_JPRB,6.5078E-04_JPRB,&
+ & 7.0341E-04_JPRB,7.0961E-04_JPRB,4.1815E-03_JPRB/)  
+KAO( :, 3, 7,12) = (/&
+ & 1.1720E-03_JPRB,1.0531E-03_JPRB,9.4856E-04_JPRB,8.6129E-04_JPRB,8.4208E-04_JPRB,9.5854E-04_JPRB,&
+ & 1.0943E-03_JPRB,1.2041E-03_JPRB,6.9208E-03_JPRB/)  
+KAO( :, 4, 7,12) = (/&
+ & 1.1592E-03_JPRB,1.0754E-03_JPRB,9.9552E-04_JPRB,9.9504E-04_JPRB,1.1919E-03_JPRB,1.4256E-03_JPRB,&
+ & 1.6531E-03_JPRB,1.8455E-03_JPRB,1.0828E-02_JPRB/)  
+KAO( :, 5, 7,12) = (/&
+ & 1.1731E-03_JPRB,1.1101E-03_JPRB,1.1084E-03_JPRB,1.3320E-03_JPRB,1.6974E-03_JPRB,2.0528E-03_JPRB,&
+ & 2.4023E-03_JPRB,2.7339E-03_JPRB,1.6080E-02_JPRB/)  
+KAO( :, 1, 8,12) = (/&
+ & 1.3302E-03_JPRB,1.1658E-03_JPRB,1.0139E-03_JPRB,8.5656E-04_JPRB,7.0725E-04_JPRB,5.4905E-04_JPRB,&
+ & 1.6082E-04_JPRB,2.8484E-07_JPRB,3.9959E-03_JPRB/)  
+KAO( :, 2, 8,12) = (/&
+ & 1.3004E-03_JPRB,1.1467E-03_JPRB,1.0012E-03_JPRB,8.6385E-04_JPRB,7.2504E-04_JPRB,6.1282E-04_JPRB,&
+ & 5.3057E-04_JPRB,1.6656E-04_JPRB,7.5095E-03_JPRB/)  
+KAO( :, 3, 8,12) = (/&
+ & 1.2723E-03_JPRB,1.1332E-03_JPRB,1.0084E-03_JPRB,8.8648E-04_JPRB,8.0497E-04_JPRB,7.6904E-04_JPRB,&
+ & 8.5886E-04_JPRB,9.3436E-04_JPRB,1.2956E-02_JPRB/)  
+KAO( :, 4, 8,12) = (/&
+ & 1.2504E-03_JPRB,1.1361E-03_JPRB,1.0320E-03_JPRB,9.6671E-04_JPRB,9.9043E-04_JPRB,1.1533E-03_JPRB,&
+ & 1.3325E-03_JPRB,1.4846E-03_JPRB,2.0833E-02_JPRB/)  
+KAO( :, 5, 8,12) = (/&
+ & 1.2393E-03_JPRB,1.1508E-03_JPRB,1.0962E-03_JPRB,1.1509E-03_JPRB,1.4064E-03_JPRB,1.6900E-03_JPRB,&
+ & 1.9737E-03_JPRB,2.2347E-03_JPRB,3.1620E-02_JPRB/)  
+KAO( :, 1, 9,12) = (/&
+ & 1.4663E-03_JPRB,1.2845E-03_JPRB,1.1076E-03_JPRB,9.3469E-04_JPRB,7.5727E-04_JPRB,5.8307E-04_JPRB,&
+ & 1.6145E-06_JPRB,2.0592E-07_JPRB,1.2575E-02_JPRB/)  
+KAO( :, 2, 9,12) = (/&
+ & 1.4356E-03_JPRB,1.2615E-03_JPRB,1.0955E-03_JPRB,9.3110E-04_JPRB,7.6732E-04_JPRB,6.0757E-04_JPRB,&
+ & 4.4742E-04_JPRB,4.9464E-06_JPRB,2.4960E-02_JPRB/)  
+KAO( :, 3, 9,12) = (/&
+ & 1.4052E-03_JPRB,1.2435E-03_JPRB,1.0940E-03_JPRB,9.3756E-04_JPRB,8.0269E-04_JPRB,7.0533E-04_JPRB,&
+ & 6.6208E-04_JPRB,5.9691E-04_JPRB,4.4947E-02_JPRB/)  
+KAO( :, 4, 9,12) = (/&
+ & 1.3734E-03_JPRB,1.2333E-03_JPRB,1.0941E-03_JPRB,9.8345E-04_JPRB,9.2035E-04_JPRB,9.1976E-04_JPRB,&
+ & 1.0530E-03_JPRB,1.1532E-03_JPRB,7.5044E-02_JPRB/)  
+KAO( :, 5, 9,12) = (/&
+ & 1.3495E-03_JPRB,1.2289E-03_JPRB,1.1320E-03_JPRB,1.1073E-03_JPRB,1.1561E-03_JPRB,1.3692E-03_JPRB,&
+ & 1.6014E-03_JPRB,1.8055E-03_JPRB,1.1730E-01_JPRB/)  
+KAO( :, 1,10,12) = (/&
+ & 1.6187E-03_JPRB,1.4174E-03_JPRB,1.2153E-03_JPRB,1.0239E-03_JPRB,8.2814E-04_JPRB,6.1453E-04_JPRB,&
+ & 6.9444E-06_JPRB,1.3528E-07_JPRB,4.6442E-02_JPRB/)  
+KAO( :, 2,10,12) = (/&
+ & 1.5845E-03_JPRB,1.3876E-03_JPRB,1.2040E-03_JPRB,1.0153E-03_JPRB,8.2732E-04_JPRB,6.3066E-04_JPRB,&
+ & 6.0414E-06_JPRB,2.4038E-07_JPRB,9.7061E-02_JPRB/)  
+KAO( :, 3,10,12) = (/&
+ & 1.5496E-03_JPRB,1.3649E-03_JPRB,1.1919E-03_JPRB,1.0167E-03_JPRB,8.3828E-04_JPRB,6.9321E-04_JPRB,&
+ & 5.6244E-04_JPRB,1.6180E-05_JPRB,1.8182E-01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART8',1,ZHOOK_HANDLE)
+END SUBROUTINE PART8
+
+
+SUBROUTINE PART9
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART9',0,ZHOOK_HANDLE)
+
+
+KAO( :, 4,10,12) = (/&
+ & 1.5143E-03_JPRB,1.3460E-03_JPRB,1.1894E-03_JPRB,1.0321E-03_JPRB,9.2147E-04_JPRB,8.3365E-04_JPRB,&
+ & 8.4635E-04_JPRB,8.9521E-04_JPRB,3.1352E-01_JPRB/)  
+KAO( :, 5,10,12) = (/&
+ & 1.4834E-03_JPRB,1.3403E-03_JPRB,1.2022E-03_JPRB,1.1224E-03_JPRB,1.0739E-03_JPRB,1.1316E-03_JPRB,&
+ & 1.3218E-03_JPRB,1.4837E-03_JPRB,5.0232E-01_JPRB/)  
+KAO( :, 1,11,12) = (/&
+ & 1.7757E-03_JPRB,1.5541E-03_JPRB,1.3331E-03_JPRB,1.1222E-03_JPRB,9.0093E-04_JPRB,6.6092E-04_JPRB,&
+ & 2.1249E-07_JPRB,1.1902E-07_JPRB,8.4989E-02_JPRB/)  
+KAO( :, 2,11,12) = (/&
+ & 1.7401E-03_JPRB,1.5236E-03_JPRB,1.3209E-03_JPRB,1.1131E-03_JPRB,9.0551E-04_JPRB,6.8456E-04_JPRB,&
+ & 5.0849E-06_JPRB,2.2480E-07_JPRB,1.7663E-01_JPRB/)  
+KAO( :, 3,11,12) = (/&
+ & 1.7062E-03_JPRB,1.5022E-03_JPRB,1.3117E-03_JPRB,1.1165E-03_JPRB,9.1999E-04_JPRB,7.4783E-04_JPRB,&
+ & 5.9186E-04_JPRB,1.9217E-05_JPRB,3.2957E-01_JPRB/)  
+KAO( :, 4,11,12) = (/&
+ & 1.6714E-03_JPRB,1.4855E-03_JPRB,1.3084E-03_JPRB,1.1327E-03_JPRB,9.9341E-04_JPRB,8.8882E-04_JPRB,&
+ & 8.4081E-04_JPRB,8.6421E-04_JPRB,5.6545E-01_JPRB/)  
+KAO( :, 5,11,12) = (/&
+ & 1.6419E-03_JPRB,1.4793E-03_JPRB,1.3196E-03_JPRB,1.2145E-03_JPRB,1.1433E-03_JPRB,1.1424E-03_JPRB,&
+ & 1.3148E-03_JPRB,1.4973E-03_JPRB,9.0555E-01_JPRB/)  
+KAO( :, 1,12,12) = (/&
+ & 1.9873E-03_JPRB,1.7393E-03_JPRB,1.4928E-03_JPRB,1.2520E-03_JPRB,1.0061E-03_JPRB,7.4569E-04_JPRB,&
+ & 3.5180E-06_JPRB,1.0587E-07_JPRB,1.1338E-01_JPRB/)  
+KAO( :, 2,12,12) = (/&
+ & 1.9520E-03_JPRB,1.7112E-03_JPRB,1.4785E-03_JPRB,1.2437E-03_JPRB,1.0101E-03_JPRB,7.5903E-04_JPRB,&
+ & 1.0775E-04_JPRB,2.1135E-07_JPRB,2.3445E-01_JPRB/)  
+KAO( :, 3,12,12) = (/&
+ & 1.9174E-03_JPRB,1.6867E-03_JPRB,1.4681E-03_JPRB,1.2458E-03_JPRB,1.0238E-03_JPRB,8.1622E-04_JPRB,&
+ & 6.4203E-04_JPRB,3.7377E-05_JPRB,4.3560E-01_JPRB/)  
+KAO( :, 4,12,12) = (/&
+ & 1.8834E-03_JPRB,1.6709E-03_JPRB,1.4657E-03_JPRB,1.2628E-03_JPRB,1.0856E-03_JPRB,9.4862E-04_JPRB,&
+ & 8.6085E-04_JPRB,8.9434E-04_JPRB,7.4512E-01_JPRB/)  
+KAO( :, 5,12,12) = (/&
+ & 1.8486E-03_JPRB,1.6625E-03_JPRB,1.4769E-03_JPRB,1.3298E-03_JPRB,1.2184E-03_JPRB,1.1740E-03_JPRB,&
+ & 1.3120E-03_JPRB,1.5054E-03_JPRB,1.1919E+00_JPRB/)  
+KAO( :, 1,13,12) = (/&
+ & 2.2427E-03_JPRB,1.9626E-03_JPRB,1.6858E-03_JPRB,1.4123E-03_JPRB,1.1345E-03_JPRB,8.4814E-04_JPRB,&
+ & 1.1187E-05_JPRB,1.0167E-07_JPRB,1.1866E-01_JPRB/)  
+KAO( :, 2,13,12) = (/&
+ & 2.2124E-03_JPRB,1.9395E-03_JPRB,1.6734E-03_JPRB,1.4094E-03_JPRB,1.1421E-03_JPRB,8.6480E-04_JPRB,&
+ & 5.2696E-04_JPRB,2.8959E-06_JPRB,2.4434E-01_JPRB/)  
+KAO( :, 3,13,12) = (/&
+ & 2.1775E-03_JPRB,1.9152E-03_JPRB,1.6674E-03_JPRB,1.4121E-03_JPRB,1.1577E-03_JPRB,9.1193E-04_JPRB,&
+ & 6.8708E-04_JPRB,6.0943E-05_JPRB,4.5287E-01_JPRB/)  
+KAO( :, 4,13,12) = (/&
+ & 2.1409E-03_JPRB,1.8984E-03_JPRB,1.6628E-03_JPRB,1.4290E-03_JPRB,1.2050E-03_JPRB,1.0161E-03_JPRB,&
+ & 8.8642E-04_JPRB,9.0231E-04_JPRB,7.7451E-01_JPRB/)  
+KAO( :, 5,13,12) = (/&
+ & 2.1006E-03_JPRB,1.8859E-03_JPRB,1.6731E-03_JPRB,1.4783E-03_JPRB,1.3081E-03_JPRB,1.2199E-03_JPRB,&
+ & 1.3045E-03_JPRB,1.5082E-03_JPRB,1.2405E+00_JPRB/)  
+KAO( :, 1, 1,13) = (/&
+ & 1.2739E-03_JPRB,1.1824E-03_JPRB,1.1666E-03_JPRB,1.5366E-03_JPRB,1.9783E-03_JPRB,2.4169E-03_JPRB,&
+ & 2.8580E-03_JPRB,3.2493E-03_JPRB,3.6912E-03_JPRB/)  
+KAO( :, 2, 1,13) = (/&
+ & 1.5764E-03_JPRB,1.4796E-03_JPRB,1.5934E-03_JPRB,2.2153E-03_JPRB,2.8682E-03_JPRB,3.5161E-03_JPRB,&
+ & 4.1531E-03_JPRB,4.7522E-03_JPRB,5.3893E-03_JPRB/)  
+KAO( :, 3, 1,13) = (/&
+ & 2.0474E-03_JPRB,1.8907E-03_JPRB,2.1514E-03_JPRB,3.0567E-03_JPRB,3.9747E-03_JPRB,4.8887E-03_JPRB,&
+ & 5.7686E-03_JPRB,6.5999E-03_JPRB,7.5144E-03_JPRB/)  
+KAO( :, 4, 1,13) = (/&
+ & 2.6856E-03_JPRB,2.4413E-03_JPRB,2.8242E-03_JPRB,4.0342E-03_JPRB,5.3078E-03_JPRB,6.5325E-03_JPRB,&
+ & 7.7349E-03_JPRB,8.8443E-03_JPRB,1.0074E-02_JPRB/)  
+KAO( :, 5, 1,13) = (/&
+ & 3.4590E-03_JPRB,3.1378E-03_JPRB,3.6496E-03_JPRB,5.2809E-03_JPRB,6.8982E-03_JPRB,8.3727E-03_JPRB,&
+ & 9.9335E-03_JPRB,1.1522E-02_JPRB,1.3097E-02_JPRB/)  
+KAO( :, 1, 2,13) = (/&
+ & 1.1866E-03_JPRB,1.1005E-03_JPRB,1.0888E-03_JPRB,1.4004E-03_JPRB,1.7886E-03_JPRB,2.1767E-03_JPRB,&
+ & 2.5570E-03_JPRB,2.9296E-03_JPRB,3.3601E-03_JPRB/)  
+KAO( :, 2, 2,13) = (/&
+ & 1.4562E-03_JPRB,1.3635E-03_JPRB,1.4719E-03_JPRB,2.0169E-03_JPRB,2.6032E-03_JPRB,3.1819E-03_JPRB,&
+ & 3.7488E-03_JPRB,4.3087E-03_JPRB,4.9192E-03_JPRB/)  
+KAO( :, 3, 2,13) = (/&
+ & 1.8764E-03_JPRB,1.7361E-03_JPRB,1.9709E-03_JPRB,2.7595E-03_JPRB,3.5900E-03_JPRB,4.4194E-03_JPRB,&
+ & 5.2979E-03_JPRB,6.0766E-03_JPRB,6.9371E-03_JPRB/)  
+KAO( :, 4, 2,13) = (/&
+ & 2.4859E-03_JPRB,2.2733E-03_JPRB,2.5962E-03_JPRB,3.6933E-03_JPRB,4.8528E-03_JPRB,5.9853E-03_JPRB,&
+ & 7.0801E-03_JPRB,8.2323E-03_JPRB,9.3999E-03_JPRB/)  
+KAO( :, 5, 2,13) = (/&
+ & 3.2381E-03_JPRB,2.9580E-03_JPRB,3.3897E-03_JPRB,4.8434E-03_JPRB,6.3274E-03_JPRB,7.7660E-03_JPRB,&
+ & 9.2016E-03_JPRB,1.0766E-02_JPRB,1.2382E-02_JPRB/)  
+KAO( :, 1, 3,13) = (/&
+ & 1.0869E-03_JPRB,9.8978E-04_JPRB,9.6295E-04_JPRB,1.1603E-03_JPRB,1.4657E-03_JPRB,1.7785E-03_JPRB,&
+ & 2.0850E-03_JPRB,2.3589E-03_JPRB,2.7295E-03_JPRB/)  
+KAO( :, 2, 3,13) = (/&
+ & 1.2497E-03_JPRB,1.1652E-03_JPRB,1.2498E-03_JPRB,1.6617E-03_JPRB,2.1329E-03_JPRB,2.6212E-03_JPRB,&
+ & 3.0709E-03_JPRB,3.5231E-03_JPRB,4.1120E-03_JPRB/)  
+KAO( :, 3, 3,13) = (/&
+ & 1.5536E-03_JPRB,1.4627E-03_JPRB,1.6643E-03_JPRB,2.3266E-03_JPRB,3.0120E-03_JPRB,3.7022E-03_JPRB,&
+ & 4.3567E-03_JPRB,5.0579E-03_JPRB,5.8139E-03_JPRB/)  
+KAO( :, 4, 3,13) = (/&
+ & 2.0446E-03_JPRB,1.9153E-03_JPRB,2.2001E-03_JPRB,3.1214E-03_JPRB,4.0764E-03_JPRB,5.0190E-03_JPRB,&
+ & 6.0061E-03_JPRB,6.9576E-03_JPRB,7.9493E-03_JPRB/)  
+KAO( :, 5, 3,13) = (/&
+ & 2.6968E-03_JPRB,2.5178E-03_JPRB,2.9045E-03_JPRB,4.1585E-03_JPRB,5.4384E-03_JPRB,6.6732E-03_JPRB,&
+ & 7.9956E-03_JPRB,9.1997E-03_JPRB,1.0739E-02_JPRB/)  
+KAO( :, 1, 4,13) = (/&
+ & 1.0799E-03_JPRB,9.7556E-04_JPRB,8.9641E-04_JPRB,9.5375E-04_JPRB,1.1834E-03_JPRB,1.4206E-03_JPRB,&
+ & 1.6456E-03_JPRB,1.8574E-03_JPRB,2.1783E-03_JPRB/)  
+KAO( :, 2, 4,13) = (/&
+ & 1.1355E-03_JPRB,1.0374E-03_JPRB,1.0646E-03_JPRB,1.3628E-03_JPRB,1.7241E-03_JPRB,2.0900E-03_JPRB,&
+ & 2.4594E-03_JPRB,2.8248E-03_JPRB,3.3135E-03_JPRB/)  
+KAO( :, 3, 4,13) = (/&
+ & 1.2900E-03_JPRB,1.2405E-03_JPRB,1.3881E-03_JPRB,1.9129E-03_JPRB,2.4612E-03_JPRB,3.0202E-03_JPRB,&
+ & 3.5514E-03_JPRB,4.1507E-03_JPRB,4.7512E-03_JPRB/)  
+KAO( :, 4, 4,13) = (/&
+ & 1.6429E-03_JPRB,1.5804E-03_JPRB,1.8599E-03_JPRB,2.6280E-03_JPRB,3.3944E-03_JPRB,4.1721E-03_JPRB,&
+ & 4.9786E-03_JPRB,5.7576E-03_JPRB,6.6384E-03_JPRB/)  
+KAO( :, 5, 4,13) = (/&
+ & 2.1595E-03_JPRB,2.0705E-03_JPRB,2.4561E-03_JPRB,3.5243E-03_JPRB,4.6000E-03_JPRB,5.6864E-03_JPRB,&
+ & 6.7238E-03_JPRB,7.7228E-03_JPRB,9.0563E-03_JPRB/)  
+KAO( :, 1, 5,13) = (/&
+ & 1.1289E-03_JPRB,1.0122E-03_JPRB,9.1285E-04_JPRB,8.4241E-04_JPRB,9.2546E-04_JPRB,1.1068E-03_JPRB,&
+ & 1.2785E-03_JPRB,1.4321E-03_JPRB,1.7133E-03_JPRB/)  
+KAO( :, 2, 5,13) = (/&
+ & 1.1322E-03_JPRB,1.0283E-03_JPRB,9.7216E-04_JPRB,1.1030E-03_JPRB,1.3905E-03_JPRB,1.6648E-03_JPRB,&
+ & 1.9659E-03_JPRB,2.2474E-03_JPRB,2.6825E-03_JPRB/)  
+KAO( :, 3, 5,13) = (/&
+ & 1.1835E-03_JPRB,1.1059E-03_JPRB,1.1769E-03_JPRB,1.5659E-03_JPRB,1.9991E-03_JPRB,2.4574E-03_JPRB,&
+ & 2.8892E-03_JPRB,3.3463E-03_JPRB,3.9939E-03_JPRB/)  
+KAO( :, 4, 5,13) = (/&
+ & 1.3233E-03_JPRB,1.3123E-03_JPRB,1.5693E-03_JPRB,2.1884E-03_JPRB,2.8269E-03_JPRB,3.4574E-03_JPRB,&
+ & 4.1167E-03_JPRB,4.7382E-03_JPRB,5.7495E-03_JPRB/)  
+KAO( :, 5, 5,13) = (/&
+ & 1.7059E-03_JPRB,1.6691E-03_JPRB,2.0917E-03_JPRB,2.9965E-03_JPRB,3.8855E-03_JPRB,4.8207E-03_JPRB,&
+ & 5.6559E-03_JPRB,6.5131E-03_JPRB,7.9790E-03_JPRB/)  
+KAO( :, 1, 6,13) = (/&
+ & 1.2255E-03_JPRB,1.0879E-03_JPRB,9.6530E-04_JPRB,8.5617E-04_JPRB,7.6660E-04_JPRB,8.1723E-04_JPRB,&
+ & 9.3534E-04_JPRB,1.0402E-03_JPRB,1.9062E-03_JPRB/)  
+KAO( :, 2, 6,13) = (/&
+ & 1.1965E-03_JPRB,1.0719E-03_JPRB,9.9849E-04_JPRB,9.4121E-04_JPRB,1.0795E-03_JPRB,1.2813E-03_JPRB,&
+ & 1.4997E-03_JPRB,1.7132E-03_JPRB,3.2547E-03_JPRB/)  
+KAO( :, 3, 6,13) = (/&
+ & 1.1926E-03_JPRB,1.1043E-03_JPRB,1.0603E-03_JPRB,1.2688E-03_JPRB,1.5962E-03_JPRB,1.9526E-03_JPRB,&
+ & 2.2912E-03_JPRB,2.6142E-03_JPRB,5.2095E-03_JPRB/)  
+KAO( :, 4, 6,13) = (/&
+ & 1.2240E-03_JPRB,1.1777E-03_JPRB,1.3174E-03_JPRB,1.8087E-03_JPRB,2.3347E-03_JPRB,2.8437E-03_JPRB,&
+ & 3.3597E-03_JPRB,3.8303E-03_JPRB,7.9481E-03_JPRB/)  
+KAO( :, 5, 6,13) = (/&
+ & 1.3458E-03_JPRB,1.3554E-03_JPRB,1.7833E-03_JPRB,2.5412E-03_JPRB,3.2833E-03_JPRB,4.0389E-03_JPRB,&
+ & 4.7385E-03_JPRB,5.4113E-03_JPRB,1.1516E-02_JPRB/)  
+KAO( :, 1, 7,13) = (/&
+ & 1.3402E-03_JPRB,1.1742E-03_JPRB,1.0361E-03_JPRB,8.9910E-04_JPRB,7.6679E-04_JPRB,6.5368E-04_JPRB,&
+ & 6.8075E-04_JPRB,4.6956E-04_JPRB,2.7722E-03_JPRB/)  
+KAO( :, 2, 7,13) = (/&
+ & 1.3037E-03_JPRB,1.1622E-03_JPRB,1.0519E-03_JPRB,9.4323E-04_JPRB,8.7488E-04_JPRB,9.7401E-04_JPRB,&
+ & 1.1211E-03_JPRB,1.2635E-03_JPRB,5.0027E-03_JPRB/)  
+KAO( :, 3, 7,13) = (/&
+ & 1.2784E-03_JPRB,1.1532E-03_JPRB,1.0893E-03_JPRB,1.0694E-03_JPRB,1.2699E-03_JPRB,1.5175E-03_JPRB,&
+ & 1.7746E-03_JPRB,2.0272E-03_JPRB,8.3555E-03_JPRB/)  
+KAO( :, 4, 7,13) = (/&
+ & 1.2774E-03_JPRB,1.1979E-03_JPRB,1.1860E-03_JPRB,1.4785E-03_JPRB,1.8884E-03_JPRB,2.2924E-03_JPRB,&
+ & 2.6858E-03_JPRB,3.0881E-03_JPRB,1.3125E-02_JPRB/)  
+KAO( :, 5, 7,13) = (/&
+ & 1.2892E-03_JPRB,1.2565E-03_JPRB,1.5103E-03_JPRB,2.1215E-03_JPRB,2.7429E-03_JPRB,3.3579E-03_JPRB,&
+ & 3.9536E-03_JPRB,4.4822E-03_JPRB,1.9541E-02_JPRB/)  
+KAO( :, 1, 8,13) = (/&
+ & 1.4772E-03_JPRB,1.2923E-03_JPRB,1.1263E-03_JPRB,9.6270E-04_JPRB,8.0241E-04_JPRB,6.4872E-04_JPRB,&
+ & 4.5811E-04_JPRB,2.1716E-07_JPRB,4.9636E-03_JPRB/)  
+KAO( :, 2, 8,13) = (/&
+ & 1.4370E-03_JPRB,1.2729E-03_JPRB,1.1241E-03_JPRB,9.9655E-04_JPRB,8.5931E-04_JPRB,7.7387E-04_JPRB,&
+ & 8.4353E-04_JPRB,8.7711E-04_JPRB,9.4321E-03_JPRB/)  
+KAO( :, 3, 8,13) = (/&
+ & 1.4034E-03_JPRB,1.2585E-03_JPRB,1.1607E-03_JPRB,1.0510E-03_JPRB,1.0272E-03_JPRB,1.1868E-03_JPRB,&
+ & 1.3711E-03_JPRB,1.5476E-03_JPRB,1.6446E-02_JPRB/)  
+KAO( :, 4, 8,13) = (/&
+ & 1.3792E-03_JPRB,1.2775E-03_JPRB,1.2067E-03_JPRB,1.2391E-03_JPRB,1.5156E-03_JPRB,1.8221E-03_JPRB,&
+ & 2.1295E-03_JPRB,2.4428E-03_JPRB,2.6678E-02_JPRB/)  
+KAO( :, 5, 8,13) = (/&
+ & 1.3692E-03_JPRB,1.3040E-03_JPRB,1.3510E-03_JPRB,1.7655E-03_JPRB,2.2564E-03_JPRB,2.7486E-03_JPRB,&
+ & 3.2245E-03_JPRB,3.6702E-03_JPRB,4.0890E-02_JPRB/)  
+KAO( :, 1, 9,13) = (/&
+ & 1.6318E-03_JPRB,1.4281E-03_JPRB,1.2324E-03_JPRB,1.0452E-03_JPRB,8.5200E-04_JPRB,6.6304E-04_JPRB,&
+ & 1.2309E-05_JPRB,1.5379E-07_JPRB,1.6381E-02_JPRB/)  
+KAO( :, 2, 9,13) = (/&
+ & 1.5875E-03_JPRB,1.3936E-03_JPRB,1.2247E-03_JPRB,1.0563E-03_JPRB,9.0066E-04_JPRB,7.3338E-04_JPRB,&
+ & 6.0228E-04_JPRB,1.0871E-04_JPRB,3.2932E-02_JPRB/)  
+KAO( :, 3, 9,13) = (/&
+ & 1.5482E-03_JPRB,1.3786E-03_JPRB,1.2438E-03_JPRB,1.1136E-03_JPRB,9.6991E-04_JPRB,9.4000E-04_JPRB,&
+ & 1.0591E-03_JPRB,1.1303E-03_JPRB,6.0073E-02_JPRB/)  
+KAO( :, 4, 9,13) = (/&
+ & 1.5167E-03_JPRB,1.3746E-03_JPRB,1.2857E-03_JPRB,1.1928E-03_JPRB,1.2413E-03_JPRB,1.4696E-03_JPRB,&
+ & 1.6946E-03_JPRB,1.9089E-03_JPRB,1.0132E-01_JPRB/)  
+KAO( :, 5, 9,13) = (/&
+ & 1.4899E-03_JPRB,1.4080E-03_JPRB,1.3636E-03_JPRB,1.4825E-03_JPRB,1.8628E-03_JPRB,2.2533E-03_JPRB,&
+ & 2.6127E-03_JPRB,2.9482E-03_JPRB,1.5979E-01_JPRB/)  
+KAO( :, 1,10,13) = (/&
+ & 1.8020E-03_JPRB,1.5774E-03_JPRB,1.3520E-03_JPRB,1.1382E-03_JPRB,9.2570E-04_JPRB,6.9265E-04_JPRB,&
+ & 1.3740E-07_JPRB,1.3289E-07_JPRB,6.3524E-02_JPRB/)  
+KAO( :, 2,10,13) = (/&
+ & 1.7549E-03_JPRB,1.5358E-03_JPRB,1.3388E-03_JPRB,1.1389E-03_JPRB,9.5013E-04_JPRB,7.6352E-04_JPRB,&
+ & 2.9725E-04_JPRB,1.5747E-07_JPRB,1.3432E-01_JPRB/)  
+KAO( :, 3,10,13) = (/&
+ & 1.7152E-03_JPRB,1.5184E-03_JPRB,1.3412E-03_JPRB,1.1838E-03_JPRB,1.0217E-03_JPRB,8.6702E-04_JPRB,&
+ & 8.3836E-04_JPRB,6.8845E-04_JPRB,2.5555E-01_JPRB/)  
+KAO( :, 4,10,13) = (/&
+ & 1.6812E-03_JPRB,1.5047E-03_JPRB,1.3857E-03_JPRB,1.2506E-03_JPRB,1.1577E-03_JPRB,1.2249E-03_JPRB,&
+ & 1.4008E-03_JPRB,1.5238E-03_JPRB,4.4499E-01_JPRB/)  
+KAO( :, 5,10,13) = (/&
+ & 1.6497E-03_JPRB,1.5369E-03_JPRB,1.4416E-03_JPRB,1.4073E-03_JPRB,1.5858E-03_JPRB,1.9083E-03_JPRB,&
+ & 2.1930E-03_JPRB,2.4338E-03_JPRB,7.2126E-01_JPRB/)  
+KAO( :, 1,11,13) = (/&
+ & 1.9883E-03_JPRB,1.7404E-03_JPRB,1.4929E-03_JPRB,1.2571E-03_JPRB,1.0189E-03_JPRB,7.6574E-04_JPRB,&
+ & 1.2245E-07_JPRB,1.1939E-07_JPRB,1.2338E-01_JPRB/)  
+KAO( :, 2,11,13) = (/&
+ & 1.9390E-03_JPRB,1.6974E-03_JPRB,1.4774E-03_JPRB,1.2577E-03_JPRB,1.0438E-03_JPRB,8.3574E-04_JPRB,&
+ & 2.2761E-04_JPRB,1.3870E-07_JPRB,2.6041E-01_JPRB/)  
+KAO( :, 3,11,13) = (/&
+ & 1.9012E-03_JPRB,1.6811E-03_JPRB,1.4837E-03_JPRB,1.3022E-03_JPRB,1.1118E-03_JPRB,9.5270E-04_JPRB,&
+ & 8.5092E-04_JPRB,5.4921E-04_JPRB,4.9292E-01_JPRB/)  
+KAO( :, 4,11,13) = (/&
+ & 1.8676E-03_JPRB,1.6686E-03_JPRB,1.5247E-03_JPRB,1.3663E-03_JPRB,1.2686E-03_JPRB,1.2743E-03_JPRB,&
+ & 1.4286E-03_JPRB,1.5277E-03_JPRB,8.5618E-01_JPRB/)  
+KAO( :, 5,11,13) = (/&
+ & 1.8327E-03_JPRB,1.6976E-03_JPRB,1.5788E-03_JPRB,1.5380E-03_JPRB,1.6440E-03_JPRB,1.9550E-03_JPRB,&
+ & 2.2595E-03_JPRB,2.4555E-03_JPRB,1.3826E+00_JPRB/)  
+KAO( :, 1,12,13) = (/&
+ & 2.2187E-03_JPRB,1.9406E-03_JPRB,1.6640E-03_JPRB,1.4003E-03_JPRB,1.1350E-03_JPRB,8.4971E-04_JPRB,&
+ & 1.4328E-05_JPRB,1.0909E-07_JPRB,1.7650E-01_JPRB/)  
+KAO( :, 2,12,13) = (/&
+ & 2.1703E-03_JPRB,1.8998E-03_JPRB,1.6482E-03_JPRB,1.4040E-03_JPRB,1.1602E-03_JPRB,9.1881E-04_JPRB,&
+ & 5.8608E-04_JPRB,1.2488E-07_JPRB,3.7061E-01_JPRB/)  
+KAO( :, 3,12,13) = (/&
+ & 2.1329E-03_JPRB,1.8834E-03_JPRB,1.6576E-03_JPRB,1.4426E-03_JPRB,1.2188E-03_JPRB,1.0435E-03_JPRB,&
+ & 9.0113E-04_JPRB,6.0140E-04_JPRB,6.9805E-01_JPRB/)  
+KAO( :, 4,12,13) = (/&
+ & 2.0986E-03_JPRB,1.8697E-03_JPRB,1.6880E-03_JPRB,1.4960E-03_JPRB,1.3858E-03_JPRB,1.3370E-03_JPRB,&
+ & 1.4776E-03_JPRB,1.5577E-03_JPRB,1.2104E+00_JPRB/)  
+KAO( :, 5,12,13) = (/&
+ & 2.0637E-03_JPRB,1.8889E-03_JPRB,1.7335E-03_JPRB,1.6736E-03_JPRB,1.7272E-03_JPRB,2.0047E-03_JPRB,&
+ & 2.3234E-03_JPRB,2.5266E-03_JPRB,1.9488E+00_JPRB/)  
+KAO( :, 1,13,13) = (/&
+ & 2.5214E-03_JPRB,2.2065E-03_JPRB,1.8921E-03_JPRB,1.5892E-03_JPRB,1.2848E-03_JPRB,9.6635E-04_JPRB,&
+ & 1.4011E-05_JPRB,9.2652E-08_JPRB,1.9891E-01_JPRB/)  
+KAO( :, 2,13,13) = (/&
+ & 2.4696E-03_JPRB,2.1633E-03_JPRB,1.8707E-03_JPRB,1.5871E-03_JPRB,1.3039E-03_JPRB,1.0191E-03_JPRB,&
+ & 7.2224E-04_JPRB,1.1771E-07_JPRB,4.1557E-01_JPRB/)  
+KAO( :, 3,13,13) = (/&
+ & 2.4301E-03_JPRB,2.1428E-03_JPRB,1.8727E-03_JPRB,1.6140E-03_JPRB,1.3467E-03_JPRB,1.1319E-03_JPRB,&
+ & 9.6477E-04_JPRB,7.6672E-04_JPRB,7.8045E-01_JPRB/)  
+KAO( :, 4,13,13) = (/&
+ & 2.3936E-03_JPRB,2.1221E-03_JPRB,1.8926E-03_JPRB,1.6520E-03_JPRB,1.5047E-03_JPRB,1.4110E-03_JPRB,&
+ & 1.5144E-03_JPRB,1.6138E-03_JPRB,1.3452E+00_JPRB/)  
+KAO( :, 5,13,13) = (/&
+ & 2.3541E-03_JPRB,2.1248E-03_JPRB,1.9211E-03_JPRB,1.8214E-03_JPRB,1.8209E-03_JPRB,2.0454E-03_JPRB,&
+ & 2.3767E-03_JPRB,2.6027E-03_JPRB,2.1609E+00_JPRB/)  
+KAO( :, 1, 1,14) = (/&
+ & 1.4077E-03_JPRB,1.3543E-03_JPRB,2.0015E-03_JPRB,2.9052E-03_JPRB,3.8062E-03_JPRB,4.7033E-03_JPRB,&
+ & 5.5027E-03_JPRB,6.3534E-03_JPRB,7.2447E-03_JPRB/)  
+KAO( :, 2, 1,14) = (/&
+ & 1.7458E-03_JPRB,1.7470E-03_JPRB,2.6822E-03_JPRB,3.8935E-03_JPRB,5.1049E-03_JPRB,6.3777E-03_JPRB,&
+ & 7.5886E-03_JPRB,8.9435E-03_JPRB,1.0377E-02_JPRB/)  
+KAO( :, 3, 1,14) = (/&
+ & 2.2077E-03_JPRB,2.2614E-03_JPRB,3.6964E-03_JPRB,5.3773E-03_JPRB,7.0539E-03_JPRB,8.7220E-03_JPRB,&
+ & 1.0257E-02_JPRB,1.2410E-02_JPRB,1.4154E-02_JPRB/)  
+KAO( :, 4, 1,14) = (/&
+ & 2.8109E-03_JPRB,2.9075E-03_JPRB,4.9134E-03_JPRB,7.1686E-03_JPRB,9.5162E-03_JPRB,1.1788E-02_JPRB,&
+ & 1.3767E-02_JPRB,1.5840E-02_JPRB,1.8057E-02_JPRB/)  
+KAO( :, 5, 1,14) = (/&
+ & 3.6086E-03_JPRB,3.7240E-03_JPRB,6.4216E-03_JPRB,9.3840E-03_JPRB,1.2343E-02_JPRB,1.5071E-02_JPRB,&
+ & 1.7936E-02_JPRB,2.0469E-02_JPRB,2.3091E-02_JPRB/)  
+KAO( :, 1, 2,14) = (/&
+ & 1.3294E-03_JPRB,1.2597E-03_JPRB,1.6974E-03_JPRB,2.4370E-03_JPRB,3.1928E-03_JPRB,3.9456E-03_JPRB,&
+ & 4.9620E-03_JPRB,5.6067E-03_JPRB,6.6116E-03_JPRB/)  
+KAO( :, 2, 2,14) = (/&
+ & 1.6318E-03_JPRB,1.6184E-03_JPRB,2.4692E-03_JPRB,3.6012E-03_JPRB,4.7302E-03_JPRB,5.7659E-03_JPRB,&
+ & 6.8491E-03_JPRB,8.1205E-03_JPRB,8.9947E-03_JPRB/)  
+KAO( :, 3, 2,14) = (/&
+ & 2.0588E-03_JPRB,2.1063E-03_JPRB,3.4156E-03_JPRB,4.9986E-03_JPRB,6.5782E-03_JPRB,8.1429E-03_JPRB,&
+ & 9.7017E-03_JPRB,1.0879E-02_JPRB,1.2701E-02_JPRB/)  
+KAO( :, 4, 2,14) = (/&
+ & 2.6403E-03_JPRB,2.6941E-03_JPRB,4.6292E-03_JPRB,6.7785E-03_JPRB,8.9613E-03_JPRB,1.1099E-02_JPRB,&
+ & 1.3055E-02_JPRB,1.4808E-02_JPRB,1.7360E-02_JPRB/)  
+KAO( :, 5, 2,14) = (/&
+ & 3.4097E-03_JPRB,3.4754E-03_JPRB,6.1509E-03_JPRB,9.0470E-03_JPRB,1.1928E-02_JPRB,1.4499E-02_JPRB,&
+ & 1.7101E-02_JPRB,1.9409E-02_JPRB,2.2968E-02_JPRB/)  
+KAO( :, 1, 3,14) = (/&
+ & 1.2102E-03_JPRB,1.1138E-03_JPRB,1.3857E-03_JPRB,2.0244E-03_JPRB,2.6529E-03_JPRB,3.2119E-03_JPRB,&
+ & 4.0399E-03_JPRB,4.4246E-03_JPRB,5.1581E-03_JPRB/)  
+KAO( :, 2, 3,14) = (/&
+ & 1.4090E-03_JPRB,1.3841E-03_JPRB,2.0941E-03_JPRB,3.0584E-03_JPRB,4.0208E-03_JPRB,4.9852E-03_JPRB,&
+ & 5.9175E-03_JPRB,6.7182E-03_JPRB,7.9412E-03_JPRB/)  
+KAO( :, 3, 3,14) = (/&
+ & 1.7427E-03_JPRB,1.7765E-03_JPRB,2.9090E-03_JPRB,4.4193E-03_JPRB,5.8208E-03_JPRB,7.2086E-03_JPRB,&
+ & 8.4753E-03_JPRB,9.3954E-03_JPRB,1.1366E-02_JPRB/)  
+KAO( :, 4, 3,14) = (/&
+ & 2.2157E-03_JPRB,2.2613E-03_JPRB,3.9916E-03_JPRB,5.8630E-03_JPRB,8.0161E-03_JPRB,9.9398E-03_JPRB,&
+ & 1.1828E-02_JPRB,1.3094E-02_JPRB,1.5315E-02_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART9',1,ZHOOK_HANDLE)
+END SUBROUTINE PART9
+
+
+SUBROUTINE PART10
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART10',0,ZHOOK_HANDLE)
+
+
+KAO( :, 5, 3,14) = (/&
+ & 2.8879E-03_JPRB,2.9466E-03_JPRB,5.4167E-03_JPRB,7.9578E-03_JPRB,1.0502E-02_JPRB,1.2821E-02_JPRB,&
+ & 1.5472E-02_JPRB,1.7483E-02_JPRB,2.0768E-02_JPRB/)  
+KAO( :, 1, 4,14) = (/&
+ & 1.1727E-03_JPRB,1.0568E-03_JPRB,1.1437E-03_JPRB,1.6336E-03_JPRB,2.1314E-03_JPRB,2.5848E-03_JPRB,&
+ & 3.0242E-03_JPRB,3.4499E-03_JPRB,4.1004E-03_JPRB/)  
+KAO( :, 2, 4,14) = (/&
+ & 1.2525E-03_JPRB,1.1704E-03_JPRB,1.6924E-03_JPRB,2.4669E-03_JPRB,3.2745E-03_JPRB,3.9503E-03_JPRB,&
+ & 4.8080E-03_JPRB,5.4438E-03_JPRB,6.5186E-03_JPRB/)  
+KAO( :, 3, 4,14) = (/&
+ & 1.4517E-03_JPRB,1.4687E-03_JPRB,2.4478E-03_JPRB,3.6499E-03_JPRB,4.8038E-03_JPRB,6.0561E-03_JPRB,&
+ & 7.1091E-03_JPRB,8.0698E-03_JPRB,9.5998E-03_JPRB/)  
+KAO( :, 4, 4,14) = (/&
+ & 1.8147E-03_JPRB,1.9649E-03_JPRB,3.5509E-03_JPRB,5.2270E-03_JPRB,6.8077E-03_JPRB,8.4354E-03_JPRB,&
+ & 1.0206E-02_JPRB,1.1463E-02_JPRB,1.3354E-02_JPRB/)  
+KAO( :, 5, 4,14) = (/&
+ & 2.3595E-03_JPRB,2.5550E-03_JPRB,4.7325E-03_JPRB,6.9980E-03_JPRB,9.2811E-03_JPRB,1.1690E-02_JPRB,&
+ & 1.3662E-02_JPRB,1.5386E-02_JPRB,1.8463E-02_JPRB/)  
+KAO( :, 1, 5,14) = (/&
+ & 1.2458E-03_JPRB,1.1157E-03_JPRB,1.0306E-03_JPRB,1.3033E-03_JPRB,1.6734E-03_JPRB,2.0057E-03_JPRB,&
+ & 2.3259E-03_JPRB,2.6388E-03_JPRB,3.1846E-03_JPRB/)  
+KAO( :, 2, 5,14) = (/&
+ & 1.2388E-03_JPRB,1.1282E-03_JPRB,1.3991E-03_JPRB,2.0036E-03_JPRB,2.6425E-03_JPRB,3.1687E-03_JPRB,&
+ & 3.8762E-03_JPRB,4.3488E-03_JPRB,5.2301E-03_JPRB/)  
+KAO( :, 3, 5,14) = (/&
+ & 1.2913E-03_JPRB,1.2589E-03_JPRB,2.0814E-03_JPRB,3.0197E-03_JPRB,3.9667E-03_JPRB,4.9958E-03_JPRB,&
+ & 5.9133E-03_JPRB,6.6574E-03_JPRB,8.0153E-03_JPRB/)  
+KAO( :, 4, 5,14) = (/&
+ & 1.4963E-03_JPRB,1.6907E-03_JPRB,3.0309E-03_JPRB,4.4615E-03_JPRB,5.8606E-03_JPRB,7.1898E-03_JPRB,&
+ & 8.6483E-03_JPRB,9.7418E-03_JPRB,1.1669E-02_JPRB/)  
+KAO( :, 5, 5,14) = (/&
+ & 1.8886E-03_JPRB,2.2503E-03_JPRB,4.1688E-03_JPRB,6.1333E-03_JPRB,8.1604E-03_JPRB,1.0200E-02_JPRB,&
+ & 1.2063E-02_JPRB,1.3620E-02_JPRB,1.6367E-02_JPRB/)  
+KAO( :, 1, 6,14) = (/&
+ & 1.3667E-03_JPRB,1.2087E-03_JPRB,1.0726E-03_JPRB,1.0607E-03_JPRB,1.2821E-03_JPRB,1.5260E-03_JPRB,&
+ & 1.8008E-03_JPRB,1.9547E-03_JPRB,2.5327E-03_JPRB/)  
+KAO( :, 2, 6,14) = (/&
+ & 1.3345E-03_JPRB,1.2078E-03_JPRB,1.2022E-03_JPRB,1.6068E-03_JPRB,2.0999E-03_JPRB,2.5469E-03_JPRB,&
+ & 3.0216E-03_JPRB,3.3465E-03_JPRB,4.2698E-03_JPRB/)  
+KAO( :, 3, 6,14) = (/&
+ & 1.3246E-03_JPRB,1.2185E-03_JPRB,1.7375E-03_JPRB,2.5142E-03_JPRB,3.2318E-03_JPRB,4.0369E-03_JPRB,&
+ & 4.7556E-03_JPRB,5.3249E-03_JPRB,6.8388E-03_JPRB/)  
+KAO( :, 4, 6,14) = (/&
+ & 1.3486E-03_JPRB,1.4645E-03_JPRB,2.5454E-03_JPRB,3.7331E-03_JPRB,4.8424E-03_JPRB,6.0309E-03_JPRB,&
+ & 7.1539E-03_JPRB,8.1418E-03_JPRB,1.0356E-02_JPRB/)  
+KAO( :, 5, 6,14) = (/&
+ & 1.5159E-03_JPRB,1.9586E-03_JPRB,3.6257E-03_JPRB,5.3066E-03_JPRB,6.9540E-03_JPRB,8.6820E-03_JPRB,&
+ & 1.0231E-02_JPRB,1.1546E-02_JPRB,1.5077E-02_JPRB/)  
+KAO( :, 1, 7,14) = (/&
+ & 1.5156E-03_JPRB,1.3262E-03_JPRB,1.1714E-03_JPRB,1.0190E-03_JPRB,1.0169E-03_JPRB,1.1666E-03_JPRB,&
+ & 1.3423E-03_JPRB,1.3981E-03_JPRB,3.1910E-03_JPRB/)  
+KAO( :, 2, 7,14) = (/&
+ & 1.4765E-03_JPRB,1.3249E-03_JPRB,1.1925E-03_JPRB,1.3147E-03_JPRB,1.6557E-03_JPRB,1.9990E-03_JPRB,&
+ & 2.2925E-03_JPRB,2.5530E-03_JPRB,5.7452E-03_JPRB/)  
+KAO( :, 3, 7,14) = (/&
+ & 1.4370E-03_JPRB,1.3162E-03_JPRB,1.4936E-03_JPRB,2.0652E-03_JPRB,2.6453E-03_JPRB,3.2054E-03_JPRB,&
+ & 3.7731E-03_JPRB,4.2042E-03_JPRB,9.6110E-03_JPRB/)  
+KAO( :, 4, 7,14) = (/&
+ & 1.4149E-03_JPRB,1.3977E-03_JPRB,2.1475E-03_JPRB,3.1203E-03_JPRB,4.0198E-03_JPRB,4.9787E-03_JPRB,&
+ & 5.7945E-03_JPRB,6.6068E-03_JPRB,1.5108E-02_JPRB/)  
+KAO( :, 5, 7,14) = (/&
+ & 1.4374E-03_JPRB,1.7222E-03_JPRB,3.0905E-03_JPRB,4.5057E-03_JPRB,5.8428E-03_JPRB,7.2095E-03_JPRB,&
+ & 8.5374E-03_JPRB,9.6315E-03_JPRB,2.2589E-02_JPRB/)  
+KAO( :, 1, 8,14) = (/&
+ & 1.6998E-03_JPRB,1.4847E-03_JPRB,1.3004E-03_JPRB,1.1133E-03_JPRB,9.4349E-04_JPRB,9.0420E-04_JPRB,&
+ & 1.0045E-03_JPRB,4.3482E-04_JPRB,5.8016E-03_JPRB/)  
+KAO( :, 2, 8,14) = (/&
+ & 1.6532E-03_JPRB,1.4674E-03_JPRB,1.3041E-03_JPRB,1.2025E-03_JPRB,1.3140E-03_JPRB,1.5672E-03_JPRB,&
+ & 1.7686E-03_JPRB,1.9237E-03_JPRB,1.1052E-02_JPRB/)  
+KAO( :, 3, 8,14) = (/&
+ & 1.6074E-03_JPRB,1.4616E-03_JPRB,1.4143E-03_JPRB,1.6802E-03_JPRB,2.1261E-03_JPRB,2.5596E-03_JPRB,&
+ & 3.0033E-03_JPRB,3.3007E-03_JPRB,1.9324E-02_JPRB/)  
+KAO( :, 4, 8,14) = (/&
+ & 1.5686E-03_JPRB,1.4776E-03_JPRB,1.8215E-03_JPRB,2.5548E-03_JPRB,3.2874E-03_JPRB,4.0303E-03_JPRB,&
+ & 4.7235E-03_JPRB,5.2596E-03_JPRB,3.1553E-02_JPRB/)  
+KAO( :, 5, 8,14) = (/&
+ & 1.5375E-03_JPRB,1.6349E-03_JPRB,2.6125E-03_JPRB,3.7580E-03_JPRB,4.8839E-03_JPRB,6.0119E-03_JPRB,&
+ & 7.1085E-03_JPRB,8.0648E-03_JPRB,4.8625E-02_JPRB/)  
+KAO( :, 1, 9,14) = (/&
+ & 1.9224E-03_JPRB,1.6818E-03_JPRB,1.4431E-03_JPRB,1.2356E-03_JPRB,1.0226E-03_JPRB,8.1041E-04_JPRB,&
+ & 6.6192E-04_JPRB,1.6289E-07_JPRB,1.9855E-02_JPRB/)  
+KAO( :, 2, 9,14) = (/&
+ & 1.8714E-03_JPRB,1.6372E-03_JPRB,1.4546E-03_JPRB,1.2624E-03_JPRB,1.1376E-03_JPRB,1.2029E-03_JPRB,&
+ & 1.3478E-03_JPRB,1.4009E-03_JPRB,4.0030E-02_JPRB/)  
+KAO( :, 3, 9,14) = (/&
+ & 1.8227E-03_JPRB,1.6409E-03_JPRB,1.4856E-03_JPRB,1.4717E-03_JPRB,1.6810E-03_JPRB,2.0286E-03_JPRB,&
+ & 2.3381E-03_JPRB,2.5517E-03_JPRB,7.3381E-02_JPRB/)  
+KAO( :, 4, 9,14) = (/&
+ & 1.7776E-03_JPRB,1.6302E-03_JPRB,1.6842E-03_JPRB,2.0805E-03_JPRB,2.6540E-03_JPRB,3.2313E-03_JPRB,&
+ & 3.7806E-03_JPRB,4.1994E-03_JPRB,1.2455E-01_JPRB/)  
+KAO( :, 5, 9,14) = (/&
+ & 1.7367E-03_JPRB,1.7061E-03_JPRB,2.1848E-03_JPRB,3.1013E-03_JPRB,4.0216E-03_JPRB,4.9873E-03_JPRB,&
+ & 5.8671E-03_JPRB,6.6087E-03_JPRB,1.9836E-01_JPRB/)  
+KAO( :, 1,10,14) = (/&
+ & 2.1700E-03_JPRB,1.8991E-03_JPRB,1.6269E-03_JPRB,1.3797E-03_JPRB,1.1299E-03_JPRB,8.7387E-04_JPRB,&
+ & 1.3980E-07_JPRB,1.2659E-07_JPRB,7.9784E-02_JPRB/)  
+KAO( :, 2,10,14) = (/&
+ & 2.1212E-03_JPRB,1.8542E-03_JPRB,1.6327E-03_JPRB,1.4005E-03_JPRB,1.1807E-03_JPRB,1.0294E-03_JPRB,&
+ & 1.0221E-03_JPRB,1.9929E-04_JPRB,1.6978E-01_JPRB/)  
+KAO( :, 3,10,14) = (/&
+ & 2.0702E-03_JPRB,1.8475E-03_JPRB,1.6421E-03_JPRB,1.4813E-03_JPRB,1.4506E-03_JPRB,1.6271E-03_JPRB,&
+ & 1.8528E-03_JPRB,1.9874E-03_JPRB,3.2534E-01_JPRB/)  
+KAO( :, 4,10,14) = (/&
+ & 2.0197E-03_JPRB,1.8363E-03_JPRB,1.7391E-03_JPRB,1.8390E-03_JPRB,2.2028E-03_JPRB,2.6538E-03_JPRB,&
+ & 3.1240E-03_JPRB,3.3958E-03_JPRB,5.7201E-01_JPRB/)  
+KAO( :, 5,10,14) = (/&
+ & 1.9722E-03_JPRB,1.8724E-03_JPRB,2.0258E-03_JPRB,2.6203E-03_JPRB,3.3709E-03_JPRB,4.1714E-03_JPRB,&
+ & 4.8976E-03_JPRB,5.4947E-03_JPRB,9.3618E-01_JPRB/)  
+KAO( :, 1,11,14) = (/&
+ & 2.4346E-03_JPRB,2.1262E-03_JPRB,1.8242E-03_JPRB,1.5461E-03_JPRB,1.2663E-03_JPRB,9.7971E-04_JPRB,&
+ & 1.2672E-07_JPRB,1.1257E-07_JPRB,1.6191E-01_JPRB/)  
+KAO( :, 2,11,14) = (/&
+ & 2.3800E-03_JPRB,2.0803E-03_JPRB,1.8321E-03_JPRB,1.5714E-03_JPRB,1.3247E-03_JPRB,1.1173E-03_JPRB,&
+ & 1.0133E-03_JPRB,1.0538E-04_JPRB,3.4424E-01_JPRB/)  
+KAO( :, 3,11,14) = (/&
+ & 2.3211E-03_JPRB,2.0734E-03_JPRB,1.8393E-03_JPRB,1.6589E-03_JPRB,1.5627E-03_JPRB,1.6631E-03_JPRB,&
+ & 1.8852E-03_JPRB,2.0216E-03_JPRB,6.6076E-01_JPRB/)  
+KAO( :, 4,11,14) = (/&
+ & 2.2623E-03_JPRB,2.0579E-03_JPRB,1.9437E-03_JPRB,1.9604E-03_JPRB,2.2434E-03_JPRB,2.7165E-03_JPRB,&
+ & 3.1823E-03_JPRB,3.4732E-03_JPRB,1.1622E+00_JPRB/)  
+KAO( :, 5,11,14) = (/&
+ & 2.2095E-03_JPRB,2.1020E-03_JPRB,2.1745E-03_JPRB,2.6686E-03_JPRB,3.4370E-03_JPRB,4.2001E-03_JPRB,&
+ & 4.9598E-03_JPRB,5.6011E-03_JPRB,1.8980E+00_JPRB/)  
+KAO( :, 1,12,14) = (/&
+ & 2.7322E-03_JPRB,2.3881E-03_JPRB,2.0484E-03_JPRB,1.7387E-03_JPRB,1.4199E-03_JPRB,1.1012E-03_JPRB,&
+ & 1.1269E-07_JPRB,1.0126E-07_JPRB,2.4431E-01_JPRB/)  
+KAO( :, 2,12,14) = (/&
+ & 2.6690E-03_JPRB,2.3367E-03_JPRB,2.0556E-03_JPRB,1.7563E-03_JPRB,1.4836E-03_JPRB,1.2255E-03_JPRB,&
+ & 1.0602E-03_JPRB,2.2342E-04_JPRB,5.2005E-01_JPRB/)  
+KAO( :, 3,12,14) = (/&
+ & 2.6024E-03_JPRB,2.3216E-03_JPRB,2.0574E-03_JPRB,1.8575E-03_JPRB,1.6967E-03_JPRB,1.7241E-03_JPRB,&
+ & 1.9458E-03_JPRB,2.1132E-03_JPRB,9.9525E-01_JPRB/)  
+KAO( :, 4,12,14) = (/&
+ & 2.5362E-03_JPRB,2.2963E-03_JPRB,2.1666E-03_JPRB,2.1029E-03_JPRB,2.2976E-03_JPRB,2.7702E-03_JPRB,&
+ & 3.2192E-03_JPRB,3.5953E-03_JPRB,1.7434E+00_JPRB/)  
+KAO( :, 5,12,14) = (/&
+ & 2.4736E-03_JPRB,2.3442E-03_JPRB,2.3511E-03_JPRB,2.7323E-03_JPRB,3.5045E-03_JPRB,4.2744E-03_JPRB,&
+ & 5.0574E-03_JPRB,5.7337E-03_JPRB,2.8511E+00_JPRB/)  
+KAO( :, 1,13,14) = (/&
+ & 3.0694E-03_JPRB,2.6858E-03_JPRB,2.3020E-03_JPRB,1.9523E-03_JPRB,1.5893E-03_JPRB,1.2280E-03_JPRB,&
+ & 9.6824E-05_JPRB,9.3571E-08_JPRB,2.9420E-01_JPRB/)  
+KAO( :, 2,13,14) = (/&
+ & 2.9959E-03_JPRB,2.6225E-03_JPRB,2.2984E-03_JPRB,1.9588E-03_JPRB,1.6492E-03_JPRB,1.3537E-03_JPRB,&
+ & 1.1186E-03_JPRB,4.7180E-04_JPRB,6.2570E-01_JPRB/)  
+KAO( :, 3,13,14) = (/&
+ & 2.9125E-03_JPRB,2.5931E-03_JPRB,2.2966E-03_JPRB,2.0585E-03_JPRB,1.8442E-03_JPRB,1.7986E-03_JPRB,&
+ & 1.9858E-03_JPRB,2.1644E-03_JPRB,1.1929E+00_JPRB/)  
+KAO( :, 4,13,14) = (/&
+ & 2.8338E-03_JPRB,2.5576E-03_JPRB,2.3960E-03_JPRB,2.2668E-03_JPRB,2.3808E-03_JPRB,2.8162E-03_JPRB,&
+ & 3.2861E-03_JPRB,3.6781E-03_JPRB,2.0900E+00_JPRB/)  
+KAO( :, 5,13,14) = (/&
+ & 2.7615E-03_JPRB,2.6036E-03_JPRB,2.5577E-03_JPRB,2.8390E-03_JPRB,3.5800E-03_JPRB,4.3621E-03_JPRB,&
+ & 5.1422E-03_JPRB,5.8469E-03_JPRB,3.4082E+00_JPRB/)  
+KAO( :, 1, 1,15) = (/&
+ & 1.5335E-03_JPRB,1.9324E-03_JPRB,3.7679E-03_JPRB,5.5453E-03_JPRB,7.3003E-03_JPRB,9.0183E-03_JPRB,&
+ & 1.0616E-02_JPRB,1.1802E-02_JPRB,1.3402E-02_JPRB/)  
+KAO( :, 2, 1,15) = (/&
+ & 1.8833E-03_JPRB,2.7655E-03_JPRB,5.2889E-03_JPRB,7.8002E-03_JPRB,1.0284E-02_JPRB,1.2663E-02_JPRB,&
+ & 1.4949E-02_JPRB,1.7186E-02_JPRB,1.9451E-02_JPRB/)  
+KAO( :, 3, 1,15) = (/&
+ & 2.3483E-03_JPRB,3.8414E-03_JPRB,7.3773E-03_JPRB,1.0888E-02_JPRB,1.4361E-02_JPRB,1.7765E-02_JPRB,&
+ & 2.0815E-02_JPRB,2.3917E-02_JPRB,2.7184E-02_JPRB/)  
+KAO( :, 4, 1,15) = (/&
+ & 2.9416E-03_JPRB,5.1566E-03_JPRB,9.9228E-03_JPRB,1.4661E-02_JPRB,1.9210E-02_JPRB,2.3760E-02_JPRB,&
+ & 2.8113E-02_JPRB,3.1154E-02_JPRB,3.5404E-02_JPRB/)  
+KAO( :, 5, 1,15) = (/&
+ & 3.6966E-03_JPRB,6.6653E-03_JPRB,1.2941E-02_JPRB,1.9171E-02_JPRB,2.5316E-02_JPRB,3.1127E-02_JPRB,&
+ & 3.6787E-02_JPRB,4.1016E-02_JPRB,4.6262E-02_JPRB/)  
+KAO( :, 1, 2,15) = (/&
+ & 1.4383E-03_JPRB,1.8910E-03_JPRB,3.6349E-03_JPRB,5.3031E-03_JPRB,6.9932E-03_JPRB,8.6450E-03_JPRB,&
+ & 1.0512E-02_JPRB,1.1619E-02_JPRB,1.3810E-02_JPRB/)  
+KAO( :, 2, 2,15) = (/&
+ & 1.7711E-03_JPRB,2.7662E-03_JPRB,5.3277E-03_JPRB,7.8716E-03_JPRB,1.0388E-02_JPRB,1.2798E-02_JPRB,&
+ & 1.4898E-02_JPRB,1.7232E-02_JPRB,1.9744E-02_JPRB/)  
+KAO( :, 3, 2,15) = (/&
+ & 2.2091E-03_JPRB,3.9249E-03_JPRB,7.5049E-03_JPRB,1.1104E-02_JPRB,1.4661E-02_JPRB,1.8139E-02_JPRB,&
+ & 2.1328E-02_JPRB,2.3602E-02_JPRB,2.7985E-02_JPRB/)  
+KAO( :, 4, 2,15) = (/&
+ & 2.7705E-03_JPRB,5.2948E-03_JPRB,1.0279E-02_JPRB,1.5231E-02_JPRB,2.0000E-02_JPRB,2.4763E-02_JPRB,&
+ & 2.9040E-02_JPRB,3.2255E-02_JPRB,3.8158E-02_JPRB/)  
+KAO( :, 5, 2,15) = (/&
+ & 3.5089E-03_JPRB,6.9573E-03_JPRB,1.3524E-02_JPRB,2.0020E-02_JPRB,2.6474E-02_JPRB,3.2706E-02_JPRB,&
+ & 3.8152E-02_JPRB,4.2439E-02_JPRB,5.0508E-02_JPRB/)  
+KAO( :, 1, 3,15) = (/&
+ & 1.2705E-03_JPRB,1.6880E-03_JPRB,3.2165E-03_JPRB,4.7906E-03_JPRB,6.3186E-03_JPRB,7.6460E-03_JPRB,&
+ & 9.3643E-03_JPRB,1.0229E-02_JPRB,1.2458E-02_JPRB/)  
+KAO( :, 2, 3,15) = (/&
+ & 1.5436E-03_JPRB,2.5438E-03_JPRB,4.9323E-03_JPRB,7.3010E-03_JPRB,9.6387E-03_JPRB,1.1841E-02_JPRB,&
+ & 1.4163E-02_JPRB,1.5548E-02_JPRB,1.9155E-02_JPRB/)  
+KAO( :, 3, 3,15) = (/&
+ & 1.9176E-03_JPRB,3.6434E-03_JPRB,6.9853E-03_JPRB,1.0590E-02_JPRB,1.3995E-02_JPRB,1.7311E-02_JPRB,&
+ & 2.0232E-02_JPRB,2.1858E-02_JPRB,2.7487E-02_JPRB/)  
+KAO( :, 4, 3,15) = (/&
+ & 2.3869E-03_JPRB,4.9269E-03_JPRB,9.6201E-03_JPRB,1.4277E-02_JPRB,1.9500E-02_JPRB,2.4127E-02_JPRB,&
+ & 2.8236E-02_JPRB,3.0501E-02_JPRB,3.7416E-02_JPRB/)  
+KAO( :, 5, 3,15) = (/&
+ & 2.9972E-03_JPRB,6.6065E-03_JPRB,1.2887E-02_JPRB,1.9158E-02_JPRB,2.5345E-02_JPRB,3.1167E-02_JPRB,&
+ & 3.7358E-02_JPRB,4.1161E-02_JPRB,5.0258E-02_JPRB/)  
+KAO( :, 1, 4,15) = (/&
+ & 1.2393E-03_JPRB,1.4291E-03_JPRB,2.7934E-03_JPRB,4.1582E-03_JPRB,5.4860E-03_JPRB,6.6271E-03_JPRB,&
+ & 7.7456E-03_JPRB,8.5638E-03_JPRB,1.0713E-02_JPRB/)  
+KAO( :, 2, 4,15) = (/&
+ & 1.3400E-03_JPRB,2.1964E-03_JPRB,4.2752E-03_JPRB,6.3365E-03_JPRB,8.4061E-03_JPRB,1.0279E-02_JPRB,&
+ & 1.2357E-02_JPRB,1.3474E-02_JPRB,1.7008E-02_JPRB/)  
+KAO( :, 3, 4,15) = (/&
+ & 1.6349E-03_JPRB,3.2436E-03_JPRB,6.2304E-03_JPRB,9.4103E-03_JPRB,1.2432E-02_JPRB,1.5539E-02_JPRB,&
+ & 1.8108E-02_JPRB,2.0011E-02_JPRB,2.5265E-02_JPRB/)  
+KAO( :, 4, 4,15) = (/&
+ & 2.0292E-03_JPRB,4.6522E-03_JPRB,9.1141E-03_JPRB,1.3542E-02_JPRB,1.7761E-02_JPRB,2.1969E-02_JPRB,&
+ & 2.5895E-02_JPRB,2.8549E-02_JPRB,3.4694E-02_JPRB/)  
+KAO( :, 5, 4,15) = (/&
+ & 2.5299E-03_JPRB,6.1198E-03_JPRB,1.2014E-02_JPRB,1.7823E-02_JPRB,2.3626E-02_JPRB,3.0145E-02_JPRB,&
+ & 3.4844E-02_JPRB,3.8179E-02_JPRB,4.7443E-02_JPRB/)  
+KAO( :, 1, 5,15) = (/&
+ & 1.3376E-03_JPRB,1.3061E-03_JPRB,2.2933E-03_JPRB,3.4105E-03_JPRB,4.5058E-03_JPRB,5.4169E-03_JPRB,&
+ & 6.3127E-03_JPRB,7.0090E-03_JPRB,8.8382E-03_JPRB/)  
+KAO( :, 2, 5,15) = (/&
+ & 1.3263E-03_JPRB,1.8712E-03_JPRB,3.6486E-03_JPRB,5.3688E-03_JPRB,7.2653E-03_JPRB,8.6947E-03_JPRB,&
+ & 1.0335E-02_JPRB,1.1527E-02_JPRB,1.4282E-02_JPRB/)  
+KAO( :, 3, 5,15) = (/&
+ & 1.4243E-03_JPRB,2.8262E-03_JPRB,5.4158E-03_JPRB,8.2878E-03_JPRB,1.0953E-02_JPRB,1.3340E-02_JPRB,&
+ & 1.6078E-02_JPRB,1.7370E-02_JPRB,2.2313E-02_JPRB/)  
+KAO( :, 4, 5,15) = (/&
+ & 1.6989E-03_JPRB,4.0314E-03_JPRB,7.9177E-03_JPRB,1.2164E-02_JPRB,1.6022E-02_JPRB,1.9693E-02_JPRB,&
+ & 2.2743E-02_JPRB,2.5430E-02_JPRB,3.1147E-02_JPRB/)  
+KAO( :, 5, 5,15) = (/&
+ & 2.0980E-03_JPRB,5.4208E-03_JPRB,1.0645E-02_JPRB,1.5846E-02_JPRB,2.1457E-02_JPRB,2.6719E-02_JPRB,&
+ & 3.1700E-02_JPRB,3.4634E-02_JPRB,4.2396E-02_JPRB/)  
+KAO( :, 1, 6,15) = (/&
+ & 1.4699E-03_JPRB,1.3039E-03_JPRB,1.7682E-03_JPRB,2.6642E-03_JPRB,3.3901E-03_JPRB,4.1361E-03_JPRB,&
+ & 4.9645E-03_JPRB,5.4015E-03_JPRB,7.0142E-03_JPRB/)  
+KAO( :, 2, 6,15) = (/&
+ & 1.4420E-03_JPRB,1.6011E-03_JPRB,2.9603E-03_JPRB,4.2663E-03_JPRB,5.9096E-03_JPRB,7.1197E-03_JPRB,&
+ & 8.3224E-03_JPRB,9.2909E-03_JPRB,1.1572E-02_JPRB/)  
+KAO( :, 3, 6,15) = (/&
+ & 1.4209E-03_JPRB,2.3651E-03_JPRB,4.5056E-03_JPRB,6.8456E-03_JPRB,9.2009E-03_JPRB,1.1119E-02_JPRB,&
+ & 1.3497E-02_JPRB,1.4341E-02_JPRB,1.8485E-02_JPRB/)  
+KAO( :, 4, 6,15) = (/&
+ & 1.4876E-03_JPRB,3.4335E-03_JPRB,6.7368E-03_JPRB,1.0314E-02_JPRB,1.3111E-02_JPRB,1.6614E-02_JPRB,&
+ & 1.9482E-02_JPRB,2.1613E-02_JPRB,2.6785E-02_JPRB/)  
+KAO( :, 5, 6,15) = (/&
+ & 1.7311E-03_JPRB,4.9309E-03_JPRB,9.6716E-03_JPRB,1.4408E-02_JPRB,1.8785E-02_JPRB,2.3407E-02_JPRB,&
+ & 2.7826E-02_JPRB,3.0253E-02_JPRB,3.8797E-02_JPRB/)  
+KAO( :, 1, 7,15) = (/&
+ & 1.6452E-03_JPRB,1.4412E-03_JPRB,1.4879E-03_JPRB,1.9571E-03_JPRB,2.5256E-03_JPRB,3.0766E-03_JPRB,&
+ & 3.7011E-03_JPRB,4.0149E-03_JPRB,5.3627E-03_JPRB/)  
+KAO( :, 2, 7,15) = (/&
+ & 1.6160E-03_JPRB,1.5227E-03_JPRB,2.2973E-03_JPRB,3.3257E-03_JPRB,4.5738E-03_JPRB,5.5584E-03_JPRB,&
+ & 6.3881E-03_JPRB,7.2538E-03_JPRB,9.6722E-03_JPRB/)  
+KAO( :, 3, 7,15) = (/&
+ & 1.5860E-03_JPRB,2.0263E-03_JPRB,3.8492E-03_JPRB,5.5523E-03_JPRB,7.3824E-03_JPRB,9.0664E-03_JPRB,&
+ & 1.0834E-02_JPRB,1.1569E-02_JPRB,1.5617E-02_JPRB/)  
+KAO( :, 4, 7,15) = (/&
+ & 1.5638E-03_JPRB,2.9557E-03_JPRB,5.6559E-03_JPRB,8.6531E-03_JPRB,1.0991E-02_JPRB,1.3929E-02_JPRB,&
+ & 1.6365E-02_JPRB,1.8010E-02_JPRB,2.4730E-02_JPRB/)  
+KAO( :, 5, 7,15) = (/&
+ & 1.5935E-03_JPRB,4.3661E-03_JPRB,8.5392E-03_JPRB,1.2446E-02_JPRB,1.6667E-02_JPRB,2.0343E-02_JPRB,&
+ & 2.3794E-02_JPRB,2.5830E-02_JPRB,3.6014E-02_JPRB/)  
+KAO( :, 1, 8,15) = (/&
+ & 1.8723E-03_JPRB,1.6388E-03_JPRB,1.4610E-03_JPRB,1.5561E-03_JPRB,1.8720E-03_JPRB,2.3376E-03_JPRB,&
+ & 2.6613E-03_JPRB,2.9039E-03_JPRB,6.4956E-03_JPRB/)  
+KAO( :, 2, 8,15) = (/&
+ & 1.8456E-03_JPRB,1.6296E-03_JPRB,1.9116E-03_JPRB,2.6011E-03_JPRB,3.5199E-03_JPRB,4.2393E-03_JPRB,&
+ & 4.8531E-03_JPRB,5.3550E-03_JPRB,1.2422E-02_JPRB/)  
+KAO( :, 3, 8,15) = (/&
+ & 1.8093E-03_JPRB,1.9050E-03_JPRB,3.1124E-03_JPRB,4.4584E-03_JPRB,5.9417E-03_JPRB,7.2783E-03_JPRB,&
+ & 8.6194E-03_JPRB,9.3908E-03_JPRB,2.1656E-02_JPRB/)  
+KAO( :, 4, 8,15) = (/&
+ & 1.7796E-03_JPRB,2.5264E-03_JPRB,4.7746E-03_JPRB,7.1139E-03_JPRB,9.2445E-03_JPRB,1.1405E-02_JPRB,&
+ & 1.3524E-02_JPRB,1.4718E-02_JPRB,3.5472E-02_JPRB/)  
+KAO( :, 5, 8,15) = (/&
+ & 1.7474E-03_JPRB,3.6460E-03_JPRB,7.3775E-03_JPRB,1.0554E-02_JPRB,1.4351E-02_JPRB,1.7437E-02_JPRB,&
+ & 2.0234E-02_JPRB,2.2659E-02_JPRB,5.4466E-02_JPRB/)  
+KAO( :, 1, 9,15) = (/&
+ & 2.1531E-03_JPRB,1.8852E-03_JPRB,1.6173E-03_JPRB,1.4438E-03_JPRB,1.4392E-03_JPRB,1.6909E-03_JPRB,&
+ & 1.8360E-03_JPRB,1.2556E-03_JPRB,2.2429E-02_JPRB/)  
+KAO( :, 2, 9,15) = (/&
+ & 2.1197E-03_JPRB,1.8522E-03_JPRB,1.7919E-03_JPRB,2.0362E-03_JPRB,2.5897E-03_JPRB,3.1619E-03_JPRB,&
+ & 3.6769E-03_JPRB,3.8809E-03_JPRB,4.5293E-02_JPRB/)  
+KAO( :, 3, 9,15) = (/&
+ & 2.0806E-03_JPRB,1.9202E-03_JPRB,2.4651E-03_JPRB,3.5166E-03_JPRB,4.6833E-03_JPRB,5.6685E-03_JPRB,&
+ & 6.7191E-03_JPRB,7.2005E-03_JPRB,8.3053E-02_JPRB/)  
+KAO( :, 4, 9,15) = (/&
+ & 2.0479E-03_JPRB,2.3234E-03_JPRB,3.9257E-03_JPRB,5.8282E-03_JPRB,7.5382E-03_JPRB,9.2852E-03_JPRB,&
+ & 1.0968E-02_JPRB,1.1755E-02_JPRB,1.4085E-01_JPRB/)  
+KAO( :, 5, 9,15) = (/&
+ & 2.0135E-03_JPRB,3.1161E-03_JPRB,6.2953E-03_JPRB,8.9489E-03_JPRB,1.1910E-02_JPRB,1.4603E-02_JPRB,&
+ & 1.7103E-02_JPRB,1.8687E-02_JPRB,2.2489E-01_JPRB/)  
+KAO( :, 1,10,15) = (/&
+ & 2.4996E-03_JPRB,2.1860E-03_JPRB,1.8719E-03_JPRB,1.5736E-03_JPRB,1.3474E-03_JPRB,1.3138E-03_JPRB,&
+ & 1.2455E-03_JPRB,1.1328E-07_JPRB,9.2144E-02_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART10',1,ZHOOK_HANDLE)
+END SUBROUTINE PART10
+
+
+SUBROUTINE PART11
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART11',0,ZHOOK_HANDLE)
+
+
+KAO( :, 2,10,15) = (/&
+ & 2.4545E-03_JPRB,2.1478E-03_JPRB,1.8895E-03_JPRB,1.8842E-03_JPRB,2.0494E-03_JPRB,2.4515E-03_JPRB,&
+ & 2.7912E-03_JPRB,2.8411E-03_JPRB,1.9577E-01_JPRB/)  
+KAO( :, 3,10,15) = (/&
+ & 2.4123E-03_JPRB,2.1379E-03_JPRB,2.2699E-03_JPRB,2.9106E-03_JPRB,3.7957E-03_JPRB,4.5303E-03_JPRB,&
+ & 5.1569E-03_JPRB,5.5947E-03_JPRB,3.7579E-01_JPRB/)  
+KAO( :, 4,10,15) = (/&
+ & 2.3670E-03_JPRB,2.3455E-03_JPRB,3.3904E-03_JPRB,4.7982E-03_JPRB,6.5586E-03_JPRB,7.6814E-03_JPRB,&
+ & 8.9698E-03_JPRB,9.4919E-03_JPRB,6.5920E-01_JPRB/)  
+KAO( :, 5,10,15) = (/&
+ & 2.3225E-03_JPRB,2.8728E-03_JPRB,5.4745E-03_JPRB,7.9446E-03_JPRB,1.0257E-02_JPRB,1.2466E-02_JPRB,&
+ & 1.4486E-02_JPRB,1.5553E-02_JPRB,1.0800E+00_JPRB/)  
+KAO( :, 1,11,15) = (/&
+ & 2.8637E-03_JPRB,2.5035E-03_JPRB,2.1436E-03_JPRB,1.8035E-03_JPRB,1.5339E-03_JPRB,1.4234E-03_JPRB,&
+ & 1.1994E-03_JPRB,9.8829E-08_JPRB,1.9145E-01_JPRB/)  
+KAO( :, 2,11,15) = (/&
+ & 2.8241E-03_JPRB,2.4682E-03_JPRB,2.1655E-03_JPRB,2.0940E-03_JPRB,2.2293E-03_JPRB,2.5943E-03_JPRB,&
+ & 2.8972E-03_JPRB,2.9304E-03_JPRB,4.0810E-01_JPRB/)  
+KAO( :, 3,11,15) = (/&
+ & 2.7755E-03_JPRB,2.4611E-03_JPRB,2.5498E-03_JPRB,3.0773E-03_JPRB,3.9941E-03_JPRB,4.8157E-03_JPRB,&
+ & 5.3205E-03_JPRB,5.7118E-03_JPRB,7.8317E-01_JPRB/)  
+KAO( :, 4,11,15) = (/&
+ & 2.7180E-03_JPRB,2.6251E-03_JPRB,3.6039E-03_JPRB,5.0535E-03_JPRB,6.8961E-03_JPRB,8.2198E-03_JPRB,&
+ & 9.2474E-03_JPRB,9.6840E-03_JPRB,1.3768E+00_JPRB/)  
+KAO( :, 5,11,15) = (/&
+ & 2.6558E-03_JPRB,3.1273E-03_JPRB,5.6600E-03_JPRB,8.3772E-03_JPRB,1.0624E-02_JPRB,1.3218E-02_JPRB,&
+ & 1.5003E-02_JPRB,1.5876E-02_JPRB,2.2520E+00_JPRB/)  
+KAO( :, 1,12,15) = (/&
+ & 3.2714E-03_JPRB,2.8584E-03_JPRB,2.4535E-03_JPRB,2.0680E-03_JPRB,1.7413E-03_JPRB,1.5693E-03_JPRB,&
+ & 1.4195E-03_JPRB,8.7492E-08_JPRB,2.9715E-01_JPRB/)  
+KAO( :, 2,12,15) = (/&
+ & 3.2238E-03_JPRB,2.8219E-03_JPRB,2.4898E-03_JPRB,2.3173E-03_JPRB,2.4029E-03_JPRB,2.7493E-03_JPRB,&
+ & 3.0184E-03_JPRB,3.0151E-03_JPRB,6.3430E-01_JPRB/)  
+KAO( :, 3,12,15) = (/&
+ & 3.1690E-03_JPRB,2.8261E-03_JPRB,2.8398E-03_JPRB,3.2763E-03_JPRB,4.1787E-03_JPRB,5.0712E-03_JPRB,&
+ & 5.7128E-03_JPRB,5.7933E-03_JPRB,1.2146E+00_JPRB/)  
+KAO( :, 4,12,15) = (/&
+ & 3.1066E-03_JPRB,2.9671E-03_JPRB,3.8178E-03_JPRB,5.5845E-03_JPRB,7.1025E-03_JPRB,8.6518E-03_JPRB,&
+ & 9.8099E-03_JPRB,1.0106E-02_JPRB,2.1338E+00_JPRB/)  
+KAO( :, 5,12,15) = (/&
+ & 3.0417E-03_JPRB,3.4447E-03_JPRB,5.9771E-03_JPRB,8.7849E-03_JPRB,1.1154E-02_JPRB,1.3933E-02_JPRB,&
+ & 1.5683E-02_JPRB,1.6226E-02_JPRB,3.5026E+00_JPRB/)  
+KAO( :, 1,13,15) = (/&
+ & 3.7174E-03_JPRB,3.2529E-03_JPRB,2.7876E-03_JPRB,2.3613E-03_JPRB,1.9840E-03_JPRB,1.7059E-03_JPRB,&
+ & 1.5699E-03_JPRB,2.2638E-04_JPRB,3.7080E-01_JPRB/)  
+KAO( :, 2,13,15) = (/&
+ & 3.6607E-03_JPRB,3.2024E-03_JPRB,2.8505E-03_JPRB,2.5957E-03_JPRB,2.5988E-03_JPRB,2.8843E-03_JPRB,&
+ & 3.1480E-03_JPRB,3.2252E-03_JPRB,7.9012E-01_JPRB/)  
+KAO( :, 3,13,15) = (/&
+ & 3.6056E-03_JPRB,3.2358E-03_JPRB,3.0977E-03_JPRB,3.5132E-03_JPRB,4.3893E-03_JPRB,5.3238E-03_JPRB,&
+ & 5.9823E-03_JPRB,6.0551E-03_JPRB,1.5116E+00_JPRB/)  
+KAO( :, 4,13,15) = (/&
+ & 3.5392E-03_JPRB,3.3725E-03_JPRB,4.1216E-03_JPRB,5.8741E-03_JPRB,7.4524E-03_JPRB,8.9744E-03_JPRB,&
+ & 1.0256E-02_JPRB,1.0534E-02_JPRB,2.6566E+00_JPRB/)  
+KAO( :, 5,13,15) = (/&
+ & 3.4654E-03_JPRB,3.8025E-03_JPRB,6.3205E-03_JPRB,9.1996E-03_JPRB,1.1773E-02_JPRB,1.4433E-02_JPRB,&
+ & 1.6393E-02_JPRB,1.6955E-02_JPRB,4.3588E+00_JPRB/)  
+KAO( :, 1, 1,16) = (/&
+ & 1.5672E-03_JPRB,2.1553E-03_JPRB,4.1215E-03_JPRB,6.0711E-03_JPRB,7.9933E-03_JPRB,9.8639E-03_JPRB,&
+ & 1.1623E-02_JPRB,1.2894E-02_JPRB,1.4627E-02_JPRB/)  
+KAO( :, 2, 1,16) = (/&
+ & 1.9455E-03_JPRB,3.1176E-03_JPRB,5.9834E-03_JPRB,8.8258E-03_JPRB,1.1628E-02_JPRB,1.4352E-02_JPRB,&
+ & 1.6890E-02_JPRB,1.8782E-02_JPRB,2.1292E-02_JPRB/)  
+KAO( :, 3, 1,16) = (/&
+ & 2.4286E-03_JPRB,4.3028E-03_JPRB,8.2818E-03_JPRB,1.2234E-02_JPRB,1.6127E-02_JPRB,1.9913E-02_JPRB,&
+ & 2.3612E-02_JPRB,2.6215E-02_JPRB,2.9752E-02_JPRB/)  
+KAO( :, 4, 1,16) = (/&
+ & 3.0199E-03_JPRB,5.7955E-03_JPRB,1.1212E-02_JPRB,1.6585E-02_JPRB,2.1939E-02_JPRB,2.7103E-02_JPRB,&
+ & 3.1641E-02_JPRB,3.5382E-02_JPRB,4.0152E-02_JPRB/)  
+KAO( :, 5, 1,16) = (/&
+ & 3.7301E-03_JPRB,7.5925E-03_JPRB,1.4663E-02_JPRB,2.1614E-02_JPRB,2.8523E-02_JPRB,3.5412E-02_JPRB,&
+ & 4.1705E-02_JPRB,4.6016E-02_JPRB,5.2602E-02_JPRB/)  
+KAO( :, 1, 2,16) = (/&
+ & 1.4714E-03_JPRB,2.1897E-03_JPRB,4.1859E-03_JPRB,6.1816E-03_JPRB,8.1457E-03_JPRB,1.0051E-02_JPRB,&
+ & 1.1874E-02_JPRB,1.3114E-02_JPRB,1.5524E-02_JPRB/)  
+KAO( :, 2, 2,16) = (/&
+ & 1.8243E-03_JPRB,3.2190E-03_JPRB,6.2284E-03_JPRB,9.2101E-03_JPRB,1.2144E-02_JPRB,1.5021E-02_JPRB,&
+ & 1.7606E-02_JPRB,1.9473E-02_JPRB,2.2997E-02_JPRB/)  
+KAO( :, 3, 2,16) = (/&
+ & 2.2843E-03_JPRB,4.5394E-03_JPRB,8.8033E-03_JPRB,1.3032E-02_JPRB,1.7194E-02_JPRB,2.1230E-02_JPRB,&
+ & 2.5009E-02_JPRB,2.7460E-02_JPRB,3.2496E-02_JPRB/)  
+KAO( :, 4, 2,16) = (/&
+ & 2.8708E-03_JPRB,6.2086E-03_JPRB,1.2093E-02_JPRB,1.7923E-02_JPRB,2.3632E-02_JPRB,2.9181E-02_JPRB,&
+ & 3.4133E-02_JPRB,3.7858E-02_JPRB,4.4523E-02_JPRB/)  
+KAO( :, 5, 2,16) = (/&
+ & 3.5701E-03_JPRB,8.1350E-03_JPRB,1.5874E-02_JPRB,2.3527E-02_JPRB,3.1085E-02_JPRB,3.8729E-02_JPRB,&
+ & 4.5307E-02_JPRB,4.9567E-02_JPRB,5.9359E-02_JPRB/)  
+KAO( :, 1, 3,16) = (/&
+ & 1.2836E-03_JPRB,2.0294E-03_JPRB,3.8863E-03_JPRB,5.8124E-03_JPRB,7.6573E-03_JPRB,9.3378E-03_JPRB,&
+ & 1.1017E-02_JPRB,1.1974E-02_JPRB,1.4949E-02_JPRB/)  
+KAO( :, 2, 3,16) = (/&
+ & 1.5660E-03_JPRB,3.0824E-03_JPRB,6.0009E-03_JPRB,8.8868E-03_JPRB,1.1717E-02_JPRB,1.4438E-02_JPRB,&
+ & 1.6887E-02_JPRB,1.8445E-02_JPRB,2.2945E-02_JPRB/)  
+KAO( :, 3, 3,16) = (/&
+ & 1.9600E-03_JPRB,4.4422E-03_JPRB,8.7147E-03_JPRB,1.2909E-02_JPRB,1.7029E-02_JPRB,2.0993E-02_JPRB,&
+ & 2.4634E-02_JPRB,2.6606E-02_JPRB,3.3559E-02_JPRB/)  
+KAO( :, 4, 3,16) = (/&
+ & 2.4642E-03_JPRB,6.2222E-03_JPRB,1.2184E-02_JPRB,1.8079E-02_JPRB,2.3727E-02_JPRB,2.9253E-02_JPRB,&
+ & 3.4378E-02_JPRB,3.7595E-02_JPRB,4.7010E-02_JPRB/)  
+KAO( :, 5, 3,16) = (/&
+ & 3.0951E-03_JPRB,8.3838E-03_JPRB,1.6309E-02_JPRB,2.4359E-02_JPRB,3.2164E-02_JPRB,3.9734E-02_JPRB,&
+ & 4.6556E-02_JPRB,5.0749E-02_JPRB,6.3475E-02_JPRB/)  
+KAO( :, 1, 4,16) = (/&
+ & 1.2574E-03_JPRB,1.8114E-03_JPRB,3.5154E-03_JPRB,5.2030E-03_JPRB,6.8473E-03_JPRB,8.4135E-03_JPRB,&
+ & 9.7945E-03_JPRB,1.0467E-02_JPRB,1.3735E-02_JPRB/)  
+KAO( :, 2, 4,16) = (/&
+ & 1.4045E-03_JPRB,2.8445E-03_JPRB,5.5546E-03_JPRB,8.2273E-03_JPRB,1.0867E-02_JPRB,1.3255E-02_JPRB,&
+ & 1.5543E-02_JPRB,1.6757E-02_JPRB,2.1717E-02_JPRB/)  
+KAO( :, 3, 4,16) = (/&
+ & 1.7089E-03_JPRB,4.2655E-03_JPRB,8.3342E-03_JPRB,1.2385E-02_JPRB,1.6320E-02_JPRB,2.0006E-02_JPRB,&
+ & 2.3383E-02_JPRB,2.5166E-02_JPRB,3.2791E-02_JPRB/)  
+KAO( :, 4, 4,16) = (/&
+ & 2.1090E-03_JPRB,6.0675E-03_JPRB,1.1915E-02_JPRB,1.7681E-02_JPRB,2.3322E-02_JPRB,2.8694E-02_JPRB,&
+ & 3.3458E-02_JPRB,3.6118E-02_JPRB,4.7164E-02_JPRB/)  
+KAO( :, 5, 4,16) = (/&
+ & 2.6086E-03_JPRB,8.3756E-03_JPRB,1.6515E-02_JPRB,2.4278E-02_JPRB,3.2230E-02_JPRB,3.9587E-02_JPRB,&
+ & 4.6358E-02_JPRB,4.9833E-02_JPRB,6.4660E-02_JPRB/)  
+KAO( :, 1, 5,16) = (/&
+ & 1.3825E-03_JPRB,1.5837E-03_JPRB,3.0919E-03_JPRB,4.5531E-03_JPRB,6.0074E-03_JPRB,7.3563E-03_JPRB,&
+ & 8.5040E-03_JPRB,9.0047E-03_JPRB,1.2222E-02_JPRB/)  
+KAO( :, 2, 5,16) = (/&
+ & 1.3514E-03_JPRB,2.5997E-03_JPRB,5.0814E-03_JPRB,7.5197E-03_JPRB,9.9239E-03_JPRB,1.2026E-02_JPRB,&
+ & 1.3939E-02_JPRB,1.4883E-02_JPRB,2.0096E-02_JPRB/)  
+KAO( :, 3, 5,16) = (/&
+ & 1.5206E-03_JPRB,4.0333E-03_JPRB,7.8158E-03_JPRB,1.1713E-02_JPRB,1.5405E-02_JPRB,1.8636E-02_JPRB,&
+ & 2.1846E-02_JPRB,2.3099E-02_JPRB,3.1394E-02_JPRB/)  
+KAO( :, 4, 5,16) = (/&
+ & 1.8386E-03_JPRB,5.8482E-03_JPRB,1.1495E-02_JPRB,1.7163E-02_JPRB,2.2705E-02_JPRB,2.7707E-02_JPRB,&
+ & 3.1828E-02_JPRB,3.4087E-02_JPRB,4.5825E-02_JPRB/)  
+KAO( :, 5, 5,16) = (/&
+ & 2.2527E-03_JPRB,8.2599E-03_JPRB,1.6275E-02_JPRB,2.4092E-02_JPRB,3.1836E-02_JPRB,3.8856E-02_JPRB,&
+ & 4.5237E-02_JPRB,4.7798E-02_JPRB,6.5032E-02_JPRB/)  
+KAO( :, 1, 6,16) = (/&
+ & 1.5452E-03_JPRB,1.3558E-03_JPRB,2.6064E-03_JPRB,3.8420E-03_JPRB,5.0190E-03_JPRB,6.1218E-03_JPRB,&
+ & 7.0124E-03_JPRB,7.3072E-03_JPRB,1.0404E-02_JPRB/)  
+KAO( :, 2, 6,16) = (/&
+ & 1.5160E-03_JPRB,2.2762E-03_JPRB,4.4992E-03_JPRB,6.5908E-03_JPRB,8.7549E-03_JPRB,1.0577E-02_JPRB,&
+ & 1.2081E-02_JPRB,1.2650E-02_JPRB,1.7914E-02_JPRB/)  
+KAO( :, 3, 6,16) = (/&
+ & 1.4831E-03_JPRB,3.6667E-03_JPRB,7.1626E-03_JPRB,1.0648E-02_JPRB,1.4117E-02_JPRB,1.6912E-02_JPRB,&
+ & 1.9731E-02_JPRB,2.0210E-02_JPRB,2.8978E-02_JPRB/)  
+KAO( :, 4, 6,16) = (/&
+ & 1.6115E-03_JPRB,5.5846E-03_JPRB,1.0973E-02_JPRB,1.6135E-02_JPRB,2.1251E-02_JPRB,2.6015E-02_JPRB,&
+ & 2.9549E-02_JPRB,3.0765E-02_JPRB,4.3671E-02_JPRB/)  
+KAO( :, 5, 6,16) = (/&
+ & 1.9392E-03_JPRB,8.0663E-03_JPRB,1.5907E-02_JPRB,2.3470E-02_JPRB,3.0817E-02_JPRB,3.7382E-02_JPRB,&
+ & 4.3204E-02_JPRB,4.4622E-02_JPRB,6.3997E-02_JPRB/)  
+KAO( :, 1, 7,16) = (/&
+ & 1.7424E-03_JPRB,1.5255E-03_JPRB,2.1507E-03_JPRB,3.1520E-03_JPRB,4.1047E-03_JPRB,4.9755E-03_JPRB,&
+ & 5.6339E-03_JPRB,5.7296E-03_JPRB,8.6456E-03_JPRB/)  
+KAO( :, 2, 7,16) = (/&
+ & 1.7170E-03_JPRB,1.9718E-03_JPRB,3.9047E-03_JPRB,5.6866E-03_JPRB,7.5061E-03_JPRB,9.0459E-03_JPRB,&
+ & 1.0285E-02_JPRB,1.0440E-02_JPRB,1.5762E-02_JPRB/)  
+KAO( :, 3, 7,16) = (/&
+ & 1.6789E-03_JPRB,3.3135E-03_JPRB,6.5455E-03_JPRB,9.5842E-03_JPRB,1.2571E-02_JPRB,1.5280E-02_JPRB,&
+ & 1.7323E-02_JPRB,1.7346E-02_JPRB,2.6392E-02_JPRB/)  
+KAO( :, 4, 7,16) = (/&
+ & 1.6475E-03_JPRB,5.2207E-03_JPRB,1.0255E-02_JPRB,1.5008E-02_JPRB,1.9715E-02_JPRB,2.4009E-02_JPRB,&
+ & 2.7310E-02_JPRB,2.7325E-02_JPRB,4.1677E-02_JPRB/)  
+KAO( :, 5, 7,16) = (/&
+ & 1.7171E-03_JPRB,7.7744E-03_JPRB,1.5301E-02_JPRB,2.2477E-02_JPRB,2.9556E-02_JPRB,3.5932E-02_JPRB,&
+ & 4.0780E-02_JPRB,4.0784E-02_JPRB,6.2312E-02_JPRB/)  
+KAO( :, 1, 8,16) = (/&
+ & 1.9724E-03_JPRB,1.7312E-03_JPRB,1.7354E-03_JPRB,2.5314E-03_JPRB,3.2671E-03_JPRB,3.9608E-03_JPRB,&
+ & 4.3782E-03_JPRB,4.2763E-03_JPRB,7.0340E-03_JPRB/)  
+KAO( :, 2, 8,16) = (/&
+ & 1.9569E-03_JPRB,1.7215E-03_JPRB,3.3340E-03_JPRB,4.8320E-03_JPRB,6.3356E-03_JPRB,7.5448E-03_JPRB,&
+ & 8.4497E-03_JPRB,8.2045E-03_JPRB,1.3623E-02_JPRB/)  
+KAO( :, 3, 8,16) = (/&
+ & 1.9222E-03_JPRB,3.0063E-03_JPRB,5.8393E-03_JPRB,8.4557E-03_JPRB,1.1082E-02_JPRB,1.3356E-02_JPRB,&
+ & 1.4892E-02_JPRB,1.4508E-02_JPRB,2.3611E-02_JPRB/)  
+KAO( :, 4, 8,16) = (/&
+ & 1.8856E-03_JPRB,4.8368E-03_JPRB,9.4413E-03_JPRB,1.3907E-02_JPRB,1.7960E-02_JPRB,2.1659E-02_JPRB,&
+ & 2.4357E-02_JPRB,2.3676E-02_JPRB,3.8984E-02_JPRB/)  
+KAO( :, 5, 8,16) = (/&
+ & 1.8442E-03_JPRB,7.3401E-03_JPRB,1.4568E-02_JPRB,2.1338E-02_JPRB,2.7859E-02_JPRB,3.3579E-02_JPRB,&
+ & 3.7493E-02_JPRB,3.6571E-02_JPRB,5.9238E-02_JPRB/)  
+KAO( :, 1, 9,16) = (/&
+ & 2.2527E-03_JPRB,1.9717E-03_JPRB,1.6910E-03_JPRB,1.9762E-03_JPRB,2.5161E-03_JPRB,3.0221E-03_JPRB,&
+ & 3.2672E-03_JPRB,3.0670E-03_JPRB,2.3998E-02_JPRB/)  
+KAO( :, 2, 9,16) = (/&
+ & 2.2414E-03_JPRB,1.9482E-03_JPRB,2.7675E-03_JPRB,3.9857E-03_JPRB,5.1603E-03_JPRB,6.1015E-03_JPRB,&
+ & 6.6813E-03_JPRB,6.2533E-03_JPRB,4.8508E-02_JPRB/)  
+KAO( :, 3, 9,16) = (/&
+ & 2.2044E-03_JPRB,2.6160E-03_JPRB,5.0727E-03_JPRB,7.3140E-03_JPRB,9.5554E-03_JPRB,1.1250E-02_JPRB,&
+ & 1.2412E-02_JPRB,1.1623E-02_JPRB,8.8725E-02_JPRB/)  
+KAO( :, 4, 9,16) = (/&
+ & 2.1701E-03_JPRB,4.4267E-03_JPRB,8.5607E-03_JPRB,1.2545E-02_JPRB,1.6038E-02_JPRB,1.9134E-02_JPRB,&
+ & 2.1125E-02_JPRB,1.9740E-02_JPRB,1.5078E-01_JPRB/)  
+KAO( :, 5, 9,16) = (/&
+ & 2.1291E-03_JPRB,6.8813E-03_JPRB,1.3705E-02_JPRB,1.9867E-02_JPRB,2.5629E-02_JPRB,3.0522E-02_JPRB,&
+ & 3.3472E-02_JPRB,3.1537E-02_JPRB,2.4056E-01_JPRB/)  
+KAO( :, 1,10,16) = (/&
+ & 2.6049E-03_JPRB,2.2811E-03_JPRB,1.9524E-03_JPRB,1.6297E-03_JPRB,1.9817E-03_JPRB,2.3323E-03_JPRB,&
+ & 2.4538E-03_JPRB,1.0919E-07_JPRB,9.9434E-02_JPRB/)  
+KAO( :, 2,10,16) = (/&
+ & 2.5564E-03_JPRB,2.2387E-03_JPRB,2.3682E-03_JPRB,3.4024E-03_JPRB,4.3056E-03_JPRB,4.9923E-03_JPRB,&
+ & 5.3151E-03_JPRB,4.7395E-03_JPRB,2.1164E-01_JPRB/)  
+KAO( :, 3,10,16) = (/&
+ & 2.5312E-03_JPRB,2.3572E-03_JPRB,4.5332E-03_JPRB,6.5179E-03_JPRB,8.3516E-03_JPRB,9.6321E-03_JPRB,&
+ & 1.0262E-02_JPRB,9.2275E-03_JPRB,4.0466E-01_JPRB/)  
+KAO( :, 4,10,16) = (/&
+ & 2.4933E-03_JPRB,4.1318E-03_JPRB,7.9555E-03_JPRB,1.1428E-02_JPRB,1.4719E-02_JPRB,1.6992E-02_JPRB,&
+ & 1.8127E-02_JPRB,1.6262E-02_JPRB,7.1180E-01_JPRB/)  
+KAO( :, 5,10,16) = (/&
+ & 2.4587E-03_JPRB,6.7099E-03_JPRB,1.3086E-02_JPRB,1.8862E-02_JPRB,2.3880E-02_JPRB,2.7946E-02_JPRB,&
+ & 2.9807E-02_JPRB,2.6793E-02_JPRB,1.1699E+00_JPRB/)  
+KAO( :, 1,11,16) = (/&
+ & 3.0995E-03_JPRB,2.7200E-03_JPRB,2.3118E-03_JPRB,1.9403E-03_JPRB,2.2912E-03_JPRB,2.6188E-03_JPRB,&
+ & 2.6729E-03_JPRB,9.6247E-08_JPRB,2.0911E-01_JPRB/)  
+KAO( :, 2,11,16) = (/&
+ & 2.9890E-03_JPRB,2.6201E-03_JPRB,2.7716E-03_JPRB,3.9533E-03_JPRB,4.9561E-03_JPRB,5.6265E-03_JPRB,&
+ & 5.7942E-03_JPRB,4.9820E-03_JPRB,4.4548E-01_JPRB/)  
+KAO( :, 3,11,16) = (/&
+ & 2.9190E-03_JPRB,2.7609E-03_JPRB,5.3580E-03_JPRB,7.5536E-03_JPRB,9.5654E-03_JPRB,1.0853E-02_JPRB,&
+ & 1.1187E-02_JPRB,9.7006E-03_JPRB,8.5245E-01_JPRB/)  
+KAO( :, 4,11,16) = (/&
+ & 2.8864E-03_JPRB,4.8539E-03_JPRB,9.3197E-03_JPRB,1.3213E-02_JPRB,1.6850E-02_JPRB,1.9193E-02_JPRB,&
+ & 1.9763E-02_JPRB,1.7093E-02_JPRB,1.5055E+00_JPRB/)  
+KAO( :, 5,11,16) = (/&
+ & 2.8813E-03_JPRB,7.9127E-03_JPRB,1.5164E-02_JPRB,2.1854E-02_JPRB,2.7083E-02_JPRB,3.1374E-02_JPRB,&
+ & 3.2509E-02_JPRB,2.8179E-02_JPRB,2.4634E+00_JPRB/)  
+KAO( :, 1,12,16) = (/&
+ & 3.7114E-03_JPRB,3.2586E-03_JPRB,2.7915E-03_JPRB,2.3232E-03_JPRB,2.6631E-03_JPRB,3.0175E-03_JPRB,&
+ & 3.0634E-03_JPRB,8.7203E-08_JPRB,3.2918E-01_JPRB/)  
+KAO( :, 2,12,16) = (/&
+ & 3.5714E-03_JPRB,3.1255E-03_JPRB,3.2432E-03_JPRB,4.6151E-03_JPRB,5.7633E-03_JPRB,6.4683E-03_JPRB,&
+ & 6.5276E-03_JPRB,5.5718E-03_JPRB,7.0176E-01_JPRB/)  
+KAO( :, 3,12,16) = (/&
+ & 3.4916E-03_JPRB,3.2858E-03_JPRB,6.3152E-03_JPRB,8.8262E-03_JPRB,1.0981E-02_JPRB,1.2464E-02_JPRB,&
+ & 1.2740E-02_JPRB,1.0731E-02_JPRB,1.3410E+00_JPRB/)  
+KAO( :, 4,12,16) = (/&
+ & 3.4311E-03_JPRB,5.7096E-03_JPRB,1.0941E-02_JPRB,1.5646E-02_JPRB,1.9404E-02_JPRB,2.2034E-02_JPRB,&
+ & 2.2454E-02_JPRB,1.9063E-02_JPRB,2.3582E+00_JPRB/)  
+KAO( :, 5,12,16) = (/&
+ & 3.4152E-03_JPRB,9.2951E-03_JPRB,1.7728E-02_JPRB,2.5434E-02_JPRB,3.1194E-02_JPRB,3.5945E-02_JPRB,&
+ & 3.6575E-02_JPRB,3.1362E-02_JPRB,3.8718E+00_JPRB/)  
+KAO( :, 1,13,16) = (/&
+ & 4.4410E-03_JPRB,3.8860E-03_JPRB,3.3353E-03_JPRB,2.7740E-03_JPRB,3.0544E-03_JPRB,3.4238E-03_JPRB,&
+ & 3.4509E-03_JPRB,2.8859E-03_JPRB,4.1592E-01_JPRB/)  
+KAO( :, 2,13,16) = (/&
+ & 4.2685E-03_JPRB,3.7372E-03_JPRB,3.7732E-03_JPRB,5.3427E-03_JPRB,6.6266E-03_JPRB,7.3589E-03_JPRB,&
+ & 7.3233E-03_JPRB,6.2265E-03_JPRB,8.8643E-01_JPRB/)  
+KAO( :, 3,13,16) = (/&
+ & 4.1797E-03_JPRB,3.9191E-03_JPRB,7.1821E-03_JPRB,1.0185E-02_JPRB,1.2582E-02_JPRB,1.4162E-02_JPRB,&
+ & 1.4321E-02_JPRB,1.1935E-02_JPRB,1.6929E+00_JPRB/)  
+KAO( :, 4,13,16) = (/&
+ & 4.0934E-03_JPRB,6.6879E-03_JPRB,1.2699E-02_JPRB,1.8078E-02_JPRB,2.2220E-02_JPRB,2.4912E-02_JPRB,&
+ & 2.5205E-02_JPRB,2.1207E-02_JPRB,2.9775E+00_JPRB/)  
+KAO( :, 5,13,16) = (/&
+ & 4.0583E-03_JPRB,1.0796E-02_JPRB,2.0731E-02_JPRB,2.9284E-02_JPRB,3.5883E-02_JPRB,4.0713E-02_JPRB,&
+ & 4.0964E-02_JPRB,3.4894E-02_JPRB,4.8770E+00_JPRB/)  
+
+!     The array KBO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels < ~100mb and temperatures. The first 
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this pressure 
+!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for
+!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  
+!     The second index, JP, runs from 13 to 59 and refers to the JPth
+!     reference pressure level (see taumol.f for the value of these
+!     pressure levels in mb).  The third index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+
+KBO( :,13, 1) = (/&
+ & 5.1259E-02_JPRB,7.3611E-02_JPRB,1.0293E-01_JPRB,1.3958E-01_JPRB,1.8370E-01_JPRB/)  
+KBO( :,14, 1) = (/&
+ & 4.5713E-02_JPRB,6.5277E-02_JPRB,9.0553E-02_JPRB,1.2145E-01_JPRB,1.5795E-01_JPRB/)  
+KBO( :,15, 1) = (/&
+ & 4.0795E-02_JPRB,5.7938E-02_JPRB,7.9664E-02_JPRB,1.0581E-01_JPRB,1.3605E-01_JPRB/)  
+KBO( :,16, 1) = (/&
+ & 3.6460E-02_JPRB,5.1532E-02_JPRB,7.0278E-02_JPRB,9.2517E-02_JPRB,1.1775E-01_JPRB/)  
+KBO( :,17, 1) = (/&
+ & 3.2358E-02_JPRB,4.5390E-02_JPRB,6.1388E-02_JPRB,8.0070E-02_JPRB,1.0088E-01_JPRB/)  
+KBO( :,18, 1) = (/&
+ & 2.8485E-02_JPRB,3.9634E-02_JPRB,5.3109E-02_JPRB,6.8586E-02_JPRB,8.5607E-02_JPRB/)  
+KBO( :,19, 1) = (/&
+ & 2.4839E-02_JPRB,3.4251E-02_JPRB,4.5451E-02_JPRB,5.8119E-02_JPRB,7.1935E-02_JPRB/)  
+KBO( :,20, 1) = (/&
+ & 2.1646E-02_JPRB,2.9549E-02_JPRB,3.8829E-02_JPRB,4.9218E-02_JPRB,6.0534E-02_JPRB/)  
+KBO( :,21, 1) = (/&
+ & 1.8726E-02_JPRB,2.5319E-02_JPRB,3.2990E-02_JPRB,4.1539E-02_JPRB,5.0831E-02_JPRB/)  
+KBO( :,22, 1) = (/&
+ & 1.6430E-02_JPRB,2.1972E-02_JPRB,2.8373E-02_JPRB,3.5469E-02_JPRB,4.3144E-02_JPRB/)  
+KBO( :,23, 1) = (/&
+ & 1.4344E-02_JPRB,1.9007E-02_JPRB,2.4347E-02_JPRB,3.0236E-02_JPRB,3.6575E-02_JPRB/)  
+KBO( :,24, 1) = (/&
+ & 1.2498E-02_JPRB,1.6422E-02_JPRB,2.0874E-02_JPRB,2.5759E-02_JPRB,3.0990E-02_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART11',1,ZHOOK_HANDLE)
+END SUBROUTINE PART11
+
+
+SUBROUTINE PART12
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART12',0,ZHOOK_HANDLE)
+
+
+KBO( :,25, 1) = (/&
+ & 1.0890E-02_JPRB,1.4194E-02_JPRB,1.7906E-02_JPRB,2.1962E-02_JPRB,2.6282E-02_JPRB/)  
+KBO( :,26, 1) = (/&
+ & 9.5169E-03_JPRB,1.2303E-02_JPRB,1.5406E-02_JPRB,1.8780E-02_JPRB,2.2347E-02_JPRB/)  
+KBO( :,27, 1) = (/&
+ & 8.3127E-03_JPRB,1.0661E-02_JPRB,1.3260E-02_JPRB,1.6073E-02_JPRB,1.9015E-02_JPRB/)  
+KBO( :,28, 1) = (/&
+ & 7.2555E-03_JPRB,9.2333E-03_JPRB,1.1414E-02_JPRB,1.3752E-02_JPRB,1.6182E-02_JPRB/)  
+KBO( :,29, 1) = (/&
+ & 6.3460E-03_JPRB,8.0168E-03_JPRB,9.8497E-03_JPRB,1.1797E-02_JPRB,1.3808E-02_JPRB/)  
+KBO( :,30, 1) = (/&
+ & 5.5479E-03_JPRB,6.9613E-03_JPRB,8.4972E-03_JPRB,1.0118E-02_JPRB,1.1783E-02_JPRB/)  
+KBO( :,31, 1) = (/&
+ & 4.8584E-03_JPRB,6.0543E-03_JPRB,7.3446E-03_JPRB,8.6964E-03_JPRB,1.0081E-02_JPRB/)  
+KBO( :,32, 1) = (/&
+ & 4.2533E-03_JPRB,5.2649E-03_JPRB,6.3493E-03_JPRB,7.4778E-03_JPRB,8.6341E-03_JPRB/)  
+KBO( :,33, 1) = (/&
+ & 3.7229E-03_JPRB,4.5793E-03_JPRB,5.4910E-03_JPRB,6.4373E-03_JPRB,7.4041E-03_JPRB/)  
+KBO( :,34, 1) = (/&
+ & 3.2276E-03_JPRB,3.9492E-03_JPRB,4.7134E-03_JPRB,5.5048E-03_JPRB,6.3115E-03_JPRB/)  
+KBO( :,35, 1) = (/&
+ & 2.7399E-03_JPRB,3.3442E-03_JPRB,3.9827E-03_JPRB,4.6441E-03_JPRB,5.3183E-03_JPRB/)  
+KBO( :,36, 1) = (/&
+ & 2.2726E-03_JPRB,2.7751E-03_JPRB,3.3064E-03_JPRB,3.8585E-03_JPRB,4.4216E-03_JPRB/)  
+KBO( :,37, 1) = (/&
+ & 1.8221E-03_JPRB,2.2350E-03_JPRB,2.6736E-03_JPRB,3.1310E-03_JPRB,3.5993E-03_JPRB/)  
+KBO( :,38, 1) = (/&
+ & 1.4592E-03_JPRB,1.7985E-03_JPRB,2.1611E-03_JPRB,2.5404E-03_JPRB,2.9304E-03_JPRB/)  
+KBO( :,39, 1) = (/&
+ & 1.1699E-03_JPRB,1.4493E-03_JPRB,1.7501E-03_JPRB,2.0658E-03_JPRB,2.3919E-03_JPRB/)  
+KBO( :,40, 1) = (/&
+ & 9.1194E-04_JPRB,1.1380E-03_JPRB,1.3840E-03_JPRB,1.6433E-03_JPRB,1.9130E-03_JPRB/)  
+KBO( :,41, 1) = (/&
+ & 7.0723E-04_JPRB,8.8961E-04_JPRB,1.0899E-03_JPRB,1.3025E-03_JPRB,1.5252E-03_JPRB/)  
+KBO( :,42, 1) = (/&
+ & 5.4756E-04_JPRB,6.9456E-04_JPRB,8.5764E-04_JPRB,1.0321E-03_JPRB,1.2157E-03_JPRB/)  
+KBO( :,43, 1) = (/&
+ & 4.1699E-04_JPRB,5.3448E-04_JPRB,6.6629E-04_JPRB,8.0890E-04_JPRB,9.6007E-04_JPRB/)  
+KBO( :,44, 1) = (/&
+ & 3.1440E-04_JPRB,4.0792E-04_JPRB,5.1407E-04_JPRB,6.3038E-04_JPRB,7.5481E-04_JPRB/)  
+KBO( :,45, 1) = (/&
+ & 2.3640E-04_JPRB,3.1074E-04_JPRB,3.9606E-04_JPRB,4.9085E-04_JPRB,5.9335E-04_JPRB/)  
+KBO( :,46, 1) = (/&
+ & 1.7594E-04_JPRB,2.3455E-04_JPRB,3.0267E-04_JPRB,3.7967E-04_JPRB,4.6391E-04_JPRB/)  
+KBO( :,47, 1) = (/&
+ & 1.2843E-04_JPRB,1.7389E-04_JPRB,2.2775E-04_JPRB,2.8951E-04_JPRB,3.5820E-04_JPRB/)  
+KBO( :,48, 1) = (/&
+ & 9.3343E-05_JPRB,1.2837E-04_JPRB,1.7092E-04_JPRB,2.2045E-04_JPRB,2.7649E-04_JPRB/)  
+KBO( :,49, 1) = (/&
+ & 6.7599E-05_JPRB,9.4536E-05_JPRB,1.2808E-04_JPRB,1.6786E-04_JPRB,2.1369E-04_JPRB/)  
+KBO( :,50, 1) = (/&
+ & 4.8948E-05_JPRB,6.9502E-05_JPRB,9.5623E-05_JPRB,1.2729E-04_JPRB,1.6435E-04_JPRB/)  
+KBO( :,51, 1) = (/&
+ & 3.5346E-05_JPRB,5.0921E-05_JPRB,7.1079E-05_JPRB,9.6095E-05_JPRB,1.2578E-04_JPRB/)  
+KBO( :,52, 1) = (/&
+ & 2.5450E-05_JPRB,3.7196E-05_JPRB,5.2726E-05_JPRB,7.2442E-05_JPRB,9.6232E-05_JPRB/)  
+KBO( :,53, 1) = (/&
+ & 1.8296E-05_JPRB,2.7103E-05_JPRB,3.9075E-05_JPRB,5.4599E-05_JPRB,7.3735E-05_JPRB/)  
+KBO( :,54, 1) = (/&
+ & 1.3152E-05_JPRB,1.9639E-05_JPRB,2.8663E-05_JPRB,4.0549E-05_JPRB,5.5484E-05_JPRB/)  
+KBO( :,55, 1) = (/&
+ & 9.4445E-06_JPRB,1.4166E-05_JPRB,2.0853E-05_JPRB,2.9772E-05_JPRB,4.1184E-05_JPRB/)  
+KBO( :,56, 1) = (/&
+ & 6.7805E-06_JPRB,1.0206E-05_JPRB,1.5127E-05_JPRB,2.1803E-05_JPRB,3.0469E-05_JPRB/)  
+KBO( :,57, 1) = (/&
+ & 4.8676E-06_JPRB,7.3427E-06_JPRB,1.0945E-05_JPRB,1.5922E-05_JPRB,2.2468E-05_JPRB/)  
+KBO( :,58, 1) = (/&
+ & 3.5190E-06_JPRB,5.3050E-06_JPRB,7.9365E-06_JPRB,1.1632E-05_JPRB,1.6547E-05_JPRB/)  
+KBO( :,59, 1) = (/&
+ & 2.7224E-06_JPRB,4.0826E-06_JPRB,6.0785E-06_JPRB,8.8720E-06_JPRB,1.2572E-05_JPRB/)  
+KBO( :,13, 2) = (/&
+ & 2.7119E-01_JPRB,3.6310E-01_JPRB,4.7414E-01_JPRB,6.0307E-01_JPRB,7.4957E-01_JPRB/)  
+KBO( :,14, 2) = (/&
+ & 2.5353E-01_JPRB,3.3756E-01_JPRB,4.3733E-01_JPRB,5.5227E-01_JPRB,6.8177E-01_JPRB/)  
+KBO( :,15, 2) = (/&
+ & 2.3613E-01_JPRB,3.1296E-01_JPRB,4.0272E-01_JPRB,5.0521E-01_JPRB,6.1950E-01_JPRB/)  
+KBO( :,16, 2) = (/&
+ & 2.1883E-01_JPRB,2.8892E-01_JPRB,3.7007E-01_JPRB,4.6171E-01_JPRB,5.6222E-01_JPRB/)  
+KBO( :,17, 2) = (/&
+ & 2.0046E-01_JPRB,2.6387E-01_JPRB,3.3671E-01_JPRB,4.1802E-01_JPRB,5.0615E-01_JPRB/)  
+KBO( :,18, 2) = (/&
+ & 1.8162E-01_JPRB,2.3837E-01_JPRB,3.0306E-01_JPRB,3.7451E-01_JPRB,4.5033E-01_JPRB/)  
+KBO( :,19, 2) = (/&
+ & 1.6273E-01_JPRB,2.1280E-01_JPRB,2.6942E-01_JPRB,3.3081E-01_JPRB,3.9474E-01_JPRB/)  
+KBO( :,20, 2) = (/&
+ & 1.4529E-01_JPRB,1.8899E-01_JPRB,2.3756E-01_JPRB,2.8972E-01_JPRB,3.4258E-01_JPRB/)  
+KBO( :,21, 2) = (/&
+ & 1.2870E-01_JPRB,1.6616E-01_JPRB,2.0730E-01_JPRB,2.5076E-01_JPRB,2.9377E-01_JPRB/)  
+KBO( :,22, 2) = (/&
+ & 1.1499E-01_JPRB,1.4695E-01_JPRB,1.8158E-01_JPRB,2.1711E-01_JPRB,2.5164E-01_JPRB/)  
+KBO( :,23, 2) = (/&
+ & 1.0194E-01_JPRB,1.2892E-01_JPRB,1.5758E-01_JPRB,1.8624E-01_JPRB,2.1370E-01_JPRB/)  
+KBO( :,24, 2) = (/&
+ & 8.9789E-02_JPRB,1.1229E-01_JPRB,1.3567E-01_JPRB,1.5862E-01_JPRB,1.8060E-01_JPRB/)  
+KBO( :,25, 2) = (/&
+ & 7.8662E-02_JPRB,9.7205E-02_JPRB,1.1609E-01_JPRB,1.3460E-01_JPRB,1.5226E-01_JPRB/)  
+KBO( :,26, 2) = (/&
+ & 6.8677E-02_JPRB,8.3839E-02_JPRB,9.9146E-02_JPRB,1.1408E-01_JPRB,1.2832E-01_JPRB/)  
+KBO( :,27, 2) = (/&
+ & 5.9597E-02_JPRB,7.2017E-02_JPRB,8.4456E-02_JPRB,9.6525E-02_JPRB,1.0804E-01_JPRB/)  
+KBO( :,28, 2) = (/&
+ & 5.1479E-02_JPRB,6.1677E-02_JPRB,7.1788E-02_JPRB,8.1553E-02_JPRB,9.0870E-02_JPRB/)  
+KBO( :,29, 2) = (/&
+ & 4.4418E-02_JPRB,5.2773E-02_JPRB,6.1008E-02_JPRB,6.8941E-02_JPRB,7.6507E-02_JPRB/)  
+KBO( :,30, 2) = (/&
+ & 3.8240E-02_JPRB,4.5084E-02_JPRB,5.1802E-02_JPRB,5.8270E-02_JPRB,6.4403E-02_JPRB/)  
+KBO( :,31, 2) = (/&
+ & 3.2906E-02_JPRB,3.8522E-02_JPRB,4.4011E-02_JPRB,4.9308E-02_JPRB,5.4268E-02_JPRB/)  
+KBO( :,32, 2) = (/&
+ & 2.8286E-02_JPRB,3.2899E-02_JPRB,3.7402E-02_JPRB,4.1721E-02_JPRB,4.5728E-02_JPRB/)  
+KBO( :,33, 2) = (/&
+ & 2.4296E-02_JPRB,2.8097E-02_JPRB,3.1779E-02_JPRB,3.5285E-02_JPRB,3.8510E-02_JPRB/)  
+KBO( :,34, 2) = (/&
+ & 2.0730E-02_JPRB,2.3844E-02_JPRB,2.6852E-02_JPRB,2.9683E-02_JPRB,3.2295E-02_JPRB/)  
+KBO( :,35, 2) = (/&
+ & 1.7417E-02_JPRB,1.9970E-02_JPRB,2.2433E-02_JPRB,2.4741E-02_JPRB,2.6876E-02_JPRB/)  
+KBO( :,36, 2) = (/&
+ & 1.4391E-02_JPRB,1.6493E-02_JPRB,1.8520E-02_JPRB,2.0421E-02_JPRB,2.2183E-02_JPRB/)  
+KBO( :,37, 2) = (/&
+ & 1.1614E-02_JPRB,1.3354E-02_JPRB,1.5031E-02_JPRB,1.6611E-02_JPRB,1.8085E-02_JPRB/)  
+KBO( :,38, 2) = (/&
+ & 9.3636E-03_JPRB,1.0802E-02_JPRB,1.2193E-02_JPRB,1.3510E-02_JPRB,1.4737E-02_JPRB/)  
+KBO( :,39, 2) = (/&
+ & 7.5541E-03_JPRB,8.7439E-03_JPRB,9.8975E-03_JPRB,1.0998E-02_JPRB,1.2026E-02_JPRB/)  
+KBO( :,40, 2) = (/&
+ & 5.9794E-03_JPRB,6.9606E-03_JPRB,7.9183E-03_JPRB,8.8404E-03_JPRB,9.7022E-03_JPRB/)  
+KBO( :,41, 2) = (/&
+ & 4.7162E-03_JPRB,5.5242E-03_JPRB,6.3175E-03_JPRB,7.0884E-03_JPRB,7.8122E-03_JPRB/)  
+KBO( :,42, 2) = (/&
+ & 3.7141E-03_JPRB,4.3793E-03_JPRB,5.0373E-03_JPRB,5.6797E-03_JPRB,6.2875E-03_JPRB/)  
+KBO( :,43, 2) = (/&
+ & 2.8894E-03_JPRB,3.4367E-03_JPRB,3.9819E-03_JPRB,4.5167E-03_JPRB,5.0302E-03_JPRB/)  
+KBO( :,44, 2) = (/&
+ & 2.2311E-03_JPRB,2.6800E-03_JPRB,3.1318E-03_JPRB,3.5777E-03_JPRB,4.0109E-03_JPRB/)  
+KBO( :,45, 2) = (/&
+ & 1.7190E-03_JPRB,2.0864E-03_JPRB,2.4595E-03_JPRB,2.8305E-03_JPRB,3.1948E-03_JPRB/)  
+KBO( :,46, 2) = (/&
+ & 1.3144E-03_JPRB,1.6127E-03_JPRB,1.9198E-03_JPRB,2.2288E-03_JPRB,2.5338E-03_JPRB/)  
+KBO( :,47, 2) = (/&
+ & 9.9072E-04_JPRB,1.2307E-03_JPRB,1.4827E-03_JPRB,1.7388E-03_JPRB,1.9939E-03_JPRB/)  
+KBO( :,48, 2) = (/&
+ & 7.4328E-04_JPRB,9.3584E-04_JPRB,1.1422E-03_JPRB,1.3542E-03_JPRB,1.5673E-03_JPRB/)  
+KBO( :,49, 2) = (/&
+ & 5.5568E-04_JPRB,7.0962E-04_JPRB,8.7747E-04_JPRB,1.0533E-03_JPRB,1.2311E-03_JPRB/)  
+KBO( :,50, 2) = (/&
+ & 4.1543E-04_JPRB,5.3759E-04_JPRB,6.7298E-04_JPRB,8.1754E-04_JPRB,9.6501E-04_JPRB/)  
+KBO( :,51, 2) = (/&
+ & 3.0972E-04_JPRB,4.0612E-04_JPRB,5.1480E-04_JPRB,6.3279E-04_JPRB,7.5447E-04_JPRB/)  
+KBO( :,52, 2) = (/&
+ & 2.2960E-04_JPRB,3.0589E-04_JPRB,3.9277E-04_JPRB,4.8863E-04_JPRB,5.8929E-04_JPRB/)  
+KBO( :,53, 2) = (/&
+ & 1.6933E-04_JPRB,2.2968E-04_JPRB,2.9891E-04_JPRB,3.7665E-04_JPRB,4.6003E-04_JPRB/)  
+KBO( :,54, 2) = (/&
+ & 1.2476E-04_JPRB,1.7207E-04_JPRB,2.2658E-04_JPRB,2.8866E-04_JPRB,3.5637E-04_JPRB/)  
+KBO( :,55, 2) = (/&
+ & 9.1638E-05_JPRB,1.2832E-04_JPRB,1.7102E-04_JPRB,2.1999E-04_JPRB,2.7423E-04_JPRB/)  
+KBO( :,56, 2) = (/&
+ & 6.6998E-05_JPRB,9.5270E-05_JPRB,1.2875E-04_JPRB,1.6725E-04_JPRB,2.1034E-04_JPRB/)  
+KBO( :,57, 2) = (/&
+ & 4.8715E-05_JPRB,7.0398E-05_JPRB,9.6609E-05_JPRB,1.2676E-04_JPRB,1.6093E-04_JPRB/)  
+KBO( :,58, 2) = (/&
+ & 3.5429E-05_JPRB,5.2045E-05_JPRB,7.2448E-05_JPRB,9.6079E-05_JPRB,1.2306E-04_JPRB/)  
+KBO( :,59, 2) = (/&
+ & 2.7567E-05_JPRB,4.0660E-05_JPRB,5.6784E-05_JPRB,7.5471E-05_JPRB,9.6741E-05_JPRB/)  
+KBO( :,13, 3) = (/&
+ & 1.0985E+00_JPRB,1.3471E+00_JPRB,1.6024E+00_JPRB,1.8569E+00_JPRB,2.1065E+00_JPRB/)  
+KBO( :,14, 3) = (/&
+ & 1.0057E+00_JPRB,1.2261E+00_JPRB,1.4487E+00_JPRB,1.6701E+00_JPRB,1.8867E+00_JPRB/)  
+KBO( :,15, 3) = (/&
+ & 9.2327E-01_JPRB,1.1163E+00_JPRB,1.3096E+00_JPRB,1.5013E+00_JPRB,1.6927E+00_JPRB/)  
+KBO( :,16, 3) = (/&
+ & 8.4655E-01_JPRB,1.0142E+00_JPRB,1.1813E+00_JPRB,1.3501E+00_JPRB,1.5181E+00_JPRB/)  
+KBO( :,17, 3) = (/&
+ & 7.7095E-01_JPRB,9.1488E-01_JPRB,1.0609E+00_JPRB,1.2083E+00_JPRB,1.3539E+00_JPRB/)  
+KBO( :,18, 3) = (/&
+ & 6.9584E-01_JPRB,8.2061E-01_JPRB,9.4796E-01_JPRB,1.0751E+00_JPRB,1.2000E+00_JPRB/)  
+KBO( :,19, 3) = (/&
+ & 6.2275E-01_JPRB,7.3128E-01_JPRB,8.4109E-01_JPRB,9.5006E-01_JPRB,1.0557E+00_JPRB/)  
+KBO( :,20, 3) = (/&
+ & 5.5466E-01_JPRB,6.4877E-01_JPRB,7.4343E-01_JPRB,8.3591E-01_JPRB,9.2515E-01_JPRB/)  
+KBO( :,21, 3) = (/&
+ & 4.8960E-01_JPRB,5.7076E-01_JPRB,6.5178E-01_JPRB,7.3033E-01_JPRB,8.0430E-01_JPRB/)  
+KBO( :,22, 3) = (/&
+ & 4.3303E-01_JPRB,5.0259E-01_JPRB,5.7096E-01_JPRB,6.3565E-01_JPRB,6.9649E-01_JPRB/)  
+KBO( :,23, 3) = (/&
+ & 3.8028E-01_JPRB,4.3904E-01_JPRB,4.9534E-01_JPRB,5.4802E-01_JPRB,5.9732E-01_JPRB/)  
+KBO( :,24, 3) = (/&
+ & 3.3218E-01_JPRB,3.8059E-01_JPRB,4.2634E-01_JPRB,4.6878E-01_JPRB,5.0765E-01_JPRB/)  
+KBO( :,25, 3) = (/&
+ & 2.8849E-01_JPRB,3.2793E-01_JPRB,3.6460E-01_JPRB,3.9816E-01_JPRB,4.2820E-01_JPRB/)  
+KBO( :,26, 3) = (/&
+ & 2.4952E-01_JPRB,2.8128E-01_JPRB,3.1016E-01_JPRB,3.3620E-01_JPRB,3.5944E-01_JPRB/)  
+KBO( :,27, 3) = (/&
+ & 2.1458E-01_JPRB,2.3971E-01_JPRB,2.6222E-01_JPRB,2.8249E-01_JPRB,3.0071E-01_JPRB/)  
+KBO( :,28, 3) = (/&
+ & 1.8348E-01_JPRB,2.0307E-01_JPRB,2.2063E-01_JPRB,2.3668E-01_JPRB,2.5103E-01_JPRB/)  
+KBO( :,29, 3) = (/&
+ & 1.5612E-01_JPRB,1.7138E-01_JPRB,1.8529E-01_JPRB,1.9807E-01_JPRB,2.0946E-01_JPRB/)  
+KBO( :,30, 3) = (/&
+ & 1.3217E-01_JPRB,1.4426E-01_JPRB,1.5536E-01_JPRB,1.6555E-01_JPRB,1.7467E-01_JPRB/)  
+KBO( :,31, 3) = (/&
+ & 1.1164E-01_JPRB,1.2131E-01_JPRB,1.3020E-01_JPRB,1.3837E-01_JPRB,1.4579E-01_JPRB/)  
+KBO( :,32, 3) = (/&
+ & 9.4160E-02_JPRB,1.0190E-01_JPRB,1.0909E-01_JPRB,1.1569E-01_JPRB,1.2174E-01_JPRB/)  
+KBO( :,33, 3) = (/&
+ & 7.9328E-02_JPRB,8.5579E-02_JPRB,9.1418E-02_JPRB,9.6812E-02_JPRB,1.0174E-01_JPRB/)  
+KBO( :,34, 3) = (/&
+ & 6.6575E-02_JPRB,7.1681E-02_JPRB,7.6449E-02_JPRB,8.0861E-02_JPRB,8.4837E-02_JPRB/)  
+KBO( :,35, 3) = (/&
+ & 5.5452E-02_JPRB,5.9669E-02_JPRB,6.3583E-02_JPRB,6.7195E-02_JPRB,7.0402E-02_JPRB/)  
+KBO( :,36, 3) = (/&
+ & 4.5817E-02_JPRB,4.9311E-02_JPRB,5.2541E-02_JPRB,5.5500E-02_JPRB,5.8136E-02_JPRB/)  
+KBO( :,37, 3) = (/&
+ & 3.7392E-02_JPRB,4.0307E-02_JPRB,4.2995E-02_JPRB,4.5443E-02_JPRB,4.7667E-02_JPRB/)  
+KBO( :,38, 3) = (/&
+ & 3.0507E-02_JPRB,3.2931E-02_JPRB,3.5170E-02_JPRB,3.7213E-02_JPRB,3.9076E-02_JPRB/)  
+KBO( :,39, 3) = (/&
+ & 2.4900E-02_JPRB,2.6916E-02_JPRB,2.8785E-02_JPRB,3.0496E-02_JPRB,3.2065E-02_JPRB/)  
+KBO( :,40, 3) = (/&
+ & 2.0117E-02_JPRB,2.1794E-02_JPRB,2.3370E-02_JPRB,2.4808E-02_JPRB,2.6137E-02_JPRB/)  
+KBO( :,41, 3) = (/&
+ & 1.6225E-02_JPRB,1.7626E-02_JPRB,1.8947E-02_JPRB,2.0157E-02_JPRB,2.1285E-02_JPRB/)  
+KBO( :,42, 3) = (/&
+ & 1.3079E-02_JPRB,1.4250E-02_JPRB,1.5359E-02_JPRB,1.6379E-02_JPRB,1.7329E-02_JPRB/)  
+KBO( :,43, 3) = (/&
+ & 1.0482E-02_JPRB,1.1462E-02_JPRB,1.2394E-02_JPRB,1.3257E-02_JPRB,1.4064E-02_JPRB/)  
+KBO( :,44, 3) = (/&
+ & 8.3710E-03_JPRB,9.1942E-03_JPRB,9.9787E-03_JPRB,1.0713E-02_JPRB,1.1396E-02_JPRB/)  
+KBO( :,45, 3) = (/&
+ & 6.6788E-03_JPRB,7.3702E-03_JPRB,8.0298E-03_JPRB,8.6522E-03_JPRB,9.2329E-03_JPRB/)  
+KBO( :,46, 3) = (/&
+ & 5.3081E-03_JPRB,5.8891E-03_JPRB,6.4422E-03_JPRB,6.9706E-03_JPRB,7.4651E-03_JPRB/)  
+KBO( :,47, 3) = (/&
+ & 4.1866E-03_JPRB,4.6766E-03_JPRB,5.1419E-03_JPRB,5.5881E-03_JPRB,6.0116E-03_JPRB/)  
+KBO( :,48, 3) = (/&
+ & 3.2935E-03_JPRB,3.7074E-03_JPRB,4.1001E-03_JPRB,4.4778E-03_JPRB,4.8397E-03_JPRB/)  
+KBO( :,49, 3) = (/&
+ & 2.5846E-03_JPRB,2.9354E-03_JPRB,3.2677E-03_JPRB,3.5868E-03_JPRB,3.8959E-03_JPRB/)  
+KBO( :,50, 3) = (/&
+ & 2.0269E-03_JPRB,2.3221E-03_JPRB,2.6022E-03_JPRB,2.8709E-03_JPRB,3.1320E-03_JPRB/)  
+KBO( :,51, 3) = (/&
+ & 1.5861E-03_JPRB,1.8335E-03_JPRB,2.0693E-03_JPRB,2.2950E-03_JPRB,2.5144E-03_JPRB/)  
+KBO( :,52, 3) = (/&
+ & 1.2373E-03_JPRB,1.4448E-03_JPRB,1.6433E-03_JPRB,1.8335E-03_JPRB,2.0181E-03_JPRB/)  
+KBO( :,53, 3) = (/&
+ & 9.6238E-04_JPRB,1.1359E-03_JPRB,1.3032E-03_JPRB,1.4639E-03_JPRB,1.6200E-03_JPRB/)  
+KBO( :,54, 3) = (/&
+ & 7.4760E-04_JPRB,8.9109E-04_JPRB,1.0310E-03_JPRB,1.1653E-03_JPRB,1.2951E-03_JPRB/)  
+KBO( :,55, 3) = (/&
+ & 5.7948E-04_JPRB,6.9751E-04_JPRB,8.1351E-04_JPRB,9.2482E-04_JPRB,1.0323E-03_JPRB/)  
+KBO( :,56, 3) = (/&
+ & 4.4747E-04_JPRB,5.4475E-04_JPRB,6.4072E-04_JPRB,7.3311E-04_JPRB,8.2203E-04_JPRB/)  
+KBO( :,57, 3) = (/&
+ & 3.4377E-04_JPRB,4.2418E-04_JPRB,5.0351E-04_JPRB,5.8007E-04_JPRB,6.5383E-04_JPRB/)  
+KBO( :,58, 3) = (/&
+ & 2.6362E-04_JPRB,3.3015E-04_JPRB,3.9544E-04_JPRB,4.5883E-04_JPRB,5.1985E-04_JPRB/)  
+KBO( :,59, 3) = (/&
+ & 2.1059E-04_JPRB,2.6499E-04_JPRB,3.1808E-04_JPRB,3.6954E-04_JPRB,4.1891E-04_JPRB/)  
+KBO( :,13, 4) = (/&
+ & 3.3302E+00_JPRB,3.5900E+00_JPRB,3.8490E+00_JPRB,4.0993E+00_JPRB,4.3544E+00_JPRB/)  
+KBO( :,14, 4) = (/&
+ & 2.9375E+00_JPRB,3.1623E+00_JPRB,3.3912E+00_JPRB,3.6192E+00_JPRB,3.8536E+00_JPRB/)  
+KBO( :,15, 4) = (/&
+ & 2.5847E+00_JPRB,2.7829E+00_JPRB,2.9920E+00_JPRB,3.2042E+00_JPRB,3.4159E+00_JPRB/)  
+KBO( :,16, 4) = (/&
+ & 2.2723E+00_JPRB,2.4555E+00_JPRB,2.6487E+00_JPRB,2.8409E+00_JPRB,3.0352E+00_JPRB/)  
+KBO( :,17, 4) = (/&
+ & 1.9985E+00_JPRB,2.1683E+00_JPRB,2.3422E+00_JPRB,2.5153E+00_JPRB,2.6950E+00_JPRB/)  
+KBO( :,18, 4) = (/&
+ & 1.7574E+00_JPRB,1.9111E+00_JPRB,2.0646E+00_JPRB,2.2235E+00_JPRB,2.3882E+00_JPRB/)  
+KBO( :,19, 4) = (/&
+ & 1.5417E+00_JPRB,1.6771E+00_JPRB,1.8159E+00_JPRB,1.9608E+00_JPRB,2.1091E+00_JPRB/)  
+KBO( :,20, 4) = (/&
+ & 1.3501E+00_JPRB,1.4708E+00_JPRB,1.5966E+00_JPRB,1.7265E+00_JPRB,1.8579E+00_JPRB/)  
+KBO( :,21, 4) = (/&
+ & 1.1792E+00_JPRB,1.2872E+00_JPRB,1.3996E+00_JPRB,1.5140E+00_JPRB,1.6291E+00_JPRB/)  
+KBO( :,22, 4) = (/&
+ & 1.0331E+00_JPRB,1.1299E+00_JPRB,1.2292E+00_JPRB,1.3301E+00_JPRB,1.4294E+00_JPRB/)  
+KBO( :,23, 4) = (/&
+ & 9.0257E-01_JPRB,9.8785E-01_JPRB,1.0758E+00_JPRB,1.1637E+00_JPRB,1.2469E+00_JPRB/)  
+KBO( :,24, 4) = (/&
+ & 7.8462E-01_JPRB,8.6035E-01_JPRB,9.3739E-01_JPRB,1.0117E+00_JPRB,1.0795E+00_JPRB/)  
+KBO( :,25, 4) = (/&
+ & 6.8021E-01_JPRB,7.4644E-01_JPRB,8.1147E-01_JPRB,8.7243E-01_JPRB,9.2768E-01_JPRB/)  
+KBO( :,26, 4) = (/&
+ & 5.8877E-01_JPRB,6.4489E-01_JPRB,6.9856E-01_JPRB,7.4767E-01_JPRB,7.9152E-01_JPRB/)  
+KBO( :,27, 4) = (/&
+ & 5.0790E-01_JPRB,5.5427E-01_JPRB,5.9771E-01_JPRB,6.3660E-01_JPRB,6.7040E-01_JPRB/)  
+KBO( :,28, 4) = (/&
+ & 4.3619E-01_JPRB,4.7420E-01_JPRB,5.0861E-01_JPRB,5.3858E-01_JPRB,5.6428E-01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART12',1,ZHOOK_HANDLE)
+END SUBROUTINE PART12
+
+
+SUBROUTINE PART13
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART13',0,ZHOOK_HANDLE)
+
+
+KBO( :,29, 4) = (/&
+ & 3.7351E-01_JPRB,4.0404E-01_JPRB,4.3062E-01_JPRB,4.5356E-01_JPRB,4.7355E-01_JPRB/)  
+KBO( :,30, 4) = (/&
+ & 3.1877E-01_JPRB,3.4252E-01_JPRB,3.6291E-01_JPRB,3.8087E-01_JPRB,3.9669E-01_JPRB/)  
+KBO( :,31, 4) = (/&
+ & 2.7097E-01_JPRB,2.8918E-01_JPRB,3.0519E-01_JPRB,3.1945E-01_JPRB,3.3218E-01_JPRB/)  
+KBO( :,32, 4) = (/&
+ & 2.2933E-01_JPRB,2.4355E-01_JPRB,2.5629E-01_JPRB,2.6778E-01_JPRB,2.7819E-01_JPRB/)  
+KBO( :,33, 4) = (/&
+ & 1.9352E-01_JPRB,2.0488E-01_JPRB,2.1514E-01_JPRB,2.2453E-01_JPRB,2.3322E-01_JPRB/)  
+KBO( :,34, 4) = (/&
+ & 1.6266E-01_JPRB,1.7186E-01_JPRB,1.8021E-01_JPRB,1.8806E-01_JPRB,1.9533E-01_JPRB/)  
+KBO( :,35, 4) = (/&
+ & 1.3588E-01_JPRB,1.4344E-01_JPRB,1.5044E-01_JPRB,1.5708E-01_JPRB,1.6319E-01_JPRB/)  
+KBO( :,36, 4) = (/&
+ & 1.1281E-01_JPRB,1.1914E-01_JPRB,1.2508E-01_JPRB,1.3072E-01_JPRB,1.3587E-01_JPRB/)  
+KBO( :,37, 4) = (/&
+ & 9.2816E-02_JPRB,9.8205E-02_JPRB,1.0328E-01_JPRB,1.0804E-01_JPRB,1.1242E-01_JPRB/)  
+KBO( :,38, 4) = (/&
+ & 7.6370E-02_JPRB,8.0963E-02_JPRB,8.5283E-02_JPRB,8.9321E-02_JPRB,9.2973E-02_JPRB/)  
+KBO( :,39, 4) = (/&
+ & 6.2888E-02_JPRB,6.6805E-02_JPRB,7.0475E-02_JPRB,7.3875E-02_JPRB,7.6971E-02_JPRB/)  
+KBO( :,40, 4) = (/&
+ & 5.1396E-02_JPRB,5.4708E-02_JPRB,5.7829E-02_JPRB,6.0714E-02_JPRB,6.3350E-02_JPRB/)  
+KBO( :,41, 4) = (/&
+ & 4.1955E-02_JPRB,4.4762E-02_JPRB,4.7396E-02_JPRB,4.9843E-02_JPRB,5.2102E-02_JPRB/)  
+KBO( :,42, 4) = (/&
+ & 3.4234E-02_JPRB,3.6611E-02_JPRB,3.8848E-02_JPRB,4.0922E-02_JPRB,4.2851E-02_JPRB/)  
+KBO( :,43, 4) = (/&
+ & 2.7815E-02_JPRB,2.9825E-02_JPRB,3.1727E-02_JPRB,3.3492E-02_JPRB,3.5154E-02_JPRB/)  
+KBO( :,44, 4) = (/&
+ & 2.2537E-02_JPRB,2.4240E-02_JPRB,2.5867E-02_JPRB,2.7378E-02_JPRB,2.8807E-02_JPRB/)  
+KBO( :,45, 4) = (/&
+ & 1.8246E-02_JPRB,1.9697E-02_JPRB,2.1085E-02_JPRB,2.2374E-02_JPRB,2.3604E-02_JPRB/)  
+KBO( :,46, 4) = (/&
+ & 1.4728E-02_JPRB,1.5964E-02_JPRB,1.7142E-02_JPRB,1.8251E-02_JPRB,1.9308E-02_JPRB/)  
+KBO( :,47, 4) = (/&
+ & 1.1818E-02_JPRB,1.2873E-02_JPRB,1.3878E-02_JPRB,1.4831E-02_JPRB,1.5740E-02_JPRB/)  
+KBO( :,48, 4) = (/&
+ & 9.4657E-03_JPRB,1.0367E-02_JPRB,1.1228E-02_JPRB,1.2052E-02_JPRB,1.2833E-02_JPRB/)  
+KBO( :,49, 4) = (/&
+ & 7.5680E-03_JPRB,8.3421E-03_JPRB,9.0805E-03_JPRB,9.7902E-03_JPRB,1.0464E-02_JPRB/)  
+KBO( :,50, 4) = (/&
+ & 6.0502E-03_JPRB,6.7078E-03_JPRB,7.3374E-03_JPRB,7.9442E-03_JPRB,8.5226E-03_JPRB/)  
+KBO( :,51, 4) = (/&
+ & 4.8299E-03_JPRB,5.3854E-03_JPRB,5.9216E-03_JPRB,6.4376E-03_JPRB,6.9334E-03_JPRB/)  
+KBO( :,52, 4) = (/&
+ & 3.8467E-03_JPRB,4.3164E-03_JPRB,4.7737E-03_JPRB,5.2128E-03_JPRB,5.6384E-03_JPRB/)  
+KBO( :,53, 4) = (/&
+ & 3.0576E-03_JPRB,3.4544E-03_JPRB,3.8447E-03_JPRB,4.2192E-03_JPRB,4.5847E-03_JPRB/)  
+KBO( :,54, 4) = (/&
+ & 2.4302E-03_JPRB,2.7614E-03_JPRB,3.0899E-03_JPRB,3.4056E-03_JPRB,3.7134E-03_JPRB/)  
+KBO( :,55, 4) = (/&
+ & 1.9293E-03_JPRB,2.2038E-03_JPRB,2.4777E-03_JPRB,2.7424E-03_JPRB,2.9994E-03_JPRB/)  
+KBO( :,56, 4) = (/&
+ & 1.5286E-03_JPRB,1.7562E-03_JPRB,1.9841E-03_JPRB,2.2060E-03_JPRB,2.4199E-03_JPRB/)  
+KBO( :,57, 4) = (/&
+ & 1.2085E-03_JPRB,1.3971E-03_JPRB,1.5864E-03_JPRB,1.7724E-03_JPRB,1.9514E-03_JPRB/)  
+KBO( :,58, 4) = (/&
+ & 9.5537E-04_JPRB,1.1118E-03_JPRB,1.2685E-03_JPRB,1.4237E-03_JPRB,1.5733E-03_JPRB/)  
+KBO( :,59, 4) = (/&
+ & 7.7590E-04_JPRB,9.0437E-04_JPRB,1.0323E-03_JPRB,1.1597E-03_JPRB,1.2822E-03_JPRB/)  
+KBO( :,13, 5) = (/&
+ & 6.9141E+00_JPRB,7.1545E+00_JPRB,7.4046E+00_JPRB,7.6833E+00_JPRB,7.9432E+00_JPRB/)  
+KBO( :,14, 5) = (/&
+ & 6.0755E+00_JPRB,6.2987E+00_JPRB,6.5306E+00_JPRB,6.7873E+00_JPRB,7.0278E+00_JPRB/)  
+KBO( :,15, 5) = (/&
+ & 5.3116E+00_JPRB,5.5269E+00_JPRB,5.7512E+00_JPRB,5.9835E+00_JPRB,6.2117E+00_JPRB/)  
+KBO( :,16, 5) = (/&
+ & 4.6343E+00_JPRB,4.8449E+00_JPRB,5.0585E+00_JPRB,5.2837E+00_JPRB,5.5069E+00_JPRB/)  
+KBO( :,17, 5) = (/&
+ & 4.0419E+00_JPRB,4.2430E+00_JPRB,4.4508E+00_JPRB,4.6718E+00_JPRB,4.8821E+00_JPRB/)  
+KBO( :,18, 5) = (/&
+ & 3.5281E+00_JPRB,3.7196E+00_JPRB,3.9254E+00_JPRB,4.1289E+00_JPRB,4.3250E+00_JPRB/)  
+KBO( :,19, 5) = (/&
+ & 3.0859E+00_JPRB,3.2697E+00_JPRB,3.4594E+00_JPRB,3.6428E+00_JPRB,3.8279E+00_JPRB/)  
+KBO( :,20, 5) = (/&
+ & 2.7073E+00_JPRB,2.8768E+00_JPRB,3.0450E+00_JPRB,3.2129E+00_JPRB,3.3880E+00_JPRB/)  
+KBO( :,21, 5) = (/&
+ & 2.3737E+00_JPRB,2.5247E+00_JPRB,2.6757E+00_JPRB,2.8327E+00_JPRB,2.9960E+00_JPRB/)  
+KBO( :,22, 5) = (/&
+ & 2.0857E+00_JPRB,2.2199E+00_JPRB,2.3591E+00_JPRB,2.5039E+00_JPRB,2.6519E+00_JPRB/)  
+KBO( :,23, 5) = (/&
+ & 1.8289E+00_JPRB,1.9512E+00_JPRB,2.0778E+00_JPRB,2.2081E+00_JPRB,2.3436E+00_JPRB/)  
+KBO( :,24, 5) = (/&
+ & 1.6014E+00_JPRB,1.7122E+00_JPRB,1.8266E+00_JPRB,1.9454E+00_JPRB,2.0684E+00_JPRB/)  
+KBO( :,25, 5) = (/&
+ & 1.3998E+00_JPRB,1.4999E+00_JPRB,1.6048E+00_JPRB,1.7138E+00_JPRB,1.8217E+00_JPRB/)  
+KBO( :,26, 5) = (/&
+ & 1.2210E+00_JPRB,1.3132E+00_JPRB,1.4097E+00_JPRB,1.5070E+00_JPRB,1.6011E+00_JPRB/)  
+KBO( :,27, 5) = (/&
+ & 1.0633E+00_JPRB,1.1477E+00_JPRB,1.2343E+00_JPRB,1.3197E+00_JPRB,1.4013E+00_JPRB/)  
+KBO( :,28, 5) = (/&
+ & 9.2471E-01_JPRB,1.0003E+00_JPRB,1.0762E+00_JPRB,1.1506E+00_JPRB,1.2207E+00_JPRB/)  
+KBO( :,29, 5) = (/&
+ & 8.0378E-01_JPRB,8.6991E-01_JPRB,9.3571E-01_JPRB,9.9918E-01_JPRB,1.0579E+00_JPRB/)  
+KBO( :,30, 5) = (/&
+ & 6.9745E-01_JPRB,7.5481E-01_JPRB,8.1124E-01_JPRB,8.6394E-01_JPRB,9.1132E-01_JPRB/)  
+KBO( :,31, 5) = (/&
+ & 6.0465E-01_JPRB,6.5420E-01_JPRB,7.0129E-01_JPRB,7.4415E-01_JPRB,7.8220E-01_JPRB/)  
+KBO( :,32, 5) = (/&
+ & 5.2389E-01_JPRB,5.6576E-01_JPRB,6.0408E-01_JPRB,6.3888E-01_JPRB,6.7018E-01_JPRB/)  
+KBO( :,33, 5) = (/&
+ & 4.5339E-01_JPRB,4.8777E-01_JPRB,5.1895E-01_JPRB,5.4778E-01_JPRB,5.7413E-01_JPRB/)  
+KBO( :,34, 5) = (/&
+ & 3.9043E-01_JPRB,4.1838E-01_JPRB,4.4436E-01_JPRB,4.6859E-01_JPRB,4.9150E-01_JPRB/)  
+KBO( :,35, 5) = (/&
+ & 3.3304E-01_JPRB,3.5641E-01_JPRB,3.7837E-01_JPRB,3.9937E-01_JPRB,4.1969E-01_JPRB/)  
+KBO( :,36, 5) = (/&
+ & 2.8159E-01_JPRB,3.0146E-01_JPRB,3.2042E-01_JPRB,3.3894E-01_JPRB,3.5721E-01_JPRB/)  
+KBO( :,37, 5) = (/&
+ & 2.3528E-01_JPRB,2.5243E-01_JPRB,2.6898E-01_JPRB,2.8542E-01_JPRB,3.0190E-01_JPRB/)  
+KBO( :,38, 5) = (/&
+ & 1.9653E-01_JPRB,2.1135E-01_JPRB,2.2593E-01_JPRB,2.4055E-01_JPRB,2.5537E-01_JPRB/)  
+KBO( :,39, 5) = (/&
+ & 1.6424E-01_JPRB,1.7712E-01_JPRB,1.9008E-01_JPRB,2.0314E-01_JPRB,2.1645E-01_JPRB/)  
+KBO( :,40, 5) = (/&
+ & 1.3599E-01_JPRB,1.4712E-01_JPRB,1.5856E-01_JPRB,1.7013E-01_JPRB,1.8191E-01_JPRB/)  
+KBO( :,41, 5) = (/&
+ & 1.1240E-01_JPRB,1.2208E-01_JPRB,1.3208E-01_JPRB,1.4229E-01_JPRB,1.5269E-01_JPRB/)  
+KBO( :,42, 5) = (/&
+ & 9.2848E-02_JPRB,1.0126E-01_JPRB,1.1003E-01_JPRB,1.1902E-01_JPRB,1.2816E-01_JPRB/)  
+KBO( :,43, 5) = (/&
+ & 7.6272E-02_JPRB,8.3551E-02_JPRB,9.1173E-02_JPRB,9.9059E-02_JPRB,1.0710E-01_JPRB/)  
+KBO( :,44, 5) = (/&
+ & 6.2420E-02_JPRB,6.8705E-02_JPRB,7.5347E-02_JPRB,8.2255E-02_JPRB,8.9304E-02_JPRB/)  
+KBO( :,45, 5) = (/&
+ & 5.1037E-02_JPRB,5.6461E-02_JPRB,6.2222E-02_JPRB,6.8245E-02_JPRB,7.4410E-02_JPRB/)  
+KBO( :,46, 5) = (/&
+ & 4.1575E-02_JPRB,4.6220E-02_JPRB,5.1187E-02_JPRB,5.6431E-02_JPRB,6.1814E-02_JPRB/)  
+KBO( :,47, 5) = (/&
+ & 3.3624E-02_JPRB,3.7569E-02_JPRB,4.1825E-02_JPRB,4.6358E-02_JPRB,5.1051E-02_JPRB/)  
+KBO( :,48, 5) = (/&
+ & 2.7133E-02_JPRB,3.0477E-02_JPRB,3.4127E-02_JPRB,3.8049E-02_JPRB,4.2137E-02_JPRB/)  
+KBO( :,49, 5) = (/&
+ & 2.1850E-02_JPRB,2.4695E-02_JPRB,2.7812E-02_JPRB,3.1199E-02_JPRB,3.4749E-02_JPRB/)  
+KBO( :,50, 5) = (/&
+ & 1.7588E-02_JPRB,1.9999E-02_JPRB,2.2640E-02_JPRB,2.5547E-02_JPRB,2.8612E-02_JPRB/)  
+KBO( :,51, 5) = (/&
+ & 1.4133E-02_JPRB,1.6172E-02_JPRB,1.8401E-02_JPRB,2.0880E-02_JPRB,2.3515E-02_JPRB/)  
+KBO( :,52, 5) = (/&
+ & 1.1330E-02_JPRB,1.3052E-02_JPRB,1.4932E-02_JPRB,1.7041E-02_JPRB,1.9304E-02_JPRB/)  
+KBO( :,53, 5) = (/&
+ & 9.0563E-03_JPRB,1.0511E-02_JPRB,1.2096E-02_JPRB,1.3890E-02_JPRB,1.5837E-02_JPRB/)  
+KBO( :,54, 5) = (/&
+ & 7.2337E-03_JPRB,8.4542E-03_JPRB,9.7774E-03_JPRB,1.1280E-02_JPRB,1.2936E-02_JPRB/)  
+KBO( :,55, 5) = (/&
+ & 5.7674E-03_JPRB,6.7888E-03_JPRB,7.8837E-03_JPRB,9.1276E-03_JPRB,1.0528E-02_JPRB/)  
+KBO( :,56, 5) = (/&
+ & 4.5854E-03_JPRB,5.4402E-03_JPRB,6.3461E-03_JPRB,7.3755E-03_JPRB,8.5458E-03_JPRB/)  
+KBO( :,57, 5) = (/&
+ & 3.6334E-03_JPRB,4.3489E-03_JPRB,5.0994E-03_JPRB,5.9486E-03_JPRB,6.9270E-03_JPRB/)  
+KBO( :,58, 5) = (/&
+ & 2.8784E-03_JPRB,3.4761E-03_JPRB,4.0992E-03_JPRB,4.7976E-03_JPRB,5.6122E-03_JPRB/)  
+KBO( :,59, 5) = (/&
+ & 2.3567E-03_JPRB,2.8551E-03_JPRB,3.3744E-03_JPRB,3.9529E-03_JPRB,4.6311E-03_JPRB/)  
+KBO( :,13, 6) = (/&
+ & 1.3830E+01_JPRB,1.4015E+01_JPRB,1.4160E+01_JPRB,1.4307E+01_JPRB,1.4522E+01_JPRB/)  
+KBO( :,14, 6) = (/&
+ & 1.2340E+01_JPRB,1.2516E+01_JPRB,1.2660E+01_JPRB,1.2793E+01_JPRB,1.2966E+01_JPRB/)  
+KBO( :,15, 6) = (/&
+ & 1.0924E+01_JPRB,1.1092E+01_JPRB,1.1224E+01_JPRB,1.1351E+01_JPRB,1.1516E+01_JPRB/)  
+KBO( :,16, 6) = (/&
+ & 9.6024E+00_JPRB,9.7501E+00_JPRB,9.8836E+00_JPRB,1.0029E+01_JPRB,1.0212E+01_JPRB/)  
+KBO( :,17, 6) = (/&
+ & 8.3708E+00_JPRB,8.5153E+00_JPRB,8.6644E+00_JPRB,8.8329E+00_JPRB,9.0401E+00_JPRB/)  
+KBO( :,18, 6) = (/&
+ & 7.2569E+00_JPRB,7.4102E+00_JPRB,7.5767E+00_JPRB,7.7740E+00_JPRB,8.0051E+00_JPRB/)  
+KBO( :,19, 6) = (/&
+ & 6.2750E+00_JPRB,6.4411E+00_JPRB,6.6283E+00_JPRB,6.8499E+00_JPRB,7.0924E+00_JPRB/)  
+KBO( :,20, 6) = (/&
+ & 5.4324E+00_JPRB,5.6127E+00_JPRB,5.8201E+00_JPRB,6.0515E+00_JPRB,6.2952E+00_JPRB/)  
+KBO( :,21, 6) = (/&
+ & 4.7199E+00_JPRB,4.9098E+00_JPRB,5.1220E+00_JPRB,5.3512E+00_JPRB,5.5929E+00_JPRB/)  
+KBO( :,22, 6) = (/&
+ & 4.1275E+00_JPRB,4.3173E+00_JPRB,4.5250E+00_JPRB,4.7472E+00_JPRB,4.9873E+00_JPRB/)  
+KBO( :,23, 6) = (/&
+ & 3.6186E+00_JPRB,3.8008E+00_JPRB,4.0007E+00_JPRB,4.2194E+00_JPRB,4.4546E+00_JPRB/)  
+KBO( :,24, 6) = (/&
+ & 3.1789E+00_JPRB,3.3535E+00_JPRB,3.5481E+00_JPRB,3.7602E+00_JPRB,3.9826E+00_JPRB/)  
+KBO( :,25, 6) = (/&
+ & 2.8009E+00_JPRB,2.9702E+00_JPRB,3.1571E+00_JPRB,3.3553E+00_JPRB,3.5661E+00_JPRB/)  
+KBO( :,26, 6) = (/&
+ & 2.4787E+00_JPRB,2.6417E+00_JPRB,2.8161E+00_JPRB,3.0035E+00_JPRB,3.2026E+00_JPRB/)  
+KBO( :,27, 6) = (/&
+ & 2.1990E+00_JPRB,2.3537E+00_JPRB,2.5197E+00_JPRB,2.6976E+00_JPRB,2.8845E+00_JPRB/)  
+KBO( :,28, 6) = (/&
+ & 1.9523E+00_JPRB,2.1013E+00_JPRB,2.2618E+00_JPRB,2.4297E+00_JPRB,2.6035E+00_JPRB/)  
+KBO( :,29, 6) = (/&
+ & 1.7370E+00_JPRB,1.8823E+00_JPRB,2.0367E+00_JPRB,2.1958E+00_JPRB,2.3561E+00_JPRB/)  
+KBO( :,30, 6) = (/&
+ & 1.5497E+00_JPRB,1.6904E+00_JPRB,1.8375E+00_JPRB,1.9876E+00_JPRB,2.1376E+00_JPRB/)  
+KBO( :,31, 6) = (/&
+ & 1.3874E+00_JPRB,1.5222E+00_JPRB,1.6617E+00_JPRB,1.8040E+00_JPRB,1.9446E+00_JPRB/)  
+KBO( :,32, 6) = (/&
+ & 1.2460E+00_JPRB,1.3738E+00_JPRB,1.5067E+00_JPRB,1.6408E+00_JPRB,1.7720E+00_JPRB/)  
+KBO( :,33, 6) = (/&
+ & 1.1223E+00_JPRB,1.2436E+00_JPRB,1.3697E+00_JPRB,1.4955E+00_JPRB,1.6172E+00_JPRB/)  
+KBO( :,34, 6) = (/&
+ & 1.0099E+00_JPRB,1.1249E+00_JPRB,1.2434E+00_JPRB,1.3608E+00_JPRB,1.4735E+00_JPRB/)  
+KBO( :,35, 6) = (/&
+ & 9.0209E-01_JPRB,1.0096E+00_JPRB,1.1199E+00_JPRB,1.2299E+00_JPRB,1.3354E+00_JPRB/)  
+KBO( :,36, 6) = (/&
+ & 7.9733E-01_JPRB,8.9688E-01_JPRB,9.9932E-01_JPRB,1.1023E+00_JPRB,1.2028E+00_JPRB/)  
+KBO( :,37, 6) = (/&
+ & 6.9211E-01_JPRB,7.8344E-01_JPRB,8.7821E-01_JPRB,9.7443E-01_JPRB,1.0708E+00_JPRB/)  
+KBO( :,38, 6) = (/&
+ & 6.0006E-01_JPRB,6.8377E-01_JPRB,7.7149E-01_JPRB,8.6171E-01_JPRB,9.5413E-01_JPRB/)  
+KBO( :,39, 6) = (/&
+ & 5.2043E-01_JPRB,5.9726E-01_JPRB,6.7852E-01_JPRB,7.6343E-01_JPRB,8.5244E-01_JPRB/)  
+KBO( :,40, 6) = (/&
+ & 4.4416E-01_JPRB,5.1399E-01_JPRB,5.8862E-01_JPRB,6.6792E-01_JPRB,7.5268E-01_JPRB/)  
+KBO( :,41, 6) = (/&
+ & 3.7776E-01_JPRB,4.4092E-01_JPRB,5.0931E-01_JPRB,5.8308E-01_JPRB,6.6368E-01_JPRB/)  
+KBO( :,42, 6) = (/&
+ & 3.2073E-01_JPRB,3.7777E-01_JPRB,4.4039E-01_JPRB,5.0902E-01_JPRB,5.8559E-01_JPRB/)  
+KBO( :,43, 6) = (/&
+ & 2.6920E-01_JPRB,3.2022E-01_JPRB,3.7707E-01_JPRB,4.4047E-01_JPRB,5.1263E-01_JPRB/)  
+KBO( :,44, 6) = (/&
+ & 2.2419E-01_JPRB,2.6949E-01_JPRB,3.2089E-01_JPRB,3.7919E-01_JPRB,4.4668E-01_JPRB/)  
+KBO( :,45, 6) = (/&
+ & 1.8610E-01_JPRB,2.2623E-01_JPRB,2.7250E-01_JPRB,3.2589E-01_JPRB,3.8881E-01_JPRB/)  
+KBO( :,46, 6) = (/&
+ & 1.5321E-01_JPRB,1.8844E-01_JPRB,2.2973E-01_JPRB,2.7826E-01_JPRB,3.3646E-01_JPRB/)  
+KBO( :,47, 6) = (/&
+ & 1.2434E-01_JPRB,1.5480E-01_JPRB,1.9116E-01_JPRB,2.3462E-01_JPRB,2.8768E-01_JPRB/)  
+KBO( :,48, 6) = (/&
+ & 1.0036E-01_JPRB,1.2653E-01_JPRB,1.5835E-01_JPRB,1.9711E-01_JPRB,2.4528E-01_JPRB/)  
+KBO( :,49, 6) = (/&
+ & 8.0612E-02_JPRB,1.0295E-01_JPRB,1.3061E-01_JPRB,1.6496E-01_JPRB,2.0845E-01_JPRB/)  
+KBO( :,50, 6) = (/&
+ & 6.4743E-02_JPRB,8.3670E-02_JPRB,1.0758E-01_JPRB,1.3777E-01_JPRB,1.7673E-01_JPRB/)  
+KBO( :,51, 6) = (/&
+ & 5.1836E-02_JPRB,6.7752E-02_JPRB,8.8282E-02_JPRB,1.1466E-01_JPRB,1.4926E-01_JPRB/)  
+KBO( :,52, 6) = (/&
+ & 4.1270E-02_JPRB,5.4579E-02_JPRB,7.2088E-02_JPRB,9.5008E-02_JPRB,1.2557E-01_JPRB/)  
+KBO( :,53, 6) = (/&
+ & 3.2703E-02_JPRB,4.3723E-02_JPRB,5.8551E-02_JPRB,7.8358E-02_JPRB,1.0523E-01_JPRB/)  
+KBO( :,54, 6) = (/&
+ & 2.5932E-02_JPRB,3.5025E-02_JPRB,4.7496E-02_JPRB,6.4433E-02_JPRB,8.7763E-02_JPRB/)  
+KBO( :,55, 6) = (/&
+ & 2.0516E-02_JPRB,2.7980E-02_JPRB,3.8384E-02_JPRB,5.2720E-02_JPRB,7.2773E-02_JPRB/)  
+KBO( :,56, 6) = (/&
+ & 1.6157E-02_JPRB,2.2243E-02_JPRB,3.0860E-02_JPRB,4.2933E-02_JPRB,6.0054E-02_JPRB/)  
+KBO( :,57, 6) = (/&
+ & 1.2662E-02_JPRB,1.7594E-02_JPRB,2.4676E-02_JPRB,3.4773E-02_JPRB,4.9299E-02_JPRB/)  
+KBO( :,58, 6) = (/&
+ & 9.9314E-03_JPRB,1.3912E-02_JPRB,1.9723E-02_JPRB,2.8150E-02_JPRB,4.0439E-02_JPRB/)  
+KBO( :,59, 6) = (/&
+ & 8.2224E-03_JPRB,1.1623E-02_JPRB,1.6659E-02_JPRB,2.4055E-02_JPRB,3.5006E-02_JPRB/)  
+KBO( :,13, 7) = (/&
+ & 2.6335E+01_JPRB,2.6343E+01_JPRB,2.6317E+01_JPRB,2.6278E+01_JPRB,2.6240E+01_JPRB/)  
+KBO( :,14, 7) = (/&
+ & 2.4335E+01_JPRB,2.4368E+01_JPRB,2.4378E+01_JPRB,2.4360E+01_JPRB,2.4346E+01_JPRB/)  
+KBO( :,15, 7) = (/&
+ & 2.2209E+01_JPRB,2.2271E+01_JPRB,2.2317E+01_JPRB,2.2351E+01_JPRB,2.2363E+01_JPRB/)  
+KBO( :,16, 7) = (/&
+ & 2.0041E+01_JPRB,2.0151E+01_JPRB,2.0235E+01_JPRB,2.0297E+01_JPRB,2.0322E+01_JPRB/)  
+KBO( :,17, 7) = (/&
+ & 1.7927E+01_JPRB,1.8060E+01_JPRB,1.8168E+01_JPRB,1.8242E+01_JPRB,1.8304E+01_JPRB/)  
+KBO( :,18, 7) = (/&
+ & 1.5898E+01_JPRB,1.6045E+01_JPRB,1.6164E+01_JPRB,1.6266E+01_JPRB,1.6378E+01_JPRB/)  
+KBO( :,19, 7) = (/&
+ & 1.3992E+01_JPRB,1.4142E+01_JPRB,1.4282E+01_JPRB,1.4427E+01_JPRB,1.4606E+01_JPRB/)  
+KBO( :,20, 7) = (/&
+ & 1.2229E+01_JPRB,1.2396E+01_JPRB,1.2574E+01_JPRB,1.2781E+01_JPRB,1.3031E+01_JPRB/)  
+KBO( :,21, 7) = (/&
+ & 1.0639E+01_JPRB,1.0839E+01_JPRB,1.1068E+01_JPRB,1.1335E+01_JPRB,1.1649E+01_JPRB/)  
+KBO( :,22, 7) = (/&
+ & 9.2636E+00_JPRB,9.5053E+00_JPRB,9.7840E+00_JPRB,1.0108E+01_JPRB,1.0461E+01_JPRB/)  
+KBO( :,23, 7) = (/&
+ & 8.0952E+00_JPRB,8.3738E+00_JPRB,8.6908E+00_JPRB,9.0366E+00_JPRB,9.4060E+00_JPRB/)  
+KBO( :,24, 7) = (/&
+ & 7.1130E+00_JPRB,7.4146E+00_JPRB,7.7429E+00_JPRB,8.0993E+00_JPRB,8.4864E+00_JPRB/)  
+KBO( :,25, 7) = (/&
+ & 6.2837E+00_JPRB,6.5877E+00_JPRB,6.9205E+00_JPRB,7.2883E+00_JPRB,7.6912E+00_JPRB/)  
+KBO( :,26, 7) = (/&
+ & 5.5745E+00_JPRB,5.8760E+00_JPRB,6.2151E+00_JPRB,6.5923E+00_JPRB,7.0080E+00_JPRB/)  
+KBO( :,27, 7) = (/&
+ & 4.9643E+00_JPRB,5.2682E+00_JPRB,5.6134E+00_JPRB,5.9978E+00_JPRB,6.4129E+00_JPRB/)  
+KBO( :,28, 7) = (/&
+ & 4.4473E+00_JPRB,4.7539E+00_JPRB,5.1020E+00_JPRB,5.4857E+00_JPRB,5.8980E+00_JPRB/)  
+KBO( :,29, 7) = (/&
+ & 4.0139E+00_JPRB,4.3228E+00_JPRB,4.6679E+00_JPRB,5.0477E+00_JPRB,5.4611E+00_JPRB/)  
+KBO( :,30, 7) = (/&
+ & 3.6503E+00_JPRB,3.9570E+00_JPRB,4.2982E+00_JPRB,4.6765E+00_JPRB,5.0904E+00_JPRB/)  
+KBO( :,31, 7) = (/&
+ & 3.3458E+00_JPRB,3.6492E+00_JPRB,3.9896E+00_JPRB,4.3657E+00_JPRB,4.7803E+00_JPRB/)  
+KBO( :,32, 7) = (/&
+ & 3.0885E+00_JPRB,3.3924E+00_JPRB,3.7326E+00_JPRB,4.1089E+00_JPRB,4.5242E+00_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART13',1,ZHOOK_HANDLE)
+END SUBROUTINE PART13
+
+
+SUBROUTINE PART14
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART14',0,ZHOOK_HANDLE)
+
+
+KBO( :,33, 7) = (/&
+ & 2.8733E+00_JPRB,3.1791E+00_JPRB,3.5210E+00_JPRB,3.8996E+00_JPRB,4.3193E+00_JPRB/)  
+KBO( :,34, 7) = (/&
+ & 2.6844E+00_JPRB,2.9924E+00_JPRB,3.3348E+00_JPRB,3.7181E+00_JPRB,4.1445E+00_JPRB/)  
+KBO( :,35, 7) = (/&
+ & 2.4984E+00_JPRB,2.8075E+00_JPRB,3.1505E+00_JPRB,3.5359E+00_JPRB,3.9675E+00_JPRB/)  
+KBO( :,36, 7) = (/&
+ & 2.3072E+00_JPRB,2.6159E+00_JPRB,2.9582E+00_JPRB,3.3431E+00_JPRB,3.7763E+00_JPRB/)  
+KBO( :,37, 7) = (/&
+ & 2.0954E+00_JPRB,2.4005E+00_JPRB,2.7380E+00_JPRB,3.1168E+00_JPRB,3.5461E+00_JPRB/)  
+KBO( :,38, 7) = (/&
+ & 1.9034E+00_JPRB,2.2055E+00_JPRB,2.5402E+00_JPRB,2.9151E+00_JPRB,3.3403E+00_JPRB/)  
+KBO( :,39, 7) = (/&
+ & 1.7317E+00_JPRB,2.0312E+00_JPRB,2.3647E+00_JPRB,2.7379E+00_JPRB,3.1615E+00_JPRB/)  
+KBO( :,40, 7) = (/&
+ & 1.5481E+00_JPRB,1.8407E+00_JPRB,2.1704E+00_JPRB,2.5377E+00_JPRB,2.9544E+00_JPRB/)  
+KBO( :,41, 7) = (/&
+ & 1.3778E+00_JPRB,1.6628E+00_JPRB,1.9879E+00_JPRB,2.3508E+00_JPRB,2.7602E+00_JPRB/)  
+KBO( :,42, 7) = (/&
+ & 1.2232E+00_JPRB,1.4999E+00_JPRB,1.8203E+00_JPRB,2.1797E+00_JPRB,2.5828E+00_JPRB/)  
+KBO( :,43, 7) = (/&
+ & 1.0698E+00_JPRB,1.3347E+00_JPRB,1.6469E+00_JPRB,2.0008E+00_JPRB,2.3963E+00_JPRB/)  
+KBO( :,44, 7) = (/&
+ & 9.2588E-01_JPRB,1.1760E+00_JPRB,1.4777E+00_JPRB,1.8247E+00_JPRB,2.2132E+00_JPRB/)  
+KBO( :,45, 7) = (/&
+ & 7.9702E-01_JPRB,1.0315E+00_JPRB,1.3210E+00_JPRB,1.6600E+00_JPRB,2.0420E+00_JPRB/)  
+KBO( :,46, 7) = (/&
+ & 6.7818E-01_JPRB,8.9459E-01_JPRB,1.1684E+00_JPRB,1.4973E+00_JPRB,1.8716E+00_JPRB/)  
+KBO( :,47, 7) = (/&
+ & 5.6580E-01_JPRB,7.6097E-01_JPRB,1.0151E+00_JPRB,1.3286E+00_JPRB,1.6923E+00_JPRB/)  
+KBO( :,48, 7) = (/&
+ & 4.6791E-01_JPRB,6.4213E-01_JPRB,8.7532E-01_JPRB,1.1714E+00_JPRB,1.5227E+00_JPRB/)  
+KBO( :,49, 7) = (/&
+ & 3.8353E-01_JPRB,5.3743E-01_JPRB,7.4923E-01_JPRB,1.0257E+00_JPRB,1.3624E+00_JPRB/)  
+KBO( :,50, 7) = (/&
+ & 3.1398E-01_JPRB,4.4906E-01_JPRB,6.4014E-01_JPRB,8.9685E-01_JPRB,1.2172E+00_JPRB/)  
+KBO( :,51, 7) = (/&
+ & 2.5573E-01_JPRB,3.7326E-01_JPRB,5.4427E-01_JPRB,7.8065E-01_JPRB,1.0832E+00_JPRB/)  
+KBO( :,52, 7) = (/&
+ & 2.0647E-01_JPRB,3.0764E-01_JPRB,4.5931E-01_JPRB,6.7487E-01_JPRB,9.5820E-01_JPRB/)  
+KBO( :,53, 7) = (/&
+ & 1.6527E-01_JPRB,2.5130E-01_JPRB,3.8436E-01_JPRB,5.7911E-01_JPRB,8.4227E-01_JPRB/)  
+KBO( :,54, 7) = (/&
+ & 1.3250E-01_JPRB,2.0520E-01_JPRB,3.2144E-01_JPRB,4.9663E-01_JPRB,7.3948E-01_JPRB/)  
+KBO( :,55, 7) = (/&
+ & 1.0586E-01_JPRB,1.6687E-01_JPRB,2.6744E-01_JPRB,4.2379E-01_JPRB,6.4623E-01_JPRB/)  
+KBO( :,56, 7) = (/&
+ & 8.3917E-02_JPRB,1.3459E-01_JPRB,2.2056E-01_JPRB,3.5886E-01_JPRB,5.6114E-01_JPRB/)  
+KBO( :,57, 7) = (/&
+ & 6.5997E-02_JPRB,1.0758E-01_JPRB,1.8019E-01_JPRB,3.0131E-01_JPRB,4.8364E-01_JPRB/)  
+KBO( :,58, 7) = (/&
+ & 5.1899E-02_JPRB,8.5940E-02_JPRB,1.4705E-01_JPRB,2.5263E-01_JPRB,4.1642E-01_JPRB/)  
+KBO( :,59, 7) = (/&
+ & 4.4275E-02_JPRB,7.4915E-02_JPRB,1.3121E-01_JPRB,2.3019E-01_JPRB,3.8591E-01_JPRB/)  
+KBO( :,13, 8) = (/&
+ & 5.0965E+01_JPRB,5.0361E+01_JPRB,4.9768E+01_JPRB,4.9177E+01_JPRB,4.8632E+01_JPRB/)  
+KBO( :,14, 8) = (/&
+ & 4.9580E+01_JPRB,4.9133E+01_JPRB,4.8669E+01_JPRB,4.8207E+01_JPRB,4.7744E+01_JPRB/)  
+KBO( :,15, 8) = (/&
+ & 4.7755E+01_JPRB,4.7423E+01_JPRB,4.7054E+01_JPRB,4.6684E+01_JPRB,4.6310E+01_JPRB/)  
+KBO( :,16, 8) = (/&
+ & 4.5437E+01_JPRB,4.5197E+01_JPRB,4.4948E+01_JPRB,4.4674E+01_JPRB,4.4398E+01_JPRB/)  
+KBO( :,17, 8) = (/&
+ & 4.2668E+01_JPRB,4.2548E+01_JPRB,4.2401E+01_JPRB,4.2228E+01_JPRB,4.2024E+01_JPRB/)  
+KBO( :,18, 8) = (/&
+ & 3.9590E+01_JPRB,3.9566E+01_JPRB,3.9492E+01_JPRB,3.9393E+01_JPRB,3.9273E+01_JPRB/)  
+KBO( :,19, 8) = (/&
+ & 3.6298E+01_JPRB,3.6335E+01_JPRB,3.6351E+01_JPRB,3.6334E+01_JPRB,3.6282E+01_JPRB/)  
+KBO( :,20, 8) = (/&
+ & 3.2906E+01_JPRB,3.3017E+01_JPRB,3.3099E+01_JPRB,3.3142E+01_JPRB,3.3168E+01_JPRB/)  
+KBO( :,21, 8) = (/&
+ & 2.9547E+01_JPRB,2.9709E+01_JPRB,2.9845E+01_JPRB,2.9969E+01_JPRB,3.0103E+01_JPRB/)  
+KBO( :,22, 8) = (/&
+ & 2.6311E+01_JPRB,2.6524E+01_JPRB,2.6733E+01_JPRB,2.6954E+01_JPRB,2.7222E+01_JPRB/)  
+KBO( :,23, 8) = (/&
+ & 2.3277E+01_JPRB,2.3556E+01_JPRB,2.3854E+01_JPRB,2.4204E+01_JPRB,2.4638E+01_JPRB/)  
+KBO( :,24, 8) = (/&
+ & 2.0517E+01_JPRB,2.0874E+01_JPRB,2.1304E+01_JPRB,2.1801E+01_JPRB,2.2391E+01_JPRB/)  
+KBO( :,25, 8) = (/&
+ & 1.8081E+01_JPRB,1.8550E+01_JPRB,1.9103E+01_JPRB,1.9746E+01_JPRB,2.0474E+01_JPRB/)  
+KBO( :,26, 8) = (/&
+ & 1.6011E+01_JPRB,1.6594E+01_JPRB,1.7264E+01_JPRB,1.8029E+01_JPRB,1.8873E+01_JPRB/)  
+KBO( :,27, 8) = (/&
+ & 1.4287E+01_JPRB,1.4961E+01_JPRB,1.5728E+01_JPRB,1.6587E+01_JPRB,1.7528E+01_JPRB/)  
+KBO( :,28, 8) = (/&
+ & 1.2856E+01_JPRB,1.3605E+01_JPRB,1.4442E+01_JPRB,1.5375E+01_JPRB,1.6398E+01_JPRB/)  
+KBO( :,29, 8) = (/&
+ & 1.1675E+01_JPRB,1.2478E+01_JPRB,1.3380E+01_JPRB,1.4384E+01_JPRB,1.5477E+01_JPRB/)  
+KBO( :,30, 8) = (/&
+ & 1.0695E+01_JPRB,1.1550E+01_JPRB,1.2511E+01_JPRB,1.3578E+01_JPRB,1.4743E+01_JPRB/)  
+KBO( :,31, 8) = (/&
+ & 9.8981E+00_JPRB,1.0807E+01_JPRB,1.1824E+01_JPRB,1.2957E+01_JPRB,1.4200E+01_JPRB/)  
+KBO( :,32, 8) = (/&
+ & 9.2617E+00_JPRB,1.0217E+01_JPRB,1.1294E+01_JPRB,1.2501E+01_JPRB,1.3819E+01_JPRB/)  
+KBO( :,33, 8) = (/&
+ & 8.7596E+00_JPRB,9.7694E+00_JPRB,1.0911E+01_JPRB,1.2196E+01_JPRB,1.3598E+01_JPRB/)  
+KBO( :,34, 8) = (/&
+ & 8.3433E+00_JPRB,9.4056E+00_JPRB,1.0617E+01_JPRB,1.1977E+01_JPRB,1.3459E+01_JPRB/)  
+KBO( :,35, 8) = (/&
+ & 7.9357E+00_JPRB,9.0427E+00_JPRB,1.0314E+01_JPRB,1.1736E+01_JPRB,1.3286E+01_JPRB/)  
+KBO( :,36, 8) = (/&
+ & 7.5046E+00_JPRB,8.6413E+00_JPRB,9.9524E+00_JPRB,1.1425E+01_JPRB,1.3024E+01_JPRB/)  
+KBO( :,37, 8) = (/&
+ & 6.9879E+00_JPRB,8.1265E+00_JPRB,9.4503E+00_JPRB,1.0942E+01_JPRB,1.2567E+01_JPRB/)  
+KBO( :,38, 8) = (/&
+ & 6.5288E+00_JPRB,7.6643E+00_JPRB,8.9952E+00_JPRB,1.0502E+01_JPRB,1.2144E+01_JPRB/)  
+KBO( :,39, 8) = (/&
+ & 6.1286E+00_JPRB,7.2600E+00_JPRB,8.5928E+00_JPRB,1.0109E+01_JPRB,1.1767E+01_JPRB/)  
+KBO( :,40, 8) = (/&
+ & 5.6684E+00_JPRB,6.7740E+00_JPRB,8.0799E+00_JPRB,9.5804E+00_JPRB,1.1233E+01_JPRB/)  
+KBO( :,41, 8) = (/&
+ & 5.2402E+00_JPRB,6.3138E+00_JPRB,7.5882E+00_JPRB,9.0624E+00_JPRB,1.0701E+01_JPRB/)  
+KBO( :,42, 8) = (/&
+ & 4.8506E+00_JPRB,5.8918E+00_JPRB,7.1323E+00_JPRB,8.5740E+00_JPRB,1.0194E+01_JPRB/)  
+KBO( :,43, 8) = (/&
+ & 4.4438E+00_JPRB,5.4412E+00_JPRB,6.6345E+00_JPRB,8.0293E+00_JPRB,9.6145E+00_JPRB/)  
+KBO( :,44, 8) = (/&
+ & 4.0493E+00_JPRB,4.9983E+00_JPRB,6.1400E+00_JPRB,7.4797E+00_JPRB,9.0187E+00_JPRB/)  
+KBO( :,45, 8) = (/&
+ & 3.6876E+00_JPRB,4.5888E+00_JPRB,5.6785E+00_JPRB,6.9623E+00_JPRB,8.4500E+00_JPRB/)  
+KBO( :,46, 8) = (/&
+ & 3.3383E+00_JPRB,4.1880E+00_JPRB,5.2207E+00_JPRB,6.4454E+00_JPRB,7.8745E+00_JPRB/)  
+KBO( :,47, 8) = (/&
+ & 2.9856E+00_JPRB,3.7780E+00_JPRB,4.7472E+00_JPRB,5.9041E+00_JPRB,7.2615E+00_JPRB/)  
+KBO( :,48, 8) = (/&
+ & 2.6572E+00_JPRB,3.4003E+00_JPRB,4.3078E+00_JPRB,5.3986E+00_JPRB,6.6852E+00_JPRB/)  
+KBO( :,49, 8) = (/&
+ & 2.3488E+00_JPRB,3.0535E+00_JPRB,3.9013E+00_JPRB,4.9276E+00_JPRB,6.1472E+00_JPRB/)  
+KBO( :,50, 8) = (/&
+ & 2.0729E+00_JPRB,2.7473E+00_JPRB,3.5436E+00_JPRB,4.5091E+00_JPRB,5.6655E+00_JPRB/)  
+KBO( :,51, 8) = (/&
+ & 1.8206E+00_JPRB,2.4651E+00_JPRB,3.2190E+00_JPRB,4.1264E+00_JPRB,5.2204E+00_JPRB/)  
+KBO( :,52, 8) = (/&
+ & 1.5859E+00_JPRB,2.1977E+00_JPRB,2.9176E+00_JPRB,3.7698E+00_JPRB,4.8036E+00_JPRB/)  
+KBO( :,53, 8) = (/&
+ & 1.3682E+00_JPRB,1.9445E+00_JPRB,2.6333E+00_JPRB,3.4378E+00_JPRB,4.4138E+00_JPRB/)  
+KBO( :,54, 8) = (/&
+ & 1.1812E+00_JPRB,1.7215E+00_JPRB,2.3803E+00_JPRB,3.1453E+00_JPRB,4.0633E+00_JPRB/)  
+KBO( :,55, 8) = (/&
+ & 1.0150E+00_JPRB,1.5193E+00_JPRB,2.1463E+00_JPRB,2.8770E+00_JPRB,3.7398E+00_JPRB/)  
+KBO( :,56, 8) = (/&
+ & 8.6368E-01_JPRB,1.3309E+00_JPRB,1.9241E+00_JPRB,2.6237E+00_JPRB,3.4375E+00_JPRB/)  
+KBO( :,57, 8) = (/&
+ & 7.2682E-01_JPRB,1.1556E+00_JPRB,1.7137E+00_JPRB,2.3824E+00_JPRB,3.1551E+00_JPRB/)  
+KBO( :,58, 8) = (/&
+ & 6.0967E-01_JPRB,1.0012E+00_JPRB,1.5247E+00_JPRB,2.1627E+00_JPRB,2.9020E+00_JPRB/)  
+KBO( :,59, 8) = (/&
+ & 5.5853E-01_JPRB,9.3598E-01_JPRB,1.4448E+00_JPRB,2.0692E+00_JPRB,2.7925E+00_JPRB/)  
+KBO( :,13, 9) = (/&
+ & 9.9288E+01_JPRB,9.7856E+01_JPRB,9.6419E+01_JPRB,9.4961E+01_JPRB,9.3473E+01_JPRB/)  
+KBO( :,14, 9) = (/&
+ & 1.0412E+02_JPRB,1.0269E+02_JPRB,1.0123E+02_JPRB,9.9736E+01_JPRB,9.8238E+01_JPRB/)  
+KBO( :,15, 9) = (/&
+ & 1.0817E+02_JPRB,1.0679E+02_JPRB,1.0540E+02_JPRB,1.0396E+02_JPRB,1.0249E+02_JPRB/)  
+KBO( :,16, 9) = (/&
+ & 1.1129E+02_JPRB,1.1004E+02_JPRB,1.0873E+02_JPRB,1.0740E+02_JPRB,1.0603E+02_JPRB/)  
+KBO( :,17, 9) = (/&
+ & 1.1340E+02_JPRB,1.1230E+02_JPRB,1.1113E+02_JPRB,1.0995E+02_JPRB,1.0873E+02_JPRB/)  
+KBO( :,18, 9) = (/&
+ & 1.1434E+02_JPRB,1.1342E+02_JPRB,1.1248E+02_JPRB,1.1144E+02_JPRB,1.1034E+02_JPRB/)  
+KBO( :,19, 9) = (/&
+ & 1.1401E+02_JPRB,1.1333E+02_JPRB,1.1256E+02_JPRB,1.1172E+02_JPRB,1.1083E+02_JPRB/)  
+KBO( :,20, 9) = (/&
+ & 1.1234E+02_JPRB,1.1193E+02_JPRB,1.1143E+02_JPRB,1.1085E+02_JPRB,1.1019E+02_JPRB/)  
+KBO( :,21, 9) = (/&
+ & 1.0946E+02_JPRB,1.0935E+02_JPRB,1.0914E+02_JPRB,1.0884E+02_JPRB,1.0846E+02_JPRB/)  
+KBO( :,22, 9) = (/&
+ & 1.0557E+02_JPRB,1.0577E+02_JPRB,1.0588E+02_JPRB,1.0590E+02_JPRB,1.0584E+02_JPRB/)  
+KBO( :,23, 9) = (/&
+ & 1.0094E+02_JPRB,1.0149E+02_JPRB,1.0194E+02_JPRB,1.0233E+02_JPRB,1.0260E+02_JPRB/)  
+KBO( :,24, 9) = (/&
+ & 9.5817E+01_JPRB,9.6736E+01_JPRB,9.7569E+01_JPRB,9.8330E+01_JPRB,9.9010E+01_JPRB/)  
+KBO( :,25, 9) = (/&
+ & 9.0469E+01_JPRB,9.1797E+01_JPRB,9.3074E+01_JPRB,9.4238E+01_JPRB,9.5339E+01_JPRB/)  
+KBO( :,26, 9) = (/&
+ & 8.5212E+01_JPRB,8.6963E+01_JPRB,8.8676E+01_JPRB,9.0313E+01_JPRB,9.1842E+01_JPRB/)  
+KBO( :,27, 9) = (/&
+ & 8.0235E+01_JPRB,8.2437E+01_JPRB,8.4599E+01_JPRB,8.6731E+01_JPRB,8.8747E+01_JPRB/)  
+KBO( :,28, 9) = (/&
+ & 7.5722E+01_JPRB,7.8382E+01_JPRB,8.1040E+01_JPRB,8.3660E+01_JPRB,8.6177E+01_JPRB/)  
+KBO( :,29, 9) = (/&
+ & 7.1851E+01_JPRB,7.4992E+01_JPRB,7.8130E+01_JPRB,8.1223E+01_JPRB,8.4209E+01_JPRB/)  
+KBO( :,30, 9) = (/&
+ & 6.8679E+01_JPRB,7.2286E+01_JPRB,7.5891E+01_JPRB,7.9421E+01_JPRB,8.2811E+01_JPRB/)  
+KBO( :,31, 9) = (/&
+ & 6.6225E+01_JPRB,7.0279E+01_JPRB,7.4326E+01_JPRB,7.8245E+01_JPRB,8.1966E+01_JPRB/)  
+KBO( :,32, 9) = (/&
+ & 6.4479E+01_JPRB,6.8946E+01_JPRB,7.3367E+01_JPRB,7.7627E+01_JPRB,8.1643E+01_JPRB/)  
+KBO( :,33, 9) = (/&
+ & 6.3393E+01_JPRB,6.8225E+01_JPRB,7.2967E+01_JPRB,7.7506E+01_JPRB,8.1771E+01_JPRB/)  
+KBO( :,34, 9) = (/&
+ & 6.2705E+01_JPRB,6.7842E+01_JPRB,7.2848E+01_JPRB,7.7622E+01_JPRB,8.2086E+01_JPRB/)  
+KBO( :,35, 9) = (/&
+ & 6.1970E+01_JPRB,6.7369E+01_JPRB,7.2611E+01_JPRB,7.7614E+01_JPRB,8.2278E+01_JPRB/)  
+KBO( :,36, 9) = (/&
+ & 6.0967E+01_JPRB,6.6598E+01_JPRB,7.2072E+01_JPRB,7.7300E+01_JPRB,8.2185E+01_JPRB/)  
+KBO( :,37, 9) = (/&
+ & 5.9279E+01_JPRB,6.5142E+01_JPRB,7.0846E+01_JPRB,7.6292E+01_JPRB,8.1436E+01_JPRB/)  
+KBO( :,38, 9) = (/&
+ & 5.7701E+01_JPRB,6.3776E+01_JPRB,6.9699E+01_JPRB,7.5382E+01_JPRB,8.0760E+01_JPRB/)  
+KBO( :,39, 9) = (/&
+ & 5.6270E+01_JPRB,6.2546E+01_JPRB,6.8688E+01_JPRB,7.4617E+01_JPRB,8.0162E+01_JPRB/)  
+KBO( :,40, 9) = (/&
+ & 5.4230E+01_JPRB,6.0690E+01_JPRB,6.6996E+01_JPRB,7.3138E+01_JPRB,7.8857E+01_JPRB/)  
+KBO( :,41, 9) = (/&
+ & 5.2156E+01_JPRB,5.8758E+01_JPRB,6.5235E+01_JPRB,7.1572E+01_JPRB,7.7464E+01_JPRB/)  
+KBO( :,42, 9) = (/&
+ & 5.0129E+01_JPRB,5.6855E+01_JPRB,6.3499E+01_JPRB,7.0016E+01_JPRB,7.6080E+01_JPRB/)  
+KBO( :,43, 9) = (/&
+ & 4.7760E+01_JPRB,5.4598E+01_JPRB,6.1399E+01_JPRB,6.8099E+01_JPRB,7.4350E+01_JPRB/)  
+KBO( :,44, 9) = (/&
+ & 4.5249E+01_JPRB,5.2184E+01_JPRB,5.9131E+01_JPRB,6.6010E+01_JPRB,7.2452E+01_JPRB/)  
+KBO( :,45, 9) = (/&
+ & 4.2770E+01_JPRB,4.9790E+01_JPRB,5.6875E+01_JPRB,6.3919E+01_JPRB,7.0547E+01_JPRB/)  
+KBO( :,46, 9) = (/&
+ & 4.0163E+01_JPRB,4.7243E+01_JPRB,5.4479E+01_JPRB,6.1655E+01_JPRB,6.8464E+01_JPRB/)  
+KBO( :,47, 9) = (/&
+ & 3.7279E+01_JPRB,4.4372E+01_JPRB,5.1688E+01_JPRB,5.9007E+01_JPRB,6.6000E+01_JPRB/)  
+KBO( :,48, 9) = (/&
+ & 3.4455E+01_JPRB,4.1531E+01_JPRB,4.8914E+01_JPRB,5.6355E+01_JPRB,6.3516E+01_JPRB/)  
+KBO( :,49, 9) = (/&
+ & 3.1707E+01_JPRB,3.8733E+01_JPRB,4.6179E+01_JPRB,5.3719E+01_JPRB,6.1038E+01_JPRB/)  
+KBO( :,50, 9) = (/&
+ & 2.9168E+01_JPRB,3.6084E+01_JPRB,4.3531E+01_JPRB,5.1127E+01_JPRB,5.8574E+01_JPRB/)  
+KBO( :,51, 9) = (/&
+ & 2.6765E+01_JPRB,3.3523E+01_JPRB,4.0920E+01_JPRB,4.8550E+01_JPRB,5.6098E+01_JPRB/)  
+KBO( :,52, 9) = (/&
+ & 2.4432E+01_JPRB,3.1037E+01_JPRB,3.8359E+01_JPRB,4.5995E+01_JPRB,5.3635E+01_JPRB/)  
+KBO( :,53, 9) = (/&
+ & 2.2208E+01_JPRB,2.8629E+01_JPRB,3.5855E+01_JPRB,4.3474E+01_JPRB,5.1186E+01_JPRB/)  
+KBO( :,54, 9) = (/&
+ & 2.0205E+01_JPRB,2.6401E+01_JPRB,3.3414E+01_JPRB,4.0973E+01_JPRB,4.8699E+01_JPRB/)  
+KBO( :,55, 9) = (/&
+ & 1.8353E+01_JPRB,2.4282E+01_JPRB,3.1024E+01_JPRB,3.8470E+01_JPRB,4.6173E+01_JPRB/)  
+KBO( :,56, 9) = (/&
+ & 1.6601E+01_JPRB,2.2262E+01_JPRB,2.8733E+01_JPRB,3.6003E+01_JPRB,4.3640E+01_JPRB/)  
+KBO( :,57, 9) = (/&
+ & 1.4942E+01_JPRB,2.0332E+01_JPRB,2.6541E+01_JPRB,3.3571E+01_JPRB,4.1137E+01_JPRB/)  
+KBO( :,58, 9) = (/&
+ & 1.3455E+01_JPRB,1.8580E+01_JPRB,2.4530E+01_JPRB,3.1284E+01_JPRB,3.8733E+01_JPRB/)  
+KBO( :,59, 9) = (/&
+ & 1.2865E+01_JPRB,1.7859E+01_JPRB,2.3642E+01_JPRB,3.0152E+01_JPRB,3.7359E+01_JPRB/)  
+KBO( :,13,10) = (/&
+ & 1.4836E+02_JPRB,1.4604E+02_JPRB,1.4370E+02_JPRB,1.4155E+02_JPRB,1.3951E+02_JPRB/)  
+KBO( :,14,10) = (/&
+ & 1.6431E+02_JPRB,1.6174E+02_JPRB,1.5931E+02_JPRB,1.5707E+02_JPRB,1.5447E+02_JPRB/)  
+KBO( :,15,10) = (/&
+ & 1.8088E+02_JPRB,1.7844E+02_JPRB,1.7598E+02_JPRB,1.7321E+02_JPRB,1.7049E+02_JPRB/)  
+KBO( :,16,10) = (/&
+ & 1.9837E+02_JPRB,1.9582E+02_JPRB,1.9294E+02_JPRB,1.9007E+02_JPRB,1.8732E+02_JPRB/)  
+KBO( :,17,10) = (/&
+ & 2.1550E+02_JPRB,2.1268E+02_JPRB,2.0959E+02_JPRB,2.0637E+02_JPRB,2.0299E+02_JPRB/)  
+KBO( :,18,10) = (/&
+ & 2.3147E+02_JPRB,2.2811E+02_JPRB,2.2491E+02_JPRB,2.2179E+02_JPRB,2.1873E+02_JPRB/)  
+KBO( :,19,10) = (/&
+ & 2.4561E+02_JPRB,2.4282E+02_JPRB,2.3998E+02_JPRB,2.3673E+02_JPRB,2.3333E+02_JPRB/)  
+KBO( :,20,10) = (/&
+ & 2.5875E+02_JPRB,2.5597E+02_JPRB,2.5299E+02_JPRB,2.4975E+02_JPRB,2.4650E+02_JPRB/)  
+KBO( :,21,10) = (/&
+ & 2.6956E+02_JPRB,2.6694E+02_JPRB,2.6416E+02_JPRB,2.6126E+02_JPRB,2.5829E+02_JPRB/)  
+KBO( :,22,10) = (/&
+ & 2.7742E+02_JPRB,2.7556E+02_JPRB,2.7346E+02_JPRB,2.7109E+02_JPRB,2.6822E+02_JPRB/)  
+KBO( :,23,10) = (/&
+ & 2.8259E+02_JPRB,2.8167E+02_JPRB,2.8054E+02_JPRB,2.7877E+02_JPRB,2.7640E+02_JPRB/)  
+KBO( :,24,10) = (/&
+ & 2.8579E+02_JPRB,2.8593E+02_JPRB,2.8555E+02_JPRB,2.8452E+02_JPRB,2.8281E+02_JPRB/)  
+KBO( :,25,10) = (/&
+ & 2.8759E+02_JPRB,2.8855E+02_JPRB,2.8897E+02_JPRB,2.8899E+02_JPRB,2.8805E+02_JPRB/)  
+KBO( :,26,10) = (/&
+ & 2.8827E+02_JPRB,2.9039E+02_JPRB,2.9171E+02_JPRB,2.9254E+02_JPRB,2.9232E+02_JPRB/)  
+KBO( :,27,10) = (/&
+ & 2.8831E+02_JPRB,2.9160E+02_JPRB,2.9410E+02_JPRB,2.9547E+02_JPRB,2.9582E+02_JPRB/)  
+KBO( :,28,10) = (/&
+ & 2.8830E+02_JPRB,2.9281E+02_JPRB,2.9591E+02_JPRB,2.9817E+02_JPRB,2.9880E+02_JPRB/)  
+KBO( :,29,10) = (/&
+ & 2.8819E+02_JPRB,2.9390E+02_JPRB,2.9762E+02_JPRB,3.0035E+02_JPRB,3.0140E+02_JPRB/)  
+KBO( :,30,10) = (/&
+ & 2.8853E+02_JPRB,2.9509E+02_JPRB,2.9931E+02_JPRB,3.0230E+02_JPRB,3.0384E+02_JPRB/)  
+KBO( :,31,10) = (/&
+ & 2.8941E+02_JPRB,2.9638E+02_JPRB,3.0093E+02_JPRB,3.0407E+02_JPRB,3.0610E+02_JPRB/)  
+KBO( :,32,10) = (/&
+ & 2.9067E+02_JPRB,2.9787E+02_JPRB,3.0275E+02_JPRB,3.0577E+02_JPRB,3.0795E+02_JPRB/)  
+KBO( :,33,10) = (/&
+ & 2.9222E+02_JPRB,2.9942E+02_JPRB,3.0456E+02_JPRB,3.0752E+02_JPRB,3.0966E+02_JPRB/)  
+KBO( :,34,10) = (/&
+ & 2.9363E+02_JPRB,3.0091E+02_JPRB,3.0608E+02_JPRB,3.0904E+02_JPRB,3.1115E+02_JPRB/)  
+KBO( :,35,10) = (/&
+ & 2.9423E+02_JPRB,3.0182E+02_JPRB,3.0717E+02_JPRB,3.1018E+02_JPRB,3.1229E+02_JPRB/)  
+KBO( :,36,10) = (/&
+ & 2.9400E+02_JPRB,3.0205E+02_JPRB,3.0771E+02_JPRB,3.1091E+02_JPRB,3.1314E+02_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART14',1,ZHOOK_HANDLE)
+END SUBROUTINE PART14
+
+
+SUBROUTINE PART15
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART15',0,ZHOOK_HANDLE)
+
+
+KBO( :,37,10) = (/&
+ & 2.9277E+02_JPRB,3.0116E+02_JPRB,3.0745E+02_JPRB,3.1132E+02_JPRB,3.1369E+02_JPRB/)  
+KBO( :,38,10) = (/&
+ & 2.9103E+02_JPRB,3.0008E+02_JPRB,3.0698E+02_JPRB,3.1126E+02_JPRB,3.1405E+02_JPRB/)  
+KBO( :,39,10) = (/&
+ & 2.8923E+02_JPRB,2.9890E+02_JPRB,3.0637E+02_JPRB,3.1107E+02_JPRB,3.1517E+02_JPRB/)  
+KBO( :,40,10) = (/&
+ & 2.8609E+02_JPRB,2.9711E+02_JPRB,3.0497E+02_JPRB,3.1036E+02_JPRB,3.1550E+02_JPRB/)  
+KBO( :,41,10) = (/&
+ & 2.8252E+02_JPRB,2.9448E+02_JPRB,3.0316E+02_JPRB,3.0942E+02_JPRB,3.1556E+02_JPRB/)  
+KBO( :,42,10) = (/&
+ & 2.7862E+02_JPRB,2.9160E+02_JPRB,3.0113E+02_JPRB,3.0834E+02_JPRB,3.1556E+02_JPRB/)  
+KBO( :,43,10) = (/&
+ & 2.7361E+02_JPRB,2.8779E+02_JPRB,2.9836E+02_JPRB,3.0666E+02_JPRB,3.1512E+02_JPRB/)  
+KBO( :,44,10) = (/&
+ & 2.6782E+02_JPRB,2.8324E+02_JPRB,2.9499E+02_JPRB,3.0453E+02_JPRB,3.1441E+02_JPRB/)  
+KBO( :,45,10) = (/&
+ & 2.6165E+02_JPRB,2.7823E+02_JPRB,2.9120E+02_JPRB,3.0219E+02_JPRB,3.1362E+02_JPRB/)  
+KBO( :,46,10) = (/&
+ & 2.5462E+02_JPRB,2.7249E+02_JPRB,2.8693E+02_JPRB,2.9929E+02_JPRB,3.1228E+02_JPRB/)  
+KBO( :,47,10) = (/&
+ & 2.4622E+02_JPRB,2.6556E+02_JPRB,2.8145E+02_JPRB,2.9525E+02_JPRB,3.0983E+02_JPRB/)  
+KBO( :,48,10) = (/&
+ & 2.3713E+02_JPRB,2.5803E+02_JPRB,2.7541E+02_JPRB,2.9095E+02_JPRB,3.0719E+02_JPRB/)  
+KBO( :,49,10) = (/&
+ & 2.2739E+02_JPRB,2.4986E+02_JPRB,2.6881E+02_JPRB,2.8662E+02_JPRB,3.0453E+02_JPRB/)  
+KBO( :,50,10) = (/&
+ & 2.1772E+02_JPRB,2.4169E+02_JPRB,2.6202E+02_JPRB,2.8158E+02_JPRB,3.0094E+02_JPRB/)  
+KBO( :,51,10) = (/&
+ & 2.0784E+02_JPRB,2.3330E+02_JPRB,2.5496E+02_JPRB,2.7591E+02_JPRB,2.9666E+02_JPRB/)  
+KBO( :,52,10) = (/&
+ & 1.9746E+02_JPRB,2.2442E+02_JPRB,2.4742E+02_JPRB,2.7004E+02_JPRB,2.9216E+02_JPRB/)  
+KBO( :,53,10) = (/&
+ & 1.8667E+02_JPRB,2.1498E+02_JPRB,2.3949E+02_JPRB,2.6404E+02_JPRB,2.8766E+02_JPRB/)  
+KBO( :,54,10) = (/&
+ & 1.7641E+02_JPRB,2.0557E+02_JPRB,2.3152E+02_JPRB,2.5629E+02_JPRB,2.8134E+02_JPRB/)  
+KBO( :,55,10) = (/&
+ & 1.6630E+02_JPRB,1.9645E+02_JPRB,2.2352E+02_JPRB,2.4801E+02_JPRB,2.7356E+02_JPRB/)  
+KBO( :,56,10) = (/&
+ & 1.5594E+02_JPRB,1.8700E+02_JPRB,2.1520E+02_JPRB,2.3992E+02_JPRB,2.6576E+02_JPRB/)  
+KBO( :,57,10) = (/&
+ & 1.4539E+02_JPRB,1.7728E+02_JPRB,2.0648E+02_JPRB,2.3204E+02_JPRB,2.5725E+02_JPRB/)  
+KBO( :,58,10) = (/&
+ & 1.3524E+02_JPRB,1.6780E+02_JPRB,1.9789E+02_JPRB,2.2459E+02_JPRB,2.4918E+02_JPRB/)  
+KBO( :,59,10) = (/&
+ & 1.3112E+02_JPRB,1.6391E+02_JPRB,1.9433E+02_JPRB,2.2152E+02_JPRB,2.4535E+02_JPRB/)  
+KBO( :,13,11) = (/&
+ & 1.6552E+02_JPRB,1.6259E+02_JPRB,1.5976E+02_JPRB,1.5701E+02_JPRB,1.5440E+02_JPRB/)  
+KBO( :,14,11) = (/&
+ & 1.8516E+02_JPRB,1.8233E+02_JPRB,1.7933E+02_JPRB,1.7635E+02_JPRB,1.7362E+02_JPRB/)  
+KBO( :,15,11) = (/&
+ & 2.0794E+02_JPRB,2.0481E+02_JPRB,2.0174E+02_JPRB,1.9859E+02_JPRB,1.9534E+02_JPRB/)  
+KBO( :,16,11) = (/&
+ & 2.3251E+02_JPRB,2.2934E+02_JPRB,2.2596E+02_JPRB,2.2193E+02_JPRB,2.1747E+02_JPRB/)  
+KBO( :,17,11) = (/&
+ & 2.5822E+02_JPRB,2.5449E+02_JPRB,2.5028E+02_JPRB,2.4575E+02_JPRB,2.4111E+02_JPRB/)  
+KBO( :,18,11) = (/&
+ & 2.8377E+02_JPRB,2.7983E+02_JPRB,2.7512E+02_JPRB,2.7022E+02_JPRB,2.6507E+02_JPRB/)  
+KBO( :,19,11) = (/&
+ & 3.0872E+02_JPRB,3.0403E+02_JPRB,2.9887E+02_JPRB,2.9373E+02_JPRB,2.8833E+02_JPRB/)  
+KBO( :,20,11) = (/&
+ & 3.3154E+02_JPRB,3.2667E+02_JPRB,3.2149E+02_JPRB,3.1658E+02_JPRB,3.1110E+02_JPRB/)  
+KBO( :,21,11) = (/&
+ & 3.5303E+02_JPRB,3.4859E+02_JPRB,3.4368E+02_JPRB,3.3863E+02_JPRB,3.3281E+02_JPRB/)  
+KBO( :,22,11) = (/&
+ & 3.7308E+02_JPRB,3.6866E+02_JPRB,3.6382E+02_JPRB,3.5853E+02_JPRB,3.5259E+02_JPRB/)  
+KBO( :,23,11) = (/&
+ & 3.9085E+02_JPRB,3.8660E+02_JPRB,3.8185E+02_JPRB,3.7650E+02_JPRB,3.7123E+02_JPRB/)  
+KBO( :,24,11) = (/&
+ & 4.0631E+02_JPRB,4.0255E+02_JPRB,3.9828E+02_JPRB,3.9348E+02_JPRB,3.8793E+02_JPRB/)  
+KBO( :,25,11) = (/&
+ & 4.1938E+02_JPRB,4.1686E+02_JPRB,4.1282E+02_JPRB,4.0821E+02_JPRB,4.0269E+02_JPRB/)  
+KBO( :,26,11) = (/&
+ & 4.3004E+02_JPRB,4.2864E+02_JPRB,4.2545E+02_JPRB,4.2097E+02_JPRB,4.1544E+02_JPRB/)  
+KBO( :,27,11) = (/&
+ & 4.3932E+02_JPRB,4.3875E+02_JPRB,4.3604E+02_JPRB,4.3201E+02_JPRB,4.2641E+02_JPRB/)  
+KBO( :,28,11) = (/&
+ & 4.4708E+02_JPRB,4.4715E+02_JPRB,4.4516E+02_JPRB,4.4121E+02_JPRB,4.3584E+02_JPRB/)  
+KBO( :,29,11) = (/&
+ & 4.5390E+02_JPRB,4.5431E+02_JPRB,4.5282E+02_JPRB,4.4905E+02_JPRB,4.4353E+02_JPRB/)  
+KBO( :,30,11) = (/&
+ & 4.5978E+02_JPRB,4.6051E+02_JPRB,4.5914E+02_JPRB,4.5563E+02_JPRB,4.4966E+02_JPRB/)  
+KBO( :,31,11) = (/&
+ & 4.6502E+02_JPRB,4.6582E+02_JPRB,4.6429E+02_JPRB,4.6092E+02_JPRB,4.5451E+02_JPRB/)  
+KBO( :,32,11) = (/&
+ & 4.6952E+02_JPRB,4.7023E+02_JPRB,4.6854E+02_JPRB,4.6499E+02_JPRB,4.5830E+02_JPRB/)  
+KBO( :,33,11) = (/&
+ & 4.7348E+02_JPRB,4.7409E+02_JPRB,4.7192E+02_JPRB,4.6794E+02_JPRB,4.6103E+02_JPRB/)  
+KBO( :,34,11) = (/&
+ & 4.7685E+02_JPRB,4.7731E+02_JPRB,4.7475E+02_JPRB,4.7028E+02_JPRB,4.6319E+02_JPRB/)  
+KBO( :,35,11) = (/&
+ & 4.7958E+02_JPRB,4.8002E+02_JPRB,4.7736E+02_JPRB,4.7259E+02_JPRB,4.6551E+02_JPRB/)  
+KBO( :,36,11) = (/&
+ & 4.8169E+02_JPRB,4.8240E+02_JPRB,4.7987E+02_JPRB,4.7499E+02_JPRB,4.6813E+02_JPRB/)  
+KBO( :,37,11) = (/&
+ & 4.8298E+02_JPRB,4.8446E+02_JPRB,4.8243E+02_JPRB,4.7809E+02_JPRB,4.7147E+02_JPRB/)  
+KBO( :,38,11) = (/&
+ & 4.8394E+02_JPRB,4.8606E+02_JPRB,4.8459E+02_JPRB,4.8068E+02_JPRB,4.7405E+02_JPRB/)  
+KBO( :,39,11) = (/&
+ & 4.8451E+02_JPRB,4.8733E+02_JPRB,4.8637E+02_JPRB,4.8291E+02_JPRB,4.7658E+02_JPRB/)  
+KBO( :,40,11) = (/&
+ & 4.8421E+02_JPRB,4.8736E+02_JPRB,4.8800E+02_JPRB,4.8523E+02_JPRB,4.7946E+02_JPRB/)  
+KBO( :,41,11) = (/&
+ & 4.8335E+02_JPRB,4.8764E+02_JPRB,4.8927E+02_JPRB,4.8717E+02_JPRB,4.8206E+02_JPRB/)  
+KBO( :,42,11) = (/&
+ & 4.8204E+02_JPRB,4.8748E+02_JPRB,4.9006E+02_JPRB,4.8875E+02_JPRB,4.8434E+02_JPRB/)  
+KBO( :,43,11) = (/&
+ & 4.7975E+02_JPRB,4.8654E+02_JPRB,4.9041E+02_JPRB,4.9008E+02_JPRB,4.8652E+02_JPRB/)  
+KBO( :,44,11) = (/&
+ & 4.7655E+02_JPRB,4.8494E+02_JPRB,4.9019E+02_JPRB,4.9098E+02_JPRB,4.8839E+02_JPRB/)  
+KBO( :,45,11) = (/&
+ & 4.7253E+02_JPRB,4.8276E+02_JPRB,4.8943E+02_JPRB,4.9145E+02_JPRB,4.9003E+02_JPRB/)  
+KBO( :,46,11) = (/&
+ & 4.6734E+02_JPRB,4.7968E+02_JPRB,4.8743E+02_JPRB,4.9144E+02_JPRB,4.9142E+02_JPRB/)  
+KBO( :,47,11) = (/&
+ & 4.6037E+02_JPRB,4.7532E+02_JPRB,4.8503E+02_JPRB,4.9075E+02_JPRB,4.9230E+02_JPRB/)  
+KBO( :,48,11) = (/&
+ & 4.5226E+02_JPRB,4.6987E+02_JPRB,4.8198E+02_JPRB,4.8932E+02_JPRB,4.9295E+02_JPRB/)  
+KBO( :,49,11) = (/&
+ & 4.4290E+02_JPRB,4.6342E+02_JPRB,4.7813E+02_JPRB,4.8707E+02_JPRB,4.9364E+02_JPRB/)  
+KBO( :,50,11) = (/&
+ & 4.3303E+02_JPRB,4.5634E+02_JPRB,4.7362E+02_JPRB,4.8430E+02_JPRB,4.9319E+02_JPRB/)  
+KBO( :,51,11) = (/&
+ & 4.2231E+02_JPRB,4.4854E+02_JPRB,4.6823E+02_JPRB,4.8097E+02_JPRB,4.9173E+02_JPRB/)  
+KBO( :,52,11) = (/&
+ & 4.1028E+02_JPRB,4.3983E+02_JPRB,4.6194E+02_JPRB,4.7695E+02_JPRB,4.9018E+02_JPRB/)  
+KBO( :,53,11) = (/&
+ & 3.9747E+02_JPRB,4.3006E+02_JPRB,4.5475E+02_JPRB,4.7218E+02_JPRB,4.8896E+02_JPRB/)  
+KBO( :,54,11) = (/&
+ & 3.8468E+02_JPRB,4.1991E+02_JPRB,4.4737E+02_JPRB,4.6699E+02_JPRB,4.8405E+02_JPRB/)  
+KBO( :,55,11) = (/&
+ & 3.7148E+02_JPRB,4.0953E+02_JPRB,4.3953E+02_JPRB,4.6157E+02_JPRB,4.7789E+02_JPRB/)  
+KBO( :,56,11) = (/&
+ & 3.5741E+02_JPRB,3.9825E+02_JPRB,4.3092E+02_JPRB,4.5516E+02_JPRB,4.7290E+02_JPRB/)  
+KBO( :,57,11) = (/&
+ & 3.4261E+02_JPRB,3.8598E+02_JPRB,4.2152E+02_JPRB,4.4813E+02_JPRB,4.6777E+02_JPRB/)  
+KBO( :,58,11) = (/&
+ & 3.2780E+02_JPRB,3.7359E+02_JPRB,4.1192E+02_JPRB,4.4072E+02_JPRB,4.6249E+02_JPRB/)  
+KBO( :,59,11) = (/&
+ & 3.2152E+02_JPRB,3.6839E+02_JPRB,4.0780E+02_JPRB,4.3751E+02_JPRB,4.6016E+02_JPRB/)  
+KBO( :,13,12) = (/&
+ & 1.8421E+02_JPRB,1.8166E+02_JPRB,1.7879E+02_JPRB,1.7574E+02_JPRB,1.7251E+02_JPRB/)  
+KBO( :,14,12) = (/&
+ & 2.0903E+02_JPRB,2.0619E+02_JPRB,2.0324E+02_JPRB,1.9988E+02_JPRB,1.9636E+02_JPRB/)  
+KBO( :,15,12) = (/&
+ & 2.3780E+02_JPRB,2.3442E+02_JPRB,2.3068E+02_JPRB,2.2666E+02_JPRB,2.2225E+02_JPRB/)  
+KBO( :,16,12) = (/&
+ & 2.7012E+02_JPRB,2.6570E+02_JPRB,2.6084E+02_JPRB,2.5612E+02_JPRB,2.5162E+02_JPRB/)  
+KBO( :,17,12) = (/&
+ & 3.0507E+02_JPRB,2.9990E+02_JPRB,2.9472E+02_JPRB,2.8913E+02_JPRB,2.8362E+02_JPRB/)  
+KBO( :,18,12) = (/&
+ & 3.4264E+02_JPRB,3.3653E+02_JPRB,3.3027E+02_JPRB,3.2388E+02_JPRB,3.1713E+02_JPRB/)  
+KBO( :,19,12) = (/&
+ & 3.8113E+02_JPRB,3.7455E+02_JPRB,3.6765E+02_JPRB,3.6040E+02_JPRB,3.5292E+02_JPRB/)  
+KBO( :,20,12) = (/&
+ & 4.2119E+02_JPRB,4.1426E+02_JPRB,4.0655E+02_JPRB,3.9813E+02_JPRB,3.8981E+02_JPRB/)  
+KBO( :,21,12) = (/&
+ & 4.6191E+02_JPRB,4.5363E+02_JPRB,4.4508E+02_JPRB,4.3611E+02_JPRB,4.2662E+02_JPRB/)  
+KBO( :,22,12) = (/&
+ & 5.0045E+02_JPRB,4.9187E+02_JPRB,4.8228E+02_JPRB,4.7267E+02_JPRB,4.6269E+02_JPRB/)  
+KBO( :,23,12) = (/&
+ & 5.3771E+02_JPRB,5.2859E+02_JPRB,5.1832E+02_JPRB,5.0803E+02_JPRB,4.9670E+02_JPRB/)  
+KBO( :,24,12) = (/&
+ & 5.7227E+02_JPRB,5.6260E+02_JPRB,5.5214E+02_JPRB,5.4076E+02_JPRB,5.2846E+02_JPRB/)  
+KBO( :,25,12) = (/&
+ & 6.0401E+02_JPRB,5.9384E+02_JPRB,5.8279E+02_JPRB,5.7065E+02_JPRB,5.5724E+02_JPRB/)  
+KBO( :,26,12) = (/&
+ & 6.3275E+02_JPRB,6.2182E+02_JPRB,6.0975E+02_JPRB,5.9668E+02_JPRB,5.8248E+02_JPRB/)  
+KBO( :,27,12) = (/&
+ & 6.5788E+02_JPRB,6.4612E+02_JPRB,6.3329E+02_JPRB,6.1912E+02_JPRB,6.0393E+02_JPRB/)  
+KBO( :,28,12) = (/&
+ & 6.7977E+02_JPRB,6.6741E+02_JPRB,6.5368E+02_JPRB,6.3839E+02_JPRB,6.2186E+02_JPRB/)  
+KBO( :,29,12) = (/&
+ & 6.9860E+02_JPRB,6.8540E+02_JPRB,6.7056E+02_JPRB,6.5407E+02_JPRB,6.3669E+02_JPRB/)  
+KBO( :,30,12) = (/&
+ & 7.1428E+02_JPRB,7.0014E+02_JPRB,6.8436E+02_JPRB,6.6687E+02_JPRB,6.4843E+02_JPRB/)  
+KBO( :,31,12) = (/&
+ & 7.2707E+02_JPRB,7.1224E+02_JPRB,6.9535E+02_JPRB,6.7679E+02_JPRB,6.5732E+02_JPRB/)  
+KBO( :,32,12) = (/&
+ & 7.3739E+02_JPRB,7.2161E+02_JPRB,7.0352E+02_JPRB,6.8424E+02_JPRB,6.6374E+02_JPRB/)  
+KBO( :,33,12) = (/&
+ & 7.4529E+02_JPRB,7.2852E+02_JPRB,7.0939E+02_JPRB,6.8945E+02_JPRB,6.6810E+02_JPRB/)  
+KBO( :,34,12) = (/&
+ & 7.5166E+02_JPRB,7.3380E+02_JPRB,7.1390E+02_JPRB,6.9344E+02_JPRB,6.7141E+02_JPRB/)  
+KBO( :,35,12) = (/&
+ & 7.5785E+02_JPRB,7.3918E+02_JPRB,7.1874E+02_JPRB,6.9799E+02_JPRB,6.7527E+02_JPRB/)  
+KBO( :,36,12) = (/&
+ & 7.6435E+02_JPRB,7.4538E+02_JPRB,7.2454E+02_JPRB,7.0358E+02_JPRB,6.8040E+02_JPRB/)  
+KBO( :,37,12) = (/&
+ & 7.7161E+02_JPRB,7.5340E+02_JPRB,7.3251E+02_JPRB,7.1089E+02_JPRB,6.8800E+02_JPRB/)  
+KBO( :,38,12) = (/&
+ & 7.7853E+02_JPRB,7.6067E+02_JPRB,7.3983E+02_JPRB,7.1816E+02_JPRB,6.9536E+02_JPRB/)  
+KBO( :,39,12) = (/&
+ & 7.8464E+02_JPRB,7.6713E+02_JPRB,7.4647E+02_JPRB,7.2475E+02_JPRB,7.0178E+02_JPRB/)  
+KBO( :,40,12) = (/&
+ & 7.9160E+02_JPRB,7.7414E+02_JPRB,7.5465E+02_JPRB,7.3306E+02_JPRB,7.1009E+02_JPRB/)  
+KBO( :,41,12) = (/&
+ & 7.9795E+02_JPRB,7.8137E+02_JPRB,7.6252E+02_JPRB,7.4117E+02_JPRB,7.1825E+02_JPRB/)  
+KBO( :,42,12) = (/&
+ & 8.0363E+02_JPRB,7.8805E+02_JPRB,7.6985E+02_JPRB,7.4880E+02_JPRB,7.2604E+02_JPRB/)  
+KBO( :,43,12) = (/&
+ & 8.0918E+02_JPRB,7.9503E+02_JPRB,7.7774E+02_JPRB,7.5724E+02_JPRB,7.3478E+02_JPRB/)  
+KBO( :,44,12) = (/&
+ & 8.1405E+02_JPRB,8.0171E+02_JPRB,7.8561E+02_JPRB,7.6584E+02_JPRB,7.4379E+02_JPRB/)  
+KBO( :,45,12) = (/&
+ & 8.1783E+02_JPRB,8.0759E+02_JPRB,7.9294E+02_JPRB,7.7397E+02_JPRB,7.5240E+02_JPRB/)  
+KBO( :,46,12) = (/&
+ & 8.2078E+02_JPRB,8.1309E+02_JPRB,8.0010E+02_JPRB,7.8201E+02_JPRB,7.6131E+02_JPRB/)  
+KBO( :,47,12) = (/&
+ & 8.2288E+02_JPRB,8.1791E+02_JPRB,8.0688E+02_JPRB,7.9031E+02_JPRB,7.7082E+02_JPRB/)  
+KBO( :,48,12) = (/&
+ & 8.2365E+02_JPRB,8.2167E+02_JPRB,8.1273E+02_JPRB,7.9796E+02_JPRB,7.7963E+02_JPRB/)  
+KBO( :,49,12) = (/&
+ & 8.2287E+02_JPRB,8.2431E+02_JPRB,8.1763E+02_JPRB,8.0487E+02_JPRB,7.8791E+02_JPRB/)  
+KBO( :,50,12) = (/&
+ & 8.2045E+02_JPRB,8.2549E+02_JPRB,8.2124E+02_JPRB,8.1073E+02_JPRB,7.9521E+02_JPRB/)  
+KBO( :,51,12) = (/&
+ & 8.1647E+02_JPRB,8.2526E+02_JPRB,8.2370E+02_JPRB,8.1563E+02_JPRB,8.0180E+02_JPRB/)  
+KBO( :,52,12) = (/&
+ & 8.1121E+02_JPRB,8.2367E+02_JPRB,8.2531E+02_JPRB,8.1967E+02_JPRB,8.0788E+02_JPRB/)  
+KBO( :,53,12) = (/&
+ & 8.0411E+02_JPRB,8.2055E+02_JPRB,8.2579E+02_JPRB,8.2272E+02_JPRB,8.1321E+02_JPRB/)  
+KBO( :,54,12) = (/&
+ & 7.9588E+02_JPRB,8.1607E+02_JPRB,8.2504E+02_JPRB,8.2471E+02_JPRB,8.1743E+02_JPRB/)  
+KBO( :,55,12) = (/&
+ & 7.8606E+02_JPRB,8.1098E+02_JPRB,8.2328E+02_JPRB,8.2571E+02_JPRB,8.2076E+02_JPRB/)  
+KBO( :,56,12) = (/&
+ & 7.7445E+02_JPRB,8.0478E+02_JPRB,8.2051E+02_JPRB,8.2610E+02_JPRB,8.2295E+02_JPRB/)  
+KBO( :,57,12) = (/&
+ & 7.6082E+02_JPRB,7.9711E+02_JPRB,8.1649E+02_JPRB,8.2552E+02_JPRB,8.2493E+02_JPRB/)  
+KBO( :,58,12) = (/&
+ & 7.4626E+02_JPRB,7.8808E+02_JPRB,8.1174E+02_JPRB,8.2409E+02_JPRB,8.2621E+02_JPRB/)  
+KBO( :,59,12) = (/&
+ & 7.3987E+02_JPRB,7.8401E+02_JPRB,8.0954E+02_JPRB,8.2334E+02_JPRB,8.2653E+02_JPRB/)  
+KBO( :,13,13) = (/&
+ & 2.0706E+02_JPRB,2.0275E+02_JPRB,1.9960E+02_JPRB,1.9642E+02_JPRB,1.9325E+02_JPRB/)  
+KBO( :,14,13) = (/&
+ & 2.3740E+02_JPRB,2.3314E+02_JPRB,2.2927E+02_JPRB,2.2508E+02_JPRB,2.2071E+02_JPRB/)  
+KBO( :,15,13) = (/&
+ & 2.7338E+02_JPRB,2.6831E+02_JPRB,2.6304E+02_JPRB,2.5795E+02_JPRB,2.5294E+02_JPRB/)  
+KBO( :,16,13) = (/&
+ & 3.1308E+02_JPRB,3.0705E+02_JPRB,3.0154E+02_JPRB,2.9582E+02_JPRB,2.8990E+02_JPRB/)  
+KBO( :,17,13) = (/&
+ & 3.5766E+02_JPRB,3.5096E+02_JPRB,3.4421E+02_JPRB,3.3769E+02_JPRB,3.3070E+02_JPRB/)  
+KBO( :,18,13) = (/&
+ & 4.0731E+02_JPRB,3.9992E+02_JPRB,3.9262E+02_JPRB,3.8506E+02_JPRB,3.7703E+02_JPRB/)  
+KBO( :,19,13) = (/&
+ & 4.6388E+02_JPRB,4.5553E+02_JPRB,4.4668E+02_JPRB,4.3762E+02_JPRB,4.2783E+02_JPRB/)  
+KBO( :,20,13) = (/&
+ & 5.2583E+02_JPRB,5.1576E+02_JPRB,5.0510E+02_JPRB,4.9383E+02_JPRB,4.8218E+02_JPRB/)  
+KBO( :,21,13) = (/&
+ & 5.9116E+02_JPRB,5.7950E+02_JPRB,5.6656E+02_JPRB,5.5310E+02_JPRB,5.3897E+02_JPRB/)  
+KBO( :,22,13) = (/&
+ & 6.5823E+02_JPRB,6.4391E+02_JPRB,6.2839E+02_JPRB,6.1210E+02_JPRB,5.9534E+02_JPRB/)  
+KBO( :,23,13) = (/&
+ & 7.2542E+02_JPRB,7.0808E+02_JPRB,6.8952E+02_JPRB,6.6991E+02_JPRB,6.4969E+02_JPRB/)  
+KBO( :,24,13) = (/&
+ & 7.9029E+02_JPRB,7.7002E+02_JPRB,7.4790E+02_JPRB,7.2486E+02_JPRB,7.0140E+02_JPRB/)  
+KBO( :,25,13) = (/&
+ & 8.5203E+02_JPRB,8.2748E+02_JPRB,8.0207E+02_JPRB,7.7556E+02_JPRB,7.4909E+02_JPRB/)  
+KBO( :,26,13) = (/&
+ & 9.0879E+02_JPRB,8.8008E+02_JPRB,8.5133E+02_JPRB,8.2123E+02_JPRB,7.9187E+02_JPRB/)  
+KBO( :,27,13) = (/&
+ & 9.5929E+02_JPRB,9.2767E+02_JPRB,8.9539E+02_JPRB,8.6200E+02_JPRB,8.2944E+02_JPRB/)  
+KBO( :,28,13) = (/&
+ & 1.0038E+03_JPRB,9.6874E+02_JPRB,9.3346E+02_JPRB,8.9698E+02_JPRB,8.6129E+02_JPRB/)  
+KBO( :,29,13) = (/&
+ & 1.0414E+03_JPRB,1.0031E+03_JPRB,9.6490E+02_JPRB,9.2572E+02_JPRB,8.8715E+02_JPRB/)  
+KBO( :,30,13) = (/&
+ & 1.0721E+03_JPRB,1.0311E+03_JPRB,9.9002E+02_JPRB,9.4833E+02_JPRB,9.0740E+02_JPRB/)  
+KBO( :,31,13) = (/&
+ & 1.0964E+03_JPRB,1.0523E+03_JPRB,1.0091E+03_JPRB,9.6516E+02_JPRB,9.2258E+02_JPRB/)  
+KBO( :,32,13) = (/&
+ & 1.1144E+03_JPRB,1.0680E+03_JPRB,1.0228E+03_JPRB,9.7704E+02_JPRB,9.3296E+02_JPRB/)  
+KBO( :,33,13) = (/&
+ & 1.1268E+03_JPRB,1.0785E+03_JPRB,1.0318E+03_JPRB,9.8453E+02_JPRB,9.3914E+02_JPRB/)  
+KBO( :,34,13) = (/&
+ & 1.1363E+03_JPRB,1.0866E+03_JPRB,1.0383E+03_JPRB,9.8991E+02_JPRB,9.4342E+02_JPRB/)  
+KBO( :,35,13) = (/&
+ & 1.1468E+03_JPRB,1.0959E+03_JPRB,1.0463E+03_JPRB,9.9687E+02_JPRB,9.4938E+02_JPRB/)  
+KBO( :,36,13) = (/&
+ & 1.1600E+03_JPRB,1.1078E+03_JPRB,1.0572E+03_JPRB,1.0067E+03_JPRB,9.5830E+02_JPRB/)  
+KBO( :,37,13) = (/&
+ & 1.1790E+03_JPRB,1.1257E+03_JPRB,1.0738E+03_JPRB,1.0220E+03_JPRB,9.7295E+02_JPRB/)  
+KBO( :,38,13) = (/&
+ & 1.1965E+03_JPRB,1.1423E+03_JPRB,1.0895E+03_JPRB,1.0368E+03_JPRB,9.8736E+02_JPRB/)  
+KBO( :,39,13) = (/&
+ & 1.2126E+03_JPRB,1.1577E+03_JPRB,1.1039E+03_JPRB,1.0505E+03_JPRB,1.0002E+03_JPRB/)  
+KBO( :,40,13) = (/&
+ & 1.2331E+03_JPRB,1.1780E+03_JPRB,1.1227E+03_JPRB,1.0686E+03_JPRB,1.0174E+03_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART15',1,ZHOOK_HANDLE)
+END SUBROUTINE PART15
+
+
+SUBROUTINE PART16
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART16',0,ZHOOK_HANDLE)
+
+
+KBO( :,41,13) = (/&
+ & 1.2534E+03_JPRB,1.1977E+03_JPRB,1.1416E+03_JPRB,1.0868E+03_JPRB,1.0348E+03_JPRB/)  
+KBO( :,42,13) = (/&
+ & 1.2728E+03_JPRB,1.2168E+03_JPRB,1.1600E+03_JPRB,1.1045E+03_JPRB,1.0518E+03_JPRB/)  
+KBO( :,43,13) = (/&
+ & 1.2945E+03_JPRB,1.2387E+03_JPRB,1.1810E+03_JPRB,1.1249E+03_JPRB,1.0714E+03_JPRB/)  
+KBO( :,44,13) = (/&
+ & 1.3174E+03_JPRB,1.2614E+03_JPRB,1.2031E+03_JPRB,1.1464E+03_JPRB,1.0923E+03_JPRB/)  
+KBO( :,45,13) = (/&
+ & 1.3398E+03_JPRB,1.2836E+03_JPRB,1.2250E+03_JPRB,1.1678E+03_JPRB,1.1130E+03_JPRB/)  
+KBO( :,46,13) = (/&
+ & 1.3628E+03_JPRB,1.3065E+03_JPRB,1.2489E+03_JPRB,1.1905E+03_JPRB,1.1348E+03_JPRB/)  
+KBO( :,47,13) = (/&
+ & 1.3873E+03_JPRB,1.3317E+03_JPRB,1.2742E+03_JPRB,1.2156E+03_JPRB,1.1587E+03_JPRB/)  
+KBO( :,48,13) = (/&
+ & 1.4108E+03_JPRB,1.3565E+03_JPRB,1.2991E+03_JPRB,1.2406E+03_JPRB,1.1829E+03_JPRB/)  
+KBO( :,49,13) = (/&
+ & 1.4335E+03_JPRB,1.3803E+03_JPRB,1.3234E+03_JPRB,1.2654E+03_JPRB,1.2072E+03_JPRB/)  
+KBO( :,50,13) = (/&
+ & 1.4541E+03_JPRB,1.4021E+03_JPRB,1.3460E+03_JPRB,1.2885E+03_JPRB,1.2302E+03_JPRB/)  
+KBO( :,51,13) = (/&
+ & 1.4730E+03_JPRB,1.4228E+03_JPRB,1.3681E+03_JPRB,1.3104E+03_JPRB,1.2525E+03_JPRB/)  
+KBO( :,52,13) = (/&
+ & 1.4907E+03_JPRB,1.4427E+03_JPRB,1.3898E+03_JPRB,1.3321E+03_JPRB,1.2744E+03_JPRB/)  
+KBO( :,53,13) = (/&
+ & 1.5061E+03_JPRB,1.4619E+03_JPRB,1.4106E+03_JPRB,1.3539E+03_JPRB,1.2962E+03_JPRB/)  
+KBO( :,54,13) = (/&
+ & 1.5192E+03_JPRB,1.4794E+03_JPRB,1.4292E+03_JPRB,1.3736E+03_JPRB,1.3161E+03_JPRB/)  
+KBO( :,55,13) = (/&
+ & 1.5309E+03_JPRB,1.4941E+03_JPRB,1.4465E+03_JPRB,1.3926E+03_JPRB,1.3351E+03_JPRB/)  
+KBO( :,56,13) = (/&
+ & 1.5407E+03_JPRB,1.5075E+03_JPRB,1.4630E+03_JPRB,1.4106E+03_JPRB,1.3542E+03_JPRB/)  
+KBO( :,57,13) = (/&
+ & 1.5484E+03_JPRB,1.5197E+03_JPRB,1.4789E+03_JPRB,1.4283E+03_JPRB,1.3728E+03_JPRB/)  
+KBO( :,58,13) = (/&
+ & 1.5535E+03_JPRB,1.5303E+03_JPRB,1.4929E+03_JPRB,1.4443E+03_JPRB,1.3902E+03_JPRB/)  
+KBO( :,59,13) = (/&
+ & 1.5550E+03_JPRB,1.5344E+03_JPRB,1.4983E+03_JPRB,1.4507E+03_JPRB,1.3972E+03_JPRB/)  
+KBO( :,13,14) = (/&
+ & 2.5200E+02_JPRB,2.4567E+02_JPRB,2.3912E+02_JPRB,2.3261E+02_JPRB,2.2671E+02_JPRB/)  
+KBO( :,14,14) = (/&
+ & 2.8356E+02_JPRB,2.7567E+02_JPRB,2.6762E+02_JPRB,2.6041E+02_JPRB,2.5414E+02_JPRB/)  
+KBO( :,15,14) = (/&
+ & 3.2000E+02_JPRB,3.1086E+02_JPRB,3.0278E+02_JPRB,2.9520E+02_JPRB,2.8835E+02_JPRB/)  
+KBO( :,16,14) = (/&
+ & 3.6501E+02_JPRB,3.5545E+02_JPRB,3.4663E+02_JPRB,3.3835E+02_JPRB,3.3040E+02_JPRB/)  
+KBO( :,17,14) = (/&
+ & 4.2043E+02_JPRB,4.1003E+02_JPRB,4.0038E+02_JPRB,3.9117E+02_JPRB,3.8254E+02_JPRB/)  
+KBO( :,18,14) = (/&
+ & 4.8684E+02_JPRB,4.7541E+02_JPRB,4.6423E+02_JPRB,4.5366E+02_JPRB,4.4317E+02_JPRB/)  
+KBO( :,19,14) = (/&
+ & 5.6352E+02_JPRB,5.4977E+02_JPRB,5.3699E+02_JPRB,5.2451E+02_JPRB,5.1166E+02_JPRB/)  
+KBO( :,20,14) = (/&
+ & 6.4946E+02_JPRB,6.3281E+02_JPRB,6.1710E+02_JPRB,6.0187E+02_JPRB,5.8639E+02_JPRB/)  
+KBO( :,21,14) = (/&
+ & 7.4362E+02_JPRB,7.2356E+02_JPRB,7.0410E+02_JPRB,6.8448E+02_JPRB,6.6564E+02_JPRB/)  
+KBO( :,22,14) = (/&
+ & 8.4333E+02_JPRB,8.1844E+02_JPRB,7.9450E+02_JPRB,7.7017E+02_JPRB,7.4626E+02_JPRB/)  
+KBO( :,23,14) = (/&
+ & 9.4680E+02_JPRB,9.1686E+02_JPRB,8.8724E+02_JPRB,8.5711E+02_JPRB,8.2794E+02_JPRB/)  
+KBO( :,24,14) = (/&
+ & 1.0528E+03_JPRB,1.0161E+03_JPRB,9.7917E+02_JPRB,9.4320E+02_JPRB,9.0772E+02_JPRB/)  
+KBO( :,25,14) = (/&
+ & 1.1567E+03_JPRB,1.1128E+03_JPRB,1.0684E+03_JPRB,1.0249E+03_JPRB,9.8260E+02_JPRB/)  
+KBO( :,26,14) = (/&
+ & 1.2530E+03_JPRB,1.2021E+03_JPRB,1.1497E+03_JPRB,1.0989E+03_JPRB,1.0499E+03_JPRB/)  
+KBO( :,27,14) = (/&
+ & 1.3414E+03_JPRB,1.2817E+03_JPRB,1.2215E+03_JPRB,1.1632E+03_JPRB,1.1083E+03_JPRB/)  
+KBO( :,28,14) = (/&
+ & 1.4184E+03_JPRB,1.3503E+03_JPRB,1.2822E+03_JPRB,1.2175E+03_JPRB,1.1569E+03_JPRB/)  
+KBO( :,29,14) = (/&
+ & 1.4829E+03_JPRB,1.4069E+03_JPRB,1.3322E+03_JPRB,1.2616E+03_JPRB,1.1958E+03_JPRB/)  
+KBO( :,30,14) = (/&
+ & 1.5347E+03_JPRB,1.4521E+03_JPRB,1.3719E+03_JPRB,1.2961E+03_JPRB,1.2258E+03_JPRB/)  
+KBO( :,31,14) = (/&
+ & 1.5740E+03_JPRB,1.4863E+03_JPRB,1.4011E+03_JPRB,1.3213E+03_JPRB,1.2473E+03_JPRB/)  
+KBO( :,32,14) = (/&
+ & 1.6019E+03_JPRB,1.5104E+03_JPRB,1.4212E+03_JPRB,1.3381E+03_JPRB,1.2613E+03_JPRB/)  
+KBO( :,33,14) = (/&
+ & 1.6206E+03_JPRB,1.5254E+03_JPRB,1.4335E+03_JPRB,1.3478E+03_JPRB,1.2690E+03_JPRB/)  
+KBO( :,34,14) = (/&
+ & 1.6343E+03_JPRB,1.5362E+03_JPRB,1.4422E+03_JPRB,1.3545E+03_JPRB,1.2743E+03_JPRB/)  
+KBO( :,35,14) = (/&
+ & 1.6513E+03_JPRB,1.5505E+03_JPRB,1.4543E+03_JPRB,1.3647E+03_JPRB,1.2829E+03_JPRB/)  
+KBO( :,36,14) = (/&
+ & 1.6747E+03_JPRB,1.5711E+03_JPRB,1.4723E+03_JPRB,1.3806E+03_JPRB,1.2969E+03_JPRB/)  
+KBO( :,37,14) = (/&
+ & 1.7119E+03_JPRB,1.6037E+03_JPRB,1.5018E+03_JPRB,1.4086E+03_JPRB,1.3210E+03_JPRB/)  
+KBO( :,38,14) = (/&
+ & 1.7464E+03_JPRB,1.6348E+03_JPRB,1.5298E+03_JPRB,1.4339E+03_JPRB,1.3446E+03_JPRB/)  
+KBO( :,39,14) = (/&
+ & 1.7785E+03_JPRB,1.6638E+03_JPRB,1.5560E+03_JPRB,1.4575E+03_JPRB,1.3661E+03_JPRB/)  
+KBO( :,40,14) = (/&
+ & 1.8213E+03_JPRB,1.7031E+03_JPRB,1.5916E+03_JPRB,1.4897E+03_JPRB,1.3957E+03_JPRB/)  
+KBO( :,41,14) = (/&
+ & 1.8650E+03_JPRB,1.7429E+03_JPRB,1.6279E+03_JPRB,1.5226E+03_JPRB,1.4260E+03_JPRB/)  
+KBO( :,42,14) = (/&
+ & 1.9083E+03_JPRB,1.7822E+03_JPRB,1.6638E+03_JPRB,1.5553E+03_JPRB,1.4560E+03_JPRB/)  
+KBO( :,43,14) = (/&
+ & 1.9590E+03_JPRB,1.8282E+03_JPRB,1.7062E+03_JPRB,1.5939E+03_JPRB,1.4914E+03_JPRB/)  
+KBO( :,44,14) = (/&
+ & 2.0135E+03_JPRB,1.8780E+03_JPRB,1.7518E+03_JPRB,1.6354E+03_JPRB,1.5294E+03_JPRB/)  
+KBO( :,45,14) = (/&
+ & 2.0686E+03_JPRB,1.9283E+03_JPRB,1.7978E+03_JPRB,1.6776E+03_JPRB,1.5679E+03_JPRB/)  
+KBO( :,46,14) = (/&
+ & 2.1281E+03_JPRB,1.9824E+03_JPRB,1.8468E+03_JPRB,1.7228E+03_JPRB,1.6096E+03_JPRB/)  
+KBO( :,47,14) = (/&
+ & 2.1954E+03_JPRB,2.0435E+03_JPRB,1.9031E+03_JPRB,1.7740E+03_JPRB,1.6572E+03_JPRB/)  
+KBO( :,48,14) = (/&
+ & 2.2648E+03_JPRB,2.1064E+03_JPRB,1.9610E+03_JPRB,1.8268E+03_JPRB,1.7061E+03_JPRB/)  
+KBO( :,49,14) = (/&
+ & 2.3361E+03_JPRB,2.1712E+03_JPRB,2.0209E+03_JPRB,1.8815E+03_JPRB,1.7562E+03_JPRB/)  
+KBO( :,50,14) = (/&
+ & 2.4045E+03_JPRB,2.2339E+03_JPRB,2.0788E+03_JPRB,1.9343E+03_JPRB,1.8042E+03_JPRB/)  
+KBO( :,51,14) = (/&
+ & 2.4726E+03_JPRB,2.2963E+03_JPRB,2.1361E+03_JPRB,1.9873E+03_JPRB,1.8522E+03_JPRB/)  
+KBO( :,52,14) = (/&
+ & 2.5428E+03_JPRB,2.3607E+03_JPRB,2.1949E+03_JPRB,2.0419E+03_JPRB,1.9016E+03_JPRB/)  
+KBO( :,53,14) = (/&
+ & 2.6141E+03_JPRB,2.4269E+03_JPRB,2.2555E+03_JPRB,2.0978E+03_JPRB,1.9528E+03_JPRB/)  
+KBO( :,54,14) = (/&
+ & 2.6807E+03_JPRB,2.4886E+03_JPRB,2.3128E+03_JPRB,2.1502E+03_JPRB,2.0011E+03_JPRB/)  
+KBO( :,55,14) = (/&
+ & 2.7459E+03_JPRB,2.5495E+03_JPRB,2.3693E+03_JPRB,2.2020E+03_JPRB,2.0486E+03_JPRB/)  
+KBO( :,56,14) = (/&
+ & 2.8130E+03_JPRB,2.6116E+03_JPRB,2.4267E+03_JPRB,2.2548E+03_JPRB,2.0964E+03_JPRB/)  
+KBO( :,57,14) = (/&
+ & 2.8820E+03_JPRB,2.6749E+03_JPRB,2.4855E+03_JPRB,2.3093E+03_JPRB,2.1460E+03_JPRB/)  
+KBO( :,58,14) = (/&
+ & 2.9481E+03_JPRB,2.7364E+03_JPRB,2.5424E+03_JPRB,2.3624E+03_JPRB,2.1944E+03_JPRB/)  
+KBO( :,59,14) = (/&
+ & 2.9753E+03_JPRB,2.7616E+03_JPRB,2.5658E+03_JPRB,2.3843E+03_JPRB,2.2142E+03_JPRB/)  
+KBO( :,13,15) = (/&
+ & 3.0496E+02_JPRB,3.0081E+02_JPRB,2.9676E+02_JPRB,2.9051E+02_JPRB,2.8450E+02_JPRB/)  
+KBO( :,14,15) = (/&
+ & 3.4462E+02_JPRB,3.4099E+02_JPRB,3.3527E+02_JPRB,3.3016E+02_JPRB,3.2406E+02_JPRB/)  
+KBO( :,15,15) = (/&
+ & 3.8936E+02_JPRB,3.8628E+02_JPRB,3.8183E+02_JPRB,3.7492E+02_JPRB,3.6807E+02_JPRB/)  
+KBO( :,16,15) = (/&
+ & 4.4332E+02_JPRB,4.3856E+02_JPRB,4.3430E+02_JPRB,4.2589E+02_JPRB,4.1877E+02_JPRB/)  
+KBO( :,17,15) = (/&
+ & 5.0835E+02_JPRB,5.0183E+02_JPRB,4.9489E+02_JPRB,4.8561E+02_JPRB,4.7621E+02_JPRB/)  
+KBO( :,18,15) = (/&
+ & 5.8677E+02_JPRB,5.7885E+02_JPRB,5.6791E+02_JPRB,5.5537E+02_JPRB,5.4279E+02_JPRB/)  
+KBO( :,19,15) = (/&
+ & 6.8130E+02_JPRB,6.6815E+02_JPRB,6.5194E+02_JPRB,6.3561E+02_JPRB,6.1955E+02_JPRB/)  
+KBO( :,20,15) = (/&
+ & 7.8879E+02_JPRB,7.7015E+02_JPRB,7.4875E+02_JPRB,7.2676E+02_JPRB,7.0600E+02_JPRB/)  
+KBO( :,21,15) = (/&
+ & 9.1167E+02_JPRB,8.8542E+02_JPRB,8.5728E+02_JPRB,8.2924E+02_JPRB,8.0222E+02_JPRB/)  
+KBO( :,22,15) = (/&
+ & 1.0456E+03_JPRB,1.0104E+03_JPRB,9.7413E+02_JPRB,9.3830E+02_JPRB,9.0416E+02_JPRB/)  
+KBO( :,23,15) = (/&
+ & 1.1890E+03_JPRB,1.1427E+03_JPRB,1.0964E+03_JPRB,1.0517E+03_JPRB,1.0073E+03_JPRB/)  
+KBO( :,24,15) = (/&
+ & 1.3341E+03_JPRB,1.2769E+03_JPRB,1.2199E+03_JPRB,1.1637E+03_JPRB,1.1097E+03_JPRB/)  
+KBO( :,25,15) = (/&
+ & 1.4777E+03_JPRB,1.4064E+03_JPRB,1.3371E+03_JPRB,1.2692E+03_JPRB,1.2051E+03_JPRB/)  
+KBO( :,26,15) = (/&
+ & 1.6127E+03_JPRB,1.5257E+03_JPRB,1.4439E+03_JPRB,1.3652E+03_JPRB,1.2908E+03_JPRB/)  
+KBO( :,27,15) = (/&
+ & 1.7363E+03_JPRB,1.6345E+03_JPRB,1.5403E+03_JPRB,1.4516E+03_JPRB,1.3681E+03_JPRB/)  
+KBO( :,28,15) = (/&
+ & 1.8456E+03_JPRB,1.7310E+03_JPRB,1.6252E+03_JPRB,1.5262E+03_JPRB,1.4343E+03_JPRB/)  
+KBO( :,29,15) = (/&
+ & 1.9374E+03_JPRB,1.8114E+03_JPRB,1.6953E+03_JPRB,1.5870E+03_JPRB,1.4880E+03_JPRB/)  
+KBO( :,30,15) = (/&
+ & 2.0123E+03_JPRB,1.8759E+03_JPRB,1.7509E+03_JPRB,1.6347E+03_JPRB,1.5297E+03_JPRB/)  
+KBO( :,31,15) = (/&
+ & 2.0695E+03_JPRB,1.9241E+03_JPRB,1.7919E+03_JPRB,1.6696E+03_JPRB,1.5595E+03_JPRB/)  
+KBO( :,32,15) = (/&
+ & 2.1098E+03_JPRB,1.9573E+03_JPRB,1.8199E+03_JPRB,1.6927E+03_JPRB,1.5791E+03_JPRB/)  
+KBO( :,33,15) = (/&
+ & 2.1350E+03_JPRB,1.9776E+03_JPRB,1.8360E+03_JPRB,1.7058E+03_JPRB,1.5896E+03_JPRB/)  
+KBO( :,34,15) = (/&
+ & 2.1531E+03_JPRB,1.9921E+03_JPRB,1.8473E+03_JPRB,1.7146E+03_JPRB,1.5966E+03_JPRB/)  
+KBO( :,35,15) = (/&
+ & 2.1773E+03_JPRB,2.0121E+03_JPRB,1.8641E+03_JPRB,1.7288E+03_JPRB,1.6085E+03_JPRB/)  
+KBO( :,36,15) = (/&
+ & 2.2124E+03_JPRB,2.0424E+03_JPRB,1.8903E+03_JPRB,1.7515E+03_JPRB,1.6285E+03_JPRB/)  
+KBO( :,37,15) = (/&
+ & 2.2692E+03_JPRB,2.0922E+03_JPRB,1.9342E+03_JPRB,1.7916E+03_JPRB,1.6630E+03_JPRB/)  
+KBO( :,38,15) = (/&
+ & 2.3243E+03_JPRB,2.1400E+03_JPRB,1.9765E+03_JPRB,1.8290E+03_JPRB,1.6948E+03_JPRB/)  
+KBO( :,39,15) = (/&
+ & 2.3761E+03_JPRB,2.1849E+03_JPRB,2.0163E+03_JPRB,1.8643E+03_JPRB,1.7262E+03_JPRB/)  
+KBO( :,40,15) = (/&
+ & 2.4467E+03_JPRB,2.2470E+03_JPRB,2.0711E+03_JPRB,1.9128E+03_JPRB,1.7697E+03_JPRB/)  
+KBO( :,41,15) = (/&
+ & 2.5197E+03_JPRB,2.3108E+03_JPRB,2.1276E+03_JPRB,1.9630E+03_JPRB,1.8147E+03_JPRB/)  
+KBO( :,42,15) = (/&
+ & 2.5927E+03_JPRB,2.3746E+03_JPRB,2.1839E+03_JPRB,2.0131E+03_JPRB,1.8595E+03_JPRB/)  
+KBO( :,43,15) = (/&
+ & 2.6795E+03_JPRB,2.4509E+03_JPRB,2.2509E+03_JPRB,2.0729E+03_JPRB,1.9127E+03_JPRB/)  
+KBO( :,44,15) = (/&
+ & 2.7746E+03_JPRB,2.5346E+03_JPRB,2.3244E+03_JPRB,2.1382E+03_JPRB,1.9711E+03_JPRB/)  
+KBO( :,45,15) = (/&
+ & 2.8725E+03_JPRB,2.6210E+03_JPRB,2.4001E+03_JPRB,2.2052E+03_JPRB,2.0310E+03_JPRB/)  
+KBO( :,46,15) = (/&
+ & 2.9808E+03_JPRB,2.7160E+03_JPRB,2.4820E+03_JPRB,2.2786E+03_JPRB,2.0965E+03_JPRB/)  
+KBO( :,47,15) = (/&
+ & 3.1065E+03_JPRB,2.8260E+03_JPRB,2.5776E+03_JPRB,2.3630E+03_JPRB,2.1714E+03_JPRB/)  
+KBO( :,48,15) = (/&
+ & 3.2382E+03_JPRB,2.9414E+03_JPRB,2.6779E+03_JPRB,2.4515E+03_JPRB,2.2491E+03_JPRB/)  
+KBO( :,49,15) = (/&
+ & 3.3769E+03_JPRB,3.0628E+03_JPRB,2.7828E+03_JPRB,2.5435E+03_JPRB,2.3301E+03_JPRB/)  
+KBO( :,50,15) = (/&
+ & 3.5153E+03_JPRB,3.1825E+03_JPRB,2.8860E+03_JPRB,2.6340E+03_JPRB,2.4097E+03_JPRB/)  
+KBO( :,51,15) = (/&
+ & 3.6567E+03_JPRB,3.3043E+03_JPRB,2.9915E+03_JPRB,2.7258E+03_JPRB,2.4905E+03_JPRB/)  
+KBO( :,52,15) = (/&
+ & 3.8059E+03_JPRB,3.4316E+03_JPRB,3.1018E+03_JPRB,2.8218E+03_JPRB,2.5746E+03_JPRB/)  
+KBO( :,53,15) = (/&
+ & 3.9647E+03_JPRB,3.5659E+03_JPRB,3.2181E+03_JPRB,2.9226E+03_JPRB,2.6623E+03_JPRB/)  
+KBO( :,54,15) = (/&
+ & 4.1182E+03_JPRB,3.6932E+03_JPRB,3.3305E+03_JPRB,3.0197E+03_JPRB,2.7461E+03_JPRB/)  
+KBO( :,55,15) = (/&
+ & 4.2719E+03_JPRB,3.8244E+03_JPRB,3.4429E+03_JPRB,3.1156E+03_JPRB,2.8302E+03_JPRB/)  
+KBO( :,56,15) = (/&
+ & 4.4321E+03_JPRB,3.9623E+03_JPRB,3.5606E+03_JPRB,3.2171E+03_JPRB,2.9172E+03_JPRB/)  
+KBO( :,57,15) = (/&
+ & 4.6005E+03_JPRB,4.1071E+03_JPRB,3.6841E+03_JPRB,3.3227E+03_JPRB,3.0093E+03_JPRB/)  
+KBO( :,58,15) = (/&
+ & 4.7711E+03_JPRB,4.2512E+03_JPRB,3.8068E+03_JPRB,3.4270E+03_JPRB,3.1000E+03_JPRB/)  
+KBO( :,59,15) = (/&
+ & 4.8435E+03_JPRB,4.3113E+03_JPRB,3.8580E+03_JPRB,3.4704E+03_JPRB,3.1379E+03_JPRB/)  
+KBO( :,13,16) = (/&
+ & 3.6480E+02_JPRB,3.5145E+02_JPRB,3.4350E+02_JPRB,3.3674E+02_JPRB,3.3295E+02_JPRB/)  
+KBO( :,14,16) = (/&
+ & 4.3305E+02_JPRB,4.2002E+02_JPRB,4.0834E+02_JPRB,4.0114E+02_JPRB,3.9514E+02_JPRB/)  
+KBO( :,15,16) = (/&
+ & 5.1021E+02_JPRB,4.9566E+02_JPRB,4.8445E+02_JPRB,4.7500E+02_JPRB,4.6664E+02_JPRB/)  
+KBO( :,16,16) = (/&
+ & 6.0095E+02_JPRB,5.8332E+02_JPRB,5.7034E+02_JPRB,5.5793E+02_JPRB,5.4743E+02_JPRB/)  
+KBO( :,17,16) = (/&
+ & 6.9984E+02_JPRB,6.8135E+02_JPRB,6.6501E+02_JPRB,6.5003E+02_JPRB,6.3773E+02_JPRB/)  
+KBO( :,18,16) = (/&
+ & 8.1052E+02_JPRB,7.8978E+02_JPRB,7.6911E+02_JPRB,7.5277E+02_JPRB,7.3709E+02_JPRB/)  
+KBO( :,19,16) = (/&
+ & 9.3185E+02_JPRB,9.0651E+02_JPRB,8.8287E+02_JPRB,8.6357E+02_JPRB,8.4262E+02_JPRB/)  
+KBO( :,20,16) = (/&
+ & 1.0617E+03_JPRB,1.0323E+03_JPRB,1.0033E+03_JPRB,9.7715E+02_JPRB,9.5295E+02_JPRB/)  
+KBO( :,21,16) = (/&
+ & 1.1955E+03_JPRB,1.1605E+03_JPRB,1.1266E+03_JPRB,1.0931E+03_JPRB,1.0626E+03_JPRB/)  
+KBO( :,22,16) = (/&
+ & 1.3313E+03_JPRB,1.2888E+03_JPRB,1.2452E+03_JPRB,1.2039E+03_JPRB,1.1668E+03_JPRB/)  
+KBO( :,23,16) = (/&
+ & 1.4677E+03_JPRB,1.4171E+03_JPRB,1.3647E+03_JPRB,1.3122E+03_JPRB,1.2693E+03_JPRB/)  
+KBO( :,24,16) = (/&
+ & 1.6031E+03_JPRB,1.5431E+03_JPRB,1.4805E+03_JPRB,1.4214E+03_JPRB,1.3711E+03_JPRB/)  
+KBO( :,25,16) = (/&
+ & 1.7446E+03_JPRB,1.6761E+03_JPRB,1.6075E+03_JPRB,1.5354E+03_JPRB,1.4755E+03_JPRB/)  
+KBO( :,26,16) = (/&
+ & 1.8991E+03_JPRB,1.8163E+03_JPRB,1.7331E+03_JPRB,1.6466E+03_JPRB,1.5750E+03_JPRB/)  
+KBO( :,27,16) = (/&
+ & 2.0473E+03_JPRB,1.9486E+03_JPRB,1.8508E+03_JPRB,1.7507E+03_JPRB,1.6645E+03_JPRB/)  
+KBO( :,28,16) = (/&
+ & 2.1841E+03_JPRB,2.0672E+03_JPRB,1.9532E+03_JPRB,1.8416E+03_JPRB,1.7427E+03_JPRB/)  
+KBO( :,29,16) = (/&
+ & 2.3013E+03_JPRB,2.1668E+03_JPRB,2.0380E+03_JPRB,1.9159E+03_JPRB,1.8061E+03_JPRB/)  
+KBO( :,30,16) = (/&
+ & 2.3968E+03_JPRB,2.2468E+03_JPRB,2.1057E+03_JPRB,1.9742E+03_JPRB,1.8547E+03_JPRB/)  
+KBO( :,31,16) = (/&
+ & 2.4698E+03_JPRB,2.3066E+03_JPRB,2.1555E+03_JPRB,2.0162E+03_JPRB,1.8899E+03_JPRB/)  
+KBO( :,32,16) = (/&
+ & 2.5212E+03_JPRB,2.3480E+03_JPRB,2.1899E+03_JPRB,2.0439E+03_JPRB,1.9131E+03_JPRB/)  
+KBO( :,33,16) = (/&
+ & 2.5535E+03_JPRB,2.3733E+03_JPRB,2.2102E+03_JPRB,2.0593E+03_JPRB,1.9261E+03_JPRB/)  
+KBO( :,34,16) = (/&
+ & 2.5772E+03_JPRB,2.3915E+03_JPRB,2.2247E+03_JPRB,2.0705E+03_JPRB,1.9349E+03_JPRB/)  
+KBO( :,35,16) = (/&
+ & 2.6073E+03_JPRB,2.4161E+03_JPRB,2.2452E+03_JPRB,2.0872E+03_JPRB,1.9493E+03_JPRB/)  
+KBO( :,36,16) = (/&
+ & 2.6509E+03_JPRB,2.4529E+03_JPRB,2.2766E+03_JPRB,2.1138E+03_JPRB,1.9720E+03_JPRB/)  
+KBO( :,37,16) = (/&
+ & 2.7188E+03_JPRB,2.5136E+03_JPRB,2.3285E+03_JPRB,2.1597E+03_JPRB,2.0114E+03_JPRB/)  
+KBO( :,38,16) = (/&
+ & 2.7845E+03_JPRB,2.5721E+03_JPRB,2.3785E+03_JPRB,2.2030E+03_JPRB,2.0515E+03_JPRB/)  
+KBO( :,39,16) = (/&
+ & 2.8472E+03_JPRB,2.6270E+03_JPRB,2.4254E+03_JPRB,2.2449E+03_JPRB,2.0875E+03_JPRB/)  
+KBO( :,40,16) = (/&
+ & 2.9330E+03_JPRB,2.6993E+03_JPRB,2.4900E+03_JPRB,2.3030E+03_JPRB,2.1374E+03_JPRB/)  
+KBO( :,41,16) = (/&
+ & 3.0218E+03_JPRB,2.7769E+03_JPRB,2.5568E+03_JPRB,2.3631E+03_JPRB,2.1888E+03_JPRB/)  
+KBO( :,42,16) = (/&
+ & 3.1113E+03_JPRB,2.8546E+03_JPRB,2.6243E+03_JPRB,2.4236E+03_JPRB,2.2399E+03_JPRB/)  
+KBO( :,43,16) = (/&
+ & 3.2191E+03_JPRB,2.9464E+03_JPRB,2.7051E+03_JPRB,2.4953E+03_JPRB,2.3016E+03_JPRB/)  
+KBO( :,44,16) = (/&
+ & 3.3385E+03_JPRB,3.0469E+03_JPRB,2.7942E+03_JPRB,2.5737E+03_JPRB,2.3700E+03_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART16',1,ZHOOK_HANDLE)
+END SUBROUTINE PART16
+
+
+SUBROUTINE PART17
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART17',0,ZHOOK_HANDLE)
+
+
+KBO( :,45,16) = (/&
+ & 3.4626E+03_JPRB,3.1506E+03_JPRB,2.8863E+03_JPRB,2.6539E+03_JPRB,2.4394E+03_JPRB/)  
+KBO( :,46,16) = (/&
+ & 3.6001E+03_JPRB,3.2642E+03_JPRB,2.9874E+03_JPRB,2.7413E+03_JPRB,2.5151E+03_JPRB/)  
+KBO( :,47,16) = (/&
+ & 3.7610E+03_JPRB,3.3965E+03_JPRB,3.1046E+03_JPRB,2.8425E+03_JPRB,2.6031E+03_JPRB/)  
+KBO( :,48,16) = (/&
+ & 3.9321E+03_JPRB,3.5361E+03_JPRB,3.2276E+03_JPRB,2.9476E+03_JPRB,2.6982E+03_JPRB/)  
+KBO( :,49,16) = (/&
+ & 4.1176E+03_JPRB,3.6899E+03_JPRB,3.3583E+03_JPRB,3.0595E+03_JPRB,2.7974E+03_JPRB/)  
+KBO( :,50,16) = (/&
+ & 4.3032E+03_JPRB,3.8456E+03_JPRB,3.4873E+03_JPRB,3.1701E+03_JPRB,2.8952E+03_JPRB/)  
+KBO( :,51,16) = (/&
+ & 4.4935E+03_JPRB,4.0060E+03_JPRB,3.6203E+03_JPRB,3.2826E+03_JPRB,2.9949E+03_JPRB/)  
+KBO( :,52,16) = (/&
+ & 4.6944E+03_JPRB,4.1760E+03_JPRB,3.7596E+03_JPRB,3.4020E+03_JPRB,3.0994E+03_JPRB/)  
+KBO( :,53,16) = (/&
+ & 4.9137E+03_JPRB,4.3562E+03_JPRB,3.9079E+03_JPRB,3.5294E+03_JPRB,3.2093E+03_JPRB/)  
+KBO( :,54,16) = (/&
+ & 5.1332E+03_JPRB,4.5465E+03_JPRB,4.0538E+03_JPRB,3.6533E+03_JPRB,3.3147E+03_JPRB/)  
+KBO( :,55,16) = (/&
+ & 5.3615E+03_JPRB,4.7268E+03_JPRB,4.2040E+03_JPRB,3.7715E+03_JPRB,3.4204E+03_JPRB/)  
+KBO( :,56,16) = (/&
+ & 5.6101E+03_JPRB,4.9206E+03_JPRB,4.3611E+03_JPRB,3.9031E+03_JPRB,3.5302E+03_JPRB/)  
+KBO( :,57,16) = (/&
+ & 5.8786E+03_JPRB,5.1280E+03_JPRB,4.5273E+03_JPRB,4.0416E+03_JPRB,3.6469E+03_JPRB/)  
+KBO( :,58,16) = (/&
+ & 6.1495E+03_JPRB,5.3426E+03_JPRB,4.6971E+03_JPRB,4.1821E+03_JPRB,3.7629E+03_JPRB/)  
+KBO( :,59,16) = (/&
+ & 6.2646E+03_JPRB,5.4342E+03_JPRB,4.7694E+03_JPRB,4.2411E+03_JPRB,3.8114E+03_JPRB/)  
+
+!     The array SELFREFO contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+SELFREFO( :, 1) = (/&
+ & 5.19175E-02_JPRB, 4.28815E-02_JPRB, 3.54182E-02_JPRB, 2.92539E-02_JPRB, 2.41624E-02_JPRB,&
+ & 1.99571E-02_JPRB, 1.64836E-02_JPRB, 1.36148E-02_JPRB, 1.12452E-02_JPRB, 9.28801E-03_JPRB/)  
+SELFREFO( :, 2) = (/&
+ & 4.36985E-02_JPRB, 3.78503E-02_JPRB, 3.27848E-02_JPRB, 2.83973E-02_JPRB, 2.45969E-02_JPRB,&
+ & 2.13051E-02_JPRB, 1.84538E-02_JPRB, 1.59842E-02_JPRB, 1.38450E-02_JPRB, 1.19921E-02_JPRB/)  
+SELFREFO( :, 3) = (/&
+ & 4.25575E-02_JPRB, 3.71214E-02_JPRB, 3.23797E-02_JPRB, 2.82437E-02_JPRB, 2.46360E-02_JPRB,&
+ & 2.14891E-02_JPRB, 1.87442E-02_JPRB, 1.63499E-02_JPRB, 1.42615E-02_JPRB, 1.24398E-02_JPRB/)  
+SELFREFO( :, 4) = (/&
+ & 4.03854E-02_JPRB, 3.54677E-02_JPRB, 3.11488E-02_JPRB, 2.73558E-02_JPRB, 2.40247E-02_JPRB,&
+ & 2.10992E-02_JPRB, 1.85300E-02_JPRB, 1.62736E-02_JPRB, 1.42920E-02_JPRB, 1.25517E-02_JPRB/)  
+SELFREFO( :, 5) = (/&
+ & 3.95070E-02_JPRB, 3.46726E-02_JPRB, 3.04297E-02_JPRB, 2.67060E-02_JPRB, 2.34380E-02_JPRB,&
+ & 2.05699E-02_JPRB, 1.80528E-02_JPRB, 1.58437E-02_JPRB, 1.39049E-02_JPRB, 1.22034E-02_JPRB/)  
+SELFREFO( :, 6) = (/&
+ & 3.89748E-02_JPRB, 3.40186E-02_JPRB, 2.96926E-02_JPRB, 2.59168E-02_JPRB, 2.26211E-02_JPRB,&
+ & 1.97445E-02_JPRB, 1.72337E-02_JPRB, 1.50422E-02_JPRB, 1.31293E-02_JPRB, 1.14597E-02_JPRB/)  
+SELFREFO( :, 7) = (/&
+ & 3.85527E-02_JPRB, 3.36561E-02_JPRB, 2.93815E-02_JPRB, 2.56497E-02_JPRB, 2.23920E-02_JPRB,&
+ & 1.95480E-02_JPRB, 1.70652E-02_JPRB, 1.48977E-02_JPRB, 1.30056E-02_JPRB, 1.13537E-02_JPRB/)  
+SELFREFO( :, 8) = (/&
+ & 3.78212E-02_JPRB, 3.30614E-02_JPRB, 2.89005E-02_JPRB, 2.52633E-02_JPRB, 2.20839E-02_JPRB,&
+ & 1.93046E-02_JPRB, 1.68751E-02_JPRB, 1.47513E-02_JPRB, 1.28948E-02_JPRB, 1.12720E-02_JPRB/)  
+SELFREFO( :, 9) = (/&
+ & 3.68624E-02_JPRB, 3.22676E-02_JPRB, 2.82456E-02_JPRB, 2.47248E-02_JPRB, 2.16429E-02_JPRB,&
+ & 1.89452E-02_JPRB, 1.65838E-02_JPRB, 1.45166E-02_JPRB, 1.27072E-02_JPRB, 1.11233E-02_JPRB/)  
+SELFREFO( :,10) = (/&
+ & 3.63135E-02_JPRB, 3.19332E-02_JPRB, 2.80813E-02_JPRB, 2.46940E-02_JPRB, 2.17154E-02_JPRB,&
+ & 1.90960E-02_JPRB, 1.67926E-02_JPRB, 1.47670E-02_JPRB, 1.29857E-02_JPRB, 1.14193E-02_JPRB/)  
+SELFREFO( :,11) = (/&
+ & 3.60018E-02_JPRB, 3.17294E-02_JPRB, 2.79640E-02_JPRB, 2.46454E-02_JPRB, 2.17207E-02_JPRB,&
+ & 1.91430E-02_JPRB, 1.68713E-02_JPRB, 1.48691E-02_JPRB, 1.31045E-02_JPRB, 1.15494E-02_JPRB/)  
+SELFREFO( :,12) = (/&
+ & 3.65147E-02_JPRB, 3.19158E-02_JPRB, 2.78962E-02_JPRB, 2.43827E-02_JPRB, 2.13118E-02_JPRB,&
+ & 1.86277E-02_JPRB, 1.62816E-02_JPRB, 1.42310E-02_JPRB, 1.24386E-02_JPRB, 1.08720E-02_JPRB/)  
+SELFREFO( :,13) = (/&
+ & 3.72684E-02_JPRB, 3.23732E-02_JPRB, 2.81210E-02_JPRB, 2.44274E-02_JPRB, 2.12189E-02_JPRB,&
+ & 1.84318E-02_JPRB, 1.60108E-02_JPRB, 1.39078E-02_JPRB, 1.20810E-02_JPRB, 1.04942E-02_JPRB/)  
+SELFREFO( :,14) = (/&
+ & 3.87604E-02_JPRB, 3.34099E-02_JPRB, 2.87979E-02_JPRB, 2.48226E-02_JPRB, 2.13960E-02_JPRB,&
+ & 1.84425E-02_JPRB, 1.58967E-02_JPRB, 1.37023E-02_JPRB, 1.18108E-02_JPRB, 1.01804E-02_JPRB/)  
+SELFREFO( :,15) = (/&
+ & 3.51227E-02_JPRB, 3.05052E-02_JPRB, 2.64947E-02_JPRB, 2.30115E-02_JPRB, 1.99862E-02_JPRB,&
+ & 1.73586E-02_JPRB, 1.50765E-02_JPRB, 1.30944E-02_JPRB, 1.13729E-02_JPRB, 9.87775E-03_JPRB/)  
+SELFREFO( :,16) = (/&
+ & 3.51227E-02_JPRB, 3.05052E-02_JPRB, 2.64947E-02_JPRB, 2.30115E-02_JPRB, 1.99862E-02_JPRB,&
+ & 1.73586E-02_JPRB, 1.50765E-02_JPRB, 1.30944E-02_JPRB, 1.13729E-02_JPRB, 9.87775E-03_JPRB/)  
+
+FRACREFAO( :, 1) = (/&
+ & 0.16461779_JPRB, 0.14889984_JPRB, 0.14233345_JPRB, 0.13156526_JPRB,&
+ & 0.11679733_JPRB, 0.09988949_JPRB, 0.08078653_JPRB, 0.06006384_JPRB,&
+ & 0.04028391_JPRB, 0.00435899_JPRB, 0.00359173_JPRB, 0.00281707_JPRB,&
+ & 0.00206767_JPRB, 0.00135012_JPRB, 0.00050720_JPRB, 0.00007146_JPRB/)  
+FRACREFAO( :, 2) = (/&
+ & 0.16442357_JPRB, 0.14944240_JPRB, 0.14245804_JPRB, 0.13111183_JPRB,&
+ & 0.11688625_JPRB, 0.09983791_JPRB, 0.08085148_JPRB, 0.05993948_JPRB,&
+ & 0.04028057_JPRB, 0.00435939_JPRB, 0.00358708_JPRB, 0.00284036_JPRB,&
+ & 0.00208869_JPRB, 0.00133256_JPRB, 0.00049260_JPRB, 0.00006931_JPRB/)  
+FRACREFAO( :, 3) = (/&
+ & 0.16368519_JPRB, 0.15018989_JPRB, 0.14262174_JPRB, 0.13084342_JPRB,&
+ & 0.11682195_JPRB, 0.09996257_JPRB, 0.08074036_JPRB, 0.05985692_JPRB,&
+ & 0.04045362_JPRB, 0.00436208_JPRB, 0.00358257_JPRB, 0.00287122_JPRB,&
+ & 0.00211004_JPRB, 0.00133804_JPRB, 0.00049260_JPRB, 0.00006931_JPRB/)  
+FRACREFAO( :, 4) = (/&
+ & 0.16274056_JPRB, 0.15133780_JPRB, 0.14228874_JPRB, 0.13081114_JPRB,&
+ & 0.11688486_JPRB, 0.09979610_JPRB, 0.08073687_JPRB, 0.05996741_JPRB,&
+ & 0.04040616_JPRB, 0.00439869_JPRB, 0.00368910_JPRB, 0.00293041_JPRB,&
+ & 0.00211604_JPRB, 0.00133536_JPRB, 0.00049260_JPRB, 0.00006931_JPRB/)  
+FRACREFAO( :, 5) = (/&
+ & 0.16176532_JPRB, 0.15207882_JPRB, 0.14226955_JPRB, 0.13079646_JPRB,&
+ & 0.11688191_JPRB, 0.09966998_JPRB, 0.08066384_JPRB, 0.06020275_JPRB,&
+ & 0.04047901_JPRB, 0.00446696_JPRB, 0.00377456_JPRB, 0.00294410_JPRB,&
+ & 0.00211082_JPRB, 0.00133536_JPRB, 0.00049260_JPRB, 0.00006931_JPRB/)  
+FRACREFAO( :, 6) = (/&
+ & 0.15993737_JPRB, 0.15305527_JPRB, 0.14259829_JPRB, 0.13078023_JPRB,&
+ & 0.11686983_JPRB, 0.09980131_JPRB, 0.08058286_JPRB, 0.06031430_JPRB,&
+ & 0.04082833_JPRB, 0.00450509_JPRB, 0.00377574_JPRB, 0.00294823_JPRB,&
+ & 0.00210977_JPRB, 0.00133302_JPRB, 0.00049260_JPRB, 0.00006931_JPRB/)  
+FRACREFAO( :, 7) = (/&
+ & 0.15371189_JPRB, 0.15592396_JPRB, 0.14430280_JPRB, 0.13076764_JPRB,&
+ & 0.11720382_JPRB, 0.10023471_JPRB, 0.08066396_JPRB, 0.06073554_JPRB,&
+ & 0.04121581_JPRB, 0.00451202_JPRB, 0.00377832_JPRB, 0.00294609_JPRB,&
+ & 0.00210943_JPRB, 0.00133336_JPRB, 0.00049260_JPRB, 0.00006931_JPRB/)  
+FRACREFAO( :, 8) = (/&
+ & 0.14262275_JPRB, 0.14572631_JPRB, 0.14560597_JPRB, 0.13736825_JPRB,&
+ & 0.12271351_JPRB, 0.10419556_JPRB, 0.08294533_JPRB, 0.06199794_JPRB,&
+ & 0.04157615_JPRB, 0.00452842_JPRB, 0.00377704_JPRB, 0.00293852_JPRB,&
+ & 0.00211034_JPRB, 0.00133278_JPRB, 0.00049259_JPRB, 0.00006931_JPRB/)  
+FRACREFAO( :, 9) = (/&
+ & 0.14500433_JPRB, 0.14590444_JPRB, 0.14430299_JPRB, 0.13770708_JPRB,&
+ & 0.12288283_JPRB, 0.10350952_JPRB, 0.08269450_JPRB, 0.06130579_JPRB,&
+ & 0.04144571_JPRB, 0.00452096_JPRB, 0.00377382_JPRB, 0.00294532_JPRB,&
+ & 0.00210943_JPRB, 0.00133228_JPRB, 0.00049260_JPRB, 0.00006931_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB7:PART17',1,ZHOOK_HANDLE)
+END SUBROUTINE PART17
+
+
+END SUBROUTINE RRTM_KGB7
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb7.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb7.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb7.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_KGB7
+END SUBROUTINE RRTM_KGB7
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb8.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb8.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb8.F90	(revision 1989)
@@ -0,0 +1,2238 @@
+!OCL SCALAR
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0 
+SUBROUTINE RRTM_KGB8
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 8:  1080-1180 cm-1 (low (i.e.>~300mb) - H2O; high - O3)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     R. Elkhatib 12-10-2005 Split for faster and more robust compilation.
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO8 , ONLY : KAO     ,KBO       ,SELFREFO ,FRACREFAO ,&
+ & FRACREFBO, CFC12O  ,CFC22ADJO ,ABSCO2AO ,ABSCO2BO  ,&
+ & ABSN2OAO , ABSN2OBO  
+USE YOERRTA8 , ONLY : H2OREF  ,N2OREF    ,O3REF
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB8',0,ZHOOK_HANDLE)
+
+CALL PART1
+CALL PART2
+CALL PART3
+CALL PART4
+CALL PART5
+CALL PART6
+CALL PART7
+CALL PART8
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB8',1,ZHOOK_HANDLE)
+
+!     -----------------------------------------------------------------
+
+CONTAINS
+
+
+SUBROUTINE PART1
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB8:PART1',0,ZHOOK_HANDLE)
+
+
+FRACREFAO( :) = (/&
+ !     From P = 1053.6 mb.
+ & 0.15309700_JPRB,0.15450300_JPRB,0.14458799_JPRB,0.13098200_JPRB,&
+ & 0.11817900_JPRB,0.09953490_JPRB,0.08132080_JPRB,0.06139960_JPRB,&
+ & 0.04132010_JPRB,0.00446788_JPRB,0.00372533_JPRB,0.00294053_JPRB,&
+ & 0.00211371_JPRB,0.00128122_JPRB,0.00048050_JPRB,0.00006759_JPRB/)  
+
+FRACREFBO( :) = (/&
+ !     From P = 28.9 mb.
+ & 0.14105400_JPRB,0.14728899_JPRB,0.14264800_JPRB,0.13331699_JPRB,&
+ & 0.12034100_JPRB,0.10467000_JPRB,0.08574980_JPRB,0.06469390_JPRB,&
+ & 0.04394640_JPRB,0.00481284_JPRB,0.00397375_JPRB,0.00315006_JPRB,&
+ & 0.00228636_JPRB,0.00144606_JPRB,0.00054604_JPRB,0.00007697_JPRB/)  
+
+CFC12O( :) = (/&
+ & 85.4027_JPRB, 89.4696_JPRB, 74.0959_JPRB, 67.7480_JPRB,&
+ & 61.2444_JPRB, 59.9073_JPRB, 60.8296_JPRB, 63.0998_JPRB,&
+ & 59.6110_JPRB, 64.0735_JPRB, 57.2622_JPRB, 58.9721_JPRB,&
+ & 43.5505_JPRB, 26.1192_JPRB, 32.7023_JPRB, 32.8667_JPRB/)  
+
+!     Original CFC22 is multiplied by 1.485 to account for the 780-850 cm-1 
+!     and 1290-1335 cm-1 bands.
+CFC22ADJO( :) = (/&
+ & 135.335_JPRB, 89.6642_JPRB, 76.2375_JPRB, 65.9748_JPRB,&
+ & 63.1164_JPRB, 60.2935_JPRB, 64.0299_JPRB, 75.4264_JPRB,&
+ & 51.3018_JPRB, 7.07911_JPRB, 5.86928_JPRB, 0.398693_JPRB,&
+ & 2.82885_JPRB, 9.12751_JPRB, 6.28271_JPRB, 0.0_JPRB/)  
+
+ABSCO2AO( :) = (/&
+ & 1.11233E-05_JPRB, 3.92400E-05_JPRB, 6.62059E-05_JPRB, 8.51687E-05_JPRB,&
+ & 7.79035E-05_JPRB, 1.34058E-04_JPRB, 2.82553E-04_JPRB, 5.41741E-04_JPRB,&
+ & 1.47029E-05_JPRB, 2.34982E-05_JPRB, 6.91094E-08_JPRB, 8.48917E-08_JPRB,&
+ & 6.58783E-08_JPRB, 4.64849E-08_JPRB, 3.62742E-08_JPRB, 3.62742E-08_JPRB/)  
+
+ABSCO2BO( :) = (/&
+ & 4.10977E-09_JPRB, 5.65200E-08_JPRB, 1.70800E-07_JPRB, 4.16840E-07_JPRB,&
+ & 9.53684E-07_JPRB, 2.36468E-06_JPRB, 7.29502E-06_JPRB, 4.93883E-05_JPRB, &
+ & 5.10440E-04_JPRB, 9.75248E-04_JPRB, 1.36495E-03_JPRB, 2.40451E-03_JPRB,&
+ & 4.50277E-03_JPRB, 2.24486E-02_JPRB, 4.06756E-02_JPRB, 2.17447E-10_JPRB/)  
+
+ABSN2OAO( :) = (/&
+ & 1.28527E-02_JPRB,5.28651E-02_JPRB,1.01668E-01_JPRB,1.57224E-01_JPRB,&
+ & 2.76947E-01_JPRB,4.93048E-01_JPRB,6.71387E-01_JPRB,3.48809E-01_JPRB,&
+ & 4.19840E-01_JPRB,3.13558E-01_JPRB,2.44432E-01_JPRB,2.05108E-01_JPRB,&
+ & 1.21423E-01_JPRB,1.22158E-01_JPRB,1.49702E-01_JPRB,1.47799E-01_JPRB/)  
+
+ABSN2OBO( : ) = (/&
+ & 3.15864E-03_JPRB,4.87347E-03_JPRB,8.63235E-03_JPRB,2.16053E-02_JPRB,&
+ & 3.63699E-02_JPRB,7.89149E-02_JPRB,3.53807E-01_JPRB,1.27140E-00_JPRB,&
+ & 2.31464E-00_JPRB,7.75834E-02_JPRB,5.15063E-02_JPRB,4.07059E-02_JPRB,&
+ & 5.91947E-02_JPRB,5.83546E-02_JPRB,3.12716E-01_JPRB,1.47456E-01_JPRB/)  
+
+H2OREF( : ) = (/&
+ & 1.87599E-02_JPRB,1.22233E-02_JPRB,5.89086E-03_JPRB,2.76753E-03_JPRB,1.40651E-03_JPRB, &
+ & 7.59698E-04_JPRB,3.88758E-04_JPRB,1.65422E-04_JPRB,3.71895E-05_JPRB,7.47648E-06_JPRB, &
+ & 4.30818E-06_JPRB,3.33194E-06_JPRB,3.20393E-06_JPRB,3.16186E-06_JPRB,3.25235E-06_JPRB, &
+ & 3.42258E-06_JPRB,3.62884E-06_JPRB,3.91482E-06_JPRB,4.14875E-06_JPRB,4.30810E-06_JPRB,&
+ & 4.44204E-06_JPRB,4.57783E-06_JPRB,4.70865E-06_JPRB,4.79432E-06_JPRB,4.86971E-06_JPRB, &
+ & 4.92603E-06_JPRB,4.96688E-06_JPRB,4.99628E-06_JPRB,5.05266E-06_JPRB,5.12658E-06_JPRB, &
+ & 5.25028E-06_JPRB,5.35708E-06_JPRB,5.45085E-06_JPRB,5.48304E-06_JPRB,5.50000E-06_JPRB, &
+ & 5.50000E-06_JPRB,5.45359E-06_JPRB,5.40468E-06_JPRB,5.35576E-06_JPRB,5.25327E-06_JPRB,&
+ & 5.14362E-06_JPRB,5.03396E-06_JPRB,4.87662E-06_JPRB,4.69787E-06_JPRB,4.51911E-06_JPRB, &
+ & 4.33600E-06_JPRB,4.14416E-06_JPRB,3.95232E-06_JPRB,3.76048E-06_JPRB,3.57217E-06_JPRB, &
+ & 3.38549E-06_JPRB,3.19881E-06_JPRB,3.01212E-06_JPRB,2.82621E-06_JPRB,2.64068E-06_JPRB, &
+ & 2.45515E-06_JPRB,2.26962E-06_JPRB,2.08659E-06_JPRB,1.93029E-06_JPRB/)  
+
+N2OREF( : ) = (/&
+ & 3.20000E-07_JPRB,3.20000E-07_JPRB,3.20000E-07_JPRB,3.20000E-07_JPRB,3.20000E-07_JPRB,&
+ & 3.19652E-07_JPRB,3.15324E-07_JPRB,3.03830E-07_JPRB,2.94221E-07_JPRB,2.84953E-07_JPRB,&
+ & 2.76714E-07_JPRB,2.64709E-07_JPRB,2.42847E-07_JPRB,2.09547E-07_JPRB,1.71945E-07_JPRB,&
+ & 1.37491E-07_JPRB,1.13319E-07_JPRB,1.00354E-07_JPRB,9.12812E-08_JPRB,8.54633E-08_JPRB,&
+ & 8.03631E-08_JPRB,7.33718E-08_JPRB,6.59754E-08_JPRB,5.60386E-08_JPRB,4.70901E-08_JPRB,&
+ & 3.99774E-08_JPRB,3.29786E-08_JPRB,2.60642E-08_JPRB,2.10663E-08_JPRB,1.65918E-08_JPRB,&
+ & 1.30167E-08_JPRB,1.00900E-08_JPRB,7.62490E-09_JPRB,6.11592E-09_JPRB,4.66725E-09_JPRB,&
+ & 3.28574E-09_JPRB,2.84838E-09_JPRB,2.46198E-09_JPRB,2.07557E-09_JPRB,1.85507E-09_JPRB,&
+ & 1.65675E-09_JPRB,1.45843E-09_JPRB,1.31948E-09_JPRB,1.20716E-09_JPRB,1.09485E-09_JPRB,&
+ & 9.97803E-10_JPRB,9.31260E-10_JPRB,8.64721E-10_JPRB,7.98181E-10_JPRB,7.51380E-10_JPRB,&
+ & 7.13670E-10_JPRB,6.75960E-10_JPRB,6.38250E-10_JPRB,6.09811E-10_JPRB,5.85998E-10_JPRB,&
+ & 5.62185E-10_JPRB,5.38371E-10_JPRB,5.15183E-10_JPRB,4.98660E-10_JPRB/)  
+
+O3REF( : ) = (/&
+ & 3.01700E-08_JPRB,3.47254E-08_JPRB,4.24769E-08_JPRB,5.27592E-08_JPRB,6.69439E-08_JPRB,&
+ & 8.71295E-08_JPRB,1.13911E-07_JPRB,1.56771E-07_JPRB,2.17878E-07_JPRB,3.24430E-07_JPRB,&
+ & 4.65942E-07_JPRB,5.68057E-07_JPRB,6.96065E-07_JPRB,1.11863E-06_JPRB,1.76175E-06_JPRB,&
+ & 2.32689E-06_JPRB,2.95769E-06_JPRB,3.65930E-06_JPRB,4.59503E-06_JPRB,5.31891E-06_JPRB,&
+ & 5.96179E-06_JPRB,6.51133E-06_JPRB,7.06350E-06_JPRB,7.69169E-06_JPRB,8.25771E-06_JPRB,&
+ & 8.70824E-06_JPRB,8.83245E-06_JPRB,8.71486E-06_JPRB,8.09434E-06_JPRB,7.33071E-06_JPRB,&
+ & 6.31014E-06_JPRB,5.36717E-06_JPRB,4.48289E-06_JPRB,3.83913E-06_JPRB,3.28270E-06_JPRB,&
+ & 2.82351E-06_JPRB,2.49061E-06_JPRB,2.16453E-06_JPRB,1.83845E-06_JPRB,1.66182E-06_JPRB,&
+ & 1.50517E-06_JPRB,1.34852E-06_JPRB,1.19718E-06_JPRB,1.04822E-06_JPRB,8.99264E-07_JPRB,&
+ & 7.63432E-07_JPRB,6.53806E-07_JPRB,5.44186E-07_JPRB,4.34564E-07_JPRB,3.64210E-07_JPRB,&
+ & 3.11938E-07_JPRB,2.59667E-07_JPRB,2.07395E-07_JPRB,1.91456E-07_JPRB,1.93639E-07_JPRB,&
+ & 1.95821E-07_JPRB,1.98004E-07_JPRB,2.06442E-07_JPRB,2.81546E-07_JPRB/)  
+
+!     ------------------------------------------------------------------
+
+!     The array KAO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels > ~100mb and temperatures.  The first
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the corresponding TREF for this  pressure level, 
+!     JT = 2 refers to the temperatureTREF-15, JT = 1 is for TREF-30, 
+!     JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  The second 
+!     index, JP, runs from 1 to 13 and refers to the corresponding 
+!     pressure level in PREF (e.g. JP = 1 is for a pressure of 1053.63 mb).  
+!     The third index, IG, goes from 1 to 16, and tells us which 
+!     g-interval the absorption coefficients are for.
+!     The array KA contains absorption coef5s at the 16 chosen g-values 
+!     for a range of pressure levels > ~100mb and temperatures.  The first
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the cooresponding TREF for this  pressure level, 
+!     JT = 2 refers to the temperature
+!     TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The second index, JP, runs from 1 to 13 and refers
+!     to the corresponding pressure level in PREF (e.g. JP = 1 is for a
+!     pressure of 1053.63 mb).  The third index, IG, goes from 1 to 16,
+!     and tells us which "g-channel" the absorption coefficients are for.
+
+KAO( :, 1, 1) = (/&
+ & 2.1306E-05_JPRB,2.1950E-05_JPRB,2.2884E-05_JPRB,2.6732E-05_JPRB,3.2377E-05_JPRB/)  
+KAO( :, 2, 1) = (/&
+ & 1.6906E-05_JPRB,1.6458E-05_JPRB,1.8409E-05_JPRB,2.2144E-05_JPRB,2.7164E-05_JPRB/)  
+KAO( :, 3, 1) = (/&
+ & 1.2302E-05_JPRB,1.3298E-05_JPRB,1.6211E-05_JPRB,2.0006E-05_JPRB,2.4357E-05_JPRB/)  
+KAO( :, 4, 1) = (/&
+ & 1.0886E-05_JPRB,1.3249E-05_JPRB,1.6382E-05_JPRB,2.0127E-05_JPRB,2.4322E-05_JPRB/)  
+KAO( :, 5, 1) = (/&
+ & 1.3888E-05_JPRB,1.6517E-05_JPRB,1.9596E-05_JPRB,2.3121E-05_JPRB,2.7167E-05_JPRB/)  
+KAO( :, 6, 1) = (/&
+ & 2.0087E-05_JPRB,2.2948E-05_JPRB,2.6312E-05_JPRB,3.0073E-05_JPRB,3.4185E-05_JPRB/)  
+KAO( :, 7, 1) = (/&
+ & 3.4572E-05_JPRB,3.7732E-05_JPRB,4.1567E-05_JPRB,4.5943E-05_JPRB,5.0800E-05_JPRB/)  
+KAO( :, 1, 2) = (/&
+ & 2.9087E-05_JPRB,2.7497E-05_JPRB,3.3334E-05_JPRB,4.2723E-05_JPRB,5.3596E-05_JPRB/)  
+KAO( :, 2, 2) = (/&
+ & 1.9679E-05_JPRB,2.2356E-05_JPRB,2.8322E-05_JPRB,3.6379E-05_JPRB,4.5664E-05_JPRB/)  
+KAO( :, 3, 2) = (/&
+ & 1.6538E-05_JPRB,2.0860E-05_JPRB,2.6606E-05_JPRB,3.3787E-05_JPRB,4.2303E-05_JPRB/)  
+KAO( :, 4, 2) = (/&
+ & 1.8682E-05_JPRB,2.3553E-05_JPRB,2.9503E-05_JPRB,3.6225E-05_JPRB,4.3839E-05_JPRB/)  
+KAO( :, 5, 2) = (/&
+ & 2.4894E-05_JPRB,3.0126E-05_JPRB,3.6642E-05_JPRB,4.4225E-05_JPRB,5.2245E-05_JPRB/)  
+KAO( :, 6, 2) = (/&
+ & 3.8317E-05_JPRB,4.4010E-05_JPRB,5.1169E-05_JPRB,5.9798E-05_JPRB,6.8990E-05_JPRB/)  
+KAO( :, 7, 2) = (/&
+ & 6.8186E-05_JPRB,7.5558E-05_JPRB,8.3877E-05_JPRB,9.3681E-05_JPRB,1.0480E-04_JPRB/)  
+KAO( :, 1, 3) = (/&
+ & 3.2064E-05_JPRB,3.8954E-05_JPRB,5.4094E-05_JPRB,6.8453E-05_JPRB,8.4647E-05_JPRB/)  
+KAO( :, 2, 3) = (/&
+ & 2.6037E-05_JPRB,3.4049E-05_JPRB,4.5537E-05_JPRB,5.7651E-05_JPRB,7.1488E-05_JPRB/)  
+KAO( :, 3, 3) = (/&
+ & 2.4129E-05_JPRB,3.2489E-05_JPRB,4.2214E-05_JPRB,5.3481E-05_JPRB,6.6486E-05_JPRB/)  
+KAO( :, 4, 3) = (/&
+ & 2.8484E-05_JPRB,3.6015E-05_JPRB,4.5013E-05_JPRB,5.6076E-05_JPRB,6.9168E-05_JPRB/)  
+KAO( :, 5, 3) = (/&
+ & 3.7982E-05_JPRB,4.5941E-05_JPRB,5.5480E-05_JPRB,6.6761E-05_JPRB,8.0178E-05_JPRB/)  
+KAO( :, 6, 3) = (/&
+ & 5.8486E-05_JPRB,6.7090E-05_JPRB,7.7118E-05_JPRB,8.8876E-05_JPRB,1.0336E-04_JPRB/)  
+KAO( :, 7, 3) = (/&
+ & 1.0488E-04_JPRB,1.1540E-04_JPRB,1.2822E-04_JPRB,1.4297E-04_JPRB,1.5988E-04_JPRB/)  
+KAO( :, 1, 4) = (/&
+ & 4.3432E-05_JPRB,6.9197E-05_JPRB,8.9433E-05_JPRB,1.1259E-04_JPRB,1.3904E-04_JPRB/)  
+KAO( :, 2, 4) = (/&
+ & 4.1381E-05_JPRB,5.9002E-05_JPRB,7.4659E-05_JPRB,9.2971E-05_JPRB,1.1449E-04_JPRB/)  
+KAO( :, 3, 4) = (/&
+ & 4.1382E-05_JPRB,5.3805E-05_JPRB,6.7661E-05_JPRB,8.4186E-05_JPRB,1.0415E-04_JPRB/)  
+KAO( :, 4, 4) = (/&
+ & 4.4469E-05_JPRB,5.5300E-05_JPRB,6.8920E-05_JPRB,8.5387E-05_JPRB,1.0542E-04_JPRB/)  
+KAO( :, 5, 4) = (/&
+ & 5.7483E-05_JPRB,6.8364E-05_JPRB,8.1508E-05_JPRB,9.7560E-05_JPRB,1.1744E-04_JPRB/)  
+KAO( :, 6, 4) = (/&
+ & 8.5034E-05_JPRB,9.7144E-05_JPRB,1.1137E-04_JPRB,1.2836E-04_JPRB,1.4879E-04_JPRB/)  
+KAO( :, 7, 4) = (/&
+ & 1.4995E-04_JPRB,1.6384E-04_JPRB,1.8060E-04_JPRB,2.0120E-04_JPRB,2.2497E-04_JPRB/)  
+KAO( :, 1, 5) = (/&
+ & 8.9308E-05_JPRB,1.2026E-04_JPRB,1.5456E-04_JPRB,1.9463E-04_JPRB,2.4183E-04_JPRB/)  
+KAO( :, 2, 5) = (/&
+ & 7.5125E-05_JPRB,9.9141E-05_JPRB,1.2691E-04_JPRB,1.6010E-04_JPRB,1.9928E-04_JPRB/)  
+KAO( :, 3, 5) = (/&
+ & 7.0124E-05_JPRB,8.9385E-05_JPRB,1.1201E-04_JPRB,1.3854E-04_JPRB,1.6993E-04_JPRB/)  
+KAO( :, 4, 5) = (/&
+ & 7.3552E-05_JPRB,9.0337E-05_JPRB,1.1055E-04_JPRB,1.3609E-04_JPRB,1.6764E-04_JPRB/)  
+KAO( :, 5, 5) = (/&
+ & 8.7943E-05_JPRB,1.0388E-04_JPRB,1.2401E-04_JPRB,1.4993E-04_JPRB,1.8142E-04_JPRB/)  
+KAO( :, 6, 5) = (/&
+ & 1.2136E-04_JPRB,1.3842E-04_JPRB,1.6040E-04_JPRB,1.8635E-04_JPRB,2.1779E-04_JPRB/)  
+KAO( :, 7, 5) = (/&
+ & 2.0763E-04_JPRB,2.2758E-04_JPRB,2.5254E-04_JPRB,2.8218E-04_JPRB,3.1966E-04_JPRB/)  
+KAO( :, 1, 6) = (/&
+ & 1.6837E-04_JPRB,2.2104E-04_JPRB,2.8135E-04_JPRB,3.5251E-04_JPRB,4.3572E-04_JPRB/)  
+KAO( :, 2, 6) = (/&
+ & 1.3574E-04_JPRB,1.7723E-04_JPRB,2.2754E-04_JPRB,2.8744E-04_JPRB,3.5879E-04_JPRB/)  
+KAO( :, 3, 6) = (/&
+ & 1.2293E-04_JPRB,1.5476E-04_JPRB,1.9352E-04_JPRB,2.4145E-04_JPRB,2.9987E-04_JPRB/)  
+KAO( :, 4, 6) = (/&
+ & 1.2596E-04_JPRB,1.5619E-04_JPRB,1.9248E-04_JPRB,2.3477E-04_JPRB,2.8394E-04_JPRB/)  
+KAO( :, 5, 6) = (/&
+ & 1.4080E-04_JPRB,1.6980E-04_JPRB,2.0518E-04_JPRB,2.4743E-04_JPRB,2.9907E-04_JPRB/)  
+KAO( :, 6, 6) = (/&
+ & 1.8164E-04_JPRB,2.0870E-04_JPRB,2.4256E-04_JPRB,2.8705E-04_JPRB,3.4263E-04_JPRB/)  
+KAO( :, 7, 6) = (/&
+ & 2.9186E-04_JPRB,3.2585E-04_JPRB,3.6846E-04_JPRB,4.2036E-04_JPRB,4.8155E-04_JPRB/)  
+KAO( :, 1, 7) = (/&
+ & 3.8706E-04_JPRB,4.9892E-04_JPRB,6.2866E-04_JPRB,7.7583E-04_JPRB,9.4184E-04_JPRB/)  
+KAO( :, 2, 7) = (/&
+ & 2.9924E-04_JPRB,3.8940E-04_JPRB,4.9426E-04_JPRB,6.1428E-04_JPRB,7.5278E-04_JPRB/)  
+KAO( :, 3, 7) = (/&
+ & 2.3352E-04_JPRB,3.0489E-04_JPRB,3.9204E-04_JPRB,4.9500E-04_JPRB,6.1630E-04_JPRB/)  
+KAO( :, 4, 7) = (/&
+ & 2.3587E-04_JPRB,2.9262E-04_JPRB,3.5911E-04_JPRB,4.3910E-04_JPRB,5.3846E-04_JPRB/)  
+KAO( :, 5, 7) = (/&
+ & 2.6327E-04_JPRB,3.2005E-04_JPRB,3.8792E-04_JPRB,4.6619E-04_JPRB,5.5730E-04_JPRB/)  
+KAO( :, 6, 7) = (/&
+ & 3.1398E-04_JPRB,3.7118E-04_JPRB,4.4079E-04_JPRB,5.2291E-04_JPRB,6.1919E-04_JPRB/)  
+KAO( :, 7, 7) = (/&
+ & 4.6137E-04_JPRB,5.1993E-04_JPRB,5.9097E-04_JPRB,6.8096E-04_JPRB,7.9254E-04_JPRB/)  
+KAO( :, 1, 8) = (/&
+ & 1.1958E-03_JPRB,1.5395E-03_JPRB,1.9263E-03_JPRB,2.3597E-03_JPRB,2.8416E-03_JPRB/)  
+KAO( :, 2, 8) = (/&
+ & 9.2007E-04_JPRB,1.1952E-03_JPRB,1.5105E-03_JPRB,1.8694E-03_JPRB,2.2724E-03_JPRB/)  
+KAO( :, 3, 8) = (/&
+ & 6.7202E-04_JPRB,8.8335E-04_JPRB,1.1326E-03_JPRB,1.4229E-03_JPRB,1.7568E-03_JPRB/)  
+KAO( :, 4, 8) = (/&
+ & 5.3231E-04_JPRB,6.9102E-04_JPRB,8.9625E-04_JPRB,1.1508E-03_JPRB,1.4534E-03_JPRB/)  
+KAO( :, 5, 8) = (/&
+ & 5.8927E-04_JPRB,7.1310E-04_JPRB,8.6254E-04_JPRB,1.0581E-03_JPRB,1.3073E-03_JPRB/)  
+KAO( :, 6, 8) = (/&
+ & 7.1594E-04_JPRB,8.4919E-04_JPRB,1.0061E-03_JPRB,1.1903E-03_JPRB,1.4091E-03_JPRB/)  
+KAO( :, 7, 8) = (/&
+ & 9.6332E-04_JPRB,1.1098E-03_JPRB,1.2830E-03_JPRB,1.4872E-03_JPRB,1.7311E-03_JPRB/)  
+KAO( :, 1, 9) = (/&
+ & 4.1727E-03_JPRB,5.4973E-03_JPRB,7.0377E-03_JPRB,8.7943E-03_JPRB,1.0731E-02_JPRB/)  
+KAO( :, 2, 9) = (/&
+ & 3.6273E-03_JPRB,4.8260E-03_JPRB,6.2243E-03_JPRB,7.8057E-03_JPRB,9.5531E-03_JPRB/)  
+KAO( :, 3, 9) = (/&
+ & 2.9023E-03_JPRB,3.9253E-03_JPRB,5.1247E-03_JPRB,6.4834E-03_JPRB,7.9956E-03_JPRB/)  
+KAO( :, 4, 9) = (/&
+ & 2.2487E-03_JPRB,3.0840E-03_JPRB,4.0791E-03_JPRB,5.2274E-03_JPRB,6.5148E-03_JPRB/)  
+KAO( :, 5, 9) = (/&
+ & 1.7798E-03_JPRB,2.4327E-03_JPRB,3.2625E-03_JPRB,4.2482E-03_JPRB,5.3864E-03_JPRB/)  
+KAO( :, 6, 9) = (/&
+ & 1.8001E-03_JPRB,2.2379E-03_JPRB,2.8537E-03_JPRB,3.6632E-03_JPRB,4.6821E-03_JPRB/)  
+KAO( :, 7, 9) = (/&
+ & 2.5147E-03_JPRB,2.9224E-03_JPRB,3.4442E-03_JPRB,4.0760E-03_JPRB,4.9201E-03_JPRB/)  
+KAO( :, 1,10) = (/&
+ & 8.6270E-03_JPRB,1.1144E-02_JPRB,1.4435E-02_JPRB,1.8416E-02_JPRB,2.3138E-02_JPRB/)  
+KAO( :, 2,10) = (/&
+ & 8.0326E-03_JPRB,1.0542E-02_JPRB,1.3830E-02_JPRB,1.7772E-02_JPRB,2.2459E-02_JPRB/)  
+KAO( :, 3,10) = (/&
+ & 6.9631E-03_JPRB,9.2657E-03_JPRB,1.2368E-02_JPRB,1.6195E-02_JPRB,2.0590E-02_JPRB/)  
+KAO( :, 4,10) = (/&
+ & 5.6928E-03_JPRB,7.8298E-03_JPRB,1.0719E-02_JPRB,1.4129E-02_JPRB,1.8068E-02_JPRB/)  
+KAO( :, 5,10) = (/&
+ & 4.6297E-03_JPRB,6.4732E-03_JPRB,8.9852E-03_JPRB,1.2076E-02_JPRB,1.5694E-02_JPRB/)  
+KAO( :, 6,10) = (/&
+ & 3.6660E-03_JPRB,5.2377E-03_JPRB,7.3525E-03_JPRB,9.9709E-03_JPRB,1.3092E-02_JPRB/)  
+KAO( :, 7,10) = (/&
+ & 4.5886E-03_JPRB,5.1723E-03_JPRB,6.2981E-03_JPRB,8.7864E-03_JPRB,1.2005E-02_JPRB/)  
+KAO( :, 1,11) = (/&
+ & 1.1588E-02_JPRB,1.5525E-02_JPRB,1.9979E-02_JPRB,2.5226E-02_JPRB,3.1634E-02_JPRB/)  
+KAO( :, 2,11) = (/&
+ & 1.0684E-02_JPRB,1.4204E-02_JPRB,1.8270E-02_JPRB,2.3355E-02_JPRB,2.9653E-02_JPRB/)  
+KAO( :, 3,11) = (/&
+ & 9.3411E-03_JPRB,1.2473E-02_JPRB,1.6164E-02_JPRB,2.0880E-02_JPRB,2.6874E-02_JPRB/)  
+KAO( :, 4,11) = (/&
+ & 7.9944E-03_JPRB,1.0851E-02_JPRB,1.4275E-02_JPRB,1.8869E-02_JPRB,2.4580E-02_JPRB/)  
+KAO( :, 5,11) = (/&
+ & 6.6337E-03_JPRB,9.2604E-03_JPRB,1.2443E-02_JPRB,1.6670E-02_JPRB,2.2008E-02_JPRB/)  
+KAO( :, 6,11) = (/&
+ & 5.3432E-03_JPRB,7.6067E-03_JPRB,1.0484E-02_JPRB,1.4403E-02_JPRB,1.9210E-02_JPRB/)  
+KAO( :, 7,11) = (/&
+ & 5.2399E-03_JPRB,6.3294E-03_JPRB,8.7446E-03_JPRB,1.2290E-02_JPRB,1.7005E-02_JPRB/)  
+KAO( :, 1,12) = (/&
+ & 1.8590E-02_JPRB,2.3597E-02_JPRB,2.9609E-02_JPRB,3.6637E-02_JPRB,4.4785E-02_JPRB/)  
+KAO( :, 2,12) = (/&
+ & 1.5975E-02_JPRB,2.1048E-02_JPRB,2.7310E-02_JPRB,3.4824E-02_JPRB,4.3138E-02_JPRB/)  
+KAO( :, 3,12) = (/&
+ & 1.3265E-02_JPRB,1.8239E-02_JPRB,2.4452E-02_JPRB,3.1517E-02_JPRB,3.9669E-02_JPRB/)  
+KAO( :, 4,12) = (/&
+ & 1.1138E-02_JPRB,1.5596E-02_JPRB,2.1071E-02_JPRB,2.7401E-02_JPRB,3.4980E-02_JPRB/)  
+KAO( :, 5,12) = (/&
+ & 9.5074E-03_JPRB,1.3466E-02_JPRB,1.8276E-02_JPRB,2.3939E-02_JPRB,3.0805E-02_JPRB/)  
+KAO( :, 6,12) = (/&
+ & 7.9557E-03_JPRB,1.1512E-02_JPRB,1.5826E-02_JPRB,2.0932E-02_JPRB,2.7410E-02_JPRB/)  
+KAO( :, 7,12) = (/&
+ & 6.5226E-03_JPRB,9.6301E-03_JPRB,1.3559E-02_JPRB,1.8314E-02_JPRB,2.4403E-02_JPRB/)  
+KAO( :, 1,13) = (/&
+ & 3.3867E-02_JPRB,4.3721E-02_JPRB,5.4904E-02_JPRB,6.6992E-02_JPRB,7.9770E-02_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB8:PART1',1,ZHOOK_HANDLE)
+END SUBROUTINE PART1
+
+
+SUBROUTINE PART2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB8:PART2',0,ZHOOK_HANDLE)
+
+
+KAO( :, 2,13) = (/&
+ & 3.1901E-02_JPRB,4.1423E-02_JPRB,5.1954E-02_JPRB,6.3307E-02_JPRB,7.6026E-02_JPRB/)  
+KAO( :, 3,13) = (/&
+ & 2.7060E-02_JPRB,3.5456E-02_JPRB,4.4891E-02_JPRB,5.5833E-02_JPRB,6.8298E-02_JPRB/)  
+KAO( :, 4,13) = (/&
+ & 2.1596E-02_JPRB,2.8962E-02_JPRB,3.7686E-02_JPRB,4.8052E-02_JPRB,6.0217E-02_JPRB/)  
+KAO( :, 5,13) = (/&
+ & 1.6874E-02_JPRB,2.3280E-02_JPRB,3.1365E-02_JPRB,4.1278E-02_JPRB,5.3126E-02_JPRB/)  
+KAO( :, 6,13) = (/&
+ & 1.3063E-02_JPRB,1.8582E-02_JPRB,2.5843E-02_JPRB,3.5011E-02_JPRB,4.6230E-02_JPRB/)  
+KAO( :, 7,13) = (/&
+ & 1.0425E-02_JPRB,1.5209E-02_JPRB,2.1684E-02_JPRB,3.0071E-02_JPRB,4.0394E-02_JPRB/)  
+KAO( :, 1,14) = (/&
+ & 6.7724E-02_JPRB,8.4655E-02_JPRB,1.0308E-01_JPRB,1.2311E-01_JPRB,1.4477E-01_JPRB/)  
+KAO( :, 2,14) = (/&
+ & 6.5011E-02_JPRB,8.2552E-02_JPRB,1.0230E-01_JPRB,1.2414E-01_JPRB,1.4787E-01_JPRB/)  
+KAO( :, 3,14) = (/&
+ & 5.8480E-02_JPRB,7.6209E-02_JPRB,9.6519E-02_JPRB,1.1921E-01_JPRB,1.4411E-01_JPRB/)  
+KAO( :, 4,14) = (/&
+ & 5.0538E-02_JPRB,6.7706E-02_JPRB,8.7706E-02_JPRB,1.1039E-01_JPRB,1.3557E-01_JPRB/)  
+KAO( :, 5,14) = (/&
+ & 4.2513E-02_JPRB,5.8604E-02_JPRB,7.7718E-02_JPRB,9.9786E-02_JPRB,1.2457E-01_JPRB/)  
+KAO( :, 6,14) = (/&
+ & 3.4330E-02_JPRB,4.8876E-02_JPRB,6.6577E-02_JPRB,8.7405E-02_JPRB,1.1118E-01_JPRB/)  
+KAO( :, 7,14) = (/&
+ & 2.6895E-02_JPRB,3.9673E-02_JPRB,5.5652E-02_JPRB,7.4888E-02_JPRB,9.7567E-02_JPRB/)  
+KAO( :, 1,15) = (/&
+ & 1.0185E-01_JPRB,1.3012E-01_JPRB,1.6176E-01_JPRB,1.9624E-01_JPRB,2.3332E-01_JPRB/)  
+KAO( :, 2,15) = (/&
+ & 1.1155E-01_JPRB,1.4413E-01_JPRB,1.8079E-01_JPRB,2.2100E-01_JPRB,2.6440E-01_JPRB/)  
+KAO( :, 3,15) = (/&
+ & 1.1383E-01_JPRB,1.4981E-01_JPRB,1.9079E-01_JPRB,2.3617E-01_JPRB,2.8542E-01_JPRB/)  
+KAO( :, 4,15) = (/&
+ & 1.1063E-01_JPRB,1.4879E-01_JPRB,1.9288E-01_JPRB,2.4229E-01_JPRB,2.9650E-01_JPRB/)  
+KAO( :, 5,15) = (/&
+ & 1.0438E-01_JPRB,1.4376E-01_JPRB,1.8985E-01_JPRB,2.4227E-01_JPRB,3.0021E-01_JPRB/)  
+KAO( :, 6,15) = (/&
+ & 9.4497E-02_JPRB,1.3374E-01_JPRB,1.8056E-01_JPRB,2.3453E-01_JPRB,2.9486E-01_JPRB/)  
+KAO( :, 7,15) = (/&
+ & 8.2957E-02_JPRB,1.2094E-01_JPRB,1.6723E-01_JPRB,2.2140E-01_JPRB,2.8274E-01_JPRB/)  
+KAO( :, 1,16) = (/&
+ & 1.0659E-01_JPRB,1.3667E-01_JPRB,1.7042E-01_JPRB,2.0748E-01_JPRB,2.4752E-01_JPRB/)  
+KAO( :, 2,16) = (/&
+ & 1.1936E-01_JPRB,1.5500E-01_JPRB,1.9536E-01_JPRB,2.4009E-01_JPRB,2.8872E-01_JPRB/)  
+KAO( :, 3,16) = (/&
+ & 1.2557E-01_JPRB,1.6646E-01_JPRB,2.1346E-01_JPRB,2.6622E-01_JPRB,3.2416E-01_JPRB/)  
+KAO( :, 4,16) = (/&
+ & 1.2678E-01_JPRB,1.7224E-01_JPRB,2.2548E-01_JPRB,2.8607E-01_JPRB,3.5364E-01_JPRB/)  
+KAO( :, 5,16) = (/&
+ & 1.2544E-01_JPRB,1.7513E-01_JPRB,2.3441E-01_JPRB,3.0312E-01_JPRB,3.8068E-01_JPRB/)  
+KAO( :, 6,16) = (/&
+ & 1.2054E-01_JPRB,1.7357E-01_JPRB,2.3849E-01_JPRB,3.1499E-01_JPRB,4.0276E-01_JPRB/)  
+KAO( :, 7,16) = (/&
+ & 1.1373E-01_JPRB,1.6957E-01_JPRB,2.3956E-01_JPRB,3.2393E-01_JPRB,4.2231E-01_JPRB/)  
+
+!     The array KBO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels < ~100mb and temperatures. The first 
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this pressure 
+!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for
+!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  
+!     The second index, JP, runs from 13 to 59 and refers to the JPth
+!     reference pressure level (see taumol.f for the value of these
+!     pressure levels in mb).  The third index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+
+KBO( :, 7, 1) = (/&
+ & 1.5344E-01_JPRB,1.5367E-01_JPRB,1.5941E-01_JPRB,1.6925E-01_JPRB,1.8219E-01_JPRB/)  
+KBO( :, 8, 1) = (/&
+ & 8.8789E-02_JPRB,9.2028E-02_JPRB,9.6207E-02_JPRB,1.0152E-01_JPRB,1.0774E-01_JPRB/)  
+KBO( :, 9, 1) = (/&
+ & 6.1726E-02_JPRB,6.3618E-02_JPRB,6.5404E-02_JPRB,6.7402E-02_JPRB,6.9517E-02_JPRB/)  
+KBO( :,10, 1) = (/&
+ & 4.5887E-02_JPRB,4.6735E-02_JPRB,4.7381E-02_JPRB,4.7984E-02_JPRB,4.8665E-02_JPRB/)  
+KBO( :,11, 1) = (/&
+ & 3.4925E-02_JPRB,3.5331E-02_JPRB,3.5614E-02_JPRB,3.5819E-02_JPRB,3.6029E-02_JPRB/)  
+KBO( :,12, 1) = (/&
+ & 2.7314E-02_JPRB,2.7563E-02_JPRB,2.7715E-02_JPRB,2.7787E-02_JPRB,2.7858E-02_JPRB/)  
+KBO( :,13, 1) = (/&
+ & 2.1065E-02_JPRB,2.1225E-02_JPRB,2.1307E-02_JPRB,2.1318E-02_JPRB,2.1310E-02_JPRB/)  
+KBO( :,14, 1) = (/&
+ & 1.4917E-02_JPRB,1.5002E-02_JPRB,1.5042E-02_JPRB,1.5027E-02_JPRB,1.4972E-02_JPRB/)  
+KBO( :,15, 1) = (/&
+ & 1.0550E-02_JPRB,1.0630E-02_JPRB,1.0661E-02_JPRB,1.0642E-02_JPRB,1.0580E-02_JPRB/)  
+KBO( :,16, 1) = (/&
+ & 7.8366E-03_JPRB,7.9085E-03_JPRB,7.9349E-03_JPRB,7.9229E-03_JPRB,7.8769E-03_JPRB/)  
+KBO( :,17, 1) = (/&
+ & 5.9572E-03_JPRB,6.0203E-03_JPRB,6.0443E-03_JPRB,6.0374E-03_JPRB,6.0008E-03_JPRB/)  
+KBO( :,18, 1) = (/&
+ & 4.6349E-03_JPRB,4.6854E-03_JPRB,4.7034E-03_JPRB,4.6981E-03_JPRB,4.6669E-03_JPRB/)  
+KBO( :,19, 1) = (/&
+ & 3.6293E-03_JPRB,3.6694E-03_JPRB,3.6836E-03_JPRB,3.6780E-03_JPRB,3.6512E-03_JPRB/)  
+KBO( :,20, 1) = (/&
+ & 2.8991E-03_JPRB,2.9305E-03_JPRB,2.9407E-03_JPRB,2.9341E-03_JPRB,2.9107E-03_JPRB/)  
+KBO( :,21, 1) = (/&
+ & 2.3312E-03_JPRB,2.3555E-03_JPRB,2.3622E-03_JPRB,2.3550E-03_JPRB,2.3344E-03_JPRB/)  
+KBO( :,22, 1) = (/&
+ & 1.8792E-03_JPRB,1.8968E-03_JPRB,1.9000E-03_JPRB,1.8924E-03_JPRB,1.8741E-03_JPRB/)  
+KBO( :,23, 1) = (/&
+ & 1.5156E-03_JPRB,1.5280E-03_JPRB,1.5291E-03_JPRB,1.5212E-03_JPRB,1.5056E-03_JPRB/)  
+KBO( :,24, 1) = (/&
+ & 1.2179E-03_JPRB,1.2265E-03_JPRB,1.2264E-03_JPRB,1.2189E-03_JPRB,1.2054E-03_JPRB/)  
+KBO( :,25, 1) = (/&
+ & 9.8120E-04_JPRB,9.8697E-04_JPRB,9.8592E-04_JPRB,9.7898E-04_JPRB,9.6753E-04_JPRB/)  
+KBO( :,26, 1) = (/&
+ & 7.9366E-04_JPRB,7.9724E-04_JPRB,7.9535E-04_JPRB,7.8897E-04_JPRB,7.7900E-04_JPRB/)  
+KBO( :,27, 1) = (/&
+ & 6.4346E-04_JPRB,6.4543E-04_JPRB,6.4311E-04_JPRB,6.3737E-04_JPRB,6.2874E-04_JPRB/)  
+KBO( :,28, 1) = (/&
+ & 5.2197E-04_JPRB,5.2286E-04_JPRB,5.2043E-04_JPRB,5.1528E-04_JPRB,5.0784E-04_JPRB/)  
+KBO( :,29, 1) = (/&
+ & 4.2576E-04_JPRB,4.2585E-04_JPRB,4.2341E-04_JPRB,4.1882E-04_JPRB,4.1242E-04_JPRB/)  
+KBO( :,30, 1) = (/&
+ & 3.4748E-04_JPRB,3.4709E-04_JPRB,3.4471E-04_JPRB,3.4067E-04_JPRB,3.3521E-04_JPRB/)  
+KBO( :,31, 1) = (/&
+ & 2.8441E-04_JPRB,2.8375E-04_JPRB,2.8150E-04_JPRB,2.7801E-04_JPRB,2.7335E-04_JPRB/)  
+KBO( :,32, 1) = (/&
+ & 2.3282E-04_JPRB,2.3200E-04_JPRB,2.2995E-04_JPRB,2.2696E-04_JPRB,2.2295E-04_JPRB/)  
+KBO( :,33, 1) = (/&
+ & 1.9062E-04_JPRB,1.8973E-04_JPRB,1.8792E-04_JPRB,1.8531E-04_JPRB,1.8184E-04_JPRB/)  
+KBO( :,34, 1) = (/&
+ & 1.5614E-04_JPRB,1.5526E-04_JPRB,1.5366E-04_JPRB,1.5137E-04_JPRB,1.4839E-04_JPRB/)  
+KBO( :,35, 1) = (/&
+ & 1.2772E-04_JPRB,1.2697E-04_JPRB,1.2561E-04_JPRB,1.2363E-04_JPRB,1.2119E-04_JPRB/)  
+KBO( :,36, 1) = (/&
+ & 1.0427E-04_JPRB,1.0367E-04_JPRB,1.0254E-04_JPRB,1.0093E-04_JPRB,9.8988E-05_JPRB/)  
+KBO( :,37, 1) = (/&
+ & 8.5618E-05_JPRB,8.5197E-05_JPRB,8.4329E-05_JPRB,8.3067E-05_JPRB,8.1529E-05_JPRB/)  
+KBO( :,38, 1) = (/&
+ & 7.0355E-05_JPRB,7.0067E-05_JPRB,6.9409E-05_JPRB,6.8426E-05_JPRB,6.7223E-05_JPRB/)  
+KBO( :,39, 1) = (/&
+ & 5.7837E-05_JPRB,5.7651E-05_JPRB,5.7166E-05_JPRB,5.6411E-05_JPRB,5.5474E-05_JPRB/)  
+KBO( :,40, 1) = (/&
+ & 4.7471E-05_JPRB,4.7392E-05_JPRB,4.7060E-05_JPRB,4.6496E-05_JPRB,4.5776E-05_JPRB/)  
+KBO( :,41, 1) = (/&
+ & 3.8945E-05_JPRB,3.8946E-05_JPRB,3.8735E-05_JPRB,3.8320E-05_JPRB,3.7771E-05_JPRB/)  
+KBO( :,42, 1) = (/&
+ & 3.1942E-05_JPRB,3.2000E-05_JPRB,3.1880E-05_JPRB,3.1585E-05_JPRB,3.1172E-05_JPRB/)  
+KBO( :,43, 1) = (/&
+ & 2.6212E-05_JPRB,2.6319E-05_JPRB,2.6272E-05_JPRB,2.6076E-05_JPRB,2.5773E-05_JPRB/)  
+KBO( :,44, 1) = (/&
+ & 2.1513E-05_JPRB,2.1656E-05_JPRB,2.1665E-05_JPRB,2.1549E-05_JPRB,2.1335E-05_JPRB/)  
+KBO( :,45, 1) = (/&
+ & 1.7662E-05_JPRB,1.7828E-05_JPRB,1.7877E-05_JPRB,1.7820E-05_JPRB,1.7676E-05_JPRB/)  
+KBO( :,46, 1) = (/&
+ & 1.4497E-05_JPRB,1.4675E-05_JPRB,1.4757E-05_JPRB,1.4745E-05_JPRB,1.4651E-05_JPRB/)  
+KBO( :,47, 1) = (/&
+ & 1.1877E-05_JPRB,1.2067E-05_JPRB,1.2171E-05_JPRB,1.2193E-05_JPRB,1.2145E-05_JPRB/)  
+KBO( :,48, 1) = (/&
+ & 9.7397E-06_JPRB,9.9314E-06_JPRB,1.0047E-05_JPRB,1.0098E-05_JPRB,1.0083E-05_JPRB/)  
+KBO( :,49, 1) = (/&
+ & 8.0031E-06_JPRB,8.1919E-06_JPRB,8.3161E-06_JPRB,8.3842E-06_JPRB,8.3974E-06_JPRB/)  
+KBO( :,50, 1) = (/&
+ & 6.5533E-06_JPRB,6.7351E-06_JPRB,6.8590E-06_JPRB,6.9358E-06_JPRB,6.9657E-06_JPRB/)  
+KBO( :,51, 1) = (/&
+ & 5.3534E-06_JPRB,5.5271E-06_JPRB,5.6449E-06_JPRB,5.7254E-06_JPRB,5.7657E-06_JPRB/)  
+KBO( :,52, 1) = (/&
+ & 4.3815E-06_JPRB,4.5440E-06_JPRB,4.6552E-06_JPRB,4.7359E-06_JPRB,4.7826E-06_JPRB/)  
+KBO( :,53, 1) = (/&
+ & 3.5983E-06_JPRB,3.7484E-06_JPRB,3.8526E-06_JPRB,3.9323E-06_JPRB,3.9834E-06_JPRB/)  
+KBO( :,54, 1) = (/&
+ & 2.9135E-06_JPRB,3.0488E-06_JPRB,3.1449E-06_JPRB,3.2176E-06_JPRB,3.2676E-06_JPRB/)  
+KBO( :,55, 1) = (/&
+ & 2.3344E-06_JPRB,2.4540E-06_JPRB,2.5433E-06_JPRB,2.6072E-06_JPRB,2.6532E-06_JPRB/)  
+KBO( :,56, 1) = (/&
+ & 1.8674E-06_JPRB,1.9725E-06_JPRB,2.0540E-06_JPRB,2.1112E-06_JPRB,2.1532E-06_JPRB/)  
+KBO( :,57, 1) = (/&
+ & 1.4909E-06_JPRB,1.5832E-06_JPRB,1.6559E-06_JPRB,1.7087E-06_JPRB,1.7463E-06_JPRB/)  
+KBO( :,58, 1) = (/&
+ & 1.1855E-06_JPRB,1.2659E-06_JPRB,1.3298E-06_JPRB,1.3781E-06_JPRB,1.4118E-06_JPRB/)  
+KBO( :,59, 1) = (/&
+ & 9.3006E-07_JPRB,9.9739E-07_JPRB,1.0501E-06_JPRB,1.0906E-06_JPRB,1.1193E-06_JPRB/)  
+KBO( :, 7, 2) = (/&
+ & 2.6778E-01_JPRB,2.8245E-01_JPRB,3.0362E-01_JPRB,3.3204E-01_JPRB,3.6642E-01_JPRB/)  
+KBO( :, 8, 2) = (/&
+ & 1.6981E-01_JPRB,1.8043E-01_JPRB,1.9307E-01_JPRB,2.0690E-01_JPRB,2.2313E-01_JPRB/)  
+KBO( :, 9, 2) = (/&
+ & 1.2053E-01_JPRB,1.2497E-01_JPRB,1.3056E-01_JPRB,1.3643E-01_JPRB,1.4282E-01_JPRB/)  
+KBO( :,10, 2) = (/&
+ & 8.7626E-02_JPRB,8.9514E-02_JPRB,9.1744E-02_JPRB,9.4317E-02_JPRB,9.6890E-02_JPRB/)  
+KBO( :,11, 2) = (/&
+ & 6.5833E-02_JPRB,6.6899E-02_JPRB,6.8102E-02_JPRB,6.9485E-02_JPRB,7.0886E-02_JPRB/)  
+KBO( :,12, 2) = (/&
+ & 5.1441E-02_JPRB,5.2186E-02_JPRB,5.3006E-02_JPRB,5.3843E-02_JPRB,5.4676E-02_JPRB/)  
+KBO( :,13, 2) = (/&
+ & 3.9685E-02_JPRB,4.0210E-02_JPRB,4.0730E-02_JPRB,4.1271E-02_JPRB,4.1791E-02_JPRB/)  
+KBO( :,14, 2) = (/&
+ & 2.8508E-02_JPRB,2.8827E-02_JPRB,2.9089E-02_JPRB,2.9311E-02_JPRB,2.9533E-02_JPRB/)  
+KBO( :,15, 2) = (/&
+ & 2.0989E-02_JPRB,2.1138E-02_JPRB,2.1243E-02_JPRB,2.1329E-02_JPRB,2.1410E-02_JPRB/)  
+KBO( :,16, 2) = (/&
+ & 1.6136E-02_JPRB,1.6221E-02_JPRB,1.6271E-02_JPRB,1.6299E-02_JPRB,1.6318E-02_JPRB/)  
+KBO( :,17, 2) = (/&
+ & 1.2642E-02_JPRB,1.2693E-02_JPRB,1.2714E-02_JPRB,1.2705E-02_JPRB,1.2688E-02_JPRB/)  
+KBO( :,18, 2) = (/&
+ & 1.0065E-02_JPRB,1.0094E-02_JPRB,1.0094E-02_JPRB,1.0071E-02_JPRB,1.0038E-02_JPRB/)  
+KBO( :,19, 2) = (/&
+ & 8.0455E-03_JPRB,8.0605E-03_JPRB,8.0482E-03_JPRB,8.0166E-03_JPRB,7.9752E-03_JPRB/)  
+KBO( :,20, 2) = (/&
+ & 6.5051E-03_JPRB,6.5116E-03_JPRB,6.4957E-03_JPRB,6.4648E-03_JPRB,6.4247E-03_JPRB/)  
+KBO( :,21, 2) = (/&
+ & 5.2778E-03_JPRB,5.2806E-03_JPRB,5.2632E-03_JPRB,5.2348E-03_JPRB,5.1970E-03_JPRB/)  
+KBO( :,22, 2) = (/&
+ & 4.2858E-03_JPRB,4.2841E-03_JPRB,4.2670E-03_JPRB,4.2400E-03_JPRB,4.2048E-03_JPRB/)  
+KBO( :,23, 2) = (/&
+ & 3.4793E-03_JPRB,3.4753E-03_JPRB,3.4584E-03_JPRB,3.4334E-03_JPRB,3.4014E-03_JPRB/)  
+KBO( :,24, 2) = (/&
+ & 2.8185E-03_JPRB,2.8125E-03_JPRB,2.7957E-03_JPRB,2.7728E-03_JPRB,2.7436E-03_JPRB/)  
+KBO( :,25, 2) = (/&
+ & 2.2861E-03_JPRB,2.2783E-03_JPRB,2.2629E-03_JPRB,2.2419E-03_JPRB,2.2158E-03_JPRB/)  
+KBO( :,26, 2) = (/&
+ & 1.8574E-03_JPRB,1.8493E-03_JPRB,1.8350E-03_JPRB,1.8161E-03_JPRB,1.7932E-03_JPRB/)  
+KBO( :,27, 2) = (/&
+ & 1.5109E-03_JPRB,1.5030E-03_JPRB,1.4902E-03_JPRB,1.4736E-03_JPRB,1.4543E-03_JPRB/)  
+KBO( :,28, 2) = (/&
+ & 1.2296E-03_JPRB,1.2220E-03_JPRB,1.2106E-03_JPRB,1.1965E-03_JPRB,1.1802E-03_JPRB/)  
+KBO( :,29, 2) = (/&
+ & 1.0041E-03_JPRB,9.9721E-04_JPRB,9.8729E-04_JPRB,9.7563E-04_JPRB,9.6203E-04_JPRB/)  
+KBO( :,30, 2) = (/&
+ & 8.2028E-04_JPRB,8.1422E-04_JPRB,8.0597E-04_JPRB,7.9622E-04_JPRB,7.8494E-04_JPRB/)  
+KBO( :,31, 2) = (/&
+ & 6.7162E-04_JPRB,6.6632E-04_JPRB,6.5964E-04_JPRB,6.5163E-04_JPRB,6.4255E-04_JPRB/)  
+KBO( :,32, 2) = (/&
+ & 5.5003E-04_JPRB,5.4568E-04_JPRB,5.4025E-04_JPRB,5.3369E-04_JPRB,5.2646E-04_JPRB/)  
+KBO( :,33, 2) = (/&
+ & 4.5068E-04_JPRB,4.4725E-04_JPRB,4.4286E-04_JPRB,4.3761E-04_JPRB,4.3173E-04_JPRB/)  
+KBO( :,34, 2) = (/&
+ & 3.6961E-04_JPRB,3.6684E-04_JPRB,3.6327E-04_JPRB,3.5906E-04_JPRB,3.5439E-04_JPRB/)  
+KBO( :,35, 2) = (/&
+ & 3.0315E-04_JPRB,3.0096E-04_JPRB,2.9817E-04_JPRB,2.9485E-04_JPRB,2.9125E-04_JPRB/)  
+KBO( :,36, 2) = (/&
+ & 2.4847E-04_JPRB,2.4681E-04_JPRB,2.4467E-04_JPRB,2.4215E-04_JPRB,2.3935E-04_JPRB/)  
+KBO( :,37, 2) = (/&
+ & 2.0443E-04_JPRB,2.0324E-04_JPRB,2.0165E-04_JPRB,1.9975E-04_JPRB,1.9759E-04_JPRB/)  
+KBO( :,38, 2) = (/&
+ & 1.6831E-04_JPRB,1.6749E-04_JPRB,1.6632E-04_JPRB,1.6492E-04_JPRB,1.6327E-04_JPRB/)  
+KBO( :,39, 2) = (/&
+ & 1.3865E-04_JPRB,1.3814E-04_JPRB,1.3731E-04_JPRB,1.3631E-04_JPRB,1.3505E-04_JPRB/)  
+KBO( :,40, 2) = (/&
+ & 1.1402E-04_JPRB,1.1372E-04_JPRB,1.1314E-04_JPRB,1.1240E-04_JPRB,1.1148E-04_JPRB/)  
+KBO( :,41, 2) = (/&
+ & 9.3740E-05_JPRB,9.3582E-05_JPRB,9.3200E-05_JPRB,9.2678E-05_JPRB,9.2002E-05_JPRB/)  
+KBO( :,42, 2) = (/&
+ & 7.7058E-05_JPRB,7.7015E-05_JPRB,7.6781E-05_JPRB,7.6427E-05_JPRB,7.5949E-05_JPRB/)  
+KBO( :,43, 2) = (/&
+ & 6.3364E-05_JPRB,6.3414E-05_JPRB,6.3300E-05_JPRB,6.3083E-05_JPRB,6.2768E-05_JPRB/)  
+KBO( :,44, 2) = (/&
+ & 5.2113E-05_JPRB,5.2236E-05_JPRB,5.2217E-05_JPRB,5.2105E-05_JPRB,5.1917E-05_JPRB/)  
+KBO( :,45, 2) = (/&
+ & 4.2872E-05_JPRB,4.3047E-05_JPRB,4.3096E-05_JPRB,4.3067E-05_JPRB,4.2976E-05_JPRB/)  
+KBO( :,46, 2) = (/&
+ & 3.5259E-05_JPRB,3.5470E-05_JPRB,3.5572E-05_JPRB,3.5602E-05_JPRB,3.5583E-05_JPRB/)  
+KBO( :,47, 2) = (/&
+ & 2.8960E-05_JPRB,2.9201E-05_JPRB,2.9340E-05_JPRB,2.9409E-05_JPRB,2.9443E-05_JPRB/)  
+KBO( :,48, 2) = (/&
+ & 2.3793E-05_JPRB,2.4061E-05_JPRB,2.4219E-05_JPRB,2.4324E-05_JPRB,2.4398E-05_JPRB/)  
+KBO( :,49, 2) = (/&
+ & 1.9573E-05_JPRB,1.9855E-05_JPRB,2.0037E-05_JPRB,2.0166E-05_JPRB,2.0269E-05_JPRB/)  
+KBO( :,50, 2) = (/&
+ & 1.6059E-05_JPRB,1.6336E-05_JPRB,1.6527E-05_JPRB,1.6662E-05_JPRB,1.6777E-05_JPRB/)  
+KBO( :,51, 2) = (/&
+ & 1.3152E-05_JPRB,1.3417E-05_JPRB,1.3609E-05_JPRB,1.3741E-05_JPRB,1.3858E-05_JPRB/)  
+KBO( :,52, 2) = (/&
+ & 1.0779E-05_JPRB,1.1030E-05_JPRB,1.1223E-05_JPRB,1.1354E-05_JPRB,1.1469E-05_JPRB/)  
+KBO( :,53, 2) = (/&
+ & 8.8506E-06_JPRB,9.0876E-06_JPRB,9.2783E-06_JPRB,9.4085E-06_JPRB,9.5236E-06_JPRB/)  
+KBO( :,54, 2) = (/&
+ & 7.2038E-06_JPRB,7.4123E-06_JPRB,7.5866E-06_JPRB,7.7062E-06_JPRB,7.8090E-06_JPRB/)  
+KBO( :,55, 2) = (/&
+ & 5.8272E-06_JPRB,6.0075E-06_JPRB,6.1562E-06_JPRB,6.2660E-06_JPRB,6.3502E-06_JPRB/)  
+KBO( :,56, 2) = (/&
+ & 4.7097E-06_JPRB,4.8664E-06_JPRB,4.9937E-06_JPRB,5.0923E-06_JPRB,5.1636E-06_JPRB/)  
+KBO( :,57, 2) = (/&
+ & 3.8029E-06_JPRB,3.9406E-06_JPRB,4.0499E-06_JPRB,4.1369E-06_JPRB,4.1983E-06_JPRB/)  
+KBO( :,58, 2) = (/&
+ & 3.0636E-06_JPRB,3.1845E-06_JPRB,3.2784E-06_JPRB,3.3529E-06_JPRB,3.4074E-06_JPRB/)  
+KBO( :,59, 2) = (/&
+ & 2.4518E-06_JPRB,2.5533E-06_JPRB,2.6281E-06_JPRB,2.6848E-06_JPRB,2.7259E-06_JPRB/)  
+KBO( :, 7, 3) = (/&
+ & 3.9261E-01_JPRB,4.1826E-01_JPRB,4.5486E-01_JPRB,5.0020E-01_JPRB,5.5441E-01_JPRB/)  
+KBO( :, 8, 3) = (/&
+ & 2.6302E-01_JPRB,2.7629E-01_JPRB,2.9316E-01_JPRB,3.1489E-01_JPRB,3.3903E-01_JPRB/)  
+KBO( :, 9, 3) = (/&
+ & 1.8742E-01_JPRB,1.9413E-01_JPRB,2.0162E-01_JPRB,2.1065E-01_JPRB,2.2099E-01_JPRB/)  
+KBO( :,10, 3) = (/&
+ & 1.3691E-01_JPRB,1.3995E-01_JPRB,1.4395E-01_JPRB,1.4843E-01_JPRB,1.5362E-01_JPRB/)  
+KBO( :,11, 3) = (/&
+ & 1.0382E-01_JPRB,1.0590E-01_JPRB,1.0849E-01_JPRB,1.1133E-01_JPRB,1.1437E-01_JPRB/)  
+KBO( :,12, 3) = (/&
+ & 8.2774E-02_JPRB,8.4314E-02_JPRB,8.6091E-02_JPRB,8.8097E-02_JPRB,9.0175E-02_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB8:PART2',1,ZHOOK_HANDLE)
+END SUBROUTINE PART2
+
+
+SUBROUTINE PART3
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB8:PART3',0,ZHOOK_HANDLE)
+
+
+KBO( :,13, 3) = (/&
+ & 6.5297E-02_JPRB,6.6392E-02_JPRB,6.7652E-02_JPRB,6.8979E-02_JPRB,7.0293E-02_JPRB/)  
+KBO( :,14, 3) = (/&
+ & 4.8355E-02_JPRB,4.9038E-02_JPRB,4.9706E-02_JPRB,5.0319E-02_JPRB,5.0878E-02_JPRB/)  
+KBO( :,15, 3) = (/&
+ & 3.6518E-02_JPRB,3.6926E-02_JPRB,3.7222E-02_JPRB,3.7439E-02_JPRB,3.7640E-02_JPRB/)  
+KBO( :,16, 3) = (/&
+ & 2.8643E-02_JPRB,2.8895E-02_JPRB,2.9016E-02_JPRB,2.9088E-02_JPRB,2.9132E-02_JPRB/)  
+KBO( :,17, 3) = (/&
+ & 2.2761E-02_JPRB,2.2905E-02_JPRB,2.2941E-02_JPRB,2.2947E-02_JPRB,2.2921E-02_JPRB/)  
+KBO( :,18, 3) = (/&
+ & 1.8278E-02_JPRB,1.8355E-02_JPRB,1.8353E-02_JPRB,1.8324E-02_JPRB,1.8265E-02_JPRB/)  
+KBO( :,19, 3) = (/&
+ & 1.4700E-02_JPRB,1.4733E-02_JPRB,1.4709E-02_JPRB,1.4660E-02_JPRB,1.4585E-02_JPRB/)  
+KBO( :,20, 3) = (/&
+ & 1.1936E-02_JPRB,1.1946E-02_JPRB,1.1914E-02_JPRB,1.1862E-02_JPRB,1.1789E-02_JPRB/)  
+KBO( :,21, 3) = (/&
+ & 9.7139E-03_JPRB,9.7118E-03_JPRB,9.6809E-03_JPRB,9.6307E-03_JPRB,9.5648E-03_JPRB/)  
+KBO( :,22, 3) = (/&
+ & 7.9072E-03_JPRB,7.8970E-03_JPRB,7.8671E-03_JPRB,7.8212E-03_JPRB,7.7623E-03_JPRB/)  
+KBO( :,23, 3) = (/&
+ & 6.4329E-03_JPRB,6.4199E-03_JPRB,6.3920E-03_JPRB,6.3512E-03_JPRB,6.2995E-03_JPRB/)  
+KBO( :,24, 3) = (/&
+ & 5.2216E-03_JPRB,5.2078E-03_JPRB,5.1821E-03_JPRB,5.1436E-03_JPRB,5.0968E-03_JPRB/)  
+KBO( :,25, 3) = (/&
+ & 4.2420E-03_JPRB,4.2282E-03_JPRB,4.2046E-03_JPRB,4.1704E-03_JPRB,4.1288E-03_JPRB/)  
+KBO( :,26, 3) = (/&
+ & 3.4526E-03_JPRB,3.4398E-03_JPRB,3.4183E-03_JPRB,3.3878E-03_JPRB,3.3511E-03_JPRB/)  
+KBO( :,27, 3) = (/&
+ & 2.8139E-03_JPRB,2.8022E-03_JPRB,2.7830E-03_JPRB,2.7568E-03_JPRB,2.7244E-03_JPRB/)  
+KBO( :,28, 3) = (/&
+ & 2.2948E-03_JPRB,2.2838E-03_JPRB,2.2669E-03_JPRB,2.2441E-03_JPRB,2.2163E-03_JPRB/)  
+KBO( :,29, 3) = (/&
+ & 1.8779E-03_JPRB,1.8678E-03_JPRB,1.8537E-03_JPRB,1.8342E-03_JPRB,1.8116E-03_JPRB/)  
+KBO( :,30, 3) = (/&
+ & 1.5371E-03_JPRB,1.5290E-03_JPRB,1.5169E-03_JPRB,1.5009E-03_JPRB,1.4827E-03_JPRB/)  
+KBO( :,31, 3) = (/&
+ & 1.2613E-03_JPRB,1.2550E-03_JPRB,1.2450E-03_JPRB,1.2325E-03_JPRB,1.2181E-03_JPRB/)  
+KBO( :,32, 3) = (/&
+ & 1.0360E-03_JPRB,1.0308E-03_JPRB,1.0228E-03_JPRB,1.0131E-03_JPRB,1.0022E-03_JPRB/)  
+KBO( :,33, 3) = (/&
+ & 8.5168E-04_JPRB,8.4735E-04_JPRB,8.4147E-04_JPRB,8.3412E-04_JPRB,8.2675E-04_JPRB/)  
+KBO( :,34, 3) = (/&
+ & 7.0046E-04_JPRB,6.9716E-04_JPRB,6.9264E-04_JPRB,6.8755E-04_JPRB,6.8249E-04_JPRB/)  
+KBO( :,35, 3) = (/&
+ & 5.7604E-04_JPRB,5.7373E-04_JPRB,5.7061E-04_JPRB,5.6737E-04_JPRB,5.6396E-04_JPRB/)  
+KBO( :,36, 3) = (/&
+ & 4.7323E-04_JPRB,4.7186E-04_JPRB,4.7003E-04_JPRB,4.6804E-04_JPRB,4.6592E-04_JPRB/)  
+KBO( :,37, 3) = (/&
+ & 3.9007E-04_JPRB,3.8932E-04_JPRB,3.8831E-04_JPRB,3.8717E-04_JPRB,3.8593E-04_JPRB/)  
+KBO( :,38, 3) = (/&
+ & 3.2170E-04_JPRB,3.2146E-04_JPRB,3.2110E-04_JPRB,3.2061E-04_JPRB,3.2010E-04_JPRB/)  
+KBO( :,39, 3) = (/&
+ & 2.6546E-04_JPRB,2.6568E-04_JPRB,2.6585E-04_JPRB,2.6593E-04_JPRB,2.6594E-04_JPRB/)  
+KBO( :,40, 3) = (/&
+ & 2.1847E-04_JPRB,2.1891E-04_JPRB,2.1928E-04_JPRB,2.1962E-04_JPRB,2.1986E-04_JPRB/)  
+KBO( :,41, 3) = (/&
+ & 1.7969E-04_JPRB,1.8027E-04_JPRB,1.8078E-04_JPRB,1.8126E-04_JPRB,1.8165E-04_JPRB/)  
+KBO( :,42, 3) = (/&
+ & 1.4779E-04_JPRB,1.4846E-04_JPRB,1.4905E-04_JPRB,1.4963E-04_JPRB,1.5013E-04_JPRB/)  
+KBO( :,43, 3) = (/&
+ & 1.2154E-04_JPRB,1.2228E-04_JPRB,1.2292E-04_JPRB,1.2357E-04_JPRB,1.2415E-04_JPRB/)  
+KBO( :,44, 3) = (/&
+ & 9.9958E-05_JPRB,1.0073E-04_JPRB,1.0140E-04_JPRB,1.0208E-04_JPRB,1.0273E-04_JPRB/)  
+KBO( :,45, 3) = (/&
+ & 8.2216E-05_JPRB,8.3000E-05_JPRB,8.3698E-05_JPRB,8.4403E-05_JPRB,8.5080E-05_JPRB/)  
+KBO( :,46, 3) = (/&
+ & 6.7594E-05_JPRB,6.8376E-05_JPRB,6.9061E-05_JPRB,6.9778E-05_JPRB,7.0474E-05_JPRB/)  
+KBO( :,47, 3) = (/&
+ & 5.5485E-05_JPRB,5.6232E-05_JPRB,5.6898E-05_JPRB,5.7591E-05_JPRB,5.8280E-05_JPRB/)  
+KBO( :,48, 3) = (/&
+ & 4.5552E-05_JPRB,4.6275E-05_JPRB,4.6918E-05_JPRB,4.7596E-05_JPRB,4.8274E-05_JPRB/)  
+KBO( :,49, 3) = (/&
+ & 3.7438E-05_JPRB,3.8131E-05_JPRB,3.8767E-05_JPRB,3.9430E-05_JPRB,4.0094E-05_JPRB/)  
+KBO( :,50, 3) = (/&
+ & 3.0699E-05_JPRB,3.1333E-05_JPRB,3.1922E-05_JPRB,3.2530E-05_JPRB,3.3148E-05_JPRB/)  
+KBO( :,51, 3) = (/&
+ & 2.5129E-05_JPRB,2.5702E-05_JPRB,2.6235E-05_JPRB,2.6778E-05_JPRB,2.7340E-05_JPRB/)  
+KBO( :,52, 3) = (/&
+ & 2.0590E-05_JPRB,2.1102E-05_JPRB,2.1590E-05_JPRB,2.2079E-05_JPRB,2.2594E-05_JPRB/)  
+KBO( :,53, 3) = (/&
+ & 1.6895E-05_JPRB,1.7360E-05_JPRB,1.7806E-05_JPRB,1.8261E-05_JPRB,1.8734E-05_JPRB/)  
+KBO( :,54, 3) = (/&
+ & 1.3758E-05_JPRB,1.4159E-05_JPRB,1.4534E-05_JPRB,1.4917E-05_JPRB,1.5317E-05_JPRB/)  
+KBO( :,55, 3) = (/&
+ & 1.1148E-05_JPRB,1.1484E-05_JPRB,1.1790E-05_JPRB,1.2094E-05_JPRB,1.2411E-05_JPRB/)  
+KBO( :,56, 3) = (/&
+ & 9.0284E-06_JPRB,9.3136E-06_JPRB,9.5654E-06_JPRB,9.8098E-06_JPRB,1.0060E-05_JPRB/)  
+KBO( :,57, 3) = (/&
+ & 7.3060E-06_JPRB,7.5521E-06_JPRB,7.7610E-06_JPRB,7.9575E-06_JPRB,8.1567E-06_JPRB/)  
+KBO( :,58, 3) = (/&
+ & 5.9024E-06_JPRB,6.1146E-06_JPRB,6.2887E-06_JPRB,6.4473E-06_JPRB,6.6035E-06_JPRB/)  
+KBO( :,59, 3) = (/&
+ & 4.7480E-06_JPRB,4.9198E-06_JPRB,5.0575E-06_JPRB,5.1729E-06_JPRB,5.2807E-06_JPRB/)  
+KBO( :, 7, 4) = (/&
+ & 5.4576E-01_JPRB,5.8321E-01_JPRB,6.3352E-01_JPRB,6.9888E-01_JPRB,7.7662E-01_JPRB/)  
+KBO( :, 8, 4) = (/&
+ & 3.7193E-01_JPRB,3.9289E-01_JPRB,4.1999E-01_JPRB,4.5207E-01_JPRB,4.8994E-01_JPRB/)  
+KBO( :, 9, 4) = (/&
+ & 2.7031E-01_JPRB,2.8087E-01_JPRB,2.9426E-01_JPRB,3.0966E-01_JPRB,3.2729E-01_JPRB/)  
+KBO( :,10, 4) = (/&
+ & 2.0336E-01_JPRB,2.0948E-01_JPRB,2.1603E-01_JPRB,2.2414E-01_JPRB,2.3345E-01_JPRB/)  
+KBO( :,11, 4) = (/&
+ & 1.6168E-01_JPRB,1.6588E-01_JPRB,1.7020E-01_JPRB,1.7548E-01_JPRB,1.8161E-01_JPRB/)  
+KBO( :,12, 4) = (/&
+ & 1.3346E-01_JPRB,1.3660E-01_JPRB,1.3975E-01_JPRB,1.4344E-01_JPRB,1.4792E-01_JPRB/)  
+KBO( :,13, 4) = (/&
+ & 1.0849E-01_JPRB,1.1069E-01_JPRB,1.1290E-01_JPRB,1.1556E-01_JPRB,1.1871E-01_JPRB/)  
+KBO( :,14, 4) = (/&
+ & 8.2500E-02_JPRB,8.3981E-02_JPRB,8.5345E-02_JPRB,8.6853E-02_JPRB,8.8365E-02_JPRB/)  
+KBO( :,15, 4) = (/&
+ & 6.3556E-02_JPRB,6.4528E-02_JPRB,6.5387E-02_JPRB,6.6084E-02_JPRB,6.6650E-02_JPRB/)  
+KBO( :,16, 4) = (/&
+ & 5.0617E-02_JPRB,5.1215E-02_JPRB,5.1695E-02_JPRB,5.1994E-02_JPRB,5.2195E-02_JPRB/)  
+KBO( :,17, 4) = (/&
+ & 4.0691E-02_JPRB,4.1021E-02_JPRB,4.1248E-02_JPRB,4.1327E-02_JPRB,4.1343E-02_JPRB/)  
+KBO( :,18, 4) = (/&
+ & 3.2954E-02_JPRB,3.3129E-02_JPRB,3.3217E-02_JPRB,3.3185E-02_JPRB,3.3108E-02_JPRB/)  
+KBO( :,19, 4) = (/&
+ & 2.6680E-02_JPRB,2.6760E-02_JPRB,2.6758E-02_JPRB,2.6667E-02_JPRB,2.6543E-02_JPRB/)  
+KBO( :,20, 4) = (/&
+ & 2.1769E-02_JPRB,2.1800E-02_JPRB,2.1748E-02_JPRB,2.1639E-02_JPRB,2.1512E-02_JPRB/)  
+KBO( :,21, 4) = (/&
+ & 1.7784E-02_JPRB,1.7780E-02_JPRB,1.7709E-02_JPRB,1.7602E-02_JPRB,1.7488E-02_JPRB/)  
+KBO( :,22, 4) = (/&
+ & 1.4514E-02_JPRB,1.4488E-02_JPRB,1.4415E-02_JPRB,1.4319E-02_JPRB,1.4220E-02_JPRB/)  
+KBO( :,23, 4) = (/&
+ & 1.1835E-02_JPRB,1.1797E-02_JPRB,1.1728E-02_JPRB,1.1643E-02_JPRB,1.1560E-02_JPRB/)  
+KBO( :,24, 4) = (/&
+ & 9.6235E-03_JPRB,9.5815E-03_JPRB,9.5190E-03_JPRB,9.4465E-03_JPRB,9.3693E-03_JPRB/)  
+KBO( :,25, 4) = (/&
+ & 7.8292E-03_JPRB,7.7888E-03_JPRB,7.7341E-03_JPRB,7.6730E-03_JPRB,7.6029E-03_JPRB/)  
+KBO( :,26, 4) = (/&
+ & 6.3801E-03_JPRB,6.3415E-03_JPRB,6.2961E-03_JPRB,6.2428E-03_JPRB,6.1825E-03_JPRB/)  
+KBO( :,27, 4) = (/&
+ & 5.2042E-03_JPRB,5.1715E-03_JPRB,5.1336E-03_JPRB,5.0880E-03_JPRB,5.0387E-03_JPRB/)  
+KBO( :,28, 4) = (/&
+ & 4.2465E-03_JPRB,4.2207E-03_JPRB,4.1880E-03_JPRB,4.1504E-03_JPRB,4.1110E-03_JPRB/)  
+KBO( :,29, 4) = (/&
+ & 3.4782E-03_JPRB,3.4577E-03_JPRB,3.4306E-03_JPRB,3.4016E-03_JPRB,3.3709E-03_JPRB/)  
+KBO( :,30, 4) = (/&
+ & 2.8515E-03_JPRB,2.8346E-03_JPRB,2.8137E-03_JPRB,2.7917E-03_JPRB,2.7680E-03_JPRB/)  
+KBO( :,31, 4) = (/&
+ & 2.3437E-03_JPRB,2.3307E-03_JPRB,2.3161E-03_JPRB,2.3002E-03_JPRB,2.2834E-03_JPRB/)  
+KBO( :,32, 4) = (/&
+ & 1.9274E-03_JPRB,1.9187E-03_JPRB,1.9091E-03_JPRB,1.8985E-03_JPRB,1.8866E-03_JPRB/)  
+KBO( :,33, 4) = (/&
+ & 1.5869E-03_JPRB,1.5820E-03_JPRB,1.5765E-03_JPRB,1.5699E-03_JPRB,1.5624E-03_JPRB/)  
+KBO( :,34, 4) = (/&
+ & 1.3081E-03_JPRB,1.3058E-03_JPRB,1.3032E-03_JPRB,1.2991E-03_JPRB,1.2950E-03_JPRB/)  
+KBO( :,35, 4) = (/&
+ & 1.0781E-03_JPRB,1.0778E-03_JPRB,1.0771E-03_JPRB,1.0756E-03_JPRB,1.0740E-03_JPRB/)  
+KBO( :,36, 4) = (/&
+ & 8.8736E-04_JPRB,8.8844E-04_JPRB,8.8926E-04_JPRB,8.8965E-04_JPRB,8.8976E-04_JPRB/)  
+KBO( :,37, 4) = (/&
+ & 7.3290E-04_JPRB,7.3491E-04_JPRB,7.3643E-04_JPRB,7.3770E-04_JPRB,7.3879E-04_JPRB/)  
+KBO( :,38, 4) = (/&
+ & 6.0588E-04_JPRB,6.0833E-04_JPRB,6.1041E-04_JPRB,6.1235E-04_JPRB,6.1424E-04_JPRB/)  
+KBO( :,39, 4) = (/&
+ & 5.0124E-04_JPRB,5.0398E-04_JPRB,5.0659E-04_JPRB,5.0907E-04_JPRB,5.1177E-04_JPRB/)  
+KBO( :,40, 4) = (/&
+ & 4.1327E-04_JPRB,4.1591E-04_JPRB,4.1851E-04_JPRB,4.2084E-04_JPRB,4.2376E-04_JPRB/)  
+KBO( :,41, 4) = (/&
+ & 3.4050E-04_JPRB,3.4298E-04_JPRB,3.4548E-04_JPRB,3.4778E-04_JPRB,3.5064E-04_JPRB/)  
+KBO( :,42, 4) = (/&
+ & 2.8050E-04_JPRB,2.8288E-04_JPRB,2.8524E-04_JPRB,2.8747E-04_JPRB,2.9020E-04_JPRB/)  
+KBO( :,43, 4) = (/&
+ & 2.3103E-04_JPRB,2.3322E-04_JPRB,2.3547E-04_JPRB,2.3763E-04_JPRB,2.4024E-04_JPRB/)  
+KBO( :,44, 4) = (/&
+ & 1.9026E-04_JPRB,1.9231E-04_JPRB,1.9444E-04_JPRB,1.9652E-04_JPRB,1.9896E-04_JPRB/)  
+KBO( :,45, 4) = (/&
+ & 1.5671E-04_JPRB,1.5864E-04_JPRB,1.6066E-04_JPRB,1.6263E-04_JPRB,1.6494E-04_JPRB/)  
+KBO( :,46, 4) = (/&
+ & 1.2898E-04_JPRB,1.3080E-04_JPRB,1.3267E-04_JPRB,1.3454E-04_JPRB,1.3671E-04_JPRB/)  
+KBO( :,47, 4) = (/&
+ & 1.0596E-04_JPRB,1.0765E-04_JPRB,1.0934E-04_JPRB,1.1109E-04_JPRB,1.1307E-04_JPRB/)  
+KBO( :,48, 4) = (/&
+ & 8.7064E-05_JPRB,8.8650E-05_JPRB,9.0201E-05_JPRB,9.1849E-05_JPRB,9.3694E-05_JPRB/)  
+KBO( :,49, 4) = (/&
+ & 7.1599E-05_JPRB,7.3089E-05_JPRB,7.4546E-05_JPRB,7.6099E-05_JPRB,7.7859E-05_JPRB/)  
+KBO( :,50, 4) = (/&
+ & 5.8725E-05_JPRB,6.0074E-05_JPRB,6.1380E-05_JPRB,6.2781E-05_JPRB,6.4369E-05_JPRB/)  
+KBO( :,51, 4) = (/&
+ & 4.8093E-05_JPRB,4.9292E-05_JPRB,5.0434E-05_JPRB,5.1667E-05_JPRB,5.3063E-05_JPRB/)  
+KBO( :,52, 4) = (/&
+ & 3.9408E-05_JPRB,4.0473E-05_JPRB,4.1481E-05_JPRB,4.2577E-05_JPRB,4.3826E-05_JPRB/)  
+KBO( :,53, 4) = (/&
+ & 3.2348E-05_JPRB,3.3281E-05_JPRB,3.4179E-05_JPRB,3.5167E-05_JPRB,3.6311E-05_JPRB/)  
+KBO( :,54, 4) = (/&
+ & 2.6357E-05_JPRB,2.7153E-05_JPRB,2.7906E-05_JPRB,2.8713E-05_JPRB,2.9648E-05_JPRB/)  
+KBO( :,55, 4) = (/&
+ & 2.1368E-05_JPRB,2.2046E-05_JPRB,2.2660E-05_JPRB,2.3285E-05_JPRB,2.4007E-05_JPRB/)  
+KBO( :,56, 4) = (/&
+ & 1.7314E-05_JPRB,1.7894E-05_JPRB,1.8399E-05_JPRB,1.8894E-05_JPRB,1.9452E-05_JPRB/)  
+KBO( :,57, 4) = (/&
+ & 1.4020E-05_JPRB,1.4518E-05_JPRB,1.4939E-05_JPRB,1.5339E-05_JPRB,1.5769E-05_JPRB/)  
+KBO( :,58, 4) = (/&
+ & 1.1336E-05_JPRB,1.1762E-05_JPRB,1.2115E-05_JPRB,1.2440E-05_JPRB,1.2770E-05_JPRB/)  
+KBO( :,59, 4) = (/&
+ & 9.1282E-06_JPRB,9.4754E-06_JPRB,9.7573E-06_JPRB,1.0004E-05_JPRB,1.0238E-05_JPRB/)  
+KBO( :, 7, 5) = (/&
+ & 7.4219E-01_JPRB,8.0054E-01_JPRB,8.7888E-01_JPRB,9.7526E-01_JPRB,1.0998E+00_JPRB/)  
+KBO( :, 8, 5) = (/&
+ & 5.1152E-01_JPRB,5.4637E-01_JPRB,5.8683E-01_JPRB,6.3535E-01_JPRB,6.9455E-01_JPRB/)  
+KBO( :, 9, 5) = (/&
+ & 3.8181E-01_JPRB,4.0155E-01_JPRB,4.2314E-01_JPRB,4.4831E-01_JPRB,4.7715E-01_JPRB/)  
+KBO( :,10, 5) = (/&
+ & 2.9695E-01_JPRB,3.0876E-01_JPRB,3.2196E-01_JPRB,3.3553E-01_JPRB,3.5132E-01_JPRB/)  
+KBO( :,11, 5) = (/&
+ & 2.4682E-01_JPRB,2.5515E-01_JPRB,2.6470E-01_JPRB,2.7449E-01_JPRB,2.8523E-01_JPRB/)  
+KBO( :,12, 5) = (/&
+ & 2.1183E-01_JPRB,2.1854E-01_JPRB,2.2616E-01_JPRB,2.3413E-01_JPRB,2.4235E-01_JPRB/)  
+KBO( :,13, 5) = (/&
+ & 1.7800E-01_JPRB,1.8340E-01_JPRB,1.8940E-01_JPRB,1.9532E-01_JPRB,2.0154E-01_JPRB/)  
+KBO( :,14, 5) = (/&
+ & 1.4147E-01_JPRB,1.4449E-01_JPRB,1.4788E-01_JPRB,1.5168E-01_JPRB,1.5576E-01_JPRB/)  
+KBO( :,15, 5) = (/&
+ & 1.1315E-01_JPRB,1.1469E-01_JPRB,1.1645E-01_JPRB,1.1868E-01_JPRB,1.2103E-01_JPRB/)  
+KBO( :,16, 5) = (/&
+ & 9.2222E-02_JPRB,9.3160E-02_JPRB,9.4211E-02_JPRB,9.5476E-02_JPRB,9.6729E-02_JPRB/)  
+KBO( :,17, 5) = (/&
+ & 7.5459E-02_JPRB,7.6041E-02_JPRB,7.6622E-02_JPRB,7.7254E-02_JPRB,7.7877E-02_JPRB/)  
+KBO( :,18, 5) = (/&
+ & 6.1947E-02_JPRB,6.2293E-02_JPRB,6.2553E-02_JPRB,6.2869E-02_JPRB,6.3141E-02_JPRB/)  
+KBO( :,19, 5) = (/&
+ & 5.0722E-02_JPRB,5.0858E-02_JPRB,5.0935E-02_JPRB,5.1055E-02_JPRB,5.1101E-02_JPRB/)  
+KBO( :,20, 5) = (/&
+ & 4.1631E-02_JPRB,4.1679E-02_JPRB,4.1718E-02_JPRB,4.1739E-02_JPRB,4.1680E-02_JPRB/)  
+KBO( :,21, 5) = (/&
+ & 3.4144E-02_JPRB,3.4173E-02_JPRB,3.4180E-02_JPRB,3.4129E-02_JPRB,3.4026E-02_JPRB/)  
+KBO( :,22, 5) = (/&
+ & 2.7969E-02_JPRB,2.7982E-02_JPRB,2.7950E-02_JPRB,2.7863E-02_JPRB,2.7745E-02_JPRB/)  
+KBO( :,23, 5) = (/&
+ & 2.2887E-02_JPRB,2.2876E-02_JPRB,2.2812E-02_JPRB,2.2713E-02_JPRB,2.2601E-02_JPRB/)  
+KBO( :,24, 5) = (/&
+ & 1.8663E-02_JPRB,1.8630E-02_JPRB,1.8556E-02_JPRB,1.8459E-02_JPRB,1.8357E-02_JPRB/)  
+KBO( :,25, 5) = (/&
+ & 1.5218E-02_JPRB,1.5169E-02_JPRB,1.5100E-02_JPRB,1.5012E-02_JPRB,1.4924E-02_JPRB/)  
+KBO( :,26, 5) = (/&
+ & 1.2420E-02_JPRB,1.2369E-02_JPRB,1.2302E-02_JPRB,1.2232E-02_JPRB,1.2157E-02_JPRB/)  
+KBO( :,27, 5) = (/&
+ & 1.0146E-02_JPRB,1.0098E-02_JPRB,1.0044E-02_JPRB,9.9898E-03_JPRB,9.9236E-03_JPRB/)  
+KBO( :,28, 5) = (/&
+ & 8.2897E-03_JPRB,8.2510E-03_JPRB,8.2117E-03_JPRB,8.1680E-03_JPRB,8.1099E-03_JPRB/)  
+KBO( :,29, 5) = (/&
+ & 6.7978E-03_JPRB,6.7739E-03_JPRB,6.7481E-03_JPRB,6.7134E-03_JPRB,6.6680E-03_JPRB/)  
+KBO( :,30, 5) = (/&
+ & 5.5823E-03_JPRB,5.5718E-03_JPRB,5.5546E-03_JPRB,5.5280E-03_JPRB,5.4974E-03_JPRB/)  
+KBO( :,31, 5) = (/&
+ & 4.6027E-03_JPRB,4.6001E-03_JPRB,4.5893E-03_JPRB,4.5737E-03_JPRB,4.5580E-03_JPRB/)  
+KBO( :,32, 5) = (/&
+ & 3.8008E-03_JPRB,3.8015E-03_JPRB,3.7970E-03_JPRB,3.7914E-03_JPRB,3.7855E-03_JPRB/)  
+KBO( :,33, 5) = (/&
+ & 3.1425E-03_JPRB,3.1461E-03_JPRB,3.1482E-03_JPRB,3.1501E-03_JPRB,3.1526E-03_JPRB/)  
+KBO( :,34, 5) = (/&
+ & 2.5984E-03_JPRB,2.6053E-03_JPRB,2.6119E-03_JPRB,2.6195E-03_JPRB,2.6274E-03_JPRB/)  
+KBO( :,35, 5) = (/&
+ & 2.1483E-03_JPRB,2.1578E-03_JPRB,2.1676E-03_JPRB,2.1783E-03_JPRB,2.1903E-03_JPRB/)  
+KBO( :,36, 5) = (/&
+ & 1.7735E-03_JPRB,1.7841E-03_JPRB,1.7952E-03_JPRB,1.8076E-03_JPRB,1.8217E-03_JPRB/)  
+KBO( :,37, 5) = (/&
+ & 1.4673E-03_JPRB,1.4785E-03_JPRB,1.4908E-03_JPRB,1.5046E-03_JPRB,1.5197E-03_JPRB/)  
+KBO( :,38, 5) = (/&
+ & 1.2151E-03_JPRB,1.2270E-03_JPRB,1.2402E-03_JPRB,1.2548E-03_JPRB,1.2701E-03_JPRB/)  
+KBO( :,39, 5) = (/&
+ & 1.0074E-03_JPRB,1.0199E-03_JPRB,1.0337E-03_JPRB,1.0486E-03_JPRB,1.0638E-03_JPRB/)  
+KBO( :,40, 5) = (/&
+ & 8.3151E-04_JPRB,8.4359E-04_JPRB,8.5658E-04_JPRB,8.6983E-04_JPRB,8.8391E-04_JPRB/)  
+KBO( :,41, 5) = (/&
+ & 6.8588E-04_JPRB,6.9711E-04_JPRB,7.0893E-04_JPRB,7.2091E-04_JPRB,7.3364E-04_JPRB/)  
+KBO( :,42, 5) = (/&
+ & 5.6575E-04_JPRB,5.7610E-04_JPRB,5.8675E-04_JPRB,5.9741E-04_JPRB,6.0890E-04_JPRB/)  
+KBO( :,43, 5) = (/&
+ & 4.6640E-04_JPRB,4.7576E-04_JPRB,4.8530E-04_JPRB,4.9486E-04_JPRB,5.0526E-04_JPRB/)  
+KBO( :,44, 5) = (/&
+ & 3.8435E-04_JPRB,3.9291E-04_JPRB,4.0148E-04_JPRB,4.1002E-04_JPRB,4.1936E-04_JPRB/)  
+KBO( :,45, 5) = (/&
+ & 3.1688E-04_JPRB,3.2462E-04_JPRB,3.3225E-04_JPRB,3.3993E-04_JPRB,3.4837E-04_JPRB/)  
+KBO( :,46, 5) = (/&
+ & 2.6099E-04_JPRB,2.6793E-04_JPRB,2.7469E-04_JPRB,2.8156E-04_JPRB,2.8910E-04_JPRB/)  
+KBO( :,47, 5) = (/&
+ & 2.1440E-04_JPRB,2.2049E-04_JPRB,2.2645E-04_JPRB,2.3254E-04_JPRB,2.3931E-04_JPRB/)  
+KBO( :,48, 5) = (/&
+ & 1.7619E-04_JPRB,1.8156E-04_JPRB,1.8686E-04_JPRB,1.9234E-04_JPRB,1.9841E-04_JPRB/)  
+KBO( :,49, 5) = (/&
+ & 1.4500E-04_JPRB,1.4973E-04_JPRB,1.5449E-04_JPRB,1.5941E-04_JPRB,1.6496E-04_JPRB/)  
+KBO( :,50, 5) = (/&
+ & 1.1899E-04_JPRB,1.2306E-04_JPRB,1.2720E-04_JPRB,1.3150E-04_JPRB,1.3635E-04_JPRB/)  
+KBO( :,51, 5) = (/&
+ & 9.7485E-05_JPRB,1.0095E-04_JPRB,1.0448E-04_JPRB,1.0819E-04_JPRB,1.1236E-04_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB8:PART3',1,ZHOOK_HANDLE)
+END SUBROUTINE PART3
+
+
+SUBROUTINE PART4
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB8:PART4',0,ZHOOK_HANDLE)
+
+
+KBO( :,52, 5) = (/&
+ & 7.9898E-05_JPRB,8.2877E-05_JPRB,8.5912E-05_JPRB,8.9120E-05_JPRB,9.2744E-05_JPRB/)  
+KBO( :,53, 5) = (/&
+ & 6.5564E-05_JPRB,6.8161E-05_JPRB,7.0774E-05_JPRB,7.3596E-05_JPRB,7.6784E-05_JPRB/)  
+KBO( :,54, 5) = (/&
+ & 5.3382E-05_JPRB,5.5562E-05_JPRB,5.7697E-05_JPRB,6.0028E-05_JPRB,6.2619E-05_JPRB/)  
+KBO( :,55, 5) = (/&
+ & 4.3245E-05_JPRB,4.5036E-05_JPRB,4.6756E-05_JPRB,4.8597E-05_JPRB,5.0630E-05_JPRB/)  
+KBO( :,56, 5) = (/&
+ & 3.5030E-05_JPRB,3.6502E-05_JPRB,3.7905E-05_JPRB,3.9364E-05_JPRB,4.0960E-05_JPRB/)  
+KBO( :,57, 5) = (/&
+ & 2.8365E-05_JPRB,2.9581E-05_JPRB,3.0734E-05_JPRB,3.1886E-05_JPRB,3.3151E-05_JPRB/)  
+KBO( :,58, 5) = (/&
+ & 2.2943E-05_JPRB,2.3945E-05_JPRB,2.4891E-05_JPRB,2.5800E-05_JPRB,2.6793E-05_JPRB/)  
+KBO( :,59, 5) = (/&
+ & 1.8495E-05_JPRB,1.9293E-05_JPRB,2.0030E-05_JPRB,2.0717E-05_JPRB,2.1421E-05_JPRB/)  
+KBO( :, 7, 6) = (/&
+ & 1.0291E+00_JPRB,1.1356E+00_JPRB,1.2744E+00_JPRB,1.4468E+00_JPRB,1.6524E+00_JPRB/)  
+KBO( :, 8, 6) = (/&
+ & 6.9841E-01_JPRB,7.5208E-01_JPRB,8.2057E-01_JPRB,9.0373E-01_JPRB,9.9840E-01_JPRB/)  
+KBO( :, 9, 6) = (/&
+ & 5.3286E-01_JPRB,5.5966E-01_JPRB,5.9440E-01_JPRB,6.3558E-01_JPRB,6.8341E-01_JPRB/)  
+KBO( :,10, 6) = (/&
+ & 4.3919E-01_JPRB,4.5202E-01_JPRB,4.6857E-01_JPRB,4.9162E-01_JPRB,5.1919E-01_JPRB/)  
+KBO( :,11, 6) = (/&
+ & 3.8169E-01_JPRB,3.9111E-01_JPRB,4.0234E-01_JPRB,4.1718E-01_JPRB,4.3612E-01_JPRB/)  
+KBO( :,12, 6) = (/&
+ & 3.4191E-01_JPRB,3.5009E-01_JPRB,3.5940E-01_JPRB,3.7082E-01_JPRB,3.8567E-01_JPRB/)  
+KBO( :,13, 6) = (/&
+ & 3.0165E-01_JPRB,3.0862E-01_JPRB,3.1605E-01_JPRB,3.2574E-01_JPRB,3.3792E-01_JPRB/)  
+KBO( :,14, 6) = (/&
+ & 2.5298E-01_JPRB,2.5814E-01_JPRB,2.6338E-01_JPRB,2.6931E-01_JPRB,2.7664E-01_JPRB/)  
+KBO( :,15, 6) = (/&
+ & 2.1273E-01_JPRB,2.1655E-01_JPRB,2.1994E-01_JPRB,2.2320E-01_JPRB,2.2726E-01_JPRB/)  
+KBO( :,16, 6) = (/&
+ & 1.8046E-01_JPRB,1.8315E-01_JPRB,1.8531E-01_JPRB,1.8743E-01_JPRB,1.8993E-01_JPRB/)  
+KBO( :,17, 6) = (/&
+ & 1.5223E-01_JPRB,1.5398E-01_JPRB,1.5534E-01_JPRB,1.5661E-01_JPRB,1.5779E-01_JPRB/)  
+KBO( :,18, 6) = (/&
+ & 1.2778E-01_JPRB,1.2889E-01_JPRB,1.2966E-01_JPRB,1.3020E-01_JPRB,1.3052E-01_JPRB/)  
+KBO( :,19, 6) = (/&
+ & 1.0640E-01_JPRB,1.0703E-01_JPRB,1.0732E-01_JPRB,1.0728E-01_JPRB,1.0716E-01_JPRB/)  
+KBO( :,20, 6) = (/&
+ & 8.8470E-02_JPRB,8.8754E-02_JPRB,8.8701E-02_JPRB,8.8488E-02_JPRB,8.8284E-02_JPRB/)  
+KBO( :,21, 6) = (/&
+ & 7.3231E-02_JPRB,7.3261E-02_JPRB,7.3087E-02_JPRB,7.2888E-02_JPRB,7.2674E-02_JPRB/)  
+KBO( :,22, 6) = (/&
+ & 6.0317E-02_JPRB,6.0219E-02_JPRB,6.0056E-02_JPRB,5.9896E-02_JPRB,5.9688E-02_JPRB/)  
+KBO( :,23, 6) = (/&
+ & 4.9481E-02_JPRB,4.9377E-02_JPRB,4.9249E-02_JPRB,4.9098E-02_JPRB,4.8909E-02_JPRB/)  
+KBO( :,24, 6) = (/&
+ & 4.0434E-02_JPRB,4.0336E-02_JPRB,4.0225E-02_JPRB,4.0073E-02_JPRB,3.9896E-02_JPRB/)  
+KBO( :,25, 6) = (/&
+ & 3.3025E-02_JPRB,3.2945E-02_JPRB,3.2829E-02_JPRB,3.2695E-02_JPRB,3.2543E-02_JPRB/)  
+KBO( :,26, 6) = (/&
+ & 2.6990E-02_JPRB,2.6922E-02_JPRB,2.6821E-02_JPRB,2.6706E-02_JPRB,2.6588E-02_JPRB/)  
+KBO( :,27, 6) = (/&
+ & 2.2079E-02_JPRB,2.2020E-02_JPRB,2.1942E-02_JPRB,2.1852E-02_JPRB,2.1768E-02_JPRB/)  
+KBO( :,28, 6) = (/&
+ & 1.8069E-02_JPRB,1.8022E-02_JPRB,1.7962E-02_JPRB,1.7900E-02_JPRB,1.7838E-02_JPRB/)  
+KBO( :,29, 6) = (/&
+ & 1.4852E-02_JPRB,1.4820E-02_JPRB,1.4781E-02_JPRB,1.4749E-02_JPRB,1.4702E-02_JPRB/)  
+KBO( :,30, 6) = (/&
+ & 1.2224E-02_JPRB,1.2208E-02_JPRB,1.2195E-02_JPRB,1.2181E-02_JPRB,1.2148E-02_JPRB/)  
+KBO( :,31, 6) = (/&
+ & 1.0105E-02_JPRB,1.0111E-02_JPRB,1.0120E-02_JPRB,1.0118E-02_JPRB,1.0103E-02_JPRB/)  
+KBO( :,32, 6) = (/&
+ & 8.3725E-03_JPRB,8.4005E-03_JPRB,8.4201E-03_JPRB,8.4294E-03_JPRB,8.4380E-03_JPRB/)  
+KBO( :,33, 6) = (/&
+ & 6.9608E-03_JPRB,6.9985E-03_JPRB,7.0246E-03_JPRB,7.0506E-03_JPRB,7.0801E-03_JPRB/)  
+KBO( :,34, 6) = (/&
+ & 5.7896E-03_JPRB,5.8293E-03_JPRB,5.8636E-03_JPRB,5.9033E-03_JPRB,5.9423E-03_JPRB/)  
+KBO( :,35, 6) = (/&
+ & 4.8109E-03_JPRB,4.8516E-03_JPRB,4.8942E-03_JPRB,4.9402E-03_JPRB,4.9858E-03_JPRB/)  
+KBO( :,36, 6) = (/&
+ & 3.9871E-03_JPRB,4.0286E-03_JPRB,4.0750E-03_JPRB,4.1227E-03_JPRB,4.1698E-03_JPRB/)  
+KBO( :,37, 6) = (/&
+ & 3.3096E-03_JPRB,3.3515E-03_JPRB,3.3976E-03_JPRB,3.4442E-03_JPRB,3.4909E-03_JPRB/)  
+KBO( :,38, 6) = (/&
+ & 2.7496E-03_JPRB,2.7916E-03_JPRB,2.8359E-03_JPRB,2.8815E-03_JPRB,2.9281E-03_JPRB/)  
+KBO( :,39, 6) = (/&
+ & 2.2877E-03_JPRB,2.3291E-03_JPRB,2.3716E-03_JPRB,2.4163E-03_JPRB,2.4637E-03_JPRB/)  
+KBO( :,40, 6) = (/&
+ & 1.8936E-03_JPRB,1.9309E-03_JPRB,1.9696E-03_JPRB,2.0107E-03_JPRB,2.0549E-03_JPRB/)  
+KBO( :,41, 6) = (/&
+ & 1.5662E-03_JPRB,1.5994E-03_JPRB,1.6345E-03_JPRB,1.6724E-03_JPRB,1.7133E-03_JPRB/)  
+KBO( :,42, 6) = (/&
+ & 1.2955E-03_JPRB,1.3254E-03_JPRB,1.3573E-03_JPRB,1.3919E-03_JPRB,1.4291E-03_JPRB/)  
+KBO( :,43, 6) = (/&
+ & 1.0710E-03_JPRB,1.0978E-03_JPRB,1.1266E-03_JPRB,1.1585E-03_JPRB,1.1927E-03_JPRB/)  
+KBO( :,44, 6) = (/&
+ & 8.8505E-04_JPRB,9.0944E-04_JPRB,9.3598E-04_JPRB,9.6529E-04_JPRB,9.9625E-04_JPRB/)  
+KBO( :,45, 6) = (/&
+ & 7.3173E-04_JPRB,7.5385E-04_JPRB,7.7814E-04_JPRB,8.0503E-04_JPRB,8.3318E-04_JPRB/)  
+KBO( :,46, 6) = (/&
+ & 6.0428E-04_JPRB,6.2394E-04_JPRB,6.4629E-04_JPRB,6.7060E-04_JPRB,6.9612E-04_JPRB/)  
+KBO( :,47, 6) = (/&
+ & 4.9743E-04_JPRB,5.1490E-04_JPRB,5.3489E-04_JPRB,5.5664E-04_JPRB,5.7933E-04_JPRB/)  
+KBO( :,48, 6) = (/&
+ & 4.0957E-04_JPRB,4.2541E-04_JPRB,4.4342E-04_JPRB,4.6291E-04_JPRB,4.8300E-04_JPRB/)  
+KBO( :,49, 6) = (/&
+ & 3.3774E-04_JPRB,3.5226E-04_JPRB,3.6850E-04_JPRB,3.8591E-04_JPRB,4.0393E-04_JPRB/)  
+KBO( :,50, 6) = (/&
+ & 2.7754E-04_JPRB,2.9045E-04_JPRB,3.0466E-04_JPRB,3.1969E-04_JPRB,3.3544E-04_JPRB/)  
+KBO( :,51, 6) = (/&
+ & 2.2753E-04_JPRB,2.3884E-04_JPRB,2.5106E-04_JPRB,2.6388E-04_JPRB,2.7745E-04_JPRB/)  
+KBO( :,52, 6) = (/&
+ & 1.8669E-04_JPRB,1.9654E-04_JPRB,2.0712E-04_JPRB,2.1810E-04_JPRB,2.2988E-04_JPRB/)  
+KBO( :,53, 6) = (/&
+ & 1.5338E-04_JPRB,1.6202E-04_JPRB,1.7120E-04_JPRB,1.8071E-04_JPRB,1.9105E-04_JPRB/)  
+KBO( :,54, 6) = (/&
+ & 1.2486E-04_JPRB,1.3205E-04_JPRB,1.3971E-04_JPRB,1.4755E-04_JPRB,1.5604E-04_JPRB/)  
+KBO( :,55, 6) = (/&
+ & 1.0106E-04_JPRB,1.0690E-04_JPRB,1.1311E-04_JPRB,1.1943E-04_JPRB,1.2616E-04_JPRB/)  
+KBO( :,56, 6) = (/&
+ & 8.1771E-05_JPRB,8.6502E-05_JPRB,9.1586E-05_JPRB,9.6653E-05_JPRB,1.0202E-04_JPRB/)  
+KBO( :,57, 6) = (/&
+ & 6.6144E-05_JPRB,6.9933E-05_JPRB,7.4136E-05_JPRB,7.8259E-05_JPRB,8.2530E-05_JPRB/)  
+KBO( :,58, 6) = (/&
+ & 5.3465E-05_JPRB,5.6462E-05_JPRB,5.9920E-05_JPRB,6.3267E-05_JPRB,6.6666E-05_JPRB/)  
+KBO( :,59, 6) = (/&
+ & 4.3125E-05_JPRB,4.5368E-05_JPRB,4.8072E-05_JPRB,5.0671E-05_JPRB,5.3226E-05_JPRB/)  
+KBO( :, 7, 7) = (/&
+ & 1.6077E+00_JPRB,1.7981E+00_JPRB,2.0341E+00_JPRB,2.3365E+00_JPRB,2.7141E+00_JPRB/)  
+KBO( :, 8, 7) = (/&
+ & 1.0311E+00_JPRB,1.1132E+00_JPRB,1.2137E+00_JPRB,1.3415E+00_JPRB,1.5087E+00_JPRB/)  
+KBO( :, 9, 7) = (/&
+ & 7.6937E-01_JPRB,8.0602E-01_JPRB,8.5228E-01_JPRB,9.1262E-01_JPRB,9.8815E-01_JPRB/)  
+KBO( :,10, 7) = (/&
+ & 6.4929E-01_JPRB,6.6760E-01_JPRB,6.9118E-01_JPRB,7.1882E-01_JPRB,7.5540E-01_JPRB/)  
+KBO( :,11, 7) = (/&
+ & 5.9378E-01_JPRB,6.0842E-01_JPRB,6.2583E-01_JPRB,6.4567E-01_JPRB,6.6995E-01_JPRB/)  
+KBO( :,12, 7) = (/&
+ & 5.6066E-01_JPRB,5.7335E-01_JPRB,5.8800E-01_JPRB,6.0558E-01_JPRB,6.2619E-01_JPRB/)  
+KBO( :,13, 7) = (/&
+ & 5.2201E-01_JPRB,5.3299E-01_JPRB,5.4556E-01_JPRB,5.5961E-01_JPRB,5.7566E-01_JPRB/)  
+KBO( :,14, 7) = (/&
+ & 4.6501E-01_JPRB,4.7434E-01_JPRB,4.8336E-01_JPRB,4.9210E-01_JPRB,5.0157E-01_JPRB/)  
+KBO( :,15, 7) = (/&
+ & 4.1255E-01_JPRB,4.2030E-01_JPRB,4.2720E-01_JPRB,4.3352E-01_JPRB,4.3993E-01_JPRB/)  
+KBO( :,16, 7) = (/&
+ & 3.6768E-01_JPRB,3.7401E-01_JPRB,3.7974E-01_JPRB,3.8485E-01_JPRB,3.8978E-01_JPRB/)  
+KBO( :,17, 7) = (/&
+ & 3.2496E-01_JPRB,3.3013E-01_JPRB,3.3469E-01_JPRB,3.3855E-01_JPRB,3.4245E-01_JPRB/)  
+KBO( :,18, 7) = (/&
+ & 2.8473E-01_JPRB,2.8863E-01_JPRB,2.9200E-01_JPRB,2.9483E-01_JPRB,2.9767E-01_JPRB/)  
+KBO( :,19, 7) = (/&
+ & 2.4598E-01_JPRB,2.4883E-01_JPRB,2.5108E-01_JPRB,2.5281E-01_JPRB,2.5427E-01_JPRB/)  
+KBO( :,20, 7) = (/&
+ & 2.1080E-01_JPRB,2.1273E-01_JPRB,2.1404E-01_JPRB,2.1479E-01_JPRB,2.1513E-01_JPRB/)  
+KBO( :,21, 7) = (/&
+ & 1.7884E-01_JPRB,1.8005E-01_JPRB,1.8057E-01_JPRB,1.8053E-01_JPRB,1.8015E-01_JPRB/)  
+KBO( :,22, 7) = (/&
+ & 1.5046E-01_JPRB,1.5096E-01_JPRB,1.5087E-01_JPRB,1.5039E-01_JPRB,1.4970E-01_JPRB/)  
+KBO( :,23, 7) = (/&
+ & 1.2553E-01_JPRB,1.2553E-01_JPRB,1.2506E-01_JPRB,1.2444E-01_JPRB,1.2374E-01_JPRB/)  
+KBO( :,24, 7) = (/&
+ & 1.0391E-01_JPRB,1.0358E-01_JPRB,1.0303E-01_JPRB,1.0238E-01_JPRB,1.0167E-01_JPRB/)  
+KBO( :,25, 7) = (/&
+ & 8.5584E-02_JPRB,8.5157E-02_JPRB,8.4645E-02_JPRB,8.4056E-02_JPRB,8.3409E-02_JPRB/)  
+KBO( :,26, 7) = (/&
+ & 7.0315E-02_JPRB,6.9930E-02_JPRB,6.9473E-02_JPRB,6.8949E-02_JPRB,6.8424E-02_JPRB/)  
+KBO( :,27, 7) = (/&
+ & 5.7710E-02_JPRB,5.7391E-02_JPRB,5.7008E-02_JPRB,5.6586E-02_JPRB,5.6210E-02_JPRB/)  
+KBO( :,28, 7) = (/&
+ & 4.7344E-02_JPRB,4.7085E-02_JPRB,4.6768E-02_JPRB,4.6467E-02_JPRB,4.6249E-02_JPRB/)  
+KBO( :,29, 7) = (/&
+ & 3.8923E-02_JPRB,3.8733E-02_JPRB,3.8524E-02_JPRB,3.8372E-02_JPRB,3.8309E-02_JPRB/)  
+KBO( :,30, 7) = (/&
+ & 3.2033E-02_JPRB,3.1913E-02_JPRB,3.1817E-02_JPRB,3.1789E-02_JPRB,3.1818E-02_JPRB/)  
+KBO( :,31, 7) = (/&
+ & 2.6460E-02_JPRB,2.6427E-02_JPRB,2.6436E-02_JPRB,2.6518E-02_JPRB,2.6590E-02_JPRB/)  
+KBO( :,32, 7) = (/&
+ & 2.1922E-02_JPRB,2.1964E-02_JPRB,2.2067E-02_JPRB,2.2187E-02_JPRB,2.2275E-02_JPRB/)  
+KBO( :,33, 7) = (/&
+ & 1.8236E-02_JPRB,1.8348E-02_JPRB,1.8498E-02_JPRB,1.8631E-02_JPRB,1.8753E-02_JPRB/)  
+KBO( :,34, 7) = (/&
+ & 1.5224E-02_JPRB,1.5383E-02_JPRB,1.5538E-02_JPRB,1.5679E-02_JPRB,1.5835E-02_JPRB/)  
+KBO( :,35, 7) = (/&
+ & 1.2735E-02_JPRB,1.2900E-02_JPRB,1.3051E-02_JPRB,1.3209E-02_JPRB,1.3385E-02_JPRB/)  
+KBO( :,36, 7) = (/&
+ & 1.0628E-02_JPRB,1.0788E-02_JPRB,1.0937E-02_JPRB,1.1102E-02_JPRB,1.1287E-02_JPRB/)  
+KBO( :,37, 7) = (/&
+ & 8.9166E-03_JPRB,9.0712E-03_JPRB,9.2215E-03_JPRB,9.3908E-03_JPRB,9.5808E-03_JPRB/)  
+KBO( :,38, 7) = (/&
+ & 7.4940E-03_JPRB,7.6454E-03_JPRB,7.7999E-03_JPRB,7.9731E-03_JPRB,8.1630E-03_JPRB/)  
+KBO( :,39, 7) = (/&
+ & 6.3066E-03_JPRB,6.4579E-03_JPRB,6.6165E-03_JPRB,6.7948E-03_JPRB,6.9866E-03_JPRB/)  
+KBO( :,40, 7) = (/&
+ & 5.2690E-03_JPRB,5.4111E-03_JPRB,5.5610E-03_JPRB,5.7292E-03_JPRB,5.9108E-03_JPRB/)  
+KBO( :,41, 7) = (/&
+ & 4.3956E-03_JPRB,4.5258E-03_JPRB,4.6643E-03_JPRB,4.8199E-03_JPRB,4.9873E-03_JPRB/)  
+KBO( :,42, 7) = (/&
+ & 3.6658E-03_JPRB,3.7854E-03_JPRB,3.9129E-03_JPRB,4.0544E-03_JPRB,4.2074E-03_JPRB/)  
+KBO( :,43, 7) = (/&
+ & 3.0541E-03_JPRB,3.1620E-03_JPRB,3.2785E-03_JPRB,3.4070E-03_JPRB,3.5478E-03_JPRB/)  
+KBO( :,44, 7) = (/&
+ & 2.5426E-03_JPRB,2.6415E-03_JPRB,2.7479E-03_JPRB,2.8645E-03_JPRB,2.9935E-03_JPRB/)  
+KBO( :,45, 7) = (/&
+ & 2.1195E-03_JPRB,2.2094E-03_JPRB,2.3059E-03_JPRB,2.4121E-03_JPRB,2.5314E-03_JPRB/)  
+KBO( :,46, 7) = (/&
+ & 1.7648E-03_JPRB,1.8463E-03_JPRB,1.9334E-03_JPRB,2.0302E-03_JPRB,2.1404E-03_JPRB/)  
+KBO( :,47, 7) = (/&
+ & 1.4634E-03_JPRB,1.5361E-03_JPRB,1.6140E-03_JPRB,1.7015E-03_JPRB,1.8026E-03_JPRB/)  
+KBO( :,48, 7) = (/&
+ & 1.2139E-03_JPRB,1.2801E-03_JPRB,1.3517E-03_JPRB,1.4311E-03_JPRB,1.5246E-03_JPRB/)  
+KBO( :,49, 7) = (/&
+ & 1.0084E-03_JPRB,1.0696E-03_JPRB,1.1358E-03_JPRB,1.2100E-03_JPRB,1.2983E-03_JPRB/)  
+KBO( :,50, 7) = (/&
+ & 8.3348E-04_JPRB,8.8778E-04_JPRB,9.4722E-04_JPRB,1.0145E-03_JPRB,1.0957E-03_JPRB/)  
+KBO( :,51, 7) = (/&
+ & 6.8674E-04_JPRB,7.3388E-04_JPRB,7.8672E-04_JPRB,8.4662E-04_JPRB,9.1942E-04_JPRB/)  
+KBO( :,52, 7) = (/&
+ & 5.6565E-04_JPRB,6.0707E-04_JPRB,6.5426E-04_JPRB,7.0839E-04_JPRB,7.7411E-04_JPRB/)  
+KBO( :,53, 7) = (/&
+ & 4.6652E-04_JPRB,5.0305E-04_JPRB,5.4564E-04_JPRB,5.9512E-04_JPRB,6.5514E-04_JPRB/)  
+KBO( :,54, 7) = (/&
+ & 3.8020E-04_JPRB,4.1066E-04_JPRB,4.4674E-04_JPRB,4.8863E-04_JPRB,5.3927E-04_JPRB/)  
+KBO( :,55, 7) = (/&
+ & 3.0778E-04_JPRB,3.3217E-04_JPRB,3.6157E-04_JPRB,3.9555E-04_JPRB,4.3630E-04_JPRB/)  
+KBO( :,56, 7) = (/&
+ & 2.4903E-04_JPRB,2.6857E-04_JPRB,2.9236E-04_JPRB,3.2037E-04_JPRB,3.5294E-04_JPRB/)  
+KBO( :,57, 7) = (/&
+ & 2.0141E-04_JPRB,2.1696E-04_JPRB,2.3614E-04_JPRB,2.5898E-04_JPRB,2.8543E-04_JPRB/)  
+KBO( :,58, 7) = (/&
+ & 1.6266E-04_JPRB,1.7505E-04_JPRB,1.9031E-04_JPRB,2.0880E-04_JPRB,2.2991E-04_JPRB/)  
+KBO( :,59, 7) = (/&
+ & 1.3098E-04_JPRB,1.4063E-04_JPRB,1.5198E-04_JPRB,1.6574E-04_JPRB,1.8129E-04_JPRB/)  
+KBO( :, 7, 8) = (/&
+ & 3.3211E+00_JPRB,3.8117E+00_JPRB,4.3961E+00_JPRB,5.0891E+00_JPRB,5.9185E+00_JPRB/)  
+KBO( :, 8, 8) = (/&
+ & 1.8613E+00_JPRB,2.0568E+00_JPRB,2.2883E+00_JPRB,2.5535E+00_JPRB,2.8756E+00_JPRB/)  
+KBO( :, 9, 8) = (/&
+ & 1.2496E+00_JPRB,1.3135E+00_JPRB,1.3903E+00_JPRB,1.4889E+00_JPRB,1.6200E+00_JPRB/)  
+KBO( :,10, 8) = (/&
+ & 1.0270E+00_JPRB,1.0590E+00_JPRB,1.0952E+00_JPRB,1.1413E+00_JPRB,1.1993E+00_JPRB/)  
+KBO( :,11, 8) = (/&
+ & 9.5413E-01_JPRB,9.8150E-01_JPRB,1.0111E+00_JPRB,1.0458E+00_JPRB,1.0870E+00_JPRB/)  
+KBO( :,12, 8) = (/&
+ & 9.3205E-01_JPRB,9.5733E-01_JPRB,9.8351E-01_JPRB,1.0122E+00_JPRB,1.0457E+00_JPRB/)  
+KBO( :,13, 8) = (/&
+ & 9.0876E-01_JPRB,9.3132E-01_JPRB,9.5428E-01_JPRB,9.7851E-01_JPRB,1.0060E+00_JPRB/)  
+KBO( :,14, 8) = (/&
+ & 8.5246E-01_JPRB,8.7119E-01_JPRB,8.8993E-01_JPRB,9.0965E-01_JPRB,9.3087E-01_JPRB/)  
+KBO( :,15, 8) = (/&
+ & 8.0357E-01_JPRB,8.1893E-01_JPRB,8.3481E-01_JPRB,8.5136E-01_JPRB,8.6824E-01_JPRB/)  
+KBO( :,16, 8) = (/&
+ & 7.6497E-01_JPRB,7.7909E-01_JPRB,7.9306E-01_JPRB,8.0699E-01_JPRB,8.2094E-01_JPRB/)  
+KBO( :,17, 8) = (/&
+ & 7.2426E-01_JPRB,7.3747E-01_JPRB,7.4973E-01_JPRB,7.6144E-01_JPRB,7.7249E-01_JPRB/)  
+KBO( :,18, 8) = (/&
+ & 6.8011E-01_JPRB,6.9229E-01_JPRB,7.0291E-01_JPRB,7.1244E-01_JPRB,7.2174E-01_JPRB/)  
+KBO( :,19, 8) = (/&
+ & 6.2929E-01_JPRB,6.4006E-01_JPRB,6.4901E-01_JPRB,6.5727E-01_JPRB,6.6513E-01_JPRB/)  
+KBO( :,20, 8) = (/&
+ & 5.7567E-01_JPRB,5.8515E-01_JPRB,5.9318E-01_JPRB,6.0058E-01_JPRB,6.0766E-01_JPRB/)  
+KBO( :,21, 8) = (/&
+ & 5.1892E-01_JPRB,5.2717E-01_JPRB,5.3431E-01_JPRB,5.4099E-01_JPRB,5.4743E-01_JPRB/)  
+KBO( :,22, 8) = (/&
+ & 4.6089E-01_JPRB,4.6796E-01_JPRB,4.7423E-01_JPRB,4.8007E-01_JPRB,4.8563E-01_JPRB/)  
+KBO( :,23, 8) = (/&
+ & 4.0358E-01_JPRB,4.0957E-01_JPRB,4.1496E-01_JPRB,4.1964E-01_JPRB,4.2400E-01_JPRB/)  
+KBO( :,24, 8) = (/&
+ & 3.4857E-01_JPRB,3.5354E-01_JPRB,3.5772E-01_JPRB,3.6116E-01_JPRB,3.6425E-01_JPRB/)  
+KBO( :,25, 8) = (/&
+ & 2.9819E-01_JPRB,3.0212E-01_JPRB,3.0511E-01_JPRB,3.0743E-01_JPRB,3.0973E-01_JPRB/)  
+KBO( :,26, 8) = (/&
+ & 2.5341E-01_JPRB,2.5614E-01_JPRB,2.5815E-01_JPRB,2.5994E-01_JPRB,2.6173E-01_JPRB/)  
+KBO( :,27, 8) = (/&
+ & 2.1391E-01_JPRB,2.1577E-01_JPRB,2.1730E-01_JPRB,2.1901E-01_JPRB,2.2050E-01_JPRB/)  
+KBO( :,28, 8) = (/&
+ & 1.7949E-01_JPRB,1.8088E-01_JPRB,1.8241E-01_JPRB,1.8396E-01_JPRB,1.8539E-01_JPRB/)  
+KBO( :,29, 8) = (/&
+ & 1.5049E-01_JPRB,1.5188E-01_JPRB,1.5349E-01_JPRB,1.5504E-01_JPRB,1.5657E-01_JPRB/)  
+KBO( :,30, 8) = (/&
+ & 1.2605E-01_JPRB,1.2767E-01_JPRB,1.2921E-01_JPRB,1.3083E-01_JPRB,1.3263E-01_JPRB/)  
+KBO( :,31, 8) = (/&
+ & 1.0607E-01_JPRB,1.0765E-01_JPRB,1.0930E-01_JPRB,1.1112E-01_JPRB,1.1342E-01_JPRB/)  
+KBO( :,32, 8) = (/&
+ & 8.9368E-02_JPRB,9.1008E-02_JPRB,9.2774E-02_JPRB,9.4981E-02_JPRB,9.7872E-02_JPRB/)  
+KBO( :,33, 8) = (/&
+ & 7.5524E-02_JPRB,7.7232E-02_JPRB,7.9299E-02_JPRB,8.2001E-02_JPRB,8.5510E-02_JPRB/)  
+KBO( :,34, 8) = (/&
+ & 6.3951E-02_JPRB,6.5799E-02_JPRB,6.8200E-02_JPRB,7.1324E-02_JPRB,7.5176E-02_JPRB/)  
+KBO( :,35, 8) = (/&
+ & 5.4154E-02_JPRB,5.6182E-02_JPRB,5.8823E-02_JPRB,6.2186E-02_JPRB,6.6087E-02_JPRB/)  
+KBO( :,36, 8) = (/&
+ & 4.5779E-02_JPRB,4.7854E-02_JPRB,5.0601E-02_JPRB,5.3968E-02_JPRB,5.7802E-02_JPRB/)  
+KBO( :,37, 8) = (/&
+ & 3.8721E-02_JPRB,4.0789E-02_JPRB,4.3532E-02_JPRB,4.6821E-02_JPRB,5.0588E-02_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB8:PART4',1,ZHOOK_HANDLE)
+END SUBROUTINE PART4
+
+
+SUBROUTINE PART5
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB8:PART5',0,ZHOOK_HANDLE)
+
+
+KBO( :,38, 8) = (/&
+ & 3.2891E-02_JPRB,3.4951E-02_JPRB,3.7677E-02_JPRB,4.0901E-02_JPRB,4.4641E-02_JPRB/)  
+KBO( :,39, 8) = (/&
+ & 2.8118E-02_JPRB,3.0183E-02_JPRB,3.2884E-02_JPRB,3.6081E-02_JPRB,3.9837E-02_JPRB/)  
+KBO( :,40, 8) = (/&
+ & 2.3847E-02_JPRB,2.5787E-02_JPRB,2.8347E-02_JPRB,3.1459E-02_JPRB,3.5061E-02_JPRB/)  
+KBO( :,41, 8) = (/&
+ & 2.0268E-02_JPRB,2.2079E-02_JPRB,2.4495E-02_JPRB,2.7477E-02_JPRB,3.0979E-02_JPRB/)  
+KBO( :,42, 8) = (/&
+ & 1.7304E-02_JPRB,1.9004E-02_JPRB,2.1294E-02_JPRB,2.4161E-02_JPRB,2.7579E-02_JPRB/)  
+KBO( :,43, 8) = (/&
+ & 1.4797E-02_JPRB,1.6382E-02_JPRB,1.8537E-02_JPRB,2.1286E-02_JPRB,2.4610E-02_JPRB/)  
+KBO( :,44, 8) = (/&
+ & 1.2690E-02_JPRB,1.4182E-02_JPRB,1.6231E-02_JPRB,1.8878E-02_JPRB,2.2106E-02_JPRB/)  
+KBO( :,45, 8) = (/&
+ & 1.0930E-02_JPRB,1.2370E-02_JPRB,1.4353E-02_JPRB,1.6936E-02_JPRB,2.0100E-02_JPRB/)  
+KBO( :,46, 8) = (/&
+ & 9.3910E-03_JPRB,1.0819E-02_JPRB,1.2738E-02_JPRB,1.5273E-02_JPRB,1.8465E-02_JPRB/)  
+KBO( :,47, 8) = (/&
+ & 7.9861E-03_JPRB,9.3365E-03_JPRB,1.1203E-02_JPRB,1.3684E-02_JPRB,1.6817E-02_JPRB/)  
+KBO( :,48, 8) = (/&
+ & 6.8013E-03_JPRB,8.0839E-03_JPRB,9.9438E-03_JPRB,1.2411E-02_JPRB,1.5563E-02_JPRB/)  
+KBO( :,49, 8) = (/&
+ & 5.8190E-03_JPRB,7.0513E-03_JPRB,8.8856E-03_JPRB,1.1416E-02_JPRB,1.4708E-02_JPRB/)  
+KBO( :,50, 8) = (/&
+ & 4.9304E-03_JPRB,6.0739E-03_JPRB,7.8186E-03_JPRB,1.0316E-02_JPRB,1.3667E-02_JPRB/)  
+KBO( :,51, 8) = (/&
+ & 4.1610E-03_JPRB,5.1921E-03_JPRB,6.8130E-03_JPRB,9.2232E-03_JPRB,1.2553E-02_JPRB/)  
+KBO( :,52, 8) = (/&
+ & 3.5138E-03_JPRB,4.4587E-03_JPRB,5.9783E-03_JPRB,8.3075E-03_JPRB,1.1637E-02_JPRB/)  
+KBO( :,53, 8) = (/&
+ & 2.9769E-03_JPRB,3.8545E-03_JPRB,5.3084E-03_JPRB,7.5851E-03_JPRB,1.0949E-02_JPRB/)  
+KBO( :,54, 8) = (/&
+ & 2.4427E-03_JPRB,3.1932E-03_JPRB,4.4660E-03_JPRB,6.5058E-03_JPRB,9.6124E-03_JPRB/)  
+KBO( :,55, 8) = (/&
+ & 1.9622E-03_JPRB,2.5690E-03_JPRB,3.6206E-03_JPRB,5.3411E-03_JPRB,8.0479E-03_JPRB/)  
+KBO( :,56, 8) = (/&
+ & 1.5709E-03_JPRB,2.0592E-03_JPRB,2.9210E-03_JPRB,4.3945E-03_JPRB,6.6922E-03_JPRB/)  
+KBO( :,57, 8) = (/&
+ & 1.2535E-03_JPRB,1.6436E-03_JPRB,2.3438E-03_JPRB,3.5705E-03_JPRB,5.5260E-03_JPRB/)  
+KBO( :,58, 8) = (/&
+ & 9.9517E-04_JPRB,1.3029E-03_JPRB,1.8612E-03_JPRB,2.8649E-03_JPRB,4.4948E-03_JPRB/)  
+KBO( :,59, 8) = (/&
+ & 7.8554E-04_JPRB,1.0228E-03_JPRB,1.4402E-03_JPRB,2.2044E-03_JPRB,3.4577E-03_JPRB/)  
+KBO( :, 7, 9) = (/&
+ & 8.6167E+00_JPRB,9.9993E+00_JPRB,1.1774E+01_JPRB,1.3928E+01_JPRB,1.6806E+01_JPRB/)  
+KBO( :, 8, 9) = (/&
+ & 4.6456E+00_JPRB,5.1596E+00_JPRB,5.8731E+00_JPRB,6.7813E+00_JPRB,7.8273E+00_JPRB/)  
+KBO( :, 9, 9) = (/&
+ & 2.8817E+00_JPRB,2.9866E+00_JPRB,3.1829E+00_JPRB,3.4539E+00_JPRB,3.7883E+00_JPRB/)  
+KBO( :,10, 9) = (/&
+ & 2.1848E+00_JPRB,2.2145E+00_JPRB,2.2894E+00_JPRB,2.3929E+00_JPRB,2.5188E+00_JPRB/)  
+KBO( :,11, 9) = (/&
+ & 1.8617E+00_JPRB,1.8904E+00_JPRB,1.9482E+00_JPRB,2.0265E+00_JPRB,2.1151E+00_JPRB/)  
+KBO( :,12, 9) = (/&
+ & 1.7740E+00_JPRB,1.8058E+00_JPRB,1.8594E+00_JPRB,1.9279E+00_JPRB,2.0057E+00_JPRB/)  
+KBO( :,13, 9) = (/&
+ & 1.7170E+00_JPRB,1.7519E+00_JPRB,1.8033E+00_JPRB,1.8660E+00_JPRB,1.9366E+00_JPRB/)  
+KBO( :,14, 9) = (/&
+ & 1.6290E+00_JPRB,1.6661E+00_JPRB,1.7138E+00_JPRB,1.7672E+00_JPRB,1.8242E+00_JPRB/)  
+KBO( :,15, 9) = (/&
+ & 1.6136E+00_JPRB,1.6519E+00_JPRB,1.6950E+00_JPRB,1.7410E+00_JPRB,1.7875E+00_JPRB/)  
+KBO( :,16, 9) = (/&
+ & 1.6442E+00_JPRB,1.6834E+00_JPRB,1.7244E+00_JPRB,1.7672E+00_JPRB,1.8100E+00_JPRB/)  
+KBO( :,17, 9) = (/&
+ & 1.6931E+00_JPRB,1.7318E+00_JPRB,1.7716E+00_JPRB,1.8124E+00_JPRB,1.8535E+00_JPRB/)  
+KBO( :,18, 9) = (/&
+ & 1.7458E+00_JPRB,1.7837E+00_JPRB,1.8217E+00_JPRB,1.8608E+00_JPRB,1.8986E+00_JPRB/)  
+KBO( :,19, 9) = (/&
+ & 1.7845E+00_JPRB,1.8215E+00_JPRB,1.8581E+00_JPRB,1.8942E+00_JPRB,1.9287E+00_JPRB/)  
+KBO( :,20, 9) = (/&
+ & 1.8060E+00_JPRB,1.8426E+00_JPRB,1.8782E+00_JPRB,1.9127E+00_JPRB,1.9453E+00_JPRB/)  
+KBO( :,21, 9) = (/&
+ & 1.8043E+00_JPRB,1.8411E+00_JPRB,1.8774E+00_JPRB,1.9117E+00_JPRB,1.9436E+00_JPRB/)  
+KBO( :,22, 9) = (/&
+ & 1.7831E+00_JPRB,1.8215E+00_JPRB,1.8592E+00_JPRB,1.8938E+00_JPRB,1.9262E+00_JPRB/)  
+KBO( :,23, 9) = (/&
+ & 1.7432E+00_JPRB,1.7837E+00_JPRB,1.8229E+00_JPRB,1.8594E+00_JPRB,1.8938E+00_JPRB/)  
+KBO( :,24, 9) = (/&
+ & 1.6875E+00_JPRB,1.7308E+00_JPRB,1.7727E+00_JPRB,1.8123E+00_JPRB,1.8497E+00_JPRB/)  
+KBO( :,25, 9) = (/&
+ & 1.6225E+00_JPRB,1.6694E+00_JPRB,1.7148E+00_JPRB,1.7578E+00_JPRB,1.7985E+00_JPRB/)  
+KBO( :,26, 9) = (/&
+ & 1.5531E+00_JPRB,1.6049E+00_JPRB,1.6541E+00_JPRB,1.7008E+00_JPRB,1.7454E+00_JPRB/)  
+KBO( :,27, 9) = (/&
+ & 1.4838E+00_JPRB,1.5403E+00_JPRB,1.5937E+00_JPRB,1.6447E+00_JPRB,1.6935E+00_JPRB/)  
+KBO( :,28, 9) = (/&
+ & 1.4175E+00_JPRB,1.4786E+00_JPRB,1.5364E+00_JPRB,1.5921E+00_JPRB,1.6457E+00_JPRB/)  
+KBO( :,29, 9) = (/&
+ & 1.3581E+00_JPRB,1.4237E+00_JPRB,1.4868E+00_JPRB,1.5478E+00_JPRB,1.6068E+00_JPRB/)  
+KBO( :,30, 9) = (/&
+ & 1.3065E+00_JPRB,1.3770E+00_JPRB,1.4457E+00_JPRB,1.5119E+00_JPRB,1.5768E+00_JPRB/)  
+KBO( :,31, 9) = (/&
+ & 1.2654E+00_JPRB,1.3417E+00_JPRB,1.4156E+00_JPRB,1.4877E+00_JPRB,1.5592E+00_JPRB/)  
+KBO( :,32, 9) = (/&
+ & 1.2347E+00_JPRB,1.3163E+00_JPRB,1.3958E+00_JPRB,1.4744E+00_JPRB,1.5534E+00_JPRB/)  
+KBO( :,33, 9) = (/&
+ & 1.2142E+00_JPRB,1.3012E+00_JPRB,1.3868E+00_JPRB,1.4727E+00_JPRB,1.5601E+00_JPRB/)  
+KBO( :,34, 9) = (/&
+ & 1.1993E+00_JPRB,1.2916E+00_JPRB,1.3831E+00_JPRB,1.4762E+00_JPRB,1.5688E+00_JPRB/)  
+KBO( :,35, 9) = (/&
+ & 1.1833E+00_JPRB,1.2807E+00_JPRB,1.3785E+00_JPRB,1.4785E+00_JPRB,1.5752E+00_JPRB/)  
+KBO( :,36, 9) = (/&
+ & 1.1625E+00_JPRB,1.2651E+00_JPRB,1.3689E+00_JPRB,1.4743E+00_JPRB,1.5754E+00_JPRB/)  
+KBO( :,37, 9) = (/&
+ & 1.1303E+00_JPRB,1.2371E+00_JPRB,1.3460E+00_JPRB,1.4555E+00_JPRB,1.5610E+00_JPRB/)  
+KBO( :,38, 9) = (/&
+ & 1.1009E+00_JPRB,1.2122E+00_JPRB,1.3263E+00_JPRB,1.4399E+00_JPRB,1.5500E+00_JPRB/)  
+KBO( :,39, 9) = (/&
+ & 1.0754E+00_JPRB,1.1914E+00_JPRB,1.3110E+00_JPRB,1.4289E+00_JPRB,1.5440E+00_JPRB/)  
+KBO( :,40, 9) = (/&
+ & 1.0372E+00_JPRB,1.1560E+00_JPRB,1.2790E+00_JPRB,1.4000E+00_JPRB,1.5190E+00_JPRB/)  
+KBO( :,41, 9) = (/&
+ & 9.9871E-01_JPRB,1.1200E+00_JPRB,1.2460E+00_JPRB,1.3704E+00_JPRB,1.4926E+00_JPRB/)  
+KBO( :,42, 9) = (/&
+ & 9.6171E-01_JPRB,1.0854E+00_JPRB,1.2142E+00_JPRB,1.3421E+00_JPRB,1.4677E+00_JPRB/)  
+KBO( :,43, 9) = (/&
+ & 9.1903E-01_JPRB,1.0445E+00_JPRB,1.1757E+00_JPRB,1.3075E+00_JPRB,1.4366E+00_JPRB/)  
+KBO( :,44, 9) = (/&
+ & 8.7442E-01_JPRB,1.0015E+00_JPRB,1.1348E+00_JPRB,1.2703E+00_JPRB,1.4033E+00_JPRB/)  
+KBO( :,45, 9) = (/&
+ & 8.3107E-01_JPRB,9.5973E-01_JPRB,1.0952E+00_JPRB,1.2344E+00_JPRB,1.3716E+00_JPRB/)  
+KBO( :,46, 9) = (/&
+ & 7.8543E-01_JPRB,9.1559E-01_JPRB,1.0528E+00_JPRB,1.1955E+00_JPRB,1.3366E+00_JPRB/)  
+KBO( :,47, 9) = (/&
+ & 7.3439E-01_JPRB,8.6539E-01_JPRB,1.0031E+00_JPRB,1.1485E+00_JPRB,1.2936E+00_JPRB/)  
+KBO( :,48, 9) = (/&
+ & 6.8465E-01_JPRB,8.1643E-01_JPRB,9.5503E-01_JPRB,1.1032E+00_JPRB,1.2524E+00_JPRB/)  
+KBO( :,49, 9) = (/&
+ & 6.3687E-01_JPRB,7.6933E-01_JPRB,9.0975E-01_JPRB,1.0608E+00_JPRB,1.2144E+00_JPRB/)  
+KBO( :,50, 9) = (/&
+ & 5.9153E-01_JPRB,7.2348E-01_JPRB,8.6434E-01_JPRB,1.0167E+00_JPRB,1.1731E+00_JPRB/)  
+KBO( :,51, 9) = (/&
+ & 5.4771E-01_JPRB,6.7868E-01_JPRB,8.1882E-01_JPRB,9.7145E-01_JPRB,1.1300E+00_JPRB/)  
+KBO( :,52, 9) = (/&
+ & 5.0614E-01_JPRB,6.3574E-01_JPRB,7.7544E-01_JPRB,9.2863E-01_JPRB,1.0894E+00_JPRB/)  
+KBO( :,53, 9) = (/&
+ & 4.6783E-01_JPRB,5.9578E-01_JPRB,7.3527E-01_JPRB,8.8939E-01_JPRB,1.0528E+00_JPRB/)  
+KBO( :,54, 9) = (/&
+ & 4.2858E-01_JPRB,5.5309E-01_JPRB,6.8975E-01_JPRB,8.4016E-01_JPRB,1.0034E+00_JPRB/)  
+KBO( :,55, 9) = (/&
+ & 3.8876E-01_JPRB,5.0900E-01_JPRB,6.4137E-01_JPRB,7.8611E-01_JPRB,9.4586E-01_JPRB/)  
+KBO( :,56, 9) = (/&
+ & 3.5092E-01_JPRB,4.6656E-01_JPRB,5.9498E-01_JPRB,7.3470E-01_JPRB,8.8954E-01_JPRB/)  
+KBO( :,57, 9) = (/&
+ & 3.1483E-01_JPRB,4.2575E-01_JPRB,5.4997E-01_JPRB,6.8552E-01_JPRB,8.3410E-01_JPRB/)  
+KBO( :,58, 9) = (/&
+ & 2.8132E-01_JPRB,3.8740E-01_JPRB,5.0731E-01_JPRB,6.3876E-01_JPRB,7.8141E-01_JPRB/)  
+KBO( :,59, 9) = (/&
+ & 2.6003E-01_JPRB,3.6342E-01_JPRB,4.7940E-01_JPRB,6.0625E-01_JPRB,7.4174E-01_JPRB/)  
+KBO( :, 7,10) = (/&
+ & 1.5697E+01_JPRB,1.7679E+01_JPRB,2.1528E+01_JPRB,3.0021E+01_JPRB,4.1007E+01_JPRB/)  
+KBO( :, 8,10) = (/&
+ & 9.2952E+00_JPRB,1.0046E+01_JPRB,1.1296E+01_JPRB,1.2956E+01_JPRB,1.5022E+01_JPRB/)  
+KBO( :, 9,10) = (/&
+ & 6.0955E+00_JPRB,6.1520E+00_JPRB,6.4442E+00_JPRB,6.9113E+00_JPRB,7.6410E+00_JPRB/)  
+KBO( :,10,10) = (/&
+ & 4.2479E+00_JPRB,4.2558E+00_JPRB,4.3823E+00_JPRB,4.5849E+00_JPRB,4.8443E+00_JPRB/)  
+KBO( :,11,10) = (/&
+ & 3.5882E+00_JPRB,3.5777E+00_JPRB,3.6465E+00_JPRB,3.7844E+00_JPRB,3.9918E+00_JPRB/)  
+KBO( :,12,10) = (/&
+ & 3.3077E+00_JPRB,3.3279E+00_JPRB,3.4118E+00_JPRB,3.5356E+00_JPRB,3.6964E+00_JPRB/)  
+KBO( :,13,10) = (/&
+ & 3.1132E+00_JPRB,3.1610E+00_JPRB,3.2411E+00_JPRB,3.3566E+00_JPRB,3.4933E+00_JPRB/)  
+KBO( :,14,10) = (/&
+ & 2.6876E+00_JPRB,2.7279E+00_JPRB,2.7858E+00_JPRB,2.8724E+00_JPRB,2.9756E+00_JPRB/)  
+KBO( :,15,10) = (/&
+ & 2.5898E+00_JPRB,2.6527E+00_JPRB,2.7165E+00_JPRB,2.7974E+00_JPRB,2.8915E+00_JPRB/)  
+KBO( :,16,10) = (/&
+ & 2.7402E+00_JPRB,2.8161E+00_JPRB,2.8979E+00_JPRB,2.9945E+00_JPRB,3.0907E+00_JPRB/)  
+KBO( :,17,10) = (/&
+ & 2.9795E+00_JPRB,3.0670E+00_JPRB,3.1571E+00_JPRB,3.2540E+00_JPRB,3.3473E+00_JPRB/)  
+KBO( :,18,10) = (/&
+ & 3.2307E+00_JPRB,3.3198E+00_JPRB,3.4108E+00_JPRB,3.5052E+00_JPRB,3.6016E+00_JPRB/)  
+KBO( :,19,10) = (/&
+ & 3.4826E+00_JPRB,3.5697E+00_JPRB,3.6620E+00_JPRB,3.7547E+00_JPRB,3.8494E+00_JPRB/)  
+KBO( :,20,10) = (/&
+ & 3.7406E+00_JPRB,3.8282E+00_JPRB,3.9146E+00_JPRB,4.0064E+00_JPRB,4.0952E+00_JPRB/)  
+KBO( :,21,10) = (/&
+ & 4.0052E+00_JPRB,4.0906E+00_JPRB,4.1674E+00_JPRB,4.2500E+00_JPRB,4.3292E+00_JPRB/)  
+KBO( :,22,10) = (/&
+ & 4.2533E+00_JPRB,4.3366E+00_JPRB,4.4069E+00_JPRB,4.4888E+00_JPRB,4.5601E+00_JPRB/)  
+KBO( :,23,10) = (/&
+ & 4.4651E+00_JPRB,4.5450E+00_JPRB,4.6244E+00_JPRB,4.7038E+00_JPRB,4.7723E+00_JPRB/)  
+KBO( :,24,10) = (/&
+ & 4.6357E+00_JPRB,4.7250E+00_JPRB,4.8121E+00_JPRB,4.8897E+00_JPRB,4.9609E+00_JPRB/)  
+KBO( :,25,10) = (/&
+ & 4.7760E+00_JPRB,4.8704E+00_JPRB,4.9689E+00_JPRB,5.0528E+00_JPRB,5.1275E+00_JPRB/)  
+KBO( :,26,10) = (/&
+ & 4.8874E+00_JPRB,4.9911E+00_JPRB,5.1002E+00_JPRB,5.1918E+00_JPRB,5.2692E+00_JPRB/)  
+KBO( :,27,10) = (/&
+ & 4.9748E+00_JPRB,5.0953E+00_JPRB,5.2124E+00_JPRB,5.3083E+00_JPRB,5.3926E+00_JPRB/)  
+KBO( :,28,10) = (/&
+ & 5.0502E+00_JPRB,5.1884E+00_JPRB,5.3119E+00_JPRB,5.4148E+00_JPRB,5.5003E+00_JPRB/)  
+KBO( :,29,10) = (/&
+ & 5.1279E+00_JPRB,5.2762E+00_JPRB,5.4025E+00_JPRB,5.5131E+00_JPRB,5.6036E+00_JPRB/)  
+KBO( :,30,10) = (/&
+ & 5.2044E+00_JPRB,5.3581E+00_JPRB,5.4889E+00_JPRB,5.6058E+00_JPRB,5.6994E+00_JPRB/)  
+KBO( :,31,10) = (/&
+ & 5.2832E+00_JPRB,5.4378E+00_JPRB,5.5764E+00_JPRB,5.6975E+00_JPRB,5.7881E+00_JPRB/)  
+KBO( :,32,10) = (/&
+ & 5.3589E+00_JPRB,5.5221E+00_JPRB,5.6642E+00_JPRB,5.7794E+00_JPRB,5.8684E+00_JPRB/)  
+KBO( :,33,10) = (/&
+ & 5.4422E+00_JPRB,5.6051E+00_JPRB,5.7472E+00_JPRB,5.8589E+00_JPRB,5.9492E+00_JPRB/)  
+KBO( :,34,10) = (/&
+ & 5.5143E+00_JPRB,5.6758E+00_JPRB,5.8184E+00_JPRB,5.9324E+00_JPRB,6.0581E+00_JPRB/)  
+KBO( :,35,10) = (/&
+ & 5.5663E+00_JPRB,5.7307E+00_JPRB,5.8759E+00_JPRB,6.0007E+00_JPRB,6.1676E+00_JPRB/)  
+KBO( :,36,10) = (/&
+ & 5.5957E+00_JPRB,5.7658E+00_JPRB,5.9172E+00_JPRB,6.0677E+00_JPRB,6.2475E+00_JPRB/)  
+KBO( :,37,10) = (/&
+ & 5.5911E+00_JPRB,5.7698E+00_JPRB,5.9275E+00_JPRB,6.1033E+00_JPRB,6.2899E+00_JPRB/)  
+KBO( :,38,10) = (/&
+ & 5.5847E+00_JPRB,5.7702E+00_JPRB,5.9359E+00_JPRB,6.1377E+00_JPRB,6.3291E+00_JPRB/)  
+KBO( :,39,10) = (/&
+ & 5.5785E+00_JPRB,5.7701E+00_JPRB,5.9474E+00_JPRB,6.1752E+00_JPRB,6.3726E+00_JPRB/)  
+KBO( :,40,10) = (/&
+ & 5.5411E+00_JPRB,5.7435E+00_JPRB,5.9235E+00_JPRB,6.1610E+00_JPRB,6.3723E+00_JPRB/)  
+KBO( :,41,10) = (/&
+ & 5.4950E+00_JPRB,5.7121E+00_JPRB,5.8935E+00_JPRB,6.1377E+00_JPRB,6.3632E+00_JPRB/)  
+KBO( :,42,10) = (/&
+ & 5.4435E+00_JPRB,5.6770E+00_JPRB,5.8638E+00_JPRB,6.1135E+00_JPRB,6.3531E+00_JPRB/)  
+KBO( :,43,10) = (/&
+ & 5.3711E+00_JPRB,5.6253E+00_JPRB,5.8214E+00_JPRB,6.0734E+00_JPRB,6.3283E+00_JPRB/)  
+KBO( :,44,10) = (/&
+ & 5.2841E+00_JPRB,5.5611E+00_JPRB,5.7743E+00_JPRB,6.0249E+00_JPRB,6.2949E+00_JPRB/)  
+KBO( :,45,10) = (/&
+ & 5.1898E+00_JPRB,5.4904E+00_JPRB,5.7247E+00_JPRB,5.9791E+00_JPRB,6.2621E+00_JPRB/)  
+KBO( :,46,10) = (/&
+ & 5.0867E+00_JPRB,5.4031E+00_JPRB,5.6642E+00_JPRB,5.9247E+00_JPRB,6.2201E+00_JPRB/)  
+KBO( :,47,10) = (/&
+ & 4.9588E+00_JPRB,5.2939E+00_JPRB,5.5834E+00_JPRB,5.8490E+00_JPRB,6.1549E+00_JPRB/)  
+KBO( :,48,10) = (/&
+ & 4.8216E+00_JPRB,5.1792E+00_JPRB,5.4914E+00_JPRB,5.7730E+00_JPRB,6.0921E+00_JPRB/)  
+KBO( :,49,10) = (/&
+ & 4.6738E+00_JPRB,5.0604E+00_JPRB,5.3912E+00_JPRB,5.6961E+00_JPRB,6.0396E+00_JPRB/)  
+KBO( :,50,10) = (/&
+ & 4.5187E+00_JPRB,4.9359E+00_JPRB,5.2845E+00_JPRB,5.6050E+00_JPRB,5.9698E+00_JPRB/)  
+KBO( :,51,10) = (/&
+ & 4.3577E+00_JPRB,4.8020E+00_JPRB,5.1743E+00_JPRB,5.5057E+00_JPRB,5.8886E+00_JPRB/)  
+KBO( :,52,10) = (/&
+ & 4.1875E+00_JPRB,4.6601E+00_JPRB,5.0599E+00_JPRB,5.4039E+00_JPRB,5.8085E+00_JPRB/)  
+KBO( :,53,10) = (/&
+ & 4.0066E+00_JPRB,4.5088E+00_JPRB,4.9396E+00_JPRB,5.3035E+00_JPRB,5.7324E+00_JPRB/)  
+KBO( :,54,10) = (/&
+ & 3.8264E+00_JPRB,4.3529E+00_JPRB,4.8099E+00_JPRB,5.1931E+00_JPRB,5.6043E+00_JPRB/)  
+KBO( :,55,10) = (/&
+ & 3.6414E+00_JPRB,4.1888E+00_JPRB,4.6681E+00_JPRB,5.0739E+00_JPRB,5.4467E+00_JPRB/)  
+KBO( :,56,10) = (/&
+ & 3.4467E+00_JPRB,4.0187E+00_JPRB,4.5175E+00_JPRB,4.9476E+00_JPRB,5.3119E+00_JPRB/)  
+KBO( :,57,10) = (/&
+ & 3.2449E+00_JPRB,3.8431E+00_JPRB,4.3635E+00_JPRB,4.8167E+00_JPRB,5.1973E+00_JPRB/)  
+KBO( :,58,10) = (/&
+ & 3.0504E+00_JPRB,3.6676E+00_JPRB,4.2101E+00_JPRB,4.6788E+00_JPRB,5.0833E+00_JPRB/)  
+KBO( :,59,10) = (/&
+ & 2.9706E+00_JPRB,3.5768E+00_JPRB,4.1308E+00_JPRB,4.6019E+00_JPRB,5.0071E+00_JPRB/)  
+KBO( :, 7,11) = (/&
+ & 1.7920E+01_JPRB,2.1641E+01_JPRB,2.9884E+01_JPRB,4.1982E+01_JPRB,5.8086E+01_JPRB/)  
+KBO( :, 8,11) = (/&
+ & 1.1126E+01_JPRB,1.2099E+01_JPRB,1.3449E+01_JPRB,1.5213E+01_JPRB,1.8753E+01_JPRB/)  
+KBO( :, 9,11) = (/&
+ & 7.7621E+00_JPRB,7.7863E+00_JPRB,8.0891E+00_JPRB,8.6591E+00_JPRB,9.4525E+00_JPRB/)  
+KBO( :,10,11) = (/&
+ & 5.3764E+00_JPRB,5.3165E+00_JPRB,5.3549E+00_JPRB,5.6476E+00_JPRB,6.0580E+00_JPRB/)  
+KBO( :,11,11) = (/&
+ & 4.4238E+00_JPRB,4.4268E+00_JPRB,4.4710E+00_JPRB,4.6447E+00_JPRB,4.9156E+00_JPRB/)  
+KBO( :,12,11) = (/&
+ & 4.1742E+00_JPRB,4.1694E+00_JPRB,4.2134E+00_JPRB,4.3731E+00_JPRB,4.5989E+00_JPRB/)  
+KBO( :,13,11) = (/&
+ & 3.8539E+00_JPRB,3.8850E+00_JPRB,3.9664E+00_JPRB,4.1051E+00_JPRB,4.2861E+00_JPRB/)  
+KBO( :,14,11) = (/&
+ & 3.3455E+00_JPRB,3.3983E+00_JPRB,3.4591E+00_JPRB,3.5679E+00_JPRB,3.6998E+00_JPRB/)  
+KBO( :,15,11) = (/&
+ & 3.0374E+00_JPRB,3.0982E+00_JPRB,3.1712E+00_JPRB,3.2728E+00_JPRB,3.3905E+00_JPRB/)  
+KBO( :,16,11) = (/&
+ & 3.2400E+00_JPRB,3.3230E+00_JPRB,3.4115E+00_JPRB,3.5107E+00_JPRB,3.6327E+00_JPRB/)  
+KBO( :,17,11) = (/&
+ & 3.5796E+00_JPRB,3.6714E+00_JPRB,3.7619E+00_JPRB,3.8672E+00_JPRB,3.9895E+00_JPRB/)  
+KBO( :,18,11) = (/&
+ & 3.9339E+00_JPRB,4.0372E+00_JPRB,4.1451E+00_JPRB,4.2637E+00_JPRB,4.3878E+00_JPRB/)  
+KBO( :,19,11) = (/&
+ & 4.3003E+00_JPRB,4.4193E+00_JPRB,4.5347E+00_JPRB,4.6623E+00_JPRB,4.7825E+00_JPRB/)  
+KBO( :,20,11) = (/&
+ & 4.6837E+00_JPRB,4.8067E+00_JPRB,4.9249E+00_JPRB,5.0479E+00_JPRB,5.1713E+00_JPRB/)  
+KBO( :,21,11) = (/&
+ & 5.0626E+00_JPRB,5.1843E+00_JPRB,5.2993E+00_JPRB,5.4194E+00_JPRB,5.5447E+00_JPRB/)  
+KBO( :,22,11) = (/&
+ & 5.4464E+00_JPRB,5.5600E+00_JPRB,5.6663E+00_JPRB,5.7827E+00_JPRB,5.9026E+00_JPRB/)  
+KBO( :,23,11) = (/&
+ & 5.8230E+00_JPRB,5.9290E+00_JPRB,6.0201E+00_JPRB,6.1295E+00_JPRB,6.2404E+00_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB8:PART5',1,ZHOOK_HANDLE)
+END SUBROUTINE PART5
+
+
+SUBROUTINE PART6
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB8:PART6',0,ZHOOK_HANDLE)
+
+
+KBO( :,24,11) = (/&
+ & 6.1873E+00_JPRB,6.2763E+00_JPRB,6.3564E+00_JPRB,6.4571E+00_JPRB,6.5535E+00_JPRB/)  
+KBO( :,25,11) = (/&
+ & 6.5161E+00_JPRB,6.5971E+00_JPRB,6.6674E+00_JPRB,6.7623E+00_JPRB,6.8469E+00_JPRB/)  
+KBO( :,26,11) = (/&
+ & 6.8093E+00_JPRB,6.8834E+00_JPRB,6.9596E+00_JPRB,7.0463E+00_JPRB,7.1184E+00_JPRB/)  
+KBO( :,27,11) = (/&
+ & 7.0690E+00_JPRB,7.1424E+00_JPRB,7.2255E+00_JPRB,7.3026E+00_JPRB,7.3674E+00_JPRB/)  
+KBO( :,28,11) = (/&
+ & 7.2957E+00_JPRB,7.3779E+00_JPRB,7.4665E+00_JPRB,7.5315E+00_JPRB,7.5874E+00_JPRB/)  
+KBO( :,29,11) = (/&
+ & 7.4992E+00_JPRB,7.5961E+00_JPRB,7.6823E+00_JPRB,7.7381E+00_JPRB,7.7862E+00_JPRB/)  
+KBO( :,30,11) = (/&
+ & 7.6816E+00_JPRB,7.7926E+00_JPRB,7.8689E+00_JPRB,7.9230E+00_JPRB,7.9632E+00_JPRB/)  
+KBO( :,31,11) = (/&
+ & 7.8556E+00_JPRB,7.9647E+00_JPRB,8.0377E+00_JPRB,8.0903E+00_JPRB,8.1303E+00_JPRB/)  
+KBO( :,32,11) = (/&
+ & 8.0202E+00_JPRB,8.1171E+00_JPRB,8.1880E+00_JPRB,8.2406E+00_JPRB,8.2756E+00_JPRB/)  
+KBO( :,33,11) = (/&
+ & 8.1619E+00_JPRB,8.2627E+00_JPRB,8.3314E+00_JPRB,8.3764E+00_JPRB,8.4039E+00_JPRB/)  
+KBO( :,34,11) = (/&
+ & 8.2897E+00_JPRB,8.3916E+00_JPRB,8.4495E+00_JPRB,8.4834E+00_JPRB,8.5104E+00_JPRB/)  
+KBO( :,35,11) = (/&
+ & 8.3973E+00_JPRB,8.4969E+00_JPRB,8.5504E+00_JPRB,8.5788E+00_JPRB,8.6250E+00_JPRB/)  
+KBO( :,36,11) = (/&
+ & 8.4783E+00_JPRB,8.5783E+00_JPRB,8.6329E+00_JPRB,8.6663E+00_JPRB,8.7603E+00_JPRB/)  
+KBO( :,37,11) = (/&
+ & 8.5262E+00_JPRB,8.6348E+00_JPRB,8.6984E+00_JPRB,8.7369E+00_JPRB,8.8563E+00_JPRB/)  
+KBO( :,38,11) = (/&
+ & 8.5648E+00_JPRB,8.6833E+00_JPRB,8.7565E+00_JPRB,8.8061E+00_JPRB,8.9518E+00_JPRB/)  
+KBO( :,39,11) = (/&
+ & 8.5959E+00_JPRB,8.7278E+00_JPRB,8.8134E+00_JPRB,8.8823E+00_JPRB,9.0526E+00_JPRB/)  
+KBO( :,40,11) = (/&
+ & 8.5957E+00_JPRB,8.7419E+00_JPRB,8.8442E+00_JPRB,8.9192E+00_JPRB,9.0935E+00_JPRB/)  
+KBO( :,41,11) = (/&
+ & 8.5854E+00_JPRB,8.7451E+00_JPRB,8.8638E+00_JPRB,8.9464E+00_JPRB,9.1244E+00_JPRB/)  
+KBO( :,42,11) = (/&
+ & 8.5691E+00_JPRB,8.7426E+00_JPRB,8.8772E+00_JPRB,8.9702E+00_JPRB,9.1549E+00_JPRB/)  
+KBO( :,43,11) = (/&
+ & 8.5353E+00_JPRB,8.7238E+00_JPRB,8.8789E+00_JPRB,8.9815E+00_JPRB,9.1732E+00_JPRB/)  
+KBO( :,44,11) = (/&
+ & 8.4888E+00_JPRB,8.6962E+00_JPRB,8.8660E+00_JPRB,8.9836E+00_JPRB,9.1847E+00_JPRB/)  
+KBO( :,45,11) = (/&
+ & 8.4356E+00_JPRB,8.6623E+00_JPRB,8.8484E+00_JPRB,8.9837E+00_JPRB,9.1994E+00_JPRB/)  
+KBO( :,46,11) = (/&
+ & 8.3622E+00_JPRB,8.6149E+00_JPRB,8.8200E+00_JPRB,8.9745E+00_JPRB,9.2060E+00_JPRB/)  
+KBO( :,47,11) = (/&
+ & 8.2619E+00_JPRB,8.5445E+00_JPRB,8.7739E+00_JPRB,8.9475E+00_JPRB,9.1875E+00_JPRB/)  
+KBO( :,48,11) = (/&
+ & 8.1513E+00_JPRB,8.4680E+00_JPRB,8.7219E+00_JPRB,8.9176E+00_JPRB,9.1678E+00_JPRB/)  
+KBO( :,49,11) = (/&
+ & 8.0316E+00_JPRB,8.3787E+00_JPRB,8.6678E+00_JPRB,8.8862E+00_JPRB,9.1522E+00_JPRB/)  
+KBO( :,50,11) = (/&
+ & 7.8984E+00_JPRB,8.2757E+00_JPRB,8.5998E+00_JPRB,8.8430E+00_JPRB,9.1103E+00_JPRB/)  
+KBO( :,51,11) = (/&
+ & 7.7437E+00_JPRB,8.1650E+00_JPRB,8.5164E+00_JPRB,8.7904E+00_JPRB,9.0499E+00_JPRB/)  
+KBO( :,52,11) = (/&
+ & 7.5822E+00_JPRB,8.0442E+00_JPRB,8.4217E+00_JPRB,8.7308E+00_JPRB,8.9942E+00_JPRB/)  
+KBO( :,53,11) = (/&
+ & 7.4003E+00_JPRB,7.9114E+00_JPRB,8.3203E+00_JPRB,8.6646E+00_JPRB,8.9454E+00_JPRB/)  
+KBO( :,54,11) = (/&
+ & 7.2039E+00_JPRB,7.7594E+00_JPRB,8.2013E+00_JPRB,8.5703E+00_JPRB,8.8555E+00_JPRB/)  
+KBO( :,55,11) = (/&
+ & 6.9900E+00_JPRB,7.5960E+00_JPRB,8.0681E+00_JPRB,8.4581E+00_JPRB,8.7673E+00_JPRB/)  
+KBO( :,56,11) = (/&
+ & 6.7720E+00_JPRB,7.4183E+00_JPRB,7.9272E+00_JPRB,8.3307E+00_JPRB,8.6758E+00_JPRB/)  
+KBO( :,57,11) = (/&
+ & 6.5509E+00_JPRB,7.2181E+00_JPRB,7.7728E+00_JPRB,8.2049E+00_JPRB,8.5685E+00_JPRB/)  
+KBO( :,58,11) = (/&
+ & 6.3303E+00_JPRB,7.0170E+00_JPRB,7.6150E+00_JPRB,8.0806E+00_JPRB,8.4555E+00_JPRB/)  
+KBO( :,59,11) = (/&
+ & 6.2363E+00_JPRB,6.9228E+00_JPRB,7.5131E+00_JPRB,7.9939E+00_JPRB,8.3670E+00_JPRB/)  
+KBO( :, 7,12) = (/&
+ & 2.2304E+01_JPRB,3.2911E+01_JPRB,4.6319E+01_JPRB,6.2557E+01_JPRB,8.3356E+01_JPRB/)  
+KBO( :, 8,12) = (/&
+ & 1.3203E+01_JPRB,1.4115E+01_JPRB,1.5516E+01_JPRB,1.9088E+01_JPRB,2.6621E+01_JPRB/)  
+KBO( :, 9,12) = (/&
+ & 9.6210E+00_JPRB,9.7022E+00_JPRB,9.9693E+00_JPRB,1.0635E+01_JPRB,1.1509E+01_JPRB/)  
+KBO( :,10,12) = (/&
+ & 6.9200E+00_JPRB,6.8772E+00_JPRB,6.8479E+00_JPRB,7.1633E+00_JPRB,7.6773E+00_JPRB/)  
+KBO( :,11,12) = (/&
+ & 5.3676E+00_JPRB,5.4048E+00_JPRB,5.4687E+00_JPRB,5.6602E+00_JPRB,5.9583E+00_JPRB/)  
+KBO( :,12,12) = (/&
+ & 5.2136E+00_JPRB,5.2336E+00_JPRB,5.2831E+00_JPRB,5.4582E+00_JPRB,5.7388E+00_JPRB/)  
+KBO( :,13,12) = (/&
+ & 4.8924E+00_JPRB,4.9073E+00_JPRB,4.9522E+00_JPRB,5.1280E+00_JPRB,5.3932E+00_JPRB/)  
+KBO( :,14,12) = (/&
+ & 4.0853E+00_JPRB,4.1772E+00_JPRB,4.2731E+00_JPRB,4.4007E+00_JPRB,4.5816E+00_JPRB/)  
+KBO( :,15,12) = (/&
+ & 3.8900E+00_JPRB,3.9892E+00_JPRB,4.0771E+00_JPRB,4.2126E+00_JPRB,4.4082E+00_JPRB/)  
+KBO( :,16,12) = (/&
+ & 4.1327E+00_JPRB,4.2242E+00_JPRB,4.3125E+00_JPRB,4.4391E+00_JPRB,4.6138E+00_JPRB/)  
+KBO( :,17,12) = (/&
+ & 4.4414E+00_JPRB,4.5415E+00_JPRB,4.6376E+00_JPRB,4.7581E+00_JPRB,4.9174E+00_JPRB/)  
+KBO( :,18,12) = (/&
+ & 4.8741E+00_JPRB,4.9856E+00_JPRB,5.0865E+00_JPRB,5.2000E+00_JPRB,5.3496E+00_JPRB/)  
+KBO( :,19,12) = (/&
+ & 5.3942E+00_JPRB,5.5159E+00_JPRB,5.6209E+00_JPRB,5.7303E+00_JPRB,5.8792E+00_JPRB/)  
+KBO( :,20,12) = (/&
+ & 5.9449E+00_JPRB,6.0804E+00_JPRB,6.1977E+00_JPRB,6.3136E+00_JPRB,6.4625E+00_JPRB/)  
+KBO( :,21,12) = (/&
+ & 6.5083E+00_JPRB,6.6571E+00_JPRB,6.7844E+00_JPRB,6.9105E+00_JPRB,7.0578E+00_JPRB/)  
+KBO( :,22,12) = (/&
+ & 7.0948E+00_JPRB,7.2430E+00_JPRB,7.3777E+00_JPRB,7.5057E+00_JPRB,7.6548E+00_JPRB/)  
+KBO( :,23,12) = (/&
+ & 7.6728E+00_JPRB,7.8216E+00_JPRB,7.9521E+00_JPRB,8.0848E+00_JPRB,8.2305E+00_JPRB/)  
+KBO( :,24,12) = (/&
+ & 8.2357E+00_JPRB,8.3751E+00_JPRB,8.4992E+00_JPRB,8.6326E+00_JPRB,8.7728E+00_JPRB/)  
+KBO( :,25,12) = (/&
+ & 8.7737E+00_JPRB,8.9042E+00_JPRB,9.0205E+00_JPRB,9.1429E+00_JPRB,9.2764E+00_JPRB/)  
+KBO( :,26,12) = (/&
+ & 9.2933E+00_JPRB,9.4039E+00_JPRB,9.4975E+00_JPRB,9.6155E+00_JPRB,9.7364E+00_JPRB/)  
+KBO( :,27,12) = (/&
+ & 9.7761E+00_JPRB,9.8603E+00_JPRB,9.9374E+00_JPRB,1.0052E+01_JPRB,1.0156E+01_JPRB/)  
+KBO( :,28,12) = (/&
+ & 1.0209E+01_JPRB,1.0271E+01_JPRB,1.0341E+01_JPRB,1.0444E+01_JPRB,1.0534E+01_JPRB/)  
+KBO( :,29,12) = (/&
+ & 1.0592E+01_JPRB,1.0638E+01_JPRB,1.0711E+01_JPRB,1.0795E+01_JPRB,1.0874E+01_JPRB/)  
+KBO( :,30,12) = (/&
+ & 1.0926E+01_JPRB,1.0968E+01_JPRB,1.1042E+01_JPRB,1.1108E+01_JPRB,1.1175E+01_JPRB/)  
+KBO( :,31,12) = (/&
+ & 1.1210E+01_JPRB,1.1270E+01_JPRB,1.1330E+01_JPRB,1.1391E+01_JPRB,1.1455E+01_JPRB/)  
+KBO( :,32,12) = (/&
+ & 1.1473E+01_JPRB,1.1530E+01_JPRB,1.1583E+01_JPRB,1.1643E+01_JPRB,1.1703E+01_JPRB/)  
+KBO( :,33,12) = (/&
+ & 1.1714E+01_JPRB,1.1754E+01_JPRB,1.1808E+01_JPRB,1.1874E+01_JPRB,1.1936E+01_JPRB/)  
+KBO( :,34,12) = (/&
+ & 1.1910E+01_JPRB,1.1948E+01_JPRB,1.2008E+01_JPRB,1.2077E+01_JPRB,1.2125E+01_JPRB/)  
+KBO( :,35,12) = (/&
+ & 1.2080E+01_JPRB,1.2122E+01_JPRB,1.2185E+01_JPRB,1.2249E+01_JPRB,1.2289E+01_JPRB/)  
+KBO( :,36,12) = (/&
+ & 1.2230E+01_JPRB,1.2275E+01_JPRB,1.2329E+01_JPRB,1.2385E+01_JPRB,1.2434E+01_JPRB/)  
+KBO( :,37,12) = (/&
+ & 1.2355E+01_JPRB,1.2395E+01_JPRB,1.2440E+01_JPRB,1.2491E+01_JPRB,1.2554E+01_JPRB/)  
+KBO( :,38,12) = (/&
+ & 1.2468E+01_JPRB,1.2508E+01_JPRB,1.2543E+01_JPRB,1.2592E+01_JPRB,1.2683E+01_JPRB/)  
+KBO( :,39,12) = (/&
+ & 1.2575E+01_JPRB,1.2612E+01_JPRB,1.2642E+01_JPRB,1.2692E+01_JPRB,1.2838E+01_JPRB/)  
+KBO( :,40,12) = (/&
+ & 1.2650E+01_JPRB,1.2686E+01_JPRB,1.2711E+01_JPRB,1.2759E+01_JPRB,1.2904E+01_JPRB/)  
+KBO( :,41,12) = (/&
+ & 1.2712E+01_JPRB,1.2745E+01_JPRB,1.2773E+01_JPRB,1.2817E+01_JPRB,1.2955E+01_JPRB/)  
+KBO( :,42,12) = (/&
+ & 1.2767E+01_JPRB,1.2799E+01_JPRB,1.2828E+01_JPRB,1.2873E+01_JPRB,1.3007E+01_JPRB/)  
+KBO( :,43,12) = (/&
+ & 1.2813E+01_JPRB,1.2848E+01_JPRB,1.2879E+01_JPRB,1.2924E+01_JPRB,1.3044E+01_JPRB/)  
+KBO( :,44,12) = (/&
+ & 1.2854E+01_JPRB,1.2894E+01_JPRB,1.2928E+01_JPRB,1.2974E+01_JPRB,1.3081E+01_JPRB/)  
+KBO( :,45,12) = (/&
+ & 1.2883E+01_JPRB,1.2938E+01_JPRB,1.2974E+01_JPRB,1.3025E+01_JPRB,1.3125E+01_JPRB/)  
+KBO( :,46,12) = (/&
+ & 1.2900E+01_JPRB,1.2975E+01_JPRB,1.3019E+01_JPRB,1.3074E+01_JPRB,1.3167E+01_JPRB/)  
+KBO( :,47,12) = (/&
+ & 1.2899E+01_JPRB,1.3003E+01_JPRB,1.3052E+01_JPRB,1.3111E+01_JPRB,1.3185E+01_JPRB/)  
+KBO( :,48,12) = (/&
+ & 1.2888E+01_JPRB,1.3016E+01_JPRB,1.3084E+01_JPRB,1.3147E+01_JPRB,1.3217E+01_JPRB/)  
+KBO( :,49,12) = (/&
+ & 1.2858E+01_JPRB,1.3028E+01_JPRB,1.3122E+01_JPRB,1.3196E+01_JPRB,1.3269E+01_JPRB/)  
+KBO( :,50,12) = (/&
+ & 1.2801E+01_JPRB,1.3021E+01_JPRB,1.3135E+01_JPRB,1.3222E+01_JPRB,1.3293E+01_JPRB/)  
+KBO( :,51,12) = (/&
+ & 1.2720E+01_JPRB,1.2990E+01_JPRB,1.3139E+01_JPRB,1.3235E+01_JPRB,1.3314E+01_JPRB/)  
+KBO( :,52,12) = (/&
+ & 1.2625E+01_JPRB,1.2948E+01_JPRB,1.3140E+01_JPRB,1.3259E+01_JPRB,1.3347E+01_JPRB/)  
+KBO( :,53,12) = (/&
+ & 1.2524E+01_JPRB,1.2897E+01_JPRB,1.3137E+01_JPRB,1.3283E+01_JPRB,1.3383E+01_JPRB/)  
+KBO( :,54,12) = (/&
+ & 1.2387E+01_JPRB,1.2811E+01_JPRB,1.3084E+01_JPRB,1.3257E+01_JPRB,1.3377E+01_JPRB/)  
+KBO( :,55,12) = (/&
+ & 1.2253E+01_JPRB,1.2679E+01_JPRB,1.3005E+01_JPRB,1.3202E+01_JPRB,1.3339E+01_JPRB/)  
+KBO( :,56,12) = (/&
+ & 1.2121E+01_JPRB,1.2542E+01_JPRB,1.2916E+01_JPRB,1.3156E+01_JPRB,1.3289E+01_JPRB/)  
+KBO( :,57,12) = (/&
+ & 1.1979E+01_JPRB,1.2408E+01_JPRB,1.2809E+01_JPRB,1.3086E+01_JPRB,1.3246E+01_JPRB/)  
+KBO( :,58,12) = (/&
+ & 1.1823E+01_JPRB,1.2282E+01_JPRB,1.2681E+01_JPRB,1.3001E+01_JPRB,1.3194E+01_JPRB/)  
+KBO( :,59,12) = (/&
+ & 1.1755E+01_JPRB,1.2232E+01_JPRB,1.2597E+01_JPRB,1.2896E+01_JPRB,1.3110E+01_JPRB/)  
+KBO( :, 7,13) = (/&
+ & 3.5643E+01_JPRB,5.1949E+01_JPRB,7.4063E+01_JPRB,1.0270E+02_JPRB,1.3794E+02_JPRB/)  
+KBO( :, 8,13) = (/&
+ & 1.5141E+01_JPRB,1.6031E+01_JPRB,1.9997E+01_JPRB,2.8469E+01_JPRB,4.0147E+01_JPRB/)  
+KBO( :, 9,13) = (/&
+ & 1.1387E+01_JPRB,1.1580E+01_JPRB,1.1786E+01_JPRB,1.2550E+01_JPRB,1.3679E+01_JPRB/)  
+KBO( :,10,13) = (/&
+ & 8.4794E+00_JPRB,8.5268E+00_JPRB,8.5378E+00_JPRB,8.7582E+00_JPRB,9.4039E+00_JPRB/)  
+KBO( :,11,13) = (/&
+ & 6.6590E+00_JPRB,6.6857E+00_JPRB,6.6700E+00_JPRB,6.8819E+00_JPRB,7.3175E+00_JPRB/)  
+KBO( :,12,13) = (/&
+ & 6.2717E+00_JPRB,6.3757E+00_JPRB,6.4443E+00_JPRB,6.6558E+00_JPRB,6.9844E+00_JPRB/)  
+KBO( :,13,13) = (/&
+ & 6.0914E+00_JPRB,6.1740E+00_JPRB,6.2405E+00_JPRB,6.4377E+00_JPRB,6.7503E+00_JPRB/)  
+KBO( :,14,13) = (/&
+ & 4.9794E+00_JPRB,5.0536E+00_JPRB,5.1492E+00_JPRB,5.3795E+00_JPRB,5.7518E+00_JPRB/)  
+KBO( :,15,13) = (/&
+ & 5.1843E+00_JPRB,5.3190E+00_JPRB,5.4758E+00_JPRB,5.6793E+00_JPRB,6.0175E+00_JPRB/)  
+KBO( :,16,13) = (/&
+ & 5.7049E+00_JPRB,5.8741E+00_JPRB,6.0283E+00_JPRB,6.2146E+00_JPRB,6.5273E+00_JPRB/)  
+KBO( :,17,13) = (/&
+ & 6.2538E+00_JPRB,6.4179E+00_JPRB,6.5692E+00_JPRB,6.7387E+00_JPRB,7.0279E+00_JPRB/)  
+KBO( :,18,13) = (/&
+ & 6.7525E+00_JPRB,6.9110E+00_JPRB,7.0637E+00_JPRB,7.2266E+00_JPRB,7.4943E+00_JPRB/)  
+KBO( :,19,13) = (/&
+ & 7.2519E+00_JPRB,7.4118E+00_JPRB,7.5663E+00_JPRB,7.7263E+00_JPRB,7.9629E+00_JPRB/)  
+KBO( :,20,13) = (/&
+ & 7.8324E+00_JPRB,7.9965E+00_JPRB,8.1590E+00_JPRB,8.3205E+00_JPRB,8.5444E+00_JPRB/)  
+KBO( :,21,13) = (/&
+ & 8.5287E+00_JPRB,8.6915E+00_JPRB,8.8554E+00_JPRB,9.0146E+00_JPRB,9.2285E+00_JPRB/)  
+KBO( :,22,13) = (/&
+ & 9.3469E+00_JPRB,9.5083E+00_JPRB,9.6626E+00_JPRB,9.8140E+00_JPRB,1.0022E+01_JPRB/)  
+KBO( :,23,13) = (/&
+ & 1.0237E+01_JPRB,1.0396E+01_JPRB,1.0540E+01_JPRB,1.0676E+01_JPRB,1.0870E+01_JPRB/)  
+KBO( :,24,13) = (/&
+ & 1.1146E+01_JPRB,1.1303E+01_JPRB,1.1436E+01_JPRB,1.1550E+01_JPRB,1.1722E+01_JPRB/)  
+KBO( :,25,13) = (/&
+ & 1.2050E+01_JPRB,1.2190E+01_JPRB,1.2298E+01_JPRB,1.2397E+01_JPRB,1.2546E+01_JPRB/)  
+KBO( :,26,13) = (/&
+ & 1.2909E+01_JPRB,1.3024E+01_JPRB,1.3107E+01_JPRB,1.3185E+01_JPRB,1.3314E+01_JPRB/)  
+KBO( :,27,13) = (/&
+ & 1.3701E+01_JPRB,1.3792E+01_JPRB,1.3849E+01_JPRB,1.3913E+01_JPRB,1.4022E+01_JPRB/)  
+KBO( :,28,13) = (/&
+ & 1.4427E+01_JPRB,1.4484E+01_JPRB,1.4511E+01_JPRB,1.4572E+01_JPRB,1.4654E+01_JPRB/)  
+KBO( :,29,13) = (/&
+ & 1.5072E+01_JPRB,1.5093E+01_JPRB,1.5109E+01_JPRB,1.5170E+01_JPRB,1.5215E+01_JPRB/)  
+KBO( :,30,13) = (/&
+ & 1.5628E+01_JPRB,1.5619E+01_JPRB,1.5649E+01_JPRB,1.5693E+01_JPRB,1.5715E+01_JPRB/)  
+KBO( :,31,13) = (/&
+ & 1.6105E+01_JPRB,1.6099E+01_JPRB,1.6147E+01_JPRB,1.6155E+01_JPRB,1.6164E+01_JPRB/)  
+KBO( :,32,13) = (/&
+ & 1.6511E+01_JPRB,1.6547E+01_JPRB,1.6576E+01_JPRB,1.6572E+01_JPRB,1.6565E+01_JPRB/)  
+KBO( :,33,13) = (/&
+ & 1.6897E+01_JPRB,1.6951E+01_JPRB,1.6956E+01_JPRB,1.6944E+01_JPRB,1.6929E+01_JPRB/)  
+KBO( :,34,13) = (/&
+ & 1.7252E+01_JPRB,1.7277E+01_JPRB,1.7273E+01_JPRB,1.7259E+01_JPRB,1.7247E+01_JPRB/)  
+KBO( :,35,13) = (/&
+ & 1.7555E+01_JPRB,1.7563E+01_JPRB,1.7552E+01_JPRB,1.7549E+01_JPRB,1.7549E+01_JPRB/)  
+KBO( :,36,13) = (/&
+ & 1.7803E+01_JPRB,1.7812E+01_JPRB,1.7811E+01_JPRB,1.7814E+01_JPRB,1.7805E+01_JPRB/)  
+KBO( :,37,13) = (/&
+ & 1.8013E+01_JPRB,1.8025E+01_JPRB,1.8034E+01_JPRB,1.8035E+01_JPRB,1.8022E+01_JPRB/)  
+KBO( :,38,13) = (/&
+ & 1.8201E+01_JPRB,1.8222E+01_JPRB,1.8247E+01_JPRB,1.8244E+01_JPRB,1.8226E+01_JPRB/)  
+KBO( :,39,13) = (/&
+ & 1.8383E+01_JPRB,1.8417E+01_JPRB,1.8445E+01_JPRB,1.8444E+01_JPRB,1.8423E+01_JPRB/)  
+KBO( :,40,13) = (/&
+ & 1.8521E+01_JPRB,1.8556E+01_JPRB,1.8589E+01_JPRB,1.8588E+01_JPRB,1.8570E+01_JPRB/)  
+KBO( :,41,13) = (/&
+ & 1.8644E+01_JPRB,1.8681E+01_JPRB,1.8714E+01_JPRB,1.8712E+01_JPRB,1.8700E+01_JPRB/)  
+KBO( :,42,13) = (/&
+ & 1.8752E+01_JPRB,1.8798E+01_JPRB,1.8834E+01_JPRB,1.8832E+01_JPRB,1.8827E+01_JPRB/)  
+KBO( :,43,13) = (/&
+ & 1.8844E+01_JPRB,1.8901E+01_JPRB,1.8939E+01_JPRB,1.8943E+01_JPRB,1.8946E+01_JPRB/)  
+KBO( :,44,13) = (/&
+ & 1.8930E+01_JPRB,1.8996E+01_JPRB,1.9046E+01_JPRB,1.9057E+01_JPRB,1.9063E+01_JPRB/)  
+KBO( :,45,13) = (/&
+ & 1.9023E+01_JPRB,1.9089E+01_JPRB,1.9147E+01_JPRB,1.9171E+01_JPRB,1.9190E+01_JPRB/)  
+KBO( :,46,13) = (/&
+ & 1.9108E+01_JPRB,1.9173E+01_JPRB,1.9241E+01_JPRB,1.9282E+01_JPRB,1.9317E+01_JPRB/)  
+KBO( :,47,13) = (/&
+ & 1.9179E+01_JPRB,1.9235E+01_JPRB,1.9323E+01_JPRB,1.9378E+01_JPRB,1.9424E+01_JPRB/)  
+KBO( :,48,13) = (/&
+ & 1.9259E+01_JPRB,1.9311E+01_JPRB,1.9403E+01_JPRB,1.9481E+01_JPRB,1.9542E+01_JPRB/)  
+KBO( :,49,13) = (/&
+ & 1.9353E+01_JPRB,1.9401E+01_JPRB,1.9487E+01_JPRB,1.9582E+01_JPRB,1.9677E+01_JPRB/)  
+KBO( :,50,13) = (/&
+ & 1.9435E+01_JPRB,1.9470E+01_JPRB,1.9546E+01_JPRB,1.9648E+01_JPRB,1.9775E+01_JPRB/)  
+KBO( :,51,13) = (/&
+ & 1.9528E+01_JPRB,1.9522E+01_JPRB,1.9589E+01_JPRB,1.9698E+01_JPRB,1.9835E+01_JPRB/)  
+KBO( :,52,13) = (/&
+ & 1.9619E+01_JPRB,1.9589E+01_JPRB,1.9648E+01_JPRB,1.9751E+01_JPRB,1.9897E+01_JPRB/)  
+KBO( :,53,13) = (/&
+ & 1.9714E+01_JPRB,1.9664E+01_JPRB,1.9723E+01_JPRB,1.9814E+01_JPRB,1.9980E+01_JPRB/)  
+KBO( :,54,13) = (/&
+ & 1.9804E+01_JPRB,1.9687E+01_JPRB,1.9738E+01_JPRB,1.9817E+01_JPRB,1.9959E+01_JPRB/)  
+KBO( :,55,13) = (/&
+ & 1.9891E+01_JPRB,1.9703E+01_JPRB,1.9714E+01_JPRB,1.9787E+01_JPRB,1.9905E+01_JPRB/)  
+KBO( :,56,13) = (/&
+ & 1.9968E+01_JPRB,1.9742E+01_JPRB,1.9687E+01_JPRB,1.9751E+01_JPRB,1.9853E+01_JPRB/)  
+KBO( :,57,13) = (/&
+ & 2.0032E+01_JPRB,1.9814E+01_JPRB,1.9687E+01_JPRB,1.9714E+01_JPRB,1.9803E+01_JPRB/)  
+KBO( :,58,13) = (/&
+ & 2.0080E+01_JPRB,1.9895E+01_JPRB,1.9702E+01_JPRB,1.9670E+01_JPRB,1.9752E+01_JPRB/)  
+KBO( :,59,13) = (/&
+ & 2.0098E+01_JPRB,1.9929E+01_JPRB,1.9672E+01_JPRB,1.9573E+01_JPRB,1.9576E+01_JPRB/)  
+KBO( :, 7,14) = (/&
+ & 9.1966E+01_JPRB,1.3562E+02_JPRB,1.9017E+02_JPRB,2.5592E+02_JPRB,3.3333E+02_JPRB/)  
+KBO( :, 8,14) = (/&
+ & 2.2693E+01_JPRB,3.3411E+01_JPRB,4.8518E+01_JPRB,6.7308E+01_JPRB,8.9702E+01_JPRB/)  
+KBO( :, 9,14) = (/&
+ & 1.2882E+01_JPRB,1.3153E+01_JPRB,1.3364E+01_JPRB,1.4883E+01_JPRB,2.1107E+01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB8:PART6',1,ZHOOK_HANDLE)
+END SUBROUTINE PART6
+
+
+SUBROUTINE PART7
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB8:PART7',0,ZHOOK_HANDLE)
+
+
+KBO( :,10,14) = (/&
+ & 9.8362E+00_JPRB,9.9117E+00_JPRB,9.9648E+00_JPRB,1.0153E+01_JPRB,1.0885E+01_JPRB/)  
+KBO( :,11,14) = (/&
+ & 7.9433E+00_JPRB,7.9973E+00_JPRB,8.0475E+00_JPRB,8.2315E+00_JPRB,8.7834E+00_JPRB/)  
+KBO( :,12,14) = (/&
+ & 7.3895E+00_JPRB,7.4583E+00_JPRB,7.5219E+00_JPRB,7.7292E+00_JPRB,8.2231E+00_JPRB/)  
+KBO( :,13,14) = (/&
+ & 7.1435E+00_JPRB,7.2885E+00_JPRB,7.3950E+00_JPRB,7.6192E+00_JPRB,8.1085E+00_JPRB/)  
+KBO( :,14,14) = (/&
+ & 6.9992E+00_JPRB,7.1773E+00_JPRB,7.3399E+00_JPRB,7.5909E+00_JPRB,8.2289E+00_JPRB/)  
+KBO( :,15,14) = (/&
+ & 7.9125E+00_JPRB,8.1063E+00_JPRB,8.2644E+00_JPRB,8.4250E+00_JPRB,8.8258E+00_JPRB/)  
+KBO( :,16,14) = (/&
+ & 8.8516E+00_JPRB,9.0393E+00_JPRB,9.2237E+00_JPRB,9.3959E+00_JPRB,9.6957E+00_JPRB/)  
+KBO( :,17,14) = (/&
+ & 9.8145E+00_JPRB,1.0045E+01_JPRB,1.0264E+01_JPRB,1.0472E+01_JPRB,1.0729E+01_JPRB/)  
+KBO( :,18,14) = (/&
+ & 1.0863E+01_JPRB,1.1143E+01_JPRB,1.1400E+01_JPRB,1.1634E+01_JPRB,1.1884E+01_JPRB/)  
+KBO( :,19,14) = (/&
+ & 1.1987E+01_JPRB,1.2302E+01_JPRB,1.2594E+01_JPRB,1.2857E+01_JPRB,1.3115E+01_JPRB/)  
+KBO( :,20,14) = (/&
+ & 1.3163E+01_JPRB,1.3504E+01_JPRB,1.3819E+01_JPRB,1.4119E+01_JPRB,1.4393E+01_JPRB/)  
+KBO( :,21,14) = (/&
+ & 1.4360E+01_JPRB,1.4728E+01_JPRB,1.5076E+01_JPRB,1.5394E+01_JPRB,1.5681E+01_JPRB/)  
+KBO( :,22,14) = (/&
+ & 1.5564E+01_JPRB,1.5972E+01_JPRB,1.6343E+01_JPRB,1.6667E+01_JPRB,1.6964E+01_JPRB/)  
+KBO( :,23,14) = (/&
+ & 1.6820E+01_JPRB,1.7233E+01_JPRB,1.7594E+01_JPRB,1.7909E+01_JPRB,1.8214E+01_JPRB/)  
+KBO( :,24,14) = (/&
+ & 1.8109E+01_JPRB,1.8494E+01_JPRB,1.8826E+01_JPRB,1.9111E+01_JPRB,1.9401E+01_JPRB/)  
+KBO( :,25,14) = (/&
+ & 1.9392E+01_JPRB,1.9724E+01_JPRB,2.0018E+01_JPRB,2.0268E+01_JPRB,2.0538E+01_JPRB/)  
+KBO( :,26,14) = (/&
+ & 2.0628E+01_JPRB,2.0920E+01_JPRB,2.1173E+01_JPRB,2.1372E+01_JPRB,2.1625E+01_JPRB/)  
+KBO( :,27,14) = (/&
+ & 2.1805E+01_JPRB,2.2040E+01_JPRB,2.2243E+01_JPRB,2.2391E+01_JPRB,2.2631E+01_JPRB/)  
+KBO( :,28,14) = (/&
+ & 2.2897E+01_JPRB,2.3059E+01_JPRB,2.3185E+01_JPRB,2.3305E+01_JPRB,2.3583E+01_JPRB/)  
+KBO( :,29,14) = (/&
+ & 2.3866E+01_JPRB,2.3956E+01_JPRB,2.4031E+01_JPRB,2.4181E+01_JPRB,2.4577E+01_JPRB/)  
+KBO( :,30,14) = (/&
+ & 2.4714E+01_JPRB,2.4744E+01_JPRB,2.4786E+01_JPRB,2.5037E+01_JPRB,2.5553E+01_JPRB/)  
+KBO( :,31,14) = (/&
+ & 2.5442E+01_JPRB,2.5420E+01_JPRB,2.5528E+01_JPRB,2.5980E+01_JPRB,2.6575E+01_JPRB/)  
+KBO( :,32,14) = (/&
+ & 2.6060E+01_JPRB,2.6042E+01_JPRB,2.6355E+01_JPRB,2.6934E+01_JPRB,2.7574E+01_JPRB/)  
+KBO( :,33,14) = (/&
+ & 2.6582E+01_JPRB,2.6720E+01_JPRB,2.7257E+01_JPRB,2.7902E+01_JPRB,2.8582E+01_JPRB/)  
+KBO( :,34,14) = (/&
+ & 2.7091E+01_JPRB,2.7462E+01_JPRB,2.8092E+01_JPRB,2.8769E+01_JPRB,2.9492E+01_JPRB/)  
+KBO( :,35,14) = (/&
+ & 2.7632E+01_JPRB,2.8159E+01_JPRB,2.8835E+01_JPRB,2.9549E+01_JPRB,3.0321E+01_JPRB/)  
+KBO( :,36,14) = (/&
+ & 2.8159E+01_JPRB,2.8745E+01_JPRB,2.9458E+01_JPRB,3.0219E+01_JPRB,3.1043E+01_JPRB/)  
+KBO( :,37,14) = (/&
+ & 2.8540E+01_JPRB,2.9146E+01_JPRB,2.9877E+01_JPRB,3.0672E+01_JPRB,3.1544E+01_JPRB/)  
+KBO( :,38,14) = (/&
+ & 2.8901E+01_JPRB,2.9532E+01_JPRB,3.0283E+01_JPRB,3.1140E+01_JPRB,3.2071E+01_JPRB/)  
+KBO( :,39,14) = (/&
+ & 2.9260E+01_JPRB,2.9925E+01_JPRB,3.0734E+01_JPRB,3.1664E+01_JPRB,3.2694E+01_JPRB/)  
+KBO( :,40,14) = (/&
+ & 2.9430E+01_JPRB,3.0093E+01_JPRB,3.0912E+01_JPRB,3.1873E+01_JPRB,3.2935E+01_JPRB/)  
+KBO( :,41,14) = (/&
+ & 2.9569E+01_JPRB,3.0227E+01_JPRB,3.1048E+01_JPRB,3.2034E+01_JPRB,3.3124E+01_JPRB/)  
+KBO( :,42,14) = (/&
+ & 2.9715E+01_JPRB,3.0354E+01_JPRB,3.1194E+01_JPRB,3.2201E+01_JPRB,3.3328E+01_JPRB/)  
+KBO( :,43,14) = (/&
+ & 2.9833E+01_JPRB,3.0439E+01_JPRB,3.1280E+01_JPRB,3.2309E+01_JPRB,3.3467E+01_JPRB/)  
+KBO( :,44,14) = (/&
+ & 2.9941E+01_JPRB,3.0510E+01_JPRB,3.1343E+01_JPRB,3.2396E+01_JPRB,3.3596E+01_JPRB/)  
+KBO( :,45,14) = (/&
+ & 3.0066E+01_JPRB,3.0604E+01_JPRB,3.1448E+01_JPRB,3.2529E+01_JPRB,3.3774E+01_JPRB/)  
+KBO( :,46,14) = (/&
+ & 3.0186E+01_JPRB,3.0696E+01_JPRB,3.1535E+01_JPRB,3.2640E+01_JPRB,3.3926E+01_JPRB/)  
+KBO( :,47,14) = (/&
+ & 3.0293E+01_JPRB,3.0717E+01_JPRB,3.1531E+01_JPRB,3.2630E+01_JPRB,3.3950E+01_JPRB/)  
+KBO( :,48,14) = (/&
+ & 3.0429E+01_JPRB,3.0794E+01_JPRB,3.1577E+01_JPRB,3.2679E+01_JPRB,3.4060E+01_JPRB/)  
+KBO( :,49,14) = (/&
+ & 3.0616E+01_JPRB,3.0920E+01_JPRB,3.1697E+01_JPRB,3.2833E+01_JPRB,3.4261E+01_JPRB/)  
+KBO( :,50,14) = (/&
+ & 3.0818E+01_JPRB,3.0958E+01_JPRB,3.1730E+01_JPRB,3.2862E+01_JPRB,3.4287E+01_JPRB/)  
+KBO( :,51,14) = (/&
+ & 3.1037E+01_JPRB,3.0997E+01_JPRB,3.1705E+01_JPRB,3.2813E+01_JPRB,3.4237E+01_JPRB/)  
+KBO( :,52,14) = (/&
+ & 3.1309E+01_JPRB,3.1076E+01_JPRB,3.1722E+01_JPRB,3.2817E+01_JPRB,3.4252E+01_JPRB/)  
+KBO( :,53,14) = (/&
+ & 3.1610E+01_JPRB,3.1224E+01_JPRB,3.1798E+01_JPRB,3.2922E+01_JPRB,3.4372E+01_JPRB/)  
+KBO( :,54,14) = (/&
+ & 3.1900E+01_JPRB,3.1278E+01_JPRB,3.1648E+01_JPRB,3.2670E+01_JPRB,3.4089E+01_JPRB/)  
+KBO( :,55,14) = (/&
+ & 3.2210E+01_JPRB,3.1399E+01_JPRB,3.1421E+01_JPRB,3.2230E+01_JPRB,3.3508E+01_JPRB/)  
+KBO( :,56,14) = (/&
+ & 3.2550E+01_JPRB,3.1633E+01_JPRB,3.1312E+01_JPRB,3.1877E+01_JPRB,3.2983E+01_JPRB/)  
+KBO( :,57,14) = (/&
+ & 3.2910E+01_JPRB,3.1902E+01_JPRB,3.1284E+01_JPRB,3.1616E+01_JPRB,3.2534E+01_JPRB/)  
+KBO( :,58,14) = (/&
+ & 3.3271E+01_JPRB,3.2188E+01_JPRB,3.1382E+01_JPRB,3.1393E+01_JPRB,3.2095E+01_JPRB/)  
+KBO( :,59,14) = (/&
+ & 3.3433E+01_JPRB,3.2317E+01_JPRB,3.1456E+01_JPRB,3.1063E+01_JPRB,3.1513E+01_JPRB/)  
+KBO( :, 7,15) = (/&
+ & 2.8363E+02_JPRB,4.1355E+02_JPRB,5.7180E+02_JPRB,7.5690E+02_JPRB,9.6654E+02_JPRB/)  
+KBO( :, 8,15) = (/&
+ & 7.4865E+01_JPRB,1.1268E+02_JPRB,1.5979E+02_JPRB,2.1605E+02_JPRB,2.8202E+02_JPRB/)  
+KBO( :, 9,15) = (/&
+ & 1.4273E+01_JPRB,1.7483E+01_JPRB,2.3317E+01_JPRB,3.2081E+01_JPRB,4.4022E+01_JPRB/)  
+KBO( :,10,15) = (/&
+ & 1.0822E+01_JPRB,1.0897E+01_JPRB,1.0977E+01_JPRB,1.1194E+01_JPRB,1.5009E+01_JPRB/)  
+KBO( :,11,15) = (/&
+ & 8.8651E+00_JPRB,8.9560E+00_JPRB,9.0304E+00_JPRB,9.2295E+00_JPRB,1.2083E+01_JPRB/)  
+KBO( :,12,15) = (/&
+ & 8.4071E+00_JPRB,8.4990E+00_JPRB,8.5668E+00_JPRB,8.7783E+00_JPRB,1.1395E+01_JPRB/)  
+KBO( :,13,15) = (/&
+ & 7.8874E+00_JPRB,8.0981E+00_JPRB,8.3286E+00_JPRB,8.6740E+00_JPRB,1.0797E+01_JPRB/)  
+KBO( :,14,15) = (/&
+ & 9.0700E+00_JPRB,9.4397E+00_JPRB,9.7504E+00_JPRB,1.0023E+01_JPRB,1.0663E+01_JPRB/)  
+KBO( :,15,15) = (/&
+ & 1.0836E+01_JPRB,1.1231E+01_JPRB,1.1580E+01_JPRB,1.1881E+01_JPRB,1.2185E+01_JPRB/)  
+KBO( :,16,15) = (/&
+ & 1.2867E+01_JPRB,1.3302E+01_JPRB,1.3683E+01_JPRB,1.4016E+01_JPRB,1.4292E+01_JPRB/)  
+KBO( :,17,15) = (/&
+ & 1.5179E+01_JPRB,1.5649E+01_JPRB,1.6067E+01_JPRB,1.6423E+01_JPRB,1.6719E+01_JPRB/)  
+KBO( :,18,15) = (/&
+ & 1.7779E+01_JPRB,1.8278E+01_JPRB,1.8717E+01_JPRB,1.9093E+01_JPRB,1.9383E+01_JPRB/)  
+KBO( :,19,15) = (/&
+ & 2.0642E+01_JPRB,2.1170E+01_JPRB,2.1612E+01_JPRB,2.1976E+01_JPRB,2.2234E+01_JPRB/)  
+KBO( :,20,15) = (/&
+ & 2.3750E+01_JPRB,2.4283E+01_JPRB,2.4723E+01_JPRB,2.5032E+01_JPRB,2.5262E+01_JPRB/)  
+KBO( :,21,15) = (/&
+ & 2.7026E+01_JPRB,2.7553E+01_JPRB,2.7924E+01_JPRB,2.8192E+01_JPRB,2.8376E+01_JPRB/)  
+KBO( :,22,15) = (/&
+ & 3.0466E+01_JPRB,3.0907E+01_JPRB,3.1208E+01_JPRB,3.1413E+01_JPRB,3.1533E+01_JPRB/)  
+KBO( :,23,15) = (/&
+ & 3.3884E+01_JPRB,3.4236E+01_JPRB,3.4483E+01_JPRB,3.4605E+01_JPRB,3.4634E+01_JPRB/)  
+KBO( :,24,15) = (/&
+ & 3.7294E+01_JPRB,3.7565E+01_JPRB,3.7709E+01_JPRB,3.7756E+01_JPRB,3.7674E+01_JPRB/)  
+KBO( :,25,15) = (/&
+ & 4.0647E+01_JPRB,4.0822E+01_JPRB,4.0862E+01_JPRB,4.0770E+01_JPRB,4.0545E+01_JPRB/)  
+KBO( :,26,15) = (/&
+ & 4.3918E+01_JPRB,4.3923E+01_JPRB,4.3794E+01_JPRB,4.3551E+01_JPRB,4.3172E+01_JPRB/)  
+KBO( :,27,15) = (/&
+ & 4.6948E+01_JPRB,4.6779E+01_JPRB,4.6473E+01_JPRB,4.6062E+01_JPRB,4.5548E+01_JPRB/)  
+KBO( :,28,15) = (/&
+ & 4.9671E+01_JPRB,4.9327E+01_JPRB,4.8876E+01_JPRB,4.8297E+01_JPRB,4.7637E+01_JPRB/)  
+KBO( :,29,15) = (/&
+ & 5.2077E+01_JPRB,5.1573E+01_JPRB,5.0947E+01_JPRB,5.0200E+01_JPRB,4.9391E+01_JPRB/)  
+KBO( :,30,15) = (/&
+ & 5.4175E+01_JPRB,5.3476E+01_JPRB,5.2686E+01_JPRB,5.1783E+01_JPRB,5.0979E+01_JPRB/)  
+KBO( :,31,15) = (/&
+ & 5.5918E+01_JPRB,5.5055E+01_JPRB,5.4106E+01_JPRB,5.3112E+01_JPRB,5.2750E+01_JPRB/)  
+KBO( :,32,15) = (/&
+ & 5.7323E+01_JPRB,5.6310E+01_JPRB,5.5227E+01_JPRB,5.4570E+01_JPRB,5.5133E+01_JPRB/)  
+KBO( :,33,15) = (/&
+ & 5.8423E+01_JPRB,5.7290E+01_JPRB,5.6381E+01_JPRB,5.6660E+01_JPRB,5.8115E+01_JPRB/)  
+KBO( :,34,15) = (/&
+ & 5.9305E+01_JPRB,5.8151E+01_JPRB,5.7902E+01_JPRB,5.9181E+01_JPRB,6.1024E+01_JPRB/)  
+KBO( :,35,15) = (/&
+ & 6.0090E+01_JPRB,5.9220E+01_JPRB,5.9907E+01_JPRB,6.1721E+01_JPRB,6.3818E+01_JPRB/)  
+KBO( :,36,15) = (/&
+ & 6.0898E+01_JPRB,6.0514E+01_JPRB,6.1931E+01_JPRB,6.4064E+01_JPRB,6.6503E+01_JPRB/)  
+KBO( :,37,15) = (/&
+ & 6.1807E+01_JPRB,6.1684E+01_JPRB,6.3418E+01_JPRB,6.5762E+01_JPRB,6.8620E+01_JPRB/)  
+KBO( :,38,15) = (/&
+ & 6.2675E+01_JPRB,6.2924E+01_JPRB,6.5022E+01_JPRB,6.7556E+01_JPRB,7.1076E+01_JPRB/)  
+KBO( :,39,15) = (/&
+ & 6.3549E+01_JPRB,6.4372E+01_JPRB,6.6780E+01_JPRB,6.9607E+01_JPRB,7.4223E+01_JPRB/)  
+KBO( :,40,15) = (/&
+ & 6.4290E+01_JPRB,6.5073E+01_JPRB,6.7567E+01_JPRB,7.0533E+01_JPRB,7.5366E+01_JPRB/)  
+KBO( :,41,15) = (/&
+ & 6.4963E+01_JPRB,6.5642E+01_JPRB,6.8216E+01_JPRB,7.1296E+01_JPRB,7.6285E+01_JPRB/)  
+KBO( :,42,15) = (/&
+ & 6.5588E+01_JPRB,6.6218E+01_JPRB,6.8898E+01_JPRB,7.2126E+01_JPRB,7.7367E+01_JPRB/)  
+KBO( :,43,15) = (/&
+ & 6.6237E+01_JPRB,6.6662E+01_JPRB,6.9435E+01_JPRB,7.2789E+01_JPRB,7.8130E+01_JPRB/)  
+KBO( :,44,15) = (/&
+ & 6.6904E+01_JPRB,6.7116E+01_JPRB,6.9940E+01_JPRB,7.3441E+01_JPRB,7.8892E+01_JPRB/)  
+KBO( :,45,15) = (/&
+ & 6.7540E+01_JPRB,6.7647E+01_JPRB,7.0523E+01_JPRB,7.4251E+01_JPRB,7.9999E+01_JPRB/)  
+KBO( :,46,15) = (/&
+ & 6.8229E+01_JPRB,6.8156E+01_JPRB,7.1033E+01_JPRB,7.4993E+01_JPRB,8.1031E+01_JPRB/)  
+KBO( :,47,15) = (/&
+ & 6.8961E+01_JPRB,6.8535E+01_JPRB,7.1211E+01_JPRB,7.5329E+01_JPRB,8.1268E+01_JPRB/)  
+KBO( :,48,15) = (/&
+ & 6.9704E+01_JPRB,6.8995E+01_JPRB,7.1616E+01_JPRB,7.5892E+01_JPRB,8.1953E+01_JPRB/)  
+KBO( :,49,15) = (/&
+ & 7.0407E+01_JPRB,6.9549E+01_JPRB,7.2228E+01_JPRB,7.6829E+01_JPRB,8.3431E+01_JPRB/)  
+KBO( :,50,15) = (/&
+ & 7.1019E+01_JPRB,6.9986E+01_JPRB,7.2345E+01_JPRB,7.7143E+01_JPRB,8.3800E+01_JPRB/)  
+KBO( :,51,15) = (/&
+ & 7.1592E+01_JPRB,7.0396E+01_JPRB,7.2261E+01_JPRB,7.7126E+01_JPRB,8.3618E+01_JPRB/)  
+KBO( :,52,15) = (/&
+ & 7.2111E+01_JPRB,7.0874E+01_JPRB,7.2332E+01_JPRB,7.7310E+01_JPRB,8.3944E+01_JPRB/)  
+KBO( :,53,15) = (/&
+ & 7.2640E+01_JPRB,7.1374E+01_JPRB,7.2614E+01_JPRB,7.7805E+01_JPRB,8.4912E+01_JPRB/)  
+KBO( :,54,15) = (/&
+ & 7.3148E+01_JPRB,7.1814E+01_JPRB,7.2024E+01_JPRB,7.6722E+01_JPRB,8.3248E+01_JPRB/)  
+KBO( :,55,15) = (/&
+ & 7.3606E+01_JPRB,7.2253E+01_JPRB,7.1500E+01_JPRB,7.4839E+01_JPRB,8.0825E+01_JPRB/)  
+KBO( :,56,15) = (/&
+ & 7.4051E+01_JPRB,7.2698E+01_JPRB,7.1487E+01_JPRB,7.3230E+01_JPRB,7.8699E+01_JPRB/)  
+KBO( :,57,15) = (/&
+ & 7.4472E+01_JPRB,7.3171E+01_JPRB,7.1839E+01_JPRB,7.2012E+01_JPRB,7.6638E+01_JPRB/)  
+KBO( :,58,15) = (/&
+ & 7.4894E+01_JPRB,7.3601E+01_JPRB,7.2242E+01_JPRB,7.1442E+01_JPRB,7.4559E+01_JPRB/)  
+KBO( :,59,15) = (/&
+ & 7.5080E+01_JPRB,7.3786E+01_JPRB,7.2416E+01_JPRB,7.1080E+01_JPRB,7.1531E+01_JPRB/)  
+KBO( :, 7,16) = (/&
+ & 3.8856E+02_JPRB,5.7915E+02_JPRB,8.1817E+02_JPRB,1.1061E+03_JPRB,1.4420E+03_JPRB/)  
+KBO( :, 8,16) = (/&
+ & 1.1173E+02_JPRB,1.7284E+02_JPRB,2.5169E+02_JPRB,3.4886E+02_JPRB,4.6421E+02_JPRB/)  
+KBO( :, 9,16) = (/&
+ & 1.6570E+01_JPRB,2.6651E+01_JPRB,4.0077E+01_JPRB,5.7028E+01_JPRB,7.7570E+01_JPRB/)  
+KBO( :,10,16) = (/&
+ & 1.1513E+01_JPRB,1.1599E+01_JPRB,1.1623E+01_JPRB,1.2273E+01_JPRB,2.0793E+01_JPRB/)  
+KBO( :,11,16) = (/&
+ & 9.4745E+00_JPRB,9.5365E+00_JPRB,9.5728E+00_JPRB,1.0446E+01_JPRB,1.7579E+01_JPRB/)  
+KBO( :,12,16) = (/&
+ & 9.0416E+00_JPRB,9.1073E+00_JPRB,9.1539E+00_JPRB,1.0349E+01_JPRB,1.7350E+01_JPRB/)  
+KBO( :,13,16) = (/&
+ & 8.4084E+00_JPRB,8.5999E+00_JPRB,8.8332E+00_JPRB,1.0153E+01_JPRB,1.6939E+01_JPRB/)  
+KBO( :,14,16) = (/&
+ & 1.0079E+01_JPRB,1.0411E+01_JPRB,1.0702E+01_JPRB,1.0966E+01_JPRB,1.3320E+01_JPRB/)  
+KBO( :,15,16) = (/&
+ & 1.2199E+01_JPRB,1.2610E+01_JPRB,1.2964E+01_JPRB,1.3286E+01_JPRB,1.3632E+01_JPRB/)  
+KBO( :,16,16) = (/&
+ & 1.4758E+01_JPRB,1.5257E+01_JPRB,1.5682E+01_JPRB,1.6062E+01_JPRB,1.6458E+01_JPRB/)  
+KBO( :,17,16) = (/&
+ & 1.7830E+01_JPRB,1.8419E+01_JPRB,1.8910E+01_JPRB,1.9353E+01_JPRB,1.9779E+01_JPRB/)  
+KBO( :,18,16) = (/&
+ & 2.1465E+01_JPRB,2.2139E+01_JPRB,2.2704E+01_JPRB,2.3183E+01_JPRB,2.3616E+01_JPRB/)  
+KBO( :,19,16) = (/&
+ & 2.5737E+01_JPRB,2.6464E+01_JPRB,2.7066E+01_JPRB,2.7553E+01_JPRB,2.7959E+01_JPRB/)  
+KBO( :,20,16) = (/&
+ & 3.0665E+01_JPRB,3.1418E+01_JPRB,3.2018E+01_JPRB,3.2468E+01_JPRB,3.2800E+01_JPRB/)  
+KBO( :,21,16) = (/&
+ & 3.6239E+01_JPRB,3.6953E+01_JPRB,3.7470E+01_JPRB,3.7836E+01_JPRB,3.8047E+01_JPRB/)  
+KBO( :,22,16) = (/&
+ & 4.2431E+01_JPRB,4.3003E+01_JPRB,4.3369E+01_JPRB,4.3556E+01_JPRB,4.3562E+01_JPRB/)  
+KBO( :,23,16) = (/&
+ & 4.9017E+01_JPRB,4.9364E+01_JPRB,4.9493E+01_JPRB,4.9449E+01_JPRB,4.9166E+01_JPRB/)  
+KBO( :,24,16) = (/&
+ & 5.5807E+01_JPRB,5.5827E+01_JPRB,5.5659E+01_JPRB,5.5279E+01_JPRB,5.4693E+01_JPRB/)  
+KBO( :,25,16) = (/&
+ & 6.2605E+01_JPRB,6.2250E+01_JPRB,6.1658E+01_JPRB,6.0879E+01_JPRB,5.9925E+01_JPRB/)  
+KBO( :,26,16) = (/&
+ & 6.9126E+01_JPRB,6.8329E+01_JPRB,6.7305E+01_JPRB,6.6047E+01_JPRB,6.4706E+01_JPRB/)  
+KBO( :,27,16) = (/&
+ & 7.5229E+01_JPRB,7.3889E+01_JPRB,7.2393E+01_JPRB,7.0704E+01_JPRB,6.8940E+01_JPRB/)  
+KBO( :,28,16) = (/&
+ & 8.0701E+01_JPRB,7.8841E+01_JPRB,7.6868E+01_JPRB,7.4764E+01_JPRB,7.2600E+01_JPRB/)  
+KBO( :,29,16) = (/&
+ & 8.5434E+01_JPRB,8.3106E+01_JPRB,8.0668E+01_JPRB,7.8169E+01_JPRB,7.5668E+01_JPRB/)  
+KBO( :,30,16) = (/&
+ & 8.9445E+01_JPRB,8.6639E+01_JPRB,8.3811E+01_JPRB,8.0953E+01_JPRB,7.8147E+01_JPRB/)  
+KBO( :,31,16) = (/&
+ & 9.2661E+01_JPRB,8.9490E+01_JPRB,8.6283E+01_JPRB,8.3138E+01_JPRB,8.0087E+01_JPRB/)  
+KBO( :,32,16) = (/&
+ & 9.5180E+01_JPRB,9.1672E+01_JPRB,8.8175E+01_JPRB,8.4788E+01_JPRB,8.1658E+01_JPRB/)  
+KBO( :,33,16) = (/&
+ & 9.7060E+01_JPRB,9.3296E+01_JPRB,8.9535E+01_JPRB,8.5975E+01_JPRB,8.6733E+01_JPRB/)  
+KBO( :,34,16) = (/&
+ & 9.8535E+01_JPRB,9.4543E+01_JPRB,9.0580E+01_JPRB,8.8544E+01_JPRB,9.8376E+01_JPRB/)  
+KBO( :,35,16) = (/&
+ & 9.9986E+01_JPRB,9.5782E+01_JPRB,9.1765E+01_JPRB,9.5678E+01_JPRB,1.1682E+02_JPRB/)  
+KBO( :,36,16) = (/&
+ & 1.0154E+02_JPRB,9.7161E+01_JPRB,9.4575E+01_JPRB,1.0592E+02_JPRB,1.3789E+02_JPRB/)  
+KBO( :,37,16) = (/&
+ & 1.0353E+02_JPRB,9.8977E+01_JPRB,9.7885E+01_JPRB,1.1385E+02_JPRB,1.5187E+02_JPRB/)  
+KBO( :,38,16) = (/&
+ & 1.0537E+02_JPRB,1.0066E+02_JPRB,1.0193E+02_JPRB,1.2434E+02_JPRB,1.6894E+02_JPRB/)  
+KBO( :,39,16) = (/&
+ & 1.0709E+02_JPRB,1.0226E+02_JPRB,1.0840E+02_JPRB,1.3970E+02_JPRB,1.9203E+02_JPRB/)  
+KBO( :,40,16) = (/&
+ & 1.0920E+02_JPRB,1.0414E+02_JPRB,1.1026E+02_JPRB,1.4309E+02_JPRB,1.9842E+02_JPRB/)  
+KBO( :,41,16) = (/&
+ & 1.1129E+02_JPRB,1.0602E+02_JPRB,1.1150E+02_JPRB,1.4497E+02_JPRB,2.0309E+02_JPRB/)  
+KBO( :,42,16) = (/&
+ & 1.1332E+02_JPRB,1.0786E+02_JPRB,1.1308E+02_JPRB,1.4794E+02_JPRB,2.0952E+02_JPRB/)  
+KBO( :,43,16) = (/&
+ & 1.1559E+02_JPRB,1.1003E+02_JPRB,1.1380E+02_JPRB,1.4865E+02_JPRB,2.1325E+02_JPRB/)  
+KBO( :,44,16) = (/&
+ & 1.1806E+02_JPRB,1.1228E+02_JPRB,1.1464E+02_JPRB,1.4922E+02_JPRB,2.1715E+02_JPRB/)  
+KBO( :,45,16) = (/&
+ & 1.2053E+02_JPRB,1.1454E+02_JPRB,1.1628E+02_JPRB,1.5180E+02_JPRB,2.2438E+02_JPRB/)  
+KBO( :,46,16) = (/&
+ & 1.2309E+02_JPRB,1.1696E+02_JPRB,1.1783E+02_JPRB,1.5362E+02_JPRB,2.3111E+02_JPRB/)  
+KBO( :,47,16) = (/&
+ & 1.2599E+02_JPRB,1.1969E+02_JPRB,1.1823E+02_JPRB,1.5084E+02_JPRB,2.3026E+02_JPRB/)  
+KBO( :,48,16) = (/&
+ & 1.2892E+02_JPRB,1.2242E+02_JPRB,1.1952E+02_JPRB,1.5067E+02_JPRB,2.3396E+02_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB8:PART7',1,ZHOOK_HANDLE)
+END SUBROUTINE PART7
+
+
+SUBROUTINE PART8
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB8:PART8',0,ZHOOK_HANDLE)
+
+
+KBO( :,49,16) = (/&
+ & 1.3193E+02_JPRB,1.2519E+02_JPRB,1.2177E+02_JPRB,1.5425E+02_JPRB,2.4535E+02_JPRB/)  
+KBO( :,50,16) = (/&
+ & 1.3498E+02_JPRB,1.2786E+02_JPRB,1.2310E+02_JPRB,1.5233E+02_JPRB,2.4573E+02_JPRB/)  
+KBO( :,51,16) = (/&
+ & 1.3812E+02_JPRB,1.3051E+02_JPRB,1.2450E+02_JPRB,1.4796E+02_JPRB,2.3986E+02_JPRB/)  
+KBO( :,52,16) = (/&
+ & 1.4129E+02_JPRB,1.3328E+02_JPRB,1.2643E+02_JPRB,1.4628E+02_JPRB,2.3868E+02_JPRB/)  
+KBO( :,53,16) = (/&
+ & 1.4456E+02_JPRB,1.3621E+02_JPRB,1.2885E+02_JPRB,1.4756E+02_JPRB,2.4494E+02_JPRB/)  
+KBO( :,54,16) = (/&
+ & 1.4765E+02_JPRB,1.3898E+02_JPRB,1.3126E+02_JPRB,1.3886E+02_JPRB,2.1886E+02_JPRB/)  
+KBO( :,55,16) = (/&
+ & 1.5067E+02_JPRB,1.4175E+02_JPRB,1.3370E+02_JPRB,1.3097E+02_JPRB,1.8055E+02_JPRB/)  
+KBO( :,56,16) = (/&
+ & 1.5379E+02_JPRB,1.4459E+02_JPRB,1.3623E+02_JPRB,1.2922E+02_JPRB,1.5393E+02_JPRB/)  
+KBO( :,57,16) = (/&
+ & 1.5705E+02_JPRB,1.4750E+02_JPRB,1.3886E+02_JPRB,1.3117E+02_JPRB,1.3814E+02_JPRB/)  
+KBO( :,58,16) = (/&
+ & 1.6030E+02_JPRB,1.5034E+02_JPRB,1.4144E+02_JPRB,1.3342E+02_JPRB,1.3000E+02_JPRB/)  
+KBO( :,59,16) = (/&
+ & 1.6165E+02_JPRB,1.5155E+02_JPRB,1.4250E+02_JPRB,1.3439E+02_JPRB,1.2723E+02_JPRB/)  
+
+!       SELFREFO is the array for the self-continuum.
+
+SELFREFO( :, 1) = (/&
+ & 3.15710E-02_JPRB, 2.74495E-02_JPRB, 2.38660E-02_JPRB, 2.07504E-02_JPRB, 1.80415E-02_JPRB,&
+ & 1.56862E-02_JPRB, 1.36384E-02_JPRB, 1.18580E-02_JPRB, 1.03099E-02_JPRB, 8.96400E-03_JPRB/)  
+SELFREFO( :, 2) = (/&
+ & 3.10782E-02_JPRB, 2.71526E-02_JPRB, 2.37228E-02_JPRB, 2.07262E-02_JPRB, 1.81082E-02_JPRB,&
+ & 1.58209E-02_JPRB, 1.38224E-02_JPRB, 1.20765E-02_JPRB, 1.05510E-02_JPRB, 9.21827E-03_JPRB/)  
+SELFREFO( :, 3) = (/&
+ & 3.08052E-02_JPRB, 2.68989E-02_JPRB, 2.34880E-02_JPRB, 2.05096E-02_JPRB, 1.79089E-02_JPRB,&
+ & 1.56380E-02_JPRB, 1.36550E-02_JPRB, 1.19235E-02_JPRB, 1.04116E-02_JPRB, 9.09133E-03_JPRB/)  
+SELFREFO( :, 4) = (/&
+ & 3.02590E-02_JPRB, 2.64547E-02_JPRB, 2.31287E-02_JPRB, 2.02209E-02_JPRB, 1.76786E-02_JPRB,&
+ & 1.54560E-02_JPRB, 1.35128E-02_JPRB, 1.18139E-02_JPRB, 1.03286E-02_JPRB, 9.03003E-03_JPRB/)  
+SELFREFO( :, 5) = (/&
+ & 2.98458E-02_JPRB, 2.61601E-02_JPRB, 2.29295E-02_JPRB, 2.00978E-02_JPRB, 1.76159E-02_JPRB,&
+ & 1.54404E-02_JPRB, 1.35336E-02_JPRB, 1.18623E-02_JPRB, 1.03974E-02_JPRB, 9.11337E-03_JPRB/)  
+SELFREFO( :, 6) = (/&
+ & 2.95965E-02_JPRB, 2.59395E-02_JPRB, 2.27343E-02_JPRB, 1.99252E-02_JPRB, 1.74632E-02_JPRB,&
+ & 1.53054E-02_JPRB, 1.34142E-02_JPRB, 1.17567E-02_JPRB, 1.03040E-02_JPRB, 9.03083E-03_JPRB/)  
+SELFREFO( :, 7) = (/&
+ & 2.97590E-02_JPRB, 2.60522E-02_JPRB, 2.28071E-02_JPRB, 1.99662E-02_JPRB, 1.74792E-02_JPRB,&
+ & 1.53020E-02_JPRB, 1.33959E-02_JPRB, 1.17273E-02_JPRB, 1.02665E-02_JPRB, 8.98772E-03_JPRB/)  
+SELFREFO( :, 8) = (/&
+ & 2.96582E-02_JPRB, 2.59789E-02_JPRB, 2.27560E-02_JPRB, 1.99330E-02_JPRB, 1.74602E-02_JPRB,&
+ & 1.52941E-02_JPRB, 1.33968E-02_JPRB, 1.17348E-02_JPRB, 1.02790E-02_JPRB, 9.00382E-03_JPRB/)  
+SELFREFO( :, 9) = (/&
+ & 2.97945E-02_JPRB, 2.60711E-02_JPRB, 2.28129E-02_JPRB, 1.99620E-02_JPRB, 1.74673E-02_JPRB,&
+ & 1.52844E-02_JPRB, 1.33743E-02_JPRB, 1.17029E-02_JPRB, 1.02404E-02_JPRB, 8.96062E-03_JPRB/)  
+SELFREFO( :,10) = (/&
+ & 2.97731E-02_JPRB, 2.60436E-02_JPRB, 2.27813E-02_JPRB, 1.99276E-02_JPRB, 1.74314E-02_JPRB,&
+ & 1.52478E-02_JPRB, 1.33378E-02_JPRB, 1.16671E-02_JPRB, 1.02056E-02_JPRB, 8.92719E-03_JPRB/)  
+SELFREFO( :,11) = (/&
+ & 2.94084E-02_JPRB, 2.57680E-02_JPRB, 2.25782E-02_JPRB, 1.97832E-02_JPRB, 1.73343E-02_JPRB,&
+ & 1.51885E-02_JPRB, 1.33083E-02_JPRB, 1.16609E-02_JPRB, 1.02174E-02_JPRB, 8.95261E-03_JPRB/)  
+SELFREFO( :,12) = (/&
+ & 2.97023E-02_JPRB, 2.60117E-02_JPRB, 2.27796E-02_JPRB, 1.99491E-02_JPRB, 1.74703E-02_JPRB,&
+ & 1.52996E-02_JPRB, 1.33985E-02_JPRB, 1.17337E-02_JPRB, 1.02757E-02_JPRB, 8.99890E-03_JPRB/)  
+SELFREFO( :,13) = (/&
+ & 2.96542E-02_JPRB, 2.59249E-02_JPRB, 2.26645E-02_JPRB, 1.98142E-02_JPRB, 1.73223E-02_JPRB,&
+ & 1.51438E-02_JPRB, 1.32393E-02_JPRB, 1.15743E-02_JPRB, 1.01187E-02_JPRB, 8.84612E-03_JPRB/)  
+SELFREFO( :,14) = (/&
+ & 2.89971E-02_JPRB, 2.53964E-02_JPRB, 2.22429E-02_JPRB, 1.94809E-02_JPRB, 1.70619E-02_JPRB,&
+ & 1.49433E-02_JPRB, 1.30877E-02_JPRB, 1.14626E-02_JPRB, 1.00392E-02_JPRB, 8.79262E-03_JPRB/)  
+SELFREFO( :,15) = (/&
+ & 2.80866E-02_JPRB, 2.46970E-02_JPRB, 2.17166E-02_JPRB, 1.90958E-02_JPRB, 1.67913E-02_JPRB,&
+ & 1.47649E-02_JPRB, 1.29830E-02_JPRB, 1.14162E-02_JPRB, 1.00385E-02_JPRB, 8.82704E-03_JPRB/)  
+SELFREFO( :,16) = (/&
+ & 2.80866E-02_JPRB, 2.46970E-02_JPRB, 2.17166E-02_JPRB, 1.90958E-02_JPRB, 1.67913E-02_JPRB,&
+ & 1.47649E-02_JPRB, 1.29830E-02_JPRB, 1.14162E-02_JPRB, 1.00385E-02_JPRB, 8.82704E-03_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB8:PART8',1,ZHOOK_HANDLE)
+END SUBROUTINE PART8
+
+
+
+END SUBROUTINE RRTM_KGB8
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb8.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb8.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb8.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_KGB8
+END SUBROUTINE RRTM_KGB8
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb9.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb9.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb9.F90	(revision 1989)
@@ -0,0 +1,5043 @@
+!OCL SCALAR
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0 
+SUBROUTINE RRTM_KGB9
+
+!     Originally by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     BAND 9:  1180-1390 cm-1 (low - H2O,CH4; high - CH4)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     R. Elkhatib 12-10-2005 Split for faster and more robust compilation.
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTO9 , ONLY : KAO     ,KBO     ,SELFREFO   ,FRACREFAO  ,&
+ & FRACREFBO, ABSN2OO  
+USE YOERRTA9 , ONLY : N2OREF  ,H2OREF  ,CH4REF     ,ETAREF     ,STRRAT
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9',0,ZHOOK_HANDLE)
+
+CALL PART1
+CALL PART2
+CALL PART3
+CALL PART4
+CALL PART5
+CALL PART6
+CALL PART7
+CALL PART8
+CALL PART9
+CALL PART10
+CALL PART11
+CALL PART12
+CALL PART13
+CALL PART14
+CALL PART15
+CALL PART16
+CALL PART17
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9',1,ZHOOK_HANDLE)
+
+!     -----------------------------------------------------------------
+
+CONTAINS
+
+
+SUBROUTINE PART1
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART1',0,ZHOOK_HANDLE)
+
+
+FRACREFBO( :) = (/&
+ !     From P = 0.071 mb.
+ & 0.20148601_JPRB,0.15252700_JPRB,0.13376500_JPRB,0.12184600_JPRB,&
+ & 0.10767800_JPRB,0.09307410_JPRB,0.07674570_JPRB,0.05876940_JPRB,&
+ & 0.04001480_JPRB,0.00424612_JPRB,0.00346896_JPRB,0.00269954_JPRB,&
+ & 0.00196864_JPRB,0.00122562_JPRB,0.00043628_JPRB,0.00004892_JPRB/)  
+
+N2OREF( :) = (/&
+ & 3.20000E-07_JPRB,3.20000E-07_JPRB,3.20000E-07_JPRB,3.20000E-07_JPRB,3.20000E-07_JPRB,&
+ & 3.19652E-07_JPRB,3.15324E-07_JPRB,3.03830E-07_JPRB,2.94221E-07_JPRB,2.84953E-07_JPRB,&
+ & 2.76714E-07_JPRB,2.64709E-07_JPRB,2.42847E-07_JPRB/)  
+
+H2OREF( :) = (/&
+ & 1.8759999E-02_JPRB, 1.2223309E-02_JPRB, 5.8908667E-03_JPRB, 2.7675382E-03_JPRB,  &
+ & 1.4065107E-03_JPRB, 7.5969833E-04_JPRB, 3.8875898E-04_JPRB, 1.6542293E-04_JPRB,  &
+ & 3.7189537E-05_JPRB, 7.4764857E-06_JPRB, 4.3081886E-06_JPRB, 3.3319423E-06_JPRB,  &
+ & 3.2039343E-06_JPRB/)  
+
+CH4REF( :) = (/&
+ & 1.7000001E-06_JPRB, 1.7000001E-06_JPRB, 1.6998713E-06_JPRB, 1.6904165E-06_JPRB,  &
+ & 1.6671424E-06_JPRB, 1.6350652E-06_JPRB, 1.6097551E-06_JPRB, 1.5590465E-06_JPRB,  &
+ & 1.5119849E-06_JPRB, 1.4741138E-06_JPRB, 1.4384609E-06_JPRB, 1.4002215E-06_JPRB,  &
+ & 1.3573376E-06_JPRB/)  
+
+ETAREF( :) = (/&
+ & 0.0_JPRB,0.125_JPRB,0.25_JPRB,0.375_JPRB,0.5_JPRB,0.625_JPRB,0.75_JPRB,0.875_JPRB,0.96_JPRB,0.99_JPRB,1.0_JPRB/)  
+
+ABSN2OO( :) = (/&
+ !     From P = 952.
+ & 3.26267E-01_JPRB,2.42869E-00_JPRB,1.15455E+01_JPRB,7.39478E-00_JPRB,&
+ & 5.16550E-00_JPRB,2.54474E-00_JPRB,3.53082E-00_JPRB,3.82278E-00_JPRB,&
+ & 1.81297E-00_JPRB,6.65313E-01_JPRB,1.23652E-01_JPRB,1.83895E-03_JPRB,&
+ & 1.70592E-03_JPRB,2.68434E-09_JPRB,0.0_JPRB,0.0_JPRB,&
+ !     From P = 620.
+ & 2.08632E-01_JPRB,1.11865E+00_JPRB,4.95975E+00_JPRB,8.10907E+00_JPRB,&
+ & 1.10408E+01_JPRB,5.45460E+00_JPRB,4.18611E+00_JPRB,3.53422E+00_JPRB,&
+ & 2.54164E+00_JPRB,3.65093E-01_JPRB,5.84480E-01_JPRB,2.26918E-01_JPRB,&
+ & 1.36230E-03_JPRB,5.54400E-10_JPRB,6.83703E-10_JPRB,0.0_JPRB,&
+ !     From P=313.
+ & 6.20022E-02_JPRB,2.69521E-01_JPRB,9.81928E-01_JPRB,1.65004E-00_JPRB,&
+ & 3.08089E-00_JPRB,5.38696E-00_JPRB,1.14600E+01_JPRB,2.41211E+01_JPRB,&
+ & 1.69655E+01_JPRB,1.37556E-00_JPRB,5.43254E-01_JPRB,3.52079E-01_JPRB,&
+ & 4.31888E-01_JPRB,4.82523E-06_JPRB,5.74747E-11_JPRB,0.0_JPRB/)  
+
+STRRAT = 21.6282_JPRB
+
+!     ------------------------------------------------------------------
+
+!     The array KAO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels> ~100mb, temperatures, and binary
+!     species parameters (see taumol.f for definition).  The first 
+!     index in the array, JS, runs from 1 to 11, and corresponds to 
+!     different values of the binary species parameter.  For instance, 
+!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, 
+!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index
+!     in the array, JT, which runs from 1 to 5, corresponds to different
+!     temperatures.  More specifically, JT = 3 means that the data are for
+!     the reference temperature TREF for this  pressure level, JT = 2 refers
+!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the JPth reference pressure level (see taumol.f for these levels
+!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates
+!     which g-interval the absorption coefficients are for.
+
+KAO( :, 1, 1, 1) = (/&
+ & 1.8511E-03_JPRB,2.1684E-03_JPRB,1.9806E-03_JPRB,1.7402E-03_JPRB,1.4775E-03_JPRB,1.1966E-03_JPRB,&
+ & 8.9433E-04_JPRB,5.6221E-04_JPRB,3.0428E-04_JPRB,1.8439E-04_JPRB,1.3102E-04_JPRB/)  
+KAO( :, 2, 1, 1) = (/&
+ & 2.0894E-03_JPRB,2.4523E-03_JPRB,2.2500E-03_JPRB,1.9818E-03_JPRB,1.6875E-03_JPRB,1.3729E-03_JPRB,&
+ & 1.0298E-03_JPRB,6.5344E-04_JPRB,3.5857E-04_JPRB,2.2082E-04_JPRB,1.5794E-04_JPRB/)  
+KAO( :, 3, 1, 1) = (/&
+ & 2.3330E-03_JPRB,2.7449E-03_JPRB,2.5294E-03_JPRB,2.2345E-03_JPRB,1.9095E-03_JPRB,1.5602E-03_JPRB,&
+ & 1.1757E-03_JPRB,7.5512E-04_JPRB,4.2015E-04_JPRB,2.6222E-04_JPRB,1.8993E-04_JPRB/)  
+KAO( :, 4, 1, 1) = (/&
+ & 2.5835E-03_JPRB,3.0490E-03_JPRB,2.8221E-03_JPRB,2.5018E-03_JPRB,2.1465E-03_JPRB,1.7595E-03_JPRB,&
+ & 1.3344E-03_JPRB,8.6724E-04_JPRB,4.8897E-04_JPRB,3.0971E-04_JPRB,2.2746E-04_JPRB/)  
+KAO( :, 5, 1, 1) = (/&
+ & 2.8404E-03_JPRB,3.3655E-03_JPRB,3.1292E-03_JPRB,2.7851E-03_JPRB,2.3984E-03_JPRB,1.9730E-03_JPRB,&
+ & 1.5065E-03_JPRB,9.9023E-04_JPRB,5.6589E-04_JPRB,3.6410E-04_JPRB,2.7116E-04_JPRB/)  
+KAO( :, 1, 2, 1) = (/&
+ & 1.5469E-03_JPRB,1.8260E-03_JPRB,1.6779E-03_JPRB,1.4743E-03_JPRB,1.2523E-03_JPRB,1.0146E-03_JPRB,&
+ & 7.5802E-04_JPRB,4.7362E-04_JPRB,2.5248E-04_JPRB,1.4960E-04_JPRB,1.0313E-04_JPRB/)  
+KAO( :, 2, 2, 1) = (/&
+ & 1.7573E-03_JPRB,2.0750E-03_JPRB,1.9149E-03_JPRB,1.6867E-03_JPRB,1.4365E-03_JPRB,1.1680E-03_JPRB,&
+ & 8.7632E-04_JPRB,5.5250E-04_JPRB,2.9879E-04_JPRB,1.7951E-04_JPRB,1.2466E-04_JPRB/)  
+KAO( :, 3, 2, 1) = (/&
+ & 1.9736E-03_JPRB,2.3350E-03_JPRB,2.1627E-03_JPRB,1.9104E-03_JPRB,1.6322E-03_JPRB,1.3324E-03_JPRB,&
+ & 1.0035E-03_JPRB,6.4000E-04_JPRB,3.5119E-04_JPRB,2.1343E-04_JPRB,1.4991E-04_JPRB/)  
+KAO( :, 4, 2, 1) = (/&
+ & 2.1961E-03_JPRB,2.6057E-03_JPRB,2.4227E-03_JPRB,2.1470E-03_JPRB,1.8412E-03_JPRB,1.5084E-03_JPRB,&
+ & 1.1417E-03_JPRB,7.3666E-04_JPRB,4.0980E-04_JPRB,2.5228E-04_JPRB,1.7955E-04_JPRB/)  
+KAO( :, 5, 2, 1) = (/&
+ & 2.4226E-03_JPRB,2.8887E-03_JPRB,2.6975E-03_JPRB,2.3995E-03_JPRB,2.0641E-03_JPRB,1.6967E-03_JPRB,&
+ & 1.2922E-03_JPRB,8.4309E-04_JPRB,4.7525E-04_JPRB,2.9676E-04_JPRB,2.1402E-04_JPRB/)  
+KAO( :, 1, 3, 1) = (/&
+ & 1.2487E-03_JPRB,1.4859E-03_JPRB,1.3703E-03_JPRB,1.2034E-03_JPRB,1.0233E-03_JPRB,8.2934E-04_JPRB,&
+ & 6.1870E-04_JPRB,3.8491E-04_JPRB,2.0061E-04_JPRB,1.1644E-04_JPRB,8.3034E-05_JPRB/)  
+KAO( :, 2, 3, 1) = (/&
+ & 1.4306E-03_JPRB,1.7008E-03_JPRB,1.5762E-03_JPRB,1.3877E-03_JPRB,1.1829E-03_JPRB,9.6138E-04_JPRB,&
+ & 7.2009E-04_JPRB,4.5115E-04_JPRB,2.3871E-04_JPRB,1.4060E-04_JPRB,1.0024E-04_JPRB/)  
+KAO( :, 3, 3, 1) = (/&
+ & 1.6189E-03_JPRB,1.9278E-03_JPRB,1.7928E-03_JPRB,1.5827E-03_JPRB,1.3525E-03_JPRB,1.1028E-03_JPRB,&
+ & 8.2939E-04_JPRB,5.2453E-04_JPRB,2.8190E-04_JPRB,1.6789E-04_JPRB,1.2022E-04_JPRB/)  
+KAO( :, 4, 3, 1) = (/&
+ & 1.8135E-03_JPRB,2.1671E-03_JPRB,2.0211E-03_JPRB,1.7891E-03_JPRB,1.5341E-03_JPRB,1.2544E-03_JPRB,&
+ & 9.4745E-04_JPRB,6.0589E-04_JPRB,3.3035E-04_JPRB,1.9886E-04_JPRB,1.4335E-04_JPRB/)  
+KAO( :, 5, 3, 1) = (/&
+ & 2.0119E-03_JPRB,2.4174E-03_JPRB,2.2628E-03_JPRB,2.0104E-03_JPRB,1.7281E-03_JPRB,1.4171E-03_JPRB,&
+ & 1.0763E-03_JPRB,6.9556E-04_JPRB,3.8485E-04_JPRB,2.3413E-04_JPRB,1.7025E-04_JPRB/)  
+KAO( :, 1, 4, 1) = (/&
+ & 9.9332E-04_JPRB,1.1937E-03_JPRB,1.1041E-03_JPRB,9.6868E-04_JPRB,8.2360E-04_JPRB,6.6725E-04_JPRB,&
+ & 4.9729E-04_JPRB,3.0812E-04_JPRB,1.5709E-04_JPRB,8.9177E-05_JPRB,7.0382E-05_JPRB/)  
+KAO( :, 2, 4, 1) = (/&
+ & 1.1489E-03_JPRB,1.3782E-03_JPRB,1.2812E-03_JPRB,1.1272E-03_JPRB,9.6052E-04_JPRB,7.8016E-04_JPRB,&
+ & 5.8305E-04_JPRB,3.6333E-04_JPRB,1.8801E-04_JPRB,1.0835E-04_JPRB,8.4949E-05_JPRB/)  
+KAO( :, 3, 4, 1) = (/&
+ & 1.3111E-03_JPRB,1.5738E-03_JPRB,1.4685E-03_JPRB,1.2957E-03_JPRB,1.1067E-03_JPRB,9.0126E-04_JPRB,&
+ & 6.7612E-04_JPRB,4.2453E-04_JPRB,2.2322E-04_JPRB,1.3010E-04_JPRB,1.0182E-04_JPRB/)  
+KAO( :, 4, 4, 1) = (/&
+ & 1.4784E-03_JPRB,1.7816E-03_JPRB,1.6672E-03_JPRB,1.4760E-03_JPRB,1.2640E-03_JPRB,1.0311E-03_JPRB,&
+ & 7.7663E-04_JPRB,4.9254E-04_JPRB,2.6274E-04_JPRB,1.5479E-04_JPRB,1.2151E-04_JPRB/)  
+KAO( :, 5, 4, 1) = (/&
+ & 1.6498E-03_JPRB,2.0005E-03_JPRB,1.8776E-03_JPRB,1.6682E-03_JPRB,1.4321E-03_JPRB,1.1713E-03_JPRB,&
+ & 8.8632E-04_JPRB,5.6750E-04_JPRB,3.0711E-04_JPRB,1.8305E-04_JPRB,1.4406E-04_JPRB/)  
+KAO( :, 1, 5, 1) = (/&
+ & 7.8562E-04_JPRB,9.5485E-04_JPRB,8.8731E-04_JPRB,7.7760E-04_JPRB,6.6042E-04_JPRB,5.3465E-04_JPRB,&
+ & 3.9818E-04_JPRB,2.4507E-04_JPRB,1.2280E-04_JPRB,6.8024E-05_JPRB,6.2892E-05_JPRB/)  
+KAO( :, 2, 5, 1) = (/&
+ & 9.1788E-04_JPRB,1.1130E-03_JPRB,1.0387E-03_JPRB,9.1348E-04_JPRB,7.7739E-04_JPRB,6.3079E-04_JPRB,&
+ & 4.7083E-04_JPRB,2.9144E-04_JPRB,1.4786E-04_JPRB,8.3150E-05_JPRB,7.5836E-05_JPRB/)  
+KAO( :, 3, 5, 1) = (/&
+ & 1.0564E-03_JPRB,1.2815E-03_JPRB,1.1993E-03_JPRB,1.0584E-03_JPRB,9.0286E-04_JPRB,7.3472E-04_JPRB,&
+ & 5.4988E-04_JPRB,3.4257E-04_JPRB,1.7646E-04_JPRB,1.0042E-04_JPRB,9.0784E-05_JPRB/)  
+KAO( :, 4, 5, 1) = (/&
+ & 1.2000E-03_JPRB,1.4607E-03_JPRB,1.3706E-03_JPRB,1.2143E-03_JPRB,1.0385E-03_JPRB,8.4626E-04_JPRB,&
+ & 6.3535E-04_JPRB,3.9924E-04_JPRB,2.0859E-04_JPRB,1.2014E-04_JPRB,1.0789E-04_JPRB/)  
+KAO( :, 5, 5, 1) = (/&
+ & 1.3470E-03_JPRB,1.6493E-03_JPRB,1.5534E-03_JPRB,1.3815E-03_JPRB,1.1841E-03_JPRB,9.6670E-04_JPRB,&
+ & 7.2902E-04_JPRB,4.6176E-04_JPRB,2.4472E-04_JPRB,1.4262E-04_JPRB,1.2760E-04_JPRB/)  
+KAO( :, 1, 6, 1) = (/&
+ & 6.1309E-04_JPRB,7.5529E-04_JPRB,7.0573E-04_JPRB,6.1814E-04_JPRB,5.2423E-04_JPRB,4.2388E-04_JPRB,&
+ & 3.1493E-04_JPRB,1.9253E-04_JPRB,9.5104E-05_JPRB,5.1400E-05_JPRB,5.8511E-05_JPRB/)  
+KAO( :, 2, 6, 1) = (/&
+ & 7.2529E-04_JPRB,8.9038E-04_JPRB,8.3470E-04_JPRB,7.3394E-04_JPRB,6.2382E-04_JPRB,5.0540E-04_JPRB,&
+ & 3.7640E-04_JPRB,2.3131E-04_JPRB,1.1537E-04_JPRB,6.3305E-05_JPRB,7.0591E-05_JPRB/)  
+KAO( :, 3, 6, 1) = (/&
+ & 8.4334E-04_JPRB,1.0336E-03_JPRB,9.7184E-04_JPRB,8.5812E-04_JPRB,7.3092E-04_JPRB,5.9381E-04_JPRB,&
+ & 4.4329E-04_JPRB,2.7409E-04_JPRB,1.3848E-04_JPRB,7.6884E-05_JPRB,8.4368E-05_JPRB/)  
+KAO( :, 4, 6, 1) = (/&
+ & 9.6591E-04_JPRB,1.1861E-03_JPRB,1.1181E-03_JPRB,9.9183E-04_JPRB,8.4677E-04_JPRB,6.8969E-04_JPRB,&
+ & 5.1579E-04_JPRB,3.2112E-04_JPRB,1.6446E-04_JPRB,9.2420E-05_JPRB,9.9996E-05_JPRB/)  
+KAO( :, 5, 6, 1) = (/&
+ & 1.0919E-03_JPRB,1.3468E-03_JPRB,1.2743E-03_JPRB,1.1355E-03_JPRB,9.7181E-04_JPRB,7.9286E-04_JPRB,&
+ & 5.9519E-04_JPRB,3.7314E-04_JPRB,1.9367E-04_JPRB,1.1025E-04_JPRB,1.1781E-04_JPRB/)  
+KAO( :, 1, 7, 1) = (/&
+ & 4.7156E-04_JPRB,5.8937E-04_JPRB,5.5332E-04_JPRB,4.8469E-04_JPRB,4.1048E-04_JPRB,3.3155E-04_JPRB,&
+ & 2.4554E-04_JPRB,1.4938E-04_JPRB,7.2895E-05_JPRB,3.8595E-05_JPRB,5.7264E-05_JPRB/)  
+KAO( :, 2, 7, 1) = (/&
+ & 5.6495E-04_JPRB,7.0294E-04_JPRB,6.6167E-04_JPRB,5.8245E-04_JPRB,4.9439E-04_JPRB,4.0002E-04_JPRB,&
+ & 2.9682E-04_JPRB,1.8140E-04_JPRB,8.9227E-05_JPRB,4.7916E-05_JPRB,6.9677E-05_JPRB/)  
+KAO( :, 3, 7, 1) = (/&
+ & 6.6439E-04_JPRB,8.2373E-04_JPRB,7.7721E-04_JPRB,6.8744E-04_JPRB,5.8490E-04_JPRB,4.7448E-04_JPRB,&
+ & 3.5318E-04_JPRB,2.1689E-04_JPRB,1.0783E-04_JPRB,5.8667E-05_JPRB,8.3618E-05_JPRB/)  
+KAO( :, 4, 7, 1) = (/&
+ & 7.6901E-04_JPRB,9.5239E-04_JPRB,9.0133E-04_JPRB,8.0079E-04_JPRB,6.8276E-04_JPRB,5.5536E-04_JPRB,&
+ & 4.1449E-04_JPRB,2.5602E-04_JPRB,1.2881E-04_JPRB,7.0934E-05_JPRB,9.9245E-05_JPRB/)  
+KAO( :, 5, 7, 1) = (/&
+ & 8.7687E-04_JPRB,1.0882E-03_JPRB,1.0337E-03_JPRB,9.2277E-04_JPRB,7.8860E-04_JPRB,6.4298E-04_JPRB,&
+ & 4.8152E-04_JPRB,2.9917E-04_JPRB,1.5235E-04_JPRB,8.4990E-05_JPRB,1.1668E-04_JPRB/)  
+KAO( :, 1, 8, 1) = (/&
+ & 3.6149E-04_JPRB,4.5739E-04_JPRB,4.3172E-04_JPRB,3.7856E-04_JPRB,3.2005E-04_JPRB,2.5782E-04_JPRB,&
+ & 1.9045E-04_JPRB,1.1541E-04_JPRB,5.5760E-05_JPRB,2.8968E-05_JPRB,6.3348E-05_JPRB/)  
+KAO( :, 2, 8, 1) = (/&
+ & 4.3856E-04_JPRB,5.5284E-04_JPRB,5.2317E-04_JPRB,4.6128E-04_JPRB,3.9080E-04_JPRB,3.1525E-04_JPRB,&
+ & 2.3332E-04_JPRB,1.4196E-04_JPRB,6.8893E-05_JPRB,3.6257E-05_JPRB,7.8227E-05_JPRB/)  
+KAO( :, 3, 8, 1) = (/&
+ & 5.2180E-04_JPRB,6.5495E-04_JPRB,6.2122E-04_JPRB,5.5050E-04_JPRB,4.6739E-04_JPRB,3.7783E-04_JPRB,&
+ & 2.8052E-04_JPRB,1.7141E-04_JPRB,8.3884E-05_JPRB,4.4746E-05_JPRB,9.4849E-05_JPRB/)  
+KAO( :, 4, 8, 1) = (/&
+ & 6.1041E-04_JPRB,7.6428E-04_JPRB,7.2626E-04_JPRB,6.4667E-04_JPRB,5.5039E-04_JPRB,4.4616E-04_JPRB,&
+ & 3.3220E-04_JPRB,2.0388E-04_JPRB,1.0087E-04_JPRB,5.4479E-05_JPRB,1.1299E-04_JPRB/)  
+KAO( :, 5, 8, 1) = (/&
+ & 7.0263E-04_JPRB,8.7961E-04_JPRB,8.3866E-04_JPRB,7.5024E-04_JPRB,6.4012E-04_JPRB,5.2015E-04_JPRB,&
+ & 3.8858E-04_JPRB,2.3987E-04_JPRB,1.1991E-04_JPRB,6.5600E-05_JPRB,1.3300E-04_JPRB/)  
+KAO( :, 1, 9, 1) = (/&
+ & 2.7588E-04_JPRB,3.5363E-04_JPRB,3.3564E-04_JPRB,2.9442E-04_JPRB,2.4845E-04_JPRB,1.9944E-04_JPRB,&
+ & 1.4687E-04_JPRB,8.8846E-05_JPRB,4.2564E-05_JPRB,2.1694E-05_JPRB,1.1635E-04_JPRB/)  
+KAO( :, 2, 9, 1) = (/&
+ & 3.3926E-04_JPRB,4.3331E-04_JPRB,4.1256E-04_JPRB,3.6456E-04_JPRB,3.0818E-04_JPRB,2.4781E-04_JPRB,&
+ & 1.8292E-04_JPRB,1.1098E-04_JPRB,5.3248E-05_JPRB,2.7395E-05_JPRB,1.4478E-04_JPRB/)  
+KAO( :, 3, 9, 1) = (/&
+ & 4.0867E-04_JPRB,5.1901E-04_JPRB,4.9554E-04_JPRB,4.4073E-04_JPRB,3.7338E-04_JPRB,3.0096E-04_JPRB,&
+ & 2.2284E-04_JPRB,1.3558E-04_JPRB,6.5394E-05_JPRB,3.4106E-05_JPRB,1.7665E-04_JPRB/)  
+KAO( :, 4, 9, 1) = (/&
+ & 4.8311E-04_JPRB,6.1155E-04_JPRB,5.8496E-04_JPRB,5.2319E-04_JPRB,4.4421E-04_JPRB,3.5901E-04_JPRB,&
+ & 2.6668E-04_JPRB,1.6266E-04_JPRB,7.9185E-05_JPRB,4.1808E-05_JPRB,2.1187E-04_JPRB/)  
+KAO( :, 5, 9, 1) = (/&
+ & 5.6145E-04_JPRB,7.0981E-04_JPRB,6.8093E-04_JPRB,6.1164E-04_JPRB,5.2090E-04_JPRB,4.2218E-04_JPRB,&
+ & 3.1451E-04_JPRB,1.9257E-04_JPRB,9.4690E-05_JPRB,5.0644E-05_JPRB,2.5097E-04_JPRB/)  
+KAO( :, 1,10, 1) = (/&
+ & 2.1325E-04_JPRB,2.7761E-04_JPRB,2.6556E-04_JPRB,2.3335E-04_JPRB,1.9651E-04_JPRB,1.5718E-04_JPRB,&
+ & 1.1525E-04_JPRB,6.9475E-05_JPRB,3.3064E-05_JPRB,1.6594E-05_JPRB,2.6093E-04_JPRB/)  
+KAO( :, 2,10, 1) = (/&
+ & 2.6523E-04_JPRB,3.4415E-04_JPRB,3.3059E-04_JPRB,2.9327E-04_JPRB,2.4721E-04_JPRB,1.9814E-04_JPRB,&
+ & 1.4562E-04_JPRB,8.8015E-05_JPRB,4.1956E-05_JPRB,2.1115E-05_JPRB,3.2387E-04_JPRB/)  
+KAO( :, 3,10, 1) = (/&
+ & 3.2298E-04_JPRB,4.1660E-04_JPRB,4.0088E-04_JPRB,3.5836E-04_JPRB,3.0264E-04_JPRB,2.4324E-04_JPRB,&
+ & 1.7951E-04_JPRB,1.0893E-04_JPRB,5.2077E-05_JPRB,2.6475E-05_JPRB,3.9665E-04_JPRB/)  
+KAO( :, 4,10, 1) = (/&
+ & 3.8555E-04_JPRB,4.9515E-04_JPRB,4.7688E-04_JPRB,4.2876E-04_JPRB,3.6342E-04_JPRB,2.9294E-04_JPRB,&
+ & 2.1704E-04_JPRB,1.3203E-04_JPRB,6.3508E-05_JPRB,3.2669E-05_JPRB,4.7888E-04_JPRB/)  
+KAO( :, 5,10, 1) = (/&
+ & 4.5214E-04_JPRB,5.7861E-04_JPRB,5.5869E-04_JPRB,5.0469E-04_JPRB,4.2960E-04_JPRB,3.4738E-04_JPRB,&
+ & 2.5818E-04_JPRB,1.5755E-04_JPRB,7.6353E-05_JPRB,3.9767E-05_JPRB,5.6953E-04_JPRB/)  
+KAO( :, 1,11, 1) = (/&
+ & 1.8263E-04_JPRB,2.4132E-04_JPRB,2.3375E-04_JPRB,2.0689E-04_JPRB,1.7392E-04_JPRB,1.3885E-04_JPRB,&
+ & 1.0153E-04_JPRB,6.1012E-05_JPRB,2.8844E-05_JPRB,1.4318E-05_JPRB,3.1500E-04_JPRB/)  
+KAO( :, 2,11, 1) = (/&
+ & 2.2729E-04_JPRB,2.9882E-04_JPRB,2.9035E-04_JPRB,2.5993E-04_JPRB,2.1873E-04_JPRB,1.7499E-04_JPRB,&
+ & 1.2837E-04_JPRB,7.7411E-05_JPRB,3.6724E-05_JPRB,1.8248E-05_JPRB,3.9075E-04_JPRB/)  
+KAO( :, 3,11, 1) = (/&
+ & 2.7702E-04_JPRB,3.6186E-04_JPRB,3.5142E-04_JPRB,3.1724E-04_JPRB,2.6804E-04_JPRB,2.1505E-04_JPRB,&
+ & 1.5840E-04_JPRB,9.5897E-05_JPRB,4.5698E-05_JPRB,2.2869E-05_JPRB,4.7807E-04_JPRB/)  
+KAO( :, 4,11, 1) = (/&
+ & 3.3090E-04_JPRB,4.2990E-04_JPRB,4.1786E-04_JPRB,3.7887E-04_JPRB,3.2210E-04_JPRB,2.5914E-04_JPRB,&
+ & 1.9166E-04_JPRB,1.1648E-04_JPRB,5.5756E-05_JPRB,2.8227E-05_JPRB,5.7397E-04_JPRB/)  
+KAO( :, 5,11, 1) = (/&
+ & 3.8797E-04_JPRB,5.0222E-04_JPRB,4.8941E-04_JPRB,4.4563E-04_JPRB,3.8069E-04_JPRB,3.0738E-04_JPRB,&
+ & 2.2816E-04_JPRB,1.3917E-04_JPRB,6.7021E-05_JPRB,3.4339E-05_JPRB,6.7669E-04_JPRB/)  
+KAO( :, 1,12, 1) = (/&
+ & 1.5441E-04_JPRB,2.0564E-04_JPRB,2.0096E-04_JPRB,1.7923E-04_JPRB,1.5061E-04_JPRB,1.2020E-04_JPRB,&
+ & 8.7841E-05_JPRB,5.2718E-05_JPRB,2.4841E-05_JPRB,1.2247E-05_JPRB,3.0779E-04_JPRB/)  
+KAO( :, 2,12, 1) = (/&
+ & 1.9212E-04_JPRB,2.5449E-04_JPRB,2.4895E-04_JPRB,2.2471E-04_JPRB,1.8931E-04_JPRB,1.5143E-04_JPRB,&
+ & 1.1103E-04_JPRB,6.6933E-05_JPRB,3.1660E-05_JPRB,1.5617E-05_JPRB,3.8209E-04_JPRB/)  
+KAO( :, 3,12, 1) = (/&
+ & 2.3412E-04_JPRB,3.0815E-04_JPRB,3.0111E-04_JPRB,2.7354E-04_JPRB,2.3196E-04_JPRB,1.8605E-04_JPRB,&
+ & 1.3699E-04_JPRB,8.2969E-05_JPRB,3.9466E-05_JPRB,1.9595E-05_JPRB,4.6727E-04_JPRB/)  
+KAO( :, 4,12, 1) = (/&
+ & 2.7956E-04_JPRB,3.6583E-04_JPRB,3.5793E-04_JPRB,3.2668E-04_JPRB,2.7866E-04_JPRB,2.2413E-04_JPRB,&
+ & 1.6571E-04_JPRB,1.0083E-04_JPRB,4.8187E-05_JPRB,2.4182E-05_JPRB,5.5911E-04_JPRB/)  
+KAO( :, 5,12, 1) = (/&
+ & 3.2770E-04_JPRB,4.2716E-04_JPRB,4.1907E-04_JPRB,3.8390E-04_JPRB,3.2941E-04_JPRB,2.6578E-04_JPRB,&
+ & 1.9722E-04_JPRB,1.2047E-04_JPRB,5.7910E-05_JPRB,2.9402E-05_JPRB,6.5729E-04_JPRB/)  
+KAO( :, 1,13, 1) = (/&
+ & 1.2926E-04_JPRB,1.7285E-04_JPRB,1.6977E-04_JPRB,1.5243E-04_JPRB,1.2815E-04_JPRB,1.0230E-04_JPRB,&
+ & 7.4794E-05_JPRB,4.4876E-05_JPRB,2.1143E-05_JPRB,1.0395E-05_JPRB,2.5481E-04_JPRB/)  
+KAO( :, 2,13, 1) = (/&
+ & 1.6076E-04_JPRB,2.1391E-04_JPRB,2.1001E-04_JPRB,1.9062E-04_JPRB,1.6104E-04_JPRB,1.2883E-04_JPRB,&
+ & 9.4499E-05_JPRB,5.6968E-05_JPRB,2.6983E-05_JPRB,1.3259E-05_JPRB,3.1628E-04_JPRB/)  
+KAO( :, 3,13, 1) = (/&
+ & 1.9591E-04_JPRB,2.5905E-04_JPRB,2.5408E-04_JPRB,2.3203E-04_JPRB,1.9732E-04_JPRB,1.5826E-04_JPRB,&
+ & 1.1655E-04_JPRB,7.0656E-05_JPRB,3.3658E-05_JPRB,1.6638E-05_JPRB,3.8652E-04_JPRB/)  
+KAO( :, 4,13, 1) = (/&
+ & 2.3390E-04_JPRB,3.0751E-04_JPRB,3.0205E-04_JPRB,2.7698E-04_JPRB,2.3712E-04_JPRB,1.9078E-04_JPRB,&
+ & 1.4104E-04_JPRB,8.5929E-05_JPRB,4.1109E-05_JPRB,2.0532E-05_JPRB,4.6199E-04_JPRB/)  
+KAO( :, 5,13, 1) = (/&
+ & 2.7408E-04_JPRB,3.5916E-04_JPRB,3.5371E-04_JPRB,3.2549E-04_JPRB,2.8046E-04_JPRB,2.2630E-04_JPRB,&
+ & 1.6790E-04_JPRB,1.0268E-04_JPRB,4.9402E-05_JPRB,2.4960E-05_JPRB,5.4289E-04_JPRB/)  
+KAO( :, 1, 1, 2) = (/&
+ & 6.0407E-03_JPRB,7.8065E-03_JPRB,8.1846E-03_JPRB,7.8906E-03_JPRB,7.1910E-03_JPRB,6.1108E-03_JPRB,&
+ & 4.6908E-03_JPRB,3.0070E-03_JPRB,1.6029E-03_JPRB,8.9663E-04_JPRB,5.4161E-04_JPRB/)  
+KAO( :, 2, 1, 2) = (/&
+ & 6.8195E-03_JPRB,8.6717E-03_JPRB,9.0298E-03_JPRB,8.7022E-03_JPRB,7.9330E-03_JPRB,6.7597E-03_JPRB,&
+ & 5.2275E-03_JPRB,3.3989E-03_JPRB,1.8520E-03_JPRB,1.0477E-03_JPRB,6.3833E-04_JPRB/)  
+KAO( :, 3, 1, 2) = (/&
+ & 7.5788E-03_JPRB,9.5388E-03_JPRB,9.9036E-03_JPRB,9.5604E-03_JPRB,8.7254E-03_JPRB,7.4504E-03_JPRB,&
+ & 5.8064E-03_JPRB,3.8251E-03_JPRB,2.1238E-03_JPRB,1.2161E-03_JPRB,7.5231E-04_JPRB/)  
+KAO( :, 4, 1, 2) = (/&
+ & 8.3303E-03_JPRB,1.0419E-02_JPRB,1.0813E-02_JPRB,1.0461E-02_JPRB,9.5556E-03_JPRB,8.1956E-03_JPRB,&
+ & 6.4324E-03_JPRB,4.2921E-03_JPRB,2.4115E-03_JPRB,1.4052E-03_JPRB,8.8294E-04_JPRB/)  
+KAO( :, 5, 1, 2) = (/&
+ & 9.0559E-03_JPRB,1.1320E-02_JPRB,1.1753E-02_JPRB,1.1384E-02_JPRB,1.0421E-02_JPRB,8.9932E-03_JPRB,&
+ & 7.1094E-03_JPRB,4.8020E-03_JPRB,2.7233E-03_JPRB,1.6150E-03_JPRB,1.0321E-03_JPRB/)  
+KAO( :, 1, 2, 2) = (/&
+ & 5.2124E-03_JPRB,6.6819E-03_JPRB,6.9789E-03_JPRB,6.7465E-03_JPRB,6.1674E-03_JPRB,5.2549E-03_JPRB,&
+ & 4.0193E-03_JPRB,2.5539E-03_JPRB,1.3468E-03_JPRB,7.4621E-04_JPRB,4.4731E-04_JPRB/)  
+KAO( :, 2, 2, 2) = (/&
+ & 5.8769E-03_JPRB,7.4300E-03_JPRB,7.7105E-03_JPRB,7.4546E-03_JPRB,6.8169E-03_JPRB,5.8241E-03_JPRB,&
+ & 4.4832E-03_JPRB,2.8884E-03_JPRB,1.5578E-03_JPRB,8.7448E-04_JPRB,5.2849E-04_JPRB/)  
+KAO( :, 3, 2, 2) = (/&
+ & 6.5337E-03_JPRB,8.1860E-03_JPRB,8.4759E-03_JPRB,8.2057E-03_JPRB,7.5067E-03_JPRB,6.4273E-03_JPRB,&
+ & 4.9857E-03_JPRB,3.2553E-03_JPRB,1.7880E-03_JPRB,1.0185E-03_JPRB,6.2321E-04_JPRB/)  
+KAO( :, 4, 2, 2) = (/&
+ & 7.1816E-03_JPRB,8.9552E-03_JPRB,9.2749E-03_JPRB,8.9993E-03_JPRB,8.2303E-03_JPRB,7.0662E-03_JPRB,&
+ & 5.5323E-03_JPRB,3.6583E-03_JPRB,2.0367E-03_JPRB,1.1804E-03_JPRB,7.3231E-04_JPRB/)  
+KAO( :, 5, 2, 2) = (/&
+ & 7.8051E-03_JPRB,9.7506E-03_JPRB,1.0101E-02_JPRB,9.8071E-03_JPRB,8.9873E-03_JPRB,7.7508E-03_JPRB,&
+ & 6.1243E-03_JPRB,4.1022E-03_JPRB,2.3063E-03_JPRB,1.3585E-03_JPRB,8.5647E-04_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART1',1,ZHOOK_HANDLE)
+END SUBROUTINE PART1
+
+
+SUBROUTINE PART2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART2',0,ZHOOK_HANDLE)
+
+
+KAO( :, 1, 3, 2) = (/&
+ & 4.3523E-03_JPRB,5.5520E-03_JPRB,5.7775E-03_JPRB,5.5913E-03_JPRB,5.1223E-03_JPRB,4.3826E-03_JPRB,&
+ & 3.3610E-03_JPRB,2.1161E-03_JPRB,1.0951E-03_JPRB,5.9556E-04_JPRB,3.7857E-04_JPRB/)  
+KAO( :, 2, 3, 2) = (/&
+ & 4.9209E-03_JPRB,6.2002E-03_JPRB,6.4082E-03_JPRB,6.1965E-03_JPRB,5.6752E-03_JPRB,4.8744E-03_JPRB,&
+ & 3.7636E-03_JPRB,2.3985E-03_JPRB,1.2700E-03_JPRB,7.0291E-04_JPRB,4.5096E-04_JPRB/)  
+KAO( :, 3, 3, 2) = (/&
+ & 5.4868E-03_JPRB,6.8502E-03_JPRB,7.0667E-03_JPRB,6.8427E-03_JPRB,6.2712E-03_JPRB,5.3957E-03_JPRB,&
+ & 4.1940E-03_JPRB,2.7077E-03_JPRB,1.4615E-03_JPRB,8.2150E-04_JPRB,5.3286E-04_JPRB/)  
+KAO( :, 4, 3, 2) = (/&
+ & 6.0417E-03_JPRB,7.5160E-03_JPRB,7.7553E-03_JPRB,7.5242E-03_JPRB,6.9056E-03_JPRB,5.9509E-03_JPRB,&
+ & 4.6578E-03_JPRB,3.0477E-03_JPRB,1.6703E-03_JPRB,9.5611E-04_JPRB,6.2579E-04_JPRB/)  
+KAO( :, 5, 3, 2) = (/&
+ & 6.5818E-03_JPRB,8.2045E-03_JPRB,8.4687E-03_JPRB,8.2290E-03_JPRB,7.5712E-03_JPRB,6.5448E-03_JPRB,&
+ & 5.1618E-03_JPRB,3.4239E-03_JPRB,1.8984E-03_JPRB,1.1049E-03_JPRB,7.3100E-04_JPRB/)  
+KAO( :, 1, 4, 2) = (/&
+ & 3.6037E-03_JPRB,4.5619E-03_JPRB,4.7284E-03_JPRB,4.5758E-03_JPRB,4.1942E-03_JPRB,3.5992E-03_JPRB,&
+ & 2.7695E-03_JPRB,1.7380E-03_JPRB,8.8220E-04_JPRB,4.6885E-04_JPRB,3.3625E-04_JPRB/)  
+KAO( :, 2, 4, 2) = (/&
+ & 4.0887E-03_JPRB,5.1148E-03_JPRB,5.2710E-03_JPRB,5.0898E-03_JPRB,4.6632E-03_JPRB,4.0157E-03_JPRB,&
+ & 3.1155E-03_JPRB,1.9801E-03_JPRB,1.0256E-03_JPRB,5.5681E-04_JPRB,4.0363E-04_JPRB/)  
+KAO( :, 3, 4, 2) = (/&
+ & 4.5729E-03_JPRB,5.6722E-03_JPRB,5.8309E-03_JPRB,5.6384E-03_JPRB,5.1725E-03_JPRB,4.4617E-03_JPRB,&
+ & 3.4837E-03_JPRB,2.2420E-03_JPRB,1.1837E-03_JPRB,6.5451E-04_JPRB,4.7814E-04_JPRB/)  
+KAO( :, 4, 4, 2) = (/&
+ & 5.0500E-03_JPRB,6.2435E-03_JPRB,6.4200E-03_JPRB,6.2178E-03_JPRB,5.7168E-03_JPRB,4.9415E-03_JPRB,&
+ & 3.8793E-03_JPRB,2.5280E-03_JPRB,1.3568E-03_JPRB,7.6386E-04_JPRB,5.6139E-04_JPRB/)  
+KAO( :, 5, 4, 2) = (/&
+ & 5.5166E-03_JPRB,6.8327E-03_JPRB,7.0292E-03_JPRB,6.8237E-03_JPRB,6.2950E-03_JPRB,5.4568E-03_JPRB,&
+ & 4.3128E-03_JPRB,2.8421E-03_JPRB,1.5485E-03_JPRB,8.8605E-04_JPRB,6.5402E-04_JPRB/)  
+KAO( :, 1, 5, 2) = (/&
+ & 2.9853E-03_JPRB,3.7407E-03_JPRB,3.8556E-03_JPRB,3.7312E-03_JPRB,3.4190E-03_JPRB,2.9428E-03_JPRB,&
+ & 2.2723E-03_JPRB,1.4198E-03_JPRB,7.1091E-04_JPRB,3.6855E-04_JPRB,3.1611E-04_JPRB/)  
+KAO( :, 2, 5, 2) = (/&
+ & 3.4022E-03_JPRB,4.2141E-03_JPRB,4.3188E-03_JPRB,4.1657E-03_JPRB,3.8152E-03_JPRB,3.2922E-03_JPRB,&
+ & 2.5629E-03_JPRB,1.6244E-03_JPRB,8.2914E-04_JPRB,4.3956E-04_JPRB,3.7920E-04_JPRB/)  
+KAO( :, 3, 5, 2) = (/&
+ & 3.8163E-03_JPRB,4.6908E-03_JPRB,4.7976E-03_JPRB,4.6281E-03_JPRB,4.2450E-03_JPRB,3.6719E-03_JPRB,&
+ & 2.8734E-03_JPRB,1.8464E-03_JPRB,9.6023E-04_JPRB,5.1918E-04_JPRB,4.5044E-04_JPRB/)  
+KAO( :, 4, 5, 2) = (/&
+ & 4.2238E-03_JPRB,5.1812E-03_JPRB,5.2987E-03_JPRB,5.1187E-03_JPRB,4.7071E-03_JPRB,4.0810E-03_JPRB,&
+ & 3.2111E-03_JPRB,2.0883E-03_JPRB,1.1042E-03_JPRB,6.0901E-04_JPRB,5.3057E-04_JPRB/)  
+KAO( :, 5, 5, 2) = (/&
+ & 4.6242E-03_JPRB,5.6849E-03_JPRB,5.8163E-03_JPRB,5.6316E-03_JPRB,5.2005E-03_JPRB,4.5233E-03_JPRB,&
+ & 3.5780E-03_JPRB,2.3536E-03_JPRB,1.2639E-03_JPRB,7.0822E-04_JPRB,6.1748E-04_JPRB/)  
+KAO( :, 1, 6, 2) = (/&
+ & 2.4498E-03_JPRB,3.0475E-03_JPRB,3.1220E-03_JPRB,3.0196E-03_JPRB,2.7652E-03_JPRB,2.3889E-03_JPRB,&
+ & 1.8491E-03_JPRB,1.1489E-03_JPRB,5.6714E-04_JPRB,2.8783E-04_JPRB,3.1080E-04_JPRB/)  
+KAO( :, 2, 6, 2) = (/&
+ & 2.8080E-03_JPRB,3.4520E-03_JPRB,3.5157E-03_JPRB,3.3870E-03_JPRB,3.0980E-03_JPRB,2.6793E-03_JPRB,&
+ & 2.0903E-03_JPRB,1.3197E-03_JPRB,6.6501E-04_JPRB,3.4472E-04_JPRB,3.7051E-04_JPRB/)  
+KAO( :, 3, 6, 2) = (/&
+ & 3.1640E-03_JPRB,3.8601E-03_JPRB,3.9229E-03_JPRB,3.7774E-03_JPRB,3.4589E-03_JPRB,2.9977E-03_JPRB,&
+ & 2.3510E-03_JPRB,1.5040E-03_JPRB,7.7398E-04_JPRB,4.0896E-04_JPRB,4.3796E-04_JPRB/)  
+KAO( :, 4, 6, 2) = (/&
+ & 3.5132E-03_JPRB,4.2794E-03_JPRB,4.3478E-03_JPRB,4.1882E-03_JPRB,3.8474E-03_JPRB,3.3403E-03_JPRB,&
+ & 2.6340E-03_JPRB,1.7060E-03_JPRB,8.9431E-04_JPRB,4.8188E-04_JPRB,5.1446E-04_JPRB/)  
+KAO( :, 5, 6, 2) = (/&
+ & 3.8604E-03_JPRB,4.7099E-03_JPRB,4.7886E-03_JPRB,4.6205E-03_JPRB,4.2616E-03_JPRB,3.7139E-03_JPRB,&
+ & 2.9438E-03_JPRB,1.9283E-03_JPRB,1.0272E-03_JPRB,5.6324E-04_JPRB,5.9978E-04_JPRB/)  
+KAO( :, 1, 7, 2) = (/&
+ & 1.9828E-03_JPRB,2.4555E-03_JPRB,2.5089E-03_JPRB,2.4265E-03_JPRB,2.2222E-03_JPRB,1.9219E-03_JPRB,&
+ & 1.4917E-03_JPRB,9.2169E-04_JPRB,4.4935E-04_JPRB,2.2355E-04_JPRB,3.2905E-04_JPRB/)  
+KAO( :, 2, 7, 2) = (/&
+ & 2.2898E-03_JPRB,2.8015E-03_JPRB,2.8404E-03_JPRB,2.7343E-03_JPRB,2.4995E-03_JPRB,2.1638E-03_JPRB,&
+ & 1.6905E-03_JPRB,1.0629E-03_JPRB,5.2977E-04_JPRB,2.6953E-04_JPRB,3.8642E-04_JPRB/)  
+KAO( :, 3, 7, 2) = (/&
+ & 2.5950E-03_JPRB,3.1495E-03_JPRB,3.1847E-03_JPRB,3.0608E-03_JPRB,2.7988E-03_JPRB,2.4271E-03_JPRB,&
+ & 1.9063E-03_JPRB,1.2157E-03_JPRB,6.1889E-04_JPRB,3.2121E-04_JPRB,4.5238E-04_JPRB/)  
+KAO( :, 4, 7, 2) = (/&
+ & 2.8946E-03_JPRB,3.5066E-03_JPRB,3.5426E-03_JPRB,3.4040E-03_JPRB,3.1227E-03_JPRB,2.7135E-03_JPRB,&
+ & 2.1417E-03_JPRB,1.3825E-03_JPRB,7.1739E-04_JPRB,3.7957E-04_JPRB,5.2784E-04_JPRB/)  
+KAO( :, 5, 7, 2) = (/&
+ & 3.1931E-03_JPRB,3.8740E-03_JPRB,3.9151E-03_JPRB,3.7654E-03_JPRB,3.4684E-03_JPRB,3.0255E-03_JPRB,&
+ & 2.3992E-03_JPRB,1.5660E-03_JPRB,8.2652E-04_JPRB,4.4537E-04_JPRB,6.1466E-04_JPRB/)  
+KAO( :, 1, 8, 2) = (/&
+ & 1.5989E-03_JPRB,1.9702E-03_JPRB,2.0115E-03_JPRB,1.9470E-03_JPRB,1.7844E-03_JPRB,1.5432E-03_JPRB,&
+ & 1.1995E-03_JPRB,7.3709E-04_JPRB,3.5460E-04_JPRB,1.7239E-04_JPRB,4.0077E-04_JPRB/)  
+KAO( :, 2, 8, 2) = (/&
+ & 1.8612E-03_JPRB,2.2667E-03_JPRB,2.2904E-03_JPRB,2.2044E-03_JPRB,2.0147E-03_JPRB,1.7439E-03_JPRB,&
+ & 1.3635E-03_JPRB,8.5344E-04_JPRB,4.2074E-04_JPRB,2.0967E-04_JPRB,4.6582E-04_JPRB/)  
+KAO( :, 3, 8, 2) = (/&
+ & 2.1244E-03_JPRB,2.5624E-03_JPRB,2.5789E-03_JPRB,2.4755E-03_JPRB,2.2630E-03_JPRB,1.9622E-03_JPRB,&
+ & 1.5425E-03_JPRB,9.7987E-04_JPRB,4.9319E-04_JPRB,2.5142E-04_JPRB,5.4055E-04_JPRB/)  
+KAO( :, 4, 8, 2) = (/&
+ & 2.3819E-03_JPRB,2.8649E-03_JPRB,2.8813E-03_JPRB,2.7618E-03_JPRB,2.5306E-03_JPRB,2.2005E-03_JPRB,&
+ & 1.7382E-03_JPRB,1.1179E-03_JPRB,5.7326E-04_JPRB,2.9833E-04_JPRB,6.2468E-04_JPRB/)  
+KAO( :, 5, 8, 2) = (/&
+ & 2.6384E-03_JPRB,3.1771E-03_JPRB,3.1953E-03_JPRB,3.0634E-03_JPRB,2.8174E-03_JPRB,2.4583E-03_JPRB,&
+ & 1.9520E-03_JPRB,1.2696E-03_JPRB,6.6233E-04_JPRB,3.5121E-04_JPRB,7.1932E-04_JPRB/)  
+KAO( :, 1, 9, 2) = (/&
+ & 1.2874E-03_JPRB,1.5807E-03_JPRB,1.6105E-03_JPRB,1.5596E-03_JPRB,1.4331E-03_JPRB,1.2409E-03_JPRB,&
+ & 9.6467E-04_JPRB,5.8855E-04_JPRB,2.7878E-04_JPRB,1.3223E-04_JPRB,7.1624E-04_JPRB/)  
+KAO( :, 2, 9, 2) = (/&
+ & 1.5123E-03_JPRB,1.8336E-03_JPRB,1.8477E-03_JPRB,1.7758E-03_JPRB,1.6249E-03_JPRB,1.4066E-03_JPRB,&
+ & 1.0996E-03_JPRB,6.8448E-04_JPRB,3.3322E-04_JPRB,1.6247E-04_JPRB,8.2651E-04_JPRB/)  
+KAO( :, 3, 9, 2) = (/&
+ & 1.7405E-03_JPRB,2.0860E-03_JPRB,2.0902E-03_JPRB,2.0023E-03_JPRB,1.8310E-03_JPRB,1.5864E-03_JPRB,&
+ & 1.2475E-03_JPRB,7.8935E-04_JPRB,3.9239E-04_JPRB,1.9609E-04_JPRB,9.5177E-04_JPRB/)  
+KAO( :, 4, 9, 2) = (/&
+ & 1.9645E-03_JPRB,2.3442E-03_JPRB,2.3456E-03_JPRB,2.2427E-03_JPRB,2.0525E-03_JPRB,1.7831E-03_JPRB,&
+ & 1.4096E-03_JPRB,9.0343E-04_JPRB,4.5751E-04_JPRB,2.3374E-04_JPRB,1.0933E-03_JPRB/)  
+KAO( :, 5, 9, 2) = (/&
+ & 2.1858E-03_JPRB,2.6097E-03_JPRB,2.6113E-03_JPRB,2.4953E-03_JPRB,2.2897E-03_JPRB,1.9950E-03_JPRB,&
+ & 1.5860E-03_JPRB,1.0288E-03_JPRB,5.2969E-04_JPRB,2.7603E-04_JPRB,1.2508E-03_JPRB/)  
+KAO( :, 1,10, 2) = (/&
+ & 1.0529E-03_JPRB,1.2869E-03_JPRB,1.3057E-03_JPRB,1.2641E-03_JPRB,1.1629E-03_JPRB,1.0080E-03_JPRB,&
+ & 7.8495E-04_JPRB,4.7620E-04_JPRB,2.2170E-04_JPRB,1.0270E-04_JPRB,1.3580E-03_JPRB/)  
+KAO( :, 2,10, 2) = (/&
+ & 1.2490E-03_JPRB,1.5074E-03_JPRB,1.5131E-03_JPRB,1.4495E-03_JPRB,1.3257E-03_JPRB,1.1471E-03_JPRB,&
+ & 8.9825E-04_JPRB,5.5593E-04_JPRB,2.6681E-04_JPRB,1.2750E-04_JPRB,1.5971E-03_JPRB/)  
+KAO( :, 3,10, 2) = (/&
+ & 1.4492E-03_JPRB,1.7260E-03_JPRB,1.7215E-03_JPRB,1.6426E-03_JPRB,1.5005E-03_JPRB,1.2985E-03_JPRB,&
+ & 1.0216E-03_JPRB,6.4239E-04_JPRB,3.1568E-04_JPRB,1.5479E-04_JPRB,1.8667E-03_JPRB/)  
+KAO( :, 4,10, 2) = (/&
+ & 1.6458E-03_JPRB,1.9481E-03_JPRB,1.9385E-03_JPRB,1.8468E-03_JPRB,1.6872E-03_JPRB,1.4625E-03_JPRB,&
+ & 1.1568E-03_JPRB,7.3723E-04_JPRB,3.6917E-04_JPRB,1.8512E-04_JPRB,2.1592E-03_JPRB/)  
+KAO( :, 5,10, 2) = (/&
+ & 1.8388E-03_JPRB,2.1768E-03_JPRB,2.1658E-03_JPRB,2.0613E-03_JPRB,1.8866E-03_JPRB,1.6398E-03_JPRB,&
+ & 1.3041E-03_JPRB,8.4131E-04_JPRB,4.2827E-04_JPRB,2.1913E-04_JPRB,2.4697E-03_JPRB/)  
+KAO( :, 1,11, 2) = (/&
+ & 9.3652E-04_JPRB,1.1385E-03_JPRB,1.1471E-03_JPRB,1.1044E-03_JPRB,1.0133E-03_JPRB,8.7645E-04_JPRB,&
+ & 6.8412E-04_JPRB,4.1724E-04_JPRB,1.9356E-04_JPRB,8.8827E-05_JPRB,1.5807E-03_JPRB/)  
+KAO( :, 2,11, 2) = (/&
+ & 1.1100E-03_JPRB,1.3322E-03_JPRB,1.3282E-03_JPRB,1.2667E-03_JPRB,1.1577E-03_JPRB,1.0002E-03_JPRB,&
+ & 7.8407E-04_JPRB,4.8629E-04_JPRB,2.3224E-04_JPRB,1.1007E-04_JPRB,1.8547E-03_JPRB/)  
+KAO( :, 3,11, 2) = (/&
+ & 1.2856E-03_JPRB,1.5232E-03_JPRB,1.5121E-03_JPRB,1.4368E-03_JPRB,1.3117E-03_JPRB,1.1334E-03_JPRB,&
+ & 8.9329E-04_JPRB,5.6169E-04_JPRB,2.7435E-04_JPRB,1.3331E-04_JPRB,2.1559E-03_JPRB/)  
+KAO( :, 4,11, 2) = (/&
+ & 1.4549E-03_JPRB,1.7175E-03_JPRB,1.7035E-03_JPRB,1.6171E-03_JPRB,1.4759E-03_JPRB,1.2781E-03_JPRB,&
+ & 1.0119E-03_JPRB,6.4442E-04_JPRB,3.2046E-04_JPRB,1.5895E-04_JPRB,2.4834E-03_JPRB/)  
+KAO( :, 5,11, 2) = (/&
+ & 1.6224E-03_JPRB,1.9187E-03_JPRB,1.9023E-03_JPRB,1.8058E-03_JPRB,1.6504E-03_JPRB,1.4334E-03_JPRB,&
+ & 1.1403E-03_JPRB,7.3509E-04_JPRB,3.7157E-04_JPRB,1.8783E-04_JPRB,2.8350E-03_JPRB/)  
+KAO( :, 1,12, 2) = (/&
+ & 8.1827E-04_JPRB,9.9361E-04_JPRB,9.9598E-04_JPRB,9.5548E-04_JPRB,8.7645E-04_JPRB,7.5891E-04_JPRB,&
+ & 5.9398E-04_JPRB,3.6310E-04_JPRB,1.6830E-04_JPRB,7.6627E-05_JPRB,1.5346E-03_JPRB/)  
+KAO( :, 2,12, 2) = (/&
+ & 9.6798E-04_JPRB,1.1604E-03_JPRB,1.1525E-03_JPRB,1.0960E-03_JPRB,1.0027E-03_JPRB,8.6748E-04_JPRB,&
+ & 6.8181E-04_JPRB,4.2341E-04_JPRB,2.0151E-04_JPRB,9.4708E-05_JPRB,1.7971E-03_JPRB/)  
+KAO( :, 3,12, 2) = (/&
+ & 1.1161E-03_JPRB,1.3239E-03_JPRB,1.3118E-03_JPRB,1.2444E-03_JPRB,1.1369E-03_JPRB,9.8346E-04_JPRB,&
+ & 7.7783E-04_JPRB,4.8954E-04_JPRB,2.3774E-04_JPRB,1.1437E-04_JPRB,2.0823E-03_JPRB/)  
+KAO( :, 4,12, 2) = (/&
+ & 1.2595E-03_JPRB,1.4901E-03_JPRB,1.4761E-03_JPRB,1.3996E-03_JPRB,1.2792E-03_JPRB,1.1092E-03_JPRB,&
+ & 8.8159E-04_JPRB,5.6210E-04_JPRB,2.7747E-04_JPRB,1.3609E-04_JPRB,2.3913E-03_JPRB/)  
+KAO( :, 5,12, 2) = (/&
+ & 1.4015E-03_JPRB,1.6631E-03_JPRB,1.6469E-03_JPRB,1.5633E-03_JPRB,1.4309E-03_JPRB,1.2447E-03_JPRB,&
+ & 9.9327E-04_JPRB,6.4127E-04_JPRB,3.2131E-04_JPRB,1.6049E-04_JPRB,2.7230E-03_JPRB/)  
+KAO( :, 1,13, 2) = (/&
+ & 7.0404E-04_JPRB,8.5653E-04_JPRB,8.5583E-04_JPRB,8.1887E-04_JPRB,7.5123E-04_JPRB,6.5123E-04_JPRB,&
+ & 5.1170E-04_JPRB,3.1408E-04_JPRB,1.4547E-04_JPRB,6.5608E-05_JPRB,1.2897E-03_JPRB/)  
+KAO( :, 2,13, 2) = (/&
+ & 8.3008E-04_JPRB,9.9639E-04_JPRB,9.8845E-04_JPRB,9.3911E-04_JPRB,8.5990E-04_JPRB,7.4464E-04_JPRB,&
+ & 5.8802E-04_JPRB,3.6685E-04_JPRB,1.7398E-04_JPRB,8.0807E-05_JPRB,1.5096E-03_JPRB/)  
+KAO( :, 3,13, 2) = (/&
+ & 9.5290E-04_JPRB,1.1338E-03_JPRB,1.1232E-03_JPRB,1.0653E-03_JPRB,9.7462E-04_JPRB,8.4434E-04_JPRB,&
+ & 6.7107E-04_JPRB,4.2462E-04_JPRB,2.0511E-04_JPRB,9.7336E-05_JPRB,1.7467E-03_JPRB/)  
+KAO( :, 4,13, 2) = (/&
+ & 1.0727E-03_JPRB,1.2739E-03_JPRB,1.2624E-03_JPRB,1.1971E-03_JPRB,1.0958E-03_JPRB,9.5214E-04_JPRB,&
+ & 7.5999E-04_JPRB,4.8760E-04_JPRB,2.3902E-04_JPRB,1.1564E-04_JPRB,2.0029E-03_JPRB/)  
+KAO( :, 5,13, 2) = (/&
+ & 1.1912E-03_JPRB,1.4186E-03_JPRB,1.4067E-03_JPRB,1.3365E-03_JPRB,1.2243E-03_JPRB,1.0674E-03_JPRB,&
+ & 8.5545E-04_JPRB,5.5580E-04_JPRB,2.7627E-04_JPRB,1.3629E-04_JPRB,2.2773E-03_JPRB/)  
+KAO( :, 1, 1, 3) = (/&
+ & 1.5976E-02_JPRB,1.8568E-02_JPRB,1.8677E-02_JPRB,1.8308E-02_JPRB,1.7430E-02_JPRB,1.5980E-02_JPRB,&
+ & 1.3794E-02_JPRB,1.0032E-02_JPRB,5.6593E-03_JPRB,3.1315E-03_JPRB,1.4725E-03_JPRB/)  
+KAO( :, 2, 1, 3) = (/&
+ & 1.7009E-02_JPRB,1.9983E-02_JPRB,2.0158E-02_JPRB,1.9765E-02_JPRB,1.8846E-02_JPRB,1.7308E-02_JPRB,&
+ & 1.4965E-02_JPRB,1.0920E-02_JPRB,6.2447E-03_JPRB,3.5291E-03_JPRB,1.7476E-03_JPRB/)  
+KAO( :, 3, 1, 3) = (/&
+ & 1.8075E-02_JPRB,2.1456E-02_JPRB,2.1662E-02_JPRB,2.1259E-02_JPRB,2.0298E-02_JPRB,1.8677E-02_JPRB,&
+ & 1.6168E-02_JPRB,1.1845E-02_JPRB,6.8970E-03_JPRB,3.9734E-03_JPRB,2.0647E-03_JPRB/)  
+KAO( :, 4, 1, 3) = (/&
+ & 1.9173E-02_JPRB,2.2980E-02_JPRB,2.3194E-02_JPRB,2.2786E-02_JPRB,2.1822E-02_JPRB,2.0115E-02_JPRB,&
+ & 1.7401E-02_JPRB,1.2827E-02_JPRB,7.6128E-03_JPRB,4.4580E-03_JPRB,2.4335E-03_JPRB/)  
+KAO( :, 5, 1, 3) = (/&
+ & 2.0338E-02_JPRB,2.4533E-02_JPRB,2.4778E-02_JPRB,2.4397E-02_JPRB,2.3401E-02_JPRB,2.1590E-02_JPRB,&
+ & 1.8677E-02_JPRB,1.3858E-02_JPRB,8.3792E-03_JPRB,4.9858E-03_JPRB,2.8649E-03_JPRB/)  
+KAO( :, 1, 2, 3) = (/&
+ & 1.3803E-02_JPRB,1.6030E-02_JPRB,1.6037E-02_JPRB,1.5594E-02_JPRB,1.4756E-02_JPRB,1.3459E-02_JPRB,&
+ & 1.1617E-02_JPRB,8.5122E-03_JPRB,4.8022E-03_JPRB,2.6569E-03_JPRB,1.3182E-03_JPRB/)  
+KAO( :, 2, 2, 3) = (/&
+ & 1.4747E-02_JPRB,1.7312E-02_JPRB,1.7346E-02_JPRB,1.6863E-02_JPRB,1.5968E-02_JPRB,1.4592E-02_JPRB,&
+ & 1.2613E-02_JPRB,9.2706E-03_JPRB,5.3102E-03_JPRB,3.0023E-03_JPRB,1.5460E-03_JPRB/)  
+KAO( :, 3, 2, 3) = (/&
+ & 1.5720E-02_JPRB,1.8638E-02_JPRB,1.8676E-02_JPRB,1.8166E-02_JPRB,1.7228E-02_JPRB,1.5775E-02_JPRB,&
+ & 1.3646E-02_JPRB,1.0060E-02_JPRB,5.8750E-03_JPRB,3.3882E-03_JPRB,1.8045E-03_JPRB/)  
+KAO( :, 4, 2, 3) = (/&
+ & 1.6750E-02_JPRB,1.9993E-02_JPRB,2.0028E-02_JPRB,1.9499E-02_JPRB,1.8542E-02_JPRB,1.7020E-02_JPRB,&
+ & 1.4712E-02_JPRB,1.0896E-02_JPRB,6.4908E-03_JPRB,3.8125E-03_JPRB,2.0990E-03_JPRB/)  
+KAO( :, 5, 2, 3) = (/&
+ & 1.7833E-02_JPRB,2.1360E-02_JPRB,2.1424E-02_JPRB,2.0911E-02_JPRB,1.9906E-02_JPRB,1.8307E-02_JPRB,&
+ & 1.5816E-02_JPRB,1.1769E-02_JPRB,7.1573E-03_JPRB,4.2773E-03_JPRB,2.4433E-03_JPRB/)  
+KAO( :, 1, 3, 3) = (/&
+ & 1.1661E-02_JPRB,1.3546E-02_JPRB,1.3524E-02_JPRB,1.3093E-02_JPRB,1.2307E-02_JPRB,1.1159E-02_JPRB,&
+ & 9.5780E-03_JPRB,7.0484E-03_JPRB,3.9675E-03_JPRB,2.1846E-03_JPRB,1.2406E-03_JPRB/)  
+KAO( :, 2, 3, 3) = (/&
+ & 1.2503E-02_JPRB,1.4707E-02_JPRB,1.4691E-02_JPRB,1.4206E-02_JPRB,1.3360E-02_JPRB,1.2110E-02_JPRB,&
+ & 1.0409E-02_JPRB,7.6788E-03_JPRB,4.3933E-03_JPRB,2.4719E-03_JPRB,1.4298E-03_JPRB/)  
+KAO( :, 3, 3, 3) = (/&
+ & 1.3391E-02_JPRB,1.5887E-02_JPRB,1.5874E-02_JPRB,1.5334E-02_JPRB,1.4440E-02_JPRB,1.3111E-02_JPRB,&
+ & 1.1280E-02_JPRB,8.3388E-03_JPRB,4.8688E-03_JPRB,2.7958E-03_JPRB,1.6523E-03_JPRB/)  
+KAO( :, 4, 3, 3) = (/&
+ & 1.4336E-02_JPRB,1.7085E-02_JPRB,1.7069E-02_JPRB,1.6495E-02_JPRB,1.5553E-02_JPRB,1.4166E-02_JPRB,&
+ & 1.2195E-02_JPRB,9.0457E-03_JPRB,5.3867E-03_JPRB,3.1533E-03_JPRB,1.9090E-03_JPRB/)  
+KAO( :, 5, 3, 3) = (/&
+ & 1.5320E-02_JPRB,1.8321E-02_JPRB,1.8292E-02_JPRB,1.7706E-02_JPRB,1.6704E-02_JPRB,1.5265E-02_JPRB,&
+ & 1.3148E-02_JPRB,9.7836E-03_JPRB,5.9483E-03_JPRB,3.5492E-03_JPRB,2.2059E-03_JPRB/)  
+KAO( :, 1, 4, 3) = (/&
+ & 9.7449E-03_JPRB,1.1294E-02_JPRB,1.1258E-02_JPRB,1.0884E-02_JPRB,1.0199E-02_JPRB,9.2227E-03_JPRB,&
+ & 7.8658E-03_JPRB,5.7767E-03_JPRB,3.2406E-03_JPRB,1.7708E-03_JPRB,1.2728E-03_JPRB/)  
+KAO( :, 2, 4, 3) = (/&
+ & 1.0487E-02_JPRB,1.2330E-02_JPRB,1.2286E-02_JPRB,1.1862E-02_JPRB,1.1122E-02_JPRB,1.0046E-02_JPRB,&
+ & 8.5629E-03_JPRB,6.2952E-03_JPRB,3.5929E-03_JPRB,2.0093E-03_JPRB,1.4326E-03_JPRB/)  
+KAO( :, 3, 4, 3) = (/&
+ & 1.1282E-02_JPRB,1.3369E-02_JPRB,1.3332E-02_JPRB,1.2857E-02_JPRB,1.2064E-02_JPRB,1.0901E-02_JPRB,&
+ & 9.2930E-03_JPRB,6.8463E-03_JPRB,3.9872E-03_JPRB,2.2770E-03_JPRB,1.6227E-03_JPRB/)  
+KAO( :, 4, 4, 3) = (/&
+ & 1.2130E-02_JPRB,1.4435E-02_JPRB,1.4396E-02_JPRB,1.3883E-02_JPRB,1.3026E-02_JPRB,1.1786E-02_JPRB,&
+ & 1.0067E-02_JPRB,7.4371E-03_JPRB,4.4153E-03_JPRB,2.5725E-03_JPRB,1.8437E-03_JPRB/)  
+KAO( :, 5, 4, 3) = (/&
+ & 1.3022E-02_JPRB,1.5544E-02_JPRB,1.5501E-02_JPRB,1.4941E-02_JPRB,1.4007E-02_JPRB,1.2708E-02_JPRB,&
+ & 1.0876E-02_JPRB,8.0666E-03_JPRB,4.8767E-03_JPRB,2.9035E-03_JPRB,2.1000E-03_JPRB/)  
+KAO( :, 1, 5, 3) = (/&
+ & 8.1183E-03_JPRB,9.3706E-03_JPRB,9.3339E-03_JPRB,9.0036E-03_JPRB,8.4209E-03_JPRB,7.5832E-03_JPRB,&
+ & 6.4445E-03_JPRB,4.7331E-03_JPRB,2.6371E-03_JPRB,1.4269E-03_JPRB,1.3512E-03_JPRB/)  
+KAO( :, 2, 5, 3) = (/&
+ & 8.7619E-03_JPRB,1.0271E-02_JPRB,1.0226E-02_JPRB,9.8533E-03_JPRB,9.2177E-03_JPRB,8.3034E-03_JPRB,&
+ & 7.0466E-03_JPRB,5.1625E-03_JPRB,2.9261E-03_JPRB,1.6222E-03_JPRB,1.4975E-03_JPRB/)  
+KAO( :, 3, 5, 3) = (/&
+ & 9.4590E-03_JPRB,1.1191E-02_JPRB,1.1132E-02_JPRB,1.0717E-02_JPRB,1.0035E-02_JPRB,9.0438E-03_JPRB,&
+ & 7.6825E-03_JPRB,5.6186E-03_JPRB,3.2487E-03_JPRB,1.8419E-03_JPRB,1.6628E-03_JPRB/)  
+KAO( :, 4, 5, 3) = (/&
+ & 1.0214E-02_JPRB,1.2129E-02_JPRB,1.2065E-02_JPRB,1.1613E-02_JPRB,1.0874E-02_JPRB,9.8104E-03_JPRB,&
+ & 8.3376E-03_JPRB,6.1127E-03_JPRB,3.6040E-03_JPRB,2.0844E-03_JPRB,1.8526E-03_JPRB/)  
+KAO( :, 5, 5, 3) = (/&
+ & 1.1012E-02_JPRB,1.3112E-02_JPRB,1.3045E-02_JPRB,1.2543E-02_JPRB,1.1733E-02_JPRB,1.0605E-02_JPRB,&
+ & 9.0222E-03_JPRB,6.6408E-03_JPRB,3.9796E-03_JPRB,2.3572E-03_JPRB,2.0770E-03_JPRB/)  
+KAO( :, 1, 6, 3) = (/&
+ & 6.7387E-03_JPRB,7.7194E-03_JPRB,7.6902E-03_JPRB,7.3986E-03_JPRB,6.9016E-03_JPRB,6.1800E-03_JPRB,&
+ & 5.2304E-03_JPRB,3.8605E-03_JPRB,2.1393E-03_JPRB,1.1384E-03_JPRB,1.3809E-03_JPRB/)  
+KAO( :, 2, 6, 3) = (/&
+ & 7.2904E-03_JPRB,8.4901E-03_JPRB,8.4559E-03_JPRB,8.1341E-03_JPRB,7.5897E-03_JPRB,6.8043E-03_JPRB,&
+ & 5.7497E-03_JPRB,4.2219E-03_JPRB,2.3703E-03_JPRB,1.2951E-03_JPRB,1.5336E-03_JPRB/)  
+KAO( :, 3, 6, 3) = (/&
+ & 7.8883E-03_JPRB,9.2955E-03_JPRB,9.2345E-03_JPRB,8.8797E-03_JPRB,8.2936E-03_JPRB,7.4421E-03_JPRB,&
+ & 6.2952E-03_JPRB,4.6028E-03_JPRB,2.6285E-03_JPRB,1.4716E-03_JPRB,1.6931E-03_JPRB/)  
+KAO( :, 4, 6, 3) = (/&
+ & 8.5494E-03_JPRB,1.0121E-02_JPRB,1.0046E-02_JPRB,9.6522E-03_JPRB,9.0176E-03_JPRB,8.1042E-03_JPRB,&
+ & 6.8613E-03_JPRB,5.0179E-03_JPRB,2.9165E-03_JPRB,1.6693E-03_JPRB,1.8690E-03_JPRB/)  
+KAO( :, 5, 6, 3) = (/&
+ & 9.2455E-03_JPRB,1.0989E-02_JPRB,1.0902E-02_JPRB,1.0465E-02_JPRB,9.7689E-03_JPRB,8.7913E-03_JPRB,&
+ & 7.4494E-03_JPRB,5.4572E-03_JPRB,3.2276E-03_JPRB,1.8909E-03_JPRB,2.0643E-03_JPRB/)  
+KAO( :, 1, 7, 3) = (/&
+ & 5.5708E-03_JPRB,6.3303E-03_JPRB,6.2934E-03_JPRB,6.0276E-03_JPRB,5.6127E-03_JPRB,5.0058E-03_JPRB,&
+ & 4.2172E-03_JPRB,3.1142E-03_JPRB,1.7288E-03_JPRB,9.0214E-04_JPRB,1.3580E-03_JPRB/)  
+KAO( :, 2, 7, 3) = (/&
+ & 6.0396E-03_JPRB,6.9771E-03_JPRB,6.9412E-03_JPRB,6.6559E-03_JPRB,6.1993E-03_JPRB,5.5301E-03_JPRB,&
+ & 4.6524E-03_JPRB,3.4207E-03_JPRB,1.9119E-03_JPRB,1.0257E-03_JPRB,1.5329E-03_JPRB/)  
+KAO( :, 3, 7, 3) = (/&
+ & 6.5450E-03_JPRB,7.6646E-03_JPRB,7.6059E-03_JPRB,7.3014E-03_JPRB,6.8031E-03_JPRB,6.0741E-03_JPRB,&
+ & 5.1130E-03_JPRB,3.7412E-03_JPRB,2.1172E-03_JPRB,1.1666E-03_JPRB,1.7255E-03_JPRB/)  
+KAO( :, 4, 7, 3) = (/&
+ & 7.1105E-03_JPRB,8.3764E-03_JPRB,8.3038E-03_JPRB,7.9705E-03_JPRB,7.4282E-03_JPRB,6.6393E-03_JPRB,&
+ & 5.5928E-03_JPRB,4.0886E-03_JPRB,2.3470E-03_JPRB,1.3258E-03_JPRB,1.9241E-03_JPRB/)  
+KAO( :, 5, 7, 3) = (/&
+ & 7.7089E-03_JPRB,9.1270E-03_JPRB,9.0467E-03_JPRB,8.6734E-03_JPRB,8.0760E-03_JPRB,7.2286E-03_JPRB,&
+ & 6.0941E-03_JPRB,4.4574E-03_JPRB,2.6042E-03_JPRB,1.5049E-03_JPRB,2.1289E-03_JPRB/)  
+KAO( :, 1, 8, 3) = (/&
+ & 4.5931E-03_JPRB,5.1838E-03_JPRB,5.1398E-03_JPRB,4.8986E-03_JPRB,4.5439E-03_JPRB,4.0450E-03_JPRB,&
+ & 3.3970E-03_JPRB,2.5021E-03_JPRB,1.3915E-03_JPRB,7.1461E-04_JPRB,1.4342E-03_JPRB/)  
+KAO( :, 2, 8, 3) = (/&
+ & 4.9923E-03_JPRB,5.7205E-03_JPRB,5.6835E-03_JPRB,5.4255E-03_JPRB,5.0420E-03_JPRB,4.4815E-03_JPRB,&
+ & 3.7569E-03_JPRB,2.7595E-03_JPRB,1.5378E-03_JPRB,8.1223E-04_JPRB,1.6265E-03_JPRB/)  
+KAO( :, 3, 8, 3) = (/&
+ & 5.4187E-03_JPRB,6.3059E-03_JPRB,6.2512E-03_JPRB,5.9779E-03_JPRB,5.5552E-03_JPRB,4.9397E-03_JPRB,&
+ & 4.1407E-03_JPRB,3.0283E-03_JPRB,1.7020E-03_JPRB,9.2374E-04_JPRB,1.8395E-03_JPRB/)  
+KAO( :, 4, 8, 3) = (/&
+ & 5.8951E-03_JPRB,6.9159E-03_JPRB,6.8456E-03_JPRB,6.5555E-03_JPRB,6.0927E-03_JPRB,5.4203E-03_JPRB,&
+ & 4.5434E-03_JPRB,3.3140E-03_JPRB,1.8874E-03_JPRB,1.0500E-03_JPRB,2.0723E-03_JPRB/)  
+KAO( :, 5, 8, 3) = (/&
+ & 6.4067E-03_JPRB,7.5583E-03_JPRB,7.4822E-03_JPRB,7.1624E-03_JPRB,6.6529E-03_JPRB,5.9218E-03_JPRB,&
+ & 4.9680E-03_JPRB,3.6203E-03_JPRB,2.0980E-03_JPRB,1.1933E-03_JPRB,2.3247E-03_JPRB/)  
+KAO( :, 1, 9, 3) = (/&
+ & 3.7723E-03_JPRB,4.2334E-03_JPRB,4.1819E-03_JPRB,3.9649E-03_JPRB,3.6588E-03_JPRB,3.2575E-03_JPRB,&
+ & 2.7305E-03_JPRB,2.0072E-03_JPRB,1.1193E-03_JPRB,5.6741E-04_JPRB,1.9860E-03_JPRB/)  
+KAO( :, 2, 9, 3) = (/&
+ & 4.1112E-03_JPRB,4.6764E-03_JPRB,4.6357E-03_JPRB,4.4068E-03_JPRB,4.0793E-03_JPRB,3.6198E-03_JPRB,&
+ & 3.0290E-03_JPRB,2.2191E-03_JPRB,1.2358E-03_JPRB,6.4340E-04_JPRB,2.2587E-03_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART2',1,ZHOOK_HANDLE)
+END SUBROUTINE PART2
+
+
+SUBROUTINE PART3
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART3',0,ZHOOK_HANDLE)
+
+
+KAO( :, 3, 9, 3) = (/&
+ & 4.4681E-03_JPRB,5.1657E-03_JPRB,5.1169E-03_JPRB,4.8742E-03_JPRB,4.5148E-03_JPRB,4.0038E-03_JPRB,&
+ & 3.3466E-03_JPRB,2.4441E-03_JPRB,1.3675E-03_JPRB,7.3070E-04_JPRB,2.5668E-03_JPRB/)  
+KAO( :, 4, 9, 3) = (/&
+ & 4.8668E-03_JPRB,5.6866E-03_JPRB,5.6264E-03_JPRB,5.3677E-03_JPRB,4.9748E-03_JPRB,4.4113E-03_JPRB,&
+ & 3.6848E-03_JPRB,2.6780E-03_JPRB,1.5165E-03_JPRB,8.3094E-04_JPRB,2.9044E-03_JPRB/)  
+KAO( :, 5, 9, 3) = (/&
+ & 5.3024E-03_JPRB,6.2338E-03_JPRB,6.1683E-03_JPRB,5.8906E-03_JPRB,5.4560E-03_JPRB,4.8416E-03_JPRB,&
+ & 4.0418E-03_JPRB,2.9316E-03_JPRB,1.6868E-03_JPRB,9.4494E-04_JPRB,3.2758E-03_JPRB/)  
+KAO( :, 1,10, 3) = (/&
+ & 3.1048E-03_JPRB,3.4713E-03_JPRB,3.4149E-03_JPRB,3.2215E-03_JPRB,2.9606E-03_JPRB,2.6323E-03_JPRB,&
+ & 2.2040E-03_JPRB,1.6183E-03_JPRB,9.0511E-04_JPRB,4.5442E-04_JPRB,3.4066E-03_JPRB/)  
+KAO( :, 2,10, 3) = (/&
+ & 3.3920E-03_JPRB,3.8387E-03_JPRB,3.7924E-03_JPRB,3.5898E-03_JPRB,3.3084E-03_JPRB,2.9358E-03_JPRB,&
+ & 2.4507E-03_JPRB,1.7915E-03_JPRB,9.9919E-04_JPRB,5.1342E-04_JPRB,3.8889E-03_JPRB/)  
+KAO( :, 3,10, 3) = (/&
+ & 3.6957E-03_JPRB,4.2459E-03_JPRB,4.1994E-03_JPRB,3.9831E-03_JPRB,3.6769E-03_JPRB,3.2571E-03_JPRB,&
+ & 2.7157E-03_JPRB,1.9778E-03_JPRB,1.1048E-03_JPRB,5.8256E-04_JPRB,4.4355E-03_JPRB/)  
+KAO( :, 4,10, 3) = (/&
+ & 4.0318E-03_JPRB,4.6867E-03_JPRB,4.6340E-03_JPRB,4.4000E-03_JPRB,4.0676E-03_JPRB,3.6005E-03_JPRB,&
+ & 2.9971E-03_JPRB,2.1730E-03_JPRB,1.2259E-03_JPRB,6.6297E-04_JPRB,5.0564E-03_JPRB/)  
+KAO( :, 5,10, 3) = (/&
+ & 4.4033E-03_JPRB,5.1538E-03_JPRB,5.0961E-03_JPRB,4.8470E-03_JPRB,4.4796E-03_JPRB,3.9660E-03_JPRB,&
+ & 3.2977E-03_JPRB,2.3839E-03_JPRB,1.3631E-03_JPRB,7.5476E-04_JPRB,5.7516E-03_JPRB/)  
+KAO( :, 1,11, 3) = (/&
+ & 2.6765E-03_JPRB,2.9827E-03_JPRB,2.9227E-03_JPRB,2.7508E-03_JPRB,2.5220E-03_JPRB,2.2363E-03_JPRB,&
+ & 1.8676E-03_JPRB,1.3675E-03_JPRB,7.6612E-04_JPRB,3.8447E-04_JPRB,4.0480E-03_JPRB/)  
+KAO( :, 2,11, 3) = (/&
+ & 2.9286E-03_JPRB,3.3040E-03_JPRB,3.2538E-03_JPRB,3.0703E-03_JPRB,2.8192E-03_JPRB,2.4962E-03_JPRB,&
+ & 2.0772E-03_JPRB,1.5146E-03_JPRB,8.4625E-04_JPRB,4.3409E-04_JPRB,4.6666E-03_JPRB/)  
+KAO( :, 3,11, 3) = (/&
+ & 3.2003E-03_JPRB,3.6648E-03_JPRB,3.6125E-03_JPRB,3.4113E-03_JPRB,3.1362E-03_JPRB,2.7724E-03_JPRB,&
+ & 2.3029E-03_JPRB,1.6722E-03_JPRB,9.3679E-04_JPRB,4.9229E-04_JPRB,5.3654E-03_JPRB/)  
+KAO( :, 4,11, 3) = (/&
+ & 3.5051E-03_JPRB,4.0531E-03_JPRB,3.9947E-03_JPRB,3.7750E-03_JPRB,3.4761E-03_JPRB,3.0693E-03_JPRB,&
+ & 2.5452E-03_JPRB,1.8406E-03_JPRB,1.0404E-03_JPRB,5.6079E-04_JPRB,6.1512E-03_JPRB/)  
+KAO( :, 5,11, 3) = (/&
+ & 3.8321E-03_JPRB,4.4649E-03_JPRB,4.4022E-03_JPRB,4.1654E-03_JPRB,3.8377E-03_JPRB,3.3874E-03_JPRB,&
+ & 2.8053E-03_JPRB,2.0226E-03_JPRB,1.1574E-03_JPRB,6.3974E-04_JPRB,7.0160E-03_JPRB/)  
+KAO( :, 1,12, 3) = (/&
+ & 2.3036E-03_JPRB,2.5583E-03_JPRB,2.4978E-03_JPRB,2.3445E-03_JPRB,2.1430E-03_JPRB,1.8944E-03_JPRB,&
+ & 1.5761E-03_JPRB,1.1517E-03_JPRB,6.4556E-04_JPRB,3.2349E-04_JPRB,4.0392E-03_JPRB/)  
+KAO( :, 2,12, 3) = (/&
+ & 2.5244E-03_JPRB,2.8452E-03_JPRB,2.7899E-03_JPRB,2.6237E-03_JPRB,2.3996E-03_JPRB,2.1171E-03_JPRB,&
+ & 1.7537E-03_JPRB,1.2751E-03_JPRB,7.1384E-04_JPRB,3.6513E-04_JPRB,4.6690E-03_JPRB/)  
+KAO( :, 3,12, 3) = (/&
+ & 2.7664E-03_JPRB,3.1661E-03_JPRB,3.1080E-03_JPRB,2.9230E-03_JPRB,2.6751E-03_JPRB,2.3552E-03_JPRB,&
+ & 1.9462E-03_JPRB,1.4075E-03_JPRB,7.9075E-04_JPRB,4.1435E-04_JPRB,5.3798E-03_JPRB/)  
+KAO( :, 4,12, 3) = (/&
+ & 3.0371E-03_JPRB,3.5090E-03_JPRB,3.4460E-03_JPRB,3.2437E-03_JPRB,2.9706E-03_JPRB,2.6114E-03_JPRB,&
+ & 2.1543E-03_JPRB,1.5507E-03_JPRB,8.7926E-04_JPRB,4.7250E-04_JPRB,6.1711E-03_JPRB/)  
+KAO( :, 5,12, 3) = (/&
+ & 3.3239E-03_JPRB,3.8709E-03_JPRB,3.8063E-03_JPRB,3.5842E-03_JPRB,3.2855E-03_JPRB,2.8872E-03_JPRB,&
+ & 2.3774E-03_JPRB,1.7073E-03_JPRB,9.7951E-04_JPRB,5.3974E-04_JPRB,7.0329E-03_JPRB/)  
+KAO( :, 1,13, 3) = (/&
+ & 1.9693E-03_JPRB,2.1819E-03_JPRB,2.1260E-03_JPRB,1.9917E-03_JPRB,1.8142E-03_JPRB,1.5977E-03_JPRB,&
+ & 1.3230E-03_JPRB,9.6163E-04_JPRB,5.3722E-04_JPRB,2.6914E-04_JPRB,3.4457E-03_JPRB/)  
+KAO( :, 2,13, 3) = (/&
+ & 2.1605E-03_JPRB,2.4363E-03_JPRB,2.3825E-03_JPRB,2.2341E-03_JPRB,2.0358E-03_JPRB,1.7890E-03_JPRB,&
+ & 1.4743E-03_JPRB,1.0637E-03_JPRB,5.9461E-04_JPRB,3.0420E-04_JPRB,3.9859E-03_JPRB/)  
+KAO( :, 3,13, 3) = (/&
+ & 2.3729E-03_JPRB,2.7175E-03_JPRB,2.6607E-03_JPRB,2.4950E-03_JPRB,2.2744E-03_JPRB,1.9956E-03_JPRB,&
+ & 1.6383E-03_JPRB,1.1739E-03_JPRB,6.5958E-04_JPRB,3.4564E-04_JPRB,4.5954E-03_JPRB/)  
+KAO( :, 4,13, 3) = (/&
+ & 2.6042E-03_JPRB,3.0147E-03_JPRB,2.9558E-03_JPRB,2.7741E-03_JPRB,2.5310E-03_JPRB,2.2169E-03_JPRB,&
+ & 1.8165E-03_JPRB,1.2954E-03_JPRB,7.3516E-04_JPRB,3.9462E-04_JPRB,5.2719E-03_JPRB/)  
+KAO( :, 5,13, 3) = (/&
+ & 2.8484E-03_JPRB,3.3273E-03_JPRB,3.2687E-03_JPRB,3.0678E-03_JPRB,2.8024E-03_JPRB,2.4543E-03_JPRB,&
+ & 2.0064E-03_JPRB,1.4291E-03_JPRB,8.2095E-04_JPRB,4.5105E-04_JPRB,5.9980E-03_JPRB/)  
+KAO( :, 1, 1, 4) = (/&
+ & 3.2206E-02_JPRB,3.7616E-02_JPRB,3.7442E-02_JPRB,3.5602E-02_JPRB,3.2848E-02_JPRB,2.9212E-02_JPRB,&
+ & 2.4411E-02_JPRB,1.8093E-02_JPRB,1.1087E-02_JPRB,6.4396E-03_JPRB,4.1579E-03_JPRB/)  
+KAO( :, 2, 1, 4) = (/&
+ & 3.3985E-02_JPRB,4.0141E-02_JPRB,4.0066E-02_JPRB,3.8220E-02_JPRB,3.5310E-02_JPRB,3.1363E-02_JPRB,&
+ & 2.6274E-02_JPRB,1.9563E-02_JPRB,1.2137E-02_JPRB,7.2344E-03_JPRB,4.9421E-03_JPRB/)  
+KAO( :, 3, 1, 4) = (/&
+ & 3.5840E-02_JPRB,4.2657E-02_JPRB,4.2657E-02_JPRB,4.0828E-02_JPRB,3.7715E-02_JPRB,3.3592E-02_JPRB,&
+ & 2.8238E-02_JPRB,2.1146E-02_JPRB,1.3263E-02_JPRB,8.1243E-03_JPRB,5.8370E-03_JPRB/)  
+KAO( :, 4, 1, 4) = (/&
+ & 3.7710E-02_JPRB,4.5086E-02_JPRB,4.5284E-02_JPRB,4.3358E-02_JPRB,4.0123E-02_JPRB,3.5805E-02_JPRB,&
+ & 3.0308E-02_JPRB,2.2810E-02_JPRB,1.4502E-02_JPRB,9.1329E-03_JPRB,6.8906E-03_JPRB/)  
+KAO( :, 5, 1, 4) = (/&
+ & 3.9546E-02_JPRB,4.7465E-02_JPRB,4.7884E-02_JPRB,4.5873E-02_JPRB,4.2558E-02_JPRB,3.8078E-02_JPRB,&
+ & 3.2453E-02_JPRB,2.4580E-02_JPRB,1.5839E-02_JPRB,1.0280E-02_JPRB,8.0935E-03_JPRB/)  
+KAO( :, 1, 2, 4) = (/&
+ & 2.8104E-02_JPRB,3.2464E-02_JPRB,3.2358E-02_JPRB,3.0703E-02_JPRB,2.8262E-02_JPRB,2.5049E-02_JPRB,&
+ & 2.0887E-02_JPRB,1.5371E-02_JPRB,9.5321E-03_JPRB,5.5766E-03_JPRB,3.4128E-03_JPRB/)  
+KAO( :, 2, 2, 4) = (/&
+ & 2.9709E-02_JPRB,3.4733E-02_JPRB,3.4706E-02_JPRB,3.3029E-02_JPRB,3.0407E-02_JPRB,2.6975E-02_JPRB,&
+ & 2.2525E-02_JPRB,1.6668E-02_JPRB,1.0444E-02_JPRB,6.2493E-03_JPRB,4.0210E-03_JPRB/)  
+KAO( :, 3, 2, 4) = (/&
+ & 3.1368E-02_JPRB,3.6997E-02_JPRB,3.7038E-02_JPRB,3.5309E-02_JPRB,3.2541E-02_JPRB,2.8948E-02_JPRB,&
+ & 2.4248E-02_JPRB,1.8078E-02_JPRB,1.1429E-02_JPRB,7.0025E-03_JPRB,4.7234E-03_JPRB/)  
+KAO( :, 4, 2, 4) = (/&
+ & 3.3025E-02_JPRB,3.9194E-02_JPRB,3.9406E-02_JPRB,3.7566E-02_JPRB,3.4724E-02_JPRB,3.0907E-02_JPRB,&
+ & 2.6047E-02_JPRB,1.9552E-02_JPRB,1.2511E-02_JPRB,7.8460E-03_JPRB,5.5531E-03_JPRB/)  
+KAO( :, 5, 2, 4) = (/&
+ & 3.4658E-02_JPRB,4.1417E-02_JPRB,4.1750E-02_JPRB,3.9870E-02_JPRB,3.6925E-02_JPRB,3.2920E-02_JPRB,&
+ & 2.7922E-02_JPRB,2.1122E-02_JPRB,1.3687E-02_JPRB,8.7925E-03_JPRB,6.5017E-03_JPRB/)  
+KAO( :, 1, 3, 4) = (/&
+ & 2.4251E-02_JPRB,2.7585E-02_JPRB,2.7414E-02_JPRB,2.5896E-02_JPRB,2.3769E-02_JPRB,2.1015E-02_JPRB,&
+ & 1.7490E-02_JPRB,1.2799E-02_JPRB,7.9859E-03_JPRB,4.6822E-03_JPRB,3.0167E-03_JPRB/)  
+KAO( :, 2, 3, 4) = (/&
+ & 2.5692E-02_JPRB,2.9548E-02_JPRB,2.9492E-02_JPRB,2.7935E-02_JPRB,2.5630E-02_JPRB,2.2680E-02_JPRB,&
+ & 1.8918E-02_JPRB,1.3904E-02_JPRB,8.7584E-03_JPRB,5.2529E-03_JPRB,3.4804E-03_JPRB/)  
+KAO( :, 3, 3, 4) = (/&
+ & 2.7159E-02_JPRB,3.1559E-02_JPRB,3.1551E-02_JPRB,2.9932E-02_JPRB,2.7503E-02_JPRB,2.4395E-02_JPRB,&
+ & 2.0399E-02_JPRB,1.5119E-02_JPRB,9.5888E-03_JPRB,5.8905E-03_JPRB,4.0103E-03_JPRB/)  
+KAO( :, 4, 3, 4) = (/&
+ & 2.8607E-02_JPRB,3.3560E-02_JPRB,3.3603E-02_JPRB,3.1948E-02_JPRB,2.9447E-02_JPRB,2.6126E-02_JPRB,&
+ & 2.1928E-02_JPRB,1.6399E-02_JPRB,1.0499E-02_JPRB,6.6008E-03_JPRB,4.6200E-03_JPRB/)  
+KAO( :, 5, 3, 4) = (/&
+ & 3.0051E-02_JPRB,3.5562E-02_JPRB,3.5683E-02_JPRB,3.4039E-02_JPRB,3.1430E-02_JPRB,2.7908E-02_JPRB,&
+ & 2.3518E-02_JPRB,1.7750E-02_JPRB,1.1493E-02_JPRB,7.3863E-03_JPRB,5.3130E-03_JPRB/)  
+KAO( :, 1, 4, 4) = (/&
+ & 2.0821E-02_JPRB,2.3399E-02_JPRB,2.3111E-02_JPRB,2.1751E-02_JPRB,1.9864E-02_JPRB,1.7485E-02_JPRB,&
+ & 1.4530E-02_JPRB,1.0587E-02_JPRB,6.6174E-03_JPRB,3.8560E-03_JPRB,2.7540E-03_JPRB/)  
+KAO( :, 2, 4, 4) = (/&
+ & 2.2145E-02_JPRB,2.5108E-02_JPRB,2.4937E-02_JPRB,2.3519E-02_JPRB,2.1458E-02_JPRB,1.8898E-02_JPRB,&
+ & 1.5727E-02_JPRB,1.1528E-02_JPRB,7.2647E-03_JPRB,4.3306E-03_JPRB,3.1427E-03_JPRB/)  
+KAO( :, 3, 4, 4) = (/&
+ & 2.3458E-02_JPRB,2.6892E-02_JPRB,2.6767E-02_JPRB,2.5244E-02_JPRB,2.3063E-02_JPRB,2.0374E-02_JPRB,&
+ & 1.6989E-02_JPRB,1.2556E-02_JPRB,7.9663E-03_JPRB,4.8678E-03_JPRB,3.5922E-03_JPRB/)  
+KAO( :, 4, 4, 4) = (/&
+ & 2.4742E-02_JPRB,2.8684E-02_JPRB,2.8567E-02_JPRB,2.7002E-02_JPRB,2.4744E-02_JPRB,2.1891E-02_JPRB,&
+ & 1.8302E-02_JPRB,1.3637E-02_JPRB,8.7323E-03_JPRB,5.4756E-03_JPRB,4.1087E-03_JPRB/)  
+KAO( :, 5, 4, 4) = (/&
+ & 2.6031E-02_JPRB,3.0478E-02_JPRB,3.0373E-02_JPRB,2.8831E-02_JPRB,2.6502E-02_JPRB,2.3472E-02_JPRB,&
+ & 1.9656E-02_JPRB,1.4775E-02_JPRB,9.5721E-03_JPRB,6.1469E-03_JPRB,4.6820E-03_JPRB/)  
+KAO( :, 1, 5, 4) = (/&
+ & 1.7749E-02_JPRB,1.9809E-02_JPRB,1.9474E-02_JPRB,1.8308E-02_JPRB,1.6656E-02_JPRB,1.4612E-02_JPRB,&
+ & 1.2090E-02_JPRB,8.7523E-03_JPRB,5.4506E-03_JPRB,3.1594E-03_JPRB,2.6009E-03_JPRB/)  
+KAO( :, 2, 5, 4) = (/&
+ & 1.8962E-02_JPRB,2.1368E-02_JPRB,2.1111E-02_JPRB,1.9856E-02_JPRB,1.8026E-02_JPRB,1.5797E-02_JPRB,&
+ & 1.3087E-02_JPRB,9.5480E-03_JPRB,5.9920E-03_JPRB,3.5465E-03_JPRB,2.9383E-03_JPRB/)  
+KAO( :, 3, 5, 4) = (/&
+ & 2.0156E-02_JPRB,2.2955E-02_JPRB,2.2766E-02_JPRB,2.1370E-02_JPRB,1.9402E-02_JPRB,1.7036E-02_JPRB,&
+ & 1.4132E-02_JPRB,1.0409E-02_JPRB,6.5849E-03_JPRB,3.9909E-03_JPRB,3.3267E-03_JPRB/)  
+KAO( :, 4, 5, 4) = (/&
+ & 2.1323E-02_JPRB,2.4554E-02_JPRB,2.4380E-02_JPRB,2.2909E-02_JPRB,2.0850E-02_JPRB,1.8325E-02_JPRB,&
+ & 1.5252E-02_JPRB,1.1317E-02_JPRB,7.2332E-03_JPRB,4.4966E-03_JPRB,3.7667E-03_JPRB/)  
+KAO( :, 5, 5, 4) = (/&
+ & 2.2499E-02_JPRB,2.6158E-02_JPRB,2.5975E-02_JPRB,2.4497E-02_JPRB,2.2360E-02_JPRB,1.9686E-02_JPRB,&
+ & 1.6421E-02_JPRB,1.2278E-02_JPRB,7.9387E-03_JPRB,5.0610E-03_JPRB,4.2588E-03_JPRB/)  
+KAO( :, 1, 6, 4) = (/&
+ & 1.5007E-02_JPRB,1.6598E-02_JPRB,1.6252E-02_JPRB,1.5296E-02_JPRB,1.3918E-02_JPRB,1.2197E-02_JPRB,&
+ & 1.0070E-02_JPRB,7.1973E-03_JPRB,4.4418E-03_JPRB,2.5632E-03_JPRB,2.6270E-03_JPRB/)  
+KAO( :, 2, 6, 4) = (/&
+ & 1.6096E-02_JPRB,1.8008E-02_JPRB,1.7715E-02_JPRB,1.6668E-02_JPRB,1.5117E-02_JPRB,1.3217E-02_JPRB,&
+ & 1.0902E-02_JPRB,7.8574E-03_JPRB,4.8940E-03_JPRB,2.8829E-03_JPRB,2.9097E-03_JPRB/)  
+KAO( :, 3, 6, 4) = (/&
+ & 1.7175E-02_JPRB,1.9434E-02_JPRB,1.9209E-02_JPRB,1.8020E-02_JPRB,1.6319E-02_JPRB,1.4272E-02_JPRB,&
+ & 1.1772E-02_JPRB,8.5712E-03_JPRB,5.3927E-03_JPRB,3.2482E-03_JPRB,3.2462E-03_JPRB/)  
+KAO( :, 4, 6, 4) = (/&
+ & 1.8239E-02_JPRB,2.0847E-02_JPRB,2.0666E-02_JPRB,1.9382E-02_JPRB,1.7575E-02_JPRB,1.5371E-02_JPRB,&
+ & 1.2710E-02_JPRB,9.3314E-03_JPRB,5.9328E-03_JPRB,3.6614E-03_JPRB,3.6324E-03_JPRB/)  
+KAO( :, 5, 6, 4) = (/&
+ & 1.9314E-02_JPRB,2.2274E-02_JPRB,2.2099E-02_JPRB,2.0773E-02_JPRB,1.8871E-02_JPRB,1.6523E-02_JPRB,&
+ & 1.3707E-02_JPRB,1.0147E-02_JPRB,6.5230E-03_JPRB,4.1212E-03_JPRB,4.0664E-03_JPRB/)  
+KAO( :, 1, 7, 4) = (/&
+ & 1.2562E-02_JPRB,1.3749E-02_JPRB,1.3412E-02_JPRB,1.2652E-02_JPRB,1.1501E-02_JPRB,1.0078E-02_JPRB,&
+ & 8.3008E-03_JPRB,5.8951E-03_JPRB,3.5839E-03_JPRB,2.0640E-03_JPRB,2.8990E-03_JPRB/)  
+KAO( :, 2, 7, 4) = (/&
+ & 1.3513E-02_JPRB,1.4992E-02_JPRB,1.4706E-02_JPRB,1.3842E-02_JPRB,1.2549E-02_JPRB,1.0956E-02_JPRB,&
+ & 9.0265E-03_JPRB,6.4348E-03_JPRB,3.9618E-03_JPRB,2.3233E-03_JPRB,3.1544E-03_JPRB/)  
+KAO( :, 3, 7, 4) = (/&
+ & 1.4463E-02_JPRB,1.6248E-02_JPRB,1.6003E-02_JPRB,1.5021E-02_JPRB,1.3588E-02_JPRB,1.1865E-02_JPRB,&
+ & 9.7704E-03_JPRB,7.0232E-03_JPRB,4.3758E-03_JPRB,2.6208E-03_JPRB,3.4308E-03_JPRB/)  
+KAO( :, 4, 7, 4) = (/&
+ & 1.5412E-02_JPRB,1.7497E-02_JPRB,1.7276E-02_JPRB,1.6194E-02_JPRB,1.4663E-02_JPRB,1.2815E-02_JPRB,&
+ & 1.0574E-02_JPRB,7.6491E-03_JPRB,4.8284E-03_JPRB,2.9535E-03_JPRB,3.7526E-03_JPRB/)  
+KAO( :, 5, 7, 4) = (/&
+ & 1.6381E-02_JPRB,1.8748E-02_JPRB,1.8546E-02_JPRB,1.7402E-02_JPRB,1.5774E-02_JPRB,1.3800E-02_JPRB,&
+ & 1.1415E-02_JPRB,8.3305E-03_JPRB,5.3183E-03_JPRB,3.3227E-03_JPRB,4.1190E-03_JPRB/)  
+KAO( :, 1, 8, 4) = (/&
+ & 1.0489E-02_JPRB,1.1350E-02_JPRB,1.1041E-02_JPRB,1.0421E-02_JPRB,9.4682E-03_JPRB,8.2685E-03_JPRB,&
+ & 6.7870E-03_JPRB,4.8019E-03_JPRB,2.8904E-03_JPRB,1.6552E-03_JPRB,3.2034E-03_JPRB/)  
+KAO( :, 2, 8, 4) = (/&
+ & 1.1308E-02_JPRB,1.2427E-02_JPRB,1.2159E-02_JPRB,1.1459E-02_JPRB,1.0373E-02_JPRB,9.0374E-03_JPRB,&
+ & 7.4076E-03_JPRB,5.2450E-03_JPRB,3.1947E-03_JPRB,1.8626E-03_JPRB,3.5949E-03_JPRB/)  
+KAO( :, 3, 8, 4) = (/&
+ & 1.2133E-02_JPRB,1.3516E-02_JPRB,1.3273E-02_JPRB,1.2475E-02_JPRB,1.1268E-02_JPRB,9.8130E-03_JPRB,&
+ & 8.0528E-03_JPRB,5.7311E-03_JPRB,3.5370E-03_JPRB,2.1011E-03_JPRB,3.9889E-03_JPRB/)  
+KAO( :, 4, 8, 4) = (/&
+ & 1.2965E-02_JPRB,1.4611E-02_JPRB,1.4368E-02_JPRB,1.3473E-02_JPRB,1.2174E-02_JPRB,1.0625E-02_JPRB,&
+ & 8.7372E-03_JPRB,6.2577E-03_JPRB,3.9075E-03_JPRB,2.3709E-03_JPRB,4.3703E-03_JPRB/)  
+KAO( :, 5, 8, 4) = (/&
+ & 1.3816E-02_JPRB,1.5699E-02_JPRB,1.5470E-02_JPRB,1.4502E-02_JPRB,1.3123E-02_JPRB,1.1467E-02_JPRB,&
+ & 9.4537E-03_JPRB,6.8298E-03_JPRB,4.3093E-03_JPRB,2.6663E-03_JPRB,4.7512E-03_JPRB/)  
+KAO( :, 1, 9, 4) = (/&
+ & 8.7568E-03_JPRB,9.3693E-03_JPRB,9.0975E-03_JPRB,8.5800E-03_JPRB,7.7896E-03_JPRB,6.7645E-03_JPRB,&
+ & 5.5285E-03_JPRB,3.9033E-03_JPRB,2.3310E-03_JPRB,1.3217E-03_JPRB,4.5731E-03_JPRB/)  
+KAO( :, 2, 9, 4) = (/&
+ & 9.4553E-03_JPRB,1.0293E-02_JPRB,1.0054E-02_JPRB,9.4845E-03_JPRB,8.5715E-03_JPRB,7.4310E-03_JPRB,&
+ & 6.0526E-03_JPRB,4.2651E-03_JPRB,2.5747E-03_JPRB,1.4878E-03_JPRB,5.2597E-03_JPRB/)  
+KAO( :, 3, 9, 4) = (/&
+ & 1.0173E-02_JPRB,1.1238E-02_JPRB,1.1012E-02_JPRB,1.0364E-02_JPRB,9.3410E-03_JPRB,8.0964E-03_JPRB,&
+ & 6.6049E-03_JPRB,4.6620E-03_JPRB,2.8506E-03_JPRB,1.6770E-03_JPRB,5.9814E-03_JPRB/)  
+KAO( :, 4, 9, 4) = (/&
+ & 1.0901E-02_JPRB,1.2188E-02_JPRB,1.1952E-02_JPRB,1.1222E-02_JPRB,1.0108E-02_JPRB,8.7846E-03_JPRB,&
+ & 7.1864E-03_JPRB,5.1051E-03_JPRB,3.1528E-03_JPRB,1.8913E-03_JPRB,6.7372E-03_JPRB/)  
+KAO( :, 5, 9, 4) = (/&
+ & 1.1643E-02_JPRB,1.3136E-02_JPRB,1.2896E-02_JPRB,1.2091E-02_JPRB,1.0918E-02_JPRB,9.5045E-03_JPRB,&
+ & 7.7923E-03_JPRB,5.5824E-03_JPRB,3.4794E-03_JPRB,2.1303E-03_JPRB,7.5084E-03_JPRB/)  
+KAO( :, 1,10, 4) = (/&
+ & 7.3210E-03_JPRB,7.7682E-03_JPRB,7.5348E-03_JPRB,7.0910E-03_JPRB,6.4276E-03_JPRB,5.5555E-03_JPRB,&
+ & 4.5190E-03_JPRB,3.1874E-03_JPRB,1.8869E-03_JPRB,1.0615E-03_JPRB,8.5089E-03_JPRB/)  
+KAO( :, 2,10, 4) = (/&
+ & 7.9160E-03_JPRB,8.5578E-03_JPRB,8.3513E-03_JPRB,7.8702E-03_JPRB,7.1056E-03_JPRB,6.1307E-03_JPRB,&
+ & 4.9642E-03_JPRB,3.4828E-03_JPRB,2.0800E-03_JPRB,1.1948E-03_JPRB,9.8844E-03_JPRB/)  
+KAO( :, 3,10, 4) = (/&
+ & 8.5286E-03_JPRB,9.3757E-03_JPRB,9.1726E-03_JPRB,8.6301E-03_JPRB,7.7707E-03_JPRB,6.7003E-03_JPRB,&
+ & 5.4292E-03_JPRB,3.8086E-03_JPRB,2.3039E-03_JPRB,1.3482E-03_JPRB,1.1359E-02_JPRB/)  
+KAO( :, 4,10, 4) = (/&
+ & 9.1631E-03_JPRB,1.0191E-02_JPRB,9.9769E-03_JPRB,9.3788E-03_JPRB,8.4243E-03_JPRB,7.2793E-03_JPRB,&
+ & 5.9222E-03_JPRB,4.1756E-03_JPRB,2.5509E-03_JPRB,1.5190E-03_JPRB,1.2931E-02_JPRB/)  
+KAO( :, 5,10, 4) = (/&
+ & 9.8113E-03_JPRB,1.1015E-02_JPRB,1.0788E-02_JPRB,1.0124E-02_JPRB,9.1153E-03_JPRB,7.8926E-03_JPRB,&
+ & 6.4363E-03_JPRB,4.5749E-03_JPRB,2.8219E-03_JPRB,1.7121E-03_JPRB,1.4601E-02_JPRB/)  
+KAO( :, 1,11, 4) = (/&
+ & 6.3238E-03_JPRB,6.7320E-03_JPRB,6.5341E-03_JPRB,6.1432E-03_JPRB,5.5500E-03_JPRB,4.7770E-03_JPRB,&
+ & 3.8625E-03_JPRB,2.7098E-03_JPRB,1.5930E-03_JPRB,8.9971E-04_JPRB,1.0691E-02_JPRB/)  
+KAO( :, 2,11, 4) = (/&
+ & 6.8377E-03_JPRB,7.4132E-03_JPRB,7.2351E-03_JPRB,6.8044E-03_JPRB,6.1328E-03_JPRB,5.2698E-03_JPRB,&
+ & 4.2482E-03_JPRB,2.9626E-03_JPRB,1.7579E-03_JPRB,1.0147E-03_JPRB,1.2446E-02_JPRB/)  
+KAO( :, 3,11, 4) = (/&
+ & 7.3680E-03_JPRB,8.1117E-03_JPRB,7.9281E-03_JPRB,7.4556E-03_JPRB,6.7022E-03_JPRB,5.7552E-03_JPRB,&
+ & 4.6507E-03_JPRB,3.2459E-03_JPRB,1.9476E-03_JPRB,1.1453E-03_JPRB,1.4323E-02_JPRB/)  
+KAO( :, 4,11, 4) = (/&
+ & 7.9250E-03_JPRB,8.8100E-03_JPRB,8.6199E-03_JPRB,8.1042E-03_JPRB,7.2716E-03_JPRB,6.2615E-03_JPRB,&
+ & 5.0763E-03_JPRB,3.5597E-03_JPRB,2.1591E-03_JPRB,1.2891E-03_JPRB,1.6318E-02_JPRB/)  
+KAO( :, 5,11, 4) = (/&
+ & 8.4995E-03_JPRB,9.5310E-03_JPRB,9.3303E-03_JPRB,8.7684E-03_JPRB,7.8755E-03_JPRB,6.7950E-03_JPRB,&
+ & 5.5255E-03_JPRB,3.9023E-03_JPRB,2.3918E-03_JPRB,1.4517E-03_JPRB,1.8430E-02_JPRB/)  
+KAO( :, 1,12, 4) = (/&
+ & 5.4239E-03_JPRB,5.7942E-03_JPRB,5.6254E-03_JPRB,5.2775E-03_JPRB,4.7538E-03_JPRB,4.0783E-03_JPRB,&
+ & 3.2815E-03_JPRB,2.2911E-03_JPRB,1.3390E-03_JPRB,7.5901E-04_JPRB,1.1069E-02_JPRB/)  
+KAO( :, 2,12, 4) = (/&
+ & 5.8650E-03_JPRB,6.3756E-03_JPRB,6.2146E-03_JPRB,5.8301E-03_JPRB,5.2465E-03_JPRB,4.4949E-03_JPRB,&
+ & 3.6123E-03_JPRB,2.5101E-03_JPRB,1.4788E-03_JPRB,8.5773E-04_JPRB,1.2922E-02_JPRB/)  
+KAO( :, 3,12, 4) = (/&
+ & 6.3326E-03_JPRB,6.9605E-03_JPRB,6.7926E-03_JPRB,6.3822E-03_JPRB,5.7295E-03_JPRB,4.9116E-03_JPRB,&
+ & 3.9590E-03_JPRB,2.7527E-03_JPRB,1.6402E-03_JPRB,9.6785E-04_JPRB,1.4890E-02_JPRB/)  
+KAO( :, 4,12, 4) = (/&
+ & 6.8197E-03_JPRB,7.5612E-03_JPRB,7.3901E-03_JPRB,6.9407E-03_JPRB,6.2248E-03_JPRB,5.3513E-03_JPRB,&
+ & 4.3255E-03_JPRB,3.0215E-03_JPRB,1.8202E-03_JPRB,1.0893E-03_JPRB,1.6968E-02_JPRB/)  
+KAO( :, 5,12, 4) = (/&
+ & 7.3239E-03_JPRB,8.1869E-03_JPRB,8.0102E-03_JPRB,7.5305E-03_JPRB,6.7534E-03_JPRB,5.8184E-03_JPRB,&
+ & 4.7200E-03_JPRB,3.3172E-03_JPRB,2.0173E-03_JPRB,1.2265E-03_JPRB,1.9174E-02_JPRB/)  
+KAO( :, 1,13, 4) = (/&
+ & 4.6050E-03_JPRB,4.9342E-03_JPRB,4.7817E-03_JPRB,4.4662E-03_JPRB,4.0147E-03_JPRB,3.4350E-03_JPRB,&
+ & 2.7500E-03_JPRB,1.9135E-03_JPRB,1.1150E-03_JPRB,6.3435E-04_JPRB,9.6482E-03_JPRB/)  
+KAO( :, 2,13, 4) = (/&
+ & 4.9867E-03_JPRB,5.4199E-03_JPRB,5.2643E-03_JPRB,4.9240E-03_JPRB,4.4219E-03_JPRB,3.7782E-03_JPRB,&
+ & 3.0269E-03_JPRB,2.1006E-03_JPRB,1.2335E-03_JPRB,7.1745E-04_JPRB,1.1271E-02_JPRB/)  
+KAO( :, 3,13, 4) = (/&
+ & 5.3971E-03_JPRB,5.9114E-03_JPRB,5.7510E-03_JPRB,5.3855E-03_JPRB,4.8287E-03_JPRB,4.1310E-03_JPRB,&
+ & 3.3205E-03_JPRB,2.3075E-03_JPRB,1.3695E-03_JPRB,8.0946E-04_JPRB,1.2985E-02_JPRB/)  
+KAO( :, 4,13, 4) = (/&
+ & 5.8203E-03_JPRB,6.4262E-03_JPRB,6.2609E-03_JPRB,5.8661E-03_JPRB,5.2552E-03_JPRB,4.5068E-03_JPRB,&
+ & 3.6338E-03_JPRB,2.5380E-03_JPRB,1.5209E-03_JPRB,9.1160E-04_JPRB,1.4785E-02_JPRB/)  
+KAO( :, 5,13, 4) = (/&
+ & 6.2608E-03_JPRB,6.9642E-03_JPRB,6.7991E-03_JPRB,6.3791E-03_JPRB,5.7139E-03_JPRB,4.9101E-03_JPRB,&
+ & 3.9752E-03_JPRB,2.7918E-03_JPRB,1.6870E-03_JPRB,1.0277E-03_JPRB,1.6692E-02_JPRB/)  
+KAO( :, 1, 1, 5) = (/&
+ & 6.9423E-02_JPRB,7.4960E-02_JPRB,7.2881E-02_JPRB,6.7852E-02_JPRB,6.0804E-02_JPRB,5.2531E-02_JPRB,&
+ & 4.2824E-02_JPRB,3.0610E-02_JPRB,1.9045E-02_JPRB,1.1972E-02_JPRB,9.0656E-03_JPRB/)  
+KAO( :, 2, 1, 5) = (/&
+ & 7.1301E-02_JPRB,7.7925E-02_JPRB,7.6064E-02_JPRB,7.1198E-02_JPRB,6.4170E-02_JPRB,5.6008E-02_JPRB,&
+ & 4.6002E-02_JPRB,3.3219E-02_JPRB,2.0898E-02_JPRB,1.3541E-02_JPRB,1.0844E-02_JPRB/)  
+KAO( :, 3, 1, 5) = (/&
+ & 7.2960E-02_JPRB,8.0744E-02_JPRB,7.9397E-02_JPRB,7.4686E-02_JPRB,6.7915E-02_JPRB,5.9615E-02_JPRB,&
+ & 4.9205E-02_JPRB,3.5928E-02_JPRB,2.2906E-02_JPRB,1.5284E-02_JPRB,1.2853E-02_JPRB/)  
+KAO( :, 4, 1, 5) = (/&
+ & 7.4482E-02_JPRB,8.3568E-02_JPRB,8.2751E-02_JPRB,7.8370E-02_JPRB,7.1840E-02_JPRB,6.3241E-02_JPRB,&
+ & 5.2611E-02_JPRB,3.8800E-02_JPRB,2.5071E-02_JPRB,1.7190E-02_JPRB,1.5078E-02_JPRB/)  
+KAO( :, 5, 1, 5) = (/&
+ & 7.5977E-02_JPRB,8.6416E-02_JPRB,8.6132E-02_JPRB,8.2229E-02_JPRB,7.5721E-02_JPRB,6.7015E-02_JPRB,&
+ & 5.6188E-02_JPRB,4.1791E-02_JPRB,2.7379E-02_JPRB,1.9319E-02_JPRB,1.7544E-02_JPRB/)  
+KAO( :, 1, 2, 5) = (/&
+ & 6.1428E-02_JPRB,6.6243E-02_JPRB,6.4016E-02_JPRB,5.9686E-02_JPRB,5.3408E-02_JPRB,4.5905E-02_JPRB,&
+ & 3.7325E-02_JPRB,2.6638E-02_JPRB,1.6539E-02_JPRB,1.0261E-02_JPRB,7.2943E-03_JPRB/)  
+KAO( :, 2, 2, 5) = (/&
+ & 6.3157E-02_JPRB,6.8963E-02_JPRB,6.7035E-02_JPRB,6.2877E-02_JPRB,5.6628E-02_JPRB,4.9107E-02_JPRB,&
+ & 4.0147E-02_JPRB,2.8970E-02_JPRB,1.8198E-02_JPRB,1.1562E-02_JPRB,8.6747E-03_JPRB/)  
+KAO( :, 3, 2, 5) = (/&
+ & 6.4729E-02_JPRB,7.1653E-02_JPRB,7.0183E-02_JPRB,6.6237E-02_JPRB,6.0087E-02_JPRB,5.2347E-02_JPRB,&
+ & 4.3083E-02_JPRB,3.1429E-02_JPRB,1.9978E-02_JPRB,1.2998E-02_JPRB,1.0260E-02_JPRB/)  
+KAO( :, 4, 2, 5) = (/&
+ & 6.6252E-02_JPRB,7.4355E-02_JPRB,7.3321E-02_JPRB,6.9741E-02_JPRB,6.3553E-02_JPRB,5.5697E-02_JPRB,&
+ & 4.6228E-02_JPRB,3.4024E-02_JPRB,2.1871E-02_JPRB,1.4556E-02_JPRB,1.2034E-02_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART3',1,ZHOOK_HANDLE)
+END SUBROUTINE PART3
+
+
+SUBROUTINE PART4
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART4',0,ZHOOK_HANDLE)
+
+
+KAO( :, 5, 2, 5) = (/&
+ & 6.7782E-02_JPRB,7.7009E-02_JPRB,7.6503E-02_JPRB,7.3173E-02_JPRB,6.7016E-02_JPRB,5.9180E-02_JPRB,&
+ & 4.9505E-02_JPRB,3.6707E-02_JPRB,2.3887E-02_JPRB,1.6290E-02_JPRB,1.4004E-02_JPRB/)  
+KAO( :, 1, 3, 5) = (/&
+ & 5.3533E-02_JPRB,5.7434E-02_JPRB,5.5277E-02_JPRB,5.1527E-02_JPRB,4.6035E-02_JPRB,3.9352E-02_JPRB,&
+ & 3.1746E-02_JPRB,2.2523E-02_JPRB,1.3908E-02_JPRB,8.6490E-03_JPRB,5.9287E-03_JPRB/)  
+KAO( :, 2, 3, 5) = (/&
+ & 5.5137E-02_JPRB,5.9969E-02_JPRB,5.8097E-02_JPRB,5.4502E-02_JPRB,4.8980E-02_JPRB,4.2173E-02_JPRB,&
+ & 3.4244E-02_JPRB,2.4566E-02_JPRB,1.5350E-02_JPRB,9.6962E-03_JPRB,6.9493E-03_JPRB/)  
+KAO( :, 3, 3, 5) = (/&
+ & 5.6675E-02_JPRB,6.2431E-02_JPRB,6.0975E-02_JPRB,5.7589E-02_JPRB,5.2056E-02_JPRB,4.5047E-02_JPRB,&
+ & 3.6855E-02_JPRB,2.6729E-02_JPRB,1.6909E-02_JPRB,1.0855E-02_JPRB,8.1206E-03_JPRB/)  
+KAO( :, 4, 3, 5) = (/&
+ & 5.8200E-02_JPRB,6.4923E-02_JPRB,6.3882E-02_JPRB,6.0753E-02_JPRB,5.5077E-02_JPRB,4.8037E-02_JPRB,&
+ & 3.9643E-02_JPRB,2.9018E-02_JPRB,1.8575E-02_JPRB,1.2121E-02_JPRB,9.4750E-03_JPRB/)  
+KAO( :, 5, 3, 5) = (/&
+ & 5.9733E-02_JPRB,6.7416E-02_JPRB,6.6842E-02_JPRB,6.3776E-02_JPRB,5.8159E-02_JPRB,5.1164E-02_JPRB,&
+ & 4.2585E-02_JPRB,3.1380E-02_JPRB,2.0348E-02_JPRB,1.3514E-02_JPRB,1.0998E-02_JPRB/)  
+KAO( :, 1, 4, 5) = (/&
+ & 4.6353E-02_JPRB,4.9264E-02_JPRB,4.7316E-02_JPRB,4.4016E-02_JPRB,3.9303E-02_JPRB,3.3446E-02_JPRB,&
+ & 2.6720E-02_JPRB,1.8817E-02_JPRB,1.1541E-02_JPRB,7.2722E-03_JPRB,5.4712E-03_JPRB/)  
+KAO( :, 2, 4, 5) = (/&
+ & 4.7832E-02_JPRB,5.1575E-02_JPRB,4.9905E-02_JPRB,4.6721E-02_JPRB,4.1940E-02_JPRB,3.5924E-02_JPRB,&
+ & 2.8909E-02_JPRB,2.0563E-02_JPRB,1.2756E-02_JPRB,8.1360E-03_JPRB,6.2894E-03_JPRB/)  
+KAO( :, 3, 4, 5) = (/&
+ & 4.9292E-02_JPRB,5.3845E-02_JPRB,5.2477E-02_JPRB,4.9511E-02_JPRB,4.4682E-02_JPRB,3.8438E-02_JPRB,&
+ & 3.1206E-02_JPRB,2.2430E-02_JPRB,1.4083E-02_JPRB,9.0822E-03_JPRB,7.2079E-03_JPRB/)  
+KAO( :, 4, 4, 5) = (/&
+ & 5.0753E-02_JPRB,5.6167E-02_JPRB,5.5096E-02_JPRB,5.2291E-02_JPRB,4.7354E-02_JPRB,4.1051E-02_JPRB,&
+ & 3.3627E-02_JPRB,2.4418E-02_JPRB,1.5508E-02_JPRB,1.0111E-02_JPRB,8.2258E-03_JPRB/)  
+KAO( :, 5, 4, 5) = (/&
+ & 5.2237E-02_JPRB,5.8453E-02_JPRB,5.7807E-02_JPRB,5.4969E-02_JPRB,5.0043E-02_JPRB,4.3750E-02_JPRB,&
+ & 3.6221E-02_JPRB,2.6492E-02_JPRB,1.7044E-02_JPRB,1.1243E-02_JPRB,9.3585E-03_JPRB/)  
+KAO( :, 1, 5, 5) = (/&
+ & 4.0215E-02_JPRB,4.2178E-02_JPRB,4.0345E-02_JPRB,3.7366E-02_JPRB,3.3354E-02_JPRB,2.8283E-02_JPRB,&
+ & 2.2446E-02_JPRB,1.5692E-02_JPRB,9.5378E-03_JPRB,6.0574E-03_JPRB,5.0927E-03_JPRB/)  
+KAO( :, 2, 5, 5) = (/&
+ & 4.1564E-02_JPRB,4.4223E-02_JPRB,4.2656E-02_JPRB,3.9744E-02_JPRB,3.5712E-02_JPRB,3.0486E-02_JPRB,&
+ & 2.4325E-02_JPRB,1.7173E-02_JPRB,1.0563E-02_JPRB,6.7992E-03_JPRB,5.7848E-03_JPRB/)  
+KAO( :, 3, 5, 5) = (/&
+ & 4.2880E-02_JPRB,4.6295E-02_JPRB,4.4929E-02_JPRB,4.2198E-02_JPRB,3.8104E-02_JPRB,3.2711E-02_JPRB,&
+ & 2.6325E-02_JPRB,1.8758E-02_JPRB,1.1674E-02_JPRB,7.6073E-03_JPRB,6.5722E-03_JPRB/)  
+KAO( :, 4, 5, 5) = (/&
+ & 4.4250E-02_JPRB,4.8374E-02_JPRB,4.7253E-02_JPRB,4.4669E-02_JPRB,4.0477E-02_JPRB,3.4961E-02_JPRB,&
+ & 2.8432E-02_JPRB,2.0449E-02_JPRB,1.2880E-02_JPRB,8.4762E-03_JPRB,7.4570E-03_JPRB/)  
+KAO( :, 5, 5, 5) = (/&
+ & 4.5632E-02_JPRB,5.0457E-02_JPRB,4.9661E-02_JPRB,4.7073E-02_JPRB,4.2857E-02_JPRB,3.7281E-02_JPRB,&
+ & 3.0645E-02_JPRB,2.2241E-02_JPRB,1.4179E-02_JPRB,9.4224E-03_JPRB,8.4289E-03_JPRB/)  
+KAO( :, 1, 6, 5) = (/&
+ & 3.4853E-02_JPRB,3.6094E-02_JPRB,3.4340E-02_JPRB,3.1567E-02_JPRB,2.8074E-02_JPRB,2.3747E-02_JPRB,&
+ & 1.8747E-02_JPRB,1.3033E-02_JPRB,7.8344E-03_JPRB,4.9564E-03_JPRB,4.7664E-03_JPRB/)  
+KAO( :, 2, 6, 5) = (/&
+ & 3.6095E-02_JPRB,3.7902E-02_JPRB,3.6360E-02_JPRB,3.3627E-02_JPRB,3.0131E-02_JPRB,2.5638E-02_JPRB,&
+ & 2.0371E-02_JPRB,1.4275E-02_JPRB,8.6972E-03_JPRB,5.5735E-03_JPRB,5.3896E-03_JPRB/)  
+KAO( :, 3, 6, 5) = (/&
+ & 3.7297E-02_JPRB,3.9745E-02_JPRB,3.8353E-02_JPRB,3.5764E-02_JPRB,3.2219E-02_JPRB,2.7550E-02_JPRB,&
+ & 2.2085E-02_JPRB,1.5615E-02_JPRB,9.6284E-03_JPRB,6.2556E-03_JPRB,6.0790E-03_JPRB/)  
+KAO( :, 4, 6, 5) = (/&
+ & 3.8557E-02_JPRB,4.1597E-02_JPRB,4.0389E-02_JPRB,3.7908E-02_JPRB,3.4281E-02_JPRB,2.9507E-02_JPRB,&
+ & 2.3870E-02_JPRB,1.7046E-02_JPRB,1.0643E-02_JPRB,7.0034E-03_JPRB,6.8484E-03_JPRB/)  
+KAO( :, 5, 6, 5) = (/&
+ & 3.9824E-02_JPRB,4.3464E-02_JPRB,4.2478E-02_JPRB,4.0047E-02_JPRB,3.6382E-02_JPRB,3.1522E-02_JPRB,&
+ & 2.5736E-02_JPRB,1.8573E-02_JPRB,1.1739E-02_JPRB,7.8250E-03_JPRB,7.7029E-03_JPRB/)  
+KAO( :, 1, 7, 5) = (/&
+ & 2.9815E-02_JPRB,3.0608E-02_JPRB,2.8988E-02_JPRB,2.6483E-02_JPRB,2.3444E-02_JPRB,1.9806E-02_JPRB,&
+ & 1.5587E-02_JPRB,1.0729E-02_JPRB,6.3834E-03_JPRB,3.9988E-03_JPRB,4.7710E-03_JPRB/)  
+KAO( :, 2, 7, 5) = (/&
+ & 3.0946E-02_JPRB,3.2211E-02_JPRB,3.0727E-02_JPRB,2.8262E-02_JPRB,2.5215E-02_JPRB,2.1406E-02_JPRB,&
+ & 1.6940E-02_JPRB,1.1789E-02_JPRB,7.0925E-03_JPRB,4.5059E-03_JPRB,5.3365E-03_JPRB/)  
+KAO( :, 3, 7, 5) = (/&
+ & 3.2060E-02_JPRB,3.3823E-02_JPRB,3.2464E-02_JPRB,3.0099E-02_JPRB,2.7004E-02_JPRB,2.3026E-02_JPRB,&
+ & 1.8369E-02_JPRB,1.2921E-02_JPRB,7.8758E-03_JPRB,5.0685E-03_JPRB,5.9857E-03_JPRB/)  
+KAO( :, 4, 7, 5) = (/&
+ & 3.3198E-02_JPRB,3.5483E-02_JPRB,3.4283E-02_JPRB,3.1964E-02_JPRB,2.8781E-02_JPRB,2.4689E-02_JPRB,&
+ & 1.9856E-02_JPRB,1.4137E-02_JPRB,8.7260E-03_JPRB,5.6932E-03_JPRB,6.6962E-03_JPRB/)  
+KAO( :, 5, 7, 5) = (/&
+ & 3.4342E-02_JPRB,3.7144E-02_JPRB,3.6117E-02_JPRB,3.3825E-02_JPRB,3.0620E-02_JPRB,2.6411E-02_JPRB,&
+ & 2.1416E-02_JPRB,1.5421E-02_JPRB,9.6443E-03_JPRB,6.3905E-03_JPRB,7.4882E-03_JPRB/)  
+KAO( :, 1, 8, 5) = (/&
+ & 2.5283E-02_JPRB,2.5751E-02_JPRB,2.4270E-02_JPRB,2.2079E-02_JPRB,1.9496E-02_JPRB,1.6496E-02_JPRB,&
+ & 1.2947E-02_JPRB,8.8078E-03_JPRB,5.1661E-03_JPRB,3.1956E-03_JPRB,5.6775E-03_JPRB/)  
+KAO( :, 2, 8, 5) = (/&
+ & 2.6302E-02_JPRB,2.7180E-02_JPRB,2.5781E-02_JPRB,2.3615E-02_JPRB,2.1015E-02_JPRB,1.7843E-02_JPRB,&
+ & 1.4097E-02_JPRB,9.7060E-03_JPRB,5.7494E-03_JPRB,3.6083E-03_JPRB,6.1622E-03_JPRB/)  
+KAO( :, 3, 8, 5) = (/&
+ & 2.7320E-02_JPRB,2.8593E-02_JPRB,2.7305E-02_JPRB,2.5195E-02_JPRB,2.2546E-02_JPRB,1.9223E-02_JPRB,&
+ & 1.5282E-02_JPRB,1.0665E-02_JPRB,6.3913E-03_JPRB,4.0728E-03_JPRB,6.7057E-03_JPRB/)  
+KAO( :, 4, 8, 5) = (/&
+ & 2.8333E-02_JPRB,3.0041E-02_JPRB,2.8915E-02_JPRB,2.6829E-02_JPRB,2.4088E-02_JPRB,2.0635E-02_JPRB,&
+ & 1.6522E-02_JPRB,1.1685E-02_JPRB,7.1066E-03_JPRB,4.5896E-03_JPRB,7.3455E-03_JPRB/)  
+KAO( :, 5, 8, 5) = (/&
+ & 2.9349E-02_JPRB,3.1526E-02_JPRB,3.0540E-02_JPRB,2.8464E-02_JPRB,2.5707E-02_JPRB,2.2109E-02_JPRB,&
+ & 1.7816E-02_JPRB,1.2753E-02_JPRB,7.8746E-03_JPRB,5.1734E-03_JPRB,8.0746E-03_JPRB/)  
+KAO( :, 1, 9, 5) = (/&
+ & 2.1393E-02_JPRB,2.1598E-02_JPRB,2.0242E-02_JPRB,1.8370E-02_JPRB,1.6186E-02_JPRB,1.3706E-02_JPRB,&
+ & 1.0722E-02_JPRB,7.2195E-03_JPRB,4.1746E-03_JPRB,2.5439E-03_JPRB,1.0113E-02_JPRB/)  
+KAO( :, 2, 9, 5) = (/&
+ & 2.2301E-02_JPRB,2.2863E-02_JPRB,2.1562E-02_JPRB,1.9670E-02_JPRB,1.7466E-02_JPRB,1.4848E-02_JPRB,&
+ & 1.1705E-02_JPRB,7.9781E-03_JPRB,4.6436E-03_JPRB,2.8718E-03_JPRB,1.1342E-02_JPRB/)  
+KAO( :, 3, 9, 5) = (/&
+ & 2.3221E-02_JPRB,2.4089E-02_JPRB,2.2883E-02_JPRB,2.1022E-02_JPRB,1.8774E-02_JPRB,1.6030E-02_JPRB,&
+ & 1.2717E-02_JPRB,8.7854E-03_JPRB,5.1730E-03_JPRB,3.2515E-03_JPRB,1.2507E-02_JPRB/)  
+KAO( :, 4, 9, 5) = (/&
+ & 2.4120E-02_JPRB,2.5343E-02_JPRB,2.4280E-02_JPRB,2.2425E-02_JPRB,2.0119E-02_JPRB,1.7244E-02_JPRB,&
+ & 1.3767E-02_JPRB,9.6361E-03_JPRB,5.7611E-03_JPRB,3.6765E-03_JPRB,1.3554E-02_JPRB/)  
+KAO( :, 5, 9, 5) = (/&
+ & 2.5016E-02_JPRB,2.6638E-02_JPRB,2.5702E-02_JPRB,2.3865E-02_JPRB,2.1516E-02_JPRB,1.8508E-02_JPRB,&
+ & 1.4864E-02_JPRB,1.0529E-02_JPRB,6.4045E-03_JPRB,4.1546E-03_JPRB,1.4572E-02_JPRB/)  
+KAO( :, 1,10, 5) = (/&
+ & 1.8113E-02_JPRB,1.8138E-02_JPRB,1.6915E-02_JPRB,1.5326E-02_JPRB,1.3493E-02_JPRB,1.1404E-02_JPRB,&
+ & 8.8894E-03_JPRB,5.9161E-03_JPRB,3.3974E-03_JPRB,2.0400E-03_JPRB,2.3155E-02_JPRB/)  
+KAO( :, 2,10, 5) = (/&
+ & 1.8911E-02_JPRB,1.9233E-02_JPRB,1.8049E-02_JPRB,1.6433E-02_JPRB,1.4556E-02_JPRB,1.2371E-02_JPRB,&
+ & 9.7152E-03_JPRB,6.5645E-03_JPRB,3.7859E-03_JPRB,2.2984E-03_JPRB,2.6502E-02_JPRB/)  
+KAO( :, 3,10, 5) = (/&
+ & 1.9728E-02_JPRB,2.0295E-02_JPRB,1.9188E-02_JPRB,1.7578E-02_JPRB,1.5660E-02_JPRB,1.3378E-02_JPRB,&
+ & 1.0586E-02_JPRB,7.2492E-03_JPRB,4.2176E-03_JPRB,2.6036E-03_JPRB,2.9732E-02_JPRB/)  
+KAO( :, 4,10, 5) = (/&
+ & 2.0511E-02_JPRB,2.1373E-02_JPRB,2.0386E-02_JPRB,1.8762E-02_JPRB,1.6821E-02_JPRB,1.4424E-02_JPRB,&
+ & 1.1488E-02_JPRB,7.9631E-03_JPRB,4.7001E-03_JPRB,2.9535E-03_JPRB,3.2827E-02_JPRB/)  
+KAO( :, 5,10, 5) = (/&
+ & 2.1304E-02_JPRB,2.2491E-02_JPRB,2.1602E-02_JPRB,2.0004E-02_JPRB,1.8011E-02_JPRB,1.5518E-02_JPRB,&
+ & 1.2440E-02_JPRB,8.7186E-03_JPRB,5.2306E-03_JPRB,3.3445E-03_JPRB,3.5819E-02_JPRB/)  
+KAO( :, 1,11, 5) = (/&
+ & 1.5695E-02_JPRB,1.5702E-02_JPRB,1.4638E-02_JPRB,1.3267E-02_JPRB,1.1679E-02_JPRB,9.8503E-03_JPRB,&
+ & 7.6677E-03_JPRB,5.0761E-03_JPRB,2.9053E-03_JPRB,1.7228E-03_JPRB,2.9993E-02_JPRB/)  
+KAO( :, 2,11, 5) = (/&
+ & 1.6401E-02_JPRB,1.6637E-02_JPRB,1.5599E-02_JPRB,1.4214E-02_JPRB,1.2583E-02_JPRB,1.0686E-02_JPRB,&
+ & 8.3766E-03_JPRB,5.6416E-03_JPRB,3.2428E-03_JPRB,1.9419E-03_JPRB,3.4197E-02_JPRB/)  
+KAO( :, 3,11, 5) = (/&
+ & 1.7106E-02_JPRB,1.7559E-02_JPRB,1.6602E-02_JPRB,1.5204E-02_JPRB,1.3537E-02_JPRB,1.1563E-02_JPRB,&
+ & 9.1295E-03_JPRB,6.2308E-03_JPRB,3.6142E-03_JPRB,2.2018E-03_JPRB,3.8237E-02_JPRB/)  
+KAO( :, 4,11, 5) = (/&
+ & 1.7783E-02_JPRB,1.8504E-02_JPRB,1.7628E-02_JPRB,1.6229E-02_JPRB,1.4542E-02_JPRB,1.2483E-02_JPRB,&
+ & 9.9207E-03_JPRB,6.8466E-03_JPRB,4.0263E-03_JPRB,2.5043E-03_JPRB,4.2149E-02_JPRB/)  
+KAO( :, 5,11, 5) = (/&
+ & 1.8493E-02_JPRB,1.9485E-02_JPRB,1.8676E-02_JPRB,1.7295E-02_JPRB,1.5575E-02_JPRB,1.3438E-02_JPRB,&
+ & 1.0754E-02_JPRB,7.5058E-03_JPRB,4.4801E-03_JPRB,2.8413E-03_JPRB,4.5923E-02_JPRB/)  
+KAO( :, 1,12, 5) = (/&
+ & 1.3506E-02_JPRB,1.3529E-02_JPRB,1.2628E-02_JPRB,1.1452E-02_JPRB,1.0063E-02_JPRB,8.4685E-03_JPRB,&
+ & 6.5828E-03_JPRB,4.3370E-03_JPRB,2.4676E-03_JPRB,1.4501E-03_JPRB,3.1379E-02_JPRB/)  
+KAO( :, 2,12, 5) = (/&
+ & 1.4125E-02_JPRB,1.4325E-02_JPRB,1.3451E-02_JPRB,1.2271E-02_JPRB,1.0846E-02_JPRB,9.1944E-03_JPRB,&
+ & 7.1930E-03_JPRB,4.8218E-03_JPRB,2.7588E-03_JPRB,1.6351E-03_JPRB,3.5598E-02_JPRB/)  
+KAO( :, 3,12, 5) = (/&
+ & 1.4721E-02_JPRB,1.5127E-02_JPRB,1.4318E-02_JPRB,1.3125E-02_JPRB,1.1678E-02_JPRB,9.9571E-03_JPRB,&
+ & 7.8415E-03_JPRB,5.3248E-03_JPRB,3.0763E-03_JPRB,1.8570E-03_JPRB,3.9752E-02_JPRB/)  
+KAO( :, 4,12, 5) = (/&
+ & 1.5317E-02_JPRB,1.5950E-02_JPRB,1.5202E-02_JPRB,1.4009E-02_JPRB,1.2540E-02_JPRB,1.0752E-02_JPRB,&
+ & 8.5246E-03_JPRB,5.8565E-03_JPRB,3.4251E-03_JPRB,2.1158E-03_JPRB,4.3744E-02_JPRB/)  
+KAO( :, 5,12, 5) = (/&
+ & 1.5969E-02_JPRB,1.6812E-02_JPRB,1.6124E-02_JPRB,1.4932E-02_JPRB,1.3442E-02_JPRB,1.1579E-02_JPRB,&
+ & 9.2378E-03_JPRB,6.4203E-03_JPRB,3.8147E-03_JPRB,2.4036E-03_JPRB,4.7604E-02_JPRB/)  
+KAO( :, 1,13, 5) = (/&
+ & 1.1399E-02_JPRB,1.1449E-02_JPRB,1.0710E-02_JPRB,9.7174E-03_JPRB,8.5323E-03_JPRB,7.1730E-03_JPRB,&
+ & 5.5827E-03_JPRB,3.6682E-03_JPRB,2.0730E-03_JPRB,1.2124E-03_JPRB,2.7163E-02_JPRB/)  
+KAO( :, 2,13, 5) = (/&
+ & 1.1916E-02_JPRB,1.2118E-02_JPRB,1.1410E-02_JPRB,1.0424E-02_JPRB,9.2099E-03_JPRB,7.8054E-03_JPRB,&
+ & 6.1073E-03_JPRB,4.0757E-03_JPRB,2.3191E-03_JPRB,1.3693E-03_JPRB,3.0692E-02_JPRB/)  
+KAO( :, 3,13, 5) = (/&
+ & 1.2413E-02_JPRB,1.2810E-02_JPRB,1.2156E-02_JPRB,1.1166E-02_JPRB,9.9300E-03_JPRB,8.4666E-03_JPRB,&
+ & 6.6637E-03_JPRB,4.5036E-03_JPRB,2.5869E-03_JPRB,1.5580E-03_JPRB,3.4158E-02_JPRB/)  
+KAO( :, 4,13, 5) = (/&
+ & 1.2945E-02_JPRB,1.3524E-02_JPRB,1.2930E-02_JPRB,1.1934E-02_JPRB,1.0680E-02_JPRB,9.1538E-03_JPRB,&
+ & 7.2492E-03_JPRB,4.9532E-03_JPRB,2.8844E-03_JPRB,1.7769E-03_JPRB,3.7486E-02_JPRB/)  
+KAO( :, 5,13, 5) = (/&
+ & 1.3534E-02_JPRB,1.4296E-02_JPRB,1.3748E-02_JPRB,1.2750E-02_JPRB,1.1472E-02_JPRB,9.8678E-03_JPRB,&
+ & 7.8555E-03_JPRB,5.4258E-03_JPRB,3.2161E-03_JPRB,2.0203E-03_JPRB,4.0660E-02_JPRB/)  
+KAO( :, 1, 1, 6) = (/&
+ & 1.3812E-01_JPRB,1.3826E-01_JPRB,1.3412E-01_JPRB,1.2512E-01_JPRB,1.1224E-01_JPRB,9.5217E-02_JPRB,&
+ & 7.4976E-02_JPRB,5.1336E-02_JPRB,3.0614E-02_JPRB,2.1696E-02_JPRB,2.0374E-02_JPRB/)  
+KAO( :, 2, 1, 6) = (/&
+ & 1.3941E-01_JPRB,1.4212E-01_JPRB,1.3899E-01_JPRB,1.3015E-01_JPRB,1.1723E-01_JPRB,9.9705E-02_JPRB,&
+ & 7.9423E-02_JPRB,5.5251E-02_JPRB,3.3932E-02_JPRB,2.4851E-02_JPRB,2.3928E-02_JPRB/)  
+KAO( :, 3, 1, 6) = (/&
+ & 1.4069E-01_JPRB,1.4606E-01_JPRB,1.4349E-01_JPRB,1.3492E-01_JPRB,1.2182E-01_JPRB,1.0431E-01_JPRB,&
+ & 8.4373E-02_JPRB,5.9330E-02_JPRB,3.7520E-02_JPRB,2.8503E-02_JPRB,2.7981E-02_JPRB/)  
+KAO( :, 4, 1, 6) = (/&
+ & 1.4204E-01_JPRB,1.4980E-01_JPRB,1.4773E-01_JPRB,1.3955E-01_JPRB,1.2635E-01_JPRB,1.0953E-01_JPRB,&
+ & 8.9320E-02_JPRB,6.3663E-02_JPRB,4.1464E-02_JPRB,3.2709E-02_JPRB,3.2519E-02_JPRB/)  
+KAO( :, 5, 1, 6) = (/&
+ & 1.4335E-01_JPRB,1.5332E-01_JPRB,1.5190E-01_JPRB,1.4393E-01_JPRB,1.3131E-01_JPRB,1.1498E-01_JPRB,&
+ & 9.4231E-02_JPRB,6.8373E-02_JPRB,4.5718E-02_JPRB,3.7379E-02_JPRB,3.7561E-02_JPRB/)  
+KAO( :, 1, 2, 6) = (/&
+ & 1.2540E-01_JPRB,1.2569E-01_JPRB,1.2163E-01_JPRB,1.1284E-01_JPRB,1.0119E-01_JPRB,8.6267E-02_JPRB,&
+ & 6.7814E-02_JPRB,4.6281E-02_JPRB,2.7026E-02_JPRB,1.8209E-02_JPRB,1.6155E-02_JPRB/)  
+KAO( :, 2, 2, 6) = (/&
+ & 1.2690E-01_JPRB,1.2947E-01_JPRB,1.2609E-01_JPRB,1.1758E-01_JPRB,1.0596E-01_JPRB,9.0648E-02_JPRB,&
+ & 7.2085E-02_JPRB,4.9891E-02_JPRB,2.9876E-02_JPRB,2.0766E-02_JPRB,1.9045E-02_JPRB/)  
+KAO( :, 3, 2, 6) = (/&
+ & 1.2845E-01_JPRB,1.3318E-01_JPRB,1.3033E-01_JPRB,1.2211E-01_JPRB,1.1052E-01_JPRB,9.5256E-02_JPRB,&
+ & 7.6664E-02_JPRB,5.3627E-02_JPRB,3.2984E-02_JPRB,2.3750E-02_JPRB,2.2338E-02_JPRB/)  
+KAO( :, 4, 2, 6) = (/&
+ & 1.2994E-01_JPRB,1.3679E-01_JPRB,1.3454E-01_JPRB,1.2649E-01_JPRB,1.1513E-01_JPRB,1.0018E-01_JPRB,&
+ & 8.1132E-02_JPRB,5.7623E-02_JPRB,3.6417E-02_JPRB,2.7177E-02_JPRB,2.6047E-02_JPRB/)  
+KAO( :, 5, 2, 6) = (/&
+ & 1.3135E-01_JPRB,1.4032E-01_JPRB,1.3874E-01_JPRB,1.3096E-01_JPRB,1.2020E-01_JPRB,1.0521E-01_JPRB,&
+ & 8.5803E-02_JPRB,6.1991E-02_JPRB,4.0111E-02_JPRB,3.0993E-02_JPRB,3.0183E-02_JPRB/)  
+KAO( :, 1, 3, 6) = (/&
+ & 1.1249E-01_JPRB,1.1241E-01_JPRB,1.0797E-01_JPRB,9.9582E-02_JPRB,8.8991E-02_JPRB,7.6122E-02_JPRB,&
+ & 5.9776E-02_JPRB,4.0423E-02_JPRB,2.3381E-02_JPRB,1.4989E-02_JPRB,1.2392E-02_JPRB/)  
+KAO( :, 2, 3, 6) = (/&
+ & 1.1410E-01_JPRB,1.1606E-01_JPRB,1.1205E-01_JPRB,1.0392E-01_JPRB,9.3538E-02_JPRB,8.0374E-02_JPRB,&
+ & 6.3755E-02_JPRB,4.3750E-02_JPRB,2.5848E-02_JPRB,1.7065E-02_JPRB,1.4647E-02_JPRB/)  
+KAO( :, 3, 3, 6) = (/&
+ & 1.1569E-01_JPRB,1.1965E-01_JPRB,1.1613E-01_JPRB,1.0831E-01_JPRB,9.7905E-02_JPRB,8.4765E-02_JPRB,&
+ & 6.7839E-02_JPRB,4.7191E-02_JPRB,2.8514E-02_JPRB,1.9425E-02_JPRB,1.7233E-02_JPRB/)  
+KAO( :, 4, 3, 6) = (/&
+ & 1.1726E-01_JPRB,1.2309E-01_JPRB,1.2032E-01_JPRB,1.1259E-01_JPRB,1.0247E-01_JPRB,8.9387E-02_JPRB,&
+ & 7.1928E-02_JPRB,5.0787E-02_JPRB,3.1455E-02_JPRB,2.2128E-02_JPRB,2.0137E-02_JPRB/)  
+KAO( :, 5, 3, 6) = (/&
+ & 1.1874E-01_JPRB,1.2658E-01_JPRB,1.2440E-01_JPRB,1.1705E-01_JPRB,1.0739E-01_JPRB,9.3857E-02_JPRB,&
+ & 7.6244E-02_JPRB,5.4771E-02_JPRB,3.4624E-02_JPRB,2.5158E-02_JPRB,2.3398E-02_JPRB/)  
+KAO( :, 1, 4, 6) = (/&
+ & 1.0010E-01_JPRB,9.9685E-02_JPRB,9.4787E-02_JPRB,8.6882E-02_JPRB,7.7198E-02_JPRB,6.5934E-02_JPRB,&
+ & 5.1807E-02_JPRB,3.4736E-02_JPRB,1.9980E-02_JPRB,1.2335E-02_JPRB,1.0141E-02_JPRB/)  
+KAO( :, 2, 4, 6) = (/&
+ & 1.0170E-01_JPRB,1.0312E-01_JPRB,9.8622E-02_JPRB,9.0905E-02_JPRB,8.1426E-02_JPRB,6.9900E-02_JPRB,&
+ & 5.5494E-02_JPRB,3.7661E-02_JPRB,2.2134E-02_JPRB,1.4013E-02_JPRB,1.1758E-02_JPRB/)  
+KAO( :, 3, 4, 6) = (/&
+ & 1.0335E-01_JPRB,1.0651E-01_JPRB,1.0245E-01_JPRB,9.5068E-02_JPRB,8.5570E-02_JPRB,7.4056E-02_JPRB,&
+ & 5.9162E-02_JPRB,4.0698E-02_JPRB,2.4492E-02_JPRB,1.5920E-02_JPRB,1.3637E-02_JPRB/)  
+KAO( :, 4, 4, 6) = (/&
+ & 1.0499E-01_JPRB,1.0979E-01_JPRB,1.0642E-01_JPRB,9.9223E-02_JPRB,8.9977E-02_JPRB,7.8273E-02_JPRB,&
+ & 6.2815E-02_JPRB,4.3991E-02_JPRB,2.7037E-02_JPRB,1.8072E-02_JPRB,1.5828E-02_JPRB/)  
+KAO( :, 5, 4, 6) = (/&
+ & 1.0648E-01_JPRB,1.1320E-01_JPRB,1.1032E-01_JPRB,1.0355E-01_JPRB,9.4621E-02_JPRB,8.2442E-02_JPRB,&
+ & 6.6678E-02_JPRB,4.7586E-02_JPRB,2.9766E-02_JPRB,2.0476E-02_JPRB,1.8322E-02_JPRB/)  
+KAO( :, 1, 5, 6) = (/&
+ & 8.8646E-02_JPRB,8.7933E-02_JPRB,8.2832E-02_JPRB,7.5476E-02_JPRB,6.6640E-02_JPRB,5.6566E-02_JPRB,&
+ & 4.4409E-02_JPRB,2.9574E-02_JPRB,1.6904E-02_JPRB,1.0272E-02_JPRB,9.1351E-03_JPRB/)  
+KAO( :, 2, 5, 6) = (/&
+ & 9.0277E-02_JPRB,9.1081E-02_JPRB,8.6318E-02_JPRB,7.9229E-02_JPRB,7.0495E-02_JPRB,6.0192E-02_JPRB,&
+ & 4.7724E-02_JPRB,3.2103E-02_JPRB,1.8750E-02_JPRB,1.1641E-02_JPRB,1.0542E-02_JPRB/)  
+KAO( :, 3, 5, 6) = (/&
+ & 9.1984E-02_JPRB,9.4263E-02_JPRB,8.9928E-02_JPRB,8.3093E-02_JPRB,7.4368E-02_JPRB,6.3999E-02_JPRB,&
+ & 5.1030E-02_JPRB,3.4755E-02_JPRB,2.0780E-02_JPRB,1.3171E-02_JPRB,1.2136E-02_JPRB/)  
+KAO( :, 4, 5, 6) = (/&
+ & 9.3576E-02_JPRB,9.7447E-02_JPRB,9.3654E-02_JPRB,8.7006E-02_JPRB,7.8424E-02_JPRB,6.7877E-02_JPRB,&
+ & 5.4374E-02_JPRB,3.7638E-02_JPRB,2.3002E-02_JPRB,1.4893E-02_JPRB,1.3923E-02_JPRB/)  
+KAO( :, 5, 5, 6) = (/&
+ & 9.5080E-02_JPRB,1.0065E-01_JPRB,9.7383E-02_JPRB,9.1136E-02_JPRB,8.2601E-02_JPRB,7.1701E-02_JPRB,&
+ & 5.7863E-02_JPRB,4.0796E-02_JPRB,2.5412E-02_JPRB,1.6809E-02_JPRB,1.5908E-02_JPRB/)  
+KAO( :, 1, 6, 6) = (/&
+ & 7.7960E-02_JPRB,7.6934E-02_JPRB,7.1843E-02_JPRB,6.5156E-02_JPRB,5.7207E-02_JPRB,4.8156E-02_JPRB,&
+ & 3.7659E-02_JPRB,2.4879E-02_JPRB,1.4127E-02_JPRB,8.5541E-03_JPRB,8.3666E-03_JPRB/)  
+KAO( :, 2, 6, 6) = (/&
+ & 7.9609E-02_JPRB,7.9866E-02_JPRB,7.5063E-02_JPRB,6.8592E-02_JPRB,6.0623E-02_JPRB,5.1416E-02_JPRB,&
+ & 4.0604E-02_JPRB,2.7099E-02_JPRB,1.5685E-02_JPRB,9.6918E-03_JPRB,9.5572E-03_JPRB/)  
+KAO( :, 3, 6, 6) = (/&
+ & 8.1302E-02_JPRB,8.2836E-02_JPRB,7.8445E-02_JPRB,7.2127E-02_JPRB,6.4136E-02_JPRB,5.4857E-02_JPRB,&
+ & 4.3565E-02_JPRB,2.9366E-02_JPRB,1.7400E-02_JPRB,1.0963E-02_JPRB,1.0922E-02_JPRB/)  
+KAO( :, 4, 6, 6) = (/&
+ & 8.2802E-02_JPRB,8.5864E-02_JPRB,8.1904E-02_JPRB,7.5770E-02_JPRB,6.7852E-02_JPRB,5.8330E-02_JPRB,&
+ & 4.6522E-02_JPRB,3.1837E-02_JPRB,1.9277E-02_JPRB,1.2364E-02_JPRB,1.2452E-02_JPRB/)  
+KAO( :, 5, 6, 6) = (/&
+ & 8.4221E-02_JPRB,8.8823E-02_JPRB,8.5384E-02_JPRB,7.9630E-02_JPRB,7.1590E-02_JPRB,6.1823E-02_JPRB,&
+ & 4.9653E-02_JPRB,3.4554E-02_JPRB,2.1337E-02_JPRB,1.3901E-02_JPRB,1.4136E-02_JPRB/)  
+KAO( :, 1, 7, 6) = (/&
+ & 6.7828E-02_JPRB,6.6421E-02_JPRB,6.1520E-02_JPRB,5.5497E-02_JPRB,4.8477E-02_JPRB,4.0523E-02_JPRB,&
+ & 3.1519E-02_JPRB,2.0723E-02_JPRB,1.1684E-02_JPRB,7.0442E-03_JPRB,8.2153E-03_JPRB/)  
+KAO( :, 2, 7, 6) = (/&
+ & 6.9386E-02_JPRB,6.9084E-02_JPRB,6.4466E-02_JPRB,5.8621E-02_JPRB,5.1513E-02_JPRB,4.3404E-02_JPRB,&
+ & 3.4117E-02_JPRB,2.2620E-02_JPRB,1.3002E-02_JPRB,8.0096E-03_JPRB,9.3023E-03_JPRB/)  
+KAO( :, 3, 7, 6) = (/&
+ & 7.0902E-02_JPRB,7.1781E-02_JPRB,6.7571E-02_JPRB,6.1798E-02_JPRB,5.4668E-02_JPRB,4.6485E-02_JPRB,&
+ & 3.6722E-02_JPRB,2.4596E-02_JPRB,1.4441E-02_JPRB,9.0791E-03_JPRB,1.0528E-02_JPRB/)  
+KAO( :, 4, 7, 6) = (/&
+ & 7.2282E-02_JPRB,7.4474E-02_JPRB,7.0674E-02_JPRB,6.5102E-02_JPRB,5.8020E-02_JPRB,4.9583E-02_JPRB,&
+ & 3.9334E-02_JPRB,2.6694E-02_JPRB,1.6007E-02_JPRB,1.0271E-02_JPRB,1.1922E-02_JPRB/)  
+KAO( :, 5, 7, 6) = (/&
+ & 7.3586E-02_JPRB,7.7141E-02_JPRB,7.3787E-02_JPRB,6.8567E-02_JPRB,6.1369E-02_JPRB,5.2671E-02_JPRB,&
+ & 4.2103E-02_JPRB,2.8979E-02_JPRB,1.7736E-02_JPRB,1.1572E-02_JPRB,1.3447E-02_JPRB/)  
+KAO( :, 1, 8, 6) = (/&
+ & 5.8712E-02_JPRB,5.7043E-02_JPRB,5.2438E-02_JPRB,4.7021E-02_JPRB,4.0853E-02_JPRB,3.3895E-02_JPRB,&
+ & 2.6198E-02_JPRB,1.7219E-02_JPRB,9.5944E-03_JPRB,5.7565E-03_JPRB,9.7903E-03_JPRB/)  
+KAO( :, 2, 8, 6) = (/&
+ & 6.0111E-02_JPRB,5.9403E-02_JPRB,5.5109E-02_JPRB,4.9792E-02_JPRB,4.3500E-02_JPRB,3.6406E-02_JPRB,&
+ & 2.8441E-02_JPRB,1.8832E-02_JPRB,1.0715E-02_JPRB,6.5565E-03_JPRB,1.0886E-02_JPRB/)  
+KAO( :, 3, 8, 6) = (/&
+ & 6.1464E-02_JPRB,6.1765E-02_JPRB,5.7839E-02_JPRB,5.2591E-02_JPRB,4.6276E-02_JPRB,3.9078E-02_JPRB,&
+ & 3.0733E-02_JPRB,2.0508E-02_JPRB,1.1934E-02_JPRB,7.4566E-03_JPRB,1.2121E-02_JPRB/)  
+KAO( :, 4, 8, 6) = (/&
+ & 6.2712E-02_JPRB,6.4146E-02_JPRB,6.0527E-02_JPRB,5.5457E-02_JPRB,4.9226E-02_JPRB,4.1797E-02_JPRB,&
+ & 3.3031E-02_JPRB,2.2300E-02_JPRB,1.3252E-02_JPRB,8.4625E-03_JPRB,1.3482E-02_JPRB/)  
+KAO( :, 5, 8, 6) = (/&
+ & 6.3914E-02_JPRB,6.6490E-02_JPRB,6.3234E-02_JPRB,5.8457E-02_JPRB,5.2124E-02_JPRB,4.4504E-02_JPRB,&
+ & 3.5484E-02_JPRB,2.4239E-02_JPRB,1.4708E-02_JPRB,9.5766E-03_JPRB,1.4975E-02_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART4',1,ZHOOK_HANDLE)
+END SUBROUTINE PART4
+
+
+SUBROUTINE PART5
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART5',0,ZHOOK_HANDLE)
+
+
+KAO( :, 1, 9, 6) = (/&
+ & 5.0689E-02_JPRB,4.8919E-02_JPRB,4.4694E-02_JPRB,3.9834E-02_JPRB,3.4426E-02_JPRB,2.8389E-02_JPRB,&
+ & 2.1819E-02_JPRB,1.4302E-02_JPRB,7.8127E-03_JPRB,4.6620E-03_JPRB,2.0696E-02_JPRB/)  
+KAO( :, 2, 9, 6) = (/&
+ & 5.1946E-02_JPRB,5.0973E-02_JPRB,4.7056E-02_JPRB,4.2253E-02_JPRB,3.6737E-02_JPRB,3.0544E-02_JPRB,&
+ & 2.3724E-02_JPRB,1.5668E-02_JPRB,8.7780E-03_JPRB,5.3214E-03_JPRB,2.1910E-02_JPRB/)  
+KAO( :, 3, 9, 6) = (/&
+ & 5.3143E-02_JPRB,5.3077E-02_JPRB,4.9431E-02_JPRB,4.4665E-02_JPRB,3.9122E-02_JPRB,3.2816E-02_JPRB,&
+ & 2.5692E-02_JPRB,1.7096E-02_JPRB,9.8039E-03_JPRB,6.0656E-03_JPRB,2.3234E-02_JPRB/)  
+KAO( :, 4, 9, 6) = (/&
+ & 5.4267E-02_JPRB,5.5157E-02_JPRB,5.1739E-02_JPRB,4.7167E-02_JPRB,4.1644E-02_JPRB,3.5136E-02_JPRB,&
+ & 2.7685E-02_JPRB,1.8626E-02_JPRB,1.0916E-02_JPRB,6.9060E-03_JPRB,2.4826E-02_JPRB/)  
+KAO( :, 5, 9, 6) = (/&
+ & 5.5411E-02_JPRB,5.7220E-02_JPRB,5.4074E-02_JPRB,4.9699E-02_JPRB,4.4127E-02_JPRB,3.7477E-02_JPRB,&
+ & 2.9785E-02_JPRB,2.0273E-02_JPRB,1.2148E-02_JPRB,7.8411E-03_JPRB,2.6607E-02_JPRB/)  
+KAO( :, 1,10, 6) = (/&
+ & 4.3441E-02_JPRB,4.1752E-02_JPRB,3.7992E-02_JPRB,3.3732E-02_JPRB,2.9033E-02_JPRB,2.3892E-02_JPRB,&
+ & 1.8315E-02_JPRB,1.1925E-02_JPRB,6.3650E-03_JPRB,3.7730E-03_JPRB,5.8980E-02_JPRB/)  
+KAO( :, 2,10, 6) = (/&
+ & 4.4578E-02_JPRB,4.3534E-02_JPRB,4.0036E-02_JPRB,3.5800E-02_JPRB,3.1038E-02_JPRB,2.5745E-02_JPRB,&
+ & 1.9928E-02_JPRB,1.3095E-02_JPRB,7.1901E-03_JPRB,4.3268E-03_JPRB,6.2127E-02_JPRB/)  
+KAO( :, 3,10, 6) = (/&
+ & 4.5637E-02_JPRB,4.5360E-02_JPRB,4.2074E-02_JPRB,3.7890E-02_JPRB,3.3109E-02_JPRB,2.7662E-02_JPRB,&
+ & 2.1605E-02_JPRB,1.4318E-02_JPRB,8.0717E-03_JPRB,4.9441E-03_JPRB,6.4930E-02_JPRB/)  
+KAO( :, 4,10, 6) = (/&
+ & 4.6665E-02_JPRB,4.7201E-02_JPRB,4.4073E-02_JPRB,4.0041E-02_JPRB,3.5227E-02_JPRB,2.9634E-02_JPRB,&
+ & 2.3310E-02_JPRB,1.5630E-02_JPRB,9.0074E-03_JPRB,5.6431E-03_JPRB,6.7490E-02_JPRB/)  
+KAO( :, 5,10, 6) = (/&
+ & 4.7723E-02_JPRB,4.9037E-02_JPRB,4.6142E-02_JPRB,4.2228E-02_JPRB,3.7348E-02_JPRB,3.1608E-02_JPRB,&
+ & 2.5075E-02_JPRB,1.7036E-02_JPRB,1.0045E-02_JPRB,6.4268E-03_JPRB,6.9977E-02_JPRB/)  
+KAO( :, 1,11, 6) = (/&
+ & 3.7516E-02_JPRB,3.6158E-02_JPRB,3.2933E-02_JPRB,2.9252E-02_JPRB,2.5204E-02_JPRB,2.0803E-02_JPRB,&
+ & 1.5990E-02_JPRB,1.0375E-02_JPRB,5.4827E-03_JPRB,3.2361E-03_JPRB,8.1016E-02_JPRB/)  
+KAO( :, 2,11, 6) = (/&
+ & 3.8506E-02_JPRB,3.7721E-02_JPRB,3.4706E-02_JPRB,3.1031E-02_JPRB,2.6946E-02_JPRB,2.2411E-02_JPRB,&
+ & 1.7386E-02_JPRB,1.1409E-02_JPRB,6.2003E-03_JPRB,3.7210E-03_JPRB,8.4685E-02_JPRB/)  
+KAO( :, 3,11, 6) = (/&
+ & 3.9439E-02_JPRB,3.9310E-02_JPRB,3.6436E-02_JPRB,3.2830E-02_JPRB,2.8736E-02_JPRB,2.4071E-02_JPRB,&
+ & 1.8831E-02_JPRB,1.2487E-02_JPRB,6.9722E-03_JPRB,4.2623E-03_JPRB,8.7980E-02_JPRB/)  
+KAO( :, 4,11, 6) = (/&
+ & 4.0392E-02_JPRB,4.0944E-02_JPRB,3.8217E-02_JPRB,3.4707E-02_JPRB,3.0543E-02_JPRB,2.5731E-02_JPRB,&
+ & 2.0303E-02_JPRB,1.3646E-02_JPRB,7.7970E-03_JPRB,4.8703E-03_JPRB,9.0981E-02_JPRB/)  
+KAO( :, 5,11, 6) = (/&
+ & 4.1332E-02_JPRB,4.2552E-02_JPRB,4.0059E-02_JPRB,3.6603E-02_JPRB,3.2383E-02_JPRB,2.7450E-02_JPRB,&
+ & 2.1833E-02_JPRB,1.4887E-02_JPRB,8.7084E-03_JPRB,5.5527E-03_JPRB,9.3973E-02_JPRB/)  
+KAO( :, 1,12, 6) = (/&
+ & 3.2190E-02_JPRB,3.1071E-02_JPRB,2.8321E-02_JPRB,2.5152E-02_JPRB,2.1728E-02_JPRB,1.7981E-02_JPRB,&
+ & 1.3822E-02_JPRB,8.9602E-03_JPRB,4.7106E-03_JPRB,2.7564E-03_JPRB,8.5402E-02_JPRB/)  
+KAO( :, 2,12, 6) = (/&
+ & 3.3033E-02_JPRB,3.2405E-02_JPRB,2.9806E-02_JPRB,2.6661E-02_JPRB,2.3211E-02_JPRB,1.9361E-02_JPRB,&
+ & 1.5025E-02_JPRB,9.8641E-03_JPRB,5.3297E-03_JPRB,3.1770E-03_JPRB,8.8737E-02_JPRB/)  
+KAO( :, 3,12, 6) = (/&
+ & 3.3864E-02_JPRB,3.3793E-02_JPRB,3.1297E-02_JPRB,2.8211E-02_JPRB,2.4733E-02_JPRB,2.0771E-02_JPRB,&
+ & 1.6265E-02_JPRB,1.0821E-02_JPRB,6.0022E-03_JPRB,3.6467E-03_JPRB,9.1670E-02_JPRB/)  
+KAO( :, 4,12, 6) = (/&
+ & 3.4696E-02_JPRB,3.5203E-02_JPRB,3.2853E-02_JPRB,2.9817E-02_JPRB,2.6296E-02_JPRB,2.2203E-02_JPRB,&
+ & 1.7545E-02_JPRB,1.1834E-02_JPRB,6.7302E-03_JPRB,4.1679E-03_JPRB,9.4574E-02_JPRB/)  
+KAO( :, 5,12, 6) = (/&
+ & 3.5522E-02_JPRB,3.6626E-02_JPRB,3.4423E-02_JPRB,3.1438E-02_JPRB,2.7875E-02_JPRB,2.3697E-02_JPRB,&
+ & 1.8905E-02_JPRB,1.2927E-02_JPRB,7.5191E-03_JPRB,4.7590E-03_JPRB,9.7614E-02_JPRB/)  
+KAO( :, 1,13, 6) = (/&
+ & 2.7210E-02_JPRB,2.6304E-02_JPRB,2.3996E-02_JPRB,2.1359E-02_JPRB,1.8491E-02_JPRB,1.5314E-02_JPRB,&
+ & 1.1755E-02_JPRB,7.6170E-03_JPRB,4.0095E-03_JPRB,2.3275E-03_JPRB,7.1211E-02_JPRB/)  
+KAO( :, 2,13, 6) = (/&
+ & 2.7941E-02_JPRB,2.7441E-02_JPRB,2.5246E-02_JPRB,2.2622E-02_JPRB,1.9729E-02_JPRB,1.6472E-02_JPRB,&
+ & 1.2765E-02_JPRB,8.4034E-03_JPRB,4.5447E-03_JPRB,2.6861E-03_JPRB,7.3769E-02_JPRB/)  
+KAO( :, 3,13, 6) = (/&
+ & 2.8664E-02_JPRB,2.8630E-02_JPRB,2.6520E-02_JPRB,2.3935E-02_JPRB,2.1025E-02_JPRB,1.7662E-02_JPRB,&
+ & 1.3821E-02_JPRB,9.2359E-03_JPRB,5.1273E-03_JPRB,3.0871E-03_JPRB,7.6136E-02_JPRB/)  
+KAO( :, 4,13, 6) = (/&
+ & 2.9387E-02_JPRB,2.9844E-02_JPRB,2.7832E-02_JPRB,2.5287E-02_JPRB,2.2341E-02_JPRB,1.8888E-02_JPRB,&
+ & 1.4940E-02_JPRB,1.0117E-02_JPRB,5.7529E-03_JPRB,3.5334E-03_JPRB,7.8673E-02_JPRB/)  
+KAO( :, 5,13, 6) = (/&
+ & 3.0121E-02_JPRB,3.1064E-02_JPRB,2.9140E-02_JPRB,2.6651E-02_JPRB,2.3680E-02_JPRB,2.0177E-02_JPRB,&
+ & 1.6134E-02_JPRB,1.1077E-02_JPRB,6.4283E-03_JPRB,4.0402E-03_JPRB,8.1505E-02_JPRB/)  
+KAO( :, 1, 1, 7) = (/&
+ & 2.6926E-01_JPRB,2.5612E-01_JPRB,2.3950E-01_JPRB,2.1903E-01_JPRB,1.9378E-01_JPRB,1.6501E-01_JPRB,&
+ & 1.2973E-01_JPRB,8.7439E-02_JPRB,5.3950E-02_JPRB,4.2811E-02_JPRB,4.3233E-02_JPRB/)  
+KAO( :, 2, 1, 7) = (/&
+ & 2.6861E-01_JPRB,2.5930E-01_JPRB,2.4513E-01_JPRB,2.2568E-01_JPRB,2.0133E-01_JPRB,1.7294E-01_JPRB,&
+ & 1.3711E-01_JPRB,9.4464E-02_JPRB,6.0595E-02_JPRB,5.0710E-02_JPRB,5.1677E-02_JPRB/)  
+KAO( :, 3, 1, 7) = (/&
+ & 2.6820E-01_JPRB,2.6238E-01_JPRB,2.5102E-01_JPRB,2.3240E-01_JPRB,2.0913E-01_JPRB,1.8091E-01_JPRB,&
+ & 1.4446E-01_JPRB,1.0226E-01_JPRB,6.8084E-02_JPRB,5.9495E-02_JPRB,6.1037E-02_JPRB/)  
+KAO( :, 4, 1, 7) = (/&
+ & 2.6771E-01_JPRB,2.6572E-01_JPRB,2.5658E-01_JPRB,2.3935E-01_JPRB,2.1685E-01_JPRB,1.8839E-01_JPRB,&
+ & 1.5222E-01_JPRB,1.1069E-01_JPRB,7.6279E-02_JPRB,6.9108E-02_JPRB,7.1213E-02_JPRB/)  
+KAO( :, 5, 1, 7) = (/&
+ & 2.6714E-01_JPRB,2.6936E-01_JPRB,2.6194E-01_JPRB,2.4642E-01_JPRB,2.2450E-01_JPRB,1.9571E-01_JPRB,&
+ & 1.6083E-01_JPRB,1.1918E-01_JPRB,8.5421E-02_JPRB,7.9682E-02_JPRB,8.2280E-02_JPRB/)  
+KAO( :, 1, 2, 7) = (/&
+ & 2.5685E-01_JPRB,2.4492E-01_JPRB,2.2865E-01_JPRB,2.0884E-01_JPRB,1.8444E-01_JPRB,1.5601E-01_JPRB,&
+ & 1.2319E-01_JPRB,8.1747E-02_JPRB,4.8230E-02_JPRB,3.5409E-02_JPRB,3.4615E-02_JPRB/)  
+KAO( :, 2, 2, 7) = (/&
+ & 2.5657E-01_JPRB,2.4834E-01_JPRB,2.3445E-01_JPRB,2.1551E-01_JPRB,1.9182E-01_JPRB,1.6377E-01_JPRB,&
+ & 1.3042E-01_JPRB,8.8197E-02_JPRB,5.3891E-02_JPRB,4.1822E-02_JPRB,4.1515E-02_JPRB/)  
+KAO( :, 3, 2, 7) = (/&
+ & 2.5627E-01_JPRB,2.5163E-01_JPRB,2.4011E-01_JPRB,2.2230E-01_JPRB,1.9937E-01_JPRB,1.7150E-01_JPRB,&
+ & 1.3758E-01_JPRB,9.5254E-02_JPRB,6.0018E-02_JPRB,4.9025E-02_JPRB,4.9189E-02_JPRB/)  
+KAO( :, 4, 2, 7) = (/&
+ & 2.5591E-01_JPRB,2.5517E-01_JPRB,2.4558E-01_JPRB,2.2928E-01_JPRB,2.0702E-01_JPRB,1.7899E-01_JPRB,&
+ & 1.4524E-01_JPRB,1.0258E-01_JPRB,6.6782E-02_JPRB,5.7123E-02_JPRB,5.7631E-02_JPRB/)  
+KAO( :, 5, 2, 7) = (/&
+ & 2.5562E-01_JPRB,2.5902E-01_JPRB,2.5095E-01_JPRB,2.3638E-01_JPRB,2.1422E-01_JPRB,1.8662E-01_JPRB,&
+ & 1.5329E-01_JPRB,1.0996E-01_JPRB,7.4405E-02_JPRB,6.6142E-02_JPRB,6.6949E-02_JPRB/)  
+KAO( :, 1, 3, 7) = (/&
+ & 2.4108E-01_JPRB,2.2965E-01_JPRB,2.1361E-01_JPRB,1.9446E-01_JPRB,1.7133E-01_JPRB,1.4401E-01_JPRB,&
+ & 1.1345E-01_JPRB,7.5185E-02_JPRB,4.2160E-02_JPRB,2.8583E-02_JPRB,2.6584E-02_JPRB/)  
+KAO( :, 2, 3, 7) = (/&
+ & 2.4113E-01_JPRB,2.3314E-01_JPRB,2.1942E-01_JPRB,2.0119E-01_JPRB,1.7846E-01_JPRB,1.5146E-01_JPRB,&
+ & 1.2063E-01_JPRB,8.1173E-02_JPRB,4.7044E-02_JPRB,3.3533E-02_JPRB,3.2019E-02_JPRB/)  
+KAO( :, 3, 3, 7) = (/&
+ & 2.4094E-01_JPRB,2.3663E-01_JPRB,2.2501E-01_JPRB,2.0773E-01_JPRB,1.8580E-01_JPRB,1.5907E-01_JPRB,&
+ & 1.2798E-01_JPRB,8.7501E-02_JPRB,5.2313E-02_JPRB,3.9244E-02_JPRB,3.8141E-02_JPRB/)  
+KAO( :, 4, 3, 7) = (/&
+ & 2.4074E-01_JPRB,2.4043E-01_JPRB,2.3041E-01_JPRB,2.1449E-01_JPRB,1.9317E-01_JPRB,1.6647E-01_JPRB,&
+ & 1.3556E-01_JPRB,9.3949E-02_JPRB,5.7980E-02_JPRB,4.5777E-02_JPRB,4.5020E-02_JPRB/)  
+KAO( :, 5, 3, 7) = (/&
+ & 2.4071E-01_JPRB,2.4430E-01_JPRB,2.3591E-01_JPRB,2.2137E-01_JPRB,2.0017E-01_JPRB,1.7425E-01_JPRB,&
+ & 1.4332E-01_JPRB,1.0047E-01_JPRB,6.4245E-02_JPRB,5.3237E-02_JPRB,5.2730E-02_JPRB/)  
+KAO( :, 1, 4, 7) = (/&
+ & 2.2311E-01_JPRB,2.1202E-01_JPRB,1.9660E-01_JPRB,1.7804E-01_JPRB,1.5619E-01_JPRB,1.3066E-01_JPRB,&
+ & 1.0239E-01_JPRB,6.7996E-02_JPRB,3.6908E-02_JPRB,2.3235E-02_JPRB,2.0397E-02_JPRB/)  
+KAO( :, 2, 4, 7) = (/&
+ & 2.2321E-01_JPRB,2.1552E-01_JPRB,2.0209E-01_JPRB,1.8449E-01_JPRB,1.6284E-01_JPRB,1.3774E-01_JPRB,&
+ & 1.0930E-01_JPRB,7.3775E-02_JPRB,4.1078E-02_JPRB,2.7004E-02_JPRB,2.4614E-02_JPRB/)  
+KAO( :, 3, 4, 7) = (/&
+ & 2.2314E-01_JPRB,2.1901E-01_JPRB,2.0753E-01_JPRB,1.9073E-01_JPRB,1.6981E-01_JPRB,1.4494E-01_JPRB,&
+ & 1.1634E-01_JPRB,7.9807E-02_JPRB,4.5483E-02_JPRB,3.1405E-02_JPRB,2.9481E-02_JPRB/)  
+KAO( :, 4, 4, 7) = (/&
+ & 2.2327E-01_JPRB,2.2287E-01_JPRB,2.1284E-01_JPRB,1.9716E-01_JPRB,1.7693E-01_JPRB,1.5226E-01_JPRB,&
+ & 1.2381E-01_JPRB,8.5751E-02_JPRB,5.0279E-02_JPRB,3.6528E-02_JPRB,3.5030E-02_JPRB/)  
+KAO( :, 5, 4, 7) = (/&
+ & 2.2365E-01_JPRB,2.2673E-01_JPRB,2.1820E-01_JPRB,2.0372E-01_JPRB,1.8385E-01_JPRB,1.5984E-01_JPRB,&
+ & 1.3133E-01_JPRB,9.1593E-02_JPRB,5.5615E-02_JPRB,4.2459E-02_JPRB,4.1306E-02_JPRB/)  
+KAO( :, 1, 5, 7) = (/&
+ & 2.0367E-01_JPRB,1.9330E-01_JPRB,1.7867E-01_JPRB,1.6084E-01_JPRB,1.4027E-01_JPRB,1.1693E-01_JPRB,&
+ & 9.0945E-02_JPRB,6.0466E-02_JPRB,3.2455E-02_JPRB,1.9165E-02_JPRB,1.7920E-02_JPRB/)  
+KAO( :, 2, 5, 7) = (/&
+ & 2.0387E-01_JPRB,1.9668E-01_JPRB,1.8380E-01_JPRB,1.6682E-01_JPRB,1.4653E-01_JPRB,1.2346E-01_JPRB,&
+ & 9.7443E-02_JPRB,6.5962E-02_JPRB,3.6138E-02_JPRB,2.2169E-02_JPRB,2.0934E-02_JPRB/)  
+KAO( :, 3, 5, 7) = (/&
+ & 2.0408E-01_JPRB,2.0015E-01_JPRB,1.8885E-01_JPRB,1.7264E-01_JPRB,1.5303E-01_JPRB,1.3023E-01_JPRB,&
+ & 1.0413E-01_JPRB,7.1676E-02_JPRB,3.9916E-02_JPRB,2.5581E-02_JPRB,2.4393E-02_JPRB/)  
+KAO( :, 4, 5, 7) = (/&
+ & 2.0467E-01_JPRB,2.0395E-01_JPRB,1.9389E-01_JPRB,1.7862E-01_JPRB,1.5966E-01_JPRB,1.3725E-01_JPRB,&
+ & 1.1106E-01_JPRB,7.7287E-02_JPRB,4.3976E-02_JPRB,2.9567E-02_JPRB,2.8440E-02_JPRB/)  
+KAO( :, 5, 5, 7) = (/&
+ & 2.0538E-01_JPRB,2.0784E-01_JPRB,1.9895E-01_JPRB,1.8474E-01_JPRB,1.6635E-01_JPRB,1.4459E-01_JPRB,&
+ & 1.1807E-01_JPRB,8.2795E-02_JPRB,4.8485E-02_JPRB,3.4195E-02_JPRB,3.3174E-02_JPRB/)  
+KAO( :, 1, 6, 7) = (/&
+ & 1.8377E-01_JPRB,1.7398E-01_JPRB,1.6006E-01_JPRB,1.4318E-01_JPRB,1.2397E-01_JPRB,1.0298E-01_JPRB,&
+ & 7.9521E-02_JPRB,5.2397E-02_JPRB,2.8050E-02_JPRB,1.5934E-02_JPRB,1.6791E-02_JPRB/)  
+KAO( :, 2, 6, 7) = (/&
+ & 1.8406E-01_JPRB,1.7717E-01_JPRB,1.6474E-01_JPRB,1.4853E-01_JPRB,1.2984E-01_JPRB,1.0898E-01_JPRB,&
+ & 8.5328E-02_JPRB,5.7490E-02_JPRB,3.1447E-02_JPRB,1.8349E-02_JPRB,1.9516E-02_JPRB/)  
+KAO( :, 3, 6, 7) = (/&
+ & 1.8458E-01_JPRB,1.8054E-01_JPRB,1.6936E-01_JPRB,1.5392E-01_JPRB,1.3584E-01_JPRB,1.1517E-01_JPRB,&
+ & 9.1409E-02_JPRB,6.2836E-02_JPRB,3.4889E-02_JPRB,2.1106E-02_JPRB,2.2611E-02_JPRB/)  
+KAO( :, 4, 6, 7) = (/&
+ & 1.8542E-01_JPRB,1.8421E-01_JPRB,1.7403E-01_JPRB,1.5942E-01_JPRB,1.4196E-01_JPRB,1.2162E-01_JPRB,&
+ & 9.7928E-02_JPRB,6.8139E-02_JPRB,3.8483E-02_JPRB,2.4244E-02_JPRB,2.6124E-02_JPRB/)  
+KAO( :, 5, 6, 7) = (/&
+ & 1.8648E-01_JPRB,1.8801E-01_JPRB,1.7890E-01_JPRB,1.6506E-01_JPRB,1.4823E-01_JPRB,1.2840E-01_JPRB,&
+ & 1.0438E-01_JPRB,7.3304E-02_JPRB,4.2378E-02_JPRB,2.7839E-02_JPRB,3.0053E-02_JPRB/)  
+KAO( :, 1, 7, 7) = (/&
+ & 1.6272E-01_JPRB,1.5372E-01_JPRB,1.4080E-01_JPRB,1.2519E-01_JPRB,1.0771E-01_JPRB,8.8984E-02_JPRB,&
+ & 6.8276E-02_JPRB,4.4541E-02_JPRB,2.3807E-02_JPRB,1.3453E-02_JPRB,1.6655E-02_JPRB/)  
+KAO( :, 2, 7, 7) = (/&
+ & 1.6325E-01_JPRB,1.5679E-01_JPRB,1.4498E-01_JPRB,1.2986E-01_JPRB,1.1297E-01_JPRB,9.4402E-02_JPRB,&
+ & 7.3383E-02_JPRB,4.9046E-02_JPRB,2.6845E-02_JPRB,1.5405E-02_JPRB,1.9132E-02_JPRB/)  
+KAO( :, 3, 7, 7) = (/&
+ & 1.6400E-01_JPRB,1.6007E-01_JPRB,1.4916E-01_JPRB,1.3473E-01_JPRB,1.1836E-01_JPRB,9.9949E-02_JPRB,&
+ & 7.8806E-02_JPRB,5.3833E-02_JPRB,2.9954E-02_JPRB,1.7645E-02_JPRB,2.1895E-02_JPRB/)  
+KAO( :, 4, 7, 7) = (/&
+ & 1.6505E-01_JPRB,1.6353E-01_JPRB,1.5347E-01_JPRB,1.3982E-01_JPRB,1.2392E-01_JPRB,1.0565E-01_JPRB,&
+ & 8.4634E-02_JPRB,5.8597E-02_JPRB,3.3207E-02_JPRB,2.0171E-02_JPRB,2.4986E-02_JPRB/)  
+KAO( :, 5, 7, 7) = (/&
+ & 1.6641E-01_JPRB,1.6726E-01_JPRB,1.5808E-01_JPRB,1.4506E-01_JPRB,1.2973E-01_JPRB,1.1182E-01_JPRB,&
+ & 9.0461E-02_JPRB,6.3334E-02_JPRB,3.6689E-02_JPRB,2.3031E-02_JPRB,2.8476E-02_JPRB/)  
+KAO( :, 1, 8, 7) = (/&
+ & 1.4230E-01_JPRB,1.3413E-01_JPRB,1.2233E-01_JPRB,1.0813E-01_JPRB,9.2496E-02_JPRB,7.5904E-02_JPRB,&
+ & 5.7906E-02_JPRB,3.7394E-02_JPRB,2.0019E-02_JPRB,1.1310E-02_JPRB,1.9019E-02_JPRB/)  
+KAO( :, 2, 8, 7) = (/&
+ & 1.4305E-01_JPRB,1.3708E-01_JPRB,1.2596E-01_JPRB,1.1218E-01_JPRB,9.7109E-02_JPRB,8.0704E-02_JPRB,&
+ & 6.2330E-02_JPRB,4.1218E-02_JPRB,2.2623E-02_JPRB,1.3029E-02_JPRB,2.1546E-02_JPRB/)  
+KAO( :, 3, 8, 7) = (/&
+ & 1.4394E-01_JPRB,1.4013E-01_JPRB,1.2970E-01_JPRB,1.1658E-01_JPRB,1.0194E-01_JPRB,8.5591E-02_JPRB,&
+ & 6.7043E-02_JPRB,4.5347E-02_JPRB,2.5359E-02_JPRB,1.4903E-02_JPRB,2.4327E-02_JPRB/)  
+KAO( :, 4, 8, 7) = (/&
+ & 1.4525E-01_JPRB,1.4339E-01_JPRB,1.3373E-01_JPRB,1.2126E-01_JPRB,1.0690E-01_JPRB,9.0683E-02_JPRB,&
+ & 7.2129E-02_JPRB,4.9569E-02_JPRB,2.8222E-02_JPRB,1.6964E-02_JPRB,2.7427E-02_JPRB/)  
+KAO( :, 5, 8, 7) = (/&
+ & 1.4678E-01_JPRB,1.4702E-01_JPRB,1.3814E-01_JPRB,1.2616E-01_JPRB,1.1217E-01_JPRB,9.6136E-02_JPRB,&
+ & 7.7253E-02_JPRB,5.3800E-02_JPRB,3.1285E-02_JPRB,1.9274E-02_JPRB,3.0890E-02_JPRB/)  
+KAO( :, 1, 9, 7) = (/&
+ & 1.2368E-01_JPRB,1.1615E-01_JPRB,1.0547E-01_JPRB,9.2730E-02_JPRB,7.8890E-02_JPRB,6.4288E-02_JPRB,&
+ & 4.8706E-02_JPRB,3.1194E-02_JPRB,1.6735E-02_JPRB,9.3621E-03_JPRB,3.9474E-02_JPRB/)  
+KAO( :, 2, 9, 7) = (/&
+ & 1.2453E-01_JPRB,1.1886E-01_JPRB,1.0862E-01_JPRB,9.6299E-02_JPRB,8.2892E-02_JPRB,6.8444E-02_JPRB,&
+ & 5.2534E-02_JPRB,3.4360E-02_JPRB,1.8949E-02_JPRB,1.0875E-02_JPRB,4.3185E-02_JPRB/)  
+KAO( :, 3, 9, 7) = (/&
+ & 1.2562E-01_JPRB,1.2177E-01_JPRB,1.1199E-01_JPRB,1.0025E-01_JPRB,8.7157E-02_JPRB,7.2734E-02_JPRB,&
+ & 5.6567E-02_JPRB,3.7837E-02_JPRB,2.1307E-02_JPRB,1.2524E-02_JPRB,4.7262E-02_JPRB/)  
+KAO( :, 4, 9, 7) = (/&
+ & 1.2711E-01_JPRB,1.2497E-01_JPRB,1.1585E-01_JPRB,1.0453E-01_JPRB,9.1592E-02_JPRB,7.7237E-02_JPRB,&
+ & 6.0927E-02_JPRB,4.1474E-02_JPRB,2.3783E-02_JPRB,1.4321E-02_JPRB,5.1601E-02_JPRB/)  
+KAO( :, 5, 9, 7) = (/&
+ & 1.2877E-01_JPRB,1.2842E-01_JPRB,1.2005E-01_JPRB,1.0911E-01_JPRB,9.6384E-02_JPRB,8.2052E-02_JPRB,&
+ & 6.5390E-02_JPRB,4.5200E-02_JPRB,2.6423E-02_JPRB,1.6264E-02_JPRB,5.6231E-02_JPRB/)  
+KAO( :, 1,10, 7) = (/&
+ & 1.0692E-01_JPRB,1.0005E-01_JPRB,9.0502E-02_JPRB,7.9216E-02_JPRB,6.7057E-02_JPRB,5.4323E-02_JPRB,&
+ & 4.0890E-02_JPRB,2.6119E-02_JPRB,1.4019E-02_JPRB,7.7525E-03_JPRB,1.2082E-01_JPRB/)  
+KAO( :, 2,10, 7) = (/&
+ & 1.0785E-01_JPRB,1.0257E-01_JPRB,9.3251E-02_JPRB,8.2316E-02_JPRB,7.0515E-02_JPRB,5.7848E-02_JPRB,&
+ & 4.4197E-02_JPRB,2.8769E-02_JPRB,1.5892E-02_JPRB,9.0528E-03_JPRB,1.2557E-01_JPRB/)  
+KAO( :, 3,10, 7) = (/&
+ & 1.0912E-01_JPRB,1.0534E-01_JPRB,9.6345E-02_JPRB,8.5888E-02_JPRB,7.4218E-02_JPRB,6.1590E-02_JPRB,&
+ & 4.7639E-02_JPRB,3.1645E-02_JPRB,1.7926E-02_JPRB,1.0497E-02_JPRB,1.3124E-01_JPRB/)  
+KAO( :, 4,10, 7) = (/&
+ & 1.1068E-01_JPRB,1.0836E-01_JPRB,9.9964E-02_JPRB,8.9810E-02_JPRB,7.8244E-02_JPRB,6.5593E-02_JPRB,&
+ & 5.1337E-02_JPRB,3.4711E-02_JPRB,2.0071E-02_JPRB,1.2083E-02_JPRB,1.3784E-01_JPRB/)  
+KAO( :, 5,10, 7) = (/&
+ & 1.1237E-01_JPRB,1.1161E-01_JPRB,1.0388E-01_JPRB,9.3947E-02_JPRB,8.2580E-02_JPRB,6.9883E-02_JPRB,&
+ & 5.5203E-02_JPRB,3.7928E-02_JPRB,2.2348E-02_JPRB,1.3792E-02_JPRB,1.4518E-01_JPRB/)  
+KAO( :, 1,11, 7) = (/&
+ & 9.2754E-02_JPRB,8.7072E-02_JPRB,7.8639E-02_JPRB,6.8755E-02_JPRB,5.8275E-02_JPRB,4.7245E-02_JPRB,&
+ & 3.5602E-02_JPRB,2.2866E-02_JPRB,1.2334E-02_JPRB,6.8505E-03_JPRB,1.6609E-01_JPRB/)  
+KAO( :, 2,11, 7) = (/&
+ & 9.3939E-02_JPRB,8.9571E-02_JPRB,8.1238E-02_JPRB,7.1711E-02_JPRB,6.1381E-02_JPRB,5.0306E-02_JPRB,&
+ & 3.8442E-02_JPRB,2.5156E-02_JPRB,1.3991E-02_JPRB,8.0122E-03_JPRB,1.7138E-01_JPRB/)  
+KAO( :, 3,11, 7) = (/&
+ & 9.5412E-02_JPRB,9.2282E-02_JPRB,8.4324E-02_JPRB,7.5102E-02_JPRB,6.4785E-02_JPRB,5.3640E-02_JPRB,&
+ & 4.1470E-02_JPRB,2.7635E-02_JPRB,1.5787E-02_JPRB,9.3174E-03_JPRB,1.7778E-01_JPRB/)  
+KAO( :, 4,11, 7) = (/&
+ & 9.6996E-02_JPRB,9.5142E-02_JPRB,8.7745E-02_JPRB,7.8708E-02_JPRB,6.8483E-02_JPRB,5.7282E-02_JPRB,&
+ & 4.4714E-02_JPRB,3.0277E-02_JPRB,1.7707E-02_JPRB,1.0749E-02_JPRB,1.8499E-01_JPRB/)  
+KAO( :, 5,11, 7) = (/&
+ & 9.8658E-02_JPRB,9.8284E-02_JPRB,9.1388E-02_JPRB,8.2534E-02_JPRB,7.2404E-02_JPRB,6.1041E-02_JPRB,&
+ & 4.8110E-02_JPRB,3.3083E-02_JPRB,1.9725E-02_JPRB,1.2309E-02_JPRB,1.9294E-01_JPRB/)  
+KAO( :, 1,12, 7) = (/&
+ & 8.0002E-02_JPRB,7.5395E-02_JPRB,6.7953E-02_JPRB,5.9467E-02_JPRB,5.0458E-02_JPRB,4.0919E-02_JPRB,&
+ & 3.0920E-02_JPRB,1.9925E-02_JPRB,1.0727E-02_JPRB,5.9901E-03_JPRB,1.7505E-01_JPRB/)  
+KAO( :, 2,12, 7) = (/&
+ & 8.1332E-02_JPRB,7.7813E-02_JPRB,7.0567E-02_JPRB,6.2307E-02_JPRB,5.3303E-02_JPRB,4.3618E-02_JPRB,&
+ & 3.3391E-02_JPRB,2.1911E-02_JPRB,1.2184E-02_JPRB,7.0189E-03_JPRB,1.8048E-01_JPRB/)  
+KAO( :, 3,12, 7) = (/&
+ & 8.2791E-02_JPRB,8.0324E-02_JPRB,7.3485E-02_JPRB,6.5420E-02_JPRB,5.6352E-02_JPRB,4.6610E-02_JPRB,&
+ & 3.6047E-02_JPRB,2.4056E-02_JPRB,1.3765E-02_JPRB,8.1809E-03_JPRB,1.8704E-01_JPRB/)  
+KAO( :, 4,12, 7) = (/&
+ & 8.4300E-02_JPRB,8.3063E-02_JPRB,7.6637E-02_JPRB,6.8671E-02_JPRB,5.9646E-02_JPRB,4.9774E-02_JPRB,&
+ & 3.8886E-02_JPRB,2.6351E-02_JPRB,1.5463E-02_JPRB,9.4646E-03_JPRB,1.9416E-01_JPRB/)  
+KAO( :, 5,12, 7) = (/&
+ & 8.5799E-02_JPRB,8.5928E-02_JPRB,7.9923E-02_JPRB,7.2138E-02_JPRB,6.3097E-02_JPRB,5.3071E-02_JPRB,&
+ & 4.1851E-02_JPRB,2.8800E-02_JPRB,1.7260E-02_JPRB,1.0869E-02_JPRB,2.0180E-01_JPRB/)  
+KAO( :, 1,13, 7) = (/&
+ & 6.7746E-02_JPRB,6.4117E-02_JPRB,5.7794E-02_JPRB,5.0687E-02_JPRB,4.3091E-02_JPRB,3.5063E-02_JPRB,&
+ & 2.6600E-02_JPRB,1.7143E-02_JPRB,9.2085E-03_JPRB,5.1738E-03_JPRB,1.4684E-01_JPRB/)  
+KAO( :, 2,13, 7) = (/&
+ & 6.9040E-02_JPRB,6.6326E-02_JPRB,6.0272E-02_JPRB,5.3267E-02_JPRB,4.5640E-02_JPRB,3.7446E-02_JPRB,&
+ & 2.8771E-02_JPRB,1.8875E-02_JPRB,1.0472E-02_JPRB,6.0786E-03_JPRB,1.5190E-01_JPRB/)  
+KAO( :, 3,13, 7) = (/&
+ & 7.0402E-02_JPRB,6.8674E-02_JPRB,6.2930E-02_JPRB,5.6044E-02_JPRB,4.8322E-02_JPRB,4.0046E-02_JPRB,&
+ & 3.1093E-02_JPRB,2.0746E-02_JPRB,1.1854E-02_JPRB,7.0992E-03_JPRB,1.5783E-01_JPRB/)  
+KAO( :, 4,13, 7) = (/&
+ & 7.1727E-02_JPRB,7.1116E-02_JPRB,6.5698E-02_JPRB,5.8955E-02_JPRB,5.1188E-02_JPRB,4.2780E-02_JPRB,&
+ & 3.3535E-02_JPRB,2.2751E-02_JPRB,1.3343E-02_JPRB,8.2333E-03_JPRB,1.6414E-01_JPRB/)  
+KAO( :, 5,13, 7) = (/&
+ & 7.3153E-02_JPRB,7.3694E-02_JPRB,6.8621E-02_JPRB,6.1933E-02_JPRB,5.4168E-02_JPRB,4.5648E-02_JPRB,&
+ & 3.6089E-02_JPRB,2.4874E-02_JPRB,1.4932E-02_JPRB,9.4816E-03_JPRB,1.7071E-01_JPRB/)  
+KAO( :, 1, 1, 8) = (/&
+ & 4.9299E-01_JPRB,4.5097E-01_JPRB,4.1423E-01_JPRB,3.7425E-01_JPRB,3.3288E-01_JPRB,2.8439E-01_JPRB,&
+ & 2.3129E-01_JPRB,1.6724E-01_JPRB,1.2209E-01_JPRB,1.1839E-01_JPRB,1.2231E-01_JPRB/)  
+KAO( :, 2, 1, 8) = (/&
+ & 4.9158E-01_JPRB,4.5413E-01_JPRB,4.2130E-01_JPRB,3.8574E-01_JPRB,3.4556E-01_JPRB,2.9862E-01_JPRB,&
+ & 2.4672E-01_JPRB,1.8285E-01_JPRB,1.4316E-01_JPRB,1.4173E-01_JPRB,1.4653E-01_JPRB/)  
+KAO( :, 3, 1, 8) = (/&
+ & 4.8921E-01_JPRB,4.5835E-01_JPRB,4.2895E-01_JPRB,3.9755E-01_JPRB,3.5824E-01_JPRB,3.1313E-01_JPRB,&
+ & 2.6208E-01_JPRB,1.9974E-01_JPRB,1.6634E-01_JPRB,1.6696E-01_JPRB,1.7273E-01_JPRB/)  
+KAO( :, 4, 1, 8) = (/&
+ & 4.8664E-01_JPRB,4.6279E-01_JPRB,4.3774E-01_JPRB,4.0881E-01_JPRB,3.7103E-01_JPRB,3.2868E-01_JPRB,&
+ & 2.7711E-01_JPRB,2.1740E-01_JPRB,1.9172E-01_JPRB,1.9403E-01_JPRB,2.0091E-01_JPRB/)  
+KAO( :, 5, 1, 8) = (/&
+ & 4.8428E-01_JPRB,4.6664E-01_JPRB,4.4704E-01_JPRB,4.1926E-01_JPRB,3.8405E-01_JPRB,3.4407E-01_JPRB,&
+ & 2.9186E-01_JPRB,2.3664E-01_JPRB,2.1906E-01_JPRB,2.2276E-01_JPRB,2.3078E-01_JPRB/)  
+KAO( :, 1, 2, 8) = (/&
+ & 5.0098E-01_JPRB,4.5838E-01_JPRB,4.1902E-01_JPRB,3.7538E-01_JPRB,3.3034E-01_JPRB,2.7973E-01_JPRB,&
+ & 2.2195E-01_JPRB,1.5668E-01_JPRB,1.0587E-01_JPRB,9.8490E-02_JPRB,1.0033E-01_JPRB/)  
+KAO( :, 2, 2, 8) = (/&
+ & 4.9983E-01_JPRB,4.6235E-01_JPRB,4.2661E-01_JPRB,3.8655E-01_JPRB,3.4282E-01_JPRB,2.9301E-01_JPRB,&
+ & 2.3610E-01_JPRB,1.7056E-01_JPRB,1.2318E-01_JPRB,1.1876E-01_JPRB,1.2114E-01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART5',1,ZHOOK_HANDLE)
+END SUBROUTINE PART5
+
+
+SUBROUTINE PART6
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART6',0,ZHOOK_HANDLE)
+
+
+KAO( :, 3, 2, 8) = (/&
+ & 4.9812E-01_JPRB,4.6732E-01_JPRB,4.3492E-01_JPRB,3.9791E-01_JPRB,3.5518E-01_JPRB,3.0663E-01_JPRB,&
+ & 2.5073E-01_JPRB,1.8486E-01_JPRB,1.4281E-01_JPRB,1.4075E-01_JPRB,1.4376E-01_JPRB/)  
+KAO( :, 4, 2, 8) = (/&
+ & 4.9623E-01_JPRB,4.7200E-01_JPRB,4.4361E-01_JPRB,4.0869E-01_JPRB,3.6716E-01_JPRB,3.2094E-01_JPRB,&
+ & 2.6503E-01_JPRB,2.0038E-01_JPRB,1.6450E-01_JPRB,1.6447E-01_JPRB,1.6812E-01_JPRB/)  
+KAO( :, 5, 2, 8) = (/&
+ & 4.9443E-01_JPRB,4.7565E-01_JPRB,4.5245E-01_JPRB,4.1884E-01_JPRB,3.7991E-01_JPRB,3.3502E-01_JPRB,&
+ & 2.7893E-01_JPRB,2.1726E-01_JPRB,1.8823E-01_JPRB,1.8992E-01_JPRB,1.9426E-01_JPRB/)  
+KAO( :, 1, 3, 8) = (/&
+ & 5.0316E-01_JPRB,4.6054E-01_JPRB,4.1948E-01_JPRB,3.7358E-01_JPRB,3.2537E-01_JPRB,2.7199E-01_JPRB,&
+ & 2.1201E-01_JPRB,1.4405E-01_JPRB,9.1061E-02_JPRB,7.8216E-02_JPRB,7.8431E-02_JPRB/)  
+KAO( :, 2, 3, 8) = (/&
+ & 5.0250E-01_JPRB,4.6508E-01_JPRB,4.2753E-01_JPRB,3.8448E-01_JPRB,3.3743E-01_JPRB,2.8477E-01_JPRB,&
+ & 2.2471E-01_JPRB,1.5690E-01_JPRB,1.0463E-01_JPRB,9.5297E-02_JPRB,9.5775E-02_JPRB/)  
+KAO( :, 3, 3, 8) = (/&
+ & 5.0156E-01_JPRB,4.7034E-01_JPRB,4.3587E-01_JPRB,3.9592E-01_JPRB,3.4938E-01_JPRB,2.9738E-01_JPRB,&
+ & 2.3781E-01_JPRB,1.6990E-01_JPRB,1.2021E-01_JPRB,1.1406E-01_JPRB,1.1481E-01_JPRB/)  
+KAO( :, 4, 3, 8) = (/&
+ & 5.0040E-01_JPRB,4.7526E-01_JPRB,4.4463E-01_JPRB,4.0641E-01_JPRB,3.6112E-01_JPRB,3.1063E-01_JPRB,&
+ & 2.5089E-01_JPRB,1.8361E-01_JPRB,1.3795E-01_JPRB,1.3453E-01_JPRB,1.3558E-01_JPRB/)  
+KAO( :, 5, 3, 8) = (/&
+ & 4.9904E-01_JPRB,4.7934E-01_JPRB,4.5345E-01_JPRB,4.1619E-01_JPRB,3.7327E-01_JPRB,3.2376E-01_JPRB,&
+ & 2.6376E-01_JPRB,1.9847E-01_JPRB,1.5778E-01_JPRB,1.5659E-01_JPRB,1.5798E-01_JPRB/)  
+KAO( :, 1, 4, 8) = (/&
+ & 4.9806E-01_JPRB,4.5577E-01_JPRB,4.1390E-01_JPRB,3.6716E-01_JPRB,3.1756E-01_JPRB,2.6347E-01_JPRB,&
+ & 2.0234E-01_JPRB,1.3271E-01_JPRB,7.8950E-02_JPRB,6.0980E-02_JPRB,6.0379E-02_JPRB/)  
+KAO( :, 2, 4, 8) = (/&
+ & 4.9826E-01_JPRB,4.6101E-01_JPRB,4.2242E-01_JPRB,3.7800E-01_JPRB,3.3007E-01_JPRB,2.7585E-01_JPRB,&
+ & 2.1397E-01_JPRB,1.4413E-01_JPRB,8.9794E-02_JPRB,7.4947E-02_JPRB,7.4639E-02_JPRB/)  
+KAO( :, 3, 4, 8) = (/&
+ & 4.9811E-01_JPRB,4.6681E-01_JPRB,4.3096E-01_JPRB,3.8962E-01_JPRB,3.4219E-01_JPRB,2.8784E-01_JPRB,&
+ & 2.2620E-01_JPRB,1.5584E-01_JPRB,1.0227E-01_JPRB,9.0609E-02_JPRB,9.0488E-02_JPRB/)  
+KAO( :, 4, 4, 8) = (/&
+ & 4.9746E-01_JPRB,4.7213E-01_JPRB,4.3992E-01_JPRB,4.0060E-01_JPRB,3.5359E-01_JPRB,3.0001E-01_JPRB,&
+ & 2.3826E-01_JPRB,1.6835E-01_JPRB,1.1655E-01_JPRB,1.0791E-01_JPRB,1.0795E-01_JPRB/)  
+KAO( :, 5, 4, 8) = (/&
+ & 4.9635E-01_JPRB,4.7672E-01_JPRB,4.4914E-01_JPRB,4.1061E-01_JPRB,3.6511E-01_JPRB,3.1218E-01_JPRB,&
+ & 2.5028E-01_JPRB,1.8187E-01_JPRB,1.3226E-01_JPRB,1.2654E-01_JPRB,1.2673E-01_JPRB/)  
+KAO( :, 1, 5, 8) = (/&
+ & 4.8638E-01_JPRB,4.4445E-01_JPRB,4.0240E-01_JPRB,3.5595E-01_JPRB,3.0624E-01_JPRB,2.5236E-01_JPRB,&
+ & 1.9246E-01_JPRB,1.2312E-01_JPRB,6.9001E-02_JPRB,4.7715E-02_JPRB,4.6683E-02_JPRB/)  
+KAO( :, 2, 5, 8) = (/&
+ & 4.8710E-01_JPRB,4.5014E-01_JPRB,4.1145E-01_JPRB,3.6700E-01_JPRB,3.1862E-01_JPRB,2.6463E-01_JPRB,&
+ & 2.0376E-01_JPRB,1.3331E-01_JPRB,7.8352E-02_JPRB,5.8722E-02_JPRB,5.8068E-02_JPRB/)  
+KAO( :, 3, 5, 8) = (/&
+ & 4.8733E-01_JPRB,4.5646E-01_JPRB,4.2038E-01_JPRB,3.7871E-01_JPRB,3.3086E-01_JPRB,2.7657E-01_JPRB,&
+ & 2.1509E-01_JPRB,1.4382E-01_JPRB,8.8703E-02_JPRB,7.1451E-02_JPRB,7.1075E-02_JPRB/)  
+KAO( :, 4, 5, 8) = (/&
+ & 4.8688E-01_JPRB,4.6221E-01_JPRB,4.2956E-01_JPRB,3.8977E-01_JPRB,3.4249E-01_JPRB,2.8843E-01_JPRB,&
+ & 2.2638E-01_JPRB,1.5517E-01_JPRB,1.0010E-01_JPRB,8.5586E-02_JPRB,8.5398E-02_JPRB/)  
+KAO( :, 5, 5, 8) = (/&
+ & 4.8605E-01_JPRB,4.6725E-01_JPRB,4.3887E-01_JPRB,4.0002E-01_JPRB,3.5369E-01_JPRB,3.0008E-01_JPRB,&
+ & 2.3780E-01_JPRB,1.6738E-01_JPRB,1.1249E-01_JPRB,1.0093E-01_JPRB,1.0091E-01_JPRB/)  
+KAO( :, 1, 6, 8) = (/&
+ & 4.6671E-01_JPRB,4.2600E-01_JPRB,3.8466E-01_JPRB,3.3926E-01_JPRB,2.9061E-01_JPRB,2.3768E-01_JPRB,&
+ & 1.7963E-01_JPRB,1.1420E-01_JPRB,6.0552E-02_JPRB,3.7850E-02_JPRB,4.1921E-02_JPRB/)  
+KAO( :, 2, 6, 8) = (/&
+ & 4.6803E-01_JPRB,4.3203E-01_JPRB,3.9392E-01_JPRB,3.5053E-01_JPRB,3.0269E-01_JPRB,2.4962E-01_JPRB,&
+ & 1.9077E-01_JPRB,1.2351E-01_JPRB,6.8512E-02_JPRB,4.6284E-02_JPRB,5.0049E-02_JPRB/)  
+KAO( :, 3, 6, 8) = (/&
+ & 4.6842E-01_JPRB,4.3840E-01_JPRB,4.0304E-01_JPRB,3.6198E-01_JPRB,3.1472E-01_JPRB,2.6142E-01_JPRB,&
+ & 2.0201E-01_JPRB,1.3304E-01_JPRB,7.7462E-02_JPRB,5.6089E-02_JPRB,5.9440E-02_JPRB/)  
+KAO( :, 4, 6, 8) = (/&
+ & 4.6834E-01_JPRB,4.4438E-01_JPRB,4.1233E-01_JPRB,3.7291E-01_JPRB,3.2609E-01_JPRB,2.7299E-01_JPRB,&
+ & 2.1298E-01_JPRB,1.4322E-01_JPRB,8.7054E-02_JPRB,6.7233E-02_JPRB,7.0024E-02_JPRB/)  
+KAO( :, 5, 6, 8) = (/&
+ & 4.6792E-01_JPRB,4.4990E-01_JPRB,4.2136E-01_JPRB,3.8305E-01_JPRB,3.3708E-01_JPRB,2.8431E-01_JPRB,&
+ & 2.2411E-01_JPRB,1.5430E-01_JPRB,9.7088E-02_JPRB,7.9618E-02_JPRB,8.1792E-02_JPRB/)  
+KAO( :, 1, 7, 8) = (/&
+ & 4.3699E-01_JPRB,3.9837E-01_JPRB,3.5896E-01_JPRB,3.1590E-01_JPRB,2.6958E-01_JPRB,2.1919E-01_JPRB,&
+ & 1.6418E-01_JPRB,1.0344E-01_JPRB,5.3382E-02_JPRB,3.0831E-02_JPRB,4.2953E-02_JPRB/)  
+KAO( :, 2, 7, 8) = (/&
+ & 4.3843E-01_JPRB,4.0448E-01_JPRB,3.6812E-01_JPRB,3.2701E-01_JPRB,2.8124E-01_JPRB,2.3050E-01_JPRB,&
+ & 1.7482E-01_JPRB,1.1234E-01_JPRB,6.0200E-02_JPRB,3.7229E-02_JPRB,5.0680E-02_JPRB/)  
+KAO( :, 3, 7, 8) = (/&
+ & 4.3919E-01_JPRB,4.1086E-01_JPRB,3.7731E-01_JPRB,3.3799E-01_JPRB,2.9265E-01_JPRB,2.4169E-01_JPRB,&
+ & 1.8565E-01_JPRB,1.2131E-01_JPRB,6.7916E-02_JPRB,4.4736E-02_JPRB,5.9303E-02_JPRB/)  
+KAO( :, 4, 7, 8) = (/&
+ & 4.3964E-01_JPRB,4.1709E-01_JPRB,3.8642E-01_JPRB,3.4844E-01_JPRB,3.0343E-01_JPRB,2.5289E-01_JPRB,&
+ & 1.9633E-01_JPRB,1.3094E-01_JPRB,7.6222E-02_JPRB,5.3326E-02_JPRB,6.8509E-02_JPRB/)  
+KAO( :, 5, 7, 8) = (/&
+ & 4.3947E-01_JPRB,4.2288E-01_JPRB,3.9537E-01_JPRB,3.5832E-01_JPRB,3.1399E-01_JPRB,2.6369E-01_JPRB,&
+ & 2.0720E-01_JPRB,1.4134E-01_JPRB,8.4840E-02_JPRB,6.3000E-02_JPRB,7.8182E-02_JPRB/)  
+KAO( :, 1, 8, 8) = (/&
+ & 4.0095E-01_JPRB,3.6508E-01_JPRB,3.2839E-01_JPRB,2.8828E-01_JPRB,2.4526E-01_JPRB,1.9846E-01_JPRB,&
+ & 1.4746E-01_JPRB,9.1777E-02_JPRB,4.6862E-02_JPRB,2.5767E-02_JPRB,4.9298E-02_JPRB/)  
+KAO( :, 2, 8, 8) = (/&
+ & 4.0247E-01_JPRB,3.7108E-01_JPRB,3.3718E-01_JPRB,2.9895E-01_JPRB,2.5608E-01_JPRB,2.0883E-01_JPRB,&
+ & 1.5736E-01_JPRB,1.0019E-01_JPRB,5.2944E-02_JPRB,3.0729E-02_JPRB,5.6721E-02_JPRB/)  
+KAO( :, 3, 8, 8) = (/&
+ & 4.0379E-01_JPRB,3.7769E-01_JPRB,3.4624E-01_JPRB,3.0913E-01_JPRB,2.6652E-01_JPRB,2.1917E-01_JPRB,&
+ & 1.6744E-01_JPRB,1.0879E-01_JPRB,5.9618E-02_JPRB,3.6479E-02_JPRB,6.5019E-02_JPRB/)  
+KAO( :, 4, 8, 8) = (/&
+ & 4.0440E-01_JPRB,3.8393E-01_JPRB,3.5518E-01_JPRB,3.1911E-01_JPRB,2.7671E-01_JPRB,2.2954E-01_JPRB,&
+ & 1.7755E-01_JPRB,1.1776E-01_JPRB,6.6811E-02_JPRB,4.3078E-02_JPRB,7.4113E-02_JPRB/)  
+KAO( :, 5, 8, 8) = (/&
+ & 4.0446E-01_JPRB,3.8965E-01_JPRB,3.6366E-01_JPRB,3.2844E-01_JPRB,2.8667E-01_JPRB,2.3995E-01_JPRB,&
+ & 1.8784E-01_JPRB,1.2743E-01_JPRB,7.4347E-02_JPRB,5.0583E-02_JPRB,8.3692E-02_JPRB/)  
+KAO( :, 1, 9, 8) = (/&
+ & 3.6220E-01_JPRB,3.2943E-01_JPRB,2.9565E-01_JPRB,2.5888E-01_JPRB,2.1956E-01_JPRB,1.7688E-01_JPRB,&
+ & 1.3053E-01_JPRB,8.0073E-02_JPRB,4.0469E-02_JPRB,2.1839E-02_JPRB,9.4199E-02_JPRB/)  
+KAO( :, 2, 9, 8) = (/&
+ & 3.6411E-01_JPRB,3.3547E-01_JPRB,3.0414E-01_JPRB,2.6872E-01_JPRB,2.2935E-01_JPRB,1.8612E-01_JPRB,&
+ & 1.3939E-01_JPRB,8.7821E-02_JPRB,4.5931E-02_JPRB,2.5820E-02_JPRB,1.0332E-01_JPRB/)  
+KAO( :, 3, 9, 8) = (/&
+ & 3.6566E-01_JPRB,3.4191E-01_JPRB,3.1284E-01_JPRB,2.7831E-01_JPRB,2.3893E-01_JPRB,1.9553E-01_JPRB,&
+ & 1.4849E-01_JPRB,9.5850E-02_JPRB,5.1870E-02_JPRB,3.0419E-02_JPRB,1.1365E-01_JPRB/)  
+KAO( :, 4, 9, 8) = (/&
+ & 3.6634E-01_JPRB,3.4783E-01_JPRB,3.2112E-01_JPRB,2.8747E-01_JPRB,2.4838E-01_JPRB,2.0518E-01_JPRB,&
+ & 1.5786E-01_JPRB,1.0419E-01_JPRB,5.8269E-02_JPRB,3.5620E-02_JPRB,1.2479E-01_JPRB/)  
+KAO( :, 5, 9, 8) = (/&
+ & 3.6687E-01_JPRB,3.5352E-01_JPRB,3.2900E-01_JPRB,2.9611E-01_JPRB,2.5769E-01_JPRB,2.1498E-01_JPRB,&
+ & 1.6749E-01_JPRB,1.1307E-01_JPRB,6.4929E-02_JPRB,4.1475E-02_JPRB,1.3690E-01_JPRB/)  
+KAO( :, 1,10, 8) = (/&
+ & 3.2199E-01_JPRB,2.9278E-01_JPRB,2.6222E-01_JPRB,2.2905E-01_JPRB,1.9373E-01_JPRB,1.5558E-01_JPRB,&
+ & 1.1424E-01_JPRB,6.9413E-02_JPRB,3.4798E-02_JPRB,1.8896E-02_JPRB,2.8335E-01_JPRB/)  
+KAO( :, 2,10, 8) = (/&
+ & 3.2419E-01_JPRB,2.9882E-01_JPRB,2.7031E-01_JPRB,2.3822E-01_JPRB,2.0265E-01_JPRB,1.6381E-01_JPRB,&
+ & 1.2203E-01_JPRB,7.6200E-02_JPRB,3.9653E-02_JPRB,2.2203E-02_JPRB,3.0010E-01_JPRB/)  
+KAO( :, 3,10, 8) = (/&
+ & 3.2557E-01_JPRB,3.0468E-01_JPRB,2.7841E-01_JPRB,2.4694E-01_JPRB,2.1134E-01_JPRB,1.7240E-01_JPRB,&
+ & 1.3024E-01_JPRB,8.3423E-02_JPRB,4.4862E-02_JPRB,2.6006E-02_JPRB,3.2041E-01_JPRB/)  
+KAO( :, 4,10, 8) = (/&
+ & 3.2676E-01_JPRB,3.1040E-01_JPRB,2.8596E-01_JPRB,2.5507E-01_JPRB,2.1988E-01_JPRB,1.8121E-01_JPRB,&
+ & 1.3879E-01_JPRB,9.0984E-02_JPRB,5.0519E-02_JPRB,3.0296E-02_JPRB,3.4283E-01_JPRB/)  
+KAO( :, 5,10, 8) = (/&
+ & 3.2756E-01_JPRB,3.1604E-01_JPRB,2.9325E-01_JPRB,2.6321E-01_JPRB,2.2857E-01_JPRB,1.9016E-01_JPRB,&
+ & 1.4762E-01_JPRB,9.9000E-02_JPRB,5.6488E-02_JPRB,3.5105E-02_JPRB,3.6677E-01_JPRB/)  
+KAO( :, 1,11, 8) = (/&
+ & 2.8411E-01_JPRB,2.5988E-01_JPRB,2.3321E-01_JPRB,2.0412E-01_JPRB,1.7249E-01_JPRB,1.3838E-01_JPRB,&
+ & 1.0172E-01_JPRB,6.2178E-02_JPRB,3.1646E-02_JPRB,1.7506E-02_JPRB,3.9917E-01_JPRB/)  
+KAO( :, 2,11, 8) = (/&
+ & 2.8582E-01_JPRB,2.6534E-01_JPRB,2.4057E-01_JPRB,2.1213E-01_JPRB,1.8034E-01_JPRB,1.4593E-01_JPRB,&
+ & 1.0888E-01_JPRB,6.8210E-02_JPRB,3.6011E-02_JPRB,2.0567E-02_JPRB,4.2270E-01_JPRB/)  
+KAO( :, 3,11, 8) = (/&
+ & 2.8739E-01_JPRB,2.7084E-01_JPRB,2.4780E-01_JPRB,2.1959E-01_JPRB,1.8803E-01_JPRB,1.5372E-01_JPRB,&
+ & 1.1636E-01_JPRB,7.4695E-02_JPRB,4.0724E-02_JPRB,2.3986E-02_JPRB,4.4934E-01_JPRB/)  
+KAO( :, 4,11, 8) = (/&
+ & 2.8878E-01_JPRB,2.7644E-01_JPRB,2.5472E-01_JPRB,2.2709E-01_JPRB,1.9597E-01_JPRB,1.6177E-01_JPRB,&
+ & 1.2408E-01_JPRB,8.1642E-02_JPRB,4.5765E-02_JPRB,2.7772E-02_JPRB,4.7717E-01_JPRB/)  
+KAO( :, 5,11, 8) = (/&
+ & 2.8955E-01_JPRB,2.8144E-01_JPRB,2.6102E-01_JPRB,2.3454E-01_JPRB,2.0411E-01_JPRB,1.7002E-01_JPRB,&
+ & 1.3228E-01_JPRB,8.8823E-02_JPRB,5.1141E-02_JPRB,3.2010E-02_JPRB,5.0557E-01_JPRB/)  
+KAO( :, 1,12, 8) = (/&
+ & 2.4710E-01_JPRB,2.2747E-01_JPRB,2.0446E-01_JPRB,1.7910E-01_JPRB,1.5126E-01_JPRB,1.2141E-01_JPRB,&
+ & 8.9466E-02_JPRB,5.4973E-02_JPRB,2.8499E-02_JPRB,1.5999E-02_JPRB,4.2800E-01_JPRB/)  
+KAO( :, 2,12, 8) = (/&
+ & 2.4901E-01_JPRB,2.3258E-01_JPRB,2.1111E-01_JPRB,1.8597E-01_JPRB,1.5805E-01_JPRB,1.2818E-01_JPRB,&
+ & 9.5808E-02_JPRB,6.0321E-02_JPRB,3.2343E-02_JPRB,1.8809E-02_JPRB,4.5340E-01_JPRB/)  
+KAO( :, 3,12, 8) = (/&
+ & 2.5080E-01_JPRB,2.3792E-01_JPRB,2.1766E-01_JPRB,1.9271E-01_JPRB,1.6525E-01_JPRB,1.3521E-01_JPRB,&
+ & 1.0253E-01_JPRB,6.6046E-02_JPRB,3.6536E-02_JPRB,2.1931E-02_JPRB,4.7921E-01_JPRB/)  
+KAO( :, 4,12, 8) = (/&
+ & 2.5204E-01_JPRB,2.4277E-01_JPRB,2.2355E-01_JPRB,1.9948E-01_JPRB,1.7252E-01_JPRB,1.4258E-01_JPRB,&
+ & 1.0952E-01_JPRB,7.2180E-02_JPRB,4.1025E-02_JPRB,2.5368E-02_JPRB,5.0641E-01_JPRB/)  
+KAO( :, 5,12, 8) = (/&
+ & 2.5346E-01_JPRB,2.4761E-01_JPRB,2.2936E-01_JPRB,2.0632E-01_JPRB,1.7985E-01_JPRB,1.5006E-01_JPRB,&
+ & 1.1690E-01_JPRB,7.8517E-02_JPRB,4.5825E-02_JPRB,2.9158E-02_JPRB,5.3542E-01_JPRB/)  
+KAO( :, 1,13, 8) = (/&
+ & 2.1104E-01_JPRB,1.9539E-01_JPRB,1.7591E-01_JPRB,1.5396E-01_JPRB,1.2999E-01_JPRB,1.0448E-01_JPRB,&
+ & 7.7298E-02_JPRB,4.7962E-02_JPRB,2.5275E-02_JPRB,1.4360E-02_JPRB,3.6245E-01_JPRB/)  
+KAO( :, 2,13, 8) = (/&
+ & 2.1306E-01_JPRB,2.0027E-01_JPRB,1.8186E-01_JPRB,1.6010E-01_JPRB,1.3622E-01_JPRB,1.1063E-01_JPRB,&
+ & 8.2888E-02_JPRB,5.2545E-02_JPRB,2.8685E-02_JPRB,1.6930E-02_JPRB,3.8275E-01_JPRB/)  
+KAO( :, 3,13, 8) = (/&
+ & 2.1469E-01_JPRB,2.0496E-01_JPRB,1.8742E-01_JPRB,1.6612E-01_JPRB,1.4267E-01_JPRB,1.1693E-01_JPRB,&
+ & 8.8832E-02_JPRB,5.7525E-02_JPRB,3.2378E-02_JPRB,1.9762E-02_JPRB,4.0424E-01_JPRB/)  
+KAO( :, 4,13, 8) = (/&
+ & 2.1644E-01_JPRB,2.0961E-01_JPRB,1.9285E-01_JPRB,1.7222E-01_JPRB,1.4919E-01_JPRB,1.2339E-01_JPRB,&
+ & 9.4996E-02_JPRB,6.2832E-02_JPRB,3.6346E-02_JPRB,2.2885E-02_JPRB,4.2761E-01_JPRB/)  
+KAO( :, 5,13, 8) = (/&
+ & 2.1812E-01_JPRB,2.1428E-01_JPRB,1.9853E-01_JPRB,1.7877E-01_JPRB,1.5586E-01_JPRB,1.3014E-01_JPRB,&
+ & 1.0138E-01_JPRB,6.8371E-02_JPRB,4.0590E-02_JPRB,2.6305E-02_JPRB,4.5224E-01_JPRB/)  
+KAO( :, 1, 1, 9) = (/&
+ & 9.5159E-01_JPRB,8.6193E-01_JPRB,7.8445E-01_JPRB,7.0786E-01_JPRB,6.2475E-01_JPRB,5.4735E-01_JPRB,&
+ & 4.7357E-01_JPRB,4.3191E-01_JPRB,4.5105E-01_JPRB,4.6500E-01_JPRB,4.7768E-01_JPRB/)  
+KAO( :, 2, 1, 9) = (/&
+ & 9.4610E-01_JPRB,8.6636E-01_JPRB,7.9453E-01_JPRB,7.2334E-01_JPRB,6.4819E-01_JPRB,5.8098E-01_JPRB,&
+ & 5.1867E-01_JPRB,5.0225E-01_JPRB,5.3434E-01_JPRB,5.5100E-01_JPRB,5.6593E-01_JPRB/)  
+KAO( :, 3, 1, 9) = (/&
+ & 9.4063E-01_JPRB,8.6755E-01_JPRB,8.0500E-01_JPRB,7.3756E-01_JPRB,6.7496E-01_JPRB,6.1686E-01_JPRB,&
+ & 5.7144E-01_JPRB,5.7997E-01_JPRB,6.2451E-01_JPRB,6.4411E-01_JPRB,6.6119E-01_JPRB/)  
+KAO( :, 4, 1, 9) = (/&
+ & 9.3410E-01_JPRB,8.6712E-01_JPRB,8.1423E-01_JPRB,7.5391E-01_JPRB,7.0437E-01_JPRB,6.5593E-01_JPRB,&
+ & 6.3263E-01_JPRB,6.6511E-01_JPRB,7.2065E-01_JPRB,7.4338E-01_JPRB,7.6295E-01_JPRB/)  
+KAO( :, 5, 1, 9) = (/&
+ & 9.2639E-01_JPRB,8.6753E-01_JPRB,8.2122E-01_JPRB,7.7366E-01_JPRB,7.3498E-01_JPRB,7.0006E-01_JPRB,&
+ & 7.0131E-01_JPRB,7.5726E-01_JPRB,8.2266E-01_JPRB,8.4882E-01_JPRB,8.7078E-01_JPRB/)  
+KAO( :, 1, 2, 9) = (/&
+ & 9.9571E-01_JPRB,8.9920E-01_JPRB,8.1614E-01_JPRB,7.3263E-01_JPRB,6.4026E-01_JPRB,5.4806E-01_JPRB,&
+ & 4.6027E-01_JPRB,3.9041E-01_JPRB,3.9261E-01_JPRB,4.0467E-01_JPRB,4.1298E-01_JPRB/)  
+KAO( :, 2, 2, 9) = (/&
+ & 9.8996E-01_JPRB,9.0283E-01_JPRB,8.2671E-01_JPRB,7.4790E-01_JPRB,6.6191E-01_JPRB,5.7890E-01_JPRB,&
+ & 4.9929E-01_JPRB,4.5184E-01_JPRB,4.6916E-01_JPRB,4.8383E-01_JPRB,4.9391E-01_JPRB/)  
+KAO( :, 3, 2, 9) = (/&
+ & 9.8376E-01_JPRB,9.0392E-01_JPRB,8.3729E-01_JPRB,7.6239E-01_JPRB,6.8599E-01_JPRB,6.1186E-01_JPRB,&
+ & 5.4354E-01_JPRB,5.2118E-01_JPRB,5.5194E-01_JPRB,5.6942E-01_JPRB,5.8138E-01_JPRB/)  
+KAO( :, 4, 2, 9) = (/&
+ & 9.7691E-01_JPRB,9.0424E-01_JPRB,8.4680E-01_JPRB,7.7835E-01_JPRB,7.1309E-01_JPRB,6.4690E-01_JPRB,&
+ & 5.9506E-01_JPRB,5.9772E-01_JPRB,6.4088E-01_JPRB,6.6141E-01_JPRB,6.7534E-01_JPRB/)  
+KAO( :, 5, 2, 9) = (/&
+ & 9.6899E-01_JPRB,9.0591E-01_JPRB,8.5458E-01_JPRB,7.9701E-01_JPRB,7.4146E-01_JPRB,6.8466E-01_JPRB,&
+ & 6.5376E-01_JPRB,6.8054E-01_JPRB,7.3475E-01_JPRB,7.5849E-01_JPRB,7.7486E-01_JPRB/)  
+KAO( :, 1, 3, 9) = (/&
+ & 1.0405E+00_JPRB,9.3488E-01_JPRB,8.4463E-01_JPRB,7.5330E-01_JPRB,6.5244E-01_JPRB,5.4916E-01_JPRB,&
+ & 4.4520E-01_JPRB,3.4870E-01_JPRB,3.2584E-01_JPRB,3.3543E-01_JPRB,3.3962E-01_JPRB/)  
+KAO( :, 2, 3, 9) = (/&
+ & 1.0349E+00_JPRB,9.3892E-01_JPRB,8.5534E-01_JPRB,7.6913E-01_JPRB,6.7395E-01_JPRB,5.7625E-01_JPRB,&
+ & 4.7914E-01_JPRB,3.9837E-01_JPRB,3.9325E-01_JPRB,4.0529E-01_JPRB,4.1035E-01_JPRB/)  
+KAO( :, 3, 3, 9) = (/&
+ & 1.0286E+00_JPRB,9.4087E-01_JPRB,8.6735E-01_JPRB,7.8384E-01_JPRB,6.9647E-01_JPRB,6.0649E-01_JPRB,&
+ & 5.1617E-01_JPRB,4.5626E-01_JPRB,4.6701E-01_JPRB,4.8157E-01_JPRB,4.8769E-01_JPRB/)  
+KAO( :, 4, 3, 9) = (/&
+ & 1.0216E+00_JPRB,9.4194E-01_JPRB,8.7769E-01_JPRB,8.0047E-01_JPRB,7.2103E-01_JPRB,6.3769E-01_JPRB,&
+ & 5.5844E-01_JPRB,5.2182E-01_JPRB,5.4652E-01_JPRB,5.6383E-01_JPRB,5.7106E-01_JPRB/)  
+KAO( :, 5, 3, 9) = (/&
+ & 1.0137E+00_JPRB,9.4403E-01_JPRB,8.8589E-01_JPRB,8.1893E-01_JPRB,7.4713E-01_JPRB,6.7001E-01_JPRB,&
+ & 6.0589E-01_JPRB,5.9289E-01_JPRB,6.3020E-01_JPRB,6.5037E-01_JPRB,6.5878E-01_JPRB/)  
+KAO( :, 1, 4, 9) = (/&
+ & 1.0880E+00_JPRB,9.7313E-01_JPRB,8.7384E-01_JPRB,7.7222E-01_JPRB,6.6520E-01_JPRB,5.5149E-01_JPRB,&
+ & 4.3468E-01_JPRB,3.1551E-01_JPRB,2.6473E-01_JPRB,2.7010E-01_JPRB,2.7211E-01_JPRB/)  
+KAO( :, 2, 4, 9) = (/&
+ & 1.0823E+00_JPRB,9.7690E-01_JPRB,8.8415E-01_JPRB,7.9011E-01_JPRB,6.8589E-01_JPRB,5.7725E-01_JPRB,&
+ & 4.6480E-01_JPRB,3.5528E-01_JPRB,3.2290E-01_JPRB,3.3154E-01_JPRB,3.3402E-01_JPRB/)  
+KAO( :, 3, 4, 9) = (/&
+ & 1.0759E+00_JPRB,9.7896E-01_JPRB,8.9677E-01_JPRB,8.0590E-01_JPRB,7.0747E-01_JPRB,6.0512E-01_JPRB,&
+ & 4.9649E-01_JPRB,4.0248E-01_JPRB,3.8741E-01_JPRB,3.9884E-01_JPRB,4.0190E-01_JPRB/)  
+KAO( :, 4, 4, 9) = (/&
+ & 1.0687E+00_JPRB,9.8058E-01_JPRB,9.0886E-01_JPRB,8.2235E-01_JPRB,7.3113E-01_JPRB,6.3357E-01_JPRB,&
+ & 5.3180E-01_JPRB,4.5630E-01_JPRB,4.5720E-01_JPRB,4.7127E-01_JPRB,4.7487E-01_JPRB/)  
+KAO( :, 5, 4, 9) = (/&
+ & 1.0611E+00_JPRB,9.8340E-01_JPRB,9.1796E-01_JPRB,8.4063E-01_JPRB,7.5604E-01_JPRB,6.6259E-01_JPRB,&
+ & 5.7101E-01_JPRB,5.1566E-01_JPRB,5.3169E-01_JPRB,5.4837E-01_JPRB,5.5265E-01_JPRB/)  
+KAO( :, 1, 5, 9) = (/&
+ & 1.1353E+00_JPRB,1.0122E+00_JPRB,9.0436E-01_JPRB,7.9314E-01_JPRB,6.7788E-01_JPRB,5.5661E-01_JPRB,&
+ & 4.2870E-01_JPRB,2.9193E-01_JPRB,2.1579E-01_JPRB,2.1412E-01_JPRB,2.1527E-01_JPRB/)  
+KAO( :, 2, 5, 9) = (/&
+ & 1.1302E+00_JPRB,1.0164E+00_JPRB,9.1463E-01_JPRB,8.1125E-01_JPRB,6.9965E-01_JPRB,5.8117E-01_JPRB,&
+ & 4.5601E-01_JPRB,3.2431E-01_JPRB,2.6337E-01_JPRB,2.6679E-01_JPRB,2.6824E-01_JPRB/)  
+KAO( :, 3, 5, 9) = (/&
+ & 1.1241E+00_JPRB,1.0191E+00_JPRB,9.2734E-01_JPRB,8.2845E-01_JPRB,7.2101E-01_JPRB,6.0737E-01_JPRB,&
+ & 4.8451E-01_JPRB,3.6228E-01_JPRB,3.1806E-01_JPRB,3.2529E-01_JPRB,3.2713E-01_JPRB/)  
+KAO( :, 4, 5, 9) = (/&
+ & 1.1173E+00_JPRB,1.0209E+00_JPRB,9.4019E-01_JPRB,8.4617E-01_JPRB,7.4384E-01_JPRB,6.3435E-01_JPRB,&
+ & 5.1515E-01_JPRB,4.0564E-01_JPRB,3.7849E-01_JPRB,3.8902E-01_JPRB,3.9122E-01_JPRB/)  
+KAO( :, 5, 5, 9) = (/&
+ & 1.1101E+00_JPRB,1.0243E+00_JPRB,9.5096E-01_JPRB,8.6410E-01_JPRB,7.6849E-01_JPRB,6.6158E-01_JPRB,&
+ & 5.4858E-01_JPRB,4.5511E-01_JPRB,4.4484E-01_JPRB,4.5817E-01_JPRB,4.6081E-01_JPRB/)  
+KAO( :, 1, 6, 9) = (/&
+ & 1.1806E+00_JPRB,1.0498E+00_JPRB,9.3337E-01_JPRB,8.1273E-01_JPRB,6.8998E-01_JPRB,5.6047E-01_JPRB,&
+ & 4.2456E-01_JPRB,2.7532E-01_JPRB,1.7725E-01_JPRB,1.6538E-01_JPRB,1.6672E-01_JPRB/)  
+KAO( :, 2, 6, 9) = (/&
+ & 1.1761E+00_JPRB,1.0541E+00_JPRB,9.4371E-01_JPRB,8.3128E-01_JPRB,7.1158E-01_JPRB,5.8532E-01_JPRB,&
+ & 4.4996E-01_JPRB,3.0144E-01_JPRB,2.1482E-01_JPRB,2.0943E-01_JPRB,2.1089E-01_JPRB/)  
+KAO( :, 3, 6, 9) = (/&
+ & 1.1706E+00_JPRB,1.0579E+00_JPRB,9.5635E-01_JPRB,8.4936E-01_JPRB,7.3343E-01_JPRB,6.1037E-01_JPRB,&
+ & 4.7682E-01_JPRB,3.3219E-01_JPRB,2.5890E-01_JPRB,2.5930E-01_JPRB,2.6088E-01_JPRB/)  
+KAO( :, 4, 6, 9) = (/&
+ & 1.1647E+00_JPRB,1.0607E+00_JPRB,9.7013E-01_JPRB,8.6759E-01_JPRB,7.5661E-01_JPRB,6.3681E-01_JPRB,&
+ & 5.0490E-01_JPRB,3.6744E-01_JPRB,3.0939E-01_JPRB,3.1452E-01_JPRB,3.1634E-01_JPRB/)  
+KAO( :, 5, 6, 9) = (/&
+ & 1.1580E+00_JPRB,1.0646E+00_JPRB,9.8251E-01_JPRB,8.8607E-01_JPRB,7.8101E-01_JPRB,6.6342E-01_JPRB,&
+ & 5.3428E-01_JPRB,4.0750E-01_JPRB,3.6653E-01_JPRB,3.7539E-01_JPRB,3.7760E-01_JPRB/)  
+KAO( :, 1, 7, 9) = (/&
+ & 1.2136E+00_JPRB,1.0774E+00_JPRB,9.5377E-01_JPRB,8.2536E-01_JPRB,6.9593E-01_JPRB,5.6078E-01_JPRB,&
+ & 4.1863E-01_JPRB,2.6313E-01_JPRB,1.4935E-01_JPRB,1.2578E-01_JPRB,1.4257E-01_JPRB/)  
+KAO( :, 2, 7, 9) = (/&
+ & 1.2100E+00_JPRB,1.0820E+00_JPRB,9.6432E-01_JPRB,8.4363E-01_JPRB,7.1756E-01_JPRB,5.8508E-01_JPRB,&
+ & 4.4339E-01_JPRB,2.8645E-01_JPRB,1.7844E-01_JPRB,1.6196E-01_JPRB,1.7527E-01_JPRB/)  
+KAO( :, 3, 7, 9) = (/&
+ & 1.2053E+00_JPRB,1.0866E+00_JPRB,9.7664E-01_JPRB,8.6237E-01_JPRB,7.3986E-01_JPRB,6.1018E-01_JPRB,&
+ & 4.6912E-01_JPRB,3.1223E-01_JPRB,2.1332E-01_JPRB,2.0363E-01_JPRB,2.1371E-01_JPRB/)  
+KAO( :, 4, 7, 9) = (/&
+ & 1.1998E+00_JPRB,1.0903E+00_JPRB,9.9072E-01_JPRB,8.8131E-01_JPRB,7.6315E-01_JPRB,6.3674E-01_JPRB,&
+ & 4.9590E-01_JPRB,3.4090E-01_JPRB,2.5438E-01_JPRB,2.5086E-01_JPRB,2.5825E-01_JPRB/)  
+KAO( :, 5, 7, 9) = (/&
+ & 1.1932E+00_JPRB,1.0942E+00_JPRB,1.0040E+00_JPRB,9.0033E-01_JPRB,7.8781E-01_JPRB,6.6359E-01_JPRB,&
+ & 5.2347E-01_JPRB,3.7392E-01_JPRB,3.0186E-01_JPRB,3.0359E-01_JPRB,3.0908E-01_JPRB/)  
+KAO( :, 1, 8, 9) = (/&
+ & 1.2316E+00_JPRB,1.0924E+00_JPRB,9.6349E-01_JPRB,8.3019E-01_JPRB,6.9548E-01_JPRB,5.5575E-01_JPRB,&
+ & 4.1003E-01_JPRB,2.5191E-01_JPRB,1.3039E-01_JPRB,9.5856E-02_JPRB,1.7533E-01_JPRB/)  
+KAO( :, 2, 8, 9) = (/&
+ & 1.2282E+00_JPRB,1.0969E+00_JPRB,9.7419E-01_JPRB,8.4770E-01_JPRB,7.1665E-01_JPRB,5.7977E-01_JPRB,&
+ & 4.3430E-01_JPRB,2.7347E-01_JPRB,1.5278E-01_JPRB,1.2456E-01_JPRB,2.0121E-01_JPRB/)  
+KAO( :, 3, 8, 9) = (/&
+ & 1.2234E+00_JPRB,1.1017E+00_JPRB,9.8619E-01_JPRB,8.6635E-01_JPRB,7.3926E-01_JPRB,6.0504E-01_JPRB,&
+ & 4.5959E-01_JPRB,2.9702E-01_JPRB,1.8008E-01_JPRB,1.5872E-01_JPRB,2.2963E-01_JPRB/)  
+KAO( :, 4, 8, 9) = (/&
+ & 1.2179E+00_JPRB,1.1058E+00_JPRB,1.0001E+00_JPRB,8.8559E-01_JPRB,7.6296E-01_JPRB,6.3135E-01_JPRB,&
+ & 4.8567E-01_JPRB,3.2261E-01_JPRB,2.1292E-01_JPRB,1.9834E-01_JPRB,2.6180E-01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART6',1,ZHOOK_HANDLE)
+END SUBROUTINE PART6
+
+
+SUBROUTINE PART7
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART7',0,ZHOOK_HANDLE)
+
+
+KAO( :, 5, 8, 9) = (/&
+ & 1.2113E+00_JPRB,1.1100E+00_JPRB,1.0138E+00_JPRB,9.0571E-01_JPRB,7.8768E-01_JPRB,6.5815E-01_JPRB,&
+ & 5.1266E-01_JPRB,3.5055E-01_JPRB,2.5143E-01_JPRB,2.4311E-01_JPRB,2.9921E-01_JPRB/)  
+KAO( :, 1, 9, 9) = (/&
+ & 1.2312E+00_JPRB,1.0915E+00_JPRB,9.6019E-01_JPRB,8.2497E-01_JPRB,6.8804E-01_JPRB,5.4659E-01_JPRB,&
+ & 3.9889E-01_JPRB,2.4010E-01_JPRB,1.1745E-01_JPRB,7.4115E-02_JPRB,3.8570E-01_JPRB/)  
+KAO( :, 2, 9, 9) = (/&
+ & 1.2271E+00_JPRB,1.0952E+00_JPRB,9.7062E-01_JPRB,8.4182E-01_JPRB,7.0896E-01_JPRB,5.7001E-01_JPRB,&
+ & 4.2261E-01_JPRB,2.6038E-01_JPRB,1.3539E-01_JPRB,9.6435E-02_JPRB,4.2073E-01_JPRB/)  
+KAO( :, 3, 9, 9) = (/&
+ & 1.2221E+00_JPRB,1.0999E+00_JPRB,9.8223E-01_JPRB,8.6047E-01_JPRB,7.3167E-01_JPRB,5.9531E-01_JPRB,&
+ & 4.4692E-01_JPRB,2.8236E-01_JPRB,1.5682E-01_JPRB,1.2365E-01_JPRB,4.5798E-01_JPRB/)  
+KAO( :, 4, 9, 9) = (/&
+ & 1.2168E+00_JPRB,1.1048E+00_JPRB,9.9655E-01_JPRB,8.8042E-01_JPRB,7.5597E-01_JPRB,6.2078E-01_JPRB,&
+ & 4.7224E-01_JPRB,3.0619E-01_JPRB,1.8270E-01_JPRB,1.5583E-01_JPRB,4.9794E-01_JPRB/)  
+KAO( :, 5, 9, 9) = (/&
+ & 1.2103E+00_JPRB,1.1097E+00_JPRB,1.0110E+00_JPRB,9.0113E-01_JPRB,7.8074E-01_JPRB,6.4684E-01_JPRB,&
+ & 4.9870E-01_JPRB,3.3189E-01_JPRB,2.1333E-01_JPRB,1.9294E-01_JPRB,5.3980E-01_JPRB/)  
+KAO( :, 1,10, 9) = (/&
+ & 1.2065E+00_JPRB,1.0698E+00_JPRB,9.3983E-01_JPRB,8.0628E-01_JPRB,6.7075E-01_JPRB,5.3108E-01_JPRB,&
+ & 3.8524E-01_JPRB,2.2846E-01_JPRB,1.0759E-01_JPRB,6.0114E-02_JPRB,1.2134E+00_JPRB/)  
+KAO( :, 2,10, 9) = (/&
+ & 1.2021E+00_JPRB,1.0732E+00_JPRB,9.5006E-01_JPRB,8.2241E-01_JPRB,6.9118E-01_JPRB,5.5381E-01_JPRB,&
+ & 4.0835E-01_JPRB,2.4753E-01_JPRB,1.2339E-01_JPRB,7.7390E-02_JPRB,1.2525E+00_JPRB/)  
+KAO( :, 3,10, 9) = (/&
+ & 1.1979E+00_JPRB,1.0788E+00_JPRB,9.6194E-01_JPRB,8.4108E-01_JPRB,7.1368E-01_JPRB,5.7871E-01_JPRB,&
+ & 4.3197E-01_JPRB,2.6832E-01_JPRB,1.4165E-01_JPRB,9.8913E-02_JPRB,1.2959E+00_JPRB/)  
+KAO( :, 4,10, 9) = (/&
+ & 1.1924E+00_JPRB,1.0841E+00_JPRB,9.7645E-01_JPRB,8.6142E-01_JPRB,7.3813E-01_JPRB,6.0416E-01_JPRB,&
+ & 4.5629E-01_JPRB,2.9111E-01_JPRB,1.6279E-01_JPRB,1.2496E-01_JPRB,1.3457E+00_JPRB/)  
+KAO( :, 5,10, 9) = (/&
+ & 1.1868E+00_JPRB,1.0895E+00_JPRB,9.9148E-01_JPRB,8.8237E-01_JPRB,7.6307E-01_JPRB,6.3026E-01_JPRB,&
+ & 4.8193E-01_JPRB,3.1564E-01_JPRB,1.8743E-01_JPRB,1.5518E-01_JPRB,1.4010E+00_JPRB/)  
+KAO( :, 1,11, 9) = (/&
+ & 1.1602E+00_JPRB,1.0321E+00_JPRB,9.0888E-01_JPRB,7.8134E-01_JPRB,6.5183E-01_JPRB,5.1709E-01_JPRB,&
+ & 3.7632E-01_JPRB,2.2357E-01_JPRB,1.0454E-01_JPRB,5.6265E-02_JPRB,1.7556E+00_JPRB/)  
+KAO( :, 2,11, 9) = (/&
+ & 1.1566E+00_JPRB,1.0373E+00_JPRB,9.1992E-01_JPRB,7.9870E-01_JPRB,6.7250E-01_JPRB,5.3982E-01_JPRB,&
+ & 3.9883E-01_JPRB,2.4238E-01_JPRB,1.1972E-01_JPRB,7.0995E-02_JPRB,1.7896E+00_JPRB/)  
+KAO( :, 3,11, 9) = (/&
+ & 1.1521E+00_JPRB,1.0433E+00_JPRB,9.3315E-01_JPRB,8.1800E-01_JPRB,6.9552E-01_JPRB,5.6467E-01_JPRB,&
+ & 4.2241E-01_JPRB,2.6285E-01_JPRB,1.3701E-01_JPRB,8.9495E-02_JPRB,1.8345E+00_JPRB/)  
+KAO( :, 4,11, 9) = (/&
+ & 1.1472E+00_JPRB,1.0489E+00_JPRB,9.4806E-01_JPRB,8.3843E-01_JPRB,7.1973E-01_JPRB,5.9025E-01_JPRB,&
+ & 4.4701E-01_JPRB,2.8499E-01_JPRB,1.5648E-01_JPRB,1.1176E-01_JPRB,1.8895E+00_JPRB/)  
+KAO( :, 5,11, 9) = (/&
+ & 1.1436E+00_JPRB,1.0565E+00_JPRB,9.6473E-01_JPRB,8.6013E-01_JPRB,7.4475E-01_JPRB,6.1626E-01_JPRB,&
+ & 4.7243E-01_JPRB,3.0896E-01_JPRB,1.7805E-01_JPRB,1.3759E-01_JPRB,1.9545E+00_JPRB/)  
+KAO( :, 1,12, 9) = (/&
+ & 1.0927E+00_JPRB,9.7589E-01_JPRB,8.6130E-01_JPRB,7.4238E-01_JPRB,6.2051E-01_JPRB,4.9305E-01_JPRB,&
+ & 3.5975E-01_JPRB,2.1463E-01_JPRB,1.0064E-01_JPRB,5.3171E-02_JPRB,1.9140E+00_JPRB/)  
+KAO( :, 2,12, 9) = (/&
+ & 1.0892E+00_JPRB,9.8224E-01_JPRB,8.7322E-01_JPRB,7.6047E-01_JPRB,6.4152E-01_JPRB,5.1615E-01_JPRB,&
+ & 3.8192E-01_JPRB,2.3322E-01_JPRB,1.1514E-01_JPRB,6.5840E-02_JPRB,1.9498E+00_JPRB/)  
+KAO( :, 3,12, 9) = (/&
+ & 1.0852E+00_JPRB,9.8827E-01_JPRB,8.8733E-01_JPRB,7.7978E-01_JPRB,6.6433E-01_JPRB,5.4034E-01_JPRB,&
+ & 4.0501E-01_JPRB,2.5357E-01_JPRB,1.3154E-01_JPRB,8.1554E-02_JPRB,2.0010E+00_JPRB/)  
+KAO( :, 4,12, 9) = (/&
+ & 1.0828E+00_JPRB,9.9622E-01_JPRB,9.0368E-01_JPRB,8.0090E-01_JPRB,6.8832E-01_JPRB,5.6535E-01_JPRB,&
+ & 4.2922E-01_JPRB,2.7541E-01_JPRB,1.4957E-01_JPRB,1.0036E-01_JPRB,2.0646E+00_JPRB/)  
+KAO( :, 5,12, 9) = (/&
+ & 1.0799E+00_JPRB,1.0059E+00_JPRB,9.2157E-01_JPRB,8.2344E-01_JPRB,7.1363E-01_JPRB,5.9111E-01_JPRB,&
+ & 4.5461E-01_JPRB,2.9875E-01_JPRB,1.6950E-01_JPRB,1.2252E-01_JPRB,2.1387E+00_JPRB/)  
+KAO( :, 1,13, 9) = (/&
+ & 1.0003E+00_JPRB,8.9827E-01_JPRB,7.9453E-01_JPRB,6.8742E-01_JPRB,5.7557E-01_JPRB,4.5851E-01_JPRB,&
+ & 3.3514E-01_JPRB,2.0061E-01_JPRB,9.5403E-02_JPRB,5.0265E-02_JPRB,1.6361E+00_JPRB/)  
+KAO( :, 2,13, 9) = (/&
+ & 9.9751E-01_JPRB,9.0481E-01_JPRB,8.0727E-01_JPRB,7.0499E-01_JPRB,5.9591E-01_JPRB,4.8058E-01_JPRB,&
+ & 3.5629E-01_JPRB,2.1887E-01_JPRB,1.0898E-01_JPRB,6.1395E-02_JPRB,1.6789E+00_JPRB/)  
+KAO( :, 3,13, 9) = (/&
+ & 9.9614E-01_JPRB,9.1298E-01_JPRB,8.2308E-01_JPRB,7.2470E-01_JPRB,6.1846E-01_JPRB,5.0385E-01_JPRB,&
+ & 3.7856E-01_JPRB,2.3882E-01_JPRB,1.2434E-01_JPRB,7.4760E-02_JPRB,1.7343E+00_JPRB/)  
+KAO( :, 4,13, 9) = (/&
+ & 9.9388E-01_JPRB,9.2211E-01_JPRB,8.4003E-01_JPRB,7.4638E-01_JPRB,6.4247E-01_JPRB,5.2829E-01_JPRB,&
+ & 4.0218E-01_JPRB,2.6010E-01_JPRB,1.4124E-01_JPRB,9.0738E-02_JPRB,1.8018E+00_JPRB/)  
+KAO( :, 5,13, 9) = (/&
+ & 9.9133E-01_JPRB,9.3236E-01_JPRB,8.5728E-01_JPRB,7.6831E-01_JPRB,6.6718E-01_JPRB,5.5353E-01_JPRB,&
+ & 4.2726E-01_JPRB,2.8267E-01_JPRB,1.5974E-01_JPRB,1.0946E-01_JPRB,1.8787E+00_JPRB/)  
+KAO( :, 1, 1,10) = (/&
+ & 1.4571E+00_JPRB,1.2985E+00_JPRB,1.1908E+00_JPRB,1.0846E+00_JPRB,1.0480E+00_JPRB,9.7569E-01_JPRB,&
+ & 9.5294E-01_JPRB,1.0946E+00_JPRB,1.1970E+00_JPRB,1.2341E+00_JPRB,1.2515E+00_JPRB/)  
+KAO( :, 2, 1,10) = (/&
+ & 1.4234E+00_JPRB,1.2781E+00_JPRB,1.1865E+00_JPRB,1.1317E+00_JPRB,1.1150E+00_JPRB,1.0495E+00_JPRB,&
+ & 1.1148E+00_JPRB,1.2924E+00_JPRB,1.4136E+00_JPRB,1.4576E+00_JPRB,1.4767E+00_JPRB/)  
+KAO( :, 3, 1,10) = (/&
+ & 1.3920E+00_JPRB,1.2691E+00_JPRB,1.1852E+00_JPRB,1.1966E+00_JPRB,1.1609E+00_JPRB,1.1524E+00_JPRB,&
+ & 1.2953E+00_JPRB,1.5017E+00_JPRB,1.6423E+00_JPRB,1.6923E+00_JPRB,1.7109E+00_JPRB/)  
+KAO( :, 4, 1,10) = (/&
+ & 1.3678E+00_JPRB,1.2658E+00_JPRB,1.2088E+00_JPRB,1.2463E+00_JPRB,1.2126E+00_JPRB,1.2713E+00_JPRB,&
+ & 1.4845E+00_JPRB,1.7225E+00_JPRB,1.8842E+00_JPRB,1.9406E+00_JPRB,1.9546E+00_JPRB/)  
+KAO( :, 5, 1,10) = (/&
+ & 1.3506E+00_JPRB,1.2582E+00_JPRB,1.2509E+00_JPRB,1.2864E+00_JPRB,1.2835E+00_JPRB,1.4126E+00_JPRB,&
+ & 1.6783E+00_JPRB,1.9484E+00_JPRB,2.1328E+00_JPRB,2.1974E+00_JPRB,2.2094E+00_JPRB/)  
+KAO( :, 1, 2,10) = (/&
+ & 1.5647E+00_JPRB,1.3899E+00_JPRB,1.2609E+00_JPRB,1.1489E+00_JPRB,1.0577E+00_JPRB,9.7853E-01_JPRB,&
+ & 8.8718E-01_JPRB,9.8958E-01_JPRB,1.0824E+00_JPRB,1.1177E+00_JPRB,1.1363E+00_JPRB/)  
+KAO( :, 2, 2,10) = (/&
+ & 1.5359E+00_JPRB,1.3755E+00_JPRB,1.2594E+00_JPRB,1.1862E+00_JPRB,1.1175E+00_JPRB,1.0395E+00_JPRB,&
+ & 1.0286E+00_JPRB,1.1844E+00_JPRB,1.2956E+00_JPRB,1.3363E+00_JPRB,1.3552E+00_JPRB/)  
+KAO( :, 3, 2,10) = (/&
+ & 1.5095E+00_JPRB,1.3719E+00_JPRB,1.2702E+00_JPRB,1.2294E+00_JPRB,1.1716E+00_JPRB,1.1207E+00_JPRB,&
+ & 1.2069E+00_JPRB,1.4002E+00_JPRB,1.5313E+00_JPRB,1.5789E+00_JPRB,1.5968E+00_JPRB/)  
+KAO( :, 4, 2,10) = (/&
+ & 1.4881E+00_JPRB,1.3707E+00_JPRB,1.2904E+00_JPRB,1.2704E+00_JPRB,1.2297E+00_JPRB,1.2284E+00_JPRB,&
+ & 1.3999E+00_JPRB,1.6237E+00_JPRB,1.7765E+00_JPRB,1.8314E+00_JPRB,1.8527E+00_JPRB/)  
+KAO( :, 5, 2,10) = (/&
+ & 1.4712E+00_JPRB,1.3632E+00_JPRB,1.3184E+00_JPRB,1.3082E+00_JPRB,1.2921E+00_JPRB,1.3673E+00_JPRB,&
+ & 1.6066E+00_JPRB,1.8637E+00_JPRB,2.0388E+00_JPRB,2.1005E+00_JPRB,2.1202E+00_JPRB/)  
+KAO( :, 1, 3,10) = (/&
+ & 1.6996E+00_JPRB,1.5099E+00_JPRB,1.3576E+00_JPRB,1.2090E+00_JPRB,1.0921E+00_JPRB,9.6189E-01_JPRB,&
+ & 8.2495E-01_JPRB,8.5120E-01_JPRB,9.3114E-01_JPRB,9.6079E-01_JPRB,9.7144E-01_JPRB/)  
+KAO( :, 2, 3,10) = (/&
+ & 1.6714E+00_JPRB,1.4913E+00_JPRB,1.3572E+00_JPRB,1.2562E+00_JPRB,1.1313E+00_JPRB,1.0225E+00_JPRB,&
+ & 9.3378E-01_JPRB,1.0377E+00_JPRB,1.1351E+00_JPRB,1.1715E+00_JPRB,1.1847E+00_JPRB/)  
+KAO( :, 3, 3,10) = (/&
+ & 1.6464E+00_JPRB,1.4878E+00_JPRB,1.3648E+00_JPRB,1.2864E+00_JPRB,1.1805E+00_JPRB,1.0851E+00_JPRB,&
+ & 1.0848E+00_JPRB,1.2467E+00_JPRB,1.3633E+00_JPRB,1.4058E+00_JPRB,1.4211E+00_JPRB/)  
+KAO( :, 4, 3,10) = (/&
+ & 1.6254E+00_JPRB,1.4868E+00_JPRB,1.3919E+00_JPRB,1.3095E+00_JPRB,1.2349E+00_JPRB,1.1776E+00_JPRB,&
+ & 1.2699E+00_JPRB,1.4722E+00_JPRB,1.6102E+00_JPRB,1.6602E+00_JPRB,1.6774E+00_JPRB/)  
+KAO( :, 5, 3,10) = (/&
+ & 1.6074E+00_JPRB,1.4842E+00_JPRB,1.4163E+00_JPRB,1.3403E+00_JPRB,1.2931E+00_JPRB,1.3071E+00_JPRB,&
+ & 1.4856E+00_JPRB,1.7228E+00_JPRB,1.8845E+00_JPRB,1.9421E+00_JPRB,1.9615E+00_JPRB/)  
+KAO( :, 1, 4,10) = (/&
+ & 1.8323E+00_JPRB,1.6281E+00_JPRB,1.4618E+00_JPRB,1.2952E+00_JPRB,1.1419E+00_JPRB,9.7127E-01_JPRB,&
+ & 7.8485E-01_JPRB,7.2735E-01_JPRB,7.9434E-01_JPRB,8.1908E-01_JPRB,8.2678E-01_JPRB/)  
+KAO( :, 2, 4,10) = (/&
+ & 1.8090E+00_JPRB,1.6115E+00_JPRB,1.4679E+00_JPRB,1.3303E+00_JPRB,1.1865E+00_JPRB,1.0111E+00_JPRB,&
+ & 8.6551E-01_JPRB,8.9427E-01_JPRB,9.7752E-01_JPRB,1.0078E+00_JPRB,1.0171E+00_JPRB/)  
+KAO( :, 3, 4,10) = (/&
+ & 1.7889E+00_JPRB,1.6155E+00_JPRB,1.4723E+00_JPRB,1.3642E+00_JPRB,1.2203E+00_JPRB,1.0626E+00_JPRB,&
+ & 9.8912E-01_JPRB,1.0844E+00_JPRB,1.1852E+00_JPRB,1.2230E+00_JPRB,1.2342E+00_JPRB/)  
+KAO( :, 4, 4,10) = (/&
+ & 1.7702E+00_JPRB,1.6167E+00_JPRB,1.4947E+00_JPRB,1.3909E+00_JPRB,1.2565E+00_JPRB,1.1410E+00_JPRB,&
+ & 1.1388E+00_JPRB,1.2955E+00_JPRB,1.4168E+00_JPRB,1.4624E+00_JPRB,1.4761E+00_JPRB/)  
+KAO( :, 5, 4,10) = (/&
+ & 1.7501E+00_JPRB,1.6097E+00_JPRB,1.5232E+00_JPRB,1.4123E+00_JPRB,1.3009E+00_JPRB,1.2498E+00_JPRB,&
+ & 1.3238E+00_JPRB,1.5313E+00_JPRB,1.6751E+00_JPRB,1.7296E+00_JPRB,1.7455E+00_JPRB/)  
+KAO( :, 1, 5,10) = (/&
+ & 1.9828E+00_JPRB,1.7589E+00_JPRB,1.5692E+00_JPRB,1.3787E+00_JPRB,1.1995E+00_JPRB,9.9912E-01_JPRB,&
+ & 7.7673E-01_JPRB,6.3208E-01_JPRB,6.6656E-01_JPRB,6.8788E-01_JPRB,6.9344E-01_JPRB/)  
+KAO( :, 2, 5,10) = (/&
+ & 1.9634E+00_JPRB,1.7445E+00_JPRB,1.5796E+00_JPRB,1.4090E+00_JPRB,1.2375E+00_JPRB,1.0422E+00_JPRB,&
+ & 8.3265E-01_JPRB,7.6892E-01_JPRB,8.3508E-01_JPRB,8.6158E-01_JPRB,8.6855E-01_JPRB/)  
+KAO( :, 3, 5,10) = (/&
+ & 1.9451E+00_JPRB,1.7488E+00_JPRB,1.5830E+00_JPRB,1.4394E+00_JPRB,1.2778E+00_JPRB,1.0801E+00_JPRB,&
+ & 9.2394E-01_JPRB,9.3676E-01_JPRB,1.0236E+00_JPRB,1.0564E+00_JPRB,1.0650E+00_JPRB/)  
+KAO( :, 4, 5,10) = (/&
+ & 1.9265E+00_JPRB,1.7517E+00_JPRB,1.6023E+00_JPRB,1.4639E+00_JPRB,1.3153E+00_JPRB,1.1360E+00_JPRB,&
+ & 1.0450E+00_JPRB,1.1261E+00_JPRB,1.2312E+00_JPRB,1.2708E+00_JPRB,1.2815E+00_JPRB/)  
+KAO( :, 5, 5,10) = (/&
+ & 1.9040E+00_JPRB,1.7416E+00_JPRB,1.6301E+00_JPRB,1.4960E+00_JPRB,1.3496E+00_JPRB,1.2128E+00_JPRB,&
+ & 1.1890E+00_JPRB,1.3318E+00_JPRB,1.4563E+00_JPRB,1.5043E+00_JPRB,1.5161E+00_JPRB/)  
+KAO( :, 1, 6,10) = (/&
+ & 2.1467E+00_JPRB,1.9004E+00_JPRB,1.6825E+00_JPRB,1.4649E+00_JPRB,1.2465E+00_JPRB,1.0269E+00_JPRB,&
+ & 7.8605E-01_JPRB,5.5785E-01_JPRB,5.4603E-01_JPRB,5.6364E-01_JPRB,5.6772E-01_JPRB/)  
+KAO( :, 2, 6,10) = (/&
+ & 2.1281E+00_JPRB,1.8881E+00_JPRB,1.6957E+00_JPRB,1.4846E+00_JPRB,1.2828E+00_JPRB,1.0659E+00_JPRB,&
+ & 8.3980E-01_JPRB,6.6949E-01_JPRB,6.9629E-01_JPRB,7.1873E-01_JPRB,7.2407E-01_JPRB/)  
+KAO( :, 3, 6,10) = (/&
+ & 2.1101E+00_JPRB,1.8868E+00_JPRB,1.6967E+00_JPRB,1.5129E+00_JPRB,1.3220E+00_JPRB,1.1137E+00_JPRB,&
+ & 9.0037E-01_JPRB,8.0396E-01_JPRB,8.6638E-01_JPRB,8.9449E-01_JPRB,9.0065E-01_JPRB/)  
+KAO( :, 4, 6,10) = (/&
+ & 2.0853E+00_JPRB,1.8860E+00_JPRB,1.7059E+00_JPRB,1.5431E+00_JPRB,1.3571E+00_JPRB,1.1686E+00_JPRB,&
+ & 9.8228E-01_JPRB,9.6588E-01_JPRB,1.0545E+00_JPRB,1.0886E+00_JPRB,1.0960E+00_JPRB/)  
+KAO( :, 5, 6,10) = (/&
+ & 2.0580E+00_JPRB,1.8736E+00_JPRB,1.7305E+00_JPRB,1.5756E+00_JPRB,1.3997E+00_JPRB,1.2303E+00_JPRB,&
+ & 1.0965E+00_JPRB,1.1472E+00_JPRB,1.2529E+00_JPRB,1.2937E+00_JPRB,1.3014E+00_JPRB/)  
+KAO( :, 1, 7,10) = (/&
+ & 2.2844E+00_JPRB,2.0203E+00_JPRB,1.7798E+00_JPRB,1.5404E+00_JPRB,1.2929E+00_JPRB,1.0469E+00_JPRB,&
+ & 7.9236E-01_JPRB,5.2961E-01_JPRB,4.3906E-01_JPRB,4.5269E-01_JPRB,4.5518E-01_JPRB/)  
+KAO( :, 2, 7,10) = (/&
+ & 2.2660E+00_JPRB,2.0078E+00_JPRB,1.7931E+00_JPRB,1.5555E+00_JPRB,1.3285E+00_JPRB,1.0902E+00_JPRB,&
+ & 8.4669E-01_JPRB,5.9963E-01_JPRB,5.6851E-01_JPRB,5.8633E-01_JPRB,5.8943E-01_JPRB/)  
+KAO( :, 3, 7,10) = (/&
+ & 2.2458E+00_JPRB,2.0016E+00_JPRB,1.7952E+00_JPRB,1.5839E+00_JPRB,1.3724E+00_JPRB,1.1382E+00_JPRB,&
+ & 9.0788E-01_JPRB,7.0219E-01_JPRB,7.1570E-01_JPRB,7.3889E-01_JPRB,7.4245E-01_JPRB/)  
+KAO( :, 4, 7,10) = (/&
+ & 2.2171E+00_JPRB,2.0004E+00_JPRB,1.8020E+00_JPRB,1.6192E+00_JPRB,1.4137E+00_JPRB,1.1896E+00_JPRB,&
+ & 9.7833E-01_JPRB,8.3274E-01_JPRB,8.7925E-01_JPRB,9.0812E-01_JPRB,9.1193E-01_JPRB/)  
+KAO( :, 5, 7,10) = (/&
+ & 2.1959E+00_JPRB,1.9929E+00_JPRB,1.8261E+00_JPRB,1.6565E+00_JPRB,1.4548E+00_JPRB,1.2529E+00_JPRB,&
+ & 1.0566E+00_JPRB,9.7505E-01_JPRB,1.0516E+00_JPRB,1.0862E+00_JPRB,1.0907E+00_JPRB/)  
+KAO( :, 1, 8,10) = (/&
+ & 2.3885E+00_JPRB,2.1081E+00_JPRB,1.8478E+00_JPRB,1.5947E+00_JPRB,1.3299E+00_JPRB,1.0742E+00_JPRB,&
+ & 7.9832E-01_JPRB,5.1485E-01_JPRB,3.4910E-01_JPRB,3.5166E-01_JPRB,4.0882E-01_JPRB/)  
+KAO( :, 2, 8,10) = (/&
+ & 2.3816E+00_JPRB,2.1064E+00_JPRB,1.8710E+00_JPRB,1.6145E+00_JPRB,1.3755E+00_JPRB,1.1190E+00_JPRB,&
+ & 8.5217E-01_JPRB,5.7569E-01_JPRB,4.5136E-01_JPRB,4.6418E-01_JPRB,4.8409E-01_JPRB/)  
+KAO( :, 3, 8,10) = (/&
+ & 2.3652E+00_JPRB,2.1007E+00_JPRB,1.8806E+00_JPRB,1.6533E+00_JPRB,1.4207E+00_JPRB,1.1711E+00_JPRB,&
+ & 9.0846E-01_JPRB,6.4219E-01_JPRB,5.7508E-01_JPRB,5.9368E-01_JPRB,5.9892E-01_JPRB/)  
+KAO( :, 4, 8,10) = (/&
+ & 2.3476E+00_JPRB,2.1091E+00_JPRB,1.8906E+00_JPRB,1.6908E+00_JPRB,1.4662E+00_JPRB,1.2230E+00_JPRB,&
+ & 9.7637E-01_JPRB,7.3139E-01_JPRB,7.1362E-01_JPRB,7.3716E-01_JPRB,7.4183E-01_JPRB/)  
+KAO( :, 5, 8,10) = (/&
+ & 2.3384E+00_JPRB,2.1117E+00_JPRB,1.9201E+00_JPRB,1.7277E+00_JPRB,1.5122E+00_JPRB,1.2845E+00_JPRB,&
+ & 1.0504E+00_JPRB,8.4237E-01_JPRB,8.6471E-01_JPRB,8.9254E-01_JPRB,8.9924E-01_JPRB/)  
+KAO( :, 1, 9,10) = (/&
+ & 2.5386E+00_JPRB,2.2349E+00_JPRB,1.9481E+00_JPRB,1.6673E+00_JPRB,1.3731E+00_JPRB,1.0924E+00_JPRB,&
+ & 8.0108E-01_JPRB,5.0383E-01_JPRB,2.8431E-01_JPRB,2.6546E-01_JPRB,1.0078E+00_JPRB/)  
+KAO( :, 2, 9,10) = (/&
+ & 2.5451E+00_JPRB,2.2468E+00_JPRB,1.9792E+00_JPRB,1.6927E+00_JPRB,1.4190E+00_JPRB,1.1389E+00_JPRB,&
+ & 8.5564E-01_JPRB,5.6069E-01_JPRB,3.5715E-01_JPRB,3.5572E-01_JPRB,1.1000E+00_JPRB/)  
+KAO( :, 3, 9,10) = (/&
+ & 2.5371E+00_JPRB,2.2464E+00_JPRB,1.9929E+00_JPRB,1.7275E+00_JPRB,1.4622E+00_JPRB,1.1905E+00_JPRB,&
+ & 9.1694E-01_JPRB,6.2032E-01_JPRB,4.5328E-01_JPRB,4.6281E-01_JPRB,1.1964E+00_JPRB/)  
+KAO( :, 4, 9,10) = (/&
+ & 2.5272E+00_JPRB,2.2578E+00_JPRB,2.0033E+00_JPRB,1.7607E+00_JPRB,1.5050E+00_JPRB,1.2522E+00_JPRB,&
+ & 9.8282E-01_JPRB,6.8556E-01_JPRB,5.6762E-01_JPRB,5.8509E-01_JPRB,1.3014E+00_JPRB/)  
+KAO( :, 5, 9,10) = (/&
+ & 2.5219E+00_JPRB,2.2665E+00_JPRB,2.0326E+00_JPRB,1.7988E+00_JPRB,1.5562E+00_JPRB,1.3171E+00_JPRB,&
+ & 1.0492E+00_JPRB,7.6013E-01_JPRB,7.0072E-01_JPRB,7.2284E-01_JPRB,1.4121E+00_JPRB/)  
+KAO( :, 1,10,10) = (/&
+ & 2.7032E+00_JPRB,2.3752E+00_JPRB,2.0666E+00_JPRB,1.7582E+00_JPRB,1.4376E+00_JPRB,1.1282E+00_JPRB,&
+ & 8.0844E-01_JPRB,4.9374E-01_JPRB,2.5722E-01_JPRB,2.0186E-01_JPRB,3.6688E+00_JPRB/)  
+KAO( :, 2,10,10) = (/&
+ & 2.7107E+00_JPRB,2.3914E+00_JPRB,2.0994E+00_JPRB,1.7884E+00_JPRB,1.4847E+00_JPRB,1.1756E+00_JPRB,&
+ & 8.5930E-01_JPRB,5.5140E-01_JPRB,3.0504E-01_JPRB,2.7555E-01_JPRB,3.7597E+00_JPRB/)  
+KAO( :, 3,10,10) = (/&
+ & 2.7016E+00_JPRB,2.3907E+00_JPRB,2.1143E+00_JPRB,1.8225E+00_JPRB,1.5274E+00_JPRB,1.2237E+00_JPRB,&
+ & 9.2233E-01_JPRB,6.0585E-01_JPRB,3.7278E-01_JPRB,3.6425E-01_JPRB,3.8938E+00_JPRB/)  
+KAO( :, 4,10,10) = (/&
+ & 2.6956E+00_JPRB,2.4067E+00_JPRB,2.1300E+00_JPRB,1.8578E+00_JPRB,1.5689E+00_JPRB,1.2815E+00_JPRB,&
+ & 9.8969E-01_JPRB,6.6341E-01_JPRB,4.6317E-01_JPRB,4.6656E-01_JPRB,4.0246E+00_JPRB/)  
+KAO( :, 5,10,10) = (/&
+ & 2.6869E+00_JPRB,2.4172E+00_JPRB,2.1621E+00_JPRB,1.8987E+00_JPRB,1.6181E+00_JPRB,1.3422E+00_JPRB,&
+ & 1.0558E+00_JPRB,7.2592E-01_JPRB,5.7500E-01_JPRB,5.8744E-01_JPRB,4.1547E+00_JPRB/)  
+KAO( :, 1,11,10) = (/&
+ & 2.8365E+00_JPRB,2.4939E+00_JPRB,2.1806E+00_JPRB,1.8562E+00_JPRB,1.5246E+00_JPRB,1.1987E+00_JPRB,&
+ & 8.5286E-01_JPRB,5.0756E-01_JPRB,2.5720E-01_JPRB,1.7786E-01_JPRB,5.8233E+00_JPRB/)  
+KAO( :, 2,11,10) = (/&
+ & 2.8311E+00_JPRB,2.5017E+00_JPRB,2.2072E+00_JPRB,1.8857E+00_JPRB,1.5735E+00_JPRB,1.2464E+00_JPRB,&
+ & 9.0789E-01_JPRB,5.6161E-01_JPRB,3.0021E-01_JPRB,2.4395E-01_JPRB,5.8712E+00_JPRB/)  
+KAO( :, 3,11,10) = (/&
+ & 2.8249E+00_JPRB,2.5109E+00_JPRB,2.2225E+00_JPRB,1.9282E+00_JPRB,1.6185E+00_JPRB,1.2983E+00_JPRB,&
+ & 9.6627E-01_JPRB,6.1528E-01_JPRB,3.5612E-01_JPRB,3.2409E-01_JPRB,5.9730E+00_JPRB/)  
+KAO( :, 4,11,10) = (/&
+ & 2.8199E+00_JPRB,2.5320E+00_JPRB,2.2523E+00_JPRB,1.9711E+00_JPRB,1.6696E+00_JPRB,1.3539E+00_JPRB,&
+ & 1.0246E+00_JPRB,6.7092E-01_JPRB,4.3024E-01_JPRB,4.1910E-01_JPRB,6.1100E+00_JPRB/)  
+KAO( :, 5,11,10) = (/&
+ & 2.8024E+00_JPRB,2.5388E+00_JPRB,2.2830E+00_JPRB,2.0130E+00_JPRB,1.7222E+00_JPRB,1.4150E+00_JPRB,&
+ & 1.0853E+00_JPRB,7.3326E-01_JPRB,5.2958E-01_JPRB,5.3082E-01_JPRB,6.2451E+00_JPRB/)  
+KAO( :, 1,12,10) = (/&
+ & 2.9007E+00_JPRB,2.5522E+00_JPRB,2.2455E+00_JPRB,1.9136E+00_JPRB,1.5844E+00_JPRB,1.2502E+00_JPRB,&
+ & 8.9520E-01_JPRB,5.2570E-01_JPRB,2.5575E-01_JPRB,1.5969E-01_JPRB,6.7808E+00_JPRB/)  
+KAO( :, 2,12,10) = (/&
+ & 2.8957E+00_JPRB,2.5649E+00_JPRB,2.2681E+00_JPRB,1.9492E+00_JPRB,1.6332E+00_JPRB,1.2959E+00_JPRB,&
+ & 9.5066E-01_JPRB,5.7358E-01_JPRB,2.9740E-01_JPRB,2.1707E-01_JPRB,6.8136E+00_JPRB/)  
+KAO( :, 3,12,10) = (/&
+ & 2.8959E+00_JPRB,2.5923E+00_JPRB,2.2942E+00_JPRB,1.9975E+00_JPRB,1.6818E+00_JPRB,1.3548E+00_JPRB,&
+ & 1.0083E+00_JPRB,6.2153E-01_JPRB,3.4695E-01_JPRB,2.8857E-01_JPRB,6.9134E+00_JPRB/)  
+KAO( :, 4,12,10) = (/&
+ & 2.8817E+00_JPRB,2.6059E+00_JPRB,2.3289E+00_JPRB,2.0414E+00_JPRB,1.7379E+00_JPRB,1.4164E+00_JPRB,&
+ & 1.0650E+00_JPRB,6.7585E-01_JPRB,4.1101E-01_JPRB,3.7695E-01_JPRB,7.0381E+00_JPRB/)  
+KAO( :, 5,12,10) = (/&
+ & 2.8680E+00_JPRB,2.6070E+00_JPRB,2.3572E+00_JPRB,2.0817E+00_JPRB,1.7934E+00_JPRB,1.4807E+00_JPRB,&
+ & 1.1194E+00_JPRB,7.3817E-01_JPRB,4.8817E-01_JPRB,4.7434E-01_JPRB,7.1520E+00_JPRB/)  
+KAO( :, 1,13,10) = (/&
+ & 2.8740E+00_JPRB,2.5320E+00_JPRB,2.2375E+00_JPRB,1.9099E+00_JPRB,1.5916E+00_JPRB,1.2554E+00_JPRB,&
+ & 9.0824E-01_JPRB,5.3705E-01_JPRB,2.5121E-01_JPRB,1.4664E-01_JPRB,6.0411E+00_JPRB/)  
+KAO( :, 2,13,10) = (/&
+ & 2.8792E+00_JPRB,2.5659E+00_JPRB,2.2680E+00_JPRB,1.9609E+00_JPRB,1.6438E+00_JPRB,1.3095E+00_JPRB,&
+ & 9.6448E-01_JPRB,5.8102E-01_JPRB,2.9305E-01_JPRB,1.9412E-01_JPRB,6.1051E+00_JPRB/)  
+KAO( :, 3,13,10) = (/&
+ & 2.8707E+00_JPRB,2.5893E+00_JPRB,2.2982E+00_JPRB,2.0064E+00_JPRB,1.6967E+00_JPRB,1.3719E+00_JPRB,&
+ & 1.0233E+00_JPRB,6.2659E-01_JPRB,3.3990E-01_JPRB,2.5773E-01_JPRB,6.2169E+00_JPRB/)  
+KAO( :, 4,13,10) = (/&
+ & 2.8643E+00_JPRB,2.5995E+00_JPRB,2.3326E+00_JPRB,2.0484E+00_JPRB,1.7508E+00_JPRB,1.4355E+00_JPRB,&
+ & 1.0824E+00_JPRB,6.7916E-01_JPRB,3.9630E-01_JPRB,3.3349E-01_JPRB,6.3137E+00_JPRB/)  
+KAO( :, 5,13,10) = (/&
+ & 2.8671E+00_JPRB,2.6159E+00_JPRB,2.3730E+00_JPRB,2.0970E+00_JPRB,1.8103E+00_JPRB,1.4979E+00_JPRB,&
+ & 1.1399E+00_JPRB,7.4021E-01_JPRB,4.5873E-01_JPRB,4.1936E-01_JPRB,6.4289E+00_JPRB/)  
+KAO( :, 1, 1,11) = (/&
+ & 1.6613E+00_JPRB,1.4866E+00_JPRB,1.3853E+00_JPRB,1.3300E+00_JPRB,1.2682E+00_JPRB,1.2323E+00_JPRB,&
+ & 1.3863E+00_JPRB,1.6088E+00_JPRB,1.7596E+00_JPRB,1.8112E+00_JPRB,1.8168E+00_JPRB/)  
+KAO( :, 2, 1,11) = (/&
+ & 1.6169E+00_JPRB,1.4555E+00_JPRB,1.4059E+00_JPRB,1.3808E+00_JPRB,1.3576E+00_JPRB,1.4059E+00_JPRB,&
+ & 1.6502E+00_JPRB,1.9162E+00_JPRB,2.0970E+00_JPRB,2.1595E+00_JPRB,2.1711E+00_JPRB/)  
+KAO( :, 3, 1,11) = (/&
+ & 1.5778E+00_JPRB,1.4552E+00_JPRB,1.4351E+00_JPRB,1.4445E+00_JPRB,1.4667E+00_JPRB,1.6093E+00_JPRB,&
+ & 1.9164E+00_JPRB,2.2262E+00_JPRB,2.4366E+00_JPRB,2.5118E+00_JPRB,2.5357E+00_JPRB/)  
+KAO( :, 4, 1,11) = (/&
+ & 1.5458E+00_JPRB,1.4600E+00_JPRB,1.4693E+00_JPRB,1.5080E+00_JPRB,1.5810E+00_JPRB,1.8320E+00_JPRB,&
+ & 2.1847E+00_JPRB,2.5375E+00_JPRB,2.7777E+00_JPRB,2.8639E+00_JPRB,2.8977E+00_JPRB/)  
+KAO( :, 5, 1,11) = (/&
+ & 1.5169E+00_JPRB,1.4756E+00_JPRB,1.5189E+00_JPRB,1.5745E+00_JPRB,1.7149E+00_JPRB,2.0625E+00_JPRB,&
+ & 2.4598E+00_JPRB,2.8572E+00_JPRB,3.1271E+00_JPRB,3.2233E+00_JPRB,3.2607E+00_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART7',1,ZHOOK_HANDLE)
+END SUBROUTINE PART7
+
+
+SUBROUTINE PART8
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART8',0,ZHOOK_HANDLE)
+
+
+KAO( :, 1, 2,11) = (/&
+ & 1.7931E+00_JPRB,1.6027E+00_JPRB,1.4692E+00_JPRB,1.3591E+00_JPRB,1.3119E+00_JPRB,1.2053E+00_JPRB,&
+ & 1.2920E+00_JPRB,1.4995E+00_JPRB,1.6403E+00_JPRB,1.6893E+00_JPRB,1.7029E+00_JPRB/)  
+KAO( :, 2, 2,11) = (/&
+ & 1.7517E+00_JPRB,1.5695E+00_JPRB,1.4741E+00_JPRB,1.4214E+00_JPRB,1.3827E+00_JPRB,1.3473E+00_JPRB,&
+ & 1.5430E+00_JPRB,1.7916E+00_JPRB,1.9609E+00_JPRB,2.0211E+00_JPRB,2.0410E+00_JPRB/)  
+KAO( :, 3, 2,11) = (/&
+ & 1.7144E+00_JPRB,1.5578E+00_JPRB,1.4838E+00_JPRB,1.5024E+00_JPRB,1.4587E+00_JPRB,1.5235E+00_JPRB,&
+ & 1.7953E+00_JPRB,2.0852E+00_JPRB,2.2826E+00_JPRB,2.3530E+00_JPRB,2.3802E+00_JPRB/)  
+KAO( :, 4, 2,11) = (/&
+ & 1.6782E+00_JPRB,1.5545E+00_JPRB,1.5253E+00_JPRB,1.5641E+00_JPRB,1.5463E+00_JPRB,1.7285E+00_JPRB,&
+ & 2.0611E+00_JPRB,2.3939E+00_JPRB,2.6193E+00_JPRB,2.6996E+00_JPRB,2.7281E+00_JPRB/)  
+KAO( :, 5, 2,11) = (/&
+ & 1.6444E+00_JPRB,1.5616E+00_JPRB,1.5898E+00_JPRB,1.6106E+00_JPRB,1.6616E+00_JPRB,1.9596E+00_JPRB,&
+ & 2.3378E+00_JPRB,2.7154E+00_JPRB,2.9704E+00_JPRB,3.0605E+00_JPRB,3.0919E+00_JPRB/)  
+KAO( :, 1, 3,11) = (/&
+ & 1.9627E+00_JPRB,1.7504E+00_JPRB,1.5854E+00_JPRB,1.4217E+00_JPRB,1.3102E+00_JPRB,1.1839E+00_JPRB,&
+ & 1.1622E+00_JPRB,1.3310E+00_JPRB,1.4543E+00_JPRB,1.4985E+00_JPRB,1.5140E+00_JPRB/)  
+KAO( :, 2, 3,11) = (/&
+ & 1.9279E+00_JPRB,1.7219E+00_JPRB,1.5816E+00_JPRB,1.4501E+00_JPRB,1.3900E+00_JPRB,1.2949E+00_JPRB,&
+ & 1.3876E+00_JPRB,1.6085E+00_JPRB,1.7572E+00_JPRB,1.8110E+00_JPRB,1.8300E+00_JPRB/)  
+KAO( :, 3, 3,11) = (/&
+ & 1.8924E+00_JPRB,1.7068E+00_JPRB,1.5754E+00_JPRB,1.5312E+00_JPRB,1.4545E+00_JPRB,1.4364E+00_JPRB,&
+ & 1.6346E+00_JPRB,1.8944E+00_JPRB,2.0697E+00_JPRB,2.1336E+00_JPRB,2.1557E+00_JPRB/)  
+KAO( :, 4, 3,11) = (/&
+ & 1.8571E+00_JPRB,1.6996E+00_JPRB,1.5918E+00_JPRB,1.6013E+00_JPRB,1.5297E+00_JPRB,1.6118E+00_JPRB,&
+ & 1.8962E+00_JPRB,2.1972E+00_JPRB,2.4008E+00_JPRB,2.4733E+00_JPRB,2.4988E+00_JPRB/)  
+KAO( :, 5, 3,11) = (/&
+ & 1.8235E+00_JPRB,1.6901E+00_JPRB,1.6505E+00_JPRB,1.6453E+00_JPRB,1.6300E+00_JPRB,1.8256E+00_JPRB,&
+ & 2.1737E+00_JPRB,2.5187E+00_JPRB,2.7529E+00_JPRB,2.8347E+00_JPRB,2.8622E+00_JPRB/)  
+KAO( :, 1, 4,11) = (/&
+ & 2.1765E+00_JPRB,1.9348E+00_JPRB,1.7298E+00_JPRB,1.5261E+00_JPRB,1.3305E+00_JPRB,1.1605E+00_JPRB,&
+ & 1.0551E+00_JPRB,1.1346E+00_JPRB,1.2370E+00_JPRB,1.2757E+00_JPRB,1.2869E+00_JPRB/)  
+KAO( :, 2, 4,11) = (/&
+ & 2.1414E+00_JPRB,1.9083E+00_JPRB,1.7248E+00_JPRB,1.5356E+00_JPRB,1.3817E+00_JPRB,1.2586E+00_JPRB,&
+ & 1.2309E+00_JPRB,1.3912E+00_JPRB,1.5177E+00_JPRB,1.5661E+00_JPRB,1.5799E+00_JPRB/)  
+KAO( :, 3, 4,11) = (/&
+ & 2.1021E+00_JPRB,1.8834E+00_JPRB,1.7158E+00_JPRB,1.5815E+00_JPRB,1.4532E+00_JPRB,1.3786E+00_JPRB,&
+ & 1.4439E+00_JPRB,1.6656E+00_JPRB,1.8177E+00_JPRB,1.8749E+00_JPRB,1.8912E+00_JPRB/)  
+KAO( :, 4, 4,11) = (/&
+ & 2.0644E+00_JPRB,1.8749E+00_JPRB,1.7166E+00_JPRB,1.6274E+00_JPRB,1.5294E+00_JPRB,1.5218E+00_JPRB,&
+ & 1.7000E+00_JPRB,1.9644E+00_JPRB,2.1444E+00_JPRB,2.2100E+00_JPRB,2.2304E+00_JPRB/)  
+KAO( :, 5, 4,11) = (/&
+ & 2.0315E+00_JPRB,1.8634E+00_JPRB,1.7507E+00_JPRB,1.6723E+00_JPRB,1.6226E+00_JPRB,1.7027E+00_JPRB,&
+ & 1.9800E+00_JPRB,2.2880E+00_JPRB,2.4977E+00_JPRB,2.5739E+00_JPRB,2.5981E+00_JPRB/)  
+KAO( :, 1, 5,11) = (/&
+ & 2.3978E+00_JPRB,2.1273E+00_JPRB,1.8817E+00_JPRB,1.6476E+00_JPRB,1.4011E+00_JPRB,1.1672E+00_JPRB,&
+ & 9.7083E-01_JPRB,9.5214E-01_JPRB,1.0369E+00_JPRB,1.0689E+00_JPRB,1.0768E+00_JPRB/)  
+KAO( :, 2, 5,11) = (/&
+ & 2.3540E+00_JPRB,2.0936E+00_JPRB,1.8768E+00_JPRB,1.6491E+00_JPRB,1.4389E+00_JPRB,1.2340E+00_JPRB,&
+ & 1.1149E+00_JPRB,1.1831E+00_JPRB,1.2889E+00_JPRB,1.3291E+00_JPRB,1.3391E+00_JPRB/)  
+KAO( :, 3, 5,11) = (/&
+ & 2.3123E+00_JPRB,2.0603E+00_JPRB,1.8683E+00_JPRB,1.6861E+00_JPRB,1.4856E+00_JPRB,1.3243E+00_JPRB,&
+ & 1.2879E+00_JPRB,1.4387E+00_JPRB,1.5683E+00_JPRB,1.6173E+00_JPRB,1.6292E+00_JPRB/)  
+KAO( :, 4, 5,11) = (/&
+ & 2.2731E+00_JPRB,2.0535E+00_JPRB,1.8606E+00_JPRB,1.7201E+00_JPRB,1.5405E+00_JPRB,1.4489E+00_JPRB,&
+ & 1.5047E+00_JPRB,1.7253E+00_JPRB,1.8810E+00_JPRB,1.9395E+00_JPRB,1.9546E+00_JPRB/)  
+KAO( :, 5, 5,11) = (/&
+ & 2.2409E+00_JPRB,2.0441E+00_JPRB,1.8877E+00_JPRB,1.7429E+00_JPRB,1.6151E+00_JPRB,1.6124E+00_JPRB,&
+ & 1.7700E+00_JPRB,2.0422E+00_JPRB,2.2271E+00_JPRB,2.2953E+00_JPRB,2.3139E+00_JPRB/)  
+KAO( :, 1, 6,11) = (/&
+ & 2.5958E+00_JPRB,2.2974E+00_JPRB,2.0142E+00_JPRB,1.7617E+00_JPRB,1.4801E+00_JPRB,1.2138E+00_JPRB,&
+ & 9.4381E-01_JPRB,8.0769E-01_JPRB,8.5699E-01_JPRB,8.8288E-01_JPRB,8.8884E-01_JPRB/)  
+KAO( :, 2, 6,11) = (/&
+ & 2.5524E+00_JPRB,2.2633E+00_JPRB,2.0140E+00_JPRB,1.7595E+00_JPRB,1.5235E+00_JPRB,1.2699E+00_JPRB,&
+ & 1.0358E+00_JPRB,9.9995E-01_JPRB,1.0855E+00_JPRB,1.1188E+00_JPRB,1.1263E+00_JPRB/)  
+KAO( :, 3, 6,11) = (/&
+ & 2.5133E+00_JPRB,2.2324E+00_JPRB,2.0130E+00_JPRB,1.7928E+00_JPRB,1.5724E+00_JPRB,1.3298E+00_JPRB,&
+ & 1.1740E+00_JPRB,1.2292E+00_JPRB,1.3373E+00_JPRB,1.3782E+00_JPRB,1.3885E+00_JPRB/)  
+KAO( :, 4, 6,11) = (/&
+ & 2.4807E+00_JPRB,2.2302E+00_JPRB,2.0078E+00_JPRB,1.8271E+00_JPRB,1.6226E+00_JPRB,1.4050E+00_JPRB,&
+ & 1.3553E+00_JPRB,1.4899E+00_JPRB,1.6221E+00_JPRB,1.6724E+00_JPRB,1.6846E+00_JPRB/)  
+KAO( :, 5, 6,11) = (/&
+ & 2.4531E+00_JPRB,2.2259E+00_JPRB,2.0295E+00_JPRB,1.8622E+00_JPRB,1.6727E+00_JPRB,1.5327E+00_JPRB,&
+ & 1.5693E+00_JPRB,1.7819E+00_JPRB,1.9432E+00_JPRB,2.0038E+00_JPRB,2.0198E+00_JPRB/)  
+KAO( :, 1, 7,11) = (/&
+ & 2.7829E+00_JPRB,2.4576E+00_JPRB,2.1410E+00_JPRB,1.8711E+00_JPRB,1.5626E+00_JPRB,1.2726E+00_JPRB,&
+ & 9.6771E-01_JPRB,6.9895E-01_JPRB,6.9406E-01_JPRB,7.1533E-01_JPRB,7.2033E-01_JPRB/)  
+KAO( :, 2, 7,11) = (/&
+ & 2.7493E+00_JPRB,2.4354E+00_JPRB,2.1596E+00_JPRB,1.8755E+00_JPRB,1.6074E+00_JPRB,1.3276E+00_JPRB,&
+ & 1.0391E+00_JPRB,8.5593E-01_JPRB,8.9783E-01_JPRB,9.2606E-01_JPRB,9.3225E-01_JPRB/)  
+KAO( :, 3, 7,11) = (/&
+ & 2.7215E+00_JPRB,2.4153E+00_JPRB,2.1690E+00_JPRB,1.9070E+00_JPRB,1.6545E+00_JPRB,1.3898E+00_JPRB,&
+ & 1.1226E+00_JPRB,1.0453E+00_JPRB,1.1294E+00_JPRB,1.1648E+00_JPRB,1.1728E+00_JPRB/)  
+KAO( :, 4, 7,11) = (/&
+ & 2.6975E+00_JPRB,2.4170E+00_JPRB,2.1702E+00_JPRB,1.9430E+00_JPRB,1.7107E+00_JPRB,1.4568E+00_JPRB,&
+ & 1.2495E+00_JPRB,1.2760E+00_JPRB,1.3906E+00_JPRB,1.4345E+00_JPRB,1.4450E+00_JPRB/)  
+KAO( :, 5, 7,11) = (/&
+ & 2.6700E+00_JPRB,2.4191E+00_JPRB,2.1904E+00_JPRB,1.9836E+00_JPRB,1.7642E+00_JPRB,1.5351E+00_JPRB,&
+ & 1.4268E+00_JPRB,1.5390E+00_JPRB,1.6803E+00_JPRB,1.7334E+00_JPRB,1.7463E+00_JPRB/)  
+KAO( :, 1, 8,11) = (/&
+ & 2.9847E+00_JPRB,2.6313E+00_JPRB,2.2865E+00_JPRB,1.9879E+00_JPRB,1.6488E+00_JPRB,1.3255E+00_JPRB,&
+ & 9.9877E-01_JPRB,6.5722E-01_JPRB,5.5701E-01_JPRB,5.7433E-01_JPRB,5.7952E-01_JPRB/)  
+KAO( :, 2, 8,11) = (/&
+ & 2.9589E+00_JPRB,2.6183E+00_JPRB,2.3133E+00_JPRB,2.0003E+00_JPRB,1.6901E+00_JPRB,1.3820E+00_JPRB,&
+ & 1.0665E+00_JPRB,7.5791E-01_JPRB,7.3569E-01_JPRB,7.5906E-01_JPRB,7.6418E-01_JPRB/)  
+KAO( :, 3, 8,11) = (/&
+ & 2.9382E+00_JPRB,2.6052E+00_JPRB,2.3281E+00_JPRB,2.0270E+00_JPRB,1.7422E+00_JPRB,1.4465E+00_JPRB,&
+ & 1.1457E+00_JPRB,9.0969E-01_JPRB,9.4197E-01_JPRB,9.7232E-01_JPRB,9.7875E-01_JPRB/)  
+KAO( :, 4, 8,11) = (/&
+ & 2.9170E+00_JPRB,2.6060E+00_JPRB,2.3361E+00_JPRB,2.0694E+00_JPRB,1.8026E+00_JPRB,1.5183E+00_JPRB,&
+ & 1.2312E+00_JPRB,1.0984E+00_JPRB,1.1773E+00_JPRB,1.2154E+00_JPRB,1.2236E+00_JPRB/)  
+KAO( :, 5, 8,11) = (/&
+ & 2.8898E+00_JPRB,2.6134E+00_JPRB,2.3563E+00_JPRB,2.1177E+00_JPRB,1.8614E+00_JPRB,1.5931E+00_JPRB,&
+ & 1.3477E+00_JPRB,1.3211E+00_JPRB,1.4373E+00_JPRB,1.4847E+00_JPRB,1.4939E+00_JPRB/)  
+KAO( :, 1, 9,11) = (/&
+ & 3.1562E+00_JPRB,2.7768E+00_JPRB,2.4133E+00_JPRB,2.0911E+00_JPRB,1.7326E+00_JPRB,1.3839E+00_JPRB,&
+ & 1.0276E+00_JPRB,6.4719E-01_JPRB,4.4660E-01_JPRB,4.5187E-01_JPRB,1.3511E+00_JPRB/)  
+KAO( :, 2, 9,11) = (/&
+ & 3.1384E+00_JPRB,2.7738E+00_JPRB,2.4447E+00_JPRB,2.1155E+00_JPRB,1.7788E+00_JPRB,1.4436E+00_JPRB,&
+ & 1.0888E+00_JPRB,7.2585E-01_JPRB,5.9330E-01_JPRB,6.1102E-01_JPRB,1.4527E+00_JPRB/)  
+KAO( :, 3, 9,11) = (/&
+ & 3.1307E+00_JPRB,2.7744E+00_JPRB,2.4761E+00_JPRB,2.1489E+00_JPRB,1.8392E+00_JPRB,1.5081E+00_JPRB,&
+ & 1.1726E+00_JPRB,8.2343E-01_JPRB,7.7078E-01_JPRB,7.9585E-01_JPRB,1.5858E+00_JPRB/)  
+KAO( :, 4, 9,11) = (/&
+ & 3.1198E+00_JPRB,2.7814E+00_JPRB,2.4948E+00_JPRB,2.2031E+00_JPRB,1.9038E+00_JPRB,1.5809E+00_JPRB,&
+ & 1.2536E+00_JPRB,9.6368E-01_JPRB,9.7557E-01_JPRB,1.0082E+00_JPRB,1.7168E+00_JPRB/)  
+KAO( :, 5, 9,11) = (/&
+ & 3.0996E+00_JPRB,2.7968E+00_JPRB,2.5179E+00_JPRB,2.2589E+00_JPRB,1.9623E+00_JPRB,1.6560E+00_JPRB,&
+ & 1.3493E+00_JPRB,1.1417E+00_JPRB,1.2025E+00_JPRB,1.2431E+00_JPRB,1.8589E+00_JPRB/)  
+KAO( :, 1,10,11) = (/&
+ & 3.3334E+00_JPRB,2.9275E+00_JPRB,2.5435E+00_JPRB,2.1899E+00_JPRB,1.8099E+00_JPRB,1.4340E+00_JPRB,&
+ & 1.0600E+00_JPRB,6.4816E-01_JPRB,3.7397E-01_JPRB,3.5551E-01_JPRB,5.2534E+00_JPRB/)  
+KAO( :, 2,10,11) = (/&
+ & 3.3403E+00_JPRB,2.9437E+00_JPRB,2.5854E+00_JPRB,2.2265E+00_JPRB,1.8583E+00_JPRB,1.5038E+00_JPRB,&
+ & 1.1221E+00_JPRB,7.2216E-01_JPRB,4.8652E-01_JPRB,4.8944E-01_JPRB,5.3617E+00_JPRB/)  
+KAO( :, 3,10,11) = (/&
+ & 3.3507E+00_JPRB,2.9656E+00_JPRB,2.6315E+00_JPRB,2.2679E+00_JPRB,1.9297E+00_JPRB,1.5737E+00_JPRB,&
+ & 1.2011E+00_JPRB,8.0616E-01_JPRB,6.2998E-01_JPRB,6.4742E-01_JPRB,5.5025E+00_JPRB/)  
+KAO( :, 4,10,11) = (/&
+ & 3.3473E+00_JPRB,2.9767E+00_JPRB,2.6569E+00_JPRB,2.3310E+00_JPRB,1.9983E+00_JPRB,1.6498E+00_JPRB,&
+ & 1.2844E+00_JPRB,9.0267E-01_JPRB,8.0194E-01_JPRB,8.2874E-01_JPRB,5.7004E+00_JPRB/)  
+KAO( :, 5,10,11) = (/&
+ & 3.3392E+00_JPRB,3.0005E+00_JPRB,2.6833E+00_JPRB,2.3869E+00_JPRB,2.0631E+00_JPRB,1.7311E+00_JPRB,&
+ & 1.3746E+00_JPRB,1.0270E+00_JPRB,9.9701E-01_JPRB,1.0314E+00_JPRB,5.9087E+00_JPRB/)  
+KAO( :, 1,11,11) = (/&
+ & 3.5791E+00_JPRB,3.1435E+00_JPRB,2.7380E+00_JPRB,2.3402E+00_JPRB,1.9223E+00_JPRB,1.5197E+00_JPRB,&
+ & 1.1123E+00_JPRB,6.8009E-01_JPRB,3.6796E-01_JPRB,3.2253E-01_JPRB,8.7180E+00_JPRB/)  
+KAO( :, 2,11,11) = (/&
+ & 3.6087E+00_JPRB,3.1771E+00_JPRB,2.7948E+00_JPRB,2.3883E+00_JPRB,1.9888E+00_JPRB,1.5919E+00_JPRB,&
+ & 1.1796E+00_JPRB,7.5512E-01_JPRB,4.5552E-01_JPRB,4.4047E-01_JPRB,8.8675E+00_JPRB/)  
+KAO( :, 3,11,11) = (/&
+ & 3.6204E+00_JPRB,3.2046E+00_JPRB,2.8376E+00_JPRB,2.4402E+00_JPRB,2.0562E+00_JPRB,1.6610E+00_JPRB,&
+ & 1.2640E+00_JPRB,8.3788E-01_JPRB,5.7436E-01_JPRB,5.8089E-01_JPRB,8.9648E+00_JPRB/)  
+KAO( :, 4,11,11) = (/&
+ & 3.6182E+00_JPRB,3.2254E+00_JPRB,2.8581E+00_JPRB,2.4960E+00_JPRB,2.1196E+00_JPRB,1.7427E+00_JPRB,&
+ & 1.3559E+00_JPRB,9.2621E-01_JPRB,7.2423E-01_JPRB,7.4487E-01_JPRB,9.1149E+00_JPRB/)  
+KAO( :, 5,11,11) = (/&
+ & 3.6174E+00_JPRB,3.2471E+00_JPRB,2.8980E+00_JPRB,2.5529E+00_JPRB,2.1857E+00_JPRB,1.8304E+00_JPRB,&
+ & 1.4477E+00_JPRB,1.0248E+00_JPRB,8.9846E-01_JPRB,9.2879E-01_JPRB,9.3291E+00_JPRB/)  
+KAO( :, 1,12,11) = (/&
+ & 3.8356E+00_JPRB,3.3697E+00_JPRB,2.9444E+00_JPRB,2.5088E+00_JPRB,2.0569E+00_JPRB,1.6203E+00_JPRB,&
+ & 1.1634E+00_JPRB,7.0598E-01_JPRB,3.6756E-01_JPRB,2.8729E-01_JPRB,1.0641E+01_JPRB/)  
+KAO( :, 2,12,11) = (/&
+ & 3.8609E+00_JPRB,3.3997E+00_JPRB,3.0019E+00_JPRB,2.5600E+00_JPRB,2.1300E+00_JPRB,1.6898E+00_JPRB,&
+ & 1.2364E+00_JPRB,7.8348E-01_JPRB,4.3743E-01_JPRB,3.9283E-01_JPRB,1.0771E+01_JPRB/)  
+KAO( :, 3,12,11) = (/&
+ & 3.8613E+00_JPRB,3.4230E+00_JPRB,3.0314E+00_JPRB,2.6152E+00_JPRB,2.1935E+00_JPRB,1.7589E+00_JPRB,&
+ & 1.3202E+00_JPRB,8.6394E-01_JPRB,5.3376E-01_JPRB,5.1970E-01_JPRB,1.0841E+01_JPRB/)  
+KAO( :, 4,12,11) = (/&
+ & 3.8625E+00_JPRB,3.4569E+00_JPRB,3.0618E+00_JPRB,2.6703E+00_JPRB,2.2548E+00_JPRB,1.8353E+00_JPRB,&
+ & 1.4152E+00_JPRB,9.4767E-01_JPRB,6.5928E-01_JPRB,6.6542E-01_JPRB,1.0973E+01_JPRB/)  
+KAO( :, 5,12,11) = (/&
+ & 3.8581E+00_JPRB,3.4796E+00_JPRB,3.1105E+00_JPRB,2.7293E+00_JPRB,2.3221E+00_JPRB,1.9216E+00_JPRB,&
+ & 1.5109E+00_JPRB,1.0379E+00_JPRB,8.1824E-01_JPRB,8.3851E-01_JPRB,1.1187E+01_JPRB/)  
+KAO( :, 1,13,11) = (/&
+ & 3.9871E+00_JPRB,3.5054E+00_JPRB,3.0792E+00_JPRB,2.6225E+00_JPRB,2.1590E+00_JPRB,1.6999E+00_JPRB,&
+ & 1.2116E+00_JPRB,7.2436E-01_JPRB,3.6726E-01_JPRB,2.5477E-01_JPRB,9.9516E+00_JPRB/)  
+KAO( :, 2,13,11) = (/&
+ & 3.9908E+00_JPRB,3.5178E+00_JPRB,3.1201E+00_JPRB,2.6682E+00_JPRB,2.2282E+00_JPRB,1.7642E+00_JPRB,&
+ & 1.2901E+00_JPRB,8.0058E-01_JPRB,4.3056E-01_JPRB,3.4969E-01_JPRB,1.0028E+01_JPRB/)  
+KAO( :, 3,13,11) = (/&
+ & 3.9925E+00_JPRB,3.5529E+00_JPRB,3.1500E+00_JPRB,2.7322E+00_JPRB,2.2922E+00_JPRB,1.8395E+00_JPRB,&
+ & 1.3733E+00_JPRB,8.8117E-01_JPRB,5.1140E-01_JPRB,4.6457E-01_JPRB,1.0124E+01_JPRB/)  
+KAO( :, 4,13,11) = (/&
+ & 3.9936E+00_JPRB,3.5963E+00_JPRB,3.1980E+00_JPRB,2.7942E+00_JPRB,2.3651E+00_JPRB,1.9195E+00_JPRB,&
+ & 1.4609E+00_JPRB,9.6392E-01_JPRB,6.1546E-01_JPRB,5.9986E-01_JPRB,1.0319E+01_JPRB/)  
+KAO( :, 5,13,11) = (/&
+ & 3.9766E+00_JPRB,3.6110E+00_JPRB,3.2440E+00_JPRB,2.8558E+00_JPRB,2.4407E+00_JPRB,2.0092E+00_JPRB,&
+ & 1.5546E+00_JPRB,1.0530E+00_JPRB,7.5480E-01_JPRB,7.6043E-01_JPRB,1.0517E+01_JPRB/)  
+KAO( :, 1, 1,12) = (/&
+ & 2.0024E+00_JPRB,1.8234E+00_JPRB,1.7233E+00_JPRB,1.6000E+00_JPRB,1.5390E+00_JPRB,1.6921E+00_JPRB,&
+ & 2.0059E+00_JPRB,2.3183E+00_JPRB,2.5294E+00_JPRB,2.5972E+00_JPRB,2.5881E+00_JPRB/)  
+KAO( :, 2, 1,12) = (/&
+ & 1.9590E+00_JPRB,1.7950E+00_JPRB,1.7523E+00_JPRB,1.6313E+00_JPRB,1.6912E+00_JPRB,2.0086E+00_JPRB,&
+ & 2.3854E+00_JPRB,2.7609E+00_JPRB,3.0136E+00_JPRB,3.0926E+00_JPRB,3.0692E+00_JPRB/)  
+KAO( :, 3, 1,12) = (/&
+ & 1.9218E+00_JPRB,1.7695E+00_JPRB,1.7573E+00_JPRB,1.7104E+00_JPRB,1.9221E+00_JPRB,2.3617E+00_JPRB,&
+ & 2.8084E+00_JPRB,3.2536E+00_JPRB,3.5528E+00_JPRB,3.6452E+00_JPRB,3.6033E+00_JPRB/)  
+KAO( :, 4, 1,12) = (/&
+ & 1.8869E+00_JPRB,1.7776E+00_JPRB,1.7584E+00_JPRB,1.8482E+00_JPRB,2.2062E+00_JPRB,2.7254E+00_JPRB,&
+ & 3.2420E+00_JPRB,3.7568E+00_JPRB,4.1037E+00_JPRB,4.2125E+00_JPRB,4.1721E+00_JPRB/)  
+KAO( :, 5, 1,12) = (/&
+ & 1.8556E+00_JPRB,1.7835E+00_JPRB,1.7826E+00_JPRB,2.0106E+00_JPRB,2.5078E+00_JPRB,3.0956E+00_JPRB,&
+ & 3.6815E+00_JPRB,4.2658E+00_JPRB,4.6607E+00_JPRB,4.7891E+00_JPRB,4.7658E+00_JPRB/)  
+KAO( :, 1, 2,12) = (/&
+ & 2.1298E+00_JPRB,1.9238E+00_JPRB,1.7993E+00_JPRB,1.6635E+00_JPRB,1.5382E+00_JPRB,1.6444E+00_JPRB,&
+ & 1.9357E+00_JPRB,2.2355E+00_JPRB,2.4380E+00_JPRB,2.5040E+00_JPRB,2.5099E+00_JPRB/)  
+KAO( :, 2, 2,12) = (/&
+ & 2.0858E+00_JPRB,1.8949E+00_JPRB,1.8227E+00_JPRB,1.6898E+00_JPRB,1.7064E+00_JPRB,1.9739E+00_JPRB,&
+ & 2.3396E+00_JPRB,2.7042E+00_JPRB,2.9505E+00_JPRB,3.0304E+00_JPRB,3.0347E+00_JPRB/)  
+KAO( :, 3, 2,12) = (/&
+ & 2.0506E+00_JPRB,1.8767E+00_JPRB,1.8261E+00_JPRB,1.7610E+00_JPRB,1.9334E+00_JPRB,2.3331E+00_JPRB,&
+ & 2.7675E+00_JPRB,3.2005E+00_JPRB,3.4937E+00_JPRB,3.5905E+00_JPRB,3.6006E+00_JPRB/)  
+KAO( :, 4, 2,12) = (/&
+ & 2.0203E+00_JPRB,1.8859E+00_JPRB,1.8248E+00_JPRB,1.8919E+00_JPRB,2.2034E+00_JPRB,2.7037E+00_JPRB,&
+ & 3.2087E+00_JPRB,3.7127E+00_JPRB,4.0556E+00_JPRB,4.1705E+00_JPRB,4.1872E+00_JPRB/)  
+KAO( :, 5, 2,12) = (/&
+ & 1.9908E+00_JPRB,1.8904E+00_JPRB,1.8512E+00_JPRB,2.0461E+00_JPRB,2.4857E+00_JPRB,3.0612E+00_JPRB,&
+ & 3.6347E+00_JPRB,4.2084E+00_JPRB,4.6000E+00_JPRB,4.7320E+00_JPRB,4.7545E+00_JPRB/)  
+KAO( :, 1, 3,12) = (/&
+ & 2.3152E+00_JPRB,2.0670E+00_JPRB,1.8762E+00_JPRB,1.7274E+00_JPRB,1.5513E+00_JPRB,1.5459E+00_JPRB,&
+ & 1.7613E+00_JPRB,2.0324E+00_JPRB,2.2184E+00_JPRB,2.2809E+00_JPRB,2.3001E+00_JPRB/)  
+KAO( :, 2, 3,12) = (/&
+ & 2.2611E+00_JPRB,2.0302E+00_JPRB,1.8953E+00_JPRB,1.7501E+00_JPRB,1.6877E+00_JPRB,1.8252E+00_JPRB,&
+ & 2.1469E+00_JPRB,2.4814E+00_JPRB,2.7105E+00_JPRB,2.7886E+00_JPRB,2.8127E+00_JPRB/)  
+KAO( :, 3, 3,12) = (/&
+ & 2.2196E+00_JPRB,2.0024E+00_JPRB,1.9041E+00_JPRB,1.8045E+00_JPRB,1.8785E+00_JPRB,2.1610E+00_JPRB,&
+ & 2.5580E+00_JPRB,2.9591E+00_JPRB,3.2348E+00_JPRB,3.3294E+00_JPRB,3.3602E+00_JPRB/)  
+KAO( :, 4, 3,12) = (/&
+ & 2.1813E+00_JPRB,2.0049E+00_JPRB,1.9086E+00_JPRB,1.9162E+00_JPRB,2.1012E+00_JPRB,2.5182E+00_JPRB,&
+ & 2.9831E+00_JPRB,3.4549E+00_JPRB,3.7770E+00_JPRB,3.8911E+00_JPRB,3.9291E+00_JPRB/)  
+KAO( :, 5, 3,12) = (/&
+ & 2.1479E+00_JPRB,2.0113E+00_JPRB,1.9331E+00_JPRB,2.0520E+00_JPRB,2.3502E+00_JPRB,2.8679E+00_JPRB,&
+ & 3.4008E+00_JPRB,3.9406E+00_JPRB,4.3094E+00_JPRB,4.4428E+00_JPRB,4.4869E+00_JPRB/)  
+KAO( :, 1, 4,12) = (/&
+ & 2.5457E+00_JPRB,2.2591E+00_JPRB,2.0008E+00_JPRB,1.7948E+00_JPRB,1.5715E+00_JPRB,1.4721E+00_JPRB,&
+ & 1.5451E+00_JPRB,1.7860E+00_JPRB,1.9513E+00_JPRB,2.0089E+00_JPRB,2.0285E+00_JPRB/)  
+KAO( :, 2, 4,12) = (/&
+ & 2.4902E+00_JPRB,2.2151E+00_JPRB,2.0050E+00_JPRB,1.8035E+00_JPRB,1.6846E+00_JPRB,1.6830E+00_JPRB,&
+ & 1.9079E+00_JPRB,2.2087E+00_JPRB,2.4143E+00_JPRB,2.4852E+00_JPRB,2.5099E+00_JPRB/)  
+KAO( :, 3, 4,12) = (/&
+ & 2.4431E+00_JPRB,2.1812E+00_JPRB,2.0033E+00_JPRB,1.8558E+00_JPRB,1.8346E+00_JPRB,1.9529E+00_JPRB,&
+ & 2.2983E+00_JPRB,2.6628E+00_JPRB,2.9108E+00_JPRB,2.9983E+00_JPRB,3.0280E+00_JPRB/)  
+KAO( :, 4, 4,12) = (/&
+ & 2.3979E+00_JPRB,2.1681E+00_JPRB,1.9996E+00_JPRB,1.9562E+00_JPRB,2.0099E+00_JPRB,2.2734E+00_JPRB,&
+ & 2.7005E+00_JPRB,3.1310E+00_JPRB,3.4248E+00_JPRB,3.5296E+00_JPRB,3.5651E+00_JPRB/)  
+KAO( :, 5, 4,12) = (/&
+ & 2.3549E+00_JPRB,2.1677E+00_JPRB,2.0250E+00_JPRB,2.0706E+00_JPRB,2.2012E+00_JPRB,2.6084E+00_JPRB,&
+ & 3.1023E+00_JPRB,3.5987E+00_JPRB,3.9377E+00_JPRB,4.0590E+00_JPRB,4.0984E+00_JPRB/)  
+KAO( :, 1, 5,12) = (/&
+ & 2.7985E+00_JPRB,2.4747E+00_JPRB,2.1629E+00_JPRB,1.9120E+00_JPRB,1.6257E+00_JPRB,1.4332E+00_JPRB,&
+ & 1.3851E+00_JPRB,1.5480E+00_JPRB,1.6917E+00_JPRB,1.7423E+00_JPRB,1.7595E+00_JPRB/)  
+KAO( :, 2, 5,12) = (/&
+ & 2.7492E+00_JPRB,2.4385E+00_JPRB,2.1709E+00_JPRB,1.9088E+00_JPRB,1.7063E+00_JPRB,1.6093E+00_JPRB,&
+ & 1.6827E+00_JPRB,1.9416E+00_JPRB,2.1228E+00_JPRB,2.1868E+00_JPRB,2.2077E+00_JPRB/)  
+KAO( :, 3, 5,12) = (/&
+ & 2.7030E+00_JPRB,2.4052E+00_JPRB,2.1654E+00_JPRB,1.9357E+00_JPRB,1.8221E+00_JPRB,1.8325E+00_JPRB,&
+ & 2.0441E+00_JPRB,2.3696E+00_JPRB,2.5914E+00_JPRB,2.6707E+00_JPRB,2.6969E+00_JPRB/)  
+KAO( :, 4, 5,12) = (/&
+ & 2.6567E+00_JPRB,2.3812E+00_JPRB,2.1576E+00_JPRB,2.0192E+00_JPRB,1.9790E+00_JPRB,2.0835E+00_JPRB,&
+ & 2.4268E+00_JPRB,2.8144E+00_JPRB,3.0796E+00_JPRB,3.1741E+00_JPRB,3.2046E+00_JPRB/)  
+KAO( :, 5, 5,12) = (/&
+ & 2.6110E+00_JPRB,2.3730E+00_JPRB,2.1635E+00_JPRB,2.1182E+00_JPRB,2.1485E+00_JPRB,2.3741E+00_JPRB,&
+ & 2.8181E+00_JPRB,3.2699E+00_JPRB,3.5786E+00_JPRB,3.6897E+00_JPRB,3.7249E+00_JPRB/)  
+KAO( :, 1, 6,12) = (/&
+ & 3.0669E+00_JPRB,2.7085E+00_JPRB,2.3540E+00_JPRB,2.0714E+00_JPRB,1.7429E+00_JPRB,1.4581E+00_JPRB,&
+ & 1.2708E+00_JPRB,1.2992E+00_JPRB,1.4199E+00_JPRB,1.4638E+00_JPRB,1.4769E+00_JPRB/)  
+KAO( :, 2, 6,12) = (/&
+ & 3.0273E+00_JPRB,2.6834E+00_JPRB,2.3740E+00_JPRB,2.0802E+00_JPRB,1.7965E+00_JPRB,1.5717E+00_JPRB,&
+ & 1.5052E+00_JPRB,1.6583E+00_JPRB,1.8132E+00_JPRB,1.8699E+00_JPRB,1.8859E+00_JPRB/)  
+KAO( :, 3, 6,12) = (/&
+ & 2.9774E+00_JPRB,2.6481E+00_JPRB,2.3757E+00_JPRB,2.0942E+00_JPRB,1.8671E+00_JPRB,1.7544E+00_JPRB,&
+ & 1.8026E+00_JPRB,2.0622E+00_JPRB,2.2566E+00_JPRB,2.3275E+00_JPRB,2.3474E+00_JPRB/)  
+KAO( :, 4, 6,12) = (/&
+ & 2.9289E+00_JPRB,2.6161E+00_JPRB,2.3748E+00_JPRB,2.1584E+00_JPRB,1.9838E+00_JPRB,1.9738E+00_JPRB,&
+ & 2.1469E+00_JPRB,2.4888E+00_JPRB,2.7236E+00_JPRB,2.8101E+00_JPRB,2.8355E+00_JPRB/)  
+KAO( :, 5, 6,12) = (/&
+ & 2.8845E+00_JPRB,2.6155E+00_JPRB,2.3754E+00_JPRB,2.2196E+00_JPRB,2.1301E+00_JPRB,2.2099E+00_JPRB,&
+ & 2.5314E+00_JPRB,2.9385E+00_JPRB,3.2168E+00_JPRB,3.3176E+00_JPRB,3.3483E+00_JPRB/)  
+KAO( :, 1, 7,12) = (/&
+ & 3.3664E+00_JPRB,2.9675E+00_JPRB,2.5762E+00_JPRB,2.2561E+00_JPRB,1.8881E+00_JPRB,1.5413E+00_JPRB,&
+ & 1.2170E+00_JPRB,1.0953E+00_JPRB,1.1799E+00_JPRB,1.2170E+00_JPRB,1.2273E+00_JPRB/)  
+KAO( :, 2, 7,12) = (/&
+ & 3.3233E+00_JPRB,2.9434E+00_JPRB,2.5928E+00_JPRB,2.2752E+00_JPRB,1.9335E+00_JPRB,1.6227E+00_JPRB,&
+ & 1.3832E+00_JPRB,1.3998E+00_JPRB,1.5310E+00_JPRB,1.5791E+00_JPRB,1.5922E+00_JPRB/)  
+KAO( :, 3, 7,12) = (/&
+ & 3.2746E+00_JPRB,2.9093E+00_JPRB,2.6019E+00_JPRB,2.2869E+00_JPRB,2.0053E+00_JPRB,1.7360E+00_JPRB,&
+ & 1.6231E+00_JPRB,1.7636E+00_JPRB,1.9299E+00_JPRB,1.9918E+00_JPRB,2.0082E+00_JPRB/)  
+KAO( :, 4, 7,12) = (/&
+ & 3.2312E+00_JPRB,2.8766E+00_JPRB,2.6067E+00_JPRB,2.3470E+00_JPRB,2.0847E+00_JPRB,1.8980E+00_JPRB,&
+ & 1.9031E+00_JPRB,2.1576E+00_JPRB,2.3620E+00_JPRB,2.4387E+00_JPRB,2.4578E+00_JPRB/)  
+KAO( :, 5, 7,12) = (/&
+ & 3.1925E+00_JPRB,2.8793E+00_JPRB,2.6061E+00_JPRB,2.4035E+00_JPRB,2.1834E+00_JPRB,2.1023E+00_JPRB,&
+ & 2.2418E+00_JPRB,2.5923E+00_JPRB,2.8385E+00_JPRB,2.9297E+00_JPRB,2.9542E+00_JPRB/)  
+KAO( :, 1, 8,12) = (/&
+ & 3.6796E+00_JPRB,3.2357E+00_JPRB,2.8155E+00_JPRB,2.4508E+00_JPRB,2.0518E+00_JPRB,1.6449E+00_JPRB,&
+ & 1.2564E+00_JPRB,9.4794E-01_JPRB,9.6423E-01_JPRB,9.9527E-01_JPRB,1.0031E+00_JPRB/)  
+KAO( :, 2, 8,12) = (/&
+ & 3.6371E+00_JPRB,3.2182E+00_JPRB,2.8214E+00_JPRB,2.4857E+00_JPRB,2.0950E+00_JPRB,1.7292E+00_JPRB,&
+ & 1.3545E+00_JPRB,1.1961E+00_JPRB,1.2815E+00_JPRB,1.3224E+00_JPRB,1.3335E+00_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART8',1,ZHOOK_HANDLE)
+END SUBROUTINE PART8
+
+
+SUBROUTINE PART9
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART9',0,ZHOOK_HANDLE)
+
+
+KAO( :, 3, 8,12) = (/&
+ & 3.5989E+00_JPRB,3.1965E+00_JPRB,2.8529E+00_JPRB,2.5009E+00_JPRB,2.1656E+00_JPRB,1.8143E+00_JPRB,&
+ & 1.5162E+00_JPRB,1.5048E+00_JPRB,1.6425E+00_JPRB,1.6953E+00_JPRB,1.7094E+00_JPRB/)  
+KAO( :, 4, 8,12) = (/&
+ & 3.5657E+00_JPRB,3.1726E+00_JPRB,2.8689E+00_JPRB,2.5490E+00_JPRB,2.2397E+00_JPRB,1.9179E+00_JPRB,&
+ & 1.7462E+00_JPRB,1.8651E+00_JPRB,2.0421E+00_JPRB,2.1078E+00_JPRB,2.1252E+00_JPRB/)  
+KAO( :, 5, 8,12) = (/&
+ & 3.5352E+00_JPRB,3.1791E+00_JPRB,2.8690E+00_JPRB,2.6021E+00_JPRB,2.3244E+00_JPRB,2.0668E+00_JPRB,&
+ & 2.0251E+00_JPRB,2.2682E+00_JPRB,2.4843E+00_JPRB,2.5643E+00_JPRB,2.5857E+00_JPRB/)  
+KAO( :, 1, 9,12) = (/&
+ & 4.0318E+00_JPRB,3.5333E+00_JPRB,3.0785E+00_JPRB,2.6542E+00_JPRB,2.2190E+00_JPRB,1.7557E+00_JPRB,&
+ & 1.3174E+00_JPRB,8.6677E-01_JPRB,7.7038E-01_JPRB,7.9546E-01_JPRB,1.7542E+00_JPRB/)  
+KAO( :, 2, 9,12) = (/&
+ & 4.0030E+00_JPRB,3.5307E+00_JPRB,3.0824E+00_JPRB,2.7001E+00_JPRB,2.2575E+00_JPRB,1.8461E+00_JPRB,&
+ & 1.4064E+00_JPRB,1.0445E+00_JPRB,1.0532E+00_JPRB,1.0871E+00_JPRB,1.8981E+00_JPRB/)  
+KAO( :, 3, 9,12) = (/&
+ & 3.9727E+00_JPRB,3.5227E+00_JPRB,3.1268E+00_JPRB,2.7209E+00_JPRB,2.3294E+00_JPRB,1.9265E+00_JPRB,&
+ & 1.5119E+00_JPRB,1.3023E+00_JPRB,1.3838E+00_JPRB,1.4291E+00_JPRB,2.0473E+00_JPRB/)  
+KAO( :, 4, 9,12) = (/&
+ & 3.9416E+00_JPRB,3.5045E+00_JPRB,3.1488E+00_JPRB,2.7628E+00_JPRB,2.4024E+00_JPRB,2.0175E+00_JPRB,&
+ & 1.6727E+00_JPRB,1.6129E+00_JPRB,1.7549E+00_JPRB,1.8115E+00_JPRB,2.2264E+00_JPRB/)  
+KAO( :, 5, 9,12) = (/&
+ & 3.9107E+00_JPRB,3.5025E+00_JPRB,3.1553E+00_JPRB,2.8210E+00_JPRB,2.4858E+00_JPRB,2.1278E+00_JPRB,&
+ & 1.8886E+00_JPRB,1.9733E+00_JPRB,2.1611E+00_JPRB,2.2311E+00_JPRB,2.4535E+00_JPRB/)  
+KAO( :, 1,10,12) = (/&
+ & 4.3955E+00_JPRB,3.8477E+00_JPRB,3.3521E+00_JPRB,2.8767E+00_JPRB,2.3926E+00_JPRB,1.8785E+00_JPRB,&
+ & 1.3866E+00_JPRB,8.6336E-01_JPRB,6.3346E-01_JPRB,6.4780E-01_JPRB,7.3111E+00_JPRB/)  
+KAO( :, 2,10,12) = (/&
+ & 4.3744E+00_JPRB,3.8521E+00_JPRB,3.3628E+00_JPRB,2.9299E+00_JPRB,2.4350E+00_JPRB,1.9605E+00_JPRB,&
+ & 1.4761E+00_JPRB,9.8354E-01_JPRB,8.7753E-01_JPRB,9.0596E-01_JPRB,7.5369E+00_JPRB/)  
+KAO( :, 3,10,12) = (/&
+ & 4.3454E+00_JPRB,3.8426E+00_JPRB,3.4089E+00_JPRB,2.9580E+00_JPRB,2.5003E+00_JPRB,2.0431E+00_JPRB,&
+ & 1.5702E+00_JPRB,1.1751E+00_JPRB,1.1717E+00_JPRB,1.2103E+00_JPRB,7.6962E+00_JPRB/)  
+KAO( :, 4,10,12) = (/&
+ & 4.3187E+00_JPRB,3.8382E+00_JPRB,3.4396E+00_JPRB,2.9970E+00_JPRB,2.5770E+00_JPRB,2.1340E+00_JPRB,&
+ & 1.7005E+00_JPRB,1.4326E+00_JPRB,1.5105E+00_JPRB,1.5607E+00_JPRB,7.8986E+00_JPRB/)  
+KAO( :, 5,10,12) = (/&
+ & 4.2903E+00_JPRB,3.8382E+00_JPRB,3.4516E+00_JPRB,3.0612E+00_JPRB,2.6632E+00_JPRB,2.2380E+00_JPRB,&
+ & 1.8630E+00_JPRB,1.7458E+00_JPRB,1.8899E+00_JPRB,1.9522E+00_JPRB,8.1725E+00_JPRB/)  
+KAO( :, 1,11,12) = (/&
+ & 4.7308E+00_JPRB,4.1459E+00_JPRB,3.6107E+00_JPRB,3.1115E+00_JPRB,2.5799E+00_JPRB,2.0280E+00_JPRB,&
+ & 1.4948E+00_JPRB,9.2025E-01_JPRB,6.1405E-01_JPRB,6.1696E-01_JPRB,1.2757E+01_JPRB/)  
+KAO( :, 2,11,12) = (/&
+ & 4.7091E+00_JPRB,4.1481E+00_JPRB,3.6443E+00_JPRB,3.1635E+00_JPRB,2.6293E+00_JPRB,2.1180E+00_JPRB,&
+ & 1.5850E+00_JPRB,1.0412E+00_JPRB,8.3722E-01_JPRB,8.6133E-01_JPRB,1.3027E+01_JPRB/)  
+KAO( :, 3,11,12) = (/&
+ & 4.6897E+00_JPRB,4.1435E+00_JPRB,3.6990E+00_JPRB,3.1970E+00_JPRB,2.7141E+00_JPRB,2.2094E+00_JPRB,&
+ & 1.6909E+00_JPRB,1.1958E+00_JPRB,1.1123E+00_JPRB,1.1498E+00_JPRB,1.3314E+01_JPRB/)  
+KAO( :, 4,11,12) = (/&
+ & 4.6692E+00_JPRB,4.1531E+00_JPRB,3.7297E+00_JPRB,3.2622E+00_JPRB,2.7974E+00_JPRB,2.3063E+00_JPRB,&
+ & 1.8183E+00_JPRB,1.4163E+00_JPRB,1.4330E+00_JPRB,1.4813E+00_JPRB,1.3489E+01_JPRB/)  
+KAO( :, 5,11,12) = (/&
+ & 4.6420E+00_JPRB,4.1769E+00_JPRB,3.7456E+00_JPRB,3.3296E+00_JPRB,2.8874E+00_JPRB,2.4151E+00_JPRB,&
+ & 1.9751E+00_JPRB,1.6959E+00_JPRB,1.7942E+00_JPRB,1.8551E+00_JPRB,1.3680E+01_JPRB/)  
+KAO( :, 1,12,12) = (/&
+ & 5.0416E+00_JPRB,4.4234E+00_JPRB,3.8522E+00_JPRB,3.3241E+00_JPRB,2.7470E+00_JPRB,2.1693E+00_JPRB,&
+ & 1.6007E+00_JPRB,9.8107E-01_JPRB,5.9628E-01_JPRB,5.7876E-01_JPRB,1.6383E+01_JPRB/)  
+KAO( :, 2,12,12) = (/&
+ & 5.0347E+00_JPRB,4.4335E+00_JPRB,3.9118E+00_JPRB,3.3765E+00_JPRB,2.8152E+00_JPRB,2.2721E+00_JPRB,&
+ & 1.6921E+00_JPRB,1.0981E+00_JPRB,7.9216E-01_JPRB,8.0484E-01_JPRB,1.6695E+01_JPRB/)  
+KAO( :, 3,12,12) = (/&
+ & 5.0354E+00_JPRB,4.4439E+00_JPRB,3.9725E+00_JPRB,3.4283E+00_JPRB,2.9170E+00_JPRB,2.3708E+00_JPRB,&
+ & 1.8115E+00_JPRB,1.2441E+00_JPRB,1.0402E+00_JPRB,1.0726E+00_JPRB,1.7028E+01_JPRB/)  
+KAO( :, 4,12,12) = (/&
+ & 5.0236E+00_JPRB,4.4684E+00_JPRB,4.0052E+00_JPRB,3.5139E+00_JPRB,3.0129E+00_JPRB,2.4842E+00_JPRB,&
+ & 1.9405E+00_JPRB,1.4225E+00_JPRB,1.3339E+00_JPRB,1.3805E+00_JPRB,1.7215E+01_JPRB/)  
+KAO( :, 5,12,12) = (/&
+ & 5.0049E+00_JPRB,4.5094E+00_JPRB,4.0368E+00_JPRB,3.5937E+00_JPRB,3.1097E+00_JPRB,2.6019E+00_JPRB,&
+ & 2.0929E+00_JPRB,1.6533E+00_JPRB,1.6680E+00_JPRB,1.7268E+00_JPRB,1.7382E+01_JPRB/)  
+KAO( :, 1,13,12) = (/&
+ & 5.3304E+00_JPRB,4.6811E+00_JPRB,4.0819E+00_JPRB,3.5134E+00_JPRB,2.8970E+00_JPRB,2.2995E+00_JPRB,&
+ & 1.6906E+00_JPRB,1.0389E+00_JPRB,5.8422E-01_JPRB,5.3149E-01_JPRB,1.6186E+01_JPRB/)  
+KAO( :, 2,13,12) = (/&
+ & 5.3554E+00_JPRB,4.7152E+00_JPRB,4.1740E+00_JPRB,3.5813E+00_JPRB,2.9917E+00_JPRB,2.4106E+00_JPRB,&
+ & 1.7931E+00_JPRB,1.1573E+00_JPRB,7.4488E-01_JPRB,7.3540E-01_JPRB,1.6553E+01_JPRB/)  
+KAO( :, 3,13,12) = (/&
+ & 5.3653E+00_JPRB,4.7361E+00_JPRB,4.2367E+00_JPRB,3.6559E+00_JPRB,3.0996E+00_JPRB,2.5206E+00_JPRB,&
+ & 1.9222E+00_JPRB,1.2910E+00_JPRB,9.5651E-01_JPRB,9.7652E-01_JPRB,1.6790E+01_JPRB/)  
+KAO( :, 4,13,12) = (/&
+ & 5.3597E+00_JPRB,4.7768E+00_JPRB,4.2708E+00_JPRB,3.7474E+00_JPRB,3.2027E+00_JPRB,2.6474E+00_JPRB,&
+ & 2.0605E+00_JPRB,1.4452E+00_JPRB,1.2190E+00_JPRB,1.2583E+00_JPRB,1.6940E+01_JPRB/)  
+KAO( :, 5,13,12) = (/&
+ & 5.3540E+00_JPRB,4.8243E+00_JPRB,4.3295E+00_JPRB,3.8360E+00_JPRB,3.3105E+00_JPRB,2.7756E+00_JPRB,&
+ & 2.2095E+00_JPRB,1.6297E+00_JPRB,1.5189E+00_JPRB,1.5724E+00_JPRB,1.7194E+01_JPRB/)  
+KAO( :, 1, 1,13) = (/&
+ & 2.4839E+00_JPRB,2.2228E+00_JPRB,1.9877E+00_JPRB,1.9817E+00_JPRB,2.1295E+00_JPRB,2.6064E+00_JPRB,&
+ & 3.1026E+00_JPRB,3.6009E+00_JPRB,3.9384E+00_JPRB,4.0531E+00_JPRB,4.0630E+00_JPRB/)  
+KAO( :, 2, 1,13) = (/&
+ & 2.4167E+00_JPRB,2.1788E+00_JPRB,2.0545E+00_JPRB,2.1075E+00_JPRB,2.4600E+00_JPRB,3.0319E+00_JPRB,&
+ & 3.6075E+00_JPRB,4.1850E+00_JPRB,4.5773E+00_JPRB,4.7124E+00_JPRB,4.7383E+00_JPRB/)  
+KAO( :, 3, 1,13) = (/&
+ & 2.3519E+00_JPRB,2.1341E+00_JPRB,2.1343E+00_JPRB,2.2717E+00_JPRB,2.8227E+00_JPRB,3.4785E+00_JPRB,&
+ & 4.1394E+00_JPRB,4.8027E+00_JPRB,5.2528E+00_JPRB,5.4080E+00_JPRB,5.4468E+00_JPRB/)  
+KAO( :, 4, 1,13) = (/&
+ & 2.2895E+00_JPRB,2.0936E+00_JPRB,2.2122E+00_JPRB,2.4949E+00_JPRB,3.2196E+00_JPRB,3.9764E+00_JPRB,&
+ & 4.7367E+00_JPRB,5.4979E+00_JPRB,6.0151E+00_JPRB,6.1897E+00_JPRB,6.2191E+00_JPRB/)  
+KAO( :, 5, 1,13) = (/&
+ & 2.2294E+00_JPRB,2.0855E+00_JPRB,2.2831E+00_JPRB,2.7897E+00_JPRB,3.6518E+00_JPRB,4.5202E+00_JPRB,&
+ & 5.3909E+00_JPRB,6.2623E+00_JPRB,6.8525E+00_JPRB,7.0478E+00_JPRB,7.0466E+00_JPRB/)  
+KAO( :, 1, 2,13) = (/&
+ & 2.6401E+00_JPRB,2.3655E+00_JPRB,2.1111E+00_JPRB,2.0137E+00_JPRB,2.0825E+00_JPRB,2.5044E+00_JPRB,&
+ & 2.9828E+00_JPRB,3.4624E+00_JPRB,3.7882E+00_JPRB,3.8997E+00_JPRB,3.9250E+00_JPRB/)  
+KAO( :, 2, 2,13) = (/&
+ & 2.5670E+00_JPRB,2.3197E+00_JPRB,2.1659E+00_JPRB,2.1086E+00_JPRB,2.3636E+00_JPRB,2.9098E+00_JPRB,&
+ & 3.4676E+00_JPRB,4.0262E+00_JPRB,4.4056E+00_JPRB,4.5331E+00_JPRB,4.5625E+00_JPRB/)  
+KAO( :, 3, 2,13) = (/&
+ & 2.4971E+00_JPRB,2.2719E+00_JPRB,2.2158E+00_JPRB,2.2307E+00_JPRB,2.7197E+00_JPRB,3.3654E+00_JPRB,&
+ & 4.0138E+00_JPRB,4.6621E+00_JPRB,5.1023E+00_JPRB,5.2462E+00_JPRB,5.2684E+00_JPRB/)  
+KAO( :, 4, 2,13) = (/&
+ & 2.4323E+00_JPRB,2.2338E+00_JPRB,2.2635E+00_JPRB,2.4358E+00_JPRB,3.1246E+00_JPRB,3.8712E+00_JPRB,&
+ & 4.6205E+00_JPRB,5.3694E+00_JPRB,5.8768E+00_JPRB,6.0401E+00_JPRB,6.0554E+00_JPRB/)  
+KAO( :, 5, 2,13) = (/&
+ & 2.3760E+00_JPRB,2.2281E+00_JPRB,2.3133E+00_JPRB,2.7376E+00_JPRB,3.5897E+00_JPRB,4.4519E+00_JPRB,&
+ & 5.3157E+00_JPRB,6.1803E+00_JPRB,6.7635E+00_JPRB,6.9497E+00_JPRB,6.9610E+00_JPRB/)  
+KAO( :, 1, 3,13) = (/&
+ & 2.8086E+00_JPRB,2.5114E+00_JPRB,2.2208E+00_JPRB,2.0677E+00_JPRB,2.0427E+00_JPRB,2.3373E+00_JPRB,&
+ & 2.7874E+00_JPRB,3.2384E+00_JPRB,3.5440E+00_JPRB,3.6445E+00_JPRB,3.6749E+00_JPRB/)  
+KAO( :, 2, 3,13) = (/&
+ & 2.7404E+00_JPRB,2.4643E+00_JPRB,2.2716E+00_JPRB,2.1464E+00_JPRB,2.2628E+00_JPRB,2.7529E+00_JPRB,&
+ & 3.2849E+00_JPRB,3.8172E+00_JPRB,4.1782E+00_JPRB,4.2940E+00_JPRB,4.3270E+00_JPRB/)  
+KAO( :, 3, 3,13) = (/&
+ & 2.6764E+00_JPRB,2.4178E+00_JPRB,2.3087E+00_JPRB,2.2456E+00_JPRB,2.5986E+00_JPRB,3.2215E+00_JPRB,&
+ & 3.8463E+00_JPRB,4.4711E+00_JPRB,4.8938E+00_JPRB,5.0274E+00_JPRB,5.0645E+00_JPRB/)  
+KAO( :, 4, 3,13) = (/&
+ & 2.6211E+00_JPRB,2.3803E+00_JPRB,2.3402E+00_JPRB,2.4064E+00_JPRB,3.0169E+00_JPRB,3.7447E+00_JPRB,&
+ & 4.4738E+00_JPRB,5.2031E+00_JPRB,5.6949E+00_JPRB,5.8469E+00_JPRB,5.8866E+00_JPRB/)  
+KAO( :, 5, 3,13) = (/&
+ & 2.5706E+00_JPRB,2.3763E+00_JPRB,2.3730E+00_JPRB,2.6809E+00_JPRB,3.4926E+00_JPRB,4.3391E+00_JPRB,&
+ & 5.1873E+00_JPRB,6.0352E+00_JPRB,6.6054E+00_JPRB,6.7799E+00_JPRB,6.8242E+00_JPRB/)  
+KAO( :, 1, 4,13) = (/&
+ & 2.9705E+00_JPRB,2.6437E+00_JPRB,2.3228E+00_JPRB,2.1502E+00_JPRB,2.0620E+00_JPRB,2.1581E+00_JPRB,&
+ & 2.5548E+00_JPRB,2.9693E+00_JPRB,3.2504E+00_JPRB,3.3452E+00_JPRB,3.3799E+00_JPRB/)  
+KAO( :, 2, 4,13) = (/&
+ & 2.9060E+00_JPRB,2.6045E+00_JPRB,2.3805E+00_JPRB,2.2339E+00_JPRB,2.2319E+00_JPRB,2.5887E+00_JPRB,&
+ & 3.0909E+00_JPRB,3.5931E+00_JPRB,3.9330E+00_JPRB,4.0437E+00_JPRB,4.0869E+00_JPRB/)  
+KAO( :, 3, 4,13) = (/&
+ & 2.8503E+00_JPRB,2.5669E+00_JPRB,2.4183E+00_JPRB,2.3219E+00_JPRB,2.5237E+00_JPRB,3.0875E+00_JPRB,&
+ & 3.6882E+00_JPRB,4.2895E+00_JPRB,4.6950E+00_JPRB,4.8250E+00_JPRB,4.8772E+00_JPRB/)  
+KAO( :, 4, 4,13) = (/&
+ & 2.8040E+00_JPRB,2.5355E+00_JPRB,2.4511E+00_JPRB,2.4730E+00_JPRB,2.9343E+00_JPRB,3.6460E+00_JPRB,&
+ & 4.3587E+00_JPRB,5.0710E+00_JPRB,5.5512E+00_JPRB,5.6975E+00_JPRB,5.7609E+00_JPRB/)  
+KAO( :, 5, 4,13) = (/&
+ & 2.7640E+00_JPRB,2.5346E+00_JPRB,2.4816E+00_JPRB,2.7138E+00_JPRB,3.4317E+00_JPRB,4.2678E+00_JPRB,&
+ & 5.1048E+00_JPRB,5.9414E+00_JPRB,6.5038E+00_JPRB,6.6733E+00_JPRB,6.7499E+00_JPRB/)  
+KAO( :, 1, 5,13) = (/&
+ & 3.2157E+00_JPRB,2.8490E+00_JPRB,2.4890E+00_JPRB,2.2607E+00_JPRB,2.1003E+00_JPRB,2.0316E+00_JPRB,&
+ & 2.2821E+00_JPRB,2.6531E+00_JPRB,2.9050E+00_JPRB,2.9914E+00_JPRB,3.0227E+00_JPRB/)  
+KAO( :, 2, 5,13) = (/&
+ & 3.1462E+00_JPRB,2.8052E+00_JPRB,2.5301E+00_JPRB,2.3469E+00_JPRB,2.2490E+00_JPRB,2.3958E+00_JPRB,&
+ & 2.8314E+00_JPRB,3.2925E+00_JPRB,3.6050E+00_JPRB,3.7092E+00_JPRB,3.7515E+00_JPRB/)  
+KAO( :, 3, 5,13) = (/&
+ & 3.0906E+00_JPRB,2.7658E+00_JPRB,2.5622E+00_JPRB,2.4318E+00_JPRB,2.4969E+00_JPRB,2.8886E+00_JPRB,&
+ & 3.4523E+00_JPRB,4.0155E+00_JPRB,4.3974E+00_JPRB,4.5211E+00_JPRB,4.5746E+00_JPRB/)  
+KAO( :, 4, 5,13) = (/&
+ & 3.0486E+00_JPRB,2.7373E+00_JPRB,2.5958E+00_JPRB,2.5683E+00_JPRB,2.8557E+00_JPRB,3.4815E+00_JPRB,&
+ & 4.1633E+00_JPRB,4.8446E+00_JPRB,5.3051E+00_JPRB,5.4504E+00_JPRB,5.5199E+00_JPRB/)  
+KAO( :, 5, 5,13) = (/&
+ & 3.0130E+00_JPRB,2.7440E+00_JPRB,2.6274E+00_JPRB,2.8078E+00_JPRB,3.3228E+00_JPRB,4.1277E+00_JPRB,&
+ & 4.9382E+00_JPRB,5.7481E+00_JPRB,6.2955E+00_JPRB,6.4701E+00_JPRB,6.5508E+00_JPRB/)  
+KAO( :, 1, 6,13) = (/&
+ & 3.5873E+00_JPRB,3.1674E+00_JPRB,2.7646E+00_JPRB,2.4502E+00_JPRB,2.1689E+00_JPRB,1.9718E+00_JPRB,&
+ & 2.0147E+00_JPRB,2.3234E+00_JPRB,2.5447E+00_JPRB,2.6195E+00_JPRB,2.6494E+00_JPRB/)  
+KAO( :, 2, 6,13) = (/&
+ & 3.5157E+00_JPRB,3.1229E+00_JPRB,2.7666E+00_JPRB,2.5046E+00_JPRB,2.2807E+00_JPRB,2.2712E+00_JPRB,&
+ & 2.5407E+00_JPRB,2.9561E+00_JPRB,3.2371E+00_JPRB,3.3302E+00_JPRB,3.3702E+00_JPRB/)  
+KAO( :, 3, 6,13) = (/&
+ & 3.4666E+00_JPRB,3.0873E+00_JPRB,2.7933E+00_JPRB,2.5658E+00_JPRB,2.5099E+00_JPRB,2.6904E+00_JPRB,&
+ & 3.1624E+00_JPRB,3.6822E+00_JPRB,4.0323E+00_JPRB,4.1466E+00_JPRB,4.1994E+00_JPRB/)  
+KAO( :, 4, 6,13) = (/&
+ & 3.4223E+00_JPRB,3.0572E+00_JPRB,2.8088E+00_JPRB,2.6700E+00_JPRB,2.8225E+00_JPRB,3.2304E+00_JPRB,&
+ & 3.8614E+00_JPRB,4.4961E+00_JPRB,4.9248E+00_JPRB,5.0662E+00_JPRB,5.1277E+00_JPRB/)  
+KAO( :, 5, 6,13) = (/&
+ & 3.3760E+00_JPRB,3.0424E+00_JPRB,2.8322E+00_JPRB,2.8911E+00_JPRB,3.2026E+00_JPRB,3.8541E+00_JPRB,&
+ & 4.6128E+00_JPRB,5.3710E+00_JPRB,5.8848E+00_JPRB,6.0557E+00_JPRB,6.1288E+00_JPRB/)  
+KAO( :, 1, 7,13) = (/&
+ & 4.0318E+00_JPRB,3.5414E+00_JPRB,3.1020E+00_JPRB,2.7107E+00_JPRB,2.3308E+00_JPRB,1.9686E+00_JPRB,&
+ & 1.8437E+00_JPRB,2.0053E+00_JPRB,2.1966E+00_JPRB,2.2625E+00_JPRB,2.2876E+00_JPRB/)  
+KAO( :, 2, 7,13) = (/&
+ & 3.9753E+00_JPRB,3.5219E+00_JPRB,3.0843E+00_JPRB,2.7586E+00_JPRB,2.3913E+00_JPRB,2.2135E+00_JPRB,&
+ & 2.2792E+00_JPRB,2.6148E+00_JPRB,2.8647E+00_JPRB,2.9486E+00_JPRB,2.9838E+00_JPRB/)  
+KAO( :, 3, 7,13) = (/&
+ & 3.9273E+00_JPRB,3.4958E+00_JPRB,3.1284E+00_JPRB,2.7893E+00_JPRB,2.5460E+00_JPRB,2.5637E+00_JPRB,&
+ & 2.8433E+00_JPRB,3.3088E+00_JPRB,3.6254E+00_JPRB,3.7327E+00_JPRB,3.7756E+00_JPRB/)  
+KAO( :, 4, 7,13) = (/&
+ & 3.8768E+00_JPRB,3.4612E+00_JPRB,3.1354E+00_JPRB,2.8419E+00_JPRB,2.8178E+00_JPRB,3.0023E+00_JPRB,&
+ & 3.5065E+00_JPRB,4.0831E+00_JPRB,4.4749E+00_JPRB,4.6081E+00_JPRB,4.6607E+00_JPRB/)  
+KAO( :, 5, 7,13) = (/&
+ & 3.8207E+00_JPRB,3.4295E+00_JPRB,3.1455E+00_JPRB,3.0110E+00_JPRB,3.1435E+00_JPRB,3.5518E+00_JPRB,&
+ & 4.2303E+00_JPRB,4.9268E+00_JPRB,5.4004E+00_JPRB,5.5634E+00_JPRB,5.6245E+00_JPRB/)  
+KAO( :, 1, 8,13) = (/&
+ & 4.5607E+00_JPRB,3.9914E+00_JPRB,3.4954E+00_JPRB,3.0029E+00_JPRB,2.5709E+00_JPRB,2.0712E+00_JPRB,&
+ & 1.7381E+00_JPRB,1.7156E+00_JPRB,1.8751E+00_JPRB,1.9316E+00_JPRB,1.9534E+00_JPRB/)  
+KAO( :, 2, 8,13) = (/&
+ & 4.5049E+00_JPRB,3.9749E+00_JPRB,3.4687E+00_JPRB,3.0674E+00_JPRB,2.6040E+00_JPRB,2.2247E+00_JPRB,&
+ & 2.0925E+00_JPRB,2.2663E+00_JPRB,2.4833E+00_JPRB,2.5592E+00_JPRB,2.5867E+00_JPRB/)  
+KAO( :, 3, 8,13) = (/&
+ & 4.4464E+00_JPRB,3.9470E+00_JPRB,3.5041E+00_JPRB,3.0976E+00_JPRB,2.6943E+00_JPRB,2.4990E+00_JPRB,&
+ & 2.5535E+00_JPRB,2.9086E+00_JPRB,3.1877E+00_JPRB,3.2861E+00_JPRB,3.3201E+00_JPRB/)  
+KAO( :, 4, 8,13) = (/&
+ & 4.3818E+00_JPRB,3.9082E+00_JPRB,3.5223E+00_JPRB,3.1240E+00_JPRB,2.8867E+00_JPRB,2.8624E+00_JPRB,&
+ & 3.1305E+00_JPRB,3.6344E+00_JPRB,3.9841E+00_JPRB,4.1071E+00_JPRB,4.1503E+00_JPRB/)  
+KAO( :, 5, 8,13) = (/&
+ & 4.3157E+00_JPRB,3.8635E+00_JPRB,3.5342E+00_JPRB,3.2389E+00_JPRB,3.1422E+00_JPRB,3.3087E+00_JPRB,&
+ & 3.8133E+00_JPRB,4.4423E+00_JPRB,4.8694E+00_JPRB,5.0203E+00_JPRB,5.0730E+00_JPRB/)  
+KAO( :, 1, 9,13) = (/&
+ & 5.1388E+00_JPRB,4.4967E+00_JPRB,3.9252E+00_JPRB,3.3415E+00_JPRB,2.8260E+00_JPRB,2.2549E+00_JPRB,&
+ & 1.7301E+00_JPRB,1.4899E+00_JPRB,1.5781E+00_JPRB,1.6272E+00_JPRB,2.1902E+00_JPRB/)  
+KAO( :, 2, 9,13) = (/&
+ & 5.0816E+00_JPRB,4.4676E+00_JPRB,3.8997E+00_JPRB,3.4081E+00_JPRB,2.8754E+00_JPRB,2.3488E+00_JPRB,&
+ & 1.9883E+00_JPRB,1.9458E+00_JPRB,2.1210E+00_JPRB,2.1876E+00_JPRB,2.4675E+00_JPRB/)  
+KAO( :, 3, 9,13) = (/&
+ & 5.0129E+00_JPRB,4.4339E+00_JPRB,3.9077E+00_JPRB,3.4536E+00_JPRB,2.9357E+00_JPRB,2.5363E+00_JPRB,&
+ & 2.3438E+00_JPRB,2.5133E+00_JPRB,2.7551E+00_JPRB,2.8417E+00_JPRB,2.9456E+00_JPRB/)  
+KAO( :, 4, 9,13) = (/&
+ & 4.9367E+00_JPRB,4.3927E+00_JPRB,3.9413E+00_JPRB,3.4799E+00_JPRB,3.0724E+00_JPRB,2.8062E+00_JPRB,&
+ & 2.8193E+00_JPRB,3.1848E+00_JPRB,3.4916E+00_JPRB,3.6009E+00_JPRB,3.6428E+00_JPRB/)  
+KAO( :, 5, 9,13) = (/&
+ & 4.8646E+00_JPRB,4.3466E+00_JPRB,3.9578E+00_JPRB,3.5604E+00_JPRB,3.2602E+00_JPRB,3.1715E+00_JPRB,&
+ & 3.4132E+00_JPRB,3.9460E+00_JPRB,4.3263E+00_JPRB,4.4628E+00_JPRB,4.5130E+00_JPRB/)  
+KAO( :, 1,10,13) = (/&
+ & 5.7351E+00_JPRB,5.0184E+00_JPRB,4.3590E+00_JPRB,3.7061E+00_JPRB,3.1107E+00_JPRB,2.4665E+00_JPRB,&
+ & 1.8265E+00_JPRB,1.3589E+00_JPRB,1.3281E+00_JPRB,1.3706E+00_JPRB,9.6850E+00_JPRB/)  
+KAO( :, 2,10,13) = (/&
+ & 5.6702E+00_JPRB,4.9713E+00_JPRB,4.3505E+00_JPRB,3.7771E+00_JPRB,3.1762E+00_JPRB,2.5499E+00_JPRB,&
+ & 2.0068E+00_JPRB,1.7165E+00_JPRB,1.8132E+00_JPRB,1.8713E+00_JPRB,1.0044E+01_JPRB/)  
+KAO( :, 3,10,13) = (/&
+ & 5.6012E+00_JPRB,4.9439E+00_JPRB,4.3471E+00_JPRB,3.8363E+00_JPRB,3.2324E+00_JPRB,2.7093E+00_JPRB,&
+ & 2.2713E+00_JPRB,2.1992E+00_JPRB,2.3944E+00_JPRB,2.4708E+00_JPRB,1.0371E+01_JPRB/)  
+KAO( :, 4,10,13) = (/&
+ & 5.5289E+00_JPRB,4.9007E+00_JPRB,4.3908E+00_JPRB,3.8627E+00_JPRB,3.3600E+00_JPRB,2.8996E+00_JPRB,&
+ & 2.6404E+00_JPRB,2.8075E+00_JPRB,3.0779E+00_JPRB,3.1762E+00_JPRB,1.0595E+01_JPRB/)  
+KAO( :, 5,10,13) = (/&
+ & 5.4567E+00_JPRB,4.8683E+00_JPRB,4.4123E+00_JPRB,3.9290E+00_JPRB,3.4997E+00_JPRB,3.1758E+00_JPRB,&
+ & 3.1346E+00_JPRB,3.5190E+00_JPRB,3.8593E+00_JPRB,3.9826E+00_JPRB,1.0862E+01_JPRB/)  
+KAO( :, 1,11,13) = (/&
+ & 6.3333E+00_JPRB,5.5418E+00_JPRB,4.8105E+00_JPRB,4.1265E+00_JPRB,3.4538E+00_JPRB,2.7288E+00_JPRB,&
+ & 2.0255E+00_JPRB,1.4130E+00_JPRB,1.2863E+00_JPRB,1.3280E+00_JPRB,1.7958E+01_JPRB/)  
+KAO( :, 2,11,13) = (/&
+ & 6.2689E+00_JPRB,5.5023E+00_JPRB,4.8148E+00_JPRB,4.2028E+00_JPRB,3.5226E+00_JPRB,2.8349E+00_JPRB,&
+ & 2.1999E+00_JPRB,1.7269E+00_JPRB,1.7697E+00_JPRB,1.8270E+00_JPRB,1.8277E+01_JPRB/)  
+KAO( :, 3,11,13) = (/&
+ & 6.2039E+00_JPRB,5.4744E+00_JPRB,4.8374E+00_JPRB,4.2598E+00_JPRB,3.5999E+00_JPRB,3.0009E+00_JPRB,&
+ & 2.4146E+00_JPRB,2.1815E+00_JPRB,2.3423E+00_JPRB,2.4181E+00_JPRB,1.8696E+01_JPRB/)  
+KAO( :, 4,11,13) = (/&
+ & 6.1388E+00_JPRB,5.4345E+00_JPRB,4.8963E+00_JPRB,4.2927E+00_JPRB,3.7367E+00_JPRB,3.1778E+00_JPRB,&
+ & 2.7380E+00_JPRB,2.7546E+00_JPRB,3.0088E+00_JPRB,3.1059E+00_JPRB,1.9174E+01_JPRB/)  
+KAO( :, 5,11,13) = (/&
+ & 6.0780E+00_JPRB,5.4134E+00_JPRB,4.9226E+00_JPRB,4.3897E+00_JPRB,3.8870E+00_JPRB,3.4157E+00_JPRB,&
+ & 3.1673E+00_JPRB,3.4320E+00_JPRB,3.7647E+00_JPRB,3.8872E+00_JPRB,1.9497E+01_JPRB/)  
+KAO( :, 1,12,13) = (/&
+ & 6.9733E+00_JPRB,6.1019E+00_JPRB,5.2948E+00_JPRB,4.5762E+00_JPRB,3.8194E+00_JPRB,3.0108E+00_JPRB,&
+ & 2.2358E+00_JPRB,1.4812E+00_JPRB,1.2391E+00_JPRB,1.2773E+00_JPRB,2.4501E+01_JPRB/)  
+KAO( :, 2,12,13) = (/&
+ & 6.9181E+00_JPRB,6.0812E+00_JPRB,5.3188E+00_JPRB,4.6589E+00_JPRB,3.8924E+00_JPRB,3.1398E+00_JPRB,&
+ & 2.4112E+00_JPRB,1.7577E+00_JPRB,1.7083E+00_JPRB,1.7645E+00_JPRB,2.4773E+01_JPRB/)  
+KAO( :, 3,12,13) = (/&
+ & 6.8566E+00_JPRB,6.0530E+00_JPRB,5.3874E+00_JPRB,4.7146E+00_JPRB,3.9882E+00_JPRB,3.3020E+00_JPRB,&
+ & 2.6071E+00_JPRB,2.1662E+00_JPRB,2.2758E+00_JPRB,2.3503E+00_JPRB,2.5275E+01_JPRB/)  
+KAO( :, 4,12,13) = (/&
+ & 6.7979E+00_JPRB,6.0149E+00_JPRB,5.4468E+00_JPRB,4.7610E+00_JPRB,4.1335E+00_JPRB,3.4795E+00_JPRB,&
+ & 2.8840E+00_JPRB,2.7114E+00_JPRB,2.9349E+00_JPRB,3.0298E+00_JPRB,2.5870E+01_JPRB/)  
+KAO( :, 5,12,13) = (/&
+ & 6.7411E+00_JPRB,6.0058E+00_JPRB,5.4709E+00_JPRB,4.8727E+00_JPRB,4.2890E+00_JPRB,3.6876E+00_JPRB,&
+ & 3.2559E+00_JPRB,3.3514E+00_JPRB,3.6668E+00_JPRB,3.7859E+00_JPRB,2.6254E+01_JPRB/)  
+KAO( :, 1,13,13) = (/&
+ & 7.6256E+00_JPRB,6.6753E+00_JPRB,5.7900E+00_JPRB,5.0347E+00_JPRB,4.1913E+00_JPRB,3.3018E+00_JPRB,&
+ & 2.4527E+00_JPRB,1.5669E+00_JPRB,1.1934E+00_JPRB,1.2215E+00_JPRB,2.5519E+01_JPRB/)  
+KAO( :, 2,13,13) = (/&
+ & 7.5682E+00_JPRB,6.6598E+00_JPRB,5.8333E+00_JPRB,5.1240E+00_JPRB,4.2715E+00_JPRB,3.4570E+00_JPRB,&
+ & 2.6249E+00_JPRB,1.8136E+00_JPRB,1.6447E+00_JPRB,1.6979E+00_JPRB,2.5832E+01_JPRB/)  
+KAO( :, 3,13,13) = (/&
+ & 7.5147E+00_JPRB,6.6337E+00_JPRB,5.9406E+00_JPRB,5.1772E+00_JPRB,4.3985E+00_JPRB,3.6181E+00_JPRB,&
+ & 2.8202E+00_JPRB,2.1840E+00_JPRB,2.2018E+00_JPRB,2.2745E+00_JPRB,2.6512E+01_JPRB/)  
+KAO( :, 4,13,13) = (/&
+ & 7.4664E+00_JPRB,6.6067E+00_JPRB,6.0077E+00_JPRB,5.2519E+00_JPRB,4.5469E+00_JPRB,3.7922E+00_JPRB,&
+ & 3.0751E+00_JPRB,2.6716E+00_JPRB,2.8374E+00_JPRB,2.9314E+00_JPRB,2.7153E+01_JPRB/)  
+KAO( :, 5,13,13) = (/&
+ & 7.4088E+00_JPRB,6.6207E+00_JPRB,6.0282E+00_JPRB,5.3739E+00_JPRB,4.7039E+00_JPRB,4.0017E+00_JPRB,&
+ & 3.3998E+00_JPRB,3.2768E+00_JPRB,3.5575E+00_JPRB,3.6746E+00_JPRB,2.7529E+01_JPRB/)  
+KAO( :, 1, 1,14) = (/&
+ & 2.8887E+00_JPRB,2.5952E+00_JPRB,2.4344E+00_JPRB,2.7140E+00_JPRB,3.5782E+00_JPRB,4.4490E+00_JPRB,&
+ & 5.3193E+00_JPRB,6.1891E+00_JPRB,6.7728E+00_JPRB,6.9450E+00_JPRB,6.8281E+00_JPRB/)  
+KAO( :, 2, 1,14) = (/&
+ & 2.8442E+00_JPRB,2.6117E+00_JPRB,2.5016E+00_JPRB,3.2440E+00_JPRB,4.2873E+00_JPRB,5.3316E+00_JPRB,&
+ & 6.3758E+00_JPRB,7.4184E+00_JPRB,8.1189E+00_JPRB,8.3231E+00_JPRB,8.1685E+00_JPRB/)  
+KAO( :, 3, 1,14) = (/&
+ & 2.8000E+00_JPRB,2.6157E+00_JPRB,2.7106E+00_JPRB,3.8144E+00_JPRB,5.0435E+00_JPRB,6.2737E+00_JPRB,&
+ & 7.5035E+00_JPRB,8.7311E+00_JPRB,9.5570E+00_JPRB,9.7945E+00_JPRB,9.6021E+00_JPRB/)  
+KAO( :, 4, 1,14) = (/&
+ & 2.7537E+00_JPRB,2.6124E+00_JPRB,3.0214E+00_JPRB,4.4121E+00_JPRB,5.8371E+00_JPRB,7.2628E+00_JPRB,&
+ & 8.6899E+00_JPRB,1.0113E+01_JPRB,1.1069E+01_JPRB,1.1344E+01_JPRB,1.1112E+01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART9',1,ZHOOK_HANDLE)
+END SUBROUTINE PART9
+
+
+SUBROUTINE PART10
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART10',0,ZHOOK_HANDLE)
+
+
+KAO( :, 5, 1,14) = (/&
+ & 2.7061E+00_JPRB,2.6132E+00_JPRB,3.3957E+00_JPRB,5.0168E+00_JPRB,6.6412E+00_JPRB,8.2665E+00_JPRB,&
+ & 9.8911E+00_JPRB,1.1513E+01_JPRB,1.2604E+01_JPRB,1.2922E+01_JPRB,1.2679E+01_JPRB/)  
+KAO( :, 1, 2,14) = (/&
+ & 3.0576E+00_JPRB,2.7352E+00_JPRB,2.5260E+00_JPRB,2.7828E+00_JPRB,3.6218E+00_JPRB,4.5046E+00_JPRB,&
+ & 5.3876E+00_JPRB,6.2699E+00_JPRB,6.8610E+00_JPRB,7.0352E+00_JPRB,6.9906E+00_JPRB/)  
+KAO( :, 2, 2,14) = (/&
+ & 3.0061E+00_JPRB,2.7324E+00_JPRB,2.6141E+00_JPRB,3.3196E+00_JPRB,4.3910E+00_JPRB,5.4630E+00_JPRB,&
+ & 6.5356E+00_JPRB,7.6067E+00_JPRB,8.3258E+00_JPRB,8.5350E+00_JPRB,8.4749E+00_JPRB/)  
+KAO( :, 3, 2,14) = (/&
+ & 2.9525E+00_JPRB,2.7255E+00_JPRB,2.8471E+00_JPRB,3.9327E+00_JPRB,5.2058E+00_JPRB,6.4796E+00_JPRB,&
+ & 7.7532E+00_JPRB,9.0260E+00_JPRB,9.8805E+00_JPRB,1.0131E+01_JPRB,1.0067E+01_JPRB/)  
+KAO( :, 4, 2,14) = (/&
+ & 2.8984E+00_JPRB,2.7145E+00_JPRB,3.1607E+00_JPRB,4.5565E+00_JPRB,6.0350E+00_JPRB,7.5142E+00_JPRB,&
+ & 8.9933E+00_JPRB,1.0470E+01_JPRB,1.1465E+01_JPRB,1.1763E+01_JPRB,1.1703E+01_JPRB/)  
+KAO( :, 5, 2,14) = (/&
+ & 2.8438E+00_JPRB,2.7189E+00_JPRB,3.5222E+00_JPRB,5.1840E+00_JPRB,6.8691E+00_JPRB,8.5548E+00_JPRB,&
+ & 1.0241E+01_JPRB,1.1924E+01_JPRB,1.3058E+01_JPRB,1.3402E+01_JPRB,1.3350E+01_JPRB/)  
+KAO( :, 1, 3,14) = (/&
+ & 3.2627E+00_JPRB,2.9257E+00_JPRB,2.6844E+00_JPRB,2.7974E+00_JPRB,3.4992E+00_JPRB,4.3540E+00_JPRB,&
+ & 5.2086E+00_JPRB,6.0626E+00_JPRB,6.6362E+00_JPRB,6.8051E+00_JPRB,6.8438E+00_JPRB/)  
+KAO( :, 2, 3,14) = (/&
+ & 3.2141E+00_JPRB,2.9285E+00_JPRB,2.7611E+00_JPRB,3.2879E+00_JPRB,4.2959E+00_JPRB,5.3479E+00_JPRB,&
+ & 6.3996E+00_JPRB,7.4507E+00_JPRB,8.1567E+00_JPRB,8.3690E+00_JPRB,8.4216E+00_JPRB/)  
+KAO( :, 3, 3,14) = (/&
+ & 3.1592E+00_JPRB,2.9193E+00_JPRB,2.9657E+00_JPRB,3.8707E+00_JPRB,5.1268E+00_JPRB,6.3848E+00_JPRB,&
+ & 7.6422E+00_JPRB,8.8991E+00_JPRB,9.7445E+00_JPRB,1.0003E+01_JPRB,1.0068E+01_JPRB/)  
+KAO( :, 4, 3,14) = (/&
+ & 3.1015E+00_JPRB,2.9015E+00_JPRB,3.2432E+00_JPRB,4.5116E+00_JPRB,5.9798E+00_JPRB,7.4486E+00_JPRB,&
+ & 8.9182E+00_JPRB,1.0386E+01_JPRB,1.1375E+01_JPRB,1.1682E+01_JPRB,1.1760E+01_JPRB/)  
+KAO( :, 5, 3,14) = (/&
+ & 3.0445E+00_JPRB,2.9022E+00_JPRB,3.5824E+00_JPRB,5.1608E+00_JPRB,6.8436E+00_JPRB,8.5264E+00_JPRB,&
+ & 1.0210E+01_JPRB,1.1891E+01_JPRB,1.3025E+01_JPRB,1.3379E+01_JPRB,1.3473E+01_JPRB/)  
+KAO( :, 1, 4,14) = (/&
+ & 3.5400E+00_JPRB,3.1664E+00_JPRB,2.9101E+00_JPRB,2.8758E+00_JPRB,3.3348E+00_JPRB,4.1525E+00_JPRB,&
+ & 4.9718E+00_JPRB,5.7899E+00_JPRB,6.3397E+00_JPRB,6.5008E+00_JPRB,6.5768E+00_JPRB/)  
+KAO( :, 2, 4,14) = (/&
+ & 3.4855E+00_JPRB,3.1790E+00_JPRB,2.9576E+00_JPRB,3.2747E+00_JPRB,4.1109E+00_JPRB,5.1228E+00_JPRB,&
+ & 6.1348E+00_JPRB,7.1442E+00_JPRB,7.8249E+00_JPRB,8.0301E+00_JPRB,8.1227E+00_JPRB/)  
+KAO( :, 3, 4,14) = (/&
+ & 3.4320E+00_JPRB,3.1719E+00_JPRB,3.1607E+00_JPRB,3.7785E+00_JPRB,4.9272E+00_JPRB,6.1416E+00_JPRB,&
+ & 7.3563E+00_JPRB,8.5691E+00_JPRB,9.3880E+00_JPRB,9.6426E+00_JPRB,9.7500E+00_JPRB/)  
+KAO( :, 4, 4,14) = (/&
+ & 3.3791E+00_JPRB,3.1599E+00_JPRB,3.3859E+00_JPRB,4.3631E+00_JPRB,5.7749E+00_JPRB,7.1988E+00_JPRB,&
+ & 8.6228E+00_JPRB,1.0046E+01_JPRB,1.1007E+01_JPRB,1.1312E+01_JPRB,1.1439E+01_JPRB/)  
+KAO( :, 5, 4,14) = (/&
+ & 3.3258E+00_JPRB,3.1591E+00_JPRB,3.6665E+00_JPRB,5.0052E+00_JPRB,6.6441E+00_JPRB,8.2840E+00_JPRB,&
+ & 9.9242E+00_JPRB,1.1564E+01_JPRB,1.2671E+01_JPRB,1.3030E+01_JPRB,1.3170E+01_JPRB/)  
+KAO( :, 1, 5,14) = (/&
+ & 3.8712E+00_JPRB,3.4337E+00_JPRB,3.1666E+00_JPRB,3.0128E+00_JPRB,3.2471E+00_JPRB,3.9337E+00_JPRB,&
+ & 4.7121E+00_JPRB,5.4892E+00_JPRB,6.0120E+00_JPRB,6.1700E+00_JPRB,6.2549E+00_JPRB/)  
+KAO( :, 2, 5,14) = (/&
+ & 3.8269E+00_JPRB,3.4694E+00_JPRB,3.1866E+00_JPRB,3.3432E+00_JPRB,3.9282E+00_JPRB,4.8845E+00_JPRB,&
+ & 5.8524E+00_JPRB,6.8187E+00_JPRB,7.4706E+00_JPRB,7.6730E+00_JPRB,7.7736E+00_JPRB/)  
+KAO( :, 3, 5,14) = (/&
+ & 3.7755E+00_JPRB,3.4748E+00_JPRB,3.3901E+00_JPRB,3.7632E+00_JPRB,4.7202E+00_JPRB,5.8870E+00_JPRB,&
+ & 7.0546E+00_JPRB,8.2214E+00_JPRB,9.0082E+00_JPRB,9.2591E+00_JPRB,9.3759E+00_JPRB/)  
+KAO( :, 4, 5,14) = (/&
+ & 3.7208E+00_JPRB,3.4667E+00_JPRB,3.6066E+00_JPRB,4.2692E+00_JPRB,5.5501E+00_JPRB,6.9232E+00_JPRB,&
+ & 8.2967E+00_JPRB,9.6704E+00_JPRB,1.0598E+01_JPRB,1.0900E+01_JPRB,1.1032E+01_JPRB/)  
+KAO( :, 5, 5,14) = (/&
+ & 3.6685E+00_JPRB,3.4626E+00_JPRB,3.8317E+00_JPRB,4.8383E+00_JPRB,6.4165E+00_JPRB,8.0063E+00_JPRB,&
+ & 9.5964E+00_JPRB,1.1185E+01_JPRB,1.2259E+01_JPRB,1.2606E+01_JPRB,1.2759E+01_JPRB/)  
+KAO( :, 1, 6,14) = (/&
+ & 4.2985E+00_JPRB,3.7747E+00_JPRB,3.4577E+00_JPRB,3.1550E+00_JPRB,3.2497E+00_JPRB,3.6558E+00_JPRB,&
+ & 4.3601E+00_JPRB,5.0812E+00_JPRB,5.5670E+00_JPRB,5.7208E+00_JPRB,5.7987E+00_JPRB/)  
+KAO( :, 2, 6,14) = (/&
+ & 4.2427E+00_JPRB,3.8123E+00_JPRB,3.4653E+00_JPRB,3.4897E+00_JPRB,3.8064E+00_JPRB,4.5507E+00_JPRB,&
+ & 5.4535E+00_JPRB,6.3569E+00_JPRB,6.9669E+00_JPRB,7.1637E+00_JPRB,7.2558E+00_JPRB/)  
+KAO( :, 3, 6,14) = (/&
+ & 4.1875E+00_JPRB,3.8273E+00_JPRB,3.6255E+00_JPRB,3.8306E+00_JPRB,4.4762E+00_JPRB,5.5205E+00_JPRB,&
+ & 6.6168E+00_JPRB,7.7121E+00_JPRB,8.4537E+00_JPRB,8.6967E+00_JPRB,8.8046E+00_JPRB/)  
+KAO( :, 4, 6,14) = (/&
+ & 4.1387E+00_JPRB,3.8237E+00_JPRB,3.8813E+00_JPRB,4.2503E+00_JPRB,5.2544E+00_JPRB,6.5579E+00_JPRB,&
+ & 7.8608E+00_JPRB,9.1631E+00_JPRB,1.0044E+01_JPRB,1.0331E+01_JPRB,1.0461E+01_JPRB/)  
+KAO( :, 5, 6,14) = (/&
+ & 4.0993E+00_JPRB,3.8210E+00_JPRB,4.0697E+00_JPRB,4.7381E+00_JPRB,6.1433E+00_JPRB,7.6683E+00_JPRB,&
+ & 9.1923E+00_JPRB,1.0715E+01_JPRB,1.1746E+01_JPRB,1.2082E+01_JPRB,1.2233E+01_JPRB/)  
+KAO( :, 1, 7,14) = (/&
+ & 4.8729E+00_JPRB,4.2640E+00_JPRB,3.8474E+00_JPRB,3.3679E+00_JPRB,3.3344E+00_JPRB,3.4772E+00_JPRB,&
+ & 3.9641E+00_JPRB,4.6207E+00_JPRB,5.0642E+00_JPRB,5.2074E+00_JPRB,5.2771E+00_JPRB/)  
+KAO( :, 2, 7,14) = (/&
+ & 4.7919E+00_JPRB,4.2473E+00_JPRB,3.8324E+00_JPRB,3.6623E+00_JPRB,3.7914E+00_JPRB,4.2248E+00_JPRB,&
+ & 5.0116E+00_JPRB,5.8421E+00_JPRB,6.4042E+00_JPRB,6.5890E+00_JPRB,6.6727E+00_JPRB/)  
+KAO( :, 3, 7,14) = (/&
+ & 4.7214E+00_JPRB,4.2557E+00_JPRB,3.9089E+00_JPRB,4.0054E+00_JPRB,4.3393E+00_JPRB,5.1382E+00_JPRB,&
+ & 6.1595E+00_JPRB,7.1803E+00_JPRB,7.8713E+00_JPRB,8.0973E+00_JPRB,8.2014E+00_JPRB/)  
+KAO( :, 4, 7,14) = (/&
+ & 4.6651E+00_JPRB,4.2593E+00_JPRB,4.1634E+00_JPRB,4.3388E+00_JPRB,5.0089E+00_JPRB,6.1843E+00_JPRB,&
+ & 7.4141E+00_JPRB,8.6442E+00_JPRB,9.4748E+00_JPRB,9.7461E+00_JPRB,9.8717E+00_JPRB/)  
+KAO( :, 5, 7,14) = (/&
+ & 4.6229E+00_JPRB,4.2611E+00_JPRB,4.3711E+00_JPRB,4.7337E+00_JPRB,5.8551E+00_JPRB,7.3079E+00_JPRB,&
+ & 8.7620E+00_JPRB,1.0215E+01_JPRB,1.1197E+01_JPRB,1.1518E+01_JPRB,1.1668E+01_JPRB/)  
+KAO( :, 1, 8,14) = (/&
+ & 5.5925E+00_JPRB,4.8936E+00_JPRB,4.3354E+00_JPRB,3.7383E+00_JPRB,3.4607E+00_JPRB,3.3817E+00_JPRB,&
+ & 3.5604E+00_JPRB,4.1011E+00_JPRB,4.4961E+00_JPRB,4.6277E+00_JPRB,4.6848E+00_JPRB/)  
+KAO( :, 2, 8,14) = (/&
+ & 5.4938E+00_JPRB,4.8247E+00_JPRB,4.3191E+00_JPRB,3.9163E+00_JPRB,3.8835E+00_JPRB,4.0306E+00_JPRB,&
+ & 4.5806E+00_JPRB,5.3399E+00_JPRB,5.8538E+00_JPRB,6.0240E+00_JPRB,6.1006E+00_JPRB/)  
+KAO( :, 3, 8,14) = (/&
+ & 5.4085E+00_JPRB,4.8212E+00_JPRB,4.3278E+00_JPRB,4.2425E+00_JPRB,4.3274E+00_JPRB,4.8175E+00_JPRB,&
+ & 5.7136E+00_JPRB,6.6616E+00_JPRB,7.3038E+00_JPRB,7.5143E+00_JPRB,7.6111E+00_JPRB/)  
+KAO( :, 4, 8,14) = (/&
+ & 5.3368E+00_JPRB,4.8168E+00_JPRB,4.5230E+00_JPRB,4.5538E+00_JPRB,4.8873E+00_JPRB,5.8090E+00_JPRB,&
+ & 6.9627E+00_JPRB,8.1174E+00_JPRB,8.9008E+00_JPRB,9.1580E+00_JPRB,9.2752E+00_JPRB/)  
+KAO( :, 5, 8,14) = (/&
+ & 5.2815E+00_JPRB,4.8169E+00_JPRB,4.7320E+00_JPRB,4.8661E+00_JPRB,5.6370E+00_JPRB,6.9370E+00_JPRB,&
+ & 8.3184E+00_JPRB,9.6982E+00_JPRB,1.0633E+01_JPRB,1.0941E+01_JPRB,1.1084E+01_JPRB/)  
+KAO( :, 1, 9,14) = (/&
+ & 6.4577E+00_JPRB,5.6507E+00_JPRB,4.9407E+00_JPRB,4.2286E+00_JPRB,3.7253E+00_JPRB,3.3779E+00_JPRB,&
+ & 3.2319E+00_JPRB,3.5421E+00_JPRB,3.8831E+00_JPRB,3.9990E+00_JPRB,4.0498E+00_JPRB/)  
+KAO( :, 2, 9,14) = (/&
+ & 6.3422E+00_JPRB,5.5498E+00_JPRB,4.9222E+00_JPRB,4.3098E+00_JPRB,4.0685E+00_JPRB,3.8931E+00_JPRB,&
+ & 4.1244E+00_JPRB,4.7547E+00_JPRB,5.2133E+00_JPRB,5.3678E+00_JPRB,5.4322E+00_JPRB/)  
+KAO( :, 3, 9,14) = (/&
+ & 6.2329E+00_JPRB,5.5111E+00_JPRB,4.9049E+00_JPRB,4.5899E+00_JPRB,4.4547E+00_JPRB,4.5979E+00_JPRB,&
+ & 5.2352E+00_JPRB,6.1039E+00_JPRB,6.6924E+00_JPRB,6.8898E+00_JPRB,6.9747E+00_JPRB/)  
+KAO( :, 4, 9,14) = (/&
+ & 6.1515E+00_JPRB,5.4910E+00_JPRB,5.0222E+00_JPRB,4.8653E+00_JPRB,4.9067E+00_JPRB,5.4882E+00_JPRB,&
+ & 6.4831E+00_JPRB,7.5599E+00_JPRB,8.2895E+00_JPRB,8.5312E+00_JPRB,8.6396E+00_JPRB/)  
+KAO( :, 5, 9,14) = (/&
+ & 6.0869E+00_JPRB,5.4865E+00_JPRB,5.2250E+00_JPRB,5.1325E+00_JPRB,5.5425E+00_JPRB,6.5444E+00_JPRB,&
+ & 7.8337E+00_JPRB,9.1350E+00_JPRB,1.0015E+01_JPRB,1.0307E+01_JPRB,1.0438E+01_JPRB/)  
+KAO( :, 1,10,14) = (/&
+ & 7.4443E+00_JPRB,6.5140E+00_JPRB,5.6562E+00_JPRB,4.8450E+00_JPRB,4.1266E+00_JPRB,3.5478E+00_JPRB,&
+ & 3.0700E+00_JPRB,3.0881E+00_JPRB,3.3779E+00_JPRB,3.4799E+00_JPRB,1.2058E+01_JPRB/)  
+KAO( :, 2,10,14) = (/&
+ & 7.3221E+00_JPRB,6.4071E+00_JPRB,5.6365E+00_JPRB,4.8644E+00_JPRB,4.3967E+00_JPRB,3.9545E+00_JPRB,&
+ & 3.8217E+00_JPRB,4.2441E+00_JPRB,4.6539E+00_JPRB,4.7937E+00_JPRB,1.2410E+01_JPRB/)  
+KAO( :, 3,10,14) = (/&
+ & 7.2124E+00_JPRB,6.3403E+00_JPRB,5.6271E+00_JPRB,5.0725E+00_JPRB,4.7313E+00_JPRB,4.4923E+00_JPRB,&
+ & 4.8301E+00_JPRB,5.5719E+00_JPRB,6.1108E+00_JPRB,6.2952E+00_JPRB,1.2954E+01_JPRB/)  
+KAO( :, 4,10,14) = (/&
+ & 7.1175E+00_JPRB,6.3123E+00_JPRB,5.6779E+00_JPRB,5.3374E+00_JPRB,5.0908E+00_JPRB,5.2975E+00_JPRB,&
+ & 6.0440E+00_JPRB,7.0430E+00_JPRB,7.7247E+00_JPRB,7.9559E+00_JPRB,1.3387E+01_JPRB/)  
+KAO( :, 5,10,14) = (/&
+ & 7.0366E+00_JPRB,6.2756E+00_JPRB,5.8648E+00_JPRB,5.5670E+00_JPRB,5.6360E+00_JPRB,6.2965E+00_JPRB,&
+ & 7.4267E+00_JPRB,8.6602E+00_JPRB,9.4961E+00_JPRB,9.7792E+00_JPRB,1.3845E+01_JPRB/)  
+KAO( :, 1,11,14) = (/&
+ & 8.4957E+00_JPRB,7.4339E+00_JPRB,6.4512E+00_JPRB,5.5185E+00_JPRB,4.7207E+00_JPRB,3.9718E+00_JPRB,&
+ & 3.2916E+00_JPRB,3.1500E+00_JPRB,3.4253E+00_JPRB,3.5296E+00_JPRB,2.3513E+01_JPRB/)  
+KAO( :, 2,11,14) = (/&
+ & 8.3816E+00_JPRB,7.3341E+00_JPRB,6.4276E+00_JPRB,5.6044E+00_JPRB,4.9602E+00_JPRB,4.3313E+00_JPRB,&
+ & 3.9798E+00_JPRB,4.2912E+00_JPRB,4.7066E+00_JPRB,4.8505E+00_JPRB,2.3943E+01_JPRB/)  
+KAO( :, 3,11,14) = (/&
+ & 8.2705E+00_JPRB,7.2767E+00_JPRB,6.4537E+00_JPRB,5.8081E+00_JPRB,5.2448E+00_JPRB,4.8172E+00_JPRB,&
+ & 4.9716E+00_JPRB,5.6457E+00_JPRB,6.1916E+00_JPRB,6.3804E+00_JPRB,2.4436E+01_JPRB/)  
+KAO( :, 4,11,14) = (/&
+ & 8.1691E+00_JPRB,7.2418E+00_JPRB,6.5336E+00_JPRB,6.0302E+00_JPRB,5.5871E+00_JPRB,5.5776E+00_JPRB,&
+ & 6.1920E+00_JPRB,7.1803E+00_JPRB,7.8743E+00_JPRB,8.1125E+00_JPRB,2.5073E+01_JPRB/)  
+KAO( :, 5,11,14) = (/&
+ & 8.0687E+00_JPRB,7.1847E+00_JPRB,6.6868E+00_JPRB,6.2347E+00_JPRB,6.0989E+00_JPRB,6.5755E+00_JPRB,&
+ & 7.6314E+00_JPRB,8.8985E+00_JPRB,9.7576E+00_JPRB,1.0049E+01_JPRB,2.5623E+01_JPRB/)  
+KAO( :, 1,12,14) = (/&
+ & 9.6896E+00_JPRB,8.4786E+00_JPRB,7.3560E+00_JPRB,6.2642E+00_JPRB,5.3896E+00_JPRB,4.4442E+00_JPRB,&
+ & 3.5654E+00_JPRB,3.2232E+00_JPRB,3.4640E+00_JPRB,3.5704E+00_JPRB,3.3781E+01_JPRB/)  
+KAO( :, 2,12,14) = (/&
+ & 9.5610E+00_JPRB,8.3661E+00_JPRB,7.3175E+00_JPRB,6.4413E+00_JPRB,5.6023E+00_JPRB,4.7562E+00_JPRB,&
+ & 4.1907E+00_JPRB,4.3435E+00_JPRB,4.7515E+00_JPRB,4.8976E+00_JPRB,3.4305E+01_JPRB/)  
+KAO( :, 3,12,14) = (/&
+ & 9.4357E+00_JPRB,8.3098E+00_JPRB,7.3390E+00_JPRB,6.6507E+00_JPRB,5.8481E+00_JPRB,5.2296E+00_JPRB,&
+ & 5.1297E+00_JPRB,5.7060E+00_JPRB,6.2577E+00_JPRB,6.4493E+00_JPRB,3.4708E+01_JPRB/)  
+KAO( :, 4,12,14) = (/&
+ & 9.3148E+00_JPRB,8.2568E+00_JPRB,7.4893E+00_JPRB,6.8212E+00_JPRB,6.1645E+00_JPRB,5.9310E+00_JPRB,&
+ & 6.3510E+00_JPRB,7.2870E+00_JPRB,7.9920E+00_JPRB,8.2360E+00_JPRB,3.5460E+01_JPRB/)  
+KAO( :, 5,12,14) = (/&
+ & 9.1990E+00_JPRB,8.1836E+00_JPRB,7.6152E+00_JPRB,6.9928E+00_JPRB,6.6719E+00_JPRB,6.9180E+00_JPRB,&
+ & 7.8262E+00_JPRB,9.0973E+00_JPRB,9.9751E+00_JPRB,1.0276E+01_JPRB,3.6457E+01_JPRB/)  
+KAO( :, 1,13,14) = (/&
+ & 1.0978E+01_JPRB,9.6060E+00_JPRB,8.3365E+00_JPRB,7.0935E+00_JPRB,6.1273E+00_JPRB,4.9756E+00_JPRB,&
+ & 3.8881E+00_JPRB,3.3072E+00_JPRB,3.4820E+00_JPRB,3.5899E+00_JPRB,3.7314E+01_JPRB/)  
+KAO( :, 2,13,14) = (/&
+ & 1.0837E+01_JPRB,9.4874E+00_JPRB,8.2842E+00_JPRB,7.3253E+00_JPRB,6.3404E+00_JPRB,5.2568E+00_JPRB,&
+ & 4.4758E+00_JPRB,4.4007E+00_JPRB,4.7797E+00_JPRB,4.9274E+00_JPRB,3.7831E+01_JPRB/)  
+KAO( :, 3,13,14) = (/&
+ & 1.0694E+01_JPRB,9.4274E+00_JPRB,8.2977E+00_JPRB,7.5668E+00_JPRB,6.5337E+00_JPRB,5.7124E+00_JPRB,&
+ & 5.3511E+00_JPRB,5.7626E+00_JPRB,6.3147E+00_JPRB,6.5078E+00_JPRB,3.8270E+01_JPRB/)  
+KAO( :, 4,13,14) = (/&
+ & 1.0553E+01_JPRB,9.3501E+00_JPRB,8.4789E+00_JPRB,7.6951E+00_JPRB,6.8488E+00_JPRB,6.3996E+00_JPRB,&
+ & 6.5438E+00_JPRB,7.3994E+00_JPRB,8.1156E+00_JPRB,8.3624E+00_JPRB,3.9180E+01_JPRB/)  
+KAO( :, 5,13,14) = (/&
+ & 1.0418E+01_JPRB,9.2624E+00_JPRB,8.6238E+00_JPRB,7.8509E+00_JPRB,7.3367E+00_JPRB,7.3271E+00_JPRB,&
+ & 8.0317E+00_JPRB,9.2713E+00_JPRB,1.0168E+01_JPRB,1.0477E+01_JPRB,4.0242E+01_JPRB/)  
+KAO( :, 1, 1,15) = (/&
+ & 3.4517E+00_JPRB,3.0397E+00_JPRB,4.3495E+00_JPRB,6.5195E+00_JPRB,8.6891E+00_JPRB,1.0859E+01_JPRB,&
+ & 1.3028E+01_JPRB,1.5192E+01_JPRB,1.6642E+01_JPRB,1.7045E+01_JPRB,1.6592E+01_JPRB/)  
+KAO( :, 2, 1,15) = (/&
+ & 3.3993E+00_JPRB,3.1455E+00_JPRB,5.0715E+00_JPRB,7.6013E+00_JPRB,1.0131E+01_JPRB,1.2660E+01_JPRB,&
+ & 1.5190E+01_JPRB,1.7713E+01_JPRB,1.9405E+01_JPRB,1.9876E+01_JPRB,1.9373E+01_JPRB/)  
+KAO( :, 3, 1,15) = (/&
+ & 3.3459E+00_JPRB,3.3075E+00_JPRB,5.7978E+00_JPRB,8.6893E+00_JPRB,1.1582E+01_JPRB,1.4472E+01_JPRB,&
+ & 1.7361E+01_JPRB,2.0250E+01_JPRB,2.2182E+01_JPRB,2.2727E+01_JPRB,2.2178E+01_JPRB/)  
+KAO( :, 4, 1,15) = (/&
+ & 3.2986E+00_JPRB,3.5290E+00_JPRB,6.5252E+00_JPRB,9.7768E+00_JPRB,1.3028E+01_JPRB,1.6279E+01_JPRB,&
+ & 1.9527E+01_JPRB,2.2769E+01_JPRB,2.4943E+01_JPRB,2.5561E+01_JPRB,2.4969E+01_JPRB/)  
+KAO( :, 5, 1,15) = (/&
+ & 3.2551E+00_JPRB,3.7853E+00_JPRB,7.2659E+00_JPRB,1.0883E+01_JPRB,1.4501E+01_JPRB,1.8116E+01_JPRB,&
+ & 2.1727E+01_JPRB,2.5337E+01_JPRB,2.7748E+01_JPRB,2.8418E+01_JPRB,2.7723E+01_JPRB/)  
+KAO( :, 1, 2,15) = (/&
+ & 3.6522E+00_JPRB,3.2711E+00_JPRB,4.5099E+00_JPRB,6.6968E+00_JPRB,8.9267E+00_JPRB,1.1156E+01_JPRB,&
+ & 1.3385E+01_JPRB,1.5605E+01_JPRB,1.7100E+01_JPRB,1.7534E+01_JPRB,1.7404E+01_JPRB/)  
+KAO( :, 2, 2,15) = (/&
+ & 3.6012E+00_JPRB,3.4064E+00_JPRB,5.2386E+00_JPRB,7.8494E+00_JPRB,1.0463E+01_JPRB,1.3076E+01_JPRB,&
+ & 1.5688E+01_JPRB,1.8292E+01_JPRB,2.0045E+01_JPRB,2.0557E+01_JPRB,2.0412E+01_JPRB/)  
+KAO( :, 3, 2,15) = (/&
+ & 3.5578E+00_JPRB,3.5847E+00_JPRB,6.0307E+00_JPRB,9.0357E+00_JPRB,1.2041E+01_JPRB,1.5045E+01_JPRB,&
+ & 1.8047E+01_JPRB,2.1044E+01_JPRB,2.3057E+01_JPRB,2.3640E+01_JPRB,2.3465E+01_JPRB/)  
+KAO( :, 4, 2,15) = (/&
+ & 3.5171E+00_JPRB,3.8136E+00_JPRB,6.8582E+00_JPRB,1.0272E+01_JPRB,1.3685E+01_JPRB,1.7098E+01_JPRB,&
+ & 2.0508E+01_JPRB,2.3916E+01_JPRB,2.6198E+01_JPRB,2.6851E+01_JPRB,2.6618E+01_JPRB/)  
+KAO( :, 5, 2,15) = (/&
+ & 3.4777E+00_JPRB,4.0744E+00_JPRB,7.7115E+00_JPRB,1.1547E+01_JPRB,1.5382E+01_JPRB,1.9216E+01_JPRB,&
+ & 2.3048E+01_JPRB,2.6876E+01_JPRB,2.9437E+01_JPRB,3.0161E+01_JPRB,2.9874E+01_JPRB/)  
+KAO( :, 1, 3,15) = (/&
+ & 4.0012E+00_JPRB,3.5438E+00_JPRB,4.5445E+00_JPRB,6.5121E+00_JPRB,8.6806E+00_JPRB,1.0848E+01_JPRB,&
+ & 1.3016E+01_JPRB,1.5179E+01_JPRB,1.6635E+01_JPRB,1.7074E+01_JPRB,1.7180E+01_JPRB/)  
+KAO( :, 2, 3,15) = (/&
+ & 3.9193E+00_JPRB,3.6637E+00_JPRB,5.2345E+00_JPRB,7.7505E+00_JPRB,1.0328E+01_JPRB,1.2905E+01_JPRB,&
+ & 1.5480E+01_JPRB,1.8051E+01_JPRB,1.9781E+01_JPRB,2.0289E+01_JPRB,2.0415E+01_JPRB/)  
+KAO( :, 3, 3,15) = (/&
+ & 3.8577E+00_JPRB,3.8234E+00_JPRB,6.0517E+00_JPRB,9.0644E+00_JPRB,1.2077E+01_JPRB,1.5089E+01_JPRB,&
+ & 1.8099E+01_JPRB,2.1106E+01_JPRB,2.3127E+01_JPRB,2.3709E+01_JPRB,2.3850E+01_JPRB/)  
+KAO( :, 4, 3,15) = (/&
+ & 3.8049E+00_JPRB,4.0468E+00_JPRB,6.9689E+00_JPRB,1.0436E+01_JPRB,1.3903E+01_JPRB,1.7370E+01_JPRB,&
+ & 2.0836E+01_JPRB,2.4295E+01_JPRB,2.6620E+01_JPRB,2.7290E+01_JPRB,2.7443E+01_JPRB/)  
+KAO( :, 5, 3,15) = (/&
+ & 3.7571E+00_JPRB,4.3042E+00_JPRB,7.9142E+00_JPRB,1.1851E+01_JPRB,1.5788E+01_JPRB,1.9723E+01_JPRB,&
+ & 2.3657E+01_JPRB,2.7583E+01_JPRB,3.0223E+01_JPRB,3.0982E+01_JPRB,3.1151E+01_JPRB/)  
+KAO( :, 1, 4,15) = (/&
+ & 4.5413E+00_JPRB,3.9760E+00_JPRB,4.5956E+00_JPRB,6.1749E+00_JPRB,8.2304E+00_JPRB,1.0286E+01_JPRB,&
+ & 1.2342E+01_JPRB,1.4394E+01_JPRB,1.5775E+01_JPRB,1.6197E+01_JPRB,1.6378E+01_JPRB/)  
+KAO( :, 2, 4,15) = (/&
+ & 4.4358E+00_JPRB,4.0500E+00_JPRB,5.2197E+00_JPRB,7.4879E+00_JPRB,9.9757E+00_JPRB,1.2463E+01_JPRB,&
+ & 1.4950E+01_JPRB,1.7428E+01_JPRB,1.9103E+01_JPRB,1.9604E+01_JPRB,1.9831E+01_JPRB/)  
+KAO( :, 3, 4,15) = (/&
+ & 4.3496E+00_JPRB,4.1500E+00_JPRB,5.9601E+00_JPRB,8.9065E+00_JPRB,1.1863E+01_JPRB,1.4820E+01_JPRB,&
+ & 1.7774E+01_JPRB,2.0728E+01_JPRB,2.2708E+01_JPRB,2.3295E+01_JPRB,2.3568E+01_JPRB/)  
+KAO( :, 4, 4,15) = (/&
+ & 4.2783E+00_JPRB,4.3259E+00_JPRB,6.9520E+00_JPRB,1.0406E+01_JPRB,1.3860E+01_JPRB,1.7313E+01_JPRB,&
+ & 2.0763E+01_JPRB,2.4211E+01_JPRB,2.6527E+01_JPRB,2.7194E+01_JPRB,2.7525E+01_JPRB/)  
+KAO( :, 5, 4,15) = (/&
+ & 4.2147E+00_JPRB,4.5565E+00_JPRB,7.9967E+00_JPRB,1.1967E+01_JPRB,1.5938E+01_JPRB,1.9911E+01_JPRB,&
+ & 2.3877E+01_JPRB,2.7842E+01_JPRB,3.0498E+01_JPRB,3.1272E+01_JPRB,3.1647E+01_JPRB/)  
+KAO( :, 1, 5,15) = (/&
+ & 5.1884E+00_JPRB,4.5403E+00_JPRB,4.7931E+00_JPRB,5.8956E+00_JPRB,7.7629E+00_JPRB,9.7012E+00_JPRB,&
+ & 1.1639E+01_JPRB,1.3574E+01_JPRB,1.4878E+01_JPRB,1.5273E+01_JPRB,1.5485E+01_JPRB/)  
+KAO( :, 2, 5,15) = (/&
+ & 5.0662E+00_JPRB,4.5450E+00_JPRB,5.3264E+00_JPRB,7.1969E+00_JPRB,9.5885E+00_JPRB,1.1980E+01_JPRB,&
+ & 1.4371E+01_JPRB,1.6762E+01_JPRB,1.8366E+01_JPRB,1.8844E+01_JPRB,1.9112E+01_JPRB/)  
+KAO( :, 3, 5,15) = (/&
+ & 4.9667E+00_JPRB,4.6362E+00_JPRB,5.9568E+00_JPRB,8.7016E+00_JPRB,1.1592E+01_JPRB,1.4482E+01_JPRB,&
+ & 1.7370E+01_JPRB,2.0252E+01_JPRB,2.2194E+01_JPRB,2.2764E+01_JPRB,2.3092E+01_JPRB/)  
+KAO( :, 4, 5,15) = (/&
+ & 4.8811E+00_JPRB,4.7581E+00_JPRB,6.8907E+00_JPRB,1.0315E+01_JPRB,1.3738E+01_JPRB,1.7164E+01_JPRB,&
+ & 2.0588E+01_JPRB,2.4000E+01_JPRB,2.6296E+01_JPRB,2.6966E+01_JPRB,2.7352E+01_JPRB/)  
+KAO( :, 5, 5,15) = (/&
+ & 4.8022E+00_JPRB,4.9436E+00_JPRB,8.0245E+00_JPRB,1.2011E+01_JPRB,1.5998E+01_JPRB,1.9984E+01_JPRB,&
+ & 2.3970E+01_JPRB,2.7945E+01_JPRB,3.0615E+01_JPRB,3.1395E+01_JPRB,3.1854E+01_JPRB/)  
+KAO( :, 1, 6,15) = (/&
+ & 5.9540E+00_JPRB,5.2101E+00_JPRB,5.1559E+00_JPRB,5.7766E+00_JPRB,7.2000E+00_JPRB,8.9966E+00_JPRB,&
+ & 1.0790E+01_JPRB,1.2585E+01_JPRB,1.3788E+01_JPRB,1.4160E+01_JPRB,1.4369E+01_JPRB/)  
+KAO( :, 2, 6,15) = (/&
+ & 5.8116E+00_JPRB,5.1177E+00_JPRB,5.5815E+00_JPRB,6.8585E+00_JPRB,9.1046E+00_JPRB,1.1376E+01_JPRB,&
+ & 1.3646E+01_JPRB,1.5913E+01_JPRB,1.7437E+01_JPRB,1.7895E+01_JPRB,1.8166E+01_JPRB/)  
+KAO( :, 3, 6,15) = (/&
+ & 5.6919E+00_JPRB,5.2252E+00_JPRB,6.1200E+00_JPRB,8.4234E+00_JPRB,1.1222E+01_JPRB,1.4022E+01_JPRB,&
+ & 1.6819E+01_JPRB,1.9613E+01_JPRB,2.1489E+01_JPRB,2.2041E+01_JPRB,2.2387E+01_JPRB/)  
+KAO( :, 4, 6,15) = (/&
+ & 5.5882E+00_JPRB,5.3197E+00_JPRB,6.8459E+00_JPRB,1.0145E+01_JPRB,1.3515E+01_JPRB,1.6884E+01_JPRB,&
+ & 2.0253E+01_JPRB,2.3617E+01_JPRB,2.5877E+01_JPRB,2.6539E+01_JPRB,2.6957E+01_JPRB/)  
+KAO( :, 5, 6,15) = (/&
+ & 5.4924E+00_JPRB,5.4609E+00_JPRB,7.9964E+00_JPRB,1.1974E+01_JPRB,1.5951E+01_JPRB,1.9927E+01_JPRB,&
+ & 2.3903E+01_JPRB,2.7873E+01_JPRB,3.0539E+01_JPRB,3.1317E+01_JPRB,3.1808E+01_JPRB/)  
+KAO( :, 1, 7,15) = (/&
+ & 6.8609E+00_JPRB,6.0036E+00_JPRB,5.6856E+00_JPRB,5.8569E+00_JPRB,6.6558E+00_JPRB,8.2325E+00_JPRB,&
+ & 9.8779E+00_JPRB,1.1519E+01_JPRB,1.2625E+01_JPRB,1.2957E+01_JPRB,1.3161E+01_JPRB/)  
+KAO( :, 2, 7,15) = (/&
+ & 6.6929E+00_JPRB,5.8566E+00_JPRB,5.9907E+00_JPRB,6.7106E+00_JPRB,8.5545E+00_JPRB,1.0689E+01_JPRB,&
+ & 1.2823E+01_JPRB,1.4953E+01_JPRB,1.6388E+01_JPRB,1.6819E+01_JPRB,1.7084E+01_JPRB/)  
+KAO( :, 3, 7,15) = (/&
+ & 6.5525E+00_JPRB,5.8774E+00_JPRB,6.4316E+00_JPRB,8.0973E+00_JPRB,1.0774E+01_JPRB,1.3461E+01_JPRB,&
+ & 1.6147E+01_JPRB,1.8828E+01_JPRB,2.0635E+01_JPRB,2.1172E+01_JPRB,2.1511E+01_JPRB/)  
+KAO( :, 4, 7,15) = (/&
+ & 6.4308E+00_JPRB,6.0200E+00_JPRB,7.0014E+00_JPRB,9.9118E+00_JPRB,1.3206E+01_JPRB,1.6500E+01_JPRB,&
+ & 1.9791E+01_JPRB,2.3078E+01_JPRB,2.5291E+01_JPRB,2.5943E+01_JPRB,2.6365E+01_JPRB/)  
+KAO( :, 5, 7,15) = (/&
+ & 6.3315E+00_JPRB,6.1156E+00_JPRB,7.9980E+00_JPRB,1.1868E+01_JPRB,1.5812E+01_JPRB,1.9756E+01_JPRB,&
+ & 2.3696E+01_JPRB,2.7636E+01_JPRB,3.0283E+01_JPRB,3.1063E+01_JPRB,3.1573E+01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART10',1,ZHOOK_HANDLE)
+END SUBROUTINE PART10
+
+
+SUBROUTINE PART11
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART11',0,ZHOOK_HANDLE)
+
+
+KAO( :, 1, 8,15) = (/&
+ & 7.8865E+00_JPRB,6.9009E+00_JPRB,6.2843E+00_JPRB,6.1316E+00_JPRB,6.3613E+00_JPRB,7.5584E+00_JPRB,&
+ & 9.0686E+00_JPRB,1.0577E+01_JPRB,1.1592E+01_JPRB,1.1900E+01_JPRB,1.2089E+01_JPRB/)  
+KAO( :, 2, 8,15) = (/&
+ & 7.6965E+00_JPRB,6.7347E+00_JPRB,6.5927E+00_JPRB,6.8053E+00_JPRB,7.9909E+00_JPRB,9.9438E+00_JPRB,&
+ & 1.1929E+01_JPRB,1.3913E+01_JPRB,1.5248E+01_JPRB,1.5655E+01_JPRB,1.5901E+01_JPRB/)  
+KAO( :, 3, 8,15) = (/&
+ & 7.5504E+00_JPRB,6.6675E+00_JPRB,6.9179E+00_JPRB,7.9162E+00_JPRB,1.0245E+01_JPRB,1.2802E+01_JPRB,&
+ & 1.5357E+01_JPRB,1.7910E+01_JPRB,1.9627E+01_JPRB,2.0148E+01_JPRB,2.0469E+01_JPRB/)  
+KAO( :, 4, 8,15) = (/&
+ & 7.4360E+00_JPRB,6.7883E+00_JPRB,7.3531E+00_JPRB,9.6152E+00_JPRB,1.2792E+01_JPRB,1.5983E+01_JPRB,&
+ & 1.9172E+01_JPRB,2.2359E+01_JPRB,2.4505E+01_JPRB,2.5152E+01_JPRB,2.5554E+01_JPRB/)  
+KAO( :, 5, 8,15) = (/&
+ & 7.3370E+00_JPRB,6.9240E+00_JPRB,8.1752E+00_JPRB,1.1669E+01_JPRB,1.5550E+01_JPRB,1.9429E+01_JPRB,&
+ & 2.3306E+01_JPRB,2.7182E+01_JPRB,2.9790E+01_JPRB,3.0576E+01_JPRB,3.1067E+01_JPRB/)  
+KAO( :, 1, 9,15) = (/&
+ & 9.0967E+00_JPRB,7.9598E+00_JPRB,6.9734E+00_JPRB,6.6246E+00_JPRB,6.3273E+00_JPRB,6.9836E+00_JPRB,&
+ & 8.3234E+00_JPRB,9.7073E+00_JPRB,1.0640E+01_JPRB,1.0924E+01_JPRB,1.1099E+01_JPRB/)  
+KAO( :, 2, 9,15) = (/&
+ & 8.8543E+00_JPRB,7.7477E+00_JPRB,7.2824E+00_JPRB,7.1264E+00_JPRB,7.6457E+00_JPRB,9.2650E+00_JPRB,&
+ & 1.1116E+01_JPRB,1.2965E+01_JPRB,1.4208E+01_JPRB,1.4588E+01_JPRB,1.4820E+01_JPRB/)  
+KAO( :, 3, 9,15) = (/&
+ & 8.7111E+00_JPRB,7.6297E+00_JPRB,7.5745E+00_JPRB,7.9608E+00_JPRB,9.6557E+00_JPRB,1.2050E+01_JPRB,&
+ & 1.4456E+01_JPRB,1.6860E+01_JPRB,1.8477E+01_JPRB,1.8971E+01_JPRB,1.9271E+01_JPRB/)  
+KAO( :, 4, 9,15) = (/&
+ & 8.5917E+00_JPRB,7.6924E+00_JPRB,7.9085E+00_JPRB,9.4305E+00_JPRB,1.2224E+01_JPRB,1.5276E+01_JPRB,&
+ & 1.8326E+01_JPRB,2.1371E+01_JPRB,2.3421E+01_JPRB,2.4055E+01_JPRB,2.4428E+01_JPRB/)  
+KAO( :, 5, 9,15) = (/&
+ & 8.4819E+00_JPRB,7.8606E+00_JPRB,8.5251E+00_JPRB,1.1371E+01_JPRB,1.5099E+01_JPRB,1.8867E+01_JPRB,&
+ & 2.2635E+01_JPRB,2.6398E+01_JPRB,2.8934E+01_JPRB,2.9714E+01_JPRB,3.0176E+01_JPRB/)  
+KAO( :, 1,10,15) = (/&
+ & 1.0579E+01_JPRB,9.2563E+00_JPRB,7.9515E+00_JPRB,7.2414E+00_JPRB,6.6262E+00_JPRB,6.7533E+00_JPRB,&
+ & 7.7880E+00_JPRB,9.0842E+00_JPRB,9.9553E+00_JPRB,1.0226E+01_JPRB,1.4443E+01_JPRB/)  
+KAO( :, 2,10,15) = (/&
+ & 1.0272E+01_JPRB,8.9883E+00_JPRB,8.0814E+00_JPRB,7.6749E+00_JPRB,7.6815E+00_JPRB,8.8308E+00_JPRB,&
+ & 1.0573E+01_JPRB,1.2332E+01_JPRB,1.3516E+01_JPRB,1.3883E+01_JPRB,1.6088E+01_JPRB/)  
+KAO( :, 3,10,15) = (/&
+ & 1.0064E+01_JPRB,8.8059E+00_JPRB,8.3682E+00_JPRB,8.3372E+00_JPRB,9.4460E+00_JPRB,1.1603E+01_JPRB,&
+ & 1.3923E+01_JPRB,1.6236E+01_JPRB,1.7795E+01_JPRB,1.8275E+01_JPRB,1.8972E+01_JPRB/)  
+KAO( :, 4,10,15) = (/&
+ & 9.9156E+00_JPRB,8.7771E+00_JPRB,8.6891E+00_JPRB,9.5568E+00_JPRB,1.1876E+01_JPRB,1.4833E+01_JPRB,&
+ & 1.7796E+01_JPRB,2.0756E+01_JPRB,2.2749E+01_JPRB,2.3365E+01_JPRB,2.3730E+01_JPRB/)  
+KAO( :, 5,10,15) = (/&
+ & 9.7815E+00_JPRB,8.9122E+00_JPRB,9.1420E+00_JPRB,1.1360E+01_JPRB,1.4761E+01_JPRB,1.8450E+01_JPRB,&
+ & 2.2139E+01_JPRB,2.5815E+01_JPRB,2.8297E+01_JPRB,2.9069E+01_JPRB,2.9515E+01_JPRB/)  
+KAO( :, 1,11,15) = (/&
+ & 1.2192E+01_JPRB,1.0668E+01_JPRB,9.1719E+00_JPRB,8.2095E+00_JPRB,7.4257E+00_JPRB,7.4696E+00_JPRB,&
+ & 8.4517E+00_JPRB,9.8563E+00_JPRB,1.0806E+01_JPRB,1.1102E+01_JPRB,2.7700E+01_JPRB/)  
+KAO( :, 2,11,15) = (/&
+ & 1.1855E+01_JPRB,1.0373E+01_JPRB,9.2641E+00_JPRB,8.5808E+00_JPRB,8.5516E+00_JPRB,9.6496E+00_JPRB,&
+ & 1.1490E+01_JPRB,1.3402E+01_JPRB,1.4690E+01_JPRB,1.5091E+01_JPRB,2.8329E+01_JPRB/)  
+KAO( :, 3,11,15) = (/&
+ & 1.1617E+01_JPRB,1.0165E+01_JPRB,9.4549E+00_JPRB,9.2771E+00_JPRB,1.0404E+01_JPRB,1.2597E+01_JPRB,&
+ & 1.5113E+01_JPRB,1.7627E+01_JPRB,1.9321E+01_JPRB,1.9850E+01_JPRB,2.9277E+01_JPRB/)  
+KAO( :, 4,11,15) = (/&
+ & 1.1419E+01_JPRB,1.0101E+01_JPRB,9.7647E+00_JPRB,1.0584E+01_JPRB,1.2914E+01_JPRB,1.6054E+01_JPRB,&
+ & 1.9262E+01_JPRB,2.2467E+01_JPRB,2.4628E+01_JPRB,2.5304E+01_JPRB,3.1159E+01_JPRB/)  
+KAO( :, 5,11,15) = (/&
+ & 1.1246E+01_JPRB,1.0208E+01_JPRB,1.0298E+01_JPRB,1.2412E+01_JPRB,1.5920E+01_JPRB,1.9895E+01_JPRB,&
+ & 2.3870E+01_JPRB,2.7842E+01_JPRB,3.0521E+01_JPRB,3.1359E+01_JPRB,3.4867E+01_JPRB/)  
+KAO( :, 1,12,15) = (/&
+ & 1.4055E+01_JPRB,1.2298E+01_JPRB,1.0584E+01_JPRB,9.3863E+00_JPRB,8.3528E+00_JPRB,8.2912E+00_JPRB,&
+ & 9.1651E+00_JPRB,1.0659E+01_JPRB,1.1686E+01_JPRB,1.2009E+01_JPRB,4.0755E+01_JPRB/)  
+KAO( :, 2,12,15) = (/&
+ & 1.3708E+01_JPRB,1.1994E+01_JPRB,1.0673E+01_JPRB,9.6215E+00_JPRB,9.5535E+00_JPRB,1.0572E+01_JPRB,&
+ & 1.2442E+01_JPRB,1.4512E+01_JPRB,1.5909E+01_JPRB,1.6350E+01_JPRB,4.1783E+01_JPRB/)  
+KAO( :, 3,12,15) = (/&
+ & 1.3432E+01_JPRB,1.1753E+01_JPRB,1.0809E+01_JPRB,1.0365E+01_JPRB,1.1475E+01_JPRB,1.3634E+01_JPRB,&
+ & 1.6334E+01_JPRB,1.9052E+01_JPRB,2.0884E+01_JPRB,2.1465E+01_JPRB,4.2453E+01_JPRB/)  
+KAO( :, 4,12,15) = (/&
+ & 1.3187E+01_JPRB,1.1665E+01_JPRB,1.0969E+01_JPRB,1.1758E+01_JPRB,1.4080E+01_JPRB,1.7299E+01_JPRB,&
+ & 2.0755E+01_JPRB,2.4210E+01_JPRB,2.6541E+01_JPRB,2.7279E+01_JPRB,4.2992E+01_JPRB/)  
+KAO( :, 5,12,15) = (/&
+ & 1.2971E+01_JPRB,1.1732E+01_JPRB,1.1607E+01_JPRB,1.3640E+01_JPRB,1.7148E+01_JPRB,2.1366E+01_JPRB,&
+ & 2.5637E+01_JPRB,2.9905E+01_JPRB,3.2783E+01_JPRB,3.3705E+01_JPRB,4.4626E+01_JPRB/)  
+KAO( :, 1,13,15) = (/&
+ & 1.6228E+01_JPRB,1.4199E+01_JPRB,1.2230E+01_JPRB,1.0748E+01_JPRB,9.4009E+00_JPRB,9.2214E+00_JPRB,&
+ & 9.9389E+00_JPRB,1.1470E+01_JPRB,1.2574E+01_JPRB,1.2929E+01_JPRB,4.6698E+01_JPRB/)  
+KAO( :, 2,13,15) = (/&
+ & 1.5839E+01_JPRB,1.3859E+01_JPRB,1.2304E+01_JPRB,1.0893E+01_JPRB,1.0661E+01_JPRB,1.1572E+01_JPRB,&
+ & 1.3374E+01_JPRB,1.5600E+01_JPRB,1.7103E+01_JPRB,1.7585E+01_JPRB,4.7783E+01_JPRB/)  
+KAO( :, 3,13,15) = (/&
+ & 1.5511E+01_JPRB,1.3574E+01_JPRB,1.2374E+01_JPRB,1.1617E+01_JPRB,1.2687E+01_JPRB,1.4735E+01_JPRB,&
+ & 1.7515E+01_JPRB,2.0432E+01_JPRB,2.2399E+01_JPRB,2.3033E+01_JPRB,4.8488E+01_JPRB/)  
+KAO( :, 4,13,15) = (/&
+ & 1.5222E+01_JPRB,1.3473E+01_JPRB,1.2471E+01_JPRB,1.3097E+01_JPRB,1.5327E+01_JPRB,1.8511E+01_JPRB,&
+ & 2.2200E+01_JPRB,2.5897E+01_JPRB,2.8394E+01_JPRB,2.9197E+01_JPRB,4.9013E+01_JPRB/)  
+KAO( :, 5,13,15) = (/&
+ & 1.4970E+01_JPRB,1.3493E+01_JPRB,1.3069E+01_JPRB,1.5022E+01_JPRB,1.8478E+01_JPRB,2.2815E+01_JPRB,&
+ & 2.7375E+01_JPRB,3.1933E+01_JPRB,3.5007E+01_JPRB,3.5995E+01_JPRB,5.0755E+01_JPRB/)  
+KAO( :, 1, 1,16) = (/&
+ & 3.6978E+00_JPRB,3.2359E+00_JPRB,5.8520E+00_JPRB,8.7722E+00_JPRB,1.1692E+01_JPRB,1.4611E+01_JPRB,&
+ & 1.7529E+01_JPRB,2.0434E+01_JPRB,2.2353E+01_JPRB,2.2771E+01_JPRB,2.1591E+01_JPRB/)  
+KAO( :, 2, 1,16) = (/&
+ & 3.6499E+00_JPRB,3.4722E+00_JPRB,6.9301E+00_JPRB,1.0388E+01_JPRB,1.3844E+01_JPRB,1.7300E+01_JPRB,&
+ & 2.0752E+01_JPRB,2.4192E+01_JPRB,2.6475E+01_JPRB,2.6965E+01_JPRB,2.5577E+01_JPRB/)  
+KAO( :, 3, 1,16) = (/&
+ & 3.5975E+00_JPRB,4.0332E+00_JPRB,8.0476E+00_JPRB,1.2062E+01_JPRB,1.6074E+01_JPRB,2.0086E+01_JPRB,&
+ & 2.4094E+01_JPRB,2.8087E+01_JPRB,3.0726E+01_JPRB,3.1309E+01_JPRB,2.9700E+01_JPRB/)  
+KAO( :, 4, 1,16) = (/&
+ & 3.5405E+00_JPRB,4.6049E+00_JPRB,9.1863E+00_JPRB,1.3767E+01_JPRB,1.8347E+01_JPRB,2.2925E+01_JPRB,&
+ & 2.7499E+01_JPRB,3.2055E+01_JPRB,3.5076E+01_JPRB,3.5737E+01_JPRB,3.3906E+01_JPRB/)  
+KAO( :, 5, 1,16) = (/&
+ & 3.4814E+00_JPRB,5.1822E+00_JPRB,1.0334E+01_JPRB,1.5485E+01_JPRB,2.0637E+01_JPRB,2.5785E+01_JPRB,&
+ & 3.0929E+01_JPRB,3.6054E+01_JPRB,3.9459E+01_JPRB,4.0196E+01_JPRB,3.8155E+01_JPRB/)  
+KAO( :, 1, 2,16) = (/&
+ & 4.0520E+00_JPRB,3.5458E+00_JPRB,6.5231E+00_JPRB,9.7790E+00_JPRB,1.3034E+01_JPRB,1.6288E+01_JPRB,&
+ & 1.9539E+01_JPRB,2.2778E+01_JPRB,2.4923E+01_JPRB,2.5395E+01_JPRB,2.4752E+01_JPRB/)  
+KAO( :, 2, 2,16) = (/&
+ & 3.9931E+00_JPRB,3.9027E+00_JPRB,7.7909E+00_JPRB,1.1679E+01_JPRB,1.5566E+01_JPRB,1.9451E+01_JPRB,&
+ & 2.3333E+01_JPRB,2.7200E+01_JPRB,2.9762E+01_JPRB,3.0330E+01_JPRB,2.9565E+01_JPRB/)  
+KAO( :, 3, 2,16) = (/&
+ & 3.9308E+00_JPRB,4.5630E+00_JPRB,9.1069E+00_JPRB,1.3651E+01_JPRB,1.8193E+01_JPRB,2.2734E+01_JPRB,&
+ & 2.7271E+01_JPRB,3.1793E+01_JPRB,3.4788E+01_JPRB,3.5457E+01_JPRB,3.4565E+01_JPRB/)  
+KAO( :, 4, 2,16) = (/&
+ & 3.8638E+00_JPRB,5.2409E+00_JPRB,1.0457E+01_JPRB,1.5672E+01_JPRB,2.0886E+01_JPRB,2.6099E+01_JPRB,&
+ & 3.1306E+01_JPRB,3.6497E+01_JPRB,3.9942E+01_JPRB,4.0702E+01_JPRB,3.9688E+01_JPRB/)  
+KAO( :, 5, 2,16) = (/&
+ & 3.7925E+00_JPRB,5.9258E+00_JPRB,1.1820E+01_JPRB,1.7713E+01_JPRB,2.3607E+01_JPRB,2.9498E+01_JPRB,&
+ & 3.5387E+01_JPRB,4.1252E+01_JPRB,4.5136E+01_JPRB,4.6007E+01_JPRB,4.4885E+01_JPRB/)  
+KAO( :, 1, 3,16) = (/&
+ & 4.4902E+00_JPRB,3.9291E+00_JPRB,6.9369E+00_JPRB,1.0400E+01_JPRB,1.3863E+01_JPRB,1.7324E+01_JPRB,&
+ & 2.0784E+01_JPRB,2.4230E+01_JPRB,2.6510E+01_JPRB,2.7027E+01_JPRB,2.7042E+01_JPRB/)  
+KAO( :, 2, 3,16) = (/&
+ & 4.4190E+00_JPRB,4.2063E+00_JPRB,8.3989E+00_JPRB,1.2591E+01_JPRB,1.6783E+01_JPRB,2.0972E+01_JPRB,&
+ & 2.5161E+01_JPRB,2.9338E+01_JPRB,3.2094E+01_JPRB,3.2723E+01_JPRB,3.2745E+01_JPRB/)  
+KAO( :, 3, 3,16) = (/&
+ & 4.3422E+00_JPRB,4.9746E+00_JPRB,9.9306E+00_JPRB,1.4886E+01_JPRB,1.9841E+01_JPRB,2.4793E+01_JPRB,&
+ & 2.9742E+01_JPRB,3.4667E+01_JPRB,3.7936E+01_JPRB,3.8674E+01_JPRB,3.8715E+01_JPRB/)  
+KAO( :, 4, 3,16) = (/&
+ & 4.2611E+00_JPRB,5.7667E+00_JPRB,1.1509E+01_JPRB,1.7250E+01_JPRB,2.2991E+01_JPRB,2.8729E+01_JPRB,&
+ & 3.4468E+01_JPRB,4.0180E+01_JPRB,4.3962E+01_JPRB,4.4836E+01_JPRB,4.4863E+01_JPRB/)  
+KAO( :, 5, 3,16) = (/&
+ & 4.1760E+00_JPRB,6.5736E+00_JPRB,1.3115E+01_JPRB,1.9656E+01_JPRB,2.6196E+01_JPRB,3.2733E+01_JPRB,&
+ & 3.9264E+01_JPRB,4.5777E+01_JPRB,5.0083E+01_JPRB,5.1074E+01_JPRB,5.1136E+01_JPRB/)  
+KAO( :, 1, 4,16) = (/&
+ & 5.0258E+00_JPRB,4.3977E+00_JPRB,7.1969E+00_JPRB,1.0791E+01_JPRB,1.4383E+01_JPRB,1.7975E+01_JPRB,&
+ & 2.1569E+01_JPRB,2.5144E+01_JPRB,2.7520E+01_JPRB,2.8065E+01_JPRB,2.8444E+01_JPRB/)  
+KAO( :, 2, 4,16) = (/&
+ & 4.9390E+00_JPRB,4.4372E+00_JPRB,8.8585E+00_JPRB,1.3281E+01_JPRB,1.7703E+01_JPRB,2.2123E+01_JPRB,&
+ & 2.6539E+01_JPRB,3.0949E+01_JPRB,3.3856E+01_JPRB,3.4541E+01_JPRB,3.4994E+01_JPRB/)  
+KAO( :, 3, 4,16) = (/&
+ & 4.8457E+00_JPRB,5.3158E+00_JPRB,1.0614E+01_JPRB,1.5912E+01_JPRB,2.1209E+01_JPRB,2.6503E+01_JPRB,&
+ & 3.1793E+01_JPRB,3.7075E+01_JPRB,4.0567E+01_JPRB,4.1384E+01_JPRB,4.1940E+01_JPRB/)  
+KAO( :, 4, 4,16) = (/&
+ & 4.7474E+00_JPRB,6.2334E+00_JPRB,1.2443E+01_JPRB,1.8652E+01_JPRB,2.4860E+01_JPRB,3.1065E+01_JPRB,&
+ & 3.7265E+01_JPRB,4.3443E+01_JPRB,4.7539E+01_JPRB,4.8495E+01_JPRB,4.9142E+01_JPRB/)  
+KAO( :, 5, 4,16) = (/&
+ & 4.6434E+00_JPRB,7.1705E+00_JPRB,1.4309E+01_JPRB,2.1448E+01_JPRB,2.8585E+01_JPRB,3.5719E+01_JPRB,&
+ & 4.2858E+01_JPRB,4.9961E+01_JPRB,5.4666E+01_JPRB,5.5776E+01_JPRB,5.6532E+01_JPRB/)  
+KAO( :, 1, 5,16) = (/&
+ & 5.9530E+00_JPRB,5.2090E+00_JPRB,7.3637E+00_JPRB,1.1041E+01_JPRB,1.4718E+01_JPRB,1.8396E+01_JPRB,&
+ & 2.2069E+01_JPRB,2.5729E+01_JPRB,2.8163E+01_JPRB,2.8740E+01_JPRB,2.9269E+01_JPRB/)  
+KAO( :, 2, 5,16) = (/&
+ & 5.7866E+00_JPRB,5.0634E+00_JPRB,9.2276E+00_JPRB,1.3835E+01_JPRB,1.8442E+01_JPRB,2.3049E+01_JPRB,&
+ & 2.7650E+01_JPRB,3.2234E+01_JPRB,3.5276E+01_JPRB,3.5999E+01_JPRB,3.6669E+01_JPRB/)  
+KAO( :, 3, 5,16) = (/&
+ & 5.6302E+00_JPRB,5.6178E+00_JPRB,1.1219E+01_JPRB,1.6821E+01_JPRB,2.2421E+01_JPRB,2.8019E+01_JPRB,&
+ & 3.3616E+01_JPRB,3.9189E+01_JPRB,4.2893E+01_JPRB,4.3778E+01_JPRB,4.4575E+01_JPRB/)  
+KAO( :, 4, 5,16) = (/&
+ & 5.4798E+00_JPRB,6.6656E+00_JPRB,1.3308E+01_JPRB,1.9950E+01_JPRB,2.6591E+01_JPRB,3.3229E+01_JPRB,&
+ & 3.9862E+01_JPRB,4.6471E+01_JPRB,5.0866E+01_JPRB,5.1930E+01_JPRB,5.2869E+01_JPRB/)  
+KAO( :, 5, 5,16) = (/&
+ & 5.3354E+00_JPRB,7.7467E+00_JPRB,1.5462E+01_JPRB,2.3177E+01_JPRB,3.0891E+01_JPRB,3.8601E+01_JPRB,&
+ & 4.6304E+01_JPRB,5.3986E+01_JPRB,5.9081E+01_JPRB,6.0310E+01_JPRB,6.1426E+01_JPRB/)  
+KAO( :, 1, 6,16) = (/&
+ & 7.2738E+00_JPRB,6.3646E+00_JPRB,7.3570E+00_JPRB,1.1032E+01_JPRB,1.4706E+01_JPRB,1.8378E+01_JPRB,&
+ & 2.2046E+01_JPRB,2.5711E+01_JPRB,2.8141E+01_JPRB,2.8729E+01_JPRB,2.9318E+01_JPRB/)  
+KAO( :, 2, 6,16) = (/&
+ & 7.0648E+00_JPRB,6.1818E+00_JPRB,9.4107E+00_JPRB,1.4112E+01_JPRB,1.8811E+01_JPRB,2.3508E+01_JPRB,&
+ & 2.8203E+01_JPRB,3.2879E+01_JPRB,3.5997E+01_JPRB,3.6754E+01_JPRB,3.7506E+01_JPRB/)  
+KAO( :, 3, 6,16) = (/&
+ & 6.8590E+00_JPRB,6.0610E+00_JPRB,1.1637E+01_JPRB,1.7447E+01_JPRB,2.3256E+01_JPRB,2.9066E+01_JPRB,&
+ & 3.4869E+01_JPRB,4.0663E+01_JPRB,4.4507E+01_JPRB,4.5454E+01_JPRB,4.6382E+01_JPRB/)  
+KAO( :, 4, 6,16) = (/&
+ & 6.6613E+00_JPRB,7.0109E+00_JPRB,1.4000E+01_JPRB,2.0989E+01_JPRB,2.7977E+01_JPRB,3.4961E+01_JPRB,&
+ & 4.1942E+01_JPRB,4.8903E+01_JPRB,5.3535E+01_JPRB,5.4670E+01_JPRB,5.5779E+01_JPRB/)  
+KAO( :, 5, 6,16) = (/&
+ & 6.4832E+00_JPRB,8.2415E+00_JPRB,1.6453E+01_JPRB,2.4664E+01_JPRB,3.2878E+01_JPRB,4.1086E+01_JPRB,&
+ & 4.9286E+01_JPRB,5.7462E+01_JPRB,6.2904E+01_JPRB,6.4241E+01_JPRB,6.5559E+01_JPRB/)  
+KAO( :, 1, 7,16) = (/&
+ & 8.8732E+00_JPRB,7.7641E+00_JPRB,7.2311E+00_JPRB,1.0833E+01_JPRB,1.4441E+01_JPRB,1.8048E+01_JPRB,&
+ & 2.1653E+01_JPRB,2.5247E+01_JPRB,2.7641E+01_JPRB,2.8229E+01_JPRB,2.8832E+01_JPRB/)  
+KAO( :, 2, 7,16) = (/&
+ & 8.6143E+00_JPRB,7.5376E+00_JPRB,9.4585E+00_JPRB,1.4183E+01_JPRB,1.8907E+01_JPRB,2.3629E+01_JPRB,&
+ & 2.8346E+01_JPRB,3.3048E+01_JPRB,3.6188E+01_JPRB,3.6968E+01_JPRB,3.7763E+01_JPRB/)  
+KAO( :, 3, 7,16) = (/&
+ & 8.3664E+00_JPRB,7.3209E+00_JPRB,1.1919E+01_JPRB,1.7872E+01_JPRB,2.3823E+01_JPRB,2.9773E+01_JPRB,&
+ & 3.5718E+01_JPRB,4.1638E+01_JPRB,4.5593E+01_JPRB,4.6590E+01_JPRB,4.7567E+01_JPRB/)  
+KAO( :, 4, 7,16) = (/&
+ & 8.1390E+00_JPRB,7.4468E+00_JPRB,1.4558E+01_JPRB,2.1826E+01_JPRB,2.9093E+01_JPRB,3.6357E+01_JPRB,&
+ & 4.3619E+01_JPRB,5.0854E+01_JPRB,5.5680E+01_JPRB,5.6904E+01_JPRB,5.8098E+01_JPRB/)  
+KAO( :, 5, 7,16) = (/&
+ & 7.9265E+00_JPRB,8.6774E+00_JPRB,1.7326E+01_JPRB,2.5975E+01_JPRB,3.4621E+01_JPRB,4.3265E+01_JPRB,&
+ & 5.1911E+01_JPRB,6.0538E+01_JPRB,6.6258E+01_JPRB,6.7733E+01_JPRB,6.9141E+01_JPRB/)  
+KAO( :, 1, 8,16) = (/&
+ & 1.0788E+01_JPRB,9.4395E+00_JPRB,8.0910E+00_JPRB,1.0487E+01_JPRB,1.3981E+01_JPRB,1.7474E+01_JPRB,&
+ & 2.0958E+01_JPRB,2.4442E+01_JPRB,2.6758E+01_JPRB,2.7356E+01_JPRB,2.7940E+01_JPRB/)  
+KAO( :, 2, 8,16) = (/&
+ & 1.0475E+01_JPRB,9.1659E+00_JPRB,9.3873E+00_JPRB,1.4077E+01_JPRB,1.8765E+01_JPRB,2.3452E+01_JPRB,&
+ & 2.8149E+01_JPRB,3.2822E+01_JPRB,3.5937E+01_JPRB,3.6740E+01_JPRB,3.7513E+01_JPRB/)  
+KAO( :, 3, 8,16) = (/&
+ & 1.0193E+01_JPRB,8.9191E+00_JPRB,1.2075E+01_JPRB,1.8106E+01_JPRB,2.4136E+01_JPRB,3.0164E+01_JPRB,&
+ & 3.6189E+01_JPRB,4.2205E+01_JPRB,4.6208E+01_JPRB,4.7253E+01_JPRB,4.8244E+01_JPRB/)  
+KAO( :, 4, 8,16) = (/&
+ & 9.9289E+00_JPRB,8.6882E+00_JPRB,1.4994E+01_JPRB,2.2482E+01_JPRB,2.9968E+01_JPRB,3.7453E+01_JPRB,&
+ & 4.4932E+01_JPRB,5.2391E+01_JPRB,5.7371E+01_JPRB,5.8661E+01_JPRB,5.9909E+01_JPRB/)  
+KAO( :, 5, 8,16) = (/&
+ & 9.6775E+00_JPRB,9.2158E+00_JPRB,1.8085E+01_JPRB,2.7113E+01_JPRB,3.6140E+01_JPRB,4.5163E+01_JPRB,&
+ & 5.4184E+01_JPRB,6.3203E+01_JPRB,6.9206E+01_JPRB,7.0757E+01_JPRB,7.2247E+01_JPRB/)  
+KAO( :, 1, 9,16) = (/&
+ & 1.3069E+01_JPRB,1.1436E+01_JPRB,9.8022E+00_JPRB,9.9694E+00_JPRB,1.3291E+01_JPRB,1.6611E+01_JPRB,&
+ & 1.9930E+01_JPRB,2.3243E+01_JPRB,2.5447E+01_JPRB,2.6029E+01_JPRB,2.6580E+01_JPRB/)  
+KAO( :, 2, 9,16) = (/&
+ & 1.2725E+01_JPRB,1.1134E+01_JPRB,9.8753E+00_JPRB,1.3769E+01_JPRB,1.8356E+01_JPRB,2.2942E+01_JPRB,&
+ & 2.7527E+01_JPRB,3.2095E+01_JPRB,3.5151E+01_JPRB,3.5948E+01_JPRB,3.6707E+01_JPRB/)  
+KAO( :, 3, 9,16) = (/&
+ & 1.2400E+01_JPRB,1.0851E+01_JPRB,1.2076E+01_JPRB,1.8109E+01_JPRB,2.4141E+01_JPRB,3.0170E+01_JPRB,&
+ & 3.6196E+01_JPRB,4.2203E+01_JPRB,4.6216E+01_JPRB,4.7284E+01_JPRB,4.8252E+01_JPRB/)  
+KAO( :, 4, 9,16) = (/&
+ & 1.2089E+01_JPRB,1.0578E+01_JPRB,1.5258E+01_JPRB,2.2878E+01_JPRB,3.0500E+01_JPRB,3.8117E+01_JPRB,&
+ & 4.5731E+01_JPRB,5.3326E+01_JPRB,5.8402E+01_JPRB,5.9748E+01_JPRB,6.0995E+01_JPRB/)  
+KAO( :, 5, 9,16) = (/&
+ & 1.1789E+01_JPRB,1.0434E+01_JPRB,1.8677E+01_JPRB,2.8005E+01_JPRB,3.7330E+01_JPRB,4.6652E+01_JPRB,&
+ & 5.5969E+01_JPRB,6.5258E+01_JPRB,7.1468E+01_JPRB,7.3124E+01_JPRB,7.4629E+01_JPRB/)  
+KAO( :, 1,10,16) = (/&
+ & 1.5771E+01_JPRB,1.3799E+01_JPRB,1.1828E+01_JPRB,1.0379E+01_JPRB,1.2776E+01_JPRB,1.5968E+01_JPRB,&
+ & 1.9158E+01_JPRB,2.2340E+01_JPRB,2.4469E+01_JPRB,2.5039E+01_JPRB,2.5553E+01_JPRB/)  
+KAO( :, 2,10,16) = (/&
+ & 1.5386E+01_JPRB,1.3463E+01_JPRB,1.1540E+01_JPRB,1.3590E+01_JPRB,1.8117E+01_JPRB,2.2643E+01_JPRB,&
+ & 2.7166E+01_JPRB,3.1679E+01_JPRB,3.4682E+01_JPRB,3.5507E+01_JPRB,3.6231E+01_JPRB/)  
+KAO( :, 3,10,16) = (/&
+ & 1.5014E+01_JPRB,1.3138E+01_JPRB,1.2638E+01_JPRB,1.8229E+01_JPRB,2.4305E+01_JPRB,3.0376E+01_JPRB,&
+ & 3.6447E+01_JPRB,4.2507E+01_JPRB,4.6554E+01_JPRB,4.7660E+01_JPRB,4.8617E+01_JPRB/)  
+KAO( :, 4,10,16) = (/&
+ & 1.4647E+01_JPRB,1.2816E+01_JPRB,1.5618E+01_JPRB,2.3419E+01_JPRB,3.1218E+01_JPRB,3.9016E+01_JPRB,&
+ & 4.6807E+01_JPRB,5.4591E+01_JPRB,5.9795E+01_JPRB,6.1215E+01_JPRB,6.2420E+01_JPRB/)  
+KAO( :, 5,10,16) = (/&
+ & 1.4280E+01_JPRB,1.2495E+01_JPRB,1.9355E+01_JPRB,2.9020E+01_JPRB,3.8692E+01_JPRB,4.8365E+01_JPRB,&
+ & 5.8042E+01_JPRB,6.7684E+01_JPRB,7.4123E+01_JPRB,7.5902E+01_JPRB,7.7369E+01_JPRB/)  
+KAO( :, 1,11,16) = (/&
+ & 1.8786E+01_JPRB,1.6438E+01_JPRB,1.4090E+01_JPRB,1.2331E+01_JPRB,1.4530E+01_JPRB,1.8160E+01_JPRB,&
+ & 2.1788E+01_JPRB,2.5406E+01_JPRB,2.7840E+01_JPRB,2.8505E+01_JPRB,3.1090E+01_JPRB/)  
+KAO( :, 2,11,16) = (/&
+ & 1.8352E+01_JPRB,1.6058E+01_JPRB,1.3764E+01_JPRB,1.5493E+01_JPRB,2.0554E+01_JPRB,2.5688E+01_JPRB,&
+ & 3.0819E+01_JPRB,3.5940E+01_JPRB,3.9370E+01_JPRB,4.0314E+01_JPRB,4.1103E+01_JPRB/)  
+KAO( :, 3,11,16) = (/&
+ & 1.7913E+01_JPRB,1.5674E+01_JPRB,1.4890E+01_JPRB,2.0637E+01_JPRB,2.7511E+01_JPRB,3.4389E+01_JPRB,&
+ & 4.1261E+01_JPRB,4.8114E+01_JPRB,5.2700E+01_JPRB,5.3986E+01_JPRB,5.5030E+01_JPRB/)  
+KAO( :, 4,11,16) = (/&
+ & 1.7463E+01_JPRB,1.5280E+01_JPRB,1.7784E+01_JPRB,2.6445E+01_JPRB,3.5253E+01_JPRB,4.4066E+01_JPRB,&
+ & 5.2867E+01_JPRB,6.1654E+01_JPRB,6.7542E+01_JPRB,6.9213E+01_JPRB,7.0519E+01_JPRB/)  
+KAO( :, 5,11,16) = (/&
+ & 1.7011E+01_JPRB,1.4885E+01_JPRB,2.1813E+01_JPRB,3.2706E+01_JPRB,4.3599E+01_JPRB,5.4495E+01_JPRB,&
+ & 6.5377E+01_JPRB,7.6235E+01_JPRB,8.3536E+01_JPRB,8.5586E+01_JPRB,8.7197E+01_JPRB/)  
+KAO( :, 1,12,16) = (/&
+ & 2.2316E+01_JPRB,1.9527E+01_JPRB,1.6737E+01_JPRB,1.4596E+01_JPRB,1.6461E+01_JPRB,2.0474E+01_JPRB,&
+ & 2.4566E+01_JPRB,2.8661E+01_JPRB,3.1410E+01_JPRB,3.2180E+01_JPRB,4.4855E+01_JPRB/)  
+KAO( :, 2,12,16) = (/&
+ & 2.1794E+01_JPRB,1.9070E+01_JPRB,1.6346E+01_JPRB,1.7861E+01_JPRB,2.3106E+01_JPRB,2.8879E+01_JPRB,&
+ & 3.4647E+01_JPRB,4.0407E+01_JPRB,4.4277E+01_JPRB,4.5382E+01_JPRB,4.9760E+01_JPRB/)  
+KAO( :, 3,12,16) = (/&
+ & 2.1250E+01_JPRB,1.8594E+01_JPRB,1.7508E+01_JPRB,2.3135E+01_JPRB,3.0842E+01_JPRB,3.8557E+01_JPRB,&
+ & 4.6258E+01_JPRB,5.3944E+01_JPRB,5.9113E+01_JPRB,6.0595E+01_JPRB,6.2174E+01_JPRB/)  
+KAO( :, 4,12,16) = (/&
+ & 2.0691E+01_JPRB,1.8105E+01_JPRB,2.0448E+01_JPRB,2.9564E+01_JPRB,3.9416E+01_JPRB,4.9267E+01_JPRB,&
+ & 5.9115E+01_JPRB,6.8938E+01_JPRB,7.5537E+01_JPRB,7.7449E+01_JPRB,7.8830E+01_JPRB/)  
+KAO( :, 5,12,16) = (/&
+ & 2.0116E+01_JPRB,1.7618E+01_JPRB,2.4414E+01_JPRB,3.6468E+01_JPRB,4.8613E+01_JPRB,6.0754E+01_JPRB,&
+ & 7.2909E+01_JPRB,8.5015E+01_JPRB,9.3174E+01_JPRB,9.5539E+01_JPRB,9.7222E+01_JPRB/)  
+KAO( :, 1,13,16) = (/&
+ & 2.6369E+01_JPRB,2.3073E+01_JPRB,1.9777E+01_JPRB,1.7264E+01_JPRB,1.8821E+01_JPRB,2.2830E+01_JPRB,&
+ & 2.7390E+01_JPRB,3.1940E+01_JPRB,3.5002E+01_JPRB,3.5903E+01_JPRB,5.1967E+01_JPRB/)  
+KAO( :, 2,13,16) = (/&
+ & 2.5711E+01_JPRB,2.2497E+01_JPRB,1.9315E+01_JPRB,2.0637E+01_JPRB,2.5666E+01_JPRB,3.2078E+01_JPRB,&
+ & 3.8490E+01_JPRB,4.4893E+01_JPRB,4.9192E+01_JPRB,5.0468E+01_JPRB,5.7721E+01_JPRB/)  
+KAO( :, 3,13,16) = (/&
+ & 2.5020E+01_JPRB,2.1893E+01_JPRB,2.0597E+01_JPRB,2.5898E+01_JPRB,3.4157E+01_JPRB,4.2689E+01_JPRB,&
+ & 5.1216E+01_JPRB,5.9737E+01_JPRB,6.5448E+01_JPRB,6.7176E+01_JPRB,7.0449E+01_JPRB/)  
+KAO( :, 4,13,16) = (/&
+ & 2.4297E+01_JPRB,2.1260E+01_JPRB,2.3512E+01_JPRB,3.2642E+01_JPRB,4.3514E+01_JPRB,5.4385E+01_JPRB,&
+ & 6.5247E+01_JPRB,7.6086E+01_JPRB,8.3406E+01_JPRB,8.5607E+01_JPRB,8.7331E+01_JPRB/)  
+KAO( :, 5,13,16) = (/&
+ & 2.3576E+01_JPRB,2.0739E+01_JPRB,2.7492E+01_JPRB,4.0149E+01_JPRB,5.3519E+01_JPRB,6.6886E+01_JPRB,&
+ & 8.0252E+01_JPRB,9.3599E+01_JPRB,1.0259E+02_JPRB,1.0529E+02_JPRB,1.0701E+02_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART11',1,ZHOOK_HANDLE)
+END SUBROUTINE PART11
+
+
+SUBROUTINE PART12
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART12',0,ZHOOK_HANDLE)
+
+
+!     The array KBO contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels < ~100mb and temperatures. The first 
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this pressure 
+!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for
+!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  
+!     The second index, JP, runs from 13 to 59 and refers to the JPth
+!     reference pressure level (see taumol.f for the value of these
+!     pressure levels in mb).  The third index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+
+KBO( :,13, 1) = (/&
+ & 4.0994E-03_JPRB,5.0728E-03_JPRB,6.1420E-03_JPRB,7.2969E-03_JPRB,8.5215E-03_JPRB/)  
+KBO( :,14, 1) = (/&
+ & 3.5608E-03_JPRB,4.4025E-03_JPRB,5.3259E-03_JPRB,6.3236E-03_JPRB,7.3838E-03_JPRB/)  
+KBO( :,15, 1) = (/&
+ & 3.1441E-03_JPRB,3.8833E-03_JPRB,4.6911E-03_JPRB,5.5651E-03_JPRB,6.4864E-03_JPRB/)  
+KBO( :,16, 1) = (/&
+ & 2.7804E-03_JPRB,3.4263E-03_JPRB,4.1318E-03_JPRB,4.8903E-03_JPRB,5.6839E-03_JPRB/)  
+KBO( :,17, 1) = (/&
+ & 2.5177E-03_JPRB,3.0931E-03_JPRB,3.7229E-03_JPRB,4.3958E-03_JPRB,5.0932E-03_JPRB/)  
+KBO( :,18, 1) = (/&
+ & 2.3397E-03_JPRB,2.8662E-03_JPRB,3.4383E-03_JPRB,4.0476E-03_JPRB,4.6762E-03_JPRB/)  
+KBO( :,19, 1) = (/&
+ & 2.2067E-03_JPRB,2.6944E-03_JPRB,3.2196E-03_JPRB,3.7730E-03_JPRB,4.3369E-03_JPRB/)  
+KBO( :,20, 1) = (/&
+ & 1.9900E-03_JPRB,2.4229E-03_JPRB,2.8861E-03_JPRB,3.3669E-03_JPRB,3.8498E-03_JPRB/)  
+KBO( :,21, 1) = (/&
+ & 1.7699E-03_JPRB,2.1476E-03_JPRB,2.5489E-03_JPRB,2.9591E-03_JPRB,3.3696E-03_JPRB/)  
+KBO( :,22, 1) = (/&
+ & 1.5791E-03_JPRB,1.9073E-03_JPRB,2.2490E-03_JPRB,2.5953E-03_JPRB,2.9423E-03_JPRB/)  
+KBO( :,23, 1) = (/&
+ & 1.4083E-03_JPRB,1.6913E-03_JPRB,1.9813E-03_JPRB,2.2728E-03_JPRB,2.5656E-03_JPRB/)  
+KBO( :,24, 1) = (/&
+ & 1.2531E-03_JPRB,1.4945E-03_JPRB,1.7386E-03_JPRB,1.9824E-03_JPRB,2.2278E-03_JPRB/)  
+KBO( :,25, 1) = (/&
+ & 1.1116E-03_JPRB,1.3151E-03_JPRB,1.5192E-03_JPRB,1.7227E-03_JPRB,1.9286E-03_JPRB/)  
+KBO( :,26, 1) = (/&
+ & 9.8108E-04_JPRB,1.1510E-03_JPRB,1.3208E-03_JPRB,1.4915E-03_JPRB,1.6636E-03_JPRB/)  
+KBO( :,27, 1) = (/&
+ & 8.5741E-04_JPRB,9.9814E-04_JPRB,1.1394E-03_JPRB,1.2818E-03_JPRB,1.4244E-03_JPRB/)  
+KBO( :,28, 1) = (/&
+ & 7.4362E-04_JPRB,8.5993E-04_JPRB,9.7672E-04_JPRB,1.0942E-03_JPRB,1.2112E-03_JPRB/)  
+KBO( :,29, 1) = (/&
+ & 6.4173E-04_JPRB,7.3787E-04_JPRB,8.3430E-04_JPRB,9.3077E-04_JPRB,1.0275E-03_JPRB/)  
+KBO( :,30, 1) = (/&
+ & 5.5206E-04_JPRB,6.3117E-04_JPRB,7.1043E-04_JPRB,7.8981E-04_JPRB,8.6914E-04_JPRB/)  
+KBO( :,31, 1) = (/&
+ & 4.7282E-04_JPRB,5.3772E-04_JPRB,6.0295E-04_JPRB,6.6810E-04_JPRB,7.3341E-04_JPRB/)  
+KBO( :,32, 1) = (/&
+ & 4.0428E-04_JPRB,4.5779E-04_JPRB,5.1149E-04_JPRB,5.6525E-04_JPRB,6.1880E-04_JPRB/)  
+KBO( :,33, 1) = (/&
+ & 3.4491E-04_JPRB,3.8913E-04_JPRB,4.3344E-04_JPRB,4.7736E-04_JPRB,5.2088E-04_JPRB/)  
+KBO( :,34, 1) = (/&
+ & 2.9576E-04_JPRB,3.3268E-04_JPRB,3.6928E-04_JPRB,4.0567E-04_JPRB,4.4172E-04_JPRB/)  
+KBO( :,35, 1) = (/&
+ & 2.5077E-04_JPRB,2.8136E-04_JPRB,3.1174E-04_JPRB,3.4190E-04_JPRB,3.7190E-04_JPRB/)  
+KBO( :,36, 1) = (/&
+ & 2.0965E-04_JPRB,2.3515E-04_JPRB,2.6041E-04_JPRB,2.8542E-04_JPRB,3.1056E-04_JPRB/)  
+KBO( :,37, 1) = (/&
+ & 1.6881E-04_JPRB,1.8974E-04_JPRB,2.1051E-04_JPRB,2.3106E-04_JPRB,2.5174E-04_JPRB/)  
+KBO( :,38, 1) = (/&
+ & 1.3519E-04_JPRB,1.5238E-04_JPRB,1.6942E-04_JPRB,1.8630E-04_JPRB,2.0323E-04_JPRB/)  
+KBO( :,39, 1) = (/&
+ & 1.0769E-04_JPRB,1.2175E-04_JPRB,1.3571E-04_JPRB,1.4957E-04_JPRB,1.6341E-04_JPRB/)  
+KBO( :,40, 1) = (/&
+ & 8.3659E-05_JPRB,9.4997E-05_JPRB,1.0624E-04_JPRB,1.1742E-04_JPRB,1.2854E-04_JPRB/)  
+KBO( :,41, 1) = (/&
+ & 6.4553E-05_JPRB,7.3658E-05_JPRB,8.2687E-05_JPRB,9.1644E-05_JPRB,1.0055E-04_JPRB/)  
+KBO( :,42, 1) = (/&
+ & 4.9559E-05_JPRB,5.6844E-05_JPRB,6.4074E-05_JPRB,7.1250E-05_JPRB,7.8380E-05_JPRB/)  
+KBO( :,43, 1) = (/&
+ & 3.7325E-05_JPRB,4.3138E-05_JPRB,4.8889E-05_JPRB,5.4599E-05_JPRB,6.0264E-05_JPRB/)  
+KBO( :,44, 1) = (/&
+ & 2.7719E-05_JPRB,3.2330E-05_JPRB,3.6894E-05_JPRB,4.1410E-05_JPRB,4.5899E-05_JPRB/)  
+KBO( :,45, 1) = (/&
+ & 2.0321E-05_JPRB,2.3995E-05_JPRB,2.7586E-05_JPRB,3.1159E-05_JPRB,3.4704E-05_JPRB/)  
+KBO( :,46, 1) = (/&
+ & 1.4684E-05_JPRB,1.7602E-05_JPRB,2.0438E-05_JPRB,2.3255E-05_JPRB,2.6055E-05_JPRB/)  
+KBO( :,47, 1) = (/&
+ & 1.0495E-05_JPRB,1.2761E-05_JPRB,1.5036E-05_JPRB,1.7255E-05_JPRB,1.9472E-05_JPRB/)  
+KBO( :,48, 1) = (/&
+ & 7.3772E-06_JPRB,9.1061E-06_JPRB,1.0897E-05_JPRB,1.2655E-05_JPRB,1.4395E-05_JPRB/)  
+KBO( :,49, 1) = (/&
+ & 5.0673E-06_JPRB,6.3724E-06_JPRB,7.7347E-06_JPRB,9.1249E-06_JPRB,1.0486E-05_JPRB/)  
+KBO( :,50, 1) = (/&
+ & 3.5302E-06_JPRB,4.5180E-06_JPRB,5.5663E-06_JPRB,6.6492E-06_JPRB,7.7336E-06_JPRB/)  
+KBO( :,51, 1) = (/&
+ & 2.4650E-06_JPRB,3.2117E-06_JPRB,4.0196E-06_JPRB,4.8590E-06_JPRB,5.7209E-06_JPRB/)  
+KBO( :,52, 1) = (/&
+ & 1.6959E-06_JPRB,2.2491E-06_JPRB,2.8606E-06_JPRB,3.5081E-06_JPRB,4.1772E-06_JPRB/)  
+KBO( :,53, 1) = (/&
+ & 1.1461E-06_JPRB,1.5466E-06_JPRB,1.9999E-06_JPRB,2.4909E-06_JPRB,3.0024E-06_JPRB/)  
+KBO( :,54, 1) = (/&
+ & 8.1277E-07_JPRB,1.1151E-06_JPRB,1.4623E-06_JPRB,1.8438E-06_JPRB,2.2473E-06_JPRB/)  
+KBO( :,55, 1) = (/&
+ & 5.9132E-07_JPRB,8.2491E-07_JPRB,1.0964E-06_JPRB,1.3990E-06_JPRB,1.7223E-06_JPRB/)  
+KBO( :,56, 1) = (/&
+ & 4.2770E-07_JPRB,6.0720E-07_JPRB,8.1863E-07_JPRB,1.0577E-06_JPRB,1.3158E-06_JPRB/)  
+KBO( :,57, 1) = (/&
+ & 3.0731E-07_JPRB,4.4442E-07_JPRB,6.0841E-07_JPRB,7.9635E-07_JPRB,1.0017E-06_JPRB/)  
+KBO( :,58, 1) = (/&
+ & 2.2286E-07_JPRB,3.2839E-07_JPRB,4.5650E-07_JPRB,6.0508E-07_JPRB,7.6969E-07_JPRB/)  
+KBO( :,59, 1) = (/&
+ & 1.8935E-07_JPRB,2.8208E-07_JPRB,3.9434E-07_JPRB,5.2454E-07_JPRB,6.6793E-07_JPRB/)  
+KBO( :,13, 2) = (/&
+ & 2.0350E-02_JPRB,2.3737E-02_JPRB,2.7056E-02_JPRB,3.0424E-02_JPRB,3.3880E-02_JPRB/)  
+KBO( :,14, 2) = (/&
+ & 1.7887E-02_JPRB,2.0698E-02_JPRB,2.3474E-02_JPRB,2.6314E-02_JPRB,2.9218E-02_JPRB/)  
+KBO( :,15, 2) = (/&
+ & 1.5699E-02_JPRB,1.8063E-02_JPRB,2.0419E-02_JPRB,2.2807E-02_JPRB,2.5263E-02_JPRB/)  
+KBO( :,16, 2) = (/&
+ & 1.3704E-02_JPRB,1.5696E-02_JPRB,1.7682E-02_JPRB,1.9683E-02_JPRB,2.1758E-02_JPRB/)  
+KBO( :,17, 2) = (/&
+ & 1.2174E-02_JPRB,1.3873E-02_JPRB,1.5565E-02_JPRB,1.7279E-02_JPRB,1.9055E-02_JPRB/)  
+KBO( :,18, 2) = (/&
+ & 1.1051E-02_JPRB,1.2529E-02_JPRB,1.4014E-02_JPRB,1.5532E-02_JPRB,1.7091E-02_JPRB/)  
+KBO( :,19, 2) = (/&
+ & 1.0133E-02_JPRB,1.1442E-02_JPRB,1.2772E-02_JPRB,1.4145E-02_JPRB,1.5532E-02_JPRB/)  
+KBO( :,20, 2) = (/&
+ & 8.9501E-03_JPRB,1.0074E-02_JPRB,1.1232E-02_JPRB,1.2420E-02_JPRB,1.3612E-02_JPRB/)  
+KBO( :,21, 2) = (/&
+ & 7.8061E-03_JPRB,8.7666E-03_JPRB,9.7638E-03_JPRB,1.0776E-02_JPRB,1.1786E-02_JPRB/)  
+KBO( :,22, 2) = (/&
+ & 6.7985E-03_JPRB,7.6154E-03_JPRB,8.4665E-03_JPRB,9.3161E-03_JPRB,1.0161E-02_JPRB/)  
+KBO( :,23, 2) = (/&
+ & 5.9115E-03_JPRB,6.6091E-03_JPRB,7.3264E-03_JPRB,8.0410E-03_JPRB,8.7466E-03_JPRB/)  
+KBO( :,24, 2) = (/&
+ & 5.1182E-03_JPRB,5.7070E-03_JPRB,6.3037E-03_JPRB,6.8969E-03_JPRB,7.4832E-03_JPRB/)  
+KBO( :,25, 2) = (/&
+ & 4.4185E-03_JPRB,4.9117E-03_JPRB,5.4043E-03_JPRB,5.8933E-03_JPRB,6.3802E-03_JPRB/)  
+KBO( :,26, 2) = (/&
+ & 3.8039E-03_JPRB,4.2126E-03_JPRB,4.6157E-03_JPRB,5.0191E-03_JPRB,5.4221E-03_JPRB/)  
+KBO( :,27, 2) = (/&
+ & 3.2526E-03_JPRB,3.5834E-03_JPRB,3.9131E-03_JPRB,4.2430E-03_JPRB,4.5744E-03_JPRB/)  
+KBO( :,28, 2) = (/&
+ & 2.7589E-03_JPRB,3.0253E-03_JPRB,3.2916E-03_JPRB,3.5602E-03_JPRB,3.8315E-03_JPRB/)  
+KBO( :,29, 2) = (/&
+ & 2.3366E-03_JPRB,2.5520E-03_JPRB,2.7694E-03_JPRB,2.9896E-03_JPRB,3.2113E-03_JPRB/)  
+KBO( :,30, 2) = (/&
+ & 1.9721E-03_JPRB,2.1482E-03_JPRB,2.3261E-03_JPRB,2.5062E-03_JPRB,2.6880E-03_JPRB/)  
+KBO( :,31, 2) = (/&
+ & 1.6646E-03_JPRB,1.8093E-03_JPRB,1.9562E-03_JPRB,2.1055E-03_JPRB,2.2560E-03_JPRB/)  
+KBO( :,32, 2) = (/&
+ & 1.4084E-03_JPRB,1.5283E-03_JPRB,1.6508E-03_JPRB,1.7751E-03_JPRB,1.9009E-03_JPRB/)  
+KBO( :,33, 2) = (/&
+ & 1.1942E-03_JPRB,1.2940E-03_JPRB,1.3964E-03_JPRB,1.5007E-03_JPRB,1.6067E-03_JPRB/)  
+KBO( :,34, 2) = (/&
+ & 1.0227E-03_JPRB,1.1075E-03_JPRB,1.1945E-03_JPRB,1.2830E-03_JPRB,1.3735E-03_JPRB/)  
+KBO( :,35, 2) = (/&
+ & 8.7018E-04_JPRB,9.4216E-04_JPRB,1.0160E-03_JPRB,1.0916E-03_JPRB,1.1695E-03_JPRB/)  
+KBO( :,36, 2) = (/&
+ & 7.3515E-04_JPRB,7.9615E-04_JPRB,8.5904E-04_JPRB,9.2392E-04_JPRB,9.9055E-04_JPRB/)  
+KBO( :,37, 2) = (/&
+ & 6.0212E-04_JPRB,6.5252E-04_JPRB,7.0452E-04_JPRB,7.5835E-04_JPRB,8.1370E-04_JPRB/)  
+KBO( :,38, 2) = (/&
+ & 4.9188E-04_JPRB,5.3334E-04_JPRB,5.7632E-04_JPRB,6.2087E-04_JPRB,6.6682E-04_JPRB/)  
+KBO( :,39, 2) = (/&
+ & 4.0118E-04_JPRB,4.3525E-04_JPRB,4.7078E-04_JPRB,5.0765E-04_JPRB,5.4579E-04_JPRB/)  
+KBO( :,40, 2) = (/&
+ & 3.1804E-04_JPRB,3.4535E-04_JPRB,3.7372E-04_JPRB,4.0332E-04_JPRB,4.3403E-04_JPRB/)  
+KBO( :,41, 2) = (/&
+ & 2.5079E-04_JPRB,2.7257E-04_JPRB,2.9509E-04_JPRB,3.1873E-04_JPRB,3.4326E-04_JPRB/)  
+KBO( :,42, 2) = (/&
+ & 1.9734E-04_JPRB,2.1467E-04_JPRB,2.3255E-04_JPRB,2.5134E-04_JPRB,2.7095E-04_JPRB/)  
+KBO( :,43, 2) = (/&
+ & 1.5339E-04_JPRB,1.6697E-04_JPRB,1.8107E-04_JPRB,1.9578E-04_JPRB,2.1125E-04_JPRB/)  
+KBO( :,44, 2) = (/&
+ & 1.1845E-04_JPRB,1.2903E-04_JPRB,1.4006E-04_JPRB,1.5150E-04_JPRB,1.6358E-04_JPRB/)  
+KBO( :,45, 2) = (/&
+ & 9.1280E-05_JPRB,9.9479E-05_JPRB,1.0807E-04_JPRB,1.1698E-04_JPRB,1.2633E-04_JPRB/)  
+KBO( :,46, 2) = (/&
+ & 7.0194E-05_JPRB,7.6516E-05_JPRB,8.3188E-05_JPRB,9.0126E-05_JPRB,9.7367E-05_JPRB/)  
+KBO( :,47, 2) = (/&
+ & 5.3867E-05_JPRB,5.8795E-05_JPRB,6.3952E-05_JPRB,6.9343E-05_JPRB,7.4969E-05_JPRB/)  
+KBO( :,48, 2) = (/&
+ & 4.1189E-05_JPRB,4.5058E-05_JPRB,4.9041E-05_JPRB,5.3206E-05_JPRB,5.7575E-05_JPRB/)  
+KBO( :,49, 2) = (/&
+ & 3.1341E-05_JPRB,3.4382E-05_JPRB,3.7483E-05_JPRB,4.0694E-05_JPRB,4.4051E-05_JPRB/)  
+KBO( :,50, 2) = (/&
+ & 2.4027E-05_JPRB,2.6443E-05_JPRB,2.8884E-05_JPRB,3.1394E-05_JPRB,3.3991E-05_JPRB/)  
+KBO( :,51, 2) = (/&
+ & 1.8468E-05_JPRB,2.0396E-05_JPRB,2.2328E-05_JPRB,2.4296E-05_JPRB,2.6326E-05_JPRB/)  
+KBO( :,52, 2) = (/&
+ & 1.4146E-05_JPRB,1.5676E-05_JPRB,1.7214E-05_JPRB,1.8760E-05_JPRB,2.0350E-05_JPRB/)  
+KBO( :,53, 2) = (/&
+ & 1.0781E-05_JPRB,1.1992E-05_JPRB,1.3217E-05_JPRB,1.4439E-05_JPRB,1.5682E-05_JPRB/)  
+KBO( :,54, 2) = (/&
+ & 8.3350E-06_JPRB,9.3049E-06_JPRB,1.0280E-05_JPRB,1.1258E-05_JPRB,1.2239E-05_JPRB/)  
+KBO( :,55, 2) = (/&
+ & 6.4823E-06_JPRB,7.2753E-06_JPRB,8.0542E-06_JPRB,8.8375E-06_JPRB,9.6163E-06_JPRB/)  
+KBO( :,56, 2) = (/&
+ & 5.0178E-06_JPRB,5.6802E-06_JPRB,6.3041E-06_JPRB,6.9292E-06_JPRB,7.5496E-06_JPRB/)  
+KBO( :,57, 2) = (/&
+ & 3.8663E-06_JPRB,4.4221E-06_JPRB,4.9273E-06_JPRB,5.4254E-06_JPRB,5.9221E-06_JPRB/)  
+KBO( :,58, 2) = (/&
+ & 2.9804E-06_JPRB,3.4457E-06_JPRB,3.8617E-06_JPRB,4.2609E-06_JPRB,4.6580E-06_JPRB/)  
+KBO( :,59, 2) = (/&
+ & 2.4280E-06_JPRB,2.8160E-06_JPRB,3.1595E-06_JPRB,3.4836E-06_JPRB,3.8045E-06_JPRB/)  
+KBO( :,13, 3) = (/&
+ & 5.2207E-02_JPRB,5.8218E-02_JPRB,6.4867E-02_JPRB,7.1854E-02_JPRB,7.9269E-02_JPRB/)  
+KBO( :,14, 3) = (/&
+ & 4.5186E-02_JPRB,5.0511E-02_JPRB,5.6225E-02_JPRB,6.2140E-02_JPRB,6.8380E-02_JPRB/)  
+KBO( :,15, 3) = (/&
+ & 3.9072E-02_JPRB,4.3588E-02_JPRB,4.8378E-02_JPRB,5.3369E-02_JPRB,5.8579E-02_JPRB/)  
+KBO( :,16, 3) = (/&
+ & 3.3600E-02_JPRB,3.7414E-02_JPRB,4.1420E-02_JPRB,4.5603E-02_JPRB,4.9920E-02_JPRB/)  
+KBO( :,17, 3) = (/&
+ & 2.9352E-02_JPRB,3.2637E-02_JPRB,3.6077E-02_JPRB,3.9644E-02_JPRB,4.3315E-02_JPRB/)  
+KBO( :,18, 3) = (/&
+ & 2.6239E-02_JPRB,2.9170E-02_JPRB,3.2236E-02_JPRB,3.5401E-02_JPRB,3.8652E-02_JPRB/)  
+KBO( :,19, 3) = (/&
+ & 2.3733E-02_JPRB,2.6395E-02_JPRB,2.9161E-02_JPRB,3.2005E-02_JPRB,3.4969E-02_JPRB/)  
+KBO( :,20, 3) = (/&
+ & 2.0795E-02_JPRB,2.3131E-02_JPRB,2.5535E-02_JPRB,2.8011E-02_JPRB,3.0599E-02_JPRB/)  
+KBO( :,21, 3) = (/&
+ & 1.8040E-02_JPRB,2.0057E-02_JPRB,2.2116E-02_JPRB,2.4262E-02_JPRB,2.6478E-02_JPRB/)  
+KBO( :,22, 3) = (/&
+ & 1.5612E-02_JPRB,1.7322E-02_JPRB,1.9070E-02_JPRB,2.0895E-02_JPRB,2.2752E-02_JPRB/)  
+KBO( :,23, 3) = (/&
+ & 1.3484E-02_JPRB,1.4923E-02_JPRB,1.6411E-02_JPRB,1.7947E-02_JPRB,1.9492E-02_JPRB/)  
+KBO( :,24, 3) = (/&
+ & 1.1550E-02_JPRB,1.2744E-02_JPRB,1.3987E-02_JPRB,1.5260E-02_JPRB,1.6517E-02_JPRB/)  
+KBO( :,25, 3) = (/&
+ & 9.8605E-03_JPRB,1.0848E-02_JPRB,1.1882E-02_JPRB,1.2919E-02_JPRB,1.3956E-02_JPRB/)  
+KBO( :,26, 3) = (/&
+ & 8.3958E-03_JPRB,9.2176E-03_JPRB,1.0068E-02_JPRB,1.0918E-02_JPRB,1.1783E-02_JPRB/)  
+KBO( :,27, 3) = (/&
+ & 7.0886E-03_JPRB,7.7689E-03_JPRB,8.4604E-03_JPRB,9.1621E-03_JPRB,9.8810E-03_JPRB/)  
+KBO( :,28, 3) = (/&
+ & 5.9371E-03_JPRB,6.4915E-03_JPRB,7.0594E-03_JPRB,7.6411E-03_JPRB,8.2339E-03_JPRB/)  
+KBO( :,29, 3) = (/&
+ & 4.9851E-03_JPRB,5.4425E-03_JPRB,5.9143E-03_JPRB,6.3959E-03_JPRB,6.8922E-03_JPRB/)  
+KBO( :,30, 3) = (/&
+ & 4.1812E-03_JPRB,4.5627E-03_JPRB,4.9527E-03_JPRB,5.3553E-03_JPRB,5.7728E-03_JPRB/)  
+KBO( :,31, 3) = (/&
+ & 3.5208E-03_JPRB,3.8377E-03_JPRB,4.1624E-03_JPRB,4.5005E-03_JPRB,4.8529E-03_JPRB/)  
+KBO( :,32, 3) = (/&
+ & 2.9794E-03_JPRB,3.2434E-03_JPRB,3.5171E-03_JPRB,3.8033E-03_JPRB,4.1013E-03_JPRB/)  
+KBO( :,33, 3) = (/&
+ & 2.5298E-03_JPRB,2.7525E-03_JPRB,2.9853E-03_JPRB,3.2295E-03_JPRB,3.4800E-03_JPRB/)  
+KBO( :,34, 3) = (/&
+ & 2.1748E-03_JPRB,2.3658E-03_JPRB,2.5669E-03_JPRB,2.7771E-03_JPRB,2.9911E-03_JPRB/)  
+KBO( :,35, 3) = (/&
+ & 1.8567E-03_JPRB,2.0216E-03_JPRB,2.1956E-03_JPRB,2.3760E-03_JPRB,2.5595E-03_JPRB/)  
+KBO( :,36, 3) = (/&
+ & 1.5731E-03_JPRB,1.7153E-03_JPRB,1.8654E-03_JPRB,2.0205E-03_JPRB,2.1791E-03_JPRB/)  
+KBO( :,37, 3) = (/&
+ & 1.2933E-03_JPRB,1.4114E-03_JPRB,1.5364E-03_JPRB,1.6658E-03_JPRB,1.7984E-03_JPRB/)  
+KBO( :,38, 3) = (/&
+ & 1.0616E-03_JPRB,1.1594E-03_JPRB,1.2634E-03_JPRB,1.3712E-03_JPRB,1.4820E-03_JPRB/)  
+KBO( :,39, 3) = (/&
+ & 8.7125E-04_JPRB,9.5245E-04_JPRB,1.0387E-03_JPRB,1.1287E-03_JPRB,1.2213E-03_JPRB/)  
+KBO( :,40, 3) = (/&
+ & 6.9327E-04_JPRB,7.5826E-04_JPRB,8.2752E-04_JPRB,8.9995E-04_JPRB,9.7479E-04_JPRB/)  
+KBO( :,41, 3) = (/&
+ & 5.4868E-04_JPRB,6.0043E-04_JPRB,6.5570E-04_JPRB,7.1362E-04_JPRB,7.7402E-04_JPRB/)  
+KBO( :,42, 3) = (/&
+ & 4.3350E-04_JPRB,4.7475E-04_JPRB,5.1866E-04_JPRB,5.6496E-04_JPRB,6.1339E-04_JPRB/)  
+KBO( :,43, 3) = (/&
+ & 3.3831E-04_JPRB,3.7074E-04_JPRB,4.0518E-04_JPRB,4.4169E-04_JPRB,4.7994E-04_JPRB/)  
+KBO( :,44, 3) = (/&
+ & 2.6244E-04_JPRB,2.8770E-04_JPRB,3.1459E-04_JPRB,3.4301E-04_JPRB,3.7299E-04_JPRB/)  
+KBO( :,45, 3) = (/&
+ & 2.0330E-04_JPRB,2.2282E-04_JPRB,2.4376E-04_JPRB,2.6587E-04_JPRB,2.8931E-04_JPRB/)  
+KBO( :,46, 3) = (/&
+ & 1.5718E-04_JPRB,1.7223E-04_JPRB,1.8847E-04_JPRB,2.0565E-04_JPRB,2.2386E-04_JPRB/)  
+KBO( :,47, 3) = (/&
+ & 1.2137E-04_JPRB,1.3292E-04_JPRB,1.4544E-04_JPRB,1.5881E-04_JPRB,1.7290E-04_JPRB/)  
+KBO( :,48, 3) = (/&
+ & 9.3602E-05_JPRB,1.0245E-04_JPRB,1.1206E-04_JPRB,1.2242E-04_JPRB,1.3333E-04_JPRB/)  
+KBO( :,49, 3) = (/&
+ & 7.2096E-05_JPRB,7.8857E-05_JPRB,8.6198E-05_JPRB,9.4146E-05_JPRB,1.0259E-04_JPRB/)  
+KBO( :,50, 3) = (/&
+ & 5.5913E-05_JPRB,6.1131E-05_JPRB,6.6766E-05_JPRB,7.2901E-05_JPRB,7.9460E-05_JPRB/)  
+KBO( :,51, 3) = (/&
+ & 4.3511E-05_JPRB,4.7559E-05_JPRB,5.1896E-05_JPRB,5.6624E-05_JPRB,6.1713E-05_JPRB/)  
+KBO( :,52, 3) = (/&
+ & 3.3817E-05_JPRB,3.6967E-05_JPRB,4.0308E-05_JPRB,4.3936E-05_JPRB,4.7870E-05_JPRB/)  
+KBO( :,53, 3) = (/&
+ & 2.6251E-05_JPRB,2.8701E-05_JPRB,3.1278E-05_JPRB,3.4055E-05_JPRB,3.7076E-05_JPRB/)  
+KBO( :,54, 3) = (/&
+ & 2.0565E-05_JPRB,2.2472E-05_JPRB,2.4493E-05_JPRB,2.6647E-05_JPRB,2.8987E-05_JPRB/)  
+KBO( :,55, 3) = (/&
+ & 1.6201E-05_JPRB,1.7665E-05_JPRB,1.9265E-05_JPRB,2.0950E-05_JPRB,2.2778E-05_JPRB/)  
+KBO( :,56, 3) = (/&
+ & 1.2781E-05_JPRB,1.3883E-05_JPRB,1.5142E-05_JPRB,1.6468E-05_JPRB,1.7890E-05_JPRB/)  
+KBO( :,57, 3) = (/&
+ & 1.0089E-05_JPRB,1.0916E-05_JPRB,1.1894E-05_JPRB,1.2940E-05_JPRB,1.4042E-05_JPRB/)  
+KBO( :,58, 3) = (/&
+ & 7.9784E-06_JPRB,8.6088E-06_JPRB,9.3610E-06_JPRB,1.0185E-05_JPRB,1.1049E-05_JPRB/)  
+KBO( :,59, 3) = (/&
+ & 6.4510E-06_JPRB,6.9647E-06_JPRB,7.5759E-06_JPRB,8.2439E-06_JPRB,8.9478E-06_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART12',1,ZHOOK_HANDLE)
+END SUBROUTINE PART12
+
+
+SUBROUTINE PART13
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART13',0,ZHOOK_HANDLE)
+
+
+KBO( :,13, 4) = (/&
+ & 1.1841E-01_JPRB,1.2983E-01_JPRB,1.4154E-01_JPRB,1.5381E-01_JPRB,1.6654E-01_JPRB/)  
+KBO( :,14, 4) = (/&
+ & 1.0163E-01_JPRB,1.1119E-01_JPRB,1.2120E-01_JPRB,1.3164E-01_JPRB,1.4262E-01_JPRB/)  
+KBO( :,15, 4) = (/&
+ & 8.7533E-02_JPRB,9.5453E-02_JPRB,1.0360E-01_JPRB,1.1225E-01_JPRB,1.2143E-01_JPRB/)  
+KBO( :,16, 4) = (/&
+ & 7.4718E-02_JPRB,8.1074E-02_JPRB,8.7917E-02_JPRB,9.5269E-02_JPRB,1.0309E-01_JPRB/)  
+KBO( :,17, 4) = (/&
+ & 6.4598E-02_JPRB,7.0161E-02_JPRB,7.6195E-02_JPRB,8.2691E-02_JPRB,8.9645E-02_JPRB/)  
+KBO( :,18, 4) = (/&
+ & 5.7466E-02_JPRB,6.2589E-02_JPRB,6.8109E-02_JPRB,7.4052E-02_JPRB,8.0449E-02_JPRB/)  
+KBO( :,19, 4) = (/&
+ & 5.1818E-02_JPRB,5.6571E-02_JPRB,6.1696E-02_JPRB,6.7232E-02_JPRB,7.3092E-02_JPRB/)  
+KBO( :,20, 4) = (/&
+ & 4.5333E-02_JPRB,4.9583E-02_JPRB,5.4175E-02_JPRB,5.9119E-02_JPRB,6.4307E-02_JPRB/)  
+KBO( :,21, 4) = (/&
+ & 3.9244E-02_JPRB,4.2988E-02_JPRB,4.7056E-02_JPRB,5.1390E-02_JPRB,5.5921E-02_JPRB/)  
+KBO( :,22, 4) = (/&
+ & 3.3762E-02_JPRB,3.7028E-02_JPRB,4.0590E-02_JPRB,4.4367E-02_JPRB,4.8278E-02_JPRB/)  
+KBO( :,23, 4) = (/&
+ & 2.8964E-02_JPRB,3.1825E-02_JPRB,3.4924E-02_JPRB,3.8192E-02_JPRB,4.1570E-02_JPRB/)  
+KBO( :,24, 4) = (/&
+ & 2.4605E-02_JPRB,2.7087E-02_JPRB,2.9744E-02_JPRB,3.2528E-02_JPRB,3.5398E-02_JPRB/)  
+KBO( :,25, 4) = (/&
+ & 2.0888E-02_JPRB,2.3028E-02_JPRB,2.5293E-02_JPRB,2.7664E-02_JPRB,3.0056E-02_JPRB/)  
+KBO( :,26, 4) = (/&
+ & 1.7768E-02_JPRB,1.9595E-02_JPRB,2.1528E-02_JPRB,2.3523E-02_JPRB,2.5480E-02_JPRB/)  
+KBO( :,27, 4) = (/&
+ & 1.5025E-02_JPRB,1.6582E-02_JPRB,1.8208E-02_JPRB,1.9851E-02_JPRB,2.1449E-02_JPRB/)  
+KBO( :,28, 4) = (/&
+ & 1.2630E-02_JPRB,1.3940E-02_JPRB,1.5283E-02_JPRB,1.6619E-02_JPRB,1.7935E-02_JPRB/)  
+KBO( :,29, 4) = (/&
+ & 1.0679E-02_JPRB,1.1777E-02_JPRB,1.2882E-02_JPRB,1.3981E-02_JPRB,1.5077E-02_JPRB/)  
+KBO( :,30, 4) = (/&
+ & 9.0255E-03_JPRB,9.9336E-03_JPRB,1.0847E-02_JPRB,1.1760E-02_JPRB,1.2675E-02_JPRB/)  
+KBO( :,31, 4) = (/&
+ & 7.6536E-03_JPRB,8.4086E-03_JPRB,9.1742E-03_JPRB,9.9429E-03_JPRB,1.0712E-02_JPRB/)  
+KBO( :,32, 4) = (/&
+ & 6.5182E-03_JPRB,7.1536E-03_JPRB,7.8014E-03_JPRB,8.4515E-03_JPRB,9.1065E-03_JPRB/)  
+KBO( :,33, 4) = (/&
+ & 5.5704E-03_JPRB,6.1113E-03_JPRB,6.6630E-03_JPRB,7.2151E-03_JPRB,7.7820E-03_JPRB/)  
+KBO( :,34, 4) = (/&
+ & 4.8181E-03_JPRB,5.2845E-03_JPRB,5.7551E-03_JPRB,6.2347E-03_JPRB,6.7271E-03_JPRB/)  
+KBO( :,35, 4) = (/&
+ & 4.1344E-03_JPRB,4.5342E-03_JPRB,4.9410E-03_JPRB,5.3600E-03_JPRB,5.7876E-03_JPRB/)  
+KBO( :,36, 4) = (/&
+ & 3.5137E-03_JPRB,3.8568E-03_JPRB,4.2105E-03_JPRB,4.5744E-03_JPRB,4.9478E-03_JPRB/)  
+KBO( :,37, 4) = (/&
+ & 2.9015E-03_JPRB,3.1894E-03_JPRB,3.4867E-03_JPRB,3.7928E-03_JPRB,4.1062E-03_JPRB/)  
+KBO( :,38, 4) = (/&
+ & 2.3922E-03_JPRB,2.6336E-03_JPRB,2.8833E-03_JPRB,3.1403E-03_JPRB,3.4033E-03_JPRB/)  
+KBO( :,39, 4) = (/&
+ & 1.9717E-03_JPRB,2.1746E-03_JPRB,2.3846E-03_JPRB,2.6005E-03_JPRB,2.8213E-03_JPRB/)  
+KBO( :,40, 4) = (/&
+ & 1.5744E-03_JPRB,1.7398E-03_JPRB,1.9111E-03_JPRB,2.0874E-03_JPRB,2.2673E-03_JPRB/)  
+KBO( :,41, 4) = (/&
+ & 1.2499E-03_JPRB,1.3841E-03_JPRB,1.5231E-03_JPRB,1.6664E-03_JPRB,1.8122E-03_JPRB/)  
+KBO( :,42, 4) = (/&
+ & 9.9026E-04_JPRB,1.0991E-03_JPRB,1.2117E-03_JPRB,1.3281E-03_JPRB,1.4464E-03_JPRB/)  
+KBO( :,43, 4) = (/&
+ & 7.7424E-04_JPRB,8.6142E-04_JPRB,9.5183E-04_JPRB,1.0452E-03_JPRB,1.1404E-03_JPRB/)  
+KBO( :,44, 4) = (/&
+ & 6.0102E-04_JPRB,6.7034E-04_JPRB,7.4252E-04_JPRB,8.1707E-04_JPRB,8.9311E-04_JPRB/)  
+KBO( :,45, 4) = (/&
+ & 4.6542E-04_JPRB,5.2035E-04_JPRB,5.7783E-04_JPRB,6.3732E-04_JPRB,6.9797E-04_JPRB/)  
+KBO( :,46, 4) = (/&
+ & 3.5929E-04_JPRB,4.0259E-04_JPRB,4.4817E-04_JPRB,4.9561E-04_JPRB,5.4403E-04_JPRB/)  
+KBO( :,47, 4) = (/&
+ & 2.7639E-04_JPRB,3.1035E-04_JPRB,3.4642E-04_JPRB,3.8415E-04_JPRB,4.2283E-04_JPRB/)  
+KBO( :,48, 4) = (/&
+ & 2.1223E-04_JPRB,2.3861E-04_JPRB,2.6709E-04_JPRB,2.9688E-04_JPRB,3.2776E-04_JPRB/)  
+KBO( :,49, 4) = (/&
+ & 1.6266E-04_JPRB,1.8298E-04_JPRB,2.0524E-04_JPRB,2.2871E-04_JPRB,2.5327E-04_JPRB/)  
+KBO( :,50, 4) = (/&
+ & 1.2558E-04_JPRB,1.4128E-04_JPRB,1.5863E-04_JPRB,1.7722E-04_JPRB,1.9672E-04_JPRB/)  
+KBO( :,51, 4) = (/&
+ & 9.7209E-05_JPRB,1.0936E-04_JPRB,1.2288E-04_JPRB,1.3753E-04_JPRB,1.5302E-04_JPRB/)  
+KBO( :,52, 4) = (/&
+ & 7.5228E-05_JPRB,8.4554E-05_JPRB,9.5027E-05_JPRB,1.0648E-04_JPRB,1.1875E-04_JPRB/)  
+KBO( :,53, 4) = (/&
+ & 5.8185E-05_JPRB,6.5291E-05_JPRB,7.3346E-05_JPRB,8.2261E-05_JPRB,9.1865E-05_JPRB/)  
+KBO( :,54, 4) = (/&
+ & 4.5374E-05_JPRB,5.0847E-05_JPRB,5.7097E-05_JPRB,6.4058E-05_JPRB,7.1601E-05_JPRB/)  
+KBO( :,55, 4) = (/&
+ & 3.5491E-05_JPRB,3.9770E-05_JPRB,4.4634E-05_JPRB,5.0070E-05_JPRB,5.6003E-05_JPRB/)  
+KBO( :,56, 4) = (/&
+ & 2.7730E-05_JPRB,3.1107E-05_JPRB,3.4873E-05_JPRB,3.9105E-05_JPRB,4.3754E-05_JPRB/)  
+KBO( :,57, 4) = (/&
+ & 2.1648E-05_JPRB,2.4314E-05_JPRB,2.7229E-05_JPRB,3.0516E-05_JPRB,3.4148E-05_JPRB/)  
+KBO( :,58, 4) = (/&
+ & 1.6951E-05_JPRB,1.9038E-05_JPRB,2.1314E-05_JPRB,2.3872E-05_JPRB,2.6710E-05_JPRB/)  
+KBO( :,59, 4) = (/&
+ & 1.3663E-05_JPRB,1.5351E-05_JPRB,1.7200E-05_JPRB,1.9273E-05_JPRB,2.1558E-05_JPRB/)  
+KBO( :,13, 5) = (/&
+ & 2.7737E-01_JPRB,2.9322E-01_JPRB,3.0941E-01_JPRB,3.2627E-01_JPRB,3.4434E-01_JPRB/)  
+KBO( :,14, 5) = (/&
+ & 2.3065E-01_JPRB,2.4437E-01_JPRB,2.5863E-01_JPRB,2.7404E-01_JPRB,2.9080E-01_JPRB/)  
+KBO( :,15, 5) = (/&
+ & 1.9306E-01_JPRB,2.0550E-01_JPRB,2.1890E-01_JPRB,2.3329E-01_JPRB,2.4884E-01_JPRB/)  
+KBO( :,16, 5) = (/&
+ & 1.6288E-01_JPRB,1.7408E-01_JPRB,1.8590E-01_JPRB,1.9857E-01_JPRB,2.1238E-01_JPRB/)  
+KBO( :,17, 5) = (/&
+ & 1.4081E-01_JPRB,1.5068E-01_JPRB,1.6123E-01_JPRB,1.7280E-01_JPRB,1.8532E-01_JPRB/)  
+KBO( :,18, 5) = (/&
+ & 1.2553E-01_JPRB,1.3466E-01_JPRB,1.4467E-01_JPRB,1.5557E-01_JPRB,1.6709E-01_JPRB/)  
+KBO( :,19, 5) = (/&
+ & 1.1351E-01_JPRB,1.2221E-01_JPRB,1.3178E-01_JPRB,1.4202E-01_JPRB,1.5283E-01_JPRB/)  
+KBO( :,20, 5) = (/&
+ & 9.9675E-02_JPRB,1.0772E-01_JPRB,1.1652E-01_JPRB,1.2577E-01_JPRB,1.3562E-01_JPRB/)  
+KBO( :,21, 5) = (/&
+ & 8.6695E-02_JPRB,9.4022E-02_JPRB,1.0192E-01_JPRB,1.1025E-01_JPRB,1.1913E-01_JPRB/)  
+KBO( :,22, 5) = (/&
+ & 7.4874E-02_JPRB,8.1502E-02_JPRB,8.8514E-02_JPRB,9.5955E-02_JPRB,1.0385E-01_JPRB/)  
+KBO( :,23, 5) = (/&
+ & 6.4540E-02_JPRB,7.0395E-02_JPRB,7.6612E-02_JPRB,8.3224E-02_JPRB,9.0095E-02_JPRB/)  
+KBO( :,24, 5) = (/&
+ & 5.4946E-02_JPRB,6.0047E-02_JPRB,6.5517E-02_JPRB,7.1296E-02_JPRB,7.7220E-02_JPRB/)  
+KBO( :,25, 5) = (/&
+ & 4.6677E-02_JPRB,5.1141E-02_JPRB,5.5940E-02_JPRB,6.0917E-02_JPRB,6.6053E-02_JPRB/)  
+KBO( :,26, 5) = (/&
+ & 3.9709E-02_JPRB,4.3642E-02_JPRB,4.7787E-02_JPRB,5.2078E-02_JPRB,5.6505E-02_JPRB/)  
+KBO( :,27, 5) = (/&
+ & 3.3623E-02_JPRB,3.7042E-02_JPRB,4.0591E-02_JPRB,4.4263E-02_JPRB,4.8022E-02_JPRB/)  
+KBO( :,28, 5) = (/&
+ & 2.8328E-02_JPRB,3.1245E-02_JPRB,3.4254E-02_JPRB,3.7363E-02_JPRB,4.0510E-02_JPRB/)  
+KBO( :,29, 5) = (/&
+ & 2.4050E-02_JPRB,2.6527E-02_JPRB,2.9098E-02_JPRB,3.1727E-02_JPRB,3.4395E-02_JPRB/)  
+KBO( :,30, 5) = (/&
+ & 2.0420E-02_JPRB,2.2529E-02_JPRB,2.4722E-02_JPRB,2.6950E-02_JPRB,2.9231E-02_JPRB/)  
+KBO( :,31, 5) = (/&
+ & 1.7429E-02_JPRB,1.9242E-02_JPRB,2.1110E-02_JPRB,2.3032E-02_JPRB,2.5014E-02_JPRB/)  
+KBO( :,32, 5) = (/&
+ & 1.4961E-02_JPRB,1.6521E-02_JPRB,1.8130E-02_JPRB,1.9805E-02_JPRB,2.1542E-02_JPRB/)  
+KBO( :,33, 5) = (/&
+ & 1.2897E-02_JPRB,1.4245E-02_JPRB,1.5653E-02_JPRB,1.7131E-02_JPRB,1.8661E-02_JPRB/)  
+KBO( :,34, 5) = (/&
+ & 1.1253E-02_JPRB,1.2438E-02_JPRB,1.3692E-02_JPRB,1.5008E-02_JPRB,1.6374E-02_JPRB/)  
+KBO( :,35, 5) = (/&
+ & 9.7397E-03_JPRB,1.0786E-02_JPRB,1.1902E-02_JPRB,1.3073E-02_JPRB,1.4295E-02_JPRB/)  
+KBO( :,36, 5) = (/&
+ & 8.3444E-03_JPRB,9.2674E-03_JPRB,1.0255E-02_JPRB,1.1299E-02_JPRB,1.2388E-02_JPRB/)  
+KBO( :,37, 5) = (/&
+ & 6.9467E-03_JPRB,7.7344E-03_JPRB,8.5805E-03_JPRB,9.4769E-03_JPRB,1.0414E-02_JPRB/)  
+KBO( :,38, 5) = (/&
+ & 5.7736E-03_JPRB,6.4450E-03_JPRB,7.1687E-03_JPRB,7.9368E-03_JPRB,8.7424E-03_JPRB/)  
+KBO( :,39, 5) = (/&
+ & 4.7981E-03_JPRB,5.3703E-03_JPRB,5.9884E-03_JPRB,6.6480E-03_JPRB,7.3403E-03_JPRB/)  
+KBO( :,40, 5) = (/&
+ & 3.8576E-03_JPRB,4.3274E-03_JPRB,4.8368E-03_JPRB,5.3827E-03_JPRB,5.9574E-03_JPRB/)  
+KBO( :,41, 5) = (/&
+ & 3.0825E-03_JPRB,3.4658E-03_JPRB,3.8827E-03_JPRB,4.3318E-03_JPRB,4.8066E-03_JPRB/)  
+KBO( :,42, 5) = (/&
+ & 2.4580E-03_JPRB,2.7697E-03_JPRB,3.1105E-03_JPRB,3.4793E-03_JPRB,3.8701E-03_JPRB/)  
+KBO( :,43, 5) = (/&
+ & 1.9332E-03_JPRB,2.1836E-03_JPRB,2.4577E-03_JPRB,2.7557E-03_JPRB,3.0732E-03_JPRB/)  
+KBO( :,44, 5) = (/&
+ & 1.5097E-03_JPRB,1.7091E-03_JPRB,1.9276E-03_JPRB,2.1661E-03_JPRB,2.4221E-03_JPRB/)  
+KBO( :,45, 5) = (/&
+ & 1.1763E-03_JPRB,1.3345E-03_JPRB,1.5083E-03_JPRB,1.6985E-03_JPRB,1.9040E-03_JPRB/)  
+KBO( :,46, 5) = (/&
+ & 9.1296E-04_JPRB,1.0380E-03_JPRB,1.1758E-03_JPRB,1.3270E-03_JPRB,1.4913E-03_JPRB/)  
+KBO( :,47, 5) = (/&
+ & 7.0476E-04_JPRB,8.0366E-04_JPRB,9.1252E-04_JPRB,1.0324E-03_JPRB,1.1627E-03_JPRB/)  
+KBO( :,48, 5) = (/&
+ & 5.4241E-04_JPRB,6.2078E-04_JPRB,7.0617E-04_JPRB,8.0101E-04_JPRB,9.0392E-04_JPRB/)  
+KBO( :,49, 5) = (/&
+ & 4.1608E-04_JPRB,4.7812E-04_JPRB,5.4515E-04_JPRB,6.1960E-04_JPRB,7.0075E-04_JPRB/)  
+KBO( :,50, 5) = (/&
+ & 3.2092E-04_JPRB,3.7020E-04_JPRB,4.2343E-04_JPRB,4.8196E-04_JPRB,5.4630E-04_JPRB/)  
+KBO( :,51, 5) = (/&
+ & 2.4810E-04_JPRB,2.8709E-04_JPRB,3.2948E-04_JPRB,3.7570E-04_JPRB,4.2676E-04_JPRB/)  
+KBO( :,52, 5) = (/&
+ & 1.9141E-04_JPRB,2.2213E-04_JPRB,2.5579E-04_JPRB,2.9244E-04_JPRB,3.3280E-04_JPRB/)  
+KBO( :,53, 5) = (/&
+ & 1.4731E-04_JPRB,1.7148E-04_JPRB,1.9808E-04_JPRB,2.2719E-04_JPRB,2.5899E-04_JPRB/)  
+KBO( :,54, 5) = (/&
+ & 1.1424E-04_JPRB,1.3342E-04_JPRB,1.5446E-04_JPRB,1.7772E-04_JPRB,2.0300E-04_JPRB/)  
+KBO( :,55, 5) = (/&
+ & 8.8904E-05_JPRB,1.0414E-04_JPRB,1.2079E-04_JPRB,1.3937E-04_JPRB,1.5956E-04_JPRB/)  
+KBO( :,56, 5) = (/&
+ & 6.9133E-05_JPRB,8.1185E-05_JPRB,9.4325E-05_JPRB,1.0911E-04_JPRB,1.2522E-04_JPRB/)  
+KBO( :,57, 5) = (/&
+ & 5.3742E-05_JPRB,6.3143E-05_JPRB,7.3567E-05_JPRB,8.5265E-05_JPRB,9.8102E-05_JPRB/)  
+KBO( :,58, 5) = (/&
+ & 4.1907E-05_JPRB,4.9238E-05_JPRB,5.7492E-05_JPRB,6.6736E-05_JPRB,7.6984E-05_JPRB/)  
+KBO( :,59, 5) = (/&
+ & 3.3859E-05_JPRB,3.9819E-05_JPRB,4.6565E-05_JPRB,5.4107E-05_JPRB,6.2503E-05_JPRB/)  
+KBO( :,13, 6) = (/&
+ & 6.4121E-01_JPRB,6.6739E-01_JPRB,6.9468E-01_JPRB,7.2265E-01_JPRB,7.5107E-01_JPRB/)  
+KBO( :,14, 6) = (/&
+ & 5.3428E-01_JPRB,5.5697E-01_JPRB,5.8044E-01_JPRB,6.0466E-01_JPRB,6.2906E-01_JPRB/)  
+KBO( :,15, 6) = (/&
+ & 4.4250E-01_JPRB,4.6307E-01_JPRB,4.8477E-01_JPRB,5.0676E-01_JPRB,5.2972E-01_JPRB/)  
+KBO( :,16, 6) = (/&
+ & 3.7115E-01_JPRB,3.9071E-01_JPRB,4.1071E-01_JPRB,4.3131E-01_JPRB,4.5290E-01_JPRB/)  
+KBO( :,17, 6) = (/&
+ & 3.2201E-01_JPRB,3.3982E-01_JPRB,3.5775E-01_JPRB,3.7619E-01_JPRB,3.9590E-01_JPRB/)  
+KBO( :,18, 6) = (/&
+ & 2.8860E-01_JPRB,3.0433E-01_JPRB,3.2058E-01_JPRB,3.3778E-01_JPRB,3.5711E-01_JPRB/)  
+KBO( :,19, 6) = (/&
+ & 2.6093E-01_JPRB,2.7547E-01_JPRB,2.9092E-01_JPRB,3.0787E-01_JPRB,3.2715E-01_JPRB/)  
+KBO( :,20, 6) = (/&
+ & 2.2906E-01_JPRB,2.4252E-01_JPRB,2.5706E-01_JPRB,2.7353E-01_JPRB,2.9188E-01_JPRB/)  
+KBO( :,21, 6) = (/&
+ & 1.9921E-01_JPRB,2.1163E-01_JPRB,2.2547E-01_JPRB,2.4100E-01_JPRB,2.5826E-01_JPRB/)  
+KBO( :,22, 6) = (/&
+ & 1.7190E-01_JPRB,1.8347E-01_JPRB,1.9652E-01_JPRB,2.1104E-01_JPRB,2.2725E-01_JPRB/)  
+KBO( :,23, 6) = (/&
+ & 1.4807E-01_JPRB,1.5892E-01_JPRB,1.7107E-01_JPRB,1.8464E-01_JPRB,1.9976E-01_JPRB/)  
+KBO( :,24, 6) = (/&
+ & 1.2630E-01_JPRB,1.3639E-01_JPRB,1.4760E-01_JPRB,1.6015E-01_JPRB,1.7395E-01_JPRB/)  
+KBO( :,25, 6) = (/&
+ & 1.0785E-01_JPRB,1.1709E-01_JPRB,1.2743E-01_JPRB,1.3890E-01_JPRB,1.5149E-01_JPRB/)  
+KBO( :,26, 6) = (/&
+ & 9.2383E-02_JPRB,1.0082E-01_JPRB,1.1033E-01_JPRB,1.2082E-01_JPRB,1.3229E-01_JPRB/)  
+KBO( :,27, 6) = (/&
+ & 7.8812E-02_JPRB,8.6542E-02_JPRB,9.5218E-02_JPRB,1.0477E-01_JPRB,1.1508E-01_JPRB/)  
+KBO( :,28, 6) = (/&
+ & 6.6953E-02_JPRB,7.4005E-02_JPRB,8.1900E-02_JPRB,9.0499E-02_JPRB,9.9667E-02_JPRB/)  
+KBO( :,29, 6) = (/&
+ & 5.7472E-02_JPRB,6.3923E-02_JPRB,7.1088E-02_JPRB,7.8810E-02_JPRB,8.6979E-02_JPRB/)  
+KBO( :,30, 6) = (/&
+ & 4.9506E-02_JPRB,5.5394E-02_JPRB,6.1825E-02_JPRB,6.8714E-02_JPRB,7.5948E-02_JPRB/)  
+KBO( :,31, 6) = (/&
+ & 4.3026E-02_JPRB,4.8351E-02_JPRB,5.4145E-02_JPRB,6.0281E-02_JPRB,6.6645E-02_JPRB/)  
+KBO( :,32, 6) = (/&
+ & 3.7695E-02_JPRB,4.2520E-02_JPRB,4.7714E-02_JPRB,5.3158E-02_JPRB,5.8754E-02_JPRB/)  
+KBO( :,33, 6) = (/&
+ & 3.3253E-02_JPRB,3.7612E-02_JPRB,4.2238E-02_JPRB,4.7058E-02_JPRB,5.2057E-02_JPRB/)  
+KBO( :,34, 6) = (/&
+ & 2.9687E-02_JPRB,3.3639E-02_JPRB,3.7802E-02_JPRB,4.2143E-02_JPRB,4.6713E-02_JPRB/)  
+KBO( :,35, 6) = (/&
+ & 2.6238E-02_JPRB,2.9780E-02_JPRB,3.3512E-02_JPRB,3.7433E-02_JPRB,4.1618E-02_JPRB/)  
+KBO( :,36, 6) = (/&
+ & 2.2870E-02_JPRB,2.6020E-02_JPRB,2.9343E-02_JPRB,3.2882E-02_JPRB,3.6681E-02_JPRB/)  
+KBO( :,37, 6) = (/&
+ & 1.9322E-02_JPRB,2.2060E-02_JPRB,2.4965E-02_JPRB,2.8086E-02_JPRB,3.1456E-02_JPRB/)  
+KBO( :,38, 6) = (/&
+ & 1.6289E-02_JPRB,1.8667E-02_JPRB,2.1206E-02_JPRB,2.3953E-02_JPRB,2.6938E-02_JPRB/)  
+KBO( :,39, 6) = (/&
+ & 1.3724E-02_JPRB,1.5787E-02_JPRB,1.8005E-02_JPRB,2.0421E-02_JPRB,2.3064E-02_JPRB/)  
+KBO( :,40, 6) = (/&
+ & 1.1170E-02_JPRB,1.2903E-02_JPRB,1.4777E-02_JPRB,1.6832E-02_JPRB,1.9094E-02_JPRB/)  
+KBO( :,41, 6) = (/&
+ & 9.0289E-03_JPRB,1.0474E-02_JPRB,1.2048E-02_JPRB,1.3783E-02_JPRB,1.5707E-02_JPRB/)  
+KBO( :,42, 6) = (/&
+ & 7.2786E-03_JPRB,8.4784E-03_JPRB,9.7962E-03_JPRB,1.1257E-02_JPRB,1.2889E-02_JPRB/)  
+KBO( :,43, 6) = (/&
+ & 5.7746E-03_JPRB,6.7579E-03_JPRB,7.8468E-03_JPRB,9.0602E-03_JPRB,1.0425E-02_JPRB/)  
+KBO( :,44, 6) = (/&
+ & 4.5415E-03_JPRB,5.3414E-03_JPRB,6.2337E-03_JPRB,7.2326E-03_JPRB,8.3633E-03_JPRB/)  
+KBO( :,45, 6) = (/&
+ & 3.5601E-03_JPRB,4.2081E-03_JPRB,4.9346E-03_JPRB,5.7558E-03_JPRB,6.6891E-03_JPRB/)  
+KBO( :,46, 6) = (/&
+ & 2.7754E-03_JPRB,3.2977E-03_JPRB,3.8855E-03_JPRB,4.5569E-03_JPRB,5.3238E-03_JPRB/)  
+KBO( :,47, 6) = (/&
+ & 2.1475E-03_JPRB,2.5657E-03_JPRB,3.0384E-03_JPRB,3.5836E-03_JPRB,4.2109E-03_JPRB/)  
+KBO( :,48, 6) = (/&
+ & 1.6563E-03_JPRB,1.9892E-03_JPRB,2.3684E-03_JPRB,2.8081E-03_JPRB,3.3184E-03_JPRB/)  
+KBO( :,49, 6) = (/&
+ & 1.2736E-03_JPRB,1.5366E-03_JPRB,1.8396E-03_JPRB,2.1918E-03_JPRB,2.6053E-03_JPRB/)  
+KBO( :,50, 6) = (/&
+ & 9.8514E-04_JPRB,1.1938E-03_JPRB,1.4366E-03_JPRB,1.7199E-03_JPRB,2.0561E-03_JPRB/)  
+KBO( :,51, 6) = (/&
+ & 7.6305E-04_JPRB,9.2853E-04_JPRB,1.1230E-03_JPRB,1.3507E-03_JPRB,1.6237E-03_JPRB/)  
+KBO( :,52, 6) = (/&
+ & 5.8964E-04_JPRB,7.2048E-04_JPRB,8.7539E-04_JPRB,1.0577E-03_JPRB,1.2781E-03_JPRB/)  
+KBO( :,53, 6) = (/&
+ & 4.5442E-04_JPRB,5.5764E-04_JPRB,6.8041E-04_JPRB,8.2614E-04_JPRB,1.0025E-03_JPRB/)  
+KBO( :,54, 6) = (/&
+ & 3.5277E-04_JPRB,4.3435E-04_JPRB,5.3231E-04_JPRB,6.4901E-04_JPRB,7.9056E-04_JPRB/)  
+KBO( :,55, 6) = (/&
+ & 2.7456E-04_JPRB,3.3899E-04_JPRB,4.1714E-04_JPRB,5.1074E-04_JPRB,6.2435E-04_JPRB/)  
+KBO( :,56, 6) = (/&
+ & 2.1331E-04_JPRB,2.6410E-04_JPRB,3.2619E-04_JPRB,4.0097E-04_JPRB,4.9192E-04_JPRB/)  
+KBO( :,57, 6) = (/&
+ & 1.6544E-04_JPRB,2.0526E-04_JPRB,2.5453E-04_JPRB,3.1404E-04_JPRB,3.8660E-04_JPRB/)  
+KBO( :,58, 6) = (/&
+ & 1.2858E-04_JPRB,1.5986E-04_JPRB,1.9897E-04_JPRB,2.4635E-04_JPRB,3.0450E-04_JPRB/)  
+KBO( :,59, 6) = (/&
+ & 1.0424E-04_JPRB,1.3005E-04_JPRB,1.6246E-04_JPRB,2.0168E-04_JPRB,2.5022E-04_JPRB/)  
+KBO( :,13, 7) = (/&
+ & 1.5651E+00_JPRB,1.6169E+00_JPRB,1.6708E+00_JPRB,1.7263E+00_JPRB,1.7852E+00_JPRB/)  
+KBO( :,14, 7) = (/&
+ & 1.3034E+00_JPRB,1.3495E+00_JPRB,1.3970E+00_JPRB,1.4470E+00_JPRB,1.4990E+00_JPRB/)  
+KBO( :,15, 7) = (/&
+ & 1.0798E+00_JPRB,1.1205E+00_JPRB,1.1627E+00_JPRB,1.2066E+00_JPRB,1.2529E+00_JPRB/)  
+KBO( :,16, 7) = (/&
+ & 9.0502E-01_JPRB,9.4264E-01_JPRB,9.8168E-01_JPRB,1.0232E+00_JPRB,1.0668E+00_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART13',1,ZHOOK_HANDLE)
+END SUBROUTINE PART13
+
+
+SUBROUTINE PART14
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART14',0,ZHOOK_HANDLE)
+
+
+KBO( :,17, 7) = (/&
+ & 7.8533E-01_JPRB,8.2264E-01_JPRB,8.6170E-01_JPRB,9.0297E-01_JPRB,9.4574E-01_JPRB/)  
+KBO( :,18, 7) = (/&
+ & 7.0905E-01_JPRB,7.4606E-01_JPRB,7.8445E-01_JPRB,8.2385E-01_JPRB,8.6498E-01_JPRB/)  
+KBO( :,19, 7) = (/&
+ & 6.5117E-01_JPRB,6.8581E-01_JPRB,7.2084E-01_JPRB,7.5738E-01_JPRB,7.9689E-01_JPRB/)  
+KBO( :,20, 7) = (/&
+ & 5.8055E-01_JPRB,6.1130E-01_JPRB,6.4302E-01_JPRB,6.7746E-01_JPRB,7.1553E-01_JPRB/)  
+KBO( :,21, 7) = (/&
+ & 5.1109E-01_JPRB,5.3883E-01_JPRB,5.6867E-01_JPRB,6.0178E-01_JPRB,6.3866E-01_JPRB/)  
+KBO( :,22, 7) = (/&
+ & 4.4535E-01_JPRB,4.7107E-01_JPRB,4.9963E-01_JPRB,5.3173E-01_JPRB,5.6752E-01_JPRB/)  
+KBO( :,23, 7) = (/&
+ & 3.8693E-01_JPRB,4.1147E-01_JPRB,4.3911E-01_JPRB,4.7015E-01_JPRB,5.0472E-01_JPRB/)  
+KBO( :,24, 7) = (/&
+ & 3.3299E-01_JPRB,3.5628E-01_JPRB,3.8277E-01_JPRB,4.1248E-01_JPRB,4.4550E-01_JPRB/)  
+KBO( :,25, 7) = (/&
+ & 2.8674E-01_JPRB,3.0903E-01_JPRB,3.3447E-01_JPRB,3.6286E-01_JPRB,3.9391E-01_JPRB/)  
+KBO( :,26, 7) = (/&
+ & 2.4799E-01_JPRB,2.6945E-01_JPRB,2.9359E-01_JPRB,3.2034E-01_JPRB,3.4997E-01_JPRB/)  
+KBO( :,27, 7) = (/&
+ & 2.1431E-01_JPRB,2.3461E-01_JPRB,2.5723E-01_JPRB,2.8249E-01_JPRB,3.1067E-01_JPRB/)  
+KBO( :,28, 7) = (/&
+ & 1.8505E-01_JPRB,2.0390E-01_JPRB,2.2502E-01_JPRB,2.4887E-01_JPRB,2.7537E-01_JPRB/)  
+KBO( :,29, 7) = (/&
+ & 1.6146E-01_JPRB,1.7908E-01_JPRB,1.9912E-01_JPRB,2.2167E-01_JPRB,2.4667E-01_JPRB/)  
+KBO( :,30, 7) = (/&
+ & 1.4137E-01_JPRB,1.5806E-01_JPRB,1.7706E-01_JPRB,1.9835E-01_JPRB,2.2209E-01_JPRB/)  
+KBO( :,31, 7) = (/&
+ & 1.2498E-01_JPRB,1.4092E-01_JPRB,1.5896E-01_JPRB,1.7927E-01_JPRB,2.0199E-01_JPRB/)  
+KBO( :,32, 7) = (/&
+ & 1.1162E-01_JPRB,1.2686E-01_JPRB,1.4411E-01_JPRB,1.6362E-01_JPRB,1.8544E-01_JPRB/)  
+KBO( :,33, 7) = (/&
+ & 1.0058E-01_JPRB,1.1519E-01_JPRB,1.3185E-01_JPRB,1.5062E-01_JPRB,1.7164E-01_JPRB/)  
+KBO( :,34, 7) = (/&
+ & 9.1872E-02_JPRB,1.0605E-01_JPRB,1.2221E-01_JPRB,1.4049E-01_JPRB,1.6092E-01_JPRB/)  
+KBO( :,35, 7) = (/&
+ & 8.3134E-02_JPRB,9.6731E-02_JPRB,1.1227E-01_JPRB,1.2986E-01_JPRB,1.4952E-01_JPRB/)  
+KBO( :,36, 7) = (/&
+ & 7.4081E-02_JPRB,8.6894E-02_JPRB,1.0163E-01_JPRB,1.1830E-01_JPRB,1.3703E-01_JPRB/)  
+KBO( :,37, 7) = (/&
+ & 6.4153E-02_JPRB,7.5901E-02_JPRB,8.9515E-02_JPRB,1.0499E-01_JPRB,1.2245E-01_JPRB/)  
+KBO( :,38, 7) = (/&
+ & 5.5459E-02_JPRB,6.6199E-02_JPRB,7.8762E-02_JPRB,9.3144E-02_JPRB,1.0945E-01_JPRB/)  
+KBO( :,39, 7) = (/&
+ & 4.7923E-02_JPRB,5.7730E-02_JPRB,6.9328E-02_JPRB,8.2715E-02_JPRB,9.7968E-02_JPRB/)  
+KBO( :,40, 7) = (/&
+ & 3.9991E-02_JPRB,4.8626E-02_JPRB,5.8962E-02_JPRB,7.1033E-02_JPRB,8.4866E-02_JPRB/)  
+KBO( :,41, 7) = (/&
+ & 3.3132E-02_JPRB,4.0668E-02_JPRB,4.9786E-02_JPRB,6.0601E-02_JPRB,7.3110E-02_JPRB/)  
+KBO( :,42, 7) = (/&
+ & 2.7362E-02_JPRB,3.3907E-02_JPRB,4.1915E-02_JPRB,5.1544E-02_JPRB,6.2838E-02_JPRB/)  
+KBO( :,43, 7) = (/&
+ & 2.2196E-02_JPRB,2.7768E-02_JPRB,3.4671E-02_JPRB,4.3090E-02_JPRB,5.3119E-02_JPRB/)  
+KBO( :,44, 7) = (/&
+ & 1.7818E-02_JPRB,2.2501E-02_JPRB,2.8380E-02_JPRB,3.5655E-02_JPRB,4.4455E-02_JPRB/)  
+KBO( :,45, 7) = (/&
+ & 1.4243E-02_JPRB,1.8150E-02_JPRB,2.3128E-02_JPRB,2.9377E-02_JPRB,3.7045E-02_JPRB/)  
+KBO( :,46, 7) = (/&
+ & 1.1286E-02_JPRB,1.4511E-02_JPRB,1.8685E-02_JPRB,2.4000E-02_JPRB,3.0616E-02_JPRB/)  
+KBO( :,47, 7) = (/&
+ & 8.8305E-03_JPRB,1.1453E-02_JPRB,1.4902E-02_JPRB,1.9356E-02_JPRB,2.5001E-02_JPRB/)  
+KBO( :,48, 7) = (/&
+ & 6.8710E-03_JPRB,8.9888E-03_JPRB,1.1814E-02_JPRB,1.5517E-02_JPRB,2.0294E-02_JPRB/)  
+KBO( :,49, 7) = (/&
+ & 5.3150E-03_JPRB,7.0121E-03_JPRB,9.3059E-03_JPRB,1.2357E-02_JPRB,1.6365E-02_JPRB/)  
+KBO( :,50, 7) = (/&
+ & 4.1309E-03_JPRB,5.4944E-03_JPRB,7.3653E-03_JPRB,9.8877E-03_JPRB,1.3254E-02_JPRB/)  
+KBO( :,51, 7) = (/&
+ & 3.2122E-03_JPRB,4.3028E-03_JPRB,5.8246E-03_JPRB,7.9072E-03_JPRB,1.0730E-02_JPRB/)  
+KBO( :,52, 7) = (/&
+ & 2.4855E-03_JPRB,3.3518E-03_JPRB,4.5791E-03_JPRB,6.2870E-03_JPRB,8.6345E-03_JPRB/)  
+KBO( :,53, 7) = (/&
+ & 1.9144E-03_JPRB,2.5958E-03_JPRB,3.5772E-03_JPRB,4.9679E-03_JPRB,6.9029E-03_JPRB/)  
+KBO( :,54, 7) = (/&
+ & 1.4846E-03_JPRB,2.0243E-03_JPRB,2.8131E-03_JPRB,3.9506E-03_JPRB,5.5585E-03_JPRB/)  
+KBO( :,55, 7) = (/&
+ & 1.1531E-03_JPRB,1.5804E-03_JPRB,2.2143E-03_JPRB,3.1436E-03_JPRB,4.4799E-03_JPRB/)  
+KBO( :,56, 7) = (/&
+ & 8.9241E-04_JPRB,1.2296E-03_JPRB,1.7344E-03_JPRB,2.4879E-03_JPRB,3.5892E-03_JPRB/)  
+KBO( :,57, 7) = (/&
+ & 6.8839E-04_JPRB,9.5206E-04_JPRB,1.3509E-03_JPRB,1.9572E-03_JPRB,2.8575E-03_JPRB/)  
+KBO( :,58, 7) = (/&
+ & 5.3236E-04_JPRB,7.3837E-04_JPRB,1.0535E-03_JPRB,1.5406E-03_JPRB,2.2793E-03_JPRB/)  
+KBO( :,59, 7) = (/&
+ & 4.3598E-04_JPRB,6.1022E-04_JPRB,8.8068E-04_JPRB,1.3033E-03_JPRB,1.9553E-03_JPRB/)  
+KBO( :,13, 8) = (/&
+ & 4.7769E+00_JPRB,4.8848E+00_JPRB,4.9874E+00_JPRB,5.0917E+00_JPRB,5.1968E+00_JPRB/)  
+KBO( :,14, 8) = (/&
+ & 4.0252E+00_JPRB,4.1225E+00_JPRB,4.2203E+00_JPRB,4.3172E+00_JPRB,4.4173E+00_JPRB/)  
+KBO( :,15, 8) = (/&
+ & 3.3636E+00_JPRB,3.4557E+00_JPRB,3.5447E+00_JPRB,3.6379E+00_JPRB,3.7313E+00_JPRB/)  
+KBO( :,16, 8) = (/&
+ & 2.8215E+00_JPRB,2.9045E+00_JPRB,2.9912E+00_JPRB,3.0777E+00_JPRB,3.1703E+00_JPRB/)  
+KBO( :,17, 8) = (/&
+ & 2.4207E+00_JPRB,2.5043E+00_JPRB,2.5895E+00_JPRB,2.6793E+00_JPRB,2.7738E+00_JPRB/)  
+KBO( :,18, 8) = (/&
+ & 2.1596E+00_JPRB,2.2496E+00_JPRB,2.3425E+00_JPRB,2.4404E+00_JPRB,2.5399E+00_JPRB/)  
+KBO( :,19, 8) = (/&
+ & 1.9873E+00_JPRB,2.0853E+00_JPRB,2.1866E+00_JPRB,2.2891E+00_JPRB,2.3905E+00_JPRB/)  
+KBO( :,20, 8) = (/&
+ & 1.8046E+00_JPRB,1.9022E+00_JPRB,2.0007E+00_JPRB,2.0973E+00_JPRB,2.1932E+00_JPRB/)  
+KBO( :,21, 8) = (/&
+ & 1.6245E+00_JPRB,1.7151E+00_JPRB,1.8038E+00_JPRB,1.8907E+00_JPRB,1.9795E+00_JPRB/)  
+KBO( :,22, 8) = (/&
+ & 1.4461E+00_JPRB,1.5258E+00_JPRB,1.6036E+00_JPRB,1.6835E+00_JPRB,1.7677E+00_JPRB/)  
+KBO( :,23, 8) = (/&
+ & 1.2784E+00_JPRB,1.3484E+00_JPRB,1.4202E+00_JPRB,1.4958E+00_JPRB,1.5781E+00_JPRB/)  
+KBO( :,24, 8) = (/&
+ & 1.1162E+00_JPRB,1.1799E+00_JPRB,1.2469E+00_JPRB,1.3197E+00_JPRB,1.4014E+00_JPRB/)  
+KBO( :,25, 8) = (/&
+ & 9.7290E-01_JPRB,1.0323E+00_JPRB,1.0964E+00_JPRB,1.1683E+00_JPRB,1.2507E+00_JPRB/)  
+KBO( :,26, 8) = (/&
+ & 8.5083E-01_JPRB,9.0746E-01_JPRB,9.7028E-01_JPRB,1.0426E+00_JPRB,1.1250E+00_JPRB/)  
+KBO( :,27, 8) = (/&
+ & 7.4331E-01_JPRB,7.9805E-01_JPRB,8.6066E-01_JPRB,9.3282E-01_JPRB,1.0150E+00_JPRB/)  
+KBO( :,28, 8) = (/&
+ & 6.4875E-01_JPRB,7.0258E-01_JPRB,7.6476E-01_JPRB,8.3624E-01_JPRB,9.1880E-01_JPRB/)  
+KBO( :,29, 8) = (/&
+ & 5.7353E-01_JPRB,6.2704E-01_JPRB,6.8898E-01_JPRB,7.6115E-01_JPRB,8.4456E-01_JPRB/)  
+KBO( :,30, 8) = (/&
+ & 5.1081E-01_JPRB,5.6430E-01_JPRB,6.2672E-01_JPRB,6.9960E-01_JPRB,7.8366E-01_JPRB/)  
+KBO( :,31, 8) = (/&
+ & 4.6060E-01_JPRB,5.1474E-01_JPRB,5.7850E-01_JPRB,6.5276E-01_JPRB,7.3784E-01_JPRB/)  
+KBO( :,32, 8) = (/&
+ & 4.2054E-01_JPRB,4.7584E-01_JPRB,5.4138E-01_JPRB,6.1744E-01_JPRB,7.0416E-01_JPRB/)  
+KBO( :,33, 8) = (/&
+ & 3.8881E-01_JPRB,4.4574E-01_JPRB,5.1326E-01_JPRB,5.9158E-01_JPRB,6.8101E-01_JPRB/)  
+KBO( :,34, 8) = (/&
+ & 3.6582E-01_JPRB,4.2446E-01_JPRB,4.9413E-01_JPRB,5.7504E-01_JPRB,6.6797E-01_JPRB/)  
+KBO( :,35, 8) = (/&
+ & 3.4211E-01_JPRB,4.0158E-01_JPRB,4.7243E-01_JPRB,5.5519E-01_JPRB,6.5095E-01_JPRB/)  
+KBO( :,36, 8) = (/&
+ & 3.1584E-01_JPRB,3.7515E-01_JPRB,4.4596E-01_JPRB,5.2948E-01_JPRB,6.2662E-01_JPRB/)  
+KBO( :,37, 8) = (/&
+ & 2.8335E-01_JPRB,3.4000E-01_JPRB,4.0808E-01_JPRB,4.8925E-01_JPRB,5.8433E-01_JPRB/)  
+KBO( :,38, 8) = (/&
+ & 2.5439E-01_JPRB,3.0837E-01_JPRB,3.7382E-01_JPRB,4.5256E-01_JPRB,5.4554E-01_JPRB/)  
+KBO( :,39, 8) = (/&
+ & 2.2884E-01_JPRB,2.8037E-01_JPRB,3.4336E-01_JPRB,4.1988E-01_JPRB,5.1084E-01_JPRB/)  
+KBO( :,40, 8) = (/&
+ & 1.9894E-01_JPRB,2.4621E-01_JPRB,3.0460E-01_JPRB,3.7622E-01_JPRB,4.6217E-01_JPRB/)  
+KBO( :,41, 8) = (/&
+ & 1.7202E-01_JPRB,2.1505E-01_JPRB,2.6889E-01_JPRB,3.3546E-01_JPRB,4.1631E-01_JPRB/)  
+KBO( :,42, 8) = (/&
+ & 1.4851E-01_JPRB,1.8770E-01_JPRB,2.3715E-01_JPRB,2.9895E-01_JPRB,3.7473E-01_JPRB/)  
+KBO( :,43, 8) = (/&
+ & 1.2600E-01_JPRB,1.6095E-01_JPRB,2.0554E-01_JPRB,2.6188E-01_JPRB,3.3169E-01_JPRB/)  
+KBO( :,44, 8) = (/&
+ & 1.0584E-01_JPRB,1.3667E-01_JPRB,1.7652E-01_JPRB,2.2729E-01_JPRB,2.9097E-01_JPRB/)  
+KBO( :,45, 8) = (/&
+ & 8.8493E-02_JPRB,1.1567E-01_JPRB,1.5110E-01_JPRB,1.9672E-01_JPRB,2.5462E-01_JPRB/)  
+KBO( :,46, 8) = (/&
+ & 7.3233E-02_JPRB,9.7022E-02_JPRB,1.2827E-01_JPRB,1.6892E-01_JPRB,2.2114E-01_JPRB/)  
+KBO( :,47, 8) = (/&
+ & 5.9636E-02_JPRB,8.0163E-02_JPRB,1.0738E-01_JPRB,1.4314E-01_JPRB,1.8961E-01_JPRB/)  
+KBO( :,48, 8) = (/&
+ & 4.8167E-02_JPRB,6.5765E-02_JPRB,8.9346E-02_JPRB,1.2067E-01_JPRB,1.6184E-01_JPRB/)  
+KBO( :,49, 8) = (/&
+ & 3.8566E-02_JPRB,5.3500E-02_JPRB,7.3805E-02_JPRB,1.0114E-01_JPRB,1.3740E-01_JPRB/)  
+KBO( :,50, 8) = (/&
+ & 3.0986E-02_JPRB,4.3657E-02_JPRB,6.1235E-02_JPRB,8.5187E-02_JPRB,1.1732E-01_JPRB/)  
+KBO( :,51, 8) = (/&
+ & 2.4855E-02_JPRB,3.5538E-02_JPRB,5.0728E-02_JPRB,7.1690E-02_JPRB,1.0021E-01_JPRB/)  
+KBO( :,52, 8) = (/&
+ & 1.9770E-02_JPRB,2.8704E-02_JPRB,4.1703E-02_JPRB,5.9943E-02_JPRB,8.5157E-02_JPRB/)  
+KBO( :,53, 8) = (/&
+ & 1.5594E-02_JPRB,2.2973E-02_JPRB,3.3967E-02_JPRB,4.9762E-02_JPRB,7.1853E-02_JPRB/)  
+KBO( :,54, 8) = (/&
+ & 1.2395E-02_JPRB,1.8523E-02_JPRB,2.7877E-02_JPRB,4.1630E-02_JPRB,6.1144E-02_JPRB/)  
+KBO( :,55, 8) = (/&
+ & 9.8575E-03_JPRB,1.4938E-02_JPRB,2.2890E-02_JPRB,3.4846E-02_JPRB,5.2121E-02_JPRB/)  
+KBO( :,56, 8) = (/&
+ & 7.7929E-03_JPRB,1.1970E-02_JPRB,1.8661E-02_JPRB,2.8954E-02_JPRB,4.4168E-02_JPRB/)  
+KBO( :,57, 8) = (/&
+ & 6.1195E-03_JPRB,9.5111E-03_JPRB,1.5088E-02_JPRB,2.3882E-02_JPRB,3.7179E-02_JPRB/)  
+KBO( :,58, 8) = (/&
+ & 4.8102E-03_JPRB,7.5604E-03_JPRB,1.2200E-02_JPRB,1.9713E-02_JPRB,3.1334E-02_JPRB/)  
+KBO( :,59, 8) = (/&
+ & 4.0994E-03_JPRB,6.5648E-03_JPRB,1.0813E-02_JPRB,1.7794E-02_JPRB,2.8755E-02_JPRB/)  
+KBO( :,13, 9) = (/&
+ & 2.2033E+01_JPRB,2.2174E+01_JPRB,2.2343E+01_JPRB,2.2507E+01_JPRB,2.2688E+01_JPRB/)  
+KBO( :,14, 9) = (/&
+ & 1.9641E+01_JPRB,1.9826E+01_JPRB,1.9998E+01_JPRB,2.0195E+01_JPRB,2.0429E+01_JPRB/)  
+KBO( :,15, 9) = (/&
+ & 1.7181E+01_JPRB,1.7367E+01_JPRB,1.7589E+01_JPRB,1.7835E+01_JPRB,1.8095E+01_JPRB/)  
+KBO( :,16, 9) = (/&
+ & 1.4894E+01_JPRB,1.5133E+01_JPRB,1.5386E+01_JPRB,1.5657E+01_JPRB,1.5957E+01_JPRB/)  
+KBO( :,17, 9) = (/&
+ & 1.3089E+01_JPRB,1.3342E+01_JPRB,1.3618E+01_JPRB,1.3934E+01_JPRB,1.4266E+01_JPRB/)  
+KBO( :,18, 9) = (/&
+ & 1.1731E+01_JPRB,1.2006E+01_JPRB,1.2330E+01_JPRB,1.2671E+01_JPRB,1.3025E+01_JPRB/)  
+KBO( :,19, 9) = (/&
+ & 1.0583E+01_JPRB,1.0906E+01_JPRB,1.1254E+01_JPRB,1.1621E+01_JPRB,1.2024E+01_JPRB/)  
+KBO( :,20, 9) = (/&
+ & 9.4570E+00_JPRB,9.7937E+00_JPRB,1.0152E+01_JPRB,1.0555E+01_JPRB,1.0995E+01_JPRB/)  
+KBO( :,21, 9) = (/&
+ & 8.4559E+00_JPRB,8.8026E+00_JPRB,9.1952E+00_JPRB,9.6304E+00_JPRB,1.0095E+01_JPRB/)  
+KBO( :,22, 9) = (/&
+ & 7.5782E+00_JPRB,7.9554E+00_JPRB,8.3755E+00_JPRB,8.8282E+00_JPRB,9.3139E+00_JPRB/)  
+KBO( :,23, 9) = (/&
+ & 6.8684E+00_JPRB,7.2684E+00_JPRB,7.7047E+00_JPRB,8.1736E+00_JPRB,8.6781E+00_JPRB/)  
+KBO( :,24, 9) = (/&
+ & 6.2497E+00_JPRB,6.6572E+00_JPRB,7.0979E+00_JPRB,7.5746E+00_JPRB,8.0821E+00_JPRB/)  
+KBO( :,25, 9) = (/&
+ & 5.7300E+00_JPRB,6.1337E+00_JPRB,6.5736E+00_JPRB,7.0462E+00_JPRB,7.5518E+00_JPRB/)  
+KBO( :,26, 9) = (/&
+ & 5.2905E+00_JPRB,5.6892E+00_JPRB,6.1183E+00_JPRB,6.5857E+00_JPRB,7.0904E+00_JPRB/)  
+KBO( :,27, 9) = (/&
+ & 4.8852E+00_JPRB,5.2716E+00_JPRB,5.6895E+00_JPRB,6.1477E+00_JPRB,6.6506E+00_JPRB/)  
+KBO( :,28, 9) = (/&
+ & 4.4993E+00_JPRB,4.8815E+00_JPRB,5.2912E+00_JPRB,5.7427E+00_JPRB,6.2498E+00_JPRB/)  
+KBO( :,29, 9) = (/&
+ & 4.1817E+00_JPRB,4.5681E+00_JPRB,4.9858E+00_JPRB,5.4440E+00_JPRB,5.9661E+00_JPRB/)  
+KBO( :,30, 9) = (/&
+ & 3.9159E+00_JPRB,4.3103E+00_JPRB,4.7415E+00_JPRB,5.2227E+00_JPRB,5.7617E+00_JPRB/)  
+KBO( :,31, 9) = (/&
+ & 3.7169E+00_JPRB,4.1255E+00_JPRB,4.5793E+00_JPRB,5.0892E+00_JPRB,5.6531E+00_JPRB/)  
+KBO( :,32, 9) = (/&
+ & 3.5834E+00_JPRB,4.0122E+00_JPRB,4.4950E+00_JPRB,5.0349E+00_JPRB,5.6294E+00_JPRB/)  
+KBO( :,33, 9) = (/&
+ & 3.5101E+00_JPRB,3.9652E+00_JPRB,4.4790E+00_JPRB,5.0498E+00_JPRB,5.6789E+00_JPRB/)  
+KBO( :,34, 9) = (/&
+ & 3.5050E+00_JPRB,3.9930E+00_JPRB,4.5402E+00_JPRB,5.1475E+00_JPRB,5.8191E+00_JPRB/)  
+KBO( :,35, 9) = (/&
+ & 3.4979E+00_JPRB,4.0137E+00_JPRB,4.5890E+00_JPRB,5.2289E+00_JPRB,5.9375E+00_JPRB/)  
+KBO( :,36, 9) = (/&
+ & 3.4706E+00_JPRB,4.0059E+00_JPRB,4.6026E+00_JPRB,5.2687E+00_JPRB,6.0062E+00_JPRB/)  
+KBO( :,37, 9) = (/&
+ & 3.3275E+00_JPRB,3.8631E+00_JPRB,4.4602E+00_JPRB,5.1262E+00_JPRB,5.8660E+00_JPRB/)  
+KBO( :,38, 9) = (/&
+ & 3.1941E+00_JPRB,3.7291E+00_JPRB,4.3242E+00_JPRB,4.9885E+00_JPRB,5.7266E+00_JPRB/)  
+KBO( :,39, 9) = (/&
+ & 3.0740E+00_JPRB,3.6084E+00_JPRB,4.2006E+00_JPRB,4.8620E+00_JPRB,5.5962E+00_JPRB/)  
+KBO( :,40, 9) = (/&
+ & 2.8552E+00_JPRB,3.3739E+00_JPRB,3.9447E+00_JPRB,4.5808E+00_JPRB,5.2902E+00_JPRB/)  
+KBO( :,41, 9) = (/&
+ & 2.6380E+00_JPRB,3.1381E+00_JPRB,3.6872E+00_JPRB,4.2961E+00_JPRB,4.9750E+00_JPRB/)  
+KBO( :,42, 9) = (/&
+ & 2.4342E+00_JPRB,2.9148E+00_JPRB,3.4437E+00_JPRB,4.0255E+00_JPRB,4.6737E+00_JPRB/)  
+KBO( :,43, 9) = (/&
+ & 2.2073E+00_JPRB,2.6629E+00_JPRB,3.1662E+00_JPRB,3.7162E+00_JPRB,4.3269E+00_JPRB/)  
+KBO( :,44, 9) = (/&
+ & 1.9815E+00_JPRB,2.4093E+00_JPRB,2.8849E+00_JPRB,3.4033E+00_JPRB,3.9755E+00_JPRB/)  
+KBO( :,45, 9) = (/&
+ & 1.7719E+00_JPRB,2.1718E+00_JPRB,2.6189E+00_JPRB,3.1075E+00_JPRB,3.6437E+00_JPRB/)  
+KBO( :,46, 9) = (/&
+ & 1.5723E+00_JPRB,1.9443E+00_JPRB,2.3619E+00_JPRB,2.8217E+00_JPRB,3.3236E+00_JPRB/)  
+KBO( :,47, 9) = (/&
+ & 1.3802E+00_JPRB,1.7245E+00_JPRB,2.1129E+00_JPRB,2.5440E+00_JPRB,3.0139E+00_JPRB/)  
+KBO( :,48, 9) = (/&
+ & 1.2042E+00_JPRB,1.5204E+00_JPRB,1.8800E+00_JPRB,2.2805E+00_JPRB,2.7207E+00_JPRB/)  
+KBO( :,49, 9) = (/&
+ & 1.0431E+00_JPRB,1.3311E+00_JPRB,1.6618E+00_JPRB,2.0323E+00_JPRB,2.4425E+00_JPRB/)  
+KBO( :,50, 9) = (/&
+ & 9.1020E-01_JPRB,1.1754E+00_JPRB,1.4811E+00_JPRB,1.8261E+00_JPRB,2.2093E+00_JPRB/)  
+KBO( :,51, 9) = (/&
+ & 7.9478E-01_JPRB,1.0402E+00_JPRB,1.3230E+00_JPRB,1.6448E+00_JPRB,2.0037E+00_JPRB/)  
+KBO( :,52, 9) = (/&
+ & 6.8856E-01_JPRB,9.1521E-01_JPRB,1.1763E+00_JPRB,1.4752E+00_JPRB,1.8102E+00_JPRB/)  
+KBO( :,53, 9) = (/&
+ & 5.9135E-01_JPRB,7.9906E-01_JPRB,1.0400E+00_JPRB,1.3162E+00_JPRB,1.6282E+00_JPRB/)  
+KBO( :,54, 9) = (/&
+ & 5.1488E-01_JPRB,7.0709E-01_JPRB,9.3257E-01_JPRB,1.1913E+00_JPRB,1.4845E+00_JPRB/)  
+KBO( :,55, 9) = (/&
+ & 4.5023E-01_JPRB,6.2878E-01_JPRB,8.4073E-01_JPRB,1.0847E+00_JPRB,1.3619E+00_JPRB/)  
+KBO( :,56, 9) = (/&
+ & 3.9100E-01_JPRB,5.5634E-01_JPRB,7.5480E-01_JPRB,9.8459E-01_JPRB,1.2461E+00_JPRB/)  
+KBO( :,57, 9) = (/&
+ & 3.3683E-01_JPRB,4.8921E-01_JPRB,6.7380E-01_JPRB,8.9005E-01_JPRB,1.1368E+00_JPRB/)  
+KBO( :,58, 9) = (/&
+ & 2.9052E-01_JPRB,4.3080E-01_JPRB,6.0283E-01_JPRB,8.0653E-01_JPRB,1.0401E+00_JPRB/)  
+KBO( :,59, 9) = (/&
+ & 2.7497E-01_JPRB,4.1213E-01_JPRB,5.8166E-01_JPRB,7.8275E-01_JPRB,1.0139E+00_JPRB/)  
+KBO( :,13,10) = (/&
+ & 6.2443E+01_JPRB,6.2764E+01_JPRB,6.3247E+01_JPRB,6.3715E+01_JPRB,6.4108E+01_JPRB/)  
+KBO( :,14,10) = (/&
+ & 5.9985E+01_JPRB,6.0474E+01_JPRB,6.1209E+01_JPRB,6.1839E+01_JPRB,6.2132E+01_JPRB/)  
+KBO( :,15,10) = (/&
+ & 5.6302E+01_JPRB,5.7213E+01_JPRB,5.7905E+01_JPRB,5.8328E+01_JPRB,5.8930E+01_JPRB/)  
+KBO( :,16,10) = (/&
+ & 5.2360E+01_JPRB,5.3074E+01_JPRB,5.3755E+01_JPRB,5.4642E+01_JPRB,5.5349E+01_JPRB/)  
+KBO( :,17,10) = (/&
+ & 4.8557E+01_JPRB,4.9472E+01_JPRB,5.0546E+01_JPRB,5.1358E+01_JPRB,5.2195E+01_JPRB/)  
+KBO( :,18,10) = (/&
+ & 4.5817E+01_JPRB,4.7034E+01_JPRB,4.8009E+01_JPRB,4.9111E+01_JPRB,5.0457E+01_JPRB/)  
+KBO( :,19,10) = (/&
+ & 4.3325E+01_JPRB,4.4456E+01_JPRB,4.5754E+01_JPRB,4.7330E+01_JPRB,4.8976E+01_JPRB/)  
+KBO( :,20,10) = (/&
+ & 3.9745E+01_JPRB,4.1127E+01_JPRB,4.2837E+01_JPRB,4.4567E+01_JPRB,4.6284E+01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART14',1,ZHOOK_HANDLE)
+END SUBROUTINE PART14
+
+
+SUBROUTINE PART15
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART15',0,ZHOOK_HANDLE)
+
+
+KBO( :,21,10) = (/&
+ & 3.6127E+01_JPRB,3.7823E+01_JPRB,3.9580E+01_JPRB,4.1335E+01_JPRB,4.3236E+01_JPRB/)  
+KBO( :,22,10) = (/&
+ & 3.2661E+01_JPRB,3.4362E+01_JPRB,3.6109E+01_JPRB,3.8022E+01_JPRB,4.0162E+01_JPRB/)  
+KBO( :,23,10) = (/&
+ & 2.9316E+01_JPRB,3.1011E+01_JPRB,3.2886E+01_JPRB,3.5036E+01_JPRB,3.7336E+01_JPRB/)  
+KBO( :,24,10) = (/&
+ & 2.6133E+01_JPRB,2.7977E+01_JPRB,3.0126E+01_JPRB,3.2424E+01_JPRB,3.4907E+01_JPRB/)  
+KBO( :,25,10) = (/&
+ & 2.3786E+01_JPRB,2.5903E+01_JPRB,2.8212E+01_JPRB,3.0718E+01_JPRB,3.3428E+01_JPRB/)  
+KBO( :,26,10) = (/&
+ & 2.2187E+01_JPRB,2.4436E+01_JPRB,2.6979E+01_JPRB,2.9726E+01_JPRB,3.2775E+01_JPRB/)  
+KBO( :,27,10) = (/&
+ & 2.0867E+01_JPRB,2.3290E+01_JPRB,2.6025E+01_JPRB,2.9060E+01_JPRB,3.2420E+01_JPRB/)  
+KBO( :,28,10) = (/&
+ & 1.9963E+01_JPRB,2.2440E+01_JPRB,2.5348E+01_JPRB,2.8653E+01_JPRB,3.2222E+01_JPRB/)  
+KBO( :,29,10) = (/&
+ & 1.9439E+01_JPRB,2.1951E+01_JPRB,2.4945E+01_JPRB,2.8411E+01_JPRB,3.2065E+01_JPRB/)  
+KBO( :,30,10) = (/&
+ & 1.9217E+01_JPRB,2.1773E+01_JPRB,2.4822E+01_JPRB,2.8258E+01_JPRB,3.1954E+01_JPRB/)  
+KBO( :,31,10) = (/&
+ & 1.9236E+01_JPRB,2.1821E+01_JPRB,2.4835E+01_JPRB,2.8172E+01_JPRB,3.1859E+01_JPRB/)  
+KBO( :,32,10) = (/&
+ & 1.9497E+01_JPRB,2.2156E+01_JPRB,2.5072E+01_JPRB,2.8334E+01_JPRB,3.2036E+01_JPRB/)  
+KBO( :,33,10) = (/&
+ & 1.9927E+01_JPRB,2.2649E+01_JPRB,2.5483E+01_JPRB,2.8731E+01_JPRB,3.2414E+01_JPRB/)  
+KBO( :,34,10) = (/&
+ & 2.0616E+01_JPRB,2.3435E+01_JPRB,2.6339E+01_JPRB,2.9629E+01_JPRB,3.3264E+01_JPRB/)  
+KBO( :,35,10) = (/&
+ & 2.1144E+01_JPRB,2.4078E+01_JPRB,2.7155E+01_JPRB,3.0411E+01_JPRB,3.3926E+01_JPRB/)  
+KBO( :,36,10) = (/&
+ & 2.1438E+01_JPRB,2.4511E+01_JPRB,2.7776E+01_JPRB,3.1069E+01_JPRB,3.4391E+01_JPRB/)  
+KBO( :,37,10) = (/&
+ & 2.0912E+01_JPRB,2.3999E+01_JPRB,2.7304E+01_JPRB,3.0662E+01_JPRB,3.3903E+01_JPRB/)  
+KBO( :,38,10) = (/&
+ & 2.0345E+01_JPRB,2.3428E+01_JPRB,2.6766E+01_JPRB,3.0163E+01_JPRB,3.3445E+01_JPRB/)  
+KBO( :,39,10) = (/&
+ & 1.9778E+01_JPRB,2.2831E+01_JPRB,2.6185E+01_JPRB,2.9606E+01_JPRB,3.2946E+01_JPRB/)  
+KBO( :,40,10) = (/&
+ & 1.8680E+01_JPRB,2.1589E+01_JPRB,2.4845E+01_JPRB,2.8243E+01_JPRB,3.1561E+01_JPRB/)  
+KBO( :,41,10) = (/&
+ & 1.7550E+01_JPRB,2.0318E+01_JPRB,2.3431E+01_JPRB,2.6770E+01_JPRB,3.0077E+01_JPRB/)  
+KBO( :,42,10) = (/&
+ & 1.6473E+01_JPRB,1.9098E+01_JPRB,2.2042E+01_JPRB,2.5289E+01_JPRB,2.8560E+01_JPRB/)  
+KBO( :,43,10) = (/&
+ & 1.5257E+01_JPRB,1.7707E+01_JPRB,2.0444E+01_JPRB,2.3540E+01_JPRB,2.6749E+01_JPRB/)  
+KBO( :,44,10) = (/&
+ & 1.4023E+01_JPRB,1.6313E+01_JPRB,1.8839E+01_JPRB,2.1729E+01_JPRB,2.4856E+01_JPRB/)  
+KBO( :,45,10) = (/&
+ & 1.2858E+01_JPRB,1.5005E+01_JPRB,1.7331E+01_JPRB,2.0013E+01_JPRB,2.3009E+01_JPRB/)  
+KBO( :,46,10) = (/&
+ & 1.1732E+01_JPRB,1.3762E+01_JPRB,1.5932E+01_JPRB,1.8398E+01_JPRB,2.1229E+01_JPRB/)  
+KBO( :,47,10) = (/&
+ & 1.0637E+01_JPRB,1.2563E+01_JPRB,1.4611E+01_JPRB,1.6882E+01_JPRB,1.9522E+01_JPRB/)  
+KBO( :,48,10) = (/&
+ & 9.5989E+00_JPRB,1.1430E+01_JPRB,1.3382E+01_JPRB,1.5508E+01_JPRB,1.7946E+01_JPRB/)  
+KBO( :,49,10) = (/&
+ & 8.6105E+00_JPRB,1.0367E+01_JPRB,1.2235E+01_JPRB,1.4247E+01_JPRB,1.6502E+01_JPRB/)  
+KBO( :,50,10) = (/&
+ & 7.7795E+00_JPRB,9.4717E+00_JPRB,1.1267E+01_JPRB,1.3203E+01_JPRB,1.5335E+01_JPRB/)  
+KBO( :,51,10) = (/&
+ & 7.0327E+00_JPRB,8.6531E+00_JPRB,1.0392E+01_JPRB,1.2262E+01_JPRB,1.4298E+01_JPRB/)  
+KBO( :,52,10) = (/&
+ & 6.3294E+00_JPRB,7.8785E+00_JPRB,9.5601E+00_JPRB,1.1364E+01_JPRB,1.3321E+01_JPRB/)  
+KBO( :,53,10) = (/&
+ & 5.6735E+00_JPRB,7.1473E+00_JPRB,8.7577E+00_JPRB,1.0501E+01_JPRB,1.2384E+01_JPRB/)  
+KBO( :,54,10) = (/&
+ & 5.1171E+00_JPRB,6.5109E+00_JPRB,8.0578E+00_JPRB,9.7452E+00_JPRB,1.1565E+01_JPRB/)  
+KBO( :,55,10) = (/&
+ & 4.6203E+00_JPRB,5.9356E+00_JPRB,7.4153E+00_JPRB,9.0377E+00_JPRB,1.0796E+01_JPRB/)  
+KBO( :,56,10) = (/&
+ & 4.1502E+00_JPRB,5.3934E+00_JPRB,6.7922E+00_JPRB,8.3512E+00_JPRB,1.0055E+01_JPRB/)  
+KBO( :,57,10) = (/&
+ & 3.7055E+00_JPRB,4.8827E+00_JPRB,6.2007E+00_JPRB,7.6928E+00_JPRB,9.3383E+00_JPRB/)  
+KBO( :,58,10) = (/&
+ & 3.3017E+00_JPRB,4.4251E+00_JPRB,5.6661E+00_JPRB,7.0836E+00_JPRB,8.6693E+00_JPRB/)  
+KBO( :,59,10) = (/&
+ & 3.1387E+00_JPRB,4.2362E+00_JPRB,5.4398E+00_JPRB,6.8151E+00_JPRB,8.3756E+00_JPRB/)  
+KBO( :,13,11) = (/&
+ & 8.6501E+01_JPRB,8.6756E+01_JPRB,8.7009E+01_JPRB,8.7807E+01_JPRB,8.8321E+01_JPRB/)  
+KBO( :,14,11) = (/&
+ & 8.6001E+01_JPRB,8.6390E+01_JPRB,8.7153E+01_JPRB,8.7884E+01_JPRB,8.8485E+01_JPRB/)  
+KBO( :,15,11) = (/&
+ & 8.3396E+01_JPRB,8.4271E+01_JPRB,8.5263E+01_JPRB,8.6231E+01_JPRB,8.7169E+01_JPRB/)  
+KBO( :,16,11) = (/&
+ & 8.0216E+01_JPRB,8.1367E+01_JPRB,8.2641E+01_JPRB,8.3850E+01_JPRB,8.5113E+01_JPRB/)  
+KBO( :,17,11) = (/&
+ & 7.7559E+01_JPRB,7.9123E+01_JPRB,8.0637E+01_JPRB,8.2229E+01_JPRB,8.3780E+01_JPRB/)  
+KBO( :,18,11) = (/&
+ & 7.6113E+01_JPRB,7.8038E+01_JPRB,8.0039E+01_JPRB,8.1955E+01_JPRB,8.3906E+01_JPRB/)  
+KBO( :,19,11) = (/&
+ & 7.4701E+01_JPRB,7.7061E+01_JPRB,7.9341E+01_JPRB,8.1777E+01_JPRB,8.4316E+01_JPRB/)  
+KBO( :,20,11) = (/&
+ & 7.1644E+01_JPRB,7.4182E+01_JPRB,7.6892E+01_JPRB,7.9840E+01_JPRB,8.2902E+01_JPRB/)  
+KBO( :,21,11) = (/&
+ & 6.7620E+01_JPRB,7.0516E+01_JPRB,7.3720E+01_JPRB,7.7152E+01_JPRB,8.0637E+01_JPRB/)  
+KBO( :,22,11) = (/&
+ & 6.3004E+01_JPRB,6.6364E+01_JPRB,7.0039E+01_JPRB,7.3871E+01_JPRB,7.7820E+01_JPRB/)  
+KBO( :,23,11) = (/&
+ & 5.8500E+01_JPRB,6.2279E+01_JPRB,6.6312E+01_JPRB,7.0504E+01_JPRB,7.4998E+01_JPRB/)  
+KBO( :,24,11) = (/&
+ & 5.3727E+01_JPRB,5.7825E+01_JPRB,6.2144E+01_JPRB,6.6890E+01_JPRB,7.2071E+01_JPRB/)  
+KBO( :,25,11) = (/&
+ & 4.9481E+01_JPRB,5.3871E+01_JPRB,5.8717E+01_JPRB,6.4044E+01_JPRB,6.9704E+01_JPRB/)  
+KBO( :,26,11) = (/&
+ & 4.6254E+01_JPRB,5.1111E+01_JPRB,5.6460E+01_JPRB,6.2228E+01_JPRB,6.8093E+01_JPRB/)  
+KBO( :,27,11) = (/&
+ & 4.3953E+01_JPRB,4.9258E+01_JPRB,5.5047E+01_JPRB,6.1083E+01_JPRB,6.7149E+01_JPRB/)  
+KBO( :,28,11) = (/&
+ & 4.2333E+01_JPRB,4.8051E+01_JPRB,5.4161E+01_JPRB,6.0348E+01_JPRB,6.6482E+01_JPRB/)  
+KBO( :,29,11) = (/&
+ & 4.1519E+01_JPRB,4.7571E+01_JPRB,5.3856E+01_JPRB,6.0162E+01_JPRB,6.6490E+01_JPRB/)  
+KBO( :,30,11) = (/&
+ & 4.1079E+01_JPRB,4.7326E+01_JPRB,5.3742E+01_JPRB,6.0205E+01_JPRB,6.6744E+01_JPRB/)  
+KBO( :,31,11) = (/&
+ & 4.0957E+01_JPRB,4.7315E+01_JPRB,5.3845E+01_JPRB,6.0494E+01_JPRB,6.7153E+01_JPRB/)  
+KBO( :,32,11) = (/&
+ & 4.1227E+01_JPRB,4.7602E+01_JPRB,5.4282E+01_JPRB,6.1081E+01_JPRB,6.7763E+01_JPRB/)  
+KBO( :,33,11) = (/&
+ & 4.1826E+01_JPRB,4.8137E+01_JPRB,5.4944E+01_JPRB,6.1784E+01_JPRB,6.8374E+01_JPRB/)  
+KBO( :,34,11) = (/&
+ & 4.3072E+01_JPRB,4.9391E+01_JPRB,5.6254E+01_JPRB,6.3099E+01_JPRB,6.9725E+01_JPRB/)  
+KBO( :,35,11) = (/&
+ & 4.3986E+01_JPRB,5.0200E+01_JPRB,5.6858E+01_JPRB,6.3640E+01_JPRB,7.0415E+01_JPRB/)  
+KBO( :,36,11) = (/&
+ & 4.4502E+01_JPRB,5.0408E+01_JPRB,5.6628E+01_JPRB,6.3171E+01_JPRB,7.0200E+01_JPRB/)  
+KBO( :,37,11) = (/&
+ & 4.3850E+01_JPRB,4.9526E+01_JPRB,5.5508E+01_JPRB,6.1846E+01_JPRB,6.8955E+01_JPRB/)  
+KBO( :,38,11) = (/&
+ & 4.3288E+01_JPRB,4.8717E+01_JPRB,5.4460E+01_JPRB,6.0601E+01_JPRB,6.7672E+01_JPRB/)  
+KBO( :,39,11) = (/&
+ & 4.2793E+01_JPRB,4.8055E+01_JPRB,5.3543E+01_JPRB,5.9508E+01_JPRB,6.6570E+01_JPRB/)  
+KBO( :,40,11) = (/&
+ & 4.0982E+01_JPRB,4.6218E+01_JPRB,5.1475E+01_JPRB,5.7189E+01_JPRB,6.4026E+01_JPRB/)  
+KBO( :,41,11) = (/&
+ & 3.9015E+01_JPRB,4.4241E+01_JPRB,4.9337E+01_JPRB,5.4818E+01_JPRB,6.1396E+01_JPRB/)  
+KBO( :,42,11) = (/&
+ & 3.7029E+01_JPRB,4.2233E+01_JPRB,4.7279E+01_JPRB,5.2574E+01_JPRB,5.8917E+01_JPRB/)  
+KBO( :,43,11) = (/&
+ & 3.4672E+01_JPRB,3.9813E+01_JPRB,4.4910E+01_JPRB,5.0015E+01_JPRB,5.6019E+01_JPRB/)  
+KBO( :,44,11) = (/&
+ & 3.2216E+01_JPRB,3.7254E+01_JPRB,4.2367E+01_JPRB,4.7396E+01_JPRB,5.3071E+01_JPRB/)  
+KBO( :,45,11) = (/&
+ & 2.9847E+01_JPRB,3.4776E+01_JPRB,3.9855E+01_JPRB,4.4920E+01_JPRB,5.0317E+01_JPRB/)  
+KBO( :,46,11) = (/&
+ & 2.7555E+01_JPRB,3.2329E+01_JPRB,3.7304E+01_JPRB,4.2424E+01_JPRB,4.7633E+01_JPRB/)  
+KBO( :,47,11) = (/&
+ & 2.5262E+01_JPRB,2.9854E+01_JPRB,3.4721E+01_JPRB,3.9795E+01_JPRB,4.4945E+01_JPRB/)  
+KBO( :,48,11) = (/&
+ & 2.3081E+01_JPRB,2.7503E+01_JPRB,3.2213E+01_JPRB,3.7177E+01_JPRB,4.2342E+01_JPRB/)  
+KBO( :,49,11) = (/&
+ & 2.1057E+01_JPRB,2.5246E+01_JPRB,2.9758E+01_JPRB,3.4602E+01_JPRB,3.9727E+01_JPRB/)  
+KBO( :,50,11) = (/&
+ & 1.9318E+01_JPRB,2.3248E+01_JPRB,2.7618E+01_JPRB,3.2289E+01_JPRB,3.7300E+01_JPRB/)  
+KBO( :,51,11) = (/&
+ & 1.7764E+01_JPRB,2.1445E+01_JPRB,2.5630E+01_JPRB,3.0117E+01_JPRB,3.5003E+01_JPRB/)  
+KBO( :,52,11) = (/&
+ & 1.6284E+01_JPRB,1.9745E+01_JPRB,2.3706E+01_JPRB,2.8037E+01_JPRB,3.2754E+01_JPRB/)  
+KBO( :,53,11) = (/&
+ & 1.4870E+01_JPRB,1.8170E+01_JPRB,2.1878E+01_JPRB,2.6032E+01_JPRB,3.0559E+01_JPRB/)  
+KBO( :,54,11) = (/&
+ & 1.3618E+01_JPRB,1.6796E+01_JPRB,2.0287E+01_JPRB,2.4249E+01_JPRB,2.8597E+01_JPRB/)  
+KBO( :,55,11) = (/&
+ & 1.2457E+01_JPRB,1.5534E+01_JPRB,1.8860E+01_JPRB,2.2616E+01_JPRB,2.6796E+01_JPRB/)  
+KBO( :,56,11) = (/&
+ & 1.1356E+01_JPRB,1.4314E+01_JPRB,1.7512E+01_JPRB,2.1058E+01_JPRB,2.5045E+01_JPRB/)  
+KBO( :,57,11) = (/&
+ & 1.0320E+01_JPRB,1.3127E+01_JPRB,1.6224E+01_JPRB,1.9585E+01_JPRB,2.3359E+01_JPRB/)  
+KBO( :,58,11) = (/&
+ & 9.3830E+00_JPRB,1.2046E+01_JPRB,1.5046E+01_JPRB,1.8261E+01_JPRB,2.1817E+01_JPRB/)  
+KBO( :,59,11) = (/&
+ & 8.9391E+00_JPRB,1.1539E+01_JPRB,1.4477E+01_JPRB,1.7622E+01_JPRB,2.1055E+01_JPRB/)  
+KBO( :,13,12) = (/&
+ & 1.1536E+02_JPRB,1.1632E+02_JPRB,1.1676E+02_JPRB,1.1687E+02_JPRB,1.1771E+02_JPRB/)  
+KBO( :,14,12) = (/&
+ & 1.1996E+02_JPRB,1.2089E+02_JPRB,1.2132E+02_JPRB,1.2216E+02_JPRB,1.2355E+02_JPRB/)  
+KBO( :,15,12) = (/&
+ & 1.2190E+02_JPRB,1.2270E+02_JPRB,1.2390E+02_JPRB,1.2571E+02_JPRB,1.2681E+02_JPRB/)  
+KBO( :,16,12) = (/&
+ & 1.2181E+02_JPRB,1.2365E+02_JPRB,1.2585E+02_JPRB,1.2744E+02_JPRB,1.2865E+02_JPRB/)  
+KBO( :,17,12) = (/&
+ & 1.2361E+02_JPRB,1.2611E+02_JPRB,1.2809E+02_JPRB,1.2991E+02_JPRB,1.3207E+02_JPRB/)  
+KBO( :,18,12) = (/&
+ & 1.2791E+02_JPRB,1.3042E+02_JPRB,1.3285E+02_JPRB,1.3575E+02_JPRB,1.3866E+02_JPRB/)  
+KBO( :,19,12) = (/&
+ & 1.3167E+02_JPRB,1.3492E+02_JPRB,1.3862E+02_JPRB,1.4230E+02_JPRB,1.4589E+02_JPRB/)  
+KBO( :,20,12) = (/&
+ & 1.3240E+02_JPRB,1.3677E+02_JPRB,1.4130E+02_JPRB,1.4568E+02_JPRB,1.5011E+02_JPRB/)  
+KBO( :,21,12) = (/&
+ & 1.3167E+02_JPRB,1.3705E+02_JPRB,1.4232E+02_JPRB,1.4765E+02_JPRB,1.5295E+02_JPRB/)  
+KBO( :,22,12) = (/&
+ & 1.2941E+02_JPRB,1.3568E+02_JPRB,1.4188E+02_JPRB,1.4812E+02_JPRB,1.5420E+02_JPRB/)  
+KBO( :,23,12) = (/&
+ & 1.2650E+02_JPRB,1.3362E+02_JPRB,1.4090E+02_JPRB,1.4804E+02_JPRB,1.5493E+02_JPRB/)  
+KBO( :,24,12) = (/&
+ & 1.2203E+02_JPRB,1.3010E+02_JPRB,1.3824E+02_JPRB,1.4621E+02_JPRB,1.5349E+02_JPRB/)  
+KBO( :,25,12) = (/&
+ & 1.1780E+02_JPRB,1.2675E+02_JPRB,1.3578E+02_JPRB,1.4425E+02_JPRB,1.5220E+02_JPRB/)  
+KBO( :,26,12) = (/&
+ & 1.1452E+02_JPRB,1.2433E+02_JPRB,1.3394E+02_JPRB,1.4292E+02_JPRB,1.5154E+02_JPRB/)  
+KBO( :,27,12) = (/&
+ & 1.1158E+02_JPRB,1.2202E+02_JPRB,1.3200E+02_JPRB,1.4156E+02_JPRB,1.5071E+02_JPRB/)  
+KBO( :,28,12) = (/&
+ & 1.0877E+02_JPRB,1.1953E+02_JPRB,1.2986E+02_JPRB,1.3983E+02_JPRB,1.4949E+02_JPRB/)  
+KBO( :,29,12) = (/&
+ & 1.0758E+02_JPRB,1.1863E+02_JPRB,1.2937E+02_JPRB,1.3977E+02_JPRB,1.4973E+02_JPRB/)  
+KBO( :,30,12) = (/&
+ & 1.0679E+02_JPRB,1.1811E+02_JPRB,1.2916E+02_JPRB,1.3989E+02_JPRB,1.4980E+02_JPRB/)  
+KBO( :,31,12) = (/&
+ & 1.0688E+02_JPRB,1.1849E+02_JPRB,1.2989E+02_JPRB,1.4068E+02_JPRB,1.5077E+02_JPRB/)  
+KBO( :,32,12) = (/&
+ & 1.0761E+02_JPRB,1.1953E+02_JPRB,1.3110E+02_JPRB,1.4225E+02_JPRB,1.5305E+02_JPRB/)  
+KBO( :,33,12) = (/&
+ & 1.0869E+02_JPRB,1.2092E+02_JPRB,1.3311E+02_JPRB,1.4513E+02_JPRB,1.5706E+02_JPRB/)  
+KBO( :,34,12) = (/&
+ & 1.1112E+02_JPRB,1.2403E+02_JPRB,1.3695E+02_JPRB,1.4972E+02_JPRB,1.6276E+02_JPRB/)  
+KBO( :,35,12) = (/&
+ & 1.1246E+02_JPRB,1.2623E+02_JPRB,1.4002E+02_JPRB,1.5398E+02_JPRB,1.6809E+02_JPRB/)  
+KBO( :,36,12) = (/&
+ & 1.1250E+02_JPRB,1.2737E+02_JPRB,1.4246E+02_JPRB,1.5783E+02_JPRB,1.7316E+02_JPRB/)  
+KBO( :,37,12) = (/&
+ & 1.1061E+02_JPRB,1.2593E+02_JPRB,1.4155E+02_JPRB,1.5744E+02_JPRB,1.7321E+02_JPRB/)  
+KBO( :,38,12) = (/&
+ & 1.0863E+02_JPRB,1.2441E+02_JPRB,1.4054E+02_JPRB,1.5693E+02_JPRB,1.7309E+02_JPRB/)  
+KBO( :,39,12) = (/&
+ & 1.0682E+02_JPRB,1.2301E+02_JPRB,1.3972E+02_JPRB,1.5664E+02_JPRB,1.7318E+02_JPRB/)  
+KBO( :,40,12) = (/&
+ & 1.0231E+02_JPRB,1.1830E+02_JPRB,1.3525E+02_JPRB,1.5235E+02_JPRB,1.6904E+02_JPRB/)  
+KBO( :,41,12) = (/&
+ & 9.7591E+01_JPRB,1.1325E+02_JPRB,1.3028E+02_JPRB,1.4750E+02_JPRB,1.6434E+02_JPRB/)  
+KBO( :,42,12) = (/&
+ & 9.3027E+01_JPRB,1.0842E+02_JPRB,1.2533E+02_JPRB,1.4267E+02_JPRB,1.5965E+02_JPRB/)  
+KBO( :,43,12) = (/&
+ & 8.7538E+01_JPRB,1.0245E+02_JPRB,1.1885E+02_JPRB,1.3623E+02_JPRB,1.5326E+02_JPRB/)  
+KBO( :,44,12) = (/&
+ & 8.1886E+01_JPRB,9.6138E+01_JPRB,1.1198E+02_JPRB,1.2909E+02_JPRB,1.4608E+02_JPRB/)  
+KBO( :,45,12) = (/&
+ & 7.6645E+01_JPRB,9.0087E+01_JPRB,1.0542E+02_JPRB,1.2199E+02_JPRB,1.3900E+02_JPRB/)  
+KBO( :,46,12) = (/&
+ & 7.1474E+01_JPRB,8.4055E+01_JPRB,9.8742E+01_JPRB,1.1474E+02_JPRB,1.3156E+02_JPRB/)  
+KBO( :,47,12) = (/&
+ & 6.6310E+01_JPRB,7.7963E+01_JPRB,9.1690E+01_JPRB,1.0705E+02_JPRB,1.2340E+02_JPRB/)  
+KBO( :,48,12) = (/&
+ & 6.1600E+01_JPRB,7.2276E+01_JPRB,8.5037E+01_JPRB,9.9673E+01_JPRB,1.1542E+02_JPRB/)  
+KBO( :,49,12) = (/&
+ & 5.7283E+01_JPRB,6.7050E+01_JPRB,7.8923E+01_JPRB,9.2652E+01_JPRB,1.0778E+02_JPRB/)  
+KBO( :,50,12) = (/&
+ & 5.3478E+01_JPRB,6.2571E+01_JPRB,7.3516E+01_JPRB,8.6380E+01_JPRB,1.0082E+02_JPRB/)  
+KBO( :,51,12) = (/&
+ & 4.9875E+01_JPRB,5.8576E+01_JPRB,6.8672E+01_JPRB,8.0731E+01_JPRB,9.4376E+01_JPRB/)  
+KBO( :,52,12) = (/&
+ & 4.6408E+01_JPRB,5.4871E+01_JPRB,6.4185E+01_JPRB,7.5407E+01_JPRB,8.8241E+01_JPRB/)  
+KBO( :,53,12) = (/&
+ & 4.3049E+01_JPRB,5.1245E+01_JPRB,6.0053E+01_JPRB,7.0436E+01_JPRB,8.2512E+01_JPRB/)  
+KBO( :,54,12) = (/&
+ & 4.0074E+01_JPRB,4.8005E+01_JPRB,5.6523E+01_JPRB,6.6130E+01_JPRB,7.7483E+01_JPRB/)  
+KBO( :,55,12) = (/&
+ & 3.7334E+01_JPRB,4.4988E+01_JPRB,5.3284E+01_JPRB,6.2287E+01_JPRB,7.2912E+01_JPRB/)  
+KBO( :,56,12) = (/&
+ & 3.4721E+01_JPRB,4.2060E+01_JPRB,5.0133E+01_JPRB,5.8707E+01_JPRB,6.8606E+01_JPRB/)  
+KBO( :,57,12) = (/&
+ & 3.2171E+01_JPRB,3.9229E+01_JPRB,4.7079E+01_JPRB,5.5373E+01_JPRB,6.4605E+01_JPRB/)  
+KBO( :,58,12) = (/&
+ & 2.9794E+01_JPRB,3.6617E+01_JPRB,4.4198E+01_JPRB,5.2314E+01_JPRB,6.1016E+01_JPRB/)  
+KBO( :,59,12) = (/&
+ & 2.8699E+01_JPRB,3.5397E+01_JPRB,4.2806E+01_JPRB,5.0814E+01_JPRB,5.9273E+01_JPRB/)  
+KBO( :,13,13) = (/&
+ & 1.6492E+02_JPRB,1.6388E+02_JPRB,1.6346E+02_JPRB,1.6281E+02_JPRB,1.6185E+02_JPRB/)  
+KBO( :,14,13) = (/&
+ & 1.7807E+02_JPRB,1.7770E+02_JPRB,1.7743E+02_JPRB,1.7669E+02_JPRB,1.7598E+02_JPRB/)  
+KBO( :,15,13) = (/&
+ & 1.8993E+02_JPRB,1.9024E+02_JPRB,1.8997E+02_JPRB,1.8962E+02_JPRB,1.9043E+02_JPRB/)  
+KBO( :,16,13) = (/&
+ & 2.0050E+02_JPRB,2.0095E+02_JPRB,2.0135E+02_JPRB,2.0291E+02_JPRB,2.0501E+02_JPRB/)  
+KBO( :,17,13) = (/&
+ & 2.0905E+02_JPRB,2.1062E+02_JPRB,2.1338E+02_JPRB,2.1661E+02_JPRB,2.1875E+02_JPRB/)  
+KBO( :,18,13) = (/&
+ & 2.1804E+02_JPRB,2.2224E+02_JPRB,2.2674E+02_JPRB,2.3000E+02_JPRB,2.3246E+02_JPRB/)  
+KBO( :,19,13) = (/&
+ & 2.3115E+02_JPRB,2.3655E+02_JPRB,2.4106E+02_JPRB,2.4477E+02_JPRB,2.4852E+02_JPRB/)  
+KBO( :,20,13) = (/&
+ & 2.4329E+02_JPRB,2.4898E+02_JPRB,2.5395E+02_JPRB,2.5885E+02_JPRB,2.6364E+02_JPRB/)  
+KBO( :,21,13) = (/&
+ & 2.5437E+02_JPRB,2.6055E+02_JPRB,2.6661E+02_JPRB,2.7260E+02_JPRB,2.7787E+02_JPRB/)  
+KBO( :,22,13) = (/&
+ & 2.6250E+02_JPRB,2.7007E+02_JPRB,2.7766E+02_JPRB,2.8448E+02_JPRB,2.9027E+02_JPRB/)  
+KBO( :,23,13) = (/&
+ & 2.6919E+02_JPRB,2.7869E+02_JPRB,2.8736E+02_JPRB,2.9473E+02_JPRB,3.0099E+02_JPRB/)  
+KBO( :,24,13) = (/&
+ & 2.7228E+02_JPRB,2.8325E+02_JPRB,2.9264E+02_JPRB,3.0066E+02_JPRB,3.0797E+02_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART15',1,ZHOOK_HANDLE)
+END SUBROUTINE PART15
+
+
+SUBROUTINE PART16
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART16',0,ZHOOK_HANDLE)
+
+
+KBO( :,25,13) = (/&
+ & 2.7478E+02_JPRB,2.8650E+02_JPRB,2.9632E+02_JPRB,3.0547E+02_JPRB,3.1366E+02_JPRB/)  
+KBO( :,26,13) = (/&
+ & 2.7718E+02_JPRB,2.8924E+02_JPRB,3.0014E+02_JPRB,3.1019E+02_JPRB,3.1917E+02_JPRB/)  
+KBO( :,27,13) = (/&
+ & 2.7773E+02_JPRB,2.9063E+02_JPRB,3.0281E+02_JPRB,3.1393E+02_JPRB,3.2342E+02_JPRB/)  
+KBO( :,28,13) = (/&
+ & 2.7669E+02_JPRB,2.9127E+02_JPRB,3.0469E+02_JPRB,3.1685E+02_JPRB,3.2697E+02_JPRB/)  
+KBO( :,29,13) = (/&
+ & 2.7898E+02_JPRB,2.9479E+02_JPRB,3.0937E+02_JPRB,3.2216E+02_JPRB,3.3294E+02_JPRB/)  
+KBO( :,30,13) = (/&
+ & 2.8228E+02_JPRB,2.9938E+02_JPRB,3.1508E+02_JPRB,3.2858E+02_JPRB,3.4068E+02_JPRB/)  
+KBO( :,31,13) = (/&
+ & 2.8807E+02_JPRB,3.0670E+02_JPRB,3.2315E+02_JPRB,3.3792E+02_JPRB,3.5112E+02_JPRB/)  
+KBO( :,32,13) = (/&
+ & 2.9599E+02_JPRB,3.1568E+02_JPRB,3.3326E+02_JPRB,3.4888E+02_JPRB,3.6266E+02_JPRB/)  
+KBO( :,33,13) = (/&
+ & 3.0608E+02_JPRB,3.2668E+02_JPRB,3.4478E+02_JPRB,3.6084E+02_JPRB,3.7554E+02_JPRB/)  
+KBO( :,34,13) = (/&
+ & 3.1667E+02_JPRB,3.3765E+02_JPRB,3.5613E+02_JPRB,3.7316E+02_JPRB,3.8829E+02_JPRB/)  
+KBO( :,35,13) = (/&
+ & 3.2596E+02_JPRB,3.4758E+02_JPRB,3.6720E+02_JPRB,3.8537E+02_JPRB,4.0075E+02_JPRB/)  
+KBO( :,36,13) = (/&
+ & 3.3359E+02_JPRB,3.5628E+02_JPRB,3.7747E+02_JPRB,3.9672E+02_JPRB,4.1282E+02_JPRB/)  
+KBO( :,37,13) = (/&
+ & 3.3360E+02_JPRB,3.5721E+02_JPRB,3.7933E+02_JPRB,3.9940E+02_JPRB,4.1630E+02_JPRB/)  
+KBO( :,38,13) = (/&
+ & 3.3326E+02_JPRB,3.5780E+02_JPRB,3.8082E+02_JPRB,4.0174E+02_JPRB,4.1947E+02_JPRB/)  
+KBO( :,39,13) = (/&
+ & 3.3309E+02_JPRB,3.5850E+02_JPRB,3.8253E+02_JPRB,4.0436E+02_JPRB,4.2297E+02_JPRB/)  
+KBO( :,40,13) = (/&
+ & 3.2648E+02_JPRB,3.5268E+02_JPRB,3.7698E+02_JPRB,3.9960E+02_JPRB,4.1913E+02_JPRB/)  
+KBO( :,41,13) = (/&
+ & 3.1896E+02_JPRB,3.4578E+02_JPRB,3.7035E+02_JPRB,3.9368E+02_JPRB,4.1397E+02_JPRB/)  
+KBO( :,42,13) = (/&
+ & 3.1112E+02_JPRB,3.3866E+02_JPRB,3.6362E+02_JPRB,3.8746E+02_JPRB,4.0853E+02_JPRB/)  
+KBO( :,43,13) = (/&
+ & 3.0052E+02_JPRB,3.2869E+02_JPRB,3.5427E+02_JPRB,3.7807E+02_JPRB,3.9999E+02_JPRB/)  
+KBO( :,44,13) = (/&
+ & 2.8853E+02_JPRB,3.1745E+02_JPRB,3.4358E+02_JPRB,3.6752E+02_JPRB,3.9013E+02_JPRB/)  
+KBO( :,45,13) = (/&
+ & 2.7601E+02_JPRB,3.0588E+02_JPRB,3.3279E+02_JPRB,3.5705E+02_JPRB,3.7967E+02_JPRB/)  
+KBO( :,46,13) = (/&
+ & 2.6267E+02_JPRB,2.9363E+02_JPRB,3.2123E+02_JPRB,3.4597E+02_JPRB,3.6877E+02_JPRB/)  
+KBO( :,47,13) = (/&
+ & 2.4757E+02_JPRB,2.7937E+02_JPRB,3.0805E+02_JPRB,3.3376E+02_JPRB,3.5676E+02_JPRB/)  
+KBO( :,48,13) = (/&
+ & 2.3214E+02_JPRB,2.6483E+02_JPRB,2.9482E+02_JPRB,3.2128E+02_JPRB,3.4490E+02_JPRB/)  
+KBO( :,49,13) = (/&
+ & 2.1667E+02_JPRB,2.4994E+02_JPRB,2.8075E+02_JPRB,3.0839E+02_JPRB,3.3291E+02_JPRB/)  
+KBO( :,50,13) = (/&
+ & 2.0214E+02_JPRB,2.3567E+02_JPRB,2.6727E+02_JPRB,2.9615E+02_JPRB,3.2136E+02_JPRB/)  
+KBO( :,51,13) = (/&
+ & 1.8827E+02_JPRB,2.2174E+02_JPRB,2.5386E+02_JPRB,2.8344E+02_JPRB,3.0975E+02_JPRB/)  
+KBO( :,52,13) = (/&
+ & 1.7469E+02_JPRB,2.0766E+02_JPRB,2.4021E+02_JPRB,2.7051E+02_JPRB,2.9806E+02_JPRB/)  
+KBO( :,53,13) = (/&
+ & 1.6154E+02_JPRB,1.9380E+02_JPRB,2.2644E+02_JPRB,2.5730E+02_JPRB,2.8551E+02_JPRB/)  
+KBO( :,54,13) = (/&
+ & 1.4971E+02_JPRB,1.8121E+02_JPRB,2.1351E+02_JPRB,2.4474E+02_JPRB,2.7363E+02_JPRB/)  
+KBO( :,55,13) = (/&
+ & 1.3871E+02_JPRB,1.6943E+02_JPRB,2.0115E+02_JPRB,2.3248E+02_JPRB,2.6185E+02_JPRB/)  
+KBO( :,56,13) = (/&
+ & 1.2829E+02_JPRB,1.5787E+02_JPRB,1.8899E+02_JPRB,2.2029E+02_JPRB,2.4989E+02_JPRB/)  
+KBO( :,57,13) = (/&
+ & 1.1862E+02_JPRB,1.4668E+02_JPRB,1.7707E+02_JPRB,2.0801E+02_JPRB,2.3778E+02_JPRB/)  
+KBO( :,58,13) = (/&
+ & 1.1001E+02_JPRB,1.3648E+02_JPRB,1.6587E+02_JPRB,1.9633E+02_JPRB,2.2625E+02_JPRB/)  
+KBO( :,59,13) = (/&
+ & 1.0617E+02_JPRB,1.3192E+02_JPRB,1.6056E+02_JPRB,1.9063E+02_JPRB,2.2036E+02_JPRB/)  
+KBO( :,13,14) = (/&
+ & 2.3740E+02_JPRB,2.3433E+02_JPRB,2.3150E+02_JPRB,2.2987E+02_JPRB,2.2791E+02_JPRB/)  
+KBO( :,14,14) = (/&
+ & 2.6697E+02_JPRB,2.6354E+02_JPRB,2.6091E+02_JPRB,2.5890E+02_JPRB,2.5611E+02_JPRB/)  
+KBO( :,15,14) = (/&
+ & 2.9866E+02_JPRB,2.9528E+02_JPRB,2.9285E+02_JPRB,2.8971E+02_JPRB,2.8602E+02_JPRB/)  
+KBO( :,16,14) = (/&
+ & 3.3180E+02_JPRB,3.2877E+02_JPRB,3.2564E+02_JPRB,3.2149E+02_JPRB,3.1785E+02_JPRB/)  
+KBO( :,17,14) = (/&
+ & 3.6593E+02_JPRB,3.6291E+02_JPRB,3.5866E+02_JPRB,3.5483E+02_JPRB,3.5327E+02_JPRB/)  
+KBO( :,18,14) = (/&
+ & 4.0089E+02_JPRB,3.9701E+02_JPRB,3.9353E+02_JPRB,3.9249E+02_JPRB,3.9242E+02_JPRB/)  
+KBO( :,19,14) = (/&
+ & 4.3492E+02_JPRB,4.3255E+02_JPRB,4.3249E+02_JPRB,4.3314E+02_JPRB,4.3203E+02_JPRB/)  
+KBO( :,20,14) = (/&
+ & 4.6851E+02_JPRB,4.6867E+02_JPRB,4.6996E+02_JPRB,4.7008E+02_JPRB,4.6768E+02_JPRB/)  
+KBO( :,21,14) = (/&
+ & 5.0160E+02_JPRB,5.0368E+02_JPRB,5.0510E+02_JPRB,5.0393E+02_JPRB,5.0142E+02_JPRB/)  
+KBO( :,22,14) = (/&
+ & 5.3436E+02_JPRB,5.3662E+02_JPRB,5.3668E+02_JPRB,5.3522E+02_JPRB,5.3316E+02_JPRB/)  
+KBO( :,23,14) = (/&
+ & 5.6475E+02_JPRB,5.6646E+02_JPRB,5.6617E+02_JPRB,5.6492E+02_JPRB,5.6377E+02_JPRB/)  
+KBO( :,24,14) = (/&
+ & 5.9117E+02_JPRB,5.9235E+02_JPRB,5.9305E+02_JPRB,5.9284E+02_JPRB,5.9155E+02_JPRB/)  
+KBO( :,25,14) = (/&
+ & 6.1433E+02_JPRB,6.1663E+02_JPRB,6.1844E+02_JPRB,6.1841E+02_JPRB,6.1657E+02_JPRB/)  
+KBO( :,26,14) = (/&
+ & 6.3532E+02_JPRB,6.3942E+02_JPRB,6.4146E+02_JPRB,6.4105E+02_JPRB,6.3887E+02_JPRB/)  
+KBO( :,27,14) = (/&
+ & 6.5539E+02_JPRB,6.6044E+02_JPRB,6.6224E+02_JPRB,6.6141E+02_JPRB,6.5941E+02_JPRB/)  
+KBO( :,28,14) = (/&
+ & 6.7497E+02_JPRB,6.7980E+02_JPRB,6.8130E+02_JPRB,6.7994E+02_JPRB,6.7811E+02_JPRB/)  
+KBO( :,29,14) = (/&
+ & 6.9431E+02_JPRB,6.9884E+02_JPRB,6.9950E+02_JPRB,6.9835E+02_JPRB,6.9642E+02_JPRB/)  
+KBO( :,30,14) = (/&
+ & 7.1327E+02_JPRB,7.1751E+02_JPRB,7.1742E+02_JPRB,7.1698E+02_JPRB,7.1542E+02_JPRB/)  
+KBO( :,31,14) = (/&
+ & 7.3356E+02_JPRB,7.3622E+02_JPRB,7.3751E+02_JPRB,7.3724E+02_JPRB,7.3663E+02_JPRB/)  
+KBO( :,32,14) = (/&
+ & 7.5311E+02_JPRB,7.5602E+02_JPRB,7.5787E+02_JPRB,7.5927E+02_JPRB,7.5912E+02_JPRB/)  
+KBO( :,33,14) = (/&
+ & 7.7307E+02_JPRB,7.7793E+02_JPRB,7.8149E+02_JPRB,7.8317E+02_JPRB,7.8351E+02_JPRB/)  
+KBO( :,34,14) = (/&
+ & 7.9467E+02_JPRB,8.0056E+02_JPRB,8.0525E+02_JPRB,8.0749E+02_JPRB,8.0900E+02_JPRB/)  
+KBO( :,35,14) = (/&
+ & 8.1769E+02_JPRB,8.2551E+02_JPRB,8.3062E+02_JPRB,8.3402E+02_JPRB,8.3937E+02_JPRB/)  
+KBO( :,36,14) = (/&
+ & 8.4220E+02_JPRB,8.5215E+02_JPRB,8.5810E+02_JPRB,8.6400E+02_JPRB,8.7476E+02_JPRB/)  
+KBO( :,37,14) = (/&
+ & 8.5305E+02_JPRB,8.6405E+02_JPRB,8.7082E+02_JPRB,8.7797E+02_JPRB,8.9053E+02_JPRB/)  
+KBO( :,38,14) = (/&
+ & 8.6322E+02_JPRB,8.7544E+02_JPRB,8.8314E+02_JPRB,8.9164E+02_JPRB,9.0590E+02_JPRB/)  
+KBO( :,39,14) = (/&
+ & 8.7378E+02_JPRB,8.8745E+02_JPRB,8.9629E+02_JPRB,9.0629E+02_JPRB,9.2255E+02_JPRB/)  
+KBO( :,40,14) = (/&
+ & 8.7238E+02_JPRB,8.8620E+02_JPRB,8.9614E+02_JPRB,9.0579E+02_JPRB,9.1970E+02_JPRB/)  
+KBO( :,41,14) = (/&
+ & 8.6852E+02_JPRB,8.8300E+02_JPRB,8.9419E+02_JPRB,9.0301E+02_JPRB,9.1475E+02_JPRB/)  
+KBO( :,42,14) = (/&
+ & 8.6436E+02_JPRB,8.7945E+02_JPRB,8.9208E+02_JPRB,9.0006E+02_JPRB,9.1044E+02_JPRB/)  
+KBO( :,43,14) = (/&
+ & 8.5621E+02_JPRB,8.7164E+02_JPRB,8.8447E+02_JPRB,8.9300E+02_JPRB,9.0169E+02_JPRB/)  
+KBO( :,44,14) = (/&
+ & 8.4579E+02_JPRB,8.6160E+02_JPRB,8.7458E+02_JPRB,8.8449E+02_JPRB,8.9117E+02_JPRB/)  
+KBO( :,45,14) = (/&
+ & 8.3552E+02_JPRB,8.5159E+02_JPRB,8.6481E+02_JPRB,8.7553E+02_JPRB,8.8180E+02_JPRB/)  
+KBO( :,46,14) = (/&
+ & 8.2373E+02_JPRB,8.4082E+02_JPRB,8.5433E+02_JPRB,8.6532E+02_JPRB,8.7296E+02_JPRB/)  
+KBO( :,47,14) = (/&
+ & 8.0885E+02_JPRB,8.2944E+02_JPRB,8.4330E+02_JPRB,8.5448E+02_JPRB,8.6308E+02_JPRB/)  
+KBO( :,48,14) = (/&
+ & 7.9282E+02_JPRB,8.1701E+02_JPRB,8.3172E+02_JPRB,8.4330E+02_JPRB,8.5233E+02_JPRB/)  
+KBO( :,49,14) = (/&
+ & 7.7474E+02_JPRB,8.0258E+02_JPRB,8.2078E+02_JPRB,8.3236E+02_JPRB,8.4158E+02_JPRB/)  
+KBO( :,50,14) = (/&
+ & 7.5683E+02_JPRB,7.8804E+02_JPRB,8.0940E+02_JPRB,8.2148E+02_JPRB,8.3083E+02_JPRB/)  
+KBO( :,51,14) = (/&
+ & 7.3938E+02_JPRB,7.7206E+02_JPRB,7.9641E+02_JPRB,8.1162E+02_JPRB,8.2058E+02_JPRB/)  
+KBO( :,52,14) = (/&
+ & 7.2202E+02_JPRB,7.5535E+02_JPRB,7.8294E+02_JPRB,8.0108E+02_JPRB,8.1024E+02_JPRB/)  
+KBO( :,53,14) = (/&
+ & 7.0324E+02_JPRB,7.3897E+02_JPRB,7.6789E+02_JPRB,7.8856E+02_JPRB,8.0094E+02_JPRB/)  
+KBO( :,54,14) = (/&
+ & 6.8557E+02_JPRB,7.2372E+02_JPRB,7.5272E+02_JPRB,7.7628E+02_JPRB,7.9095E+02_JPRB/)  
+KBO( :,55,14) = (/&
+ & 6.6859E+02_JPRB,7.0784E+02_JPRB,7.3838E+02_JPRB,7.6303E+02_JPRB,7.7977E+02_JPRB/)  
+KBO( :,56,14) = (/&
+ & 6.5053E+02_JPRB,6.9180E+02_JPRB,7.2460E+02_JPRB,7.4881E+02_JPRB,7.6818E+02_JPRB/)  
+KBO( :,57,14) = (/&
+ & 6.3162E+02_JPRB,6.7617E+02_JPRB,7.0983E+02_JPRB,7.3529E+02_JPRB,7.5540E+02_JPRB/)  
+KBO( :,58,14) = (/&
+ & 6.1260E+02_JPRB,6.6039E+02_JPRB,6.9564E+02_JPRB,7.2278E+02_JPRB,7.4208E+02_JPRB/)  
+KBO( :,59,14) = (/&
+ & 6.0339E+02_JPRB,6.5209E+02_JPRB,6.8806E+02_JPRB,7.1492E+02_JPRB,7.3375E+02_JPRB/)  
+KBO( :,13,15) = (/&
+ & 3.5098E+02_JPRB,3.4253E+02_JPRB,3.3549E+02_JPRB,3.2928E+02_JPRB,3.2668E+02_JPRB/)  
+KBO( :,14,15) = (/&
+ & 4.0377E+02_JPRB,3.9399E+02_JPRB,3.8548E+02_JPRB,3.7889E+02_JPRB,3.7631E+02_JPRB/)  
+KBO( :,15,15) = (/&
+ & 4.6249E+02_JPRB,4.5101E+02_JPRB,4.4105E+02_JPRB,4.3505E+02_JPRB,4.3250E+02_JPRB/)  
+KBO( :,16,15) = (/&
+ & 5.2722E+02_JPRB,5.1397E+02_JPRB,5.0360E+02_JPRB,4.9808E+02_JPRB,4.9380E+02_JPRB/)  
+KBO( :,17,15) = (/&
+ & 5.9816E+02_JPRB,5.8291E+02_JPRB,5.7380E+02_JPRB,5.6753E+02_JPRB,5.5862E+02_JPRB/)  
+KBO( :,18,15) = (/&
+ & 6.7401E+02_JPRB,6.5981E+02_JPRB,6.5045E+02_JPRB,6.3876E+02_JPRB,6.2938E+02_JPRB/)  
+KBO( :,19,15) = (/&
+ & 7.5603E+02_JPRB,7.4243E+02_JPRB,7.2713E+02_JPRB,7.1493E+02_JPRB,7.1147E+02_JPRB/)  
+KBO( :,20,15) = (/&
+ & 8.4018E+02_JPRB,8.2182E+02_JPRB,8.0329E+02_JPRB,7.9254E+02_JPRB,7.9403E+02_JPRB/)  
+KBO( :,21,15) = (/&
+ & 9.2407E+02_JPRB,8.9903E+02_JPRB,8.7966E+02_JPRB,8.7268E+02_JPRB,8.7487E+02_JPRB/)  
+KBO( :,22,15) = (/&
+ & 1.0011E+03_JPRB,9.7360E+02_JPRB,9.5759E+02_JPRB,9.5258E+02_JPRB,9.5318E+02_JPRB/)  
+KBO( :,23,15) = (/&
+ & 1.0752E+03_JPRB,1.0483E+03_JPRB,1.0346E+03_JPRB,1.0305E+03_JPRB,1.0291E+03_JPRB/)  
+KBO( :,24,15) = (/&
+ & 1.1456E+03_JPRB,1.1222E+03_JPRB,1.1083E+03_JPRB,1.1031E+03_JPRB,1.1046E+03_JPRB/)  
+KBO( :,25,15) = (/&
+ & 1.2128E+03_JPRB,1.1904E+03_JPRB,1.1781E+03_JPRB,1.1730E+03_JPRB,1.1805E+03_JPRB/)  
+KBO( :,26,15) = (/&
+ & 1.2750E+03_JPRB,1.2517E+03_JPRB,1.2401E+03_JPRB,1.2396E+03_JPRB,1.2511E+03_JPRB/)  
+KBO( :,27,15) = (/&
+ & 1.3306E+03_JPRB,1.3092E+03_JPRB,1.2993E+03_JPRB,1.3047E+03_JPRB,1.3242E+03_JPRB/)  
+KBO( :,28,15) = (/&
+ & 1.3803E+03_JPRB,1.3622E+03_JPRB,1.3582E+03_JPRB,1.3721E+03_JPRB,1.4060E+03_JPRB/)  
+KBO( :,29,15) = (/&
+ & 1.4288E+03_JPRB,1.4164E+03_JPRB,1.4235E+03_JPRB,1.4518E+03_JPRB,1.5063E+03_JPRB/)  
+KBO( :,30,15) = (/&
+ & 1.4796E+03_JPRB,1.4775E+03_JPRB,1.4997E+03_JPRB,1.5506E+03_JPRB,1.6294E+03_JPRB/)  
+KBO( :,31,15) = (/&
+ & 1.5388E+03_JPRB,1.5544E+03_JPRB,1.6015E+03_JPRB,1.6845E+03_JPRB,1.7959E+03_JPRB/)  
+KBO( :,32,15) = (/&
+ & 1.6108E+03_JPRB,1.6524E+03_JPRB,1.7357E+03_JPRB,1.8549E+03_JPRB,2.0073E+03_JPRB/)  
+KBO( :,33,15) = (/&
+ & 1.7049E+03_JPRB,1.7848E+03_JPRB,1.9109E+03_JPRB,2.0795E+03_JPRB,2.2809E+03_JPRB/)  
+KBO( :,34,15) = (/&
+ & 1.8222E+03_JPRB,1.9474E+03_JPRB,2.1232E+03_JPRB,2.3448E+03_JPRB,2.6010E+03_JPRB/)  
+KBO( :,35,15) = (/&
+ & 1.9666E+03_JPRB,2.1410E+03_JPRB,2.3742E+03_JPRB,2.6548E+03_JPRB,2.9712E+03_JPRB/)  
+KBO( :,36,15) = (/&
+ & 2.1340E+03_JPRB,2.3637E+03_JPRB,2.6606E+03_JPRB,3.0085E+03_JPRB,3.3914E+03_JPRB/)  
+KBO( :,37,15) = (/&
+ & 2.1914E+03_JPRB,2.4375E+03_JPRB,2.7564E+03_JPRB,3.1300E+03_JPRB,3.5406E+03_JPRB/)  
+KBO( :,38,15) = (/&
+ & 2.2462E+03_JPRB,2.5086E+03_JPRB,2.8496E+03_JPRB,3.2486E+03_JPRB,3.6885E+03_JPRB/)  
+KBO( :,39,15) = (/&
+ & 2.3075E+03_JPRB,2.5896E+03_JPRB,2.9560E+03_JPRB,3.3853E+03_JPRB,3.8593E+03_JPRB/)  
+KBO( :,40,15) = (/&
+ & 2.2597E+03_JPRB,2.5238E+03_JPRB,2.8725E+03_JPRB,3.2888E+03_JPRB,3.7565E+03_JPRB/)  
+KBO( :,41,15) = (/&
+ & 2.2030E+03_JPRB,2.4431E+03_JPRB,2.7663E+03_JPRB,3.1637E+03_JPRB,3.6169E+03_JPRB/)  
+KBO( :,42,15) = (/&
+ & 2.1527E+03_JPRB,2.3676E+03_JPRB,2.6649E+03_JPRB,3.0437E+03_JPRB,3.4807E+03_JPRB/)  
+KBO( :,43,15) = (/&
+ & 2.0801E+03_JPRB,2.2578E+03_JPRB,2.5168E+03_JPRB,2.8580E+03_JPRB,3.2606E+03_JPRB/)  
+KBO( :,44,15) = (/&
+ & 2.0120E+03_JPRB,2.1487E+03_JPRB,2.3643E+03_JPRB,2.6580E+03_JPRB,3.0218E+03_JPRB/)  
+KBO( :,45,15) = (/&
+ & 1.9613E+03_JPRB,2.0594E+03_JPRB,2.2322E+03_JPRB,2.4807E+03_JPRB,2.8037E+03_JPRB/)  
+KBO( :,46,15) = (/&
+ & 1.9248E+03_JPRB,1.9849E+03_JPRB,2.1161E+03_JPRB,2.3204E+03_JPRB,2.5965E+03_JPRB/)  
+KBO( :,47,15) = (/&
+ & 1.9027E+03_JPRB,1.9263E+03_JPRB,2.0143E+03_JPRB,2.1716E+03_JPRB,2.3989E+03_JPRB/)  
+KBO( :,48,15) = (/&
+ & 1.8901E+03_JPRB,1.8881E+03_JPRB,1.9372E+03_JPRB,2.0507E+03_JPRB,2.2312E+03_JPRB/)  
+KBO( :,49,15) = (/&
+ & 1.8889E+03_JPRB,1.8669E+03_JPRB,1.8827E+03_JPRB,1.9550E+03_JPRB,2.0905E+03_JPRB/)  
+KBO( :,50,15) = (/&
+ & 1.8989E+03_JPRB,1.8542E+03_JPRB,1.8471E+03_JPRB,1.8860E+03_JPRB,1.9820E+03_JPRB/)  
+KBO( :,51,15) = (/&
+ & 1.9169E+03_JPRB,1.8516E+03_JPRB,1.8269E+03_JPRB,1.8368E+03_JPRB,1.8967E+03_JPRB/)  
+KBO( :,52,15) = (/&
+ & 1.9362E+03_JPRB,1.8607E+03_JPRB,1.8138E+03_JPRB,1.8022E+03_JPRB,1.8318E+03_JPRB/)  
+KBO( :,53,15) = (/&
+ & 1.9614E+03_JPRB,1.8769E+03_JPRB,1.8109E+03_JPRB,1.7819E+03_JPRB,1.7849E+03_JPRB/)  
+KBO( :,54,15) = (/&
+ & 1.9844E+03_JPRB,1.8925E+03_JPRB,1.8175E+03_JPRB,1.7685E+03_JPRB,1.7516E+03_JPRB/)  
+KBO( :,55,15) = (/&
+ & 2.0020E+03_JPRB,1.9117E+03_JPRB,1.8292E+03_JPRB,1.7630E+03_JPRB,1.7309E+03_JPRB/)  
+KBO( :,56,15) = (/&
+ & 2.0278E+03_JPRB,1.9328E+03_JPRB,1.8420E+03_JPRB,1.7676E+03_JPRB,1.7165E+03_JPRB/)  
+KBO( :,57,15) = (/&
+ & 2.0604E+03_JPRB,1.9486E+03_JPRB,1.8586E+03_JPRB,1.7772E+03_JPRB,1.7105E+03_JPRB/)  
+KBO( :,58,15) = (/&
+ & 2.0975E+03_JPRB,1.9708E+03_JPRB,1.8754E+03_JPRB,1.7869E+03_JPRB,1.7130E+03_JPRB/)  
+KBO( :,59,15) = (/&
+ & 2.1134E+03_JPRB,1.9790E+03_JPRB,1.8747E+03_JPRB,1.7853E+03_JPRB,1.7084E+03_JPRB/)  
+KBO( :,13,16) = (/&
+ & 5.7032E+02_JPRB,5.5610E+02_JPRB,5.4108E+02_JPRB,5.2545E+02_JPRB,5.0988E+02_JPRB/)  
+KBO( :,14,16) = (/&
+ & 6.6729E+02_JPRB,6.4906E+02_JPRB,6.2994E+02_JPRB,6.1106E+02_JPRB,5.9252E+02_JPRB/)  
+KBO( :,15,16) = (/&
+ & 7.7710E+02_JPRB,7.5381E+02_JPRB,7.3065E+02_JPRB,7.0752E+02_JPRB,6.8404E+02_JPRB/)  
+KBO( :,16,16) = (/&
+ & 8.9983E+02_JPRB,8.7150E+02_JPRB,8.4258E+02_JPRB,8.1329E+02_JPRB,7.9266E+02_JPRB/)  
+KBO( :,17,16) = (/&
+ & 1.0356E+03_JPRB,9.9960E+02_JPRB,9.6297E+02_JPRB,9.3112E+02_JPRB,9.3376E+02_JPRB/)  
+KBO( :,18,16) = (/&
+ & 1.1805E+03_JPRB,1.1349E+03_JPRB,1.0927E+03_JPRB,1.0913E+03_JPRB,1.1178E+03_JPRB/)  
+KBO( :,19,16) = (/&
+ & 1.3301E+03_JPRB,1.2743E+03_JPRB,1.2636E+03_JPRB,1.2905E+03_JPRB,1.3412E+03_JPRB/)  
+KBO( :,20,16) = (/&
+ & 1.4790E+03_JPRB,1.4325E+03_JPRB,1.4416E+03_JPRB,1.4834E+03_JPRB,1.5509E+03_JPRB/)  
+KBO( :,21,16) = (/&
+ & 1.6248E+03_JPRB,1.6005E+03_JPRB,1.6227E+03_JPRB,1.6765E+03_JPRB,1.7801E+03_JPRB/)  
+KBO( :,22,16) = (/&
+ & 1.7789E+03_JPRB,1.7751E+03_JPRB,1.8121E+03_JPRB,1.8963E+03_JPRB,2.0533E+03_JPRB/)  
+KBO( :,23,16) = (/&
+ & 1.9420E+03_JPRB,1.9550E+03_JPRB,2.0171E+03_JPRB,2.1515E+03_JPRB,2.3736E+03_JPRB/)  
+KBO( :,24,16) = (/&
+ & 2.1057E+03_JPRB,2.1395E+03_JPRB,2.2516E+03_JPRB,2.4478E+03_JPRB,2.7312E+03_JPRB/)  
+KBO( :,25,16) = (/&
+ & 2.2727E+03_JPRB,2.3487E+03_JPRB,2.5135E+03_JPRB,2.7876E+03_JPRB,3.1353E+03_JPRB/)  
+KBO( :,26,16) = (/&
+ & 2.4430E+03_JPRB,2.5769E+03_JPRB,2.8118E+03_JPRB,3.1571E+03_JPRB,3.5871E+03_JPRB/)  
+KBO( :,27,16) = (/&
+ & 2.6427E+03_JPRB,2.8396E+03_JPRB,3.1669E+03_JPRB,3.5883E+03_JPRB,4.0930E+03_JPRB/)  
+KBO( :,28,16) = (/&
+ & 2.8823E+03_JPRB,3.1635E+03_JPRB,3.5805E+03_JPRB,4.0928E+03_JPRB,4.6511E+03_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART16',1,ZHOOK_HANDLE)
+END SUBROUTINE PART16
+
+
+SUBROUTINE PART17
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART17',0,ZHOOK_HANDLE)
+
+
+KBO( :,29,16) = (/&
+ & 3.1912E+03_JPRB,3.5861E+03_JPRB,4.1049E+03_JPRB,4.7016E+03_JPRB,5.3176E+03_JPRB/)  
+KBO( :,30,16) = (/&
+ & 3.5968E+03_JPRB,4.1208E+03_JPRB,4.7628E+03_JPRB,5.4277E+03_JPRB,6.1129E+03_JPRB/)  
+KBO( :,31,16) = (/&
+ & 4.1669E+03_JPRB,4.8568E+03_JPRB,5.5986E+03_JPRB,6.3508E+03_JPRB,7.1245E+03_JPRB/)  
+KBO( :,32,16) = (/&
+ & 4.9181E+03_JPRB,5.7548E+03_JPRB,6.5943E+03_JPRB,7.4480E+03_JPRB,8.3250E+03_JPRB/)  
+KBO( :,33,16) = (/&
+ & 5.8885E+03_JPRB,6.8470E+03_JPRB,7.8053E+03_JPRB,8.7780E+03_JPRB,9.7768E+03_JPRB/)  
+KBO( :,34,16) = (/&
+ & 6.9635E+03_JPRB,8.0514E+03_JPRB,9.1398E+03_JPRB,1.0245E+04_JPRB,1.1380E+04_JPRB/)  
+KBO( :,35,16) = (/&
+ & 8.1473E+03_JPRB,9.3881E+03_JPRB,1.0630E+04_JPRB,1.1894E+04_JPRB,1.3185E+04_JPRB/)  
+KBO( :,36,16) = (/&
+ & 9.4364E+03_JPRB,1.0865E+04_JPRB,1.2293E+04_JPRB,1.3743E+04_JPRB,1.5227E+04_JPRB/)  
+KBO( :,37,16) = (/&
+ & 9.8676E+03_JPRB,1.1389E+04_JPRB,1.2910E+04_JPRB,1.4442E+04_JPRB,1.6011E+04_JPRB/)  
+KBO( :,38,16) = (/&
+ & 1.0288E+04_JPRB,1.1907E+04_JPRB,1.3518E+04_JPRB,1.5146E+04_JPRB,1.6802E+04_JPRB/)  
+KBO( :,39,16) = (/&
+ & 1.0771E+04_JPRB,1.2499E+04_JPRB,1.4216E+04_JPRB,1.5954E+04_JPRB,1.7707E+04_JPRB/)  
+KBO( :,40,16) = (/&
+ & 1.0414E+04_JPRB,1.2148E+04_JPRB,1.3875E+04_JPRB,1.5613E+04_JPRB,1.7368E+04_JPRB/)  
+KBO( :,41,16) = (/&
+ & 9.9384E+03_JPRB,1.1661E+04_JPRB,1.3383E+04_JPRB,1.5104E+04_JPRB,1.6844E+04_JPRB/)  
+KBO( :,42,16) = (/&
+ & 9.4612E+03_JPRB,1.1170E+04_JPRB,1.2888E+04_JPRB,1.4596E+04_JPRB,1.6317E+04_JPRB/)  
+KBO( :,43,16) = (/&
+ & 8.7147E+03_JPRB,1.0370E+04_JPRB,1.2042E+04_JPRB,1.3705E+04_JPRB,1.5380E+04_JPRB/)  
+KBO( :,44,16) = (/&
+ & 7.8820E+03_JPRB,9.4600E+03_JPRB,1.1070E+04_JPRB,1.2678E+04_JPRB,1.4284E+04_JPRB/)  
+KBO( :,45,16) = (/&
+ & 7.0926E+03_JPRB,8.5904E+03_JPRB,1.0135E+04_JPRB,1.1689E+04_JPRB,1.3230E+04_JPRB/)  
+KBO( :,46,16) = (/&
+ & 6.3333E+03_JPRB,7.7267E+03_JPRB,9.1993E+03_JPRB,1.0689E+04_JPRB,1.2169E+04_JPRB/)  
+KBO( :,47,16) = (/&
+ & 5.6159E+03_JPRB,6.8398E+03_JPRB,8.2286E+03_JPRB,9.6499E+03_JPRB,1.1071E+04_JPRB/)  
+KBO( :,48,16) = (/&
+ & 5.0469E+03_JPRB,6.0380E+03_JPRB,7.3127E+03_JPRB,8.6620E+03_JPRB,1.0021E+04_JPRB/)  
+KBO( :,49,16) = (/&
+ & 4.6114E+03_JPRB,5.3556E+03_JPRB,6.4573E+03_JPRB,7.7273E+03_JPRB,9.0204E+03_JPRB/)  
+KBO( :,50,16) = (/&
+ & 4.2827E+03_JPRB,4.8418E+03_JPRB,5.7290E+03_JPRB,6.8837E+03_JPRB,8.1065E+03_JPRB/)  
+KBO( :,51,16) = (/&
+ & 4.0377E+03_JPRB,4.4505E+03_JPRB,5.1216E+03_JPRB,6.1118E+03_JPRB,7.2612E+03_JPRB/)  
+KBO( :,52,16) = (/&
+ & 3.9027E+03_JPRB,4.1388E+03_JPRB,4.6373E+03_JPRB,5.4292E+03_JPRB,6.4624E+03_JPRB/)  
+KBO( :,53,16) = (/&
+ & 3.8594E+03_JPRB,3.9014E+03_JPRB,4.2603E+03_JPRB,4.8496E+03_JPRB,5.7176E+03_JPRB/)  
+KBO( :,54,16) = (/&
+ & 3.9053E+03_JPRB,3.7705E+03_JPRB,3.9739E+03_JPRB,4.4065E+03_JPRB,5.0959E+03_JPRB/)  
+KBO( :,55,16) = (/&
+ & 4.0460E+03_JPRB,3.7217E+03_JPRB,3.7544E+03_JPRB,4.0660E+03_JPRB,4.5765E+03_JPRB/)  
+KBO( :,56,16) = (/&
+ & 4.2054E+03_JPRB,3.7493E+03_JPRB,3.6207E+03_JPRB,3.7906E+03_JPRB,4.1568E+03_JPRB/)  
+KBO( :,57,16) = (/&
+ & 4.3770E+03_JPRB,3.8799E+03_JPRB,3.5717E+03_JPRB,3.5790E+03_JPRB,3.8293E+03_JPRB/)  
+KBO( :,58,16) = (/&
+ & 4.5510E+03_JPRB,4.0210E+03_JPRB,3.5972E+03_JPRB,3.4529E+03_JPRB,3.5736E+03_JPRB/)  
+KBO( :,59,16) = (/&
+ & 4.6237E+03_JPRB,4.0799E+03_JPRB,3.6344E+03_JPRB,3.3958E+03_JPRB,3.4194E+03_JPRB/)  
+
+!     The array SELFREFO contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+SELFREFO( :, 1) = (/&
+ & 2.83413E-02_JPRB, 2.51443E-02_JPRB, 2.23078E-02_JPRB, 1.97914E-02_JPRB, 1.75588E-02_JPRB,&
+ & 1.55780E-02_JPRB, 1.38207E-02_JPRB, 1.22617E-02_JPRB, 1.08785E-02_JPRB, 9.65132E-03_JPRB/)  
+SELFREFO( :, 2) = (/&
+ & 3.01506E-02_JPRB, 2.69506E-02_JPRB, 2.40901E-02_JPRB, 2.15333E-02_JPRB, 1.92478E-02_JPRB,&
+ & 1.72049E-02_JPRB, 1.53789E-02_JPRB, 1.37466E-02_JPRB, 1.22876E-02_JPRB, 1.09834E-02_JPRB/)  
+SELFREFO( :, 3) = (/&
+ & 4.24899E-02_JPRB, 3.77138E-02_JPRB, 3.34745E-02_JPRB, 2.97118E-02_JPRB, 2.63720E-02_JPRB,&
+ & 2.34077E-02_JPRB, 2.07765E-02_JPRB, 1.84411E-02_JPRB, 1.63682E-02_JPRB, 1.45283E-02_JPRB/)  
+SELFREFO( :, 4) = (/&
+ & 5.78648E-02_JPRB, 5.16988E-02_JPRB, 4.61899E-02_JPRB, 4.12679E-02_JPRB, 3.68705E-02_JPRB,&
+ & 3.29416E-02_JPRB, 2.94314E-02_JPRB, 2.62952E-02_JPRB, 2.34932E-02_JPRB, 2.09898E-02_JPRB/)  
+SELFREFO( :, 5) = (/&
+ & 6.96367E-02_JPRB, 6.36716E-02_JPRB, 5.82175E-02_JPRB, 5.32306E-02_JPRB, 4.86709E-02_JPRB,&
+ & 4.45018E-02_JPRB, 4.06898E-02_JPRB, 3.72043E-02_JPRB, 3.40174E-02_JPRB, 3.11034E-02_JPRB/)  
+SELFREFO( :, 6) = (/&
+ & 6.04073E-02_JPRB, 5.90856E-02_JPRB, 5.77929E-02_JPRB, 5.65284E-02_JPRB, 5.52916E-02_JPRB,&
+ & 5.40819E-02_JPRB, 5.28986E-02_JPRB, 5.17413E-02_JPRB, 5.06092E-02_JPRB, 4.95020E-02_JPRB/)  
+SELFREFO( :, 7) = (/&
+ & 6.19460E-02_JPRB, 6.02812E-02_JPRB, 5.86612E-02_JPRB, 5.70847E-02_JPRB, 5.55506E-02_JPRB,&
+ & 5.40577E-02_JPRB, 5.26049E-02_JPRB, 5.11912E-02_JPRB, 4.98155E-02_JPRB, 4.84767E-02_JPRB/)  
+SELFREFO( :, 8) = (/&
+ & 6.86939E-02_JPRB, 6.58429E-02_JPRB, 6.31102E-02_JPRB, 6.04909E-02_JPRB, 5.79804E-02_JPRB,&
+ & 5.55740E-02_JPRB, 5.32675E-02_JPRB, 5.10567E-02_JPRB, 4.89377E-02_JPRB, 4.69067E-02_JPRB/)  
+SELFREFO( :, 9) = (/&
+ & 8.18828E-02_JPRB, 7.77172E-02_JPRB, 7.37635E-02_JPRB, 7.00110E-02_JPRB, 6.64494E-02_JPRB,&
+ & 6.30689E-02_JPRB, 5.98604E-02_JPRB, 5.68152E-02_JPRB, 5.39248E-02_JPRB, 5.11815E-02_JPRB/)  
+SELFREFO( :,10) = (/&
+ & 8.41953E-02_JPRB, 8.10610E-02_JPRB, 7.80434E-02_JPRB, 7.51381E-02_JPRB, 7.23409E-02_JPRB,&
+ & 6.96479E-02_JPRB, 6.70551E-02_JPRB, 6.45589E-02_JPRB, 6.21556E-02_JPRB, 5.98417E-02_JPRB/)  
+SELFREFO( :,11) = (/&
+ & 9.41304E-02_JPRB, 8.97275E-02_JPRB, 8.55305E-02_JPRB, 8.15299E-02_JPRB, 7.77164E-02_JPRB,&
+ & 7.40812E-02_JPRB, 7.06161E-02_JPRB, 6.73131E-02_JPRB, 6.41646E-02_JPRB, 6.11633E-02_JPRB/)  
+SELFREFO( :,12) = (/&
+ & 9.55404E-02_JPRB, 9.02311E-02_JPRB, 8.52169E-02_JPRB, 8.04813E-02_JPRB, 7.60089E-02_JPRB,&
+ & 7.17850E-02_JPRB, 6.77958E-02_JPRB, 6.40284E-02_JPRB, 6.04703E-02_JPRB, 5.71099E-02_JPRB/)  
+SELFREFO( :,13) = (/&
+ & 9.32377E-02_JPRB, 8.99082E-02_JPRB, 8.66977E-02_JPRB, 8.36018E-02_JPRB, 8.06164E-02_JPRB,&
+ & 7.77376E-02_JPRB, 7.49617E-02_JPRB, 7.22848E-02_JPRB, 6.97036E-02_JPRB, 6.72145E-02_JPRB/)  
+SELFREFO( :,14) = (/&
+ & 1.14746E-01_JPRB, 1.08112E-01_JPRB, 1.01861E-01_JPRB, 9.59719E-02_JPRB, 9.04232E-02_JPRB,&
+ & 8.51952E-02_JPRB, 8.02695E-02_JPRB, 7.56285E-02_JPRB, 7.12559E-02_JPRB, 6.71361E-02_JPRB/)  
+SELFREFO( :,15) = (/&
+ & 1.23517E-01_JPRB, 1.19527E-01_JPRB, 1.15666E-01_JPRB, 1.11929E-01_JPRB, 1.08313E-01_JPRB,&
+ & 1.04814E-01_JPRB, 1.01428E-01_JPRB, 9.81512E-02_JPRB, 9.49803E-02_JPRB, 9.19119E-02_JPRB/)  
+SELFREFO( :,16) = (/&
+ & 1.44086E-01_JPRB, 1.36396E-01_JPRB, 1.29117E-01_JPRB, 1.22226E-01_JPRB, 1.15703E-01_JPRB,&
+ & 1.09528E-01_JPRB, 1.03683E-01_JPRB, 9.81497E-02_JPRB, 9.29116E-02_JPRB, 8.79530E-02_JPRB/)  
+
+FRACREFAO( :, 1) = (/&
+ !     From P = 1053.6 mb.
+ & 0.16898900_JPRB,0.15898301_JPRB,0.13575301_JPRB,0.12600900_JPRB,&
+ & 0.11545800_JPRB,0.09879170_JPRB,0.08106830_JPRB,0.06063440_JPRB,&
+ & 0.03988780_JPRB,0.00421760_JPRB,0.00346635_JPRB,0.00278779_JPRB,&
+ & 0.00206225_JPRB,0.00132324_JPRB,0.00050033_JPRB,0.00007038_JPRB/)  
+FRACREFAO( :, 2) = (/&
+ & 0.18209399_JPRB,0.15315101_JPRB,0.13571000_JPRB,0.12504999_JPRB,&
+ & 0.11379100_JPRB,0.09680810_JPRB,0.08008570_JPRB,0.05970280_JPRB,&
+ & 0.03942860_JPRB,0.00413383_JPRB,0.00343186_JPRB,0.00275558_JPRB,&
+ & 0.00204657_JPRB,0.00130219_JPRB,0.00045454_JPRB,0.00005664_JPRB/)  
+FRACREFAO( :, 3) = (/&
+ & 0.18459500_JPRB,0.15512000_JPRB,0.13395500_JPRB,0.12576801_JPRB,&
+ & 0.11276800_JPRB,0.09645190_JPRB,0.07956650_JPRB,0.05903340_JPRB,&
+ & 0.03887050_JPRB,0.00412226_JPRB,0.00339453_JPRB,0.00273518_JPRB,&
+ & 0.00196922_JPRB,0.00119411_JPRB,0.00040263_JPRB,0.00005664_JPRB/)  
+FRACREFAO( :, 4) = (/&
+ & 0.18458800_JPRB,0.15859900_JPRB,0.13278100_JPRB,0.12589300_JPRB,&
+ & 0.11272700_JPRB,0.09599660_JPRB,0.07903030_JPRB,0.05843600_JPRB,&
+ & 0.03843400_JPRB,0.00405181_JPRB,0.00337980_JPRB,0.00263818_JPRB,&
+ & 0.00186869_JPRB,0.00111807_JPRB,0.00040263_JPRB,0.00005664_JPRB/)  
+FRACREFAO( :, 5) = (/&
+ & 0.18459301_JPRB,0.16176100_JPRB,0.13235000_JPRB,0.12528200_JPRB,&
+ & 0.11237100_JPRB,0.09618840_JPRB,0.07833760_JPRB,0.05800770_JPRB,&
+ & 0.03787610_JPRB,0.00408253_JPRB,0.00330363_JPRB,0.00250445_JPRB,&
+ & 0.00176725_JPRB,0.00111753_JPRB,0.00040263_JPRB,0.00005664_JPRB/)  
+FRACREFAO( :, 6) = (/&
+ & 0.18454400_JPRB,0.16505300_JPRB,0.13221300_JPRB,0.12476600_JPRB,&
+ & 0.11158300_JPRB,0.09618120_JPRB,0.07797340_JPRB,0.05740380_JPRB,&
+ & 0.03742820_JPRB,0.00392691_JPRB,0.00312208_JPRB,0.00246306_JPRB,&
+ & 0.00176735_JPRB,0.00111721_JPRB,0.00040263_JPRB,0.00005664_JPRB/)  
+FRACREFAO( :, 7) = (/&
+ & 0.18452001_JPRB,0.16697501_JPRB,0.13445500_JPRB,0.12391300_JPRB,&
+ & 0.11059100_JPRB,0.09596890_JPRB,0.07761050_JPRB,0.05643200_JPRB,&
+ & 0.03686520_JPRB,0.00377086_JPRB,0.00309351_JPRB,0.00246297_JPRB,&
+ & 0.00176765_JPRB,0.00111700_JPRB,0.00040263_JPRB,0.00005664_JPRB/)  
+FRACREFAO( :, 8) = (/&
+ & 0.18460999_JPRB,0.16854499_JPRB,0.13922299_JPRB,0.12266400_JPRB,&
+ & 0.10962200_JPRB,0.09452030_JPRB,0.07653800_JPRB,0.05551340_JPRB,&
+ & 0.03609660_JPRB,0.00377043_JPRB,0.00309367_JPRB,0.00246304_JPRB,&
+ & 0.00176749_JPRB,0.00111689_JPRB,0.00040263_JPRB,0.00005664_JPRB/)  
+FRACREFAO( :, 9) = (/&
+ & 0.18312500_JPRB,0.16787501_JPRB,0.14720701_JPRB,0.12766500_JPRB,&
+ & 0.10890900_JPRB,0.08935530_JPRB,0.07310870_JPRB,0.05443140_JPRB,&
+ & 0.03566380_JPRB,0.00376446_JPRB,0.00309521_JPRB,0.00246510_JPRB,&
+ & 0.00176139_JPRB,0.00111543_JPRB,0.00040263_JPRB,0.00005664_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_KGB9:PART17',1,ZHOOK_HANDLE)
+END SUBROUTINE PART17
+
+
+END SUBROUTINE RRTM_KGB9
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb9.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb9.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_kgb9.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE RRTM_KGB9
+END SUBROUTINE RRTM_KGB9
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_rrtm_140gp.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_rrtm_140gp.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_rrtm_140gp.F90	(revision 1989)
@@ -0,0 +1,269 @@
+!***************************************************************************
+!                                                                          *
+!                RRTM :  RAPID RADIATIVE TRANSFER MODEL                    *
+!                                                                          *
+!             ATMOSPHERIC AND ENVIRONMENTAL RESEARCH, INC.                 *
+!                        840 MEMORIAL DRIVE                                *
+!                        CAMBRIDGE, MA 02139                               *
+!                                                                          *
+!                           ELI J. MLAWER                                  *
+!                         STEVEN J. TAUBMAN~                               *
+!                         SHEPARD A. CLOUGH                                *
+!                                                                          *
+!                        ~currently at GFDL                                *
+!                                                                          *
+!                       email:  mlawer@aer.com                             *
+!                                                                          *
+!        The authors wish to acknowledge the contributions of the          *
+!        following people:  Patrick D. Brown, Michael J. Iacono,           *
+!        Ronald E. Farren, Luke Chen, Robert Bergstrom.                    *
+!                                                                          *
+!***************************************************************************
+!     Reformatted for F90 by JJMorcrette, ECMWF, 980714                    * 
+!                                                                          *
+!***************************************************************************
+! *** mji ***
+! *** This version of RRTM has been altered to interface with either
+!     the ECMWF numerical weather prediction model or the ECMWF column 
+!     radiation model (ECRT) package. 
+
+!     Revised, April, 1997;  Michael J. Iacono, AER, Inc.
+!          - initial implementation of RRTM in ECRT code
+!     Revised, June, 1999;  Michael J. Iacono and Eli J. Mlawer, AER, Inc.
+!          - to implement generalized maximum/random cloud overlap
+
+SUBROUTINE RRTM_RRTM_140GP &
+ & ( KIDIA , KFDIA , KLON , KLEV,&
+ & PAER  , PAPH  , PAP,&
+ & PTS   , PTH   , PT,&
+ & P_ZEMIS , P_ZEMIW,&
+ & PQ    , PCCO2 , POZN,&
+ & PCLDF , PTAUCLD,&
+ & PEMIT , PFLUX , PFLUC, PTCLEAR &
+ & )  
+
+! *** This program is the driver for RRTM, the AER rapid model.  
+!     For each atmosphere the user wishes to analyze, this routine
+!     a) calls ECRTATM to read in the atmospheric profile 
+!     b) calls SETCOEF to calculate various quantities needed for 
+!        the radiative transfer algorithm
+!     c) calls RTRN to do the radiative transfer calculation for
+!        clear or cloudy sky
+!     d) writes out the upward, downward, and net flux for each
+!        level and the heating rate for each layer
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARRRTM  , ONLY : JPBAND   ,JPXSEC   ,JPGPT    ,JPLAY    ,&
+ & JPINPX  
+!------------------------------Arguments--------------------------------
+
+! Input arguments
+
+IMPLICIT NONE
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLON! Number of atmospheres (longitudes) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV! Number of atmospheric layers 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KIDIA ! First atmosphere index
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFDIA ! Last atmosphere index
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PAER(KLON,6,KLEV) ! Aerosol optical thickness
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PAPH(KLON,KLEV+1) ! Interface pressures (Pa)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PAP(KLON,KLEV) ! Layer pressures (Pa)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTS(KLON) ! Surface temperature (I_K)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTH(KLON,KLEV+1) ! Interface temperatures (I_K)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PT(KLON,KLEV) ! Layer temperature (I_K)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_ZEMIS(KLON) ! Non-window surface emissivity
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_ZEMIW(KLON) ! Window surface emissivity
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PQ(KLON,KLEV) ! H2O specific humidity (mmr)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCCO2 ! CO2 mass mixing ratio
+REAL(KIND=JPRB)   ,INTENT(IN)    :: POZN(KLON,KLEV) ! O3 mass mixing ratio
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCLDF(KLON,KLEV) ! Cloud fraction
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAUCLD(KLON,KLEV,JPBAND) ! Cloud optical depth
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PEMIT(KLON) ! Surface LW emissivity
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFLUX(KLON,2,KLEV+1) ! LW total sky flux (1=up, 2=down)
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFLUC(KLON,2,KLEV+1) ! LW clear sky flux (1=up, 2=down)
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTCLEAR(KLON) ! clear-sky fraction of column
+INTEGER(KIND=JPIM) :: ICLDLYR(JPLAY)        ! Cloud indicator
+REAL(KIND=JPRB) :: Z_CLDFRAC(JPLAY)           ! Cloud fraction
+REAL(KIND=JPRB) :: Z_TAUCLD(JPLAY,JPBAND)     ! Spectral optical thickness
+
+REAL(KIND=JPRB) :: Z_ABSS1 (JPGPT*JPLAY)
+REAL(KIND=JPRB) :: Z_ATR1  (JPGPT,JPLAY)
+EQUIVALENCE (Z_ABSS1(1),Z_ATR1(1,1))
+
+REAL(KIND=JPRB) :: Z_OD    (JPGPT,JPLAY)
+
+REAL(KIND=JPRB) :: Z_TAUSF1(JPGPT*JPLAY)
+REAL(KIND=JPRB) :: Z_TF1   (JPGPT,JPLAY)
+EQUIVALENCE (Z_TAUSF1(1),Z_TF1(1,1))
+
+REAL(KIND=JPRB) :: Z_COLDRY(JPLAY)
+REAL(KIND=JPRB) :: Z_WKL(JPINPX,JPLAY)
+
+REAL(KIND=JPRB) :: Z_WX(JPXSEC,JPLAY)         ! Amount of trace gases
+
+REAL(KIND=JPRB) :: Z_CLFNET  (0:JPLAY)
+REAL(KIND=JPRB) :: Z_CLHTR   (0:JPLAY)
+REAL(KIND=JPRB) :: Z_FNET    (0:JPLAY)
+REAL(KIND=JPRB) :: Z_HTR     (0:JPLAY)
+REAL(KIND=JPRB) :: Z_TOTDFLUC(0:JPLAY)
+REAL(KIND=JPRB) :: Z_TOTDFLUX(0:JPLAY)
+REAL(KIND=JPRB) :: Z_TOTUFLUC(0:JPLAY)
+REAL(KIND=JPRB) :: Z_TOTUFLUX(0:JPLAY)
+
+INTEGER(KIND=JPIM) :: i, icld, iplon, I_K
+INTEGER(KIND=JPIM) :: ISTART
+INTEGER(KIND=JPIM) :: IEND
+
+REAL(KIND=JPRB) :: Z_FLUXFAC, Z_HEATFAC, Z_PI, ZEPSEC, ZTCLEAR
+
+!- from AER
+REAL(KIND=JPRB) :: Z_TAUAERL(JPLAY,JPBAND)
+
+!- from INTFAC      
+REAL(KIND=JPRB) :: Z_FAC00(JPLAY)
+REAL(KIND=JPRB) :: Z_FAC01(JPLAY)
+REAL(KIND=JPRB) :: Z_FAC10(JPLAY)
+REAL(KIND=JPRB) :: Z_FAC11(JPLAY)
+REAL(KIND=JPRB) :: Z_FORFAC(JPLAY)
+
+!- from INTIND
+INTEGER(KIND=JPIM) :: JP(JPLAY)
+INTEGER(KIND=JPIM) :: JT(JPLAY)
+INTEGER(KIND=JPIM) :: JT1(JPLAY)
+
+!- from PRECISE             
+REAL(KIND=JPRB) :: Z_ONEMINUS
+
+!- from PROFDATA             
+REAL(KIND=JPRB) :: Z_COLH2O(JPLAY)
+REAL(KIND=JPRB) :: Z_COLCO2(JPLAY)
+REAL(KIND=JPRB) :: Z_COLO3 (JPLAY)
+REAL(KIND=JPRB) :: Z_COLN2O(JPLAY)
+REAL(KIND=JPRB) :: Z_COLCH4(JPLAY)
+REAL(KIND=JPRB) :: Z_COLO2 (JPLAY)
+REAL(KIND=JPRB) :: Z_CO2MULT(JPLAY)
+INTEGER(KIND=JPIM) :: I_LAYTROP
+INTEGER(KIND=JPIM) :: I_LAYSWTCH
+INTEGER(KIND=JPIM) :: I_LAYLOW
+
+!- from PROFILE             
+REAL(KIND=JPRB) :: Z_PAVEL(JPLAY)
+REAL(KIND=JPRB) :: Z_TAVEL(JPLAY)
+REAL(KIND=JPRB) :: Z_PZ(0:JPLAY)
+REAL(KIND=JPRB) :: Z_TZ(0:JPLAY)
+REAL(KIND=JPRB) :: Z_TBOUND
+INTEGER(KIND=JPIM) :: I_NLAYERS
+
+!- from SELF             
+REAL(KIND=JPRB) :: Z_SELFFAC(JPLAY)
+REAL(KIND=JPRB) :: Z_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM) :: INDSELF(JPLAY)
+
+!- from SP             
+REAL(KIND=JPRB) :: Z_PFRAC(JPGPT,JPLAY)
+
+!- from SURFACE             
+REAL(KIND=JPRB) :: Z_SEMISS(JPBAND)
+REAL(KIND=JPRB) :: Z_SEMISLW
+INTEGER(KIND=JPIM) :: IREFLECT
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+#include "rrtm_ecrt_140gp.intfb.h"
+#include "rrtm_gasabs1a_140gp.intfb.h"
+#include "rrtm_rtrn1a_140gp.intfb.h"
+#include "rrtm_setcoef_140gp.intfb.h"
+
+!     HEATFAC is the factor by which one must multiply delta-flux/ 
+!     delta-pressure, with flux in w/m-2 and pressure in mbar, to get 
+!     the heating rate in units of degrees/day.  It is equal to 
+!           (g)x(#sec/day)x(1e-5)/(specific heat of air at const. p)
+!        =  (9.8066)(86400)(1e-5)/(1.004)
+
+IF (LHOOK) CALL DR_HOOK('RRTM_RRTM_140GP',0,ZHOOK_HANDLE)
+ZEPSEC = 1.E-06_JPRB
+Z_ONEMINUS = 1.0_JPRB - ZEPSEC
+Z_PI = 2.0_JPRB*ASIN(1.0_JPRB)
+Z_FLUXFAC = Z_PI * 2.D4
+Z_HEATFAC = 8.4391_JPRB
+
+! *** mji ***
+! For use with ECRT, this loop is over atmospheres (or longitudes)
+DO iplon = kidia,kfdia
+
+! *** mji ***
+!- Prepare atmospheric profile from ECRT for use in RRTM, and define
+!  other RRTM input parameters.  Arrays are passed back through the
+!  existing RRTM commons and arrays.
+  ZTCLEAR=1.0_JPRB
+
+  CALL RRTM_ECRT_140GP &
+   & ( iplon, klon , klev, icld,&
+   & paer , paph , pap,&
+   & pts  , pth  , pt,&
+   & P_ZEMIS, P_ZEMIW,&
+   & pq   , pcco2, pozn, pcldf, ptaucld, ztclear,&
+   & Z_CLDFRAC,Z_TAUCLD,Z_COLDRY,Z_WKL,Z_WX,&
+   & Z_TAUAERL,Z_PAVEL,Z_TAVEL,Z_PZ,Z_TZ,Z_TBOUND,I_NLAYERS,Z_SEMISS,IREFLECT)  
+
+  PTCLEAR(iplon)=ztclear
+
+  ISTART = 1
+  IEND   = 16
+
+!  Calculate information needed by the radiative transfer routine
+!  that is specific to this atmosphere, especially some of the 
+!  coefficients and indices needed to compute the optical depths
+!  by interpolating data from stored reference atmospheres. 
+
+  CALL RRTM_SETCOEF_140GP (KLEV,Z_COLDRY,Z_WKL,&
+   & Z_FAC00,Z_FAC01,Z_FAC10,Z_FAC11,Z_FORFAC,JP,JT,JT1,&
+   & Z_COLH2O,Z_COLCO2,Z_COLO3,Z_COLN2O,Z_COLCH4,Z_COLO2,Z_CO2MULT,&
+   & I_LAYTROP,I_LAYSWTCH,I_LAYLOW,Z_PAVEL,Z_TAVEL,Z_SELFFAC,Z_SELFFRAC,INDSELF)  
+
+  CALL RRTM_GASABS1A_140GP (KLEV,Z_ATR1,Z_OD,Z_TF1,Z_COLDRY,Z_WX,&
+   & Z_TAUAERL,Z_FAC00,Z_FAC01,Z_FAC10,Z_FAC11,Z_FORFAC,JP,JT,JT1,Z_ONEMINUS,&
+   & Z_COLH2O,Z_COLCO2,Z_COLO3,Z_COLN2O,Z_COLCH4,Z_COLO2,Z_CO2MULT,&
+   & I_LAYTROP,I_LAYSWTCH,I_LAYLOW,Z_SELFFAC,Z_SELFFRAC,INDSELF,Z_PFRAC)  
+
+!- Call the radiative transfer routine.
+
+! *** mji ***
+!  Check for cloud in column.  Use ECRT threshold set as flag icld in
+!  routine ECRTATM.  If icld=1 then column is cloudy, otherwise it is
+!  clear.  Also, set up flag array, icldlyr, for use in radiative
+!  transfer.  Set icldlyr to one for each layer with non-zero cloud
+!  fraction.
+
+  DO I_K = 1, KLEV
+    IF (ICLD == 1.AND.Z_CLDFRAC(I_K) > ZEPSEC) THEN
+      ICLDLYR(I_K) = 1
+    ELSE
+      ICLDLYR(I_K) = 0
+    ENDIF
+  ENDDO
+
+!  Clear and cloudy parts of column are treated together in RTRN.
+!  Clear radiative transfer is done for clear layers and cloudy radiative
+!  transfer is done for cloudy layers as identified by icldlyr.
+
+  CALL RRTM_RTRN1A_140GP (KLEV,ISTART,IEND,ICLDLYR,Z_CLDFRAC,Z_TAUCLD,Z_ABSS1,&
+   & Z_OD,Z_TAUSF1,Z_CLFNET,Z_CLHTR,Z_FNET,Z_HTR,Z_TOTDFLUC,Z_TOTDFLUX,Z_TOTUFLUC,Z_TOTUFLUX,&
+   & Z_TAVEL,Z_PZ,Z_TZ,Z_TBOUND,Z_PFRAC,Z_SEMISS,Z_SEMISLW,IREFLECT)  
+
+! ***   Pass clear sky and total sky up and down flux profiles to ECRT
+!       output arrays (zflux, zfluc). Array indexing from bottom to top 
+!       is preserved for ECRT.
+!       Invert down flux arrays for consistency with ECRT sign conventions.
+
+  pemit(iplon) = Z_SEMISLW
+  DO i = 0, KLEV
+    PFLUC(iplon,1,i+1) =  Z_TOTUFLUC(i)*Z_FLUXFAC
+    PFLUC(iplon,2,i+1) = -Z_TOTDFLUC(i)*Z_FLUXFAC
+    PFLUX(iplon,1,i+1) =  Z_TOTUFLUX(i)*Z_FLUXFAC
+    PFLUX(iplon,2,i+1) = -Z_TOTDFLUX(i)*Z_FLUXFAC
+  ENDDO
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('RRTM_RRTM_140GP',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_RRTM_140GP
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_rrtm_140gp.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_rrtm_140gp.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_rrtm_140gp.intfb.h	(revision 1989)
@@ -0,0 +1,36 @@
+INTERFACE
+SUBROUTINE RRTM_RRTM_140GP&
+ & ( KIDIA , KFDIA , KLON , KLEV,&
+ & PAER , PAPH , PAP,&
+ & PTS , PTH , PT,&
+ & P_ZEMIS , P_ZEMIW,&
+ & PQ , PCCO2 , POZN,&
+ & PCLDF , PTAUCLD,&
+ & PEMIT , PFLUX , PFLUC, PTCLEAR&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARRRTM , ONLY : JPBAND ,JPXSEC ,JPGPT ,JPLAY ,&
+ & JPINPX 
+INTEGER(KIND=JPIM),INTENT(IN) :: KLON
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
+REAL(KIND=JPRB) ,INTENT(IN) :: PAER(KLON,6,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PAPH(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PAP(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTS(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTH(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PT(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_ZEMIS(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_ZEMIW(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PQ(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCCO2
+REAL(KIND=JPRB) ,INTENT(IN) :: POZN(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCLDF(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTAUCLD(KLON,KLEV,JPBAND)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PEMIT(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFLUX(KLON,2,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFLUC(KLON,2,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PTCLEAR(KLON)
+END SUBROUTINE RRTM_RRTM_140GP
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_rtrn1a_140gp.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_rtrn1a_140gp.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_rtrn1a_140gp.F90	(revision 1989)
@@ -0,0 +1,827 @@
+SUBROUTINE RRTM_RTRN1A_140GP (KLEV,K_ISTART,K_IEND,K_ICLDLYR,P_CLDFRAC,P_TAUCLD,P_ABSS1,&
+ & P_OD,P_TAUSF1,P_CLFNET,P_CLHTR,P_FNET,P_HTR,P_TOTDFLUC,P_TOTDFLUX,P_TOTUFLUC,P_TOTUFLUX,&
+ & P_TAVEL,PZ,P_TZ,P_TBOUND,PFRAC,P_SEMISS,P_SEMISLW,K_IREFLECT)  
+
+!     Reformatted for F90 by JJMorcrette, ECMWF, 980714
+!     Speed-up by D.Salmond, ECMWF, 9907
+!     Bug-fix by M.J. Iacono, AER, Inc., 9911
+!     Bug-fix by JJMorcrette, ECMWF, 991209 (RAT1, RAT2 initialization)
+!     Speed-up by D. Salmond, ECMWF, 9912
+!     Bug-fix by JJMorcrette, ECMWF, 0005 (extrapolation T<160K)
+!     Speed-up by D. Salmond, ECMWF, 000515
+
+!-* This program calculates the upward fluxes, downward fluxes,
+!   and heating rates for an arbitrary atmosphere.  The input to
+!   this program is the atmospheric profile and all Planck function
+!   information.  First-order "numerical" quadrature is used for the 
+!   angle integration, i.e. only one exponential is computed per layer
+!   per g-value per band.  Cloud overlap is treated with a generalized
+!   maximum/random method in which adjacent cloud layers are treated
+!   with maximum overlap, and non-adjacent cloud groups are treated
+!   with random overlap.  For adjacent cloud layers, cloud information
+!   is carried from the previous two layers.
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARRRTM  , ONLY : JPBAND   ,JPGPT   ,JPLAY
+USE YOERRTAB , ONLY : BPADE
+USE YOERRTWN , ONLY : TOTPLNK  ,DELWAVE
+USE YOERRTFTR, ONLY : NGB
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_ISTART 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_IEND 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_ICLDLYR(JPLAY) ! Cloud indicator
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_CLDFRAC(JPLAY) ! Cloud fraction
+REAL(KIND=JPRB)                  :: Z_CLDFRAC(JPLAY) ! Cloud fraction
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_TAUCLD(JPLAY,JPBAND) ! Spectral optical thickness
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_ABSS1(JPGPT*JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_OD(JPGPT,JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_TAUSF1(JPGPT*JPLAY) 
+REAL(KIND=JPRB)                  :: P_CLFNET(0:JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)                  :: P_CLHTR(0:JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)                  :: P_FNET(0:JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)                  :: P_HTR(0:JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TOTDFLUC(0:JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TOTDFLUX(0:JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TOTUFLUC(0:JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TOTUFLUX(0:JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_TAVEL(JPLAY) 
+REAL(KIND=JPRB)                  :: PZ(0:JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_TZ(0:JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_TBOUND 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PFRAC(JPGPT,JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SEMISS(JPBAND) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_SEMISLW 
+INTEGER(KIND=JPIM)               :: K_IREFLECT ! Argument NOT used
+!- from PROFILE             
+!- from SP             
+!- from SURFACE             
+INTEGER(KIND=JPIM) :: INDLAY(JPLAY),INDLEV(0:JPLAY)
+
+REAL(KIND=JPRB) :: Z_BBU1(JPGPT*JPLAY),Z_BBUTOT1(JPGPT*JPLAY)
+REAL(KIND=JPRB) :: Z_TLAYFRAC(JPLAY),Z_TLEVFRAC(0:JPLAY)
+REAL(KIND=JPRB) :: Z_BGLEV(JPGPT)
+!-- DS_000515
+REAL(KIND=JPRB) :: Z_PLVL(JPBAND+1,0:JPLAY),Z_PLAY(JPBAND+1,0:JPLAY),Z_WTNUM(3)
+!-- DS_000515
+REAL(KIND=JPRB) :: Z_ODCLDNW(JPGPT,JPLAY)
+REAL(KIND=JPRB) :: Z_SEMIS(JPGPT),Z_RADUEMIT(JPGPT)
+
+REAL(KIND=JPRB) :: Z_RADCLRU1(JPGPT) ,Z_RADCLRD1(JPGPT)
+REAL(KIND=JPRB) :: Z_RADLU1(JPGPT)   ,Z_RADLD1(JPGPT)
+!-- DS_000515
+REAL(KIND=JPRB) :: Z_TRNCLD(JPLAY,JPBAND+1)
+!-- DS_000515
+REAL(KIND=JPRB) :: Z_ABSCLDNW(JPGPT,JPLAY)
+REAL(KIND=JPRB) :: Z_ATOT1(JPGPT*JPLAY)
+
+REAL(KIND=JPRB) :: Z_SURFEMIS(JPBAND),Z_PLNKEMIT(JPBAND)
+
+! dimension of arrays required for cloud overlap calculations
+
+REAL(KIND=JPRB) :: Z_CLRRADU(jpgpt),Z_CLDRADU(jpgpt),Z_OLDCLD(jpgpt)
+REAL(KIND=JPRB) :: Z_OLDCLR(jpgpt),Z_RAD(jpgpt),Z_FACCLD1(jplay+1),Z_FACCLD2(jplay+1)
+REAL(KIND=JPRB) :: Z_FACCLR1(jplay+1),Z_FACCLR2(jplay+1)
+REAL(KIND=JPRB) :: Z_FACCMB1(jplay+1),Z_FACCMB2(jplay+1)
+REAL(KIND=JPRB) :: Z_FACCLD1D(0:jplay),Z_FACCLD2D(0:jplay),Z_FACCLR1D(0:jplay)
+REAL(KIND=JPRB) :: Z_FACCLR2D(0:jplay),Z_FACCMB1D(0:jplay),Z_FACCMB2D(0:jplay)
+REAL(KIND=JPRB) :: Z_CLRRADD(jpgpt),Z_CLDRADD(jpgpt)
+INTEGER(KIND=JPIM) :: istcld(jplay+1),istcldd(0:jplay)
+!******
+
+!REAL_B :: ZPLVL(JPGPT+1,JPLAY)  ,ZPLAY(JPGPT+1,JPLAY)
+!REAL_B :: ZTRNCLD(JPGPT+1,JPLAY),ZTAUCLD(JPGPT+1,JPLAY)
+
+INTEGER(KIND=JPIM) :: IBAND, ICLDDN, IENT, INDBOUND, INDEX, IPR, I_LAY, I_LEV, I_NBI
+
+REAL(KIND=JPRB) :: Z_BBD, Z_BBDTOT, Z_BGLAY, Z_CLDSRC, Z_DBDTLAY, Z_DBDTLEV,&
+ & Z_DELBGDN, Z_DELBGUP, Z_DRAD1, Z_DRADCL1, Z_FACTOT1, &
+ & Z_FMAX, Z_FMIN, Z_GASSRC, Z_ODSM, Z_PLANKBND, Z_RADCLD, Z_RADD, Z_RADMOD, Z_RAT1, Z_RAT2, Z_SUMPL, &
+ & Z_SUMPLEM, Z_TBNDFRAC, Z_TRNS, Z_TTOT, Z_URAD1, Z_URADCL1, ZEXTAU  
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!--------------------------------------------------------------------------
+! Input
+!  JPLAY                 ! Maximum number of model layers
+!  JPGPT                 ! Total number of g-point subintervals
+!  JPBAND                ! Number of longwave spectral bands
+!  SECANG                ! Diffusivity angle
+!  WTNUM                 ! Weight for radiance to flux conversion
+!  KLEV                  ! Number of model layers
+!  PAVEL(JPLAY)          ! Mid-layer pressures (hPa)
+!  PZ(0:JPLAY)           ! Interface pressures (hPa)
+!  TAVEL(JPLAY)          ! Mid-layer temperatures (K)
+!  TZ(0:JPLAY)           ! Interface temperatures (K)
+!  TBOUND                ! Surface temperature
+!  CLDFRAC(JPLAY)        ! Layer cloud fraction
+!  TAUCLD(JPLAY,JPBAND)  ! Layer cloud optical thickness
+!  ITR
+!  PFRAC(JPGPT,JPLAY)    ! Planck function fractions
+!  ICLDLYR(JPLAY)        ! Flag for cloudy layers
+!  ICLD                  ! Flag for cloudy column
+!  IREFLECT              ! Flag for specular reflection
+!  SEMISS(JPBAND)        ! Surface spectral emissivity
+!  BPADE                 ! Pade constant
+!  OD                    ! Clear-sky optical thickness
+!  TAUSF1                ! 
+!  ABSS1                 !  
+
+!  ABSS(JPGPT*JPLAY)     !
+!  ABSCLD(JPLAY)         !
+!  ATOT(JPGPT*JPLAY)     !
+!  ODCLR(JPGPT,JPLAY)    ! 
+!  ODCLD(JPBAND,JPLAY)   !
+!  EFCLFR1(JPBAND,JPLAY) ! Effective cloud fraction
+!  RADLU(JPGPT)          ! Upward radiance
+!  URAD                  ! Spectrally summed upward radiance
+!  RADCLRU(JPGPT)        ! Clear-sky upward radiance
+!  CLRURAD               ! Spectrally summed clear-sky upward radiance
+!  RADLD(JPGPT)          ! Downward radiance
+!  DRAD                  ! Spectrally summed downward radiance
+!  RADCLRD(JPGPT)        ! Clear-sky downward radiance
+!  CLRDRAD               ! Spectrally summed clear-sky downward radiance
+
+! Output
+!  TOTUFLUX(0:JPLAY)     ! Upward longwave flux
+!  TOTDFLUX(0:JPLAY)     ! Downward longwave flux
+!  TOTUFLUC(0:JPLAY)     ! Clear-sky upward longwave flux
+!  TOTDFLUC(0:JPLAY)     ! Clear-sky downward longwave flux
+
+! Maximum/Random cloud overlap variables
+! for upward radiaitve transfer
+!  FACCLR2  fraction of clear radiance from previous layer that needs to 
+!           be switched to cloudy stream
+!  FACCLR1  fraction of the radiance that had been switched in the previous
+!           layer from cloudy to clear that needs to be switched back to
+!           cloudy in the current layer
+!  FACCLD2  fraction of cloudy radiance from previous layer that needs to 
+!           be switched to clear stream
+!           be switched to cloudy stream
+!  FACCLD1  fraction of the radiance that had been switched in the previous
+!           layer from clear to cloudy that needs to be switched back to
+!           clear in the current layer
+! for downward radiaitve transfer
+!  FACCLR2D fraction of clear radiance from previous layer that needs to 
+!           be switched to cloudy stream
+!  FACCLR1D fraction of the radiance that had been switched in the previous
+!           layer from cloudy to clear that needs to be switched back to
+!           cloudy in the current layer
+!  FACCLD2D fraction of cloudy radiance from previous layer that needs to 
+!           be switched to clear stream
+!           be switched to cloudy stream
+!  FACCLD1D fraction of the radiance that had been switched in the previous
+!           layer from clear to cloudy that needs to be switched back to
+!           clear in the current layer
+
+!--------------------------------------------------------------------------
+
+! CORRECTION PROVISOIRE BUG POTENTIEL MPLFH
+! on initialise le niveau klev+1 de p_cldfrac, tableau surdimensionne
+! a 100 mais apparemment non initialise en klev+1
+Z_CLDFRAC(1:KLEV)=P_CLDFRAC(1:KLEV)
+Z_CLDFRAC(KLEV+1)=0.0_JPRB
+IF (LHOOK) CALL DR_HOOK('RRTM_RTRN1A_140GP',0,ZHOOK_HANDLE)
+Z_WTNUM(1)=0.5_JPRB
+Z_WTNUM(2)=0.0_JPRB
+Z_WTNUM(3)=0.0_JPRB
+
+DO I_LAY = 0, KLEV
+ENDDO
+!-start JJM_000511
+IF (P_TBOUND < 339._JPRB .AND. P_TBOUND >= 160._JPRB ) THEN
+  INDBOUND = P_TBOUND - 159._JPRB
+  Z_TBNDFRAC = P_TBOUND - INT(P_TBOUND)
+ELSEIF (P_TBOUND >= 339._JPRB ) THEN
+  INDBOUND = 180
+  Z_TBNDFRAC = P_TBOUND - 339._JPRB
+ELSEIF (P_TBOUND < 160._JPRB ) THEN
+  INDBOUND = 1
+  Z_TBNDFRAC = P_TBOUND - 160._JPRB
+ENDIF  
+!-end JJM_000511
+  
+DO I_LAY = 0, KLEV
+  P_TOTUFLUC(I_LAY) = 0.0_JPRB
+  P_TOTDFLUC(I_LAY) = 0.0_JPRB
+  P_TOTUFLUX(I_LAY) = 0.0_JPRB
+  P_TOTDFLUX(I_LAY) = 0.0_JPRB
+!-start JJM_000511
+  IF (P_TZ(I_LAY) < 339._JPRB .AND. P_TZ(I_LAY) >= 160._JPRB ) THEN
+    INDLEV(I_LAY) = P_TZ(I_LAY) - 159._JPRB
+    Z_TLEVFRAC(I_LAY) = P_TZ(I_LAY) - INT(P_TZ(I_LAY))
+  ELSEIF (P_TZ(I_LAY) >= 339._JPRB ) THEN
+    INDLEV(I_LAY) = 180
+    Z_TLEVFRAC(I_LAY) = P_TZ(I_LAY) - 339._JPRB
+  ELSEIF (P_TZ(I_LAY) < 160._JPRB ) THEN
+    INDLEV(I_LAY) = 1
+    Z_TLEVFRAC(I_LAY) = P_TZ(I_LAY) - 160._JPRB
+  ENDIF    
+!-end JJM_000511
+ENDDO
+
+!_start_jjm 991209
+DO I_LEV=0,KLEV
+  Z_FACCLD1(I_LEV+1) = 0.0_JPRB
+  Z_FACCLD2(I_LEV+1) = 0.0_JPRB
+  Z_FACCLR1(I_LEV+1) = 0.0_JPRB
+  Z_FACCLR2(I_LEV+1) = 0.0_JPRB
+  Z_FACCMB1(I_LEV+1) = 0.0_JPRB
+  Z_FACCMB2(I_LEV+1) = 0.0_JPRB
+  Z_FACCLD1D(I_LEV) = 0.0_JPRB
+  Z_FACCLD2D(I_LEV) = 0.0_JPRB
+  Z_FACCLR1D(I_LEV) = 0.0_JPRB
+  Z_FACCLR2D(I_LEV) = 0.0_JPRB
+  Z_FACCMB1D(I_LEV) = 0.0_JPRB
+  Z_FACCMB2D(I_LEV) = 0.0_JPRB
+ENDDO  
+Z_RAT1 = 0.0_JPRB
+Z_RAT2 = 0.0_JPRB
+!_end_jjm 991209
+
+Z_SUMPL   = 0.0_JPRB
+Z_SUMPLEM = 0.0_JPRB
+
+ISTCLD(1) = 1
+ISTCLDD(KLEV) = 1
+
+DO I_LEV = 1, KLEV
+!-- DS_000515
+!-start JJM_000511
+  IF (P_TAVEL(I_LEV) < 339._JPRB .AND. P_TAVEL(I_LEV) >= 160._JPRB ) THEN
+    INDLAY(I_LEV) = P_TAVEL(I_LEV) - 159._JPRB
+    Z_TLAYFRAC(I_LEV) = P_TAVEL(I_LEV) - INT(P_TAVEL(I_LEV))
+  ELSEIF (P_TAVEL(I_LEV) >= 339._JPRB ) THEN
+    INDLAY(I_LEV) = 180
+    Z_TLAYFRAC(I_LEV) = P_TAVEL(I_LEV) - 339._JPRB
+  ELSEIF (P_TAVEL(I_LEV) < 160._JPRB ) THEN
+    INDLAY(I_LEV) = 1
+    Z_TLAYFRAC(I_LEV) = P_TAVEL(I_LEV) - 160._JPRB
+  ENDIF  
+!-end JJM_000511
+ENDDO
+!-- DS_000515
+
+!-- DS_000515
+!OCL SCALAR
+
+DO I_LEV = 1, KLEV
+  IF (K_ICLDLYR(I_LEV) == 1) THEN
+
+!mji    
+    ISTCLD(I_LEV+1) = 0
+    IF (I_LEV  ==  KLEV) THEN
+      Z_FACCLD1(I_LEV+1) = 0.0_JPRB
+      Z_FACCLD2(I_LEV+1) = 0.0_JPRB
+      Z_FACCLR1(I_LEV+1) = 0.0_JPRB
+      Z_FACCLR2(I_LEV+1) = 0.0_JPRB
+!-- DS_000515      
+!      FACCMB1(LEV+1) = _ZERO_
+!      FACCMB2(LEV+1) = _ZERO_
+!mji      ISTCLD(LEV+1) = _ZERO_
+    ELSEIF (Z_CLDFRAC(I_LEV+1)  >=  Z_CLDFRAC(I_LEV)) THEN
+      Z_FACCLD1(I_LEV+1) = 0.0_JPRB
+      Z_FACCLD2(I_LEV+1) = 0.0_JPRB
+      IF (ISTCLD(I_LEV)  ==  1) THEN
+!mji        ISTCLD(LEV+1) = 0
+        Z_FACCLR1(I_LEV+1) = 0.0_JPRB
+!mji        
+        Z_FACCLR2(I_LEV+1) = 0.0_JPRB
+        IF (Z_CLDFRAC(I_LEV) < 1.0_JPRB) THEN
+          Z_FACCLR2(I_LEV+1) = (Z_CLDFRAC(I_LEV+1)-Z_CLDFRAC(I_LEV))/&
+           & (1.0_JPRB-Z_CLDFRAC(I_LEV))  
+        ENDIF   
+      ELSE
+        Z_FMAX = MAX(Z_CLDFRAC(I_LEV),Z_CLDFRAC(I_LEV-1))
+!mji
+        IF (Z_CLDFRAC(I_LEV+1)  >  Z_FMAX) THEN
+          Z_FACCLR1(I_LEV+1) = Z_RAT2
+          Z_FACCLR2(I_LEV+1) = (Z_CLDFRAC(I_LEV+1)-Z_FMAX)/(1.0_JPRB-Z_FMAX)
+!mji          
+        ELSEIF (Z_CLDFRAC(I_LEV+1) < Z_FMAX) THEN
+          Z_FACCLR1(I_LEV+1) = (Z_CLDFRAC(I_LEV+1)-Z_CLDFRAC(I_LEV))/&
+           & (Z_CLDFRAC(I_LEV-1)-Z_CLDFRAC(I_LEV))  
+          Z_FACCLR2(I_LEV+1) = 0.0_JPRB
+!mji
+        ELSE
+          Z_FACCLR1(I_LEV+1) = Z_RAT2  
+          Z_FACCLR2(I_LEV+1) = 0.0_JPRB
+        ENDIF
+      ENDIF
+      IF (Z_FACCLR1(I_LEV+1) > 0.0_JPRB .OR. Z_FACCLR2(I_LEV+1) > 0.0_JPRB) THEN
+        Z_RAT1 = 1.0_JPRB
+        Z_RAT2 = 0.0_JPRB
+      ENDIF
+    ELSE
+      Z_FACCLR1(I_LEV+1) = 0.0_JPRB
+      Z_FACCLR2(I_LEV+1) = 0.0_JPRB
+      IF (ISTCLD(I_LEV)  ==  1) THEN
+!mji        ISTCLD(LEV+1) = 0
+        Z_FACCLD1(I_LEV+1) = 0.0_JPRB
+        Z_FACCLD2(I_LEV+1) = (Z_CLDFRAC(I_LEV)-Z_CLDFRAC(I_LEV+1))/Z_CLDFRAC(I_LEV)
+      ELSE
+        Z_FMIN = MIN(Z_CLDFRAC(I_LEV),Z_CLDFRAC(I_LEV-1))
+        IF (Z_CLDFRAC(I_LEV+1)  <=  Z_FMIN) THEN
+          Z_FACCLD1(I_LEV+1) = Z_RAT1
+          Z_FACCLD2(I_LEV+1) = (Z_FMIN-Z_CLDFRAC(I_LEV+1))/Z_FMIN
+        ELSE
+          Z_FACCLD1(I_LEV+1) = (Z_CLDFRAC(I_LEV)-Z_CLDFRAC(I_LEV+1))/&
+           & (Z_CLDFRAC(I_LEV)-Z_FMIN)  
+          Z_FACCLD2(I_LEV+1) = 0.0_JPRB
+        ENDIF
+      ENDIF
+      IF (Z_FACCLD1(I_LEV+1) > 0.0_JPRB .OR. Z_FACCLD2(I_LEV+1) > 0.0_JPRB) THEN
+        Z_RAT1 = 0.0_JPRB
+        Z_RAT2 = 1.0_JPRB
+      ENDIF
+    ENDIF
+!fcc
+    IF (I_LEV == 1) THEN
+      Z_FACCMB1(I_LEV+1) = 0.
+      Z_FACCMB2(I_LEV+1) = Z_FACCLD1(I_LEV+1) * Z_FACCLR2(I_LEV)
+    ELSE
+      Z_FACCMB1(I_LEV+1) = Z_FACCLR1(I_LEV+1) * Z_FACCLD2(I_LEV) *Z_CLDFRAC(I_LEV-1)
+      Z_FACCMB2(I_LEV+1) = Z_FACCLD1(I_LEV+1) * Z_FACCLR2(I_LEV) *&
+       & (1.0_JPRB - Z_CLDFRAC(I_LEV-1))   
+    ENDIF
+!end fcc
+  ELSE
+!-- DS_000515
+    ISTCLD(I_LEV+1) = 1
+  ENDIF
+ENDDO
+
+!_start_jjm 991209
+Z_RAT1 = 0.0_JPRB
+Z_RAT2 = 0.0_JPRB
+!_end_jjm 991209
+
+!-- DS_000515
+!OCL SCALAR
+
+DO I_LEV = KLEV, 1, -1
+  IF (K_ICLDLYR(I_LEV) == 1) THEN
+!mji
+    ISTCLDD(I_LEV-1) = 0  
+    IF (I_LEV  ==  1) THEN
+      Z_FACCLD1D(I_LEV-1) = 0.0_JPRB
+      Z_FACCLD2D(I_LEV-1) = 0.0_JPRB
+      Z_FACCLR1D(I_LEV-1) = 0.0_JPRB
+      Z_FACCLR2D(I_LEV-1) = 0.0_JPRB
+      Z_FACCMB1D(I_LEV-1) = 0.0_JPRB
+      Z_FACCMB2D(I_LEV-1) = 0.0_JPRB
+!mji      ISTCLDD(LEV-1) = _ZERO_
+    ELSEIF (Z_CLDFRAC(I_LEV-1)  >=  Z_CLDFRAC(I_LEV)) THEN
+      Z_FACCLD1D(I_LEV-1) = 0.0_JPRB
+      Z_FACCLD2D(I_LEV-1) = 0.0_JPRB
+      IF (ISTCLDD(I_LEV)  ==  1) THEN
+!mji        ISTCLDD(LEV-1) = 0
+        Z_FACCLR1D(I_LEV-1) = 0.0_JPRB
+        Z_FACCLR2D(I_LEV-1) = 0.0_JPRB
+        IF (Z_CLDFRAC(I_LEV) < 1.0_JPRB) THEN
+          Z_FACCLR2D(I_LEV-1) = (Z_CLDFRAC(I_LEV-1)-Z_CLDFRAC(I_LEV))/&
+           & (1.0_JPRB-Z_CLDFRAC(I_LEV))  
+        ENDIF
+      ELSE
+        Z_FMAX = MAX(Z_CLDFRAC(I_LEV),Z_CLDFRAC(I_LEV+1))
+!mji
+        IF (Z_CLDFRAC(I_LEV-1)  >  Z_FMAX) THEN
+          Z_FACCLR1D(I_LEV-1) = Z_RAT2
+          Z_FACCLR2D(I_LEV-1) = (Z_CLDFRAC(I_LEV-1)-Z_FMAX)/(1.0_JPRB-Z_FMAX)
+!mji
+        ELSEIF (Z_CLDFRAC(I_LEV-1) < Z_FMAX) THEN
+          Z_FACCLR1D(I_LEV-1) = (Z_CLDFRAC(I_LEV-1)-Z_CLDFRAC(I_LEV))/&
+           & (Z_CLDFRAC(I_LEV+1)-Z_CLDFRAC(I_LEV))  
+          Z_FACCLR2D(I_LEV-1) = 0.0_JPRB
+!mji
+        ELSE          
+          Z_FACCLR1D(I_LEV-1) = Z_RAT2
+          Z_FACCLR2D(I_LEV-1) = 0.0_JPRB
+        ENDIF
+      ENDIF
+      IF (Z_FACCLR1D(I_LEV-1) > 0.0_JPRB .OR. Z_FACCLR2D(I_LEV-1) > 0.0_JPRB)THEN
+        Z_RAT1 = 1.0_JPRB
+        Z_RAT2 = 0.0_JPRB
+      ENDIF
+    ELSE
+      Z_FACCLR1D(I_LEV-1) = 0.0_JPRB
+      Z_FACCLR2D(I_LEV-1) = 0.0_JPRB
+      IF (ISTCLDD(I_LEV)  ==  1) THEN
+!mji        ISTCLDD(LEV-1) = 0
+        Z_FACCLD1D(I_LEV-1) = 0.0_JPRB
+        Z_FACCLD2D(I_LEV-1) = (Z_CLDFRAC(I_LEV)-Z_CLDFRAC(I_LEV-1))/Z_CLDFRAC(I_LEV)
+      ELSE
+        Z_FMIN = MIN(Z_CLDFRAC(I_LEV),Z_CLDFRAC(I_LEV+1))
+        IF (Z_CLDFRAC(I_LEV-1)  <=  Z_FMIN) THEN
+          Z_FACCLD1D(I_LEV-1) = Z_RAT1
+          Z_FACCLD2D(I_LEV-1) = (Z_FMIN-Z_CLDFRAC(I_LEV-1))/Z_FMIN
+        ELSE
+          Z_FACCLD1D(I_LEV-1) = (Z_CLDFRAC(I_LEV)-Z_CLDFRAC(I_LEV-1))/&
+           & (Z_CLDFRAC(I_LEV)-Z_FMIN)  
+          Z_FACCLD2D(I_LEV-1) = 0.0_JPRB
+        ENDIF
+      ENDIF
+      IF (Z_FACCLD1D(I_LEV-1) > 0.0_JPRB .OR. Z_FACCLD2D(I_LEV-1) > 0.0_JPRB)THEN
+        Z_RAT1 = 0.0_JPRB
+        Z_RAT2 = 1.0_JPRB
+      ENDIF
+    ENDIF
+    Z_FACCMB1D(I_LEV-1) = Z_FACCLR1D(I_LEV-1) * Z_FACCLD2D(I_LEV) *Z_CLDFRAC(I_LEV+1)
+    Z_FACCMB2D(I_LEV-1) = Z_FACCLD1D(I_LEV-1) * Z_FACCLR2D(I_LEV) *&
+     & (1.0_JPRB - Z_CLDFRAC(I_LEV+1))  
+  ELSE
+    ISTCLDD(I_LEV-1) = 1
+  ENDIF
+ENDDO
+
+!- Loop over frequency bands.
+
+DO IBAND = K_ISTART, K_IEND
+  Z_DBDTLEV = TOTPLNK(INDBOUND+1,IBAND)-TOTPLNK(INDBOUND,IBAND)
+  Z_PLANKBND = DELWAVE(IBAND) * (TOTPLNK(INDBOUND,IBAND) + Z_TBNDFRAC * Z_DBDTLEV)
+  Z_DBDTLEV = TOTPLNK(INDLEV(0)+1,IBAND) -TOTPLNK(INDLEV(0),IBAND)
+!-- DS_000515
+  Z_PLVL(IBAND,0) = DELWAVE(IBAND)&
+   & * (TOTPLNK(INDLEV(0),IBAND) + Z_TLEVFRAC(0)*Z_DBDTLEV)  
+
+  Z_SURFEMIS(IBAND) = P_SEMISS(IBAND)
+  Z_PLNKEMIT(IBAND) = Z_SURFEMIS(IBAND) * Z_PLANKBND
+  Z_SUMPLEM  = Z_SUMPLEM + Z_PLNKEMIT(IBAND)
+  Z_SUMPL    = Z_SUMPL   + Z_PLANKBND
+!--DS
+ENDDO
+!---
+
+!-- DS_000515
+DO I_LEV = 1, KLEV
+  DO IBAND = K_ISTART, K_IEND
+! print *,'RTRN1A: I_LEV JPLAY IBAND INDLAY',I_LEV,JPLAY,IBAND,INDLAY(I_LEV)
+!----              
+!- Calculate the integrated Planck functions for at the
+!  level and layer temperatures.
+!  Compute cloud transmittance for cloudy layers.
+    Z_DBDTLEV = TOTPLNK(INDLEV(I_LEV)+1,IBAND) - TOTPLNK(INDLEV(I_LEV),IBAND)
+    Z_DBDTLAY = TOTPLNK(INDLAY(I_LEV)+1,IBAND) - TOTPLNK(INDLAY(I_LEV),IBAND)
+!-- DS_000515
+    Z_PLAY(IBAND,I_LEV) = DELWAVE(IBAND)&
+     & *(TOTPLNK(INDLAY(I_LEV),IBAND)+Z_TLAYFRAC(I_LEV)*Z_DBDTLAY)  
+    Z_PLVL(IBAND,I_LEV) = DELWAVE(IBAND)&
+     & *(TOTPLNK(INDLEV(I_LEV),IBAND)+Z_TLEVFRAC(I_LEV)*Z_DBDTLEV)  
+    IF (K_ICLDLYR(I_LEV) > 0) THEN
+      ZEXTAU = MIN( P_TAUCLD(I_LEV,IBAND), 200._JPRB)
+      Z_TRNCLD(I_LEV,IBAND) = EXP( -ZEXTAU )
+    ENDIF
+!-- DS_000515
+  ENDDO
+
+ENDDO
+
+P_SEMISLW = Z_SUMPLEM / Z_SUMPL
+
+!--DS
+!O IPR = 1, JPGPT
+! NBI = NGB(IPR)
+! DO LEV =  1 , KLEV
+!-- DS_000515
+!   ZPLAY(IPR,LEV) = PLAY(LEV,NGB(IPR))
+!   ZPLVL(IPR,LEV) = PLVL(LEV-1,NGB(IPR))
+!   ZTAUCLD(IPR,LEV) = TAUCLD(LEV,NGB(IPR))
+!   ZTRNCLD(IPR,LEV) = TRNCLD(LEV,NGB(IPR))
+!-- DS_000515
+! ENDDO
+!NDDO
+!----      
+
+!- For cloudy layers, set cloud parameters for radiative transfer.
+DO I_LEV = 1, KLEV
+  IF (K_ICLDLYR(I_LEV) > 0) THEN
+    DO IPR = 1, JPGPT
+!--DS          
+!            NBI = NGB(IPR)
+      Z_ODCLDNW(IPR,I_LEV) = P_TAUCLD(I_LEV,NGB(IPR))
+      Z_ABSCLDNW(IPR,I_LEV) = 1.0_JPRB - Z_TRNCLD(I_LEV,NGB(IPR))
+!----            
+!            EFCLFRNW(IPR,LEV) = ABSCLDNW(IPR,LEV) * CLDFRAC(LEV)
+    ENDDO
+  ENDIF
+ENDDO
+
+!- Initialize for radiative transfer.
+DO IPR = 1, JPGPT
+  Z_RADCLRD1(IPR) = 0.0_JPRB
+  Z_RADLD1(IPR)   = 0.0_JPRB
+  I_NBI = NGB(IPR)
+  Z_SEMIS(IPR) = Z_SURFEMIS(I_NBI)
+  Z_RADUEMIT(IPR) = PFRAC(IPR,1) * Z_PLNKEMIT(I_NBI)
+!-- DS_000515
+  Z_BGLEV(IPR) = PFRAC(IPR,KLEV) * Z_PLVL(I_NBI,KLEV)
+ENDDO
+
+!- Downward radiative transfer.
+!  *** DRAD1 holds summed radiance for total sky stream
+!  *** DRADCL1 holds summed radiance for clear sky stream
+
+ICLDDN = 0
+DO I_LEV = KLEV, 1, -1
+  Z_DRAD1   = 0.0_JPRB
+  Z_DRADCL1 = 0.0_JPRB
+
+  IF (K_ICLDLYR(I_LEV) == 1) THEN
+
+!  *** Cloudy layer
+    ICLDDN = 1
+    IENT = JPGPT * (I_LEV-1)
+    DO IPR = 1, JPGPT
+      INDEX = IENT + IPR
+!--DS            
+!            NBI = NGB(IPR)
+      Z_BGLAY = PFRAC(IPR,I_LEV) * Z_PLAY(NGB(IPR),I_LEV)
+!----            
+      Z_DELBGUP     = Z_BGLEV(IPR) - Z_BGLAY
+      Z_BBU1(INDEX) = Z_BGLAY + P_TAUSF1(INDEX) * Z_DELBGUP
+!--DS            
+      Z_BGLEV(IPR) = PFRAC(IPR,I_LEV) * Z_PLVL(NGB(IPR),I_LEV-1)
+!----            
+      Z_DELBGDN = Z_BGLEV(IPR) - Z_BGLAY
+      Z_BBD = Z_BGLAY + P_TAUSF1(INDEX) * Z_DELBGDN
+!- total-sky downward flux          
+      Z_ODSM = P_OD(IPR,I_LEV) + Z_ODCLDNW(IPR,I_LEV)
+      Z_FACTOT1 = Z_ODSM / (BPADE + Z_ODSM)
+      Z_BBUTOT1(INDEX) = Z_BGLAY + Z_FACTOT1 * Z_DELBGUP
+      Z_ATOT1(INDEX) = P_ABSS1(INDEX) + Z_ABSCLDNW(IPR,I_LEV)&
+       & - P_ABSS1(INDEX) * Z_ABSCLDNW(IPR,I_LEV)  
+      Z_BBDTOT = Z_BGLAY + Z_FACTOT1 * Z_DELBGDN
+      Z_GASSRC = Z_BBD * P_ABSS1(INDEX)
+!***
+      IF (ISTCLDD(I_LEV)  ==  1) THEN
+        Z_CLDRADD(IPR) = Z_CLDFRAC(I_LEV) * Z_RADLD1(IPR)
+        Z_CLRRADD(IPR) = Z_RADLD1(IPR) - Z_CLDRADD(IPR)
+        Z_OLDCLD(IPR) = Z_CLDRADD(IPR)
+        Z_OLDCLR(IPR) = Z_CLRRADD(IPR)
+        Z_RAD(IPR) = 0.0_JPRB
+      ENDIF
+      Z_TTOT = 1.0_JPRB - Z_ATOT1(INDEX)
+      Z_CLDSRC = Z_BBDTOT * Z_ATOT1(INDEX)
+      
+! Separate RT equations for clear and cloudy streams      
+      Z_CLDRADD(IPR) = Z_CLDRADD(IPR) * Z_TTOT + Z_CLDFRAC(I_LEV) * Z_CLDSRC
+      Z_CLRRADD(IPR) = Z_CLRRADD(IPR) * (1.0_JPRB-P_ABSS1(INDEX)) +&
+       & (1.0_JPRB - Z_CLDFRAC(I_LEV)) * Z_GASSRC  
+
+!  Total sky downward radiance
+      Z_RADLD1(IPR) = Z_CLDRADD(IPR) + Z_CLRRADD(IPR)
+      Z_DRAD1 = Z_DRAD1 + Z_RADLD1(IPR)
+      
+!  Clear-sky downward radiance          
+      Z_RADCLRD1(IPR) = Z_RADCLRD1(IPR)+(Z_BBD-Z_RADCLRD1(IPR))*P_ABSS1(INDEX)
+      Z_DRADCL1 = Z_DRADCL1 + Z_RADCLRD1(IPR)
+
+!* Code to account for maximum/random overlap:
+!   Performs RT on the radiance most recently switched between clear and
+!   cloudy streams
+      Z_RADMOD = Z_RAD(IPR) * (Z_FACCLR1D(I_LEV-1) * (1.0_JPRB-P_ABSS1(INDEX)) +&
+       & Z_FACCLD1D(I_LEV-1) *  Z_TTOT) - &
+       & Z_FACCMB1D(I_LEV-1) * Z_GASSRC + &
+       & Z_FACCMB2D(I_LEV-1) * Z_CLDSRC  
+       
+!   Computes what the clear and cloudy streams would have been had no
+!   radiance been switched       
+      Z_OLDCLD(IPR) = Z_CLDRADD(IPR) - Z_RADMOD
+      Z_OLDCLR(IPR) = Z_CLRRADD(IPR) + Z_RADMOD
+      
+!   Computes the radiance to be switched between clear and cloudy.      
+      Z_RAD(IPR) = -Z_RADMOD + Z_FACCLR2D(I_LEV-1)*Z_OLDCLR(IPR) -&
+       & Z_FACCLD2D(I_LEV-1)*Z_OLDCLD(IPR)  
+      Z_CLDRADD(IPR) = Z_CLDRADD(IPR) + Z_RAD(IPR)
+      Z_CLRRADD(IPR) = Z_CLRRADD(IPR) - Z_RAD(IPR)
+!***
+
+    ENDDO
+
+  ELSE
+
+!  *** Clear layer
+!  *** DRAD1 holds summed radiance for total sky stream
+!  *** DRADCL1 holds summed radiance for clear sky stream
+
+    IENT = JPGPT * (I_LEV-1)
+    IF (ICLDDN == 1) THEN
+      DO IPR = 1, JPGPT
+        INDEX = IENT + IPR
+!--DS         
+!           NBI = NGB(IPR)
+        Z_BGLAY = PFRAC(IPR,I_LEV) * Z_PLAY(NGB(IPR),I_LEV)
+!----            
+        Z_DELBGUP     = Z_BGLEV(IPR) - Z_BGLAY
+        Z_BBU1(INDEX) = Z_BGLAY + P_TAUSF1(INDEX) * Z_DELBGUP
+!--DS            
+        Z_BGLEV(IPR) = PFRAC(IPR,I_LEV) * Z_PLVL(NGB(IPR),I_LEV-1)
+!----                      
+        Z_DELBGDN = Z_BGLEV(IPR) - Z_BGLAY
+        Z_BBD = Z_BGLAY + P_TAUSF1(INDEX) * Z_DELBGDN
+        
+!- total-sky downward radiance
+        Z_RADLD1(IPR) = Z_RADLD1(IPR)+(Z_BBD-Z_RADLD1(IPR))*P_ABSS1(INDEX)
+        Z_DRAD1 = Z_DRAD1 + Z_RADLD1(IPR)
+        
+!- clear-sky downward radiance
+!-  Set clear sky stream to total sky stream as long as layers
+!-  remain clear.  Streams diverge when a cloud is reached.
+        Z_RADCLRD1(IPR) = Z_RADCLRD1(IPR)+(Z_BBD-Z_RADCLRD1(IPR))*P_ABSS1(INDEX)
+        Z_DRADCL1 = Z_DRADCL1 + Z_RADCLRD1(IPR)
+      ENDDO
+            
+    ELSE
+        
+      DO IPR = 1, JPGPT
+        INDEX = IENT + IPR
+!--DS         
+!           NBI = NGB(IPR)
+        Z_BGLAY = PFRAC(IPR,I_LEV) * Z_PLAY(NGB(IPR),I_LEV)
+!----            
+        Z_DELBGUP     = Z_BGLEV(IPR) - Z_BGLAY
+        Z_BBU1(INDEX) = Z_BGLAY + P_TAUSF1(INDEX) * Z_DELBGUP
+!--DS            
+        Z_BGLEV(IPR) = PFRAC(IPR,I_LEV) * Z_PLVL(NGB(IPR),I_LEV-1)
+!----                      
+        Z_DELBGDN = Z_BGLEV(IPR) - Z_BGLAY
+        Z_BBD = Z_BGLAY + P_TAUSF1(INDEX) * Z_DELBGDN
+!- total-sky downward flux          
+        Z_RADLD1(IPR) = Z_RADLD1(IPR)+(Z_BBD-Z_RADLD1(IPR))*P_ABSS1(INDEX)
+        Z_DRAD1 = Z_DRAD1 + Z_RADLD1(IPR)
+!- clear-sky downward flux          
+!-  Set clear sky stream to total sky stream as long as layers
+!-  remain clear.  Streams diverge when a cloud is reached.
+        Z_RADCLRD1(IPR) = Z_RADLD1(IPR)
+      ENDDO
+      Z_DRADCL1 = Z_DRAD1
+    ENDIF
+    
+  ENDIF
+
+  P_TOTDFLUC(I_LEV-1) = Z_DRADCL1 * Z_WTNUM(1)
+  P_TOTDFLUX(I_LEV-1) = Z_DRAD1   * Z_WTNUM(1)
+
+ENDDO
+
+! Spectral reflectivity and reflectance
+! Includes the contribution of spectrally varying longwave emissivity 
+! and reflection from the surface to the upward radiative transfer.
+! Note: Spectral and Lambertian reflections are identical for the one
+! angle flux integration used here.
+
+Z_URAD1   = 0.0_JPRB
+Z_URADCL1 = 0.0_JPRB
+
+!start JJM_000511
+!IF (IREFLECT  ==  0) THEN
+!- Lambertian reflection.
+DO IPR = 1, JPGPT
+! Clear-sky radiance
+!    RADCLD = _TWO_ * (RADCLRD1(IPR) * WTNUM(1) )
+  Z_RADCLD = Z_RADCLRD1(IPR)
+  Z_RADCLRU1(IPR) = Z_RADUEMIT(IPR) + (1.0_JPRB - Z_SEMIS(IPR)) * Z_RADCLD
+  Z_URADCL1 = Z_URADCL1 + Z_RADCLRU1(IPR)
+
+! Total sky radiance
+!    RADD = _TWO_ * (RADLD1(IPR) * WTNUM(1) )
+  Z_RADD = Z_RADLD1(IPR)
+  Z_RADLU1(IPR) = Z_RADUEMIT(IPR) + (1.0_JPRB - Z_SEMIS(IPR)) * Z_RADD
+  Z_URAD1 = Z_URAD1 + Z_RADLU1(IPR)
+ENDDO
+P_TOTUFLUC(0) = Z_URADCL1 * 0.5_JPRB
+P_TOTUFLUX(0) = Z_URAD1 * 0.5_JPRB
+!ELSE
+!!- Specular reflection.
+!  DO IPR = 1, JPGPT
+!    RADCLU = RADUEMIT(IPR)
+!    RADCLRU1(IPR) = RADCLU + (_ONE_ - SEMIS(IPR)) * RADCLRD1(IPR)
+!    URADCL1 = URADCL1 + RADCLRU1(IPR)
+
+!    RADU = RADUEMIT(IPR)
+!    RADLU1(IPR) = RADU + (_ONE_ - SEMIS(IPR)) * RADLD1(IPR)
+!    URAD1 = URAD1 + RADLU1(IPR)
+!  ENDDO
+!  TOTUFLUC(0) = URADCL1 * WTNUM(1)
+!  TOTUFLUX(0) = URAD1   * WTNUM(1)
+!ENDIF
+
+!- Upward radiative transfer.
+!- *** URAD1 holds the summed radiance for total sky stream
+!- *** URADCL1 holds the summed radiance for clear sky stream
+DO I_LEV = 1, KLEV
+  Z_URAD1   = 0.0_JPRB
+  Z_URADCL1 = 0.0_JPRB
+
+! Check flag for cloud in current layer
+  IF (K_ICLDLYR(I_LEV) == 1) THEN
+
+!- *** Cloudy layer
+    IENT = JPGPT * (I_LEV-1)
+    DO IPR = 1, JPGPT
+      INDEX = IENT + IPR
+!- total-sky upward flux          
+      Z_GASSRC = Z_BBU1(INDEX) * P_ABSS1(INDEX)
+
+!- If first cloudy layer in sequence, split up radiance into clear and
+!    cloudy streams depending on cloud fraction
+      IF (ISTCLD(I_LEV)  ==  1) THEN
+        Z_CLDRADU(IPR) = Z_CLDFRAC(I_LEV) * Z_RADLU1(IPR)
+        Z_CLRRADU(IPR) = Z_RADLU1(IPR) - Z_CLDRADU(IPR)
+        Z_OLDCLD(IPR) = Z_CLDRADU(IPR)
+        Z_OLDCLR(IPR) = Z_CLRRADU(IPR)
+        Z_RAD(IPR) = 0.0_JPRB
+      ENDIF
+      Z_TTOT = 1.0_JPRB - Z_ATOT1(INDEX)
+      Z_TRNS = 1.0_JPRB - P_ABSS1(INDEX)
+      Z_CLDSRC = Z_BBUTOT1(INDEX) * Z_ATOT1(INDEX)
+
+!- Separate RT equations for clear and cloudy streams      
+      Z_CLDRADU(IPR) = Z_CLDRADU(IPR) * Z_TTOT + Z_CLDFRAC(I_LEV) * Z_CLDSRC
+      Z_CLRRADU(IPR) = Z_CLRRADU(IPR) * Z_TRNS +(1.0_JPRB - Z_CLDFRAC(I_LEV)) * Z_GASSRC
+!***
+
+!- total sky upward flux
+      Z_RADLU1(IPR) = Z_CLDRADU(IPR) + Z_CLRRADU(IPR)
+      Z_URAD1 = Z_URAD1 + Z_RADLU1(IPR)
+      
+!- clear-sky upward flux
+      Z_RADCLRU1(IPR) = Z_RADCLRU1(IPR) + (Z_BBU1(INDEX)-Z_RADCLRU1(IPR))&
+       & *P_ABSS1(INDEX)  
+      Z_URADCL1 = Z_URADCL1 + Z_RADCLRU1(IPR)
+
+!* Code to account for maximum/random overlap:
+!   Performs RT on the radiance most recently switched between clear and
+!   cloudy streams
+      Z_RADMOD = Z_RAD(IPR) * (Z_FACCLR1(I_LEV+1) * Z_TRNS +&
+       & Z_FACCLD1(I_LEV+1) *  Z_TTOT) - &
+       & Z_FACCMB1(I_LEV+1) * Z_GASSRC + &
+       & Z_FACCMB2(I_LEV+1) * Z_CLDSRC  
+       
+!   Computes what the clear and cloudy streams would have been had no
+!   radiance been switched       
+      Z_OLDCLD(IPR) = Z_CLDRADU(IPR) - Z_RADMOD
+      Z_OLDCLR(IPR) = Z_CLRRADU(IPR) + Z_RADMOD
+      
+!   Computes the radiance to be switched between clear and cloudy.      
+      Z_RAD(IPR) = -Z_RADMOD + Z_FACCLR2(I_LEV+1)*Z_OLDCLR(IPR) -&
+       & Z_FACCLD2(I_LEV+1)*Z_OLDCLD(IPR)  
+      Z_CLDRADU(IPR) = Z_CLDRADU(IPR) + Z_RAD(IPR)
+      Z_CLRRADU(IPR) = Z_CLRRADU(IPR) - Z_RAD(IPR)
+!***
+    ENDDO
+
+  ELSE
+
+!- *** Clear layer
+    IENT = JPGPT * (I_LEV-1)
+    DO IPR = 1, JPGPT
+      INDEX = IENT + IPR
+!- total-sky upward flux          
+      Z_RADLU1(IPR) = Z_RADLU1(IPR)+(Z_BBU1(INDEX)-Z_RADLU1(IPR))*P_ABSS1(INDEX)
+      Z_URAD1 = Z_URAD1 + Z_RADLU1(IPR)
+!- clear-sky upward flux
+!   Upward clear and total sky streams must be separate because surface
+!   reflectance is different for each.
+      Z_RADCLRU1(IPR) = Z_RADCLRU1(IPR)+(Z_BBU1(INDEX)-Z_RADCLRU1(IPR))*P_ABSS1(INDEX)
+      Z_URADCL1 = Z_URADCL1 + Z_RADCLRU1(IPR)
+    ENDDO
+
+  ENDIF
+
+  P_TOTUFLUC(I_LEV) = Z_URADCL1 * Z_WTNUM(1)
+  P_TOTUFLUX(I_LEV) = Z_URAD1   * Z_WTNUM(1)
+
+ENDDO
+
+!* Convert radiances to fluxes and heating rates for total and clear sky.
+! ** NB: moved to calling routine
+!      TOTUFLUC(0) = TOTUFLUC(0) * FLUXFAC
+!      TOTDFLUC(0) = TOTDFLUC(0) * FLUXFAC
+!      TOTUFLUX(0) = TOTUFLUX(0) * FLUXFAC
+!      TOTDFLUX(0) = TOTDFLUX(0) * FLUXFAC
+
+!      CLFNET(0) = TOTUFLUC(0) - TOTDFLUC(0)
+!      FNET(0)   = TOTUFLUX(0) - TOTDFLUX(0)
+!      DO LEV = 1, KLEV
+!        TOTUFLUC(LEV) = TOTUFLUC(LEV) * FLUXFAC
+!        TOTDFLUC(LEV) = TOTDFLUC(LEV) * FLUXFAC
+!        CLFNET(LEV) = TOTUFLUC(LEV) - TOTDFLUC(LEV)
+
+!        TOTUFLUX(LEV) = TOTUFLUX(LEV) * FLUXFAC
+!        TOTDFLUX(LEV) = TOTDFLUX(LEV) * FLUXFAC
+!        FNET(LEV) = TOTUFLUX(LEV) - TOTDFLUX(LEV)
+!        L = LEV - 1
+
+!- Calculate Heating Rates.
+!        CLHTR(L)=HEATFAC*(CLFNET(L)-CLFNET(LEV))/(PZ(L)-PZ(LEV)) 
+!        HTR(L)  =HEATFAC*(FNET(L)  -FNET(LEV))  /(PZ(L)-PZ(LEV)) 
+!      END DO
+!      CLHTR(KLEV) = 0.0
+!      HTR(KLEV)   = 0.0
+
+IF (LHOOK) CALL DR_HOOK('RRTM_RTRN1A_140GP',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_RTRN1A_140GP
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_rtrn1a_140gp.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_rtrn1a_140gp.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_rtrn1a_140gp.intfb.h	(revision 1989)
@@ -0,0 +1,33 @@
+INTERFACE
+SUBROUTINE RRTM_RTRN1A_140GP (KLEV,K_ISTART,K_IEND,K_ICLDLYR,P_CLDFRAC,P_TAUCLD,P_ABSS1,&
+ & P_OD,P_TAUSF1,P_CLFNET,P_CLHTR,P_FNET,P_HTR,P_TOTDFLUC,P_TOTDFLUX,P_TOTUFLUC,P_TOTUFLUX,&
+ & P_TAVEL,PZ,P_TZ,P_TBOUND,PFRAC,P_SEMISS,P_SEMISLW,K_IREFLECT) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARRRTM , ONLY : JPBAND ,JPGPT ,JPLAY
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+INTEGER(KIND=JPIM),INTENT(IN) :: K_ISTART
+INTEGER(KIND=JPIM),INTENT(IN) :: K_IEND
+INTEGER(KIND=JPIM),INTENT(IN) :: K_ICLDLYR(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_CLDFRAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_TAUCLD(JPLAY,JPBAND)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_ABSS1(JPGPT*JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_OD(JPGPT,JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_TAUSF1(JPGPT*JPLAY)
+REAL(KIND=JPRB) :: P_CLFNET(0:JPLAY)
+REAL(KIND=JPRB) :: P_CLHTR(0:JPLAY)
+REAL(KIND=JPRB) :: P_FNET(0:JPLAY)
+REAL(KIND=JPRB) :: P_HTR(0:JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TOTDFLUC(0:JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TOTDFLUX(0:JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TOTUFLUC(0:JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TOTUFLUX(0:JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_TAVEL(JPLAY)
+REAL(KIND=JPRB) :: PZ(0:JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_TZ(0:JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_TBOUND
+REAL(KIND=JPRB) ,INTENT(IN) :: PFRAC(JPGPT,JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SEMISS(JPBAND)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_SEMISLW
+INTEGER(KIND=JPIM) :: K_IREFLECT
+END SUBROUTINE RRTM_RTRN1A_140GP
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_setcoef_140gp.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_setcoef_140gp.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_setcoef_140gp.F90	(revision 1989)
@@ -0,0 +1,185 @@
+SUBROUTINE RRTM_SETCOEF_140GP (KLEV,P_COLDRY,P_WKL,&
+ & P_FAC00,P_FAC01,P_FAC10,P_FAC11,P_FORFAC,K_JP,K_JT,K_JT1,&
+ & P_COLH2O,P_COLCO2,P_COLO3,P_COLN2O,P_COLCH4,P_COLO2,P_CO2MULT,&
+ & K_LAYTROP,K_LAYSWTCH,K_LAYLOW,PAVEL,P_TAVEL,P_SELFFAC,P_SELFFRAC,K_INDSELF)  
+
+!     Reformatted for F90 by JJMorcrette, ECMWF, 980714
+
+!     Purpose:  For a given atmosphere, calculate the indices and
+!     fractions related to the pressure and temperature interpolations.
+!     Also calculate the values of the integrated Planck functions 
+!     for each band at the level and layer temperatures.
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARRRTM  , ONLY : JPLAY     ,JPINPX
+USE YOERRTRF , ONLY :       PREFLOG   ,TREF
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLDRY(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_WKL(JPINPX,JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_FAC11(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_FORFAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(OUT)   :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(OUT)   :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(OUT)   :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_COLH2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_COLCO2(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_COLO3(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_COLN2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_COLCH4(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_COLO2(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_CO2MULT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(OUT)   :: K_LAYTROP 
+INTEGER(KIND=JPIM),INTENT(OUT)   :: K_LAYSWTCH 
+INTEGER(KIND=JPIM),INTENT(OUT)   :: K_LAYLOW 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PAVEL(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_TAVEL(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_SELFFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_SELFFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(OUT)   :: K_INDSELF(JPLAY) 
+!- from INTFAC      
+!- from INTIND
+!- from PROFDATA             
+!- from PROFILE             
+!- from SELF             
+INTEGER(KIND=JPIM) :: JP1, I_LAY
+
+REAL(KIND=JPRB) :: Z_CO2REG, Z_COMPFP, Z_FACTOR, Z_FP, Z_FT, Z_FT1, Z_PLOG, Z_SCALEFAC, Z_STPFAC, Z_WATER
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!#include "yoeratm.h"    
+
+IF (LHOOK) CALL DR_HOOK('RRTM_SETCOEF_140GP',0,ZHOOK_HANDLE)
+Z_STPFAC = 296._JPRB/1013._JPRB
+
+K_LAYTROP  = 0
+K_LAYSWTCH = 0
+K_LAYLOW   = 0
+DO I_LAY = 1, KLEV
+!        Find the two reference pressures on either side of the
+!        layer pressure.  Store them in JP and JP1.  Store in FP the
+!        fraction of the difference (in ln(pressure)) between these
+!        two values that the layer pressure lies.
+  Z_PLOG = LOG(PAVEL(I_LAY))
+  K_JP(I_LAY) = INT(36._JPRB - 5*(Z_PLOG+0.04_JPRB))
+  IF (K_JP(I_LAY)  <  1) THEN
+    K_JP(I_LAY) = 1
+  ELSEIF (K_JP(I_LAY)  >  58) THEN
+    K_JP(I_LAY) = 58
+  ENDIF
+  JP1 = K_JP(I_LAY) + 1
+  Z_FP = 5._JPRB * (PREFLOG(K_JP(I_LAY)) - Z_PLOG)
+
+!        Determine, for each reference pressure (JP and JP1), which
+!        reference temperature (these are different for each  
+!        reference pressure) is nearest the layer temperature but does
+!        not exceed it.  Store these indices in JT and JT1, resp.
+!        Store in FT (resp. FT1) the fraction of the way between JT
+!        (JT1) and the next highest reference temperature that the 
+!        layer temperature falls.
+
+  K_JT(I_LAY) = INT(3._JPRB + (P_TAVEL(I_LAY)-TREF(K_JP(I_LAY)))/15._JPRB)
+  IF (K_JT(I_LAY)  <  1) THEN
+    K_JT(I_LAY) = 1
+  ELSEIF (K_JT(I_LAY)  >  4) THEN
+    K_JT(I_LAY) = 4
+  ENDIF
+  Z_FT = ((P_TAVEL(I_LAY)-TREF(K_JP(I_LAY)))/15._JPRB) - REAL(K_JT(I_LAY)-3)
+  K_JT1(I_LAY) = INT(3._JPRB + (P_TAVEL(I_LAY)-TREF(JP1))/15._JPRB)
+  IF (K_JT1(I_LAY)  <  1) THEN
+    K_JT1(I_LAY) = 1
+  ELSEIF (K_JT1(I_LAY)  >  4) THEN
+    K_JT1(I_LAY) = 4
+  ENDIF
+  Z_FT1 = ((P_TAVEL(I_LAY)-TREF(JP1))/15._JPRB) - REAL(K_JT1(I_LAY)-3)
+
+  Z_WATER = P_WKL(1,I_LAY)/P_COLDRY(I_LAY)
+  Z_SCALEFAC = PAVEL(I_LAY) * Z_STPFAC / P_TAVEL(I_LAY)
+
+!        If the pressure is less than ~100mb, perform a different
+!        set of species interpolations.
+!         IF (PLOG .LE. 4.56) GO TO 5300
+!--------------------------------------         
+  IF (Z_PLOG  >  4.56_JPRB) THEN
+    K_LAYTROP =  K_LAYTROP + 1
+!        For one band, the "switch" occurs at ~300 mb. 
+    IF (Z_PLOG  >=  5.76_JPRB) K_LAYSWTCH = K_LAYSWTCH + 1
+    IF (Z_PLOG  >=  6.62_JPRB) K_LAYLOW = K_LAYLOW + 1
+
+    P_FORFAC(I_LAY) = Z_SCALEFAC / (1.0_JPRB+Z_WATER)
+
+!        Set up factors needed to separately include the water vapor
+!        self-continuum in the calculation of absorption coefficient.
+!C           SELFFAC(LAY) = WATER * SCALEFAC / (1.+WATER)
+    P_SELFFAC(I_LAY) = Z_WATER * P_FORFAC(I_LAY)
+    Z_FACTOR = (P_TAVEL(I_LAY)-188.0_JPRB)/7.2_JPRB
+    K_INDSELF(I_LAY) = MIN(9, MAX(1, INT(Z_FACTOR)-7))
+    P_SELFFRAC(I_LAY) = Z_FACTOR - REAL(K_INDSELF(I_LAY) + 7)
+
+!        Calculate needed column amounts.
+    P_COLH2O(I_LAY) = 1.E-20_JPRB * P_WKL(1,I_LAY)
+    P_COLCO2(I_LAY) = 1.E-20_JPRB * P_WKL(2,I_LAY)
+    P_COLO3(I_LAY)  = 1.E-20_JPRB * P_WKL(3,I_LAY)
+    P_COLN2O(I_LAY) = 1.E-20_JPRB * P_WKL(4,I_LAY)
+    P_COLCH4(I_LAY) = 1.E-20_JPRB * P_WKL(6,I_LAY)
+    P_COLO2(I_LAY)  = 1.E-20_JPRB * P_WKL(7,I_LAY)
+    IF (P_COLCO2(I_LAY)  ==  0.0_JPRB) P_COLCO2(I_LAY) = 1.E-32_JPRB * P_COLDRY(I_LAY)
+    IF (P_COLN2O(I_LAY)  ==  0.0_JPRB) P_COLN2O(I_LAY) = 1.E-32_JPRB * P_COLDRY(I_LAY)
+    IF (P_COLCH4(I_LAY)  ==  0.0_JPRB) P_COLCH4(I_LAY) = 1.E-32_JPRB * P_COLDRY(I_LAY)
+!        Using E = 1334.2 cm-1.
+    Z_CO2REG = 3.55E-24_JPRB * P_COLDRY(I_LAY)
+    P_CO2MULT(I_LAY)= (P_COLCO2(I_LAY) - Z_CO2REG) *&
+     & 272.63_JPRB*EXP(-1919.4_JPRB/P_TAVEL(I_LAY))/(8.7604E-4_JPRB*P_TAVEL(I_LAY))  
+!         GO TO 5400
+!------------------
+  ELSE
+!        Above LAYTROP.
+! 5300    CONTINUE
+
+!        Calculate needed column amounts.
+    P_FORFAC(I_LAY) = Z_SCALEFAC / (1.0_JPRB+Z_WATER)
+
+    P_COLH2O(I_LAY) = 1.E-20_JPRB * P_WKL(1,I_LAY)
+    P_COLCO2(I_LAY) = 1.E-20_JPRB * P_WKL(2,I_LAY)
+    P_COLO3(I_LAY)  = 1.E-20_JPRB * P_WKL(3,I_LAY)
+    P_COLN2O(I_LAY) = 1.E-20_JPRB * P_WKL(4,I_LAY)
+    P_COLCH4(I_LAY) = 1.E-20_JPRB * P_WKL(6,I_LAY)
+    P_COLO2(I_LAY)  = 1.E-20_JPRB * P_WKL(7,I_LAY)
+    IF (P_COLCO2(I_LAY)  ==  0.0_JPRB) P_COLCO2(I_LAY) = 1.E-32_JPRB * P_COLDRY(I_LAY)
+    IF (P_COLN2O(I_LAY)  ==  0.0_JPRB) P_COLN2O(I_LAY) = 1.E-32_JPRB * P_COLDRY(I_LAY)
+    IF (P_COLCH4(I_LAY)  ==  0.0_JPRB) P_COLCH4(I_LAY) = 1.E-32_JPRB * P_COLDRY(I_LAY)
+    Z_CO2REG = 3.55E-24_JPRB * P_COLDRY(I_LAY)
+    P_CO2MULT(I_LAY)= (P_COLCO2(I_LAY) - Z_CO2REG) *&
+     & 272.63_JPRB*EXP(-1919.4_JPRB/P_TAVEL(I_LAY))/(8.7604E-4_JPRB*P_TAVEL(I_LAY))  
+!----------------     
+  ENDIF
+! 5400    CONTINUE
+
+!        We have now isolated the layer ln pressure and temperature,
+!        between two reference pressures and two reference temperatures 
+!        (for each reference pressure).  We multiply the pressure 
+!        fraction FP with the appropriate temperature fractions to get 
+!        the factors that will be needed for the interpolation that yields
+!        the optical depths (performed in routines TAUGBn for band n).
+
+  Z_COMPFP = 1.0_JPRB - Z_FP
+  P_FAC10(I_LAY) = Z_COMPFP * Z_FT
+  P_FAC00(I_LAY) = Z_COMPFP * (1.0_JPRB - Z_FT)
+  P_FAC11(I_LAY) = Z_FP * Z_FT1
+  P_FAC01(I_LAY) = Z_FP * (1.0_JPRB - Z_FT1)
+
+ENDDO
+
+! MT 981104 
+!-- Set LAYLOW for profiles with surface pressure less than 750 hPa. 
+IF (K_LAYLOW == 0) K_LAYLOW=1
+
+IF (LHOOK) CALL DR_HOOK('RRTM_SETCOEF_140GP',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_SETCOEF_140GP
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_setcoef_140gp.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_setcoef_140gp.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_setcoef_140gp.intfb.h	(revision 1989)
@@ -0,0 +1,35 @@
+INTERFACE
+SUBROUTINE RRTM_SETCOEF_140GP (KLEV,P_COLDRY,P_WKL,&
+ & P_FAC00,P_FAC01,P_FAC10,P_FAC11,P_FORFAC,K_JP,K_JT,K_JT1,&
+ & P_COLH2O,P_COLCO2,P_COLO3,P_COLN2O,P_COLCH4,P_COLO2,P_CO2MULT,&
+ & K_LAYTROP,K_LAYSWTCH,K_LAYLOW,PAVEL,P_TAVEL,P_SELFFAC,P_SELFFRAC,K_INDSELF) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARRRTM , ONLY : JPLAY ,JPINPX
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLDRY(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_WKL(JPINPX,JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_FAC11(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_FORFAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(OUT) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(OUT) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(OUT) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_COLH2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_COLCO2(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_COLO3(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_COLN2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_COLCH4(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_COLO2(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_CO2MULT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(OUT) :: K_LAYTROP
+INTEGER(KIND=JPIM),INTENT(OUT) :: K_LAYSWTCH
+INTEGER(KIND=JPIM),INTENT(OUT) :: K_LAYLOW
+REAL(KIND=JPRB) ,INTENT(IN) :: PAVEL(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_TAVEL(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_SELFFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(OUT) :: K_INDSELF(JPLAY)
+END SUBROUTINE RRTM_SETCOEF_140GP
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol1.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol1.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol1.F90	(revision 1989)
@@ -0,0 +1,235 @@
+!******************************************************************************
+!                                                                             *
+!                  Optical depths developed for the                           *
+!                                                                             *
+!                RAPID RADIATIVE TRANSFER MODEL (RRTM)                        *
+!                                                                             *
+!            ATMOSPHERIC AND ENVIRONMENTAL RESEARCH, INC.                     *
+!                        840 MEMORIAL DRIVE                                   *
+!                        CAMBRIDGE, MA 02139                                  *
+!                                                                             *
+!                           ELI J. MLAWER                                     *
+!                         STEVEN J. TAUBMAN                                   *
+!                         SHEPARD A. CLOUGH                                   *
+!                                                                             *
+!                       email:  mlawer@aer.com                                *
+!                                                                             *
+!        The authors wish to acknowledge the contributions of the             *
+!        following people:  Patrick D. Brown, Michael J. Iacono,              *
+!        Ronald E. Farren, Luke Chen, Robert Bergstrom.                       *
+!                                                                             *
+!******************************************************************************
+! Modified by:                                                                *
+!      JJ Morcrette 980714 ECMWF      for use on ECMWF's Fujitsu VPP770       *
+!         Reformatted for F90 by JJMorcrette, ECMWF                           * 
+!         - replacing COMMONs by MODULEs                                      *
+!         - changing labelled to unlabelled DO loops                          *
+!         - creating set-up routines for all block data statements            *
+!         - reorganizing the parameter statements                             * 
+!         - passing KLEV as argument                                          *
+!         - suppressing some equivalencing                                    *
+!                                                                             *
+!      D Salmond    9907   ECMWF      Speed-up modifications                  *
+!      D Salmond    000515 ECMWF      Speed-up modifications                  *
+!******************************************************************************
+!     TAUMOL                                                                  *
+!                                                                             *
+!     This file contains the subroutines TAUGBn (where n goes from            *
+!     1 to 16).  TAUGBn calculates the optical depths and Planck fractions    *
+!     per g-value and layer for band n.                                       *
+!                                                                             *
+!  Output:  optical depths (unitless)                                         *
+!           fractions needed to compute Planck functions at every layer       *
+!               and g-value                                                   *
+!                                                                             *
+!     COMMON /TAUGCOM/  TAUG(MXLAY,MG)                                        *
+!     COMMON /PLANKG/   FRACS(MXLAY,MG)                                       *
+!                                                                             *
+!  Input                                                                      *
+!                                                                             *
+!     COMMON /FEATURES/ NG(NBANDS),NSPA(NBANDS),NSPB(NBANDS)                  *
+!     COMMON /PRECISE/  ONEMINUS                                              *
+!     COMMON /PROFILE/  NLAYERS,PAVEL(MXLAY),TAVEL(MXLAY),                    *
+!    &                  PZ(0:MXLAY),TZ(0:MXLAY),TBOUND                        *
+!     COMMON /PROFDATA/ LAYTROP,LAYSWTCH,LAYLOW,                              *
+!    &                  COLH2O(MXLAY),COLCO2(MXLAY),                          *
+!    &                  COLO3(MXLAY),COLN2O(MXLAY),COLCH4(MXLAY),             *
+!    &                  COLO2(MXLAY),CO2MULT(MXLAY)                           *
+!     COMMON /INTFAC/   FAC00(MXLAY),FAC01(MXLAY),                            *
+!    &                  FAC10(MXLAY),FAC11(MXLAY)                             *
+!     COMMON /INTIND/   JP(MXLAY),JT(MXLAY),JT1(MXLAY)                        *
+!     COMMON /SELF/     SELFFAC(MXLAY), SELFFRAC(MXLAY), INDSELF(MXLAY)       *
+!                                                                             *
+!     Description:                                                            *
+!     NG(IBAND) - number of g-values in band IBAND                            *
+!     NSPA(IBAND) - for the lower atmosphere, the number of reference         *
+!                   atmospheres that are stored for band IBAND per            *
+!                   pressure level and temperature.  Each of these            *
+!                   atmospheres has different relative amounts of the         *
+!                   key species for the band (i.e. different binary           *
+!                   species parameters).                                      *
+!     NSPB(IBAND) - same for upper atmosphere                                 *
+!     ONEMINUS - since problems are caused in some cases by interpolation     *
+!                parameters equal to or greater than 1, for these cases       *
+!                these parameters are set to this value, slightly < 1.        *
+!     PAVEL - layer pressures (mb)                                            *
+!     TAVEL - layer temperatures (degrees K)                                  *
+!     PZ - level pressures (mb)                                               *
+!     TZ - level temperatures (degrees K)                                     *
+!     LAYTROP - layer at which switch is made from one combination of         *
+!               key species to another                                        *
+!     COLH2O, COLCO2, COLO3, COLN2O, COLCH4 - column amounts of water         *
+!               vapor,carbon dioxide, ozone, nitrous ozide, methane,          *
+!               respectively (molecules/cm**2)                                *
+!     CO2MULT - for bands in which carbon dioxide is implemented as a         *
+!               trace species, this is the factor used to multiply the        *
+!               band's average CO2 absorption coefficient to get the added    *
+!               contribution to the optical depth relative to 355 ppm.        *
+!     FACij(LAY) - for layer LAY, these are factors that are needed to        *
+!                  compute the interpolation factors that multiply the        *
+!                  appropriate reference k-values.  A value of 0 (1) for      *
+!                  i,j indicates that the corresponding factor multiplies     *
+!                  reference k-value for the lower (higher) of the two        *
+!                  appropriate temperatures, and altitudes, respectively.     *
+!     JP - the index of the lower (in altitude) of the two appropriate        *
+!          reference pressure levels needed for interpolation                 *
+!     JT, JT1 - the indices of the lower of the two appropriate reference     *
+!               temperatures needed for interpolation (for pressure           *
+!               levels JP and JP+1, respectively)                             *
+!     SELFFAC - scale factor needed to water vapor self-continuum, equals     *
+!               (water vapor density)/(atmospheric density at 296K and        *
+!               1013 mb)                                                      *
+!     SELFFRAC - factor needed for temperature interpolation of reference     *
+!                water vapor self-continuum data                              *
+!     INDSELF - index of the lower of the two appropriate reference           *
+!               temperatures needed for the self-continuum interpolation      *
+!                                                                             *
+!  Data input                                                                 *
+!     COMMON /Kn/ KA(NSPA(n),5,13,MG), KB(NSPB(n),5,13:59,MG), SELFREF(10,MG) *
+!        (note:  n is the band number)                                        *
+!                                                                             *
+!     Description:                                                            *
+!     KA - k-values for low reference atmospheres (no water vapor             *
+!          self-continuum) (units: cm**2/molecule)                            *
+!     KB - k-values for high reference atmospheres (all sources)              *
+!          (units: cm**2/molecule)                                            *
+!     SELFREF - k-values for water vapor self-continuum for reference         *
+!               atmospheres (used below LAYTROP)                              *
+!               (units: cm**2/molecule)                                       *
+!                                                                             *
+!     DIMENSION ABSA(65*NSPA(n),MG), ABSB(235*NSPB(n),MG)                     *
+!     EQUIVALENCE (KA,ABSA),(KB,ABSB)                                         *
+!                                                                             *
+!******************************************************************************
+
+SUBROUTINE RRTM_TAUMOL1 (KLEV,P_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,P_FORFAC,K_JP,K_JT,K_JT1,&
+ & P_COLH2O,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+
+!     Written by Eli J. Mlawer, Atmospheric & Environmental Research.
+!     Revised by Michael J. Iacono, Atmospheric & Environmental Research.
+
+!     BAND 1:  10-250 cm-1 (low - H2O; high - H2O)
+ 
+! Modifications
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     D Salmond   2000-05-15 speed-up
+!     JJMorcrette 2000-05-17 speed-up
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,NG1
+USE YOERRTWN , ONLY :      NSPA   ,NSPB
+USE YOERRTA1 , ONLY : ABSA   ,ABSB   ,FRACREFA, FRACREFB,&
+ & FORREF   ,SELFREF   
+
+!#include "yoeratm.h"
+
+!      REAL TAUAER(JPLAY)
+
+IMPLICIT NONE
+
+!  Output
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAU(JPGPT,JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_TAUAERL(JPLAY,JPBAND) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FORFAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLH2O(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDSELF(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFRAC(JPGPT,JPLAY) 
+!- from AER
+!- from INTFAC      
+!- from INTIND
+!- from PRECISE             
+!- from PROFDATA             
+!- from SELF             
+!- from SP             
+INTEGER(KIND=JPIM) :: IND0(JPLAY),IND1(JPLAY),INDS(JPLAY)
+
+INTEGER(KIND=JPIM) :: IG, I_LAY
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!      EQUIVALENCE (TAUAERL(1,1),TAUAER)
+
+!     Compute the optical depth by interpolating in ln(pressure) and 
+!     temperature.  Below LAYTROP, the water vapor self-continuum 
+!     is interpolated (in temperature) separately.  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL1',0,ZHOOK_HANDLE)
+DO I_LAY = 1, K_LAYTROP
+  IND0(I_LAY) = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(1) + 1
+  IND1(I_LAY) = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(1) + 1
+  INDS(I_LAY) = K_INDSELF(I_LAY)
+ENDDO
+
+DO IG = 1, NG1
+  DO I_LAY = 1, K_LAYTROP
+!-- DS_000515  
+    P_TAU (IG,I_LAY) = P_COLH2O(I_LAY) *&
+     & (P_FAC00(I_LAY) * ABSA(IND0(I_LAY)  ,IG) +&
+     & P_FAC10(I_LAY) * ABSA(IND0(I_LAY)+1,IG) +&
+     & P_FAC01(I_LAY) * ABSA(IND1(I_LAY)  ,IG) +&
+     & P_FAC11(I_LAY) * ABSA(IND1(I_LAY)+1,IG) +&
+     & P_SELFFAC(I_LAY) * (SELFREF(INDS(I_LAY),IG) + &
+     & P_SELFFRAC(I_LAY) *&
+     & (SELFREF(INDS(I_LAY)+1,IG) - SELFREF(INDS(I_LAY),IG)))&
+     & + P_FORFAC(I_LAY) * FORREF(IG) ) &
+     & + P_TAUAERL(I_LAY,1)  
+    PFRAC(IG,I_LAY) = FRACREFA(IG)
+  ENDDO
+ENDDO
+
+DO I_LAY = K_LAYTROP+1, KLEV
+  IND0(I_LAY) = ((K_JP(I_LAY)-13)*5+(K_JT(I_LAY)-1))*NSPB(1) + 1
+  IND1(I_LAY) = ((K_JP(I_LAY)-12)*5+(K_JT1(I_LAY)-1))*NSPB(1) + 1
+ENDDO
+
+!-- JJM000517
+DO IG = 1, NG1
+  DO I_LAY = K_LAYTROP+1, KLEV
+!-- JJM000517
+    P_TAU (IG,I_LAY) = P_COLH2O(I_LAY) *&
+     & (P_FAC00(I_LAY) * ABSB(IND0(I_LAY)  ,IG) +&
+     & P_FAC10(I_LAY) * ABSB(IND0(I_LAY)+1,IG) +&
+     & P_FAC01(I_LAY) * ABSB(IND1(I_LAY)  ,IG) +&
+     & P_FAC11(I_LAY) * ABSB(IND1(I_LAY)+1,IG)&
+     & + P_FORFAC(I_LAY) * FORREF(IG) ) &
+     & + P_TAUAERL(I_LAY,1)  
+    PFRAC(IG,I_LAY) = FRACREFB(IG)
+  ENDDO
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL1',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_TAUMOL1
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol1.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol1.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol1.intfb.h	(revision 1989)
@@ -0,0 +1,25 @@
+INTERFACE
+SUBROUTINE RRTM_TAUMOL1 (KLEV,P_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,P_FORFAC,K_JP,K_JT,K_JT1,&
+ & P_COLH2O,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARRRTM , ONLY : JPLAY ,JPBAND ,JPGPT ,NG1
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAU(JPGPT,JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_TAUAERL(JPLAY,JPBAND)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FORFAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLH2O(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDSELF(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFRAC(JPGPT,JPLAY)
+END SUBROUTINE RRTM_TAUMOL1
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol10.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol10.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol10.F90	(revision 1989)
@@ -0,0 +1,97 @@
+!*******************************************************************************
+SUBROUTINE RRTM_TAUMOL10 (KLEV,P_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,&
+ & P_COLH2O,K_LAYTROP,PFRAC)  
+
+!     BAND 10:  1390-1480 cm-1 (low - H2O; high - H2O)
+
+! Modifications
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     D Salmond   2000-05-15 speed-up
+!     JJMorcrette 2000-05-17 speed-up
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,NG10   ,NGS9
+USE YOERRTWN , ONLY :      NSPA   ,NSPB
+USE YOERRTA10, ONLY : ABSA   ,ABSB   ,FRACREFA, FRACREFB
+
+!  Input
+!#include "yoeratm.h"
+
+!      REAL TAUAER(JPLAY)
+
+IMPLICIT NONE
+
+!  Output
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAU(JPGPT,JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_TAUAERL(JPLAY,JPBAND) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLH2O(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFRAC(JPGPT,JPLAY) 
+!- from AER
+!- from INTFAC      
+!- from INTIND
+!- from PROFDATA             
+!- from SP             
+INTEGER(KIND=JPIM) :: IND0(JPLAY),IND1(JPLAY)
+
+INTEGER(KIND=JPIM) :: IG, I_LAY
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!      EQUIVALENCE (TAUAERL(1,10),TAUAER)
+
+!     Compute the optical depth by interpolating in ln(pressure) and 
+!     temperature.  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL10',0,ZHOOK_HANDLE)
+DO I_LAY = 1, K_LAYTROP
+  IND0(I_LAY) = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(10) + 1
+  IND1(I_LAY) = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(10) + 1
+ENDDO
+
+!-- DS_000515
+DO IG = 1, NG10
+  DO I_LAY = 1, K_LAYTROP
+!-- DS_000515
+    P_TAU (NGS9+IG,I_LAY) = P_COLH2O(I_LAY) *&
+     & (P_FAC00(I_LAY) * ABSA(IND0(I_LAY)  ,IG) +&
+     & P_FAC10(I_LAY) * ABSA(IND0(I_LAY)+1,IG) +&
+     & P_FAC01(I_LAY) * ABSA(IND1(I_LAY)  ,IG) +&
+     & P_FAC11(I_LAY) * ABSA(IND1(I_LAY)+1,IG)) &
+     & + P_TAUAERL(I_LAY,10)  
+    PFRAC(NGS9+IG,I_LAY) = FRACREFA(IG)
+  ENDDO
+ENDDO
+
+DO I_LAY = K_LAYTROP+1, KLEV
+  IND0(I_LAY) = ((K_JP(I_LAY)-13)*5+(K_JT(I_LAY)-1))*NSPB(10) + 1
+  IND1(I_LAY) = ((K_JP(I_LAY)-12)*5+(K_JT1(I_LAY)-1))*NSPB(10) + 1
+ENDDO
+
+!-- JJM_000517
+DO IG = 1, NG10
+  DO I_LAY = K_LAYTROP+1, KLEV
+!-- JJM_000517
+    P_TAU (NGS9+IG,I_LAY) = P_COLH2O(I_LAY) *&
+     & (P_FAC00(I_LAY) * ABSB(IND0(I_LAY)  ,IG) +&
+     & P_FAC10(I_LAY) * ABSB(IND0(I_LAY)+1,IG) +&
+     & P_FAC01(I_LAY) * ABSB(IND1(I_LAY)  ,IG) +&
+     & P_FAC11(I_LAY) * ABSB(IND1(I_LAY)+1,IG)) &
+     & + P_TAUAERL(I_LAY,10)  
+    PFRAC(NGS9+IG,I_LAY) = FRACREFB(IG)
+  ENDDO
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL10',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_TAUMOL10
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol10.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol10.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol10.intfb.h	(revision 1989)
@@ -0,0 +1,21 @@
+INTERFACE
+SUBROUTINE RRTM_TAUMOL10 (KLEV,P_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,&
+ & P_COLH2O,K_LAYTROP,PFRAC) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARRRTM , ONLY : JPLAY ,JPBAND ,JPGPT ,NG10 ,NGS9
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAU(JPGPT,JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_TAUAERL(JPLAY,JPBAND)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLH2O(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFRAC(JPGPT,JPLAY)
+END SUBROUTINE RRTM_TAUMOL10
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol11.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol11.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol11.F90	(revision 1989)
@@ -0,0 +1,106 @@
+!******************************************************************************
+SUBROUTINE RRTM_TAUMOL11 (KLEV,P_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,&
+ & P_COLH2O,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+
+!     BAND 11:  1480-1800 cm-1 (low - H2O; high - H2O)
+
+! Modifications
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     D Salmond   2000-05-15 speed-up
+!     JJMorcrette 2000-05-17 speed-up
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,NG11  ,NGS10
+USE YOERRTWN , ONLY :      NSPA   ,NSPB
+USE YOERRTA11, ONLY : ABSA   ,ABSB   ,FRACREFA, FRACREFB,SELFREF
+
+!  Input
+!#include "yoeratm.h"
+
+!      REAL TAUAER(JPLAY)
+
+IMPLICIT NONE
+
+!  Output
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAU(JPGPT,JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_TAUAERL(JPLAY,JPBAND) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLH2O(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDSELF(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFRAC(JPGPT,JPLAY) 
+!- from AER
+!- from INTFAC      
+!- from INTIND
+!- from PROFDATA             
+!- from SELF             
+!- from SP             
+INTEGER(KIND=JPIM) :: IND0(JPLAY),IND1(JPLAY),INDS(JPLAY)
+
+INTEGER(KIND=JPIM) :: IG, I_LAY
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!      EQUIVALENCE (TAUAERL(1,11),TAUAER)
+
+!     Compute the optical depth by interpolating in ln(pressure) and 
+!     temperature.  Below LAYTROP, the water vapor self-continuum 
+!     is interpolated (in temperature) separately.
+  
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL11',0,ZHOOK_HANDLE)
+DO I_LAY = 1, K_LAYTROP
+  IND0(I_LAY) = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(11) + 1
+  IND1(I_LAY) = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(11) + 1
+  INDS(I_LAY) = K_INDSELF(I_LAY)
+ENDDO
+
+!-- DS_000515  
+DO IG = 1, NG11
+  DO I_LAY = 1, K_LAYTROP
+!-- DS_000515  
+    P_TAU (NGS10+IG,I_LAY) = P_COLH2O(I_LAY) *&
+     & (P_FAC00(I_LAY) * ABSA(IND0(I_LAY)  ,IG) +&
+     & P_FAC10(I_LAY) * ABSA(IND0(I_LAY)+1,IG) +&
+     & P_FAC01(I_LAY) * ABSA(IND1(I_LAY)  ,IG) +&
+     & P_FAC11(I_LAY) * ABSA(IND1(I_LAY)+1,IG) +&
+     & P_SELFFAC(I_LAY) * (SELFREF(INDS(I_LAY),IG) + &
+     & P_SELFFRAC(I_LAY) *&
+     & (SELFREF(INDS(I_LAY)+1,IG) - SELFREF(INDS(I_LAY),IG))))&
+     & + P_TAUAERL(I_LAY,11)  
+    PFRAC(NGS10+IG,I_LAY) = FRACREFA(IG)
+  ENDDO
+ENDDO
+
+DO I_LAY = K_LAYTROP+1, KLEV
+  IND0(I_LAY) = ((K_JP(I_LAY)-13)*5+(K_JT(I_LAY)-1))*NSPB(11) + 1
+  IND1(I_LAY) = ((K_JP(I_LAY)-12)*5+(K_JT1(I_LAY)-1))*NSPB(11) + 1
+ENDDO
+
+!-- JJM_000517
+DO IG = 1, NG11
+  DO I_LAY = K_LAYTROP+1, KLEV
+!-- JJM_000517
+    P_TAU (NGS10+IG,I_LAY) = P_COLH2O(I_LAY) *&
+     & (P_FAC00(I_LAY) * ABSB(IND0(I_LAY)  ,IG) +&
+     & P_FAC10(I_LAY) * ABSB(IND0(I_LAY)+1,IG) +&
+     & P_FAC01(I_LAY) * ABSB(IND1(I_LAY)  ,IG) +&
+     & P_FAC11(I_LAY) * ABSB(IND1(I_LAY)+1,IG)) &
+     & + P_TAUAERL(I_LAY,11)  
+    PFRAC(NGS10+IG,I_LAY) = FRACREFB(IG)
+  ENDDO
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL11',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_TAUMOL11
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol11.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol11.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol11.intfb.h	(revision 1989)
@@ -0,0 +1,24 @@
+INTERFACE
+SUBROUTINE RRTM_TAUMOL11 (KLEV,P_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,&
+ & P_COLH2O,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARRRTM , ONLY : JPLAY ,JPBAND ,JPGPT ,NG11 ,NGS10
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAU(JPGPT,JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_TAUAERL(JPLAY,JPBAND)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLH2O(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDSELF(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFRAC(JPGPT,JPLAY)
+END SUBROUTINE RRTM_TAUMOL11
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol12.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol12.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol12.F90	(revision 1989)
@@ -0,0 +1,143 @@
+!----------------------------------------------------------------------------
+SUBROUTINE RRTM_TAUMOL12 (KLEV,P_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLCO2,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+
+!     BAND 12:  1800-2080 cm-1 (low - H2O,CO2; high - nothing)
+
+! Modifications
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     D Salmond   2000-05-15 speed-up
+!     JJMorcrette 2000-05-17 speed-up
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARRRTM  , ONLY : JPLAY  ,JPBAND  ,JPGPT  ,NG12 ,NGS11
+USE YOERRTWN , ONLY :      NSPA    
+USE YOERRTA12, ONLY : ABSA   ,FRACREFA,SELFREF,STRRAT
+
+!  Input
+!#include "yoeratm.h"
+
+!      REAL TAUAER(JPLAY)
+
+IMPLICIT NONE
+
+!  Output
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAU(JPGPT,JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_TAUAERL(JPLAY,JPBAND) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_ONEMINUS 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLH2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLCO2(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDSELF(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFRAC(JPGPT,JPLAY) 
+!- from AER
+!- from INTFAC      
+!- from INTIND
+!- from PRECISE             
+!- from PROFDATA             
+!- from SELF             
+!- from SP             
+INTEGER(KIND=JPIM) :: IJS(JPLAY)
+REAL(KIND=JPRB) :: ZFS(JPLAY),Z_SPECCOMB(JPLAY)
+INTEGER(KIND=JPIM) :: IND0(JPLAY),IND1(JPLAY),INDS(JPLAY)
+
+INTEGER(KIND=JPIM) :: IG, JS, I_LAY
+
+REAL(KIND=JPRB) :: Z_FAC000, Z_FAC001, Z_FAC010, Z_FAC011, Z_FAC100, Z_FAC101,&
+ & Z_FAC110, Z_FAC111, Z_FS, Z_SPECMULT, Z_SPECPARM  
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!      EQUIVALENCE (TAUAERL(1,12),TAUAER)
+
+!     Compute the optical depth by interpolating in ln(pressure), 
+!     temperature, and appropriate species.  Below LAYTROP, the water
+!     vapor self-continuum is interpolated (in temperature) separately.  
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL12',0,ZHOOK_HANDLE)
+DO I_LAY = 1, K_LAYTROP
+  Z_SPECCOMB(I_LAY) = P_COLH2O(I_LAY) + STRRAT*P_COLCO2(I_LAY)
+  Z_SPECPARM = P_COLH2O(I_LAY)/Z_SPECCOMB(I_LAY)
+  Z_SPECPARM=MIN(P_ONEMINUS,Z_SPECPARM)
+  Z_SPECMULT = 8._JPRB*(Z_SPECPARM)
+  JS = 1 + INT(Z_SPECMULT)
+  Z_FS = MOD(Z_SPECMULT,1.0_JPRB)
+  IND0(I_LAY) = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(12) + JS
+  IND1(I_LAY) = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(12) + JS
+  INDS(I_LAY) = K_INDSELF(I_LAY)
+
+  ZFS(I_LAY)=Z_FS
+  IJS(I_LAY)=JS
+
+ENDDO
+
+!-- DS_000515
+DO IG = 1, NG12
+  DO I_LAY = 1, K_LAYTROP
+!-- DS_000515
+
+    Z_FS=ZFS(I_LAY)
+    JS=IJS(I_LAY)
+  
+!----jjm        
+!    FAC000 = (_ONE_ - FS) * FAC00(LAY)
+!    FAC010 = (_ONE_ - FS) * FAC10(LAY)
+!    FAC100 = FS * FAC00(LAY)
+!    FAC110 = FS * FAC10(LAY)
+!    FAC001 = (_ONE_ - FS) * FAC01(LAY)
+!    FAC011 = (_ONE_ - FS) * FAC11(LAY)
+!    FAC101 = FS * FAC01(LAY)
+!    FAC111 = FS * FAC11(LAY)
+!----
+    P_TAU (NGS11+IG,I_LAY) = Z_SPECCOMB(I_LAY) *&
+     !-- DS_000515
+     !     &(Z_FAC000 * ABSA(IND0(I_LAY)   ,IG) +&
+     !     & Z_FAC100 * ABSA(IND0(I_LAY)+ 1,IG) +&
+     !     & Z_FAC010 * ABSA(IND0(I_LAY)+ 9,IG) +&
+     !     & Z_FAC110 * ABSA(IND0(I_LAY)+10,IG) +&
+     !     & Z_FAC001 * ABSA(IND1(I_LAY)   ,IG) +&
+     !     & Z_FAC101 * ABSA(IND1(I_LAY) +1,IG) +&
+     !     & Z_FAC011 * ABSA(IND1(I_LAY) +9,IG) +&
+     !     & Z_FAC111 * ABSA(IND1(I_LAY)+10,IG))+&
+     & ( (1. - Z_FS) *( P_FAC00(I_LAY) * ABSA(IND0(I_LAY)   ,IG) +   &
+     & P_FAC10(I_LAY) * ABSA(IND0(I_LAY)+9 ,IG) +   &
+     & P_FAC01(I_LAY) * ABSA(IND1(I_LAY)   ,IG) +    &
+     & P_FAC11(I_LAY) * ABSA(IND1(I_LAY)+9 ,IG))+   &
+     & Z_FS     *( P_FAC00(I_LAY) * ABSA(IND0(I_LAY)+ 1,IG) +   &
+     & P_FAC10(I_LAY) * ABSA(IND0(I_LAY)+10,IG) +   &
+     & P_FAC01(I_LAY) * ABSA(IND1(I_LAY)+ 1,IG) +   &
+     & P_FAC11(I_LAY) * ABSA(IND1(I_LAY)+10,IG))) +  &
+     !-- DS_000515
+     & P_COLH2O(I_LAY) * &
+     & P_SELFFAC(I_LAY) * (SELFREF(INDS(I_LAY),IG) + &
+     & P_SELFFRAC(I_LAY) *&
+     & (SELFREF(INDS(I_LAY)+1,IG) - SELFREF(INDS(I_LAY),IG)))&
+     & + P_TAUAERL(I_LAY,12)  
+    PFRAC(NGS11+IG,I_LAY) = FRACREFA(IG,JS) + Z_FS *&
+     & (FRACREFA(IG,JS+1) - FRACREFA(IG,JS))  
+  ENDDO
+ENDDO
+
+!-- JJM_000517
+DO IG = 1, NG12
+  DO I_LAY = K_LAYTROP+1, KLEV
+!-- JJM_000517
+    P_TAU (NGS11+IG,I_LAY) = P_TAUAERL(I_LAY,12)
+    PFRAC(NGS11+IG,I_LAY) = 0.0_JPRB
+  ENDDO
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL12',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_TAUMOL12
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol12.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol12.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol12.intfb.h	(revision 1989)
@@ -0,0 +1,26 @@
+INTERFACE
+SUBROUTINE RRTM_TAUMOL12 (KLEV,P_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLCO2,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARRRTM , ONLY : JPLAY ,JPBAND ,JPGPT ,NG12 ,NGS11
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAU(JPGPT,JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_TAUAERL(JPLAY,JPBAND)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_ONEMINUS
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLH2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLCO2(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDSELF(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFRAC(JPGPT,JPLAY)
+END SUBROUTINE RRTM_TAUMOL12
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol13.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol13.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol13.F90	(revision 1989)
@@ -0,0 +1,142 @@
+!----------------------------------------------------------------------------
+SUBROUTINE RRTM_TAUMOL13 (KLEV,P_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLN2O,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+
+!     BAND 13:  2080-2250 cm-1 (low - H2O,N2O; high - nothing)
+
+! Modifications
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     D Salmond 2000-05-15 speed-up
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,NG13  ,NGS12
+USE YOERRTWN , ONLY :      NSPA   
+USE YOERRTA13, ONLY : ABSA   ,FRACREFA,SELFREF,STRRAT
+
+!  Input
+!#include "yoeratm.h"
+
+!      REAL TAUAER(JPLAY)
+
+IMPLICIT NONE
+
+!  Output
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAU(JPGPT,JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_TAUAERL(JPLAY,JPBAND) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_ONEMINUS 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLH2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLN2O(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDSELF(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFRAC(JPGPT,JPLAY) 
+!- from AER
+!- from INTFAC      
+!- from INTIND
+!- from PRECISE             
+!- from PROFDATA             
+!- from SELF             
+!- from SP             
+INTEGER(KIND=JPIM) :: IJS(JPLAY)
+REAL(KIND=JPRB) :: ZFS(JPLAY),Z_SPECCOMB(JPLAY)
+INTEGER(KIND=JPIM) :: IND0(JPLAY),IND1(JPLAY),INDS(JPLAY)
+
+INTEGER(KIND=JPIM) :: IG, JS, I_LAY
+
+REAL(KIND=JPRB) :: Z_FAC000, Z_FAC001, Z_FAC010, Z_FAC011, Z_FAC100, Z_FAC101,&
+ & Z_FAC110, Z_FAC111, Z_FS, Z_SPECMULT, Z_SPECPARM  
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!      EQUIVALENCE (TAUAERL(1,13),TAUAER)
+
+!     Compute the optical depth by interpolating in ln(pressure), 
+!     temperature, and appropriate species.  Below LAYTROP, the water
+!     vapor self-continuum is interpolated (in temperature) separately. 
+ 
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL13',0,ZHOOK_HANDLE)
+DO  I_LAY = 1, K_LAYTROP
+  Z_SPECCOMB(I_LAY) = P_COLH2O(I_LAY) + STRRAT*P_COLN2O(I_LAY)
+  Z_SPECPARM = P_COLH2O(I_LAY)/Z_SPECCOMB(I_LAY)
+  Z_SPECPARM=MIN(P_ONEMINUS,Z_SPECPARM)
+  Z_SPECMULT = 8._JPRB*(Z_SPECPARM)
+  JS = 1 + INT(Z_SPECMULT)
+  Z_FS = MOD(Z_SPECMULT,1.0_JPRB)
+  IND0(I_LAY) = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(13) + JS
+  IND1(I_LAY) = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(13) + JS
+  INDS(I_LAY) = K_INDSELF(I_LAY)
+  
+  ZFS(I_LAY)=Z_FS
+  IJS(I_LAY)=JS
+
+ENDDO
+
+!-- DS_000515
+DO IG = 1, NG13
+  DO I_LAY = 1, K_LAYTROP
+!-- DS_000515
+
+    Z_FS=ZFS(I_LAY)
+    JS=IJS(I_LAY)
+!---jjm         
+!    FAC000 = (_ONE_ - FS) * FAC00(LAY)
+!    FAC010 = (_ONE_ - FS) * FAC10(LAY)
+!    FAC100 = FS * FAC00(LAY)
+!    FAC110 = FS * FAC10(LAY)
+!    FAC001 = (_ONE_ - FS) * FAC01(LAY)
+!    FAC011 = (_ONE_ - FS) * FAC11(LAY)
+!    FAC101 = FS * FAC01(LAY)
+!    FAC111 = FS * FAC11(LAY)
+!----
+    P_TAU (NGS12+IG,I_LAY) = Z_SPECCOMB(I_LAY) *&
+     !-- DS_000515
+     & ( (1. - Z_FS) *( P_FAC00(I_LAY) * ABSA(IND0(I_LAY)   ,IG) +   &
+     & P_FAC10(I_LAY) * ABSA(IND0(I_LAY)+ 9,IG) +   &
+     & P_FAC01(I_LAY) * ABSA(IND1(I_LAY)   ,IG) +    &
+     & P_FAC11(I_LAY) * ABSA(IND1(I_LAY)+ 9,IG))+   &
+     & Z_FS      *( P_FAC00(I_LAY) * ABSA(IND0(I_LAY)+ 1,IG) +    &
+     & P_FAC10(I_LAY) * ABSA(IND0(I_LAY)+10,IG) +   &
+     & P_FAC01(I_LAY) * ABSA(IND1(I_LAY)+ 1,IG) +   &
+     & P_FAC11(I_LAY) * ABSA(IND1(I_LAY)+10,IG))) + &
+     !     &(Z_FAC000 * ABSA(IND0(I_LAY)   ,IG) +&
+     !     & Z_FAC100 * ABSA(IND0(I_LAY)+ 1,IG) +&
+     !     & Z_FAC010 * ABSA(IND0(I_LAY)+ 9,IG) +&
+     !     & Z_FAC110 * ABSA(IND0(I_LAY)+10,IG) +&
+     !     & Z_FAC001 * ABSA(IND1(I_LAY)   ,IG) +&
+     !     & Z_FAC101 * ABSA(IND1(I_LAY)+ 1,IG) +&
+     !     & Z_FAC011 * ABSA(IND1(I_LAY)+ 9,IG) +&
+     !     & Z_FAC111 * ABSA(IND1(I_LAY)+10,IG))+&
+     !-- DS_000515
+     & P_COLH2O(I_LAY) * &
+     & P_SELFFAC(I_LAY) * (SELFREF(INDS(I_LAY),IG) + &
+     & P_SELFFRAC(I_LAY) *&
+     & (SELFREF(INDS(I_LAY)+1,IG) - SELFREF(INDS(I_LAY),IG)))&
+     & + P_TAUAERL(I_LAY,13)  
+    PFRAC(NGS12+IG,I_LAY) = FRACREFA(IG,JS) + Z_FS *&
+     & (FRACREFA(IG,JS+1) - FRACREFA(IG,JS))  
+  ENDDO
+ENDDO
+
+!-- JJM_000517
+DO IG = 1, NG13
+  DO I_LAY = K_LAYTROP+1, KLEV
+!-- JJM_000517
+    P_TAU (NGS12+IG,I_LAY) = P_TAUAERL(I_LAY,13)
+    PFRAC(NGS12+IG,I_LAY) = 0.0_JPRB
+  ENDDO
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL13',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_TAUMOL13
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol13.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol13.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol13.intfb.h	(revision 1989)
@@ -0,0 +1,26 @@
+INTERFACE
+SUBROUTINE RRTM_TAUMOL13 (KLEV,P_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLN2O,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARRRTM , ONLY : JPLAY ,JPBAND ,JPGPT ,NG13 ,NGS12
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAU(JPGPT,JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_TAUAERL(JPLAY,JPBAND)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_ONEMINUS
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLH2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLN2O(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDSELF(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFRAC(JPGPT,JPLAY)
+END SUBROUTINE RRTM_TAUMOL13
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol14.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol14.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol14.F90	(revision 1989)
@@ -0,0 +1,117 @@
+!******************************************************************************
+SUBROUTINE RRTM_TAUMOL14 (KLEV,P_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,&
+ & P_COLCO2,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+
+!     BAND 14:  2250-2380 cm-1 (low - CO2; high - CO2)
+
+! Modifications
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     D Salmond 1999-07-14 speed-up
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,NGS13
+USE YOERRTWN , ONLY :      NSPA   ,NSPB
+USE YOERRTA14, ONLY : ABSA   ,ABSB   ,FRACREFA, FRACREFB,SELFREF
+
+IMPLICIT NONE
+
+!  Output
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAU(JPGPT,JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_TAUAERL(JPLAY,JPBAND) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLCO2(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDSELF(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFRAC(JPGPT,JPLAY) 
+!- from AER
+!- from INTFAC      
+!- from INTIND
+!- from PROFDATA             
+!- from SELF             
+!- from SP             
+INTEGER(KIND=JPIM) :: IG, IND0, IND1, INDS, I_LAY
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!  Input
+!#include "yoeratm.h"
+
+!      REAL TAUAER(JPLAY)
+!      EQUIVALENCE (TAUAERL(1,14),TAUAER)
+
+!     Compute the optical depth by interpolating in ln(pressure) and 
+!     temperature.  Below LAYTROP, the water vapor self-continuum 
+!     is interpolated (in temperature) separately.  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL14',0,ZHOOK_HANDLE)
+DO I_LAY = 1, K_LAYTROP
+  IND0 = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(14) + 1
+  IND1 = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(14) + 1
+  INDS = K_INDSELF(I_LAY)
+!-- DS_990714  
+!         DO IG = 1, NG14
+  IG=1
+  P_TAU (NGS13+IG,I_LAY) = P_COLCO2(I_LAY) *&
+   & (P_FAC00(I_LAY) * ABSA(IND0  ,IG) +&
+   & P_FAC10(I_LAY) * ABSA(IND0+1,IG) +&
+   & P_FAC01(I_LAY) * ABSA(IND1  ,IG) +&
+   & P_FAC11(I_LAY) * ABSA(IND1+1,IG) +&
+   & P_SELFFAC(I_LAY) * (SELFREF(INDS,IG) + &
+   & P_SELFFRAC(I_LAY) *&
+   & (SELFREF(INDS+1,IG) - SELFREF(INDS,IG))))&
+   & + P_TAUAERL(I_LAY,14)  
+  PFRAC(NGS13+IG,I_LAY) = FRACREFA(IG)
+  IG=2
+  P_TAU (NGS13+IG,I_LAY) = P_COLCO2(I_LAY) *&
+   & (P_FAC00(I_LAY) * ABSA(IND0  ,IG) +&
+   & P_FAC10(I_LAY) * ABSA(IND0+1,IG) +&
+   & P_FAC01(I_LAY) * ABSA(IND1  ,IG) +&
+   & P_FAC11(I_LAY) * ABSA(IND1+1,IG) +&
+   & P_SELFFAC(I_LAY) * (SELFREF(INDS,IG) +&
+   & P_SELFFRAC(I_LAY) *&
+   & (SELFREF(INDS+1,IG) - SELFREF(INDS,IG))))&
+   & + P_TAUAERL(I_LAY,14)  
+  PFRAC(NGS13+IG,I_LAY) = FRACREFA(IG)
+!         END DO
+!-- DS_990714  
+ENDDO
+
+DO I_LAY = K_LAYTROP+1, KLEV
+  IND0 = ((K_JP(I_LAY)-13)*5+(K_JT(I_LAY)-1))*NSPB(14) + 1
+  IND1 = ((K_JP(I_LAY)-12)*5+(K_JT1(I_LAY)-1))*NSPB(14) + 1
+!-- DS_990714  
+!         DO IG = 1, NG14
+  IG=1
+  P_TAU (NGS13+IG,I_LAY) = P_COLCO2(I_LAY) *&
+   & (P_FAC00(I_LAY) * ABSB(IND0  ,IG) +&
+   & P_FAC10(I_LAY) * ABSB(IND0+1,IG) +&
+   & P_FAC01(I_LAY) * ABSB(IND1  ,IG) +&
+   & P_FAC11(I_LAY) * ABSB(IND1+1,IG)) &
+   & + P_TAUAERL(I_LAY,14)  
+  PFRAC(NGS13+IG,I_LAY) = FRACREFB(IG)
+  IG=2
+  P_TAU (NGS13+IG,I_LAY) = P_COLCO2(I_LAY) *&
+   & (P_FAC00(I_LAY) * ABSB(IND0  ,IG) +&
+   & P_FAC10(I_LAY) * ABSB(IND0+1,IG) +&
+   & P_FAC01(I_LAY) * ABSB(IND1  ,IG) +&
+   & P_FAC11(I_LAY) * ABSB(IND1+1,IG)) &
+   & + P_TAUAERL(I_LAY,14)  
+  PFRAC(NGS13+IG,I_LAY) = FRACREFB(IG)
+!         END DO
+!-- DS_990714  
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL14',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_TAUMOL14
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol14.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol14.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol14.intfb.h	(revision 1989)
@@ -0,0 +1,24 @@
+INTERFACE
+SUBROUTINE RRTM_TAUMOL14 (KLEV,P_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,&
+ & P_COLCO2,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARRRTM , ONLY : JPLAY ,JPBAND ,JPGPT ,NGS13
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAU(JPGPT,JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_TAUAERL(JPLAY,JPBAND)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLCO2(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDSELF(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFRAC(JPGPT,JPLAY)
+END SUBROUTINE RRTM_TAUMOL14
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol15.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol15.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol15.F90	(revision 1989)
@@ -0,0 +1,157 @@
+!----------------------------------------------------------------------------
+SUBROUTINE RRTM_TAUMOL15 (KLEV,P_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLCO2,P_COLN2O,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+
+!     BAND 15:  2380-2600 cm-1 (low - N2O,CO2; high - nothing)
+
+! Modifications
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     D Salmond 1999-07-14 speed-up
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,NGS14
+USE YOERRTWN , ONLY :      NSPA   
+USE YOERRTA15, ONLY : ABSA   ,FRACREFA,SELFREF,STRRAT
+
+IMPLICIT NONE
+
+!  Output
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAU(JPGPT,JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_TAUAERL(JPLAY,JPBAND) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_ONEMINUS 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLH2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLCO2(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLN2O(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDSELF(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFRAC(JPGPT,JPLAY) 
+!- from AER
+!- from INTFAC      
+!- from INTIND
+!- from PRECISE             
+!- from PROFDATA             
+!- from SELF             
+!- from SP             
+INTEGER(KIND=JPIM) :: IG, IND0, IND1, INDS, JS, I_LAY
+
+REAL(KIND=JPRB) :: Z_FAC000, Z_FAC001, Z_FAC010, Z_FAC011, Z_FAC100, Z_FAC101,&
+ & Z_FAC110, Z_FAC111, Z_FS, Z_SPECCOMB, Z_SPECMULT, Z_SPECPARM  
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!  Input
+!#include "yoeratm.h"
+
+!      REAL TAUAER(JPLAY)
+!      EQUIVALENCE (TAUAERL(1,15),TAUAER)
+
+!     Compute the optical depth by interpolating in ln(pressure), 
+!     temperature, and appropriate species.  Below LAYTROP, the water
+!     vapor self-continuum is interpolated (in temperature) separately. 
+ 
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL15',0,ZHOOK_HANDLE)
+DO I_LAY = 1, K_LAYTROP
+  Z_SPECCOMB = P_COLN2O(I_LAY) + STRRAT*P_COLCO2(I_LAY)
+  Z_SPECPARM = P_COLN2O(I_LAY)/Z_SPECCOMB
+  Z_SPECPARM = MIN(Z_SPECPARM,P_ONEMINUS)
+  Z_SPECMULT = 8._JPRB*(Z_SPECPARM)
+  JS = 1 + INT(Z_SPECMULT)
+  Z_FS = MOD(Z_SPECMULT,1.0_JPRB)
+!-----jjm        
+  Z_FAC000 = (1.0_JPRB - Z_FS) * P_FAC00(I_LAY)
+  Z_FAC010 = (1.0_JPRB - Z_FS) * P_FAC10(I_LAY)
+  Z_FAC100 = Z_FS * P_FAC00(I_LAY)
+  Z_FAC110 = Z_FS * P_FAC10(I_LAY)
+  Z_FAC001 = (1.0_JPRB - Z_FS) * P_FAC01(I_LAY)
+  Z_FAC011 = (1.0_JPRB - Z_FS) * P_FAC11(I_LAY)
+  Z_FAC101 = Z_FS * P_FAC01(I_LAY)
+  Z_FAC111 = Z_FS * P_FAC11(I_LAY)
+!------         
+  IND0 = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(15) + JS
+  IND1 = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(15) + JS
+  INDS = K_INDSELF(I_LAY)
+!-- DS_990714  
+!         DO IG = 1, NG15
+  IG=1
+  P_TAU (NGS14+IG,I_LAY) = Z_SPECCOMB *&
+   !     &((1. - Z_FS)*(P_FAC00(I_LAY) * ABSA(IND0,IG) +
+   !     &            P_FAC10(I_LAY) * ABSA(IND0+9,IG) +
+   !     &            P_FAC01(I_LAY) * ABSA(IND1,IG) + 
+   !     &            P_FAC11(I_LAY) * ABSA(IND1+9,IG)) +
+   !     &     Z_FS *  (P_FAC01(I_LAY) * ABSA(IND1+1,IG) +
+   !     &            P_FAC10(I_LAY) * ABSA(IND0+10,IG) +
+   !     &            P_FAC00(I_LAY) * ABSA(IND0+1,IG) +
+   !     &            P_FAC11(I_LAY) * ABSA(IND1+10,IG))) +
+   & (Z_FAC000 * ABSA(IND0   ,IG) +&
+   & Z_FAC100 * ABSA(IND0+ 1,IG) +&
+   & Z_FAC010 * ABSA(IND0+ 9,IG) +&
+   & Z_FAC110 * ABSA(IND0+10,IG) +&
+   & Z_FAC001 * ABSA(IND1   ,IG) +&
+   & Z_FAC101 * ABSA(IND1+ 1,IG) +&
+   & Z_FAC011 * ABSA(IND1+ 9,IG) +&
+   & Z_FAC111 * ABSA(IND1+10,IG))+&
+   & P_COLH2O(I_LAY) * &
+   & P_SELFFAC(I_LAY) * (SELFREF(INDS,IG) + &
+   & P_SELFFRAC(I_LAY) *&
+   & (SELFREF(INDS+1,IG) - SELFREF(INDS,IG)))&
+   & + P_TAUAERL(I_LAY,15)  
+  PFRAC(NGS14+IG,I_LAY) = FRACREFA(IG,JS) + Z_FS *&
+   & (FRACREFA(IG,JS+1) - FRACREFA(IG,JS))  
+  IG=2
+  P_TAU (NGS14+IG,I_LAY) = Z_SPECCOMB *&
+   !     &((1. - Z_FS)*(P_FAC00(I_LAY) * ABSA(IND0,IG) +
+   !     &            P_FAC10(I_LAY) * ABSA(IND0+9,IG) +
+   !     &            P_FAC01(I_LAY) * ABSA(IND1,IG) +
+   !     &            P_FAC11(I_LAY) * ABSA(IND1+9,IG)) +
+   !     &     Z_FS *  (P_FAC01(I_LAY) * ABSA(IND1+1,IG) +
+   !     &            P_FAC10(I_LAY) * ABSA(IND0+10,IG) +
+   !     &            P_FAC00(I_LAY) * ABSA(IND0+1,IG) +
+   !     &            P_FAC11(I_LAY) * ABSA(IND1+10,IG))) +
+   & (Z_FAC000 * ABSA(IND0   ,IG) +&
+   & Z_FAC100 * ABSA(IND0+ 1,IG) +&
+   & Z_FAC010 * ABSA(IND0+ 9,IG) +&
+   & Z_FAC110 * ABSA(IND0+10,IG) +&
+   & Z_FAC001 * ABSA(IND1   ,IG) +&
+   & Z_FAC101 * ABSA(IND1+ 1,IG) +&
+   & Z_FAC011 * ABSA(IND1+ 9,IG) +&
+   & Z_FAC111 * ABSA(IND1+10,IG))+&
+   & P_COLH2O(I_LAY) *&
+   & P_SELFFAC(I_LAY) * (SELFREF(INDS,IG) +&
+   & P_SELFFRAC(I_LAY) *&
+   & (SELFREF(INDS+1,IG) - SELFREF(INDS,IG)))&
+   & + P_TAUAERL(I_LAY,15)  
+  PFRAC(NGS14+IG,I_LAY) = FRACREFA(IG,JS) + Z_FS *&
+   & (FRACREFA(IG,JS+1) - FRACREFA(IG,JS))  
+
+!         END DO
+!-- DS_990714  
+ENDDO
+
+DO I_LAY = K_LAYTROP+1, KLEV
+!         DO IG = 1, NG15
+!-- DS_990714  
+  IG=1
+  P_TAU (NGS14+IG,I_LAY) = P_TAUAERL(I_LAY,15)
+  PFRAC(NGS14+IG,I_LAY) = 0.0_JPRB
+  IG=2
+  P_TAU (NGS14+IG,I_LAY) = P_TAUAERL(I_LAY,15)
+  PFRAC(NGS14+IG,I_LAY) = 0.0_JPRB
+!-- DS_990714  
+!         END DO
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL15',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_TAUMOL15
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol15.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol15.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol15.intfb.h	(revision 1989)
@@ -0,0 +1,27 @@
+INTERFACE
+SUBROUTINE RRTM_TAUMOL15 (KLEV,P_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLCO2,P_COLN2O,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARRRTM , ONLY : JPLAY ,JPBAND ,JPGPT ,NGS14
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAU(JPGPT,JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_TAUAERL(JPLAY,JPBAND)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_ONEMINUS
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLH2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLCO2(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLN2O(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDSELF(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFRAC(JPGPT,JPLAY)
+END SUBROUTINE RRTM_TAUMOL15
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol16.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol16.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol16.F90	(revision 1989)
@@ -0,0 +1,156 @@
+!----------------------------------------------------------------------------
+SUBROUTINE RRTM_TAUMOL16 (KLEV,P_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLCH4,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+
+!     BAND 16:  2600-3000 cm-1 (low - H2O,CH4; high - nothing)
+
+! Modifications
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     D Salmond 1999-07-14 speed-up
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,NGS15
+USE YOERRTWN , ONLY :      NSPA   
+USE YOERRTA16, ONLY : ABSA   ,FRACREFA,SELFREF,STRRAT
+
+IMPLICIT NONE
+
+!  Output
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAU(JPGPT,JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_TAUAERL(JPLAY,JPBAND) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_ONEMINUS 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLH2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLCH4(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDSELF(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFRAC(JPGPT,JPLAY) 
+!- from AER
+!- from INTFAC      
+!- from INTIND
+!- from PRECISE             
+!- from PROFDATA             
+!- from SELF             
+!- from SP             
+INTEGER(KIND=JPIM) :: IG, IND0, IND1, INDS, JS, I_LAY
+
+REAL(KIND=JPRB) :: Z_FAC000, Z_FAC001, Z_FAC010, Z_FAC011, Z_FAC100, Z_FAC101,&
+ & Z_FAC110, Z_FAC111, Z_FS, Z_SPECCOMB, Z_SPECMULT, Z_SPECPARM  
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!  Input
+!#include "yoeratm.h"
+
+!      REAL TAUAER(JPLAY)
+!      EQUIVALENCE (TAUAERL(1,16),TAUAER)
+
+!     Compute the optical depth by interpolating in ln(pressure), 
+!     temperature, and appropriate species.  Below LAYTROP, the water
+!     vapor self-continuum is interpolated (in temperature) separately. 
+ 
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL16',0,ZHOOK_HANDLE)
+DO I_LAY = 1, K_LAYTROP
+  Z_SPECCOMB = P_COLH2O(I_LAY) + STRRAT*P_COLCH4(I_LAY)
+  Z_SPECPARM = P_COLH2O(I_LAY)/Z_SPECCOMB
+  Z_SPECPARM = MIN(Z_SPECPARM,P_ONEMINUS)
+  Z_SPECMULT = 8._JPRB*(Z_SPECPARM)
+  JS = 1 + INT(Z_SPECMULT)
+  Z_FS = MOD(Z_SPECMULT,1.0_JPRB)
+!----jjm         
+  Z_FAC000 = (1.0_JPRB - Z_FS) * P_FAC00(I_LAY)
+  Z_FAC010 = (1.0_JPRB - Z_FS) * P_FAC10(I_LAY)
+  Z_FAC100 = Z_FS * P_FAC00(I_LAY)
+  Z_FAC110 = Z_FS * P_FAC10(I_LAY)
+  Z_FAC001 = (1.0_JPRB - Z_FS) * P_FAC01(I_LAY)
+  Z_FAC011 = (1.0_JPRB - Z_FS) * P_FAC11(I_LAY)
+  Z_FAC101 = Z_FS * P_FAC01(I_LAY)
+  Z_FAC111 = Z_FS * P_FAC11(I_LAY)
+!-----         
+  IND0 = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(16) + JS
+  IND1 = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(16) + JS
+  INDS = K_INDSELF(I_LAY)
+!         DO IG = 1, NG16
+!-- DS_990714
+  IG=1
+  P_TAU (NGS15+IG,I_LAY) = Z_SPECCOMB *&
+   !     &((1. - Z_FS)*(P_FAC00(I_LAY) * ABSA(IND0   ,IG) +
+   !     &            P_FAC10(I_LAY) * ABSA(IND0+ 9,IG) +
+   !     &            P_FAC01(I_LAY) * ABSA(IND1   ,IG) + 
+   !     &            P_FAC11(I_LAY) * ABSA(IND1+ 9,IG))+
+   !     &    Z_FS * (  P_FAC01(I_LAY) * ABSA(IND1+ 1,IG) +
+   !     &            P_FAC10(I_LAY) * ABSA(IND0+10,IG) +
+   !     &            P_FAC00(I_LAY) * ABSA(IND0+ 1,IG) +
+   !     &            P_FAC11(I_LAY) * ABSA(IND1+10,IG))) +
+   & (Z_FAC000 * ABSA(IND0   ,IG) +&
+   & Z_FAC100 * ABSA(IND0+ 1,IG) +&
+   & Z_FAC010 * ABSA(IND0+ 9,IG) +&
+   & Z_FAC110 * ABSA(IND0+10,IG) +&
+   & Z_FAC001 * ABSA(IND1   ,IG) +&
+   & Z_FAC101 * ABSA(IND1+ 1,IG) +&
+   & Z_FAC011 * ABSA(IND1+ 9,IG) +&
+   & Z_FAC111 * ABSA(IND1+10,IG))+&
+   & P_COLH2O(I_LAY) * &
+   & P_SELFFAC(I_LAY) * (SELFREF(INDS,IG) + &
+   & P_SELFFRAC(I_LAY) *&
+   & (SELFREF(INDS+1,IG) - SELFREF(INDS,IG)))&
+   & + P_TAUAERL(I_LAY,16)  
+  PFRAC(NGS15+IG,I_LAY) = FRACREFA(IG,JS) + Z_FS *&
+   & (FRACREFA(IG,JS+1) - FRACREFA(IG,JS))  
+  IG=2
+  P_TAU (NGS15+IG,I_LAY) = Z_SPECCOMB *&
+   !     &((1. - Z_FS)*(P_FAC00(I_LAY) * ABSA(IND0   ,IG) +
+   !     &            P_FAC10(I_LAY) * ABSA(IND0+ 9,IG) +
+   !     &            P_FAC01(I_LAY) * ABSA(IND1   ,IG) +
+   !     &            P_FAC11(I_LAY) * ABSA(IND1+ 9,IG))+
+   !     &    Z_FS * (  P_FAC01(I_LAY) * ABSA(IND1+ 1,IG) +
+   !     &            P_FAC10(I_LAY) * ABSA(IND0+10,IG) +
+   !     &            P_FAC00(I_LAY) * ABSA(IND0+ 1,IG) +
+   !     &            P_FAC11(I_LAY) * ABSA(IND1+10,IG))) +
+   & (Z_FAC000 * ABSA(IND0   ,IG) +&
+   & Z_FAC100 * ABSA(IND0+ 1,IG) +&
+   & Z_FAC010 * ABSA(IND0+ 9,IG) +&
+   & Z_FAC110 * ABSA(IND0+10,IG) +&
+   & Z_FAC001 * ABSA(IND1   ,IG) +&
+   & Z_FAC101 * ABSA(IND1+ 1,IG) +&
+   & Z_FAC011 * ABSA(IND1+ 9,IG) +&
+   & Z_FAC111 * ABSA(IND1+10,IG))+&
+   & P_COLH2O(I_LAY) *&
+   & P_SELFFAC(I_LAY) * (SELFREF(INDS,IG) +&
+   & P_SELFFRAC(I_LAY) *&
+   & (SELFREF(INDS+1,IG) - SELFREF(INDS,IG)))&
+   & + P_TAUAERL(I_LAY,16)  
+  PFRAC(NGS15+IG,I_LAY) = FRACREFA(IG,JS) + Z_FS *&
+   & (FRACREFA(IG,JS+1) - FRACREFA(IG,JS))  
+
+!         END DO
+!-- DS_990714
+ENDDO
+
+DO I_LAY = K_LAYTROP+1, KLEV
+!         DO IG = 1, NG16
+!-- DS_990714
+  IG=1
+  P_TAU (NGS15+IG,I_LAY) = P_TAUAERL(I_LAY,16)
+  PFRAC(NGS15+IG,I_LAY) = 0.0_JPRB
+  IG=2
+  P_TAU (NGS15+IG,I_LAY) = P_TAUAERL(I_LAY,16)
+  PFRAC(NGS15+IG,I_LAY) = 0.0_JPRB
+!-- DS_990714
+!         END DO
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL16',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_TAUMOL16
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol16.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol16.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol16.intfb.h	(revision 1989)
@@ -0,0 +1,26 @@
+INTERFACE
+SUBROUTINE RRTM_TAUMOL16 (KLEV,P_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLCH4,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARRRTM , ONLY : JPLAY ,JPBAND ,JPGPT ,NGS15
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAU(JPGPT,JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_TAUAERL(JPLAY,JPBAND)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_ONEMINUS
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLH2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLCH4(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDSELF(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFRAC(JPGPT,JPLAY)
+END SUBROUTINE RRTM_TAUMOL16
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol2.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol2.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol2.F90	(revision 1989)
@@ -0,0 +1,174 @@
+!----------------------------------------------------------------------------
+SUBROUTINE RRTM_TAUMOL2 (KLEV,P_TAU,P_COLDRY,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,P_FORFAC,K_JP,K_JT,K_JT1,&
+ & P_COLH2O,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+
+!     BAND 2:  250-500 cm-1 (low - H2O; high - H2O)
+
+! Modifications
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     D Salmond   2000-05-15 speed-up
+!     JJMorcrette 2000-05-17 speed-up
+!     JJMorcrette 2000-07-14 bugfix
+!     Y. Seity    2006-09-26 Nec optimisation
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,NG2   ,NGS1
+USE YOERRTWN , ONLY :      NSPA   ,NSPB
+USE YOERRTA2 , ONLY : ABSA   ,ABSB   ,FRACREFA, FRACREFB,&
+ & FORREF   ,SELFREF , REFPARAM  
+USE YOERRTBG2, ONLY : CORR1  ,CORR2
+
+!  Input
+!#include "yoeratm.h"
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAU(JPGPT,JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLDRY(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_TAUAERL(JPLAY,JPBAND) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FORFAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLH2O(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDSELF(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFRAC(JPGPT,JPLAY) 
+!  Output
+!- from AER
+!- from INTFAC      
+!- from INTIND
+!- from PROFDATA             
+!- from SELF             
+!- from SP             
+REAL(KIND=JPRB) :: Z_FC00(JPLAY),Z_FC01(JPLAY),Z_FC10(JPLAY),Z_FC11(JPLAY)
+!      REAL TAUAER(JPLAY)
+REAL(KIND=JPRB) :: Z_FRACINT(JPLAY)
+INTEGER(KIND=JPIM) :: IND0(JPLAY),IND1(JPLAY),INDS(JPLAY), INDEX(JPLAY)
+
+INTEGER(KIND=JPIM) :: IFP, IFRAC, IG, JFRAC, I_LAY
+
+REAL(KIND=JPRB) :: Z_FP, Z_H2OPARAM, Z_WATER
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!      EQUIVALENCE (TAUAERL(1,2),TAUAER)
+
+!     Compute the optical depth by interpolating in ln(pressure) and 
+!     temperature.  Below LAYTROP, the water vapor self-continuum is 
+!     interpolated (in temperature) separately.
+
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL2',0,ZHOOK_HANDLE)
+DO I_LAY = 1, K_LAYTROP
+  Z_WATER = 1.E20_JPRB * P_COLH2O(I_LAY) / P_COLDRY(I_LAY)
+  Z_H2OPARAM = Z_WATER/(Z_WATER +.002_JPRB)
+  
+!  DO IFRAC = 2, 12
+!    IF (H2OPARAM  >=  REFPARAM(IFRAC)) GO TO 1900
+!  ENDDO
+!  1900 CONTINUE
+!  FRACINT(LAY) = (H2OPARAM-REFPARAM(IFRAC))/&
+!   &(REFPARAM(IFRAC-1)-REFPARAM(IFRAC))
+  IFRAC=INDEX(I_LAY)
+  IF (Z_H2OPARAM >= REFPARAM(2)) THEN
+          IFRAC=2
+  ELSE
+!cdir unroll=11
+    DO JFRAC = 2, 12
+      IF (Z_H2OPARAM < REFPARAM(JFRAC)) THEN
+         IFRAC=JFRAC+1
+      ENDIF  
+    ENDDO
+  ENDIF  
+  
+!---- JJM_000714
+! set above IFRAC instead of INDEX(I_LAY), store now - NEC jh
+! IFRAC=INDEX(I_LAY)
+  INDEX(I_LAY)=IFRAC
+
+  Z_FRACINT(I_LAY) = (Z_H2OPARAM-REFPARAM(IFRAC))/&
+   & (REFPARAM(IFRAC-1)-REFPARAM(IFRAC))  
+ENDDO
+
+DO I_LAY = 1, K_LAYTROP
+
+  Z_FP = P_FAC11(I_LAY) + P_FAC01(I_LAY)
+  IFP = 2.E2_JPRB*Z_FP+0.5_JPRB
+
+!---MI 981104        
+!       IF (IFP.LE.0) IFP=0
+
+  IFP=MAX(0,IFP)
+
+  Z_FC00(I_LAY) = P_FAC00(I_LAY) * CORR2(IFP)
+  Z_FC10(I_LAY) = P_FAC10(I_LAY) * CORR2(IFP)
+  Z_FC01(I_LAY) = P_FAC01(I_LAY) * CORR1(IFP)
+  Z_FC11(I_LAY) = P_FAC11(I_LAY) * CORR1(IFP)
+  IND0(I_LAY) = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(2) + 1
+  IND1(I_LAY) = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(2) + 1
+  INDS(I_LAY) = K_INDSELF(I_LAY)
+ENDDO
+
+!-- DS_000515  
+DO IG = 1, NG2
+  DO I_LAY = 1, K_LAYTROP
+!-- JJM_000714
+    IFRAC=INDEX(I_LAY)  
+!-- DS_000515  
+    P_TAU (NGS1+IG,I_LAY) = P_COLH2O(I_LAY) *&
+     & (Z_FC00(I_LAY) * ABSA(IND0(I_LAY)  ,IG) +&
+     & Z_FC10(I_LAY) * ABSA(IND0(I_LAY)+1,IG) +&
+     & Z_FC01(I_LAY) * ABSA(IND1(I_LAY)  ,IG) +&
+     & Z_FC11(I_LAY) * ABSA(IND1(I_LAY)+1,IG) +&
+     & P_SELFFAC(I_LAY) * (SELFREF(INDS(I_LAY),IG) + &
+     & P_SELFFRAC(I_LAY) *&
+     & (SELFREF(INDS(I_LAY)+1,IG) - SELFREF(INDS(I_LAY),IG)))&
+     & + P_FORFAC(I_LAY) * FORREF(IG) ) &
+     & + P_TAUAERL(I_LAY,2)  
+    PFRAC(NGS1+IG,I_LAY) = FRACREFA(IG,IFRAC) + Z_FRACINT(I_LAY) *&
+     & (FRACREFA(IG,IFRAC-1)-FRACREFA(IG,IFRAC))  
+  ENDDO
+ENDDO
+
+DO I_LAY = K_LAYTROP+1, KLEV
+  Z_FP = P_FAC11(I_LAY) + P_FAC01(I_LAY)
+  IFP = 2.E2_JPRB*Z_FP+0.5_JPRB
+
+!---MI 981104        
+  IF (IFP <= 0) IFP=0
+
+  Z_FC00(I_LAY) = P_FAC00(I_LAY) * CORR2(IFP)
+  Z_FC10(I_LAY) = P_FAC10(I_LAY) * CORR2(IFP)
+  Z_FC01(I_LAY) = P_FAC01(I_LAY) * CORR1(IFP)
+  Z_FC11(I_LAY) = P_FAC11(I_LAY) * CORR1(IFP)
+  IND0(I_LAY) = ((K_JP(I_LAY)-13)*5+(K_JT(I_LAY)-1))*NSPB(2) + 1
+  IND1(I_LAY) = ((K_JP(I_LAY)-12)*5+(K_JT1(I_LAY)-1))*NSPB(2) + 1
+ENDDO
+
+!-- JJM_000517
+DO IG = 1, NG2
+  DO I_LAY = K_LAYTROP+1, KLEV
+!-- JJM_000517
+    P_TAU (NGS1+IG,I_LAY) = P_COLH2O(I_LAY) *&
+     & (Z_FC00(I_LAY) * ABSB(IND0(I_LAY)  ,IG) +&
+     & Z_FC10(I_LAY) * ABSB(IND0(I_LAY)+1,IG) +&
+     & Z_FC01(I_LAY) * ABSB(IND1(I_LAY)  ,IG) +&
+     & Z_FC11(I_LAY) * ABSB(IND1(I_LAY)+1,IG)&
+     & + P_FORFAC(I_LAY) * FORREF(IG) ) &
+     & + P_TAUAERL(I_LAY,2)  
+    PFRAC(NGS1+IG,I_LAY) = FRACREFB(IG)
+  ENDDO
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL2',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_TAUMOL2
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol2.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol2.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol2.intfb.h	(revision 1989)
@@ -0,0 +1,26 @@
+INTERFACE
+SUBROUTINE RRTM_TAUMOL2 (KLEV,P_TAU,P_COLDRY,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,P_FORFAC,K_JP,K_JT,K_JT1,&
+ & P_COLH2O,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARRRTM , ONLY : JPLAY ,JPBAND ,JPGPT ,NG2 ,NGS1
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAU(JPGPT,JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLDRY(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_TAUAERL(JPLAY,JPBAND)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FORFAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLH2O(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDSELF(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFRAC(JPGPT,JPLAY)
+END SUBROUTINE RRTM_TAUMOL2
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol3.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol3.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol3.F90	(revision 1989)
@@ -0,0 +1,240 @@
+!----------------------------------------------------------------------------
+SUBROUTINE RRTM_TAUMOL3 (KLEV,P_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,P_FORFAC,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLCO2,P_COLN2O,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+
+!     BAND 3:  500-630 cm-1 (low - H2O,CO2; high - H2O,CO2)
+
+! Modifications
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     D Salmond 2000-05-15 speed-up
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,NG3   ,NGS2
+USE YOERRTWN , ONLY :      NSPA   ,NSPB
+USE YOERRTA3 , ONLY : ABSA   ,ABSB   ,FRACREFA, FRACREFB,&
+ & FORREF   ,SELFREF , ABSN2OA ,&
+ & ABSN2OB  ,ETAREF ,H2OREF ,N2OREF  , CO2REF  ,&
+ & STRRAT  
+
+!  Input
+!#include "yoeratm.h"
+
+!      REAL TAUAER(JPLAY)
+
+IMPLICIT NONE
+
+!  Output
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAU(JPGPT,JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_TAUAERL(JPLAY,JPBAND) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FORFAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_ONEMINUS 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLH2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLCO2(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLN2O(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDSELF(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFRAC(JPGPT,JPLAY) 
+!- from AER
+!- from INTFAC      
+!- from INTIND
+!- from PRECISE             
+!- from PROFDATA             
+!- from SELF             
+!- from SP             
+INTEGER(KIND=JPIM) :: IJS(JPLAY)
+REAL(KIND=JPRB) :: ZFS(JPLAY),Z_SPECCOMB(JPLAY)
+INTEGER(KIND=JPIM) :: IND0(JPLAY),IND1(JPLAY),INDS(JPLAY)
+REAL(KIND=JPRB) :: Z_N2OMULT(JPLAY)
+
+INTEGER(KIND=JPIM) :: IG, JS, I_LAY, I_NS
+
+REAL(KIND=JPRB) :: Z_COLREF1, Z_COLREF2, Z_CURRN2O, Z_FAC000, Z_FAC001,&
+ & Z_FAC010, Z_FAC011, Z_FAC100, Z_FAC101, Z_FAC110, Z_FAC111, &
+ & Z_FP, Z_FS, Z_RATIO, Z_SPECMULT, Z_SPECPARM, Z_WCOMB1, &
+ & Z_WCOMB2  
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!      EQUIVALENCE (TAUAERL(1,3),TAUAER)
+
+!     Compute the optical depth by interpolating in ln(pressure), 
+!     temperature, and appropriate species.  Below LAYTROP, the water
+!     vapor self-continuum is interpolated (in temperature) separately.  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL3',0,ZHOOK_HANDLE)
+DO I_LAY = 1, K_LAYTROP
+  Z_SPECCOMB(I_LAY) = P_COLH2O(I_LAY) + STRRAT*P_COLCO2(I_LAY)
+  Z_SPECPARM = P_COLH2O(I_LAY)/Z_SPECCOMB(I_LAY)
+  Z_SPECPARM=MIN(P_ONEMINUS,Z_SPECPARM)
+  Z_SPECMULT = 8._JPRB*(Z_SPECPARM)
+  JS = 1 + INT(Z_SPECMULT)
+  Z_FS = MOD(Z_SPECMULT,1.0_JPRB)
+  IF (JS  ==  8) THEN
+    IF (Z_FS  >=  0.9_JPRB) THEN
+      JS = 9
+      Z_FS = 10._JPRB * (Z_FS - 0.9_JPRB)
+    ELSE
+      Z_FS = Z_FS/0.9_JPRB
+    ENDIF
+  ENDIF
+
+  I_NS = JS + INT(Z_FS + 0.5_JPRB)
+  Z_FP = P_FAC01(I_LAY) + P_FAC11(I_LAY)
+  IND0(I_LAY) = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(3) + JS
+  IND1(I_LAY) = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(3) + JS
+  INDS(I_LAY) = K_INDSELF(I_LAY)
+  Z_COLREF1 = N2OREF(K_JP(I_LAY))
+  Z_COLREF2 = N2OREF(K_JP(I_LAY)+1)
+  IF (I_NS  ==  10) THEN
+    Z_WCOMB1 = 1.0_JPRB/H2OREF(K_JP(I_LAY))
+    Z_WCOMB2 = 1.0_JPRB/H2OREF(K_JP(I_LAY)+1)
+  ELSE
+    Z_WCOMB1 = (1.0_JPRB-ETAREF(I_NS))/(STRRAT * CO2REF(K_JP(I_LAY)))
+    Z_WCOMB2 = (1.0_JPRB-ETAREF(I_NS))/(STRRAT * CO2REF(K_JP(I_LAY)+1))
+  ENDIF
+  Z_RATIO = (Z_COLREF1*Z_WCOMB1)+Z_FP*((Z_COLREF2*Z_WCOMB2)-(Z_COLREF1*Z_WCOMB1))
+  Z_CURRN2O = Z_SPECCOMB(I_LAY) * Z_RATIO
+  Z_N2OMULT(I_LAY) = P_COLN2O(I_LAY) - Z_CURRN2O
+
+  ZFS(I_LAY)=Z_FS
+  IJS(I_LAY)=JS
+
+ENDDO
+
+!-- DS_000515
+DO IG = 1, NG3
+  DO I_LAY = 1, K_LAYTROP
+!-- DS_000515
+
+    Z_FS=ZFS(I_LAY)
+    JS=IJS(I_LAY)
+
+!---jjm
+!    FAC000 = (_ONE_ - FS) * FAC00(LAY)
+!    FAC010 = (_ONE_ - FS) * FAC10(LAY)
+!    FAC100 = FS * FAC00(LAY)
+!    FAC110 = FS * FAC10(LAY)
+!    FAC001 = (_ONE_ - FS) * FAC01(LAY)
+!    FAC011 = (_ONE_ - FS) * FAC11(LAY)
+!    FAC101 = FS * FAC01(LAY)
+!    FAC111 = FS * FAC11(LAY)
+!------        
+
+    P_TAU (NGS2+IG,I_LAY) = Z_SPECCOMB(I_LAY) *   &
+     !-- DS_000515
+     & ( (1. - Z_FS) *(P_FAC00(I_LAY) * ABSA(IND0(I_LAY)   ,IG) +   &
+     & P_FAC10(I_LAY) * ABSA(IND0(I_LAY)+10,IG) +   &
+     & P_FAC01(I_LAY) * ABSA(IND1(I_LAY)   ,IG) +   &
+     & P_FAC11(I_LAY) * ABSA(IND1(I_LAY)+10,IG))+   &
+     & Z_FS     *(P_FAC00(I_LAY) * ABSA(IND0(I_LAY)+ 1,IG) +   &
+     & P_FAC10(I_LAY) * ABSA(IND0(I_LAY)+11,IG) +   &
+     & P_FAC01(I_LAY) * ABSA(IND1(I_LAY)+ 1,IG) +   &
+     & P_FAC11(I_LAY) * ABSA(IND1(I_LAY)+11,IG))) + &
+     !     &(Z_FAC000 * ABSA(IND0(I_LAY)   ,IG) +&
+     !     & Z_FAC100 * ABSA(IND0(I_LAY)+ 1,IG) +&
+     !     & Z_FAC010 * ABSA(IND0(I_LAY)+10,IG) +&
+     !     & Z_FAC110 * ABSA(IND0(I_LAY)+11,IG) +&
+     !     & Z_FAC001 * ABSA(IND1(I_LAY),   IG) +&
+     !     & Z_FAC101 * ABSA(IND1(I_LAY)+ 1,IG) +&
+     !     & Z_FAC011 * ABSA(IND1(I_LAY)+10,IG) +&
+     !     & Z_FAC111 * ABSA(IND1(I_LAY)+11,IG))+&
+     !-- DS_000515
+     & P_COLH2O(I_LAY) * &
+     & P_SELFFAC(I_LAY) * (SELFREF(INDS(I_LAY),IG) + &
+     & P_SELFFRAC(I_LAY) *&
+     & (SELFREF(INDS(I_LAY)+1,IG) - SELFREF(INDS(I_LAY),IG))&
+     & + P_FORFAC(I_LAY) * FORREF(IG) ) &
+     & + Z_N2OMULT(I_LAY) * ABSN2OA(IG) &
+     & + P_TAUAERL(I_LAY,3)  
+    PFRAC(NGS2+IG,I_LAY) = FRACREFA(IG,JS) + Z_FS *&
+     & (FRACREFA(IG,JS+1) - FRACREFA(IG,JS))  
+  ENDDO
+ENDDO
+
+DO I_LAY = K_LAYTROP+1, KLEV
+  Z_SPECCOMB(I_LAY) = P_COLH2O(I_LAY) + STRRAT*P_COLCO2(I_LAY)
+  Z_SPECPARM = P_COLH2O(I_LAY)/Z_SPECCOMB(I_LAY)
+  Z_SPECPARM=MIN(P_ONEMINUS,Z_SPECPARM)
+  Z_SPECMULT = 4._JPRB*(Z_SPECPARM)
+  JS = 1 + INT(Z_SPECMULT)
+  Z_FS = MOD(Z_SPECMULT,1.0_JPRB)
+  I_NS = JS + INT(Z_FS + 0.5_JPRB)
+  Z_FP = P_FAC01(I_LAY) + P_FAC11(I_LAY)
+  IND0(I_LAY) = ((K_JP(I_LAY)-13)*5+(K_JT(I_LAY)-1))*NSPB(3) + JS
+  IND1(I_LAY) = ((K_JP(I_LAY)-12)*5+(K_JT1(I_LAY)-1))*NSPB(3) + JS
+  Z_COLREF1 = N2OREF(K_JP(I_LAY))
+  Z_COLREF2 = N2OREF(K_JP(I_LAY)+1)
+  IF (I_NS  ==  5) THEN
+    Z_WCOMB1 = 1.0_JPRB/H2OREF(K_JP(I_LAY))
+    Z_WCOMB2 = 1.0_JPRB/H2OREF(K_JP(I_LAY)+1)
+  ELSE
+    Z_WCOMB1 = (1.0_JPRB-ETAREF(I_NS))/(STRRAT * CO2REF(K_JP(I_LAY)))
+    Z_WCOMB2 = (1.0_JPRB-ETAREF(I_NS))/(STRRAT * CO2REF(K_JP(I_LAY)+1))
+  ENDIF
+  Z_RATIO = (Z_COLREF1*Z_WCOMB1)+Z_FP*((Z_COLREF2*Z_WCOMB2)-(Z_COLREF1*Z_WCOMB1))
+  Z_CURRN2O = Z_SPECCOMB(I_LAY) * Z_RATIO
+  Z_N2OMULT(I_LAY) = P_COLN2O(I_LAY) - Z_CURRN2O
+
+  ZFS(I_LAY)=Z_FS
+  IJS(I_LAY)=JS
+
+ENDDO
+
+DO I_LAY = K_LAYTROP+1, KLEV
+
+  Z_FS=ZFS(I_LAY)
+  JS=IJS(I_LAY)
+!---jjm
+!  FAC000 = (_ONE_ - FS) * FAC00(LAY)
+!  FAC010 = (_ONE_ - FS) * FAC10(LAY)
+!  FAC100 = FS * FAC00(LAY)
+!  FAC110 = FS * FAC10(LAY)
+!  FAC001 = (_ONE_ - FS) * FAC01(LAY)
+!  FAC011 = (_ONE_ - FS) * FAC11(LAY)
+!  FAC101 = FS * FAC01(LAY)
+!  FAC111 = FS * FAC11(LAY)
+!---        
+
+  DO IG = 1, NG3
+    P_TAU (NGS2+IG,I_LAY) = Z_SPECCOMB(I_LAY) *   &
+     !-- DS_000515
+     & ( (1. - Z_FS) *(P_FAC00(I_LAY) * ABSB(IND0(I_LAY)  ,IG) +   &
+     & P_FAC10(I_LAY) * ABSB(IND0(I_LAY)+5,IG) +   &
+     & P_FAC01(I_LAY) * ABSB(IND1(I_LAY)  ,IG) +    &
+     & P_FAC11(I_LAY) * ABSB(IND1(I_LAY)+5,IG))+   &
+     & Z_FS     *(P_FAC00(I_LAY) * ABSB(IND0(I_LAY)+1,IG) +   &
+     & P_FAC10(I_LAY) * ABSB(IND0(I_LAY)+6,IG) +   &
+     & P_FAC01(I_LAY) * ABSB(IND1(I_LAY)+1,IG) +   &
+     & P_FAC11(I_LAY) * ABSB(IND1(I_LAY)+6,IG)))   &
+     !     &(Z_FAC000 * ABSB(IND0(I_LAY)  ,IG) +&
+     !     & Z_FAC100 * ABSB(IND0(I_LAY)+1,IG) +&
+     !     & Z_FAC010 * ABSB(IND0(I_LAY)+5,IG) +&
+     !     & Z_FAC110 * ABSB(IND0(I_LAY)+6,IG) +&
+     !     & Z_FAC001 * ABSB(IND1(I_LAY)  ,IG) +&
+     !     & Z_FAC101 * ABSB(IND1(I_LAY)+1,IG) +&
+     !     & Z_FAC011 * ABSB(IND1(I_LAY)+5,IG) +&
+     !     & Z_FAC111 * ABSB(IND1(I_LAY)+6,IG))&
+     !-- DS_000515
+     & + P_COLH2O(I_LAY)*P_FORFAC(I_LAY)*FORREF(IG) &
+     & + Z_N2OMULT(I_LAY) * ABSN2OB(IG)&
+     & + P_TAUAERL(I_LAY,3)  
+    PFRAC(NGS2+IG,I_LAY) = FRACREFB(IG,JS) + Z_FS *&
+     & (FRACREFB(IG,JS+1) - FRACREFB(IG,JS))  
+  ENDDO
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL3',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_TAUMOL3
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol3.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol3.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol3.intfb.h	(revision 1989)
@@ -0,0 +1,28 @@
+INTERFACE
+SUBROUTINE RRTM_TAUMOL3 (KLEV,P_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,P_FORFAC,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLCO2,P_COLN2O,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARRRTM , ONLY : JPLAY ,JPBAND ,JPGPT ,NG3 ,NGS2
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAU(JPGPT,JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_TAUAERL(JPLAY,JPBAND)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FORFAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_ONEMINUS
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLH2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLCO2(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLN2O(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDSELF(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFRAC(JPGPT,JPLAY)
+END SUBROUTINE RRTM_TAUMOL3
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol4.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol4.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol4.F90	(revision 1989)
@@ -0,0 +1,197 @@
+!----------------------------------------------------------------------------
+SUBROUTINE RRTM_TAUMOL4 (KLEV,P_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,P_FORFAC,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLCO2,P_COLO3,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+
+!     BAND 4:  630-700 cm-1 (low - H2O,CO2; high - O3,CO2)
+
+! Modifications
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     D Salmond 2000-05-15 speed-up
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,NG4   ,NGS3
+USE YOERRTWN , ONLY :      NSPA   ,NSPB
+USE YOERRTA4 , ONLY : ABSA   ,ABSB   ,FRACREFA, FRACREFB,SELFREF,STRRAT1 , STRRAT2
+
+!  Input
+!#include "yoeratm.h"
+
+!      REAL TAUAER(JPLAY)
+
+IMPLICIT NONE
+
+!  Output
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAU(JPGPT,JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_TAUAERL(JPLAY,JPBAND) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+REAL(KIND=JPRB)                  :: P_FORFAC(JPLAY) ! Argument NOT used
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_ONEMINUS 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLH2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLCO2(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLO3(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDSELF(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFRAC(JPGPT,JPLAY) 
+!- from AER
+!- from INTFAC      
+!- from INTIND
+!- from PRECISE             
+!- from PROFDATA             
+!- from SELF             
+!- from SP             
+INTEGER(KIND=JPIM) :: IJS(JPLAY)
+REAL(KIND=JPRB) :: ZFS(JPLAY),Z_SPECCOMB(JPLAY)
+INTEGER(KIND=JPIM) :: IND0(JPLAY),IND1(JPLAY),INDS(JPLAY)
+
+INTEGER(KIND=JPIM) :: IG, JS, I_LAY
+
+REAL(KIND=JPRB) :: Z_FAC000, Z_FAC001, Z_FAC010, Z_FAC011, Z_FAC100, Z_FAC101,&
+ & Z_FAC110, Z_FAC111, Z_FS, Z_SPECMULT, Z_SPECPARM  
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!      EQUIVALENCE (TAUAERL(1,4),TAUAER)
+
+!     Compute the optical depth by interpolating in ln(pressure), 
+!     temperature, and appropriate species.  Below LAYTROP, the water
+!     vapor self-continuum is interpolated (in temperature) separately. 
+ 
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL4',0,ZHOOK_HANDLE)
+DO I_LAY = 1, K_LAYTROP
+  Z_SPECCOMB(I_LAY) = P_COLH2O(I_LAY) + STRRAT1*P_COLCO2(I_LAY)
+  Z_SPECPARM = P_COLH2O(I_LAY)/Z_SPECCOMB(I_LAY)
+  Z_SPECPARM=MIN(P_ONEMINUS,Z_SPECPARM)
+  Z_SPECMULT = 8._JPRB*(Z_SPECPARM)
+  JS = 1 + INT(Z_SPECMULT)
+  Z_FS = MOD(Z_SPECMULT,1.0_JPRB)
+  IND0(I_LAY) = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(4) + JS
+  IND1(I_LAY) = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(4) + JS
+  INDS(I_LAY) = K_INDSELF(I_LAY)
+
+  ZFS(I_LAY)=Z_FS
+  IJS(I_LAY)=JS
+
+ENDDO
+
+!-- DS_000515
+DO IG = 1, NG4
+  DO I_LAY = 1, K_LAYTROP
+!-- DS_000515
+
+    Z_FS=ZFS(I_LAY)
+    JS=IJS(I_LAY)
+!--jjm         
+!    FAC000 = (_ONE_ - FS) * FAC00(LAY)
+!    FAC010 = (_ONE_ - FS) * FAC10(LAY)
+!    FAC100 = FS * FAC00(LAY)
+!    FAC110 = FS * FAC10(LAY)
+!    FAC001 = (_ONE_ - FS) * FAC01(LAY)
+!    FAC011 = (_ONE_ - FS) * FAC11(LAY)
+!    FAC101 = FS * FAC01(LAY)
+!    FAC111 = FS * FAC11(LAY)
+!---
+
+    P_TAU (NGS3+IG,I_LAY) = Z_SPECCOMB(I_LAY) *    &
+     !-- DS_000515
+     & ((1. - Z_FS) *(P_FAC00(I_LAY) * ABSA(IND0(I_LAY)   ,IG) +   &
+     & P_FAC10(I_LAY) * ABSA(IND0(I_LAY)+ 9,IG) +   &
+     & P_FAC01(I_LAY) * ABSA(IND1(I_LAY)   ,IG) +    &
+     & P_FAC11(I_LAY) * ABSA(IND1(I_LAY)+ 9,IG))+   &
+     & Z_FS     *(P_FAC00(I_LAY) * ABSA(IND0(I_LAY)+ 1,IG) +   &
+     & P_FAC10(I_LAY) * ABSA(IND0(I_LAY)+10,IG) +   &
+     & P_FAC01(I_LAY) * ABSA(IND1(I_LAY)+ 1,IG) +   &
+     & P_FAC11(I_LAY) * ABSA(IND1(I_LAY)+10,IG))) + &
+     !     &(Z_FAC000 * ABSA(IND0(I_LAY)   ,IG) +&
+     !     & Z_FAC100 * ABSA(IND0(I_LAY)+ 1,IG) +&
+     !     & Z_FAC010 * ABSA(IND0(I_LAY)+ 9,IG) +&
+     !     & Z_FAC110 * ABSA(IND0(I_LAY)+10,IG) +&
+     !     & Z_FAC001 * ABSA(IND1(I_LAY)   ,IG) +&
+     !     & Z_FAC101 * ABSA(IND1(I_LAY)+ 1,IG) +&
+     !     & Z_FAC011 * ABSA(IND1(I_LAY)+ 9,IG) +&
+     !     & Z_FAC111 * ABSA(IND1(I_LAY)+10,IG))+&
+     !-- DS_000515
+     & P_COLH2O(I_LAY) * &
+     & P_SELFFAC(I_LAY) * (SELFREF(INDS(I_LAY),IG) + &
+     & P_SELFFRAC(I_LAY) *&
+     & (SELFREF(INDS(I_LAY)+1,IG) - SELFREF(INDS(I_LAY),IG)))&
+     & + P_TAUAERL(I_LAY,4)  
+    PFRAC(NGS3+IG,I_LAY) = FRACREFA(IG,JS) + Z_FS *&
+     & (FRACREFA(IG,JS+1) - FRACREFA(IG,JS))  
+  ENDDO
+ENDDO
+
+DO I_LAY = K_LAYTROP+1, KLEV
+  Z_SPECCOMB(I_LAY) = P_COLO3(I_LAY) + STRRAT2*P_COLCO2(I_LAY)
+  Z_SPECPARM = P_COLO3(I_LAY)/Z_SPECCOMB(I_LAY)
+  Z_SPECPARM=MIN(P_ONEMINUS,Z_SPECPARM)
+  Z_SPECMULT = 4._JPRB*(Z_SPECPARM)
+  JS = 1 + INT(Z_SPECMULT)
+  Z_FS = MOD(Z_SPECMULT,1.0_JPRB)
+  IF (JS  >  1) THEN
+    JS = JS + 1
+  ELSEIF (Z_FS  >=  0.0024_JPRB) THEN
+    JS = 2
+    Z_FS = (Z_FS - 0.0024_JPRB)/0.9976_JPRB
+  ELSE
+    JS = 1
+    Z_FS = Z_FS/0.0024_JPRB
+  ENDIF
+  IND0(I_LAY) = ((K_JP(I_LAY)-13)*5+(K_JT(I_LAY)-1))*NSPB(4) + JS
+  IND1(I_LAY) = ((K_JP(I_LAY)-12)*5+(K_JT1(I_LAY)-1))*NSPB(4) + JS
+  ZFS(I_LAY)=Z_FS
+  IJS(I_LAY)=JS
+ENDDO
+
+DO I_LAY = K_LAYTROP+1, KLEV
+  Z_FS=ZFS(I_LAY)
+  JS=IJS(I_LAY)
+!--- jjm
+!  FAC000 = (_ONE_ - FS) * FAC00(LAY)
+!  FAC010 = (_ONE_ - FS) * FAC10(LAY)
+!  FAC100 = FS * FAC00(LAY)
+!  FAC110 = FS * FAC10(LAY)
+!  FAC001 = (_ONE_ - FS) * FAC01(LAY)
+!  FAC011 = (_ONE_ - FS) * FAC11(LAY)
+!  FAC101 = FS * FAC01(LAY)
+!  FAC111 = FS * FAC11(LAY)
+!------                   
+  DO IG = 1, NG4
+    P_TAU (NGS3+IG,I_LAY) = Z_SPECCOMB(I_LAY) *   &
+     !-- DS_000515
+     & ( (1. - Z_FS) *(P_FAC00(I_LAY) * ABSB(IND0(I_LAY)  ,IG) +   &
+     & P_FAC10(I_LAY) * ABSB(IND0(I_LAY)+6,IG) +   &
+     & P_FAC01(I_LAY) * ABSB(IND1(I_LAY)  ,IG) +    &
+     & P_FAC11(I_LAY) * ABSB(IND1(I_LAY)+6,IG))+   &
+     & Z_FS     *(P_FAC00(I_LAY) * ABSB(IND0(I_LAY)+1,IG) +   &
+     & P_FAC10(I_LAY) * ABSB(IND0(I_LAY)+7,IG) +   &
+     & P_FAC01(I_LAY) * ABSB(IND1(I_LAY)+1,IG) +   &
+     & P_FAC11(I_LAY) * ABSB(IND1(I_LAY)+7,IG)))   &
+     !     &(Z_FAC000 * ABSB(IND0(I_LAY)   ,IG) +&
+     !     & Z_FAC100 * ABSB(IND0(I_LAY)+ 1,IG) +&
+     !     & Z_FAC010 * ABSB(IND0(I_LAY)+ 6,IG) +&
+     !     & Z_FAC110 * ABSB(IND0(I_LAY)+ 7,IG) +&
+     !     & Z_FAC001 * ABSB(IND1(I_LAY)   ,IG) +&
+     !     & Z_FAC101 * ABSB(IND1(I_LAY)+ 1,IG) +&
+     !     & Z_FAC011 * ABSB(IND1(I_LAY)+ 6,IG) +&
+     !     & Z_FAC111 * ABSB(IND1(I_LAY)+ 7,IG))&
+     !-- DS_000515
+     & + P_TAUAERL(I_LAY,4)  
+    PFRAC(NGS3+IG,I_LAY) = FRACREFB(IG,JS) + Z_FS *&
+     & (FRACREFB(IG,JS+1) - FRACREFB(IG,JS))  
+  ENDDO
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL4',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_TAUMOL4
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol4.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol4.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol4.intfb.h	(revision 1989)
@@ -0,0 +1,28 @@
+INTERFACE
+SUBROUTINE RRTM_TAUMOL4 (KLEV,P_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,P_FORFAC,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLCO2,P_COLO3,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARRRTM , ONLY : JPLAY ,JPBAND ,JPGPT ,NG4 ,NGS3
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAU(JPGPT,JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_TAUAERL(JPLAY,JPBAND)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+REAL(KIND=JPRB) :: P_FORFAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_ONEMINUS
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLH2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLCO2(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLO3(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDSELF(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFRAC(JPGPT,JPLAY)
+END SUBROUTINE RRTM_TAUMOL4
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol5.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol5.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol5.F90	(revision 1989)
@@ -0,0 +1,191 @@
+!----------------------------------------------------------------------------
+SUBROUTINE RRTM_TAUMOL5 (KLEV,P_TAU,P_WX,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,P_FORFAC,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLCO2, P_COLO3,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+
+!     BAND 5:  700-820 cm-1 (low - H2O,CO2; high - O3,CO2)
+
+! Modifications
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     D Salmond 2000-05-15 speed-up
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,JPXSEC ,NG5   ,NGS4
+USE YOERRTWN , ONLY :      NSPA   ,NSPB
+USE YOERRTA5 , ONLY : ABSA   ,ABSB   ,CCL4   , FRACREFA, FRACREFB,SELFREF,STRRAT1, STRRAT2
+
+!  Input
+!#include "yoeratm.h"
+
+!      REAL TAUAER(JPLAY)
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAU(JPGPT,JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_WX(JPXSEC,JPLAY) ! Amount of trace gases
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_TAUAERL(JPLAY,JPBAND) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+REAL(KIND=JPRB)                  :: P_FORFAC(JPLAY) ! Argument NOT used
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_ONEMINUS 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLH2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLCO2(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLO3(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDSELF(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFRAC(JPGPT,JPLAY) 
+!  Output
+!- from AER
+!- from INTFAC      
+!- from INTIND
+!- from PRECISE             
+!- from PROFDATA             
+!- from SELF             
+!- from SP             
+INTEGER(KIND=JPIM) :: IJS(JPLAY)
+REAL(KIND=JPRB) :: ZFS(JPLAY),Z_SPECCOMB(JPLAY)
+INTEGER(KIND=JPIM) :: IND0(JPLAY),IND1(JPLAY),INDS(JPLAY)
+
+INTEGER(KIND=JPIM) :: IG, JS, I_LAY
+
+REAL(KIND=JPRB) :: Z_FAC000, Z_FAC001, Z_FAC010, Z_FAC011, Z_FAC100, Z_FAC101,&
+ & Z_FAC110, Z_FAC111, Z_FS, Z_SPECMULT, Z_SPECPARM  
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!      EQUIVALENCE (TAUAERL(1,5),TAUAER)
+
+!     Compute the optical depth by interpolating in ln(pressure), 
+!     temperature, and appropriate species.  Below LAYTROP, the water
+!     vapor self-continuum is interpolated (in temperature) separately.  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL5',0,ZHOOK_HANDLE)
+DO I_LAY = 1, K_LAYTROP
+  Z_SPECCOMB(I_LAY) = P_COLH2O(I_LAY) + STRRAT1*P_COLCO2(I_LAY)
+  Z_SPECPARM = P_COLH2O(I_LAY)/Z_SPECCOMB(I_LAY)
+  Z_SPECPARM=MIN(P_ONEMINUS,Z_SPECPARM)
+  Z_SPECMULT = 8._JPRB*(Z_SPECPARM)
+  JS = 1 + INT(Z_SPECMULT)
+  Z_FS = MOD(Z_SPECMULT,1.0_JPRB)
+  IND0(I_LAY) = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(5) + JS
+  IND1(I_LAY) = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(5) + JS
+  INDS(I_LAY) = K_INDSELF(I_LAY)
+
+  ZFS(I_LAY)=Z_FS
+  IJS(I_LAY)=JS
+
+ENDDO
+
+!-- DS_000515
+DO I_LAY = 1, K_LAYTROP
+!-- DS_000515
+
+  Z_FS=ZFS(I_LAY)
+  JS=IJS(I_LAY)
+  DO IG = 1, NG5
+!---jjm
+!    FAC000 = (_ONE_ - FS) * FAC00(LAY)
+!    FAC010 = (_ONE_ - FS) * FAC10(LAY)
+!    FAC100 = FS * FAC00(LAY)
+!    FAC110 = FS * FAC10(LAY)
+!    FAC001 = (_ONE_ - FS) * FAC01(LAY)
+!    FAC011 = (_ONE_ - FS) * FAC11(LAY)
+!    FAC101 = FS * FAC01(LAY)
+!    FAC111 = FS * FAC11(LAY)
+!-----         
+
+    P_TAU (NGS4+IG,I_LAY) = Z_SPECCOMB(I_LAY) *    &
+     !-- DS_000515
+     & ( (1. - Z_FS) *(P_FAC00(I_LAY) * ABSA(IND0(I_LAY)   ,IG) +   &
+     & P_FAC10(I_LAY) * ABSA(IND0(I_LAY)+ 9,IG) +   &
+     & P_FAC01(I_LAY) * ABSA(IND1(I_LAY)   ,IG) +    &
+     & P_FAC11(I_LAY) * ABSA(IND1(I_LAY)+ 9,IG))+   &
+     & Z_FS     *(P_FAC00(I_LAY) * ABSA(IND0(I_LAY)+ 1,IG) +   &
+     & P_FAC10(I_LAY) * ABSA(IND0(I_LAY)+10,IG) +   &
+     & P_FAC01(I_LAY) * ABSA(IND1(I_LAY)+ 1,IG) +   &
+     & P_FAC11(I_LAY) * ABSA(IND1(I_LAY)+10,IG))) + &
+     !     &(Z_FAC000 * ABSA(IND0(I_LAY)   ,IG) +&
+     !     & Z_FAC100 * ABSA(IND0(I_LAY)+ 1,IG) +&
+     !     & Z_FAC010 * ABSA(IND0(I_LAY)+ 9,IG) +&
+     !     & Z_FAC110 * ABSA(IND0(I_LAY)+10,IG) +&
+     !     & Z_FAC001 * ABSA(IND1(I_LAY)   ,IG) +&
+     !     & Z_FAC101 * ABSA(IND1(I_LAY)+ 1,IG) +&
+     !     & Z_FAC011 * ABSA(IND1(I_LAY)+ 9,IG) +&
+     !     & Z_FAC111 * ABSA(IND1(I_LAY)+10,IG))+&
+     !-- DS_000515
+     & P_COLH2O(I_LAY) * &
+     & P_SELFFAC(I_LAY) * (SELFREF(INDS(I_LAY),IG) + &
+     & P_SELFFRAC(I_LAY) *&
+     & (SELFREF(INDS(I_LAY)+1,IG) - SELFREF(INDS(I_LAY),IG)))&
+     & + P_WX(1,I_LAY) * CCL4(IG)&
+     & + P_TAUAERL(I_LAY,5)  
+    PFRAC(NGS4+IG,I_LAY) = FRACREFA(IG,JS) + Z_FS *&
+     & (FRACREFA(IG,JS+1) - FRACREFA(IG,JS))  
+  ENDDO
+ENDDO
+
+DO I_LAY = K_LAYTROP+1, KLEV
+  Z_SPECCOMB(I_LAY) = P_COLO3(I_LAY) + STRRAT2*P_COLCO2(I_LAY)
+  Z_SPECPARM = P_COLO3(I_LAY)/Z_SPECCOMB(I_LAY)
+  Z_SPECPARM=MIN(P_ONEMINUS,Z_SPECPARM)
+  Z_SPECMULT = 4._JPRB*(Z_SPECPARM)
+  JS = 1 + INT(Z_SPECMULT)
+  Z_FS = MOD(Z_SPECMULT,1.0_JPRB)
+  IND0(I_LAY) = ((K_JP(I_LAY)-13)*5+(K_JT(I_LAY)-1))*NSPB(5) + JS
+  IND1(I_LAY) = ((K_JP(I_LAY)-12)*5+(K_JT1(I_LAY)-1))*NSPB(5) + JS
+  ZFS(I_LAY)=Z_FS
+  IJS(I_LAY)=JS
+ENDDO
+
+!----jjm         
+!  FAC000 = (_ONE_ - FS) * FAC00(LAY)
+!  FAC010 = (_ONE_ - FS) * FAC10(LAY)
+!  FAC100 = FS * FAC00(LAY)
+!  FAC110 = FS * FAC10(LAY)
+!  FAC001 = (_ONE_ - FS) * FAC01(LAY)
+!  FAC011 = (_ONE_ - FS) * FAC11(LAY)
+!  FAC101 = FS * FAC01(LAY)
+!  FAC111 = FS * FAC11(LAY)
+!----         
+DO I_LAY = K_LAYTROP+1, KLEV
+  Z_FS=ZFS(I_LAY)
+  JS=IJS(I_LAY)
+  DO IG = 1, NG5
+!-- DS_000515
+    P_TAU (NGS4+IG,I_LAY) = Z_SPECCOMB(I_LAY) *    &
+     & ( (1. - Z_FS) *(P_FAC00(I_LAY) * ABSB(IND0(I_LAY)  ,IG) +   &
+     & P_FAC10(I_LAY) * ABSB(IND0(I_LAY)+5,IG) +   &
+     & P_FAC01(I_LAY) * ABSB(IND1(I_LAY)  ,IG) +    &
+     & P_FAC11(I_LAY) * ABSB(IND1(I_LAY)+5,IG))+   &
+     & Z_FS     *(P_FAC00(I_LAY) * ABSB(IND0(I_LAY)+1,IG) +   &
+     & P_FAC10(I_LAY) * ABSB(IND0(I_LAY)+6,IG) +   &
+     & P_FAC01(I_LAY) * ABSB(IND1(I_LAY)+1,IG) +   &
+     & P_FAC11(I_LAY) * ABSB(IND1(I_LAY)+6,IG)))   &
+     !     &(Z_FAC000 * ABSB(IND0(I_LAY)  ,IG) +&
+     !     & Z_FAC100 * ABSB(IND0(I_LAY)+1,IG) +&
+     !     & Z_FAC010 * ABSB(IND0(I_LAY)+5,IG) +&
+     !     & Z_FAC110 * ABSB(IND0(I_LAY)+6,IG) +&
+     !     & Z_FAC001 * ABSB(IND1(I_LAY)  ,IG) +&
+     !     & Z_FAC101 * ABSB(IND1(I_LAY)+1,IG) +&
+     !     & Z_FAC011 * ABSB(IND1(I_LAY)+5,IG) +&
+     !     & Z_FAC111 * ABSB(IND1(I_LAY)+6,IG))&
+     !-- DS_000515
+     & + P_WX(1,I_LAY) * CCL4(IG)&
+     & + P_TAUAERL(I_LAY,5)  
+    PFRAC(NGS4+IG,I_LAY) = FRACREFB(IG,JS) + Z_FS *&
+     & (FRACREFB(IG,JS+1) - FRACREFB(IG,JS))  
+  ENDDO
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL5',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_TAUMOL5
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol5.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol5.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol5.intfb.h	(revision 1989)
@@ -0,0 +1,29 @@
+INTERFACE
+SUBROUTINE RRTM_TAUMOL5 (KLEV,P_TAU,P_WX,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,P_FORFAC,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLCO2, P_COLO3,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARRRTM , ONLY : JPLAY ,JPBAND ,JPGPT ,JPXSEC ,NG5 ,NGS4
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAU(JPGPT,JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_WX(JPXSEC,JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_TAUAERL(JPLAY,JPBAND)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+REAL(KIND=JPRB) :: P_FORFAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_ONEMINUS
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLH2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLCO2(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLO3(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDSELF(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFRAC(JPGPT,JPLAY)
+END SUBROUTINE RRTM_TAUMOL5
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol6.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol6.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol6.F90	(revision 1989)
@@ -0,0 +1,106 @@
+!----------------------------------------------------------------------------
+SUBROUTINE RRTM_TAUMOL6 (KLEV,P_TAU,P_WX,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,&
+ & P_COLH2O,P_CO2MULT,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+
+!     BAND 6:  820-980 cm-1 (low - H2O; high - nothing)
+
+! Modifications
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     D Salmond   2000-05-15 speed-up
+!     JJMorcrette 2000-05-17 speed-up
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,JPXSEC ,NG6   ,NGS5
+USE YOERRTWN , ONLY :      NSPA   
+USE YOERRTA6 , ONLY : ABSA   ,ABSCO2 ,CFC11ADJ , CFC12  ,&
+ & FRACREFA,SELFREF  
+
+!  Input
+!#include "yoeratm.h"
+
+!      REAL TAUAER(JPLAY)
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAU(JPGPT,JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_WX(JPXSEC,JPLAY) ! Amount of trace gases
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_TAUAERL(JPLAY,JPBAND) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLH2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_CO2MULT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDSELF(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFRAC(JPGPT,JPLAY) 
+!  Output
+!- from AER
+!- from INTFAC      
+!- from INTIND
+!- from PROFDATA             
+!- from SELF             
+!- from SP             
+INTEGER(KIND=JPIM) :: IND0(JPLAY),IND1(JPLAY),INDS(JPLAY)
+
+INTEGER(KIND=JPIM) :: IG, I_LAY
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!      EQUIVALENCE (TAUAERL(1,6),TAUAER)
+
+!     Compute the optical depth by interpolating in ln(pressure) and
+!     temperature. The water vapor self-continuum is interpolated
+!     (in temperature) separately.  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL6',0,ZHOOK_HANDLE)
+DO I_LAY = 1, K_LAYTROP
+  IND0(I_LAY) = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(6) + 1
+  IND1(I_LAY) = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(6) + 1
+  INDS(I_LAY) = K_INDSELF(I_LAY)
+ENDDO
+
+!-- DS_000515  
+DO IG = 1, NG6
+  DO I_LAY = 1, K_LAYTROP
+!-- DS_000515  
+    P_TAU (NGS5+IG,I_LAY) = P_COLH2O(I_LAY) *&
+     & (P_FAC00(I_LAY) * ABSA(IND0(I_LAY)  ,IG) +&
+     & P_FAC10(I_LAY) * ABSA(IND0(I_LAY)+1,IG) +&
+     & P_FAC01(I_LAY) * ABSA(IND1(I_LAY)  ,IG) +&
+     & P_FAC11(I_LAY) * ABSA(IND1(I_LAY)+1,IG) +&
+     & P_SELFFAC(I_LAY) * (SELFREF(INDS(I_LAY),IG) + &
+     & P_SELFFRAC(I_LAY)*&
+     & (SELFREF(INDS(I_LAY)+1,IG)-SELFREF(INDS(I_LAY),IG))))&
+     & + P_WX(2,I_LAY) * CFC11ADJ(IG)&
+     & + P_WX(3,I_LAY) * CFC12(IG)&
+     & + P_CO2MULT(I_LAY) * ABSCO2(IG)&
+     & + P_TAUAERL(I_LAY,6)  
+    PFRAC(NGS5+IG,I_LAY) = FRACREFA(IG)
+  ENDDO
+ENDDO
+
+!     Nothing important goes on above LAYTROP in this band.
+!-- JJM_000517
+DO IG = 1, NG6
+  DO I_LAY = K_LAYTROP+1, KLEV
+!-- JJM_000517
+    P_TAU (NGS5+IG,I_LAY) = 0.0_JPRB &
+     & + P_WX(2,I_LAY) * CFC11ADJ(IG)&
+     & + P_WX(3,I_LAY) * CFC12(IG)&
+     & + P_TAUAERL(I_LAY,6)  
+    PFRAC(NGS5+IG,I_LAY) = FRACREFA(IG)
+  ENDDO
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL6',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_TAUMOL6
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol6.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol6.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol6.intfb.h	(revision 1989)
@@ -0,0 +1,26 @@
+INTERFACE
+SUBROUTINE RRTM_TAUMOL6 (KLEV,P_TAU,P_WX,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,&
+ & P_COLH2O,P_CO2MULT,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARRRTM , ONLY : JPLAY ,JPBAND ,JPGPT ,JPXSEC ,NG6 ,NGS5
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAU(JPGPT,JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_WX(JPXSEC,JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_TAUAERL(JPLAY,JPBAND)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLH2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_CO2MULT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDSELF(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFRAC(JPGPT,JPLAY)
+END SUBROUTINE RRTM_TAUMOL6
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol7.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol7.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol7.F90	(revision 1989)
@@ -0,0 +1,155 @@
+!----------------------------------------------------------------------------
+SUBROUTINE RRTM_TAUMOL7 (KLEV,P_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLO3,P_CO2MULT,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+
+!     BAND 7:  980-1080 cm-1 (low - H2O,O3; high - O3)
+
+! Modifications
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     D Salmond 2000-05-15 speed-up
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,NG7   ,NGS6
+USE YOERRTWN , ONLY :      NSPA   ,NSPB
+USE YOERRTA7 , ONLY : ABSA   ,ABSB   ,ABSCO2 ,FRACREFA ,FRACREFB,SELFREF,STRRAT
+
+!  Input
+!#include "yoeratm.h"
+
+!      REAL TAUAER(JPLAY)
+
+IMPLICIT NONE
+
+!  Output
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAU(JPGPT,JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_TAUAERL(JPLAY,JPBAND) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_ONEMINUS 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLH2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLO3(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_CO2MULT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDSELF(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFRAC(JPGPT,JPLAY) 
+!- from AER
+!- from INTFAC      
+!- from INTIND
+!- from PRECISE             
+!- from PROFDATA             
+!- from SELF             
+!- from SP             
+INTEGER(KIND=JPIM) :: IJS(JPLAY)
+REAL(KIND=JPRB) :: ZFS(JPLAY),Z_SPECCOMB(JPLAY)
+INTEGER(KIND=JPIM) :: IND0(JPLAY),IND1(JPLAY),INDS(JPLAY)
+
+INTEGER(KIND=JPIM) :: IG, JS, I_LAY
+
+REAL(KIND=JPRB) :: Z_FAC000, Z_FAC001, Z_FAC010, Z_FAC011, Z_FAC100, Z_FAC101,&
+ & Z_FAC110, Z_FAC111, Z_FS, Z_SPECMULT, Z_SPECPARM  
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!      EQUIVALENCE (TAUAERL(1,7),TAUAER)
+
+!     Compute the optical depth by interpolating in ln(pressure), 
+!     temperature, and appropriate species.  Below LAYTROP, the water
+!     vapor self-continuum is interpolated (in temperature) separately.
+  
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL7',0,ZHOOK_HANDLE)
+DO I_LAY = 1, K_LAYTROP
+  Z_SPECCOMB(I_LAY) = P_COLH2O(I_LAY) + STRRAT*P_COLO3(I_LAY)
+  Z_SPECPARM = P_COLH2O(I_LAY)/Z_SPECCOMB(I_LAY)
+  Z_SPECPARM=MIN(P_ONEMINUS,Z_SPECPARM)
+  Z_SPECMULT = 8._JPRB*Z_SPECPARM
+  JS = 1 + INT(Z_SPECMULT)
+  Z_FS = MOD(Z_SPECMULT,1.0_JPRB)
+  IND0(I_LAY) = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(7) + JS
+  IND1(I_LAY) = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(7) + JS
+  INDS(I_LAY) = K_INDSELF(I_LAY)
+  ZFS(I_LAY)=Z_FS
+  IJS(I_LAY)=JS
+
+ENDDO
+
+!-- DS_000515
+DO IG = 1, NG7
+  DO I_LAY = 1, K_LAYTROP
+!-- DS_000515
+
+    Z_FS=ZFS(I_LAY)
+    JS=IJS(I_LAY)
+!---jjm        
+!    FAC000 = (_ONE_ - FS) * FAC00(LAY)
+!    FAC010 = (_ONE_ - FS) * FAC10(LAY)
+!    FAC100 = FS * FAC00(LAY)
+!    FAC110 = FS * FAC10(LAY)
+!    FAC001 = (_ONE_ - FS) * FAC01(LAY)
+!    FAC011 = (_ONE_ - FS) * FAC11(LAY)
+!    FAC101 = FS * FAC01(LAY)
+!    FAC111 = FS * FAC11(LAY)
+!-----
+
+    P_TAU (NGS6+IG,I_LAY) = Z_SPECCOMB(I_LAY) *&
+     !-- DS_000515
+     !     &(Z_FAC000 * ABSA(IND0(I_LAY)   ,IG) +&
+     !     & Z_FAC100 * ABSA(IND0(I_LAY)+ 1,IG) +&
+     !     & Z_FAC010 * ABSA(IND0(I_LAY)+ 9,IG) +&
+     !     & Z_FAC110 * ABSA(IND0(I_LAY)+10,IG) +&
+     !     & Z_FAC001 * ABSA(IND1(I_LAY)   ,IG) +&
+     !     & Z_FAC101 * ABSA(IND1(I_LAY)+ 1,IG) +&
+     !     & Z_FAC011 * ABSA(IND1(I_LAY)+ 9,IG) +&
+     !     & Z_FAC111 * ABSA(IND1(I_LAY)+10,IG))+&
+     & ( (1. - Z_FS) *(P_FAC00(I_LAY) * ABSA(IND0(I_LAY)   ,IG) +   &
+     & P_FAC10(I_LAY) * ABSA(IND0(I_LAY)+ 9,IG) +   &
+     & P_FAC01(I_LAY) * ABSA(IND1(I_LAY)   ,IG) +    &
+     & P_FAC11(I_LAY) * ABSA(IND1(I_LAY)+ 9,IG))+   &
+     & Z_FS     *(P_FAC00(I_LAY) * ABSA(IND0(I_LAY)+ 1,IG) +   &
+     & P_FAC10(I_LAY) * ABSA(IND0(I_LAY)+10,IG) +   &
+     & P_FAC01(I_LAY) * ABSA(IND1(I_LAY)+ 1,IG) +   &
+     & P_FAC11(I_LAY) * ABSA(IND1(I_LAY)+10,IG))) + &
+     !-- DS_000515
+     & P_COLH2O(I_LAY) * &
+     & P_SELFFAC(I_LAY) * (SELFREF(INDS(I_LAY),IG) + &
+     & P_SELFFRAC(I_LAY) *&
+     & (SELFREF(INDS(I_LAY)+1,IG) - SELFREF(INDS(I_LAY),IG)))&
+     & + P_CO2MULT(I_LAY) * ABSCO2(IG)&
+     & + P_TAUAERL(I_LAY,7)  
+    PFRAC(NGS6+IG,I_LAY) = FRACREFA(IG,JS) + Z_FS *&
+     & (FRACREFA(IG,JS+1) - FRACREFA(IG,JS))  
+  ENDDO
+ENDDO
+
+DO I_LAY = K_LAYTROP+1, KLEV
+  IND0(I_LAY) = ((K_JP(I_LAY)-13)*5+(K_JT(I_LAY)-1))*NSPB(7) + 1
+  IND1(I_LAY) = ((K_JP(I_LAY)-12)*5+(K_JT1(I_LAY)-1))*NSPB(7) + 1
+ENDDO
+
+!-- JJM_000517
+DO IG = 1, NG7
+  DO I_LAY = K_LAYTROP+1, KLEV
+!-- JJM_000517
+    P_TAU (NGS6+IG,I_LAY) = P_COLO3(I_LAY) *&
+     & (P_FAC00(I_LAY) * ABSB(IND0(I_LAY)  ,IG) +&
+     & P_FAC10(I_LAY) * ABSB(IND0(I_LAY)+1,IG) +&
+     & P_FAC01(I_LAY) * ABSB(IND1(I_LAY)  ,IG) +&
+     & P_FAC11(I_LAY) * ABSB(IND1(I_LAY)+1,IG))&
+     & + P_CO2MULT(I_LAY) * ABSCO2(IG)&
+     & + P_TAUAERL(I_LAY,7)  
+    PFRAC(NGS6+IG,I_LAY) = FRACREFB(IG)
+  ENDDO
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL7',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_TAUMOL7
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol7.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol7.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol7.intfb.h	(revision 1989)
@@ -0,0 +1,27 @@
+INTERFACE
+SUBROUTINE RRTM_TAUMOL7 (KLEV,P_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLO3,P_CO2MULT,K_LAYTROP,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARRRTM , ONLY : JPLAY ,JPBAND ,JPGPT ,NG7 ,NGS6
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAU(JPGPT,JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_TAUAERL(JPLAY,JPBAND)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_ONEMINUS
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLH2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLO3(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_CO2MULT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDSELF(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFRAC(JPGPT,JPLAY)
+END SUBROUTINE RRTM_TAUMOL7
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol8.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol8.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol8.F90	(revision 1989)
@@ -0,0 +1,138 @@
+!*******************************************************************************
+SUBROUTINE RRTM_TAUMOL8 (KLEV,P_TAU,P_WX,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,&
+ & P_COLH2O,P_COLO3,P_COLN2O,P_CO2MULT,K_LAYSWTCH,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+
+!     BAND 8:  1080-1180 cm-1 (low (i.e.>~300mb) - H2O; high - O3)
+
+! Modifications
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     D Salmond   2000-05-15 speed-up
+!     JJMorcrette 2000-05-17 speed-up
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,JPXSEC ,NG8   ,NGS7
+USE YOERRTWN , ONLY :      NSPA   ,NSPB
+USE YOERRTA8 , ONLY : ABSA   ,ABSB   ,FRACREFA, FRACREFB,SELFREF,ABSCO2A , ABSCO2B ,&
+ & ABSN2OA , ABSN2OB,CFC12  ,CFC22ADJ, H2OREF  ,&
+ & N2OREF  , O3REF  
+
+!  Input
+!#include "yoeratm.h"
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAU(JPGPT,JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_WX(JPXSEC,JPLAY) ! Amount of trace gases
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_TAUAERL(JPLAY,JPBAND) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLH2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLO3(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLN2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_CO2MULT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYSWTCH 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDSELF(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFRAC(JPGPT,JPLAY) 
+!  Output
+!- from AER
+!- from INTFAC      
+!- from INTIND
+!- from PROFDATA             
+!- from SELF             
+!- from SP             
+INTEGER(KIND=JPIM) :: IND0(JPLAY),IND1(JPLAY),INDS(JPLAY)
+
+!      REAL TAUAER(JPLAY)
+REAL(KIND=JPRB) :: Z_N2OMULT(JPLAY)
+
+INTEGER(KIND=JPIM) :: IG, I_LAY
+
+REAL(KIND=JPRB) :: Z_COLREF1, Z_COLREF2, Z_CURRN2O, Z_FP, Z_RATIO, Z_WCOMB1, Z_WCOMB2
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!      EQUIVALENCE (TAUAERL(1,8),TAUAER)
+
+!     Compute the optical depth by interpolating in ln(pressure) and 
+!     temperature.  
+
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL8',0,ZHOOK_HANDLE)
+DO I_LAY = 1, K_LAYSWTCH
+  Z_FP = P_FAC01(I_LAY) + P_FAC11(I_LAY)
+  IND0(I_LAY) = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(8) + 1
+  IND1(I_LAY) = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(8) + 1
+  INDS(I_LAY) = K_INDSELF(I_LAY)
+  Z_COLREF1 = N2OREF(K_JP(I_LAY))
+  Z_COLREF2 = N2OREF(K_JP(I_LAY)+1)
+  Z_WCOMB1 = 1.0_JPRB/H2OREF(K_JP(I_LAY))
+  Z_WCOMB2 = 1.0_JPRB/H2OREF(K_JP(I_LAY)+1)
+  Z_RATIO = (Z_COLREF1*Z_WCOMB1)+Z_FP*((Z_COLREF2*Z_WCOMB2)-(Z_COLREF1*Z_WCOMB1))
+  Z_CURRN2O = P_COLH2O(I_LAY) * Z_RATIO
+  Z_N2OMULT(I_LAY) = P_COLN2O(I_LAY) - Z_CURRN2O
+ENDDO
+
+!-- DS_000515
+DO IG = 1, NG8
+  DO I_LAY = 1, K_LAYSWTCH
+!-- DS_000515
+    P_TAU (NGS7+IG,I_LAY) = P_COLH2O(I_LAY) *&
+     & (P_FAC00(I_LAY) * ABSA(IND0(I_LAY)  ,IG) +&
+     & P_FAC10(I_LAY) * ABSA(IND0(I_LAY)+1,IG) +&
+     & P_FAC01(I_LAY) * ABSA(IND1(I_LAY)  ,IG) +&
+     & P_FAC11(I_LAY) * ABSA(IND1(I_LAY)+1,IG) +&
+     & P_SELFFAC(I_LAY) * (SELFREF(INDS(I_LAY),IG) + &
+     & P_SELFFRAC(I_LAY) *&
+     & (SELFREF(INDS(I_LAY)+1,IG) - SELFREF(INDS(I_LAY),IG))))&
+     & + P_WX(3,I_LAY) * CFC12(IG)&
+     & + P_WX(4,I_LAY) * CFC22ADJ(IG)&
+     & + P_CO2MULT(I_LAY) * ABSCO2A(IG)&
+     & + Z_N2OMULT(I_LAY) * ABSN2OA(IG)&
+     & + P_TAUAERL(I_LAY,8)  
+    PFRAC(NGS7+IG,I_LAY) = FRACREFA(IG)
+  ENDDO
+ENDDO
+
+DO I_LAY = K_LAYSWTCH+1, KLEV
+  Z_FP = P_FAC01(I_LAY) + P_FAC11(I_LAY)
+  IND0(I_LAY) = ((K_JP(I_LAY)-7)*5+(K_JT(I_LAY)-1))*NSPB(8) + 1
+  IND1(I_LAY) = ((K_JP(I_LAY)-6)*5+(K_JT1(I_LAY)-1))*NSPB(8) + 1
+  Z_COLREF1 = N2OREF(K_JP(I_LAY))
+  Z_COLREF2 = N2OREF(K_JP(I_LAY)+1)
+  Z_WCOMB1 = 1.0_JPRB/O3REF(K_JP(I_LAY))
+  Z_WCOMB2 = 1.0_JPRB/O3REF(K_JP(I_LAY)+1)
+  Z_RATIO = (Z_COLREF1*Z_WCOMB1)+Z_FP*((Z_COLREF2*Z_WCOMB2)-(Z_COLREF1*Z_WCOMB1))
+  Z_CURRN2O = P_COLO3(I_LAY) * Z_RATIO
+  Z_N2OMULT(I_LAY) = P_COLN2O(I_LAY) - Z_CURRN2O
+ENDDO
+
+!-- JJM_000517
+DO IG = 1, NG8
+  DO I_LAY = K_LAYSWTCH+1, KLEV
+!-- JJM_000517
+    P_TAU (NGS7+IG,I_LAY) = P_COLO3(I_LAY) *&
+     & (P_FAC00(I_LAY) * ABSB(IND0(I_LAY)  ,IG) +&
+     & P_FAC10(I_LAY) * ABSB(IND0(I_LAY)+1,IG) +&
+     & P_FAC01(I_LAY) * ABSB(IND1(I_LAY)  ,IG) +&
+     & P_FAC11(I_LAY) * ABSB(IND1(I_LAY)+1,IG)) &
+     & + P_WX(3,I_LAY) * CFC12(IG)&
+     & + P_WX(4,I_LAY) * CFC22ADJ(IG)&
+     & + P_CO2MULT(I_LAY) * ABSCO2B(IG)&
+     & + Z_N2OMULT(I_LAY) * ABSN2OB(IG)&
+     & + P_TAUAERL(I_LAY,8)  
+    PFRAC(NGS7+IG,I_LAY) = FRACREFB(IG)
+  ENDDO
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL8',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_TAUMOL8
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol8.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol8.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol8.intfb.h	(revision 1989)
@@ -0,0 +1,28 @@
+INTERFACE
+SUBROUTINE RRTM_TAUMOL8 (KLEV,P_TAU,P_WX,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,&
+ & P_COLH2O,P_COLO3,P_COLN2O,P_CO2MULT,K_LAYSWTCH,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARRRTM , ONLY : JPLAY ,JPBAND ,JPGPT ,JPXSEC ,NG8 ,NGS7
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAU(JPGPT,JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_WX(JPXSEC,JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_TAUAERL(JPLAY,JPBAND)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLH2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLO3(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLN2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_CO2MULT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYSWTCH
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDSELF(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFRAC(JPGPT,JPLAY)
+END SUBROUTINE RRTM_TAUMOL8
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol9.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol9.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol9.F90	(revision 1989)
@@ -0,0 +1,198 @@
+!----------------------------------------------------------------------------
+SUBROUTINE RRTM_TAUMOL9 (KLEV,P_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLN2O,P_COLCH4,K_LAYTROP,K_LAYSWTCH,K_LAYLOW,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC)  
+
+!     BAND 9:  1180-1390 cm-1 (low - H2O,CH4; high - CH4)
+
+! Modifications
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     D Salmond   2000-05-15 speed-up
+!     JJMorcrette 2000-05-17 speed-up
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARRRTM  , ONLY : JPLAY  ,JPBAND ,JPGPT  ,NG9   ,NGS8
+USE YOERRTWN , ONLY :      NSPA   ,NSPB
+USE YOERRTA9 , ONLY : ABSA   ,ABSB   ,FRACREFA, FRACREFB,SELFREF,ABSN2O  , CH4REF  ,&
+ & ETAREF  , H2OREF ,N2OREF ,STRRAT  
+
+!  Input
+!#include "yoeratm.h"
+
+IMPLICIT NONE
+
+!  Output
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAU(JPGPT,JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_TAUAERL(JPLAY,JPBAND) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_ONEMINUS 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLH2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLN2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLCH4(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYSWTCH 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYLOW 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDSELF(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFRAC(JPGPT,JPLAY) 
+!- from AER
+!- from INTFAC      
+!- from INTIND
+!- from PRECISE             
+!- from PROFDATA             
+!- from SELF             
+!- from SP             
+INTEGER(KIND=JPIM) :: JFRAC(JPLAY)
+REAL(KIND=JPRB) :: Z_FFRAC(JPLAY),ZFS(JPLAY),Z_SPECCOMB(JPLAY)
+INTEGER(KIND=JPIM) :: IND0(JPLAY),IND1(JPLAY),INDS(JPLAY),IIOFF(JPLAY)
+
+!      REAL TAUAER(JPLAY)
+REAL(KIND=JPRB) :: Z_N2OMULT(JPLAY)
+
+INTEGER(KIND=JPIM) :: IG, IOFF, JS, I_LAY, I_NS
+
+REAL(KIND=JPRB) :: Z_COLREF1, Z_COLREF2, Z_CURRN2O, Z_FAC000, Z_FAC001,&
+ & Z_FAC010, Z_FAC011, Z_FAC100, Z_FAC101, Z_FAC110, Z_FAC111, &
+ & Z_FP, Z_FS, Z_RATIO, Z_SPECMULT, Z_SPECPARM, Z_WCOMB1, &
+ & Z_WCOMB2  
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!      EQUIVALENCE (TAUAERL(1,9),TAUAER)
+
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL9',0,ZHOOK_HANDLE)
+IOFF = 0
+
+!     Compute the optical depth by interpolating in ln(pressure), 
+!     temperature, and appropriate species.  Below LAYTROP, the water
+!     vapor self-continuum is interpolated (in temperature) separately.
+  
+DO I_LAY = 1, K_LAYTROP
+  Z_SPECCOMB(I_LAY) = P_COLH2O(I_LAY) + STRRAT*P_COLCH4(I_LAY)
+  Z_SPECPARM = P_COLH2O(I_LAY)/Z_SPECCOMB(I_LAY)
+  Z_SPECPARM=MIN(P_ONEMINUS,Z_SPECPARM)
+  Z_SPECMULT = 8._JPRB*(Z_SPECPARM)
+  JS = 1 + INT(Z_SPECMULT)
+  JFRAC(I_LAY) = JS
+  Z_FS = MOD(Z_SPECMULT,1.0_JPRB)
+  Z_FFRAC(I_LAY) = Z_FS
+  IF (JS  ==  8) THEN
+    IF (Z_FS <= 0.68_JPRB) THEN
+      Z_FS = Z_FS/0.68_JPRB
+    ELSEIF (Z_FS  <=  0.92_JPRB) THEN
+      JS = JS + 1
+      Z_FS = (Z_FS-0.68_JPRB)/0.24_JPRB
+    ELSE
+      JS = JS + 2
+      Z_FS = (Z_FS-0.92_JPRB)/0.08_JPRB
+    ENDIF
+  ELSEIF (JS  == 9) THEN
+    JS = 10
+    Z_FS = 1.0_JPRB
+    JFRAC(I_LAY) = 8
+    Z_FFRAC(I_LAY) = 1.0_JPRB
+  ENDIF
+  Z_FP = P_FAC01(I_LAY) + P_FAC11(I_LAY)
+  I_NS = JS + INT(Z_FS + 0.5_JPRB)
+  IND0(I_LAY) = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(9) + JS
+  IND1(I_LAY) = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(9) + JS
+  INDS(I_LAY) = K_INDSELF(I_LAY)
+  IF (I_LAY  ==  K_LAYLOW) IOFF = NG9
+  IF (I_LAY  ==  K_LAYSWTCH) IOFF = 2*NG9
+  Z_COLREF1 = N2OREF(K_JP(I_LAY))
+  Z_COLREF2 = N2OREF(K_JP(I_LAY)+1)
+  IF (I_NS  ==  11) THEN
+    Z_WCOMB1 = 1.0_JPRB/H2OREF(K_JP(I_LAY))
+    Z_WCOMB2 = 1.0_JPRB/H2OREF(K_JP(I_LAY)+1)
+  ELSE
+    Z_WCOMB1 = (1.0_JPRB-ETAREF(I_NS))/(STRRAT * CH4REF(K_JP(I_LAY)))
+    Z_WCOMB2 = (1.0_JPRB-ETAREF(I_NS))/(STRRAT * CH4REF(K_JP(I_LAY)+1))
+  ENDIF
+  Z_RATIO = (Z_COLREF1*Z_WCOMB1)+Z_FP*((Z_COLREF2*Z_WCOMB2)-(Z_COLREF1*Z_WCOMB1))
+  Z_CURRN2O = Z_SPECCOMB(I_LAY) * Z_RATIO
+  Z_N2OMULT(I_LAY) = P_COLN2O(I_LAY) - Z_CURRN2O
+
+  ZFS(I_LAY)=Z_FS
+  IIOFF(I_LAY)=IOFF
+
+ENDDO
+
+!-- DS_000515
+DO IG = 1, NG9
+  DO I_LAY = 1, K_LAYTROP
+!-- DS_000515
+
+    Z_FS=ZFS(I_LAY)
+    IOFF=IIOFF(I_LAY)
+!---jjm
+!    FAC000 = (_ONE_ - FS) * FAC00(LAY)
+!    FAC010 = (_ONE_ - FS) * FAC10(LAY)
+!    FAC100 = FS * FAC00(LAY)
+!    FAC110 = FS * FAC10(LAY)
+!    FAC001 = (_ONE_ - FS) * FAC01(LAY)
+!    FAC011 = (_ONE_ - FS) * FAC11(LAY)
+!    FAC101 = FS * FAC01(LAY)
+!    FAC111 = FS * FAC11(LAY)
+!------         
+
+    P_TAU (NGS8+IG,I_LAY) = Z_SPECCOMB(I_LAY) *&
+     !-- DS_000515
+     !     &(Z_FAC000 * ABSA(IND0(I_LAY)   ,IG) +&
+     !     & Z_FAC100 * ABSA(IND0(I_LAY)+ 1,IG) +&
+     !     & Z_FAC010 * ABSA(IND0(I_LAY)+11,IG) +&
+     !     & Z_FAC110 * ABSA(IND0(I_LAY)+12,IG) +&
+     !     & Z_FAC001 * ABSA(IND1(I_LAY)   ,IG) +&
+     !     & Z_FAC101 * ABSA(IND1(I_LAY)+ 1,IG) +&
+     !     & Z_FAC011 * ABSA(IND1(I_LAY)+11,IG) +&
+     !     & Z_FAC111 * ABSA(IND1(I_LAY)+12,IG))+&
+     & ( (1. - Z_FS) *(P_FAC00(I_LAY) * ABSA(IND0(I_LAY)   ,IG) +   &
+     & P_FAC10(I_LAY) * ABSA(IND0(I_LAY)+11,IG) +   &
+     & P_FAC01(I_LAY) * ABSA(IND1(I_LAY)   ,IG) +   &
+     & P_FAC11(I_LAY) * ABSA(IND1(I_LAY)+11,IG))+   &
+     & Z_FS     *(P_FAC00(I_LAY) * ABSA(IND0(I_LAY)+ 1,IG) +   &
+     & P_FAC10(I_LAY) * ABSA(IND0(I_LAY)+12,IG) +   &
+     & P_FAC01(I_LAY) * ABSA(IND1(I_LAY)+ 1,IG) +   &
+     & P_FAC11(I_LAY) * ABSA(IND1(I_LAY)+12,IG))) + &
+     !-- DS_000515
+     & P_COLH2O(I_LAY) * &
+     & P_SELFFAC(I_LAY) * (SELFREF(INDS(I_LAY),IG) + &
+     & P_SELFFRAC(I_LAY) *&
+     & (SELFREF(INDS(I_LAY)+1,IG) - SELFREF(INDS(I_LAY),IG)))&
+     & + Z_N2OMULT(I_LAY) * ABSN2O(IG+IOFF)&
+     & + P_TAUAERL(I_LAY,9)  
+    PFRAC(NGS8+IG,I_LAY) = FRACREFA(IG,JFRAC(I_LAY)) + Z_FFRAC(I_LAY) *&
+     & (FRACREFA(IG,JFRAC(I_LAY)+1) - FRACREFA(IG,JFRAC(I_LAY)))  
+  ENDDO
+ENDDO
+
+DO I_LAY = K_LAYTROP+1, KLEV
+  IND0(I_LAY) = ((K_JP(I_LAY)-13)*5+(K_JT(I_LAY)-1))*NSPB(9) + 1
+  IND1(I_LAY) = ((K_JP(I_LAY)-12)*5+(K_JT1(I_LAY)-1))*NSPB(9) + 1
+ENDDO
+
+!-- JJM_000517
+DO IG = 1, NG9
+  DO I_LAY = K_LAYTROP+1, KLEV
+!-- JJM_000517
+    P_TAU (NGS8+IG,I_LAY) = P_COLCH4(I_LAY) *&
+     & (P_FAC00(I_LAY) * ABSB(IND0(I_LAY)  ,IG) +&
+     & P_FAC10(I_LAY) * ABSB(IND0(I_LAY)+1,IG) +&
+     & P_FAC01(I_LAY) * ABSB(IND1(I_LAY)  ,IG) +&
+     & P_FAC11(I_LAY) * ABSB(IND1(I_LAY)+1,IG))&
+     & + P_TAUAERL(I_LAY,9)  
+    PFRAC(NGS8+IG,I_LAY) = FRACREFB(IG)
+  ENDDO
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL9',1,ZHOOK_HANDLE)
+END SUBROUTINE RRTM_TAUMOL9
Index: LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol9.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol9.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol9.intfb.h	(revision 1989)
@@ -0,0 +1,29 @@
+INTERFACE
+SUBROUTINE RRTM_TAUMOL9 (KLEV,P_TAU,&
+ & P_TAUAERL,P_FAC00,P_FAC01,P_FAC10,P_FAC11,K_JP,K_JT,K_JT1,P_ONEMINUS,&
+ & P_COLH2O,P_COLN2O,P_COLCH4,K_LAYTROP,K_LAYSWTCH,K_LAYLOW,P_SELFFAC,P_SELFFRAC,K_INDSELF,PFRAC) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARRRTM , ONLY : JPLAY ,JPBAND ,JPGPT ,NG9 ,NGS8
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAU(JPGPT,JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_TAUAERL(JPLAY,JPBAND)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_ONEMINUS
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLH2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLN2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLCH4(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYSWTCH
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYLOW
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDSELF(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFRAC(JPGPT,JPLAY)
+END SUBROUTINE RRTM_TAUMOL9
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/sdl_module.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/sdl_module.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/sdl_module.F90	(revision 1989)
@@ -0,0 +1,136 @@
+MODULE SDL_MODULE
+
+!    Interface between user applications and system-dependent intrinsic
+!    routines, provided by the computer vendors.
+
+!    All routines which wish to call these routines must contain:
+!    USE SDL_MODULE
+
+! Author :
+! ------
+!   11-Apr-2005 R. El Khatib  *METEO-FRANCE*
+!   26-Apr-2006 S.T.Saarinen  Dr.Hook trace, calls to EC_RAISE, Intel/ifort traceback
+
+USE PARKIND1  ,ONLY : JPIM  ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK ,DR_HOOK
+USE YOMOML, ONLY : OML_MY_THREAD
+
+IMPLICIT NONE
+
+SAVE
+
+PRIVATE
+
+INTEGER, parameter :: SIGABRT = 6 ! Hardcoded
+
+PUBLIC :: SDL_SRLABORT, SDL_DISABORT, SDL_TRACEBACK
+
+CONTAINS
+
+!-----------------------------------------------------------------------------
+SUBROUTINE SDL_TRACEBACK(KTID)
+
+! Purpose :
+! -------
+!   Traceback
+
+!   KTID : thread 
+
+INTEGER(KIND=JPIM), INTENT(IN), OPTIONAL :: KTID
+CALL ABOR1('DANS SDL_TRACEBACK')   ! MPL 8.12.08 et commente toute la suite
+!INTEGER(KIND=JPIM) ITID, IPRINT_OPTION, ILEVEL
+!#ifdef NECSX
+!CHARACTER(LEN=*), PARAMETER :: CLNECMSG = '*** Calling NEC traceback ***'
+!#endif
+!
+!IF (PRESENT(KTID)) THEN
+!  ITID = KTID
+!ELSE
+!  ITID = OML_MY_THREAD()
+!ENDIF
+!
+!IF (LHOOK) THEN
+!  IPRINT_OPTION = 2
+!  ILEVEL = 0
+!  CALL C_DRHOOK_PRINT(0, ITID, IPRINT_OPTION, ILEVEL) ! from drhook.c
+!ENDIF
+!
+!#ifdef VPP
+!  CALL ERRTRA
+!  IF (PRESENT(KTID)) CALL SLEEP(28)
+!#elif RS6K
+!  WRITE(0,*)'SDL_TRACEBACK: Calling XL_TRBK, THRD = ',ITID
+!  CALL XL__TRBK()
+!  WRITE(0,*)'SDL_TRACEBACK: Done XL_TRBK, THRD = ',ITID
+!#elif __INTEL_COMPILER
+!  WRITE(0,*)'SDL_TRACEBACK: Calling INTEL_TRBK, THRD = ',ITID
+!  CALL INTEL_TRBK() ! See ifsaux/utilities/gentrbk.F90
+!  WRITE(0,*)'SDL_TRACEBACK: Done INTEL_TRBK, THRD = ',ITID
+!#elif defined(LINUX) || defined(SUN4)
+!  WRITE(0,*)'SDL_TRACEBACK: Calling LINUX_TRBK, THRD = ',ITID
+!  CALL LINUX_TRBK() ! See ifsaux/utilities/linuxtrbk.c
+!  WRITE(0,*)'SDL_TRACEBACK: Done LINUX_TRBK, THRD = ',ITID
+!#elif defined(NECSX)
+!  WRITE(0,*)'SDL_TRACEBACK: Calling NEC/MESPUT, THRD = ',ITID
+!  CALL MESPUT(CLNECMSG, LEN(CLNECMSG), 1)
+!  WRITE(0,*)'SDL_TRACEBACK: Done NEC/MESPUT, THRD = ',ITID
+!#else
+!  WRITE(0,*)'SDL_TRACEBACK: No proper traceback implemented.'
+!  ! A traceback using dbx-debugger, if available AND 
+!  ! activated via 'export DBXDEBUGGER=1'
+!  WRITE(0,*)'SDL_TRACEBACK: Calling DBX_TRBK, THRD = ',ITID
+!  CALL DBX_TRBK() ! See ifsaux/utilities/linuxtrbk.c
+!  WRITE(0,*)'SDL_TRACEBACK: Done DBX_TRBK, THRD = ',ITID
+!  ! A traceback using gdb-debugger, if available AND 
+!  ! activated via 'export GDBDEBUGGER=1'
+!  WRITE(0,*)'SDL_TRACEBACK: Calling GDB_TRBK, THRD = ',ITID
+!  CALL GDB_TRBK() ! See ifsaux/utilities/linuxtrbk.c
+!  WRITE(0,*)'SDL_TRACEBACK: Done GDB_TRBK, THRD = ',ITID
+!#endif
+
+END SUBROUTINE SDL_TRACEBACK
+!-----------------------------------------------------------------------------
+SUBROUTINE SDL_SRLABORT
+
+! Purpose :
+! -------
+!   To abort in serial environment
+
+!CALL EC_RAISE(SIGABRT)  ! EC_RAISE remplace par ABOR1 MPL 8.12.08
+CALL ABOR1('DANS SRLABORT')
+STOP 'SDL_SRLABORT'
+
+END SUBROUTINE SDL_SRLABORT
+!-----------------------------------------------------------------------------
+SUBROUTINE SDL_DISABORT(KCOMM)
+
+! Purpose :
+! -------
+!   To abort in distributed environment
+
+!   KCOMM : communicator
+
+INTEGER(KIND=JPIM), INTENT(IN) :: KCOMM
+
+INTEGER(KIND=JPIM) :: IRETURN_CODE,IERROR
+
+!MPL 4.12.08
+!#ifdef VPP
+!
+!CALL VPP_ABORT()
+!
+!#else
+!
+!IRETURN_CODE=1
+!CALL MPI_ABORT(KCOMM,IRETURN_CODE,IERROR)
+
+!#endif
+
+!CALL EC_RAISE(SIGABRT) ! In case ever ends up here
+CALL ABOR1('DANS SRLDISABORT')   ! EC_RAISE remplace par ABOR1 MPL 8.12.08
+STOP 'SDL_DISABORT'
+
+END SUBROUTINE SDL_DISABORT
+!-----------------------------------------------------------------------------
+
+END MODULE SDL_MODULE
Index: LMDZ5/trunk/libf/phylmd/rrtm/seapre.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/seapre.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/seapre.F90	(revision 1989)
@@ -0,0 +1,68 @@
+SUBROUTINE SEAPRE(PARA,KPARA,PSTPRE,KLEV)
+
+!**** *SEAPRE*   - Search corresponding level to input pressure
+
+!     Purpose.
+!     --------
+!           Serach corresponding level of the model to an input pressure
+!           through standard atmosphere.
+
+!**   Interface.
+!     ----------
+!        *CALL* *SEAPRE(PARA,KPARA,PSTPRE,KLEV)
+
+!        Explicit arguments :
+!        --------------------
+!        PARA  : Pressure                           (input)
+!        KPARA  : Level                              (output)
+!        PSTPRE : Standard atmosphere                (input)
+!        KLEV   : Number of level of the model       (input)
+
+!        Implicit arguments :
+!        --------------------
+!        none
+
+!     Method.
+!     -------
+!        See documentation
+
+!     Externals.
+!     ----------
+
+!     Reference.
+!     ----------
+!        Documentation ARPEGE
+
+!     Author.
+!     -------
+!        A. Lasserre-Bigorry
+
+!     Modifications.
+!     --------------
+!        Original : 91-06-10
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PARA 
+INTEGER(KIND=JPIM),INTENT(OUT)   :: KPARA 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PSTPRE(KLEV) 
+INTEGER(KIND=JPIM) :: JLEV
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!*      1.  SEARCH OF CORRESPONDING LEVEL
+!           -----------------------------
+IF (LHOOK) CALL DR_HOOK('SEAPRE',0,ZHOOK_HANDLE)
+KPARA=KLEV
+DO JLEV=KLEV,1,-1
+  IF(PARA <= PSTPRE(JLEV)) KPARA=JLEV
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('SEAPRE',1,ZHOOK_HANDLE)
+END SUBROUTINE SEAPRE
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/seapre.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/seapre.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/seapre.intfb.h	(revision 1989)
@@ -0,0 +1,9 @@
+INTERFACE
+SUBROUTINE SEAPRE(PARA,KPARA,PSTPRE,KLEV)
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(IN) :: PARA
+INTEGER(KIND=JPIM),INTENT(OUT) :: KPARA
+REAL(KIND=JPRB) ,INTENT(IN) :: PSTPRE(KLEV)
+END SUBROUTINE SEAPRE
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/set2pe_mod.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/set2pe_mod.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/set2pe_mod.F90	(revision 1989)
@@ -0,0 +1,121 @@
+MODULE SET2PE_MOD
+CONTAINS
+SUBROUTINE SET2PE(KPE,KPRGPNS,KPRGPEW,KPRTRW,KPRTRV)
+
+#ifdef DOC
+
+!**** *SET2PE* - Convert from set numbers to PE number
+
+!     Purpose.
+!     --------
+!        Convert from set numbers in either grid-point space or spectral space
+!        to PE number
+
+!**   Interface.
+!     ----------
+!        *CALL* *SET2PE(KPRGPNS,KPRGPEW,KPRTRW,KPRTRV,KPE)
+
+!        Explicit arguments :  
+!        --------------------
+
+!                  input :  KPRGPNS - integer A set number in grid space
+!                                     in the range 1 .. NPRGPNS
+!                           KPRGPEW - integer B set number in grid space
+!                                     in the range 1 .. NPRGPEW
+!                           KPRTRW  - integer A set number in spectral space
+!                                     in the range 1 .. NPRTRW 
+!                           KPRTRV  - integer B set number in spectral space
+!                                     in the range 1 .. NPRTRV 
+!                  output:  KPE     - integer processor number 
+!                                     in the range 1 .. NPROC
+
+!                  Normally, one pair of input set numbers will be set to zero
+!                  SET2PE will compute KPE from the first pair if they are valid numbers.
+!                  else from the other pair,
+
+!        Implicit arguments :  YOMMP parameters
+!                              NPRGPNS,NPRGPEW,NPRTRW,NPRTRV,NPROC
+
+!        --------------------
+!     Method.
+!     -------
+
+!     Externals.
+!     ----------
+!         NONE
+
+!     Reference.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+
+!     Author.
+!     -------
+!        David Dent *ECMWF*
+
+!     Modifications.
+!     --------------
+!        Original : 98-08-19
+!     ------------------------------------------------------------------
+#endif
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+USE TPM_DISTR
+USE EQ_REGIONS_MOD
+USE ABORT_TRANS_MOD
+
+IMPLICIT NONE
+INTEGER(KIND=JPIM),INTENT(IN) :: KPRGPNS,KPRGPEW,KPRTRW,KPRTRV
+INTEGER(KIND=JPIM),INTENT(OUT)  :: KPE
+
+INTEGER(KIND=JPIM) :: IPE,JA
+!     ------------------------------------------------------------------
+
+!*       1.    Choose from input parameters
+!              ----------------------------
+
+IF(KPRGPNS > 0.AND.KPRGPEW > 0) THEN
+
+  IF( LEQ_REGIONS )THEN
+    IF( KPRGPNS > N_REGIONS_NS )THEN
+      WRITE(*,'(A,2I8)') ' SET2PE INVALID ARGUMENT ',KPRGPNS,N_REGIONS_NS
+      CALL ABOR1(' SET2PE INVALID ARGUMENT ')
+    ENDIF
+    IF( KPRGPEW > N_REGIONS(KPRGPNS) )THEN
+      WRITE(*,'(A,2I8)') ' SET2PE INVALID ARGUMENT ',KPRGPEW,N_REGIONS(KPRGPNS)
+      CALL ABOR1(' SET2PE INVALID ARGUMENT ')
+    ENDIF
+    KPE=0
+    DO JA=1,KPRGPNS-1
+      KPE=KPE+N_REGIONS(JA)
+    ENDDO
+    KPE=KPE+KPRGPEW    
+  ELSE
+    IF(KPRGPNS <= NPRGPNS.AND.KPRGPEW <= NPRGPEW) THEN
+
+!*       2.    Grid-space set values supplied
+!              ------------------------------
+
+      KPE=(KPRGPNS-1)*NPRGPEW + KPRGPEW
+    ELSE
+      WRITE(*,'(A,2I8)') ' SET2PE INVALID ARGUMENT ',KPRGPNS,KPRGPEW
+      CALL ABORT_TRANS(' SET2PE INVALID ARGUMENT ')
+    ENDIF
+  ENDIF
+
+ELSE
+
+!*       3.    Spectral space set values supplied
+!              ----------------------------------
+
+  IF(KPRTRW <= NPRTRW.AND.KPRTRV <= NPRTRV) THEN
+    KPE=(KPRTRW-1)*NPRTRV + KPRTRV
+  ELSE
+    WRITE(*,'(A,2I8)') ' SET2PE INVALID ARGUMENT ',KPRTRW,KPRTRV
+    CALL ABORT_TRANS(' SET2PE INVALID ARGUMENT ')
+  ENDIF
+
+ENDIF
+
+END SUBROUTINE SET2PE
+END MODULE SET2PE_MOD
Index: LMDZ5/trunk/libf/phylmd/rrtm/set99.F
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/set99.F	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/set99.F	(revision 1989)
@@ -0,0 +1,59 @@
+      SUBROUTINE SET99(TRIGS,IFAX,N)
+      REAL             TRIGS(N)
+      INTEGER IFAX(*),JFAX(10),NLFAX(7)
+C
+C     SUBROUTINE 'SET99' - COMPUTES FACTORS OF N & TRIGONOMETRIC
+C     FUNCTIONS REQUIRED BY FFT99 & FFT991
+C
+      SAVE NLFAX
+C
+      DATA NLFAX/6,8,5,4,3,2,1/
+C
+      IXXX=1
+C
+      DEL=4.0E0*ASIN(1.0E0)/FLOAT(N)
+      NIL=0
+      NHL=(N/2)-1
+      DO 10 K=NIL,NHL
+      ANGLE=FLOAT(K)*DEL
+      TRIGS(2*K+1)=COS(ANGLE)
+      TRIGS(2*K+2)=SIN(ANGLE)
+   10 CONTINUE
+C
+C     FIND FACTORS OF N (8,6,5,4,3,2; ONLY ONE 8 ALLOWED)
+C     LOOK FOR SIXES FIRST, STORE FACTORS IN DESCENDING ORDER
+      NU=N
+      IFAC=6
+      K=0
+      IL=1
+   20 CONTINUE
+      IF (MOD(NU,IFAC).NE.0) GO TO 30
+      K=K+1
+      JFAX(K)=IFAC
+      IF (IFAC.NE.8) GO TO 25
+      IF (K.EQ.1) GO TO 25
+      JFAX(1)=8
+      JFAX(K)=6
+   25 CONTINUE
+      NU=NU/IFAC
+      IF (NU.EQ.1) GO TO 50
+      IF (IFAC.NE.8) GO TO 20
+   30 CONTINUE
+      IL=IL+1
+      IFAC=NLFAX(IL)
+      IF (IFAC.GT.1) GO TO 20
+C
+      WRITE(6,40) N
+   40 FORMAT(4H1N =,I4,27H - CONTAINS ILLEGAL FACTORS)
+      RETURN
+C
+C     NOW REVERSE ORDER OF FACTORS
+   50 CONTINUE
+      NFAX=K
+      IFAX(1)=NFAX
+      DO 60 I=1,NFAX
+      IFAX(NFAX+2-I)=JFAX(I)
+   60 CONTINUE
+      IFAX(10)=N
+      RETURN
+      END
Index: LMDZ5/trunk/libf/phylmd/rrtm/set_resol_mod.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/set_resol_mod.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/set_resol_mod.F90	(revision 1989)
@@ -0,0 +1,44 @@
+MODULE SET_RESOL_MOD
+CONTAINS
+SUBROUTINE SET_RESOL(KRESOL)
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+USE TPM_GEN
+USE TPM_DIM
+USE TPM_TRANS
+USE TPM_DISTR
+USE TPM_GEOMETRY
+USE TPM_FIELDS
+USE TPM_FFT
+USE ABORT_TRANS_MOD
+
+IMPLICIT NONE
+
+! Declaration of arguments
+
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN) :: KRESOL
+
+! Local varaibles
+INTEGER(KIND=JPIM) :: IRESOL
+
+!     ------------------------------------------------------------------
+
+IRESOL = 1
+IF(PRESENT(KRESOL)) THEN
+  IF(KRESOL < 1 .OR. KRESOL > NMAX_RESOL) THEN
+    WRITE(NOUT,*)'SET_RESOL: UNKNOWN RESOLUTION ',KRESOL,NMAX_RESOL
+    CALL ABORT_TRANS('SET_RESOL:KRESOL < 1 .OR. KRESOL > NMAX_RESOL')
+  ENDIF
+  IRESOL = KRESOL
+ENDIF
+IF(IRESOL /= NCUR_RESOL) THEN
+  NCUR_RESOL = IRESOL 
+  R => DIM_RESOL(NCUR_RESOL)
+  F => FIELDS_RESOL(NCUR_RESOL)
+  G => GEOM_RESOL(NCUR_RESOL)
+  D => DISTR_RESOL(NCUR_RESOL)
+  T => FFT_RESOL(NCUR_RESOL)
+ENDIF
+
+END SUBROUTINE SET_RESOL
+END MODULE SET_RESOL_MOD
Index: LMDZ5/trunk/libf/phylmd/rrtm/setup_dims_mod.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/setup_dims_mod.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/setup_dims_mod.F90	(revision 1989)
@@ -0,0 +1,37 @@
+MODULE SETUP_DIMS_MOD
+CONTAINS
+SUBROUTINE SETUP_DIMS
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+USE TPM_DIM
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM) :: JM,JN,ISPOLEG
+
+!     ------------------------------------------------------------------
+
+ISPOLEG = 0
+DO JM=0,R%NSMAX
+  DO JN=JM,R%NTMAX+1
+    ISPOLEG = ISPOLEG+1
+  ENDDO
+ENDDO
+R%NSPOLEG = ISPOLEG
+
+R%NSPEC_G = (R%NSMAX+1)*(R%NSMAX+2)/2
+R%NSPEC2_G = R%NSPEC_G*2
+
+R%NDGNH = (R%NDGL+1)/2
+
+R%NLEI1 = R%NSMAX+4+MOD(R%NSMAX+4+1,2)
+R%NLEI3 = R%NDGNH+MOD(R%NDGNH+2,2)
+
+R%NLED3 = R%NTMAX+2+MOD(R%NTMAX+3,2)
+R%NLED4 = R%NTMAX+3+MOD(R%NTMAX+4,2)
+
+!     ------------------------------------------------------------------
+
+END SUBROUTINE SETUP_DIMS
+END MODULE SETUP_DIMS_MOD
Index: LMDZ5/trunk/libf/phylmd/rrtm/setup_geom_mod.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/setup_geom_mod.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/setup_geom_mod.F90	(revision 1989)
@@ -0,0 +1,79 @@
+MODULE SETUP_GEOM_MOD
+CONTAINS
+SUBROUTINE SETUP_GEOM
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+USE TPM_GEN
+USE TPM_DIM
+USE TPM_FIELDS
+USE TPM_GEOMETRY
+
+IMPLICIT NONE
+
+REAL(KIND=JPRB) :: ZSQM2(R%NDGL)
+INTEGER(KIND=JPIM) :: IDGLU(0:R%NSMAX,R%NDGNH)
+INTEGER(KIND=JPIM) :: JGL,JM
+
+LOGICAL    :: LLP1,LLP2
+
+!     ------------------------------------------------------------------
+
+LLP1 = NPRINTLEV>0
+LLP2 = NPRINTLEV>1
+
+IF(LLP1) WRITE(NOUT,*) '=== ENTER ROUTINE SETUP_GEOM ==='
+
+ALLOCATE (G%NMEN(R%NDGL))
+IF(LLP2)WRITE(NOUT,9) 'G%NMEN   ',SIZE(G%NMEN   ),SHAPE(G%NMEN   )
+
+IF (G%LREDUCED_GRID) THEN
+  IF (G%LINEAR_GRID) THEN
+    ZSQM2(:) = 0.0_JPRB
+  ELSE
+    ZSQM2(:) = F%R1MU2(:)
+  ENDIF
+  G%NMEN(1) = MIN(R%NSMAX,INT(REAL(G%NLOEN(1)-1,JPRB)/(2.0_JPRB+ZSQM2(1))))
+  DO JGL=2,R%NDGNH
+    G%NMEN(JGL) = MIN(R%NSMAX,MAX(G%NMEN(JGL-1),&
+     &INT(REAL(G%NLOEN(JGL)-1,JPRB)/(2.0_JPRB+ ZSQM2(JGL)))))
+  ENDDO
+  !       * SOUTHERN HEMISPHERE :
+  G%NMEN(R%NDGL) = MIN(R%NSMAX,INT(REAL(G%NLOEN(R%NDGL)-1,JPRB)/(2.0_JPRB+ZSQM2(R%NDGL))))
+  DO JGL=R%NDGL-1, R%NDGNH+1, -1
+    G%NMEN(JGL) = MIN(R%NSMAX,MAX(G%NMEN(JGL+1),&
+     &INT(REAL(G%NLOEN(JGL)-1,JPRB)/(2.0_JPRB+ ZSQM2(JGL)))))
+  ENDDO
+  
+ELSE
+  G%NMEN(:) = R%NSMAX
+ENDIF
+IF(LLP1) THEN
+  WRITE(NOUT,FMT='('' (JGL,G%NLOEN,G%NMEN) '')')
+  WRITE(NOUT,FMT='(8(1X,''('',I4,I4,I4,'')''))')&
+   &(JGL,G%NLOEN(JGL),G%NMEN(JGL),JGL=1,R%NDGL)
+ENDIF
+ALLOCATE(G%NDGLU(0:R%NSMAX))
+IF(LLP2)WRITE(NOUT,9) 'G%NDGLU   ',SIZE(G%NDGLU   ),SHAPE(G%NDGLU   )
+IDGLU(:,:) = 0
+G%NDGLU(:) = 0
+DO JGL=1,R%NDGNH
+  DO JM=0,G%NMEN(JGL)
+    IDGLU(JM,JGL) = 1
+  ENDDO
+ENDDO
+DO JM=0,R%NSMAX
+  DO JGL=1,R%NDGNH
+    G%NDGLU(JM) = G%NDGLU(JM)+IDGLU(JM,JGL)
+  ENDDO
+ENDDO
+IF(LLP1) THEN
+    WRITE(NOUT,FMT='('' (JM,G%NDGLU) '')')
+  WRITE(NOUT,FMT='(10(1X,''('',I4,I4,'')''))')&
+   &(JM,G%NDGLU(JM),JM=0,R%NSMAX)
+ENDIF
+!     ------------------------------------------------------------------
+9 FORMAT(1X,'ARRAY ',A10,' ALLOCATED ',8I8)
+
+END SUBROUTINE SETUP_GEOM
+END MODULE SETUP_GEOM_MOD
Index: LMDZ5/trunk/libf/phylmd/rrtm/setup_trans.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/setup_trans.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/setup_trans.F90	(revision 1989)
@@ -0,0 +1,228 @@
+SUBROUTINE SETUP_TRANS(KSMAX,KDGL,KLOEN,LDLINEAR_GRID,LDSPLIT,&
+&KAPSETS,KTMAX,KRESOL)
+
+!**** *SETUP_TRANS* - Setup transform package for specific resolution
+
+!     Purpose.
+!     --------
+!     To setup for making spectral transforms. Each call to this routine
+!     creates a new resolution up to a maximum of NMAX_RESOL set up in
+!     SETUP_TRANS0. You need to call SETUP_TRANS0 before this routine can
+!     be called.
+
+!**   Interface.
+!     ----------
+!     CALL SETUP_TRANS(...)
+
+!     Explicit arguments : KLOEN,LDLINEAR_GRID,LDSPLIT,KAPSETS are optional arguments
+!     -------------------- 
+!     KSMAX - spectral truncation required
+!     KDGL  - number of Gaussian latitudes
+!     KLOEN(:) - number of points on each Gaussian latitude [2*KDGL]
+!     LDSPLIT - true if split latitudes in grid-point space [false]
+!     LDLINEAR_GRID - true if linear grid
+!     KAPSETS - Number of apple sets in the distribution [0]
+!     KTMAX - truncation order for tendencies?
+!     KRESOL - the resolution identifier
+
+!     KSMAX,KDGL,KTMAX and KLOEN are GLOBAL variables desribing the resolution
+!     in spectral and grid-point space
+
+!     LDSPLIT and KAPSETS describe the distribution among processors of
+!     grid-point data and has no relevance if you are using a single processor
+ 
+!     Method.
+!     -------
+
+!     Externals.  SET_RESOL   - set resolution
+!     ----------  SETUP_DIMS  - setup distribution independent dimensions
+!                 SUMP_TRANS_PRELEG - first part of setup of distr. environment
+!                 SULEG - Compute Legandre polonomial and Gaussian 
+!                         Latitudes and Weights
+!                 SETUP_GEOM - Compute arrays related to grid-point geometry
+!                 SUMP_TRANS - Second part of setup of distributed environment
+!                 SUFFT - setup for FFT
+
+!     Author.
+!     -------
+!        Mats Hamrud *ECMWF*
+
+!     Modifications.
+!     --------------
+!        Original : 00-03-03
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+!ifndef INTERFACE
+
+USE TPM_GEN
+USE TPM_DIM
+USE TPM_DISTR
+USE TPM_GEOMETRY
+USE TPM_FIELDS
+USE TPM_FFT
+
+USE SET_RESOL_MOD
+USE SETUP_DIMS_MOD
+USE SUMP_TRANS_MOD
+USE SUMP_TRANS_PRELEG_MOD
+USE SULEG_MOD
+USE SETUP_GEOM_MOD
+USE SUFFT_MOD
+USE ABORT_TRANS_MOD
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+!endif INTERFACE
+
+IMPLICIT NONE
+
+! Dummy arguments
+
+INTEGER(KIND=JPIM) ,INTENT(IN) :: KSMAX,KDGL
+INTEGER(KIND=JPIM) ,OPTIONAL,INTENT(IN) :: KLOEN(:)
+LOGICAL   ,OPTIONAL,INTENT(IN) :: LDLINEAR_GRID
+LOGICAL   ,OPTIONAL,INTENT(IN) :: LDSPLIT
+INTEGER(KIND=JPIM) ,OPTIONAL,INTENT(IN) :: KAPSETS
+INTEGER(KIND=JPIM) ,OPTIONAL,INTENT(IN) :: KTMAX
+INTEGER(KIND=JPIM) ,OPTIONAL,INTENT(OUT):: KRESOL
+
+!ifndef INTERFACE
+
+! Local variables
+INTEGER(KIND=JPIM) :: JGL
+
+LOGICAL :: LLP1,LLP2
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SETUP_TRANS',0,ZHOOK_HANDLE)
+
+IF(MSETUP0 /= 1) THEN
+  CALL ABORT_TRANS('SETUP_TRANS: SETUP_TRANS0 HAS TO BE CALLED BEFORE SETUP_TRANS')
+ENDIF
+LLP1 = NPRINTLEV>0
+LLP2 = NPRINTLEV>1
+IF(LLP1) WRITE(NOUT,*) '=== ENTER ROUTINE SETUP_TRANS ==='
+
+! Allocate resolution dependent structures
+IF(.NOT. ALLOCATED(DIM_RESOL)) THEN
+  NDEF_RESOL = 1
+  ALLOCATE(DIM_RESOL(NMAX_RESOL))
+  ALLOCATE(FIELDS_RESOL(NMAX_RESOL))
+  ALLOCATE(GEOM_RESOL(NMAX_RESOL))
+  ALLOCATE(DISTR_RESOL(NMAX_RESOL))
+  ALLOCATE(FFT_RESOL(NMAX_RESOL))
+ELSE
+  NDEF_RESOL = NDEF_RESOL+1
+  IF(NDEF_RESOL > NMAX_RESOL) THEN
+    CALL ABORT_TRANS('SETUP_TRANS:NDEF_RESOL > NMAX_RESOL')
+  ENDIF
+ENDIF
+
+IF (PRESENT(KRESOL)) THEN
+  KRESOL=NDEF_RESOL
+ENDIF
+
+! Point at structures due to be initialized
+CALL SET_RESOL(NDEF_RESOL)
+
+IF(LLP1) WRITE(NOUT,*) '=== DEFINING RESOLUTION ',NCUR_RESOL
+
+
+
+! Defaults for optional arguments
+
+
+G%LREDUCED_GRID = .FALSE.
+G%LINEAR_GRID = .FALSE.
+D%LSPLIT = .FALSE.
+D%NAPSETS = 0
+
+! NON-OPTIONAL ARGUMENTS
+R%NSMAX = KSMAX
+R%NDGL  = KDGL
+R%NDLON = 2*KDGL
+
+IF (KDGL <= 0 .OR. MOD(KDGL,2) /= 0) THEN
+  CALL ABORT_TRANS ('SETUP_TRANS: KDGL IS NOT A POSITIVE, EVEN NUMBER')
+ENDIF
+
+! Optional arguments
+
+ALLOCATE(G%NLOEN(R%NDGL))
+IF(LLP2)WRITE(NOUT,9) 'NLOEN   ',SIZE(G%NLOEN   ),SHAPE(G%NLOEN   )
+IF(PRESENT(KLOEN)) THEN
+  DO JGL=1,R%NDGL
+    IF(KLOEN(JGL) /= R%NDLON) THEN
+      G%LREDUCED_GRID = .TRUE.
+      EXIT
+    ENDIF
+  ENDDO
+ENDIF
+
+IF (G%LREDUCED_GRID) THEN
+  G%NLOEN(:) = KLOEN(1:R%NDGL)
+ELSE
+  G%NLOEN(:) = R%NDLON
+ENDIF
+
+IF(PRESENT(LDSPLIT)) THEN
+  D%LSPLIT = LDSPLIT
+ENDIF
+
+IF(PRESENT(KAPSETS)) THEN
+  D%NAPSETS = KAPSETS
+ENDIF
+
+IF(PRESENT(KTMAX)) THEN
+  R%NTMAX = KTMAX
+ELSE
+  R%NTMAX = R%NSMAX
+ENDIF
+IF(R%NTMAX /= R%NSMAX) THEN
+  !This SHOULD work but I don't know how to test it /MH
+  CALL ABORT_TRANS('SETUP_TRANS:R%NTMAX /= R%NSMAX HAS NOT BEEN VALIDATED')
+ENDIF
+!Temporary?
+IF(PRESENT(LDLINEAR_GRID)) THEN
+  G%LINEAR_GRID = LDLINEAR_GRID
+ELSEIF(R%NSMAX > (R%NDLON+3)/3) THEN
+  G%LINEAR_GRID = .TRUE.
+ENDIF  
+
+!     Setup resolution dependent structures
+!     -------------------------------------
+
+! Setup distribution independent dimensions
+CALL SETUP_DIMS
+
+! First part of setup of distributed environment
+CALL SUMP_TRANS_PRELEG
+
+! Compute Legandre polonomial and Gaussian Latitudes and Weights
+CALL SULEG
+
+!CALL GSTATS(1802,0) MPL 2.12.08
+! Compute arrays related to grid-point geometry
+CALL SETUP_GEOM
+
+! Second part of setup of distributed environment
+CALL SUMP_TRANS
+
+! Initialize Fast Fourier Transform package
+CALL SUFFT
+!CALL GSTATS(1802,1)  MPL 2.12.08
+
+
+IF (LHOOK) CALL DR_HOOK('SETUP_TRANS',1,ZHOOK_HANDLE)
+!     ------------------------------------------------------------------
+9 FORMAT(1X,'ARRAY ',A10,' ALLOCATED ',8I8)
+
+!endif INTERFACE
+
+END SUBROUTINE SETUP_TRANS
+
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/setup_trans.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/setup_trans.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/setup_trans.h	(revision 1989)
@@ -0,0 +1,73 @@
+SUBROUTINE SETUP_TRANS(KSMAX,KDGL,KLOEN,LDLINEAR_GRID,LDSPLIT,&
+&KAPSETS,KTMAX,KRESOL)
+
+!**** *SETUP_TRANS* - Setup transform package for specific resolution
+
+!     Purpose.
+!     --------
+!     To setup for making spectral transforms. Each call to this routine
+!     creates a new resolution up to a maximum of NMAX_RESOL set up in
+!     SETUP_TRANS0. You need to call SETUP_TRANS0 before this routine can
+!     be called.
+
+!**   Interface.
+!     ----------
+!     CALL SETUP_TRANS(...)
+
+!     Explicit arguments : KLOEN,LDLINEAR_GRID,LDSPLIT,KAPSETS are optional arguments
+!     --------------------
+!     KSMAX - spectral truncation required
+!     KDGL  - number of Gaussian latitudes
+!     KLOEN(:) - number of points on each Gaussian latitude [2*KDGL]
+!     LDSPLIT - true if split latitudes in grid-point space [false]
+!     LDLINEAR_GRID - true if linear grid
+!     KAPSETS - Number of apple sets in the distribution [0]
+!     KTMAX - truncation order for tendencies?
+!     KRESOL - the resolution identifier
+
+!     KSMAX,KDGL,KTMAX and KLOEN are GLOBAL variables desribing the resolution
+!     in spectral and grid-point space
+
+!     LDSPLIT and KAPSETS describe the distribution among processors of
+!     grid-point data and has no relevance if you are using a single processor
+
+!     Method.
+!     -------
+
+!     Externals.  SET_RESOL   - set resolution
+!     ----------  SETUP_DIMS  - setup distribution independent dimensions
+!                 SUMP_TRANS_PRELEG - first part of setup of distr. environment
+!                 SULEG - Compute Legandre polonomial and Gaussian
+!                         Latitudes and Weights
+!                 SETUP_GEOM - Compute arrays related to grid-point geometry
+!                 SUMP_TRANS - Second part of setup of distributed environment
+!                 SUFFT - setup for FFT
+
+!     Author.
+!     -------
+!        Mats Hamrud *ECMWF*
+
+!     Modifications.
+!     --------------
+!        Original : 00-03-03
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+! Dummy arguments
+
+INTEGER(KIND=JPIM) ,INTENT(IN) :: KSMAX,KDGL
+INTEGER(KIND=JPIM) ,OPTIONAL,INTENT(IN) :: KLOEN(:)
+LOGICAL   ,OPTIONAL,INTENT(IN) :: LDLINEAR_GRID
+LOGICAL   ,OPTIONAL,INTENT(IN) :: LDSPLIT
+INTEGER(KIND=JPIM) ,OPTIONAL,INTENT(IN) :: KAPSETS
+INTEGER(KIND=JPIM) ,OPTIONAL,INTENT(IN) :: KTMAX
+INTEGER(KIND=JPIM) ,OPTIONAL,INTENT(OUT):: KRESOL
+
+
+END SUBROUTINE SETUP_TRANS
+
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_cldprop.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_cldprop.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_cldprop.F90	(revision 1989)
@@ -0,0 +1,340 @@
+SUBROUTINE SRTM_CLDPROP &
+ & ( KLEV, K_ICLDATM, K_INFLAG, K_ICEFLAG, K_LIQFLAG, K_NSTR,&
+ & P_CLDFRAC, P_CLDDAT1, P_CLDDAT2, P_CLDDAT3, P_CLDDAT4, P_CLDDATMOM,&
+ & P_TAUCLDORIG, P_TAUCLOUD, P_SSACLOUD, P_XMOM &
+ & )  
+
+!  path:      $Source: /storm/rc1/cvsroot/rc/rrtm_sw/src/cldprop_sw.f,v $
+!  author:    $Author: jdelamer $
+!  revision:  $Revision: 2.6 $
+!  created:   $Date: 2002/04/04 18:29:47 $
+
+!  PURPOSE:  COMPUTE THE CLOUD OPTICAL DEPTH(S) FOR EACH CLOUDY
+!  LAYER.  NOTE:  ONLY INFLAG = 0 AND INFLAG=2/LIQFLAG=1,
+!  ICEFLAG=3
+!  (HU & STAMNES, Q. FU) ARE IMPLEMENTED.
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARSRTM ,  ONLY : JPLAY, JPBAND, JPB1, JPB2
+USE YOESRTOP,  ONLY : EXTLIQ1, SSALIQ1, ASYLIQ1 &
+ & , EXTICE3, SSAICE3, ASYICE3, FDLICE3 &
+ & , FDELTA , EXTCOICE, SSACOICE, GICE, FORWICE &
+ & , EXTCOLIQ, SSACOLIQ, GLIQ, FORWLIQ  
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+
+!-- real arguments
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+INTEGER(KIND=JPIM),INTENT(OUT)   :: K_ICLDATM 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INFLAG 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_ICEFLAG 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LIQFLAG 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_NSTR 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_CLDFRAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_CLDDAT1(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_CLDDAT2(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_CLDDAT3(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_CLDDAT4(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_CLDDATMOM(0:16,JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(INOUT) :: P_TAUCLDORIG(JPLAY,JPBAND) 
+REAL(KIND=JPRB)   ,INTENT(INOUT) :: P_TAUCLOUD(JPLAY,JPBAND) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_SSACLOUD(JPLAY,JPBAND) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_XMOM(0:16,JPLAY,JPBAND) 
+!-- integer arguments
+
+!-- real locals
+REAL(KIND=JPRB) :: Z_EPS
+REAL(KIND=JPRB) :: Z_TAUCLDORIG_A, Z_FFP, Z_FFP1, Z_FFPSSA, Z_SSACLOUD_A, Z_TAUCLOUD_A
+REAL(KIND=JPRB) :: Z_CWP, Z_FICE, Z_RADICE, Z_FACTOR, Z_FINT, Z_FLIQ, Z_RADLIQ
+REAL(KIND=JPRB) :: Z_TAUICEORIG, Z_SCATICE, Z_SSAICE, Z_TAUICE &
+ & , Z_TAULIQORIG, Z_SCATLIQ, Z_SSALIQ, Z_TAULIQ  
+
+!-- integer locals
+INTEGER(KIND=JPIM) :: I_NCBANDS, I_NLAYERS
+INTEGER(KIND=JPIM) :: IB, IB1, IB2, I_LAY, ISTR , INDEX
+INTEGER(KIND=JPIM) :: I_NDBUG
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+ 
+!     INCLUDE 'param.f'
+
+!      COMMON /CONTROL/   IAER, NSTR, IOUT, ISTART, IEND, ICLD 
+
+!      COMMON /PROFILE/   NLAYERS,PAVEL(MXLAY),TAVEL(MXLAY),
+!     &                   PZ(0:MXLAY),TZ(0:MXLAY)
+
+!      COMMON /CLOUDIN/   INFLAG,CLDDAT1(MXLAY),CLDDAT2(MXLAY),
+!     &                   ICEFLAG,LIQFLAG,CLDDAT3(MXLAY),CLDDAT4(MXLAY),
+!     &                   CLDDATMOM(0:16,MXLAY)
+
+!      COMMON /CLOUDDAT/  NCBANDS,CLDFRAC(MXLAY),
+!     &     TAUCLOUD(MXLAY,NBANDS),SSACLOUD(MXLAY,NBANDS),
+!     &     XMOM(0:16,MXLAY,NBANDS),TAUCLDORIG(MXLAY,NBANDS)
+
+!      COMMON /HVERSN/    HVRRTM,HVRRTR,HVRATM,HVRSET,HVRTAU,
+!     *                   HVDUM1(4),HVRUTL,HVREXT,
+!     *                   HVRD1M,HVRR1M,HVREPK,HVRLPK,HVRAER,HVRBKA,
+!     *                   HVRBKB,HVRCLD,HVRDIS,HVRLAM,HVRPAR
+
+!      CHARACTER*15 HVRRTM,HVRRTR,HVRATM,HVRSET,HVRTAU,
+!     *            HVDUM1,HVRUTL,HVREXT,
+!     *            HVRD1M,HVRR1M,HVREPK,HVRLPK,HVRAER,HVRBKA,
+!     *            HVRBKB,HVRCLD,HVRDIS,HVRLAM,HVRPAR
+
+!      DIMENSION ABSICE0(2), ABSICE1(2,5), ABSICE2(40,16)
+!      DIMENSION ABSLIQ1(58,16)
+
+!      DIMENSION ABSCOICE(NBANDS), ABSCOLIQ(NBANDS)
+!      DIMENSION EXTCOLIQ(NBANDS),SSACOLIQ(NBANDS),GLIQ(NBANDS)
+!      DIMENSION EXTCOICE(NBANDS),SSACOICE(NBANDS),GICE(NBANDS)
+!      DIMENSION FORWLIQ(NBANDS),FORWICE(NBANDS)
+
+! Added for SW
+!      DIMENSION EXTLIQ1(58,NBANDS), SSALIQ1(58,NBANDS), 
+!     &     ASYLIQ1(58,NBANDS)
+!      DIMENSION EXTICE3(27,NBANDS), SSAICE3(27,NBANDS),
+!     &     ASYICE3(27,NBANDS),FDLICE3(28,NBANDS)
+!      DIMENSION FDELTA(NBANDS)
+
+!DATA EPS /1.E-6/
+
+! HVRCLD = '$Revision: 2.6 $'
+
+IF (LHOOK) CALL DR_HOOK('SRTM_CLDPROP',0,ZHOOK_HANDLE)
+Z_EPS = 1.E-06_JPRB
+I_NDBUG = 3
+
+K_ICLDATM = 0
+I_NCBANDS = 29
+I_NLAYERS = KLEV
+IB1     = JPB1
+IB2     = JPB2
+
+IF (I_NDBUG <= 2) THEN
+  print *,'cldprop before loop K_INFLAG, K_ICEFLAG, K_LIQFLAG:',K_INFLAG,K_ICEFLAG,K_LIQFLAG,IB1,IB2
+ENDIF
+
+DO I_LAY = 1, I_NLAYERS
+
+  IF (P_CLDFRAC(I_LAY) >= Z_EPS) THEN
+    K_ICLDATM = 1
+
+    IF (I_NDBUG <= 2) THEN
+      print 9101,I_LAY,K_ICLDATM,P_CLDFRAC(I_LAY),P_CLDDAT1(I_LAY),P_CLDDAT2(I_LAY),P_CLDDAT3(I_LAY)&
+       & ,P_CLDDAT4(I_LAY),(P_CLDDATMOM(ISTR,I_LAY),ISTR=0,K_NSTR)  
+      9101  format(1x,'Cld :',2I3,f7.4,7E12.5)
+    ENDIF
+
+!   Ice clouds and water clouds combined.
+    IF (K_INFLAG == 0) THEN
+      Z_TAUCLDORIG_A = P_CLDDAT1(I_LAY)
+      Z_FFP = P_CLDDATMOM(K_NSTR,I_LAY)
+      Z_FFP1 = 1.0 - Z_FFP
+      Z_FFPSSA = 1.0 - Z_FFP * P_CLDDAT2(I_LAY)
+      Z_SSACLOUD_A = Z_FFP1*P_CLDDAT2(I_LAY)/Z_FFPSSA
+      Z_TAUCLOUD_A = Z_FFPSSA*Z_TAUCLDORIG_A
+
+!       DO IB = 16,NBANDS
+      DO IB = IB1 , IB2
+        P_TAUCLDORIG(I_LAY,IB) = Z_TAUCLDORIG_A
+        P_SSACLOUD(I_LAY,IB) = Z_SSACLOUD_A
+        P_TAUCLOUD(I_LAY,IB) = Z_TAUCLOUD_A
+
+        DO ISTR = 0,K_NSTR
+          P_XMOM(ISTR,I_LAY,IB) = (P_CLDDATMOM(ISTR,I_LAY) - Z_FFP)/ &
+           & (Z_FFP1)  
+        ENDDO
+      ENDDO
+
+!   Separate treatement of ice clouds and water clouds.
+    ELSEIF(K_INFLAG == 2) THEN       
+      Z_CWP = P_CLDDAT1(I_LAY)
+      Z_FICE = P_CLDDAT2(I_LAY)
+      Z_RADICE = P_CLDDAT3(I_LAY)
+
+      IF (I_NDBUG <= 1) THEN
+        print 9102,I_LAY,Z_CWP,Z_FICE,Z_RADICE
+        9102     format(1x,'A',I3,3E13.6)
+      ENDIF
+
+!   Calculation of absorption coefficients due to ice clouds.
+      IF (Z_FICE == 0.0) THEN
+!         NCBANDS = 29
+!         DO IB = 16, NCBANDS
+        DO IB = IB1 , IB2
+          EXTCOICE(IB) = 0.0_JPRB
+          SSACOICE(IB) = 1.0_JPRB
+          GICE(IB)     = 1.0_JPRB
+          FORWICE(IB)  = 0.0_JPRB
+
+          IF (I_NDBUG <= 1) THEN
+            print 9103,I_LAY,Z_FICE,Z_CWP,Z_RADICE,IB,EXTCOICE(IB),SSACOICE(IB),GICE(IB),FORWICE(IB)
+            9103         format(1x,'B',I3,F6.3,2E13.6,I3,4E12.5)
+          ENDIF
+
+        ENDDO
+
+      ELSEIF (K_ICEFLAG == 3) THEN
+        IF (Z_RADICE < 10.0 .OR. Z_RADICE > 140.0) STOP 'ICE EFFECTIVE SIZE OUT OF BOUNDS'
+!         NCBANDS = 29
+        Z_FACTOR = (Z_RADICE - 5._JPRB)/5._JPRB
+        INDEX = INT(Z_FACTOR)
+        IF (INDEX == 27) INDEX = 26
+        Z_FINT = Z_FACTOR - REAL(INDEX)
+
+!         DO IB=16,NCBANDS
+        DO IB = IB1 , IB2
+          EXTCOICE(IB) = Z_FICE * (EXTICE3(INDEX,IB) + Z_FINT * &
+           & (EXTICE3(INDEX+1,IB) - EXTICE3(INDEX,IB)))  
+          SSACOICE(IB) = SSAICE3(INDEX,IB) + Z_FINT * &
+           & (SSAICE3(INDEX+1,IB) - SSAICE3(INDEX,IB))  
+          GICE(IB) = ASYICE3(INDEX,IB) + Z_FINT * &
+           & (ASYICE3(INDEX+1,IB) - ASYICE3(INDEX,IB))  
+          FDELTA(IB) = FDLICE3(INDEX,IB) + Z_FINT * &
+           & (FDLICE3(INDEX+1,IB) - FDLICE3(INDEX,IB))  
+          if (fdelta(ib) < 0.0) STOP 'FDELTA LESS THAN 0.0'
+          if (fdelta(ib) > 1.0) STOP 'FDELTA GT THAN 1.0'                     
+          FORWICE(IB) = FDELTA(IB) + 0.5 / SSACOICE(IB)
+! See Fu 1996 p. 2067 
+          IF (FORWICE(IB) > GICE(IB)) FORWICE(IB) = GICE(IB)
+! Check to ensure all calculated quantities are within physical limits.
+          if (extcoice(ib) < 0.0_JPRB) STOP 'ICE EXTINCTION LESS THAN 0.0'
+          if (ssacoice(ib) > 1.0_JPRB) STOP 'ICE SSA GRTR THAN 1.0'
+          if (ssacoice(ib) < 0.0_JPRB) STOP 'ICE SSA LESS THAN 0.0'
+          if (gice(ib) > 1.0_JPRB) STOP 'ICE ASYM GRTR THAN 1.0'
+          if (gice(ib) < 0.0_JPRB) STOP 'ICE ASYM LESS THAN 0.0'
+
+          IF (I_NDBUG <= 1) THEN
+            print 9104,I_LAY,Z_FICE,Z_CWP,Z_RADICE,IB,EXTCOICE(IB),SSACOICE(IB),GICE(IB),FORWICE(IB),FDELTA(IB)
+            9104         format(1x,'C',I3,F5.3,2E13.6,I3,5E12.5)
+          ENDIF
+
+        ENDDO
+      ENDIF
+      print *,'end of ice computations for I_LAY=',I_LAY
+                  
+!  Calculation of absorption coefficients due to water clouds.
+      Z_FLIQ = 1. - Z_FICE
+      IF (Z_FLIQ == 0.0) THEN
+!         NCBANDS = 29
+!         DO IB = 16, NCBANDS
+        DO IB = IB1 , IB2
+          EXTCOLIQ(IB) = 0.0
+          SSACOLIQ(IB) = 1.0
+          GLIQ(IB) = 1.0
+          FORWLIQ(IB) = 0.0
+
+          IF (I_NDBUG <= 1) THEN
+            print 9105,I_LAY,Z_FLIQ,Z_CWP,IB,EXTCOLIQ(IB),SSACOLIQ(IB),GLIQ(IB),FORWLIQ(IB)
+            9105         format(1x,'D',I3,F5.3,1E13.6,I3,4E12.5)
+          ENDIF
+
+        ENDDO
+
+      ELSEIF (K_LIQFLAG == 1) THEN
+        Z_RADLIQ = P_CLDDAT4(I_LAY)
+        IF (Z_RADLIQ < 1.5 .OR. Z_RADLIQ > 60.) STOP 'LIQUID EFFECTIVE RADIUS OUT OF BOUNDS'
+        INDEX = INT(Z_RADLIQ - 1.5)
+        IF (INDEX == 0) INDEX = 1
+        IF (INDEX == 58) INDEX = 57
+        Z_FINT = Z_RADLIQ - 1.5 - REAL(INDEX)
+!         NCBANDS = 29
+
+!         DO IB = 16, NCBANDS
+        DO IB = IB1 , IB2
+          EXTCOLIQ(IB) = Z_FLIQ * (EXTLIQ1(INDEX,IB) + Z_FINT * &
+           & (EXTLIQ1(INDEX+1,IB) - (EXTLIQ1(INDEX,IB))))  
+          SSACOLIQ(IB) = SSALIQ1(INDEX,IB) + Z_FINT * &
+           & (SSALIQ1(INDEX+1,IB) - SSALIQ1(INDEX,IB))  
+          GLIQ(IB) = ASYLIQ1(INDEX,IB) + Z_FINT * &
+           & (ASYLIQ1(INDEX+1,IB) - ASYLIQ1(INDEX,IB))  
+          FORWLIQ(IB) = GLIQ(IB)**K_NSTR
+! Check to ensure all calculated quantities are within physical limits.
+          if (extcoliq(ib) < 0.0_JPRB) STOP 'LIQUID EXTINCTION LESS THAN 0.0'
+          if (ssacoliq(ib) > 1.0_JPRB) STOP 'LIQUID SSA GRTR THAN 1.0'
+          if (ssacoliq(ib) < 0.0_JPRB) STOP 'LIQUID SSA LESS THAN 0.0'
+          if (gliq(ib) > 1.0_JPRB) STOP 'LIQUID ASYM GRTR THAN 1.0'
+          if (gliq(ib) < 0.0_JPRB) STOP 'LIQUID ASYM LESS THAN 0.0'
+
+          IF (I_NDBUG <= 1) THEN
+            print 9106,I_LAY,Z_FLIQ,Z_CWP,Z_RADLIQ,IB,EXTCOLIQ(IB),SSACOLIQ(IB),GLIQ(IB),FORWLIQ(IB)
+            9106         format(1x,'E',I3,F5.3,2E13.6,I3,5E12.5)
+          ENDIF
+
+        ENDDO
+      ENDIF
+
+      IF (I_NDBUG <= 1) THEN
+        print *,'end of liquid water computations for I_LAY=',I_LAY
+      ENDIF
+
+!       DO IB = 16, NCBANDS
+      DO IB = IB1 , IB2
+        Z_TAULIQORIG = Z_CWP * EXTCOLIQ(IB)
+        Z_TAUICEORIG = Z_CWP * EXTCOICE(IB)
+        P_TAUCLDORIG(I_LAY,IB) = Z_TAULIQORIG + Z_TAUICEORIG
+
+        IF (I_NDBUG <= 1) THEN
+          print 9107,IB,Z_TAULIQORIG,Z_TAUICEORIG,P_TAUCLDORIG(I_LAY,IB),Z_CWP &
+           & ,EXTCOLIQ(IB),EXTCOICE(IB),SSACOLIQ(IB),SSACOICE(IB) &
+           & ,FORWLIQ(IB),FORWICE(IB)  
+          9107       format(1x,'F',I3,10E12.5)
+        ENDIF
+
+        Z_SSALIQ = SSACOLIQ(IB) * (1. - FORWLIQ(IB)) / &
+         & (1. - FORWLIQ(IB) * SSACOLIQ(IB))  
+        Z_TAULIQ =  (1. - FORWLIQ(IB) * SSACOLIQ(IB)) * &
+         & Z_TAULIQORIG  
+        Z_SSAICE = SSACOICE(IB) * (1. - FORWICE(IB)) / &
+         & (1. - FORWICE(IB) * SSACOICE(IB))  
+        Z_TAUICE =  (1. - FORWICE(IB) * SSACOICE(IB)) * &
+         & Z_TAUICEORIG  
+        Z_SCATLIQ = Z_SSALIQ * Z_TAULIQ
+        Z_SCATICE = Z_SSAICE * Z_TAUICE
+        P_TAUCLOUD(I_LAY,IB) = Z_TAULIQ + Z_TAUICE
+        P_SSACLOUD(I_LAY,IB) = (Z_SCATLIQ + Z_SCATICE) / &
+         & P_TAUCLOUD(I_LAY,IB)  
+        P_XMOM(0,I_LAY,IB) = 1.0
+
+        IF (I_NDBUG <= 1) THEN
+          print 9108,IB,Z_TAULIQORIG,Z_TAUICEORIG,Z_SSALIQ,Z_TAULIQ,Z_SCATLIQ,Z_SSAICE,Z_TAUICE,Z_SCATICE
+          9108       format(1x,'G',I3,8E13.6)
+        ENDIF
+
+        DO ISTR = 1, K_NSTR
+!This commented code is the standard method for delta-m scaling. In accordance
+!  with the 1996 Fu paper, equation A.3, the moments for ice were calculated
+!  as in the uncommented code.
+!                     XMOM(ISTR,LAY,IB) = (SCATLIQ *  &
+!     &                    (GLIQ(IB)**ISTR - FORWLIQ(IB)) / &
+!     &                    (1. - FORWLIQ(IB)) &
+!     &                    + SCATICE * &
+!     &                    (GICE(IB)**ISTR - FORWICE(IB)) /  &
+!     &                    (1. - FORWICE(IB)))/(SCATLIQ + SCATICE)
+
+          P_XMOM(ISTR,I_LAY,IB) = (1.0/(Z_SCATLIQ+Z_SCATICE))* &
+           & (Z_SCATLIQ*(GLIQ(IB)**ISTR - FORWLIQ(IB)) / &
+           & (1. - FORWLIQ(IB)) &
+           & + Z_SCATICE * &
+           & ((gice(ib)-forwice(ib))/(1.0-forwice(ib)))**ISTR)  
+        ENDDO
+      ENDDO
+
+    ENDIF
+
+  ENDIF
+
+ENDDO
+
+IF (I_NDBUG <= 1) THEN
+  print *,'about to leave SRTM_CLDPROP'
+ENDIF
+
+!-----------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CLDPROP',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_CLDPROP
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_cldprop.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_cldprop.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_cldprop.intfb.h	(revision 1989)
@@ -0,0 +1,26 @@
+INTERFACE
+SUBROUTINE SRTM_CLDPROP&
+ & ( KLEV, K_ICLDATM, K_INFLAG, K_ICEFLAG, K_LIQFLAG, K_NSTR,&
+ & P_CLDFRAC, P_CLDDAT1, P_CLDDAT2, P_CLDDAT3, P_CLDDAT4, P_CLDDATMOM,&
+ & P_TAUCLDORIG, P_TAUCLOUD, P_SSACLOUD, P_XMOM&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARSRTM , ONLY : JPLAY, JPBAND, JPB1, JPB2
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+INTEGER(KIND=JPIM),INTENT(OUT) :: K_ICLDATM
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INFLAG
+INTEGER(KIND=JPIM),INTENT(IN) :: K_ICEFLAG
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LIQFLAG
+INTEGER(KIND=JPIM),INTENT(IN) :: K_NSTR
+REAL(KIND=JPRB) ,INTENT(IN) :: P_CLDFRAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_CLDDAT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_CLDDAT2(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_CLDDAT3(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_CLDDAT4(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_CLDDATMOM(0:16,JPLAY)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: P_TAUCLDORIG(JPLAY,JPBAND)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: P_TAUCLOUD(JPLAY,JPBAND)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_SSACLOUD(JPLAY,JPBAND)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_XMOM(0:16,JPLAY,JPBAND)
+END SUBROUTINE SRTM_CLDPROP
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb16.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb16.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb16.F90	(revision 1989)
@@ -0,0 +1,103 @@
+SUBROUTINE SRTM_CMBGB16
+
+!
+!  Original version:       Michael J. Iacono; July, 1998
+!  Revision for RRTM_SW:   Michael J. Iacono; November, 2002
+!  Revision for RRTMG_SW:  Michael J. Iacono; December, 2003
+!
+!  The subroutines CMBGB16->CMBGB29 input the absorption coefficient
+!  data for each band, which are defined for 16 g-points and 14 spectral
+!  bands. The data are combined with appropriate weighting following the
+!  g-point mapping arrays specified in RRTMG_SW_INIT.  Solar source 
+!  function data in array SFLUXREF are combined without weighting.  All
+!  g-point reduced data are put into new arrays for use in RRTMG_SW.
+!
+!  BAND 16:  2600-3250 cm-1 (low key- H2O,CH4; high key - CH4)
+!
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM , JPRB
+USE YOMHOOK   ,ONLY : LHOOK, DR_HOOK
+
+USE YOESRTWN , ONLY : NGC, NGN, RWGT
+USE YOESRTA16, ONLY : KA, KB, SELFREF, FORREF, SFLUXREF, &
+                    & KAC, KBC, SELFREFC, FORREFC, SFLUXREFC
+
+IMPLICIT NONE
+
+! Local variables
+INTEGER(KIND=JPIM) :: JN, JT, JP, IGC, IPR, IPRSM
+REAL(KIND=JPRB)    :: ZSUMK, ZSUMF
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+!     ------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB16',0,ZHOOK_HANDLE)
+
+DO JN = 1,9
+  DO JT = 1,5
+    DO JP = 1,13
+      IPRSM = 0
+      DO IGC = 1,NGC(1)
+        ZSUMK = 0.
+        DO IPR = 1, NGN(IGC)
+          IPRSM = IPRSM + 1
+          ZSUMK = ZSUMK + KA(JN,JT,JP,IPRSM)*RWGT(IPRSM)
+        ENDDO
+        KAC(JN,JT,JP,IGC) = ZSUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,5
+  DO JP = 13,59
+    IPRSM = 0
+    DO IGC = 1,NGC(1)
+      ZSUMK = 0.
+      DO IPR = 1, NGN(IGC)
+        IPRSM = IPRSM + 1
+        ZSUMK = ZSUMK + KB(JT,JP,IPRSM)*RWGT(IPRSM)
+      ENDDO
+      KBC(JT,JP,IGC) = ZSUMK
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(1)
+    ZSUMK = 0.
+    DO IPR = 1, NGN(IGC)
+      IPRSM = IPRSM + 1
+      ZSUMK = ZSUMK + SELFREF(JT,IPRSM)*RWGT(IPRSM)
+    ENDDO
+    SELFREFC(JT,IGC) = ZSUMK
+  ENDDO
+ENDDO
+
+DO JT = 1,3
+  IPRSM = 0
+  DO IGC = 1,NGC(1)
+    ZSUMK = 0.
+    DO IPR = 1, NGN(IGC)
+      IPRSM = IPRSM + 1
+      ZSUMK = ZSUMK + FORREF(JT,IPRSM)*RWGT(IPRSM)
+    ENDDO
+    FORREFC(JT,IGC) = ZSUMK
+  ENDDO
+ENDDO
+
+IPRSM = 0
+DO IGC = 1,NGC(1)
+  ZSUMF = 0.
+  DO IPR = 1, NGN(IGC)
+    IPRSM = IPRSM + 1
+    ZSUMF = ZSUMF + SFLUXREF(IPRSM)
+  ENDDO
+  SFLUXREFC(IGC) = ZSUMF
+ENDDO
+
+!     -----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB16',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_CMBGB16
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb16.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb16.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb16.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_CMBGB16
+END SUBROUTINE SRTM_CMBGB16
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb17.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb17.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb17.F90	(revision 1989)
@@ -0,0 +1,94 @@
+SUBROUTINE SRTM_CMBGB17
+
+!     BAND 17:  3250-4000 cm-1 (low - H2O,CO2; high - H2O,CO2)
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM , JPRB
+USE YOMHOOK   ,ONLY : LHOOK, DR_HOOK
+
+USE YOESRTWN , ONLY : NGC, NGS, NGN, RWGT
+USE YOESRTA17, ONLY : KA, KB, SELFREF, FORREF, SFLUXREF, &
+                    & KAC, KBC, SELFREFC, FORREFC, SFLUXREFC
+
+IMPLICIT NONE
+
+! Local variables
+INTEGER(KIND=JPIM) :: JN, JT, JP, IGC, IPR, IPRSM
+REAL(KIND=JPRB)    :: ZSUMK, ZSUMF
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+!     ------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB17',0,ZHOOK_HANDLE)
+
+DO JN = 1,9
+  DO JT = 1,5
+    DO JP = 1,13
+      IPRSM = 0
+      DO IGC = 1,NGC(2)
+        ZSUMK = 0.
+        DO IPR = 1, NGN(NGS(1)+IGC)
+          IPRSM = IPRSM + 1
+          ZSUMK = ZSUMK + KA(JN,JT,JP,IPRSM)*RWGT(IPRSM+16)
+        ENDDO
+        KAC(JN,JT,JP,IGC) = ZSUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JN = 1,5
+  DO JT = 1,5
+    DO JP = 13,59
+      IPRSM = 0
+      DO IGC = 1,NGC(2)
+        ZSUMK = 0.
+        DO IPR = 1, NGN(NGS(1)+IGC)
+          IPRSM = IPRSM + 1
+          ZSUMK = ZSUMK + KB(JN,JT,JP,IPRSM)*RWGT(IPRSM+16)
+        ENDDO
+        KBC(JN,JT,JP,IGC) = ZSUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(2)
+    ZSUMK = 0.
+    DO IPR = 1, NGN(NGS(1)+IGC)
+      IPRSM = IPRSM + 1
+      ZSUMK = ZSUMK + SELFREF(JT,IPRSM)*RWGT(IPRSM+16)
+    ENDDO
+    SELFREFC(JT,IGC) = ZSUMK
+  ENDDO
+ENDDO
+
+DO JT = 1,4
+  IPRSM = 0
+  DO IGC = 1,NGC(2)
+    ZSUMK = 0.
+    DO IPR = 1, NGN(NGS(1)+IGC)
+      IPRSM = IPRSM + 1
+      ZSUMK = ZSUMK + FORREF(JT,IPRSM)*RWGT(IPRSM+16)
+    ENDDO
+    FORREFC(JT,IGC) = ZSUMK
+  ENDDO
+ENDDO
+
+DO JP = 1,5
+  IPRSM = 0
+  DO IGC = 1,NGC(2)
+    ZSUMF = 0.
+    DO IPR = 1, NGN(NGS(1)+IGC)
+      IPRSM = IPRSM + 1
+      ZSUMF = ZSUMF + SFLUXREF(IPRSM,JP)
+    ENDDO
+    SFLUXREFC(IGC,JP) = ZSUMF
+  ENDDO
+ENDDO
+
+!     -----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB17',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_CMBGB17
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb17.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb17.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb17.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_CMBGB17
+END SUBROUTINE SRTM_CMBGB17
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb18.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb18.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb18.F90	(revision 1989)
@@ -0,0 +1,92 @@
+SUBROUTINE SRTM_CMBGB18
+
+!     BAND 18:  4000-4650 cm-1 (low - H2O,CH4; high - CH4)
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM , JPRB
+USE YOMHOOK   ,ONLY : LHOOK, DR_HOOK
+
+USE YOESRTWN , ONLY : NGC, NGS, NGN, RWGT
+USE YOESRTA18, ONLY : KA, KB, SELFREF, FORREF, SFLUXREF, &
+                    & KAC, KBC, SELFREFC, FORREFC, SFLUXREFC
+
+IMPLICIT NONE
+
+! Local variables
+INTEGER(KIND=JPIM) :: JN, JT, JP, IGC, IPR, IPRSM
+REAL(KIND=JPRB)    :: ZSUMK, ZSUMF
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+!     ------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB18',0,ZHOOK_HANDLE)
+
+DO JN = 1,9
+  DO JT = 1,5
+    DO JP = 1,13
+      IPRSM = 0
+      DO IGC = 1,NGC(3)
+        ZSUMK = 0.
+        DO IPR = 1, NGN(NGS(2)+IGC)
+          IPRSM = IPRSM + 1
+          ZSUMK = ZSUMK + KA(JN,JT,JP,IPRSM)*RWGT(IPRSM+32)
+        ENDDO
+        KAC(JN,JT,JP,IGC) = ZSUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,5
+  DO JP = 13,59
+    IPRSM = 0
+    DO IGC = 1,NGC(3)
+      ZSUMK = 0.
+      DO IPR = 1, NGN(NGS(2)+IGC)
+        IPRSM = IPRSM + 1
+        ZSUMK = ZSUMK + KB(JT,JP,IPRSM)*RWGT(IPRSM+32)
+      ENDDO
+      KBC(JT,JP,IGC) = ZSUMK
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(3)
+    ZSUMK = 0.
+    DO IPR = 1, NGN(NGS(2)+IGC)
+      IPRSM = IPRSM + 1
+      ZSUMK = ZSUMK + SELFREF(JT,IPRSM)*RWGT(IPRSM+32)
+    ENDDO
+    SELFREFC(JT,IGC) = ZSUMK
+  ENDDO
+ENDDO
+
+DO JT = 1,3
+  IPRSM = 0
+  DO IGC = 1,NGC(3)
+    ZSUMK = 0.
+    DO IPR = 1, NGN(NGS(2)+IGC)
+      IPRSM = IPRSM + 1
+      ZSUMK = ZSUMK + FORREF(JT,IPRSM)*RWGT(IPRSM+32)
+    ENDDO
+    FORREFC(JT,IGC) = ZSUMK
+  ENDDO
+ENDDO
+
+DO JP = 1,9
+  IPRSM = 0
+  DO IGC = 1,NGC(3)
+    ZSUMF = 0.
+    DO IPR = 1, NGN(NGS(2)+IGC)
+      IPRSM = IPRSM + 1
+      ZSUMF = ZSUMF + SFLUXREF(IPRSM,JP)
+    ENDDO
+    SFLUXREFC(IGC,JP) = ZSUMF
+  ENDDO
+ENDDO
+
+!     -----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB18',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_CMBGB18
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb18.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb18.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb18.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_CMBGB18
+END SUBROUTINE SRTM_CMBGB18
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb19.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb19.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb19.F90	(revision 1989)
@@ -0,0 +1,92 @@
+SUBROUTINE SRTM_CMBGB19
+
+!     BAND 19:  4650-5150 cm-1 (low - H2O,CO2; high - CO2)
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM , JPRB
+USE YOMHOOK   ,ONLY : LHOOK, DR_HOOK
+
+USE YOESRTWN , ONLY : NGC, NGS, NGN, RWGT
+USE YOESRTA19, ONLY : KA, KB, SELFREF, FORREF, SFLUXREF, &
+                    & KAC, KBC, SELFREFC, FORREFC, SFLUXREFC
+
+IMPLICIT NONE
+
+! Local variables
+INTEGER(KIND=JPIM) :: JN, JT, JP, IGC, IPR, IPRSM
+REAL(KIND=JPRB)    :: ZSUMK, ZSUMF
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+!     ------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB19',0,ZHOOK_HANDLE)
+
+DO JN = 1,9
+  DO JT = 1,5
+    DO JP = 1,13
+      IPRSM = 0
+      DO IGC = 1,NGC(4)
+        ZSUMK = 0.
+        DO IPR = 1, NGN(NGS(3)+IGC)
+          IPRSM = IPRSM + 1
+          ZSUMK = ZSUMK + KA(JN,JT,JP,IPRSM)*RWGT(IPRSM+48)
+        ENDDO
+        KAC(JN,JT,JP,IGC) = ZSUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,5
+  DO JP = 13,59
+    IPRSM = 0
+    DO IGC = 1,NGC(4)
+      ZSUMK = 0.
+      DO IPR = 1, NGN(NGS(3)+IGC)
+        IPRSM = IPRSM + 1
+        ZSUMK = ZSUMK + KB(JT,JP,IPRSM)*RWGT(IPRSM+48)
+      ENDDO
+      KBC(JT,JP,IGC) = ZSUMK
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(4)
+    ZSUMK = 0.
+    DO IPR = 1, NGN(NGS(3)+IGC)
+      IPRSM = IPRSM + 1
+      ZSUMK = ZSUMK + SELFREF(JT,IPRSM)*RWGT(IPRSM+48)
+    ENDDO
+    SELFREFC(JT,IGC) = ZSUMK
+  ENDDO
+ENDDO
+
+DO JT = 1,3
+  IPRSM = 0
+  DO IGC = 1,NGC(4)
+    ZSUMK = 0.
+    DO IPR = 1, NGN(NGS(3)+IGC)
+      IPRSM = IPRSM + 1
+      ZSUMK = ZSUMK + FORREF(JT,IPRSM)*RWGT(IPRSM+48)
+    ENDDO
+    FORREFC(JT,IGC) = ZSUMK
+  ENDDO
+ENDDO
+
+DO JP = 1,9
+  IPRSM = 0
+  DO IGC = 1,NGC(4)
+    ZSUMF = 0.
+    DO IPR = 1, NGN(NGS(3)+IGC)
+      IPRSM = IPRSM + 1
+      ZSUMF = ZSUMF + SFLUXREF(IPRSM,JP)
+    ENDDO
+    SFLUXREFC(IGC,JP) = ZSUMF
+  ENDDO
+ENDDO
+
+!     -----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB19',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_CMBGB19
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb19.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb19.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb19.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_CMBGB19
+END SUBROUTINE SRTM_CMBGB19
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb20.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb20.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb20.F90	(revision 1989)
@@ -0,0 +1,89 @@
+SUBROUTINE SRTM_CMBGB20
+
+!     BAND 20:  5150-6150 cm-1 (low - H2O; high - H2O)
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM , JPRB
+USE YOMHOOK   ,ONLY : LHOOK, DR_HOOK
+
+USE YOESRTWN , ONLY : NGC, NGS, NGN, RWGT
+USE YOESRTA20, ONLY : KA, KB, SELFREF, FORREF, ABSCH4, SFLUXREF, &
+                    & KAC, KBC, SELFREFC, FORREFC, ABSCH4C, SFLUXREFC
+
+IMPLICIT NONE
+
+! Local variables
+INTEGER(KIND=JPIM) :: JT, JP, IGC, IPR, IPRSM
+REAL(KIND=JPRB)    :: ZSUMK, ZSUMF1, ZSUMF2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+!     ------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB20',0,ZHOOK_HANDLE)
+
+DO JT = 1,5
+  DO JP = 1,13
+    IPRSM = 0
+    DO IGC = 1,NGC(5)
+      ZSUMK = 0.
+      DO IPR = 1, NGN(NGS(4)+IGC)
+        IPRSM = IPRSM + 1
+        ZSUMK = ZSUMK + KA(JT,JP,IPRSM)*RWGT(IPRSM+64)
+      ENDDO
+      KAC(JT,JP,IGC) = ZSUMK
+    ENDDO
+  ENDDO
+
+  DO JP = 13,59
+    IPRSM = 0
+    DO IGC = 1,NGC(5)
+      ZSUMK = 0.
+      DO IPR = 1, NGN(NGS(4)+IGC)
+        IPRSM = IPRSM + 1
+        ZSUMK = ZSUMK + KB(JT,JP,IPRSM)*RWGT(IPRSM+64)
+      ENDDO
+      KBC(JT,JP,IGC) = ZSUMK
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(5)
+    ZSUMK = 0.
+    DO IPR = 1, NGN(NGS(4)+IGC)
+      IPRSM = IPRSM + 1
+      ZSUMK = ZSUMK + SELFREF(JT,IPRSM)*RWGT(IPRSM+64)
+    ENDDO
+    SELFREFC(JT,IGC) = ZSUMK
+  ENDDO
+ENDDO
+
+DO JT = 1,4
+  IPRSM = 0
+  DO IGC = 1,NGC(5)
+    ZSUMK = 0.
+    DO IPR = 1, NGN(NGS(4)+IGC)
+      IPRSM = IPRSM + 1
+      ZSUMK = ZSUMK + FORREF(JT,IPRSM)*RWGT(IPRSM+64)
+    ENDDO
+    FORREFC(JT,IGC) = ZSUMK
+  ENDDO
+ENDDO
+
+IPRSM = 0
+DO IGC = 1,NGC(5)
+  ZSUMF1 = 0.
+  ZSUMF2 = 0.
+  DO IPR = 1, NGN(NGS(4)+IGC)
+    IPRSM = IPRSM + 1
+    ZSUMF1 = ZSUMF1 + SFLUXREF(IPRSM)
+    ZSUMF2 = ZSUMF2 + ABSCH4(IPRSM)*RWGT(IPRSM+64)
+  ENDDO
+  SFLUXREFC(IGC) = ZSUMF1
+  ABSCH4C(IGC) = ZSUMF2
+ENDDO
+
+!     -----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB20',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_CMBGB20
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb20.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb20.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb20.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_CMBGB20
+END SUBROUTINE SRTM_CMBGB20
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb21.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb21.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb21.F90	(revision 1989)
@@ -0,0 +1,94 @@
+SUBROUTINE SRTM_CMBGB21
+
+!     BAND 21:  6150-7700 cm-1 (low - H2O,CO2; high - H2O,CO2)
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM , JPRB
+USE YOMHOOK   ,ONLY : LHOOK, DR_HOOK
+
+USE YOESRTWN , ONLY : NGC, NGS, NGN, RWGT
+USE YOESRTA21, ONLY : KA, KB, SELFREF, FORREF, SFLUXREF, &
+                    & KAC, KBC, SELFREFC, FORREFC, SFLUXREFC
+
+IMPLICIT NONE
+
+! Local variables
+INTEGER(KIND=JPIM) :: JN, JT, JP, IGC, IPR, IPRSM
+REAL(KIND=JPRB)    :: ZSUMK, ZSUMF
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+!     ------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB21',0,ZHOOK_HANDLE)
+
+DO JN = 1,9
+  DO JT = 1,5
+    DO JP = 1,13
+      IPRSM = 0
+      DO IGC = 1,NGC(6)
+        ZSUMK = 0.
+        DO IPR = 1, NGN(NGS(5)+IGC)
+          IPRSM = IPRSM + 1
+          ZSUMK = ZSUMK + KA(JN,JT,JP,IPRSM)*RWGT(IPRSM+80)
+        ENDDO
+        KAC(JN,JT,JP,IGC) = ZSUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JN = 1,5
+  DO JT = 1,5
+    DO JP = 13,59
+      IPRSM = 0
+      DO IGC = 1,NGC(6)
+        ZSUMK = 0.
+        DO IPR = 1, NGN(NGS(5)+IGC)
+          IPRSM = IPRSM + 1
+          ZSUMK = ZSUMK + KB(JN,JT,JP,IPRSM)*RWGT(IPRSM+80)
+        ENDDO
+        KBC(JN,JT,JP,IGC) = ZSUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(6)
+    ZSUMK = 0.
+    DO IPR = 1, NGN(NGS(5)+IGC)
+      IPRSM = IPRSM + 1
+      ZSUMK = ZSUMK + SELFREF(JT,IPRSM)*RWGT(IPRSM+80)
+    ENDDO
+    SELFREFC(JT,IGC) = ZSUMK
+  ENDDO
+ENDDO
+
+DO JT = 1,4
+  IPRSM = 0
+  DO IGC = 1,NGC(6)
+    ZSUMK = 0.
+    DO IPR = 1, NGN(NGS(5)+IGC)
+      IPRSM = IPRSM + 1
+      ZSUMK = ZSUMK + FORREF(JT,IPRSM)*RWGT(IPRSM+80)
+    ENDDO
+    FORREFC(JT,IGC) = ZSUMK
+  ENDDO
+ENDDO
+
+DO JP = 1,9
+  IPRSM = 0
+  DO IGC = 1,NGC(6)
+    ZSUMF = 0.
+    DO IPR = 1, NGN(NGS(5)+IGC)
+      IPRSM = IPRSM + 1
+      ZSUMF = ZSUMF + SFLUXREF(IPRSM,JP)
+    ENDDO
+    SFLUXREFC(IGC,JP) = ZSUMF
+  ENDDO
+ENDDO
+
+!     -----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB21',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_CMBGB21
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb21.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb21.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb21.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_CMBGB21
+END SUBROUTINE SRTM_CMBGB21
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb22.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb22.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb22.F90	(revision 1989)
@@ -0,0 +1,92 @@
+SUBROUTINE SRTM_CMBGB22
+
+!     BAND 22:  7700-8050 cm-1 (low - H2O,O2; high - O2)
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM , JPRB
+USE YOMHOOK   ,ONLY : LHOOK, DR_HOOK
+
+USE YOESRTWN , ONLY : NGC, NGS, NGN, RWGT
+USE YOESRTA22, ONLY : KA, KB, SELFREF, FORREF, SFLUXREF, &
+                    & KAC, KBC, SELFREFC, FORREFC, SFLUXREFC
+
+IMPLICIT NONE
+
+! Local variables
+INTEGER(KIND=JPIM) :: JN, JT, JP, IGC, IPR, IPRSM
+REAL(KIND=JPRB)    :: ZSUMK, ZSUMF
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+!     ------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB22',0,ZHOOK_HANDLE)
+
+DO JN = 1,9
+  DO JT = 1,5
+    DO JP = 1,13
+      IPRSM = 0
+      DO IGC = 1,NGC(7)
+        ZSUMK = 0.
+        DO IPR = 1, NGN(NGS(6)+IGC)
+          IPRSM = IPRSM + 1
+          ZSUMK = ZSUMK + KA(JN,JT,JP,IPRSM)*RWGT(IPRSM+96)
+        ENDDO
+        KAC(JN,JT,JP,IGC) = ZSUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,5
+  DO JP = 13,59
+    IPRSM = 0
+    DO IGC = 1,NGC(7)
+      ZSUMK = 0.
+      DO IPR = 1, NGN(NGS(6)+IGC)
+        IPRSM = IPRSM + 1
+        ZSUMK = ZSUMK + KB(JT,JP,IPRSM)*RWGT(IPRSM+96)
+      ENDDO
+      KBC(JT,JP,IGC) = ZSUMK
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(7)
+    ZSUMK = 0.
+    DO IPR = 1, NGN(NGS(6)+IGC)
+      IPRSM = IPRSM + 1
+      ZSUMK = ZSUMK + SELFREF(JT,IPRSM)*RWGT(IPRSM+96)
+    ENDDO
+    SELFREFC(JT,IGC) = ZSUMK
+  ENDDO
+ENDDO
+
+DO JT = 1,3
+  IPRSM = 0
+  DO IGC = 1,NGC(7)
+    ZSUMK = 0.
+    DO IPR = 1, NGN(NGS(6)+IGC)
+      IPRSM = IPRSM + 1
+      ZSUMK = ZSUMK + FORREF(JT,IPRSM)*RWGT(IPRSM+96)
+    ENDDO
+    FORREFC(JT,IGC) = ZSUMK
+  ENDDO
+ENDDO
+
+DO JP = 1,9
+  IPRSM = 0
+  DO IGC = 1,NGC(7)
+    ZSUMF = 0.
+    DO IPR = 1, NGN(NGS(6)+IGC)
+      IPRSM = IPRSM + 1
+      ZSUMF = ZSUMF + SFLUXREF(IPRSM,JP)
+    ENDDO
+    SFLUXREFC(IGC,JP) = ZSUMF
+  ENDDO
+ENDDO
+
+!     -----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB22',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_CMBGB22
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb22.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb22.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb22.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_CMBGB22
+END SUBROUTINE SRTM_CMBGB22
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb23.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb23.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb23.F90	(revision 1989)
@@ -0,0 +1,77 @@
+SUBROUTINE SRTM_CMBGB23
+
+!     BAND 23:  8050-12850 cm-1 (low - H2O; high - nothing)
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM , JPRB
+USE YOMHOOK   ,ONLY : LHOOK, DR_HOOK
+
+USE YOESRTWN , ONLY : NGC, NGS, NGN, RWGT
+USE YOESRTA23, ONLY : KA, SELFREF, FORREF, SFLUXREF, RAYL, &
+                    & KAC, SELFREFC, FORREFC, SFLUXREFC, RAYLC
+
+IMPLICIT NONE
+
+! Local variables
+INTEGER(KIND=JPIM) :: JT, JP, IGC, IPR, IPRSM
+REAL(KIND=JPRB)    :: ZSUMK, ZSUMF1, ZSUMF2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+!     ------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB23',0,ZHOOK_HANDLE)
+
+DO JT = 1,5
+  DO JP = 1,13
+    IPRSM = 0
+    DO IGC = 1,NGC(8)
+      ZSUMK = 0.
+      DO IPR = 1, NGN(NGS(7)+IGC)
+        IPRSM = IPRSM + 1
+        ZSUMK = ZSUMK + KA(JT,JP,IPRSM)*RWGT(IPRSM+112)
+      ENDDO
+      KAC(JT,JP,IGC) = ZSUMK
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(8)
+    ZSUMK = 0.
+    DO IPR = 1, NGN(NGS(7)+IGC)
+      IPRSM = IPRSM + 1
+      ZSUMK = ZSUMK + SELFREF(JT,IPRSM)*RWGT(IPRSM+112)
+    ENDDO
+    SELFREFC(JT,IGC) = ZSUMK
+  ENDDO
+ENDDO
+
+DO JT = 1,3
+  IPRSM = 0
+  DO IGC = 1,NGC(8)
+    ZSUMK = 0.
+    DO IPR = 1, NGN(NGS(7)+IGC)
+      IPRSM = IPRSM + 1
+      ZSUMK = ZSUMK + FORREF(JT,IPRSM)*RWGT(IPRSM+112)
+    ENDDO
+    FORREFC(JT,IGC) = ZSUMK
+  ENDDO
+ENDDO
+
+IPRSM = 0
+DO IGC = 1,NGC(8)
+  ZSUMF1 = 0.
+  ZSUMF2 = 0.
+  DO IPR = 1, NGN(NGS(7)+IGC)
+    IPRSM = IPRSM + 1
+    ZSUMF1 = ZSUMF1 + SFLUXREF(IPRSM)
+    ZSUMF2 = ZSUMF2 + RAYL(IPRSM)*RWGT(IPRSM+112)
+  ENDDO
+  SFLUXREFC(IGC) = ZSUMF1
+  RAYLC(IGC) = ZSUMF2
+ENDDO
+
+!     -----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB23',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_CMBGB23
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb23.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb23.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb23.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_CMBGB23
+END SUBROUTINE SRTM_CMBGB23
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb24.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb24.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb24.F90	(revision 1989)
@@ -0,0 +1,113 @@
+SUBROUTINE SRTM_CMBGB24
+
+!     BAND 24:  12850-16000 cm-1 (low - H2O,O2; high - O2)
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM , JPRB
+USE YOMHOOK   ,ONLY : LHOOK, DR_HOOK
+
+USE YOESRTWN , ONLY : NGC, NGS, NGN, RWGT
+USE YOESRTA24, ONLY : KA, KB, SELFREF, FORREF, SFLUXREF, &
+                    & ABSO3A, ABSO3B, RAYLA, RAYLB, &
+                    & KAC, KBC, SELFREFC, FORREFC, SFLUXREFC, &
+                    & ABSO3AC, ABSO3BC, RAYLAC, RAYLBC
+
+IMPLICIT NONE
+
+! Local variables
+INTEGER(KIND=JPIM) :: JN, JT, JP, IGC, IPR, IPRSM
+REAL(KIND=JPRB)    :: ZSUMK, ZSUMF1, ZSUMF2, ZSUMF3
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+!     ------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB24',0,ZHOOK_HANDLE)
+
+DO JN = 1,9
+  DO JT = 1,5
+    DO JP = 1,13
+      IPRSM = 0
+      DO IGC = 1,NGC(9)
+        ZSUMK = 0.
+        DO IPR = 1, NGN(NGS(8)+IGC)
+          IPRSM = IPRSM + 1
+          ZSUMK = ZSUMK + KA(JN,JT,JP,IPRSM)*RWGT(IPRSM+128)
+        ENDDO
+        KAC(JN,JT,JP,IGC) = ZSUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,5
+  DO JP = 13,59
+    IPRSM = 0
+    DO IGC = 1,NGC(9)
+      ZSUMK = 0.
+      DO IPR = 1, NGN(NGS(8)+IGC)
+        IPRSM = IPRSM + 1
+        ZSUMK = ZSUMK + KB(JT,JP,IPRSM)*RWGT(IPRSM+128)
+      ENDDO
+      KBC(JT,JP,IGC) = ZSUMK
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(9)
+    ZSUMK = 0.
+    DO IPR = 1, NGN(NGS(8)+IGC)
+      IPRSM = IPRSM + 1
+      ZSUMK = ZSUMK + SELFREF(JT,IPRSM)*RWGT(IPRSM+128)
+    ENDDO
+    SELFREFC(JT,IGC) = ZSUMK
+  ENDDO
+ENDDO
+
+DO JT = 1,3
+  IPRSM = 0
+  DO IGC = 1,NGC(9)
+    ZSUMK = 0.
+    DO IPR = 1, NGN(NGS(8)+IGC)
+      IPRSM = IPRSM + 1
+      ZSUMK = ZSUMK + FORREF(JT,IPRSM)*RWGT(IPRSM+128)
+    ENDDO
+    FORREFC(JT,IGC) = ZSUMK
+  ENDDO
+ENDDO
+
+IPRSM = 0
+DO IGC = 1,NGC(9)
+  ZSUMF1 = 0.
+  ZSUMF2 = 0.
+  ZSUMF3 = 0.
+  DO IPR = 1, NGN(NGS(8)+IGC)
+    IPRSM = IPRSM + 1
+    ZSUMF1 = ZSUMF1 + RAYLB(IPRSM)*RWGT(IPRSM+128)
+    ZSUMF2 = ZSUMF2 + ABSO3A(IPRSM)*RWGT(IPRSM+128)
+    ZSUMF3 = ZSUMF3 + ABSO3B(IPRSM)*RWGT(IPRSM+128)
+  ENDDO
+  RAYLBC(IGC) = ZSUMF1
+  ABSO3AC(IGC) = ZSUMF2
+  ABSO3BC(IGC) = ZSUMF3
+ENDDO
+
+DO JP = 1,9
+  IPRSM = 0
+  DO IGC = 1,NGC(9)
+    ZSUMF1 = 0.
+    ZSUMF2 = 0.
+    DO IPR = 1, NGN(NGS(8)+IGC)
+      IPRSM = IPRSM + 1
+      ZSUMF1 = ZSUMF1 + SFLUXREF(IPRSM,JP)
+      ZSUMF2 = ZSUMF2 + RAYLA(IPRSM,JP)*RWGT(IPRSM+128)
+    ENDDO
+    SFLUXREFC(IGC,JP) = ZSUMF1
+    RAYLAC(IGC,JP) = ZSUMF2
+  ENDDO
+ENDDO
+
+!     -----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB24',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_CMBGB24
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb24.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb24.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb24.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_CMBGB24
+END SUBROUTINE SRTM_CMBGB24
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb25.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb25.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb25.F90	(revision 1989)
@@ -0,0 +1,59 @@
+SUBROUTINE SRTM_CMBGB25
+
+!     BAND 25:  16000-22650 cm-1 (low - H2O; high - nothing)
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM , JPRB
+USE YOMHOOK   ,ONLY : LHOOK, DR_HOOK
+
+USE YOESRTWN , ONLY : NGC, NGS, NGN, RWGT
+USE YOESRTA25, ONLY : KA, SFLUXREF, ABSO3A, ABSO3B, RAYL, &
+                    & KAC, SFLUXREFC, ABSO3AC, ABSO3BC, RAYLC
+
+IMPLICIT NONE
+
+! Local variables
+INTEGER(KIND=JPIM) :: JT, JP, IGC, IPR, IPRSM
+REAL(KIND=JPRB)    :: ZSUMK, ZSUMF1, ZSUMF2, ZSUMF3, ZSUMF4
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+!     ------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB25',0,ZHOOK_HANDLE)
+
+DO JT = 1,5
+  DO JP = 1,13
+    IPRSM = 0
+    DO IGC = 1,NGC(10)
+      ZSUMK = 0.
+      DO IPR = 1, NGN(NGS(9)+IGC)
+        IPRSM = IPRSM + 1
+        ZSUMK = ZSUMK + KA(JT,JP,IPRSM)*RWGT(IPRSM+144)
+      ENDDO
+      KAC(JT,JP,IGC) = ZSUMK
+    ENDDO
+  ENDDO
+ENDDO
+
+IPRSM = 0
+DO IGC = 1,NGC(10)
+  ZSUMF1 = 0.
+  ZSUMF2 = 0.
+  ZSUMF3 = 0.
+  ZSUMF4 = 0.
+  DO IPR = 1, NGN(NGS(9)+IGC)
+    IPRSM = IPRSM + 1
+    ZSUMF1 = ZSUMF1 + SFLUXREF(IPRSM)
+    ZSUMF2 = ZSUMF2 + ABSO3A(IPRSM)*RWGT(IPRSM+144)
+    ZSUMF3 = ZSUMF3 + ABSO3B(IPRSM)*RWGT(IPRSM+144)
+    ZSUMF4 = ZSUMF4 + RAYL(IPRSM)*RWGT(IPRSM+144)
+  ENDDO
+  SFLUXREFC(IGC) = ZSUMF1
+  ABSO3AC(IGC) = ZSUMF2
+  ABSO3BC(IGC) = ZSUMF3
+  RAYLC(IGC) = ZSUMF4
+ENDDO
+
+!     -----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB25',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_CMBGB25
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb25.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb25.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb25.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_CMBGB25
+END SUBROUTINE SRTM_CMBGB25
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb26.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb26.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb26.F90	(revision 1989)
@@ -0,0 +1,39 @@
+SUBROUTINE SRTM_CMBGB26
+
+!     BAND 26:  22650-29000 cm-1 (low - nothing; high - nothing)
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM , JPRB
+USE YOMHOOK   ,ONLY : LHOOK, DR_HOOK
+
+USE YOESRTWN , ONLY : NGC, NGS, NGN, RWGT
+USE YOESRTA26, ONLY : SFLUXREF, RAYL, &
+                    & SFLUXREFC, RAYLC
+
+IMPLICIT NONE
+
+! Local variables
+INTEGER(KIND=JPIM) :: IGC, IPR, IPRSM
+REAL(KIND=JPRB)    :: ZSUMF1, ZSUMF2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+!     ------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB26',0,ZHOOK_HANDLE)
+
+IPRSM = 0
+DO IGC = 1,NGC(11)
+  ZSUMF1 = 0.
+  ZSUMF2 = 0.
+  DO IPR = 1, NGN(NGS(10)+IGC)
+    IPRSM = IPRSM + 1
+    ZSUMF1 = ZSUMF1 + RAYL(IPRSM)*RWGT(IPRSM+160)
+    ZSUMF2 = ZSUMF2 + SFLUXREF(IPRSM)
+  ENDDO
+  RAYLC(IGC) = ZSUMF1
+  SFLUXREFC(IGC) = ZSUMF2
+ENDDO
+
+!     -----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB26',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_CMBGB26
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb26.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb26.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb26.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_CMBGB26
+END SUBROUTINE SRTM_CMBGB26
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb27.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb27.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb27.F90	(revision 1989)
@@ -0,0 +1,65 @@
+SUBROUTINE SRTM_CMBGB27
+
+!     BAND 27:  29000-38000 cm-1 (low - O3; high - O3)
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM , JPRB
+USE YOMHOOK   ,ONLY : LHOOK, DR_HOOK
+
+USE YOESRTWN , ONLY : NGC, NGS, NGN, RWGT
+USE YOESRTA27, ONLY : KA, KB, SFLUXREF, RAYL, &
+                    & KAC, KBC, SFLUXREFC, RAYLC
+
+IMPLICIT NONE
+
+! Local variables
+INTEGER(KIND=JPIM) :: JT, JP, IGC, IPR, IPRSM
+REAL(KIND=JPRB)    :: ZSUMK, ZSUMF1, ZSUMF2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+!     ------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB27',0,ZHOOK_HANDLE)
+
+DO JT = 1,5
+  DO JP = 1,13
+    IPRSM = 0
+    DO IGC = 1,NGC(12)
+      ZSUMK = 0.
+      DO IPR = 1, NGN(NGS(11)+IGC)
+        IPRSM = IPRSM + 1
+        ZSUMK = ZSUMK + KA(JT,JP,IPRSM)*RWGT(IPRSM+176)
+      ENDDO
+      KAC(JT,JP,IGC) = ZSUMK
+    ENDDO
+  ENDDO
+
+  DO JP = 13,59
+    IPRSM = 0
+    DO IGC = 1,NGC(12)
+      ZSUMK = 0.
+      DO IPR = 1, NGN(NGS(11)+IGC)
+        IPRSM = IPRSM + 1
+        ZSUMK = ZSUMK + KB(JT,JP,IPRSM)*RWGT(IPRSM+176)
+      ENDDO
+      KBC(JT,JP,IGC) = ZSUMK
+    ENDDO
+  ENDDO
+ENDDO
+
+IPRSM = 0
+DO IGC = 1,NGC(12)
+  ZSUMF1 = 0.
+  ZSUMF2 = 0.
+  DO IPR = 1, NGN(NGS(11)+IGC)
+    IPRSM = IPRSM + 1
+    ZSUMF1 = ZSUMF1 + SFLUXREF(IPRSM)
+    ZSUMF2 = ZSUMF2 + RAYL(IPRSM)*RWGT(IPRSM+176)
+  ENDDO
+  SFLUXREFC(IGC) = ZSUMF1
+  RAYLC(IGC) = ZSUMF2
+ENDDO
+
+!     -----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB27',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_CMBGB27
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb27.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb27.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb27.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_CMBGB27
+END SUBROUTINE SRTM_CMBGB27
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb28.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb28.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb28.F90	(revision 1989)
@@ -0,0 +1,70 @@
+SUBROUTINE SRTM_CMBGB28
+
+!     BAND 28:  38000-50000 cm-1 (low - O3,O2; high - O3,O2)
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM , JPRB
+USE YOMHOOK   ,ONLY : LHOOK, DR_HOOK
+
+USE YOESRTWN , ONLY : NGC, NGS, NGN, RWGT
+USE YOESRTA28, ONLY : KA, KB, SFLUXREF, &
+                    & KAC, KBC, SFLUXREFC
+
+IMPLICIT NONE
+
+! Local variables
+INTEGER(KIND=JPIM) :: JN, JT, JP, IGC, IPR, IPRSM
+REAL(KIND=JPRB)    :: ZSUMK, ZSUMF
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+!     ------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB28',0,ZHOOK_HANDLE)
+
+DO JN = 1,9
+  DO JT = 1,5
+    DO JP = 1,13
+      IPRSM = 0
+      DO IGC = 1,NGC(13)
+        ZSUMK = 0.
+        DO IPR = 1, NGN(NGS(12)+IGC)
+          IPRSM = IPRSM + 1
+          ZSUMK = ZSUMK + KA(JN,JT,JP,IPRSM)*RWGT(IPRSM+192)
+        ENDDO
+        KAC(JN,JT,JP,IGC) = ZSUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JN = 1,5
+  DO JT = 1,5
+    DO JP = 13,59
+      IPRSM = 0
+      DO IGC = 1,NGC(13)
+        ZSUMK = 0.
+        DO IPR = 1, NGN(NGS(12)+IGC)
+          IPRSM = IPRSM + 1
+          ZSUMK = ZSUMK + KB(JN,JT,JP,IPRSM)*RWGT(IPRSM+192)
+        ENDDO
+        KBC(JN,JT,JP,IGC) = ZSUMK
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JP = 1,5
+  IPRSM = 0
+  DO IGC = 1,NGC(13)
+    ZSUMF = 0.
+    DO IPR = 1, NGN(NGS(12)+IGC)
+      IPRSM = IPRSM + 1
+      ZSUMF = ZSUMF + SFLUXREF(IPRSM,JP)
+    ENDDO
+    SFLUXREFC(IGC,JP) = ZSUMF
+  ENDDO
+ENDDO
+
+!     -----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB28',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_CMBGB28
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb28.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb28.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb28.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_CMBGB28
+END SUBROUTINE SRTM_CMBGB28
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb29.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb29.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb29.F90	(revision 1989)
@@ -0,0 +1,94 @@
+SUBROUTINE SRTM_CMBGB29
+
+!     BAND 29:  820-2600 cm-1 (low - H2O; high - CO2)
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM , JPRB
+USE YOMHOOK   ,ONLY : LHOOK, DR_HOOK
+
+USE YOESRTWN , ONLY : NGC, NGS, NGN, RWGT
+USE YOESRTA29, ONLY : KA, KB, SELFREF, FORREF, SFLUXREF, &
+                    & ABSH2O, ABSCO2, &
+                    & KAC, KBC, SELFREFC, FORREFC, SFLUXREFC, &
+                    & ABSH2OC, ABSCO2C
+
+IMPLICIT NONE
+
+! Local variables
+INTEGER(KIND=JPIM) :: JT, JP, IGC, IPR, IPRSM
+REAL(KIND=JPRB)    :: ZSUMK, ZSUMF1, ZSUMF2, ZSUMF3
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+!     ------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB29',0,ZHOOK_HANDLE)
+
+DO JT = 1,5
+  DO JP = 1,13
+    IPRSM = 0
+    DO IGC = 1,NGC(14)
+      ZSUMK = 0.
+      DO IPR = 1, NGN(NGS(13)+IGC)
+        IPRSM = IPRSM + 1
+        ZSUMK = ZSUMK + KA(JT,JP,IPRSM)*RWGT(IPRSM+208)
+      ENDDO
+      KAC(JT,JP,IGC) = ZSUMK
+    ENDDO
+  ENDDO
+
+  DO JP = 13,59
+    IPRSM = 0
+    DO IGC = 1,NGC(14)
+      ZSUMK = 0.
+      DO IPR = 1, NGN(NGS(13)+IGC)
+        IPRSM = IPRSM + 1
+        ZSUMK = ZSUMK + KB(JT,JP,IPRSM)*RWGT(IPRSM+208)
+      ENDDO
+      KBC(JT,JP,IGC) = ZSUMK
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JT = 1,10
+  IPRSM = 0
+  DO IGC = 1,NGC(14)
+    ZSUMK = 0.
+    DO IPR = 1, NGN(NGS(13)+IGC)
+      IPRSM = IPRSM + 1
+      ZSUMK = ZSUMK + SELFREF(JT,IPRSM)*RWGT(IPRSM+208)
+    ENDDO
+    SELFREFC(JT,IGC) = ZSUMK
+  ENDDO
+ENDDO
+
+DO JT = 1,4
+  IPRSM = 0
+  DO IGC = 1,NGC(14)
+    ZSUMK = 0.
+    DO IPR = 1, NGN(NGS(13)+IGC)
+      IPRSM = IPRSM + 1
+      ZSUMK = ZSUMK + FORREF(JT,IPRSM)*RWGT(IPRSM+208)
+    ENDDO
+    FORREFC(JT,IGC) = ZSUMK
+  ENDDO
+ENDDO
+
+IPRSM = 0
+DO IGC = 1,NGC(14)
+  ZSUMF1 = 0.
+  ZSUMF2 = 0.
+  ZSUMF3 = 0.
+  DO IPR = 1, NGN(NGS(13)+IGC)
+    IPRSM = IPRSM + 1
+    ZSUMF1 = ZSUMF1 + SFLUXREF(IPRSM)
+    ZSUMF2 = ZSUMF2 + ABSCO2(IPRSM)*RWGT(IPRSM+208)
+    ZSUMF3 = ZSUMF3 + ABSH2O(IPRSM)*RWGT(IPRSM+208)
+  ENDDO
+  SFLUXREFC(IGC) = ZSUMF1
+  ABSCO2C(IGC) = ZSUMF2
+  ABSH2OC(IGC) = ZSUMF3
+ENDDO
+
+!     -----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_CMBGB29',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_CMBGB29
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb29.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb29.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_cmbgb29.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_CMBGB29
+END SUBROUTINE SRTM_CMBGB29
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_init.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_init.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_init.F90	(revision 1989)
@@ -0,0 +1,136 @@
+SUBROUTINE SRTM_INIT
+
+!-- read in the basic coefficients to configure RRTM_SW
+!- creates module YOESRTWN with BG, NSPA, NSPB, WAVENUM1, WAVENUM2,
+!  DELWAVE, PREF, PREFLOG, TREF
+
+USE PARKIND1  ,ONLY : JPIM , JPRB
+USE YOMHOOK   ,ONLY : LHOOK, DR_HOOK
+
+USE PARSRTM  , ONLY : JPG, JPSW
+USE YOESRTWN , ONLY : NG, NGM, WT, NGC, NGN, RWGT, WTSM
+
+IMPLICIT NONE
+
+! Local variables
+INTEGER(KIND=JPIM) :: IGC, IGCSM, IBND, IG, IND, IPR, IPRSM
+REAL(KIND=JPRB)    :: ZWTSUM
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+#include "susrtm.intfb.h"
+#include "srtm_kgb16.intfb.h"
+#include "srtm_kgb17.intfb.h"
+#include "srtm_kgb18.intfb.h"
+#include "srtm_kgb19.intfb.h"
+#include "srtm_kgb20.intfb.h"
+#include "srtm_kgb21.intfb.h"
+#include "srtm_kgb22.intfb.h"
+#include "srtm_kgb23.intfb.h"
+#include "srtm_kgb24.intfb.h"
+#include "srtm_kgb25.intfb.h"
+#include "srtm_kgb26.intfb.h"
+#include "srtm_kgb27.intfb.h"
+#include "srtm_kgb28.intfb.h"
+#include "srtm_kgb29.intfb.h"
+!#include "susrtop.intfb.h"
+
+#include "srtm_cmbgb16.intfb.h"
+#include "srtm_cmbgb17.intfb.h"
+#include "srtm_cmbgb18.intfb.h"
+#include "srtm_cmbgb19.intfb.h"
+#include "srtm_cmbgb20.intfb.h"
+#include "srtm_cmbgb21.intfb.h"
+#include "srtm_cmbgb22.intfb.h"
+#include "srtm_cmbgb23.intfb.h"
+#include "srtm_cmbgb24.intfb.h"
+#include "srtm_cmbgb25.intfb.h"
+#include "srtm_cmbgb26.intfb.h"
+#include "srtm_cmbgb27.intfb.h"
+#include "srtm_cmbgb28.intfb.h"
+#include "srtm_cmbgb29.intfb.h"
+
+IF (LHOOK) CALL DR_HOOK('SRTM_INIT',0,ZHOOK_HANDLE)
+
+CALL SUSRTM
+
+!-- read in the molecular absorption coefficients
+
+CALL SRTM_KGB16
+CALL SRTM_KGB17
+CALL SRTM_KGB18
+CALL SRTM_KGB19
+CALL SRTM_KGB20
+CALL SRTM_KGB21
+CALL SRTM_KGB22
+CALL SRTM_KGB23
+CALL SRTM_KGB24
+CALL SRTM_KGB25
+CALL SRTM_KGB26
+CALL SRTM_KGB27
+CALL SRTM_KGB28
+CALL SRTM_KGB29
+
+!-- read in the cloud optical properties
+!- creates module YOESRTOP with EXTLIQ1, SSALIQ1, ASYLIQ1, 
+!  EXTICE3, SSAICE3, ASYICE3, FDLICE3  
+
+!-- RRTM_SW cloud optical properties are not used
+!   SRTM_CLDPROP is not called
+!   no need to call SUSRTOP
+
+!CALL SUSRTOP ( -1 )
+
+
+!Mike Iacono 20050804
+!-- Perform g-point reduction from 16 per band (224 total points) to
+!-- a band dependent number (112 total points) for all absorption
+!-- coefficient input data and Planck fraction input data.
+!-- Compute relative weighting for new g-point combinations.
+
+IGCSM = 0
+DO IBND = 1,JPSW
+  IPRSM = 0
+  IF (NGC(IBND) < JPG) THEN
+    DO IGC = 1,NGC(IBND)
+      IGCSM = IGCSM + 1
+      ZWTSUM = 0.
+      DO IPR = 1, NGN(IGCSM)
+        IPRSM = IPRSM + 1
+        ZWTSUM = ZWTSUM + WT(IPRSM)
+      ENDDO
+      WTSM(IGC) = ZWTSUM
+    ENDDO
+
+    DO IG = 1,NG(IBND+15)
+      IND = (IBND-1)*JPG + IG
+      RWGT(IND) = WT(IG)/WTSM(NGM(IND))
+    ENDDO
+  ELSE
+    DO IG = 1,NG(IBND+15)
+      IGCSM = IGCSM + 1
+      IND = (IBND-1)*JPG + IG
+      RWGT(IND) = 1.0
+    ENDDO
+  ENDIF
+ENDDO
+
+CALL SRTM_CMBGB16
+CALL SRTM_CMBGB17
+CALL SRTM_CMBGB18
+CALL SRTM_CMBGB19
+CALL SRTM_CMBGB20
+CALL SRTM_CMBGB21
+CALL SRTM_CMBGB22
+CALL SRTM_CMBGB23
+CALL SRTM_CMBGB24
+CALL SRTM_CMBGB25
+CALL SRTM_CMBGB26
+CALL SRTM_CMBGB27
+CALL SRTM_CMBGB28
+CALL SRTM_CMBGB29
+
+!-----------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_INIT',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_INIT
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_init.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_init.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_init.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_INIT
+END SUBROUTINE SRTM_INIT
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb16.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb16.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb16.F90	(revision 1989)
@@ -0,0 +1,4990 @@
+!OCL SCALAR
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif 
+!pgi$r opt=0
+SUBROUTINE SRTM_KGB16
+
+!     Originally by J.Delamere, Atmospheric & Environmental Research.
+!     Revision: 2.4
+!     BAND 16:  2600-3000 cm-1 (low - H2O,CH4; high - nothing)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     R. Elkhatib 12-10-2005 Split for faster and more robust compilation.
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOESRTA16, ONLY : KA, KB, SELFREF, FORREF, SFLUXREF, RAYL, STRRAT1 &
+ & , LAYREFFR  
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+
+! KURUCZ
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16',0,ZHOOK_HANDLE)
+
+CALL PART1
+CALL PART2
+CALL PART3
+CALL PART4
+CALL PART5
+CALL PART6
+CALL PART7
+CALL PART8
+CALL PART9
+CALL PART10
+CALL PART11
+CALL PART12
+CALL PART13
+CALL PART14
+CALL PART15
+CALL PART16
+CALL PART17
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16',1,ZHOOK_HANDLE)
+
+!     -----------------------------------------------------------------
+
+CONTAINS
+
+
+SUBROUTINE PART1
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART1',0,ZHOOK_HANDLE)
+
+
+SFLUXREF = (/ &
+ & 1.92269_JPRB    , 1.72844_JPRB    , 1.64326_JPRB    , 1.58451_JPRB     &
+ & , 1.44031_JPRB    , 1.25108_JPRB    , 1.02724_JPRB    , 0.776759_JPRB    &
+ & , 0.534444_JPRB   , 5.87755E-02_JPRB, 4.86706E-02_JPRB, 3.87989E-02_JPRB &
+ & , 2.84532E-02_JPRB, 1.82431E-02_JPRB, 6.92320E-03_JPRB, 9.70770E-04_JPRB /)  
+
+!     Rayleigh extinction coefficient at v = 2925 cm-1.
+RAYL = 2.91E-10_JPRB
+
+STRRAT1 = 252.131_JPRB
+
+LAYREFFR = 18
+
+!     ------------------------------------------------------------------
+
+!     The array KA contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels> ~100mb, temperatures, and binary
+!     species parameters (see taumol.f for definition).  The first 
+!     index in the array, JS, runs from 1 to 9, and corresponds to 
+!     different values of the binary species parameter.  For instance, 
+!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, 
+!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index
+!     in the array, JT, which runs from 1 to 5, corresponds to different
+!     temperatures.  More specifically, JT = 3 means that the data are for
+!     the reference temperature TREF for this  pressure level, JT = 2 refers
+!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the JPth reference pressure level (see taumol.f for these levels
+!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates
+!     which g-interval the absorption coefficients are for.
+!     -----------------------------------------------------------------
+
+KA(:, 1, 1, 1) = (/ &
+ & 0.15349E-04_JPRB,0.89162E-04_JPRB,0.97706E-04_JPRB,0.96973E-04_JPRB,0.90703E-04_JPRB, &
+ & 0.80393E-04_JPRB,0.67242E-04_JPRB,0.50804E-04_JPRB,0.23334E-04_JPRB /)  
+KA(:, 2, 1, 1) = (/ &
+ & 0.16138E-04_JPRB,0.89235E-04_JPRB,0.97696E-04_JPRB,0.96116E-04_JPRB,0.89625E-04_JPRB, &
+ & 0.79382E-04_JPRB,0.66587E-04_JPRB,0.50583E-04_JPRB,0.24342E-04_JPRB /)  
+KA(:, 3, 1, 1) = (/ &
+ & 0.16801E-04_JPRB,0.89390E-04_JPRB,0.97492E-04_JPRB,0.95146E-04_JPRB,0.88483E-04_JPRB, &
+ & 0.78325E-04_JPRB,0.65873E-04_JPRB,0.50342E-04_JPRB,0.25245E-04_JPRB /)  
+KA(:, 4, 1, 1) = (/ &
+ & 0.17584E-04_JPRB,0.89321E-04_JPRB,0.97141E-04_JPRB,0.93952E-04_JPRB,0.87141E-04_JPRB, &
+ & 0.77126E-04_JPRB,0.65068E-04_JPRB,0.49985E-04_JPRB,0.26046E-04_JPRB /)  
+KA(:, 5, 1, 1) = (/ &
+ & 0.18258E-04_JPRB,0.89204E-04_JPRB,0.96602E-04_JPRB,0.92773E-04_JPRB,0.85832E-04_JPRB, &
+ & 0.76015E-04_JPRB,0.64318E-04_JPRB,0.49612E-04_JPRB,0.26697E-04_JPRB /)  
+KA(:, 1, 2, 1) = (/ &
+ & 0.12783E-04_JPRB,0.77013E-04_JPRB,0.85056E-04_JPRB,0.84160E-04_JPRB,0.79021E-04_JPRB, &
+ & 0.70101E-04_JPRB,0.58520E-04_JPRB,0.44007E-04_JPRB,0.19895E-04_JPRB /)  
+KA(:, 2, 2, 1) = (/ &
+ & 0.13452E-04_JPRB,0.77084E-04_JPRB,0.84929E-04_JPRB,0.83386E-04_JPRB,0.78122E-04_JPRB, &
+ & 0.69293E-04_JPRB,0.57974E-04_JPRB,0.43855E-04_JPRB,0.20713E-04_JPRB /)  
+KA(:, 3, 2, 1) = (/ &
+ & 0.14066E-04_JPRB,0.77185E-04_JPRB,0.84612E-04_JPRB,0.82498E-04_JPRB,0.77177E-04_JPRB, &
+ & 0.68443E-04_JPRB,0.57444E-04_JPRB,0.43722E-04_JPRB,0.21494E-04_JPRB /)  
+KA(:, 4, 2, 1) = (/ &
+ & 0.14678E-04_JPRB,0.76996E-04_JPRB,0.83962E-04_JPRB,0.81526E-04_JPRB,0.76049E-04_JPRB, &
+ & 0.67485E-04_JPRB,0.56822E-04_JPRB,0.43530E-04_JPRB,0.22200E-04_JPRB /)  
+KA(:, 5, 2, 1) = (/ &
+ & 0.15258E-04_JPRB,0.76788E-04_JPRB,0.82821E-04_JPRB,0.80320E-04_JPRB,0.74845E-04_JPRB, &
+ & 0.66487E-04_JPRB,0.56144E-04_JPRB,0.43262E-04_JPRB,0.22757E-04_JPRB /)  
+KA(:, 1, 3, 1) = (/ &
+ & 0.10474E-04_JPRB,0.66144E-04_JPRB,0.73703E-04_JPRB,0.72701E-04_JPRB,0.68638E-04_JPRB, &
+ & 0.60826E-04_JPRB,0.50854E-04_JPRB,0.37989E-04_JPRB,0.17743E-04_JPRB /)  
+KA(:, 2, 3, 1) = (/ &
+ & 0.11024E-04_JPRB,0.66096E-04_JPRB,0.73447E-04_JPRB,0.72029E-04_JPRB,0.67858E-04_JPRB, &
+ & 0.60163E-04_JPRB,0.50424E-04_JPRB,0.37886E-04_JPRB,0.18519E-04_JPRB /)  
+KA(:, 3, 3, 1) = (/ &
+ & 0.11534E-04_JPRB,0.65974E-04_JPRB,0.72795E-04_JPRB,0.71229E-04_JPRB,0.67005E-04_JPRB, &
+ & 0.59442E-04_JPRB,0.49950E-04_JPRB,0.37779E-04_JPRB,0.19184E-04_JPRB /)  
+KA(:, 4, 3, 1) = (/ &
+ & 0.12091E-04_JPRB,0.65752E-04_JPRB,0.72003E-04_JPRB,0.70357E-04_JPRB,0.66129E-04_JPRB, &
+ & 0.58718E-04_JPRB,0.49503E-04_JPRB,0.37690E-04_JPRB,0.19788E-04_JPRB /)  
+KA(:, 5, 3, 1) = (/ &
+ & 0.12560E-04_JPRB,0.65678E-04_JPRB,0.71013E-04_JPRB,0.69266E-04_JPRB,0.65076E-04_JPRB, &
+ & 0.57873E-04_JPRB,0.48947E-04_JPRB,0.37519E-04_JPRB,0.20290E-04_JPRB /)  
+KA(:, 1, 4, 1) = (/ &
+ & 0.85236E-05_JPRB,0.56692E-04_JPRB,0.63625E-04_JPRB,0.62567E-04_JPRB,0.59412E-04_JPRB, &
+ & 0.52601E-04_JPRB,0.43957E-04_JPRB,0.32602E-04_JPRB,0.16862E-04_JPRB /)  
+KA(:, 2, 4, 1) = (/ &
+ & 0.89886E-05_JPRB,0.56512E-04_JPRB,0.63288E-04_JPRB,0.61902E-04_JPRB,0.58733E-04_JPRB, &
+ & 0.52036E-04_JPRB,0.43629E-04_JPRB,0.32592E-04_JPRB,0.17543E-04_JPRB /)  
+KA(:, 3, 4, 1) = (/ &
+ & 0.94085E-05_JPRB,0.56287E-04_JPRB,0.62588E-04_JPRB,0.61197E-04_JPRB,0.58020E-04_JPRB, &
+ & 0.51469E-04_JPRB,0.43247E-04_JPRB,0.32567E-04_JPRB,0.18199E-04_JPRB /)  
+KA(:, 4, 4, 1) = (/ &
+ & 0.98830E-05_JPRB,0.55998E-04_JPRB,0.61716E-04_JPRB,0.60485E-04_JPRB,0.57250E-04_JPRB, &
+ & 0.50840E-04_JPRB,0.42842E-04_JPRB,0.32520E-04_JPRB,0.18771E-04_JPRB /)  
+KA(:, 5, 4, 1) = (/ &
+ & 0.10278E-04_JPRB,0.55929E-04_JPRB,0.61011E-04_JPRB,0.59745E-04_JPRB,0.56462E-04_JPRB, &
+ & 0.50254E-04_JPRB,0.42468E-04_JPRB,0.32457E-04_JPRB,0.19296E-04_JPRB /)  
+KA(:, 1, 5, 1) = (/ &
+ & 0.68852E-05_JPRB,0.48282E-04_JPRB,0.54761E-04_JPRB,0.53543E-04_JPRB,0.51345E-04_JPRB, &
+ & 0.45380E-04_JPRB,0.37794E-04_JPRB,0.27880E-04_JPRB,0.14959E-04_JPRB /)  
+KA(:, 2, 5, 1) = (/ &
+ & 0.72830E-05_JPRB,0.48206E-04_JPRB,0.54379E-04_JPRB,0.52923E-04_JPRB,0.50723E-04_JPRB, &
+ & 0.44903E-04_JPRB,0.37536E-04_JPRB,0.27938E-04_JPRB,0.15841E-04_JPRB /)  
+KA(:, 3, 5, 1) = (/ &
+ & 0.76436E-05_JPRB,0.47928E-04_JPRB,0.53597E-04_JPRB,0.52299E-04_JPRB,0.50061E-04_JPRB, &
+ & 0.44426E-04_JPRB,0.37240E-04_JPRB,0.27962E-04_JPRB,0.16760E-04_JPRB /)  
+KA(:, 4, 5, 1) = (/ &
+ & 0.80055E-05_JPRB,0.47625E-04_JPRB,0.52896E-04_JPRB,0.51678E-04_JPRB,0.49302E-04_JPRB, &
+ & 0.43902E-04_JPRB,0.36930E-04_JPRB,0.27968E-04_JPRB,0.17586E-04_JPRB /)  
+KA(:, 5, 5, 1) = (/ &
+ & 0.83555E-05_JPRB,0.47486E-04_JPRB,0.52258E-04_JPRB,0.51112E-04_JPRB,0.48444E-04_JPRB, &
+ & 0.43409E-04_JPRB,0.36652E-04_JPRB,0.27966E-04_JPRB,0.18270E-04_JPRB /)  
+KA(:, 1, 6, 1) = (/ &
+ & 0.55363E-05_JPRB,0.40995E-04_JPRB,0.46991E-04_JPRB,0.45840E-04_JPRB,0.44200E-04_JPRB, &
+ & 0.38984E-04_JPRB,0.32341E-04_JPRB,0.23743E-04_JPRB,0.12825E-04_JPRB /)  
+KA(:, 2, 6, 1) = (/ &
+ & 0.58741E-05_JPRB,0.40851E-04_JPRB,0.46490E-04_JPRB,0.45277E-04_JPRB,0.43651E-04_JPRB, &
+ & 0.38565E-04_JPRB,0.32141E-04_JPRB,0.23813E-04_JPRB,0.13671E-04_JPRB /)  
+KA(:, 3, 6, 1) = (/ &
+ & 0.61821E-05_JPRB,0.40643E-04_JPRB,0.45850E-04_JPRB,0.44728E-04_JPRB,0.42924E-04_JPRB, &
+ & 0.38164E-04_JPRB,0.31920E-04_JPRB,0.23858E-04_JPRB,0.14647E-04_JPRB /)  
+KA(:, 4, 6, 1) = (/ &
+ & 0.64614E-05_JPRB,0.40329E-04_JPRB,0.45202E-04_JPRB,0.44163E-04_JPRB,0.42054E-04_JPRB, &
+ & 0.37723E-04_JPRB,0.31679E-04_JPRB,0.23886E-04_JPRB,0.15533E-04_JPRB /)  
+KA(:, 5, 6, 1) = (/ &
+ & 0.67675E-05_JPRB,0.40137E-04_JPRB,0.44578E-04_JPRB,0.43574E-04_JPRB,0.41267E-04_JPRB, &
+ & 0.37271E-04_JPRB,0.31420E-04_JPRB,0.23883E-04_JPRB,0.16436E-04_JPRB /)  
+KA(:, 1, 7, 1) = (/ &
+ & 0.44217E-05_JPRB,0.34626E-04_JPRB,0.39970E-04_JPRB,0.39080E-04_JPRB,0.37744E-04_JPRB, &
+ & 0.33237E-04_JPRB,0.27507E-04_JPRB,0.20074E-04_JPRB,0.11007E-04_JPRB /)  
+KA(:, 2, 7, 1) = (/ &
+ & 0.47104E-05_JPRB,0.34494E-04_JPRB,0.39592E-04_JPRB,0.38568E-04_JPRB,0.37283E-04_JPRB, &
+ & 0.32875E-04_JPRB,0.27342E-04_JPRB,0.20149E-04_JPRB,0.11834E-04_JPRB /)  
+KA(:, 3, 7, 1) = (/ &
+ & 0.49764E-05_JPRB,0.34300E-04_JPRB,0.39007E-04_JPRB,0.38074E-04_JPRB,0.36415E-04_JPRB, &
+ & 0.32528E-04_JPRB,0.27158E-04_JPRB,0.20213E-04_JPRB,0.12801E-04_JPRB /)  
+KA(:, 4, 7, 1) = (/ &
+ & 0.52135E-05_JPRB,0.34067E-04_JPRB,0.38449E-04_JPRB,0.37591E-04_JPRB,0.35661E-04_JPRB, &
+ & 0.32173E-04_JPRB,0.26959E-04_JPRB,0.20265E-04_JPRB,0.13763E-04_JPRB /)  
+KA(:, 5, 7, 1) = (/ &
+ & 0.54275E-05_JPRB,0.33832E-04_JPRB,0.37875E-04_JPRB,0.37057E-04_JPRB,0.35065E-04_JPRB, &
+ & 0.31800E-04_JPRB,0.26760E-04_JPRB,0.20278E-04_JPRB,0.14677E-04_JPRB /)  
+KA(:, 1, 8, 1) = (/ &
+ & 0.35317E-05_JPRB,0.29115E-04_JPRB,0.33824E-04_JPRB,0.33370E-04_JPRB,0.32237E-04_JPRB, &
+ & 0.28331E-04_JPRB,0.23362E-04_JPRB,0.16932E-04_JPRB,0.96086E-05_JPRB /)  
+KA(:, 2, 8, 1) = (/ &
+ & 0.37854E-05_JPRB,0.29084E-04_JPRB,0.33632E-04_JPRB,0.32929E-04_JPRB,0.31805E-04_JPRB, &
+ & 0.28018E-04_JPRB,0.23236E-04_JPRB,0.17006E-04_JPRB,0.10621E-04_JPRB /)  
+KA(:, 3, 8, 1) = (/ &
+ & 0.40127E-05_JPRB,0.28935E-04_JPRB,0.33190E-04_JPRB,0.32483E-04_JPRB,0.30936E-04_JPRB, &
+ & 0.27716E-04_JPRB,0.23074E-04_JPRB,0.17087E-04_JPRB,0.11657E-04_JPRB /)  
+KA(:, 4, 8, 1) = (/ &
+ & 0.42184E-05_JPRB,0.28732E-04_JPRB,0.32711E-04_JPRB,0.32042E-04_JPRB,0.30351E-04_JPRB, &
+ & 0.27404E-04_JPRB,0.22906E-04_JPRB,0.17140E-04_JPRB,0.12504E-04_JPRB /)  
+KA(:, 5, 8, 1) = (/ &
+ & 0.44040E-05_JPRB,0.28488E-04_JPRB,0.32207E-04_JPRB,0.31581E-04_JPRB,0.29852E-04_JPRB, &
+ & 0.27086E-04_JPRB,0.22740E-04_JPRB,0.17166E-04_JPRB,0.13401E-04_JPRB /)  
+KA(:, 1, 9, 1) = (/ &
+ & 0.28004E-05_JPRB,0.24421E-04_JPRB,0.28507E-04_JPRB,0.28270E-04_JPRB,0.27415E-04_JPRB, &
+ & 0.24038E-04_JPRB,0.19759E-04_JPRB,0.14209E-04_JPRB,0.88498E-05_JPRB /)  
+KA(:, 2, 9, 1) = (/ &
+ & 0.30342E-05_JPRB,0.24385E-04_JPRB,0.28391E-04_JPRB,0.27999E-04_JPRB,0.26969E-04_JPRB, &
+ & 0.23770E-04_JPRB,0.19651E-04_JPRB,0.14288E-04_JPRB,0.10048E-04_JPRB /)  
+KA(:, 3, 9, 1) = (/ &
+ & 0.32304E-05_JPRB,0.24304E-04_JPRB,0.28136E-04_JPRB,0.27602E-04_JPRB,0.26246E-04_JPRB, &
+ & 0.23508E-04_JPRB,0.19517E-04_JPRB,0.14360E-04_JPRB,0.11188E-04_JPRB /)  
+KA(:, 4, 9, 1) = (/ &
+ & 0.34049E-05_JPRB,0.24160E-04_JPRB,0.27731E-04_JPRB,0.27211E-04_JPRB,0.25756E-04_JPRB, &
+ & 0.23246E-04_JPRB,0.19380E-04_JPRB,0.14426E-04_JPRB,0.12319E-04_JPRB /)  
+KA(:, 5, 9, 1) = (/ &
+ & 0.35648E-05_JPRB,0.23940E-04_JPRB,0.27283E-04_JPRB,0.26806E-04_JPRB,0.25320E-04_JPRB, &
+ & 0.22960E-04_JPRB,0.19234E-04_JPRB,0.14451E-04_JPRB,0.13506E-04_JPRB /)  
+KA(:, 1,10, 1) = (/ &
+ & 0.22115E-05_JPRB,0.20358E-04_JPRB,0.23898E-04_JPRB,0.23781E-04_JPRB,0.23142E-04_JPRB, &
+ & 0.20260E-04_JPRB,0.16593E-04_JPRB,0.11876E-04_JPRB,0.77665E-05_JPRB /)  
+KA(:, 2,10, 1) = (/ &
+ & 0.24264E-05_JPRB,0.20362E-04_JPRB,0.23820E-04_JPRB,0.23569E-04_JPRB,0.22708E-04_JPRB, &
+ & 0.20037E-04_JPRB,0.16524E-04_JPRB,0.11954E-04_JPRB,0.90216E-05_JPRB /)  
+KA(:, 3,10, 1) = (/ &
+ & 0.26002E-05_JPRB,0.20303E-04_JPRB,0.23663E-04_JPRB,0.23295E-04_JPRB,0.22132E-04_JPRB, &
+ & 0.19806E-04_JPRB,0.16414E-04_JPRB,0.12011E-04_JPRB,0.10379E-04_JPRB /)  
+KA(:, 4,10, 1) = (/ &
+ & 0.27486E-05_JPRB,0.20198E-04_JPRB,0.23357E-04_JPRB,0.22943E-04_JPRB,0.21707E-04_JPRB, &
+ & 0.19580E-04_JPRB,0.16298E-04_JPRB,0.12060E-04_JPRB,0.11771E-04_JPRB /)  
+KA(:, 5,10, 1) = (/ &
+ & 0.28881E-05_JPRB,0.20019E-04_JPRB,0.22982E-04_JPRB,0.22584E-04_JPRB,0.21296E-04_JPRB, &
+ & 0.19341E-04_JPRB,0.16164E-04_JPRB,0.12088E-04_JPRB,0.13279E-04_JPRB /)  
+KA(:, 1,11, 1) = (/ &
+ & 0.18320E-05_JPRB,0.16927E-04_JPRB,0.19968E-04_JPRB,0.19856E-04_JPRB,0.19352E-04_JPRB, &
+ & 0.16934E-04_JPRB,0.13866E-04_JPRB,0.99116E-05_JPRB,0.67134E-05_JPRB /)  
+KA(:, 2,11, 1) = (/ &
+ & 0.20049E-05_JPRB,0.16927E-04_JPRB,0.19853E-04_JPRB,0.19674E-04_JPRB,0.18853E-04_JPRB, &
+ & 0.16739E-04_JPRB,0.13797E-04_JPRB,0.99757E-05_JPRB,0.78968E-05_JPRB /)  
+KA(:, 3,11, 1) = (/ &
+ & 0.21502E-05_JPRB,0.16866E-04_JPRB,0.19704E-04_JPRB,0.19448E-04_JPRB,0.18441E-04_JPRB, &
+ & 0.16541E-04_JPRB,0.13705E-04_JPRB,0.10023E-04_JPRB,0.91593E-05_JPRB /)  
+KA(:, 4,11, 1) = (/ &
+ & 0.22714E-05_JPRB,0.16777E-04_JPRB,0.19465E-04_JPRB,0.19143E-04_JPRB,0.18062E-04_JPRB, &
+ & 0.16347E-04_JPRB,0.13601E-04_JPRB,0.10057E-04_JPRB,0.10536E-04_JPRB /)  
+KA(:, 5,11, 1) = (/ &
+ & 0.23867E-05_JPRB,0.16634E-04_JPRB,0.19123E-04_JPRB,0.18829E-04_JPRB,0.17732E-04_JPRB, &
+ & 0.16132E-04_JPRB,0.13484E-04_JPRB,0.10082E-04_JPRB,0.12018E-04_JPRB /)  
+KA(:, 1,12, 1) = (/ &
+ & 0.15169E-05_JPRB,0.14042E-04_JPRB,0.16626E-04_JPRB,0.16552E-04_JPRB,0.16148E-04_JPRB, &
+ & 0.14121E-04_JPRB,0.11557E-04_JPRB,0.82558E-05_JPRB,0.56116E-05_JPRB /)  
+KA(:, 2,12, 1) = (/ &
+ & 0.16576E-05_JPRB,0.14051E-04_JPRB,0.16515E-04_JPRB,0.16389E-04_JPRB,0.15651E-04_JPRB, &
+ & 0.13956E-04_JPRB,0.11498E-04_JPRB,0.83065E-05_JPRB,0.66756E-05_JPRB /)  
+KA(:, 3,12, 1) = (/ &
+ & 0.17786E-05_JPRB,0.13996E-04_JPRB,0.16382E-04_JPRB,0.16200E-04_JPRB,0.15335E-04_JPRB, &
+ & 0.13791E-04_JPRB,0.11414E-04_JPRB,0.83396E-05_JPRB,0.78609E-05_JPRB /)  
+KA(:, 4,12, 1) = (/ &
+ & 0.18784E-05_JPRB,0.13920E-04_JPRB,0.16173E-04_JPRB,0.15944E-04_JPRB,0.15016E-04_JPRB, &
+ & 0.13612E-04_JPRB,0.11321E-04_JPRB,0.83696E-05_JPRB,0.90657E-05_JPRB /)  
+KA(:, 5,12, 1) = (/ &
+ & 0.19730E-05_JPRB,0.13808E-04_JPRB,0.15876E-04_JPRB,0.15671E-04_JPRB,0.14704E-04_JPRB, &
+ & 0.13425E-04_JPRB,0.11218E-04_JPRB,0.83846E-05_JPRB,0.10342E-04_JPRB /)  
+KA(:, 1,13, 1) = (/ &
+ & 0.12548E-05_JPRB,0.11622E-04_JPRB,0.13817E-04_JPRB,0.13765E-04_JPRB,0.13366E-04_JPRB, &
+ & 0.11761E-04_JPRB,0.96214E-05_JPRB,0.68586E-05_JPRB,0.46815E-05_JPRB /)  
+KA(:, 2,13, 1) = (/ &
+ & 0.13720E-05_JPRB,0.11638E-04_JPRB,0.13707E-04_JPRB,0.13640E-04_JPRB,0.13007E-04_JPRB, &
+ & 0.11624E-04_JPRB,0.95672E-05_JPRB,0.68978E-05_JPRB,0.55831E-05_JPRB /)  
+KA(:, 3,13, 1) = (/ &
+ & 0.14716E-05_JPRB,0.11595E-04_JPRB,0.13603E-04_JPRB,0.13476E-04_JPRB,0.12728E-04_JPRB, &
+ & 0.11474E-04_JPRB,0.94883E-05_JPRB,0.69284E-05_JPRB,0.65694E-05_JPRB /)  
+KA(:, 4,13, 1) = (/ &
+ & 0.15544E-05_JPRB,0.11533E-04_JPRB,0.13432E-04_JPRB,0.13265E-04_JPRB,0.12450E-04_JPRB, &
+ & 0.11320E-04_JPRB,0.94054E-05_JPRB,0.69510E-05_JPRB,0.75699E-05_JPRB /)  
+KA(:, 5,13, 1) = (/ &
+ & 0.16324E-05_JPRB,0.11450E-04_JPRB,0.13177E-04_JPRB,0.13030E-04_JPRB,0.12193E-04_JPRB, &
+ & 0.11159E-04_JPRB,0.93157E-05_JPRB,0.69543E-05_JPRB,0.86449E-05_JPRB /)  
+KA(:, 1, 1, 2) = (/ &
+ & 0.10905E-03_JPRB,0.19084E-03_JPRB,0.20069E-03_JPRB,0.19832E-03_JPRB,0.18610E-03_JPRB, &
+ & 0.17089E-03_JPRB,0.14990E-03_JPRB,0.11759E-03_JPRB,0.64675E-04_JPRB /)  
+KA(:, 2, 1, 2) = (/ &
+ & 0.11105E-03_JPRB,0.18952E-03_JPRB,0.19885E-03_JPRB,0.19823E-03_JPRB,0.18675E-03_JPRB, &
+ & 0.17126E-03_JPRB,0.15098E-03_JPRB,0.11929E-03_JPRB,0.67071E-04_JPRB /)  
+KA(:, 3, 1, 2) = (/ &
+ & 0.11276E-03_JPRB,0.18853E-03_JPRB,0.19769E-03_JPRB,0.19892E-03_JPRB,0.18804E-03_JPRB, &
+ & 0.17228E-03_JPRB,0.15234E-03_JPRB,0.12104E-03_JPRB,0.69562E-04_JPRB /)  
+KA(:, 4, 1, 2) = (/ &
+ & 0.11331E-03_JPRB,0.18716E-03_JPRB,0.19673E-03_JPRB,0.19862E-03_JPRB,0.18922E-03_JPRB, &
+ & 0.17345E-03_JPRB,0.15364E-03_JPRB,0.12287E-03_JPRB,0.72145E-04_JPRB /)  
+KA(:, 5, 1, 2) = (/ &
+ & 0.11374E-03_JPRB,0.18626E-03_JPRB,0.19656E-03_JPRB,0.19857E-03_JPRB,0.19062E-03_JPRB, &
+ & 0.17445E-03_JPRB,0.15373E-03_JPRB,0.12483E-03_JPRB,0.74697E-04_JPRB /)  
+KA(:, 1, 2, 2) = (/ &
+ & 0.94458E-04_JPRB,0.16650E-03_JPRB,0.17483E-03_JPRB,0.17491E-03_JPRB,0.16501E-03_JPRB, &
+ & 0.15069E-03_JPRB,0.13359E-03_JPRB,0.10498E-03_JPRB,0.55352E-04_JPRB /)  
+KA(:, 2, 2, 2) = (/ &
+ & 0.96121E-04_JPRB,0.16557E-03_JPRB,0.17383E-03_JPRB,0.17514E-03_JPRB,0.16597E-03_JPRB, &
+ & 0.15082E-03_JPRB,0.13480E-03_JPRB,0.10677E-03_JPRB,0.57531E-04_JPRB /)  
+KA(:, 3, 2, 2) = (/ &
+ & 0.97581E-04_JPRB,0.16494E-03_JPRB,0.17349E-03_JPRB,0.17480E-03_JPRB,0.16726E-03_JPRB, &
+ & 0.15206E-03_JPRB,0.13520E-03_JPRB,0.10844E-03_JPRB,0.59621E-04_JPRB /)  
+KA(:, 4, 2, 2) = (/ &
+ & 0.98152E-04_JPRB,0.16427E-03_JPRB,0.17323E-03_JPRB,0.17471E-03_JPRB,0.16812E-03_JPRB, &
+ & 0.15352E-03_JPRB,0.13523E-03_JPRB,0.11008E-03_JPRB,0.61894E-04_JPRB /)  
+KA(:, 5, 2, 2) = (/ &
+ & 0.98081E-04_JPRB,0.16346E-03_JPRB,0.17334E-03_JPRB,0.17481E-03_JPRB,0.16845E-03_JPRB, &
+ & 0.15496E-03_JPRB,0.13612E-03_JPRB,0.11175E-03_JPRB,0.64159E-04_JPRB /)  
+KA(:, 1, 3, 2) = (/ &
+ & 0.80988E-04_JPRB,0.14444E-03_JPRB,0.15236E-03_JPRB,0.15355E-03_JPRB,0.14515E-03_JPRB, &
+ & 0.13201E-03_JPRB,0.11827E-03_JPRB,0.92843E-04_JPRB,0.47818E-04_JPRB /)  
+KA(:, 2, 3, 2) = (/ &
+ & 0.82627E-04_JPRB,0.14399E-03_JPRB,0.15198E-03_JPRB,0.15308E-03_JPRB,0.14622E-03_JPRB, &
+ & 0.13285E-03_JPRB,0.11829E-03_JPRB,0.94579E-04_JPRB,0.49498E-04_JPRB /)  
+KA(:, 3, 3, 2) = (/ &
+ & 0.83666E-04_JPRB,0.14365E-03_JPRB,0.15183E-03_JPRB,0.15300E-03_JPRB,0.14704E-03_JPRB, &
+ & 0.13418E-03_JPRB,0.11832E-03_JPRB,0.96259E-04_JPRB,0.51225E-04_JPRB /)  
+KA(:, 4, 3, 2) = (/ &
+ & 0.84164E-04_JPRB,0.14362E-03_JPRB,0.15205E-03_JPRB,0.15285E-03_JPRB,0.14764E-03_JPRB, &
+ & 0.13590E-03_JPRB,0.11954E-03_JPRB,0.97885E-04_JPRB,0.52990E-04_JPRB /)  
+KA(:, 5, 3, 2) = (/ &
+ & 0.84014E-04_JPRB,0.14269E-03_JPRB,0.15214E-03_JPRB,0.15331E-03_JPRB,0.14865E-03_JPRB, &
+ & 0.13747E-03_JPRB,0.12089E-03_JPRB,0.99389E-04_JPRB,0.54936E-04_JPRB /)  
+KA(:, 1, 4, 2) = (/ &
+ & 0.69055E-04_JPRB,0.12498E-03_JPRB,0.13260E-03_JPRB,0.13427E-03_JPRB,0.12748E-03_JPRB, &
+ & 0.11593E-03_JPRB,0.10318E-03_JPRB,0.81535E-04_JPRB,0.43344E-04_JPRB /)  
+KA(:, 2, 4, 2) = (/ &
+ & 0.70374E-04_JPRB,0.12479E-03_JPRB,0.13217E-03_JPRB,0.13387E-03_JPRB,0.12823E-03_JPRB, &
+ & 0.11702E-03_JPRB,0.10316E-03_JPRB,0.83059E-04_JPRB,0.44577E-04_JPRB /)  
+KA(:, 3, 4, 2) = (/ &
+ & 0.71321E-04_JPRB,0.12483E-03_JPRB,0.13205E-03_JPRB,0.13371E-03_JPRB,0.12866E-03_JPRB, &
+ & 0.11820E-03_JPRB,0.10422E-03_JPRB,0.84648E-04_JPRB,0.45880E-04_JPRB /)  
+KA(:, 4, 4, 2) = (/ &
+ & 0.71712E-04_JPRB,0.12475E-03_JPRB,0.13249E-03_JPRB,0.13379E-03_JPRB,0.12934E-03_JPRB, &
+ & 0.11960E-03_JPRB,0.10551E-03_JPRB,0.86238E-04_JPRB,0.47243E-04_JPRB /)  
+KA(:, 5, 4, 2) = (/ &
+ & 0.71917E-04_JPRB,0.12433E-03_JPRB,0.13275E-03_JPRB,0.13434E-03_JPRB,0.13049E-03_JPRB, &
+ & 0.12131E-03_JPRB,0.10676E-03_JPRB,0.87830E-04_JPRB,0.48641E-04_JPRB /)  
+KA(:, 1, 5, 2) = (/ &
+ & 0.58527E-04_JPRB,0.10840E-03_JPRB,0.11507E-03_JPRB,0.11730E-03_JPRB,0.11099E-03_JPRB, &
+ & 0.10118E-03_JPRB,0.89566E-04_JPRB,0.71122E-04_JPRB,0.43658E-04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART1',1,ZHOOK_HANDLE)
+END SUBROUTINE PART1
+
+
+SUBROUTINE PART2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART2',0,ZHOOK_HANDLE)
+
+
+KA(:, 2, 5, 2) = (/ &
+ & 0.59798E-04_JPRB,0.10799E-03_JPRB,0.11447E-03_JPRB,0.11692E-03_JPRB,0.11189E-03_JPRB, &
+ & 0.10224E-03_JPRB,0.90255E-04_JPRB,0.72476E-04_JPRB,0.44361E-04_JPRB /)  
+KA(:, 3, 5, 2) = (/ &
+ & 0.60601E-04_JPRB,0.10799E-03_JPRB,0.11464E-03_JPRB,0.11677E-03_JPRB,0.11225E-03_JPRB, &
+ & 0.10358E-03_JPRB,0.91122E-04_JPRB,0.73922E-04_JPRB,0.45004E-04_JPRB /)  
+KA(:, 4, 5, 2) = (/ &
+ & 0.60971E-04_JPRB,0.10798E-03_JPRB,0.11486E-03_JPRB,0.11681E-03_JPRB,0.11304E-03_JPRB, &
+ & 0.10512E-03_JPRB,0.91981E-04_JPRB,0.75441E-04_JPRB,0.45782E-04_JPRB /)  
+KA(:, 5, 5, 2) = (/ &
+ & 0.61166E-04_JPRB,0.10769E-03_JPRB,0.11529E-03_JPRB,0.11740E-03_JPRB,0.11428E-03_JPRB, &
+ & 0.10674E-03_JPRB,0.93329E-04_JPRB,0.76963E-04_JPRB,0.46781E-04_JPRB /)  
+KA(:, 1, 6, 2) = (/ &
+ & 0.49298E-04_JPRB,0.93665E-04_JPRB,0.99302E-04_JPRB,0.10166E-03_JPRB,0.96125E-04_JPRB, &
+ & 0.87991E-04_JPRB,0.77830E-04_JPRB,0.61651E-04_JPRB,0.45761E-04_JPRB /)  
+KA(:, 2, 6, 2) = (/ &
+ & 0.50498E-04_JPRB,0.93479E-04_JPRB,0.98966E-04_JPRB,0.10139E-03_JPRB,0.96705E-04_JPRB, &
+ & 0.89173E-04_JPRB,0.78227E-04_JPRB,0.62850E-04_JPRB,0.46039E-04_JPRB /)  
+KA(:, 3, 6, 2) = (/ &
+ & 0.51269E-04_JPRB,0.93203E-04_JPRB,0.98973E-04_JPRB,0.10127E-03_JPRB,0.97298E-04_JPRB, &
+ & 0.90362E-04_JPRB,0.78802E-04_JPRB,0.64157E-04_JPRB,0.46346E-04_JPRB /)  
+KA(:, 4, 6, 2) = (/ &
+ & 0.51588E-04_JPRB,0.93137E-04_JPRB,0.99162E-04_JPRB,0.10129E-03_JPRB,0.98592E-04_JPRB, &
+ & 0.91554E-04_JPRB,0.79929E-04_JPRB,0.65574E-04_JPRB,0.46727E-04_JPRB /)  
+KA(:, 5, 6, 2) = (/ &
+ & 0.51597E-04_JPRB,0.92792E-04_JPRB,0.99458E-04_JPRB,0.10170E-03_JPRB,0.99448E-04_JPRB, &
+ & 0.92834E-04_JPRB,0.81330E-04_JPRB,0.66366E-04_JPRB,0.47183E-04_JPRB /)  
+KA(:, 1, 7, 2) = (/ &
+ & 0.41246E-04_JPRB,0.80496E-04_JPRB,0.85316E-04_JPRB,0.87435E-04_JPRB,0.82542E-04_JPRB, &
+ & 0.75819E-04_JPRB,0.67022E-04_JPRB,0.53111E-04_JPRB,0.48352E-04_JPRB /)  
+KA(:, 2, 7, 2) = (/ &
+ & 0.42332E-04_JPRB,0.80236E-04_JPRB,0.84984E-04_JPRB,0.87173E-04_JPRB,0.83192E-04_JPRB, &
+ & 0.76872E-04_JPRB,0.67154E-04_JPRB,0.54235E-04_JPRB,0.49203E-04_JPRB /)  
+KA(:, 3, 7, 2) = (/ &
+ & 0.43069E-04_JPRB,0.79969E-04_JPRB,0.85117E-04_JPRB,0.87191E-04_JPRB,0.83963E-04_JPRB, &
+ & 0.78027E-04_JPRB,0.67911E-04_JPRB,0.55423E-04_JPRB,0.50036E-04_JPRB /)  
+KA(:, 4, 7, 2) = (/ &
+ & 0.43347E-04_JPRB,0.79762E-04_JPRB,0.85176E-04_JPRB,0.87282E-04_JPRB,0.84970E-04_JPRB, &
+ & 0.78971E-04_JPRB,0.69097E-04_JPRB,0.56659E-04_JPRB,0.50699E-04_JPRB /)  
+KA(:, 5, 7, 2) = (/ &
+ & 0.43381E-04_JPRB,0.79473E-04_JPRB,0.85320E-04_JPRB,0.87550E-04_JPRB,0.85526E-04_JPRB, &
+ & 0.80111E-04_JPRB,0.70399E-04_JPRB,0.56992E-04_JPRB,0.51218E-04_JPRB /)  
+KA(:, 1, 8, 2) = (/ &
+ & 0.34402E-04_JPRB,0.69256E-04_JPRB,0.73264E-04_JPRB,0.74907E-04_JPRB,0.70733E-04_JPRB, &
+ & 0.65058E-04_JPRB,0.57123E-04_JPRB,0.45547E-04_JPRB,0.49061E-04_JPRB /)  
+KA(:, 2, 8, 2) = (/ &
+ & 0.35394E-04_JPRB,0.68938E-04_JPRB,0.72891E-04_JPRB,0.74693E-04_JPRB,0.71198E-04_JPRB, &
+ & 0.66010E-04_JPRB,0.57419E-04_JPRB,0.46585E-04_JPRB,0.51368E-04_JPRB /)  
+KA(:, 3, 8, 2) = (/ &
+ & 0.36086E-04_JPRB,0.68637E-04_JPRB,0.72875E-04_JPRB,0.74679E-04_JPRB,0.72090E-04_JPRB, &
+ & 0.66902E-04_JPRB,0.58282E-04_JPRB,0.47622E-04_JPRB,0.51837E-04_JPRB /)  
+KA(:, 4, 8, 2) = (/ &
+ & 0.36445E-04_JPRB,0.68326E-04_JPRB,0.72869E-04_JPRB,0.74856E-04_JPRB,0.72765E-04_JPRB, &
+ & 0.67827E-04_JPRB,0.59362E-04_JPRB,0.48483E-04_JPRB,0.52297E-04_JPRB /)  
+KA(:, 5, 8, 2) = (/ &
+ & 0.36483E-04_JPRB,0.68010E-04_JPRB,0.72961E-04_JPRB,0.75096E-04_JPRB,0.73241E-04_JPRB, &
+ & 0.68587E-04_JPRB,0.60512E-04_JPRB,0.48784E-04_JPRB,0.53745E-04_JPRB /)  
+KA(:, 1, 9, 2) = (/ &
+ & 0.28433E-04_JPRB,0.59232E-04_JPRB,0.62701E-04_JPRB,0.63901E-04_JPRB,0.60103E-04_JPRB, &
+ & 0.55141E-04_JPRB,0.48531E-04_JPRB,0.38847E-04_JPRB,0.54662E-04_JPRB /)  
+KA(:, 2, 9, 2) = (/ &
+ & 0.29405E-04_JPRB,0.58918E-04_JPRB,0.62216E-04_JPRB,0.63604E-04_JPRB,0.60633E-04_JPRB, &
+ & 0.55830E-04_JPRB,0.48918E-04_JPRB,0.39795E-04_JPRB,0.56459E-04_JPRB /)  
+KA(:, 3, 9, 2) = (/ &
+ & 0.30040E-04_JPRB,0.58597E-04_JPRB,0.61986E-04_JPRB,0.63627E-04_JPRB,0.61357E-04_JPRB, &
+ & 0.56779E-04_JPRB,0.49706E-04_JPRB,0.40729E-04_JPRB,0.58698E-04_JPRB /)  
+KA(:, 4, 9, 2) = (/ &
+ & 0.30412E-04_JPRB,0.58268E-04_JPRB,0.61940E-04_JPRB,0.63690E-04_JPRB,0.61916E-04_JPRB, &
+ & 0.57700E-04_JPRB,0.50677E-04_JPRB,0.41137E-04_JPRB,0.60426E-04_JPRB /)  
+KA(:, 5, 9, 2) = (/ &
+ & 0.30517E-04_JPRB,0.57913E-04_JPRB,0.61982E-04_JPRB,0.63808E-04_JPRB,0.62307E-04_JPRB, &
+ & 0.58353E-04_JPRB,0.51602E-04_JPRB,0.41668E-04_JPRB,0.61933E-04_JPRB /)  
+KA(:, 1,10, 2) = (/ &
+ & 0.23291E-04_JPRB,0.50308E-04_JPRB,0.53243E-04_JPRB,0.54258E-04_JPRB,0.50787E-04_JPRB, &
+ & 0.46509E-04_JPRB,0.41036E-04_JPRB,0.32969E-04_JPRB,0.63749E-04_JPRB /)  
+KA(:, 2,10, 2) = (/ &
+ & 0.24304E-04_JPRB,0.50027E-04_JPRB,0.52858E-04_JPRB,0.54035E-04_JPRB,0.51457E-04_JPRB, &
+ & 0.47117E-04_JPRB,0.41427E-04_JPRB,0.33795E-04_JPRB,0.67891E-04_JPRB /)  
+KA(:, 3,10, 2) = (/ &
+ & 0.24884E-04_JPRB,0.49658E-04_JPRB,0.52484E-04_JPRB,0.53877E-04_JPRB,0.52001E-04_JPRB, &
+ & 0.47908E-04_JPRB,0.42080E-04_JPRB,0.34652E-04_JPRB,0.71374E-04_JPRB /)  
+KA(:, 4,10, 2) = (/ &
+ & 0.25245E-04_JPRB,0.49329E-04_JPRB,0.52369E-04_JPRB,0.53861E-04_JPRB,0.52353E-04_JPRB, &
+ & 0.48763E-04_JPRB,0.42918E-04_JPRB,0.34903E-04_JPRB,0.73983E-04_JPRB /)  
+KA(:, 5,10, 2) = (/ &
+ & 0.25399E-04_JPRB,0.49019E-04_JPRB,0.52344E-04_JPRB,0.53920E-04_JPRB,0.52702E-04_JPRB, &
+ & 0.49354E-04_JPRB,0.43795E-04_JPRB,0.35336E-04_JPRB,0.76874E-04_JPRB /)  
+KA(:, 1,11, 2) = (/ &
+ & 0.19464E-04_JPRB,0.42428E-04_JPRB,0.44774E-04_JPRB,0.45764E-04_JPRB,0.43065E-04_JPRB, &
+ & 0.39257E-04_JPRB,0.34681E-04_JPRB,0.28149E-04_JPRB,0.56538E-04_JPRB /)  
+KA(:, 2,11, 2) = (/ &
+ & 0.20274E-04_JPRB,0.42118E-04_JPRB,0.44484E-04_JPRB,0.45525E-04_JPRB,0.43594E-04_JPRB, &
+ & 0.39908E-04_JPRB,0.35109E-04_JPRB,0.28880E-04_JPRB,0.61143E-04_JPRB /)  
+KA(:, 3,11, 2) = (/ &
+ & 0.20723E-04_JPRB,0.41781E-04_JPRB,0.44183E-04_JPRB,0.45345E-04_JPRB,0.43968E-04_JPRB, &
+ & 0.40542E-04_JPRB,0.35722E-04_JPRB,0.29427E-04_JPRB,0.66428E-04_JPRB /)  
+KA(:, 4,11, 2) = (/ &
+ & 0.20986E-04_JPRB,0.41469E-04_JPRB,0.44005E-04_JPRB,0.45299E-04_JPRB,0.44240E-04_JPRB, &
+ & 0.41204E-04_JPRB,0.36501E-04_JPRB,0.29565E-04_JPRB,0.70536E-04_JPRB /)  
+KA(:, 5,11, 2) = (/ &
+ & 0.21088E-04_JPRB,0.41122E-04_JPRB,0.44008E-04_JPRB,0.45344E-04_JPRB,0.44427E-04_JPRB, &
+ & 0.41695E-04_JPRB,0.37345E-04_JPRB,0.29974E-04_JPRB,0.74164E-04_JPRB /)  
+KA(:, 1,12, 2) = (/ &
+ & 0.16205E-04_JPRB,0.35661E-04_JPRB,0.37585E-04_JPRB,0.38332E-04_JPRB,0.36196E-04_JPRB, &
+ & 0.33054E-04_JPRB,0.29216E-04_JPRB,0.23917E-04_JPRB,0.49111E-04_JPRB /)  
+KA(:, 2,12, 2) = (/ &
+ & 0.16873E-04_JPRB,0.35314E-04_JPRB,0.37290E-04_JPRB,0.38165E-04_JPRB,0.36667E-04_JPRB, &
+ & 0.33618E-04_JPRB,0.29598E-04_JPRB,0.24536E-04_JPRB,0.53408E-04_JPRB /)  
+KA(:, 3,12, 2) = (/ &
+ & 0.17216E-04_JPRB,0.35012E-04_JPRB,0.37013E-04_JPRB,0.37971E-04_JPRB,0.36937E-04_JPRB, &
+ & 0.34200E-04_JPRB,0.30188E-04_JPRB,0.24727E-04_JPRB,0.56692E-04_JPRB /)  
+KA(:, 4,12, 2) = (/ &
+ & 0.17409E-04_JPRB,0.34711E-04_JPRB,0.36851E-04_JPRB,0.37885E-04_JPRB,0.37053E-04_JPRB, &
+ & 0.34609E-04_JPRB,0.30881E-04_JPRB,0.24937E-04_JPRB,0.60809E-04_JPRB /)  
+KA(:, 5,12, 2) = (/ &
+ & 0.17480E-04_JPRB,0.34362E-04_JPRB,0.36830E-04_JPRB,0.37891E-04_JPRB,0.37213E-04_JPRB, &
+ & 0.35045E-04_JPRB,0.31524E-04_JPRB,0.25269E-04_JPRB,0.65163E-04_JPRB /)  
+KA(:, 1,13, 2) = (/ &
+ & 0.13457E-04_JPRB,0.29884E-04_JPRB,0.31446E-04_JPRB,0.32052E-04_JPRB,0.30374E-04_JPRB, &
+ & 0.27733E-04_JPRB,0.24511E-04_JPRB,0.20198E-04_JPRB,0.41009E-04_JPRB /)  
+KA(:, 2,13, 2) = (/ &
+ & 0.14007E-04_JPRB,0.29560E-04_JPRB,0.31187E-04_JPRB,0.31882E-04_JPRB,0.30716E-04_JPRB, &
+ & 0.28181E-04_JPRB,0.24877E-04_JPRB,0.20737E-04_JPRB,0.44661E-04_JPRB /)  
+KA(:, 3,13, 2) = (/ &
+ & 0.14280E-04_JPRB,0.29273E-04_JPRB,0.30932E-04_JPRB,0.31685E-04_JPRB,0.30856E-04_JPRB, &
+ & 0.28687E-04_JPRB,0.25310E-04_JPRB,0.20664E-04_JPRB,0.47397E-04_JPRB /)  
+KA(:, 4,13, 2) = (/ &
+ & 0.14434E-04_JPRB,0.28982E-04_JPRB,0.30751E-04_JPRB,0.31601E-04_JPRB,0.30957E-04_JPRB, &
+ & 0.28945E-04_JPRB,0.25864E-04_JPRB,0.20868E-04_JPRB,0.50575E-04_JPRB /)  
+KA(:, 5,13, 2) = (/ &
+ & 0.14483E-04_JPRB,0.28660E-04_JPRB,0.30711E-04_JPRB,0.31533E-04_JPRB,0.31075E-04_JPRB, &
+ & 0.29320E-04_JPRB,0.26408E-04_JPRB,0.21257E-04_JPRB,0.54097E-04_JPRB /)  
+KA(:, 1, 1, 3) = (/ &
+ & 0.22536E-03_JPRB,0.32037E-03_JPRB,0.33781E-03_JPRB,0.34273E-03_JPRB,0.33729E-03_JPRB, &
+ & 0.32075E-03_JPRB,0.29153E-03_JPRB,0.24856E-03_JPRB,0.16410E-03_JPRB /)  
+KA(:, 2, 1, 3) = (/ &
+ & 0.22342E-03_JPRB,0.32281E-03_JPRB,0.34293E-03_JPRB,0.34673E-03_JPRB,0.34167E-03_JPRB, &
+ & 0.32688E-03_JPRB,0.29787E-03_JPRB,0.25566E-03_JPRB,0.17029E-03_JPRB /)  
+KA(:, 3, 1, 3) = (/ &
+ & 0.22157E-03_JPRB,0.32559E-03_JPRB,0.34865E-03_JPRB,0.35164E-03_JPRB,0.34805E-03_JPRB, &
+ & 0.33353E-03_JPRB,0.30505E-03_JPRB,0.26380E-03_JPRB,0.17749E-03_JPRB /)  
+KA(:, 4, 1, 3) = (/ &
+ & 0.21986E-03_JPRB,0.32894E-03_JPRB,0.35375E-03_JPRB,0.35845E-03_JPRB,0.35514E-03_JPRB, &
+ & 0.33992E-03_JPRB,0.31266E-03_JPRB,0.27259E-03_JPRB,0.18209E-03_JPRB /)  
+KA(:, 5, 1, 3) = (/ &
+ & 0.21815E-03_JPRB,0.33282E-03_JPRB,0.35982E-03_JPRB,0.36699E-03_JPRB,0.36319E-03_JPRB, &
+ & 0.34849E-03_JPRB,0.32265E-03_JPRB,0.28174E-03_JPRB,0.18630E-03_JPRB /)  
+KA(:, 1, 2, 3) = (/ &
+ & 0.19541E-03_JPRB,0.28383E-03_JPRB,0.30057E-03_JPRB,0.30208E-03_JPRB,0.29811E-03_JPRB, &
+ & 0.28614E-03_JPRB,0.25813E-03_JPRB,0.22172E-03_JPRB,0.14533E-03_JPRB /)  
+KA(:, 2, 2, 3) = (/ &
+ & 0.19410E-03_JPRB,0.28606E-03_JPRB,0.30502E-03_JPRB,0.30638E-03_JPRB,0.30342E-03_JPRB, &
+ & 0.29123E-03_JPRB,0.26438E-03_JPRB,0.22759E-03_JPRB,0.15063E-03_JPRB /)  
+KA(:, 3, 2, 3) = (/ &
+ & 0.19280E-03_JPRB,0.28892E-03_JPRB,0.31031E-03_JPRB,0.31345E-03_JPRB,0.30930E-03_JPRB, &
+ & 0.29708E-03_JPRB,0.27075E-03_JPRB,0.23476E-03_JPRB,0.15387E-03_JPRB /)  
+KA(:, 4, 2, 3) = (/ &
+ & 0.19169E-03_JPRB,0.29226E-03_JPRB,0.31596E-03_JPRB,0.32060E-03_JPRB,0.31687E-03_JPRB, &
+ & 0.30282E-03_JPRB,0.27961E-03_JPRB,0.24147E-03_JPRB,0.15653E-03_JPRB /)  
+KA(:, 5, 2, 3) = (/ &
+ & 0.19047E-03_JPRB,0.29594E-03_JPRB,0.32186E-03_JPRB,0.32831E-03_JPRB,0.32510E-03_JPRB, &
+ & 0.31022E-03_JPRB,0.28786E-03_JPRB,0.24847E-03_JPRB,0.16195E-03_JPRB /)  
+KA(:, 1, 3, 3) = (/ &
+ & 0.16871E-03_JPRB,0.24969E-03_JPRB,0.26468E-03_JPRB,0.26465E-03_JPRB,0.26214E-03_JPRB, &
+ & 0.25247E-03_JPRB,0.22732E-03_JPRB,0.19530E-03_JPRB,0.12777E-03_JPRB /)  
+KA(:, 2, 3, 3) = (/ &
+ & 0.16793E-03_JPRB,0.25161E-03_JPRB,0.26876E-03_JPRB,0.26973E-03_JPRB,0.26695E-03_JPRB, &
+ & 0.25688E-03_JPRB,0.23244E-03_JPRB,0.20054E-03_JPRB,0.12972E-03_JPRB /)  
+KA(:, 3, 3, 3) = (/ &
+ & 0.16733E-03_JPRB,0.25378E-03_JPRB,0.27385E-03_JPRB,0.27612E-03_JPRB,0.27305E-03_JPRB, &
+ & 0.26119E-03_JPRB,0.23922E-03_JPRB,0.20542E-03_JPRB,0.13061E-03_JPRB /)  
+KA(:, 4, 3, 3) = (/ &
+ & 0.16706E-03_JPRB,0.25676E-03_JPRB,0.27970E-03_JPRB,0.28379E-03_JPRB,0.28013E-03_JPRB, &
+ & 0.26708E-03_JPRB,0.24668E-03_JPRB,0.21081E-03_JPRB,0.13394E-03_JPRB /)  
+KA(:, 5, 3, 3) = (/ &
+ & 0.16637E-03_JPRB,0.26037E-03_JPRB,0.28504E-03_JPRB,0.29050E-03_JPRB,0.28611E-03_JPRB, &
+ & 0.27355E-03_JPRB,0.25260E-03_JPRB,0.21670E-03_JPRB,0.13844E-03_JPRB /)  
+KA(:, 1, 4, 3) = (/ &
+ & 0.14579E-03_JPRB,0.21908E-03_JPRB,0.23187E-03_JPRB,0.23162E-03_JPRB,0.22921E-03_JPRB, &
+ & 0.22070E-03_JPRB,0.19997E-03_JPRB,0.17094E-03_JPRB,0.11198E-03_JPRB /)  
+KA(:, 2, 4, 3) = (/ &
+ & 0.14542E-03_JPRB,0.22095E-03_JPRB,0.23576E-03_JPRB,0.23659E-03_JPRB,0.23393E-03_JPRB, &
+ & 0.22421E-03_JPRB,0.20413E-03_JPRB,0.17485E-03_JPRB,0.11080E-03_JPRB /)  
+KA(:, 3, 4, 3) = (/ &
+ & 0.14519E-03_JPRB,0.22277E-03_JPRB,0.24039E-03_JPRB,0.24264E-03_JPRB,0.23941E-03_JPRB, &
+ & 0.22826E-03_JPRB,0.20957E-03_JPRB,0.17862E-03_JPRB,0.11236E-03_JPRB /)  
+KA(:, 4, 4, 3) = (/ &
+ & 0.14504E-03_JPRB,0.22526E-03_JPRB,0.24523E-03_JPRB,0.24877E-03_JPRB,0.24473E-03_JPRB, &
+ & 0.23381E-03_JPRB,0.21512E-03_JPRB,0.18339E-03_JPRB,0.11577E-03_JPRB /)  
+KA(:, 5, 4, 3) = (/ &
+ & 0.14497E-03_JPRB,0.22869E-03_JPRB,0.25070E-03_JPRB,0.25513E-03_JPRB,0.25076E-03_JPRB, &
+ & 0.23990E-03_JPRB,0.22117E-03_JPRB,0.18804E-03_JPRB,0.11947E-03_JPRB /)  
+KA(:, 1, 5, 3) = (/ &
+ & 0.12609E-03_JPRB,0.19125E-03_JPRB,0.20302E-03_JPRB,0.20235E-03_JPRB,0.20038E-03_JPRB, &
+ & 0.19210E-03_JPRB,0.17493E-03_JPRB,0.14918E-03_JPRB,0.95914E-04_JPRB /)  
+KA(:, 2, 5, 3) = (/ &
+ & 0.12575E-03_JPRB,0.19304E-03_JPRB,0.20668E-03_JPRB,0.20708E-03_JPRB,0.20395E-03_JPRB, &
+ & 0.19513E-03_JPRB,0.17862E-03_JPRB,0.15191E-03_JPRB,0.95952E-04_JPRB /)  
+KA(:, 3, 5, 3) = (/ &
+ & 0.12572E-03_JPRB,0.19504E-03_JPRB,0.21070E-03_JPRB,0.21227E-03_JPRB,0.20862E-03_JPRB, &
+ & 0.19877E-03_JPRB,0.18323E-03_JPRB,0.15540E-03_JPRB,0.98040E-04_JPRB /)  
+KA(:, 4, 5, 3) = (/ &
+ & 0.12578E-03_JPRB,0.19736E-03_JPRB,0.21498E-03_JPRB,0.21770E-03_JPRB,0.21305E-03_JPRB, &
+ & 0.20380E-03_JPRB,0.18766E-03_JPRB,0.15949E-03_JPRB,0.10020E-03_JPRB /)  
+KA(:, 5, 5, 3) = (/ &
+ & 0.12588E-03_JPRB,0.20051E-03_JPRB,0.21971E-03_JPRB,0.22313E-03_JPRB,0.21848E-03_JPRB, &
+ & 0.20915E-03_JPRB,0.19284E-03_JPRB,0.16321E-03_JPRB,0.10267E-03_JPRB /)  
+KA(:, 1, 6, 3) = (/ &
+ & 0.10863E-03_JPRB,0.16576E-03_JPRB,0.17695E-03_JPRB,0.17678E-03_JPRB,0.17469E-03_JPRB, &
+ & 0.16678E-03_JPRB,0.15163E-03_JPRB,0.12940E-03_JPRB,0.89550E-04_JPRB /)  
+KA(:, 2, 6, 3) = (/ &
+ & 0.10863E-03_JPRB,0.16706E-03_JPRB,0.18030E-03_JPRB,0.18081E-03_JPRB,0.17775E-03_JPRB, &
+ & 0.16938E-03_JPRB,0.15534E-03_JPRB,0.13148E-03_JPRB,0.89670E-04_JPRB /)  
+KA(:, 3, 6, 3) = (/ &
+ & 0.10855E-03_JPRB,0.16916E-03_JPRB,0.18384E-03_JPRB,0.18538E-03_JPRB,0.18134E-03_JPRB, &
+ & 0.17272E-03_JPRB,0.15912E-03_JPRB,0.13459E-03_JPRB,0.90520E-04_JPRB /)  
+KA(:, 4, 6, 3) = (/ &
+ & 0.10855E-03_JPRB,0.17152E-03_JPRB,0.18761E-03_JPRB,0.18997E-03_JPRB,0.18510E-03_JPRB, &
+ & 0.17711E-03_JPRB,0.16286E-03_JPRB,0.13757E-03_JPRB,0.91792E-04_JPRB /)  
+KA(:, 5, 6, 3) = (/ &
+ & 0.10853E-03_JPRB,0.17415E-03_JPRB,0.19152E-03_JPRB,0.19450E-03_JPRB,0.18955E-03_JPRB, &
+ & 0.18160E-03_JPRB,0.16658E-03_JPRB,0.14151E-03_JPRB,0.94030E-04_JPRB /)  
+KA(:, 1, 7, 3) = (/ &
+ & 0.92930E-04_JPRB,0.14283E-03_JPRB,0.15332E-03_JPRB,0.15365E-03_JPRB,0.15192E-03_JPRB, &
+ & 0.14476E-03_JPRB,0.13092E-03_JPRB,0.11095E-03_JPRB,0.91877E-04_JPRB /)  
+KA(:, 2, 7, 3) = (/ &
+ & 0.92984E-04_JPRB,0.14401E-03_JPRB,0.15614E-03_JPRB,0.15721E-03_JPRB,0.15413E-03_JPRB, &
+ & 0.14688E-03_JPRB,0.13443E-03_JPRB,0.11315E-03_JPRB,0.90405E-04_JPRB /)  
+KA(:, 3, 7, 3) = (/ &
+ & 0.92945E-04_JPRB,0.14573E-03_JPRB,0.15905E-03_JPRB,0.16110E-03_JPRB,0.15737E-03_JPRB, &
+ & 0.14983E-03_JPRB,0.13738E-03_JPRB,0.11591E-03_JPRB,0.89977E-04_JPRB /)  
+KA(:, 4, 7, 3) = (/ &
+ & 0.93035E-04_JPRB,0.14787E-03_JPRB,0.16239E-03_JPRB,0.16472E-03_JPRB,0.16084E-03_JPRB, &
+ & 0.15371E-03_JPRB,0.14051E-03_JPRB,0.11827E-03_JPRB,0.90955E-04_JPRB /)  
+KA(:, 5, 7, 3) = (/ &
+ & 0.92985E-04_JPRB,0.15023E-03_JPRB,0.16593E-03_JPRB,0.16877E-03_JPRB,0.16496E-03_JPRB, &
+ & 0.15743E-03_JPRB,0.14348E-03_JPRB,0.12221E-03_JPRB,0.92269E-04_JPRB /)  
+KA(:, 1, 8, 3) = (/ &
+ & 0.79600E-04_JPRB,0.12290E-03_JPRB,0.13269E-03_JPRB,0.13322E-03_JPRB,0.13145E-03_JPRB, &
+ & 0.12540E-03_JPRB,0.11354E-03_JPRB,0.94559E-04_JPRB,0.10796E-03_JPRB /)  
+KA(:, 2, 8, 3) = (/ &
+ & 0.79683E-04_JPRB,0.12390E-03_JPRB,0.13495E-03_JPRB,0.13633E-03_JPRB,0.13351E-03_JPRB, &
+ & 0.12708E-03_JPRB,0.11620E-03_JPRB,0.96898E-04_JPRB,0.10854E-03_JPRB /)  
+KA(:, 3, 8, 3) = (/ &
+ & 0.79630E-04_JPRB,0.12537E-03_JPRB,0.13745E-03_JPRB,0.13937E-03_JPRB,0.13626E-03_JPRB, &
+ & 0.12970E-03_JPRB,0.11867E-03_JPRB,0.99068E-04_JPRB,0.10974E-03_JPRB /)  
+KA(:, 4, 8, 3) = (/ &
+ & 0.79625E-04_JPRB,0.12719E-03_JPRB,0.14027E-03_JPRB,0.14234E-03_JPRB,0.13941E-03_JPRB, &
+ & 0.13283E-03_JPRB,0.12113E-03_JPRB,0.10155E-03_JPRB,0.11075E-03_JPRB /)  
+KA(:, 5, 8, 3) = (/ &
+ & 0.79589E-04_JPRB,0.12914E-03_JPRB,0.14322E-03_JPRB,0.14575E-03_JPRB,0.14305E-03_JPRB, &
+ & 0.13597E-03_JPRB,0.12361E-03_JPRB,0.10505E-03_JPRB,0.11038E-03_JPRB /)  
+KA(:, 1, 9, 3) = (/ &
+ & 0.67917E-04_JPRB,0.10525E-03_JPRB,0.11421E-03_JPRB,0.11510E-03_JPRB,0.11341E-03_JPRB, &
+ & 0.10850E-03_JPRB,0.97945E-04_JPRB,0.80197E-04_JPRB,0.13259E-03_JPRB /)  
+KA(:, 2, 9, 3) = (/ &
+ & 0.67928E-04_JPRB,0.10625E-03_JPRB,0.11606E-03_JPRB,0.11762E-03_JPRB,0.11532E-03_JPRB, &
+ & 0.11035E-03_JPRB,0.10017E-03_JPRB,0.82394E-04_JPRB,0.13427E-03_JPRB /)  
+KA(:, 3, 9, 3) = (/ &
+ & 0.67856E-04_JPRB,0.10744E-03_JPRB,0.11824E-03_JPRB,0.11998E-03_JPRB,0.11756E-03_JPRB, &
+ & 0.11235E-03_JPRB,0.10203E-03_JPRB,0.84408E-04_JPRB,0.13461E-03_JPRB /)  
+KA(:, 4, 9, 3) = (/ &
+ & 0.67768E-04_JPRB,0.10890E-03_JPRB,0.12070E-03_JPRB,0.12262E-03_JPRB,0.12012E-03_JPRB, &
+ & 0.11456E-03_JPRB,0.10420E-03_JPRB,0.86916E-04_JPRB,0.13504E-03_JPRB /)  
+KA(:, 5, 9, 3) = (/ &
+ & 0.67707E-04_JPRB,0.11054E-03_JPRB,0.12323E-03_JPRB,0.12567E-03_JPRB,0.12318E-03_JPRB, &
+ & 0.11694E-03_JPRB,0.10644E-03_JPRB,0.89648E-04_JPRB,0.13829E-03_JPRB /)  
+KA(:, 1,10, 3) = (/ &
+ & 0.57658E-04_JPRB,0.89812E-04_JPRB,0.97774E-04_JPRB,0.98825E-04_JPRB,0.97412E-04_JPRB, &
+ & 0.93433E-04_JPRB,0.84119E-04_JPRB,0.68026E-04_JPRB,0.20137E-03_JPRB /)  
+KA(:, 2,10, 3) = (/ &
+ & 0.57461E-04_JPRB,0.90575E-04_JPRB,0.99228E-04_JPRB,0.10076E-03_JPRB,0.98930E-04_JPRB, &
+ & 0.94984E-04_JPRB,0.86081E-04_JPRB,0.70085E-04_JPRB,0.20178E-03_JPRB /)  
+KA(:, 3,10, 3) = (/ &
+ & 0.57397E-04_JPRB,0.91666E-04_JPRB,0.10122E-03_JPRB,0.10281E-03_JPRB,0.10088E-03_JPRB, &
+ & 0.96688E-04_JPRB,0.87695E-04_JPRB,0.72010E-04_JPRB,0.20052E-03_JPRB /)  
+KA(:, 4,10, 3) = (/ &
+ & 0.57291E-04_JPRB,0.92869E-04_JPRB,0.10334E-03_JPRB,0.10517E-03_JPRB,0.10317E-03_JPRB, &
+ & 0.98293E-04_JPRB,0.89394E-04_JPRB,0.74251E-04_JPRB,0.20103E-03_JPRB /)  
+KA(:, 5,10, 3) = (/ &
+ & 0.57126E-04_JPRB,0.94072E-04_JPRB,0.10545E-03_JPRB,0.10789E-03_JPRB,0.10579E-03_JPRB, &
+ & 0.10034E-03_JPRB,0.91420E-04_JPRB,0.76761E-04_JPRB,0.20035E-03_JPRB /)  
+KA(:, 1,11, 3) = (/ &
+ & 0.48600E-04_JPRB,0.76535E-04_JPRB,0.83721E-04_JPRB,0.84782E-04_JPRB,0.83379E-04_JPRB, &
+ & 0.80481E-04_JPRB,0.72441E-04_JPRB,0.58503E-04_JPRB,0.20926E-03_JPRB /)  
+KA(:, 2,11, 3) = (/ &
+ & 0.48356E-04_JPRB,0.77272E-04_JPRB,0.85067E-04_JPRB,0.86588E-04_JPRB,0.84928E-04_JPRB, &
+ & 0.81803E-04_JPRB,0.74015E-04_JPRB,0.60222E-04_JPRB,0.21110E-03_JPRB /)  
+KA(:, 3,11, 3) = (/ &
+ & 0.48180E-04_JPRB,0.78198E-04_JPRB,0.86939E-04_JPRB,0.88416E-04_JPRB,0.86712E-04_JPRB, &
+ & 0.83176E-04_JPRB,0.75535E-04_JPRB,0.61973E-04_JPRB,0.20823E-03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART2',1,ZHOOK_HANDLE)
+END SUBROUTINE PART2
+
+
+SUBROUTINE PART3
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART3',0,ZHOOK_HANDLE)
+
+
+KA(:, 4,11, 3) = (/ &
+ & 0.48042E-04_JPRB,0.79160E-04_JPRB,0.88776E-04_JPRB,0.90704E-04_JPRB,0.88934E-04_JPRB, &
+ & 0.84522E-04_JPRB,0.76983E-04_JPRB,0.64264E-04_JPRB,0.20745E-03_JPRB /)  
+KA(:, 5,11, 3) = (/ &
+ & 0.47901E-04_JPRB,0.80171E-04_JPRB,0.90395E-04_JPRB,0.92950E-04_JPRB,0.91253E-04_JPRB, &
+ & 0.86364E-04_JPRB,0.78675E-04_JPRB,0.66159E-04_JPRB,0.20642E-03_JPRB /)  
+KA(:, 1,12, 3) = (/ &
+ & 0.40769E-04_JPRB,0.64775E-04_JPRB,0.71240E-04_JPRB,0.72409E-04_JPRB,0.71085E-04_JPRB, &
+ & 0.68679E-04_JPRB,0.61925E-04_JPRB,0.50009E-04_JPRB,0.19056E-03_JPRB /)  
+KA(:, 2,12, 3) = (/ &
+ & 0.40486E-04_JPRB,0.65479E-04_JPRB,0.72574E-04_JPRB,0.73906E-04_JPRB,0.72438E-04_JPRB, &
+ & 0.69693E-04_JPRB,0.63286E-04_JPRB,0.51717E-04_JPRB,0.19000E-03_JPRB /)  
+KA(:, 3,12, 3) = (/ &
+ & 0.40313E-04_JPRB,0.66212E-04_JPRB,0.74137E-04_JPRB,0.75686E-04_JPRB,0.74201E-04_JPRB, &
+ & 0.70781E-04_JPRB,0.64554E-04_JPRB,0.53372E-04_JPRB,0.19242E-03_JPRB /)  
+KA(:, 4,12, 3) = (/ &
+ & 0.40107E-04_JPRB,0.66938E-04_JPRB,0.75524E-04_JPRB,0.77664E-04_JPRB,0.76142E-04_JPRB, &
+ & 0.72280E-04_JPRB,0.65894E-04_JPRB,0.55174E-04_JPRB,0.19382E-03_JPRB /)  
+KA(:, 5,12, 3) = (/ &
+ & 0.39910E-04_JPRB,0.67782E-04_JPRB,0.76780E-04_JPRB,0.79463E-04_JPRB,0.78210E-04_JPRB, &
+ & 0.73902E-04_JPRB,0.67292E-04_JPRB,0.56789E-04_JPRB,0.19106E-03_JPRB /)  
+KA(:, 1,13, 3) = (/ &
+ & 0.34103E-04_JPRB,0.54622E-04_JPRB,0.60315E-04_JPRB,0.61417E-04_JPRB,0.60332E-04_JPRB, &
+ & 0.58110E-04_JPRB,0.52537E-04_JPRB,0.42612E-04_JPRB,0.15955E-03_JPRB /)  
+KA(:, 2,13, 3) = (/ &
+ & 0.33853E-04_JPRB,0.55148E-04_JPRB,0.61492E-04_JPRB,0.62745E-04_JPRB,0.61577E-04_JPRB, &
+ & 0.59061E-04_JPRB,0.53702E-04_JPRB,0.43873E-04_JPRB,0.15892E-03_JPRB /)  
+KA(:, 3,13, 3) = (/ &
+ & 0.33647E-04_JPRB,0.55699E-04_JPRB,0.62687E-04_JPRB,0.64355E-04_JPRB,0.63160E-04_JPRB, &
+ & 0.60072E-04_JPRB,0.54954E-04_JPRB,0.45643E-04_JPRB,0.16047E-03_JPRB /)  
+KA(:, 4,13, 3) = (/ &
+ & 0.33430E-04_JPRB,0.56291E-04_JPRB,0.63770E-04_JPRB,0.65844E-04_JPRB,0.64844E-04_JPRB, &
+ & 0.61457E-04_JPRB,0.56064E-04_JPRB,0.47101E-04_JPRB,0.16125E-03_JPRB /)  
+KA(:, 5,13, 3) = (/ &
+ & 0.33186E-04_JPRB,0.56947E-04_JPRB,0.64747E-04_JPRB,0.67352E-04_JPRB,0.66508E-04_JPRB, &
+ & 0.62903E-04_JPRB,0.57307E-04_JPRB,0.48379E-04_JPRB,0.16021E-03_JPRB /)  
+KA(:, 1, 1, 4) = (/ &
+ & 0.36602E-03_JPRB,0.52858E-03_JPRB,0.59251E-03_JPRB,0.61027E-03_JPRB,0.60893E-03_JPRB, &
+ & 0.58987E-03_JPRB,0.55560E-03_JPRB,0.49855E-03_JPRB,0.38105E-03_JPRB /)  
+KA(:, 2, 1, 4) = (/ &
+ & 0.36935E-03_JPRB,0.53570E-03_JPRB,0.60138E-03_JPRB,0.62341E-03_JPRB,0.62297E-03_JPRB, &
+ & 0.60228E-03_JPRB,0.56872E-03_JPRB,0.51035E-03_JPRB,0.39106E-03_JPRB /)  
+KA(:, 3, 1, 4) = (/ &
+ & 0.37348E-03_JPRB,0.54590E-03_JPRB,0.61238E-03_JPRB,0.63855E-03_JPRB,0.63820E-03_JPRB, &
+ & 0.61734E-03_JPRB,0.58475E-03_JPRB,0.52206E-03_JPRB,0.40317E-03_JPRB /)  
+KA(:, 4, 1, 4) = (/ &
+ & 0.37665E-03_JPRB,0.55373E-03_JPRB,0.62261E-03_JPRB,0.65120E-03_JPRB,0.65250E-03_JPRB, &
+ & 0.63373E-03_JPRB,0.59840E-03_JPRB,0.53517E-03_JPRB,0.41639E-03_JPRB /)  
+KA(:, 5, 1, 4) = (/ &
+ & 0.38076E-03_JPRB,0.56302E-03_JPRB,0.63456E-03_JPRB,0.66611E-03_JPRB,0.66857E-03_JPRB, &
+ & 0.65240E-03_JPRB,0.61521E-03_JPRB,0.55178E-03_JPRB,0.43702E-03_JPRB /)  
+KA(:, 1, 2, 4) = (/ &
+ & 0.32225E-03_JPRB,0.47151E-03_JPRB,0.53262E-03_JPRB,0.55192E-03_JPRB,0.54706E-03_JPRB, &
+ & 0.52658E-03_JPRB,0.49569E-03_JPRB,0.43958E-03_JPRB,0.31739E-03_JPRB /)  
+KA(:, 2, 2, 4) = (/ &
+ & 0.32532E-03_JPRB,0.47816E-03_JPRB,0.54076E-03_JPRB,0.56222E-03_JPRB,0.55834E-03_JPRB, &
+ & 0.53879E-03_JPRB,0.50612E-03_JPRB,0.44777E-03_JPRB,0.32763E-03_JPRB /)  
+KA(:, 3, 2, 4) = (/ &
+ & 0.32941E-03_JPRB,0.48729E-03_JPRB,0.55083E-03_JPRB,0.57497E-03_JPRB,0.57312E-03_JPRB, &
+ & 0.55394E-03_JPRB,0.51991E-03_JPRB,0.45969E-03_JPRB,0.33942E-03_JPRB /)  
+KA(:, 4, 2, 4) = (/ &
+ & 0.33303E-03_JPRB,0.49510E-03_JPRB,0.56036E-03_JPRB,0.58720E-03_JPRB,0.58669E-03_JPRB, &
+ & 0.56974E-03_JPRB,0.53255E-03_JPRB,0.47385E-03_JPRB,0.35453E-03_JPRB /)  
+KA(:, 5, 2, 4) = (/ &
+ & 0.33657E-03_JPRB,0.50290E-03_JPRB,0.57014E-03_JPRB,0.59917E-03_JPRB,0.59997E-03_JPRB, &
+ & 0.58475E-03_JPRB,0.54777E-03_JPRB,0.48909E-03_JPRB,0.36980E-03_JPRB /)  
+KA(:, 1, 3, 4) = (/ &
+ & 0.28263E-03_JPRB,0.41968E-03_JPRB,0.47376E-03_JPRB,0.49297E-03_JPRB,0.48633E-03_JPRB, &
+ & 0.46530E-03_JPRB,0.43654E-03_JPRB,0.38496E-03_JPRB,0.26217E-03_JPRB /)  
+KA(:, 2, 3, 4) = (/ &
+ & 0.28517E-03_JPRB,0.42528E-03_JPRB,0.48017E-03_JPRB,0.50148E-03_JPRB,0.49564E-03_JPRB, &
+ & 0.47634E-03_JPRB,0.44517E-03_JPRB,0.39228E-03_JPRB,0.27386E-03_JPRB /)  
+KA(:, 3, 3, 4) = (/ &
+ & 0.28805E-03_JPRB,0.43254E-03_JPRB,0.48769E-03_JPRB,0.51075E-03_JPRB,0.50628E-03_JPRB, &
+ & 0.48940E-03_JPRB,0.45557E-03_JPRB,0.40274E-03_JPRB,0.28527E-03_JPRB /)  
+KA(:, 4, 3, 4) = (/ &
+ & 0.29156E-03_JPRB,0.44130E-03_JPRB,0.49824E-03_JPRB,0.52245E-03_JPRB,0.52001E-03_JPRB, &
+ & 0.50355E-03_JPRB,0.46711E-03_JPRB,0.41540E-03_JPRB,0.29729E-03_JPRB /)  
+KA(:, 5, 3, 4) = (/ &
+ & 0.29453E-03_JPRB,0.44828E-03_JPRB,0.50753E-03_JPRB,0.53257E-03_JPRB,0.53321E-03_JPRB, &
+ & 0.51645E-03_JPRB,0.48189E-03_JPRB,0.42882E-03_JPRB,0.30960E-03_JPRB /)  
+KA(:, 1, 4, 4) = (/ &
+ & 0.24709E-03_JPRB,0.37040E-03_JPRB,0.41811E-03_JPRB,0.43692E-03_JPRB,0.42924E-03_JPRB, &
+ & 0.40974E-03_JPRB,0.38217E-03_JPRB,0.33504E-03_JPRB,0.21956E-03_JPRB /)  
+KA(:, 2, 4, 4) = (/ &
+ & 0.24935E-03_JPRB,0.37531E-03_JPRB,0.42359E-03_JPRB,0.44356E-03_JPRB,0.43669E-03_JPRB, &
+ & 0.41955E-03_JPRB,0.39063E-03_JPRB,0.34337E-03_JPRB,0.23257E-03_JPRB /)  
+KA(:, 3, 4, 4) = (/ &
+ & 0.25192E-03_JPRB,0.38183E-03_JPRB,0.43049E-03_JPRB,0.45130E-03_JPRB,0.44572E-03_JPRB, &
+ & 0.43016E-03_JPRB,0.39919E-03_JPRB,0.35274E-03_JPRB,0.24051E-03_JPRB /)  
+KA(:, 4, 4, 4) = (/ &
+ & 0.25420E-03_JPRB,0.38887E-03_JPRB,0.43864E-03_JPRB,0.46020E-03_JPRB,0.45692E-03_JPRB, &
+ & 0.44111E-03_JPRB,0.40882E-03_JPRB,0.36219E-03_JPRB,0.24966E-03_JPRB /)  
+KA(:, 5, 4, 4) = (/ &
+ & 0.25772E-03_JPRB,0.39769E-03_JPRB,0.44993E-03_JPRB,0.47213E-03_JPRB,0.47068E-03_JPRB, &
+ & 0.45426E-03_JPRB,0.42157E-03_JPRB,0.37400E-03_JPRB,0.25930E-03_JPRB /)  
+KA(:, 1, 5, 4) = (/ &
+ & 0.21574E-03_JPRB,0.32603E-03_JPRB,0.36644E-03_JPRB,0.38307E-03_JPRB,0.37721E-03_JPRB, &
+ & 0.36018E-03_JPRB,0.33363E-03_JPRB,0.29143E-03_JPRB,0.18896E-03_JPRB /)  
+KA(:, 2, 5, 4) = (/ &
+ & 0.21778E-03_JPRB,0.33044E-03_JPRB,0.37107E-03_JPRB,0.38833E-03_JPRB,0.38426E-03_JPRB, &
+ & 0.36797E-03_JPRB,0.34054E-03_JPRB,0.29920E-03_JPRB,0.19816E-03_JPRB /)  
+KA(:, 3, 5, 4) = (/ &
+ & 0.22015E-03_JPRB,0.33584E-03_JPRB,0.37735E-03_JPRB,0.39513E-03_JPRB,0.39228E-03_JPRB, &
+ & 0.37720E-03_JPRB,0.34842E-03_JPRB,0.30654E-03_JPRB,0.20383E-03_JPRB /)  
+KA(:, 4, 5, 4) = (/ &
+ & 0.22252E-03_JPRB,0.34167E-03_JPRB,0.38484E-03_JPRB,0.40343E-03_JPRB,0.40251E-03_JPRB, &
+ & 0.38567E-03_JPRB,0.35760E-03_JPRB,0.31401E-03_JPRB,0.21178E-03_JPRB /)  
+KA(:, 5, 5, 4) = (/ &
+ & 0.22604E-03_JPRB,0.34964E-03_JPRB,0.39509E-03_JPRB,0.41443E-03_JPRB,0.41465E-03_JPRB, &
+ & 0.39685E-03_JPRB,0.36847E-03_JPRB,0.32400E-03_JPRB,0.21929E-03_JPRB /)  
+KA(:, 1, 6, 4) = (/ &
+ & 0.18783E-03_JPRB,0.28666E-03_JPRB,0.32037E-03_JPRB,0.33351E-03_JPRB,0.32945E-03_JPRB, &
+ & 0.31516E-03_JPRB,0.29066E-03_JPRB,0.25263E-03_JPRB,0.16238E-03_JPRB /)  
+KA(:, 2, 6, 4) = (/ &
+ & 0.18921E-03_JPRB,0.29078E-03_JPRB,0.32423E-03_JPRB,0.33799E-03_JPRB,0.33536E-03_JPRB, &
+ & 0.32156E-03_JPRB,0.29643E-03_JPRB,0.25941E-03_JPRB,0.16831E-03_JPRB /)  
+KA(:, 3, 6, 4) = (/ &
+ & 0.19117E-03_JPRB,0.29487E-03_JPRB,0.32978E-03_JPRB,0.34375E-03_JPRB,0.34274E-03_JPRB, &
+ & 0.32907E-03_JPRB,0.30344E-03_JPRB,0.26560E-03_JPRB,0.17389E-03_JPRB /)  
+KA(:, 4, 6, 4) = (/ &
+ & 0.19356E-03_JPRB,0.29979E-03_JPRB,0.33631E-03_JPRB,0.35135E-03_JPRB,0.35098E-03_JPRB, &
+ & 0.33648E-03_JPRB,0.31108E-03_JPRB,0.27199E-03_JPRB,0.18056E-03_JPRB /)  
+KA(:, 5, 6, 4) = (/ &
+ & 0.19643E-03_JPRB,0.30567E-03_JPRB,0.34396E-03_JPRB,0.35996E-03_JPRB,0.36067E-03_JPRB, &
+ & 0.34559E-03_JPRB,0.32056E-03_JPRB,0.28009E-03_JPRB,0.18507E-03_JPRB /)  
+KA(:, 1, 7, 4) = (/ &
+ & 0.16233E-03_JPRB,0.25159E-03_JPRB,0.28051E-03_JPRB,0.29071E-03_JPRB,0.28724E-03_JPRB, &
+ & 0.27399E-03_JPRB,0.25257E-03_JPRB,0.21995E-03_JPRB,0.15053E-03_JPRB /)  
+KA(:, 2, 7, 4) = (/ &
+ & 0.16394E-03_JPRB,0.25497E-03_JPRB,0.28374E-03_JPRB,0.29454E-03_JPRB,0.29203E-03_JPRB, &
+ & 0.28002E-03_JPRB,0.25781E-03_JPRB,0.22523E-03_JPRB,0.15467E-03_JPRB /)  
+KA(:, 3, 7, 4) = (/ &
+ & 0.16554E-03_JPRB,0.25862E-03_JPRB,0.28837E-03_JPRB,0.29946E-03_JPRB,0.29804E-03_JPRB, &
+ & 0.28580E-03_JPRB,0.26386E-03_JPRB,0.23003E-03_JPRB,0.15858E-03_JPRB /)  
+KA(:, 4, 7, 4) = (/ &
+ & 0.16755E-03_JPRB,0.26275E-03_JPRB,0.29380E-03_JPRB,0.30624E-03_JPRB,0.30499E-03_JPRB, &
+ & 0.29233E-03_JPRB,0.27029E-03_JPRB,0.23539E-03_JPRB,0.16161E-03_JPRB /)  
+KA(:, 5, 7, 4) = (/ &
+ & 0.17007E-03_JPRB,0.26765E-03_JPRB,0.30035E-03_JPRB,0.31353E-03_JPRB,0.31332E-03_JPRB, &
+ & 0.30019E-03_JPRB,0.27871E-03_JPRB,0.24192E-03_JPRB,0.16587E-03_JPRB /)  
+KA(:, 1, 8, 4) = (/ &
+ & 0.14021E-03_JPRB,0.21983E-03_JPRB,0.24557E-03_JPRB,0.25394E-03_JPRB,0.25027E-03_JPRB, &
+ & 0.23769E-03_JPRB,0.21853E-03_JPRB,0.19056E-03_JPRB,0.17210E-03_JPRB /)  
+KA(:, 2, 8, 4) = (/ &
+ & 0.14181E-03_JPRB,0.22244E-03_JPRB,0.24837E-03_JPRB,0.25730E-03_JPRB,0.25433E-03_JPRB, &
+ & 0.24284E-03_JPRB,0.22361E-03_JPRB,0.19448E-03_JPRB,0.16707E-03_JPRB /)  
+KA(:, 3, 8, 4) = (/ &
+ & 0.14344E-03_JPRB,0.22578E-03_JPRB,0.25216E-03_JPRB,0.26169E-03_JPRB,0.25950E-03_JPRB, &
+ & 0.24760E-03_JPRB,0.22868E-03_JPRB,0.19861E-03_JPRB,0.16518E-03_JPRB /)  
+KA(:, 4, 8, 4) = (/ &
+ & 0.14524E-03_JPRB,0.22935E-03_JPRB,0.25652E-03_JPRB,0.26715E-03_JPRB,0.26554E-03_JPRB, &
+ & 0.25327E-03_JPRB,0.23470E-03_JPRB,0.20360E-03_JPRB,0.16514E-03_JPRB /)  
+KA(:, 5, 8, 4) = (/ &
+ & 0.14752E-03_JPRB,0.23348E-03_JPRB,0.26209E-03_JPRB,0.27316E-03_JPRB,0.27225E-03_JPRB, &
+ & 0.26056E-03_JPRB,0.24203E-03_JPRB,0.20916E-03_JPRB,0.16671E-03_JPRB /)  
+KA(:, 1, 9, 4) = (/ &
+ & 0.12008E-03_JPRB,0.19084E-03_JPRB,0.21359E-03_JPRB,0.22137E-03_JPRB,0.21826E-03_JPRB, &
+ & 0.20646E-03_JPRB,0.18855E-03_JPRB,0.16443E-03_JPRB,0.31379E-03_JPRB /)  
+KA(:, 2, 9, 4) = (/ &
+ & 0.12170E-03_JPRB,0.19281E-03_JPRB,0.21619E-03_JPRB,0.22414E-03_JPRB,0.22156E-03_JPRB, &
+ & 0.21036E-03_JPRB,0.19272E-03_JPRB,0.16751E-03_JPRB,0.30810E-03_JPRB /)  
+KA(:, 3, 9, 4) = (/ &
+ & 0.12341E-03_JPRB,0.19553E-03_JPRB,0.21930E-03_JPRB,0.22810E-03_JPRB,0.22604E-03_JPRB, &
+ & 0.21457E-03_JPRB,0.19724E-03_JPRB,0.17093E-03_JPRB,0.30579E-03_JPRB /)  
+KA(:, 4, 9, 4) = (/ &
+ & 0.12515E-03_JPRB,0.19866E-03_JPRB,0.22306E-03_JPRB,0.23273E-03_JPRB,0.23128E-03_JPRB, &
+ & 0.22000E-03_JPRB,0.20255E-03_JPRB,0.17520E-03_JPRB,0.30468E-03_JPRB /)  
+KA(:, 5, 9, 4) = (/ &
+ & 0.12711E-03_JPRB,0.20244E-03_JPRB,0.22780E-03_JPRB,0.23779E-03_JPRB,0.23723E-03_JPRB, &
+ & 0.22672E-03_JPRB,0.20873E-03_JPRB,0.18006E-03_JPRB,0.30071E-03_JPRB /)  
+KA(:, 1,10, 4) = (/ &
+ & 0.10239E-03_JPRB,0.16495E-03_JPRB,0.18568E-03_JPRB,0.19287E-03_JPRB,0.19038E-03_JPRB, &
+ & 0.17962E-03_JPRB,0.16274E-03_JPRB,0.14112E-03_JPRB,0.46281E-03_JPRB /)  
+KA(:, 2,10, 4) = (/ &
+ & 0.10386E-03_JPRB,0.16652E-03_JPRB,0.18791E-03_JPRB,0.19539E-03_JPRB,0.19307E-03_JPRB, &
+ & 0.18291E-03_JPRB,0.16628E-03_JPRB,0.14354E-03_JPRB,0.46032E-03_JPRB /)  
+KA(:, 3,10, 4) = (/ &
+ & 0.10550E-03_JPRB,0.16884E-03_JPRB,0.19060E-03_JPRB,0.19863E-03_JPRB,0.19685E-03_JPRB, &
+ & 0.18669E-03_JPRB,0.17045E-03_JPRB,0.14674E-03_JPRB,0.45882E-03_JPRB /)  
+KA(:, 4,10, 4) = (/ &
+ & 0.10710E-03_JPRB,0.17185E-03_JPRB,0.19377E-03_JPRB,0.20238E-03_JPRB,0.20140E-03_JPRB, &
+ & 0.19164E-03_JPRB,0.17544E-03_JPRB,0.15076E-03_JPRB,0.45556E-03_JPRB /)  
+KA(:, 5,10, 4) = (/ &
+ & 0.10887E-03_JPRB,0.17528E-03_JPRB,0.19755E-03_JPRB,0.20663E-03_JPRB,0.20650E-03_JPRB, &
+ & 0.19756E-03_JPRB,0.18068E-03_JPRB,0.15495E-03_JPRB,0.45295E-03_JPRB /)  
+KA(:, 1,11, 4) = (/ &
+ & 0.87454E-04_JPRB,0.14214E-03_JPRB,0.16093E-03_JPRB,0.16784E-03_JPRB,0.16634E-03_JPRB, &
+ & 0.15750E-03_JPRB,0.14233E-03_JPRB,0.12157E-03_JPRB,0.50227E-03_JPRB /)  
+KA(:, 2,11, 4) = (/ &
+ & 0.89026E-04_JPRB,0.14363E-03_JPRB,0.16297E-03_JPRB,0.17024E-03_JPRB,0.16905E-03_JPRB, &
+ & 0.16052E-03_JPRB,0.14560E-03_JPRB,0.12384E-03_JPRB,0.48800E-03_JPRB /)  
+KA(:, 3,11, 4) = (/ &
+ & 0.90456E-04_JPRB,0.14595E-03_JPRB,0.16534E-03_JPRB,0.17342E-03_JPRB,0.17281E-03_JPRB, &
+ & 0.16441E-03_JPRB,0.14965E-03_JPRB,0.12699E-03_JPRB,0.48638E-03_JPRB /)  
+KA(:, 4,11, 4) = (/ &
+ & 0.91788E-04_JPRB,0.14885E-03_JPRB,0.16823E-03_JPRB,0.17680E-03_JPRB,0.17688E-03_JPRB, &
+ & 0.16911E-03_JPRB,0.15409E-03_JPRB,0.13060E-03_JPRB,0.48097E-03_JPRB /)  
+KA(:, 5,11, 4) = (/ &
+ & 0.92958E-04_JPRB,0.15220E-03_JPRB,0.17197E-03_JPRB,0.18085E-03_JPRB,0.18150E-03_JPRB, &
+ & 0.17440E-03_JPRB,0.15892E-03_JPRB,0.13466E-03_JPRB,0.48115E-03_JPRB /)  
+KA(:, 1,12, 4) = (/ &
+ & 0.74228E-04_JPRB,0.12171E-03_JPRB,0.13828E-03_JPRB,0.14464E-03_JPRB,0.14381E-03_JPRB, &
+ & 0.13674E-03_JPRB,0.12370E-03_JPRB,0.10454E-03_JPRB,0.48263E-03_JPRB /)  
+KA(:, 2,12, 4) = (/ &
+ & 0.75542E-04_JPRB,0.12330E-03_JPRB,0.13992E-03_JPRB,0.14688E-03_JPRB,0.14666E-03_JPRB, &
+ & 0.13981E-03_JPRB,0.12694E-03_JPRB,0.10662E-03_JPRB,0.46961E-03_JPRB /)  
+KA(:, 3,12, 4) = (/ &
+ & 0.76696E-04_JPRB,0.12551E-03_JPRB,0.14218E-03_JPRB,0.14964E-03_JPRB,0.14989E-03_JPRB, &
+ & 0.14346E-03_JPRB,0.13058E-03_JPRB,0.10986E-03_JPRB,0.45986E-03_JPRB /)  
+KA(:, 4,12, 4) = (/ &
+ & 0.77769E-04_JPRB,0.12821E-03_JPRB,0.14505E-03_JPRB,0.15276E-03_JPRB,0.15361E-03_JPRB, &
+ & 0.14764E-03_JPRB,0.13466E-03_JPRB,0.11322E-03_JPRB,0.45064E-03_JPRB /)  
+KA(:, 5,12, 4) = (/ &
+ & 0.78633E-04_JPRB,0.13113E-03_JPRB,0.14863E-03_JPRB,0.15667E-03_JPRB,0.15783E-03_JPRB, &
+ & 0.15249E-03_JPRB,0.13915E-03_JPRB,0.11696E-03_JPRB,0.45257E-03_JPRB /)  
+KA(:, 1,13, 4) = (/ &
+ & 0.62659E-04_JPRB,0.10388E-03_JPRB,0.11828E-03_JPRB,0.12392E-03_JPRB,0.12371E-03_JPRB, &
+ & 0.11811E-03_JPRB,0.10712E-03_JPRB,0.89769E-04_JPRB,0.40925E-03_JPRB /)  
+KA(:, 2,13, 4) = (/ &
+ & 0.63709E-04_JPRB,0.10546E-03_JPRB,0.11986E-03_JPRB,0.12594E-03_JPRB,0.12627E-03_JPRB, &
+ & 0.12095E-03_JPRB,0.11006E-03_JPRB,0.92053E-04_JPRB,0.39852E-03_JPRB /)  
+KA(:, 3,13, 4) = (/ &
+ & 0.64717E-04_JPRB,0.10750E-03_JPRB,0.12189E-03_JPRB,0.12839E-03_JPRB,0.12907E-03_JPRB, &
+ & 0.12414E-03_JPRB,0.11317E-03_JPRB,0.94939E-04_JPRB,0.39013E-03_JPRB /)  
+KA(:, 4,13, 4) = (/ &
+ & 0.65465E-04_JPRB,0.10983E-03_JPRB,0.12464E-03_JPRB,0.13149E-03_JPRB,0.13253E-03_JPRB, &
+ & 0.12801E-03_JPRB,0.11693E-03_JPRB,0.98001E-04_JPRB,0.38349E-03_JPRB /)  
+KA(:, 5,13, 4) = (/ &
+ & 0.66137E-04_JPRB,0.11222E-03_JPRB,0.12786E-03_JPRB,0.13517E-03_JPRB,0.13652E-03_JPRB, &
+ & 0.13219E-03_JPRB,0.12093E-03_JPRB,0.10155E-03_JPRB,0.38305E-03_JPRB /)  
+KA(:, 1, 1, 5) = (/ &
+ & 0.60998E-03_JPRB,0.92357E-03_JPRB,0.10463E-02_JPRB,0.11196E-02_JPRB,0.11571E-02_JPRB, &
+ & 0.11569E-02_JPRB,0.11152E-02_JPRB,0.10342E-02_JPRB,0.80721E-03_JPRB /)  
+KA(:, 2, 1, 5) = (/ &
+ & 0.61496E-03_JPRB,0.93510E-03_JPRB,0.10604E-02_JPRB,0.11361E-02_JPRB,0.11777E-02_JPRB, &
+ & 0.11834E-02_JPRB,0.11457E-02_JPRB,0.10708E-02_JPRB,0.83732E-03_JPRB /)  
+KA(:, 3, 1, 5) = (/ &
+ & 0.62454E-03_JPRB,0.95002E-03_JPRB,0.10819E-02_JPRB,0.11594E-02_JPRB,0.12038E-02_JPRB, &
+ & 0.12158E-02_JPRB,0.11823E-02_JPRB,0.11158E-02_JPRB,0.87187E-03_JPRB /)  
+KA(:, 4, 1, 5) = (/ &
+ & 0.63013E-03_JPRB,0.96444E-03_JPRB,0.11010E-02_JPRB,0.11847E-02_JPRB,0.12326E-02_JPRB, &
+ & 0.12499E-02_JPRB,0.12239E-02_JPRB,0.11623E-02_JPRB,0.91505E-03_JPRB /)  
+KA(:, 5, 1, 5) = (/ &
+ & 0.63867E-03_JPRB,0.98562E-03_JPRB,0.11276E-02_JPRB,0.12151E-02_JPRB,0.12673E-02_JPRB, &
+ & 0.12886E-02_JPRB,0.12687E-02_JPRB,0.12127E-02_JPRB,0.95931E-03_JPRB /)  
+KA(:, 1, 2, 5) = (/ &
+ & 0.54006E-03_JPRB,0.82110E-03_JPRB,0.93517E-03_JPRB,0.10086E-02_JPRB,0.10436E-02_JPRB, &
+ & 0.10473E-02_JPRB,0.10071E-02_JPRB,0.92435E-03_JPRB,0.69632E-03_JPRB /)  
+KA(:, 2, 2, 5) = (/ &
+ & 0.54512E-03_JPRB,0.83214E-03_JPRB,0.94586E-03_JPRB,0.10224E-02_JPRB,0.10616E-02_JPRB, &
+ & 0.10697E-02_JPRB,0.10360E-02_JPRB,0.95897E-03_JPRB,0.72282E-03_JPRB /)  
+KA(:, 3, 2, 5) = (/ &
+ & 0.55430E-03_JPRB,0.84713E-03_JPRB,0.96481E-03_JPRB,0.10423E-02_JPRB,0.10850E-02_JPRB, &
+ & 0.10972E-02_JPRB,0.10691E-02_JPRB,0.99640E-03_JPRB,0.75512E-03_JPRB /)  
+KA(:, 4, 2, 5) = (/ &
+ & 0.56089E-03_JPRB,0.86369E-03_JPRB,0.98575E-03_JPRB,0.10648E-02_JPRB,0.11112E-02_JPRB, &
+ & 0.11281E-02_JPRB,0.11049E-02_JPRB,0.10361E-02_JPRB,0.79150E-03_JPRB /)  
+KA(:, 5, 2, 5) = (/ &
+ & 0.56701E-03_JPRB,0.88105E-03_JPRB,0.10081E-02_JPRB,0.10898E-02_JPRB,0.11420E-02_JPRB, &
+ & 0.11626E-02_JPRB,0.11406E-02_JPRB,0.10780E-02_JPRB,0.83023E-03_JPRB /)  
+KA(:, 1, 3, 5) = (/ &
+ & 0.47586E-03_JPRB,0.72781E-03_JPRB,0.83369E-03_JPRB,0.89860E-03_JPRB,0.93234E-03_JPRB, &
+ & 0.93626E-03_JPRB,0.89909E-03_JPRB,0.81585E-03_JPRB,0.59036E-03_JPRB /)  
+KA(:, 2, 3, 5) = (/ &
+ & 0.48035E-03_JPRB,0.73757E-03_JPRB,0.84502E-03_JPRB,0.91276E-03_JPRB,0.94800E-03_JPRB, &
+ & 0.95536E-03_JPRB,0.92668E-03_JPRB,0.84501E-03_JPRB,0.61080E-03_JPRB /)  
+KA(:, 3, 3, 5) = (/ &
+ & 0.48667E-03_JPRB,0.74941E-03_JPRB,0.86058E-03_JPRB,0.92996E-03_JPRB,0.96794E-03_JPRB, &
+ & 0.97737E-03_JPRB,0.95368E-03_JPRB,0.87646E-03_JPRB,0.63872E-03_JPRB /)  
+KA(:, 4, 3, 5) = (/ &
+ & 0.49637E-03_JPRB,0.76538E-03_JPRB,0.87882E-03_JPRB,0.95073E-03_JPRB,0.99190E-03_JPRB, &
+ & 0.10051E-02_JPRB,0.98438E-03_JPRB,0.91070E-03_JPRB,0.66866E-03_JPRB /)  
+KA(:, 5, 3, 5) = (/ &
+ & 0.50269E-03_JPRB,0.78028E-03_JPRB,0.89635E-03_JPRB,0.97198E-03_JPRB,0.10179E-02_JPRB, &
+ & 0.10338E-02_JPRB,0.10130E-02_JPRB,0.94553E-03_JPRB,0.70095E-03_JPRB /)  
+KA(:, 1, 4, 5) = (/ &
+ & 0.41745E-03_JPRB,0.64505E-03_JPRB,0.73966E-03_JPRB,0.79761E-03_JPRB,0.82752E-03_JPRB, &
+ & 0.82878E-03_JPRB,0.79470E-03_JPRB,0.71636E-03_JPRB,0.49987E-03_JPRB /)  
+KA(:, 2, 4, 5) = (/ &
+ & 0.42212E-03_JPRB,0.65318E-03_JPRB,0.75017E-03_JPRB,0.80979E-03_JPRB,0.84194E-03_JPRB, &
+ & 0.84473E-03_JPRB,0.81717E-03_JPRB,0.73865E-03_JPRB,0.51625E-03_JPRB /)  
+KA(:, 3, 4, 5) = (/ &
+ & 0.42808E-03_JPRB,0.66407E-03_JPRB,0.76314E-03_JPRB,0.82416E-03_JPRB,0.85814E-03_JPRB, &
+ & 0.86375E-03_JPRB,0.83972E-03_JPRB,0.76440E-03_JPRB,0.53894E-03_JPRB /)  
+KA(:, 4, 4, 5) = (/ &
+ & 0.43544E-03_JPRB,0.67737E-03_JPRB,0.77911E-03_JPRB,0.84222E-03_JPRB,0.87777E-03_JPRB, &
+ & 0.88583E-03_JPRB,0.86479E-03_JPRB,0.79362E-03_JPRB,0.56271E-03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART3',1,ZHOOK_HANDLE)
+END SUBROUTINE PART3
+
+
+SUBROUTINE PART4
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART4',0,ZHOOK_HANDLE)
+
+
+KA(:, 5, 4, 5) = (/ &
+ & 0.44549E-03_JPRB,0.69330E-03_JPRB,0.79686E-03_JPRB,0.86274E-03_JPRB,0.90103E-03_JPRB, &
+ & 0.91189E-03_JPRB,0.89184E-03_JPRB,0.82416E-03_JPRB,0.58887E-03_JPRB /)  
+KA(:, 1, 5, 5) = (/ &
+ & 0.36593E-03_JPRB,0.56942E-03_JPRB,0.65432E-03_JPRB,0.70354E-03_JPRB,0.72916E-03_JPRB, &
+ & 0.72850E-03_JPRB,0.69713E-03_JPRB,0.62558E-03_JPRB,0.42621E-03_JPRB /)  
+KA(:, 2, 5, 5) = (/ &
+ & 0.37099E-03_JPRB,0.57654E-03_JPRB,0.66395E-03_JPRB,0.71472E-03_JPRB,0.74107E-03_JPRB, &
+ & 0.74240E-03_JPRB,0.71535E-03_JPRB,0.64376E-03_JPRB,0.43884E-03_JPRB /)  
+KA(:, 3, 5, 5) = (/ &
+ & 0.37647E-03_JPRB,0.58652E-03_JPRB,0.67530E-03_JPRB,0.72837E-03_JPRB,0.75654E-03_JPRB, &
+ & 0.75759E-03_JPRB,0.73402E-03_JPRB,0.66546E-03_JPRB,0.45630E-03_JPRB /)  
+KA(:, 4, 5, 5) = (/ &
+ & 0.38311E-03_JPRB,0.59837E-03_JPRB,0.68871E-03_JPRB,0.74328E-03_JPRB,0.77277E-03_JPRB, &
+ & 0.77677E-03_JPRB,0.75490E-03_JPRB,0.68962E-03_JPRB,0.47449E-03_JPRB /)  
+KA(:, 5, 5, 5) = (/ &
+ & 0.39217E-03_JPRB,0.61368E-03_JPRB,0.70480E-03_JPRB,0.76178E-03_JPRB,0.79297E-03_JPRB, &
+ & 0.79889E-03_JPRB,0.77761E-03_JPRB,0.71542E-03_JPRB,0.49580E-03_JPRB /)  
+KA(:, 1, 6, 5) = (/ &
+ & 0.32055E-03_JPRB,0.49922E-03_JPRB,0.57435E-03_JPRB,0.61868E-03_JPRB,0.63931E-03_JPRB, &
+ & 0.63779E-03_JPRB,0.60689E-03_JPRB,0.54327E-03_JPRB,0.36282E-03_JPRB /)  
+KA(:, 2, 6, 5) = (/ &
+ & 0.32502E-03_JPRB,0.50520E-03_JPRB,0.58251E-03_JPRB,0.62835E-03_JPRB,0.64977E-03_JPRB, &
+ & 0.64920E-03_JPRB,0.62209E-03_JPRB,0.55837E-03_JPRB,0.37399E-03_JPRB /)  
+KA(:, 3, 6, 5) = (/ &
+ & 0.33055E-03_JPRB,0.51462E-03_JPRB,0.59267E-03_JPRB,0.63972E-03_JPRB,0.66253E-03_JPRB, &
+ & 0.66213E-03_JPRB,0.63802E-03_JPRB,0.57660E-03_JPRB,0.38710E-03_JPRB /)  
+KA(:, 4, 6, 5) = (/ &
+ & 0.33647E-03_JPRB,0.52569E-03_JPRB,0.60454E-03_JPRB,0.65260E-03_JPRB,0.67645E-03_JPRB, &
+ & 0.67638E-03_JPRB,0.65560E-03_JPRB,0.59667E-03_JPRB,0.40130E-03_JPRB /)  
+KA(:, 5, 6, 5) = (/ &
+ & 0.34306E-03_JPRB,0.53846E-03_JPRB,0.61820E-03_JPRB,0.66796E-03_JPRB,0.69284E-03_JPRB, &
+ & 0.69400E-03_JPRB,0.67340E-03_JPRB,0.61700E-03_JPRB,0.41923E-03_JPRB /)  
+KA(:, 1, 7, 5) = (/ &
+ & 0.28149E-03_JPRB,0.43644E-03_JPRB,0.49974E-03_JPRB,0.53938E-03_JPRB,0.55701E-03_JPRB, &
+ & 0.55579E-03_JPRB,0.52736E-03_JPRB,0.47001E-03_JPRB,0.31306E-03_JPRB /)  
+KA(:, 2, 7, 5) = (/ &
+ & 0.28528E-03_JPRB,0.44207E-03_JPRB,0.50655E-03_JPRB,0.54763E-03_JPRB,0.56691E-03_JPRB, &
+ & 0.56439E-03_JPRB,0.53930E-03_JPRB,0.48247E-03_JPRB,0.32173E-03_JPRB /)  
+KA(:, 3, 7, 5) = (/ &
+ & 0.29004E-03_JPRB,0.45020E-03_JPRB,0.51518E-03_JPRB,0.55741E-03_JPRB,0.57771E-03_JPRB, &
+ & 0.57585E-03_JPRB,0.55263E-03_JPRB,0.49748E-03_JPRB,0.33090E-03_JPRB /)  
+KA(:, 4, 7, 5) = (/ &
+ & 0.29568E-03_JPRB,0.46070E-03_JPRB,0.52625E-03_JPRB,0.56864E-03_JPRB,0.58962E-03_JPRB, &
+ & 0.58944E-03_JPRB,0.56702E-03_JPRB,0.51458E-03_JPRB,0.34232E-03_JPRB /)  
+KA(:, 5, 7, 5) = (/ &
+ & 0.30178E-03_JPRB,0.47274E-03_JPRB,0.53886E-03_JPRB,0.58253E-03_JPRB,0.60354E-03_JPRB, &
+ & 0.60454E-03_JPRB,0.58225E-03_JPRB,0.53128E-03_JPRB,0.35470E-03_JPRB /)  
+KA(:, 1, 8, 5) = (/ &
+ & 0.24786E-03_JPRB,0.38205E-03_JPRB,0.43403E-03_JPRB,0.46727E-03_JPRB,0.48302E-03_JPRB, &
+ & 0.48227E-03_JPRB,0.45812E-03_JPRB,0.40611E-03_JPRB,0.30468E-03_JPRB /)  
+KA(:, 2, 8, 5) = (/ &
+ & 0.25026E-03_JPRB,0.38705E-03_JPRB,0.43948E-03_JPRB,0.47351E-03_JPRB,0.49158E-03_JPRB, &
+ & 0.49003E-03_JPRB,0.46771E-03_JPRB,0.41673E-03_JPRB,0.30992E-03_JPRB /)  
+KA(:, 3, 8, 5) = (/ &
+ & 0.25464E-03_JPRB,0.39453E-03_JPRB,0.44681E-03_JPRB,0.48211E-03_JPRB,0.50112E-03_JPRB, &
+ & 0.49992E-03_JPRB,0.47844E-03_JPRB,0.42901E-03_JPRB,0.31626E-03_JPRB /)  
+KA(:, 4, 8, 5) = (/ &
+ & 0.25978E-03_JPRB,0.40390E-03_JPRB,0.45683E-03_JPRB,0.49220E-03_JPRB,0.51134E-03_JPRB, &
+ & 0.51141E-03_JPRB,0.48898E-03_JPRB,0.44238E-03_JPRB,0.32406E-03_JPRB /)  
+KA(:, 5, 8, 5) = (/ &
+ & 0.26514E-03_JPRB,0.41428E-03_JPRB,0.46827E-03_JPRB,0.50433E-03_JPRB,0.52333E-03_JPRB, &
+ & 0.52414E-03_JPRB,0.50147E-03_JPRB,0.45619E-03_JPRB,0.33317E-03_JPRB /)  
+KA(:, 1, 9, 5) = (/ &
+ & 0.21824E-03_JPRB,0.33786E-03_JPRB,0.37946E-03_JPRB,0.40535E-03_JPRB,0.41752E-03_JPRB, &
+ & 0.41661E-03_JPRB,0.39611E-03_JPRB,0.34986E-03_JPRB,0.52178E-03_JPRB /)  
+KA(:, 2, 9, 5) = (/ &
+ & 0.22059E-03_JPRB,0.34230E-03_JPRB,0.38410E-03_JPRB,0.41056E-03_JPRB,0.42477E-03_JPRB, &
+ & 0.42372E-03_JPRB,0.40485E-03_JPRB,0.35866E-03_JPRB,0.50681E-03_JPRB /)  
+KA(:, 3, 9, 5) = (/ &
+ & 0.22400E-03_JPRB,0.34814E-03_JPRB,0.39039E-03_JPRB,0.41748E-03_JPRB,0.43284E-03_JPRB, &
+ & 0.43220E-03_JPRB,0.41363E-03_JPRB,0.36885E-03_JPRB,0.49302E-03_JPRB /)  
+KA(:, 4, 9, 5) = (/ &
+ & 0.22873E-03_JPRB,0.35603E-03_JPRB,0.39905E-03_JPRB,0.42659E-03_JPRB,0.44174E-03_JPRB, &
+ & 0.44167E-03_JPRB,0.42288E-03_JPRB,0.37972E-03_JPRB,0.48294E-03_JPRB /)  
+KA(:, 5, 9, 5) = (/ &
+ & 0.23347E-03_JPRB,0.36495E-03_JPRB,0.40893E-03_JPRB,0.43763E-03_JPRB,0.45181E-03_JPRB, &
+ & 0.45234E-03_JPRB,0.43347E-03_JPRB,0.39120E-03_JPRB,0.47762E-03_JPRB /)  
+KA(:, 1,10, 5) = (/ &
+ & 0.19122E-03_JPRB,0.29954E-03_JPRB,0.33486E-03_JPRB,0.35474E-03_JPRB,0.36349E-03_JPRB, &
+ & 0.36120E-03_JPRB,0.34300E-03_JPRB,0.30153E-03_JPRB,0.10818E-02_JPRB /)  
+KA(:, 2,10, 5) = (/ &
+ & 0.19375E-03_JPRB,0.30331E-03_JPRB,0.33858E-03_JPRB,0.35959E-03_JPRB,0.36963E-03_JPRB, &
+ & 0.36736E-03_JPRB,0.35033E-03_JPRB,0.30927E-03_JPRB,0.10683E-02_JPRB /)  
+KA(:, 3,10, 5) = (/ &
+ & 0.19685E-03_JPRB,0.30858E-03_JPRB,0.34410E-03_JPRB,0.36599E-03_JPRB,0.37648E-03_JPRB, &
+ & 0.37420E-03_JPRB,0.35748E-03_JPRB,0.31737E-03_JPRB,0.10704E-02_JPRB /)  
+KA(:, 4,10, 5) = (/ &
+ & 0.20091E-03_JPRB,0.31499E-03_JPRB,0.35151E-03_JPRB,0.37400E-03_JPRB,0.38421E-03_JPRB, &
+ & 0.38207E-03_JPRB,0.36506E-03_JPRB,0.32617E-03_JPRB,0.10743E-02_JPRB /)  
+KA(:, 5,10, 5) = (/ &
+ & 0.20539E-03_JPRB,0.32294E-03_JPRB,0.36050E-03_JPRB,0.38325E-03_JPRB,0.39308E-03_JPRB, &
+ & 0.39074E-03_JPRB,0.37406E-03_JPRB,0.33544E-03_JPRB,0.10696E-02_JPRB /)  
+KA(:, 1,11, 5) = (/ &
+ & 0.16667E-03_JPRB,0.26520E-03_JPRB,0.29671E-03_JPRB,0.31441E-03_JPRB,0.32093E-03_JPRB, &
+ & 0.31659E-03_JPRB,0.30045E-03_JPRB,0.26340E-03_JPRB,0.11835E-02_JPRB /)  
+KA(:, 2,11, 5) = (/ &
+ & 0.16885E-03_JPRB,0.26948E-03_JPRB,0.30096E-03_JPRB,0.31914E-03_JPRB,0.32661E-03_JPRB, &
+ & 0.32210E-03_JPRB,0.30657E-03_JPRB,0.27004E-03_JPRB,0.11814E-02_JPRB /)  
+KA(:, 3,11, 5) = (/ &
+ & 0.17223E-03_JPRB,0.27439E-03_JPRB,0.30661E-03_JPRB,0.32470E-03_JPRB,0.33272E-03_JPRB, &
+ & 0.32842E-03_JPRB,0.31227E-03_JPRB,0.27654E-03_JPRB,0.11630E-02_JPRB /)  
+KA(:, 4,11, 5) = (/ &
+ & 0.17618E-03_JPRB,0.28049E-03_JPRB,0.31365E-03_JPRB,0.33181E-03_JPRB,0.33965E-03_JPRB, &
+ & 0.33555E-03_JPRB,0.31903E-03_JPRB,0.28400E-03_JPRB,0.11485E-02_JPRB /)  
+KA(:, 5,11, 5) = (/ &
+ & 0.18103E-03_JPRB,0.28752E-03_JPRB,0.32181E-03_JPRB,0.34031E-03_JPRB,0.34776E-03_JPRB, &
+ & 0.34353E-03_JPRB,0.32710E-03_JPRB,0.29221E-03_JPRB,0.11367E-02_JPRB /)  
+KA(:, 1,12, 5) = (/ &
+ & 0.14364E-03_JPRB,0.23191E-03_JPRB,0.26011E-03_JPRB,0.27602E-03_JPRB,0.28230E-03_JPRB, &
+ & 0.27753E-03_JPRB,0.26259E-03_JPRB,0.22940E-03_JPRB,0.11242E-02_JPRB /)  
+KA(:, 2,12, 5) = (/ &
+ & 0.14586E-03_JPRB,0.23578E-03_JPRB,0.26464E-03_JPRB,0.28074E-03_JPRB,0.28728E-03_JPRB, &
+ & 0.28268E-03_JPRB,0.26740E-03_JPRB,0.23511E-03_JPRB,0.11131E-02_JPRB /)  
+KA(:, 3,12, 5) = (/ &
+ & 0.14908E-03_JPRB,0.24042E-03_JPRB,0.27020E-03_JPRB,0.28659E-03_JPRB,0.29280E-03_JPRB, &
+ & 0.28866E-03_JPRB,0.27254E-03_JPRB,0.24089E-03_JPRB,0.10996E-02_JPRB /)  
+KA(:, 4,12, 5) = (/ &
+ & 0.15297E-03_JPRB,0.24595E-03_JPRB,0.27661E-03_JPRB,0.29313E-03_JPRB,0.29926E-03_JPRB, &
+ & 0.29513E-03_JPRB,0.27870E-03_JPRB,0.24706E-03_JPRB,0.10965E-02_JPRB /)  
+KA(:, 5,12, 5) = (/ &
+ & 0.15735E-03_JPRB,0.25242E-03_JPRB,0.28422E-03_JPRB,0.30069E-03_JPRB,0.30695E-03_JPRB, &
+ & 0.30241E-03_JPRB,0.28613E-03_JPRB,0.25425E-03_JPRB,0.10839E-02_JPRB /)  
+KA(:, 1,13, 5) = (/ &
+ & 0.12345E-03_JPRB,0.20108E-03_JPRB,0.22674E-03_JPRB,0.24086E-03_JPRB,0.24638E-03_JPRB, &
+ & 0.24238E-03_JPRB,0.22876E-03_JPRB,0.19931E-03_JPRB,0.96895E-03_JPRB /)  
+KA(:, 2,13, 5) = (/ &
+ & 0.12581E-03_JPRB,0.20480E-03_JPRB,0.23117E-03_JPRB,0.24535E-03_JPRB,0.25104E-03_JPRB, &
+ & 0.24702E-03_JPRB,0.23303E-03_JPRB,0.20421E-03_JPRB,0.96294E-03_JPRB /)  
+KA(:, 3,13, 5) = (/ &
+ & 0.12856E-03_JPRB,0.20921E-03_JPRB,0.23606E-03_JPRB,0.25076E-03_JPRB,0.25631E-03_JPRB, &
+ & 0.25243E-03_JPRB,0.23816E-03_JPRB,0.20920E-03_JPRB,0.95736E-03_JPRB /)  
+KA(:, 4,13, 5) = (/ &
+ & 0.13210E-03_JPRB,0.21428E-03_JPRB,0.24223E-03_JPRB,0.25691E-03_JPRB,0.26218E-03_JPRB, &
+ & 0.25847E-03_JPRB,0.24400E-03_JPRB,0.21468E-03_JPRB,0.95389E-03_JPRB /)  
+KA(:, 5,13, 5) = (/ &
+ & 0.13599E-03_JPRB,0.22037E-03_JPRB,0.24914E-03_JPRB,0.26391E-03_JPRB,0.26911E-03_JPRB, &
+ & 0.26543E-03_JPRB,0.25095E-03_JPRB,0.22101E-03_JPRB,0.94116E-03_JPRB /)  
+KA(:, 1, 1, 6) = (/ &
+ & 0.10602E-02_JPRB,0.17123E-02_JPRB,0.20157E-02_JPRB,0.22277E-02_JPRB,0.23726E-02_JPRB, &
+ & 0.24628E-02_JPRB,0.25069E-02_JPRB,0.24686E-02_JPRB,0.20168E-02_JPRB /)  
+KA(:, 2, 1, 6) = (/ &
+ & 0.10672E-02_JPRB,0.17270E-02_JPRB,0.20414E-02_JPRB,0.22652E-02_JPRB,0.24211E-02_JPRB, &
+ & 0.25212E-02_JPRB,0.25704E-02_JPRB,0.25272E-02_JPRB,0.20646E-02_JPRB /)  
+KA(:, 3, 1, 6) = (/ &
+ & 0.10788E-02_JPRB,0.17509E-02_JPRB,0.20769E-02_JPRB,0.23112E-02_JPRB,0.24814E-02_JPRB, &
+ & 0.25914E-02_JPRB,0.26418E-02_JPRB,0.25942E-02_JPRB,0.21193E-02_JPRB /)  
+KA(:, 4, 1, 6) = (/ &
+ & 0.10874E-02_JPRB,0.17764E-02_JPRB,0.21176E-02_JPRB,0.23585E-02_JPRB,0.25381E-02_JPRB, &
+ & 0.26622E-02_JPRB,0.27175E-02_JPRB,0.26689E-02_JPRB,0.21851E-02_JPRB /)  
+KA(:, 5, 1, 6) = (/ &
+ & 0.11018E-02_JPRB,0.18090E-02_JPRB,0.21640E-02_JPRB,0.24172E-02_JPRB,0.26051E-02_JPRB, &
+ & 0.27415E-02_JPRB,0.28075E-02_JPRB,0.27566E-02_JPRB,0.22604E-02_JPRB /)  
+KA(:, 1, 2, 6) = (/ &
+ & 0.95075E-03_JPRB,0.15355E-02_JPRB,0.17976E-02_JPRB,0.19766E-02_JPRB,0.21006E-02_JPRB, &
+ & 0.21710E-02_JPRB,0.21998E-02_JPRB,0.21663E-02_JPRB,0.17568E-02_JPRB /)  
+KA(:, 2, 2, 6) = (/ &
+ & 0.96010E-03_JPRB,0.15501E-02_JPRB,0.18242E-02_JPRB,0.20112E-02_JPRB,0.21419E-02_JPRB, &
+ & 0.22180E-02_JPRB,0.22475E-02_JPRB,0.22135E-02_JPRB,0.17960E-02_JPRB /)  
+KA(:, 3, 2, 6) = (/ &
+ & 0.97337E-03_JPRB,0.15726E-02_JPRB,0.18580E-02_JPRB,0.20531E-02_JPRB,0.21905E-02_JPRB, &
+ & 0.22742E-02_JPRB,0.23072E-02_JPRB,0.22697E-02_JPRB,0.18409E-02_JPRB /)  
+KA(:, 4, 2, 6) = (/ &
+ & 0.98600E-03_JPRB,0.15975E-02_JPRB,0.18942E-02_JPRB,0.20984E-02_JPRB,0.22403E-02_JPRB, &
+ & 0.23334E-02_JPRB,0.23735E-02_JPRB,0.23328E-02_JPRB,0.18922E-02_JPRB /)  
+KA(:, 5, 2, 6) = (/ &
+ & 0.99685E-03_JPRB,0.16266E-02_JPRB,0.19353E-02_JPRB,0.21493E-02_JPRB,0.22931E-02_JPRB, &
+ & 0.23955E-02_JPRB,0.24466E-02_JPRB,0.24068E-02_JPRB,0.19548E-02_JPRB /)  
+KA(:, 1, 3, 6) = (/ &
+ & 0.85253E-03_JPRB,0.13731E-02_JPRB,0.15966E-02_JPRB,0.17555E-02_JPRB,0.18660E-02_JPRB, &
+ & 0.19267E-02_JPRB,0.19415E-02_JPRB,0.18992E-02_JPRB,0.15125E-02_JPRB /)  
+KA(:, 2, 3, 6) = (/ &
+ & 0.86131E-03_JPRB,0.13853E-02_JPRB,0.16172E-02_JPRB,0.17827E-02_JPRB,0.18992E-02_JPRB, &
+ & 0.19616E-02_JPRB,0.19781E-02_JPRB,0.19388E-02_JPRB,0.15472E-02_JPRB /)  
+KA(:, 3, 3, 6) = (/ &
+ & 0.87215E-03_JPRB,0.13990E-02_JPRB,0.16433E-02_JPRB,0.18151E-02_JPRB,0.19357E-02_JPRB, &
+ & 0.20044E-02_JPRB,0.20244E-02_JPRB,0.19864E-02_JPRB,0.15842E-02_JPRB /)  
+KA(:, 4, 3, 6) = (/ &
+ & 0.88704E-03_JPRB,0.14261E-02_JPRB,0.16795E-02_JPRB,0.18576E-02_JPRB,0.19802E-02_JPRB, &
+ & 0.20536E-02_JPRB,0.20804E-02_JPRB,0.20410E-02_JPRB,0.16256E-02_JPRB /)  
+KA(:, 5, 3, 6) = (/ &
+ & 0.89758E-03_JPRB,0.14527E-02_JPRB,0.17171E-02_JPRB,0.19025E-02_JPRB,0.20236E-02_JPRB, &
+ & 0.21045E-02_JPRB,0.21413E-02_JPRB,0.21023E-02_JPRB,0.16764E-02_JPRB /)  
+KA(:, 1, 4, 6) = (/ &
+ & 0.76168E-03_JPRB,0.12206E-02_JPRB,0.14175E-02_JPRB,0.15588E-02_JPRB,0.16575E-02_JPRB, &
+ & 0.17098E-02_JPRB,0.17134E-02_JPRB,0.16603E-02_JPRB,0.12974E-02_JPRB /)  
+KA(:, 2, 4, 6) = (/ &
+ & 0.76958E-03_JPRB,0.12314E-02_JPRB,0.14342E-02_JPRB,0.15807E-02_JPRB,0.16847E-02_JPRB, &
+ & 0.17400E-02_JPRB,0.17442E-02_JPRB,0.16938E-02_JPRB,0.13260E-02_JPRB /)  
+KA(:, 3, 4, 6) = (/ &
+ & 0.78002E-03_JPRB,0.12481E-02_JPRB,0.14573E-02_JPRB,0.16092E-02_JPRB,0.17173E-02_JPRB, &
+ & 0.17771E-02_JPRB,0.17830E-02_JPRB,0.17337E-02_JPRB,0.13577E-02_JPRB /)  
+KA(:, 4, 4, 6) = (/ &
+ & 0.79261E-03_JPRB,0.12694E-02_JPRB,0.14861E-02_JPRB,0.16420E-02_JPRB,0.17536E-02_JPRB, &
+ & 0.18179E-02_JPRB,0.18286E-02_JPRB,0.17776E-02_JPRB,0.13930E-02_JPRB /)  
+KA(:, 5, 4, 6) = (/ &
+ & 0.80905E-03_JPRB,0.12930E-02_JPRB,0.15216E-02_JPRB,0.16835E-02_JPRB,0.17969E-02_JPRB, &
+ & 0.18651E-02_JPRB,0.18829E-02_JPRB,0.18324E-02_JPRB,0.14370E-02_JPRB /)  
+KA(:, 1, 5, 6) = (/ &
+ & 0.67567E-03_JPRB,0.10847E-02_JPRB,0.12673E-02_JPRB,0.13865E-02_JPRB,0.14678E-02_JPRB, &
+ & 0.15102E-02_JPRB,0.15099E-02_JPRB,0.14466E-02_JPRB,0.11079E-02_JPRB /)  
+KA(:, 2, 5, 6) = (/ &
+ & 0.68234E-03_JPRB,0.10948E-02_JPRB,0.12810E-02_JPRB,0.14048E-02_JPRB,0.14909E-02_JPRB, &
+ & 0.15364E-02_JPRB,0.15351E-02_JPRB,0.14749E-02_JPRB,0.11322E-02_JPRB /)  
+KA(:, 3, 5, 6) = (/ &
+ & 0.69172E-03_JPRB,0.11094E-02_JPRB,0.12954E-02_JPRB,0.14275E-02_JPRB,0.15177E-02_JPRB, &
+ & 0.15693E-02_JPRB,0.15680E-02_JPRB,0.15069E-02_JPRB,0.11581E-02_JPRB /)  
+KA(:, 4, 5, 6) = (/ &
+ & 0.70397E-03_JPRB,0.11284E-02_JPRB,0.13174E-02_JPRB,0.14563E-02_JPRB,0.15501E-02_JPRB, &
+ & 0.16053E-02_JPRB,0.16071E-02_JPRB,0.15445E-02_JPRB,0.11891E-02_JPRB /)  
+KA(:, 5, 5, 6) = (/ &
+ & 0.72110E-03_JPRB,0.11540E-02_JPRB,0.13487E-02_JPRB,0.14917E-02_JPRB,0.15891E-02_JPRB, &
+ & 0.16474E-02_JPRB,0.16536E-02_JPRB,0.15913E-02_JPRB,0.12262E-02_JPRB /)  
+KA(:, 1, 6, 6) = (/ &
+ & 0.59508E-03_JPRB,0.96565E-03_JPRB,0.11271E-02_JPRB,0.12321E-02_JPRB,0.12935E-02_JPRB, &
+ & 0.13263E-02_JPRB,0.13235E-02_JPRB,0.12583E-02_JPRB,0.94318E-03_JPRB /)  
+KA(:, 2, 6, 6) = (/ &
+ & 0.60163E-03_JPRB,0.97555E-03_JPRB,0.11390E-02_JPRB,0.12428E-02_JPRB,0.13136E-02_JPRB, &
+ & 0.13483E-02_JPRB,0.13443E-02_JPRB,0.12812E-02_JPRB,0.96040E-03_JPRB /)  
+KA(:, 3, 6, 6) = (/ &
+ & 0.61035E-03_JPRB,0.98842E-03_JPRB,0.11551E-02_JPRB,0.12623E-02_JPRB,0.13370E-02_JPRB, &
+ & 0.13759E-02_JPRB,0.13716E-02_JPRB,0.13073E-02_JPRB,0.98049E-03_JPRB /)  
+KA(:, 4, 6, 6) = (/ &
+ & 0.62216E-03_JPRB,0.10038E-02_JPRB,0.11750E-02_JPRB,0.12870E-02_JPRB,0.13646E-02_JPRB, &
+ & 0.14087E-02_JPRB,0.14042E-02_JPRB,0.13389E-02_JPRB,0.10049E-02_JPRB /)  
+KA(:, 5, 6, 6) = (/ &
+ & 0.63568E-03_JPRB,0.10246E-02_JPRB,0.11986E-02_JPRB,0.13152E-02_JPRB,0.13969E-02_JPRB, &
+ & 0.14439E-02_JPRB,0.14425E-02_JPRB,0.13760E-02_JPRB,0.10351E-02_JPRB /)  
+KA(:, 1, 7, 6) = (/ &
+ & 0.52222E-03_JPRB,0.85609E-03_JPRB,0.99991E-03_JPRB,0.10870E-02_JPRB,0.11353E-02_JPRB, &
+ & 0.11602E-02_JPRB,0.11537E-02_JPRB,0.10909E-02_JPRB,0.79969E-03_JPRB /)  
+KA(:, 2, 7, 6) = (/ &
+ & 0.52839E-03_JPRB,0.86572E-03_JPRB,0.10120E-02_JPRB,0.11011E-02_JPRB,0.11521E-02_JPRB, &
+ & 0.11786E-02_JPRB,0.11705E-02_JPRB,0.11093E-02_JPRB,0.81421E-03_JPRB /)  
+KA(:, 3, 7, 6) = (/ &
+ & 0.53695E-03_JPRB,0.87703E-03_JPRB,0.10261E-02_JPRB,0.11177E-02_JPRB,0.11714E-02_JPRB, &
+ & 0.12016E-02_JPRB,0.11930E-02_JPRB,0.11309E-02_JPRB,0.83157E-03_JPRB /)  
+KA(:, 4, 7, 6) = (/ &
+ & 0.54734E-03_JPRB,0.89105E-03_JPRB,0.10435E-02_JPRB,0.11340E-02_JPRB,0.11954E-02_JPRB, &
+ & 0.12276E-02_JPRB,0.12204E-02_JPRB,0.11559E-02_JPRB,0.85189E-03_JPRB /)  
+KA(:, 5, 7, 6) = (/ &
+ & 0.56071E-03_JPRB,0.90902E-03_JPRB,0.10648E-02_JPRB,0.11575E-02_JPRB,0.12234E-02_JPRB, &
+ & 0.12571E-02_JPRB,0.12523E-02_JPRB,0.11865E-02_JPRB,0.87630E-03_JPRB /)  
+KA(:, 1, 8, 6) = (/ &
+ & 0.45809E-03_JPRB,0.75296E-03_JPRB,0.88022E-03_JPRB,0.95530E-03_JPRB,0.99775E-03_JPRB, &
+ & 0.10107E-02_JPRB,0.99991E-03_JPRB,0.94255E-03_JPRB,0.69349E-03_JPRB /)  
+KA(:, 2, 8, 6) = (/ &
+ & 0.46457E-03_JPRB,0.76241E-03_JPRB,0.89241E-03_JPRB,0.96833E-03_JPRB,0.10107E-02_JPRB, &
+ & 0.10258E-02_JPRB,0.10136E-02_JPRB,0.95735E-03_JPRB,0.70413E-03_JPRB /)  
+KA(:, 3, 8, 6) = (/ &
+ & 0.47249E-03_JPRB,0.77258E-03_JPRB,0.90578E-03_JPRB,0.98260E-03_JPRB,0.10233E-02_JPRB, &
+ & 0.10448E-02_JPRB,0.10324E-02_JPRB,0.97481E-03_JPRB,0.71522E-03_JPRB /)  
+KA(:, 4, 8, 6) = (/ &
+ & 0.48263E-03_JPRB,0.78537E-03_JPRB,0.92183E-03_JPRB,0.10012E-02_JPRB,0.10427E-02_JPRB, &
+ & 0.10663E-02_JPRB,0.10558E-02_JPRB,0.99531E-03_JPRB,0.72922E-03_JPRB /)  
+KA(:, 5, 8, 6) = (/ &
+ & 0.49501E-03_JPRB,0.80218E-03_JPRB,0.94059E-03_JPRB,0.10219E-02_JPRB,0.10669E-02_JPRB, &
+ & 0.10907E-02_JPRB,0.10824E-02_JPRB,0.10204E-02_JPRB,0.74659E-03_JPRB /)  
+KA(:, 1, 9, 6) = (/ &
+ & 0.40630E-03_JPRB,0.65697E-03_JPRB,0.76693E-03_JPRB,0.83253E-03_JPRB,0.86881E-03_JPRB, &
+ & 0.87661E-03_JPRB,0.86393E-03_JPRB,0.81158E-03_JPRB,0.85763E-03_JPRB /)  
+KA(:, 2, 9, 6) = (/ &
+ & 0.41166E-03_JPRB,0.66657E-03_JPRB,0.77941E-03_JPRB,0.84564E-03_JPRB,0.88174E-03_JPRB, &
+ & 0.88952E-03_JPRB,0.87488E-03_JPRB,0.82351E-03_JPRB,0.84633E-03_JPRB /)  
+KA(:, 3, 9, 6) = (/ &
+ & 0.41847E-03_JPRB,0.67680E-03_JPRB,0.79185E-03_JPRB,0.85875E-03_JPRB,0.89476E-03_JPRB, &
+ & 0.90456E-03_JPRB,0.89101E-03_JPRB,0.83833E-03_JPRB,0.84017E-03_JPRB /)  
+KA(:, 4, 9, 6) = (/ &
+ & 0.42661E-03_JPRB,0.68815E-03_JPRB,0.80637E-03_JPRB,0.87435E-03_JPRB,0.91036E-03_JPRB, &
+ & 0.92205E-03_JPRB,0.90961E-03_JPRB,0.85502E-03_JPRB,0.83895E-03_JPRB /)  
+KA(:, 5, 9, 6) = (/ &
+ & 0.43776E-03_JPRB,0.70278E-03_JPRB,0.82329E-03_JPRB,0.89247E-03_JPRB,0.92828E-03_JPRB, &
+ & 0.94238E-03_JPRB,0.93168E-03_JPRB,0.87536E-03_JPRB,0.84088E-03_JPRB /)  
+KA(:, 1,10, 6) = (/ &
+ & 0.36854E-03_JPRB,0.57908E-03_JPRB,0.66869E-03_JPRB,0.72258E-03_JPRB,0.75231E-03_JPRB, &
+ & 0.75942E-03_JPRB,0.74383E-03_JPRB,0.69709E-03_JPRB,0.20395E-02_JPRB /)  
+KA(:, 2,10, 6) = (/ &
+ & 0.37298E-03_JPRB,0.58711E-03_JPRB,0.68015E-03_JPRB,0.73349E-03_JPRB,0.76293E-03_JPRB, &
+ & 0.77052E-03_JPRB,0.75338E-03_JPRB,0.70798E-03_JPRB,0.19202E-02_JPRB /)  
+KA(:, 3,10, 6) = (/ &
+ & 0.37876E-03_JPRB,0.59595E-03_JPRB,0.69100E-03_JPRB,0.74575E-03_JPRB,0.77497E-03_JPRB, &
+ & 0.78295E-03_JPRB,0.76740E-03_JPRB,0.72017E-03_JPRB,0.18161E-02_JPRB /)  
+KA(:, 4,10, 6) = (/ &
+ & 0.38615E-03_JPRB,0.60708E-03_JPRB,0.70373E-03_JPRB,0.75914E-03_JPRB,0.78952E-03_JPRB, &
+ & 0.79663E-03_JPRB,0.78331E-03_JPRB,0.73385E-03_JPRB,0.17247E-02_JPRB /)  
+KA(:, 5,10, 6) = (/ &
+ & 0.39564E-03_JPRB,0.62052E-03_JPRB,0.71856E-03_JPRB,0.77512E-03_JPRB,0.80699E-03_JPRB, &
+ & 0.81444E-03_JPRB,0.80141E-03_JPRB,0.75081E-03_JPRB,0.16568E-02_JPRB /)  
+KA(:, 1,11, 6) = (/ &
+ & 0.33320E-03_JPRB,0.52088E-03_JPRB,0.59646E-03_JPRB,0.63812E-03_JPRB,0.65660E-03_JPRB, &
+ & 0.65900E-03_JPRB,0.64138E-03_JPRB,0.60020E-03_JPRB,0.25696E-02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART4',1,ZHOOK_HANDLE)
+END SUBROUTINE PART4
+
+
+SUBROUTINE PART5
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART5',0,ZHOOK_HANDLE)
+
+
+KA(:, 2,11, 6) = (/ &
+ & 0.33882E-03_JPRB,0.52942E-03_JPRB,0.60584E-03_JPRB,0.64728E-03_JPRB,0.66639E-03_JPRB, &
+ & 0.66995E-03_JPRB,0.65115E-03_JPRB,0.61030E-03_JPRB,0.24243E-02_JPRB /)  
+KA(:, 3,11, 6) = (/ &
+ & 0.34516E-03_JPRB,0.53993E-03_JPRB,0.61579E-03_JPRB,0.65783E-03_JPRB,0.67758E-03_JPRB, &
+ & 0.68193E-03_JPRB,0.66413E-03_JPRB,0.62169E-03_JPRB,0.23408E-02_JPRB /)  
+KA(:, 4,11, 6) = (/ &
+ & 0.35301E-03_JPRB,0.55124E-03_JPRB,0.62753E-03_JPRB,0.66999E-03_JPRB,0.69148E-03_JPRB, &
+ & 0.69508E-03_JPRB,0.67858E-03_JPRB,0.63426E-03_JPRB,0.22732E-02_JPRB /)  
+KA(:, 5,11, 6) = (/ &
+ & 0.36214E-03_JPRB,0.56453E-03_JPRB,0.64151E-03_JPRB,0.68481E-03_JPRB,0.70755E-03_JPRB, &
+ & 0.71086E-03_JPRB,0.69483E-03_JPRB,0.64938E-03_JPRB,0.21869E-02_JPRB /)  
+KA(:, 1,12, 6) = (/ &
+ & 0.29653E-03_JPRB,0.46559E-03_JPRB,0.53073E-03_JPRB,0.56520E-03_JPRB,0.57894E-03_JPRB, &
+ & 0.57686E-03_JPRB,0.55698E-03_JPRB,0.51584E-03_JPRB,0.26304E-02_JPRB /)  
+KA(:, 2,12, 6) = (/ &
+ & 0.30188E-03_JPRB,0.47447E-03_JPRB,0.54017E-03_JPRB,0.57406E-03_JPRB,0.58804E-03_JPRB, &
+ & 0.58653E-03_JPRB,0.56630E-03_JPRB,0.52472E-03_JPRB,0.24930E-02_JPRB /)  
+KA(:, 3,12, 6) = (/ &
+ & 0.30861E-03_JPRB,0.48517E-03_JPRB,0.55102E-03_JPRB,0.58380E-03_JPRB,0.59890E-03_JPRB, &
+ & 0.59725E-03_JPRB,0.57721E-03_JPRB,0.53486E-03_JPRB,0.23834E-02_JPRB /)  
+KA(:, 4,12, 6) = (/ &
+ & 0.31637E-03_JPRB,0.49701E-03_JPRB,0.56299E-03_JPRB,0.59618E-03_JPRB,0.61191E-03_JPRB, &
+ & 0.60936E-03_JPRB,0.58930E-03_JPRB,0.54649E-03_JPRB,0.22824E-02_JPRB /)  
+KA(:, 5,12, 6) = (/ &
+ & 0.32604E-03_JPRB,0.51148E-03_JPRB,0.57604E-03_JPRB,0.61103E-03_JPRB,0.62611E-03_JPRB, &
+ & 0.62412E-03_JPRB,0.60375E-03_JPRB,0.56026E-03_JPRB,0.22084E-02_JPRB /)  
+KA(:, 1,13, 6) = (/ &
+ & 0.26154E-03_JPRB,0.41366E-03_JPRB,0.47019E-03_JPRB,0.50056E-03_JPRB,0.51140E-03_JPRB, &
+ & 0.50695E-03_JPRB,0.48611E-03_JPRB,0.44348E-03_JPRB,0.22773E-02_JPRB /)  
+KA(:, 2,13, 6) = (/ &
+ & 0.26669E-03_JPRB,0.42267E-03_JPRB,0.47957E-03_JPRB,0.51009E-03_JPRB,0.52067E-03_JPRB, &
+ & 0.51611E-03_JPRB,0.49506E-03_JPRB,0.45138E-03_JPRB,0.21516E-02_JPRB /)  
+KA(:, 3,13, 6) = (/ &
+ & 0.27302E-03_JPRB,0.43290E-03_JPRB,0.49082E-03_JPRB,0.52081E-03_JPRB,0.53105E-03_JPRB, &
+ & 0.52578E-03_JPRB,0.50476E-03_JPRB,0.46026E-03_JPRB,0.20522E-02_JPRB /)  
+KA(:, 4,13, 6) = (/ &
+ & 0.28114E-03_JPRB,0.44552E-03_JPRB,0.50271E-03_JPRB,0.53316E-03_JPRB,0.54314E-03_JPRB, &
+ & 0.53754E-03_JPRB,0.51555E-03_JPRB,0.47096E-03_JPRB,0.19694E-02_JPRB /)  
+KA(:, 5,13, 6) = (/ &
+ & 0.29046E-03_JPRB,0.45904E-03_JPRB,0.51716E-03_JPRB,0.54751E-03_JPRB,0.55727E-03_JPRB, &
+ & 0.55147E-03_JPRB,0.52828E-03_JPRB,0.48333E-03_JPRB,0.19102E-02_JPRB /)  
+KA(:, 1, 1, 7) = (/ &
+ & 0.21025E-02_JPRB,0.35934E-02_JPRB,0.44505E-02_JPRB,0.51294E-02_JPRB,0.56565E-02_JPRB, &
+ & 0.60638E-02_JPRB,0.63051E-02_JPRB,0.63060E-02_JPRB,0.53132E-02_JPRB /)  
+KA(:, 2, 1, 7) = (/ &
+ & 0.21147E-02_JPRB,0.36363E-02_JPRB,0.45228E-02_JPRB,0.52203E-02_JPRB,0.57590E-02_JPRB, &
+ & 0.61627E-02_JPRB,0.64080E-02_JPRB,0.64123E-02_JPRB,0.54186E-02_JPRB /)  
+KA(:, 3, 1, 7) = (/ &
+ & 0.21423E-02_JPRB,0.36907E-02_JPRB,0.46129E-02_JPRB,0.53384E-02_JPRB,0.58809E-02_JPRB, &
+ & 0.62832E-02_JPRB,0.65320E-02_JPRB,0.65359E-02_JPRB,0.55396E-02_JPRB /)  
+KA(:, 4, 1, 7) = (/ &
+ & 0.21655E-02_JPRB,0.37303E-02_JPRB,0.46928E-02_JPRB,0.54454E-02_JPRB,0.60067E-02_JPRB, &
+ & 0.64159E-02_JPRB,0.66758E-02_JPRB,0.66776E-02_JPRB,0.56738E-02_JPRB /)  
+KA(:, 5, 1, 7) = (/ &
+ & 0.22041E-02_JPRB,0.37865E-02_JPRB,0.47900E-02_JPRB,0.55720E-02_JPRB,0.61575E-02_JPRB, &
+ & 0.65795E-02_JPRB,0.68426E-02_JPRB,0.68332E-02_JPRB,0.58218E-02_JPRB /)  
+KA(:, 1, 2, 7) = (/ &
+ & 0.19184E-02_JPRB,0.32868E-02_JPRB,0.40037E-02_JPRB,0.45520E-02_JPRB,0.49723E-02_JPRB, &
+ & 0.52862E-02_JPRB,0.54779E-02_JPRB,0.54778E-02_JPRB,0.44696E-02_JPRB /)  
+KA(:, 2, 2, 7) = (/ &
+ & 0.19302E-02_JPRB,0.33258E-02_JPRB,0.40693E-02_JPRB,0.46336E-02_JPRB,0.50634E-02_JPRB, &
+ & 0.53829E-02_JPRB,0.55797E-02_JPRB,0.55784E-02_JPRB,0.45568E-02_JPRB /)  
+KA(:, 3, 2, 7) = (/ &
+ & 0.19586E-02_JPRB,0.33762E-02_JPRB,0.41518E-02_JPRB,0.47383E-02_JPRB,0.51749E-02_JPRB, &
+ & 0.54993E-02_JPRB,0.56986E-02_JPRB,0.56923E-02_JPRB,0.46572E-02_JPRB /)  
+KA(:, 4, 2, 7) = (/ &
+ & 0.19876E-02_JPRB,0.34214E-02_JPRB,0.42297E-02_JPRB,0.48395E-02_JPRB,0.52957E-02_JPRB, &
+ & 0.56305E-02_JPRB,0.58340E-02_JPRB,0.58219E-02_JPRB,0.47733E-02_JPRB /)  
+KA(:, 5, 2, 7) = (/ &
+ & 0.20222E-02_JPRB,0.34660E-02_JPRB,0.43057E-02_JPRB,0.49428E-02_JPRB,0.54286E-02_JPRB, &
+ & 0.57769E-02_JPRB,0.59846E-02_JPRB,0.59651E-02_JPRB,0.49022E-02_JPRB /)  
+KA(:, 1, 3, 7) = (/ &
+ & 0.17389E-02_JPRB,0.29833E-02_JPRB,0.35894E-02_JPRB,0.40314E-02_JPRB,0.43535E-02_JPRB, &
+ & 0.45848E-02_JPRB,0.47251E-02_JPRB,0.47273E-02_JPRB,0.37675E-02_JPRB /)  
+KA(:, 2, 3, 7) = (/ &
+ & 0.17511E-02_JPRB,0.30210E-02_JPRB,0.36487E-02_JPRB,0.40996E-02_JPRB,0.44314E-02_JPRB, &
+ & 0.46730E-02_JPRB,0.48141E-02_JPRB,0.48126E-02_JPRB,0.38333E-02_JPRB /)  
+KA(:, 3, 3, 7) = (/ &
+ & 0.17713E-02_JPRB,0.30646E-02_JPRB,0.37133E-02_JPRB,0.41800E-02_JPRB,0.45216E-02_JPRB, &
+ & 0.47732E-02_JPRB,0.49178E-02_JPRB,0.49079E-02_JPRB,0.39121E-02_JPRB /)  
+KA(:, 4, 3, 7) = (/ &
+ & 0.18058E-02_JPRB,0.31149E-02_JPRB,0.37889E-02_JPRB,0.42777E-02_JPRB,0.46349E-02_JPRB, &
+ & 0.48925E-02_JPRB,0.50383E-02_JPRB,0.50219E-02_JPRB,0.40071E-02_JPRB /)  
+KA(:, 5, 3, 7) = (/ &
+ & 0.18379E-02_JPRB,0.31573E-02_JPRB,0.38545E-02_JPRB,0.43660E-02_JPRB,0.47479E-02_JPRB, &
+ & 0.50186E-02_JPRB,0.51717E-02_JPRB,0.51483E-02_JPRB,0.41141E-02_JPRB /)  
+KA(:, 1, 4, 7) = (/ &
+ & 0.15760E-02_JPRB,0.26881E-02_JPRB,0.32116E-02_JPRB,0.35706E-02_JPRB,0.38258E-02_JPRB, &
+ & 0.39911E-02_JPRB,0.40833E-02_JPRB,0.40813E-02_JPRB,0.32298E-02_JPRB /)  
+KA(:, 2, 4, 7) = (/ &
+ & 0.15813E-02_JPRB,0.27249E-02_JPRB,0.32627E-02_JPRB,0.36295E-02_JPRB,0.38889E-02_JPRB, &
+ & 0.40640E-02_JPRB,0.41571E-02_JPRB,0.41534E-02_JPRB,0.32787E-02_JPRB /)  
+KA(:, 3, 4, 7) = (/ &
+ & 0.16001E-02_JPRB,0.27603E-02_JPRB,0.33193E-02_JPRB,0.36971E-02_JPRB,0.39631E-02_JPRB, &
+ & 0.41442E-02_JPRB,0.42435E-02_JPRB,0.42324E-02_JPRB,0.33394E-02_JPRB /)  
+KA(:, 4, 4, 7) = (/ &
+ & 0.16258E-02_JPRB,0.28020E-02_JPRB,0.33780E-02_JPRB,0.37750E-02_JPRB,0.40494E-02_JPRB, &
+ & 0.42369E-02_JPRB,0.43436E-02_JPRB,0.43281E-02_JPRB,0.34138E-02_JPRB /)  
+KA(:, 5, 4, 7) = (/ &
+ & 0.16664E-02_JPRB,0.28640E-02_JPRB,0.34503E-02_JPRB,0.38637E-02_JPRB,0.41572E-02_JPRB, &
+ & 0.43540E-02_JPRB,0.44611E-02_JPRB,0.44376E-02_JPRB,0.34982E-02_JPRB /)  
+KA(:, 1, 5, 7) = (/ &
+ & 0.14233E-02_JPRB,0.24061E-02_JPRB,0.28484E-02_JPRB,0.31675E-02_JPRB,0.33803E-02_JPRB, &
+ & 0.35027E-02_JPRB,0.35528E-02_JPRB,0.35417E-02_JPRB,0.27814E-02_JPRB /)  
+KA(:, 2, 5, 7) = (/ &
+ & 0.14350E-02_JPRB,0.24395E-02_JPRB,0.28937E-02_JPRB,0.32168E-02_JPRB,0.34318E-02_JPRB, &
+ & 0.35619E-02_JPRB,0.36148E-02_JPRB,0.35990E-02_JPRB,0.28208E-02_JPRB /)  
+KA(:, 3, 5, 7) = (/ &
+ & 0.14521E-02_JPRB,0.24725E-02_JPRB,0.29512E-02_JPRB,0.32733E-02_JPRB,0.34917E-02_JPRB, &
+ & 0.36258E-02_JPRB,0.36856E-02_JPRB,0.36654E-02_JPRB,0.28719E-02_JPRB /)  
+KA(:, 4, 5, 7) = (/ &
+ & 0.14701E-02_JPRB,0.25117E-02_JPRB,0.30081E-02_JPRB,0.33364E-02_JPRB,0.35619E-02_JPRB, &
+ & 0.37016E-02_JPRB,0.37673E-02_JPRB,0.37455E-02_JPRB,0.29344E-02_JPRB /)  
+KA(:, 5, 5, 7) = (/ &
+ & 0.15037E-02_JPRB,0.25667E-02_JPRB,0.30753E-02_JPRB,0.34136E-02_JPRB,0.36518E-02_JPRB, &
+ & 0.37975E-02_JPRB,0.38648E-02_JPRB,0.38367E-02_JPRB,0.30050E-02_JPRB /)  
+KA(:, 1, 6, 7) = (/ &
+ & 0.12833E-02_JPRB,0.21397E-02_JPRB,0.25249E-02_JPRB,0.27989E-02_JPRB,0.29941E-02_JPRB, &
+ & 0.30943E-02_JPRB,0.31134E-02_JPRB,0.30718E-02_JPRB,0.23837E-02_JPRB /)  
+KA(:, 2, 6, 7) = (/ &
+ & 0.12955E-02_JPRB,0.21689E-02_JPRB,0.25640E-02_JPRB,0.28465E-02_JPRB,0.30386E-02_JPRB, &
+ & 0.31442E-02_JPRB,0.31666E-02_JPRB,0.31216E-02_JPRB,0.24190E-02_JPRB /)  
+KA(:, 3, 6, 7) = (/ &
+ & 0.13128E-02_JPRB,0.22001E-02_JPRB,0.26092E-02_JPRB,0.28949E-02_JPRB,0.30875E-02_JPRB, &
+ & 0.31967E-02_JPRB,0.32254E-02_JPRB,0.31772E-02_JPRB,0.24633E-02_JPRB /)  
+KA(:, 4, 6, 7) = (/ &
+ & 0.13321E-02_JPRB,0.22373E-02_JPRB,0.26583E-02_JPRB,0.29483E-02_JPRB,0.31454E-02_JPRB, &
+ & 0.32584E-02_JPRB,0.32916E-02_JPRB,0.32451E-02_JPRB,0.25158E-02_JPRB /)  
+KA(:, 5, 6, 7) = (/ &
+ & 0.13570E-02_JPRB,0.22801E-02_JPRB,0.27142E-02_JPRB,0.30110E-02_JPRB,0.32147E-02_JPRB, &
+ & 0.33324E-02_JPRB,0.33699E-02_JPRB,0.33240E-02_JPRB,0.25751E-02_JPRB /)  
+KA(:, 1, 7, 7) = (/ &
+ & 0.11500E-02_JPRB,0.18956E-02_JPRB,0.22352E-02_JPRB,0.24771E-02_JPRB,0.26462E-02_JPRB, &
+ & 0.27285E-02_JPRB,0.27284E-02_JPRB,0.26574E-02_JPRB,0.20286E-02_JPRB /)  
+KA(:, 2, 7, 7) = (/ &
+ & 0.11641E-02_JPRB,0.19221E-02_JPRB,0.22681E-02_JPRB,0.25137E-02_JPRB,0.26876E-02_JPRB, &
+ & 0.27741E-02_JPRB,0.27762E-02_JPRB,0.27013E-02_JPRB,0.20553E-02_JPRB /)  
+KA(:, 3, 7, 7) = (/ &
+ & 0.11813E-02_JPRB,0.19513E-02_JPRB,0.23065E-02_JPRB,0.25547E-02_JPRB,0.27305E-02_JPRB, &
+ & 0.28210E-02_JPRB,0.28261E-02_JPRB,0.27499E-02_JPRB,0.20900E-02_JPRB /)  
+KA(:, 4, 7, 7) = (/ &
+ & 0.12020E-02_JPRB,0.19854E-02_JPRB,0.23499E-02_JPRB,0.26064E-02_JPRB,0.27813E-02_JPRB, &
+ & 0.28738E-02_JPRB,0.28824E-02_JPRB,0.28095E-02_JPRB,0.21311E-02_JPRB /)  
+KA(:, 5, 7, 7) = (/ &
+ & 0.12251E-02_JPRB,0.20252E-02_JPRB,0.23984E-02_JPRB,0.26618E-02_JPRB,0.28401E-02_JPRB, &
+ & 0.29374E-02_JPRB,0.29496E-02_JPRB,0.28780E-02_JPRB,0.21792E-02_JPRB /)  
+KA(:, 1, 8, 7) = (/ &
+ & 0.10232E-02_JPRB,0.16906E-02_JPRB,0.19769E-02_JPRB,0.21832E-02_JPRB,0.23202E-02_JPRB, &
+ & 0.23917E-02_JPRB,0.23852E-02_JPRB,0.22950E-02_JPRB,0.17101E-02_JPRB /)  
+KA(:, 2, 8, 7) = (/ &
+ & 0.10391E-02_JPRB,0.17050E-02_JPRB,0.20071E-02_JPRB,0.22179E-02_JPRB,0.23606E-02_JPRB, &
+ & 0.24337E-02_JPRB,0.24284E-02_JPRB,0.23335E-02_JPRB,0.17331E-02_JPRB /)  
+KA(:, 3, 8, 7) = (/ &
+ & 0.10558E-02_JPRB,0.17304E-02_JPRB,0.20412E-02_JPRB,0.22560E-02_JPRB,0.24048E-02_JPRB, &
+ & 0.24767E-02_JPRB,0.24718E-02_JPRB,0.23758E-02_JPRB,0.17638E-02_JPRB /)  
+KA(:, 4, 8, 7) = (/ &
+ & 0.10757E-02_JPRB,0.17611E-02_JPRB,0.20788E-02_JPRB,0.22974E-02_JPRB,0.24509E-02_JPRB, &
+ & 0.25242E-02_JPRB,0.25220E-02_JPRB,0.24275E-02_JPRB,0.17981E-02_JPRB /)  
+KA(:, 5, 8, 7) = (/ &
+ & 0.10980E-02_JPRB,0.17974E-02_JPRB,0.21207E-02_JPRB,0.23464E-02_JPRB,0.25025E-02_JPRB, &
+ & 0.25827E-02_JPRB,0.25792E-02_JPRB,0.24843E-02_JPRB,0.18371E-02_JPRB /)  
+KA(:, 1, 9, 7) = (/ &
+ & 0.89817E-03_JPRB,0.14995E-02_JPRB,0.17424E-02_JPRB,0.19141E-02_JPRB,0.20277E-02_JPRB, &
+ & 0.20847E-02_JPRB,0.20717E-02_JPRB,0.19779E-02_JPRB,0.16529E-02_JPRB /)  
+KA(:, 2, 9, 7) = (/ &
+ & 0.91497E-03_JPRB,0.15202E-02_JPRB,0.17713E-02_JPRB,0.19473E-02_JPRB,0.20642E-02_JPRB, &
+ & 0.21241E-02_JPRB,0.21112E-02_JPRB,0.20125E-02_JPRB,0.16590E-02_JPRB /)  
+KA(:, 3, 9, 7) = (/ &
+ & 0.93269E-03_JPRB,0.15411E-02_JPRB,0.18029E-02_JPRB,0.19839E-02_JPRB,0.21017E-02_JPRB, &
+ & 0.21633E-02_JPRB,0.21507E-02_JPRB,0.20494E-02_JPRB,0.16738E-02_JPRB /)  
+KA(:, 4, 9, 7) = (/ &
+ & 0.95304E-03_JPRB,0.15646E-02_JPRB,0.18368E-02_JPRB,0.20225E-02_JPRB,0.21451E-02_JPRB, &
+ & 0.22062E-02_JPRB,0.21951E-02_JPRB,0.20930E-02_JPRB,0.16939E-02_JPRB /)  
+KA(:, 5, 9, 7) = (/ &
+ & 0.97498E-03_JPRB,0.15941E-02_JPRB,0.18742E-02_JPRB,0.20657E-02_JPRB,0.21958E-02_JPRB, &
+ & 0.22577E-02_JPRB,0.22448E-02_JPRB,0.21409E-02_JPRB,0.17176E-02_JPRB /)  
+KA(:, 1,10, 7) = (/ &
+ & 0.79262E-03_JPRB,0.13163E-02_JPRB,0.15328E-02_JPRB,0.16707E-02_JPRB,0.17648E-02_JPRB, &
+ & 0.18068E-02_JPRB,0.17935E-02_JPRB,0.17058E-02_JPRB,0.29700E-02_JPRB /)  
+KA(:, 2,10, 7) = (/ &
+ & 0.80762E-03_JPRB,0.13411E-02_JPRB,0.15596E-02_JPRB,0.17027E-02_JPRB,0.18000E-02_JPRB, &
+ & 0.18435E-02_JPRB,0.18291E-02_JPRB,0.17355E-02_JPRB,0.28651E-02_JPRB /)  
+KA(:, 3,10, 7) = (/ &
+ & 0.82251E-03_JPRB,0.13646E-02_JPRB,0.15856E-02_JPRB,0.17370E-02_JPRB,0.18349E-02_JPRB, &
+ & 0.18799E-02_JPRB,0.18643E-02_JPRB,0.17669E-02_JPRB,0.27637E-02_JPRB /)  
+KA(:, 4,10, 7) = (/ &
+ & 0.84077E-03_JPRB,0.13892E-02_JPRB,0.16170E-02_JPRB,0.17747E-02_JPRB,0.18736E-02_JPRB, &
+ & 0.19201E-02_JPRB,0.19036E-02_JPRB,0.18042E-02_JPRB,0.26870E-02_JPRB /)  
+KA(:, 5,10, 7) = (/ &
+ & 0.86106E-03_JPRB,0.14180E-02_JPRB,0.16516E-02_JPRB,0.18147E-02_JPRB,0.19171E-02_JPRB, &
+ & 0.19660E-02_JPRB,0.19468E-02_JPRB,0.18451E-02_JPRB,0.26342E-02_JPRB /)  
+KA(:, 1,11, 7) = (/ &
+ & 0.72744E-03_JPRB,0.11669E-02_JPRB,0.13481E-02_JPRB,0.14590E-02_JPRB,0.15393E-02_JPRB, &
+ & 0.15747E-02_JPRB,0.15610E-02_JPRB,0.14772E-02_JPRB,0.38429E-02_JPRB /)  
+KA(:, 2,11, 7) = (/ &
+ & 0.73930E-03_JPRB,0.11904E-02_JPRB,0.13759E-02_JPRB,0.14894E-02_JPRB,0.15715E-02_JPRB, &
+ & 0.16066E-02_JPRB,0.15925E-02_JPRB,0.15038E-02_JPRB,0.36308E-02_JPRB /)  
+KA(:, 3,11, 7) = (/ &
+ & 0.75350E-03_JPRB,0.12120E-02_JPRB,0.14044E-02_JPRB,0.15240E-02_JPRB,0.16053E-02_JPRB, &
+ & 0.16390E-02_JPRB,0.16251E-02_JPRB,0.15339E-02_JPRB,0.34122E-02_JPRB /)  
+KA(:, 4,11, 7) = (/ &
+ & 0.76930E-03_JPRB,0.12355E-02_JPRB,0.14324E-02_JPRB,0.15603E-02_JPRB,0.16424E-02_JPRB, &
+ & 0.16774E-02_JPRB,0.16611E-02_JPRB,0.15677E-02_JPRB,0.32391E-02_JPRB /)  
+KA(:, 5,11, 7) = (/ &
+ & 0.78824E-03_JPRB,0.12645E-02_JPRB,0.14660E-02_JPRB,0.15998E-02_JPRB,0.16846E-02_JPRB, &
+ & 0.17204E-02_JPRB,0.17007E-02_JPRB,0.16046E-02_JPRB,0.31291E-02_JPRB /)  
+KA(:, 1,12, 7) = (/ &
+ & 0.66909E-03_JPRB,0.10517E-02_JPRB,0.11921E-02_JPRB,0.12822E-02_JPRB,0.13379E-02_JPRB, &
+ & 0.13630E-02_JPRB,0.13492E-02_JPRB,0.12752E-02_JPRB,0.39255E-02_JPRB /)  
+KA(:, 2,12, 7) = (/ &
+ & 0.68372E-03_JPRB,0.10717E-02_JPRB,0.12175E-02_JPRB,0.13089E-02_JPRB,0.13666E-02_JPRB, &
+ & 0.13913E-02_JPRB,0.13783E-02_JPRB,0.12999E-02_JPRB,0.37011E-02_JPRB /)  
+KA(:, 3,12, 7) = (/ &
+ & 0.69881E-03_JPRB,0.10912E-02_JPRB,0.12439E-02_JPRB,0.13402E-02_JPRB,0.13970E-02_JPRB, &
+ & 0.14222E-02_JPRB,0.14099E-02_JPRB,0.13279E-02_JPRB,0.35002E-02_JPRB /)  
+KA(:, 4,12, 7) = (/ &
+ & 0.71487E-03_JPRB,0.11132E-02_JPRB,0.12732E-02_JPRB,0.13738E-02_JPRB,0.14317E-02_JPRB, &
+ & 0.14583E-02_JPRB,0.14439E-02_JPRB,0.13590E-02_JPRB,0.33360E-02_JPRB /)  
+KA(:, 5,12, 7) = (/ &
+ & 0.73461E-03_JPRB,0.11382E-02_JPRB,0.13053E-02_JPRB,0.14102E-02_JPRB,0.14713E-02_JPRB, &
+ & 0.14974E-02_JPRB,0.14808E-02_JPRB,0.13924E-02_JPRB,0.31844E-02_JPRB /)  
+KA(:, 1,13, 7) = (/ &
+ & 0.61282E-03_JPRB,0.95575E-03_JPRB,0.10730E-02_JPRB,0.11388E-02_JPRB,0.11718E-02_JPRB, &
+ & 0.11795E-02_JPRB,0.11618E-02_JPRB,0.10974E-02_JPRB,0.34089E-02_JPRB /)  
+KA(:, 2,13, 7) = (/ &
+ & 0.62765E-03_JPRB,0.97500E-03_JPRB,0.10966E-02_JPRB,0.11619E-02_JPRB,0.11959E-02_JPRB, &
+ & 0.12054E-02_JPRB,0.11876E-02_JPRB,0.11206E-02_JPRB,0.32141E-02_JPRB /)  
+KA(:, 3,13, 7) = (/ &
+ & 0.64409E-03_JPRB,0.99523E-03_JPRB,0.11197E-02_JPRB,0.11873E-02_JPRB,0.12235E-02_JPRB, &
+ & 0.12347E-02_JPRB,0.12163E-02_JPRB,0.11468E-02_JPRB,0.30396E-02_JPRB /)  
+KA(:, 4,13, 7) = (/ &
+ & 0.66230E-03_JPRB,0.10180E-02_JPRB,0.11464E-02_JPRB,0.12161E-02_JPRB,0.12557E-02_JPRB, &
+ & 0.12667E-02_JPRB,0.12475E-02_JPRB,0.11749E-02_JPRB,0.28911E-02_JPRB /)  
+KA(:, 5,13, 7) = (/ &
+ & 0.68383E-03_JPRB,0.10452E-02_JPRB,0.11767E-02_JPRB,0.12484E-02_JPRB,0.12902E-02_JPRB, &
+ & 0.13021E-02_JPRB,0.12822E-02_JPRB,0.12049E-02_JPRB,0.27576E-02_JPRB /)  
+KA(:, 1, 1, 8) = (/ &
+ & 0.59073E-02_JPRB,0.94320E-02_JPRB,0.12084E-01_JPRB,0.14049E-01_JPRB,0.15571E-01_JPRB, &
+ & 0.16640E-01_JPRB,0.17123E-01_JPRB,0.16625E-01_JPRB,0.14851E-01_JPRB /)  
+KA(:, 2, 1, 8) = (/ &
+ & 0.60213E-02_JPRB,0.95565E-02_JPRB,0.12218E-01_JPRB,0.14200E-01_JPRB,0.15736E-01_JPRB, &
+ & 0.16810E-01_JPRB,0.17290E-01_JPRB,0.16722E-01_JPRB,0.14969E-01_JPRB /)  
+KA(:, 3, 1, 8) = (/ &
+ & 0.61698E-02_JPRB,0.97176E-02_JPRB,0.12383E-01_JPRB,0.14381E-01_JPRB,0.15939E-01_JPRB, &
+ & 0.17010E-01_JPRB,0.17476E-01_JPRB,0.16866E-01_JPRB,0.15129E-01_JPRB /)  
+KA(:, 4, 1, 8) = (/ &
+ & 0.62862E-02_JPRB,0.98624E-02_JPRB,0.12544E-01_JPRB,0.14586E-01_JPRB,0.16163E-01_JPRB, &
+ & 0.17225E-01_JPRB,0.17690E-01_JPRB,0.17043E-01_JPRB,0.15322E-01_JPRB /)  
+KA(:, 5, 1, 8) = (/ &
+ & 0.64346E-02_JPRB,0.10033E-01_JPRB,0.12746E-01_JPRB,0.14817E-01_JPRB,0.16408E-01_JPRB, &
+ & 0.17481E-01_JPRB,0.17940E-01_JPRB,0.17253E-01_JPRB,0.15543E-01_JPRB /)  
+KA(:, 1, 2, 8) = (/ &
+ & 0.53740E-02_JPRB,0.87218E-02_JPRB,0.11053E-01_JPRB,0.12810E-01_JPRB,0.14176E-01_JPRB, &
+ & 0.15120E-01_JPRB,0.15546E-01_JPRB,0.15059E-01_JPRB,0.12919E-01_JPRB /)  
+KA(:, 2, 2, 8) = (/ &
+ & 0.54730E-02_JPRB,0.88522E-02_JPRB,0.11203E-01_JPRB,0.12984E-01_JPRB,0.14363E-01_JPRB, &
+ & 0.15303E-01_JPRB,0.15712E-01_JPRB,0.15177E-01_JPRB,0.13038E-01_JPRB /)  
+KA(:, 3, 2, 8) = (/ &
+ & 0.56074E-02_JPRB,0.90112E-02_JPRB,0.11386E-01_JPRB,0.13184E-01_JPRB,0.14577E-01_JPRB, &
+ & 0.15506E-01_JPRB,0.15908E-01_JPRB,0.15341E-01_JPRB,0.13193E-01_JPRB /)  
+KA(:, 4, 2, 8) = (/ &
+ & 0.57291E-02_JPRB,0.91663E-02_JPRB,0.11581E-01_JPRB,0.13408E-01_JPRB,0.14805E-01_JPRB, &
+ & 0.15738E-01_JPRB,0.16140E-01_JPRB,0.15527E-01_JPRB,0.13373E-01_JPRB /)  
+KA(:, 5, 2, 8) = (/ &
+ & 0.58374E-02_JPRB,0.93237E-02_JPRB,0.11790E-01_JPRB,0.13642E-01_JPRB,0.15063E-01_JPRB, &
+ & 0.16008E-01_JPRB,0.16391E-01_JPRB,0.15740E-01_JPRB,0.13573E-01_JPRB /)  
+KA(:, 1, 3, 8) = (/ &
+ & 0.49151E-02_JPRB,0.80083E-02_JPRB,0.10006E-01_JPRB,0.11528E-01_JPRB,0.12727E-01_JPRB, &
+ & 0.13551E-01_JPRB,0.13911E-01_JPRB,0.13469E-01_JPRB,0.11070E-01_JPRB /)  
+KA(:, 2, 3, 8) = (/ &
+ & 0.50045E-02_JPRB,0.81384E-02_JPRB,0.10158E-01_JPRB,0.11712E-01_JPRB,0.12918E-01_JPRB, &
+ & 0.13727E-01_JPRB,0.14078E-01_JPRB,0.13598E-01_JPRB,0.11182E-01_JPRB /)  
+KA(:, 3, 3, 8) = (/ &
+ & 0.51018E-02_JPRB,0.82774E-02_JPRB,0.10333E-01_JPRB,0.11906E-01_JPRB,0.13128E-01_JPRB, &
+ & 0.13932E-01_JPRB,0.14276E-01_JPRB,0.13758E-01_JPRB,0.11318E-01_JPRB /)  
+KA(:, 4, 3, 8) = (/ &
+ & 0.52290E-02_JPRB,0.84457E-02_JPRB,0.10545E-01_JPRB,0.12130E-01_JPRB,0.13362E-01_JPRB, &
+ & 0.14179E-01_JPRB,0.14506E-01_JPRB,0.13944E-01_JPRB,0.11475E-01_JPRB /)  
+KA(:, 5, 3, 8) = (/ &
+ & 0.53219E-02_JPRB,0.86004E-02_JPRB,0.10753E-01_JPRB,0.12365E-01_JPRB,0.13624E-01_JPRB, &
+ & 0.14443E-01_JPRB,0.14743E-01_JPRB,0.14150E-01_JPRB,0.11664E-01_JPRB /)  
+KA(:, 1, 4, 8) = (/ &
+ & 0.44996E-02_JPRB,0.73324E-02_JPRB,0.89976E-02_JPRB,0.10282E-01_JPRB,0.11291E-01_JPRB, &
+ & 0.11989E-01_JPRB,0.12308E-01_JPRB,0.11915E-01_JPRB,0.94610E-02_JPRB /)  
+KA(:, 2, 4, 8) = (/ &
+ & 0.45903E-02_JPRB,0.74608E-02_JPRB,0.91511E-02_JPRB,0.10467E-01_JPRB,0.11476E-01_JPRB, &
+ & 0.12168E-01_JPRB,0.12474E-01_JPRB,0.12040E-01_JPRB,0.95583E-02_JPRB /)  
+KA(:, 3, 4, 8) = (/ &
+ & 0.46786E-02_JPRB,0.75960E-02_JPRB,0.93200E-02_JPRB,0.10651E-01_JPRB,0.11685E-01_JPRB, &
+ & 0.12375E-01_JPRB,0.12662E-01_JPRB,0.12197E-01_JPRB,0.96836E-02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART5',1,ZHOOK_HANDLE)
+END SUBROUTINE PART5
+
+
+SUBROUTINE PART6
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART6',0,ZHOOK_HANDLE)
+
+
+KA(:, 4, 4, 8) = (/ &
+ & 0.47771E-02_JPRB,0.77407E-02_JPRB,0.95085E-02_JPRB,0.10860E-01_JPRB,0.11915E-01_JPRB, &
+ & 0.12611E-01_JPRB,0.12868E-01_JPRB,0.12374E-01_JPRB,0.98243E-02_JPRB /)  
+KA(:, 5, 4, 8) = (/ &
+ & 0.48920E-02_JPRB,0.79194E-02_JPRB,0.97305E-02_JPRB,0.11107E-01_JPRB,0.12174E-01_JPRB, &
+ & 0.12866E-01_JPRB,0.13096E-01_JPRB,0.12573E-01_JPRB,0.99978E-02_JPRB /)  
+KA(:, 1, 5, 8) = (/ &
+ & 0.41203E-02_JPRB,0.67057E-02_JPRB,0.80820E-02_JPRB,0.91247E-02_JPRB,0.99321E-02_JPRB, &
+ & 0.10510E-01_JPRB,0.10783E-01_JPRB,0.10430E-01_JPRB,0.81020E-02_JPRB /)  
+KA(:, 2, 5, 8) = (/ &
+ & 0.41993E-02_JPRB,0.68279E-02_JPRB,0.82322E-02_JPRB,0.92959E-02_JPRB,0.10115E-01_JPRB, &
+ & 0.10684E-01_JPRB,0.10936E-01_JPRB,0.10557E-01_JPRB,0.81860E-02_JPRB /)  
+KA(:, 3, 5, 8) = (/ &
+ & 0.42833E-02_JPRB,0.69588E-02_JPRB,0.83884E-02_JPRB,0.94726E-02_JPRB,0.10319E-01_JPRB, &
+ & 0.10879E-01_JPRB,0.11113E-01_JPRB,0.10704E-01_JPRB,0.82915E-02_JPRB /)  
+KA(:, 4, 5, 8) = (/ &
+ & 0.43800E-02_JPRB,0.70975E-02_JPRB,0.85585E-02_JPRB,0.96769E-02_JPRB,0.10538E-01_JPRB, &
+ & 0.11098E-01_JPRB,0.11307E-01_JPRB,0.10873E-01_JPRB,0.84082E-02_JPRB /)  
+KA(:, 5, 5, 8) = (/ &
+ & 0.44913E-02_JPRB,0.72638E-02_JPRB,0.87668E-02_JPRB,0.99106E-02_JPRB,0.10776E-01_JPRB, &
+ & 0.11337E-01_JPRB,0.11521E-01_JPRB,0.11061E-01_JPRB,0.85492E-02_JPRB /)  
+KA(:, 1, 6, 8) = (/ &
+ & 0.37432E-02_JPRB,0.61135E-02_JPRB,0.72507E-02_JPRB,0.80822E-02_JPRB,0.86984E-02_JPRB, &
+ & 0.91424E-02_JPRB,0.93607E-02_JPRB,0.90800E-02_JPRB,0.69637E-02_JPRB /)  
+KA(:, 2, 6, 8) = (/ &
+ & 0.38232E-02_JPRB,0.62277E-02_JPRB,0.73923E-02_JPRB,0.82383E-02_JPRB,0.88666E-02_JPRB, &
+ & 0.93013E-02_JPRB,0.95051E-02_JPRB,0.91939E-02_JPRB,0.70311E-02_JPRB /)  
+KA(:, 3, 6, 8) = (/ &
+ & 0.39028E-02_JPRB,0.63516E-02_JPRB,0.75330E-02_JPRB,0.84072E-02_JPRB,0.90542E-02_JPRB, &
+ & 0.94860E-02_JPRB,0.96693E-02_JPRB,0.93306E-02_JPRB,0.71143E-02_JPRB /)  
+KA(:, 4, 6, 8) = (/ &
+ & 0.39917E-02_JPRB,0.64850E-02_JPRB,0.76893E-02_JPRB,0.85935E-02_JPRB,0.92562E-02_JPRB, &
+ & 0.96859E-02_JPRB,0.98481E-02_JPRB,0.94821E-02_JPRB,0.72080E-02_JPRB /)  
+KA(:, 5, 6, 8) = (/ &
+ & 0.40851E-02_JPRB,0.66256E-02_JPRB,0.78694E-02_JPRB,0.87911E-02_JPRB,0.94733E-02_JPRB, &
+ & 0.99019E-02_JPRB,0.10042E-01_JPRB,0.96464E-02_JPRB,0.73211E-02_JPRB /)  
+KA(:, 1, 7, 8) = (/ &
+ & 0.33812E-02_JPRB,0.55475E-02_JPRB,0.65017E-02_JPRB,0.71556E-02_JPRB,0.76235E-02_JPRB, &
+ & 0.79451E-02_JPRB,0.81101E-02_JPRB,0.78877E-02_JPRB,0.60070E-02_JPRB /)  
+KA(:, 2, 7, 8) = (/ &
+ & 0.34581E-02_JPRB,0.56575E-02_JPRB,0.66301E-02_JPRB,0.72977E-02_JPRB,0.77709E-02_JPRB, &
+ & 0.80903E-02_JPRB,0.82426E-02_JPRB,0.79917E-02_JPRB,0.60625E-02_JPRB /)  
+KA(:, 3, 7, 8) = (/ &
+ & 0.35355E-02_JPRB,0.57759E-02_JPRB,0.67602E-02_JPRB,0.74532E-02_JPRB,0.79395E-02_JPRB, &
+ & 0.82549E-02_JPRB,0.83890E-02_JPRB,0.81121E-02_JPRB,0.61274E-02_JPRB /)  
+KA(:, 4, 7, 8) = (/ &
+ & 0.36191E-02_JPRB,0.58987E-02_JPRB,0.69034E-02_JPRB,0.76219E-02_JPRB,0.81209E-02_JPRB, &
+ & 0.84343E-02_JPRB,0.85495E-02_JPRB,0.82395E-02_JPRB,0.62026E-02_JPRB /)  
+KA(:, 5, 7, 8) = (/ &
+ & 0.37084E-02_JPRB,0.60308E-02_JPRB,0.70671E-02_JPRB,0.77977E-02_JPRB,0.83160E-02_JPRB, &
+ & 0.86266E-02_JPRB,0.87205E-02_JPRB,0.83802E-02_JPRB,0.62947E-02_JPRB /)  
+KA(:, 1, 8, 8) = (/ &
+ & 0.30376E-02_JPRB,0.49774E-02_JPRB,0.58172E-02_JPRB,0.63470E-02_JPRB,0.67038E-02_JPRB, &
+ & 0.69396E-02_JPRB,0.70412E-02_JPRB,0.68509E-02_JPRB,0.51374E-02_JPRB /)  
+KA(:, 2, 8, 8) = (/ &
+ & 0.31099E-02_JPRB,0.50996E-02_JPRB,0.59344E-02_JPRB,0.64736E-02_JPRB,0.68367E-02_JPRB, &
+ & 0.70701E-02_JPRB,0.71564E-02_JPRB,0.69425E-02_JPRB,0.51813E-02_JPRB /)  
+KA(:, 3, 8, 8) = (/ &
+ & 0.31853E-02_JPRB,0.52155E-02_JPRB,0.60541E-02_JPRB,0.66147E-02_JPRB,0.69858E-02_JPRB, &
+ & 0.72120E-02_JPRB,0.72858E-02_JPRB,0.70465E-02_JPRB,0.52319E-02_JPRB /)  
+KA(:, 4, 8, 8) = (/ &
+ & 0.32663E-02_JPRB,0.53312E-02_JPRB,0.61863E-02_JPRB,0.67654E-02_JPRB,0.71468E-02_JPRB, &
+ & 0.73677E-02_JPRB,0.74252E-02_JPRB,0.71560E-02_JPRB,0.52932E-02_JPRB /)  
+KA(:, 5, 8, 8) = (/ &
+ & 0.33510E-02_JPRB,0.54583E-02_JPRB,0.63345E-02_JPRB,0.69235E-02_JPRB,0.73170E-02_JPRB, &
+ & 0.75339E-02_JPRB,0.75720E-02_JPRB,0.72770E-02_JPRB,0.53726E-02_JPRB /)  
+KA(:, 1, 9, 8) = (/ &
+ & 0.27168E-02_JPRB,0.44406E-02_JPRB,0.51768E-02_JPRB,0.56339E-02_JPRB,0.59208E-02_JPRB, &
+ & 0.60958E-02_JPRB,0.61438E-02_JPRB,0.59554E-02_JPRB,0.42511E-02_JPRB /)  
+KA(:, 2, 9, 8) = (/ &
+ & 0.27853E-02_JPRB,0.45486E-02_JPRB,0.52870E-02_JPRB,0.57491E-02_JPRB,0.60397E-02_JPRB, &
+ & 0.62076E-02_JPRB,0.62421E-02_JPRB,0.60358E-02_JPRB,0.42982E-02_JPRB /)  
+KA(:, 3, 9, 8) = (/ &
+ & 0.28572E-02_JPRB,0.46609E-02_JPRB,0.53998E-02_JPRB,0.58755E-02_JPRB,0.61719E-02_JPRB, &
+ & 0.63300E-02_JPRB,0.63536E-02_JPRB,0.61272E-02_JPRB,0.43479E-02_JPRB /)  
+KA(:, 4, 9, 8) = (/ &
+ & 0.29351E-02_JPRB,0.47766E-02_JPRB,0.55244E-02_JPRB,0.60103E-02_JPRB,0.63121E-02_JPRB, &
+ & 0.64656E-02_JPRB,0.64718E-02_JPRB,0.62231E-02_JPRB,0.44012E-02_JPRB /)  
+KA(:, 5, 9, 8) = (/ &
+ & 0.30174E-02_JPRB,0.49013E-02_JPRB,0.56608E-02_JPRB,0.61542E-02_JPRB,0.64584E-02_JPRB, &
+ & 0.66094E-02_JPRB,0.65960E-02_JPRB,0.63252E-02_JPRB,0.44655E-02_JPRB /)  
+KA(:, 1,10, 8) = (/ &
+ & 0.24055E-02_JPRB,0.39503E-02_JPRB,0.45833E-02_JPRB,0.49951E-02_JPRB,0.52507E-02_JPRB, &
+ & 0.53857E-02_JPRB,0.53791E-02_JPRB,0.51629E-02_JPRB,0.55379E-02_JPRB /)  
+KA(:, 2,10, 8) = (/ &
+ & 0.24728E-02_JPRB,0.40487E-02_JPRB,0.46867E-02_JPRB,0.51042E-02_JPRB,0.53576E-02_JPRB, &
+ & 0.54844E-02_JPRB,0.54704E-02_JPRB,0.52383E-02_JPRB,0.55398E-02_JPRB /)  
+KA(:, 3,10, 8) = (/ &
+ & 0.25454E-02_JPRB,0.41511E-02_JPRB,0.48010E-02_JPRB,0.52206E-02_JPRB,0.54751E-02_JPRB, &
+ & 0.55927E-02_JPRB,0.55711E-02_JPRB,0.53216E-02_JPRB,0.55501E-02_JPRB /)  
+KA(:, 4,10, 8) = (/ &
+ & 0.26224E-02_JPRB,0.42542E-02_JPRB,0.49201E-02_JPRB,0.53438E-02_JPRB,0.55977E-02_JPRB, &
+ & 0.57114E-02_JPRB,0.56753E-02_JPRB,0.54074E-02_JPRB,0.55558E-02_JPRB /)  
+KA(:, 5,10, 8) = (/ &
+ & 0.27039E-02_JPRB,0.43672E-02_JPRB,0.50470E-02_JPRB,0.54750E-02_JPRB,0.57276E-02_JPRB, &
+ & 0.58363E-02_JPRB,0.57849E-02_JPRB,0.54996E-02_JPRB,0.55710E-02_JPRB /)  
+KA(:, 1,11, 8) = (/ &
+ & 0.21256E-02_JPRB,0.35221E-02_JPRB,0.40853E-02_JPRB,0.44612E-02_JPRB,0.46874E-02_JPRB, &
+ & 0.47866E-02_JPRB,0.47389E-02_JPRB,0.44975E-02_JPRB,0.66135E-02_JPRB /)  
+KA(:, 2,11, 8) = (/ &
+ & 0.21937E-02_JPRB,0.36149E-02_JPRB,0.41854E-02_JPRB,0.45677E-02_JPRB,0.47907E-02_JPRB, &
+ & 0.48833E-02_JPRB,0.48291E-02_JPRB,0.45707E-02_JPRB,0.65729E-02_JPRB /)  
+KA(:, 3,11, 8) = (/ &
+ & 0.22650E-02_JPRB,0.37098E-02_JPRB,0.42933E-02_JPRB,0.46764E-02_JPRB,0.49020E-02_JPRB, &
+ & 0.49895E-02_JPRB,0.49234E-02_JPRB,0.46462E-02_JPRB,0.65598E-02_JPRB /)  
+KA(:, 4,11, 8) = (/ &
+ & 0.23425E-02_JPRB,0.38113E-02_JPRB,0.44107E-02_JPRB,0.47931E-02_JPRB,0.50165E-02_JPRB, &
+ & 0.51000E-02_JPRB,0.50211E-02_JPRB,0.47251E-02_JPRB,0.65419E-02_JPRB /)  
+KA(:, 5,11, 8) = (/ &
+ & 0.24251E-02_JPRB,0.39222E-02_JPRB,0.45344E-02_JPRB,0.49164E-02_JPRB,0.51382E-02_JPRB, &
+ & 0.52156E-02_JPRB,0.51233E-02_JPRB,0.48118E-02_JPRB,0.65404E-02_JPRB /)  
+KA(:, 1,12, 8) = (/ &
+ & 0.19014E-02_JPRB,0.31169E-02_JPRB,0.36336E-02_JPRB,0.39642E-02_JPRB,0.41602E-02_JPRB, &
+ & 0.42352E-02_JPRB,0.41726E-02_JPRB,0.39183E-02_JPRB,0.68121E-02_JPRB /)  
+KA(:, 2,12, 8) = (/ &
+ & 0.19605E-02_JPRB,0.32068E-02_JPRB,0.37314E-02_JPRB,0.40676E-02_JPRB,0.42627E-02_JPRB, &
+ & 0.43333E-02_JPRB,0.42591E-02_JPRB,0.39851E-02_JPRB,0.67229E-02_JPRB /)  
+KA(:, 3,12, 8) = (/ &
+ & 0.20227E-02_JPRB,0.33010E-02_JPRB,0.38333E-02_JPRB,0.41743E-02_JPRB,0.43708E-02_JPRB, &
+ & 0.44355E-02_JPRB,0.43461E-02_JPRB,0.40520E-02_JPRB,0.66419E-02_JPRB /)  
+KA(:, 4,12, 8) = (/ &
+ & 0.20945E-02_JPRB,0.34006E-02_JPRB,0.39411E-02_JPRB,0.42851E-02_JPRB,0.44804E-02_JPRB, &
+ & 0.45405E-02_JPRB,0.44353E-02_JPRB,0.41230E-02_JPRB,0.65948E-02_JPRB /)  
+KA(:, 5,12, 8) = (/ &
+ & 0.21695E-02_JPRB,0.35114E-02_JPRB,0.40581E-02_JPRB,0.44020E-02_JPRB,0.45960E-02_JPRB, &
+ & 0.46501E-02_JPRB,0.45319E-02_JPRB,0.42045E-02_JPRB,0.65716E-02_JPRB /)  
+KA(:, 1,13, 8) = (/ &
+ & 0.17348E-02_JPRB,0.27575E-02_JPRB,0.32033E-02_JPRB,0.34905E-02_JPRB,0.36669E-02_JPRB, &
+ & 0.37299E-02_JPRB,0.36615E-02_JPRB,0.34092E-02_JPRB,0.62173E-02_JPRB /)  
+KA(:, 2,13, 8) = (/ &
+ & 0.17868E-02_JPRB,0.28403E-02_JPRB,0.32978E-02_JPRB,0.35924E-02_JPRB,0.37684E-02_JPRB, &
+ & 0.38248E-02_JPRB,0.37430E-02_JPRB,0.34686E-02_JPRB,0.61248E-02_JPRB /)  
+KA(:, 3,13, 8) = (/ &
+ & 0.18438E-02_JPRB,0.29272E-02_JPRB,0.33982E-02_JPRB,0.36985E-02_JPRB,0.38711E-02_JPRB, &
+ & 0.39210E-02_JPRB,0.38240E-02_JPRB,0.35286E-02_JPRB,0.60637E-02_JPRB /)  
+KA(:, 4,13, 8) = (/ &
+ & 0.19066E-02_JPRB,0.30192E-02_JPRB,0.35016E-02_JPRB,0.38072E-02_JPRB,0.39764E-02_JPRB, &
+ & 0.40199E-02_JPRB,0.39089E-02_JPRB,0.35954E-02_JPRB,0.60138E-02_JPRB /)  
+KA(:, 5,13, 8) = (/ &
+ & 0.19732E-02_JPRB,0.31237E-02_JPRB,0.36129E-02_JPRB,0.39207E-02_JPRB,0.40892E-02_JPRB, &
+ & 0.41240E-02_JPRB,0.40022E-02_JPRB,0.36721E-02_JPRB,0.59944E-02_JPRB /)  
+KA(:, 1, 1, 9) = (/ &
+ & 0.41219E-01_JPRB,0.41795E-01_JPRB,0.46848E-01_JPRB,0.50877E-01_JPRB,0.53437E-01_JPRB, &
+ & 0.54488E-01_JPRB,0.53560E-01_JPRB,0.50235E-01_JPRB,0.51545E-01_JPRB /)  
+KA(:, 2, 1, 9) = (/ &
+ & 0.42156E-01_JPRB,0.42406E-01_JPRB,0.47180E-01_JPRB,0.51006E-01_JPRB,0.53354E-01_JPRB, &
+ & 0.54221E-01_JPRB,0.53185E-01_JPRB,0.49897E-01_JPRB,0.51289E-01_JPRB /)  
+KA(:, 3, 1, 9) = (/ &
+ & 0.43082E-01_JPRB,0.43034E-01_JPRB,0.47543E-01_JPRB,0.51133E-01_JPRB,0.53289E-01_JPRB, &
+ & 0.53978E-01_JPRB,0.52866E-01_JPRB,0.49591E-01_JPRB,0.51083E-01_JPRB /)  
+KA(:, 4, 1, 9) = (/ &
+ & 0.43908E-01_JPRB,0.43606E-01_JPRB,0.47876E-01_JPRB,0.51241E-01_JPRB,0.53225E-01_JPRB, &
+ & 0.53768E-01_JPRB,0.52555E-01_JPRB,0.49365E-01_JPRB,0.51010E-01_JPRB /)  
+KA(:, 5, 1, 9) = (/ &
+ & 0.44717E-01_JPRB,0.44169E-01_JPRB,0.48160E-01_JPRB,0.51395E-01_JPRB,0.53206E-01_JPRB, &
+ & 0.53607E-01_JPRB,0.52301E-01_JPRB,0.49268E-01_JPRB,0.51108E-01_JPRB /)  
+KA(:, 1, 2, 9) = (/ &
+ & 0.38280E-01_JPRB,0.40368E-01_JPRB,0.46271E-01_JPRB,0.50387E-01_JPRB,0.53287E-01_JPRB, &
+ & 0.54294E-01_JPRB,0.53147E-01_JPRB,0.49359E-01_JPRB,0.49444E-01_JPRB /)  
+KA(:, 2, 2, 9) = (/ &
+ & 0.39278E-01_JPRB,0.41016E-01_JPRB,0.46659E-01_JPRB,0.50565E-01_JPRB,0.53249E-01_JPRB, &
+ & 0.54064E-01_JPRB,0.52823E-01_JPRB,0.49016E-01_JPRB,0.49210E-01_JPRB /)  
+KA(:, 3, 2, 9) = (/ &
+ & 0.40252E-01_JPRB,0.41678E-01_JPRB,0.47048E-01_JPRB,0.50745E-01_JPRB,0.53223E-01_JPRB, &
+ & 0.53871E-01_JPRB,0.52519E-01_JPRB,0.48730E-01_JPRB,0.49081E-01_JPRB /)  
+KA(:, 4, 2, 9) = (/ &
+ & 0.41132E-01_JPRB,0.42274E-01_JPRB,0.47387E-01_JPRB,0.50925E-01_JPRB,0.53214E-01_JPRB, &
+ & 0.53693E-01_JPRB,0.52217E-01_JPRB,0.48559E-01_JPRB,0.49102E-01_JPRB /)  
+KA(:, 5, 2, 9) = (/ &
+ & 0.41937E-01_JPRB,0.42806E-01_JPRB,0.47675E-01_JPRB,0.51115E-01_JPRB,0.53221E-01_JPRB, &
+ & 0.53535E-01_JPRB,0.52007E-01_JPRB,0.48511E-01_JPRB,0.49285E-01_JPRB /)  
+KA(:, 1, 3, 9) = (/ &
+ & 0.35016E-01_JPRB,0.38740E-01_JPRB,0.45035E-01_JPRB,0.49481E-01_JPRB,0.52517E-01_JPRB, &
+ & 0.53496E-01_JPRB,0.52191E-01_JPRB,0.48044E-01_JPRB,0.46584E-01_JPRB /)  
+KA(:, 2, 3, 9) = (/ &
+ & 0.36031E-01_JPRB,0.39393E-01_JPRB,0.45463E-01_JPRB,0.49713E-01_JPRB,0.52514E-01_JPRB, &
+ & 0.53329E-01_JPRB,0.51912E-01_JPRB,0.47725E-01_JPRB,0.46413E-01_JPRB /)  
+KA(:, 3, 3, 9) = (/ &
+ & 0.36991E-01_JPRB,0.40024E-01_JPRB,0.45863E-01_JPRB,0.49943E-01_JPRB,0.52531E-01_JPRB, &
+ & 0.53167E-01_JPRB,0.51622E-01_JPRB,0.47472E-01_JPRB,0.46354E-01_JPRB /)  
+KA(:, 4, 3, 9) = (/ &
+ & 0.37902E-01_JPRB,0.40620E-01_JPRB,0.46253E-01_JPRB,0.50181E-01_JPRB,0.52583E-01_JPRB, &
+ & 0.53007E-01_JPRB,0.51384E-01_JPRB,0.47335E-01_JPRB,0.46441E-01_JPRB /)  
+KA(:, 5, 3, 9) = (/ &
+ & 0.38707E-01_JPRB,0.41126E-01_JPRB,0.46598E-01_JPRB,0.50384E-01_JPRB,0.52633E-01_JPRB, &
+ & 0.52879E-01_JPRB,0.51240E-01_JPRB,0.47311E-01_JPRB,0.46661E-01_JPRB /)  
+KA(:, 1, 4, 9) = (/ &
+ & 0.31672E-01_JPRB,0.36966E-01_JPRB,0.43365E-01_JPRB,0.48073E-01_JPRB,0.51081E-01_JPRB, &
+ & 0.52063E-01_JPRB,0.50596E-01_JPRB,0.46210E-01_JPRB,0.43228E-01_JPRB /)  
+KA(:, 2, 4, 9) = (/ &
+ & 0.32685E-01_JPRB,0.37616E-01_JPRB,0.43827E-01_JPRB,0.48349E-01_JPRB,0.51147E-01_JPRB, &
+ & 0.51967E-01_JPRB,0.50386E-01_JPRB,0.45960E-01_JPRB,0.43137E-01_JPRB /)  
+KA(:, 3, 4, 9) = (/ &
+ & 0.33628E-01_JPRB,0.38241E-01_JPRB,0.44270E-01_JPRB,0.48639E-01_JPRB,0.51209E-01_JPRB, &
+ & 0.51848E-01_JPRB,0.50172E-01_JPRB,0.45771E-01_JPRB,0.43147E-01_JPRB /)  
+KA(:, 4, 4, 9) = (/ &
+ & 0.34503E-01_JPRB,0.38804E-01_JPRB,0.44698E-01_JPRB,0.48896E-01_JPRB,0.51278E-01_JPRB, &
+ & 0.51724E-01_JPRB,0.50016E-01_JPRB,0.45686E-01_JPRB,0.43281E-01_JPRB /)  
+KA(:, 5, 4, 9) = (/ &
+ & 0.35339E-01_JPRB,0.39319E-01_JPRB,0.45124E-01_JPRB,0.49160E-01_JPRB,0.51368E-01_JPRB, &
+ & 0.51672E-01_JPRB,0.49945E-01_JPRB,0.45702E-01_JPRB,0.43520E-01_JPRB /)  
+KA(:, 1, 5, 9) = (/ &
+ & 0.28453E-01_JPRB,0.34915E-01_JPRB,0.41400E-01_JPRB,0.46104E-01_JPRB,0.49014E-01_JPRB, &
+ & 0.49952E-01_JPRB,0.48370E-01_JPRB,0.43932E-01_JPRB,0.39569E-01_JPRB /)  
+KA(:, 2, 5, 9) = (/ &
+ & 0.29434E-01_JPRB,0.35588E-01_JPRB,0.41893E-01_JPRB,0.46437E-01_JPRB,0.49144E-01_JPRB, &
+ & 0.49919E-01_JPRB,0.48254E-01_JPRB,0.43775E-01_JPRB,0.39548E-01_JPRB /)  
+KA(:, 3, 5, 9) = (/ &
+ & 0.30340E-01_JPRB,0.36236E-01_JPRB,0.42373E-01_JPRB,0.46769E-01_JPRB,0.49255E-01_JPRB, &
+ & 0.49873E-01_JPRB,0.48133E-01_JPRB,0.43667E-01_JPRB,0.39610E-01_JPRB /)  
+KA(:, 4, 5, 9) = (/ &
+ & 0.31178E-01_JPRB,0.36810E-01_JPRB,0.42835E-01_JPRB,0.47061E-01_JPRB,0.49370E-01_JPRB, &
+ & 0.49827E-01_JPRB,0.48071E-01_JPRB,0.43623E-01_JPRB,0.39779E-01_JPRB /)  
+KA(:, 5, 5, 9) = (/ &
+ & 0.31999E-01_JPRB,0.37346E-01_JPRB,0.43284E-01_JPRB,0.47361E-01_JPRB,0.49516E-01_JPRB, &
+ & 0.49857E-01_JPRB,0.48088E-01_JPRB,0.43666E-01_JPRB,0.40037E-01_JPRB /)  
+KA(:, 1, 6, 9) = (/ &
+ & 0.25421E-01_JPRB,0.32626E-01_JPRB,0.39116E-01_JPRB,0.43609E-01_JPRB,0.46371E-01_JPRB, &
+ & 0.47186E-01_JPRB,0.45634E-01_JPRB,0.41276E-01_JPRB,0.35722E-01_JPRB /)  
+KA(:, 2, 6, 9) = (/ &
+ & 0.26347E-01_JPRB,0.33315E-01_JPRB,0.39629E-01_JPRB,0.44004E-01_JPRB,0.46570E-01_JPRB, &
+ & 0.47251E-01_JPRB,0.45602E-01_JPRB,0.41217E-01_JPRB,0.35770E-01_JPRB /)  
+KA(:, 3, 6, 9) = (/ &
+ & 0.27211E-01_JPRB,0.33965E-01_JPRB,0.40142E-01_JPRB,0.44371E-01_JPRB,0.46737E-01_JPRB, &
+ & 0.47271E-01_JPRB,0.45579E-01_JPRB,0.41184E-01_JPRB,0.35883E-01_JPRB /)  
+KA(:, 4, 6, 9) = (/ &
+ & 0.28013E-01_JPRB,0.34546E-01_JPRB,0.40641E-01_JPRB,0.44704E-01_JPRB,0.46903E-01_JPRB, &
+ & 0.47305E-01_JPRB,0.45608E-01_JPRB,0.41201E-01_JPRB,0.36071E-01_JPRB /)  
+KA(:, 5, 6, 9) = (/ &
+ & 0.28777E-01_JPRB,0.35080E-01_JPRB,0.41083E-01_JPRB,0.45018E-01_JPRB,0.47083E-01_JPRB, &
+ & 0.47404E-01_JPRB,0.45685E-01_JPRB,0.41273E-01_JPRB,0.36328E-01_JPRB /)  
+KA(:, 1, 7, 9) = (/ &
+ & 0.22628E-01_JPRB,0.30290E-01_JPRB,0.36520E-01_JPRB,0.40736E-01_JPRB,0.43195E-01_JPRB, &
+ & 0.43894E-01_JPRB,0.42478E-01_JPRB,0.38357E-01_JPRB,0.31858E-01_JPRB /)  
+KA(:, 2, 7, 9) = (/ &
+ & 0.23496E-01_JPRB,0.30981E-01_JPRB,0.37071E-01_JPRB,0.41159E-01_JPRB,0.43459E-01_JPRB, &
+ & 0.44039E-01_JPRB,0.42534E-01_JPRB,0.38366E-01_JPRB,0.31954E-01_JPRB /)  
+KA(:, 3, 7, 9) = (/ &
+ & 0.24311E-01_JPRB,0.31616E-01_JPRB,0.37614E-01_JPRB,0.41552E-01_JPRB,0.43690E-01_JPRB, &
+ & 0.44135E-01_JPRB,0.42598E-01_JPRB,0.38398E-01_JPRB,0.32112E-01_JPRB /)  
+KA(:, 4, 7, 9) = (/ &
+ & 0.25081E-01_JPRB,0.32194E-01_JPRB,0.38124E-01_JPRB,0.41906E-01_JPRB,0.43917E-01_JPRB, &
+ & 0.44249E-01_JPRB,0.42700E-01_JPRB,0.38476E-01_JPRB,0.32312E-01_JPRB /)  
+KA(:, 5, 7, 9) = (/ &
+ & 0.25796E-01_JPRB,0.32737E-01_JPRB,0.38583E-01_JPRB,0.42251E-01_JPRB,0.44147E-01_JPRB, &
+ & 0.44425E-01_JPRB,0.42840E-01_JPRB,0.38587E-01_JPRB,0.32545E-01_JPRB /)  
+KA(:, 1, 8, 9) = (/ &
+ & 0.20122E-01_JPRB,0.27995E-01_JPRB,0.33719E-01_JPRB,0.37485E-01_JPRB,0.39621E-01_JPRB, &
+ & 0.40226E-01_JPRB,0.38971E-01_JPRB,0.35214E-01_JPRB,0.28110E-01_JPRB /)  
+KA(:, 2, 8, 9) = (/ &
+ & 0.20930E-01_JPRB,0.28671E-01_JPRB,0.34304E-01_JPRB,0.37966E-01_JPRB,0.39957E-01_JPRB, &
+ & 0.40447E-01_JPRB,0.39124E-01_JPRB,0.35304E-01_JPRB,0.28246E-01_JPRB /)  
+KA(:, 3, 8, 9) = (/ &
+ & 0.21692E-01_JPRB,0.29291E-01_JPRB,0.34870E-01_JPRB,0.38392E-01_JPRB,0.40254E-01_JPRB, &
+ & 0.40624E-01_JPRB,0.39266E-01_JPRB,0.35403E-01_JPRB,0.28424E-01_JPRB /)  
+KA(:, 4, 8, 9) = (/ &
+ & 0.22396E-01_JPRB,0.29880E-01_JPRB,0.35388E-01_JPRB,0.38779E-01_JPRB,0.40528E-01_JPRB, &
+ & 0.40815E-01_JPRB,0.39436E-01_JPRB,0.35538E-01_JPRB,0.28597E-01_JPRB /)  
+KA(:, 5, 8, 9) = (/ &
+ & 0.23064E-01_JPRB,0.30402E-01_JPRB,0.35848E-01_JPRB,0.39151E-01_JPRB,0.40824E-01_JPRB, &
+ & 0.41057E-01_JPRB,0.39639E-01_JPRB,0.35669E-01_JPRB,0.28823E-01_JPRB /)  
+KA(:, 1, 9, 9) = (/ &
+ & 0.17909E-01_JPRB,0.25709E-01_JPRB,0.30840E-01_JPRB,0.34036E-01_JPRB,0.35851E-01_JPRB, &
+ & 0.36360E-01_JPRB,0.35282E-01_JPRB,0.31947E-01_JPRB,0.24003E-01_JPRB /)  
+KA(:, 2, 9, 9) = (/ &
+ & 0.18652E-01_JPRB,0.26369E-01_JPRB,0.31431E-01_JPRB,0.34542E-01_JPRB,0.36244E-01_JPRB, &
+ & 0.36648E-01_JPRB,0.35513E-01_JPRB,0.32109E-01_JPRB,0.24164E-01_JPRB /)  
+KA(:, 3, 9, 9) = (/ &
+ & 0.19344E-01_JPRB,0.26986E-01_JPRB,0.31997E-01_JPRB,0.35005E-01_JPRB,0.36599E-01_JPRB, &
+ & 0.36904E-01_JPRB,0.35718E-01_JPRB,0.32277E-01_JPRB,0.24318E-01_JPRB /)  
+KA(:, 4, 9, 9) = (/ &
+ & 0.19991E-01_JPRB,0.27565E-01_JPRB,0.32506E-01_JPRB,0.35425E-01_JPRB,0.36934E-01_JPRB, &
+ & 0.37163E-01_JPRB,0.35949E-01_JPRB,0.32440E-01_JPRB,0.24470E-01_JPRB /)  
+KA(:, 5, 9, 9) = (/ &
+ & 0.20615E-01_JPRB,0.28069E-01_JPRB,0.32961E-01_JPRB,0.35817E-01_JPRB,0.37281E-01_JPRB, &
+ & 0.37462E-01_JPRB,0.36191E-01_JPRB,0.32591E-01_JPRB,0.24688E-01_JPRB /)  
+KA(:, 1,10, 9) = (/ &
+ & 0.16038E-01_JPRB,0.23520E-01_JPRB,0.27944E-01_JPRB,0.30612E-01_JPRB,0.32108E-01_JPRB, &
+ & 0.32531E-01_JPRB,0.31594E-01_JPRB,0.28710E-01_JPRB,0.19040E-01_JPRB /)  
+KA(:, 2,10, 9) = (/ &
+ & 0.16702E-01_JPRB,0.24155E-01_JPRB,0.28537E-01_JPRB,0.31140E-01_JPRB,0.32544E-01_JPRB, &
+ & 0.32858E-01_JPRB,0.31863E-01_JPRB,0.28938E-01_JPRB,0.19154E-01_JPRB /)  
+KA(:, 3,10, 9) = (/ &
+ & 0.17329E-01_JPRB,0.24747E-01_JPRB,0.29094E-01_JPRB,0.31618E-01_JPRB,0.32949E-01_JPRB, &
+ & 0.33160E-01_JPRB,0.32119E-01_JPRB,0.29151E-01_JPRB,0.19214E-01_JPRB /)  
+KA(:, 4,10, 9) = (/ &
+ & 0.17922E-01_JPRB,0.25302E-01_JPRB,0.29595E-01_JPRB,0.32058E-01_JPRB,0.33330E-01_JPRB, &
+ & 0.33472E-01_JPRB,0.32385E-01_JPRB,0.29320E-01_JPRB,0.19269E-01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART6',1,ZHOOK_HANDLE)
+END SUBROUTINE PART6
+
+
+SUBROUTINE PART7
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART7',0,ZHOOK_HANDLE)
+
+
+KA(:, 5,10, 9) = (/ &
+ & 0.18489E-01_JPRB,0.25799E-01_JPRB,0.30045E-01_JPRB,0.32466E-01_JPRB,0.33700E-01_JPRB, &
+ & 0.33812E-01_JPRB,0.32629E-01_JPRB,0.29481E-01_JPRB,0.19405E-01_JPRB /)  
+KA(:, 1,11, 9) = (/ &
+ & 0.14687E-01_JPRB,0.21702E-01_JPRB,0.25384E-01_JPRB,0.27570E-01_JPRB,0.28760E-01_JPRB, &
+ & 0.29017E-01_JPRB,0.28178E-01_JPRB,0.25716E-01_JPRB,0.20195E-01_JPRB /)  
+KA(:, 2,11, 9) = (/ &
+ & 0.15274E-01_JPRB,0.22296E-01_JPRB,0.25944E-01_JPRB,0.28087E-01_JPRB,0.29202E-01_JPRB, &
+ & 0.29352E-01_JPRB,0.28471E-01_JPRB,0.25960E-01_JPRB,0.20265E-01_JPRB /)  
+KA(:, 3,11, 9) = (/ &
+ & 0.15835E-01_JPRB,0.22836E-01_JPRB,0.26465E-01_JPRB,0.28550E-01_JPRB,0.29611E-01_JPRB, &
+ & 0.29694E-01_JPRB,0.28754E-01_JPRB,0.26152E-01_JPRB,0.20296E-01_JPRB /)  
+KA(:, 4,11, 9) = (/ &
+ & 0.16357E-01_JPRB,0.23338E-01_JPRB,0.26927E-01_JPRB,0.28982E-01_JPRB,0.29998E-01_JPRB, &
+ & 0.30045E-01_JPRB,0.29008E-01_JPRB,0.26312E-01_JPRB,0.20131E-01_JPRB /)  
+KA(:, 5,11, 9) = (/ &
+ & 0.16879E-01_JPRB,0.23791E-01_JPRB,0.27359E-01_JPRB,0.29394E-01_JPRB,0.30387E-01_JPRB, &
+ & 0.30372E-01_JPRB,0.29268E-01_JPRB,0.26507E-01_JPRB,0.20180E-01_JPRB /)  
+KA(:, 1,12, 9) = (/ &
+ & 0.13435E-01_JPRB,0.19917E-01_JPRB,0.22947E-01_JPRB,0.24741E-01_JPRB,0.25656E-01_JPRB, &
+ & 0.25762E-01_JPRB,0.25010E-01_JPRB,0.22879E-01_JPRB,0.21935E-01_JPRB /)  
+KA(:, 2,12, 9) = (/ &
+ & 0.13973E-01_JPRB,0.20460E-01_JPRB,0.23475E-01_JPRB,0.25221E-01_JPRB,0.26084E-01_JPRB, &
+ & 0.26126E-01_JPRB,0.25297E-01_JPRB,0.23091E-01_JPRB,0.22096E-01_JPRB /)  
+KA(:, 3,12, 9) = (/ &
+ & 0.14481E-01_JPRB,0.20956E-01_JPRB,0.23951E-01_JPRB,0.25665E-01_JPRB,0.26486E-01_JPRB, &
+ & 0.26478E-01_JPRB,0.25558E-01_JPRB,0.23263E-01_JPRB,0.22257E-01_JPRB /)  
+KA(:, 4,12, 9) = (/ &
+ & 0.14966E-01_JPRB,0.21408E-01_JPRB,0.24388E-01_JPRB,0.26079E-01_JPRB,0.26872E-01_JPRB, &
+ & 0.26802E-01_JPRB,0.25814E-01_JPRB,0.23444E-01_JPRB,0.22244E-01_JPRB /)  
+KA(:, 5,12, 9) = (/ &
+ & 0.15448E-01_JPRB,0.21834E-01_JPRB,0.24813E-01_JPRB,0.26492E-01_JPRB,0.27230E-01_JPRB, &
+ & 0.27128E-01_JPRB,0.26103E-01_JPRB,0.23676E-01_JPRB,0.22318E-01_JPRB /)  
+KA(:, 1,13, 9) = (/ &
+ & 0.12253E-01_JPRB,0.18169E-01_JPRB,0.20712E-01_JPRB,0.22143E-01_JPRB,0.22829E-01_JPRB, &
+ & 0.22840E-01_JPRB,0.22092E-01_JPRB,0.20210E-01_JPRB,0.22350E-01_JPRB /)  
+KA(:, 2,13, 9) = (/ &
+ & 0.12752E-01_JPRB,0.18675E-01_JPRB,0.21188E-01_JPRB,0.22590E-01_JPRB,0.23242E-01_JPRB, &
+ & 0.23184E-01_JPRB,0.22356E-01_JPRB,0.20395E-01_JPRB,0.22569E-01_JPRB /)  
+KA(:, 3,13, 9) = (/ &
+ & 0.13220E-01_JPRB,0.19134E-01_JPRB,0.21627E-01_JPRB,0.23007E-01_JPRB,0.23621E-01_JPRB, &
+ & 0.23502E-01_JPRB,0.22612E-01_JPRB,0.20571E-01_JPRB,0.22750E-01_JPRB /)  
+KA(:, 4,13, 9) = (/ &
+ & 0.13675E-01_JPRB,0.19566E-01_JPRB,0.22044E-01_JPRB,0.23405E-01_JPRB,0.23969E-01_JPRB, &
+ & 0.23813E-01_JPRB,0.22875E-01_JPRB,0.20780E-01_JPRB,0.22726E-01_JPRB /)  
+KA(:, 5,13, 9) = (/ &
+ & 0.14122E-01_JPRB,0.19976E-01_JPRB,0.22454E-01_JPRB,0.23786E-01_JPRB,0.24318E-01_JPRB, &
+ & 0.24140E-01_JPRB,0.23183E-01_JPRB,0.21041E-01_JPRB,0.22784E-01_JPRB /)  
+KA(:, 1, 1,10) = (/ &
+ & 0.14776E+00_JPRB,0.13250E+00_JPRB,0.11877E+00_JPRB,0.11907E+00_JPRB,0.11538E+00_JPRB, &
+ & 0.11234E+00_JPRB,0.10926E+00_JPRB,0.11039E+00_JPRB,0.12102E+00_JPRB /)  
+KA(:, 2, 1,10) = (/ &
+ & 0.14758E+00_JPRB,0.13180E+00_JPRB,0.11760E+00_JPRB,0.11720E+00_JPRB,0.11379E+00_JPRB, &
+ & 0.11206E+00_JPRB,0.10856E+00_JPRB,0.11029E+00_JPRB,0.12093E+00_JPRB /)  
+KA(:, 3, 1,10) = (/ &
+ & 0.14691E+00_JPRB,0.13078E+00_JPRB,0.11629E+00_JPRB,0.11563E+00_JPRB,0.11248E+00_JPRB, &
+ & 0.11149E+00_JPRB,0.10785E+00_JPRB,0.11040E+00_JPRB,0.12104E+00_JPRB /)  
+KA(:, 4, 1,10) = (/ &
+ & 0.14609E+00_JPRB,0.12985E+00_JPRB,0.11503E+00_JPRB,0.11426E+00_JPRB,0.11150E+00_JPRB, &
+ & 0.11061E+00_JPRB,0.10739E+00_JPRB,0.11031E+00_JPRB,0.12092E+00_JPRB /)  
+KA(:, 5, 1,10) = (/ &
+ & 0.14529E+00_JPRB,0.12911E+00_JPRB,0.11448E+00_JPRB,0.11310E+00_JPRB,0.11058E+00_JPRB, &
+ & 0.10959E+00_JPRB,0.10721E+00_JPRB,0.11007E+00_JPRB,0.12050E+00_JPRB /)  
+KA(:, 1, 2,10) = (/ &
+ & 0.14616E+00_JPRB,0.13131E+00_JPRB,0.12350E+00_JPRB,0.12510E+00_JPRB,0.11934E+00_JPRB, &
+ & 0.11762E+00_JPRB,0.11417E+00_JPRB,0.11460E+00_JPRB,0.12626E+00_JPRB /)  
+KA(:, 2, 2,10) = (/ &
+ & 0.14607E+00_JPRB,0.13063E+00_JPRB,0.12202E+00_JPRB,0.12312E+00_JPRB,0.11789E+00_JPRB, &
+ & 0.11742E+00_JPRB,0.11363E+00_JPRB,0.11470E+00_JPRB,0.12636E+00_JPRB /)  
+KA(:, 3, 2,10) = (/ &
+ & 0.14577E+00_JPRB,0.12991E+00_JPRB,0.12074E+00_JPRB,0.12132E+00_JPRB,0.11671E+00_JPRB, &
+ & 0.11676E+00_JPRB,0.11334E+00_JPRB,0.11448E+00_JPRB,0.12602E+00_JPRB /)  
+KA(:, 4, 2,10) = (/ &
+ & 0.14549E+00_JPRB,0.12948E+00_JPRB,0.11982E+00_JPRB,0.11971E+00_JPRB,0.11561E+00_JPRB, &
+ & 0.11583E+00_JPRB,0.11311E+00_JPRB,0.11380E+00_JPRB,0.12515E+00_JPRB /)  
+KA(:, 5, 2,10) = (/ &
+ & 0.14518E+00_JPRB,0.12921E+00_JPRB,0.11930E+00_JPRB,0.11856E+00_JPRB,0.11453E+00_JPRB, &
+ & 0.11499E+00_JPRB,0.11278E+00_JPRB,0.11303E+00_JPRB,0.12425E+00_JPRB /)  
+KA(:, 1, 3,10) = (/ &
+ & 0.14318E+00_JPRB,0.12893E+00_JPRB,0.12918E+00_JPRB,0.12942E+00_JPRB,0.12491E+00_JPRB, &
+ & 0.12238E+00_JPRB,0.11842E+00_JPRB,0.11706E+00_JPRB,0.12892E+00_JPRB /)  
+KA(:, 2, 3,10) = (/ &
+ & 0.14362E+00_JPRB,0.12877E+00_JPRB,0.12794E+00_JPRB,0.12738E+00_JPRB,0.12367E+00_JPRB, &
+ & 0.12214E+00_JPRB,0.11818E+00_JPRB,0.11730E+00_JPRB,0.12892E+00_JPRB /)  
+KA(:, 3, 3,10) = (/ &
+ & 0.14392E+00_JPRB,0.12859E+00_JPRB,0.12673E+00_JPRB,0.12555E+00_JPRB,0.12238E+00_JPRB, &
+ & 0.12154E+00_JPRB,0.11804E+00_JPRB,0.11693E+00_JPRB,0.12825E+00_JPRB /)  
+KA(:, 4, 3,10) = (/ &
+ & 0.14418E+00_JPRB,0.12858E+00_JPRB,0.12588E+00_JPRB,0.12406E+00_JPRB,0.12111E+00_JPRB, &
+ & 0.12100E+00_JPRB,0.11768E+00_JPRB,0.11605E+00_JPRB,0.12723E+00_JPRB /)  
+KA(:, 5, 3,10) = (/ &
+ & 0.14433E+00_JPRB,0.12868E+00_JPRB,0.12520E+00_JPRB,0.12307E+00_JPRB,0.11981E+00_JPRB, &
+ & 0.12050E+00_JPRB,0.11702E+00_JPRB,0.11519E+00_JPRB,0.12642E+00_JPRB /)  
+KA(:, 1, 4,10) = (/ &
+ & 0.13900E+00_JPRB,0.12627E+00_JPRB,0.13262E+00_JPRB,0.13246E+00_JPRB,0.13018E+00_JPRB, &
+ & 0.12656E+00_JPRB,0.12207E+00_JPRB,0.11856E+00_JPRB,0.12927E+00_JPRB /)  
+KA(:, 2, 4,10) = (/ &
+ & 0.13981E+00_JPRB,0.12631E+00_JPRB,0.13168E+00_JPRB,0.13063E+00_JPRB,0.12928E+00_JPRB, &
+ & 0.12634E+00_JPRB,0.12180E+00_JPRB,0.11842E+00_JPRB,0.12888E+00_JPRB /)  
+KA(:, 3, 4,10) = (/ &
+ & 0.14055E+00_JPRB,0.12635E+00_JPRB,0.13064E+00_JPRB,0.12886E+00_JPRB,0.12826E+00_JPRB, &
+ & 0.12591E+00_JPRB,0.12147E+00_JPRB,0.11781E+00_JPRB,0.12798E+00_JPRB /)  
+KA(:, 4, 4,10) = (/ &
+ & 0.14115E+00_JPRB,0.12659E+00_JPRB,0.12979E+00_JPRB,0.12765E+00_JPRB,0.12712E+00_JPRB, &
+ & 0.12539E+00_JPRB,0.12094E+00_JPRB,0.11686E+00_JPRB,0.12709E+00_JPRB /)  
+KA(:, 5, 4,10) = (/ &
+ & 0.14205E+00_JPRB,0.12716E+00_JPRB,0.12897E+00_JPRB,0.12678E+00_JPRB,0.12607E+00_JPRB, &
+ & 0.12463E+00_JPRB,0.12022E+00_JPRB,0.11611E+00_JPRB,0.12648E+00_JPRB /)  
+KA(:, 1, 5,10) = (/ &
+ & 0.13267E+00_JPRB,0.12451E+00_JPRB,0.13264E+00_JPRB,0.13467E+00_JPRB,0.13410E+00_JPRB, &
+ & 0.12976E+00_JPRB,0.12532E+00_JPRB,0.11842E+00_JPRB,0.12663E+00_JPRB /)  
+KA(:, 2, 5,10) = (/ &
+ & 0.13391E+00_JPRB,0.12448E+00_JPRB,0.13222E+00_JPRB,0.13349E+00_JPRB,0.13365E+00_JPRB, &
+ & 0.12967E+00_JPRB,0.12478E+00_JPRB,0.11793E+00_JPRB,0.12610E+00_JPRB /)  
+KA(:, 3, 5,10) = (/ &
+ & 0.13513E+00_JPRB,0.12441E+00_JPRB,0.13150E+00_JPRB,0.13226E+00_JPRB,0.13285E+00_JPRB, &
+ & 0.12935E+00_JPRB,0.12414E+00_JPRB,0.11714E+00_JPRB,0.12535E+00_JPRB /)  
+KA(:, 4, 5,10) = (/ &
+ & 0.13635E+00_JPRB,0.12468E+00_JPRB,0.13071E+00_JPRB,0.13132E+00_JPRB,0.13192E+00_JPRB, &
+ & 0.12883E+00_JPRB,0.12325E+00_JPRB,0.11628E+00_JPRB,0.12465E+00_JPRB /)  
+KA(:, 5, 5,10) = (/ &
+ & 0.13765E+00_JPRB,0.12523E+00_JPRB,0.12989E+00_JPRB,0.13067E+00_JPRB,0.13104E+00_JPRB, &
+ & 0.12778E+00_JPRB,0.12230E+00_JPRB,0.11574E+00_JPRB,0.12447E+00_JPRB /)  
+KA(:, 1, 6,10) = (/ &
+ & 0.12480E+00_JPRB,0.12304E+00_JPRB,0.13086E+00_JPRB,0.13535E+00_JPRB,0.13580E+00_JPRB, &
+ & 0.13244E+00_JPRB,0.12684E+00_JPRB,0.11687E+00_JPRB,0.12150E+00_JPRB /)  
+KA(:, 2, 6,10) = (/ &
+ & 0.12631E+00_JPRB,0.12320E+00_JPRB,0.13089E+00_JPRB,0.13488E+00_JPRB,0.13591E+00_JPRB, &
+ & 0.13240E+00_JPRB,0.12644E+00_JPRB,0.11610E+00_JPRB,0.12096E+00_JPRB /)  
+KA(:, 3, 6,10) = (/ &
+ & 0.12783E+00_JPRB,0.12334E+00_JPRB,0.13031E+00_JPRB,0.13415E+00_JPRB,0.13555E+00_JPRB, &
+ & 0.13212E+00_JPRB,0.12571E+00_JPRB,0.11517E+00_JPRB,0.12033E+00_JPRB /)  
+KA(:, 4, 6,10) = (/ &
+ & 0.12946E+00_JPRB,0.12375E+00_JPRB,0.12962E+00_JPRB,0.13360E+00_JPRB,0.13480E+00_JPRB, &
+ & 0.13147E+00_JPRB,0.12458E+00_JPRB,0.11440E+00_JPRB,0.12012E+00_JPRB /)  
+KA(:, 5, 6,10) = (/ &
+ & 0.13098E+00_JPRB,0.12424E+00_JPRB,0.12926E+00_JPRB,0.13328E+00_JPRB,0.13390E+00_JPRB, &
+ & 0.13035E+00_JPRB,0.12352E+00_JPRB,0.11410E+00_JPRB,0.12034E+00_JPRB /)  
+KA(:, 1, 7,10) = (/ &
+ & 0.11587E+00_JPRB,0.11977E+00_JPRB,0.12827E+00_JPRB,0.13413E+00_JPRB,0.13637E+00_JPRB, &
+ & 0.13338E+00_JPRB,0.12607E+00_JPRB,0.11369E+00_JPRB,0.11422E+00_JPRB /)  
+KA(:, 2, 7,10) = (/ &
+ & 0.11755E+00_JPRB,0.12008E+00_JPRB,0.12851E+00_JPRB,0.13433E+00_JPRB,0.13653E+00_JPRB, &
+ & 0.13350E+00_JPRB,0.12579E+00_JPRB,0.11303E+00_JPRB,0.11384E+00_JPRB /)  
+KA(:, 3, 7,10) = (/ &
+ & 0.11925E+00_JPRB,0.12045E+00_JPRB,0.12827E+00_JPRB,0.13401E+00_JPRB,0.13627E+00_JPRB, &
+ & 0.13335E+00_JPRB,0.12531E+00_JPRB,0.11227E+00_JPRB,0.11342E+00_JPRB /)  
+KA(:, 4, 7,10) = (/ &
+ & 0.12111E+00_JPRB,0.12107E+00_JPRB,0.12798E+00_JPRB,0.13385E+00_JPRB,0.13564E+00_JPRB, &
+ & 0.13268E+00_JPRB,0.12424E+00_JPRB,0.11167E+00_JPRB,0.11355E+00_JPRB /)  
+KA(:, 5, 7,10) = (/ &
+ & 0.12285E+00_JPRB,0.12168E+00_JPRB,0.12798E+00_JPRB,0.13376E+00_JPRB,0.13482E+00_JPRB, &
+ & 0.13151E+00_JPRB,0.12334E+00_JPRB,0.11149E+00_JPRB,0.11415E+00_JPRB /)  
+KA(:, 1, 8,10) = (/ &
+ & 0.10591E+00_JPRB,0.11393E+00_JPRB,0.12456E+00_JPRB,0.13177E+00_JPRB,0.13532E+00_JPRB, &
+ & 0.13189E+00_JPRB,0.12388E+00_JPRB,0.10965E+00_JPRB,0.10563E+00_JPRB /)  
+KA(:, 2, 8,10) = (/ &
+ & 0.10784E+00_JPRB,0.11446E+00_JPRB,0.12497E+00_JPRB,0.13191E+00_JPRB,0.13527E+00_JPRB, &
+ & 0.13206E+00_JPRB,0.12372E+00_JPRB,0.10901E+00_JPRB,0.10541E+00_JPRB /)  
+KA(:, 3, 8,10) = (/ &
+ & 0.10982E+00_JPRB,0.11499E+00_JPRB,0.12496E+00_JPRB,0.13190E+00_JPRB,0.13491E+00_JPRB, &
+ & 0.13198E+00_JPRB,0.12329E+00_JPRB,0.10836E+00_JPRB,0.10528E+00_JPRB /)  
+KA(:, 4, 8,10) = (/ &
+ & 0.11183E+00_JPRB,0.11569E+00_JPRB,0.12499E+00_JPRB,0.13184E+00_JPRB,0.13435E+00_JPRB, &
+ & 0.13149E+00_JPRB,0.12252E+00_JPRB,0.10787E+00_JPRB,0.10590E+00_JPRB /)  
+KA(:, 5, 8,10) = (/ &
+ & 0.11351E+00_JPRB,0.11638E+00_JPRB,0.12535E+00_JPRB,0.13176E+00_JPRB,0.13360E+00_JPRB, &
+ & 0.13054E+00_JPRB,0.12191E+00_JPRB,0.10801E+00_JPRB,0.10661E+00_JPRB /)  
+KA(:, 1, 9,10) = (/ &
+ & 0.95227E-01_JPRB,0.10714E+00_JPRB,0.11944E+00_JPRB,0.12826E+00_JPRB,0.13131E+00_JPRB, &
+ & 0.12801E+00_JPRB,0.11973E+00_JPRB,0.10506E+00_JPRB,0.96127E-01_JPRB /)  
+KA(:, 2, 9,10) = (/ &
+ & 0.97380E-01_JPRB,0.10792E+00_JPRB,0.12010E+00_JPRB,0.12848E+00_JPRB,0.13131E+00_JPRB, &
+ & 0.12823E+00_JPRB,0.11988E+00_JPRB,0.10446E+00_JPRB,0.96013E-01_JPRB /)  
+KA(:, 3, 9,10) = (/ &
+ & 0.99589E-01_JPRB,0.10861E+00_JPRB,0.12043E+00_JPRB,0.12826E+00_JPRB,0.13099E+00_JPRB, &
+ & 0.12821E+00_JPRB,0.11964E+00_JPRB,0.10385E+00_JPRB,0.96337E-01_JPRB /)  
+KA(:, 4, 9,10) = (/ &
+ & 0.10172E+00_JPRB,0.10937E+00_JPRB,0.12073E+00_JPRB,0.12822E+00_JPRB,0.13048E+00_JPRB, &
+ & 0.12786E+00_JPRB,0.11915E+00_JPRB,0.10369E+00_JPRB,0.97324E-01_JPRB /)  
+KA(:, 5, 9,10) = (/ &
+ & 0.10340E+00_JPRB,0.11015E+00_JPRB,0.12136E+00_JPRB,0.12832E+00_JPRB,0.12998E+00_JPRB, &
+ & 0.12724E+00_JPRB,0.11892E+00_JPRB,0.10410E+00_JPRB,0.97908E-01_JPRB /)  
+KA(:, 1,10,10) = (/ &
+ & 0.84549E-01_JPRB,0.10005E+00_JPRB,0.11370E+00_JPRB,0.12280E+00_JPRB,0.12503E+00_JPRB, &
+ & 0.12157E+00_JPRB,0.11395E+00_JPRB,0.99558E-01_JPRB,0.78463E-01_JPRB /)  
+KA(:, 2,10,10) = (/ &
+ & 0.86895E-01_JPRB,0.10114E+00_JPRB,0.11438E+00_JPRB,0.12270E+00_JPRB,0.12494E+00_JPRB, &
+ & 0.12211E+00_JPRB,0.11447E+00_JPRB,0.98932E-01_JPRB,0.78293E-01_JPRB /)  
+KA(:, 3,10,10) = (/ &
+ & 0.89280E-01_JPRB,0.10200E+00_JPRB,0.11501E+00_JPRB,0.12255E+00_JPRB,0.12466E+00_JPRB, &
+ & 0.12232E+00_JPRB,0.11449E+00_JPRB,0.98490E-01_JPRB,0.78963E-01_JPRB /)  
+KA(:, 4,10,10) = (/ &
+ & 0.91373E-01_JPRB,0.10297E+00_JPRB,0.11555E+00_JPRB,0.12264E+00_JPRB,0.12433E+00_JPRB, &
+ & 0.12211E+00_JPRB,0.11429E+00_JPRB,0.98808E-01_JPRB,0.79894E-01_JPRB /)  
+KA(:, 5,10,10) = (/ &
+ & 0.93116E-01_JPRB,0.10381E+00_JPRB,0.11616E+00_JPRB,0.12299E+00_JPRB,0.12420E+00_JPRB, &
+ & 0.12176E+00_JPRB,0.11463E+00_JPRB,0.99400E-01_JPRB,0.79228E-01_JPRB /)  
+KA(:, 1,11,10) = (/ &
+ & 0.75544E-01_JPRB,0.93054E-01_JPRB,0.10724E+00_JPRB,0.11489E+00_JPRB,0.11666E+00_JPRB, &
+ & 0.11411E+00_JPRB,0.10739E+00_JPRB,0.92708E-01_JPRB,0.54552E-01_JPRB /)  
+KA(:, 2,11,10) = (/ &
+ & 0.77908E-01_JPRB,0.94287E-01_JPRB,0.10808E+00_JPRB,0.11471E+00_JPRB,0.11661E+00_JPRB, &
+ & 0.11478E+00_JPRB,0.10772E+00_JPRB,0.92504E-01_JPRB,0.54848E-01_JPRB /)  
+KA(:, 3,11,10) = (/ &
+ & 0.80077E-01_JPRB,0.95473E-01_JPRB,0.10868E+00_JPRB,0.11491E+00_JPRB,0.11655E+00_JPRB, &
+ & 0.11482E+00_JPRB,0.10782E+00_JPRB,0.93001E-01_JPRB,0.55769E-01_JPRB /)  
+KA(:, 4,11,10) = (/ &
+ & 0.81960E-01_JPRB,0.96566E-01_JPRB,0.10943E+00_JPRB,0.11546E+00_JPRB,0.11672E+00_JPRB, &
+ & 0.11473E+00_JPRB,0.10831E+00_JPRB,0.93879E-01_JPRB,0.57926E-01_JPRB /)  
+KA(:, 5,11,10) = (/ &
+ & 0.83450E-01_JPRB,0.97453E-01_JPRB,0.11008E+00_JPRB,0.11599E+00_JPRB,0.11716E+00_JPRB, &
+ & 0.11515E+00_JPRB,0.10911E+00_JPRB,0.94288E-01_JPRB,0.57746E-01_JPRB /)  
+KA(:, 1,12,10) = (/ &
+ & 0.67513E-01_JPRB,0.86189E-01_JPRB,0.99369E-01_JPRB,0.10520E+00_JPRB,0.10724E+00_JPRB, &
+ & 0.10586E+00_JPRB,0.99242E-01_JPRB,0.85556E-01_JPRB,0.53156E-01_JPRB /)  
+KA(:, 2,12,10) = (/ &
+ & 0.69613E-01_JPRB,0.87484E-01_JPRB,0.10007E+00_JPRB,0.10560E+00_JPRB,0.10749E+00_JPRB, &
+ & 0.10614E+00_JPRB,0.99761E-01_JPRB,0.86270E-01_JPRB,0.51781E-01_JPRB /)  
+KA(:, 3,12,10) = (/ &
+ & 0.71469E-01_JPRB,0.88722E-01_JPRB,0.10094E+00_JPRB,0.10629E+00_JPRB,0.10784E+00_JPRB, &
+ & 0.10630E+00_JPRB,0.10046E+00_JPRB,0.87349E-01_JPRB,0.51450E-01_JPRB /)  
+KA(:, 4,12,10) = (/ &
+ & 0.73024E-01_JPRB,0.89773E-01_JPRB,0.10183E+00_JPRB,0.10713E+00_JPRB,0.10860E+00_JPRB, &
+ & 0.10686E+00_JPRB,0.10138E+00_JPRB,0.88130E-01_JPRB,0.52601E-01_JPRB /)  
+KA(:, 5,12,10) = (/ &
+ & 0.74303E-01_JPRB,0.90696E-01_JPRB,0.10259E+00_JPRB,0.10797E+00_JPRB,0.10971E+00_JPRB, &
+ & 0.10792E+00_JPRB,0.10184E+00_JPRB,0.88445E-01_JPRB,0.51152E-01_JPRB /)  
+KA(:, 1,13,10) = (/ &
+ & 0.60529E-01_JPRB,0.79607E-01_JPRB,0.90318E-01_JPRB,0.95428E-01_JPRB,0.97408E-01_JPRB, &
+ & 0.96227E-01_JPRB,0.90699E-01_JPRB,0.78779E-01_JPRB,0.52832E-01_JPRB /)  
+KA(:, 2,13,10) = (/ &
+ & 0.62276E-01_JPRB,0.80870E-01_JPRB,0.91247E-01_JPRB,0.96259E-01_JPRB,0.97934E-01_JPRB, &
+ & 0.96714E-01_JPRB,0.91680E-01_JPRB,0.79941E-01_JPRB,0.52303E-01_JPRB /)  
+KA(:, 3,13,10) = (/ &
+ & 0.63790E-01_JPRB,0.81933E-01_JPRB,0.92274E-01_JPRB,0.97270E-01_JPRB,0.98880E-01_JPRB, &
+ & 0.97553E-01_JPRB,0.92636E-01_JPRB,0.80918E-01_JPRB,0.51576E-01_JPRB /)  
+KA(:, 4,13,10) = (/ &
+ & 0.65028E-01_JPRB,0.82921E-01_JPRB,0.93287E-01_JPRB,0.98387E-01_JPRB,0.10023E+00_JPRB, &
+ & 0.98785E-01_JPRB,0.93367E-01_JPRB,0.81491E-01_JPRB,0.53387E-01_JPRB /)  
+KA(:, 5,13,10) = (/ &
+ & 0.66150E-01_JPRB,0.83739E-01_JPRB,0.94354E-01_JPRB,0.99696E-01_JPRB,0.10169E+00_JPRB, &
+ & 0.99901E-01_JPRB,0.93863E-01_JPRB,0.81907E-01_JPRB,0.52837E-01_JPRB /)  
+KA(:, 1, 1,11) = (/ &
+ & 0.20407E+00_JPRB,0.18071E+00_JPRB,0.16029E+00_JPRB,0.15138E+00_JPRB,0.14997E+00_JPRB, &
+ & 0.13984E+00_JPRB,0.13275E+00_JPRB,0.14129E+00_JPRB,0.15399E+00_JPRB /)  
+KA(:, 2, 1,11) = (/ &
+ & 0.20135E+00_JPRB,0.17935E+00_JPRB,0.15932E+00_JPRB,0.15017E+00_JPRB,0.14962E+00_JPRB, &
+ & 0.13862E+00_JPRB,0.13266E+00_JPRB,0.14117E+00_JPRB,0.15393E+00_JPRB /)  
+KA(:, 3, 1,11) = (/ &
+ & 0.19936E+00_JPRB,0.17801E+00_JPRB,0.15787E+00_JPRB,0.14825E+00_JPRB,0.14805E+00_JPRB, &
+ & 0.13791E+00_JPRB,0.13257E+00_JPRB,0.14065E+00_JPRB,0.15357E+00_JPRB /)  
+KA(:, 4, 1,11) = (/ &
+ & 0.19744E+00_JPRB,0.17636E+00_JPRB,0.15587E+00_JPRB,0.14600E+00_JPRB,0.14568E+00_JPRB, &
+ & 0.13759E+00_JPRB,0.13216E+00_JPRB,0.14003E+00_JPRB,0.15311E+00_JPRB /)  
+KA(:, 5, 1,11) = (/ &
+ & 0.19560E+00_JPRB,0.17445E+00_JPRB,0.15370E+00_JPRB,0.14366E+00_JPRB,0.14353E+00_JPRB, &
+ & 0.13719E+00_JPRB,0.13142E+00_JPRB,0.13943E+00_JPRB,0.15271E+00_JPRB /)  
+KA(:, 1, 2,11) = (/ &
+ & 0.21063E+00_JPRB,0.18653E+00_JPRB,0.16583E+00_JPRB,0.16261E+00_JPRB,0.15745E+00_JPRB, &
+ & 0.14703E+00_JPRB,0.14143E+00_JPRB,0.14831E+00_JPRB,0.16307E+00_JPRB /)  
+KA(:, 2, 2,11) = (/ &
+ & 0.20807E+00_JPRB,0.18515E+00_JPRB,0.16450E+00_JPRB,0.16174E+00_JPRB,0.15680E+00_JPRB, &
+ & 0.14604E+00_JPRB,0.14115E+00_JPRB,0.14798E+00_JPRB,0.16304E+00_JPRB /)  
+KA(:, 3, 2,11) = (/ &
+ & 0.20581E+00_JPRB,0.18338E+00_JPRB,0.16244E+00_JPRB,0.15978E+00_JPRB,0.15520E+00_JPRB, &
+ & 0.14566E+00_JPRB,0.14067E+00_JPRB,0.14768E+00_JPRB,0.16312E+00_JPRB /)  
+KA(:, 4, 2,11) = (/ &
+ & 0.20347E+00_JPRB,0.18119E+00_JPRB,0.16010E+00_JPRB,0.15745E+00_JPRB,0.15333E+00_JPRB, &
+ & 0.14529E+00_JPRB,0.14007E+00_JPRB,0.14753E+00_JPRB,0.16343E+00_JPRB /)  
+KA(:, 5, 2,11) = (/ &
+ & 0.20115E+00_JPRB,0.17885E+00_JPRB,0.15773E+00_JPRB,0.15483E+00_JPRB,0.15150E+00_JPRB, &
+ & 0.14453E+00_JPRB,0.13948E+00_JPRB,0.14731E+00_JPRB,0.16359E+00_JPRB /)  
+KA(:, 1, 3,11) = (/ &
+ & 0.21616E+00_JPRB,0.19157E+00_JPRB,0.17353E+00_JPRB,0.17142E+00_JPRB,0.16301E+00_JPRB, &
+ & 0.15566E+00_JPRB,0.14998E+00_JPRB,0.15514E+00_JPRB,0.17145E+00_JPRB /)  
+KA(:, 2, 3,11) = (/ &
+ & 0.21408E+00_JPRB,0.19026E+00_JPRB,0.17182E+00_JPRB,0.17122E+00_JPRB,0.16252E+00_JPRB, &
+ & 0.15476E+00_JPRB,0.14939E+00_JPRB,0.15448E+00_JPRB,0.17139E+00_JPRB /)  
+KA(:, 3, 3,11) = (/ &
+ & 0.21163E+00_JPRB,0.18824E+00_JPRB,0.16950E+00_JPRB,0.16996E+00_JPRB,0.16151E+00_JPRB, &
+ & 0.15419E+00_JPRB,0.14882E+00_JPRB,0.15406E+00_JPRB,0.17163E+00_JPRB /)  
+KA(:, 4, 3,11) = (/ &
+ & 0.20914E+00_JPRB,0.18593E+00_JPRB,0.16692E+00_JPRB,0.16757E+00_JPRB,0.16029E+00_JPRB, &
+ & 0.15344E+00_JPRB,0.14837E+00_JPRB,0.15392E+00_JPRB,0.17198E+00_JPRB /)  
+KA(:, 5, 3,11) = (/ &
+ & 0.20701E+00_JPRB,0.18381E+00_JPRB,0.16453E+00_JPRB,0.16472E+00_JPRB,0.15897E+00_JPRB, &
+ & 0.15236E+00_JPRB,0.14801E+00_JPRB,0.15351E+00_JPRB,0.17179E+00_JPRB /)  
+KA(:, 1, 4,11) = (/ &
+ & 0.21862E+00_JPRB,0.19379E+00_JPRB,0.18221E+00_JPRB,0.17807E+00_JPRB,0.16954E+00_JPRB, &
+ & 0.16407E+00_JPRB,0.15829E+00_JPRB,0.16056E+00_JPRB,0.17755E+00_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART7',1,ZHOOK_HANDLE)
+END SUBROUTINE PART7
+
+
+SUBROUTINE PART8
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART8',0,ZHOOK_HANDLE)
+
+
+KA(:, 2, 4,11) = (/ &
+ & 0.21705E+00_JPRB,0.19285E+00_JPRB,0.18086E+00_JPRB,0.17812E+00_JPRB,0.16909E+00_JPRB, &
+ & 0.16313E+00_JPRB,0.15767E+00_JPRB,0.16003E+00_JPRB,0.17784E+00_JPRB /)  
+KA(:, 3, 4,11) = (/ &
+ & 0.21534E+00_JPRB,0.19129E+00_JPRB,0.17879E+00_JPRB,0.17719E+00_JPRB,0.16821E+00_JPRB, &
+ & 0.16252E+00_JPRB,0.15706E+00_JPRB,0.15944E+00_JPRB,0.17796E+00_JPRB /)  
+KA(:, 4, 4,11) = (/ &
+ & 0.21357E+00_JPRB,0.18961E+00_JPRB,0.17644E+00_JPRB,0.17503E+00_JPRB,0.16720E+00_JPRB, &
+ & 0.16179E+00_JPRB,0.15644E+00_JPRB,0.15869E+00_JPRB,0.17755E+00_JPRB /)  
+KA(:, 5, 4,11) = (/ &
+ & 0.21192E+00_JPRB,0.18796E+00_JPRB,0.17436E+00_JPRB,0.17237E+00_JPRB,0.16599E+00_JPRB, &
+ & 0.16096E+00_JPRB,0.15564E+00_JPRB,0.15746E+00_JPRB,0.17656E+00_JPRB /)  
+KA(:, 1, 5,11) = (/ &
+ & 0.21793E+00_JPRB,0.19325E+00_JPRB,0.18965E+00_JPRB,0.18402E+00_JPRB,0.17692E+00_JPRB, &
+ & 0.17250E+00_JPRB,0.16494E+00_JPRB,0.16474E+00_JPRB,0.18189E+00_JPRB /)  
+KA(:, 2, 5,11) = (/ &
+ & 0.21706E+00_JPRB,0.19287E+00_JPRB,0.18835E+00_JPRB,0.18355E+00_JPRB,0.17627E+00_JPRB, &
+ & 0.17161E+00_JPRB,0.16474E+00_JPRB,0.16398E+00_JPRB,0.18195E+00_JPRB /)  
+KA(:, 3, 5,11) = (/ &
+ & 0.21612E+00_JPRB,0.19181E+00_JPRB,0.18687E+00_JPRB,0.18213E+00_JPRB,0.17553E+00_JPRB, &
+ & 0.17088E+00_JPRB,0.16425E+00_JPRB,0.16313E+00_JPRB,0.18152E+00_JPRB /)  
+KA(:, 4, 5,11) = (/ &
+ & 0.21478E+00_JPRB,0.19045E+00_JPRB,0.18500E+00_JPRB,0.18018E+00_JPRB,0.17440E+00_JPRB, &
+ & 0.16996E+00_JPRB,0.16342E+00_JPRB,0.16188E+00_JPRB,0.18054E+00_JPRB /)  
+KA(:, 5, 5,11) = (/ &
+ & 0.21350E+00_JPRB,0.18909E+00_JPRB,0.18333E+00_JPRB,0.17782E+00_JPRB,0.17309E+00_JPRB, &
+ & 0.16916E+00_JPRB,0.16213E+00_JPRB,0.16034E+00_JPRB,0.17917E+00_JPRB /)  
+KA(:, 1, 6,11) = (/ &
+ & 0.21342E+00_JPRB,0.19093E+00_JPRB,0.19390E+00_JPRB,0.18953E+00_JPRB,0.18412E+00_JPRB, &
+ & 0.17932E+00_JPRB,0.17133E+00_JPRB,0.16726E+00_JPRB,0.18355E+00_JPRB /)  
+KA(:, 2, 6,11) = (/ &
+ & 0.21345E+00_JPRB,0.19062E+00_JPRB,0.19295E+00_JPRB,0.18836E+00_JPRB,0.18309E+00_JPRB, &
+ & 0.17848E+00_JPRB,0.17069E+00_JPRB,0.16650E+00_JPRB,0.18323E+00_JPRB /)  
+KA(:, 3, 6,11) = (/ &
+ & 0.21341E+00_JPRB,0.18999E+00_JPRB,0.19180E+00_JPRB,0.18672E+00_JPRB,0.18231E+00_JPRB, &
+ & 0.17805E+00_JPRB,0.16996E+00_JPRB,0.16523E+00_JPRB,0.18230E+00_JPRB /)  
+KA(:, 4, 6,11) = (/ &
+ & 0.21278E+00_JPRB,0.18888E+00_JPRB,0.19035E+00_JPRB,0.18488E+00_JPRB,0.18150E+00_JPRB, &
+ & 0.17740E+00_JPRB,0.16888E+00_JPRB,0.16361E+00_JPRB,0.18086E+00_JPRB /)  
+KA(:, 5, 6,11) = (/ &
+ & 0.21199E+00_JPRB,0.18788E+00_JPRB,0.18853E+00_JPRB,0.18312E+00_JPRB,0.18053E+00_JPRB, &
+ & 0.17647E+00_JPRB,0.16753E+00_JPRB,0.16185E+00_JPRB,0.17942E+00_JPRB /)  
+KA(:, 1, 7,11) = (/ &
+ & 0.20554E+00_JPRB,0.18880E+00_JPRB,0.19483E+00_JPRB,0.19351E+00_JPRB,0.18975E+00_JPRB, &
+ & 0.18476E+00_JPRB,0.17703E+00_JPRB,0.16712E+00_JPRB,0.18079E+00_JPRB /)  
+KA(:, 2, 7,11) = (/ &
+ & 0.20652E+00_JPRB,0.18855E+00_JPRB,0.19393E+00_JPRB,0.19243E+00_JPRB,0.18938E+00_JPRB, &
+ & 0.18427E+00_JPRB,0.17598E+00_JPRB,0.16627E+00_JPRB,0.18028E+00_JPRB /)  
+KA(:, 3, 7,11) = (/ &
+ & 0.20722E+00_JPRB,0.18798E+00_JPRB,0.19279E+00_JPRB,0.19112E+00_JPRB,0.18883E+00_JPRB, &
+ & 0.18376E+00_JPRB,0.17458E+00_JPRB,0.16493E+00_JPRB,0.17920E+00_JPRB /)  
+KA(:, 4, 7,11) = (/ &
+ & 0.20704E+00_JPRB,0.18700E+00_JPRB,0.19152E+00_JPRB,0.18972E+00_JPRB,0.18818E+00_JPRB, &
+ & 0.18325E+00_JPRB,0.17326E+00_JPRB,0.16331E+00_JPRB,0.17789E+00_JPRB /)  
+KA(:, 5, 7,11) = (/ &
+ & 0.20670E+00_JPRB,0.18595E+00_JPRB,0.18990E+00_JPRB,0.18822E+00_JPRB,0.18756E+00_JPRB, &
+ & 0.18244E+00_JPRB,0.17179E+00_JPRB,0.16146E+00_JPRB,0.17654E+00_JPRB /)  
+KA(:, 1, 8,11) = (/ &
+ & 0.19482E+00_JPRB,0.18644E+00_JPRB,0.19372E+00_JPRB,0.19534E+00_JPRB,0.19341E+00_JPRB, &
+ & 0.18978E+00_JPRB,0.17991E+00_JPRB,0.16480E+00_JPRB,0.17385E+00_JPRB /)  
+KA(:, 2, 8,11) = (/ &
+ & 0.19645E+00_JPRB,0.18662E+00_JPRB,0.19286E+00_JPRB,0.19499E+00_JPRB,0.19364E+00_JPRB, &
+ & 0.18939E+00_JPRB,0.17872E+00_JPRB,0.16377E+00_JPRB,0.17323E+00_JPRB /)  
+KA(:, 3, 8,11) = (/ &
+ & 0.19752E+00_JPRB,0.18632E+00_JPRB,0.19176E+00_JPRB,0.19416E+00_JPRB,0.19361E+00_JPRB, &
+ & 0.18898E+00_JPRB,0.17730E+00_JPRB,0.16248E+00_JPRB,0.17231E+00_JPRB /)  
+KA(:, 4, 8,11) = (/ &
+ & 0.19786E+00_JPRB,0.18535E+00_JPRB,0.19058E+00_JPRB,0.19340E+00_JPRB,0.19352E+00_JPRB, &
+ & 0.18844E+00_JPRB,0.17582E+00_JPRB,0.16092E+00_JPRB,0.17110E+00_JPRB /)  
+KA(:, 5, 8,11) = (/ &
+ & 0.19827E+00_JPRB,0.18472E+00_JPRB,0.18922E+00_JPRB,0.19254E+00_JPRB,0.19302E+00_JPRB, &
+ & 0.18739E+00_JPRB,0.17431E+00_JPRB,0.15936E+00_JPRB,0.17034E+00_JPRB /)  
+KA(:, 1, 9,11) = (/ &
+ & 0.18199E+00_JPRB,0.18200E+00_JPRB,0.19084E+00_JPRB,0.19456E+00_JPRB,0.19545E+00_JPRB, &
+ & 0.19216E+00_JPRB,0.18018E+00_JPRB,0.16033E+00_JPRB,0.16333E+00_JPRB /)  
+KA(:, 2, 9,11) = (/ &
+ & 0.18402E+00_JPRB,0.18227E+00_JPRB,0.19032E+00_JPRB,0.19515E+00_JPRB,0.19643E+00_JPRB, &
+ & 0.19212E+00_JPRB,0.17883E+00_JPRB,0.15954E+00_JPRB,0.16306E+00_JPRB /)  
+KA(:, 3, 9,11) = (/ &
+ & 0.18527E+00_JPRB,0.18204E+00_JPRB,0.18956E+00_JPRB,0.19541E+00_JPRB,0.19690E+00_JPRB, &
+ & 0.19201E+00_JPRB,0.17754E+00_JPRB,0.15865E+00_JPRB,0.16240E+00_JPRB /)  
+KA(:, 4, 9,11) = (/ &
+ & 0.18597E+00_JPRB,0.18146E+00_JPRB,0.18866E+00_JPRB,0.19510E+00_JPRB,0.19689E+00_JPRB, &
+ & 0.19145E+00_JPRB,0.17626E+00_JPRB,0.15729E+00_JPRB,0.16157E+00_JPRB /)  
+KA(:, 5, 9,11) = (/ &
+ & 0.18701E+00_JPRB,0.18150E+00_JPRB,0.18776E+00_JPRB,0.19449E+00_JPRB,0.19637E+00_JPRB, &
+ & 0.19035E+00_JPRB,0.17490E+00_JPRB,0.15605E+00_JPRB,0.16154E+00_JPRB /)  
+KA(:, 1,10,11) = (/ &
+ & 0.16786E+00_JPRB,0.17459E+00_JPRB,0.18572E+00_JPRB,0.19196E+00_JPRB,0.19497E+00_JPRB, &
+ & 0.19093E+00_JPRB,0.17775E+00_JPRB,0.15445E+00_JPRB,0.12845E+00_JPRB /)  
+KA(:, 2,10,11) = (/ &
+ & 0.16990E+00_JPRB,0.17470E+00_JPRB,0.18604E+00_JPRB,0.19354E+00_JPRB,0.19670E+00_JPRB, &
+ & 0.19124E+00_JPRB,0.17643E+00_JPRB,0.15415E+00_JPRB,0.12953E+00_JPRB /)  
+KA(:, 3,10,11) = (/ &
+ & 0.17115E+00_JPRB,0.17447E+00_JPRB,0.18577E+00_JPRB,0.19420E+00_JPRB,0.19734E+00_JPRB, &
+ & 0.19133E+00_JPRB,0.17544E+00_JPRB,0.15343E+00_JPRB,0.13019E+00_JPRB /)  
+KA(:, 4,10,11) = (/ &
+ & 0.17256E+00_JPRB,0.17421E+00_JPRB,0.18540E+00_JPRB,0.19426E+00_JPRB,0.19741E+00_JPRB, &
+ & 0.19105E+00_JPRB,0.17463E+00_JPRB,0.15245E+00_JPRB,0.13135E+00_JPRB /)  
+KA(:, 5,10,11) = (/ &
+ & 0.17411E+00_JPRB,0.17469E+00_JPRB,0.18532E+00_JPRB,0.19400E+00_JPRB,0.19690E+00_JPRB, &
+ & 0.19024E+00_JPRB,0.17373E+00_JPRB,0.15177E+00_JPRB,0.13443E+00_JPRB /)  
+KA(:, 1,11,11) = (/ &
+ & 0.15326E+00_JPRB,0.16530E+00_JPRB,0.17933E+00_JPRB,0.18873E+00_JPRB,0.19204E+00_JPRB, &
+ & 0.18645E+00_JPRB,0.17157E+00_JPRB,0.14842E+00_JPRB,0.10906E+00_JPRB /)  
+KA(:, 2,11,11) = (/ &
+ & 0.15510E+00_JPRB,0.16508E+00_JPRB,0.18002E+00_JPRB,0.19054E+00_JPRB,0.19337E+00_JPRB, &
+ & 0.18697E+00_JPRB,0.17132E+00_JPRB,0.14823E+00_JPRB,0.10821E+00_JPRB /)  
+KA(:, 3,11,11) = (/ &
+ & 0.15695E+00_JPRB,0.16517E+00_JPRB,0.18033E+00_JPRB,0.19125E+00_JPRB,0.19395E+00_JPRB, &
+ & 0.18719E+00_JPRB,0.17114E+00_JPRB,0.14748E+00_JPRB,0.10735E+00_JPRB /)  
+KA(:, 4,11,11) = (/ &
+ & 0.15884E+00_JPRB,0.16584E+00_JPRB,0.18066E+00_JPRB,0.19107E+00_JPRB,0.19386E+00_JPRB, &
+ & 0.18714E+00_JPRB,0.17083E+00_JPRB,0.14679E+00_JPRB,0.10767E+00_JPRB /)  
+KA(:, 5,11,11) = (/ &
+ & 0.16065E+00_JPRB,0.16693E+00_JPRB,0.18136E+00_JPRB,0.19090E+00_JPRB,0.19313E+00_JPRB, &
+ & 0.18652E+00_JPRB,0.17043E+00_JPRB,0.14693E+00_JPRB,0.10852E+00_JPRB /)  
+KA(:, 1,12,11) = (/ &
+ & 0.13812E+00_JPRB,0.15482E+00_JPRB,0.17200E+00_JPRB,0.18322E+00_JPRB,0.18516E+00_JPRB, &
+ & 0.17855E+00_JPRB,0.16404E+00_JPRB,0.14149E+00_JPRB,0.85521E-01_JPRB /)  
+KA(:, 2,12,11) = (/ &
+ & 0.14024E+00_JPRB,0.15523E+00_JPRB,0.17295E+00_JPRB,0.18464E+00_JPRB,0.18616E+00_JPRB, &
+ & 0.17947E+00_JPRB,0.16474E+00_JPRB,0.14107E+00_JPRB,0.84251E-01_JPRB /)  
+KA(:, 3,12,11) = (/ &
+ & 0.14232E+00_JPRB,0.15625E+00_JPRB,0.17374E+00_JPRB,0.18482E+00_JPRB,0.18666E+00_JPRB, &
+ & 0.18015E+00_JPRB,0.16507E+00_JPRB,0.14067E+00_JPRB,0.83221E-01_JPRB /)  
+KA(:, 4,12,11) = (/ &
+ & 0.14452E+00_JPRB,0.15760E+00_JPRB,0.17483E+00_JPRB,0.18482E+00_JPRB,0.18644E+00_JPRB, &
+ & 0.18031E+00_JPRB,0.16530E+00_JPRB,0.14085E+00_JPRB,0.83052E-01_JPRB /)  
+KA(:, 5,12,11) = (/ &
+ & 0.14659E+00_JPRB,0.15898E+00_JPRB,0.17608E+00_JPRB,0.18496E+00_JPRB,0.18608E+00_JPRB, &
+ & 0.18007E+00_JPRB,0.16596E+00_JPRB,0.14156E+00_JPRB,0.86150E-01_JPRB /)  
+KA(:, 1,13,11) = (/ &
+ & 0.12335E+00_JPRB,0.14397E+00_JPRB,0.16332E+00_JPRB,0.17403E+00_JPRB,0.17485E+00_JPRB, &
+ & 0.16858E+00_JPRB,0.15532E+00_JPRB,0.13315E+00_JPRB,0.86982E-01_JPRB /)  
+KA(:, 2,13,11) = (/ &
+ & 0.12553E+00_JPRB,0.14531E+00_JPRB,0.16473E+00_JPRB,0.17477E+00_JPRB,0.17593E+00_JPRB, &
+ & 0.16998E+00_JPRB,0.15639E+00_JPRB,0.13322E+00_JPRB,0.83311E-01_JPRB /)  
+KA(:, 3,13,11) = (/ &
+ & 0.12788E+00_JPRB,0.14705E+00_JPRB,0.16612E+00_JPRB,0.17511E+00_JPRB,0.17644E+00_JPRB, &
+ & 0.17090E+00_JPRB,0.15730E+00_JPRB,0.13374E+00_JPRB,0.80969E-01_JPRB /)  
+KA(:, 4,13,11) = (/ &
+ & 0.13027E+00_JPRB,0.14889E+00_JPRB,0.16746E+00_JPRB,0.17569E+00_JPRB,0.17660E+00_JPRB, &
+ & 0.17136E+00_JPRB,0.15852E+00_JPRB,0.13468E+00_JPRB,0.79671E-01_JPRB /)  
+KA(:, 5,13,11) = (/ &
+ & 0.13255E+00_JPRB,0.15069E+00_JPRB,0.16867E+00_JPRB,0.17661E+00_JPRB,0.17696E+00_JPRB, &
+ & 0.17204E+00_JPRB,0.15992E+00_JPRB,0.13520E+00_JPRB,0.81334E-01_JPRB /)  
+KA(:, 1, 1,12) = (/ &
+ & 0.28721E+00_JPRB,0.25323E+00_JPRB,0.21917E+00_JPRB,0.19050E+00_JPRB,0.18439E+00_JPRB, &
+ & 0.17842E+00_JPRB,0.17156E+00_JPRB,0.18245E+00_JPRB,0.20075E+00_JPRB /)  
+KA(:, 2, 1,12) = (/ &
+ & 0.28561E+00_JPRB,0.25177E+00_JPRB,0.21845E+00_JPRB,0.19052E+00_JPRB,0.18309E+00_JPRB, &
+ & 0.17638E+00_JPRB,0.16966E+00_JPRB,0.18096E+00_JPRB,0.19965E+00_JPRB /)  
+KA(:, 3, 1,12) = (/ &
+ & 0.28230E+00_JPRB,0.24910E+00_JPRB,0.21697E+00_JPRB,0.19014E+00_JPRB,0.18233E+00_JPRB, &
+ & 0.17414E+00_JPRB,0.16821E+00_JPRB,0.18034E+00_JPRB,0.19910E+00_JPRB /)  
+KA(:, 4, 1,12) = (/ &
+ & 0.27834E+00_JPRB,0.24592E+00_JPRB,0.21540E+00_JPRB,0.18935E+00_JPRB,0.18163E+00_JPRB, &
+ & 0.17186E+00_JPRB,0.16739E+00_JPRB,0.18033E+00_JPRB,0.19922E+00_JPRB /)  
+KA(:, 5, 1,12) = (/ &
+ & 0.27434E+00_JPRB,0.24303E+00_JPRB,0.21391E+00_JPRB,0.18803E+00_JPRB,0.18019E+00_JPRB, &
+ & 0.17025E+00_JPRB,0.16693E+00_JPRB,0.18042E+00_JPRB,0.19937E+00_JPRB /)  
+KA(:, 1, 2,12) = (/ &
+ & 0.29623E+00_JPRB,0.26097E+00_JPRB,0.22609E+00_JPRB,0.20293E+00_JPRB,0.20182E+00_JPRB, &
+ & 0.19085E+00_JPRB,0.18240E+00_JPRB,0.19397E+00_JPRB,0.21604E+00_JPRB /)  
+KA(:, 2, 2,12) = (/ &
+ & 0.29432E+00_JPRB,0.25931E+00_JPRB,0.22539E+00_JPRB,0.20142E+00_JPRB,0.20026E+00_JPRB, &
+ & 0.18828E+00_JPRB,0.18057E+00_JPRB,0.19299E+00_JPRB,0.21521E+00_JPRB /)  
+KA(:, 3, 2,12) = (/ &
+ & 0.29132E+00_JPRB,0.25712E+00_JPRB,0.22457E+00_JPRB,0.20070E+00_JPRB,0.19917E+00_JPRB, &
+ & 0.18573E+00_JPRB,0.17946E+00_JPRB,0.19254E+00_JPRB,0.21482E+00_JPRB /)  
+KA(:, 4, 2,12) = (/ &
+ & 0.28797E+00_JPRB,0.25474E+00_JPRB,0.22345E+00_JPRB,0.19986E+00_JPRB,0.19780E+00_JPRB, &
+ & 0.18370E+00_JPRB,0.17875E+00_JPRB,0.19238E+00_JPRB,0.21459E+00_JPRB /)  
+KA(:, 5, 2,12) = (/ &
+ & 0.28466E+00_JPRB,0.25242E+00_JPRB,0.22205E+00_JPRB,0.19838E+00_JPRB,0.19562E+00_JPRB, &
+ & 0.18242E+00_JPRB,0.17806E+00_JPRB,0.19203E+00_JPRB,0.21421E+00_JPRB /)  
+KA(:, 1, 3,12) = (/ &
+ & 0.30561E+00_JPRB,0.26889E+00_JPRB,0.23295E+00_JPRB,0.21956E+00_JPRB,0.21717E+00_JPRB, &
+ & 0.20307E+00_JPRB,0.19524E+00_JPRB,0.20742E+00_JPRB,0.23388E+00_JPRB /)  
+KA(:, 2, 3,12) = (/ &
+ & 0.30324E+00_JPRB,0.26704E+00_JPRB,0.23237E+00_JPRB,0.21738E+00_JPRB,0.21493E+00_JPRB, &
+ & 0.20036E+00_JPRB,0.19375E+00_JPRB,0.20659E+00_JPRB,0.23304E+00_JPRB /)  
+KA(:, 3, 3,12) = (/ &
+ & 0.30058E+00_JPRB,0.26531E+00_JPRB,0.23190E+00_JPRB,0.21598E+00_JPRB,0.21300E+00_JPRB, &
+ & 0.19790E+00_JPRB,0.19244E+00_JPRB,0.20627E+00_JPRB,0.23259E+00_JPRB /)  
+KA(:, 4, 3,12) = (/ &
+ & 0.29826E+00_JPRB,0.26386E+00_JPRB,0.23125E+00_JPRB,0.21516E+00_JPRB,0.21099E+00_JPRB, &
+ & 0.19626E+00_JPRB,0.19135E+00_JPRB,0.20570E+00_JPRB,0.23176E+00_JPRB /)  
+KA(:, 5, 3,12) = (/ &
+ & 0.29569E+00_JPRB,0.26204E+00_JPRB,0.22972E+00_JPRB,0.21357E+00_JPRB,0.20846E+00_JPRB, &
+ & 0.19500E+00_JPRB,0.19003E+00_JPRB,0.20504E+00_JPRB,0.23084E+00_JPRB /)  
+KA(:, 1, 4,12) = (/ &
+ & 0.31580E+00_JPRB,0.27765E+00_JPRB,0.24256E+00_JPRB,0.23825E+00_JPRB,0.23010E+00_JPRB, &
+ & 0.21605E+00_JPRB,0.20908E+00_JPRB,0.22073E+00_JPRB,0.25027E+00_JPRB /)  
+KA(:, 2, 4,12) = (/ &
+ & 0.31385E+00_JPRB,0.27619E+00_JPRB,0.24143E+00_JPRB,0.23561E+00_JPRB,0.22732E+00_JPRB, &
+ & 0.21355E+00_JPRB,0.20732E+00_JPRB,0.21997E+00_JPRB,0.24945E+00_JPRB /)  
+KA(:, 3, 4,12) = (/ &
+ & 0.31115E+00_JPRB,0.27450E+00_JPRB,0.24049E+00_JPRB,0.23383E+00_JPRB,0.22480E+00_JPRB, &
+ & 0.21136E+00_JPRB,0.20583E+00_JPRB,0.21971E+00_JPRB,0.24898E+00_JPRB /)  
+KA(:, 4, 4,12) = (/ &
+ & 0.30851E+00_JPRB,0.27268E+00_JPRB,0.23896E+00_JPRB,0.23220E+00_JPRB,0.22243E+00_JPRB, &
+ & 0.20992E+00_JPRB,0.20459E+00_JPRB,0.21945E+00_JPRB,0.24850E+00_JPRB /)  
+KA(:, 5, 4,12) = (/ &
+ & 0.30578E+00_JPRB,0.27071E+00_JPRB,0.23717E+00_JPRB,0.23033E+00_JPRB,0.22018E+00_JPRB, &
+ & 0.20870E+00_JPRB,0.20353E+00_JPRB,0.21927E+00_JPRB,0.24814E+00_JPRB /)  
+KA(:, 1, 5,12) = (/ &
+ & 0.32525E+00_JPRB,0.28587E+00_JPRB,0.25583E+00_JPRB,0.25377E+00_JPRB,0.24260E+00_JPRB, &
+ & 0.22945E+00_JPRB,0.22249E+00_JPRB,0.23280E+00_JPRB,0.26422E+00_JPRB /)  
+KA(:, 2, 5,12) = (/ &
+ & 0.32339E+00_JPRB,0.28450E+00_JPRB,0.25406E+00_JPRB,0.25143E+00_JPRB,0.23950E+00_JPRB, &
+ & 0.22738E+00_JPRB,0.22044E+00_JPRB,0.23211E+00_JPRB,0.26348E+00_JPRB /)  
+KA(:, 3, 5,12) = (/ &
+ & 0.32075E+00_JPRB,0.28298E+00_JPRB,0.25200E+00_JPRB,0.24974E+00_JPRB,0.23665E+00_JPRB, &
+ & 0.22565E+00_JPRB,0.21882E+00_JPRB,0.23178E+00_JPRB,0.26317E+00_JPRB /)  
+KA(:, 4, 5,12) = (/ &
+ & 0.31838E+00_JPRB,0.28134E+00_JPRB,0.24992E+00_JPRB,0.24807E+00_JPRB,0.23442E+00_JPRB, &
+ & 0.22435E+00_JPRB,0.21780E+00_JPRB,0.23180E+00_JPRB,0.26307E+00_JPRB /)  
+KA(:, 5, 5,12) = (/ &
+ & 0.31581E+00_JPRB,0.27952E+00_JPRB,0.24774E+00_JPRB,0.24618E+00_JPRB,0.23239E+00_JPRB, &
+ & 0.22315E+00_JPRB,0.21723E+00_JPRB,0.23168E+00_JPRB,0.26269E+00_JPRB /)  
+KA(:, 1, 6,12) = (/ &
+ & 0.33335E+00_JPRB,0.29286E+00_JPRB,0.27107E+00_JPRB,0.26707E+00_JPRB,0.25627E+00_JPRB, &
+ & 0.24388E+00_JPRB,0.23516E+00_JPRB,0.24254E+00_JPRB,0.27495E+00_JPRB /)  
+KA(:, 2, 6,12) = (/ &
+ & 0.33185E+00_JPRB,0.29196E+00_JPRB,0.26927E+00_JPRB,0.26528E+00_JPRB,0.25338E+00_JPRB, &
+ & 0.24199E+00_JPRB,0.23321E+00_JPRB,0.24178E+00_JPRB,0.27452E+00_JPRB /)  
+KA(:, 3, 6,12) = (/ &
+ & 0.32960E+00_JPRB,0.29070E+00_JPRB,0.26757E+00_JPRB,0.26387E+00_JPRB,0.25062E+00_JPRB, &
+ & 0.24015E+00_JPRB,0.23158E+00_JPRB,0.24188E+00_JPRB,0.27485E+00_JPRB /)  
+KA(:, 4, 6,12) = (/ &
+ & 0.32714E+00_JPRB,0.28920E+00_JPRB,0.26543E+00_JPRB,0.26229E+00_JPRB,0.24828E+00_JPRB, &
+ & 0.23863E+00_JPRB,0.23085E+00_JPRB,0.24191E+00_JPRB,0.27476E+00_JPRB /)  
+KA(:, 5, 6,12) = (/ &
+ & 0.32443E+00_JPRB,0.28722E+00_JPRB,0.26300E+00_JPRB,0.25993E+00_JPRB,0.24627E+00_JPRB, &
+ & 0.23716E+00_JPRB,0.23011E+00_JPRB,0.24150E+00_JPRB,0.27410E+00_JPRB /)  
+KA(:, 1, 7,12) = (/ &
+ & 0.33805E+00_JPRB,0.29686E+00_JPRB,0.28577E+00_JPRB,0.27897E+00_JPRB,0.26998E+00_JPRB, &
+ & 0.25892E+00_JPRB,0.24589E+00_JPRB,0.25046E+00_JPRB,0.28292E+00_JPRB /)  
+KA(:, 2, 7,12) = (/ &
+ & 0.33717E+00_JPRB,0.29673E+00_JPRB,0.28505E+00_JPRB,0.27748E+00_JPRB,0.26727E+00_JPRB, &
+ & 0.25668E+00_JPRB,0.24439E+00_JPRB,0.24991E+00_JPRB,0.28315E+00_JPRB /)  
+KA(:, 3, 7,12) = (/ &
+ & 0.33582E+00_JPRB,0.29639E+00_JPRB,0.28414E+00_JPRB,0.27664E+00_JPRB,0.26503E+00_JPRB, &
+ & 0.25454E+00_JPRB,0.24355E+00_JPRB,0.24982E+00_JPRB,0.28339E+00_JPRB /)  
+KA(:, 4, 7,12) = (/ &
+ & 0.33418E+00_JPRB,0.29565E+00_JPRB,0.28243E+00_JPRB,0.27502E+00_JPRB,0.26319E+00_JPRB, &
+ & 0.25262E+00_JPRB,0.24314E+00_JPRB,0.24937E+00_JPRB,0.28297E+00_JPRB /)  
+KA(:, 5, 7,12) = (/ &
+ & 0.33223E+00_JPRB,0.29432E+00_JPRB,0.28036E+00_JPRB,0.27276E+00_JPRB,0.26126E+00_JPRB, &
+ & 0.25114E+00_JPRB,0.24223E+00_JPRB,0.24874E+00_JPRB,0.28224E+00_JPRB /)  
+KA(:, 1, 8,12) = (/ &
+ & 0.33811E+00_JPRB,0.29881E+00_JPRB,0.29770E+00_JPRB,0.29087E+00_JPRB,0.28271E+00_JPRB, &
+ & 0.27088E+00_JPRB,0.25606E+00_JPRB,0.25702E+00_JPRB,0.28869E+00_JPRB /)  
+KA(:, 2, 8,12) = (/ &
+ & 0.33858E+00_JPRB,0.29933E+00_JPRB,0.29817E+00_JPRB,0.28968E+00_JPRB,0.28063E+00_JPRB, &
+ & 0.26913E+00_JPRB,0.25508E+00_JPRB,0.25647E+00_JPRB,0.28886E+00_JPRB /)  
+KA(:, 3, 8,12) = (/ &
+ & 0.33853E+00_JPRB,0.29979E+00_JPRB,0.29803E+00_JPRB,0.28900E+00_JPRB,0.27895E+00_JPRB, &
+ & 0.26698E+00_JPRB,0.25454E+00_JPRB,0.25561E+00_JPRB,0.28857E+00_JPRB /)  
+KA(:, 4, 8,12) = (/ &
+ & 0.33786E+00_JPRB,0.29958E+00_JPRB,0.29705E+00_JPRB,0.28721E+00_JPRB,0.27754E+00_JPRB, &
+ & 0.26522E+00_JPRB,0.25386E+00_JPRB,0.25480E+00_JPRB,0.28812E+00_JPRB /)  
+KA(:, 5, 8,12) = (/ &
+ & 0.33672E+00_JPRB,0.29874E+00_JPRB,0.29538E+00_JPRB,0.28492E+00_JPRB,0.27593E+00_JPRB, &
+ & 0.26422E+00_JPRB,0.25288E+00_JPRB,0.25337E+00_JPRB,0.28657E+00_JPRB /)  
+KA(:, 1, 9,12) = (/ &
+ & 0.33304E+00_JPRB,0.29965E+00_JPRB,0.30451E+00_JPRB,0.30108E+00_JPRB,0.29380E+00_JPRB, &
+ & 0.28100E+00_JPRB,0.26620E+00_JPRB,0.26062E+00_JPRB,0.28923E+00_JPRB /)  
+KA(:, 2, 9,12) = (/ &
+ & 0.33493E+00_JPRB,0.30099E+00_JPRB,0.30590E+00_JPRB,0.30051E+00_JPRB,0.29241E+00_JPRB, &
+ & 0.27971E+00_JPRB,0.26553E+00_JPRB,0.25927E+00_JPRB,0.28890E+00_JPRB /)  
+KA(:, 3, 9,12) = (/ &
+ & 0.33639E+00_JPRB,0.30210E+00_JPRB,0.30672E+00_JPRB,0.29976E+00_JPRB,0.29135E+00_JPRB, &
+ & 0.27789E+00_JPRB,0.26459E+00_JPRB,0.25779E+00_JPRB,0.28847E+00_JPRB /)  
+KA(:, 4, 9,12) = (/ &
+ & 0.33691E+00_JPRB,0.30238E+00_JPRB,0.30636E+00_JPRB,0.29831E+00_JPRB,0.29055E+00_JPRB, &
+ & 0.27684E+00_JPRB,0.26372E+00_JPRB,0.25629E+00_JPRB,0.28756E+00_JPRB /)  
+KA(:, 5, 9,12) = (/ &
+ & 0.33680E+00_JPRB,0.30184E+00_JPRB,0.30474E+00_JPRB,0.29664E+00_JPRB,0.28906E+00_JPRB, &
+ & 0.27593E+00_JPRB,0.26250E+00_JPRB,0.25436E+00_JPRB,0.28576E+00_JPRB /)  
+KA(:, 1,10,12) = (/ &
+ & 0.32265E+00_JPRB,0.29931E+00_JPRB,0.30809E+00_JPRB,0.30788E+00_JPRB,0.30155E+00_JPRB, &
+ & 0.29032E+00_JPRB,0.27398E+00_JPRB,0.25958E+00_JPRB,0.28232E+00_JPRB /)  
+KA(:, 2,10,12) = (/ &
+ & 0.32643E+00_JPRB,0.30217E+00_JPRB,0.30992E+00_JPRB,0.30804E+00_JPRB,0.30109E+00_JPRB, &
+ & 0.28947E+00_JPRB,0.27364E+00_JPRB,0.25761E+00_JPRB,0.28165E+00_JPRB /)  
+KA(:, 3,10,12) = (/ &
+ & 0.32903E+00_JPRB,0.30409E+00_JPRB,0.31077E+00_JPRB,0.30846E+00_JPRB,0.30095E+00_JPRB, &
+ & 0.28833E+00_JPRB,0.27259E+00_JPRB,0.25601E+00_JPRB,0.28124E+00_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART8',1,ZHOOK_HANDLE)
+END SUBROUTINE PART8
+
+
+SUBROUTINE PART9
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART9',0,ZHOOK_HANDLE)
+
+
+KA(:, 4,10,12) = (/ &
+ & 0.33021E+00_JPRB,0.30472E+00_JPRB,0.31062E+00_JPRB,0.30777E+00_JPRB,0.30050E+00_JPRB, &
+ & 0.28725E+00_JPRB,0.27132E+00_JPRB,0.25418E+00_JPRB,0.28034E+00_JPRB /)  
+KA(:, 5,10,12) = (/ &
+ & 0.33035E+00_JPRB,0.30379E+00_JPRB,0.30948E+00_JPRB,0.30647E+00_JPRB,0.29984E+00_JPRB, &
+ & 0.28648E+00_JPRB,0.26959E+00_JPRB,0.25216E+00_JPRB,0.27891E+00_JPRB /)  
+KA(:, 1,11,12) = (/ &
+ & 0.31092E+00_JPRB,0.29828E+00_JPRB,0.30944E+00_JPRB,0.31067E+00_JPRB,0.30618E+00_JPRB, &
+ & 0.29698E+00_JPRB,0.27822E+00_JPRB,0.25367E+00_JPRB,0.20521E+00_JPRB /)  
+KA(:, 2,11,12) = (/ &
+ & 0.31508E+00_JPRB,0.30179E+00_JPRB,0.31084E+00_JPRB,0.31247E+00_JPRB,0.30712E+00_JPRB, &
+ & 0.29665E+00_JPRB,0.27717E+00_JPRB,0.25137E+00_JPRB,0.20791E+00_JPRB /)  
+KA(:, 3,11,12) = (/ &
+ & 0.31745E+00_JPRB,0.30351E+00_JPRB,0.31148E+00_JPRB,0.31329E+00_JPRB,0.30764E+00_JPRB, &
+ & 0.29592E+00_JPRB,0.27601E+00_JPRB,0.24946E+00_JPRB,0.21041E+00_JPRB /)  
+KA(:, 4,11,12) = (/ &
+ & 0.31864E+00_JPRB,0.30345E+00_JPRB,0.31137E+00_JPRB,0.31328E+00_JPRB,0.30818E+00_JPRB, &
+ & 0.29525E+00_JPRB,0.27444E+00_JPRB,0.24795E+00_JPRB,0.21312E+00_JPRB /)  
+KA(:, 5,11,12) = (/ &
+ & 0.31936E+00_JPRB,0.30268E+00_JPRB,0.31034E+00_JPRB,0.31260E+00_JPRB,0.30827E+00_JPRB, &
+ & 0.29465E+00_JPRB,0.27259E+00_JPRB,0.24615E+00_JPRB,0.21621E+00_JPRB /)  
+KA(:, 1,12,12) = (/ &
+ & 0.29534E+00_JPRB,0.29381E+00_JPRB,0.30706E+00_JPRB,0.31081E+00_JPRB,0.30893E+00_JPRB, &
+ & 0.29961E+00_JPRB,0.27811E+00_JPRB,0.24533E+00_JPRB,0.16496E+00_JPRB /)  
+KA(:, 2,12,12) = (/ &
+ & 0.29914E+00_JPRB,0.29664E+00_JPRB,0.30890E+00_JPRB,0.31347E+00_JPRB,0.31102E+00_JPRB, &
+ & 0.29958E+00_JPRB,0.27683E+00_JPRB,0.24361E+00_JPRB,0.16812E+00_JPRB /)  
+KA(:, 3,12,12) = (/ &
+ & 0.30164E+00_JPRB,0.29790E+00_JPRB,0.30986E+00_JPRB,0.31529E+00_JPRB,0.31277E+00_JPRB, &
+ & 0.29960E+00_JPRB,0.27547E+00_JPRB,0.24230E+00_JPRB,0.17163E+00_JPRB /)  
+KA(:, 4,12,12) = (/ &
+ & 0.30318E+00_JPRB,0.29799E+00_JPRB,0.30963E+00_JPRB,0.31596E+00_JPRB,0.31358E+00_JPRB, &
+ & 0.29964E+00_JPRB,0.27410E+00_JPRB,0.24090E+00_JPRB,0.17207E+00_JPRB /)  
+KA(:, 5,12,12) = (/ &
+ & 0.30462E+00_JPRB,0.29774E+00_JPRB,0.30883E+00_JPRB,0.31580E+00_JPRB,0.31382E+00_JPRB, &
+ & 0.29942E+00_JPRB,0.27289E+00_JPRB,0.23940E+00_JPRB,0.17248E+00_JPRB /)  
+KA(:, 1,13,12) = (/ &
+ & 0.27646E+00_JPRB,0.28482E+00_JPRB,0.30092E+00_JPRB,0.30845E+00_JPRB,0.30839E+00_JPRB, &
+ & 0.29721E+00_JPRB,0.27391E+00_JPRB,0.23566E+00_JPRB,0.13145E+00_JPRB /)  
+KA(:, 2,13,12) = (/ &
+ & 0.28013E+00_JPRB,0.28703E+00_JPRB,0.30330E+00_JPRB,0.31210E+00_JPRB,0.31152E+00_JPRB, &
+ & 0.29799E+00_JPRB,0.27265E+00_JPRB,0.23501E+00_JPRB,0.13680E+00_JPRB /)  
+KA(:, 3,13,12) = (/ &
+ & 0.28251E+00_JPRB,0.28781E+00_JPRB,0.30455E+00_JPRB,0.31430E+00_JPRB,0.31342E+00_JPRB, &
+ & 0.29883E+00_JPRB,0.27192E+00_JPRB,0.23420E+00_JPRB,0.14031E+00_JPRB /)  
+KA(:, 4,13,12) = (/ &
+ & 0.28473E+00_JPRB,0.28806E+00_JPRB,0.30532E+00_JPRB,0.31558E+00_JPRB,0.31478E+00_JPRB, &
+ & 0.29964E+00_JPRB,0.27140E+00_JPRB,0.23324E+00_JPRB,0.14138E+00_JPRB /)  
+KA(:, 5,13,12) = (/ &
+ & 0.28731E+00_JPRB,0.28885E+00_JPRB,0.30563E+00_JPRB,0.31603E+00_JPRB,0.31529E+00_JPRB, &
+ & 0.30003E+00_JPRB,0.27073E+00_JPRB,0.23300E+00_JPRB,0.14291E+00_JPRB /)  
+KA(:, 1, 1,13) = (/ &
+ & 0.39331E+00_JPRB,0.34536E+00_JPRB,0.29823E+00_JPRB,0.25200E+00_JPRB,0.22257E+00_JPRB, &
+ & 0.22153E+00_JPRB,0.23263E+00_JPRB,0.25940E+00_JPRB,0.28372E+00_JPRB /)  
+KA(:, 2, 1,13) = (/ &
+ & 0.38484E+00_JPRB,0.33824E+00_JPRB,0.29242E+00_JPRB,0.24772E+00_JPRB,0.21768E+00_JPRB, &
+ & 0.21972E+00_JPRB,0.23098E+00_JPRB,0.25833E+00_JPRB,0.28173E+00_JPRB /)  
+KA(:, 3, 1,13) = (/ &
+ & 0.37910E+00_JPRB,0.33360E+00_JPRB,0.28884E+00_JPRB,0.24475E+00_JPRB,0.21421E+00_JPRB, &
+ & 0.21744E+00_JPRB,0.22823E+00_JPRB,0.25633E+00_JPRB,0.27932E+00_JPRB /)  
+KA(:, 4, 1,13) = (/ &
+ & 0.37406E+00_JPRB,0.32956E+00_JPRB,0.28576E+00_JPRB,0.24212E+00_JPRB,0.21151E+00_JPRB, &
+ & 0.21463E+00_JPRB,0.22480E+00_JPRB,0.25354E+00_JPRB,0.27637E+00_JPRB /)  
+KA(:, 5, 1,13) = (/ &
+ & 0.36968E+00_JPRB,0.32602E+00_JPRB,0.28272E+00_JPRB,0.24026E+00_JPRB,0.20970E+00_JPRB, &
+ & 0.21134E+00_JPRB,0.22163E+00_JPRB,0.25081E+00_JPRB,0.27385E+00_JPRB /)  
+KA(:, 1, 2,13) = (/ &
+ & 0.41602E+00_JPRB,0.36529E+00_JPRB,0.31527E+00_JPRB,0.26672E+00_JPRB,0.24637E+00_JPRB, &
+ & 0.24718E+00_JPRB,0.25604E+00_JPRB,0.28585E+00_JPRB,0.31850E+00_JPRB /)  
+KA(:, 2, 2,13) = (/ &
+ & 0.40830E+00_JPRB,0.35891E+00_JPRB,0.31022E+00_JPRB,0.26338E+00_JPRB,0.24193E+00_JPRB, &
+ & 0.24484E+00_JPRB,0.25382E+00_JPRB,0.28396E+00_JPRB,0.31574E+00_JPRB /)  
+KA(:, 3, 2,13) = (/ &
+ & 0.40220E+00_JPRB,0.35391E+00_JPRB,0.30635E+00_JPRB,0.26042E+00_JPRB,0.23856E+00_JPRB, &
+ & 0.24224E+00_JPRB,0.25030E+00_JPRB,0.28140E+00_JPRB,0.31256E+00_JPRB /)  
+KA(:, 4, 2,13) = (/ &
+ & 0.39708E+00_JPRB,0.34976E+00_JPRB,0.30310E+00_JPRB,0.25764E+00_JPRB,0.23590E+00_JPRB, &
+ & 0.23895E+00_JPRB,0.24655E+00_JPRB,0.27840E+00_JPRB,0.30929E+00_JPRB /)  
+KA(:, 5, 2,13) = (/ &
+ & 0.39199E+00_JPRB,0.34559E+00_JPRB,0.29962E+00_JPRB,0.25559E+00_JPRB,0.23369E+00_JPRB, &
+ & 0.23517E+00_JPRB,0.24316E+00_JPRB,0.27577E+00_JPRB,0.30660E+00_JPRB /)  
+KA(:, 1, 3,13) = (/ &
+ & 0.43911E+00_JPRB,0.38551E+00_JPRB,0.33254E+00_JPRB,0.28548E+00_JPRB,0.27501E+00_JPRB, &
+ & 0.27158E+00_JPRB,0.27806E+00_JPRB,0.30961E+00_JPRB,0.34942E+00_JPRB /)  
+KA(:, 2, 3,13) = (/ &
+ & 0.43165E+00_JPRB,0.37930E+00_JPRB,0.32763E+00_JPRB,0.28158E+00_JPRB,0.27135E+00_JPRB, &
+ & 0.26881E+00_JPRB,0.27489E+00_JPRB,0.30725E+00_JPRB,0.34620E+00_JPRB /)  
+KA(:, 3, 3,13) = (/ &
+ & 0.42551E+00_JPRB,0.37419E+00_JPRB,0.32362E+00_JPRB,0.27772E+00_JPRB,0.26799E+00_JPRB, &
+ & 0.26571E+00_JPRB,0.27096E+00_JPRB,0.30422E+00_JPRB,0.34240E+00_JPRB /)  
+KA(:, 4, 3,13) = (/ &
+ & 0.42038E+00_JPRB,0.37000E+00_JPRB,0.32049E+00_JPRB,0.27494E+00_JPRB,0.26498E+00_JPRB, &
+ & 0.26183E+00_JPRB,0.26698E+00_JPRB,0.30136E+00_JPRB,0.33931E+00_JPRB /)  
+KA(:, 5, 3,13) = (/ &
+ & 0.41446E+00_JPRB,0.36533E+00_JPRB,0.31734E+00_JPRB,0.27304E+00_JPRB,0.26234E+00_JPRB, &
+ & 0.25777E+00_JPRB,0.26380E+00_JPRB,0.29913E+00_JPRB,0.33705E+00_JPRB /)  
+KA(:, 1, 4,13) = (/ &
+ & 0.46241E+00_JPRB,0.40571E+00_JPRB,0.34961E+00_JPRB,0.30954E+00_JPRB,0.30425E+00_JPRB, &
+ & 0.29507E+00_JPRB,0.29890E+00_JPRB,0.33301E+00_JPRB,0.37827E+00_JPRB /)  
+KA(:, 2, 4,13) = (/ &
+ & 0.45465E+00_JPRB,0.39923E+00_JPRB,0.34450E+00_JPRB,0.30510E+00_JPRB,0.30124E+00_JPRB, &
+ & 0.29145E+00_JPRB,0.29516E+00_JPRB,0.32984E+00_JPRB,0.37410E+00_JPRB /)  
+KA(:, 3, 4,13) = (/ &
+ & 0.44872E+00_JPRB,0.39432E+00_JPRB,0.34072E+00_JPRB,0.30104E+00_JPRB,0.29841E+00_JPRB, &
+ & 0.28758E+00_JPRB,0.29090E+00_JPRB,0.32641E+00_JPRB,0.36986E+00_JPRB /)  
+KA(:, 4, 4,13) = (/ &
+ & 0.44350E+00_JPRB,0.39014E+00_JPRB,0.33810E+00_JPRB,0.29814E+00_JPRB,0.29548E+00_JPRB, &
+ & 0.28294E+00_JPRB,0.28676E+00_JPRB,0.32342E+00_JPRB,0.36667E+00_JPRB /)  
+KA(:, 5, 4,13) = (/ &
+ & 0.43828E+00_JPRB,0.38609E+00_JPRB,0.33570E+00_JPRB,0.29627E+00_JPRB,0.29269E+00_JPRB, &
+ & 0.27870E+00_JPRB,0.28357E+00_JPRB,0.32115E+00_JPRB,0.36426E+00_JPRB /)  
+KA(:, 1, 5,13) = (/ &
+ & 0.48784E+00_JPRB,0.42784E+00_JPRB,0.36835E+00_JPRB,0.33984E+00_JPRB,0.33294E+00_JPRB, &
+ & 0.31846E+00_JPRB,0.32126E+00_JPRB,0.35651E+00_JPRB,0.40621E+00_JPRB /)  
+KA(:, 2, 5,13) = (/ &
+ & 0.48030E+00_JPRB,0.42153E+00_JPRB,0.36340E+00_JPRB,0.33519E+00_JPRB,0.32973E+00_JPRB, &
+ & 0.31380E+00_JPRB,0.31683E+00_JPRB,0.35311E+00_JPRB,0.40187E+00_JPRB /)  
+KA(:, 3, 5,13) = (/ &
+ & 0.47411E+00_JPRB,0.41636E+00_JPRB,0.35974E+00_JPRB,0.33136E+00_JPRB,0.32664E+00_JPRB, &
+ & 0.30892E+00_JPRB,0.31220E+00_JPRB,0.34964E+00_JPRB,0.39763E+00_JPRB /)  
+KA(:, 4, 5,13) = (/ &
+ & 0.46883E+00_JPRB,0.41227E+00_JPRB,0.35745E+00_JPRB,0.32776E+00_JPRB,0.32317E+00_JPRB, &
+ & 0.30393E+00_JPRB,0.30777E+00_JPRB,0.34651E+00_JPRB,0.39440E+00_JPRB /)  
+KA(:, 5, 5,13) = (/ &
+ & 0.46388E+00_JPRB,0.40844E+00_JPRB,0.35543E+00_JPRB,0.32520E+00_JPRB,0.31964E+00_JPRB, &
+ & 0.29971E+00_JPRB,0.30439E+00_JPRB,0.34429E+00_JPRB,0.39205E+00_JPRB /)  
+KA(:, 1, 6,13) = (/ &
+ & 0.51535E+00_JPRB,0.45180E+00_JPRB,0.39162E+00_JPRB,0.37322E+00_JPRB,0.36050E+00_JPRB, &
+ & 0.34300E+00_JPRB,0.34505E+00_JPRB,0.38137E+00_JPRB,0.43538E+00_JPRB /)  
+KA(:, 2, 6,13) = (/ &
+ & 0.50781E+00_JPRB,0.44545E+00_JPRB,0.38586E+00_JPRB,0.36868E+00_JPRB,0.35573E+00_JPRB, &
+ & 0.33760E+00_JPRB,0.34025E+00_JPRB,0.37783E+00_JPRB,0.43095E+00_JPRB /)  
+KA(:, 3, 6,13) = (/ &
+ & 0.50139E+00_JPRB,0.44011E+00_JPRB,0.38148E+00_JPRB,0.36480E+00_JPRB,0.35183E+00_JPRB, &
+ & 0.33217E+00_JPRB,0.33546E+00_JPRB,0.37434E+00_JPRB,0.42674E+00_JPRB /)  
+KA(:, 4, 6,13) = (/ &
+ & 0.49657E+00_JPRB,0.43636E+00_JPRB,0.37891E+00_JPRB,0.36116E+00_JPRB,0.34800E+00_JPRB, &
+ & 0.32704E+00_JPRB,0.33102E+00_JPRB,0.37152E+00_JPRB,0.42385E+00_JPRB /)  
+KA(:, 5, 6,13) = (/ &
+ & 0.49171E+00_JPRB,0.43263E+00_JPRB,0.37693E+00_JPRB,0.35827E+00_JPRB,0.34376E+00_JPRB, &
+ & 0.32320E+00_JPRB,0.32782E+00_JPRB,0.36976E+00_JPRB,0.42188E+00_JPRB /)  
+KA(:, 1, 7,13) = (/ &
+ & 0.54162E+00_JPRB,0.47464E+00_JPRB,0.41834E+00_JPRB,0.40782E+00_JPRB,0.38721E+00_JPRB, &
+ & 0.36824E+00_JPRB,0.37067E+00_JPRB,0.40670E+00_JPRB,0.46460E+00_JPRB /)  
+KA(:, 2, 7,13) = (/ &
+ & 0.53535E+00_JPRB,0.46937E+00_JPRB,0.41220E+00_JPRB,0.40296E+00_JPRB,0.38145E+00_JPRB, &
+ & 0.36278E+00_JPRB,0.36581E+00_JPRB,0.40309E+00_JPRB,0.46013E+00_JPRB /)  
+KA(:, 3, 7,13) = (/ &
+ & 0.52914E+00_JPRB,0.46429E+00_JPRB,0.40710E+00_JPRB,0.39788E+00_JPRB,0.37673E+00_JPRB, &
+ & 0.35819E+00_JPRB,0.36078E+00_JPRB,0.40008E+00_JPRB,0.45678E+00_JPRB /)  
+KA(:, 4, 7,13) = (/ &
+ & 0.52440E+00_JPRB,0.46050E+00_JPRB,0.40384E+00_JPRB,0.39374E+00_JPRB,0.37204E+00_JPRB, &
+ & 0.35371E+00_JPRB,0.35616E+00_JPRB,0.39775E+00_JPRB,0.45424E+00_JPRB /)  
+KA(:, 5, 7,13) = (/ &
+ & 0.52017E+00_JPRB,0.45722E+00_JPRB,0.40132E+00_JPRB,0.39030E+00_JPRB,0.36733E+00_JPRB, &
+ & 0.34991E+00_JPRB,0.35252E+00_JPRB,0.39600E+00_JPRB,0.45213E+00_JPRB /)  
+KA(:, 1, 8,13) = (/ &
+ & 0.56560E+00_JPRB,0.49547E+00_JPRB,0.44792E+00_JPRB,0.43980E+00_JPRB,0.41568E+00_JPRB, &
+ & 0.39571E+00_JPRB,0.39516E+00_JPRB,0.42687E+00_JPRB,0.48767E+00_JPRB /)  
+KA(:, 2, 8,13) = (/ &
+ & 0.55986E+00_JPRB,0.49068E+00_JPRB,0.44130E+00_JPRB,0.43344E+00_JPRB,0.40921E+00_JPRB, &
+ & 0.39033E+00_JPRB,0.39006E+00_JPRB,0.42429E+00_JPRB,0.48458E+00_JPRB /)  
+KA(:, 3, 8,13) = (/ &
+ & 0.55439E+00_JPRB,0.48622E+00_JPRB,0.43604E+00_JPRB,0.42727E+00_JPRB,0.40340E+00_JPRB, &
+ & 0.38637E+00_JPRB,0.38517E+00_JPRB,0.42255E+00_JPRB,0.48243E+00_JPRB /)  
+KA(:, 4, 8,13) = (/ &
+ & 0.55085E+00_JPRB,0.48344E+00_JPRB,0.43251E+00_JPRB,0.42285E+00_JPRB,0.39791E+00_JPRB, &
+ & 0.38219E+00_JPRB,0.38096E+00_JPRB,0.42076E+00_JPRB,0.48039E+00_JPRB /)  
+KA(:, 5, 8,13) = (/ &
+ & 0.54722E+00_JPRB,0.48060E+00_JPRB,0.42969E+00_JPRB,0.41964E+00_JPRB,0.39283E+00_JPRB, &
+ & 0.37840E+00_JPRB,0.37699E+00_JPRB,0.41955E+00_JPRB,0.47894E+00_JPRB /)  
+KA(:, 1, 9,13) = (/ &
+ & 0.58672E+00_JPRB,0.51388E+00_JPRB,0.47909E+00_JPRB,0.46769E+00_JPRB,0.44479E+00_JPRB, &
+ & 0.42421E+00_JPRB,0.41694E+00_JPRB,0.44339E+00_JPRB,0.50662E+00_JPRB /)  
+KA(:, 2, 9,13) = (/ &
+ & 0.58159E+00_JPRB,0.50951E+00_JPRB,0.47213E+00_JPRB,0.46028E+00_JPRB,0.43736E+00_JPRB, &
+ & 0.41895E+00_JPRB,0.41246E+00_JPRB,0.44257E+00_JPRB,0.50550E+00_JPRB /)  
+KA(:, 3, 9,13) = (/ &
+ & 0.57736E+00_JPRB,0.50610E+00_JPRB,0.46657E+00_JPRB,0.45431E+00_JPRB,0.43100E+00_JPRB, &
+ & 0.41543E+00_JPRB,0.40868E+00_JPRB,0.44206E+00_JPRB,0.50480E+00_JPRB /)  
+KA(:, 4, 9,13) = (/ &
+ & 0.57459E+00_JPRB,0.50394E+00_JPRB,0.46330E+00_JPRB,0.44994E+00_JPRB,0.42562E+00_JPRB, &
+ & 0.41143E+00_JPRB,0.40432E+00_JPRB,0.44089E+00_JPRB,0.50333E+00_JPRB /)  
+KA(:, 5, 9,13) = (/ &
+ & 0.57136E+00_JPRB,0.50148E+00_JPRB,0.46136E+00_JPRB,0.44665E+00_JPRB,0.42115E+00_JPRB, &
+ & 0.40792E+00_JPRB,0.40001E+00_JPRB,0.43966E+00_JPRB,0.50186E+00_JPRB /)  
+KA(:, 1,10,13) = (/ &
+ & 0.60279E+00_JPRB,0.52914E+00_JPRB,0.50725E+00_JPRB,0.49385E+00_JPRB,0.47296E+00_JPRB, &
+ & 0.45056E+00_JPRB,0.43650E+00_JPRB,0.45649E+00_JPRB,0.52069E+00_JPRB /)  
+KA(:, 2,10,13) = (/ &
+ & 0.59826E+00_JPRB,0.52452E+00_JPRB,0.50048E+00_JPRB,0.48635E+00_JPRB,0.46511E+00_JPRB, &
+ & 0.44618E+00_JPRB,0.43278E+00_JPRB,0.45737E+00_JPRB,0.52170E+00_JPRB /)  
+KA(:, 3,10,13) = (/ &
+ & 0.59590E+00_JPRB,0.52228E+00_JPRB,0.49610E+00_JPRB,0.47997E+00_JPRB,0.45903E+00_JPRB, &
+ & 0.44309E+00_JPRB,0.42962E+00_JPRB,0.45759E+00_JPRB,0.52208E+00_JPRB /)  
+KA(:, 4,10,13) = (/ &
+ & 0.59454E+00_JPRB,0.52120E+00_JPRB,0.49388E+00_JPRB,0.47548E+00_JPRB,0.45447E+00_JPRB, &
+ & 0.44006E+00_JPRB,0.42512E+00_JPRB,0.45631E+00_JPRB,0.52061E+00_JPRB /)  
+KA(:, 5,10,13) = (/ &
+ & 0.59357E+00_JPRB,0.52070E+00_JPRB,0.49246E+00_JPRB,0.47250E+00_JPRB,0.45028E+00_JPRB, &
+ & 0.43610E+00_JPRB,0.42114E+00_JPRB,0.45529E+00_JPRB,0.51951E+00_JPRB /)  
+KA(:, 1,11,13) = (/ &
+ & 0.60887E+00_JPRB,0.53839E+00_JPRB,0.52807E+00_JPRB,0.51587E+00_JPRB,0.49623E+00_JPRB, &
+ & 0.47362E+00_JPRB,0.45440E+00_JPRB,0.46645E+00_JPRB,0.53001E+00_JPRB /)  
+KA(:, 2,11,13) = (/ &
+ & 0.60756E+00_JPRB,0.53578E+00_JPRB,0.52411E+00_JPRB,0.50806E+00_JPRB,0.48992E+00_JPRB, &
+ & 0.47089E+00_JPRB,0.45204E+00_JPRB,0.46808E+00_JPRB,0.53215E+00_JPRB /)  
+KA(:, 3,11,13) = (/ &
+ & 0.60793E+00_JPRB,0.53524E+00_JPRB,0.52214E+00_JPRB,0.50280E+00_JPRB,0.48540E+00_JPRB, &
+ & 0.46881E+00_JPRB,0.44770E+00_JPRB,0.46764E+00_JPRB,0.53195E+00_JPRB /)  
+KA(:, 4,11,13) = (/ &
+ & 0.60970E+00_JPRB,0.53618E+00_JPRB,0.52106E+00_JPRB,0.49960E+00_JPRB,0.48160E+00_JPRB, &
+ & 0.46481E+00_JPRB,0.44371E+00_JPRB,0.46667E+00_JPRB,0.53096E+00_JPRB /)  
+KA(:, 5,11,13) = (/ &
+ & 0.61038E+00_JPRB,0.53650E+00_JPRB,0.52014E+00_JPRB,0.49804E+00_JPRB,0.47818E+00_JPRB, &
+ & 0.45984E+00_JPRB,0.44017E+00_JPRB,0.46579E+00_JPRB,0.53008E+00_JPRB /)  
+KA(:, 1,12,13) = (/ &
+ & 0.60957E+00_JPRB,0.54609E+00_JPRB,0.54565E+00_JPRB,0.53521E+00_JPRB,0.51779E+00_JPRB, &
+ & 0.49593E+00_JPRB,0.47189E+00_JPRB,0.47309E+00_JPRB,0.46983E+00_JPRB /)  
+KA(:, 2,12,13) = (/ &
+ & 0.61214E+00_JPRB,0.54625E+00_JPRB,0.54367E+00_JPRB,0.52921E+00_JPRB,0.51339E+00_JPRB, &
+ & 0.49443E+00_JPRB,0.46946E+00_JPRB,0.47371E+00_JPRB,0.47545E+00_JPRB /)  
+KA(:, 3,12,13) = (/ &
+ & 0.61642E+00_JPRB,0.54787E+00_JPRB,0.54269E+00_JPRB,0.52579E+00_JPRB,0.50981E+00_JPRB, &
+ & 0.49118E+00_JPRB,0.46605E+00_JPRB,0.47265E+00_JPRB,0.47706E+00_JPRB /)  
+KA(:, 4,12,13) = (/ &
+ & 0.62028E+00_JPRB,0.54980E+00_JPRB,0.54303E+00_JPRB,0.52440E+00_JPRB,0.50697E+00_JPRB, &
+ & 0.48619E+00_JPRB,0.46182E+00_JPRB,0.47123E+00_JPRB,0.48084E+00_JPRB /)  
+KA(:, 5,12,13) = (/ &
+ & 0.62175E+00_JPRB,0.55026E+00_JPRB,0.54305E+00_JPRB,0.52373E+00_JPRB,0.50407E+00_JPRB, &
+ & 0.48153E+00_JPRB,0.45738E+00_JPRB,0.46998E+00_JPRB,0.48415E+00_JPRB /)  
+KA(:, 1,13,13) = (/ &
+ & 0.60459E+00_JPRB,0.55304E+00_JPRB,0.55845E+00_JPRB,0.55195E+00_JPRB,0.53769E+00_JPRB, &
+ & 0.51606E+00_JPRB,0.48661E+00_JPRB,0.47383E+00_JPRB,0.40484E+00_JPRB /)  
+KA(:, 2,13,13) = (/ &
+ & 0.61134E+00_JPRB,0.55569E+00_JPRB,0.55809E+00_JPRB,0.54885E+00_JPRB,0.53426E+00_JPRB, &
+ & 0.51450E+00_JPRB,0.48473E+00_JPRB,0.47289E+00_JPRB,0.40823E+00_JPRB /)  
+KA(:, 3,13,13) = (/ &
+ & 0.61890E+00_JPRB,0.55963E+00_JPRB,0.55924E+00_JPRB,0.54802E+00_JPRB,0.53230E+00_JPRB, &
+ & 0.51039E+00_JPRB,0.48075E+00_JPRB,0.47078E+00_JPRB,0.41355E+00_JPRB /)  
+KA(:, 4,13,13) = (/ &
+ & 0.62388E+00_JPRB,0.56213E+00_JPRB,0.56099E+00_JPRB,0.54740E+00_JPRB,0.52999E+00_JPRB, &
+ & 0.50582E+00_JPRB,0.47603E+00_JPRB,0.46901E+00_JPRB,0.41977E+00_JPRB /)  
+KA(:, 5,13,13) = (/ &
+ & 0.62688E+00_JPRB,0.56314E+00_JPRB,0.56152E+00_JPRB,0.54685E+00_JPRB,0.52723E+00_JPRB, &
+ & 0.50138E+00_JPRB,0.47115E+00_JPRB,0.46700E+00_JPRB,0.42405E+00_JPRB /)  
+KA(:, 1, 1,14) = (/ &
+ & 0.52445E+00_JPRB,0.46003E+00_JPRB,0.39566E+00_JPRB,0.33139E+00_JPRB,0.26995E+00_JPRB, &
+ & 0.25837E+00_JPRB,0.28528E+00_JPRB,0.32819E+00_JPRB,0.35568E+00_JPRB /)  
+KA(:, 2, 1,14) = (/ &
+ & 0.51513E+00_JPRB,0.45183E+00_JPRB,0.38858E+00_JPRB,0.32553E+00_JPRB,0.26784E+00_JPRB, &
+ & 0.25515E+00_JPRB,0.28229E+00_JPRB,0.32456E+00_JPRB,0.35149E+00_JPRB /)  
+KA(:, 3, 1,14) = (/ &
+ & 0.50548E+00_JPRB,0.44334E+00_JPRB,0.38125E+00_JPRB,0.32054E+00_JPRB,0.26590E+00_JPRB, &
+ & 0.25305E+00_JPRB,0.28136E+00_JPRB,0.32218E+00_JPRB,0.34858E+00_JPRB /)  
+KA(:, 4, 1,14) = (/ &
+ & 0.49563E+00_JPRB,0.43466E+00_JPRB,0.37374E+00_JPRB,0.31559E+00_JPRB,0.26350E+00_JPRB, &
+ & 0.25115E+00_JPRB,0.28088E+00_JPRB,0.32077E+00_JPRB,0.34651E+00_JPRB /)  
+KA(:, 5, 1,14) = (/ &
+ & 0.48636E+00_JPRB,0.42650E+00_JPRB,0.36724E+00_JPRB,0.31119E+00_JPRB,0.26146E+00_JPRB, &
+ & 0.24908E+00_JPRB,0.27907E+00_JPRB,0.31920E+00_JPRB,0.34392E+00_JPRB /)  
+KA(:, 1, 2,14) = (/ &
+ & 0.56575E+00_JPRB,0.49609E+00_JPRB,0.42647E+00_JPRB,0.35691E+00_JPRB,0.29788E+00_JPRB, &
+ & 0.29937E+00_JPRB,0.33584E+00_JPRB,0.38701E+00_JPRB,0.42822E+00_JPRB /)  
+KA(:, 2, 2,14) = (/ &
+ & 0.55481E+00_JPRB,0.48648E+00_JPRB,0.41819E+00_JPRB,0.35023E+00_JPRB,0.29393E+00_JPRB, &
+ & 0.29578E+00_JPRB,0.33190E+00_JPRB,0.38233E+00_JPRB,0.42282E+00_JPRB /)  
+KA(:, 3, 2,14) = (/ &
+ & 0.54468E+00_JPRB,0.47756E+00_JPRB,0.41048E+00_JPRB,0.34498E+00_JPRB,0.29076E+00_JPRB, &
+ & 0.29330E+00_JPRB,0.33000E+00_JPRB,0.37899E+00_JPRB,0.41892E+00_JPRB /)  
+KA(:, 4, 2,14) = (/ &
+ & 0.53444E+00_JPRB,0.46857E+00_JPRB,0.40281E+00_JPRB,0.34010E+00_JPRB,0.28772E+00_JPRB, &
+ & 0.29117E+00_JPRB,0.32899E+00_JPRB,0.37674E+00_JPRB,0.41581E+00_JPRB /)  
+KA(:, 5, 2,14) = (/ &
+ & 0.52472E+00_JPRB,0.46000E+00_JPRB,0.39601E+00_JPRB,0.33543E+00_JPRB,0.28544E+00_JPRB, &
+ & 0.28841E+00_JPRB,0.32728E+00_JPRB,0.37488E+00_JPRB,0.41300E+00_JPRB /)  
+KA(:, 1, 3,14) = (/ &
+ & 0.61401E+00_JPRB,0.53826E+00_JPRB,0.46254E+00_JPRB,0.38687E+00_JPRB,0.33653E+00_JPRB, &
+ & 0.34874E+00_JPRB,0.39278E+00_JPRB,0.45331E+00_JPRB,0.51178E+00_JPRB /)  
+KA(:, 2, 3,14) = (/ &
+ & 0.60181E+00_JPRB,0.52754E+00_JPRB,0.45329E+00_JPRB,0.37917E+00_JPRB,0.33018E+00_JPRB, &
+ & 0.34432E+00_JPRB,0.38762E+00_JPRB,0.44735E+00_JPRB,0.50487E+00_JPRB /)  
+KA(:, 3, 3,14) = (/ &
+ & 0.59018E+00_JPRB,0.51732E+00_JPRB,0.44448E+00_JPRB,0.37278E+00_JPRB,0.32516E+00_JPRB, &
+ & 0.34086E+00_JPRB,0.38493E+00_JPRB,0.44336E+00_JPRB,0.50014E+00_JPRB /)  
+KA(:, 4, 3,14) = (/ &
+ & 0.57893E+00_JPRB,0.50743E+00_JPRB,0.43595E+00_JPRB,0.36714E+00_JPRB,0.32113E+00_JPRB, &
+ & 0.33824E+00_JPRB,0.38315E+00_JPRB,0.44016E+00_JPRB,0.49598E+00_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART9',1,ZHOOK_HANDLE)
+END SUBROUTINE PART9
+
+
+SUBROUTINE PART10
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART10',0,ZHOOK_HANDLE)
+
+
+KA(:, 5, 3,14) = (/ &
+ & 0.56842E+00_JPRB,0.49818E+00_JPRB,0.42822E+00_JPRB,0.36203E+00_JPRB,0.31748E+00_JPRB, &
+ & 0.33494E+00_JPRB,0.38145E+00_JPRB,0.43774E+00_JPRB,0.49238E+00_JPRB /)  
+KA(:, 1, 4,14) = (/ &
+ & 0.66683E+00_JPRB,0.58444E+00_JPRB,0.50208E+00_JPRB,0.41977E+00_JPRB,0.38494E+00_JPRB, &
+ & 0.40485E+00_JPRB,0.45417E+00_JPRB,0.52508E+00_JPRB,0.59839E+00_JPRB /)  
+KA(:, 2, 4,14) = (/ &
+ & 0.65354E+00_JPRB,0.57275E+00_JPRB,0.49199E+00_JPRB,0.41128E+00_JPRB,0.37591E+00_JPRB, &
+ & 0.39916E+00_JPRB,0.44835E+00_JPRB,0.51820E+00_JPRB,0.59043E+00_JPRB /)  
+KA(:, 3, 4,14) = (/ &
+ & 0.64071E+00_JPRB,0.56148E+00_JPRB,0.48227E+00_JPRB,0.40388E+00_JPRB,0.36879E+00_JPRB, &
+ & 0.39404E+00_JPRB,0.44465E+00_JPRB,0.51320E+00_JPRB,0.58464E+00_JPRB /)  
+KA(:, 4, 4,14) = (/ &
+ & 0.62844E+00_JPRB,0.55070E+00_JPRB,0.47297E+00_JPRB,0.39753E+00_JPRB,0.36329E+00_JPRB, &
+ & 0.39017E+00_JPRB,0.44183E+00_JPRB,0.50881E+00_JPRB,0.57888E+00_JPRB /)  
+KA(:, 5, 4,14) = (/ &
+ & 0.61748E+00_JPRB,0.54106E+00_JPRB,0.46467E+00_JPRB,0.39213E+00_JPRB,0.35832E+00_JPRB, &
+ & 0.38631E+00_JPRB,0.43926E+00_JPRB,0.50522E+00_JPRB,0.57403E+00_JPRB /)  
+KA(:, 1, 5,14) = (/ &
+ & 0.72260E+00_JPRB,0.63317E+00_JPRB,0.54375E+00_JPRB,0.45913E+00_JPRB,0.43732E+00_JPRB, &
+ & 0.46505E+00_JPRB,0.51783E+00_JPRB,0.59954E+00_JPRB,0.68564E+00_JPRB /)  
+KA(:, 2, 5,14) = (/ &
+ & 0.70858E+00_JPRB,0.62085E+00_JPRB,0.53314E+00_JPRB,0.44897E+00_JPRB,0.42823E+00_JPRB, &
+ & 0.45720E+00_JPRB,0.51115E+00_JPRB,0.59162E+00_JPRB,0.67653E+00_JPRB /)  
+KA(:, 3, 5,14) = (/ &
+ & 0.69539E+00_JPRB,0.60926E+00_JPRB,0.52314E+00_JPRB,0.43994E+00_JPRB,0.42099E+00_JPRB, &
+ & 0.45017E+00_JPRB,0.50656E+00_JPRB,0.58542E+00_JPRB,0.66941E+00_JPRB /)  
+KA(:, 4, 5,14) = (/ &
+ & 0.68235E+00_JPRB,0.59780E+00_JPRB,0.51326E+00_JPRB,0.43281E+00_JPRB,0.41557E+00_JPRB, &
+ & 0.44468E+00_JPRB,0.50258E+00_JPRB,0.57996E+00_JPRB,0.66206E+00_JPRB /)  
+KA(:, 5, 5,14) = (/ &
+ & 0.67018E+00_JPRB,0.58711E+00_JPRB,0.50404E+00_JPRB,0.42628E+00_JPRB,0.41131E+00_JPRB, &
+ & 0.43975E+00_JPRB,0.49863E+00_JPRB,0.57477E+00_JPRB,0.65556E+00_JPRB /)  
+KA(:, 1, 6,14) = (/ &
+ & 0.77964E+00_JPRB,0.68298E+00_JPRB,0.58633E+00_JPRB,0.50766E+00_JPRB,0.49641E+00_JPRB, &
+ & 0.52605E+00_JPRB,0.58161E+00_JPRB,0.67425E+00_JPRB,0.77212E+00_JPRB /)  
+KA(:, 2, 6,14) = (/ &
+ & 0.76589E+00_JPRB,0.67092E+00_JPRB,0.57596E+00_JPRB,0.49531E+00_JPRB,0.48834E+00_JPRB, &
+ & 0.51573E+00_JPRB,0.57361E+00_JPRB,0.66493E+00_JPRB,0.76124E+00_JPRB /)  
+KA(:, 3, 6,14) = (/ &
+ & 0.75251E+00_JPRB,0.65917E+00_JPRB,0.56583E+00_JPRB,0.48459E+00_JPRB,0.48115E+00_JPRB, &
+ & 0.50704E+00_JPRB,0.56757E+00_JPRB,0.65686E+00_JPRB,0.75182E+00_JPRB /)  
+KA(:, 4, 6,14) = (/ &
+ & 0.73905E+00_JPRB,0.64728E+00_JPRB,0.55554E+00_JPRB,0.47565E+00_JPRB,0.47497E+00_JPRB, &
+ & 0.50004E+00_JPRB,0.56191E+00_JPRB,0.64957E+00_JPRB,0.74243E+00_JPRB /)  
+KA(:, 5, 6,14) = (/ &
+ & 0.72636E+00_JPRB,0.63608E+00_JPRB,0.54581E+00_JPRB,0.46758E+00_JPRB,0.47009E+00_JPRB, &
+ & 0.49349E+00_JPRB,0.55635E+00_JPRB,0.64252E+00_JPRB,0.73397E+00_JPRB /)  
+KA(:, 1, 7,14) = (/ &
+ & 0.84113E+00_JPRB,0.73668E+00_JPRB,0.63225E+00_JPRB,0.56459E+00_JPRB,0.56168E+00_JPRB, &
+ & 0.58736E+00_JPRB,0.64476E+00_JPRB,0.74759E+00_JPRB,0.85655E+00_JPRB /)  
+KA(:, 2, 7,14) = (/ &
+ & 0.82630E+00_JPRB,0.72365E+00_JPRB,0.62103E+00_JPRB,0.55091E+00_JPRB,0.55367E+00_JPRB, &
+ & 0.57467E+00_JPRB,0.63457E+00_JPRB,0.73605E+00_JPRB,0.84323E+00_JPRB /)  
+KA(:, 3, 7,14) = (/ &
+ & 0.81279E+00_JPRB,0.71173E+00_JPRB,0.61068E+00_JPRB,0.53944E+00_JPRB,0.54564E+00_JPRB, &
+ & 0.56363E+00_JPRB,0.62610E+00_JPRB,0.72557E+00_JPRB,0.83073E+00_JPRB /)  
+KA(:, 4, 7,14) = (/ &
+ & 0.79922E+00_JPRB,0.69978E+00_JPRB,0.60035E+00_JPRB,0.52974E+00_JPRB,0.53833E+00_JPRB, &
+ & 0.55444E+00_JPRB,0.61857E+00_JPRB,0.71625E+00_JPRB,0.81942E+00_JPRB /)  
+KA(:, 5, 7,14) = (/ &
+ & 0.78598E+00_JPRB,0.68814E+00_JPRB,0.59031E+00_JPRB,0.52130E+00_JPRB,0.53249E+00_JPRB, &
+ & 0.54592E+00_JPRB,0.61225E+00_JPRB,0.70842E+00_JPRB,0.80994E+00_JPRB /)  
+KA(:, 1, 8,14) = (/ &
+ & 0.90865E+00_JPRB,0.79552E+00_JPRB,0.68301E+00_JPRB,0.62894E+00_JPRB,0.62980E+00_JPRB, &
+ & 0.64956E+00_JPRB,0.70917E+00_JPRB,0.82179E+00_JPRB,0.94167E+00_JPRB /)  
+KA(:, 2, 8,14) = (/ &
+ & 0.89327E+00_JPRB,0.78202E+00_JPRB,0.67089E+00_JPRB,0.61713E+00_JPRB,0.62095E+00_JPRB, &
+ & 0.63402E+00_JPRB,0.69617E+00_JPRB,0.80717E+00_JPRB,0.92484E+00_JPRB /)  
+KA(:, 3, 8,14) = (/ &
+ & 0.87903E+00_JPRB,0.76952E+00_JPRB,0.66001E+00_JPRB,0.60628E+00_JPRB,0.61235E+00_JPRB, &
+ & 0.62019E+00_JPRB,0.68531E+00_JPRB,0.79440E+00_JPRB,0.90974E+00_JPRB /)  
+KA(:, 4, 8,14) = (/ &
+ & 0.86460E+00_JPRB,0.75687E+00_JPRB,0.64914E+00_JPRB,0.59649E+00_JPRB,0.60349E+00_JPRB, &
+ & 0.60828E+00_JPRB,0.67580E+00_JPRB,0.78318E+00_JPRB,0.89639E+00_JPRB /)  
+KA(:, 5, 8,14) = (/ &
+ & 0.85091E+00_JPRB,0.74488E+00_JPRB,0.63886E+00_JPRB,0.58665E+00_JPRB,0.59566E+00_JPRB, &
+ & 0.59754E+00_JPRB,0.66827E+00_JPRB,0.77422E+00_JPRB,0.88585E+00_JPRB /)  
+KA(:, 1, 9,14) = (/ &
+ & 0.98149E+00_JPRB,0.85912E+00_JPRB,0.74373E+00_JPRB,0.70295E+00_JPRB,0.70214E+00_JPRB, &
+ & 0.71285E+00_JPRB,0.77237E+00_JPRB,0.89352E+00_JPRB,0.10239E+01_JPRB /)  
+KA(:, 2, 9,14) = (/ &
+ & 0.96640E+00_JPRB,0.84589E+00_JPRB,0.73081E+00_JPRB,0.69152E+00_JPRB,0.69170E+00_JPRB, &
+ & 0.69439E+00_JPRB,0.75605E+00_JPRB,0.87558E+00_JPRB,0.10032E+01_JPRB /)  
+KA(:, 3, 9,14) = (/ &
+ & 0.95188E+00_JPRB,0.83316E+00_JPRB,0.71892E+00_JPRB,0.68080E+00_JPRB,0.68028E+00_JPRB, &
+ & 0.67751E+00_JPRB,0.74271E+00_JPRB,0.86004E+00_JPRB,0.98493E+00_JPRB /)  
+KA(:, 4, 9,14) = (/ &
+ & 0.93737E+00_JPRB,0.82045E+00_JPRB,0.70700E+00_JPRB,0.67076E+00_JPRB,0.66785E+00_JPRB, &
+ & 0.66265E+00_JPRB,0.73184E+00_JPRB,0.84775E+00_JPRB,0.97055E+00_JPRB /)  
+KA(:, 5, 9,14) = (/ &
+ & 0.92346E+00_JPRB,0.80828E+00_JPRB,0.69536E+00_JPRB,0.66047E+00_JPRB,0.65652E+00_JPRB, &
+ & 0.65000E+00_JPRB,0.72388E+00_JPRB,0.83863E+00_JPRB,0.95986E+00_JPRB /)  
+KA(:, 1,10,14) = (/ &
+ & 0.10577E+01_JPRB,0.92576E+00_JPRB,0.81364E+00_JPRB,0.78190E+00_JPRB,0.77617E+00_JPRB, &
+ & 0.77603E+00_JPRB,0.83269E+00_JPRB,0.96109E+00_JPRB,0.11008E+01_JPRB /)  
+KA(:, 2,10,14) = (/ &
+ & 0.10450E+01_JPRB,0.91463E+00_JPRB,0.80097E+00_JPRB,0.77046E+00_JPRB,0.76182E+00_JPRB, &
+ & 0.75411E+00_JPRB,0.81384E+00_JPRB,0.94032E+00_JPRB,0.10769E+01_JPRB /)  
+KA(:, 3,10,14) = (/ &
+ & 0.10312E+01_JPRB,0.90248E+00_JPRB,0.78812E+00_JPRB,0.75969E+00_JPRB,0.74632E+00_JPRB, &
+ & 0.73436E+00_JPRB,0.79822E+00_JPRB,0.92300E+00_JPRB,0.10571E+01_JPRB /)  
+KA(:, 4,10,14) = (/ &
+ & 0.10164E+01_JPRB,0.88956E+00_JPRB,0.77444E+00_JPRB,0.74952E+00_JPRB,0.73099E+00_JPRB, &
+ & 0.71729E+00_JPRB,0.78702E+00_JPRB,0.91062E+00_JPRB,0.10426E+01_JPRB /)  
+KA(:, 5,10,14) = (/ &
+ & 0.10010E+01_JPRB,0.87610E+00_JPRB,0.76045E+00_JPRB,0.73747E+00_JPRB,0.71669E+00_JPRB, &
+ & 0.70419E+00_JPRB,0.77819E+00_JPRB,0.90060E+00_JPRB,0.10309E+01_JPRB /)  
+KA(:, 1,11,14) = (/ &
+ & 0.11332E+01_JPRB,0.99169E+00_JPRB,0.88520E+00_JPRB,0.85938E+00_JPRB,0.84171E+00_JPRB, &
+ & 0.82777E+00_JPRB,0.88045E+00_JPRB,0.10119E+01_JPRB,0.11581E+01_JPRB /)  
+KA(:, 2,11,14) = (/ &
+ & 0.11221E+01_JPRB,0.98196E+00_JPRB,0.87210E+00_JPRB,0.84745E+00_JPRB,0.82287E+00_JPRB, &
+ & 0.80383E+00_JPRB,0.86097E+00_JPRB,0.99198E+00_JPRB,0.11355E+01_JPRB /)  
+KA(:, 3,11,14) = (/ &
+ & 0.11079E+01_JPRB,0.96953E+00_JPRB,0.85745E+00_JPRB,0.83492E+00_JPRB,0.80465E+00_JPRB, &
+ & 0.78293E+00_JPRB,0.84710E+00_JPRB,0.97731E+00_JPRB,0.11185E+01_JPRB /)  
+KA(:, 4,11,14) = (/ &
+ & 0.10888E+01_JPRB,0.95287E+00_JPRB,0.84018E+00_JPRB,0.82112E+00_JPRB,0.78666E+00_JPRB, &
+ & 0.76752E+00_JPRB,0.83583E+00_JPRB,0.96514E+00_JPRB,0.11044E+01_JPRB /)  
+KA(:, 5,11,14) = (/ &
+ & 0.10701E+01_JPRB,0.93668E+00_JPRB,0.82311E+00_JPRB,0.80490E+00_JPRB,0.77024E+00_JPRB, &
+ & 0.75616E+00_JPRB,0.82679E+00_JPRB,0.95569E+00_JPRB,0.10935E+01_JPRB /)  
+KA(:, 1,12,14) = (/ &
+ & 0.12101E+01_JPRB,0.10589E+01_JPRB,0.96254E+00_JPRB,0.93478E+00_JPRB,0.90424E+00_JPRB, &
+ & 0.88111E+00_JPRB,0.92612E+00_JPRB,0.10566E+01_JPRB,0.12084E+01_JPRB /)  
+KA(:, 2,12,14) = (/ &
+ & 0.11952E+01_JPRB,0.10459E+01_JPRB,0.94639E+00_JPRB,0.91979E+00_JPRB,0.88299E+00_JPRB, &
+ & 0.85667E+00_JPRB,0.90737E+00_JPRB,0.10393E+01_JPRB,0.11885E+01_JPRB /)  
+KA(:, 3,12,14) = (/ &
+ & 0.11758E+01_JPRB,0.10290E+01_JPRB,0.92827E+00_JPRB,0.90412E+00_JPRB,0.86234E+00_JPRB, &
+ & 0.83719E+00_JPRB,0.89320E+00_JPRB,0.10260E+01_JPRB,0.11732E+01_JPRB /)  
+KA(:, 4,12,14) = (/ &
+ & 0.11552E+01_JPRB,0.10111E+01_JPRB,0.90821E+00_JPRB,0.88659E+00_JPRB,0.84346E+00_JPRB, &
+ & 0.82327E+00_JPRB,0.88324E+00_JPRB,0.10165E+01_JPRB,0.11624E+01_JPRB /)  
+KA(:, 5,12,14) = (/ &
+ & 0.11370E+01_JPRB,0.99527E+00_JPRB,0.88941E+00_JPRB,0.86803E+00_JPRB,0.82686E+00_JPRB, &
+ & 0.81098E+00_JPRB,0.87502E+00_JPRB,0.10085E+01_JPRB,0.11531E+01_JPRB /)  
+KA(:, 1,13,14) = (/ &
+ & 0.12761E+01_JPRB,0.11169E+01_JPRB,0.10366E+01_JPRB,0.10056E+01_JPRB,0.96619E+00_JPRB, &
+ & 0.93741E+00_JPRB,0.96971E+00_JPRB,0.10971E+01_JPRB,0.12455E+01_JPRB /)  
+KA(:, 2,13,14) = (/ &
+ & 0.12590E+01_JPRB,0.11018E+01_JPRB,0.10193E+01_JPRB,0.98827E+00_JPRB,0.94401E+00_JPRB, &
+ & 0.91331E+00_JPRB,0.95200E+00_JPRB,0.10824E+01_JPRB,0.12321E+01_JPRB /)  
+KA(:, 3,13,14) = (/ &
+ & 0.12382E+01_JPRB,0.10836E+01_JPRB,0.99864E+00_JPRB,0.96922E+00_JPRB,0.92237E+00_JPRB, &
+ & 0.89570E+00_JPRB,0.94013E+00_JPRB,0.10732E+01_JPRB,0.12212E+01_JPRB /)  
+KA(:, 4,13,14) = (/ &
+ & 0.12192E+01_JPRB,0.10671E+01_JPRB,0.97718E+00_JPRB,0.94975E+00_JPRB,0.90316E+00_JPRB, &
+ & 0.88110E+00_JPRB,0.93100E+00_JPRB,0.10658E+01_JPRB,0.12124E+01_JPRB /)  
+KA(:, 5,13,14) = (/ &
+ & 0.12013E+01_JPRB,0.10515E+01_JPRB,0.95818E+00_JPRB,0.93022E+00_JPRB,0.88690E+00_JPRB, &
+ & 0.86844E+00_JPRB,0.92401E+00_JPRB,0.10605E+01_JPRB,0.12064E+01_JPRB /)  
+KA(:, 1, 1,15) = (/ &
+ & 0.70834E+00_JPRB,0.62203E+00_JPRB,0.53582E+00_JPRB,0.44981E+00_JPRB,0.36430E+00_JPRB, &
+ & 0.30456E+00_JPRB,0.33772E+00_JPRB,0.39113E+00_JPRB,0.42417E+00_JPRB /)  
+KA(:, 2, 1,15) = (/ &
+ & 0.69132E+00_JPRB,0.60682E+00_JPRB,0.52239E+00_JPRB,0.43815E+00_JPRB,0.35442E+00_JPRB, &
+ & 0.29618E+00_JPRB,0.32847E+00_JPRB,0.37897E+00_JPRB,0.41053E+00_JPRB /)  
+KA(:, 3, 1,15) = (/ &
+ & 0.67551E+00_JPRB,0.59273E+00_JPRB,0.51002E+00_JPRB,0.42746E+00_JPRB,0.34540E+00_JPRB, &
+ & 0.29170E+00_JPRB,0.32190E+00_JPRB,0.37054E+00_JPRB,0.40056E+00_JPRB /)  
+KA(:, 4, 1,15) = (/ &
+ & 0.65954E+00_JPRB,0.57855E+00_JPRB,0.49762E+00_JPRB,0.41681E+00_JPRB,0.33774E+00_JPRB, &
+ & 0.29058E+00_JPRB,0.31932E+00_JPRB,0.36553E+00_JPRB,0.39416E+00_JPRB /)  
+KA(:, 5, 1,15) = (/ &
+ & 0.64426E+00_JPRB,0.56502E+00_JPRB,0.48582E+00_JPRB,0.40671E+00_JPRB,0.33237E+00_JPRB, &
+ & 0.29156E+00_JPRB,0.32280E+00_JPRB,0.36526E+00_JPRB,0.39257E+00_JPRB /)  
+KA(:, 1, 2,15) = (/ &
+ & 0.79278E+00_JPRB,0.69566E+00_JPRB,0.59863E+00_JPRB,0.50180E+00_JPRB,0.40547E+00_JPRB, &
+ & 0.36074E+00_JPRB,0.40858E+00_JPRB,0.47363E+00_JPRB,0.52463E+00_JPRB /)  
+KA(:, 2, 2,15) = (/ &
+ & 0.77384E+00_JPRB,0.67879E+00_JPRB,0.58381E+00_JPRB,0.48896E+00_JPRB,0.39453E+00_JPRB, &
+ & 0.34912E+00_JPRB,0.39677E+00_JPRB,0.45884E+00_JPRB,0.50797E+00_JPRB /)  
+KA(:, 3, 2,15) = (/ &
+ & 0.75601E+00_JPRB,0.66296E+00_JPRB,0.56995E+00_JPRB,0.47701E+00_JPRB,0.38437E+00_JPRB, &
+ & 0.34005E+00_JPRB,0.38826E+00_JPRB,0.44800E+00_JPRB,0.49524E+00_JPRB /)  
+KA(:, 4, 2,15) = (/ &
+ & 0.73809E+00_JPRB,0.64708E+00_JPRB,0.55610E+00_JPRB,0.46517E+00_JPRB,0.37616E+00_JPRB, &
+ & 0.33560E+00_JPRB,0.38277E+00_JPRB,0.44095E+00_JPRB,0.48660E+00_JPRB /)  
+KA(:, 5, 2,15) = (/ &
+ & 0.72001E+00_JPRB,0.63111E+00_JPRB,0.54222E+00_JPRB,0.45336E+00_JPRB,0.36992E+00_JPRB, &
+ & 0.33536E+00_JPRB,0.38227E+00_JPRB,0.43734E+00_JPRB,0.48144E+00_JPRB /)  
+KA(:, 1, 3,15) = (/ &
+ & 0.88640E+00_JPRB,0.77731E+00_JPRB,0.66826E+00_JPRB,0.55931E+00_JPRB,0.45077E+00_JPRB, &
+ & 0.42993E+00_JPRB,0.49594E+00_JPRB,0.57510E+00_JPRB,0.65079E+00_JPRB /)  
+KA(:, 2, 3,15) = (/ &
+ & 0.86545E+00_JPRB,0.75870E+00_JPRB,0.65198E+00_JPRB,0.54530E+00_JPRB,0.43919E+00_JPRB, &
+ & 0.41467E+00_JPRB,0.48152E+00_JPRB,0.55764E+00_JPRB,0.63093E+00_JPRB /)  
+KA(:, 3, 3,15) = (/ &
+ & 0.84484E+00_JPRB,0.74046E+00_JPRB,0.63609E+00_JPRB,0.53174E+00_JPRB,0.42841E+00_JPRB, &
+ & 0.40263E+00_JPRB,0.47018E+00_JPRB,0.54358E+00_JPRB,0.61450E+00_JPRB /)  
+KA(:, 4, 3,15) = (/ &
+ & 0.82484E+00_JPRB,0.72279E+00_JPRB,0.62074E+00_JPRB,0.51870E+00_JPRB,0.41933E+00_JPRB, &
+ & 0.39440E+00_JPRB,0.46214E+00_JPRB,0.53355E+00_JPRB,0.60235E+00_JPRB /)  
+KA(:, 5, 3,15) = (/ &
+ & 0.80403E+00_JPRB,0.70444E+00_JPRB,0.60484E+00_JPRB,0.50526E+00_JPRB,0.41249E+00_JPRB, &
+ & 0.39177E+00_JPRB,0.45674E+00_JPRB,0.52614E+00_JPRB,0.59324E+00_JPRB /)  
+KA(:, 1, 4,15) = (/ &
+ & 0.98775E+00_JPRB,0.86568E+00_JPRB,0.74362E+00_JPRB,0.62157E+00_JPRB,0.50893E+00_JPRB, &
+ & 0.51227E+00_JPRB,0.60104E+00_JPRB,0.69710E+00_JPRB,0.79722E+00_JPRB /)  
+KA(:, 2, 4,15) = (/ &
+ & 0.96448E+00_JPRB,0.84510E+00_JPRB,0.72572E+00_JPRB,0.60634E+00_JPRB,0.49496E+00_JPRB, &
+ & 0.49365E+00_JPRB,0.58337E+00_JPRB,0.67615E+00_JPRB,0.77326E+00_JPRB /)  
+KA(:, 3, 4,15) = (/ &
+ & 0.94121E+00_JPRB,0.82456E+00_JPRB,0.70790E+00_JPRB,0.59124E+00_JPRB,0.48214E+00_JPRB, &
+ & 0.47977E+00_JPRB,0.56920E+00_JPRB,0.65880E+00_JPRB,0.75281E+00_JPRB /)  
+KA(:, 4, 4,15) = (/ &
+ & 0.91776E+00_JPRB,0.80389E+00_JPRB,0.69002E+00_JPRB,0.57613E+00_JPRB,0.47050E+00_JPRB, &
+ & 0.47009E+00_JPRB,0.55863E+00_JPRB,0.64595E+00_JPRB,0.73761E+00_JPRB /)  
+KA(:, 5, 4,15) = (/ &
+ & 0.89560E+00_JPRB,0.78437E+00_JPRB,0.67314E+00_JPRB,0.56190E+00_JPRB,0.46260E+00_JPRB, &
+ & 0.46419E+00_JPRB,0.55009E+00_JPRB,0.63560E+00_JPRB,0.72526E+00_JPRB /)  
+KA(:, 1, 5,15) = (/ &
+ & 0.10958E+01_JPRB,0.95999E+00_JPRB,0.82419E+00_JPRB,0.68839E+00_JPRB,0.58904E+00_JPRB, &
+ & 0.60909E+00_JPRB,0.72523E+00_JPRB,0.84139E+00_JPRB,0.96623E+00_JPRB /)  
+KA(:, 2, 5,15) = (/ &
+ & 0.10697E+01_JPRB,0.93701E+00_JPRB,0.80427E+00_JPRB,0.67151E+00_JPRB,0.56892E+00_JPRB, &
+ & 0.58963E+00_JPRB,0.70431E+00_JPRB,0.81667E+00_JPRB,0.93800E+00_JPRB /)  
+KA(:, 3, 5,15) = (/ &
+ & 0.10434E+01_JPRB,0.91377E+00_JPRB,0.78415E+00_JPRB,0.65453E+00_JPRB,0.55082E+00_JPRB, &
+ & 0.57510E+00_JPRB,0.68668E+00_JPRB,0.79542E+00_JPRB,0.91311E+00_JPRB /)  
+KA(:, 4, 5,15) = (/ &
+ & 0.10167E+01_JPRB,0.89033E+00_JPRB,0.76393E+00_JPRB,0.63753E+00_JPRB,0.53477E+00_JPRB, &
+ & 0.56392E+00_JPRB,0.67291E+00_JPRB,0.77892E+00_JPRB,0.89383E+00_JPRB /)  
+KA(:, 5, 5,15) = (/ &
+ & 0.99271E+00_JPRB,0.86922E+00_JPRB,0.74573E+00_JPRB,0.62224E+00_JPRB,0.52129E+00_JPRB, &
+ & 0.55503E+00_JPRB,0.66157E+00_JPRB,0.76538E+00_JPRB,0.87797E+00_JPRB /)  
+KA(:, 1, 6,15) = (/ &
+ & 0.12165E+01_JPRB,0.10653E+01_JPRB,0.91421E+00_JPRB,0.76309E+00_JPRB,0.68684E+00_JPRB, &
+ & 0.72751E+00_JPRB,0.87072E+00_JPRB,0.10104E+01_JPRB,0.11626E+01_JPRB /)  
+KA(:, 2, 6,15) = (/ &
+ & 0.11851E+01_JPRB,0.10377E+01_JPRB,0.89038E+00_JPRB,0.74302E+00_JPRB,0.66078E+00_JPRB, &
+ & 0.70740E+00_JPRB,0.84652E+00_JPRB,0.98180E+00_JPRB,0.11298E+01_JPRB /)  
+KA(:, 3, 6,15) = (/ &
+ & 0.11540E+01_JPRB,0.10104E+01_JPRB,0.86680E+00_JPRB,0.72322E+00_JPRB,0.63673E+00_JPRB, &
+ & 0.69046E+00_JPRB,0.82558E+00_JPRB,0.95705E+00_JPRB,0.11007E+01_JPRB /)  
+KA(:, 4, 6,15) = (/ &
+ & 0.11233E+01_JPRB,0.98347E+00_JPRB,0.84364E+00_JPRB,0.70381E+00_JPRB,0.61623E+00_JPRB, &
+ & 0.67656E+00_JPRB,0.80855E+00_JPRB,0.93682E+00_JPRB,0.10775E+01_JPRB /)  
+KA(:, 5, 6,15) = (/ &
+ & 0.10954E+01_JPRB,0.95895E+00_JPRB,0.82254E+00_JPRB,0.68614E+00_JPRB,0.59850E+00_JPRB, &
+ & 0.66513E+00_JPRB,0.79440E+00_JPRB,0.92006E+00_JPRB,0.10579E+01_JPRB /)  
+KA(:, 1, 7,15) = (/ &
+ & 0.13516E+01_JPRB,0.11834E+01_JPRB,0.10152E+01_JPRB,0.84752E+00_JPRB,0.80189E+00_JPRB, &
+ & 0.86751E+00_JPRB,0.10388E+01_JPRB,0.12059E+01_JPRB,0.13885E+01_JPRB /)  
+KA(:, 2, 7,15) = (/ &
+ & 0.13129E+01_JPRB,0.11495E+01_JPRB,0.98601E+00_JPRB,0.82254E+00_JPRB,0.76801E+00_JPRB, &
+ & 0.84476E+00_JPRB,0.10112E+01_JPRB,0.11733E+01_JPRB,0.13510E+01_JPRB /)  
+KA(:, 3, 7,15) = (/ &
+ & 0.12754E+01_JPRB,0.11166E+01_JPRB,0.95771E+00_JPRB,0.79885E+00_JPRB,0.73832E+00_JPRB, &
+ & 0.82499E+00_JPRB,0.98705E+00_JPRB,0.11448E+01_JPRB,0.13179E+01_JPRB /)  
+KA(:, 4, 7,15) = (/ &
+ & 0.12391E+01_JPRB,0.10847E+01_JPRB,0.93032E+00_JPRB,0.77593E+00_JPRB,0.71267E+00_JPRB, &
+ & 0.80837E+00_JPRB,0.96685E+00_JPRB,0.11210E+01_JPRB,0.12906E+01_JPRB /)  
+KA(:, 5, 7,15) = (/ &
+ & 0.12065E+01_JPRB,0.10561E+01_JPRB,0.90576E+00_JPRB,0.75539E+00_JPRB,0.69035E+00_JPRB, &
+ & 0.79409E+00_JPRB,0.94938E+00_JPRB,0.11005E+01_JPRB,0.12668E+01_JPRB /)  
+KA(:, 1, 8,15) = (/ &
+ & 0.14988E+01_JPRB,0.13122E+01_JPRB,0.11257E+01_JPRB,0.95045E+00_JPRB,0.92736E+00_JPRB, &
+ & 0.10268E+01_JPRB,0.12293E+01_JPRB,0.14274E+01_JPRB,0.16436E+01_JPRB /)  
+KA(:, 2, 8,15) = (/ &
+ & 0.14532E+01_JPRB,0.12722E+01_JPRB,0.10913E+01_JPRB,0.91652E+00_JPRB,0.88763E+00_JPRB, &
+ & 0.10018E+01_JPRB,0.11994E+01_JPRB,0.13921E+01_JPRB,0.16030E+01_JPRB /)  
+KA(:, 3, 8,15) = (/ &
+ & 0.14089E+01_JPRB,0.12334E+01_JPRB,0.10579E+01_JPRB,0.88636E+00_JPRB,0.85277E+00_JPRB, &
+ & 0.97910E+00_JPRB,0.11719E+01_JPRB,0.13598E+01_JPRB,0.15656E+01_JPRB /)  
+KA(:, 4, 8,15) = (/ &
+ & 0.13671E+01_JPRB,0.11967E+01_JPRB,0.10263E+01_JPRB,0.85849E+00_JPRB,0.82373E+00_JPRB, &
+ & 0.95955E+00_JPRB,0.11482E+01_JPRB,0.13320E+01_JPRB,0.15338E+01_JPRB /)  
+KA(:, 5, 8,15) = (/ &
+ & 0.13292E+01_JPRB,0.11635E+01_JPRB,0.99774E+00_JPRB,0.83411E+00_JPRB,0.79958E+00_JPRB, &
+ & 0.94221E+00_JPRB,0.11271E+01_JPRB,0.13073E+01_JPRB,0.15052E+01_JPRB /)  
+KA(:, 1, 9,15) = (/ &
+ & 0.16562E+01_JPRB,0.14500E+01_JPRB,0.12437E+01_JPRB,0.10742E+01_JPRB,0.10651E+01_JPRB, &
+ & 0.12070E+01_JPRB,0.14445E+01_JPRB,0.16775E+01_JPRB,0.19311E+01_JPRB /)  
+KA(:, 2, 9,15) = (/ &
+ & 0.16034E+01_JPRB,0.14036E+01_JPRB,0.12039E+01_JPRB,0.10312E+01_JPRB,0.10206E+01_JPRB, &
+ & 0.11791E+01_JPRB,0.14116E+01_JPRB,0.16391E+01_JPRB,0.18869E+01_JPRB /)  
+KA(:, 3, 9,15) = (/ &
+ & 0.15525E+01_JPRB,0.13590E+01_JPRB,0.11655E+01_JPRB,0.99233E+00_JPRB,0.98476E+00_JPRB, &
+ & 0.11530E+01_JPRB,0.13804E+01_JPRB,0.16026E+01_JPRB,0.18449E+01_JPRB /)  
+KA(:, 4, 9,15) = (/ &
+ & 0.15047E+01_JPRB,0.13171E+01_JPRB,0.11295E+01_JPRB,0.95737E+00_JPRB,0.95592E+00_JPRB, &
+ & 0.11301E+01_JPRB,0.13529E+01_JPRB,0.15703E+01_JPRB,0.18077E+01_JPRB /)  
+KA(:, 5, 9,15) = (/ &
+ & 0.14611E+01_JPRB,0.12789E+01_JPRB,0.10967E+01_JPRB,0.92635E+00_JPRB,0.93256E+00_JPRB, &
+ & 0.11088E+01_JPRB,0.13272E+01_JPRB,0.15403E+01_JPRB,0.17730E+01_JPRB /)  
+KA(:, 1,10,15) = (/ &
+ & 0.18225E+01_JPRB,0.15953E+01_JPRB,0.13682E+01_JPRB,0.12131E+01_JPRB,0.12195E+01_JPRB, &
+ & 0.14041E+01_JPRB,0.16789E+01_JPRB,0.19504E+01_JPRB,0.22442E+01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART10',1,ZHOOK_HANDLE)
+END SUBROUTINE PART10
+
+
+SUBROUTINE PART11
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART11',0,ZHOOK_HANDLE)
+
+
+KA(:, 2,10,15) = (/ &
+ & 0.17586E+01_JPRB,0.15393E+01_JPRB,0.13201E+01_JPRB,0.11608E+01_JPRB,0.11760E+01_JPRB, &
+ & 0.13729E+01_JPRB,0.16424E+01_JPRB,0.19078E+01_JPRB,0.21951E+01_JPRB /)  
+KA(:, 3,10,15) = (/ &
+ & 0.16992E+01_JPRB,0.14873E+01_JPRB,0.12754E+01_JPRB,0.11134E+01_JPRB,0.11408E+01_JPRB, &
+ & 0.13430E+01_JPRB,0.16073E+01_JPRB,0.18666E+01_JPRB,0.21480E+01_JPRB /)  
+KA(:, 4,10,15) = (/ &
+ & 0.16453E+01_JPRB,0.14401E+01_JPRB,0.12349E+01_JPRB,0.10705E+01_JPRB,0.11101E+01_JPRB, &
+ & 0.13157E+01_JPRB,0.15751E+01_JPRB,0.18293E+01_JPRB,0.21045E+01_JPRB /)  
+KA(:, 5,10,15) = (/ &
+ & 0.15976E+01_JPRB,0.13983E+01_JPRB,0.11990E+01_JPRB,0.10350E+01_JPRB,0.10845E+01_JPRB, &
+ & 0.12900E+01_JPRB,0.15444E+01_JPRB,0.17936E+01_JPRB,0.20634E+01_JPRB /)  
+KA(:, 1,11,15) = (/ &
+ & 0.19716E+01_JPRB,0.17256E+01_JPRB,0.14797E+01_JPRB,0.13408E+01_JPRB,0.13798E+01_JPRB, &
+ & 0.16011E+01_JPRB,0.19108E+01_JPRB,0.22209E+01_JPRB,0.25534E+01_JPRB /)  
+KA(:, 2,11,15) = (/ &
+ & 0.18980E+01_JPRB,0.16613E+01_JPRB,0.14245E+01_JPRB,0.12841E+01_JPRB,0.13393E+01_JPRB, &
+ & 0.15661E+01_JPRB,0.18703E+01_JPRB,0.21736E+01_JPRB,0.24991E+01_JPRB /)  
+KA(:, 3,11,15) = (/ &
+ & 0.18334E+01_JPRB,0.16046E+01_JPRB,0.13758E+01_JPRB,0.12346E+01_JPRB,0.13019E+01_JPRB, &
+ & 0.15332E+01_JPRB,0.18320E+01_JPRB,0.21288E+01_JPRB,0.24477E+01_JPRB /)  
+KA(:, 4,11,15) = (/ &
+ & 0.17833E+01_JPRB,0.15608E+01_JPRB,0.13382E+01_JPRB,0.11928E+01_JPRB,0.12697E+01_JPRB, &
+ & 0.15019E+01_JPRB,0.17959E+01_JPRB,0.20867E+01_JPRB,0.23990E+01_JPRB /)  
+KA(:, 5,11,15) = (/ &
+ & 0.17385E+01_JPRB,0.15215E+01_JPRB,0.13045E+01_JPRB,0.11584E+01_JPRB,0.12412E+01_JPRB, &
+ & 0.14723E+01_JPRB,0.17610E+01_JPRB,0.20462E+01_JPRB,0.23526E+01_JPRB /)  
+KA(:, 1,12,15) = (/ &
+ & 0.21322E+01_JPRB,0.18661E+01_JPRB,0.16009E+01_JPRB,0.14913E+01_JPRB,0.15626E+01_JPRB, &
+ & 0.18065E+01_JPRB,0.21498E+01_JPRB,0.24997E+01_JPRB,0.28719E+01_JPRB /)  
+KA(:, 2,12,15) = (/ &
+ & 0.20605E+01_JPRB,0.18033E+01_JPRB,0.15462E+01_JPRB,0.14346E+01_JPRB,0.15183E+01_JPRB, &
+ & 0.17679E+01_JPRB,0.21055E+01_JPRB,0.24481E+01_JPRB,0.28126E+01_JPRB /)  
+KA(:, 3,12,15) = (/ &
+ & 0.20007E+01_JPRB,0.17509E+01_JPRB,0.15011E+01_JPRB,0.13841E+01_JPRB,0.14777E+01_JPRB, &
+ & 0.17312E+01_JPRB,0.20634E+01_JPRB,0.23990E+01_JPRB,0.27564E+01_JPRB /)  
+KA(:, 4,12,15) = (/ &
+ & 0.19501E+01_JPRB,0.17066E+01_JPRB,0.14631E+01_JPRB,0.13415E+01_JPRB,0.14420E+01_JPRB, &
+ & 0.16956E+01_JPRB,0.20218E+01_JPRB,0.23506E+01_JPRB,0.27007E+01_JPRB /)  
+KA(:, 5,12,15) = (/ &
+ & 0.19023E+01_JPRB,0.16648E+01_JPRB,0.14272E+01_JPRB,0.13048E+01_JPRB,0.14093E+01_JPRB, &
+ & 0.16619E+01_JPRB,0.19834E+01_JPRB,0.23060E+01_JPRB,0.26492E+01_JPRB /)  
+KA(:, 1,13,15) = (/ &
+ & 0.23283E+01_JPRB,0.20376E+01_JPRB,0.17570E+01_JPRB,0.16678E+01_JPRB,0.17574E+01_JPRB, &
+ & 0.20182E+01_JPRB,0.23943E+01_JPRB,0.27850E+01_JPRB,0.31979E+01_JPRB /)  
+KA(:, 2,13,15) = (/ &
+ & 0.22552E+01_JPRB,0.19735E+01_JPRB,0.16974E+01_JPRB,0.16068E+01_JPRB,0.17079E+01_JPRB, &
+ & 0.19757E+01_JPRB,0.23460E+01_JPRB,0.27289E+01_JPRB,0.31334E+01_JPRB /)  
+KA(:, 3,13,15) = (/ &
+ & 0.21945E+01_JPRB,0.19204E+01_JPRB,0.16488E+01_JPRB,0.15544E+01_JPRB,0.16639E+01_JPRB, &
+ & 0.19336E+01_JPRB,0.22972E+01_JPRB,0.26723E+01_JPRB,0.30681E+01_JPRB /)  
+KA(:, 4,13,15) = (/ &
+ & 0.21377E+01_JPRB,0.18706E+01_JPRB,0.16045E+01_JPRB,0.15082E+01_JPRB,0.16235E+01_JPRB, &
+ & 0.18922E+01_JPRB,0.22504E+01_JPRB,0.26179E+01_JPRB,0.30055E+01_JPRB /)  
+KA(:, 5,13,15) = (/ &
+ & 0.20822E+01_JPRB,0.18221E+01_JPRB,0.15623E+01_JPRB,0.14670E+01_JPRB,0.15845E+01_JPRB, &
+ & 0.18531E+01_JPRB,0.22061E+01_JPRB,0.25663E+01_JPRB,0.29464E+01_JPRB /)  
+KA(:, 1, 1,16) = (/ &
+ & 0.84891E+00_JPRB,0.74682E+00_JPRB,0.64540E+00_JPRB,0.54510E+00_JPRB,0.44671E+00_JPRB, &
+ & 0.34895E+00_JPRB,0.38105E+00_JPRB,0.44177E+00_JPRB,0.47725E+00_JPRB /)  
+KA(:, 2, 1,16) = (/ &
+ & 0.82292E+00_JPRB,0.72425E+00_JPRB,0.62615E+00_JPRB,0.52904E+00_JPRB,0.43334E+00_JPRB, &
+ & 0.33791E+00_JPRB,0.37758E+00_JPRB,0.43769E+00_JPRB,0.47292E+00_JPRB /)  
+KA(:, 3, 1,16) = (/ &
+ & 0.79766E+00_JPRB,0.70221E+00_JPRB,0.60725E+00_JPRB,0.51315E+00_JPRB,0.42001E+00_JPRB, &
+ & 0.32708E+00_JPRB,0.37351E+00_JPRB,0.43297E+00_JPRB,0.46789E+00_JPRB /)  
+KA(:, 4, 1,16) = (/ &
+ & 0.77341E+00_JPRB,0.68098E+00_JPRB,0.58899E+00_JPRB,0.49774E+00_JPRB,0.40711E+00_JPRB, &
+ & 0.31834E+00_JPRB,0.36899E+00_JPRB,0.42775E+00_JPRB,0.46227E+00_JPRB /)  
+KA(:, 5, 1,16) = (/ &
+ & 0.74989E+00_JPRB,0.66035E+00_JPRB,0.57119E+00_JPRB,0.48264E+00_JPRB,0.39437E+00_JPRB, &
+ & 0.32430E+00_JPRB,0.36416E+00_JPRB,0.42216E+00_JPRB,0.45636E+00_JPRB /)  
+KA(:, 1, 2,16) = (/ &
+ & 0.98489E+00_JPRB,0.86457E+00_JPRB,0.74461E+00_JPRB,0.62525E+00_JPRB,0.50699E+00_JPRB, &
+ & 0.39502E+00_JPRB,0.46270E+00_JPRB,0.53626E+00_JPRB,0.59246E+00_JPRB /)  
+KA(:, 2, 2,16) = (/ &
+ & 0.95110E+00_JPRB,0.83523E+00_JPRB,0.71967E+00_JPRB,0.60464E+00_JPRB,0.49055E+00_JPRB, &
+ & 0.38714E+00_JPRB,0.45775E+00_JPRB,0.53066E+00_JPRB,0.58669E+00_JPRB /)  
+KA(:, 3, 2,16) = (/ &
+ & 0.91868E+00_JPRB,0.80699E+00_JPRB,0.69557E+00_JPRB,0.58461E+00_JPRB,0.47447E+00_JPRB, &
+ & 0.38030E+00_JPRB,0.45287E+00_JPRB,0.52498E+00_JPRB,0.58057E+00_JPRB /)  
+KA(:, 4, 2,16) = (/ &
+ & 0.88783E+00_JPRB,0.78006E+00_JPRB,0.67253E+00_JPRB,0.56540E+00_JPRB,0.45894E+00_JPRB, &
+ & 0.37426E+00_JPRB,0.44739E+00_JPRB,0.51869E+00_JPRB,0.57355E+00_JPRB /)  
+KA(:, 5, 2,16) = (/ &
+ & 0.85824E+00_JPRB,0.75420E+00_JPRB,0.65037E+00_JPRB,0.54691E+00_JPRB,0.44407E+00_JPRB, &
+ & 0.37572E+00_JPRB,0.44151E+00_JPRB,0.51192E+00_JPRB,0.56619E+00_JPRB /)  
+KA(:, 1, 3,16) = (/ &
+ & 0.11382E+01_JPRB,0.99791E+00_JPRB,0.85785E+00_JPRB,0.71816E+00_JPRB,0.57913E+00_JPRB, &
+ & 0.47378E+00_JPRB,0.56732E+00_JPRB,0.65745E+00_JPRB,0.74321E+00_JPRB /)  
+KA(:, 2, 3,16) = (/ &
+ & 0.10944E+01_JPRB,0.95984E+00_JPRB,0.82550E+00_JPRB,0.69149E+00_JPRB,0.55807E+00_JPRB, &
+ & 0.46534E+00_JPRB,0.55716E+00_JPRB,0.64588E+00_JPRB,0.73020E+00_JPRB /)  
+KA(:, 3, 3,16) = (/ &
+ & 0.10534E+01_JPRB,0.92416E+00_JPRB,0.79509E+00_JPRB,0.66633E+00_JPRB,0.53808E+00_JPRB, &
+ & 0.45863E+00_JPRB,0.54915E+00_JPRB,0.63663E+00_JPRB,0.71995E+00_JPRB /)  
+KA(:, 4, 3,16) = (/ &
+ & 0.10141E+01_JPRB,0.88986E+00_JPRB,0.76582E+00_JPRB,0.64206E+00_JPRB,0.51870E+00_JPRB, &
+ & 0.45265E+00_JPRB,0.54212E+00_JPRB,0.62853E+00_JPRB,0.71089E+00_JPRB /)  
+KA(:, 5, 3,16) = (/ &
+ & 0.97757E+00_JPRB,0.85802E+00_JPRB,0.73862E+00_JPRB,0.61943E+00_JPRB,0.50068E+00_JPRB, &
+ & 0.44732E+00_JPRB,0.53486E+00_JPRB,0.62017E+00_JPRB,0.70154E+00_JPRB /)  
+KA(:, 1, 4,16) = (/ &
+ & 0.13027E+01_JPRB,0.11412E+01_JPRB,0.97988E+00_JPRB,0.81881E+00_JPRB,0.65819E+00_JPRB, &
+ & 0.58495E+00_JPRB,0.70040E+00_JPRB,0.81176E+00_JPRB,0.92845E+00_JPRB /)  
+KA(:, 2, 4,16) = (/ &
+ & 0.12473E+01_JPRB,0.10931E+01_JPRB,0.93894E+00_JPRB,0.78506E+00_JPRB,0.63160E+00_JPRB, &
+ & 0.57073E+00_JPRB,0.68340E+00_JPRB,0.79216E+00_JPRB,0.90610E+00_JPRB /)  
+KA(:, 3, 4,16) = (/ &
+ & 0.11956E+01_JPRB,0.10481E+01_JPRB,0.90063E+00_JPRB,0.75344E+00_JPRB,0.60663E+00_JPRB, &
+ & 0.55958E+00_JPRB,0.67003E+00_JPRB,0.77669E+00_JPRB,0.88836E+00_JPRB /)  
+KA(:, 4, 4,16) = (/ &
+ & 0.11480E+01_JPRB,0.10066E+01_JPRB,0.86532E+00_JPRB,0.72426E+00_JPRB,0.58351E+00_JPRB, &
+ & 0.54965E+00_JPRB,0.65819E+00_JPRB,0.76307E+00_JPRB,0.87291E+00_JPRB /)  
+KA(:, 5, 4,16) = (/ &
+ & 0.11042E+01_JPRB,0.96837E+00_JPRB,0.83267E+00_JPRB,0.69709E+00_JPRB,0.56180E+00_JPRB, &
+ & 0.54039E+00_JPRB,0.64710E+00_JPRB,0.75045E+00_JPRB,0.85825E+00_JPRB /)  
+KA(:, 1, 5,16) = (/ &
+ & 0.14755E+01_JPRB,0.12919E+01_JPRB,0.11084E+01_JPRB,0.92503E+00_JPRB,0.74199E+00_JPRB, &
+ & 0.72656E+00_JPRB,0.86992E+00_JPRB,0.10084E+01_JPRB,0.11593E+01_JPRB /)  
+KA(:, 2, 5,16) = (/ &
+ & 0.14077E+01_JPRB,0.12330E+01_JPRB,0.10584E+01_JPRB,0.88396E+00_JPRB,0.70985E+00_JPRB, &
+ & 0.70337E+00_JPRB,0.84221E+00_JPRB,0.97628E+00_JPRB,0.11223E+01_JPRB /)  
+KA(:, 3, 5,16) = (/ &
+ & 0.13473E+01_JPRB,0.11805E+01_JPRB,0.10138E+01_JPRB,0.84723E+00_JPRB,0.68084E+00_JPRB, &
+ & 0.68573E+00_JPRB,0.82117E+00_JPRB,0.95190E+00_JPRB,0.10943E+01_JPRB /)  
+KA(:, 4, 5,16) = (/ &
+ & 0.12931E+01_JPRB,0.11332E+01_JPRB,0.97336E+00_JPRB,0.81358E+00_JPRB,0.65399E+00_JPRB, &
+ & 0.67083E+00_JPRB,0.80321E+00_JPRB,0.93120E+00_JPRB,0.10704E+01_JPRB /)  
+KA(:, 5, 5,16) = (/ &
+ & 0.12425E+01_JPRB,0.10889E+01_JPRB,0.93535E+00_JPRB,0.78185E+00_JPRB,0.62849E+00_JPRB, &
+ & 0.65706E+00_JPRB,0.78689E+00_JPRB,0.91252E+00_JPRB,0.10486E+01_JPRB /)  
+KA(:, 1, 6,16) = (/ &
+ & 0.16632E+01_JPRB,0.14561E+01_JPRB,0.12491E+01_JPRB,0.10422E+01_JPRB,0.83545E+00_JPRB, &
+ & 0.90592E+00_JPRB,0.10850E+01_JPRB,0.12579E+01_JPRB,0.14491E+01_JPRB /)  
+KA(:, 2, 6,16) = (/ &
+ & 0.15885E+01_JPRB,0.13911E+01_JPRB,0.11938E+01_JPRB,0.99649E+00_JPRB,0.79932E+00_JPRB, &
+ & 0.87105E+00_JPRB,0.10430E+01_JPRB,0.12092E+01_JPRB,0.13933E+01_JPRB /)  
+KA(:, 3, 6,16) = (/ &
+ & 0.15219E+01_JPRB,0.13330E+01_JPRB,0.11441E+01_JPRB,0.95525E+00_JPRB,0.76651E+00_JPRB, &
+ & 0.84460E+00_JPRB,0.10114E+01_JPRB,0.11726E+01_JPRB,0.13510E+01_JPRB /)  
+KA(:, 4, 6,16) = (/ &
+ & 0.14602E+01_JPRB,0.12790E+01_JPRB,0.10978E+01_JPRB,0.91668E+00_JPRB,0.73549E+00_JPRB, &
+ & 0.82233E+00_JPRB,0.98468E+00_JPRB,0.11417E+01_JPRB,0.13152E+01_JPRB /)  
+KA(:, 5, 6,16) = (/ &
+ & 0.14027E+01_JPRB,0.12286E+01_JPRB,0.10546E+01_JPRB,0.88053E+00_JPRB,0.70846E+00_JPRB, &
+ & 0.80220E+00_JPRB,0.96072E+00_JPRB,0.11140E+01_JPRB,0.12832E+01_JPRB /)  
+KA(:, 1, 7,16) = (/ &
+ & 0.18802E+01_JPRB,0.16460E+01_JPRB,0.14119E+01_JPRB,0.11779E+01_JPRB,0.95036E+00_JPRB, &
+ & 0.11297E+01_JPRB,0.13528E+01_JPRB,0.15688E+01_JPRB,0.18094E+01_JPRB /)  
+KA(:, 2, 7,16) = (/ &
+ & 0.17989E+01_JPRB,0.15751E+01_JPRB,0.13512E+01_JPRB,0.11274E+01_JPRB,0.91055E+00_JPRB, &
+ & 0.10797E+01_JPRB,0.12930E+01_JPRB,0.14993E+01_JPRB,0.17294E+01_JPRB /)  
+KA(:, 3, 7,16) = (/ &
+ & 0.17245E+01_JPRB,0.15100E+01_JPRB,0.12954E+01_JPRB,0.10809E+01_JPRB,0.87508E+00_JPRB, &
+ & 0.10422E+01_JPRB,0.12481E+01_JPRB,0.14473E+01_JPRB,0.16693E+01_JPRB /)  
+KA(:, 4, 7,16) = (/ &
+ & 0.16543E+01_JPRB,0.14485E+01_JPRB,0.12427E+01_JPRB,0.10370E+01_JPRB,0.84724E+00_JPRB, &
+ & 0.10105E+01_JPRB,0.12102E+01_JPRB,0.14035E+01_JPRB,0.16185E+01_JPRB /)  
+KA(:, 5, 7,16) = (/ &
+ & 0.15884E+01_JPRB,0.13908E+01_JPRB,0.11932E+01_JPRB,0.99569E+00_JPRB,0.82331E+00_JPRB, &
+ & 0.98227E+00_JPRB,0.11764E+01_JPRB,0.13643E+01_JPRB,0.15734E+01_JPRB /)  
+KA(:, 1, 8,16) = (/ &
+ & 0.21327E+01_JPRB,0.18670E+01_JPRB,0.16012E+01_JPRB,0.13355E+01_JPRB,0.11430E+01_JPRB, &
+ & 0.14062E+01_JPRB,0.16843E+01_JPRB,0.19535E+01_JPRB,0.22540E+01_JPRB /)  
+KA(:, 2, 8,16) = (/ &
+ & 0.20434E+01_JPRB,0.17888E+01_JPRB,0.15342E+01_JPRB,0.12796E+01_JPRB,0.10891E+01_JPRB, &
+ & 0.13377E+01_JPRB,0.16020E+01_JPRB,0.18582E+01_JPRB,0.21442E+01_JPRB /)  
+KA(:, 3, 8,16) = (/ &
+ & 0.19592E+01_JPRB,0.17151E+01_JPRB,0.14711E+01_JPRB,0.12270E+01_JPRB,0.10443E+01_JPRB, &
+ & 0.12854E+01_JPRB,0.15395E+01_JPRB,0.17855E+01_JPRB,0.20605E+01_JPRB /)  
+KA(:, 4, 8,16) = (/ &
+ & 0.18795E+01_JPRB,0.16454E+01_JPRB,0.14112E+01_JPRB,0.11771E+01_JPRB,0.10093E+01_JPRB, &
+ & 0.12418E+01_JPRB,0.14873E+01_JPRB,0.17251E+01_JPRB,0.19905E+01_JPRB /)  
+KA(:, 5, 8,16) = (/ &
+ & 0.18040E+01_JPRB,0.15793E+01_JPRB,0.13546E+01_JPRB,0.11298E+01_JPRB,0.97893E+00_JPRB, &
+ & 0.12029E+01_JPRB,0.14409E+01_JPRB,0.16715E+01_JPRB,0.19284E+01_JPRB /)  
+KA(:, 1, 9,16) = (/ &
+ & 0.24263E+01_JPRB,0.21237E+01_JPRB,0.18212E+01_JPRB,0.15186E+01_JPRB,0.14038E+01_JPRB, &
+ & 0.17468E+01_JPRB,0.20923E+01_JPRB,0.24275E+01_JPRB,0.28010E+01_JPRB /)  
+KA(:, 2, 9,16) = (/ &
+ & 0.23266E+01_JPRB,0.20365E+01_JPRB,0.17464E+01_JPRB,0.14563E+01_JPRB,0.13334E+01_JPRB, &
+ & 0.16567E+01_JPRB,0.19843E+01_JPRB,0.23023E+01_JPRB,0.26565E+01_JPRB /)  
+KA(:, 3, 9,16) = (/ &
+ & 0.22311E+01_JPRB,0.19529E+01_JPRB,0.16747E+01_JPRB,0.13965E+01_JPRB,0.12741E+01_JPRB, &
+ & 0.15855E+01_JPRB,0.18989E+01_JPRB,0.22031E+01_JPRB,0.25421E+01_JPRB /)  
+KA(:, 4, 9,16) = (/ &
+ & 0.21400E+01_JPRB,0.18731E+01_JPRB,0.16063E+01_JPRB,0.13394E+01_JPRB,0.12261E+01_JPRB, &
+ & 0.15261E+01_JPRB,0.18280E+01_JPRB,0.21210E+01_JPRB,0.24473E+01_JPRB /)  
+KA(:, 5, 9,16) = (/ &
+ & 0.20537E+01_JPRB,0.17976E+01_JPRB,0.15415E+01_JPRB,0.12854E+01_JPRB,0.11844E+01_JPRB, &
+ & 0.14739E+01_JPRB,0.17653E+01_JPRB,0.20482E+01_JPRB,0.23631E+01_JPRB /)  
+KA(:, 1,10,16) = (/ &
+ & 0.27556E+01_JPRB,0.24117E+01_JPRB,0.20679E+01_JPRB,0.17241E+01_JPRB,0.17250E+01_JPRB, &
+ & 0.21531E+01_JPRB,0.25793E+01_JPRB,0.29930E+01_JPRB,0.34529E+01_JPRB /)  
+KA(:, 2,10,16) = (/ &
+ & 0.26436E+01_JPRB,0.23137E+01_JPRB,0.19838E+01_JPRB,0.16540E+01_JPRB,0.16343E+01_JPRB, &
+ & 0.20375E+01_JPRB,0.24406E+01_JPRB,0.28326E+01_JPRB,0.32672E+01_JPRB /)  
+KA(:, 3,10,16) = (/ &
+ & 0.25350E+01_JPRB,0.22187E+01_JPRB,0.19024E+01_JPRB,0.15861E+01_JPRB,0.15582E+01_JPRB, &
+ & 0.19443E+01_JPRB,0.23290E+01_JPRB,0.27026E+01_JPRB,0.31178E+01_JPRB /)  
+KA(:, 4,10,16) = (/ &
+ & 0.24300E+01_JPRB,0.21267E+01_JPRB,0.18235E+01_JPRB,0.15203E+01_JPRB,0.14955E+01_JPRB, &
+ & 0.18662E+01_JPRB,0.22353E+01_JPRB,0.25942E+01_JPRB,0.29924E+01_JPRB /)  
+KA(:, 5,10,16) = (/ &
+ & 0.23355E+01_JPRB,0.20440E+01_JPRB,0.17526E+01_JPRB,0.14611E+01_JPRB,0.14399E+01_JPRB, &
+ & 0.17966E+01_JPRB,0.21521E+01_JPRB,0.24975E+01_JPRB,0.28809E+01_JPRB /)  
+KA(:, 1,11,16) = (/ &
+ & 0.30736E+01_JPRB,0.26899E+01_JPRB,0.23062E+01_JPRB,0.19287E+01_JPRB,0.20594E+01_JPRB, &
+ & 0.25707E+01_JPRB,0.30796E+01_JPRB,0.35755E+01_JPRB,0.41218E+01_JPRB /)  
+KA(:, 2,11,16) = (/ &
+ & 0.29458E+01_JPRB,0.25780E+01_JPRB,0.22102E+01_JPRB,0.18490E+01_JPRB,0.19506E+01_JPRB, &
+ & 0.24353E+01_JPRB,0.29176E+01_JPRB,0.33867E+01_JPRB,0.39048E+01_JPRB /)  
+KA(:, 3,11,16) = (/ &
+ & 0.28287E+01_JPRB,0.24755E+01_JPRB,0.21223E+01_JPRB,0.17723E+01_JPRB,0.18621E+01_JPRB, &
+ & 0.23252E+01_JPRB,0.27855E+01_JPRB,0.32334E+01_JPRB,0.37281E+01_JPRB /)  
+KA(:, 4,11,16) = (/ &
+ & 0.27181E+01_JPRB,0.23787E+01_JPRB,0.20393E+01_JPRB,0.17010E+01_JPRB,0.17848E+01_JPRB, &
+ & 0.22284E+01_JPRB,0.26698E+01_JPRB,0.30991E+01_JPRB,0.35730E+01_JPRB /)  
+KA(:, 5,11,16) = (/ &
+ & 0.26214E+01_JPRB,0.22941E+01_JPRB,0.19667E+01_JPRB,0.16394E+01_JPRB,0.17149E+01_JPRB, &
+ & 0.21409E+01_JPRB,0.25649E+01_JPRB,0.29778E+01_JPRB,0.34326E+01_JPRB /)  
+KA(:, 1,12,16) = (/ &
+ & 0.34457E+01_JPRB,0.30154E+01_JPRB,0.25850E+01_JPRB,0.22002E+01_JPRB,0.24421E+01_JPRB, &
+ & 0.30491E+01_JPRB,0.36532E+01_JPRB,0.42422E+01_JPRB,0.48881E+01_JPRB /)  
+KA(:, 2,12,16) = (/ &
+ & 0.33132E+01_JPRB,0.28993E+01_JPRB,0.24855E+01_JPRB,0.21037E+01_JPRB,0.23175E+01_JPRB, &
+ & 0.28938E+01_JPRB,0.34673E+01_JPRB,0.40262E+01_JPRB,0.46397E+01_JPRB /)  
+KA(:, 3,12,16) = (/ &
+ & 0.31843E+01_JPRB,0.27866E+01_JPRB,0.23888E+01_JPRB,0.20132E+01_JPRB,0.22107E+01_JPRB, &
+ & 0.27603E+01_JPRB,0.33070E+01_JPRB,0.38403E+01_JPRB,0.44248E+01_JPRB /)  
+KA(:, 4,12,16) = (/ &
+ & 0.30610E+01_JPRB,0.26787E+01_JPRB,0.22963E+01_JPRB,0.19289E+01_JPRB,0.21145E+01_JPRB, &
+ & 0.26402E+01_JPRB,0.31632E+01_JPRB,0.36735E+01_JPRB,0.42326E+01_JPRB /)  
+KA(:, 5,12,16) = (/ &
+ & 0.29533E+01_JPRB,0.25844E+01_JPRB,0.22155E+01_JPRB,0.18569E+01_JPRB,0.20264E+01_JPRB, &
+ & 0.25300E+01_JPRB,0.30314E+01_JPRB,0.35205E+01_JPRB,0.40560E+01_JPRB /)  
+KA(:, 1,13,16) = (/ &
+ & 0.38898E+01_JPRB,0.34039E+01_JPRB,0.29179E+01_JPRB,0.25320E+01_JPRB,0.28809E+01_JPRB, &
+ & 0.35965E+01_JPRB,0.43091E+01_JPRB,0.50055E+01_JPRB,0.57650E+01_JPRB /)  
+KA(:, 2,13,16) = (/ &
+ & 0.37371E+01_JPRB,0.32702E+01_JPRB,0.28033E+01_JPRB,0.24146E+01_JPRB,0.27330E+01_JPRB, &
+ & 0.34120E+01_JPRB,0.40886E+01_JPRB,0.47494E+01_JPRB,0.54692E+01_JPRB /)  
+KA(:, 3,13,16) = (/ &
+ & 0.35846E+01_JPRB,0.31367E+01_JPRB,0.26889E+01_JPRB,0.23047E+01_JPRB,0.26019E+01_JPRB, &
+ & 0.32482E+01_JPRB,0.38921E+01_JPRB,0.45212E+01_JPRB,0.52066E+01_JPRB /)  
+KA(:, 4,13,16) = (/ &
+ & 0.34450E+01_JPRB,0.30146E+01_JPRB,0.25842E+01_JPRB,0.22048E+01_JPRB,0.24829E+01_JPRB, &
+ & 0.31006E+01_JPRB,0.37153E+01_JPRB,0.43162E+01_JPRB,0.49694E+01_JPRB /)  
+KA(:, 5,13,16) = (/ &
+ & 0.33226E+01_JPRB,0.29075E+01_JPRB,0.24923E+01_JPRB,0.21144E+01_JPRB,0.23741E+01_JPRB, &
+ & 0.29651E+01_JPRB,0.35532E+01_JPRB,0.41282E+01_JPRB,0.47532E+01_JPRB /)  
+  
+!     -----------------------------------------------------------------
+!     The array KB contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels < ~100mb and temperatures. The first 
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this pressure 
+!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for
+!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  
+!     The second index, JP, runs from 13 to 59 and refers to the JPth
+!     reference pressure level (see taumol.f for the value of these
+!     pressure levels in mb).  The third index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+!     -----------------------------------------------------------------
+
+KB(:,13, 1) = (/ &
+ & 0.78344E-03_JPRB,0.81478E-03_JPRB,0.83713E-03_JPRB,0.85265E-03_JPRB,0.85991E-03_JPRB /)  
+KB(:,14, 1) = (/ &
+ & 0.65374E-03_JPRB,0.67963E-03_JPRB,0.69840E-03_JPRB,0.71131E-03_JPRB,0.71719E-03_JPRB /)  
+KB(:,15, 1) = (/ &
+ & 0.55587E-03_JPRB,0.57751E-03_JPRB,0.59343E-03_JPRB,0.60410E-03_JPRB,0.60993E-03_JPRB /)  
+KB(:,16, 1) = (/ &
+ & 0.48145E-03_JPRB,0.49780E-03_JPRB,0.51251E-03_JPRB,0.52093E-03_JPRB,0.52706E-03_JPRB /)  
+KB(:,17, 1) = (/ &
+ & 0.42610E-03_JPRB,0.43577E-03_JPRB,0.44892E-03_JPRB,0.45812E-03_JPRB,0.46352E-03_JPRB /)  
+KB(:,18, 1) = (/ &
+ & 0.38503E-03_JPRB,0.38849E-03_JPRB,0.40094E-03_JPRB,0.41067E-03_JPRB,0.41529E-03_JPRB /)  
+KB(:,19, 1) = (/ &
+ & 0.35025E-03_JPRB,0.34902E-03_JPRB,0.35803E-03_JPRB,0.36759E-03_JPRB,0.37429E-03_JPRB /)  
+KB(:,20, 1) = (/ &
+ & 0.30557E-03_JPRB,0.30381E-03_JPRB,0.30983E-03_JPRB,0.31782E-03_JPRB,0.32429E-03_JPRB /)  
+KB(:,21, 1) = (/ &
+ & 0.26346E-03_JPRB,0.26127E-03_JPRB,0.26616E-03_JPRB,0.27270E-03_JPRB,0.27830E-03_JPRB /)  
+KB(:,22, 1) = (/ &
+ & 0.22630E-03_JPRB,0.22463E-03_JPRB,0.22867E-03_JPRB,0.23419E-03_JPRB,0.23829E-03_JPRB /)  
+KB(:,23, 1) = (/ &
+ & 0.19498E-03_JPRB,0.19376E-03_JPRB,0.19644E-03_JPRB,0.20096E-03_JPRB,0.20404E-03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART11',1,ZHOOK_HANDLE)
+END SUBROUTINE PART11
+
+
+SUBROUTINE PART12
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART12',0,ZHOOK_HANDLE)
+
+
+KB(:,24, 1) = (/ &
+ & 0.16839E-03_JPRB,0.16687E-03_JPRB,0.16820E-03_JPRB,0.17215E-03_JPRB,0.17490E-03_JPRB /)  
+KB(:,25, 1) = (/ &
+ & 0.14494E-03_JPRB,0.14347E-03_JPRB,0.14334E-03_JPRB,0.14728E-03_JPRB,0.14954E-03_JPRB /)  
+KB(:,26, 1) = (/ &
+ & 0.12363E-03_JPRB,0.12241E-03_JPRB,0.12233E-03_JPRB,0.12518E-03_JPRB,0.12767E-03_JPRB /)  
+KB(:,27, 1) = (/ &
+ & 0.10560E-03_JPRB,0.10482E-03_JPRB,0.10446E-03_JPRB,0.10681E-03_JPRB,0.10897E-03_JPRB /)  
+KB(:,28, 1) = (/ &
+ & 0.90453E-04_JPRB,0.89921E-04_JPRB,0.89199E-04_JPRB,0.91278E-04_JPRB,0.93235E-04_JPRB /)  
+KB(:,29, 1) = (/ &
+ & 0.77854E-04_JPRB,0.77467E-04_JPRB,0.76947E-04_JPRB,0.77977E-04_JPRB,0.79713E-04_JPRB /)  
+KB(:,30, 1) = (/ &
+ & 0.67346E-04_JPRB,0.67074E-04_JPRB,0.66981E-04_JPRB,0.67340E-04_JPRB,0.68453E-04_JPRB /)  
+KB(:,31, 1) = (/ &
+ & 0.58739E-04_JPRB,0.58583E-04_JPRB,0.58517E-04_JPRB,0.58421E-04_JPRB,0.59277E-04_JPRB /)  
+KB(:,32, 1) = (/ &
+ & 0.51671E-04_JPRB,0.51476E-04_JPRB,0.51254E-04_JPRB,0.51199E-04_JPRB,0.51510E-04_JPRB /)  
+KB(:,33, 1) = (/ &
+ & 0.45523E-04_JPRB,0.45406E-04_JPRB,0.45028E-04_JPRB,0.44849E-04_JPRB,0.44977E-04_JPRB /)  
+KB(:,34, 1) = (/ &
+ & 0.40256E-04_JPRB,0.40062E-04_JPRB,0.39751E-04_JPRB,0.39416E-04_JPRB,0.39181E-04_JPRB /)  
+KB(:,35, 1) = (/ &
+ & 0.35762E-04_JPRB,0.35429E-04_JPRB,0.35245E-04_JPRB,0.34916E-04_JPRB,0.34484E-04_JPRB /)  
+KB(:,36, 1) = (/ &
+ & 0.31776E-04_JPRB,0.31666E-04_JPRB,0.31200E-04_JPRB,0.31013E-04_JPRB,0.30768E-04_JPRB /)  
+KB(:,37, 1) = (/ &
+ & 0.26934E-04_JPRB,0.26971E-04_JPRB,0.26615E-04_JPRB,0.26355E-04_JPRB,0.26214E-04_JPRB /)  
+KB(:,38, 1) = (/ &
+ & 0.22652E-04_JPRB,0.22874E-04_JPRB,0.22686E-04_JPRB,0.22466E-04_JPRB,0.22266E-04_JPRB /)  
+KB(:,39, 1) = (/ &
+ & 0.18970E-04_JPRB,0.19273E-04_JPRB,0.19385E-04_JPRB,0.19198E-04_JPRB,0.19016E-04_JPRB /)  
+KB(:,40, 1) = (/ &
+ & 0.15533E-04_JPRB,0.15831E-04_JPRB,0.15964E-04_JPRB,0.15836E-04_JPRB,0.15700E-04_JPRB /)  
+KB(:,41, 1) = (/ &
+ & 0.12668E-04_JPRB,0.12826E-04_JPRB,0.12999E-04_JPRB,0.13018E-04_JPRB,0.12872E-04_JPRB /)  
+KB(:,42, 1) = (/ &
+ & 0.10356E-04_JPRB,0.10475E-04_JPRB,0.10620E-04_JPRB,0.10666E-04_JPRB,0.10580E-04_JPRB /)  
+KB(:,43, 1) = (/ &
+ & 0.83551E-05_JPRB,0.84490E-05_JPRB,0.85217E-05_JPRB,0.86140E-05_JPRB,0.86044E-05_JPRB /)  
+KB(:,44, 1) = (/ &
+ & 0.66829E-05_JPRB,0.68022E-05_JPRB,0.68791E-05_JPRB,0.69429E-05_JPRB,0.69314E-05_JPRB /)  
+KB(:,45, 1) = (/ &
+ & 0.53860E-05_JPRB,0.54494E-05_JPRB,0.55341E-05_JPRB,0.55544E-05_JPRB,0.55761E-05_JPRB /)  
+KB(:,46, 1) = (/ &
+ & 0.43207E-05_JPRB,0.43601E-05_JPRB,0.44477E-05_JPRB,0.44761E-05_JPRB,0.44727E-05_JPRB /)  
+KB(:,47, 1) = (/ &
+ & 0.34852E-05_JPRB,0.34924E-05_JPRB,0.35555E-05_JPRB,0.35928E-05_JPRB,0.35957E-05_JPRB /)  
+KB(:,48, 1) = (/ &
+ & 0.27913E-05_JPRB,0.28024E-05_JPRB,0.28395E-05_JPRB,0.28713E-05_JPRB,0.28836E-05_JPRB /)  
+KB(:,49, 1) = (/ &
+ & 0.22267E-05_JPRB,0.22549E-05_JPRB,0.22736E-05_JPRB,0.22769E-05_JPRB,0.23083E-05_JPRB /)  
+KB(:,50, 1) = (/ &
+ & 0.17814E-05_JPRB,0.18056E-05_JPRB,0.18272E-05_JPRB,0.18178E-05_JPRB,0.18340E-05_JPRB /)  
+KB(:,51, 1) = (/ &
+ & 0.14202E-05_JPRB,0.14390E-05_JPRB,0.14605E-05_JPRB,0.14515E-05_JPRB,0.14607E-05_JPRB /)  
+KB(:,52, 1) = (/ &
+ & 0.11328E-05_JPRB,0.11511E-05_JPRB,0.11629E-05_JPRB,0.11627E-05_JPRB,0.11618E-05_JPRB /)  
+KB(:,53, 1) = (/ &
+ & 0.90478E-06_JPRB,0.91291E-06_JPRB,0.92251E-06_JPRB,0.92910E-06_JPRB,0.92898E-06_JPRB /)  
+KB(:,54, 1) = (/ &
+ & 0.71737E-06_JPRB,0.72444E-06_JPRB,0.73271E-06_JPRB,0.73646E-06_JPRB,0.74079E-06_JPRB /)  
+KB(:,55, 1) = (/ &
+ & 0.56522E-06_JPRB,0.57444E-06_JPRB,0.57690E-06_JPRB,0.58444E-06_JPRB,0.59006E-06_JPRB /)  
+KB(:,56, 1) = (/ &
+ & 0.44522E-06_JPRB,0.45152E-06_JPRB,0.45592E-06_JPRB,0.46208E-06_JPRB,0.46721E-06_JPRB /)  
+KB(:,57, 1) = (/ &
+ & 0.35045E-06_JPRB,0.35432E-06_JPRB,0.36035E-06_JPRB,0.36444E-06_JPRB,0.36942E-06_JPRB /)  
+KB(:,58, 1) = (/ &
+ & 0.27513E-06_JPRB,0.27793E-06_JPRB,0.28330E-06_JPRB,0.28729E-06_JPRB,0.29229E-06_JPRB /)  
+KB(:,59, 1) = (/ &
+ & 0.21608E-06_JPRB,0.21966E-06_JPRB,0.22301E-06_JPRB,0.22740E-06_JPRB,0.23129E-06_JPRB /)  
+KB(:,13, 2) = (/ &
+ & 0.41669E-02_JPRB,0.42141E-02_JPRB,0.42434E-02_JPRB,0.42683E-02_JPRB,0.42755E-02_JPRB /)  
+KB(:,14, 2) = (/ &
+ & 0.34875E-02_JPRB,0.35201E-02_JPRB,0.35377E-02_JPRB,0.35547E-02_JPRB,0.35629E-02_JPRB /)  
+KB(:,15, 2) = (/ &
+ & 0.29417E-02_JPRB,0.29682E-02_JPRB,0.29797E-02_JPRB,0.29877E-02_JPRB,0.29948E-02_JPRB /)  
+KB(:,16, 2) = (/ &
+ & 0.25072E-02_JPRB,0.25337E-02_JPRB,0.25373E-02_JPRB,0.25423E-02_JPRB,0.25464E-02_JPRB /)  
+KB(:,17, 2) = (/ &
+ & 0.21640E-02_JPRB,0.21948E-02_JPRB,0.21974E-02_JPRB,0.21951E-02_JPRB,0.21930E-02_JPRB /)  
+KB(:,18, 2) = (/ &
+ & 0.18910E-02_JPRB,0.19229E-02_JPRB,0.19301E-02_JPRB,0.19201E-02_JPRB,0.19153E-02_JPRB /)  
+KB(:,19, 2) = (/ &
+ & 0.16495E-02_JPRB,0.16848E-02_JPRB,0.16944E-02_JPRB,0.16885E-02_JPRB,0.16779E-02_JPRB /)  
+KB(:,20, 2) = (/ &
+ & 0.14018E-02_JPRB,0.14333E-02_JPRB,0.14424E-02_JPRB,0.14394E-02_JPRB,0.14287E-02_JPRB /)  
+KB(:,21, 2) = (/ &
+ & 0.11832E-02_JPRB,0.12125E-02_JPRB,0.12189E-02_JPRB,0.12151E-02_JPRB,0.12082E-02_JPRB /)  
+KB(:,22, 2) = (/ &
+ & 0.99669E-03_JPRB,0.10233E-02_JPRB,0.10268E-02_JPRB,0.10250E-02_JPRB,0.10191E-02_JPRB /)  
+KB(:,23, 2) = (/ &
+ & 0.83734E-03_JPRB,0.86220E-03_JPRB,0.86642E-03_JPRB,0.86487E-03_JPRB,0.86054E-03_JPRB /)  
+KB(:,24, 2) = (/ &
+ & 0.70349E-03_JPRB,0.72654E-03_JPRB,0.73243E-03_JPRB,0.73077E-03_JPRB,0.72754E-03_JPRB /)  
+KB(:,25, 2) = (/ &
+ & 0.59070E-03_JPRB,0.61044E-03_JPRB,0.61929E-03_JPRB,0.61773E-03_JPRB,0.61583E-03_JPRB /)  
+KB(:,26, 2) = (/ &
+ & 0.49716E-03_JPRB,0.51139E-03_JPRB,0.52115E-03_JPRB,0.52139E-03_JPRB,0.52023E-03_JPRB /)  
+KB(:,27, 2) = (/ &
+ & 0.41822E-03_JPRB,0.42737E-03_JPRB,0.43808E-03_JPRB,0.43978E-03_JPRB,0.43884E-03_JPRB /)  
+KB(:,28, 2) = (/ &
+ & 0.35061E-03_JPRB,0.35848E-03_JPRB,0.36841E-03_JPRB,0.37095E-03_JPRB,0.37053E-03_JPRB /)  
+KB(:,29, 2) = (/ &
+ & 0.29391E-03_JPRB,0.30227E-03_JPRB,0.30912E-03_JPRB,0.31376E-03_JPRB,0.31382E-03_JPRB /)  
+KB(:,30, 2) = (/ &
+ & 0.24878E-03_JPRB,0.25551E-03_JPRB,0.25990E-03_JPRB,0.26493E-03_JPRB,0.26717E-03_JPRB /)  
+KB(:,31, 2) = (/ &
+ & 0.21146E-03_JPRB,0.21606E-03_JPRB,0.21973E-03_JPRB,0.22385E-03_JPRB,0.22711E-03_JPRB /)  
+KB(:,32, 2) = (/ &
+ & 0.17989E-03_JPRB,0.18248E-03_JPRB,0.18678E-03_JPRB,0.18914E-03_JPRB,0.19265E-03_JPRB /)  
+KB(:,33, 2) = (/ &
+ & 0.15377E-03_JPRB,0.15569E-03_JPRB,0.15798E-03_JPRB,0.16109E-03_JPRB,0.16313E-03_JPRB /)  
+KB(:,34, 2) = (/ &
+ & 0.13129E-03_JPRB,0.13289E-03_JPRB,0.13431E-03_JPRB,0.13679E-03_JPRB,0.13869E-03_JPRB /)  
+KB(:,35, 2) = (/ &
+ & 0.11225E-03_JPRB,0.11370E-03_JPRB,0.11480E-03_JPRB,0.11616E-03_JPRB,0.11774E-03_JPRB /)  
+KB(:,36, 2) = (/ &
+ & 0.96722E-04_JPRB,0.97093E-04_JPRB,0.98641E-04_JPRB,0.99964E-04_JPRB,0.10029E-03_JPRB /)  
+KB(:,37, 2) = (/ &
+ & 0.81278E-04_JPRB,0.81350E-04_JPRB,0.82442E-04_JPRB,0.83555E-04_JPRB,0.83990E-04_JPRB /)  
+KB(:,38, 2) = (/ &
+ & 0.68481E-04_JPRB,0.68398E-04_JPRB,0.68899E-04_JPRB,0.69737E-04_JPRB,0.70187E-04_JPRB /)  
+KB(:,39, 2) = (/ &
+ & 0.57588E-04_JPRB,0.57895E-04_JPRB,0.57814E-04_JPRB,0.58095E-04_JPRB,0.58861E-04_JPRB /)  
+KB(:,40, 2) = (/ &
+ & 0.47541E-04_JPRB,0.47609E-04_JPRB,0.47587E-04_JPRB,0.47727E-04_JPRB,0.48149E-04_JPRB /)  
+KB(:,41, 2) = (/ &
+ & 0.39099E-04_JPRB,0.39119E-04_JPRB,0.39164E-04_JPRB,0.39161E-04_JPRB,0.39530E-04_JPRB /)  
+KB(:,42, 2) = (/ &
+ & 0.32129E-04_JPRB,0.32067E-04_JPRB,0.32113E-04_JPRB,0.32128E-04_JPRB,0.32332E-04_JPRB /)  
+KB(:,43, 2) = (/ &
+ & 0.26339E-04_JPRB,0.26195E-04_JPRB,0.26218E-04_JPRB,0.26313E-04_JPRB,0.26301E-04_JPRB /)  
+KB(:,44, 2) = (/ &
+ & 0.21510E-04_JPRB,0.21341E-04_JPRB,0.21297E-04_JPRB,0.21378E-04_JPRB,0.21395E-04_JPRB /)  
+KB(:,45, 2) = (/ &
+ & 0.17530E-04_JPRB,0.17454E-04_JPRB,0.17341E-04_JPRB,0.17352E-04_JPRB,0.17454E-04_JPRB /)  
+KB(:,46, 2) = (/ &
+ & 0.14267E-04_JPRB,0.14213E-04_JPRB,0.14118E-04_JPRB,0.14076E-04_JPRB,0.14192E-04_JPRB /)  
+KB(:,47, 2) = (/ &
+ & 0.11510E-04_JPRB,0.11593E-04_JPRB,0.11522E-04_JPRB,0.11431E-04_JPRB,0.11494E-04_JPRB /)  
+KB(:,48, 2) = (/ &
+ & 0.92607E-05_JPRB,0.93963E-05_JPRB,0.93931E-05_JPRB,0.93302E-05_JPRB,0.93175E-05_JPRB /)  
+KB(:,49, 2) = (/ &
+ & 0.74566E-05_JPRB,0.75640E-05_JPRB,0.76551E-05_JPRB,0.76195E-05_JPRB,0.75706E-05_JPRB /)  
+KB(:,50, 2) = (/ &
+ & 0.60069E-05_JPRB,0.60789E-05_JPRB,0.61866E-05_JPRB,0.62136E-05_JPRB,0.61878E-05_JPRB /)  
+KB(:,51, 2) = (/ &
+ & 0.48719E-05_JPRB,0.49189E-05_JPRB,0.49852E-05_JPRB,0.50599E-05_JPRB,0.50406E-05_JPRB /)  
+KB(:,52, 2) = (/ &
+ & 0.39542E-05_JPRB,0.39622E-05_JPRB,0.40023E-05_JPRB,0.40853E-05_JPRB,0.41134E-05_JPRB /)  
+KB(:,53, 2) = (/ &
+ & 0.31898E-05_JPRB,0.32108E-05_JPRB,0.32348E-05_JPRB,0.32873E-05_JPRB,0.33341E-05_JPRB /)  
+KB(:,54, 2) = (/ &
+ & 0.25786E-05_JPRB,0.26009E-05_JPRB,0.26192E-05_JPRB,0.26504E-05_JPRB,0.26983E-05_JPRB /)  
+KB(:,55, 2) = (/ &
+ & 0.20942E-05_JPRB,0.21017E-05_JPRB,0.21274E-05_JPRB,0.21442E-05_JPRB,0.21775E-05_JPRB /)  
+KB(:,56, 2) = (/ &
+ & 0.16959E-05_JPRB,0.17018E-05_JPRB,0.17251E-05_JPRB,0.17374E-05_JPRB,0.17575E-05_JPRB /)  
+KB(:,57, 2) = (/ &
+ & 0.13662E-05_JPRB,0.13805E-05_JPRB,0.13926E-05_JPRB,0.14091E-05_JPRB,0.14210E-05_JPRB /)  
+KB(:,58, 2) = (/ &
+ & 0.10989E-05_JPRB,0.11199E-05_JPRB,0.11269E-05_JPRB,0.11436E-05_JPRB,0.11502E-05_JPRB /)  
+KB(:,59, 2) = (/ &
+ & 0.88647E-06_JPRB,0.91054E-06_JPRB,0.91770E-06_JPRB,0.92872E-06_JPRB,0.93619E-06_JPRB /)  
+KB(:,13, 3) = (/ &
+ & 0.91432E-02_JPRB,0.90907E-02_JPRB,0.90565E-02_JPRB,0.89984E-02_JPRB,0.89385E-02_JPRB /)  
+KB(:,14, 3) = (/ &
+ & 0.76455E-02_JPRB,0.75988E-02_JPRB,0.75709E-02_JPRB,0.75150E-02_JPRB,0.74448E-02_JPRB /)  
+KB(:,15, 3) = (/ &
+ & 0.64231E-02_JPRB,0.63826E-02_JPRB,0.63449E-02_JPRB,0.62999E-02_JPRB,0.62412E-02_JPRB /)  
+KB(:,16, 3) = (/ &
+ & 0.54475E-02_JPRB,0.53998E-02_JPRB,0.53630E-02_JPRB,0.53153E-02_JPRB,0.52574E-02_JPRB /)  
+KB(:,17, 3) = (/ &
+ & 0.46876E-02_JPRB,0.46363E-02_JPRB,0.45869E-02_JPRB,0.45398E-02_JPRB,0.44911E-02_JPRB /)  
+KB(:,18, 3) = (/ &
+ & 0.40806E-02_JPRB,0.40265E-02_JPRB,0.39670E-02_JPRB,0.39185E-02_JPRB,0.38714E-02_JPRB /)  
+KB(:,19, 3) = (/ &
+ & 0.35897E-02_JPRB,0.35272E-02_JPRB,0.34695E-02_JPRB,0.34174E-02_JPRB,0.33721E-02_JPRB /)  
+KB(:,20, 3) = (/ &
+ & 0.30557E-02_JPRB,0.30003E-02_JPRB,0.29518E-02_JPRB,0.29027E-02_JPRB,0.28623E-02_JPRB /)  
+KB(:,21, 3) = (/ &
+ & 0.25840E-02_JPRB,0.25346E-02_JPRB,0.24907E-02_JPRB,0.24530E-02_JPRB,0.24134E-02_JPRB /)  
+KB(:,22, 3) = (/ &
+ & 0.21784E-02_JPRB,0.21342E-02_JPRB,0.20972E-02_JPRB,0.20639E-02_JPRB,0.20310E-02_JPRB /)  
+KB(:,23, 3) = (/ &
+ & 0.18415E-02_JPRB,0.17987E-02_JPRB,0.17683E-02_JPRB,0.17405E-02_JPRB,0.17162E-02_JPRB /)  
+KB(:,24, 3) = (/ &
+ & 0.15599E-02_JPRB,0.15210E-02_JPRB,0.14940E-02_JPRB,0.14715E-02_JPRB,0.14516E-02_JPRB /)  
+KB(:,25, 3) = (/ &
+ & 0.13214E-02_JPRB,0.12882E-02_JPRB,0.12631E-02_JPRB,0.12449E-02_JPRB,0.12269E-02_JPRB /)  
+KB(:,26, 3) = (/ &
+ & 0.11148E-02_JPRB,0.10885E-02_JPRB,0.10663E-02_JPRB,0.10485E-02_JPRB,0.10339E-02_JPRB /)  
+KB(:,27, 3) = (/ &
+ & 0.94180E-03_JPRB,0.92291E-03_JPRB,0.90201E-03_JPRB,0.88582E-03_JPRB,0.87360E-03_JPRB /)  
+KB(:,28, 3) = (/ &
+ & 0.79929E-03_JPRB,0.78315E-03_JPRB,0.76525E-03_JPRB,0.75093E-03_JPRB,0.73943E-03_JPRB /)  
+KB(:,29, 3) = (/ &
+ & 0.68110E-03_JPRB,0.66580E-03_JPRB,0.65234E-03_JPRB,0.63866E-03_JPRB,0.62757E-03_JPRB /)  
+KB(:,30, 3) = (/ &
+ & 0.57975E-03_JPRB,0.56820E-03_JPRB,0.55835E-03_JPRB,0.54581E-03_JPRB,0.53624E-03_JPRB /)  
+KB(:,31, 3) = (/ &
+ & 0.49551E-03_JPRB,0.48804E-03_JPRB,0.47841E-03_JPRB,0.46871E-03_JPRB,0.45833E-03_JPRB /)  
+KB(:,32, 3) = (/ &
+ & 0.42572E-03_JPRB,0.42052E-03_JPRB,0.41099E-03_JPRB,0.40377E-03_JPRB,0.39554E-03_JPRB /)  
+KB(:,33, 3) = (/ &
+ & 0.36528E-03_JPRB,0.36135E-03_JPRB,0.35701E-03_JPRB,0.34948E-03_JPRB,0.34456E-03_JPRB /)  
+KB(:,34, 3) = (/ &
+ & 0.31415E-03_JPRB,0.31283E-03_JPRB,0.30989E-03_JPRB,0.30612E-03_JPRB,0.30054E-03_JPRB /)  
+KB(:,35, 3) = (/ &
+ & 0.27352E-03_JPRB,0.27102E-03_JPRB,0.26979E-03_JPRB,0.26826E-03_JPRB,0.26448E-03_JPRB /)  
+KB(:,36, 3) = (/ &
+ & 0.23967E-03_JPRB,0.23742E-03_JPRB,0.23456E-03_JPRB,0.23474E-03_JPRB,0.23316E-03_JPRB /)  
+KB(:,37, 3) = (/ &
+ & 0.20338E-03_JPRB,0.20142E-03_JPRB,0.19919E-03_JPRB,0.19875E-03_JPRB,0.19818E-03_JPRB /)  
+KB(:,38, 3) = (/ &
+ & 0.17257E-03_JPRB,0.17079E-03_JPRB,0.16890E-03_JPRB,0.16818E-03_JPRB,0.16767E-03_JPRB /)  
+KB(:,39, 3) = (/ &
+ & 0.14733E-03_JPRB,0.14508E-03_JPRB,0.14396E-03_JPRB,0.14263E-03_JPRB,0.14203E-03_JPRB /)  
+KB(:,40, 3) = (/ &
+ & 0.12225E-03_JPRB,0.12069E-03_JPRB,0.11949E-03_JPRB,0.11833E-03_JPRB,0.11808E-03_JPRB /)  
+KB(:,41, 3) = (/ &
+ & 0.10097E-03_JPRB,0.10002E-03_JPRB,0.98765E-04_JPRB,0.97895E-04_JPRB,0.97754E-04_JPRB /)  
+KB(:,42, 3) = (/ &
+ & 0.83346E-04_JPRB,0.82796E-04_JPRB,0.81713E-04_JPRB,0.81007E-04_JPRB,0.80814E-04_JPRB /)  
+KB(:,43, 3) = (/ &
+ & 0.68346E-04_JPRB,0.68043E-04_JPRB,0.67367E-04_JPRB,0.66543E-04_JPRB,0.66059E-04_JPRB /)  
+KB(:,44, 3) = (/ &
+ & 0.55818E-04_JPRB,0.55703E-04_JPRB,0.55284E-04_JPRB,0.54584E-04_JPRB,0.54239E-04_JPRB /)  
+KB(:,45, 3) = (/ &
+ & 0.45332E-04_JPRB,0.45541E-04_JPRB,0.45337E-04_JPRB,0.44929E-04_JPRB,0.44433E-04_JPRB /)  
+KB(:,46, 3) = (/ &
+ & 0.36748E-04_JPRB,0.37223E-04_JPRB,0.37146E-04_JPRB,0.36884E-04_JPRB,0.36439E-04_JPRB /)  
+KB(:,47, 3) = (/ &
+ & 0.29601E-04_JPRB,0.30289E-04_JPRB,0.30405E-04_JPRB,0.30257E-04_JPRB,0.29929E-04_JPRB /)  
+KB(:,48, 3) = (/ &
+ & 0.23826E-04_JPRB,0.24579E-04_JPRB,0.24815E-04_JPRB,0.24762E-04_JPRB,0.24572E-04_JPRB /)  
+KB(:,49, 3) = (/ &
+ & 0.19377E-04_JPRB,0.19814E-04_JPRB,0.20191E-04_JPRB,0.20227E-04_JPRB,0.20080E-04_JPRB /)  
+KB(:,50, 3) = (/ &
+ & 0.15665E-04_JPRB,0.15965E-04_JPRB,0.16366E-04_JPRB,0.16467E-04_JPRB,0.16386E-04_JPRB /)  
+KB(:,51, 3) = (/ &
+ & 0.12631E-04_JPRB,0.12915E-04_JPRB,0.13203E-04_JPRB,0.13389E-04_JPRB,0.13403E-04_JPRB /)  
+KB(:,52, 3) = (/ &
+ & 0.10160E-04_JPRB,0.10402E-04_JPRB,0.10609E-04_JPRB,0.10858E-04_JPRB,0.10900E-04_JPRB /)  
+KB(:,53, 3) = (/ &
+ & 0.81514E-05_JPRB,0.83717E-05_JPRB,0.85717E-05_JPRB,0.87255E-05_JPRB,0.88490E-05_JPRB /)  
+KB(:,54, 3) = (/ &
+ & 0.65924E-05_JPRB,0.67623E-05_JPRB,0.69218E-05_JPRB,0.70363E-05_JPRB,0.71744E-05_JPRB /)  
+KB(:,55, 3) = (/ &
+ & 0.53378E-05_JPRB,0.54823E-05_JPRB,0.56002E-05_JPRB,0.57079E-05_JPRB,0.58136E-05_JPRB /)  
+KB(:,56, 3) = (/ &
+ & 0.43093E-05_JPRB,0.44306E-05_JPRB,0.45341E-05_JPRB,0.46443E-05_JPRB,0.47053E-05_JPRB /)  
+KB(:,57, 3) = (/ &
+ & 0.34880E-05_JPRB,0.35826E-05_JPRB,0.36738E-05_JPRB,0.37492E-05_JPRB,0.38094E-05_JPRB /)  
+KB(:,58, 3) = (/ &
+ & 0.28214E-05_JPRB,0.28911E-05_JPRB,0.29636E-05_JPRB,0.30269E-05_JPRB,0.30943E-05_JPRB /)  
+KB(:,59, 3) = (/ &
+ & 0.23049E-05_JPRB,0.23610E-05_JPRB,0.24232E-05_JPRB,0.24708E-05_JPRB,0.25266E-05_JPRB /)  
+KB(:,13, 4) = (/ &
+ & 0.16886E-01_JPRB,0.17177E-01_JPRB,0.17415E-01_JPRB,0.17613E-01_JPRB,0.17771E-01_JPRB /)  
+KB(:,14, 4) = (/ &
+ & 0.14297E-01_JPRB,0.14572E-01_JPRB,0.14791E-01_JPRB,0.14925E-01_JPRB,0.15051E-01_JPRB /)  
+KB(:,15, 4) = (/ &
+ & 0.12142E-01_JPRB,0.12342E-01_JPRB,0.12507E-01_JPRB,0.12640E-01_JPRB,0.12754E-01_JPRB /)  
+KB(:,16, 4) = (/ &
+ & 0.10284E-01_JPRB,0.10422E-01_JPRB,0.10545E-01_JPRB,0.10662E-01_JPRB,0.10740E-01_JPRB /)  
+KB(:,17, 4) = (/ &
+ & 0.87377E-02_JPRB,0.88415E-02_JPRB,0.89329E-02_JPRB,0.90175E-02_JPRB,0.90716E-02_JPRB /)  
+KB(:,18, 4) = (/ &
+ & 0.74766E-02_JPRB,0.75366E-02_JPRB,0.76038E-02_JPRB,0.76818E-02_JPRB,0.77135E-02_JPRB /)  
+KB(:,19, 4) = (/ &
+ & 0.64241E-02_JPRB,0.64546E-02_JPRB,0.65027E-02_JPRB,0.65449E-02_JPRB,0.65755E-02_JPRB /)  
+KB(:,20, 4) = (/ &
+ & 0.54390E-02_JPRB,0.54528E-02_JPRB,0.54854E-02_JPRB,0.55046E-02_JPRB,0.55309E-02_JPRB /)  
+KB(:,21, 4) = (/ &
+ & 0.45856E-02_JPRB,0.45888E-02_JPRB,0.46080E-02_JPRB,0.46219E-02_JPRB,0.46381E-02_JPRB /)  
+KB(:,22, 4) = (/ &
+ & 0.38581E-02_JPRB,0.38555E-02_JPRB,0.38631E-02_JPRB,0.38756E-02_JPRB,0.38888E-02_JPRB /)  
+KB(:,23, 4) = (/ &
+ & 0.32522E-02_JPRB,0.32442E-02_JPRB,0.32437E-02_JPRB,0.32522E-02_JPRB,0.32616E-02_JPRB /)  
+KB(:,24, 4) = (/ &
+ & 0.27421E-02_JPRB,0.27302E-02_JPRB,0.27267E-02_JPRB,0.27311E-02_JPRB,0.27351E-02_JPRB /)  
+KB(:,25, 4) = (/ &
+ & 0.23082E-02_JPRB,0.22984E-02_JPRB,0.22916E-02_JPRB,0.22928E-02_JPRB,0.22950E-02_JPRB /)  
+KB(:,26, 4) = (/ &
+ & 0.19386E-02_JPRB,0.19299E-02_JPRB,0.19241E-02_JPRB,0.19234E-02_JPRB,0.19234E-02_JPRB /)  
+KB(:,27, 4) = (/ &
+ & 0.16295E-02_JPRB,0.16227E-02_JPRB,0.16172E-02_JPRB,0.16132E-02_JPRB,0.16138E-02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART12',1,ZHOOK_HANDLE)
+END SUBROUTINE PART12
+
+
+SUBROUTINE PART13
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART13',0,ZHOOK_HANDLE)
+
+
+KB(:,28, 4) = (/ &
+ & 0.13714E-02_JPRB,0.13653E-02_JPRB,0.13589E-02_JPRB,0.13555E-02_JPRB,0.13562E-02_JPRB /)  
+KB(:,29, 4) = (/ &
+ & 0.11583E-02_JPRB,0.11513E-02_JPRB,0.11440E-02_JPRB,0.11416E-02_JPRB,0.11458E-02_JPRB /)  
+KB(:,30, 4) = (/ &
+ & 0.98213E-03_JPRB,0.97362E-03_JPRB,0.96774E-03_JPRB,0.96738E-03_JPRB,0.97898E-03_JPRB /)  
+KB(:,31, 4) = (/ &
+ & 0.83694E-03_JPRB,0.82733E-03_JPRB,0.82506E-03_JPRB,0.82584E-03_JPRB,0.83454E-03_JPRB /)  
+KB(:,32, 4) = (/ &
+ & 0.71631E-03_JPRB,0.70972E-03_JPRB,0.70944E-03_JPRB,0.70782E-03_JPRB,0.71382E-03_JPRB /)  
+KB(:,33, 4) = (/ &
+ & 0.62056E-03_JPRB,0.61607E-03_JPRB,0.61112E-03_JPRB,0.60974E-03_JPRB,0.61416E-03_JPRB /)  
+KB(:,34, 4) = (/ &
+ & 0.54260E-03_JPRB,0.53530E-03_JPRB,0.53018E-03_JPRB,0.53196E-03_JPRB,0.53190E-03_JPRB /)  
+KB(:,35, 4) = (/ &
+ & 0.47557E-03_JPRB,0.47060E-03_JPRB,0.46470E-03_JPRB,0.46463E-03_JPRB,0.46278E-03_JPRB /)  
+KB(:,36, 4) = (/ &
+ & 0.42108E-03_JPRB,0.41716E-03_JPRB,0.41356E-03_JPRB,0.41052E-03_JPRB,0.40671E-03_JPRB /)  
+KB(:,37, 4) = (/ &
+ & 0.36059E-03_JPRB,0.35753E-03_JPRB,0.35465E-03_JPRB,0.35204E-03_JPRB,0.34625E-03_JPRB /)  
+KB(:,38, 4) = (/ &
+ & 0.30926E-03_JPRB,0.30682E-03_JPRB,0.30403E-03_JPRB,0.30126E-03_JPRB,0.29597E-03_JPRB /)  
+KB(:,39, 4) = (/ &
+ & 0.26586E-03_JPRB,0.26397E-03_JPRB,0.26023E-03_JPRB,0.25654E-03_JPRB,0.25399E-03_JPRB /)  
+KB(:,40, 4) = (/ &
+ & 0.22228E-03_JPRB,0.22028E-03_JPRB,0.21711E-03_JPRB,0.21418E-03_JPRB,0.21203E-03_JPRB /)  
+KB(:,41, 4) = (/ &
+ & 0.18516E-03_JPRB,0.18277E-03_JPRB,0.18056E-03_JPRB,0.17797E-03_JPRB,0.17615E-03_JPRB /)  
+KB(:,42, 4) = (/ &
+ & 0.15367E-03_JPRB,0.15191E-03_JPRB,0.15012E-03_JPRB,0.14803E-03_JPRB,0.14667E-03_JPRB /)  
+KB(:,43, 4) = (/ &
+ & 0.12696E-03_JPRB,0.12546E-03_JPRB,0.12398E-03_JPRB,0.12239E-03_JPRB,0.12042E-03_JPRB /)  
+KB(:,44, 4) = (/ &
+ & 0.10470E-03_JPRB,0.10323E-03_JPRB,0.10199E-03_JPRB,0.10082E-03_JPRB,0.99093E-04_JPRB /)  
+KB(:,45, 4) = (/ &
+ & 0.86543E-04_JPRB,0.84786E-04_JPRB,0.83972E-04_JPRB,0.82789E-04_JPRB,0.81392E-04_JPRB /)  
+KB(:,46, 4) = (/ &
+ & 0.71529E-04_JPRB,0.69963E-04_JPRB,0.68982E-04_JPRB,0.67996E-04_JPRB,0.66867E-04_JPRB /)  
+KB(:,47, 4) = (/ &
+ & 0.59457E-04_JPRB,0.57707E-04_JPRB,0.56668E-04_JPRB,0.55899E-04_JPRB,0.54959E-04_JPRB /)  
+KB(:,48, 4) = (/ &
+ & 0.49467E-04_JPRB,0.47679E-04_JPRB,0.46593E-04_JPRB,0.45887E-04_JPRB,0.45090E-04_JPRB /)  
+KB(:,49, 4) = (/ &
+ & 0.40766E-04_JPRB,0.39435E-04_JPRB,0.38281E-04_JPRB,0.37548E-04_JPRB,0.37003E-04_JPRB /)  
+KB(:,50, 4) = (/ &
+ & 0.33628E-04_JPRB,0.32753E-04_JPRB,0.31623E-04_JPRB,0.30893E-04_JPRB,0.30385E-04_JPRB /)  
+KB(:,51, 4) = (/ &
+ & 0.27865E-04_JPRB,0.27055E-04_JPRB,0.26162E-04_JPRB,0.25458E-04_JPRB,0.24898E-04_JPRB /)  
+KB(:,52, 4) = (/ &
+ & 0.22934E-04_JPRB,0.22328E-04_JPRB,0.21731E-04_JPRB,0.20990E-04_JPRB,0.20456E-04_JPRB /)  
+KB(:,53, 4) = (/ &
+ & 0.18846E-04_JPRB,0.18445E-04_JPRB,0.17912E-04_JPRB,0.17357E-04_JPRB,0.16833E-04_JPRB /)  
+KB(:,54, 4) = (/ &
+ & 0.15388E-04_JPRB,0.15212E-04_JPRB,0.14808E-04_JPRB,0.14414E-04_JPRB,0.13935E-04_JPRB /)  
+KB(:,55, 4) = (/ &
+ & 0.12598E-04_JPRB,0.12543E-04_JPRB,0.12261E-04_JPRB,0.11957E-04_JPRB,0.11571E-04_JPRB /)  
+KB(:,56, 4) = (/ &
+ & 0.10381E-04_JPRB,0.10344E-04_JPRB,0.10166E-04_JPRB,0.98775E-05_JPRB,0.96020E-05_JPRB /)  
+KB(:,57, 4) = (/ &
+ & 0.85457E-05_JPRB,0.84639E-05_JPRB,0.83932E-05_JPRB,0.81757E-05_JPRB,0.79545E-05_JPRB /)  
+KB(:,58, 4) = (/ &
+ & 0.70397E-05_JPRB,0.69486E-05_JPRB,0.69316E-05_JPRB,0.67696E-05_JPRB,0.65859E-05_JPRB /)  
+KB(:,59, 4) = (/ &
+ & 0.58257E-05_JPRB,0.57596E-05_JPRB,0.57448E-05_JPRB,0.56300E-05_JPRB,0.54831E-05_JPRB /)  
+KB(:,13, 5) = (/ &
+ & 0.33040E-01_JPRB,0.33623E-01_JPRB,0.34360E-01_JPRB,0.35360E-01_JPRB,0.36383E-01_JPRB /)  
+KB(:,14, 5) = (/ &
+ & 0.28634E-01_JPRB,0.29145E-01_JPRB,0.29913E-01_JPRB,0.30773E-01_JPRB,0.31595E-01_JPRB /)  
+KB(:,15, 5) = (/ &
+ & 0.24852E-01_JPRB,0.25387E-01_JPRB,0.26038E-01_JPRB,0.26736E-01_JPRB,0.27406E-01_JPRB /)  
+KB(:,16, 5) = (/ &
+ & 0.21426E-01_JPRB,0.21995E-01_JPRB,0.22531E-01_JPRB,0.23082E-01_JPRB,0.23575E-01_JPRB /)  
+KB(:,17, 5) = (/ &
+ & 0.18563E-01_JPRB,0.19011E-01_JPRB,0.19492E-01_JPRB,0.19940E-01_JPRB,0.20337E-01_JPRB /)  
+KB(:,18, 5) = (/ &
+ & 0.16067E-01_JPRB,0.16476E-01_JPRB,0.16902E-01_JPRB,0.17235E-01_JPRB,0.17579E-01_JPRB /)  
+KB(:,19, 5) = (/ &
+ & 0.13911E-01_JPRB,0.14318E-01_JPRB,0.14657E-01_JPRB,0.14999E-01_JPRB,0.15265E-01_JPRB /)  
+KB(:,20, 5) = (/ &
+ & 0.11889E-01_JPRB,0.12220E-01_JPRB,0.12522E-01_JPRB,0.12793E-01_JPRB,0.13028E-01_JPRB /)  
+KB(:,21, 5) = (/ &
+ & 0.10107E-01_JPRB,0.10365E-01_JPRB,0.10626E-01_JPRB,0.10840E-01_JPRB,0.11030E-01_JPRB /)  
+KB(:,22, 5) = (/ &
+ & 0.85828E-02_JPRB,0.88037E-02_JPRB,0.90066E-02_JPRB,0.91828E-02_JPRB,0.93108E-02_JPRB /)  
+KB(:,23, 5) = (/ &
+ & 0.72873E-02_JPRB,0.74698E-02_JPRB,0.76229E-02_JPRB,0.77606E-02_JPRB,0.78812E-02_JPRB /)  
+KB(:,24, 5) = (/ &
+ & 0.61731E-02_JPRB,0.63486E-02_JPRB,0.64551E-02_JPRB,0.65686E-02_JPRB,0.66826E-02_JPRB /)  
+KB(:,25, 5) = (/ &
+ & 0.52349E-02_JPRB,0.53827E-02_JPRB,0.54728E-02_JPRB,0.55581E-02_JPRB,0.56691E-02_JPRB /)  
+KB(:,26, 5) = (/ &
+ & 0.44343E-02_JPRB,0.45615E-02_JPRB,0.46303E-02_JPRB,0.47140E-02_JPRB,0.48058E-02_JPRB /)  
+KB(:,27, 5) = (/ &
+ & 0.37566E-02_JPRB,0.38599E-02_JPRB,0.39250E-02_JPRB,0.39996E-02_JPRB,0.40739E-02_JPRB /)  
+KB(:,28, 5) = (/ &
+ & 0.31898E-02_JPRB,0.32700E-02_JPRB,0.33284E-02_JPRB,0.33863E-02_JPRB,0.34483E-02_JPRB /)  
+KB(:,29, 5) = (/ &
+ & 0.27069E-02_JPRB,0.27638E-02_JPRB,0.28173E-02_JPRB,0.28668E-02_JPRB,0.29159E-02_JPRB /)  
+KB(:,30, 5) = (/ &
+ & 0.22952E-02_JPRB,0.23414E-02_JPRB,0.23862E-02_JPRB,0.24319E-02_JPRB,0.25045E-02_JPRB /)  
+KB(:,31, 5) = (/ &
+ & 0.19469E-02_JPRB,0.19866E-02_JPRB,0.20269E-02_JPRB,0.20617E-02_JPRB,0.21285E-02_JPRB /)  
+KB(:,32, 5) = (/ &
+ & 0.16569E-02_JPRB,0.16912E-02_JPRB,0.17225E-02_JPRB,0.17537E-02_JPRB,0.18151E-02_JPRB /)  
+KB(:,33, 5) = (/ &
+ & 0.14159E-02_JPRB,0.14407E-02_JPRB,0.14672E-02_JPRB,0.14987E-02_JPRB,0.15568E-02_JPRB /)  
+KB(:,34, 5) = (/ &
+ & 0.12124E-02_JPRB,0.12314E-02_JPRB,0.12565E-02_JPRB,0.13096E-02_JPRB,0.13455E-02_JPRB /)  
+KB(:,35, 5) = (/ &
+ & 0.10402E-02_JPRB,0.10574E-02_JPRB,0.10852E-02_JPRB,0.11323E-02_JPRB,0.11671E-02_JPRB /)  
+KB(:,36, 5) = (/ &
+ & 0.89606E-03_JPRB,0.91393E-03_JPRB,0.93957E-03_JPRB,0.98258E-03_JPRB,0.10142E-02_JPRB /)  
+KB(:,37, 5) = (/ &
+ & 0.75556E-03_JPRB,0.77347E-03_JPRB,0.79494E-03_JPRB,0.83337E-03_JPRB,0.86466E-03_JPRB /)  
+KB(:,38, 5) = (/ &
+ & 0.63793E-03_JPRB,0.65386E-03_JPRB,0.67373E-03_JPRB,0.70925E-03_JPRB,0.73610E-03_JPRB /)  
+KB(:,39, 5) = (/ &
+ & 0.53995E-03_JPRB,0.55394E-03_JPRB,0.57091E-03_JPRB,0.59316E-03_JPRB,0.62725E-03_JPRB /)  
+KB(:,40, 5) = (/ &
+ & 0.44830E-03_JPRB,0.46041E-03_JPRB,0.47605E-03_JPRB,0.49517E-03_JPRB,0.52406E-03_JPRB /)  
+KB(:,41, 5) = (/ &
+ & 0.37113E-03_JPRB,0.38143E-03_JPRB,0.39555E-03_JPRB,0.41230E-03_JPRB,0.43648E-03_JPRB /)  
+KB(:,42, 5) = (/ &
+ & 0.30743E-03_JPRB,0.31617E-03_JPRB,0.32840E-03_JPRB,0.34246E-03_JPRB,0.36323E-03_JPRB /)  
+KB(:,43, 5) = (/ &
+ & 0.25237E-03_JPRB,0.25981E-03_JPRB,0.27013E-03_JPRB,0.28179E-03_JPRB,0.29414E-03_JPRB /)  
+KB(:,44, 5) = (/ &
+ & 0.20643E-03_JPRB,0.21247E-03_JPRB,0.22138E-03_JPRB,0.23093E-03_JPRB,0.24175E-03_JPRB /)  
+KB(:,45, 5) = (/ &
+ & 0.16882E-03_JPRB,0.17379E-03_JPRB,0.18072E-03_JPRB,0.18917E-03_JPRB,0.19837E-03_JPRB /)  
+KB(:,46, 5) = (/ &
+ & 0.13808E-03_JPRB,0.14140E-03_JPRB,0.14740E-03_JPRB,0.15462E-03_JPRB,0.16243E-03_JPRB /)  
+KB(:,47, 5) = (/ &
+ & 0.11262E-03_JPRB,0.11523E-03_JPRB,0.12010E-03_JPRB,0.12571E-03_JPRB,0.13225E-03_JPRB /)  
+KB(:,48, 5) = (/ &
+ & 0.91738E-04_JPRB,0.93816E-04_JPRB,0.97414E-04_JPRB,0.10204E-03_JPRB,0.10733E-03_JPRB /)  
+KB(:,49, 5) = (/ &
+ & 0.74533E-04_JPRB,0.76356E-04_JPRB,0.78756E-04_JPRB,0.82697E-04_JPRB,0.86848E-04_JPRB /)  
+KB(:,50, 5) = (/ &
+ & 0.60870E-04_JPRB,0.62211E-04_JPRB,0.64031E-04_JPRB,0.67056E-04_JPRB,0.70590E-04_JPRB /)  
+KB(:,51, 5) = (/ &
+ & 0.49547E-04_JPRB,0.50786E-04_JPRB,0.52181E-04_JPRB,0.54428E-04_JPRB,0.57574E-04_JPRB /)  
+KB(:,52, 5) = (/ &
+ & 0.40457E-04_JPRB,0.41364E-04_JPRB,0.42403E-04_JPRB,0.44095E-04_JPRB,0.46746E-04_JPRB /)  
+KB(:,53, 5) = (/ &
+ & 0.33032E-04_JPRB,0.33540E-04_JPRB,0.34449E-04_JPRB,0.35762E-04_JPRB,0.37780E-04_JPRB /)  
+KB(:,54, 5) = (/ &
+ & 0.27201E-04_JPRB,0.27411E-04_JPRB,0.28166E-04_JPRB,0.29168E-04_JPRB,0.30744E-04_JPRB /)  
+KB(:,55, 5) = (/ &
+ & 0.22471E-04_JPRB,0.22532E-04_JPRB,0.23075E-04_JPRB,0.23887E-04_JPRB,0.25092E-04_JPRB /)  
+KB(:,56, 5) = (/ &
+ & 0.18480E-04_JPRB,0.18516E-04_JPRB,0.18857E-04_JPRB,0.19555E-04_JPRB,0.20483E-04_JPRB /)  
+KB(:,57, 5) = (/ &
+ & 0.15198E-04_JPRB,0.15262E-04_JPRB,0.15424E-04_JPRB,0.15989E-04_JPRB,0.16742E-04_JPRB /)  
+KB(:,58, 5) = (/ &
+ & 0.12523E-04_JPRB,0.12562E-04_JPRB,0.12648E-04_JPRB,0.13089E-04_JPRB,0.13686E-04_JPRB /)  
+KB(:,59, 5) = (/ &
+ & 0.10416E-04_JPRB,0.10433E-04_JPRB,0.10536E-04_JPRB,0.10919E-04_JPRB,0.11421E-04_JPRB /)  
+KB(:,13, 6) = (/ &
+ & 0.69718E-01_JPRB,0.71167E-01_JPRB,0.72961E-01_JPRB,0.74885E-01_JPRB,0.77322E-01_JPRB /)  
+KB(:,14, 6) = (/ &
+ & 0.62182E-01_JPRB,0.63649E-01_JPRB,0.65193E-01_JPRB,0.67193E-01_JPRB,0.69746E-01_JPRB /)  
+KB(:,15, 6) = (/ &
+ & 0.55177E-01_JPRB,0.56711E-01_JPRB,0.58414E-01_JPRB,0.60422E-01_JPRB,0.62756E-01_JPRB /)  
+KB(:,16, 6) = (/ &
+ & 0.48867E-01_JPRB,0.50234E-01_JPRB,0.52023E-01_JPRB,0.54055E-01_JPRB,0.56254E-01_JPRB /)  
+KB(:,17, 6) = (/ &
+ & 0.43174E-01_JPRB,0.44610E-01_JPRB,0.46287E-01_JPRB,0.48302E-01_JPRB,0.50389E-01_JPRB /)  
+KB(:,18, 6) = (/ &
+ & 0.38339E-01_JPRB,0.39749E-01_JPRB,0.41335E-01_JPRB,0.43237E-01_JPRB,0.45123E-01_JPRB /)  
+KB(:,19, 6) = (/ &
+ & 0.34315E-01_JPRB,0.35543E-01_JPRB,0.37065E-01_JPRB,0.38754E-01_JPRB,0.40597E-01_JPRB /)  
+KB(:,20, 6) = (/ &
+ & 0.30036E-01_JPRB,0.31291E-01_JPRB,0.32637E-01_JPRB,0.34202E-01_JPRB,0.35839E-01_JPRB /)  
+KB(:,21, 6) = (/ &
+ & 0.26135E-01_JPRB,0.27343E-01_JPRB,0.28574E-01_JPRB,0.30000E-01_JPRB,0.31460E-01_JPRB /)  
+KB(:,22, 6) = (/ &
+ & 0.22750E-01_JPRB,0.23832E-01_JPRB,0.25080E-01_JPRB,0.26299E-01_JPRB,0.27580E-01_JPRB /)  
+KB(:,23, 6) = (/ &
+ & 0.19795E-01_JPRB,0.20915E-01_JPRB,0.22028E-01_JPRB,0.23060E-01_JPRB,0.24140E-01_JPRB /)  
+KB(:,24, 6) = (/ &
+ & 0.17353E-01_JPRB,0.18346E-01_JPRB,0.19305E-01_JPRB,0.20238E-01_JPRB,0.21103E-01_JPRB /)  
+KB(:,25, 6) = (/ &
+ & 0.15226E-01_JPRB,0.16064E-01_JPRB,0.16955E-01_JPRB,0.17722E-01_JPRB,0.18477E-01_JPRB /)  
+KB(:,26, 6) = (/ &
+ & 0.13309E-01_JPRB,0.14087E-01_JPRB,0.14848E-01_JPRB,0.15498E-01_JPRB,0.16180E-01_JPRB /)  
+KB(:,27, 6) = (/ &
+ & 0.11623E-01_JPRB,0.12295E-01_JPRB,0.12913E-01_JPRB,0.13525E-01_JPRB,0.14113E-01_JPRB /)  
+KB(:,28, 6) = (/ &
+ & 0.10147E-01_JPRB,0.10710E-01_JPRB,0.11240E-01_JPRB,0.11795E-01_JPRB,0.12384E-01_JPRB /)  
+KB(:,29, 6) = (/ &
+ & 0.87968E-02_JPRB,0.92904E-02_JPRB,0.97797E-02_JPRB,0.10288E-01_JPRB,0.10828E-01_JPRB /)  
+KB(:,30, 6) = (/ &
+ & 0.76490E-02_JPRB,0.80771E-02_JPRB,0.85219E-02_JPRB,0.90152E-02_JPRB,0.97888E-02_JPRB /)  
+KB(:,31, 6) = (/ &
+ & 0.66330E-02_JPRB,0.70376E-02_JPRB,0.74659E-02_JPRB,0.79113E-02_JPRB,0.86622E-02_JPRB /)  
+KB(:,32, 6) = (/ &
+ & 0.58073E-02_JPRB,0.61697E-02_JPRB,0.65754E-02_JPRB,0.70309E-02_JPRB,0.77115E-02_JPRB /)  
+KB(:,33, 6) = (/ &
+ & 0.51062E-02_JPRB,0.54682E-02_JPRB,0.58582E-02_JPRB,0.62737E-02_JPRB,0.69163E-02_JPRB /)  
+KB(:,34, 6) = (/ &
+ & 0.45302E-02_JPRB,0.48855E-02_JPRB,0.52639E-02_JPRB,0.58227E-02_JPRB,0.62719E-02_JPRB /)  
+KB(:,35, 6) = (/ &
+ & 0.40254E-02_JPRB,0.43599E-02_JPRB,0.47158E-02_JPRB,0.52732E-02_JPRB,0.57228E-02_JPRB /)  
+KB(:,36, 6) = (/ &
+ & 0.35647E-02_JPRB,0.38837E-02_JPRB,0.42167E-02_JPRB,0.47705E-02_JPRB,0.52032E-02_JPRB /)  
+KB(:,37, 6) = (/ &
+ & 0.30730E-02_JPRB,0.33561E-02_JPRB,0.36823E-02_JPRB,0.41868E-02_JPRB,0.45932E-02_JPRB /)  
+KB(:,38, 6) = (/ &
+ & 0.26407E-02_JPRB,0.29052E-02_JPRB,0.32061E-02_JPRB,0.36781E-02_JPRB,0.40664E-02_JPRB /)  
+KB(:,39, 6) = (/ &
+ & 0.22667E-02_JPRB,0.25156E-02_JPRB,0.28017E-02_JPRB,0.31173E-02_JPRB,0.36136E-02_JPRB /)  
+KB(:,40, 6) = (/ &
+ & 0.19056E-02_JPRB,0.21267E-02_JPRB,0.23879E-02_JPRB,0.26789E-02_JPRB,0.31309E-02_JPRB /)  
+KB(:,41, 6) = (/ &
+ & 0.15967E-02_JPRB,0.17952E-02_JPRB,0.20263E-02_JPRB,0.22865E-02_JPRB,0.27062E-02_JPRB /)  
+KB(:,42, 6) = (/ &
+ & 0.13343E-02_JPRB,0.15081E-02_JPRB,0.17167E-02_JPRB,0.19538E-02_JPRB,0.23416E-02_JPRB /)  
+KB(:,43, 6) = (/ &
+ & 0.10981E-02_JPRB,0.12492E-02_JPRB,0.14292E-02_JPRB,0.16430E-02_JPRB,0.19013E-02_JPRB /)  
+KB(:,44, 6) = (/ &
+ & 0.89464E-03_JPRB,0.10267E-02_JPRB,0.11827E-02_JPRB,0.13698E-02_JPRB,0.16046E-02_JPRB /)  
+KB(:,45, 6) = (/ &
+ & 0.72683E-03_JPRB,0.83985E-03_JPRB,0.97469E-03_JPRB,0.11376E-02_JPRB,0.13459E-02_JPRB /)  
+KB(:,46, 6) = (/ &
+ & 0.58610E-03_JPRB,0.68242E-03_JPRB,0.79873E-03_JPRB,0.94079E-03_JPRB,0.11248E-02_JPRB /)  
+KB(:,47, 6) = (/ &
+ & 0.46823E-03_JPRB,0.54958E-03_JPRB,0.64876E-03_JPRB,0.77111E-03_JPRB,0.93276E-03_JPRB /)  
+KB(:,48, 6) = (/ &
+ & 0.37202E-03_JPRB,0.44089E-03_JPRB,0.52431E-03_JPRB,0.62811E-03_JPRB,0.76979E-03_JPRB /)  
+KB(:,49, 6) = (/ &
+ & 0.29424E-03_JPRB,0.35087E-03_JPRB,0.42017E-03_JPRB,0.50926E-03_JPRB,0.63166E-03_JPRB /)  
+KB(:,50, 6) = (/ &
+ & 0.23381E-03_JPRB,0.28036E-03_JPRB,0.33854E-03_JPRB,0.41547E-03_JPRB,0.52066E-03_JPRB /)  
+KB(:,51, 6) = (/ &
+ & 0.18542E-03_JPRB,0.22410E-03_JPRB,0.27211E-03_JPRB,0.33806E-03_JPRB,0.42775E-03_JPRB /)  
+KB(:,52, 6) = (/ &
+ & 0.14646E-03_JPRB,0.17824E-03_JPRB,0.21799E-03_JPRB,0.27400E-03_JPRB,0.34964E-03_JPRB /)  
+KB(:,53, 6) = (/ &
+ & 0.11499E-03_JPRB,0.14049E-03_JPRB,0.17412E-03_JPRB,0.22038E-03_JPRB,0.28435E-03_JPRB /)  
+KB(:,54, 6) = (/ &
+ & 0.91160E-04_JPRB,0.11217E-03_JPRB,0.13972E-03_JPRB,0.17793E-03_JPRB,0.23213E-03_JPRB /)  
+KB(:,55, 6) = (/ &
+ & 0.72474E-04_JPRB,0.89606E-04_JPRB,0.11228E-03_JPRB,0.14368E-03_JPRB,0.18928E-03_JPRB /)  
+KB(:,56, 6) = (/ &
+ & 0.57463E-04_JPRB,0.71291E-04_JPRB,0.89786E-04_JPRB,0.11554E-03_JPRB,0.15352E-03_JPRB /)  
+KB(:,57, 6) = (/ &
+ & 0.45287E-04_JPRB,0.56571E-04_JPRB,0.71524E-04_JPRB,0.92319E-04_JPRB,0.12382E-03_JPRB /)  
+KB(:,58, 6) = (/ &
+ & 0.35841E-04_JPRB,0.44939E-04_JPRB,0.57025E-04_JPRB,0.73710E-04_JPRB,0.99673E-04_JPRB /)  
+KB(:,59, 6) = (/ &
+ & 0.29941E-04_JPRB,0.37721E-04_JPRB,0.48119E-04_JPRB,0.62420E-04_JPRB,0.85059E-04_JPRB /)  
+KB(:,13, 7) = (/ &
+ & 0.16189E+00_JPRB,0.16561E+00_JPRB,0.16999E+00_JPRB,0.17514E+00_JPRB,0.18068E+00_JPRB /)  
+KB(:,14, 7) = (/ &
+ & 0.14981E+00_JPRB,0.15416E+00_JPRB,0.15917E+00_JPRB,0.16420E+00_JPRB,0.16989E+00_JPRB /)  
+KB(:,15, 7) = (/ &
+ & 0.13875E+00_JPRB,0.14297E+00_JPRB,0.14757E+00_JPRB,0.15249E+00_JPRB,0.15852E+00_JPRB /)  
+KB(:,16, 7) = (/ &
+ & 0.12672E+00_JPRB,0.13073E+00_JPRB,0.13523E+00_JPRB,0.14037E+00_JPRB,0.14640E+00_JPRB /)  
+KB(:,17, 7) = (/ &
+ & 0.11530E+00_JPRB,0.11958E+00_JPRB,0.12450E+00_JPRB,0.12975E+00_JPRB,0.13596E+00_JPRB /)  
+KB(:,18, 7) = (/ &
+ & 0.10572E+00_JPRB,0.11005E+00_JPRB,0.11482E+00_JPRB,0.12031E+00_JPRB,0.12674E+00_JPRB /)  
+KB(:,19, 7) = (/ &
+ & 0.97798E-01_JPRB,0.10221E+00_JPRB,0.10713E+00_JPRB,0.11251E+00_JPRB,0.11882E+00_JPRB /)  
+KB(:,20, 7) = (/ &
+ & 0.88438E-01_JPRB,0.93059E-01_JPRB,0.98290E-01_JPRB,0.10406E+00_JPRB,0.11034E+00_JPRB /)  
+KB(:,21, 7) = (/ &
+ & 0.79615E-01_JPRB,0.84383E-01_JPRB,0.89776E-01_JPRB,0.95707E-01_JPRB,0.10218E+00_JPRB /)  
+KB(:,22, 7) = (/ &
+ & 0.71663E-01_JPRB,0.76568E-01_JPRB,0.81968E-01_JPRB,0.88106E-01_JPRB,0.94703E-01_JPRB /)  
+KB(:,23, 7) = (/ &
+ & 0.64729E-01_JPRB,0.69601E-01_JPRB,0.75178E-01_JPRB,0.81445E-01_JPRB,0.88072E-01_JPRB /)  
+KB(:,24, 7) = (/ &
+ & 0.58713E-01_JPRB,0.63692E-01_JPRB,0.69398E-01_JPRB,0.75609E-01_JPRB,0.82402E-01_JPRB /)  
+KB(:,25, 7) = (/ &
+ & 0.53422E-01_JPRB,0.58504E-01_JPRB,0.64255E-01_JPRB,0.70582E-01_JPRB,0.77266E-01_JPRB /)  
+KB(:,26, 7) = (/ &
+ & 0.48884E-01_JPRB,0.53907E-01_JPRB,0.59754E-01_JPRB,0.66093E-01_JPRB,0.72781E-01_JPRB /)  
+KB(:,27, 7) = (/ &
+ & 0.44782E-01_JPRB,0.49959E-01_JPRB,0.55649E-01_JPRB,0.61937E-01_JPRB,0.68517E-01_JPRB /)  
+KB(:,28, 7) = (/ &
+ & 0.41164E-01_JPRB,0.46305E-01_JPRB,0.52009E-01_JPRB,0.58205E-01_JPRB,0.64389E-01_JPRB /)  
+KB(:,29, 7) = (/ &
+ & 0.37976E-01_JPRB,0.43033E-01_JPRB,0.48696E-01_JPRB,0.54470E-01_JPRB,0.60707E-01_JPRB /)  
+KB(:,30, 7) = (/ &
+ & 0.35210E-01_JPRB,0.40258E-01_JPRB,0.45653E-01_JPRB,0.51435E-01_JPRB,0.59091E-01_JPRB /)  
+KB(:,31, 7) = (/ &
+ & 0.32774E-01_JPRB,0.37557E-01_JPRB,0.43028E-01_JPRB,0.48762E-01_JPRB,0.56208E-01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART13',1,ZHOOK_HANDLE)
+END SUBROUTINE PART13
+
+
+SUBROUTINE PART14
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART14',0,ZHOOK_HANDLE)
+
+
+KB(:,32, 7) = (/ &
+ & 0.30628E-01_JPRB,0.35555E-01_JPRB,0.40840E-01_JPRB,0.46513E-01_JPRB,0.53917E-01_JPRB /)  
+KB(:,33, 7) = (/ &
+ & 0.29120E-01_JPRB,0.33908E-01_JPRB,0.39209E-01_JPRB,0.44801E-01_JPRB,0.52179E-01_JPRB /)  
+KB(:,34, 7) = (/ &
+ & 0.27843E-01_JPRB,0.32610E-01_JPRB,0.37873E-01_JPRB,0.45101E-01_JPRB,0.51127E-01_JPRB /)  
+KB(:,35, 7) = (/ &
+ & 0.26429E-01_JPRB,0.31201E-01_JPRB,0.36480E-01_JPRB,0.43796E-01_JPRB,0.49886E-01_JPRB /)  
+KB(:,36, 7) = (/ &
+ & 0.24910E-01_JPRB,0.29603E-01_JPRB,0.34935E-01_JPRB,0.42317E-01_JPRB,0.48474E-01_JPRB /)  
+KB(:,37, 7) = (/ &
+ & 0.22623E-01_JPRB,0.27186E-01_JPRB,0.32364E-01_JPRB,0.39709E-01_JPRB,0.45895E-01_JPRB /)  
+KB(:,38, 7) = (/ &
+ & 0.20536E-01_JPRB,0.25035E-01_JPRB,0.30138E-01_JPRB,0.37341E-01_JPRB,0.43584E-01_JPRB /)  
+KB(:,39, 7) = (/ &
+ & 0.18744E-01_JPRB,0.23143E-01_JPRB,0.28133E-01_JPRB,0.33754E-01_JPRB,0.41569E-01_JPRB /)  
+KB(:,40, 7) = (/ &
+ & 0.16632E-01_JPRB,0.20751E-01_JPRB,0.25556E-01_JPRB,0.30972E-01_JPRB,0.38593E-01_JPRB /)  
+KB(:,41, 7) = (/ &
+ & 0.14671E-01_JPRB,0.18541E-01_JPRB,0.23110E-01_JPRB,0.28292E-01_JPRB,0.35702E-01_JPRB /)  
+KB(:,42, 7) = (/ &
+ & 0.12909E-01_JPRB,0.16573E-01_JPRB,0.20901E-01_JPRB,0.25885E-01_JPRB,0.32997E-01_JPRB /)  
+KB(:,43, 7) = (/ &
+ & 0.11155E-01_JPRB,0.14521E-01_JPRB,0.18561E-01_JPRB,0.23268E-01_JPRB,0.28558E-01_JPRB /)  
+KB(:,44, 7) = (/ &
+ & 0.95144E-02_JPRB,0.12576E-01_JPRB,0.16313E-01_JPRB,0.20662E-01_JPRB,0.25638E-01_JPRB /)  
+KB(:,45, 7) = (/ &
+ & 0.80643E-02_JPRB,0.10847E-01_JPRB,0.14290E-01_JPRB,0.18347E-01_JPRB,0.23034E-01_JPRB /)  
+KB(:,46, 7) = (/ &
+ & 0.67589E-02_JPRB,0.92659E-02_JPRB,0.12372E-01_JPRB,0.16082E-01_JPRB,0.20456E-01_JPRB /)  
+KB(:,47, 7) = (/ &
+ & 0.55482E-02_JPRB,0.77474E-02_JPRB,0.10528E-01_JPRB,0.13920E-01_JPRB,0.17966E-01_JPRB /)  
+KB(:,48, 7) = (/ &
+ & 0.45013E-02_JPRB,0.64175E-02_JPRB,0.88907E-02_JPRB,0.11958E-01_JPRB,0.15638E-01_JPRB /)  
+KB(:,49, 7) = (/ &
+ & 0.36173E-02_JPRB,0.52743E-02_JPRB,0.74530E-02_JPRB,0.10200E-01_JPRB,0.13544E-01_JPRB /)  
+KB(:,50, 7) = (/ &
+ & 0.29073E-02_JPRB,0.43372E-02_JPRB,0.62514E-02_JPRB,0.87078E-02_JPRB,0.11757E-01_JPRB /)  
+KB(:,51, 7) = (/ &
+ & 0.23200E-02_JPRB,0.35429E-02_JPRB,0.52236E-02_JPRB,0.74160E-02_JPRB,0.10190E-01_JPRB /)  
+KB(:,52, 7) = (/ &
+ & 0.18398E-02_JPRB,0.28704E-02_JPRB,0.43321E-02_JPRB,0.62743E-02_JPRB,0.87585E-02_JPRB /)  
+KB(:,53, 7) = (/ &
+ & 0.14394E-02_JPRB,0.22999E-02_JPRB,0.35535E-02_JPRB,0.52615E-02_JPRB,0.74854E-02_JPRB /)  
+KB(:,54, 7) = (/ &
+ & 0.11368E-02_JPRB,0.18545E-02_JPRB,0.29326E-02_JPRB,0.44372E-02_JPRB,0.64347E-02_JPRB /)  
+KB(:,55, 7) = (/ &
+ & 0.89467E-03_JPRB,0.14935E-02_JPRB,0.24197E-02_JPRB,0.37410E-02_JPRB,0.55222E-02_JPRB /)  
+KB(:,56, 7) = (/ &
+ & 0.69687E-03_JPRB,0.11894E-02_JPRB,0.19763E-02_JPRB,0.31286E-02_JPRB,0.47149E-02_JPRB /)  
+KB(:,57, 7) = (/ &
+ & 0.53791E-03_JPRB,0.93747E-03_JPRB,0.15990E-02_JPRB,0.25976E-02_JPRB,0.39986E-02_JPRB /)  
+KB(:,58, 7) = (/ &
+ & 0.41410E-03_JPRB,0.73971E-03_JPRB,0.12907E-02_JPRB,0.21482E-02_JPRB,0.33858E-02_JPRB /)  
+KB(:,59, 7) = (/ &
+ & 0.35405E-03_JPRB,0.64717E-03_JPRB,0.11503E-02_JPRB,0.19466E-02_JPRB,0.31094E-02_JPRB /)  
+KB(:,13, 8) = (/ &
+ & 0.45516E+00_JPRB,0.46955E+00_JPRB,0.48450E+00_JPRB,0.50029E+00_JPRB,0.51769E+00_JPRB /)  
+KB(:,14, 8) = (/ &
+ & 0.43991E+00_JPRB,0.45312E+00_JPRB,0.46646E+00_JPRB,0.48116E+00_JPRB,0.49718E+00_JPRB /)  
+KB(:,15, 8) = (/ &
+ & 0.42871E+00_JPRB,0.44246E+00_JPRB,0.45762E+00_JPRB,0.47406E+00_JPRB,0.49132E+00_JPRB /)  
+KB(:,16, 8) = (/ &
+ & 0.40699E+00_JPRB,0.42153E+00_JPRB,0.43710E+00_JPRB,0.45468E+00_JPRB,0.47435E+00_JPRB /)  
+KB(:,17, 8) = (/ &
+ & 0.38538E+00_JPRB,0.39940E+00_JPRB,0.41418E+00_JPRB,0.43146E+00_JPRB,0.45140E+00_JPRB /)  
+KB(:,18, 8) = (/ &
+ & 0.36235E+00_JPRB,0.37741E+00_JPRB,0.39391E+00_JPRB,0.41121E+00_JPRB,0.43054E+00_JPRB /)  
+KB(:,19, 8) = (/ &
+ & 0.34180E+00_JPRB,0.35677E+00_JPRB,0.37295E+00_JPRB,0.39070E+00_JPRB,0.41121E+00_JPRB /)  
+KB(:,20, 8) = (/ &
+ & 0.31818E+00_JPRB,0.33243E+00_JPRB,0.34824E+00_JPRB,0.36683E+00_JPRB,0.38832E+00_JPRB /)  
+KB(:,21, 8) = (/ &
+ & 0.29454E+00_JPRB,0.30892E+00_JPRB,0.32519E+00_JPRB,0.34434E+00_JPRB,0.36621E+00_JPRB /)  
+KB(:,22, 8) = (/ &
+ & 0.27292E+00_JPRB,0.28819E+00_JPRB,0.30567E+00_JPRB,0.32553E+00_JPRB,0.34730E+00_JPRB /)  
+KB(:,23, 8) = (/ &
+ & 0.25455E+00_JPRB,0.27053E+00_JPRB,0.28810E+00_JPRB,0.30845E+00_JPRB,0.33065E+00_JPRB /)  
+KB(:,24, 8) = (/ &
+ & 0.23920E+00_JPRB,0.25523E+00_JPRB,0.27293E+00_JPRB,0.29370E+00_JPRB,0.31644E+00_JPRB /)  
+KB(:,25, 8) = (/ &
+ & 0.22572E+00_JPRB,0.24152E+00_JPRB,0.26024E+00_JPRB,0.28092E+00_JPRB,0.30402E+00_JPRB /)  
+KB(:,26, 8) = (/ &
+ & 0.21333E+00_JPRB,0.23053E+00_JPRB,0.24913E+00_JPRB,0.27069E+00_JPRB,0.29445E+00_JPRB /)  
+KB(:,27, 8) = (/ &
+ & 0.20216E+00_JPRB,0.22006E+00_JPRB,0.23987E+00_JPRB,0.26172E+00_JPRB,0.28552E+00_JPRB /)  
+KB(:,28, 8) = (/ &
+ & 0.19243E+00_JPRB,0.21106E+00_JPRB,0.23162E+00_JPRB,0.25373E+00_JPRB,0.27880E+00_JPRB /)  
+KB(:,29, 8) = (/ &
+ & 0.18399E+00_JPRB,0.20352E+00_JPRB,0.22446E+00_JPRB,0.24815E+00_JPRB,0.27383E+00_JPRB /)  
+KB(:,30, 8) = (/ &
+ & 0.17696E+00_JPRB,0.19707E+00_JPRB,0.21934E+00_JPRB,0.24428E+00_JPRB,0.27560E+00_JPRB /)  
+KB(:,31, 8) = (/ &
+ & 0.17154E+00_JPRB,0.19276E+00_JPRB,0.21622E+00_JPRB,0.24297E+00_JPRB,0.27512E+00_JPRB /)  
+KB(:,32, 8) = (/ &
+ & 0.16864E+00_JPRB,0.19074E+00_JPRB,0.21586E+00_JPRB,0.24341E+00_JPRB,0.27678E+00_JPRB /)  
+KB(:,33, 8) = (/ &
+ & 0.16705E+00_JPRB,0.19103E+00_JPRB,0.21725E+00_JPRB,0.24571E+00_JPRB,0.27988E+00_JPRB /)  
+KB(:,34, 8) = (/ &
+ & 0.16718E+00_JPRB,0.19214E+00_JPRB,0.21923E+00_JPRB,0.25236E+00_JPRB,0.28358E+00_JPRB /)  
+KB(:,35, 8) = (/ &
+ & 0.16615E+00_JPRB,0.19194E+00_JPRB,0.21973E+00_JPRB,0.25386E+00_JPRB,0.28528E+00_JPRB /)  
+KB(:,36, 8) = (/ &
+ & 0.16355E+00_JPRB,0.18981E+00_JPRB,0.21857E+00_JPRB,0.25318E+00_JPRB,0.28503E+00_JPRB /)  
+KB(:,37, 8) = (/ &
+ & 0.15644E+00_JPRB,0.18272E+00_JPRB,0.21137E+00_JPRB,0.24627E+00_JPRB,0.27830E+00_JPRB /)  
+KB(:,38, 8) = (/ &
+ & 0.14985E+00_JPRB,0.17574E+00_JPRB,0.20437E+00_JPRB,0.23950E+00_JPRB,0.27160E+00_JPRB /)  
+KB(:,39, 8) = (/ &
+ & 0.14373E+00_JPRB,0.16918E+00_JPRB,0.19762E+00_JPRB,0.22814E+00_JPRB,0.26522E+00_JPRB /)  
+KB(:,40, 8) = (/ &
+ & 0.13479E+00_JPRB,0.15968E+00_JPRB,0.18756E+00_JPRB,0.21775E+00_JPRB,0.25463E+00_JPRB /)  
+KB(:,41, 8) = (/ &
+ & 0.12605E+00_JPRB,0.15045E+00_JPRB,0.17752E+00_JPRB,0.20726E+00_JPRB,0.24367E+00_JPRB /)  
+KB(:,42, 8) = (/ &
+ & 0.11784E+00_JPRB,0.14153E+00_JPRB,0.16784E+00_JPRB,0.19712E+00_JPRB,0.23353E+00_JPRB /)  
+KB(:,43, 8) = (/ &
+ & 0.10839E+00_JPRB,0.13122E+00_JPRB,0.15696E+00_JPRB,0.18528E+00_JPRB,0.21641E+00_JPRB /)  
+KB(:,44, 8) = (/ &
+ & 0.98772E-01_JPRB,0.12078E+00_JPRB,0.14549E+00_JPRB,0.17313E+00_JPRB,0.20344E+00_JPRB /)  
+KB(:,45, 8) = (/ &
+ & 0.89757E-01_JPRB,0.11096E+00_JPRB,0.13484E+00_JPRB,0.16135E+00_JPRB,0.19086E+00_JPRB /)  
+KB(:,46, 8) = (/ &
+ & 0.80754E-01_JPRB,0.10111E+00_JPRB,0.12397E+00_JPRB,0.14951E+00_JPRB,0.17812E+00_JPRB /)  
+KB(:,47, 8) = (/ &
+ & 0.71551E-01_JPRB,0.90848E-01_JPRB,0.11265E+00_JPRB,0.13712E+00_JPRB,0.16456E+00_JPRB /)  
+KB(:,48, 8) = (/ &
+ & 0.63023E-01_JPRB,0.81188E-01_JPRB,0.10192E+00_JPRB,0.12530E+00_JPRB,0.15155E+00_JPRB /)  
+KB(:,49, 8) = (/ &
+ & 0.55112E-01_JPRB,0.71966E-01_JPRB,0.91627E-01_JPRB,0.11386E+00_JPRB,0.13887E+00_JPRB /)  
+KB(:,50, 8) = (/ &
+ & 0.48148E-01_JPRB,0.63904E-01_JPRB,0.82545E-01_JPRB,0.10380E+00_JPRB,0.12775E+00_JPRB /)  
+KB(:,51, 8) = (/ &
+ & 0.42077E-01_JPRB,0.56742E-01_JPRB,0.74219E-01_JPRB,0.94436E-01_JPRB,0.11735E+00_JPRB /)  
+KB(:,52, 8) = (/ &
+ & 0.36406E-01_JPRB,0.49929E-01_JPRB,0.66400E-01_JPRB,0.85557E-01_JPRB,0.10751E+00_JPRB /)  
+KB(:,53, 8) = (/ &
+ & 0.31162E-01_JPRB,0.43645E-01_JPRB,0.58971E-01_JPRB,0.77049E-01_JPRB,0.97772E-01_JPRB /)  
+KB(:,54, 8) = (/ &
+ & 0.26848E-01_JPRB,0.38389E-01_JPRB,0.52700E-01_JPRB,0.69937E-01_JPRB,0.89664E-01_JPRB /)  
+KB(:,55, 8) = (/ &
+ & 0.23145E-01_JPRB,0.33793E-01_JPRB,0.47177E-01_JPRB,0.63590E-01_JPRB,0.82440E-01_JPRB /)  
+KB(:,56, 8) = (/ &
+ & 0.19764E-01_JPRB,0.29522E-01_JPRB,0.42050E-01_JPRB,0.57472E-01_JPRB,0.75623E-01_JPRB /)  
+KB(:,57, 8) = (/ &
+ & 0.16713E-01_JPRB,0.25602E-01_JPRB,0.37259E-01_JPRB,0.51705E-01_JPRB,0.68976E-01_JPRB /)  
+KB(:,58, 8) = (/ &
+ & 0.14134E-01_JPRB,0.22215E-01_JPRB,0.32983E-01_JPRB,0.46579E-01_JPRB,0.62982E-01_JPRB /)  
+KB(:,59, 8) = (/ &
+ & 0.13103E-01_JPRB,0.20874E-01_JPRB,0.31397E-01_JPRB,0.44700E-01_JPRB,0.60881E-01_JPRB /)  
+KB(:,13, 9) = (/ &
+ & 0.30563E+01_JPRB,0.31744E+01_JPRB,0.32842E+01_JPRB,0.33901E+01_JPRB,0.34937E+01_JPRB /)  
+KB(:,14, 9) = (/ &
+ & 0.27752E+01_JPRB,0.28869E+01_JPRB,0.29933E+01_JPRB,0.30958E+01_JPRB,0.31932E+01_JPRB /)  
+KB(:,15, 9) = (/ &
+ & 0.25099E+01_JPRB,0.26164E+01_JPRB,0.27185E+01_JPRB,0.28161E+01_JPRB,0.29094E+01_JPRB /)  
+KB(:,16, 9) = (/ &
+ & 0.23062E+01_JPRB,0.23985E+01_JPRB,0.24887E+01_JPRB,0.25791E+01_JPRB,0.26657E+01_JPRB /)  
+KB(:,17, 9) = (/ &
+ & 0.21996E+01_JPRB,0.22783E+01_JPRB,0.23521E+01_JPRB,0.24248E+01_JPRB,0.25028E+01_JPRB /)  
+KB(:,18, 9) = (/ &
+ & 0.22125E+01_JPRB,0.22932E+01_JPRB,0.23665E+01_JPRB,0.24375E+01_JPRB,0.25051E+01_JPRB /)  
+KB(:,19, 9) = (/ &
+ & 0.22641E+01_JPRB,0.23491E+01_JPRB,0.24239E+01_JPRB,0.24973E+01_JPRB,0.25657E+01_JPRB /)  
+KB(:,20, 9) = (/ &
+ & 0.22472E+01_JPRB,0.23357E+01_JPRB,0.24204E+01_JPRB,0.24964E+01_JPRB,0.25675E+01_JPRB /)  
+KB(:,21, 9) = (/ &
+ & 0.21851E+01_JPRB,0.22830E+01_JPRB,0.23690E+01_JPRB,0.24562E+01_JPRB,0.25370E+01_JPRB /)  
+KB(:,22, 9) = (/ &
+ & 0.21175E+01_JPRB,0.22142E+01_JPRB,0.23108E+01_JPRB,0.24049E+01_JPRB,0.24949E+01_JPRB /)  
+KB(:,23, 9) = (/ &
+ & 0.20447E+01_JPRB,0.21452E+01_JPRB,0.22435E+01_JPRB,0.23385E+01_JPRB,0.24298E+01_JPRB /)  
+KB(:,24, 9) = (/ &
+ & 0.19721E+01_JPRB,0.20737E+01_JPRB,0.21717E+01_JPRB,0.22760E+01_JPRB,0.23715E+01_JPRB /)  
+KB(:,25, 9) = (/ &
+ & 0.18957E+01_JPRB,0.20036E+01_JPRB,0.21100E+01_JPRB,0.22176E+01_JPRB,0.23221E+01_JPRB /)  
+KB(:,26, 9) = (/ &
+ & 0.18288E+01_JPRB,0.19378E+01_JPRB,0.20515E+01_JPRB,0.21609E+01_JPRB,0.22728E+01_JPRB /)  
+KB(:,27, 9) = (/ &
+ & 0.17692E+01_JPRB,0.18810E+01_JPRB,0.19951E+01_JPRB,0.21151E+01_JPRB,0.22361E+01_JPRB /)  
+KB(:,28, 9) = (/ &
+ & 0.17168E+01_JPRB,0.18338E+01_JPRB,0.19558E+01_JPRB,0.20789E+01_JPRB,0.22051E+01_JPRB /)  
+KB(:,29, 9) = (/ &
+ & 0.16702E+01_JPRB,0.17936E+01_JPRB,0.19235E+01_JPRB,0.20524E+01_JPRB,0.21850E+01_JPRB /)  
+KB(:,30, 9) = (/ &
+ & 0.16394E+01_JPRB,0.17677E+01_JPRB,0.19029E+01_JPRB,0.20369E+01_JPRB,0.21882E+01_JPRB /)  
+KB(:,31, 9) = (/ &
+ & 0.16228E+01_JPRB,0.17523E+01_JPRB,0.18896E+01_JPRB,0.20262E+01_JPRB,0.21815E+01_JPRB /)  
+KB(:,32, 9) = (/ &
+ & 0.16178E+01_JPRB,0.17489E+01_JPRB,0.18859E+01_JPRB,0.20233E+01_JPRB,0.21838E+01_JPRB /)  
+KB(:,33, 9) = (/ &
+ & 0.16221E+01_JPRB,0.17529E+01_JPRB,0.18876E+01_JPRB,0.20327E+01_JPRB,0.21960E+01_JPRB /)  
+KB(:,34, 9) = (/ &
+ & 0.16321E+01_JPRB,0.17688E+01_JPRB,0.19069E+01_JPRB,0.20650E+01_JPRB,0.22191E+01_JPRB /)  
+KB(:,35, 9) = (/ &
+ & 0.16388E+01_JPRB,0.17830E+01_JPRB,0.19261E+01_JPRB,0.20887E+01_JPRB,0.22365E+01_JPRB /)  
+KB(:,36, 9) = (/ &
+ & 0.16423E+01_JPRB,0.17895E+01_JPRB,0.19390E+01_JPRB,0.21032E+01_JPRB,0.22561E+01_JPRB /)  
+KB(:,37, 9) = (/ &
+ & 0.16080E+01_JPRB,0.17565E+01_JPRB,0.19076E+01_JPRB,0.20741E+01_JPRB,0.22287E+01_JPRB /)  
+KB(:,38, 9) = (/ &
+ & 0.15745E+01_JPRB,0.17245E+01_JPRB,0.18721E+01_JPRB,0.20419E+01_JPRB,0.21969E+01_JPRB /)  
+KB(:,39, 9) = (/ &
+ & 0.15386E+01_JPRB,0.16919E+01_JPRB,0.18410E+01_JPRB,0.19923E+01_JPRB,0.21638E+01_JPRB /)  
+KB(:,40, 9) = (/ &
+ & 0.14840E+01_JPRB,0.16355E+01_JPRB,0.17855E+01_JPRB,0.19337E+01_JPRB,0.21026E+01_JPRB /)  
+KB(:,41, 9) = (/ &
+ & 0.14260E+01_JPRB,0.15758E+01_JPRB,0.17241E+01_JPRB,0.18746E+01_JPRB,0.20398E+01_JPRB /)  
+KB(:,42, 9) = (/ &
+ & 0.13688E+01_JPRB,0.15162E+01_JPRB,0.16646E+01_JPRB,0.18157E+01_JPRB,0.19780E+01_JPRB /)  
+KB(:,43, 9) = (/ &
+ & 0.13011E+01_JPRB,0.14473E+01_JPRB,0.15936E+01_JPRB,0.17402E+01_JPRB,0.18823E+01_JPRB /)  
+KB(:,44, 9) = (/ &
+ & 0.12278E+01_JPRB,0.13710E+01_JPRB,0.15157E+01_JPRB,0.16568E+01_JPRB,0.17952E+01_JPRB /)  
+KB(:,45, 9) = (/ &
+ & 0.11558E+01_JPRB,0.12957E+01_JPRB,0.14361E+01_JPRB,0.15731E+01_JPRB,0.17094E+01_JPRB /)  
+KB(:,46, 9) = (/ &
+ & 0.10820E+01_JPRB,0.12147E+01_JPRB,0.13532E+01_JPRB,0.14890E+01_JPRB,0.16181E+01_JPRB /)  
+KB(:,47, 9) = (/ &
+ & 0.10024E+01_JPRB,0.11346E+01_JPRB,0.12669E+01_JPRB,0.14002E+01_JPRB,0.15260E+01_JPRB /)  
+KB(:,48, 9) = (/ &
+ & 0.92524E+00_JPRB,0.10524E+01_JPRB,0.11804E+01_JPRB,0.13068E+01_JPRB,0.14296E+01_JPRB /)  
+KB(:,49, 9) = (/ &
+ & 0.84698E+00_JPRB,0.96805E+00_JPRB,0.10902E+01_JPRB,0.12100E+01_JPRB,0.13299E+01_JPRB /)  
+KB(:,50, 9) = (/ &
+ & 0.78084E+00_JPRB,0.89928E+00_JPRB,0.10161E+01_JPRB,0.11323E+01_JPRB,0.12472E+01_JPRB /)  
+KB(:,51, 9) = (/ &
+ & 0.72222E+00_JPRB,0.83480E+00_JPRB,0.94748E+00_JPRB,0.10626E+01_JPRB,0.11740E+01_JPRB /)  
+KB(:,52, 9) = (/ &
+ & 0.66260E+00_JPRB,0.77045E+00_JPRB,0.88348E+00_JPRB,0.99181E+00_JPRB,0.10995E+01_JPRB /)  
+KB(:,53, 9) = (/ &
+ & 0.60516E+00_JPRB,0.71083E+00_JPRB,0.81698E+00_JPRB,0.91863E+00_JPRB,0.10219E+01_JPRB /)  
+KB(:,54, 9) = (/ &
+ & 0.56176E+00_JPRB,0.66472E+00_JPRB,0.77054E+00_JPRB,0.87249E+00_JPRB,0.97306E+00_JPRB /)  
+KB(:,55, 9) = (/ &
+ & 0.52563E+00_JPRB,0.63037E+00_JPRB,0.73497E+00_JPRB,0.83878E+00_JPRB,0.93923E+00_JPRB /)  
+KB(:,56, 9) = (/ &
+ & 0.49056E+00_JPRB,0.59429E+00_JPRB,0.69788E+00_JPRB,0.80509E+00_JPRB,0.90615E+00_JPRB /)  
+KB(:,57, 9) = (/ &
+ & 0.45575E+00_JPRB,0.55861E+00_JPRB,0.66303E+00_JPRB,0.76942E+00_JPRB,0.87211E+00_JPRB /)  
+KB(:,58, 9) = (/ &
+ & 0.42419E+00_JPRB,0.52609E+00_JPRB,0.63048E+00_JPRB,0.73708E+00_JPRB,0.84331E+00_JPRB /)  
+KB(:,59, 9) = (/ &
+ & 0.42340E+00_JPRB,0.52953E+00_JPRB,0.63843E+00_JPRB,0.74879E+00_JPRB,0.86046E+00_JPRB /)  
+KB(:,13,10) = (/ &
+ & 0.14973E+02_JPRB,0.15466E+02_JPRB,0.15907E+02_JPRB,0.16294E+02_JPRB,0.16648E+02_JPRB /)  
+KB(:,14,10) = (/ &
+ & 0.13327E+02_JPRB,0.13717E+02_JPRB,0.14036E+02_JPRB,0.14348E+02_JPRB,0.14658E+02_JPRB /)  
+KB(:,15,10) = (/ &
+ & 0.12219E+02_JPRB,0.12428E+02_JPRB,0.12649E+02_JPRB,0.12810E+02_JPRB,0.12959E+02_JPRB /)  
+KB(:,16,10) = (/ &
+ & 0.11245E+02_JPRB,0.11501E+02_JPRB,0.11701E+02_JPRB,0.11817E+02_JPRB,0.11948E+02_JPRB /)  
+KB(:,17,10) = (/ &
+ & 0.96706E+01_JPRB,0.99707E+01_JPRB,0.10257E+02_JPRB,0.10540E+02_JPRB,0.10718E+02_JPRB /)  
+KB(:,18,10) = (/ &
+ & 0.83018E+01_JPRB,0.83446E+01_JPRB,0.84207E+01_JPRB,0.85262E+01_JPRB,0.86783E+01_JPRB /)  
+KB(:,19,10) = (/ &
+ & 0.82250E+01_JPRB,0.81929E+01_JPRB,0.82337E+01_JPRB,0.82572E+01_JPRB,0.83177E+01_JPRB /)  
+KB(:,20,10) = (/ &
+ & 0.81684E+01_JPRB,0.81782E+01_JPRB,0.82244E+01_JPRB,0.82765E+01_JPRB,0.82985E+01_JPRB /)  
+KB(:,21,10) = (/ &
+ & 0.82586E+01_JPRB,0.83055E+01_JPRB,0.84017E+01_JPRB,0.83815E+01_JPRB,0.83594E+01_JPRB /)  
+KB(:,22,10) = (/ &
+ & 0.83686E+01_JPRB,0.84604E+01_JPRB,0.85363E+01_JPRB,0.84786E+01_JPRB,0.84786E+01_JPRB /)  
+KB(:,23,10) = (/ &
+ & 0.84301E+01_JPRB,0.85903E+01_JPRB,0.87569E+01_JPRB,0.87953E+01_JPRB,0.87965E+01_JPRB /)  
+KB(:,24,10) = (/ &
+ & 0.85690E+01_JPRB,0.88097E+01_JPRB,0.90359E+01_JPRB,0.90994E+01_JPRB,0.92201E+01_JPRB /)  
+KB(:,25,10) = (/ &
+ & 0.87852E+01_JPRB,0.90719E+01_JPRB,0.92672E+01_JPRB,0.94098E+01_JPRB,0.95600E+01_JPRB /)  
+KB(:,26,10) = (/ &
+ & 0.88651E+01_JPRB,0.92334E+01_JPRB,0.94525E+01_JPRB,0.97256E+01_JPRB,0.98986E+01_JPRB /)  
+KB(:,27,10) = (/ &
+ & 0.88645E+01_JPRB,0.92932E+01_JPRB,0.96152E+01_JPRB,0.98392E+01_JPRB,0.10037E+02_JPRB /)  
+KB(:,28,10) = (/ &
+ & 0.88548E+01_JPRB,0.93070E+01_JPRB,0.96176E+01_JPRB,0.99813E+01_JPRB,0.10238E+02_JPRB /)  
+KB(:,29,10) = (/ &
+ & 0.88198E+01_JPRB,0.92265E+01_JPRB,0.96024E+01_JPRB,0.99285E+01_JPRB,0.10232E+02_JPRB /)  
+KB(:,30,10) = (/ &
+ & 0.87818E+01_JPRB,0.92083E+01_JPRB,0.95579E+01_JPRB,0.98976E+01_JPRB,0.10208E+02_JPRB /)  
+KB(:,31,10) = (/ &
+ & 0.86036E+01_JPRB,0.90621E+01_JPRB,0.94967E+01_JPRB,0.98500E+01_JPRB,0.10159E+02_JPRB /)  
+KB(:,32,10) = (/ &
+ & 0.84748E+01_JPRB,0.89960E+01_JPRB,0.94428E+01_JPRB,0.98336E+01_JPRB,0.10196E+02_JPRB /)  
+KB(:,33,10) = (/ &
+ & 0.84172E+01_JPRB,0.89420E+01_JPRB,0.94383E+01_JPRB,0.98344E+01_JPRB,0.10060E+02_JPRB /)  
+KB(:,34,10) = (/ &
+ & 0.84605E+01_JPRB,0.89751E+01_JPRB,0.94683E+01_JPRB,0.98852E+01_JPRB,0.10023E+02_JPRB /)  
+KB(:,35,10) = (/ &
+ & 0.84589E+01_JPRB,0.89233E+01_JPRB,0.94002E+01_JPRB,0.98511E+01_JPRB,0.10024E+02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART14',1,ZHOOK_HANDLE)
+END SUBROUTINE PART14
+
+
+SUBROUTINE PART15
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART15',0,ZHOOK_HANDLE)
+
+
+KB(:,36,10) = (/ &
+ & 0.84558E+01_JPRB,0.89580E+01_JPRB,0.93747E+01_JPRB,0.98030E+01_JPRB,0.10000E+02_JPRB /)  
+KB(:,37,10) = (/ &
+ & 0.82385E+01_JPRB,0.87614E+01_JPRB,0.91541E+01_JPRB,0.95514E+01_JPRB,0.97363E+01_JPRB /)  
+KB(:,38,10) = (/ &
+ & 0.80132E+01_JPRB,0.84437E+01_JPRB,0.89304E+01_JPRB,0.92902E+01_JPRB,0.94811E+01_JPRB /)  
+KB(:,39,10) = (/ &
+ & 0.78203E+01_JPRB,0.81981E+01_JPRB,0.85539E+01_JPRB,0.89689E+01_JPRB,0.90927E+01_JPRB /)  
+KB(:,40,10) = (/ &
+ & 0.75978E+01_JPRB,0.79610E+01_JPRB,0.82423E+01_JPRB,0.86095E+01_JPRB,0.88190E+01_JPRB /)  
+KB(:,41,10) = (/ &
+ & 0.73029E+01_JPRB,0.76481E+01_JPRB,0.79708E+01_JPRB,0.82445E+01_JPRB,0.84426E+01_JPRB /)  
+KB(:,42,10) = (/ &
+ & 0.70166E+01_JPRB,0.73754E+01_JPRB,0.76378E+01_JPRB,0.78862E+01_JPRB,0.80985E+01_JPRB /)  
+KB(:,43,10) = (/ &
+ & 0.66293E+01_JPRB,0.69504E+01_JPRB,0.72276E+01_JPRB,0.75120E+01_JPRB,0.77099E+01_JPRB /)  
+KB(:,44,10) = (/ &
+ & 0.62312E+01_JPRB,0.65696E+01_JPRB,0.68647E+01_JPRB,0.71226E+01_JPRB,0.73305E+01_JPRB /)  
+KB(:,45,10) = (/ &
+ & 0.58229E+01_JPRB,0.61620E+01_JPRB,0.64682E+01_JPRB,0.67341E+01_JPRB,0.69070E+01_JPRB /)  
+KB(:,46,10) = (/ &
+ & 0.53657E+01_JPRB,0.57492E+01_JPRB,0.60377E+01_JPRB,0.63031E+01_JPRB,0.64992E+01_JPRB /)  
+KB(:,47,10) = (/ &
+ & 0.50350E+01_JPRB,0.53678E+01_JPRB,0.56656E+01_JPRB,0.59201E+01_JPRB,0.61262E+01_JPRB /)  
+KB(:,48,10) = (/ &
+ & 0.46566E+01_JPRB,0.49901E+01_JPRB,0.52633E+01_JPRB,0.54964E+01_JPRB,0.57537E+01_JPRB /)  
+KB(:,49,10) = (/ &
+ & 0.42801E+01_JPRB,0.46217E+01_JPRB,0.49093E+01_JPRB,0.51104E+01_JPRB,0.53644E+01_JPRB /)  
+KB(:,50,10) = (/ &
+ & 0.39613E+01_JPRB,0.43120E+01_JPRB,0.45848E+01_JPRB,0.48588E+01_JPRB,0.50774E+01_JPRB /)  
+KB(:,51,10) = (/ &
+ & 0.37006E+01_JPRB,0.40662E+01_JPRB,0.43615E+01_JPRB,0.46264E+01_JPRB,0.48701E+01_JPRB /)  
+KB(:,52,10) = (/ &
+ & 0.34485E+01_JPRB,0.37934E+01_JPRB,0.40667E+01_JPRB,0.43544E+01_JPRB,0.46481E+01_JPRB /)  
+KB(:,53,10) = (/ &
+ & 0.31594E+01_JPRB,0.35032E+01_JPRB,0.37934E+01_JPRB,0.41156E+01_JPRB,0.44077E+01_JPRB /)  
+KB(:,54,10) = (/ &
+ & 0.29800E+01_JPRB,0.33284E+01_JPRB,0.36333E+01_JPRB,0.39624E+01_JPRB,0.42528E+01_JPRB /)  
+KB(:,55,10) = (/ &
+ & 0.28569E+01_JPRB,0.32159E+01_JPRB,0.35391E+01_JPRB,0.38186E+01_JPRB,0.41402E+01_JPRB /)  
+KB(:,56,10) = (/ &
+ & 0.26907E+01_JPRB,0.31071E+01_JPRB,0.34476E+01_JPRB,0.36941E+01_JPRB,0.40212E+01_JPRB /)  
+KB(:,57,10) = (/ &
+ & 0.25638E+01_JPRB,0.29869E+01_JPRB,0.33345E+01_JPRB,0.36081E+01_JPRB,0.38859E+01_JPRB /)  
+KB(:,58,10) = (/ &
+ & 0.24665E+01_JPRB,0.28708E+01_JPRB,0.32402E+01_JPRB,0.35331E+01_JPRB,0.37851E+01_JPRB /)  
+KB(:,59,10) = (/ &
+ & 0.25432E+01_JPRB,0.29855E+01_JPRB,0.33662E+01_JPRB,0.37020E+01_JPRB,0.39522E+01_JPRB /)  
+KB(:,13,11) = (/ &
+ & 0.31099E+02_JPRB,0.31647E+02_JPRB,0.32241E+02_JPRB,0.32842E+02_JPRB,0.33417E+02_JPRB /)  
+KB(:,14,11) = (/ &
+ & 0.27698E+02_JPRB,0.28253E+02_JPRB,0.28859E+02_JPRB,0.29460E+02_JPRB,0.30083E+02_JPRB /)  
+KB(:,15,11) = (/ &
+ & 0.24330E+02_JPRB,0.24945E+02_JPRB,0.25542E+02_JPRB,0.26234E+02_JPRB,0.26922E+02_JPRB /)  
+KB(:,16,11) = (/ &
+ & 0.21190E+02_JPRB,0.21758E+02_JPRB,0.22384E+02_JPRB,0.23019E+02_JPRB,0.23628E+02_JPRB /)  
+KB(:,17,11) = (/ &
+ & 0.18967E+02_JPRB,0.19413E+02_JPRB,0.19858E+02_JPRB,0.20261E+02_JPRB,0.20672E+02_JPRB /)  
+KB(:,18,11) = (/ &
+ & 0.16374E+02_JPRB,0.16952E+02_JPRB,0.17497E+02_JPRB,0.17964E+02_JPRB,0.18478E+02_JPRB /)  
+KB(:,19,11) = (/ &
+ & 0.13248E+02_JPRB,0.13545E+02_JPRB,0.13847E+02_JPRB,0.14297E+02_JPRB,0.14705E+02_JPRB /)  
+KB(:,20,11) = (/ &
+ & 0.12757E+02_JPRB,0.12785E+02_JPRB,0.12667E+02_JPRB,0.12601E+02_JPRB,0.12612E+02_JPRB /)  
+KB(:,21,11) = (/ &
+ & 0.12844E+02_JPRB,0.12624E+02_JPRB,0.12433E+02_JPRB,0.12193E+02_JPRB,0.12175E+02_JPRB /)  
+KB(:,22,11) = (/ &
+ & 0.12738E+02_JPRB,0.12567E+02_JPRB,0.12225E+02_JPRB,0.12063E+02_JPRB,0.11980E+02_JPRB /)  
+KB(:,23,11) = (/ &
+ & 0.12815E+02_JPRB,0.12660E+02_JPRB,0.12272E+02_JPRB,0.12108E+02_JPRB,0.12066E+02_JPRB /)  
+KB(:,24,11) = (/ &
+ & 0.13079E+02_JPRB,0.12972E+02_JPRB,0.12651E+02_JPRB,0.12388E+02_JPRB,0.12367E+02_JPRB /)  
+KB(:,25,11) = (/ &
+ & 0.13341E+02_JPRB,0.13256E+02_JPRB,0.13023E+02_JPRB,0.12848E+02_JPRB,0.12659E+02_JPRB /)  
+KB(:,26,11) = (/ &
+ & 0.13512E+02_JPRB,0.13453E+02_JPRB,0.13443E+02_JPRB,0.13113E+02_JPRB,0.13141E+02_JPRB /)  
+KB(:,27,11) = (/ &
+ & 0.13706E+02_JPRB,0.13750E+02_JPRB,0.13824E+02_JPRB,0.13564E+02_JPRB,0.13665E+02_JPRB /)  
+KB(:,28,11) = (/ &
+ & 0.13979E+02_JPRB,0.14080E+02_JPRB,0.14203E+02_JPRB,0.13858E+02_JPRB,0.13981E+02_JPRB /)  
+KB(:,29,11) = (/ &
+ & 0.13934E+02_JPRB,0.14086E+02_JPRB,0.14156E+02_JPRB,0.14057E+02_JPRB,0.14114E+02_JPRB /)  
+KB(:,30,11) = (/ &
+ & 0.13981E+02_JPRB,0.13996E+02_JPRB,0.13975E+02_JPRB,0.14010E+02_JPRB,0.14196E+02_JPRB /)  
+KB(:,31,11) = (/ &
+ & 0.13896E+02_JPRB,0.13857E+02_JPRB,0.13654E+02_JPRB,0.13807E+02_JPRB,0.13871E+02_JPRB /)  
+KB(:,32,11) = (/ &
+ & 0.13655E+02_JPRB,0.13646E+02_JPRB,0.13416E+02_JPRB,0.13538E+02_JPRB,0.13488E+02_JPRB /)  
+KB(:,33,11) = (/ &
+ & 0.13398E+02_JPRB,0.13279E+02_JPRB,0.13235E+02_JPRB,0.13164E+02_JPRB,0.13195E+02_JPRB /)  
+KB(:,34,11) = (/ &
+ & 0.13280E+02_JPRB,0.13155E+02_JPRB,0.13035E+02_JPRB,0.13095E+02_JPRB,0.13023E+02_JPRB /)  
+KB(:,35,11) = (/ &
+ & 0.13174E+02_JPRB,0.13038E+02_JPRB,0.12951E+02_JPRB,0.12819E+02_JPRB,0.12932E+02_JPRB /)  
+KB(:,36,11) = (/ &
+ & 0.13159E+02_JPRB,0.12953E+02_JPRB,0.12943E+02_JPRB,0.12899E+02_JPRB,0.13077E+02_JPRB /)  
+KB(:,37,11) = (/ &
+ & 0.12968E+02_JPRB,0.12722E+02_JPRB,0.12741E+02_JPRB,0.12684E+02_JPRB,0.12881E+02_JPRB /)  
+KB(:,38,11) = (/ &
+ & 0.12648E+02_JPRB,0.12436E+02_JPRB,0.12390E+02_JPRB,0.12534E+02_JPRB,0.12593E+02_JPRB /)  
+KB(:,39,11) = (/ &
+ & 0.12145E+02_JPRB,0.12036E+02_JPRB,0.12198E+02_JPRB,0.12171E+02_JPRB,0.12374E+02_JPRB /)  
+KB(:,40,11) = (/ &
+ & 0.11784E+02_JPRB,0.11714E+02_JPRB,0.11852E+02_JPRB,0.11995E+02_JPRB,0.12020E+02_JPRB /)  
+KB(:,41,11) = (/ &
+ & 0.11419E+02_JPRB,0.11429E+02_JPRB,0.11554E+02_JPRB,0.11799E+02_JPRB,0.11809E+02_JPRB /)  
+KB(:,42,11) = (/ &
+ & 0.11076E+02_JPRB,0.11047E+02_JPRB,0.11287E+02_JPRB,0.11460E+02_JPRB,0.11610E+02_JPRB /)  
+KB(:,43,11) = (/ &
+ & 0.10635E+02_JPRB,0.10772E+02_JPRB,0.10970E+02_JPRB,0.11110E+02_JPRB,0.11339E+02_JPRB /)  
+KB(:,44,11) = (/ &
+ & 0.10081E+02_JPRB,0.10347E+02_JPRB,0.10495E+02_JPRB,0.10710E+02_JPRB,0.10998E+02_JPRB /)  
+KB(:,45,11) = (/ &
+ & 0.95493E+01_JPRB,0.97720E+01_JPRB,0.10013E+02_JPRB,0.10318E+02_JPRB,0.10626E+02_JPRB /)  
+KB(:,46,11) = (/ &
+ & 0.91901E+01_JPRB,0.92815E+01_JPRB,0.95285E+01_JPRB,0.99399E+01_JPRB,0.10216E+02_JPRB /)  
+KB(:,47,11) = (/ &
+ & 0.86762E+01_JPRB,0.88384E+01_JPRB,0.91370E+01_JPRB,0.95143E+01_JPRB,0.99290E+01_JPRB /)  
+KB(:,48,11) = (/ &
+ & 0.80969E+01_JPRB,0.84350E+01_JPRB,0.87222E+01_JPRB,0.91427E+01_JPRB,0.95881E+01_JPRB /)  
+KB(:,49,11) = (/ &
+ & 0.74881E+01_JPRB,0.78692E+01_JPRB,0.82390E+01_JPRB,0.88564E+01_JPRB,0.92509E+01_JPRB /)  
+KB(:,50,11) = (/ &
+ & 0.70193E+01_JPRB,0.74373E+01_JPRB,0.79400E+01_JPRB,0.84415E+01_JPRB,0.90721E+01_JPRB /)  
+KB(:,51,11) = (/ &
+ & 0.66370E+01_JPRB,0.71214E+01_JPRB,0.76381E+01_JPRB,0.81180E+01_JPRB,0.89263E+01_JPRB /)  
+KB(:,52,11) = (/ &
+ & 0.62242E+01_JPRB,0.68097E+01_JPRB,0.73447E+01_JPRB,0.79515E+01_JPRB,0.88951E+01_JPRB /)  
+KB(:,53,11) = (/ &
+ & 0.58238E+01_JPRB,0.63775E+01_JPRB,0.69942E+01_JPRB,0.79247E+01_JPRB,0.89454E+01_JPRB /)  
+KB(:,54,11) = (/ &
+ & 0.55499E+01_JPRB,0.61225E+01_JPRB,0.67115E+01_JPRB,0.76390E+01_JPRB,0.86771E+01_JPRB /)  
+KB(:,55,11) = (/ &
+ & 0.53976E+01_JPRB,0.59288E+01_JPRB,0.64661E+01_JPRB,0.72387E+01_JPRB,0.82482E+01_JPRB /)  
+KB(:,56,11) = (/ &
+ & 0.52864E+01_JPRB,0.57486E+01_JPRB,0.62663E+01_JPRB,0.68889E+01_JPRB,0.78153E+01_JPRB /)  
+KB(:,57,11) = (/ &
+ & 0.51174E+01_JPRB,0.55624E+01_JPRB,0.60808E+01_JPRB,0.66051E+01_JPRB,0.73800E+01_JPRB /)  
+KB(:,58,11) = (/ &
+ & 0.49368E+01_JPRB,0.54350E+01_JPRB,0.59533E+01_JPRB,0.64218E+01_JPRB,0.70057E+01_JPRB /)  
+KB(:,59,11) = (/ &
+ & 0.50812E+01_JPRB,0.56369E+01_JPRB,0.60928E+01_JPRB,0.64990E+01_JPRB,0.70265E+01_JPRB /)  
+KB(:,13,12) = (/ &
+ & 0.69704E+02_JPRB,0.70627E+02_JPRB,0.71228E+02_JPRB,0.71788E+02_JPRB,0.72437E+02_JPRB /)  
+KB(:,14,12) = (/ &
+ & 0.64379E+02_JPRB,0.65225E+02_JPRB,0.66016E+02_JPRB,0.66901E+02_JPRB,0.67785E+02_JPRB /)  
+KB(:,15,12) = (/ &
+ & 0.58655E+02_JPRB,0.59644E+02_JPRB,0.60731E+02_JPRB,0.61788E+02_JPRB,0.62973E+02_JPRB /)  
+KB(:,16,12) = (/ &
+ & 0.53041E+02_JPRB,0.54211E+02_JPRB,0.55406E+02_JPRB,0.56764E+02_JPRB,0.58230E+02_JPRB /)  
+KB(:,17,12) = (/ &
+ & 0.47145E+02_JPRB,0.48549E+02_JPRB,0.50104E+02_JPRB,0.51815E+02_JPRB,0.53646E+02_JPRB /)  
+KB(:,18,12) = (/ &
+ & 0.41118E+02_JPRB,0.42628E+02_JPRB,0.44372E+02_JPRB,0.46307E+02_JPRB,0.48319E+02_JPRB /)  
+KB(:,19,12) = (/ &
+ & 0.35042E+02_JPRB,0.36608E+02_JPRB,0.38443E+02_JPRB,0.40582E+02_JPRB,0.43018E+02_JPRB /)  
+KB(:,20,12) = (/ &
+ & 0.28625E+02_JPRB,0.30224E+02_JPRB,0.32288E+02_JPRB,0.34780E+02_JPRB,0.37414E+02_JPRB /)  
+KB(:,21,12) = (/ &
+ & 0.24017E+02_JPRB,0.25409E+02_JPRB,0.27330E+02_JPRB,0.29600E+02_JPRB,0.32108E+02_JPRB /)  
+KB(:,22,12) = (/ &
+ & 0.21793E+02_JPRB,0.22620E+02_JPRB,0.24096E+02_JPRB,0.26102E+02_JPRB,0.28497E+02_JPRB /)  
+KB(:,23,12) = (/ &
+ & 0.21413E+02_JPRB,0.21831E+02_JPRB,0.22594E+02_JPRB,0.23606E+02_JPRB,0.25745E+02_JPRB /)  
+KB(:,24,12) = (/ &
+ & 0.21009E+02_JPRB,0.21418E+02_JPRB,0.22293E+02_JPRB,0.23189E+02_JPRB,0.24234E+02_JPRB /)  
+KB(:,25,12) = (/ &
+ & 0.21184E+02_JPRB,0.21661E+02_JPRB,0.22476E+02_JPRB,0.23334E+02_JPRB,0.24471E+02_JPRB /)  
+KB(:,26,12) = (/ &
+ & 0.21853E+02_JPRB,0.22488E+02_JPRB,0.23205E+02_JPRB,0.24024E+02_JPRB,0.25192E+02_JPRB /)  
+KB(:,27,12) = (/ &
+ & 0.22275E+02_JPRB,0.22928E+02_JPRB,0.23659E+02_JPRB,0.24768E+02_JPRB,0.25734E+02_JPRB /)  
+KB(:,28,12) = (/ &
+ & 0.22649E+02_JPRB,0.23413E+02_JPRB,0.24091E+02_JPRB,0.25549E+02_JPRB,0.26436E+02_JPRB /)  
+KB(:,29,12) = (/ &
+ & 0.22704E+02_JPRB,0.23483E+02_JPRB,0.24191E+02_JPRB,0.25460E+02_JPRB,0.26653E+02_JPRB /)  
+KB(:,30,12) = (/ &
+ & 0.22666E+02_JPRB,0.23444E+02_JPRB,0.24530E+02_JPRB,0.25500E+02_JPRB,0.26652E+02_JPRB /)  
+KB(:,31,12) = (/ &
+ & 0.22235E+02_JPRB,0.23247E+02_JPRB,0.24248E+02_JPRB,0.25076E+02_JPRB,0.26466E+02_JPRB /)  
+KB(:,32,12) = (/ &
+ & 0.22226E+02_JPRB,0.22827E+02_JPRB,0.24083E+02_JPRB,0.25139E+02_JPRB,0.26181E+02_JPRB /)  
+KB(:,33,12) = (/ &
+ & 0.22210E+02_JPRB,0.22941E+02_JPRB,0.24126E+02_JPRB,0.25269E+02_JPRB,0.26783E+02_JPRB /)  
+KB(:,34,12) = (/ &
+ & 0.22243E+02_JPRB,0.23077E+02_JPRB,0.24337E+02_JPRB,0.25761E+02_JPRB,0.27799E+02_JPRB /)  
+KB(:,35,12) = (/ &
+ & 0.22396E+02_JPRB,0.23583E+02_JPRB,0.24898E+02_JPRB,0.26594E+02_JPRB,0.29392E+02_JPRB /)  
+KB(:,36,12) = (/ &
+ & 0.22982E+02_JPRB,0.24125E+02_JPRB,0.25363E+02_JPRB,0.27311E+02_JPRB,0.30508E+02_JPRB /)  
+KB(:,37,12) = (/ &
+ & 0.22918E+02_JPRB,0.23937E+02_JPRB,0.25281E+02_JPRB,0.27602E+02_JPRB,0.31235E+02_JPRB /)  
+KB(:,38,12) = (/ &
+ & 0.22758E+02_JPRB,0.23720E+02_JPRB,0.25240E+02_JPRB,0.28261E+02_JPRB,0.32012E+02_JPRB /)  
+KB(:,39,12) = (/ &
+ & 0.22553E+02_JPRB,0.23629E+02_JPRB,0.25559E+02_JPRB,0.29164E+02_JPRB,0.32971E+02_JPRB /)  
+KB(:,40,12) = (/ &
+ & 0.21913E+02_JPRB,0.23010E+02_JPRB,0.25397E+02_JPRB,0.28931E+02_JPRB,0.33000E+02_JPRB /)  
+KB(:,41,12) = (/ &
+ & 0.21428E+02_JPRB,0.22543E+02_JPRB,0.25193E+02_JPRB,0.28521E+02_JPRB,0.32655E+02_JPRB /)  
+KB(:,42,12) = (/ &
+ & 0.20806E+02_JPRB,0.22057E+02_JPRB,0.24895E+02_JPRB,0.28307E+02_JPRB,0.32344E+02_JPRB /)  
+KB(:,43,12) = (/ &
+ & 0.20230E+02_JPRB,0.21402E+02_JPRB,0.24438E+02_JPRB,0.27778E+02_JPRB,0.31742E+02_JPRB /)  
+KB(:,44,12) = (/ &
+ & 0.19439E+02_JPRB,0.20816E+02_JPRB,0.24038E+02_JPRB,0.27280E+02_JPRB,0.31112E+02_JPRB /)  
+KB(:,45,12) = (/ &
+ & 0.18615E+02_JPRB,0.20644E+02_JPRB,0.23787E+02_JPRB,0.26906E+02_JPRB,0.30508E+02_JPRB /)  
+KB(:,46,12) = (/ &
+ & 0.17932E+02_JPRB,0.20436E+02_JPRB,0.23444E+02_JPRB,0.26514E+02_JPRB,0.30043E+02_JPRB /)  
+KB(:,47,12) = (/ &
+ & 0.17388E+02_JPRB,0.20062E+02_JPRB,0.22865E+02_JPRB,0.25992E+02_JPRB,0.29187E+02_JPRB /)  
+KB(:,48,12) = (/ &
+ & 0.17144E+02_JPRB,0.19562E+02_JPRB,0.22419E+02_JPRB,0.25556E+02_JPRB,0.28578E+02_JPRB /)  
+KB(:,49,12) = (/ &
+ & 0.16956E+02_JPRB,0.19439E+02_JPRB,0.22133E+02_JPRB,0.25135E+02_JPRB,0.28141E+02_JPRB /)  
+KB(:,50,12) = (/ &
+ & 0.16529E+02_JPRB,0.19034E+02_JPRB,0.21605E+02_JPRB,0.24563E+02_JPRB,0.27331E+02_JPRB /)  
+KB(:,51,12) = (/ &
+ & 0.15953E+02_JPRB,0.18522E+02_JPRB,0.21071E+02_JPRB,0.23856E+02_JPRB,0.26389E+02_JPRB /)  
+KB(:,52,12) = (/ &
+ & 0.15476E+02_JPRB,0.18037E+02_JPRB,0.20576E+02_JPRB,0.23092E+02_JPRB,0.25303E+02_JPRB /)  
+KB(:,53,12) = (/ &
+ & 0.14987E+02_JPRB,0.17619E+02_JPRB,0.20150E+02_JPRB,0.22182E+02_JPRB,0.24323E+02_JPRB /)  
+KB(:,54,12) = (/ &
+ & 0.14316E+02_JPRB,0.16769E+02_JPRB,0.19340E+02_JPRB,0.21295E+02_JPRB,0.23328E+02_JPRB /)  
+KB(:,55,12) = (/ &
+ & 0.13478E+02_JPRB,0.15723E+02_JPRB,0.18284E+02_JPRB,0.20497E+02_JPRB,0.22282E+02_JPRB /)  
+KB(:,56,12) = (/ &
+ & 0.12615E+02_JPRB,0.14717E+02_JPRB,0.17222E+02_JPRB,0.19626E+02_JPRB,0.21412E+02_JPRB /)  
+KB(:,57,12) = (/ &
+ & 0.11789E+02_JPRB,0.13910E+02_JPRB,0.16111E+02_JPRB,0.18559E+02_JPRB,0.20605E+02_JPRB /)  
+KB(:,58,12) = (/ &
+ & 0.10935E+02_JPRB,0.12994E+02_JPRB,0.15023E+02_JPRB,0.17386E+02_JPRB,0.19630E+02_JPRB /)  
+KB(:,59,12) = (/ &
+ & 0.10847E+02_JPRB,0.11985E+02_JPRB,0.13699E+02_JPRB,0.15922E+02_JPRB,0.18130E+02_JPRB /)  
+KB(:,13,13) = (/ &
+ & 0.15243E+03_JPRB,0.15414E+03_JPRB,0.15604E+03_JPRB,0.15731E+03_JPRB,0.15805E+03_JPRB /)  
+KB(:,14,13) = (/ &
+ & 0.15017E+03_JPRB,0.15285E+03_JPRB,0.15509E+03_JPRB,0.15662E+03_JPRB,0.15764E+03_JPRB /)  
+KB(:,15,13) = (/ &
+ & 0.14701E+03_JPRB,0.15032E+03_JPRB,0.15250E+03_JPRB,0.15435E+03_JPRB,0.15583E+03_JPRB /)  
+KB(:,16,13) = (/ &
+ & 0.14269E+03_JPRB,0.14580E+03_JPRB,0.14857E+03_JPRB,0.15094E+03_JPRB,0.15306E+03_JPRB /)  
+KB(:,17,13) = (/ &
+ & 0.13670E+03_JPRB,0.14035E+03_JPRB,0.14376E+03_JPRB,0.14689E+03_JPRB,0.14976E+03_JPRB /)  
+KB(:,18,13) = (/ &
+ & 0.13015E+03_JPRB,0.13455E+03_JPRB,0.13871E+03_JPRB,0.14263E+03_JPRB,0.14625E+03_JPRB /)  
+KB(:,19,13) = (/ &
+ & 0.12287E+03_JPRB,0.12845E+03_JPRB,0.13370E+03_JPRB,0.13836E+03_JPRB,0.14277E+03_JPRB /)  
+KB(:,20,13) = (/ &
+ & 0.11516E+03_JPRB,0.12176E+03_JPRB,0.12807E+03_JPRB,0.13396E+03_JPRB,0.13973E+03_JPRB /)  
+KB(:,21,13) = (/ &
+ & 0.10676E+03_JPRB,0.11461E+03_JPRB,0.12196E+03_JPRB,0.12926E+03_JPRB,0.13605E+03_JPRB /)  
+KB(:,22,13) = (/ &
+ & 0.98495E+02_JPRB,0.10775E+03_JPRB,0.11663E+03_JPRB,0.12493E+03_JPRB,0.13260E+03_JPRB /)  
+KB(:,23,13) = (/ &
+ & 0.89816E+02_JPRB,0.10015E+03_JPRB,0.11065E+03_JPRB,0.12084E+03_JPRB,0.12951E+03_JPRB /)  
+KB(:,24,13) = (/ &
+ & 0.82797E+02_JPRB,0.93590E+02_JPRB,0.10444E+03_JPRB,0.11545E+03_JPRB,0.12590E+03_JPRB /)  
+KB(:,25,13) = (/ &
+ & 0.77256E+02_JPRB,0.88067E+02_JPRB,0.99408E+02_JPRB,0.11069E+03_JPRB,0.12164E+03_JPRB /)  
+KB(:,26,13) = (/ &
+ & 0.73787E+02_JPRB,0.84230E+02_JPRB,0.95403E+02_JPRB,0.10719E+03_JPRB,0.11797E+03_JPRB /)  
+KB(:,27,13) = (/ &
+ & 0.72626E+02_JPRB,0.82623E+02_JPRB,0.93417E+02_JPRB,0.10482E+03_JPRB,0.11588E+03_JPRB /)  
+KB(:,28,13) = (/ &
+ & 0.72289E+02_JPRB,0.81705E+02_JPRB,0.92658E+02_JPRB,0.10355E+03_JPRB,0.11467E+03_JPRB /)  
+KB(:,29,13) = (/ &
+ & 0.73831E+02_JPRB,0.83248E+02_JPRB,0.93801E+02_JPRB,0.10474E+03_JPRB,0.11551E+03_JPRB /)  
+KB(:,30,13) = (/ &
+ & 0.76016E+02_JPRB,0.86113E+02_JPRB,0.95367E+02_JPRB,0.10651E+03_JPRB,0.11733E+03_JPRB /)  
+KB(:,31,13) = (/ &
+ & 0.80058E+02_JPRB,0.89705E+02_JPRB,0.99793E+02_JPRB,0.10982E+03_JPRB,0.12052E+03_JPRB /)  
+KB(:,32,13) = (/ &
+ & 0.85064E+02_JPRB,0.94860E+02_JPRB,0.10434E+03_JPRB,0.11401E+03_JPRB,0.12404E+03_JPRB /)  
+KB(:,33,13) = (/ &
+ & 0.90655E+02_JPRB,0.10081E+03_JPRB,0.10992E+03_JPRB,0.11933E+03_JPRB,0.12788E+03_JPRB /)  
+KB(:,34,13) = (/ &
+ & 0.95857E+02_JPRB,0.10597E+03_JPRB,0.11520E+03_JPRB,0.12356E+03_JPRB,0.13127E+03_JPRB /)  
+KB(:,35,13) = (/ &
+ & 0.99393E+02_JPRB,0.11014E+03_JPRB,0.12003E+03_JPRB,0.12794E+03_JPRB,0.13407E+03_JPRB /)  
+KB(:,36,13) = (/ &
+ & 0.10100E+03_JPRB,0.11220E+03_JPRB,0.12221E+03_JPRB,0.13085E+03_JPRB,0.13724E+03_JPRB /)  
+KB(:,37,13) = (/ &
+ & 0.10052E+03_JPRB,0.11217E+03_JPRB,0.12302E+03_JPRB,0.13127E+03_JPRB,0.13704E+03_JPRB /)  
+KB(:,38,13) = (/ &
+ & 0.10046E+03_JPRB,0.11273E+03_JPRB,0.12310E+03_JPRB,0.13118E+03_JPRB,0.13742E+03_JPRB /)  
+KB(:,39,13) = (/ &
+ & 0.10122E+03_JPRB,0.11326E+03_JPRB,0.12361E+03_JPRB,0.13081E+03_JPRB,0.13784E+03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART15',1,ZHOOK_HANDLE)
+END SUBROUTINE PART15
+
+
+SUBROUTINE PART16
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART16',0,ZHOOK_HANDLE)
+
+
+KB(:,40,13) = (/ &
+ & 0.10000E+03_JPRB,0.11180E+03_JPRB,0.12195E+03_JPRB,0.12930E+03_JPRB,0.13636E+03_JPRB /)  
+KB(:,41,13) = (/ &
+ & 0.98394E+02_JPRB,0.11024E+03_JPRB,0.11969E+03_JPRB,0.12788E+03_JPRB,0.13497E+03_JPRB /)  
+KB(:,42,13) = (/ &
+ & 0.97071E+02_JPRB,0.10823E+03_JPRB,0.11769E+03_JPRB,0.12630E+03_JPRB,0.13330E+03_JPRB /)  
+KB(:,43,13) = (/ &
+ & 0.94820E+02_JPRB,0.10592E+03_JPRB,0.11514E+03_JPRB,0.12393E+03_JPRB,0.13107E+03_JPRB /)  
+KB(:,44,13) = (/ &
+ & 0.92475E+02_JPRB,0.10313E+03_JPRB,0.11198E+03_JPRB,0.12120E+03_JPRB,0.12869E+03_JPRB /)  
+KB(:,45,13) = (/ &
+ & 0.90255E+02_JPRB,0.99678E+02_JPRB,0.10888E+03_JPRB,0.11824E+03_JPRB,0.12634E+03_JPRB /)  
+KB(:,46,13) = (/ &
+ & 0.87084E+02_JPRB,0.96376E+02_JPRB,0.10582E+03_JPRB,0.11496E+03_JPRB,0.12350E+03_JPRB /)  
+KB(:,47,13) = (/ &
+ & 0.83116E+02_JPRB,0.92026E+02_JPRB,0.10209E+03_JPRB,0.11120E+03_JPRB,0.12020E+03_JPRB /)  
+KB(:,48,13) = (/ &
+ & 0.78845E+02_JPRB,0.88316E+02_JPRB,0.97984E+02_JPRB,0.10729E+03_JPRB,0.11639E+03_JPRB /)  
+KB(:,49,13) = (/ &
+ & 0.74841E+02_JPRB,0.84389E+02_JPRB,0.93907E+02_JPRB,0.10286E+03_JPRB,0.11277E+03_JPRB /)  
+KB(:,50,13) = (/ &
+ & 0.71259E+02_JPRB,0.80370E+02_JPRB,0.89851E+02_JPRB,0.99011E+02_JPRB,0.10882E+03_JPRB /)  
+KB(:,51,13) = (/ &
+ & 0.67667E+02_JPRB,0.76332E+02_JPRB,0.85552E+02_JPRB,0.95111E+02_JPRB,0.10517E+03_JPRB /)  
+KB(:,52,13) = (/ &
+ & 0.64036E+02_JPRB,0.72373E+02_JPRB,0.81228E+02_JPRB,0.91458E+02_JPRB,0.10109E+03_JPRB /)  
+KB(:,53,13) = (/ &
+ & 0.60531E+02_JPRB,0.68539E+02_JPRB,0.77029E+02_JPRB,0.87314E+02_JPRB,0.97171E+02_JPRB /)  
+KB(:,54,13) = (/ &
+ & 0.57169E+02_JPRB,0.65298E+02_JPRB,0.73473E+02_JPRB,0.83504E+02_JPRB,0.93303E+02_JPRB /)  
+KB(:,55,13) = (/ &
+ & 0.53955E+02_JPRB,0.61813E+02_JPRB,0.70099E+02_JPRB,0.79656E+02_JPRB,0.89859E+02_JPRB /)  
+KB(:,56,13) = (/ &
+ & 0.50772E+02_JPRB,0.58658E+02_JPRB,0.66829E+02_JPRB,0.76079E+02_JPRB,0.86127E+02_JPRB /)  
+KB(:,57,13) = (/ &
+ & 0.47708E+02_JPRB,0.55213E+02_JPRB,0.63250E+02_JPRB,0.72545E+02_JPRB,0.82495E+02_JPRB /)  
+KB(:,58,13) = (/ &
+ & 0.45026E+02_JPRB,0.52243E+02_JPRB,0.60123E+02_JPRB,0.69281E+02_JPRB,0.79017E+02_JPRB /)  
+KB(:,59,13) = (/ &
+ & 0.42111E+02_JPRB,0.50365E+02_JPRB,0.58368E+02_JPRB,0.67832E+02_JPRB,0.76877E+02_JPRB /)  
+KB(:,13,14) = (/ &
+ & 0.32174E+03_JPRB,0.31744E+03_JPRB,0.31218E+03_JPRB,0.30740E+03_JPRB,0.30288E+03_JPRB /)  
+KB(:,14,14) = (/ &
+ & 0.33593E+03_JPRB,0.33142E+03_JPRB,0.32669E+03_JPRB,0.32231E+03_JPRB,0.31834E+03_JPRB /)  
+KB(:,15,14) = (/ &
+ & 0.34823E+03_JPRB,0.34389E+03_JPRB,0.34037E+03_JPRB,0.33690E+03_JPRB,0.33355E+03_JPRB /)  
+KB(:,16,14) = (/ &
+ & 0.35878E+03_JPRB,0.35631E+03_JPRB,0.35376E+03_JPRB,0.35105E+03_JPRB,0.34819E+03_JPRB /)  
+KB(:,17,14) = (/ &
+ & 0.36906E+03_JPRB,0.36793E+03_JPRB,0.36636E+03_JPRB,0.36433E+03_JPRB,0.36182E+03_JPRB /)  
+KB(:,18,14) = (/ &
+ & 0.37817E+03_JPRB,0.37835E+03_JPRB,0.37763E+03_JPRB,0.37618E+03_JPRB,0.37389E+03_JPRB /)  
+KB(:,19,14) = (/ &
+ & 0.38585E+03_JPRB,0.38729E+03_JPRB,0.38746E+03_JPRB,0.38655E+03_JPRB,0.38433E+03_JPRB /)  
+KB(:,20,14) = (/ &
+ & 0.39236E+03_JPRB,0.39495E+03_JPRB,0.39589E+03_JPRB,0.39530E+03_JPRB,0.39330E+03_JPRB /)  
+KB(:,21,14) = (/ &
+ & 0.39808E+03_JPRB,0.40159E+03_JPRB,0.40312E+03_JPRB,0.40280E+03_JPRB,0.40090E+03_JPRB /)  
+KB(:,22,14) = (/ &
+ & 0.40338E+03_JPRB,0.40757E+03_JPRB,0.40933E+03_JPRB,0.40908E+03_JPRB,0.40708E+03_JPRB /)  
+KB(:,23,14) = (/ &
+ & 0.40834E+03_JPRB,0.41282E+03_JPRB,0.41463E+03_JPRB,0.41442E+03_JPRB,0.41222E+03_JPRB /)  
+KB(:,24,14) = (/ &
+ & 0.41280E+03_JPRB,0.41739E+03_JPRB,0.41916E+03_JPRB,0.41879E+03_JPRB,0.41631E+03_JPRB /)  
+KB(:,25,14) = (/ &
+ & 0.41635E+03_JPRB,0.42140E+03_JPRB,0.42295E+03_JPRB,0.42231E+03_JPRB,0.41948E+03_JPRB /)  
+KB(:,26,14) = (/ &
+ & 0.41887E+03_JPRB,0.42439E+03_JPRB,0.42613E+03_JPRB,0.42509E+03_JPRB,0.42199E+03_JPRB /)  
+KB(:,27,14) = (/ &
+ & 0.42034E+03_JPRB,0.42637E+03_JPRB,0.42837E+03_JPRB,0.42723E+03_JPRB,0.42380E+03_JPRB /)  
+KB(:,28,14) = (/ &
+ & 0.42191E+03_JPRB,0.42841E+03_JPRB,0.43008E+03_JPRB,0.42870E+03_JPRB,0.42501E+03_JPRB /)  
+KB(:,29,14) = (/ &
+ & 0.42351E+03_JPRB,0.42979E+03_JPRB,0.43162E+03_JPRB,0.42986E+03_JPRB,0.42579E+03_JPRB /)  
+KB(:,30,14) = (/ &
+ & 0.42461E+03_JPRB,0.42985E+03_JPRB,0.43291E+03_JPRB,0.43068E+03_JPRB,0.42610E+03_JPRB /)  
+KB(:,31,14) = (/ &
+ & 0.42505E+03_JPRB,0.43017E+03_JPRB,0.43191E+03_JPRB,0.43099E+03_JPRB,0.42603E+03_JPRB /)  
+KB(:,32,14) = (/ &
+ & 0.42362E+03_JPRB,0.42860E+03_JPRB,0.43041E+03_JPRB,0.42915E+03_JPRB,0.42555E+03_JPRB /)  
+KB(:,33,14) = (/ &
+ & 0.42123E+03_JPRB,0.42505E+03_JPRB,0.42663E+03_JPRB,0.42551E+03_JPRB,0.42290E+03_JPRB /)  
+KB(:,34,14) = (/ &
+ & 0.41773E+03_JPRB,0.42082E+03_JPRB,0.42178E+03_JPRB,0.42110E+03_JPRB,0.41858E+03_JPRB /)  
+KB(:,35,14) = (/ &
+ & 0.41435E+03_JPRB,0.41544E+03_JPRB,0.41491E+03_JPRB,0.41443E+03_JPRB,0.41216E+03_JPRB /)  
+KB(:,36,14) = (/ &
+ & 0.41009E+03_JPRB,0.41065E+03_JPRB,0.40988E+03_JPRB,0.40756E+03_JPRB,0.40367E+03_JPRB /)  
+KB(:,37,14) = (/ &
+ & 0.40889E+03_JPRB,0.40948E+03_JPRB,0.40755E+03_JPRB,0.40547E+03_JPRB,0.40195E+03_JPRB /)  
+KB(:,38,14) = (/ &
+ & 0.40736E+03_JPRB,0.40781E+03_JPRB,0.40666E+03_JPRB,0.40322E+03_JPRB,0.39939E+03_JPRB /)  
+KB(:,39,14) = (/ &
+ & 0.40514E+03_JPRB,0.40605E+03_JPRB,0.40431E+03_JPRB,0.40166E+03_JPRB,0.39666E+03_JPRB /)  
+KB(:,40,14) = (/ &
+ & 0.40543E+03_JPRB,0.40633E+03_JPRB,0.40490E+03_JPRB,0.40260E+03_JPRB,0.39791E+03_JPRB /)  
+KB(:,41,14) = (/ &
+ & 0.40503E+03_JPRB,0.40615E+03_JPRB,0.40599E+03_JPRB,0.40348E+03_JPRB,0.39947E+03_JPRB /)  
+KB(:,42,14) = (/ &
+ & 0.40408E+03_JPRB,0.40664E+03_JPRB,0.40681E+03_JPRB,0.40441E+03_JPRB,0.40107E+03_JPRB /)  
+KB(:,43,14) = (/ &
+ & 0.40250E+03_JPRB,0.40659E+03_JPRB,0.40791E+03_JPRB,0.40633E+03_JPRB,0.40362E+03_JPRB /)  
+KB(:,44,14) = (/ &
+ & 0.40121E+03_JPRB,0.40653E+03_JPRB,0.40934E+03_JPRB,0.40832E+03_JPRB,0.40616E+03_JPRB /)  
+KB(:,45,14) = (/ &
+ & 0.39928E+03_JPRB,0.40669E+03_JPRB,0.41014E+03_JPRB,0.41010E+03_JPRB,0.40849E+03_JPRB /)  
+KB(:,46,14) = (/ &
+ & 0.39656E+03_JPRB,0.40551E+03_JPRB,0.41027E+03_JPRB,0.41167E+03_JPRB,0.41068E+03_JPRB /)  
+KB(:,47,14) = (/ &
+ & 0.39317E+03_JPRB,0.40403E+03_JPRB,0.40985E+03_JPRB,0.41273E+03_JPRB,0.41264E+03_JPRB /)  
+KB(:,48,14) = (/ &
+ & 0.38915E+03_JPRB,0.40116E+03_JPRB,0.40932E+03_JPRB,0.41346E+03_JPRB,0.41469E+03_JPRB /)  
+KB(:,49,14) = (/ &
+ & 0.38398E+03_JPRB,0.39755E+03_JPRB,0.40789E+03_JPRB,0.41416E+03_JPRB,0.41577E+03_JPRB /)  
+KB(:,50,14) = (/ &
+ & 0.37757E+03_JPRB,0.39396E+03_JPRB,0.40616E+03_JPRB,0.41381E+03_JPRB,0.41707E+03_JPRB /)  
+KB(:,51,14) = (/ &
+ & 0.37117E+03_JPRB,0.38987E+03_JPRB,0.40415E+03_JPRB,0.41318E+03_JPRB,0.41740E+03_JPRB /)  
+KB(:,52,14) = (/ &
+ & 0.36408E+03_JPRB,0.38505E+03_JPRB,0.40161E+03_JPRB,0.41151E+03_JPRB,0.41801E+03_JPRB /)  
+KB(:,53,14) = (/ &
+ & 0.35611E+03_JPRB,0.37948E+03_JPRB,0.39824E+03_JPRB,0.40994E+03_JPRB,0.41764E+03_JPRB /)  
+KB(:,54,14) = (/ &
+ & 0.34712E+03_JPRB,0.37341E+03_JPRB,0.39425E+03_JPRB,0.40798E+03_JPRB,0.41739E+03_JPRB /)  
+KB(:,55,14) = (/ &
+ & 0.33857E+03_JPRB,0.36757E+03_JPRB,0.38995E+03_JPRB,0.40583E+03_JPRB,0.41654E+03_JPRB /)  
+KB(:,56,14) = (/ &
+ & 0.32949E+03_JPRB,0.36056E+03_JPRB,0.38492E+03_JPRB,0.40281E+03_JPRB,0.41532E+03_JPRB /)  
+KB(:,57,14) = (/ &
+ & 0.31954E+03_JPRB,0.35312E+03_JPRB,0.37997E+03_JPRB,0.39944E+03_JPRB,0.41349E+03_JPRB /)  
+KB(:,58,14) = (/ &
+ & 0.30943E+03_JPRB,0.34518E+03_JPRB,0.37428E+03_JPRB,0.39571E+03_JPRB,0.41155E+03_JPRB /)  
+KB(:,59,14) = (/ &
+ & 0.30628E+03_JPRB,0.34259E+03_JPRB,0.37284E+03_JPRB,0.39463E+03_JPRB,0.41220E+03_JPRB /)  
+KB(:,13,15) = (/ &
+ & 0.58702E+03_JPRB,0.56862E+03_JPRB,0.55331E+03_JPRB,0.53896E+03_JPRB,0.52495E+03_JPRB /)  
+KB(:,14,15) = (/ &
+ & 0.64037E+03_JPRB,0.62129E+03_JPRB,0.60436E+03_JPRB,0.58772E+03_JPRB,0.57127E+03_JPRB /)  
+KB(:,15,15) = (/ &
+ & 0.69642E+03_JPRB,0.67640E+03_JPRB,0.65677E+03_JPRB,0.63714E+03_JPRB,0.61752E+03_JPRB /)  
+KB(:,16,15) = (/ &
+ & 0.75408E+03_JPRB,0.73150E+03_JPRB,0.70834E+03_JPRB,0.68512E+03_JPRB,0.66206E+03_JPRB /)  
+KB(:,17,15) = (/ &
+ & 0.81156E+03_JPRB,0.78496E+03_JPRB,0.75773E+03_JPRB,0.73064E+03_JPRB,0.70441E+03_JPRB /)  
+KB(:,18,15) = (/ &
+ & 0.86684E+03_JPRB,0.83552E+03_JPRB,0.80425E+03_JPRB,0.77370E+03_JPRB,0.74441E+03_JPRB /)  
+KB(:,19,15) = (/ &
+ & 0.91879E+03_JPRB,0.88284E+03_JPRB,0.84773E+03_JPRB,0.81356E+03_JPRB,0.78105E+03_JPRB /)  
+KB(:,20,15) = (/ &
+ & 0.96599E+03_JPRB,0.92558E+03_JPRB,0.88651E+03_JPRB,0.84884E+03_JPRB,0.81303E+03_JPRB /)  
+KB(:,21,15) = (/ &
+ & 0.10076E+04_JPRB,0.96291E+03_JPRB,0.92009E+03_JPRB,0.87920E+03_JPRB,0.84047E+03_JPRB /)  
+KB(:,22,15) = (/ &
+ & 0.10401E+04_JPRB,0.99157E+03_JPRB,0.94567E+03_JPRB,0.90208E+03_JPRB,0.86095E+03_JPRB /)  
+KB(:,23,15) = (/ &
+ & 0.10659E+04_JPRB,0.10143E+04_JPRB,0.96587E+03_JPRB,0.91983E+03_JPRB,0.87686E+03_JPRB /)  
+KB(:,24,15) = (/ &
+ & 0.10857E+04_JPRB,0.10316E+04_JPRB,0.98077E+03_JPRB,0.93285E+03_JPRB,0.88829E+03_JPRB /)  
+KB(:,25,15) = (/ &
+ & 0.10994E+04_JPRB,0.10434E+04_JPRB,0.99070E+03_JPRB,0.94138E+03_JPRB,0.89569E+03_JPRB /)  
+KB(:,26,15) = (/ &
+ & 0.11072E+04_JPRB,0.10495E+04_JPRB,0.99578E+03_JPRB,0.94553E+03_JPRB,0.89886E+03_JPRB /)  
+KB(:,27,15) = (/ &
+ & 0.11107E+04_JPRB,0.10519E+04_JPRB,0.99732E+03_JPRB,0.94654E+03_JPRB,0.89932E+03_JPRB /)  
+KB(:,28,15) = (/ &
+ & 0.11104E+04_JPRB,0.10510E+04_JPRB,0.99596E+03_JPRB,0.94493E+03_JPRB,0.89744E+03_JPRB /)  
+KB(:,29,15) = (/ &
+ & 0.11068E+04_JPRB,0.10472E+04_JPRB,0.99206E+03_JPRB,0.94099E+03_JPRB,0.89320E+03_JPRB /)  
+KB(:,30,15) = (/ &
+ & 0.11008E+04_JPRB,0.10413E+04_JPRB,0.98636E+03_JPRB,0.93544E+03_JPRB,0.88772E+03_JPRB /)  
+KB(:,31,15) = (/ &
+ & 0.10926E+04_JPRB,0.10334E+04_JPRB,0.97895E+03_JPRB,0.92827E+03_JPRB,0.88094E+03_JPRB /)  
+KB(:,32,15) = (/ &
+ & 0.10829E+04_JPRB,0.10242E+04_JPRB,0.97015E+03_JPRB,0.91986E+03_JPRB,0.87315E+03_JPRB /)  
+KB(:,33,15) = (/ &
+ & 0.10718E+04_JPRB,0.10140E+04_JPRB,0.96048E+03_JPRB,0.91059E+03_JPRB,0.86462E+03_JPRB /)  
+KB(:,34,15) = (/ &
+ & 0.10622E+04_JPRB,0.10049E+04_JPRB,0.95198E+03_JPRB,0.90258E+03_JPRB,0.85725E+03_JPRB /)  
+KB(:,35,15) = (/ &
+ & 0.10576E+04_JPRB,0.10006E+04_JPRB,0.94772E+03_JPRB,0.89854E+03_JPRB,0.85365E+03_JPRB /)  
+KB(:,36,15) = (/ &
+ & 0.10589E+04_JPRB,0.10017E+04_JPRB,0.94880E+03_JPRB,0.89934E+03_JPRB,0.85436E+03_JPRB /)  
+KB(:,37,15) = (/ &
+ & 0.10689E+04_JPRB,0.10108E+04_JPRB,0.95721E+03_JPRB,0.90723E+03_JPRB,0.86136E+03_JPRB /)  
+KB(:,38,15) = (/ &
+ & 0.10792E+04_JPRB,0.10202E+04_JPRB,0.96581E+03_JPRB,0.91534E+03_JPRB,0.86861E+03_JPRB /)  
+KB(:,39,15) = (/ &
+ & 0.10893E+04_JPRB,0.10294E+04_JPRB,0.97432E+03_JPRB,0.92308E+03_JPRB,0.87586E+03_JPRB /)  
+KB(:,40,15) = (/ &
+ & 0.11025E+04_JPRB,0.10445E+04_JPRB,0.98826E+03_JPRB,0.93598E+03_JPRB,0.88770E+03_JPRB /)  
+KB(:,41,15) = (/ &
+ & 0.11189E+04_JPRB,0.10606E+04_JPRB,0.10030E+04_JPRB,0.94969E+03_JPRB,0.90027E+03_JPRB /)  
+KB(:,42,15) = (/ &
+ & 0.11355E+04_JPRB,0.10769E+04_JPRB,0.10180E+04_JPRB,0.96359E+03_JPRB,0.91305E+03_JPRB /)  
+KB(:,43,15) = (/ &
+ & 0.11585E+04_JPRB,0.10971E+04_JPRB,0.10364E+04_JPRB,0.98067E+03_JPRB,0.92886E+03_JPRB /)  
+KB(:,44,15) = (/ &
+ & 0.11827E+04_JPRB,0.11193E+04_JPRB,0.10568E+04_JPRB,0.99947E+03_JPRB,0.94636E+03_JPRB /)  
+KB(:,45,15) = (/ &
+ & 0.12075E+04_JPRB,0.11422E+04_JPRB,0.10778E+04_JPRB,0.10187E+04_JPRB,0.96421E+03_JPRB /)  
+KB(:,46,15) = (/ &
+ & 0.12357E+04_JPRB,0.11671E+04_JPRB,0.11007E+04_JPRB,0.10396E+04_JPRB,0.98362E+03_JPRB /)  
+KB(:,47,15) = (/ &
+ & 0.12667E+04_JPRB,0.11958E+04_JPRB,0.11271E+04_JPRB,0.10639E+04_JPRB,0.10059E+04_JPRB /)  
+KB(:,48,15) = (/ &
+ & 0.12983E+04_JPRB,0.12254E+04_JPRB,0.11543E+04_JPRB,0.10888E+04_JPRB,0.10288E+04_JPRB /)  
+KB(:,49,15) = (/ &
+ & 0.13304E+04_JPRB,0.12559E+04_JPRB,0.11825E+04_JPRB,0.11147E+04_JPRB,0.10526E+04_JPRB /)  
+KB(:,50,15) = (/ &
+ & 0.13621E+04_JPRB,0.12852E+04_JPRB,0.12096E+04_JPRB,0.11397E+04_JPRB,0.10755E+04_JPRB /)  
+KB(:,51,15) = (/ &
+ & 0.13919E+04_JPRB,0.13140E+04_JPRB,0.12368E+04_JPRB,0.11648E+04_JPRB,0.10985E+04_JPRB /)  
+KB(:,52,15) = (/ &
+ & 0.14222E+04_JPRB,0.13432E+04_JPRB,0.12647E+04_JPRB,0.11905E+04_JPRB,0.11221E+04_JPRB /)  
+KB(:,53,15) = (/ &
+ & 0.14531E+04_JPRB,0.13729E+04_JPRB,0.12932E+04_JPRB,0.12171E+04_JPRB,0.11465E+04_JPRB /)  
+KB(:,54,15) = (/ &
+ & 0.14842E+04_JPRB,0.14002E+04_JPRB,0.13197E+04_JPRB,0.12421E+04_JPRB,0.11696E+04_JPRB /)  
+KB(:,55,15) = (/ &
+ & 0.15120E+04_JPRB,0.14267E+04_JPRB,0.13453E+04_JPRB,0.12667E+04_JPRB,0.11922E+04_JPRB /)  
+KB(:,56,15) = (/ &
+ & 0.15401E+04_JPRB,0.14538E+04_JPRB,0.13712E+04_JPRB,0.12915E+04_JPRB,0.12155E+04_JPRB /)  
+KB(:,57,15) = (/ &
+ & 0.15682E+04_JPRB,0.14811E+04_JPRB,0.13973E+04_JPRB,0.13167E+04_JPRB,0.12393E+04_JPRB /)  
+KB(:,58,15) = (/ &
+ & 0.15949E+04_JPRB,0.15073E+04_JPRB,0.14224E+04_JPRB,0.13410E+04_JPRB,0.12625E+04_JPRB /)  
+KB(:,59,15) = (/ &
+ & 0.16055E+04_JPRB,0.15180E+04_JPRB,0.14326E+04_JPRB,0.13507E+04_JPRB,0.12718E+04_JPRB /)  
+KB(:,13,16) = (/ &
+ & 0.98069E+03_JPRB,0.94212E+03_JPRB,0.90378E+03_JPRB,0.86861E+03_JPRB,0.83780E+03_JPRB /)  
+KB(:,14,16) = (/ &
+ & 0.11010E+04_JPRB,0.10540E+04_JPRB,0.10095E+04_JPRB,0.96975E+03_JPRB,0.93339E+03_JPRB /)  
+KB(:,15,16) = (/ &
+ & 0.12287E+04_JPRB,0.11714E+04_JPRB,0.11195E+04_JPRB,0.10736E+04_JPRB,0.10305E+04_JPRB /)  
+KB(:,16,16) = (/ &
+ & 0.13596E+04_JPRB,0.12909E+04_JPRB,0.12306E+04_JPRB,0.11762E+04_JPRB,0.11252E+04_JPRB /)  
+KB(:,17,16) = (/ &
+ & 0.14895E+04_JPRB,0.14091E+04_JPRB,0.13394E+04_JPRB,0.12751E+04_JPRB,0.12151E+04_JPRB /)  
+KB(:,18,16) = (/ &
+ & 0.16148E+04_JPRB,0.15230E+04_JPRB,0.14425E+04_JPRB,0.13683E+04_JPRB,0.12989E+04_JPRB /)  
+KB(:,19,16) = (/ &
+ & 0.17336E+04_JPRB,0.16302E+04_JPRB,0.15375E+04_JPRB,0.14530E+04_JPRB,0.13744E+04_JPRB /)  
+KB(:,20,16) = (/ &
+ & 0.18405E+04_JPRB,0.17248E+04_JPRB,0.16208E+04_JPRB,0.15267E+04_JPRB,0.14397E+04_JPRB /)  
+KB(:,21,16) = (/ &
+ & 0.19359E+04_JPRB,0.18083E+04_JPRB,0.16938E+04_JPRB,0.15909E+04_JPRB,0.14962E+04_JPRB /)  
+KB(:,22,16) = (/ &
+ & 0.20085E+04_JPRB,0.18707E+04_JPRB,0.17478E+04_JPRB,0.16373E+04_JPRB,0.15366E+04_JPRB /)  
+KB(:,23,16) = (/ &
+ & 0.20648E+04_JPRB,0.19188E+04_JPRB,0.17890E+04_JPRB,0.16725E+04_JPRB,0.15672E+04_JPRB /)  
+KB(:,24,16) = (/ &
+ & 0.21054E+04_JPRB,0.19528E+04_JPRB,0.18178E+04_JPRB,0.16967E+04_JPRB,0.15881E+04_JPRB /)  
+KB(:,25,16) = (/ &
+ & 0.21318E+04_JPRB,0.19742E+04_JPRB,0.18353E+04_JPRB,0.17113E+04_JPRB,0.16005E+04_JPRB /)  
+KB(:,26,16) = (/ &
+ & 0.21433E+04_JPRB,0.19836E+04_JPRB,0.18416E+04_JPRB,0.17161E+04_JPRB,0.16044E+04_JPRB /)  
+KB(:,27,16) = (/ &
+ & 0.21445E+04_JPRB,0.19835E+04_JPRB,0.18409E+04_JPRB,0.17145E+04_JPRB,0.16033E+04_JPRB /)  
+KB(:,28,16) = (/ &
+ & 0.21374E+04_JPRB,0.19764E+04_JPRB,0.18336E+04_JPRB,0.17081E+04_JPRB,0.15978E+04_JPRB /)  
+KB(:,29,16) = (/ &
+ & 0.21225E+04_JPRB,0.19618E+04_JPRB,0.18208E+04_JPRB,0.16961E+04_JPRB,0.15894E+04_JPRB /)  
+KB(:,30,16) = (/ &
+ & 0.21033E+04_JPRB,0.19434E+04_JPRB,0.18039E+04_JPRB,0.16808E+04_JPRB,0.15775E+04_JPRB /)  
+KB(:,31,16) = (/ &
+ & 0.20779E+04_JPRB,0.19206E+04_JPRB,0.17837E+04_JPRB,0.16635E+04_JPRB,0.15631E+04_JPRB /)  
+KB(:,32,16) = (/ &
+ & 0.20491E+04_JPRB,0.18949E+04_JPRB,0.17612E+04_JPRB,0.16447E+04_JPRB,0.15471E+04_JPRB /)  
+KB(:,33,16) = (/ &
+ & 0.20177E+04_JPRB,0.18682E+04_JPRB,0.17367E+04_JPRB,0.16246E+04_JPRB,0.15302E+04_JPRB /)  
+KB(:,34,16) = (/ &
+ & 0.19905E+04_JPRB,0.18445E+04_JPRB,0.17155E+04_JPRB,0.16076E+04_JPRB,0.15146E+04_JPRB /)  
+KB(:,35,16) = (/ &
+ & 0.19774E+04_JPRB,0.18329E+04_JPRB,0.17061E+04_JPRB,0.16001E+04_JPRB,0.15070E+04_JPRB /)  
+KB(:,36,16) = (/ &
+ & 0.19799E+04_JPRB,0.18350E+04_JPRB,0.17079E+04_JPRB,0.16017E+04_JPRB,0.15083E+04_JPRB /)  
+KB(:,37,16) = (/ &
+ & 0.20051E+04_JPRB,0.18569E+04_JPRB,0.17271E+04_JPRB,0.16176E+04_JPRB,0.15230E+04_JPRB /)  
+KB(:,38,16) = (/ &
+ & 0.20315E+04_JPRB,0.18800E+04_JPRB,0.17473E+04_JPRB,0.16343E+04_JPRB,0.15379E+04_JPRB /)  
+KB(:,39,16) = (/ &
+ & 0.20576E+04_JPRB,0.19026E+04_JPRB,0.17672E+04_JPRB,0.16508E+04_JPRB,0.15527E+04_JPRB /)  
+KB(:,40,16) = (/ &
+ & 0.21013E+04_JPRB,0.19405E+04_JPRB,0.18004E+04_JPRB,0.16787E+04_JPRB,0.15771E+04_JPRB /)  
+KB(:,41,16) = (/ &
+ & 0.21482E+04_JPRB,0.19814E+04_JPRB,0.18363E+04_JPRB,0.17091E+04_JPRB,0.16029E+04_JPRB /)  
+KB(:,42,16) = (/ &
+ & 0.21964E+04_JPRB,0.20236E+04_JPRB,0.18732E+04_JPRB,0.17410E+04_JPRB,0.16295E+04_JPRB /)  
+KB(:,43,16) = (/ &
+ & 0.22568E+04_JPRB,0.20769E+04_JPRB,0.19193E+04_JPRB,0.17816E+04_JPRB,0.16630E+04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART16',1,ZHOOK_HANDLE)
+END SUBROUTINE PART16
+
+
+SUBROUTINE PART17
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART17',0,ZHOOK_HANDLE)
+
+
+KB(:,44,16) = (/ &
+ & 0.23247E+04_JPRB,0.21362E+04_JPRB,0.19712E+04_JPRB,0.18270E+04_JPRB,0.17012E+04_JPRB /)  
+KB(:,45,16) = (/ &
+ & 0.23959E+04_JPRB,0.21983E+04_JPRB,0.20252E+04_JPRB,0.18744E+04_JPRB,0.17420E+04_JPRB /)  
+KB(:,46,16) = (/ &
+ & 0.24748E+04_JPRB,0.22670E+04_JPRB,0.20858E+04_JPRB,0.19269E+04_JPRB,0.17884E+04_JPRB /)  
+KB(:,47,16) = (/ &
+ & 0.25688E+04_JPRB,0.23479E+04_JPRB,0.21568E+04_JPRB,0.19886E+04_JPRB,0.18424E+04_JPRB /)  
+KB(:,48,16) = (/ &
+ & 0.26704E+04_JPRB,0.24334E+04_JPRB,0.22313E+04_JPRB,0.20542E+04_JPRB,0.18994E+04_JPRB /)  
+KB(:,49,16) = (/ &
+ & 0.27805E+04_JPRB,0.25238E+04_JPRB,0.23096E+04_JPRB,0.21232E+04_JPRB,0.19594E+04_JPRB /)  
+KB(:,50,16) = (/ &
+ & 0.28920E+04_JPRB,0.26151E+04_JPRB,0.23873E+04_JPRB,0.21911E+04_JPRB,0.20186E+04_JPRB /)  
+KB(:,51,16) = (/ &
+ & 0.30093E+04_JPRB,0.27098E+04_JPRB,0.24666E+04_JPRB,0.22601E+04_JPRB,0.20794E+04_JPRB /)  
+KB(:,52,16) = (/ &
+ & 0.31338E+04_JPRB,0.28121E+04_JPRB,0.25503E+04_JPRB,0.23323E+04_JPRB,0.21428E+04_JPRB /)  
+KB(:,53,16) = (/ &
+ & 0.32663E+04_JPRB,0.29228E+04_JPRB,0.26405E+04_JPRB,0.24086E+04_JPRB,0.22095E+04_JPRB /)  
+KB(:,54,16) = (/ &
+ & 0.33958E+04_JPRB,0.30317E+04_JPRB,0.27288E+04_JPRB,0.24819E+04_JPRB,0.22731E+04_JPRB /)  
+KB(:,55,16) = (/ &
+ & 0.35272E+04_JPRB,0.31418E+04_JPRB,0.28194E+04_JPRB,0.25560E+04_JPRB,0.23371E+04_JPRB /)  
+KB(:,56,16) = (/ &
+ & 0.36664E+04_JPRB,0.32577E+04_JPRB,0.29162E+04_JPRB,0.26350E+04_JPRB,0.24040E+04_JPRB /)  
+KB(:,57,16) = (/ &
+ & 0.38139E+04_JPRB,0.33808E+04_JPRB,0.30193E+04_JPRB,0.27188E+04_JPRB,0.24736E+04_JPRB /)  
+KB(:,58,16) = (/ &
+ & 0.39629E+04_JPRB,0.35038E+04_JPRB,0.31229E+04_JPRB,0.28034E+04_JPRB,0.25431E+04_JPRB /)  
+KB(:,59,16) = (/ &
+ & 0.40252E+04_JPRB,0.35562E+04_JPRB,0.31659E+04_JPRB,0.28393E+04_JPRB,0.25724E+04_JPRB /)  
+
+!     -----------------------------------------------------------------
+
+FORREF(:, 1) = (/ 0.525585E-05_JPRB, 0.527618E-05_JPRB, 0.746929E-04_JPRB /)
+FORREF(:, 2) = (/ 0.794660E-05_JPRB, 0.136902E-04_JPRB, 0.849878E-04_JPRB /)
+FORREF(:, 3) = (/ 0.197099E-04_JPRB, 0.733094E-04_JPRB, 0.121687E-03_JPRB /)
+FORREF(:, 4) = (/ 0.148274E-03_JPRB, 0.169776E-03_JPRB, 0.164848E-03_JPRB /)
+FORREF(:, 5) = (/ 0.230296E-03_JPRB, 0.210384E-03_JPRB, 0.182028E-03_JPRB /)
+FORREF(:, 6) = (/ 0.280575E-03_JPRB, 0.259217E-03_JPRB, 0.196080E-03_JPRB /)
+FORREF(:, 7) = (/ 0.329034E-03_JPRB, 0.291575E-03_JPRB, 0.207044E-03_JPRB /)
+FORREF(:, 8) = (/ 0.349989E-03_JPRB, 0.323471E-03_JPRB, 0.225712E-03_JPRB /)
+FORREF(:, 9) = (/ 0.366097E-03_JPRB, 0.321519E-03_JPRB, 0.253150E-03_JPRB /)
+FORREF(:,10) = (/ 0.383589E-03_JPRB, 0.355314E-03_JPRB, 0.262555E-03_JPRB /)
+FORREF(:,11) = (/ 0.375933E-03_JPRB, 0.372443E-03_JPRB, 0.261313E-03_JPRB /)
+FORREF(:,12) = (/ 0.370652E-03_JPRB, 0.382366E-03_JPRB, 0.250070E-03_JPRB /)
+FORREF(:,13) = (/ 0.375092E-03_JPRB, 0.379542E-03_JPRB, 0.265794E-03_JPRB /)
+FORREF(:,14) = (/ 0.389705E-03_JPRB, 0.384274E-03_JPRB, 0.322135E-03_JPRB /)
+FORREF(:,15) = (/ 0.372084E-03_JPRB, 0.390422E-03_JPRB, 0.370035E-03_JPRB /)
+FORREF(:,16) = (/ 0.437802E-03_JPRB, 0.373406E-03_JPRB, 0.373222E-03_JPRB /)
+
+!     -----------------------------------------------------------------
+!     The array SELFREF contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+SELFREF(:, 1) = (/ &
+ & 0.126758E-02_JPRB, 0.105253E-02_JPRB, 0.873963E-03_JPRB, 0.725690E-03_JPRB, 0.602573E-03_JPRB, &
+ & 0.500344E-03_JPRB, 0.415458E-03_JPRB, 0.344973E-03_JPRB, 0.286447E-03_JPRB, 0.237849E-03_JPRB /)  
+SELFREF(:, 2) = (/ &
+ & 0.144006E-02_JPRB, 0.118514E-02_JPRB, 0.975351E-03_JPRB, 0.802697E-03_JPRB, 0.660606E-03_JPRB, &
+ & 0.543667E-03_JPRB, 0.447429E-03_JPRB, 0.368226E-03_JPRB, 0.303044E-03_JPRB, 0.249400E-03_JPRB /)  
+SELFREF(:, 3) = (/ &
+ & 0.294018E-02_JPRB, 0.227428E-02_JPRB, 0.175920E-02_JPRB, 0.136077E-02_JPRB, 0.105258E-02_JPRB, &
+ & 0.814189E-03_JPRB, 0.629789E-03_JPRB, 0.487153E-03_JPRB, 0.376821E-03_JPRB, 0.291478E-03_JPRB /)  
+SELFREF(:, 4) = (/ &
+ & 0.395290E-02_JPRB, 0.348405E-02_JPRB, 0.307081E-02_JPRB, 0.270658E-02_JPRB, 0.238556E-02_JPRB, &
+ & 0.210261E-02_JPRB, 0.185322E-02_JPRB, 0.163341E-02_JPRB, 0.143967E-02_JPRB, 0.126891E-02_JPRB /)  
+SELFREF(:, 5) = (/ &
+ & 0.419122E-02_JPRB, 0.385638E-02_JPRB, 0.354829E-02_JPRB, 0.326481E-02_JPRB, 0.300398E-02_JPRB, &
+ & 0.276399E-02_JPRB, 0.254317E-02_JPRB, 0.234000E-02_JPRB, 0.215305E-02_JPRB, 0.198104E-02_JPRB /)  
+SELFREF(:, 6) = (/ &
+ & 0.495659E-02_JPRB, 0.456777E-02_JPRB, 0.420945E-02_JPRB, 0.387924E-02_JPRB, 0.357494E-02_JPRB, &
+ & 0.329450E-02_JPRB, 0.303606E-02_JPRB, 0.279790E-02_JPRB, 0.257842E-02_JPRB, 0.237615E-02_JPRB /)  
+SELFREF(:, 7) = (/ &
+ & 0.526981E-02_JPRB, 0.490687E-02_JPRB, 0.456893E-02_JPRB, 0.425426E-02_JPRB, 0.396126E-02_JPRB, &
+ & 0.368844E-02_JPRB, 0.343441E-02_JPRB, 0.319788E-02_JPRB, 0.297764E-02_JPRB, 0.277256E-02_JPRB /)  
+SELFREF(:, 8) = (/ &
+ & 0.575426E-02_JPRB, 0.531597E-02_JPRB, 0.491106E-02_JPRB, 0.453699E-02_JPRB, 0.419141E-02_JPRB, &
+ & 0.387216E-02_JPRB, 0.357722E-02_JPRB, 0.330475E-02_JPRB, 0.305303E-02_JPRB, 0.282048E-02_JPRB /)  
+SELFREF(:, 9) = (/ &
+ & 0.549881E-02_JPRB, 0.514328E-02_JPRB, 0.481074E-02_JPRB, 0.449970E-02_JPRB, 0.420877E-02_JPRB, &
+ & 0.393665E-02_JPRB, 0.368213E-02_JPRB, 0.344406E-02_JPRB, 0.322138E-02_JPRB, 0.301310E-02_JPRB /)  
+SELFREF(:,10) = (/ &
+ & 0.605357E-02_JPRB, 0.561246E-02_JPRB, 0.520349E-02_JPRB, 0.482432E-02_JPRB, 0.447278E-02_JPRB, &
+ & 0.414686E-02_JPRB, 0.384469E-02_JPRB, 0.356453E-02_JPRB, 0.330479E-02_JPRB, 0.306398E-02_JPRB /)  
+SELFREF(:,11) = (/ &
+ & 0.640504E-02_JPRB, 0.587858E-02_JPRB, 0.539540E-02_JPRB, 0.495194E-02_JPRB, 0.454492E-02_JPRB, &
+ & 0.417136E-02_JPRB, 0.382850E-02_JPRB, 0.351382E-02_JPRB, 0.322501E-02_JPRB, 0.295993E-02_JPRB /)  
+SELFREF(:,12) = (/ &
+ & 0.677803E-02_JPRB, 0.615625E-02_JPRB, 0.559152E-02_JPRB, 0.507859E-02_JPRB, 0.461271E-02_JPRB, &
+ & 0.418957E-02_JPRB, 0.380524E-02_JPRB, 0.345617E-02_JPRB, 0.313913E-02_JPRB, 0.285116E-02_JPRB /)  
+SELFREF(:,13) = (/ &
+ & 0.690347E-02_JPRB, 0.627003E-02_JPRB, 0.569472E-02_JPRB, 0.517219E-02_JPRB, 0.469761E-02_JPRB, &
+ & 0.426658E-02_JPRB, 0.387509E-02_JPRB, 0.351953E-02_JPRB, 0.319659E-02_JPRB, 0.290328E-02_JPRB /)  
+SELFREF(:,14) = (/ &
+ & 0.692680E-02_JPRB, 0.632795E-02_JPRB, 0.578087E-02_JPRB, 0.528109E-02_JPRB, 0.482452E-02_JPRB, &
+ & 0.440742E-02_JPRB, 0.402638E-02_JPRB, 0.367828E-02_JPRB, 0.336028E-02_JPRB, 0.306977E-02_JPRB /)  
+SELFREF(:,15) = (/ &
+ & 0.754894E-02_JPRB, 0.681481E-02_JPRB, 0.615207E-02_JPRB, 0.555378E-02_JPRB, 0.501367E-02_JPRB, &
+ & 0.452609E-02_JPRB, 0.408593E-02_JPRB, 0.368857E-02_JPRB, 0.332986E-02_JPRB, 0.300603E-02_JPRB /)  
+SELFREF(:,16) = (/ &
+ & 0.760689E-02_JPRB, 0.709755E-02_JPRB, 0.662232E-02_JPRB, 0.617891E-02_JPRB, 0.576519E-02_JPRB, &
+ & 0.537917E-02_JPRB, 0.501899E-02_JPRB, 0.468293E-02_JPRB, 0.436938E-02_JPRB, 0.407682E-02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB16:PART17',1,ZHOOK_HANDLE)
+END SUBROUTINE PART17
+
+
+END SUBROUTINE SRTM_KGB16
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb16.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb16.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb16.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_KGB16
+END SUBROUTINE SRTM_KGB16
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb17.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb17.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb17.F90	(revision 1989)
@@ -0,0 +1,11280 @@
+!OCL SCALAR
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif 
+!pgi$r opt=0
+SUBROUTINE SRTM_KGB17
+
+!     Originally by J.Delamere, Atmospheric & Environmental Research.
+!     Revision: 2.4
+!     BAND 17:  3250-4000 cm-1 (low - H2O,CO2; high - H2O, CO2)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     R. Elkhatib 12-10-2005 Split for faster and more robust compilation.
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOESRTA17, ONLY : KA, KB, SELFREF, FORREF, SFLUXREF, RAYL, STRRAT &
+ & , LAYREFFR  
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+
+! KURUCZ
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17',0,ZHOOK_HANDLE)
+
+CALL PART1
+CALL PART2
+CALL PART3
+CALL PART4
+CALL PART5
+CALL PART6
+CALL PART7
+CALL PART8
+CALL PART9
+CALL PART10
+CALL PART11
+CALL PART12
+CALL PART13
+CALL PART14
+CALL PART15
+CALL PART16
+CALL PART17
+CALL PART18
+CALL PART19
+CALL PART20
+CALL PART21
+CALL PART22
+CALL PART23
+CALL PART24
+CALL PART25
+CALL PART26
+CALL PART27
+CALL PART28
+CALL PART29
+CALL PART30
+CALL PART31
+CALL PART32
+CALL PART33
+CALL PART34
+CALL PART35
+CALL PART36
+CALL PART37
+CALL PART38
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17',1,ZHOOK_HANDLE)
+
+!     -----------------------------------------------------------------
+
+CONTAINS
+
+
+SUBROUTINE PART1
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART1',0,ZHOOK_HANDLE)
+
+
+SFLUXREF(:,1) = (/ &
+ & 3.15613_JPRB  ,  3.03449_JPRB  ,  2.92069_JPRB  ,  2.63874_JPRB   , &
+ & 2.34581_JPRB  ,  2.06999_JPRB  ,  1.70906_JPRB  ,  1.29085_JPRB   , &
+ & 0.874851_JPRB ,  0.0955392_JPRB,  0.0787813_JPRB,  0.0621951_JPRB , &
+ & 0.0459076_JPRB,  0.0294129_JPRB,  0.0110387_JPRB,  0.00159668_JPRB /)  
+  
+SFLUXREF(:,2) = (/ &
+ & 2.83147_JPRB  ,  2.95919_JPRB  ,  2.96674_JPRB  ,  2.77677_JPRB   , &
+ & 2.46826_JPRB  ,  2.11481_JPRB  ,  1.73243_JPRB  ,  1.30279_JPRB   , &
+ & 0.882714_JPRB ,  0.0962350_JPRB,  0.0802122_JPRB,  0.0636194_JPRB , &
+ & 0.0472620_JPRB,  0.0299051_JPRB,  0.0110785_JPRB,  0.00159668_JPRB /)  
+  
+SFLUXREF(:,3) = (/ &
+ & 2.82300_JPRB  ,  2.94845_JPRB  ,  2.95887_JPRB  ,  2.77593_JPRB   , &
+ & 2.47096_JPRB  ,  2.12596_JPRB  ,  1.73847_JPRB  ,  1.30796_JPRB   , &
+ & 0.884395_JPRB ,  0.0966936_JPRB,  0.0801996_JPRB,  0.0640199_JPRB , &
+ & 0.0472803_JPRB,  0.0300515_JPRB,  0.0112366_JPRB,  0.00160814_JPRB /)  
+  
+SFLUXREF(:,4) = (/ &
+ & 2.81715_JPRB  ,  2.93789_JPRB  ,  2.95091_JPRB  ,  2.77046_JPRB   , &
+ & 2.47716_JPRB  ,  2.13591_JPRB  ,  1.74365_JPRB  ,  1.31277_JPRB   , &
+ & 0.887443_JPRB ,  0.0967016_JPRB,  0.0803391_JPRB,  0.0642442_JPRB , &
+ & 0.0472909_JPRB,  0.0300720_JPRB,  0.0114817_JPRB,  0.00161875_JPRB /)  
+  
+SFLUXREF(:,5) = (/ &
+ & 2.82335_JPRB  ,  2.93168_JPRB  ,  2.91455_JPRB  ,  2.75213_JPRB   , &
+ & 2.49168_JPRB  ,  2.14408_JPRB  ,  1.75726_JPRB  ,  1.32401_JPRB   , &
+ & 0.893644_JPRB ,  0.0969523_JPRB,  0.0805197_JPRB,  0.0639936_JPRB , &
+ & 0.0475099_JPRB,  0.0305667_JPRB,  0.0115372_JPRB,  0.00161875_JPRB /)  
+     
+!     Rayleigh extinction coefficient at v = 3625 cm-1.
+RAYL = 6.86E-10_JPRB
+
+STRRAT = 0.364641_JPRB
+
+LAYREFFR = 30
+
+!     ------------------------------------------------------------------
+
+!     The array KA contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels> ~100mb, temperatures, and binary
+!     species parameters (see taumol.f for definition).  The first 
+!     index in the array, JS, runs from 1 to 9, and corresponds to 
+!     different values of the binary species parameter.  For instance, 
+!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, 
+!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index
+!     in the array, JT, which runs from 1 to 5, corresponds to different
+!     temperatures.  More specifically, JT = 3 means that the data are for
+!     the reference temperature TREF for this  pressure level, JT = 2 refers
+!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the JPth reference pressure level (see taumol.f for these levels
+!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates
+!     which g-interval the absorption coefficients are for.
+!     -----------------------------------------------------------------
+
+KA(:, 1, 1, 1) = (/ &
+ & 0.11134E-05_JPRB,0.32092E-03_JPRB,0.55663E-03_JPRB,0.78227E-03_JPRB,0.99421E-03_JPRB, &
+ & 0.12045E-02_JPRB,0.14116E-02_JPRB,0.16069E-02_JPRB,0.19330E-02_JPRB /)  
+KA(:, 2, 1, 1) = (/ &
+ & 0.10544E-05_JPRB,0.35434E-03_JPRB,0.61480E-03_JPRB,0.86424E-03_JPRB,0.11055E-02_JPRB, &
+ & 0.13431E-02_JPRB,0.15754E-02_JPRB,0.17951E-02_JPRB,0.21280E-02_JPRB /)  
+KA(:, 3, 1, 1) = (/ &
+ & 0.98345E-06_JPRB,0.38989E-03_JPRB,0.67747E-03_JPRB,0.95289E-03_JPRB,0.12196E-02_JPRB, &
+ & 0.14864E-02_JPRB,0.17449E-02_JPRB,0.19897E-02_JPRB,0.23564E-02_JPRB /)  
+KA(:, 4, 1, 1) = (/ &
+ & 0.95017E-06_JPRB,0.42582E-03_JPRB,0.74419E-03_JPRB,0.10463E-02_JPRB,0.13424E-02_JPRB, &
+ & 0.16353E-02_JPRB,0.19215E-02_JPRB,0.21939E-02_JPRB,0.25993E-02_JPRB /)  
+KA(:, 5, 1, 1) = (/ &
+ & 0.91870E-06_JPRB,0.46371E-03_JPRB,0.81394E-03_JPRB,0.11464E-02_JPRB,0.14715E-02_JPRB, &
+ & 0.17937E-02_JPRB,0.21072E-02_JPRB,0.24077E-02_JPRB,0.28540E-02_JPRB /)  
+KA(:, 1, 2, 1) = (/ &
+ & 0.94184E-06_JPRB,0.26532E-03_JPRB,0.46157E-03_JPRB,0.63776E-03_JPRB,0.81087E-03_JPRB, &
+ & 0.97728E-03_JPRB,0.11419E-02_JPRB,0.12991E-02_JPRB,0.15121E-02_JPRB /)  
+KA(:, 2, 2, 1) = (/ &
+ & 0.89060E-06_JPRB,0.29417E-03_JPRB,0.50967E-03_JPRB,0.70759E-03_JPRB,0.90203E-03_JPRB, &
+ & 0.10920E-02_JPRB,0.12764E-02_JPRB,0.14544E-02_JPRB,0.16795E-02_JPRB /)  
+KA(:, 3, 2, 1) = (/ &
+ & 0.82720E-06_JPRB,0.32361E-03_JPRB,0.56124E-03_JPRB,0.78299E-03_JPRB,0.99718E-03_JPRB, &
+ & 0.12094E-02_JPRB,0.14172E-02_JPRB,0.16165E-02_JPRB,0.18637E-02_JPRB /)  
+KA(:, 4, 2, 1) = (/ &
+ & 0.78842E-06_JPRB,0.35495E-03_JPRB,0.61684E-03_JPRB,0.86176E-03_JPRB,0.10995E-02_JPRB, &
+ & 0.13345E-02_JPRB,0.15652E-02_JPRB,0.17856E-02_JPRB,0.20621E-02_JPRB /)  
+KA(:, 5, 2, 1) = (/ &
+ & 0.76610E-06_JPRB,0.38728E-03_JPRB,0.67538E-03_JPRB,0.94613E-03_JPRB,0.12082E-02_JPRB, &
+ & 0.14675E-02_JPRB,0.17206E-02_JPRB,0.19640E-02_JPRB,0.22720E-02_JPRB /)  
+KA(:, 1, 3, 1) = (/ &
+ & 0.79663E-06_JPRB,0.21369E-03_JPRB,0.37088E-03_JPRB,0.51222E-03_JPRB,0.64549E-03_JPRB, &
+ & 0.77322E-03_JPRB,0.89939E-03_JPRB,0.10205E-02_JPRB,0.11568E-02_JPRB /)  
+KA(:, 2, 3, 1) = (/ &
+ & 0.75955E-06_JPRB,0.23780E-03_JPRB,0.41153E-03_JPRB,0.56901E-03_JPRB,0.72009E-03_JPRB, &
+ & 0.86735E-03_JPRB,0.10092E-02_JPRB,0.11476E-02_JPRB,0.12913E-02_JPRB /)  
+KA(:, 3, 3, 1) = (/ &
+ & 0.71692E-06_JPRB,0.26276E-03_JPRB,0.45488E-03_JPRB,0.62922E-03_JPRB,0.79836E-03_JPRB, &
+ & 0.96259E-03_JPRB,0.11236E-02_JPRB,0.12796E-02_JPRB,0.14398E-02_JPRB /)  
+KA(:, 4, 3, 1) = (/ &
+ & 0.66348E-06_JPRB,0.28896E-03_JPRB,0.50221E-03_JPRB,0.69411E-03_JPRB,0.88226E-03_JPRB, &
+ & 0.10658E-02_JPRB,0.12456E-02_JPRB,0.14191E-02_JPRB,0.15991E-02_JPRB /)  
+KA(:, 5, 3, 1) = (/ &
+ & 0.64013E-06_JPRB,0.31643E-03_JPRB,0.55166E-03_JPRB,0.76434E-03_JPRB,0.97216E-03_JPRB, &
+ & 0.11745E-02_JPRB,0.13731E-02_JPRB,0.15657E-02_JPRB,0.17671E-02_JPRB /)  
+KA(:, 1, 4, 1) = (/ &
+ & 0.66217E-06_JPRB,0.16966E-03_JPRB,0.29358E-03_JPRB,0.40688E-03_JPRB,0.51114E-03_JPRB, &
+ & 0.60739E-03_JPRB,0.70191E-03_JPRB,0.79446E-03_JPRB,0.88832E-03_JPRB /)  
+KA(:, 2, 4, 1) = (/ &
+ & 0.64111E-06_JPRB,0.18902E-03_JPRB,0.32742E-03_JPRB,0.45364E-03_JPRB,0.57086E-03_JPRB, &
+ & 0.68401E-03_JPRB,0.79116E-03_JPRB,0.89507E-03_JPRB,0.99655E-03_JPRB /)  
+KA(:, 3, 4, 1) = (/ &
+ & 0.60729E-06_JPRB,0.21007E-03_JPRB,0.36354E-03_JPRB,0.50354E-03_JPRB,0.63459E-03_JPRB, &
+ & 0.76113E-03_JPRB,0.88473E-03_JPRB,0.10035E-02_JPRB,0.11163E-02_JPRB /)  
+KA(:, 4, 4, 1) = (/ &
+ & 0.57250E-06_JPRB,0.23203E-03_JPRB,0.40245E-03_JPRB,0.55758E-03_JPRB,0.70295E-03_JPRB, &
+ & 0.84515E-03_JPRB,0.98379E-03_JPRB,0.11165E-02_JPRB,0.12444E-02_JPRB /)  
+KA(:, 5, 4, 1) = (/ &
+ & 0.53524E-06_JPRB,0.25529E-03_JPRB,0.44399E-03_JPRB,0.61564E-03_JPRB,0.77626E-03_JPRB, &
+ & 0.93405E-03_JPRB,0.10892E-02_JPRB,0.12369E-02_JPRB,0.13795E-02_JPRB /)  
+KA(:, 1, 5, 1) = (/ &
+ & 0.55112E-06_JPRB,0.13422E-03_JPRB,0.23166E-03_JPRB,0.32119E-03_JPRB,0.40265E-03_JPRB, &
+ & 0.47812E-03_JPRB,0.54797E-03_JPRB,0.61873E-03_JPRB,0.68912E-03_JPRB /)  
+KA(:, 2, 5, 1) = (/ &
+ & 0.53669E-06_JPRB,0.14990E-03_JPRB,0.25949E-03_JPRB,0.35886E-03_JPRB,0.45239E-03_JPRB, &
+ & 0.53936E-03_JPRB,0.61894E-03_JPRB,0.69718E-03_JPRB,0.77732E-03_JPRB /)  
+KA(:, 3, 5, 1) = (/ &
+ & 0.51495E-06_JPRB,0.16706E-03_JPRB,0.28960E-03_JPRB,0.40020E-03_JPRB,0.50461E-03_JPRB, &
+ & 0.60249E-03_JPRB,0.69677E-03_JPRB,0.78464E-03_JPRB,0.87334E-03_JPRB /)  
+KA(:, 4, 5, 1) = (/ &
+ & 0.48633E-06_JPRB,0.18543E-03_JPRB,0.32159E-03_JPRB,0.44499E-03_JPRB,0.56095E-03_JPRB, &
+ & 0.67055E-03_JPRB,0.77575E-03_JPRB,0.87717E-03_JPRB,0.97694E-03_JPRB /)  
+KA(:, 5, 5, 1) = (/ &
+ & 0.45162E-06_JPRB,0.20472E-03_JPRB,0.35591E-03_JPRB,0.49350E-03_JPRB,0.62163E-03_JPRB, &
+ & 0.74253E-03_JPRB,0.86247E-03_JPRB,0.97518E-03_JPRB,0.10864E-02_JPRB /)  
+KA(:, 1, 6, 1) = (/ &
+ & 0.45055E-06_JPRB,0.10556E-03_JPRB,0.18176E-03_JPRB,0.25137E-03_JPRB,0.31438E-03_JPRB, &
+ & 0.37363E-03_JPRB,0.42759E-03_JPRB,0.47883E-03_JPRB,0.53437E-03_JPRB /)  
+KA(:, 2, 6, 1) = (/ &
+ & 0.44502E-06_JPRB,0.11814E-03_JPRB,0.20383E-03_JPRB,0.28162E-03_JPRB,0.35547E-03_JPRB, &
+ & 0.42261E-03_JPRB,0.48340E-03_JPRB,0.54066E-03_JPRB,0.60352E-03_JPRB /)  
+KA(:, 3, 6, 1) = (/ &
+ & 0.43066E-06_JPRB,0.13217E-03_JPRB,0.22836E-03_JPRB,0.31552E-03_JPRB,0.39762E-03_JPRB, &
+ & 0.47493E-03_JPRB,0.54543E-03_JPRB,0.61066E-03_JPRB,0.68176E-03_JPRB /)  
+KA(:, 4, 6, 1) = (/ &
+ & 0.41116E-06_JPRB,0.14733E-03_JPRB,0.25472E-03_JPRB,0.35204E-03_JPRB,0.44334E-03_JPRB, &
+ & 0.52997E-03_JPRB,0.60966E-03_JPRB,0.68622E-03_JPRB,0.76607E-03_JPRB /)  
+KA(:, 5, 6, 1) = (/ &
+ & 0.38748E-06_JPRB,0.16344E-03_JPRB,0.28281E-03_JPRB,0.39173E-03_JPRB,0.49305E-03_JPRB, &
+ & 0.58880E-03_JPRB,0.67954E-03_JPRB,0.76485E-03_JPRB,0.85401E-03_JPRB /)  
+KA(:, 1, 7, 1) = (/ &
+ & 0.36582E-06_JPRB,0.82958E-04_JPRB,0.14210E-03_JPRB,0.19574E-03_JPRB,0.24440E-03_JPRB, &
+ & 0.29039E-03_JPRB,0.33281E-03_JPRB,0.37177E-03_JPRB,0.42178E-03_JPRB /)  
+KA(:, 2, 7, 1) = (/ &
+ & 0.36707E-06_JPRB,0.92909E-04_JPRB,0.15977E-03_JPRB,0.22034E-03_JPRB,0.27742E-03_JPRB, &
+ & 0.32955E-03_JPRB,0.37727E-03_JPRB,0.41956E-03_JPRB,0.47859E-03_JPRB /)  
+KA(:, 3, 7, 1) = (/ &
+ & 0.35787E-06_JPRB,0.10432E-03_JPRB,0.17930E-03_JPRB,0.24769E-03_JPRB,0.31155E-03_JPRB, &
+ & 0.37242E-03_JPRB,0.42699E-03_JPRB,0.47474E-03_JPRB,0.54083E-03_JPRB /)  
+KA(:, 4, 7, 1) = (/ &
+ & 0.34482E-06_JPRB,0.11685E-03_JPRB,0.20055E-03_JPRB,0.27725E-03_JPRB,0.34866E-03_JPRB, &
+ & 0.41677E-03_JPRB,0.47903E-03_JPRB,0.53518E-03_JPRB,0.60812E-03_JPRB /)  
+KA(:, 5, 7, 1) = (/ &
+ & 0.32598E-06_JPRB,0.13001E-03_JPRB,0.22341E-03_JPRB,0.30900E-03_JPRB,0.38919E-03_JPRB, &
+ & 0.46465E-03_JPRB,0.53467E-03_JPRB,0.59926E-03_JPRB,0.67733E-03_JPRB /)  
+KA(:, 1, 8, 1) = (/ &
+ & 0.29834E-06_JPRB,0.65009E-04_JPRB,0.11183E-03_JPRB,0.15200E-03_JPRB,0.18969E-03_JPRB, &
+ & 0.22517E-03_JPRB,0.25832E-03_JPRB,0.28730E-03_JPRB,0.33955E-03_JPRB /)  
+KA(:, 2, 8, 1) = (/ &
+ & 0.29745E-06_JPRB,0.72872E-04_JPRB,0.12482E-03_JPRB,0.17221E-03_JPRB,0.21583E-03_JPRB, &
+ & 0.25596E-03_JPRB,0.29328E-03_JPRB,0.32520E-03_JPRB,0.38620E-03_JPRB /)  
+KA(:, 3, 8, 1) = (/ &
+ & 0.29421E-06_JPRB,0.82036E-04_JPRB,0.14010E-03_JPRB,0.19344E-03_JPRB,0.24362E-03_JPRB, &
+ & 0.29071E-03_JPRB,0.33308E-03_JPRB,0.36867E-03_JPRB,0.43901E-03_JPRB /)  
+KA(:, 4, 8, 1) = (/ &
+ & 0.28596E-06_JPRB,0.92256E-04_JPRB,0.15738E-03_JPRB,0.21752E-03_JPRB,0.27325E-03_JPRB, &
+ & 0.32643E-03_JPRB,0.37578E-03_JPRB,0.41710E-03_JPRB,0.49358E-03_JPRB /)  
+KA(:, 5, 8, 1) = (/ &
+ & 0.27296E-06_JPRB,0.10320E-03_JPRB,0.17598E-03_JPRB,0.24339E-03_JPRB,0.30591E-03_JPRB, &
+ & 0.36505E-03_JPRB,0.42061E-03_JPRB,0.46872E-03_JPRB,0.54993E-03_JPRB /)  
+KA(:, 1, 9, 1) = (/ &
+ & 0.24259E-06_JPRB,0.50626E-04_JPRB,0.86945E-04_JPRB,0.11778E-03_JPRB,0.14692E-03_JPRB, &
+ & 0.17431E-03_JPRB,0.20057E-03_JPRB,0.22131E-03_JPRB,0.29919E-03_JPRB /)  
+KA(:, 2, 9, 1) = (/ &
+ & 0.24058E-06_JPRB,0.56966E-04_JPRB,0.97467E-04_JPRB,0.13405E-03_JPRB,0.16750E-03_JPRB, &
+ & 0.19814E-03_JPRB,0.22739E-03_JPRB,0.25281E-03_JPRB,0.34022E-03_JPRB /)  
+KA(:, 3, 9, 1) = (/ &
+ & 0.24091E-06_JPRB,0.64324E-04_JPRB,0.10971E-03_JPRB,0.15061E-03_JPRB,0.18996E-03_JPRB, &
+ & 0.22580E-03_JPRB,0.25885E-03_JPRB,0.28694E-03_JPRB,0.38045E-03_JPRB /)  
+KA(:, 4, 9, 1) = (/ &
+ & 0.23550E-06_JPRB,0.72451E-04_JPRB,0.12345E-03_JPRB,0.16991E-03_JPRB,0.21362E-03_JPRB, &
+ & 0.25484E-03_JPRB,0.29341E-03_JPRB,0.32523E-03_JPRB,0.42836E-03_JPRB /)  
+KA(:, 5, 9, 1) = (/ &
+ & 0.22696E-06_JPRB,0.81351E-04_JPRB,0.13839E-03_JPRB,0.19090E-03_JPRB,0.23986E-03_JPRB, &
+ & 0.28608E-03_JPRB,0.32910E-03_JPRB,0.36639E-03_JPRB,0.47925E-03_JPRB /)  
+KA(:, 1,10, 1) = (/ &
+ & 0.19679E-06_JPRB,0.39760E-04_JPRB,0.68052E-04_JPRB,0.92295E-04_JPRB,0.11498E-03_JPRB, &
+ & 0.13656E-03_JPRB,0.15604E-03_JPRB,0.17171E-03_JPRB,0.29679E-03_JPRB /)  
+KA(:, 2,10, 1) = (/ &
+ & 0.19567E-06_JPRB,0.44847E-04_JPRB,0.76829E-04_JPRB,0.10518E-03_JPRB,0.13102E-03_JPRB, &
+ & 0.15509E-03_JPRB,0.17764E-03_JPRB,0.19843E-03_JPRB,0.32863E-03_JPRB /)  
+KA(:, 3,10, 1) = (/ &
+ & 0.19574E-06_JPRB,0.50565E-04_JPRB,0.86466E-04_JPRB,0.11878E-03_JPRB,0.14920E-03_JPRB, &
+ & 0.17698E-03_JPRB,0.20258E-03_JPRB,0.22526E-03_JPRB,0.36959E-03_JPRB /)  
+KA(:, 4,10, 1) = (/ &
+ & 0.19262E-06_JPRB,0.57124E-04_JPRB,0.97546E-04_JPRB,0.13398E-03_JPRB,0.16803E-03_JPRB, &
+ & 0.20046E-03_JPRB,0.23022E-03_JPRB,0.25578E-03_JPRB,0.41543E-03_JPRB /)  
+KA(:, 5,10, 1) = (/ &
+ & 0.18747E-06_JPRB,0.64264E-04_JPRB,0.10971E-03_JPRB,0.15086E-03_JPRB,0.18923E-03_JPRB, &
+ & 0.22565E-03_JPRB,0.25934E-03_JPRB,0.28921E-03_JPRB,0.46463E-03_JPRB /)  
+KA(:, 1,11, 1) = (/ &
+ & 0.16015E-06_JPRB,0.33025E-04_JPRB,0.56562E-04_JPRB,0.76625E-04_JPRB,0.95645E-04_JPRB, &
+ & 0.11358E-03_JPRB,0.12955E-03_JPRB,0.14269E-03_JPRB,0.27545E-03_JPRB /)  
+KA(:, 2,11, 1) = (/ &
+ & 0.15918E-06_JPRB,0.37148E-04_JPRB,0.63775E-04_JPRB,0.87600E-04_JPRB,0.10897E-03_JPRB, &
+ & 0.12893E-03_JPRB,0.14756E-03_JPRB,0.16465E-03_JPRB,0.30799E-03_JPRB /)  
+KA(:, 3,11, 1) = (/ &
+ & 0.15897E-06_JPRB,0.41993E-04_JPRB,0.72040E-04_JPRB,0.98928E-04_JPRB,0.12433E-03_JPRB, &
+ & 0.14733E-03_JPRB,0.16824E-03_JPRB,0.18694E-03_JPRB,0.34340E-03_JPRB /)  
+KA(:, 4,11, 1) = (/ &
+ & 0.15578E-06_JPRB,0.47441E-04_JPRB,0.81426E-04_JPRB,0.11165E-03_JPRB,0.13985E-03_JPRB, &
+ & 0.16673E-03_JPRB,0.19156E-03_JPRB,0.21268E-03_JPRB,0.38176E-03_JPRB /)  
+KA(:, 5,11, 1) = (/ &
+ & 0.15210E-06_JPRB,0.53398E-04_JPRB,0.91657E-04_JPRB,0.12592E-03_JPRB,0.15769E-03_JPRB, &
+ & 0.18781E-03_JPRB,0.21569E-03_JPRB,0.24069E-03_JPRB,0.42228E-03_JPRB /)  
+KA(:, 1,12, 1) = (/ &
+ & 0.13021E-06_JPRB,0.27272E-04_JPRB,0.46832E-04_JPRB,0.63511E-04_JPRB,0.79205E-04_JPRB, &
+ & 0.93949E-04_JPRB,0.10719E-03_JPRB,0.11827E-03_JPRB,0.23944E-03_JPRB /)  
+KA(:, 2,12, 1) = (/ &
+ & 0.12930E-06_JPRB,0.30686E-04_JPRB,0.52925E-04_JPRB,0.72782E-04_JPRB,0.90527E-04_JPRB, &
+ & 0.10708E-03_JPRB,0.12236E-03_JPRB,0.13620E-03_JPRB,0.27121E-03_JPRB /)  
+KA(:, 3,12, 1) = (/ &
+ & 0.12900E-06_JPRB,0.34723E-04_JPRB,0.59867E-04_JPRB,0.82205E-04_JPRB,0.10326E-03_JPRB, &
+ & 0.12238E-03_JPRB,0.13958E-03_JPRB,0.15498E-03_JPRB,0.29930E-03_JPRB /)  
+KA(:, 4,12, 1) = (/ &
+ & 0.12648E-06_JPRB,0.39252E-04_JPRB,0.67618E-04_JPRB,0.92949E-04_JPRB,0.11636E-03_JPRB, &
+ & 0.13835E-03_JPRB,0.15924E-03_JPRB,0.17653E-03_JPRB,0.33050E-03_JPRB /)  
+KA(:, 5,12, 1) = (/ &
+ & 0.12299E-06_JPRB,0.44213E-04_JPRB,0.76244E-04_JPRB,0.10488E-03_JPRB,0.13135E-03_JPRB, &
+ & 0.15601E-03_JPRB,0.17902E-03_JPRB,0.19976E-03_JPRB,0.36579E-03_JPRB /)  
+KA(:, 1,13, 1) = (/ &
+ & 0.10554E-06_JPRB,0.22388E-04_JPRB,0.38597E-04_JPRB,0.52378E-04_JPRB,0.65404E-04_JPRB, &
+ & 0.77567E-04_JPRB,0.88543E-04_JPRB,0.97801E-04_JPRB,0.19599E-03_JPRB /)  
+KA(:, 2,13, 1) = (/ &
+ & 0.10480E-06_JPRB,0.25181E-04_JPRB,0.43670E-04_JPRB,0.60205E-04_JPRB,0.74883E-04_JPRB, &
+ & 0.88605E-04_JPRB,0.10117E-03_JPRB,0.11242E-03_JPRB,0.22146E-03_JPRB /)  
+KA(:, 3,13, 1) = (/ &
+ & 0.10429E-06_JPRB,0.28530E-04_JPRB,0.49422E-04_JPRB,0.68039E-04_JPRB,0.85435E-04_JPRB, &
+ & 0.10136E-03_JPRB,0.11557E-03_JPRB,0.12828E-03_JPRB,0.24447E-03_JPRB /)  
+KA(:, 4,13, 1) = (/ &
+ & 0.10232E-06_JPRB,0.32301E-04_JPRB,0.55797E-04_JPRB,0.76948E-04_JPRB,0.96447E-04_JPRB, &
+ & 0.11462E-03_JPRB,0.13166E-03_JPRB,0.14616E-03_JPRB,0.26999E-03_JPRB /)  
+KA(:, 5,13, 1) = (/ &
+ & 0.99014E-07_JPRB,0.36394E-04_JPRB,0.62994E-04_JPRB,0.86946E-04_JPRB,0.10900E-03_JPRB, &
+ & 0.12937E-03_JPRB,0.14833E-03_JPRB,0.16540E-03_JPRB,0.29916E-03_JPRB /)  
+KA(:, 1, 1, 2) = (/ &
+ & 0.23488E-04_JPRB,0.16684E-02_JPRB,0.29575E-02_JPRB,0.40083E-02_JPRB,0.49953E-02_JPRB, &
+ & 0.59021E-02_JPRB,0.67446E-02_JPRB,0.76008E-02_JPRB,0.87032E-02_JPRB /)  
+KA(:, 2, 1, 2) = (/ &
+ & 0.25156E-04_JPRB,0.18462E-02_JPRB,0.32711E-02_JPRB,0.45008E-02_JPRB,0.56182E-02_JPRB, &
+ & 0.66287E-02_JPRB,0.75909E-02_JPRB,0.85558E-02_JPRB,0.97543E-02_JPRB /)  
+KA(:, 3, 1, 2) = (/ &
+ & 0.27084E-04_JPRB,0.20325E-02_JPRB,0.36034E-02_JPRB,0.49992E-02_JPRB,0.62796E-02_JPRB, &
+ & 0.74134E-02_JPRB,0.84994E-02_JPRB,0.95694E-02_JPRB,0.10847E-01_JPRB /)  
+KA(:, 4, 1, 2) = (/ &
+ & 0.28147E-04_JPRB,0.22347E-02_JPRB,0.39628E-02_JPRB,0.55005E-02_JPRB,0.69453E-02_JPRB, &
+ & 0.82429E-02_JPRB,0.94699E-02_JPRB,0.10660E-01_JPRB,0.11991E-01_JPRB /)  
+KA(:, 5, 1, 2) = (/ &
+ & 0.28719E-04_JPRB,0.24475E-02_JPRB,0.43369E-02_JPRB,0.60360E-02_JPRB,0.76183E-02_JPRB, &
+ & 0.90878E-02_JPRB,0.10493E-01_JPRB,0.11805E-01_JPRB,0.13204E-01_JPRB /)  
+KA(:, 1, 2, 2) = (/ &
+ & 0.20947E-04_JPRB,0.14015E-02_JPRB,0.24728E-02_JPRB,0.33676E-02_JPRB,0.41801E-02_JPRB, &
+ & 0.49244E-02_JPRB,0.55787E-02_JPRB,0.62206E-02_JPRB,0.69741E-02_JPRB /)  
+KA(:, 2, 2, 2) = (/ &
+ & 0.22352E-04_JPRB,0.15535E-02_JPRB,0.27396E-02_JPRB,0.37870E-02_JPRB,0.47121E-02_JPRB, &
+ & 0.55571E-02_JPRB,0.62892E-02_JPRB,0.70132E-02_JPRB,0.78092E-02_JPRB /)  
+KA(:, 3, 2, 2) = (/ &
+ & 0.23882E-04_JPRB,0.17213E-02_JPRB,0.30345E-02_JPRB,0.42020E-02_JPRB,0.52782E-02_JPRB, &
+ & 0.62285E-02_JPRB,0.70556E-02_JPRB,0.78819E-02_JPRB,0.87330E-02_JPRB /)  
+KA(:, 4, 2, 2) = (/ &
+ & 0.24650E-04_JPRB,0.18954E-02_JPRB,0.33384E-02_JPRB,0.46336E-02_JPRB,0.58333E-02_JPRB, &
+ & 0.69311E-02_JPRB,0.78751E-02_JPRB,0.88149E-02_JPRB,0.96911E-02_JPRB /)  
+KA(:, 5, 2, 2) = (/ &
+ & 0.25136E-04_JPRB,0.20806E-02_JPRB,0.36641E-02_JPRB,0.50966E-02_JPRB,0.64193E-02_JPRB, &
+ & 0.76281E-02_JPRB,0.87403E-02_JPRB,0.97943E-02_JPRB,0.10704E-01_JPRB /)  
+KA(:, 1, 3, 2) = (/ &
+ & 0.17720E-04_JPRB,0.11414E-02_JPRB,0.20045E-02_JPRB,0.27288E-02_JPRB,0.33891E-02_JPRB, &
+ & 0.39755E-02_JPRB,0.44967E-02_JPRB,0.49389E-02_JPRB,0.53858E-02_JPRB /)  
+KA(:, 2, 3, 2) = (/ &
+ & 0.19087E-04_JPRB,0.12745E-02_JPRB,0.22336E-02_JPRB,0.30841E-02_JPRB,0.38333E-02_JPRB, &
+ & 0.44983E-02_JPRB,0.50895E-02_JPRB,0.55930E-02_JPRB,0.60666E-02_JPRB /)  
+KA(:, 3, 3, 2) = (/ &
+ & 0.20125E-04_JPRB,0.14178E-02_JPRB,0.24795E-02_JPRB,0.34278E-02_JPRB,0.43106E-02_JPRB, &
+ & 0.50607E-02_JPRB,0.57280E-02_JPRB,0.63092E-02_JPRB,0.68285E-02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART1',1,ZHOOK_HANDLE)
+END SUBROUTINE PART1
+
+
+SUBROUTINE PART2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART2',0,ZHOOK_HANDLE)
+
+
+KA(:, 4, 3, 2) = (/ &
+ & 0.20895E-04_JPRB,0.15666E-02_JPRB,0.27348E-02_JPRB,0.37934E-02_JPRB,0.47769E-02_JPRB, &
+ & 0.56621E-02_JPRB,0.64046E-02_JPRB,0.70864E-02_JPRB,0.76026E-02_JPRB /)  
+KA(:, 5, 3, 2) = (/ &
+ & 0.21508E-04_JPRB,0.17251E-02_JPRB,0.30153E-02_JPRB,0.41809E-02_JPRB,0.52689E-02_JPRB, &
+ & 0.62462E-02_JPRB,0.71125E-02_JPRB,0.79104E-02_JPRB,0.84389E-02_JPRB /)  
+KA(:, 1, 4, 2) = (/ &
+ & 0.14661E-04_JPRB,0.92261E-03_JPRB,0.16088E-02_JPRB,0.21788E-02_JPRB,0.26956E-02_JPRB, &
+ & 0.31612E-02_JPRB,0.35626E-02_JPRB,0.38878E-02_JPRB,0.41525E-02_JPRB /)  
+KA(:, 2, 4, 2) = (/ &
+ & 0.15607E-04_JPRB,0.10329E-02_JPRB,0.17973E-02_JPRB,0.24735E-02_JPRB,0.30696E-02_JPRB, &
+ & 0.35953E-02_JPRB,0.40511E-02_JPRB,0.44162E-02_JPRB,0.46990E-02_JPRB /)  
+KA(:, 3, 4, 2) = (/ &
+ & 0.16559E-04_JPRB,0.11550E-02_JPRB,0.20019E-02_JPRB,0.27577E-02_JPRB,0.34625E-02_JPRB, &
+ & 0.40662E-02_JPRB,0.45831E-02_JPRB,0.49995E-02_JPRB,0.53073E-02_JPRB /)  
+KA(:, 4, 4, 2) = (/ &
+ & 0.17263E-04_JPRB,0.12794E-02_JPRB,0.22184E-02_JPRB,0.30614E-02_JPRB,0.38510E-02_JPRB, &
+ & 0.45664E-02_JPRB,0.51532E-02_JPRB,0.56290E-02_JPRB,0.59436E-02_JPRB /)  
+KA(:, 5, 4, 2) = (/ &
+ & 0.17895E-04_JPRB,0.14130E-02_JPRB,0.24526E-02_JPRB,0.33805E-02_JPRB,0.42622E-02_JPRB, &
+ & 0.50556E-02_JPRB,0.57489E-02_JPRB,0.63094E-02_JPRB,0.66256E-02_JPRB /)  
+KA(:, 1, 5, 2) = (/ &
+ & 0.11885E-04_JPRB,0.74888E-03_JPRB,0.12826E-02_JPRB,0.17258E-02_JPRB,0.21346E-02_JPRB, &
+ & 0.24972E-02_JPRB,0.28046E-02_JPRB,0.30606E-02_JPRB,0.32323E-02_JPRB /)  
+KA(:, 2, 5, 2) = (/ &
+ & 0.12452E-04_JPRB,0.84084E-03_JPRB,0.14380E-02_JPRB,0.19698E-02_JPRB,0.24386E-02_JPRB, &
+ & 0.28536E-02_JPRB,0.32075E-02_JPRB,0.34937E-02_JPRB,0.36562E-02_JPRB /)  
+KA(:, 3, 5, 2) = (/ &
+ & 0.13439E-04_JPRB,0.94272E-03_JPRB,0.16065E-02_JPRB,0.22079E-02_JPRB,0.27660E-02_JPRB, &
+ & 0.32389E-02_JPRB,0.36440E-02_JPRB,0.39673E-02_JPRB,0.41393E-02_JPRB /)  
+KA(:, 4, 5, 2) = (/ &
+ & 0.14053E-04_JPRB,0.10473E-02_JPRB,0.17899E-02_JPRB,0.24603E-02_JPRB,0.30861E-02_JPRB, &
+ & 0.36521E-02_JPRB,0.41156E-02_JPRB,0.44825E-02_JPRB,0.46529E-02_JPRB /)  
+KA(:, 5, 5, 2) = (/ &
+ & 0.14586E-04_JPRB,0.11585E-02_JPRB,0.19886E-02_JPRB,0.27257E-02_JPRB,0.34272E-02_JPRB, &
+ & 0.40599E-02_JPRB,0.46115E-02_JPRB,0.50286E-02_JPRB,0.52085E-02_JPRB /)  
+KA(:, 1, 6, 2) = (/ &
+ & 0.94872E-05_JPRB,0.59793E-03_JPRB,0.10210E-02_JPRB,0.13572E-02_JPRB,0.16716E-02_JPRB, &
+ & 0.19512E-02_JPRB,0.21890E-02_JPRB,0.23827E-02_JPRB,0.25347E-02_JPRB /)  
+KA(:, 2, 6, 2) = (/ &
+ & 0.10060E-04_JPRB,0.67400E-03_JPRB,0.11432E-02_JPRB,0.15564E-02_JPRB,0.19188E-02_JPRB, &
+ & 0.22389E-02_JPRB,0.25161E-02_JPRB,0.27308E-02_JPRB,0.28770E-02_JPRB /)  
+KA(:, 3, 6, 2) = (/ &
+ & 0.10743E-04_JPRB,0.75948E-03_JPRB,0.12806E-02_JPRB,0.17551E-02_JPRB,0.21862E-02_JPRB, &
+ & 0.25545E-02_JPRB,0.28729E-02_JPRB,0.31149E-02_JPRB,0.32716E-02_JPRB /)  
+KA(:, 4, 6, 2) = (/ &
+ & 0.11322E-04_JPRB,0.85134E-03_JPRB,0.14320E-02_JPRB,0.19630E-02_JPRB,0.24514E-02_JPRB, &
+ & 0.28930E-02_JPRB,0.32578E-02_JPRB,0.35375E-02_JPRB,0.36912E-02_JPRB /)  
+KA(:, 5, 6, 2) = (/ &
+ & 0.11755E-04_JPRB,0.94611E-03_JPRB,0.15986E-02_JPRB,0.21804E-02_JPRB,0.27291E-02_JPRB, &
+ & 0.32306E-02_JPRB,0.36695E-02_JPRB,0.39913E-02_JPRB,0.41439E-02_JPRB /)  
+KA(:, 1, 7, 2) = (/ &
+ & 0.75931E-05_JPRB,0.47130E-03_JPRB,0.81211E-03_JPRB,0.10658E-02_JPRB,0.13004E-02_JPRB, &
+ & 0.15175E-02_JPRB,0.17002E-02_JPRB,0.18473E-02_JPRB,0.19861E-02_JPRB /)  
+KA(:, 2, 7, 2) = (/ &
+ & 0.80724E-05_JPRB,0.53358E-03_JPRB,0.91163E-03_JPRB,0.12261E-02_JPRB,0.15014E-02_JPRB, &
+ & 0.17483E-02_JPRB,0.19612E-02_JPRB,0.21201E-02_JPRB,0.22591E-02_JPRB /)  
+KA(:, 3, 7, 2) = (/ &
+ & 0.84404E-05_JPRB,0.60517E-03_JPRB,0.10236E-02_JPRB,0.13887E-02_JPRB,0.17204E-02_JPRB, &
+ & 0.20031E-02_JPRB,0.22497E-02_JPRB,0.24321E-02_JPRB,0.25823E-02_JPRB /)  
+KA(:, 4, 7, 2) = (/ &
+ & 0.90511E-05_JPRB,0.68037E-03_JPRB,0.11475E-02_JPRB,0.15596E-02_JPRB,0.19402E-02_JPRB, &
+ & 0.22789E-02_JPRB,0.25633E-02_JPRB,0.27753E-02_JPRB,0.29247E-02_JPRB /)  
+KA(:, 5, 7, 2) = (/ &
+ & 0.94405E-05_JPRB,0.76103E-03_JPRB,0.12836E-02_JPRB,0.17422E-02_JPRB,0.21698E-02_JPRB, &
+ & 0.25585E-02_JPRB,0.28989E-02_JPRB,0.31444E-02_JPRB,0.33016E-02_JPRB /)  
+KA(:, 1, 8, 2) = (/ &
+ & 0.58080E-05_JPRB,0.36782E-03_JPRB,0.63516E-03_JPRB,0.83799E-03_JPRB,0.10119E-02_JPRB, &
+ & 0.11754E-02_JPRB,0.13161E-02_JPRB,0.14382E-02_JPRB,0.15837E-02_JPRB /)  
+KA(:, 2, 8, 2) = (/ &
+ & 0.63156E-05_JPRB,0.41909E-03_JPRB,0.71974E-03_JPRB,0.96952E-03_JPRB,0.11711E-02_JPRB, &
+ & 0.13617E-02_JPRB,0.15234E-02_JPRB,0.16441E-02_JPRB,0.18118E-02_JPRB /)  
+KA(:, 3, 8, 2) = (/ &
+ & 0.66776E-05_JPRB,0.47829E-03_JPRB,0.81150E-03_JPRB,0.11056E-02_JPRB,0.13493E-02_JPRB, &
+ & 0.15646E-02_JPRB,0.17524E-02_JPRB,0.18937E-02_JPRB,0.20698E-02_JPRB /)  
+KA(:, 4, 8, 2) = (/ &
+ & 0.70582E-05_JPRB,0.54017E-03_JPRB,0.91330E-03_JPRB,0.12434E-02_JPRB,0.15411E-02_JPRB, &
+ & 0.17884E-02_JPRB,0.20057E-02_JPRB,0.21704E-02_JPRB,0.23548E-02_JPRB /)  
+KA(:, 5, 8, 2) = (/ &
+ & 0.74902E-05_JPRB,0.60717E-03_JPRB,0.10267E-02_JPRB,0.13908E-02_JPRB,0.17231E-02_JPRB, &
+ & 0.20285E-02_JPRB,0.22810E-02_JPRB,0.24710E-02_JPRB,0.26631E-02_JPRB /)  
+KA(:, 1, 9, 2) = (/ &
+ & 0.45061E-05_JPRB,0.28626E-03_JPRB,0.49448E-03_JPRB,0.65317E-03_JPRB,0.79081E-03_JPRB, &
+ & 0.91066E-03_JPRB,0.10182E-02_JPRB,0.11107E-02_JPRB,0.14592E-02_JPRB /)  
+KA(:, 2, 9, 2) = (/ &
+ & 0.49392E-05_JPRB,0.32734E-03_JPRB,0.56558E-03_JPRB,0.76077E-03_JPRB,0.91846E-03_JPRB, &
+ & 0.10578E-02_JPRB,0.11776E-02_JPRB,0.12720E-02_JPRB,0.16778E-02_JPRB /)  
+KA(:, 3, 9, 2) = (/ &
+ & 0.52580E-05_JPRB,0.37522E-03_JPRB,0.63845E-03_JPRB,0.87805E-03_JPRB,0.10619E-02_JPRB, &
+ & 0.12194E-02_JPRB,0.13606E-02_JPRB,0.14680E-02_JPRB,0.19259E-02_JPRB /)  
+KA(:, 4, 9, 2) = (/ &
+ & 0.54991E-05_JPRB,0.42659E-03_JPRB,0.72103E-03_JPRB,0.98756E-03_JPRB,0.12163E-02_JPRB, &
+ & 0.14007E-02_JPRB,0.15647E-02_JPRB,0.16900E-02_JPRB,0.21772E-02_JPRB /)  
+KA(:, 5, 9, 2) = (/ &
+ & 0.58769E-05_JPRB,0.48199E-03_JPRB,0.81466E-03_JPRB,0.11072E-02_JPRB,0.13684E-02_JPRB, &
+ & 0.15984E-02_JPRB,0.17887E-02_JPRB,0.19333E-02_JPRB,0.24331E-02_JPRB /)  
+KA(:, 1,10, 2) = (/ &
+ & 0.34154E-05_JPRB,0.22534E-03_JPRB,0.38788E-03_JPRB,0.51113E-03_JPRB,0.62194E-03_JPRB, &
+ & 0.71432E-03_JPRB,0.79743E-03_JPRB,0.86289E-03_JPRB,0.14758E-02_JPRB /)  
+KA(:, 2,10, 2) = (/ &
+ & 0.38085E-05_JPRB,0.25832E-03_JPRB,0.44748E-03_JPRB,0.59835E-03_JPRB,0.72514E-03_JPRB, &
+ & 0.83284E-03_JPRB,0.91941E-03_JPRB,0.99583E-03_JPRB,0.17358E-02_JPRB /)  
+KA(:, 3,10, 2) = (/ &
+ & 0.41578E-05_JPRB,0.29655E-03_JPRB,0.50553E-03_JPRB,0.69511E-03_JPRB,0.84107E-03_JPRB, &
+ & 0.96374E-03_JPRB,0.10666E-02_JPRB,0.11478E-02_JPRB,0.19625E-02_JPRB /)  
+KA(:, 4,10, 2) = (/ &
+ & 0.43917E-05_JPRB,0.33908E-03_JPRB,0.57351E-03_JPRB,0.78640E-03_JPRB,0.96862E-03_JPRB, &
+ & 0.11109E-02_JPRB,0.12309E-02_JPRB,0.13266E-02_JPRB,0.22103E-02_JPRB /)  
+KA(:, 5,10, 2) = (/ &
+ & 0.45446E-05_JPRB,0.38548E-03_JPRB,0.64883E-03_JPRB,0.88401E-03_JPRB,0.10952E-02_JPRB, &
+ & 0.12706E-02_JPRB,0.14136E-02_JPRB,0.15239E-02_JPRB,0.24754E-02_JPRB /)  
+KA(:, 1,11, 2) = (/ &
+ & 0.27604E-05_JPRB,0.18848E-03_JPRB,0.32532E-03_JPRB,0.42949E-03_JPRB,0.52350E-03_JPRB, &
+ & 0.60084E-03_JPRB,0.66640E-03_JPRB,0.72070E-03_JPRB,0.13692E-02_JPRB /)  
+KA(:, 2,11, 2) = (/ &
+ & 0.30908E-05_JPRB,0.21679E-03_JPRB,0.37259E-03_JPRB,0.50366E-03_JPRB,0.61074E-03_JPRB, &
+ & 0.70158E-03_JPRB,0.77271E-03_JPRB,0.83037E-03_JPRB,0.15689E-02_JPRB /)  
+KA(:, 3,11, 2) = (/ &
+ & 0.33674E-05_JPRB,0.24965E-03_JPRB,0.42244E-03_JPRB,0.58353E-03_JPRB,0.70923E-03_JPRB, &
+ & 0.81330E-03_JPRB,0.89750E-03_JPRB,0.96131E-03_JPRB,0.17971E-02_JPRB /)  
+KA(:, 4,11, 2) = (/ &
+ & 0.35568E-05_JPRB,0.28602E-03_JPRB,0.48044E-03_JPRB,0.65868E-03_JPRB,0.81816E-03_JPRB, &
+ & 0.93857E-03_JPRB,0.10357E-02_JPRB,0.11119E-02_JPRB,0.20509E-02_JPRB /)  
+KA(:, 5,11, 2) = (/ &
+ & 0.36921E-05_JPRB,0.32484E-03_JPRB,0.54623E-03_JPRB,0.74475E-03_JPRB,0.92307E-03_JPRB, &
+ & 0.10758E-02_JPRB,0.11895E-02_JPRB,0.12777E-02_JPRB,0.23253E-02_JPRB /)  
+KA(:, 1,12, 2) = (/ &
+ & 0.22272E-05_JPRB,0.15807E-03_JPRB,0.27163E-03_JPRB,0.35935E-03_JPRB,0.43781E-03_JPRB, &
+ & 0.50321E-03_JPRB,0.55776E-03_JPRB,0.60046E-03_JPRB,0.11852E-02_JPRB /)  
+KA(:, 2,12, 2) = (/ &
+ & 0.24898E-05_JPRB,0.18201E-03_JPRB,0.31004E-03_JPRB,0.42206E-03_JPRB,0.51226E-03_JPRB, &
+ & 0.58824E-03_JPRB,0.64919E-03_JPRB,0.69291E-03_JPRB,0.13623E-02_JPRB /)  
+KA(:, 3,12, 2) = (/ &
+ & 0.27021E-05_JPRB,0.20958E-03_JPRB,0.35322E-03_JPRB,0.48676E-03_JPRB,0.59587E-03_JPRB, &
+ & 0.68364E-03_JPRB,0.75527E-03_JPRB,0.80436E-03_JPRB,0.15654E-02_JPRB /)  
+KA(:, 4,12, 2) = (/ &
+ & 0.28526E-05_JPRB,0.24038E-03_JPRB,0.40262E-03_JPRB,0.55096E-03_JPRB,0.68671E-03_JPRB, &
+ & 0.79103E-03_JPRB,0.87211E-03_JPRB,0.93124E-03_JPRB,0.17898E-02_JPRB /)  
+KA(:, 5,12, 2) = (/ &
+ & 0.29899E-05_JPRB,0.27289E-03_JPRB,0.45904E-03_JPRB,0.62448E-03_JPRB,0.77496E-03_JPRB, &
+ & 0.90212E-03_JPRB,0.10018E-02_JPRB,0.10706E-02_JPRB,0.20265E-02_JPRB /)  
+KA(:, 1,13, 2) = (/ &
+ & 0.17576E-05_JPRB,0.13151E-03_JPRB,0.22518E-03_JPRB,0.29890E-03_JPRB,0.36398E-03_JPRB, &
+ & 0.41884E-03_JPRB,0.46505E-03_JPRB,0.50086E-03_JPRB,0.97916E-03_JPRB /)  
+KA(:, 2,13, 2) = (/ &
+ & 0.19524E-05_JPRB,0.15189E-03_JPRB,0.25686E-03_JPRB,0.35123E-03_JPRB,0.42723E-03_JPRB, &
+ & 0.49061E-03_JPRB,0.54293E-03_JPRB,0.57815E-03_JPRB,0.11260E-02_JPRB /)  
+KA(:, 3,13, 2) = (/ &
+ & 0.21134E-05_JPRB,0.17558E-03_JPRB,0.29382E-03_JPRB,0.40457E-03_JPRB,0.49777E-03_JPRB, &
+ & 0.57153E-03_JPRB,0.63185E-03_JPRB,0.67213E-03_JPRB,0.12960E-02_JPRB /)  
+KA(:, 4,13, 2) = (/ &
+ & 0.22681E-05_JPRB,0.20106E-03_JPRB,0.33583E-03_JPRB,0.45977E-03_JPRB,0.57094E-03_JPRB, &
+ & 0.66275E-03_JPRB,0.73149E-03_JPRB,0.77799E-03_JPRB,0.14856E-02_JPRB /)  
+KA(:, 5,13, 2) = (/ &
+ & 0.23940E-05_JPRB,0.22853E-03_JPRB,0.38323E-03_JPRB,0.52126E-03_JPRB,0.64684E-03_JPRB, &
+ & 0.75455E-03_JPRB,0.84115E-03_JPRB,0.89575E-03_JPRB,0.16816E-02_JPRB /)  
+KA(:, 1, 1, 3) = (/ &
+ & 0.87154E-04_JPRB,0.70456E-02_JPRB,0.11624E-01_JPRB,0.16007E-01_JPRB,0.20277E-01_JPRB, &
+ & 0.24349E-01_JPRB,0.27902E-01_JPRB,0.30956E-01_JPRB,0.33159E-01_JPRB /)  
+KA(:, 2, 1, 3) = (/ &
+ & 0.92678E-04_JPRB,0.75324E-02_JPRB,0.12552E-01_JPRB,0.17444E-01_JPRB,0.21967E-01_JPRB, &
+ & 0.26250E-01_JPRB,0.30241E-01_JPRB,0.33348E-01_JPRB,0.36164E-01_JPRB /)  
+KA(:, 3, 1, 3) = (/ &
+ & 0.97955E-04_JPRB,0.80153E-02_JPRB,0.13502E-01_JPRB,0.18812E-01_JPRB,0.23862E-01_JPRB, &
+ & 0.28480E-01_JPRB,0.32511E-01_JPRB,0.35713E-01_JPRB,0.38349E-01_JPRB /)  
+KA(:, 4, 1, 3) = (/ &
+ & 0.10404E-03_JPRB,0.84724E-02_JPRB,0.14429E-01_JPRB,0.20136E-01_JPRB,0.25672E-01_JPRB, &
+ & 0.30688E-01_JPRB,0.35011E-01_JPRB,0.38379E-01_JPRB,0.40673E-01_JPRB /)  
+KA(:, 5, 1, 3) = (/ &
+ & 0.11110E-03_JPRB,0.89123E-02_JPRB,0.15343E-01_JPRB,0.21479E-01_JPRB,0.27290E-01_JPRB, &
+ & 0.32751E-01_JPRB,0.37455E-01_JPRB,0.40931E-01_JPRB,0.42463E-01_JPRB /)  
+KA(:, 1, 2, 3) = (/ &
+ & 0.73214E-04_JPRB,0.61410E-02_JPRB,0.10125E-01_JPRB,0.13650E-01_JPRB,0.17158E-01_JPRB, &
+ & 0.20627E-01_JPRB,0.23628E-01_JPRB,0.26251E-01_JPRB,0.27481E-01_JPRB /)  
+KA(:, 2, 2, 3) = (/ &
+ & 0.77936E-04_JPRB,0.65751E-02_JPRB,0.10966E-01_JPRB,0.14877E-01_JPRB,0.18693E-01_JPRB, &
+ & 0.22272E-01_JPRB,0.25630E-01_JPRB,0.28395E-01_JPRB,0.29894E-01_JPRB /)  
+KA(:, 3, 2, 3) = (/ &
+ & 0.83061E-04_JPRB,0.69828E-02_JPRB,0.11774E-01_JPRB,0.16068E-01_JPRB,0.20317E-01_JPRB, &
+ & 0.24244E-01_JPRB,0.27748E-01_JPRB,0.30432E-01_JPRB,0.31851E-01_JPRB /)  
+KA(:, 4, 2, 3) = (/ &
+ & 0.88564E-04_JPRB,0.73985E-02_JPRB,0.12581E-01_JPRB,0.17226E-01_JPRB,0.21842E-01_JPRB, &
+ & 0.26177E-01_JPRB,0.29969E-01_JPRB,0.32748E-01_JPRB,0.33805E-01_JPRB /)  
+KA(:, 5, 2, 3) = (/ &
+ & 0.94933E-04_JPRB,0.77988E-02_JPRB,0.13372E-01_JPRB,0.18367E-01_JPRB,0.23323E-01_JPRB, &
+ & 0.27928E-01_JPRB,0.31964E-01_JPRB,0.35013E-01_JPRB,0.35327E-01_JPRB /)  
+KA(:, 1, 3, 3) = (/ &
+ & 0.60947E-04_JPRB,0.52436E-02_JPRB,0.86174E-02_JPRB,0.11520E-01_JPRB,0.14231E-01_JPRB, &
+ & 0.17027E-01_JPRB,0.19469E-01_JPRB,0.21634E-01_JPRB,0.21981E-01_JPRB /)  
+KA(:, 2, 3, 3) = (/ &
+ & 0.64921E-04_JPRB,0.55975E-02_JPRB,0.93512E-02_JPRB,0.12526E-01_JPRB,0.15516E-01_JPRB, &
+ & 0.18471E-01_JPRB,0.21270E-01_JPRB,0.23512E-01_JPRB,0.24114E-01_JPRB /)  
+KA(:, 3, 3, 3) = (/ &
+ & 0.69521E-04_JPRB,0.59648E-02_JPRB,0.10060E-01_JPRB,0.13582E-01_JPRB,0.16903E-01_JPRB, &
+ & 0.20177E-01_JPRB,0.23055E-01_JPRB,0.25380E-01_JPRB,0.25822E-01_JPRB /)  
+KA(:, 4, 3, 3) = (/ &
+ & 0.74348E-04_JPRB,0.63104E-02_JPRB,0.10767E-01_JPRB,0.14599E-01_JPRB,0.18273E-01_JPRB, &
+ & 0.21836E-01_JPRB,0.24984E-01_JPRB,0.27358E-01_JPRB,0.27450E-01_JPRB /)  
+KA(:, 5, 3, 3) = (/ &
+ & 0.79780E-04_JPRB,0.66671E-02_JPRB,0.11458E-01_JPRB,0.15590E-01_JPRB,0.19579E-01_JPRB, &
+ & 0.23358E-01_JPRB,0.26806E-01_JPRB,0.29335E-01_JPRB,0.28786E-01_JPRB /)  
+KA(:, 1, 4, 3) = (/ &
+ & 0.50799E-04_JPRB,0.44148E-02_JPRB,0.72225E-02_JPRB,0.96483E-02_JPRB,0.11767E-01_JPRB, &
+ & 0.13828E-01_JPRB,0.15844E-01_JPRB,0.17588E-01_JPRB,0.17391E-01_JPRB /)  
+KA(:, 2, 4, 3) = (/ &
+ & 0.54227E-04_JPRB,0.47231E-02_JPRB,0.78527E-02_JPRB,0.10493E-01_JPRB,0.12835E-01_JPRB, &
+ & 0.15126E-01_JPRB,0.17466E-01_JPRB,0.19219E-01_JPRB,0.19351E-01_JPRB /)  
+KA(:, 3, 4, 3) = (/ &
+ & 0.58151E-04_JPRB,0.50277E-02_JPRB,0.84823E-02_JPRB,0.11418E-01_JPRB,0.13969E-01_JPRB, &
+ & 0.16576E-01_JPRB,0.18903E-01_JPRB,0.20840E-01_JPRB,0.20853E-01_JPRB /)  
+KA(:, 4, 4, 3) = (/ &
+ & 0.62433E-04_JPRB,0.53372E-02_JPRB,0.90813E-02_JPRB,0.12325E-01_JPRB,0.15163E-01_JPRB, &
+ & 0.17971E-01_JPRB,0.20590E-01_JPRB,0.22529E-01_JPRB,0.22273E-01_JPRB /)  
+KA(:, 5, 4, 3) = (/ &
+ & 0.66852E-04_JPRB,0.56429E-02_JPRB,0.96836E-02_JPRB,0.13189E-01_JPRB,0.16280E-01_JPRB, &
+ & 0.19312E-01_JPRB,0.22136E-01_JPRB,0.24263E-01_JPRB,0.23466E-01_JPRB /)  
+KA(:, 1, 5, 3) = (/ &
+ & 0.42593E-04_JPRB,0.36760E-02_JPRB,0.59913E-02_JPRB,0.79812E-02_JPRB,0.97729E-02_JPRB, &
+ & 0.11265E-01_JPRB,0.12874E-01_JPRB,0.14150E-01_JPRB,0.13651E-01_JPRB /)  
+KA(:, 2, 5, 3) = (/ &
+ & 0.45779E-04_JPRB,0.39344E-02_JPRB,0.65401E-02_JPRB,0.87030E-02_JPRB,0.10650E-01_JPRB, &
+ & 0.12374E-01_JPRB,0.14135E-01_JPRB,0.15529E-01_JPRB,0.15507E-01_JPRB /)  
+KA(:, 3, 5, 3) = (/ &
+ & 0.48868E-04_JPRB,0.42013E-02_JPRB,0.70859E-02_JPRB,0.94912E-02_JPRB,0.11609E-01_JPRB, &
+ & 0.13557E-01_JPRB,0.15381E-01_JPRB,0.16993E-01_JPRB,0.16785E-01_JPRB /)  
+KA(:, 4, 5, 3) = (/ &
+ & 0.52509E-04_JPRB,0.44674E-02_JPRB,0.76022E-02_JPRB,0.10271E-01_JPRB,0.12630E-01_JPRB, &
+ & 0.14736E-01_JPRB,0.16830E-01_JPRB,0.18387E-01_JPRB,0.18040E-01_JPRB /)  
+KA(:, 5, 5, 3) = (/ &
+ & 0.56196E-04_JPRB,0.47381E-02_JPRB,0.81005E-02_JPRB,0.11026E-01_JPRB,0.13586E-01_JPRB, &
+ & 0.15940E-01_JPRB,0.18160E-01_JPRB,0.19920E-01_JPRB,0.19092E-01_JPRB /)  
+KA(:, 1, 6, 3) = (/ &
+ & 0.36112E-04_JPRB,0.30316E-02_JPRB,0.49038E-02_JPRB,0.65325E-02_JPRB,0.79606E-02_JPRB, &
+ & 0.91706E-02_JPRB,0.10285E-01_JPRB,0.11252E-01_JPRB,0.10556E-01_JPRB /)  
+KA(:, 2, 6, 3) = (/ &
+ & 0.38502E-04_JPRB,0.32575E-02_JPRB,0.53855E-02_JPRB,0.71302E-02_JPRB,0.87200E-02_JPRB, &
+ & 0.10138E-01_JPRB,0.11319E-01_JPRB,0.12504E-01_JPRB,0.12109E-01_JPRB /)  
+KA(:, 3, 6, 3) = (/ &
+ & 0.41070E-04_JPRB,0.34869E-02_JPRB,0.58643E-02_JPRB,0.78020E-02_JPRB,0.95232E-02_JPRB, &
+ & 0.11081E-01_JPRB,0.12413E-01_JPRB,0.13700E-01_JPRB,0.13350E-01_JPRB /)  
+KA(:, 4, 6, 3) = (/ &
+ & 0.44034E-04_JPRB,0.37142E-02_JPRB,0.62924E-02_JPRB,0.84867E-02_JPRB,0.10400E-01_JPRB, &
+ & 0.12091E-01_JPRB,0.13614E-01_JPRB,0.14850E-01_JPRB,0.14396E-01_JPRB /)  
+KA(:, 5, 6, 3) = (/ &
+ & 0.47021E-04_JPRB,0.39387E-02_JPRB,0.67171E-02_JPRB,0.91319E-02_JPRB,0.11231E-01_JPRB, &
+ & 0.13129E-01_JPRB,0.14745E-01_JPRB,0.16155E-01_JPRB,0.15392E-01_JPRB /)  
+KA(:, 1, 7, 3) = (/ &
+ & 0.30001E-04_JPRB,0.24884E-02_JPRB,0.39787E-02_JPRB,0.53262E-02_JPRB,0.64254E-02_JPRB, &
+ & 0.74422E-02_JPRB,0.82418E-02_JPRB,0.87651E-02_JPRB,0.83241E-02_JPRB /)  
+KA(:, 2, 7, 3) = (/ &
+ & 0.32067E-04_JPRB,0.26831E-02_JPRB,0.43873E-02_JPRB,0.58009E-02_JPRB,0.70881E-02_JPRB, &
+ & 0.82303E-02_JPRB,0.91115E-02_JPRB,0.99530E-02_JPRB,0.95843E-02_JPRB /)  
+KA(:, 3, 7, 3) = (/ &
+ & 0.34414E-04_JPRB,0.28762E-02_JPRB,0.47981E-02_JPRB,0.63650E-02_JPRB,0.77555E-02_JPRB, &
+ & 0.90130E-02_JPRB,0.10051E-01_JPRB,0.10944E-01_JPRB,0.10687E-01_JPRB /)  
+KA(:, 4, 7, 3) = (/ &
+ & 0.36543E-04_JPRB,0.30749E-02_JPRB,0.51697E-02_JPRB,0.69549E-02_JPRB,0.84939E-02_JPRB, &
+ & 0.98621E-02_JPRB,0.11012E-01_JPRB,0.11950E-01_JPRB,0.11596E-01_JPRB /)  
+KA(:, 5, 7, 3) = (/ &
+ & 0.38986E-04_JPRB,0.32672E-02_JPRB,0.55268E-02_JPRB,0.74950E-02_JPRB,0.92206E-02_JPRB, &
+ & 0.10750E-01_JPRB,0.11970E-01_JPRB,0.13029E-01_JPRB,0.12461E-01_JPRB /)  
+KA(:, 1, 8, 3) = (/ &
+ & 0.24718E-04_JPRB,0.20304E-02_JPRB,0.32253E-02_JPRB,0.42957E-02_JPRB,0.51621E-02_JPRB, &
+ & 0.59477E-02_JPRB,0.65543E-02_JPRB,0.67901E-02_JPRB,0.66578E-02_JPRB /)  
+KA(:, 2, 8, 3) = (/ &
+ & 0.26226E-04_JPRB,0.22027E-02_JPRB,0.35528E-02_JPRB,0.46844E-02_JPRB,0.57463E-02_JPRB, &
+ & 0.66070E-02_JPRB,0.73566E-02_JPRB,0.79086E-02_JPRB,0.76807E-02_JPRB /)  
+KA(:, 3, 8, 3) = (/ &
+ & 0.28095E-04_JPRB,0.23614E-02_JPRB,0.38960E-02_JPRB,0.51529E-02_JPRB,0.62773E-02_JPRB, &
+ & 0.72919E-02_JPRB,0.81475E-02_JPRB,0.87344E-02_JPRB,0.86509E-02_JPRB /)  
+KA(:, 4, 8, 3) = (/ &
+ & 0.29856E-04_JPRB,0.25346E-02_JPRB,0.42180E-02_JPRB,0.56507E-02_JPRB,0.68867E-02_JPRB, &
+ & 0.79948E-02_JPRB,0.89169E-02_JPRB,0.96226E-02_JPRB,0.94212E-02_JPRB /)  
+KA(:, 5, 8, 3) = (/ &
+ & 0.31432E-04_JPRB,0.26989E-02_JPRB,0.45288E-02_JPRB,0.61158E-02_JPRB,0.75231E-02_JPRB, &
+ & 0.87319E-02_JPRB,0.97447E-02_JPRB,0.10470E-01_JPRB,0.10172E-01_JPRB /)  
+KA(:, 1, 9, 3) = (/ &
+ & 0.20151E-04_JPRB,0.16622E-02_JPRB,0.26102E-02_JPRB,0.34345E-02_JPRB,0.41518E-02_JPRB, &
+ & 0.47356E-02_JPRB,0.51198E-02_JPRB,0.52901E-02_JPRB,0.55608E-02_JPRB /)  
+KA(:, 2, 9, 3) = (/ &
+ & 0.21290E-04_JPRB,0.18112E-02_JPRB,0.28622E-02_JPRB,0.37770E-02_JPRB,0.46098E-02_JPRB, &
+ & 0.52825E-02_JPRB,0.58719E-02_JPRB,0.62115E-02_JPRB,0.64287E-02_JPRB /)  
+KA(:, 3, 9, 3) = (/ &
+ & 0.22604E-04_JPRB,0.19483E-02_JPRB,0.31536E-02_JPRB,0.41418E-02_JPRB,0.50513E-02_JPRB, &
+ & 0.58883E-02_JPRB,0.65199E-02_JPRB,0.70000E-02_JPRB,0.71641E-02_JPRB /)  
+KA(:, 4, 9, 3) = (/ &
+ & 0.24039E-04_JPRB,0.20909E-02_JPRB,0.34321E-02_JPRB,0.45633E-02_JPRB,0.55575E-02_JPRB, &
+ & 0.64453E-02_JPRB,0.71800E-02_JPRB,0.77062E-02_JPRB,0.77821E-02_JPRB /)  
+KA(:, 5, 9, 3) = (/ &
+ & 0.25275E-04_JPRB,0.22325E-02_JPRB,0.36976E-02_JPRB,0.49727E-02_JPRB,0.60945E-02_JPRB, &
+ & 0.70632E-02_JPRB,0.78696E-02_JPRB,0.84048E-02_JPRB,0.84571E-02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART2',1,ZHOOK_HANDLE)
+END SUBROUTINE PART2
+
+
+SUBROUTINE PART3
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART3',0,ZHOOK_HANDLE)
+
+
+KA(:, 1,10, 3) = (/ &
+ & 0.16520E-04_JPRB,0.13579E-02_JPRB,0.21217E-02_JPRB,0.27650E-02_JPRB,0.33209E-02_JPRB, &
+ & 0.37657E-02_JPRB,0.40263E-02_JPRB,0.41632E-02_JPRB,0.59019E-02_JPRB /)  
+KA(:, 2,10, 3) = (/ &
+ & 0.17307E-04_JPRB,0.14868E-02_JPRB,0.23230E-02_JPRB,0.30616E-02_JPRB,0.37000E-02_JPRB, &
+ & 0.42629E-02_JPRB,0.46958E-02_JPRB,0.48956E-02_JPRB,0.64729E-02_JPRB /)  
+KA(:, 3,10, 3) = (/ &
+ & 0.18210E-04_JPRB,0.16086E-02_JPRB,0.25635E-02_JPRB,0.33480E-02_JPRB,0.40827E-02_JPRB, &
+ & 0.47590E-02_JPRB,0.52424E-02_JPRB,0.56088E-02_JPRB,0.71072E-02_JPRB /)  
+KA(:, 4,10, 3) = (/ &
+ & 0.19263E-04_JPRB,0.17308E-02_JPRB,0.28038E-02_JPRB,0.37016E-02_JPRB,0.44933E-02_JPRB, &
+ & 0.52114E-02_JPRB,0.58224E-02_JPRB,0.62053E-02_JPRB,0.76445E-02_JPRB /)  
+KA(:, 5,10, 3) = (/ &
+ & 0.20450E-04_JPRB,0.18514E-02_JPRB,0.30286E-02_JPRB,0.40569E-02_JPRB,0.49417E-02_JPRB, &
+ & 0.57292E-02_JPRB,0.63809E-02_JPRB,0.68162E-02_JPRB,0.81800E-02_JPRB /)  
+KA(:, 1,11, 3) = (/ &
+ & 0.13743E-04_JPRB,0.11544E-02_JPRB,0.18005E-02_JPRB,0.23380E-02_JPRB,0.28127E-02_JPRB, &
+ & 0.32019E-02_JPRB,0.34184E-02_JPRB,0.35137E-02_JPRB,0.55132E-02_JPRB /)  
+KA(:, 2,11, 3) = (/ &
+ & 0.14314E-04_JPRB,0.12648E-02_JPRB,0.19811E-02_JPRB,0.25794E-02_JPRB,0.31283E-02_JPRB, &
+ & 0.35835E-02_JPRB,0.39635E-02_JPRB,0.41524E-02_JPRB,0.60640E-02_JPRB /)  
+KA(:, 3,11, 3) = (/ &
+ & 0.14980E-04_JPRB,0.13667E-02_JPRB,0.21846E-02_JPRB,0.28316E-02_JPRB,0.34390E-02_JPRB, &
+ & 0.40069E-02_JPRB,0.44283E-02_JPRB,0.47282E-02_JPRB,0.65662E-02_JPRB /)  
+KA(:, 4,11, 3) = (/ &
+ & 0.15843E-04_JPRB,0.14691E-02_JPRB,0.23844E-02_JPRB,0.31346E-02_JPRB,0.37915E-02_JPRB, &
+ & 0.43926E-02_JPRB,0.49108E-02_JPRB,0.52431E-02_JPRB,0.70521E-02_JPRB /)  
+KA(:, 5,11, 3) = (/ &
+ & 0.16801E-04_JPRB,0.15709E-02_JPRB,0.25738E-02_JPRB,0.34250E-02_JPRB,0.41781E-02_JPRB, &
+ & 0.48258E-02_JPRB,0.53776E-02_JPRB,0.57400E-02_JPRB,0.74913E-02_JPRB /)  
+KA(:, 1,12, 3) = (/ &
+ & 0.11265E-04_JPRB,0.97473E-03_JPRB,0.15190E-02_JPRB,0.19779E-02_JPRB,0.23708E-02_JPRB, &
+ & 0.27002E-02_JPRB,0.28954E-02_JPRB,0.29689E-02_JPRB,0.49052E-02_JPRB /)  
+KA(:, 2,12, 3) = (/ &
+ & 0.11703E-04_JPRB,0.10660E-02_JPRB,0.16806E-02_JPRB,0.21742E-02_JPRB,0.26370E-02_JPRB, &
+ & 0.30184E-02_JPRB,0.33461E-02_JPRB,0.35081E-02_JPRB,0.53515E-02_JPRB /)  
+KA(:, 3,12, 3) = (/ &
+ & 0.12275E-04_JPRB,0.11524E-02_JPRB,0.18532E-02_JPRB,0.24014E-02_JPRB,0.28932E-02_JPRB, &
+ & 0.33615E-02_JPRB,0.37332E-02_JPRB,0.39759E-02_JPRB,0.57806E-02_JPRB /)  
+KA(:, 4,12, 3) = (/ &
+ & 0.12963E-04_JPRB,0.12405E-02_JPRB,0.20200E-02_JPRB,0.26573E-02_JPRB,0.31978E-02_JPRB, &
+ & 0.36904E-02_JPRB,0.41225E-02_JPRB,0.44151E-02_JPRB,0.61956E-02_JPRB /)  
+KA(:, 5,12, 3) = (/ &
+ & 0.13696E-04_JPRB,0.13266E-02_JPRB,0.21814E-02_JPRB,0.28939E-02_JPRB,0.35284E-02_JPRB, &
+ & 0.40629E-02_JPRB,0.45191E-02_JPRB,0.48283E-02_JPRB,0.65800E-02_JPRB /)  
+KA(:, 1,13, 3) = (/ &
+ & 0.91179E-05_JPRB,0.81531E-03_JPRB,0.12754E-02_JPRB,0.16598E-02_JPRB,0.19900E-02_JPRB, &
+ & 0.22634E-02_JPRB,0.24441E-02_JPRB,0.24984E-02_JPRB,0.40576E-02_JPRB /)  
+KA(:, 2,13, 3) = (/ &
+ & 0.95039E-05_JPRB,0.89093E-03_JPRB,0.14150E-02_JPRB,0.18287E-02_JPRB,0.22143E-02_JPRB, &
+ & 0.25329E-02_JPRB,0.28092E-02_JPRB,0.29546E-02_JPRB,0.44374E-02_JPRB /)  
+KA(:, 3,13, 3) = (/ &
+ & 0.99762E-05_JPRB,0.96494E-03_JPRB,0.15625E-02_JPRB,0.20288E-02_JPRB,0.24319E-02_JPRB, &
+ & 0.28108E-02_JPRB,0.31373E-02_JPRB,0.33177E-02_JPRB,0.48094E-02_JPRB /)  
+KA(:, 4,13, 3) = (/ &
+ & 0.10509E-04_JPRB,0.10398E-02_JPRB,0.16996E-02_JPRB,0.22443E-02_JPRB,0.26925E-02_JPRB, &
+ & 0.30942E-02_JPRB,0.34481E-02_JPRB,0.37003E-02_JPRB,0.51550E-02_JPRB /)  
+KA(:, 5,13, 3) = (/ &
+ & 0.11033E-04_JPRB,0.11134E-02_JPRB,0.18372E-02_JPRB,0.24408E-02_JPRB,0.29682E-02_JPRB, &
+ & 0.34114E-02_JPRB,0.37859E-02_JPRB,0.40424E-02_JPRB,0.54893E-02_JPRB /)  
+KA(:, 1, 1, 4) = (/ &
+ & 0.25564E-03_JPRB,0.23940E-01_JPRB,0.41535E-01_JPRB,0.56276E-01_JPRB,0.68561E-01_JPRB, &
+ & 0.78630E-01_JPRB,0.86993E-01_JPRB,0.91794E-01_JPRB,0.84229E-01_JPRB /)  
+KA(:, 2, 1, 4) = (/ &
+ & 0.29194E-03_JPRB,0.25170E-01_JPRB,0.43659E-01_JPRB,0.59016E-01_JPRB,0.72302E-01_JPRB, &
+ & 0.83167E-01_JPRB,0.91739E-01_JPRB,0.96774E-01_JPRB,0.86838E-01_JPRB /)  
+KA(:, 3, 1, 4) = (/ &
+ & 0.33934E-03_JPRB,0.26430E-01_JPRB,0.45835E-01_JPRB,0.61922E-01_JPRB,0.75614E-01_JPRB, &
+ & 0.87285E-01_JPRB,0.96606E-01_JPRB,0.10156E+00_JPRB,0.90084E-01_JPRB /)  
+KA(:, 4, 1, 4) = (/ &
+ & 0.38871E-03_JPRB,0.27733E-01_JPRB,0.48058E-01_JPRB,0.64973E-01_JPRB,0.79090E-01_JPRB, &
+ & 0.91156E-01_JPRB,0.10084E+00_JPRB,0.10589E+00_JPRB,0.92583E-01_JPRB /)  
+KA(:, 5, 1, 4) = (/ &
+ & 0.44473E-03_JPRB,0.29028E-01_JPRB,0.50287E-01_JPRB,0.68010E-01_JPRB,0.82805E-01_JPRB, &
+ & 0.95193E-01_JPRB,0.10492E+00_JPRB,0.10995E+00_JPRB,0.95419E-01_JPRB /)  
+KA(:, 1, 2, 4) = (/ &
+ & 0.23400E-03_JPRB,0.20753E-01_JPRB,0.35742E-01_JPRB,0.48709E-01_JPRB,0.59548E-01_JPRB, &
+ & 0.68206E-01_JPRB,0.75045E-01_JPRB,0.78915E-01_JPRB,0.70180E-01_JPRB /)  
+KA(:, 2, 2, 4) = (/ &
+ & 0.26775E-03_JPRB,0.21832E-01_JPRB,0.37611E-01_JPRB,0.51156E-01_JPRB,0.62768E-01_JPRB, &
+ & 0.72267E-01_JPRB,0.79422E-01_JPRB,0.83262E-01_JPRB,0.72735E-01_JPRB /)  
+KA(:, 3, 2, 4) = (/ &
+ & 0.30033E-03_JPRB,0.22961E-01_JPRB,0.39618E-01_JPRB,0.53774E-01_JPRB,0.65773E-01_JPRB, &
+ & 0.75819E-01_JPRB,0.83532E-01_JPRB,0.87496E-01_JPRB,0.75459E-01_JPRB /)  
+KA(:, 4, 2, 4) = (/ &
+ & 0.34366E-03_JPRB,0.24116E-01_JPRB,0.41597E-01_JPRB,0.56506E-01_JPRB,0.68944E-01_JPRB, &
+ & 0.79231E-01_JPRB,0.87245E-01_JPRB,0.91336E-01_JPRB,0.77669E-01_JPRB /)  
+KA(:, 5, 2, 4) = (/ &
+ & 0.39179E-03_JPRB,0.25289E-01_JPRB,0.43575E-01_JPRB,0.59282E-01_JPRB,0.72132E-01_JPRB, &
+ & 0.82956E-01_JPRB,0.91038E-01_JPRB,0.94937E-01_JPRB,0.80272E-01_JPRB /)  
+KA(:, 1, 3, 4) = (/ &
+ & 0.20730E-03_JPRB,0.18044E-01_JPRB,0.30227E-01_JPRB,0.41206E-01_JPRB,0.50626E-01_JPRB, &
+ & 0.58095E-01_JPRB,0.63725E-01_JPRB,0.66721E-01_JPRB,0.57780E-01_JPRB /)  
+KA(:, 2, 3, 4) = (/ &
+ & 0.24007E-03_JPRB,0.18972E-01_JPRB,0.31883E-01_JPRB,0.43486E-01_JPRB,0.53572E-01_JPRB, &
+ & 0.61742E-01_JPRB,0.67489E-01_JPRB,0.70552E-01_JPRB,0.60009E-01_JPRB /)  
+KA(:, 3, 3, 4) = (/ &
+ & 0.26931E-03_JPRB,0.19934E-01_JPRB,0.33681E-01_JPRB,0.45775E-01_JPRB,0.56255E-01_JPRB, &
+ & 0.64869E-01_JPRB,0.71254E-01_JPRB,0.74232E-01_JPRB,0.62350E-01_JPRB /)  
+KA(:, 4, 3, 4) = (/ &
+ & 0.30064E-03_JPRB,0.20965E-01_JPRB,0.35448E-01_JPRB,0.48199E-01_JPRB,0.59036E-01_JPRB, &
+ & 0.67921E-01_JPRB,0.74594E-01_JPRB,0.77689E-01_JPRB,0.64410E-01_JPRB /)  
+KA(:, 5, 3, 4) = (/ &
+ & 0.33967E-03_JPRB,0.21972E-01_JPRB,0.37192E-01_JPRB,0.50676E-01_JPRB,0.61884E-01_JPRB, &
+ & 0.71207E-01_JPRB,0.77888E-01_JPRB,0.80947E-01_JPRB,0.66667E-01_JPRB /)  
+KA(:, 1, 4, 4) = (/ &
+ & 0.18201E-03_JPRB,0.15595E-01_JPRB,0.25372E-01_JPRB,0.34431E-01_JPRB,0.42401E-01_JPRB, &
+ & 0.48915E-01_JPRB,0.53613E-01_JPRB,0.55953E-01_JPRB,0.47727E-01_JPRB /)  
+KA(:, 2, 4, 4) = (/ &
+ & 0.20883E-03_JPRB,0.16422E-01_JPRB,0.26851E-01_JPRB,0.36481E-01_JPRB,0.45074E-01_JPRB, &
+ & 0.52078E-01_JPRB,0.56860E-01_JPRB,0.59287E-01_JPRB,0.49553E-01_JPRB /)  
+KA(:, 3, 4, 4) = (/ &
+ & 0.23874E-03_JPRB,0.17285E-01_JPRB,0.28425E-01_JPRB,0.38514E-01_JPRB,0.47542E-01_JPRB, &
+ & 0.54904E-01_JPRB,0.60284E-01_JPRB,0.62561E-01_JPRB,0.51595E-01_JPRB /)  
+KA(:, 4, 4, 4) = (/ &
+ & 0.26707E-03_JPRB,0.18200E-01_JPRB,0.30007E-01_JPRB,0.40613E-01_JPRB,0.49982E-01_JPRB, &
+ & 0.57662E-01_JPRB,0.63231E-01_JPRB,0.65666E-01_JPRB,0.53450E-01_JPRB /)  
+KA(:, 5, 4, 4) = (/ &
+ & 0.30102E-03_JPRB,0.19113E-01_JPRB,0.31552E-01_JPRB,0.42805E-01_JPRB,0.52535E-01_JPRB, &
+ & 0.60559E-01_JPRB,0.66195E-01_JPRB,0.68549E-01_JPRB,0.55415E-01_JPRB /)  
+KA(:, 1, 5, 4) = (/ &
+ & 0.15801E-03_JPRB,0.13295E-01_JPRB,0.21524E-01_JPRB,0.28666E-01_JPRB,0.35142E-01_JPRB, &
+ & 0.40757E-01_JPRB,0.44715E-01_JPRB,0.46740E-01_JPRB,0.39384E-01_JPRB /)  
+KA(:, 2, 5, 4) = (/ &
+ & 0.17994E-03_JPRB,0.14057E-01_JPRB,0.22786E-01_JPRB,0.30487E-01_JPRB,0.37563E-01_JPRB, &
+ & 0.43509E-01_JPRB,0.47676E-01_JPRB,0.49638E-01_JPRB,0.40849E-01_JPRB /)  
+KA(:, 3, 5, 4) = (/ &
+ & 0.20535E-03_JPRB,0.14811E-01_JPRB,0.24116E-01_JPRB,0.32266E-01_JPRB,0.39764E-01_JPRB, &
+ & 0.46122E-01_JPRB,0.50669E-01_JPRB,0.52413E-01_JPRB,0.42683E-01_JPRB /)  
+KA(:, 4, 5, 4) = (/ &
+ & 0.23511E-03_JPRB,0.15598E-01_JPRB,0.25481E-01_JPRB,0.34103E-01_JPRB,0.41924E-01_JPRB, &
+ & 0.48592E-01_JPRB,0.53283E-01_JPRB,0.55235E-01_JPRB,0.44335E-01_JPRB /)  
+KA(:, 5, 5, 4) = (/ &
+ & 0.26640E-03_JPRB,0.16402E-01_JPRB,0.26844E-01_JPRB,0.36000E-01_JPRB,0.44180E-01_JPRB, &
+ & 0.51086E-01_JPRB,0.55918E-01_JPRB,0.57796E-01_JPRB,0.45991E-01_JPRB /)  
+KA(:, 1, 6, 4) = (/ &
+ & 0.13805E-03_JPRB,0.11222E-01_JPRB,0.18125E-01_JPRB,0.23877E-01_JPRB,0.28939E-01_JPRB, &
+ & 0.33506E-01_JPRB,0.36944E-01_JPRB,0.38672E-01_JPRB,0.32335E-01_JPRB /)  
+KA(:, 2, 6, 4) = (/ &
+ & 0.15439E-03_JPRB,0.11883E-01_JPRB,0.19262E-01_JPRB,0.25521E-01_JPRB,0.31068E-01_JPRB, &
+ & 0.35882E-01_JPRB,0.39589E-01_JPRB,0.41132E-01_JPRB,0.33684E-01_JPRB /)  
+KA(:, 3, 6, 4) = (/ &
+ & 0.17561E-03_JPRB,0.12558E-01_JPRB,0.20409E-01_JPRB,0.27033E-01_JPRB,0.33056E-01_JPRB, &
+ & 0.38260E-01_JPRB,0.42155E-01_JPRB,0.43639E-01_JPRB,0.35175E-01_JPRB /)  
+KA(:, 4, 6, 4) = (/ &
+ & 0.19967E-03_JPRB,0.13236E-01_JPRB,0.21628E-01_JPRB,0.28554E-01_JPRB,0.34939E-01_JPRB, &
+ & 0.40459E-01_JPRB,0.44550E-01_JPRB,0.46147E-01_JPRB,0.36643E-01_JPRB /)  
+KA(:, 5, 6, 4) = (/ &
+ & 0.23117E-03_JPRB,0.13936E-01_JPRB,0.22836E-01_JPRB,0.30183E-01_JPRB,0.36909E-01_JPRB, &
+ & 0.42652E-01_JPRB,0.46864E-01_JPRB,0.48440E-01_JPRB,0.37992E-01_JPRB /)  
+KA(:, 1, 7, 4) = (/ &
+ & 0.11987E-03_JPRB,0.93983E-02_JPRB,0.15130E-01_JPRB,0.19808E-01_JPRB,0.23796E-01_JPRB, &
+ & 0.27285E-01_JPRB,0.30176E-01_JPRB,0.31906E-01_JPRB,0.26193E-01_JPRB /)  
+KA(:, 2, 7, 4) = (/ &
+ & 0.13164E-03_JPRB,0.99743E-02_JPRB,0.16118E-01_JPRB,0.21319E-01_JPRB,0.25600E-01_JPRB, &
+ & 0.29404E-01_JPRB,0.32485E-01_JPRB,0.33909E-01_JPRB,0.27439E-01_JPRB /)  
+KA(:, 3, 7, 4) = (/ &
+ & 0.14862E-03_JPRB,0.10559E-01_JPRB,0.17124E-01_JPRB,0.22674E-01_JPRB,0.27373E-01_JPRB, &
+ & 0.31501E-01_JPRB,0.34705E-01_JPRB,0.36112E-01_JPRB,0.28667E-01_JPRB /)  
+KA(:, 4, 7, 4) = (/ &
+ & 0.16941E-03_JPRB,0.11142E-01_JPRB,0.18163E-01_JPRB,0.23992E-01_JPRB,0.29023E-01_JPRB, &
+ & 0.33461E-01_JPRB,0.36882E-01_JPRB,0.38288E-01_JPRB,0.29990E-01_JPRB /)  
+KA(:, 5, 7, 4) = (/ &
+ & 0.19444E-03_JPRB,0.11740E-01_JPRB,0.19231E-01_JPRB,0.25410E-01_JPRB,0.30702E-01_JPRB, &
+ & 0.35380E-01_JPRB,0.38933E-01_JPRB,0.40325E-01_JPRB,0.31163E-01_JPRB /)  
+KA(:, 1, 8, 4) = (/ &
+ & 0.10266E-03_JPRB,0.78132E-02_JPRB,0.12495E-01_JPRB,0.16294E-01_JPRB,0.19552E-01_JPRB, &
+ & 0.22203E-01_JPRB,0.24522E-01_JPRB,0.26158E-01_JPRB,0.21477E-01_JPRB /)  
+KA(:, 2, 8, 4) = (/ &
+ & 0.11308E-03_JPRB,0.82996E-02_JPRB,0.13385E-01_JPRB,0.17650E-01_JPRB,0.21113E-01_JPRB, &
+ & 0.24026E-01_JPRB,0.26424E-01_JPRB,0.27779E-01_JPRB,0.22661E-01_JPRB /)  
+KA(:, 3, 8, 4) = (/ &
+ & 0.12431E-03_JPRB,0.88118E-02_JPRB,0.14254E-01_JPRB,0.18852E-01_JPRB,0.22717E-01_JPRB, &
+ & 0.25822E-01_JPRB,0.28352E-01_JPRB,0.29667E-01_JPRB,0.23674E-01_JPRB /)  
+KA(:, 4, 8, 4) = (/ &
+ & 0.14146E-03_JPRB,0.93080E-02_JPRB,0.15152E-01_JPRB,0.20013E-01_JPRB,0.24158E-01_JPRB, &
+ & 0.27569E-01_JPRB,0.30306E-01_JPRB,0.31495E-01_JPRB,0.24838E-01_JPRB /)  
+KA(:, 5, 8, 4) = (/ &
+ & 0.16275E-03_JPRB,0.98287E-02_JPRB,0.16080E-01_JPRB,0.21227E-01_JPRB,0.25592E-01_JPRB, &
+ & 0.29226E-01_JPRB,0.32075E-01_JPRB,0.33357E-01_JPRB,0.25887E-01_JPRB /)  
+KA(:, 1, 9, 4) = (/ &
+ & 0.85797E-04_JPRB,0.64412E-02_JPRB,0.10231E-01_JPRB,0.13327E-01_JPRB,0.15923E-01_JPRB, &
+ & 0.18103E-01_JPRB,0.19903E-01_JPRB,0.21189E-01_JPRB,0.17975E-01_JPRB /)  
+KA(:, 2, 9, 4) = (/ &
+ & 0.94370E-04_JPRB,0.68514E-02_JPRB,0.11041E-01_JPRB,0.14472E-01_JPRB,0.17298E-01_JPRB, &
+ & 0.19661E-01_JPRB,0.21421E-01_JPRB,0.22631E-01_JPRB,0.18990E-01_JPRB /)  
+KA(:, 3, 9, 4) = (/ &
+ & 0.10603E-03_JPRB,0.72870E-02_JPRB,0.11786E-01_JPRB,0.15570E-01_JPRB,0.18710E-01_JPRB, &
+ & 0.21195E-01_JPRB,0.23092E-01_JPRB,0.24157E-01_JPRB,0.19934E-01_JPRB /)  
+KA(:, 4, 9, 4) = (/ &
+ & 0.11819E-03_JPRB,0.77217E-02_JPRB,0.12559E-01_JPRB,0.16589E-01_JPRB,0.19991E-01_JPRB, &
+ & 0.22738E-01_JPRB,0.24769E-01_JPRB,0.25771E-01_JPRB,0.20946E-01_JPRB /)  
+KA(:, 5, 9, 4) = (/ &
+ & 0.13500E-03_JPRB,0.81624E-02_JPRB,0.13346E-01_JPRB,0.17610E-01_JPRB,0.21227E-01_JPRB, &
+ & 0.24140E-01_JPRB,0.26339E-01_JPRB,0.27388E-01_JPRB,0.21819E-01_JPRB /)  
+KA(:, 1,10, 4) = (/ &
+ & 0.73275E-04_JPRB,0.53147E-02_JPRB,0.83832E-02_JPRB,0.10890E-01_JPRB,0.12998E-01_JPRB, &
+ & 0.14772E-01_JPRB,0.16237E-01_JPRB,0.17165E-01_JPRB,0.15972E-01_JPRB /)  
+KA(:, 2,10, 4) = (/ &
+ & 0.80303E-04_JPRB,0.56594E-02_JPRB,0.90964E-02_JPRB,0.11869E-01_JPRB,0.14181E-01_JPRB, &
+ & 0.16065E-01_JPRB,0.17493E-01_JPRB,0.18447E-01_JPRB,0.17075E-01_JPRB /)  
+KA(:, 3,10, 4) = (/ &
+ & 0.88821E-04_JPRB,0.60286E-02_JPRB,0.97491E-02_JPRB,0.12852E-01_JPRB,0.15387E-01_JPRB, &
+ & 0.17394E-01_JPRB,0.18909E-01_JPRB,0.19708E-01_JPRB,0.18078E-01_JPRB /)  
+KA(:, 4,10, 4) = (/ &
+ & 0.10142E-03_JPRB,0.63962E-02_JPRB,0.10392E-01_JPRB,0.13730E-01_JPRB,0.16522E-01_JPRB, &
+ & 0.18771E-01_JPRB,0.20308E-01_JPRB,0.21096E-01_JPRB,0.19037E-01_JPRB /)  
+KA(:, 5,10, 4) = (/ &
+ & 0.11405E-03_JPRB,0.67754E-02_JPRB,0.11065E-01_JPRB,0.14605E-01_JPRB,0.17581E-01_JPRB, &
+ & 0.19991E-01_JPRB,0.21687E-01_JPRB,0.22458E-01_JPRB,0.19875E-01_JPRB /)  
+KA(:, 1,11, 4) = (/ &
+ & 0.64517E-04_JPRB,0.45135E-02_JPRB,0.71165E-02_JPRB,0.92384E-02_JPRB,0.10998E-01_JPRB, &
+ & 0.12474E-01_JPRB,0.13700E-01_JPRB,0.14388E-01_JPRB,0.14631E-01_JPRB /)  
+KA(:, 2,11, 4) = (/ &
+ & 0.71535E-04_JPRB,0.48070E-02_JPRB,0.77137E-02_JPRB,0.10092E-01_JPRB,0.12023E-01_JPRB, &
+ & 0.13623E-01_JPRB,0.14792E-01_JPRB,0.15449E-01_JPRB,0.15481E-01_JPRB /)  
+KA(:, 3,11, 4) = (/ &
+ & 0.79504E-04_JPRB,0.51199E-02_JPRB,0.82600E-02_JPRB,0.10911E-01_JPRB,0.13076E-01_JPRB, &
+ & 0.14755E-01_JPRB,0.16002E-01_JPRB,0.16546E-01_JPRB,0.16298E-01_JPRB /)  
+KA(:, 4,11, 4) = (/ &
+ & 0.90433E-04_JPRB,0.54351E-02_JPRB,0.88101E-02_JPRB,0.11647E-01_JPRB,0.14018E-01_JPRB, &
+ & 0.15922E-01_JPRB,0.17206E-01_JPRB,0.17715E-01_JPRB,0.16991E-01_JPRB /)  
+KA(:, 5,11, 4) = (/ &
+ & 0.10146E-03_JPRB,0.57596E-02_JPRB,0.93865E-02_JPRB,0.12407E-01_JPRB,0.14922E-01_JPRB, &
+ & 0.16951E-01_JPRB,0.18384E-01_JPRB,0.18893E-01_JPRB,0.17666E-01_JPRB /)  
+KA(:, 1,12, 4) = (/ &
+ & 0.56913E-04_JPRB,0.38361E-02_JPRB,0.60238E-02_JPRB,0.78101E-02_JPRB,0.92943E-02_JPRB, &
+ & 0.10515E-01_JPRB,0.11514E-01_JPRB,0.12051E-01_JPRB,0.12708E-01_JPRB /)  
+KA(:, 2,12, 4) = (/ &
+ & 0.62984E-04_JPRB,0.40886E-02_JPRB,0.65153E-02_JPRB,0.85464E-02_JPRB,0.10168E-01_JPRB, &
+ & 0.11498E-01_JPRB,0.12452E-01_JPRB,0.12938E-01_JPRB,0.13473E-01_JPRB /)  
+KA(:, 3,12, 4) = (/ &
+ & 0.70588E-04_JPRB,0.43561E-02_JPRB,0.69761E-02_JPRB,0.92137E-02_JPRB,0.11068E-01_JPRB, &
+ & 0.12482E-01_JPRB,0.13497E-01_JPRB,0.13892E-01_JPRB,0.14090E-01_JPRB /)  
+KA(:, 4,12, 4) = (/ &
+ & 0.79556E-04_JPRB,0.46222E-02_JPRB,0.74472E-02_JPRB,0.98382E-02_JPRB,0.11852E-01_JPRB, &
+ & 0.13461E-01_JPRB,0.14539E-01_JPRB,0.14868E-01_JPRB,0.14684E-01_JPRB /)  
+KA(:, 5,12, 4) = (/ &
+ & 0.89330E-04_JPRB,0.49037E-02_JPRB,0.79332E-02_JPRB,0.10492E-01_JPRB,0.12613E-01_JPRB, &
+ & 0.14331E-01_JPRB,0.15523E-01_JPRB,0.15867E-01_JPRB,0.15266E-01_JPRB /)  
+KA(:, 1,13, 4) = (/ &
+ & 0.49040E-04_JPRB,0.32470E-02_JPRB,0.50782E-02_JPRB,0.65813E-02_JPRB,0.78254E-02_JPRB, &
+ & 0.88398E-02_JPRB,0.96483E-02_JPRB,0.10090E-01_JPRB,0.10614E-01_JPRB /)  
+KA(:, 2,13, 4) = (/ &
+ & 0.54225E-04_JPRB,0.34616E-02_JPRB,0.54906E-02_JPRB,0.71951E-02_JPRB,0.85711E-02_JPRB, &
+ & 0.96781E-02_JPRB,0.10460E-01_JPRB,0.10840E-01_JPRB,0.11206E-01_JPRB /)  
+KA(:, 3,13, 4) = (/ &
+ & 0.61136E-04_JPRB,0.36878E-02_JPRB,0.58777E-02_JPRB,0.77458E-02_JPRB,0.93183E-02_JPRB, &
+ & 0.10528E-01_JPRB,0.11347E-01_JPRB,0.11684E-01_JPRB,0.11730E-01_JPRB /)  
+KA(:, 4,13, 4) = (/ &
+ & 0.68788E-04_JPRB,0.39213E-02_JPRB,0.62791E-02_JPRB,0.82774E-02_JPRB,0.99761E-02_JPRB, &
+ & 0.11332E-01_JPRB,0.12247E-01_JPRB,0.12495E-01_JPRB,0.12250E-01_JPRB /)  
+KA(:, 5,13, 4) = (/ &
+ & 0.77427E-04_JPRB,0.41640E-02_JPRB,0.66890E-02_JPRB,0.88358E-02_JPRB,0.10624E-01_JPRB, &
+ & 0.12069E-01_JPRB,0.13064E-01_JPRB,0.13341E-01_JPRB,0.12730E-01_JPRB /)  
+KA(:, 1, 1, 5) = (/ &
+ & 0.69098E-02_JPRB,0.84650E-01_JPRB,0.13006E+00_JPRB,0.16652E+00_JPRB,0.19608E+00_JPRB, &
+ & 0.21975E+00_JPRB,0.23496E+00_JPRB,0.23277E+00_JPRB,0.18007E+00_JPRB /)  
+KA(:, 2, 1, 5) = (/ &
+ & 0.78200E-02_JPRB,0.89279E-01_JPRB,0.13630E+00_JPRB,0.17409E+00_JPRB,0.20398E+00_JPRB, &
+ & 0.22718E+00_JPRB,0.24129E+00_JPRB,0.23750E+00_JPRB,0.18438E+00_JPRB /)  
+KA(:, 3, 1, 5) = (/ &
+ & 0.89787E-02_JPRB,0.94428E-01_JPRB,0.14296E+00_JPRB,0.18170E+00_JPRB,0.21205E+00_JPRB, &
+ & 0.23450E+00_JPRB,0.24726E+00_JPRB,0.24172E+00_JPRB,0.18878E+00_JPRB /)  
+KA(:, 4, 1, 5) = (/ &
+ & 0.10426E-01_JPRB,0.10003E+00_JPRB,0.15009E+00_JPRB,0.18943E+00_JPRB,0.22015E+00_JPRB, &
+ & 0.24206E+00_JPRB,0.25341E+00_JPRB,0.24571E+00_JPRB,0.19325E+00_JPRB /)  
+KA(:, 5, 1, 5) = (/ &
+ & 0.12209E-01_JPRB,0.10603E+00_JPRB,0.15781E+00_JPRB,0.19756E+00_JPRB,0.22832E+00_JPRB, &
+ & 0.24963E+00_JPRB,0.25957E+00_JPRB,0.24958E+00_JPRB,0.19748E+00_JPRB /)  
+KA(:, 1, 2, 5) = (/ &
+ & 0.64020E-02_JPRB,0.74597E-01_JPRB,0.11458E+00_JPRB,0.14581E+00_JPRB,0.17103E+00_JPRB, &
+ & 0.19105E+00_JPRB,0.20412E+00_JPRB,0.20133E+00_JPRB,0.15242E+00_JPRB /)  
+KA(:, 2, 2, 5) = (/ &
+ & 0.72586E-02_JPRB,0.78857E-01_JPRB,0.12024E+00_JPRB,0.15257E+00_JPRB,0.17796E+00_JPRB, &
+ & 0.19765E+00_JPRB,0.20972E+00_JPRB,0.20548E+00_JPRB,0.15620E+00_JPRB /)  
+KA(:, 3, 2, 5) = (/ &
+ & 0.82903E-02_JPRB,0.83602E-01_JPRB,0.12623E+00_JPRB,0.15931E+00_JPRB,0.18512E+00_JPRB, &
+ & 0.20423E+00_JPRB,0.21503E+00_JPRB,0.20937E+00_JPRB,0.15993E+00_JPRB /)  
+KA(:, 4, 2, 5) = (/ &
+ & 0.94578E-02_JPRB,0.88668E-01_JPRB,0.13277E+00_JPRB,0.16635E+00_JPRB,0.19233E+00_JPRB, &
+ & 0.21098E+00_JPRB,0.22050E+00_JPRB,0.21294E+00_JPRB,0.16397E+00_JPRB /)  
+KA(:, 5, 2, 5) = (/ &
+ & 0.10865E-01_JPRB,0.94113E-01_JPRB,0.13987E+00_JPRB,0.17375E+00_JPRB,0.19975E+00_JPRB, &
+ & 0.21771E+00_JPRB,0.22592E+00_JPRB,0.21639E+00_JPRB,0.16745E+00_JPRB /)  
+KA(:, 1, 3, 5) = (/ &
+ & 0.56943E-02_JPRB,0.64084E-01_JPRB,0.99294E-01_JPRB,0.12614E+00_JPRB,0.14746E+00_JPRB, &
+ & 0.16414E+00_JPRB,0.17503E+00_JPRB,0.17255E+00_JPRB,0.12738E+00_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART3',1,ZHOOK_HANDLE)
+END SUBROUTINE PART3
+
+
+SUBROUTINE PART4
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART4',0,ZHOOK_HANDLE)
+
+
+KA(:, 2, 3, 5) = (/ &
+ & 0.64702E-02_JPRB,0.67967E-01_JPRB,0.10427E+00_JPRB,0.13197E+00_JPRB,0.15350E+00_JPRB, &
+ & 0.16985E+00_JPRB,0.18008E+00_JPRB,0.17631E+00_JPRB,0.13087E+00_JPRB /)  
+KA(:, 3, 3, 5) = (/ &
+ & 0.74200E-02_JPRB,0.72252E-01_JPRB,0.10956E+00_JPRB,0.13801E+00_JPRB,0.15978E+00_JPRB, &
+ & 0.17567E+00_JPRB,0.18476E+00_JPRB,0.17977E+00_JPRB,0.13421E+00_JPRB /)  
+KA(:, 4, 3, 5) = (/ &
+ & 0.84907E-02_JPRB,0.76772E-01_JPRB,0.11539E+00_JPRB,0.14427E+00_JPRB,0.16615E+00_JPRB, &
+ & 0.18168E+00_JPRB,0.18947E+00_JPRB,0.18300E+00_JPRB,0.13761E+00_JPRB /)  
+KA(:, 5, 3, 5) = (/ &
+ & 0.97078E-02_JPRB,0.81671E-01_JPRB,0.12172E+00_JPRB,0.15082E+00_JPRB,0.17277E+00_JPRB, &
+ & 0.18769E+00_JPRB,0.19427E+00_JPRB,0.18608E+00_JPRB,0.14067E+00_JPRB /)  
+KA(:, 1, 4, 5) = (/ &
+ & 0.48829E-02_JPRB,0.54383E-01_JPRB,0.85075E-01_JPRB,0.10815E+00_JPRB,0.12638E+00_JPRB, &
+ & 0.14020E+00_JPRB,0.14903E+00_JPRB,0.14670E+00_JPRB,0.10614E+00_JPRB /)  
+KA(:, 2, 4, 5) = (/ &
+ & 0.55740E-02_JPRB,0.57779E-01_JPRB,0.89436E-01_JPRB,0.11323E+00_JPRB,0.13160E+00_JPRB, &
+ & 0.14514E+00_JPRB,0.15349E+00_JPRB,0.15027E+00_JPRB,0.10949E+00_JPRB /)  
+KA(:, 3, 4, 5) = (/ &
+ & 0.64015E-02_JPRB,0.61546E-01_JPRB,0.94139E-01_JPRB,0.11850E+00_JPRB,0.13701E+00_JPRB, &
+ & 0.15017E+00_JPRB,0.15757E+00_JPRB,0.15344E+00_JPRB,0.11257E+00_JPRB /)  
+KA(:, 4, 4, 5) = (/ &
+ & 0.73719E-02_JPRB,0.65521E-01_JPRB,0.99232E-01_JPRB,0.12403E+00_JPRB,0.14259E+00_JPRB, &
+ & 0.15541E+00_JPRB,0.16175E+00_JPRB,0.15634E+00_JPRB,0.11557E+00_JPRB /)  
+KA(:, 5, 4, 5) = (/ &
+ & 0.84789E-02_JPRB,0.69810E-01_JPRB,0.10478E+00_JPRB,0.12985E+00_JPRB,0.14840E+00_JPRB, &
+ & 0.16071E+00_JPRB,0.16597E+00_JPRB,0.15910E+00_JPRB,0.11833E+00_JPRB /)  
+KA(:, 1, 5, 5) = (/ &
+ & 0.41357E-02_JPRB,0.45878E-01_JPRB,0.71866E-01_JPRB,0.92130E-01_JPRB,0.10772E+00_JPRB, &
+ & 0.11935E+00_JPRB,0.12627E+00_JPRB,0.12382E+00_JPRB,0.88490E-01_JPRB /)  
+KA(:, 2, 5, 5) = (/ &
+ & 0.47278E-02_JPRB,0.48809E-01_JPRB,0.75724E-01_JPRB,0.96485E-01_JPRB,0.11218E+00_JPRB, &
+ & 0.12363E+00_JPRB,0.13023E+00_JPRB,0.12723E+00_JPRB,0.91646E-01_JPRB /)  
+KA(:, 3, 5, 5) = (/ &
+ & 0.54234E-02_JPRB,0.52108E-01_JPRB,0.79925E-01_JPRB,0.10105E+00_JPRB,0.11684E+00_JPRB, &
+ & 0.12795E+00_JPRB,0.13389E+00_JPRB,0.13024E+00_JPRB,0.94384E-01_JPRB /)  
+KA(:, 4, 5, 5) = (/ &
+ & 0.62672E-02_JPRB,0.55647E-01_JPRB,0.84438E-01_JPRB,0.10591E+00_JPRB,0.12167E+00_JPRB, &
+ & 0.13255E+00_JPRB,0.13759E+00_JPRB,0.13288E+00_JPRB,0.97037E-01_JPRB /)  
+KA(:, 5, 5, 5) = (/ &
+ & 0.72387E-02_JPRB,0.59393E-01_JPRB,0.89326E-01_JPRB,0.11102E+00_JPRB,0.12680E+00_JPRB, &
+ & 0.13723E+00_JPRB,0.14128E+00_JPRB,0.13530E+00_JPRB,0.99585E-01_JPRB /)  
+KA(:, 1, 6, 5) = (/ &
+ & 0.34820E-02_JPRB,0.38455E-01_JPRB,0.60106E-01_JPRB,0.77515E-01_JPRB,0.91143E-01_JPRB, &
+ & 0.10094E+00_JPRB,0.10649E+00_JPRB,0.10403E+00_JPRB,0.73509E-01_JPRB /)  
+KA(:, 2, 6, 5) = (/ &
+ & 0.39507E-02_JPRB,0.40927E-01_JPRB,0.63402E-01_JPRB,0.81240E-01_JPRB,0.94968E-01_JPRB, &
+ & 0.10469E+00_JPRB,0.11001E+00_JPRB,0.10717E+00_JPRB,0.76426E-01_JPRB /)  
+KA(:, 3, 6, 5) = (/ &
+ & 0.45266E-02_JPRB,0.43726E-01_JPRB,0.67041E-01_JPRB,0.85234E-01_JPRB,0.98911E-01_JPRB, &
+ & 0.10845E+00_JPRB,0.11329E+00_JPRB,0.10996E+00_JPRB,0.78861E-01_JPRB /)  
+KA(:, 4, 6, 5) = (/ &
+ & 0.52242E-02_JPRB,0.46807E-01_JPRB,0.70939E-01_JPRB,0.89547E-01_JPRB,0.10312E+00_JPRB, &
+ & 0.11247E+00_JPRB,0.11653E+00_JPRB,0.11237E+00_JPRB,0.81250E-01_JPRB /)  
+KA(:, 5, 6, 5) = (/ &
+ & 0.60449E-02_JPRB,0.50083E-01_JPRB,0.75175E-01_JPRB,0.94041E-01_JPRB,0.10760E+00_JPRB, &
+ & 0.11657E+00_JPRB,0.11980E+00_JPRB,0.11449E+00_JPRB,0.83549E-01_JPRB /)  
+KA(:, 1, 7, 5) = (/ &
+ & 0.28711E-02_JPRB,0.32523E-01_JPRB,0.49971E-01_JPRB,0.64597E-01_JPRB,0.76360E-01_JPRB, &
+ & 0.84918E-01_JPRB,0.89523E-01_JPRB,0.87200E-01_JPRB,0.60618E-01_JPRB /)  
+KA(:, 2, 7, 5) = (/ &
+ & 0.32550E-02_JPRB,0.34614E-01_JPRB,0.52803E-01_JPRB,0.67740E-01_JPRB,0.79713E-01_JPRB, &
+ & 0.88207E-01_JPRB,0.92681E-01_JPRB,0.90060E-01_JPRB,0.63331E-01_JPRB /)  
+KA(:, 3, 7, 5) = (/ &
+ & 0.37263E-02_JPRB,0.36968E-01_JPRB,0.55904E-01_JPRB,0.71153E-01_JPRB,0.83143E-01_JPRB, &
+ & 0.91509E-01_JPRB,0.95607E-01_JPRB,0.92564E-01_JPRB,0.65595E-01_JPRB /)  
+KA(:, 4, 7, 5) = (/ &
+ & 0.42953E-02_JPRB,0.39538E-01_JPRB,0.59281E-01_JPRB,0.74912E-01_JPRB,0.86822E-01_JPRB, &
+ & 0.94956E-01_JPRB,0.98438E-01_JPRB,0.94728E-01_JPRB,0.67680E-01_JPRB /)  
+KA(:, 5, 7, 5) = (/ &
+ & 0.49788E-02_JPRB,0.42264E-01_JPRB,0.62953E-01_JPRB,0.78842E-01_JPRB,0.90742E-01_JPRB, &
+ & 0.98510E-01_JPRB,0.10129E+00_JPRB,0.96641E-01_JPRB,0.69746E-01_JPRB /)  
+KA(:, 1, 8, 5) = (/ &
+ & 0.23480E-02_JPRB,0.27230E-01_JPRB,0.41671E-01_JPRB,0.53565E-01_JPRB,0.63436E-01_JPRB, &
+ & 0.70999E-01_JPRB,0.75020E-01_JPRB,0.72906E-01_JPRB,0.49386E-01_JPRB /)  
+KA(:, 2, 8, 5) = (/ &
+ & 0.26517E-02_JPRB,0.29065E-01_JPRB,0.44017E-01_JPRB,0.56225E-01_JPRB,0.66341E-01_JPRB, &
+ & 0.73935E-01_JPRB,0.77879E-01_JPRB,0.75468E-01_JPRB,0.51750E-01_JPRB /)  
+KA(:, 3, 8, 5) = (/ &
+ & 0.30285E-02_JPRB,0.31112E-01_JPRB,0.46598E-01_JPRB,0.59161E-01_JPRB,0.69302E-01_JPRB, &
+ & 0.76809E-01_JPRB,0.80439E-01_JPRB,0.77729E-01_JPRB,0.53904E-01_JPRB /)  
+KA(:, 4, 8, 5) = (/ &
+ & 0.34816E-02_JPRB,0.33348E-01_JPRB,0.49448E-01_JPRB,0.62380E-01_JPRB,0.72502E-01_JPRB, &
+ & 0.79786E-01_JPRB,0.82887E-01_JPRB,0.79683E-01_JPRB,0.55731E-01_JPRB /)  
+KA(:, 5, 8, 5) = (/ &
+ & 0.40444E-02_JPRB,0.35730E-01_JPRB,0.52545E-01_JPRB,0.65794E-01_JPRB,0.75878E-01_JPRB, &
+ & 0.82889E-01_JPRB,0.85379E-01_JPRB,0.81391E-01_JPRB,0.57509E-01_JPRB /)  
+KA(:, 1, 9, 5) = (/ &
+ & 0.19247E-02_JPRB,0.22630E-01_JPRB,0.34752E-01_JPRB,0.44387E-01_JPRB,0.52455E-01_JPRB, &
+ & 0.58833E-01_JPRB,0.62468E-01_JPRB,0.60719E-01_JPRB,0.41880E-01_JPRB /)  
+KA(:, 2, 9, 5) = (/ &
+ & 0.21557E-02_JPRB,0.24204E-01_JPRB,0.36750E-01_JPRB,0.46636E-01_JPRB,0.54976E-01_JPRB, &
+ & 0.61421E-01_JPRB,0.65052E-01_JPRB,0.62994E-01_JPRB,0.44010E-01_JPRB /)  
+KA(:, 3, 9, 5) = (/ &
+ & 0.24477E-02_JPRB,0.25958E-01_JPRB,0.38981E-01_JPRB,0.49108E-01_JPRB,0.57526E-01_JPRB, &
+ & 0.63907E-01_JPRB,0.67351E-01_JPRB,0.65038E-01_JPRB,0.45929E-01_JPRB /)  
+KA(:, 4, 9, 5) = (/ &
+ & 0.28196E-02_JPRB,0.27882E-01_JPRB,0.41431E-01_JPRB,0.51802E-01_JPRB,0.60249E-01_JPRB, &
+ & 0.66480E-01_JPRB,0.69467E-01_JPRB,0.66788E-01_JPRB,0.47555E-01_JPRB /)  
+KA(:, 5, 9, 5) = (/ &
+ & 0.32654E-02_JPRB,0.29939E-01_JPRB,0.44072E-01_JPRB,0.54714E-01_JPRB,0.63163E-01_JPRB, &
+ & 0.69207E-01_JPRB,0.71600E-01_JPRB,0.68328E-01_JPRB,0.49077E-01_JPRB /)  
+KA(:, 1,10, 5) = (/ &
+ & 0.16200E-02_JPRB,0.18814E-01_JPRB,0.28911E-01_JPRB,0.37025E-01_JPRB,0.43479E-01_JPRB, &
+ & 0.48691E-01_JPRB,0.51767E-01_JPRB,0.50517E-01_JPRB,0.36565E-01_JPRB /)  
+KA(:, 2,10, 5) = (/ &
+ & 0.18031E-02_JPRB,0.20150E-01_JPRB,0.30632E-01_JPRB,0.38967E-01_JPRB,0.45609E-01_JPRB, &
+ & 0.50940E-01_JPRB,0.54046E-01_JPRB,0.52515E-01_JPRB,0.38425E-01_JPRB /)  
+KA(:, 3,10, 5) = (/ &
+ & 0.20232E-02_JPRB,0.21640E-01_JPRB,0.32572E-01_JPRB,0.41079E-01_JPRB,0.47788E-01_JPRB, &
+ & 0.53101E-01_JPRB,0.56114E-01_JPRB,0.54338E-01_JPRB,0.40162E-01_JPRB /)  
+KA(:, 4,10, 5) = (/ &
+ & 0.23038E-02_JPRB,0.23298E-01_JPRB,0.34703E-01_JPRB,0.43393E-01_JPRB,0.50110E-01_JPRB, &
+ & 0.55298E-01_JPRB,0.57982E-01_JPRB,0.55873E-01_JPRB,0.41782E-01_JPRB /)  
+KA(:, 5,10, 5) = (/ &
+ & 0.26649E-02_JPRB,0.25073E-01_JPRB,0.36983E-01_JPRB,0.45868E-01_JPRB,0.52617E-01_JPRB, &
+ & 0.57641E-01_JPRB,0.59833E-01_JPRB,0.57222E-01_JPRB,0.43243E-01_JPRB /)  
+KA(:, 1,11, 5) = (/ &
+ & 0.14241E-02_JPRB,0.16065E-01_JPRB,0.24586E-01_JPRB,0.31465E-01_JPRB,0.36963E-01_JPRB, &
+ & 0.41093E-01_JPRB,0.43617E-01_JPRB,0.42673E-01_JPRB,0.32343E-01_JPRB /)  
+KA(:, 2,11, 5) = (/ &
+ & 0.15878E-02_JPRB,0.17268E-01_JPRB,0.26144E-01_JPRB,0.33169E-01_JPRB,0.38816E-01_JPRB, &
+ & 0.42988E-01_JPRB,0.45546E-01_JPRB,0.44327E-01_JPRB,0.34054E-01_JPRB /)  
+KA(:, 3,11, 5) = (/ &
+ & 0.18003E-02_JPRB,0.18609E-01_JPRB,0.27888E-01_JPRB,0.35066E-01_JPRB,0.40717E-01_JPRB, &
+ & 0.44861E-01_JPRB,0.47277E-01_JPRB,0.45845E-01_JPRB,0.35562E-01_JPRB /)  
+KA(:, 4,11, 5) = (/ &
+ & 0.20513E-02_JPRB,0.20069E-01_JPRB,0.29794E-01_JPRB,0.37147E-01_JPRB,0.42781E-01_JPRB, &
+ & 0.46774E-01_JPRB,0.48869E-01_JPRB,0.47106E-01_JPRB,0.36881E-01_JPRB /)  
+KA(:, 5,11, 5) = (/ &
+ & 0.23610E-02_JPRB,0.21636E-01_JPRB,0.31786E-01_JPRB,0.39341E-01_JPRB,0.44964E-01_JPRB, &
+ & 0.48832E-01_JPRB,0.50478E-01_JPRB,0.48237E-01_JPRB,0.38136E-01_JPRB /)  
+KA(:, 1,12, 5) = (/ &
+ & 0.12367E-02_JPRB,0.13664E-01_JPRB,0.20841E-01_JPRB,0.26619E-01_JPRB,0.31258E-01_JPRB, &
+ & 0.34766E-01_JPRB,0.36665E-01_JPRB,0.35873E-01_JPRB,0.27811E-01_JPRB /)  
+KA(:, 2,12, 5) = (/ &
+ & 0.13898E-02_JPRB,0.14747E-01_JPRB,0.22238E-01_JPRB,0.28134E-01_JPRB,0.32876E-01_JPRB, &
+ & 0.36392E-01_JPRB,0.38286E-01_JPRB,0.37257E-01_JPRB,0.29212E-01_JPRB /)  
+KA(:, 3,12, 5) = (/ &
+ & 0.15822E-02_JPRB,0.15920E-01_JPRB,0.23808E-01_JPRB,0.29830E-01_JPRB,0.34558E-01_JPRB, &
+ & 0.38014E-01_JPRB,0.39728E-01_JPRB,0.38493E-01_JPRB,0.30517E-01_JPRB /)  
+KA(:, 4,12, 5) = (/ &
+ & 0.18117E-02_JPRB,0.17195E-01_JPRB,0.25479E-01_JPRB,0.31664E-01_JPRB,0.36378E-01_JPRB, &
+ & 0.39675E-01_JPRB,0.41098E-01_JPRB,0.39553E-01_JPRB,0.31705E-01_JPRB /)  
+KA(:, 5,12, 5) = (/ &
+ & 0.20996E-02_JPRB,0.18567E-01_JPRB,0.27225E-01_JPRB,0.33571E-01_JPRB,0.38302E-01_JPRB, &
+ & 0.41437E-01_JPRB,0.42501E-01_JPRB,0.40525E-01_JPRB,0.32748E-01_JPRB /)  
+KA(:, 1,13, 5) = (/ &
+ & 0.10606E-02_JPRB,0.11594E-01_JPRB,0.17616E-01_JPRB,0.22456E-01_JPRB,0.26337E-01_JPRB, &
+ & 0.29282E-01_JPRB,0.30831E-01_JPRB,0.30037E-01_JPRB,0.23251E-01_JPRB /)  
+KA(:, 2,13, 5) = (/ &
+ & 0.11975E-02_JPRB,0.12541E-01_JPRB,0.18850E-01_JPRB,0.23795E-01_JPRB,0.27745E-01_JPRB, &
+ & 0.30676E-01_JPRB,0.32191E-01_JPRB,0.31186E-01_JPRB,0.24461E-01_JPRB /)  
+KA(:, 3,13, 5) = (/ &
+ & 0.13686E-02_JPRB,0.13557E-01_JPRB,0.20236E-01_JPRB,0.25287E-01_JPRB,0.29224E-01_JPRB, &
+ & 0.32085E-01_JPRB,0.33411E-01_JPRB,0.32190E-01_JPRB,0.25539E-01_JPRB /)  
+KA(:, 4,13, 5) = (/ &
+ & 0.15787E-02_JPRB,0.14655E-01_JPRB,0.21685E-01_JPRB,0.26887E-01_JPRB,0.30821E-01_JPRB, &
+ & 0.33533E-01_JPRB,0.34581E-01_JPRB,0.33091E-01_JPRB,0.26483E-01_JPRB /)  
+KA(:, 5,13, 5) = (/ &
+ & 0.18422E-02_JPRB,0.15847E-01_JPRB,0.23201E-01_JPRB,0.28535E-01_JPRB,0.32486E-01_JPRB, &
+ & 0.35059E-01_JPRB,0.35791E-01_JPRB,0.33942E-01_JPRB,0.27340E-01_JPRB /)  
+KA(:, 1, 1, 6) = (/ &
+ & 0.11257E+00_JPRB,0.31731E+00_JPRB,0.42139E+00_JPRB,0.49121E+00_JPRB,0.53179E+00_JPRB, &
+ & 0.54416E+00_JPRB,0.52879E+00_JPRB,0.48565E+00_JPRB,0.38185E+00_JPRB /)  
+KA(:, 2, 1, 6) = (/ &
+ & 0.12995E+00_JPRB,0.33757E+00_JPRB,0.44079E+00_JPRB,0.50693E+00_JPRB,0.54374E+00_JPRB, &
+ & 0.55231E+00_JPRB,0.53411E+00_JPRB,0.48973E+00_JPRB,0.38664E+00_JPRB /)  
+KA(:, 3, 1, 6) = (/ &
+ & 0.14899E+00_JPRB,0.35787E+00_JPRB,0.45940E+00_JPRB,0.52235E+00_JPRB,0.55490E+00_JPRB, &
+ & 0.56009E+00_JPRB,0.53945E+00_JPRB,0.49411E+00_JPRB,0.39028E+00_JPRB /)  
+KA(:, 4, 1, 6) = (/ &
+ & 0.16946E+00_JPRB,0.37848E+00_JPRB,0.47747E+00_JPRB,0.53692E+00_JPRB,0.56497E+00_JPRB, &
+ & 0.56760E+00_JPRB,0.54484E+00_JPRB,0.49832E+00_JPRB,0.39391E+00_JPRB /)  
+KA(:, 5, 1, 6) = (/ &
+ & 0.19143E+00_JPRB,0.39915E+00_JPRB,0.49476E+00_JPRB,0.55039E+00_JPRB,0.57468E+00_JPRB, &
+ & 0.57486E+00_JPRB,0.55036E+00_JPRB,0.50307E+00_JPRB,0.39756E+00_JPRB /)  
+KA(:, 1, 2, 6) = (/ &
+ & 0.97091E-01_JPRB,0.28037E+00_JPRB,0.37054E+00_JPRB,0.43162E+00_JPRB,0.46715E+00_JPRB, &
+ & 0.47740E+00_JPRB,0.46327E+00_JPRB,0.42557E+00_JPRB,0.32833E+00_JPRB /)  
+KA(:, 2, 2, 6) = (/ &
+ & 0.11208E+00_JPRB,0.29815E+00_JPRB,0.38764E+00_JPRB,0.44615E+00_JPRB,0.47841E+00_JPRB, &
+ & 0.48513E+00_JPRB,0.46886E+00_JPRB,0.42998E+00_JPRB,0.33260E+00_JPRB /)  
+KA(:, 3, 2, 6) = (/ &
+ & 0.12856E+00_JPRB,0.31599E+00_JPRB,0.40420E+00_JPRB,0.45996E+00_JPRB,0.48848E+00_JPRB, &
+ & 0.49285E+00_JPRB,0.47441E+00_JPRB,0.43431E+00_JPRB,0.33632E+00_JPRB /)  
+KA(:, 4, 2, 6) = (/ &
+ & 0.14648E+00_JPRB,0.33425E+00_JPRB,0.42020E+00_JPRB,0.47262E+00_JPRB,0.49778E+00_JPRB, &
+ & 0.50015E+00_JPRB,0.47996E+00_JPRB,0.43890E+00_JPRB,0.33965E+00_JPRB /)  
+KA(:, 5, 2, 6) = (/ &
+ & 0.16579E+00_JPRB,0.35250E+00_JPRB,0.43554E+00_JPRB,0.48445E+00_JPRB,0.50655E+00_JPRB, &
+ & 0.50702E+00_JPRB,0.48572E+00_JPRB,0.44375E+00_JPRB,0.34330E+00_JPRB /)  
+KA(:, 1, 3, 6) = (/ &
+ & 0.80654E-01_JPRB,0.24334E+00_JPRB,0.32145E+00_JPRB,0.37485E+00_JPRB,0.40615E+00_JPRB, &
+ & 0.41488E+00_JPRB,0.40284E+00_JPRB,0.37005E+00_JPRB,0.27897E+00_JPRB /)  
+KA(:, 2, 3, 6) = (/ &
+ & 0.93334E-01_JPRB,0.25889E+00_JPRB,0.33665E+00_JPRB,0.38799E+00_JPRB,0.41628E+00_JPRB, &
+ & 0.42254E+00_JPRB,0.40845E+00_JPRB,0.37420E+00_JPRB,0.28281E+00_JPRB /)  
+KA(:, 3, 3, 6) = (/ &
+ & 0.10735E+00_JPRB,0.27449E+00_JPRB,0.35143E+00_JPRB,0.40015E+00_JPRB,0.42551E+00_JPRB, &
+ & 0.42981E+00_JPRB,0.41382E+00_JPRB,0.37871E+00_JPRB,0.28619E+00_JPRB /)  
+KA(:, 4, 3, 6) = (/ &
+ & 0.12265E+00_JPRB,0.29043E+00_JPRB,0.36548E+00_JPRB,0.41153E+00_JPRB,0.43393E+00_JPRB, &
+ & 0.43649E+00_JPRB,0.41932E+00_JPRB,0.38340E+00_JPRB,0.28955E+00_JPRB /)  
+KA(:, 5, 3, 6) = (/ &
+ & 0.13925E+00_JPRB,0.30659E+00_JPRB,0.37895E+00_JPRB,0.42211E+00_JPRB,0.44187E+00_JPRB, &
+ & 0.44276E+00_JPRB,0.42490E+00_JPRB,0.38830E+00_JPRB,0.29282E+00_JPRB /)  
+KA(:, 1, 4, 6) = (/ &
+ & 0.65986E-01_JPRB,0.20968E+00_JPRB,0.27746E+00_JPRB,0.32321E+00_JPRB,0.35021E+00_JPRB, &
+ & 0.35817E+00_JPRB,0.34816E+00_JPRB,0.31914E+00_JPRB,0.23714E+00_JPRB /)  
+KA(:, 2, 4, 6) = (/ &
+ & 0.76550E-01_JPRB,0.22318E+00_JPRB,0.29094E+00_JPRB,0.33486E+00_JPRB,0.35941E+00_JPRB, &
+ & 0.36546E+00_JPRB,0.35341E+00_JPRB,0.32318E+00_JPRB,0.24040E+00_JPRB /)  
+KA(:, 3, 4, 6) = (/ &
+ & 0.88349E-01_JPRB,0.23676E+00_JPRB,0.30387E+00_JPRB,0.34562E+00_JPRB,0.36786E+00_JPRB, &
+ & 0.37204E+00_JPRB,0.35871E+00_JPRB,0.32765E+00_JPRB,0.24343E+00_JPRB /)  
+KA(:, 4, 4, 6) = (/ &
+ & 0.10129E+00_JPRB,0.25065E+00_JPRB,0.31610E+00_JPRB,0.35574E+00_JPRB,0.37546E+00_JPRB, &
+ & 0.37811E+00_JPRB,0.36390E+00_JPRB,0.33220E+00_JPRB,0.24649E+00_JPRB /)  
+KA(:, 5, 4, 6) = (/ &
+ & 0.11540E+00_JPRB,0.26489E+00_JPRB,0.32784E+00_JPRB,0.36504E+00_JPRB,0.38250E+00_JPRB, &
+ & 0.38387E+00_JPRB,0.36919E+00_JPRB,0.33697E+00_JPRB,0.24943E+00_JPRB /)  
+KA(:, 1, 5, 6) = (/ &
+ & 0.53393E-01_JPRB,0.18000E+00_JPRB,0.23883E+00_JPRB,0.27751E+00_JPRB,0.30053E+00_JPRB, &
+ & 0.30742E+00_JPRB,0.29898E+00_JPRB,0.27383E+00_JPRB,0.20106E+00_JPRB /)  
+KA(:, 2, 5, 6) = (/ &
+ & 0.62233E-01_JPRB,0.19175E+00_JPRB,0.25050E+00_JPRB,0.28777E+00_JPRB,0.30898E+00_JPRB, &
+ & 0.31400E+00_JPRB,0.30389E+00_JPRB,0.27769E+00_JPRB,0.20390E+00_JPRB /)  
+KA(:, 3, 5, 6) = (/ &
+ & 0.72177E-01_JPRB,0.20364E+00_JPRB,0.26165E+00_JPRB,0.29741E+00_JPRB,0.31640E+00_JPRB, &
+ & 0.31996E+00_JPRB,0.30876E+00_JPRB,0.28174E+00_JPRB,0.20671E+00_JPRB /)  
+KA(:, 4, 5, 6) = (/ &
+ & 0.83134E-01_JPRB,0.21576E+00_JPRB,0.27227E+00_JPRB,0.30617E+00_JPRB,0.32319E+00_JPRB, &
+ & 0.32542E+00_JPRB,0.31353E+00_JPRB,0.28599E+00_JPRB,0.20956E+00_JPRB /)  
+KA(:, 5, 5, 6) = (/ &
+ & 0.95090E-01_JPRB,0.22815E+00_JPRB,0.28259E+00_JPRB,0.31429E+00_JPRB,0.32943E+00_JPRB, &
+ & 0.33059E+00_JPRB,0.31837E+00_JPRB,0.29043E+00_JPRB,0.21220E+00_JPRB /)  
+KA(:, 1, 6, 6) = (/ &
+ & 0.42433E-01_JPRB,0.15317E+00_JPRB,0.20425E+00_JPRB,0.23740E+00_JPRB,0.25663E+00_JPRB, &
+ & 0.26234E+00_JPRB,0.25512E+00_JPRB,0.23364E+00_JPRB,0.16949E+00_JPRB /)  
+KA(:, 2, 6, 6) = (/ &
+ & 0.49749E-01_JPRB,0.16341E+00_JPRB,0.21435E+00_JPRB,0.24646E+00_JPRB,0.26413E+00_JPRB, &
+ & 0.26825E+00_JPRB,0.25968E+00_JPRB,0.23716E+00_JPRB,0.17204E+00_JPRB /)  
+KA(:, 3, 6, 6) = (/ &
+ & 0.58017E-01_JPRB,0.17381E+00_JPRB,0.22409E+00_JPRB,0.25485E+00_JPRB,0.27073E+00_JPRB, &
+ & 0.27356E+00_JPRB,0.26405E+00_JPRB,0.24070E+00_JPRB,0.17477E+00_JPRB /)  
+KA(:, 4, 6, 6) = (/ &
+ & 0.67231E-01_JPRB,0.18439E+00_JPRB,0.23345E+00_JPRB,0.26240E+00_JPRB,0.27677E+00_JPRB, &
+ & 0.27839E+00_JPRB,0.26819E+00_JPRB,0.24459E+00_JPRB,0.17741E+00_JPRB /)  
+KA(:, 5, 6, 6) = (/ &
+ & 0.77316E-01_JPRB,0.19517E+00_JPRB,0.24253E+00_JPRB,0.26953E+00_JPRB,0.28221E+00_JPRB, &
+ & 0.28296E+00_JPRB,0.27246E+00_JPRB,0.24867E+00_JPRB,0.17984E+00_JPRB /)  
+KA(:, 1, 7, 6) = (/ &
+ & 0.33835E-01_JPRB,0.12894E+00_JPRB,0.17377E+00_JPRB,0.20223E+00_JPRB,0.21858E+00_JPRB, &
+ & 0.22305E+00_JPRB,0.21661E+00_JPRB,0.19799E+00_JPRB,0.14234E+00_JPRB /)  
+KA(:, 2, 7, 6) = (/ &
+ & 0.39495E-01_JPRB,0.13775E+00_JPRB,0.18255E+00_JPRB,0.21017E+00_JPRB,0.22506E+00_JPRB, &
+ & 0.22828E+00_JPRB,0.22063E+00_JPRB,0.20115E+00_JPRB,0.14469E+00_JPRB /)  
+KA(:, 3, 7, 6) = (/ &
+ & 0.46213E-01_JPRB,0.14677E+00_JPRB,0.19104E+00_JPRB,0.21747E+00_JPRB,0.23085E+00_JPRB, &
+ & 0.23293E+00_JPRB,0.22444E+00_JPRB,0.20438E+00_JPRB,0.14721E+00_JPRB /)  
+KA(:, 4, 7, 6) = (/ &
+ & 0.53881E-01_JPRB,0.15604E+00_JPRB,0.19912E+00_JPRB,0.22407E+00_JPRB,0.23606E+00_JPRB, &
+ & 0.23711E+00_JPRB,0.22803E+00_JPRB,0.20793E+00_JPRB,0.14967E+00_JPRB /)  
+KA(:, 5, 7, 6) = (/ &
+ & 0.62313E-01_JPRB,0.16559E+00_JPRB,0.20703E+00_JPRB,0.23032E+00_JPRB,0.24086E+00_JPRB, &
+ & 0.24109E+00_JPRB,0.23183E+00_JPRB,0.21164E+00_JPRB,0.15187E+00_JPRB /)  
+KA(:, 1, 8, 6) = (/ &
+ & 0.27294E-01_JPRB,0.10784E+00_JPRB,0.14673E+00_JPRB,0.17152E+00_JPRB,0.18541E+00_JPRB, &
+ & 0.18896E+00_JPRB,0.18302E+00_JPRB,0.16686E+00_JPRB,0.11892E+00_JPRB /)  
+KA(:, 2, 8, 6) = (/ &
+ & 0.31945E-01_JPRB,0.11533E+00_JPRB,0.15437E+00_JPRB,0.17841E+00_JPRB,0.19097E+00_JPRB, &
+ & 0.19348E+00_JPRB,0.18650E+00_JPRB,0.16969E+00_JPRB,0.12123E+00_JPRB /)  
+KA(:, 3, 8, 6) = (/ &
+ & 0.37290E-01_JPRB,0.12309E+00_JPRB,0.16174E+00_JPRB,0.18467E+00_JPRB,0.19597E+00_JPRB, &
+ & 0.19753E+00_JPRB,0.18983E+00_JPRB,0.17262E+00_JPRB,0.12344E+00_JPRB /)  
+KA(:, 4, 8, 6) = (/ &
+ & 0.43331E-01_JPRB,0.13110E+00_JPRB,0.16878E+00_JPRB,0.19044E+00_JPRB,0.20053E+00_JPRB, &
+ & 0.20117E+00_JPRB,0.19304E+00_JPRB,0.17581E+00_JPRB,0.12571E+00_JPRB /)  
+KA(:, 5, 8, 6) = (/ &
+ & 0.50086E-01_JPRB,0.13937E+00_JPRB,0.17577E+00_JPRB,0.19586E+00_JPRB,0.20476E+00_JPRB, &
+ & 0.20472E+00_JPRB,0.19647E+00_JPRB,0.17915E+00_JPRB,0.12770E+00_JPRB /)  
+KA(:, 1, 9, 6) = (/ &
+ & 0.21763E-01_JPRB,0.89580E-01_JPRB,0.12270E+00_JPRB,0.14431E+00_JPRB,0.15639E+00_JPRB, &
+ & 0.15936E+00_JPRB,0.15421E+00_JPRB,0.14030E+00_JPRB,0.10042E+00_JPRB /)  
+KA(:, 2, 9, 6) = (/ &
+ & 0.25609E-01_JPRB,0.95974E-01_JPRB,0.12925E+00_JPRB,0.15030E+00_JPRB,0.16119E+00_JPRB, &
+ & 0.16326E+00_JPRB,0.15719E+00_JPRB,0.14283E+00_JPRB,0.10252E+00_JPRB /)  
+KA(:, 3, 9, 6) = (/ &
+ & 0.30067E-01_JPRB,0.10261E+00_JPRB,0.13551E+00_JPRB,0.15572E+00_JPRB,0.16552E+00_JPRB, &
+ & 0.16675E+00_JPRB,0.16007E+00_JPRB,0.14539E+00_JPRB,0.10448E+00_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART4',1,ZHOOK_HANDLE)
+END SUBROUTINE PART4
+
+
+SUBROUTINE PART5
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART5',0,ZHOOK_HANDLE)
+
+
+KA(:, 4, 9, 6) = (/ &
+ & 0.35097E-01_JPRB,0.10949E+00_JPRB,0.14161E+00_JPRB,0.16075E+00_JPRB,0.16947E+00_JPRB, &
+ & 0.16997E+00_JPRB,0.16297E+00_JPRB,0.14823E+00_JPRB,0.10645E+00_JPRB /)  
+KA(:, 5, 9, 6) = (/ &
+ & 0.40711E-01_JPRB,0.11658E+00_JPRB,0.14773E+00_JPRB,0.16552E+00_JPRB,0.17324E+00_JPRB, &
+ & 0.17317E+00_JPRB,0.16604E+00_JPRB,0.15112E+00_JPRB,0.10826E+00_JPRB /)  
+KA(:, 1,10, 6) = (/ &
+ & 0.17370E-01_JPRB,0.74466E-01_JPRB,0.10240E+00_JPRB,0.12053E+00_JPRB,0.13126E+00_JPRB, &
+ & 0.13417E+00_JPRB,0.12989E+00_JPRB,0.11790E+00_JPRB,0.87103E-01_JPRB /)  
+KA(:, 2,10, 6) = (/ &
+ & 0.20536E-01_JPRB,0.79866E-01_JPRB,0.10796E+00_JPRB,0.12568E+00_JPRB,0.13547E+00_JPRB, &
+ & 0.13755E+00_JPRB,0.13244E+00_JPRB,0.12017E+00_JPRB,0.88680E-01_JPRB /)  
+KA(:, 3,10, 6) = (/ &
+ & 0.24274E-01_JPRB,0.85524E-01_JPRB,0.11324E+00_JPRB,0.13036E+00_JPRB,0.13925E+00_JPRB, &
+ & 0.14055E+00_JPRB,0.13491E+00_JPRB,0.12243E+00_JPRB,0.90062E-01_JPRB /)  
+KA(:, 4,10, 6) = (/ &
+ & 0.28508E-01_JPRB,0.91420E-01_JPRB,0.11852E+00_JPRB,0.13467E+00_JPRB,0.14267E+00_JPRB, &
+ & 0.14339E+00_JPRB,0.13748E+00_JPRB,0.12487E+00_JPRB,0.91240E-01_JPRB /)  
+KA(:, 5,10, 6) = (/ &
+ & 0.33217E-01_JPRB,0.97522E-01_JPRB,0.12382E+00_JPRB,0.13886E+00_JPRB,0.14603E+00_JPRB, &
+ & 0.14625E+00_JPRB,0.14015E+00_JPRB,0.12740E+00_JPRB,0.92631E-01_JPRB /)  
+KA(:, 1,11, 6) = (/ &
+ & 0.14918E-01_JPRB,0.64249E-01_JPRB,0.87193E-01_JPRB,0.10225E+00_JPRB,0.11107E+00_JPRB, &
+ & 0.11380E+00_JPRB,0.11017E+00_JPRB,0.99775E-01_JPRB,0.75883E-01_JPRB /)  
+KA(:, 2,11, 6) = (/ &
+ & 0.17707E-01_JPRB,0.68887E-01_JPRB,0.91783E-01_JPRB,0.10653E+00_JPRB,0.11454E+00_JPRB, &
+ & 0.11659E+00_JPRB,0.11231E+00_JPRB,0.10178E+00_JPRB,0.77400E-01_JPRB /)  
+KA(:, 3,11, 6) = (/ &
+ & 0.20985E-01_JPRB,0.73723E-01_JPRB,0.96290E-01_JPRB,0.11038E+00_JPRB,0.11765E+00_JPRB, &
+ & 0.11911E+00_JPRB,0.11446E+00_JPRB,0.10377E+00_JPRB,0.78827E-01_JPRB /)  
+KA(:, 4,11, 6) = (/ &
+ & 0.24698E-01_JPRB,0.78820E-01_JPRB,0.10085E+00_JPRB,0.11403E+00_JPRB,0.12064E+00_JPRB, &
+ & 0.12159E+00_JPRB,0.11674E+00_JPRB,0.10593E+00_JPRB,0.80678E-01_JPRB /)  
+KA(:, 5,11, 6) = (/ &
+ & 0.28798E-01_JPRB,0.84087E-01_JPRB,0.10545E+00_JPRB,0.11772E+00_JPRB,0.12367E+00_JPRB, &
+ & 0.12416E+00_JPRB,0.11916E+00_JPRB,0.10818E+00_JPRB,0.82090E-01_JPRB /)  
+KA(:, 1,12, 6) = (/ &
+ & 0.12778E-01_JPRB,0.55028E-01_JPRB,0.74326E-01_JPRB,0.86458E-01_JPRB,0.93690E-01_JPRB, &
+ & 0.95887E-01_JPRB,0.92996E-01_JPRB,0.84239E-01_JPRB,0.65531E-01_JPRB /)  
+KA(:, 2,12, 6) = (/ &
+ & 0.15226E-01_JPRB,0.59056E-01_JPRB,0.78180E-01_JPRB,0.90004E-01_JPRB,0.96562E-01_JPRB, &
+ & 0.98210E-01_JPRB,0.94824E-01_JPRB,0.85996E-01_JPRB,0.67232E-01_JPRB /)  
+KA(:, 3,12, 6) = (/ &
+ & 0.18073E-01_JPRB,0.63328E-01_JPRB,0.81993E-01_JPRB,0.93245E-01_JPRB,0.99175E-01_JPRB, &
+ & 0.10034E+00_JPRB,0.96751E-01_JPRB,0.87779E-01_JPRB,0.68728E-01_JPRB /)  
+KA(:, 4,12, 6) = (/ &
+ & 0.21287E-01_JPRB,0.67814E-01_JPRB,0.85944E-01_JPRB,0.96446E-01_JPRB,0.10181E+00_JPRB, &
+ & 0.10253E+00_JPRB,0.98787E-01_JPRB,0.89700E-01_JPRB,0.70024E-01_JPRB /)  
+KA(:, 5,12, 6) = (/ &
+ & 0.24810E-01_JPRB,0.72405E-01_JPRB,0.89913E-01_JPRB,0.99700E-01_JPRB,0.10454E+00_JPRB, &
+ & 0.10492E+00_JPRB,0.10099E+00_JPRB,0.91662E-01_JPRB,0.71222E-01_JPRB /)  
+KA(:, 1,13, 6) = (/ &
+ & 0.10897E-01_JPRB,0.46824E-01_JPRB,0.63070E-01_JPRB,0.73198E-01_JPRB,0.78826E-01_JPRB, &
+ & 0.80547E-01_JPRB,0.78087E-01_JPRB,0.70945E-01_JPRB,0.55427E-01_JPRB /)  
+KA(:, 2,13, 6) = (/ &
+ & 0.13037E-01_JPRB,0.50331E-01_JPRB,0.66369E-01_JPRB,0.76169E-01_JPRB,0.81229E-01_JPRB, &
+ & 0.82485E-01_JPRB,0.79688E-01_JPRB,0.72492E-01_JPRB,0.56776E-01_JPRB /)  
+KA(:, 3,13, 6) = (/ &
+ & 0.15498E-01_JPRB,0.54103E-01_JPRB,0.69687E-01_JPRB,0.78968E-01_JPRB,0.83486E-01_JPRB, &
+ & 0.84334E-01_JPRB,0.81403E-01_JPRB,0.74109E-01_JPRB,0.57973E-01_JPRB /)  
+KA(:, 4,13, 6) = (/ &
+ & 0.18239E-01_JPRB,0.58007E-01_JPRB,0.73146E-01_JPRB,0.81751E-01_JPRB,0.85842E-01_JPRB, &
+ & 0.86346E-01_JPRB,0.83244E-01_JPRB,0.75789E-01_JPRB,0.59123E-01_JPRB /)  
+KA(:, 5,13, 6) = (/ &
+ & 0.21231E-01_JPRB,0.61947E-01_JPRB,0.76584E-01_JPRB,0.84579E-01_JPRB,0.88268E-01_JPRB, &
+ & 0.88508E-01_JPRB,0.85245E-01_JPRB,0.77486E-01_JPRB,0.60191E-01_JPRB /)  
+KA(:, 1, 1, 7) = (/ &
+ & 0.71609E+00_JPRB,0.10081E+01_JPRB,0.11118E+01_JPRB,0.11603E+01_JPRB,0.11765E+01_JPRB, &
+ & 0.11643E+01_JPRB,0.11202E+01_JPRB,0.10296E+01_JPRB,0.82502E+00_JPRB /)  
+KA(:, 2, 1, 7) = (/ &
+ & 0.75920E+00_JPRB,0.10292E+01_JPRB,0.11252E+01_JPRB,0.11685E+01_JPRB,0.11822E+01_JPRB, &
+ & 0.11684E+01_JPRB,0.11228E+01_JPRB,0.10318E+01_JPRB,0.83157E+00_JPRB /)  
+KA(:, 3, 1, 7) = (/ &
+ & 0.79807E+00_JPRB,0.10500E+01_JPRB,0.11397E+01_JPRB,0.11794E+01_JPRB,0.11904E+01_JPRB, &
+ & 0.11740E+01_JPRB,0.11264E+01_JPRB,0.10343E+01_JPRB,0.83726E+00_JPRB /)  
+KA(:, 4, 1, 7) = (/ &
+ & 0.83183E+00_JPRB,0.10700E+01_JPRB,0.11548E+01_JPRB,0.11918E+01_JPRB,0.12010E+01_JPRB, &
+ & 0.11815E+01_JPRB,0.11313E+01_JPRB,0.10364E+01_JPRB,0.84249E+00_JPRB /)  
+KA(:, 5, 1, 7) = (/ &
+ & 0.86161E+00_JPRB,0.10887E+01_JPRB,0.11706E+01_JPRB,0.12061E+01_JPRB,0.12126E+01_JPRB, &
+ & 0.11904E+01_JPRB,0.11363E+01_JPRB,0.10383E+01_JPRB,0.84713E+00_JPRB /)  
+KA(:, 1, 2, 7) = (/ &
+ & 0.62079E+00_JPRB,0.89078E+00_JPRB,0.98349E+00_JPRB,0.10275E+01_JPRB,0.10413E+01_JPRB, &
+ & 0.10318E+01_JPRB,0.99528E+00_JPRB,0.92037E+00_JPRB,0.72464E+00_JPRB /)  
+KA(:, 2, 2, 7) = (/ &
+ & 0.65800E+00_JPRB,0.91114E+00_JPRB,0.99789E+00_JPRB,0.10381E+01_JPRB,0.10488E+01_JPRB, &
+ & 0.10378E+01_JPRB,0.99952E+00_JPRB,0.92364E+00_JPRB,0.73140E+00_JPRB /)  
+KA(:, 3, 2, 7) = (/ &
+ & 0.69092E+00_JPRB,0.93058E+00_JPRB,0.10122E+01_JPRB,0.10502E+01_JPRB,0.10590E+01_JPRB, &
+ & 0.10454E+01_JPRB,0.10054E+01_JPRB,0.92699E+00_JPRB,0.73764E+00_JPRB /)  
+KA(:, 4, 2, 7) = (/ &
+ & 0.71970E+00_JPRB,0.94840E+00_JPRB,0.10270E+01_JPRB,0.10636E+01_JPRB,0.10709E+01_JPRB, &
+ & 0.10547E+01_JPRB,0.10116E+01_JPRB,0.93021E+00_JPRB,0.74329E+00_JPRB /)  
+KA(:, 5, 2, 7) = (/ &
+ & 0.74579E+00_JPRB,0.96581E+00_JPRB,0.10421E+01_JPRB,0.10781E+01_JPRB,0.10844E+01_JPRB, &
+ & 0.10644E+01_JPRB,0.10185E+01_JPRB,0.93369E+00_JPRB,0.74789E+00_JPRB /)  
+KA(:, 1, 3, 7) = (/ &
+ & 0.52823E+00_JPRB,0.77783E+00_JPRB,0.86297E+00_JPRB,0.90265E+00_JPRB,0.91464E+00_JPRB, &
+ & 0.90839E+00_JPRB,0.87923E+00_JPRB,0.81632E+00_JPRB,0.63067E+00_JPRB /)  
+KA(:, 2, 3, 7) = (/ &
+ & 0.56021E+00_JPRB,0.79652E+00_JPRB,0.87677E+00_JPRB,0.91375E+00_JPRB,0.92363E+00_JPRB, &
+ & 0.91571E+00_JPRB,0.88529E+00_JPRB,0.82096E+00_JPRB,0.63740E+00_JPRB /)  
+KA(:, 3, 3, 7) = (/ &
+ & 0.58848E+00_JPRB,0.81389E+00_JPRB,0.89039E+00_JPRB,0.92584E+00_JPRB,0.93460E+00_JPRB, &
+ & 0.92486E+00_JPRB,0.89232E+00_JPRB,0.82527E+00_JPRB,0.64377E+00_JPRB /)  
+KA(:, 4, 3, 7) = (/ &
+ & 0.61369E+00_JPRB,0.83008E+00_JPRB,0.90459E+00_JPRB,0.93860E+00_JPRB,0.94727E+00_JPRB, &
+ & 0.93485E+00_JPRB,0.89989E+00_JPRB,0.82959E+00_JPRB,0.64921E+00_JPRB /)  
+KA(:, 5, 3, 7) = (/ &
+ & 0.63687E+00_JPRB,0.84580E+00_JPRB,0.91897E+00_JPRB,0.95268E+00_JPRB,0.96085E+00_JPRB, &
+ & 0.94565E+00_JPRB,0.90780E+00_JPRB,0.83380E+00_JPRB,0.65367E+00_JPRB /)  
+KA(:, 1, 4, 7) = (/ &
+ & 0.44508E+00_JPRB,0.67351E+00_JPRB,0.75154E+00_JPRB,0.78756E+00_JPRB,0.79977E+00_JPRB, &
+ & 0.79563E+00_JPRB,0.77123E+00_JPRB,0.71868E+00_JPRB,0.54794E+00_JPRB /)  
+KA(:, 2, 4, 7) = (/ &
+ & 0.47271E+00_JPRB,0.69026E+00_JPRB,0.76424E+00_JPRB,0.79840E+00_JPRB,0.80928E+00_JPRB, &
+ & 0.80400E+00_JPRB,0.77859E+00_JPRB,0.72416E+00_JPRB,0.55496E+00_JPRB /)  
+KA(:, 3, 4, 7) = (/ &
+ & 0.49708E+00_JPRB,0.70580E+00_JPRB,0.77670E+00_JPRB,0.80989E+00_JPRB,0.82043E+00_JPRB, &
+ & 0.81421E+00_JPRB,0.78653E+00_JPRB,0.72918E+00_JPRB,0.56105E+00_JPRB /)  
+KA(:, 4, 4, 7) = (/ &
+ & 0.51921E+00_JPRB,0.72040E+00_JPRB,0.78970E+00_JPRB,0.82209E+00_JPRB,0.83296E+00_JPRB, &
+ & 0.82477E+00_JPRB,0.79492E+00_JPRB,0.73435E+00_JPRB,0.56612E+00_JPRB /)  
+KA(:, 5, 4, 7) = (/ &
+ & 0.53991E+00_JPRB,0.73468E+00_JPRB,0.80284E+00_JPRB,0.83540E+00_JPRB,0.84599E+00_JPRB, &
+ & 0.83588E+00_JPRB,0.80349E+00_JPRB,0.73920E+00_JPRB,0.57048E+00_JPRB /)  
+KA(:, 1, 5, 7) = (/ &
+ & 0.37413E+00_JPRB,0.58022E+00_JPRB,0.65026E+00_JPRB,0.68370E+00_JPRB,0.69632E+00_JPRB, &
+ & 0.69319E+00_JPRB,0.67239E+00_JPRB,0.62755E+00_JPRB,0.47517E+00_JPRB /)  
+KA(:, 2, 5, 7) = (/ &
+ & 0.39785E+00_JPRB,0.59500E+00_JPRB,0.66160E+00_JPRB,0.69388E+00_JPRB,0.70581E+00_JPRB, &
+ & 0.70224E+00_JPRB,0.68037E+00_JPRB,0.63372E+00_JPRB,0.48187E+00_JPRB /)  
+KA(:, 3, 5, 7) = (/ &
+ & 0.41894E+00_JPRB,0.60858E+00_JPRB,0.67282E+00_JPRB,0.70454E+00_JPRB,0.71693E+00_JPRB, &
+ & 0.71249E+00_JPRB,0.68889E+00_JPRB,0.63962E+00_JPRB,0.48765E+00_JPRB /)  
+KA(:, 4, 5, 7) = (/ &
+ & 0.43810E+00_JPRB,0.62138E+00_JPRB,0.68416E+00_JPRB,0.71639E+00_JPRB,0.72873E+00_JPRB, &
+ & 0.72302E+00_JPRB,0.69785E+00_JPRB,0.64510E+00_JPRB,0.49243E+00_JPRB /)  
+KA(:, 5, 5, 7) = (/ &
+ & 0.45627E+00_JPRB,0.63437E+00_JPRB,0.69610E+00_JPRB,0.72855E+00_JPRB,0.74096E+00_JPRB, &
+ & 0.73385E+00_JPRB,0.70672E+00_JPRB,0.65052E+00_JPRB,0.49657E+00_JPRB /)  
+KA(:, 1, 6, 7) = (/ &
+ & 0.31382E+00_JPRB,0.49799E+00_JPRB,0.55977E+00_JPRB,0.58971E+00_JPRB,0.60230E+00_JPRB, &
+ & 0.60065E+00_JPRB,0.58267E+00_JPRB,0.54392E+00_JPRB,0.40911E+00_JPRB /)  
+KA(:, 2, 6, 7) = (/ &
+ & 0.33427E+00_JPRB,0.51077E+00_JPRB,0.56976E+00_JPRB,0.59903E+00_JPRB,0.61148E+00_JPRB, &
+ & 0.60961E+00_JPRB,0.59093E+00_JPRB,0.55057E+00_JPRB,0.41554E+00_JPRB /)  
+KA(:, 3, 6, 7) = (/ &
+ & 0.35247E+00_JPRB,0.52249E+00_JPRB,0.57948E+00_JPRB,0.60895E+00_JPRB,0.62185E+00_JPRB, &
+ & 0.61942E+00_JPRB,0.59984E+00_JPRB,0.55707E+00_JPRB,0.42096E+00_JPRB /)  
+KA(:, 4, 6, 7) = (/ &
+ & 0.36909E+00_JPRB,0.53360E+00_JPRB,0.58950E+00_JPRB,0.61977E+00_JPRB,0.63265E+00_JPRB, &
+ & 0.62957E+00_JPRB,0.60872E+00_JPRB,0.56306E+00_JPRB,0.42549E+00_JPRB /)  
+KA(:, 5, 6, 7) = (/ &
+ & 0.38489E+00_JPRB,0.54511E+00_JPRB,0.60025E+00_JPRB,0.63086E+00_JPRB,0.64395E+00_JPRB, &
+ & 0.63979E+00_JPRB,0.61739E+00_JPRB,0.56897E+00_JPRB,0.42951E+00_JPRB /)  
+KA(:, 1, 7, 7) = (/ &
+ & 0.26224E+00_JPRB,0.42663E+00_JPRB,0.48031E+00_JPRB,0.50651E+00_JPRB,0.51797E+00_JPRB, &
+ & 0.51738E+00_JPRB,0.50230E+00_JPRB,0.46824E+00_JPRB,0.34967E+00_JPRB /)  
+KA(:, 2, 7, 7) = (/ &
+ & 0.28013E+00_JPRB,0.43764E+00_JPRB,0.48906E+00_JPRB,0.51485E+00_JPRB,0.52656E+00_JPRB, &
+ & 0.52602E+00_JPRB,0.51065E+00_JPRB,0.47517E+00_JPRB,0.35569E+00_JPRB /)  
+KA(:, 3, 7, 7) = (/ &
+ & 0.29592E+00_JPRB,0.44770E+00_JPRB,0.49758E+00_JPRB,0.52367E+00_JPRB,0.53583E+00_JPRB, &
+ & 0.53525E+00_JPRB,0.51944E+00_JPRB,0.48175E+00_JPRB,0.36089E+00_JPRB /)  
+KA(:, 4, 7, 7) = (/ &
+ & 0.31035E+00_JPRB,0.45721E+00_JPRB,0.50658E+00_JPRB,0.53311E+00_JPRB,0.54562E+00_JPRB, &
+ & 0.54468E+00_JPRB,0.52799E+00_JPRB,0.48800E+00_JPRB,0.36523E+00_JPRB /)  
+KA(:, 5, 7, 7) = (/ &
+ & 0.32410E+00_JPRB,0.46702E+00_JPRB,0.51628E+00_JPRB,0.54315E+00_JPRB,0.55572E+00_JPRB, &
+ & 0.55402E+00_JPRB,0.53619E+00_JPRB,0.49402E+00_JPRB,0.36906E+00_JPRB /)  
+KA(:, 1, 8, 7) = (/ &
+ & 0.21802E+00_JPRB,0.36523E+00_JPRB,0.41109E+00_JPRB,0.43388E+00_JPRB,0.44363E+00_JPRB, &
+ & 0.44316E+00_JPRB,0.43058E+00_JPRB,0.40065E+00_JPRB,0.29668E+00_JPRB /)  
+KA(:, 2, 8, 7) = (/ &
+ & 0.23315E+00_JPRB,0.37455E+00_JPRB,0.41894E+00_JPRB,0.44116E+00_JPRB,0.45154E+00_JPRB, &
+ & 0.45134E+00_JPRB,0.43880E+00_JPRB,0.40751E+00_JPRB,0.30231E+00_JPRB /)  
+KA(:, 3, 8, 7) = (/ &
+ & 0.24686E+00_JPRB,0.38301E+00_JPRB,0.42637E+00_JPRB,0.44889E+00_JPRB,0.45978E+00_JPRB, &
+ & 0.45969E+00_JPRB,0.44700E+00_JPRB,0.41408E+00_JPRB,0.30721E+00_JPRB /)  
+KA(:, 4, 8, 7) = (/ &
+ & 0.25967E+00_JPRB,0.39102E+00_JPRB,0.43427E+00_JPRB,0.45708E+00_JPRB,0.46833E+00_JPRB, &
+ & 0.46819E+00_JPRB,0.45488E+00_JPRB,0.42031E+00_JPRB,0.31131E+00_JPRB /)  
+KA(:, 5, 8, 7) = (/ &
+ & 0.27188E+00_JPRB,0.39949E+00_JPRB,0.44272E+00_JPRB,0.46608E+00_JPRB,0.47706E+00_JPRB, &
+ & 0.47653E+00_JPRB,0.46230E+00_JPRB,0.42618E+00_JPRB,0.31504E+00_JPRB /)  
+KA(:, 1, 9, 7) = (/ &
+ & 0.18022E+00_JPRB,0.31183E+00_JPRB,0.35120E+00_JPRB,0.37079E+00_JPRB,0.37884E+00_JPRB, &
+ & 0.37804E+00_JPRB,0.36693E+00_JPRB,0.34063E+00_JPRB,0.24612E+00_JPRB /)  
+KA(:, 2, 9, 7) = (/ &
+ & 0.19307E+00_JPRB,0.31966E+00_JPRB,0.35801E+00_JPRB,0.37712E+00_JPRB,0.38585E+00_JPRB, &
+ & 0.38558E+00_JPRB,0.37468E+00_JPRB,0.34716E+00_JPRB,0.25138E+00_JPRB /)  
+KA(:, 3, 9, 7) = (/ &
+ & 0.20463E+00_JPRB,0.32683E+00_JPRB,0.36444E+00_JPRB,0.38387E+00_JPRB,0.39308E+00_JPRB, &
+ & 0.39294E+00_JPRB,0.38210E+00_JPRB,0.35364E+00_JPRB,0.25593E+00_JPRB /)  
+KA(:, 4, 9, 7) = (/ &
+ & 0.21550E+00_JPRB,0.33367E+00_JPRB,0.37119E+00_JPRB,0.39103E+00_JPRB,0.40042E+00_JPRB, &
+ & 0.40039E+00_JPRB,0.38916E+00_JPRB,0.35964E+00_JPRB,0.25996E+00_JPRB /)  
+KA(:, 5, 9, 7) = (/ &
+ & 0.22607E+00_JPRB,0.34108E+00_JPRB,0.37860E+00_JPRB,0.39875E+00_JPRB,0.40805E+00_JPRB, &
+ & 0.40762E+00_JPRB,0.39578E+00_JPRB,0.36518E+00_JPRB,0.26360E+00_JPRB /)  
+KA(:, 1,10, 7) = (/ &
+ & 0.14867E+00_JPRB,0.26554E+00_JPRB,0.29985E+00_JPRB,0.31657E+00_JPRB,0.32318E+00_JPRB, &
+ & 0.32201E+00_JPRB,0.31162E+00_JPRB,0.28815E+00_JPRB,0.21732E+00_JPRB /)  
+KA(:, 2,10, 7) = (/ &
+ & 0.15961E+00_JPRB,0.27217E+00_JPRB,0.30555E+00_JPRB,0.32206E+00_JPRB,0.32938E+00_JPRB, &
+ & 0.32864E+00_JPRB,0.31877E+00_JPRB,0.29424E+00_JPRB,0.22230E+00_JPRB /)  
+KA(:, 3,10, 7) = (/ &
+ & 0.16940E+00_JPRB,0.27829E+00_JPRB,0.31116E+00_JPRB,0.32786E+00_JPRB,0.33559E+00_JPRB, &
+ & 0.33509E+00_JPRB,0.32534E+00_JPRB,0.30046E+00_JPRB,0.22643E+00_JPRB /)  
+KA(:, 4,10, 7) = (/ &
+ & 0.17863E+00_JPRB,0.28410E+00_JPRB,0.31692E+00_JPRB,0.33409E+00_JPRB,0.34189E+00_JPRB, &
+ & 0.34154E+00_JPRB,0.33152E+00_JPRB,0.30607E+00_JPRB,0.23022E+00_JPRB /)  
+KA(:, 5,10, 7) = (/ &
+ & 0.18774E+00_JPRB,0.29050E+00_JPRB,0.32341E+00_JPRB,0.34075E+00_JPRB,0.34846E+00_JPRB, &
+ & 0.34771E+00_JPRB,0.33731E+00_JPRB,0.31120E+00_JPRB,0.23340E+00_JPRB /)  
+KA(:, 1,11, 7) = (/ &
+ & 0.12627E+00_JPRB,0.22669E+00_JPRB,0.25719E+00_JPRB,0.27172E+00_JPRB,0.27732E+00_JPRB, &
+ & 0.27601E+00_JPRB,0.26659E+00_JPRB,0.24512E+00_JPRB,0.18584E+00_JPRB /)  
+KA(:, 2,11, 7) = (/ &
+ & 0.13516E+00_JPRB,0.23214E+00_JPRB,0.26193E+00_JPRB,0.27653E+00_JPRB,0.28265E+00_JPRB, &
+ & 0.28160E+00_JPRB,0.27265E+00_JPRB,0.25095E+00_JPRB,0.18968E+00_JPRB /)  
+KA(:, 3,11, 7) = (/ &
+ & 0.14321E+00_JPRB,0.23722E+00_JPRB,0.26679E+00_JPRB,0.28162E+00_JPRB,0.28797E+00_JPRB, &
+ & 0.28724E+00_JPRB,0.27822E+00_JPRB,0.25645E+00_JPRB,0.19293E+00_JPRB /)  
+KA(:, 4,11, 7) = (/ &
+ & 0.15107E+00_JPRB,0.24247E+00_JPRB,0.27199E+00_JPRB,0.28706E+00_JPRB,0.29346E+00_JPRB, &
+ & 0.29269E+00_JPRB,0.28343E+00_JPRB,0.26131E+00_JPRB,0.19541E+00_JPRB /)  
+KA(:, 5,11, 7) = (/ &
+ & 0.15896E+00_JPRB,0.24837E+00_JPRB,0.27786E+00_JPRB,0.29309E+00_JPRB,0.29929E+00_JPRB, &
+ & 0.29804E+00_JPRB,0.28838E+00_JPRB,0.26594E+00_JPRB,0.19802E+00_JPRB /)  
+KA(:, 1,12, 7) = (/ &
+ & 0.10682E+00_JPRB,0.19256E+00_JPRB,0.21863E+00_JPRB,0.23192E+00_JPRB,0.23695E+00_JPRB, &
+ & 0.23560E+00_JPRB,0.22744E+00_JPRB,0.20844E+00_JPRB,0.16014E+00_JPRB /)  
+KA(:, 2,12, 7) = (/ &
+ & 0.11409E+00_JPRB,0.19699E+00_JPRB,0.22274E+00_JPRB,0.23606E+00_JPRB,0.24149E+00_JPRB, &
+ & 0.24040E+00_JPRB,0.23256E+00_JPRB,0.21367E+00_JPRB,0.16300E+00_JPRB /)  
+KA(:, 3,12, 7) = (/ &
+ & 0.12093E+00_JPRB,0.20128E+00_JPRB,0.22702E+00_JPRB,0.24050E+00_JPRB,0.24609E+00_JPRB, &
+ & 0.24521E+00_JPRB,0.23721E+00_JPRB,0.21831E+00_JPRB,0.16579E+00_JPRB /)  
+KA(:, 4,12, 7) = (/ &
+ & 0.12767E+00_JPRB,0.20601E+00_JPRB,0.23174E+00_JPRB,0.24542E+00_JPRB,0.25091E+00_JPRB, &
+ & 0.24990E+00_JPRB,0.24163E+00_JPRB,0.22258E+00_JPRB,0.16866E+00_JPRB /)  
+KA(:, 5,12, 7) = (/ &
+ & 0.13446E+00_JPRB,0.21151E+00_JPRB,0.23730E+00_JPRB,0.25089E+00_JPRB,0.25608E+00_JPRB, &
+ & 0.25469E+00_JPRB,0.24607E+00_JPRB,0.22668E+00_JPRB,0.17141E+00_JPRB /)  
+KA(:, 1,13, 7) = (/ &
+ & 0.90556E-01_JPRB,0.16301E+00_JPRB,0.18506E+00_JPRB,0.19633E+00_JPRB,0.20124E+00_JPRB, &
+ & 0.20042E+00_JPRB,0.19353E+00_JPRB,0.17713E+00_JPRB,0.13589E+00_JPRB /)  
+KA(:, 2,13, 7) = (/ &
+ & 0.96629E-01_JPRB,0.16667E+00_JPRB,0.18855E+00_JPRB,0.19991E+00_JPRB,0.20512E+00_JPRB, &
+ & 0.20458E+00_JPRB,0.19781E+00_JPRB,0.18150E+00_JPRB,0.13866E+00_JPRB /)  
+KA(:, 3,13, 7) = (/ &
+ & 0.10246E+00_JPRB,0.17045E+00_JPRB,0.19232E+00_JPRB,0.20386E+00_JPRB,0.20916E+00_JPRB, &
+ & 0.20868E+00_JPRB,0.20175E+00_JPRB,0.18546E+00_JPRB,0.14157E+00_JPRB /)  
+KA(:, 4,13, 7) = (/ &
+ & 0.10831E+00_JPRB,0.17481E+00_JPRB,0.19664E+00_JPRB,0.20827E+00_JPRB,0.21340E+00_JPRB, &
+ & 0.21278E+00_JPRB,0.20565E+00_JPRB,0.18920E+00_JPRB,0.14421E+00_JPRB /)  
+KA(:, 5,13, 7) = (/ &
+ & 0.11418E+00_JPRB,0.17993E+00_JPRB,0.20190E+00_JPRB,0.21347E+00_JPRB,0.21830E+00_JPRB, &
+ & 0.21718E+00_JPRB,0.20964E+00_JPRB,0.19280E+00_JPRB,0.14715E+00_JPRB /)  
+KA(:, 1, 1, 8) = (/ &
+ & 0.20844E+01_JPRB,0.23344E+01_JPRB,0.25576E+01_JPRB,0.26701E+01_JPRB,0.27010E+01_JPRB, &
+ & 0.26681E+01_JPRB,0.25683E+01_JPRB,0.23655E+01_JPRB,0.20810E+01_JPRB /)  
+KA(:, 2, 1, 8) = (/ &
+ & 0.20807E+01_JPRB,0.23304E+01_JPRB,0.25489E+01_JPRB,0.26611E+01_JPRB,0.26920E+01_JPRB, &
+ & 0.26609E+01_JPRB,0.25647E+01_JPRB,0.23645E+01_JPRB,0.20859E+01_JPRB /)  
+KA(:, 3, 1, 8) = (/ &
+ & 0.20877E+01_JPRB,0.23342E+01_JPRB,0.25477E+01_JPRB,0.26548E+01_JPRB,0.26843E+01_JPRB, &
+ & 0.26541E+01_JPRB,0.25605E+01_JPRB,0.23637E+01_JPRB,0.20903E+01_JPRB /)  
+KA(:, 4, 1, 8) = (/ &
+ & 0.21052E+01_JPRB,0.23454E+01_JPRB,0.25520E+01_JPRB,0.26529E+01_JPRB,0.26778E+01_JPRB, &
+ & 0.26478E+01_JPRB,0.25565E+01_JPRB,0.23630E+01_JPRB,0.20935E+01_JPRB /)  
+KA(:, 5, 1, 8) = (/ &
+ & 0.21303E+01_JPRB,0.23633E+01_JPRB,0.25619E+01_JPRB,0.26546E+01_JPRB,0.26749E+01_JPRB, &
+ & 0.26429E+01_JPRB,0.25542E+01_JPRB,0.23619E+01_JPRB,0.20958E+01_JPRB /)  
+KA(:, 1, 2, 8) = (/ &
+ & 0.18120E+01_JPRB,0.21101E+01_JPRB,0.23204E+01_JPRB,0.24266E+01_JPRB,0.24657E+01_JPRB, &
+ & 0.24469E+01_JPRB,0.23702E+01_JPRB,0.21931E+01_JPRB,0.18669E+01_JPRB /)  
+KA(:, 2, 2, 8) = (/ &
+ & 0.18187E+01_JPRB,0.21137E+01_JPRB,0.23188E+01_JPRB,0.24223E+01_JPRB,0.24620E+01_JPRB, &
+ & 0.24436E+01_JPRB,0.23687E+01_JPRB,0.21944E+01_JPRB,0.18726E+01_JPRB /)  
+KA(:, 3, 2, 8) = (/ &
+ & 0.18356E+01_JPRB,0.21255E+01_JPRB,0.23256E+01_JPRB,0.24232E+01_JPRB,0.24590E+01_JPRB, &
+ & 0.24407E+01_JPRB,0.23674E+01_JPRB,0.21960E+01_JPRB,0.18776E+01_JPRB /)  
+KA(:, 4, 2, 8) = (/ &
+ & 0.18614E+01_JPRB,0.21447E+01_JPRB,0.23386E+01_JPRB,0.24287E+01_JPRB,0.24595E+01_JPRB, &
+ & 0.24387E+01_JPRB,0.23672E+01_JPRB,0.21970E+01_JPRB,0.18816E+01_JPRB /)  
+KA(:, 5, 2, 8) = (/ &
+ & 0.18927E+01_JPRB,0.21683E+01_JPRB,0.23579E+01_JPRB,0.24392E+01_JPRB,0.24636E+01_JPRB, &
+ & 0.24407E+01_JPRB,0.23665E+01_JPRB,0.21974E+01_JPRB,0.18864E+01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART5',1,ZHOOK_HANDLE)
+END SUBROUTINE PART5
+
+
+SUBROUTINE PART6
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART6',0,ZHOOK_HANDLE)
+
+
+KA(:, 1, 3, 8) = (/ &
+ & 0.15702E+01_JPRB,0.18942E+01_JPRB,0.20837E+01_JPRB,0.21854E+01_JPRB,0.22324E+01_JPRB, &
+ & 0.22266E+01_JPRB,0.21649E+01_JPRB,0.20134E+01_JPRB,0.16617E+01_JPRB /)  
+KA(:, 2, 3, 8) = (/ &
+ & 0.15827E+01_JPRB,0.19038E+01_JPRB,0.20886E+01_JPRB,0.21865E+01_JPRB,0.22329E+01_JPRB, &
+ & 0.22266E+01_JPRB,0.21649E+01_JPRB,0.20167E+01_JPRB,0.16695E+01_JPRB /)  
+KA(:, 3, 3, 8) = (/ &
+ & 0.16046E+01_JPRB,0.19213E+01_JPRB,0.21019E+01_JPRB,0.21942E+01_JPRB,0.22360E+01_JPRB, &
+ & 0.22271E+01_JPRB,0.21665E+01_JPRB,0.20195E+01_JPRB,0.16762E+01_JPRB /)  
+KA(:, 4, 3, 8) = (/ &
+ & 0.16329E+01_JPRB,0.19443E+01_JPRB,0.21213E+01_JPRB,0.22070E+01_JPRB,0.22424E+01_JPRB, &
+ & 0.22311E+01_JPRB,0.21683E+01_JPRB,0.20214E+01_JPRB,0.16830E+01_JPRB /)  
+KA(:, 5, 3, 8) = (/ &
+ & 0.16658E+01_JPRB,0.19717E+01_JPRB,0.21452E+01_JPRB,0.22251E+01_JPRB,0.22530E+01_JPRB, &
+ & 0.22371E+01_JPRB,0.21708E+01_JPRB,0.20238E+01_JPRB,0.16904E+01_JPRB /)  
+KA(:, 1, 4, 8) = (/ &
+ & 0.13564E+01_JPRB,0.16869E+01_JPRB,0.18550E+01_JPRB,0.19537E+01_JPRB,0.20049E+01_JPRB, &
+ & 0.20085E+01_JPRB,0.19601E+01_JPRB,0.18287E+01_JPRB,0.14756E+01_JPRB /)  
+KA(:, 2, 4, 8) = (/ &
+ & 0.13720E+01_JPRB,0.17000E+01_JPRB,0.18655E+01_JPRB,0.19607E+01_JPRB,0.20100E+01_JPRB, &
+ & 0.20105E+01_JPRB,0.19622E+01_JPRB,0.18339E+01_JPRB,0.14854E+01_JPRB /)  
+KA(:, 3, 4, 8) = (/ &
+ & 0.13952E+01_JPRB,0.17204E+01_JPRB,0.18837E+01_JPRB,0.19740E+01_JPRB,0.20182E+01_JPRB, &
+ & 0.20154E+01_JPRB,0.19654E+01_JPRB,0.18384E+01_JPRB,0.14948E+01_JPRB /)  
+KA(:, 4, 4, 8) = (/ &
+ & 0.14229E+01_JPRB,0.17461E+01_JPRB,0.19072E+01_JPRB,0.19926E+01_JPRB,0.20303E+01_JPRB, &
+ & 0.20234E+01_JPRB,0.19691E+01_JPRB,0.18420E+01_JPRB,0.15040E+01_JPRB /)  
+KA(:, 5, 4, 8) = (/ &
+ & 0.14534E+01_JPRB,0.17751E+01_JPRB,0.19345E+01_JPRB,0.20154E+01_JPRB,0.20467E+01_JPRB, &
+ & 0.20337E+01_JPRB,0.19742E+01_JPRB,0.18465E+01_JPRB,0.15131E+01_JPRB /)  
+KA(:, 1, 5, 8) = (/ &
+ & 0.11675E+01_JPRB,0.14906E+01_JPRB,0.16422E+01_JPRB,0.17364E+01_JPRB,0.17875E+01_JPRB, &
+ & 0.17970E+01_JPRB,0.17582E+01_JPRB,0.16459E+01_JPRB,0.13057E+01_JPRB /)  
+KA(:, 2, 5, 8) = (/ &
+ & 0.11839E+01_JPRB,0.15062E+01_JPRB,0.16573E+01_JPRB,0.17483E+01_JPRB,0.17956E+01_JPRB, &
+ & 0.18020E+01_JPRB,0.17623E+01_JPRB,0.16529E+01_JPRB,0.13176E+01_JPRB /)  
+KA(:, 3, 5, 8) = (/ &
+ & 0.12061E+01_JPRB,0.15281E+01_JPRB,0.16790E+01_JPRB,0.17660E+01_JPRB,0.18082E+01_JPRB, &
+ & 0.18106E+01_JPRB,0.17678E+01_JPRB,0.16587E+01_JPRB,0.13289E+01_JPRB /)  
+KA(:, 4, 5, 8) = (/ &
+ & 0.12311E+01_JPRB,0.15549E+01_JPRB,0.17048E+01_JPRB,0.17877E+01_JPRB,0.18250E+01_JPRB, &
+ & 0.18222E+01_JPRB,0.17742E+01_JPRB,0.16644E+01_JPRB,0.13398E+01_JPRB /)  
+KA(:, 5, 5, 8) = (/ &
+ & 0.12582E+01_JPRB,0.15836E+01_JPRB,0.17338E+01_JPRB,0.18131E+01_JPRB,0.18457E+01_JPRB, &
+ & 0.18359E+01_JPRB,0.17826E+01_JPRB,0.16710E+01_JPRB,0.13507E+01_JPRB /)  
+KA(:, 1, 6, 8) = (/ &
+ & 0.99981E+00_JPRB,0.13080E+01_JPRB,0.14477E+01_JPRB,0.15356E+01_JPRB,0.15829E+01_JPRB, &
+ & 0.15936E+01_JPRB,0.15636E+01_JPRB,0.14683E+01_JPRB,0.11482E+01_JPRB /)  
+KA(:, 2, 6, 8) = (/ &
+ & 0.10151E+01_JPRB,0.13251E+01_JPRB,0.14655E+01_JPRB,0.15504E+01_JPRB,0.15941E+01_JPRB, &
+ & 0.16015E+01_JPRB,0.15698E+01_JPRB,0.14767E+01_JPRB,0.11619E+01_JPRB /)  
+KA(:, 3, 6, 8) = (/ &
+ & 0.10344E+01_JPRB,0.13476E+01_JPRB,0.14887E+01_JPRB,0.15702E+01_JPRB,0.16097E+01_JPRB, &
+ & 0.16130E+01_JPRB,0.15772E+01_JPRB,0.14847E+01_JPRB,0.11743E+01_JPRB /)  
+KA(:, 4, 6, 8) = (/ &
+ & 0.10560E+01_JPRB,0.13735E+01_JPRB,0.15155E+01_JPRB,0.15939E+01_JPRB,0.16293E+01_JPRB, &
+ & 0.16276E+01_JPRB,0.15870E+01_JPRB,0.14924E+01_JPRB,0.11864E+01_JPRB /)  
+KA(:, 5, 6, 8) = (/ &
+ & 0.10794E+01_JPRB,0.13996E+01_JPRB,0.15438E+01_JPRB,0.16205E+01_JPRB,0.16521E+01_JPRB, &
+ & 0.16451E+01_JPRB,0.15991E+01_JPRB,0.15003E+01_JPRB,0.11982E+01_JPRB /)  
+KA(:, 1, 7, 8) = (/ &
+ & 0.85239E+00_JPRB,0.11419E+01_JPRB,0.12714E+01_JPRB,0.13507E+01_JPRB,0.13930E+01_JPRB, &
+ & 0.14039E+01_JPRB,0.13790E+01_JPRB,0.12971E+01_JPRB,0.10034E+01_JPRB /)  
+KA(:, 2, 7, 8) = (/ &
+ & 0.86542E+00_JPRB,0.11591E+01_JPRB,0.12898E+01_JPRB,0.13670E+01_JPRB,0.14062E+01_JPRB, &
+ & 0.14139E+01_JPRB,0.13871E+01_JPRB,0.13072E+01_JPRB,0.10179E+01_JPRB /)  
+KA(:, 3, 7, 8) = (/ &
+ & 0.88108E+00_JPRB,0.11809E+01_JPRB,0.13130E+01_JPRB,0.13880E+01_JPRB,0.14241E+01_JPRB, &
+ & 0.14278E+01_JPRB,0.13975E+01_JPRB,0.13172E+01_JPRB,0.10310E+01_JPRB /)  
+KA(:, 4, 7, 8) = (/ &
+ & 0.89900E+00_JPRB,0.12041E+01_JPRB,0.13390E+01_JPRB,0.14123E+01_JPRB,0.14455E+01_JPRB, &
+ & 0.14453E+01_JPRB,0.14105E+01_JPRB,0.13266E+01_JPRB,0.10434E+01_JPRB /)  
+KA(:, 5, 7, 8) = (/ &
+ & 0.91862E+00_JPRB,0.12279E+01_JPRB,0.13649E+01_JPRB,0.14386E+01_JPRB,0.14692E+01_JPRB, &
+ & 0.14664E+01_JPRB,0.14254E+01_JPRB,0.13367E+01_JPRB,0.10558E+01_JPRB /)  
+KA(:, 1, 8, 8) = (/ &
+ & 0.72497E+00_JPRB,0.99201E+00_JPRB,0.11107E+01_JPRB,0.11813E+01_JPRB,0.12195E+01_JPRB, &
+ & 0.12285E+01_JPRB,0.12058E+01_JPRB,0.11359E+01_JPRB,0.87110E+00_JPRB /)  
+KA(:, 2, 8, 8) = (/ &
+ & 0.73517E+00_JPRB,0.10086E+01_JPRB,0.11285E+01_JPRB,0.11988E+01_JPRB,0.12342E+01_JPRB, &
+ & 0.12405E+01_JPRB,0.12160E+01_JPRB,0.11479E+01_JPRB,0.88568E+00_JPRB /)  
+KA(:, 3, 8, 8) = (/ &
+ & 0.74752E+00_JPRB,0.10285E+01_JPRB,0.11507E+01_JPRB,0.12198E+01_JPRB,0.12532E+01_JPRB, &
+ & 0.12570E+01_JPRB,0.12289E+01_JPRB,0.11589E+01_JPRB,0.89927E+00_JPRB /)  
+KA(:, 4, 8, 8) = (/ &
+ & 0.76213E+00_JPRB,0.10489E+01_JPRB,0.11747E+01_JPRB,0.12436E+01_JPRB,0.12757E+01_JPRB, &
+ & 0.12769E+01_JPRB,0.12445E+01_JPRB,0.11700E+01_JPRB,0.91203E+00_JPRB /)  
+KA(:, 5, 8, 8) = (/ &
+ & 0.77854E+00_JPRB,0.10697E+01_JPRB,0.11980E+01_JPRB,0.12679E+01_JPRB,0.13002E+01_JPRB, &
+ & 0.12994E+01_JPRB,0.12621E+01_JPRB,0.11816E+01_JPRB,0.92392E+00_JPRB /)  
+KA(:, 1, 9, 8) = (/ &
+ & 0.61682E+00_JPRB,0.85841E+00_JPRB,0.96403E+00_JPRB,0.10272E+01_JPRB,0.10606E+01_JPRB, &
+ & 0.10679E+01_JPRB,0.10472E+01_JPRB,0.98715E+00_JPRB,0.74825E+00_JPRB /)  
+KA(:, 2, 9, 8) = (/ &
+ & 0.62415E+00_JPRB,0.87401E+00_JPRB,0.98140E+00_JPRB,0.10446E+01_JPRB,0.10763E+01_JPRB, &
+ & 0.10811E+01_JPRB,0.10593E+01_JPRB,0.10003E+01_JPRB,0.76294E+00_JPRB /)  
+KA(:, 3, 9, 8) = (/ &
+ & 0.63387E+00_JPRB,0.89104E+00_JPRB,0.10022E+01_JPRB,0.10651E+01_JPRB,0.10962E+01_JPRB, &
+ & 0.10997E+01_JPRB,0.10740E+01_JPRB,0.10120E+01_JPRB,0.77659E+00_JPRB /)  
+KA(:, 4, 9, 8) = (/ &
+ & 0.64542E+00_JPRB,0.90872E+00_JPRB,0.10230E+01_JPRB,0.10878E+01_JPRB,0.11188E+01_JPRB, &
+ & 0.11207E+01_JPRB,0.10911E+01_JPRB,0.10243E+01_JPRB,0.78905E+00_JPRB /)  
+KA(:, 5, 9, 8) = (/ &
+ & 0.65900E+00_JPRB,0.92674E+00_JPRB,0.10436E+01_JPRB,0.11103E+01_JPRB,0.11424E+01_JPRB, &
+ & 0.11435E+01_JPRB,0.11102E+01_JPRB,0.10375E+01_JPRB,0.80034E+00_JPRB /)  
+KA(:, 1,10, 8) = (/ &
+ & 0.52547E+00_JPRB,0.74220E+00_JPRB,0.83433E+00_JPRB,0.88890E+00_JPRB,0.91741E+00_JPRB, &
+ & 0.92336E+00_JPRB,0.90538E+00_JPRB,0.85311E+00_JPRB,0.64696E+00_JPRB /)  
+KA(:, 2,10, 8) = (/ &
+ & 0.53064E+00_JPRB,0.75604E+00_JPRB,0.85107E+00_JPRB,0.90584E+00_JPRB,0.93361E+00_JPRB, &
+ & 0.93836E+00_JPRB,0.91861E+00_JPRB,0.86626E+00_JPRB,0.66062E+00_JPRB /)  
+KA(:, 3,10, 8) = (/ &
+ & 0.53809E+00_JPRB,0.77037E+00_JPRB,0.86942E+00_JPRB,0.92562E+00_JPRB,0.95409E+00_JPRB, &
+ & 0.95774E+00_JPRB,0.93423E+00_JPRB,0.87871E+00_JPRB,0.67391E+00_JPRB /)  
+KA(:, 4,10, 8) = (/ &
+ & 0.54734E+00_JPRB,0.78576E+00_JPRB,0.88734E+00_JPRB,0.94634E+00_JPRB,0.97611E+00_JPRB, &
+ & 0.97890E+00_JPRB,0.95253E+00_JPRB,0.89191E+00_JPRB,0.68526E+00_JPRB /)  
+KA(:, 5,10, 8) = (/ &
+ & 0.55842E+00_JPRB,0.80129E+00_JPRB,0.90542E+00_JPRB,0.96675E+00_JPRB,0.99781E+00_JPRB, &
+ & 0.10013E+01_JPRB,0.97253E+00_JPRB,0.90597E+00_JPRB,0.69583E+00_JPRB /)  
+KA(:, 1,11, 8) = (/ &
+ & 0.44902E+00_JPRB,0.64641E+00_JPRB,0.72682E+00_JPRB,0.77295E+00_JPRB,0.79679E+00_JPRB, &
+ & 0.80095E+00_JPRB,0.78478E+00_JPRB,0.73880E+00_JPRB,0.57500E+00_JPRB /)  
+KA(:, 2,11, 8) = (/ &
+ & 0.45343E+00_JPRB,0.65819E+00_JPRB,0.74259E+00_JPRB,0.79030E+00_JPRB,0.81509E+00_JPRB, &
+ & 0.81866E+00_JPRB,0.79960E+00_JPRB,0.75137E+00_JPRB,0.58784E+00_JPRB /)  
+KA(:, 3,11, 8) = (/ &
+ & 0.45968E+00_JPRB,0.67094E+00_JPRB,0.75812E+00_JPRB,0.80898E+00_JPRB,0.83522E+00_JPRB, &
+ & 0.83854E+00_JPRB,0.81711E+00_JPRB,0.76461E+00_JPRB,0.59939E+00_JPRB /)  
+KA(:, 4,11, 8) = (/ &
+ & 0.46764E+00_JPRB,0.68418E+00_JPRB,0.77402E+00_JPRB,0.82711E+00_JPRB,0.85518E+00_JPRB, &
+ & 0.85968E+00_JPRB,0.83634E+00_JPRB,0.77859E+00_JPRB,0.60954E+00_JPRB /)  
+KA(:, 5,11, 8) = (/ &
+ & 0.47750E+00_JPRB,0.69798E+00_JPRB,0.79021E+00_JPRB,0.84534E+00_JPRB,0.87480E+00_JPRB, &
+ & 0.88011E+00_JPRB,0.85595E+00_JPRB,0.79269E+00_JPRB,0.61896E+00_JPRB /)  
+KA(:, 1,12, 8) = (/ &
+ & 0.38252E+00_JPRB,0.56123E+00_JPRB,0.63221E+00_JPRB,0.67207E+00_JPRB,0.69191E+00_JPRB, &
+ & 0.69451E+00_JPRB,0.67853E+00_JPRB,0.63671E+00_JPRB,0.49624E+00_JPRB /)  
+KA(:, 2,12, 8) = (/ &
+ & 0.38610E+00_JPRB,0.57152E+00_JPRB,0.64559E+00_JPRB,0.68857E+00_JPRB,0.70992E+00_JPRB, &
+ & 0.71250E+00_JPRB,0.69440E+00_JPRB,0.64948E+00_JPRB,0.50772E+00_JPRB /)  
+KA(:, 3,12, 8) = (/ &
+ & 0.39135E+00_JPRB,0.58251E+00_JPRB,0.65953E+00_JPRB,0.70459E+00_JPRB,0.72793E+00_JPRB, &
+ & 0.73188E+00_JPRB,0.71251E+00_JPRB,0.66314E+00_JPRB,0.51771E+00_JPRB /)  
+KA(:, 4,12, 8) = (/ &
+ & 0.39838E+00_JPRB,0.59406E+00_JPRB,0.67357E+00_JPRB,0.72066E+00_JPRB,0.74570E+00_JPRB, &
+ & 0.75075E+00_JPRB,0.73108E+00_JPRB,0.67696E+00_JPRB,0.52680E+00_JPRB /)  
+KA(:, 5,12, 8) = (/ &
+ & 0.40785E+00_JPRB,0.60628E+00_JPRB,0.68802E+00_JPRB,0.73685E+00_JPRB,0.76342E+00_JPRB, &
+ & 0.76842E+00_JPRB,0.74857E+00_JPRB,0.69135E+00_JPRB,0.53408E+00_JPRB /)  
+KA(:, 1,13, 8) = (/ &
+ & 0.32297E+00_JPRB,0.48556E+00_JPRB,0.54760E+00_JPRB,0.58350E+00_JPRB,0.60079E+00_JPRB, &
+ & 0.60116E+00_JPRB,0.58518E+00_JPRB,0.54699E+00_JPRB,0.42276E+00_JPRB /)  
+KA(:, 2,13, 8) = (/ &
+ & 0.32591E+00_JPRB,0.49445E+00_JPRB,0.55963E+00_JPRB,0.59764E+00_JPRB,0.61654E+00_JPRB, &
+ & 0.61844E+00_JPRB,0.60149E+00_JPRB,0.55973E+00_JPRB,0.43280E+00_JPRB /)  
+KA(:, 3,13, 8) = (/ &
+ & 0.33057E+00_JPRB,0.50405E+00_JPRB,0.57184E+00_JPRB,0.61186E+00_JPRB,0.63239E+00_JPRB, &
+ & 0.63557E+00_JPRB,0.61864E+00_JPRB,0.57305E+00_JPRB,0.44151E+00_JPRB /)  
+KA(:, 4,13, 8) = (/ &
+ & 0.33705E+00_JPRB,0.51427E+00_JPRB,0.58428E+00_JPRB,0.62614E+00_JPRB,0.64825E+00_JPRB, &
+ & 0.65175E+00_JPRB,0.63492E+00_JPRB,0.58689E+00_JPRB,0.44893E+00_JPRB /)  
+KA(:, 5,13, 8) = (/ &
+ & 0.34636E+00_JPRB,0.52544E+00_JPRB,0.59740E+00_JPRB,0.64055E+00_JPRB,0.66342E+00_JPRB, &
+ & 0.66736E+00_JPRB,0.65002E+00_JPRB,0.60055E+00_JPRB,0.45487E+00_JPRB /)  
+KA(:, 1, 1, 9) = (/ &
+ & 0.72991E+01_JPRB,0.69722E+01_JPRB,0.72863E+01_JPRB,0.75002E+01_JPRB,0.75688E+01_JPRB, &
+ & 0.74622E+01_JPRB,0.71020E+01_JPRB,0.65825E+01_JPRB,0.69144E+01_JPRB /)  
+KA(:, 2, 1, 9) = (/ &
+ & 0.72210E+01_JPRB,0.69084E+01_JPRB,0.72319E+01_JPRB,0.74567E+01_JPRB,0.75409E+01_JPRB, &
+ & 0.74459E+01_JPRB,0.71001E+01_JPRB,0.65930E+01_JPRB,0.69213E+01_JPRB /)  
+KA(:, 3, 1, 9) = (/ &
+ & 0.71481E+01_JPRB,0.68475E+01_JPRB,0.71760E+01_JPRB,0.74130E+01_JPRB,0.75097E+01_JPRB, &
+ & 0.74266E+01_JPRB,0.70905E+01_JPRB,0.65992E+01_JPRB,0.69258E+01_JPRB /)  
+KA(:, 4, 1, 9) = (/ &
+ & 0.70810E+01_JPRB,0.67891E+01_JPRB,0.71222E+01_JPRB,0.73713E+01_JPRB,0.74785E+01_JPRB, &
+ & 0.74023E+01_JPRB,0.70766E+01_JPRB,0.66037E+01_JPRB,0.69303E+01_JPRB /)  
+KA(:, 5, 1, 9) = (/ &
+ & 0.70205E+01_JPRB,0.67342E+01_JPRB,0.70686E+01_JPRB,0.73258E+01_JPRB,0.74436E+01_JPRB, &
+ & 0.73740E+01_JPRB,0.70585E+01_JPRB,0.66060E+01_JPRB,0.69339E+01_JPRB /)  
+KA(:, 1, 2, 9) = (/ &
+ & 0.68023E+01_JPRB,0.66845E+01_JPRB,0.71435E+01_JPRB,0.74293E+01_JPRB,0.75528E+01_JPRB, &
+ & 0.74805E+01_JPRB,0.71383E+01_JPRB,0.65087E+01_JPRB,0.66425E+01_JPRB /)  
+KA(:, 2, 2, 9) = (/ &
+ & 0.67309E+01_JPRB,0.66228E+01_JPRB,0.70899E+01_JPRB,0.73862E+01_JPRB,0.75243E+01_JPRB, &
+ & 0.74671E+01_JPRB,0.71358E+01_JPRB,0.65240E+01_JPRB,0.66588E+01_JPRB /)  
+KA(:, 3, 2, 9) = (/ &
+ & 0.66680E+01_JPRB,0.65659E+01_JPRB,0.70365E+01_JPRB,0.73443E+01_JPRB,0.74954E+01_JPRB, &
+ & 0.74486E+01_JPRB,0.71260E+01_JPRB,0.65367E+01_JPRB,0.66745E+01_JPRB /)  
+KA(:, 4, 2, 9) = (/ &
+ & 0.66136E+01_JPRB,0.65139E+01_JPRB,0.69841E+01_JPRB,0.73016E+01_JPRB,0.74627E+01_JPRB, &
+ & 0.74252E+01_JPRB,0.71129E+01_JPRB,0.65455E+01_JPRB,0.66889E+01_JPRB /)  
+KA(:, 5, 2, 9) = (/ &
+ & 0.65687E+01_JPRB,0.64706E+01_JPRB,0.69322E+01_JPRB,0.72576E+01_JPRB,0.74266E+01_JPRB, &
+ & 0.73967E+01_JPRB,0.70986E+01_JPRB,0.65510E+01_JPRB,0.67011E+01_JPRB /)  
+KA(:, 1, 3, 9) = (/ &
+ & 0.62554E+01_JPRB,0.63717E+01_JPRB,0.69259E+01_JPRB,0.72750E+01_JPRB,0.74339E+01_JPRB, &
+ & 0.73812E+01_JPRB,0.70638E+01_JPRB,0.63830E+01_JPRB,0.62738E+01_JPRB /)  
+KA(:, 2, 3, 9) = (/ &
+ & 0.61935E+01_JPRB,0.63130E+01_JPRB,0.68741E+01_JPRB,0.72340E+01_JPRB,0.74081E+01_JPRB, &
+ & 0.73723E+01_JPRB,0.70661E+01_JPRB,0.64055E+01_JPRB,0.63017E+01_JPRB /)  
+KA(:, 3, 3, 9) = (/ &
+ & 0.61417E+01_JPRB,0.62609E+01_JPRB,0.68234E+01_JPRB,0.71924E+01_JPRB,0.73793E+01_JPRB, &
+ & 0.73559E+01_JPRB,0.70613E+01_JPRB,0.64217E+01_JPRB,0.63259E+01_JPRB /)  
+KA(:, 4, 3, 9) = (/ &
+ & 0.61027E+01_JPRB,0.62184E+01_JPRB,0.67754E+01_JPRB,0.71518E+01_JPRB,0.73493E+01_JPRB, &
+ & 0.73341E+01_JPRB,0.70537E+01_JPRB,0.64352E+01_JPRB,0.63471E+01_JPRB /)  
+KA(:, 5, 3, 9) = (/ &
+ & 0.60751E+01_JPRB,0.61846E+01_JPRB,0.67335E+01_JPRB,0.71090E+01_JPRB,0.73143E+01_JPRB, &
+ & 0.73100E+01_JPRB,0.70431E+01_JPRB,0.64459E+01_JPRB,0.63674E+01_JPRB /)  
+KA(:, 1, 4, 9) = (/ &
+ & 0.56712E+01_JPRB,0.60174E+01_JPRB,0.66407E+01_JPRB,0.70308E+01_JPRB,0.72054E+01_JPRB, &
+ & 0.71700E+01_JPRB,0.68768E+01_JPRB,0.62076E+01_JPRB,0.58601E+01_JPRB /)  
+KA(:, 2, 4, 9) = (/ &
+ & 0.56177E+01_JPRB,0.59637E+01_JPRB,0.65912E+01_JPRB,0.69914E+01_JPRB,0.71823E+01_JPRB, &
+ & 0.71644E+01_JPRB,0.68840E+01_JPRB,0.62360E+01_JPRB,0.58965E+01_JPRB /)  
+KA(:, 3, 4, 9) = (/ &
+ & 0.55798E+01_JPRB,0.59204E+01_JPRB,0.65459E+01_JPRB,0.69532E+01_JPRB,0.71589E+01_JPRB, &
+ & 0.71503E+01_JPRB,0.68872E+01_JPRB,0.62571E+01_JPRB,0.59275E+01_JPRB /)  
+KA(:, 4, 4, 9) = (/ &
+ & 0.55576E+01_JPRB,0.58874E+01_JPRB,0.65057E+01_JPRB,0.69160E+01_JPRB,0.71305E+01_JPRB, &
+ & 0.71327E+01_JPRB,0.68860E+01_JPRB,0.62738E+01_JPRB,0.59560E+01_JPRB /)  
+KA(:, 5, 4, 9) = (/ &
+ & 0.55509E+01_JPRB,0.58664E+01_JPRB,0.64735E+01_JPRB,0.68799E+01_JPRB,0.70989E+01_JPRB, &
+ & 0.71129E+01_JPRB,0.68803E+01_JPRB,0.62864E+01_JPRB,0.59817E+01_JPRB /)  
+KA(:, 1, 5, 9) = (/ &
+ & 0.50748E+01_JPRB,0.56236E+01_JPRB,0.62897E+01_JPRB,0.66937E+01_JPRB,0.68773E+01_JPRB, &
+ & 0.68583E+01_JPRB,0.65966E+01_JPRB,0.59739E+01_JPRB,0.54247E+01_JPRB /)  
+KA(:, 2, 5, 9) = (/ &
+ & 0.50332E+01_JPRB,0.55772E+01_JPRB,0.62435E+01_JPRB,0.66588E+01_JPRB,0.68602E+01_JPRB, &
+ & 0.68553E+01_JPRB,0.66099E+01_JPRB,0.60056E+01_JPRB,0.54668E+01_JPRB /)  
+KA(:, 3, 5, 9) = (/ &
+ & 0.50094E+01_JPRB,0.55429E+01_JPRB,0.62032E+01_JPRB,0.66264E+01_JPRB,0.68392E+01_JPRB, &
+ & 0.68457E+01_JPRB,0.66198E+01_JPRB,0.60291E+01_JPRB,0.55024E+01_JPRB /)  
+KA(:, 4, 5, 9) = (/ &
+ & 0.50054E+01_JPRB,0.55221E+01_JPRB,0.61728E+01_JPRB,0.65959E+01_JPRB,0.68138E+01_JPRB, &
+ & 0.68347E+01_JPRB,0.66239E+01_JPRB,0.60504E+01_JPRB,0.55378E+01_JPRB /)  
+KA(:, 5, 5, 9) = (/ &
+ & 0.50196E+01_JPRB,0.55140E+01_JPRB,0.61502E+01_JPRB,0.65696E+01_JPRB,0.67880E+01_JPRB, &
+ & 0.68224E+01_JPRB,0.66232E+01_JPRB,0.60661E+01_JPRB,0.55660E+01_JPRB /)  
+KA(:, 1, 6, 9) = (/ &
+ & 0.44929E+01_JPRB,0.51985E+01_JPRB,0.58791E+01_JPRB,0.62757E+01_JPRB,0.64716E+01_JPRB, &
+ & 0.64669E+01_JPRB,0.62368E+01_JPRB,0.56853E+01_JPRB,0.49792E+01_JPRB /)  
+KA(:, 2, 6, 9) = (/ &
+ & 0.44612E+01_JPRB,0.51596E+01_JPRB,0.58385E+01_JPRB,0.62487E+01_JPRB,0.64570E+01_JPRB, &
+ & 0.64678E+01_JPRB,0.62575E+01_JPRB,0.57196E+01_JPRB,0.50244E+01_JPRB /)  
+KA(:, 3, 6, 9) = (/ &
+ & 0.44521E+01_JPRB,0.51348E+01_JPRB,0.58071E+01_JPRB,0.62248E+01_JPRB,0.64383E+01_JPRB, &
+ & 0.64639E+01_JPRB,0.62747E+01_JPRB,0.57459E+01_JPRB,0.50676E+01_JPRB /)  
+KA(:, 4, 6, 9) = (/ &
+ & 0.44651E+01_JPRB,0.51248E+01_JPRB,0.57862E+01_JPRB,0.62029E+01_JPRB,0.64206E+01_JPRB, &
+ & 0.64594E+01_JPRB,0.62829E+01_JPRB,0.57703E+01_JPRB,0.51061E+01_JPRB /)  
+KA(:, 5, 6, 9) = (/ &
+ & 0.44974E+01_JPRB,0.51321E+01_JPRB,0.57769E+01_JPRB,0.61847E+01_JPRB,0.64045E+01_JPRB, &
+ & 0.64518E+01_JPRB,0.62850E+01_JPRB,0.57880E+01_JPRB,0.51383E+01_JPRB /)  
+KA(:, 1, 7, 9) = (/ &
+ & 0.39405E+01_JPRB,0.47599E+01_JPRB,0.54183E+01_JPRB,0.58070E+01_JPRB,0.60002E+01_JPRB, &
+ & 0.60137E+01_JPRB,0.58231E+01_JPRB,0.53430E+01_JPRB,0.45395E+01_JPRB /)  
+KA(:, 2, 7, 9) = (/ &
+ & 0.39200E+01_JPRB,0.47279E+01_JPRB,0.53865E+01_JPRB,0.57866E+01_JPRB,0.59900E+01_JPRB, &
+ & 0.60178E+01_JPRB,0.58493E+01_JPRB,0.53803E+01_JPRB,0.45897E+01_JPRB /)  
+KA(:, 3, 7, 9) = (/ &
+ & 0.39243E+01_JPRB,0.47128E+01_JPRB,0.53651E+01_JPRB,0.57689E+01_JPRB,0.59779E+01_JPRB, &
+ & 0.60210E+01_JPRB,0.58689E+01_JPRB,0.54093E+01_JPRB,0.46370E+01_JPRB /)  
+KA(:, 4, 7, 9) = (/ &
+ & 0.39509E+01_JPRB,0.47158E+01_JPRB,0.53566E+01_JPRB,0.57541E+01_JPRB,0.59686E+01_JPRB, &
+ & 0.60221E+01_JPRB,0.58794E+01_JPRB,0.54360E+01_JPRB,0.46801E+01_JPRB /)  
+KA(:, 5, 7, 9) = (/ &
+ & 0.39997E+01_JPRB,0.47365E+01_JPRB,0.53625E+01_JPRB,0.57480E+01_JPRB,0.59641E+01_JPRB, &
+ & 0.60191E+01_JPRB,0.58864E+01_JPRB,0.54567E+01_JPRB,0.47154E+01_JPRB /)  
+KA(:, 1, 8, 9) = (/ &
+ & 0.34277E+01_JPRB,0.43224E+01_JPRB,0.49312E+01_JPRB,0.53036E+01_JPRB,0.54930E+01_JPRB, &
+ & 0.55228E+01_JPRB,0.53766E+01_JPRB,0.49651E+01_JPRB,0.41155E+01_JPRB /)  
+KA(:, 2, 8, 9) = (/ &
+ & 0.34174E+01_JPRB,0.42976E+01_JPRB,0.49104E+01_JPRB,0.52883E+01_JPRB,0.54862E+01_JPRB, &
+ & 0.55322E+01_JPRB,0.54048E+01_JPRB,0.50049E+01_JPRB,0.41706E+01_JPRB /)  
+KA(:, 3, 8, 9) = (/ &
+ & 0.34328E+01_JPRB,0.42901E+01_JPRB,0.49000E+01_JPRB,0.52782E+01_JPRB,0.54821E+01_JPRB, &
+ & 0.55409E+01_JPRB,0.54257E+01_JPRB,0.50383E+01_JPRB,0.42218E+01_JPRB /)  
+KA(:, 4, 8, 9) = (/ &
+ & 0.34724E+01_JPRB,0.43054E+01_JPRB,0.49030E+01_JPRB,0.52739E+01_JPRB,0.54825E+01_JPRB, &
+ & 0.55468E+01_JPRB,0.54402E+01_JPRB,0.50678E+01_JPRB,0.42656E+01_JPRB /)  
+KA(:, 5, 8, 9) = (/ &
+ & 0.35331E+01_JPRB,0.43394E+01_JPRB,0.49199E+01_JPRB,0.52816E+01_JPRB,0.54871E+01_JPRB, &
+ & 0.55512E+01_JPRB,0.54505E+01_JPRB,0.50918E+01_JPRB,0.43035E+01_JPRB /)  
+KA(:, 1, 9, 9) = (/ &
+ & 0.29643E+01_JPRB,0.38841E+01_JPRB,0.44459E+01_JPRB,0.47885E+01_JPRB,0.49734E+01_JPRB, &
+ & 0.50221E+01_JPRB,0.49131E+01_JPRB,0.45659E+01_JPRB,0.37057E+01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART6',1,ZHOOK_HANDLE)
+END SUBROUTINE PART6
+
+
+SUBROUTINE PART7
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART7',0,ZHOOK_HANDLE)
+
+
+KA(:, 2, 9, 9) = (/ &
+ & 0.29616E+01_JPRB,0.38662E+01_JPRB,0.44298E+01_JPRB,0.47788E+01_JPRB,0.49743E+01_JPRB, &
+ & 0.50365E+01_JPRB,0.49428E+01_JPRB,0.46088E+01_JPRB,0.37656E+01_JPRB /)  
+KA(:, 3, 9, 9) = (/ &
+ & 0.29848E+01_JPRB,0.38693E+01_JPRB,0.44274E+01_JPRB,0.47752E+01_JPRB,0.49768E+01_JPRB, &
+ & 0.50477E+01_JPRB,0.49663E+01_JPRB,0.46464E+01_JPRB,0.38194E+01_JPRB /)  
+KA(:, 4, 9, 9) = (/ &
+ & 0.30329E+01_JPRB,0.38944E+01_JPRB,0.44404E+01_JPRB,0.47824E+01_JPRB,0.49850E+01_JPRB, &
+ & 0.50582E+01_JPRB,0.49851E+01_JPRB,0.46790E+01_JPRB,0.38645E+01_JPRB /)  
+KA(:, 5, 9, 9) = (/ &
+ & 0.31033E+01_JPRB,0.39395E+01_JPRB,0.44689E+01_JPRB,0.48029E+01_JPRB,0.49990E+01_JPRB, &
+ & 0.50689E+01_JPRB,0.50004E+01_JPRB,0.47030E+01_JPRB,0.39063E+01_JPRB /)  
+KA(:, 1,10, 9) = (/ &
+ & 0.25528E+01_JPRB,0.34541E+01_JPRB,0.39652E+01_JPRB,0.42831E+01_JPRB,0.44659E+01_JPRB, &
+ & 0.45285E+01_JPRB,0.44509E+01_JPRB,0.41587E+01_JPRB,0.32612E+01_JPRB /)  
+KA(:, 2,10, 9) = (/ &
+ & 0.25575E+01_JPRB,0.34458E+01_JPRB,0.39558E+01_JPRB,0.42802E+01_JPRB,0.44723E+01_JPRB, &
+ & 0.45451E+01_JPRB,0.44820E+01_JPRB,0.42051E+01_JPRB,0.33240E+01_JPRB /)  
+KA(:, 3,10, 9) = (/ &
+ & 0.25883E+01_JPRB,0.34607E+01_JPRB,0.39625E+01_JPRB,0.42854E+01_JPRB,0.44811E+01_JPRB, &
+ & 0.45602E+01_JPRB,0.45090E+01_JPRB,0.42460E+01_JPRB,0.33785E+01_JPRB /)  
+KA(:, 4,10, 9) = (/ &
+ & 0.26435E+01_JPRB,0.34963E+01_JPRB,0.39867E+01_JPRB,0.43038E+01_JPRB,0.44956E+01_JPRB, &
+ & 0.45761E+01_JPRB,0.45312E+01_JPRB,0.42799E+01_JPRB,0.34270E+01_JPRB /)  
+KA(:, 5,10, 9) = (/ &
+ & 0.27203E+01_JPRB,0.35517E+01_JPRB,0.40270E+01_JPRB,0.43344E+01_JPRB,0.45189E+01_JPRB, &
+ & 0.45941E+01_JPRB,0.45504E+01_JPRB,0.43065E+01_JPRB,0.34705E+01_JPRB /)  
+KA(:, 1,11, 9) = (/ &
+ & 0.21958E+01_JPRB,0.30498E+01_JPRB,0.35059E+01_JPRB,0.38049E+01_JPRB,0.39876E+01_JPRB, &
+ & 0.40622E+01_JPRB,0.40123E+01_JPRB,0.37729E+01_JPRB,0.28786E+01_JPRB /)  
+KA(:, 2,11, 9) = (/ &
+ & 0.22177E+01_JPRB,0.30598E+01_JPRB,0.35116E+01_JPRB,0.38116E+01_JPRB,0.39989E+01_JPRB, &
+ & 0.40819E+01_JPRB,0.40442E+01_JPRB,0.38191E+01_JPRB,0.29389E+01_JPRB /)  
+KA(:, 3,11, 9) = (/ &
+ & 0.22647E+01_JPRB,0.30907E+01_JPRB,0.35359E+01_JPRB,0.38306E+01_JPRB,0.40167E+01_JPRB, &
+ & 0.41020E+01_JPRB,0.40724E+01_JPRB,0.38578E+01_JPRB,0.29915E+01_JPRB /)  
+KA(:, 4,11, 9) = (/ &
+ & 0.23337E+01_JPRB,0.31425E+01_JPRB,0.35763E+01_JPRB,0.38632E+01_JPRB,0.40437E+01_JPRB, &
+ & 0.41245E+01_JPRB,0.40973E+01_JPRB,0.38902E+01_JPRB,0.30386E+01_JPRB /)  
+KA(:, 5,11, 9) = (/ &
+ & 0.24135E+01_JPRB,0.32120E+01_JPRB,0.36330E+01_JPRB,0.39077E+01_JPRB,0.40797E+01_JPRB, &
+ & 0.41526E+01_JPRB,0.41204E+01_JPRB,0.39195E+01_JPRB,0.30818E+01_JPRB /)  
+KA(:, 1,12, 9) = (/ &
+ & 0.18956E+01_JPRB,0.26861E+01_JPRB,0.30931E+01_JPRB,0.33674E+01_JPRB,0.35425E+01_JPRB, &
+ & 0.36210E+01_JPRB,0.35899E+01_JPRB,0.33921E+01_JPRB,0.25824E+01_JPRB /)  
+KA(:, 2,12, 9) = (/ &
+ & 0.19314E+01_JPRB,0.27108E+01_JPRB,0.31141E+01_JPRB,0.33855E+01_JPRB,0.35620E+01_JPRB, &
+ & 0.36450E+01_JPRB,0.36224E+01_JPRB,0.34362E+01_JPRB,0.26351E+01_JPRB /)  
+KA(:, 3,12, 9) = (/ &
+ & 0.19899E+01_JPRB,0.27565E+01_JPRB,0.31515E+01_JPRB,0.34177E+01_JPRB,0.35909E+01_JPRB, &
+ & 0.36718E+01_JPRB,0.36517E+01_JPRB,0.34743E+01_JPRB,0.26837E+01_JPRB /)  
+KA(:, 4,12, 9) = (/ &
+ & 0.20599E+01_JPRB,0.28211E+01_JPRB,0.32055E+01_JPRB,0.34628E+01_JPRB,0.36291E+01_JPRB, &
+ & 0.37038E+01_JPRB,0.36800E+01_JPRB,0.35081E+01_JPRB,0.27286E+01_JPRB /)  
+KA(:, 5,12, 9) = (/ &
+ & 0.21342E+01_JPRB,0.28994E+01_JPRB,0.32752E+01_JPRB,0.35201E+01_JPRB,0.36745E+01_JPRB, &
+ & 0.37420E+01_JPRB,0.37112E+01_JPRB,0.35392E+01_JPRB,0.27703E+01_JPRB /)  
+KA(:, 1,13, 9) = (/ &
+ & 0.16403E+01_JPRB,0.23651E+01_JPRB,0.27290E+01_JPRB,0.29746E+01_JPRB,0.31326E+01_JPRB, &
+ & 0.32080E+01_JPRB,0.31891E+01_JPRB,0.30274E+01_JPRB,0.23307E+01_JPRB /)  
+KA(:, 2,13, 9) = (/ &
+ & 0.16863E+01_JPRB,0.24025E+01_JPRB,0.27611E+01_JPRB,0.30044E+01_JPRB,0.31618E+01_JPRB, &
+ & 0.32369E+01_JPRB,0.32226E+01_JPRB,0.30700E+01_JPRB,0.23815E+01_JPRB /)  
+KA(:, 3,13, 9) = (/ &
+ & 0.17455E+01_JPRB,0.24598E+01_JPRB,0.28102E+01_JPRB,0.30475E+01_JPRB,0.32007E+01_JPRB, &
+ & 0.32722E+01_JPRB,0.32554E+01_JPRB,0.31073E+01_JPRB,0.24291E+01_JPRB /)  
+KA(:, 4,13, 9) = (/ &
+ & 0.18100E+01_JPRB,0.25311E+01_JPRB,0.28759E+01_JPRB,0.31035E+01_JPRB,0.32472E+01_JPRB, &
+ & 0.33131E+01_JPRB,0.32901E+01_JPRB,0.31417E+01_JPRB,0.24730E+01_JPRB /)  
+KA(:, 5,13, 9) = (/ &
+ & 0.18736E+01_JPRB,0.26085E+01_JPRB,0.29527E+01_JPRB,0.31711E+01_JPRB,0.33027E+01_JPRB, &
+ & 0.33589E+01_JPRB,0.33290E+01_JPRB,0.31763E+01_JPRB,0.25126E+01_JPRB /)  
+KA(:, 1, 1,10) = (/ &
+ & 0.19065E+02_JPRB,0.16899E+02_JPRB,0.15643E+02_JPRB,0.15578E+02_JPRB,0.15043E+02_JPRB, &
+ & 0.14288E+02_JPRB,0.13684E+02_JPRB,0.14703E+02_JPRB,0.16312E+02_JPRB /)  
+KA(:, 2, 1,10) = (/ &
+ & 0.18912E+02_JPRB,0.16761E+02_JPRB,0.15514E+02_JPRB,0.15480E+02_JPRB,0.14973E+02_JPRB, &
+ & 0.14273E+02_JPRB,0.13717E+02_JPRB,0.14749E+02_JPRB,0.16352E+02_JPRB /)  
+KA(:, 3, 1,10) = (/ &
+ & 0.18728E+02_JPRB,0.16596E+02_JPRB,0.15380E+02_JPRB,0.15367E+02_JPRB,0.14915E+02_JPRB, &
+ & 0.14240E+02_JPRB,0.13761E+02_JPRB,0.14772E+02_JPRB,0.16373E+02_JPRB /)  
+KA(:, 4, 1,10) = (/ &
+ & 0.18544E+02_JPRB,0.16434E+02_JPRB,0.15250E+02_JPRB,0.15223E+02_JPRB,0.14839E+02_JPRB, &
+ & 0.14214E+02_JPRB,0.13761E+02_JPRB,0.14749E+02_JPRB,0.16351E+02_JPRB /)  
+KA(:, 5, 1,10) = (/ &
+ & 0.18333E+02_JPRB,0.16256E+02_JPRB,0.15122E+02_JPRB,0.15098E+02_JPRB,0.14749E+02_JPRB, &
+ & 0.14176E+02_JPRB,0.13735E+02_JPRB,0.14720E+02_JPRB,0.16309E+02_JPRB /)  
+KA(:, 1, 2,10) = (/ &
+ & 0.19359E+02_JPRB,0.17148E+02_JPRB,0.16419E+02_JPRB,0.16424E+02_JPRB,0.16006E+02_JPRB, &
+ & 0.15375E+02_JPRB,0.14545E+02_JPRB,0.15202E+02_JPRB,0.16997E+02_JPRB /)  
+KA(:, 2, 2,10) = (/ &
+ & 0.19172E+02_JPRB,0.16980E+02_JPRB,0.16267E+02_JPRB,0.16317E+02_JPRB,0.15911E+02_JPRB, &
+ & 0.15334E+02_JPRB,0.14618E+02_JPRB,0.15283E+02_JPRB,0.17084E+02_JPRB /)  
+KA(:, 3, 2,10) = (/ &
+ & 0.18973E+02_JPRB,0.16804E+02_JPRB,0.16126E+02_JPRB,0.16185E+02_JPRB,0.15827E+02_JPRB, &
+ & 0.15302E+02_JPRB,0.14664E+02_JPRB,0.15280E+02_JPRB,0.17092E+02_JPRB /)  
+KA(:, 4, 2,10) = (/ &
+ & 0.18751E+02_JPRB,0.16617E+02_JPRB,0.15988E+02_JPRB,0.16055E+02_JPRB,0.15738E+02_JPRB, &
+ & 0.15272E+02_JPRB,0.14654E+02_JPRB,0.15237E+02_JPRB,0.17035E+02_JPRB /)  
+KA(:, 5, 2,10) = (/ &
+ & 0.18520E+02_JPRB,0.16417E+02_JPRB,0.15855E+02_JPRB,0.15950E+02_JPRB,0.15639E+02_JPRB, &
+ & 0.15219E+02_JPRB,0.14617E+02_JPRB,0.15192E+02_JPRB,0.16961E+02_JPRB /)  
+KA(:, 1, 3,10) = (/ &
+ & 0.19263E+02_JPRB,0.17075E+02_JPRB,0.17060E+02_JPRB,0.17120E+02_JPRB,0.16883E+02_JPRB, &
+ & 0.16381E+02_JPRB,0.15414E+02_JPRB,0.15455E+02_JPRB,0.17398E+02_JPRB /)  
+KA(:, 2, 3,10) = (/ &
+ & 0.19059E+02_JPRB,0.16894E+02_JPRB,0.16898E+02_JPRB,0.17000E+02_JPRB,0.16773E+02_JPRB, &
+ & 0.16323E+02_JPRB,0.15500E+02_JPRB,0.15491E+02_JPRB,0.17437E+02_JPRB /)  
+KA(:, 3, 3,10) = (/ &
+ & 0.18835E+02_JPRB,0.16708E+02_JPRB,0.16745E+02_JPRB,0.16865E+02_JPRB,0.16669E+02_JPRB, &
+ & 0.16285E+02_JPRB,0.15530E+02_JPRB,0.15496E+02_JPRB,0.17423E+02_JPRB /)  
+KA(:, 4, 3,10) = (/ &
+ & 0.18600E+02_JPRB,0.16513E+02_JPRB,0.16588E+02_JPRB,0.16744E+02_JPRB,0.16560E+02_JPRB, &
+ & 0.16244E+02_JPRB,0.15515E+02_JPRB,0.15476E+02_JPRB,0.17372E+02_JPRB /)  
+KA(:, 5, 3,10) = (/ &
+ & 0.18358E+02_JPRB,0.16312E+02_JPRB,0.16416E+02_JPRB,0.16627E+02_JPRB,0.16462E+02_JPRB, &
+ & 0.16172E+02_JPRB,0.15490E+02_JPRB,0.15433E+02_JPRB,0.17293E+02_JPRB /)  
+KA(:, 1, 4,10) = (/ &
+ & 0.18801E+02_JPRB,0.16888E+02_JPRB,0.17351E+02_JPRB,0.17638E+02_JPRB,0.17654E+02_JPRB, &
+ & 0.17241E+02_JPRB,0.16305E+02_JPRB,0.15458E+02_JPRB,0.17321E+02_JPRB /)  
+KA(:, 2, 4,10) = (/ &
+ & 0.18579E+02_JPRB,0.16692E+02_JPRB,0.17197E+02_JPRB,0.17496E+02_JPRB,0.17520E+02_JPRB, &
+ & 0.17188E+02_JPRB,0.16384E+02_JPRB,0.15486E+02_JPRB,0.17346E+02_JPRB /)  
+KA(:, 3, 4,10) = (/ &
+ & 0.18342E+02_JPRB,0.16488E+02_JPRB,0.17035E+02_JPRB,0.17349E+02_JPRB,0.17380E+02_JPRB, &
+ & 0.17158E+02_JPRB,0.16385E+02_JPRB,0.15526E+02_JPRB,0.17367E+02_JPRB /)  
+KA(:, 4, 4,10) = (/ &
+ & 0.18091E+02_JPRB,0.16279E+02_JPRB,0.16863E+02_JPRB,0.17208E+02_JPRB,0.17266E+02_JPRB, &
+ & 0.17103E+02_JPRB,0.16355E+02_JPRB,0.15560E+02_JPRB,0.17358E+02_JPRB /)  
+KA(:, 5, 4,10) = (/ &
+ & 0.17836E+02_JPRB,0.16059E+02_JPRB,0.16677E+02_JPRB,0.17068E+02_JPRB,0.17166E+02_JPRB, &
+ & 0.17011E+02_JPRB,0.16312E+02_JPRB,0.15578E+02_JPRB,0.17344E+02_JPRB /)  
+KA(:, 1, 5,10) = (/ &
+ & 0.17961E+02_JPRB,0.16659E+02_JPRB,0.17334E+02_JPRB,0.17976E+02_JPRB,0.18171E+02_JPRB, &
+ & 0.17832E+02_JPRB,0.16966E+02_JPRB,0.15432E+02_JPRB,0.16855E+02_JPRB /)  
+KA(:, 2, 5,10) = (/ &
+ & 0.17714E+02_JPRB,0.16442E+02_JPRB,0.17178E+02_JPRB,0.17800E+02_JPRB,0.18030E+02_JPRB, &
+ & 0.17804E+02_JPRB,0.17004E+02_JPRB,0.15487E+02_JPRB,0.16904E+02_JPRB /)  
+KA(:, 3, 5,10) = (/ &
+ & 0.17470E+02_JPRB,0.16231E+02_JPRB,0.17012E+02_JPRB,0.17636E+02_JPRB,0.17902E+02_JPRB, &
+ & 0.17774E+02_JPRB,0.16959E+02_JPRB,0.15590E+02_JPRB,0.16987E+02_JPRB /)  
+KA(:, 4, 5,10) = (/ &
+ & 0.17221E+02_JPRB,0.16002E+02_JPRB,0.16835E+02_JPRB,0.17477E+02_JPRB,0.17804E+02_JPRB, &
+ & 0.17680E+02_JPRB,0.16923E+02_JPRB,0.15646E+02_JPRB,0.17004E+02_JPRB /)  
+KA(:, 5, 5,10) = (/ &
+ & 0.16955E+02_JPRB,0.15778E+02_JPRB,0.16648E+02_JPRB,0.17325E+02_JPRB,0.17709E+02_JPRB, &
+ & 0.17576E+02_JPRB,0.16895E+02_JPRB,0.15664E+02_JPRB,0.17027E+02_JPRB /)  
+KA(:, 1, 6,10) = (/ &
+ & 0.16796E+02_JPRB,0.16241E+02_JPRB,0.17123E+02_JPRB,0.18098E+02_JPRB,0.18345E+02_JPRB, &
+ & 0.18145E+02_JPRB,0.17297E+02_JPRB,0.15317E+02_JPRB,0.16076E+02_JPRB /)  
+KA(:, 2, 6,10) = (/ &
+ & 0.16561E+02_JPRB,0.16019E+02_JPRB,0.16973E+02_JPRB,0.17901E+02_JPRB,0.18253E+02_JPRB, &
+ & 0.18123E+02_JPRB,0.17284E+02_JPRB,0.15411E+02_JPRB,0.16194E+02_JPRB /)  
+KA(:, 3, 6,10) = (/ &
+ & 0.16307E+02_JPRB,0.15790E+02_JPRB,0.16801E+02_JPRB,0.17722E+02_JPRB,0.18189E+02_JPRB, &
+ & 0.18068E+02_JPRB,0.17217E+02_JPRB,0.15556E+02_JPRB,0.16309E+02_JPRB /)  
+KA(:, 4, 6,10) = (/ &
+ & 0.16045E+02_JPRB,0.15571E+02_JPRB,0.16615E+02_JPRB,0.17565E+02_JPRB,0.18113E+02_JPRB, &
+ & 0.17968E+02_JPRB,0.17201E+02_JPRB,0.15625E+02_JPRB,0.16374E+02_JPRB /)  
+KA(:, 5, 6,10) = (/ &
+ & 0.15792E+02_JPRB,0.15350E+02_JPRB,0.16424E+02_JPRB,0.17437E+02_JPRB,0.17997E+02_JPRB, &
+ & 0.17869E+02_JPRB,0.17203E+02_JPRB,0.15664E+02_JPRB,0.16420E+02_JPRB /)  
+KA(:, 1, 7,10) = (/ &
+ & 0.15441E+02_JPRB,0.15555E+02_JPRB,0.16836E+02_JPRB,0.17857E+02_JPRB,0.18265E+02_JPRB, &
+ & 0.18114E+02_JPRB,0.17249E+02_JPRB,0.15143E+02_JPRB,0.15078E+02_JPRB /)  
+KA(:, 2, 7,10) = (/ &
+ & 0.15190E+02_JPRB,0.15341E+02_JPRB,0.16649E+02_JPRB,0.17679E+02_JPRB,0.18211E+02_JPRB, &
+ & 0.18098E+02_JPRB,0.17215E+02_JPRB,0.15278E+02_JPRB,0.15251E+02_JPRB /)  
+KA(:, 3, 7,10) = (/ &
+ & 0.14946E+02_JPRB,0.15122E+02_JPRB,0.16458E+02_JPRB,0.17534E+02_JPRB,0.18165E+02_JPRB, &
+ & 0.18029E+02_JPRB,0.17165E+02_JPRB,0.15443E+02_JPRB,0.15389E+02_JPRB /)  
+KA(:, 4, 7,10) = (/ &
+ & 0.14700E+02_JPRB,0.14908E+02_JPRB,0.16252E+02_JPRB,0.17424E+02_JPRB,0.18072E+02_JPRB, &
+ & 0.17929E+02_JPRB,0.17187E+02_JPRB,0.15518E+02_JPRB,0.15458E+02_JPRB /)  
+KA(:, 5, 7,10) = (/ &
+ & 0.14445E+02_JPRB,0.14710E+02_JPRB,0.16048E+02_JPRB,0.17304E+02_JPRB,0.17932E+02_JPRB, &
+ & 0.17873E+02_JPRB,0.17206E+02_JPRB,0.15573E+02_JPRB,0.15541E+02_JPRB /)  
+KA(:, 1, 8,10) = (/ &
+ & 0.13963E+02_JPRB,0.14641E+02_JPRB,0.16339E+02_JPRB,0.17287E+02_JPRB,0.17853E+02_JPRB, &
+ & 0.17712E+02_JPRB,0.16836E+02_JPRB,0.14867E+02_JPRB,0.13958E+02_JPRB /)  
+KA(:, 2, 8,10) = (/ &
+ & 0.13720E+02_JPRB,0.14441E+02_JPRB,0.16121E+02_JPRB,0.17175E+02_JPRB,0.17806E+02_JPRB, &
+ & 0.17701E+02_JPRB,0.16817E+02_JPRB,0.15013E+02_JPRB,0.14139E+02_JPRB /)  
+KA(:, 3, 8,10) = (/ &
+ & 0.13475E+02_JPRB,0.14253E+02_JPRB,0.15918E+02_JPRB,0.17071E+02_JPRB,0.17741E+02_JPRB, &
+ & 0.17634E+02_JPRB,0.16820E+02_JPRB,0.15155E+02_JPRB,0.14269E+02_JPRB /)  
+KA(:, 4, 8,10) = (/ &
+ & 0.13235E+02_JPRB,0.14056E+02_JPRB,0.15727E+02_JPRB,0.16983E+02_JPRB,0.17630E+02_JPRB, &
+ & 0.17564E+02_JPRB,0.16869E+02_JPRB,0.15238E+02_JPRB,0.14383E+02_JPRB /)  
+KA(:, 5, 8,10) = (/ &
+ & 0.13009E+02_JPRB,0.13855E+02_JPRB,0.15556E+02_JPRB,0.16857E+02_JPRB,0.17508E+02_JPRB, &
+ & 0.17529E+02_JPRB,0.16912E+02_JPRB,0.15302E+02_JPRB,0.14496E+02_JPRB /)  
+KA(:, 1, 9,10) = (/ &
+ & 0.12422E+02_JPRB,0.13743E+02_JPRB,0.15496E+02_JPRB,0.16530E+02_JPRB,0.17068E+02_JPRB, &
+ & 0.16944E+02_JPRB,0.16119E+02_JPRB,0.14360E+02_JPRB,0.12852E+02_JPRB /)  
+KA(:, 2, 9,10) = (/ &
+ & 0.12195E+02_JPRB,0.13543E+02_JPRB,0.15328E+02_JPRB,0.16447E+02_JPRB,0.17000E+02_JPRB, &
+ & 0.16934E+02_JPRB,0.16148E+02_JPRB,0.14484E+02_JPRB,0.13012E+02_JPRB /)  
+KA(:, 3, 9,10) = (/ &
+ & 0.11972E+02_JPRB,0.13354E+02_JPRB,0.15163E+02_JPRB,0.16359E+02_JPRB,0.16940E+02_JPRB, &
+ & 0.16900E+02_JPRB,0.16191E+02_JPRB,0.14599E+02_JPRB,0.13152E+02_JPRB /)  
+KA(:, 4, 9,10) = (/ &
+ & 0.11752E+02_JPRB,0.13166E+02_JPRB,0.15011E+02_JPRB,0.16249E+02_JPRB,0.16842E+02_JPRB, &
+ & 0.16880E+02_JPRB,0.16254E+02_JPRB,0.14688E+02_JPRB,0.13295E+02_JPRB /)  
+KA(:, 5, 9,10) = (/ &
+ & 0.11542E+02_JPRB,0.12972E+02_JPRB,0.14878E+02_JPRB,0.16107E+02_JPRB,0.16750E+02_JPRB, &
+ & 0.16884E+02_JPRB,0.16301E+02_JPRB,0.14790E+02_JPRB,0.13417E+02_JPRB /)  
+KA(:, 1,10,10) = (/ &
+ & 0.10883E+02_JPRB,0.12799E+02_JPRB,0.14471E+02_JPRB,0.15523E+02_JPRB,0.15963E+02_JPRB, &
+ & 0.15867E+02_JPRB,0.15188E+02_JPRB,0.13687E+02_JPRB,0.11830E+02_JPRB /)  
+KA(:, 2,10,10) = (/ &
+ & 0.10669E+02_JPRB,0.12615E+02_JPRB,0.14351E+02_JPRB,0.15423E+02_JPRB,0.15920E+02_JPRB, &
+ & 0.15883E+02_JPRB,0.15251E+02_JPRB,0.13796E+02_JPRB,0.11997E+02_JPRB /)  
+KA(:, 3,10,10) = (/ &
+ & 0.10461E+02_JPRB,0.12417E+02_JPRB,0.14235E+02_JPRB,0.15340E+02_JPRB,0.15857E+02_JPRB, &
+ & 0.15885E+02_JPRB,0.15315E+02_JPRB,0.13895E+02_JPRB,0.12154E+02_JPRB /)  
+KA(:, 4,10,10) = (/ &
+ & 0.10271E+02_JPRB,0.12218E+02_JPRB,0.14109E+02_JPRB,0.15234E+02_JPRB,0.15808E+02_JPRB, &
+ & 0.15905E+02_JPRB,0.15383E+02_JPRB,0.14000E+02_JPRB,0.12311E+02_JPRB /)  
+KA(:, 5,10,10) = (/ &
+ & 0.10108E+02_JPRB,0.12035E+02_JPRB,0.13977E+02_JPRB,0.15117E+02_JPRB,0.15764E+02_JPRB, &
+ & 0.15927E+02_JPRB,0.15450E+02_JPRB,0.14121E+02_JPRB,0.12430E+02_JPRB /)  
+KA(:, 1,11,10) = (/ &
+ & 0.93334E+01_JPRB,0.11625E+02_JPRB,0.13302E+02_JPRB,0.14226E+02_JPRB,0.14663E+02_JPRB, &
+ & 0.14671E+02_JPRB,0.14179E+02_JPRB,0.12958E+02_JPRB,0.10939E+02_JPRB /)  
+KA(:, 2,11,10) = (/ &
+ & 0.91435E+01_JPRB,0.11452E+02_JPRB,0.13192E+02_JPRB,0.14163E+02_JPRB,0.14640E+02_JPRB, &
+ & 0.14697E+02_JPRB,0.14256E+02_JPRB,0.13072E+02_JPRB,0.11104E+02_JPRB /)  
+KA(:, 3,11,10) = (/ &
+ & 0.89744E+01_JPRB,0.11286E+02_JPRB,0.13068E+02_JPRB,0.14085E+02_JPRB,0.14619E+02_JPRB, &
+ & 0.14728E+02_JPRB,0.14326E+02_JPRB,0.13192E+02_JPRB,0.11276E+02_JPRB /)  
+KA(:, 4,11,10) = (/ &
+ & 0.88386E+01_JPRB,0.11134E+02_JPRB,0.12957E+02_JPRB,0.14008E+02_JPRB,0.14602E+02_JPRB, &
+ & 0.14761E+02_JPRB,0.14404E+02_JPRB,0.13322E+02_JPRB,0.11423E+02_JPRB /)  
+KA(:, 5,11,10) = (/ &
+ & 0.88280E+01_JPRB,0.11011E+02_JPRB,0.12844E+02_JPRB,0.13942E+02_JPRB,0.14584E+02_JPRB, &
+ & 0.14790E+02_JPRB,0.14494E+02_JPRB,0.13437E+02_JPRB,0.11537E+02_JPRB /)  
+KA(:, 1,12,10) = (/ &
+ & 0.79516E+01_JPRB,0.10418E+02_JPRB,0.11985E+02_JPRB,0.12856E+02_JPRB,0.13326E+02_JPRB, &
+ & 0.13448E+02_JPRB,0.13142E+02_JPRB,0.12163E+02_JPRB,0.97408E+01_JPRB /)  
+KA(:, 2,12,10) = (/ &
+ & 0.78004E+01_JPRB,0.10286E+02_JPRB,0.11886E+02_JPRB,0.12812E+02_JPRB,0.13327E+02_JPRB, &
+ & 0.13488E+02_JPRB,0.13229E+02_JPRB,0.12301E+02_JPRB,0.99474E+01_JPRB /)  
+KA(:, 3,12,10) = (/ &
+ & 0.76847E+01_JPRB,0.10169E+02_JPRB,0.11799E+02_JPRB,0.12768E+02_JPRB,0.13325E+02_JPRB, &
+ & 0.13529E+02_JPRB,0.13323E+02_JPRB,0.12442E+02_JPRB,0.10130E+02_JPRB /)  
+KA(:, 4,12,10) = (/ &
+ & 0.76979E+01_JPRB,0.10072E+02_JPRB,0.11716E+02_JPRB,0.12735E+02_JPRB,0.13318E+02_JPRB, &
+ & 0.13569E+02_JPRB,0.13422E+02_JPRB,0.12581E+02_JPRB,0.10272E+02_JPRB /)  
+KA(:, 5,12,10) = (/ &
+ & 0.78582E+01_JPRB,0.10030E+02_JPRB,0.11643E+02_JPRB,0.12707E+02_JPRB,0.13325E+02_JPRB, &
+ & 0.13613E+02_JPRB,0.13505E+02_JPRB,0.12682E+02_JPRB,0.10410E+02_JPRB /)  
+KA(:, 1,13,10) = (/ &
+ & 0.68077E+01_JPRB,0.92695E+01_JPRB,0.10647E+02_JPRB,0.11513E+02_JPRB,0.12044E+02_JPRB, &
+ & 0.12269E+02_JPRB,0.12092E+02_JPRB,0.11295E+02_JPRB,0.85103E+01_JPRB /)  
+KA(:, 2,13,10) = (/ &
+ & 0.67020E+01_JPRB,0.91675E+01_JPRB,0.10585E+02_JPRB,0.11489E+02_JPRB,0.12056E+02_JPRB, &
+ & 0.12329E+02_JPRB,0.12198E+02_JPRB,0.11449E+02_JPRB,0.87111E+01_JPRB /)  
+KA(:, 3,13,10) = (/ &
+ & 0.67136E+01_JPRB,0.90765E+01_JPRB,0.10537E+02_JPRB,0.11473E+02_JPRB,0.12065E+02_JPRB, &
+ & 0.12379E+02_JPRB,0.12312E+02_JPRB,0.11602E+02_JPRB,0.88718E+01_JPRB /)  
+KA(:, 4,13,10) = (/ &
+ & 0.68715E+01_JPRB,0.90508E+01_JPRB,0.10490E+02_JPRB,0.11454E+02_JPRB,0.12087E+02_JPRB, &
+ & 0.12433E+02_JPRB,0.12413E+02_JPRB,0.11728E+02_JPRB,0.90172E+01_JPRB /)  
+KA(:, 5,13,10) = (/ &
+ & 0.71183E+01_JPRB,0.91466E+01_JPRB,0.10479E+02_JPRB,0.11436E+02_JPRB,0.12120E+02_JPRB, &
+ & 0.12489E+02_JPRB,0.12478E+02_JPRB,0.11826E+02_JPRB,0.91846E+01_JPRB /)  
+KA(:, 1, 1,11) = (/ &
+ & 0.25290E+02_JPRB,0.22378E+02_JPRB,0.19682E+02_JPRB,0.19092E+02_JPRB,0.18401E+02_JPRB, &
+ & 0.17330E+02_JPRB,0.17194E+02_JPRB,0.19513E+02_JPRB,0.21546E+02_JPRB /)  
+KA(:, 2, 1,11) = (/ &
+ & 0.25153E+02_JPRB,0.22251E+02_JPRB,0.19574E+02_JPRB,0.19002E+02_JPRB,0.18309E+02_JPRB, &
+ & 0.17346E+02_JPRB,0.17168E+02_JPRB,0.19469E+02_JPRB,0.21516E+02_JPRB /)  
+KA(:, 3, 1,11) = (/ &
+ & 0.24990E+02_JPRB,0.22108E+02_JPRB,0.19457E+02_JPRB,0.18891E+02_JPRB,0.18197E+02_JPRB, &
+ & 0.17344E+02_JPRB,0.17153E+02_JPRB,0.19435E+02_JPRB,0.21516E+02_JPRB /)  
+KA(:, 4, 1,11) = (/ &
+ & 0.24785E+02_JPRB,0.21926E+02_JPRB,0.19312E+02_JPRB,0.18774E+02_JPRB,0.18111E+02_JPRB, &
+ & 0.17300E+02_JPRB,0.17168E+02_JPRB,0.19426E+02_JPRB,0.21524E+02_JPRB /)  
+KA(:, 5, 1,11) = (/ &
+ & 0.24562E+02_JPRB,0.21729E+02_JPRB,0.19145E+02_JPRB,0.18657E+02_JPRB,0.18043E+02_JPRB, &
+ & 0.17239E+02_JPRB,0.17190E+02_JPRB,0.19400E+02_JPRB,0.21517E+02_JPRB /)  
+KA(:, 1, 2,11) = (/ &
+ & 0.26738E+02_JPRB,0.23635E+02_JPRB,0.21164E+02_JPRB,0.20882E+02_JPRB,0.20133E+02_JPRB, &
+ & 0.18952E+02_JPRB,0.18391E+02_JPRB,0.20397E+02_JPRB,0.22752E+02_JPRB /)  
+KA(:, 2, 2,11) = (/ &
+ & 0.26579E+02_JPRB,0.23493E+02_JPRB,0.21026E+02_JPRB,0.20770E+02_JPRB,0.20046E+02_JPRB, &
+ & 0.18924E+02_JPRB,0.18351E+02_JPRB,0.20302E+02_JPRB,0.22673E+02_JPRB /)  
+KA(:, 3, 2,11) = (/ &
+ & 0.26369E+02_JPRB,0.23304E+02_JPRB,0.20847E+02_JPRB,0.20634E+02_JPRB,0.19955E+02_JPRB, &
+ & 0.18867E+02_JPRB,0.18355E+02_JPRB,0.20274E+02_JPRB,0.22643E+02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART7',1,ZHOOK_HANDLE)
+END SUBROUTINE PART7
+
+
+SUBROUTINE PART8
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART8',0,ZHOOK_HANDLE)
+
+
+KA(:, 4, 2,11) = (/ &
+ & 0.26147E+02_JPRB,0.23108E+02_JPRB,0.20663E+02_JPRB,0.20491E+02_JPRB,0.19870E+02_JPRB, &
+ & 0.18790E+02_JPRB,0.18365E+02_JPRB,0.20271E+02_JPRB,0.22638E+02_JPRB /)  
+KA(:, 5, 2,11) = (/ &
+ & 0.25876E+02_JPRB,0.22867E+02_JPRB,0.20457E+02_JPRB,0.20308E+02_JPRB,0.19788E+02_JPRB, &
+ & 0.18723E+02_JPRB,0.18359E+02_JPRB,0.20242E+02_JPRB,0.22612E+02_JPRB /)  
+KA(:, 1, 3,11) = (/ &
+ & 0.27801E+02_JPRB,0.24558E+02_JPRB,0.22625E+02_JPRB,0.22456E+02_JPRB,0.21766E+02_JPRB, &
+ & 0.20723E+02_JPRB,0.19785E+02_JPRB,0.21193E+02_JPRB,0.23811E+02_JPRB /)  
+KA(:, 2, 3,11) = (/ &
+ & 0.27586E+02_JPRB,0.24366E+02_JPRB,0.22444E+02_JPRB,0.22341E+02_JPRB,0.21670E+02_JPRB, &
+ & 0.20651E+02_JPRB,0.19732E+02_JPRB,0.21163E+02_JPRB,0.23778E+02_JPRB /)  
+KA(:, 3, 3,11) = (/ &
+ & 0.27362E+02_JPRB,0.24166E+02_JPRB,0.22236E+02_JPRB,0.22200E+02_JPRB,0.21575E+02_JPRB, &
+ & 0.20557E+02_JPRB,0.19718E+02_JPRB,0.21155E+02_JPRB,0.23783E+02_JPRB /)  
+KA(:, 4, 3,11) = (/ &
+ & 0.27084E+02_JPRB,0.23919E+02_JPRB,0.22013E+02_JPRB,0.22018E+02_JPRB,0.21471E+02_JPRB, &
+ & 0.20457E+02_JPRB,0.19708E+02_JPRB,0.21136E+02_JPRB,0.23769E+02_JPRB /)  
+KA(:, 5, 3,11) = (/ &
+ & 0.26795E+02_JPRB,0.23666E+02_JPRB,0.21794E+02_JPRB,0.21827E+02_JPRB,0.21355E+02_JPRB, &
+ & 0.20374E+02_JPRB,0.19655E+02_JPRB,0.21092E+02_JPRB,0.23724E+02_JPRB /)  
+KA(:, 1, 4,11) = (/ &
+ & 0.28327E+02_JPRB,0.25026E+02_JPRB,0.23910E+02_JPRB,0.23720E+02_JPRB,0.23265E+02_JPRB, &
+ & 0.22396E+02_JPRB,0.21086E+02_JPRB,0.21859E+02_JPRB,0.24649E+02_JPRB /)  
+KA(:, 2, 4,11) = (/ &
+ & 0.28095E+02_JPRB,0.24816E+02_JPRB,0.23683E+02_JPRB,0.23594E+02_JPRB,0.23156E+02_JPRB, &
+ & 0.22304E+02_JPRB,0.21023E+02_JPRB,0.21873E+02_JPRB,0.24674E+02_JPRB /)  
+KA(:, 3, 4,11) = (/ &
+ & 0.27817E+02_JPRB,0.24569E+02_JPRB,0.23454E+02_JPRB,0.23446E+02_JPRB,0.23031E+02_JPRB, &
+ & 0.22182E+02_JPRB,0.21022E+02_JPRB,0.21878E+02_JPRB,0.24680E+02_JPRB /)  
+KA(:, 4, 4,11) = (/ &
+ & 0.27525E+02_JPRB,0.24310E+02_JPRB,0.23220E+02_JPRB,0.23268E+02_JPRB,0.22908E+02_JPRB, &
+ & 0.22090E+02_JPRB,0.21022E+02_JPRB,0.21824E+02_JPRB,0.24620E+02_JPRB /)  
+KA(:, 5, 4,11) = (/ &
+ & 0.27191E+02_JPRB,0.24023E+02_JPRB,0.22996E+02_JPRB,0.23072E+02_JPRB,0.22769E+02_JPRB, &
+ & 0.22022E+02_JPRB,0.20982E+02_JPRB,0.21737E+02_JPRB,0.24514E+02_JPRB /)  
+KA(:, 1, 5,11) = (/ &
+ & 0.28259E+02_JPRB,0.25014E+02_JPRB,0.24907E+02_JPRB,0.24706E+02_JPRB,0.24642E+02_JPRB, &
+ & 0.23918E+02_JPRB,0.22330E+02_JPRB,0.22219E+02_JPRB,0.25091E+02_JPRB /)  
+KA(:, 2, 5,11) = (/ &
+ & 0.27993E+02_JPRB,0.24771E+02_JPRB,0.24666E+02_JPRB,0.24596E+02_JPRB,0.24487E+02_JPRB, &
+ & 0.23818E+02_JPRB,0.22348E+02_JPRB,0.22269E+02_JPRB,0.25149E+02_JPRB /)  
+KA(:, 3, 5,11) = (/ &
+ & 0.27691E+02_JPRB,0.24499E+02_JPRB,0.24421E+02_JPRB,0.24432E+02_JPRB,0.24340E+02_JPRB, &
+ & 0.23705E+02_JPRB,0.22420E+02_JPRB,0.22242E+02_JPRB,0.25109E+02_JPRB /)  
+KA(:, 4, 5,11) = (/ &
+ & 0.27357E+02_JPRB,0.24214E+02_JPRB,0.24178E+02_JPRB,0.24253E+02_JPRB,0.24191E+02_JPRB, &
+ & 0.23642E+02_JPRB,0.22422E+02_JPRB,0.22174E+02_JPRB,0.25030E+02_JPRB /)  
+KA(:, 5, 5,11) = (/ &
+ & 0.27008E+02_JPRB,0.23916E+02_JPRB,0.23935E+02_JPRB,0.24063E+02_JPRB,0.24020E+02_JPRB, &
+ & 0.23572E+02_JPRB,0.22355E+02_JPRB,0.22132E+02_JPRB,0.24957E+02_JPRB /)  
+KA(:, 1, 6,11) = (/ &
+ & 0.27627E+02_JPRB,0.24841E+02_JPRB,0.25414E+02_JPRB,0.25513E+02_JPRB,0.25788E+02_JPRB, &
+ & 0.25161E+02_JPRB,0.23567E+02_JPRB,0.22384E+02_JPRB,0.25091E+02_JPRB /)  
+KA(:, 2, 6,11) = (/ &
+ & 0.27317E+02_JPRB,0.24550E+02_JPRB,0.25165E+02_JPRB,0.25384E+02_JPRB,0.25578E+02_JPRB, &
+ & 0.25083E+02_JPRB,0.23662E+02_JPRB,0.22423E+02_JPRB,0.25102E+02_JPRB /)  
+KA(:, 3, 6,11) = (/ &
+ & 0.26994E+02_JPRB,0.24259E+02_JPRB,0.24926E+02_JPRB,0.25206E+02_JPRB,0.25391E+02_JPRB, &
+ & 0.25015E+02_JPRB,0.23758E+02_JPRB,0.22363E+02_JPRB,0.25025E+02_JPRB /)  
+KA(:, 4, 6,11) = (/ &
+ & 0.26640E+02_JPRB,0.23945E+02_JPRB,0.24692E+02_JPRB,0.25002E+02_JPRB,0.25193E+02_JPRB, &
+ & 0.24973E+02_JPRB,0.23733E+02_JPRB,0.22328E+02_JPRB,0.24965E+02_JPRB /)  
+KA(:, 5, 6,11) = (/ &
+ & 0.26265E+02_JPRB,0.23625E+02_JPRB,0.24446E+02_JPRB,0.24785E+02_JPRB,0.25037E+02_JPRB, &
+ & 0.24906E+02_JPRB,0.23659E+02_JPRB,0.22352E+02_JPRB,0.24965E+02_JPRB /)  
+KA(:, 1, 7,11) = (/ &
+ & 0.26430E+02_JPRB,0.24581E+02_JPRB,0.25439E+02_JPRB,0.26140E+02_JPRB,0.26524E+02_JPRB, &
+ & 0.25974E+02_JPRB,0.24552E+02_JPRB,0.22441E+02_JPRB,0.24498E+02_JPRB /)  
+KA(:, 2, 7,11) = (/ &
+ & 0.26105E+02_JPRB,0.24263E+02_JPRB,0.25225E+02_JPRB,0.25974E+02_JPRB,0.26315E+02_JPRB, &
+ & 0.25946E+02_JPRB,0.24677E+02_JPRB,0.22471E+02_JPRB,0.24490E+02_JPRB /)  
+KA(:, 3, 7,11) = (/ &
+ & 0.25752E+02_JPRB,0.23938E+02_JPRB,0.24996E+02_JPRB,0.25749E+02_JPRB,0.26113E+02_JPRB, &
+ & 0.25925E+02_JPRB,0.24758E+02_JPRB,0.22442E+02_JPRB,0.24454E+02_JPRB /)  
+KA(:, 4, 7,11) = (/ &
+ & 0.25389E+02_JPRB,0.23609E+02_JPRB,0.24761E+02_JPRB,0.25499E+02_JPRB,0.25940E+02_JPRB, &
+ & 0.25913E+02_JPRB,0.24720E+02_JPRB,0.22473E+02_JPRB,0.24475E+02_JPRB /)  
+KA(:, 5, 7,11) = (/ &
+ & 0.25010E+02_JPRB,0.23260E+02_JPRB,0.24510E+02_JPRB,0.25262E+02_JPRB,0.25804E+02_JPRB, &
+ & 0.25811E+02_JPRB,0.24640E+02_JPRB,0.22547E+02_JPRB,0.24534E+02_JPRB /)  
+KA(:, 1, 8,11) = (/ &
+ & 0.24762E+02_JPRB,0.23997E+02_JPRB,0.25209E+02_JPRB,0.26467E+02_JPRB,0.26748E+02_JPRB, &
+ & 0.26365E+02_JPRB,0.25094E+02_JPRB,0.22357E+02_JPRB,0.23406E+02_JPRB /)  
+KA(:, 2, 8,11) = (/ &
+ & 0.24421E+02_JPRB,0.23672E+02_JPRB,0.24981E+02_JPRB,0.26217E+02_JPRB,0.26595E+02_JPRB, &
+ & 0.26375E+02_JPRB,0.25195E+02_JPRB,0.22435E+02_JPRB,0.23453E+02_JPRB /)  
+KA(:, 3, 8,11) = (/ &
+ & 0.24067E+02_JPRB,0.23336E+02_JPRB,0.24754E+02_JPRB,0.25956E+02_JPRB,0.26455E+02_JPRB, &
+ & 0.26361E+02_JPRB,0.25241E+02_JPRB,0.22458E+02_JPRB,0.23475E+02_JPRB /)  
+KA(:, 4, 8,11) = (/ &
+ & 0.23691E+02_JPRB,0.22996E+02_JPRB,0.24502E+02_JPRB,0.25698E+02_JPRB,0.26330E+02_JPRB, &
+ & 0.26343E+02_JPRB,0.25197E+02_JPRB,0.22533E+02_JPRB,0.23575E+02_JPRB /)  
+KA(:, 5, 8,11) = (/ &
+ & 0.23311E+02_JPRB,0.22660E+02_JPRB,0.24234E+02_JPRB,0.25450E+02_JPRB,0.26215E+02_JPRB, &
+ & 0.26209E+02_JPRB,0.25123E+02_JPRB,0.22642E+02_JPRB,0.23709E+02_JPRB /)  
+KA(:, 1, 9,11) = (/ &
+ & 0.22800E+02_JPRB,0.23011E+02_JPRB,0.24799E+02_JPRB,0.26181E+02_JPRB,0.26533E+02_JPRB, &
+ & 0.26301E+02_JPRB,0.25044E+02_JPRB,0.22077E+02_JPRB,0.21907E+02_JPRB /)  
+KA(:, 2, 9,11) = (/ &
+ & 0.22436E+02_JPRB,0.22697E+02_JPRB,0.24546E+02_JPRB,0.25945E+02_JPRB,0.26460E+02_JPRB, &
+ & 0.26314E+02_JPRB,0.25122E+02_JPRB,0.22204E+02_JPRB,0.22029E+02_JPRB /)  
+KA(:, 3, 9,11) = (/ &
+ & 0.22079E+02_JPRB,0.22367E+02_JPRB,0.24295E+02_JPRB,0.25706E+02_JPRB,0.26370E+02_JPRB, &
+ & 0.26288E+02_JPRB,0.25162E+02_JPRB,0.22314E+02_JPRB,0.22151E+02_JPRB /)  
+KA(:, 4, 9,11) = (/ &
+ & 0.21719E+02_JPRB,0.22029E+02_JPRB,0.24017E+02_JPRB,0.25487E+02_JPRB,0.26273E+02_JPRB, &
+ & 0.26217E+02_JPRB,0.25110E+02_JPRB,0.22435E+02_JPRB,0.22334E+02_JPRB /)  
+KA(:, 5, 9,11) = (/ &
+ & 0.21341E+02_JPRB,0.21707E+02_JPRB,0.23702E+02_JPRB,0.25282E+02_JPRB,0.26159E+02_JPRB, &
+ & 0.26086E+02_JPRB,0.25065E+02_JPRB,0.22578E+02_JPRB,0.22506E+02_JPRB /)  
+KA(:, 1,10,11) = (/ &
+ & 0.20601E+02_JPRB,0.21678E+02_JPRB,0.24058E+02_JPRB,0.25352E+02_JPRB,0.25931E+02_JPRB, &
+ & 0.25718E+02_JPRB,0.24432E+02_JPRB,0.21607E+02_JPRB,0.20262E+02_JPRB /)  
+KA(:, 2,10,11) = (/ &
+ & 0.20254E+02_JPRB,0.21345E+02_JPRB,0.23796E+02_JPRB,0.25183E+02_JPRB,0.25875E+02_JPRB, &
+ & 0.25691E+02_JPRB,0.24508E+02_JPRB,0.21774E+02_JPRB,0.20445E+02_JPRB /)  
+KA(:, 3,10,11) = (/ &
+ & 0.19899E+02_JPRB,0.21048E+02_JPRB,0.23494E+02_JPRB,0.25000E+02_JPRB,0.25800E+02_JPRB, &
+ & 0.25662E+02_JPRB,0.24533E+02_JPRB,0.21922E+02_JPRB,0.20638E+02_JPRB /)  
+KA(:, 4,10,11) = (/ &
+ & 0.19544E+02_JPRB,0.20766E+02_JPRB,0.23207E+02_JPRB,0.24826E+02_JPRB,0.25686E+02_JPRB, &
+ & 0.25593E+02_JPRB,0.24527E+02_JPRB,0.22085E+02_JPRB,0.20832E+02_JPRB /)  
+KA(:, 5,10,11) = (/ &
+ & 0.19193E+02_JPRB,0.20470E+02_JPRB,0.22936E+02_JPRB,0.24673E+02_JPRB,0.25544E+02_JPRB, &
+ & 0.25480E+02_JPRB,0.24537E+02_JPRB,0.22218E+02_JPRB,0.21044E+02_JPRB /)  
+KA(:, 1,11,11) = (/ &
+ & 0.18170E+02_JPRB,0.20155E+02_JPRB,0.22721E+02_JPRB,0.24145E+02_JPRB,0.24798E+02_JPRB, &
+ & 0.24559E+02_JPRB,0.23403E+02_JPRB,0.20895E+02_JPRB,0.18740E+02_JPRB /)  
+KA(:, 2,11,11) = (/ &
+ & 0.17830E+02_JPRB,0.19860E+02_JPRB,0.22479E+02_JPRB,0.24018E+02_JPRB,0.24721E+02_JPRB, &
+ & 0.24556E+02_JPRB,0.23466E+02_JPRB,0.21069E+02_JPRB,0.18949E+02_JPRB /)  
+KA(:, 3,11,11) = (/ &
+ & 0.17496E+02_JPRB,0.19576E+02_JPRB,0.22242E+02_JPRB,0.23886E+02_JPRB,0.24621E+02_JPRB, &
+ & 0.24529E+02_JPRB,0.23525E+02_JPRB,0.21231E+02_JPRB,0.19147E+02_JPRB /)  
+KA(:, 4,11,11) = (/ &
+ & 0.17168E+02_JPRB,0.19292E+02_JPRB,0.22005E+02_JPRB,0.23734E+02_JPRB,0.24514E+02_JPRB, &
+ & 0.24476E+02_JPRB,0.23580E+02_JPRB,0.21376E+02_JPRB,0.19368E+02_JPRB /)  
+KA(:, 5,11,11) = (/ &
+ & 0.16844E+02_JPRB,0.19013E+02_JPRB,0.21771E+02_JPRB,0.23570E+02_JPRB,0.24390E+02_JPRB, &
+ & 0.24440E+02_JPRB,0.23651E+02_JPRB,0.21517E+02_JPRB,0.19612E+02_JPRB /)  
+KA(:, 1,12,11) = (/ &
+ & 0.15762E+02_JPRB,0.18615E+02_JPRB,0.21133E+02_JPRB,0.22639E+02_JPRB,0.23214E+02_JPRB, &
+ & 0.23022E+02_JPRB,0.22060E+02_JPRB,0.19958E+02_JPRB,0.17314E+02_JPRB /)  
+KA(:, 2,12,11) = (/ &
+ & 0.15455E+02_JPRB,0.18341E+02_JPRB,0.20944E+02_JPRB,0.22510E+02_JPRB,0.23148E+02_JPRB, &
+ & 0.23042E+02_JPRB,0.22164E+02_JPRB,0.20127E+02_JPRB,0.17543E+02_JPRB /)  
+KA(:, 3,12,11) = (/ &
+ & 0.15156E+02_JPRB,0.18068E+02_JPRB,0.20768E+02_JPRB,0.22374E+02_JPRB,0.23084E+02_JPRB, &
+ & 0.23060E+02_JPRB,0.22257E+02_JPRB,0.20275E+02_JPRB,0.17770E+02_JPRB /)  
+KA(:, 4,12,11) = (/ &
+ & 0.14865E+02_JPRB,0.17794E+02_JPRB,0.20582E+02_JPRB,0.22237E+02_JPRB,0.23018E+02_JPRB, &
+ & 0.23079E+02_JPRB,0.22350E+02_JPRB,0.20427E+02_JPRB,0.18026E+02_JPRB /)  
+KA(:, 5,12,11) = (/ &
+ & 0.14612E+02_JPRB,0.17534E+02_JPRB,0.20399E+02_JPRB,0.22086E+02_JPRB,0.22956E+02_JPRB, &
+ & 0.23112E+02_JPRB,0.22443E+02_JPRB,0.20607E+02_JPRB,0.18280E+02_JPRB /)  
+KA(:, 1,13,11) = (/ &
+ & 0.13517E+02_JPRB,0.16914E+02_JPRB,0.19425E+02_JPRB,0.20790E+02_JPRB,0.21367E+02_JPRB, &
+ & 0.21315E+02_JPRB,0.20607E+02_JPRB,0.18871E+02_JPRB,0.15967E+02_JPRB /)  
+KA(:, 2,13,11) = (/ &
+ & 0.13249E+02_JPRB,0.16688E+02_JPRB,0.19279E+02_JPRB,0.20693E+02_JPRB,0.21344E+02_JPRB, &
+ & 0.21372E+02_JPRB,0.20725E+02_JPRB,0.19043E+02_JPRB,0.16217E+02_JPRB /)  
+KA(:, 3,13,11) = (/ &
+ & 0.12994E+02_JPRB,0.16467E+02_JPRB,0.19108E+02_JPRB,0.20602E+02_JPRB,0.21343E+02_JPRB, &
+ & 0.21436E+02_JPRB,0.20839E+02_JPRB,0.19212E+02_JPRB,0.16494E+02_JPRB /)  
+KA(:, 4,13,11) = (/ &
+ & 0.12784E+02_JPRB,0.16250E+02_JPRB,0.18951E+02_JPRB,0.20506E+02_JPRB,0.21335E+02_JPRB, &
+ & 0.21503E+02_JPRB,0.20961E+02_JPRB,0.19415E+02_JPRB,0.16770E+02_JPRB /)  
+KA(:, 5,13,11) = (/ &
+ & 0.12734E+02_JPRB,0.16049E+02_JPRB,0.18819E+02_JPRB,0.20438E+02_JPRB,0.21329E+02_JPRB, &
+ & 0.21573E+02_JPRB,0.21104E+02_JPRB,0.19623E+02_JPRB,0.16983E+02_JPRB /)  
+KA(:, 1, 1,12) = (/ &
+ & 0.32549E+02_JPRB,0.28774E+02_JPRB,0.25031E+02_JPRB,0.22926E+02_JPRB,0.22117E+02_JPRB, &
+ & 0.21695E+02_JPRB,0.23417E+02_JPRB,0.26761E+02_JPRB,0.29694E+02_JPRB /)  
+KA(:, 2, 1,12) = (/ &
+ & 0.32499E+02_JPRB,0.28739E+02_JPRB,0.25006E+02_JPRB,0.22835E+02_JPRB,0.22088E+02_JPRB, &
+ & 0.21560E+02_JPRB,0.23253E+02_JPRB,0.26542E+02_JPRB,0.29377E+02_JPRB /)  
+KA(:, 3, 1,12) = (/ &
+ & 0.32407E+02_JPRB,0.28660E+02_JPRB,0.24923E+02_JPRB,0.22714E+02_JPRB,0.22014E+02_JPRB, &
+ & 0.21461E+02_JPRB,0.23148E+02_JPRB,0.26398E+02_JPRB,0.29117E+02_JPRB /)  
+KA(:, 4, 1,12) = (/ &
+ & 0.32260E+02_JPRB,0.28512E+02_JPRB,0.24788E+02_JPRB,0.22590E+02_JPRB,0.21881E+02_JPRB, &
+ & 0.21430E+02_JPRB,0.23071E+02_JPRB,0.26295E+02_JPRB,0.28961E+02_JPRB /)  
+KA(:, 5, 1,12) = (/ &
+ & 0.32039E+02_JPRB,0.28307E+02_JPRB,0.24614E+02_JPRB,0.22444E+02_JPRB,0.21715E+02_JPRB, &
+ & 0.21428E+02_JPRB,0.22979E+02_JPRB,0.26201E+02_JPRB,0.28821E+02_JPRB /)  
+KA(:, 1, 2,12) = (/ &
+ & 0.35951E+02_JPRB,0.31737E+02_JPRB,0.27558E+02_JPRB,0.25749E+02_JPRB,0.24746E+02_JPRB, &
+ & 0.23905E+02_JPRB,0.24887E+02_JPRB,0.28459E+02_JPRB,0.31791E+02_JPRB /)  
+KA(:, 2, 2,12) = (/ &
+ & 0.35862E+02_JPRB,0.31672E+02_JPRB,0.27501E+02_JPRB,0.25642E+02_JPRB,0.24725E+02_JPRB, &
+ & 0.23810E+02_JPRB,0.24734E+02_JPRB,0.28277E+02_JPRB,0.31526E+02_JPRB /)  
+KA(:, 3, 2,12) = (/ &
+ & 0.35737E+02_JPRB,0.31562E+02_JPRB,0.27401E+02_JPRB,0.25522E+02_JPRB,0.24641E+02_JPRB, &
+ & 0.23751E+02_JPRB,0.24591E+02_JPRB,0.28127E+02_JPRB,0.31321E+02_JPRB /)  
+KA(:, 4, 2,12) = (/ &
+ & 0.35534E+02_JPRB,0.31380E+02_JPRB,0.27248E+02_JPRB,0.25379E+02_JPRB,0.24498E+02_JPRB, &
+ & 0.23724E+02_JPRB,0.24485E+02_JPRB,0.28006E+02_JPRB,0.31168E+02_JPRB /)  
+KA(:, 5, 2,12) = (/ &
+ & 0.35285E+02_JPRB,0.31161E+02_JPRB,0.27065E+02_JPRB,0.25222E+02_JPRB,0.24328E+02_JPRB, &
+ & 0.23689E+02_JPRB,0.24406E+02_JPRB,0.27908E+02_JPRB,0.31060E+02_JPRB /)  
+KA(:, 1, 3,12) = (/ &
+ & 0.39089E+02_JPRB,0.34457E+02_JPRB,0.30041E+02_JPRB,0.28724E+02_JPRB,0.27574E+02_JPRB, &
+ & 0.26213E+02_JPRB,0.26498E+02_JPRB,0.30215E+02_JPRB,0.33960E+02_JPRB /)  
+KA(:, 2, 3,12) = (/ &
+ & 0.38998E+02_JPRB,0.34382E+02_JPRB,0.29952E+02_JPRB,0.28581E+02_JPRB,0.27562E+02_JPRB, &
+ & 0.26150E+02_JPRB,0.26309E+02_JPRB,0.29980E+02_JPRB,0.33662E+02_JPRB /)  
+KA(:, 3, 3,12) = (/ &
+ & 0.38820E+02_JPRB,0.34217E+02_JPRB,0.29804E+02_JPRB,0.28424E+02_JPRB,0.27473E+02_JPRB, &
+ & 0.26126E+02_JPRB,0.26176E+02_JPRB,0.29817E+02_JPRB,0.33458E+02_JPRB /)  
+KA(:, 4, 3,12) = (/ &
+ & 0.38594E+02_JPRB,0.34019E+02_JPRB,0.29631E+02_JPRB,0.28264E+02_JPRB,0.27343E+02_JPRB, &
+ & 0.26103E+02_JPRB,0.26063E+02_JPRB,0.29657E+02_JPRB,0.33303E+02_JPRB /)  
+KA(:, 5, 3,12) = (/ &
+ & 0.38290E+02_JPRB,0.33755E+02_JPRB,0.29411E+02_JPRB,0.28094E+02_JPRB,0.27189E+02_JPRB, &
+ & 0.26048E+02_JPRB,0.25993E+02_JPRB,0.29534E+02_JPRB,0.33212E+02_JPRB /)  
+KA(:, 1, 4,12) = (/ &
+ & 0.41846E+02_JPRB,0.36848E+02_JPRB,0.32642E+02_JPRB,0.31752E+02_JPRB,0.30348E+02_JPRB, &
+ & 0.28783E+02_JPRB,0.28429E+02_JPRB,0.31940E+02_JPRB,0.36003E+02_JPRB /)  
+KA(:, 2, 4,12) = (/ &
+ & 0.41706E+02_JPRB,0.36722E+02_JPRB,0.32481E+02_JPRB,0.31589E+02_JPRB,0.30346E+02_JPRB, &
+ & 0.28731E+02_JPRB,0.28275E+02_JPRB,0.31704E+02_JPRB,0.35716E+02_JPRB /)  
+KA(:, 3, 4,12) = (/ &
+ & 0.41502E+02_JPRB,0.36539E+02_JPRB,0.32269E+02_JPRB,0.31417E+02_JPRB,0.30279E+02_JPRB, &
+ & 0.28696E+02_JPRB,0.28151E+02_JPRB,0.31470E+02_JPRB,0.35494E+02_JPRB /)  
+KA(:, 4, 4,12) = (/ &
+ & 0.41217E+02_JPRB,0.36286E+02_JPRB,0.32033E+02_JPRB,0.31226E+02_JPRB,0.30155E+02_JPRB, &
+ & 0.28647E+02_JPRB,0.28039E+02_JPRB,0.31307E+02_JPRB,0.35368E+02_JPRB /)  
+KA(:, 5, 4,12) = (/ &
+ & 0.40876E+02_JPRB,0.35985E+02_JPRB,0.31743E+02_JPRB,0.31019E+02_JPRB,0.30013E+02_JPRB, &
+ & 0.28553E+02_JPRB,0.27986E+02_JPRB,0.31205E+02_JPRB,0.35294E+02_JPRB /)  
+KA(:, 1, 5,12) = (/ &
+ & 0.43995E+02_JPRB,0.38706E+02_JPRB,0.35200E+02_JPRB,0.34595E+02_JPRB,0.33005E+02_JPRB, &
+ & 0.31594E+02_JPRB,0.30727E+02_JPRB,0.33547E+02_JPRB,0.37840E+02_JPRB /)  
+KA(:, 2, 5,12) = (/ &
+ & 0.43792E+02_JPRB,0.38521E+02_JPRB,0.34965E+02_JPRB,0.34413E+02_JPRB,0.33017E+02_JPRB, &
+ & 0.31523E+02_JPRB,0.30579E+02_JPRB,0.33292E+02_JPRB,0.37593E+02_JPRB /)  
+KA(:, 3, 5,12) = (/ &
+ & 0.43530E+02_JPRB,0.38288E+02_JPRB,0.34710E+02_JPRB,0.34215E+02_JPRB,0.32953E+02_JPRB, &
+ & 0.31452E+02_JPRB,0.30422E+02_JPRB,0.33082E+02_JPRB,0.37437E+02_JPRB /)  
+KA(:, 4, 5,12) = (/ &
+ & 0.43192E+02_JPRB,0.37991E+02_JPRB,0.34400E+02_JPRB,0.33987E+02_JPRB,0.32832E+02_JPRB, &
+ & 0.31362E+02_JPRB,0.30341E+02_JPRB,0.32970E+02_JPRB,0.37357E+02_JPRB /)  
+KA(:, 5, 5,12) = (/ &
+ & 0.42817E+02_JPRB,0.37661E+02_JPRB,0.34079E+02_JPRB,0.33725E+02_JPRB,0.32688E+02_JPRB, &
+ & 0.31220E+02_JPRB,0.30292E+02_JPRB,0.32861E+02_JPRB,0.37270E+02_JPRB /)  
+KA(:, 1, 6,12) = (/ &
+ & 0.45371E+02_JPRB,0.39886E+02_JPRB,0.37563E+02_JPRB,0.36985E+02_JPRB,0.35582E+02_JPRB, &
+ & 0.34395E+02_JPRB,0.32997E+02_JPRB,0.34724E+02_JPRB,0.39202E+02_JPRB /)  
+KA(:, 2, 6,12) = (/ &
+ & 0.45116E+02_JPRB,0.39656E+02_JPRB,0.37269E+02_JPRB,0.36794E+02_JPRB,0.35596E+02_JPRB, &
+ & 0.34289E+02_JPRB,0.32827E+02_JPRB,0.34552E+02_JPRB,0.39098E+02_JPRB /)  
+KA(:, 3, 6,12) = (/ &
+ & 0.44794E+02_JPRB,0.39373E+02_JPRB,0.36959E+02_JPRB,0.36575E+02_JPRB,0.35485E+02_JPRB, &
+ & 0.34189E+02_JPRB,0.32665E+02_JPRB,0.34424E+02_JPRB,0.39024E+02_JPRB /)  
+KA(:, 4, 6,12) = (/ &
+ & 0.44425E+02_JPRB,0.39049E+02_JPRB,0.36596E+02_JPRB,0.36352E+02_JPRB,0.35337E+02_JPRB, &
+ & 0.34032E+02_JPRB,0.32591E+02_JPRB,0.34348E+02_JPRB,0.38980E+02_JPRB /)  
+KA(:, 5, 6,12) = (/ &
+ & 0.43987E+02_JPRB,0.38666E+02_JPRB,0.36218E+02_JPRB,0.36087E+02_JPRB,0.35122E+02_JPRB, &
+ & 0.33853E+02_JPRB,0.32536E+02_JPRB,0.34232E+02_JPRB,0.38883E+02_JPRB /)  
+KA(:, 1, 7,12) = (/ &
+ & 0.45829E+02_JPRB,0.40296E+02_JPRB,0.39507E+02_JPRB,0.38911E+02_JPRB,0.38052E+02_JPRB, &
+ & 0.37051E+02_JPRB,0.34926E+02_JPRB,0.35286E+02_JPRB,0.39874E+02_JPRB /)  
+KA(:, 2, 7,12) = (/ &
+ & 0.45523E+02_JPRB,0.40015E+02_JPRB,0.39164E+02_JPRB,0.38712E+02_JPRB,0.37995E+02_JPRB, &
+ & 0.36879E+02_JPRB,0.34780E+02_JPRB,0.35237E+02_JPRB,0.39916E+02_JPRB /)  
+KA(:, 3, 7,12) = (/ &
+ & 0.45143E+02_JPRB,0.39672E+02_JPRB,0.38788E+02_JPRB,0.38484E+02_JPRB,0.37843E+02_JPRB, &
+ & 0.36693E+02_JPRB,0.34674E+02_JPRB,0.35202E+02_JPRB,0.39935E+02_JPRB /)  
+KA(:, 4, 7,12) = (/ &
+ & 0.44711E+02_JPRB,0.39294E+02_JPRB,0.38380E+02_JPRB,0.38261E+02_JPRB,0.37608E+02_JPRB, &
+ & 0.36475E+02_JPRB,0.34639E+02_JPRB,0.35181E+02_JPRB,0.39952E+02_JPRB /)  
+KA(:, 5, 7,12) = (/ &
+ & 0.44229E+02_JPRB,0.38875E+02_JPRB,0.37956E+02_JPRB,0.37973E+02_JPRB,0.37347E+02_JPRB, &
+ & 0.36293E+02_JPRB,0.34620E+02_JPRB,0.35062E+02_JPRB,0.39846E+02_JPRB /)  
+KA(:, 1, 8,12) = (/ &
+ & 0.45335E+02_JPRB,0.40267E+02_JPRB,0.40744E+02_JPRB,0.40443E+02_JPRB,0.40247E+02_JPRB, &
+ & 0.39223E+02_JPRB,0.36584E+02_JPRB,0.35367E+02_JPRB,0.39844E+02_JPRB /)  
+KA(:, 2, 8,12) = (/ &
+ & 0.44955E+02_JPRB,0.39893E+02_JPRB,0.40398E+02_JPRB,0.40216E+02_JPRB,0.40115E+02_JPRB, &
+ & 0.39023E+02_JPRB,0.36582E+02_JPRB,0.35440E+02_JPRB,0.40008E+02_JPRB /)  
+KA(:, 3, 8,12) = (/ &
+ & 0.44529E+02_JPRB,0.39492E+02_JPRB,0.39985E+02_JPRB,0.39979E+02_JPRB,0.39873E+02_JPRB, &
+ & 0.38831E+02_JPRB,0.36587E+02_JPRB,0.35498E+02_JPRB,0.40121E+02_JPRB /)  
+KA(:, 4, 8,12) = (/ &
+ & 0.44061E+02_JPRB,0.39061E+02_JPRB,0.39564E+02_JPRB,0.39715E+02_JPRB,0.39565E+02_JPRB, &
+ & 0.38623E+02_JPRB,0.36619E+02_JPRB,0.35513E+02_JPRB,0.40138E+02_JPRB /)  
+KA(:, 5, 8,12) = (/ &
+ & 0.43543E+02_JPRB,0.38605E+02_JPRB,0.39136E+02_JPRB,0.39437E+02_JPRB,0.39265E+02_JPRB, &
+ & 0.38474E+02_JPRB,0.36637E+02_JPRB,0.35396E+02_JPRB,0.40011E+02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART8',1,ZHOOK_HANDLE)
+END SUBROUTINE PART8
+
+
+SUBROUTINE PART9
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART9',0,ZHOOK_HANDLE)
+
+
+KA(:, 1, 9,12) = (/ &
+ & 0.43909E+02_JPRB,0.39954E+02_JPRB,0.41167E+02_JPRB,0.41626E+02_JPRB,0.41945E+02_JPRB, &
+ & 0.40736E+02_JPRB,0.38077E+02_JPRB,0.35393E+02_JPRB,0.39221E+02_JPRB /)  
+KA(:, 2, 9,12) = (/ &
+ & 0.43480E+02_JPRB,0.39498E+02_JPRB,0.40786E+02_JPRB,0.41338E+02_JPRB,0.41733E+02_JPRB, &
+ & 0.40609E+02_JPRB,0.38181E+02_JPRB,0.35523E+02_JPRB,0.39397E+02_JPRB /)  
+KA(:, 3, 9,12) = (/ &
+ & 0.43002E+02_JPRB,0.39038E+02_JPRB,0.40373E+02_JPRB,0.41094E+02_JPRB,0.41410E+02_JPRB, &
+ & 0.40471E+02_JPRB,0.38255E+02_JPRB,0.35563E+02_JPRB,0.39462E+02_JPRB /)  
+KA(:, 4, 9,12) = (/ &
+ & 0.42479E+02_JPRB,0.38560E+02_JPRB,0.39995E+02_JPRB,0.40806E+02_JPRB,0.41101E+02_JPRB, &
+ & 0.40341E+02_JPRB,0.38344E+02_JPRB,0.35573E+02_JPRB,0.39457E+02_JPRB /)  
+KA(:, 5, 9,12) = (/ &
+ & 0.41942E+02_JPRB,0.38060E+02_JPRB,0.39621E+02_JPRB,0.40473E+02_JPRB,0.40785E+02_JPRB, &
+ & 0.40226E+02_JPRB,0.38369E+02_JPRB,0.35494E+02_JPRB,0.39400E+02_JPRB /)  
+KA(:, 1,10,12) = (/ &
+ & 0.41598E+02_JPRB,0.39277E+02_JPRB,0.40964E+02_JPRB,0.42358E+02_JPRB,0.42727E+02_JPRB, &
+ & 0.41605E+02_JPRB,0.39147E+02_JPRB,0.35243E+02_JPRB,0.37755E+02_JPRB /)  
+KA(:, 2,10,12) = (/ &
+ & 0.41110E+02_JPRB,0.38804E+02_JPRB,0.40573E+02_JPRB,0.42061E+02_JPRB,0.42547E+02_JPRB, &
+ & 0.41580E+02_JPRB,0.39298E+02_JPRB,0.35367E+02_JPRB,0.37893E+02_JPRB /)  
+KA(:, 3,10,12) = (/ &
+ & 0.40607E+02_JPRB,0.38301E+02_JPRB,0.40218E+02_JPRB,0.41774E+02_JPRB,0.42273E+02_JPRB, &
+ & 0.41520E+02_JPRB,0.39406E+02_JPRB,0.35478E+02_JPRB,0.38009E+02_JPRB /)  
+KA(:, 4,10,12) = (/ &
+ & 0.40087E+02_JPRB,0.37793E+02_JPRB,0.39835E+02_JPRB,0.41418E+02_JPRB,0.42009E+02_JPRB, &
+ & 0.41467E+02_JPRB,0.39471E+02_JPRB,0.35532E+02_JPRB,0.38110E+02_JPRB /)  
+KA(:, 5,10,12) = (/ &
+ & 0.39528E+02_JPRB,0.37276E+02_JPRB,0.39445E+02_JPRB,0.41009E+02_JPRB,0.41755E+02_JPRB, &
+ & 0.41409E+02_JPRB,0.39460E+02_JPRB,0.35536E+02_JPRB,0.38153E+02_JPRB /)  
+KA(:, 1,11,12) = (/ &
+ & 0.38423E+02_JPRB,0.37785E+02_JPRB,0.40246E+02_JPRB,0.42229E+02_JPRB,0.42700E+02_JPRB, &
+ & 0.41861E+02_JPRB,0.39594E+02_JPRB,0.34991E+02_JPRB,0.35642E+02_JPRB /)  
+KA(:, 2,11,12) = (/ &
+ & 0.37903E+02_JPRB,0.37296E+02_JPRB,0.39841E+02_JPRB,0.41927E+02_JPRB,0.42539E+02_JPRB, &
+ & 0.41882E+02_JPRB,0.39751E+02_JPRB,0.35170E+02_JPRB,0.35883E+02_JPRB /)  
+KA(:, 3,11,12) = (/ &
+ & 0.37383E+02_JPRB,0.36809E+02_JPRB,0.39442E+02_JPRB,0.41575E+02_JPRB,0.42342E+02_JPRB, &
+ & 0.41911E+02_JPRB,0.39809E+02_JPRB,0.35335E+02_JPRB,0.36101E+02_JPRB /)  
+KA(:, 4,11,12) = (/ &
+ & 0.36841E+02_JPRB,0.36301E+02_JPRB,0.39055E+02_JPRB,0.41199E+02_JPRB,0.42145E+02_JPRB, &
+ & 0.41876E+02_JPRB,0.39854E+02_JPRB,0.35442E+02_JPRB,0.36276E+02_JPRB /)  
+KA(:, 5,11,12) = (/ &
+ & 0.36274E+02_JPRB,0.35783E+02_JPRB,0.38676E+02_JPRB,0.40833E+02_JPRB,0.41945E+02_JPRB, &
+ & 0.41808E+02_JPRB,0.39839E+02_JPRB,0.35539E+02_JPRB,0.36455E+02_JPRB /)  
+KA(:, 1,12,12) = (/ &
+ & 0.34828E+02_JPRB,0.35770E+02_JPRB,0.39099E+02_JPRB,0.41221E+02_JPRB,0.41958E+02_JPRB, &
+ & 0.41456E+02_JPRB,0.39253E+02_JPRB,0.34461E+02_JPRB,0.33246E+02_JPRB /)  
+KA(:, 2,12,12) = (/ &
+ & 0.34304E+02_JPRB,0.35295E+02_JPRB,0.38700E+02_JPRB,0.40987E+02_JPRB,0.41846E+02_JPRB, &
+ & 0.41525E+02_JPRB,0.39359E+02_JPRB,0.34698E+02_JPRB,0.33560E+02_JPRB /)  
+KA(:, 3,12,12) = (/ &
+ & 0.33784E+02_JPRB,0.34798E+02_JPRB,0.38311E+02_JPRB,0.40707E+02_JPRB,0.41743E+02_JPRB, &
+ & 0.41505E+02_JPRB,0.39465E+02_JPRB,0.34925E+02_JPRB,0.33882E+02_JPRB /)  
+KA(:, 4,12,12) = (/ &
+ & 0.33241E+02_JPRB,0.34324E+02_JPRB,0.37917E+02_JPRB,0.40393E+02_JPRB,0.41632E+02_JPRB, &
+ & 0.41461E+02_JPRB,0.39554E+02_JPRB,0.35117E+02_JPRB,0.34172E+02_JPRB /)  
+KA(:, 5,12,12) = (/ &
+ & 0.32710E+02_JPRB,0.33867E+02_JPRB,0.37489E+02_JPRB,0.40112E+02_JPRB,0.41490E+02_JPRB, &
+ & 0.41392E+02_JPRB,0.39590E+02_JPRB,0.35312E+02_JPRB,0.34501E+02_JPRB /)  
+KA(:, 1,13,12) = (/ &
+ & 0.30997E+02_JPRB,0.33431E+02_JPRB,0.37385E+02_JPRB,0.39653E+02_JPRB,0.40610E+02_JPRB, &
+ & 0.40222E+02_JPRB,0.38101E+02_JPRB,0.33638E+02_JPRB,0.30845E+02_JPRB /)  
+KA(:, 2,13,12) = (/ &
+ & 0.30492E+02_JPRB,0.32952E+02_JPRB,0.37042E+02_JPRB,0.39451E+02_JPRB,0.40583E+02_JPRB, &
+ & 0.40257E+02_JPRB,0.38272E+02_JPRB,0.33940E+02_JPRB,0.31245E+02_JPRB /)  
+KA(:, 3,13,12) = (/ &
+ & 0.29985E+02_JPRB,0.32520E+02_JPRB,0.36699E+02_JPRB,0.39235E+02_JPRB,0.40521E+02_JPRB, &
+ & 0.40274E+02_JPRB,0.38447E+02_JPRB,0.34242E+02_JPRB,0.31622E+02_JPRB /)  
+KA(:, 4,13,12) = (/ &
+ & 0.29485E+02_JPRB,0.32102E+02_JPRB,0.36327E+02_JPRB,0.39047E+02_JPRB,0.40416E+02_JPRB, &
+ & 0.40299E+02_JPRB,0.38596E+02_JPRB,0.34522E+02_JPRB,0.32000E+02_JPRB /)  
+KA(:, 5,13,12) = (/ &
+ & 0.29016E+02_JPRB,0.31685E+02_JPRB,0.35962E+02_JPRB,0.38852E+02_JPRB,0.40311E+02_JPRB, &
+ & 0.40331E+02_JPRB,0.38749E+02_JPRB,0.34802E+02_JPRB,0.32433E+02_JPRB /)  
+KA(:, 1, 1,13) = (/ &
+ & 0.40414E+02_JPRB,0.35530E+02_JPRB,0.30727E+02_JPRB,0.26813E+02_JPRB,0.26498E+02_JPRB, &
+ & 0.27724E+02_JPRB,0.32451E+02_JPRB,0.37296E+02_JPRB,0.40920E+02_JPRB /)  
+KA(:, 2, 1,13) = (/ &
+ & 0.40378E+02_JPRB,0.35506E+02_JPRB,0.30718E+02_JPRB,0.26787E+02_JPRB,0.26360E+02_JPRB, &
+ & 0.27557E+02_JPRB,0.32109E+02_JPRB,0.36904E+02_JPRB,0.40512E+02_JPRB /)  
+KA(:, 3, 1,13) = (/ &
+ & 0.40288E+02_JPRB,0.35435E+02_JPRB,0.30689E+02_JPRB,0.26758E+02_JPRB,0.26294E+02_JPRB, &
+ & 0.27365E+02_JPRB,0.31721E+02_JPRB,0.36448E+02_JPRB,0.40077E+02_JPRB /)  
+KA(:, 4, 1,13) = (/ &
+ & 0.40152E+02_JPRB,0.35337E+02_JPRB,0.30607E+02_JPRB,0.26666E+02_JPRB,0.26235E+02_JPRB, &
+ & 0.27137E+02_JPRB,0.31350E+02_JPRB,0.36026E+02_JPRB,0.39605E+02_JPRB /)  
+KA(:, 5, 1,13) = (/ &
+ & 0.39996E+02_JPRB,0.35209E+02_JPRB,0.30500E+02_JPRB,0.26544E+02_JPRB,0.26176E+02_JPRB, &
+ & 0.26906E+02_JPRB,0.31054E+02_JPRB,0.35676E+02_JPRB,0.39227E+02_JPRB /)  
+KA(:, 1, 2,13) = (/ &
+ & 0.46201E+02_JPRB,0.40631E+02_JPRB,0.35149E+02_JPRB,0.31004E+02_JPRB,0.30338E+02_JPRB, &
+ & 0.30975E+02_JPRB,0.35648E+02_JPRB,0.41032E+02_JPRB,0.45728E+02_JPRB /)  
+KA(:, 2, 2,13) = (/ &
+ & 0.46189E+02_JPRB,0.40616E+02_JPRB,0.35151E+02_JPRB,0.30920E+02_JPRB,0.30181E+02_JPRB, &
+ & 0.30854E+02_JPRB,0.35321E+02_JPRB,0.40601E+02_JPRB,0.45258E+02_JPRB /)  
+KA(:, 3, 2,13) = (/ &
+ & 0.46107E+02_JPRB,0.40548E+02_JPRB,0.35109E+02_JPRB,0.30814E+02_JPRB,0.30060E+02_JPRB, &
+ & 0.30665E+02_JPRB,0.34964E+02_JPRB,0.40159E+02_JPRB,0.44756E+02_JPRB /)  
+KA(:, 4, 2,13) = (/ &
+ & 0.45964E+02_JPRB,0.40421E+02_JPRB,0.35002E+02_JPRB,0.30664E+02_JPRB,0.29967E+02_JPRB, &
+ & 0.30436E+02_JPRB,0.34636E+02_JPRB,0.39757E+02_JPRB,0.44299E+02_JPRB /)  
+KA(:, 5, 2,13) = (/ &
+ & 0.45779E+02_JPRB,0.40257E+02_JPRB,0.34861E+02_JPRB,0.30500E+02_JPRB,0.29866E+02_JPRB, &
+ & 0.30215E+02_JPRB,0.34343E+02_JPRB,0.39421E+02_JPRB,0.43898E+02_JPRB /)  
+KA(:, 1, 3,13) = (/ &
+ & 0.52493E+02_JPRB,0.46184E+02_JPRB,0.39933E+02_JPRB,0.35707E+02_JPRB,0.34547E+02_JPRB, &
+ & 0.34524E+02_JPRB,0.38680E+02_JPRB,0.44581E+02_JPRB,0.50362E+02_JPRB /)  
+KA(:, 2, 3,13) = (/ &
+ & 0.52499E+02_JPRB,0.46190E+02_JPRB,0.39958E+02_JPRB,0.35613E+02_JPRB,0.34342E+02_JPRB, &
+ & 0.34438E+02_JPRB,0.38422E+02_JPRB,0.44213E+02_JPRB,0.49916E+02_JPRB /)  
+KA(:, 3, 3,13) = (/ &
+ & 0.52430E+02_JPRB,0.46141E+02_JPRB,0.39924E+02_JPRB,0.35477E+02_JPRB,0.34202E+02_JPRB, &
+ & 0.34294E+02_JPRB,0.38128E+02_JPRB,0.43804E+02_JPRB,0.49438E+02_JPRB /)  
+KA(:, 4, 3,13) = (/ &
+ & 0.52296E+02_JPRB,0.46021E+02_JPRB,0.39821E+02_JPRB,0.35288E+02_JPRB,0.34063E+02_JPRB, &
+ & 0.34077E+02_JPRB,0.37857E+02_JPRB,0.43466E+02_JPRB,0.49020E+02_JPRB /)  
+KA(:, 5, 3,13) = (/ &
+ & 0.52087E+02_JPRB,0.45828E+02_JPRB,0.39654E+02_JPRB,0.35060E+02_JPRB,0.33889E+02_JPRB, &
+ & 0.33876E+02_JPRB,0.37613E+02_JPRB,0.43182E+02_JPRB,0.48640E+02_JPRB /)  
+KA(:, 1, 4,13) = (/ &
+ & 0.58998E+02_JPRB,0.51894E+02_JPRB,0.44809E+02_JPRB,0.40767E+02_JPRB,0.39196E+02_JPRB, &
+ & 0.38349E+02_JPRB,0.41490E+02_JPRB,0.47820E+02_JPRB,0.54353E+02_JPRB /)  
+KA(:, 2, 4,13) = (/ &
+ & 0.58998E+02_JPRB,0.51911E+02_JPRB,0.44850E+02_JPRB,0.40692E+02_JPRB,0.38973E+02_JPRB, &
+ & 0.38281E+02_JPRB,0.41275E+02_JPRB,0.47479E+02_JPRB,0.53941E+02_JPRB /)  
+KA(:, 3, 4,13) = (/ &
+ & 0.58946E+02_JPRB,0.51872E+02_JPRB,0.44826E+02_JPRB,0.40545E+02_JPRB,0.38818E+02_JPRB, &
+ & 0.38152E+02_JPRB,0.41007E+02_JPRB,0.47151E+02_JPRB,0.53507E+02_JPRB /)  
+KA(:, 4, 4,13) = (/ &
+ & 0.58797E+02_JPRB,0.51741E+02_JPRB,0.44719E+02_JPRB,0.40328E+02_JPRB,0.38647E+02_JPRB, &
+ & 0.37950E+02_JPRB,0.40768E+02_JPRB,0.46871E+02_JPRB,0.53108E+02_JPRB /)  
+KA(:, 5, 4,13) = (/ &
+ & 0.58578E+02_JPRB,0.51549E+02_JPRB,0.44555E+02_JPRB,0.40074E+02_JPRB,0.38419E+02_JPRB, &
+ & 0.37769E+02_JPRB,0.40542E+02_JPRB,0.46625E+02_JPRB,0.52790E+02_JPRB /)  
+KA(:, 1, 5,13) = (/ &
+ & 0.65454E+02_JPRB,0.57537E+02_JPRB,0.49631E+02_JPRB,0.46171E+02_JPRB,0.44093E+02_JPRB, &
+ & 0.42375E+02_JPRB,0.44216E+02_JPRB,0.50929E+02_JPRB,0.58021E+02_JPRB /)  
+KA(:, 2, 5,13) = (/ &
+ & 0.65480E+02_JPRB,0.57591E+02_JPRB,0.49679E+02_JPRB,0.46047E+02_JPRB,0.43916E+02_JPRB, &
+ & 0.42317E+02_JPRB,0.44023E+02_JPRB,0.50643E+02_JPRB,0.57621E+02_JPRB /)  
+KA(:, 3, 5,13) = (/ &
+ & 0.65404E+02_JPRB,0.57534E+02_JPRB,0.49633E+02_JPRB,0.45875E+02_JPRB,0.43765E+02_JPRB, &
+ & 0.42200E+02_JPRB,0.43791E+02_JPRB,0.50364E+02_JPRB,0.57215E+02_JPRB /)  
+KA(:, 4, 5,13) = (/ &
+ & 0.65236E+02_JPRB,0.57393E+02_JPRB,0.49518E+02_JPRB,0.45648E+02_JPRB,0.43596E+02_JPRB, &
+ & 0.42013E+02_JPRB,0.43533E+02_JPRB,0.50076E+02_JPRB,0.56838E+02_JPRB /)  
+KA(:, 5, 5,13) = (/ &
+ & 0.64960E+02_JPRB,0.57155E+02_JPRB,0.49326E+02_JPRB,0.45390E+02_JPRB,0.43392E+02_JPRB, &
+ & 0.41855E+02_JPRB,0.43285E+02_JPRB,0.49832E+02_JPRB,0.56537E+02_JPRB /)  
+KA(:, 1, 6,13) = (/ &
+ & 0.71553E+02_JPRB,0.62830E+02_JPRB,0.54580E+02_JPRB,0.51897E+02_JPRB,0.49249E+02_JPRB, &
+ & 0.46670E+02_JPRB,0.47221E+02_JPRB,0.54164E+02_JPRB,0.61741E+02_JPRB /)  
+KA(:, 2, 6,13) = (/ &
+ & 0.71559E+02_JPRB,0.62858E+02_JPRB,0.54547E+02_JPRB,0.51727E+02_JPRB,0.49114E+02_JPRB, &
+ & 0.46626E+02_JPRB,0.47093E+02_JPRB,0.53907E+02_JPRB,0.61336E+02_JPRB /)  
+KA(:, 3, 6,13) = (/ &
+ & 0.71474E+02_JPRB,0.62796E+02_JPRB,0.54422E+02_JPRB,0.51491E+02_JPRB,0.49001E+02_JPRB, &
+ & 0.46518E+02_JPRB,0.46873E+02_JPRB,0.53599E+02_JPRB,0.60908E+02_JPRB /)  
+KA(:, 4, 6,13) = (/ &
+ & 0.71253E+02_JPRB,0.62620E+02_JPRB,0.54248E+02_JPRB,0.51208E+02_JPRB,0.48873E+02_JPRB, &
+ & 0.46377E+02_JPRB,0.46595E+02_JPRB,0.53243E+02_JPRB,0.60469E+02_JPRB /)  
+KA(:, 5, 6,13) = (/ &
+ & 0.70931E+02_JPRB,0.62354E+02_JPRB,0.53993E+02_JPRB,0.50888E+02_JPRB,0.48719E+02_JPRB, &
+ & 0.46222E+02_JPRB,0.46318E+02_JPRB,0.52946E+02_JPRB,0.60113E+02_JPRB /)  
+KA(:, 1, 7,13) = (/ &
+ & 0.76995E+02_JPRB,0.67566E+02_JPRB,0.59542E+02_JPRB,0.57607E+02_JPRB,0.54461E+02_JPRB, &
+ & 0.51316E+02_JPRB,0.50984E+02_JPRB,0.57643E+02_JPRB,0.65674E+02_JPRB /)  
+KA(:, 2, 7,13) = (/ &
+ & 0.76958E+02_JPRB,0.67548E+02_JPRB,0.59397E+02_JPRB,0.57376E+02_JPRB,0.54369E+02_JPRB, &
+ & 0.51326E+02_JPRB,0.50889E+02_JPRB,0.57330E+02_JPRB,0.65196E+02_JPRB /)  
+KA(:, 3, 7,13) = (/ &
+ & 0.76815E+02_JPRB,0.67433E+02_JPRB,0.59207E+02_JPRB,0.57127E+02_JPRB,0.54289E+02_JPRB, &
+ & 0.51287E+02_JPRB,0.50622E+02_JPRB,0.56904E+02_JPRB,0.64662E+02_JPRB /)  
+KA(:, 4, 7,13) = (/ &
+ & 0.76535E+02_JPRB,0.67198E+02_JPRB,0.58948E+02_JPRB,0.56779E+02_JPRB,0.54224E+02_JPRB, &
+ & 0.51158E+02_JPRB,0.50286E+02_JPRB,0.56459E+02_JPRB,0.64124E+02_JPRB /)  
+KA(:, 5, 7,13) = (/ &
+ & 0.76156E+02_JPRB,0.66876E+02_JPRB,0.58634E+02_JPRB,0.56401E+02_JPRB,0.54096E+02_JPRB, &
+ & 0.50976E+02_JPRB,0.49973E+02_JPRB,0.56129E+02_JPRB,0.63785E+02_JPRB /)  
+KA(:, 1, 8,13) = (/ &
+ & 0.81421E+02_JPRB,0.71418E+02_JPRB,0.64455E+02_JPRB,0.62977E+02_JPRB,0.59643E+02_JPRB, &
+ & 0.56434E+02_JPRB,0.55164E+02_JPRB,0.60758E+02_JPRB,0.69127E+02_JPRB /)  
+KA(:, 2, 8,13) = (/ &
+ & 0.81348E+02_JPRB,0.71366E+02_JPRB,0.64215E+02_JPRB,0.62779E+02_JPRB,0.59582E+02_JPRB, &
+ & 0.56462E+02_JPRB,0.55001E+02_JPRB,0.60346E+02_JPRB,0.68584E+02_JPRB /)  
+KA(:, 3, 8,13) = (/ &
+ & 0.81121E+02_JPRB,0.71177E+02_JPRB,0.63909E+02_JPRB,0.62467E+02_JPRB,0.59508E+02_JPRB, &
+ & 0.56437E+02_JPRB,0.54668E+02_JPRB,0.59898E+02_JPRB,0.68043E+02_JPRB /)  
+KA(:, 4, 8,13) = (/ &
+ & 0.80795E+02_JPRB,0.70901E+02_JPRB,0.63558E+02_JPRB,0.62070E+02_JPRB,0.59450E+02_JPRB, &
+ & 0.56283E+02_JPRB,0.54317E+02_JPRB,0.59470E+02_JPRB,0.67583E+02_JPRB /)  
+KA(:, 5, 8,13) = (/ &
+ & 0.80315E+02_JPRB,0.70489E+02_JPRB,0.63126E+02_JPRB,0.61649E+02_JPRB,0.59298E+02_JPRB, &
+ & 0.56050E+02_JPRB,0.54007E+02_JPRB,0.59179E+02_JPRB,0.67330E+02_JPRB /)  
+KA(:, 1, 9,13) = (/ &
+ & 0.84526E+02_JPRB,0.74114E+02_JPRB,0.69139E+02_JPRB,0.67766E+02_JPRB,0.64700E+02_JPRB, &
+ & 0.61791E+02_JPRB,0.59295E+02_JPRB,0.62885E+02_JPRB,0.71468E+02_JPRB /)  
+KA(:, 2, 9,13) = (/ &
+ & 0.84370E+02_JPRB,0.73989E+02_JPRB,0.68856E+02_JPRB,0.67565E+02_JPRB,0.64593E+02_JPRB, &
+ & 0.61811E+02_JPRB,0.59181E+02_JPRB,0.62666E+02_JPRB,0.71181E+02_JPRB /)  
+KA(:, 3, 9,13) = (/ &
+ & 0.84053E+02_JPRB,0.73721E+02_JPRB,0.68457E+02_JPRB,0.67233E+02_JPRB,0.64524E+02_JPRB, &
+ & 0.61778E+02_JPRB,0.58870E+02_JPRB,0.62384E+02_JPRB,0.70849E+02_JPRB /)  
+KA(:, 4, 9,13) = (/ &
+ & 0.83638E+02_JPRB,0.73367E+02_JPRB,0.67980E+02_JPRB,0.66820E+02_JPRB,0.64408E+02_JPRB, &
+ & 0.61582E+02_JPRB,0.58561E+02_JPRB,0.62049E+02_JPRB,0.70550E+02_JPRB /)  
+KA(:, 5, 9,13) = (/ &
+ & 0.83125E+02_JPRB,0.72897E+02_JPRB,0.67415E+02_JPRB,0.66418E+02_JPRB,0.64238E+02_JPRB, &
+ & 0.61304E+02_JPRB,0.58306E+02_JPRB,0.61805E+02_JPRB,0.70366E+02_JPRB /)  
+KA(:, 1,10,13) = (/ &
+ & 0.86099E+02_JPRB,0.75664E+02_JPRB,0.73052E+02_JPRB,0.71784E+02_JPRB,0.69581E+02_JPRB, &
+ & 0.67013E+02_JPRB,0.63079E+02_JPRB,0.64019E+02_JPRB,0.72668E+02_JPRB /)  
+KA(:, 2,10,13) = (/ &
+ & 0.85793E+02_JPRB,0.75364E+02_JPRB,0.72621E+02_JPRB,0.71506E+02_JPRB,0.69364E+02_JPRB, &
+ & 0.66992E+02_JPRB,0.63098E+02_JPRB,0.64105E+02_JPRB,0.72738E+02_JPRB /)  
+KA(:, 3,10,13) = (/ &
+ & 0.85391E+02_JPRB,0.74983E+02_JPRB,0.72119E+02_JPRB,0.71136E+02_JPRB,0.69201E+02_JPRB, &
+ & 0.66897E+02_JPRB,0.62939E+02_JPRB,0.63964E+02_JPRB,0.72620E+02_JPRB /)  
+KA(:, 4,10,13) = (/ &
+ & 0.84829E+02_JPRB,0.74472E+02_JPRB,0.71563E+02_JPRB,0.70768E+02_JPRB,0.69027E+02_JPRB, &
+ & 0.66600E+02_JPRB,0.62760E+02_JPRB,0.63750E+02_JPRB,0.72497E+02_JPRB /)  
+KA(:, 5,10,13) = (/ &
+ & 0.84210E+02_JPRB,0.73923E+02_JPRB,0.70963E+02_JPRB,0.70409E+02_JPRB,0.68788E+02_JPRB, &
+ & 0.66285E+02_JPRB,0.62604E+02_JPRB,0.63643E+02_JPRB,0.72460E+02_JPRB /)  
+KA(:, 1,11,13) = (/ &
+ & 0.85661E+02_JPRB,0.75976E+02_JPRB,0.75616E+02_JPRB,0.74895E+02_JPRB,0.73796E+02_JPRB, &
+ & 0.71450E+02_JPRB,0.66595E+02_JPRB,0.64723E+02_JPRB,0.72988E+02_JPRB /)  
+KA(:, 2,11,13) = (/ &
+ & 0.85212E+02_JPRB,0.75487E+02_JPRB,0.75133E+02_JPRB,0.74528E+02_JPRB,0.73552E+02_JPRB, &
+ & 0.71413E+02_JPRB,0.66688E+02_JPRB,0.64835E+02_JPRB,0.73147E+02_JPRB /)  
+KA(:, 3,11,13) = (/ &
+ & 0.84633E+02_JPRB,0.74907E+02_JPRB,0.74581E+02_JPRB,0.74183E+02_JPRB,0.73356E+02_JPRB, &
+ & 0.71194E+02_JPRB,0.66687E+02_JPRB,0.64831E+02_JPRB,0.73292E+02_JPRB /)  
+KA(:, 4,11,13) = (/ &
+ & 0.83975E+02_JPRB,0.74286E+02_JPRB,0.73943E+02_JPRB,0.73830E+02_JPRB,0.73088E+02_JPRB, &
+ & 0.70916E+02_JPRB,0.66610E+02_JPRB,0.64920E+02_JPRB,0.73470E+02_JPRB /)  
+KA(:, 5,11,13) = (/ &
+ & 0.83246E+02_JPRB,0.73605E+02_JPRB,0.73209E+02_JPRB,0.73386E+02_JPRB,0.72735E+02_JPRB, &
+ & 0.70587E+02_JPRB,0.66523E+02_JPRB,0.64950E+02_JPRB,0.73537E+02_JPRB /)  
+KA(:, 1,12,13) = (/ &
+ & 0.83352E+02_JPRB,0.75282E+02_JPRB,0.76925E+02_JPRB,0.77365E+02_JPRB,0.77206E+02_JPRB, &
+ & 0.74850E+02_JPRB,0.69716E+02_JPRB,0.65048E+02_JPRB,0.72181E+02_JPRB /)  
+KA(:, 2,12,13) = (/ &
+ & 0.82736E+02_JPRB,0.74597E+02_JPRB,0.76403E+02_JPRB,0.76949E+02_JPRB,0.76971E+02_JPRB, &
+ & 0.74863E+02_JPRB,0.69929E+02_JPRB,0.65330E+02_JPRB,0.72664E+02_JPRB /)  
+KA(:, 3,12,13) = (/ &
+ & 0.82054E+02_JPRB,0.73916E+02_JPRB,0.75743E+02_JPRB,0.76528E+02_JPRB,0.76666E+02_JPRB, &
+ & 0.74738E+02_JPRB,0.70022E+02_JPRB,0.65629E+02_JPRB,0.73075E+02_JPRB /)  
+KA(:, 4,12,13) = (/ &
+ & 0.81316E+02_JPRB,0.73173E+02_JPRB,0.75030E+02_JPRB,0.76061E+02_JPRB,0.76286E+02_JPRB, &
+ & 0.74512E+02_JPRB,0.70083E+02_JPRB,0.65825E+02_JPRB,0.73345E+02_JPRB /)  
+KA(:, 5,12,13) = (/ &
+ & 0.80516E+02_JPRB,0.72378E+02_JPRB,0.74331E+02_JPRB,0.75554E+02_JPRB,0.75785E+02_JPRB, &
+ & 0.74233E+02_JPRB,0.70124E+02_JPRB,0.65929E+02_JPRB,0.73501E+02_JPRB /)  
+KA(:, 1,13,13) = (/ &
+ & 0.79408E+02_JPRB,0.73858E+02_JPRB,0.76980E+02_JPRB,0.78869E+02_JPRB,0.79397E+02_JPRB, &
+ & 0.77263E+02_JPRB,0.72263E+02_JPRB,0.65338E+02_JPRB,0.70604E+02_JPRB /)  
+KA(:, 2,13,13) = (/ &
+ & 0.78716E+02_JPRB,0.73093E+02_JPRB,0.76326E+02_JPRB,0.78426E+02_JPRB,0.79146E+02_JPRB, &
+ & 0.77408E+02_JPRB,0.72561E+02_JPRB,0.65807E+02_JPRB,0.71230E+02_JPRB /)  
+KA(:, 3,13,13) = (/ &
+ & 0.77962E+02_JPRB,0.72251E+02_JPRB,0.75686E+02_JPRB,0.77926E+02_JPRB,0.78867E+02_JPRB, &
+ & 0.77356E+02_JPRB,0.72810E+02_JPRB,0.66137E+02_JPRB,0.71698E+02_JPRB /)  
+KA(:, 4,13,13) = (/ &
+ & 0.77177E+02_JPRB,0.71385E+02_JPRB,0.75042E+02_JPRB,0.77408E+02_JPRB,0.78464E+02_JPRB, &
+ & 0.77172E+02_JPRB,0.73006E+02_JPRB,0.66333E+02_JPRB,0.72067E+02_JPRB /)  
+KA(:, 5,13,13) = (/ &
+ & 0.76340E+02_JPRB,0.70519E+02_JPRB,0.74355E+02_JPRB,0.76889E+02_JPRB,0.78015E+02_JPRB, &
+ & 0.76988E+02_JPRB,0.73079E+02_JPRB,0.66485E+02_JPRB,0.72407E+02_JPRB /)  
+KA(:, 1, 1,14) = (/ &
+ & 0.51404E+02_JPRB,0.45212E+02_JPRB,0.39078E+02_JPRB,0.32978E+02_JPRB,0.31213E+02_JPRB, &
+ & 0.35689E+02_JPRB,0.42239E+02_JPRB,0.49109E+02_JPRB,0.53555E+02_JPRB /)  
+KA(:, 2, 1,14) = (/ &
+ & 0.51456E+02_JPRB,0.45263E+02_JPRB,0.39085E+02_JPRB,0.32975E+02_JPRB,0.31034E+02_JPRB, &
+ & 0.35237E+02_JPRB,0.41756E+02_JPRB,0.48531E+02_JPRB,0.52877E+02_JPRB /)  
+KA(:, 3, 1,14) = (/ &
+ & 0.51419E+02_JPRB,0.45226E+02_JPRB,0.39013E+02_JPRB,0.32932E+02_JPRB,0.30826E+02_JPRB, &
+ & 0.34871E+02_JPRB,0.41372E+02_JPRB,0.48070E+02_JPRB,0.52319E+02_JPRB /)  
+KA(:, 4, 1,14) = (/ &
+ & 0.51315E+02_JPRB,0.45122E+02_JPRB,0.38925E+02_JPRB,0.32886E+02_JPRB,0.30643E+02_JPRB, &
+ & 0.34565E+02_JPRB,0.41054E+02_JPRB,0.47690E+02_JPRB,0.51853E+02_JPRB /)  
+KA(:, 5, 1,14) = (/ &
+ & 0.51134E+02_JPRB,0.44958E+02_JPRB,0.38787E+02_JPRB,0.32819E+02_JPRB,0.30476E+02_JPRB, &
+ & 0.34330E+02_JPRB,0.40799E+02_JPRB,0.47384E+02_JPRB,0.51513E+02_JPRB /)  
+KA(:, 1, 2,14) = (/ &
+ & 0.59575E+02_JPRB,0.52343E+02_JPRB,0.45168E+02_JPRB,0.38156E+02_JPRB,0.36549E+02_JPRB, &
+ & 0.40798E+02_JPRB,0.48433E+02_JPRB,0.56320E+02_JPRB,0.62499E+02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART9',1,ZHOOK_HANDLE)
+END SUBROUTINE PART9
+
+
+SUBROUTINE PART10
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART10',0,ZHOOK_HANDLE)
+
+
+KA(:, 2, 2,14) = (/ &
+ & 0.59656E+02_JPRB,0.52415E+02_JPRB,0.45196E+02_JPRB,0.38159E+02_JPRB,0.36356E+02_JPRB, &
+ & 0.40232E+02_JPRB,0.47806E+02_JPRB,0.55603E+02_JPRB,0.61692E+02_JPRB /)  
+KA(:, 3, 2,14) = (/ &
+ & 0.59635E+02_JPRB,0.52395E+02_JPRB,0.45146E+02_JPRB,0.38116E+02_JPRB,0.36139E+02_JPRB, &
+ & 0.39805E+02_JPRB,0.47339E+02_JPRB,0.55046E+02_JPRB,0.61068E+02_JPRB /)  
+KA(:, 4, 2,14) = (/ &
+ & 0.59522E+02_JPRB,0.52285E+02_JPRB,0.45051E+02_JPRB,0.38066E+02_JPRB,0.35889E+02_JPRB, &
+ & 0.39470E+02_JPRB,0.46981E+02_JPRB,0.54621E+02_JPRB,0.60592E+02_JPRB /)  
+KA(:, 5, 2,14) = (/ &
+ & 0.59307E+02_JPRB,0.52094E+02_JPRB,0.44889E+02_JPRB,0.37960E+02_JPRB,0.35677E+02_JPRB, &
+ & 0.39216E+02_JPRB,0.46687E+02_JPRB,0.54268E+02_JPRB,0.60193E+02_JPRB /)  
+KA(:, 1, 3,14) = (/ &
+ & 0.68809E+02_JPRB,0.60397E+02_JPRB,0.52025E+02_JPRB,0.44161E+02_JPRB,0.42701E+02_JPRB, &
+ & 0.46667E+02_JPRB,0.55520E+02_JPRB,0.64493E+02_JPRB,0.72669E+02_JPRB /)  
+KA(:, 2, 3,14) = (/ &
+ & 0.68924E+02_JPRB,0.60499E+02_JPRB,0.52098E+02_JPRB,0.44133E+02_JPRB,0.42521E+02_JPRB, &
+ & 0.45966E+02_JPRB,0.54732E+02_JPRB,0.63594E+02_JPRB,0.71705E+02_JPRB /)  
+KA(:, 3, 3,14) = (/ &
+ & 0.68950E+02_JPRB,0.60531E+02_JPRB,0.52101E+02_JPRB,0.44100E+02_JPRB,0.42285E+02_JPRB, &
+ & 0.45418E+02_JPRB,0.54095E+02_JPRB,0.62883E+02_JPRB,0.70919E+02_JPRB /)  
+KA(:, 4, 3,14) = (/ &
+ & 0.68857E+02_JPRB,0.60434E+02_JPRB,0.52014E+02_JPRB,0.44041E+02_JPRB,0.42031E+02_JPRB, &
+ & 0.45005E+02_JPRB,0.53564E+02_JPRB,0.62291E+02_JPRB,0.70247E+02_JPRB /)  
+KA(:, 5, 3,14) = (/ &
+ & 0.68666E+02_JPRB,0.60265E+02_JPRB,0.51871E+02_JPRB,0.43942E+02_JPRB,0.41842E+02_JPRB, &
+ & 0.44690E+02_JPRB,0.53134E+02_JPRB,0.61806E+02_JPRB,0.69686E+02_JPRB /)  
+KA(:, 1, 4,14) = (/ &
+ & 0.79311E+02_JPRB,0.69561E+02_JPRB,0.59881E+02_JPRB,0.51276E+02_JPRB,0.49761E+02_JPRB, &
+ & 0.53193E+02_JPRB,0.63396E+02_JPRB,0.73656E+02_JPRB,0.83652E+02_JPRB /)  
+KA(:, 2, 4,14) = (/ &
+ & 0.79511E+02_JPRB,0.69736E+02_JPRB,0.60019E+02_JPRB,0.51173E+02_JPRB,0.49594E+02_JPRB, &
+ & 0.52466E+02_JPRB,0.62461E+02_JPRB,0.72578E+02_JPRB,0.82426E+02_JPRB /)  
+KA(:, 3, 4,14) = (/ &
+ & 0.79562E+02_JPRB,0.69789E+02_JPRB,0.60043E+02_JPRB,0.51075E+02_JPRB,0.49346E+02_JPRB, &
+ & 0.51847E+02_JPRB,0.61639E+02_JPRB,0.71632E+02_JPRB,0.81369E+02_JPRB /)  
+KA(:, 4, 4,14) = (/ &
+ & 0.79512E+02_JPRB,0.69733E+02_JPRB,0.59989E+02_JPRB,0.50979E+02_JPRB,0.49088E+02_JPRB, &
+ & 0.51360E+02_JPRB,0.60947E+02_JPRB,0.70836E+02_JPRB,0.80468E+02_JPRB /)  
+KA(:, 5, 4,14) = (/ &
+ & 0.79325E+02_JPRB,0.69569E+02_JPRB,0.59854E+02_JPRB,0.50871E+02_JPRB,0.48882E+02_JPRB, &
+ & 0.50991E+02_JPRB,0.60362E+02_JPRB,0.70161E+02_JPRB,0.79701E+02_JPRB /)  
+KA(:, 1, 5,14) = (/ &
+ & 0.91112E+02_JPRB,0.79892E+02_JPRB,0.68781E+02_JPRB,0.59496E+02_JPRB,0.57988E+02_JPRB, &
+ & 0.60415E+02_JPRB,0.71595E+02_JPRB,0.83227E+02_JPRB,0.94854E+02_JPRB /)  
+KA(:, 2, 5,14) = (/ &
+ & 0.91447E+02_JPRB,0.80173E+02_JPRB,0.69023E+02_JPRB,0.59416E+02_JPRB,0.57743E+02_JPRB, &
+ & 0.59673E+02_JPRB,0.70483E+02_JPRB,0.81942E+02_JPRB,0.93394E+02_JPRB /)  
+KA(:, 3, 5,14) = (/ &
+ & 0.91583E+02_JPRB,0.80288E+02_JPRB,0.69106E+02_JPRB,0.59276E+02_JPRB,0.57416E+02_JPRB, &
+ & 0.59035E+02_JPRB,0.69528E+02_JPRB,0.80829E+02_JPRB,0.92131E+02_JPRB /)  
+KA(:, 4, 5,14) = (/ &
+ & 0.91566E+02_JPRB,0.80257E+02_JPRB,0.69073E+02_JPRB,0.59136E+02_JPRB,0.57092E+02_JPRB, &
+ & 0.58527E+02_JPRB,0.68724E+02_JPRB,0.79885E+02_JPRB,0.91053E+02_JPRB /)  
+KA(:, 5, 5,14) = (/ &
+ & 0.91390E+02_JPRB,0.80104E+02_JPRB,0.68937E+02_JPRB,0.58973E+02_JPRB,0.56776E+02_JPRB, &
+ & 0.58107E+02_JPRB,0.68079E+02_JPRB,0.79072E+02_JPRB,0.90122E+02_JPRB /)  
+KA(:, 1, 6,14) = (/ &
+ & 0.10419E+03_JPRB,0.91394E+02_JPRB,0.78656E+02_JPRB,0.68916E+02_JPRB,0.67128E+02_JPRB, &
+ & 0.68461E+02_JPRB,0.79894E+02_JPRB,0.92926E+02_JPRB,0.10607E+03_JPRB /)  
+KA(:, 2, 6,14) = (/ &
+ & 0.10463E+03_JPRB,0.91782E+02_JPRB,0.79002E+02_JPRB,0.68819E+02_JPRB,0.66845E+02_JPRB, &
+ & 0.67738E+02_JPRB,0.78628E+02_JPRB,0.91458E+02_JPRB,0.10440E+03_JPRB /)  
+KA(:, 3, 6,14) = (/ &
+ & 0.10486E+03_JPRB,0.91970E+02_JPRB,0.79156E+02_JPRB,0.68698E+02_JPRB,0.66470E+02_JPRB, &
+ & 0.67066E+02_JPRB,0.77628E+02_JPRB,0.90242E+02_JPRB,0.10302E+03_JPRB /)  
+KA(:, 4, 6,14) = (/ &
+ & 0.10494E+03_JPRB,0.92025E+02_JPRB,0.79207E+02_JPRB,0.68555E+02_JPRB,0.66081E+02_JPRB, &
+ & 0.66543E+02_JPRB,0.76843E+02_JPRB,0.89253E+02_JPRB,0.10189E+03_JPRB /)  
+KA(:, 5, 6,14) = (/ &
+ & 0.10481E+03_JPRB,0.91892E+02_JPRB,0.79105E+02_JPRB,0.68344E+02_JPRB,0.65668E+02_JPRB, &
+ & 0.66109E+02_JPRB,0.76190E+02_JPRB,0.88386E+02_JPRB,0.10090E+03_JPRB /)  
+KA(:, 1, 7,14) = (/ &
+ & 0.11850E+03_JPRB,0.10394E+03_JPRB,0.89423E+02_JPRB,0.79509E+02_JPRB,0.77207E+02_JPRB, &
+ & 0.77196E+02_JPRB,0.87943E+02_JPRB,0.10236E+03_JPRB,0.11694E+03_JPRB /)  
+KA(:, 2, 7,14) = (/ &
+ & 0.11905E+03_JPRB,0.10443E+03_JPRB,0.89864E+02_JPRB,0.79528E+02_JPRB,0.76905E+02_JPRB, &
+ & 0.76494E+02_JPRB,0.86650E+02_JPRB,0.10078E+03_JPRB,0.11515E+03_JPRB /)  
+KA(:, 3, 7,14) = (/ &
+ & 0.11939E+03_JPRB,0.10473E+03_JPRB,0.90115E+02_JPRB,0.79401E+02_JPRB,0.76523E+02_JPRB, &
+ & 0.75853E+02_JPRB,0.85715E+02_JPRB,0.99595E+02_JPRB,0.11380E+03_JPRB /)  
+KA(:, 4, 7,14) = (/ &
+ & 0.11951E+03_JPRB,0.10484E+03_JPRB,0.90222E+02_JPRB,0.79220E+02_JPRB,0.76090E+02_JPRB, &
+ & 0.75405E+02_JPRB,0.85022E+02_JPRB,0.98653E+02_JPRB,0.11271E+03_JPRB /)  
+KA(:, 5, 7,14) = (/ &
+ & 0.11942E+03_JPRB,0.10476E+03_JPRB,0.90169E+02_JPRB,0.78976E+02_JPRB,0.75607E+02_JPRB, &
+ & 0.75018E+02_JPRB,0.84352E+02_JPRB,0.97783E+02_JPRB,0.11167E+03_JPRB /)  
+KA(:, 1, 8,14) = (/ &
+ & 0.13381E+03_JPRB,0.11735E+03_JPRB,0.10095E+03_JPRB,0.91226E+02_JPRB,0.88188E+02_JPRB, &
+ & 0.86379E+02_JPRB,0.95828E+02_JPRB,0.11155E+03_JPRB,0.12755E+03_JPRB /)  
+KA(:, 2, 8,14) = (/ &
+ & 0.13446E+03_JPRB,0.11794E+03_JPRB,0.10145E+03_JPRB,0.91271E+02_JPRB,0.87947E+02_JPRB, &
+ & 0.85766E+02_JPRB,0.94652E+02_JPRB,0.11006E+03_JPRB,0.12583E+03_JPRB /)  
+KA(:, 3, 8,14) = (/ &
+ & 0.13492E+03_JPRB,0.11834E+03_JPRB,0.10180E+03_JPRB,0.91233E+02_JPRB,0.87619E+02_JPRB, &
+ & 0.85228E+02_JPRB,0.93811E+02_JPRB,0.10892E+03_JPRB,0.12452E+03_JPRB /)  
+KA(:, 4, 8,14) = (/ &
+ & 0.13505E+03_JPRB,0.11846E+03_JPRB,0.10192E+03_JPRB,0.91090E+02_JPRB,0.87150E+02_JPRB, &
+ & 0.84887E+02_JPRB,0.93111E+02_JPRB,0.10797E+03_JPRB,0.12337E+03_JPRB /)  
+KA(:, 5, 8,14) = (/ &
+ & 0.13500E+03_JPRB,0.11844E+03_JPRB,0.10192E+03_JPRB,0.90797E+02_JPRB,0.86626E+02_JPRB, &
+ & 0.84570E+02_JPRB,0.92421E+02_JPRB,0.10710E+03_JPRB,0.12226E+03_JPRB /)  
+KA(:, 1, 9,14) = (/ &
+ & 0.14952E+03_JPRB,0.13110E+03_JPRB,0.11316E+03_JPRB,0.10410E+03_JPRB,0.99927E+02_JPRB, &
+ & 0.96074E+02_JPRB,0.10374E+03_JPRB,0.12067E+03_JPRB,0.13801E+03_JPRB /)  
+KA(:, 2, 9,14) = (/ &
+ & 0.15028E+03_JPRB,0.13179E+03_JPRB,0.11360E+03_JPRB,0.10415E+03_JPRB,0.99870E+02_JPRB, &
+ & 0.95589E+02_JPRB,0.10257E+03_JPRB,0.11912E+03_JPRB,0.13623E+03_JPRB /)  
+KA(:, 3, 9,14) = (/ &
+ & 0.15082E+03_JPRB,0.13227E+03_JPRB,0.11392E+03_JPRB,0.10405E+03_JPRB,0.99571E+02_JPRB, &
+ & 0.95189E+02_JPRB,0.10182E+03_JPRB,0.11803E+03_JPRB,0.13496E+03_JPRB /)  
+KA(:, 4, 9,14) = (/ &
+ & 0.15103E+03_JPRB,0.13247E+03_JPRB,0.11403E+03_JPRB,0.10385E+03_JPRB,0.99126E+02_JPRB, &
+ & 0.94980E+02_JPRB,0.10122E+03_JPRB,0.11720E+03_JPRB,0.13388E+03_JPRB /)  
+KA(:, 5, 9,14) = (/ &
+ & 0.15094E+03_JPRB,0.13245E+03_JPRB,0.11401E+03_JPRB,0.10348E+03_JPRB,0.98550E+02_JPRB, &
+ & 0.94746E+02_JPRB,0.10055E+03_JPRB,0.11636E+03_JPRB,0.13276E+03_JPRB /)  
+KA(:, 1,10,14) = (/ &
+ & 0.16524E+03_JPRB,0.14486E+03_JPRB,0.12594E+03_JPRB,0.11785E+03_JPRB,0.11225E+03_JPRB, &
+ & 0.10654E+03_JPRB,0.11202E+03_JPRB,0.12965E+03_JPRB,0.14829E+03_JPRB /)  
+KA(:, 2,10,14) = (/ &
+ & 0.16610E+03_JPRB,0.14564E+03_JPRB,0.12636E+03_JPRB,0.11787E+03_JPRB,0.11233E+03_JPRB, &
+ & 0.10630E+03_JPRB,0.11093E+03_JPRB,0.12811E+03_JPRB,0.14653E+03_JPRB /)  
+KA(:, 3,10,14) = (/ &
+ & 0.16659E+03_JPRB,0.14608E+03_JPRB,0.12656E+03_JPRB,0.11769E+03_JPRB,0.11214E+03_JPRB, &
+ & 0.10609E+03_JPRB,0.11032E+03_JPRB,0.12713E+03_JPRB,0.14532E+03_JPRB /)  
+KA(:, 4,10,14) = (/ &
+ & 0.16681E+03_JPRB,0.14630E+03_JPRB,0.12659E+03_JPRB,0.11736E+03_JPRB,0.11169E+03_JPRB, &
+ & 0.10597E+03_JPRB,0.10973E+03_JPRB,0.12629E+03_JPRB,0.14416E+03_JPRB /)  
+KA(:, 5,10,14) = (/ &
+ & 0.16671E+03_JPRB,0.14623E+03_JPRB,0.12639E+03_JPRB,0.11688E+03_JPRB,0.11111E+03_JPRB, &
+ & 0.10576E+03_JPRB,0.10909E+03_JPRB,0.12542E+03_JPRB,0.14303E+03_JPRB /)  
+KA(:, 1,11,14) = (/ &
+ & 0.18065E+03_JPRB,0.15832E+03_JPRB,0.13903E+03_JPRB,0.13201E+03_JPRB,0.12519E+03_JPRB, &
+ & 0.11820E+03_JPRB,0.12047E+03_JPRB,0.13760E+03_JPRB,0.15739E+03_JPRB /)  
+KA(:, 2,11,14) = (/ &
+ & 0.18131E+03_JPRB,0.15893E+03_JPRB,0.13916E+03_JPRB,0.13183E+03_JPRB,0.12520E+03_JPRB, &
+ & 0.11800E+03_JPRB,0.11979E+03_JPRB,0.13660E+03_JPRB,0.15612E+03_JPRB /)  
+KA(:, 3,11,14) = (/ &
+ & 0.18162E+03_JPRB,0.15925E+03_JPRB,0.13912E+03_JPRB,0.13145E+03_JPRB,0.12487E+03_JPRB, &
+ & 0.11789E+03_JPRB,0.11922E+03_JPRB,0.13566E+03_JPRB,0.15481E+03_JPRB /)  
+KA(:, 4,11,14) = (/ &
+ & 0.18161E+03_JPRB,0.15927E+03_JPRB,0.13888E+03_JPRB,0.13091E+03_JPRB,0.12432E+03_JPRB, &
+ & 0.11770E+03_JPRB,0.11858E+03_JPRB,0.13462E+03_JPRB,0.15350E+03_JPRB /)  
+KA(:, 5,11,14) = (/ &
+ & 0.18129E+03_JPRB,0.15901E+03_JPRB,0.13849E+03_JPRB,0.13027E+03_JPRB,0.12371E+03_JPRB, &
+ & 0.11738E+03_JPRB,0.11800E+03_JPRB,0.13378E+03_JPRB,0.15248E+03_JPRB /)  
+KA(:, 1,12,14) = (/ &
+ & 0.19439E+03_JPRB,0.17031E+03_JPRB,0.15181E+03_JPRB,0.14577E+03_JPRB,0.13828E+03_JPRB, &
+ & 0.13070E+03_JPRB,0.12972E+03_JPRB,0.14546E+03_JPRB,0.16618E+03_JPRB /)  
+KA(:, 2,12,14) = (/ &
+ & 0.19483E+03_JPRB,0.17073E+03_JPRB,0.15156E+03_JPRB,0.14543E+03_JPRB,0.13812E+03_JPRB, &
+ & 0.13043E+03_JPRB,0.12913E+03_JPRB,0.14443E+03_JPRB,0.16476E+03_JPRB /)  
+KA(:, 3,12,14) = (/ &
+ & 0.19494E+03_JPRB,0.17087E+03_JPRB,0.15124E+03_JPRB,0.14493E+03_JPRB,0.13771E+03_JPRB, &
+ & 0.13020E+03_JPRB,0.12847E+03_JPRB,0.14330E+03_JPRB,0.16335E+03_JPRB /)  
+KA(:, 4,12,14) = (/ &
+ & 0.19474E+03_JPRB,0.17073E+03_JPRB,0.15078E+03_JPRB,0.14425E+03_JPRB,0.13718E+03_JPRB, &
+ & 0.12986E+03_JPRB,0.12779E+03_JPRB,0.14240E+03_JPRB,0.16229E+03_JPRB /)  
+KA(:, 5,12,14) = (/ &
+ & 0.19420E+03_JPRB,0.17029E+03_JPRB,0.15011E+03_JPRB,0.14337E+03_JPRB,0.13666E+03_JPRB, &
+ & 0.12942E+03_JPRB,0.12725E+03_JPRB,0.14171E+03_JPRB,0.16147E+03_JPRB /)  
+KA(:, 1,13,14) = (/ &
+ & 0.20562E+03_JPRB,0.18014E+03_JPRB,0.16395E+03_JPRB,0.15885E+03_JPRB,0.15131E+03_JPRB, &
+ & 0.14344E+03_JPRB,0.13928E+03_JPRB,0.15201E+03_JPRB,0.17336E+03_JPRB /)  
+KA(:, 2,13,14) = (/ &
+ & 0.20583E+03_JPRB,0.18034E+03_JPRB,0.16346E+03_JPRB,0.15844E+03_JPRB,0.15102E+03_JPRB, &
+ & 0.14310E+03_JPRB,0.13867E+03_JPRB,0.15101E+03_JPRB,0.17210E+03_JPRB /)  
+KA(:, 3,13,14) = (/ &
+ & 0.20579E+03_JPRB,0.18034E+03_JPRB,0.16282E+03_JPRB,0.15782E+03_JPRB,0.15051E+03_JPRB, &
+ & 0.14271E+03_JPRB,0.13803E+03_JPRB,0.15026E+03_JPRB,0.17119E+03_JPRB /)  
+KA(:, 4,13,14) = (/ &
+ & 0.20539E+03_JPRB,0.18002E+03_JPRB,0.16199E+03_JPRB,0.15696E+03_JPRB,0.15005E+03_JPRB, &
+ & 0.14226E+03_JPRB,0.13746E+03_JPRB,0.14977E+03_JPRB,0.17061E+03_JPRB /)  
+KA(:, 5,13,14) = (/ &
+ & 0.20471E+03_JPRB,0.17946E+03_JPRB,0.16101E+03_JPRB,0.15580E+03_JPRB,0.14942E+03_JPRB, &
+ & 0.14163E+03_JPRB,0.13685E+03_JPRB,0.14922E+03_JPRB,0.16998E+03_JPRB /)  
+KA(:, 1, 1,15) = (/ &
+ & 0.61110E+02_JPRB,0.53539E+02_JPRB,0.46005E+02_JPRB,0.38902E+02_JPRB,0.35970E+02_JPRB, &
+ & 0.43986E+02_JPRB,0.52608E+02_JPRB,0.61157E+02_JPRB,0.65911E+02_JPRB /)  
+KA(:, 2, 1,15) = (/ &
+ & 0.61315E+02_JPRB,0.53717E+02_JPRB,0.46235E+02_JPRB,0.39083E+02_JPRB,0.35687E+02_JPRB, &
+ & 0.43381E+02_JPRB,0.51871E+02_JPRB,0.60290E+02_JPRB,0.64963E+02_JPRB /)  
+KA(:, 3, 1,15) = (/ &
+ & 0.61422E+02_JPRB,0.53821E+02_JPRB,0.46411E+02_JPRB,0.39188E+02_JPRB,0.35438E+02_JPRB, &
+ & 0.42839E+02_JPRB,0.51205E+02_JPRB,0.59514E+02_JPRB,0.64157E+02_JPRB /)  
+KA(:, 4, 1,15) = (/ &
+ & 0.61394E+02_JPRB,0.53877E+02_JPRB,0.46504E+02_JPRB,0.39222E+02_JPRB,0.35189E+02_JPRB, &
+ & 0.42365E+02_JPRB,0.50625E+02_JPRB,0.58813E+02_JPRB,0.63464E+02_JPRB /)  
+KA(:, 5, 1,15) = (/ &
+ & 0.61322E+02_JPRB,0.53865E+02_JPRB,0.46511E+02_JPRB,0.39177E+02_JPRB,0.34939E+02_JPRB, &
+ & 0.41926E+02_JPRB,0.50070E+02_JPRB,0.58152E+02_JPRB,0.62761E+02_JPRB /)  
+KA(:, 1, 2,15) = (/ &
+ & 0.73139E+02_JPRB,0.64054E+02_JPRB,0.54971E+02_JPRB,0.46172E+02_JPRB,0.42554E+02_JPRB, &
+ & 0.52369E+02_JPRB,0.62683E+02_JPRB,0.72904E+02_JPRB,0.80226E+02_JPRB /)  
+KA(:, 2, 2,15) = (/ &
+ & 0.73363E+02_JPRB,0.64250E+02_JPRB,0.55203E+02_JPRB,0.46423E+02_JPRB,0.42168E+02_JPRB, &
+ & 0.51668E+02_JPRB,0.61839E+02_JPRB,0.71917E+02_JPRB,0.79110E+02_JPRB /)  
+KA(:, 3, 2,15) = (/ &
+ & 0.73487E+02_JPRB,0.64383E+02_JPRB,0.55429E+02_JPRB,0.46632E+02_JPRB,0.41828E+02_JPRB, &
+ & 0.50986E+02_JPRB,0.61016E+02_JPRB,0.70950E+02_JPRB,0.78048E+02_JPRB /)  
+KA(:, 4, 2,15) = (/ &
+ & 0.73536E+02_JPRB,0.64501E+02_JPRB,0.55558E+02_JPRB,0.46729E+02_JPRB,0.41557E+02_JPRB, &
+ & 0.50314E+02_JPRB,0.60204E+02_JPRB,0.70005E+02_JPRB,0.77009E+02_JPRB /)  
+KA(:, 5, 2,15) = (/ &
+ & 0.73500E+02_JPRB,0.64509E+02_JPRB,0.55582E+02_JPRB,0.46709E+02_JPRB,0.41283E+02_JPRB, &
+ & 0.49695E+02_JPRB,0.59450E+02_JPRB,0.69119E+02_JPRB,0.76024E+02_JPRB /)  
+KA(:, 1, 3,15) = (/ &
+ & 0.87361E+02_JPRB,0.76491E+02_JPRB,0.65621E+02_JPRB,0.54890E+02_JPRB,0.50598E+02_JPRB, &
+ & 0.62297E+02_JPRB,0.74612E+02_JPRB,0.86825E+02_JPRB,0.97550E+02_JPRB /)  
+KA(:, 2, 3,15) = (/ &
+ & 0.87685E+02_JPRB,0.76774E+02_JPRB,0.65885E+02_JPRB,0.55188E+02_JPRB,0.50206E+02_JPRB, &
+ & 0.61585E+02_JPRB,0.73754E+02_JPRB,0.85807E+02_JPRB,0.96409E+02_JPRB /)  
+KA(:, 3, 3,15) = (/ &
+ & 0.87844E+02_JPRB,0.76919E+02_JPRB,0.66106E+02_JPRB,0.55413E+02_JPRB,0.49812E+02_JPRB, &
+ & 0.60785E+02_JPRB,0.72789E+02_JPRB,0.84689E+02_JPRB,0.95141E+02_JPRB /)  
+KA(:, 4, 3,15) = (/ &
+ & 0.87889E+02_JPRB,0.77037E+02_JPRB,0.66247E+02_JPRB,0.55541E+02_JPRB,0.49446E+02_JPRB, &
+ & 0.60010E+02_JPRB,0.71857E+02_JPRB,0.83593E+02_JPRB,0.93898E+02_JPRB /)  
+KA(:, 5, 3,15) = (/ &
+ & 0.87858E+02_JPRB,0.77051E+02_JPRB,0.66285E+02_JPRB,0.55583E+02_JPRB,0.49097E+02_JPRB, &
+ & 0.59241E+02_JPRB,0.70929E+02_JPRB,0.82513E+02_JPRB,0.92686E+02_JPRB /)  
+KA(:, 1, 4,15) = (/ &
+ & 0.10387E+03_JPRB,0.90929E+02_JPRB,0.77989E+02_JPRB,0.65095E+02_JPRB,0.60436E+02_JPRB, &
+ & 0.74039E+02_JPRB,0.88717E+02_JPRB,0.10327E+03_JPRB,0.11725E+03_JPRB /)  
+KA(:, 2, 4,15) = (/ &
+ & 0.10441E+03_JPRB,0.91405E+02_JPRB,0.78408E+02_JPRB,0.65545E+02_JPRB,0.59926E+02_JPRB, &
+ & 0.73070E+02_JPRB,0.87549E+02_JPRB,0.10190E+03_JPRB,0.11570E+03_JPRB /)  
+KA(:, 3, 4,15) = (/ &
+ & 0.10471E+03_JPRB,0.91680E+02_JPRB,0.78722E+02_JPRB,0.65845E+02_JPRB,0.59509E+02_JPRB, &
+ & 0.72264E+02_JPRB,0.86581E+02_JPRB,0.10076E+03_JPRB,0.11440E+03_JPRB /)  
+KA(:, 4, 4,15) = (/ &
+ & 0.10486E+03_JPRB,0.91873E+02_JPRB,0.78926E+02_JPRB,0.66032E+02_JPRB,0.59086E+02_JPRB, &
+ & 0.71381E+02_JPRB,0.85514E+02_JPRB,0.99526E+02_JPRB,0.11299E+03_JPRB /)  
+KA(:, 5, 4,15) = (/ &
+ & 0.10483E+03_JPRB,0.91879E+02_JPRB,0.78952E+02_JPRB,0.66063E+02_JPRB,0.58651E+02_JPRB, &
+ & 0.70432E+02_JPRB,0.84377E+02_JPRB,0.98185E+02_JPRB,0.11148E+03_JPRB /)  
+KA(:, 1, 5,15) = (/ &
+ & 0.12314E+03_JPRB,0.10778E+03_JPRB,0.92429E+02_JPRB,0.77074E+02_JPRB,0.72086E+02_JPRB, &
+ & 0.87688E+02_JPRB,0.10511E+03_JPRB,0.12238E+03_JPRB,0.13959E+03_JPRB /)  
+KA(:, 2, 5,15) = (/ &
+ & 0.12380E+03_JPRB,0.10836E+03_JPRB,0.92922E+02_JPRB,0.77571E+02_JPRB,0.71572E+02_JPRB, &
+ & 0.86586E+02_JPRB,0.10378E+03_JPRB,0.12082E+03_JPRB,0.13782E+03_JPRB /)  
+KA(:, 3, 5,15) = (/ &
+ & 0.12423E+03_JPRB,0.10877E+03_JPRB,0.93351E+02_JPRB,0.77983E+02_JPRB,0.71097E+02_JPRB, &
+ & 0.85507E+02_JPRB,0.10249E+03_JPRB,0.11931E+03_JPRB,0.13609E+03_JPRB /)  
+KA(:, 4, 5,15) = (/ &
+ & 0.12450E+03_JPRB,0.10905E+03_JPRB,0.93631E+02_JPRB,0.78238E+02_JPRB,0.70653E+02_JPRB, &
+ & 0.84488E+02_JPRB,0.10126E+03_JPRB,0.11788E+03_JPRB,0.13445E+03_JPRB /)  
+KA(:, 5, 5,15) = (/ &
+ & 0.12453E+03_JPRB,0.10910E+03_JPRB,0.93684E+02_JPRB,0.78289E+02_JPRB,0.70179E+02_JPRB, &
+ & 0.83403E+02_JPRB,0.99954E+02_JPRB,0.11636E+03_JPRB,0.13271E+03_JPRB /)  
+KA(:, 1, 6,15) = (/ &
+ & 0.14538E+03_JPRB,0.12724E+03_JPRB,0.10910E+03_JPRB,0.90962E+02_JPRB,0.85931E+02_JPRB, &
+ & 0.10354E+03_JPRB,0.12413E+03_JPRB,0.14456E+03_JPRB,0.16524E+03_JPRB /)  
+KA(:, 2, 6,15) = (/ &
+ & 0.14625E+03_JPRB,0.12800E+03_JPRB,0.10975E+03_JPRB,0.91547E+02_JPRB,0.85303E+02_JPRB, &
+ & 0.10223E+03_JPRB,0.12256E+03_JPRB,0.14271E+03_JPRB,0.16313E+03_JPRB /)  
+KA(:, 3, 6,15) = (/ &
+ & 0.14683E+03_JPRB,0.12855E+03_JPRB,0.11028E+03_JPRB,0.92053E+02_JPRB,0.84796E+02_JPRB, &
+ & 0.10095E+03_JPRB,0.12102E+03_JPRB,0.14092E+03_JPRB,0.16108E+03_JPRB /)  
+KA(:, 4, 6,15) = (/ &
+ & 0.14716E+03_JPRB,0.12887E+03_JPRB,0.11059E+03_JPRB,0.92330E+02_JPRB,0.84296E+02_JPRB, &
+ & 0.99657E+02_JPRB,0.11947E+03_JPRB,0.13910E+03_JPRB,0.15900E+03_JPRB /)  
+KA(:, 5, 6,15) = (/ &
+ & 0.14726E+03_JPRB,0.12897E+03_JPRB,0.11069E+03_JPRB,0.92414E+02_JPRB,0.83857E+02_JPRB, &
+ & 0.98384E+02_JPRB,0.11794E+03_JPRB,0.13732E+03_JPRB,0.15696E+03_JPRB /)  
+KA(:, 1, 7,15) = (/ &
+ & 0.17053E+03_JPRB,0.14925E+03_JPRB,0.12796E+03_JPRB,0.10716E+03_JPRB,0.10213E+03_JPRB, &
+ & 0.12188E+03_JPRB,0.14615E+03_JPRB,0.17020E+03_JPRB,0.19480E+03_JPRB /)  
+KA(:, 2, 7,15) = (/ &
+ & 0.17172E+03_JPRB,0.15029E+03_JPRB,0.12885E+03_JPRB,0.10758E+03_JPRB,0.10144E+03_JPRB, &
+ & 0.12029E+03_JPRB,0.14423E+03_JPRB,0.16798E+03_JPRB,0.19224E+03_JPRB /)  
+KA(:, 3, 7,15) = (/ &
+ & 0.17251E+03_JPRB,0.15103E+03_JPRB,0.12955E+03_JPRB,0.10811E+03_JPRB,0.10086E+03_JPRB, &
+ & 0.11869E+03_JPRB,0.14231E+03_JPRB,0.16572E+03_JPRB,0.18967E+03_JPRB /)  
+KA(:, 4, 7,15) = (/ &
+ & 0.17303E+03_JPRB,0.15150E+03_JPRB,0.12997E+03_JPRB,0.10845E+03_JPRB,0.10032E+03_JPRB, &
+ & 0.11701E+03_JPRB,0.14029E+03_JPRB,0.16338E+03_JPRB,0.18697E+03_JPRB /)  
+KA(:, 5, 7,15) = (/ &
+ & 0.17326E+03_JPRB,0.15170E+03_JPRB,0.13015E+03_JPRB,0.10860E+03_JPRB,0.99828E+02_JPRB, &
+ & 0.11540E+03_JPRB,0.13837E+03_JPRB,0.16114E+03_JPRB,0.18440E+03_JPRB /)  
+KA(:, 1, 8,15) = (/ &
+ & 0.19897E+03_JPRB,0.17412E+03_JPRB,0.14927E+03_JPRB,0.12609E+03_JPRB,0.12102E+03_JPRB, &
+ & 0.14307E+03_JPRB,0.17149E+03_JPRB,0.19971E+03_JPRB,0.22868E+03_JPRB /)  
+KA(:, 2, 8,15) = (/ &
+ & 0.20045E+03_JPRB,0.17541E+03_JPRB,0.15039E+03_JPRB,0.12643E+03_JPRB,0.12014E+03_JPRB, &
+ & 0.14095E+03_JPRB,0.16896E+03_JPRB,0.19679E+03_JPRB,0.22532E+03_JPRB /)  
+KA(:, 3, 8,15) = (/ &
+ & 0.20144E+03_JPRB,0.17633E+03_JPRB,0.15122E+03_JPRB,0.12673E+03_JPRB,0.11946E+03_JPRB, &
+ & 0.13885E+03_JPRB,0.16646E+03_JPRB,0.19386E+03_JPRB,0.22200E+03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART10',1,ZHOOK_HANDLE)
+END SUBROUTINE PART10
+
+
+SUBROUTINE PART11
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART11',0,ZHOOK_HANDLE)
+
+
+KA(:, 4, 8,15) = (/ &
+ & 0.20212E+03_JPRB,0.17694E+03_JPRB,0.15175E+03_JPRB,0.12692E+03_JPRB,0.11890E+03_JPRB, &
+ & 0.13670E+03_JPRB,0.16392E+03_JPRB,0.19092E+03_JPRB,0.21864E+03_JPRB /)  
+KA(:, 5, 8,15) = (/ &
+ & 0.20244E+03_JPRB,0.17722E+03_JPRB,0.15200E+03_JPRB,0.12703E+03_JPRB,0.11832E+03_JPRB, &
+ & 0.13474E+03_JPRB,0.16157E+03_JPRB,0.18819E+03_JPRB,0.21551E+03_JPRB /)  
+KA(:, 1, 9,15) = (/ &
+ & 0.23120E+03_JPRB,0.20232E+03_JPRB,0.17344E+03_JPRB,0.14797E+03_JPRB,0.14299E+03_JPRB, &
+ & 0.16694E+03_JPRB,0.20011E+03_JPRB,0.23304E+03_JPRB,0.26690E+03_JPRB /)  
+KA(:, 2, 9,15) = (/ &
+ & 0.23311E+03_JPRB,0.20399E+03_JPRB,0.17488E+03_JPRB,0.14825E+03_JPRB,0.14181E+03_JPRB, &
+ & 0.16424E+03_JPRB,0.19689E+03_JPRB,0.22930E+03_JPRB,0.26259E+03_JPRB /)  
+KA(:, 3, 9,15) = (/ &
+ & 0.23434E+03_JPRB,0.20510E+03_JPRB,0.17587E+03_JPRB,0.14844E+03_JPRB,0.14100E+03_JPRB, &
+ & 0.16150E+03_JPRB,0.19359E+03_JPRB,0.22546E+03_JPRB,0.25821E+03_JPRB /)  
+KA(:, 4, 9,15) = (/ &
+ & 0.23518E+03_JPRB,0.20584E+03_JPRB,0.17651E+03_JPRB,0.14849E+03_JPRB,0.14028E+03_JPRB, &
+ & 0.15873E+03_JPRB,0.19031E+03_JPRB,0.22162E+03_JPRB,0.25383E+03_JPRB /)  
+KA(:, 5, 9,15) = (/ &
+ & 0.23553E+03_JPRB,0.20616E+03_JPRB,0.17678E+03_JPRB,0.14839E+03_JPRB,0.13959E+03_JPRB, &
+ & 0.15626E+03_JPRB,0.18736E+03_JPRB,0.21823E+03_JPRB,0.24993E+03_JPRB /)  
+KA(:, 1,10,15) = (/ &
+ & 0.26766E+03_JPRB,0.23422E+03_JPRB,0.20086E+03_JPRB,0.17305E+03_JPRB,0.16820E+03_JPRB, &
+ & 0.19275E+03_JPRB,0.23109E+03_JPRB,0.26916E+03_JPRB,0.30826E+03_JPRB /)  
+KA(:, 2,10,15) = (/ &
+ & 0.26991E+03_JPRB,0.23619E+03_JPRB,0.20254E+03_JPRB,0.17334E+03_JPRB,0.16673E+03_JPRB, &
+ & 0.18936E+03_JPRB,0.22702E+03_JPRB,0.26442E+03_JPRB,0.30283E+03_JPRB /)  
+KA(:, 3,10,15) = (/ &
+ & 0.27155E+03_JPRB,0.23766E+03_JPRB,0.20381E+03_JPRB,0.17344E+03_JPRB,0.16570E+03_JPRB, &
+ & 0.18588E+03_JPRB,0.22280E+03_JPRB,0.25950E+03_JPRB,0.29719E+03_JPRB /)  
+KA(:, 4,10,15) = (/ &
+ & 0.27254E+03_JPRB,0.23853E+03_JPRB,0.20456E+03_JPRB,0.17332E+03_JPRB,0.16480E+03_JPRB, &
+ & 0.18267E+03_JPRB,0.21887E+03_JPRB,0.25495E+03_JPRB,0.29197E+03_JPRB /)  
+KA(:, 5,10,15) = (/ &
+ & 0.27304E+03_JPRB,0.23896E+03_JPRB,0.20491E+03_JPRB,0.17301E+03_JPRB,0.16390E+03_JPRB, &
+ & 0.17979E+03_JPRB,0.21534E+03_JPRB,0.25082E+03_JPRB,0.28725E+03_JPRB /)  
+KA(:, 1,11,15) = (/ &
+ & 0.31010E+03_JPRB,0.27147E+03_JPRB,0.23291E+03_JPRB,0.20181E+03_JPRB,0.19592E+03_JPRB, &
+ & 0.21861E+03_JPRB,0.26152E+03_JPRB,0.30466E+03_JPRB,0.34889E+03_JPRB /)  
+KA(:, 2,11,15) = (/ &
+ & 0.31237E+03_JPRB,0.27343E+03_JPRB,0.23463E+03_JPRB,0.20183E+03_JPRB,0.19444E+03_JPRB, &
+ & 0.21467E+03_JPRB,0.25634E+03_JPRB,0.29864E+03_JPRB,0.34194E+03_JPRB /)  
+KA(:, 3,11,15) = (/ &
+ & 0.31396E+03_JPRB,0.27478E+03_JPRB,0.23578E+03_JPRB,0.20169E+03_JPRB,0.19320E+03_JPRB, &
+ & 0.21082E+03_JPRB,0.25169E+03_JPRB,0.29321E+03_JPRB,0.33575E+03_JPRB /)  
+KA(:, 4,11,15) = (/ &
+ & 0.31491E+03_JPRB,0.27559E+03_JPRB,0.23646E+03_JPRB,0.20134E+03_JPRB,0.19199E+03_JPRB, &
+ & 0.20744E+03_JPRB,0.24738E+03_JPRB,0.28820E+03_JPRB,0.33002E+03_JPRB /)  
+KA(:, 5,11,15) = (/ &
+ & 0.31516E+03_JPRB,0.27581E+03_JPRB,0.23662E+03_JPRB,0.20063E+03_JPRB,0.19065E+03_JPRB, &
+ & 0.20428E+03_JPRB,0.24308E+03_JPRB,0.28319E+03_JPRB,0.32426E+03_JPRB /)  
+KA(:, 1,12,15) = (/ &
+ & 0.35746E+03_JPRB,0.31300E+03_JPRB,0.26858E+03_JPRB,0.23433E+03_JPRB,0.22701E+03_JPRB, &
+ & 0.24649E+03_JPRB,0.29230E+03_JPRB,0.34058E+03_JPRB,0.38993E+03_JPRB /)  
+KA(:, 2,12,15) = (/ &
+ & 0.35965E+03_JPRB,0.31492E+03_JPRB,0.27026E+03_JPRB,0.23392E+03_JPRB,0.22536E+03_JPRB, &
+ & 0.24218E+03_JPRB,0.28684E+03_JPRB,0.33421E+03_JPRB,0.38264E+03_JPRB /)  
+KA(:, 3,12,15) = (/ &
+ & 0.36096E+03_JPRB,0.31606E+03_JPRB,0.27127E+03_JPRB,0.23331E+03_JPRB,0.22367E+03_JPRB, &
+ & 0.23821E+03_JPRB,0.28173E+03_JPRB,0.32828E+03_JPRB,0.37584E+03_JPRB /)  
+KA(:, 4,12,15) = (/ &
+ & 0.36159E+03_JPRB,0.31657E+03_JPRB,0.27171E+03_JPRB,0.23251E+03_JPRB,0.22182E+03_JPRB, &
+ & 0.23456E+03_JPRB,0.27669E+03_JPRB,0.32238E+03_JPRB,0.36910E+03_JPRB /)  
+KA(:, 5,12,15) = (/ &
+ & 0.36141E+03_JPRB,0.31636E+03_JPRB,0.27153E+03_JPRB,0.23134E+03_JPRB,0.21976E+03_JPRB, &
+ & 0.23095E+03_JPRB,0.27160E+03_JPRB,0.31644E+03_JPRB,0.36227E+03_JPRB /)  
+KA(:, 1,13,15) = (/ &
+ & 0.40931E+03_JPRB,0.35842E+03_JPRB,0.30758E+03_JPRB,0.27041E+03_JPRB,0.26133E+03_JPRB, &
+ & 0.27679E+03_JPRB,0.32393E+03_JPRB,0.37751E+03_JPRB,0.43213E+03_JPRB /)  
+KA(:, 2,13,15) = (/ &
+ & 0.41124E+03_JPRB,0.36013E+03_JPRB,0.30908E+03_JPRB,0.26935E+03_JPRB,0.25923E+03_JPRB, &
+ & 0.27218E+03_JPRB,0.31806E+03_JPRB,0.37065E+03_JPRB,0.42432E+03_JPRB /)  
+KA(:, 3,13,15) = (/ &
+ & 0.41214E+03_JPRB,0.36093E+03_JPRB,0.30979E+03_JPRB,0.26811E+03_JPRB,0.25684E+03_JPRB, &
+ & 0.26794E+03_JPRB,0.31214E+03_JPRB,0.36375E+03_JPRB,0.41639E+03_JPRB /)  
+KA(:, 4,13,15) = (/ &
+ & 0.41225E+03_JPRB,0.36102E+03_JPRB,0.30989E+03_JPRB,0.26655E+03_JPRB,0.25418E+03_JPRB, &
+ & 0.26378E+03_JPRB,0.30615E+03_JPRB,0.35676E+03_JPRB,0.40836E+03_JPRB /)  
+KA(:, 5,13,15) = (/ &
+ & 0.41130E+03_JPRB,0.36017E+03_JPRB,0.30917E+03_JPRB,0.26471E+03_JPRB,0.25127E+03_JPRB, &
+ & 0.25962E+03_JPRB,0.30054E+03_JPRB,0.35018E+03_JPRB,0.40087E+03_JPRB /)  
+KA(:, 1, 1,16) = (/ &
+ & 0.66783E+02_JPRB,0.58494E+02_JPRB,0.50207E+02_JPRB,0.41922E+02_JPRB,0.39207E+02_JPRB, &
+ & 0.48837E+02_JPRB,0.58441E+02_JPRB,0.67973E+02_JPRB,0.73684E+02_JPRB /)  
+KA(:, 2, 1,16) = (/ &
+ & 0.66987E+02_JPRB,0.58663E+02_JPRB,0.50340E+02_JPRB,0.42083E+02_JPRB,0.39992E+02_JPRB, &
+ & 0.49756E+02_JPRB,0.59507E+02_JPRB,0.69167E+02_JPRB,0.75232E+02_JPRB /)  
+KA(:, 3, 1,16) = (/ &
+ & 0.67128E+02_JPRB,0.58776E+02_JPRB,0.50426E+02_JPRB,0.42412E+02_JPRB,0.40738E+02_JPRB, &
+ & 0.50635E+02_JPRB,0.60514E+02_JPRB,0.70320E+02_JPRB,0.76487E+02_JPRB /)  
+KA(:, 4, 1,16) = (/ &
+ & 0.67159E+02_JPRB,0.58797E+02_JPRB,0.50435E+02_JPRB,0.42709E+02_JPRB,0.41336E+02_JPRB, &
+ & 0.51345E+02_JPRB,0.61329E+02_JPRB,0.71239E+02_JPRB,0.77474E+02_JPRB /)  
+KA(:, 5, 1,16) = (/ &
+ & 0.67048E+02_JPRB,0.58698E+02_JPRB,0.50349E+02_JPRB,0.42916E+02_JPRB,0.41806E+02_JPRB, &
+ & 0.51893E+02_JPRB,0.61955E+02_JPRB,0.71939E+02_JPRB,0.78212E+02_JPRB /)  
+KA(:, 1, 2,16) = (/ &
+ & 0.80817E+02_JPRB,0.70771E+02_JPRB,0.60724E+02_JPRB,0.50680E+02_JPRB,0.46121E+02_JPRB, &
+ & 0.57561E+02_JPRB,0.68978E+02_JPRB,0.80276E+02_JPRB,0.88125E+02_JPRB /)  
+KA(:, 2, 2,16) = (/ &
+ & 0.81120E+02_JPRB,0.71031E+02_JPRB,0.60942E+02_JPRB,0.50856E+02_JPRB,0.46531E+02_JPRB, &
+ & 0.58009E+02_JPRB,0.69466E+02_JPRB,0.80811E+02_JPRB,0.88902E+02_JPRB /)  
+KA(:, 3, 2,16) = (/ &
+ & 0.81295E+02_JPRB,0.71179E+02_JPRB,0.61065E+02_JPRB,0.50952E+02_JPRB,0.47046E+02_JPRB, &
+ & 0.58603E+02_JPRB,0.70144E+02_JPRB,0.81568E+02_JPRB,0.89842E+02_JPRB /)  
+KA(:, 4, 2,16) = (/ &
+ & 0.81302E+02_JPRB,0.71181E+02_JPRB,0.61061E+02_JPRB,0.50998E+02_JPRB,0.47535E+02_JPRB, &
+ & 0.59172E+02_JPRB,0.70788E+02_JPRB,0.82285E+02_JPRB,0.90723E+02_JPRB /)  
+KA(:, 5, 2,16) = (/ &
+ & 0.81254E+02_JPRB,0.71123E+02_JPRB,0.60992E+02_JPRB,0.51150E+02_JPRB,0.47959E+02_JPRB, &
+ & 0.59657E+02_JPRB,0.71327E+02_JPRB,0.82908E+02_JPRB,0.91460E+02_JPRB /)  
+KA(:, 1, 3,16) = (/ &
+ & 0.97635E+02_JPRB,0.85483E+02_JPRB,0.73330E+02_JPRB,0.61179E+02_JPRB,0.56207E+02_JPRB, &
+ & 0.70215E+02_JPRB,0.84188E+02_JPRB,0.98014E+02_JPRB,0.10988E+03_JPRB /)  
+KA(:, 2, 3,16) = (/ &
+ & 0.98163E+02_JPRB,0.85943E+02_JPRB,0.73724E+02_JPRB,0.61504E+02_JPRB,0.55633E+02_JPRB, &
+ & 0.69472E+02_JPRB,0.83276E+02_JPRB,0.96935E+02_JPRB,0.10869E+03_JPRB /)  
+KA(:, 3, 3,16) = (/ &
+ & 0.98472E+02_JPRB,0.86211E+02_JPRB,0.73951E+02_JPRB,0.61693E+02_JPRB,0.55697E+02_JPRB, &
+ & 0.69495E+02_JPRB,0.83260E+02_JPRB,0.96885E+02_JPRB,0.10871E+03_JPRB /)  
+KA(:, 4, 3,16) = (/ &
+ & 0.98535E+02_JPRB,0.86265E+02_JPRB,0.73995E+02_JPRB,0.61728E+02_JPRB,0.55937E+02_JPRB, &
+ & 0.69749E+02_JPRB,0.83530E+02_JPRB,0.97171E+02_JPRB,0.10906E+03_JPRB /)  
+KA(:, 5, 3,16) = (/ &
+ & 0.98433E+02_JPRB,0.86165E+02_JPRB,0.73899E+02_JPRB,0.61635E+02_JPRB,0.56204E+02_JPRB, &
+ & 0.70040E+02_JPRB,0.83840E+02_JPRB,0.97500E+02_JPRB,0.10946E+03_JPRB /)  
+KA(:, 1, 4,16) = (/ &
+ & 0.11801E+03_JPRB,0.10331E+03_JPRB,0.88600E+02_JPRB,0.73894E+02_JPRB,0.68841E+02_JPRB, &
+ & 0.86008E+02_JPRB,0.10313E+03_JPRB,0.12007E+03_JPRB,0.13623E+03_JPRB /)  
+KA(:, 2, 4,16) = (/ &
+ & 0.11855E+03_JPRB,0.10378E+03_JPRB,0.89007E+02_JPRB,0.74235E+02_JPRB,0.68009E+02_JPRB, &
+ & 0.84957E+02_JPRB,0.10186E+03_JPRB,0.11859E+03_JPRB,0.13456E+03_JPRB /)  
+KA(:, 3, 4,16) = (/ &
+ & 0.11911E+03_JPRB,0.10427E+03_JPRB,0.89430E+02_JPRB,0.74590E+02_JPRB,0.67220E+02_JPRB, &
+ & 0.83955E+02_JPRB,0.10065E+03_JPRB,0.11716E+03_JPRB,0.13292E+03_JPRB /)  
+KA(:, 4, 4,16) = (/ &
+ & 0.11932E+03_JPRB,0.10446E+03_JPRB,0.89591E+02_JPRB,0.74725E+02_JPRB,0.66996E+02_JPRB, &
+ & 0.83620E+02_JPRB,0.10020E+03_JPRB,0.11661E+03_JPRB,0.13231E+03_JPRB /)  
+KA(:, 5, 4,16) = (/ &
+ & 0.11933E+03_JPRB,0.10445E+03_JPRB,0.89579E+02_JPRB,0.74708E+02_JPRB,0.67016E+02_JPRB, &
+ & 0.83607E+02_JPRB,0.10016E+03_JPRB,0.11655E+03_JPRB,0.13223E+03_JPRB /)  
+KA(:, 1, 5,16) = (/ &
+ & 0.14253E+03_JPRB,0.12475E+03_JPRB,0.10698E+03_JPRB,0.89200E+02_JPRB,0.84755E+02_JPRB, &
+ & 0.10590E+03_JPRB,0.12699E+03_JPRB,0.14785E+03_JPRB,0.16865E+03_JPRB /)  
+KA(:, 2, 5,16) = (/ &
+ & 0.14325E+03_JPRB,0.12539E+03_JPRB,0.10752E+03_JPRB,0.89655E+02_JPRB,0.83145E+02_JPRB, &
+ & 0.10388E+03_JPRB,0.12456E+03_JPRB,0.14501E+03_JPRB,0.16542E+03_JPRB /)  
+KA(:, 3, 5,16) = (/ &
+ & 0.14383E+03_JPRB,0.12589E+03_JPRB,0.10795E+03_JPRB,0.90019E+02_JPRB,0.82092E+02_JPRB, &
+ & 0.10255E+03_JPRB,0.12296E+03_JPRB,0.14315E+03_JPRB,0.16327E+03_JPRB /)  
+KA(:, 4, 5,16) = (/ &
+ & 0.14418E+03_JPRB,0.12620E+03_JPRB,0.10822E+03_JPRB,0.90248E+02_JPRB,0.81037E+02_JPRB, &
+ & 0.10121E+03_JPRB,0.12133E+03_JPRB,0.14124E+03_JPRB,0.16108E+03_JPRB /)  
+KA(:, 5, 5,16) = (/ &
+ & 0.14437E+03_JPRB,0.12637E+03_JPRB,0.10836E+03_JPRB,0.90358E+02_JPRB,0.80556E+02_JPRB, &
+ & 0.10057E+03_JPRB,0.12052E+03_JPRB,0.14027E+03_JPRB,0.15994E+03_JPRB /)  
+KA(:, 1, 6,16) = (/ &
+ & 0.17174E+03_JPRB,0.15031E+03_JPRB,0.12887E+03_JPRB,0.10744E+03_JPRB,0.10459E+03_JPRB, &
+ & 0.13069E+03_JPRB,0.15672E+03_JPRB,0.18250E+03_JPRB,0.20866E+03_JPRB /)  
+KA(:, 2, 6,16) = (/ &
+ & 0.17281E+03_JPRB,0.15124E+03_JPRB,0.12968E+03_JPRB,0.10811E+03_JPRB,0.10205E+03_JPRB, &
+ & 0.12751E+03_JPRB,0.15290E+03_JPRB,0.17802E+03_JPRB,0.20356E+03_JPRB /)  
+KA(:, 3, 6,16) = (/ &
+ & 0.17366E+03_JPRB,0.15199E+03_JPRB,0.13032E+03_JPRB,0.10865E+03_JPRB,0.10020E+03_JPRB, &
+ & 0.12519E+03_JPRB,0.15010E+03_JPRB,0.17475E+03_JPRB,0.19982E+03_JPRB /)  
+KA(:, 4, 6,16) = (/ &
+ & 0.17410E+03_JPRB,0.15237E+03_JPRB,0.13065E+03_JPRB,0.10893E+03_JPRB,0.98757E+02_JPRB, &
+ & 0.12337E+03_JPRB,0.14792E+03_JPRB,0.17221E+03_JPRB,0.19689E+03_JPRB /)  
+KA(:, 5, 6,16) = (/ &
+ & 0.17426E+03_JPRB,0.15251E+03_JPRB,0.13077E+03_JPRB,0.10903E+03_JPRB,0.97456E+02_JPRB, &
+ & 0.12171E+03_JPRB,0.14591E+03_JPRB,0.16984E+03_JPRB,0.19419E+03_JPRB /)  
+KA(:, 1, 7,16) = (/ &
+ & 0.20639E+03_JPRB,0.18062E+03_JPRB,0.15485E+03_JPRB,0.12907E+03_JPRB,0.12889E+03_JPRB, &
+ & 0.16105E+03_JPRB,0.19314E+03_JPRB,0.22488E+03_JPRB,0.25751E+03_JPRB /)  
+KA(:, 2, 7,16) = (/ &
+ & 0.20793E+03_JPRB,0.18197E+03_JPRB,0.15600E+03_JPRB,0.13004E+03_JPRB,0.12536E+03_JPRB, &
+ & 0.15664E+03_JPRB,0.18784E+03_JPRB,0.21870E+03_JPRB,0.25043E+03_JPRB /)  
+KA(:, 3, 7,16) = (/ &
+ & 0.20918E+03_JPRB,0.18307E+03_JPRB,0.15695E+03_JPRB,0.13084E+03_JPRB,0.12258E+03_JPRB, &
+ & 0.15317E+03_JPRB,0.18368E+03_JPRB,0.21386E+03_JPRB,0.24487E+03_JPRB /)  
+KA(:, 4, 7,16) = (/ &
+ & 0.20994E+03_JPRB,0.18373E+03_JPRB,0.15753E+03_JPRB,0.13132E+03_JPRB,0.12024E+03_JPRB, &
+ & 0.15023E+03_JPRB,0.18014E+03_JPRB,0.20974E+03_JPRB,0.24016E+03_JPRB /)  
+KA(:, 5, 7,16) = (/ &
+ & 0.21017E+03_JPRB,0.18393E+03_JPRB,0.15770E+03_JPRB,0.13147E+03_JPRB,0.11817E+03_JPRB, &
+ & 0.14763E+03_JPRB,0.17700E+03_JPRB,0.20610E+03_JPRB,0.23592E+03_JPRB /)  
+KA(:, 1, 8,16) = (/ &
+ & 0.24808E+03_JPRB,0.21709E+03_JPRB,0.18610E+03_JPRB,0.15511E+03_JPRB,0.15824E+03_JPRB, &
+ & 0.19773E+03_JPRB,0.23715E+03_JPRB,0.27617E+03_JPRB,0.31647E+03_JPRB /)  
+KA(:, 2, 8,16) = (/ &
+ & 0.24976E+03_JPRB,0.21856E+03_JPRB,0.18737E+03_JPRB,0.15617E+03_JPRB,0.15364E+03_JPRB, &
+ & 0.19198E+03_JPRB,0.23024E+03_JPRB,0.26808E+03_JPRB,0.30723E+03_JPRB /)  
+KA(:, 3, 8,16) = (/ &
+ & 0.25153E+03_JPRB,0.22011E+03_JPRB,0.18870E+03_JPRB,0.15729E+03_JPRB,0.14986E+03_JPRB, &
+ & 0.18726E+03_JPRB,0.22456E+03_JPRB,0.26146E+03_JPRB,0.29964E+03_JPRB /)  
+KA(:, 4, 8,16) = (/ &
+ & 0.25266E+03_JPRB,0.22111E+03_JPRB,0.18956E+03_JPRB,0.15801E+03_JPRB,0.14651E+03_JPRB, &
+ & 0.18308E+03_JPRB,0.21955E+03_JPRB,0.25564E+03_JPRB,0.29297E+03_JPRB /)  
+KA(:, 5, 8,16) = (/ &
+ & 0.25306E+03_JPRB,0.22146E+03_JPRB,0.18986E+03_JPRB,0.15826E+03_JPRB,0.14346E+03_JPRB, &
+ & 0.17924E+03_JPRB,0.21492E+03_JPRB,0.25024E+03_JPRB,0.28677E+03_JPRB /)  
+KA(:, 1, 9,16) = (/ &
+ & 0.29758E+03_JPRB,0.26040E+03_JPRB,0.22322E+03_JPRB,0.18603E+03_JPRB,0.19348E+03_JPRB, &
+ & 0.24177E+03_JPRB,0.28996E+03_JPRB,0.33765E+03_JPRB,0.38707E+03_JPRB /)  
+KA(:, 2, 9,16) = (/ &
+ & 0.29980E+03_JPRB,0.26234E+03_JPRB,0.22489E+03_JPRB,0.18744E+03_JPRB,0.18763E+03_JPRB, &
+ & 0.23446E+03_JPRB,0.28116E+03_JPRB,0.32742E+03_JPRB,0.37536E+03_JPRB /)  
+KA(:, 3, 9,16) = (/ &
+ & 0.30182E+03_JPRB,0.26412E+03_JPRB,0.22641E+03_JPRB,0.18871E+03_JPRB,0.18264E+03_JPRB, &
+ & 0.22823E+03_JPRB,0.27370E+03_JPRB,0.31874E+03_JPRB,0.36539E+03_JPRB /)  
+KA(:, 4, 9,16) = (/ &
+ & 0.30335E+03_JPRB,0.26546E+03_JPRB,0.22757E+03_JPRB,0.18968E+03_JPRB,0.17814E+03_JPRB, &
+ & 0.22260E+03_JPRB,0.26695E+03_JPRB,0.31086E+03_JPRB,0.35637E+03_JPRB /)  
+KA(:, 5, 9,16) = (/ &
+ & 0.30399E+03_JPRB,0.26602E+03_JPRB,0.22805E+03_JPRB,0.19008E+03_JPRB,0.17393E+03_JPRB, &
+ & 0.21734E+03_JPRB,0.26062E+03_JPRB,0.30347E+03_JPRB,0.34789E+03_JPRB /)  
+KA(:, 1,10,16) = (/ &
+ & 0.35657E+03_JPRB,0.31201E+03_JPRB,0.26745E+03_JPRB,0.22289E+03_JPRB,0.23471E+03_JPRB, &
+ & 0.29329E+03_JPRB,0.35175E+03_JPRB,0.40960E+03_JPRB,0.46960E+03_JPRB /)  
+KA(:, 2,10,16) = (/ &
+ & 0.35941E+03_JPRB,0.31450E+03_JPRB,0.26959E+03_JPRB,0.22468E+03_JPRB,0.22747E+03_JPRB, &
+ & 0.28425E+03_JPRB,0.34089E+03_JPRB,0.39700E+03_JPRB,0.45514E+03_JPRB /)  
+KA(:, 3,10,16) = (/ &
+ & 0.36173E+03_JPRB,0.31654E+03_JPRB,0.27134E+03_JPRB,0.22614E+03_JPRB,0.22110E+03_JPRB, &
+ & 0.27628E+03_JPRB,0.33132E+03_JPRB,0.38584E+03_JPRB,0.44234E+03_JPRB /)  
+KA(:, 4,10,16) = (/ &
+ & 0.36337E+03_JPRB,0.31797E+03_JPRB,0.27257E+03_JPRB,0.22717E+03_JPRB,0.21518E+03_JPRB, &
+ & 0.26889E+03_JPRB,0.32246E+03_JPRB,0.37553E+03_JPRB,0.43052E+03_JPRB /)  
+KA(:, 5,10,16) = (/ &
+ & 0.36404E+03_JPRB,0.31855E+03_JPRB,0.27307E+03_JPRB,0.22759E+03_JPRB,0.20959E+03_JPRB, &
+ & 0.26189E+03_JPRB,0.31406E+03_JPRB,0.36572E+03_JPRB,0.41925E+03_JPRB /)  
+KA(:, 1,11,16) = (/ &
+ & 0.42778E+03_JPRB,0.37432E+03_JPRB,0.32086E+03_JPRB,0.26740E+03_JPRB,0.27872E+03_JPRB, &
+ & 0.34830E+03_JPRB,0.41771E+03_JPRB,0.48646E+03_JPRB,0.55765E+03_JPRB /)  
+KA(:, 2,11,16) = (/ &
+ & 0.43110E+03_JPRB,0.37723E+03_JPRB,0.32336E+03_JPRB,0.26948E+03_JPRB,0.27023E+03_JPRB, &
+ & 0.33769E+03_JPRB,0.40499E+03_JPRB,0.47168E+03_JPRB,0.54065E+03_JPRB /)  
+KA(:, 3,11,16) = (/ &
+ & 0.43351E+03_JPRB,0.37933E+03_JPRB,0.32516E+03_JPRB,0.27099E+03_JPRB,0.26235E+03_JPRB, &
+ & 0.32784E+03_JPRB,0.39315E+03_JPRB,0.45790E+03_JPRB,0.52488E+03_JPRB /)  
+KA(:, 4,11,16) = (/ &
+ & 0.43444E+03_JPRB,0.38015E+03_JPRB,0.32587E+03_JPRB,0.27158E+03_JPRB,0.25502E+03_JPRB, &
+ & 0.31866E+03_JPRB,0.38217E+03_JPRB,0.44507E+03_JPRB,0.51019E+03_JPRB /)  
+KA(:, 5,11,16) = (/ &
+ & 0.43455E+03_JPRB,0.38025E+03_JPRB,0.32595E+03_JPRB,0.27165E+03_JPRB,0.24835E+03_JPRB, &
+ & 0.31008E+03_JPRB,0.37185E+03_JPRB,0.43305E+03_JPRB,0.49635E+03_JPRB /)  
+KA(:, 1,12,16) = (/ &
+ & 0.51115E+03_JPRB,0.44727E+03_JPRB,0.38338E+03_JPRB,0.31950E+03_JPRB,0.32868E+03_JPRB, &
+ & 0.41075E+03_JPRB,0.49264E+03_JPRB,0.57375E+03_JPRB,0.65765E+03_JPRB /)  
+KA(:, 2,12,16) = (/ &
+ & 0.51481E+03_JPRB,0.45047E+03_JPRB,0.38614E+03_JPRB,0.32180E+03_JPRB,0.31846E+03_JPRB, &
+ & 0.39795E+03_JPRB,0.47726E+03_JPRB,0.55589E+03_JPRB,0.63715E+03_JPRB /)  
+KA(:, 3,12,16) = (/ &
+ & 0.51667E+03_JPRB,0.45210E+03_JPRB,0.38753E+03_JPRB,0.32296E+03_JPRB,0.30906E+03_JPRB, &
+ & 0.38614E+03_JPRB,0.46310E+03_JPRB,0.53942E+03_JPRB,0.61825E+03_JPRB /)  
+KA(:, 4,12,16) = (/ &
+ & 0.51678E+03_JPRB,0.45219E+03_JPRB,0.38761E+03_JPRB,0.32303E+03_JPRB,0.30046E+03_JPRB, &
+ & 0.37494E+03_JPRB,0.44968E+03_JPRB,0.52372E+03_JPRB,0.60018E+03_JPRB /)  
+KA(:, 5,12,16) = (/ &
+ & 0.51600E+03_JPRB,0.45151E+03_JPRB,0.38702E+03_JPRB,0.32254E+03_JPRB,0.29255E+03_JPRB, &
+ & 0.36403E+03_JPRB,0.43655E+03_JPRB,0.50852E+03_JPRB,0.58277E+03_JPRB /)  
+KA(:, 1,13,16) = (/ &
+ & 0.60779E+03_JPRB,0.53183E+03_JPRB,0.45587E+03_JPRB,0.37990E+03_JPRB,0.38498E+03_JPRB, &
+ & 0.48109E+03_JPRB,0.57702E+03_JPRB,0.67207E+03_JPRB,0.77032E+03_JPRB /)  
+KA(:, 2,13,16) = (/ &
+ & 0.61089E+03_JPRB,0.53454E+03_JPRB,0.45819E+03_JPRB,0.38184E+03_JPRB,0.37288E+03_JPRB, &
+ & 0.46566E+03_JPRB,0.55850E+03_JPRB,0.65053E+03_JPRB,0.74557E+03_JPRB /)  
+KA(:, 3,13,16) = (/ &
+ & 0.61168E+03_JPRB,0.53523E+03_JPRB,0.45878E+03_JPRB,0.38233E+03_JPRB,0.36190E+03_JPRB, &
+ & 0.45112E+03_JPRB,0.54103E+03_JPRB,0.63023E+03_JPRB,0.72223E+03_JPRB /)  
+KA(:, 4,13,16) = (/ &
+ & 0.61073E+03_JPRB,0.53440E+03_JPRB,0.45807E+03_JPRB,0.38174E+03_JPRB,0.35168E+03_JPRB, &
+ & 0.43693E+03_JPRB,0.52405E+03_JPRB,0.61044E+03_JPRB,0.69951E+03_JPRB /)  
+KA(:, 5,13,16) = (/ &
+ & 0.60852E+03_JPRB,0.53247E+03_JPRB,0.45641E+03_JPRB,0.38036E+03_JPRB,0.34198E+03_JPRB, &
+ & 0.42302E+03_JPRB,0.50734E+03_JPRB,0.59097E+03_JPRB,0.67714E+03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART11',1,ZHOOK_HANDLE)
+END SUBROUTINE PART11
+
+
+SUBROUTINE PART12
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART12',0,ZHOOK_HANDLE)
+
+
+!     -----------------------------------------------------------------
+!     The array KB contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels < ~100mb and temperatures. The first 
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this pressure 
+!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for
+!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  
+!     The second index, JP, runs from 13 to 59 and refers to the JPth
+!     reference pressure level (see taumol.f for the value of these
+!     pressure levels in mb).  The third index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+!     -----------------------------------------------------------------
+
+KB(:, 1,13, 1) = (/ &
+ & 0.10554E-06_JPRB,0.38596E-04_JPRB,0.65402E-04_JPRB,0.88540E-04_JPRB,0.19601E-03_JPRB /)  
+KB(:, 2,13, 1) = (/ &
+ & 0.10479E-06_JPRB,0.43672E-04_JPRB,0.74889E-04_JPRB,0.10118E-03_JPRB,0.22146E-03_JPRB /)  
+KB(:, 3,13, 1) = (/ &
+ & 0.10429E-06_JPRB,0.49418E-04_JPRB,0.85429E-04_JPRB,0.11557E-03_JPRB,0.24448E-03_JPRB /)  
+KB(:, 4,13, 1) = (/ &
+ & 0.10232E-06_JPRB,0.55802E-04_JPRB,0.96459E-04_JPRB,0.13167E-03_JPRB,0.27001E-03_JPRB /)  
+KB(:, 5,13, 1) = (/ &
+ & 0.99013E-07_JPRB,0.62996E-04_JPRB,0.10900E-03_JPRB,0.14834E-03_JPRB,0.29917E-03_JPRB /)  
+KB(:, 1,14, 1) = (/ &
+ & 0.85136E-07_JPRB,0.31943E-04_JPRB,0.54402E-04_JPRB,0.73887E-04_JPRB,0.15895E-03_JPRB /)  
+KB(:, 2,14, 1) = (/ &
+ & 0.84597E-07_JPRB,0.36196E-04_JPRB,0.62429E-04_JPRB,0.84479E-04_JPRB,0.17749E-03_JPRB /)  
+KB(:, 3,14, 1) = (/ &
+ & 0.83629E-07_JPRB,0.40982E-04_JPRB,0.71126E-04_JPRB,0.96573E-04_JPRB,0.19740E-03_JPRB /)  
+KB(:, 4,14, 1) = (/ &
+ & 0.82310E-07_JPRB,0.46344E-04_JPRB,0.80458E-04_JPRB,0.10984E-03_JPRB,0.21847E-03_JPRB /)  
+KB(:, 5,14, 1) = (/ &
+ & 0.78709E-07_JPRB,0.52252E-04_JPRB,0.90989E-04_JPRB,0.12394E-03_JPRB,0.24281E-03_JPRB /)  
+KB(:, 1,15, 1) = (/ &
+ & 0.68497E-07_JPRB,0.26393E-04_JPRB,0.45164E-04_JPRB,0.61570E-04_JPRB,0.12493E-03_JPRB /)  
+KB(:, 2,15, 1) = (/ &
+ & 0.68062E-07_JPRB,0.29936E-04_JPRB,0.51919E-04_JPRB,0.70387E-04_JPRB,0.13953E-03_JPRB /)  
+KB(:, 3,15, 1) = (/ &
+ & 0.66766E-07_JPRB,0.33863E-04_JPRB,0.59056E-04_JPRB,0.80693E-04_JPRB,0.15653E-03_JPRB /)  
+KB(:, 4,15, 1) = (/ &
+ & 0.65636E-07_JPRB,0.38294E-04_JPRB,0.66885E-04_JPRB,0.91555E-04_JPRB,0.17510E-03_JPRB /)  
+KB(:, 5,15, 1) = (/ &
+ & 0.62711E-07_JPRB,0.43189E-04_JPRB,0.75756E-04_JPRB,0.10355E-03_JPRB,0.19439E-03_JPRB /)  
+KB(:, 1,16, 1) = (/ &
+ & 0.55083E-07_JPRB,0.21761E-04_JPRB,0.37484E-04_JPRB,0.51301E-04_JPRB,0.97875E-04_JPRB /)  
+KB(:, 2,16, 1) = (/ &
+ & 0.54095E-07_JPRB,0.24670E-04_JPRB,0.43084E-04_JPRB,0.58639E-04_JPRB,0.10996E-03_JPRB /)  
+KB(:, 3,16, 1) = (/ &
+ & 0.53340E-07_JPRB,0.27925E-04_JPRB,0.48976E-04_JPRB,0.67234E-04_JPRB,0.12415E-03_JPRB /)  
+KB(:, 4,16, 1) = (/ &
+ & 0.51412E-07_JPRB,0.31588E-04_JPRB,0.55576E-04_JPRB,0.76352E-04_JPRB,0.13939E-03_JPRB /)  
+KB(:, 5,16, 1) = (/ &
+ & 0.49341E-07_JPRB,0.35677E-04_JPRB,0.62937E-04_JPRB,0.86363E-04_JPRB,0.15543E-03_JPRB /)  
+KB(:, 1,17, 1) = (/ &
+ & 0.44022E-07_JPRB,0.17963E-04_JPRB,0.31102E-04_JPRB,0.42604E-04_JPRB,0.78290E-04_JPRB /)  
+KB(:, 2,17, 1) = (/ &
+ & 0.43167E-07_JPRB,0.20382E-04_JPRB,0.35754E-04_JPRB,0.48875E-04_JPRB,0.87941E-04_JPRB /)  
+KB(:, 3,17, 1) = (/ &
+ & 0.42210E-07_JPRB,0.23091E-04_JPRB,0.40674E-04_JPRB,0.56059E-04_JPRB,0.99257E-04_JPRB /)  
+KB(:, 4,17, 1) = (/ &
+ & 0.40402E-07_JPRB,0.26125E-04_JPRB,0.46162E-04_JPRB,0.63586E-04_JPRB,0.11166E-03_JPRB /)  
+KB(:, 5,17, 1) = (/ &
+ & 0.38532E-07_JPRB,0.29494E-04_JPRB,0.52327E-04_JPRB,0.71960E-04_JPRB,0.12480E-03_JPRB /)  
+KB(:, 1,18, 1) = (/ &
+ & 0.34937E-07_JPRB,0.14903E-04_JPRB,0.25868E-04_JPRB,0.35503E-04_JPRB,0.63368E-04_JPRB /)  
+KB(:, 2,18, 1) = (/ &
+ & 0.34308E-07_JPRB,0.16923E-04_JPRB,0.29781E-04_JPRB,0.40789E-04_JPRB,0.71115E-04_JPRB /)  
+KB(:, 3,18, 1) = (/ &
+ & 0.32995E-07_JPRB,0.19171E-04_JPRB,0.33872E-04_JPRB,0.46810E-04_JPRB,0.80302E-04_JPRB /)  
+KB(:, 4,18, 1) = (/ &
+ & 0.31654E-07_JPRB,0.21679E-04_JPRB,0.38468E-04_JPRB,0.53048E-04_JPRB,0.90431E-04_JPRB /)  
+KB(:, 5,18, 1) = (/ &
+ & 0.30282E-07_JPRB,0.24491E-04_JPRB,0.43596E-04_JPRB,0.60078E-04_JPRB,0.10133E-03_JPRB /)  
+KB(:, 1,19, 1) = (/ &
+ & 0.27971E-07_JPRB,0.12385E-04_JPRB,0.21549E-04_JPRB,0.29618E-04_JPRB,0.51732E-04_JPRB /)  
+KB(:, 2,19, 1) = (/ &
+ & 0.27128E-07_JPRB,0.14042E-04_JPRB,0.24826E-04_JPRB,0.34047E-04_JPRB,0.58064E-04_JPRB /)  
+KB(:, 3,19, 1) = (/ &
+ & 0.26018E-07_JPRB,0.15920E-04_JPRB,0.28221E-04_JPRB,0.39072E-04_JPRB,0.65495E-04_JPRB /)  
+KB(:, 4,19, 1) = (/ &
+ & 0.24717E-07_JPRB,0.18017E-04_JPRB,0.32056E-04_JPRB,0.44285E-04_JPRB,0.73859E-04_JPRB /)  
+KB(:, 5,19, 1) = (/ &
+ & 0.23859E-07_JPRB,0.20360E-04_JPRB,0.36341E-04_JPRB,0.50170E-04_JPRB,0.82944E-04_JPRB /)  
+KB(:, 1,20, 1) = (/ &
+ & 0.22529E-07_JPRB,0.10336E-04_JPRB,0.17999E-04_JPRB,0.24776E-04_JPRB,0.42602E-04_JPRB /)  
+KB(:, 2,20, 1) = (/ &
+ & 0.21733E-07_JPRB,0.11685E-04_JPRB,0.20769E-04_JPRB,0.28503E-04_JPRB,0.47833E-04_JPRB /)  
+KB(:, 3,20, 1) = (/ &
+ & 0.20791E-07_JPRB,0.13280E-04_JPRB,0.23571E-04_JPRB,0.32654E-04_JPRB,0.53995E-04_JPRB /)  
+KB(:, 4,20, 1) = (/ &
+ & 0.19663E-07_JPRB,0.15029E-04_JPRB,0.26788E-04_JPRB,0.37066E-04_JPRB,0.60944E-04_JPRB /)  
+KB(:, 5,20, 1) = (/ &
+ & 0.19169E-07_JPRB,0.16975E-04_JPRB,0.30353E-04_JPRB,0.41996E-04_JPRB,0.68344E-04_JPRB /)  
+KB(:, 1,21, 1) = (/ &
+ & 0.18148E-07_JPRB,0.86039E-05_JPRB,0.15041E-04_JPRB,0.20717E-04_JPRB,0.35143E-04_JPRB /)  
+KB(:, 2,21, 1) = (/ &
+ & 0.17465E-07_JPRB,0.97287E-05_JPRB,0.17348E-04_JPRB,0.23862E-04_JPRB,0.39508E-04_JPRB /)  
+KB(:, 3,21, 1) = (/ &
+ & 0.16537E-07_JPRB,0.11073E-04_JPRB,0.19687E-04_JPRB,0.27271E-04_JPRB,0.44652E-04_JPRB /)  
+KB(:, 4,21, 1) = (/ &
+ & 0.15860E-07_JPRB,0.12526E-04_JPRB,0.22388E-04_JPRB,0.31015E-04_JPRB,0.50269E-04_JPRB /)  
+KB(:, 5,21, 1) = (/ &
+ & 0.15452E-07_JPRB,0.14158E-04_JPRB,0.25339E-04_JPRB,0.35141E-04_JPRB,0.56327E-04_JPRB /)  
+KB(:, 1,22, 1) = (/ &
+ & 0.14542E-07_JPRB,0.71807E-05_JPRB,0.12682E-04_JPRB,0.17473E-04_JPRB,0.29179E-04_JPRB /)  
+KB(:, 2,22, 1) = (/ &
+ & 0.13967E-07_JPRB,0.81574E-05_JPRB,0.14550E-04_JPRB,0.20147E-04_JPRB,0.32795E-04_JPRB /)  
+KB(:, 3,22, 1) = (/ &
+ & 0.13241E-07_JPRB,0.92839E-05_JPRB,0.16547E-04_JPRB,0.22971E-04_JPRB,0.37036E-04_JPRB /)  
+KB(:, 4,22, 1) = (/ &
+ & 0.12746E-07_JPRB,0.10522E-04_JPRB,0.18840E-04_JPRB,0.26114E-04_JPRB,0.41617E-04_JPRB /)  
+KB(:, 5,22, 1) = (/ &
+ & 0.12426E-07_JPRB,0.11886E-04_JPRB,0.21313E-04_JPRB,0.29604E-04_JPRB,0.46709E-04_JPRB /)  
+KB(:, 1,23, 1) = (/ &
+ & 0.11724E-07_JPRB,0.60196E-05_JPRB,0.10703E-04_JPRB,0.14753E-04_JPRB,0.24143E-04_JPRB /)  
+KB(:, 2,23, 1) = (/ &
+ & 0.11124E-07_JPRB,0.68499E-05_JPRB,0.12233E-04_JPRB,0.17009E-04_JPRB,0.27147E-04_JPRB /)  
+KB(:, 3,23, 1) = (/ &
+ & 0.10552E-07_JPRB,0.77897E-05_JPRB,0.13927E-04_JPRB,0.19362E-04_JPRB,0.30661E-04_JPRB /)  
+KB(:, 4,23, 1) = (/ &
+ & 0.10213E-07_JPRB,0.88398E-05_JPRB,0.15850E-04_JPRB,0.22024E-04_JPRB,0.34519E-04_JPRB /)  
+KB(:, 5,23, 1) = (/ &
+ & 0.99627E-08_JPRB,0.99755E-05_JPRB,0.17919E-04_JPRB,0.24944E-04_JPRB,0.38730E-04_JPRB /)  
+KB(:, 1,24, 1) = (/ &
+ & 0.93835E-08_JPRB,0.50505E-05_JPRB,0.90298E-05_JPRB,0.12450E-04_JPRB,0.19940E-04_JPRB /)  
+KB(:, 2,24, 1) = (/ &
+ & 0.88722E-08_JPRB,0.57494E-05_JPRB,0.10287E-04_JPRB,0.14351E-04_JPRB,0.22450E-04_JPRB /)  
+KB(:, 3,24, 1) = (/ &
+ & 0.84719E-08_JPRB,0.65374E-05_JPRB,0.11727E-04_JPRB,0.16329E-04_JPRB,0.25378E-04_JPRB /)  
+KB(:, 4,24, 1) = (/ &
+ & 0.81924E-08_JPRB,0.74186E-05_JPRB,0.13334E-04_JPRB,0.18567E-04_JPRB,0.28560E-04_JPRB /)  
+KB(:, 5,24, 1) = (/ &
+ & 0.79194E-08_JPRB,0.83719E-05_JPRB,0.15056E-04_JPRB,0.21003E-04_JPRB,0.31990E-04_JPRB /)  
+KB(:, 1,25, 1) = (/ &
+ & 0.74535E-08_JPRB,0.42437E-05_JPRB,0.76220E-05_JPRB,0.10523E-04_JPRB,0.16531E-04_JPRB /)  
+KB(:, 2,25, 1) = (/ &
+ & 0.70516E-08_JPRB,0.48300E-05_JPRB,0.86667E-05_JPRB,0.12089E-04_JPRB,0.18616E-04_JPRB /)  
+KB(:, 3,25, 1) = (/ &
+ & 0.67746E-08_JPRB,0.54941E-05_JPRB,0.98927E-05_JPRB,0.13790E-04_JPRB,0.21024E-04_JPRB /)  
+KB(:, 4,25, 1) = (/ &
+ & 0.65375E-08_JPRB,0.62357E-05_JPRB,0.11233E-04_JPRB,0.15662E-04_JPRB,0.23642E-04_JPRB /)  
+KB(:, 5,25, 1) = (/ &
+ & 0.63001E-08_JPRB,0.70282E-05_JPRB,0.12669E-04_JPRB,0.17695E-04_JPRB,0.26478E-04_JPRB /)  
+KB(:, 1,26, 1) = (/ &
+ & 0.59520E-08_JPRB,0.35739E-05_JPRB,0.64350E-05_JPRB,0.89330E-05_JPRB,0.13754E-04_JPRB /)  
+KB(:, 2,26, 1) = (/ &
+ & 0.56644E-08_JPRB,0.40797E-05_JPRB,0.73291E-05_JPRB,0.10228E-04_JPRB,0.15489E-04_JPRB /)  
+KB(:, 3,26, 1) = (/ &
+ & 0.54229E-08_JPRB,0.46366E-05_JPRB,0.83664E-05_JPRB,0.11659E-04_JPRB,0.17486E-04_JPRB /)  
+KB(:, 4,26, 1) = (/ &
+ & 0.52155E-08_JPRB,0.52546E-05_JPRB,0.94829E-05_JPRB,0.13246E-04_JPRB,0.19643E-04_JPRB /)  
+KB(:, 5,26, 1) = (/ &
+ & 0.50026E-08_JPRB,0.59134E-05_JPRB,0.10676E-04_JPRB,0.14933E-04_JPRB,0.21979E-04_JPRB /)  
+KB(:, 1,27, 1) = (/ &
+ & 0.47347E-08_JPRB,0.30117E-05_JPRB,0.54223E-05_JPRB,0.75810E-05_JPRB,0.11424E-04_JPRB /)  
+KB(:, 2,27, 1) = (/ &
+ & 0.45215E-08_JPRB,0.34421E-05_JPRB,0.61959E-05_JPRB,0.86619E-05_JPRB,0.12884E-04_JPRB /)  
+KB(:, 3,27, 1) = (/ &
+ & 0.43334E-08_JPRB,0.39143E-05_JPRB,0.70702E-05_JPRB,0.98761E-05_JPRB,0.14543E-04_JPRB /)  
+KB(:, 4,27, 1) = (/ &
+ & 0.41350E-08_JPRB,0.44275E-05_JPRB,0.80005E-05_JPRB,0.11195E-04_JPRB,0.16319E-04_JPRB /)  
+KB(:, 5,27, 1) = (/ &
+ & 0.39653E-08_JPRB,0.49769E-05_JPRB,0.89931E-05_JPRB,0.12598E-04_JPRB,0.18160E-04_JPRB /)  
+KB(:, 1,28, 1) = (/ &
+ & 0.37948E-08_JPRB,0.25415E-05_JPRB,0.45819E-05_JPRB,0.64336E-05_JPRB,0.94956E-05_JPRB /)  
+KB(:, 2,28, 1) = (/ &
+ & 0.36083E-08_JPRB,0.29038E-05_JPRB,0.52426E-05_JPRB,0.73400E-05_JPRB,0.10719E-04_JPRB /)  
+KB(:, 3,28, 1) = (/ &
+ & 0.34418E-08_JPRB,0.33017E-05_JPRB,0.59733E-05_JPRB,0.83575E-05_JPRB,0.12066E-04_JPRB /)  
+KB(:, 4,28, 1) = (/ &
+ & 0.32636E-08_JPRB,0.37297E-05_JPRB,0.67493E-05_JPRB,0.94558E-05_JPRB,0.13468E-04_JPRB /)  
+KB(:, 5,28, 1) = (/ &
+ & 0.31340E-08_JPRB,0.41873E-05_JPRB,0.75759E-05_JPRB,0.10620E-04_JPRB,0.14953E-04_JPRB /)  
+KB(:, 1,29, 1) = (/ &
+ & 0.30121E-08_JPRB,0.21536E-05_JPRB,0.38841E-05_JPRB,0.54491E-05_JPRB,0.79090E-05_JPRB /)  
+KB(:, 2,29, 1) = (/ &
+ & 0.28775E-08_JPRB,0.24557E-05_JPRB,0.44467E-05_JPRB,0.62247E-05_JPRB,0.89148E-05_JPRB /)  
+KB(:, 3,29, 1) = (/ &
+ & 0.27196E-08_JPRB,0.27900E-05_JPRB,0.50543E-05_JPRB,0.70782E-05_JPRB,0.99943E-05_JPRB /)  
+KB(:, 4,29, 1) = (/ &
+ & 0.25798E-08_JPRB,0.31473E-05_JPRB,0.57011E-05_JPRB,0.79936E-05_JPRB,0.11135E-04_JPRB /)  
+KB(:, 5,29, 1) = (/ &
+ & 0.24785E-08_JPRB,0.35287E-05_JPRB,0.63894E-05_JPRB,0.89624E-05_JPRB,0.12357E-04_JPRB /)  
+KB(:, 1,30, 1) = (/ &
+ & 0.24034E-08_JPRB,0.18231E-05_JPRB,0.32945E-05_JPRB,0.46183E-05_JPRB,0.65837E-05_JPRB /)  
+KB(:, 2,30, 1) = (/ &
+ & 0.22702E-08_JPRB,0.20766E-05_JPRB,0.37671E-05_JPRB,0.52735E-05_JPRB,0.73875E-05_JPRB /)  
+KB(:, 3,30, 1) = (/ &
+ & 0.21551E-08_JPRB,0.23559E-05_JPRB,0.42744E-05_JPRB,0.59932E-05_JPRB,0.82665E-05_JPRB /)  
+KB(:, 4,30, 1) = (/ &
+ & 0.20397E-08_JPRB,0.26541E-05_JPRB,0.48137E-05_JPRB,0.67549E-05_JPRB,0.92071E-05_JPRB /)  
+KB(:, 5,30, 1) = (/ &
+ & 0.19208E-08_JPRB,0.29711E-05_JPRB,0.53880E-05_JPRB,0.75598E-05_JPRB,0.10211E-04_JPRB /)  
+KB(:, 1,31, 1) = (/ &
+ & 0.19116E-08_JPRB,0.15454E-05_JPRB,0.27957E-05_JPRB,0.39228E-05_JPRB,0.54664E-05_JPRB /)  
+KB(:, 2,31, 1) = (/ &
+ & 0.18045E-08_JPRB,0.17579E-05_JPRB,0.31938E-05_JPRB,0.44780E-05_JPRB,0.61205E-05_JPRB /)  
+KB(:, 3,31, 1) = (/ &
+ & 0.17015E-08_JPRB,0.19911E-05_JPRB,0.36167E-05_JPRB,0.50753E-05_JPRB,0.68523E-05_JPRB /)  
+KB(:, 4,31, 1) = (/ &
+ & 0.16042E-08_JPRB,0.22393E-05_JPRB,0.40666E-05_JPRB,0.57094E-05_JPRB,0.76260E-05_JPRB /)  
+KB(:, 5,31, 1) = (/ &
+ & 0.15189E-08_JPRB,0.25035E-05_JPRB,0.45439E-05_JPRB,0.63785E-05_JPRB,0.84562E-05_JPRB /)  
+KB(:, 1,32, 1) = (/ &
+ & 0.15134E-08_JPRB,0.13080E-05_JPRB,0.23763E-05_JPRB,0.33360E-05_JPRB,0.45382E-05_JPRB /)  
+KB(:, 2,32, 1) = (/ &
+ & 0.14254E-08_JPRB,0.14886E-05_JPRB,0.27086E-05_JPRB,0.37995E-05_JPRB,0.50938E-05_JPRB /)  
+KB(:, 3,32, 1) = (/ &
+ & 0.13478E-08_JPRB,0.16831E-05_JPRB,0.30605E-05_JPRB,0.42971E-05_JPRB,0.56933E-05_JPRB /)  
+KB(:, 4,32, 1) = (/ &
+ & 0.12726E-08_JPRB,0.18904E-05_JPRB,0.34353E-05_JPRB,0.48247E-05_JPRB,0.63353E-05_JPRB /)  
+KB(:, 5,32, 1) = (/ &
+ & 0.12027E-08_JPRB,0.21098E-05_JPRB,0.38318E-05_JPRB,0.53809E-05_JPRB,0.70302E-05_JPRB /)  
+KB(:, 1,33, 1) = (/ &
+ & 0.12024E-08_JPRB,0.11084E-05_JPRB,0.20193E-05_JPRB,0.28310E-05_JPRB,0.37849E-05_JPRB /)  
+KB(:, 2,33, 1) = (/ &
+ & 0.11338E-08_JPRB,0.12605E-05_JPRB,0.22949E-05_JPRB,0.32221E-05_JPRB,0.42458E-05_JPRB /)  
+KB(:, 3,33, 1) = (/ &
+ & 0.10678E-08_JPRB,0.14231E-05_JPRB,0.25881E-05_JPRB,0.36365E-05_JPRB,0.47460E-05_JPRB /)  
+KB(:, 4,33, 1) = (/ &
+ & 0.10052E-08_JPRB,0.15963E-05_JPRB,0.29010E-05_JPRB,0.40728E-05_JPRB,0.52804E-05_JPRB /)  
+KB(:, 5,33, 1) = (/ &
+ & 0.95946E-09_JPRB,0.17779E-05_JPRB,0.32301E-05_JPRB,0.45381E-05_JPRB,0.58547E-05_JPRB /)  
+KB(:, 1,34, 1) = (/ &
+ & 0.95750E-09_JPRB,0.93665E-06_JPRB,0.17068E-05_JPRB,0.23954E-05_JPRB,0.31611E-05_JPRB /)  
+KB(:, 2,34, 1) = (/ &
+ & 0.89991E-09_JPRB,0.10636E-05_JPRB,0.19366E-05_JPRB,0.27209E-05_JPRB,0.35440E-05_JPRB /)  
+KB(:, 3,34, 1) = (/ &
+ & 0.84944E-09_JPRB,0.11994E-05_JPRB,0.21804E-05_JPRB,0.30651E-05_JPRB,0.39600E-05_JPRB /)  
+KB(:, 4,34, 1) = (/ &
+ & 0.80863E-09_JPRB,0.13431E-05_JPRB,0.24406E-05_JPRB,0.34285E-05_JPRB,0.44045E-05_JPRB /)  
+KB(:, 5,34, 1) = (/ &
+ & 0.76697E-09_JPRB,0.14937E-05_JPRB,0.27138E-05_JPRB,0.38153E-05_JPRB,0.48739E-05_JPRB /)  
+KB(:, 1,35, 1) = (/ &
+ & 0.76931E-09_JPRB,0.78145E-06_JPRB,0.14243E-05_JPRB,0.20004E-05_JPRB,0.26088E-05_JPRB /)  
+KB(:, 2,35, 1) = (/ &
+ & 0.72554E-09_JPRB,0.88652E-06_JPRB,0.16140E-05_JPRB,0.22684E-05_JPRB,0.29255E-05_JPRB /)  
+KB(:, 3,35, 1) = (/ &
+ & 0.68677E-09_JPRB,0.99872E-06_JPRB,0.18159E-05_JPRB,0.25537E-05_JPRB,0.32672E-05_JPRB /)  
+KB(:, 4,35, 1) = (/ &
+ & 0.64986E-09_JPRB,0.11178E-05_JPRB,0.20312E-05_JPRB,0.28542E-05_JPRB,0.36304E-05_JPRB /)  
+KB(:, 5,35, 1) = (/ &
+ & 0.62177E-09_JPRB,0.12420E-05_JPRB,0.22566E-05_JPRB,0.31737E-05_JPRB,0.40187E-05_JPRB /)  
+KB(:, 1,36, 1) = (/ &
+ & 0.62245E-09_JPRB,0.64235E-06_JPRB,0.11709E-05_JPRB,0.16445E-05_JPRB,0.21213E-05_JPRB /)  
+KB(:, 2,36, 1) = (/ &
+ & 0.58696E-09_JPRB,0.72876E-06_JPRB,0.13266E-05_JPRB,0.18646E-05_JPRB,0.23798E-05_JPRB /)  
+KB(:, 3,36, 1) = (/ &
+ & 0.55693E-09_JPRB,0.82089E-06_JPRB,0.14927E-05_JPRB,0.20991E-05_JPRB,0.26600E-05_JPRB /)  
+KB(:, 4,36, 1) = (/ &
+ & 0.52934E-09_JPRB,0.91874E-06_JPRB,0.16695E-05_JPRB,0.23457E-05_JPRB,0.29575E-05_JPRB /)  
+KB(:, 5,36, 1) = (/ &
+ & 0.50585E-09_JPRB,0.10210E-05_JPRB,0.18549E-05_JPRB,0.26085E-05_JPRB,0.32758E-05_JPRB /)  
+KB(:, 1,37, 1) = (/ &
+ & 0.51156E-09_JPRB,0.51872E-06_JPRB,0.94550E-06_JPRB,0.13287E-05_JPRB,0.17089E-05_JPRB /)  
+KB(:, 2,37, 1) = (/ &
+ & 0.48258E-09_JPRB,0.58908E-06_JPRB,0.10722E-05_JPRB,0.15079E-05_JPRB,0.19187E-05_JPRB /)  
+KB(:, 3,37, 1) = (/ &
+ & 0.45694E-09_JPRB,0.66421E-06_JPRB,0.12078E-05_JPRB,0.16992E-05_JPRB,0.21456E-05_JPRB /)  
+KB(:, 4,37, 1) = (/ &
+ & 0.43502E-09_JPRB,0.74408E-06_JPRB,0.13520E-05_JPRB,0.19000E-05_JPRB,0.23876E-05_JPRB /)  
+KB(:, 5,37, 1) = (/ &
+ & 0.41517E-09_JPRB,0.82758E-06_JPRB,0.15034E-05_JPRB,0.21146E-05_JPRB,0.26473E-05_JPRB /)  
+KB(:, 1,38, 1) = (/ &
+ & 0.42094E-09_JPRB,0.41837E-06_JPRB,0.76260E-06_JPRB,0.10719E-05_JPRB,0.13756E-05_JPRB /)  
+KB(:, 2,38, 1) = (/ &
+ & 0.39700E-09_JPRB,0.47557E-06_JPRB,0.86572E-06_JPRB,0.12180E-05_JPRB,0.15462E-05_JPRB /)  
+KB(:, 3,38, 1) = (/ &
+ & 0.37563E-09_JPRB,0.53684E-06_JPRB,0.97613E-06_JPRB,0.13738E-05_JPRB,0.17289E-05_JPRB /)  
+KB(:, 4,38, 1) = (/ &
+ & 0.35783E-09_JPRB,0.60193E-06_JPRB,0.10936E-05_JPRB,0.15374E-05_JPRB,0.19252E-05_JPRB /)  
+KB(:, 5,38, 1) = (/ &
+ & 0.34107E-09_JPRB,0.67014E-06_JPRB,0.12173E-05_JPRB,0.17127E-05_JPRB,0.21369E-05_JPRB /)  
+KB(:, 1,39, 1) = (/ &
+ & 0.34635E-09_JPRB,0.33732E-06_JPRB,0.61492E-06_JPRB,0.86447E-06_JPRB,0.11055E-05_JPRB /)  
+KB(:, 2,39, 1) = (/ &
+ & 0.32654E-09_JPRB,0.38383E-06_JPRB,0.69869E-06_JPRB,0.98355E-06_JPRB,0.12440E-05_JPRB /)  
+KB(:, 3,39, 1) = (/ &
+ & 0.30909E-09_JPRB,0.43371E-06_JPRB,0.78869E-06_JPRB,0.11105E-05_JPRB,0.13924E-05_JPRB /)  
+KB(:, 4,39, 1) = (/ &
+ & 0.29425E-09_JPRB,0.48681E-06_JPRB,0.88446E-06_JPRB,0.12433E-05_JPRB,0.15526E-05_JPRB /)  
+KB(:, 5,39, 1) = (/ &
+ & 0.28000E-09_JPRB,0.54256E-06_JPRB,0.98550E-06_JPRB,0.13868E-05_JPRB,0.17238E-05_JPRB /)  
+KB(:, 1,40, 1) = (/ &
+ & 0.28731E-09_JPRB,0.26843E-06_JPRB,0.48915E-06_JPRB,0.68810E-06_JPRB,0.87867E-06_JPRB /)  
+KB(:, 2,40, 1) = (/ &
+ & 0.27089E-09_JPRB,0.30600E-06_JPRB,0.55698E-06_JPRB,0.78430E-06_JPRB,0.99075E-06_JPRB /)  
+KB(:, 3,40, 1) = (/ &
+ & 0.25607E-09_JPRB,0.34624E-06_JPRB,0.62966E-06_JPRB,0.88677E-06_JPRB,0.11107E-05_JPRB /)  
+KB(:, 4,40, 1) = (/ &
+ & 0.24372E-09_JPRB,0.38926E-06_JPRB,0.70732E-06_JPRB,0.99430E-06_JPRB,0.12402E-05_JPRB /)  
+KB(:, 5,40, 1) = (/ &
+ & 0.23176E-09_JPRB,0.43465E-06_JPRB,0.78943E-06_JPRB,0.11107E-05_JPRB,0.13787E-05_JPRB /)  
+KB(:, 1,41, 1) = (/ &
+ & 0.23903E-09_JPRB,0.21323E-06_JPRB,0.38855E-06_JPRB,0.54701E-06_JPRB,0.69781E-06_JPRB /)  
+KB(:, 2,41, 1) = (/ &
+ & 0.22487E-09_JPRB,0.24332E-06_JPRB,0.44328E-06_JPRB,0.62397E-06_JPRB,0.78774E-06_JPRB /)  
+KB(:, 3,41, 1) = (/ &
+ & 0.21236E-09_JPRB,0.27581E-06_JPRB,0.50170E-06_JPRB,0.70664E-06_JPRB,0.88427E-06_JPRB /)  
+KB(:, 4,41, 1) = (/ &
+ & 0.20204E-09_JPRB,0.31066E-06_JPRB,0.56435E-06_JPRB,0.79384E-06_JPRB,0.98899E-06_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART12',1,ZHOOK_HANDLE)
+END SUBROUTINE PART12
+
+
+SUBROUTINE PART13
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART13',0,ZHOOK_HANDLE)
+
+
+KB(:, 5,41, 1) = (/ &
+ & 0.19209E-09_JPRB,0.34753E-06_JPRB,0.63119E-06_JPRB,0.88787E-06_JPRB,0.11007E-05_JPRB /)  
+KB(:, 1,42, 1) = (/ &
+ & 0.19868E-09_JPRB,0.16950E-06_JPRB,0.30885E-06_JPRB,0.43426E-06_JPRB,0.55336E-06_JPRB /)  
+KB(:, 2,42, 1) = (/ &
+ & 0.18681E-09_JPRB,0.19338E-06_JPRB,0.35250E-06_JPRB,0.49622E-06_JPRB,0.62628E-06_JPRB /)  
+KB(:, 3,42, 1) = (/ &
+ & 0.17649E-09_JPRB,0.21963E-06_JPRB,0.39950E-06_JPRB,0.56269E-06_JPRB,0.70396E-06_JPRB /)  
+KB(:, 4,42, 1) = (/ &
+ & 0.16753E-09_JPRB,0.24778E-06_JPRB,0.45013E-06_JPRB,0.63342E-06_JPRB,0.78770E-06_JPRB /)  
+KB(:, 5,42, 1) = (/ &
+ & 0.15930E-09_JPRB,0.27772E-06_JPRB,0.50439E-06_JPRB,0.70945E-06_JPRB,0.87783E-06_JPRB /)  
+KB(:, 1,43, 1) = (/ &
+ & 0.16577E-09_JPRB,0.13332E-06_JPRB,0.24323E-06_JPRB,0.34184E-06_JPRB,0.43594E-06_JPRB /)  
+KB(:, 2,43, 1) = (/ &
+ & 0.15597E-09_JPRB,0.15245E-06_JPRB,0.27801E-06_JPRB,0.39130E-06_JPRB,0.49460E-06_JPRB /)  
+KB(:, 3,43, 1) = (/ &
+ & 0.14721E-09_JPRB,0.17354E-06_JPRB,0.31584E-06_JPRB,0.44499E-06_JPRB,0.55705E-06_JPRB /)  
+KB(:, 4,43, 1) = (/ &
+ & 0.13936E-09_JPRB,0.19625E-06_JPRB,0.35661E-06_JPRB,0.50189E-06_JPRB,0.62398E-06_JPRB /)  
+KB(:, 5,43, 1) = (/ &
+ & 0.13255E-09_JPRB,0.22044E-06_JPRB,0.40034E-06_JPRB,0.56308E-06_JPRB,0.69634E-06_JPRB /)  
+KB(:, 1,44, 1) = (/ &
+ & 0.13861E-09_JPRB,0.10445E-06_JPRB,0.19058E-06_JPRB,0.26841E-06_JPRB,0.34233E-06_JPRB /)  
+KB(:, 2,44, 1) = (/ &
+ & 0.13027E-09_JPRB,0.11974E-06_JPRB,0.21836E-06_JPRB,0.30744E-06_JPRB,0.38897E-06_JPRB /)  
+KB(:, 3,44, 1) = (/ &
+ & 0.12290E-09_JPRB,0.13662E-06_JPRB,0.24864E-06_JPRB,0.35065E-06_JPRB,0.43916E-06_JPRB /)  
+KB(:, 4,44, 1) = (/ &
+ & 0.11611E-09_JPRB,0.15484E-06_JPRB,0.28155E-06_JPRB,0.39627E-06_JPRB,0.49273E-06_JPRB /)  
+KB(:, 5,44, 1) = (/ &
+ & 0.11042E-09_JPRB,0.17431E-06_JPRB,0.31666E-06_JPRB,0.44540E-06_JPRB,0.55087E-06_JPRB /)  
+KB(:, 1,45, 1) = (/ &
+ & 0.11581E-09_JPRB,0.81915E-07_JPRB,0.14915E-06_JPRB,0.21140E-06_JPRB,0.26987E-06_JPRB /)  
+KB(:, 2,45, 1) = (/ &
+ & 0.10906E-09_JPRB,0.94077E-07_JPRB,0.17143E-06_JPRB,0.24173E-06_JPRB,0.30586E-06_JPRB /)  
+KB(:, 3,45, 1) = (/ &
+ & 0.10254E-09_JPRB,0.10745E-06_JPRB,0.19582E-06_JPRB,0.27606E-06_JPRB,0.34593E-06_JPRB /)  
+KB(:, 4,45, 1) = (/ &
+ & 0.96757E-10_JPRB,0.12205E-06_JPRB,0.22201E-06_JPRB,0.31271E-06_JPRB,0.38876E-06_JPRB /)  
+KB(:, 5,45, 1) = (/ &
+ & 0.91979E-10_JPRB,0.13772E-06_JPRB,0.25015E-06_JPRB,0.35208E-06_JPRB,0.43561E-06_JPRB /)  
+KB(:, 1,46, 1) = (/ &
+ & 0.96889E-10_JPRB,0.64116E-07_JPRB,0.11708E-06_JPRB,0.16455E-06_JPRB,0.21036E-06_JPRB /)  
+KB(:, 2,46, 1) = (/ &
+ & 0.91281E-10_JPRB,0.73641E-07_JPRB,0.13436E-06_JPRB,0.18895E-06_JPRB,0.23951E-06_JPRB /)  
+KB(:, 3,46, 1) = (/ &
+ & 0.85830E-10_JPRB,0.84161E-07_JPRB,0.15360E-06_JPRB,0.21643E-06_JPRB,0.27176E-06_JPRB /)  
+KB(:, 4,46, 1) = (/ &
+ & 0.81048E-10_JPRB,0.95867E-07_JPRB,0.17447E-06_JPRB,0.24582E-06_JPRB,0.30613E-06_JPRB /)  
+KB(:, 5,46, 1) = (/ &
+ & 0.76712E-10_JPRB,0.10844E-06_JPRB,0.19706E-06_JPRB,0.27743E-06_JPRB,0.34329E-06_JPRB /)  
+KB(:, 1,47, 1) = (/ &
+ & 0.81516E-10_JPRB,0.49698E-07_JPRB,0.90596E-07_JPRB,0.12727E-06_JPRB,0.16313E-06_JPRB /)  
+KB(:, 2,47, 1) = (/ &
+ & 0.76609E-10_JPRB,0.57132E-07_JPRB,0.10433E-06_JPRB,0.14694E-06_JPRB,0.18672E-06_JPRB /)  
+KB(:, 3,47, 1) = (/ &
+ & 0.71975E-10_JPRB,0.65534E-07_JPRB,0.11955E-06_JPRB,0.16850E-06_JPRB,0.21215E-06_JPRB /)  
+KB(:, 4,47, 1) = (/ &
+ & 0.67908E-10_JPRB,0.74829E-07_JPRB,0.13619E-06_JPRB,0.19209E-06_JPRB,0.23959E-06_JPRB /)  
+KB(:, 5,47, 1) = (/ &
+ & 0.64117E-10_JPRB,0.84872E-07_JPRB,0.15433E-06_JPRB,0.21733E-06_JPRB,0.26915E-06_JPRB /)  
+KB(:, 1,48, 1) = (/ &
+ & 0.68429E-10_JPRB,0.38715E-07_JPRB,0.69854E-07_JPRB,0.98377E-07_JPRB,0.12619E-06_JPRB /)  
+KB(:, 2,48, 1) = (/ &
+ & 0.64236E-10_JPRB,0.44375E-07_JPRB,0.80895E-07_JPRB,0.11471E-06_JPRB,0.14604E-06_JPRB /)  
+KB(:, 3,48, 1) = (/ &
+ & 0.60510E-10_JPRB,0.51025E-07_JPRB,0.92977E-07_JPRB,0.13123E-06_JPRB,0.16542E-06_JPRB /)  
+KB(:, 4,48, 1) = (/ &
+ & 0.56851E-10_JPRB,0.58345E-07_JPRB,0.10633E-06_JPRB,0.14991E-06_JPRB,0.18745E-06_JPRB /)  
+KB(:, 5,48, 1) = (/ &
+ & 0.53674E-10_JPRB,0.66346E-07_JPRB,0.12070E-06_JPRB,0.17001E-06_JPRB,0.21095E-06_JPRB /)  
+KB(:, 1,49, 1) = (/ &
+ & 0.57387E-10_JPRB,0.29800E-07_JPRB,0.53817E-07_JPRB,0.75906E-07_JPRB,0.97710E-07_JPRB /)  
+KB(:, 2,49, 1) = (/ &
+ & 0.53960E-10_JPRB,0.34500E-07_JPRB,0.63205E-07_JPRB,0.88655E-07_JPRB,0.11310E-06_JPRB /)  
+KB(:, 3,49, 1) = (/ &
+ & 0.50740E-10_JPRB,0.39684E-07_JPRB,0.72502E-07_JPRB,0.10193E-06_JPRB,0.12892E-06_JPRB /)  
+KB(:, 4,49, 1) = (/ &
+ & 0.47710E-10_JPRB,0.45418E-07_JPRB,0.82941E-07_JPRB,0.11692E-06_JPRB,0.14649E-06_JPRB /)  
+KB(:, 5,49, 1) = (/ &
+ & 0.45050E-10_JPRB,0.51797E-07_JPRB,0.94320E-07_JPRB,0.13296E-06_JPRB,0.16526E-06_JPRB /)  
+KB(:, 1,50, 1) = (/ &
+ & 0.48010E-10_JPRB,0.22999E-07_JPRB,0.41682E-07_JPRB,0.58975E-07_JPRB,0.75898E-07_JPRB /)  
+KB(:, 2,50, 1) = (/ &
+ & 0.45282E-10_JPRB,0.26917E-07_JPRB,0.48929E-07_JPRB,0.68765E-07_JPRB,0.87983E-07_JPRB /)  
+KB(:, 3,50, 1) = (/ &
+ & 0.42531E-10_JPRB,0.30879E-07_JPRB,0.56406E-07_JPRB,0.79593E-07_JPRB,0.10109E-06_JPRB /)  
+KB(:, 4,50, 1) = (/ &
+ & 0.40002E-10_JPRB,0.35470E-07_JPRB,0.64706E-07_JPRB,0.91312E-07_JPRB,0.11473E-06_JPRB /)  
+KB(:, 5,50, 1) = (/ &
+ & 0.37674E-10_JPRB,0.40542E-07_JPRB,0.73834E-07_JPRB,0.10412E-06_JPRB,0.12967E-06_JPRB /)  
+KB(:, 1,51, 1) = (/ &
+ & 0.40094E-10_JPRB,0.17810E-07_JPRB,0.32412E-07_JPRB,0.45985E-07_JPRB,0.59041E-07_JPRB /)  
+KB(:, 2,51, 1) = (/ &
+ & 0.37901E-10_JPRB,0.21013E-07_JPRB,0.37921E-07_JPRB,0.53479E-07_JPRB,0.68479E-07_JPRB /)  
+KB(:, 3,51, 1) = (/ &
+ & 0.35584E-10_JPRB,0.24100E-07_JPRB,0.43988E-07_JPRB,0.62409E-07_JPRB,0.79311E-07_JPRB /)  
+KB(:, 4,51, 1) = (/ &
+ & 0.33516E-10_JPRB,0.27737E-07_JPRB,0.50544E-07_JPRB,0.71436E-07_JPRB,0.89912E-07_JPRB /)  
+KB(:, 5,51, 1) = (/ &
+ & 0.31503E-10_JPRB,0.31738E-07_JPRB,0.57889E-07_JPRB,0.81591E-07_JPRB,0.10195E-06_JPRB /)  
+KB(:, 1,52, 1) = (/ &
+ & 0.33462E-10_JPRB,0.13829E-07_JPRB,0.25227E-07_JPRB,0.35498E-07_JPRB,0.45793E-07_JPRB /)  
+KB(:, 2,52, 1) = (/ &
+ & 0.31703E-10_JPRB,0.16272E-07_JPRB,0.29393E-07_JPRB,0.41476E-07_JPRB,0.53340E-07_JPRB /)  
+KB(:, 3,52, 1) = (/ &
+ & 0.29856E-10_JPRB,0.18836E-07_JPRB,0.34537E-07_JPRB,0.48490E-07_JPRB,0.61791E-07_JPRB /)  
+KB(:, 4,52, 1) = (/ &
+ & 0.28038E-10_JPRB,0.21684E-07_JPRB,0.39578E-07_JPRB,0.55751E-07_JPRB,0.70422E-07_JPRB /)  
+KB(:, 5,52, 1) = (/ &
+ & 0.26375E-10_JPRB,0.24824E-07_JPRB,0.45389E-07_JPRB,0.63898E-07_JPRB,0.80071E-07_JPRB /)  
+KB(:, 1,53, 1) = (/ &
+ & 0.27859E-10_JPRB,0.10757E-07_JPRB,0.19436E-07_JPRB,0.27368E-07_JPRB,0.35401E-07_JPRB /)  
+KB(:, 2,53, 1) = (/ &
+ & 0.26482E-10_JPRB,0.12575E-07_JPRB,0.22786E-07_JPRB,0.32275E-07_JPRB,0.41504E-07_JPRB /)  
+KB(:, 3,53, 1) = (/ &
+ & 0.25013E-10_JPRB,0.14718E-07_JPRB,0.26786E-07_JPRB,0.37657E-07_JPRB,0.48150E-07_JPRB /)  
+KB(:, 4,53, 1) = (/ &
+ & 0.23481E-10_JPRB,0.16890E-07_JPRB,0.30875E-07_JPRB,0.43561E-07_JPRB,0.55284E-07_JPRB /)  
+KB(:, 5,53, 1) = (/ &
+ & 0.22103E-10_JPRB,0.19405E-07_JPRB,0.35435E-07_JPRB,0.50046E-07_JPRB,0.62824E-07_JPRB /)  
+KB(:, 1,54, 1) = (/ &
+ & 0.23262E-10_JPRB,0.83534E-08_JPRB,0.15033E-07_JPRB,0.21142E-07_JPRB,0.27491E-07_JPRB /)  
+KB(:, 2,54, 1) = (/ &
+ & 0.22075E-10_JPRB,0.97821E-08_JPRB,0.17791E-07_JPRB,0.25298E-07_JPRB,0.32447E-07_JPRB /)  
+KB(:, 3,54, 1) = (/ &
+ & 0.20887E-10_JPRB,0.11541E-07_JPRB,0.20852E-07_JPRB,0.29392E-07_JPRB,0.37643E-07_JPRB /)  
+KB(:, 4,54, 1) = (/ &
+ & 0.19629E-10_JPRB,0.13228E-07_JPRB,0.24164E-07_JPRB,0.34330E-07_JPRB,0.43622E-07_JPRB /)  
+KB(:, 5,54, 1) = (/ &
+ & 0.18475E-10_JPRB,0.15233E-07_JPRB,0.27779E-07_JPRB,0.39304E-07_JPRB,0.49432E-07_JPRB /)  
+KB(:, 1,55, 1) = (/ &
+ & 0.19360E-10_JPRB,0.64888E-08_JPRB,0.11644E-07_JPRB,0.16387E-07_JPRB,0.21340E-07_JPRB /)  
+KB(:, 2,55, 1) = (/ &
+ & 0.18372E-10_JPRB,0.76367E-08_JPRB,0.13947E-07_JPRB,0.19672E-07_JPRB,0.25401E-07_JPRB /)  
+KB(:, 3,55, 1) = (/ &
+ & 0.17421E-10_JPRB,0.90083E-08_JPRB,0.16275E-07_JPRB,0.22971E-07_JPRB,0.29522E-07_JPRB /)  
+KB(:, 4,55, 1) = (/ &
+ & 0.16413E-10_JPRB,0.10402E-07_JPRB,0.19081E-07_JPRB,0.26854E-07_JPRB,0.34233E-07_JPRB /)  
+KB(:, 5,55, 1) = (/ &
+ & 0.15417E-10_JPRB,0.11984E-07_JPRB,0.21835E-07_JPRB,0.30856E-07_JPRB,0.38954E-07_JPRB /)  
+KB(:, 1,56, 1) = (/ &
+ & 0.16094E-10_JPRB,0.50174E-08_JPRB,0.90283E-08_JPRB,0.12718E-07_JPRB,0.16576E-07_JPRB /)  
+KB(:, 2,56, 1) = (/ &
+ & 0.15265E-10_JPRB,0.59747E-08_JPRB,0.10850E-07_JPRB,0.15297E-07_JPRB,0.19783E-07_JPRB /)  
+KB(:, 3,56, 1) = (/ &
+ & 0.14515E-10_JPRB,0.70142E-08_JPRB,0.12699E-07_JPRB,0.17960E-07_JPRB,0.23171E-07_JPRB /)  
+KB(:, 4,56, 1) = (/ &
+ & 0.13715E-10_JPRB,0.81626E-08_JPRB,0.14940E-07_JPRB,0.20994E-07_JPRB,0.26865E-07_JPRB /)  
+KB(:, 5,56, 1) = (/ &
+ & 0.12880E-10_JPRB,0.94054E-08_JPRB,0.17206E-07_JPRB,0.24221E-07_JPRB,0.30739E-07_JPRB /)  
+KB(:, 1,57, 1) = (/ &
+ & 0.13368E-10_JPRB,0.38838E-08_JPRB,0.69991E-08_JPRB,0.98372E-08_JPRB,0.12821E-07_JPRB /)  
+KB(:, 2,57, 1) = (/ &
+ & 0.12743E-10_JPRB,0.46751E-08_JPRB,0.84243E-08_JPRB,0.11856E-07_JPRB,0.15406E-07_JPRB /)  
+KB(:, 3,57, 1) = (/ &
+ & 0.12087E-10_JPRB,0.54642E-08_JPRB,0.99295E-08_JPRB,0.14069E-07_JPRB,0.18144E-07_JPRB /)  
+KB(:, 4,57, 1) = (/ &
+ & 0.11442E-10_JPRB,0.64461E-08_JPRB,0.11657E-07_JPRB,0.16407E-07_JPRB,0.21072E-07_JPRB /)  
+KB(:, 5,57, 1) = (/ &
+ & 0.10759E-10_JPRB,0.73711E-08_JPRB,0.13478E-07_JPRB,0.19106E-07_JPRB,0.24314E-07_JPRB /)  
+KB(:, 1,58, 1) = (/ &
+ & 0.11081E-10_JPRB,0.30148E-08_JPRB,0.54165E-08_JPRB,0.76421E-08_JPRB,0.99496E-08_JPRB /)  
+KB(:, 2,58, 1) = (/ &
+ & 0.10598E-10_JPRB,0.36337E-08_JPRB,0.65375E-08_JPRB,0.92041E-08_JPRB,0.12025E-07_JPRB /)  
+KB(:, 3,58, 1) = (/ &
+ & 0.10052E-10_JPRB,0.42712E-08_JPRB,0.77841E-08_JPRB,0.11053E-07_JPRB,0.14306E-07_JPRB /)  
+KB(:, 4,58, 1) = (/ &
+ & 0.95308E-11_JPRB,0.50429E-08_JPRB,0.91133E-08_JPRB,0.12865E-07_JPRB,0.16554E-07_JPRB /)  
+KB(:, 5,58, 1) = (/ &
+ & 0.89795E-11_JPRB,0.57979E-08_JPRB,0.10615E-07_JPRB,0.15051E-07_JPRB,0.19216E-07_JPRB /)  
+KB(:, 1,59, 1) = (/ &
+ & 0.91194E-11_JPRB,0.24214E-08_JPRB,0.43496E-08_JPRB,0.61531E-08_JPRB,0.80136E-08_JPRB /)  
+KB(:, 2,59, 1) = (/ &
+ & 0.87287E-11_JPRB,0.29232E-08_JPRB,0.52535E-08_JPRB,0.73966E-08_JPRB,0.96830E-08_JPRB /)  
+KB(:, 3,59, 1) = (/ &
+ & 0.82765E-11_JPRB,0.34412E-08_JPRB,0.62788E-08_JPRB,0.88992E-08_JPRB,0.11534E-07_JPRB /)  
+KB(:, 4,59, 1) = (/ &
+ & 0.78605E-11_JPRB,0.40632E-08_JPRB,0.73454E-08_JPRB,0.10382E-07_JPRB,0.13372E-07_JPRB /)  
+KB(:, 5,59, 1) = (/ &
+ & 0.74127E-11_JPRB,0.46801E-08_JPRB,0.85910E-08_JPRB,0.12137E-07_JPRB,0.15530E-07_JPRB /)  
+KB(:, 1,13, 2) = (/ &
+ & 0.17576E-05_JPRB,0.22518E-03_JPRB,0.36398E-03_JPRB,0.46505E-03_JPRB,0.97920E-03_JPRB /)  
+KB(:, 2,13, 2) = (/ &
+ & 0.19522E-05_JPRB,0.25688E-03_JPRB,0.42724E-03_JPRB,0.54293E-03_JPRB,0.11261E-02_JPRB /)  
+KB(:, 3,13, 2) = (/ &
+ & 0.21134E-05_JPRB,0.29382E-03_JPRB,0.49778E-03_JPRB,0.63186E-03_JPRB,0.12961E-02_JPRB /)  
+KB(:, 4,13, 2) = (/ &
+ & 0.22680E-05_JPRB,0.33585E-03_JPRB,0.57095E-03_JPRB,0.73149E-03_JPRB,0.14857E-02_JPRB /)  
+KB(:, 5,13, 2) = (/ &
+ & 0.23939E-05_JPRB,0.38326E-03_JPRB,0.64688E-03_JPRB,0.84120E-03_JPRB,0.16815E-02_JPRB /)  
+KB(:, 1,14, 2) = (/ &
+ & 0.13866E-05_JPRB,0.18816E-03_JPRB,0.30541E-03_JPRB,0.39082E-03_JPRB,0.80614E-03_JPRB /)  
+KB(:, 2,14, 2) = (/ &
+ & 0.14825E-05_JPRB,0.21525E-03_JPRB,0.35906E-03_JPRB,0.45772E-03_JPRB,0.92976E-03_JPRB /)  
+KB(:, 3,14, 2) = (/ &
+ & 0.16428E-05_JPRB,0.24664E-03_JPRB,0.41891E-03_JPRB,0.53341E-03_JPRB,0.10689E-02_JPRB /)  
+KB(:, 4,14, 2) = (/ &
+ & 0.17807E-05_JPRB,0.28218E-03_JPRB,0.48021E-03_JPRB,0.61861E-03_JPRB,0.12236E-02_JPRB /)  
+KB(:, 5,14, 2) = (/ &
+ & 0.18685E-05_JPRB,0.32204E-03_JPRB,0.54385E-03_JPRB,0.71223E-03_JPRB,0.13844E-02_JPRB /)  
+KB(:, 1,15, 2) = (/ &
+ & 0.10483E-05_JPRB,0.15699E-03_JPRB,0.25571E-03_JPRB,0.32803E-03_JPRB,0.65873E-03_JPRB /)  
+KB(:, 2,15, 2) = (/ &
+ & 0.11310E-05_JPRB,0.18016E-03_JPRB,0.30071E-03_JPRB,0.38534E-03_JPRB,0.75916E-03_JPRB /)  
+KB(:, 3,15, 2) = (/ &
+ & 0.12330E-05_JPRB,0.20672E-03_JPRB,0.35181E-03_JPRB,0.44940E-03_JPRB,0.87041E-03_JPRB /)  
+KB(:, 4,15, 2) = (/ &
+ & 0.13426E-05_JPRB,0.23650E-03_JPRB,0.40292E-03_JPRB,0.52246E-03_JPRB,0.99445E-03_JPRB /)  
+KB(:, 5,15, 2) = (/ &
+ & 0.14514E-05_JPRB,0.26979E-03_JPRB,0.45684E-03_JPRB,0.60195E-03_JPRB,0.11173E-02_JPRB /)  
+KB(:, 1,16, 2) = (/ &
+ & 0.80663E-06_JPRB,0.13098E-03_JPRB,0.21382E-03_JPRB,0.27539E-03_JPRB,0.53727E-03_JPRB /)  
+KB(:, 2,16, 2) = (/ &
+ & 0.85747E-06_JPRB,0.15058E-03_JPRB,0.25201E-03_JPRB,0.32406E-03_JPRB,0.61573E-03_JPRB /)  
+KB(:, 3,16, 2) = (/ &
+ & 0.92435E-06_JPRB,0.17283E-03_JPRB,0.29542E-03_JPRB,0.37879E-03_JPRB,0.70140E-03_JPRB /)  
+KB(:, 4,16, 2) = (/ &
+ & 0.99747E-06_JPRB,0.19793E-03_JPRB,0.33807E-03_JPRB,0.44076E-03_JPRB,0.79468E-03_JPRB /)  
+KB(:, 5,16, 2) = (/ &
+ & 0.10819E-05_JPRB,0.22582E-03_JPRB,0.38354E-03_JPRB,0.50663E-03_JPRB,0.88980E-03_JPRB /)  
+KB(:, 1,17, 2) = (/ &
+ & 0.61772E-06_JPRB,0.10941E-03_JPRB,0.17926E-03_JPRB,0.23144E-03_JPRB,0.43554E-03_JPRB /)  
+KB(:, 2,17, 2) = (/ &
+ & 0.65718E-06_JPRB,0.12576E-03_JPRB,0.21174E-03_JPRB,0.27275E-03_JPRB,0.49750E-03_JPRB /)  
+KB(:, 3,17, 2) = (/ &
+ & 0.69949E-06_JPRB,0.14461E-03_JPRB,0.24852E-03_JPRB,0.31937E-03_JPRB,0.56462E-03_JPRB /)  
+KB(:, 4,17, 2) = (/ &
+ & 0.75387E-06_JPRB,0.16580E-03_JPRB,0.28374E-03_JPRB,0.37213E-03_JPRB,0.63507E-03_JPRB /)  
+KB(:, 5,17, 2) = (/ &
+ & 0.79715E-06_JPRB,0.18926E-03_JPRB,0.32236E-03_JPRB,0.42588E-03_JPRB,0.70728E-03_JPRB /)  
+KB(:, 1,18, 2) = (/ &
+ & 0.47188E-06_JPRB,0.91952E-04_JPRB,0.15100E-03_JPRB,0.19495E-03_JPRB,0.35543E-03_JPRB /)  
+KB(:, 2,18, 2) = (/ &
+ & 0.50937E-06_JPRB,0.10513E-03_JPRB,0.17852E-03_JPRB,0.22999E-03_JPRB,0.40250E-03_JPRB /)  
+KB(:, 3,18, 2) = (/ &
+ & 0.54206E-06_JPRB,0.12130E-03_JPRB,0.20959E-03_JPRB,0.26979E-03_JPRB,0.45662E-03_JPRB /)  
+KB(:, 4,18, 2) = (/ &
+ & 0.57328E-06_JPRB,0.13936E-03_JPRB,0.23815E-03_JPRB,0.31451E-03_JPRB,0.51113E-03_JPRB /)  
+KB(:, 5,18, 2) = (/ &
+ & 0.61077E-06_JPRB,0.15916E-03_JPRB,0.27075E-03_JPRB,0.35967E-03_JPRB,0.57076E-03_JPRB /)  
+KB(:, 1,19, 2) = (/ &
+ & 0.36005E-06_JPRB,0.76984E-04_JPRB,0.12743E-03_JPRB,0.16422E-03_JPRB,0.28885E-03_JPRB /)  
+KB(:, 2,19, 2) = (/ &
+ & 0.38988E-06_JPRB,0.88029E-04_JPRB,0.15067E-03_JPRB,0.19396E-03_JPRB,0.32854E-03_JPRB /)  
+KB(:, 3,19, 2) = (/ &
+ & 0.41989E-06_JPRB,0.10172E-03_JPRB,0.17539E-03_JPRB,0.22784E-03_JPRB,0.37045E-03_JPRB /)  
+KB(:, 4,19, 2) = (/ &
+ & 0.44092E-06_JPRB,0.11727E-03_JPRB,0.20004E-03_JPRB,0.26592E-03_JPRB,0.41598E-03_JPRB /)  
+KB(:, 5,19, 2) = (/ &
+ & 0.46883E-06_JPRB,0.13386E-03_JPRB,0.22769E-03_JPRB,0.30285E-03_JPRB,0.46550E-03_JPRB /)  
+KB(:, 1,20, 2) = (/ &
+ & 0.27908E-06_JPRB,0.64450E-04_JPRB,0.10795E-03_JPRB,0.13889E-03_JPRB,0.23878E-03_JPRB /)  
+KB(:, 2,20, 2) = (/ &
+ & 0.30934E-06_JPRB,0.74187E-04_JPRB,0.12773E-03_JPRB,0.16417E-03_JPRB,0.27017E-03_JPRB /)  
+KB(:, 3,20, 2) = (/ &
+ & 0.33086E-06_JPRB,0.85801E-04_JPRB,0.14782E-03_JPRB,0.19307E-03_JPRB,0.30508E-03_JPRB /)  
+KB(:, 4,20, 2) = (/ &
+ & 0.35058E-06_JPRB,0.98861E-04_JPRB,0.16868E-03_JPRB,0.22508E-03_JPRB,0.34249E-03_JPRB /)  
+KB(:, 5,20, 2) = (/ &
+ & 0.37069E-06_JPRB,0.11306E-03_JPRB,0.19188E-03_JPRB,0.25601E-03_JPRB,0.38519E-03_JPRB /)  
+KB(:, 1,21, 2) = (/ &
+ & 0.22418E-06_JPRB,0.54095E-04_JPRB,0.91414E-04_JPRB,0.11757E-03_JPRB,0.19697E-03_JPRB /)  
+KB(:, 2,21, 2) = (/ &
+ & 0.24559E-06_JPRB,0.62567E-04_JPRB,0.10819E-03_JPRB,0.13908E-03_JPRB,0.22284E-03_JPRB /)  
+KB(:, 3,21, 2) = (/ &
+ & 0.26169E-06_JPRB,0.72383E-04_JPRB,0.12481E-03_JPRB,0.16368E-03_JPRB,0.25205E-03_JPRB /)  
+KB(:, 4,21, 2) = (/ &
+ & 0.27885E-06_JPRB,0.83446E-04_JPRB,0.14258E-03_JPRB,0.18910E-03_JPRB,0.28386E-03_JPRB /)  
+KB(:, 5,21, 2) = (/ &
+ & 0.29344E-06_JPRB,0.95540E-04_JPRB,0.16198E-03_JPRB,0.21609E-03_JPRB,0.31947E-03_JPRB /)  
+KB(:, 1,22, 2) = (/ &
+ & 0.17941E-06_JPRB,0.45830E-04_JPRB,0.78176E-04_JPRB,0.10061E-03_JPRB,0.16313E-03_JPRB /)  
+KB(:, 2,22, 2) = (/ &
+ & 0.19397E-06_JPRB,0.53139E-04_JPRB,0.92556E-04_JPRB,0.11901E-03_JPRB,0.18482E-03_JPRB /)  
+KB(:, 3,22, 2) = (/ &
+ & 0.20707E-06_JPRB,0.61593E-04_JPRB,0.10579E-03_JPRB,0.14008E-03_JPRB,0.20965E-03_JPRB /)  
+KB(:, 4,22, 2) = (/ &
+ & 0.22071E-06_JPRB,0.71016E-04_JPRB,0.12100E-03_JPRB,0.16128E-03_JPRB,0.23661E-03_JPRB /)  
+KB(:, 5,22, 2) = (/ &
+ & 0.23148E-06_JPRB,0.81286E-04_JPRB,0.13795E-03_JPRB,0.18401E-03_JPRB,0.26580E-03_JPRB /)  
+KB(:, 1,23, 2) = (/ &
+ & 0.14291E-06_JPRB,0.38825E-04_JPRB,0.66866E-04_JPRB,0.86140E-04_JPRB,0.13511E-03_JPRB /)  
+KB(:, 2,23, 2) = (/ &
+ & 0.15179E-06_JPRB,0.45135E-04_JPRB,0.78450E-04_JPRB,0.10194E-03_JPRB,0.15369E-03_JPRB /)  
+KB(:, 3,23, 2) = (/ &
+ & 0.16326E-06_JPRB,0.52399E-04_JPRB,0.89919E-04_JPRB,0.12001E-03_JPRB,0.17441E-03_JPRB /)  
+KB(:, 4,23, 2) = (/ &
+ & 0.17307E-06_JPRB,0.60440E-04_JPRB,0.10293E-03_JPRB,0.13735E-03_JPRB,0.19668E-03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART13',1,ZHOOK_HANDLE)
+END SUBROUTINE PART13
+
+
+SUBROUTINE PART14
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART14',0,ZHOOK_HANDLE)
+
+
+KB(:, 5,23, 2) = (/ &
+ & 0.18137E-06_JPRB,0.69189E-04_JPRB,0.11759E-03_JPRB,0.15651E-03_JPRB,0.21998E-03_JPRB /)  
+KB(:, 1,24, 2) = (/ &
+ & 0.11245E-06_JPRB,0.32862E-04_JPRB,0.57166E-04_JPRB,0.73828E-04_JPRB,0.11185E-03_JPRB /)  
+KB(:, 2,24, 2) = (/ &
+ & 0.11958E-06_JPRB,0.38281E-04_JPRB,0.66635E-04_JPRB,0.87390E-04_JPRB,0.12740E-03_JPRB /)  
+KB(:, 3,24, 2) = (/ &
+ & 0.12702E-06_JPRB,0.44519E-04_JPRB,0.76606E-04_JPRB,0.10190E-03_JPRB,0.14418E-03_JPRB /)  
+KB(:, 4,24, 2) = (/ &
+ & 0.13467E-06_JPRB,0.51373E-04_JPRB,0.87622E-04_JPRB,0.11700E-03_JPRB,0.16205E-03_JPRB /)  
+KB(:, 5,24, 2) = (/ &
+ & 0.14120E-06_JPRB,0.58874E-04_JPRB,0.10019E-03_JPRB,0.13348E-03_JPRB,0.18188E-03_JPRB /)  
+KB(:, 1,25, 2) = (/ &
+ & 0.88242E-07_JPRB,0.27950E-04_JPRB,0.49010E-04_JPRB,0.63434E-04_JPRB,0.92877E-04_JPRB /)  
+KB(:, 2,25, 2) = (/ &
+ & 0.94383E-07_JPRB,0.32610E-04_JPRB,0.56690E-04_JPRB,0.75114E-04_JPRB,0.10531E-03_JPRB /)  
+KB(:, 3,25, 2) = (/ &
+ & 0.99712E-07_JPRB,0.37929E-04_JPRB,0.65204E-04_JPRB,0.87113E-04_JPRB,0.11931E-03_JPRB /)  
+KB(:, 4,25, 2) = (/ &
+ & 0.10473E-06_JPRB,0.43778E-04_JPRB,0.74805E-04_JPRB,0.99950E-04_JPRB,0.13427E-03_JPRB /)  
+KB(:, 5,25, 2) = (/ &
+ & 0.10988E-06_JPRB,0.50229E-04_JPRB,0.85598E-04_JPRB,0.11406E-03_JPRB,0.15050E-03_JPRB /)  
+KB(:, 1,26, 2) = (/ &
+ & 0.69696E-07_JPRB,0.23895E-04_JPRB,0.42166E-04_JPRB,0.54733E-04_JPRB,0.77146E-04_JPRB /)  
+KB(:, 2,26, 2) = (/ &
+ & 0.74390E-07_JPRB,0.27921E-04_JPRB,0.48387E-04_JPRB,0.64817E-04_JPRB,0.87607E-04_JPRB /)  
+KB(:, 3,26, 2) = (/ &
+ & 0.78856E-07_JPRB,0.32497E-04_JPRB,0.55692E-04_JPRB,0.74691E-04_JPRB,0.99387E-04_JPRB /)  
+KB(:, 4,26, 2) = (/ &
+ & 0.83253E-07_JPRB,0.37491E-04_JPRB,0.64130E-04_JPRB,0.85609E-04_JPRB,0.11193E-03_JPRB /)  
+KB(:, 5,26, 2) = (/ &
+ & 0.87675E-07_JPRB,0.43011E-04_JPRB,0.73398E-04_JPRB,0.97828E-04_JPRB,0.12574E-03_JPRB /)  
+KB(:, 1,27, 2) = (/ &
+ & 0.54619E-07_JPRB,0.20469E-04_JPRB,0.35869E-04_JPRB,0.47259E-04_JPRB,0.64151E-04_JPRB /)  
+KB(:, 2,27, 2) = (/ &
+ & 0.58657E-07_JPRB,0.23925E-04_JPRB,0.41468E-04_JPRB,0.55499E-04_JPRB,0.72911E-04_JPRB /)  
+KB(:, 3,27, 2) = (/ &
+ & 0.62532E-07_JPRB,0.27839E-04_JPRB,0.47735E-04_JPRB,0.63985E-04_JPRB,0.82955E-04_JPRB /)  
+KB(:, 4,27, 2) = (/ &
+ & 0.66184E-07_JPRB,0.32141E-04_JPRB,0.55001E-04_JPRB,0.73456E-04_JPRB,0.93567E-04_JPRB /)  
+KB(:, 5,27, 2) = (/ &
+ & 0.69305E-07_JPRB,0.36605E-04_JPRB,0.62968E-04_JPRB,0.83938E-04_JPRB,0.10517E-03_JPRB /)  
+KB(:, 1,28, 2) = (/ &
+ & 0.43348E-07_JPRB,0.17476E-04_JPRB,0.30692E-04_JPRB,0.40803E-04_JPRB,0.53271E-04_JPRB /)  
+KB(:, 2,28, 2) = (/ &
+ & 0.46348E-07_JPRB,0.20496E-04_JPRB,0.35498E-04_JPRB,0.47629E-04_JPRB,0.60809E-04_JPRB /)  
+KB(:, 3,28, 2) = (/ &
+ & 0.49507E-07_JPRB,0.23857E-04_JPRB,0.40974E-04_JPRB,0.54947E-04_JPRB,0.69222E-04_JPRB /)  
+KB(:, 4,28, 2) = (/ &
+ & 0.52419E-07_JPRB,0.27560E-04_JPRB,0.47205E-04_JPRB,0.63044E-04_JPRB,0.78123E-04_JPRB /)  
+KB(:, 5,28, 2) = (/ &
+ & 0.54842E-07_JPRB,0.31094E-04_JPRB,0.54028E-04_JPRB,0.72116E-04_JPRB,0.87834E-04_JPRB /)  
+KB(:, 1,29, 2) = (/ &
+ & 0.34480E-07_JPRB,0.15027E-04_JPRB,0.26268E-04_JPRB,0.35358E-04_JPRB,0.44711E-04_JPRB /)  
+KB(:, 2,29, 2) = (/ &
+ & 0.36985E-07_JPRB,0.17638E-04_JPRB,0.30405E-04_JPRB,0.40938E-04_JPRB,0.51054E-04_JPRB /)  
+KB(:, 3,29, 2) = (/ &
+ & 0.39476E-07_JPRB,0.20512E-04_JPRB,0.35237E-04_JPRB,0.47207E-04_JPRB,0.58034E-04_JPRB /)  
+KB(:, 4,29, 2) = (/ &
+ & 0.41650E-07_JPRB,0.23694E-04_JPRB,0.40586E-04_JPRB,0.54286E-04_JPRB,0.65708E-04_JPRB /)  
+KB(:, 5,29, 2) = (/ &
+ & 0.43693E-07_JPRB,0.26438E-04_JPRB,0.46467E-04_JPRB,0.62035E-04_JPRB,0.73872E-04_JPRB /)  
+KB(:, 1,30, 2) = (/ &
+ & 0.27402E-07_JPRB,0.12932E-04_JPRB,0.22585E-04_JPRB,0.30365E-04_JPRB,0.37471E-04_JPRB /)  
+KB(:, 2,30, 2) = (/ &
+ & 0.29377E-07_JPRB,0.15183E-04_JPRB,0.26158E-04_JPRB,0.35195E-04_JPRB,0.42867E-04_JPRB /)  
+KB(:, 3,30, 2) = (/ &
+ & 0.31353E-07_JPRB,0.17658E-04_JPRB,0.30343E-04_JPRB,0.40606E-04_JPRB,0.48858E-04_JPRB /)  
+KB(:, 4,30, 2) = (/ &
+ & 0.33056E-07_JPRB,0.20286E-04_JPRB,0.34924E-04_JPRB,0.46735E-04_JPRB,0.55329E-04_JPRB /)  
+KB(:, 5,30, 2) = (/ &
+ & 0.34673E-07_JPRB,0.22451E-04_JPRB,0.39717E-04_JPRB,0.53329E-04_JPRB,0.62151E-04_JPRB /)  
+KB(:, 1,31, 2) = (/ &
+ & 0.21716E-07_JPRB,0.11156E-04_JPRB,0.19427E-04_JPRB,0.26169E-04_JPRB,0.31512E-04_JPRB /)  
+KB(:, 2,31, 2) = (/ &
+ & 0.23313E-07_JPRB,0.13091E-04_JPRB,0.22568E-04_JPRB,0.30377E-04_JPRB,0.36216E-04_JPRB /)  
+KB(:, 3,31, 2) = (/ &
+ & 0.24803E-07_JPRB,0.15221E-04_JPRB,0.26157E-04_JPRB,0.35050E-04_JPRB,0.41256E-04_JPRB /)  
+KB(:, 4,31, 2) = (/ &
+ & 0.26260E-07_JPRB,0.17277E-04_JPRB,0.30091E-04_JPRB,0.40288E-04_JPRB,0.46693E-04_JPRB /)  
+KB(:, 5,31, 2) = (/ &
+ & 0.27334E-07_JPRB,0.19159E-04_JPRB,0.33773E-04_JPRB,0.45892E-04_JPRB,0.52314E-04_JPRB /)  
+KB(:, 1,32, 2) = (/ &
+ & 0.17123E-07_JPRB,0.96453E-05_JPRB,0.16688E-04_JPRB,0.22528E-04_JPRB,0.26648E-04_JPRB /)  
+KB(:, 2,32, 2) = (/ &
+ & 0.18489E-07_JPRB,0.11305E-04_JPRB,0.19464E-04_JPRB,0.26137E-04_JPRB,0.30617E-04_JPRB /)  
+KB(:, 3,32, 2) = (/ &
+ & 0.19621E-07_JPRB,0.13143E-04_JPRB,0.22554E-04_JPRB,0.30238E-04_JPRB,0.34876E-04_JPRB /)  
+KB(:, 4,32, 2) = (/ &
+ & 0.20653E-07_JPRB,0.14698E-04_JPRB,0.25928E-04_JPRB,0.34712E-04_JPRB,0.39398E-04_JPRB /)  
+KB(:, 5,32, 2) = (/ &
+ & 0.21500E-07_JPRB,0.16315E-04_JPRB,0.28651E-04_JPRB,0.39302E-04_JPRB,0.44097E-04_JPRB /)  
+KB(:, 1,33, 2) = (/ &
+ & 0.13414E-07_JPRB,0.83355E-05_JPRB,0.14409E-04_JPRB,0.19461E-04_JPRB,0.22582E-04_JPRB /)  
+KB(:, 2,33, 2) = (/ &
+ & 0.14456E-07_JPRB,0.97647E-05_JPRB,0.16818E-04_JPRB,0.22578E-04_JPRB,0.25923E-04_JPRB /)  
+KB(:, 3,33, 2) = (/ &
+ & 0.15416E-07_JPRB,0.11250E-04_JPRB,0.19451E-04_JPRB,0.26119E-04_JPRB,0.29482E-04_JPRB /)  
+KB(:, 4,33, 2) = (/ &
+ & 0.16184E-07_JPRB,0.12520E-04_JPRB,0.22064E-04_JPRB,0.29911E-04_JPRB,0.33230E-04_JPRB /)  
+KB(:, 5,33, 2) = (/ &
+ & 0.16861E-07_JPRB,0.13810E-04_JPRB,0.24332E-04_JPRB,0.33363E-04_JPRB,0.37135E-04_JPRB /)  
+KB(:, 1,34, 2) = (/ &
+ & 0.10575E-07_JPRB,0.71786E-05_JPRB,0.12407E-04_JPRB,0.16719E-04_JPRB,0.19158E-04_JPRB /)  
+KB(:, 2,34, 2) = (/ &
+ & 0.11328E-07_JPRB,0.84093E-05_JPRB,0.14457E-04_JPRB,0.19433E-04_JPRB,0.21940E-04_JPRB /)  
+KB(:, 3,34, 2) = (/ &
+ & 0.12049E-07_JPRB,0.95860E-05_JPRB,0.16718E-04_JPRB,0.22425E-04_JPRB,0.24932E-04_JPRB /)  
+KB(:, 4,34, 2) = (/ &
+ & 0.12689E-07_JPRB,0.10655E-04_JPRB,0.18771E-04_JPRB,0.25647E-04_JPRB,0.28065E-04_JPRB /)  
+KB(:, 5,34, 2) = (/ &
+ & 0.13241E-07_JPRB,0.11703E-04_JPRB,0.20628E-04_JPRB,0.28184E-04_JPRB,0.31323E-04_JPRB /)  
+KB(:, 1,35, 2) = (/ &
+ & 0.82489E-08_JPRB,0.60850E-05_JPRB,0.10505E-04_JPRB,0.14140E-04_JPRB,0.16004E-04_JPRB /)  
+KB(:, 2,35, 2) = (/ &
+ & 0.88532E-08_JPRB,0.71306E-05_JPRB,0.12250E-04_JPRB,0.16463E-04_JPRB,0.18333E-04_JPRB /)  
+KB(:, 3,35, 2) = (/ &
+ & 0.93468E-08_JPRB,0.80269E-05_JPRB,0.14158E-04_JPRB,0.18989E-04_JPRB,0.20835E-04_JPRB /)  
+KB(:, 4,35, 2) = (/ &
+ & 0.98478E-08_JPRB,0.89450E-05_JPRB,0.15691E-04_JPRB,0.21576E-04_JPRB,0.23428E-04_JPRB /)  
+KB(:, 5,35, 2) = (/ &
+ & 0.10332E-07_JPRB,0.98354E-05_JPRB,0.17293E-04_JPRB,0.23618E-04_JPRB,0.26128E-04_JPRB /)  
+KB(:, 1,36, 2) = (/ &
+ & 0.63951E-08_JPRB,0.50545E-05_JPRB,0.87378E-05_JPRB,0.11778E-04_JPRB,0.13176E-04_JPRB /)  
+KB(:, 2,36, 2) = (/ &
+ & 0.68252E-08_JPRB,0.59348E-05_JPRB,0.10193E-04_JPRB,0.13730E-04_JPRB,0.15104E-04_JPRB /)  
+KB(:, 3,36, 2) = (/ &
+ & 0.72445E-08_JPRB,0.66480E-05_JPRB,0.11783E-04_JPRB,0.15832E-04_JPRB,0.17160E-04_JPRB /)  
+KB(:, 4,36, 2) = (/ &
+ & 0.75871E-08_JPRB,0.73960E-05_JPRB,0.13005E-04_JPRB,0.17866E-04_JPRB,0.19295E-04_JPRB /)  
+KB(:, 5,36, 2) = (/ &
+ & 0.79075E-08_JPRB,0.81558E-05_JPRB,0.14306E-04_JPRB,0.19617E-04_JPRB,0.21532E-04_JPRB /)  
+KB(:, 1,37, 2) = (/ &
+ & 0.50574E-08_JPRB,0.41215E-05_JPRB,0.71249E-05_JPRB,0.95923E-05_JPRB,0.10686E-04_JPRB /)  
+KB(:, 2,37, 2) = (/ &
+ & 0.53967E-08_JPRB,0.48518E-05_JPRB,0.83286E-05_JPRB,0.11206E-04_JPRB,0.12269E-04_JPRB /)  
+KB(:, 3,37, 2) = (/ &
+ & 0.57517E-08_JPRB,0.54411E-05_JPRB,0.96383E-05_JPRB,0.12942E-04_JPRB,0.13958E-04_JPRB /)  
+KB(:, 4,37, 2) = (/ &
+ & 0.60273E-08_JPRB,0.60590E-05_JPRB,0.10644E-04_JPRB,0.14619E-04_JPRB,0.15714E-04_JPRB /)  
+KB(:, 5,37, 2) = (/ &
+ & 0.62775E-08_JPRB,0.66900E-05_JPRB,0.11723E-04_JPRB,0.16077E-04_JPRB,0.17560E-04_JPRB /)  
+KB(:, 1,38, 2) = (/ &
+ & 0.39948E-08_JPRB,0.33535E-05_JPRB,0.57976E-05_JPRB,0.77989E-05_JPRB,0.86548E-05_JPRB /)  
+KB(:, 2,38, 2) = (/ &
+ & 0.42642E-08_JPRB,0.39584E-05_JPRB,0.67932E-05_JPRB,0.91290E-05_JPRB,0.99507E-05_JPRB /)  
+KB(:, 3,38, 2) = (/ &
+ & 0.45529E-08_JPRB,0.44478E-05_JPRB,0.78746E-05_JPRB,0.10563E-04_JPRB,0.11338E-04_JPRB /)  
+KB(:, 4,38, 2) = (/ &
+ & 0.47911E-08_JPRB,0.49592E-05_JPRB,0.87019E-05_JPRB,0.11950E-04_JPRB,0.12783E-04_JPRB /)  
+KB(:, 5,38, 2) = (/ &
+ & 0.49959E-08_JPRB,0.54820E-05_JPRB,0.95964E-05_JPRB,0.13155E-04_JPRB,0.14308E-04_JPRB /)  
+KB(:, 1,39, 2) = (/ &
+ & 0.31607E-08_JPRB,0.27260E-05_JPRB,0.47143E-05_JPRB,0.63381E-05_JPRB,0.70094E-05_JPRB /)  
+KB(:, 2,39, 2) = (/ &
+ & 0.33771E-08_JPRB,0.32263E-05_JPRB,0.55352E-05_JPRB,0.74322E-05_JPRB,0.80695E-05_JPRB /)  
+KB(:, 3,39, 2) = (/ &
+ & 0.35907E-08_JPRB,0.36316E-05_JPRB,0.64256E-05_JPRB,0.86133E-05_JPRB,0.92019E-05_JPRB /)  
+KB(:, 4,39, 2) = (/ &
+ & 0.37920E-08_JPRB,0.40555E-05_JPRB,0.71128E-05_JPRB,0.97677E-05_JPRB,0.10392E-04_JPRB /)  
+KB(:, 5,39, 2) = (/ &
+ & 0.39687E-08_JPRB,0.44882E-05_JPRB,0.78499E-05_JPRB,0.10753E-04_JPRB,0.11647E-04_JPRB /)  
+KB(:, 1,40, 2) = (/ &
+ & 0.25137E-08_JPRB,0.21782E-05_JPRB,0.37700E-05_JPRB,0.50636E-05_JPRB,0.55872E-05_JPRB /)  
+KB(:, 2,40, 2) = (/ &
+ & 0.26953E-08_JPRB,0.25872E-05_JPRB,0.44411E-05_JPRB,0.59538E-05_JPRB,0.64693E-05_JPRB /)  
+KB(:, 3,40, 2) = (/ &
+ & 0.28738E-08_JPRB,0.29415E-05_JPRB,0.51697E-05_JPRB,0.69217E-05_JPRB,0.73806E-05_JPRB /)  
+KB(:, 4,40, 2) = (/ &
+ & 0.30365E-08_JPRB,0.32887E-05_JPRB,0.57574E-05_JPRB,0.79115E-05_JPRB,0.83547E-05_JPRB /)  
+KB(:, 5,40, 2) = (/ &
+ & 0.31827E-08_JPRB,0.36391E-05_JPRB,0.63730E-05_JPRB,0.87114E-05_JPRB,0.93854E-05_JPRB /)  
+KB(:, 1,41, 2) = (/ &
+ & 0.20049E-08_JPRB,0.17350E-05_JPRB,0.30089E-05_JPRB,0.40342E-05_JPRB,0.44437E-05_JPRB /)  
+KB(:, 2,41, 2) = (/ &
+ & 0.21522E-08_JPRB,0.20685E-05_JPRB,0.35532E-05_JPRB,0.47542E-05_JPRB,0.51577E-05_JPRB /)  
+KB(:, 3,41, 2) = (/ &
+ & 0.22978E-08_JPRB,0.23716E-05_JPRB,0.41490E-05_JPRB,0.55459E-05_JPRB,0.59029E-05_JPRB /)  
+KB(:, 4,41, 2) = (/ &
+ & 0.24277E-08_JPRB,0.26608E-05_JPRB,0.46585E-05_JPRB,0.63928E-05_JPRB,0.67015E-05_JPRB /)  
+KB(:, 5,41, 2) = (/ &
+ & 0.25592E-08_JPRB,0.29434E-05_JPRB,0.51614E-05_JPRB,0.70376E-05_JPRB,0.75472E-05_JPRB /)  
+KB(:, 1,42, 2) = (/ &
+ & 0.16007E-08_JPRB,0.13793E-05_JPRB,0.23939E-05_JPRB,0.32203E-05_JPRB,0.35347E-05_JPRB /)  
+KB(:, 2,42, 2) = (/ &
+ & 0.17182E-08_JPRB,0.16509E-05_JPRB,0.28388E-05_JPRB,0.37950E-05_JPRB,0.41069E-05_JPRB /)  
+KB(:, 3,42, 2) = (/ &
+ & 0.18364E-08_JPRB,0.19058E-05_JPRB,0.33250E-05_JPRB,0.44386E-05_JPRB,0.47169E-05_JPRB /)  
+KB(:, 4,42, 2) = (/ &
+ & 0.19459E-08_JPRB,0.21436E-05_JPRB,0.37676E-05_JPRB,0.51389E-05_JPRB,0.53710E-05_JPRB /)  
+KB(:, 5,42, 2) = (/ &
+ & 0.20555E-08_JPRB,0.23781E-05_JPRB,0.41722E-05_JPRB,0.56915E-05_JPRB,0.60613E-05_JPRB /)  
+KB(:, 1,43, 2) = (/ &
+ & 0.12763E-08_JPRB,0.10855E-05_JPRB,0.18842E-05_JPRB,0.25355E-05_JPRB,0.27894E-05_JPRB /)  
+KB(:, 2,43, 2) = (/ &
+ & 0.13693E-08_JPRB,0.13038E-05_JPRB,0.22434E-05_JPRB,0.29991E-05_JPRB,0.32452E-05_JPRB /)  
+KB(:, 3,43, 2) = (/ &
+ & 0.14669E-08_JPRB,0.15227E-05_JPRB,0.26394E-05_JPRB,0.35195E-05_JPRB,0.37403E-05_JPRB /)  
+KB(:, 4,43, 2) = (/ &
+ & 0.15621E-08_JPRB,0.17145E-05_JPRB,0.30188E-05_JPRB,0.40881E-05_JPRB,0.42757E-05_JPRB /)  
+KB(:, 5,43, 2) = (/ &
+ & 0.16467E-08_JPRB,0.19093E-05_JPRB,0.33481E-05_JPRB,0.45768E-05_JPRB,0.48357E-05_JPRB /)  
+KB(:, 1,44, 2) = (/ &
+ & 0.10164E-08_JPRB,0.84908E-06_JPRB,0.14741E-05_JPRB,0.19864E-05_JPRB,0.21744E-05_JPRB /)  
+KB(:, 2,44, 2) = (/ &
+ & 0.10926E-08_JPRB,0.10232E-05_JPRB,0.17642E-05_JPRB,0.23536E-05_JPRB,0.25562E-05_JPRB /)  
+KB(:, 3,44, 2) = (/ &
+ & 0.11717E-08_JPRB,0.12156E-05_JPRB,0.20836E-05_JPRB,0.27750E-05_JPRB,0.29547E-05_JPRB /)  
+KB(:, 4,44, 2) = (/ &
+ & 0.12502E-08_JPRB,0.13671E-05_JPRB,0.24149E-05_JPRB,0.32374E-05_JPRB,0.33856E-05_JPRB /)  
+KB(:, 5,44, 2) = (/ &
+ & 0.13204E-08_JPRB,0.15290E-05_JPRB,0.26801E-05_JPRB,0.36631E-05_JPRB,0.38430E-05_JPRB /)  
+KB(:, 1,45, 2) = (/ &
+ & 0.80967E-09_JPRB,0.66247E-06_JPRB,0.11525E-05_JPRB,0.15557E-05_JPRB,0.16911E-05_JPRB /)  
+KB(:, 2,45, 2) = (/ &
+ & 0.87091E-09_JPRB,0.80114E-06_JPRB,0.13838E-05_JPRB,0.18457E-05_JPRB,0.20071E-05_JPRB /)  
+KB(:, 3,45, 2) = (/ &
+ & 0.93471E-09_JPRB,0.96063E-06_JPRB,0.16414E-05_JPRB,0.21862E-05_JPRB,0.23357E-05_JPRB /)  
+KB(:, 4,45, 2) = (/ &
+ & 0.99996E-09_JPRB,0.10898E-05_JPRB,0.19287E-05_JPRB,0.25587E-05_JPRB,0.26765E-05_JPRB /)  
+KB(:, 5,45, 2) = (/ &
+ & 0.10594E-08_JPRB,0.12255E-05_JPRB,0.21437E-05_JPRB,0.29239E-05_JPRB,0.30491E-05_JPRB /)  
+KB(:, 1,46, 2) = (/ &
+ & 0.64438E-09_JPRB,0.51408E-06_JPRB,0.89692E-06_JPRB,0.12176E-05_JPRB,0.13094E-05_JPRB /)  
+KB(:, 2,46, 2) = (/ &
+ & 0.69338E-09_JPRB,0.62335E-06_JPRB,0.10783E-05_JPRB,0.14408E-05_JPRB,0.15697E-05_JPRB /)  
+KB(:, 3,46, 2) = (/ &
+ & 0.74249E-09_JPRB,0.75197E-06_JPRB,0.12859E-05_JPRB,0.17116E-05_JPRB,0.18286E-05_JPRB /)  
+KB(:, 4,46, 2) = (/ &
+ & 0.79710E-09_JPRB,0.86785E-06_JPRB,0.15182E-05_JPRB,0.20117E-05_JPRB,0.21072E-05_JPRB /)  
+KB(:, 5,46, 2) = (/ &
+ & 0.84966E-09_JPRB,0.97923E-06_JPRB,0.17156E-05_JPRB,0.23354E-05_JPRB,0.24096E-05_JPRB /)  
+KB(:, 1,47, 2) = (/ &
+ & 0.51236E-09_JPRB,0.39483E-06_JPRB,0.69100E-06_JPRB,0.94871E-06_JPRB,0.10050E-05_JPRB /)  
+KB(:, 2,47, 2) = (/ &
+ & 0.55075E-09_JPRB,0.48075E-06_JPRB,0.83326E-06_JPRB,0.11171E-05_JPRB,0.12169E-05_JPRB /)  
+KB(:, 3,47, 2) = (/ &
+ & 0.59153E-09_JPRB,0.58279E-06_JPRB,0.99922E-06_JPRB,0.13307E-05_JPRB,0.14227E-05_JPRB /)  
+KB(:, 4,47, 2) = (/ &
+ & 0.63485E-09_JPRB,0.68347E-06_JPRB,0.11845E-05_JPRB,0.15696E-05_JPRB,0.16474E-05_JPRB /)  
+KB(:, 5,47, 2) = (/ &
+ & 0.67833E-09_JPRB,0.77359E-06_JPRB,0.13593E-05_JPRB,0.18329E-05_JPRB,0.18933E-05_JPRB /)  
+KB(:, 1,48, 2) = (/ &
+ & 0.40749E-09_JPRB,0.30162E-06_JPRB,0.53408E-06_JPRB,0.72777E-06_JPRB,0.76768E-06_JPRB /)  
+KB(:, 2,48, 2) = (/ &
+ & 0.43682E-09_JPRB,0.36975E-06_JPRB,0.64201E-06_JPRB,0.86174E-06_JPRB,0.93334E-06_JPRB /)  
+KB(:, 3,48, 2) = (/ &
+ & 0.46981E-09_JPRB,0.45015E-06_JPRB,0.77460E-06_JPRB,0.10306E-05_JPRB,0.11092E-05_JPRB /)  
+KB(:, 4,48, 2) = (/ &
+ & 0.50302E-09_JPRB,0.53912E-06_JPRB,0.92171E-06_JPRB,0.12225E-05_JPRB,0.12874E-05_JPRB /)  
+KB(:, 5,48, 2) = (/ &
+ & 0.53999E-09_JPRB,0.61013E-06_JPRB,0.10790E-05_JPRB,0.14334E-05_JPRB,0.14828E-05_JPRB /)  
+KB(:, 1,49, 2) = (/ &
+ & 0.32288E-09_JPRB,0.23115E-06_JPRB,0.41625E-06_JPRB,0.55318E-06_JPRB,0.58476E-06_JPRB /)  
+KB(:, 2,49, 2) = (/ &
+ & 0.34731E-09_JPRB,0.28355E-06_JPRB,0.49493E-06_JPRB,0.66850E-06_JPRB,0.71600E-06_JPRB /)  
+KB(:, 3,49, 2) = (/ &
+ & 0.37310E-09_JPRB,0.34682E-06_JPRB,0.59820E-06_JPRB,0.79617E-06_JPRB,0.85985E-06_JPRB /)  
+KB(:, 4,49, 2) = (/ &
+ & 0.39975E-09_JPRB,0.42034E-06_JPRB,0.71527E-06_JPRB,0.95046E-06_JPRB,0.10041E-05_JPRB /)  
+KB(:, 5,49, 2) = (/ &
+ & 0.42970E-09_JPRB,0.48341E-06_JPRB,0.84829E-06_JPRB,0.11191E-05_JPRB,0.11582E-05_JPRB /)  
+KB(:, 1,50, 2) = (/ &
+ & 0.25646E-09_JPRB,0.17743E-06_JPRB,0.32423E-06_JPRB,0.42175E-06_JPRB,0.44754E-06_JPRB /)  
+KB(:, 2,50, 2) = (/ &
+ & 0.27669E-09_JPRB,0.21856E-06_JPRB,0.38220E-06_JPRB,0.52102E-06_JPRB,0.55141E-06_JPRB /)  
+KB(:, 3,50, 2) = (/ &
+ & 0.29654E-09_JPRB,0.26808E-06_JPRB,0.46375E-06_JPRB,0.61921E-06_JPRB,0.67025E-06_JPRB /)  
+KB(:, 4,50, 2) = (/ &
+ & 0.31872E-09_JPRB,0.32662E-06_JPRB,0.55687E-06_JPRB,0.73985E-06_JPRB,0.78291E-06_JPRB /)  
+KB(:, 5,50, 2) = (/ &
+ & 0.34198E-09_JPRB,0.38136E-06_JPRB,0.66385E-06_JPRB,0.87591E-06_JPRB,0.90771E-06_JPRB /)  
+KB(:, 1,51, 2) = (/ &
+ & 0.20472E-09_JPRB,0.13694E-06_JPRB,0.24726E-06_JPRB,0.32216E-06_JPRB,0.34229E-06_JPRB /)  
+KB(:, 2,51, 2) = (/ &
+ & 0.22054E-09_JPRB,0.16842E-06_JPRB,0.29646E-06_JPRB,0.40635E-06_JPRB,0.42402E-06_JPRB /)  
+KB(:, 3,51, 2) = (/ &
+ & 0.23653E-09_JPRB,0.20731E-06_JPRB,0.35913E-06_JPRB,0.48027E-06_JPRB,0.51714E-06_JPRB /)  
+KB(:, 4,51, 2) = (/ &
+ & 0.25402E-09_JPRB,0.25379E-06_JPRB,0.43377E-06_JPRB,0.57689E-06_JPRB,0.61228E-06_JPRB /)  
+KB(:, 5,51, 2) = (/ &
+ & 0.27233E-09_JPRB,0.30202E-06_JPRB,0.51940E-06_JPRB,0.68626E-06_JPRB,0.71146E-06_JPRB /)  
+KB(:, 1,52, 2) = (/ &
+ & 0.16428E-09_JPRB,0.10687E-06_JPRB,0.18803E-06_JPRB,0.24517E-06_JPRB,0.26090E-06_JPRB /)  
+KB(:, 2,52, 2) = (/ &
+ & 0.17520E-09_JPRB,0.12978E-06_JPRB,0.23025E-06_JPRB,0.31106E-06_JPRB,0.32512E-06_JPRB /)  
+KB(:, 3,52, 2) = (/ &
+ & 0.18865E-09_JPRB,0.15994E-06_JPRB,0.27726E-06_JPRB,0.37261E-06_JPRB,0.39888E-06_JPRB /)  
+KB(:, 4,52, 2) = (/ &
+ & 0.20265E-09_JPRB,0.19670E-06_JPRB,0.33708E-06_JPRB,0.44845E-06_JPRB,0.47779E-06_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART14',1,ZHOOK_HANDLE)
+END SUBROUTINE PART14
+
+
+SUBROUTINE PART15
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART15',0,ZHOOK_HANDLE)
+
+
+KB(:, 5,52, 2) = (/ &
+ & 0.21711E-09_JPRB,0.23739E-06_JPRB,0.40528E-06_JPRB,0.53668E-06_JPRB,0.55828E-06_JPRB /)  
+KB(:, 1,53, 2) = (/ &
+ & 0.13206E-09_JPRB,0.82677E-07_JPRB,0.14284E-06_JPRB,0.18640E-06_JPRB,0.19898E-06_JPRB /)  
+KB(:, 2,53, 2) = (/ &
+ & 0.13938E-09_JPRB,0.99597E-07_JPRB,0.18095E-06_JPRB,0.23725E-06_JPRB,0.24911E-06_JPRB /)  
+KB(:, 3,53, 2) = (/ &
+ & 0.15056E-09_JPRB,0.12309E-06_JPRB,0.21494E-06_JPRB,0.29026E-06_JPRB,0.30720E-06_JPRB /)  
+KB(:, 4,53, 2) = (/ &
+ & 0.16136E-09_JPRB,0.15205E-06_JPRB,0.26147E-06_JPRB,0.34774E-06_JPRB,0.37331E-06_JPRB /)  
+KB(:, 5,53, 2) = (/ &
+ & 0.17318E-09_JPRB,0.18547E-06_JPRB,0.31566E-06_JPRB,0.41857E-06_JPRB,0.43649E-06_JPRB /)  
+KB(:, 1,54, 2) = (/ &
+ & 0.10628E-09_JPRB,0.63529E-07_JPRB,0.10938E-06_JPRB,0.14285E-06_JPRB,0.15281E-06_JPRB /)  
+KB(:, 2,54, 2) = (/ &
+ & 0.11181E-09_JPRB,0.77068E-07_JPRB,0.14036E-06_JPRB,0.18201E-06_JPRB,0.19163E-06_JPRB /)  
+KB(:, 3,54, 2) = (/ &
+ & 0.11992E-09_JPRB,0.95387E-07_JPRB,0.16692E-06_JPRB,0.22878E-06_JPRB,0.23824E-06_JPRB /)  
+KB(:, 4,54, 2) = (/ &
+ & 0.12900E-09_JPRB,0.11809E-06_JPRB,0.20406E-06_JPRB,0.27163E-06_JPRB,0.29078E-06_JPRB /)  
+KB(:, 5,54, 2) = (/ &
+ & 0.13828E-09_JPRB,0.14510E-06_JPRB,0.24678E-06_JPRB,0.32753E-06_JPRB,0.34217E-06_JPRB /)  
+KB(:, 1,55, 2) = (/ &
+ & 0.85664E-10_JPRB,0.48444E-07_JPRB,0.83932E-07_JPRB,0.10950E-06_JPRB,0.11785E-06_JPRB /)  
+KB(:, 2,55, 2) = (/ &
+ & 0.89999E-10_JPRB,0.59885E-07_JPRB,0.10776E-06_JPRB,0.14023E-06_JPRB,0.14763E-06_JPRB /)  
+KB(:, 3,55, 2) = (/ &
+ & 0.95836E-10_JPRB,0.73941E-07_JPRB,0.13023E-06_JPRB,0.17876E-06_JPRB,0.18426E-06_JPRB /)  
+KB(:, 4,55, 2) = (/ &
+ & 0.10323E-09_JPRB,0.91791E-07_JPRB,0.15882E-06_JPRB,0.21202E-06_JPRB,0.22611E-06_JPRB /)  
+KB(:, 5,55, 2) = (/ &
+ & 0.11081E-09_JPRB,0.11336E-06_JPRB,0.19316E-06_JPRB,0.25647E-06_JPRB,0.26918E-06_JPRB /)  
+KB(:, 1,56, 2) = (/ &
+ & 0.69093E-10_JPRB,0.36832E-07_JPRB,0.64123E-07_JPRB,0.84030E-07_JPRB,0.90974E-07_JPRB /)  
+KB(:, 2,56, 2) = (/ &
+ & 0.72433E-10_JPRB,0.47084E-07_JPRB,0.82613E-07_JPRB,0.10758E-06_JPRB,0.11346E-06_JPRB /)  
+KB(:, 3,56, 2) = (/ &
+ & 0.76616E-10_JPRB,0.57388E-07_JPRB,0.10182E-06_JPRB,0.13768E-06_JPRB,0.14224E-06_JPRB /)  
+KB(:, 4,56, 2) = (/ &
+ & 0.82709E-10_JPRB,0.71294E-07_JPRB,0.12355E-06_JPRB,0.16530E-06_JPRB,0.17549E-06_JPRB /)  
+KB(:, 5,56, 2) = (/ &
+ & 0.88636E-10_JPRB,0.88445E-07_JPRB,0.15094E-06_JPRB,0.20067E-06_JPRB,0.21118E-06_JPRB /)  
+KB(:, 1,57, 2) = (/ &
+ & 0.55980E-10_JPRB,0.28018E-07_JPRB,0.48867E-07_JPRB,0.64857E-07_JPRB,0.70055E-07_JPRB /)  
+KB(:, 2,57, 2) = (/ &
+ & 0.58397E-10_JPRB,0.36620E-07_JPRB,0.63232E-07_JPRB,0.82428E-07_JPRB,0.87457E-07_JPRB /)  
+KB(:, 3,57, 2) = (/ &
+ & 0.61509E-10_JPRB,0.44446E-07_JPRB,0.80512E-07_JPRB,0.10580E-06_JPRB,0.10988E-06_JPRB /)  
+KB(:, 4,57, 2) = (/ &
+ & 0.66015E-10_JPRB,0.55222E-07_JPRB,0.96401E-07_JPRB,0.12935E-06_JPRB,0.13614E-06_JPRB /)  
+KB(:, 5,57, 2) = (/ &
+ & 0.70976E-10_JPRB,0.68821E-07_JPRB,0.11780E-06_JPRB,0.15632E-06_JPRB,0.16586E-06_JPRB /)  
+KB(:, 1,58, 2) = (/ &
+ & 0.45722E-10_JPRB,0.21506E-07_JPRB,0.37326E-07_JPRB,0.50333E-07_JPRB,0.54855E-07_JPRB /)  
+KB(:, 2,58, 2) = (/ &
+ & 0.47090E-10_JPRB,0.28249E-07_JPRB,0.48612E-07_JPRB,0.63442E-07_JPRB,0.67550E-07_JPRB /)  
+KB(:, 3,58, 2) = (/ &
+ & 0.49550E-10_JPRB,0.34430E-07_JPRB,0.62769E-07_JPRB,0.81509E-07_JPRB,0.84917E-07_JPRB /)  
+KB(:, 4,58, 2) = (/ &
+ & 0.52817E-10_JPRB,0.42958E-07_JPRB,0.75173E-07_JPRB,0.10204E-06_JPRB,0.10603E-06_JPRB /)  
+KB(:, 5,58, 2) = (/ &
+ & 0.56864E-10_JPRB,0.53637E-07_JPRB,0.92044E-07_JPRB,0.12229E-06_JPRB,0.13011E-06_JPRB /)  
+KB(:, 1,59, 2) = (/ &
+ & 0.37496E-10_JPRB,0.17255E-07_JPRB,0.29967E-07_JPRB,0.40394E-07_JPRB,0.44059E-07_JPRB /)  
+KB(:, 2,59, 2) = (/ &
+ & 0.38367E-10_JPRB,0.22782E-07_JPRB,0.39144E-07_JPRB,0.51019E-07_JPRB,0.54404E-07_JPRB /)  
+KB(:, 3,59, 2) = (/ &
+ & 0.40346E-10_JPRB,0.27842E-07_JPRB,0.50692E-07_JPRB,0.65716E-07_JPRB,0.68440E-07_JPRB /)  
+KB(:, 4,59, 2) = (/ &
+ & 0.42908E-10_JPRB,0.34761E-07_JPRB,0.60846E-07_JPRB,0.82834E-07_JPRB,0.85713E-07_JPRB /)  
+KB(:, 5,59, 2) = (/ &
+ & 0.46213E-10_JPRB,0.43467E-07_JPRB,0.74626E-07_JPRB,0.99144E-07_JPRB,0.10518E-06_JPRB /)  
+KB(:, 1,13, 3) = (/ &
+ & 0.91180E-05_JPRB,0.12754E-02_JPRB,0.19900E-02_JPRB,0.24440E-02_JPRB,0.40576E-02_JPRB /)  
+KB(:, 2,13, 3) = (/ &
+ & 0.95037E-05_JPRB,0.14150E-02_JPRB,0.22145E-02_JPRB,0.28094E-02_JPRB,0.44375E-02_JPRB /)  
+KB(:, 3,13, 3) = (/ &
+ & 0.99757E-05_JPRB,0.15626E-02_JPRB,0.24320E-02_JPRB,0.31375E-02_JPRB,0.48097E-02_JPRB /)  
+KB(:, 4,13, 3) = (/ &
+ & 0.10508E-04_JPRB,0.16997E-02_JPRB,0.26926E-02_JPRB,0.34483E-02_JPRB,0.51554E-02_JPRB /)  
+KB(:, 5,13, 3) = (/ &
+ & 0.11033E-04_JPRB,0.18373E-02_JPRB,0.29684E-02_JPRB,0.37861E-02_JPRB,0.54896E-02_JPRB /)  
+KB(:, 1,14, 3) = (/ &
+ & 0.73209E-05_JPRB,0.10727E-02_JPRB,0.16787E-02_JPRB,0.20881E-02_JPRB,0.33041E-02_JPRB /)  
+KB(:, 2,14, 3) = (/ &
+ & 0.76795E-05_JPRB,0.11937E-02_JPRB,0.18683E-02_JPRB,0.23616E-02_JPRB,0.36246E-02_JPRB /)  
+KB(:, 3,14, 3) = (/ &
+ & 0.80417E-05_JPRB,0.13177E-02_JPRB,0.20567E-02_JPRB,0.26465E-02_JPRB,0.39438E-02_JPRB /)  
+KB(:, 4,14, 3) = (/ &
+ & 0.84296E-05_JPRB,0.14317E-02_JPRB,0.22826E-02_JPRB,0.29022E-02_JPRB,0.42368E-02_JPRB /)  
+KB(:, 5,14, 3) = (/ &
+ & 0.88950E-05_JPRB,0.15495E-02_JPRB,0.25084E-02_JPRB,0.31901E-02_JPRB,0.44992E-02_JPRB /)  
+KB(:, 1,15, 3) = (/ &
+ & 0.58275E-05_JPRB,0.89895E-03_JPRB,0.14161E-02_JPRB,0.17760E-02_JPRB,0.26508E-02_JPRB /)  
+KB(:, 2,15, 3) = (/ &
+ & 0.61166E-05_JPRB,0.10025E-02_JPRB,0.15706E-02_JPRB,0.19893E-02_JPRB,0.29219E-02_JPRB /)  
+KB(:, 3,15, 3) = (/ &
+ & 0.64340E-05_JPRB,0.11055E-02_JPRB,0.17375E-02_JPRB,0.22237E-02_JPRB,0.31718E-02_JPRB /)  
+KB(:, 4,15, 3) = (/ &
+ & 0.67501E-05_JPRB,0.12028E-02_JPRB,0.19291E-02_JPRB,0.24433E-02_JPRB,0.34015E-02_JPRB /)  
+KB(:, 5,15, 3) = (/ &
+ & 0.70843E-05_JPRB,0.13034E-02_JPRB,0.21152E-02_JPRB,0.26892E-02_JPRB,0.36350E-02_JPRB /)  
+KB(:, 1,16, 3) = (/ &
+ & 0.45776E-05_JPRB,0.75233E-03_JPRB,0.11906E-02_JPRB,0.14957E-02_JPRB,0.21076E-02_JPRB /)  
+KB(:, 2,16, 3) = (/ &
+ & 0.48262E-05_JPRB,0.84051E-03_JPRB,0.13192E-02_JPRB,0.16780E-02_JPRB,0.23267E-02_JPRB /)  
+KB(:, 3,16, 3) = (/ &
+ & 0.51024E-05_JPRB,0.92603E-03_JPRB,0.14653E-02_JPRB,0.18671E-02_JPRB,0.25242E-02_JPRB /)  
+KB(:, 4,16, 3) = (/ &
+ & 0.53856E-05_JPRB,0.10093E-02_JPRB,0.16288E-02_JPRB,0.20599E-02_JPRB,0.27134E-02_JPRB /)  
+KB(:, 5,16, 3) = (/ &
+ & 0.56625E-05_JPRB,0.10939E-02_JPRB,0.17834E-02_JPRB,0.22693E-02_JPRB,0.29092E-02_JPRB /)  
+KB(:, 1,17, 3) = (/ &
+ & 0.35978E-05_JPRB,0.63055E-03_JPRB,0.10001E-02_JPRB,0.12618E-02_JPRB,0.16759E-02_JPRB /)  
+KB(:, 2,17, 3) = (/ &
+ & 0.38090E-05_JPRB,0.70519E-03_JPRB,0.11080E-02_JPRB,0.14142E-02_JPRB,0.18563E-02_JPRB /)  
+KB(:, 3,17, 3) = (/ &
+ & 0.40365E-05_JPRB,0.77593E-03_JPRB,0.12352E-02_JPRB,0.15692E-02_JPRB,0.20215E-02_JPRB /)  
+KB(:, 4,17, 3) = (/ &
+ & 0.42692E-05_JPRB,0.84648E-03_JPRB,0.13753E-02_JPRB,0.17361E-02_JPRB,0.21882E-02_JPRB /)  
+KB(:, 5,17, 3) = (/ &
+ & 0.45325E-05_JPRB,0.91815E-03_JPRB,0.15031E-02_JPRB,0.19156E-02_JPRB,0.23511E-02_JPRB /)  
+KB(:, 1,18, 3) = (/ &
+ & 0.28577E-05_JPRB,0.52923E-03_JPRB,0.84060E-03_JPRB,0.10641E-02_JPRB,0.13524E-02_JPRB /)  
+KB(:, 2,18, 3) = (/ &
+ & 0.30189E-05_JPRB,0.59275E-03_JPRB,0.93264E-03_JPRB,0.11925E-02_JPRB,0.15051E-02_JPRB /)  
+KB(:, 3,18, 3) = (/ &
+ & 0.31971E-05_JPRB,0.65140E-03_JPRB,0.10422E-02_JPRB,0.13174E-02_JPRB,0.16413E-02_JPRB /)  
+KB(:, 4,18, 3) = (/ &
+ & 0.33981E-05_JPRB,0.71144E-03_JPRB,0.11594E-02_JPRB,0.14613E-02_JPRB,0.17851E-02_JPRB /)  
+KB(:, 5,18, 3) = (/ &
+ & 0.36127E-05_JPRB,0.77200E-03_JPRB,0.12685E-02_JPRB,0.16164E-02_JPRB,0.19166E-02_JPRB /)  
+KB(:, 1,19, 3) = (/ &
+ & 0.22832E-05_JPRB,0.44489E-03_JPRB,0.70523E-03_JPRB,0.89150E-03_JPRB,0.11054E-02_JPRB /)  
+KB(:, 2,19, 3) = (/ &
+ & 0.24005E-05_JPRB,0.49860E-03_JPRB,0.78596E-03_JPRB,0.10033E-02_JPRB,0.12310E-02_JPRB /)  
+KB(:, 3,19, 3) = (/ &
+ & 0.25465E-05_JPRB,0.54746E-03_JPRB,0.88096E-03_JPRB,0.11084E-02_JPRB,0.13479E-02_JPRB /)  
+KB(:, 4,19, 3) = (/ &
+ & 0.27167E-05_JPRB,0.59760E-03_JPRB,0.97685E-03_JPRB,0.12305E-02_JPRB,0.14668E-02_JPRB /)  
+KB(:, 5,19, 3) = (/ &
+ & 0.28927E-05_JPRB,0.64844E-03_JPRB,0.10695E-02_JPRB,0.13632E-02_JPRB,0.15746E-02_JPRB /)  
+KB(:, 1,20, 3) = (/ &
+ & 0.18426E-05_JPRB,0.37567E-03_JPRB,0.59276E-03_JPRB,0.75002E-03_JPRB,0.91159E-03_JPRB /)  
+KB(:, 2,20, 3) = (/ &
+ & 0.19324E-05_JPRB,0.42049E-03_JPRB,0.66376E-03_JPRB,0.84304E-03_JPRB,0.10175E-02_JPRB /)  
+KB(:, 3,20, 3) = (/ &
+ & 0.20563E-05_JPRB,0.46104E-03_JPRB,0.74561E-03_JPRB,0.93568E-03_JPRB,0.11153E-02_JPRB /)  
+KB(:, 4,20, 3) = (/ &
+ & 0.21952E-05_JPRB,0.50302E-03_JPRB,0.82491E-03_JPRB,0.10410E-02_JPRB,0.12131E-02_JPRB /)  
+KB(:, 5,20, 3) = (/ &
+ & 0.23429E-05_JPRB,0.54570E-03_JPRB,0.90324E-03_JPRB,0.11512E-02_JPRB,0.13002E-02_JPRB /)  
+KB(:, 1,21, 3) = (/ &
+ & 0.14914E-05_JPRB,0.31727E-03_JPRB,0.49879E-03_JPRB,0.63141E-03_JPRB,0.75480E-03_JPRB /)  
+KB(:, 2,21, 3) = (/ &
+ & 0.15711E-05_JPRB,0.35367E-03_JPRB,0.56105E-03_JPRB,0.70859E-03_JPRB,0.84278E-03_JPRB /)  
+KB(:, 3,21, 3) = (/ &
+ & 0.16720E-05_JPRB,0.38776E-03_JPRB,0.63122E-03_JPRB,0.79066E-03_JPRB,0.92492E-03_JPRB /)  
+KB(:, 4,21, 3) = (/ &
+ & 0.17830E-05_JPRB,0.42327E-03_JPRB,0.69655E-03_JPRB,0.88311E-03_JPRB,0.10041E-02_JPRB /)  
+KB(:, 5,21, 3) = (/ &
+ & 0.19065E-05_JPRB,0.45905E-03_JPRB,0.76238E-03_JPRB,0.97320E-03_JPRB,0.10767E-02_JPRB /)  
+KB(:, 1,22, 3) = (/ &
+ & 0.12007E-05_JPRB,0.26976E-03_JPRB,0.42316E-03_JPRB,0.53750E-03_JPRB,0.62747E-03_JPRB /)  
+KB(:, 2,22, 3) = (/ &
+ & 0.12744E-05_JPRB,0.29880E-03_JPRB,0.47840E-03_JPRB,0.60094E-03_JPRB,0.70134E-03_JPRB /)  
+KB(:, 3,22, 3) = (/ &
+ & 0.13572E-05_JPRB,0.32813E-03_JPRB,0.53672E-03_JPRB,0.67341E-03_JPRB,0.76916E-03_JPRB /)  
+KB(:, 4,22, 3) = (/ &
+ & 0.14459E-05_JPRB,0.35761E-03_JPRB,0.59154E-03_JPRB,0.75421E-03_JPRB,0.83371E-03_JPRB /)  
+KB(:, 5,22, 3) = (/ &
+ & 0.15538E-05_JPRB,0.38792E-03_JPRB,0.64663E-03_JPRB,0.82877E-03_JPRB,0.89529E-03_JPRB /)  
+KB(:, 1,23, 3) = (/ &
+ & 0.96861E-06_JPRB,0.22918E-03_JPRB,0.36015E-03_JPRB,0.45719E-03_JPRB,0.52404E-03_JPRB /)  
+KB(:, 2,23, 3) = (/ &
+ & 0.10336E-05_JPRB,0.25321E-03_JPRB,0.40834E-03_JPRB,0.51161E-03_JPRB,0.58351E-03_JPRB /)  
+KB(:, 3,23, 3) = (/ &
+ & 0.10985E-05_JPRB,0.27767E-03_JPRB,0.45571E-03_JPRB,0.57459E-03_JPRB,0.63985E-03_JPRB /)  
+KB(:, 4,23, 3) = (/ &
+ & 0.11768E-05_JPRB,0.30252E-03_JPRB,0.50195E-03_JPRB,0.64190E-03_JPRB,0.69303E-03_JPRB /)  
+KB(:, 5,23, 3) = (/ &
+ & 0.12615E-05_JPRB,0.32794E-03_JPRB,0.54831E-03_JPRB,0.70579E-03_JPRB,0.74540E-03_JPRB /)  
+KB(:, 1,24, 3) = (/ &
+ & 0.77560E-06_JPRB,0.19437E-03_JPRB,0.30748E-03_JPRB,0.38828E-03_JPRB,0.43529E-03_JPRB /)  
+KB(:, 2,24, 3) = (/ &
+ & 0.82580E-06_JPRB,0.21438E-03_JPRB,0.34835E-03_JPRB,0.43617E-03_JPRB,0.48373E-03_JPRB /)  
+KB(:, 3,24, 3) = (/ &
+ & 0.88200E-06_JPRB,0.23492E-03_JPRB,0.38680E-03_JPRB,0.49169E-03_JPRB,0.53189E-03_JPRB /)  
+KB(:, 4,24, 3) = (/ &
+ & 0.94947E-06_JPRB,0.25573E-03_JPRB,0.42635E-03_JPRB,0.54641E-03_JPRB,0.57637E-03_JPRB /)  
+KB(:, 5,24, 3) = (/ &
+ & 0.10182E-05_JPRB,0.27745E-03_JPRB,0.46607E-03_JPRB,0.60046E-03_JPRB,0.61998E-03_JPRB /)  
+KB(:, 1,25, 3) = (/ &
+ & 0.61963E-06_JPRB,0.16454E-03_JPRB,0.26284E-03_JPRB,0.33016E-03_JPRB,0.36284E-03_JPRB /)  
+KB(:, 2,25, 3) = (/ &
+ & 0.66146E-06_JPRB,0.18162E-03_JPRB,0.29714E-03_JPRB,0.37315E-03_JPRB,0.40370E-03_JPRB /)  
+KB(:, 3,25, 3) = (/ &
+ & 0.71111E-06_JPRB,0.19882E-03_JPRB,0.32942E-03_JPRB,0.42130E-03_JPRB,0.44382E-03_JPRB /)  
+KB(:, 4,25, 3) = (/ &
+ & 0.76573E-06_JPRB,0.21663E-03_JPRB,0.36228E-03_JPRB,0.46640E-03_JPRB,0.48052E-03_JPRB /)  
+KB(:, 5,25, 3) = (/ &
+ & 0.82100E-06_JPRB,0.23503E-03_JPRB,0.39627E-03_JPRB,0.51132E-03_JPRB,0.51776E-03_JPRB /)  
+KB(:, 1,26, 3) = (/ &
+ & 0.49718E-06_JPRB,0.13982E-03_JPRB,0.22523E-03_JPRB,0.28275E-03_JPRB,0.30558E-03_JPRB /)  
+KB(:, 2,26, 3) = (/ &
+ & 0.53365E-06_JPRB,0.15431E-03_JPRB,0.25368E-03_JPRB,0.32044E-03_JPRB,0.33895E-03_JPRB /)  
+KB(:, 3,26, 3) = (/ &
+ & 0.57705E-06_JPRB,0.16884E-03_JPRB,0.28082E-03_JPRB,0.36019E-03_JPRB,0.37173E-03_JPRB /)  
+KB(:, 4,26, 3) = (/ &
+ & 0.62061E-06_JPRB,0.18393E-03_JPRB,0.30865E-03_JPRB,0.39866E-03_JPRB,0.40243E-03_JPRB /)  
+KB(:, 5,26, 3) = (/ &
+ & 0.66427E-06_JPRB,0.19968E-03_JPRB,0.33757E-03_JPRB,0.43663E-03_JPRB,0.43309E-03_JPRB /)  
+KB(:, 1,27, 3) = (/ &
+ & 0.39961E-06_JPRB,0.11889E-03_JPRB,0.19361E-03_JPRB,0.24270E-03_JPRB,0.25693E-03_JPRB /)  
+KB(:, 2,27, 3) = (/ &
+ & 0.43136E-06_JPRB,0.13100E-03_JPRB,0.21632E-03_JPRB,0.27591E-03_JPRB,0.28463E-03_JPRB /)  
+KB(:, 3,27, 3) = (/ &
+ & 0.46490E-06_JPRB,0.14333E-03_JPRB,0.23966E-03_JPRB,0.30849E-03_JPRB,0.31106E-03_JPRB /)  
+KB(:, 4,27, 3) = (/ &
+ & 0.50009E-06_JPRB,0.15630E-03_JPRB,0.26346E-03_JPRB,0.34083E-03_JPRB,0.33713E-03_JPRB /)  
+KB(:, 5,27, 3) = (/ &
+ & 0.53808E-06_JPRB,0.16999E-03_JPRB,0.28768E-03_JPRB,0.37323E-03_JPRB,0.36279E-03_JPRB /)  
+KB(:, 1,28, 3) = (/ &
+ & 0.31986E-06_JPRB,0.10106E-03_JPRB,0.16585E-03_JPRB,0.20891E-03_JPRB,0.21558E-03_JPRB /)  
+KB(:, 2,28, 3) = (/ &
+ & 0.34540E-06_JPRB,0.11119E-03_JPRB,0.18500E-03_JPRB,0.23760E-03_JPRB,0.23854E-03_JPRB /)  
+KB(:, 3,28, 3) = (/ &
+ & 0.37226E-06_JPRB,0.12183E-03_JPRB,0.20456E-03_JPRB,0.26419E-03_JPRB,0.26053E-03_JPRB /)  
+KB(:, 4,28, 3) = (/ &
+ & 0.40317E-06_JPRB,0.13290E-03_JPRB,0.22487E-03_JPRB,0.29156E-03_JPRB,0.28262E-03_JPRB /)  
+KB(:, 5,28, 3) = (/ &
+ & 0.43271E-06_JPRB,0.14482E-03_JPRB,0.24541E-03_JPRB,0.31934E-03_JPRB,0.30419E-03_JPRB /)  
+KB(:, 1,29, 3) = (/ &
+ & 0.25677E-06_JPRB,0.86060E-04_JPRB,0.14206E-03_JPRB,0.18023E-03_JPRB,0.18141E-03_JPRB /)  
+KB(:, 2,29, 3) = (/ &
+ & 0.27736E-06_JPRB,0.94677E-04_JPRB,0.15841E-03_JPRB,0.20378E-03_JPRB,0.20088E-03_JPRB /)  
+KB(:, 3,29, 3) = (/ &
+ & 0.30104E-06_JPRB,0.10372E-03_JPRB,0.17515E-03_JPRB,0.22663E-03_JPRB,0.21921E-03_JPRB /)  
+KB(:, 4,29, 3) = (/ &
+ & 0.32584E-06_JPRB,0.11340E-03_JPRB,0.19232E-03_JPRB,0.24953E-03_JPRB,0.23789E-03_JPRB /)  
+KB(:, 5,29, 3) = (/ &
+ & 0.34891E-06_JPRB,0.12368E-03_JPRB,0.20976E-03_JPRB,0.27364E-03_JPRB,0.25570E-03_JPRB /)  
+KB(:, 1,30, 3) = (/ &
+ & 0.20556E-06_JPRB,0.73274E-04_JPRB,0.12170E-03_JPRB,0.15588E-03_JPRB,0.15312E-03_JPRB /)  
+KB(:, 2,30, 3) = (/ &
+ & 0.22376E-06_JPRB,0.80651E-04_JPRB,0.13568E-03_JPRB,0.17524E-03_JPRB,0.16948E-03_JPRB /)  
+KB(:, 3,30, 3) = (/ &
+ & 0.24313E-06_JPRB,0.88481E-04_JPRB,0.14992E-03_JPRB,0.19447E-03_JPRB,0.18477E-03_JPRB /)  
+KB(:, 4,30, 3) = (/ &
+ & 0.26233E-06_JPRB,0.96824E-04_JPRB,0.16458E-03_JPRB,0.21409E-03_JPRB,0.20027E-03_JPRB /)  
+KB(:, 5,30, 3) = (/ &
+ & 0.28249E-06_JPRB,0.10580E-03_JPRB,0.17987E-03_JPRB,0.23435E-03_JPRB,0.21532E-03_JPRB /)  
+KB(:, 1,31, 3) = (/ &
+ & 0.16553E-06_JPRB,0.62536E-04_JPRB,0.10457E-03_JPRB,0.13443E-03_JPRB,0.12968E-03_JPRB /)  
+KB(:, 2,31, 3) = (/ &
+ & 0.18078E-06_JPRB,0.68863E-04_JPRB,0.11643E-03_JPRB,0.15060E-03_JPRB,0.14304E-03_JPRB /)  
+KB(:, 3,31, 3) = (/ &
+ & 0.19619E-06_JPRB,0.75670E-04_JPRB,0.12864E-03_JPRB,0.16681E-03_JPRB,0.15615E-03_JPRB /)  
+KB(:, 4,31, 3) = (/ &
+ & 0.21158E-06_JPRB,0.82899E-04_JPRB,0.14114E-03_JPRB,0.18385E-03_JPRB,0.16911E-03_JPRB /)  
+KB(:, 5,31, 3) = (/ &
+ & 0.22915E-06_JPRB,0.90629E-04_JPRB,0.15456E-03_JPRB,0.20099E-03_JPRB,0.18146E-03_JPRB /)  
+KB(:, 1,32, 3) = (/ &
+ & 0.13380E-06_JPRB,0.53407E-04_JPRB,0.89930E-04_JPRB,0.11591E-03_JPRB,0.11005E-03_JPRB /)  
+KB(:, 2,32, 3) = (/ &
+ & 0.14604E-06_JPRB,0.58887E-04_JPRB,0.10001E-03_JPRB,0.12963E-03_JPRB,0.12107E-03_JPRB /)  
+KB(:, 3,32, 3) = (/ &
+ & 0.15848E-06_JPRB,0.64790E-04_JPRB,0.11040E-03_JPRB,0.14349E-03_JPRB,0.13230E-03_JPRB /)  
+KB(:, 4,32, 3) = (/ &
+ & 0.17190E-06_JPRB,0.71169E-04_JPRB,0.12125E-03_JPRB,0.15792E-03_JPRB,0.14297E-03_JPRB /)  
+KB(:, 5,32, 3) = (/ &
+ & 0.18587E-06_JPRB,0.77792E-04_JPRB,0.13292E-03_JPRB,0.17265E-03_JPRB,0.15308E-03_JPRB /)  
+KB(:, 1,33, 3) = (/ &
+ & 0.10830E-06_JPRB,0.45686E-04_JPRB,0.77339E-04_JPRB,0.99867E-04_JPRB,0.93562E-04_JPRB /)  
+KB(:, 2,33, 3) = (/ &
+ & 0.11765E-06_JPRB,0.50526E-04_JPRB,0.85959E-04_JPRB,0.11153E-03_JPRB,0.10269E-03_JPRB /)  
+KB(:, 3,33, 3) = (/ &
+ & 0.12824E-06_JPRB,0.55627E-04_JPRB,0.94900E-04_JPRB,0.12354E-03_JPRB,0.11205E-03_JPRB /)  
+KB(:, 4,33, 3) = (/ &
+ & 0.13958E-06_JPRB,0.61158E-04_JPRB,0.10440E-03_JPRB,0.13573E-03_JPRB,0.12099E-03_JPRB /)  
+KB(:, 5,33, 3) = (/ &
+ & 0.15078E-06_JPRB,0.66909E-04_JPRB,0.11431E-03_JPRB,0.14861E-03_JPRB,0.12918E-03_JPRB /)  
+KB(:, 1,34, 3) = (/ &
+ & 0.87537E-07_JPRB,0.39073E-04_JPRB,0.66330E-04_JPRB,0.85860E-04_JPRB,0.79296E-04_JPRB /)  
+KB(:, 2,34, 3) = (/ &
+ & 0.95270E-07_JPRB,0.43282E-04_JPRB,0.73743E-04_JPRB,0.95733E-04_JPRB,0.87082E-04_JPRB /)  
+KB(:, 3,34, 3) = (/ &
+ & 0.10423E-06_JPRB,0.47701E-04_JPRB,0.81447E-04_JPRB,0.10609E-03_JPRB,0.94857E-04_JPRB /)  
+KB(:, 4,34, 3) = (/ &
+ & 0.11348E-06_JPRB,0.52484E-04_JPRB,0.89624E-04_JPRB,0.11638E-03_JPRB,0.10211E-03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART15',1,ZHOOK_HANDLE)
+END SUBROUTINE PART15
+
+
+SUBROUTINE PART16
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART16',0,ZHOOK_HANDLE)
+
+
+KB(:, 5,34, 3) = (/ &
+ & 0.12289E-06_JPRB,0.57431E-04_JPRB,0.98122E-04_JPRB,0.12760E-03_JPRB,0.10866E-03_JPRB /)  
+KB(:, 1,35, 3) = (/ &
+ & 0.69891E-07_JPRB,0.33129E-04_JPRB,0.56323E-04_JPRB,0.73036E-04_JPRB,0.66568E-04_JPRB /)  
+KB(:, 2,35, 3) = (/ &
+ & 0.76465E-07_JPRB,0.36724E-04_JPRB,0.62627E-04_JPRB,0.81520E-04_JPRB,0.73176E-04_JPRB /)  
+KB(:, 3,35, 3) = (/ &
+ & 0.83833E-07_JPRB,0.40619E-04_JPRB,0.69293E-04_JPRB,0.90161E-04_JPRB,0.79548E-04_JPRB /)  
+KB(:, 4,35, 3) = (/ &
+ & 0.91436E-07_JPRB,0.44671E-04_JPRB,0.76362E-04_JPRB,0.99075E-04_JPRB,0.85497E-04_JPRB /)  
+KB(:, 5,35, 3) = (/ &
+ & 0.99263E-07_JPRB,0.48886E-04_JPRB,0.83550E-04_JPRB,0.10849E-03_JPRB,0.90720E-04_JPRB /)  
+KB(:, 1,36, 3) = (/ &
+ & 0.55080E-07_JPRB,0.27796E-04_JPRB,0.47261E-04_JPRB,0.61299E-04_JPRB,0.55237E-04_JPRB /)  
+KB(:, 2,36, 3) = (/ &
+ & 0.60562E-07_JPRB,0.30850E-04_JPRB,0.52635E-04_JPRB,0.68515E-04_JPRB,0.60794E-04_JPRB /)  
+KB(:, 3,36, 3) = (/ &
+ & 0.66440E-07_JPRB,0.34200E-04_JPRB,0.58298E-04_JPRB,0.75847E-04_JPRB,0.66097E-04_JPRB /)  
+KB(:, 4,36, 3) = (/ &
+ & 0.72913E-07_JPRB,0.37650E-04_JPRB,0.64310E-04_JPRB,0.83530E-04_JPRB,0.71032E-04_JPRB /)  
+KB(:, 5,36, 3) = (/ &
+ & 0.79545E-07_JPRB,0.41216E-04_JPRB,0.70397E-04_JPRB,0.91304E-04_JPRB,0.75193E-04_JPRB /)  
+KB(:, 1,37, 3) = (/ &
+ & 0.43644E-07_JPRB,0.22997E-04_JPRB,0.39088E-04_JPRB,0.50714E-04_JPRB,0.45374E-04_JPRB /)  
+KB(:, 2,37, 3) = (/ &
+ & 0.48182E-07_JPRB,0.25585E-04_JPRB,0.43661E-04_JPRB,0.56813E-04_JPRB,0.50057E-04_JPRB /)  
+KB(:, 3,37, 3) = (/ &
+ & 0.53067E-07_JPRB,0.28429E-04_JPRB,0.48465E-04_JPRB,0.63020E-04_JPRB,0.54490E-04_JPRB /)  
+KB(:, 4,37, 3) = (/ &
+ & 0.58349E-07_JPRB,0.31365E-04_JPRB,0.53603E-04_JPRB,0.69516E-04_JPRB,0.58585E-04_JPRB /)  
+KB(:, 5,37, 3) = (/ &
+ & 0.63727E-07_JPRB,0.34398E-04_JPRB,0.58710E-04_JPRB,0.76032E-04_JPRB,0.62046E-04_JPRB /)  
+KB(:, 1,38, 3) = (/ &
+ & 0.34661E-07_JPRB,0.19003E-04_JPRB,0.32295E-04_JPRB,0.41898E-04_JPRB,0.37207E-04_JPRB /)  
+KB(:, 2,38, 3) = (/ &
+ & 0.38414E-07_JPRB,0.21200E-04_JPRB,0.36170E-04_JPRB,0.47045E-04_JPRB,0.41150E-04_JPRB /)  
+KB(:, 3,38, 3) = (/ &
+ & 0.42378E-07_JPRB,0.23605E-04_JPRB,0.40247E-04_JPRB,0.52306E-04_JPRB,0.44872E-04_JPRB /)  
+KB(:, 4,38, 3) = (/ &
+ & 0.46598E-07_JPRB,0.26110E-04_JPRB,0.44620E-04_JPRB,0.57800E-04_JPRB,0.48293E-04_JPRB /)  
+KB(:, 5,38, 3) = (/ &
+ & 0.50995E-07_JPRB,0.28683E-04_JPRB,0.48935E-04_JPRB,0.63250E-04_JPRB,0.51155E-04_JPRB /)  
+KB(:, 1,39, 3) = (/ &
+ & 0.27545E-07_JPRB,0.15700E-04_JPRB,0.26661E-04_JPRB,0.34603E-04_JPRB,0.30487E-04_JPRB /)  
+KB(:, 2,39, 3) = (/ &
+ & 0.30553E-07_JPRB,0.17568E-04_JPRB,0.29948E-04_JPRB,0.38935E-04_JPRB,0.33813E-04_JPRB /)  
+KB(:, 3,39, 3) = (/ &
+ & 0.33772E-07_JPRB,0.19601E-04_JPRB,0.33411E-04_JPRB,0.43403E-04_JPRB,0.36922E-04_JPRB /)  
+KB(:, 4,39, 3) = (/ &
+ & 0.37164E-07_JPRB,0.21726E-04_JPRB,0.37113E-04_JPRB,0.48030E-04_JPRB,0.39771E-04_JPRB /)  
+KB(:, 5,39, 3) = (/ &
+ & 0.40795E-07_JPRB,0.23901E-04_JPRB,0.40765E-04_JPRB,0.52607E-04_JPRB,0.42152E-04_JPRB /)  
+KB(:, 1,40, 3) = (/ &
+ & 0.21852E-07_JPRB,0.12819E-04_JPRB,0.21757E-04_JPRB,0.28221E-04_JPRB,0.24745E-04_JPRB /)  
+KB(:, 2,40, 3) = (/ &
+ & 0.24207E-07_JPRB,0.14395E-04_JPRB,0.24527E-04_JPRB,0.31867E-04_JPRB,0.27502E-04_JPRB /)  
+KB(:, 3,40, 3) = (/ &
+ & 0.26806E-07_JPRB,0.16092E-04_JPRB,0.27462E-04_JPRB,0.35646E-04_JPRB,0.30145E-04_JPRB /)  
+KB(:, 4,40, 3) = (/ &
+ & 0.29612E-07_JPRB,0.17894E-04_JPRB,0.30572E-04_JPRB,0.39527E-04_JPRB,0.32543E-04_JPRB /)  
+KB(:, 5,40, 3) = (/ &
+ & 0.32577E-07_JPRB,0.19746E-04_JPRB,0.33672E-04_JPRB,0.43399E-04_JPRB,0.34556E-04_JPRB /)  
+KB(:, 1,41, 3) = (/ &
+ & 0.17336E-07_JPRB,0.10441E-04_JPRB,0.17695E-04_JPRB,0.22954E-04_JPRB,0.20042E-04_JPRB /)  
+KB(:, 2,41, 3) = (/ &
+ & 0.19187E-07_JPRB,0.11771E-04_JPRB,0.20025E-04_JPRB,0.26029E-04_JPRB,0.22346E-04_JPRB /)  
+KB(:, 3,41, 3) = (/ &
+ & 0.21311E-07_JPRB,0.13190E-04_JPRB,0.22516E-04_JPRB,0.29201E-04_JPRB,0.24577E-04_JPRB /)  
+KB(:, 4,41, 3) = (/ &
+ & 0.23597E-07_JPRB,0.14712E-04_JPRB,0.25122E-04_JPRB,0.32466E-04_JPRB,0.26584E-04_JPRB /)  
+KB(:, 5,41, 3) = (/ &
+ & 0.25958E-07_JPRB,0.16280E-04_JPRB,0.27744E-04_JPRB,0.35762E-04_JPRB,0.28295E-04_JPRB /)  
+KB(:, 1,42, 3) = (/ &
+ & 0.13752E-07_JPRB,0.84970E-05_JPRB,0.14379E-04_JPRB,0.18640E-04_JPRB,0.16205E-04_JPRB /)  
+KB(:, 2,42, 3) = (/ &
+ & 0.15240E-07_JPRB,0.96082E-05_JPRB,0.16325E-04_JPRB,0.21225E-04_JPRB,0.18124E-04_JPRB /)  
+KB(:, 3,42, 3) = (/ &
+ & 0.16924E-07_JPRB,0.10802E-04_JPRB,0.18430E-04_JPRB,0.23896E-04_JPRB,0.20024E-04_JPRB /)  
+KB(:, 4,42, 3) = (/ &
+ & 0.18767E-07_JPRB,0.12087E-04_JPRB,0.20609E-04_JPRB,0.26651E-04_JPRB,0.21698E-04_JPRB /)  
+KB(:, 5,42, 3) = (/ &
+ & 0.20666E-07_JPRB,0.13409E-04_JPRB,0.22837E-04_JPRB,0.29427E-04_JPRB,0.23153E-04_JPRB /)  
+KB(:, 1,43, 3) = (/ &
+ & 0.10827E-07_JPRB,0.68624E-05_JPRB,0.11586E-04_JPRB,0.14999E-04_JPRB,0.12975E-04_JPRB /)  
+KB(:, 2,43, 3) = (/ &
+ & 0.12030E-07_JPRB,0.77847E-05_JPRB,0.13205E-04_JPRB,0.17164E-04_JPRB,0.14605E-04_JPRB /)  
+KB(:, 3,43, 3) = (/ &
+ & 0.13352E-07_JPRB,0.87779E-05_JPRB,0.14974E-04_JPRB,0.19410E-04_JPRB,0.16231E-04_JPRB /)  
+KB(:, 4,43, 3) = (/ &
+ & 0.14829E-07_JPRB,0.98620E-05_JPRB,0.16795E-04_JPRB,0.21751E-04_JPRB,0.17634E-04_JPRB /)  
+KB(:, 5,43, 3) = (/ &
+ & 0.16396E-07_JPRB,0.10975E-04_JPRB,0.18682E-04_JPRB,0.24066E-04_JPRB,0.18879E-04_JPRB /)  
+KB(:, 1,44, 3) = (/ &
+ & 0.85731E-08_JPRB,0.55132E-05_JPRB,0.92862E-05_JPRB,0.12000E-04_JPRB,0.10347E-04_JPRB /)  
+KB(:, 2,44, 3) = (/ &
+ & 0.95033E-08_JPRB,0.62816E-05_JPRB,0.10629E-04_JPRB,0.13817E-04_JPRB,0.11712E-04_JPRB /)  
+KB(:, 3,44, 3) = (/ &
+ & 0.10537E-07_JPRB,0.70964E-05_JPRB,0.12108E-04_JPRB,0.15700E-04_JPRB,0.13095E-04_JPRB /)  
+KB(:, 4,44, 3) = (/ &
+ & 0.11722E-07_JPRB,0.80120E-05_JPRB,0.13621E-04_JPRB,0.17679E-04_JPRB,0.14296E-04_JPRB /)  
+KB(:, 5,44, 3) = (/ &
+ & 0.12991E-07_JPRB,0.89457E-05_JPRB,0.15220E-04_JPRB,0.19614E-04_JPRB,0.15350E-04_JPRB /)  
+KB(:, 1,45, 3) = (/ &
+ & 0.67515E-08_JPRB,0.44212E-05_JPRB,0.74244E-05_JPRB,0.95776E-05_JPRB,0.82429E-05_JPRB /)  
+KB(:, 2,45, 3) = (/ &
+ & 0.74999E-08_JPRB,0.50603E-05_JPRB,0.85360E-05_JPRB,0.11095E-04_JPRB,0.93791E-05_JPRB /)  
+KB(:, 3,45, 3) = (/ &
+ & 0.83182E-08_JPRB,0.57411E-05_JPRB,0.97686E-05_JPRB,0.12667E-04_JPRB,0.10528E-04_JPRB /)  
+KB(:, 4,45, 3) = (/ &
+ & 0.92526E-08_JPRB,0.64942E-05_JPRB,0.11028E-04_JPRB,0.14328E-04_JPRB,0.11566E-04_JPRB /)  
+KB(:, 5,45, 3) = (/ &
+ & 0.10269E-07_JPRB,0.72769E-05_JPRB,0.12375E-04_JPRB,0.15964E-04_JPRB,0.12472E-04_JPRB /)  
+KB(:, 1,46, 3) = (/ &
+ & 0.53031E-08_JPRB,0.35301E-05_JPRB,0.59050E-05_JPRB,0.75965E-05_JPRB,0.65452E-05_JPRB /)  
+KB(:, 2,46, 3) = (/ &
+ & 0.58907E-08_JPRB,0.40561E-05_JPRB,0.68233E-05_JPRB,0.88621E-05_JPRB,0.74771E-05_JPRB /)  
+KB(:, 3,46, 3) = (/ &
+ & 0.65422E-08_JPRB,0.46270E-05_JPRB,0.78393E-05_JPRB,0.10169E-04_JPRB,0.84370E-05_JPRB /)  
+KB(:, 4,46, 3) = (/ &
+ & 0.72669E-08_JPRB,0.52433E-05_JPRB,0.89061E-05_JPRB,0.11563E-04_JPRB,0.93268E-05_JPRB /)  
+KB(:, 5,46, 3) = (/ &
+ & 0.80880E-08_JPRB,0.58967E-05_JPRB,0.10016E-04_JPRB,0.12930E-04_JPRB,0.10106E-04_JPRB /)  
+KB(:, 1,47, 3) = (/ &
+ & 0.41459E-08_JPRB,0.27965E-05_JPRB,0.46529E-05_JPRB,0.59648E-05_JPRB,0.51552E-05_JPRB /)  
+KB(:, 2,47, 3) = (/ &
+ & 0.46324E-08_JPRB,0.32253E-05_JPRB,0.54100E-05_JPRB,0.70094E-05_JPRB,0.59110E-05_JPRB /)  
+KB(:, 3,47, 3) = (/ &
+ & 0.51433E-08_JPRB,0.37014E-05_JPRB,0.62395E-05_JPRB,0.80976E-05_JPRB,0.67100E-05_JPRB /)  
+KB(:, 4,47, 3) = (/ &
+ & 0.57045E-08_JPRB,0.42091E-05_JPRB,0.71381E-05_JPRB,0.92537E-05_JPRB,0.74896E-05_JPRB /)  
+KB(:, 5,47, 3) = (/ &
+ & 0.63526E-08_JPRB,0.47541E-05_JPRB,0.80573E-05_JPRB,0.10428E-04_JPRB,0.81540E-05_JPRB /)  
+KB(:, 1,48, 3) = (/ &
+ & 0.32549E-08_JPRB,0.22089E-05_JPRB,0.36571E-05_JPRB,0.46663E-05_JPRB,0.40387E-05_JPRB /)  
+KB(:, 2,48, 3) = (/ &
+ & 0.36192E-08_JPRB,0.25581E-05_JPRB,0.42752E-05_JPRB,0.55265E-05_JPRB,0.46582E-05_JPRB /)  
+KB(:, 3,48, 3) = (/ &
+ & 0.40215E-08_JPRB,0.29515E-05_JPRB,0.49553E-05_JPRB,0.64327E-05_JPRB,0.53236E-05_JPRB /)  
+KB(:, 4,48, 3) = (/ &
+ & 0.44736E-08_JPRB,0.33690E-05_JPRB,0.57015E-05_JPRB,0.73859E-05_JPRB,0.59960E-05_JPRB /)  
+KB(:, 5,48, 3) = (/ &
+ & 0.49760E-08_JPRB,0.38276E-05_JPRB,0.64596E-05_JPRB,0.83844E-05_JPRB,0.65647E-05_JPRB /)  
+KB(:, 1,49, 3) = (/ &
+ & 0.25432E-08_JPRB,0.17390E-05_JPRB,0.28607E-05_JPRB,0.36438E-05_JPRB,0.31425E-05_JPRB /)  
+KB(:, 2,49, 3) = (/ &
+ & 0.28364E-08_JPRB,0.20219E-05_JPRB,0.33698E-05_JPRB,0.43412E-05_JPRB,0.36654E-05_JPRB /)  
+KB(:, 3,49, 3) = (/ &
+ & 0.31601E-08_JPRB,0.23472E-05_JPRB,0.39232E-05_JPRB,0.50964E-05_JPRB,0.42142E-05_JPRB /)  
+KB(:, 4,49, 3) = (/ &
+ & 0.35101E-08_JPRB,0.26948E-05_JPRB,0.45429E-05_JPRB,0.58797E-05_JPRB,0.47715E-05_JPRB /)  
+KB(:, 5,49, 3) = (/ &
+ & 0.38989E-08_JPRB,0.30718E-05_JPRB,0.51731E-05_JPRB,0.67190E-05_JPRB,0.52720E-05_JPRB /)  
+KB(:, 1,50, 3) = (/ &
+ & 0.20093E-08_JPRB,0.13704E-05_JPRB,0.22373E-05_JPRB,0.28375E-05_JPRB,0.24550E-05_JPRB /)  
+KB(:, 2,50, 3) = (/ &
+ & 0.22270E-08_JPRB,0.16020E-05_JPRB,0.26626E-05_JPRB,0.34144E-05_JPRB,0.28963E-05_JPRB /)  
+KB(:, 3,50, 3) = (/ &
+ & 0.24797E-08_JPRB,0.18686E-05_JPRB,0.31131E-05_JPRB,0.40348E-05_JPRB,0.33398E-05_JPRB /)  
+KB(:, 4,50, 3) = (/ &
+ & 0.27614E-08_JPRB,0.21593E-05_JPRB,0.36199E-05_JPRB,0.46856E-05_JPRB,0.38019E-05_JPRB /)  
+KB(:, 5,50, 3) = (/ &
+ & 0.30674E-08_JPRB,0.24699E-05_JPRB,0.41517E-05_JPRB,0.53844E-05_JPRB,0.42322E-05_JPRB /)  
+KB(:, 1,51, 3) = (/ &
+ & 0.15907E-08_JPRB,0.10803E-05_JPRB,0.17518E-05_JPRB,0.22064E-05_JPRB,0.19254E-05_JPRB /)  
+KB(:, 2,51, 3) = (/ &
+ & 0.17509E-08_JPRB,0.12691E-05_JPRB,0.21000E-05_JPRB,0.26794E-05_JPRB,0.22832E-05_JPRB /)  
+KB(:, 3,51, 3) = (/ &
+ & 0.19509E-08_JPRB,0.14861E-05_JPRB,0.24726E-05_JPRB,0.31957E-05_JPRB,0.26418E-05_JPRB /)  
+KB(:, 4,51, 3) = (/ &
+ & 0.21703E-08_JPRB,0.17284E-05_JPRB,0.28838E-05_JPRB,0.37325E-05_JPRB,0.30257E-05_JPRB /)  
+KB(:, 5,51, 3) = (/ &
+ & 0.24124E-08_JPRB,0.19844E-05_JPRB,0.33305E-05_JPRB,0.43128E-05_JPRB,0.34015E-05_JPRB /)  
+KB(:, 1,52, 3) = (/ &
+ & 0.12564E-08_JPRB,0.84669E-06_JPRB,0.13717E-05_JPRB,0.17147E-05_JPRB,0.14947E-05_JPRB /)  
+KB(:, 2,52, 3) = (/ &
+ & 0.13794E-08_JPRB,0.10024E-05_JPRB,0.16523E-05_JPRB,0.20993E-05_JPRB,0.17870E-05_JPRB /)  
+KB(:, 3,52, 3) = (/ &
+ & 0.15320E-08_JPRB,0.11790E-05_JPRB,0.19577E-05_JPRB,0.25220E-05_JPRB,0.20845E-05_JPRB /)  
+KB(:, 4,52, 3) = (/ &
+ & 0.17130E-08_JPRB,0.13791E-05_JPRB,0.22952E-05_JPRB,0.29677E-05_JPRB,0.24040E-05_JPRB /)  
+KB(:, 5,52, 3) = (/ &
+ & 0.19041E-08_JPRB,0.15914E-05_JPRB,0.26635E-05_JPRB,0.34439E-05_JPRB,0.27247E-05_JPRB /)  
+KB(:, 1,53, 3) = (/ &
+ & 0.99523E-09_JPRB,0.66219E-06_JPRB,0.10632E-05_JPRB,0.13341E-05_JPRB,0.11550E-05_JPRB /)  
+KB(:, 2,53, 3) = (/ &
+ & 0.10903E-08_JPRB,0.79022E-06_JPRB,0.12914E-05_JPRB,0.16401E-05_JPRB,0.13929E-05_JPRB /)  
+KB(:, 3,53, 3) = (/ &
+ & 0.12082E-08_JPRB,0.93266E-06_JPRB,0.15445E-05_JPRB,0.19841E-05_JPRB,0.16452E-05_JPRB /)  
+KB(:, 4,53, 3) = (/ &
+ & 0.13437E-08_JPRB,0.10969E-05_JPRB,0.18212E-05_JPRB,0.23517E-05_JPRB,0.19029E-05_JPRB /)  
+KB(:, 5,53, 3) = (/ &
+ & 0.14972E-08_JPRB,0.12734E-05_JPRB,0.21276E-05_JPRB,0.27431E-05_JPRB,0.21722E-05_JPRB /)  
+KB(:, 1,54, 3) = (/ &
+ & 0.78782E-09_JPRB,0.51993E-06_JPRB,0.82752E-06_JPRB,0.10421E-05_JPRB,0.88632E-06_JPRB /)  
+KB(:, 2,54, 3) = (/ &
+ & 0.86642E-09_JPRB,0.62440E-06_JPRB,0.10138E-05_JPRB,0.12820E-05_JPRB,0.10958E-05_JPRB /)  
+KB(:, 3,54, 3) = (/ &
+ & 0.95141E-09_JPRB,0.74051E-06_JPRB,0.12221E-05_JPRB,0.15626E-05_JPRB,0.13014E-05_JPRB /)  
+KB(:, 4,54, 3) = (/ &
+ & 0.10622E-08_JPRB,0.87438E-06_JPRB,0.14481E-05_JPRB,0.18675E-05_JPRB,0.15138E-05_JPRB /)  
+KB(:, 5,54, 3) = (/ &
+ & 0.11829E-08_JPRB,0.10217E-05_JPRB,0.17025E-05_JPRB,0.21900E-05_JPRB,0.17349E-05_JPRB /)  
+KB(:, 1,55, 3) = (/ &
+ & 0.62734E-09_JPRB,0.40844E-06_JPRB,0.64675E-06_JPRB,0.81168E-06_JPRB,0.68015E-06_JPRB /)  
+KB(:, 2,55, 3) = (/ &
+ & 0.68670E-09_JPRB,0.49437E-06_JPRB,0.79822E-06_JPRB,0.10031E-05_JPRB,0.85955E-06_JPRB /)  
+KB(:, 3,55, 3) = (/ &
+ & 0.75551E-09_JPRB,0.58813E-06_JPRB,0.96640E-06_JPRB,0.12305E-05_JPRB,0.10290E-05_JPRB /)  
+KB(:, 4,55, 3) = (/ &
+ & 0.83896E-09_JPRB,0.69762E-06_JPRB,0.11529E-05_JPRB,0.14845E-05_JPRB,0.12025E-05_JPRB /)  
+KB(:, 5,55, 3) = (/ &
+ & 0.93727E-09_JPRB,0.81992E-06_JPRB,0.13618E-05_JPRB,0.17489E-05_JPRB,0.13856E-05_JPRB /)  
+KB(:, 1,56, 3) = (/ &
+ & 0.50214E-09_JPRB,0.32028E-06_JPRB,0.50524E-06_JPRB,0.63147E-06_JPRB,0.51903E-06_JPRB /)  
+KB(:, 2,56, 3) = (/ &
+ & 0.54775E-09_JPRB,0.38841E-06_JPRB,0.62589E-06_JPRB,0.78445E-06_JPRB,0.67099E-06_JPRB /)  
+KB(:, 3,56, 3) = (/ &
+ & 0.59971E-09_JPRB,0.46602E-06_JPRB,0.76356E-06_JPRB,0.96978E-06_JPRB,0.80912E-06_JPRB /)  
+KB(:, 4,56, 3) = (/ &
+ & 0.66466E-09_JPRB,0.55509E-06_JPRB,0.91533E-06_JPRB,0.11766E-05_JPRB,0.95284E-06_JPRB /)  
+KB(:, 5,56, 3) = (/ &
+ & 0.73931E-09_JPRB,0.65625E-06_JPRB,0.10864E-05_JPRB,0.13946E-05_JPRB,0.11055E-05_JPRB /)  
+KB(:, 1,57, 3) = (/ &
+ & 0.40171E-09_JPRB,0.25009E-06_JPRB,0.39211E-06_JPRB,0.49250E-06_JPRB,0.39332E-06_JPRB /)  
+KB(:, 2,57, 3) = (/ &
+ & 0.43379E-09_JPRB,0.30473E-06_JPRB,0.48932E-06_JPRB,0.61342E-06_JPRB,0.52076E-06_JPRB /)  
+KB(:, 3,57, 3) = (/ &
+ & 0.47729E-09_JPRB,0.36874E-06_JPRB,0.59978E-06_JPRB,0.76246E-06_JPRB,0.63556E-06_JPRB /)  
+KB(:, 4,57, 3) = (/ &
+ & 0.52454E-09_JPRB,0.44075E-06_JPRB,0.72488E-06_JPRB,0.93079E-06_JPRB,0.75448E-06_JPRB /)  
+KB(:, 5,57, 3) = (/ &
+ & 0.58546E-09_JPRB,0.52389E-06_JPRB,0.86565E-06_JPRB,0.11107E-05_JPRB,0.87858E-06_JPRB /)  
+KB(:, 1,58, 3) = (/ &
+ & 0.32222E-09_JPRB,0.19536E-06_JPRB,0.30484E-06_JPRB,0.38123E-06_JPRB,0.29798E-06_JPRB /)  
+KB(:, 2,58, 3) = (/ &
+ & 0.34550E-09_JPRB,0.24003E-06_JPRB,0.38206E-06_JPRB,0.48033E-06_JPRB,0.40193E-06_JPRB /)  
+KB(:, 3,58, 3) = (/ &
+ & 0.37930E-09_JPRB,0.29179E-06_JPRB,0.47226E-06_JPRB,0.59938E-06_JPRB,0.50056E-06_JPRB /)  
+KB(:, 4,58, 3) = (/ &
+ & 0.41675E-09_JPRB,0.35035E-06_JPRB,0.57500E-06_JPRB,0.73642E-06_JPRB,0.59836E-06_JPRB /)  
+KB(:, 5,58, 3) = (/ &
+ & 0.46320E-09_JPRB,0.41854E-06_JPRB,0.69041E-06_JPRB,0.88548E-06_JPRB,0.70003E-06_JPRB /)  
+KB(:, 1,59, 3) = (/ &
+ & 0.26166E-09_JPRB,0.15868E-06_JPRB,0.24697E-06_JPRB,0.30892E-06_JPRB,0.23964E-06_JPRB /)  
+KB(:, 2,59, 3) = (/ &
+ & 0.28095E-09_JPRB,0.19552E-06_JPRB,0.31068E-06_JPRB,0.39037E-06_JPRB,0.32469E-06_JPRB /)  
+KB(:, 3,59, 3) = (/ &
+ & 0.30730E-09_JPRB,0.23856E-06_JPRB,0.38554E-06_JPRB,0.48902E-06_JPRB,0.40738E-06_JPRB /)  
+KB(:, 4,59, 3) = (/ &
+ & 0.33781E-09_JPRB,0.28749E-06_JPRB,0.47157E-06_JPRB,0.60286E-06_JPRB,0.48803E-06_JPRB /)  
+KB(:, 5,59, 3) = (/ &
+ & 0.37526E-09_JPRB,0.34439E-06_JPRB,0.56789E-06_JPRB,0.72742E-06_JPRB,0.57238E-06_JPRB /)  
+KB(:, 1,13, 4) = (/ &
+ & 0.49038E-04_JPRB,0.50781E-02_JPRB,0.78254E-02_JPRB,0.96484E-02_JPRB,0.10614E-01_JPRB /)  
+KB(:, 2,13, 4) = (/ &
+ & 0.54225E-04_JPRB,0.54905E-02_JPRB,0.85710E-02_JPRB,0.10460E-01_JPRB,0.11206E-01_JPRB /)  
+KB(:, 3,13, 4) = (/ &
+ & 0.61134E-04_JPRB,0.58773E-02_JPRB,0.93183E-02_JPRB,0.11347E-01_JPRB,0.11729E-01_JPRB /)  
+KB(:, 4,13, 4) = (/ &
+ & 0.68793E-04_JPRB,0.62794E-02_JPRB,0.99768E-02_JPRB,0.12248E-01_JPRB,0.12250E-01_JPRB /)  
+KB(:, 5,13, 4) = (/ &
+ & 0.77429E-04_JPRB,0.66893E-02_JPRB,0.10624E-01_JPRB,0.13064E-01_JPRB,0.12730E-01_JPRB /)  
+KB(:, 1,14, 4) = (/ &
+ & 0.40706E-04_JPRB,0.43045E-02_JPRB,0.66240E-02_JPRB,0.81227E-02_JPRB,0.87105E-02_JPRB /)  
+KB(:, 2,14, 4) = (/ &
+ & 0.45789E-04_JPRB,0.46404E-02_JPRB,0.72547E-02_JPRB,0.88508E-02_JPRB,0.92183E-02_JPRB /)  
+KB(:, 3,14, 4) = (/ &
+ & 0.51359E-04_JPRB,0.49670E-02_JPRB,0.78649E-02_JPRB,0.95928E-02_JPRB,0.96590E-02_JPRB /)  
+KB(:, 4,14, 4) = (/ &
+ & 0.58448E-04_JPRB,0.53112E-02_JPRB,0.84165E-02_JPRB,0.10356E-01_JPRB,0.10085E-01_JPRB /)  
+KB(:, 5,14, 4) = (/ &
+ & 0.66585E-04_JPRB,0.56590E-02_JPRB,0.89770E-02_JPRB,0.11022E-01_JPRB,0.10540E-01_JPRB /)  
+KB(:, 1,15, 4) = (/ &
+ & 0.33161E-04_JPRB,0.36374E-02_JPRB,0.56007E-02_JPRB,0.68408E-02_JPRB,0.70399E-02_JPRB /)  
+KB(:, 2,15, 4) = (/ &
+ & 0.37316E-04_JPRB,0.39145E-02_JPRB,0.61318E-02_JPRB,0.74812E-02_JPRB,0.74533E-02_JPRB /)  
+KB(:, 3,15, 4) = (/ &
+ & 0.42184E-04_JPRB,0.41949E-02_JPRB,0.66272E-02_JPRB,0.81097E-02_JPRB,0.78393E-02_JPRB /)  
+KB(:, 4,15, 4) = (/ &
+ & 0.48249E-04_JPRB,0.44861E-02_JPRB,0.70934E-02_JPRB,0.87330E-02_JPRB,0.82262E-02_JPRB /)  
+KB(:, 5,15, 4) = (/ &
+ & 0.54912E-04_JPRB,0.47829E-02_JPRB,0.75688E-02_JPRB,0.92830E-02_JPRB,0.86058E-02_JPRB /)  
+KB(:, 1,16, 4) = (/ &
+ & 0.26598E-04_JPRB,0.30649E-02_JPRB,0.47323E-02_JPRB,0.57742E-02_JPRB,0.56644E-02_JPRB /)  
+KB(:, 2,16, 4) = (/ &
+ & 0.30096E-04_JPRB,0.32950E-02_JPRB,0.51778E-02_JPRB,0.63145E-02_JPRB,0.60193E-02_JPRB /)  
+KB(:, 3,16, 4) = (/ &
+ & 0.34085E-04_JPRB,0.35350E-02_JPRB,0.55806E-02_JPRB,0.68447E-02_JPRB,0.63708E-02_JPRB /)  
+KB(:, 4,16, 4) = (/ &
+ & 0.38919E-04_JPRB,0.37831E-02_JPRB,0.59719E-02_JPRB,0.73465E-02_JPRB,0.67088E-02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART16',1,ZHOOK_HANDLE)
+END SUBROUTINE PART16
+
+
+SUBROUTINE PART17
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART17',0,ZHOOK_HANDLE)
+
+
+KB(:, 5,16, 4) = (/ &
+ & 0.44492E-04_JPRB,0.40393E-02_JPRB,0.63750E-02_JPRB,0.78120E-02_JPRB,0.70249E-02_JPRB /)  
+KB(:, 1,17, 4) = (/ &
+ & 0.21449E-04_JPRB,0.25756E-02_JPRB,0.39936E-02_JPRB,0.48662E-02_JPRB,0.46205E-02_JPRB /)  
+KB(:, 2,17, 4) = (/ &
+ & 0.24103E-04_JPRB,0.27706E-02_JPRB,0.43619E-02_JPRB,0.53164E-02_JPRB,0.49202E-02_JPRB /)  
+KB(:, 3,17, 4) = (/ &
+ & 0.27451E-04_JPRB,0.29765E-02_JPRB,0.46959E-02_JPRB,0.57632E-02_JPRB,0.52122E-02_JPRB /)  
+KB(:, 4,17, 4) = (/ &
+ & 0.31381E-04_JPRB,0.31884E-02_JPRB,0.50222E-02_JPRB,0.61735E-02_JPRB,0.54790E-02_JPRB /)  
+KB(:, 5,17, 4) = (/ &
+ & 0.35953E-04_JPRB,0.34099E-02_JPRB,0.53645E-02_JPRB,0.65659E-02_JPRB,0.57419E-02_JPRB /)  
+KB(:, 1,18, 4) = (/ &
+ & 0.17468E-04_JPRB,0.21642E-02_JPRB,0.33642E-02_JPRB,0.40972E-02_JPRB,0.37921E-02_JPRB /)  
+KB(:, 2,18, 4) = (/ &
+ & 0.19506E-04_JPRB,0.23308E-02_JPRB,0.36683E-02_JPRB,0.44696E-02_JPRB,0.40385E-02_JPRB /)  
+KB(:, 3,18, 4) = (/ &
+ & 0.22326E-04_JPRB,0.25072E-02_JPRB,0.39454E-02_JPRB,0.48507E-02_JPRB,0.42773E-02_JPRB /)  
+KB(:, 4,18, 4) = (/ &
+ & 0.25558E-04_JPRB,0.26901E-02_JPRB,0.42240E-02_JPRB,0.51855E-02_JPRB,0.45000E-02_JPRB /)  
+KB(:, 5,18, 4) = (/ &
+ & 0.29519E-04_JPRB,0.28816E-02_JPRB,0.45135E-02_JPRB,0.55168E-02_JPRB,0.47259E-02_JPRB /)  
+KB(:, 1,19, 4) = (/ &
+ & 0.14162E-04_JPRB,0.18165E-02_JPRB,0.28311E-02_JPRB,0.34491E-02_JPRB,0.31263E-02_JPRB /)  
+KB(:, 2,19, 4) = (/ &
+ & 0.15880E-04_JPRB,0.19594E-02_JPRB,0.30792E-02_JPRB,0.37577E-02_JPRB,0.33277E-02_JPRB /)  
+KB(:, 3,19, 4) = (/ &
+ & 0.18250E-04_JPRB,0.21124E-02_JPRB,0.33110E-02_JPRB,0.40717E-02_JPRB,0.35255E-02_JPRB /)  
+KB(:, 4,19, 4) = (/ &
+ & 0.20948E-04_JPRB,0.22711E-02_JPRB,0.35512E-02_JPRB,0.43541E-02_JPRB,0.37114E-02_JPRB /)  
+KB(:, 5,19, 4) = (/ &
+ & 0.24279E-04_JPRB,0.24360E-02_JPRB,0.37972E-02_JPRB,0.46336E-02_JPRB,0.39063E-02_JPRB /)  
+KB(:, 1,20, 4) = (/ &
+ & 0.11677E-04_JPRB,0.15268E-02_JPRB,0.23854E-02_JPRB,0.29054E-02_JPRB,0.25927E-02_JPRB /)  
+KB(:, 2,20, 4) = (/ &
+ & 0.13127E-04_JPRB,0.16502E-02_JPRB,0.25884E-02_JPRB,0.31642E-02_JPRB,0.27584E-02_JPRB /)  
+KB(:, 3,20, 4) = (/ &
+ & 0.15145E-04_JPRB,0.17827E-02_JPRB,0.27854E-02_JPRB,0.34198E-02_JPRB,0.29228E-02_JPRB /)  
+KB(:, 4,20, 4) = (/ &
+ & 0.17426E-04_JPRB,0.19208E-02_JPRB,0.29919E-02_JPRB,0.36563E-02_JPRB,0.30836E-02_JPRB /)  
+KB(:, 5,20, 4) = (/ &
+ & 0.20187E-04_JPRB,0.20638E-02_JPRB,0.32027E-02_JPRB,0.38955E-02_JPRB,0.32517E-02_JPRB /)  
+KB(:, 1,21, 4) = (/ &
+ & 0.96248E-05_JPRB,0.12839E-02_JPRB,0.20069E-02_JPRB,0.24439E-02_JPRB,0.21521E-02_JPRB /)  
+KB(:, 2,21, 4) = (/ &
+ & 0.10884E-04_JPRB,0.13905E-02_JPRB,0.21753E-02_JPRB,0.26634E-02_JPRB,0.22901E-02_JPRB /)  
+KB(:, 3,21, 4) = (/ &
+ & 0.12576E-04_JPRB,0.15057E-02_JPRB,0.23430E-02_JPRB,0.28714E-02_JPRB,0.24271E-02_JPRB /)  
+KB(:, 4,21, 4) = (/ &
+ & 0.14492E-04_JPRB,0.16245E-02_JPRB,0.25229E-02_JPRB,0.30709E-02_JPRB,0.25653E-02_JPRB /)  
+KB(:, 5,21, 4) = (/ &
+ & 0.16785E-04_JPRB,0.17487E-02_JPRB,0.27053E-02_JPRB,0.32769E-02_JPRB,0.27041E-02_JPRB /)  
+KB(:, 1,22, 4) = (/ &
+ & 0.78987E-05_JPRB,0.10841E-02_JPRB,0.16963E-02_JPRB,0.20646E-02_JPRB,0.17920E-02_JPRB /)  
+KB(:, 2,22, 4) = (/ &
+ & 0.90688E-05_JPRB,0.11783E-02_JPRB,0.18364E-02_JPRB,0.22523E-02_JPRB,0.19054E-02_JPRB /)  
+KB(:, 3,22, 4) = (/ &
+ & 0.10436E-04_JPRB,0.12776E-02_JPRB,0.19832E-02_JPRB,0.24220E-02_JPRB,0.20200E-02_JPRB /)  
+KB(:, 4,22, 4) = (/ &
+ & 0.12051E-04_JPRB,0.13800E-02_JPRB,0.21391E-02_JPRB,0.25904E-02_JPRB,0.21364E-02_JPRB /)  
+KB(:, 5,22, 4) = (/ &
+ & 0.13992E-04_JPRB,0.14877E-02_JPRB,0.22983E-02_JPRB,0.27690E-02_JPRB,0.22519E-02_JPRB /)  
+KB(:, 1,23, 4) = (/ &
+ & 0.65143E-05_JPRB,0.91629E-03_JPRB,0.14337E-02_JPRB,0.17468E-02_JPRB,0.14890E-02_JPRB /)  
+KB(:, 2,23, 4) = (/ &
+ & 0.75295E-05_JPRB,0.99880E-03_JPRB,0.15532E-02_JPRB,0.19017E-02_JPRB,0.15844E-02_JPRB /)  
+KB(:, 3,23, 4) = (/ &
+ & 0.86172E-05_JPRB,0.10843E-02_JPRB,0.16828E-02_JPRB,0.20454E-02_JPRB,0.16822E-02_JPRB /)  
+KB(:, 4,23, 4) = (/ &
+ & 0.10017E-04_JPRB,0.11729E-02_JPRB,0.18176E-02_JPRB,0.21912E-02_JPRB,0.17800E-02_JPRB /)  
+KB(:, 5,23, 4) = (/ &
+ & 0.11640E-04_JPRB,0.12668E-02_JPRB,0.19549E-02_JPRB,0.23447E-02_JPRB,0.18765E-02_JPRB /)  
+KB(:, 1,24, 4) = (/ &
+ & 0.53432E-05_JPRB,0.77571E-03_JPRB,0.12114E-02_JPRB,0.14805E-02_JPRB,0.12372E-02_JPRB /)  
+KB(:, 2,24, 4) = (/ &
+ & 0.61515E-05_JPRB,0.84718E-03_JPRB,0.13153E-02_JPRB,0.16078E-02_JPRB,0.13181E-02_JPRB /)  
+KB(:, 3,24, 4) = (/ &
+ & 0.70923E-05_JPRB,0.92024E-03_JPRB,0.14293E-02_JPRB,0.17300E-02_JPRB,0.13989E-02_JPRB /)  
+KB(:, 4,24, 4) = (/ &
+ & 0.82684E-05_JPRB,0.99740E-03_JPRB,0.15447E-02_JPRB,0.18573E-02_JPRB,0.14811E-02_JPRB /)  
+KB(:, 5,24, 4) = (/ &
+ & 0.96268E-05_JPRB,0.10789E-02_JPRB,0.16627E-02_JPRB,0.19892E-02_JPRB,0.15621E-02_JPRB /)  
+KB(:, 1,25, 4) = (/ &
+ & 0.43932E-05_JPRB,0.65898E-03_JPRB,0.10259E-02_JPRB,0.12568E-02_JPRB,0.10287E-02_JPRB /)  
+KB(:, 2,25, 4) = (/ &
+ & 0.50483E-05_JPRB,0.71973E-03_JPRB,0.11174E-02_JPRB,0.13610E-02_JPRB,0.10973E-02_JPRB /)  
+KB(:, 3,25, 4) = (/ &
+ & 0.58527E-05_JPRB,0.78269E-03_JPRB,0.12157E-02_JPRB,0.14658E-02_JPRB,0.11648E-02_JPRB /)  
+KB(:, 4,25, 4) = (/ &
+ & 0.68258E-05_JPRB,0.84968E-03_JPRB,0.13158E-02_JPRB,0.15774E-02_JPRB,0.12354E-02_JPRB /)  
+KB(:, 5,25, 4) = (/ &
+ & 0.79780E-05_JPRB,0.92093E-03_JPRB,0.14171E-02_JPRB,0.16917E-02_JPRB,0.13029E-02_JPRB /)  
+KB(:, 1,26, 4) = (/ &
+ & 0.36349E-05_JPRB,0.56139E-03_JPRB,0.87232E-03_JPRB,0.10671E-02_JPRB,0.85747E-03_JPRB /)  
+KB(:, 2,26, 4) = (/ &
+ & 0.41763E-05_JPRB,0.61307E-03_JPRB,0.95284E-03_JPRB,0.11559E-02_JPRB,0.91640E-03_JPRB /)  
+KB(:, 3,26, 4) = (/ &
+ & 0.48643E-05_JPRB,0.66769E-03_JPRB,0.10377E-02_JPRB,0.12480E-02_JPRB,0.97417E-03_JPRB /)  
+KB(:, 4,26, 4) = (/ &
+ & 0.56806E-05_JPRB,0.72618E-03_JPRB,0.11238E-02_JPRB,0.13443E-02_JPRB,0.10341E-02_JPRB /)  
+KB(:, 5,26, 4) = (/ &
+ & 0.66574E-05_JPRB,0.78791E-03_JPRB,0.12118E-02_JPRB,0.14426E-02_JPRB,0.10908E-02_JPRB /)  
+KB(:, 1,27, 4) = (/ &
+ & 0.29849E-05_JPRB,0.47845E-03_JPRB,0.74324E-03_JPRB,0.90695E-03_JPRB,0.71654E-03_JPRB /)  
+KB(:, 2,27, 4) = (/ &
+ & 0.34528E-05_JPRB,0.52305E-03_JPRB,0.81407E-03_JPRB,0.98348E-03_JPRB,0.76622E-03_JPRB /)  
+KB(:, 3,27, 4) = (/ &
+ & 0.40386E-05_JPRB,0.57067E-03_JPRB,0.88635E-03_JPRB,0.10643E-02_JPRB,0.81617E-03_JPRB /)  
+KB(:, 4,27, 4) = (/ &
+ & 0.47349E-05_JPRB,0.62159E-03_JPRB,0.96045E-03_JPRB,0.11476E-02_JPRB,0.86667E-03_JPRB /)  
+KB(:, 5,27, 4) = (/ &
+ & 0.55504E-05_JPRB,0.67486E-03_JPRB,0.10373E-02_JPRB,0.12327E-02_JPRB,0.91437E-03_JPRB /)  
+KB(:, 1,28, 4) = (/ &
+ & 0.24474E-05_JPRB,0.40819E-03_JPRB,0.63469E-03_JPRB,0.77184E-03_JPRB,0.59959E-03_JPRB /)  
+KB(:, 2,28, 4) = (/ &
+ & 0.28527E-05_JPRB,0.44694E-03_JPRB,0.69550E-03_JPRB,0.83809E-03_JPRB,0.64151E-03_JPRB /)  
+KB(:, 3,28, 4) = (/ &
+ & 0.33444E-05_JPRB,0.48804E-03_JPRB,0.75797E-03_JPRB,0.90921E-03_JPRB,0.68464E-03_JPRB /)  
+KB(:, 4,28, 4) = (/ &
+ & 0.39332E-05_JPRB,0.53229E-03_JPRB,0.82174E-03_JPRB,0.98103E-03_JPRB,0.72680E-03_JPRB /)  
+KB(:, 5,28, 4) = (/ &
+ & 0.46245E-05_JPRB,0.57864E-03_JPRB,0.88872E-03_JPRB,0.10544E-02_JPRB,0.76723E-03_JPRB /)  
+KB(:, 1,29, 4) = (/ &
+ & 0.20253E-05_JPRB,0.34921E-03_JPRB,0.54365E-03_JPRB,0.65865E-03_JPRB,0.50331E-03_JPRB /)  
+KB(:, 2,29, 4) = (/ &
+ & 0.23720E-05_JPRB,0.38278E-03_JPRB,0.59577E-03_JPRB,0.71729E-03_JPRB,0.53864E-03_JPRB /)  
+KB(:, 3,29, 4) = (/ &
+ & 0.27945E-05_JPRB,0.41887E-03_JPRB,0.64907E-03_JPRB,0.77823E-03_JPRB,0.57581E-03_JPRB /)  
+KB(:, 4,29, 4) = (/ &
+ & 0.32936E-05_JPRB,0.45699E-03_JPRB,0.70481E-03_JPRB,0.84074E-03_JPRB,0.61089E-03_JPRB /)  
+KB(:, 5,29, 4) = (/ &
+ & 0.38881E-05_JPRB,0.49757E-03_JPRB,0.76325E-03_JPRB,0.90356E-03_JPRB,0.64564E-03_JPRB /)  
+KB(:, 1,30, 4) = (/ &
+ & 0.16797E-05_JPRB,0.29918E-03_JPRB,0.46598E-03_JPRB,0.56316E-03_JPRB,0.42270E-03_JPRB /)  
+KB(:, 2,30, 4) = (/ &
+ & 0.19764E-05_JPRB,0.32839E-03_JPRB,0.51076E-03_JPRB,0.61439E-03_JPRB,0.45306E-03_JPRB /)  
+KB(:, 3,30, 4) = (/ &
+ & 0.23384E-05_JPRB,0.35985E-03_JPRB,0.55686E-03_JPRB,0.66712E-03_JPRB,0.48445E-03_JPRB /)  
+KB(:, 4,30, 4) = (/ &
+ & 0.27662E-05_JPRB,0.39302E-03_JPRB,0.60525E-03_JPRB,0.72092E-03_JPRB,0.51425E-03_JPRB /)  
+KB(:, 5,30, 4) = (/ &
+ & 0.32687E-05_JPRB,0.42837E-03_JPRB,0.65610E-03_JPRB,0.77570E-03_JPRB,0.54396E-03_JPRB /)  
+KB(:, 1,31, 4) = (/ &
+ & 0.13991E-05_JPRB,0.25687E-03_JPRB,0.39996E-03_JPRB,0.48307E-03_JPRB,0.35570E-03_JPRB /)  
+KB(:, 2,31, 4) = (/ &
+ & 0.16564E-05_JPRB,0.28246E-03_JPRB,0.43858E-03_JPRB,0.52743E-03_JPRB,0.38211E-03_JPRB /)  
+KB(:, 3,31, 4) = (/ &
+ & 0.19660E-05_JPRB,0.30971E-03_JPRB,0.47856E-03_JPRB,0.57309E-03_JPRB,0.40826E-03_JPRB /)  
+KB(:, 4,31, 4) = (/ &
+ & 0.23334E-05_JPRB,0.33881E-03_JPRB,0.52066E-03_JPRB,0.61919E-03_JPRB,0.43367E-03_JPRB /)  
+KB(:, 5,31, 4) = (/ &
+ & 0.27587E-05_JPRB,0.36964E-03_JPRB,0.56499E-03_JPRB,0.66660E-03_JPRB,0.45969E-03_JPRB /)  
+KB(:, 1,32, 4) = (/ &
+ & 0.11711E-05_JPRB,0.22102E-03_JPRB,0.34394E-03_JPRB,0.41512E-03_JPRB,0.29980E-03_JPRB /)  
+KB(:, 2,32, 4) = (/ &
+ & 0.13928E-05_JPRB,0.24337E-03_JPRB,0.37713E-03_JPRB,0.45351E-03_JPRB,0.32253E-03_JPRB /)  
+KB(:, 3,32, 4) = (/ &
+ & 0.16589E-05_JPRB,0.26704E-03_JPRB,0.41202E-03_JPRB,0.49272E-03_JPRB,0.34442E-03_JPRB /)  
+KB(:, 4,32, 4) = (/ &
+ & 0.19740E-05_JPRB,0.29261E-03_JPRB,0.44855E-03_JPRB,0.53274E-03_JPRB,0.36633E-03_JPRB /)  
+KB(:, 5,32, 4) = (/ &
+ & 0.23323E-05_JPRB,0.31973E-03_JPRB,0.48726E-03_JPRB,0.57383E-03_JPRB,0.38915E-03_JPRB /)  
+KB(:, 1,33, 4) = (/ &
+ & 0.98300E-06_JPRB,0.19047E-03_JPRB,0.29592E-03_JPRB,0.35739E-03_JPRB,0.25303E-03_JPRB /)  
+KB(:, 2,33, 4) = (/ &
+ & 0.11751E-05_JPRB,0.20983E-03_JPRB,0.32474E-03_JPRB,0.39043E-03_JPRB,0.27259E-03_JPRB /)  
+KB(:, 3,33, 4) = (/ &
+ & 0.14027E-05_JPRB,0.23065E-03_JPRB,0.35505E-03_JPRB,0.42405E-03_JPRB,0.29120E-03_JPRB /)  
+KB(:, 4,33, 4) = (/ &
+ & 0.16692E-05_JPRB,0.25302E-03_JPRB,0.38699E-03_JPRB,0.45888E-03_JPRB,0.31018E-03_JPRB /)  
+KB(:, 5,33, 4) = (/ &
+ & 0.19716E-05_JPRB,0.27715E-03_JPRB,0.42119E-03_JPRB,0.49468E-03_JPRB,0.32989E-03_JPRB /)  
+KB(:, 1,34, 4) = (/ &
+ & 0.82915E-06_JPRB,0.16396E-03_JPRB,0.25433E-03_JPRB,0.30700E-03_JPRB,0.21406E-03_JPRB /)  
+KB(:, 2,34, 4) = (/ &
+ & 0.99352E-06_JPRB,0.18083E-03_JPRB,0.27935E-03_JPRB,0.33552E-03_JPRB,0.23048E-03_JPRB /)  
+KB(:, 3,34, 4) = (/ &
+ & 0.11877E-05_JPRB,0.19915E-03_JPRB,0.30578E-03_JPRB,0.36455E-03_JPRB,0.24659E-03_JPRB /)  
+KB(:, 4,34, 4) = (/ &
+ & 0.14139E-05_JPRB,0.21886E-03_JPRB,0.33384E-03_JPRB,0.39476E-03_JPRB,0.26317E-03_JPRB /)  
+KB(:, 5,34, 4) = (/ &
+ & 0.16670E-05_JPRB,0.24021E-03_JPRB,0.36390E-03_JPRB,0.42603E-03_JPRB,0.28005E-03_JPRB /)  
+KB(:, 1,35, 4) = (/ &
+ & 0.68670E-06_JPRB,0.13979E-03_JPRB,0.21673E-03_JPRB,0.26161E-03_JPRB,0.17974E-03_JPRB /)  
+KB(:, 2,35, 4) = (/ &
+ & 0.82437E-06_JPRB,0.15448E-03_JPRB,0.23846E-03_JPRB,0.28611E-03_JPRB,0.19377E-03_JPRB /)  
+KB(:, 3,35, 4) = (/ &
+ & 0.98649E-06_JPRB,0.17044E-03_JPRB,0.26139E-03_JPRB,0.31132E-03_JPRB,0.20765E-03_JPRB /)  
+KB(:, 4,35, 4) = (/ &
+ & 0.11740E-05_JPRB,0.18773E-03_JPRB,0.28609E-03_JPRB,0.33740E-03_JPRB,0.22197E-03_JPRB /)  
+KB(:, 5,35, 4) = (/ &
+ & 0.13833E-05_JPRB,0.20652E-03_JPRB,0.31233E-03_JPRB,0.36449E-03_JPRB,0.23658E-03_JPRB /)  
+KB(:, 1,36, 4) = (/ &
+ & 0.55564E-06_JPRB,0.11786E-03_JPRB,0.18283E-03_JPRB,0.22089E-03_JPRB,0.14951E-03_JPRB /)  
+KB(:, 2,36, 4) = (/ &
+ & 0.66731E-06_JPRB,0.13053E-03_JPRB,0.20151E-03_JPRB,0.24189E-03_JPRB,0.16146E-03_JPRB /)  
+KB(:, 3,36, 4) = (/ &
+ & 0.80048E-06_JPRB,0.14432E-03_JPRB,0.22154E-03_JPRB,0.26364E-03_JPRB,0.17348E-03_JPRB /)  
+KB(:, 4,36, 4) = (/ &
+ & 0.95195E-06_JPRB,0.15937E-03_JPRB,0.24310E-03_JPRB,0.28609E-03_JPRB,0.18577E-03_JPRB /)  
+KB(:, 5,36, 4) = (/ &
+ & 0.11217E-05_JPRB,0.17580E-03_JPRB,0.26601E-03_JPRB,0.30949E-03_JPRB,0.19850E-03_JPRB /)  
+KB(:, 1,37, 4) = (/ &
+ & 0.44526E-06_JPRB,0.98334E-04_JPRB,0.15236E-03_JPRB,0.18395E-03_JPRB,0.12369E-03_JPRB /)  
+KB(:, 2,37, 4) = (/ &
+ & 0.53551E-06_JPRB,0.10927E-03_JPRB,0.16837E-03_JPRB,0.20194E-03_JPRB,0.13387E-03_JPRB /)  
+KB(:, 3,37, 4) = (/ &
+ & 0.64307E-06_JPRB,0.12110E-03_JPRB,0.18556E-03_JPRB,0.22059E-03_JPRB,0.14418E-03_JPRB /)  
+KB(:, 4,37, 4) = (/ &
+ & 0.76688E-06_JPRB,0.13411E-03_JPRB,0.20414E-03_JPRB,0.23985E-03_JPRB,0.15477E-03_JPRB /)  
+KB(:, 5,37, 4) = (/ &
+ & 0.90591E-06_JPRB,0.14842E-03_JPRB,0.22405E-03_JPRB,0.25996E-03_JPRB,0.16566E-03_JPRB /)  
+KB(:, 1,38, 4) = (/ &
+ & 0.35630E-06_JPRB,0.81991E-04_JPRB,0.12690E-03_JPRB,0.15312E-03_JPRB,0.10226E-03_JPRB /)  
+KB(:, 2,38, 4) = (/ &
+ & 0.42911E-06_JPRB,0.91391E-04_JPRB,0.14064E-03_JPRB,0.16849E-03_JPRB,0.11095E-03_JPRB /)  
+KB(:, 3,38, 4) = (/ &
+ & 0.51583E-06_JPRB,0.10163E-03_JPRB,0.15538E-03_JPRB,0.18448E-03_JPRB,0.11977E-03_JPRB /)  
+KB(:, 4,38, 4) = (/ &
+ & 0.61654E-06_JPRB,0.11287E-03_JPRB,0.17138E-03_JPRB,0.20101E-03_JPRB,0.12884E-03_JPRB /)  
+KB(:, 5,38, 4) = (/ &
+ & 0.73028E-06_JPRB,0.12530E-03_JPRB,0.18862E-03_JPRB,0.21826E-03_JPRB,0.13816E-03_JPRB /)  
+KB(:, 1,39, 4) = (/ &
+ & 0.28455E-06_JPRB,0.68362E-04_JPRB,0.10572E-03_JPRB,0.12747E-03_JPRB,0.84494E-04_JPRB /)  
+KB(:, 2,39, 4) = (/ &
+ & 0.34313E-06_JPRB,0.76413E-04_JPRB,0.11751E-03_JPRB,0.14060E-03_JPRB,0.91905E-04_JPRB /)  
+KB(:, 3,39, 4) = (/ &
+ & 0.41305E-06_JPRB,0.85299E-04_JPRB,0.13016E-03_JPRB,0.15431E-03_JPRB,0.99463E-04_JPRB /)  
+KB(:, 4,39, 4) = (/ &
+ & 0.49466E-06_JPRB,0.95047E-04_JPRB,0.14396E-03_JPRB,0.16851E-03_JPRB,0.10725E-03_JPRB /)  
+KB(:, 5,39, 4) = (/ &
+ & 0.58721E-06_JPRB,0.10583E-03_JPRB,0.15886E-03_JPRB,0.18332E-03_JPRB,0.11516E-03_JPRB /)  
+KB(:, 1,40, 4) = (/ &
+ & 0.22416E-06_JPRB,0.56451E-04_JPRB,0.87192E-04_JPRB,0.10503E-03_JPRB,0.69299E-04_JPRB /)  
+KB(:, 2,40, 4) = (/ &
+ & 0.27058E-06_JPRB,0.63325E-04_JPRB,0.97241E-04_JPRB,0.11625E-03_JPRB,0.75635E-04_JPRB /)  
+KB(:, 3,40, 4) = (/ &
+ & 0.32640E-06_JPRB,0.70942E-04_JPRB,0.10801E-03_JPRB,0.12792E-03_JPRB,0.82061E-04_JPRB /)  
+KB(:, 4,40, 4) = (/ &
+ & 0.39178E-06_JPRB,0.79381E-04_JPRB,0.11985E-03_JPRB,0.14005E-03_JPRB,0.88722E-04_JPRB /)  
+KB(:, 5,40, 4) = (/ &
+ & 0.46694E-06_JPRB,0.88673E-04_JPRB,0.13261E-03_JPRB,0.15274E-03_JPRB,0.95437E-04_JPRB /)  
+KB(:, 1,41, 4) = (/ &
+ & 0.17620E-06_JPRB,0.46495E-04_JPRB,0.71829E-04_JPRB,0.86351E-04_JPRB,0.56701E-04_JPRB /)  
+KB(:, 2,41, 4) = (/ &
+ & 0.21295E-06_JPRB,0.52383E-04_JPRB,0.80380E-04_JPRB,0.95937E-04_JPRB,0.62100E-04_JPRB /)  
+KB(:, 3,41, 4) = (/ &
+ & 0.25720E-06_JPRB,0.58900E-04_JPRB,0.89548E-04_JPRB,0.10594E-03_JPRB,0.67568E-04_JPRB /)  
+KB(:, 4,41, 4) = (/ &
+ & 0.30957E-06_JPRB,0.66136E-04_JPRB,0.99643E-04_JPRB,0.11623E-03_JPRB,0.73280E-04_JPRB /)  
+KB(:, 5,41, 4) = (/ &
+ & 0.37003E-06_JPRB,0.74203E-04_JPRB,0.11061E-03_JPRB,0.12707E-03_JPRB,0.78979E-04_JPRB /)  
+KB(:, 1,42, 4) = (/ &
+ & 0.13843E-06_JPRB,0.38238E-04_JPRB,0.59124E-04_JPRB,0.70982E-04_JPRB,0.46331E-04_JPRB /)  
+KB(:, 2,42, 4) = (/ &
+ & 0.16726E-06_JPRB,0.43269E-04_JPRB,0.66424E-04_JPRB,0.79125E-04_JPRB,0.50956E-04_JPRB /)  
+KB(:, 3,42, 4) = (/ &
+ & 0.20232E-06_JPRB,0.48870E-04_JPRB,0.74247E-04_JPRB,0.87661E-04_JPRB,0.55561E-04_JPRB /)  
+KB(:, 4,42, 4) = (/ &
+ & 0.24408E-06_JPRB,0.55119E-04_JPRB,0.82827E-04_JPRB,0.96453E-04_JPRB,0.60447E-04_JPRB /)  
+KB(:, 5,42, 4) = (/ &
+ & 0.29276E-06_JPRB,0.62028E-04_JPRB,0.92221E-04_JPRB,0.10570E-03_JPRB,0.65281E-04_JPRB /)  
+KB(:, 1,43, 4) = (/ &
+ & 0.10793E-06_JPRB,0.31191E-04_JPRB,0.48305E-04_JPRB,0.57948E-04_JPRB,0.37666E-04_JPRB /)  
+KB(:, 2,43, 4) = (/ &
+ & 0.13017E-06_JPRB,0.35465E-04_JPRB,0.54489E-04_JPRB,0.64841E-04_JPRB,0.41556E-04_JPRB /)  
+KB(:, 3,43, 4) = (/ &
+ & 0.15771E-06_JPRB,0.40235E-04_JPRB,0.61176E-04_JPRB,0.72082E-04_JPRB,0.45452E-04_JPRB /)  
+KB(:, 4,43, 4) = (/ &
+ & 0.19064E-06_JPRB,0.45599E-04_JPRB,0.68488E-04_JPRB,0.79576E-04_JPRB,0.49593E-04_JPRB /)  
+KB(:, 5,43, 4) = (/ &
+ & 0.22944E-06_JPRB,0.51552E-04_JPRB,0.76431E-04_JPRB,0.87462E-04_JPRB,0.53715E-04_JPRB /)  
+KB(:, 1,44, 4) = (/ &
+ & 0.83879E-07_JPRB,0.25325E-04_JPRB,0.39297E-04_JPRB,0.47118E-04_JPRB,0.30510E-04_JPRB /)  
+KB(:, 2,44, 4) = (/ &
+ & 0.10087E-06_JPRB,0.28920E-04_JPRB,0.44532E-04_JPRB,0.52929E-04_JPRB,0.33772E-04_JPRB /)  
+KB(:, 3,44, 4) = (/ &
+ & 0.12238E-06_JPRB,0.32977E-04_JPRB,0.50189E-04_JPRB,0.59075E-04_JPRB,0.37069E-04_JPRB /)  
+KB(:, 4,44, 4) = (/ &
+ & 0.14813E-06_JPRB,0.37556E-04_JPRB,0.56451E-04_JPRB,0.65448E-04_JPRB,0.40567E-04_JPRB /)  
+KB(:, 5,44, 4) = (/ &
+ & 0.17874E-06_JPRB,0.42672E-04_JPRB,0.63196E-04_JPRB,0.72159E-04_JPRB,0.44085E-04_JPRB /)  
+KB(:, 1,45, 4) = (/ &
+ & 0.65261E-07_JPRB,0.20516E-04_JPRB,0.31895E-04_JPRB,0.38279E-04_JPRB,0.24650E-04_JPRB /)  
+KB(:, 2,45, 4) = (/ &
+ & 0.78145E-07_JPRB,0.23540E-04_JPRB,0.36319E-04_JPRB,0.43161E-04_JPRB,0.27390E-04_JPRB /)  
+KB(:, 3,45, 4) = (/ &
+ & 0.94805E-07_JPRB,0.26962E-04_JPRB,0.41134E-04_JPRB,0.48357E-04_JPRB,0.30190E-04_JPRB /)  
+KB(:, 4,45, 4) = (/ &
+ & 0.11490E-06_JPRB,0.30858E-04_JPRB,0.46429E-04_JPRB,0.53785E-04_JPRB,0.33136E-04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART17',1,ZHOOK_HANDLE)
+END SUBROUTINE PART17
+
+
+SUBROUTINE PART18
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART18',0,ZHOOK_HANDLE)
+
+
+KB(:, 5,45, 4) = (/ &
+ & 0.13905E-06_JPRB,0.35210E-04_JPRB,0.52216E-04_JPRB,0.59482E-04_JPRB,0.36122E-04_JPRB /)  
+KB(:, 1,46, 4) = (/ &
+ & 0.50668E-07_JPRB,0.16526E-04_JPRB,0.25752E-04_JPRB,0.30954E-04_JPRB,0.19817E-04_JPRB /)  
+KB(:, 2,46, 4) = (/ &
+ & 0.60361E-07_JPRB,0.19058E-04_JPRB,0.29471E-04_JPRB,0.35060E-04_JPRB,0.22123E-04_JPRB /)  
+KB(:, 3,46, 4) = (/ &
+ & 0.73101E-07_JPRB,0.21937E-04_JPRB,0.33569E-04_JPRB,0.39461E-04_JPRB,0.24498E-04_JPRB /)  
+KB(:, 4,46, 4) = (/ &
+ & 0.88747E-07_JPRB,0.25222E-04_JPRB,0.38048E-04_JPRB,0.44039E-04_JPRB,0.26973E-04_JPRB /)  
+KB(:, 5,46, 4) = (/ &
+ & 0.10762E-06_JPRB,0.28932E-04_JPRB,0.42964E-04_JPRB,0.48871E-04_JPRB,0.29499E-04_JPRB /)  
+KB(:, 1,47, 4) = (/ &
+ & 0.39185E-07_JPRB,0.13207E-04_JPRB,0.20626E-04_JPRB,0.24835E-04_JPRB,0.15826E-04_JPRB /)  
+KB(:, 2,47, 4) = (/ &
+ & 0.46335E-07_JPRB,0.15303E-04_JPRB,0.23722E-04_JPRB,0.28277E-04_JPRB,0.17762E-04_JPRB /)  
+KB(:, 3,47, 4) = (/ &
+ & 0.55896E-07_JPRB,0.17703E-04_JPRB,0.27162E-04_JPRB,0.31976E-04_JPRB,0.19780E-04_JPRB /)  
+KB(:, 4,47, 4) = (/ &
+ & 0.67962E-07_JPRB,0.20451E-04_JPRB,0.30940E-04_JPRB,0.35867E-04_JPRB,0.21834E-04_JPRB /)  
+KB(:, 5,47, 4) = (/ &
+ & 0.82535E-07_JPRB,0.23583E-04_JPRB,0.35128E-04_JPRB,0.39933E-04_JPRB,0.23972E-04_JPRB /)  
+KB(:, 1,48, 4) = (/ &
+ & 0.30435E-07_JPRB,0.10528E-04_JPRB,0.16458E-04_JPRB,0.19871E-04_JPRB,0.12630E-04_JPRB /)  
+KB(:, 2,48, 4) = (/ &
+ & 0.35657E-07_JPRB,0.12255E-04_JPRB,0.19034E-04_JPRB,0.22757E-04_JPRB,0.14230E-04_JPRB /)  
+KB(:, 3,48, 4) = (/ &
+ & 0.42777E-07_JPRB,0.14241E-04_JPRB,0.21916E-04_JPRB,0.25856E-04_JPRB,0.15916E-04_JPRB /)  
+KB(:, 4,48, 4) = (/ &
+ & 0.51977E-07_JPRB,0.16531E-04_JPRB,0.25094E-04_JPRB,0.29142E-04_JPRB,0.17632E-04_JPRB /)  
+KB(:, 5,48, 4) = (/ &
+ & 0.63246E-07_JPRB,0.19162E-04_JPRB,0.28631E-04_JPRB,0.32586E-04_JPRB,0.19447E-04_JPRB /)  
+KB(:, 1,49, 4) = (/ &
+ & 0.23722E-07_JPRB,0.83656E-05_JPRB,0.13088E-04_JPRB,0.15834E-04_JPRB,0.10060E-04_JPRB /)  
+KB(:, 2,49, 4) = (/ &
+ & 0.27509E-07_JPRB,0.97869E-05_JPRB,0.15227E-04_JPRB,0.18252E-04_JPRB,0.11363E-04_JPRB /)  
+KB(:, 3,49, 4) = (/ &
+ & 0.32769E-07_JPRB,0.11426E-04_JPRB,0.17628E-04_JPRB,0.20853E-04_JPRB,0.12767E-04_JPRB /)  
+KB(:, 4,49, 4) = (/ &
+ & 0.39719E-07_JPRB,0.13326E-04_JPRB,0.20285E-04_JPRB,0.23637E-04_JPRB,0.14223E-04_JPRB /)  
+KB(:, 5,49, 4) = (/ &
+ & 0.48415E-07_JPRB,0.15524E-04_JPRB,0.23268E-04_JPRB,0.26530E-04_JPRB,0.15739E-04_JPRB /)  
+KB(:, 1,50, 4) = (/ &
+ & 0.18623E-07_JPRB,0.66620E-05_JPRB,0.10425E-04_JPRB,0.12634E-04_JPRB,0.80132E-05_JPRB /)  
+KB(:, 2,50, 4) = (/ &
+ & 0.21393E-07_JPRB,0.78264E-05_JPRB,0.12188E-04_JPRB,0.14643E-04_JPRB,0.90757E-05_JPRB /)  
+KB(:, 3,50, 4) = (/ &
+ & 0.25281E-07_JPRB,0.91787E-05_JPRB,0.14186E-04_JPRB,0.16825E-04_JPRB,0.10247E-04_JPRB /)  
+KB(:, 4,50, 4) = (/ &
+ & 0.30530E-07_JPRB,0.10758E-04_JPRB,0.16419E-04_JPRB,0.19178E-04_JPRB,0.11482E-04_JPRB /)  
+KB(:, 5,50, 4) = (/ &
+ & 0.37213E-07_JPRB,0.12593E-04_JPRB,0.18920E-04_JPRB,0.21643E-04_JPRB,0.12749E-04_JPRB /)  
+KB(:, 1,51, 4) = (/ &
+ & 0.14681E-07_JPRB,0.53043E-05_JPRB,0.82956E-05_JPRB,0.10064E-04_JPRB,0.63669E-05_JPRB /)  
+KB(:, 2,51, 4) = (/ &
+ & 0.16717E-07_JPRB,0.62508E-05_JPRB,0.97501E-05_JPRB,0.11737E-04_JPRB,0.72473E-05_JPRB /)  
+KB(:, 3,51, 4) = (/ &
+ & 0.19587E-07_JPRB,0.73643E-05_JPRB,0.11400E-04_JPRB,0.13558E-04_JPRB,0.82290E-05_JPRB /)  
+KB(:, 4,51, 4) = (/ &
+ & 0.23555E-07_JPRB,0.86748E-05_JPRB,0.13268E-04_JPRB,0.15537E-04_JPRB,0.92634E-05_JPRB /)  
+KB(:, 5,51, 4) = (/ &
+ & 0.28671E-07_JPRB,0.10209E-04_JPRB,0.15379E-04_JPRB,0.17635E-04_JPRB,0.10316E-04_JPRB /)  
+KB(:, 1,52, 4) = (/ &
+ & 0.11626E-07_JPRB,0.42149E-05_JPRB,0.65740E-05_JPRB,0.79835E-05_JPRB,0.50595E-05_JPRB /)  
+KB(:, 2,52, 4) = (/ &
+ & 0.13102E-07_JPRB,0.49884E-05_JPRB,0.77758E-05_JPRB,0.93846E-05_JPRB,0.57856E-05_JPRB /)  
+KB(:, 3,52, 4) = (/ &
+ & 0.15208E-07_JPRB,0.58955E-05_JPRB,0.91392E-05_JPRB,0.10898E-04_JPRB,0.65937E-05_JPRB /)  
+KB(:, 4,52, 4) = (/ &
+ & 0.18174E-07_JPRB,0.69758E-05_JPRB,0.10692E-04_JPRB,0.12554E-04_JPRB,0.74564E-05_JPRB /)  
+KB(:, 5,52, 4) = (/ &
+ & 0.22057E-07_JPRB,0.82505E-05_JPRB,0.12462E-04_JPRB,0.14331E-04_JPRB,0.83301E-05_JPRB /)  
+KB(:, 1,53, 4) = (/ &
+ & 0.92130E-08_JPRB,0.33378E-05_JPRB,0.51998E-05_JPRB,0.63006E-05_JPRB,0.40097E-05_JPRB /)  
+KB(:, 2,53, 4) = (/ &
+ & 0.10298E-07_JPRB,0.39704E-05_JPRB,0.61839E-05_JPRB,0.74775E-05_JPRB,0.46077E-05_JPRB /)  
+KB(:, 3,53, 4) = (/ &
+ & 0.11831E-07_JPRB,0.47088E-05_JPRB,0.73062E-05_JPRB,0.87345E-05_JPRB,0.52620E-05_JPRB /)  
+KB(:, 4,53, 4) = (/ &
+ & 0.14030E-07_JPRB,0.55942E-05_JPRB,0.85921E-05_JPRB,0.10119E-04_JPRB,0.59838E-05_JPRB /)  
+KB(:, 5,53, 4) = (/ &
+ & 0.16970E-07_JPRB,0.66447E-05_JPRB,0.10063E-04_JPRB,0.11620E-04_JPRB,0.67208E-05_JPRB /)  
+KB(:, 1,54, 4) = (/ &
+ & 0.73443E-08_JPRB,0.26498E-05_JPRB,0.41229E-05_JPRB,0.49788E-05_JPRB,0.31929E-05_JPRB /)  
+KB(:, 2,54, 4) = (/ &
+ & 0.81453E-08_JPRB,0.31689E-05_JPRB,0.49320E-05_JPRB,0.59701E-05_JPRB,0.36706E-05_JPRB /)  
+KB(:, 3,54, 4) = (/ &
+ & 0.92853E-08_JPRB,0.37746E-05_JPRB,0.58561E-05_JPRB,0.70139E-05_JPRB,0.42105E-05_JPRB /)  
+KB(:, 4,54, 4) = (/ &
+ & 0.10913E-07_JPRB,0.44986E-05_JPRB,0.69192E-05_JPRB,0.81733E-05_JPRB,0.48081E-05_JPRB /)  
+KB(:, 5,54, 4) = (/ &
+ & 0.13151E-07_JPRB,0.53689E-05_JPRB,0.81469E-05_JPRB,0.94377E-05_JPRB,0.54320E-05_JPRB /)  
+KB(:, 1,55, 4) = (/ &
+ & 0.58690E-08_JPRB,0.21056E-05_JPRB,0.32710E-05_JPRB,0.39362E-05_JPRB,0.25357E-05_JPRB /)  
+KB(:, 2,55, 4) = (/ &
+ & 0.64824E-08_JPRB,0.25292E-05_JPRB,0.39335E-05_JPRB,0.47652E-05_JPRB,0.29266E-05_JPRB /)  
+KB(:, 3,55, 4) = (/ &
+ & 0.73195E-08_JPRB,0.30260E-05_JPRB,0.46942E-05_JPRB,0.56346E-05_JPRB,0.33700E-05_JPRB /)  
+KB(:, 4,55, 4) = (/ &
+ & 0.85298E-08_JPRB,0.36216E-05_JPRB,0.55727E-05_JPRB,0.65990E-05_JPRB,0.38662E-05_JPRB /)  
+KB(:, 5,55, 4) = (/ &
+ & 0.10227E-07_JPRB,0.43366E-05_JPRB,0.65935E-05_JPRB,0.76627E-05_JPRB,0.43889E-05_JPRB /)  
+KB(:, 1,56, 4) = (/ &
+ & 0.46879E-08_JPRB,0.16674E-05_JPRB,0.25848E-05_JPRB,0.30992E-05_JPRB,0.20097E-05_JPRB /)  
+KB(:, 2,56, 4) = (/ &
+ & 0.51579E-08_JPRB,0.20145E-05_JPRB,0.31307E-05_JPRB,0.37875E-05_JPRB,0.23304E-05_JPRB /)  
+KB(:, 3,56, 4) = (/ &
+ & 0.57829E-08_JPRB,0.24199E-05_JPRB,0.37529E-05_JPRB,0.45119E-05_JPRB,0.26962E-05_JPRB /)  
+KB(:, 4,56, 4) = (/ &
+ & 0.66817E-08_JPRB,0.29092E-05_JPRB,0.44788E-05_JPRB,0.53142E-05_JPRB,0.31037E-05_JPRB /)  
+KB(:, 5,56, 4) = (/ &
+ & 0.79548E-08_JPRB,0.34985E-05_JPRB,0.53248E-05_JPRB,0.62066E-05_JPRB,0.35387E-05_JPRB /)  
+KB(:, 1,57, 4) = (/ &
+ & 0.37487E-08_JPRB,0.13177E-05_JPRB,0.20362E-05_JPRB,0.24278E-05_JPRB,0.15888E-05_JPRB /)  
+KB(:, 2,57, 4) = (/ &
+ & 0.41132E-08_JPRB,0.16006E-05_JPRB,0.24863E-05_JPRB,0.30001E-05_JPRB,0.18530E-05_JPRB /)  
+KB(:, 3,57, 4) = (/ &
+ & 0.45796E-08_JPRB,0.19301E-05_JPRB,0.29957E-05_JPRB,0.36053E-05_JPRB,0.21515E-05_JPRB /)  
+KB(:, 4,57, 4) = (/ &
+ & 0.52447E-08_JPRB,0.23301E-05_JPRB,0.35902E-05_JPRB,0.42690E-05_JPRB,0.24844E-05_JPRB /)  
+KB(:, 5,57, 4) = (/ &
+ & 0.61952E-08_JPRB,0.28175E-05_JPRB,0.42894E-05_JPRB,0.50133E-05_JPRB,0.28503E-05_JPRB /)  
+KB(:, 1,58, 4) = (/ &
+ & 0.30053E-08_JPRB,0.10419E-05_JPRB,0.16034E-05_JPRB,0.19071E-05_JPRB,0.12550E-05_JPRB /)  
+KB(:, 2,58, 4) = (/ &
+ & 0.32906E-08_JPRB,0.12717E-05_JPRB,0.19750E-05_JPRB,0.23751E-05_JPRB,0.14761E-05_JPRB /)  
+KB(:, 3,58, 4) = (/ &
+ & 0.36412E-08_JPRB,0.15413E-05_JPRB,0.23950E-05_JPRB,0.28817E-05_JPRB,0.17173E-05_JPRB /)  
+KB(:, 4,58, 4) = (/ &
+ & 0.41327E-08_JPRB,0.18673E-05_JPRB,0.28800E-05_JPRB,0.34301E-05_JPRB,0.19893E-05_JPRB /)  
+KB(:, 5,58, 4) = (/ &
+ & 0.48448E-08_JPRB,0.22699E-05_JPRB,0.34559E-05_JPRB,0.40496E-05_JPRB,0.22938E-05_JPRB /)  
+KB(:, 1,59, 4) = (/ &
+ & 0.24517E-08_JPRB,0.85367E-06_JPRB,0.13121E-05_JPRB,0.15587E-05_JPRB,0.10209E-05_JPRB /)  
+KB(:, 2,59, 4) = (/ &
+ & 0.26814E-08_JPRB,0.10459E-05_JPRB,0.16241E-05_JPRB,0.19505E-05_JPRB,0.12067E-05_JPRB /)  
+KB(:, 3,59, 4) = (/ &
+ & 0.29604E-08_JPRB,0.12726E-05_JPRB,0.19786E-05_JPRB,0.23765E-05_JPRB,0.14071E-05_JPRB /)  
+KB(:, 4,59, 4) = (/ &
+ & 0.33490E-08_JPRB,0.15486E-05_JPRB,0.23884E-05_JPRB,0.28393E-05_JPRB,0.16353E-05_JPRB /)  
+KB(:, 5,59, 4) = (/ &
+ & 0.39177E-08_JPRB,0.18923E-05_JPRB,0.28751E-05_JPRB,0.33648E-05_JPRB,0.18896E-05_JPRB /)  
+KB(:, 1,13, 5) = (/ &
+ & 0.10606E-02_JPRB,0.17616E-01_JPRB,0.26337E-01_JPRB,0.30832E-01_JPRB,0.23250E-01_JPRB /)  
+KB(:, 2,13, 5) = (/ &
+ & 0.11975E-02_JPRB,0.18851E-01_JPRB,0.27746E-01_JPRB,0.32191E-01_JPRB,0.24461E-01_JPRB /)  
+KB(:, 3,13, 5) = (/ &
+ & 0.13686E-02_JPRB,0.20236E-01_JPRB,0.29224E-01_JPRB,0.33409E-01_JPRB,0.25538E-01_JPRB /)  
+KB(:, 4,13, 5) = (/ &
+ & 0.15788E-02_JPRB,0.21686E-01_JPRB,0.30822E-01_JPRB,0.34581E-01_JPRB,0.26483E-01_JPRB /)  
+KB(:, 5,13, 5) = (/ &
+ & 0.18422E-02_JPRB,0.23201E-01_JPRB,0.32485E-01_JPRB,0.35791E-01_JPRB,0.27339E-01_JPRB /)  
+KB(:, 1,14, 5) = (/ &
+ & 0.90299E-03_JPRB,0.14939E-01_JPRB,0.22235E-01_JPRB,0.25969E-01_JPRB,0.19459E-01_JPRB /)  
+KB(:, 2,14, 5) = (/ &
+ & 0.10276E-02_JPRB,0.16043E-01_JPRB,0.23464E-01_JPRB,0.27102E-01_JPRB,0.20418E-01_JPRB /)  
+KB(:, 3,14, 5) = (/ &
+ & 0.11848E-02_JPRB,0.17244E-01_JPRB,0.24766E-01_JPRB,0.28137E-01_JPRB,0.21279E-01_JPRB /)  
+KB(:, 4,14, 5) = (/ &
+ & 0.13763E-02_JPRB,0.18494E-01_JPRB,0.26159E-01_JPRB,0.29141E-01_JPRB,0.22035E-01_JPRB /)  
+KB(:, 5,14, 5) = (/ &
+ & 0.16087E-02_JPRB,0.19801E-01_JPRB,0.27586E-01_JPRB,0.30208E-01_JPRB,0.22712E-01_JPRB /)  
+KB(:, 1,15, 5) = (/ &
+ & 0.76169E-03_JPRB,0.12657E-01_JPRB,0.18744E-01_JPRB,0.21807E-01_JPRB,0.16155E-01_JPRB /)  
+KB(:, 2,15, 5) = (/ &
+ & 0.87429E-03_JPRB,0.13622E-01_JPRB,0.19820E-01_JPRB,0.22753E-01_JPRB,0.16908E-01_JPRB /)  
+KB(:, 3,15, 5) = (/ &
+ & 0.10153E-02_JPRB,0.14650E-01_JPRB,0.20967E-01_JPRB,0.23637E-01_JPRB,0.17597E-01_JPRB /)  
+KB(:, 4,15, 5) = (/ &
+ & 0.11860E-02_JPRB,0.15728E-01_JPRB,0.22159E-01_JPRB,0.24521E-01_JPRB,0.18236E-01_JPRB /)  
+KB(:, 5,15, 5) = (/ &
+ & 0.13940E-02_JPRB,0.16855E-01_JPRB,0.23377E-01_JPRB,0.25442E-01_JPRB,0.18800E-01_JPRB /)  
+KB(:, 1,16, 5) = (/ &
+ & 0.63979E-03_JPRB,0.10716E-01_JPRB,0.15782E-01_JPRB,0.18280E-01_JPRB,0.13330E-01_JPRB /)  
+KB(:, 2,16, 5) = (/ &
+ & 0.73992E-03_JPRB,0.11550E-01_JPRB,0.16721E-01_JPRB,0.19074E-01_JPRB,0.13955E-01_JPRB /)  
+KB(:, 3,16, 5) = (/ &
+ & 0.86535E-03_JPRB,0.12432E-01_JPRB,0.17715E-01_JPRB,0.19835E-01_JPRB,0.14519E-01_JPRB /)  
+KB(:, 4,16, 5) = (/ &
+ & 0.10180E-02_JPRB,0.13358E-01_JPRB,0.18733E-01_JPRB,0.20612E-01_JPRB,0.15053E-01_JPRB /)  
+KB(:, 5,16, 5) = (/ &
+ & 0.12020E-02_JPRB,0.14330E-01_JPRB,0.19780E-01_JPRB,0.21390E-01_JPRB,0.15523E-01_JPRB /)  
+KB(:, 1,17, 5) = (/ &
+ & 0.53827E-03_JPRB,0.90675E-02_JPRB,0.13282E-01_JPRB,0.15310E-01_JPRB,0.11002E-01_JPRB /)  
+KB(:, 2,17, 5) = (/ &
+ & 0.62733E-03_JPRB,0.97818E-02_JPRB,0.14093E-01_JPRB,0.15985E-01_JPRB,0.11517E-01_JPRB /)  
+KB(:, 3,17, 5) = (/ &
+ & 0.73894E-03_JPRB,0.10536E-01_JPRB,0.14937E-01_JPRB,0.16642E-01_JPRB,0.11982E-01_JPRB /)  
+KB(:, 4,17, 5) = (/ &
+ & 0.87471E-03_JPRB,0.11329E-01_JPRB,0.15813E-01_JPRB,0.17308E-01_JPRB,0.12431E-01_JPRB /)  
+KB(:, 5,17, 5) = (/ &
+ & 0.10369E-02_JPRB,0.12167E-01_JPRB,0.16717E-01_JPRB,0.17966E-01_JPRB,0.12833E-01_JPRB /)  
+KB(:, 1,18, 5) = (/ &
+ & 0.45632E-03_JPRB,0.76631E-02_JPRB,0.11175E-01_JPRB,0.12821E-01_JPRB,0.91007E-02_JPRB /)  
+KB(:, 2,18, 5) = (/ &
+ & 0.53618E-03_JPRB,0.82741E-02_JPRB,0.11867E-01_JPRB,0.13402E-01_JPRB,0.95284E-02_JPRB /)  
+KB(:, 3,18, 5) = (/ &
+ & 0.63520E-03_JPRB,0.89179E-02_JPRB,0.12591E-01_JPRB,0.13960E-01_JPRB,0.99227E-02_JPRB /)  
+KB(:, 4,18, 5) = (/ &
+ & 0.75513E-03_JPRB,0.95966E-02_JPRB,0.13345E-01_JPRB,0.14529E-01_JPRB,0.10294E-01_JPRB /)  
+KB(:, 5,18, 5) = (/ &
+ & 0.89828E-03_JPRB,0.10325E-01_JPRB,0.14127E-01_JPRB,0.15082E-01_JPRB,0.10637E-01_JPRB /)  
+KB(:, 1,19, 5) = (/ &
+ & 0.38782E-03_JPRB,0.64686E-02_JPRB,0.93947E-02_JPRB,0.10738E-01_JPRB,0.75366E-02_JPRB /)  
+KB(:, 2,19, 5) = (/ &
+ & 0.45826E-03_JPRB,0.69872E-02_JPRB,0.99878E-02_JPRB,0.11230E-01_JPRB,0.78920E-02_JPRB /)  
+KB(:, 3,19, 5) = (/ &
+ & 0.54544E-03_JPRB,0.75386E-02_JPRB,0.10613E-01_JPRB,0.11706E-01_JPRB,0.82219E-02_JPRB /)  
+KB(:, 4,19, 5) = (/ &
+ & 0.65085E-03_JPRB,0.81243E-02_JPRB,0.11261E-01_JPRB,0.12183E-01_JPRB,0.85447E-02_JPRB /)  
+KB(:, 5,19, 5) = (/ &
+ & 0.77601E-03_JPRB,0.87598E-02_JPRB,0.11933E-01_JPRB,0.12660E-01_JPRB,0.88388E-02_JPRB /)  
+KB(:, 1,20, 5) = (/ &
+ & 0.33304E-03_JPRB,0.54623E-02_JPRB,0.79028E-02_JPRB,0.89960E-02_JPRB,0.62635E-02_JPRB /)  
+KB(:, 2,20, 5) = (/ &
+ & 0.39553E-03_JPRB,0.59055E-02_JPRB,0.84155E-02_JPRB,0.94111E-02_JPRB,0.65613E-02_JPRB /)  
+KB(:, 3,20, 5) = (/ &
+ & 0.47180E-03_JPRB,0.63779E-02_JPRB,0.89500E-02_JPRB,0.98172E-02_JPRB,0.68459E-02_JPRB /)  
+KB(:, 4,20, 5) = (/ &
+ & 0.56453E-03_JPRB,0.68862E-02_JPRB,0.95048E-02_JPRB,0.10225E-01_JPRB,0.71246E-02_JPRB /)  
+KB(:, 5,20, 5) = (/ &
+ & 0.67486E-03_JPRB,0.74411E-02_JPRB,0.10082E-01_JPRB,0.10637E-01_JPRB,0.73786E-02_JPRB /)  
+KB(:, 1,21, 5) = (/ &
+ & 0.28693E-03_JPRB,0.46180E-02_JPRB,0.66504E-02_JPRB,0.75379E-02_JPRB,0.52071E-02_JPRB /)  
+KB(:, 2,21, 5) = (/ &
+ & 0.34180E-03_JPRB,0.49948E-02_JPRB,0.70898E-02_JPRB,0.78866E-02_JPRB,0.54645E-02_JPRB /)  
+KB(:, 3,21, 5) = (/ &
+ & 0.40811E-03_JPRB,0.54006E-02_JPRB,0.75474E-02_JPRB,0.82331E-02_JPRB,0.57127E-02_JPRB /)  
+KB(:, 4,21, 5) = (/ &
+ & 0.48873E-03_JPRB,0.58434E-02_JPRB,0.80212E-02_JPRB,0.85844E-02_JPRB,0.59470E-02_JPRB /)  
+KB(:, 5,21, 5) = (/ &
+ & 0.58593E-03_JPRB,0.63260E-02_JPRB,0.85182E-02_JPRB,0.89408E-02_JPRB,0.61662E-02_JPRB /)  
+KB(:, 1,22, 5) = (/ &
+ & 0.24974E-03_JPRB,0.39240E-02_JPRB,0.56208E-02_JPRB,0.63345E-02_JPRB,0.43431E-02_JPRB /)  
+KB(:, 2,22, 5) = (/ &
+ & 0.29749E-03_JPRB,0.42526E-02_JPRB,0.59996E-02_JPRB,0.66266E-02_JPRB,0.45624E-02_JPRB /)  
+KB(:, 3,22, 5) = (/ &
+ & 0.35608E-03_JPRB,0.46047E-02_JPRB,0.63919E-02_JPRB,0.69259E-02_JPRB,0.47738E-02_JPRB /)  
+KB(:, 4,22, 5) = (/ &
+ & 0.42699E-03_JPRB,0.49920E-02_JPRB,0.67993E-02_JPRB,0.72276E-02_JPRB,0.49714E-02_JPRB /)  
+KB(:, 5,22, 5) = (/ &
+ & 0.51198E-03_JPRB,0.54166E-02_JPRB,0.72302E-02_JPRB,0.75387E-02_JPRB,0.51660E-02_JPRB /)  
+KB(:, 1,23, 5) = (/ &
+ & 0.21716E-03_JPRB,0.33375E-02_JPRB,0.47528E-02_JPRB,0.53238E-02_JPRB,0.36258E-02_JPRB /)  
+KB(:, 2,23, 5) = (/ &
+ & 0.25886E-03_JPRB,0.36243E-02_JPRB,0.50797E-02_JPRB,0.55740E-02_JPRB,0.38107E-02_JPRB /)  
+KB(:, 3,23, 5) = (/ &
+ & 0.31026E-03_JPRB,0.39353E-02_JPRB,0.54169E-02_JPRB,0.58309E-02_JPRB,0.39876E-02_JPRB /)  
+KB(:, 4,23, 5) = (/ &
+ & 0.37235E-03_JPRB,0.42757E-02_JPRB,0.57711E-02_JPRB,0.60911E-02_JPRB,0.41586E-02_JPRB /)  
+KB(:, 5,23, 5) = (/ &
+ & 0.44568E-03_JPRB,0.46463E-02_JPRB,0.61476E-02_JPRB,0.63633E-02_JPRB,0.43277E-02_JPRB /)  
+KB(:, 1,24, 5) = (/ &
+ & 0.18738E-03_JPRB,0.28412E-02_JPRB,0.40251E-02_JPRB,0.44754E-02_JPRB,0.30232E-02_JPRB /)  
+KB(:, 2,24, 5) = (/ &
+ & 0.22422E-03_JPRB,0.30930E-02_JPRB,0.43062E-02_JPRB,0.46921E-02_JPRB,0.31788E-02_JPRB /)  
+KB(:, 3,24, 5) = (/ &
+ & 0.26942E-03_JPRB,0.33694E-02_JPRB,0.45983E-02_JPRB,0.49126E-02_JPRB,0.33287E-02_JPRB /)  
+KB(:, 4,24, 5) = (/ &
+ & 0.32317E-03_JPRB,0.36702E-02_JPRB,0.49092E-02_JPRB,0.51393E-02_JPRB,0.34771E-02_JPRB /)  
+KB(:, 5,24, 5) = (/ &
+ & 0.38638E-03_JPRB,0.39951E-02_JPRB,0.52385E-02_JPRB,0.53815E-02_JPRB,0.36232E-02_JPRB /)  
+KB(:, 1,25, 5) = (/ &
+ & 0.16224E-03_JPRB,0.24232E-02_JPRB,0.34141E-02_JPRB,0.37661E-02_JPRB,0.25262E-02_JPRB /)  
+KB(:, 2,25, 5) = (/ &
+ & 0.19465E-03_JPRB,0.26463E-02_JPRB,0.36575E-02_JPRB,0.39541E-02_JPRB,0.26577E-02_JPRB /)  
+KB(:, 3,25, 5) = (/ &
+ & 0.23391E-03_JPRB,0.28936E-02_JPRB,0.39130E-02_JPRB,0.41446E-02_JPRB,0.27841E-02_JPRB /)  
+KB(:, 4,25, 5) = (/ &
+ & 0.28044E-03_JPRB,0.31598E-02_JPRB,0.41853E-02_JPRB,0.43442E-02_JPRB,0.29098E-02_JPRB /)  
+KB(:, 5,25, 5) = (/ &
+ & 0.33483E-03_JPRB,0.34437E-02_JPRB,0.44735E-02_JPRB,0.45625E-02_JPRB,0.30351E-02_JPRB /)  
+KB(:, 1,26, 5) = (/ &
+ & 0.14132E-03_JPRB,0.20737E-02_JPRB,0.29036E-02_JPRB,0.31762E-02_JPRB,0.21157E-02_JPRB /)  
+KB(:, 2,26, 5) = (/ &
+ & 0.16977E-03_JPRB,0.22743E-02_JPRB,0.31152E-02_JPRB,0.33382E-02_JPRB,0.22258E-02_JPRB /)  
+KB(:, 3,26, 5) = (/ &
+ & 0.20409E-03_JPRB,0.24947E-02_JPRB,0.33401E-02_JPRB,0.35048E-02_JPRB,0.23338E-02_JPRB /)  
+KB(:, 4,26, 5) = (/ &
+ & 0.24472E-03_JPRB,0.27297E-02_JPRB,0.35798E-02_JPRB,0.36835E-02_JPRB,0.24421E-02_JPRB /)  
+KB(:, 5,26, 5) = (/ &
+ & 0.29131E-03_JPRB,0.29804E-02_JPRB,0.38308E-02_JPRB,0.38797E-02_JPRB,0.25500E-02_JPRB /)  
+KB(:, 1,27, 5) = (/ &
+ & 0.12293E-03_JPRB,0.17797E-02_JPRB,0.24725E-02_JPRB,0.26822E-02_JPRB,0.17718E-02_JPRB /)  
+KB(:, 2,27, 5) = (/ &
+ & 0.14789E-03_JPRB,0.19595E-02_JPRB,0.26584E-02_JPRB,0.28222E-02_JPRB,0.18655E-02_JPRB /)  
+KB(:, 3,27, 5) = (/ &
+ & 0.17790E-03_JPRB,0.21552E-02_JPRB,0.28584E-02_JPRB,0.29695E-02_JPRB,0.19589E-02_JPRB /)  
+KB(:, 4,27, 5) = (/ &
+ & 0.21315E-03_JPRB,0.23624E-02_JPRB,0.30688E-02_JPRB,0.31309E-02_JPRB,0.20520E-02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART18',1,ZHOOK_HANDLE)
+END SUBROUTINE PART18
+
+
+SUBROUTINE PART19
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART19',0,ZHOOK_HANDLE)
+
+
+KB(:, 5,27, 5) = (/ &
+ & 0.25285E-03_JPRB,0.25825E-02_JPRB,0.32876E-02_JPRB,0.33068E-02_JPRB,0.21445E-02_JPRB /)  
+KB(:, 1,28, 5) = (/ &
+ & 0.10657E-03_JPRB,0.15319E-02_JPRB,0.21096E-02_JPRB,0.22678E-02_JPRB,0.14844E-02_JPRB /)  
+KB(:, 2,28, 5) = (/ &
+ & 0.12856E-03_JPRB,0.16920E-02_JPRB,0.22743E-02_JPRB,0.23899E-02_JPRB,0.15639E-02_JPRB /)  
+KB(:, 3,28, 5) = (/ &
+ & 0.15471E-03_JPRB,0.18636E-02_JPRB,0.24511E-02_JPRB,0.25221E-02_JPRB,0.16436E-02_JPRB /)  
+KB(:, 4,28, 5) = (/ &
+ & 0.18512E-03_JPRB,0.20472E-02_JPRB,0.26364E-02_JPRB,0.26681E-02_JPRB,0.17238E-02_JPRB /)  
+KB(:, 5,28, 5) = (/ &
+ & 0.21872E-03_JPRB,0.22411E-02_JPRB,0.28270E-02_JPRB,0.28260E-02_JPRB,0.18048E-02_JPRB /)  
+KB(:, 1,29, 5) = (/ &
+ & 0.92876E-04_JPRB,0.13237E-02_JPRB,0.18049E-02_JPRB,0.19214E-02_JPRB,0.12471E-02_JPRB /)  
+KB(:, 2,29, 5) = (/ &
+ & 0.11226E-03_JPRB,0.14659E-02_JPRB,0.19518E-02_JPRB,0.20295E-02_JPRB,0.13143E-02_JPRB /)  
+KB(:, 3,29, 5) = (/ &
+ & 0.13519E-03_JPRB,0.16171E-02_JPRB,0.21089E-02_JPRB,0.21498E-02_JPRB,0.13833E-02_JPRB /)  
+KB(:, 4,29, 5) = (/ &
+ & 0.16102E-03_JPRB,0.17778E-02_JPRB,0.22703E-02_JPRB,0.22810E-02_JPRB,0.14528E-02_JPRB /)  
+KB(:, 5,29, 5) = (/ &
+ & 0.18981E-03_JPRB,0.19484E-02_JPRB,0.24374E-02_JPRB,0.24249E-02_JPRB,0.15236E-02_JPRB /)  
+KB(:, 1,30, 5) = (/ &
+ & 0.80828E-04_JPRB,0.11471E-02_JPRB,0.15486E-02_JPRB,0.16307E-02_JPRB,0.10482E-02_JPRB /)  
+KB(:, 2,30, 5) = (/ &
+ & 0.98063E-04_JPRB,0.12718E-02_JPRB,0.16797E-02_JPRB,0.17287E-02_JPRB,0.11053E-02_JPRB /)  
+KB(:, 3,30, 5) = (/ &
+ & 0.11772E-03_JPRB,0.14050E-02_JPRB,0.18177E-02_JPRB,0.18379E-02_JPRB,0.11648E-02_JPRB /)  
+KB(:, 4,30, 5) = (/ &
+ & 0.13981E-03_JPRB,0.15469E-02_JPRB,0.19589E-02_JPRB,0.19565E-02_JPRB,0.12258E-02_JPRB /)  
+KB(:, 5,30, 5) = (/ &
+ & 0.16446E-03_JPRB,0.16947E-02_JPRB,0.21055E-02_JPRB,0.20874E-02_JPRB,0.12885E-02_JPRB /)  
+KB(:, 1,31, 5) = (/ &
+ & 0.70539E-04_JPRB,0.99621E-03_JPRB,0.13325E-02_JPRB,0.13879E-02_JPRB,0.88220E-03_JPRB /)  
+KB(:, 2,31, 5) = (/ &
+ & 0.85589E-04_JPRB,0.11063E-02_JPRB,0.14492E-02_JPRB,0.14776E-02_JPRB,0.93113E-03_JPRB /)  
+KB(:, 3,31, 5) = (/ &
+ & 0.10244E-03_JPRB,0.12240E-02_JPRB,0.15701E-02_JPRB,0.15764E-02_JPRB,0.98237E-03_JPRB /)  
+KB(:, 4,31, 5) = (/ &
+ & 0.12151E-03_JPRB,0.13488E-02_JPRB,0.16942E-02_JPRB,0.16846E-02_JPRB,0.10364E-02_JPRB /)  
+KB(:, 5,31, 5) = (/ &
+ & 0.14245E-03_JPRB,0.14753E-02_JPRB,0.18229E-02_JPRB,0.18042E-02_JPRB,0.10910E-02_JPRB /)  
+KB(:, 1,32, 5) = (/ &
+ & 0.61598E-04_JPRB,0.86708E-03_JPRB,0.11506E-02_JPRB,0.11857E-02_JPRB,0.74396E-03_JPRB /)  
+KB(:, 2,32, 5) = (/ &
+ & 0.74698E-04_JPRB,0.96443E-03_JPRB,0.12533E-02_JPRB,0.12673E-02_JPRB,0.78590E-03_JPRB /)  
+KB(:, 3,32, 5) = (/ &
+ & 0.89092E-04_JPRB,0.10684E-02_JPRB,0.13590E-02_JPRB,0.13571E-02_JPRB,0.83090E-03_JPRB /)  
+KB(:, 4,32, 5) = (/ &
+ & 0.10537E-03_JPRB,0.11766E-02_JPRB,0.14682E-02_JPRB,0.14560E-02_JPRB,0.87827E-03_JPRB /)  
+KB(:, 5,32, 5) = (/ &
+ & 0.12327E-03_JPRB,0.12850E-02_JPRB,0.15813E-02_JPRB,0.15643E-02_JPRB,0.92599E-03_JPRB /)  
+KB(:, 1,33, 5) = (/ &
+ & 0.53748E-04_JPRB,0.75629E-03_JPRB,0.99595E-03_JPRB,0.10163E-02_JPRB,0.62809E-03_JPRB /)  
+KB(:, 2,33, 5) = (/ &
+ & 0.64972E-04_JPRB,0.84265E-03_JPRB,0.10856E-02_JPRB,0.10908E-02_JPRB,0.66416E-03_JPRB /)  
+KB(:, 3,33, 5) = (/ &
+ & 0.77386E-04_JPRB,0.93397E-03_JPRB,0.11787E-02_JPRB,0.11727E-02_JPRB,0.70387E-03_JPRB /)  
+KB(:, 4,33, 5) = (/ &
+ & 0.91138E-04_JPRB,0.10266E-02_JPRB,0.12749E-02_JPRB,0.12630E-02_JPRB,0.74507E-03_JPRB /)  
+KB(:, 5,33, 5) = (/ &
+ & 0.10640E-03_JPRB,0.11189E-02_JPRB,0.13738E-02_JPRB,0.13608E-02_JPRB,0.78830E-03_JPRB /)  
+KB(:, 1,34, 5) = (/ &
+ & 0.46667E-04_JPRB,0.65884E-03_JPRB,0.86049E-03_JPRB,0.87214E-03_JPRB,0.53099E-03_JPRB /)  
+KB(:, 2,34, 5) = (/ &
+ & 0.56263E-04_JPRB,0.73490E-03_JPRB,0.93900E-03_JPRB,0.93946E-03_JPRB,0.56278E-03_JPRB /)  
+KB(:, 3,34, 5) = (/ &
+ & 0.66853E-04_JPRB,0.81383E-03_JPRB,0.10209E-02_JPRB,0.10142E-02_JPRB,0.59776E-03_JPRB /)  
+KB(:, 4,34, 5) = (/ &
+ & 0.78598E-04_JPRB,0.89314E-03_JPRB,0.11054E-02_JPRB,0.10963E-02_JPRB,0.63419E-03_JPRB /)  
+KB(:, 5,34, 5) = (/ &
+ & 0.91503E-04_JPRB,0.97193E-03_JPRB,0.11927E-02_JPRB,0.11840E-02_JPRB,0.67320E-03_JPRB /)  
+KB(:, 1,35, 5) = (/ &
+ & 0.39599E-04_JPRB,0.56866E-03_JPRB,0.73803E-03_JPRB,0.74491E-03_JPRB,0.44688E-03_JPRB /)  
+KB(:, 2,35, 5) = (/ &
+ & 0.47677E-04_JPRB,0.63490E-03_JPRB,0.80685E-03_JPRB,0.80540E-03_JPRB,0.47466E-03_JPRB /)  
+KB(:, 3,35, 5) = (/ &
+ & 0.56630E-04_JPRB,0.70279E-03_JPRB,0.87860E-03_JPRB,0.87332E-03_JPRB,0.50476E-03_JPRB /)  
+KB(:, 4,35, 5) = (/ &
+ & 0.66506E-04_JPRB,0.77061E-03_JPRB,0.95262E-03_JPRB,0.94676E-03_JPRB,0.53730E-03_JPRB /)  
+KB(:, 5,35, 5) = (/ &
+ & 0.77343E-04_JPRB,0.83870E-03_JPRB,0.10295E-02_JPRB,0.10250E-02_JPRB,0.57200E-03_JPRB /)  
+KB(:, 1,36, 5) = (/ &
+ & 0.32767E-04_JPRB,0.48523E-03_JPRB,0.62751E-03_JPRB,0.63183E-03_JPRB,0.37353E-03_JPRB /)  
+KB(:, 2,36, 5) = (/ &
+ & 0.39450E-04_JPRB,0.54261E-03_JPRB,0.68744E-03_JPRB,0.68587E-03_JPRB,0.39744E-03_JPRB /)  
+KB(:, 3,36, 5) = (/ &
+ & 0.46861E-04_JPRB,0.60093E-03_JPRB,0.74977E-03_JPRB,0.74623E-03_JPRB,0.42315E-03_JPRB /)  
+KB(:, 4,36, 5) = (/ &
+ & 0.54956E-04_JPRB,0.65916E-03_JPRB,0.81469E-03_JPRB,0.81158E-03_JPRB,0.45144E-03_JPRB /)  
+KB(:, 5,36, 5) = (/ &
+ & 0.63908E-04_JPRB,0.71820E-03_JPRB,0.88212E-03_JPRB,0.88103E-03_JPRB,0.48165E-03_JPRB /)  
+KB(:, 1,37, 5) = (/ &
+ & 0.26734E-04_JPRB,0.40754E-03_JPRB,0.52645E-03_JPRB,0.53014E-03_JPRB,0.31118E-03_JPRB /)  
+KB(:, 2,37, 5) = (/ &
+ & 0.32273E-04_JPRB,0.45661E-03_JPRB,0.57825E-03_JPRB,0.57766E-03_JPRB,0.33206E-03_JPRB /)  
+KB(:, 3,37, 5) = (/ &
+ & 0.38488E-04_JPRB,0.50697E-03_JPRB,0.63245E-03_JPRB,0.63058E-03_JPRB,0.35476E-03_JPRB /)  
+KB(:, 4,37, 5) = (/ &
+ & 0.45228E-04_JPRB,0.55706E-03_JPRB,0.68918E-03_JPRB,0.68809E-03_JPRB,0.37944E-03_JPRB /)  
+KB(:, 5,37, 5) = (/ &
+ & 0.52675E-04_JPRB,0.60808E-03_JPRB,0.74794E-03_JPRB,0.74934E-03_JPRB,0.40598E-03_JPRB /)  
+KB(:, 1,38, 5) = (/ &
+ & 0.21751E-04_JPRB,0.34209E-03_JPRB,0.44146E-03_JPRB,0.44458E-03_JPRB,0.25920E-03_JPRB /)  
+KB(:, 2,38, 5) = (/ &
+ & 0.26326E-04_JPRB,0.38415E-03_JPRB,0.48603E-03_JPRB,0.48632E-03_JPRB,0.27730E-03_JPRB /)  
+KB(:, 3,38, 5) = (/ &
+ & 0.31515E-04_JPRB,0.42736E-03_JPRB,0.53325E-03_JPRB,0.53262E-03_JPRB,0.29714E-03_JPRB /)  
+KB(:, 4,38, 5) = (/ &
+ & 0.37219E-04_JPRB,0.47064E-03_JPRB,0.58263E-03_JPRB,0.58321E-03_JPRB,0.31890E-03_JPRB /)  
+KB(:, 5,38, 5) = (/ &
+ & 0.43344E-04_JPRB,0.51493E-03_JPRB,0.63402E-03_JPRB,0.63729E-03_JPRB,0.34212E-03_JPRB /)  
+KB(:, 1,39, 5) = (/ &
+ & 0.17643E-04_JPRB,0.28717E-03_JPRB,0.37020E-03_JPRB,0.37288E-03_JPRB,0.21580E-03_JPRB /)  
+KB(:, 2,39, 5) = (/ &
+ & 0.21418E-04_JPRB,0.32343E-03_JPRB,0.40871E-03_JPRB,0.40953E-03_JPRB,0.23151E-03_JPRB /)  
+KB(:, 3,39, 5) = (/ &
+ & 0.25725E-04_JPRB,0.36044E-03_JPRB,0.44966E-03_JPRB,0.45005E-03_JPRB,0.24880E-03_JPRB /)  
+KB(:, 4,39, 5) = (/ &
+ & 0.30479E-04_JPRB,0.39785E-03_JPRB,0.49263E-03_JPRB,0.49445E-03_JPRB,0.26783E-03_JPRB /)  
+KB(:, 5,39, 5) = (/ &
+ & 0.35653E-04_JPRB,0.43646E-03_JPRB,0.53771E-03_JPRB,0.54230E-03_JPRB,0.28822E-03_JPRB /)  
+KB(:, 1,40, 5) = (/ &
+ & 0.14102E-04_JPRB,0.23814E-03_JPRB,0.30730E-03_JPRB,0.30981E-03_JPRB,0.17864E-03_JPRB /)  
+KB(:, 2,40, 5) = (/ &
+ & 0.17187E-04_JPRB,0.26934E-03_JPRB,0.34039E-03_JPRB,0.34146E-03_JPRB,0.19234E-03_JPRB /)  
+KB(:, 3,40, 5) = (/ &
+ & 0.20739E-04_JPRB,0.30130E-03_JPRB,0.37571E-03_JPRB,0.37672E-03_JPRB,0.20737E-03_JPRB /)  
+KB(:, 4,40, 5) = (/ &
+ & 0.24670E-04_JPRB,0.33333E-03_JPRB,0.41283E-03_JPRB,0.41538E-03_JPRB,0.22408E-03_JPRB /)  
+KB(:, 5,40, 5) = (/ &
+ & 0.29046E-04_JPRB,0.36694E-03_JPRB,0.45216E-03_JPRB,0.45729E-03_JPRB,0.24187E-03_JPRB /)  
+KB(:, 1,41, 5) = (/ &
+ & 0.11221E-04_JPRB,0.19710E-03_JPRB,0.25465E-03_JPRB,0.25696E-03_JPRB,0.14773E-03_JPRB /)  
+KB(:, 2,41, 5) = (/ &
+ & 0.13747E-04_JPRB,0.22390E-03_JPRB,0.28305E-03_JPRB,0.28413E-03_JPRB,0.15955E-03_JPRB /)  
+KB(:, 3,41, 5) = (/ &
+ & 0.16649E-04_JPRB,0.25145E-03_JPRB,0.31346E-03_JPRB,0.31467E-03_JPRB,0.17269E-03_JPRB /)  
+KB(:, 4,41, 5) = (/ &
+ & 0.19899E-04_JPRB,0.27935E-03_JPRB,0.34563E-03_JPRB,0.34845E-03_JPRB,0.18718E-03_JPRB /)  
+KB(:, 5,41, 5) = (/ &
+ & 0.23568E-04_JPRB,0.30830E-03_JPRB,0.37974E-03_JPRB,0.38512E-03_JPRB,0.20281E-03_JPRB /)  
+KB(:, 1,42, 5) = (/ &
+ & 0.89147E-05_JPRB,0.16314E-03_JPRB,0.21088E-03_JPRB,0.21294E-03_JPRB,0.12205E-03_JPRB /)  
+KB(:, 2,42, 5) = (/ &
+ & 0.10957E-04_JPRB,0.18596E-03_JPRB,0.23523E-03_JPRB,0.23628E-03_JPRB,0.13225E-03_JPRB /)  
+KB(:, 3,42, 5) = (/ &
+ & 0.13327E-04_JPRB,0.20974E-03_JPRB,0.26134E-03_JPRB,0.26263E-03_JPRB,0.14356E-03_JPRB /)  
+KB(:, 4,42, 5) = (/ &
+ & 0.16005E-04_JPRB,0.23378E-03_JPRB,0.28925E-03_JPRB,0.29202E-03_JPRB,0.15621E-03_JPRB /)  
+KB(:, 5,42, 5) = (/ &
+ & 0.19038E-04_JPRB,0.25914E-03_JPRB,0.31897E-03_JPRB,0.32415E-03_JPRB,0.16982E-03_JPRB /)  
+KB(:, 1,43, 5) = (/ &
+ & 0.69995E-05_JPRB,0.13405E-03_JPRB,0.17338E-03_JPRB,0.17535E-03_JPRB,0.10036E-03_JPRB /)  
+KB(:, 2,43, 5) = (/ &
+ & 0.86406E-05_JPRB,0.15345E-03_JPRB,0.19416E-03_JPRB,0.19514E-03_JPRB,0.10910E-03_JPRB /)  
+KB(:, 3,43, 5) = (/ &
+ & 0.10556E-04_JPRB,0.17373E-03_JPRB,0.21659E-03_JPRB,0.21767E-03_JPRB,0.11887E-03_JPRB /)  
+KB(:, 4,43, 5) = (/ &
+ & 0.12739E-04_JPRB,0.19445E-03_JPRB,0.24053E-03_JPRB,0.24311E-03_JPRB,0.12980E-03_JPRB /)  
+KB(:, 5,43, 5) = (/ &
+ & 0.15232E-04_JPRB,0.21640E-03_JPRB,0.26645E-03_JPRB,0.27107E-03_JPRB,0.14169E-03_JPRB /)  
+KB(:, 1,44, 5) = (/ &
+ & 0.54712E-05_JPRB,0.10970E-03_JPRB,0.14195E-03_JPRB,0.14386E-03_JPRB,0.82260E-04_JPRB /)  
+KB(:, 2,44, 5) = (/ &
+ & 0.67644E-05_JPRB,0.12612E-03_JPRB,0.15963E-03_JPRB,0.16061E-03_JPRB,0.89727E-04_JPRB /)  
+KB(:, 3,44, 5) = (/ &
+ & 0.82973E-05_JPRB,0.14348E-03_JPRB,0.17878E-03_JPRB,0.17975E-03_JPRB,0.98122E-04_JPRB /)  
+KB(:, 4,44, 5) = (/ &
+ & 0.10082E-04_JPRB,0.16132E-03_JPRB,0.19952E-03_JPRB,0.20155E-03_JPRB,0.10755E-03_JPRB /)  
+KB(:, 5,44, 5) = (/ &
+ & 0.12107E-04_JPRB,0.18008E-03_JPRB,0.22179E-03_JPRB,0.22576E-03_JPRB,0.11787E-03_JPRB /)  
+KB(:, 1,45, 5) = (/ &
+ & 0.42767E-05_JPRB,0.89680E-04_JPRB,0.11611E-03_JPRB,0.11781E-03_JPRB,0.67338E-04_JPRB /)  
+KB(:, 2,45, 5) = (/ &
+ & 0.52860E-05_JPRB,0.10360E-03_JPRB,0.13107E-03_JPRB,0.13203E-03_JPRB,0.73722E-04_JPRB /)  
+KB(:, 3,45, 5) = (/ &
+ & 0.65107E-05_JPRB,0.11838E-03_JPRB,0.14735E-03_JPRB,0.14829E-03_JPRB,0.80852E-04_JPRB /)  
+KB(:, 4,45, 5) = (/ &
+ & 0.79501E-05_JPRB,0.13374E-03_JPRB,0.16520E-03_JPRB,0.16693E-03_JPRB,0.88969E-04_JPRB /)  
+KB(:, 5,45, 5) = (/ &
+ & 0.95937E-05_JPRB,0.14993E-03_JPRB,0.18456E-03_JPRB,0.18781E-03_JPRB,0.97897E-04_JPRB /)  
+KB(:, 1,46, 5) = (/ &
+ & 0.33226E-05_JPRB,0.72918E-04_JPRB,0.94635E-04_JPRB,0.96069E-04_JPRB,0.54912E-04_JPRB /)  
+KB(:, 2,46, 5) = (/ &
+ & 0.41185E-05_JPRB,0.84705E-04_JPRB,0.10726E-03_JPRB,0.10809E-03_JPRB,0.60325E-04_JPRB /)  
+KB(:, 3,46, 5) = (/ &
+ & 0.50796E-05_JPRB,0.97414E-04_JPRB,0.12106E-03_JPRB,0.12184E-03_JPRB,0.66415E-04_JPRB /)  
+KB(:, 4,46, 5) = (/ &
+ & 0.62311E-05_JPRB,0.11055E-03_JPRB,0.13625E-03_JPRB,0.13772E-03_JPRB,0.73354E-04_JPRB /)  
+KB(:, 5,46, 5) = (/ &
+ & 0.75594E-05_JPRB,0.12439E-03_JPRB,0.15297E-03_JPRB,0.15569E-03_JPRB,0.80972E-04_JPRB /)  
+KB(:, 1,47, 5) = (/ &
+ & 0.25507E-05_JPRB,0.58753E-04_JPRB,0.76599E-04_JPRB,0.77798E-04_JPRB,0.44508E-04_JPRB /)  
+KB(:, 2,47, 5) = (/ &
+ & 0.31800E-05_JPRB,0.68679E-04_JPRB,0.87240E-04_JPRB,0.87843E-04_JPRB,0.49115E-04_JPRB /)  
+KB(:, 3,47, 5) = (/ &
+ & 0.39273E-05_JPRB,0.79497E-04_JPRB,0.98871E-04_JPRB,0.99421E-04_JPRB,0.54249E-04_JPRB /)  
+KB(:, 4,47, 5) = (/ &
+ & 0.48346E-05_JPRB,0.90782E-04_JPRB,0.11173E-03_JPRB,0.11282E-03_JPRB,0.60113E-04_JPRB /)  
+KB(:, 5,47, 5) = (/ &
+ & 0.58995E-05_JPRB,0.10267E-03_JPRB,0.12592E-03_JPRB,0.12815E-03_JPRB,0.66656E-04_JPRB /)  
+KB(:, 1,48, 5) = (/ &
+ & 0.19539E-05_JPRB,0.47174E-04_JPRB,0.61874E-04_JPRB,0.62916E-04_JPRB,0.35973E-04_JPRB /)  
+KB(:, 2,48, 5) = (/ &
+ & 0.24452E-05_JPRB,0.55575E-04_JPRB,0.70853E-04_JPRB,0.71238E-04_JPRB,0.39898E-04_JPRB /)  
+KB(:, 3,48, 5) = (/ &
+ & 0.30402E-05_JPRB,0.64783E-04_JPRB,0.80633E-04_JPRB,0.80921E-04_JPRB,0.44214E-04_JPRB /)  
+KB(:, 4,48, 5) = (/ &
+ & 0.37390E-05_JPRB,0.74439E-04_JPRB,0.91498E-04_JPRB,0.92208E-04_JPRB,0.49162E-04_JPRB /)  
+KB(:, 5,48, 5) = (/ &
+ & 0.45836E-05_JPRB,0.84608E-04_JPRB,0.10358E-03_JPRB,0.10531E-03_JPRB,0.54702E-04_JPRB /)  
+KB(:, 1,49, 5) = (/ &
+ & 0.14940E-05_JPRB,0.37716E-04_JPRB,0.49829E-04_JPRB,0.50804E-04_JPRB,0.28987E-04_JPRB /)  
+KB(:, 2,49, 5) = (/ &
+ & 0.18758E-05_JPRB,0.44777E-04_JPRB,0.57392E-04_JPRB,0.57697E-04_JPRB,0.32317E-04_JPRB /)  
+KB(:, 3,49, 5) = (/ &
+ & 0.23413E-05_JPRB,0.52604E-04_JPRB,0.65608E-04_JPRB,0.65748E-04_JPRB,0.35946E-04_JPRB /)  
+KB(:, 4,49, 5) = (/ &
+ & 0.28961E-05_JPRB,0.60891E-04_JPRB,0.74824E-04_JPRB,0.75182E-04_JPRB,0.40099E-04_JPRB /)  
+KB(:, 5,49, 5) = (/ &
+ & 0.35524E-05_JPRB,0.69587E-04_JPRB,0.85068E-04_JPRB,0.86295E-04_JPRB,0.44804E-04_JPRB /)  
+KB(:, 1,50, 5) = (/ &
+ & 0.11500E-05_JPRB,0.30169E-04_JPRB,0.40157E-04_JPRB,0.41069E-04_JPRB,0.23362E-04_JPRB /)  
+KB(:, 2,50, 5) = (/ &
+ & 0.14453E-05_JPRB,0.36089E-04_JPRB,0.46549E-04_JPRB,0.46799E-04_JPRB,0.26193E-04_JPRB /)  
+KB(:, 3,50, 5) = (/ &
+ & 0.18129E-05_JPRB,0.42735E-04_JPRB,0.53474E-04_JPRB,0.53514E-04_JPRB,0.29249E-04_JPRB /)  
+KB(:, 4,50, 5) = (/ &
+ & 0.22529E-05_JPRB,0.49843E-04_JPRB,0.61234E-04_JPRB,0.61404E-04_JPRB,0.32748E-04_JPRB /)  
+KB(:, 5,50, 5) = (/ &
+ & 0.27762E-05_JPRB,0.57328E-04_JPRB,0.70027E-04_JPRB,0.70783E-04_JPRB,0.36712E-04_JPRB /)  
+KB(:, 1,51, 5) = (/ &
+ & 0.88851E-06_JPRB,0.24095E-04_JPRB,0.32303E-04_JPRB,0.33210E-04_JPRB,0.18805E-04_JPRB /)  
+KB(:, 2,51, 5) = (/ &
+ & 0.11177E-05_JPRB,0.29082E-04_JPRB,0.37705E-04_JPRB,0.37944E-04_JPRB,0.21209E-04_JPRB /)  
+KB(:, 3,51, 5) = (/ &
+ & 0.14060E-05_JPRB,0.34667E-04_JPRB,0.43578E-04_JPRB,0.43570E-04_JPRB,0.23792E-04_JPRB /)  
+KB(:, 4,51, 5) = (/ &
+ & 0.17539E-05_JPRB,0.40739E-04_JPRB,0.50114E-04_JPRB,0.50172E-04_JPRB,0.26720E-04_JPRB /)  
+KB(:, 5,51, 5) = (/ &
+ & 0.21729E-05_JPRB,0.47224E-04_JPRB,0.57598E-04_JPRB,0.58070E-04_JPRB,0.30079E-04_JPRB /)  
+KB(:, 1,52, 5) = (/ &
+ & 0.68525E-06_JPRB,0.19178E-04_JPRB,0.25896E-04_JPRB,0.26809E-04_JPRB,0.15097E-04_JPRB /)  
+KB(:, 2,52, 5) = (/ &
+ & 0.86301E-06_JPRB,0.23336E-04_JPRB,0.30434E-04_JPRB,0.30713E-04_JPRB,0.17120E-04_JPRB /)  
+KB(:, 3,52, 5) = (/ &
+ & 0.10889E-05_JPRB,0.28028E-04_JPRB,0.35422E-04_JPRB,0.35397E-04_JPRB,0.19301E-04_JPRB /)  
+KB(:, 4,52, 5) = (/ &
+ & 0.13649E-05_JPRB,0.33187E-04_JPRB,0.40954E-04_JPRB,0.40921E-04_JPRB,0.21752E-04_JPRB /)  
+KB(:, 5,52, 5) = (/ &
+ & 0.16982E-05_JPRB,0.38747E-04_JPRB,0.47260E-04_JPRB,0.47557E-04_JPRB,0.24588E-04_JPRB /)  
+KB(:, 1,53, 5) = (/ &
+ & 0.52809E-06_JPRB,0.15206E-04_JPRB,0.20688E-04_JPRB,0.21592E-04_JPRB,0.12084E-04_JPRB /)  
+KB(:, 2,53, 5) = (/ &
+ & 0.66493E-06_JPRB,0.18647E-04_JPRB,0.24479E-04_JPRB,0.24819E-04_JPRB,0.13781E-04_JPRB /)  
+KB(:, 3,53, 5) = (/ &
+ & 0.84102E-06_JPRB,0.22574E-04_JPRB,0.28683E-04_JPRB,0.28690E-04_JPRB,0.15621E-04_JPRB /)  
+KB(:, 4,53, 5) = (/ &
+ & 0.10585E-05_JPRB,0.26955E-04_JPRB,0.33364E-04_JPRB,0.33298E-04_JPRB,0.17677E-04_JPRB /)  
+KB(:, 5,53, 5) = (/ &
+ & 0.13239E-05_JPRB,0.31710E-04_JPRB,0.38733E-04_JPRB,0.38864E-04_JPRB,0.20049E-04_JPRB /)  
+KB(:, 1,54, 5) = (/ &
+ & 0.40969E-06_JPRB,0.12093E-04_JPRB,0.16564E-04_JPRB,0.17421E-04_JPRB,0.96882E-05_JPRB /)  
+KB(:, 2,54, 5) = (/ &
+ & 0.51569E-06_JPRB,0.14937E-04_JPRB,0.19734E-04_JPRB,0.20094E-04_JPRB,0.11112E-04_JPRB /)  
+KB(:, 3,54, 5) = (/ &
+ & 0.65296E-06_JPRB,0.18229E-04_JPRB,0.23282E-04_JPRB,0.23321E-04_JPRB,0.12664E-04_JPRB /)  
+KB(:, 4,54, 5) = (/ &
+ & 0.82573E-06_JPRB,0.21950E-04_JPRB,0.27231E-04_JPRB,0.27150E-04_JPRB,0.14393E-04_JPRB /)  
+KB(:, 5,54, 5) = (/ &
+ & 0.10373E-05_JPRB,0.26013E-04_JPRB,0.31791E-04_JPRB,0.31828E-04_JPRB,0.16379E-04_JPRB /)  
+KB(:, 1,55, 5) = (/ &
+ & 0.31928E-06_JPRB,0.96162E-05_JPRB,0.13257E-04_JPRB,0.14053E-04_JPRB,0.77741E-05_JPRB /)  
+KB(:, 2,55, 5) = (/ &
+ & 0.40112E-06_JPRB,0.11963E-04_JPRB,0.15906E-04_JPRB,0.16257E-04_JPRB,0.89578E-05_JPRB /)  
+KB(:, 3,55, 5) = (/ &
+ & 0.50816E-06_JPRB,0.14717E-04_JPRB,0.18886E-04_JPRB,0.18947E-04_JPRB,0.10262E-04_JPRB /)  
+KB(:, 4,55, 5) = (/ &
+ & 0.64465E-06_JPRB,0.17864E-04_JPRB,0.22207E-04_JPRB,0.22155E-04_JPRB,0.11715E-04_JPRB /)  
+KB(:, 5,55, 5) = (/ &
+ & 0.81328E-06_JPRB,0.21326E-04_JPRB,0.26076E-04_JPRB,0.26061E-04_JPRB,0.13376E-04_JPRB /)  
+KB(:, 1,56, 5) = (/ &
+ & 0.24829E-06_JPRB,0.76204E-05_JPRB,0.10578E-04_JPRB,0.11309E-04_JPRB,0.62208E-05_JPRB /)  
+KB(:, 2,56, 5) = (/ &
+ & 0.31176E-06_JPRB,0.95488E-05_JPRB,0.12780E-04_JPRB,0.13125E-04_JPRB,0.72013E-05_JPRB /)  
+KB(:, 3,56, 5) = (/ &
+ & 0.39506E-06_JPRB,0.11850E-04_JPRB,0.15279E-04_JPRB,0.15348E-04_JPRB,0.82947E-05_JPRB /)  
+KB(:, 4,56, 5) = (/ &
+ & 0.50266E-06_JPRB,0.14492E-04_JPRB,0.18074E-04_JPRB,0.18040E-04_JPRB,0.95153E-05_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART19',1,ZHOOK_HANDLE)
+END SUBROUTINE PART19
+
+
+SUBROUTINE PART20
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART20',0,ZHOOK_HANDLE)
+
+
+KB(:, 5,56, 5) = (/ &
+ & 0.63638E-06_JPRB,0.17442E-04_JPRB,0.21336E-04_JPRB,0.21310E-04_JPRB,0.10904E-04_JPRB /)  
+KB(:, 1,57, 5) = (/ &
+ & 0.19302E-06_JPRB,0.60187E-05_JPRB,0.84162E-05_JPRB,0.90799E-05_JPRB,0.49649E-05_JPRB /)  
+KB(:, 2,57, 5) = (/ &
+ & 0.24222E-06_JPRB,0.75959E-05_JPRB,0.10233E-04_JPRB,0.10570E-04_JPRB,0.57701E-05_JPRB /)  
+KB(:, 3,57, 5) = (/ &
+ & 0.30688E-06_JPRB,0.95080E-05_JPRB,0.12318E-04_JPRB,0.12403E-04_JPRB,0.66913E-05_JPRB /)  
+KB(:, 4,57, 5) = (/ &
+ & 0.39089E-06_JPRB,0.11719E-04_JPRB,0.14670E-04_JPRB,0.14644E-04_JPRB,0.77166E-05_JPRB /)  
+KB(:, 5,57, 5) = (/ &
+ & 0.49674E-06_JPRB,0.14214E-04_JPRB,0.17402E-04_JPRB,0.17382E-04_JPRB,0.88727E-05_JPRB /)  
+KB(:, 1,58, 5) = (/ &
+ & 0.15046E-06_JPRB,0.47663E-05_JPRB,0.66998E-05_JPRB,0.72908E-05_JPRB,0.39631E-05_JPRB /)  
+KB(:, 2,58, 5) = (/ &
+ & 0.18856E-06_JPRB,0.60459E-05_JPRB,0.81908E-05_JPRB,0.85206E-05_JPRB,0.46270E-05_JPRB /)  
+KB(:, 3,58, 5) = (/ &
+ & 0.23869E-06_JPRB,0.76302E-05_JPRB,0.99245E-05_JPRB,0.10023E-04_JPRB,0.53977E-05_JPRB /)  
+KB(:, 4,58, 5) = (/ &
+ & 0.30459E-06_JPRB,0.94767E-05_JPRB,0.11911E-04_JPRB,0.11894E-04_JPRB,0.62579E-05_JPRB /)  
+KB(:, 5,58, 5) = (/ &
+ & 0.38820E-06_JPRB,0.11588E-04_JPRB,0.14205E-04_JPRB,0.14182E-04_JPRB,0.72226E-05_JPRB /)  
+KB(:, 1,59, 5) = (/ &
+ & 0.12212E-06_JPRB,0.39332E-05_JPRB,0.55230E-05_JPRB,0.60094E-05_JPRB,0.32499E-05_JPRB /)  
+KB(:, 2,59, 5) = (/ &
+ & 0.15324E-06_JPRB,0.50178E-05_JPRB,0.67879E-05_JPRB,0.70566E-05_JPRB,0.38108E-05_JPRB /)  
+KB(:, 3,59, 5) = (/ &
+ & 0.19418E-06_JPRB,0.63678E-05_JPRB,0.82647E-05_JPRB,0.83443E-05_JPRB,0.44672E-05_JPRB /)  
+KB(:, 4,59, 5) = (/ &
+ & 0.24820E-06_JPRB,0.79543E-05_JPRB,0.99670E-05_JPRB,0.99518E-05_JPRB,0.52027E-05_JPRB /)  
+KB(:, 5,59, 5) = (/ &
+ & 0.31740E-06_JPRB,0.97704E-05_JPRB,0.11964E-04_JPRB,0.11938E-04_JPRB,0.60278E-05_JPRB /)  
+KB(:, 1,13, 6) = (/ &
+ & 0.10896E-01_JPRB,0.63076E-01_JPRB,0.78831E-01_JPRB,0.78091E-01_JPRB,0.55428E-01_JPRB /)  
+KB(:, 2,13, 6) = (/ &
+ & 0.13036E-01_JPRB,0.66370E-01_JPRB,0.81226E-01_JPRB,0.79692E-01_JPRB,0.56778E-01_JPRB /)  
+KB(:, 3,13, 6) = (/ &
+ & 0.15498E-01_JPRB,0.69685E-01_JPRB,0.83483E-01_JPRB,0.81400E-01_JPRB,0.57975E-01_JPRB /)  
+KB(:, 4,13, 6) = (/ &
+ & 0.18239E-01_JPRB,0.73147E-01_JPRB,0.85845E-01_JPRB,0.83249E-01_JPRB,0.59127E-01_JPRB /)  
+KB(:, 5,13, 6) = (/ &
+ & 0.21232E-01_JPRB,0.76581E-01_JPRB,0.88266E-01_JPRB,0.85245E-01_JPRB,0.60192E-01_JPRB /)  
+KB(:, 1,14, 6) = (/ &
+ & 0.94274E-02_JPRB,0.53526E-01_JPRB,0.66496E-01_JPRB,0.65527E-01_JPRB,0.46374E-01_JPRB /)  
+KB(:, 2,14, 6) = (/ &
+ & 0.11284E-01_JPRB,0.56390E-01_JPRB,0.68527E-01_JPRB,0.66955E-01_JPRB,0.47524E-01_JPRB /)  
+KB(:, 3,14, 6) = (/ &
+ & 0.13394E-01_JPRB,0.59305E-01_JPRB,0.70546E-01_JPRB,0.68479E-01_JPRB,0.48560E-01_JPRB /)  
+KB(:, 4,14, 6) = (/ &
+ & 0.15751E-01_JPRB,0.62293E-01_JPRB,0.72634E-01_JPRB,0.70165E-01_JPRB,0.49587E-01_JPRB /)  
+KB(:, 5,14, 6) = (/ &
+ & 0.18326E-01_JPRB,0.65240E-01_JPRB,0.74773E-01_JPRB,0.71967E-01_JPRB,0.50492E-01_JPRB /)  
+KB(:, 1,15, 6) = (/ &
+ & 0.81352E-02_JPRB,0.45294E-01_JPRB,0.55939E-01_JPRB,0.54933E-01_JPRB,0.38471E-01_JPRB /)  
+KB(:, 2,15, 6) = (/ &
+ & 0.97406E-02_JPRB,0.47797E-01_JPRB,0.57705E-01_JPRB,0.56201E-01_JPRB,0.39475E-01_JPRB /)  
+KB(:, 3,15, 6) = (/ &
+ & 0.11542E-01_JPRB,0.50349E-01_JPRB,0.59500E-01_JPRB,0.57588E-01_JPRB,0.40391E-01_JPRB /)  
+KB(:, 4,15, 6) = (/ &
+ & 0.13568E-01_JPRB,0.52924E-01_JPRB,0.61342E-01_JPRB,0.59116E-01_JPRB,0.41250E-01_JPRB /)  
+KB(:, 5,15, 6) = (/ &
+ & 0.15789E-01_JPRB,0.55427E-01_JPRB,0.63250E-01_JPRB,0.60727E-01_JPRB,0.42016E-01_JPRB /)  
+KB(:, 1,16, 6) = (/ &
+ & 0.70159E-02_JPRB,0.38272E-01_JPRB,0.46984E-01_JPRB,0.46002E-01_JPRB,0.31818E-01_JPRB /)  
+KB(:, 2,16, 6) = (/ &
+ & 0.83846E-02_JPRB,0.40476E-01_JPRB,0.48519E-01_JPRB,0.47148E-01_JPRB,0.32640E-01_JPRB /)  
+KB(:, 3,16, 6) = (/ &
+ & 0.99392E-02_JPRB,0.42699E-01_JPRB,0.50118E-01_JPRB,0.48421E-01_JPRB,0.33435E-01_JPRB /)  
+KB(:, 4,16, 6) = (/ &
+ & 0.11675E-01_JPRB,0.44875E-01_JPRB,0.51760E-01_JPRB,0.49780E-01_JPRB,0.34161E-01_JPRB /)  
+KB(:, 5,16, 6) = (/ &
+ & 0.13584E-01_JPRB,0.46992E-01_JPRB,0.53405E-01_JPRB,0.51224E-01_JPRB,0.34855E-01_JPRB /)  
+KB(:, 1,17, 6) = (/ &
+ & 0.60402E-02_JPRB,0.32343E-01_JPRB,0.39419E-01_JPRB,0.38482E-01_JPRB,0.26323E-01_JPRB /)  
+KB(:, 2,17, 6) = (/ &
+ & 0.72134E-02_JPRB,0.34265E-01_JPRB,0.40783E-01_JPRB,0.39523E-01_JPRB,0.27045E-01_JPRB /)  
+KB(:, 3,17, 6) = (/ &
+ & 0.85415E-02_JPRB,0.36157E-01_JPRB,0.42200E-01_JPRB,0.40657E-01_JPRB,0.27733E-01_JPRB /)  
+KB(:, 4,17, 6) = (/ &
+ & 0.10023E-01_JPRB,0.37979E-01_JPRB,0.43620E-01_JPRB,0.41877E-01_JPRB,0.28354E-01_JPRB /)  
+KB(:, 5,17, 6) = (/ &
+ & 0.11662E-01_JPRB,0.39775E-01_JPRB,0.45034E-01_JPRB,0.43161E-01_JPRB,0.28989E-01_JPRB /)  
+KB(:, 1,18, 6) = (/ &
+ & 0.51905E-02_JPRB,0.27334E-01_JPRB,0.33081E-01_JPRB,0.32183E-01_JPRB,0.21845E-01_JPRB /)  
+KB(:, 2,18, 6) = (/ &
+ & 0.61907E-02_JPRB,0.28996E-01_JPRB,0.34295E-01_JPRB,0.33127E-01_JPRB,0.22456E-01_JPRB /)  
+KB(:, 3,18, 6) = (/ &
+ & 0.73283E-02_JPRB,0.30572E-01_JPRB,0.35522E-01_JPRB,0.34131E-01_JPRB,0.23047E-01_JPRB /)  
+KB(:, 4,18, 6) = (/ &
+ & 0.85960E-02_JPRB,0.32113E-01_JPRB,0.36725E-01_JPRB,0.35202E-01_JPRB,0.23589E-01_JPRB /)  
+KB(:, 5,18, 6) = (/ &
+ & 0.10011E-01_JPRB,0.33654E-01_JPRB,0.37950E-01_JPRB,0.36339E-01_JPRB,0.24154E-01_JPRB /)  
+KB(:, 1,19, 6) = (/ &
+ & 0.44474E-02_JPRB,0.23093E-01_JPRB,0.27758E-01_JPRB,0.26913E-01_JPRB,0.18159E-01_JPRB /)  
+KB(:, 2,19, 6) = (/ &
+ & 0.53019E-02_JPRB,0.24497E-01_JPRB,0.28826E-01_JPRB,0.27764E-01_JPRB,0.18694E-01_JPRB /)  
+KB(:, 3,19, 6) = (/ &
+ & 0.62735E-02_JPRB,0.25825E-01_JPRB,0.29864E-01_JPRB,0.28669E-01_JPRB,0.19187E-01_JPRB /)  
+KB(:, 4,19, 6) = (/ &
+ & 0.73683E-02_JPRB,0.27139E-01_JPRB,0.30890E-01_JPRB,0.29627E-01_JPRB,0.19650E-01_JPRB /)  
+KB(:, 5,19, 6) = (/ &
+ & 0.85933E-02_JPRB,0.28467E-01_JPRB,0.31975E-01_JPRB,0.30634E-01_JPRB,0.20138E-01_JPRB /)  
+KB(:, 1,20, 6) = (/ &
+ & 0.38215E-02_JPRB,0.19522E-01_JPRB,0.23307E-01_JPRB,0.22532E-01_JPRB,0.15180E-01_JPRB /)  
+KB(:, 2,20, 6) = (/ &
+ & 0.45489E-02_JPRB,0.20697E-01_JPRB,0.24217E-01_JPRB,0.23292E-01_JPRB,0.15626E-01_JPRB /)  
+KB(:, 3,20, 6) = (/ &
+ & 0.53838E-02_JPRB,0.21827E-01_JPRB,0.25099E-01_JPRB,0.24107E-01_JPRB,0.16039E-01_JPRB /)  
+KB(:, 4,20, 6) = (/ &
+ & 0.63294E-02_JPRB,0.22947E-01_JPRB,0.25996E-01_JPRB,0.24951E-01_JPRB,0.16431E-01_JPRB /)  
+KB(:, 5,20, 6) = (/ &
+ & 0.73910E-02_JPRB,0.24098E-01_JPRB,0.26969E-01_JPRB,0.25840E-01_JPRB,0.16861E-01_JPRB /)  
+KB(:, 1,21, 6) = (/ &
+ & 0.32849E-02_JPRB,0.16485E-01_JPRB,0.19564E-01_JPRB,0.18873E-01_JPRB,0.12724E-01_JPRB /)  
+KB(:, 2,21, 6) = (/ &
+ & 0.39093E-02_JPRB,0.17476E-01_JPRB,0.20333E-01_JPRB,0.19553E-01_JPRB,0.13080E-01_JPRB /)  
+KB(:, 3,21, 6) = (/ &
+ & 0.46257E-02_JPRB,0.18440E-01_JPRB,0.21099E-01_JPRB,0.20272E-01_JPRB,0.13424E-01_JPRB /)  
+KB(:, 4,21, 6) = (/ &
+ & 0.54436E-02_JPRB,0.19400E-01_JPRB,0.21897E-01_JPRB,0.21018E-01_JPRB,0.13774E-01_JPRB /)  
+KB(:, 5,21, 6) = (/ &
+ & 0.63568E-02_JPRB,0.20406E-01_JPRB,0.22777E-01_JPRB,0.21806E-01_JPRB,0.14153E-01_JPRB /)  
+KB(:, 1,22, 6) = (/ &
+ & 0.28524E-02_JPRB,0.13970E-01_JPRB,0.16464E-01_JPRB,0.15855E-01_JPRB,0.10647E-01_JPRB /)  
+KB(:, 2,22, 6) = (/ &
+ & 0.33998E-02_JPRB,0.14799E-01_JPRB,0.17121E-01_JPRB,0.16464E-01_JPRB,0.10957E-01_JPRB /)  
+KB(:, 3,22, 6) = (/ &
+ & 0.40218E-02_JPRB,0.15618E-01_JPRB,0.17789E-01_JPRB,0.17098E-01_JPRB,0.11264E-01_JPRB /)  
+KB(:, 4,22, 6) = (/ &
+ & 0.47350E-02_JPRB,0.16459E-01_JPRB,0.18512E-01_JPRB,0.17761E-01_JPRB,0.11585E-01_JPRB /)  
+KB(:, 5,22, 6) = (/ &
+ & 0.55269E-02_JPRB,0.17342E-01_JPRB,0.19306E-01_JPRB,0.18466E-01_JPRB,0.11905E-01_JPRB /)  
+KB(:, 1,23, 6) = (/ &
+ & 0.24776E-02_JPRB,0.11832E-01_JPRB,0.13862E-01_JPRB,0.13338E-01_JPRB,0.89101E-02_JPRB /)  
+KB(:, 2,23, 6) = (/ &
+ & 0.29594E-02_JPRB,0.12532E-01_JPRB,0.14430E-01_JPRB,0.13874E-01_JPRB,0.91836E-02_JPRB /)  
+KB(:, 3,23, 6) = (/ &
+ & 0.35060E-02_JPRB,0.13237E-01_JPRB,0.15025E-01_JPRB,0.14435E-01_JPRB,0.94582E-02_JPRB /)  
+KB(:, 4,23, 6) = (/ &
+ & 0.41276E-02_JPRB,0.13976E-01_JPRB,0.15673E-01_JPRB,0.15028E-01_JPRB,0.97462E-02_JPRB /)  
+KB(:, 5,23, 6) = (/ &
+ & 0.48108E-02_JPRB,0.14761E-01_JPRB,0.16387E-01_JPRB,0.15666E-01_JPRB,0.10041E-01_JPRB /)  
+KB(:, 1,24, 6) = (/ &
+ & 0.21553E-02_JPRB,0.10022E-01_JPRB,0.11681E-01_JPRB,0.11233E-01_JPRB,0.74484E-02_JPRB /)  
+KB(:, 2,24, 6) = (/ &
+ & 0.25764E-02_JPRB,0.10621E-01_JPRB,0.12176E-01_JPRB,0.11709E-01_JPRB,0.76914E-02_JPRB /)  
+KB(:, 3,24, 6) = (/ &
+ & 0.30587E-02_JPRB,0.11236E-01_JPRB,0.12711E-01_JPRB,0.12208E-01_JPRB,0.79451E-02_JPRB /)  
+KB(:, 4,24, 6) = (/ &
+ & 0.36022E-02_JPRB,0.11891E-01_JPRB,0.13293E-01_JPRB,0.12744E-01_JPRB,0.82033E-02_JPRB /)  
+KB(:, 5,24, 6) = (/ &
+ & 0.41914E-02_JPRB,0.12593E-01_JPRB,0.13939E-01_JPRB,0.13324E-01_JPRB,0.84674E-02_JPRB /)  
+KB(:, 1,25, 6) = (/ &
+ & 0.18796E-02_JPRB,0.85000E-02_JPRB,0.98543E-02_JPRB,0.94788E-02_JPRB,0.62281E-02_JPRB /)  
+KB(:, 2,25, 6) = (/ &
+ & 0.22512E-02_JPRB,0.90173E-02_JPRB,0.10293E-01_JPRB,0.99015E-02_JPRB,0.64465E-02_JPRB /)  
+KB(:, 3,25, 6) = (/ &
+ & 0.26761E-02_JPRB,0.95606E-02_JPRB,0.10772E-01_JPRB,0.10351E-01_JPRB,0.66771E-02_JPRB /)  
+KB(:, 4,25, 6) = (/ &
+ & 0.31512E-02_JPRB,0.10144E-01_JPRB,0.11303E-01_JPRB,0.10838E-01_JPRB,0.69100E-02_JPRB /)  
+KB(:, 5,25, 6) = (/ &
+ & 0.36575E-02_JPRB,0.10772E-01_JPRB,0.11893E-01_JPRB,0.11363E-01_JPRB,0.71526E-02_JPRB /)  
+KB(:, 1,26, 6) = (/ &
+ & 0.16486E-02_JPRB,0.72263E-02_JPRB,0.83293E-02_JPRB,0.80207E-02_JPRB,0.52267E-02_JPRB /)  
+KB(:, 2,26, 6) = (/ &
+ & 0.19790E-02_JPRB,0.76783E-02_JPRB,0.87239E-02_JPRB,0.83966E-02_JPRB,0.54266E-02_JPRB /)  
+KB(:, 3,26, 6) = (/ &
+ & 0.23552E-02_JPRB,0.81632E-02_JPRB,0.91606E-02_JPRB,0.88030E-02_JPRB,0.56340E-02_JPRB /)  
+KB(:, 4,26, 6) = (/ &
+ & 0.27655E-02_JPRB,0.86841E-02_JPRB,0.96465E-02_JPRB,0.92463E-02_JPRB,0.58421E-02_JPRB /)  
+KB(:, 5,26, 6) = (/ &
+ & 0.32014E-02_JPRB,0.92461E-02_JPRB,0.10190E-01_JPRB,0.97263E-02_JPRB,0.60618E-02_JPRB /)  
+KB(:, 1,27, 6) = (/ &
+ & 0.14479E-02_JPRB,0.61551E-02_JPRB,0.70548E-02_JPRB,0.67980E-02_JPRB,0.43916E-02_JPRB /)  
+KB(:, 2,27, 6) = (/ &
+ & 0.17422E-02_JPRB,0.65560E-02_JPRB,0.74109E-02_JPRB,0.71369E-02_JPRB,0.45703E-02_JPRB /)  
+KB(:, 3,27, 6) = (/ &
+ & 0.20711E-02_JPRB,0.69878E-02_JPRB,0.78116E-02_JPRB,0.75081E-02_JPRB,0.47565E-02_JPRB /)  
+KB(:, 4,27, 6) = (/ &
+ & 0.24273E-02_JPRB,0.74543E-02_JPRB,0.82596E-02_JPRB,0.79125E-02_JPRB,0.49414E-02_JPRB /)  
+KB(:, 5,27, 6) = (/ &
+ & 0.28006E-02_JPRB,0.79622E-02_JPRB,0.87633E-02_JPRB,0.83523E-02_JPRB,0.51438E-02_JPRB /)  
+KB(:, 1,28, 6) = (/ &
+ & 0.12757E-02_JPRB,0.52552E-02_JPRB,0.59880E-02_JPRB,0.57731E-02_JPRB,0.36940E-02_JPRB /)  
+KB(:, 2,28, 6) = (/ &
+ & 0.15355E-02_JPRB,0.56117E-02_JPRB,0.63148E-02_JPRB,0.60828E-02_JPRB,0.38537E-02_JPRB /)  
+KB(:, 3,28, 6) = (/ &
+ & 0.18209E-02_JPRB,0.60000E-02_JPRB,0.66831E-02_JPRB,0.64236E-02_JPRB,0.40153E-02_JPRB /)  
+KB(:, 4,28, 6) = (/ &
+ & 0.21272E-02_JPRB,0.64202E-02_JPRB,0.70979E-02_JPRB,0.67923E-02_JPRB,0.41811E-02_JPRB /)  
+KB(:, 5,28, 6) = (/ &
+ & 0.24474E-02_JPRB,0.68778E-02_JPRB,0.75643E-02_JPRB,0.71983E-02_JPRB,0.43640E-02_JPRB /)  
+KB(:, 1,29, 6) = (/ &
+ & 0.11295E-02_JPRB,0.45004E-02_JPRB,0.50997E-02_JPRB,0.49184E-02_JPRB,0.31153E-02_JPRB /)  
+KB(:, 2,29, 6) = (/ &
+ & 0.13559E-02_JPRB,0.48180E-02_JPRB,0.54010E-02_JPRB,0.52034E-02_JPRB,0.32572E-02_JPRB /)  
+KB(:, 3,29, 6) = (/ &
+ & 0.16033E-02_JPRB,0.51685E-02_JPRB,0.57423E-02_JPRB,0.55151E-02_JPRB,0.33997E-02_JPRB /)  
+KB(:, 4,29, 6) = (/ &
+ & 0.18647E-02_JPRB,0.55488E-02_JPRB,0.61280E-02_JPRB,0.58545E-02_JPRB,0.35531E-02_JPRB /)  
+KB(:, 5,29, 6) = (/ &
+ & 0.21368E-02_JPRB,0.59683E-02_JPRB,0.65578E-02_JPRB,0.62309E-02_JPRB,0.37192E-02_JPRB /)  
+KB(:, 1,30, 6) = (/ &
+ & 0.10010E-02_JPRB,0.38621E-02_JPRB,0.43580E-02_JPRB,0.42036E-02_JPRB,0.26325E-02_JPRB /)  
+KB(:, 2,30, 6) = (/ &
+ & 0.11967E-02_JPRB,0.41511E-02_JPRB,0.46366E-02_JPRB,0.44656E-02_JPRB,0.27570E-02_JPRB /)  
+KB(:, 3,30, 6) = (/ &
+ & 0.14096E-02_JPRB,0.44678E-02_JPRB,0.49534E-02_JPRB,0.47515E-02_JPRB,0.28856E-02_JPRB /)  
+KB(:, 4,30, 6) = (/ &
+ & 0.16325E-02_JPRB,0.48140E-02_JPRB,0.53117E-02_JPRB,0.50685E-02_JPRB,0.30242E-02_JPRB /)  
+KB(:, 5,30, 6) = (/ &
+ & 0.18599E-02_JPRB,0.52016E-02_JPRB,0.57103E-02_JPRB,0.54169E-02_JPRB,0.31738E-02_JPRB /)  
+KB(:, 1,31, 6) = (/ &
+ & 0.88685E-03_JPRB,0.33266E-02_JPRB,0.37394E-02_JPRB,0.36064E-02_JPRB,0.22280E-02_JPRB /)  
+KB(:, 2,31, 6) = (/ &
+ & 0.10569E-02_JPRB,0.35897E-02_JPRB,0.39964E-02_JPRB,0.38465E-02_JPRB,0.23389E-02_JPRB /)  
+KB(:, 3,31, 6) = (/ &
+ & 0.12382E-02_JPRB,0.38779E-02_JPRB,0.42920E-02_JPRB,0.41135E-02_JPRB,0.24573E-02_JPRB /)  
+KB(:, 4,31, 6) = (/ &
+ & 0.14278E-02_JPRB,0.41961E-02_JPRB,0.46258E-02_JPRB,0.44080E-02_JPRB,0.25818E-02_JPRB /)  
+KB(:, 5,31, 6) = (/ &
+ & 0.16136E-02_JPRB,0.45547E-02_JPRB,0.50001E-02_JPRB,0.47313E-02_JPRB,0.27214E-02_JPRB /)  
+KB(:, 1,32, 6) = (/ &
+ & 0.78559E-03_JPRB,0.28763E-02_JPRB,0.32195E-02_JPRB,0.31059E-02_JPRB,0.18911E-02_JPRB /)  
+KB(:, 2,32, 6) = (/ &
+ & 0.93178E-03_JPRB,0.31157E-02_JPRB,0.34609E-02_JPRB,0.33287E-02_JPRB,0.19930E-02_JPRB /)  
+KB(:, 3,32, 6) = (/ &
+ & 0.10867E-02_JPRB,0.33798E-02_JPRB,0.37377E-02_JPRB,0.35772E-02_JPRB,0.21006E-02_JPRB /)  
+KB(:, 4,32, 6) = (/ &
+ & 0.12446E-02_JPRB,0.36754E-02_JPRB,0.40497E-02_JPRB,0.38517E-02_JPRB,0.22158E-02_JPRB /)  
+KB(:, 5,32, 6) = (/ &
+ & 0.13936E-02_JPRB,0.40072E-02_JPRB,0.44007E-02_JPRB,0.41538E-02_JPRB,0.23413E-02_JPRB /)  
+KB(:, 1,33, 6) = (/ &
+ & 0.69486E-03_JPRB,0.24959E-02_JPRB,0.27846E-02_JPRB,0.26858E-02_JPRB,0.16103E-02_JPRB /)  
+KB(:, 2,33, 6) = (/ &
+ & 0.82037E-03_JPRB,0.27142E-02_JPRB,0.30117E-02_JPRB,0.28933E-02_JPRB,0.17041E-02_JPRB /)  
+KB(:, 3,33, 6) = (/ &
+ & 0.95137E-03_JPRB,0.29589E-02_JPRB,0.32703E-02_JPRB,0.31258E-02_JPRB,0.18033E-02_JPRB /)  
+KB(:, 4,33, 6) = (/ &
+ & 0.10800E-02_JPRB,0.32345E-02_JPRB,0.35641E-02_JPRB,0.33810E-02_JPRB,0.19089E-02_JPRB /)  
+KB(:, 5,33, 6) = (/ &
+ & 0.11986E-02_JPRB,0.35406E-02_JPRB,0.38943E-02_JPRB,0.36682E-02_JPRB,0.20234E-02_JPRB /)  
+KB(:, 1,34, 6) = (/ &
+ & 0.61032E-03_JPRB,0.21671E-02_JPRB,0.24134E-02_JPRB,0.23268E-02_JPRB,0.13754E-02_JPRB /)  
+KB(:, 2,34, 6) = (/ &
+ & 0.71748E-03_JPRB,0.23678E-02_JPRB,0.26264E-02_JPRB,0.25207E-02_JPRB,0.14624E-02_JPRB /)  
+KB(:, 3,34, 6) = (/ &
+ & 0.82600E-03_JPRB,0.25947E-02_JPRB,0.28697E-02_JPRB,0.27368E-02_JPRB,0.15523E-02_JPRB /)  
+KB(:, 4,34, 6) = (/ &
+ & 0.92939E-03_JPRB,0.28495E-02_JPRB,0.31449E-02_JPRB,0.29773E-02_JPRB,0.16488E-02_JPRB /)  
+KB(:, 5,34, 6) = (/ &
+ & 0.10239E-02_JPRB,0.31299E-02_JPRB,0.34552E-02_JPRB,0.32520E-02_JPRB,0.17543E-02_JPRB /)  
+KB(:, 1,35, 6) = (/ &
+ & 0.52678E-03_JPRB,0.18713E-02_JPRB,0.20838E-02_JPRB,0.20082E-02_JPRB,0.11717E-02_JPRB /)  
+KB(:, 2,35, 6) = (/ &
+ & 0.61674E-03_JPRB,0.20541E-02_JPRB,0.22811E-02_JPRB,0.21873E-02_JPRB,0.12500E-02_JPRB /)  
+KB(:, 3,35, 6) = (/ &
+ & 0.70570E-03_JPRB,0.22625E-02_JPRB,0.25066E-02_JPRB,0.23870E-02_JPRB,0.13326E-02_JPRB /)  
+KB(:, 4,35, 6) = (/ &
+ & 0.78855E-03_JPRB,0.24971E-02_JPRB,0.27629E-02_JPRB,0.26134E-02_JPRB,0.14204E-02_JPRB /)  
+KB(:, 5,35, 6) = (/ &
+ & 0.86492E-03_JPRB,0.27499E-02_JPRB,0.30514E-02_JPRB,0.28766E-02_JPRB,0.15154E-02_JPRB /)  
+KB(:, 1,36, 6) = (/ &
+ & 0.44569E-03_JPRB,0.16031E-02_JPRB,0.17868E-02_JPRB,0.17221E-02_JPRB,0.99240E-03_JPRB /)  
+KB(:, 2,36, 6) = (/ &
+ & 0.52055E-03_JPRB,0.17679E-02_JPRB,0.19674E-02_JPRB,0.18854E-02_JPRB,0.10623E-02_JPRB /)  
+KB(:, 3,36, 6) = (/ &
+ & 0.59380E-03_JPRB,0.19567E-02_JPRB,0.21742E-02_JPRB,0.20700E-02_JPRB,0.11368E-02_JPRB /)  
+KB(:, 4,36, 6) = (/ &
+ & 0.66114E-03_JPRB,0.21690E-02_JPRB,0.24093E-02_JPRB,0.22827E-02_JPRB,0.12171E-02_JPRB /)  
+KB(:, 5,36, 6) = (/ &
+ & 0.72347E-03_JPRB,0.23953E-02_JPRB,0.26735E-02_JPRB,0.25294E-02_JPRB,0.13028E-02_JPRB /)  
+KB(:, 1,37, 6) = (/ &
+ & 0.36881E-03_JPRB,0.13558E-02_JPRB,0.15140E-02_JPRB,0.14605E-02_JPRB,0.83527E-03_JPRB /)  
+KB(:, 2,37, 6) = (/ &
+ & 0.43070E-03_JPRB,0.15018E-02_JPRB,0.16759E-02_JPRB,0.16073E-02_JPRB,0.89749E-03_JPRB /)  
+KB(:, 3,37, 6) = (/ &
+ & 0.49122E-03_JPRB,0.16697E-02_JPRB,0.18620E-02_JPRB,0.17747E-02_JPRB,0.96428E-03_JPRB /)  
+KB(:, 4,37, 6) = (/ &
+ & 0.54687E-03_JPRB,0.18590E-02_JPRB,0.20742E-02_JPRB,0.19690E-02_JPRB,0.10365E-02_JPRB /)  
+KB(:, 5,37, 6) = (/ &
+ & 0.59826E-03_JPRB,0.20615E-02_JPRB,0.23143E-02_JPRB,0.21948E-02_JPRB,0.11140E-02_JPRB /)  
+KB(:, 1,38, 6) = (/ &
+ & 0.30472E-03_JPRB,0.11463E-02_JPRB,0.12827E-02_JPRB,0.12387E-02_JPRB,0.70293E-03_JPRB /)  
+KB(:, 2,38, 6) = (/ &
+ & 0.35606E-03_JPRB,0.12755E-02_JPRB,0.14277E-02_JPRB,0.13705E-02_JPRB,0.75844E-03_JPRB /)  
+KB(:, 3,38, 6) = (/ &
+ & 0.40587E-03_JPRB,0.14248E-02_JPRB,0.15948E-02_JPRB,0.15225E-02_JPRB,0.81832E-03_JPRB /)  
+KB(:, 4,38, 6) = (/ &
+ & 0.45170E-03_JPRB,0.15929E-02_JPRB,0.17869E-02_JPRB,0.16996E-02_JPRB,0.88272E-03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART20',1,ZHOOK_HANDLE)
+END SUBROUTINE PART20
+
+
+SUBROUTINE PART21
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART21',0,ZHOOK_HANDLE)
+
+
+KB(:, 5,38, 6) = (/ &
+ & 0.49447E-03_JPRB,0.17743E-02_JPRB,0.20049E-02_JPRB,0.19060E-02_JPRB,0.95296E-03_JPRB /)  
+KB(:, 1,39, 6) = (/ &
+ & 0.25159E-03_JPRB,0.96943E-03_JPRB,0.10877E-02_JPRB,0.10513E-02_JPRB,0.59159E-03_JPRB /)  
+KB(:, 2,39, 6) = (/ &
+ & 0.29433E-03_JPRB,0.10839E-02_JPRB,0.12173E-02_JPRB,0.11700E-02_JPRB,0.64088E-03_JPRB /)  
+KB(:, 3,39, 6) = (/ &
+ & 0.33554E-03_JPRB,0.12164E-02_JPRB,0.13675E-02_JPRB,0.13079E-02_JPRB,0.69454E-03_JPRB /)  
+KB(:, 4,39, 6) = (/ &
+ & 0.37315E-03_JPRB,0.13660E-02_JPRB,0.15416E-02_JPRB,0.14697E-02_JPRB,0.75241E-03_JPRB /)  
+KB(:, 5,39, 6) = (/ &
+ & 0.40840E-03_JPRB,0.15291E-02_JPRB,0.17396E-02_JPRB,0.16583E-02_JPRB,0.81566E-03_JPRB /)  
+KB(:, 1,40, 6) = (/ &
+ & 0.20445E-03_JPRB,0.81104E-03_JPRB,0.91201E-03_JPRB,0.88303E-03_JPRB,0.49462E-03_JPRB /)  
+KB(:, 2,40, 6) = (/ &
+ & 0.24013E-03_JPRB,0.91062E-03_JPRB,0.10259E-02_JPRB,0.98834E-03_JPRB,0.53806E-03_JPRB /)  
+KB(:, 3,40, 6) = (/ &
+ & 0.27454E-03_JPRB,0.10267E-02_JPRB,0.11591E-02_JPRB,0.11112E-02_JPRB,0.58582E-03_JPRB /)  
+KB(:, 4,40, 6) = (/ &
+ & 0.30609E-03_JPRB,0.11586E-02_JPRB,0.13148E-02_JPRB,0.12564E-02_JPRB,0.63733E-03_JPRB /)  
+KB(:, 5,40, 6) = (/ &
+ & 0.33521E-03_JPRB,0.13038E-02_JPRB,0.14932E-02_JPRB,0.14267E-02_JPRB,0.69406E-03_JPRB /)  
+KB(:, 1,41, 6) = (/ &
+ & 0.16568E-03_JPRB,0.67706E-03_JPRB,0.76339E-03_JPRB,0.74014E-03_JPRB,0.41311E-03_JPRB /)  
+KB(:, 2,41, 6) = (/ &
+ & 0.19545E-03_JPRB,0.76370E-03_JPRB,0.86317E-03_JPRB,0.83349E-03_JPRB,0.45126E-03_JPRB /)  
+KB(:, 3,41, 6) = (/ &
+ & 0.22429E-03_JPRB,0.86513E-03_JPRB,0.98057E-03_JPRB,0.94284E-03_JPRB,0.49336E-03_JPRB /)  
+KB(:, 4,41, 6) = (/ &
+ & 0.25075E-03_JPRB,0.98100E-03_JPRB,0.11192E-02_JPRB,0.10723E-02_JPRB,0.53916E-03_JPRB /)  
+KB(:, 5,41, 6) = (/ &
+ & 0.27523E-03_JPRB,0.11101E-02_JPRB,0.12797E-02_JPRB,0.12259E-02_JPRB,0.58980E-03_JPRB /)  
+KB(:, 1,42, 6) = (/ &
+ & 0.13464E-03_JPRB,0.56478E-03_JPRB,0.63846E-03_JPRB,0.61972E-03_JPRB,0.34485E-03_JPRB /)  
+KB(:, 2,42, 6) = (/ &
+ & 0.15918E-03_JPRB,0.64002E-03_JPRB,0.72573E-03_JPRB,0.70212E-03_JPRB,0.37807E-03_JPRB /)  
+KB(:, 3,42, 6) = (/ &
+ & 0.18309E-03_JPRB,0.72866E-03_JPRB,0.82914E-03_JPRB,0.79959E-03_JPRB,0.41541E-03_JPRB /)  
+KB(:, 4,42, 6) = (/ &
+ & 0.20534E-03_JPRB,0.83063E-03_JPRB,0.95224E-03_JPRB,0.91510E-03_JPRB,0.45609E-03_JPRB /)  
+KB(:, 5,42, 6) = (/ &
+ & 0.22591E-03_JPRB,0.94536E-03_JPRB,0.10960E-02_JPRB,0.10535E-02_JPRB,0.50132E-03_JPRB /)  
+KB(:, 1,43, 6) = (/ &
+ & 0.10834E-03_JPRB,0.46763E-03_JPRB,0.52964E-03_JPRB,0.51479E-03_JPRB,0.28641E-03_JPRB /)  
+KB(:, 2,43, 6) = (/ &
+ & 0.12878E-03_JPRB,0.53191E-03_JPRB,0.60529E-03_JPRB,0.58655E-03_JPRB,0.31538E-03_JPRB /)  
+KB(:, 3,43, 6) = (/ &
+ & 0.14877E-03_JPRB,0.60848E-03_JPRB,0.69517E-03_JPRB,0.67233E-03_JPRB,0.34781E-03_JPRB /)  
+KB(:, 4,43, 6) = (/ &
+ & 0.16739E-03_JPRB,0.69818E-03_JPRB,0.80315E-03_JPRB,0.77433E-03_JPRB,0.38376E-03_JPRB /)  
+KB(:, 5,43, 6) = (/ &
+ & 0.18458E-03_JPRB,0.79951E-03_JPRB,0.93071E-03_JPRB,0.89755E-03_JPRB,0.42371E-03_JPRB /)  
+KB(:, 1,44, 6) = (/ &
+ & 0.86770E-04_JPRB,0.38551E-03_JPRB,0.43712E-03_JPRB,0.42544E-03_JPRB,0.23710E-03_JPRB /)  
+KB(:, 2,44, 6) = (/ &
+ & 0.10382E-03_JPRB,0.44040E-03_JPRB,0.50222E-03_JPRB,0.48753E-03_JPRB,0.26235E-03_JPRB /)  
+KB(:, 3,44, 6) = (/ &
+ & 0.12059E-03_JPRB,0.50571E-03_JPRB,0.58013E-03_JPRB,0.56233E-03_JPRB,0.29036E-03_JPRB /)  
+KB(:, 4,44, 6) = (/ &
+ & 0.13632E-03_JPRB,0.58391E-03_JPRB,0.67429E-03_JPRB,0.65221E-03_JPRB,0.32192E-03_JPRB /)  
+KB(:, 5,44, 6) = (/ &
+ & 0.15073E-03_JPRB,0.67339E-03_JPRB,0.78624E-03_JPRB,0.76086E-03_JPRB,0.35732E-03_JPRB /)  
+KB(:, 1,45, 6) = (/ &
+ & 0.69317E-04_JPRB,0.31724E-03_JPRB,0.36001E-03_JPRB,0.35090E-03_JPRB,0.19579E-03_JPRB /)  
+KB(:, 2,45, 6) = (/ &
+ & 0.83569E-04_JPRB,0.36417E-03_JPRB,0.41579E-03_JPRB,0.40435E-03_JPRB,0.21781E-03_JPRB /)  
+KB(:, 3,45, 6) = (/ &
+ & 0.97725E-04_JPRB,0.42014E-03_JPRB,0.48329E-03_JPRB,0.46938E-03_JPRB,0.24226E-03_JPRB /)  
+KB(:, 4,45, 6) = (/ &
+ & 0.11101E-03_JPRB,0.48745E-03_JPRB,0.56520E-03_JPRB,0.54804E-03_JPRB,0.26965E-03_JPRB /)  
+KB(:, 5,45, 6) = (/ &
+ & 0.12310E-03_JPRB,0.56606E-03_JPRB,0.66327E-03_JPRB,0.64374E-03_JPRB,0.30080E-03_JPRB /)  
+KB(:, 1,46, 6) = (/ &
+ & 0.55030E-04_JPRB,0.26007E-03_JPRB,0.29522E-03_JPRB,0.28798E-03_JPRB,0.16098E-03_JPRB /)  
+KB(:, 2,46, 6) = (/ &
+ & 0.66908E-04_JPRB,0.29981E-03_JPRB,0.34235E-03_JPRB,0.33361E-03_JPRB,0.18009E-03_JPRB /)  
+KB(:, 3,46, 6) = (/ &
+ & 0.78894E-04_JPRB,0.34737E-03_JPRB,0.40028E-03_JPRB,0.38969E-03_JPRB,0.20138E-03_JPRB /)  
+KB(:, 4,46, 6) = (/ &
+ & 0.90228E-04_JPRB,0.40507E-03_JPRB,0.47110E-03_JPRB,0.45796E-03_JPRB,0.22525E-03_JPRB /)  
+KB(:, 5,46, 6) = (/ &
+ & 0.10044E-03_JPRB,0.47380E-03_JPRB,0.55673E-03_JPRB,0.54149E-03_JPRB,0.25231E-03_JPRB /)  
+KB(:, 1,47, 6) = (/ &
+ & 0.43131E-04_JPRB,0.21132E-03_JPRB,0.23992E-03_JPRB,0.23430E-03_JPRB,0.13147E-03_JPRB /)  
+KB(:, 2,47, 6) = (/ &
+ & 0.53026E-04_JPRB,0.24489E-03_JPRB,0.27966E-03_JPRB,0.27282E-03_JPRB,0.14794E-03_JPRB /)  
+KB(:, 3,47, 6) = (/ &
+ & 0.63179E-04_JPRB,0.28502E-03_JPRB,0.32837E-03_JPRB,0.32046E-03_JPRB,0.16642E-03_JPRB /)  
+KB(:, 4,47, 6) = (/ &
+ & 0.72849E-04_JPRB,0.33391E-03_JPRB,0.38868E-03_JPRB,0.37909E-03_JPRB,0.18727E-03_JPRB /)  
+KB(:, 5,47, 6) = (/ &
+ & 0.81641E-04_JPRB,0.39308E-03_JPRB,0.46293E-03_JPRB,0.45114E-03_JPRB,0.21071E-03_JPRB /)  
+KB(:, 1,48, 6) = (/ &
+ & 0.33560E-04_JPRB,0.17139E-03_JPRB,0.19468E-03_JPRB,0.19001E-03_JPRB,0.10710E-03_JPRB /)  
+KB(:, 2,48, 6) = (/ &
+ & 0.41736E-04_JPRB,0.19942E-03_JPRB,0.22765E-03_JPRB,0.22235E-03_JPRB,0.12121E-03_JPRB /)  
+KB(:, 3,48, 6) = (/ &
+ & 0.50371E-04_JPRB,0.23319E-03_JPRB,0.26893E-03_JPRB,0.26280E-03_JPRB,0.13718E-03_JPRB /)  
+KB(:, 4,48, 6) = (/ &
+ & 0.58779E-04_JPRB,0.27466E-03_JPRB,0.31973E-03_JPRB,0.31295E-03_JPRB,0.15543E-03_JPRB /)  
+KB(:, 5,48, 6) = (/ &
+ & 0.66247E-04_JPRB,0.32531E-03_JPRB,0.38347E-03_JPRB,0.37465E-03_JPRB,0.17582E-03_JPRB /)  
+KB(:, 1,49, 6) = (/ &
+ & 0.25958E-04_JPRB,0.13895E-03_JPRB,0.15751E-03_JPRB,0.15378E-03_JPRB,0.86997E-04_JPRB /)  
+KB(:, 2,49, 6) = (/ &
+ & 0.32663E-04_JPRB,0.16210E-03_JPRB,0.18496E-03_JPRB,0.18058E-03_JPRB,0.99003E-04_JPRB /)  
+KB(:, 3,49, 6) = (/ &
+ & 0.39912E-04_JPRB,0.19033E-03_JPRB,0.21954E-03_JPRB,0.21463E-03_JPRB,0.11278E-03_JPRB /)  
+KB(:, 4,49, 6) = (/ &
+ & 0.47146E-04_JPRB,0.22536E-03_JPRB,0.26252E-03_JPRB,0.25743E-03_JPRB,0.12854E-03_JPRB /)  
+KB(:, 5,49, 6) = (/ &
+ & 0.53714E-04_JPRB,0.26879E-03_JPRB,0.31652E-03_JPRB,0.31040E-03_JPRB,0.14638E-03_JPRB /)  
+KB(:, 1,50, 6) = (/ &
+ & 0.20123E-04_JPRB,0.11283E-03_JPRB,0.12763E-03_JPRB,0.12462E-03_JPRB,0.70722E-04_JPRB /)  
+KB(:, 2,50, 6) = (/ &
+ & 0.25601E-04_JPRB,0.13215E-03_JPRB,0.15042E-03_JPRB,0.14697E-03_JPRB,0.80931E-04_JPRB /)  
+KB(:, 3,50, 6) = (/ &
+ & 0.31614E-04_JPRB,0.15574E-03_JPRB,0.17957E-03_JPRB,0.17552E-03_JPRB,0.92734E-04_JPRB /)  
+KB(:, 4,50, 6) = (/ &
+ & 0.37764E-04_JPRB,0.18520E-03_JPRB,0.21596E-03_JPRB,0.21200E-03_JPRB,0.10641E-03_JPRB /)  
+KB(:, 5,50, 6) = (/ &
+ & 0.43463E-04_JPRB,0.22248E-03_JPRB,0.26195E-03_JPRB,0.25758E-03_JPRB,0.12203E-03_JPRB /)  
+KB(:, 1,51, 6) = (/ &
+ & 0.15566E-04_JPRB,0.91692E-04_JPRB,0.10348E-03_JPRB,0.10093E-03_JPRB,0.57420E-04_JPRB /)  
+KB(:, 2,51, 6) = (/ &
+ & 0.20041E-04_JPRB,0.10771E-03_JPRB,0.12230E-03_JPRB,0.11952E-03_JPRB,0.66019E-04_JPRB /)  
+KB(:, 3,51, 6) = (/ &
+ & 0.25022E-04_JPRB,0.12757E-03_JPRB,0.14670E-03_JPRB,0.14349E-03_JPRB,0.76182E-04_JPRB /)  
+KB(:, 4,51, 6) = (/ &
+ & 0.30196E-04_JPRB,0.15226E-03_JPRB,0.17772E-03_JPRB,0.17429E-03_JPRB,0.87954E-04_JPRB /)  
+KB(:, 5,51, 6) = (/ &
+ & 0.35140E-04_JPRB,0.18405E-03_JPRB,0.21697E-03_JPRB,0.21356E-03_JPRB,0.10162E-03_JPRB /)  
+KB(:, 1,52, 6) = (/ &
+ & 0.11977E-04_JPRB,0.74321E-04_JPRB,0.83777E-04_JPRB,0.81525E-04_JPRB,0.46492E-04_JPRB /)  
+KB(:, 2,52, 6) = (/ &
+ & 0.15618E-04_JPRB,0.87662E-04_JPRB,0.99315E-04_JPRB,0.96995E-04_JPRB,0.53744E-04_JPRB /)  
+KB(:, 3,52, 6) = (/ &
+ & 0.19731E-04_JPRB,0.10434E-03_JPRB,0.11957E-03_JPRB,0.11696E-03_JPRB,0.62355E-04_JPRB /)  
+KB(:, 4,52, 6) = (/ &
+ & 0.24071E-04_JPRB,0.12514E-03_JPRB,0.14574E-03_JPRB,0.14300E-03_JPRB,0.72491E-04_JPRB /)  
+KB(:, 5,52, 6) = (/ &
+ & 0.28292E-04_JPRB,0.15185E-03_JPRB,0.17919E-03_JPRB,0.17642E-03_JPRB,0.84356E-04_JPRB /)  
+KB(:, 1,53, 6) = (/ &
+ & 0.91836E-05_JPRB,0.60131E-04_JPRB,0.67720E-04_JPRB,0.65649E-04_JPRB,0.37522E-04_JPRB /)  
+KB(:, 2,53, 6) = (/ &
+ & 0.12113E-04_JPRB,0.71192E-04_JPRB,0.80457E-04_JPRB,0.78425E-04_JPRB,0.43599E-04_JPRB /)  
+KB(:, 3,53, 6) = (/ &
+ & 0.15471E-04_JPRB,0.85141E-04_JPRB,0.97276E-04_JPRB,0.95110E-04_JPRB,0.50903E-04_JPRB /)  
+KB(:, 4,53, 6) = (/ &
+ & 0.19102E-04_JPRB,0.10263E-03_JPRB,0.11918E-03_JPRB,0.11694E-03_JPRB,0.59553E-04_JPRB /)  
+KB(:, 5,53, 6) = (/ &
+ & 0.22693E-04_JPRB,0.12514E-03_JPRB,0.14755E-03_JPRB,0.14527E-03_JPRB,0.69812E-04_JPRB /)  
+KB(:, 1,54, 6) = (/ &
+ & 0.70721E-05_JPRB,0.48764E-04_JPRB,0.54926E-04_JPRB,0.53041E-04_JPRB,0.30337E-04_JPRB /)  
+KB(:, 2,54, 6) = (/ &
+ & 0.94270E-05_JPRB,0.57982E-04_JPRB,0.65461E-04_JPRB,0.63579E-04_JPRB,0.35439E-04_JPRB /)  
+KB(:, 3,54, 6) = (/ &
+ & 0.12173E-04_JPRB,0.69671E-04_JPRB,0.79433E-04_JPRB,0.77530E-04_JPRB,0.41618E-04_JPRB /)  
+KB(:, 4,54, 6) = (/ &
+ & 0.15195E-04_JPRB,0.84502E-04_JPRB,0.97826E-04_JPRB,0.96029E-04_JPRB,0.49017E-04_JPRB /)  
+KB(:, 5,54, 6) = (/ &
+ & 0.18243E-04_JPRB,0.10358E-03_JPRB,0.12196E-03_JPRB,0.12023E-03_JPRB,0.57880E-04_JPRB /)  
+KB(:, 1,55, 6) = (/ &
+ & 0.54549E-05_JPRB,0.39521E-04_JPRB,0.44580E-04_JPRB,0.42901E-04_JPRB,0.24523E-04_JPRB /)  
+KB(:, 2,55, 6) = (/ &
+ & 0.73474E-05_JPRB,0.47258E-04_JPRB,0.53311E-04_JPRB,0.51627E-04_JPRB,0.28799E-04_JPRB /)  
+KB(:, 3,55, 6) = (/ &
+ & 0.95818E-05_JPRB,0.57041E-04_JPRB,0.64957E-04_JPRB,0.63210E-04_JPRB,0.34015E-04_JPRB /)  
+KB(:, 4,55, 6) = (/ &
+ & 0.12078E-04_JPRB,0.69528E-04_JPRB,0.80422E-04_JPRB,0.78845E-04_JPRB,0.40325E-04_JPRB /)  
+KB(:, 5,55, 6) = (/ &
+ & 0.14658E-04_JPRB,0.85891E-04_JPRB,0.10087E-03_JPRB,0.99485E-04_JPRB,0.47973E-04_JPRB /)  
+KB(:, 1,56, 6) = (/ &
+ & 0.41972E-05_JPRB,0.31935E-04_JPRB,0.36125E-04_JPRB,0.34628E-04_JPRB,0.19758E-04_JPRB /)  
+KB(:, 2,56, 6) = (/ &
+ & 0.56951E-05_JPRB,0.38357E-04_JPRB,0.43303E-04_JPRB,0.41823E-04_JPRB,0.23341E-04_JPRB /)  
+KB(:, 3,56, 6) = (/ &
+ & 0.75109E-05_JPRB,0.46586E-04_JPRB,0.52984E-04_JPRB,0.51438E-04_JPRB,0.27705E-04_JPRB /)  
+KB(:, 4,56, 6) = (/ &
+ & 0.95701E-05_JPRB,0.57135E-04_JPRB,0.66020E-04_JPRB,0.64513E-04_JPRB,0.33090E-04_JPRB /)  
+KB(:, 5,56, 6) = (/ &
+ & 0.11741E-04_JPRB,0.70996E-04_JPRB,0.83348E-04_JPRB,0.82172E-04_JPRB,0.39639E-04_JPRB /)  
+KB(:, 1,57, 6) = (/ &
+ & 0.32187E-05_JPRB,0.25710E-04_JPRB,0.29175E-04_JPRB,0.27903E-04_JPRB,0.15874E-04_JPRB /)  
+KB(:, 2,57, 6) = (/ &
+ & 0.44067E-05_JPRB,0.31037E-04_JPRB,0.35094E-04_JPRB,0.33812E-04_JPRB,0.18857E-04_JPRB /)  
+KB(:, 3,57, 6) = (/ &
+ & 0.58663E-05_JPRB,0.37889E-04_JPRB,0.43100E-04_JPRB,0.41766E-04_JPRB,0.22502E-04_JPRB /)  
+KB(:, 4,57, 6) = (/ &
+ & 0.75519E-05_JPRB,0.46817E-04_JPRB,0.54053E-04_JPRB,0.52634E-04_JPRB,0.27030E-04_JPRB /)  
+KB(:, 5,57, 6) = (/ &
+ & 0.93649E-05_JPRB,0.58529E-04_JPRB,0.68705E-04_JPRB,0.67601E-04_JPRB,0.32661E-04_JPRB /)  
+KB(:, 1,58, 6) = (/ &
+ & 0.24696E-05_JPRB,0.20698E-04_JPRB,0.23574E-04_JPRB,0.22507E-04_JPRB,0.12764E-04_JPRB /)  
+KB(:, 2,58, 6) = (/ &
+ & 0.34175E-05_JPRB,0.25141E-04_JPRB,0.28438E-04_JPRB,0.27351E-04_JPRB,0.15243E-04_JPRB /)  
+KB(:, 3,58, 6) = (/ &
+ & 0.45825E-05_JPRB,0.30855E-04_JPRB,0.35092E-04_JPRB,0.33951E-04_JPRB,0.18275E-04_JPRB /)  
+KB(:, 4,58, 6) = (/ &
+ & 0.59665E-05_JPRB,0.38392E-04_JPRB,0.44239E-04_JPRB,0.43055E-04_JPRB,0.22112E-04_JPRB /)  
+KB(:, 5,58, 6) = (/ &
+ & 0.74784E-05_JPRB,0.48383E-04_JPRB,0.56772E-04_JPRB,0.55657E-04_JPRB,0.26900E-04_JPRB /)  
+KB(:, 1,59, 6) = (/ &
+ & 0.20113E-05_JPRB,0.17223E-04_JPRB,0.19628E-04_JPRB,0.18772E-04_JPRB,0.10576E-04_JPRB /)  
+KB(:, 2,59, 6) = (/ &
+ & 0.27973E-05_JPRB,0.21075E-04_JPRB,0.23849E-04_JPRB,0.22960E-04_JPRB,0.12702E-04_JPRB /)  
+KB(:, 3,59, 6) = (/ &
+ & 0.37714E-05_JPRB,0.26064E-04_JPRB,0.29696E-04_JPRB,0.28726E-04_JPRB,0.15326E-04_JPRB /)  
+KB(:, 4,59, 6) = (/ &
+ & 0.49189E-05_JPRB,0.32724E-04_JPRB,0.37808E-04_JPRB,0.36791E-04_JPRB,0.18710E-04_JPRB /)  
+KB(:, 5,59, 6) = (/ &
+ & 0.61850E-05_JPRB,0.41676E-04_JPRB,0.49043E-04_JPRB,0.48051E-04_JPRB,0.22936E-04_JPRB /)  
+KB(:, 1,13, 7) = (/ &
+ & 0.90574E-01_JPRB,0.18508E+00_JPRB,0.20125E+00_JPRB,0.19353E+00_JPRB,0.13590E+00_JPRB /)  
+KB(:, 2,13, 7) = (/ &
+ & 0.96633E-01_JPRB,0.18856E+00_JPRB,0.20514E+00_JPRB,0.19781E+00_JPRB,0.13867E+00_JPRB /)  
+KB(:, 3,13, 7) = (/ &
+ & 0.10246E+00_JPRB,0.19231E+00_JPRB,0.20916E+00_JPRB,0.20175E+00_JPRB,0.14157E+00_JPRB /)  
+KB(:, 4,13, 7) = (/ &
+ & 0.10831E+00_JPRB,0.19664E+00_JPRB,0.21340E+00_JPRB,0.20566E+00_JPRB,0.14422E+00_JPRB /)  
+KB(:, 5,13, 7) = (/ &
+ & 0.11418E+00_JPRB,0.20190E+00_JPRB,0.21829E+00_JPRB,0.20964E+00_JPRB,0.14715E+00_JPRB /)  
+KB(:, 1,14, 7) = (/ &
+ & 0.76731E-01_JPRB,0.15637E+00_JPRB,0.17031E+00_JPRB,0.16454E+00_JPRB,0.11471E+00_JPRB /)  
+KB(:, 2,14, 7) = (/ &
+ & 0.81853E-01_JPRB,0.15935E+00_JPRB,0.17367E+00_JPRB,0.16809E+00_JPRB,0.11738E+00_JPRB /)  
+KB(:, 3,14, 7) = (/ &
+ & 0.86939E-01_JPRB,0.16284E+00_JPRB,0.17719E+00_JPRB,0.17151E+00_JPRB,0.11993E+00_JPRB /)  
+KB(:, 4,14, 7) = (/ &
+ & 0.91985E-01_JPRB,0.16698E+00_JPRB,0.18115E+00_JPRB,0.17500E+00_JPRB,0.12254E+00_JPRB /)  
+KB(:, 5,14, 7) = (/ &
+ & 0.97005E-01_JPRB,0.17199E+00_JPRB,0.18590E+00_JPRB,0.17860E+00_JPRB,0.12524E+00_JPRB /)  
+KB(:, 1,15, 7) = (/ &
+ & 0.64796E-01_JPRB,0.13180E+00_JPRB,0.14379E+00_JPRB,0.13927E+00_JPRB,0.96282E-01_JPRB /)  
+KB(:, 2,15, 7) = (/ &
+ & 0.69175E-01_JPRB,0.13451E+00_JPRB,0.14669E+00_JPRB,0.14230E+00_JPRB,0.98702E-01_JPRB /)  
+KB(:, 3,15, 7) = (/ &
+ & 0.73574E-01_JPRB,0.13779E+00_JPRB,0.14991E+00_JPRB,0.14533E+00_JPRB,0.10111E+00_JPRB /)  
+KB(:, 4,15, 7) = (/ &
+ & 0.77907E-01_JPRB,0.14175E+00_JPRB,0.15375E+00_JPRB,0.14848E+00_JPRB,0.10336E+00_JPRB /)  
+KB(:, 5,15, 7) = (/ &
+ & 0.82082E-01_JPRB,0.14644E+00_JPRB,0.15826E+00_JPRB,0.15192E+00_JPRB,0.10558E+00_JPRB /)  
+KB(:, 1,16, 7) = (/ &
+ & 0.54603E-01_JPRB,0.11092E+00_JPRB,0.12113E+00_JPRB,0.11747E+00_JPRB,0.80564E-01_JPRB /)  
+KB(:, 2,16, 7) = (/ &
+ & 0.58392E-01_JPRB,0.11343E+00_JPRB,0.12376E+00_JPRB,0.12011E+00_JPRB,0.82662E-01_JPRB /)  
+KB(:, 3,16, 7) = (/ &
+ & 0.62149E-01_JPRB,0.11652E+00_JPRB,0.12680E+00_JPRB,0.12283E+00_JPRB,0.84744E-01_JPRB /)  
+KB(:, 4,16, 7) = (/ &
+ & 0.65779E-01_JPRB,0.12031E+00_JPRB,0.13049E+00_JPRB,0.12576E+00_JPRB,0.86806E-01_JPRB /)  
+KB(:, 5,16, 7) = (/ &
+ & 0.69275E-01_JPRB,0.12462E+00_JPRB,0.13474E+00_JPRB,0.12909E+00_JPRB,0.88592E-01_JPRB /)  
+KB(:, 1,17, 7) = (/ &
+ & 0.46019E-01_JPRB,0.93276E-01_JPRB,0.10182E+00_JPRB,0.98886E-01_JPRB,0.67386E-01_JPRB /)  
+KB(:, 2,17, 7) = (/ &
+ & 0.49257E-01_JPRB,0.95617E-01_JPRB,0.10427E+00_JPRB,0.10122E+00_JPRB,0.69214E-01_JPRB /)  
+KB(:, 3,17, 7) = (/ &
+ & 0.52438E-01_JPRB,0.98544E-01_JPRB,0.10723E+00_JPRB,0.10369E+00_JPRB,0.71047E-01_JPRB /)  
+KB(:, 4,17, 7) = (/ &
+ & 0.55444E-01_JPRB,0.10204E+00_JPRB,0.11074E+00_JPRB,0.10647E+00_JPRB,0.72809E-01_JPRB /)  
+KB(:, 5,17, 7) = (/ &
+ & 0.58360E-01_JPRB,0.10585E+00_JPRB,0.11469E+00_JPRB,0.10967E+00_JPRB,0.74297E-01_JPRB /)  
+KB(:, 1,18, 7) = (/ &
+ & 0.38789E-01_JPRB,0.78385E-01_JPRB,0.85426E-01_JPRB,0.83127E-01_JPRB,0.56424E-01_JPRB /)  
+KB(:, 2,18, 7) = (/ &
+ & 0.41550E-01_JPRB,0.80626E-01_JPRB,0.87775E-01_JPRB,0.85216E-01_JPRB,0.58103E-01_JPRB /)  
+KB(:, 3,18, 7) = (/ &
+ & 0.44172E-01_JPRB,0.83391E-01_JPRB,0.90633E-01_JPRB,0.87547E-01_JPRB,0.59665E-01_JPRB /)  
+KB(:, 4,18, 7) = (/ &
+ & 0.46672E-01_JPRB,0.86541E-01_JPRB,0.93910E-01_JPRB,0.90224E-01_JPRB,0.61155E-01_JPRB /)  
+KB(:, 5,18, 7) = (/ &
+ & 0.49119E-01_JPRB,0.89890E-01_JPRB,0.97478E-01_JPRB,0.93171E-01_JPRB,0.62440E-01_JPRB /)  
+KB(:, 1,19, 7) = (/ &
+ & 0.32688E-01_JPRB,0.65866E-01_JPRB,0.71699E-01_JPRB,0.69831E-01_JPRB,0.47341E-01_JPRB /)  
+KB(:, 2,19, 7) = (/ &
+ & 0.34993E-01_JPRB,0.67987E-01_JPRB,0.73938E-01_JPRB,0.71758E-01_JPRB,0.48787E-01_JPRB /)  
+KB(:, 3,19, 7) = (/ &
+ & 0.37158E-01_JPRB,0.70566E-01_JPRB,0.76608E-01_JPRB,0.73972E-01_JPRB,0.50204E-01_JPRB /)  
+KB(:, 4,19, 7) = (/ &
+ & 0.39257E-01_JPRB,0.73365E-01_JPRB,0.79594E-01_JPRB,0.76458E-01_JPRB,0.51459E-01_JPRB /)  
+KB(:, 5,19, 7) = (/ &
+ & 0.41326E-01_JPRB,0.76343E-01_JPRB,0.82757E-01_JPRB,0.79138E-01_JPRB,0.52598E-01_JPRB /)  
+KB(:, 1,20, 7) = (/ &
+ & 0.27557E-01_JPRB,0.55396E-01_JPRB,0.60366E-01_JPRB,0.58674E-01_JPRB,0.39775E-01_JPRB /)  
+KB(:, 2,20, 7) = (/ &
+ & 0.29458E-01_JPRB,0.57423E-01_JPRB,0.62478E-01_JPRB,0.60497E-01_JPRB,0.41091E-01_JPRB /)  
+KB(:, 3,20, 7) = (/ &
+ & 0.31261E-01_JPRB,0.59745E-01_JPRB,0.64927E-01_JPRB,0.62579E-01_JPRB,0.42317E-01_JPRB /)  
+KB(:, 4,20, 7) = (/ &
+ & 0.33046E-01_JPRB,0.62240E-01_JPRB,0.67549E-01_JPRB,0.64853E-01_JPRB,0.43439E-01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART21',1,ZHOOK_HANDLE)
+END SUBROUTINE PART21
+
+
+SUBROUTINE PART22
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART22',0,ZHOOK_HANDLE)
+
+
+KB(:, 5,20, 7) = (/ &
+ & 0.34818E-01_JPRB,0.64890E-01_JPRB,0.70320E-01_JPRB,0.67290E-01_JPRB,0.44513E-01_JPRB /)  
+KB(:, 1,21, 7) = (/ &
+ & 0.23194E-01_JPRB,0.46662E-01_JPRB,0.50879E-01_JPRB,0.49331E-01_JPRB,0.33429E-01_JPRB /)  
+KB(:, 2,21, 7) = (/ &
+ & 0.24776E-01_JPRB,0.48529E-01_JPRB,0.52871E-01_JPRB,0.51054E-01_JPRB,0.34590E-01_JPRB /)  
+KB(:, 3,21, 7) = (/ &
+ & 0.26303E-01_JPRB,0.50578E-01_JPRB,0.55098E-01_JPRB,0.52980E-01_JPRB,0.35684E-01_JPRB /)  
+KB(:, 4,21, 7) = (/ &
+ & 0.27810E-01_JPRB,0.52793E-01_JPRB,0.57429E-01_JPRB,0.55052E-01_JPRB,0.36688E-01_JPRB /)  
+KB(:, 5,21, 7) = (/ &
+ & 0.29323E-01_JPRB,0.55187E-01_JPRB,0.59853E-01_JPRB,0.57245E-01_JPRB,0.37657E-01_JPRB /)  
+KB(:, 1,22, 7) = (/ &
+ & 0.19600E-01_JPRB,0.39448E-01_JPRB,0.43057E-01_JPRB,0.41623E-01_JPRB,0.28169E-01_JPRB /)  
+KB(:, 2,22, 7) = (/ &
+ & 0.20910E-01_JPRB,0.41135E-01_JPRB,0.44924E-01_JPRB,0.43250E-01_JPRB,0.29188E-01_JPRB /)  
+KB(:, 3,22, 7) = (/ &
+ & 0.22195E-01_JPRB,0.42970E-01_JPRB,0.46916E-01_JPRB,0.45021E-01_JPRB,0.30138E-01_JPRB /)  
+KB(:, 4,22, 7) = (/ &
+ & 0.23466E-01_JPRB,0.44963E-01_JPRB,0.48978E-01_JPRB,0.46906E-01_JPRB,0.31021E-01_JPRB /)  
+KB(:, 5,22, 7) = (/ &
+ & 0.24791E-01_JPRB,0.47151E-01_JPRB,0.51143E-01_JPRB,0.48901E-01_JPRB,0.31919E-01_JPRB /)  
+KB(:, 1,23, 7) = (/ &
+ & 0.16563E-01_JPRB,0.33405E-01_JPRB,0.36517E-01_JPRB,0.35235E-01_JPRB,0.23758E-01_JPRB /)  
+KB(:, 2,23, 7) = (/ &
+ & 0.17634E-01_JPRB,0.34920E-01_JPRB,0.38215E-01_JPRB,0.36726E-01_JPRB,0.24656E-01_JPRB /)  
+KB(:, 3,23, 7) = (/ &
+ & 0.18715E-01_JPRB,0.36571E-01_JPRB,0.39976E-01_JPRB,0.38337E-01_JPRB,0.25473E-01_JPRB /)  
+KB(:, 4,23, 7) = (/ &
+ & 0.19810E-01_JPRB,0.38397E-01_JPRB,0.41828E-01_JPRB,0.40046E-01_JPRB,0.26273E-01_JPRB /)  
+KB(:, 5,23, 7) = (/ &
+ & 0.20990E-01_JPRB,0.40406E-01_JPRB,0.43840E-01_JPRB,0.41881E-01_JPRB,0.27068E-01_JPRB /)  
+KB(:, 1,24, 7) = (/ &
+ & 0.13980E-01_JPRB,0.28346E-01_JPRB,0.31027E-01_JPRB,0.29909E-01_JPRB,0.20058E-01_JPRB /)  
+KB(:, 2,24, 7) = (/ &
+ & 0.14874E-01_JPRB,0.29707E-01_JPRB,0.32546E-01_JPRB,0.31266E-01_JPRB,0.20839E-01_JPRB /)  
+KB(:, 3,24, 7) = (/ &
+ & 0.15797E-01_JPRB,0.31204E-01_JPRB,0.34123E-01_JPRB,0.32728E-01_JPRB,0.21557E-01_JPRB /)  
+KB(:, 4,24, 7) = (/ &
+ & 0.16758E-01_JPRB,0.32875E-01_JPRB,0.35824E-01_JPRB,0.34296E-01_JPRB,0.22274E-01_JPRB /)  
+KB(:, 5,24, 7) = (/ &
+ & 0.17809E-01_JPRB,0.34737E-01_JPRB,0.37711E-01_JPRB,0.35981E-01_JPRB,0.22992E-01_JPRB /)  
+KB(:, 1,25, 7) = (/ &
+ & 0.11798E-01_JPRB,0.24110E-01_JPRB,0.26426E-01_JPRB,0.25457E-01_JPRB,0.16985E-01_JPRB /)  
+KB(:, 2,25, 7) = (/ &
+ & 0.12561E-01_JPRB,0.25347E-01_JPRB,0.27781E-01_JPRB,0.26691E-01_JPRB,0.17655E-01_JPRB /)  
+KB(:, 3,25, 7) = (/ &
+ & 0.13359E-01_JPRB,0.26711E-01_JPRB,0.29222E-01_JPRB,0.28026E-01_JPRB,0.18302E-01_JPRB /)  
+KB(:, 4,25, 7) = (/ &
+ & 0.14208E-01_JPRB,0.28241E-01_JPRB,0.30806E-01_JPRB,0.29472E-01_JPRB,0.18949E-01_JPRB /)  
+KB(:, 5,25, 7) = (/ &
+ & 0.15157E-01_JPRB,0.29980E-01_JPRB,0.32597E-01_JPRB,0.31029E-01_JPRB,0.19596E-01_JPRB /)  
+KB(:, 1,26, 7) = (/ &
+ & 0.99745E-02_JPRB,0.20581E-01_JPRB,0.22580E-01_JPRB,0.21746E-01_JPRB,0.14432E-01_JPRB /)  
+KB(:, 2,26, 7) = (/ &
+ & 0.10633E-01_JPRB,0.21703E-01_JPRB,0.23807E-01_JPRB,0.22873E-01_JPRB,0.15014E-01_JPRB /)  
+KB(:, 3,26, 7) = (/ &
+ & 0.11328E-01_JPRB,0.22948E-01_JPRB,0.25141E-01_JPRB,0.24108E-01_JPRB,0.15588E-01_JPRB /)  
+KB(:, 4,26, 7) = (/ &
+ & 0.12091E-01_JPRB,0.24380E-01_JPRB,0.26636E-01_JPRB,0.25439E-01_JPRB,0.16180E-01_JPRB /)  
+KB(:, 5,26, 7) = (/ &
+ & 0.12943E-01_JPRB,0.26016E-01_JPRB,0.28335E-01_JPRB,0.26899E-01_JPRB,0.16787E-01_JPRB /)  
+KB(:, 1,27, 7) = (/ &
+ & 0.84424E-02_JPRB,0.17603E-01_JPRB,0.19348E-01_JPRB,0.18632E-01_JPRB,0.12275E-01_JPRB /)  
+KB(:, 2,27, 7) = (/ &
+ & 0.90172E-02_JPRB,0.18627E-01_JPRB,0.20475E-01_JPRB,0.19670E-01_JPRB,0.12796E-01_JPRB /)  
+KB(:, 3,27, 7) = (/ &
+ & 0.96344E-02_JPRB,0.19791E-01_JPRB,0.21724E-01_JPRB,0.20817E-01_JPRB,0.13316E-01_JPRB /)  
+KB(:, 4,27, 7) = (/ &
+ & 0.10319E-01_JPRB,0.21143E-01_JPRB,0.23141E-01_JPRB,0.22059E-01_JPRB,0.13859E-01_JPRB /)  
+KB(:, 5,27, 7) = (/ &
+ & 0.11083E-01_JPRB,0.22688E-01_JPRB,0.24742E-01_JPRB,0.23449E-01_JPRB,0.14418E-01_JPRB /)  
+KB(:, 1,28, 7) = (/ &
+ & 0.71594E-02_JPRB,0.15094E-01_JPRB,0.16638E-01_JPRB,0.16016E-01_JPRB,0.10452E-01_JPRB /)  
+KB(:, 2,28, 7) = (/ &
+ & 0.76603E-02_JPRB,0.16043E-01_JPRB,0.17678E-01_JPRB,0.16989E-01_JPRB,0.10928E-01_JPRB /)  
+KB(:, 3,28, 7) = (/ &
+ & 0.82161E-02_JPRB,0.17148E-01_JPRB,0.18856E-01_JPRB,0.18055E-01_JPRB,0.11409E-01_JPRB /)  
+KB(:, 4,28, 7) = (/ &
+ & 0.88297E-02_JPRB,0.18429E-01_JPRB,0.20193E-01_JPRB,0.19234E-01_JPRB,0.11908E-01_JPRB /)  
+KB(:, 5,28, 7) = (/ &
+ & 0.95210E-02_JPRB,0.19896E-01_JPRB,0.21697E-01_JPRB,0.20565E-01_JPRB,0.12423E-01_JPRB /)  
+KB(:, 1,29, 7) = (/ &
+ & 0.60865E-02_JPRB,0.12992E-01_JPRB,0.14367E-01_JPRB,0.13830E-01_JPRB,0.89337E-02_JPRB /)  
+KB(:, 2,29, 7) = (/ &
+ & 0.65273E-02_JPRB,0.13894E-01_JPRB,0.15342E-01_JPRB,0.14741E-01_JPRB,0.93649E-02_JPRB /)  
+KB(:, 3,29, 7) = (/ &
+ & 0.70278E-02_JPRB,0.14949E-01_JPRB,0.16457E-01_JPRB,0.15746E-01_JPRB,0.98158E-02_JPRB /)  
+KB(:, 4,29, 7) = (/ &
+ & 0.75858E-02_JPRB,0.16169E-01_JPRB,0.17720E-01_JPRB,0.16877E-01_JPRB,0.10273E-01_JPRB /)  
+KB(:, 5,29, 7) = (/ &
+ & 0.82154E-02_JPRB,0.17564E-01_JPRB,0.19150E-01_JPRB,0.18159E-01_JPRB,0.10745E-01_JPRB /)  
+KB(:, 1,30, 7) = (/ &
+ & 0.51820E-02_JPRB,0.11236E-01_JPRB,0.12459E-01_JPRB,0.12000E-01_JPRB,0.76507E-02_JPRB /)  
+KB(:, 2,30, 7) = (/ &
+ & 0.55811E-02_JPRB,0.12098E-01_JPRB,0.13380E-01_JPRB,0.12854E-01_JPRB,0.80497E-02_JPRB /)  
+KB(:, 3,30, 7) = (/ &
+ & 0.60310E-02_JPRB,0.13108E-01_JPRB,0.14440E-01_JPRB,0.13813E-01_JPRB,0.84648E-02_JPRB /)  
+KB(:, 4,30, 7) = (/ &
+ & 0.65404E-02_JPRB,0.14273E-01_JPRB,0.15644E-01_JPRB,0.14905E-01_JPRB,0.88882E-02_JPRB /)  
+KB(:, 5,30, 7) = (/ &
+ & 0.71170E-02_JPRB,0.15597E-01_JPRB,0.17012E-01_JPRB,0.16134E-01_JPRB,0.93248E-02_JPRB /)  
+KB(:, 1,31, 7) = (/ &
+ & 0.44272E-02_JPRB,0.97757E-02_JPRB,0.10859E-01_JPRB,0.10467E-01_JPRB,0.65734E-02_JPRB /)  
+KB(:, 2,31, 7) = (/ &
+ & 0.47878E-02_JPRB,0.10603E-01_JPRB,0.11740E-01_JPRB,0.11277E-01_JPRB,0.69415E-02_JPRB /)  
+KB(:, 3,31, 7) = (/ &
+ & 0.51963E-02_JPRB,0.11572E-01_JPRB,0.12753E-01_JPRB,0.12201E-01_JPRB,0.73188E-02_JPRB /)  
+KB(:, 4,31, 7) = (/ &
+ & 0.56609E-02_JPRB,0.12684E-01_JPRB,0.13904E-01_JPRB,0.13252E-01_JPRB,0.77091E-02_JPRB /)  
+KB(:, 5,31, 7) = (/ &
+ & 0.61977E-02_JPRB,0.13944E-01_JPRB,0.15244E-01_JPRB,0.14424E-01_JPRB,0.81161E-02_JPRB /)  
+KB(:, 1,32, 7) = (/ &
+ & 0.37962E-02_JPRB,0.85614E-02_JPRB,0.95233E-02_JPRB,0.91812E-02_JPRB,0.56658E-02_JPRB /)  
+KB(:, 2,32, 7) = (/ &
+ & 0.41228E-02_JPRB,0.93595E-02_JPRB,0.10368E-01_JPRB,0.99574E-02_JPRB,0.60000E-02_JPRB /)  
+KB(:, 3,32, 7) = (/ &
+ & 0.44947E-02_JPRB,0.10287E-01_JPRB,0.11338E-01_JPRB,0.10850E-01_JPRB,0.63462E-02_JPRB /)  
+KB(:, 4,32, 7) = (/ &
+ & 0.49244E-02_JPRB,0.11349E-01_JPRB,0.12467E-01_JPRB,0.11857E-01_JPRB,0.67069E-02_JPRB /)  
+KB(:, 5,32, 7) = (/ &
+ & 0.54252E-02_JPRB,0.12554E-01_JPRB,0.13767E-01_JPRB,0.12983E-01_JPRB,0.70910E-02_JPRB /)  
+KB(:, 1,33, 7) = (/ &
+ & 0.32656E-02_JPRB,0.75519E-02_JPRB,0.84026E-02_JPRB,0.81028E-02_JPRB,0.48937E-02_JPRB /)  
+KB(:, 2,33, 7) = (/ &
+ & 0.35630E-02_JPRB,0.83178E-02_JPRB,0.92157E-02_JPRB,0.88531E-02_JPRB,0.52004E-02_JPRB /)  
+KB(:, 3,33, 7) = (/ &
+ & 0.39050E-02_JPRB,0.92063E-02_JPRB,0.10168E-01_JPRB,0.97125E-02_JPRB,0.55156E-02_JPRB /)  
+KB(:, 4,33, 7) = (/ &
+ & 0.43055E-02_JPRB,0.10227E-01_JPRB,0.11270E-01_JPRB,0.10682E-01_JPRB,0.58516E-02_JPRB /)  
+KB(:, 5,33, 7) = (/ &
+ & 0.47651E-02_JPRB,0.11396E-01_JPRB,0.12524E-01_JPRB,0.11769E-01_JPRB,0.62091E-02_JPRB /)  
+KB(:, 1,34, 7) = (/ &
+ & 0.28105E-02_JPRB,0.66873E-02_JPRB,0.74405E-02_JPRB,0.71742E-02_JPRB,0.42413E-02_JPRB /)  
+KB(:, 2,34, 7) = (/ &
+ & 0.30819E-02_JPRB,0.74197E-02_JPRB,0.82328E-02_JPRB,0.78962E-02_JPRB,0.45189E-02_JPRB /)  
+KB(:, 3,34, 7) = (/ &
+ & 0.33974E-02_JPRB,0.82731E-02_JPRB,0.91582E-02_JPRB,0.87214E-02_JPRB,0.48133E-02_JPRB /)  
+KB(:, 4,34, 7) = (/ &
+ & 0.37682E-02_JPRB,0.92558E-02_JPRB,0.10225E-01_JPRB,0.96550E-02_JPRB,0.51300E-02_JPRB /)  
+KB(:, 5,34, 7) = (/ &
+ & 0.41836E-02_JPRB,0.10408E-01_JPRB,0.11429E-01_JPRB,0.10709E-01_JPRB,0.54671E-02_JPRB /)  
+KB(:, 1,35, 7) = (/ &
+ & 0.24038E-02_JPRB,0.58948E-02_JPRB,0.65709E-02_JPRB,0.63304E-02_JPRB,0.36544E-02_JPRB /)  
+KB(:, 2,35, 7) = (/ &
+ & 0.26483E-02_JPRB,0.65885E-02_JPRB,0.73295E-02_JPRB,0.70175E-02_JPRB,0.39080E-02_JPRB /)  
+KB(:, 3,35, 7) = (/ &
+ & 0.29372E-02_JPRB,0.74016E-02_JPRB,0.82197E-02_JPRB,0.78032E-02_JPRB,0.41855E-02_JPRB /)  
+KB(:, 4,35, 7) = (/ &
+ & 0.32728E-02_JPRB,0.83531E-02_JPRB,0.92365E-02_JPRB,0.86973E-02_JPRB,0.44777E-02_JPRB /)  
+KB(:, 5,35, 7) = (/ &
+ & 0.36421E-02_JPRB,0.94681E-02_JPRB,0.10387E-01_JPRB,0.97145E-02_JPRB,0.47967E-02_JPRB /)  
+KB(:, 1,36, 7) = (/ &
+ & 0.20373E-02_JPRB,0.51550E-02_JPRB,0.57662E-02_JPRB,0.55498E-02_JPRB,0.31231E-02_JPRB /)  
+KB(:, 2,36, 7) = (/ &
+ & 0.22554E-02_JPRB,0.58057E-02_JPRB,0.64818E-02_JPRB,0.61953E-02_JPRB,0.33549E-02_JPRB /)  
+KB(:, 3,36, 7) = (/ &
+ & 0.25127E-02_JPRB,0.65796E-02_JPRB,0.73228E-02_JPRB,0.69361E-02_JPRB,0.36112E-02_JPRB /)  
+KB(:, 4,36, 7) = (/ &
+ & 0.28104E-02_JPRB,0.74827E-02_JPRB,0.82833E-02_JPRB,0.77843E-02_JPRB,0.38823E-02_JPRB /)  
+KB(:, 5,36, 7) = (/ &
+ & 0.31359E-02_JPRB,0.85467E-02_JPRB,0.93763E-02_JPRB,0.87575E-02_JPRB,0.41812E-02_JPRB /)  
+KB(:, 1,37, 7) = (/ &
+ & 0.17035E-02_JPRB,0.44466E-02_JPRB,0.49856E-02_JPRB,0.47970E-02_JPRB,0.26734E-02_JPRB /)  
+KB(:, 2,37, 7) = (/ &
+ & 0.18934E-02_JPRB,0.50433E-02_JPRB,0.56462E-02_JPRB,0.53907E-02_JPRB,0.28873E-02_JPRB /)  
+KB(:, 3,37, 7) = (/ &
+ & 0.21171E-02_JPRB,0.57558E-02_JPRB,0.64223E-02_JPRB,0.60783E-02_JPRB,0.31233E-02_JPRB /)  
+KB(:, 4,37, 7) = (/ &
+ & 0.23767E-02_JPRB,0.65938E-02_JPRB,0.73141E-02_JPRB,0.68717E-02_JPRB,0.33760E-02_JPRB /)  
+KB(:, 5,37, 7) = (/ &
+ & 0.26616E-02_JPRB,0.75860E-02_JPRB,0.83359E-02_JPRB,0.77859E-02_JPRB,0.36530E-02_JPRB /)  
+KB(:, 1,38, 7) = (/ &
+ & 0.14234E-02_JPRB,0.38379E-02_JPRB,0.43139E-02_JPRB,0.41486E-02_JPRB,0.22904E-02_JPRB /)  
+KB(:, 2,38, 7) = (/ &
+ & 0.15875E-02_JPRB,0.43850E-02_JPRB,0.49236E-02_JPRB,0.46956E-02_JPRB,0.24873E-02_JPRB /)  
+KB(:, 3,38, 7) = (/ &
+ & 0.17824E-02_JPRB,0.50419E-02_JPRB,0.56400E-02_JPRB,0.53338E-02_JPRB,0.27024E-02_JPRB /)  
+KB(:, 4,38, 7) = (/ &
+ & 0.20080E-02_JPRB,0.58195E-02_JPRB,0.64682E-02_JPRB,0.60767E-02_JPRB,0.29386E-02_JPRB /)  
+KB(:, 5,38, 7) = (/ &
+ & 0.22567E-02_JPRB,0.67445E-02_JPRB,0.74253E-02_JPRB,0.69357E-02_JPRB,0.31979E-02_JPRB /)  
+KB(:, 1,39, 7) = (/ &
+ & 0.11890E-02_JPRB,0.33180E-02_JPRB,0.37396E-02_JPRB,0.35935E-02_JPRB,0.19623E-02_JPRB /)  
+KB(:, 2,39, 7) = (/ &
+ & 0.13309E-02_JPRB,0.38204E-02_JPRB,0.43017E-02_JPRB,0.40980E-02_JPRB,0.21427E-02_JPRB /)  
+KB(:, 3,39, 7) = (/ &
+ & 0.14997E-02_JPRB,0.44279E-02_JPRB,0.49653E-02_JPRB,0.46926E-02_JPRB,0.23415E-02_JPRB /)  
+KB(:, 4,39, 7) = (/ &
+ & 0.16956E-02_JPRB,0.51508E-02_JPRB,0.57361E-02_JPRB,0.53891E-02_JPRB,0.25595E-02_JPRB /)  
+KB(:, 5,39, 7) = (/ &
+ & 0.19128E-02_JPRB,0.60136E-02_JPRB,0.66353E-02_JPRB,0.61975E-02_JPRB,0.28034E-02_JPRB /)  
+KB(:, 1,40, 7) = (/ &
+ & 0.98185E-03_JPRB,0.28304E-02_JPRB,0.31989E-02_JPRB,0.30741E-02_JPRB,0.16759E-02_JPRB /)  
+KB(:, 2,40, 7) = (/ &
+ & 0.11018E-02_JPRB,0.32825E-02_JPRB,0.37073E-02_JPRB,0.35318E-02_JPRB,0.18412E-02_JPRB /)  
+KB(:, 3,40, 7) = (/ &
+ & 0.12459E-02_JPRB,0.38338E-02_JPRB,0.43125E-02_JPRB,0.40771E-02_JPRB,0.20230E-02_JPRB /)  
+KB(:, 4,40, 7) = (/ &
+ & 0.14138E-02_JPRB,0.44950E-02_JPRB,0.50204E-02_JPRB,0.47198E-02_JPRB,0.22264E-02_JPRB /)  
+KB(:, 5,40, 7) = (/ &
+ & 0.16015E-02_JPRB,0.52867E-02_JPRB,0.58524E-02_JPRB,0.54701E-02_JPRB,0.24538E-02_JPRB /)  
+KB(:, 1,41, 7) = (/ &
+ & 0.80888E-03_JPRB,0.24101E-02_JPRB,0.27302E-02_JPRB,0.26250E-02_JPRB,0.14285E-02_JPRB /)  
+KB(:, 2,41, 7) = (/ &
+ & 0.91042E-03_JPRB,0.28166E-02_JPRB,0.31895E-02_JPRB,0.30396E-02_JPRB,0.15812E-02_JPRB /)  
+KB(:, 3,41, 7) = (/ &
+ & 0.10323E-02_JPRB,0.33144E-02_JPRB,0.37392E-02_JPRB,0.35375E-02_JPRB,0.17482E-02_JPRB /)  
+KB(:, 4,41, 7) = (/ &
+ & 0.11757E-02_JPRB,0.39172E-02_JPRB,0.43885E-02_JPRB,0.41290E-02_JPRB,0.19366E-02_JPRB /)  
+KB(:, 5,41, 7) = (/ &
+ & 0.13368E-02_JPRB,0.46417E-02_JPRB,0.51571E-02_JPRB,0.48237E-02_JPRB,0.21455E-02_JPRB /)  
+KB(:, 1,42, 7) = (/ &
+ & 0.66584E-03_JPRB,0.20506E-02_JPRB,0.23294E-02_JPRB,0.22418E-02_JPRB,0.12147E-02_JPRB /)  
+KB(:, 2,42, 7) = (/ &
+ & 0.75117E-03_JPRB,0.24164E-02_JPRB,0.27427E-02_JPRB,0.26163E-02_JPRB,0.13552E-02_JPRB /)  
+KB(:, 3,42, 7) = (/ &
+ & 0.85464E-03_JPRB,0.28657E-02_JPRB,0.32419E-02_JPRB,0.30702E-02_JPRB,0.15103E-02_JPRB /)  
+KB(:, 4,42, 7) = (/ &
+ & 0.97690E-03_JPRB,0.34148E-02_JPRB,0.38374E-02_JPRB,0.36136E-02_JPRB,0.16836E-02_JPRB /)  
+KB(:, 5,42, 7) = (/ &
+ & 0.11154E-02_JPRB,0.40777E-02_JPRB,0.45486E-02_JPRB,0.42564E-02_JPRB,0.18765E-02_JPRB /)  
+KB(:, 1,43, 7) = (/ &
+ & 0.54468E-03_JPRB,0.17260E-02_JPRB,0.19662E-02_JPRB,0.18963E-02_JPRB,0.10278E-02_JPRB /)  
+KB(:, 2,43, 7) = (/ &
+ & 0.61495E-03_JPRB,0.20517E-02_JPRB,0.23339E-02_JPRB,0.22307E-02_JPRB,0.11544E-02_JPRB /)  
+KB(:, 3,43, 7) = (/ &
+ & 0.70090E-03_JPRB,0.24526E-02_JPRB,0.27821E-02_JPRB,0.26393E-02_JPRB,0.12972E-02_JPRB /)  
+KB(:, 4,43, 7) = (/ &
+ & 0.80460E-03_JPRB,0.29460E-02_JPRB,0.33228E-02_JPRB,0.31329E-02_JPRB,0.14583E-02_JPRB /)  
+KB(:, 5,43, 7) = (/ &
+ & 0.92296E-03_JPRB,0.35462E-02_JPRB,0.39738E-02_JPRB,0.37220E-02_JPRB,0.16369E-02_JPRB /)  
+KB(:, 1,44, 7) = (/ &
+ & 0.44364E-03_JPRB,0.14437E-02_JPRB,0.16496E-02_JPRB,0.15952E-02_JPRB,0.86540E-03_JPRB /)  
+KB(:, 2,44, 7) = (/ &
+ & 0.50199E-03_JPRB,0.17304E-02_JPRB,0.19739E-02_JPRB,0.18912E-02_JPRB,0.97937E-03_JPRB /)  
+KB(:, 3,44, 7) = (/ &
+ & 0.57242E-03_JPRB,0.20860E-02_JPRB,0.23731E-02_JPRB,0.22565E-02_JPRB,0.11106E-02_JPRB /)  
+KB(:, 4,44, 7) = (/ &
+ & 0.65930E-03_JPRB,0.25283E-02_JPRB,0.28613E-02_JPRB,0.27024E-02_JPRB,0.12573E-02_JPRB /)  
+KB(:, 5,44, 7) = (/ &
+ & 0.75974E-03_JPRB,0.30673E-02_JPRB,0.34531E-02_JPRB,0.32379E-02_JPRB,0.14238E-02_JPRB /)  
+KB(:, 1,45, 7) = (/ &
+ & 0.36129E-03_JPRB,0.12055E-02_JPRB,0.13811E-02_JPRB,0.13394E-02_JPRB,0.72668E-03_JPRB /)  
+KB(:, 2,45, 7) = (/ &
+ & 0.40925E-03_JPRB,0.14558E-02_JPRB,0.16660E-02_JPRB,0.16003E-02_JPRB,0.82937E-03_JPRB /)  
+KB(:, 3,45, 7) = (/ &
+ & 0.46755E-03_JPRB,0.17705E-02_JPRB,0.20201E-02_JPRB,0.19260E-02_JPRB,0.94755E-03_JPRB /)  
+KB(:, 4,45, 7) = (/ &
+ & 0.53937E-03_JPRB,0.21654E-02_JPRB,0.24593E-02_JPRB,0.23275E-02_JPRB,0.10822E-02_JPRB /)  
+KB(:, 5,45, 7) = (/ &
+ & 0.62400E-03_JPRB,0.26505E-02_JPRB,0.29965E-02_JPRB,0.28141E-02_JPRB,0.12345E-02_JPRB /)  
+KB(:, 1,46, 7) = (/ &
+ & 0.29308E-03_JPRB,0.99917E-03_JPRB,0.11483E-02_JPRB,0.11175E-02_JPRB,0.60699E-03_JPRB /)  
+KB(:, 2,46, 7) = (/ &
+ & 0.33256E-03_JPRB,0.12167E-02_JPRB,0.13963E-02_JPRB,0.13454E-02_JPRB,0.69810E-03_JPRB /)  
+KB(:, 3,46, 7) = (/ &
+ & 0.38031E-03_JPRB,0.14933E-02_JPRB,0.17091E-02_JPRB,0.16341E-02_JPRB,0.80431E-03_JPRB /)  
+KB(:, 4,46, 7) = (/ &
+ & 0.43974E-03_JPRB,0.18423E-02_JPRB,0.21003E-02_JPRB,0.19926E-02_JPRB,0.92607E-03_JPRB /)  
+KB(:, 5,46, 7) = (/ &
+ & 0.51042E-03_JPRB,0.22760E-02_JPRB,0.25842E-02_JPRB,0.24318E-02_JPRB,0.10656E-02_JPRB /)  
+KB(:, 1,47, 7) = (/ &
+ & 0.23621E-03_JPRB,0.81920E-03_JPRB,0.94415E-03_JPRB,0.92230E-03_JPRB,0.50239E-03_JPRB /)  
+KB(:, 2,47, 7) = (/ &
+ & 0.26847E-03_JPRB,0.10045E-02_JPRB,0.11560E-02_JPRB,0.11182E-02_JPRB,0.58268E-03_JPRB /)  
+KB(:, 3,47, 7) = (/ &
+ & 0.30727E-03_JPRB,0.12442E-02_JPRB,0.14284E-02_JPRB,0.13701E-02_JPRB,0.67654E-03_JPRB /)  
+KB(:, 4,47, 7) = (/ &
+ & 0.35565E-03_JPRB,0.15479E-02_JPRB,0.17727E-02_JPRB,0.16866E-02_JPRB,0.78602E-03_JPRB /)  
+KB(:, 5,47, 7) = (/ &
+ & 0.41455E-03_JPRB,0.19320E-02_JPRB,0.22031E-02_JPRB,0.20787E-02_JPRB,0.91297E-03_JPRB /)  
+KB(:, 1,48, 7) = (/ &
+ & 0.19056E-03_JPRB,0.66912E-03_JPRB,0.77329E-03_JPRB,0.75810E-03_JPRB,0.41434E-03_JPRB /)  
+KB(:, 2,48, 7) = (/ &
+ & 0.21662E-03_JPRB,0.82638E-03_JPRB,0.95404E-03_JPRB,0.92602E-03_JPRB,0.48448E-03_JPRB /)  
+KB(:, 3,48, 7) = (/ &
+ & 0.24805E-03_JPRB,0.10324E-02_JPRB,0.11883E-02_JPRB,0.11443E-02_JPRB,0.56714E-03_JPRB /)  
+KB(:, 4,48, 7) = (/ &
+ & 0.28732E-03_JPRB,0.12967E-02_JPRB,0.14909E-02_JPRB,0.14226E-02_JPRB,0.66465E-03_JPRB /)  
+KB(:, 5,48, 7) = (/ &
+ & 0.33598E-03_JPRB,0.16339E-02_JPRB,0.18720E-02_JPRB,0.17712E-02_JPRB,0.77925E-03_JPRB /)  
+KB(:, 1,49, 7) = (/ &
+ & 0.15370E-03_JPRB,0.54435E-03_JPRB,0.63072E-03_JPRB,0.62031E-03_JPRB,0.34039E-03_JPRB /)  
+KB(:, 2,49, 7) = (/ &
+ & 0.17493E-03_JPRB,0.67703E-03_JPRB,0.78385E-03_JPRB,0.76375E-03_JPRB,0.40110E-03_JPRB /)  
+KB(:, 3,49, 7) = (/ &
+ & 0.20006E-03_JPRB,0.85331E-03_JPRB,0.98454E-03_JPRB,0.95185E-03_JPRB,0.47334E-03_JPRB /)  
+KB(:, 4,49, 7) = (/ &
+ & 0.23184E-03_JPRB,0.10822E-02_JPRB,0.12482E-02_JPRB,0.11953E-02_JPRB,0.56021E-03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART22',1,ZHOOK_HANDLE)
+END SUBROUTINE PART22
+
+
+SUBROUTINE PART23
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART23',0,ZHOOK_HANDLE)
+
+
+KB(:, 5,49, 7) = (/ &
+ & 0.27201E-03_JPRB,0.13761E-02_JPRB,0.15848E-02_JPRB,0.15038E-02_JPRB,0.66336E-03_JPRB /)  
+KB(:, 1,50, 7) = (/ &
+ & 0.12445E-03_JPRB,0.44363E-03_JPRB,0.51558E-03_JPRB,0.50858E-03_JPRB,0.27983E-03_JPRB /)  
+KB(:, 2,50, 7) = (/ &
+ & 0.14173E-03_JPRB,0.55572E-03_JPRB,0.64516E-03_JPRB,0.63048E-03_JPRB,0.33240E-03_JPRB /)  
+KB(:, 3,50, 7) = (/ &
+ & 0.16225E-03_JPRB,0.70658E-03_JPRB,0.81789E-03_JPRB,0.79296E-03_JPRB,0.39601E-03_JPRB /)  
+KB(:, 4,50, 7) = (/ &
+ & 0.18768E-03_JPRB,0.90539E-03_JPRB,0.10468E-02_JPRB,0.10060E-02_JPRB,0.47285E-03_JPRB /)  
+KB(:, 5,50, 7) = (/ &
+ & 0.22071E-03_JPRB,0.11624E-02_JPRB,0.13446E-02_JPRB,0.12795E-02_JPRB,0.56523E-03_JPRB /)  
+KB(:, 1,51, 7) = (/ &
+ & 0.10079E-03_JPRB,0.36142E-03_JPRB,0.42089E-03_JPRB,0.41617E-03_JPRB,0.23042E-03_JPRB /)  
+KB(:, 2,51, 7) = (/ &
+ & 0.11508E-03_JPRB,0.45540E-03_JPRB,0.53023E-03_JPRB,0.51983E-03_JPRB,0.27489E-03_JPRB /)  
+KB(:, 3,51, 7) = (/ &
+ & 0.13183E-03_JPRB,0.58426E-03_JPRB,0.67873E-03_JPRB,0.65942E-03_JPRB,0.33073E-03_JPRB /)  
+KB(:, 4,51, 7) = (/ &
+ & 0.15243E-03_JPRB,0.75694E-03_JPRB,0.87652E-03_JPRB,0.84573E-03_JPRB,0.39869E-03_JPRB /)  
+KB(:, 5,51, 7) = (/ &
+ & 0.17921E-03_JPRB,0.98295E-03_JPRB,0.11402E-02_JPRB,0.10885E-02_JPRB,0.48140E-03_JPRB /)  
+KB(:, 1,52, 7) = (/ &
+ & 0.81556E-04_JPRB,0.29363E-03_JPRB,0.34244E-03_JPRB,0.33921E-03_JPRB,0.18905E-03_JPRB /)  
+KB(:, 2,52, 7) = (/ &
+ & 0.93358E-04_JPRB,0.37204E-03_JPRB,0.43415E-03_JPRB,0.42707E-03_JPRB,0.22730E-03_JPRB /)  
+KB(:, 3,52, 7) = (/ &
+ & 0.10711E-03_JPRB,0.48125E-03_JPRB,0.56095E-03_JPRB,0.54625E-03_JPRB,0.27517E-03_JPRB /)  
+KB(:, 4,52, 7) = (/ &
+ & 0.12382E-03_JPRB,0.62999E-03_JPRB,0.73195E-03_JPRB,0.70815E-03_JPRB,0.33506E-03_JPRB /)  
+KB(:, 5,52, 7) = (/ &
+ & 0.14564E-03_JPRB,0.82786E-03_JPRB,0.96258E-03_JPRB,0.92197E-03_JPRB,0.40847E-03_JPRB /)  
+KB(:, 1,53, 7) = (/ &
+ & 0.65849E-04_JPRB,0.23779E-03_JPRB,0.27734E-03_JPRB,0.27519E-03_JPRB,0.15433E-03_JPRB /)  
+KB(:, 2,53, 7) = (/ &
+ & 0.75546E-04_JPRB,0.30303E-03_JPRB,0.35410E-03_JPRB,0.34952E-03_JPRB,0.18741E-03_JPRB /)  
+KB(:, 3,53, 7) = (/ &
+ & 0.86880E-04_JPRB,0.39464E-03_JPRB,0.46133E-03_JPRB,0.45049E-03_JPRB,0.22844E-03_JPRB /)  
+KB(:, 4,53, 7) = (/ &
+ & 0.10061E-03_JPRB,0.52205E-03_JPRB,0.60866E-03_JPRB,0.59002E-03_JPRB,0.28045E-03_JPRB /)  
+KB(:, 5,53, 7) = (/ &
+ & 0.11837E-03_JPRB,0.69424E-03_JPRB,0.80911E-03_JPRB,0.77763E-03_JPRB,0.34549E-03_JPRB /)  
+KB(:, 1,54, 7) = (/ &
+ & 0.53194E-04_JPRB,0.19358E-03_JPRB,0.22554E-03_JPRB,0.22386E-03_JPRB,0.12634E-03_JPRB /)  
+KB(:, 2,54, 7) = (/ &
+ & 0.61356E-04_JPRB,0.24774E-03_JPRB,0.28991E-03_JPRB,0.28698E-03_JPRB,0.15485E-03_JPRB /)  
+KB(:, 3,54, 7) = (/ &
+ & 0.70732E-04_JPRB,0.32546E-03_JPRB,0.38104E-03_JPRB,0.37325E-03_JPRB,0.19067E-03_JPRB /)  
+KB(:, 4,54, 7) = (/ &
+ & 0.81989E-04_JPRB,0.43475E-03_JPRB,0.50842E-03_JPRB,0.49348E-03_JPRB,0.23573E-03_JPRB /)  
+KB(:, 5,54, 7) = (/ &
+ & 0.96606E-04_JPRB,0.58491E-03_JPRB,0.68358E-03_JPRB,0.65848E-03_JPRB,0.29331E-03_JPRB /)  
+KB(:, 1,55, 7) = (/ &
+ & 0.42968E-04_JPRB,0.15774E-03_JPRB,0.18351E-03_JPRB,0.18209E-03_JPRB,0.10325E-03_JPRB /)  
+KB(:, 2,55, 7) = (/ &
+ & 0.49757E-04_JPRB,0.20300E-03_JPRB,0.23752E-03_JPRB,0.23563E-03_JPRB,0.12786E-03_JPRB /)  
+KB(:, 3,55, 7) = (/ &
+ & 0.57602E-04_JPRB,0.26853E-03_JPRB,0.31476E-03_JPRB,0.30938E-03_JPRB,0.15908E-03_JPRB /)  
+KB(:, 4,55, 7) = (/ &
+ & 0.66944E-04_JPRB,0.36215E-03_JPRB,0.42458E-03_JPRB,0.41285E-03_JPRB,0.19867E-03_JPRB /)  
+KB(:, 5,55, 7) = (/ &
+ & 0.78909E-04_JPRB,0.49332E-03_JPRB,0.57794E-03_JPRB,0.55775E-03_JPRB,0.24929E-03_JPRB /)  
+KB(:, 1,56, 7) = (/ &
+ & 0.34572E-04_JPRB,0.12819E-03_JPRB,0.14868E-03_JPRB,0.14747E-03_JPRB,0.84103E-04_JPRB /)  
+KB(:, 2,56, 7) = (/ &
+ & 0.40234E-04_JPRB,0.16586E-03_JPRB,0.19409E-03_JPRB,0.19266E-03_JPRB,0.10511E-03_JPRB /)  
+KB(:, 3,56, 7) = (/ &
+ & 0.46756E-04_JPRB,0.22079E-03_JPRB,0.25905E-03_JPRB,0.25536E-03_JPRB,0.13228E-03_JPRB /)  
+KB(:, 4,56, 7) = (/ &
+ & 0.54583E-04_JPRB,0.30103E-03_JPRB,0.35315E-03_JPRB,0.34421E-03_JPRB,0.16708E-03_JPRB /)  
+KB(:, 5,56, 7) = (/ &
+ & 0.64414E-04_JPRB,0.41471E-03_JPRB,0.48701E-03_JPRB,0.47045E-03_JPRB,0.21139E-03_JPRB /)  
+KB(:, 1,57, 7) = (/ &
+ & 0.27768E-04_JPRB,0.10391E-03_JPRB,0.12029E-03_JPRB,0.11888E-03_JPRB,0.68178E-04_JPRB /)  
+KB(:, 2,57, 7) = (/ &
+ & 0.32463E-04_JPRB,0.13502E-03_JPRB,0.15785E-03_JPRB,0.15684E-03_JPRB,0.86073E-04_JPRB /)  
+KB(:, 3,57, 7) = (/ &
+ & 0.37880E-04_JPRB,0.18114E-03_JPRB,0.21255E-03_JPRB,0.20984E-03_JPRB,0.10949E-03_JPRB /)  
+KB(:, 4,57, 7) = (/ &
+ & 0.44374E-04_JPRB,0.24914E-03_JPRB,0.29262E-03_JPRB,0.28609E-03_JPRB,0.14004E-03_JPRB /)  
+KB(:, 5,57, 7) = (/ &
+ & 0.52560E-04_JPRB,0.34723E-03_JPRB,0.40853E-03_JPRB,0.39531E-03_JPRB,0.17907E-03_JPRB /)  
+KB(:, 1,58, 7) = (/ &
+ & 0.22293E-04_JPRB,0.84410E-04_JPRB,0.97318E-04_JPRB,0.95954E-04_JPRB,0.55246E-04_JPRB /)  
+KB(:, 2,58, 7) = (/ &
+ & 0.26200E-04_JPRB,0.11013E-03_JPRB,0.12878E-03_JPRB,0.12778E-03_JPRB,0.70434E-04_JPRB /)  
+KB(:, 3,58, 7) = (/ &
+ & 0.30694E-04_JPRB,0.14878E-03_JPRB,0.17475E-03_JPRB,0.17269E-03_JPRB,0.90681E-04_JPRB /)  
+KB(:, 4,58, 7) = (/ &
+ & 0.36071E-04_JPRB,0.20666E-03_JPRB,0.24284E-03_JPRB,0.23795E-03_JPRB,0.11731E-03_JPRB /)  
+KB(:, 5,58, 7) = (/ &
+ & 0.42845E-04_JPRB,0.29161E-03_JPRB,0.34322E-03_JPRB,0.33267E-03_JPRB,0.15208E-03_JPRB /)  
+KB(:, 1,59, 7) = (/ &
+ & 0.18430E-04_JPRB,0.71706E-04_JPRB,0.82601E-04_JPRB,0.81289E-04_JPRB,0.46584E-04_JPRB /)  
+KB(:, 2,59, 7) = (/ &
+ & 0.21734E-04_JPRB,0.94599E-04_JPRB,0.11060E-03_JPRB,0.10958E-03_JPRB,0.60168E-04_JPRB /)  
+KB(:, 3,59, 7) = (/ &
+ & 0.25561E-04_JPRB,0.12924E-03_JPRB,0.15196E-03_JPRB,0.15008E-03_JPRB,0.78430E-04_JPRB /)  
+KB(:, 4,59, 7) = (/ &
+ & 0.30185E-04_JPRB,0.18220E-03_JPRB,0.21420E-03_JPRB,0.20980E-03_JPRB,0.10280E-03_JPRB /)  
+KB(:, 5,59, 7) = (/ &
+ & 0.36067E-04_JPRB,0.26061E-03_JPRB,0.30710E-03_JPRB,0.29739E-03_JPRB,0.13531E-03_JPRB /)  
+KB(:, 1,13, 8) = (/ &
+ & 0.32299E+00_JPRB,0.54760E+00_JPRB,0.60079E+00_JPRB,0.58517E+00_JPRB,0.42276E+00_JPRB /)  
+KB(:, 2,13, 8) = (/ &
+ & 0.32594E+00_JPRB,0.55963E+00_JPRB,0.61653E+00_JPRB,0.60147E+00_JPRB,0.43281E+00_JPRB /)  
+KB(:, 3,13, 8) = (/ &
+ & 0.33056E+00_JPRB,0.57182E+00_JPRB,0.63236E+00_JPRB,0.61863E+00_JPRB,0.44149E+00_JPRB /)  
+KB(:, 4,13, 8) = (/ &
+ & 0.33706E+00_JPRB,0.58426E+00_JPRB,0.64822E+00_JPRB,0.63489E+00_JPRB,0.44893E+00_JPRB /)  
+KB(:, 5,13, 8) = (/ &
+ & 0.34635E+00_JPRB,0.59739E+00_JPRB,0.66343E+00_JPRB,0.65003E+00_JPRB,0.45486E+00_JPRB /)  
+KB(:, 1,14, 8) = (/ &
+ & 0.27185E+00_JPRB,0.47396E+00_JPRB,0.52087E+00_JPRB,0.50518E+00_JPRB,0.35898E+00_JPRB /)  
+KB(:, 2,14, 8) = (/ &
+ & 0.27455E+00_JPRB,0.48454E+00_JPRB,0.53473E+00_JPRB,0.52058E+00_JPRB,0.36725E+00_JPRB /)  
+KB(:, 3,14, 8) = (/ &
+ & 0.27878E+00_JPRB,0.49523E+00_JPRB,0.54876E+00_JPRB,0.53556E+00_JPRB,0.37477E+00_JPRB /)  
+KB(:, 4,14, 8) = (/ &
+ & 0.28540E+00_JPRB,0.50660E+00_JPRB,0.56244E+00_JPRB,0.54948E+00_JPRB,0.38095E+00_JPRB /)  
+KB(:, 5,14, 8) = (/ &
+ & 0.29474E+00_JPRB,0.51876E+00_JPRB,0.57592E+00_JPRB,0.56255E+00_JPRB,0.38660E+00_JPRB /)  
+KB(:, 1,15, 8) = (/ &
+ & 0.22818E+00_JPRB,0.40825E+00_JPRB,0.45003E+00_JPRB,0.43582E+00_JPRB,0.30350E+00_JPRB /)  
+KB(:, 2,15, 8) = (/ &
+ & 0.23074E+00_JPRB,0.41749E+00_JPRB,0.46220E+00_JPRB,0.44930E+00_JPRB,0.31064E+00_JPRB /)  
+KB(:, 3,15, 8) = (/ &
+ & 0.23510E+00_JPRB,0.42737E+00_JPRB,0.47434E+00_JPRB,0.46202E+00_JPRB,0.31696E+00_JPRB /)  
+KB(:, 4,15, 8) = (/ &
+ & 0.24186E+00_JPRB,0.43783E+00_JPRB,0.48637E+00_JPRB,0.47387E+00_JPRB,0.32265E+00_JPRB /)  
+KB(:, 5,15, 8) = (/ &
+ & 0.25121E+00_JPRB,0.44943E+00_JPRB,0.49855E+00_JPRB,0.48519E+00_JPRB,0.32816E+00_JPRB /)  
+KB(:, 1,16, 8) = (/ &
+ & 0.19120E+00_JPRB,0.34975E+00_JPRB,0.38732E+00_JPRB,0.37509E+00_JPRB,0.25617E+00_JPRB /)  
+KB(:, 2,16, 8) = (/ &
+ & 0.19385E+00_JPRB,0.35826E+00_JPRB,0.39799E+00_JPRB,0.38666E+00_JPRB,0.26259E+00_JPRB /)  
+KB(:, 3,16, 8) = (/ &
+ & 0.19846E+00_JPRB,0.36727E+00_JPRB,0.40872E+00_JPRB,0.39750E+00_JPRB,0.26815E+00_JPRB /)  
+KB(:, 4,16, 8) = (/ &
+ & 0.20537E+00_JPRB,0.37712E+00_JPRB,0.41954E+00_JPRB,0.40777E+00_JPRB,0.27330E+00_JPRB /)  
+KB(:, 5,16, 8) = (/ &
+ & 0.21427E+00_JPRB,0.38868E+00_JPRB,0.43071E+00_JPRB,0.41784E+00_JPRB,0.27853E+00_JPRB /)  
+KB(:, 1,17, 8) = (/ &
+ & 0.15988E+00_JPRB,0.29854E+00_JPRB,0.33180E+00_JPRB,0.32201E+00_JPRB,0.21611E+00_JPRB /)  
+KB(:, 2,17, 8) = (/ &
+ & 0.16279E+00_JPRB,0.30628E+00_JPRB,0.34129E+00_JPRB,0.33188E+00_JPRB,0.22162E+00_JPRB /)  
+KB(:, 3,17, 8) = (/ &
+ & 0.16763E+00_JPRB,0.31463E+00_JPRB,0.35085E+00_JPRB,0.34122E+00_JPRB,0.22664E+00_JPRB /)  
+KB(:, 4,17, 8) = (/ &
+ & 0.17444E+00_JPRB,0.32432E+00_JPRB,0.36068E+00_JPRB,0.35032E+00_JPRB,0.23161E+00_JPRB /)  
+KB(:, 5,17, 8) = (/ &
+ & 0.18274E+00_JPRB,0.33609E+00_JPRB,0.37140E+00_JPRB,0.35944E+00_JPRB,0.23665E+00_JPRB /)  
+KB(:, 1,18, 8) = (/ &
+ & 0.13352E+00_JPRB,0.25404E+00_JPRB,0.28330E+00_JPRB,0.27577E+00_JPRB,0.18225E+00_JPRB /)  
+KB(:, 2,18, 8) = (/ &
+ & 0.13667E+00_JPRB,0.26103E+00_JPRB,0.29171E+00_JPRB,0.28431E+00_JPRB,0.18712E+00_JPRB /)  
+KB(:, 3,18, 8) = (/ &
+ & 0.14164E+00_JPRB,0.26910E+00_JPRB,0.30030E+00_JPRB,0.29254E+00_JPRB,0.19176E+00_JPRB /)  
+KB(:, 4,18, 8) = (/ &
+ & 0.14809E+00_JPRB,0.27886E+00_JPRB,0.30959E+00_JPRB,0.30073E+00_JPRB,0.19637E+00_JPRB /)  
+KB(:, 5,18, 8) = (/ &
+ & 0.15551E+00_JPRB,0.29050E+00_JPRB,0.32020E+00_JPRB,0.30930E+00_JPRB,0.20115E+00_JPRB /)  
+KB(:, 1,19, 8) = (/ &
+ & 0.11177E+00_JPRB,0.21580E+00_JPRB,0.24136E+00_JPRB,0.23552E+00_JPRB,0.15392E+00_JPRB /)  
+KB(:, 2,19, 8) = (/ &
+ & 0.11504E+00_JPRB,0.22243E+00_JPRB,0.24890E+00_JPRB,0.24304E+00_JPRB,0.15833E+00_JPRB /)  
+KB(:, 3,19, 8) = (/ &
+ & 0.11975E+00_JPRB,0.23031E+00_JPRB,0.25687E+00_JPRB,0.25048E+00_JPRB,0.16244E+00_JPRB /)  
+KB(:, 4,19, 8) = (/ &
+ & 0.12553E+00_JPRB,0.23994E+00_JPRB,0.26588E+00_JPRB,0.25812E+00_JPRB,0.16671E+00_JPRB /)  
+KB(:, 5,19, 8) = (/ &
+ & 0.13204E+00_JPRB,0.25107E+00_JPRB,0.27639E+00_JPRB,0.26629E+00_JPRB,0.17110E+00_JPRB /)  
+KB(:, 1,20, 8) = (/ &
+ & 0.93818E-01_JPRB,0.18336E+00_JPRB,0.20533E+00_JPRB,0.20083E+00_JPRB,0.13063E+00_JPRB /)  
+KB(:, 2,20, 8) = (/ &
+ & 0.97153E-01_JPRB,0.18975E+00_JPRB,0.21222E+00_JPRB,0.20754E+00_JPRB,0.13445E+00_JPRB /)  
+KB(:, 3,20, 8) = (/ &
+ & 0.10157E+00_JPRB,0.19759E+00_JPRB,0.21989E+00_JPRB,0.21439E+00_JPRB,0.13819E+00_JPRB /)  
+KB(:, 4,20, 8) = (/ &
+ & 0.10656E+00_JPRB,0.20692E+00_JPRB,0.22885E+00_JPRB,0.22170E+00_JPRB,0.14200E+00_JPRB /)  
+KB(:, 5,20, 8) = (/ &
+ & 0.11217E+00_JPRB,0.21741E+00_JPRB,0.23914E+00_JPRB,0.22972E+00_JPRB,0.14595E+00_JPRB /)  
+KB(:, 1,21, 8) = (/ &
+ & 0.78864E-01_JPRB,0.15581E+00_JPRB,0.17467E+00_JPRB,0.17111E+00_JPRB,0.11093E+00_JPRB /)  
+KB(:, 2,21, 8) = (/ &
+ & 0.82115E-01_JPRB,0.16213E+00_JPRB,0.18114E+00_JPRB,0.17722E+00_JPRB,0.11448E+00_JPRB /)  
+KB(:, 3,21, 8) = (/ &
+ & 0.86091E-01_JPRB,0.16989E+00_JPRB,0.18858E+00_JPRB,0.18368E+00_JPRB,0.11795E+00_JPRB /)  
+KB(:, 4,21, 8) = (/ &
+ & 0.90544E-01_JPRB,0.17883E+00_JPRB,0.19740E+00_JPRB,0.19075E+00_JPRB,0.12140E+00_JPRB /)  
+KB(:, 5,21, 8) = (/ &
+ & 0.95531E-01_JPRB,0.18857E+00_JPRB,0.20719E+00_JPRB,0.19872E+00_JPRB,0.12494E+00_JPRB /)  
+KB(:, 1,22, 8) = (/ &
+ & 0.66536E-01_JPRB,0.13293E+00_JPRB,0.14913E+00_JPRB,0.14618E+00_JPRB,0.94429E-01_JPRB /)  
+KB(:, 2,22, 8) = (/ &
+ & 0.69639E-01_JPRB,0.13931E+00_JPRB,0.15537E+00_JPRB,0.15187E+00_JPRB,0.97680E-01_JPRB /)  
+KB(:, 3,22, 8) = (/ &
+ & 0.73194E-01_JPRB,0.14688E+00_JPRB,0.16282E+00_JPRB,0.15805E+00_JPRB,0.10087E+00_JPRB /)  
+KB(:, 4,22, 8) = (/ &
+ & 0.77205E-01_JPRB,0.15536E+00_JPRB,0.17135E+00_JPRB,0.16503E+00_JPRB,0.10414E+00_JPRB /)  
+KB(:, 5,22, 8) = (/ &
+ & 0.81667E-01_JPRB,0.16427E+00_JPRB,0.18066E+00_JPRB,0.17291E+00_JPRB,0.10744E+00_JPRB /)  
+KB(:, 1,23, 8) = (/ &
+ & 0.56261E-01_JPRB,0.11383E+00_JPRB,0.12760E+00_JPRB,0.12512E+00_JPRB,0.80559E-01_JPRB /)  
+KB(:, 2,23, 8) = (/ &
+ & 0.59086E-01_JPRB,0.12014E+00_JPRB,0.13384E+00_JPRB,0.13048E+00_JPRB,0.83485E-01_JPRB /)  
+KB(:, 3,23, 8) = (/ &
+ & 0.62281E-01_JPRB,0.12738E+00_JPRB,0.14121E+00_JPRB,0.13648E+00_JPRB,0.86460E-01_JPRB /)  
+KB(:, 4,23, 8) = (/ &
+ & 0.65906E-01_JPRB,0.13517E+00_JPRB,0.14937E+00_JPRB,0.14336E+00_JPRB,0.89462E-01_JPRB /)  
+KB(:, 5,23, 8) = (/ &
+ & 0.69998E-01_JPRB,0.14335E+00_JPRB,0.15807E+00_JPRB,0.15098E+00_JPRB,0.92588E-01_JPRB /)  
+KB(:, 1,24, 8) = (/ &
+ & 0.47642E-01_JPRB,0.97933E-01_JPRB,0.10963E+00_JPRB,0.10742E+00_JPRB,0.68750E-01_JPRB /)  
+KB(:, 2,24, 8) = (/ &
+ & 0.50193E-01_JPRB,0.10399E+00_JPRB,0.11587E+00_JPRB,0.11258E+00_JPRB,0.71432E-01_JPRB /)  
+KB(:, 3,24, 8) = (/ &
+ & 0.53085E-01_JPRB,0.11077E+00_JPRB,0.12298E+00_JPRB,0.11845E+00_JPRB,0.74194E-01_JPRB /)  
+KB(:, 4,24, 8) = (/ &
+ & 0.56384E-01_JPRB,0.11795E+00_JPRB,0.13070E+00_JPRB,0.12512E+00_JPRB,0.76973E-01_JPRB /)  
+KB(:, 5,24, 8) = (/ &
+ & 0.60174E-01_JPRB,0.12555E+00_JPRB,0.13879E+00_JPRB,0.13237E+00_JPRB,0.79920E-01_JPRB /)  
+KB(:, 1,25, 8) = (/ &
+ & 0.40432E-01_JPRB,0.84645E-01_JPRB,0.94724E-01_JPRB,0.92637E-01_JPRB,0.58805E-01_JPRB /)  
+KB(:, 2,25, 8) = (/ &
+ & 0.42748E-01_JPRB,0.90409E-01_JPRB,0.10079E+00_JPRB,0.97654E-01_JPRB,0.61289E-01_JPRB /)  
+KB(:, 3,25, 8) = (/ &
+ & 0.45392E-01_JPRB,0.96682E-01_JPRB,0.10756E+00_JPRB,0.10341E+00_JPRB,0.63818E-01_JPRB /)  
+KB(:, 4,25, 8) = (/ &
+ & 0.48438E-01_JPRB,0.10335E+00_JPRB,0.11478E+00_JPRB,0.10978E+00_JPRB,0.66481E-01_JPRB /)  
+KB(:, 5,25, 8) = (/ &
+ & 0.52019E-01_JPRB,0.11050E+00_JPRB,0.12234E+00_JPRB,0.11664E+00_JPRB,0.69209E-01_JPRB /)  
+KB(:, 1,26, 8) = (/ &
+ & 0.34430E-01_JPRB,0.73567E-01_JPRB,0.82349E-01_JPRB,0.80341E-01_JPRB,0.50485E-01_JPRB /)  
+KB(:, 2,26, 8) = (/ &
+ & 0.36558E-01_JPRB,0.78997E-01_JPRB,0.88163E-01_JPRB,0.85293E-01_JPRB,0.52835E-01_JPRB /)  
+KB(:, 3,26, 8) = (/ &
+ & 0.39009E-01_JPRB,0.84818E-01_JPRB,0.94521E-01_JPRB,0.90851E-01_JPRB,0.55181E-01_JPRB /)  
+KB(:, 4,26, 8) = (/ &
+ & 0.41876E-01_JPRB,0.91074E-01_JPRB,0.10127E+00_JPRB,0.96922E-01_JPRB,0.57644E-01_JPRB /)  
+KB(:, 5,26, 8) = (/ &
+ & 0.45294E-01_JPRB,0.97874E-01_JPRB,0.10841E+00_JPRB,0.10340E+00_JPRB,0.60258E-01_JPRB /)  
+KB(:, 1,27, 8) = (/ &
+ & 0.29418E-01_JPRB,0.64289E-01_JPRB,0.71984E-01_JPRB,0.70112E-01_JPRB,0.43514E-01_JPRB /)  
+KB(:, 2,27, 8) = (/ &
+ & 0.31367E-01_JPRB,0.69333E-01_JPRB,0.77500E-01_JPRB,0.74945E-01_JPRB,0.45654E-01_JPRB /)  
+KB(:, 3,27, 8) = (/ &
+ & 0.33650E-01_JPRB,0.74779E-01_JPRB,0.83451E-01_JPRB,0.80284E-01_JPRB,0.47838E-01_JPRB /)  
+KB(:, 4,27, 8) = (/ &
+ & 0.36373E-01_JPRB,0.80698E-01_JPRB,0.89803E-01_JPRB,0.86035E-01_JPRB,0.50188E-01_JPRB /)  
+KB(:, 5,27, 8) = (/ &
+ & 0.39625E-01_JPRB,0.87227E-01_JPRB,0.96605E-01_JPRB,0.92163E-01_JPRB,0.52661E-01_JPRB /)  
+KB(:, 1,28, 8) = (/ &
+ & 0.25206E-01_JPRB,0.56436E-01_JPRB,0.63282E-01_JPRB,0.61571E-01_JPRB,0.37602E-01_JPRB /)  
+KB(:, 2,28, 8) = (/ &
+ & 0.27009E-01_JPRB,0.61147E-01_JPRB,0.68481E-01_JPRB,0.66237E-01_JPRB,0.39562E-01_JPRB /)  
+KB(:, 3,28, 8) = (/ &
+ & 0.29150E-01_JPRB,0.66302E-01_JPRB,0.74074E-01_JPRB,0.71341E-01_JPRB,0.41601E-01_JPRB /)  
+KB(:, 4,28, 8) = (/ &
+ & 0.31750E-01_JPRB,0.71955E-01_JPRB,0.80104E-01_JPRB,0.76785E-01_JPRB,0.43794E-01_JPRB /)  
+KB(:, 5,28, 8) = (/ &
+ & 0.34834E-01_JPRB,0.78268E-01_JPRB,0.86662E-01_JPRB,0.82632E-01_JPRB,0.46193E-01_JPRB /)  
+KB(:, 1,29, 8) = (/ &
+ & 0.21672E-01_JPRB,0.49821E-01_JPRB,0.55985E-01_JPRB,0.54431E-01_JPRB,0.32677E-01_JPRB /)  
+KB(:, 2,29, 8) = (/ &
+ & 0.23360E-01_JPRB,0.54257E-01_JPRB,0.60871E-01_JPRB,0.58918E-01_JPRB,0.34453E-01_JPRB /)  
+KB(:, 3,29, 8) = (/ &
+ & 0.25420E-01_JPRB,0.59159E-01_JPRB,0.66168E-01_JPRB,0.63765E-01_JPRB,0.36398E-01_JPRB /)  
+KB(:, 4,29, 8) = (/ &
+ & 0.27908E-01_JPRB,0.64629E-01_JPRB,0.71935E-01_JPRB,0.68977E-01_JPRB,0.38490E-01_JPRB /)  
+KB(:, 5,29, 8) = (/ &
+ & 0.30843E-01_JPRB,0.70791E-01_JPRB,0.78323E-01_JPRB,0.74610E-01_JPRB,0.40747E-01_JPRB /)  
+KB(:, 1,30, 8) = (/ &
+ & 0.18703E-01_JPRB,0.44236E-01_JPRB,0.49819E-01_JPRB,0.48423E-01_JPRB,0.28503E-01_JPRB /)  
+KB(:, 2,30, 8) = (/ &
+ & 0.20315E-01_JPRB,0.48445E-01_JPRB,0.54425E-01_JPRB,0.52720E-01_JPRB,0.30174E-01_JPRB /)  
+KB(:, 3,30, 8) = (/ &
+ & 0.22307E-01_JPRB,0.53163E-01_JPRB,0.59481E-01_JPRB,0.57359E-01_JPRB,0.32018E-01_JPRB /)  
+KB(:, 4,30, 8) = (/ &
+ & 0.24687E-01_JPRB,0.58495E-01_JPRB,0.65064E-01_JPRB,0.62368E-01_JPRB,0.34022E-01_JPRB /)  
+KB(:, 5,30, 8) = (/ &
+ & 0.27510E-01_JPRB,0.64597E-01_JPRB,0.71352E-01_JPRB,0.67860E-01_JPRB,0.36243E-01_JPRB /)  
+KB(:, 1,31, 8) = (/ &
+ & 0.16227E-01_JPRB,0.39546E-01_JPRB,0.44613E-01_JPRB,0.43384E-01_JPRB,0.24947E-01_JPRB /)  
+KB(:, 2,31, 8) = (/ &
+ & 0.17791E-01_JPRB,0.43576E-01_JPRB,0.49010E-01_JPRB,0.47501E-01_JPRB,0.26577E-01_JPRB /)  
+KB(:, 3,31, 8) = (/ &
+ & 0.19720E-01_JPRB,0.48163E-01_JPRB,0.53877E-01_JPRB,0.51962E-01_JPRB,0.28347E-01_JPRB /)  
+KB(:, 4,31, 8) = (/ &
+ & 0.22010E-01_JPRB,0.53419E-01_JPRB,0.59368E-01_JPRB,0.56842E-01_JPRB,0.30326E-01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART23',1,ZHOOK_HANDLE)
+END SUBROUTINE PART23
+
+
+SUBROUTINE PART24
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART24',0,ZHOOK_HANDLE)
+
+
+KB(:, 5,31, 8) = (/ &
+ & 0.24778E-01_JPRB,0.59533E-01_JPRB,0.65582E-01_JPRB,0.62279E-01_JPRB,0.32464E-01_JPRB /)  
+KB(:, 1,32, 8) = (/ &
+ & 0.14168E-01_JPRB,0.35610E-01_JPRB,0.40228E-01_JPRB,0.39145E-01_JPRB,0.21998E-01_JPRB /)  
+KB(:, 2,32, 8) = (/ &
+ & 0.15701E-01_JPRB,0.39518E-01_JPRB,0.44455E-01_JPRB,0.43108E-01_JPRB,0.23551E-01_JPRB /)  
+KB(:, 3,32, 8) = (/ &
+ & 0.17568E-01_JPRB,0.44028E-01_JPRB,0.49228E-01_JPRB,0.47442E-01_JPRB,0.25303E-01_JPRB /)  
+KB(:, 4,32, 8) = (/ &
+ & 0.19822E-01_JPRB,0.49274E-01_JPRB,0.54644E-01_JPRB,0.52269E-01_JPRB,0.27219E-01_JPRB /)  
+KB(:, 5,32, 8) = (/ &
+ & 0.22492E-01_JPRB,0.55429E-01_JPRB,0.60878E-01_JPRB,0.57696E-01_JPRB,0.29289E-01_JPRB /)  
+KB(:, 1,33, 8) = (/ &
+ & 0.12469E-01_JPRB,0.32321E-01_JPRB,0.36548E-01_JPRB,0.35586E-01_JPRB,0.19535E-01_JPRB /)  
+KB(:, 2,33, 8) = (/ &
+ & 0.13967E-01_JPRB,0.36160E-01_JPRB,0.40670E-01_JPRB,0.39414E-01_JPRB,0.21057E-01_JPRB /)  
+KB(:, 3,33, 8) = (/ &
+ & 0.15804E-01_JPRB,0.40646E-01_JPRB,0.45371E-01_JPRB,0.43697E-01_JPRB,0.22748E-01_JPRB /)  
+KB(:, 4,33, 8) = (/ &
+ & 0.18007E-01_JPRB,0.45935E-01_JPRB,0.50790E-01_JPRB,0.48504E-01_JPRB,0.24589E-01_JPRB /)  
+KB(:, 5,33, 8) = (/ &
+ & 0.20583E-01_JPRB,0.52117E-01_JPRB,0.57083E-01_JPRB,0.53949E-01_JPRB,0.26612E-01_JPRB /)  
+KB(:, 1,34, 8) = (/ &
+ & 0.11030E-01_JPRB,0.29462E-01_JPRB,0.33333E-01_JPRB,0.32457E-01_JPRB,0.17441E-01_JPRB /)  
+KB(:, 2,34, 8) = (/ &
+ & 0.12485E-01_JPRB,0.33252E-01_JPRB,0.37374E-01_JPRB,0.36203E-01_JPRB,0.18902E-01_JPRB /)  
+KB(:, 3,34, 8) = (/ &
+ & 0.14284E-01_JPRB,0.37735E-01_JPRB,0.42039E-01_JPRB,0.40449E-01_JPRB,0.20533E-01_JPRB /)  
+KB(:, 4,34, 8) = (/ &
+ & 0.16406E-01_JPRB,0.43050E-01_JPRB,0.47473E-01_JPRB,0.45250E-01_JPRB,0.22315E-01_JPRB /)  
+KB(:, 5,34, 8) = (/ &
+ & 0.18889E-01_JPRB,0.49221E-01_JPRB,0.53838E-01_JPRB,0.50709E-01_JPRB,0.24295E-01_JPRB /)  
+KB(:, 1,35, 8) = (/ &
+ & 0.97045E-02_JPRB,0.26765E-01_JPRB,0.30294E-01_JPRB,0.29494E-01_JPRB,0.15527E-01_JPRB /)  
+KB(:, 2,35, 8) = (/ &
+ & 0.11116E-01_JPRB,0.30471E-01_JPRB,0.34237E-01_JPRB,0.33156E-01_JPRB,0.16936E-01_JPRB /)  
+KB(:, 3,35, 8) = (/ &
+ & 0.12833E-01_JPRB,0.34908E-01_JPRB,0.38827E-01_JPRB,0.37335E-01_JPRB,0.18494E-01_JPRB /)  
+KB(:, 4,35, 8) = (/ &
+ & 0.14851E-01_JPRB,0.40160E-01_JPRB,0.44228E-01_JPRB,0.42095E-01_JPRB,0.20230E-01_JPRB /)  
+KB(:, 5,35, 8) = (/ &
+ & 0.17220E-01_JPRB,0.46275E-01_JPRB,0.50600E-01_JPRB,0.47524E-01_JPRB,0.22137E-01_JPRB /)  
+KB(:, 1,36, 8) = (/ &
+ & 0.84787E-02_JPRB,0.24131E-01_JPRB,0.27339E-01_JPRB,0.26619E-01_JPRB,0.13756E-01_JPRB /)  
+KB(:, 2,36, 8) = (/ &
+ & 0.98033E-02_JPRB,0.27706E-01_JPRB,0.31147E-01_JPRB,0.30166E-01_JPRB,0.15106E-01_JPRB /)  
+KB(:, 3,36, 8) = (/ &
+ & 0.11407E-01_JPRB,0.32015E-01_JPRB,0.35610E-01_JPRB,0.34239E-01_JPRB,0.16593E-01_JPRB /)  
+KB(:, 4,36, 8) = (/ &
+ & 0.13302E-01_JPRB,0.37140E-01_JPRB,0.40907E-01_JPRB,0.38904E-01_JPRB,0.18257E-01_JPRB /)  
+KB(:, 5,36, 8) = (/ &
+ & 0.15537E-01_JPRB,0.43129E-01_JPRB,0.47182E-01_JPRB,0.44236E-01_JPRB,0.20074E-01_JPRB /)  
+KB(:, 1,37, 8) = (/ &
+ & 0.72685E-02_JPRB,0.21392E-01_JPRB,0.24301E-01_JPRB,0.23679E-01_JPRB,0.12087E-01_JPRB /)  
+KB(:, 2,37, 8) = (/ &
+ & 0.84733E-02_JPRB,0.24759E-01_JPRB,0.27898E-01_JPRB,0.27046E-01_JPRB,0.13342E-01_JPRB /)  
+KB(:, 3,37, 8) = (/ &
+ & 0.99353E-02_JPRB,0.28848E-01_JPRB,0.32152E-01_JPRB,0.30940E-01_JPRB,0.14748E-01_JPRB /)  
+KB(:, 4,37, 8) = (/ &
+ & 0.11673E-01_JPRB,0.33734E-01_JPRB,0.37224E-01_JPRB,0.35422E-01_JPRB,0.16319E-01_JPRB /)  
+KB(:, 5,37, 8) = (/ &
+ & 0.13740E-01_JPRB,0.39481E-01_JPRB,0.43256E-01_JPRB,0.40566E-01_JPRB,0.18049E-01_JPRB /)  
+KB(:, 1,38, 8) = (/ &
+ & 0.62326E-02_JPRB,0.18999E-01_JPRB,0.21644E-01_JPRB,0.21103E-01_JPRB,0.10629E-01_JPRB /)  
+KB(:, 2,38, 8) = (/ &
+ & 0.73269E-02_JPRB,0.22170E-01_JPRB,0.25042E-01_JPRB,0.24299E-01_JPRB,0.11807E-01_JPRB /)  
+KB(:, 3,38, 8) = (/ &
+ & 0.86586E-02_JPRB,0.26045E-01_JPRB,0.29098E-01_JPRB,0.28019E-01_JPRB,0.13138E-01_JPRB /)  
+KB(:, 4,38, 8) = (/ &
+ & 0.10254E-01_JPRB,0.30699E-01_JPRB,0.33952E-01_JPRB,0.32316E-01_JPRB,0.14621E-01_JPRB /)  
+KB(:, 5,38, 8) = (/ &
+ & 0.12168E-01_JPRB,0.36211E-01_JPRB,0.39748E-01_JPRB,0.37288E-01_JPRB,0.16263E-01_JPRB /)  
+KB(:, 1,39, 8) = (/ &
+ & 0.53522E-02_JPRB,0.16925E-01_JPRB,0.19337E-01_JPRB,0.18863E-01_JPRB,0.93697E-02_JPRB /)  
+KB(:, 2,39, 8) = (/ &
+ & 0.63437E-02_JPRB,0.19916E-01_JPRB,0.22555E-01_JPRB,0.21900E-01_JPRB,0.10477E-01_JPRB /)  
+KB(:, 3,39, 8) = (/ &
+ & 0.75600E-02_JPRB,0.23590E-01_JPRB,0.26428E-01_JPRB,0.25453E-01_JPRB,0.11732E-01_JPRB /)  
+KB(:, 4,39, 8) = (/ &
+ & 0.90277E-02_JPRB,0.28027E-01_JPRB,0.31081E-01_JPRB,0.29581E-01_JPRB,0.13140E-01_JPRB /)  
+KB(:, 5,39, 8) = (/ &
+ & 0.10804E-01_JPRB,0.33325E-01_JPRB,0.36655E-01_JPRB,0.34396E-01_JPRB,0.14714E-01_JPRB /)  
+KB(:, 1,40, 8) = (/ &
+ & 0.45183E-02_JPRB,0.14862E-01_JPRB,0.17043E-01_JPRB,0.16640E-01_JPRB,0.81906E-02_JPRB /)  
+KB(:, 2,40, 8) = (/ &
+ & 0.53964E-02_JPRB,0.17630E-01_JPRB,0.20043E-01_JPRB,0.19482E-01_JPRB,0.92335E-02_JPRB /)  
+KB(:, 3,40, 8) = (/ &
+ & 0.64835E-02_JPRB,0.21041E-01_JPRB,0.23674E-01_JPRB,0.22821E-01_JPRB,0.10400E-01_JPRB /)  
+KB(:, 4,40, 8) = (/ &
+ & 0.78100E-02_JPRB,0.25197E-01_JPRB,0.28056E-01_JPRB,0.26733E-01_JPRB,0.11718E-01_JPRB /)  
+KB(:, 5,40, 8) = (/ &
+ & 0.94310E-02_JPRB,0.30203E-01_JPRB,0.33322E-01_JPRB,0.31321E-01_JPRB,0.13209E-01_JPRB /)  
+KB(:, 1,41, 8) = (/ &
+ & 0.38020E-02_JPRB,0.13035E-01_JPRB,0.15007E-01_JPRB,0.14665E-01_JPRB,0.71645E-02_JPRB /)  
+KB(:, 2,41, 8) = (/ &
+ & 0.45796E-02_JPRB,0.15592E-01_JPRB,0.17802E-01_JPRB,0.17320E-01_JPRB,0.81332E-02_JPRB /)  
+KB(:, 3,41, 8) = (/ &
+ & 0.55464E-02_JPRB,0.18749E-01_JPRB,0.21191E-01_JPRB,0.20448E-01_JPRB,0.92312E-02_JPRB /)  
+KB(:, 4,41, 8) = (/ &
+ & 0.67408E-02_JPRB,0.22629E-01_JPRB,0.25309E-01_JPRB,0.24143E-01_JPRB,0.10458E-01_JPRB /)  
+KB(:, 5,41, 8) = (/ &
+ & 0.82155E-02_JPRB,0.27347E-01_JPRB,0.30277E-01_JPRB,0.28506E-01_JPRB,0.11871E-01_JPRB /)  
+KB(:, 1,42, 8) = (/ &
+ & 0.31962E-02_JPRB,0.11444E-01_JPRB,0.13229E-01_JPRB,0.12937E-01_JPRB,0.62788E-02_JPRB /)  
+KB(:, 2,42, 8) = (/ &
+ & 0.38815E-02_JPRB,0.13798E-01_JPRB,0.15822E-01_JPRB,0.15407E-01_JPRB,0.71774E-02_JPRB /)  
+KB(:, 3,42, 8) = (/ &
+ & 0.47422E-02_JPRB,0.16722E-01_JPRB,0.18990E-01_JPRB,0.18339E-01_JPRB,0.81986E-02_JPRB /)  
+KB(:, 4,42, 8) = (/ &
+ & 0.58154E-02_JPRB,0.20342E-01_JPRB,0.22857E-01_JPRB,0.21830E-01_JPRB,0.93594E-02_JPRB /)  
+KB(:, 5,42, 8) = (/ &
+ & 0.71546E-02_JPRB,0.24787E-01_JPRB,0.27545E-01_JPRB,0.25973E-01_JPRB,0.10684E-01_JPRB /)  
+KB(:, 1,43, 8) = (/ &
+ & 0.26542E-02_JPRB,0.99421E-02_JPRB,0.11545E-01_JPRB,0.11297E-01_JPRB,0.54681E-02_JPRB /)  
+KB(:, 2,43, 8) = (/ &
+ & 0.32467E-02_JPRB,0.12085E-01_JPRB,0.13926E-01_JPRB,0.13575E-01_JPRB,0.63017E-02_JPRB /)  
+KB(:, 3,43, 8) = (/ &
+ & 0.40037E-02_JPRB,0.14758E-01_JPRB,0.16848E-01_JPRB,0.16296E-01_JPRB,0.72434E-02_JPRB /)  
+KB(:, 4,43, 8) = (/ &
+ & 0.49534E-02_JPRB,0.18094E-01_JPRB,0.20438E-01_JPRB,0.19556E-01_JPRB,0.83354E-02_JPRB /)  
+KB(:, 5,43, 8) = (/ &
+ & 0.61525E-02_JPRB,0.22230E-01_JPRB,0.24817E-01_JPRB,0.23450E-01_JPRB,0.95751E-02_JPRB /)  
+KB(:, 1,44, 8) = (/ &
+ & 0.21881E-02_JPRB,0.85857E-02_JPRB,0.10019E-01_JPRB,0.98043E-02_JPRB,0.47456E-02_JPRB /)  
+KB(:, 2,44, 8) = (/ &
+ & 0.26937E-02_JPRB,0.10525E-01_JPRB,0.12192E-01_JPRB,0.11898E-01_JPRB,0.55168E-02_JPRB /)  
+KB(:, 3,44, 8) = (/ &
+ & 0.33531E-02_JPRB,0.12952E-01_JPRB,0.14870E-01_JPRB,0.14408E-01_JPRB,0.63938E-02_JPRB /)  
+KB(:, 4,44, 8) = (/ &
+ & 0.41916E-02_JPRB,0.16016E-01_JPRB,0.18187E-01_JPRB,0.17441E-01_JPRB,0.73995E-02_JPRB /)  
+KB(:, 5,44, 8) = (/ &
+ & 0.52529E-02_JPRB,0.19825E-01_JPRB,0.22245E-01_JPRB,0.21074E-01_JPRB,0.85693E-02_JPRB /)  
+KB(:, 1,45, 8) = (/ &
+ & 0.17974E-02_JPRB,0.74036E-02_JPRB,0.86819E-02_JPRB,0.84949E-02_JPRB,0.41100E-02_JPRB /)  
+KB(:, 2,45, 8) = (/ &
+ & 0.22283E-02_JPRB,0.91556E-02_JPRB,0.10664E-01_JPRB,0.10414E-01_JPRB,0.48257E-02_JPRB /)  
+KB(:, 3,45, 8) = (/ &
+ & 0.27993E-02_JPRB,0.11360E-01_JPRB,0.13115E-01_JPRB,0.12731E-01_JPRB,0.56423E-02_JPRB /)  
+KB(:, 4,45, 8) = (/ &
+ & 0.35358E-02_JPRB,0.14164E-01_JPRB,0.16170E-01_JPRB,0.15543E-01_JPRB,0.65867E-02_JPRB /)  
+KB(:, 5,45, 8) = (/ &
+ & 0.44762E-02_JPRB,0.17671E-01_JPRB,0.19928E-01_JPRB,0.18931E-01_JPRB,0.76725E-02_JPRB /)  
+KB(:, 1,46, 8) = (/ &
+ & 0.14666E-02_JPRB,0.63443E-02_JPRB,0.74710E-02_JPRB,0.73099E-02_JPRB,0.35540E-02_JPRB /)  
+KB(:, 2,46, 8) = (/ &
+ & 0.18286E-02_JPRB,0.79140E-02_JPRB,0.92719E-02_JPRB,0.90588E-02_JPRB,0.41981E-02_JPRB /)  
+KB(:, 3,46, 8) = (/ &
+ & 0.23196E-02_JPRB,0.99089E-02_JPRB,0.11508E-01_JPRB,0.11192E-01_JPRB,0.49656E-02_JPRB /)  
+KB(:, 4,46, 8) = (/ &
+ & 0.29575E-02_JPRB,0.12451E-01_JPRB,0.14296E-01_JPRB,0.13779E-01_JPRB,0.58441E-02_JPRB /)  
+KB(:, 5,46, 8) = (/ &
+ & 0.37842E-02_JPRB,0.15662E-01_JPRB,0.17758E-01_JPRB,0.16921E-01_JPRB,0.68660E-02_JPRB /)  
+KB(:, 1,47, 8) = (/ &
+ & 0.11822E-02_JPRB,0.53700E-02_JPRB,0.63483E-02_JPRB,0.62090E-02_JPRB,0.30500E-02_JPRB /)  
+KB(:, 2,47, 8) = (/ &
+ & 0.14817E-02_JPRB,0.67616E-02_JPRB,0.79678E-02_JPRB,0.77874E-02_JPRB,0.36317E-02_JPRB /)  
+KB(:, 3,47, 8) = (/ &
+ & 0.18918E-02_JPRB,0.85392E-02_JPRB,0.99818E-02_JPRB,0.97254E-02_JPRB,0.43248E-02_JPRB /)  
+KB(:, 4,47, 8) = (/ &
+ & 0.24382E-02_JPRB,0.10820E-01_JPRB,0.12503E-01_JPRB,0.12088E-01_JPRB,0.51477E-02_JPRB /)  
+KB(:, 5,47, 8) = (/ &
+ & 0.31533E-02_JPRB,0.13725E-01_JPRB,0.15656E-01_JPRB,0.14970E-01_JPRB,0.61000E-02_JPRB /)  
+KB(:, 1,48, 8) = (/ &
+ & 0.94906E-03_JPRB,0.45298E-02_JPRB,0.53706E-02_JPRB,0.52506E-02_JPRB,0.26162E-02_JPRB /)  
+KB(:, 2,48, 8) = (/ &
+ & 0.11965E-02_JPRB,0.57597E-02_JPRB,0.68213E-02_JPRB,0.66698E-02_JPRB,0.31403E-02_JPRB /)  
+KB(:, 3,48, 8) = (/ &
+ & 0.15369E-02_JPRB,0.73380E-02_JPRB,0.86368E-02_JPRB,0.84246E-02_JPRB,0.37687E-02_JPRB /)  
+KB(:, 4,48, 8) = (/ &
+ & 0.20008E-02_JPRB,0.93814E-02_JPRB,0.10911E-01_JPRB,0.10580E-01_JPRB,0.45213E-02_JPRB /)  
+KB(:, 5,48, 8) = (/ &
+ & 0.26159E-02_JPRB,0.12002E-01_JPRB,0.13774E-01_JPRB,0.13221E-01_JPRB,0.54142E-02_JPRB /)  
+KB(:, 1,49, 8) = (/ &
+ & 0.75913E-03_JPRB,0.38043E-02_JPRB,0.45203E-02_JPRB,0.44181E-02_JPRB,0.22379E-02_JPRB /)  
+KB(:, 2,49, 8) = (/ &
+ & 0.96097E-03_JPRB,0.48899E-02_JPRB,0.58138E-02_JPRB,0.56878E-02_JPRB,0.27098E-02_JPRB /)  
+KB(:, 3,49, 8) = (/ &
+ & 0.12447E-02_JPRB,0.62895E-02_JPRB,0.74501E-02_JPRB,0.72727E-02_JPRB,0.32859E-02_JPRB /)  
+KB(:, 4,49, 8) = (/ &
+ & 0.16322E-02_JPRB,0.81122E-02_JPRB,0.94989E-02_JPRB,0.92349E-02_JPRB,0.39720E-02_JPRB /)  
+KB(:, 5,49, 8) = (/ &
+ & 0.21597E-02_JPRB,0.10470E-01_JPRB,0.12092E-01_JPRB,0.11650E-01_JPRB,0.47938E-02_JPRB /)  
+KB(:, 1,50, 8) = (/ &
+ & 0.60949E-03_JPRB,0.32009E-02_JPRB,0.38080E-02_JPRB,0.37204E-02_JPRB,0.19148E-02_JPRB /)  
+KB(:, 2,50, 8) = (/ &
+ & 0.77332E-03_JPRB,0.41637E-02_JPRB,0.49658E-02_JPRB,0.48588E-02_JPRB,0.23498E-02_JPRB /)  
+KB(:, 3,50, 8) = (/ &
+ & 0.10099E-02_JPRB,0.54095E-02_JPRB,0.64416E-02_JPRB,0.62938E-02_JPRB,0.28713E-02_JPRB /)  
+KB(:, 4,50, 8) = (/ &
+ & 0.13353E-02_JPRB,0.70417E-02_JPRB,0.83004E-02_JPRB,0.80844E-02_JPRB,0.35114E-02_JPRB /)  
+KB(:, 5,50, 8) = (/ &
+ & 0.17873E-02_JPRB,0.91691E-02_JPRB,0.10658E-01_JPRB,0.10303E-01_JPRB,0.42641E-02_JPRB /)  
+KB(:, 1,51, 8) = (/ &
+ & 0.48960E-03_JPRB,0.26873E-02_JPRB,0.32008E-02_JPRB,0.31259E-02_JPRB,0.16378E-02_JPRB /)  
+KB(:, 2,51, 8) = (/ &
+ & 0.62187E-03_JPRB,0.35423E-02_JPRB,0.42349E-02_JPRB,0.41443E-02_JPRB,0.20325E-02_JPRB /)  
+KB(:, 3,51, 8) = (/ &
+ & 0.81788E-03_JPRB,0.46529E-02_JPRB,0.55656E-02_JPRB,0.54424E-02_JPRB,0.25164E-02_JPRB /)  
+KB(:, 4,51, 8) = (/ &
+ & 0.10935E-02_JPRB,0.61155E-02_JPRB,0.72565E-02_JPRB,0.70765E-02_JPRB,0.31007E-02_JPRB /)  
+KB(:, 5,51, 8) = (/ &
+ & 0.14776E-02_JPRB,0.80416E-02_JPRB,0.94087E-02_JPRB,0.91197E-02_JPRB,0.38085E-02_JPRB /)  
+KB(:, 1,52, 8) = (/ &
+ & 0.39302E-03_JPRB,0.22435E-02_JPRB,0.26754E-02_JPRB,0.26122E-02_JPRB,0.13898E-02_JPRB /)  
+KB(:, 2,52, 8) = (/ &
+ & 0.49889E-03_JPRB,0.30006E-02_JPRB,0.35943E-02_JPRB,0.35172E-02_JPRB,0.17532E-02_JPRB /)  
+KB(:, 3,52, 8) = (/ &
+ & 0.65922E-03_JPRB,0.39906E-02_JPRB,0.47901E-02_JPRB,0.46880E-02_JPRB,0.21980E-02_JPRB /)  
+KB(:, 4,52, 8) = (/ &
+ & 0.89075E-03_JPRB,0.52980E-02_JPRB,0.63237E-02_JPRB,0.61748E-02_JPRB,0.27412E-02_JPRB /)  
+KB(:, 5,52, 8) = (/ &
+ & 0.12150E-02_JPRB,0.70312E-02_JPRB,0.82837E-02_JPRB,0.80497E-02_JPRB,0.33956E-02_JPRB /)  
+KB(:, 1,53, 8) = (/ &
+ & 0.31533E-03_JPRB,0.18598E-02_JPRB,0.22216E-02_JPRB,0.21690E-02_JPRB,0.11705E-02_JPRB /)  
+KB(:, 2,53, 8) = (/ &
+ & 0.39919E-03_JPRB,0.25290E-02_JPRB,0.30338E-02_JPRB,0.29679E-02_JPRB,0.15051E-02_JPRB /)  
+KB(:, 3,53, 8) = (/ &
+ & 0.52958E-03_JPRB,0.34096E-02_JPRB,0.41030E-02_JPRB,0.40189E-02_JPRB,0.19137E-02_JPRB /)  
+KB(:, 4,53, 8) = (/ &
+ & 0.72147E-03_JPRB,0.45756E-02_JPRB,0.54894E-02_JPRB,0.53678E-02_JPRB,0.24147E-02_JPRB /)  
+KB(:, 5,53, 8) = (/ &
+ & 0.99563E-03_JPRB,0.61321E-02_JPRB,0.72739E-02_JPRB,0.70826E-02_JPRB,0.30286E-02_JPRB /)  
+KB(:, 1,54, 8) = (/ &
+ & 0.25434E-03_JPRB,0.15477E-02_JPRB,0.18502E-02_JPRB,0.18075E-02_JPRB,0.98891E-03_JPRB /)  
+KB(:, 2,54, 8) = (/ &
+ & 0.32221E-03_JPRB,0.21398E-02_JPRB,0.25708E-02_JPRB,0.25148E-02_JPRB,0.12935E-02_JPRB /)  
+KB(:, 3,54, 8) = (/ &
+ & 0.42775E-03_JPRB,0.29272E-02_JPRB,0.35315E-02_JPRB,0.34599E-02_JPRB,0.16741E-02_JPRB /)  
+KB(:, 4,54, 8) = (/ &
+ & 0.58762E-03_JPRB,0.39761E-02_JPRB,0.47907E-02_JPRB,0.46896E-02_JPRB,0.21376E-02_JPRB /)  
+KB(:, 5,54, 8) = (/ &
+ & 0.82053E-03_JPRB,0.53824E-02_JPRB,0.64244E-02_JPRB,0.62664E-02_JPRB,0.27173E-02_JPRB /)  
+KB(:, 1,55, 8) = (/ &
+ & 0.20618E-03_JPRB,0.12866E-02_JPRB,0.15400E-02_JPRB,0.15055E-02_JPRB,0.83572E-03_JPRB /)  
+KB(:, 2,55, 8) = (/ &
+ & 0.26059E-03_JPRB,0.18094E-02_JPRB,0.21787E-02_JPRB,0.21302E-02_JPRB,0.11090E-02_JPRB /)  
+KB(:, 3,55, 8) = (/ &
+ & 0.34651E-03_JPRB,0.25140E-02_JPRB,0.30392E-02_JPRB,0.29780E-02_JPRB,0.14628E-02_JPRB /)  
+KB(:, 4,55, 8) = (/ &
+ & 0.47882E-03_JPRB,0.34608E-02_JPRB,0.41831E-02_JPRB,0.41003E-02_JPRB,0.18992E-02_JPRB /)  
+KB(:, 5,55, 8) = (/ &
+ & 0.67671E-03_JPRB,0.47331E-02_JPRB,0.56817E-02_JPRB,0.55503E-02_JPRB,0.24360E-02_JPRB /)  
+KB(:, 1,56, 8) = (/ &
+ & 0.16681E-03_JPRB,0.10621E-02_JPRB,0.12728E-02_JPRB,0.12461E-02_JPRB,0.70162E-03_JPRB /)  
+KB(:, 2,56, 8) = (/ &
+ & 0.21064E-03_JPRB,0.15213E-02_JPRB,0.18350E-02_JPRB,0.17945E-02_JPRB,0.94828E-03_JPRB /)  
+KB(:, 3,56, 8) = (/ &
+ & 0.28028E-03_JPRB,0.21500E-02_JPRB,0.26045E-02_JPRB,0.25521E-02_JPRB,0.12721E-02_JPRB /)  
+KB(:, 4,56, 8) = (/ &
+ & 0.38906E-03_JPRB,0.30029E-02_JPRB,0.36387E-02_JPRB,0.35710E-02_JPRB,0.16833E-02_JPRB /)  
+KB(:, 5,56, 8) = (/ &
+ & 0.55568E-03_JPRB,0.41534E-02_JPRB,0.50111E-02_JPRB,0.49027E-02_JPRB,0.21849E-02_JPRB /)  
+KB(:, 1,57, 8) = (/ &
+ & 0.13484E-03_JPRB,0.87168E-03_JPRB,0.10444E-02_JPRB,0.10248E-02_JPRB,0.58516E-03_JPRB /)  
+KB(:, 2,57, 8) = (/ &
+ & 0.17007E-03_JPRB,0.12717E-02_JPRB,0.15360E-02_JPRB,0.15024E-02_JPRB,0.80805E-03_JPRB /)  
+KB(:, 3,57, 8) = (/ &
+ & 0.22603E-03_JPRB,0.18296E-02_JPRB,0.22211E-02_JPRB,0.21757E-02_JPRB,0.11006E-02_JPRB /)  
+KB(:, 4,57, 8) = (/ &
+ & 0.31565E-03_JPRB,0.25963E-02_JPRB,0.31531E-02_JPRB,0.30959E-02_JPRB,0.14851E-02_JPRB /)  
+KB(:, 5,57, 8) = (/ &
+ & 0.45417E-03_JPRB,0.36365E-02_JPRB,0.44058E-02_JPRB,0.43157E-02_JPRB,0.19625E-02_JPRB /)  
+KB(:, 1,58, 8) = (/ &
+ & 0.10938E-03_JPRB,0.71449E-03_JPRB,0.85655E-03_JPRB,0.84240E-03_JPRB,0.48772E-03_JPRB /)  
+KB(:, 2,58, 8) = (/ &
+ & 0.13752E-03_JPRB,0.10624E-02_JPRB,0.12849E-02_JPRB,0.12583E-02_JPRB,0.68689E-03_JPRB /)  
+KB(:, 3,58, 8) = (/ &
+ & 0.18307E-03_JPRB,0.15572E-02_JPRB,0.18954E-02_JPRB,0.18566E-02_JPRB,0.95344E-03_JPRB /)  
+KB(:, 4,58, 8) = (/ &
+ & 0.25673E-03_JPRB,0.22481E-02_JPRB,0.27363E-02_JPRB,0.26877E-02_JPRB,0.13079E-02_JPRB /)  
+KB(:, 5,58, 8) = (/ &
+ & 0.37230E-03_JPRB,0.31921E-02_JPRB,0.38812E-02_JPRB,0.38070E-02_JPRB,0.17570E-02_JPRB /)  
+KB(:, 1,59, 8) = (/ &
+ & 0.92153E-04_JPRB,0.62798E-03_JPRB,0.75374E-03_JPRB,0.74243E-03_JPRB,0.43161E-03_JPRB /)  
+KB(:, 2,59, 8) = (/ &
+ & 0.11676E-03_JPRB,0.95019E-03_JPRB,0.11525E-02_JPRB,0.11296E-02_JPRB,0.61959E-03_JPRB /)  
+KB(:, 3,59, 8) = (/ &
+ & 0.15687E-03_JPRB,0.14168E-02_JPRB,0.17285E-02_JPRB,0.16938E-02_JPRB,0.87468E-03_JPRB /)  
+KB(:, 4,59, 8) = (/ &
+ & 0.22278E-03_JPRB,0.20743E-02_JPRB,0.25302E-02_JPRB,0.24863E-02_JPRB,0.12161E-02_JPRB /)  
+KB(:, 5,59, 8) = (/ &
+ & 0.32724E-03_JPRB,0.29797E-02_JPRB,0.36313E-02_JPRB,0.35664E-02_JPRB,0.16577E-02_JPRB /)  
+KB(:, 1,13, 9) = (/ &
+ & 0.16403E+01_JPRB,0.27290E+01_JPRB,0.31326E+01_JPRB,0.31890E+01_JPRB,0.23307E+01_JPRB /)  
+KB(:, 2,13, 9) = (/ &
+ & 0.16862E+01_JPRB,0.27611E+01_JPRB,0.31617E+01_JPRB,0.32226E+01_JPRB,0.23816E+01_JPRB /)  
+KB(:, 3,13, 9) = (/ &
+ & 0.17455E+01_JPRB,0.28101E+01_JPRB,0.32005E+01_JPRB,0.32552E+01_JPRB,0.24291E+01_JPRB /)  
+KB(:, 4,13, 9) = (/ &
+ & 0.18100E+01_JPRB,0.28758E+01_JPRB,0.32471E+01_JPRB,0.32901E+01_JPRB,0.24729E+01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART24',1,ZHOOK_HANDLE)
+END SUBROUTINE PART24
+
+
+SUBROUTINE PART25
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART25',0,ZHOOK_HANDLE)
+
+
+KB(:, 5,13, 9) = (/ &
+ & 0.18736E+01_JPRB,0.29528E+01_JPRB,0.33027E+01_JPRB,0.33291E+01_JPRB,0.25126E+01_JPRB /)  
+KB(:, 1,14, 9) = (/ &
+ & 0.14276E+01_JPRB,0.24116E+01_JPRB,0.27645E+01_JPRB,0.28207E+01_JPRB,0.20786E+01_JPRB /)  
+KB(:, 2,14, 9) = (/ &
+ & 0.14761E+01_JPRB,0.24553E+01_JPRB,0.28027E+01_JPRB,0.28564E+01_JPRB,0.21275E+01_JPRB /)  
+KB(:, 3,14, 9) = (/ &
+ & 0.15303E+01_JPRB,0.25161E+01_JPRB,0.28501E+01_JPRB,0.28940E+01_JPRB,0.21750E+01_JPRB /)  
+KB(:, 4,14, 9) = (/ &
+ & 0.15845E+01_JPRB,0.25879E+01_JPRB,0.29061E+01_JPRB,0.29354E+01_JPRB,0.22167E+01_JPRB /)  
+KB(:, 5,14, 9) = (/ &
+ & 0.16378E+01_JPRB,0.26632E+01_JPRB,0.29707E+01_JPRB,0.29827E+01_JPRB,0.22552E+01_JPRB /)  
+KB(:, 1,15, 9) = (/ &
+ & 0.12454E+01_JPRB,0.21329E+01_JPRB,0.24382E+01_JPRB,0.24839E+01_JPRB,0.18332E+01_JPRB /)  
+KB(:, 2,15, 9) = (/ &
+ & 0.12895E+01_JPRB,0.21869E+01_JPRB,0.24841E+01_JPRB,0.25234E+01_JPRB,0.18816E+01_JPRB /)  
+KB(:, 3,15, 9) = (/ &
+ & 0.13344E+01_JPRB,0.22528E+01_JPRB,0.25385E+01_JPRB,0.25663E+01_JPRB,0.19251E+01_JPRB /)  
+KB(:, 4,15, 9) = (/ &
+ & 0.13794E+01_JPRB,0.23234E+01_JPRB,0.26021E+01_JPRB,0.26153E+01_JPRB,0.19652E+01_JPRB /)  
+KB(:, 5,15, 9) = (/ &
+ & 0.14250E+01_JPRB,0.23931E+01_JPRB,0.26727E+01_JPRB,0.26688E+01_JPRB,0.20043E+01_JPRB /)  
+KB(:, 1,16, 9) = (/ &
+ & 0.10848E+01_JPRB,0.18880E+01_JPRB,0.21511E+01_JPRB,0.21813E+01_JPRB,0.16071E+01_JPRB /)  
+KB(:, 2,16, 9) = (/ &
+ & 0.11214E+01_JPRB,0.19471E+01_JPRB,0.22027E+01_JPRB,0.22246E+01_JPRB,0.16520E+01_JPRB /)  
+KB(:, 3,16, 9) = (/ &
+ & 0.11587E+01_JPRB,0.20122E+01_JPRB,0.22636E+01_JPRB,0.22737E+01_JPRB,0.16924E+01_JPRB /)  
+KB(:, 4,16, 9) = (/ &
+ & 0.11968E+01_JPRB,0.20768E+01_JPRB,0.23313E+01_JPRB,0.23282E+01_JPRB,0.17327E+01_JPRB /)  
+KB(:, 5,16, 9) = (/ &
+ & 0.12369E+01_JPRB,0.21393E+01_JPRB,0.24028E+01_JPRB,0.23861E+01_JPRB,0.17713E+01_JPRB /)  
+KB(:, 1,17, 9) = (/ &
+ & 0.94054E+00_JPRB,0.16727E+01_JPRB,0.18972E+01_JPRB,0.19128E+01_JPRB,0.14046E+01_JPRB /)  
+KB(:, 2,17, 9) = (/ &
+ & 0.97101E+00_JPRB,0.17314E+01_JPRB,0.19542E+01_JPRB,0.19610E+01_JPRB,0.14464E+01_JPRB /)  
+KB(:, 3,17, 9) = (/ &
+ & 0.10024E+01_JPRB,0.17905E+01_JPRB,0.20183E+01_JPRB,0.20147E+01_JPRB,0.14867E+01_JPRB /)  
+KB(:, 4,17, 9) = (/ &
+ & 0.10357E+01_JPRB,0.18485E+01_JPRB,0.20868E+01_JPRB,0.20722E+01_JPRB,0.15247E+01_JPRB /)  
+KB(:, 5,17, 9) = (/ &
+ & 0.10722E+01_JPRB,0.19059E+01_JPRB,0.21551E+01_JPRB,0.21344E+01_JPRB,0.15620E+01_JPRB /)  
+KB(:, 1,18, 9) = (/ &
+ & 0.81293E+00_JPRB,0.14815E+01_JPRB,0.16736E+01_JPRB,0.16776E+01_JPRB,0.12272E+01_JPRB /)  
+KB(:, 2,18, 9) = (/ &
+ & 0.83847E+00_JPRB,0.15352E+01_JPRB,0.17337E+01_JPRB,0.17293E+01_JPRB,0.12665E+01_JPRB /)  
+KB(:, 3,18, 9) = (/ &
+ & 0.86557E+00_JPRB,0.15883E+01_JPRB,0.17983E+01_JPRB,0.17854E+01_JPRB,0.13052E+01_JPRB /)  
+KB(:, 4,18, 9) = (/ &
+ & 0.89549E+00_JPRB,0.16413E+01_JPRB,0.18633E+01_JPRB,0.18465E+01_JPRB,0.13420E+01_JPRB /)  
+KB(:, 5,18, 9) = (/ &
+ & 0.92973E+00_JPRB,0.16952E+01_JPRB,0.19268E+01_JPRB,0.19102E+01_JPRB,0.13778E+01_JPRB /)  
+KB(:, 1,19, 9) = (/ &
+ & 0.70038E+00_JPRB,0.13093E+01_JPRB,0.14779E+01_JPRB,0.14733E+01_JPRB,0.10709E+01_JPRB /)  
+KB(:, 2,19, 9) = (/ &
+ & 0.72263E+00_JPRB,0.13577E+01_JPRB,0.15381E+01_JPRB,0.15268E+01_JPRB,0.11090E+01_JPRB /)  
+KB(:, 3,19, 9) = (/ &
+ & 0.74709E+00_JPRB,0.14065E+01_JPRB,0.15995E+01_JPRB,0.15853E+01_JPRB,0.11457E+01_JPRB /)  
+KB(:, 4,19, 9) = (/ &
+ & 0.77505E+00_JPRB,0.14562E+01_JPRB,0.16599E+01_JPRB,0.16467E+01_JPRB,0.11819E+01_JPRB /)  
+KB(:, 5,19, 9) = (/ &
+ & 0.80778E+00_JPRB,0.15082E+01_JPRB,0.17205E+01_JPRB,0.17095E+01_JPRB,0.12170E+01_JPRB /)  
+KB(:, 1,20, 9) = (/ &
+ & 0.60096E+00_JPRB,0.11549E+01_JPRB,0.13070E+01_JPRB,0.12966E+01_JPRB,0.93504E+00_JPRB /)  
+KB(:, 2,20, 9) = (/ &
+ & 0.62117E+00_JPRB,0.11996E+01_JPRB,0.13644E+01_JPRB,0.13518E+01_JPRB,0.97145E+00_JPRB /)  
+KB(:, 3,20, 9) = (/ &
+ & 0.64437E+00_JPRB,0.12456E+01_JPRB,0.14215E+01_JPRB,0.14105E+01_JPRB,0.10075E+01_JPRB /)  
+KB(:, 4,20, 9) = (/ &
+ & 0.67172E+00_JPRB,0.12935E+01_JPRB,0.14792E+01_JPRB,0.14711E+01_JPRB,0.10425E+01_JPRB /)  
+KB(:, 5,20, 9) = (/ &
+ & 0.70425E+00_JPRB,0.13447E+01_JPRB,0.15379E+01_JPRB,0.15320E+01_JPRB,0.10771E+01_JPRB /)  
+KB(:, 1,21, 9) = (/ &
+ & 0.51409E+00_JPRB,0.10184E+01_JPRB,0.11562E+01_JPRB,0.11440E+01_JPRB,0.81589E+00_JPRB /)  
+KB(:, 2,21, 9) = (/ &
+ & 0.53296E+00_JPRB,0.10604E+01_JPRB,0.12096E+01_JPRB,0.11991E+01_JPRB,0.85095E+00_JPRB /)  
+KB(:, 3,21, 9) = (/ &
+ & 0.55527E+00_JPRB,0.11043E+01_JPRB,0.12638E+01_JPRB,0.12567E+01_JPRB,0.88570E+00_JPRB /)  
+KB(:, 4,21, 9) = (/ &
+ & 0.58243E+00_JPRB,0.11512E+01_JPRB,0.13194E+01_JPRB,0.13151E+01_JPRB,0.92023E+00_JPRB /)  
+KB(:, 5,21, 9) = (/ &
+ & 0.61501E+00_JPRB,0.12017E+01_JPRB,0.13771E+01_JPRB,0.13737E+01_JPRB,0.95470E+00_JPRB /)  
+KB(:, 1,22, 9) = (/ &
+ & 0.44038E+00_JPRB,0.90186E+00_JPRB,0.10262E+01_JPRB,0.10153E+01_JPRB,0.71382E+00_JPRB /)  
+KB(:, 2,22, 9) = (/ &
+ & 0.45853E+00_JPRB,0.94198E+00_JPRB,0.10770E+01_JPRB,0.10695E+01_JPRB,0.74736E+00_JPRB /)  
+KB(:, 3,22, 9) = (/ &
+ & 0.48068E+00_JPRB,0.98449E+00_JPRB,0.11290E+01_JPRB,0.11248E+01_JPRB,0.78150E+00_JPRB /)  
+KB(:, 4,22, 9) = (/ &
+ & 0.50812E+00_JPRB,0.10306E+01_JPRB,0.11833E+01_JPRB,0.11809E+01_JPRB,0.81518E+00_JPRB /)  
+KB(:, 5,22, 9) = (/ &
+ & 0.54141E+00_JPRB,0.10817E+01_JPRB,0.12405E+01_JPRB,0.12383E+01_JPRB,0.84849E+00_JPRB /)  
+KB(:, 1,23, 9) = (/ &
+ & 0.37767E+00_JPRB,0.80078E+00_JPRB,0.91306E+00_JPRB,0.90433E+00_JPRB,0.62612E+00_JPRB /)  
+KB(:, 2,23, 9) = (/ &
+ & 0.39558E+00_JPRB,0.83957E+00_JPRB,0.96154E+00_JPRB,0.95658E+00_JPRB,0.65837E+00_JPRB /)  
+KB(:, 3,23, 9) = (/ &
+ & 0.41794E+00_JPRB,0.88149E+00_JPRB,0.10123E+01_JPRB,0.10097E+01_JPRB,0.69117E+00_JPRB /)  
+KB(:, 4,23, 9) = (/ &
+ & 0.44579E+00_JPRB,0.92784E+00_JPRB,0.10657E+01_JPRB,0.10643E+01_JPRB,0.72352E+00_JPRB /)  
+KB(:, 5,23, 9) = (/ &
+ & 0.47930E+00_JPRB,0.97981E+00_JPRB,0.11229E+01_JPRB,0.11209E+01_JPRB,0.75697E+00_JPRB /)  
+KB(:, 1,24, 9) = (/ &
+ & 0.32501E+00_JPRB,0.71314E+00_JPRB,0.81551E+00_JPRB,0.80817E+00_JPRB,0.55055E+00_JPRB /)  
+KB(:, 2,24, 9) = (/ &
+ & 0.34301E+00_JPRB,0.75171E+00_JPRB,0.86229E+00_JPRB,0.85830E+00_JPRB,0.58144E+00_JPRB /)  
+KB(:, 3,24, 9) = (/ &
+ & 0.36572E+00_JPRB,0.79385E+00_JPRB,0.91196E+00_JPRB,0.91014E+00_JPRB,0.61242E+00_JPRB /)  
+KB(:, 4,24, 9) = (/ &
+ & 0.39391E+00_JPRB,0.84084E+00_JPRB,0.96525E+00_JPRB,0.96386E+00_JPRB,0.64468E+00_JPRB /)  
+KB(:, 5,24, 9) = (/ &
+ & 0.42682E+00_JPRB,0.89378E+00_JPRB,0.10230E+01_JPRB,0.10202E+01_JPRB,0.67755E+00_JPRB /)  
+KB(:, 1,25, 9) = (/ &
+ & 0.28120E+00_JPRB,0.63782E+00_JPRB,0.73197E+00_JPRB,0.72532E+00_JPRB,0.48624E+00_JPRB /)  
+KB(:, 2,25, 9) = (/ &
+ & 0.29939E+00_JPRB,0.67672E+00_JPRB,0.77772E+00_JPRB,0.77395E+00_JPRB,0.51566E+00_JPRB /)  
+KB(:, 3,25, 9) = (/ &
+ & 0.32259E+00_JPRB,0.71969E+00_JPRB,0.82682E+00_JPRB,0.82484E+00_JPRB,0.54562E+00_JPRB /)  
+KB(:, 4,25, 9) = (/ &
+ & 0.35054E+00_JPRB,0.76785E+00_JPRB,0.88040E+00_JPRB,0.87836E+00_JPRB,0.57709E+00_JPRB /)  
+KB(:, 5,25, 9) = (/ &
+ & 0.38231E+00_JPRB,0.82200E+00_JPRB,0.93896E+00_JPRB,0.93503E+00_JPRB,0.60997E+00_JPRB /)  
+KB(:, 1,26, 9) = (/ &
+ & 0.24516E+00_JPRB,0.57415E+00_JPRB,0.66146E+00_JPRB,0.65501E+00_JPRB,0.43198E+00_JPRB /)  
+KB(:, 2,26, 9) = (/ &
+ & 0.26380E+00_JPRB,0.61364E+00_JPRB,0.70651E+00_JPRB,0.70261E+00_JPRB,0.46025E+00_JPRB /)  
+KB(:, 3,26, 9) = (/ &
+ & 0.28716E+00_JPRB,0.65790E+00_JPRB,0.75577E+00_JPRB,0.75300E+00_JPRB,0.48987E+00_JPRB /)  
+KB(:, 4,26, 9) = (/ &
+ & 0.31438E+00_JPRB,0.70747E+00_JPRB,0.80990E+00_JPRB,0.80672E+00_JPRB,0.52086E+00_JPRB /)  
+KB(:, 5,26, 9) = (/ &
+ & 0.34509E+00_JPRB,0.76331E+00_JPRB,0.86957E+00_JPRB,0.86437E+00_JPRB,0.55315E+00_JPRB /)  
+KB(:, 1,27, 9) = (/ &
+ & 0.21544E+00_JPRB,0.52037E+00_JPRB,0.60144E+00_JPRB,0.59535E+00_JPRB,0.38600E+00_JPRB /)  
+KB(:, 2,27, 9) = (/ &
+ & 0.23456E+00_JPRB,0.56067E+00_JPRB,0.64661E+00_JPRB,0.64229E+00_JPRB,0.41342E+00_JPRB /)  
+KB(:, 3,27, 9) = (/ &
+ & 0.25766E+00_JPRB,0.60633E+00_JPRB,0.69633E+00_JPRB,0.69257E+00_JPRB,0.44235E+00_JPRB /)  
+KB(:, 4,27, 9) = (/ &
+ & 0.28405E+00_JPRB,0.65751E+00_JPRB,0.75133E+00_JPRB,0.74692E+00_JPRB,0.47298E+00_JPRB /)  
+KB(:, 5,27, 9) = (/ &
+ & 0.31370E+00_JPRB,0.71529E+00_JPRB,0.81234E+00_JPRB,0.80601E+00_JPRB,0.50534E+00_JPRB /)  
+KB(:, 1,28, 9) = (/ &
+ & 0.19107E+00_JPRB,0.47529E+00_JPRB,0.55077E+00_JPRB,0.54503E+00_JPRB,0.34666E+00_JPRB /)  
+KB(:, 2,28, 9) = (/ &
+ & 0.21041E+00_JPRB,0.51675E+00_JPRB,0.59653E+00_JPRB,0.59172E+00_JPRB,0.37350E+00_JPRB /)  
+KB(:, 3,28, 9) = (/ &
+ & 0.23301E+00_JPRB,0.56364E+00_JPRB,0.64698E+00_JPRB,0.64221E+00_JPRB,0.40186E+00_JPRB /)  
+KB(:, 4,28, 9) = (/ &
+ & 0.25866E+00_JPRB,0.61667E+00_JPRB,0.70320E+00_JPRB,0.69763E+00_JPRB,0.43205E+00_JPRB /)  
+KB(:, 5,28, 9) = (/ &
+ & 0.28710E+00_JPRB,0.67650E+00_JPRB,0.76586E+00_JPRB,0.75834E+00_JPRB,0.46367E+00_JPRB /)  
+KB(:, 1,29, 9) = (/ &
+ & 0.17112E+00_JPRB,0.43830E+00_JPRB,0.50881E+00_JPRB,0.50311E+00_JPRB,0.31371E+00_JPRB /)  
+KB(:, 2,29, 9) = (/ &
+ & 0.19046E+00_JPRB,0.48081E+00_JPRB,0.55535E+00_JPRB,0.54996E+00_JPRB,0.34018E+00_JPRB /)  
+KB(:, 3,29, 9) = (/ &
+ & 0.21264E+00_JPRB,0.52926E+00_JPRB,0.60692E+00_JPRB,0.60125E+00_JPRB,0.36829E+00_JPRB /)  
+KB(:, 4,29, 9) = (/ &
+ & 0.23734E+00_JPRB,0.58428E+00_JPRB,0.66473E+00_JPRB,0.65816E+00_JPRB,0.39807E+00_JPRB /)  
+KB(:, 5,29, 9) = (/ &
+ & 0.26483E+00_JPRB,0.64604E+00_JPRB,0.72961E+00_JPRB,0.72085E+00_JPRB,0.42916E+00_JPRB /)  
+KB(:, 1,30, 9) = (/ &
+ & 0.15474E+00_JPRB,0.40804E+00_JPRB,0.47416E+00_JPRB,0.46844E+00_JPRB,0.28591E+00_JPRB /)  
+KB(:, 2,30, 9) = (/ &
+ & 0.17385E+00_JPRB,0.45175E+00_JPRB,0.52179E+00_JPRB,0.51582E+00_JPRB,0.31208E+00_JPRB /)  
+KB(:, 3,30, 9) = (/ &
+ & 0.19550E+00_JPRB,0.50197E+00_JPRB,0.57484E+00_JPRB,0.56852E+00_JPRB,0.33963E+00_JPRB /)  
+KB(:, 4,30, 9) = (/ &
+ & 0.21942E+00_JPRB,0.55897E+00_JPRB,0.63459E+00_JPRB,0.62718E+00_JPRB,0.36926E+00_JPRB /)  
+KB(:, 5,30, 9) = (/ &
+ & 0.24626E+00_JPRB,0.62254E+00_JPRB,0.70206E+00_JPRB,0.69222E+00_JPRB,0.40317E+00_JPRB /)  
+KB(:, 1,31, 9) = (/ &
+ & 0.14123E+00_JPRB,0.38383E+00_JPRB,0.44627E+00_JPRB,0.44042E+00_JPRB,0.26282E+00_JPRB /)  
+KB(:, 2,31, 9) = (/ &
+ & 0.16008E+00_JPRB,0.42905E+00_JPRB,0.49523E+00_JPRB,0.48891E+00_JPRB,0.28832E+00_JPRB /)  
+KB(:, 3,31, 9) = (/ &
+ & 0.18115E+00_JPRB,0.48120E+00_JPRB,0.55018E+00_JPRB,0.54338E+00_JPRB,0.31669E+00_JPRB /)  
+KB(:, 4,31, 9) = (/ &
+ & 0.20456E+00_JPRB,0.54014E+00_JPRB,0.61227E+00_JPRB,0.60422E+00_JPRB,0.34861E+00_JPRB /)  
+KB(:, 5,31, 9) = (/ &
+ & 0.23090E+00_JPRB,0.60549E+00_JPRB,0.68253E+00_JPRB,0.67193E+00_JPRB,0.38334E+00_JPRB /)  
+KB(:, 1,32, 9) = (/ &
+ & 0.13011E+00_JPRB,0.36494E+00_JPRB,0.42434E+00_JPRB,0.41840E+00_JPRB,0.24343E+00_JPRB /)  
+KB(:, 2,32, 9) = (/ &
+ & 0.14859E+00_JPRB,0.41192E+00_JPRB,0.47502E+00_JPRB,0.46846E+00_JPRB,0.27034E+00_JPRB /)  
+KB(:, 3,32, 9) = (/ &
+ & 0.16925E+00_JPRB,0.46604E+00_JPRB,0.53210E+00_JPRB,0.52502E+00_JPRB,0.30012E+00_JPRB /)  
+KB(:, 4,32, 9) = (/ &
+ & 0.19229E+00_JPRB,0.52692E+00_JPRB,0.59693E+00_JPRB,0.58841E+00_JPRB,0.33258E+00_JPRB /)  
+KB(:, 5,32, 9) = (/ &
+ & 0.21839E+00_JPRB,0.59419E+00_JPRB,0.67028E+00_JPRB,0.65920E+00_JPRB,0.36819E+00_JPRB /)  
+KB(:, 1,33, 9) = (/ &
+ & 0.12092E+00_JPRB,0.35074E+00_JPRB,0.40776E+00_JPRB,0.40175E+00_JPRB,0.22934E+00_JPRB /)  
+KB(:, 2,33, 9) = (/ &
+ & 0.13904E+00_JPRB,0.39967E+00_JPRB,0.46044E+00_JPRB,0.45383E+00_JPRB,0.25698E+00_JPRB /)  
+KB(:, 3,33, 9) = (/ &
+ & 0.15944E+00_JPRB,0.45574E+00_JPRB,0.51998E+00_JPRB,0.51285E+00_JPRB,0.28727E+00_JPRB /)  
+KB(:, 4,33, 9) = (/ &
+ & 0.18230E+00_JPRB,0.51859E+00_JPRB,0.58782E+00_JPRB,0.57914E+00_JPRB,0.32052E+00_JPRB /)  
+KB(:, 5,33, 9) = (/ &
+ & 0.20843E+00_JPRB,0.58793E+00_JPRB,0.66452E+00_JPRB,0.65307E+00_JPRB,0.35723E+00_JPRB /)  
+KB(:, 1,34, 9) = (/ &
+ & 0.11270E+00_JPRB,0.33906E+00_JPRB,0.39419E+00_JPRB,0.38828E+00_JPRB,0.21761E+00_JPRB /)  
+KB(:, 2,34, 9) = (/ &
+ & 0.13054E+00_JPRB,0.38970E+00_JPRB,0.44887E+00_JPRB,0.44251E+00_JPRB,0.24563E+00_JPRB /)  
+KB(:, 3,34, 9) = (/ &
+ & 0.15070E+00_JPRB,0.44751E+00_JPRB,0.51092E+00_JPRB,0.50399E+00_JPRB,0.27652E+00_JPRB /)  
+KB(:, 4,34, 9) = (/ &
+ & 0.17349E+00_JPRB,0.51224E+00_JPRB,0.58169E+00_JPRB,0.57301E+00_JPRB,0.31064E+00_JPRB /)  
+KB(:, 5,34, 9) = (/ &
+ & 0.19973E+00_JPRB,0.58363E+00_JPRB,0.66163E+00_JPRB,0.64989E+00_JPRB,0.34860E+00_JPRB /)  
+KB(:, 1,35, 9) = (/ &
+ & 0.10431E+00_JPRB,0.32621E+00_JPRB,0.37969E+00_JPRB,0.37421E+00_JPRB,0.20589E+00_JPRB /)  
+KB(:, 2,35, 9) = (/ &
+ & 0.12172E+00_JPRB,0.37794E+00_JPRB,0.43594E+00_JPRB,0.43005E+00_JPRB,0.23415E+00_JPRB /)  
+KB(:, 3,35, 9) = (/ &
+ & 0.14155E+00_JPRB,0.43696E+00_JPRB,0.49993E+00_JPRB,0.49338E+00_JPRB,0.26546E+00_JPRB /)  
+KB(:, 4,35, 9) = (/ &
+ & 0.16416E+00_JPRB,0.50303E+00_JPRB,0.57285E+00_JPRB,0.56442E+00_JPRB,0.30031E+00_JPRB /)  
+KB(:, 5,35, 9) = (/ &
+ & 0.19033E+00_JPRB,0.57592E+00_JPRB,0.65509E+00_JPRB,0.64342E+00_JPRB,0.33926E+00_JPRB /)  
+KB(:, 1,36, 9) = (/ &
+ & 0.95441E-01_JPRB,0.31093E+00_JPRB,0.36283E+00_JPRB,0.35795E+00_JPRB,0.19348E+00_JPRB /)  
+KB(:, 2,36, 9) = (/ &
+ & 0.11226E+00_JPRB,0.36299E+00_JPRB,0.41996E+00_JPRB,0.41468E+00_JPRB,0.22173E+00_JPRB /)  
+KB(:, 3,36, 9) = (/ &
+ & 0.13160E+00_JPRB,0.42251E+00_JPRB,0.48508E+00_JPRB,0.47906E+00_JPRB,0.25327E+00_JPRB /)  
+KB(:, 4,36, 9) = (/ &
+ & 0.15379E+00_JPRB,0.48924E+00_JPRB,0.55909E+00_JPRB,0.55119E+00_JPRB,0.28853E+00_JPRB /)  
+KB(:, 5,36, 9) = (/ &
+ & 0.17959E+00_JPRB,0.56298E+00_JPRB,0.64257E+00_JPRB,0.63136E+00_JPRB,0.32808E+00_JPRB /)  
+KB(:, 1,37, 9) = (/ &
+ & 0.85477E-01_JPRB,0.29072E+00_JPRB,0.34067E+00_JPRB,0.33658E+00_JPRB,0.17886E+00_JPRB /)  
+KB(:, 2,37, 9) = (/ &
+ & 0.10144E+00_JPRB,0.34200E+00_JPRB,0.39763E+00_JPRB,0.39300E+00_JPRB,0.20669E+00_JPRB /)  
+KB(:, 3,37, 9) = (/ &
+ & 0.11996E+00_JPRB,0.40095E+00_JPRB,0.46252E+00_JPRB,0.45719E+00_JPRB,0.23796E+00_JPRB /)  
+KB(:, 4,37, 9) = (/ &
+ & 0.14137E+00_JPRB,0.46732E+00_JPRB,0.53621E+00_JPRB,0.52913E+00_JPRB,0.27304E+00_JPRB /)  
+KB(:, 5,37, 9) = (/ &
+ & 0.16629E+00_JPRB,0.54086E+00_JPRB,0.61939E+00_JPRB,0.60918E+00_JPRB,0.31246E+00_JPRB /)  
+KB(:, 1,38, 9) = (/ &
+ & 0.76626E-01_JPRB,0.27223E+00_JPRB,0.32047E+00_JPRB,0.31724E+00_JPRB,0.16576E+00_JPRB /)  
+KB(:, 2,38, 9) = (/ &
+ & 0.91774E-01_JPRB,0.32273E+00_JPRB,0.37721E+00_JPRB,0.37319E+00_JPRB,0.19315E+00_JPRB /)  
+KB(:, 3,38, 9) = (/ &
+ & 0.10950E+00_JPRB,0.38104E+00_JPRB,0.44177E+00_JPRB,0.43708E+00_JPRB,0.22413E+00_JPRB /)  
+KB(:, 4,38, 9) = (/ &
+ & 0.13015E+00_JPRB,0.44697E+00_JPRB,0.51498E+00_JPRB,0.50870E+00_JPRB,0.25903E+00_JPRB /)  
+KB(:, 5,38, 9) = (/ &
+ & 0.15424E+00_JPRB,0.52018E+00_JPRB,0.59766E+00_JPRB,0.58842E+00_JPRB,0.29827E+00_JPRB /)  
+KB(:, 1,39, 9) = (/ &
+ & 0.68857E-01_JPRB,0.25564E+00_JPRB,0.30247E+00_JPRB,0.30005E+00_JPRB,0.15419E+00_JPRB /)  
+KB(:, 2,39, 9) = (/ &
+ & 0.83231E-01_JPRB,0.30541E+00_JPRB,0.35891E+00_JPRB,0.35551E+00_JPRB,0.18117E+00_JPRB /)  
+KB(:, 3,39, 9) = (/ &
+ & 0.10022E+00_JPRB,0.36305E+00_JPRB,0.42306E+00_JPRB,0.41901E+00_JPRB,0.21190E+00_JPRB /)  
+KB(:, 4,39, 9) = (/ &
+ & 0.12015E+00_JPRB,0.42854E+00_JPRB,0.49574E+00_JPRB,0.49023E+00_JPRB,0.24662E+00_JPRB /)  
+KB(:, 5,39, 9) = (/ &
+ & 0.14353E+00_JPRB,0.50140E+00_JPRB,0.57784E+00_JPRB,0.56950E+00_JPRB,0.28564E+00_JPRB /)  
+KB(:, 1,40, 9) = (/ &
+ & 0.60721E-01_JPRB,0.23607E+00_JPRB,0.28098E+00_JPRB,0.27949E+00_JPRB,0.14134E+00_JPRB /)  
+KB(:, 2,40, 9) = (/ &
+ & 0.74142E-01_JPRB,0.28436E+00_JPRB,0.33629E+00_JPRB,0.33356E+00_JPRB,0.16758E+00_JPRB /)  
+KB(:, 3,40, 9) = (/ &
+ & 0.90161E-01_JPRB,0.34051E+00_JPRB,0.39918E+00_JPRB,0.39576E+00_JPRB,0.19765E+00_JPRB /)  
+KB(:, 4,40, 9) = (/ &
+ & 0.10909E+00_JPRB,0.40469E+00_JPRB,0.47035E+00_JPRB,0.46571E+00_JPRB,0.23173E+00_JPRB /)  
+KB(:, 5,40, 9) = (/ &
+ & 0.13146E+00_JPRB,0.47643E+00_JPRB,0.55083E+00_JPRB,0.54364E+00_JPRB,0.27006E+00_JPRB /)  
+KB(:, 1,41, 9) = (/ &
+ & 0.53403E-01_JPRB,0.21760E+00_JPRB,0.26060E+00_JPRB,0.26004E+00_JPRB,0.12944E+00_JPRB /)  
+KB(:, 2,41, 9) = (/ &
+ & 0.65918E-01_JPRB,0.26438E+00_JPRB,0.31466E+00_JPRB,0.31265E+00_JPRB,0.15490E+00_JPRB /)  
+KB(:, 3,41, 9) = (/ &
+ & 0.80936E-01_JPRB,0.31888E+00_JPRB,0.37609E+00_JPRB,0.37327E+00_JPRB,0.18421E+00_JPRB /)  
+KB(:, 4,41, 9) = (/ &
+ & 0.98889E-01_JPRB,0.38155E+00_JPRB,0.44565E+00_JPRB,0.44176E+00_JPRB,0.21756E+00_JPRB /)  
+KB(:, 5,41, 9) = (/ &
+ & 0.12024E+00_JPRB,0.45195E+00_JPRB,0.52424E+00_JPRB,0.51812E+00_JPRB,0.25511E+00_JPRB /)  
+KB(:, 1,42, 9) = (/ &
+ & 0.46980E-01_JPRB,0.20072E+00_JPRB,0.24188E+00_JPRB,0.24222E+00_JPRB,0.11863E+00_JPRB /)  
+KB(:, 2,42, 9) = (/ &
+ & 0.58572E-01_JPRB,0.24586E+00_JPRB,0.29443E+00_JPRB,0.29314E+00_JPRB,0.14330E+00_JPRB /)  
+KB(:, 3,42, 9) = (/ &
+ & 0.72653E-01_JPRB,0.29875E+00_JPRB,0.35445E+00_JPRB,0.35212E+00_JPRB,0.17184E+00_JPRB /)  
+KB(:, 4,42, 9) = (/ &
+ & 0.89663E-01_JPRB,0.35979E+00_JPRB,0.42236E+00_JPRB,0.41911E+00_JPRB,0.20443E+00_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART25',1,ZHOOK_HANDLE)
+END SUBROUTINE PART25
+
+
+SUBROUTINE PART26
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART26',0,ZHOOK_HANDLE)
+
+
+KB(:, 5,42, 9) = (/ &
+ & 0.11004E+00_JPRB,0.42873E+00_JPRB,0.49904E+00_JPRB,0.49389E+00_JPRB,0.24118E+00_JPRB /)  
+KB(:, 1,43, 9) = (/ &
+ & 0.40748E-01_JPRB,0.18301E+00_JPRB,0.22189E+00_JPRB,0.22309E+00_JPRB,0.10752E+00_JPRB /)  
+KB(:, 2,43, 9) = (/ &
+ & 0.51357E-01_JPRB,0.22603E+00_JPRB,0.27246E+00_JPRB,0.27198E+00_JPRB,0.13119E+00_JPRB /)  
+KB(:, 3,43, 9) = (/ &
+ & 0.64381E-01_JPRB,0.27684E+00_JPRB,0.33058E+00_JPRB,0.32881E+00_JPRB,0.15875E+00_JPRB /)  
+KB(:, 4,43, 9) = (/ &
+ & 0.80299E-01_JPRB,0.33572E+00_JPRB,0.39639E+00_JPRB,0.39376E+00_JPRB,0.19029E+00_JPRB /)  
+KB(:, 5,43, 9) = (/ &
+ & 0.99551E-01_JPRB,0.40267E+00_JPRB,0.47065E+00_JPRB,0.46647E+00_JPRB,0.22598E+00_JPRB /)  
+KB(:, 1,44, 9) = (/ &
+ & 0.35065E-01_JPRB,0.16586E+00_JPRB,0.20221E+00_JPRB,0.20417E+00_JPRB,0.96831E-01_JPRB /)  
+KB(:, 2,44, 9) = (/ &
+ & 0.44686E-01_JPRB,0.20650E+00_JPRB,0.25055E+00_JPRB,0.25097E+00_JPRB,0.11942E+00_JPRB /)  
+KB(:, 3,44, 9) = (/ &
+ & 0.56631E-01_JPRB,0.25500E+00_JPRB,0.30652E+00_JPRB,0.30540E+00_JPRB,0.14585E+00_JPRB /)  
+KB(:, 4,44, 9) = (/ &
+ & 0.71442E-01_JPRB,0.31160E+00_JPRB,0.37021E+00_JPRB,0.36812E+00_JPRB,0.17630E+00_JPRB /)  
+KB(:, 5,44, 9) = (/ &
+ & 0.89487E-01_JPRB,0.37611E+00_JPRB,0.44177E+00_JPRB,0.43843E+00_JPRB,0.21076E+00_JPRB /)  
+KB(:, 1,45, 9) = (/ &
+ & 0.30099E-01_JPRB,0.15014E+00_JPRB,0.18399E+00_JPRB,0.18651E+00_JPRB,0.87081E-01_JPRB /)  
+KB(:, 2,45, 9) = (/ &
+ & 0.38792E-01_JPRB,0.18842E+00_JPRB,0.23006E+00_JPRB,0.23134E+00_JPRB,0.10857E+00_JPRB /)  
+KB(:, 3,45, 9) = (/ &
+ & 0.49706E-01_JPRB,0.23455E+00_JPRB,0.28377E+00_JPRB,0.28337E+00_JPRB,0.13385E+00_JPRB /)  
+KB(:, 4,45, 9) = (/ &
+ & 0.63416E-01_JPRB,0.28880E+00_JPRB,0.34526E+00_JPRB,0.34365E+00_JPRB,0.16313E+00_JPRB /)  
+KB(:, 5,45, 9) = (/ &
+ & 0.80320E-01_JPRB,0.35087E+00_JPRB,0.41430E+00_JPRB,0.41165E+00_JPRB,0.19641E+00_JPRB /)  
+KB(:, 1,46, 9) = (/ &
+ & 0.25615E-01_JPRB,0.13501E+00_JPRB,0.16621E+00_JPRB,0.16909E+00_JPRB,0.77761E-01_JPRB /)  
+KB(:, 2,46, 9) = (/ &
+ & 0.33396E-01_JPRB,0.17087E+00_JPRB,0.20986E+00_JPRB,0.21193E+00_JPRB,0.98069E-01_JPRB /)  
+KB(:, 3,46, 9) = (/ &
+ & 0.43320E-01_JPRB,0.21451E+00_JPRB,0.26120E+00_JPRB,0.26156E+00_JPRB,0.12212E+00_JPRB /)  
+KB(:, 4,46, 9) = (/ &
+ & 0.55857E-01_JPRB,0.26606E+00_JPRB,0.32018E+00_JPRB,0.31908E+00_JPRB,0.15012E+00_JPRB /)  
+KB(:, 5,46, 9) = (/ &
+ & 0.71564E-01_JPRB,0.32546E+00_JPRB,0.38657E+00_JPRB,0.38454E+00_JPRB,0.18211E+00_JPRB /)  
+KB(:, 1,47, 9) = (/ &
+ & 0.21470E-01_JPRB,0.11984E+00_JPRB,0.14813E+00_JPRB,0.15126E+00_JPRB,0.68564E-01_JPRB /)  
+KB(:, 2,47, 9) = (/ &
+ & 0.28327E-01_JPRB,0.15313E+00_JPRB,0.18908E+00_JPRB,0.19182E+00_JPRB,0.87445E-01_JPRB /)  
+KB(:, 3,47, 9) = (/ &
+ & 0.37186E-01_JPRB,0.19381E+00_JPRB,0.23756E+00_JPRB,0.23882E+00_JPRB,0.11016E+00_JPRB /)  
+KB(:, 4,47, 9) = (/ &
+ & 0.48514E-01_JPRB,0.24239E+00_JPRB,0.29373E+00_JPRB,0.29331E+00_JPRB,0.13670E+00_JPRB /)  
+KB(:, 5,47, 9) = (/ &
+ & 0.62915E-01_JPRB,0.29879E+00_JPRB,0.35729E+00_JPRB,0.35580E+00_JPRB,0.16718E+00_JPRB /)  
+KB(:, 1,48, 9) = (/ &
+ & 0.17915E-01_JPRB,0.10594E+00_JPRB,0.13153E+00_JPRB,0.13471E+00_JPRB,0.60247E-01_JPRB /)  
+KB(:, 2,48, 9) = (/ &
+ & 0.23922E-01_JPRB,0.13687E+00_JPRB,0.16982E+00_JPRB,0.17297E+00_JPRB,0.77702E-01_JPRB /)  
+KB(:, 3,48, 9) = (/ &
+ & 0.31789E-01_JPRB,0.17464E+00_JPRB,0.21543E+00_JPRB,0.21754E+00_JPRB,0.99032E-01_JPRB /)  
+KB(:, 4,48, 9) = (/ &
+ & 0.41975E-01_JPRB,0.22024E+00_JPRB,0.26872E+00_JPRB,0.26906E+00_JPRB,0.12414E+00_JPRB /)  
+KB(:, 5,48, 9) = (/ &
+ & 0.55099E-01_JPRB,0.27366E+00_JPRB,0.32950E+00_JPRB,0.32848E+00_JPRB,0.15313E+00_JPRB /)  
+KB(:, 1,49, 9) = (/ &
+ & 0.14883E-01_JPRB,0.93224E-01_JPRB,0.11635E+00_JPRB,0.11939E+00_JPRB,0.52749E-01_JPRB /)  
+KB(:, 2,49, 9) = (/ &
+ & 0.20112E-01_JPRB,0.12194E+00_JPRB,0.15191E+00_JPRB,0.15532E+00_JPRB,0.68811E-01_JPRB /)  
+KB(:, 3,49, 9) = (/ &
+ & 0.27052E-01_JPRB,0.15700E+00_JPRB,0.19473E+00_JPRB,0.19754E+00_JPRB,0.88692E-01_JPRB /)  
+KB(:, 4,49, 9) = (/ &
+ & 0.36170E-01_JPRB,0.19958E+00_JPRB,0.24512E+00_JPRB,0.24626E+00_JPRB,0.11239E+00_JPRB /)  
+KB(:, 5,49, 9) = (/ &
+ & 0.48053E-01_JPRB,0.24998E+00_JPRB,0.30305E+00_JPRB,0.30260E+00_JPRB,0.13992E+00_JPRB /)  
+KB(:, 1,50, 9) = (/ &
+ & 0.12401E-01_JPRB,0.82224E-01_JPRB,0.10323E+00_JPRB,0.10603E+00_JPRB,0.46388E-01_JPRB /)  
+KB(:, 2,50, 9) = (/ &
+ & 0.16961E-01_JPRB,0.10896E+00_JPRB,0.13629E+00_JPRB,0.13978E+00_JPRB,0.61130E-01_JPRB /)  
+KB(:, 3,50, 9) = (/ &
+ & 0.23097E-01_JPRB,0.14168E+00_JPRB,0.17654E+00_JPRB,0.17982E+00_JPRB,0.79649E-01_JPRB /)  
+KB(:, 4,50, 9) = (/ &
+ & 0.31266E-01_JPRB,0.18143E+00_JPRB,0.22418E+00_JPRB,0.22611E+00_JPRB,0.10201E+00_JPRB /)  
+KB(:, 5,50, 9) = (/ &
+ & 0.42049E-01_JPRB,0.22900E+00_JPRB,0.27939E+00_JPRB,0.27959E+00_JPRB,0.12818E+00_JPRB /)  
+KB(:, 1,51, 9) = (/ &
+ & 0.10311E-01_JPRB,0.72407E-01_JPRB,0.91543E-01_JPRB,0.94015E-01_JPRB,0.40739E-01_JPRB /)  
+KB(:, 2,51, 9) = (/ &
+ & 0.14299E-01_JPRB,0.97301E-01_JPRB,0.12223E+00_JPRB,0.12566E+00_JPRB,0.54336E-01_JPRB /)  
+KB(:, 3,51, 9) = (/ &
+ & 0.19709E-01_JPRB,0.12788E+00_JPRB,0.16001E+00_JPRB,0.16354E+00_JPRB,0.71514E-01_JPRB /)  
+KB(:, 4,51, 9) = (/ &
+ & 0.27010E-01_JPRB,0.16504E+00_JPRB,0.20502E+00_JPRB,0.20766E+00_JPRB,0.92576E-01_JPRB /)  
+KB(:, 5,51, 9) = (/ &
+ & 0.36820E-01_JPRB,0.20996E+00_JPRB,0.25769E+00_JPRB,0.25854E+00_JPRB,0.11743E+00_JPRB /)  
+KB(:, 1,52, 9) = (/ &
+ & 0.85238E-02_JPRB,0.63439E-01_JPRB,0.80796E-01_JPRB,0.82950E-01_JPRB,0.35726E-01_JPRB /)  
+KB(:, 2,52, 9) = (/ &
+ & 0.12004E-01_JPRB,0.86535E-01_JPRB,0.10929E+00_JPRB,0.11252E+00_JPRB,0.48201E-01_JPRB /)  
+KB(:, 3,52, 9) = (/ &
+ & 0.16756E-01_JPRB,0.11511E+00_JPRB,0.14456E+00_JPRB,0.14824E+00_JPRB,0.64036E-01_JPRB /)  
+KB(:, 4,52, 9) = (/ &
+ & 0.23247E-01_JPRB,0.14984E+00_JPRB,0.18701E+00_JPRB,0.19020E+00_JPRB,0.83745E-01_JPRB /)  
+KB(:, 5,52, 9) = (/ &
+ & 0.32110E-01_JPRB,0.19199E+00_JPRB,0.23699E+00_JPRB,0.23857E+00_JPRB,0.10729E+00_JPRB /)  
+KB(:, 1,53, 9) = (/ &
+ & 0.70021E-02_JPRB,0.55279E-01_JPRB,0.70908E-01_JPRB,0.72826E-01_JPRB,0.31267E-01_JPRB /)  
+KB(:, 2,53, 9) = (/ &
+ & 0.10022E-01_JPRB,0.76605E-01_JPRB,0.97337E-01_JPRB,0.10026E+00_JPRB,0.42555E-01_JPRB /)  
+KB(:, 3,53, 9) = (/ &
+ & 0.14186E-01_JPRB,0.10324E+00_JPRB,0.13015E+00_JPRB,0.13384E+00_JPRB,0.57176E-01_JPRB /)  
+KB(:, 4,53, 9) = (/ &
+ & 0.19924E-01_JPRB,0.13568E+00_JPRB,0.17006E+00_JPRB,0.17360E+00_JPRB,0.75508E-01_JPRB /)  
+KB(:, 5,53, 9) = (/ &
+ & 0.27873E-01_JPRB,0.17508E+00_JPRB,0.21734E+00_JPRB,0.21965E+00_JPRB,0.97730E-01_JPRB /)  
+KB(:, 1,54, 9) = (/ &
+ & 0.57827E-02_JPRB,0.48416E-01_JPRB,0.62508E-01_JPRB,0.64310E-01_JPRB,0.27618E-01_JPRB /)  
+KB(:, 2,54, 9) = (/ &
+ & 0.84043E-02_JPRB,0.68151E-01_JPRB,0.87167E-01_JPRB,0.89761E-01_JPRB,0.37874E-01_JPRB /)  
+KB(:, 3,54, 9) = (/ &
+ & 0.12088E-01_JPRB,0.93069E-01_JPRB,0.11782E+00_JPRB,0.12138E+00_JPRB,0.51418E-01_JPRB /)  
+KB(:, 4,54, 9) = (/ &
+ & 0.17188E-01_JPRB,0.12356E+00_JPRB,0.15542E+00_JPRB,0.15914E+00_JPRB,0.68446E-01_JPRB /)  
+KB(:, 5,54, 9) = (/ &
+ & 0.24356E-01_JPRB,0.16057E+00_JPRB,0.20027E+00_JPRB,0.20317E+00_JPRB,0.89427E-01_JPRB /)  
+KB(:, 1,55, 9) = (/ &
+ & 0.47829E-02_JPRB,0.42445E-01_JPRB,0.55108E-01_JPRB,0.56879E-01_JPRB,0.24415E-01_JPRB /)  
+KB(:, 2,55, 9) = (/ &
+ & 0.70515E-02_JPRB,0.60688E-01_JPRB,0.78130E-01_JPRB,0.80430E-01_JPRB,0.33849E-01_JPRB /)  
+KB(:, 3,55, 9) = (/ &
+ & 0.10307E-01_JPRB,0.83954E-01_JPRB,0.10678E+00_JPRB,0.11014E+00_JPRB,0.46263E-01_JPRB /)  
+KB(:, 4,55, 9) = (/ &
+ & 0.14854E-01_JPRB,0.11267E+00_JPRB,0.14216E+00_JPRB,0.14598E+00_JPRB,0.62158E-01_JPRB /)  
+KB(:, 5,55, 9) = (/ &
+ & 0.21317E-01_JPRB,0.14754E+00_JPRB,0.18474E+00_JPRB,0.18809E+00_JPRB,0.81914E-01_JPRB /)  
+KB(:, 1,56, 9) = (/ &
+ & 0.39349E-02_JPRB,0.37013E-01_JPRB,0.48295E-01_JPRB,0.50091E-01_JPRB,0.21529E-01_JPRB /)  
+KB(:, 2,56, 9) = (/ &
+ & 0.58808E-02_JPRB,0.53785E-01_JPRB,0.69695E-01_JPRB,0.71776E-01_JPRB,0.30144E-01_JPRB /)  
+KB(:, 3,56, 9) = (/ &
+ & 0.87470E-02_JPRB,0.75476E-01_JPRB,0.96519E-01_JPRB,0.99590E-01_JPRB,0.41605E-01_JPRB /)  
+KB(:, 4,56, 9) = (/ &
+ & 0.12799E-01_JPRB,0.10247E+00_JPRB,0.12972E+00_JPRB,0.13354E+00_JPRB,0.56396E-01_JPRB /)  
+KB(:, 5,56, 9) = (/ &
+ & 0.18597E-01_JPRB,0.13533E+00_JPRB,0.17007E+00_JPRB,0.17370E+00_JPRB,0.74854E-01_JPRB /)  
+KB(:, 1,57, 9) = (/ &
+ & 0.32237E-02_JPRB,0.32103E-01_JPRB,0.42068E-01_JPRB,0.43893E-01_JPRB,0.18889E-01_JPRB /)  
+KB(:, 2,57, 9) = (/ &
+ & 0.48776E-02_JPRB,0.47453E-01_JPRB,0.61873E-01_JPRB,0.63812E-01_JPRB,0.26899E-01_JPRB /)  
+KB(:, 3,57, 9) = (/ &
+ & 0.73816E-02_JPRB,0.67586E-01_JPRB,0.86956E-01_JPRB,0.89701E-01_JPRB,0.37405E-01_JPRB /)  
+KB(:, 4,57, 9) = (/ &
+ & 0.10984E-01_JPRB,0.92907E-01_JPRB,0.11806E+00_JPRB,0.12175E+00_JPRB,0.51002E-01_JPRB /)  
+KB(:, 5,57, 9) = (/ &
+ & 0.16168E-01_JPRB,0.12385E+00_JPRB,0.15617E+00_JPRB,0.15996E+00_JPRB,0.68253E-01_JPRB /)  
+KB(:, 1,58, 9) = (/ &
+ & 0.26462E-02_JPRB,0.27879E-01_JPRB,0.36685E-01_JPRB,0.38484E-01_JPRB,0.16601E-01_JPRB /)  
+KB(:, 2,58, 9) = (/ &
+ & 0.40522E-02_JPRB,0.41929E-01_JPRB,0.54967E-01_JPRB,0.56858E-01_JPRB,0.24050E-01_JPRB /)  
+KB(:, 3,58, 9) = (/ &
+ & 0.62364E-02_JPRB,0.60609E-01_JPRB,0.78458E-01_JPRB,0.80919E-01_JPRB,0.33657E-01_JPRB /)  
+KB(:, 4,58, 9) = (/ &
+ & 0.94512E-02_JPRB,0.84383E-01_JPRB,0.10769E+00_JPRB,0.11117E+00_JPRB,0.46338E-01_JPRB /)  
+KB(:, 5,58, 9) = (/ &
+ & 0.14101E-01_JPRB,0.11363E+00_JPRB,0.14367E+00_JPRB,0.14755E+00_JPRB,0.62487E-01_JPRB /)  
+KB(:, 1,59, 9) = (/ &
+ & 0.23375E-02_JPRB,0.26104E-01_JPRB,0.34483E-01_JPRB,0.36273E-01_JPRB,0.15643E-01_JPRB /)  
+KB(:, 2,59, 9) = (/ &
+ & 0.36353E-02_JPRB,0.39676E-01_JPRB,0.52191E-01_JPRB,0.54098E-01_JPRB,0.22879E-01_JPRB /)  
+KB(:, 3,59, 9) = (/ &
+ & 0.56781E-02_JPRB,0.57810E-01_JPRB,0.75085E-01_JPRB,0.77452E-01_JPRB,0.32253E-01_JPRB /)  
+KB(:, 4,59, 9) = (/ &
+ & 0.87345E-02_JPRB,0.80998E-01_JPRB,0.10362E+00_JPRB,0.10701E+00_JPRB,0.44587E-01_JPRB /)  
+KB(:, 5,59, 9) = (/ &
+ & 0.13202E-01_JPRB,0.10960E+00_JPRB,0.13878E+00_JPRB,0.14268E+00_JPRB,0.60173E-01_JPRB /)  
+KB(:, 1,13,10) = (/ &
+ & 0.68082E+01_JPRB,0.10647E+02_JPRB,0.12044E+02_JPRB,0.12092E+02_JPRB,0.85097E+01_JPRB /)  
+KB(:, 2,13,10) = (/ &
+ & 0.67019E+01_JPRB,0.10585E+02_JPRB,0.12055E+02_JPRB,0.12198E+02_JPRB,0.87119E+01_JPRB /)  
+KB(:, 3,13,10) = (/ &
+ & 0.67137E+01_JPRB,0.10536E+02_JPRB,0.12063E+02_JPRB,0.12312E+02_JPRB,0.88714E+01_JPRB /)  
+KB(:, 4,13,10) = (/ &
+ & 0.68713E+01_JPRB,0.10489E+02_JPRB,0.12087E+02_JPRB,0.12413E+02_JPRB,0.90170E+01_JPRB /)  
+KB(:, 5,13,10) = (/ &
+ & 0.71185E+01_JPRB,0.10479E+02_JPRB,0.12121E+02_JPRB,0.12479E+02_JPRB,0.91853E+01_JPRB /)  
+KB(:, 1,14,10) = (/ &
+ & 0.58410E+01_JPRB,0.94018E+01_JPRB,0.10846E+02_JPRB,0.11035E+02_JPRB,0.76674E+01_JPRB /)  
+KB(:, 2,14,10) = (/ &
+ & 0.58467E+01_JPRB,0.93735E+01_JPRB,0.10875E+02_JPRB,0.11156E+02_JPRB,0.78256E+01_JPRB /)  
+KB(:, 3,14,10) = (/ &
+ & 0.59984E+01_JPRB,0.93438E+01_JPRB,0.10908E+02_JPRB,0.11271E+02_JPRB,0.79426E+01_JPRB /)  
+KB(:, 4,14,10) = (/ &
+ & 0.62373E+01_JPRB,0.93563E+01_JPRB,0.10953E+02_JPRB,0.11364E+02_JPRB,0.81071E+01_JPRB /)  
+KB(:, 5,14,10) = (/ &
+ & 0.65135E+01_JPRB,0.94809E+01_JPRB,0.10997E+02_JPRB,0.11429E+02_JPRB,0.82861E+01_JPRB /)  
+KB(:, 1,15,10) = (/ &
+ & 0.50343E+01_JPRB,0.83265E+01_JPRB,0.97137E+01_JPRB,0.99946E+01_JPRB,0.69930E+01_JPRB /)  
+KB(:, 2,15,10) = (/ &
+ & 0.51660E+01_JPRB,0.83107E+01_JPRB,0.97594E+01_JPRB,0.10123E+02_JPRB,0.71240E+01_JPRB /)  
+KB(:, 3,15,10) = (/ &
+ & 0.53903E+01_JPRB,0.83316E+01_JPRB,0.98216E+01_JPRB,0.10239E+02_JPRB,0.72628E+01_JPRB /)  
+KB(:, 4,15,10) = (/ &
+ & 0.56415E+01_JPRB,0.84645E+01_JPRB,0.98856E+01_JPRB,0.10324E+02_JPRB,0.74229E+01_JPRB /)  
+KB(:, 5,15,10) = (/ &
+ & 0.58842E+01_JPRB,0.87055E+01_JPRB,0.99631E+01_JPRB,0.10400E+02_JPRB,0.75908E+01_JPRB /)  
+KB(:, 1,16,10) = (/ &
+ & 0.44015E+01_JPRB,0.74103E+01_JPRB,0.86530E+01_JPRB,0.90071E+01_JPRB,0.63301E+01_JPRB /)  
+KB(:, 2,16,10) = (/ &
+ & 0.45955E+01_JPRB,0.74391E+01_JPRB,0.87237E+01_JPRB,0.91359E+01_JPRB,0.64715E+01_JPRB /)  
+KB(:, 3,16,10) = (/ &
+ & 0.48140E+01_JPRB,0.75662E+01_JPRB,0.88065E+01_JPRB,0.92379E+01_JPRB,0.66426E+01_JPRB /)  
+KB(:, 4,16,10) = (/ &
+ & 0.50318E+01_JPRB,0.77981E+01_JPRB,0.89101E+01_JPRB,0.93283E+01_JPRB,0.68095E+01_JPRB /)  
+KB(:, 5,16,10) = (/ &
+ & 0.52436E+01_JPRB,0.80914E+01_JPRB,0.90522E+01_JPRB,0.94292E+01_JPRB,0.69717E+01_JPRB /)  
+KB(:, 1,17,10) = (/ &
+ & 0.38938E+01_JPRB,0.65976E+01_JPRB,0.77151E+01_JPRB,0.80672E+01_JPRB,0.57119E+01_JPRB /)  
+KB(:, 2,17,10) = (/ &
+ & 0.40781E+01_JPRB,0.67171E+01_JPRB,0.78068E+01_JPRB,0.81879E+01_JPRB,0.58706E+01_JPRB /)  
+KB(:, 3,17,10) = (/ &
+ & 0.42641E+01_JPRB,0.69435E+01_JPRB,0.79191E+01_JPRB,0.82934E+01_JPRB,0.60296E+01_JPRB /)  
+KB(:, 4,17,10) = (/ &
+ & 0.44480E+01_JPRB,0.72305E+01_JPRB,0.80762E+01_JPRB,0.84106E+01_JPRB,0.62012E+01_JPRB /)  
+KB(:, 5,17,10) = (/ &
+ & 0.46308E+01_JPRB,0.75237E+01_JPRB,0.83037E+01_JPRB,0.85418E+01_JPRB,0.63775E+01_JPRB /)  
+KB(:, 1,18,10) = (/ &
+ & 0.34407E+01_JPRB,0.58963E+01_JPRB,0.69001E+01_JPRB,0.71891E+01_JPRB,0.51366E+01_JPRB /)  
+KB(:, 2,18,10) = (/ &
+ & 0.35988E+01_JPRB,0.61068E+01_JPRB,0.70120E+01_JPRB,0.73051E+01_JPRB,0.52912E+01_JPRB /)  
+KB(:, 3,18,10) = (/ &
+ & 0.37577E+01_JPRB,0.63853E+01_JPRB,0.71752E+01_JPRB,0.74336E+01_JPRB,0.54376E+01_JPRB /)  
+KB(:, 4,18,10) = (/ &
+ & 0.39161E+01_JPRB,0.66726E+01_JPRB,0.74020E+01_JPRB,0.75773E+01_JPRB,0.56097E+01_JPRB /)  
+KB(:, 5,18,10) = (/ &
+ & 0.40711E+01_JPRB,0.69480E+01_JPRB,0.76793E+01_JPRB,0.77395E+01_JPRB,0.57994E+01_JPRB /)  
+KB(:, 1,19,10) = (/ &
+ & 0.30222E+01_JPRB,0.53136E+01_JPRB,0.61695E+01_JPRB,0.63815E+01_JPRB,0.46248E+01_JPRB /)  
+KB(:, 2,19,10) = (/ &
+ & 0.31568E+01_JPRB,0.55745E+01_JPRB,0.63303E+01_JPRB,0.65186E+01_JPRB,0.47653E+01_JPRB /)  
+KB(:, 3,19,10) = (/ &
+ & 0.32936E+01_JPRB,0.58515E+01_JPRB,0.65536E+01_JPRB,0.66691E+01_JPRB,0.49110E+01_JPRB /)  
+KB(:, 4,19,10) = (/ &
+ & 0.34320E+01_JPRB,0.61200E+01_JPRB,0.68298E+01_JPRB,0.68431E+01_JPRB,0.50671E+01_JPRB /)  
+KB(:, 5,19,10) = (/ &
+ & 0.35717E+01_JPRB,0.63810E+01_JPRB,0.71341E+01_JPRB,0.70485E+01_JPRB,0.52482E+01_JPRB /)  
+KB(:, 1,20,10) = (/ &
+ & 0.26646E+01_JPRB,0.48341E+01_JPRB,0.55294E+01_JPRB,0.56818E+01_JPRB,0.41697E+01_JPRB /)  
+KB(:, 2,20,10) = (/ &
+ & 0.27751E+01_JPRB,0.50933E+01_JPRB,0.57470E+01_JPRB,0.58376E+01_JPRB,0.43064E+01_JPRB /)  
+KB(:, 3,20,10) = (/ &
+ & 0.28895E+01_JPRB,0.53454E+01_JPRB,0.60203E+01_JPRB,0.60166E+01_JPRB,0.44569E+01_JPRB /)  
+KB(:, 4,20,10) = (/ &
+ & 0.30071E+01_JPRB,0.55962E+01_JPRB,0.63194E+01_JPRB,0.62235E+01_JPRB,0.46038E+01_JPRB /)  
+KB(:, 5,20,10) = (/ &
+ & 0.31278E+01_JPRB,0.58505E+01_JPRB,0.66184E+01_JPRB,0.64780E+01_JPRB,0.47569E+01_JPRB /)  
+KB(:, 1,21,10) = (/ &
+ & 0.23601E+01_JPRB,0.44020E+01_JPRB,0.49905E+01_JPRB,0.50776E+01_JPRB,0.37561E+01_JPRB /)  
+KB(:, 2,21,10) = (/ &
+ & 0.24527E+01_JPRB,0.46408E+01_JPRB,0.52514E+01_JPRB,0.52563E+01_JPRB,0.39021E+01_JPRB /)  
+KB(:, 3,21,10) = (/ &
+ & 0.25482E+01_JPRB,0.48775E+01_JPRB,0.55424E+01_JPRB,0.54642E+01_JPRB,0.40531E+01_JPRB /)  
+KB(:, 4,21,10) = (/ &
+ & 0.26469E+01_JPRB,0.51183E+01_JPRB,0.58389E+01_JPRB,0.57185E+01_JPRB,0.42025E+01_JPRB /)  
+KB(:, 5,21,10) = (/ &
+ & 0.27509E+01_JPRB,0.53673E+01_JPRB,0.61341E+01_JPRB,0.60025E+01_JPRB,0.43477E+01_JPRB /)  
+KB(:, 1,22,10) = (/ &
+ & 0.20933E+01_JPRB,0.40130E+01_JPRB,0.45530E+01_JPRB,0.45722E+01_JPRB,0.33997E+01_JPRB /)  
+KB(:, 2,22,10) = (/ &
+ & 0.21774E+01_JPRB,0.42389E+01_JPRB,0.48339E+01_JPRB,0.47801E+01_JPRB,0.35503E+01_JPRB /)  
+KB(:, 3,22,10) = (/ &
+ & 0.22636E+01_JPRB,0.44688E+01_JPRB,0.51214E+01_JPRB,0.50286E+01_JPRB,0.36916E+01_JPRB /)  
+KB(:, 4,22,10) = (/ &
+ & 0.23497E+01_JPRB,0.47085E+01_JPRB,0.54112E+01_JPRB,0.53109E+01_JPRB,0.38464E+01_JPRB /)  
+KB(:, 5,22,10) = (/ &
+ & 0.24400E+01_JPRB,0.49544E+01_JPRB,0.57104E+01_JPRB,0.56159E+01_JPRB,0.40026E+01_JPRB /)  
+KB(:, 1,23,10) = (/ &
+ & 0.18483E+01_JPRB,0.36572E+01_JPRB,0.41816E+01_JPRB,0.41476E+01_JPRB,0.30773E+01_JPRB /)  
+KB(:, 2,23,10) = (/ &
+ & 0.19296E+01_JPRB,0.38779E+01_JPRB,0.44582E+01_JPRB,0.43906E+01_JPRB,0.32324E+01_JPRB /)  
+KB(:, 3,23,10) = (/ &
+ & 0.20105E+01_JPRB,0.41090E+01_JPRB,0.47398E+01_JPRB,0.46676E+01_JPRB,0.33790E+01_JPRB /)  
+KB(:, 4,23,10) = (/ &
+ & 0.20922E+01_JPRB,0.43460E+01_JPRB,0.50319E+01_JPRB,0.49689E+01_JPRB,0.35381E+01_JPRB /)  
+KB(:, 5,23,10) = (/ &
+ & 0.21812E+01_JPRB,0.45942E+01_JPRB,0.53379E+01_JPRB,0.52907E+01_JPRB,0.36872E+01_JPRB /)  
+KB(:, 1,24,10) = (/ &
+ & 0.16291E+01_JPRB,0.33480E+01_JPRB,0.38514E+01_JPRB,0.38051E+01_JPRB,0.27880E+01_JPRB /)  
+KB(:, 2,24,10) = (/ &
+ & 0.17053E+01_JPRB,0.35635E+01_JPRB,0.41240E+01_JPRB,0.40716E+01_JPRB,0.29407E+01_JPRB /)  
+KB(:, 3,24,10) = (/ &
+ & 0.17841E+01_JPRB,0.37930E+01_JPRB,0.44076E+01_JPRB,0.43668E+01_JPRB,0.31035E+01_JPRB /)  
+KB(:, 4,24,10) = (/ &
+ & 0.18670E+01_JPRB,0.40349E+01_JPRB,0.47044E+01_JPRB,0.46831E+01_JPRB,0.32549E+01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART26',1,ZHOOK_HANDLE)
+END SUBROUTINE PART26
+
+
+SUBROUTINE PART27
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART27',0,ZHOOK_HANDLE)
+
+
+KB(:, 5,24,10) = (/ &
+ & 0.19687E+01_JPRB,0.42837E+01_JPRB,0.50178E+01_JPRB,0.50123E+01_JPRB,0.34093E+01_JPRB /)  
+KB(:, 1,25,10) = (/ &
+ & 0.14342E+01_JPRB,0.30870E+01_JPRB,0.35616E+01_JPRB,0.35262E+01_JPRB,0.25309E+01_JPRB /)  
+KB(:, 2,25,10) = (/ &
+ & 0.15073E+01_JPRB,0.32988E+01_JPRB,0.38348E+01_JPRB,0.38083E+01_JPRB,0.26935E+01_JPRB /)  
+KB(:, 3,25,10) = (/ &
+ & 0.15855E+01_JPRB,0.35267E+01_JPRB,0.41227E+01_JPRB,0.41156E+01_JPRB,0.28544E+01_JPRB /)  
+KB(:, 4,25,10) = (/ &
+ & 0.16765E+01_JPRB,0.37674E+01_JPRB,0.44270E+01_JPRB,0.44387E+01_JPRB,0.30112E+01_JPRB /)  
+KB(:, 5,25,10) = (/ &
+ & 0.17969E+01_JPRB,0.40179E+01_JPRB,0.47482E+01_JPRB,0.47807E+01_JPRB,0.31986E+01_JPRB /)  
+KB(:, 1,26,10) = (/ &
+ & 0.12644E+01_JPRB,0.28734E+01_JPRB,0.33145E+01_JPRB,0.33023E+01_JPRB,0.23207E+01_JPRB /)  
+KB(:, 2,26,10) = (/ &
+ & 0.13357E+01_JPRB,0.30796E+01_JPRB,0.35932E+01_JPRB,0.35956E+01_JPRB,0.24777E+01_JPRB /)  
+KB(:, 3,26,10) = (/ &
+ & 0.14174E+01_JPRB,0.33035E+01_JPRB,0.38863E+01_JPRB,0.39081E+01_JPRB,0.26420E+01_JPRB /)  
+KB(:, 4,26,10) = (/ &
+ & 0.15234E+01_JPRB,0.35430E+01_JPRB,0.41997E+01_JPRB,0.42431E+01_JPRB,0.28241E+01_JPRB /)  
+KB(:, 5,26,10) = (/ &
+ & 0.16603E+01_JPRB,0.37959E+01_JPRB,0.45341E+01_JPRB,0.45996E+01_JPRB,0.30401E+01_JPRB /)  
+KB(:, 1,27,10) = (/ &
+ & 0.11180E+01_JPRB,0.26923E+01_JPRB,0.31092E+01_JPRB,0.31181E+01_JPRB,0.21320E+01_JPRB /)  
+KB(:, 2,27,10) = (/ &
+ & 0.11893E+01_JPRB,0.28981E+01_JPRB,0.33903E+01_JPRB,0.34176E+01_JPRB,0.22961E+01_JPRB /)  
+KB(:, 3,27,10) = (/ &
+ & 0.12805E+01_JPRB,0.31184E+01_JPRB,0.36930E+01_JPRB,0.37398E+01_JPRB,0.24775E+01_JPRB /)  
+KB(:, 4,27,10) = (/ &
+ & 0.14017E+01_JPRB,0.33577E+01_JPRB,0.40190E+01_JPRB,0.40909E+01_JPRB,0.26920E+01_JPRB /)  
+KB(:, 5,27,10) = (/ &
+ & 0.15494E+01_JPRB,0.36148E+01_JPRB,0.43685E+01_JPRB,0.44626E+01_JPRB,0.29161E+01_JPRB /)  
+KB(:, 1,28,10) = (/ &
+ & 0.99411E+00_JPRB,0.25422E+01_JPRB,0.29403E+01_JPRB,0.29678E+01_JPRB,0.19736E+01_JPRB /)  
+KB(:, 2,28,10) = (/ &
+ & 0.10693E+01_JPRB,0.27468E+01_JPRB,0.32278E+01_JPRB,0.32747E+01_JPRB,0.21580E+01_JPRB /)  
+KB(:, 3,28,10) = (/ &
+ & 0.11727E+01_JPRB,0.29677E+01_JPRB,0.35410E+01_JPRB,0.36136E+01_JPRB,0.23718E+01_JPRB /)  
+KB(:, 4,28,10) = (/ &
+ & 0.13040E+01_JPRB,0.32092E+01_JPRB,0.38816E+01_JPRB,0.39808E+01_JPRB,0.25959E+01_JPRB /)  
+KB(:, 5,28,10) = (/ &
+ & 0.14604E+01_JPRB,0.34721E+01_JPRB,0.42472E+01_JPRB,0.43708E+01_JPRB,0.28373E+01_JPRB /)  
+KB(:, 1,29,10) = (/ &
+ & 0.89294E+00_JPRB,0.24188E+01_JPRB,0.28058E+01_JPRB,0.28515E+01_JPRB,0.18636E+01_JPRB /)  
+KB(:, 2,29,10) = (/ &
+ & 0.97544E+00_JPRB,0.26259E+01_JPRB,0.31039E+01_JPRB,0.31712E+01_JPRB,0.20699E+01_JPRB /)  
+KB(:, 3,29,10) = (/ &
+ & 0.10880E+01_JPRB,0.28493E+01_JPRB,0.34305E+01_JPRB,0.35278E+01_JPRB,0.22886E+01_JPRB /)  
+KB(:, 4,29,10) = (/ &
+ & 0.12277E+01_JPRB,0.30947E+01_JPRB,0.37862E+01_JPRB,0.39124E+01_JPRB,0.25256E+01_JPRB /)  
+KB(:, 5,29,10) = (/ &
+ & 0.13896E+01_JPRB,0.33676E+01_JPRB,0.41685E+01_JPRB,0.43225E+01_JPRB,0.27864E+01_JPRB /)  
+KB(:, 1,30,10) = (/ &
+ & 0.81230E+00_JPRB,0.23190E+01_JPRB,0.27059E+01_JPRB,0.27666E+01_JPRB,0.17929E+01_JPRB /)  
+KB(:, 2,30,10) = (/ &
+ & 0.90285E+00_JPRB,0.25306E+01_JPRB,0.30146E+01_JPRB,0.31051E+01_JPRB,0.20049E+01_JPRB /)  
+KB(:, 3,30,10) = (/ &
+ & 0.10223E+01_JPRB,0.27572E+01_JPRB,0.33560E+01_JPRB,0.34779E+01_JPRB,0.22359E+01_JPRB /)  
+KB(:, 4,30,10) = (/ &
+ & 0.11675E+01_JPRB,0.30101E+01_JPRB,0.37284E+01_JPRB,0.38827E+01_JPRB,0.24866E+01_JPRB /)  
+KB(:, 5,30,10) = (/ &
+ & 0.13337E+01_JPRB,0.32968E+01_JPRB,0.41265E+01_JPRB,0.43099E+01_JPRB,0.27369E+01_JPRB /)  
+KB(:, 1,31,10) = (/ &
+ & 0.75110E+00_JPRB,0.22419E+01_JPRB,0.26379E+01_JPRB,0.27157E+01_JPRB,0.17433E+01_JPRB /)  
+KB(:, 2,31,10) = (/ &
+ & 0.84809E+00_JPRB,0.24579E+01_JPRB,0.29592E+01_JPRB,0.30730E+01_JPRB,0.19665E+01_JPRB /)  
+KB(:, 3,31,10) = (/ &
+ & 0.97252E+00_JPRB,0.26914E+01_JPRB,0.33168E+01_JPRB,0.34645E+01_JPRB,0.22008E+01_JPRB /)  
+KB(:, 4,31,10) = (/ &
+ & 0.11219E+01_JPRB,0.29550E+01_JPRB,0.37069E+01_JPRB,0.38878E+01_JPRB,0.24456E+01_JPRB /)  
+KB(:, 5,31,10) = (/ &
+ & 0.12926E+01_JPRB,0.32597E+01_JPRB,0.41224E+01_JPRB,0.43304E+01_JPRB,0.27059E+01_JPRB /)  
+KB(:, 1,32,10) = (/ &
+ & 0.70499E+00_JPRB,0.21846E+01_JPRB,0.25985E+01_JPRB,0.26966E+01_JPRB,0.17143E+01_JPRB /)  
+KB(:, 2,32,10) = (/ &
+ & 0.80768E+00_JPRB,0.24067E+01_JPRB,0.29356E+01_JPRB,0.30726E+01_JPRB,0.19337E+01_JPRB /)  
+KB(:, 3,32,10) = (/ &
+ & 0.93561E+00_JPRB,0.26499E+01_JPRB,0.33107E+01_JPRB,0.34825E+01_JPRB,0.21698E+01_JPRB /)  
+KB(:, 4,32,10) = (/ &
+ & 0.10894E+01_JPRB,0.29281E+01_JPRB,0.37179E+01_JPRB,0.39220E+01_JPRB,0.24264E+01_JPRB /)  
+KB(:, 5,32,10) = (/ &
+ & 0.12637E+01_JPRB,0.32525E+01_JPRB,0.41500E+01_JPRB,0.43764E+01_JPRB,0.26992E+01_JPRB /)  
+KB(:, 1,33,10) = (/ &
+ & 0.67118E+00_JPRB,0.21457E+01_JPRB,0.25854E+01_JPRB,0.27057E+01_JPRB,0.16861E+01_JPRB /)  
+KB(:, 2,33,10) = (/ &
+ & 0.77795E+00_JPRB,0.23758E+01_JPRB,0.29404E+01_JPRB,0.30997E+01_JPRB,0.19111E+01_JPRB /)  
+KB(:, 3,33,10) = (/ &
+ & 0.91001E+00_JPRB,0.26325E+01_JPRB,0.33337E+01_JPRB,0.35269E+01_JPRB,0.21600E+01_JPRB /)  
+KB(:, 4,33,10) = (/ &
+ & 0.10674E+01_JPRB,0.29280E+01_JPRB,0.37566E+01_JPRB,0.39787E+01_JPRB,0.24291E+01_JPRB /)  
+KB(:, 5,33,10) = (/ &
+ & 0.12452E+01_JPRB,0.32737E+01_JPRB,0.42022E+01_JPRB,0.44428E+01_JPRB,0.27130E+01_JPRB /)  
+KB(:, 1,34,10) = (/ &
+ & 0.64347E+00_JPRB,0.21163E+01_JPRB,0.25854E+01_JPRB,0.27260E+01_JPRB,0.16632E+01_JPRB /)  
+KB(:, 2,34,10) = (/ &
+ & 0.75313E+00_JPRB,0.23563E+01_JPRB,0.29579E+01_JPRB,0.31342E+01_JPRB,0.18999E+01_JPRB /)  
+KB(:, 3,34,10) = (/ &
+ & 0.88833E+00_JPRB,0.26269E+01_JPRB,0.33662E+01_JPRB,0.35749E+01_JPRB,0.21605E+01_JPRB /)  
+KB(:, 4,34,10) = (/ &
+ & 0.10487E+01_JPRB,0.29401E+01_JPRB,0.38003E+01_JPRB,0.40358E+01_JPRB,0.24405E+01_JPRB /)  
+KB(:, 5,34,10) = (/ &
+ & 0.12301E+01_JPRB,0.33056E+01_JPRB,0.42553E+01_JPRB,0.45073E+01_JPRB,0.27333E+01_JPRB /)  
+KB(:, 1,35,10) = (/ &
+ & 0.61333E+00_JPRB,0.20804E+01_JPRB,0.25725E+01_JPRB,0.27255E+01_JPRB,0.16337E+01_JPRB /)  
+KB(:, 2,35,10) = (/ &
+ & 0.72416E+00_JPRB,0.23301E+01_JPRB,0.29566E+01_JPRB,0.31440E+01_JPRB,0.18805E+01_JPRB /)  
+KB(:, 3,35,10) = (/ &
+ & 0.85987E+00_JPRB,0.26111E+01_JPRB,0.33740E+01_JPRB,0.35934E+01_JPRB,0.21502E+01_JPRB /)  
+KB(:, 4,35,10) = (/ &
+ & 0.10212E+01_JPRB,0.29378E+01_JPRB,0.38159E+01_JPRB,0.40603E+01_JPRB,0.24378E+01_JPRB /)  
+KB(:, 5,35,10) = (/ &
+ & 0.12063E+01_JPRB,0.33167E+01_JPRB,0.42768E+01_JPRB,0.45362E+01_JPRB,0.27369E+01_JPRB /)  
+KB(:, 1,36,10) = (/ &
+ & 0.57858E+00_JPRB,0.20318E+01_JPRB,0.25343E+01_JPRB,0.26932E+01_JPRB,0.15911E+01_JPRB /)  
+KB(:, 2,36,10) = (/ &
+ & 0.68823E+00_JPRB,0.22888E+01_JPRB,0.29242E+01_JPRB,0.31171E+01_JPRB,0.18445E+01_JPRB /)  
+KB(:, 3,36,10) = (/ &
+ & 0.82172E+00_JPRB,0.25765E+01_JPRB,0.33460E+01_JPRB,0.35706E+01_JPRB,0.21205E+01_JPRB /)  
+KB(:, 4,36,10) = (/ &
+ & 0.98227E+00_JPRB,0.29099E+01_JPRB,0.37920E+01_JPRB,0.40410E+01_JPRB,0.24128E+01_JPRB /)  
+KB(:, 5,36,10) = (/ &
+ & 0.11693E+01_JPRB,0.32947E+01_JPRB,0.42558E+01_JPRB,0.45198E+01_JPRB,0.27160E+01_JPRB /)  
+KB(:, 1,37,10) = (/ &
+ & 0.53405E+00_JPRB,0.19558E+01_JPRB,0.24506E+01_JPRB,0.26071E+01_JPRB,0.15218E+01_JPRB /)  
+KB(:, 2,37,10) = (/ &
+ & 0.63968E+00_JPRB,0.22170E+01_JPRB,0.28388E+01_JPRB,0.30310E+01_JPRB,0.17770E+01_JPRB /)  
+KB(:, 3,37,10) = (/ &
+ & 0.76779E+00_JPRB,0.25049E+01_JPRB,0.32599E+01_JPRB,0.34842E+01_JPRB,0.20552E+01_JPRB /)  
+KB(:, 4,37,10) = (/ &
+ & 0.92384E+00_JPRB,0.28358E+01_JPRB,0.37058E+01_JPRB,0.39557E+01_JPRB,0.23490E+01_JPRB /)  
+KB(:, 5,37,10) = (/ &
+ & 0.11094E+01_JPRB,0.32175E+01_JPRB,0.41691E+01_JPRB,0.44348E+01_JPRB,0.26544E+01_JPRB /)  
+KB(:, 1,38,10) = (/ &
+ & 0.49328E+00_JPRB,0.18861E+01_JPRB,0.23724E+01_JPRB,0.25236E+01_JPRB,0.14577E+01_JPRB /)  
+KB(:, 2,38,10) = (/ &
+ & 0.59575E+00_JPRB,0.21506E+01_JPRB,0.27570E+01_JPRB,0.29471E+01_JPRB,0.17138E+01_JPRB /)  
+KB(:, 3,38,10) = (/ &
+ & 0.71877E+00_JPRB,0.24381E+01_JPRB,0.31760E+01_JPRB,0.33985E+01_JPRB,0.19934E+01_JPRB /)  
+KB(:, 4,38,10) = (/ &
+ & 0.87044E+00_JPRB,0.27651E+01_JPRB,0.36203E+01_JPRB,0.38701E+01_JPRB,0.22879E+01_JPRB /)  
+KB(:, 5,38,10) = (/ &
+ & 0.10541E+01_JPRB,0.31424E+01_JPRB,0.40835E+01_JPRB,0.43497E+01_JPRB,0.25942E+01_JPRB /)  
+KB(:, 1,39,10) = (/ &
+ & 0.45633E+00_JPRB,0.18232E+01_JPRB,0.23004E+01_JPRB,0.24453E+01_JPRB,0.13998E+01_JPRB /)  
+KB(:, 2,39,10) = (/ &
+ & 0.55664E+00_JPRB,0.20902E+01_JPRB,0.26810E+01_JPRB,0.28682E+01_JPRB,0.16563E+01_JPRB /)  
+KB(:, 3,39,10) = (/ &
+ & 0.67511E+00_JPRB,0.23775E+01_JPRB,0.30973E+01_JPRB,0.33174E+01_JPRB,0.19363E+01_JPRB /)  
+KB(:, 4,39,10) = (/ &
+ & 0.82312E+00_JPRB,0.27002E+01_JPRB,0.35399E+01_JPRB,0.37881E+01_JPRB,0.22310E+01_JPRB /)  
+KB(:, 5,39,10) = (/ &
+ & 0.10047E+01_JPRB,0.30719E+01_JPRB,0.40016E+01_JPRB,0.42681E+01_JPRB,0.25376E+01_JPRB /)  
+KB(:, 1,40,10) = (/ &
+ & 0.41369E+00_JPRB,0.17392E+01_JPRB,0.21979E+01_JPRB,0.23287E+01_JPRB,0.13226E+01_JPRB /)  
+KB(:, 2,40,10) = (/ &
+ & 0.51051E+00_JPRB,0.20064E+01_JPRB,0.25693E+01_JPRB,0.27492E+01_JPRB,0.15756E+01_JPRB /)  
+KB(:, 3,40,10) = (/ &
+ & 0.62337E+00_JPRB,0.22909E+01_JPRB,0.29791E+01_JPRB,0.31928E+01_JPRB,0.18532E+01_JPRB /)  
+KB(:, 4,40,10) = (/ &
+ & 0.76463E+00_JPRB,0.26052E+01_JPRB,0.34168E+01_JPRB,0.36603E+01_JPRB,0.21464E+01_JPRB /)  
+KB(:, 5,40,10) = (/ &
+ & 0.94032E+00_JPRB,0.29656E+01_JPRB,0.38751E+01_JPRB,0.41396E+01_JPRB,0.24517E+01_JPRB /)  
+KB(:, 1,41,10) = (/ &
+ & 0.37354E+00_JPRB,0.16561E+01_JPRB,0.20963E+01_JPRB,0.22111E+01_JPRB,0.12469E+01_JPRB /)  
+KB(:, 2,41,10) = (/ &
+ & 0.46665E+00_JPRB,0.19239E+01_JPRB,0.24587E+01_JPRB,0.26289E+01_JPRB,0.14959E+01_JPRB /)  
+KB(:, 3,41,10) = (/ &
+ & 0.57545E+00_JPRB,0.22047E+01_JPRB,0.28597E+01_JPRB,0.30659E+01_JPRB,0.17694E+01_JPRB /)  
+KB(:, 4,41,10) = (/ &
+ & 0.70985E+00_JPRB,0.25106E+01_JPRB,0.32912E+01_JPRB,0.35291E+01_JPRB,0.20606E+01_JPRB /)  
+KB(:, 5,41,10) = (/ &
+ & 0.87840E+00_JPRB,0.28591E+01_JPRB,0.37457E+01_JPRB,0.40073E+01_JPRB,0.23640E+01_JPRB /)  
+KB(:, 1,42,10) = (/ &
+ & 0.33676E+00_JPRB,0.15772E+01_JPRB,0.19999E+01_JPRB,0.20973E+01_JPRB,0.11755E+01_JPRB /)  
+KB(:, 2,42,10) = (/ &
+ & 0.42603E+00_JPRB,0.18429E+01_JPRB,0.23518E+01_JPRB,0.25105E+01_JPRB,0.14196E+01_JPRB /)  
+KB(:, 3,42,10) = (/ &
+ & 0.53169E+00_JPRB,0.21211E+01_JPRB,0.27440E+01_JPRB,0.29424E+01_JPRB,0.16886E+01_JPRB /)  
+KB(:, 4,42,10) = (/ &
+ & 0.65992E+00_JPRB,0.24200E+01_JPRB,0.31691E+01_JPRB,0.34004E+01_JPRB,0.19770E+01_JPRB /)  
+KB(:, 5,42,10) = (/ &
+ & 0.82123E+00_JPRB,0.27572E+01_JPRB,0.36189E+01_JPRB,0.38764E+01_JPRB,0.22780E+01_JPRB /)  
+KB(:, 1,43,10) = (/ &
+ & 0.29880E+00_JPRB,0.14855E+01_JPRB,0.18883E+01_JPRB,0.19649E+01_JPRB,0.10947E+01_JPRB /)  
+KB(:, 2,43,10) = (/ &
+ & 0.38323E+00_JPRB,0.17495E+01_JPRB,0.22289E+01_JPRB,0.23704E+01_JPRB,0.13324E+01_JPRB /)  
+KB(:, 3,43,10) = (/ &
+ & 0.48519E+00_JPRB,0.20243E+01_JPRB,0.26093E+01_JPRB,0.27970E+01_JPRB,0.15948E+01_JPRB /)  
+KB(:, 4,43,10) = (/ &
+ & 0.60690E+00_JPRB,0.23164E+01_JPRB,0.30260E+01_JPRB,0.32477E+01_JPRB,0.18788E+01_JPRB /)  
+KB(:, 5,43,10) = (/ &
+ & 0.75876E+00_JPRB,0.26404E+01_JPRB,0.34692E+01_JPRB,0.37199E+01_JPRB,0.21767E+01_JPRB /)  
+KB(:, 1,44,10) = (/ &
+ & 0.26234E+00_JPRB,0.13896E+01_JPRB,0.17735E+01_JPRB,0.18283E+01_JPRB,0.10125E+01_JPRB /)  
+KB(:, 2,44,10) = (/ &
+ & 0.34133E+00_JPRB,0.16516E+01_JPRB,0.21029E+01_JPRB,0.22231E+01_JPRB,0.12426E+01_JPRB /)  
+KB(:, 3,44,10) = (/ &
+ & 0.43896E+00_JPRB,0.19234E+01_JPRB,0.24698E+01_JPRB,0.26446E+01_JPRB,0.14975E+01_JPRB /)  
+KB(:, 4,44,10) = (/ &
+ & 0.55556E+00_JPRB,0.22104E+01_JPRB,0.28764E+01_JPRB,0.30872E+01_JPRB,0.17758E+01_JPRB /)  
+KB(:, 5,44,10) = (/ &
+ & 0.69720E+00_JPRB,0.25211E+01_JPRB,0.33108E+01_JPRB,0.35530E+01_JPRB,0.20699E+01_JPRB /)  
+KB(:, 1,45,10) = (/ &
+ & 0.22932E+00_JPRB,0.12967E+01_JPRB,0.16617E+01_JPRB,0.16976E+01_JPRB,0.93402E+00_JPRB /)  
+KB(:, 2,45,10) = (/ &
+ & 0.30290E+00_JPRB,0.15560E+01_JPRB,0.19824E+01_JPRB,0.20804E+01_JPRB,0.11566E+01_JPRB /)  
+KB(:, 3,45,10) = (/ &
+ & 0.39581E+00_JPRB,0.18251E+01_JPRB,0.23356E+01_JPRB,0.24949E+01_JPRB,0.14039E+01_JPRB /)  
+KB(:, 4,45,10) = (/ &
+ & 0.50777E+00_JPRB,0.21068E+01_JPRB,0.27305E+01_JPRB,0.29300E+01_JPRB,0.16755E+01_JPRB /)  
+KB(:, 5,45,10) = (/ &
+ & 0.64060E+00_JPRB,0.24073E+01_JPRB,0.31565E+01_JPRB,0.33892E+01_JPRB,0.19653E+01_JPRB /)  
+KB(:, 1,46,10) = (/ &
+ & 0.19825E+00_JPRB,0.12020E+01_JPRB,0.15457E+01_JPRB,0.15662E+01_JPRB,0.85464E+00_JPRB /)  
+KB(:, 2,46,10) = (/ &
+ & 0.26591E+00_JPRB,0.14563E+01_JPRB,0.18595E+01_JPRB,0.19337E+01_JPRB,0.10694E+01_JPRB /)  
+KB(:, 3,46,10) = (/ &
+ & 0.35343E+00_JPRB,0.17232E+01_JPRB,0.22000E+01_JPRB,0.23390E+01_JPRB,0.13083E+01_JPRB /)  
+KB(:, 4,46,10) = (/ &
+ & 0.46053E+00_JPRB,0.19999E+01_JPRB,0.25801E+01_JPRB,0.27669E+01_JPRB,0.15716E+01_JPRB /)  
+KB(:, 5,46,10) = (/ &
+ & 0.58556E+00_JPRB,0.22922E+01_JPRB,0.29962E+01_JPRB,0.32174E+01_JPRB,0.18560E+01_JPRB /)  
+KB(:, 1,47,10) = (/ &
+ & 0.16836E+00_JPRB,0.11008E+01_JPRB,0.14194E+01_JPRB,0.14270E+01_JPRB,0.77061E+00_JPRB /)  
+KB(:, 2,47,10) = (/ &
+ & 0.22922E+00_JPRB,0.13473E+01_JPRB,0.17277E+01_JPRB,0.17767E+01_JPRB,0.97668E+00_JPRB /)  
+KB(:, 3,47,10) = (/ &
+ & 0.31004E+00_JPRB,0.16106E+01_JPRB,0.20551E+01_JPRB,0.21688E+01_JPRB,0.12060E+01_JPRB /)  
+KB(:, 4,47,10) = (/ &
+ & 0.41110E+00_JPRB,0.18840E+01_JPRB,0.24189E+01_JPRB,0.25893E+01_JPRB,0.14598E+01_JPRB /)  
+KB(:, 5,47,10) = (/ &
+ & 0.52932E+00_JPRB,0.21690E+01_JPRB,0.28216E+01_JPRB,0.30298E+01_JPRB,0.17368E+01_JPRB /)  
+KB(:, 1,48,10) = (/ &
+ & 0.14220E+00_JPRB,0.10041E+01_JPRB,0.12957E+01_JPRB,0.12963E+01_JPRB,0.69114E+00_JPRB /)  
+KB(:, 2,48,10) = (/ &
+ & 0.19626E+00_JPRB,0.12419E+01_JPRB,0.15985E+01_JPRB,0.16273E+01_JPRB,0.88794E+00_JPRB /)  
+KB(:, 3,48,10) = (/ &
+ & 0.27002E+00_JPRB,0.15006E+01_JPRB,0.19169E+01_JPRB,0.20039E+01_JPRB,0.11083E+01_JPRB /)  
+KB(:, 4,48,10) = (/ &
+ & 0.36488E+00_JPRB,0.17700E+01_JPRB,0.22644E+01_JPRB,0.24151E+01_JPRB,0.13523E+01_JPRB /)  
+KB(:, 5,48,10) = (/ &
+ & 0.47701E+00_JPRB,0.20494E+01_JPRB,0.26525E+01_JPRB,0.28466E+01_JPRB,0.16205E+01_JPRB /)  
+KB(:, 1,49,10) = (/ &
+ & 0.11950E+00_JPRB,0.91234E+00_JPRB,0.11755E+01_JPRB,0.11741E+01_JPRB,0.61611E+00_JPRB /)  
+KB(:, 2,49,10) = (/ &
+ & 0.16698E+00_JPRB,0.11406E+01_JPRB,0.14723E+01_JPRB,0.14860E+01_JPRB,0.80337E+00_JPRB /)  
+KB(:, 3,49,10) = (/ &
+ & 0.23352E+00_JPRB,0.13921E+01_JPRB,0.17842E+01_JPRB,0.18450E+01_JPRB,0.10147E+01_JPRB /)  
+KB(:, 4,49,10) = (/ &
+ & 0.32154E+00_JPRB,0.16580E+01_JPRB,0.21177E+01_JPRB,0.22439E+01_JPRB,0.12490E+01_JPRB /)  
+KB(:, 5,49,10) = (/ &
+ & 0.42774E+00_JPRB,0.19330E+01_JPRB,0.24891E+01_JPRB,0.26683E+01_JPRB,0.15078E+01_JPRB /)  
+KB(:, 1,50,10) = (/ &
+ & 0.10087E+00_JPRB,0.83065E+00_JPRB,0.10669E+01_JPRB,0.10674E+01_JPRB,0.54936E+00_JPRB /)  
+KB(:, 2,50,10) = (/ &
+ & 0.14237E+00_JPRB,0.10490E+01_JPRB,0.13561E+01_JPRB,0.13605E+01_JPRB,0.72778E+00_JPRB /)  
+KB(:, 3,50,10) = (/ &
+ & 0.20234E+00_JPRB,0.12926E+01_JPRB,0.16630E+01_JPRB,0.17021E+01_JPRB,0.93055E+00_JPRB /)  
+KB(:, 4,50,10) = (/ &
+ & 0.28362E+00_JPRB,0.15546E+01_JPRB,0.19861E+01_JPRB,0.20879E+01_JPRB,0.11563E+01_JPRB /)  
+KB(:, 5,50,10) = (/ &
+ & 0.38392E+00_JPRB,0.18265E+01_JPRB,0.23423E+01_JPRB,0.25044E+01_JPRB,0.14058E+01_JPRB /)  
+KB(:, 1,51,10) = (/ &
+ & 0.85305E-01_JPRB,0.75516E+00_JPRB,0.96600E+00_JPRB,0.96989E+00_JPRB,0.48900E+00_JPRB /)  
+KB(:, 2,51,10) = (/ &
+ & 0.12119E+00_JPRB,0.96396E+00_JPRB,0.12458E+01_JPRB,0.12458E+01_JPRB,0.65803E+00_JPRB /)  
+KB(:, 3,51,10) = (/ &
+ & 0.17492E+00_JPRB,0.11993E+01_JPRB,0.15474E+01_JPRB,0.15706E+01_JPRB,0.85222E+00_JPRB /)  
+KB(:, 4,51,10) = (/ &
+ & 0.24953E+00_JPRB,0.14559E+01_JPRB,0.18635E+01_JPRB,0.19410E+01_JPRB,0.10697E+01_JPRB /)  
+KB(:, 5,51,10) = (/ &
+ & 0.34420E+00_JPRB,0.17250E+01_JPRB,0.22062E+01_JPRB,0.23483E+01_JPRB,0.13105E+01_JPRB /)  
+KB(:, 1,52,10) = (/ &
+ & 0.72122E-01_JPRB,0.68398E+00_JPRB,0.87088E+00_JPRB,0.87737E+00_JPRB,0.43154E+00_JPRB /)  
+KB(:, 2,52,10) = (/ &
+ & 0.10277E+00_JPRB,0.88315E+00_JPRB,0.11388E+01_JPRB,0.11383E+01_JPRB,0.59136E+00_JPRB /)  
+KB(:, 3,52,10) = (/ &
+ & 0.15043E+00_JPRB,0.11094E+01_JPRB,0.14345E+01_JPRB,0.14453E+01_JPRB,0.77736E+00_JPRB /)  
+KB(:, 4,52,10) = (/ &
+ & 0.21816E+00_JPRB,0.13587E+01_JPRB,0.17451E+01_JPRB,0.17993E+01_JPRB,0.98663E+00_JPRB /)  
+KB(:, 5,52,10) = (/ &
+ & 0.30639E+00_JPRB,0.16242E+01_JPRB,0.20759E+01_JPRB,0.21951E+01_JPRB,0.12188E+01_JPRB /)  
+KB(:, 1,53,10) = (/ &
+ & 0.60992E-01_JPRB,0.61681E+00_JPRB,0.78096E+00_JPRB,0.78801E+00_JPRB,0.37771E+00_JPRB /)  
+KB(:, 2,53,10) = (/ &
+ & 0.86893E-01_JPRB,0.80591E+00_JPRB,0.10354E+01_JPRB,0.10374E+01_JPRB,0.52892E+00_JPRB /)  
+KB(:, 3,53,10) = (/ &
+ & 0.12844E+00_JPRB,0.10223E+01_JPRB,0.13228E+01_JPRB,0.13263E+01_JPRB,0.70557E+00_JPRB /)  
+KB(:, 4,53,10) = (/ &
+ & 0.18962E+00_JPRB,0.12639E+01_JPRB,0.16288E+01_JPRB,0.16633E+01_JPRB,0.90648E+00_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART27',1,ZHOOK_HANDLE)
+END SUBROUTINE PART27
+
+
+SUBROUTINE PART28
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART28',0,ZHOOK_HANDLE)
+
+
+KB(:, 5,53,10) = (/ &
+ & 0.27104E+00_JPRB,0.15253E+01_JPRB,0.19505E+01_JPRB,0.20457E+01_JPRB,0.11304E+01_JPRB /)  
+KB(:, 1,54,10) = (/ &
+ & 0.52146E-01_JPRB,0.55862E+00_JPRB,0.70341E+00_JPRB,0.70953E+00_JPRB,0.33141E+00_JPRB /)  
+KB(:, 2,54,10) = (/ &
+ & 0.74252E-01_JPRB,0.73817E+00_JPRB,0.94468E+00_JPRB,0.94968E+00_JPRB,0.47420E+00_JPRB /)  
+KB(:, 3,54,10) = (/ &
+ & 0.11046E+00_JPRB,0.94583E+00_JPRB,0.12229E+01_JPRB,0.12232E+01_JPRB,0.64224E+00_JPRB /)  
+KB(:, 4,54,10) = (/ &
+ & 0.16584E+00_JPRB,0.11796E+01_JPRB,0.15239E+01_JPRB,0.15447E+01_JPRB,0.83594E+00_JPRB /)  
+KB(:, 5,54,10) = (/ &
+ & 0.24084E+00_JPRB,0.14356E+01_JPRB,0.18395E+01_JPRB,0.19125E+01_JPRB,0.10521E+01_JPRB /)  
+KB(:, 1,55,10) = (/ &
+ & 0.44769E-01_JPRB,0.50580E+00_JPRB,0.63367E+00_JPRB,0.63830E+00_JPRB,0.29171E+00_JPRB /)  
+KB(:, 2,55,10) = (/ &
+ & 0.63801E-01_JPRB,0.67695E+00_JPRB,0.86251E+00_JPRB,0.86950E+00_JPRB,0.42385E+00_JPRB /)  
+KB(:, 3,55,10) = (/ &
+ & 0.95281E-01_JPRB,0.87561E+00_JPRB,0.11296E+01_JPRB,0.11298E+01_JPRB,0.58465E+00_JPRB /)  
+KB(:, 4,55,10) = (/ &
+ & 0.14509E+00_JPRB,0.11012E+01_JPRB,0.14250E+01_JPRB,0.14355E+01_JPRB,0.77056E+00_JPRB /)  
+KB(:, 5,55,10) = (/ &
+ & 0.21402E+00_JPRB,0.13506E+01_JPRB,0.17360E+01_JPRB,0.17888E+01_JPRB,0.97966E+00_JPRB /)  
+KB(:, 1,56,10) = (/ &
+ & 0.38303E-01_JPRB,0.45495E+00_JPRB,0.56826E+00_JPRB,0.57046E+00_JPRB,0.25591E+00_JPRB /)  
+KB(:, 2,56,10) = (/ &
+ & 0.54762E-01_JPRB,0.61846E+00_JPRB,0.78411E+00_JPRB,0.79150E+00_JPRB,0.37700E+00_JPRB /)  
+KB(:, 3,56,10) = (/ &
+ & 0.82009E-01_JPRB,0.80830E+00_JPRB,0.10394E+01_JPRB,0.10417E+01_JPRB,0.52950E+00_JPRB /)  
+KB(:, 4,56,10) = (/ &
+ & 0.12621E+00_JPRB,0.10253E+01_JPRB,0.13275E+01_JPRB,0.13316E+01_JPRB,0.70721E+00_JPRB /)  
+KB(:, 5,56,10) = (/ &
+ & 0.18937E+00_JPRB,0.12680E+01_JPRB,0.16344E+01_JPRB,0.16700E+01_JPRB,0.90979E+00_JPRB /)  
+KB(:, 1,57,10) = (/ &
+ & 0.32632E-01_JPRB,0.40611E+00_JPRB,0.50731E+00_JPRB,0.50659E+00_JPRB,0.22496E+00_JPRB /)  
+KB(:, 2,57,10) = (/ &
+ & 0.47019E-01_JPRB,0.56304E+00_JPRB,0.71002E+00_JPRB,0.71651E+00_JPRB,0.33305E+00_JPRB /)  
+KB(:, 3,57,10) = (/ &
+ & 0.70456E-01_JPRB,0.74361E+00_JPRB,0.95266E+00_JPRB,0.95775E+00_JPRB,0.47635E+00_JPRB /)  
+KB(:, 4,57,10) = (/ &
+ & 0.10937E+00_JPRB,0.95229E+00_JPRB,0.12322E+01_JPRB,0.12329E+01_JPRB,0.64711E+00_JPRB /)  
+KB(:, 5,57,10) = (/ &
+ & 0.16675E+00_JPRB,0.11875E+01_JPRB,0.15342E+01_JPRB,0.15565E+01_JPRB,0.84216E+00_JPRB /)  
+KB(:, 1,58,10) = (/ &
+ & 0.27856E-01_JPRB,0.36188E+00_JPRB,0.45369E+00_JPRB,0.45016E+00_JPRB,0.19835E+00_JPRB /)  
+KB(:, 2,58,10) = (/ &
+ & 0.40581E-01_JPRB,0.51273E+00_JPRB,0.64353E+00_JPRB,0.64865E+00_JPRB,0.29546E+00_JPRB /)  
+KB(:, 3,58,10) = (/ &
+ & 0.60914E-01_JPRB,0.68524E+00_JPRB,0.87436E+00_JPRB,0.88146E+00_JPRB,0.42903E+00_JPRB /)  
+KB(:, 4,58,10) = (/ &
+ & 0.95154E-01_JPRB,0.88582E+00_JPRB,0.11439E+01_JPRB,0.11441E+01_JPRB,0.59161E+00_JPRB /)  
+KB(:, 5,58,10) = (/ &
+ & 0.14715E+00_JPRB,0.11133E+01_JPRB,0.14407E+01_JPRB,0.14528E+01_JPRB,0.77938E+00_JPRB /)  
+KB(:, 1,59,10) = (/ &
+ & 0.25371E-01_JPRB,0.34461E+00_JPRB,0.43295E+00_JPRB,0.42860E+00_JPRB,0.18805E+00_JPRB /)  
+KB(:, 2,59,10) = (/ &
+ & 0.37551E-01_JPRB,0.49296E+00_JPRB,0.61778E+00_JPRB,0.62208E+00_JPRB,0.28092E+00_JPRB /)  
+KB(:, 3,59,10) = (/ &
+ & 0.57031E-01_JPRB,0.66239E+00_JPRB,0.84380E+00_JPRB,0.85137E+00_JPRB,0.40984E+00_JPRB /)  
+KB(:, 4,59,10) = (/ &
+ & 0.89730E-01_JPRB,0.85967E+00_JPRB,0.11090E+01_JPRB,0.11096E+01_JPRB,0.56882E+00_JPRB /)  
+KB(:, 5,59,10) = (/ &
+ & 0.13959E+00_JPRB,0.10839E+01_JPRB,0.14035E+01_JPRB,0.14125E+01_JPRB,0.75487E+00_JPRB /)  
+KB(:, 1,13,11) = (/ &
+ & 0.13518E+02_JPRB,0.19426E+02_JPRB,0.21368E+02_JPRB,0.20607E+02_JPRB,0.15967E+02_JPRB /)  
+KB(:, 2,13,11) = (/ &
+ & 0.13249E+02_JPRB,0.19278E+02_JPRB,0.21345E+02_JPRB,0.20725E+02_JPRB,0.16218E+02_JPRB /)  
+KB(:, 3,13,11) = (/ &
+ & 0.12991E+02_JPRB,0.19106E+02_JPRB,0.21344E+02_JPRB,0.20838E+02_JPRB,0.16493E+02_JPRB /)  
+KB(:, 4,13,11) = (/ &
+ & 0.12783E+02_JPRB,0.18953E+02_JPRB,0.21337E+02_JPRB,0.20959E+02_JPRB,0.16769E+02_JPRB /)  
+KB(:, 5,13,11) = (/ &
+ & 0.12735E+02_JPRB,0.18820E+02_JPRB,0.21328E+02_JPRB,0.21104E+02_JPRB,0.16982E+02_JPRB /)  
+KB(:, 1,14,11) = (/ &
+ & 0.11504E+02_JPRB,0.17534E+02_JPRB,0.19457E+02_JPRB,0.19131E+02_JPRB,0.14625E+02_JPRB /)  
+KB(:, 2,14,11) = (/ &
+ & 0.11281E+02_JPRB,0.17396E+02_JPRB,0.19491E+02_JPRB,0.19271E+02_JPRB,0.14939E+02_JPRB /)  
+KB(:, 3,14,11) = (/ &
+ & 0.11112E+02_JPRB,0.17290E+02_JPRB,0.19527E+02_JPRB,0.19415E+02_JPRB,0.15255E+02_JPRB /)  
+KB(:, 4,14,11) = (/ &
+ & 0.11115E+02_JPRB,0.17213E+02_JPRB,0.19560E+02_JPRB,0.19580E+02_JPRB,0.15504E+02_JPRB /)  
+KB(:, 5,14,11) = (/ &
+ & 0.11342E+02_JPRB,0.17139E+02_JPRB,0.19615E+02_JPRB,0.19759E+02_JPRB,0.15706E+02_JPRB /)  
+KB(:, 1,15,11) = (/ &
+ & 0.98170E+01_JPRB,0.15599E+02_JPRB,0.17627E+02_JPRB,0.17666E+02_JPRB,0.13354E+02_JPRB /)  
+KB(:, 2,15,11) = (/ &
+ & 0.96747E+01_JPRB,0.15533E+02_JPRB,0.17695E+02_JPRB,0.17842E+02_JPRB,0.13687E+02_JPRB /)  
+KB(:, 3,15,11) = (/ &
+ & 0.96984E+01_JPRB,0.15502E+02_JPRB,0.17755E+02_JPRB,0.18036E+02_JPRB,0.14004E+02_JPRB /)  
+KB(:, 4,15,11) = (/ &
+ & 0.99522E+01_JPRB,0.15480E+02_JPRB,0.17829E+02_JPRB,0.18235E+02_JPRB,0.14263E+02_JPRB /)  
+KB(:, 5,15,11) = (/ &
+ & 0.10344E+02_JPRB,0.15525E+02_JPRB,0.17929E+02_JPRB,0.18418E+02_JPRB,0.14475E+02_JPRB /)  
+KB(:, 1,16,11) = (/ &
+ & 0.84332E+01_JPRB,0.13806E+02_JPRB,0.15926E+02_JPRB,0.16215E+02_JPRB,0.12224E+02_JPRB /)  
+KB(:, 2,16,11) = (/ &
+ & 0.84583E+01_JPRB,0.13805E+02_JPRB,0.16021E+02_JPRB,0.16437E+02_JPRB,0.12556E+02_JPRB /)  
+KB(:, 3,16,11) = (/ &
+ & 0.87066E+01_JPRB,0.13823E+02_JPRB,0.16108E+02_JPRB,0.16660E+02_JPRB,0.12834E+02_JPRB /)  
+KB(:, 4,16,11) = (/ &
+ & 0.90827E+01_JPRB,0.13924E+02_JPRB,0.16226E+02_JPRB,0.16883E+02_JPRB,0.13078E+02_JPRB /)  
+KB(:, 5,16,11) = (/ &
+ & 0.95263E+01_JPRB,0.14156E+02_JPRB,0.16382E+02_JPRB,0.17079E+02_JPRB,0.13334E+02_JPRB /)  
+KB(:, 1,17,11) = (/ &
+ & 0.73068E+01_JPRB,0.12252E+02_JPRB,0.14341E+02_JPRB,0.14810E+02_JPRB,0.11129E+02_JPRB /)  
+KB(:, 2,17,11) = (/ &
+ & 0.75295E+01_JPRB,0.12291E+02_JPRB,0.14463E+02_JPRB,0.15052E+02_JPRB,0.11439E+02_JPRB /)  
+KB(:, 3,17,11) = (/ &
+ & 0.78853E+01_JPRB,0.12405E+02_JPRB,0.14606E+02_JPRB,0.15309E+02_JPRB,0.11729E+02_JPRB /)  
+KB(:, 4,17,11) = (/ &
+ & 0.83040E+01_JPRB,0.12643E+02_JPRB,0.14776E+02_JPRB,0.15548E+02_JPRB,0.12006E+02_JPRB /)  
+KB(:, 5,17,11) = (/ &
+ & 0.87123E+01_JPRB,0.13039E+02_JPRB,0.14982E+02_JPRB,0.15762E+02_JPRB,0.12286E+02_JPRB /)  
+KB(:, 1,18,11) = (/ &
+ & 0.64287E+01_JPRB,0.10933E+02_JPRB,0.12879E+02_JPRB,0.13451E+02_JPRB,0.10053E+02_JPRB /)  
+KB(:, 2,18,11) = (/ &
+ & 0.67446E+01_JPRB,0.11039E+02_JPRB,0.13041E+02_JPRB,0.13740E+02_JPRB,0.10377E+02_JPRB /)  
+KB(:, 3,18,11) = (/ &
+ & 0.71271E+01_JPRB,0.11266E+02_JPRB,0.13222E+02_JPRB,0.14018E+02_JPRB,0.10699E+02_JPRB /)  
+KB(:, 4,18,11) = (/ &
+ & 0.75067E+01_JPRB,0.11650E+02_JPRB,0.13455E+02_JPRB,0.14263E+02_JPRB,0.11011E+02_JPRB /)  
+KB(:, 5,18,11) = (/ &
+ & 0.78797E+01_JPRB,0.12144E+02_JPRB,0.13766E+02_JPRB,0.14517E+02_JPRB,0.11323E+02_JPRB /)  
+KB(:, 1,19,11) = (/ &
+ & 0.57165E+01_JPRB,0.98198E+01_JPRB,0.11563E+02_JPRB,0.12210E+02_JPRB,0.90287E+01_JPRB /)  
+KB(:, 2,19,11) = (/ &
+ & 0.60504E+01_JPRB,0.10030E+02_JPRB,0.11759E+02_JPRB,0.12511E+02_JPRB,0.93771E+01_JPRB /)  
+KB(:, 3,19,11) = (/ &
+ & 0.63872E+01_JPRB,0.10390E+02_JPRB,0.12004E+02_JPRB,0.12787E+02_JPRB,0.97382E+01_JPRB /)  
+KB(:, 4,19,11) = (/ &
+ & 0.67262E+01_JPRB,0.10858E+02_JPRB,0.12325E+02_JPRB,0.13071E+02_JPRB,0.10100E+02_JPRB /)  
+KB(:, 5,19,11) = (/ &
+ & 0.70630E+01_JPRB,0.11396E+02_JPRB,0.12720E+02_JPRB,0.13371E+02_JPRB,0.10433E+02_JPRB /)  
+KB(:, 1,20,11) = (/ &
+ & 0.51077E+01_JPRB,0.88680E+01_JPRB,0.10415E+02_JPRB,0.11053E+02_JPRB,0.80963E+01_JPRB /)  
+KB(:, 2,20,11) = (/ &
+ & 0.54017E+01_JPRB,0.92107E+01_JPRB,0.10662E+02_JPRB,0.11361E+02_JPRB,0.84758E+01_JPRB /)  
+KB(:, 3,20,11) = (/ &
+ & 0.57015E+01_JPRB,0.96698E+01_JPRB,0.10982E+02_JPRB,0.11668E+02_JPRB,0.88481E+01_JPRB /)  
+KB(:, 4,20,11) = (/ &
+ & 0.60041E+01_JPRB,0.10196E+02_JPRB,0.11384E+02_JPRB,0.12000E+02_JPRB,0.92376E+01_JPRB /)  
+KB(:, 5,20,11) = (/ &
+ & 0.63106E+01_JPRB,0.10732E+02_JPRB,0.11884E+02_JPRB,0.12349E+02_JPRB,0.96255E+01_JPRB /)  
+KB(:, 1,21,11) = (/ &
+ & 0.45414E+01_JPRB,0.80841E+01_JPRB,0.94333E+01_JPRB,0.10001E+02_JPRB,0.72987E+01_JPRB /)  
+KB(:, 2,21,11) = (/ &
+ & 0.48060E+01_JPRB,0.85169E+01_JPRB,0.97399E+01_JPRB,0.10324E+02_JPRB,0.76799E+01_JPRB /)  
+KB(:, 3,21,11) = (/ &
+ & 0.50754E+01_JPRB,0.90311E+01_JPRB,0.10134E+02_JPRB,0.10673E+02_JPRB,0.80692E+01_JPRB /)  
+KB(:, 4,21,11) = (/ &
+ & 0.53489E+01_JPRB,0.95660E+01_JPRB,0.10626E+02_JPRB,0.11046E+02_JPRB,0.84671E+01_JPRB /)  
+KB(:, 5,21,11) = (/ &
+ & 0.56226E+01_JPRB,0.10100E+02_JPRB,0.11188E+02_JPRB,0.11467E+02_JPRB,0.88878E+01_JPRB /)  
+KB(:, 1,22,11) = (/ &
+ & 0.40512E+01_JPRB,0.74537E+01_JPRB,0.86113E+01_JPRB,0.90760E+01_JPRB,0.66406E+01_JPRB /)  
+KB(:, 2,22,11) = (/ &
+ & 0.42861E+01_JPRB,0.79455E+01_JPRB,0.89988E+01_JPRB,0.94326E+01_JPRB,0.70298E+01_JPRB /)  
+KB(:, 3,22,11) = (/ &
+ & 0.45284E+01_JPRB,0.84723E+01_JPRB,0.94806E+01_JPRB,0.98282E+01_JPRB,0.74365E+01_JPRB /)  
+KB(:, 4,22,11) = (/ &
+ & 0.47765E+01_JPRB,0.90022E+01_JPRB,0.10036E+02_JPRB,0.10267E+02_JPRB,0.78530E+01_JPRB /)  
+KB(:, 5,22,11) = (/ &
+ & 0.50273E+01_JPRB,0.95375E+01_JPRB,0.10644E+02_JPRB,0.10762E+02_JPRB,0.82925E+01_JPRB /)  
+KB(:, 1,23,11) = (/ &
+ & 0.36272E+01_JPRB,0.69345E+01_JPRB,0.79292E+01_JPRB,0.82821E+01_JPRB,0.60862E+01_JPRB /)  
+KB(:, 2,23,11) = (/ &
+ & 0.38324E+01_JPRB,0.74412E+01_JPRB,0.84058E+01_JPRB,0.86779E+01_JPRB,0.64814E+01_JPRB /)  
+KB(:, 3,23,11) = (/ &
+ & 0.40496E+01_JPRB,0.79556E+01_JPRB,0.89497E+01_JPRB,0.91277E+01_JPRB,0.69031E+01_JPRB /)  
+KB(:, 4,23,11) = (/ &
+ & 0.42736E+01_JPRB,0.84881E+01_JPRB,0.95512E+01_JPRB,0.96353E+01_JPRB,0.73423E+01_JPRB /)  
+KB(:, 5,23,11) = (/ &
+ & 0.45008E+01_JPRB,0.90231E+01_JPRB,0.10199E+02_JPRB,0.10196E+02_JPRB,0.78107E+01_JPRB /)  
+KB(:, 1,24,11) = (/ &
+ & 0.32617E+01_JPRB,0.64927E+01_JPRB,0.73814E+01_JPRB,0.76204E+01_JPRB,0.56351E+01_JPRB /)  
+KB(:, 2,24,11) = (/ &
+ & 0.34455E+01_JPRB,0.69864E+01_JPRB,0.79146E+01_JPRB,0.80668E+01_JPRB,0.60482E+01_JPRB /)  
+KB(:, 3,24,11) = (/ &
+ & 0.36375E+01_JPRB,0.74982E+01_JPRB,0.85124E+01_JPRB,0.85688E+01_JPRB,0.64793E+01_JPRB /)  
+KB(:, 4,24,11) = (/ &
+ & 0.38361E+01_JPRB,0.80253E+01_JPRB,0.91530E+01_JPRB,0.91384E+01_JPRB,0.69488E+01_JPRB /)  
+KB(:, 5,24,11) = (/ &
+ & 0.40434E+01_JPRB,0.85770E+01_JPRB,0.98249E+01_JPRB,0.97701E+01_JPRB,0.74392E+01_JPRB /)  
+KB(:, 1,25,11) = (/ &
+ & 0.29504E+01_JPRB,0.60996E+01_JPRB,0.69378E+01_JPRB,0.70933E+01_JPRB,0.52696E+01_JPRB /)  
+KB(:, 2,25,11) = (/ &
+ & 0.31134E+01_JPRB,0.65859E+01_JPRB,0.75193E+01_JPRB,0.75874E+01_JPRB,0.56908E+01_JPRB /)  
+KB(:, 3,25,11) = (/ &
+ & 0.32850E+01_JPRB,0.70991E+01_JPRB,0.81583E+01_JPRB,0.81455E+01_JPRB,0.61504E+01_JPRB /)  
+KB(:, 4,25,11) = (/ &
+ & 0.34639E+01_JPRB,0.76357E+01_JPRB,0.88289E+01_JPRB,0.87766E+01_JPRB,0.66391E+01_JPRB /)  
+KB(:, 5,25,11) = (/ &
+ & 0.36575E+01_JPRB,0.82031E+01_JPRB,0.95335E+01_JPRB,0.94728E+01_JPRB,0.71181E+01_JPRB /)  
+KB(:, 1,26,11) = (/ &
+ & 0.26785E+01_JPRB,0.57592E+01_JPRB,0.65944E+01_JPRB,0.66793E+01_JPRB,0.49659E+01_JPRB /)  
+KB(:, 2,26,11) = (/ &
+ & 0.28303E+01_JPRB,0.62512E+01_JPRB,0.72180E+01_JPRB,0.72292E+01_JPRB,0.54158E+01_JPRB /)  
+KB(:, 3,26,11) = (/ &
+ & 0.29845E+01_JPRB,0.67700E+01_JPRB,0.78853E+01_JPRB,0.78517E+01_JPRB,0.58929E+01_JPRB /)  
+KB(:, 4,26,11) = (/ &
+ & 0.31498E+01_JPRB,0.73218E+01_JPRB,0.85892E+01_JPRB,0.85405E+01_JPRB,0.63779E+01_JPRB /)  
+KB(:, 5,26,11) = (/ &
+ & 0.33365E+01_JPRB,0.79095E+01_JPRB,0.93260E+01_JPRB,0.92876E+01_JPRB,0.68593E+01_JPRB /)  
+KB(:, 1,27,11) = (/ &
+ & 0.24381E+01_JPRB,0.54719E+01_JPRB,0.63296E+01_JPRB,0.63699E+01_JPRB,0.47378E+01_JPRB /)  
+KB(:, 2,27,11) = (/ &
+ & 0.25833E+01_JPRB,0.59706E+01_JPRB,0.69839E+01_JPRB,0.69809E+01_JPRB,0.52024E+01_JPRB /)  
+KB(:, 3,27,11) = (/ &
+ & 0.27276E+01_JPRB,0.65032E+01_JPRB,0.76823E+01_JPRB,0.76623E+01_JPRB,0.56849E+01_JPRB /)  
+KB(:, 4,27,11) = (/ &
+ & 0.28843E+01_JPRB,0.70768E+01_JPRB,0.84223E+01_JPRB,0.83973E+01_JPRB,0.61613E+01_JPRB /)  
+KB(:, 5,27,11) = (/ &
+ & 0.30776E+01_JPRB,0.76837E+01_JPRB,0.91929E+01_JPRB,0.91871E+01_JPRB,0.66697E+01_JPRB /)  
+KB(:, 1,28,11) = (/ &
+ & 0.22238E+01_JPRB,0.52366E+01_JPRB,0.61335E+01_JPRB,0.61574E+01_JPRB,0.45705E+01_JPRB /)  
+KB(:, 2,28,11) = (/ &
+ & 0.23648E+01_JPRB,0.57451E+01_JPRB,0.68151E+01_JPRB,0.68266E+01_JPRB,0.50347E+01_JPRB /)  
+KB(:, 3,28,11) = (/ &
+ & 0.25067E+01_JPRB,0.62980E+01_JPRB,0.75460E+01_JPRB,0.75548E+01_JPRB,0.55064E+01_JPRB /)  
+KB(:, 4,28,11) = (/ &
+ & 0.26680E+01_JPRB,0.68930E+01_JPRB,0.83223E+01_JPRB,0.83308E+01_JPRB,0.60103E+01_JPRB /)  
+KB(:, 5,28,11) = (/ &
+ & 0.28763E+01_JPRB,0.75234E+01_JPRB,0.91269E+01_JPRB,0.91547E+01_JPRB,0.65443E+01_JPRB /)  
+KB(:, 1,29,11) = (/ &
+ & 0.20343E+01_JPRB,0.50540E+01_JPRB,0.60021E+01_JPRB,0.60360E+01_JPRB,0.44306E+01_JPRB /)  
+KB(:, 2,29,11) = (/ &
+ & 0.21732E+01_JPRB,0.55785E+01_JPRB,0.67134E+01_JPRB,0.67544E+01_JPRB,0.48924E+01_JPRB /)  
+KB(:, 3,29,11) = (/ &
+ & 0.23217E+01_JPRB,0.61554E+01_JPRB,0.74828E+01_JPRB,0.75217E+01_JPRB,0.53899E+01_JPRB /)  
+KB(:, 4,29,11) = (/ &
+ & 0.24991E+01_JPRB,0.67727E+01_JPRB,0.82943E+01_JPRB,0.83341E+01_JPRB,0.59211E+01_JPRB /)  
+KB(:, 5,29,11) = (/ &
+ & 0.27298E+01_JPRB,0.74309E+01_JPRB,0.91294E+01_JPRB,0.91877E+01_JPRB,0.64776E+01_JPRB /)  
+KB(:, 1,30,11) = (/ &
+ & 0.18678E+01_JPRB,0.49203E+01_JPRB,0.59291E+01_JPRB,0.59875E+01_JPRB,0.43204E+01_JPRB /)  
+KB(:, 2,30,11) = (/ &
+ & 0.20102E+01_JPRB,0.54667E+01_JPRB,0.66747E+01_JPRB,0.67430E+01_JPRB,0.48026E+01_JPRB /)  
+KB(:, 3,30,11) = (/ &
+ & 0.21719E+01_JPRB,0.60682E+01_JPRB,0.74827E+01_JPRB,0.75477E+01_JPRB,0.53281E+01_JPRB /)  
+KB(:, 4,30,11) = (/ &
+ & 0.23720E+01_JPRB,0.67126E+01_JPRB,0.83252E+01_JPRB,0.83910E+01_JPRB,0.58826E+01_JPRB /)  
+KB(:, 5,30,11) = (/ &
+ & 0.26264E+01_JPRB,0.73977E+01_JPRB,0.91870E+01_JPRB,0.92723E+01_JPRB,0.64598E+01_JPRB /)  
+KB(:, 1,31,11) = (/ &
+ & 0.17244E+01_JPRB,0.48370E+01_JPRB,0.59156E+01_JPRB,0.60001E+01_JPRB,0.42555E+01_JPRB /)  
+KB(:, 2,31,11) = (/ &
+ & 0.18755E+01_JPRB,0.54107E+01_JPRB,0.66999E+01_JPRB,0.67904E+01_JPRB,0.47644E+01_JPRB /)  
+KB(:, 3,31,11) = (/ &
+ & 0.20573E+01_JPRB,0.60363E+01_JPRB,0.75402E+01_JPRB,0.76274E+01_JPRB,0.53155E+01_JPRB /)  
+KB(:, 4,31,11) = (/ &
+ & 0.22829E+01_JPRB,0.67094E+01_JPRB,0.84079E+01_JPRB,0.84962E+01_JPRB,0.58901E+01_JPRB /)  
+KB(:, 5,31,11) = (/ &
+ & 0.25590E+01_JPRB,0.74195E+01_JPRB,0.92909E+01_JPRB,0.93994E+01_JPRB,0.64871E+01_JPRB /)  
+KB(:, 1,32,11) = (/ &
+ & 0.16069E+01_JPRB,0.48030E+01_JPRB,0.59579E+01_JPRB,0.60639E+01_JPRB,0.42356E+01_JPRB /)  
+KB(:, 2,32,11) = (/ &
+ & 0.17705E+01_JPRB,0.54037E+01_JPRB,0.67788E+01_JPRB,0.68874E+01_JPRB,0.47712E+01_JPRB /)  
+KB(:, 3,32,11) = (/ &
+ & 0.19742E+01_JPRB,0.60574E+01_JPRB,0.76448E+01_JPRB,0.77491E+01_JPRB,0.53434E+01_JPRB /)  
+KB(:, 4,32,11) = (/ &
+ & 0.22247E+01_JPRB,0.67560E+01_JPRB,0.85310E+01_JPRB,0.86385E+01_JPRB,0.59381E+01_JPRB /)  
+KB(:, 5,32,11) = (/ &
+ & 0.25238E+01_JPRB,0.74880E+01_JPRB,0.94292E+01_JPRB,0.95570E+01_JPRB,0.65497E+01_JPRB /)  
+KB(:, 1,33,11) = (/ &
+ & 0.15128E+01_JPRB,0.48140E+01_JPRB,0.60501E+01_JPRB,0.61714E+01_JPRB,0.42550E+01_JPRB /)  
+KB(:, 2,33,11) = (/ &
+ & 0.16946E+01_JPRB,0.54417E+01_JPRB,0.69000E+01_JPRB,0.70212E+01_JPRB,0.48155E+01_JPRB /)  
+KB(:, 3,33,11) = (/ &
+ & 0.19206E+01_JPRB,0.61213E+01_JPRB,0.77839E+01_JPRB,0.79020E+01_JPRB,0.54069E+01_JPRB /)  
+KB(:, 4,33,11) = (/ &
+ & 0.21946E+01_JPRB,0.68422E+01_JPRB,0.86827E+01_JPRB,0.88075E+01_JPRB,0.60169E+01_JPRB /)  
+KB(:, 5,33,11) = (/ &
+ & 0.25173E+01_JPRB,0.75913E+01_JPRB,0.95924E+01_JPRB,0.97373E+01_JPRB,0.66398E+01_JPRB /)  
+KB(:, 1,34,11) = (/ &
+ & 0.14356E+01_JPRB,0.48418E+01_JPRB,0.61495E+01_JPRB,0.62828E+01_JPRB,0.42896E+01_JPRB /)  
+KB(:, 2,34,11) = (/ &
+ & 0.16357E+01_JPRB,0.54935E+01_JPRB,0.70184E+01_JPRB,0.71516E+01_JPRB,0.48691E+01_JPRB /)  
+KB(:, 3,34,11) = (/ &
+ & 0.18838E+01_JPRB,0.61957E+01_JPRB,0.79151E+01_JPRB,0.80457E+01_JPRB,0.54742E+01_JPRB /)  
+KB(:, 4,34,11) = (/ &
+ & 0.21788E+01_JPRB,0.69325E+01_JPRB,0.88256E+01_JPRB,0.89643E+01_JPRB,0.60956E+01_JPRB /)  
+KB(:, 5,34,11) = (/ &
+ & 0.25238E+01_JPRB,0.76930E+01_JPRB,0.97439E+01_JPRB,0.99021E+01_JPRB,0.67264E+01_JPRB /)  
+KB(:, 1,35,11) = (/ &
+ & 0.13620E+01_JPRB,0.48400E+01_JPRB,0.61911E+01_JPRB,0.63341E+01_JPRB,0.42950E+01_JPRB /)  
+KB(:, 2,35,11) = (/ &
+ & 0.15765E+01_JPRB,0.55077E+01_JPRB,0.70717E+01_JPRB,0.72149E+01_JPRB,0.48872E+01_JPRB /)  
+KB(:, 3,35,11) = (/ &
+ & 0.18416E+01_JPRB,0.62238E+01_JPRB,0.79778E+01_JPRB,0.81173E+01_JPRB,0.55014E+01_JPRB /)  
+KB(:, 4,35,11) = (/ &
+ & 0.21528E+01_JPRB,0.69694E+01_JPRB,0.88951E+01_JPRB,0.90430E+01_JPRB,0.61304E+01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART28',1,ZHOOK_HANDLE)
+END SUBROUTINE PART28
+
+
+SUBROUTINE PART29
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART29',0,ZHOOK_HANDLE)
+
+
+KB(:, 5,35,11) = (/ &
+ & 0.25135E+01_JPRB,0.77370E+01_JPRB,0.98191E+01_JPRB,0.99865E+01_JPRB,0.67662E+01_JPRB /)  
+KB(:, 1,36,11) = (/ &
+ & 0.12836E+01_JPRB,0.47892E+01_JPRB,0.61549E+01_JPRB,0.63050E+01_JPRB,0.42540E+01_JPRB /)  
+KB(:, 2,36,11) = (/ &
+ & 0.15070E+01_JPRB,0.54649E+01_JPRB,0.70416E+01_JPRB,0.71923E+01_JPRB,0.48536E+01_JPRB /)  
+KB(:, 3,36,11) = (/ &
+ & 0.17830E+01_JPRB,0.61872E+01_JPRB,0.79531E+01_JPRB,0.80994E+01_JPRB,0.54734E+01_JPRB /)  
+KB(:, 4,36,11) = (/ &
+ & 0.21055E+01_JPRB,0.69369E+01_JPRB,0.88745E+01_JPRB,0.90288E+01_JPRB,0.61066E+01_JPRB /)  
+KB(:, 5,36,11) = (/ &
+ & 0.24754E+01_JPRB,0.77090E+01_JPRB,0.98023E+01_JPRB,0.99759E+01_JPRB,0.67459E+01_JPRB /)  
+KB(:, 1,37,11) = (/ &
+ & 0.11878E+01_JPRB,0.46541E+01_JPRB,0.59975E+01_JPRB,0.61531E+01_JPRB,0.41357E+01_JPRB /)  
+KB(:, 2,37,11) = (/ &
+ & 0.14114E+01_JPRB,0.53279E+01_JPRB,0.68836E+01_JPRB,0.70407E+01_JPRB,0.47366E+01_JPRB /)  
+KB(:, 3,37,11) = (/ &
+ & 0.16907E+01_JPRB,0.60488E+01_JPRB,0.77961E+01_JPRB,0.79492E+01_JPRB,0.53587E+01_JPRB /)  
+KB(:, 4,37,11) = (/ &
+ & 0.20171E+01_JPRB,0.67987E+01_JPRB,0.87214E+01_JPRB,0.88782E+01_JPRB,0.59931E+01_JPRB /)  
+KB(:, 5,37,11) = (/ &
+ & 0.23879E+01_JPRB,0.75721E+01_JPRB,0.96505E+01_JPRB,0.98263E+01_JPRB,0.66346E+01_JPRB /)  
+KB(:, 1,38,11) = (/ &
+ & 0.11019E+01_JPRB,0.45241E+01_JPRB,0.58411E+01_JPRB,0.60015E+01_JPRB,0.40206E+01_JPRB /)  
+KB(:, 2,38,11) = (/ &
+ & 0.13240E+01_JPRB,0.51938E+01_JPRB,0.67248E+01_JPRB,0.68881E+01_JPRB,0.46215E+01_JPRB /)  
+KB(:, 3,38,11) = (/ &
+ & 0.16050E+01_JPRB,0.59127E+01_JPRB,0.76377E+01_JPRB,0.77969E+01_JPRB,0.52444E+01_JPRB /)  
+KB(:, 4,38,11) = (/ &
+ & 0.19344E+01_JPRB,0.66614E+01_JPRB,0.85656E+01_JPRB,0.87241E+01_JPRB,0.58797E+01_JPRB /)  
+KB(:, 5,38,11) = (/ &
+ & 0.23053E+01_JPRB,0.74352E+01_JPRB,0.94961E+01_JPRB,0.96730E+01_JPRB,0.65232E+01_JPRB /)  
+KB(:, 1,39,11) = (/ &
+ & 0.10261E+01_JPRB,0.44035E+01_JPRB,0.56925E+01_JPRB,0.58571E+01_JPRB,0.39130E+01_JPRB /)  
+KB(:, 2,39,11) = (/ &
+ & 0.12458E+01_JPRB,0.50694E+01_JPRB,0.65735E+01_JPRB,0.67411E+01_JPRB,0.45130E+01_JPRB /)  
+KB(:, 3,39,11) = (/ &
+ & 0.15281E+01_JPRB,0.57844E+01_JPRB,0.74853E+01_JPRB,0.76497E+01_JPRB,0.51353E+01_JPRB /)  
+KB(:, 4,39,11) = (/ &
+ & 0.18590E+01_JPRB,0.65310E+01_JPRB,0.84139E+01_JPRB,0.85752E+01_JPRB,0.57711E+01_JPRB /)  
+KB(:, 5,39,11) = (/ &
+ & 0.22296E+01_JPRB,0.73031E+01_JPRB,0.93461E+01_JPRB,0.95233E+01_JPRB,0.64155E+01_JPRB /)  
+KB(:, 1,40,11) = (/ &
+ & 0.94020E+00_JPRB,0.42252E+01_JPRB,0.54618E+01_JPRB,0.56305E+01_JPRB,0.37514E+01_JPRB /)  
+KB(:, 2,40,11) = (/ &
+ & 0.11510E+01_JPRB,0.48808E+01_JPRB,0.63359E+01_JPRB,0.65051E+01_JPRB,0.43464E+01_JPRB /)  
+KB(:, 3,40,11) = (/ &
+ & 0.14267E+01_JPRB,0.55865E+01_JPRB,0.72429E+01_JPRB,0.74116E+01_JPRB,0.49659E+01_JPRB /)  
+KB(:, 4,40,11) = (/ &
+ & 0.17534E+01_JPRB,0.63284E+01_JPRB,0.81706E+01_JPRB,0.83346E+01_JPRB,0.56004E+01_JPRB /)  
+KB(:, 5,40,11) = (/ &
+ & 0.21196E+01_JPRB,0.70954E+01_JPRB,0.91038E+01_JPRB,0.92790E+01_JPRB,0.62443E+01_JPRB /)  
+KB(:, 1,41,11) = (/ &
+ & 0.86129E+00_JPRB,0.40457E+01_JPRB,0.52264E+01_JPRB,0.53976E+01_JPRB,0.35879E+01_JPRB /)  
+KB(:, 2,41,11) = (/ &
+ & 0.10633E+01_JPRB,0.46915E+01_JPRB,0.60924E+01_JPRB,0.62635E+01_JPRB,0.41768E+01_JPRB /)  
+KB(:, 3,41,11) = (/ &
+ & 0.13283E+01_JPRB,0.53845E+01_JPRB,0.69926E+01_JPRB,0.71649E+01_JPRB,0.47921E+01_JPRB /)  
+KB(:, 4,41,11) = (/ &
+ & 0.16485E+01_JPRB,0.61201E+01_JPRB,0.79175E+01_JPRB,0.80844E+01_JPRB,0.54240E+01_JPRB /)  
+KB(:, 5,41,11) = (/ &
+ & 0.20093E+01_JPRB,0.68812E+01_JPRB,0.88522E+01_JPRB,0.90249E+01_JPRB,0.60668E+01_JPRB /)  
+KB(:, 1,42,11) = (/ &
+ & 0.79123E+00_JPRB,0.38735E+01_JPRB,0.49960E+01_JPRB,0.51699E+01_JPRB,0.34287E+01_JPRB /)  
+KB(:, 2,42,11) = (/ &
+ & 0.98295E+00_JPRB,0.45072E+01_JPRB,0.58533E+01_JPRB,0.60254E+01_JPRB,0.40109E+01_JPRB /)  
+KB(:, 3,42,11) = (/ &
+ & 0.12364E+01_JPRB,0.51876E+01_JPRB,0.67459E+01_JPRB,0.69214E+01_JPRB,0.46212E+01_JPRB /)  
+KB(:, 4,42,11) = (/ &
+ & 0.15484E+01_JPRB,0.59150E+01_JPRB,0.76665E+01_JPRB,0.78373E+01_JPRB,0.52503E+01_JPRB /)  
+KB(:, 5,42,11) = (/ &
+ & 0.19026E+01_JPRB,0.66716E+01_JPRB,0.86018E+01_JPRB,0.87728E+01_JPRB,0.58915E+01_JPRB /)  
+KB(:, 1,43,11) = (/ &
+ & 0.71984E+00_JPRB,0.36729E+01_JPRB,0.47235E+01_JPRB,0.48975E+01_JPRB,0.32397E+01_JPRB /)  
+KB(:, 2,43,11) = (/ &
+ & 0.89808E+00_JPRB,0.42916E+01_JPRB,0.55697E+01_JPRB,0.57443E+01_JPRB,0.38153E+01_JPRB /)  
+KB(:, 3,43,11) = (/ &
+ & 0.11360E+01_JPRB,0.49574E+01_JPRB,0.64519E+01_JPRB,0.66289E+01_JPRB,0.44184E+01_JPRB /)  
+KB(:, 4,43,11) = (/ &
+ & 0.14345E+01_JPRB,0.56728E+01_JPRB,0.73660E+01_JPRB,0.75410E+01_JPRB,0.50437E+01_JPRB /)  
+KB(:, 5,43,11) = (/ &
+ & 0.17793E+01_JPRB,0.64228E+01_JPRB,0.82999E+01_JPRB,0.84705E+01_JPRB,0.56823E+01_JPRB /)  
+KB(:, 1,44,11) = (/ &
+ & 0.65285E+00_JPRB,0.34667E+01_JPRB,0.44372E+01_JPRB,0.46082E+01_JPRB,0.30399E+01_JPRB /)  
+KB(:, 2,44,11) = (/ &
+ & 0.81657E+00_JPRB,0.40674E+01_JPRB,0.52701E+01_JPRB,0.54466E+01_JPRB,0.36094E+01_JPRB /)  
+KB(:, 3,44,11) = (/ &
+ & 0.10370E+01_JPRB,0.47171E+01_JPRB,0.61405E+01_JPRB,0.63175E+01_JPRB,0.42038E+01_JPRB /)  
+KB(:, 4,44,11) = (/ &
+ & 0.13194E+01_JPRB,0.54184E+01_JPRB,0.70473E+01_JPRB,0.72248E+01_JPRB,0.48237E+01_JPRB /)  
+KB(:, 5,44,11) = (/ &
+ & 0.16514E+01_JPRB,0.61584E+01_JPRB,0.79760E+01_JPRB,0.81477E+01_JPRB,0.54581E+01_JPRB /)  
+KB(:, 1,45,11) = (/ &
+ & 0.59324E+00_JPRB,0.32687E+01_JPRB,0.41610E+01_JPRB,0.43270E+01_JPRB,0.28437E+01_JPRB /)  
+KB(:, 2,45,11) = (/ &
+ & 0.74292E+00_JPRB,0.38502E+01_JPRB,0.49754E+01_JPRB,0.51525E+01_JPRB,0.34081E+01_JPRB /)  
+KB(:, 3,45,11) = (/ &
+ & 0.94606E+00_JPRB,0.44838E+01_JPRB,0.58347E+01_JPRB,0.60112E+01_JPRB,0.39932E+01_JPRB /)  
+KB(:, 4,45,11) = (/ &
+ & 0.12103E+01_JPRB,0.51691E+01_JPRB,0.67312E+01_JPRB,0.69113E+01_JPRB,0.46063E+01_JPRB /)  
+KB(:, 5,45,11) = (/ &
+ & 0.15283E+01_JPRB,0.58970E+01_JPRB,0.76529E+01_JPRB,0.78283E+01_JPRB,0.52365E+01_JPRB /)  
+KB(:, 1,46,11) = (/ &
+ & 0.53665E+00_JPRB,0.30665E+01_JPRB,0.38788E+01_JPRB,0.40344E+01_JPRB,0.26396E+01_JPRB /)  
+KB(:, 2,46,11) = (/ &
+ & 0.67326E+00_JPRB,0.36275E+01_JPRB,0.46685E+01_JPRB,0.48445E+01_JPRB,0.31970E+01_JPRB /)  
+KB(:, 3,46,11) = (/ &
+ & 0.85964E+00_JPRB,0.42450E+01_JPRB,0.55161E+01_JPRB,0.56940E+01_JPRB,0.37742E+01_JPRB /)  
+KB(:, 4,46,11) = (/ &
+ & 0.11026E+01_JPRB,0.49112E+01_JPRB,0.63992E+01_JPRB,0.65795E+01_JPRB,0.43785E+01_JPRB /)  
+KB(:, 5,46,11) = (/ &
+ & 0.14030E+01_JPRB,0.56247E+01_JPRB,0.73128E+01_JPRB,0.74918E+01_JPRB,0.50037E+01_JPRB /)  
+KB(:, 1,47,11) = (/ &
+ & 0.47965E+00_JPRB,0.28512E+01_JPRB,0.35773E+01_JPRB,0.37190E+01_JPRB,0.24179E+01_JPRB /)  
+KB(:, 2,47,11) = (/ &
+ & 0.60499E+00_JPRB,0.33895E+01_JPRB,0.43353E+01_JPRB,0.45070E+01_JPRB,0.29653E+01_JPRB /)  
+KB(:, 3,47,11) = (/ &
+ & 0.77211E+00_JPRB,0.39857E+01_JPRB,0.51656E+01_JPRB,0.53439E+01_JPRB,0.35346E+01_JPRB /)  
+KB(:, 4,47,11) = (/ &
+ & 0.99280E+00_JPRB,0.46320E+01_JPRB,0.60346E+01_JPRB,0.62138E+01_JPRB,0.41278E+01_JPRB /)  
+KB(:, 5,47,11) = (/ &
+ & 0.12711E+01_JPRB,0.53272E+01_JPRB,0.69377E+01_JPRB,0.71189E+01_JPRB,0.47464E+01_JPRB /)  
+KB(:, 1,48,11) = (/ &
+ & 0.42651E+00_JPRB,0.26445E+01_JPRB,0.32894E+01_JPRB,0.34148E+01_JPRB,0.22033E+01_JPRB /)  
+KB(:, 2,48,11) = (/ &
+ & 0.54388E+00_JPRB,0.31611E+01_JPRB,0.40161E+01_JPRB,0.41791E+01_JPRB,0.27373E+01_JPRB /)  
+KB(:, 3,48,11) = (/ &
+ & 0.69368E+00_JPRB,0.37347E+01_JPRB,0.48206E+01_JPRB,0.49989E+01_JPRB,0.32997E+01_JPRB /)  
+KB(:, 4,48,11) = (/ &
+ & 0.89279E+00_JPRB,0.43620E+01_JPRB,0.56767E+01_JPRB,0.58554E+01_JPRB,0.38822E+01_JPRB /)  
+KB(:, 5,48,11) = (/ &
+ & 0.11484E+01_JPRB,0.50369E+01_JPRB,0.65668E+01_JPRB,0.67495E+01_JPRB,0.44918E+01_JPRB /)  
+KB(:, 1,49,11) = (/ &
+ & 0.37713E+00_JPRB,0.24439E+01_JPRB,0.30160E+01_JPRB,0.31206E+01_JPRB,0.19976E+01_JPRB /)  
+KB(:, 2,49,11) = (/ &
+ & 0.48766E+00_JPRB,0.29434E+01_JPRB,0.37104E+01_JPRB,0.38599E+01_JPRB,0.25143E+01_JPRB /)  
+KB(:, 3,49,11) = (/ &
+ & 0.62407E+00_JPRB,0.34939E+01_JPRB,0.44847E+01_JPRB,0.46596E+01_JPRB,0.30680E+01_JPRB /)  
+KB(:, 4,49,11) = (/ &
+ & 0.80298E+00_JPRB,0.41006E+01_JPRB,0.53255E+01_JPRB,0.55049E+01_JPRB,0.36413E+01_JPRB /)  
+KB(:, 5,49,11) = (/ &
+ & 0.10353E+01_JPRB,0.47554E+01_JPRB,0.62010E+01_JPRB,0.63820E+01_JPRB,0.42407E+01_JPRB /)  
+KB(:, 1,50,11) = (/ &
+ & 0.33334E+00_JPRB,0.22573E+01_JPRB,0.27730E+01_JPRB,0.28537E+01_JPRB,0.18141E+01_JPRB /)  
+KB(:, 2,50,11) = (/ &
+ & 0.43824E+00_JPRB,0.27477E+01_JPRB,0.34359E+01_JPRB,0.35712E+01_JPRB,0.23112E+01_JPRB /)  
+KB(:, 3,50,11) = (/ &
+ & 0.56555E+00_JPRB,0.32767E+01_JPRB,0.41807E+01_JPRB,0.43497E+01_JPRB,0.28540E+01_JPRB /)  
+KB(:, 4,50,11) = (/ &
+ & 0.72662E+00_JPRB,0.38631E+01_JPRB,0.50003E+01_JPRB,0.51798E+01_JPRB,0.34206E+01_JPRB /)  
+KB(:, 5,50,11) = (/ &
+ & 0.93811E+00_JPRB,0.44998E+01_JPRB,0.58635E+01_JPRB,0.60433E+01_JPRB,0.40092E+01_JPRB /)  
+KB(:, 1,51,11) = (/ &
+ & 0.29344E+00_JPRB,0.20792E+01_JPRB,0.25493E+01_JPRB,0.26045E+01_JPRB,0.16447E+01_JPRB /)  
+KB(:, 2,51,11) = (/ &
+ & 0.39320E+00_JPRB,0.25633E+01_JPRB,0.31811E+01_JPRB,0.32996E+01_JPRB,0.21202E+01_JPRB /)  
+KB(:, 3,51,11) = (/ &
+ & 0.51335E+00_JPRB,0.30739E+01_JPRB,0.38968E+01_JPRB,0.40554E+01_JPRB,0.26493E+01_JPRB /)  
+KB(:, 4,51,11) = (/ &
+ & 0.65991E+00_JPRB,0.36396E+01_JPRB,0.46910E+01_JPRB,0.48692E+01_JPRB,0.32095E+01_JPRB /)  
+KB(:, 5,51,11) = (/ &
+ & 0.85305E+00_JPRB,0.42602E+01_JPRB,0.55428E+01_JPRB,0.57227E+01_JPRB,0.37890E+01_JPRB /)  
+KB(:, 1,52,11) = (/ &
+ & 0.25634E+00_JPRB,0.19065E+01_JPRB,0.23373E+01_JPRB,0.23675E+01_JPRB,0.14849E+01_JPRB /)  
+KB(:, 2,52,11) = (/ &
+ & 0.35085E+00_JPRB,0.23832E+01_JPRB,0.29380E+01_JPRB,0.30363E+01_JPRB,0.19379E+01_JPRB /)  
+KB(:, 3,52,11) = (/ &
+ & 0.46463E+00_JPRB,0.28806E+01_JPRB,0.36245E+01_JPRB,0.37705E+01_JPRB,0.24499E+01_JPRB /)  
+KB(:, 4,52,11) = (/ &
+ & 0.60014E+00_JPRB,0.34247E+01_JPRB,0.43901E+01_JPRB,0.45644E+01_JPRB,0.30013E+01_JPRB /)  
+KB(:, 5,52,11) = (/ &
+ & 0.77502E+00_JPRB,0.40268E+01_JPRB,0.52264E+01_JPRB,0.54064E+01_JPRB,0.35729E+01_JPRB /)  
+KB(:, 1,53,11) = (/ &
+ & 0.22198E+00_JPRB,0.17382E+01_JPRB,0.21355E+01_JPRB,0.21443E+01_JPRB,0.13321E+01_JPRB /)  
+KB(:, 2,53,11) = (/ &
+ & 0.31088E+00_JPRB,0.22037E+01_JPRB,0.27070E+01_JPRB,0.27809E+01_JPRB,0.17631E+01_JPRB /)  
+KB(:, 3,53,11) = (/ &
+ & 0.41868E+00_JPRB,0.26937E+01_JPRB,0.33628E+01_JPRB,0.34937E+01_JPRB,0.22551E+01_JPRB /)  
+KB(:, 4,53,11) = (/ &
+ & 0.54590E+00_JPRB,0.32172E+01_JPRB,0.40994E+01_JPRB,0.42669E+01_JPRB,0.27950E+01_JPRB /)  
+KB(:, 5,53,11) = (/ &
+ & 0.70382E+00_JPRB,0.37993E+01_JPRB,0.49134E+01_JPRB,0.50934E+01_JPRB,0.33609E+01_JPRB /)  
+KB(:, 1,54,11) = (/ &
+ & 0.19279E+00_JPRB,0.15884E+01_JPRB,0.19576E+01_JPRB,0.19516E+01_JPRB,0.11991E+01_JPRB /)  
+KB(:, 2,54,11) = (/ &
+ & 0.27614E+00_JPRB,0.20423E+01_JPRB,0.25053E+01_JPRB,0.25559E+01_JPRB,0.16106E+01_JPRB /)  
+KB(:, 3,54,11) = (/ &
+ & 0.37900E+00_JPRB,0.25264E+01_JPRB,0.31323E+01_JPRB,0.32473E+01_JPRB,0.20825E+01_JPRB /)  
+KB(:, 4,54,11) = (/ &
+ & 0.49954E+00_JPRB,0.30344E+01_JPRB,0.38425E+01_JPRB,0.39994E+01_JPRB,0.26090E+01_JPRB /)  
+KB(:, 5,54,11) = (/ &
+ & 0.64483E+00_JPRB,0.35967E+01_JPRB,0.46320E+01_JPRB,0.48104E+01_JPRB,0.31683E+01_JPRB /)  
+KB(:, 1,55,11) = (/ &
+ & 0.16752E+00_JPRB,0.14506E+01_JPRB,0.17924E+01_JPRB,0.17780E+01_JPRB,0.10766E+01_JPRB /)  
+KB(:, 2,55,11) = (/ &
+ & 0.24546E+00_JPRB,0.18924E+01_JPRB,0.23215E+01_JPRB,0.23502E+01_JPRB,0.14718E+01_JPRB /)  
+KB(:, 3,55,11) = (/ &
+ & 0.34282E+00_JPRB,0.23686E+01_JPRB,0.29203E+01_JPRB,0.30171E+01_JPRB,0.19238E+01_JPRB /)  
+KB(:, 4,55,11) = (/ &
+ & 0.45751E+00_JPRB,0.28657E+01_JPRB,0.36048E+01_JPRB,0.37504E+01_JPRB,0.24347E+01_JPRB /)  
+KB(:, 5,55,11) = (/ &
+ & 0.59345E+00_JPRB,0.34091E+01_JPRB,0.43692E+01_JPRB,0.45436E+01_JPRB,0.29860E+01_JPRB /)  
+KB(:, 1,56,11) = (/ &
+ & 0.14442E+00_JPRB,0.13191E+01_JPRB,0.16307E+01_JPRB,0.16158E+01_JPRB,0.95966E+00_JPRB /)  
+KB(:, 2,56,11) = (/ &
+ & 0.21629E+00_JPRB,0.17456E+01_JPRB,0.21454E+01_JPRB,0.21553E+01_JPRB,0.13384E+01_JPRB /)  
+KB(:, 3,56,11) = (/ &
+ & 0.30838E+00_JPRB,0.22117E+01_JPRB,0.27184E+01_JPRB,0.27939E+01_JPRB,0.17710E+01_JPRB /)  
+KB(:, 4,56,11) = (/ &
+ & 0.41780E+00_JPRB,0.27024E+01_JPRB,0.33761E+01_JPRB,0.35083E+01_JPRB,0.22647E+01_JPRB /)  
+KB(:, 5,56,11) = (/ &
+ & 0.54633E+00_JPRB,0.32277E+01_JPRB,0.41153E+01_JPRB,0.42835E+01_JPRB,0.28057E+01_JPRB /)  
+KB(:, 1,57,11) = (/ &
+ & 0.12369E+00_JPRB,0.11942E+01_JPRB,0.14751E+01_JPRB,0.14660E+01_JPRB,0.84794E+00_JPRB /)  
+KB(:, 2,57,11) = (/ &
+ & 0.18943E+00_JPRB,0.16025E+01_JPRB,0.19752E+01_JPRB,0.19706E+01_JPRB,0.12104E+01_JPRB /)  
+KB(:, 3,57,11) = (/ &
+ & 0.27580E+00_JPRB,0.20577E+01_JPRB,0.25253E+01_JPRB,0.25785E+01_JPRB,0.16249E+01_JPRB /)  
+KB(:, 4,57,11) = (/ &
+ & 0.38015E+00_JPRB,0.25425E+01_JPRB,0.31554E+01_JPRB,0.32724E+01_JPRB,0.20995E+01_JPRB /)  
+KB(:, 5,57,11) = (/ &
+ & 0.50220E+00_JPRB,0.30528E+01_JPRB,0.38694E+01_JPRB,0.40275E+01_JPRB,0.26279E+01_JPRB /)  
+KB(:, 1,58,11) = (/ &
+ & 0.10619E+00_JPRB,0.10815E+01_JPRB,0.13338E+01_JPRB,0.13340E+01_JPRB,0.74924E+00_JPRB /)  
+KB(:, 2,58,11) = (/ &
+ & 0.16586E+00_JPRB,0.14713E+01_JPRB,0.18183E+01_JPRB,0.18047E+01_JPRB,0.10933E+01_JPRB /)  
+KB(:, 3,58,11) = (/ &
+ & 0.24668E+00_JPRB,0.19150E+01_JPRB,0.23498E+01_JPRB,0.23824E+01_JPRB,0.14931E+01_JPRB /)  
+KB(:, 4,58,11) = (/ &
+ & 0.34613E+00_JPRB,0.23936E+01_JPRB,0.29542E+01_JPRB,0.30545E+01_JPRB,0.19489E+01_JPRB /)  
+KB(:, 5,58,11) = (/ &
+ & 0.46251E+00_JPRB,0.28928E+01_JPRB,0.36439E+01_JPRB,0.37914E+01_JPRB,0.24628E+01_JPRB /)  
+KB(:, 1,59,11) = (/ &
+ & 0.98781E-01_JPRB,0.10374E+01_JPRB,0.12790E+01_JPRB,0.12834E+01_JPRB,0.71091E+00_JPRB /)  
+KB(:, 2,59,11) = (/ &
+ & 0.15643E+00_JPRB,0.14199E+01_JPRB,0.17560E+01_JPRB,0.17406E+01_JPRB,0.10475E+01_JPRB /)  
+KB(:, 3,59,11) = (/ &
+ & 0.23512E+00_JPRB,0.18585E+01_JPRB,0.22815E+01_JPRB,0.23061E+01_JPRB,0.14408E+01_JPRB /)  
+KB(:, 4,59,11) = (/ &
+ & 0.33250E+00_JPRB,0.23338E+01_JPRB,0.28755E+01_JPRB,0.29686E+01_JPRB,0.18898E+01_JPRB /)  
+KB(:, 5,59,11) = (/ &
+ & 0.44697E+00_JPRB,0.28298E+01_JPRB,0.35555E+01_JPRB,0.36984E+01_JPRB,0.23975E+01_JPRB /)  
+KB(:, 1,13,12) = (/ &
+ & 0.30998E+02_JPRB,0.37385E+02_JPRB,0.40609E+02_JPRB,0.38100E+02_JPRB,0.30845E+02_JPRB /)  
+KB(:, 2,13,12) = (/ &
+ & 0.30490E+02_JPRB,0.37042E+02_JPRB,0.40582E+02_JPRB,0.38272E+02_JPRB,0.31245E+02_JPRB /)  
+KB(:, 3,13,12) = (/ &
+ & 0.29985E+02_JPRB,0.36701E+02_JPRB,0.40520E+02_JPRB,0.38445E+02_JPRB,0.31621E+02_JPRB /)  
+KB(:, 4,13,12) = (/ &
+ & 0.29490E+02_JPRB,0.36329E+02_JPRB,0.40415E+02_JPRB,0.38594E+02_JPRB,0.32000E+02_JPRB /)  
+KB(:, 5,13,12) = (/ &
+ & 0.29015E+02_JPRB,0.35959E+02_JPRB,0.40312E+02_JPRB,0.38750E+02_JPRB,0.32433E+02_JPRB /)  
+KB(:, 1,14,12) = (/ &
+ & 0.27110E+02_JPRB,0.35184E+02_JPRB,0.38617E+02_JPRB,0.36399E+02_JPRB,0.28635E+02_JPRB /)  
+KB(:, 2,14,12) = (/ &
+ & 0.26641E+02_JPRB,0.34930E+02_JPRB,0.38606E+02_JPRB,0.36649E+02_JPRB,0.29079E+02_JPRB /)  
+KB(:, 3,14,12) = (/ &
+ & 0.26184E+02_JPRB,0.34642E+02_JPRB,0.38568E+02_JPRB,0.36926E+02_JPRB,0.29498E+02_JPRB /)  
+KB(:, 4,14,12) = (/ &
+ & 0.25751E+02_JPRB,0.34348E+02_JPRB,0.38555E+02_JPRB,0.37188E+02_JPRB,0.29949E+02_JPRB /)  
+KB(:, 5,14,12) = (/ &
+ & 0.25340E+02_JPRB,0.34077E+02_JPRB,0.38568E+02_JPRB,0.37453E+02_JPRB,0.30433E+02_JPRB /)  
+KB(:, 1,15,12) = (/ &
+ & 0.23379E+02_JPRB,0.32658E+02_JPRB,0.36083E+02_JPRB,0.34396E+02_JPRB,0.26632E+02_JPRB /)  
+KB(:, 2,15,12) = (/ &
+ & 0.22961E+02_JPRB,0.32462E+02_JPRB,0.36143E+02_JPRB,0.34739E+02_JPRB,0.27099E+02_JPRB /)  
+KB(:, 3,15,12) = (/ &
+ & 0.22574E+02_JPRB,0.32277E+02_JPRB,0.36234E+02_JPRB,0.35089E+02_JPRB,0.27554E+02_JPRB /)  
+KB(:, 4,15,12) = (/ &
+ & 0.22226E+02_JPRB,0.32107E+02_JPRB,0.36368E+02_JPRB,0.35457E+02_JPRB,0.28061E+02_JPRB /)  
+KB(:, 5,15,12) = (/ &
+ & 0.22052E+02_JPRB,0.31945E+02_JPRB,0.36473E+02_JPRB,0.35860E+02_JPRB,0.28623E+02_JPRB /)  
+KB(:, 1,16,12) = (/ &
+ & 0.19977E+02_JPRB,0.29953E+02_JPRB,0.33281E+02_JPRB,0.32282E+02_JPRB,0.24730E+02_JPRB /)  
+KB(:, 2,16,12) = (/ &
+ & 0.19633E+02_JPRB,0.29859E+02_JPRB,0.33454E+02_JPRB,0.32701E+02_JPRB,0.25245E+02_JPRB /)  
+KB(:, 3,16,12) = (/ &
+ & 0.19340E+02_JPRB,0.29766E+02_JPRB,0.33693E+02_JPRB,0.33152E+02_JPRB,0.25800E+02_JPRB /)  
+KB(:, 4,16,12) = (/ &
+ & 0.19247E+02_JPRB,0.29689E+02_JPRB,0.33933E+02_JPRB,0.33616E+02_JPRB,0.26378E+02_JPRB /)  
+KB(:, 5,16,12) = (/ &
+ & 0.19403E+02_JPRB,0.29623E+02_JPRB,0.34160E+02_JPRB,0.34111E+02_JPRB,0.26924E+02_JPRB /)  
+KB(:, 1,17,12) = (/ &
+ & 0.17051E+02_JPRB,0.27143E+02_JPRB,0.30473E+02_JPRB,0.30161E+02_JPRB,0.22931E+02_JPRB /)  
+KB(:, 2,17,12) = (/ &
+ & 0.16797E+02_JPRB,0.27123E+02_JPRB,0.30776E+02_JPRB,0.30670E+02_JPRB,0.23518E+02_JPRB /)  
+KB(:, 3,17,12) = (/ &
+ & 0.16741E+02_JPRB,0.27141E+02_JPRB,0.31121E+02_JPRB,0.31186E+02_JPRB,0.24127E+02_JPRB /)  
+KB(:, 4,17,12) = (/ &
+ & 0.16948E+02_JPRB,0.27189E+02_JPRB,0.31472E+02_JPRB,0.31736E+02_JPRB,0.24729E+02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART29',1,ZHOOK_HANDLE)
+END SUBROUTINE PART29
+
+
+SUBROUTINE PART30
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART30',0,ZHOOK_HANDLE)
+
+
+KB(:, 5,17,12) = (/ &
+ & 0.17485E+02_JPRB,0.27288E+02_JPRB,0.31858E+02_JPRB,0.32324E+02_JPRB,0.25297E+02_JPRB /)  
+KB(:, 1,18,12) = (/ &
+ & 0.14597E+02_JPRB,0.24342E+02_JPRB,0.27826E+02_JPRB,0.28130E+02_JPRB,0.21245E+02_JPRB /)  
+KB(:, 2,18,12) = (/ &
+ & 0.14547E+02_JPRB,0.24446E+02_JPRB,0.28237E+02_JPRB,0.28704E+02_JPRB,0.21885E+02_JPRB /)  
+KB(:, 3,18,12) = (/ &
+ & 0.14765E+02_JPRB,0.24583E+02_JPRB,0.28672E+02_JPRB,0.29288E+02_JPRB,0.22535E+02_JPRB /)  
+KB(:, 4,18,12) = (/ &
+ & 0.15315E+02_JPRB,0.24794E+02_JPRB,0.29147E+02_JPRB,0.29934E+02_JPRB,0.23159E+02_JPRB /)  
+KB(:, 5,18,12) = (/ &
+ & 0.16067E+02_JPRB,0.25143E+02_JPRB,0.29634E+02_JPRB,0.30628E+02_JPRB,0.23749E+02_JPRB /)  
+KB(:, 1,19,12) = (/ &
+ & 0.12640E+02_JPRB,0.21753E+02_JPRB,0.25384E+02_JPRB,0.26151E+02_JPRB,0.19661E+02_JPRB /)  
+KB(:, 2,19,12) = (/ &
+ & 0.12835E+02_JPRB,0.21949E+02_JPRB,0.25878E+02_JPRB,0.26810E+02_JPRB,0.20358E+02_JPRB /)  
+KB(:, 3,19,12) = (/ &
+ & 0.13356E+02_JPRB,0.22229E+02_JPRB,0.26410E+02_JPRB,0.27515E+02_JPRB,0.21037E+02_JPRB /)  
+KB(:, 4,19,12) = (/ &
+ & 0.14056E+02_JPRB,0.22664E+02_JPRB,0.26964E+02_JPRB,0.28265E+02_JPRB,0.21685E+02_JPRB /)  
+KB(:, 5,19,12) = (/ &
+ & 0.14855E+02_JPRB,0.23244E+02_JPRB,0.27571E+02_JPRB,0.29046E+02_JPRB,0.22336E+02_JPRB /)  
+KB(:, 1,20,12) = (/ &
+ & 0.11082E+02_JPRB,0.19491E+02_JPRB,0.23194E+02_JPRB,0.24313E+02_JPRB,0.18232E+02_JPRB /)  
+KB(:, 2,20,12) = (/ &
+ & 0.11562E+02_JPRB,0.19787E+02_JPRB,0.23755E+02_JPRB,0.25073E+02_JPRB,0.18946E+02_JPRB /)  
+KB(:, 3,20,12) = (/ &
+ & 0.12224E+02_JPRB,0.20238E+02_JPRB,0.24350E+02_JPRB,0.25880E+02_JPRB,0.19650E+02_JPRB /)  
+KB(:, 4,20,12) = (/ &
+ & 0.12987E+02_JPRB,0.20868E+02_JPRB,0.25012E+02_JPRB,0.26726E+02_JPRB,0.20347E+02_JPRB /)  
+KB(:, 5,20,12) = (/ &
+ & 0.13788E+02_JPRB,0.21712E+02_JPRB,0.25741E+02_JPRB,0.27588E+02_JPRB,0.21074E+02_JPRB /)  
+KB(:, 1,21,12) = (/ &
+ & 0.98833E+01_JPRB,0.17574E+02_JPRB,0.21209E+02_JPRB,0.22623E+02_JPRB,0.16925E+02_JPRB /)  
+KB(:, 2,21,12) = (/ &
+ & 0.10489E+02_JPRB,0.18010E+02_JPRB,0.21858E+02_JPRB,0.23471E+02_JPRB,0.17666E+02_JPRB /)  
+KB(:, 3,21,12) = (/ &
+ & 0.11209E+02_JPRB,0.18622E+02_JPRB,0.22555E+02_JPRB,0.24382E+02_JPRB,0.18394E+02_JPRB /)  
+KB(:, 4,21,12) = (/ &
+ & 0.11974E+02_JPRB,0.19474E+02_JPRB,0.23320E+02_JPRB,0.25315E+02_JPRB,0.19156E+02_JPRB /)  
+KB(:, 5,21,12) = (/ &
+ & 0.12743E+02_JPRB,0.20530E+02_JPRB,0.24213E+02_JPRB,0.26280E+02_JPRB,0.19957E+02_JPRB /)  
+KB(:, 1,22,12) = (/ &
+ & 0.89432E+01_JPRB,0.16023E+02_JPRB,0.19521E+02_JPRB,0.21142E+02_JPRB,0.15785E+02_JPRB /)  
+KB(:, 2,22,12) = (/ &
+ & 0.96012E+01_JPRB,0.16615E+02_JPRB,0.20251E+02_JPRB,0.22105E+02_JPRB,0.16565E+02_JPRB /)  
+KB(:, 3,22,12) = (/ &
+ & 0.10308E+02_JPRB,0.17429E+02_JPRB,0.21053E+02_JPRB,0.23102E+02_JPRB,0.17352E+02_JPRB /)  
+KB(:, 4,22,12) = (/ &
+ & 0.11034E+02_JPRB,0.18474E+02_JPRB,0.21986E+02_JPRB,0.24140E+02_JPRB,0.18184E+02_JPRB /)  
+KB(:, 5,22,12) = (/ &
+ & 0.11779E+02_JPRB,0.19675E+02_JPRB,0.23025E+02_JPRB,0.25198E+02_JPRB,0.19053E+02_JPRB /)  
+KB(:, 1,23,12) = (/ &
+ & 0.81558E+01_JPRB,0.14793E+02_JPRB,0.18088E+02_JPRB,0.19855E+02_JPRB,0.14800E+02_JPRB /)  
+KB(:, 2,23,12) = (/ &
+ & 0.87957E+01_JPRB,0.15543E+02_JPRB,0.18895E+02_JPRB,0.20923E+02_JPRB,0.15621E+02_JPRB /)  
+KB(:, 3,23,12) = (/ &
+ & 0.94593E+01_JPRB,0.16540E+02_JPRB,0.19849E+02_JPRB,0.22025E+02_JPRB,0.16480E+02_JPRB /)  
+KB(:, 4,23,12) = (/ &
+ & 0.10153E+02_JPRB,0.17706E+02_JPRB,0.20923E+02_JPRB,0.23160E+02_JPRB,0.17388E+02_JPRB /)  
+KB(:, 5,23,12) = (/ &
+ & 0.10876E+02_JPRB,0.18993E+02_JPRB,0.22113E+02_JPRB,0.24310E+02_JPRB,0.18322E+02_JPRB /)  
+KB(:, 1,24,12) = (/ &
+ & 0.74526E+01_JPRB,0.13830E+02_JPRB,0.16894E+02_JPRB,0.18769E+02_JPRB,0.13959E+02_JPRB /)  
+KB(:, 2,24,12) = (/ &
+ & 0.80517E+01_JPRB,0.14766E+02_JPRB,0.17833E+02_JPRB,0.19936E+02_JPRB,0.14836E+02_JPRB /)  
+KB(:, 3,24,12) = (/ &
+ & 0.86841E+01_JPRB,0.15873E+02_JPRB,0.18916E+02_JPRB,0.21150E+02_JPRB,0.15773E+02_JPRB /)  
+KB(:, 4,24,12) = (/ &
+ & 0.93535E+01_JPRB,0.17122E+02_JPRB,0.20131E+02_JPRB,0.22383E+02_JPRB,0.16742E+02_JPRB /)  
+KB(:, 5,24,12) = (/ &
+ & 0.10068E+02_JPRB,0.18482E+02_JPRB,0.21482E+02_JPRB,0.23634E+02_JPRB,0.17753E+02_JPRB /)  
+KB(:, 1,25,12) = (/ &
+ & 0.68105E+01_JPRB,0.13122E+02_JPRB,0.15953E+02_JPRB,0.17890E+02_JPRB,0.13264E+02_JPRB /)  
+KB(:, 2,25,12) = (/ &
+ & 0.73796E+01_JPRB,0.14193E+02_JPRB,0.17028E+02_JPRB,0.19160E+02_JPRB,0.14211E+02_JPRB /)  
+KB(:, 3,25,12) = (/ &
+ & 0.79883E+01_JPRB,0.15386E+02_JPRB,0.18237E+02_JPRB,0.20473E+02_JPRB,0.15219E+02_JPRB /)  
+KB(:, 4,25,12) = (/ &
+ & 0.86473E+01_JPRB,0.16702E+02_JPRB,0.19605E+02_JPRB,0.21810E+02_JPRB,0.16257E+02_JPRB /)  
+KB(:, 5,25,12) = (/ &
+ & 0.93513E+01_JPRB,0.18139E+02_JPRB,0.21087E+02_JPRB,0.23158E+02_JPRB,0.17339E+02_JPRB /)  
+KB(:, 1,26,12) = (/ &
+ & 0.62530E+01_JPRB,0.12619E+02_JPRB,0.15260E+02_JPRB,0.17241E+02_JPRB,0.12729E+02_JPRB /)  
+KB(:, 2,26,12) = (/ &
+ & 0.67955E+01_JPRB,0.13786E+02_JPRB,0.16460E+02_JPRB,0.18602E+02_JPRB,0.13751E+02_JPRB /)  
+KB(:, 3,26,12) = (/ &
+ & 0.73876E+01_JPRB,0.15061E+02_JPRB,0.17816E+02_JPRB,0.20014E+02_JPRB,0.14821E+02_JPRB /)  
+KB(:, 4,26,12) = (/ &
+ & 0.80374E+01_JPRB,0.16453E+02_JPRB,0.19314E+02_JPRB,0.21444E+02_JPRB,0.15933E+02_JPRB /)  
+KB(:, 5,26,12) = (/ &
+ & 0.87427E+01_JPRB,0.17956E+02_JPRB,0.20909E+02_JPRB,0.22878E+02_JPRB,0.17080E+02_JPRB /)  
+KB(:, 1,27,12) = (/ &
+ & 0.57700E+01_JPRB,0.12257E+02_JPRB,0.14782E+02_JPRB,0.16780E+02_JPRB,0.12335E+02_JPRB /)  
+KB(:, 2,27,12) = (/ &
+ & 0.62864E+01_JPRB,0.13513E+02_JPRB,0.16114E+02_JPRB,0.18231E+02_JPRB,0.13431E+02_JPRB /)  
+KB(:, 3,27,12) = (/ &
+ & 0.68675E+01_JPRB,0.14868E+02_JPRB,0.17601E+02_JPRB,0.19730E+02_JPRB,0.14565E+02_JPRB /)  
+KB(:, 4,27,12) = (/ &
+ & 0.75138E+01_JPRB,0.16329E+02_JPRB,0.19199E+02_JPRB,0.21244E+02_JPRB,0.15742E+02_JPRB /)  
+KB(:, 5,27,12) = (/ &
+ & 0.82289E+01_JPRB,0.17883E+02_JPRB,0.20886E+02_JPRB,0.22748E+02_JPRB,0.16940E+02_JPRB /)  
+KB(:, 1,28,12) = (/ &
+ & 0.53548E+01_JPRB,0.12024E+02_JPRB,0.14494E+02_JPRB,0.16490E+02_JPRB,0.12074E+02_JPRB /)  
+KB(:, 2,28,12) = (/ &
+ & 0.58567E+01_JPRB,0.13364E+02_JPRB,0.15954E+02_JPRB,0.18023E+02_JPRB,0.13231E+02_JPRB /)  
+KB(:, 3,28,12) = (/ &
+ & 0.64249E+01_JPRB,0.14793E+02_JPRB,0.17548E+02_JPRB,0.19599E+02_JPRB,0.14431E+02_JPRB /)  
+KB(:, 4,28,12) = (/ &
+ & 0.70763E+01_JPRB,0.16306E+02_JPRB,0.19232E+02_JPRB,0.21185E+02_JPRB,0.15664E+02_JPRB /)  
+KB(:, 5,28,12) = (/ &
+ & 0.78108E+01_JPRB,0.17913E+02_JPRB,0.20999E+02_JPRB,0.22748E+02_JPRB,0.16904E+02_JPRB /)  
+KB(:, 1,29,12) = (/ &
+ & 0.50045E+01_JPRB,0.11918E+02_JPRB,0.14389E+02_JPRB,0.16363E+02_JPRB,0.11938E+02_JPRB /)  
+KB(:, 2,29,12) = (/ &
+ & 0.55030E+01_JPRB,0.13334E+02_JPRB,0.15959E+02_JPRB,0.17970E+02_JPRB,0.13155E+02_JPRB /)  
+KB(:, 3,29,12) = (/ &
+ & 0.60662E+01_JPRB,0.14820E+02_JPRB,0.17638E+02_JPRB,0.19611E+02_JPRB,0.14408E+02_JPRB /)  
+KB(:, 4,29,12) = (/ &
+ & 0.67325E+01_JPRB,0.16392E+02_JPRB,0.19392E+02_JPRB,0.21253E+02_JPRB,0.15686E+02_JPRB /)  
+KB(:, 5,29,12) = (/ &
+ & 0.74925E+01_JPRB,0.18044E+02_JPRB,0.21206E+02_JPRB,0.22856E+02_JPRB,0.16965E+02_JPRB /)  
+KB(:, 1,30,12) = (/ &
+ & 0.47172E+01_JPRB,0.11917E+02_JPRB,0.14428E+02_JPRB,0.16368E+02_JPRB,0.11903E+02_JPRB /)  
+KB(:, 2,30,12) = (/ &
+ & 0.52125E+01_JPRB,0.13400E+02_JPRB,0.16089E+02_JPRB,0.18040E+02_JPRB,0.13179E+02_JPRB /)  
+KB(:, 3,30,12) = (/ &
+ & 0.57884E+01_JPRB,0.14940E+02_JPRB,0.17829E+02_JPRB,0.19728E+02_JPRB,0.14475E+02_JPRB /)  
+KB(:, 4,30,12) = (/ &
+ & 0.64722E+01_JPRB,0.16556E+02_JPRB,0.19636E+02_JPRB,0.21408E+02_JPRB,0.15787E+02_JPRB /)  
+KB(:, 5,30,12) = (/ &
+ & 0.72704E+01_JPRB,0.18251E+02_JPRB,0.21479E+02_JPRB,0.23035E+02_JPRB,0.17093E+02_JPRB /)  
+KB(:, 1,31,12) = (/ &
+ & 0.44858E+01_JPRB,0.12017E+02_JPRB,0.14590E+02_JPRB,0.16495E+02_JPRB,0.11969E+02_JPRB /)  
+KB(:, 2,31,12) = (/ &
+ & 0.49908E+01_JPRB,0.13550E+02_JPRB,0.16315E+02_JPRB,0.18215E+02_JPRB,0.13287E+02_JPRB /)  
+KB(:, 3,31,12) = (/ &
+ & 0.55864E+01_JPRB,0.15140E+02_JPRB,0.18101E+02_JPRB,0.19933E+02_JPRB,0.14620E+02_JPRB /)  
+KB(:, 4,31,12) = (/ &
+ & 0.63024E+01_JPRB,0.16801E+02_JPRB,0.19948E+02_JPRB,0.21636E+02_JPRB,0.15956E+02_JPRB /)  
+KB(:, 5,31,12) = (/ &
+ & 0.71504E+01_JPRB,0.18530E+02_JPRB,0.21815E+02_JPRB,0.23280E+02_JPRB,0.17277E+02_JPRB /)  
+KB(:, 1,32,12) = (/ &
+ & 0.43064E+01_JPRB,0.12199E+02_JPRB,0.14841E+02_JPRB,0.16712E+02_JPRB,0.12112E+02_JPRB /)  
+KB(:, 2,32,12) = (/ &
+ & 0.48346E+01_JPRB,0.13779E+02_JPRB,0.16613E+02_JPRB,0.18463E+02_JPRB,0.13462E+02_JPRB /)  
+KB(:, 3,32,12) = (/ &
+ & 0.54614E+01_JPRB,0.15404E+02_JPRB,0.18438E+02_JPRB,0.20209E+02_JPRB,0.14821E+02_JPRB /)  
+KB(:, 4,32,12) = (/ &
+ & 0.62177E+01_JPRB,0.17102E+02_JPRB,0.20311E+02_JPRB,0.21920E+02_JPRB,0.16172E+02_JPRB /)  
+KB(:, 5,32,12) = (/ &
+ & 0.71259E+01_JPRB,0.18855E+02_JPRB,0.22195E+02_JPRB,0.23574E+02_JPRB,0.17506E+02_JPRB /)  
+KB(:, 1,33,12) = (/ &
+ & 0.41801E+01_JPRB,0.12450E+02_JPRB,0.15154E+02_JPRB,0.16994E+02_JPRB,0.12315E+02_JPRB /)  
+KB(:, 2,33,12) = (/ &
+ & 0.47391E+01_JPRB,0.14064E+02_JPRB,0.16963E+02_JPRB,0.18765E+02_JPRB,0.13689E+02_JPRB /)  
+KB(:, 3,33,12) = (/ &
+ & 0.54061E+01_JPRB,0.15717E+02_JPRB,0.18820E+02_JPRB,0.20527E+02_JPRB,0.15064E+02_JPRB /)  
+KB(:, 4,33,12) = (/ &
+ & 0.62146E+01_JPRB,0.17442E+02_JPRB,0.20711E+02_JPRB,0.22242E+02_JPRB,0.16420E+02_JPRB /)  
+KB(:, 5,33,12) = (/ &
+ & 0.71827E+01_JPRB,0.19219E+02_JPRB,0.22608E+02_JPRB,0.23903E+02_JPRB,0.17762E+02_JPRB /)  
+KB(:, 1,34,12) = (/ &
+ & 0.40887E+01_JPRB,0.12691E+02_JPRB,0.15451E+02_JPRB,0.17259E+02_JPRB,0.12512E+02_JPRB /)  
+KB(:, 2,34,12) = (/ &
+ & 0.46819E+01_JPRB,0.14330E+02_JPRB,0.17288E+02_JPRB,0.19046E+02_JPRB,0.13902E+02_JPRB /)  
+KB(:, 3,34,12) = (/ &
+ & 0.53890E+01_JPRB,0.16007E+02_JPRB,0.19166E+02_JPRB,0.20816E+02_JPRB,0.15287E+02_JPRB /)  
+KB(:, 4,34,12) = (/ &
+ & 0.62486E+01_JPRB,0.17752E+02_JPRB,0.21067E+02_JPRB,0.22532E+02_JPRB,0.16650E+02_JPRB /)  
+KB(:, 5,34,12) = (/ &
+ & 0.72682E+01_JPRB,0.19545E+02_JPRB,0.22972E+02_JPRB,0.24194E+02_JPRB,0.17995E+02_JPRB /)  
+KB(:, 1,35,12) = (/ &
+ & 0.39916E+01_JPRB,0.12809E+02_JPRB,0.15601E+02_JPRB,0.17383E+02_JPRB,0.12605E+02_JPRB /)  
+KB(:, 2,35,12) = (/ &
+ & 0.46112E+01_JPRB,0.14460E+02_JPRB,0.17457E+02_JPRB,0.19181E+02_JPRB,0.14005E+02_JPRB /)  
+KB(:, 3,35,12) = (/ &
+ & 0.53474E+01_JPRB,0.16154E+02_JPRB,0.19347E+02_JPRB,0.20958E+02_JPRB,0.15398E+02_JPRB /)  
+KB(:, 4,35,12) = (/ &
+ & 0.62430E+01_JPRB,0.17913E+02_JPRB,0.21258E+02_JPRB,0.22679E+02_JPRB,0.16764E+02_JPRB /)  
+KB(:, 5,35,12) = (/ &
+ & 0.72953E+01_JPRB,0.19716E+02_JPRB,0.23169E+02_JPRB,0.24345E+02_JPRB,0.18113E+02_JPRB /)  
+KB(:, 1,36,12) = (/ &
+ & 0.38696E+01_JPRB,0.12768E+02_JPRB,0.15571E+02_JPRB,0.17332E+02_JPRB,0.12565E+02_JPRB /)  
+KB(:, 2,36,12) = (/ &
+ & 0.45034E+01_JPRB,0.14429E+02_JPRB,0.17436E+02_JPRB,0.19141E+02_JPRB,0.13973E+02_JPRB /)  
+KB(:, 3,36,12) = (/ &
+ & 0.52555E+01_JPRB,0.16128E+02_JPRB,0.19333E+02_JPRB,0.20927E+02_JPRB,0.15372E+02_JPRB /)  
+KB(:, 4,36,12) = (/ &
+ & 0.61640E+01_JPRB,0.17893E+02_JPRB,0.21249E+02_JPRB,0.22656E+02_JPRB,0.16743E+02_JPRB /)  
+KB(:, 5,36,12) = (/ &
+ & 0.72295E+01_JPRB,0.19702E+02_JPRB,0.23168E+02_JPRB,0.24329E+02_JPRB,0.18096E+02_JPRB /)  
+KB(:, 1,37,12) = (/ &
+ & 0.36883E+01_JPRB,0.12493E+02_JPRB,0.15274E+02_JPRB,0.17021E+02_JPRB,0.12322E+02_JPRB /)  
+KB(:, 2,37,12) = (/ &
+ & 0.43193E+01_JPRB,0.14156E+02_JPRB,0.17140E+02_JPRB,0.18841E+02_JPRB,0.13739E+02_JPRB /)  
+KB(:, 3,37,12) = (/ &
+ & 0.50636E+01_JPRB,0.15852E+02_JPRB,0.19039E+02_JPRB,0.20638E+02_JPRB,0.15145E+02_JPRB /)  
+KB(:, 4,37,12) = (/ &
+ & 0.59573E+01_JPRB,0.17616E+02_JPRB,0.20958E+02_JPRB,0.22386E+02_JPRB,0.16525E+02_JPRB /)  
+KB(:, 5,37,12) = (/ &
+ & 0.70089E+01_JPRB,0.19421E+02_JPRB,0.22881E+02_JPRB,0.24071E+02_JPRB,0.17883E+02_JPRB /)  
+KB(:, 1,38,12) = (/ &
+ & 0.35253E+01_JPRB,0.12215E+02_JPRB,0.14971E+02_JPRB,0.16706E+02_JPRB,0.12079E+02_JPRB /)  
+KB(:, 2,38,12) = (/ &
+ & 0.41507E+01_JPRB,0.13877E+02_JPRB,0.16837E+02_JPRB,0.18535E+02_JPRB,0.13501E+02_JPRB /)  
+KB(:, 3,38,12) = (/ &
+ & 0.48852E+01_JPRB,0.15572E+02_JPRB,0.18736E+02_JPRB,0.20342E+02_JPRB,0.14913E+02_JPRB /)  
+KB(:, 4,38,12) = (/ &
+ & 0.57613E+01_JPRB,0.17329E+02_JPRB,0.20656E+02_JPRB,0.22106E+02_JPRB,0.16300E+02_JPRB /)  
+KB(:, 5,38,12) = (/ &
+ & 0.67957E+01_JPRB,0.19130E+02_JPRB,0.22581E+02_JPRB,0.23804E+02_JPRB,0.17665E+02_JPRB /)  
+KB(:, 1,39,12) = (/ &
+ & 0.33825E+01_JPRB,0.11947E+02_JPRB,0.14676E+02_JPRB,0.16402E+02_JPRB,0.11843E+02_JPRB /)  
+KB(:, 2,39,12) = (/ &
+ & 0.39997E+01_JPRB,0.13607E+02_JPRB,0.16542E+02_JPRB,0.18237E+02_JPRB,0.13271E+02_JPRB /)  
+KB(:, 3,39,12) = (/ &
+ & 0.47242E+01_JPRB,0.15300E+02_JPRB,0.18440E+02_JPRB,0.20053E+02_JPRB,0.14687E+02_JPRB /)  
+KB(:, 4,39,12) = (/ &
+ & 0.55821E+01_JPRB,0.17050E+02_JPRB,0.20362E+02_JPRB,0.21831E+02_JPRB,0.16081E+02_JPRB /)  
+KB(:, 5,39,12) = (/ &
+ & 0.65965E+01_JPRB,0.18849E+02_JPRB,0.22289E+02_JPRB,0.23541E+02_JPRB,0.17452E+02_JPRB /)  
+KB(:, 1,40,12) = (/ &
+ & 0.31990E+01_JPRB,0.11518E+02_JPRB,0.14197E+02_JPRB,0.15916E+02_JPRB,0.11466E+02_JPRB /)  
+KB(:, 2,40,12) = (/ &
+ & 0.37954E+01_JPRB,0.13171E+02_JPRB,0.16060E+02_JPRB,0.17759E+02_JPRB,0.12898E+02_JPRB /)  
+KB(:, 3,40,12) = (/ &
+ & 0.44984E+01_JPRB,0.14859E+02_JPRB,0.17955E+02_JPRB,0.19586E+02_JPRB,0.14321E+02_JPRB /)  
+KB(:, 4,40,12) = (/ &
+ & 0.53220E+01_JPRB,0.16595E+02_JPRB,0.19875E+02_JPRB,0.21381E+02_JPRB,0.15725E+02_JPRB /)  
+KB(:, 5,40,12) = (/ &
+ & 0.62999E+01_JPRB,0.18387E+02_JPRB,0.21803E+02_JPRB,0.23109E+02_JPRB,0.17102E+02_JPRB /)  
+KB(:, 1,41,12) = (/ &
+ & 0.30240E+01_JPRB,0.11079E+02_JPRB,0.13703E+02_JPRB,0.15411E+02_JPRB,0.11075E+02_JPRB /)  
+KB(:, 2,41,12) = (/ &
+ & 0.35998E+01_JPRB,0.12722E+02_JPRB,0.15561E+02_JPRB,0.17259E+02_JPRB,0.12509E+02_JPRB /)  
+KB(:, 3,41,12) = (/ &
+ & 0.42766E+01_JPRB,0.14402E+02_JPRB,0.17450E+02_JPRB,0.19096E+02_JPRB,0.13938E+02_JPRB /)  
+KB(:, 4,41,12) = (/ &
+ & 0.50663E+01_JPRB,0.16123E+02_JPRB,0.19365E+02_JPRB,0.20905E+02_JPRB,0.15352E+02_JPRB /)  
+KB(:, 5,41,12) = (/ &
+ & 0.60051E+01_JPRB,0.17908E+02_JPRB,0.21295E+02_JPRB,0.22653E+02_JPRB,0.16735E+02_JPRB /)  
+KB(:, 1,42,12) = (/ &
+ & 0.28652E+01_JPRB,0.10648E+02_JPRB,0.13219E+02_JPRB,0.14913E+02_JPRB,0.10689E+02_JPRB /)  
+KB(:, 2,42,12) = (/ &
+ & 0.34153E+01_JPRB,0.12278E+02_JPRB,0.15063E+02_JPRB,0.16761E+02_JPRB,0.12121E+02_JPRB /)  
+KB(:, 3,42,12) = (/ &
+ & 0.40672E+01_JPRB,0.13952E+02_JPRB,0.16947E+02_JPRB,0.18606E+02_JPRB,0.13557E+02_JPRB /)  
+KB(:, 4,42,12) = (/ &
+ & 0.48264E+01_JPRB,0.15661E+02_JPRB,0.18858E+02_JPRB,0.20426E+02_JPRB,0.14977E+02_JPRB /)  
+KB(:, 5,42,12) = (/ &
+ & 0.57266E+01_JPRB,0.17431E+02_JPRB,0.20787E+02_JPRB,0.22197E+02_JPRB,0.16370E+02_JPRB /)  
+KB(:, 1,43,12) = (/ &
+ & 0.26870E+01_JPRB,0.10134E+02_JPRB,0.12642E+02_JPRB,0.14316E+02_JPRB,0.10228E+02_JPRB /)  
+KB(:, 2,43,12) = (/ &
+ & 0.32108E+01_JPRB,0.11745E+02_JPRB,0.14465E+02_JPRB,0.16161E+02_JPRB,0.11657E+02_JPRB /)  
+KB(:, 3,43,12) = (/ &
+ & 0.38308E+01_JPRB,0.13408E+02_JPRB,0.16340E+02_JPRB,0.18012E+02_JPRB,0.13095E+02_JPRB /)  
+KB(:, 4,43,12) = (/ &
+ & 0.45569E+01_JPRB,0.15107E+02_JPRB,0.18246E+02_JPRB,0.19843E+02_JPRB,0.14521E+02_JPRB /)  
+KB(:, 5,43,12) = (/ &
+ & 0.54100E+01_JPRB,0.16859E+02_JPRB,0.20173E+02_JPRB,0.21637E+02_JPRB,0.15927E+02_JPRB /)  
+KB(:, 1,44,12) = (/ &
+ & 0.25051E+01_JPRB,0.95885E+01_JPRB,0.12032E+02_JPRB,0.13682E+02_JPRB,0.97372E+01_JPRB /)  
+KB(:, 2,44,12) = (/ &
+ & 0.30054E+01_JPRB,0.11180E+02_JPRB,0.13825E+02_JPRB,0.15517E+02_JPRB,0.11159E+02_JPRB /)  
+KB(:, 3,44,12) = (/ &
+ & 0.35923E+01_JPRB,0.12828E+02_JPRB,0.15690E+02_JPRB,0.17372E+02_JPRB,0.12597E+02_JPRB /)  
+KB(:, 4,44,12) = (/ &
+ & 0.42861E+01_JPRB,0.14518E+02_JPRB,0.17591E+02_JPRB,0.19215E+02_JPRB,0.14031E+02_JPRB /)  
+KB(:, 5,44,12) = (/ &
+ & 0.50891E+01_JPRB,0.16248E+02_JPRB,0.19511E+02_JPRB,0.21026E+02_JPRB,0.15447E+02_JPRB /)  
+KB(:, 1,45,12) = (/ &
+ & 0.23284E+01_JPRB,0.90519E+01_JPRB,0.11435E+02_JPRB,0.13049E+02_JPRB,0.92487E+01_JPRB /)  
+KB(:, 2,45,12) = (/ &
+ & 0.28153E+01_JPRB,0.10623E+02_JPRB,0.13197E+02_JPRB,0.14880E+02_JPRB,0.10666E+02_JPRB /)  
+KB(:, 3,45,12) = (/ &
+ & 0.33686E+01_JPRB,0.12254E+02_JPRB,0.15046E+02_JPRB,0.16733E+02_JPRB,0.12101E+02_JPRB /)  
+KB(:, 4,45,12) = (/ &
+ & 0.40279E+01_JPRB,0.13936E+02_JPRB,0.16938E+02_JPRB,0.18583E+02_JPRB,0.13540E+02_JPRB /)  
+KB(:, 5,45,12) = (/ &
+ & 0.47894E+01_JPRB,0.15648E+02_JPRB,0.18852E+02_JPRB,0.20408E+02_JPRB,0.14963E+02_JPRB /)  
+KB(:, 1,46,12) = (/ &
+ & 0.21477E+01_JPRB,0.84947E+01_JPRB,0.10808E+02_JPRB,0.12382E+02_JPRB,0.87316E+01_JPRB /)  
+KB(:, 2,46,12) = (/ &
+ & 0.26237E+01_JPRB,0.10040E+02_JPRB,0.12543E+02_JPRB,0.14206E+02_JPRB,0.10145E+02_JPRB /)  
+KB(:, 3,46,12) = (/ &
+ & 0.31493E+01_JPRB,0.11653E+02_JPRB,0.14367E+02_JPRB,0.16054E+02_JPRB,0.11575E+02_JPRB /)  
+KB(:, 4,46,12) = (/ &
+ & 0.37687E+01_JPRB,0.13319E+02_JPRB,0.16247E+02_JPRB,0.17910E+02_JPRB,0.13015E+02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART30',1,ZHOOK_HANDLE)
+END SUBROUTINE PART30
+
+
+SUBROUTINE PART31
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART31',0,ZHOOK_HANDLE)
+
+
+KB(:, 5,46,12) = (/ &
+ & 0.44919E+01_JPRB,0.15018E+02_JPRB,0.18154E+02_JPRB,0.19746E+02_JPRB,0.14446E+02_JPRB /)  
+KB(:, 1,47,12) = (/ &
+ & 0.19539E+01_JPRB,0.78866E+01_JPRB,0.10121E+02_JPRB,0.11642E+02_JPRB,0.81629E+01_JPRB /)  
+KB(:, 2,47,12) = (/ &
+ & 0.24188E+01_JPRB,0.94011E+01_JPRB,0.11827E+02_JPRB,0.13461E+02_JPRB,0.95671E+01_JPRB /)  
+KB(:, 3,47,12) = (/ &
+ & 0.29183E+01_JPRB,0.10990E+02_JPRB,0.13614E+02_JPRB,0.15297E+02_JPRB,0.10990E+02_JPRB /)  
+KB(:, 4,47,12) = (/ &
+ & 0.34981E+01_JPRB,0.12636E+02_JPRB,0.15480E+02_JPRB,0.17155E+02_JPRB,0.12429E+02_JPRB /)  
+KB(:, 5,47,12) = (/ &
+ & 0.41787E+01_JPRB,0.14323E+02_JPRB,0.17378E+02_JPRB,0.19005E+02_JPRB,0.13866E+02_JPRB /)  
+KB(:, 1,48,12) = (/ &
+ & 0.17686E+01_JPRB,0.73016E+01_JPRB,0.94471E+01_JPRB,0.10908E+02_JPRB,0.76062E+01_JPRB /)  
+KB(:, 2,48,12) = (/ &
+ & 0.22191E+01_JPRB,0.87750E+01_JPRB,0.11125E+02_JPRB,0.12718E+02_JPRB,0.89921E+01_JPRB /)  
+KB(:, 3,48,12) = (/ &
+ & 0.27045E+01_JPRB,0.10336E+02_JPRB,0.12878E+02_JPRB,0.14548E+02_JPRB,0.10409E+02_JPRB /)  
+KB(:, 4,48,12) = (/ &
+ & 0.32460E+01_JPRB,0.11962E+02_JPRB,0.14721E+02_JPRB,0.16399E+02_JPRB,0.11843E+02_JPRB /)  
+KB(:, 5,48,12) = (/ &
+ & 0.38847E+01_JPRB,0.13635E+02_JPRB,0.16605E+02_JPRB,0.18256E+02_JPRB,0.13285E+02_JPRB /)  
+KB(:, 1,49,12) = (/ &
+ & 0.15926E+01_JPRB,0.67448E+01_JPRB,0.87885E+01_JPRB,0.10183E+02_JPRB,0.70558E+01_JPRB /)  
+KB(:, 2,49,12) = (/ &
+ & 0.20265E+01_JPRB,0.81616E+01_JPRB,0.10434E+02_JPRB,0.11978E+02_JPRB,0.84210E+01_JPRB /)  
+KB(:, 3,49,12) = (/ &
+ & 0.24995E+01_JPRB,0.96943E+01_JPRB,0.12158E+02_JPRB,0.13804E+02_JPRB,0.98335E+01_JPRB /)  
+KB(:, 4,49,12) = (/ &
+ & 0.30106E+01_JPRB,0.11296E+02_JPRB,0.13964E+02_JPRB,0.15645E+02_JPRB,0.11261E+02_JPRB /)  
+KB(:, 5,49,12) = (/ &
+ & 0.36091E+01_JPRB,0.12953E+02_JPRB,0.15838E+02_JPRB,0.17505E+02_JPRB,0.12701E+02_JPRB /)  
+KB(:, 1,50,12) = (/ &
+ & 0.14367E+01_JPRB,0.62503E+01_JPRB,0.81839E+01_JPRB,0.95114E+01_JPRB,0.65470E+01_JPRB /)  
+KB(:, 2,50,12) = (/ &
+ & 0.18513E+01_JPRB,0.76037E+01_JPRB,0.97986E+01_JPRB,0.11290E+02_JPRB,0.78962E+01_JPRB /)  
+KB(:, 3,50,12) = (/ &
+ & 0.23123E+01_JPRB,0.91032E+01_JPRB,0.11496E+02_JPRB,0.13108E+02_JPRB,0.92947E+01_JPRB /)  
+KB(:, 4,50,12) = (/ &
+ & 0.28056E+01_JPRB,0.10680E+02_JPRB,0.13267E+02_JPRB,0.14942E+02_JPRB,0.10716E+02_JPRB /)  
+KB(:, 5,50,12) = (/ &
+ & 0.33664E+01_JPRB,0.12318E+02_JPRB,0.15124E+02_JPRB,0.16800E+02_JPRB,0.12153E+02_JPRB /)  
+KB(:, 1,51,12) = (/ &
+ & 0.12944E+01_JPRB,0.57936E+01_JPRB,0.76117E+01_JPRB,0.88742E+01_JPRB,0.60642E+01_JPRB /)  
+KB(:, 2,51,12) = (/ &
+ & 0.16888E+01_JPRB,0.70852E+01_JPRB,0.91933E+01_JPRB,0.10628E+02_JPRB,0.73944E+01_JPRB /)  
+KB(:, 3,51,12) = (/ &
+ & 0.21353E+01_JPRB,0.85416E+01_JPRB,0.10863E+02_JPRB,0.12436E+02_JPRB,0.87735E+01_JPRB /)  
+KB(:, 4,51,12) = (/ &
+ & 0.26169E+01_JPRB,0.10093E+02_JPRB,0.12607E+02_JPRB,0.14266E+02_JPRB,0.10192E+02_JPRB /)  
+KB(:, 5,51,12) = (/ &
+ & 0.31479E+01_JPRB,0.11711E+02_JPRB,0.14438E+02_JPRB,0.16116E+02_JPRB,0.11624E+02_JPRB /)  
+KB(:, 1,52,12) = (/ &
+ & 0.11616E+01_JPRB,0.53570E+01_JPRB,0.70533E+01_JPRB,0.82560E+01_JPRB,0.55953E+01_JPRB /)  
+KB(:, 2,52,12) = (/ &
+ & 0.15340E+01_JPRB,0.65899E+01_JPRB,0.86019E+01_JPRB,0.99750E+01_JPRB,0.68982E+01_JPRB /)  
+KB(:, 3,52,12) = (/ &
+ & 0.19643E+01_JPRB,0.79903E+01_JPRB,0.10241E+02_JPRB,0.11768E+02_JPRB,0.82604E+01_JPRB /)  
+KB(:, 4,52,12) = (/ &
+ & 0.24347E+01_JPRB,0.95157E+01_JPRB,0.11958E+02_JPRB,0.13593E+02_JPRB,0.96707E+01_JPRB /)  
+KB(:, 5,52,12) = (/ &
+ & 0.29410E+01_JPRB,0.11112E+02_JPRB,0.13756E+02_JPRB,0.15434E+02_JPRB,0.11097E+02_JPRB /)  
+KB(:, 1,53,12) = (/ &
+ & 0.10377E+01_JPRB,0.49398E+01_JPRB,0.65141E+01_JPRB,0.76518E+01_JPRB,0.51386E+01_JPRB /)  
+KB(:, 2,53,12) = (/ &
+ & 0.13876E+01_JPRB,0.61188E+01_JPRB,0.80207E+01_JPRB,0.93291E+01_JPRB,0.64095E+01_JPRB /)  
+KB(:, 3,53,12) = (/ &
+ & 0.17987E+01_JPRB,0.74567E+01_JPRB,0.96292E+01_JPRB,0.11104E+02_JPRB,0.77562E+01_JPRB /)  
+KB(:, 4,53,12) = (/ &
+ & 0.22559E+01_JPRB,0.89467E+01_JPRB,0.11320E+02_JPRB,0.12921E+02_JPRB,0.91504E+01_JPRB /)  
+KB(:, 5,53,12) = (/ &
+ & 0.27477E+01_JPRB,0.10518E+02_JPRB,0.13086E+02_JPRB,0.14756E+02_JPRB,0.10571E+02_JPRB /)  
+KB(:, 1,54,12) = (/ &
+ & 0.93266E+00_JPRB,0.45754E+01_JPRB,0.60420E+01_JPRB,0.71108E+01_JPRB,0.47321E+01_JPRB /)  
+KB(:, 2,54,12) = (/ &
+ & 0.12608E+01_JPRB,0.57055E+01_JPRB,0.75003E+01_JPRB,0.87512E+01_JPRB,0.59717E+01_JPRB /)  
+KB(:, 3,54,12) = (/ &
+ & 0.16525E+01_JPRB,0.69875E+01_JPRB,0.90782E+01_JPRB,0.10501E+02_JPRB,0.72982E+01_JPRB /)  
+KB(:, 4,54,12) = (/ &
+ & 0.20962E+01_JPRB,0.84351E+01_JPRB,0.10744E+02_JPRB,0.12308E+02_JPRB,0.86747E+01_JPRB /)  
+KB(:, 5,54,12) = (/ &
+ & 0.25775E+01_JPRB,0.99827E+01_JPRB,0.12485E+02_JPRB,0.14138E+02_JPRB,0.10092E+02_JPRB /)  
+KB(:, 1,55,12) = (/ &
+ & 0.84048E+00_JPRB,0.42428E+01_JPRB,0.56145E+01_JPRB,0.66054E+01_JPRB,0.43544E+01_JPRB /)  
+KB(:, 2,55,12) = (/ &
+ & 0.11472E+01_JPRB,0.53270E+01_JPRB,0.70144E+01_JPRB,0.82122E+01_JPRB,0.55615E+01_JPRB /)  
+KB(:, 3,55,12) = (/ &
+ & 0.15181E+01_JPRB,0.65556E+01_JPRB,0.85601E+01_JPRB,0.99280E+01_JPRB,0.68631E+01_JPRB /)  
+KB(:, 4,55,12) = (/ &
+ & 0.19474E+01_JPRB,0.79524E+01_JPRB,0.10198E+02_JPRB,0.11721E+02_JPRB,0.82252E+01_JPRB /)  
+KB(:, 5,55,12) = (/ &
+ & 0.24188E+01_JPRB,0.94776E+01_JPRB,0.11916E+02_JPRB,0.13548E+02_JPRB,0.96351E+01_JPRB /)  
+KB(:, 1,56,12) = (/ &
+ & 0.75447E+00_JPRB,0.39270E+01_JPRB,0.52064E+01_JPRB,0.61093E+01_JPRB,0.39870E+01_JPRB /)  
+KB(:, 2,56,12) = (/ &
+ & 0.10395E+01_JPRB,0.49623E+01_JPRB,0.65429E+01_JPRB,0.76840E+01_JPRB,0.51623E+01_JPRB /)  
+KB(:, 3,56,12) = (/ &
+ & 0.13908E+01_JPRB,0.61440E+01_JPRB,0.80522E+01_JPRB,0.93640E+01_JPRB,0.64360E+01_JPRB /)  
+KB(:, 4,56,12) = (/ &
+ & 0.18031E+01_JPRB,0.74859E+01_JPRB,0.96627E+01_JPRB,0.11140E+02_JPRB,0.77842E+01_JPRB /)  
+KB(:, 5,56,12) = (/ &
+ & 0.22626E+01_JPRB,0.89798E+01_JPRB,0.11358E+02_JPRB,0.12960E+02_JPRB,0.91800E+01_JPRB /)  
+KB(:, 1,57,12) = (/ &
+ & 0.67513E+00_JPRB,0.36336E+01_JPRB,0.48180E+01_JPRB,0.56247E+01_JPRB,0.36284E+01_JPRB /)  
+KB(:, 2,57,12) = (/ &
+ & 0.93951E+00_JPRB,0.46135E+01_JPRB,0.60910E+01_JPRB,0.71671E+01_JPRB,0.47736E+01_JPRB /)  
+KB(:, 3,57,12) = (/ &
+ & 0.12699E+01_JPRB,0.57481E+01_JPRB,0.75541E+01_JPRB,0.88107E+01_JPRB,0.60168E+01_JPRB /)  
+KB(:, 4,57,12) = (/ &
+ & 0.16637E+01_JPRB,0.70362E+01_JPRB,0.91351E+01_JPRB,0.10564E+02_JPRB,0.73465E+01_JPRB /)  
+KB(:, 5,57,12) = (/ &
+ & 0.21102E+01_JPRB,0.84904E+01_JPRB,0.10807E+02_JPRB,0.12374E+02_JPRB,0.87256E+01_JPRB /)  
+KB(:, 1,58,12) = (/ &
+ & 0.60371E+00_JPRB,0.33725E+01_JPRB,0.44640E+01_JPRB,0.51801E+01_JPRB,0.32968E+01_JPRB /)  
+KB(:, 2,58,12) = (/ &
+ & 0.85131E+00_JPRB,0.42951E+01_JPRB,0.56822E+01_JPRB,0.66873E+01_JPRB,0.44155E+01_JPRB /)  
+KB(:, 3,58,12) = (/ &
+ & 0.11611E+01_JPRB,0.53867E+01_JPRB,0.70919E+01_JPRB,0.82985E+01_JPRB,0.56282E+01_JPRB /)  
+KB(:, 4,58,12) = (/ &
+ & 0.15366E+01_JPRB,0.66258E+01_JPRB,0.86445E+01_JPRB,0.10022E+02_JPRB,0.69358E+01_JPRB /)  
+KB(:, 5,58,12) = (/ &
+ & 0.19698E+01_JPRB,0.80329E+01_JPRB,0.10290E+02_JPRB,0.11819E+02_JPRB,0.83004E+01_JPRB /)  
+KB(:, 1,59,12) = (/ &
+ & 0.57552E+00_JPRB,0.32717E+01_JPRB,0.43250E+01_JPRB,0.50045E+01_JPRB,0.31668E+01_JPRB /)  
+KB(:, 2,59,12) = (/ &
+ & 0.81716E+00_JPRB,0.41713E+01_JPRB,0.55225E+01_JPRB,0.64964E+01_JPRB,0.42740E+01_JPRB /)  
+KB(:, 3,59,12) = (/ &
+ & 0.11190E+01_JPRB,0.52446E+01_JPRB,0.69091E+01_JPRB,0.80966E+01_JPRB,0.54744E+01_JPRB /)  
+KB(:, 4,59,12) = (/ &
+ & 0.14869E+01_JPRB,0.64659E+01_JPRB,0.84502E+01_JPRB,0.98065E+01_JPRB,0.67716E+01_JPRB /)  
+KB(:, 5,59,12) = (/ &
+ & 0.19139E+01_JPRB,0.78535E+01_JPRB,0.10085E+02_JPRB,0.11598E+02_JPRB,0.81311E+01_JPRB /)  
+KB(:, 1,13,13) = (/ &
+ & 0.79406E+02_JPRB,0.76977E+02_JPRB,0.79398E+02_JPRB,0.72265E+02_JPRB,0.70608E+02_JPRB /)  
+KB(:, 2,13,13) = (/ &
+ & 0.78716E+02_JPRB,0.76325E+02_JPRB,0.79145E+02_JPRB,0.72561E+02_JPRB,0.71233E+02_JPRB /)  
+KB(:, 3,13,13) = (/ &
+ & 0.77960E+02_JPRB,0.75684E+02_JPRB,0.78864E+02_JPRB,0.72811E+02_JPRB,0.71703E+02_JPRB /)  
+KB(:, 4,13,13) = (/ &
+ & 0.77172E+02_JPRB,0.75038E+02_JPRB,0.78462E+02_JPRB,0.73003E+02_JPRB,0.72067E+02_JPRB /)  
+KB(:, 5,13,13) = (/ &
+ & 0.76342E+02_JPRB,0.74357E+02_JPRB,0.78015E+02_JPRB,0.73077E+02_JPRB,0.72406E+02_JPRB /)  
+KB(:, 1,14,13) = (/ &
+ & 0.74002E+02_JPRB,0.75964E+02_JPRB,0.80244E+02_JPRB,0.73931E+02_JPRB,0.67973E+02_JPRB /)  
+KB(:, 2,14,13) = (/ &
+ & 0.73259E+02_JPRB,0.75350E+02_JPRB,0.80187E+02_JPRB,0.74373E+02_JPRB,0.68671E+02_JPRB /)  
+KB(:, 3,14,13) = (/ &
+ & 0.72511E+02_JPRB,0.74741E+02_JPRB,0.79998E+02_JPRB,0.74718E+02_JPRB,0.69297E+02_JPRB /)  
+KB(:, 4,14,13) = (/ &
+ & 0.71760E+02_JPRB,0.74129E+02_JPRB,0.79694E+02_JPRB,0.74933E+02_JPRB,0.69925E+02_JPRB /)  
+KB(:, 5,14,13) = (/ &
+ & 0.70963E+02_JPRB,0.73482E+02_JPRB,0.79282E+02_JPRB,0.75062E+02_JPRB,0.70592E+02_JPRB /)  
+KB(:, 1,15,13) = (/ &
+ & 0.67727E+02_JPRB,0.74204E+02_JPRB,0.79973E+02_JPRB,0.74524E+02_JPRB,0.64503E+02_JPRB /)  
+KB(:, 2,15,13) = (/ &
+ & 0.66995E+02_JPRB,0.73663E+02_JPRB,0.80067E+02_JPRB,0.75070E+02_JPRB,0.65404E+02_JPRB /)  
+KB(:, 3,15,13) = (/ &
+ & 0.66299E+02_JPRB,0.73080E+02_JPRB,0.80001E+02_JPRB,0.75489E+02_JPRB,0.66341E+02_JPRB /)  
+KB(:, 4,15,13) = (/ &
+ & 0.65584E+02_JPRB,0.72498E+02_JPRB,0.79808E+02_JPRB,0.75814E+02_JPRB,0.67293E+02_JPRB /)  
+KB(:, 5,15,13) = (/ &
+ & 0.64881E+02_JPRB,0.71894E+02_JPRB,0.79644E+02_JPRB,0.76073E+02_JPRB,0.68159E+02_JPRB /)  
+KB(:, 1,16,13) = (/ &
+ & 0.60910E+02_JPRB,0.71706E+02_JPRB,0.78658E+02_JPRB,0.73971E+02_JPRB,0.60740E+02_JPRB /)  
+KB(:, 2,16,13) = (/ &
+ & 0.60264E+02_JPRB,0.71204E+02_JPRB,0.78897E+02_JPRB,0.74647E+02_JPRB,0.61882E+02_JPRB /)  
+KB(:, 3,16,13) = (/ &
+ & 0.59646E+02_JPRB,0.70743E+02_JPRB,0.78998E+02_JPRB,0.75253E+02_JPRB,0.63062E+02_JPRB /)  
+KB(:, 4,16,13) = (/ &
+ & 0.59033E+02_JPRB,0.70274E+02_JPRB,0.79093E+02_JPRB,0.75819E+02_JPRB,0.64263E+02_JPRB /)  
+KB(:, 5,16,13) = (/ &
+ & 0.58482E+02_JPRB,0.69838E+02_JPRB,0.79175E+02_JPRB,0.76359E+02_JPRB,0.65453E+02_JPRB /)  
+KB(:, 1,17,13) = (/ &
+ & 0.53962E+02_JPRB,0.68666E+02_JPRB,0.76384E+02_JPRB,0.72467E+02_JPRB,0.57058E+02_JPRB /)  
+KB(:, 2,17,13) = (/ &
+ & 0.53430E+02_JPRB,0.68393E+02_JPRB,0.76843E+02_JPRB,0.73413E+02_JPRB,0.58438E+02_JPRB /)  
+KB(:, 3,17,13) = (/ &
+ & 0.52920E+02_JPRB,0.68105E+02_JPRB,0.77273E+02_JPRB,0.74323E+02_JPRB,0.59869E+02_JPRB /)  
+KB(:, 4,17,13) = (/ &
+ & 0.52483E+02_JPRB,0.67847E+02_JPRB,0.77698E+02_JPRB,0.75214E+02_JPRB,0.61307E+02_JPRB /)  
+KB(:, 5,17,13) = (/ &
+ & 0.52082E+02_JPRB,0.67535E+02_JPRB,0.78034E+02_JPRB,0.76077E+02_JPRB,0.62785E+02_JPRB /)  
+KB(:, 1,18,13) = (/ &
+ & 0.47235E+02_JPRB,0.65232E+02_JPRB,0.73440E+02_JPRB,0.70305E+02_JPRB,0.53676E+02_JPRB /)  
+KB(:, 2,18,13) = (/ &
+ & 0.46798E+02_JPRB,0.65205E+02_JPRB,0.74239E+02_JPRB,0.71589E+02_JPRB,0.55262E+02_JPRB /)  
+KB(:, 3,18,13) = (/ &
+ & 0.46439E+02_JPRB,0.65179E+02_JPRB,0.75037E+02_JPRB,0.72870E+02_JPRB,0.56922E+02_JPRB /)  
+KB(:, 4,18,13) = (/ &
+ & 0.46165E+02_JPRB,0.65077E+02_JPRB,0.75787E+02_JPRB,0.74113E+02_JPRB,0.58606E+02_JPRB /)  
+KB(:, 5,18,13) = (/ &
+ & 0.46076E+02_JPRB,0.64950E+02_JPRB,0.76497E+02_JPRB,0.75319E+02_JPRB,0.60364E+02_JPRB /)  
+KB(:, 1,19,13) = (/ &
+ & 0.40875E+02_JPRB,0.61443E+02_JPRB,0.70167E+02_JPRB,0.67815E+02_JPRB,0.50666E+02_JPRB /)  
+KB(:, 2,19,13) = (/ &
+ & 0.40599E+02_JPRB,0.61754E+02_JPRB,0.71348E+02_JPRB,0.69451E+02_JPRB,0.52443E+02_JPRB /)  
+KB(:, 3,19,13) = (/ &
+ & 0.40423E+02_JPRB,0.61971E+02_JPRB,0.72494E+02_JPRB,0.71103E+02_JPRB,0.54265E+02_JPRB /)  
+KB(:, 4,19,13) = (/ &
+ & 0.40489E+02_JPRB,0.62135E+02_JPRB,0.73624E+02_JPRB,0.72723E+02_JPRB,0.56176E+02_JPRB /)  
+KB(:, 5,19,13) = (/ &
+ & 0.40909E+02_JPRB,0.62251E+02_JPRB,0.74691E+02_JPRB,0.74287E+02_JPRB,0.58151E+02_JPRB /)  
+KB(:, 1,20,13) = (/ &
+ & 0.35203E+02_JPRB,0.57554E+02_JPRB,0.66740E+02_JPRB,0.65266E+02_JPRB,0.47986E+02_JPRB /)  
+KB(:, 2,20,13) = (/ &
+ & 0.35059E+02_JPRB,0.58164E+02_JPRB,0.68281E+02_JPRB,0.67270E+02_JPRB,0.49928E+02_JPRB /)  
+KB(:, 3,20,13) = (/ &
+ & 0.35179E+02_JPRB,0.58679E+02_JPRB,0.69865E+02_JPRB,0.69298E+02_JPRB,0.51957E+02_JPRB /)  
+KB(:, 4,20,13) = (/ &
+ & 0.35687E+02_JPRB,0.59136E+02_JPRB,0.71375E+02_JPRB,0.71295E+02_JPRB,0.54068E+02_JPRB /)  
+KB(:, 5,20,13) = (/ &
+ & 0.36572E+02_JPRB,0.59563E+02_JPRB,0.72814E+02_JPRB,0.73197E+02_JPRB,0.56184E+02_JPRB /)  
+KB(:, 1,21,13) = (/ &
+ & 0.30294E+02_JPRB,0.53730E+02_JPRB,0.63335E+02_JPRB,0.62843E+02_JPRB,0.45639E+02_JPRB /)  
+KB(:, 2,21,13) = (/ &
+ & 0.30407E+02_JPRB,0.54622E+02_JPRB,0.65309E+02_JPRB,0.65230E+02_JPRB,0.47736E+02_JPRB /)  
+KB(:, 3,21,13) = (/ &
+ & 0.30898E+02_JPRB,0.55470E+02_JPRB,0.67283E+02_JPRB,0.67630E+02_JPRB,0.49955E+02_JPRB /)  
+KB(:, 4,21,13) = (/ &
+ & 0.31814E+02_JPRB,0.56234E+02_JPRB,0.69205E+02_JPRB,0.69979E+02_JPRB,0.52223E+02_JPRB /)  
+KB(:, 5,21,13) = (/ &
+ & 0.33171E+02_JPRB,0.57002E+02_JPRB,0.70988E+02_JPRB,0.72170E+02_JPRB,0.54507E+02_JPRB /)  
+KB(:, 1,22,13) = (/ &
+ & 0.26203E+02_JPRB,0.50178E+02_JPRB,0.60369E+02_JPRB,0.60883E+02_JPRB,0.43752E+02_JPRB /)  
+KB(:, 2,22,13) = (/ &
+ & 0.26668E+02_JPRB,0.51399E+02_JPRB,0.62731E+02_JPRB,0.63628E+02_JPRB,0.46055E+02_JPRB /)  
+KB(:, 3,22,13) = (/ &
+ & 0.27573E+02_JPRB,0.52567E+02_JPRB,0.65094E+02_JPRB,0.66337E+02_JPRB,0.48427E+02_JPRB /)  
+KB(:, 4,22,13) = (/ &
+ & 0.28933E+02_JPRB,0.53710E+02_JPRB,0.67379E+02_JPRB,0.68992E+02_JPRB,0.50840E+02_JPRB /)  
+KB(:, 5,22,13) = (/ &
+ & 0.30713E+02_JPRB,0.54842E+02_JPRB,0.69500E+02_JPRB,0.71453E+02_JPRB,0.53313E+02_JPRB /)  
+KB(:, 1,23,13) = (/ &
+ & 0.22949E+02_JPRB,0.47062E+02_JPRB,0.57786E+02_JPRB,0.59287E+02_JPRB,0.42207E+02_JPRB /)  
+KB(:, 2,23,13) = (/ &
+ & 0.23779E+02_JPRB,0.48563E+02_JPRB,0.60567E+02_JPRB,0.62337E+02_JPRB,0.44709E+02_JPRB /)  
+KB(:, 3,23,13) = (/ &
+ & 0.25087E+02_JPRB,0.50088E+02_JPRB,0.63282E+02_JPRB,0.65361E+02_JPRB,0.47224E+02_JPRB /)  
+KB(:, 4,23,13) = (/ &
+ & 0.26833E+02_JPRB,0.51601E+02_JPRB,0.65861E+02_JPRB,0.68253E+02_JPRB,0.49790E+02_JPRB /)  
+KB(:, 5,23,13) = (/ &
+ & 0.28975E+02_JPRB,0.53148E+02_JPRB,0.68312E+02_JPRB,0.70979E+02_JPRB,0.52442E+02_JPRB /)  
+KB(:, 1,24,13) = (/ &
+ & 0.20450E+02_JPRB,0.44418E+02_JPRB,0.55719E+02_JPRB,0.58070E+02_JPRB,0.41028E+02_JPRB /)  
+KB(:, 2,24,13) = (/ &
+ & 0.21647E+02_JPRB,0.46218E+02_JPRB,0.58860E+02_JPRB,0.61413E+02_JPRB,0.43697E+02_JPRB /)  
+KB(:, 3,24,13) = (/ &
+ & 0.23313E+02_JPRB,0.48082E+02_JPRB,0.61856E+02_JPRB,0.64696E+02_JPRB,0.46357E+02_JPRB /)  
+KB(:, 4,24,13) = (/ &
+ & 0.25383E+02_JPRB,0.49987E+02_JPRB,0.64735E+02_JPRB,0.67792E+02_JPRB,0.49079E+02_JPRB /)  
+KB(:, 5,24,13) = (/ &
+ & 0.27788E+02_JPRB,0.51882E+02_JPRB,0.67449E+02_JPRB,0.70725E+02_JPRB,0.51885E+02_JPRB /)  
+KB(:, 1,25,13) = (/ &
+ & 0.18632E+02_JPRB,0.42267E+02_JPRB,0.54194E+02_JPRB,0.57249E+02_JPRB,0.40189E+02_JPRB /)  
+KB(:, 2,25,13) = (/ &
+ & 0.20151E+02_JPRB,0.44393E+02_JPRB,0.57583E+02_JPRB,0.60858E+02_JPRB,0.43004E+02_JPRB /)  
+KB(:, 3,25,13) = (/ &
+ & 0.22101E+02_JPRB,0.46593E+02_JPRB,0.60865E+02_JPRB,0.64337E+02_JPRB,0.45809E+02_JPRB /)  
+KB(:, 4,25,13) = (/ &
+ & 0.24391E+02_JPRB,0.48836E+02_JPRB,0.63984E+02_JPRB,0.67613E+02_JPRB,0.48696E+02_JPRB /)  
+KB(:, 5,25,13) = (/ &
+ & 0.26959E+02_JPRB,0.50995E+02_JPRB,0.66882E+02_JPRB,0.70682E+02_JPRB,0.51602E+02_JPRB /)  
+KB(:, 1,26,13) = (/ &
+ & 0.17370E+02_JPRB,0.40657E+02_JPRB,0.53173E+02_JPRB,0.56858E+02_JPRB,0.39692E+02_JPRB /)  
+KB(:, 2,26,13) = (/ &
+ & 0.19155E+02_JPRB,0.43087E+02_JPRB,0.56801E+02_JPRB,0.60671E+02_JPRB,0.42632E+02_JPRB /)  
+KB(:, 3,26,13) = (/ &
+ & 0.21292E+02_JPRB,0.45598E+02_JPRB,0.60302E+02_JPRB,0.64290E+02_JPRB,0.45592E+02_JPRB /)  
+KB(:, 4,26,13) = (/ &
+ & 0.23727E+02_JPRB,0.48098E+02_JPRB,0.63591E+02_JPRB,0.67690E+02_JPRB,0.48603E+02_JPRB /)  
+KB(:, 5,26,13) = (/ &
+ & 0.26455E+02_JPRB,0.50493E+02_JPRB,0.66616E+02_JPRB,0.70861E+02_JPRB,0.51588E+02_JPRB /)  
+KB(:, 1,27,13) = (/ &
+ & 0.16499E+02_JPRB,0.39533E+02_JPRB,0.52563E+02_JPRB,0.56787E+02_JPRB,0.39461E+02_JPRB /)  
+KB(:, 2,27,13) = (/ &
+ & 0.18462E+02_JPRB,0.42240E+02_JPRB,0.56391E+02_JPRB,0.60738E+02_JPRB,0.42525E+02_JPRB /)  
+KB(:, 3,27,13) = (/ &
+ & 0.20737E+02_JPRB,0.45009E+02_JPRB,0.60060E+02_JPRB,0.64459E+02_JPRB,0.45612E+02_JPRB /)  
+KB(:, 4,27,13) = (/ &
+ & 0.23336E+02_JPRB,0.47712E+02_JPRB,0.63452E+02_JPRB,0.67944E+02_JPRB,0.48705E+02_JPRB /)  
+KB(:, 5,27,13) = (/ &
+ & 0.26215E+02_JPRB,0.50322E+02_JPRB,0.66583E+02_JPRB,0.71174E+02_JPRB,0.51756E+02_JPRB /)  
+KB(:, 1,28,13) = (/ &
+ & 0.15882E+02_JPRB,0.38845E+02_JPRB,0.52318E+02_JPRB,0.56965E+02_JPRB,0.39468E+02_JPRB /)  
+KB(:, 2,28,13) = (/ &
+ & 0.17994E+02_JPRB,0.41785E+02_JPRB,0.56289E+02_JPRB,0.61007E+02_JPRB,0.42649E+02_JPRB /)  
+KB(:, 3,28,13) = (/ &
+ & 0.20424E+02_JPRB,0.44749E+02_JPRB,0.60052E+02_JPRB,0.64808E+02_JPRB,0.45826E+02_JPRB /)  
+KB(:, 4,28,13) = (/ &
+ & 0.23178E+02_JPRB,0.47630E+02_JPRB,0.63526E+02_JPRB,0.68347E+02_JPRB,0.48967E+02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART31',1,ZHOOK_HANDLE)
+END SUBROUTINE PART31
+
+
+SUBROUTINE PART32
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART32',0,ZHOOK_HANDLE)
+
+
+KB(:, 5,28,13) = (/ &
+ & 0.26217E+02_JPRB,0.50385E+02_JPRB,0.66714E+02_JPRB,0.71584E+02_JPRB,0.52071E+02_JPRB /)  
+KB(:, 1,29,13) = (/ &
+ & 0.15496E+02_JPRB,0.38533E+02_JPRB,0.52388E+02_JPRB,0.57377E+02_JPRB,0.39687E+02_JPRB /)  
+KB(:, 2,29,13) = (/ &
+ & 0.17758E+02_JPRB,0.41667E+02_JPRB,0.56458E+02_JPRB,0.61470E+02_JPRB,0.42963E+02_JPRB /)  
+KB(:, 3,29,13) = (/ &
+ & 0.20345E+02_JPRB,0.44782E+02_JPRB,0.60267E+02_JPRB,0.65320E+02_JPRB,0.46203E+02_JPRB /)  
+KB(:, 4,29,13) = (/ &
+ & 0.23257E+02_JPRB,0.47788E+02_JPRB,0.63789E+02_JPRB,0.68865E+02_JPRB,0.49378E+02_JPRB /)  
+KB(:, 5,29,13) = (/ &
+ & 0.26442E+02_JPRB,0.50623E+02_JPRB,0.67004E+02_JPRB,0.72085E+02_JPRB,0.52513E+02_JPRB /)  
+KB(:, 1,30,13) = (/ &
+ & 0.15305E+02_JPRB,0.38520E+02_JPRB,0.52687E+02_JPRB,0.57942E+02_JPRB,0.40075E+02_JPRB /)  
+KB(:, 2,30,13) = (/ &
+ & 0.17725E+02_JPRB,0.41787E+02_JPRB,0.56809E+02_JPRB,0.62069E+02_JPRB,0.43408E+02_JPRB /)  
+KB(:, 3,30,13) = (/ &
+ & 0.20471E+02_JPRB,0.45011E+02_JPRB,0.60646E+02_JPRB,0.65935E+02_JPRB,0.46678E+02_JPRB /)  
+KB(:, 4,30,13) = (/ &
+ & 0.23532E+02_JPRB,0.48109E+02_JPRB,0.64191E+02_JPRB,0.69457E+02_JPRB,0.49879E+02_JPRB /)  
+KB(:, 5,30,13) = (/ &
+ & 0.26835E+02_JPRB,0.50980E+02_JPRB,0.67409E+02_JPRB,0.72648E+02_JPRB,0.53041E+02_JPRB /)  
+KB(:, 1,31,13) = (/ &
+ & 0.15319E+02_JPRB,0.38759E+02_JPRB,0.53187E+02_JPRB,0.58637E+02_JPRB,0.40597E+02_JPRB /)  
+KB(:, 2,31,13) = (/ &
+ & 0.17890E+02_JPRB,0.42121E+02_JPRB,0.57326E+02_JPRB,0.62778E+02_JPRB,0.43969E+02_JPRB /)  
+KB(:, 3,31,13) = (/ &
+ & 0.20784E+02_JPRB,0.45419E+02_JPRB,0.61174E+02_JPRB,0.66627E+02_JPRB,0.47246E+02_JPRB /)  
+KB(:, 4,31,13) = (/ &
+ & 0.23963E+02_JPRB,0.48555E+02_JPRB,0.64709E+02_JPRB,0.70119E+02_JPRB,0.50470E+02_JPRB /)  
+KB(:, 5,31,13) = (/ &
+ & 0.27377E+02_JPRB,0.51448E+02_JPRB,0.67912E+02_JPRB,0.73265E+02_JPRB,0.53642E+02_JPRB /)  
+KB(:, 1,32,13) = (/ &
+ & 0.15518E+02_JPRB,0.39176E+02_JPRB,0.53833E+02_JPRB,0.59441E+02_JPRB,0.41231E+02_JPRB /)  
+KB(:, 2,32,13) = (/ &
+ & 0.18219E+02_JPRB,0.42608E+02_JPRB,0.57967E+02_JPRB,0.63575E+02_JPRB,0.44614E+02_JPRB /)  
+KB(:, 3,32,13) = (/ &
+ & 0.21240E+02_JPRB,0.45958E+02_JPRB,0.61807E+02_JPRB,0.67376E+02_JPRB,0.47899E+02_JPRB /)  
+KB(:, 4,32,13) = (/ &
+ & 0.24535E+02_JPRB,0.49103E+02_JPRB,0.65323E+02_JPRB,0.70819E+02_JPRB,0.51129E+02_JPRB /)  
+KB(:, 5,32,13) = (/ &
+ & 0.28030E+02_JPRB,0.51991E+02_JPRB,0.68477E+02_JPRB,0.73912E+02_JPRB,0.54297E+02_JPRB /)  
+KB(:, 1,33,13) = (/ &
+ & 0.15857E+02_JPRB,0.39728E+02_JPRB,0.54587E+02_JPRB,0.60326E+02_JPRB,0.41934E+02_JPRB /)  
+KB(:, 2,33,13) = (/ &
+ & 0.18681E+02_JPRB,0.43207E+02_JPRB,0.58700E+02_JPRB,0.64428E+02_JPRB,0.45312E+02_JPRB /)  
+KB(:, 3,33,13) = (/ &
+ & 0.21817E+02_JPRB,0.46584E+02_JPRB,0.62510E+02_JPRB,0.68164E+02_JPRB,0.48601E+02_JPRB /)  
+KB(:, 4,33,13) = (/ &
+ & 0.25208E+02_JPRB,0.49716E+02_JPRB,0.65986E+02_JPRB,0.71546E+02_JPRB,0.51832E+02_JPRB /)  
+KB(:, 5,33,13) = (/ &
+ & 0.28769E+02_JPRB,0.52588E+02_JPRB,0.69085E+02_JPRB,0.74576E+02_JPRB,0.54996E+02_JPRB /)  
+KB(:, 1,34,13) = (/ &
+ & 0.16218E+02_JPRB,0.40255E+02_JPRB,0.55264E+02_JPRB,0.61104E+02_JPRB,0.42563E+02_JPRB /)  
+KB(:, 2,34,13) = (/ &
+ & 0.19136E+02_JPRB,0.43775E+02_JPRB,0.59363E+02_JPRB,0.65173E+02_JPRB,0.45933E+02_JPRB /)  
+KB(:, 3,34,13) = (/ &
+ & 0.22367E+02_JPRB,0.47148E+02_JPRB,0.63138E+02_JPRB,0.68848E+02_JPRB,0.49223E+02_JPRB /)  
+KB(:, 4,34,13) = (/ &
+ & 0.25824E+02_JPRB,0.50264E+02_JPRB,0.66569E+02_JPRB,0.72180E+02_JPRB,0.52454E+02_JPRB /)  
+KB(:, 5,34,13) = (/ &
+ & 0.29432E+02_JPRB,0.53119E+02_JPRB,0.69617E+02_JPRB,0.75149E+02_JPRB,0.55607E+02_JPRB /)  
+KB(:, 1,35,13) = (/ &
+ & 0.16382E+02_JPRB,0.40509E+02_JPRB,0.55591E+02_JPRB,0.61512E+02_JPRB,0.42891E+02_JPRB /)  
+KB(:, 2,35,13) = (/ &
+ & 0.19362E+02_JPRB,0.44056E+02_JPRB,0.59682E+02_JPRB,0.65556E+02_JPRB,0.46259E+02_JPRB /)  
+KB(:, 3,35,13) = (/ &
+ & 0.22646E+02_JPRB,0.47437E+02_JPRB,0.63450E+02_JPRB,0.69212E+02_JPRB,0.49551E+02_JPRB /)  
+KB(:, 4,35,13) = (/ &
+ & 0.26140E+02_JPRB,0.50553E+02_JPRB,0.66864E+02_JPRB,0.72519E+02_JPRB,0.52785E+02_JPRB /)  
+KB(:, 5,35,13) = (/ &
+ & 0.29778E+02_JPRB,0.53403E+02_JPRB,0.69889E+02_JPRB,0.75460E+02_JPRB,0.55937E+02_JPRB /)  
+KB(:, 1,36,13) = (/ &
+ & 0.16282E+02_JPRB,0.40412E+02_JPRB,0.55499E+02_JPRB,0.61489E+02_JPRB,0.42866E+02_JPRB /)  
+KB(:, 2,36,13) = (/ &
+ & 0.19286E+02_JPRB,0.43996E+02_JPRB,0.59618E+02_JPRB,0.65550E+02_JPRB,0.46244E+02_JPRB /)  
+KB(:, 3,36,13) = (/ &
+ & 0.22586E+02_JPRB,0.47399E+02_JPRB,0.63406E+02_JPRB,0.69212E+02_JPRB,0.49542E+02_JPRB /)  
+KB(:, 4,36,13) = (/ &
+ & 0.26096E+02_JPRB,0.50533E+02_JPRB,0.66829E+02_JPRB,0.72526E+02_JPRB,0.52781E+02_JPRB /)  
+KB(:, 5,36,13) = (/ &
+ & 0.29750E+02_JPRB,0.53407E+02_JPRB,0.69875E+02_JPRB,0.75478E+02_JPRB,0.55943E+02_JPRB /)  
+KB(:, 1,37,13) = (/ &
+ & 0.15776E+02_JPRB,0.39797E+02_JPRB,0.54788E+02_JPRB,0.60844E+02_JPRB,0.42332E+02_JPRB /)  
+KB(:, 2,37,13) = (/ &
+ & 0.18757E+02_JPRB,0.43418E+02_JPRB,0.58970E+02_JPRB,0.64965E+02_JPRB,0.45736E+02_JPRB /)  
+KB(:, 3,37,13) = (/ &
+ & 0.22032E+02_JPRB,0.46879E+02_JPRB,0.62830E+02_JPRB,0.68697E+02_JPRB,0.49053E+02_JPRB /)  
+KB(:, 4,37,13) = (/ &
+ & 0.25533E+02_JPRB,0.50076E+02_JPRB,0.66324E+02_JPRB,0.72072E+02_JPRB,0.52311E+02_JPRB /)  
+KB(:, 5,37,13) = (/ &
+ & 0.29180E+02_JPRB,0.52997E+02_JPRB,0.69437E+02_JPRB,0.75080E+02_JPRB,0.55481E+02_JPRB /)  
+KB(:, 1,38,13) = (/ &
+ & 0.15271E+02_JPRB,0.39166E+02_JPRB,0.54054E+02_JPRB,0.60165E+02_JPRB,0.41777E+02_JPRB /)  
+KB(:, 2,38,13) = (/ &
+ & 0.18227E+02_JPRB,0.42823E+02_JPRB,0.58302E+02_JPRB,0.64350E+02_JPRB,0.45207E+02_JPRB /)  
+KB(:, 3,38,13) = (/ &
+ & 0.21473E+02_JPRB,0.46333E+02_JPRB,0.62224E+02_JPRB,0.68144E+02_JPRB,0.48540E+02_JPRB /)  
+KB(:, 4,38,13) = (/ &
+ & 0.24954E+02_JPRB,0.49588E+02_JPRB,0.65790E+02_JPRB,0.71578E+02_JPRB,0.51811E+02_JPRB /)  
+KB(:, 5,38,13) = (/ &
+ & 0.28592E+02_JPRB,0.52564E+02_JPRB,0.68973E+02_JPRB,0.74653E+02_JPRB,0.55000E+02_JPRB /)  
+KB(:, 1,39,13) = (/ &
+ & 0.14788E+02_JPRB,0.38557E+02_JPRB,0.53339E+02_JPRB,0.59493E+02_JPRB,0.41232E+02_JPRB /)  
+KB(:, 2,39,13) = (/ &
+ & 0.17725E+02_JPRB,0.42239E+02_JPRB,0.57643E+02_JPRB,0.63735E+02_JPRB,0.44689E+02_JPRB /)  
+KB(:, 3,39,13) = (/ &
+ & 0.20936E+02_JPRB,0.45800E+02_JPRB,0.61629E+02_JPRB,0.67599E+02_JPRB,0.48036E+02_JPRB /)  
+KB(:, 4,39,13) = (/ &
+ & 0.24393E+02_JPRB,0.49102E+02_JPRB,0.65258E+02_JPRB,0.71089E+02_JPRB,0.51322E+02_JPRB /)  
+KB(:, 5,39,13) = (/ &
+ & 0.28020E+02_JPRB,0.52130E+02_JPRB,0.68507E+02_JPRB,0.74225E+02_JPRB,0.54528E+02_JPRB /)  
+KB(:, 1,40,13) = (/ &
+ & 0.14035E+02_JPRB,0.37576E+02_JPRB,0.52178E+02_JPRB,0.58374E+02_JPRB,0.40328E+02_JPRB /)  
+KB(:, 2,40,13) = (/ &
+ & 0.16933E+02_JPRB,0.41290E+02_JPRB,0.56557E+02_JPRB,0.62694E+02_JPRB,0.43829E+02_JPRB /)  
+KB(:, 3,40,13) = (/ &
+ & 0.20073E+02_JPRB,0.44909E+02_JPRB,0.60638E+02_JPRB,0.66668E+02_JPRB,0.47203E+02_JPRB /)  
+KB(:, 4,40,13) = (/ &
+ & 0.23486E+02_JPRB,0.48287E+02_JPRB,0.64365E+02_JPRB,0.70250E+02_JPRB,0.50504E+02_JPRB /)  
+KB(:, 5,40,13) = (/ &
+ & 0.27084E+02_JPRB,0.51393E+02_JPRB,0.67719E+02_JPRB,0.73485E+02_JPRB,0.53736E+02_JPRB /)  
+KB(:, 1,41,13) = (/ &
+ & 0.13270E+02_JPRB,0.36551E+02_JPRB,0.50952E+02_JPRB,0.57187E+02_JPRB,0.39381E+02_JPRB /)  
+KB(:, 2,41,13) = (/ &
+ & 0.16132E+02_JPRB,0.40293E+02_JPRB,0.55396E+02_JPRB,0.61573E+02_JPRB,0.42921E+02_JPRB /)  
+KB(:, 3,41,13) = (/ &
+ & 0.19195E+02_JPRB,0.43957E+02_JPRB,0.59575E+02_JPRB,0.65658E+02_JPRB,0.46320E+02_JPRB /)  
+KB(:, 4,41,13) = (/ &
+ & 0.22552E+02_JPRB,0.47415E+02_JPRB,0.63413E+02_JPRB,0.69340E+02_JPRB,0.49639E+02_JPRB /)  
+KB(:, 5,41,13) = (/ &
+ & 0.26115E+02_JPRB,0.50603E+02_JPRB,0.66868E+02_JPRB,0.72675E+02_JPRB,0.52897E+02_JPRB /)  
+KB(:, 1,42,13) = (/ &
+ & 0.12533E+02_JPRB,0.35537E+02_JPRB,0.49715E+02_JPRB,0.55979E+02_JPRB,0.38430E+02_JPRB /)  
+KB(:, 2,42,13) = (/ &
+ & 0.15340E+02_JPRB,0.39292E+02_JPRB,0.54229E+02_JPRB,0.60445E+02_JPRB,0.42004E+02_JPRB /)  
+KB(:, 3,42,13) = (/ &
+ & 0.18342E+02_JPRB,0.42991E+02_JPRB,0.58494E+02_JPRB,0.64631E+02_JPRB,0.45437E+02_JPRB /)  
+KB(:, 4,42,13) = (/ &
+ & 0.21634E+02_JPRB,0.46527E+02_JPRB,0.62435E+02_JPRB,0.68417E+02_JPRB,0.48777E+02_JPRB /)  
+KB(:, 5,42,13) = (/ &
+ & 0.25154E+02_JPRB,0.49791E+02_JPRB,0.65989E+02_JPRB,0.71836E+02_JPRB,0.52054E+02_JPRB /)  
+KB(:, 1,43,13) = (/ &
+ & 0.11668E+02_JPRB,0.34309E+02_JPRB,0.48203E+02_JPRB,0.54498E+02_JPRB,0.37270E+02_JPRB /)  
+KB(:, 2,43,13) = (/ &
+ & 0.14402E+02_JPRB,0.38082E+02_JPRB,0.52797E+02_JPRB,0.59048E+02_JPRB,0.40873E+02_JPRB /)  
+KB(:, 3,43,13) = (/ &
+ & 0.17344E+02_JPRB,0.41812E+02_JPRB,0.57160E+02_JPRB,0.63341E+02_JPRB,0.44355E+02_JPRB /)  
+KB(:, 4,43,13) = (/ &
+ & 0.20545E+02_JPRB,0.45427E+02_JPRB,0.61209E+02_JPRB,0.67260E+02_JPRB,0.47724E+02_JPRB /)  
+KB(:, 5,43,13) = (/ &
+ & 0.24007E+02_JPRB,0.48779E+02_JPRB,0.64893E+02_JPRB,0.70794E+02_JPRB,0.51019E+02_JPRB /)  
+KB(:, 1,44,13) = (/ &
+ & 0.10777E+02_JPRB,0.32982E+02_JPRB,0.46555E+02_JPRB,0.52865E+02_JPRB,0.36017E+02_JPRB /)  
+KB(:, 2,44,13) = (/ &
+ & 0.13422E+02_JPRB,0.36774E+02_JPRB,0.51234E+02_JPRB,0.57518E+02_JPRB,0.39647E+02_JPRB /)  
+KB(:, 3,44,13) = (/ &
+ & 0.16301E+02_JPRB,0.40529E+02_JPRB,0.55688E+02_JPRB,0.61909E+02_JPRB,0.43184E+02_JPRB /)  
+KB(:, 4,44,13) = (/ &
+ & 0.19410E+02_JPRB,0.44205E+02_JPRB,0.59841E+02_JPRB,0.65956E+02_JPRB,0.46575E+02_JPRB /)  
+KB(:, 5,44,13) = (/ &
+ & 0.22792E+02_JPRB,0.47657E+02_JPRB,0.63668E+02_JPRB,0.69623E+02_JPRB,0.49898E+02_JPRB /)  
+KB(:, 1,45,13) = (/ &
+ & 0.99376E+01_JPRB,0.31658E+02_JPRB,0.44891E+02_JPRB,0.51201E+02_JPRB,0.34758E+02_JPRB /)  
+KB(:, 2,45,13) = (/ &
+ & 0.12468E+02_JPRB,0.35468E+02_JPRB,0.49648E+02_JPRB,0.55955E+02_JPRB,0.38412E+02_JPRB /)  
+KB(:, 3,45,13) = (/ &
+ & 0.15282E+02_JPRB,0.39240E+02_JPRB,0.54182E+02_JPRB,0.60441E+02_JPRB,0.41991E+02_JPRB /)  
+KB(:, 4,45,13) = (/ &
+ & 0.18307E+02_JPRB,0.42958E+02_JPRB,0.58447E+02_JPRB,0.64617E+02_JPRB,0.45427E+02_JPRB /)  
+KB(:, 5,45,13) = (/ &
+ & 0.21602E+02_JPRB,0.46508E+02_JPRB,0.62404E+02_JPRB,0.68417E+02_JPRB,0.48775E+02_JPRB /)  
+KB(:, 1,46,13) = (/ &
+ & 0.90997E+01_JPRB,0.30250E+02_JPRB,0.43114E+02_JPRB,0.49420E+02_JPRB,0.33417E+02_JPRB /)  
+KB(:, 2,46,13) = (/ &
+ & 0.11497E+02_JPRB,0.34076E+02_JPRB,0.47932E+02_JPRB,0.54263E+02_JPRB,0.37087E+02_JPRB /)  
+KB(:, 3,46,13) = (/ &
+ & 0.14229E+02_JPRB,0.37865E+02_JPRB,0.52547E+02_JPRB,0.58836E+02_JPRB,0.40705E+02_JPRB /)  
+KB(:, 4,46,13) = (/ &
+ & 0.17178E+02_JPRB,0.41613E+02_JPRB,0.56930E+02_JPRB,0.63142E+02_JPRB,0.44193E+02_JPRB /)  
+KB(:, 5,46,13) = (/ &
+ & 0.20366E+02_JPRB,0.45251E+02_JPRB,0.61008E+02_JPRB,0.67091E+02_JPRB,0.47569E+02_JPRB /)  
+KB(:, 1,47,13) = (/ &
+ & 0.82326E+01_JPRB,0.28698E+02_JPRB,0.41131E+02_JPRB,0.47406E+02_JPRB,0.31895E+02_JPRB /)  
+KB(:, 2,47,13) = (/ &
+ & 0.10467E+02_JPRB,0.32516E+02_JPRB,0.45987E+02_JPRB,0.52322E+02_JPRB,0.35605E+02_JPRB /)  
+KB(:, 3,47,13) = (/ &
+ & 0.13084E+02_JPRB,0.36324E+02_JPRB,0.50700E+02_JPRB,0.57015E+02_JPRB,0.39250E+02_JPRB /)  
+KB(:, 4,47,13) = (/ &
+ & 0.15956E+02_JPRB,0.40097E+02_JPRB,0.55181E+02_JPRB,0.61437E+02_JPRB,0.42802E+02_JPRB /)  
+KB(:, 5,47,13) = (/ &
+ & 0.19031E+02_JPRB,0.43799E+02_JPRB,0.59396E+02_JPRB,0.65543E+02_JPRB,0.46212E+02_JPRB /)  
+KB(:, 1,48,13) = (/ &
+ & 0.74393E+01_JPRB,0.27161E+02_JPRB,0.39157E+02_JPRB,0.45343E+02_JPRB,0.30350E+02_JPRB /)  
+KB(:, 2,48,13) = (/ &
+ & 0.95049E+01_JPRB,0.30953E+02_JPRB,0.44020E+02_JPRB,0.50347E+02_JPRB,0.34113E+02_JPRB /)  
+KB(:, 3,48,13) = (/ &
+ & 0.11978E+02_JPRB,0.34782E+02_JPRB,0.48813E+02_JPRB,0.55151E+02_JPRB,0.37782E+02_JPRB /)  
+KB(:, 4,48,13) = (/ &
+ & 0.14764E+02_JPRB,0.38570E+02_JPRB,0.53387E+02_JPRB,0.59681E+02_JPRB,0.41384E+02_JPRB /)  
+KB(:, 5,48,13) = (/ &
+ & 0.17748E+02_JPRB,0.42312E+02_JPRB,0.57728E+02_JPRB,0.63933E+02_JPRB,0.44844E+02_JPRB /)  
+KB(:, 1,49,13) = (/ &
+ & 0.67167E+01_JPRB,0.25650E+02_JPRB,0.37197E+02_JPRB,0.43247E+02_JPRB,0.28796E+02_JPRB /)  
+KB(:, 2,49,13) = (/ &
+ & 0.86101E+01_JPRB,0.29402E+02_JPRB,0.42045E+02_JPRB,0.48354E+02_JPRB,0.32610E+02_JPRB /)  
+KB(:, 3,49,13) = (/ &
+ & 0.10926E+02_JPRB,0.33234E+02_JPRB,0.46891E+02_JPRB,0.53243E+02_JPRB,0.36305E+02_JPRB /)  
+KB(:, 4,49,13) = (/ &
+ & 0.13605E+02_JPRB,0.37035E+02_JPRB,0.51562E+02_JPRB,0.57884E+02_JPRB,0.39936E+02_JPRB /)  
+KB(:, 5,49,13) = (/ &
+ & 0.16513E+02_JPRB,0.40804E+02_JPRB,0.56010E+02_JPRB,0.62260E+02_JPRB,0.43466E+02_JPRB /)  
+KB(:, 1,50,13) = (/ &
+ & 0.60927E+01_JPRB,0.24264E+02_JPRB,0.35366E+02_JPRB,0.41271E+02_JPRB,0.27331E+02_JPRB /)  
+KB(:, 2,50,13) = (/ &
+ & 0.78376E+01_JPRB,0.27958E+02_JPRB,0.40194E+02_JPRB,0.46451E+02_JPRB,0.31176E+02_JPRB /)  
+KB(:, 3,50,13) = (/ &
+ & 0.99975E+01_JPRB,0.31777E+02_JPRB,0.45061E+02_JPRB,0.51408E+02_JPRB,0.34914E+02_JPRB /)  
+KB(:, 4,50,13) = (/ &
+ & 0.12552E+02_JPRB,0.35595E+02_JPRB,0.49816E+02_JPRB,0.56159E+02_JPRB,0.38569E+02_JPRB /)  
+KB(:, 5,50,13) = (/ &
+ & 0.15384E+02_JPRB,0.39379E+02_JPRB,0.54352E+02_JPRB,0.60637E+02_JPRB,0.42153E+02_JPRB /)  
+KB(:, 1,51,13) = (/ &
+ & 0.55303E+01_JPRB,0.22951E+02_JPRB,0.33599E+02_JPRB,0.39341E+02_JPRB,0.25901E+02_JPRB /)  
+KB(:, 2,51,13) = (/ &
+ & 0.71468E+01_JPRB,0.26574E+02_JPRB,0.38412E+02_JPRB,0.44565E+02_JPRB,0.29771E+02_JPRB /)  
+KB(:, 3,51,13) = (/ &
+ & 0.91530E+01_JPRB,0.30360E+02_JPRB,0.43274E+02_JPRB,0.49608E+02_JPRB,0.33559E+02_JPRB /)  
+KB(:, 4,51,13) = (/ &
+ & 0.11570E+02_JPRB,0.34196E+02_JPRB,0.48091E+02_JPRB,0.54457E+02_JPRB,0.37233E+02_JPRB /)  
+KB(:, 5,51,13) = (/ &
+ & 0.14322E+02_JPRB,0.37996E+02_JPRB,0.52708E+02_JPRB,0.59018E+02_JPRB,0.40851E+02_JPRB /)  
+KB(:, 1,52,13) = (/ &
+ & 0.50134E+01_JPRB,0.21673E+02_JPRB,0.31833E+02_JPRB,0.37382E+02_JPRB,0.24463E+02_JPRB /)  
+KB(:, 2,52,13) = (/ &
+ & 0.65135E+01_JPRB,0.25216E+02_JPRB,0.36639E+02_JPRB,0.42658E+02_JPRB,0.28359E+02_JPRB /)  
+KB(:, 3,52,13) = (/ &
+ & 0.83642E+01_JPRB,0.28959E+02_JPRB,0.41485E+02_JPRB,0.47797E+02_JPRB,0.32187E+02_JPRB /)  
+KB(:, 4,52,13) = (/ &
+ & 0.10636E+02_JPRB,0.32789E+02_JPRB,0.46344E+02_JPRB,0.52709E+02_JPRB,0.35895E+02_JPRB /)  
+KB(:, 5,52,13) = (/ &
+ & 0.13285E+02_JPRB,0.36604E+02_JPRB,0.51047E+02_JPRB,0.57380E+02_JPRB,0.39540E+02_JPRB /)  
+KB(:, 1,53,13) = (/ &
+ & 0.45376E+01_JPRB,0.20438E+02_JPRB,0.30067E+02_JPRB,0.35396E+02_JPRB,0.23001E+02_JPRB /)  
+KB(:, 2,53,13) = (/ &
+ & 0.59241E+01_JPRB,0.23884E+02_JPRB,0.34872E+02_JPRB,0.40744E+02_JPRB,0.26941E+02_JPRB /)  
+KB(:, 3,53,13) = (/ &
+ & 0.76354E+01_JPRB,0.27568E+02_JPRB,0.39698E+02_JPRB,0.45939E+02_JPRB,0.30794E+02_JPRB /)  
+KB(:, 4,53,13) = (/ &
+ & 0.97536E+01_JPRB,0.31378E+02_JPRB,0.44569E+02_JPRB,0.50924E+02_JPRB,0.34545E+02_JPRB /)  
+KB(:, 5,53,13) = (/ &
+ & 0.12275E+02_JPRB,0.35210E+02_JPRB,0.49348E+02_JPRB,0.55701E+02_JPRB,0.38212E+02_JPRB /)  
+KB(:, 1,54,13) = (/ &
+ & 0.41389E+01_JPRB,0.19353E+02_JPRB,0.28454E+02_JPRB,0.33563E+02_JPRB,0.21647E+02_JPRB /)  
+KB(:, 2,54,13) = (/ &
+ & 0.54194E+01_JPRB,0.22692E+02_JPRB,0.33259E+02_JPRB,0.38976E+02_JPRB,0.25632E+02_JPRB /)  
+KB(:, 3,54,13) = (/ &
+ & 0.70164E+01_JPRB,0.26307E+02_JPRB,0.38072E+02_JPRB,0.44208E+02_JPRB,0.29508E+02_JPRB /)  
+KB(:, 4,54,13) = (/ &
+ & 0.89936E+01_JPRB,0.30086E+02_JPRB,0.42934E+02_JPRB,0.49276E+02_JPRB,0.33306E+02_JPRB /)  
+KB(:, 5,54,13) = (/ &
+ & 0.11387E+02_JPRB,0.33931E+02_JPRB,0.47765E+02_JPRB,0.54132E+02_JPRB,0.36987E+02_JPRB /)  
+KB(:, 1,55,13) = (/ &
+ & 0.37927E+01_JPRB,0.18358E+02_JPRB,0.26927E+02_JPRB,0.31801E+02_JPRB,0.20350E+02_JPRB /)  
+KB(:, 2,55,13) = (/ &
+ & 0.49755E+01_JPRB,0.21582E+02_JPRB,0.31711E+02_JPRB,0.37250E+02_JPRB,0.24368E+02_JPRB /)  
+KB(:, 3,55,13) = (/ &
+ & 0.64669E+01_JPRB,0.25119E+02_JPRB,0.36517E+02_JPRB,0.42532E+02_JPRB,0.28268E+02_JPRB /)  
+KB(:, 4,55,13) = (/ &
+ & 0.83082E+01_JPRB,0.28857E+02_JPRB,0.41362E+02_JPRB,0.47679E+02_JPRB,0.32095E+02_JPRB /)  
+KB(:, 5,55,13) = (/ &
+ & 0.10573E+02_JPRB,0.32695E+02_JPRB,0.46225E+02_JPRB,0.52593E+02_JPRB,0.35810E+02_JPRB /)  
+KB(:, 1,56,13) = (/ &
+ & 0.34680E+01_JPRB,0.17374E+02_JPRB,0.25413E+02_JPRB,0.30039E+02_JPRB,0.19069E+02_JPRB /)  
+KB(:, 2,56,13) = (/ &
+ & 0.45601E+01_JPRB,0.20503E+02_JPRB,0.30163E+02_JPRB,0.35509E+02_JPRB,0.23088E+02_JPRB /)  
+KB(:, 3,56,13) = (/ &
+ & 0.59518E+01_JPRB,0.23956E+02_JPRB,0.34971E+02_JPRB,0.40858E+02_JPRB,0.27027E+02_JPRB /)  
+KB(:, 4,56,13) = (/ &
+ & 0.76711E+01_JPRB,0.27642E+02_JPRB,0.39801E+02_JPRB,0.46057E+02_JPRB,0.30878E+02_JPRB /)  
+KB(:, 5,56,13) = (/ &
+ & 0.98017E+01_JPRB,0.31462E+02_JPRB,0.44674E+02_JPRB,0.51031E+02_JPRB,0.34630E+02_JPRB /)  
+KB(:, 1,57,13) = (/ &
+ & 0.31571E+01_JPRB,0.16389E+02_JPRB,0.23903E+02_JPRB,0.28270E+02_JPRB,0.17802E+02_JPRB /)  
+KB(:, 2,57,13) = (/ &
+ & 0.41775E+01_JPRB,0.19466E+02_JPRB,0.28628E+02_JPRB,0.33765E+02_JPRB,0.21796E+02_JPRB /)  
+KB(:, 3,57,13) = (/ &
+ & 0.54676E+01_JPRB,0.22817E+02_JPRB,0.33433E+02_JPRB,0.39170E+02_JPRB,0.25777E+02_JPRB /)  
+KB(:, 4,57,13) = (/ &
+ & 0.70767E+01_JPRB,0.26436E+02_JPRB,0.38248E+02_JPRB,0.44404E+02_JPRB,0.29650E+02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART32',1,ZHOOK_HANDLE)
+END SUBROUTINE PART32
+
+
+SUBROUTINE PART33
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART33',0,ZHOOK_HANDLE)
+
+
+KB(:, 5,57,13) = (/ &
+ & 0.90728E+01_JPRB,0.30224E+02_JPRB,0.43110E+02_JPRB,0.49455E+02_JPRB,0.33445E+02_JPRB /)  
+KB(:, 1,58,13) = (/ &
+ & 0.28749E+01_JPRB,0.15464E+02_JPRB,0.22485E+02_JPRB,0.26596E+02_JPRB,0.16612E+02_JPRB /)  
+KB(:, 2,58,13) = (/ &
+ & 0.38438E+01_JPRB,0.18517E+02_JPRB,0.27179E+02_JPRB,0.32099E+02_JPRB,0.20568E+02_JPRB /)  
+KB(:, 3,58,13) = (/ &
+ & 0.50410E+01_JPRB,0.21758E+02_JPRB,0.31967E+02_JPRB,0.37546E+02_JPRB,0.24584E+02_JPRB /)  
+KB(:, 4,58,13) = (/ &
+ & 0.65535E+01_JPRB,0.25311E+02_JPRB,0.36779E+02_JPRB,0.42823E+02_JPRB,0.28478E+02_JPRB /)  
+KB(:, 5,58,13) = (/ &
+ & 0.84187E+01_JPRB,0.29065E+02_JPRB,0.41628E+02_JPRB,0.47951E+02_JPRB,0.32304E+02_JPRB /)  
+KB(:, 1,59,13) = (/ &
+ & 0.27657E+01_JPRB,0.15098E+02_JPRB,0.21927E+02_JPRB,0.25930E+02_JPRB,0.16137E+02_JPRB /)  
+KB(:, 2,59,13) = (/ &
+ & 0.37163E+01_JPRB,0.18141E+02_JPRB,0.26603E+02_JPRB,0.31433E+02_JPRB,0.20078E+02_JPRB /)  
+KB(:, 3,59,13) = (/ &
+ & 0.48770E+01_JPRB,0.21342E+02_JPRB,0.31379E+02_JPRB,0.36884E+02_JPRB,0.24100E+02_JPRB /)  
+KB(:, 4,59,13) = (/ &
+ & 0.63518E+01_JPRB,0.24865E+02_JPRB,0.36188E+02_JPRB,0.42182E+02_JPRB,0.28007E+02_JPRB /)  
+KB(:, 5,59,13) = (/ &
+ & 0.81684E+01_JPRB,0.28600E+02_JPRB,0.41035E+02_JPRB,0.47343E+02_JPRB,0.31847E+02_JPRB /)  
+KB(:, 1,13,14) = (/ &
+ & 0.20563E+03_JPRB,0.16395E+03_JPRB,0.15131E+03_JPRB,0.13928E+03_JPRB,0.17336E+03_JPRB /)  
+KB(:, 2,13,14) = (/ &
+ & 0.20583E+03_JPRB,0.16346E+03_JPRB,0.15102E+03_JPRB,0.13867E+03_JPRB,0.17209E+03_JPRB /)  
+KB(:, 3,13,14) = (/ &
+ & 0.20579E+03_JPRB,0.16282E+03_JPRB,0.15051E+03_JPRB,0.13803E+03_JPRB,0.17119E+03_JPRB /)  
+KB(:, 4,13,14) = (/ &
+ & 0.20538E+03_JPRB,0.16198E+03_JPRB,0.15005E+03_JPRB,0.13746E+03_JPRB,0.17062E+03_JPRB /)  
+KB(:, 5,13,14) = (/ &
+ & 0.20471E+03_JPRB,0.16100E+03_JPRB,0.14942E+03_JPRB,0.13685E+03_JPRB,0.16998E+03_JPRB /)  
+KB(:, 1,14,14) = (/ &
+ & 0.21387E+03_JPRB,0.17486E+03_JPRB,0.16410E+03_JPRB,0.14896E+03_JPRB,0.17926E+03_JPRB /)  
+KB(:, 2,14,14) = (/ &
+ & 0.21398E+03_JPRB,0.17407E+03_JPRB,0.16354E+03_JPRB,0.14849E+03_JPRB,0.17872E+03_JPRB /)  
+KB(:, 3,14,14) = (/ &
+ & 0.21371E+03_JPRB,0.17306E+03_JPRB,0.16300E+03_JPRB,0.14796E+03_JPRB,0.17838E+03_JPRB /)  
+KB(:, 4,14,14) = (/ &
+ & 0.21320E+03_JPRB,0.17193E+03_JPRB,0.16238E+03_JPRB,0.14748E+03_JPRB,0.17807E+03_JPRB /)  
+KB(:, 5,14,14) = (/ &
+ & 0.21239E+03_JPRB,0.17062E+03_JPRB,0.16158E+03_JPRB,0.14661E+03_JPRB,0.17726E+03_JPRB /)  
+KB(:, 1,15,14) = (/ &
+ & 0.21868E+03_JPRB,0.18392E+03_JPRB,0.17597E+03_JPRB,0.15877E+03_JPRB,0.18409E+03_JPRB /)  
+KB(:, 2,15,14) = (/ &
+ & 0.21861E+03_JPRB,0.18285E+03_JPRB,0.17533E+03_JPRB,0.15845E+03_JPRB,0.18413E+03_JPRB /)  
+KB(:, 3,15,14) = (/ &
+ & 0.21838E+03_JPRB,0.18168E+03_JPRB,0.17469E+03_JPRB,0.15814E+03_JPRB,0.18423E+03_JPRB /)  
+KB(:, 4,15,14) = (/ &
+ & 0.21785E+03_JPRB,0.18028E+03_JPRB,0.17392E+03_JPRB,0.15747E+03_JPRB,0.18391E+03_JPRB /)  
+KB(:, 5,15,14) = (/ &
+ & 0.21714E+03_JPRB,0.17881E+03_JPRB,0.17281E+03_JPRB,0.15644E+03_JPRB,0.18337E+03_JPRB /)  
+KB(:, 1,16,14) = (/ &
+ & 0.21989E+03_JPRB,0.19090E+03_JPRB,0.18666E+03_JPRB,0.16823E+03_JPRB,0.18717E+03_JPRB /)  
+KB(:, 2,16,14) = (/ &
+ & 0.22000E+03_JPRB,0.18989E+03_JPRB,0.18604E+03_JPRB,0.16822E+03_JPRB,0.18797E+03_JPRB /)  
+KB(:, 3,16,14) = (/ &
+ & 0.21982E+03_JPRB,0.18856E+03_JPRB,0.18533E+03_JPRB,0.16794E+03_JPRB,0.18851E+03_JPRB /)  
+KB(:, 4,16,14) = (/ &
+ & 0.21954E+03_JPRB,0.18709E+03_JPRB,0.18432E+03_JPRB,0.16715E+03_JPRB,0.18854E+03_JPRB /)  
+KB(:, 5,16,14) = (/ &
+ & 0.21898E+03_JPRB,0.18542E+03_JPRB,0.18303E+03_JPRB,0.16600E+03_JPRB,0.18839E+03_JPRB /)  
+KB(:, 1,17,14) = (/ &
+ & 0.21793E+03_JPRB,0.19596E+03_JPRB,0.19603E+03_JPRB,0.17703E+03_JPRB,0.18857E+03_JPRB /)  
+KB(:, 2,17,14) = (/ &
+ & 0.21821E+03_JPRB,0.19492E+03_JPRB,0.19548E+03_JPRB,0.17725E+03_JPRB,0.19023E+03_JPRB /)  
+KB(:, 3,17,14) = (/ &
+ & 0.21850E+03_JPRB,0.19369E+03_JPRB,0.19462E+03_JPRB,0.17701E+03_JPRB,0.19133E+03_JPRB /)  
+KB(:, 4,17,14) = (/ &
+ & 0.21855E+03_JPRB,0.19221E+03_JPRB,0.19343E+03_JPRB,0.17616E+03_JPRB,0.19194E+03_JPRB /)  
+KB(:, 5,17,14) = (/ &
+ & 0.21839E+03_JPRB,0.19057E+03_JPRB,0.19206E+03_JPRB,0.17490E+03_JPRB,0.19225E+03_JPRB /)  
+KB(:, 1,18,14) = (/ &
+ & 0.21311E+03_JPRB,0.19935E+03_JPRB,0.20385E+03_JPRB,0.18492E+03_JPRB,0.18864E+03_JPRB /)  
+KB(:, 2,18,14) = (/ &
+ & 0.21399E+03_JPRB,0.19838E+03_JPRB,0.20339E+03_JPRB,0.18536E+03_JPRB,0.19117E+03_JPRB /)  
+KB(:, 3,18,14) = (/ &
+ & 0.21477E+03_JPRB,0.19727E+03_JPRB,0.20251E+03_JPRB,0.18517E+03_JPRB,0.19296E+03_JPRB /)  
+KB(:, 4,18,14) = (/ &
+ & 0.21537E+03_JPRB,0.19602E+03_JPRB,0.20131E+03_JPRB,0.18433E+03_JPRB,0.19426E+03_JPRB /)  
+KB(:, 5,18,14) = (/ &
+ & 0.21594E+03_JPRB,0.19460E+03_JPRB,0.19989E+03_JPRB,0.18299E+03_JPRB,0.19511E+03_JPRB /)  
+KB(:, 1,19,14) = (/ &
+ & 0.20628E+03_JPRB,0.20131E+03_JPRB,0.21018E+03_JPRB,0.19181E+03_JPRB,0.18780E+03_JPRB /)  
+KB(:, 2,19,14) = (/ &
+ & 0.20786E+03_JPRB,0.20061E+03_JPRB,0.20985E+03_JPRB,0.19249E+03_JPRB,0.19117E+03_JPRB /)  
+KB(:, 3,19,14) = (/ &
+ & 0.20939E+03_JPRB,0.19978E+03_JPRB,0.20915E+03_JPRB,0.19245E+03_JPRB,0.19379E+03_JPRB /)  
+KB(:, 4,19,14) = (/ &
+ & 0.21078E+03_JPRB,0.19876E+03_JPRB,0.20808E+03_JPRB,0.19159E+03_JPRB,0.19578E+03_JPRB /)  
+KB(:, 5,19,14) = (/ &
+ & 0.21196E+03_JPRB,0.19762E+03_JPRB,0.20666E+03_JPRB,0.19020E+03_JPRB,0.19726E+03_JPRB /)  
+KB(:, 1,20,14) = (/ &
+ & 0.19806E+03_JPRB,0.20215E+03_JPRB,0.21525E+03_JPRB,0.19781E+03_JPRB,0.18646E+03_JPRB /)  
+KB(:, 2,20,14) = (/ &
+ & 0.20054E+03_JPRB,0.20180E+03_JPRB,0.21527E+03_JPRB,0.19874E+03_JPRB,0.19072E+03_JPRB /)  
+KB(:, 3,20,14) = (/ &
+ & 0.20298E+03_JPRB,0.20132E+03_JPRB,0.21478E+03_JPRB,0.19877E+03_JPRB,0.19413E+03_JPRB /)  
+KB(:, 4,20,14) = (/ &
+ & 0.20522E+03_JPRB,0.20070E+03_JPRB,0.21384E+03_JPRB,0.19793E+03_JPRB,0.19681E+03_JPRB /)  
+KB(:, 5,20,14) = (/ &
+ & 0.20725E+03_JPRB,0.19975E+03_JPRB,0.21249E+03_JPRB,0.19659E+03_JPRB,0.19899E+03_JPRB /)  
+KB(:, 1,21,14) = (/ &
+ & 0.18919E+03_JPRB,0.20217E+03_JPRB,0.21942E+03_JPRB,0.20291E+03_JPRB,0.18499E+03_JPRB /)  
+KB(:, 2,21,14) = (/ &
+ & 0.19268E+03_JPRB,0.20239E+03_JPRB,0.21974E+03_JPRB,0.20415E+03_JPRB,0.19012E+03_JPRB /)  
+KB(:, 3,21,14) = (/ &
+ & 0.19609E+03_JPRB,0.20231E+03_JPRB,0.21947E+03_JPRB,0.20425E+03_JPRB,0.19432E+03_JPRB /)  
+KB(:, 4,21,14) = (/ &
+ & 0.19926E+03_JPRB,0.20201E+03_JPRB,0.21866E+03_JPRB,0.20346E+03_JPRB,0.19770E+03_JPRB /)  
+KB(:, 5,21,14) = (/ &
+ & 0.20224E+03_JPRB,0.20136E+03_JPRB,0.21742E+03_JPRB,0.20212E+03_JPRB,0.20044E+03_JPRB /)  
+KB(:, 1,22,14) = (/ &
+ & 0.18064E+03_JPRB,0.20182E+03_JPRB,0.22276E+03_JPRB,0.20740E+03_JPRB,0.18409E+03_JPRB /)  
+KB(:, 2,22,14) = (/ &
+ & 0.18513E+03_JPRB,0.20253E+03_JPRB,0.22341E+03_JPRB,0.20876E+03_JPRB,0.18988E+03_JPRB /)  
+KB(:, 3,22,14) = (/ &
+ & 0.18951E+03_JPRB,0.20287E+03_JPRB,0.22329E+03_JPRB,0.20890E+03_JPRB,0.19474E+03_JPRB /)  
+KB(:, 4,22,14) = (/ &
+ & 0.19368E+03_JPRB,0.20283E+03_JPRB,0.22259E+03_JPRB,0.20812E+03_JPRB,0.19869E+03_JPRB /)  
+KB(:, 5,22,14) = (/ &
+ & 0.19752E+03_JPRB,0.20248E+03_JPRB,0.22143E+03_JPRB,0.20676E+03_JPRB,0.20185E+03_JPRB /)  
+KB(:, 1,23,14) = (/ &
+ & 0.17261E+03_JPRB,0.20129E+03_JPRB,0.22560E+03_JPRB,0.21126E+03_JPRB,0.18360E+03_JPRB /)  
+KB(:, 2,23,14) = (/ &
+ & 0.17813E+03_JPRB,0.20255E+03_JPRB,0.22645E+03_JPRB,0.21277E+03_JPRB,0.18993E+03_JPRB /)  
+KB(:, 3,23,14) = (/ &
+ & 0.18347E+03_JPRB,0.20322E+03_JPRB,0.22649E+03_JPRB,0.21288E+03_JPRB,0.19534E+03_JPRB /)  
+KB(:, 4,23,14) = (/ &
+ & 0.18858E+03_JPRB,0.20345E+03_JPRB,0.22593E+03_JPRB,0.21211E+03_JPRB,0.19972E+03_JPRB /)  
+KB(:, 5,23,14) = (/ &
+ & 0.19325E+03_JPRB,0.20330E+03_JPRB,0.22470E+03_JPRB,0.21066E+03_JPRB,0.20314E+03_JPRB /)  
+KB(:, 1,24,14) = (/ &
+ & 0.16550E+03_JPRB,0.20079E+03_JPRB,0.22797E+03_JPRB,0.21459E+03_JPRB,0.18352E+03_JPRB /)  
+KB(:, 2,24,14) = (/ &
+ & 0.17199E+03_JPRB,0.20247E+03_JPRB,0.22899E+03_JPRB,0.21614E+03_JPRB,0.19031E+03_JPRB /)  
+KB(:, 3,24,14) = (/ &
+ & 0.17829E+03_JPRB,0.20349E+03_JPRB,0.22920E+03_JPRB,0.21621E+03_JPRB,0.19610E+03_JPRB /)  
+KB(:, 4,24,14) = (/ &
+ & 0.18424E+03_JPRB,0.20395E+03_JPRB,0.22865E+03_JPRB,0.21544E+03_JPRB,0.20080E+03_JPRB /)  
+KB(:, 5,24,14) = (/ &
+ & 0.18966E+03_JPRB,0.20393E+03_JPRB,0.22735E+03_JPRB,0.21388E+03_JPRB,0.20437E+03_JPRB /)  
+KB(:, 1,25,14) = (/ &
+ & 0.15949E+03_JPRB,0.20048E+03_JPRB,0.22999E+03_JPRB,0.21758E+03_JPRB,0.18395E+03_JPRB /)  
+KB(:, 2,25,14) = (/ &
+ & 0.16698E+03_JPRB,0.20247E+03_JPRB,0.23119E+03_JPRB,0.21903E+03_JPRB,0.19108E+03_JPRB /)  
+KB(:, 3,25,14) = (/ &
+ & 0.17411E+03_JPRB,0.20370E+03_JPRB,0.23144E+03_JPRB,0.21904E+03_JPRB,0.19711E+03_JPRB /)  
+KB(:, 4,25,14) = (/ &
+ & 0.18088E+03_JPRB,0.20435E+03_JPRB,0.23082E+03_JPRB,0.21817E+03_JPRB,0.20192E+03_JPRB /)  
+KB(:, 5,25,14) = (/ &
+ & 0.18710E+03_JPRB,0.20450E+03_JPRB,0.22950E+03_JPRB,0.21648E+03_JPRB,0.20559E+03_JPRB /)  
+KB(:, 1,26,14) = (/ &
+ & 0.15479E+03_JPRB,0.20038E+03_JPRB,0.23181E+03_JPRB,0.22016E+03_JPRB,0.18490E+03_JPRB /)  
+KB(:, 2,26,14) = (/ &
+ & 0.16322E+03_JPRB,0.20258E+03_JPRB,0.23307E+03_JPRB,0.22145E+03_JPRB,0.19222E+03_JPRB /)  
+KB(:, 3,26,14) = (/ &
+ & 0.17119E+03_JPRB,0.20401E+03_JPRB,0.23326E+03_JPRB,0.22140E+03_JPRB,0.19831E+03_JPRB /)  
+KB(:, 4,26,14) = (/ &
+ & 0.17866E+03_JPRB,0.20478E+03_JPRB,0.23259E+03_JPRB,0.22038E+03_JPRB,0.20315E+03_JPRB /)  
+KB(:, 5,26,14) = (/ &
+ & 0.18553E+03_JPRB,0.20498E+03_JPRB,0.23122E+03_JPRB,0.21854E+03_JPRB,0.20685E+03_JPRB /)  
+KB(:, 1,27,14) = (/ &
+ & 0.15143E+03_JPRB,0.20049E+03_JPRB,0.23344E+03_JPRB,0.22241E+03_JPRB,0.18615E+03_JPRB /)  
+KB(:, 2,27,14) = (/ &
+ & 0.16070E+03_JPRB,0.20279E+03_JPRB,0.23465E+03_JPRB,0.22352E+03_JPRB,0.19353E+03_JPRB /)  
+KB(:, 3,27,14) = (/ &
+ & 0.16932E+03_JPRB,0.20430E+03_JPRB,0.23473E+03_JPRB,0.22331E+03_JPRB,0.19960E+03_JPRB /)  
+KB(:, 4,27,14) = (/ &
+ & 0.17737E+03_JPRB,0.20518E+03_JPRB,0.23402E+03_JPRB,0.22212E+03_JPRB,0.20440E+03_JPRB /)  
+KB(:, 5,27,14) = (/ &
+ & 0.18472E+03_JPRB,0.20537E+03_JPRB,0.23257E+03_JPRB,0.22015E+03_JPRB,0.20807E+03_JPRB /)  
+KB(:, 1,28,14) = (/ &
+ & 0.14935E+03_JPRB,0.20078E+03_JPRB,0.23487E+03_JPRB,0.22436E+03_JPRB,0.18762E+03_JPRB /)  
+KB(:, 2,28,14) = (/ &
+ & 0.15926E+03_JPRB,0.20312E+03_JPRB,0.23597E+03_JPRB,0.22523E+03_JPRB,0.19491E+03_JPRB /)  
+KB(:, 3,28,14) = (/ &
+ & 0.16839E+03_JPRB,0.20467E+03_JPRB,0.23597E+03_JPRB,0.22484E+03_JPRB,0.20092E+03_JPRB /)  
+KB(:, 4,28,14) = (/ &
+ & 0.17687E+03_JPRB,0.20554E+03_JPRB,0.23516E+03_JPRB,0.22345E+03_JPRB,0.20562E+03_JPRB /)  
+KB(:, 5,28,14) = (/ &
+ & 0.18453E+03_JPRB,0.20570E+03_JPRB,0.23357E+03_JPRB,0.22135E+03_JPRB,0.20921E+03_JPRB /)  
+KB(:, 1,29,14) = (/ &
+ & 0.14844E+03_JPRB,0.20117E+03_JPRB,0.23614E+03_JPRB,0.22601E+03_JPRB,0.18927E+03_JPRB /)  
+KB(:, 2,29,14) = (/ &
+ & 0.15878E+03_JPRB,0.20350E+03_JPRB,0.23707E+03_JPRB,0.22664E+03_JPRB,0.19642E+03_JPRB /)  
+KB(:, 3,29,14) = (/ &
+ & 0.16829E+03_JPRB,0.20505E+03_JPRB,0.23696E+03_JPRB,0.22601E+03_JPRB,0.20229E+03_JPRB /)  
+KB(:, 4,29,14) = (/ &
+ & 0.17702E+03_JPRB,0.20585E+03_JPRB,0.23602E+03_JPRB,0.22445E+03_JPRB,0.20685E+03_JPRB /)  
+KB(:, 5,29,14) = (/ &
+ & 0.18487E+03_JPRB,0.20599E+03_JPRB,0.23430E+03_JPRB,0.22220E+03_JPRB,0.21031E+03_JPRB /)  
+KB(:, 1,30,14) = (/ &
+ & 0.14841E+03_JPRB,0.20165E+03_JPRB,0.23724E+03_JPRB,0.22742E+03_JPRB,0.19101E+03_JPRB /)  
+KB(:, 2,30,14) = (/ &
+ & 0.15903E+03_JPRB,0.20395E+03_JPRB,0.23798E+03_JPRB,0.22774E+03_JPRB,0.19796E+03_JPRB /)  
+KB(:, 3,30,14) = (/ &
+ & 0.16878E+03_JPRB,0.20543E+03_JPRB,0.23774E+03_JPRB,0.22689E+03_JPRB,0.20367E+03_JPRB /)  
+KB(:, 4,30,14) = (/ &
+ & 0.17765E+03_JPRB,0.20614E+03_JPRB,0.23662E+03_JPRB,0.22515E+03_JPRB,0.20804E+03_JPRB /)  
+KB(:, 5,30,14) = (/ &
+ & 0.18556E+03_JPRB,0.20626E+03_JPRB,0.23478E+03_JPRB,0.22274E+03_JPRB,0.21133E+03_JPRB /)  
+KB(:, 1,31,14) = (/ &
+ & 0.14910E+03_JPRB,0.20219E+03_JPRB,0.23816E+03_JPRB,0.22857E+03_JPRB,0.19280E+03_JPRB /)  
+KB(:, 2,31,14) = (/ &
+ & 0.15987E+03_JPRB,0.20442E+03_JPRB,0.23873E+03_JPRB,0.22860E+03_JPRB,0.19955E+03_JPRB /)  
+KB(:, 3,31,14) = (/ &
+ & 0.16974E+03_JPRB,0.20578E+03_JPRB,0.23830E+03_JPRB,0.22751E+03_JPRB,0.20503E+03_JPRB /)  
+KB(:, 4,31,14) = (/ &
+ & 0.17870E+03_JPRB,0.20640E+03_JPRB,0.23703E+03_JPRB,0.22559E+03_JPRB,0.20917E+03_JPRB /)  
+KB(:, 5,31,14) = (/ &
+ & 0.18656E+03_JPRB,0.20647E+03_JPRB,0.23504E+03_JPRB,0.22303E+03_JPRB,0.21232E+03_JPRB /)  
+KB(:, 1,32,14) = (/ &
+ & 0.15031E+03_JPRB,0.20279E+03_JPRB,0.23897E+03_JPRB,0.22949E+03_JPRB,0.19459E+03_JPRB /)  
+KB(:, 2,32,14) = (/ &
+ & 0.16119E+03_JPRB,0.20489E+03_JPRB,0.23931E+03_JPRB,0.22922E+03_JPRB,0.20113E+03_JPRB /)  
+KB(:, 3,32,14) = (/ &
+ & 0.17110E+03_JPRB,0.20610E+03_JPRB,0.23869E+03_JPRB,0.22791E+03_JPRB,0.20634E+03_JPRB /)  
+KB(:, 4,32,14) = (/ &
+ & 0.18002E+03_JPRB,0.20662E+03_JPRB,0.23723E+03_JPRB,0.22582E+03_JPRB,0.21029E+03_JPRB /)  
+KB(:, 5,32,14) = (/ &
+ & 0.18777E+03_JPRB,0.20659E+03_JPRB,0.23510E+03_JPRB,0.22308E+03_JPRB,0.21322E+03_JPRB /)  
+KB(:, 1,33,14) = (/ &
+ & 0.15197E+03_JPRB,0.20341E+03_JPRB,0.23965E+03_JPRB,0.23019E+03_JPRB,0.19639E+03_JPRB /)  
+KB(:, 2,33,14) = (/ &
+ & 0.16285E+03_JPRB,0.20534E+03_JPRB,0.23976E+03_JPRB,0.22964E+03_JPRB,0.20267E+03_JPRB /)  
+KB(:, 3,33,14) = (/ &
+ & 0.17270E+03_JPRB,0.20638E+03_JPRB,0.23893E+03_JPRB,0.22811E+03_JPRB,0.20758E+03_JPRB /)  
+KB(:, 4,33,14) = (/ &
+ & 0.18151E+03_JPRB,0.20680E+03_JPRB,0.23727E+03_JPRB,0.22584E+03_JPRB,0.21132E+03_JPRB /)  
+KB(:, 5,33,14) = (/ &
+ & 0.18912E+03_JPRB,0.20665E+03_JPRB,0.23500E+03_JPRB,0.22296E+03_JPRB,0.21406E+03_JPRB /)  
+KB(:, 1,34,14) = (/ &
+ & 0.15352E+03_JPRB,0.20391E+03_JPRB,0.24014E+03_JPRB,0.23069E+03_JPRB,0.19790E+03_JPRB /)  
+KB(:, 2,34,14) = (/ &
+ & 0.16437E+03_JPRB,0.20566E+03_JPRB,0.24006E+03_JPRB,0.22992E+03_JPRB,0.20396E+03_JPRB /)  
+KB(:, 3,34,14) = (/ &
+ & 0.17416E+03_JPRB,0.20662E+03_JPRB,0.23907E+03_JPRB,0.22823E+03_JPRB,0.20863E+03_JPRB /)  
+KB(:, 4,34,14) = (/ &
+ & 0.18285E+03_JPRB,0.20695E+03_JPRB,0.23728E+03_JPRB,0.22580E+03_JPRB,0.21218E+03_JPRB /)  
+KB(:, 5,34,14) = (/ &
+ & 0.19033E+03_JPRB,0.20667E+03_JPRB,0.23487E+03_JPRB,0.22280E+03_JPRB,0.21474E+03_JPRB /)  
+KB(:, 1,35,14) = (/ &
+ & 0.15421E+03_JPRB,0.20418E+03_JPRB,0.24052E+03_JPRB,0.23110E+03_JPRB,0.19876E+03_JPRB /)  
+KB(:, 2,35,14) = (/ &
+ & 0.16507E+03_JPRB,0.20586E+03_JPRB,0.24033E+03_JPRB,0.23020E+03_JPRB,0.20468E+03_JPRB /)  
+KB(:, 3,35,14) = (/ &
+ & 0.17486E+03_JPRB,0.20677E+03_JPRB,0.23924E+03_JPRB,0.22841E+03_JPRB,0.20923E+03_JPRB /)  
+KB(:, 4,35,14) = (/ &
+ & 0.18350E+03_JPRB,0.20705E+03_JPRB,0.23737E+03_JPRB,0.22589E+03_JPRB,0.21269E+03_JPRB /)  
+KB(:, 5,35,14) = (/ &
+ & 0.19094E+03_JPRB,0.20669E+03_JPRB,0.23489E+03_JPRB,0.22281E+03_JPRB,0.21514E+03_JPRB /)  
+KB(:, 1,36,14) = (/ &
+ & 0.15381E+03_JPRB,0.20424E+03_JPRB,0.24080E+03_JPRB,0.23145E+03_JPRB,0.19888E+03_JPRB /)  
+KB(:, 2,36,14) = (/ &
+ & 0.16478E+03_JPRB,0.20592E+03_JPRB,0.24060E+03_JPRB,0.23055E+03_JPRB,0.20484E+03_JPRB /)  
+KB(:, 3,36,14) = (/ &
+ & 0.17464E+03_JPRB,0.20684E+03_JPRB,0.23950E+03_JPRB,0.22874E+03_JPRB,0.20938E+03_JPRB /)  
+KB(:, 4,36,14) = (/ &
+ & 0.18336E+03_JPRB,0.20715E+03_JPRB,0.23762E+03_JPRB,0.22618E+03_JPRB,0.21284E+03_JPRB /)  
+KB(:, 5,36,14) = (/ &
+ & 0.19086E+03_JPRB,0.20678E+03_JPRB,0.23514E+03_JPRB,0.22311E+03_JPRB,0.21532E+03_JPRB /)  
+KB(:, 1,37,14) = (/ &
+ & 0.15177E+03_JPRB,0.20394E+03_JPRB,0.24096E+03_JPRB,0.23178E+03_JPRB,0.19802E+03_JPRB /)  
+KB(:, 2,37,14) = (/ &
+ & 0.16298E+03_JPRB,0.20578E+03_JPRB,0.24091E+03_JPRB,0.23102E+03_JPRB,0.20416E+03_JPRB /)  
+KB(:, 3,37,14) = (/ &
+ & 0.17307E+03_JPRB,0.20681E+03_JPRB,0.23994E+03_JPRB,0.22934E+03_JPRB,0.20893E+03_JPRB /)  
+KB(:, 4,37,14) = (/ &
+ & 0.18204E+03_JPRB,0.20721E+03_JPRB,0.23818E+03_JPRB,0.22688E+03_JPRB,0.21255E+03_JPRB /)  
+KB(:, 5,37,14) = (/ &
+ & 0.18973E+03_JPRB,0.20695E+03_JPRB,0.23573E+03_JPRB,0.22383E+03_JPRB,0.21516E+03_JPRB /)  
+KB(:, 1,38,14) = (/ &
+ & 0.14968E+03_JPRB,0.20359E+03_JPRB,0.24104E+03_JPRB,0.23202E+03_JPRB,0.19703E+03_JPRB /)  
+KB(:, 2,38,14) = (/ &
+ & 0.16113E+03_JPRB,0.20560E+03_JPRB,0.24116E+03_JPRB,0.23143E+03_JPRB,0.20341E+03_JPRB /)  
+KB(:, 3,38,14) = (/ &
+ & 0.17144E+03_JPRB,0.20674E+03_JPRB,0.24033E+03_JPRB,0.22988E+03_JPRB,0.20838E+03_JPRB /)  
+KB(:, 4,38,14) = (/ &
+ & 0.18063E+03_JPRB,0.20724E+03_JPRB,0.23866E+03_JPRB,0.22752E+03_JPRB,0.21216E+03_JPRB /)  
+KB(:, 5,38,14) = (/ &
+ & 0.18855E+03_JPRB,0.20710E+03_JPRB,0.23632E+03_JPRB,0.22453E+03_JPRB,0.21493E+03_JPRB /)  
+KB(:, 1,39,14) = (/ &
+ & 0.14764E+03_JPRB,0.20322E+03_JPRB,0.24106E+03_JPRB,0.23220E+03_JPRB,0.19604E+03_JPRB /)  
+KB(:, 2,39,14) = (/ &
+ & 0.15932E+03_JPRB,0.20540E+03_JPRB,0.24137E+03_JPRB,0.23180E+03_JPRB,0.20262E+03_JPRB /)  
+KB(:, 3,39,14) = (/ &
+ & 0.16984E+03_JPRB,0.20665E+03_JPRB,0.24065E+03_JPRB,0.23036E+03_JPRB,0.20781E+03_JPRB /)  
+KB(:, 4,39,14) = (/ &
+ & 0.17923E+03_JPRB,0.20725E+03_JPRB,0.23910E+03_JPRB,0.22810E+03_JPRB,0.21175E+03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART33',1,ZHOOK_HANDLE)
+END SUBROUTINE PART33
+
+
+SUBROUTINE PART34
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART34',0,ZHOOK_HANDLE)
+
+
+KB(:, 5,39,14) = (/ &
+ & 0.18737E+03_JPRB,0.20722E+03_JPRB,0.23684E+03_JPRB,0.22517E+03_JPRB,0.21467E+03_JPRB /)  
+KB(:, 1,40,14) = (/ &
+ & 0.14438E+03_JPRB,0.20254E+03_JPRB,0.24092E+03_JPRB,0.23225E+03_JPRB,0.19425E+03_JPRB /)  
+KB(:, 2,40,14) = (/ &
+ & 0.15633E+03_JPRB,0.20498E+03_JPRB,0.24152E+03_JPRB,0.23217E+03_JPRB,0.20115E+03_JPRB /)  
+KB(:, 3,40,14) = (/ &
+ & 0.16718E+03_JPRB,0.20642E+03_JPRB,0.24105E+03_JPRB,0.23096E+03_JPRB,0.20672E+03_JPRB /)  
+KB(:, 4,40,14) = (/ &
+ & 0.17690E+03_JPRB,0.20720E+03_JPRB,0.23969E+03_JPRB,0.22887E+03_JPRB,0.21093E+03_JPRB /)  
+KB(:, 5,40,14) = (/ &
+ & 0.18539E+03_JPRB,0.20733E+03_JPRB,0.23758E+03_JPRB,0.22609E+03_JPRB,0.21411E+03_JPRB /)  
+KB(:, 1,41,14) = (/ &
+ & 0.14093E+03_JPRB,0.20170E+03_JPRB,0.24062E+03_JPRB,0.23214E+03_JPRB,0.19226E+03_JPRB /)  
+KB(:, 2,41,14) = (/ &
+ & 0.15309E+03_JPRB,0.20441E+03_JPRB,0.24155E+03_JPRB,0.23243E+03_JPRB,0.19951E+03_JPRB /)  
+KB(:, 3,41,14) = (/ &
+ & 0.16434E+03_JPRB,0.20613E+03_JPRB,0.24136E+03_JPRB,0.23149E+03_JPRB,0.20545E+03_JPRB /)  
+KB(:, 4,41,14) = (/ &
+ & 0.17439E+03_JPRB,0.20709E+03_JPRB,0.24022E+03_JPRB,0.22963E+03_JPRB,0.21000E+03_JPRB /)  
+KB(:, 5,41,14) = (/ &
+ & 0.18325E+03_JPRB,0.20739E+03_JPRB,0.23829E+03_JPRB,0.22700E+03_JPRB,0.21344E+03_JPRB /)  
+KB(:, 1,42,14) = (/ &
+ & 0.13742E+03_JPRB,0.20072E+03_JPRB,0.24018E+03_JPRB,0.23188E+03_JPRB,0.19017E+03_JPRB /)  
+KB(:, 2,42,14) = (/ &
+ & 0.14987E+03_JPRB,0.20381E+03_JPRB,0.24151E+03_JPRB,0.23260E+03_JPRB,0.19778E+03_JPRB /)  
+KB(:, 3,42,14) = (/ &
+ & 0.16144E+03_JPRB,0.20580E+03_JPRB,0.24159E+03_JPRB,0.23194E+03_JPRB,0.20408E+03_JPRB /)  
+KB(:, 4,42,14) = (/ &
+ & 0.17182E+03_JPRB,0.20693E+03_JPRB,0.24068E+03_JPRB,0.23030E+03_JPRB,0.20897E+03_JPRB /)  
+KB(:, 5,42,14) = (/ &
+ & 0.18101E+03_JPRB,0.20739E+03_JPRB,0.23894E+03_JPRB,0.22785E+03_JPRB,0.21269E+03_JPRB /)  
+KB(:, 1,43,14) = (/ &
+ & 0.13316E+03_JPRB,0.19946E+03_JPRB,0.23952E+03_JPRB,0.23134E+03_JPRB,0.18746E+03_JPRB /)  
+KB(:, 2,43,14) = (/ &
+ & 0.14590E+03_JPRB,0.20299E+03_JPRB,0.24131E+03_JPRB,0.23265E+03_JPRB,0.19555E+03_JPRB /)  
+KB(:, 3,43,14) = (/ &
+ & 0.15782E+03_JPRB,0.20531E+03_JPRB,0.24176E+03_JPRB,0.23237E+03_JPRB,0.20228E+03_JPRB /)  
+KB(:, 4,43,14) = (/ &
+ & 0.16860E+03_JPRB,0.20666E+03_JPRB,0.24113E+03_JPRB,0.23099E+03_JPRB,0.20761E+03_JPRB /)  
+KB(:, 5,43,14) = (/ &
+ & 0.17818E+03_JPRB,0.20733E+03_JPRB,0.23964E+03_JPRB,0.22878E+03_JPRB,0.21166E+03_JPRB /)  
+KB(:, 1,44,14) = (/ &
+ & 0.12851E+03_JPRB,0.19793E+03_JPRB,0.23860E+03_JPRB,0.23051E+03_JPRB,0.18440E+03_JPRB /)  
+KB(:, 2,44,14) = (/ &
+ & 0.14156E+03_JPRB,0.20195E+03_JPRB,0.24092E+03_JPRB,0.23249E+03_JPRB,0.19298E+03_JPRB /)  
+KB(:, 3,44,14) = (/ &
+ & 0.15381E+03_JPRB,0.20468E+03_JPRB,0.24182E+03_JPRB,0.23268E+03_JPRB,0.20015E+03_JPRB /)  
+KB(:, 4,44,14) = (/ &
+ & 0.16494E+03_JPRB,0.20625E+03_JPRB,0.24148E+03_JPRB,0.23163E+03_JPRB,0.20597E+03_JPRB /)  
+KB(:, 5,44,14) = (/ &
+ & 0.17499E+03_JPRB,0.20719E+03_JPRB,0.24029E+03_JPRB,0.22969E+03_JPRB,0.21043E+03_JPRB /)  
+KB(:, 1,45,14) = (/ &
+ & 0.12377E+03_JPRB,0.19622E+03_JPRB,0.23745E+03_JPRB,0.22938E+03_JPRB,0.18114E+03_JPRB /)  
+KB(:, 2,45,14) = (/ &
+ & 0.13713E+03_JPRB,0.20074E+03_JPRB,0.24035E+03_JPRB,0.23210E+03_JPRB,0.19024E+03_JPRB /)  
+KB(:, 3,45,14) = (/ &
+ & 0.14969E+03_JPRB,0.20389E+03_JPRB,0.24171E+03_JPRB,0.23283E+03_JPRB,0.19787E+03_JPRB /)  
+KB(:, 4,45,14) = (/ &
+ & 0.16122E+03_JPRB,0.20580E+03_JPRB,0.24172E+03_JPRB,0.23215E+03_JPRB,0.20417E+03_JPRB /)  
+KB(:, 5,45,14) = (/ &
+ & 0.17169E+03_JPRB,0.20697E+03_JPRB,0.24085E+03_JPRB,0.23051E+03_JPRB,0.20907E+03_JPRB /)  
+KB(:, 1,46,14) = (/ &
+ & 0.11871E+03_JPRB,0.19418E+03_JPRB,0.23600E+03_JPRB,0.22790E+03_JPRB,0.17747E+03_JPRB /)  
+KB(:, 2,46,14) = (/ &
+ & 0.13231E+03_JPRB,0.19929E+03_JPRB,0.23954E+03_JPRB,0.23143E+03_JPRB,0.18712E+03_JPRB /)  
+KB(:, 3,46,14) = (/ &
+ & 0.14514E+03_JPRB,0.20288E+03_JPRB,0.24138E+03_JPRB,0.23280E+03_JPRB,0.19526E+03_JPRB /)  
+KB(:, 4,46,14) = (/ &
+ & 0.15711E+03_JPRB,0.20523E+03_JPRB,0.24187E+03_JPRB,0.23257E+03_JPRB,0.20207E+03_JPRB /)  
+KB(:, 5,46,14) = (/ &
+ & 0.16802E+03_JPRB,0.20664E+03_JPRB,0.24132E+03_JPRB,0.23126E+03_JPRB,0.20749E+03_JPRB /)  
+KB(:, 1,47,14) = (/ &
+ & 0.11295E+03_JPRB,0.19159E+03_JPRB,0.23398E+03_JPRB,0.22588E+03_JPRB,0.17313E+03_JPRB /)  
+KB(:, 2,47,14) = (/ &
+ & 0.12683E+03_JPRB,0.19741E+03_JPRB,0.23835E+03_JPRB,0.23031E+03_JPRB,0.18342E+03_JPRB /)  
+KB(:, 3,47,14) = (/ &
+ & 0.13999E+03_JPRB,0.20159E+03_JPRB,0.24085E+03_JPRB,0.23253E+03_JPRB,0.19217E+03_JPRB /)  
+KB(:, 4,47,14) = (/ &
+ & 0.15234E+03_JPRB,0.20442E+03_JPRB,0.24186E+03_JPRB,0.23286E+03_JPRB,0.19949E+03_JPRB /)  
+KB(:, 5,47,14) = (/ &
+ & 0.16373E+03_JPRB,0.20618E+03_JPRB,0.24169E+03_JPRB,0.23194E+03_JPRB,0.20549E+03_JPRB /)  
+KB(:, 1,48,14) = (/ &
+ & 0.10712E+03_JPRB,0.18871E+03_JPRB,0.23159E+03_JPRB,0.22347E+03_JPRB,0.16850E+03_JPRB /)  
+KB(:, 2,48,14) = (/ &
+ & 0.12124E+03_JPRB,0.19529E+03_JPRB,0.23687E+03_JPRB,0.22882E+03_JPRB,0.17946E+03_JPRB /)  
+KB(:, 3,48,14) = (/ &
+ & 0.13473E+03_JPRB,0.20007E+03_JPRB,0.24005E+03_JPRB,0.23191E+03_JPRB,0.18883E+03_JPRB /)  
+KB(:, 4,48,14) = (/ &
+ & 0.14742E+03_JPRB,0.20342E+03_JPRB,0.24164E+03_JPRB,0.23294E+03_JPRB,0.19670E+03_JPRB /)  
+KB(:, 5,48,14) = (/ &
+ & 0.15928E+03_JPRB,0.20562E+03_JPRB,0.24192E+03_JPRB,0.23247E+03_JPRB,0.20325E+03_JPRB /)  
+KB(:, 1,49,14) = (/ &
+ & 0.10120E+03_JPRB,0.18550E+03_JPRB,0.22880E+03_JPRB,0.22071E+03_JPRB,0.16363E+03_JPRB /)  
+KB(:, 2,49,14) = (/ &
+ & 0.11556E+03_JPRB,0.19285E+03_JPRB,0.23504E+03_JPRB,0.22697E+03_JPRB,0.17524E+03_JPRB /)  
+KB(:, 3,49,14) = (/ &
+ & 0.12932E+03_JPRB,0.19832E+03_JPRB,0.23901E+03_JPRB,0.23097E+03_JPRB,0.18524E+03_JPRB /)  
+KB(:, 4,49,14) = (/ &
+ & 0.14238E+03_JPRB,0.20226E+03_JPRB,0.24120E+03_JPRB,0.23278E+03_JPRB,0.19370E+03_JPRB /)  
+KB(:, 5,49,14) = (/ &
+ & 0.15460E+03_JPRB,0.20488E+03_JPRB,0.24199E+03_JPRB,0.23283E+03_JPRB,0.20078E+03_JPRB /)  
+KB(:, 1,50,14) = (/ &
+ & 0.95603E+02_JPRB,0.18216E+03_JPRB,0.22576E+03_JPRB,0.21768E+03_JPRB,0.15878E+03_JPRB /)  
+KB(:, 2,50,14) = (/ &
+ & 0.11015E+03_JPRB,0.19031E+03_JPRB,0.23298E+03_JPRB,0.22490E+03_JPRB,0.17105E+03_JPRB /)  
+KB(:, 3,50,14) = (/ &
+ & 0.12415E+03_JPRB,0.19646E+03_JPRB,0.23775E+03_JPRB,0.22975E+03_JPRB,0.18166E+03_JPRB /)  
+KB(:, 4,50,14) = (/ &
+ & 0.13752E+03_JPRB,0.20094E+03_JPRB,0.24058E+03_JPRB,0.23236E+03_JPRB,0.19069E+03_JPRB /)  
+KB(:, 5,50,14) = (/ &
+ & 0.15007E+03_JPRB,0.20403E+03_JPRB,0.24187E+03_JPRB,0.23299E+03_JPRB,0.19826E+03_JPRB /)  
+KB(:, 1,51,14) = (/ &
+ & 0.90137E+02_JPRB,0.17868E+03_JPRB,0.22240E+03_JPRB,0.21442E+03_JPRB,0.15384E+03_JPRB /)  
+KB(:, 2,51,14) = (/ &
+ & 0.10484E+03_JPRB,0.18757E+03_JPRB,0.23066E+03_JPRB,0.22258E+03_JPRB,0.16677E+03_JPRB /)  
+KB(:, 3,51,14) = (/ &
+ & 0.11907E+03_JPRB,0.19442E+03_JPRB,0.23628E+03_JPRB,0.22824E+03_JPRB,0.17796E+03_JPRB /)  
+KB(:, 4,51,14) = (/ &
+ & 0.13269E+03_JPRB,0.19948E+03_JPRB,0.23976E+03_JPRB,0.23167E+03_JPRB,0.18756E+03_JPRB /)  
+KB(:, 5,51,14) = (/ &
+ & 0.14552E+03_JPRB,0.20302E+03_JPRB,0.24154E+03_JPRB,0.23296E+03_JPRB,0.19565E+03_JPRB /)  
+KB(:, 1,52,14) = (/ &
+ & 0.84690E+02_JPRB,0.17496E+03_JPRB,0.21864E+03_JPRB,0.21080E+03_JPRB,0.14862E+03_JPRB /)  
+KB(:, 2,52,14) = (/ &
+ & 0.99471E+02_JPRB,0.18453E+03_JPRB,0.22798E+03_JPRB,0.21992E+03_JPRB,0.16225E+03_JPRB /)  
+KB(:, 3,52,14) = (/ &
+ & 0.11391E+03_JPRB,0.19213E+03_JPRB,0.23451E+03_JPRB,0.22644E+03_JPRB,0.17406E+03_JPRB /)  
+KB(:, 4,52,14) = (/ &
+ & 0.12777E+03_JPRB,0.19781E+03_JPRB,0.23872E+03_JPRB,0.23070E+03_JPRB,0.18424E+03_JPRB /)  
+KB(:, 5,52,14) = (/ &
+ & 0.14091E+03_JPRB,0.20189E+03_JPRB,0.24107E+03_JPRB,0.23273E+03_JPRB,0.19286E+03_JPRB /)  
+KB(:, 1,53,14) = (/ &
+ & 0.79262E+02_JPRB,0.17095E+03_JPRB,0.21436E+03_JPRB,0.20681E+03_JPRB,0.14317E+03_JPRB /)  
+KB(:, 2,53,14) = (/ &
+ & 0.94047E+02_JPRB,0.18126E+03_JPRB,0.22494E+03_JPRB,0.21690E+03_JPRB,0.15748E+03_JPRB /)  
+KB(:, 3,53,14) = (/ &
+ & 0.10865E+03_JPRB,0.18958E+03_JPRB,0.23241E+03_JPRB,0.22434E+03_JPRB,0.16994E+03_JPRB /)  
+KB(:, 4,53,14) = (/ &
+ & 0.12274E+03_JPRB,0.19595E+03_JPRB,0.23742E+03_JPRB,0.22941E+03_JPRB,0.18070E+03_JPRB /)  
+KB(:, 5,53,14) = (/ &
+ & 0.13618E+03_JPRB,0.20056E+03_JPRB,0.24040E+03_JPRB,0.23224E+03_JPRB,0.18988E+03_JPRB /)  
+KB(:, 1,54,14) = (/ &
+ & 0.74312E+02_JPRB,0.16701E+03_JPRB,0.21000E+03_JPRB,0.20283E+03_JPRB,0.13801E+03_JPRB /)  
+KB(:, 2,54,14) = (/ &
+ & 0.89059E+02_JPRB,0.17802E+03_JPRB,0.22177E+03_JPRB,0.21381E+03_JPRB,0.15289E+03_JPRB /)  
+KB(:, 3,54,14) = (/ &
+ & 0.10379E+03_JPRB,0.18701E+03_JPRB,0.23021E+03_JPRB,0.22214E+03_JPRB,0.16595E+03_JPRB /)  
+KB(:, 4,54,14) = (/ &
+ & 0.11808E+03_JPRB,0.19403E+03_JPRB,0.23602E+03_JPRB,0.22797E+03_JPRB,0.17728E+03_JPRB /)  
+KB(:, 5,54,14) = (/ &
+ & 0.13174E+03_JPRB,0.19918E+03_JPRB,0.23961E+03_JPRB,0.23155E+03_JPRB,0.18697E+03_JPRB /)  
+KB(:, 1,55,14) = (/ &
+ & 0.69615E+02_JPRB,0.16296E+03_JPRB,0.20540E+03_JPRB,0.19866E+03_JPRB,0.13288E+03_JPRB /)  
+KB(:, 2,55,14) = (/ &
+ & 0.84276E+02_JPRB,0.17466E+03_JPRB,0.21835E+03_JPRB,0.21056E+03_JPRB,0.14828E+03_JPRB /)  
+KB(:, 3,55,14) = (/ &
+ & 0.99066E+02_JPRB,0.18433E+03_JPRB,0.22782E+03_JPRB,0.21977E+03_JPRB,0.16197E+03_JPRB /)  
+KB(:, 4,55,14) = (/ &
+ & 0.11354E+03_JPRB,0.19199E+03_JPRB,0.23442E+03_JPRB,0.22636E+03_JPRB,0.17383E+03_JPRB /)  
+KB(:, 5,55,14) = (/ &
+ & 0.12741E+03_JPRB,0.19770E+03_JPRB,0.23866E+03_JPRB,0.23065E+03_JPRB,0.18403E+03_JPRB /)  
+KB(:, 1,56,14) = (/ &
+ & 0.64944E+02_JPRB,0.15877E+03_JPRB,0.20044E+03_JPRB,0.19421E+03_JPRB,0.12762E+03_JPRB /)  
+KB(:, 2,56,14) = (/ &
+ & 0.79524E+02_JPRB,0.17114E+03_JPRB,0.21461E+03_JPRB,0.20707E+03_JPRB,0.14351E+03_JPRB /)  
+KB(:, 3,56,14) = (/ &
+ & 0.94323E+02_JPRB,0.18144E+03_JPRB,0.22514E+03_JPRB,0.21711E+03_JPRB,0.15778E+03_JPRB /)  
+KB(:, 4,56,14) = (/ &
+ & 0.10894E+03_JPRB,0.18976E+03_JPRB,0.23257E+03_JPRB,0.22452E+03_JPRB,0.17022E+03_JPRB /)  
+KB(:, 5,56,14) = (/ &
+ & 0.12301E+03_JPRB,0.19605E+03_JPRB,0.23752E+03_JPRB,0.22954E+03_JPRB,0.18094E+03_JPRB /)  
+KB(:, 1,57,14) = (/ &
+ & 0.60353E+02_JPRB,0.15431E+03_JPRB,0.19514E+03_JPRB,0.18945E+03_JPRB,0.12225E+03_JPRB /)  
+KB(:, 2,57,14) = (/ &
+ & 0.74815E+02_JPRB,0.16742E+03_JPRB,0.21049E+03_JPRB,0.20329E+03_JPRB,0.13860E+03_JPRB /)  
+KB(:, 3,57,14) = (/ &
+ & 0.89567E+02_JPRB,0.17837E+03_JPRB,0.22214E+03_JPRB,0.21419E+03_JPRB,0.15343E+03_JPRB /)  
+KB(:, 4,57,14) = (/ &
+ & 0.10431E+03_JPRB,0.18733E+03_JPRB,0.23050E+03_JPRB,0.22244E+03_JPRB,0.16644E+03_JPRB /)  
+KB(:, 5,57,14) = (/ &
+ & 0.11856E+03_JPRB,0.19423E+03_JPRB,0.23618E+03_JPRB,0.22816E+03_JPRB,0.17767E+03_JPRB /)  
+KB(:, 1,58,14) = (/ &
+ & 0.56098E+02_JPRB,0.14991E+03_JPRB,0.18980E+03_JPRB,0.18465E+03_JPRB,0.11706E+03_JPRB /)  
+KB(:, 2,58,14) = (/ &
+ & 0.70377E+02_JPRB,0.16367E+03_JPRB,0.20622E+03_JPRB,0.19942E+03_JPRB,0.13378E+03_JPRB /)  
+KB(:, 3,58,14) = (/ &
+ & 0.85049E+02_JPRB,0.17528E+03_JPRB,0.21902E+03_JPRB,0.21119E+03_JPRB,0.14910E+03_JPRB /)  
+KB(:, 4,58,14) = (/ &
+ & 0.99857E+02_JPRB,0.18482E+03_JPRB,0.22827E+03_JPRB,0.22022E+03_JPRB,0.16268E+03_JPRB /)  
+KB(:, 5,58,14) = (/ &
+ & 0.11428E+03_JPRB,0.19233E+03_JPRB,0.23470E+03_JPRB,0.22666E+03_JPRB,0.17444E+03_JPRB /)  
+KB(:, 1,59,14) = (/ &
+ & 0.54418E+02_JPRB,0.14809E+03_JPRB,0.18754E+03_JPRB,0.18261E+03_JPRB,0.11495E+03_JPRB /)  
+KB(:, 2,59,14) = (/ &
+ & 0.68598E+02_JPRB,0.16210E+03_JPRB,0.20441E+03_JPRB,0.19778E+03_JPRB,0.13180E+03_JPRB /)  
+KB(:, 3,59,14) = (/ &
+ & 0.83246E+02_JPRB,0.17398E+03_JPRB,0.21768E+03_JPRB,0.20993E+03_JPRB,0.14733E+03_JPRB /)  
+KB(:, 4,59,14) = (/ &
+ & 0.98055E+02_JPRB,0.18375E+03_JPRB,0.22732E+03_JPRB,0.21927E+03_JPRB,0.16113E+03_JPRB /)  
+KB(:, 5,59,14) = (/ &
+ & 0.11255E+03_JPRB,0.19153E+03_JPRB,0.23406E+03_JPRB,0.22601E+03_JPRB,0.17310E+03_JPRB /)  
+KB(:, 1,13,15) = (/ &
+ & 0.40932E+03_JPRB,0.30758E+03_JPRB,0.26133E+03_JPRB,0.32395E+03_JPRB,0.43211E+03_JPRB /)  
+KB(:, 2,13,15) = (/ &
+ & 0.41123E+03_JPRB,0.30908E+03_JPRB,0.25921E+03_JPRB,0.31805E+03_JPRB,0.42431E+03_JPRB /)  
+KB(:, 3,13,15) = (/ &
+ & 0.41219E+03_JPRB,0.30983E+03_JPRB,0.25685E+03_JPRB,0.31214E+03_JPRB,0.41639E+03_JPRB /)  
+KB(:, 4,13,15) = (/ &
+ & 0.41228E+03_JPRB,0.30991E+03_JPRB,0.25419E+03_JPRB,0.30614E+03_JPRB,0.40836E+03_JPRB /)  
+KB(:, 5,13,15) = (/ &
+ & 0.41130E+03_JPRB,0.30917E+03_JPRB,0.25126E+03_JPRB,0.30055E+03_JPRB,0.40088E+03_JPRB /)  
+KB(:, 1,14,15) = (/ &
+ & 0.46527E+03_JPRB,0.34966E+03_JPRB,0.29823E+03_JPRB,0.35533E+03_JPRB,0.47402E+03_JPRB /)  
+KB(:, 2,14,15) = (/ &
+ & 0.46656E+03_JPRB,0.35065E+03_JPRB,0.29540E+03_JPRB,0.34864E+03_JPRB,0.46510E+03_JPRB /)  
+KB(:, 3,14,15) = (/ &
+ & 0.46685E+03_JPRB,0.35090E+03_JPRB,0.29209E+03_JPRB,0.34189E+03_JPRB,0.45610E+03_JPRB /)  
+KB(:, 4,14,15) = (/ &
+ & 0.46575E+03_JPRB,0.35012E+03_JPRB,0.28845E+03_JPRB,0.33526E+03_JPRB,0.44716E+03_JPRB /)  
+KB(:, 5,14,15) = (/ &
+ & 0.46388E+03_JPRB,0.34873E+03_JPRB,0.28457E+03_JPRB,0.32965E+03_JPRB,0.43950E+03_JPRB /)  
+KB(:, 1,15,15) = (/ &
+ & 0.52376E+03_JPRB,0.39388E+03_JPRB,0.33756E+03_JPRB,0.38636E+03_JPRB,0.51543E+03_JPRB /)  
+KB(:, 2,15,15) = (/ &
+ & 0.52445E+03_JPRB,0.39416E+03_JPRB,0.33368E+03_JPRB,0.37892E+03_JPRB,0.50548E+03_JPRB /)  
+KB(:, 3,15,15) = (/ &
+ & 0.52345E+03_JPRB,0.39343E+03_JPRB,0.32922E+03_JPRB,0.37141E+03_JPRB,0.49535E+03_JPRB /)  
+KB(:, 4,15,15) = (/ &
+ & 0.52134E+03_JPRB,0.39188E+03_JPRB,0.32434E+03_JPRB,0.36468E+03_JPRB,0.48621E+03_JPRB /)  
+KB(:, 5,15,15) = (/ &
+ & 0.51791E+03_JPRB,0.38933E+03_JPRB,0.31931E+03_JPRB,0.35855E+03_JPRB,0.47766E+03_JPRB /)  
+KB(:, 1,16,15) = (/ &
+ & 0.58401E+03_JPRB,0.43962E+03_JPRB,0.37845E+03_JPRB,0.41772E+03_JPRB,0.55681E+03_JPRB /)  
+KB(:, 2,16,15) = (/ &
+ & 0.58308E+03_JPRB,0.43844E+03_JPRB,0.37324E+03_JPRB,0.40927E+03_JPRB,0.54538E+03_JPRB /)  
+KB(:, 3,16,15) = (/ &
+ & 0.58094E+03_JPRB,0.43662E+03_JPRB,0.36730E+03_JPRB,0.40107E+03_JPRB,0.53429E+03_JPRB /)  
+KB(:, 4,16,15) = (/ &
+ & 0.57721E+03_JPRB,0.43385E+03_JPRB,0.36102E+03_JPRB,0.39367E+03_JPRB,0.52421E+03_JPRB /)  
+KB(:, 5,16,15) = (/ &
+ & 0.57218E+03_JPRB,0.43010E+03_JPRB,0.35444E+03_JPRB,0.38654E+03_JPRB,0.51433E+03_JPRB /)  
+KB(:, 1,17,15) = (/ &
+ & 0.64407E+03_JPRB,0.48569E+03_JPRB,0.41994E+03_JPRB,0.44912E+03_JPRB,0.59692E+03_JPRB /)  
+KB(:, 2,17,15) = (/ &
+ & 0.64180E+03_JPRB,0.48304E+03_JPRB,0.41300E+03_JPRB,0.43957E+03_JPRB,0.58409E+03_JPRB /)  
+KB(:, 3,17,15) = (/ &
+ & 0.63774E+03_JPRB,0.47951E+03_JPRB,0.40543E+03_JPRB,0.43048E+03_JPRB,0.57188E+03_JPRB /)  
+KB(:, 4,17,15) = (/ &
+ & 0.63221E+03_JPRB,0.47511E+03_JPRB,0.39752E+03_JPRB,0.42195E+03_JPRB,0.56041E+03_JPRB /)  
+KB(:, 5,17,15) = (/ &
+ & 0.62531E+03_JPRB,0.46997E+03_JPRB,0.38917E+03_JPRB,0.41353E+03_JPRB,0.54901E+03_JPRB /)  
+KB(:, 1,18,15) = (/ &
+ & 0.70302E+03_JPRB,0.53125E+03_JPRB,0.46110E+03_JPRB,0.48015E+03_JPRB,0.63499E+03_JPRB /)  
+KB(:, 2,18,15) = (/ &
+ & 0.69876E+03_JPRB,0.52681E+03_JPRB,0.45218E+03_JPRB,0.46935E+03_JPRB,0.62082E+03_JPRB /)  
+KB(:, 3,18,15) = (/ &
+ & 0.69273E+03_JPRB,0.52130E+03_JPRB,0.44272E+03_JPRB,0.45897E+03_JPRB,0.60731E+03_JPRB /)  
+KB(:, 4,18,15) = (/ &
+ & 0.68529E+03_JPRB,0.51514E+03_JPRB,0.43287E+03_JPRB,0.44907E+03_JPRB,0.59416E+03_JPRB /)  
+KB(:, 5,18,15) = (/ &
+ & 0.67604E+03_JPRB,0.50804E+03_JPRB,0.42255E+03_JPRB,0.43929E+03_JPRB,0.58117E+03_JPRB /)  
+KB(:, 1,19,15) = (/ &
+ & 0.75927E+03_JPRB,0.57536E+03_JPRB,0.50097E+03_JPRB,0.51007E+03_JPRB,0.67027E+03_JPRB /)  
+KB(:, 2,19,15) = (/ &
+ & 0.75290E+03_JPRB,0.56864E+03_JPRB,0.48996E+03_JPRB,0.49791E+03_JPRB,0.65476E+03_JPRB /)  
+KB(:, 3,19,15) = (/ &
+ & 0.74466E+03_JPRB,0.56117E+03_JPRB,0.47832E+03_JPRB,0.48599E+03_JPRB,0.63995E+03_JPRB /)  
+KB(:, 4,19,15) = (/ &
+ & 0.73483E+03_JPRB,0.55286E+03_JPRB,0.46627E+03_JPRB,0.47459E+03_JPRB,0.62519E+03_JPRB /)  
+KB(:, 5,19,15) = (/ &
+ & 0.72353E+03_JPRB,0.54375E+03_JPRB,0.45395E+03_JPRB,0.46331E+03_JPRB,0.61054E+03_JPRB /)  
+KB(:, 1,20,15) = (/ &
+ & 0.81171E+03_JPRB,0.61670E+03_JPRB,0.53858E+03_JPRB,0.53802E+03_JPRB,0.70226E+03_JPRB /)  
+KB(:, 2,20,15) = (/ &
+ & 0.80307E+03_JPRB,0.60788E+03_JPRB,0.52517E+03_JPRB,0.52417E+03_JPRB,0.68550E+03_JPRB /)  
+KB(:, 3,20,15) = (/ &
+ & 0.79257E+03_JPRB,0.59823E+03_JPRB,0.51114E+03_JPRB,0.51080E+03_JPRB,0.66917E+03_JPRB /)  
+KB(:, 4,20,15) = (/ &
+ & 0.78036E+03_JPRB,0.58759E+03_JPRB,0.49687E+03_JPRB,0.49775E+03_JPRB,0.65285E+03_JPRB /)  
+KB(:, 5,20,15) = (/ &
+ & 0.76671E+03_JPRB,0.57649E+03_JPRB,0.48237E+03_JPRB,0.48486E+03_JPRB,0.63647E+03_JPRB /)  
+KB(:, 1,21,15) = (/ &
+ & 0.85929E+03_JPRB,0.65464E+03_JPRB,0.57309E+03_JPRB,0.56354E+03_JPRB,0.73074E+03_JPRB /)  
+KB(:, 2,21,15) = (/ &
+ & 0.84853E+03_JPRB,0.64350E+03_JPRB,0.55721E+03_JPRB,0.54790E+03_JPRB,0.71267E+03_JPRB /)  
+KB(:, 3,21,15) = (/ &
+ & 0.83578E+03_JPRB,0.63172E+03_JPRB,0.54090E+03_JPRB,0.53299E+03_JPRB,0.69483E+03_JPRB /)  
+KB(:, 4,21,15) = (/ &
+ & 0.82132E+03_JPRB,0.61900E+03_JPRB,0.52438E+03_JPRB,0.51831E+03_JPRB,0.67689E+03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART34',1,ZHOOK_HANDLE)
+END SUBROUTINE PART34
+
+
+SUBROUTINE PART35
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART35',0,ZHOOK_HANDLE)
+
+
+KB(:, 5,21,15) = (/ &
+ & 0.80511E+03_JPRB,0.60568E+03_JPRB,0.50774E+03_JPRB,0.50398E+03_JPRB,0.65894E+03_JPRB /)  
+KB(:, 1,22,15) = (/ &
+ & 0.90088E+03_JPRB,0.68794E+03_JPRB,0.60297E+03_JPRB,0.58517E+03_JPRB,0.75429E+03_JPRB /)  
+KB(:, 2,22,15) = (/ &
+ & 0.88795E+03_JPRB,0.67453E+03_JPRB,0.58458E+03_JPRB,0.56794E+03_JPRB,0.73512E+03_JPRB /)  
+KB(:, 3,22,15) = (/ &
+ & 0.87296E+03_JPRB,0.66047E+03_JPRB,0.56607E+03_JPRB,0.55151E+03_JPRB,0.71573E+03_JPRB /)  
+KB(:, 4,22,15) = (/ &
+ & 0.85602E+03_JPRB,0.64569E+03_JPRB,0.54736E+03_JPRB,0.53534E+03_JPRB,0.69633E+03_JPRB /)  
+KB(:, 5,22,15) = (/ &
+ & 0.83763E+03_JPRB,0.63042E+03_JPRB,0.52879E+03_JPRB,0.51959E+03_JPRB,0.67694E+03_JPRB /)  
+KB(:, 1,23,15) = (/ &
+ & 0.93708E+03_JPRB,0.71670E+03_JPRB,0.62868E+03_JPRB,0.60370E+03_JPRB,0.77407E+03_JPRB /)  
+KB(:, 2,23,15) = (/ &
+ & 0.92204E+03_JPRB,0.70111E+03_JPRB,0.60797E+03_JPRB,0.58479E+03_JPRB,0.75367E+03_JPRB /)  
+KB(:, 3,23,15) = (/ &
+ & 0.90485E+03_JPRB,0.68501E+03_JPRB,0.58723E+03_JPRB,0.56696E+03_JPRB,0.73284E+03_JPRB /)  
+KB(:, 4,23,15) = (/ &
+ & 0.88551E+03_JPRB,0.66835E+03_JPRB,0.56656E+03_JPRB,0.54939E+03_JPRB,0.71207E+03_JPRB /)  
+KB(:, 5,23,15) = (/ &
+ & 0.86499E+03_JPRB,0.65129E+03_JPRB,0.54624E+03_JPRB,0.53240E+03_JPRB,0.69156E+03_JPRB /)  
+KB(:, 1,24,15) = (/ &
+ & 0.96776E+03_JPRB,0.74092E+03_JPRB,0.64997E+03_JPRB,0.61898E+03_JPRB,0.79010E+03_JPRB /)  
+KB(:, 2,24,15) = (/ &
+ & 0.95072E+03_JPRB,0.72338E+03_JPRB,0.62717E+03_JPRB,0.59867E+03_JPRB,0.76855E+03_JPRB /)  
+KB(:, 3,24,15) = (/ &
+ & 0.93122E+03_JPRB,0.70539E+03_JPRB,0.60446E+03_JPRB,0.57944E+03_JPRB,0.74652E+03_JPRB /)  
+KB(:, 4,24,15) = (/ &
+ & 0.90993E+03_JPRB,0.68704E+03_JPRB,0.58213E+03_JPRB,0.56067E+03_JPRB,0.72451E+03_JPRB /)  
+KB(:, 5,24,15) = (/ &
+ & 0.88757E+03_JPRB,0.66845E+03_JPRB,0.56030E+03_JPRB,0.54254E+03_JPRB,0.70312E+03_JPRB /)  
+KB(:, 1,25,15) = (/ &
+ & 0.99329E+03_JPRB,0.76073E+03_JPRB,0.66706E+03_JPRB,0.63101E+03_JPRB,0.80276E+03_JPRB /)  
+KB(:, 2,25,15) = (/ &
+ & 0.97397E+03_JPRB,0.74138E+03_JPRB,0.64231E+03_JPRB,0.60949E+03_JPRB,0.78003E+03_JPRB /)  
+KB(:, 3,25,15) = (/ &
+ & 0.95257E+03_JPRB,0.72186E+03_JPRB,0.61798E+03_JPRB,0.58904E+03_JPRB,0.75681E+03_JPRB /)  
+KB(:, 4,25,15) = (/ &
+ & 0.92942E+03_JPRB,0.70193E+03_JPRB,0.59417E+03_JPRB,0.56923E+03_JPRB,0.73392E+03_JPRB /)  
+KB(:, 5,25,15) = (/ &
+ & 0.90532E+03_JPRB,0.68191E+03_JPRB,0.57100E+03_JPRB,0.55015E+03_JPRB,0.71169E+03_JPRB /)  
+KB(:, 1,26,15) = (/ &
+ & 0.10136E+04_JPRB,0.77623E+03_JPRB,0.67983E+03_JPRB,0.63982E+03_JPRB,0.81189E+03_JPRB /)  
+KB(:, 2,26,15) = (/ &
+ & 0.99212E+03_JPRB,0.75536E+03_JPRB,0.65345E+03_JPRB,0.61726E+03_JPRB,0.78804E+03_JPRB /)  
+KB(:, 3,26,15) = (/ &
+ & 0.96906E+03_JPRB,0.73441E+03_JPRB,0.62784E+03_JPRB,0.59585E+03_JPRB,0.76400E+03_JPRB /)  
+KB(:, 4,26,15) = (/ &
+ & 0.94442E+03_JPRB,0.71314E+03_JPRB,0.60278E+03_JPRB,0.57514E+03_JPRB,0.74031E+03_JPRB /)  
+KB(:, 5,26,15) = (/ &
+ & 0.91870E+03_JPRB,0.69199E+03_JPRB,0.57850E+03_JPRB,0.55532E+03_JPRB,0.71748E+03_JPRB /)  
+KB(:, 1,27,15) = (/ &
+ & 0.10295E+04_JPRB,0.78816E+03_JPRB,0.68910E+03_JPRB,0.64601E+03_JPRB,0.81822E+03_JPRB /)  
+KB(:, 2,27,15) = (/ &
+ & 0.10061E+04_JPRB,0.76604E+03_JPRB,0.66144E+03_JPRB,0.62260E+03_JPRB,0.79343E+03_JPRB /)  
+KB(:, 3,27,15) = (/ &
+ & 0.98153E+03_JPRB,0.74373E+03_JPRB,0.63470E+03_JPRB,0.60041E+03_JPRB,0.76875E+03_JPRB /)  
+KB(:, 4,27,15) = (/ &
+ & 0.95548E+03_JPRB,0.72130E+03_JPRB,0.60866E+03_JPRB,0.57907E+03_JPRB,0.74456E+03_JPRB /)  
+KB(:, 5,27,15) = (/ &
+ & 0.92838E+03_JPRB,0.69916E+03_JPRB,0.58347E+03_JPRB,0.55864E+03_JPRB,0.72113E+03_JPRB /)  
+KB(:, 1,28,15) = (/ &
+ & 0.10413E+04_JPRB,0.79681E+03_JPRB,0.69534E+03_JPRB,0.64995E+03_JPRB,0.82220E+03_JPRB /)  
+KB(:, 2,28,15) = (/ &
+ & 0.10164E+04_JPRB,0.77357E+03_JPRB,0.66667E+03_JPRB,0.62595E+03_JPRB,0.79680E+03_JPRB /)  
+KB(:, 3,28,15) = (/ &
+ & 0.99062E+03_JPRB,0.75026E+03_JPRB,0.63903E+03_JPRB,0.60314E+03_JPRB,0.77147E+03_JPRB /)  
+KB(:, 4,28,15) = (/ &
+ & 0.96323E+03_JPRB,0.72694E+03_JPRB,0.61220E+03_JPRB,0.58130E+03_JPRB,0.74687E+03_JPRB /)  
+KB(:, 5,28,15) = (/ &
+ & 0.93489E+03_JPRB,0.70393E+03_JPRB,0.58636E+03_JPRB,0.56041E+03_JPRB,0.72308E+03_JPRB /)  
+KB(:, 1,29,15) = (/ &
+ & 0.10495E+04_JPRB,0.80260E+03_JPRB,0.69878E+03_JPRB,0.65184E+03_JPRB,0.82409E+03_JPRB /)  
+KB(:, 2,29,15) = (/ &
+ & 0.10235E+04_JPRB,0.77841E+03_JPRB,0.66934E+03_JPRB,0.62739E+03_JPRB,0.79811E+03_JPRB /)  
+KB(:, 3,29,15) = (/ &
+ & 0.99642E+03_JPRB,0.75425E+03_JPRB,0.64103E+03_JPRB,0.60412E+03_JPRB,0.77230E+03_JPRB /)  
+KB(:, 4,29,15) = (/ &
+ & 0.96796E+03_JPRB,0.73025E+03_JPRB,0.61357E+03_JPRB,0.58189E+03_JPRB,0.74741E+03_JPRB /)  
+KB(:, 5,29,15) = (/ &
+ & 0.93857E+03_JPRB,0.70654E+03_JPRB,0.58732E+03_JPRB,0.56077E+03_JPRB,0.72335E+03_JPRB /)  
+KB(:, 1,30,15) = (/ &
+ & 0.10549E+04_JPRB,0.80614E+03_JPRB,0.70001E+03_JPRB,0.65202E+03_JPRB,0.82418E+03_JPRB /)  
+KB(:, 2,30,15) = (/ &
+ & 0.10278E+04_JPRB,0.78108E+03_JPRB,0.67004E+03_JPRB,0.62730E+03_JPRB,0.79771E+03_JPRB /)  
+KB(:, 3,30,15) = (/ &
+ & 0.99966E+03_JPRB,0.75628E+03_JPRB,0.64121E+03_JPRB,0.60374E+03_JPRB,0.77172E+03_JPRB /)  
+KB(:, 4,30,15) = (/ &
+ & 0.97021E+03_JPRB,0.73170E+03_JPRB,0.61335E+03_JPRB,0.58130E+03_JPRB,0.74664E+03_JPRB /)  
+KB(:, 5,30,15) = (/ &
+ & 0.94007E+03_JPRB,0.70743E+03_JPRB,0.58676E+03_JPRB,0.55999E+03_JPRB,0.72234E+03_JPRB /)  
+KB(:, 1,31,15) = (/ &
+ & 0.10577E+04_JPRB,0.80741E+03_JPRB,0.69925E+03_JPRB,0.65081E+03_JPRB,0.82281E+03_JPRB /)  
+KB(:, 2,31,15) = (/ &
+ & 0.10297E+04_JPRB,0.78182E+03_JPRB,0.66894E+03_JPRB,0.62588E+03_JPRB,0.79605E+03_JPRB /)  
+KB(:, 3,31,15) = (/ &
+ & 0.10005E+04_JPRB,0.75649E+03_JPRB,0.63976E+03_JPRB,0.60219E+03_JPRB,0.76987E+03_JPRB /)  
+KB(:, 4,31,15) = (/ &
+ & 0.97028E+03_JPRB,0.73149E+03_JPRB,0.61167E+03_JPRB,0.57962E+03_JPRB,0.74468E+03_JPRB /)  
+KB(:, 5,31,15) = (/ &
+ & 0.93951E+03_JPRB,0.70673E+03_JPRB,0.58494E+03_JPRB,0.55830E+03_JPRB,0.72033E+03_JPRB /)  
+KB(:, 1,32,15) = (/ &
+ & 0.10585E+04_JPRB,0.80706E+03_JPRB,0.69697E+03_JPRB,0.64853E+03_JPRB,0.82034E+03_JPRB /)  
+KB(:, 2,32,15) = (/ &
+ & 0.10295E+04_JPRB,0.78094E+03_JPRB,0.66639E+03_JPRB,0.62348E+03_JPRB,0.79329E+03_JPRB /)  
+KB(:, 3,32,15) = (/ &
+ & 0.99955E+03_JPRB,0.75528E+03_JPRB,0.63700E+03_JPRB,0.59969E+03_JPRB,0.76700E+03_JPRB /)  
+KB(:, 4,32,15) = (/ &
+ & 0.96864E+03_JPRB,0.72996E+03_JPRB,0.60885E+03_JPRB,0.57712E+03_JPRB,0.74178E+03_JPRB /)  
+KB(:, 5,32,15) = (/ &
+ & 0.93737E+03_JPRB,0.70488E+03_JPRB,0.58204E+03_JPRB,0.55579E+03_JPRB,0.71738E+03_JPRB /)  
+KB(:, 1,33,15) = (/ &
+ & 0.10575E+04_JPRB,0.80530E+03_JPRB,0.69345E+03_JPRB,0.64529E+03_JPRB,0.81678E+03_JPRB /)  
+KB(:, 2,33,15) = (/ &
+ & 0.10278E+04_JPRB,0.77890E+03_JPRB,0.66278E+03_JPRB,0.62027E+03_JPRB,0.78965E+03_JPRB /)  
+KB(:, 3,33,15) = (/ &
+ & 0.99704E+03_JPRB,0.75290E+03_JPRB,0.63324E+03_JPRB,0.59645E+03_JPRB,0.76337E+03_JPRB /)  
+KB(:, 4,33,15) = (/ &
+ & 0.96555E+03_JPRB,0.72726E+03_JPRB,0.60509E+03_JPRB,0.57394E+03_JPRB,0.73813E+03_JPRB /)  
+KB(:, 5,33,15) = (/ &
+ & 0.93393E+03_JPRB,0.70207E+03_JPRB,0.57839E+03_JPRB,0.55267E+03_JPRB,0.71377E+03_JPRB /)  
+KB(:, 1,34,15) = (/ &
+ & 0.10561E+04_JPRB,0.80340E+03_JPRB,0.69012E+03_JPRB,0.64228E+03_JPRB,0.81344E+03_JPRB /)  
+KB(:, 2,34,15) = (/ &
+ & 0.10257E+04_JPRB,0.77677E+03_JPRB,0.65936E+03_JPRB,0.61726E+03_JPRB,0.78628E+03_JPRB /)  
+KB(:, 3,34,15) = (/ &
+ & 0.99442E+03_JPRB,0.75053E+03_JPRB,0.62978E+03_JPRB,0.59351E+03_JPRB,0.76009E+03_JPRB /)  
+KB(:, 4,34,15) = (/ &
+ & 0.96258E+03_JPRB,0.72472E+03_JPRB,0.60168E+03_JPRB,0.57104E+03_JPRB,0.73478E+03_JPRB /)  
+KB(:, 5,34,15) = (/ &
+ & 0.93053E+03_JPRB,0.69938E+03_JPRB,0.57499E+03_JPRB,0.54984E+03_JPRB,0.71051E+03_JPRB /)  
+KB(:, 1,35,15) = (/ &
+ & 0.10564E+04_JPRB,0.80326E+03_JPRB,0.68907E+03_JPRB,0.64121E+03_JPRB,0.81221E+03_JPRB /)  
+KB(:, 2,35,15) = (/ &
+ & 0.10257E+04_JPRB,0.77646E+03_JPRB,0.65819E+03_JPRB,0.61612E+03_JPRB,0.78498E+03_JPRB /)  
+KB(:, 3,35,15) = (/ &
+ & 0.99396E+03_JPRB,0.74998E+03_JPRB,0.62850E+03_JPRB,0.59231E+03_JPRB,0.75874E+03_JPRB /)  
+KB(:, 4,35,15) = (/ &
+ & 0.96182E+03_JPRB,0.72398E+03_JPRB,0.60037E+03_JPRB,0.56987E+03_JPRB,0.73339E+03_JPRB /)  
+KB(:, 5,35,15) = (/ &
+ & 0.92945E+03_JPRB,0.69852E+03_JPRB,0.57362E+03_JPRB,0.54864E+03_JPRB,0.70910E+03_JPRB /)  
+KB(:, 1,36,15) = (/ &
+ & 0.10593E+04_JPRB,0.80545E+03_JPRB,0.69086E+03_JPRB,0.64252E+03_JPRB,0.81357E+03_JPRB /)  
+KB(:, 2,36,15) = (/ &
+ & 0.10283E+04_JPRB,0.77842E+03_JPRB,0.65978E+03_JPRB,0.61726E+03_JPRB,0.78619E+03_JPRB /)  
+KB(:, 3,36,15) = (/ &
+ & 0.99627E+03_JPRB,0.75174E+03_JPRB,0.62993E+03_JPRB,0.59335E+03_JPRB,0.75988E+03_JPRB /)  
+KB(:, 4,36,15) = (/ &
+ & 0.96386E+03_JPRB,0.72553E+03_JPRB,0.60161E+03_JPRB,0.57080E+03_JPRB,0.73443E+03_JPRB /)  
+KB(:, 5,36,15) = (/ &
+ & 0.93134E+03_JPRB,0.69996E+03_JPRB,0.57477E+03_JPRB,0.54947E+03_JPRB,0.71003E+03_JPRB /)  
+KB(:, 1,37,15) = (/ &
+ & 0.10662E+04_JPRB,0.81134E+03_JPRB,0.69713E+03_JPRB,0.64751E+03_JPRB,0.81885E+03_JPRB /)  
+KB(:, 2,37,15) = (/ &
+ & 0.10351E+04_JPRB,0.78402E+03_JPRB,0.66565E+03_JPRB,0.62189E+03_JPRB,0.79122E+03_JPRB /)  
+KB(:, 3,37,15) = (/ &
+ & 0.10030E+04_JPRB,0.75714E+03_JPRB,0.63542E+03_JPRB,0.59764E+03_JPRB,0.76460E+03_JPRB /)  
+KB(:, 4,37,15) = (/ &
+ & 0.97042E+03_JPRB,0.73071E+03_JPRB,0.60674E+03_JPRB,0.57477E+03_JPRB,0.73895E+03_JPRB /)  
+KB(:, 5,37,15) = (/ &
+ & 0.93771E+03_JPRB,0.70485E+03_JPRB,0.57959E+03_JPRB,0.55322E+03_JPRB,0.71431E+03_JPRB /)  
+KB(:, 1,38,15) = (/ &
+ & 0.10729E+04_JPRB,0.81713E+03_JPRB,0.70342E+03_JPRB,0.65252E+03_JPRB,0.82415E+03_JPRB /)  
+KB(:, 2,38,15) = (/ &
+ & 0.10416E+04_JPRB,0.78952E+03_JPRB,0.67152E+03_JPRB,0.62655E+03_JPRB,0.79626E+03_JPRB /)  
+KB(:, 3,38,15) = (/ &
+ & 0.10096E+04_JPRB,0.76249E+03_JPRB,0.64098E+03_JPRB,0.60198E+03_JPRB,0.76937E+03_JPRB /)  
+KB(:, 4,38,15) = (/ &
+ & 0.97695E+03_JPRB,0.73588E+03_JPRB,0.61197E+03_JPRB,0.57883E+03_JPRB,0.74352E+03_JPRB /)  
+KB(:, 5,38,15) = (/ &
+ & 0.94411E+03_JPRB,0.70978E+03_JPRB,0.58447E+03_JPRB,0.55704E+03_JPRB,0.71866E+03_JPRB /)  
+KB(:, 1,39,15) = (/ &
+ & 0.10791E+04_JPRB,0.82257E+03_JPRB,0.70938E+03_JPRB,0.65729E+03_JPRB,0.82913E+03_JPRB /)  
+KB(:, 2,39,15) = (/ &
+ & 0.10479E+04_JPRB,0.79481E+03_JPRB,0.67717E+03_JPRB,0.63099E+03_JPRB,0.80105E+03_JPRB /)  
+KB(:, 3,39,15) = (/ &
+ & 0.10158E+04_JPRB,0.76754E+03_JPRB,0.64630E+03_JPRB,0.60614E+03_JPRB,0.77394E+03_JPRB /)  
+KB(:, 4,39,15) = (/ &
+ & 0.98307E+03_JPRB,0.74076E+03_JPRB,0.61694E+03_JPRB,0.58271E+03_JPRB,0.74789E+03_JPRB /)  
+KB(:, 5,39,15) = (/ &
+ & 0.95013E+03_JPRB,0.71446E+03_JPRB,0.58917E+03_JPRB,0.56072E+03_JPRB,0.72285E+03_JPRB /)  
+KB(:, 1,40,15) = (/ &
+ & 0.10882E+04_JPRB,0.83071E+03_JPRB,0.71862E+03_JPRB,0.66478E+03_JPRB,0.83689E+03_JPRB /)  
+KB(:, 2,40,15) = (/ &
+ & 0.10571E+04_JPRB,0.80265E+03_JPRB,0.68589E+03_JPRB,0.63804E+03_JPRB,0.80862E+03_JPRB /)  
+KB(:, 3,40,15) = (/ &
+ & 0.10251E+04_JPRB,0.77527E+03_JPRB,0.65462E+03_JPRB,0.61278E+03_JPRB,0.78119E+03_JPRB /)  
+KB(:, 4,40,15) = (/ &
+ & 0.99232E+03_JPRB,0.74818E+03_JPRB,0.62475E+03_JPRB,0.58893E+03_JPRB,0.75487E+03_JPRB /)  
+KB(:, 5,40,15) = (/ &
+ & 0.95932E+03_JPRB,0.72168E+03_JPRB,0.59655E+03_JPRB,0.56653E+03_JPRB,0.72946E+03_JPRB /)  
+KB(:, 1,41,15) = (/ &
+ & 0.10971E+04_JPRB,0.83901E+03_JPRB,0.72823E+03_JPRB,0.67265E+03_JPRB,0.84493E+03_JPRB /)  
+KB(:, 2,41,15) = (/ &
+ & 0.10663E+04_JPRB,0.81071E+03_JPRB,0.69500E+03_JPRB,0.64543E+03_JPRB,0.81648E+03_JPRB /)  
+KB(:, 3,41,15) = (/ &
+ & 0.10345E+04_JPRB,0.78315E+03_JPRB,0.66331E+03_JPRB,0.61971E+03_JPRB,0.78878E+03_JPRB /)  
+KB(:, 4,41,15) = (/ &
+ & 0.10019E+04_JPRB,0.75590E+03_JPRB,0.63295E+03_JPRB,0.59541E+03_JPRB,0.76210E+03_JPRB /)  
+KB(:, 5,41,15) = (/ &
+ & 0.96878E+03_JPRB,0.72921E+03_JPRB,0.60428E+03_JPRB,0.57260E+03_JPRB,0.73637E+03_JPRB /)  
+KB(:, 1,42,15) = (/ &
+ & 0.11058E+04_JPRB,0.84736E+03_JPRB,0.73795E+03_JPRB,0.68059E+03_JPRB,0.85278E+03_JPRB /)  
+KB(:, 2,42,15) = (/ &
+ & 0.10754E+04_JPRB,0.81879E+03_JPRB,0.70412E+03_JPRB,0.65281E+03_JPRB,0.82432E+03_JPRB /)  
+KB(:, 3,42,15) = (/ &
+ & 0.10438E+04_JPRB,0.79093E+03_JPRB,0.67198E+03_JPRB,0.62664E+03_JPRB,0.79629E+03_JPRB /)  
+KB(:, 4,42,15) = (/ &
+ & 0.10112E+04_JPRB,0.76353E+03_JPRB,0.64116E+03_JPRB,0.60189E+03_JPRB,0.76925E+03_JPRB /)  
+KB(:, 5,42,15) = (/ &
+ & 0.97804E+03_JPRB,0.73660E+03_JPRB,0.61202E+03_JPRB,0.57870E+03_JPRB,0.74332E+03_JPRB /)  
+KB(:, 1,43,15) = (/ &
+ & 0.11158E+04_JPRB,0.85717E+03_JPRB,0.74955E+03_JPRB,0.69024E+03_JPRB,0.86217E+03_JPRB /)  
+KB(:, 2,43,15) = (/ &
+ & 0.10861E+04_JPRB,0.82836E+03_JPRB,0.71518E+03_JPRB,0.66177E+03_JPRB,0.83370E+03_JPRB /)  
+KB(:, 3,43,15) = (/ &
+ & 0.10546E+04_JPRB,0.80021E+03_JPRB,0.68243E+03_JPRB,0.63507E+03_JPRB,0.80541E+03_JPRB /)  
+KB(:, 4,43,15) = (/ &
+ & 0.10222E+04_JPRB,0.77261E+03_JPRB,0.65115E+03_JPRB,0.60984E+03_JPRB,0.77795E+03_JPRB /)  
+KB(:, 5,43,15) = (/ &
+ & 0.98916E+03_JPRB,0.74551E+03_JPRB,0.62143E+03_JPRB,0.58614E+03_JPRB,0.75171E+03_JPRB /)  
+KB(:, 1,44,15) = (/ &
+ & 0.11264E+04_JPRB,0.86786E+03_JPRB,0.76217E+03_JPRB,0.70088E+03_JPRB,0.87207E+03_JPRB /)  
+KB(:, 2,44,15) = (/ &
+ & 0.10970E+04_JPRB,0.83855E+03_JPRB,0.72711E+03_JPRB,0.67158E+03_JPRB,0.84381E+03_JPRB /)  
+KB(:, 3,44,15) = (/ &
+ & 0.10660E+04_JPRB,0.81015E+03_JPRB,0.69375E+03_JPRB,0.64429E+03_JPRB,0.81530E+03_JPRB /)  
+KB(:, 4,44,15) = (/ &
+ & 0.10339E+04_JPRB,0.78245E+03_JPRB,0.66207E+03_JPRB,0.61859E+03_JPRB,0.78750E+03_JPRB /)  
+KB(:, 5,44,15) = (/ &
+ & 0.10010E+04_JPRB,0.75506E+03_JPRB,0.63169E+03_JPRB,0.59432E+03_JPRB,0.76086E+03_JPRB /)  
+KB(:, 1,45,15) = (/ &
+ & 0.11364E+04_JPRB,0.87855E+03_JPRB,0.77494E+03_JPRB,0.71181E+03_JPRB,0.88191E+03_JPRB /)  
+KB(:, 2,45,15) = (/ &
+ & 0.11078E+04_JPRB,0.84885E+03_JPRB,0.73921E+03_JPRB,0.68154E+03_JPRB,0.85373E+03_JPRB /)  
+KB(:, 3,45,15) = (/ &
+ & 0.10773E+04_JPRB,0.82021E+03_JPRB,0.70525E+03_JPRB,0.65361E+03_JPRB,0.82516E+03_JPRB /)  
+KB(:, 4,45,15) = (/ &
+ & 0.10454E+04_JPRB,0.79218E+03_JPRB,0.67305E+03_JPRB,0.62740E+03_JPRB,0.79708E+03_JPRB /)  
+KB(:, 5,45,15) = (/ &
+ & 0.10127E+04_JPRB,0.76466E+03_JPRB,0.64208E+03_JPRB,0.60256E+03_JPRB,0.76997E+03_JPRB /)  
+KB(:, 1,46,15) = (/ &
+ & 0.11465E+04_JPRB,0.88995E+03_JPRB,0.78864E+03_JPRB,0.72357E+03_JPRB,0.89218E+03_JPRB /)  
+KB(:, 2,46,15) = (/ &
+ & 0.11189E+04_JPRB,0.85981E+03_JPRB,0.75227E+03_JPRB,0.69242E+03_JPRB,0.86430E+03_JPRB /)  
+KB(:, 3,46,15) = (/ &
+ & 0.10889E+04_JPRB,0.83077E+03_JPRB,0.71764E+03_JPRB,0.66370E+03_JPRB,0.83569E+03_JPRB /)  
+KB(:, 4,46,15) = (/ &
+ & 0.10574E+04_JPRB,0.80253E+03_JPRB,0.68479E+03_JPRB,0.63689E+03_JPRB,0.80730E+03_JPRB /)  
+KB(:, 5,46,15) = (/ &
+ & 0.10249E+04_JPRB,0.77483E+03_JPRB,0.65332E+03_JPRB,0.61153E+03_JPRB,0.77982E+03_JPRB /)  
+KB(:, 1,47,15) = (/ &
+ & 0.11573E+04_JPRB,0.90286E+03_JPRB,0.80421E+03_JPRB,0.73669E+03_JPRB,0.90313E+03_JPRB /)  
+KB(:, 2,47,15) = (/ &
+ & 0.11308E+04_JPRB,0.87219E+03_JPRB,0.76703E+03_JPRB,0.70495E+03_JPRB,0.87583E+03_JPRB /)  
+KB(:, 3,47,15) = (/ &
+ & 0.11017E+04_JPRB,0.84272E+03_JPRB,0.73168E+03_JPRB,0.67524E+03_JPRB,0.84747E+03_JPRB /)  
+KB(:, 4,47,15) = (/ &
+ & 0.10706E+04_JPRB,0.81413E+03_JPRB,0.69808E+03_JPRB,0.64772E+03_JPRB,0.81886E+03_JPRB /)  
+KB(:, 5,47,15) = (/ &
+ & 0.10385E+04_JPRB,0.78623E+03_JPRB,0.66606E+03_JPRB,0.62176E+03_JPRB,0.79095E+03_JPRB /)  
+KB(:, 1,48,15) = (/ &
+ & 0.11675E+04_JPRB,0.91580E+03_JPRB,0.81991E+03_JPRB,0.74998E+03_JPRB,0.91375E+03_JPRB /)  
+KB(:, 2,48,15) = (/ &
+ & 0.11421E+04_JPRB,0.88462E+03_JPRB,0.78203E+03_JPRB,0.71783E+03_JPRB,0.88726E+03_JPRB /)  
+KB(:, 3,48,15) = (/ &
+ & 0.11139E+04_JPRB,0.85471E+03_JPRB,0.74597E+03_JPRB,0.68710E+03_JPRB,0.85917E+03_JPRB /)  
+KB(:, 4,48,15) = (/ &
+ & 0.10836E+04_JPRB,0.82582E+03_JPRB,0.71165E+03_JPRB,0.65875E+03_JPRB,0.83052E+03_JPRB /)  
+KB(:, 5,48,15) = (/ &
+ & 0.10518E+04_JPRB,0.79762E+03_JPRB,0.67897E+03_JPRB,0.63216E+03_JPRB,0.80224E+03_JPRB /)  
+KB(:, 1,49,15) = (/ &
+ & 0.11770E+04_JPRB,0.92887E+03_JPRB,0.83589E+03_JPRB,0.76347E+03_JPRB,0.92401E+03_JPRB /)  
+KB(:, 2,49,15) = (/ &
+ & 0.11531E+04_JPRB,0.89735E+03_JPRB,0.79736E+03_JPRB,0.73085E+03_JPRB,0.89839E+03_JPRB /)  
+KB(:, 3,49,15) = (/ &
+ & 0.11259E+04_JPRB,0.86690E+03_JPRB,0.76049E+03_JPRB,0.69928E+03_JPRB,0.87069E+03_JPRB /)  
+KB(:, 4,49,15) = (/ &
+ & 0.10963E+04_JPRB,0.83754E+03_JPRB,0.72543E+03_JPRB,0.67003E+03_JPRB,0.84223E+03_JPRB /)  
+KB(:, 5,49,15) = (/ &
+ & 0.10650E+04_JPRB,0.80903E+03_JPRB,0.69202E+03_JPRB,0.64278E+03_JPRB,0.81363E+03_JPRB /)  
+KB(:, 1,50,15) = (/ &
+ & 0.11850E+04_JPRB,0.94106E+03_JPRB,0.85114E+03_JPRB,0.77623E+03_JPRB,0.93320E+03_JPRB /)  
+KB(:, 2,50,15) = (/ &
+ & 0.11628E+04_JPRB,0.90935E+03_JPRB,0.81191E+03_JPRB,0.74315E+03_JPRB,0.90846E+03_JPRB /)  
+KB(:, 3,50,15) = (/ &
+ & 0.11368E+04_JPRB,0.87848E+03_JPRB,0.77441E+03_JPRB,0.71118E+03_JPRB,0.88145E+03_JPRB /)  
+KB(:, 4,50,15) = (/ &
+ & 0.11080E+04_JPRB,0.84872E+03_JPRB,0.73862E+03_JPRB,0.68089E+03_JPRB,0.85311E+03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART35',1,ZHOOK_HANDLE)
+END SUBROUTINE PART35
+
+
+SUBROUTINE PART36
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART36',0,ZHOOK_HANDLE)
+
+
+KB(:, 5,50,15) = (/ &
+ & 0.10771E+04_JPRB,0.81987E+03_JPRB,0.70453E+03_JPRB,0.65297E+03_JPRB,0.82446E+03_JPRB /)  
+KB(:, 1,51,15) = (/ &
+ & 0.11923E+04_JPRB,0.95283E+03_JPRB,0.86626E+03_JPRB,0.78865E+03_JPRB,0.94170E+03_JPRB /)  
+KB(:, 2,51,15) = (/ &
+ & 0.11717E+04_JPRB,0.92110E+03_JPRB,0.82616E+03_JPRB,0.75525E+03_JPRB,0.91794E+03_JPRB /)  
+KB(:, 3,51,15) = (/ &
+ & 0.11468E+04_JPRB,0.88978E+03_JPRB,0.78804E+03_JPRB,0.72292E+03_JPRB,0.89168E+03_JPRB /)  
+KB(:, 4,51,15) = (/ &
+ & 0.11189E+04_JPRB,0.85951E+03_JPRB,0.75159E+03_JPRB,0.69174E+03_JPRB,0.86368E+03_JPRB /)  
+KB(:, 5,51,15) = (/ &
+ & 0.10888E+04_JPRB,0.83043E+03_JPRB,0.71698E+03_JPRB,0.66309E+03_JPRB,0.83504E+03_JPRB /)  
+KB(:, 1,52,15) = (/ &
+ & 0.11987E+04_JPRB,0.96448E+03_JPRB,0.88155E+03_JPRB,0.80101E+03_JPRB,0.94976E+03_JPRB /)  
+KB(:, 2,52,15) = (/ &
+ & 0.11799E+04_JPRB,0.93288E+03_JPRB,0.84067E+03_JPRB,0.76742E+03_JPRB,0.92694E+03_JPRB /)  
+KB(:, 3,52,15) = (/ &
+ & 0.11564E+04_JPRB,0.90125E+03_JPRB,0.80189E+03_JPRB,0.73467E+03_JPRB,0.90155E+03_JPRB /)  
+KB(:, 4,52,15) = (/ &
+ & 0.11296E+04_JPRB,0.87065E+03_JPRB,0.76482E+03_JPRB,0.70289E+03_JPRB,0.87401E+03_JPRB /)  
+KB(:, 5,52,15) = (/ &
+ & 0.11001E+04_JPRB,0.84107E+03_JPRB,0.72948E+03_JPRB,0.67337E+03_JPRB,0.84559E+03_JPRB /)  
+KB(:, 1,53,15) = (/ &
+ & 0.12042E+04_JPRB,0.97597E+03_JPRB,0.89729E+03_JPRB,0.81334E+03_JPRB,0.95716E+03_JPRB /)  
+KB(:, 2,53,15) = (/ &
+ & 0.11876E+04_JPRB,0.94467E+03_JPRB,0.85557E+03_JPRB,0.77990E+03_JPRB,0.93591E+03_JPRB /)  
+KB(:, 3,53,15) = (/ &
+ & 0.11657E+04_JPRB,0.91285E+03_JPRB,0.81605E+03_JPRB,0.74663E+03_JPRB,0.91125E+03_JPRB /)  
+KB(:, 4,53,15) = (/ &
+ & 0.11399E+04_JPRB,0.88179E+03_JPRB,0.77830E+03_JPRB,0.71447E+03_JPRB,0.88437E+03_JPRB /)  
+KB(:, 5,53,15) = (/ &
+ & 0.11113E+04_JPRB,0.85189E+03_JPRB,0.74233E+03_JPRB,0.68396E+03_JPRB,0.85611E+03_JPRB /)  
+KB(:, 1,54,15) = (/ &
+ & 0.12085E+04_JPRB,0.98643E+03_JPRB,0.91208E+03_JPRB,0.82462E+03_JPRB,0.96332E+03_JPRB /)  
+KB(:, 2,54,15) = (/ &
+ & 0.11940E+04_JPRB,0.95533E+03_JPRB,0.86934E+03_JPRB,0.79114E+03_JPRB,0.94342E+03_JPRB /)  
+KB(:, 3,54,15) = (/ &
+ & 0.11737E+04_JPRB,0.92362E+03_JPRB,0.82909E+03_JPRB,0.75767E+03_JPRB,0.91977E+03_JPRB /)  
+KB(:, 4,54,15) = (/ &
+ & 0.11490E+04_JPRB,0.89214E+03_JPRB,0.79079E+03_JPRB,0.72522E+03_JPRB,0.89369E+03_JPRB /)  
+KB(:, 5,54,15) = (/ &
+ & 0.11212E+04_JPRB,0.86180E+03_JPRB,0.75420E+03_JPRB,0.69390E+03_JPRB,0.86571E+03_JPRB /)  
+KB(:, 1,55,15) = (/ &
+ & 0.12111E+04_JPRB,0.99597E+03_JPRB,0.92635E+03_JPRB,0.83534E+03_JPRB,0.96856E+03_JPRB /)  
+KB(:, 2,55,15) = (/ &
+ & 0.11993E+04_JPRB,0.96550E+03_JPRB,0.88281E+03_JPRB,0.80196E+03_JPRB,0.95029E+03_JPRB /)  
+KB(:, 3,55,15) = (/ &
+ & 0.11808E+04_JPRB,0.93390E+03_JPRB,0.84185E+03_JPRB,0.76841E+03_JPRB,0.92774E+03_JPRB /)  
+KB(:, 4,55,15) = (/ &
+ & 0.11574E+04_JPRB,0.90226E+03_JPRB,0.80305E+03_JPRB,0.73557E+03_JPRB,0.90236E+03_JPRB /)  
+KB(:, 5,55,15) = (/ &
+ & 0.11305E+04_JPRB,0.87151E+03_JPRB,0.76581E+03_JPRB,0.70377E+03_JPRB,0.87482E+03_JPRB /)  
+KB(:, 1,56,15) = (/ &
+ & 0.12133E+04_JPRB,0.10055E+04_JPRB,0.94091E+03_JPRB,0.84599E+03_JPRB,0.97308E+03_JPRB /)  
+KB(:, 2,56,15) = (/ &
+ & 0.12041E+04_JPRB,0.97555E+03_JPRB,0.89660E+03_JPRB,0.81280E+03_JPRB,0.95684E+03_JPRB /)  
+KB(:, 3,56,15) = (/ &
+ & 0.11875E+04_JPRB,0.94422E+03_JPRB,0.85482E+03_JPRB,0.77921E+03_JPRB,0.93538E+03_JPRB /)  
+KB(:, 4,56,15) = (/ &
+ & 0.11654E+04_JPRB,0.91235E+03_JPRB,0.81536E+03_JPRB,0.74599E+03_JPRB,0.91077E+03_JPRB /)  
+KB(:, 5,56,15) = (/ &
+ & 0.11395E+04_JPRB,0.88125E+03_JPRB,0.77756E+03_JPRB,0.71383E+03_JPRB,0.88381E+03_JPRB /)  
+KB(:, 1,57,15) = (/ &
+ & 0.12144E+04_JPRB,0.10149E+04_JPRB,0.95530E+03_JPRB,0.85635E+03_JPRB,0.97654E+03_JPRB /)  
+KB(:, 2,57,15) = (/ &
+ & 0.12082E+04_JPRB,0.98553E+03_JPRB,0.91069E+03_JPRB,0.82360E+03_JPRB,0.96286E+03_JPRB /)  
+KB(:, 3,57,15) = (/ &
+ & 0.11936E+04_JPRB,0.95436E+03_JPRB,0.86797E+03_JPRB,0.78997E+03_JPRB,0.94263E+03_JPRB /)  
+KB(:, 4,57,15) = (/ &
+ & 0.11730E+04_JPRB,0.92261E+03_JPRB,0.82779E+03_JPRB,0.75653E+03_JPRB,0.91896E+03_JPRB /)  
+KB(:, 5,57,15) = (/ &
+ & 0.11481E+04_JPRB,0.89107E+03_JPRB,0.78949E+03_JPRB,0.72412E+03_JPRB,0.89274E+03_JPRB /)  
+KB(:, 1,58,15) = (/ &
+ & 0.12146E+04_JPRB,0.10236E+04_JPRB,0.96889E+03_JPRB,0.86606E+03_JPRB,0.97897E+03_JPRB /)  
+KB(:, 2,58,15) = (/ &
+ & 0.12111E+04_JPRB,0.99468E+03_JPRB,0.92419E+03_JPRB,0.83372E+03_JPRB,0.96790E+03_JPRB /)  
+KB(:, 3,58,15) = (/ &
+ & 0.11988E+04_JPRB,0.96400E+03_JPRB,0.88060E+03_JPRB,0.80022E+03_JPRB,0.94932E+03_JPRB /)  
+KB(:, 4,58,15) = (/ &
+ & 0.11798E+04_JPRB,0.93230E+03_JPRB,0.83979E+03_JPRB,0.76663E+03_JPRB,0.92647E+03_JPRB /)  
+KB(:, 5,58,15) = (/ &
+ & 0.11561E+04_JPRB,0.90059E+03_JPRB,0.80102E+03_JPRB,0.73388E+03_JPRB,0.90094E+03_JPRB /)  
+KB(:, 1,59,15) = (/ &
+ & 0.12143E+04_JPRB,0.10270E+04_JPRB,0.97431E+03_JPRB,0.86988E+03_JPRB,0.97963E+03_JPRB /)  
+KB(:, 2,59,15) = (/ &
+ & 0.12120E+04_JPRB,0.99826E+03_JPRB,0.92964E+03_JPRB,0.83774E+03_JPRB,0.96974E+03_JPRB /)  
+KB(:, 3,59,15) = (/ &
+ & 0.12008E+04_JPRB,0.96785E+03_JPRB,0.88575E+03_JPRB,0.80426E+03_JPRB,0.95182E+03_JPRB /)  
+KB(:, 4,59,15) = (/ &
+ & 0.11824E+04_JPRB,0.93625E+03_JPRB,0.84468E+03_JPRB,0.77075E+03_JPRB,0.92946E+03_JPRB /)  
+KB(:, 5,59,15) = (/ &
+ & 0.11592E+04_JPRB,0.90444E+03_JPRB,0.80567E+03_JPRB,0.73781E+03_JPRB,0.90417E+03_JPRB /)  
+KB(:, 1,13,16) = (/ &
+ & 0.60786E+03_JPRB,0.45592E+03_JPRB,0.38499E+03_JPRB,0.57704E+03_JPRB,0.77025E+03_JPRB /)  
+KB(:, 2,13,16) = (/ &
+ & 0.61089E+03_JPRB,0.45819E+03_JPRB,0.37289E+03_JPRB,0.55854E+03_JPRB,0.74550E+03_JPRB /)  
+KB(:, 3,13,16) = (/ &
+ & 0.61169E+03_JPRB,0.45879E+03_JPRB,0.36189E+03_JPRB,0.54102E+03_JPRB,0.72223E+03_JPRB /)  
+KB(:, 4,13,16) = (/ &
+ & 0.61079E+03_JPRB,0.45811E+03_JPRB,0.35169E+03_JPRB,0.52404E+03_JPRB,0.69950E+03_JPRB /)  
+KB(:, 5,13,16) = (/ &
+ & 0.60850E+03_JPRB,0.45639E+03_JPRB,0.34199E+03_JPRB,0.50729E+03_JPRB,0.67716E+03_JPRB /)  
+KB(:, 1,14,16) = (/ &
+ & 0.71905E+03_JPRB,0.53931E+03_JPRB,0.44704E+03_JPRB,0.66948E+03_JPRB,0.89363E+03_JPRB /)  
+KB(:, 2,14,16) = (/ &
+ & 0.71950E+03_JPRB,0.53965E+03_JPRB,0.43274E+03_JPRB,0.64598E+03_JPRB,0.86230E+03_JPRB /)  
+KB(:, 3,14,16) = (/ &
+ & 0.71818E+03_JPRB,0.53865E+03_JPRB,0.41969E+03_JPRB,0.62353E+03_JPRB,0.83220E+03_JPRB /)  
+KB(:, 4,14,16) = (/ &
+ & 0.71532E+03_JPRB,0.53651E+03_JPRB,0.40717E+03_JPRB,0.60193E+03_JPRB,0.80343E+03_JPRB /)  
+KB(:, 5,14,16) = (/ &
+ & 0.71008E+03_JPRB,0.53258E+03_JPRB,0.39527E+03_JPRB,0.58080E+03_JPRB,0.77521E+03_JPRB /)  
+KB(:, 1,15,16) = (/ &
+ & 0.84339E+03_JPRB,0.63256E+03_JPRB,0.51534E+03_JPRB,0.76897E+03_JPRB,0.10264E+04_JPRB /)  
+KB(:, 2,15,16) = (/ &
+ & 0.84056E+03_JPRB,0.63042E+03_JPRB,0.49783E+03_JPRB,0.73927E+03_JPRB,0.98670E+03_JPRB /)  
+KB(:, 3,15,16) = (/ &
+ & 0.83549E+03_JPRB,0.62663E+03_JPRB,0.48183E+03_JPRB,0.71056E+03_JPRB,0.94836E+03_JPRB /)  
+KB(:, 4,15,16) = (/ &
+ & 0.82865E+03_JPRB,0.62150E+03_JPRB,0.46649E+03_JPRB,0.68266E+03_JPRB,0.91115E+03_JPRB /)  
+KB(:, 5,15,16) = (/ &
+ & 0.81975E+03_JPRB,0.61483E+03_JPRB,0.45195E+03_JPRB,0.65670E+03_JPRB,0.87636E+03_JPRB /)  
+KB(:, 1,16,16) = (/ &
+ & 0.97910E+03_JPRB,0.73434E+03_JPRB,0.58857E+03_JPRB,0.87272E+03_JPRB,0.11648E+04_JPRB /)  
+KB(:, 2,16,16) = (/ &
+ & 0.97153E+03_JPRB,0.72866E+03_JPRB,0.56721E+03_JPRB,0.83540E+03_JPRB,0.11150E+04_JPRB /)  
+KB(:, 3,16,16) = (/ &
+ & 0.96129E+03_JPRB,0.72098E+03_JPRB,0.54742E+03_JPRB,0.79937E+03_JPRB,0.10667E+04_JPRB /)  
+KB(:, 4,16,16) = (/ &
+ & 0.94880E+03_JPRB,0.71161E+03_JPRB,0.52876E+03_JPRB,0.76497E+03_JPRB,0.10209E+04_JPRB /)  
+KB(:, 5,16,16) = (/ &
+ & 0.93421E+03_JPRB,0.70067E+03_JPRB,0.51082E+03_JPRB,0.73352E+03_JPRB,0.97881E+03_JPRB /)  
+KB(:, 1,17,16) = (/ &
+ & 0.11229E+04_JPRB,0.84221E+03_JPRB,0.66547E+03_JPRB,0.97911E+03_JPRB,0.13066E+04_JPRB /)  
+KB(:, 2,17,16) = (/ &
+ & 0.11091E+04_JPRB,0.83187E+03_JPRB,0.63930E+03_JPRB,0.93226E+03_JPRB,0.12440E+04_JPRB /)  
+KB(:, 3,17,16) = (/ &
+ & 0.10923E+04_JPRB,0.81922E+03_JPRB,0.61539E+03_JPRB,0.88802E+03_JPRB,0.11849E+04_JPRB /)  
+KB(:, 4,17,16) = (/ &
+ & 0.10728E+04_JPRB,0.80459E+03_JPRB,0.59256E+03_JPRB,0.84691E+03_JPRB,0.11301E+04_JPRB /)  
+KB(:, 5,17,16) = (/ &
+ & 0.10515E+04_JPRB,0.78865E+03_JPRB,0.57044E+03_JPRB,0.80936E+03_JPRB,0.10799E+04_JPRB /)  
+KB(:, 1,18,16) = (/ &
+ & 0.12716E+04_JPRB,0.95370E+03_JPRB,0.74447E+03_JPRB,0.10843E+04_JPRB,0.14469E+04_JPRB /)  
+KB(:, 2,18,16) = (/ &
+ & 0.12500E+04_JPRB,0.93749E+03_JPRB,0.71274E+03_JPRB,0.10272E+04_JPRB,0.13706E+04_JPRB /)  
+KB(:, 3,18,16) = (/ &
+ & 0.12251E+04_JPRB,0.91883E+03_JPRB,0.68394E+03_JPRB,0.97432E+03_JPRB,0.13000E+04_JPRB /)  
+KB(:, 4,18,16) = (/ &
+ & 0.11973E+04_JPRB,0.89795E+03_JPRB,0.65609E+03_JPRB,0.92626E+03_JPRB,0.12359E+04_JPRB /)  
+KB(:, 5,18,16) = (/ &
+ & 0.11679E+04_JPRB,0.87596E+03_JPRB,0.62959E+03_JPRB,0.88232E+03_JPRB,0.11772E+04_JPRB /)  
+KB(:, 1,19,16) = (/ &
+ & 0.14213E+04_JPRB,0.10659E+04_JPRB,0.82299E+03_JPRB,0.11854E+04_JPRB,0.15817E+04_JPRB /)  
+KB(:, 2,19,16) = (/ &
+ & 0.13899E+04_JPRB,0.10424E+04_JPRB,0.78536E+03_JPRB,0.11181E+04_JPRB,0.14919E+04_JPRB /)  
+KB(:, 3,19,16) = (/ &
+ & 0.13555E+04_JPRB,0.10166E+04_JPRB,0.75067E+03_JPRB,0.10563E+04_JPRB,0.14093E+04_JPRB /)  
+KB(:, 4,19,16) = (/ &
+ & 0.13187E+04_JPRB,0.98902E+03_JPRB,0.71751E+03_JPRB,0.10008E+04_JPRB,0.13351E+04_JPRB /)  
+KB(:, 5,19,16) = (/ &
+ & 0.12809E+04_JPRB,0.96067E+03_JPRB,0.68653E+03_JPRB,0.95065E+03_JPRB,0.12682E+04_JPRB /)  
+KB(:, 1,20,16) = (/ &
+ & 0.15671E+04_JPRB,0.11753E+04_JPRB,0.89787E+03_JPRB,0.12782E+04_JPRB,0.17052E+04_JPRB /)  
+KB(:, 2,20,16) = (/ &
+ & 0.15245E+04_JPRB,0.11434E+04_JPRB,0.85373E+03_JPRB,0.12013E+04_JPRB,0.16026E+04_JPRB /)  
+KB(:, 3,20,16) = (/ &
+ & 0.14795E+04_JPRB,0.11097E+04_JPRB,0.81323E+03_JPRB,0.11307E+04_JPRB,0.15085E+04_JPRB /)  
+KB(:, 4,20,16) = (/ &
+ & 0.14333E+04_JPRB,0.10750E+04_JPRB,0.77488E+03_JPRB,0.10684E+04_JPRB,0.14252E+04_JPRB /)  
+KB(:, 5,20,16) = (/ &
+ & 0.13861E+04_JPRB,0.10396E+04_JPRB,0.73891E+03_JPRB,0.10119E+04_JPRB,0.13498E+04_JPRB /)  
+KB(:, 1,21,16) = (/ &
+ & 0.17057E+04_JPRB,0.12793E+04_JPRB,0.96840E+03_JPRB,0.13620E+04_JPRB,0.18170E+04_JPRB /)  
+KB(:, 2,21,16) = (/ &
+ & 0.16509E+04_JPRB,0.12382E+04_JPRB,0.91726E+03_JPRB,0.12758E+04_JPRB,0.17018E+04_JPRB /)  
+KB(:, 3,21,16) = (/ &
+ & 0.15947E+04_JPRB,0.11960E+04_JPRB,0.87064E+03_JPRB,0.11975E+04_JPRB,0.15973E+04_JPRB /)  
+KB(:, 4,21,16) = (/ &
+ & 0.15386E+04_JPRB,0.11540E+04_JPRB,0.82723E+03_JPRB,0.11286E+04_JPRB,0.15054E+04_JPRB /)  
+KB(:, 5,21,16) = (/ &
+ & 0.14823E+04_JPRB,0.11117E+04_JPRB,0.78614E+03_JPRB,0.10661E+04_JPRB,0.14220E+04_JPRB /)  
+KB(:, 1,22,16) = (/ &
+ & 0.18293E+04_JPRB,0.13720E+04_JPRB,0.10288E+04_JPRB,0.14300E+04_JPRB,0.19074E+04_JPRB /)  
+KB(:, 2,22,16) = (/ &
+ & 0.17617E+04_JPRB,0.13213E+04_JPRB,0.97120E+03_JPRB,0.13351E+04_JPRB,0.17808E+04_JPRB /)  
+KB(:, 3,22,16) = (/ &
+ & 0.16944E+04_JPRB,0.12708E+04_JPRB,0.91894E+03_JPRB,0.12506E+04_JPRB,0.16681E+04_JPRB /)  
+KB(:, 4,22,16) = (/ &
+ & 0.16287E+04_JPRB,0.12215E+04_JPRB,0.87041E+03_JPRB,0.11757E+04_JPRB,0.15681E+04_JPRB /)  
+KB(:, 5,22,16) = (/ &
+ & 0.15635E+04_JPRB,0.11726E+04_JPRB,0.82499E+03_JPRB,0.11083E+04_JPRB,0.14783E+04_JPRB /)  
+KB(:, 1,23,16) = (/ &
+ & 0.19373E+04_JPRB,0.14530E+04_JPRB,0.10803E+04_JPRB,0.14855E+04_JPRB,0.19814E+04_JPRB /)  
+KB(:, 2,23,16) = (/ &
+ & 0.18577E+04_JPRB,0.13933E+04_JPRB,0.10171E+04_JPRB,0.13836E+04_JPRB,0.18455E+04_JPRB /)  
+KB(:, 3,23,16) = (/ &
+ & 0.17799E+04_JPRB,0.13350E+04_JPRB,0.95955E+03_JPRB,0.12936E+04_JPRB,0.17253E+04_JPRB /)  
+KB(:, 4,23,16) = (/ &
+ & 0.17053E+04_JPRB,0.12790E+04_JPRB,0.90643E+03_JPRB,0.12138E+04_JPRB,0.16189E+04_JPRB /)  
+KB(:, 5,23,16) = (/ &
+ & 0.16318E+04_JPRB,0.12239E+04_JPRB,0.85742E+03_JPRB,0.11422E+04_JPRB,0.15233E+04_JPRB /)  
+KB(:, 1,24,16) = (/ &
+ & 0.20285E+04_JPRB,0.15214E+04_JPRB,0.11229E+04_JPRB,0.15287E+04_JPRB,0.20389E+04_JPRB /)  
+KB(:, 2,24,16) = (/ &
+ & 0.19379E+04_JPRB,0.14534E+04_JPRB,0.10546E+04_JPRB,0.14215E+04_JPRB,0.18958E+04_JPRB /)  
+KB(:, 3,24,16) = (/ &
+ & 0.18509E+04_JPRB,0.13882E+04_JPRB,0.99252E+03_JPRB,0.13268E+04_JPRB,0.17696E+04_JPRB /)  
+KB(:, 4,24,16) = (/ &
+ & 0.17680E+04_JPRB,0.13260E+04_JPRB,0.93542E+03_JPRB,0.12431E+04_JPRB,0.16579E+04_JPRB /)  
+KB(:, 5,24,16) = (/ &
+ & 0.16872E+04_JPRB,0.12654E+04_JPRB,0.88318E+03_JPRB,0.11679E+04_JPRB,0.15576E+04_JPRB /)  
+KB(:, 1,25,16) = (/ &
+ & 0.21022E+04_JPRB,0.15767E+04_JPRB,0.11562E+04_JPRB,0.15596E+04_JPRB,0.20800E+04_JPRB /)  
+KB(:, 2,25,16) = (/ &
+ & 0.20021E+04_JPRB,0.15016E+04_JPRB,0.10837E+04_JPRB,0.14483E+04_JPRB,0.19315E+04_JPRB /)  
+KB(:, 3,25,16) = (/ &
+ & 0.19072E+04_JPRB,0.14304E+04_JPRB,0.10177E+04_JPRB,0.13507E+04_JPRB,0.18013E+04_JPRB /)  
+KB(:, 4,25,16) = (/ &
+ & 0.18172E+04_JPRB,0.13629E+04_JPRB,0.95761E+03_JPRB,0.12639E+04_JPRB,0.16854E+04_JPRB /)  
+KB(:, 5,25,16) = (/ &
+ & 0.17302E+04_JPRB,0.12976E+04_JPRB,0.90262E+03_JPRB,0.11861E+04_JPRB,0.15818E+04_JPRB /)  
+KB(:, 1,26,16) = (/ &
+ & 0.21584E+04_JPRB,0.16188E+04_JPRB,0.11798E+04_JPRB,0.15785E+04_JPRB,0.21051E+04_JPRB /)  
+KB(:, 2,26,16) = (/ &
+ & 0.20504E+04_JPRB,0.15378E+04_JPRB,0.11040E+04_JPRB,0.14649E+04_JPRB,0.19536E+04_JPRB /)  
+KB(:, 3,26,16) = (/ &
+ & 0.19488E+04_JPRB,0.14616E+04_JPRB,0.10351E+04_JPRB,0.13650E+04_JPRB,0.18204E+04_JPRB /)  
+KB(:, 4,26,16) = (/ &
+ & 0.18527E+04_JPRB,0.13896E+04_JPRB,0.97267E+03_JPRB,0.12762E+04_JPRB,0.17019E+04_JPRB /)  
+KB(:, 5,26,16) = (/ &
+ & 0.17609E+04_JPRB,0.13206E+04_JPRB,0.91583E+03_JPRB,0.11969E+04_JPRB,0.15961E+04_JPRB /)  
+KB(:, 1,27,16) = (/ &
+ & 0.21995E+04_JPRB,0.16496E+04_JPRB,0.11960E+04_JPRB,0.15887E+04_JPRB,0.21185E+04_JPRB /)  
+KB(:, 2,27,16) = (/ &
+ & 0.20852E+04_JPRB,0.15639E+04_JPRB,0.11175E+04_JPRB,0.14736E+04_JPRB,0.19651E+04_JPRB /)  
+KB(:, 3,27,16) = (/ &
+ & 0.19784E+04_JPRB,0.14838E+04_JPRB,0.10466E+04_JPRB,0.13723E+04_JPRB,0.18300E+04_JPRB /)  
+KB(:, 4,27,16) = (/ &
+ & 0.18776E+04_JPRB,0.14082E+04_JPRB,0.98231E+03_JPRB,0.12823E+04_JPRB,0.17101E+04_JPRB /)  
+KB(:, 5,27,16) = (/ &
+ & 0.17820E+04_JPRB,0.13365E+04_JPRB,0.92416E+03_JPRB,0.12022E+04_JPRB,0.16031E+04_JPRB /)  
+KB(:, 1,28,16) = (/ &
+ & 0.22274E+04_JPRB,0.16706E+04_JPRB,0.12052E+04_JPRB,0.15913E+04_JPRB,0.21220E+04_JPRB /)  
+KB(:, 2,28,16) = (/ &
+ & 0.21084E+04_JPRB,0.15813E+04_JPRB,0.11251E+04_JPRB,0.14757E+04_JPRB,0.19679E+04_JPRB /)  
+KB(:, 3,28,16) = (/ &
+ & 0.19974E+04_JPRB,0.14981E+04_JPRB,0.10528E+04_JPRB,0.13738E+04_JPRB,0.18320E+04_JPRB /)  
+KB(:, 4,28,16) = (/ &
+ & 0.18930E+04_JPRB,0.14198E+04_JPRB,0.98736E+03_JPRB,0.12834E+04_JPRB,0.17114E+04_JPRB /)  
+KB(:, 5,28,16) = (/ &
+ & 0.17945E+04_JPRB,0.13459E+04_JPRB,0.92826E+03_JPRB,0.12029E+04_JPRB,0.16040E+04_JPRB /)  
+KB(:, 1,29,16) = (/ &
+ & 0.22434E+04_JPRB,0.16825E+04_JPRB,0.12082E+04_JPRB,0.15868E+04_JPRB,0.21160E+04_JPRB /)  
+KB(:, 2,29,16) = (/ &
+ & 0.21209E+04_JPRB,0.15907E+04_JPRB,0.11272E+04_JPRB,0.14716E+04_JPRB,0.19623E+04_JPRB /)  
+KB(:, 3,29,16) = (/ &
+ & 0.20069E+04_JPRB,0.15052E+04_JPRB,0.10541E+04_JPRB,0.13700E+04_JPRB,0.18268E+04_JPRB /)  
+KB(:, 4,29,16) = (/ &
+ & 0.18999E+04_JPRB,0.14249E+04_JPRB,0.98819E+03_JPRB,0.12798E+04_JPRB,0.17065E+04_JPRB /)  
+KB(:, 5,29,16) = (/ &
+ & 0.17996E+04_JPRB,0.13497E+04_JPRB,0.92869E+03_JPRB,0.11992E+04_JPRB,0.15991E+04_JPRB /)  
+KB(:, 1,30,16) = (/ &
+ & 0.22495E+04_JPRB,0.16871E+04_JPRB,0.12065E+04_JPRB,0.15776E+04_JPRB,0.21036E+04_JPRB /)  
+KB(:, 2,30,16) = (/ &
+ & 0.21251E+04_JPRB,0.15938E+04_JPRB,0.11251E+04_JPRB,0.14633E+04_JPRB,0.19512E+04_JPRB /)  
+KB(:, 3,30,16) = (/ &
+ & 0.20091E+04_JPRB,0.15068E+04_JPRB,0.10517E+04_JPRB,0.13621E+04_JPRB,0.18163E+04_JPRB /)  
+KB(:, 4,30,16) = (/ &
+ & 0.19004E+04_JPRB,0.14253E+04_JPRB,0.98584E+03_JPRB,0.12727E+04_JPRB,0.16970E+04_JPRB /)  
+KB(:, 5,30,16) = (/ &
+ & 0.17984E+04_JPRB,0.13488E+04_JPRB,0.92610E+03_JPRB,0.11928E+04_JPRB,0.15905E+04_JPRB /)  
+KB(:, 1,31,16) = (/ &
+ & 0.22474E+04_JPRB,0.16855E+04_JPRB,0.12005E+04_JPRB,0.15635E+04_JPRB,0.20848E+04_JPRB /)  
+KB(:, 2,31,16) = (/ &
+ & 0.21214E+04_JPRB,0.15910E+04_JPRB,0.11192E+04_JPRB,0.14507E+04_JPRB,0.19344E+04_JPRB /)  
+KB(:, 3,31,16) = (/ &
+ & 0.20043E+04_JPRB,0.15033E+04_JPRB,0.10461E+04_JPRB,0.13510E+04_JPRB,0.18015E+04_JPRB /)  
+KB(:, 4,31,16) = (/ &
+ & 0.18948E+04_JPRB,0.14211E+04_JPRB,0.98049E+03_JPRB,0.12625E+04_JPRB,0.16835E+04_JPRB /)  
+KB(:, 5,31,16) = (/ &
+ & 0.17922E+04_JPRB,0.13441E+04_JPRB,0.92102E+03_JPRB,0.11837E+04_JPRB,0.15784E+04_JPRB /)  
+KB(:, 1,32,16) = (/ &
+ & 0.22387E+04_JPRB,0.16790E+04_JPRB,0.11913E+04_JPRB,0.15463E+04_JPRB,0.20617E+04_JPRB /)  
+KB(:, 2,32,16) = (/ &
+ & 0.21117E+04_JPRB,0.15838E+04_JPRB,0.11104E+04_JPRB,0.14353E+04_JPRB,0.19138E+04_JPRB /)  
+KB(:, 3,32,16) = (/ &
+ & 0.19944E+04_JPRB,0.14958E+04_JPRB,0.10381E+04_JPRB,0.13373E+04_JPRB,0.17831E+04_JPRB /)  
+KB(:, 4,32,16) = (/ &
+ & 0.18846E+04_JPRB,0.14135E+04_JPRB,0.97304E+03_JPRB,0.12502E+04_JPRB,0.16670E+04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART36',1,ZHOOK_HANDLE)
+END SUBROUTINE PART36
+
+
+SUBROUTINE PART37
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART37',0,ZHOOK_HANDLE)
+
+
+KB(:, 5,32,16) = (/ &
+ & 0.17818E+04_JPRB,0.13363E+04_JPRB,0.91392E+03_JPRB,0.11724E+04_JPRB,0.15633E+04_JPRB /)  
+KB(:, 1,33,16) = (/ &
+ & 0.22243E+04_JPRB,0.16682E+04_JPRB,0.11793E+04_JPRB,0.15266E+04_JPRB,0.20355E+04_JPRB /)  
+KB(:, 2,33,16) = (/ &
+ & 0.20975E+04_JPRB,0.15731E+04_JPRB,0.10994E+04_JPRB,0.14177E+04_JPRB,0.18903E+04_JPRB /)  
+KB(:, 3,33,16) = (/ &
+ & 0.19805E+04_JPRB,0.14854E+04_JPRB,0.10282E+04_JPRB,0.13217E+04_JPRB,0.17623E+04_JPRB /)  
+KB(:, 4,33,16) = (/ &
+ & 0.18707E+04_JPRB,0.14030E+04_JPRB,0.96384E+03_JPRB,0.12361E+04_JPRB,0.16482E+04_JPRB /)  
+KB(:, 5,33,16) = (/ &
+ & 0.17684E+04_JPRB,0.13263E+04_JPRB,0.90541E+03_JPRB,0.11600E+04_JPRB,0.15467E+04_JPRB /)  
+KB(:, 1,34,16) = (/ &
+ & 0.22110E+04_JPRB,0.16582E+04_JPRB,0.11687E+04_JPRB,0.15094E+04_JPRB,0.20126E+04_JPRB /)  
+KB(:, 2,34,16) = (/ &
+ & 0.20843E+04_JPRB,0.15632E+04_JPRB,0.10894E+04_JPRB,0.14021E+04_JPRB,0.18696E+04_JPRB /)  
+KB(:, 3,34,16) = (/ &
+ & 0.19675E+04_JPRB,0.14756E+04_JPRB,0.10193E+04_JPRB,0.13079E+04_JPRB,0.17439E+04_JPRB /)  
+KB(:, 4,34,16) = (/ &
+ & 0.18579E+04_JPRB,0.13934E+04_JPRB,0.95559E+03_JPRB,0.12238E+04_JPRB,0.16318E+04_JPRB /)  
+KB(:, 5,34,16) = (/ &
+ & 0.17560E+04_JPRB,0.13170E+04_JPRB,0.89776E+03_JPRB,0.11489E+04_JPRB,0.15318E+04_JPRB /)  
+KB(:, 1,35,16) = (/ &
+ & 0.22070E+04_JPRB,0.16552E+04_JPRB,0.11645E+04_JPRB,0.15017E+04_JPRB,0.20024E+04_JPRB /)  
+KB(:, 2,35,16) = (/ &
+ & 0.20800E+04_JPRB,0.15600E+04_JPRB,0.10855E+04_JPRB,0.13953E+04_JPRB,0.18605E+04_JPRB /)  
+KB(:, 3,35,16) = (/ &
+ & 0.19630E+04_JPRB,0.14722E+04_JPRB,0.10157E+04_JPRB,0.13017E+04_JPRB,0.17356E+04_JPRB /)  
+KB(:, 4,35,16) = (/ &
+ & 0.18532E+04_JPRB,0.13899E+04_JPRB,0.95221E+03_JPRB,0.12182E+04_JPRB,0.16243E+04_JPRB /)  
+KB(:, 5,35,16) = (/ &
+ & 0.17512E+04_JPRB,0.13134E+04_JPRB,0.89456E+03_JPRB,0.11438E+04_JPRB,0.15251E+04_JPRB /)  
+KB(:, 1,36,16) = (/ &
+ & 0.22146E+04_JPRB,0.16609E+04_JPRB,0.11681E+04_JPRB,0.15050E+04_JPRB,0.20067E+04_JPRB /)  
+KB(:, 2,36,16) = (/ &
+ & 0.20867E+04_JPRB,0.15651E+04_JPRB,0.10887E+04_JPRB,0.13982E+04_JPRB,0.18642E+04_JPRB /)  
+KB(:, 3,36,16) = (/ &
+ & 0.19689E+04_JPRB,0.14767E+04_JPRB,0.10184E+04_JPRB,0.13041E+04_JPRB,0.17389E+04_JPRB /)  
+KB(:, 4,36,16) = (/ &
+ & 0.18582E+04_JPRB,0.13937E+04_JPRB,0.95458E+03_JPRB,0.12204E+04_JPRB,0.16272E+04_JPRB /)  
+KB(:, 5,36,16) = (/ &
+ & 0.17557E+04_JPRB,0.13168E+04_JPRB,0.89664E+03_JPRB,0.11458E+04_JPRB,0.15277E+04_JPRB /)  
+KB(:, 1,37,16) = (/ &
+ & 0.22411E+04_JPRB,0.16809E+04_JPRB,0.11837E+04_JPRB,0.15248E+04_JPRB,0.20331E+04_JPRB /)  
+KB(:, 2,37,16) = (/ &
+ & 0.21106E+04_JPRB,0.15830E+04_JPRB,0.11025E+04_JPRB,0.14155E+04_JPRB,0.18873E+04_JPRB /)  
+KB(:, 3,37,16) = (/ &
+ & 0.19909E+04_JPRB,0.14932E+04_JPRB,0.10307E+04_JPRB,0.13195E+04_JPRB,0.17594E+04_JPRB /)  
+KB(:, 4,37,16) = (/ &
+ & 0.18783E+04_JPRB,0.14088E+04_JPRB,0.96559E+03_JPRB,0.12340E+04_JPRB,0.16453E+04_JPRB /)  
+KB(:, 5,37,16) = (/ &
+ & 0.17743E+04_JPRB,0.13307E+04_JPRB,0.90666E+03_JPRB,0.11578E+04_JPRB,0.15438E+04_JPRB /)  
+KB(:, 1,38,16) = (/ &
+ & 0.22677E+04_JPRB,0.17008E+04_JPRB,0.11995E+04_JPRB,0.15451E+04_JPRB,0.20601E+04_JPRB /)  
+KB(:, 2,38,16) = (/ &
+ & 0.21347E+04_JPRB,0.16010E+04_JPRB,0.11166E+04_JPRB,0.14334E+04_JPRB,0.19112E+04_JPRB /)  
+KB(:, 3,38,16) = (/ &
+ & 0.20130E+04_JPRB,0.15097E+04_JPRB,0.10432E+04_JPRB,0.13353E+04_JPRB,0.17805E+04_JPRB /)  
+KB(:, 4,38,16) = (/ &
+ & 0.18989E+04_JPRB,0.14242E+04_JPRB,0.97692E+03_JPRB,0.12480E+04_JPRB,0.16640E+04_JPRB /)  
+KB(:, 5,38,16) = (/ &
+ & 0.17929E+04_JPRB,0.13447E+04_JPRB,0.91684E+03_JPRB,0.11704E+04_JPRB,0.15605E+04_JPRB /)  
+KB(:, 1,39,16) = (/ &
+ & 0.22932E+04_JPRB,0.17199E+04_JPRB,0.12149E+04_JPRB,0.15649E+04_JPRB,0.20865E+04_JPRB /)  
+KB(:, 2,39,16) = (/ &
+ & 0.21580E+04_JPRB,0.16185E+04_JPRB,0.11304E+04_JPRB,0.14510E+04_JPRB,0.19346E+04_JPRB /)  
+KB(:, 3,39,16) = (/ &
+ & 0.20342E+04_JPRB,0.15257E+04_JPRB,0.10554E+04_JPRB,0.13508E+04_JPRB,0.18011E+04_JPRB /)  
+KB(:, 4,39,16) = (/ &
+ & 0.19186E+04_JPRB,0.14389E+04_JPRB,0.98789E+03_JPRB,0.12618E+04_JPRB,0.16825E+04_JPRB /)  
+KB(:, 5,39,16) = (/ &
+ & 0.18110E+04_JPRB,0.13582E+04_JPRB,0.92676E+03_JPRB,0.11826E+04_JPRB,0.15768E+04_JPRB /)  
+KB(:, 1,40,16) = (/ &
+ & 0.23330E+04_JPRB,0.17497E+04_JPRB,0.12394E+04_JPRB,0.15975E+04_JPRB,0.21300E+04_JPRB /)  
+KB(:, 2,40,16) = (/ &
+ & 0.21946E+04_JPRB,0.16460E+04_JPRB,0.11524E+04_JPRB,0.14797E+04_JPRB,0.19730E+04_JPRB /)  
+KB(:, 3,40,16) = (/ &
+ & 0.20673E+04_JPRB,0.15505E+04_JPRB,0.10747E+04_JPRB,0.13759E+04_JPRB,0.18346E+04_JPRB /)  
+KB(:, 4,40,16) = (/ &
+ & 0.19494E+04_JPRB,0.14621E+04_JPRB,0.10054E+04_JPRB,0.12842E+04_JPRB,0.17123E+04_JPRB /)  
+KB(:, 5,40,16) = (/ &
+ & 0.18395E+04_JPRB,0.13796E+04_JPRB,0.94264E+03_JPRB,0.12026E+04_JPRB,0.16034E+04_JPRB /)  
+KB(:, 1,41,16) = (/ &
+ & 0.23748E+04_JPRB,0.17811E+04_JPRB,0.12653E+04_JPRB,0.16323E+04_JPRB,0.21765E+04_JPRB /)  
+KB(:, 2,41,16) = (/ &
+ & 0.22335E+04_JPRB,0.16751E+04_JPRB,0.11760E+04_JPRB,0.15106E+04_JPRB,0.20142E+04_JPRB /)  
+KB(:, 3,41,16) = (/ &
+ & 0.21020E+04_JPRB,0.15765E+04_JPRB,0.10953E+04_JPRB,0.14029E+04_JPRB,0.18706E+04_JPRB /)  
+KB(:, 4,41,16) = (/ &
+ & 0.19818E+04_JPRB,0.14863E+04_JPRB,0.10239E+04_JPRB,0.13082E+04_JPRB,0.17443E+04_JPRB /)  
+KB(:, 5,41,16) = (/ &
+ & 0.18696E+04_JPRB,0.14022E+04_JPRB,0.95944E+03_JPRB,0.12238E+04_JPRB,0.16317E+04_JPRB /)  
+KB(:, 1,42,16) = (/ &
+ & 0.24183E+04_JPRB,0.18137E+04_JPRB,0.12922E+04_JPRB,0.16686E+04_JPRB,0.22248E+04_JPRB /)  
+KB(:, 2,42,16) = (/ &
+ & 0.22718E+04_JPRB,0.17039E+04_JPRB,0.11997E+04_JPRB,0.15420E+04_JPRB,0.20561E+04_JPRB /)  
+KB(:, 3,42,16) = (/ &
+ & 0.21373E+04_JPRB,0.16030E+04_JPRB,0.11164E+04_JPRB,0.14305E+04_JPRB,0.19073E+04_JPRB /)  
+KB(:, 4,42,16) = (/ &
+ & 0.20143E+04_JPRB,0.15107E+04_JPRB,0.10428E+04_JPRB,0.13327E+04_JPRB,0.17770E+04_JPRB /)  
+KB(:, 5,42,16) = (/ &
+ & 0.18998E+04_JPRB,0.14249E+04_JPRB,0.97647E+03_JPRB,0.12457E+04_JPRB,0.16610E+04_JPRB /)  
+KB(:, 1,43,16) = (/ &
+ & 0.24703E+04_JPRB,0.18528E+04_JPRB,0.13249E+04_JPRB,0.17136E+04_JPRB,0.22848E+04_JPRB /)  
+KB(:, 2,43,16) = (/ &
+ & 0.23188E+04_JPRB,0.17391E+04_JPRB,0.12289E+04_JPRB,0.15811E+04_JPRB,0.21082E+04_JPRB /)  
+KB(:, 3,43,16) = (/ &
+ & 0.21803E+04_JPRB,0.16352E+04_JPRB,0.11426E+04_JPRB,0.14651E+04_JPRB,0.19535E+04_JPRB /)  
+KB(:, 4,43,16) = (/ &
+ & 0.20539E+04_JPRB,0.15404E+04_JPRB,0.10659E+04_JPRB,0.13633E+04_JPRB,0.18177E+04_JPRB /)  
+KB(:, 5,43,16) = (/ &
+ & 0.19367E+04_JPRB,0.14525E+04_JPRB,0.99744E+03_JPRB,0.12728E+04_JPRB,0.16970E+04_JPRB /)  
+KB(:, 1,44,16) = (/ &
+ & 0.25274E+04_JPRB,0.18956E+04_JPRB,0.13612E+04_JPRB,0.17642E+04_JPRB,0.23522E+04_JPRB /)  
+KB(:, 2,44,16) = (/ &
+ & 0.23706E+04_JPRB,0.17780E+04_JPRB,0.12614E+04_JPRB,0.16248E+04_JPRB,0.21664E+04_JPRB /)  
+KB(:, 3,44,16) = (/ &
+ & 0.22278E+04_JPRB,0.16708E+04_JPRB,0.11717E+04_JPRB,0.15040E+04_JPRB,0.20053E+04_JPRB /)  
+KB(:, 4,44,16) = (/ &
+ & 0.20979E+04_JPRB,0.15734E+04_JPRB,0.10920E+04_JPRB,0.13972E+04_JPRB,0.18630E+04_JPRB /)  
+KB(:, 5,44,16) = (/ &
+ & 0.19771E+04_JPRB,0.14828E+04_JPRB,0.10207E+04_JPRB,0.13030E+04_JPRB,0.17374E+04_JPRB /)  
+KB(:, 1,45,16) = (/ &
+ & 0.25859E+04_JPRB,0.19394E+04_JPRB,0.13990E+04_JPRB,0.18173E+04_JPRB,0.24231E+04_JPRB /)  
+KB(:, 2,45,16) = (/ &
+ & 0.24239E+04_JPRB,0.18179E+04_JPRB,0.12948E+04_JPRB,0.16708E+04_JPRB,0.22278E+04_JPRB /)  
+KB(:, 3,45,16) = (/ &
+ & 0.22761E+04_JPRB,0.17071E+04_JPRB,0.12017E+04_JPRB,0.15441E+04_JPRB,0.20588E+04_JPRB /)  
+KB(:, 4,45,16) = (/ &
+ & 0.21421E+04_JPRB,0.16066E+04_JPRB,0.11186E+04_JPRB,0.14324E+04_JPRB,0.19099E+04_JPRB /)  
+KB(:, 5,45,16) = (/ &
+ & 0.20183E+04_JPRB,0.15137E+04_JPRB,0.10446E+04_JPRB,0.13343E+04_JPRB,0.17791E+04_JPRB /)  
+KB(:, 1,46,16) = (/ &
+ & 0.26504E+04_JPRB,0.19878E+04_JPRB,0.14409E+04_JPRB,0.18767E+04_JPRB,0.25023E+04_JPRB /)  
+KB(:, 2,46,16) = (/ &
+ & 0.24823E+04_JPRB,0.18617E+04_JPRB,0.13316E+04_JPRB,0.17220E+04_JPRB,0.22960E+04_JPRB /)  
+KB(:, 3,46,16) = (/ &
+ & 0.23297E+04_JPRB,0.17473E+04_JPRB,0.12351E+04_JPRB,0.15885E+04_JPRB,0.21180E+04_JPRB /)  
+KB(:, 4,46,16) = (/ &
+ & 0.21905E+04_JPRB,0.16429E+04_JPRB,0.11482E+04_JPRB,0.14718E+04_JPRB,0.19624E+04_JPRB /)  
+KB(:, 5,46,16) = (/ &
+ & 0.20627E+04_JPRB,0.15470E+04_JPRB,0.10708E+04_JPRB,0.13689E+04_JPRB,0.18252E+04_JPRB /)  
+KB(:, 1,47,16) = (/ &
+ & 0.27247E+04_JPRB,0.20435E+04_JPRB,0.14902E+04_JPRB,0.19477E+04_JPRB,0.25969E+04_JPRB /)  
+KB(:, 2,47,16) = (/ &
+ & 0.25493E+04_JPRB,0.19120E+04_JPRB,0.13747E+04_JPRB,0.17822E+04_JPRB,0.23763E+04_JPRB /)  
+KB(:, 3,47,16) = (/ &
+ & 0.23907E+04_JPRB,0.17930E+04_JPRB,0.12733E+04_JPRB,0.16405E+04_JPRB,0.21874E+04_JPRB /)  
+KB(:, 4,47,16) = (/ &
+ & 0.22466E+04_JPRB,0.16850E+04_JPRB,0.11827E+04_JPRB,0.15177E+04_JPRB,0.20235E+04_JPRB /)  
+KB(:, 5,47,16) = (/ &
+ & 0.21136E+04_JPRB,0.15852E+04_JPRB,0.11012E+04_JPRB,0.14091E+04_JPRB,0.18788E+04_JPRB /)  
+KB(:, 1,48,16) = (/ &
+ & 0.28012E+04_JPRB,0.21009E+04_JPRB,0.15426E+04_JPRB,0.20233E+04_JPRB,0.26978E+04_JPRB /)  
+KB(:, 2,48,16) = (/ &
+ & 0.26190E+04_JPRB,0.19642E+04_JPRB,0.14199E+04_JPRB,0.18460E+04_JPRB,0.24614E+04_JPRB /)  
+KB(:, 3,48,16) = (/ &
+ & 0.24541E+04_JPRB,0.18406E+04_JPRB,0.13132E+04_JPRB,0.16956E+04_JPRB,0.22609E+04_JPRB /)  
+KB(:, 4,48,16) = (/ &
+ & 0.23037E+04_JPRB,0.17278E+04_JPRB,0.12184E+04_JPRB,0.15658E+04_JPRB,0.20877E+04_JPRB /)  
+KB(:, 5,48,16) = (/ &
+ & 0.21661E+04_JPRB,0.16246E+04_JPRB,0.11331E+04_JPRB,0.14514E+04_JPRB,0.19352E+04_JPRB /)  
+KB(:, 1,49,16) = (/ &
+ & 0.28818E+04_JPRB,0.21613E+04_JPRB,0.15982E+04_JPRB,0.21038E+04_JPRB,0.28050E+04_JPRB /)  
+KB(:, 2,49,16) = (/ &
+ & 0.26914E+04_JPRB,0.20185E+04_JPRB,0.14674E+04_JPRB,0.19143E+04_JPRB,0.25524E+04_JPRB /)  
+KB(:, 3,49,16) = (/ &
+ & 0.25196E+04_JPRB,0.18897E+04_JPRB,0.13550E+04_JPRB,0.17541E+04_JPRB,0.23389E+04_JPRB /)  
+KB(:, 4,49,16) = (/ &
+ & 0.23632E+04_JPRB,0.17724E+04_JPRB,0.12557E+04_JPRB,0.16163E+04_JPRB,0.21550E+04_JPRB /)  
+KB(:, 5,49,16) = (/ &
+ & 0.22208E+04_JPRB,0.16656E+04_JPRB,0.11666E+04_JPRB,0.14961E+04_JPRB,0.19948E+04_JPRB /)  
+KB(:, 1,50,16) = (/ &
+ & 0.29612E+04_JPRB,0.22209E+04_JPRB,0.16532E+04_JPRB,0.21839E+04_JPRB,0.29118E+04_JPRB /)  
+KB(:, 2,50,16) = (/ &
+ & 0.27615E+04_JPRB,0.20712E+04_JPRB,0.15149E+04_JPRB,0.19827E+04_JPRB,0.26437E+04_JPRB /)  
+KB(:, 3,50,16) = (/ &
+ & 0.25830E+04_JPRB,0.19373E+04_JPRB,0.13961E+04_JPRB,0.18120E+04_JPRB,0.24160E+04_JPRB /)  
+KB(:, 4,50,16) = (/ &
+ & 0.24210E+04_JPRB,0.18157E+04_JPRB,0.12921E+04_JPRB,0.16664E+04_JPRB,0.22218E+04_JPRB /)  
+KB(:, 5,50,16) = (/ &
+ & 0.22734E+04_JPRB,0.17051E+04_JPRB,0.11994E+04_JPRB,0.15401E+04_JPRB,0.20534E+04_JPRB /)  
+KB(:, 1,51,16) = (/ &
+ & 0.30414E+04_JPRB,0.22810E+04_JPRB,0.17098E+04_JPRB,0.22662E+04_JPRB,0.30216E+04_JPRB /)  
+KB(:, 2,51,16) = (/ &
+ & 0.28321E+04_JPRB,0.21241E+04_JPRB,0.15635E+04_JPRB,0.20530E+04_JPRB,0.27374E+04_JPRB /)  
+KB(:, 3,51,16) = (/ &
+ & 0.26473E+04_JPRB,0.19855E+04_JPRB,0.14379E+04_JPRB,0.18712E+04_JPRB,0.24950E+04_JPRB /)  
+KB(:, 4,51,16) = (/ &
+ & 0.24793E+04_JPRB,0.18595E+04_JPRB,0.13289E+04_JPRB,0.17174E+04_JPRB,0.22898E+04_JPRB /)  
+KB(:, 5,51,16) = (/ &
+ & 0.23268E+04_JPRB,0.17451E+04_JPRB,0.12327E+04_JPRB,0.15846E+04_JPRB,0.21128E+04_JPRB /)  
+KB(:, 1,52,16) = (/ &
+ & 0.31248E+04_JPRB,0.23436E+04_JPRB,0.17703E+04_JPRB,0.23534E+04_JPRB,0.31379E+04_JPRB /)  
+KB(:, 2,52,16) = (/ &
+ & 0.29063E+04_JPRB,0.21797E+04_JPRB,0.16147E+04_JPRB,0.21274E+04_JPRB,0.28366E+04_JPRB /)  
+KB(:, 3,52,16) = (/ &
+ & 0.27134E+04_JPRB,0.20351E+04_JPRB,0.14818E+04_JPRB,0.19344E+04_JPRB,0.25793E+04_JPRB /)  
+KB(:, 4,52,16) = (/ &
+ & 0.25389E+04_JPRB,0.19042E+04_JPRB,0.13672E+04_JPRB,0.17712E+04_JPRB,0.23616E+04_JPRB /)  
+KB(:, 5,52,16) = (/ &
+ & 0.23814E+04_JPRB,0.17860E+04_JPRB,0.12669E+04_JPRB,0.16310E+04_JPRB,0.21746E+04_JPRB /)  
+KB(:, 1,53,16) = (/ &
+ & 0.32126E+04_JPRB,0.24095E+04_JPRB,0.18346E+04_JPRB,0.24459E+04_JPRB,0.32612E+04_JPRB /)  
+KB(:, 2,53,16) = (/ &
+ & 0.29838E+04_JPRB,0.22378E+04_JPRB,0.16687E+04_JPRB,0.22061E+04_JPRB,0.29415E+04_JPRB /)  
+KB(:, 3,53,16) = (/ &
+ & 0.27817E+04_JPRB,0.20863E+04_JPRB,0.15283E+04_JPRB,0.20017E+04_JPRB,0.26689E+04_JPRB /)  
+KB(:, 4,53,16) = (/ &
+ & 0.26009E+04_JPRB,0.19507E+04_JPRB,0.14074E+04_JPRB,0.18280E+04_JPRB,0.24374E+04_JPRB /)  
+KB(:, 5,53,16) = (/ &
+ & 0.24377E+04_JPRB,0.18283E+04_JPRB,0.13025E+04_JPRB,0.16802E+04_JPRB,0.22403E+04_JPRB /)  
+KB(:, 1,54,16) = (/ &
+ & 0.32965E+04_JPRB,0.24725E+04_JPRB,0.18972E+04_JPRB,0.25356E+04_JPRB,0.33807E+04_JPRB /)  
+KB(:, 2,54,16) = (/ &
+ & 0.30576E+04_JPRB,0.22932E+04_JPRB,0.17211E+04_JPRB,0.22822E+04_JPRB,0.30430E+04_JPRB /)  
+KB(:, 3,54,16) = (/ &
+ & 0.28468E+04_JPRB,0.21351E+04_JPRB,0.15733E+04_JPRB,0.20668E+04_JPRB,0.27558E+04_JPRB /)  
+KB(:, 4,54,16) = (/ &
+ & 0.26600E+04_JPRB,0.19950E+04_JPRB,0.14459E+04_JPRB,0.18829E+04_JPRB,0.25105E+04_JPRB /)  
+KB(:, 5,54,16) = (/ &
+ & 0.24912E+04_JPRB,0.18684E+04_JPRB,0.13364E+04_JPRB,0.17275E+04_JPRB,0.23034E+04_JPRB /)  
+KB(:, 1,55,16) = (/ &
+ & 0.33833E+04_JPRB,0.25376E+04_JPRB,0.19611E+04_JPRB,0.26264E+04_JPRB,0.35019E+04_JPRB /)  
+KB(:, 2,55,16) = (/ &
+ & 0.31321E+04_JPRB,0.23491E+04_JPRB,0.17750E+04_JPRB,0.23596E+04_JPRB,0.31462E+04_JPRB /)  
+KB(:, 3,55,16) = (/ &
+ & 0.29119E+04_JPRB,0.21839E+04_JPRB,0.16184E+04_JPRB,0.21327E+04_JPRB,0.28435E+04_JPRB /)  
+KB(:, 4,55,16) = (/ &
+ & 0.27182E+04_JPRB,0.20386E+04_JPRB,0.14848E+04_JPRB,0.19390E+04_JPRB,0.25853E+04_JPRB /)  
+KB(:, 5,55,16) = (/ &
+ & 0.25438E+04_JPRB,0.19078E+04_JPRB,0.13702E+04_JPRB,0.17749E+04_JPRB,0.23665E+04_JPRB /)  
+KB(:, 1,56,16) = (/ &
+ & 0.34732E+04_JPRB,0.26050E+04_JPRB,0.20286E+04_JPRB,0.27221E+04_JPRB,0.36294E+04_JPRB /)  
+KB(:, 2,56,16) = (/ &
+ & 0.32087E+04_JPRB,0.24066E+04_JPRB,0.18312E+04_JPRB,0.24406E+04_JPRB,0.32540E+04_JPRB /)  
+KB(:, 3,56,16) = (/ &
+ & 0.29798E+04_JPRB,0.22348E+04_JPRB,0.16657E+04_JPRB,0.22014E+04_JPRB,0.29353E+04_JPRB /)  
+KB(:, 4,56,16) = (/ &
+ & 0.27779E+04_JPRB,0.20834E+04_JPRB,0.15255E+04_JPRB,0.19978E+04_JPRB,0.26637E+04_JPRB /)  
+KB(:, 5,56,16) = (/ &
+ & 0.25980E+04_JPRB,0.19485E+04_JPRB,0.14055E+04_JPRB,0.18247E+04_JPRB,0.24330E+04_JPRB /)  
+KB(:, 1,57,16) = (/ &
+ & 0.35673E+04_JPRB,0.26755E+04_JPRB,0.21006E+04_JPRB,0.28229E+04_JPRB,0.37639E+04_JPRB /)  
+KB(:, 2,57,16) = (/ &
+ & 0.32883E+04_JPRB,0.24663E+04_JPRB,0.18907E+04_JPRB,0.25257E+04_JPRB,0.33676E+04_JPRB /)  
+KB(:, 3,57,16) = (/ &
+ & 0.30500E+04_JPRB,0.22875E+04_JPRB,0.17155E+04_JPRB,0.22739E+04_JPRB,0.30319E+04_JPRB /)  
+KB(:, 4,57,16) = (/ &
+ & 0.28394E+04_JPRB,0.21295E+04_JPRB,0.15682E+04_JPRB,0.20597E+04_JPRB,0.27463E+04_JPRB /)  
+KB(:, 5,57,16) = (/ &
+ & 0.26543E+04_JPRB,0.19907E+04_JPRB,0.14421E+04_JPRB,0.18768E+04_JPRB,0.25025E+04_JPRB /)  
+KB(:, 1,58,16) = (/ &
+ & 0.36607E+04_JPRB,0.27457E+04_JPRB,0.21738E+04_JPRB,0.29233E+04_JPRB,0.38978E+04_JPRB /)  
+KB(:, 2,58,16) = (/ &
+ & 0.33686E+04_JPRB,0.25266E+04_JPRB,0.19501E+04_JPRB,0.26108E+04_JPRB,0.34810E+04_JPRB /)  
+KB(:, 3,58,16) = (/ &
+ & 0.31191E+04_JPRB,0.23393E+04_JPRB,0.17656E+04_JPRB,0.23462E+04_JPRB,0.31282E+04_JPRB /)  
+KB(:, 4,58,16) = (/ &
+ & 0.29009E+04_JPRB,0.21757E+04_JPRB,0.16107E+04_JPRB,0.21213E+04_JPRB,0.28285E+04_JPRB /)  
+KB(:, 5,58,16) = (/ &
+ & 0.27090E+04_JPRB,0.20318E+04_JPRB,0.14784E+04_JPRB,0.19292E+04_JPRB,0.25722E+04_JPRB /)  
+KB(:, 1,59,16) = (/ &
+ & 0.36992E+04_JPRB,0.27745E+04_JPRB,0.22044E+04_JPRB,0.29651E+04_JPRB,0.39534E+04_JPRB /)  
+KB(:, 2,59,16) = (/ &
+ & 0.34022E+04_JPRB,0.25517E+04_JPRB,0.19749E+04_JPRB,0.26461E+04_JPRB,0.35281E+04_JPRB /)  
+KB(:, 3,59,16) = (/ &
+ & 0.31476E+04_JPRB,0.23607E+04_JPRB,0.17864E+04_JPRB,0.23762E+04_JPRB,0.31682E+04_JPRB /)  
+KB(:, 4,59,16) = (/ &
+ & 0.29259E+04_JPRB,0.21945E+04_JPRB,0.16281E+04_JPRB,0.21469E+04_JPRB,0.28626E+04_JPRB /)  
+KB(:, 5,59,16) = (/ &
+ & 0.27315E+04_JPRB,0.20486E+04_JPRB,0.14936E+04_JPRB,0.19510E+04_JPRB,0.26013E+04_JPRB /)  
+
+!     -----------------------------------------------------------------
+
+FORREF(:, 1) = (/ 0.553258E-03_JPRB, 0.555486E-03_JPRB, 0.601339E-03_JPRB, 0.708280E-03_JPRB /)
+FORREF(:, 2) = (/ 0.158558E-02_JPRB, 0.162957E-02_JPRB, 0.204991E-02_JPRB, 0.475881E-02_JPRB /)
+FORREF(:, 3) = (/ 0.772542E-02_JPRB, 0.784562E-02_JPRB, 0.111979E-01_JPRB, 0.229016E-01_JPRB /)
+FORREF(:, 4) = (/ 0.255097E-01_JPRB, 0.256272E-01_JPRB, 0.270691E-01_JPRB, 0.259505E-01_JPRB /)
+FORREF(:, 5) = (/ 0.323263E-01_JPRB, 0.324495E-01_JPRB, 0.305535E-01_JPRB, 0.263993E-01_JPRB /)
+FORREF(:, 6) = (/ 0.346920E-01_JPRB, 0.348255E-01_JPRB, 0.323586E-01_JPRB, 0.276357E-01_JPRB /)
+FORREF(:, 7) = (/ 0.366509E-01_JPRB, 0.366412E-01_JPRB, 0.344434E-01_JPRB, 0.319223E-01_JPRB /)
+FORREF(:, 8) = (/ 0.378451E-01_JPRB, 0.375341E-01_JPRB, 0.374369E-01_JPRB, 0.320334E-01_JPRB /)
+FORREF(:, 9) = (/ 0.407348E-01_JPRB, 0.396203E-01_JPRB, 0.393988E-01_JPRB, 0.318343E-01_JPRB /)
+FORREF(:,10) = (/ 0.433035E-01_JPRB, 0.426488E-01_JPRB, 0.408085E-01_JPRB, 0.332749E-01_JPRB /)
+FORREF(:,11) = (/ 0.428254E-01_JPRB, 0.441151E-01_JPRB, 0.408887E-01_JPRB, 0.327077E-01_JPRB /)
+FORREF(:,12) = (/ 0.443226E-01_JPRB, 0.446690E-01_JPRB, 0.404676E-01_JPRB, 0.350492E-01_JPRB /)
+FORREF(:,13) = (/ 0.466103E-01_JPRB, 0.460809E-01_JPRB, 0.401286E-01_JPRB, 0.370427E-01_JPRB /)
+FORREF(:,14) = (/ 0.483928E-01_JPRB, 0.477284E-01_JPRB, 0.380684E-01_JPRB, 0.387940E-01_JPRB /)
+FORREF(:,15) = (/ 0.506987E-01_JPRB, 0.490016E-01_JPRB, 0.467069E-01_JPRB, 0.368998E-01_JPRB /)
+FORREF(:,16) = (/ 0.510836E-01_JPRB, 0.522771E-01_JPRB, 0.500130E-01_JPRB, 0.483406E-01_JPRB /)
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART37',1,ZHOOK_HANDLE)
+END SUBROUTINE PART37
+
+
+SUBROUTINE PART38
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART38',0,ZHOOK_HANDLE)
+
+
+
+!     -----------------------------------------------------------------
+!     The array SELFREF contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+SELFREF(:, 1) = (/ &
+ & 0.160537E-01_JPRB, 0.149038E-01_JPRB, 0.138363E-01_JPRB, 0.128452E-01_JPRB, 0.119251E-01_JPRB, &
+ & 0.110709E-01_JPRB, 0.102779E-01_JPRB, 0.954175E-02_JPRB, 0.885829E-02_JPRB, 0.822379E-02_JPRB /)  
+SELFREF(:, 2) = (/ &
+ & 0.365753E-01_JPRB, 0.342267E-01_JPRB, 0.320288E-01_JPRB, 0.299720E-01_JPRB, 0.280474E-01_JPRB, &
+ & 0.262463E-01_JPRB, 0.245609E-01_JPRB, 0.229837E-01_JPRB, 0.215078E-01_JPRB, 0.201267E-01_JPRB /)  
+SELFREF(:, 3) = (/ &
+ & 0.127419E+00_JPRB, 0.118553E+00_JPRB, 0.110304E+00_JPRB, 0.102629E+00_JPRB, 0.954883E-01_JPRB, &
+ & 0.888442E-01_JPRB, 0.826624E-01_JPRB, 0.769107E-01_JPRB, 0.715593E-01_JPRB, 0.665802E-01_JPRB /)  
+SELFREF(:, 4) = (/ &
+ & 0.378687E+00_JPRB, 0.348961E+00_JPRB, 0.321568E+00_JPRB, 0.296325E+00_JPRB, 0.273064E+00_JPRB, &
+ & 0.251629E+00_JPRB, 0.231876E+00_JPRB, 0.213674E+00_JPRB, 0.196901E+00_JPRB, 0.181444E+00_JPRB /)  
+SELFREF(:, 5) = (/ &
+ & 0.472822E+00_JPRB, 0.435018E+00_JPRB, 0.400236E+00_JPRB, 0.368236E+00_JPRB, 0.338794E+00_JPRB, &
+ & 0.311706E+00_JPRB, 0.286783E+00_JPRB, 0.263854E+00_JPRB, 0.242757E+00_JPRB, 0.223348E+00_JPRB /)  
+SELFREF(:, 6) = (/ &
+ & 0.505620E+00_JPRB, 0.465050E+00_JPRB, 0.427736E+00_JPRB, 0.393416E+00_JPRB, 0.361849E+00_JPRB, &
+ & 0.332815E+00_JPRB, 0.306111E+00_JPRB, 0.281550E+00_JPRB, 0.258959E+00_JPRB, 0.238181E+00_JPRB /)  
+SELFREF(:, 7) = (/ &
+ & 0.530488E+00_JPRB, 0.487993E+00_JPRB, 0.448902E+00_JPRB, 0.412943E+00_JPRB, 0.379864E+00_JPRB, &
+ & 0.349434E+00_JPRB, 0.321443E+00_JPRB, 0.295694E+00_JPRB, 0.272007E+00_JPRB, 0.250218E+00_JPRB /)  
+SELFREF(:, 8) = (/ &
+ & 0.540222E+00_JPRB, 0.497746E+00_JPRB, 0.458610E+00_JPRB, 0.422551E+00_JPRB, 0.389327E+00_JPRB, &
+ & 0.358716E+00_JPRB, 0.330511E+00_JPRB, 0.304524E+00_JPRB, 0.280580E+00_JPRB, 0.258519E+00_JPRB /)  
+SELFREF(:, 9) = (/ &
+ & 0.565727E+00_JPRB, 0.522899E+00_JPRB, 0.483313E+00_JPRB, 0.446724E+00_JPRB, 0.412905E+00_JPRB, &
+ & 0.381646E+00_JPRB, 0.352753E+00_JPRB, 0.326048E+00_JPRB, 0.301365E+00_JPRB, 0.278550E+00_JPRB /)  
+SELFREF(:,10) = (/ &
+ & 0.610122E+00_JPRB, 0.562337E+00_JPRB, 0.518295E+00_JPRB, 0.477702E+00_JPRB, 0.440289E+00_JPRB, &
+ & 0.405806E+00_JPRB, 0.374023E+00_JPRB, 0.344730E+00_JPRB, 0.317730E+00_JPRB, 0.292846E+00_JPRB /)  
+SELFREF(:,11) = (/ &
+ & 0.645176E+00_JPRB, 0.588957E+00_JPRB, 0.537636E+00_JPRB, 0.490788E+00_JPRB, 0.448022E+00_JPRB, &
+ & 0.408982E+00_JPRB, 0.373344E+00_JPRB, 0.340812E+00_JPRB, 0.311114E+00_JPRB, 0.284004E+00_JPRB /)  
+SELFREF(:,12) = (/ &
+ & 0.651737E+00_JPRB, 0.596547E+00_JPRB, 0.546031E+00_JPRB, 0.499792E+00_JPRB, 0.457469E+00_JPRB, &
+ & 0.418730E+00_JPRB, 0.383272E+00_JPRB, 0.350816E+00_JPRB, 0.321108E+00_JPRB, 0.293916E+00_JPRB /)  
+SELFREF(:,13) = (/ &
+ & 0.661086E+00_JPRB, 0.607954E+00_JPRB, 0.559093E+00_JPRB, 0.514159E+00_JPRB, 0.472836E+00_JPRB, &
+ & 0.434834E+00_JPRB, 0.399886E+00_JPRB, 0.367747E+00_JPRB, 0.338191E+00_JPRB, 0.311011E+00_JPRB /)  
+SELFREF(:,14) = (/ &
+ & 0.692554E+00_JPRB, 0.635574E+00_JPRB, 0.583282E+00_JPRB, 0.535293E+00_JPRB, 0.491251E+00_JPRB, &
+ & 0.450834E+00_JPRB, 0.413741E+00_JPRB, 0.379701E+00_JPRB, 0.348461E+00_JPRB, 0.319791E+00_JPRB /)  
+SELFREF(:,15) = (/ &
+ & 0.714646E+00_JPRB, 0.657179E+00_JPRB, 0.604334E+00_JPRB, 0.555737E+00_JPRB, 0.511049E+00_JPRB, &
+ & 0.469954E+00_JPRB, 0.432164E+00_JPRB, 0.397412E+00_JPRB, 0.365455E+00_JPRB, 0.336068E+00_JPRB /)  
+SELFREF(:,16) = (/ &
+ & 0.782126E+00_JPRB, 0.710682E+00_JPRB, 0.645764E+00_JPRB, 0.586776E+00_JPRB, 0.533177E+00_JPRB, &
+ & 0.484473E+00_JPRB, 0.440219E+00_JPRB, 0.400007E+00_JPRB, 0.363468E+00_JPRB, 0.330266E+00_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB17:PART38',1,ZHOOK_HANDLE)
+END SUBROUTINE PART38
+
+
+END SUBROUTINE SRTM_KGB17
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb17.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb17.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb17.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_KGB17
+END SUBROUTINE SRTM_KGB17
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb18.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb18.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb18.F90	(revision 1989)
@@ -0,0 +1,5030 @@
+!OCL SCALAR
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE SRTM_KGB18
+
+!     Originally by J.Delamere, Atmospheric & Environmental Research.
+!     Revision: 2.4
+!     BAND 18:  4000-4650 cm-1 (low - H2O,CH4; high - CH4)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     R. Elkhatib 12-10-2005 Split for faster and more robust compilation.
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOESRTA18, ONLY : KA, KB, SELFREF, FORREF, SFLUXREF, RAYL, STRRAT &
+ & , LAYREFFR  
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+
+! KURUCZ
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18',0,ZHOOK_HANDLE)
+
+CALL PART1
+CALL PART2
+CALL PART3
+CALL PART4
+CALL PART5
+CALL PART6
+CALL PART7
+CALL PART8
+CALL PART9
+CALL PART10
+CALL PART11
+CALL PART12
+CALL PART13
+CALL PART14
+CALL PART15
+CALL PART16
+CALL PART17
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18',1,ZHOOK_HANDLE)
+
+!     -----------------------------------------------------------------
+
+CONTAINS
+
+
+SUBROUTINE PART1
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART1',0,ZHOOK_HANDLE)
+
+
+SFLUXREF(:,1) = (/ &
+ & 3.65840_JPRB    , 3.54375_JPRB    , 3.34481_JPRB    , 3.10534_JPRB    , &
+ & 2.79879_JPRB    , 2.42841_JPRB    , 1.98748_JPRB    , 1.49377_JPRB    , &
+ & 1.00196_JPRB    , 0.108342_JPRB   , 8.95099E-02_JPRB, 7.05199E-02_JPRB, &
+ & 5.16432E-02_JPRB, 3.27635E-02_JPRB, 1.25133E-02_JPRB, 1.73001E-03_JPRB /)    
+SFLUXREF(:,2) = (/ &
+ & 3.86372_JPRB    , 3.48521_JPRB    , 3.30790_JPRB    , 3.08103_JPRB    , &
+ & 2.77552_JPRB    , 2.40722_JPRB    , 1.97307_JPRB    , 1.48023_JPRB    , &
+ & 0.993055_JPRB   , 0.107691_JPRB   , 8.84430E-02_JPRB, 6.99354E-02_JPRB, &
+ & 5.07881E-02_JPRB, 3.24121E-02_JPRB, 1.19442E-02_JPRB, 1.57612E-03_JPRB /)  
+SFLUXREF(:,3) = (/ &
+ & 3.90370_JPRB    , 3.50657_JPRB    , 3.30629_JPRB    , 3.06046_JPRB    , &
+ & 2.76982_JPRB    , 2.39907_JPRB    , 1.96358_JPRB    , 1.47458_JPRB    , &
+ & 0.988475_JPRB   , 0.106698_JPRB   , 8.75242E-02_JPRB, 6.85898E-02_JPRB, &
+ & 5.04798E-02_JPRB, 3.13718E-02_JPRB, 1.09533E-02_JPRB, 1.57612E-03_JPRB /)  
+SFLUXREF(:,4) = (/ &
+ & 3.93165_JPRB    , 3.52058_JPRB    , 3.31346_JPRB    , 3.04944_JPRB    , &
+ & 2.76074_JPRB    , 2.39433_JPRB    , 1.95556_JPRB    , 1.46712_JPRB    , &
+ & 0.984056_JPRB   , 0.105885_JPRB   , 8.73062E-02_JPRB, 6.84054E-02_JPRB, &
+ & 4.87443E-02_JPRB, 2.99295E-02_JPRB, 1.09533E-02_JPRB, 1.57612E-03_JPRB /)  
+SFLUXREF(:,5) = (/ &
+ & 3.94082_JPRB    , 3.55221_JPRB    , 3.31863_JPRB    , 3.04730_JPRB    , &
+ & 2.74918_JPRB    , 2.38328_JPRB    , 1.95212_JPRB    , 1.45889_JPRB    , &
+ & 0.978888_JPRB   , 0.105102_JPRB   , 8.65732E-02_JPRB, 6.74563E-02_JPRB, &
+ & 4.76592E-02_JPRB, 2.91017E-02_JPRB, 1.09533E-02_JPRB, 1.57612E-03_JPRB /)  
+SFLUXREF(:,6) = (/ &
+ & 3.94198_JPRB    , 3.58743_JPRB    , 3.32106_JPRB    , 3.05866_JPRB    , &
+ & 2.74115_JPRB    , 2.36939_JPRB    , 1.94305_JPRB    , 1.45180_JPRB    , &
+ & 0.971784_JPRB   , 1.04045E-01_JPRB, 8.53731E-02_JPRB, 6.60654E-02_JPRB, &
+ & 4.63228E-02_JPRB, 2.91016E-02_JPRB, 1.09552E-02_JPRB, 1.57612E-03_JPRB /)  
+SFLUXREF(:,7) = (/ &
+ & 3.93596_JPRB    , 3.63366_JPRB    , 3.33144_JPRB    , 3.06252_JPRB    , &
+ & 2.74054_JPRB    , 2.35492_JPRB    , 1.92769_JPRB    , 1.44300_JPRB    , &
+ & 0.961809_JPRB   , 1.02867E-01_JPRB, 8.34164E-02_JPRB, 6.41005E-02_JPRB, &
+ & 4.61826E-02_JPRB, 2.91006E-02_JPRB, 1.09553E-02_JPRB, 1.57612E-03_JPRB /)  
+SFLUXREF(:,8) = (/ &
+ & 3.92520_JPRB    , 3.69078_JPRB    , 3.35656_JPRB    , 3.07055_JPRB    , &
+ & 2.73862_JPRB    , 2.34430_JPRB    , 1.90187_JPRB    , 1.42242_JPRB    , &
+ & 0.946676_JPRB   , 9.96302E-02_JPRB, 8.14421E-02_JPRB, 6.38622E-02_JPRB, &
+ & 4.61794E-02_JPRB, 2.91017E-02_JPRB, 1.09553E-02_JPRB, 1.57612E-03_JPRB /)  
+SFLUXREF(:,9) = (/ &
+ & 3.80721_JPRB    , 3.74437_JPRB    , 3.50205_JPRB    , 3.18009_JPRB    , &
+ & 2.75757_JPRB    , 2.29188_JPRB    , 1.84382_JPRB    , 1.35694_JPRB    , &
+ & 0.914040_JPRB   , 9.86811E-02_JPRB, 8.14321E-02_JPRB, 6.38541E-02_JPRB, &
+ & 4.61795E-02_JPRB, 2.90960E-02_JPRB, 1.09613E-02_JPRB, 1.57612E-03_JPRB /)  
+
+!     Rayleigh extinction coefficient at v = 4325 cm-1.
+RAYL = 1.39E-09_JPRB
+
+STRRAT = 38.9589_JPRB
+
+LAYREFFR = 6
+
+!     ------------------------------------------------------------------
+
+!     The array KA contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels> ~100mb, temperatures, and binary
+!     species parameters (see taumol.f for definition).  The first 
+!     index in the array, JS, runs from 1 to 9, and corresponds to 
+!     different values of the binary species parameter.  For instance, 
+!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, 
+!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index
+!     in the array, JT, which runs from 1 to 5, corresponds to different
+!     temperatures.  More specifically, JT = 3 means that the data are for
+!     the reference temperature TREF for this  pressure level, JT = 2 refers
+!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the JPth reference pressure level (see taumol.f for these levels
+!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates
+!     which g-interval the absorption coefficients are for.
+!     -----------------------------------------------------------------
+
+KA(:, 1, 1, 1) = (/ &
+ & 0.14813E-04_JPRB,0.39842E-04_JPRB,0.43362E-04_JPRB,0.43095E-04_JPRB,0.39811E-04_JPRB, &
+ & 0.34994E-04_JPRB,0.28984E-04_JPRB,0.20609E-04_JPRB,0.18845E-05_JPRB /)  
+KA(:, 2, 1, 1) = (/ &
+ & 0.14432E-04_JPRB,0.38749E-04_JPRB,0.42119E-04_JPRB,0.41834E-04_JPRB,0.38900E-04_JPRB, &
+ & 0.34365E-04_JPRB,0.28571E-04_JPRB,0.20503E-04_JPRB,0.14715E-05_JPRB /)  
+KA(:, 3, 1, 1) = (/ &
+ & 0.13969E-04_JPRB,0.37666E-04_JPRB,0.40942E-04_JPRB,0.40703E-04_JPRB,0.37982E-04_JPRB, &
+ & 0.33731E-04_JPRB,0.28158E-04_JPRB,0.20351E-04_JPRB,0.10842E-05_JPRB /)  
+KA(:, 4, 1, 1) = (/ &
+ & 0.13367E-04_JPRB,0.36605E-04_JPRB,0.39729E-04_JPRB,0.39529E-04_JPRB,0.37033E-04_JPRB, &
+ & 0.33096E-04_JPRB,0.27690E-04_JPRB,0.20154E-04_JPRB,0.78702E-06_JPRB /)  
+KA(:, 5, 1, 1) = (/ &
+ & 0.12765E-04_JPRB,0.35584E-04_JPRB,0.38536E-04_JPRB,0.38361E-04_JPRB,0.36073E-04_JPRB, &
+ & 0.32384E-04_JPRB,0.27242E-04_JPRB,0.19932E-04_JPRB,0.58296E-06_JPRB /)  
+KA(:, 1, 2, 1) = (/ &
+ & 0.12299E-04_JPRB,0.34179E-04_JPRB,0.37405E-04_JPRB,0.37535E-04_JPRB,0.34714E-04_JPRB, &
+ & 0.30335E-04_JPRB,0.24892E-04_JPRB,0.17524E-04_JPRB,0.13301E-05_JPRB /)  
+KA(:, 2, 2, 1) = (/ &
+ & 0.12064E-04_JPRB,0.33225E-04_JPRB,0.36357E-04_JPRB,0.36512E-04_JPRB,0.33870E-04_JPRB, &
+ & 0.29789E-04_JPRB,0.24578E-04_JPRB,0.17435E-04_JPRB,0.10217E-05_JPRB /)  
+KA(:, 3, 2, 1) = (/ &
+ & 0.11697E-04_JPRB,0.32301E-04_JPRB,0.35316E-04_JPRB,0.35481E-04_JPRB,0.33049E-04_JPRB, &
+ & 0.29226E-04_JPRB,0.24233E-04_JPRB,0.17304E-04_JPRB,0.72152E-06_JPRB /)  
+KA(:, 4, 2, 1) = (/ &
+ & 0.11209E-04_JPRB,0.31395E-04_JPRB,0.34263E-04_JPRB,0.34436E-04_JPRB,0.32173E-04_JPRB, &
+ & 0.28610E-04_JPRB,0.23847E-04_JPRB,0.17161E-04_JPRB,0.51787E-06_JPRB /)  
+KA(:, 5, 2, 1) = (/ &
+ & 0.10706E-04_JPRB,0.30496E-04_JPRB,0.33311E-04_JPRB,0.33396E-04_JPRB,0.31295E-04_JPRB, &
+ & 0.28002E-04_JPRB,0.23445E-04_JPRB,0.16971E-04_JPRB,0.40230E-06_JPRB /)  
+KA(:, 1, 3, 1) = (/ &
+ & 0.10271E-04_JPRB,0.29273E-04_JPRB,0.32049E-04_JPRB,0.32365E-04_JPRB,0.29857E-04_JPRB, &
+ & 0.26171E-04_JPRB,0.21352E-04_JPRB,0.14814E-04_JPRB,0.80470E-06_JPRB /)  
+KA(:, 2, 3, 1) = (/ &
+ & 0.10058E-04_JPRB,0.28458E-04_JPRB,0.31196E-04_JPRB,0.31440E-04_JPRB,0.29133E-04_JPRB, &
+ & 0.25640E-04_JPRB,0.21056E-04_JPRB,0.14756E-04_JPRB,0.53010E-06_JPRB /)  
+KA(:, 3, 3, 1) = (/ &
+ & 0.98172E-05_JPRB,0.27651E-04_JPRB,0.30352E-04_JPRB,0.30609E-04_JPRB,0.28396E-04_JPRB, &
+ & 0.25110E-04_JPRB,0.20730E-04_JPRB,0.14655E-04_JPRB,0.38652E-06_JPRB /)  
+KA(:, 4, 3, 1) = (/ &
+ & 0.94577E-05_JPRB,0.26874E-04_JPRB,0.29475E-04_JPRB,0.29749E-04_JPRB,0.27669E-04_JPRB, &
+ & 0.24553E-04_JPRB,0.20400E-04_JPRB,0.14536E-04_JPRB,0.33236E-06_JPRB /)  
+KA(:, 5, 3, 1) = (/ &
+ & 0.90508E-05_JPRB,0.26128E-04_JPRB,0.28631E-04_JPRB,0.28834E-04_JPRB,0.26952E-04_JPRB, &
+ & 0.24015E-04_JPRB,0.20045E-04_JPRB,0.14382E-04_JPRB,0.30659E-06_JPRB /)  
+KA(:, 1, 4, 1) = (/ &
+ & 0.86081E-05_JPRB,0.24897E-04_JPRB,0.27317E-04_JPRB,0.27632E-04_JPRB,0.25465E-04_JPRB, &
+ & 0.22328E-04_JPRB,0.18112E-04_JPRB,0.12468E-04_JPRB,0.39286E-06_JPRB /)  
+KA(:, 2, 4, 1) = (/ &
+ & 0.83793E-05_JPRB,0.24273E-04_JPRB,0.26590E-04_JPRB,0.26865E-04_JPRB,0.24876E-04_JPRB, &
+ & 0.21867E-04_JPRB,0.17849E-04_JPRB,0.12420E-04_JPRB,0.32266E-06_JPRB /)  
+KA(:, 3, 4, 1) = (/ &
+ & 0.82296E-05_JPRB,0.23584E-04_JPRB,0.25869E-04_JPRB,0.26155E-04_JPRB,0.24255E-04_JPRB, &
+ & 0.21403E-04_JPRB,0.17579E-04_JPRB,0.12338E-04_JPRB,0.30775E-06_JPRB /)  
+KA(:, 4, 4, 1) = (/ &
+ & 0.79731E-05_JPRB,0.22915E-04_JPRB,0.25166E-04_JPRB,0.25435E-04_JPRB,0.23627E-04_JPRB, &
+ & 0.20917E-04_JPRB,0.17282E-04_JPRB,0.12242E-04_JPRB,0.30418E-06_JPRB /)  
+KA(:, 5, 4, 1) = (/ &
+ & 0.76553E-05_JPRB,0.22259E-04_JPRB,0.24440E-04_JPRB,0.24673E-04_JPRB,0.23003E-04_JPRB, &
+ & 0.20437E-04_JPRB,0.16984E-04_JPRB,0.12112E-04_JPRB,0.30638E-06_JPRB /)  
+KA(:, 1, 5, 1) = (/ &
+ & 0.72259E-05_JPRB,0.21089E-04_JPRB,0.23177E-04_JPRB,0.23419E-04_JPRB,0.21584E-04_JPRB, &
+ & 0.18926E-04_JPRB,0.15251E-04_JPRB,0.10417E-04_JPRB,0.25170E-06_JPRB /)  
+KA(:, 2, 5, 1) = (/ &
+ & 0.70215E-05_JPRB,0.20567E-04_JPRB,0.22541E-04_JPRB,0.22788E-04_JPRB,0.21102E-04_JPRB, &
+ & 0.18526E-04_JPRB,0.15049E-04_JPRB,0.10379E-04_JPRB,0.25958E-06_JPRB /)  
+KA(:, 3, 5, 1) = (/ &
+ & 0.68490E-05_JPRB,0.20018E-04_JPRB,0.21938E-04_JPRB,0.22206E-04_JPRB,0.20579E-04_JPRB, &
+ & 0.18139E-04_JPRB,0.14806E-04_JPRB,0.10313E-04_JPRB,0.26666E-06_JPRB /)  
+KA(:, 4, 5, 1) = (/ &
+ & 0.66973E-05_JPRB,0.19444E-04_JPRB,0.21340E-04_JPRB,0.21615E-04_JPRB,0.20070E-04_JPRB, &
+ & 0.17728E-04_JPRB,0.14554E-04_JPRB,0.10239E-04_JPRB,0.28589E-06_JPRB /)  
+KA(:, 5, 5, 1) = (/ &
+ & 0.64808E-05_JPRB,0.18883E-04_JPRB,0.20738E-04_JPRB,0.20994E-04_JPRB,0.19546E-04_JPRB, &
+ & 0.17304E-04_JPRB,0.14306E-04_JPRB,0.10148E-04_JPRB,0.30886E-06_JPRB /)  
+KA(:, 1, 6, 1) = (/ &
+ & 0.60727E-05_JPRB,0.17794E-04_JPRB,0.19609E-04_JPRB,0.19769E-04_JPRB,0.18228E-04_JPRB, &
+ & 0.15946E-04_JPRB,0.12793E-04_JPRB,0.86559E-05_JPRB,0.18559E-06_JPRB /)  
+KA(:, 2, 6, 1) = (/ &
+ & 0.58949E-05_JPRB,0.17390E-04_JPRB,0.19059E-04_JPRB,0.19244E-04_JPRB,0.17820E-04_JPRB, &
+ & 0.15647E-04_JPRB,0.12626E-04_JPRB,0.86354E-05_JPRB,0.19544E-06_JPRB /)  
+KA(:, 3, 6, 1) = (/ &
+ & 0.57268E-05_JPRB,0.16935E-04_JPRB,0.18564E-04_JPRB,0.18724E-04_JPRB,0.17402E-04_JPRB, &
+ & 0.15304E-04_JPRB,0.12433E-04_JPRB,0.85882E-05_JPRB,0.22033E-06_JPRB /)  
+KA(:, 4, 6, 1) = (/ &
+ & 0.56243E-05_JPRB,0.16459E-04_JPRB,0.18054E-04_JPRB,0.18263E-04_JPRB,0.16984E-04_JPRB, &
+ & 0.14971E-04_JPRB,0.12215E-04_JPRB,0.85268E-05_JPRB,0.25072E-06_JPRB /)  
+KA(:, 5, 6, 1) = (/ &
+ & 0.54584E-05_JPRB,0.15984E-04_JPRB,0.17548E-04_JPRB,0.17773E-04_JPRB,0.16551E-04_JPRB, &
+ & 0.14601E-04_JPRB,0.12004E-04_JPRB,0.84568E-05_JPRB,0.28110E-06_JPRB /)  
+KA(:, 1, 7, 1) = (/ &
+ & 0.50624E-05_JPRB,0.14963E-04_JPRB,0.16482E-04_JPRB,0.16611E-04_JPRB,0.15339E-04_JPRB, &
+ & 0.13333E-04_JPRB,0.10656E-04_JPRB,0.71570E-05_JPRB,0.13453E-06_JPRB /)  
+KA(:, 2, 7, 1) = (/ &
+ & 0.49428E-05_JPRB,0.14636E-04_JPRB,0.16040E-04_JPRB,0.16181E-04_JPRB,0.14992E-04_JPRB, &
+ & 0.13144E-04_JPRB,0.10533E-04_JPRB,0.71532E-05_JPRB,0.15620E-06_JPRB /)  
+KA(:, 3, 7, 1) = (/ &
+ & 0.47955E-05_JPRB,0.14256E-04_JPRB,0.15611E-04_JPRB,0.15735E-04_JPRB,0.14643E-04_JPRB, &
+ & 0.12865E-04_JPRB,0.10390E-04_JPRB,0.71248E-05_JPRB,0.18571E-06_JPRB /)  
+KA(:, 4, 7, 1) = (/ &
+ & 0.46743E-05_JPRB,0.13876E-04_JPRB,0.15213E-04_JPRB,0.15342E-04_JPRB,0.14293E-04_JPRB, &
+ & 0.12576E-04_JPRB,0.10215E-04_JPRB,0.70735E-05_JPRB,0.21382E-06_JPRB /)  
+KA(:, 5, 7, 1) = (/ &
+ & 0.45708E-05_JPRB,0.13473E-04_JPRB,0.14782E-04_JPRB,0.14947E-04_JPRB,0.13933E-04_JPRB, &
+ & 0.12274E-04_JPRB,0.10036E-04_JPRB,0.70177E-05_JPRB,0.24419E-06_JPRB /)  
+KA(:, 1, 8, 1) = (/ &
+ & 0.42289E-05_JPRB,0.12528E-04_JPRB,0.13817E-04_JPRB,0.13922E-04_JPRB,0.12867E-04_JPRB, &
+ & 0.11126E-04_JPRB,0.88468E-05_JPRB,0.59010E-05_JPRB,0.10600E-06_JPRB /)  
+KA(:, 2, 8, 1) = (/ &
+ & 0.41319E-05_JPRB,0.12286E-04_JPRB,0.13480E-04_JPRB,0.13582E-04_JPRB,0.12584E-04_JPRB, &
+ & 0.10973E-04_JPRB,0.87644E-05_JPRB,0.59049E-05_JPRB,0.12951E-06_JPRB /)  
+KA(:, 3, 8, 1) = (/ &
+ & 0.40317E-05_JPRB,0.11996E-04_JPRB,0.13116E-04_JPRB,0.13206E-04_JPRB,0.12295E-04_JPRB, &
+ & 0.10786E-04_JPRB,0.86537E-05_JPRB,0.58898E-05_JPRB,0.15731E-06_JPRB /)  
+KA(:, 4, 8, 1) = (/ &
+ & 0.39107E-05_JPRB,0.11666E-04_JPRB,0.12771E-04_JPRB,0.12870E-04_JPRB,0.12010E-04_JPRB, &
+ & 0.10546E-04_JPRB,0.85244E-05_JPRB,0.58536E-05_JPRB,0.18716E-06_JPRB /)  
+KA(:, 5, 8, 1) = (/ &
+ & 0.38384E-05_JPRB,0.11346E-04_JPRB,0.12435E-04_JPRB,0.12549E-04_JPRB,0.11706E-04_JPRB, &
+ & 0.10289E-04_JPRB,0.83756E-05_JPRB,0.58104E-05_JPRB,0.21679E-06_JPRB /)  
+KA(:, 1, 9, 1) = (/ &
+ & 0.35240E-05_JPRB,0.10418E-04_JPRB,0.11558E-04_JPRB,0.11687E-04_JPRB,0.10748E-04_JPRB, &
+ & 0.92305E-05_JPRB,0.73198E-05_JPRB,0.48514E-05_JPRB,0.10176E-06_JPRB /)  
+KA(:, 2, 9, 1) = (/ &
+ & 0.34478E-05_JPRB,0.10296E-04_JPRB,0.11296E-04_JPRB,0.11369E-04_JPRB,0.10532E-04_JPRB, &
+ & 0.91375E-05_JPRB,0.72737E-05_JPRB,0.48639E-05_JPRB,0.12695E-06_JPRB /)  
+KA(:, 3, 9, 1) = (/ &
+ & 0.33718E-05_JPRB,0.10068E-04_JPRB,0.10996E-04_JPRB,0.11063E-04_JPRB,0.10290E-04_JPRB, &
+ & 0.89957E-05_JPRB,0.71844E-05_JPRB,0.48583E-05_JPRB,0.15482E-06_JPRB /)  
+KA(:, 4, 9, 1) = (/ &
+ & 0.32801E-05_JPRB,0.97990E-05_JPRB,0.10712E-04_JPRB,0.10762E-04_JPRB,0.10056E-04_JPRB, &
+ & 0.88255E-05_JPRB,0.70907E-05_JPRB,0.48364E-05_JPRB,0.18123E-06_JPRB /)  
+KA(:, 5, 9, 1) = (/ &
+ & 0.31960E-05_JPRB,0.95350E-05_JPRB,0.10427E-04_JPRB,0.10501E-04_JPRB,0.98056E-05_JPRB, &
+ & 0.86157E-05_JPRB,0.69723E-05_JPRB,0.48010E-05_JPRB,0.20738E-06_JPRB /)  
+KA(:, 1,10, 1) = (/ &
+ & 0.29197E-05_JPRB,0.86183E-05_JPRB,0.96100E-05_JPRB,0.97448E-05_JPRB,0.89187E-05_JPRB, &
+ & 0.76354E-05_JPRB,0.60318E-05_JPRB,0.39733E-05_JPRB,0.10310E-06_JPRB /)  
+KA(:, 2,10, 1) = (/ &
+ & 0.28677E-05_JPRB,0.85565E-05_JPRB,0.94191E-05_JPRB,0.94682E-05_JPRB,0.87653E-05_JPRB, &
+ & 0.75725E-05_JPRB,0.60089E-05_JPRB,0.39956E-05_JPRB,0.12951E-06_JPRB /)  
+KA(:, 3,10, 1) = (/ &
+ & 0.28036E-05_JPRB,0.84121E-05_JPRB,0.91902E-05_JPRB,0.92251E-05_JPRB,0.85811E-05_JPRB, &
+ & 0.74653E-05_JPRB,0.59452E-05_JPRB,0.39967E-05_JPRB,0.15684E-06_JPRB /)  
+KA(:, 4,10, 1) = (/ &
+ & 0.27420E-05_JPRB,0.82035E-05_JPRB,0.89440E-05_JPRB,0.89748E-05_JPRB,0.83817E-05_JPRB, &
+ & 0.73422E-05_JPRB,0.58725E-05_JPRB,0.39844E-05_JPRB,0.18564E-06_JPRB /)  
+KA(:, 5,10, 1) = (/ &
+ & 0.26596E-05_JPRB,0.79739E-05_JPRB,0.87074E-05_JPRB,0.87508E-05_JPRB,0.81784E-05_JPRB, &
+ & 0.71781E-05_JPRB,0.57815E-05_JPRB,0.39569E-05_JPRB,0.21476E-06_JPRB /)  
+KA(:, 1,11, 1) = (/ &
+ & 0.23988E-05_JPRB,0.71135E-05_JPRB,0.79121E-05_JPRB,0.80118E-05_JPRB,0.73370E-05_JPRB, &
+ & 0.62844E-05_JPRB,0.49610E-05_JPRB,0.32641E-05_JPRB,0.91697E-07_JPRB /)  
+KA(:, 2,11, 1) = (/ &
+ & 0.23552E-05_JPRB,0.70587E-05_JPRB,0.77519E-05_JPRB,0.77821E-05_JPRB,0.72113E-05_JPRB, &
+ & 0.62297E-05_JPRB,0.49407E-05_JPRB,0.32815E-05_JPRB,0.11307E-06_JPRB /)  
+KA(:, 3,11, 1) = (/ &
+ & 0.23046E-05_JPRB,0.69367E-05_JPRB,0.75662E-05_JPRB,0.75790E-05_JPRB,0.70631E-05_JPRB, &
+ & 0.61409E-05_JPRB,0.48867E-05_JPRB,0.32812E-05_JPRB,0.13715E-06_JPRB /)  
+KA(:, 4,11, 1) = (/ &
+ & 0.22557E-05_JPRB,0.67632E-05_JPRB,0.73640E-05_JPRB,0.73772E-05_JPRB,0.68972E-05_JPRB, &
+ & 0.60381E-05_JPRB,0.48254E-05_JPRB,0.32705E-05_JPRB,0.16436E-06_JPRB /)  
+KA(:, 5,11, 1) = (/ &
+ & 0.21899E-05_JPRB,0.65748E-05_JPRB,0.71695E-05_JPRB,0.71946E-05_JPRB,0.67295E-05_JPRB, &
+ & 0.59022E-05_JPRB,0.47488E-05_JPRB,0.32476E-05_JPRB,0.19025E-06_JPRB /)  
+KA(:, 1,12, 1) = (/ &
+ & 0.19699E-05_JPRB,0.58670E-05_JPRB,0.65075E-05_JPRB,0.65808E-05_JPRB,0.60300E-05_JPRB, &
+ & 0.51665E-05_JPRB,0.40749E-05_JPRB,0.26788E-05_JPRB,0.77100E-07_JPRB /)  
+KA(:, 2,12, 1) = (/ &
+ & 0.19348E-05_JPRB,0.58146E-05_JPRB,0.63730E-05_JPRB,0.63891E-05_JPRB,0.59260E-05_JPRB, &
+ & 0.51196E-05_JPRB,0.40577E-05_JPRB,0.26926E-05_JPRB,0.95693E-07_JPRB /)  
+KA(:, 3,12, 1) = (/ &
+ & 0.18947E-05_JPRB,0.57134E-05_JPRB,0.62207E-05_JPRB,0.62238E-05_JPRB,0.58090E-05_JPRB, &
+ & 0.50459E-05_JPRB,0.40113E-05_JPRB,0.26916E-05_JPRB,0.11572E-06_JPRB /)  
+KA(:, 4,12, 1) = (/ &
+ & 0.18552E-05_JPRB,0.55709E-05_JPRB,0.60522E-05_JPRB,0.60611E-05_JPRB,0.56693E-05_JPRB, &
+ & 0.49594E-05_JPRB,0.39606E-05_JPRB,0.26824E-05_JPRB,0.13797E-06_JPRB /)  
+KA(:, 5,12, 1) = (/ &
+ & 0.18040E-05_JPRB,0.54137E-05_JPRB,0.58935E-05_JPRB,0.59096E-05_JPRB,0.55294E-05_JPRB, &
+ & 0.48443E-05_JPRB,0.38977E-05_JPRB,0.26633E-05_JPRB,0.15884E-06_JPRB /)  
+KA(:, 1,13, 1) = (/ &
+ & 0.16167E-05_JPRB,0.48272E-05_JPRB,0.53475E-05_JPRB,0.53983E-05_JPRB,0.49503E-05_JPRB, &
+ & 0.42413E-05_JPRB,0.33431E-05_JPRB,0.21956E-05_JPRB,0.61381E-07_JPRB /)  
+KA(:, 2,13, 1) = (/ &
+ & 0.15895E-05_JPRB,0.47809E-05_JPRB,0.52342E-05_JPRB,0.52409E-05_JPRB,0.48652E-05_JPRB, &
+ & 0.42021E-05_JPRB,0.33263E-05_JPRB,0.22072E-05_JPRB,0.76382E-07_JPRB /)  
+KA(:, 3,13, 1) = (/ &
+ & 0.15582E-05_JPRB,0.46982E-05_JPRB,0.51055E-05_JPRB,0.51058E-05_JPRB,0.47716E-05_JPRB, &
+ & 0.41406E-05_JPRB,0.32886E-05_JPRB,0.22058E-05_JPRB,0.93083E-07_JPRB /)  
+KA(:, 4,13, 1) = (/ &
+ & 0.15242E-05_JPRB,0.45831E-05_JPRB,0.49696E-05_JPRB,0.49735E-05_JPRB,0.46534E-05_JPRB, &
+ & 0.40678E-05_JPRB,0.32469E-05_JPRB,0.21969E-05_JPRB,0.11211E-06_JPRB /)  
+KA(:, 5,13, 1) = (/ &
+ & 0.14859E-05_JPRB,0.44492E-05_JPRB,0.48392E-05_JPRB,0.48479E-05_JPRB,0.45378E-05_JPRB, &
+ & 0.39689E-05_JPRB,0.31933E-05_JPRB,0.21813E-05_JPRB,0.12970E-06_JPRB /)  
+KA(:, 1, 1, 2) = (/ &
+ & 0.10138E-03_JPRB,0.20456E-03_JPRB,0.22117E-03_JPRB,0.21948E-03_JPRB,0.20805E-03_JPRB, &
+ & 0.18373E-03_JPRB,0.14999E-03_JPRB,0.95382E-04_JPRB,0.33213E-05_JPRB /)  
+KA(:, 2, 1, 2) = (/ &
+ & 0.10141E-03_JPRB,0.20889E-03_JPRB,0.22456E-03_JPRB,0.22223E-03_JPRB,0.20912E-03_JPRB, &
+ & 0.18467E-03_JPRB,0.15060E-03_JPRB,0.95713E-04_JPRB,0.28479E-05_JPRB /)  
+KA(:, 3, 1, 2) = (/ &
+ & 0.10125E-03_JPRB,0.21223E-03_JPRB,0.22712E-03_JPRB,0.22388E-03_JPRB,0.20983E-03_JPRB, &
+ & 0.18513E-03_JPRB,0.15100E-03_JPRB,0.95881E-04_JPRB,0.26338E-05_JPRB /)  
+KA(:, 4, 1, 2) = (/ &
+ & 0.10105E-03_JPRB,0.21442E-03_JPRB,0.22863E-03_JPRB,0.22421E-03_JPRB,0.21046E-03_JPRB, &
+ & 0.18540E-03_JPRB,0.15060E-03_JPRB,0.95798E-04_JPRB,0.27638E-05_JPRB /)  
+KA(:, 5, 1, 2) = (/ &
+ & 0.10040E-03_JPRB,0.21612E-03_JPRB,0.22899E-03_JPRB,0.22416E-03_JPRB,0.21046E-03_JPRB, &
+ & 0.18570E-03_JPRB,0.15001E-03_JPRB,0.95569E-04_JPRB,0.29313E-05_JPRB /)  
+KA(:, 1, 2, 2) = (/ &
+ & 0.89639E-04_JPRB,0.17797E-03_JPRB,0.19284E-03_JPRB,0.18986E-03_JPRB,0.17824E-03_JPRB, &
+ & 0.15789E-03_JPRB,0.12906E-03_JPRB,0.83524E-04_JPRB,0.23926E-05_JPRB /)  
+KA(:, 2, 2, 2) = (/ &
+ & 0.89499E-04_JPRB,0.18144E-03_JPRB,0.19563E-03_JPRB,0.19227E-03_JPRB,0.17941E-03_JPRB, &
+ & 0.15844E-03_JPRB,0.12961E-03_JPRB,0.83632E-04_JPRB,0.21969E-05_JPRB /)  
+KA(:, 3, 2, 2) = (/ &
+ & 0.89411E-04_JPRB,0.18401E-03_JPRB,0.19753E-03_JPRB,0.19350E-03_JPRB,0.17999E-03_JPRB, &
+ & 0.15883E-03_JPRB,0.12989E-03_JPRB,0.83577E-04_JPRB,0.23158E-05_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART1',1,ZHOOK_HANDLE)
+END SUBROUTINE PART1
+
+
+SUBROUTINE PART2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART2',0,ZHOOK_HANDLE)
+
+
+KA(:, 4, 2, 2) = (/ &
+ & 0.88841E-04_JPRB,0.18541E-03_JPRB,0.19872E-03_JPRB,0.19398E-03_JPRB,0.18053E-03_JPRB, &
+ & 0.15907E-03_JPRB,0.12972E-03_JPRB,0.83396E-04_JPRB,0.23760E-05_JPRB /)  
+KA(:, 5, 2, 2) = (/ &
+ & 0.87949E-04_JPRB,0.18659E-03_JPRB,0.19902E-03_JPRB,0.19407E-03_JPRB,0.18073E-03_JPRB, &
+ & 0.15910E-03_JPRB,0.12937E-03_JPRB,0.83120E-04_JPRB,0.25247E-05_JPRB /)  
+KA(:, 1, 3, 2) = (/ &
+ & 0.77466E-04_JPRB,0.15264E-03_JPRB,0.16704E-03_JPRB,0.16342E-03_JPRB,0.15300E-03_JPRB, &
+ & 0.13499E-03_JPRB,0.11007E-03_JPRB,0.71881E-04_JPRB,0.17839E-05_JPRB /)  
+KA(:, 2, 3, 2) = (/ &
+ & 0.77483E-04_JPRB,0.15611E-03_JPRB,0.16950E-03_JPRB,0.16551E-03_JPRB,0.15408E-03_JPRB, &
+ & 0.13580E-03_JPRB,0.11055E-03_JPRB,0.72020E-04_JPRB,0.18564E-05_JPRB /)  
+KA(:, 3, 3, 2) = (/ &
+ & 0.77142E-04_JPRB,0.15867E-03_JPRB,0.17112E-03_JPRB,0.16672E-03_JPRB,0.15481E-03_JPRB, &
+ & 0.13616E-03_JPRB,0.11077E-03_JPRB,0.71922E-04_JPRB,0.20228E-05_JPRB /)  
+KA(:, 4, 3, 2) = (/ &
+ & 0.76460E-04_JPRB,0.16058E-03_JPRB,0.17186E-03_JPRB,0.16717E-03_JPRB,0.15519E-03_JPRB, &
+ & 0.13641E-03_JPRB,0.11060E-03_JPRB,0.71775E-04_JPRB,0.21717E-05_JPRB /)  
+KA(:, 5, 3, 2) = (/ &
+ & 0.75510E-04_JPRB,0.16158E-03_JPRB,0.17210E-03_JPRB,0.16730E-03_JPRB,0.15521E-03_JPRB, &
+ & 0.13649E-03_JPRB,0.11022E-03_JPRB,0.71516E-04_JPRB,0.23140E-05_JPRB /)  
+KA(:, 1, 4, 2) = (/ &
+ & 0.65931E-04_JPRB,0.12940E-03_JPRB,0.14295E-03_JPRB,0.14005E-03_JPRB,0.13095E-03_JPRB, &
+ & 0.11494E-03_JPRB,0.93656E-04_JPRB,0.61167E-04_JPRB,0.17094E-05_JPRB /)  
+KA(:, 2, 4, 2) = (/ &
+ & 0.66090E-04_JPRB,0.13269E-03_JPRB,0.14542E-03_JPRB,0.14233E-03_JPRB,0.13201E-03_JPRB, &
+ & 0.11558E-03_JPRB,0.93975E-04_JPRB,0.61436E-04_JPRB,0.18527E-05_JPRB /)  
+KA(:, 3, 4, 2) = (/ &
+ & 0.65630E-04_JPRB,0.13532E-03_JPRB,0.14717E-03_JPRB,0.14364E-03_JPRB,0.13266E-03_JPRB, &
+ & 0.11604E-03_JPRB,0.94126E-04_JPRB,0.61467E-04_JPRB,0.19576E-05_JPRB /)  
+KA(:, 4, 4, 2) = (/ &
+ & 0.64971E-04_JPRB,0.13708E-03_JPRB,0.14818E-03_JPRB,0.14427E-03_JPRB,0.13304E-03_JPRB, &
+ & 0.11616E-03_JPRB,0.94152E-04_JPRB,0.61334E-04_JPRB,0.20614E-05_JPRB /)  
+KA(:, 5, 4, 2) = (/ &
+ & 0.64122E-04_JPRB,0.13834E-03_JPRB,0.14864E-03_JPRB,0.14451E-03_JPRB,0.13312E-03_JPRB, &
+ & 0.11638E-03_JPRB,0.93955E-04_JPRB,0.61162E-04_JPRB,0.21640E-05_JPRB /)  
+KA(:, 1, 5, 2) = (/ &
+ & 0.55594E-04_JPRB,0.10830E-03_JPRB,0.12068E-03_JPRB,0.11865E-03_JPRB,0.11127E-03_JPRB, &
+ & 0.97925E-04_JPRB,0.79208E-04_JPRB,0.51842E-04_JPRB,0.15954E-05_JPRB /)  
+KA(:, 2, 5, 2) = (/ &
+ & 0.55669E-04_JPRB,0.11117E-03_JPRB,0.12299E-03_JPRB,0.12091E-03_JPRB,0.11248E-03_JPRB, &
+ & 0.98643E-04_JPRB,0.79433E-04_JPRB,0.52127E-04_JPRB,0.16966E-05_JPRB /)  
+KA(:, 3, 5, 2) = (/ &
+ & 0.55430E-04_JPRB,0.11345E-03_JPRB,0.12478E-03_JPRB,0.12235E-03_JPRB,0.11332E-03_JPRB, &
+ & 0.99117E-04_JPRB,0.79823E-04_JPRB,0.52286E-04_JPRB,0.18304E-05_JPRB /)  
+KA(:, 4, 5, 2) = (/ &
+ & 0.54800E-04_JPRB,0.11543E-03_JPRB,0.12601E-03_JPRB,0.12304E-03_JPRB,0.11389E-03_JPRB, &
+ & 0.99346E-04_JPRB,0.79935E-04_JPRB,0.52275E-04_JPRB,0.19479E-05_JPRB /)  
+KA(:, 5, 5, 2) = (/ &
+ & 0.54027E-04_JPRB,0.11665E-03_JPRB,0.12660E-03_JPRB,0.12339E-03_JPRB,0.11410E-03_JPRB, &
+ & 0.99535E-04_JPRB,0.79840E-04_JPRB,0.52168E-04_JPRB,0.20583E-05_JPRB /)  
+KA(:, 1, 6, 2) = (/ &
+ & 0.46500E-04_JPRB,0.89887E-04_JPRB,0.10048E-03_JPRB,0.99161E-04_JPRB,0.93136E-04_JPRB, &
+ & 0.82279E-04_JPRB,0.66872E-04_JPRB,0.43617E-04_JPRB,0.14730E-05_JPRB /)  
+KA(:, 2, 6, 2) = (/ &
+ & 0.46632E-04_JPRB,0.92444E-04_JPRB,0.10271E-03_JPRB,0.10123E-03_JPRB,0.94559E-04_JPRB, &
+ & 0.83135E-04_JPRB,0.67204E-04_JPRB,0.44046E-04_JPRB,0.16215E-05_JPRB /)  
+KA(:, 3, 6, 2) = (/ &
+ & 0.46490E-04_JPRB,0.94415E-04_JPRB,0.10446E-03_JPRB,0.10269E-03_JPRB,0.95387E-04_JPRB, &
+ & 0.83676E-04_JPRB,0.67579E-04_JPRB,0.44279E-04_JPRB,0.17358E-05_JPRB /)  
+KA(:, 4, 6, 2) = (/ &
+ & 0.46004E-04_JPRB,0.96190E-04_JPRB,0.10570E-03_JPRB,0.10346E-03_JPRB,0.95883E-04_JPRB, &
+ & 0.84038E-04_JPRB,0.67753E-04_JPRB,0.44348E-04_JPRB,0.18096E-05_JPRB /)  
+KA(:, 5, 6, 2) = (/ &
+ & 0.45362E-04_JPRB,0.97511E-04_JPRB,0.10645E-03_JPRB,0.10384E-03_JPRB,0.96197E-04_JPRB, &
+ & 0.84347E-04_JPRB,0.67758E-04_JPRB,0.44305E-04_JPRB,0.18882E-05_JPRB /)  
+KA(:, 1, 7, 2) = (/ &
+ & 0.38597E-04_JPRB,0.74019E-04_JPRB,0.82882E-04_JPRB,0.81807E-04_JPRB,0.76936E-04_JPRB, &
+ & 0.68278E-04_JPRB,0.55744E-04_JPRB,0.36507E-04_JPRB,0.13400E-05_JPRB /)  
+KA(:, 2, 7, 2) = (/ &
+ & 0.38728E-04_JPRB,0.76353E-04_JPRB,0.85030E-04_JPRB,0.83822E-04_JPRB,0.78523E-04_JPRB, &
+ & 0.69221E-04_JPRB,0.56199E-04_JPRB,0.36932E-04_JPRB,0.14766E-05_JPRB /)  
+KA(:, 3, 7, 2) = (/ &
+ & 0.38688E-04_JPRB,0.78164E-04_JPRB,0.86691E-04_JPRB,0.85269E-04_JPRB,0.79424E-04_JPRB, &
+ & 0.69849E-04_JPRB,0.56507E-04_JPRB,0.37211E-04_JPRB,0.16077E-05_JPRB /)  
+KA(:, 4, 7, 2) = (/ &
+ & 0.38399E-04_JPRB,0.79654E-04_JPRB,0.87882E-04_JPRB,0.86145E-04_JPRB,0.79917E-04_JPRB, &
+ & 0.70214E-04_JPRB,0.56698E-04_JPRB,0.37302E-04_JPRB,0.17365E-05_JPRB /)  
+KA(:, 5, 7, 2) = (/ &
+ & 0.37899E-04_JPRB,0.81012E-04_JPRB,0.88706E-04_JPRB,0.86589E-04_JPRB,0.80259E-04_JPRB, &
+ & 0.70429E-04_JPRB,0.56810E-04_JPRB,0.37287E-04_JPRB,0.18595E-05_JPRB /)  
+KA(:, 1, 8, 2) = (/ &
+ & 0.31959E-04_JPRB,0.60671E-04_JPRB,0.67963E-04_JPRB,0.67053E-04_JPRB,0.63057E-04_JPRB, &
+ & 0.56287E-04_JPRB,0.46187E-04_JPRB,0.30298E-04_JPRB,0.12071E-05_JPRB /)  
+KA(:, 2, 8, 2) = (/ &
+ & 0.32062E-04_JPRB,0.62753E-04_JPRB,0.69892E-04_JPRB,0.68941E-04_JPRB,0.64624E-04_JPRB, &
+ & 0.57187E-04_JPRB,0.46566E-04_JPRB,0.30687E-04_JPRB,0.13582E-05_JPRB /)  
+KA(:, 3, 8, 2) = (/ &
+ & 0.32098E-04_JPRB,0.64435E-04_JPRB,0.71423E-04_JPRB,0.70359E-04_JPRB,0.65646E-04_JPRB, &
+ & 0.57882E-04_JPRB,0.46897E-04_JPRB,0.30993E-04_JPRB,0.15217E-05_JPRB /)  
+KA(:, 4, 8, 2) = (/ &
+ & 0.31956E-04_JPRB,0.65758E-04_JPRB,0.72650E-04_JPRB,0.71275E-04_JPRB,0.66275E-04_JPRB, &
+ & 0.58298E-04_JPRB,0.47100E-04_JPRB,0.31079E-04_JPRB,0.16794E-05_JPRB /)  
+KA(:, 5, 8, 2) = (/ &
+ & 0.31584E-04_JPRB,0.66916E-04_JPRB,0.73502E-04_JPRB,0.71819E-04_JPRB,0.66611E-04_JPRB, &
+ & 0.58505E-04_JPRB,0.47243E-04_JPRB,0.31088E-04_JPRB,0.18250E-05_JPRB /)  
+KA(:, 1, 9, 2) = (/ &
+ & 0.26355E-04_JPRB,0.49472E-04_JPRB,0.55415E-04_JPRB,0.54584E-04_JPRB,0.51361E-04_JPRB, &
+ & 0.46135E-04_JPRB,0.38027E-04_JPRB,0.24983E-04_JPRB,0.13549E-05_JPRB /)  
+KA(:, 2, 9, 2) = (/ &
+ & 0.26472E-04_JPRB,0.51302E-04_JPRB,0.57165E-04_JPRB,0.56417E-04_JPRB,0.52936E-04_JPRB, &
+ & 0.47048E-04_JPRB,0.38417E-04_JPRB,0.25347E-04_JPRB,0.14941E-05_JPRB /)  
+KA(:, 3, 9, 2) = (/ &
+ & 0.26545E-04_JPRB,0.52866E-04_JPRB,0.58563E-04_JPRB,0.57776E-04_JPRB,0.53988E-04_JPRB, &
+ & 0.47706E-04_JPRB,0.38739E-04_JPRB,0.25638E-04_JPRB,0.16563E-05_JPRB /)  
+KA(:, 4, 9, 2) = (/ &
+ & 0.26469E-04_JPRB,0.54105E-04_JPRB,0.59749E-04_JPRB,0.58746E-04_JPRB,0.54668E-04_JPRB, &
+ & 0.48161E-04_JPRB,0.38970E-04_JPRB,0.25744E-04_JPRB,0.18262E-05_JPRB /)  
+KA(:, 5, 9, 2) = (/ &
+ & 0.26248E-04_JPRB,0.55079E-04_JPRB,0.60619E-04_JPRB,0.59317E-04_JPRB,0.55099E-04_JPRB, &
+ & 0.48435E-04_JPRB,0.39115E-04_JPRB,0.25778E-04_JPRB,0.20238E-05_JPRB /)  
+KA(:, 1,10, 2) = (/ &
+ & 0.21631E-04_JPRB,0.40297E-04_JPRB,0.45170E-04_JPRB,0.44298E-04_JPRB,0.41876E-04_JPRB, &
+ & 0.37690E-04_JPRB,0.31212E-04_JPRB,0.20552E-04_JPRB,0.16328E-05_JPRB /)  
+KA(:, 2,10, 2) = (/ &
+ & 0.21814E-04_JPRB,0.41896E-04_JPRB,0.46681E-04_JPRB,0.46065E-04_JPRB,0.43227E-04_JPRB, &
+ & 0.38608E-04_JPRB,0.31614E-04_JPRB,0.20857E-04_JPRB,0.18610E-05_JPRB /)  
+KA(:, 3,10, 2) = (/ &
+ & 0.21864E-04_JPRB,0.43247E-04_JPRB,0.47945E-04_JPRB,0.47327E-04_JPRB,0.44273E-04_JPRB, &
+ & 0.39201E-04_JPRB,0.31894E-04_JPRB,0.21119E-04_JPRB,0.20775E-05_JPRB /)  
+KA(:, 4,10, 2) = (/ &
+ & 0.21835E-04_JPRB,0.44386E-04_JPRB,0.48986E-04_JPRB,0.48228E-04_JPRB,0.44916E-04_JPRB, &
+ & 0.39637E-04_JPRB,0.32093E-04_JPRB,0.21228E-04_JPRB,0.22541E-05_JPRB /)  
+KA(:, 5,10, 2) = (/ &
+ & 0.21728E-04_JPRB,0.45263E-04_JPRB,0.49804E-04_JPRB,0.48818E-04_JPRB,0.45409E-04_JPRB, &
+ & 0.39950E-04_JPRB,0.32269E-04_JPRB,0.21290E-04_JPRB,0.24525E-05_JPRB /)  
+KA(:, 1,11, 2) = (/ &
+ & 0.17823E-04_JPRB,0.33378E-04_JPRB,0.37337E-04_JPRB,0.36619E-04_JPRB,0.34598E-04_JPRB, &
+ & 0.31113E-04_JPRB,0.25761E-04_JPRB,0.16956E-04_JPRB,0.15042E-05_JPRB /)  
+KA(:, 2,11, 2) = (/ &
+ & 0.17970E-04_JPRB,0.34679E-04_JPRB,0.38589E-04_JPRB,0.38065E-04_JPRB,0.35695E-04_JPRB, &
+ & 0.31869E-04_JPRB,0.26044E-04_JPRB,0.17214E-04_JPRB,0.16847E-05_JPRB /)  
+KA(:, 3,11, 2) = (/ &
+ & 0.17997E-04_JPRB,0.35791E-04_JPRB,0.39619E-04_JPRB,0.39097E-04_JPRB,0.36539E-04_JPRB, &
+ & 0.32374E-04_JPRB,0.26298E-04_JPRB,0.17428E-04_JPRB,0.18887E-05_JPRB /)  
+KA(:, 4,11, 2) = (/ &
+ & 0.17967E-04_JPRB,0.36717E-04_JPRB,0.40463E-04_JPRB,0.39821E-04_JPRB,0.37071E-04_JPRB, &
+ & 0.32716E-04_JPRB,0.26461E-04_JPRB,0.17496E-04_JPRB,0.20546E-05_JPRB /)  
+KA(:, 5,11, 2) = (/ &
+ & 0.17868E-04_JPRB,0.37423E-04_JPRB,0.41124E-04_JPRB,0.40304E-04_JPRB,0.37473E-04_JPRB, &
+ & 0.32971E-04_JPRB,0.26612E-04_JPRB,0.17532E-04_JPRB,0.22240E-05_JPRB /)  
+KA(:, 1,12, 2) = (/ &
+ & 0.14665E-04_JPRB,0.27605E-04_JPRB,0.30811E-04_JPRB,0.30250E-04_JPRB,0.28525E-04_JPRB, &
+ & 0.25644E-04_JPRB,0.21186E-04_JPRB,0.13955E-04_JPRB,0.12588E-05_JPRB /)  
+KA(:, 2,12, 2) = (/ &
+ & 0.14775E-04_JPRB,0.28655E-04_JPRB,0.31851E-04_JPRB,0.31408E-04_JPRB,0.29418E-04_JPRB, &
+ & 0.26261E-04_JPRB,0.21430E-04_JPRB,0.14172E-04_JPRB,0.14181E-05_JPRB /)  
+KA(:, 3,12, 2) = (/ &
+ & 0.14799E-04_JPRB,0.29571E-04_JPRB,0.32687E-04_JPRB,0.32242E-04_JPRB,0.30093E-04_JPRB, &
+ & 0.26683E-04_JPRB,0.21636E-04_JPRB,0.14338E-04_JPRB,0.15619E-05_JPRB /)  
+KA(:, 4,12, 2) = (/ &
+ & 0.14777E-04_JPRB,0.30325E-04_JPRB,0.33371E-04_JPRB,0.32826E-04_JPRB,0.30553E-04_JPRB, &
+ & 0.26945E-04_JPRB,0.21775E-04_JPRB,0.14380E-04_JPRB,0.16917E-05_JPRB /)  
+KA(:, 5,12, 2) = (/ &
+ & 0.14685E-04_JPRB,0.30904E-04_JPRB,0.33907E-04_JPRB,0.33214E-04_JPRB,0.30875E-04_JPRB, &
+ & 0.27158E-04_JPRB,0.21883E-04_JPRB,0.14414E-04_JPRB,0.18423E-05_JPRB /)  
+KA(:, 1,13, 2) = (/ &
+ & 0.12044E-04_JPRB,0.22772E-04_JPRB,0.25375E-04_JPRB,0.24926E-04_JPRB,0.23458E-04_JPRB, &
+ & 0.21059E-04_JPRB,0.17387E-04_JPRB,0.11457E-04_JPRB,0.99122E-06_JPRB /)  
+KA(:, 2,13, 2) = (/ &
+ & 0.12128E-04_JPRB,0.23637E-04_JPRB,0.26249E-04_JPRB,0.25842E-04_JPRB,0.24187E-04_JPRB, &
+ & 0.21582E-04_JPRB,0.17590E-04_JPRB,0.11636E-04_JPRB,0.11037E-05_JPRB /)  
+KA(:, 3,13, 2) = (/ &
+ & 0.12152E-04_JPRB,0.24386E-04_JPRB,0.26910E-04_JPRB,0.26531E-04_JPRB,0.24731E-04_JPRB, &
+ & 0.21923E-04_JPRB,0.17760E-04_JPRB,0.11755E-04_JPRB,0.12026E-05_JPRB /)  
+KA(:, 4,13, 2) = (/ &
+ & 0.12130E-04_JPRB,0.24996E-04_JPRB,0.27464E-04_JPRB,0.27006E-04_JPRB,0.25113E-04_JPRB, &
+ & 0.22138E-04_JPRB,0.17874E-04_JPRB,0.11797E-04_JPRB,0.13028E-05_JPRB /)  
+KA(:, 5,13, 2) = (/ &
+ & 0.12050E-04_JPRB,0.25474E-04_JPRB,0.27895E-04_JPRB,0.27297E-04_JPRB,0.25373E-04_JPRB, &
+ & 0.22302E-04_JPRB,0.17948E-04_JPRB,0.11817E-04_JPRB,0.14010E-05_JPRB /)  
+KA(:, 1, 1, 3) = (/ &
+ & 0.36823E-03_JPRB,0.49613E-03_JPRB,0.51817E-03_JPRB,0.50538E-03_JPRB,0.45711E-03_JPRB, &
+ & 0.39605E-03_JPRB,0.31486E-03_JPRB,0.21474E-03_JPRB,0.10932E-04_JPRB /)  
+KA(:, 2, 1, 3) = (/ &
+ & 0.37008E-03_JPRB,0.50778E-03_JPRB,0.53361E-03_JPRB,0.51778E-03_JPRB,0.46995E-03_JPRB, &
+ & 0.40629E-03_JPRB,0.32309E-03_JPRB,0.21878E-03_JPRB,0.11421E-04_JPRB /)  
+KA(:, 3, 1, 3) = (/ &
+ & 0.36989E-03_JPRB,0.51812E-03_JPRB,0.54699E-03_JPRB,0.52922E-03_JPRB,0.48036E-03_JPRB, &
+ & 0.41559E-03_JPRB,0.32965E-03_JPRB,0.22226E-03_JPRB,0.12395E-04_JPRB /)  
+KA(:, 4, 1, 3) = (/ &
+ & 0.36721E-03_JPRB,0.52763E-03_JPRB,0.55746E-03_JPRB,0.53957E-03_JPRB,0.48891E-03_JPRB, &
+ & 0.42313E-03_JPRB,0.33545E-03_JPRB,0.22588E-03_JPRB,0.13515E-04_JPRB /)  
+KA(:, 5, 1, 3) = (/ &
+ & 0.36313E-03_JPRB,0.53652E-03_JPRB,0.56680E-03_JPRB,0.54791E-03_JPRB,0.49664E-03_JPRB, &
+ & 0.42907E-03_JPRB,0.34043E-03_JPRB,0.22916E-03_JPRB,0.14734E-04_JPRB /)  
+KA(:, 1, 2, 3) = (/ &
+ & 0.32411E-03_JPRB,0.42815E-03_JPRB,0.44725E-03_JPRB,0.43813E-03_JPRB,0.40150E-03_JPRB, &
+ & 0.34871E-03_JPRB,0.27912E-03_JPRB,0.18929E-03_JPRB,0.80741E-05_JPRB /)  
+KA(:, 2, 2, 3) = (/ &
+ & 0.32567E-03_JPRB,0.43786E-03_JPRB,0.46069E-03_JPRB,0.45027E-03_JPRB,0.41319E-03_JPRB, &
+ & 0.35819E-03_JPRB,0.28635E-03_JPRB,0.19325E-03_JPRB,0.87340E-05_JPRB /)  
+KA(:, 3, 2, 3) = (/ &
+ & 0.32429E-03_JPRB,0.44638E-03_JPRB,0.47228E-03_JPRB,0.46074E-03_JPRB,0.42272E-03_JPRB, &
+ & 0.36602E-03_JPRB,0.29201E-03_JPRB,0.19653E-03_JPRB,0.96110E-05_JPRB /)  
+KA(:, 4, 2, 3) = (/ &
+ & 0.32137E-03_JPRB,0.45531E-03_JPRB,0.48142E-03_JPRB,0.46951E-03_JPRB,0.42996E-03_JPRB, &
+ & 0.37250E-03_JPRB,0.29709E-03_JPRB,0.19974E-03_JPRB,0.10697E-04_JPRB /)  
+KA(:, 5, 2, 3) = (/ &
+ & 0.31776E-03_JPRB,0.46207E-03_JPRB,0.48880E-03_JPRB,0.47659E-03_JPRB,0.43551E-03_JPRB, &
+ & 0.37776E-03_JPRB,0.30138E-03_JPRB,0.20274E-03_JPRB,0.11704E-04_JPRB /)  
+KA(:, 1, 3, 3) = (/ &
+ & 0.28488E-03_JPRB,0.36767E-03_JPRB,0.38081E-03_JPRB,0.37438E-03_JPRB,0.34525E-03_JPRB, &
+ & 0.30150E-03_JPRB,0.24332E-03_JPRB,0.16415E-03_JPRB,0.63970E-05_JPRB /)  
+KA(:, 2, 3, 3) = (/ &
+ & 0.28539E-03_JPRB,0.37509E-03_JPRB,0.39196E-03_JPRB,0.38510E-03_JPRB,0.35566E-03_JPRB, &
+ & 0.30998E-03_JPRB,0.24963E-03_JPRB,0.16766E-03_JPRB,0.72006E-05_JPRB /)  
+KA(:, 3, 3, 3) = (/ &
+ & 0.28397E-03_JPRB,0.38215E-03_JPRB,0.40156E-03_JPRB,0.39428E-03_JPRB,0.36418E-03_JPRB, &
+ & 0.31727E-03_JPRB,0.25446E-03_JPRB,0.17107E-03_JPRB,0.79574E-05_JPRB /)  
+KA(:, 4, 3, 3) = (/ &
+ & 0.28134E-03_JPRB,0.38867E-03_JPRB,0.40959E-03_JPRB,0.40230E-03_JPRB,0.37093E-03_JPRB, &
+ & 0.32301E-03_JPRB,0.25898E-03_JPRB,0.17447E-03_JPRB,0.87131E-05_JPRB /)  
+KA(:, 5, 3, 3) = (/ &
+ & 0.27886E-03_JPRB,0.39360E-03_JPRB,0.41642E-03_JPRB,0.40852E-03_JPRB,0.37609E-03_JPRB, &
+ & 0.32740E-03_JPRB,0.26312E-03_JPRB,0.17737E-03_JPRB,0.94704E-05_JPRB /)  
+KA(:, 1, 4, 3) = (/ &
+ & 0.24923E-03_JPRB,0.31555E-03_JPRB,0.32423E-03_JPRB,0.31731E-03_JPRB,0.29410E-03_JPRB, &
+ & 0.25671E-03_JPRB,0.20762E-03_JPRB,0.14074E-03_JPRB,0.55877E-05_JPRB /)  
+KA(:, 2, 4, 3) = (/ &
+ & 0.24977E-03_JPRB,0.32120E-03_JPRB,0.33372E-03_JPRB,0.32657E-03_JPRB,0.30295E-03_JPRB, &
+ & 0.26472E-03_JPRB,0.21303E-03_JPRB,0.14396E-03_JPRB,0.61575E-05_JPRB /)  
+KA(:, 3, 4, 3) = (/ &
+ & 0.24865E-03_JPRB,0.32668E-03_JPRB,0.34180E-03_JPRB,0.33446E-03_JPRB,0.31033E-03_JPRB, &
+ & 0.27144E-03_JPRB,0.21777E-03_JPRB,0.14714E-03_JPRB,0.67916E-05_JPRB /)  
+KA(:, 4, 4, 3) = (/ &
+ & 0.24709E-03_JPRB,0.33133E-03_JPRB,0.34841E-03_JPRB,0.34134E-03_JPRB,0.31600E-03_JPRB, &
+ & 0.27647E-03_JPRB,0.22179E-03_JPRB,0.15016E-03_JPRB,0.74653E-05_JPRB /)  
+KA(:, 5, 4, 3) = (/ &
+ & 0.24455E-03_JPRB,0.33491E-03_JPRB,0.35388E-03_JPRB,0.34708E-03_JPRB,0.32069E-03_JPRB, &
+ & 0.28005E-03_JPRB,0.22522E-03_JPRB,0.15242E-03_JPRB,0.81619E-05_JPRB /)  
+KA(:, 1, 5, 3) = (/ &
+ & 0.21526E-03_JPRB,0.27115E-03_JPRB,0.27505E-03_JPRB,0.26802E-03_JPRB,0.24968E-03_JPRB, &
+ & 0.21690E-03_JPRB,0.17481E-03_JPRB,0.11906E-03_JPRB,0.50850E-05_JPRB /)  
+KA(:, 2, 5, 3) = (/ &
+ & 0.21611E-03_JPRB,0.27621E-03_JPRB,0.28298E-03_JPRB,0.27620E-03_JPRB,0.25722E-03_JPRB, &
+ & 0.22411E-03_JPRB,0.18004E-03_JPRB,0.12197E-03_JPRB,0.55738E-05_JPRB /)  
+KA(:, 3, 5, 3) = (/ &
+ & 0.21583E-03_JPRB,0.28060E-03_JPRB,0.28955E-03_JPRB,0.28282E-03_JPRB,0.26346E-03_JPRB, &
+ & 0.23005E-03_JPRB,0.18415E-03_JPRB,0.12451E-03_JPRB,0.60864E-05_JPRB /)  
+KA(:, 4, 5, 3) = (/ &
+ & 0.21446E-03_JPRB,0.28363E-03_JPRB,0.29469E-03_JPRB,0.28896E-03_JPRB,0.26860E-03_JPRB, &
+ & 0.23435E-03_JPRB,0.18768E-03_JPRB,0.12690E-03_JPRB,0.66417E-05_JPRB /)  
+KA(:, 5, 5, 3) = (/ &
+ & 0.21217E-03_JPRB,0.28626E-03_JPRB,0.29929E-03_JPRB,0.29370E-03_JPRB,0.27250E-03_JPRB, &
+ & 0.23763E-03_JPRB,0.19073E-03_JPRB,0.12909E-03_JPRB,0.72122E-05_JPRB /)  
+KA(:, 1, 6, 3) = (/ &
+ & 0.18262E-03_JPRB,0.23112E-03_JPRB,0.23388E-03_JPRB,0.22681E-03_JPRB,0.21062E-03_JPRB, &
+ & 0.18196E-03_JPRB,0.14634E-03_JPRB,0.99707E-04_JPRB,0.48078E-05_JPRB /)  
+KA(:, 2, 6, 3) = (/ &
+ & 0.18393E-03_JPRB,0.23591E-03_JPRB,0.24094E-03_JPRB,0.23364E-03_JPRB,0.21663E-03_JPRB, &
+ & 0.18814E-03_JPRB,0.15114E-03_JPRB,0.10205E-03_JPRB,0.52252E-05_JPRB /)  
+KA(:, 3, 6, 3) = (/ &
+ & 0.18379E-03_JPRB,0.23984E-03_JPRB,0.24676E-03_JPRB,0.23956E-03_JPRB,0.22221E-03_JPRB, &
+ & 0.19356E-03_JPRB,0.15489E-03_JPRB,0.10434E-03_JPRB,0.56405E-05_JPRB /)  
+KA(:, 4, 6, 3) = (/ &
+ & 0.18270E-03_JPRB,0.24258E-03_JPRB,0.25102E-03_JPRB,0.24458E-03_JPRB,0.22685E-03_JPRB, &
+ & 0.19771E-03_JPRB,0.15805E-03_JPRB,0.10655E-03_JPRB,0.60728E-05_JPRB /)  
+KA(:, 5, 6, 3) = (/ &
+ & 0.18067E-03_JPRB,0.24446E-03_JPRB,0.25467E-03_JPRB,0.24894E-03_JPRB,0.23051E-03_JPRB, &
+ & 0.20056E-03_JPRB,0.16088E-03_JPRB,0.10844E-03_JPRB,0.65160E-05_JPRB /)  
+KA(:, 1, 7, 3) = (/ &
+ & 0.15269E-03_JPRB,0.19407E-03_JPRB,0.19640E-03_JPRB,0.19073E-03_JPRB,0.17715E-03_JPRB, &
+ & 0.15224E-03_JPRB,0.12181E-03_JPRB,0.83302E-04_JPRB,0.45185E-05_JPRB /)  
+KA(:, 2, 7, 3) = (/ &
+ & 0.15450E-03_JPRB,0.19834E-03_JPRB,0.20246E-03_JPRB,0.19675E-03_JPRB,0.18242E-03_JPRB, &
+ & 0.15776E-03_JPRB,0.12610E-03_JPRB,0.85306E-04_JPRB,0.49315E-05_JPRB /)  
+KA(:, 3, 7, 3) = (/ &
+ & 0.15459E-03_JPRB,0.20178E-03_JPRB,0.20759E-03_JPRB,0.20176E-03_JPRB,0.18737E-03_JPRB, &
+ & 0.16233E-03_JPRB,0.12951E-03_JPRB,0.87417E-04_JPRB,0.53491E-05_JPRB /)  
+KA(:, 4, 7, 3) = (/ &
+ & 0.15368E-03_JPRB,0.20410E-03_JPRB,0.21160E-03_JPRB,0.20623E-03_JPRB,0.19161E-03_JPRB, &
+ & 0.16603E-03_JPRB,0.13246E-03_JPRB,0.89237E-04_JPRB,0.57562E-05_JPRB /)  
+KA(:, 5, 7, 3) = (/ &
+ & 0.15207E-03_JPRB,0.20567E-03_JPRB,0.21458E-03_JPRB,0.20991E-03_JPRB,0.19525E-03_JPRB, &
+ & 0.16906E-03_JPRB,0.13481E-03_JPRB,0.90932E-04_JPRB,0.61659E-05_JPRB /)  
+KA(:, 1, 8, 3) = (/ &
+ & 0.12672E-03_JPRB,0.16159E-03_JPRB,0.16329E-03_JPRB,0.15821E-03_JPRB,0.14746E-03_JPRB, &
+ & 0.12624E-03_JPRB,0.10116E-03_JPRB,0.69306E-04_JPRB,0.46652E-05_JPRB /)  
+KA(:, 2, 8, 3) = (/ &
+ & 0.12853E-03_JPRB,0.16539E-03_JPRB,0.16859E-03_JPRB,0.16359E-03_JPRB,0.15208E-03_JPRB, &
+ & 0.13120E-03_JPRB,0.10513E-03_JPRB,0.71005E-04_JPRB,0.51392E-05_JPRB /)  
+KA(:, 3, 8, 3) = (/ &
+ & 0.12901E-03_JPRB,0.16841E-03_JPRB,0.17301E-03_JPRB,0.16813E-03_JPRB,0.15614E-03_JPRB, &
+ & 0.13532E-03_JPRB,0.10829E-03_JPRB,0.72863E-04_JPRB,0.55244E-05_JPRB /)  
+KA(:, 4, 8, 3) = (/ &
+ & 0.12833E-03_JPRB,0.17058E-03_JPRB,0.17652E-03_JPRB,0.17184E-03_JPRB,0.15971E-03_JPRB, &
+ & 0.13867E-03_JPRB,0.11087E-03_JPRB,0.74475E-04_JPRB,0.58193E-05_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART2',1,ZHOOK_HANDLE)
+END SUBROUTINE PART2
+
+
+SUBROUTINE PART3
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART3',0,ZHOOK_HANDLE)
+
+
+KA(:, 5, 8, 3) = (/ &
+ & 0.12715E-03_JPRB,0.17197E-03_JPRB,0.17918E-03_JPRB,0.17513E-03_JPRB,0.16292E-03_JPRB, &
+ & 0.14144E-03_JPRB,0.11301E-03_JPRB,0.75965E-04_JPRB,0.61705E-05_JPRB /)  
+KA(:, 1, 9, 3) = (/ &
+ & 0.10428E-03_JPRB,0.13348E-03_JPRB,0.13462E-03_JPRB,0.12995E-03_JPRB,0.12158E-03_JPRB, &
+ & 0.10379E-03_JPRB,0.83005E-04_JPRB,0.57371E-04_JPRB,0.55965E-05_JPRB /)  
+KA(:, 2, 9, 3) = (/ &
+ & 0.10619E-03_JPRB,0.13710E-03_JPRB,0.13932E-03_JPRB,0.13469E-03_JPRB,0.12538E-03_JPRB, &
+ & 0.10800E-03_JPRB,0.86632E-04_JPRB,0.58954E-04_JPRB,0.61961E-05_JPRB /)  
+KA(:, 3, 9, 3) = (/ &
+ & 0.10690E-03_JPRB,0.13978E-03_JPRB,0.14315E-03_JPRB,0.13877E-03_JPRB,0.12885E-03_JPRB, &
+ & 0.11169E-03_JPRB,0.89643E-04_JPRB,0.60568E-04_JPRB,0.68526E-05_JPRB /)  
+KA(:, 4, 9, 3) = (/ &
+ & 0.10668E-03_JPRB,0.14178E-03_JPRB,0.14626E-03_JPRB,0.14213E-03_JPRB,0.13207E-03_JPRB, &
+ & 0.11468E-03_JPRB,0.91984E-04_JPRB,0.62070E-04_JPRB,0.75122E-05_JPRB /)  
+KA(:, 5, 9, 3) = (/ &
+ & 0.10582E-03_JPRB,0.14316E-03_JPRB,0.14873E-03_JPRB,0.14501E-03_JPRB,0.13471E-03_JPRB, &
+ & 0.11704E-03_JPRB,0.93876E-04_JPRB,0.63388E-04_JPRB,0.80761E-05_JPRB /)  
+KA(:, 1,10, 3) = (/ &
+ & 0.85476E-04_JPRB,0.10982E-03_JPRB,0.11034E-03_JPRB,0.10643E-03_JPRB,0.99702E-04_JPRB, &
+ & 0.84967E-04_JPRB,0.68008E-04_JPRB,0.47229E-04_JPRB,0.66145E-05_JPRB /)  
+KA(:, 2,10, 3) = (/ &
+ & 0.87242E-04_JPRB,0.11322E-03_JPRB,0.11463E-03_JPRB,0.11045E-03_JPRB,0.10293E-03_JPRB, &
+ & 0.88580E-04_JPRB,0.71113E-04_JPRB,0.48631E-04_JPRB,0.75452E-05_JPRB /)  
+KA(:, 3,10, 3) = (/ &
+ & 0.88111E-04_JPRB,0.11563E-03_JPRB,0.11792E-03_JPRB,0.11404E-03_JPRB,0.10587E-03_JPRB, &
+ & 0.91877E-04_JPRB,0.73790E-04_JPRB,0.50044E-04_JPRB,0.84881E-05_JPRB /)  
+KA(:, 4,10, 3) = (/ &
+ & 0.88200E-04_JPRB,0.11743E-03_JPRB,0.12065E-03_JPRB,0.11708E-03_JPRB,0.10870E-03_JPRB, &
+ & 0.94480E-04_JPRB,0.75897E-04_JPRB,0.51384E-04_JPRB,0.95136E-05_JPRB /)  
+KA(:, 5,10, 3) = (/ &
+ & 0.87583E-04_JPRB,0.11871E-03_JPRB,0.12292E-03_JPRB,0.11954E-03_JPRB,0.11103E-03_JPRB, &
+ & 0.96523E-04_JPRB,0.77526E-04_JPRB,0.52518E-04_JPRB,0.10532E-04_JPRB /)  
+KA(:, 1,11, 3) = (/ &
+ & 0.70556E-04_JPRB,0.91428E-04_JPRB,0.91867E-04_JPRB,0.88463E-04_JPRB,0.82846E-04_JPRB, &
+ & 0.70774E-04_JPRB,0.56632E-04_JPRB,0.39167E-04_JPRB,0.61872E-05_JPRB /)  
+KA(:, 2,11, 3) = (/ &
+ & 0.71933E-04_JPRB,0.94182E-04_JPRB,0.95269E-04_JPRB,0.91646E-04_JPRB,0.85383E-04_JPRB, &
+ & 0.73738E-04_JPRB,0.59219E-04_JPRB,0.40474E-04_JPRB,0.69965E-05_JPRB /)  
+KA(:, 3,11, 3) = (/ &
+ & 0.72567E-04_JPRB,0.96098E-04_JPRB,0.97927E-04_JPRB,0.94606E-04_JPRB,0.87837E-04_JPRB, &
+ & 0.76370E-04_JPRB,0.61326E-04_JPRB,0.41633E-04_JPRB,0.78235E-05_JPRB /)  
+KA(:, 4,11, 3) = (/ &
+ & 0.72529E-04_JPRB,0.97532E-04_JPRB,0.10011E-03_JPRB,0.97076E-04_JPRB,0.90134E-04_JPRB, &
+ & 0.78428E-04_JPRB,0.63016E-04_JPRB,0.42754E-04_JPRB,0.87904E-05_JPRB /)  
+KA(:, 5,11, 3) = (/ &
+ & 0.71990E-04_JPRB,0.98552E-04_JPRB,0.10193E-03_JPRB,0.99080E-04_JPRB,0.92091E-04_JPRB, &
+ & 0.80068E-04_JPRB,0.64349E-04_JPRB,0.43674E-04_JPRB,0.98011E-05_JPRB /)  
+KA(:, 1,12, 3) = (/ &
+ & 0.58072E-04_JPRB,0.75815E-04_JPRB,0.76168E-04_JPRB,0.73252E-04_JPRB,0.68521E-04_JPRB, &
+ & 0.58748E-04_JPRB,0.47029E-04_JPRB,0.32430E-04_JPRB,0.51838E-05_JPRB /)  
+KA(:, 2,12, 3) = (/ &
+ & 0.59149E-04_JPRB,0.78005E-04_JPRB,0.78889E-04_JPRB,0.75853E-04_JPRB,0.70691E-04_JPRB, &
+ & 0.61160E-04_JPRB,0.49105E-04_JPRB,0.33572E-04_JPRB,0.58669E-05_JPRB /)  
+KA(:, 3,12, 3) = (/ &
+ & 0.59615E-04_JPRB,0.79572E-04_JPRB,0.81043E-04_JPRB,0.78301E-04_JPRB,0.72716E-04_JPRB, &
+ & 0.63265E-04_JPRB,0.50777E-04_JPRB,0.34506E-04_JPRB,0.66464E-05_JPRB /)  
+KA(:, 4,12, 3) = (/ &
+ & 0.59506E-04_JPRB,0.80712E-04_JPRB,0.82811E-04_JPRB,0.80321E-04_JPRB,0.74571E-04_JPRB, &
+ & 0.64935E-04_JPRB,0.52165E-04_JPRB,0.35447E-04_JPRB,0.74412E-05_JPRB /)  
+KA(:, 5,12, 3) = (/ &
+ & 0.59067E-04_JPRB,0.81520E-04_JPRB,0.84288E-04_JPRB,0.81977E-04_JPRB,0.76172E-04_JPRB, &
+ & 0.66259E-04_JPRB,0.53281E-04_JPRB,0.36178E-04_JPRB,0.82465E-05_JPRB /)  
+KA(:, 1,13, 3) = (/ &
+ & 0.47640E-04_JPRB,0.62583E-04_JPRB,0.62887E-04_JPRB,0.60485E-04_JPRB,0.56559E-04_JPRB, &
+ & 0.48624E-04_JPRB,0.38904E-04_JPRB,0.26773E-04_JPRB,0.40582E-05_JPRB /)  
+KA(:, 2,13, 3) = (/ &
+ & 0.48498E-04_JPRB,0.64379E-04_JPRB,0.65087E-04_JPRB,0.62641E-04_JPRB,0.58377E-04_JPRB, &
+ & 0.50572E-04_JPRB,0.40566E-04_JPRB,0.27717E-04_JPRB,0.46616E-05_JPRB /)  
+KA(:, 3,13, 3) = (/ &
+ & 0.48844E-04_JPRB,0.65656E-04_JPRB,0.66851E-04_JPRB,0.64628E-04_JPRB,0.60042E-04_JPRB, &
+ & 0.52254E-04_JPRB,0.41917E-04_JPRB,0.28510E-04_JPRB,0.53204E-05_JPRB /)  
+KA(:, 4,13, 3) = (/ &
+ & 0.48722E-04_JPRB,0.66574E-04_JPRB,0.68303E-04_JPRB,0.66300E-04_JPRB,0.61547E-04_JPRB, &
+ & 0.53614E-04_JPRB,0.43058E-04_JPRB,0.29254E-04_JPRB,0.59442E-05_JPRB /)  
+KA(:, 5,13, 3) = (/ &
+ & 0.48355E-04_JPRB,0.67217E-04_JPRB,0.69511E-04_JPRB,0.67651E-04_JPRB,0.62864E-04_JPRB, &
+ & 0.54712E-04_JPRB,0.43998E-04_JPRB,0.29875E-04_JPRB,0.66436E-05_JPRB /)  
+KA(:, 1, 1, 4) = (/ &
+ & 0.85387E-03_JPRB,0.97268E-03_JPRB,0.95201E-03_JPRB,0.89226E-03_JPRB,0.81465E-03_JPRB, &
+ & 0.69707E-03_JPRB,0.54829E-03_JPRB,0.35882E-03_JPRB,0.37920E-04_JPRB /)  
+KA(:, 2, 1, 4) = (/ &
+ & 0.85496E-03_JPRB,0.98746E-03_JPRB,0.97188E-03_JPRB,0.91775E-03_JPRB,0.83529E-03_JPRB, &
+ & 0.71649E-03_JPRB,0.56376E-03_JPRB,0.37061E-03_JPRB,0.43155E-04_JPRB /)  
+KA(:, 3, 1, 4) = (/ &
+ & 0.85154E-03_JPRB,0.99908E-03_JPRB,0.98969E-03_JPRB,0.94014E-03_JPRB,0.85604E-03_JPRB, &
+ & 0.73379E-03_JPRB,0.57832E-03_JPRB,0.38183E-03_JPRB,0.48702E-04_JPRB /)  
+KA(:, 4, 1, 4) = (/ &
+ & 0.84606E-03_JPRB,0.10090E-02_JPRB,0.10068E-02_JPRB,0.95944E-03_JPRB,0.87434E-03_JPRB, &
+ & 0.74975E-03_JPRB,0.59243E-03_JPRB,0.39188E-03_JPRB,0.54022E-04_JPRB /)  
+KA(:, 5, 1, 4) = (/ &
+ & 0.84061E-03_JPRB,0.10171E-02_JPRB,0.10218E-02_JPRB,0.97684E-03_JPRB,0.88906E-03_JPRB, &
+ & 0.76345E-03_JPRB,0.60471E-03_JPRB,0.40180E-03_JPRB,0.59778E-04_JPRB /)  
+KA(:, 1, 2, 4) = (/ &
+ & 0.76106E-03_JPRB,0.86763E-03_JPRB,0.84620E-03_JPRB,0.79337E-03_JPRB,0.72368E-03_JPRB, &
+ & 0.62633E-03_JPRB,0.49168E-03_JPRB,0.32346E-03_JPRB,0.31322E-04_JPRB /)  
+KA(:, 2, 2, 4) = (/ &
+ & 0.76153E-03_JPRB,0.88148E-03_JPRB,0.86349E-03_JPRB,0.81559E-03_JPRB,0.74480E-03_JPRB, &
+ & 0.64448E-03_JPRB,0.50635E-03_JPRB,0.33430E-03_JPRB,0.35566E-04_JPRB /)  
+KA(:, 3, 2, 4) = (/ &
+ & 0.75977E-03_JPRB,0.89195E-03_JPRB,0.87871E-03_JPRB,0.83605E-03_JPRB,0.76286E-03_JPRB, &
+ & 0.66127E-03_JPRB,0.51959E-03_JPRB,0.34472E-03_JPRB,0.39705E-04_JPRB /)  
+KA(:, 4, 2, 4) = (/ &
+ & 0.75771E-03_JPRB,0.89987E-03_JPRB,0.89406E-03_JPRB,0.85530E-03_JPRB,0.78123E-03_JPRB, &
+ & 0.67612E-03_JPRB,0.53221E-03_JPRB,0.35447E-03_JPRB,0.44266E-04_JPRB /)  
+KA(:, 5, 2, 4) = (/ &
+ & 0.75289E-03_JPRB,0.90657E-03_JPRB,0.90771E-03_JPRB,0.87200E-03_JPRB,0.79715E-03_JPRB, &
+ & 0.68926E-03_JPRB,0.54382E-03_JPRB,0.36372E-03_JPRB,0.48708E-04_JPRB /)  
+KA(:, 1, 3, 4) = (/ &
+ & 0.66893E-03_JPRB,0.76246E-03_JPRB,0.74334E-03_JPRB,0.69752E-03_JPRB,0.63501E-03_JPRB, &
+ & 0.55362E-03_JPRB,0.43455E-03_JPRB,0.28843E-03_JPRB,0.24260E-04_JPRB /)  
+KA(:, 2, 3, 4) = (/ &
+ & 0.67118E-03_JPRB,0.77588E-03_JPRB,0.75944E-03_JPRB,0.71710E-03_JPRB,0.65461E-03_JPRB, &
+ & 0.57122E-03_JPRB,0.44991E-03_JPRB,0.29906E-03_JPRB,0.27434E-04_JPRB /)  
+KA(:, 3, 3, 4) = (/ &
+ & 0.67218E-03_JPRB,0.78505E-03_JPRB,0.77328E-03_JPRB,0.73497E-03_JPRB,0.67286E-03_JPRB, &
+ & 0.58718E-03_JPRB,0.46375E-03_JPRB,0.30933E-03_JPRB,0.30808E-04_JPRB /)  
+KA(:, 4, 3, 4) = (/ &
+ & 0.67058E-03_JPRB,0.79242E-03_JPRB,0.78627E-03_JPRB,0.75181E-03_JPRB,0.68946E-03_JPRB, &
+ & 0.60183E-03_JPRB,0.47532E-03_JPRB,0.31743E-03_JPRB,0.34324E-04_JPRB /)  
+KA(:, 5, 3, 4) = (/ &
+ & 0.66467E-03_JPRB,0.79822E-03_JPRB,0.79776E-03_JPRB,0.76779E-03_JPRB,0.70481E-03_JPRB, &
+ & 0.61510E-03_JPRB,0.48553E-03_JPRB,0.32526E-03_JPRB,0.37905E-04_JPRB /)  
+KA(:, 1, 4, 4) = (/ &
+ & 0.58297E-03_JPRB,0.66020E-03_JPRB,0.64337E-03_JPRB,0.60610E-03_JPRB,0.55222E-03_JPRB, &
+ & 0.48338E-03_JPRB,0.38154E-03_JPRB,0.25537E-03_JPRB,0.20054E-04_JPRB /)  
+KA(:, 2, 4, 4) = (/ &
+ & 0.58616E-03_JPRB,0.67311E-03_JPRB,0.65764E-03_JPRB,0.62362E-03_JPRB,0.56996E-03_JPRB, &
+ & 0.49939E-03_JPRB,0.39657E-03_JPRB,0.26418E-03_JPRB,0.22457E-04_JPRB /)  
+KA(:, 3, 4, 4) = (/ &
+ & 0.58719E-03_JPRB,0.68291E-03_JPRB,0.67014E-03_JPRB,0.63926E-03_JPRB,0.58703E-03_JPRB, &
+ & 0.51453E-03_JPRB,0.40976E-03_JPRB,0.27280E-03_JPRB,0.24974E-04_JPRB /)  
+KA(:, 4, 4, 4) = (/ &
+ & 0.58451E-03_JPRB,0.68925E-03_JPRB,0.68144E-03_JPRB,0.65410E-03_JPRB,0.60312E-03_JPRB, &
+ & 0.52903E-03_JPRB,0.42147E-03_JPRB,0.28096E-03_JPRB,0.27613E-04_JPRB /)  
+KA(:, 5, 4, 4) = (/ &
+ & 0.57885E-03_JPRB,0.69369E-03_JPRB,0.69153E-03_JPRB,0.66725E-03_JPRB,0.61666E-03_JPRB, &
+ & 0.54114E-03_JPRB,0.43123E-03_JPRB,0.28907E-03_JPRB,0.30243E-04_JPRB /)  
+KA(:, 1, 5, 4) = (/ &
+ & 0.50639E-03_JPRB,0.56897E-03_JPRB,0.55412E-03_JPRB,0.52127E-03_JPRB,0.47341E-03_JPRB, &
+ & 0.41669E-03_JPRB,0.33293E-03_JPRB,0.22215E-03_JPRB,0.17057E-04_JPRB /)  
+KA(:, 2, 5, 4) = (/ &
+ & 0.51065E-03_JPRB,0.58111E-03_JPRB,0.56740E-03_JPRB,0.53642E-03_JPRB,0.48970E-03_JPRB, &
+ & 0.43166E-03_JPRB,0.34671E-03_JPRB,0.23111E-03_JPRB,0.19191E-04_JPRB /)  
+KA(:, 3, 5, 4) = (/ &
+ & 0.51131E-03_JPRB,0.58923E-03_JPRB,0.57802E-03_JPRB,0.54989E-03_JPRB,0.50519E-03_JPRB, &
+ & 0.44520E-03_JPRB,0.35867E-03_JPRB,0.23955E-03_JPRB,0.21238E-04_JPRB /)  
+KA(:, 4, 5, 4) = (/ &
+ & 0.50888E-03_JPRB,0.59432E-03_JPRB,0.58700E-03_JPRB,0.56238E-03_JPRB,0.51899E-03_JPRB, &
+ & 0.45787E-03_JPRB,0.36960E-03_JPRB,0.24733E-03_JPRB,0.23442E-04_JPRB /)  
+KA(:, 5, 5, 4) = (/ &
+ & 0.50411E-03_JPRB,0.59804E-03_JPRB,0.59497E-03_JPRB,0.57342E-03_JPRB,0.53158E-03_JPRB, &
+ & 0.46924E-03_JPRB,0.37886E-03_JPRB,0.25450E-03_JPRB,0.25756E-04_JPRB /)  
+KA(:, 1, 6, 4) = (/ &
+ & 0.43673E-03_JPRB,0.48782E-03_JPRB,0.47499E-03_JPRB,0.44629E-03_JPRB,0.40354E-03_JPRB, &
+ & 0.35457E-03_JPRB,0.28605E-03_JPRB,0.19086E-03_JPRB,0.14702E-04_JPRB /)  
+KA(:, 2, 6, 4) = (/ &
+ & 0.44102E-03_JPRB,0.49831E-03_JPRB,0.48639E-03_JPRB,0.45943E-03_JPRB,0.41879E-03_JPRB, &
+ & 0.36808E-03_JPRB,0.29802E-03_JPRB,0.19985E-03_JPRB,0.16471E-04_JPRB /)  
+KA(:, 3, 6, 4) = (/ &
+ & 0.44221E-03_JPRB,0.50518E-03_JPRB,0.49538E-03_JPRB,0.47075E-03_JPRB,0.43183E-03_JPRB, &
+ & 0.37995E-03_JPRB,0.30882E-03_JPRB,0.20763E-03_JPRB,0.18420E-04_JPRB /)  
+KA(:, 4, 6, 4) = (/ &
+ & 0.44017E-03_JPRB,0.50994E-03_JPRB,0.50323E-03_JPRB,0.48141E-03_JPRB,0.44360E-03_JPRB, &
+ & 0.39116E-03_JPRB,0.31844E-03_JPRB,0.21460E-03_JPRB,0.20473E-04_JPRB /)  
+KA(:, 5, 6, 4) = (/ &
+ & 0.43656E-03_JPRB,0.51249E-03_JPRB,0.51000E-03_JPRB,0.49068E-03_JPRB,0.45425E-03_JPRB, &
+ & 0.40107E-03_JPRB,0.32653E-03_JPRB,0.22109E-03_JPRB,0.22600E-04_JPRB /)  
+KA(:, 1, 7, 4) = (/ &
+ & 0.37627E-03_JPRB,0.41525E-03_JPRB,0.40365E-03_JPRB,0.37923E-03_JPRB,0.34257E-03_JPRB, &
+ & 0.30147E-03_JPRB,0.24324E-03_JPRB,0.16094E-03_JPRB,0.13400E-04_JPRB /)  
+KA(:, 2, 7, 4) = (/ &
+ & 0.38051E-03_JPRB,0.42489E-03_JPRB,0.41400E-03_JPRB,0.39067E-03_JPRB,0.35555E-03_JPRB, &
+ & 0.31257E-03_JPRB,0.25353E-03_JPRB,0.16947E-03_JPRB,0.14905E-04_JPRB /)  
+KA(:, 3, 7, 4) = (/ &
+ & 0.38196E-03_JPRB,0.43154E-03_JPRB,0.42169E-03_JPRB,0.40035E-03_JPRB,0.36703E-03_JPRB, &
+ & 0.32311E-03_JPRB,0.26291E-03_JPRB,0.17672E-03_JPRB,0.16566E-04_JPRB /)  
+KA(:, 4, 7, 4) = (/ &
+ & 0.38108E-03_JPRB,0.43587E-03_JPRB,0.42809E-03_JPRB,0.40890E-03_JPRB,0.37694E-03_JPRB, &
+ & 0.33246E-03_JPRB,0.27094E-03_JPRB,0.18305E-03_JPRB,0.18352E-04_JPRB /)  
+KA(:, 5, 7, 4) = (/ &
+ & 0.37854E-03_JPRB,0.43889E-03_JPRB,0.43402E-03_JPRB,0.41697E-03_JPRB,0.38532E-03_JPRB, &
+ & 0.34074E-03_JPRB,0.27816E-03_JPRB,0.18873E-03_JPRB,0.20220E-04_JPRB /)  
+KA(:, 1, 8, 4) = (/ &
+ & 0.31968E-03_JPRB,0.35301E-03_JPRB,0.34310E-03_JPRB,0.32206E-03_JPRB,0.28904E-03_JPRB, &
+ & 0.25356E-03_JPRB,0.20523E-03_JPRB,0.13432E-03_JPRB,0.13548E-04_JPRB /)  
+KA(:, 2, 8, 4) = (/ &
+ & 0.32386E-03_JPRB,0.36229E-03_JPRB,0.35288E-03_JPRB,0.33214E-03_JPRB,0.30033E-03_JPRB, &
+ & 0.26345E-03_JPRB,0.21374E-03_JPRB,0.14198E-03_JPRB,0.14966E-04_JPRB /)  
+KA(:, 3, 8, 4) = (/ &
+ & 0.32521E-03_JPRB,0.36848E-03_JPRB,0.35986E-03_JPRB,0.34056E-03_JPRB,0.31042E-03_JPRB, &
+ & 0.27222E-03_JPRB,0.22115E-03_JPRB,0.14841E-03_JPRB,0.16278E-04_JPRB /)  
+KA(:, 4, 8, 4) = (/ &
+ & 0.32527E-03_JPRB,0.37258E-03_JPRB,0.36553E-03_JPRB,0.34811E-03_JPRB,0.31916E-03_JPRB, &
+ & 0.28034E-03_JPRB,0.22837E-03_JPRB,0.15443E-03_JPRB,0.17614E-04_JPRB /)  
+KA(:, 5, 8, 4) = (/ &
+ & 0.32272E-03_JPRB,0.37533E-03_JPRB,0.37025E-03_JPRB,0.35438E-03_JPRB,0.32632E-03_JPRB, &
+ & 0.28740E-03_JPRB,0.23484E-03_JPRB,0.15952E-03_JPRB,0.19075E-04_JPRB /)  
+KA(:, 1, 9, 4) = (/ &
+ & 0.26794E-03_JPRB,0.29655E-03_JPRB,0.28851E-03_JPRB,0.27155E-03_JPRB,0.24290E-03_JPRB, &
+ & 0.21182E-03_JPRB,0.17187E-03_JPRB,0.11158E-03_JPRB,0.16893E-04_JPRB /)  
+KA(:, 2, 9, 4) = (/ &
+ & 0.27215E-03_JPRB,0.30477E-03_JPRB,0.29765E-03_JPRB,0.28075E-03_JPRB,0.25336E-03_JPRB, &
+ & 0.22120E-03_JPRB,0.17858E-03_JPRB,0.11794E-03_JPRB,0.18576E-04_JPRB /)  
+KA(:, 3, 9, 4) = (/ &
+ & 0.27400E-03_JPRB,0.31061E-03_JPRB,0.30447E-03_JPRB,0.28836E-03_JPRB,0.26224E-03_JPRB, &
+ & 0.22886E-03_JPRB,0.18474E-03_JPRB,0.12372E-03_JPRB,0.20056E-04_JPRB /)  
+KA(:, 4, 9, 4) = (/ &
+ & 0.27385E-03_JPRB,0.31424E-03_JPRB,0.30923E-03_JPRB,0.29477E-03_JPRB,0.26977E-03_JPRB, &
+ & 0.23554E-03_JPRB,0.19093E-03_JPRB,0.12884E-03_JPRB,0.21321E-04_JPRB /)  
+KA(:, 5, 9, 4) = (/ &
+ & 0.27196E-03_JPRB,0.31647E-03_JPRB,0.31308E-03_JPRB,0.30006E-03_JPRB,0.27604E-03_JPRB, &
+ & 0.24191E-03_JPRB,0.19649E-03_JPRB,0.13352E-03_JPRB,0.22611E-04_JPRB /)  
+KA(:, 1,10, 4) = (/ &
+ & 0.22255E-03_JPRB,0.24716E-03_JPRB,0.24087E-03_JPRB,0.22672E-03_JPRB,0.20216E-03_JPRB, &
+ & 0.17582E-03_JPRB,0.14339E-03_JPRB,0.92528E-04_JPRB,0.22471E-04_JPRB /)  
+KA(:, 2,10, 4) = (/ &
+ & 0.22663E-03_JPRB,0.25429E-03_JPRB,0.24908E-03_JPRB,0.23506E-03_JPRB,0.21167E-03_JPRB, &
+ & 0.18377E-03_JPRB,0.14910E-03_JPRB,0.97972E-04_JPRB,0.24536E-04_JPRB /)  
+KA(:, 3,10, 4) = (/ &
+ & 0.22867E-03_JPRB,0.25963E-03_JPRB,0.25532E-03_JPRB,0.24169E-03_JPRB,0.21923E-03_JPRB, &
+ & 0.19067E-03_JPRB,0.15458E-03_JPRB,0.10293E-03_JPRB,0.26453E-04_JPRB /)  
+KA(:, 4,10, 4) = (/ &
+ & 0.22853E-03_JPRB,0.26273E-03_JPRB,0.25960E-03_JPRB,0.24704E-03_JPRB,0.22549E-03_JPRB, &
+ & 0.19679E-03_JPRB,0.15968E-03_JPRB,0.10728E-03_JPRB,0.28383E-04_JPRB /)  
+KA(:, 5,10, 4) = (/ &
+ & 0.22704E-03_JPRB,0.26469E-03_JPRB,0.26259E-03_JPRB,0.25141E-03_JPRB,0.23080E-03_JPRB, &
+ & 0.20216E-03_JPRB,0.16433E-03_JPRB,0.11116E-03_JPRB,0.30111E-04_JPRB /)  
+KA(:, 1,11, 4) = (/ &
+ & 0.18570E-03_JPRB,0.20791E-03_JPRB,0.20310E-03_JPRB,0.19106E-03_JPRB,0.17066E-03_JPRB, &
+ & 0.14797E-03_JPRB,0.12097E-03_JPRB,0.78704E-04_JPRB,0.20720E-04_JPRB /)  
+KA(:, 2,11, 4) = (/ &
+ & 0.18868E-03_JPRB,0.21356E-03_JPRB,0.20969E-03_JPRB,0.19807E-03_JPRB,0.17821E-03_JPRB, &
+ & 0.15434E-03_JPRB,0.12584E-03_JPRB,0.83179E-04_JPRB,0.23268E-04_JPRB /)  
+KA(:, 3,11, 4) = (/ &
+ & 0.18972E-03_JPRB,0.21732E-03_JPRB,0.21447E-03_JPRB,0.20305E-03_JPRB,0.18416E-03_JPRB, &
+ & 0.15993E-03_JPRB,0.13006E-03_JPRB,0.87134E-04_JPRB,0.25781E-04_JPRB /)  
+KA(:, 4,11, 4) = (/ &
+ & 0.18929E-03_JPRB,0.21955E-03_JPRB,0.21771E-03_JPRB,0.20711E-03_JPRB,0.18907E-03_JPRB, &
+ & 0.16493E-03_JPRB,0.13420E-03_JPRB,0.90699E-04_JPRB,0.28181E-04_JPRB /)  
+KA(:, 5,11, 4) = (/ &
+ & 0.18766E-03_JPRB,0.22095E-03_JPRB,0.21987E-03_JPRB,0.21045E-03_JPRB,0.19312E-03_JPRB, &
+ & 0.16934E-03_JPRB,0.13812E-03_JPRB,0.93840E-04_JPRB,0.30489E-04_JPRB /)  
+KA(:, 1,12, 4) = (/ &
+ & 0.15409E-03_JPRB,0.17399E-03_JPRB,0.17010E-03_JPRB,0.16002E-03_JPRB,0.14311E-03_JPRB, &
+ & 0.12376E-03_JPRB,0.10121E-03_JPRB,0.66428E-04_JPRB,0.17813E-04_JPRB /)  
+KA(:, 2,12, 4) = (/ &
+ & 0.15599E-03_JPRB,0.17831E-03_JPRB,0.17521E-03_JPRB,0.16554E-03_JPRB,0.14890E-03_JPRB, &
+ & 0.12881E-03_JPRB,0.10527E-03_JPRB,0.69964E-04_JPRB,0.19918E-04_JPRB /)  
+KA(:, 3,12, 4) = (/ &
+ & 0.15661E-03_JPRB,0.18119E-03_JPRB,0.17892E-03_JPRB,0.16934E-03_JPRB,0.15365E-03_JPRB, &
+ & 0.13338E-03_JPRB,0.10864E-03_JPRB,0.73142E-04_JPRB,0.22121E-04_JPRB /)  
+KA(:, 4,12, 4) = (/ &
+ & 0.15608E-03_JPRB,0.18293E-03_JPRB,0.18145E-03_JPRB,0.17254E-03_JPRB,0.15743E-03_JPRB, &
+ & 0.13747E-03_JPRB,0.11209E-03_JPRB,0.75971E-04_JPRB,0.24425E-04_JPRB /)  
+KA(:, 5,12, 4) = (/ &
+ & 0.15453E-03_JPRB,0.18383E-03_JPRB,0.18309E-03_JPRB,0.17510E-03_JPRB,0.16067E-03_JPRB, &
+ & 0.14102E-03_JPRB,0.11529E-03_JPRB,0.78607E-04_JPRB,0.26791E-04_JPRB /)  
+KA(:, 1,13, 4) = (/ &
+ & 0.12705E-03_JPRB,0.14485E-03_JPRB,0.14155E-03_JPRB,0.13312E-03_JPRB,0.11914E-03_JPRB, &
+ & 0.10299E-03_JPRB,0.84416E-04_JPRB,0.55598E-04_JPRB,0.14429E-04_JPRB /)  
+KA(:, 2,13, 4) = (/ &
+ & 0.12843E-03_JPRB,0.14822E-03_JPRB,0.14555E-03_JPRB,0.13748E-03_JPRB,0.12377E-03_JPRB, &
+ & 0.10702E-03_JPRB,0.87520E-04_JPRB,0.58405E-04_JPRB,0.16147E-04_JPRB /)  
+KA(:, 3,13, 4) = (/ &
+ & 0.12875E-03_JPRB,0.15043E-03_JPRB,0.14850E-03_JPRB,0.14053E-03_JPRB,0.12752E-03_JPRB, &
+ & 0.11081E-03_JPRB,0.90348E-04_JPRB,0.60934E-04_JPRB,0.17992E-04_JPRB /)  
+KA(:, 4,13, 4) = (/ &
+ & 0.12822E-03_JPRB,0.15175E-03_JPRB,0.15049E-03_JPRB,0.14301E-03_JPRB,0.13059E-03_JPRB, &
+ & 0.11413E-03_JPRB,0.93171E-04_JPRB,0.63296E-04_JPRB,0.19888E-04_JPRB /)  
+KA(:, 5,13, 4) = (/ &
+ & 0.12684E-03_JPRB,0.15239E-03_JPRB,0.15179E-03_JPRB,0.14511E-03_JPRB,0.13320E-03_JPRB, &
+ & 0.11702E-03_JPRB,0.95786E-04_JPRB,0.65468E-04_JPRB,0.21706E-04_JPRB /)  
+KA(:, 1, 1, 5) = (/ &
+ & 0.16451E-02_JPRB,0.17375E-02_JPRB,0.16665E-02_JPRB,0.15396E-02_JPRB,0.13696E-02_JPRB, &
+ & 0.11731E-02_JPRB,0.92753E-03_JPRB,0.61159E-03_JPRB,0.14680E-03_JPRB /)  
+KA(:, 2, 1, 5) = (/ &
+ & 0.16450E-02_JPRB,0.17591E-02_JPRB,0.16954E-02_JPRB,0.15711E-02_JPRB,0.14087E-02_JPRB, &
+ & 0.12092E-02_JPRB,0.95859E-03_JPRB,0.63308E-03_JPRB,0.16131E-03_JPRB /)  
+KA(:, 3, 1, 5) = (/ &
+ & 0.16396E-02_JPRB,0.17762E-02_JPRB,0.17200E-02_JPRB,0.16012E-02_JPRB,0.14448E-02_JPRB, &
+ & 0.12424E-02_JPRB,0.98862E-03_JPRB,0.65400E-03_JPRB,0.17365E-03_JPRB /)  
+KA(:, 4, 1, 5) = (/ &
+ & 0.16299E-02_JPRB,0.17875E-02_JPRB,0.17415E-02_JPRB,0.16313E-02_JPRB,0.14788E-02_JPRB, &
+ & 0.12751E-02_JPRB,0.10161E-02_JPRB,0.67524E-03_JPRB,0.18499E-03_JPRB /)  
+KA(:, 5, 1, 5) = (/ &
+ & 0.16127E-02_JPRB,0.17946E-02_JPRB,0.17629E-02_JPRB,0.16594E-02_JPRB,0.15119E-02_JPRB, &
+ & 0.13059E-02_JPRB,0.10419E-02_JPRB,0.69511E-03_JPRB,0.19999E-03_JPRB /)  
+KA(:, 1, 2, 5) = (/ &
+ & 0.15084E-02_JPRB,0.15931E-02_JPRB,0.15186E-02_JPRB,0.13958E-02_JPRB,0.12369E-02_JPRB, &
+ & 0.10500E-02_JPRB,0.83688E-03_JPRB,0.55465E-03_JPRB,0.11914E-03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART3',1,ZHOOK_HANDLE)
+END SUBROUTINE PART3
+
+
+SUBROUTINE PART4
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART4',0,ZHOOK_HANDLE)
+
+
+KA(:, 2, 2, 5) = (/ &
+ & 0.15115E-02_JPRB,0.16146E-02_JPRB,0.15457E-02_JPRB,0.14241E-02_JPRB,0.12724E-02_JPRB, &
+ & 0.10844E-02_JPRB,0.86669E-03_JPRB,0.57603E-03_JPRB,0.13037E-03_JPRB /)  
+KA(:, 3, 2, 5) = (/ &
+ & 0.15084E-02_JPRB,0.16309E-02_JPRB,0.15669E-02_JPRB,0.14522E-02_JPRB,0.13074E-02_JPRB, &
+ & 0.11181E-02_JPRB,0.89787E-03_JPRB,0.59657E-03_JPRB,0.13918E-03_JPRB /)  
+KA(:, 4, 2, 5) = (/ &
+ & 0.14965E-02_JPRB,0.16419E-02_JPRB,0.15861E-02_JPRB,0.14781E-02_JPRB,0.13385E-02_JPRB, &
+ & 0.11507E-02_JPRB,0.92569E-03_JPRB,0.61596E-03_JPRB,0.15053E-03_JPRB /)  
+KA(:, 5, 2, 5) = (/ &
+ & 0.14804E-02_JPRB,0.16493E-02_JPRB,0.16042E-02_JPRB,0.15021E-02_JPRB,0.13704E-02_JPRB, &
+ & 0.11804E-02_JPRB,0.95044E-03_JPRB,0.63472E-03_JPRB,0.16410E-03_JPRB /)  
+KA(:, 1, 3, 5) = (/ &
+ & 0.13707E-02_JPRB,0.14436E-02_JPRB,0.13706E-02_JPRB,0.12561E-02_JPRB,0.11093E-02_JPRB, &
+ & 0.93534E-03_JPRB,0.74505E-03_JPRB,0.49303E-03_JPRB,0.93388E-04_JPRB /)  
+KA(:, 2, 3, 5) = (/ &
+ & 0.13760E-02_JPRB,0.14666E-02_JPRB,0.13986E-02_JPRB,0.12850E-02_JPRB,0.11416E-02_JPRB, &
+ & 0.96700E-03_JPRB,0.77192E-03_JPRB,0.51430E-03_JPRB,0.10062E-03_JPRB /)  
+KA(:, 3, 3, 5) = (/ &
+ & 0.13732E-02_JPRB,0.14839E-02_JPRB,0.14208E-02_JPRB,0.13112E-02_JPRB,0.11718E-02_JPRB, &
+ & 0.99814E-03_JPRB,0.79899E-03_JPRB,0.53404E-03_JPRB,0.10964E-03_JPRB /)  
+KA(:, 4, 3, 5) = (/ &
+ & 0.13644E-02_JPRB,0.14939E-02_JPRB,0.14404E-02_JPRB,0.13346E-02_JPRB,0.12002E-02_JPRB, &
+ & 0.10295E-02_JPRB,0.82532E-03_JPRB,0.55285E-03_JPRB,0.12023E-03_JPRB /)  
+KA(:, 5, 3, 5) = (/ &
+ & 0.13512E-02_JPRB,0.15024E-02_JPRB,0.14568E-02_JPRB,0.13559E-02_JPRB,0.12266E-02_JPRB, &
+ & 0.10592E-02_JPRB,0.85085E-03_JPRB,0.57058E-03_JPRB,0.13064E-03_JPRB /)  
+KA(:, 1, 4, 5) = (/ &
+ & 0.12336E-02_JPRB,0.12968E-02_JPRB,0.12255E-02_JPRB,0.11189E-02_JPRB,0.98785E-03_JPRB, &
+ & 0.83184E-03_JPRB,0.66033E-03_JPRB,0.43467E-03_JPRB,0.70047E-04_JPRB /)  
+KA(:, 2, 4, 5) = (/ &
+ & 0.12419E-02_JPRB,0.13192E-02_JPRB,0.12543E-02_JPRB,0.11482E-02_JPRB,0.10189E-02_JPRB, &
+ & 0.86315E-03_JPRB,0.68559E-03_JPRB,0.45559E-03_JPRB,0.76629E-04_JPRB /)  
+KA(:, 3, 4, 5) = (/ &
+ & 0.12416E-02_JPRB,0.13349E-02_JPRB,0.12771E-02_JPRB,0.11745E-02_JPRB,0.10469E-02_JPRB, &
+ & 0.89182E-03_JPRB,0.71110E-03_JPRB,0.47551E-03_JPRB,0.84761E-04_JPRB /)  
+KA(:, 4, 4, 5) = (/ &
+ & 0.12342E-02_JPRB,0.13470E-02_JPRB,0.12958E-02_JPRB,0.11964E-02_JPRB,0.10726E-02_JPRB, &
+ & 0.91965E-03_JPRB,0.73487E-03_JPRB,0.49419E-03_JPRB,0.93979E-04_JPRB /)  
+KA(:, 5, 4, 5) = (/ &
+ & 0.12238E-02_JPRB,0.13566E-02_JPRB,0.13110E-02_JPRB,0.12168E-02_JPRB,0.10976E-02_JPRB, &
+ & 0.94731E-03_JPRB,0.75866E-03_JPRB,0.51080E-03_JPRB,0.10249E-03_JPRB /)  
+KA(:, 1, 5, 5) = (/ &
+ & 0.10970E-02_JPRB,0.11491E-02_JPRB,0.10850E-02_JPRB,0.99037E-03_JPRB,0.87478E-03_JPRB, &
+ & 0.73644E-03_JPRB,0.58168E-03_JPRB,0.38673E-03_JPRB,0.55328E-04_JPRB /)  
+KA(:, 2, 5, 5) = (/ &
+ & 0.11051E-02_JPRB,0.11716E-02_JPRB,0.11129E-02_JPRB,0.10196E-02_JPRB,0.90431E-03_JPRB, &
+ & 0.76445E-03_JPRB,0.60553E-03_JPRB,0.40600E-03_JPRB,0.61413E-04_JPRB /)  
+KA(:, 3, 5, 5) = (/ &
+ & 0.11053E-02_JPRB,0.11877E-02_JPRB,0.11365E-02_JPRB,0.10446E-02_JPRB,0.92981E-03_JPRB, &
+ & 0.79114E-03_JPRB,0.62919E-03_JPRB,0.42419E-03_JPRB,0.68340E-04_JPRB /)  
+KA(:, 4, 5, 5) = (/ &
+ & 0.11000E-02_JPRB,0.12008E-02_JPRB,0.11557E-02_JPRB,0.10648E-02_JPRB,0.95310E-03_JPRB, &
+ & 0.81721E-03_JPRB,0.65273E-03_JPRB,0.44128E-03_JPRB,0.75425E-04_JPRB /)  
+KA(:, 5, 5, 5) = (/ &
+ & 0.10930E-02_JPRB,0.12101E-02_JPRB,0.11704E-02_JPRB,0.10855E-02_JPRB,0.97521E-03_JPRB, &
+ & 0.84232E-03_JPRB,0.67516E-03_JPRB,0.45733E-03_JPRB,0.82112E-04_JPRB /)  
+KA(:, 1, 6, 5) = (/ &
+ & 0.96254E-03_JPRB,0.10041E-02_JPRB,0.94496E-03_JPRB,0.86305E-03_JPRB,0.76515E-03_JPRB, &
+ & 0.64666E-03_JPRB,0.50949E-03_JPRB,0.34237E-03_JPRB,0.45743E-04_JPRB /)  
+KA(:, 2, 6, 5) = (/ &
+ & 0.97168E-03_JPRB,0.10257E-02_JPRB,0.97306E-03_JPRB,0.89241E-03_JPRB,0.79300E-03_JPRB, &
+ & 0.67315E-03_JPRB,0.53212E-03_JPRB,0.35953E-03_JPRB,0.50936E-04_JPRB /)  
+KA(:, 3, 6, 5) = (/ &
+ & 0.97307E-03_JPRB,0.10417E-02_JPRB,0.99540E-03_JPRB,0.91663E-03_JPRB,0.81739E-03_JPRB, &
+ & 0.69764E-03_JPRB,0.55388E-03_JPRB,0.37625E-03_JPRB,0.56704E-04_JPRB /)  
+KA(:, 4, 6, 5) = (/ &
+ & 0.97112E-03_JPRB,0.10538E-02_JPRB,0.10130E-02_JPRB,0.93600E-03_JPRB,0.83875E-03_JPRB, &
+ & 0.72048E-03_JPRB,0.57540E-03_JPRB,0.39219E-03_JPRB,0.62214E-04_JPRB /)  
+KA(:, 5, 6, 5) = (/ &
+ & 0.96524E-03_JPRB,0.10634E-02_JPRB,0.10272E-02_JPRB,0.95339E-03_JPRB,0.85814E-03_JPRB, &
+ & 0.74256E-03_JPRB,0.59649E-03_JPRB,0.40723E-03_JPRB,0.68154E-04_JPRB /)  
+KA(:, 1, 7, 5) = (/ &
+ & 0.83977E-03_JPRB,0.87150E-03_JPRB,0.81798E-03_JPRB,0.74510E-03_JPRB,0.66073E-03_JPRB, &
+ & 0.55889E-03_JPRB,0.44038E-03_JPRB,0.30023E-03_JPRB,0.39438E-04_JPRB /)  
+KA(:, 2, 7, 5) = (/ &
+ & 0.84860E-03_JPRB,0.89183E-03_JPRB,0.84311E-03_JPRB,0.77202E-03_JPRB,0.68677E-03_JPRB, &
+ & 0.58412E-03_JPRB,0.46261E-03_JPRB,0.31513E-03_JPRB,0.44026E-04_JPRB /)  
+KA(:, 3, 7, 5) = (/ &
+ & 0.85156E-03_JPRB,0.90640E-03_JPRB,0.86357E-03_JPRB,0.79472E-03_JPRB,0.70843E-03_JPRB, &
+ & 0.60616E-03_JPRB,0.48333E-03_JPRB,0.32962E-03_JPRB,0.48169E-04_JPRB /)  
+KA(:, 4, 7, 5) = (/ &
+ & 0.84996E-03_JPRB,0.91804E-03_JPRB,0.88000E-03_JPRB,0.81332E-03_JPRB,0.72741E-03_JPRB, &
+ & 0.62668E-03_JPRB,0.50295E-03_JPRB,0.34425E-03_JPRB,0.52632E-04_JPRB /)  
+KA(:, 5, 7, 5) = (/ &
+ & 0.84411E-03_JPRB,0.92502E-03_JPRB,0.89195E-03_JPRB,0.82771E-03_JPRB,0.74479E-03_JPRB, &
+ & 0.64630E-03_JPRB,0.52177E-03_JPRB,0.35838E-03_JPRB,0.57490E-04_JPRB /)  
+KA(:, 1, 8, 5) = (/ &
+ & 0.72566E-03_JPRB,0.75029E-03_JPRB,0.70410E-03_JPRB,0.64085E-03_JPRB,0.56881E-03_JPRB, &
+ & 0.48163E-03_JPRB,0.37585E-03_JPRB,0.26029E-03_JPRB,0.35173E-04_JPRB /)  
+KA(:, 2, 8, 5) = (/ &
+ & 0.73526E-03_JPRB,0.76878E-03_JPRB,0.72724E-03_JPRB,0.66569E-03_JPRB,0.59239E-03_JPRB, &
+ & 0.50357E-03_JPRB,0.39670E-03_JPRB,0.27234E-03_JPRB,0.38442E-04_JPRB /)  
+KA(:, 3, 8, 5) = (/ &
+ & 0.73942E-03_JPRB,0.78240E-03_JPRB,0.74617E-03_JPRB,0.68580E-03_JPRB,0.61175E-03_JPRB, &
+ & 0.52308E-03_JPRB,0.41633E-03_JPRB,0.28548E-03_JPRB,0.42620E-04_JPRB /)  
+KA(:, 4, 8, 5) = (/ &
+ & 0.73787E-03_JPRB,0.79331E-03_JPRB,0.76108E-03_JPRB,0.70193E-03_JPRB,0.62821E-03_JPRB, &
+ & 0.54092E-03_JPRB,0.43381E-03_JPRB,0.29821E-03_JPRB,0.47013E-04_JPRB /)  
+KA(:, 5, 8, 5) = (/ &
+ & 0.73365E-03_JPRB,0.79895E-03_JPRB,0.77125E-03_JPRB,0.71463E-03_JPRB,0.64295E-03_JPRB, &
+ & 0.55753E-03_JPRB,0.45033E-03_JPRB,0.31091E-03_JPRB,0.51519E-04_JPRB /)  
+KA(:, 1, 9, 5) = (/ &
+ & 0.62112E-03_JPRB,0.63900E-03_JPRB,0.60071E-03_JPRB,0.54641E-03_JPRB,0.48585E-03_JPRB, &
+ & 0.41219E-03_JPRB,0.31988E-03_JPRB,0.22088E-03_JPRB,0.39225E-04_JPRB /)  
+KA(:, 2, 9, 5) = (/ &
+ & 0.63089E-03_JPRB,0.65678E-03_JPRB,0.62144E-03_JPRB,0.56855E-03_JPRB,0.50663E-03_JPRB, &
+ & 0.43158E-03_JPRB,0.33912E-03_JPRB,0.23261E-03_JPRB,0.43145E-04_JPRB /)  
+KA(:, 3, 9, 5) = (/ &
+ & 0.63630E-03_JPRB,0.67023E-03_JPRB,0.63841E-03_JPRB,0.58635E-03_JPRB,0.52398E-03_JPRB, &
+ & 0.44876E-03_JPRB,0.35619E-03_JPRB,0.24341E-03_JPRB,0.47182E-04_JPRB /)  
+KA(:, 4, 9, 5) = (/ &
+ & 0.63678E-03_JPRB,0.68001E-03_JPRB,0.65143E-03_JPRB,0.60045E-03_JPRB,0.53807E-03_JPRB, &
+ & 0.46446E-03_JPRB,0.37160E-03_JPRB,0.25517E-03_JPRB,0.51310E-04_JPRB /)  
+KA(:, 5, 9, 5) = (/ &
+ & 0.63384E-03_JPRB,0.68558E-03_JPRB,0.66049E-03_JPRB,0.61133E-03_JPRB,0.55067E-03_JPRB, &
+ & 0.47828E-03_JPRB,0.38622E-03_JPRB,0.26607E-03_JPRB,0.55652E-04_JPRB /)  
+KA(:, 1,10, 5) = (/ &
+ & 0.52818E-03_JPRB,0.54302E-03_JPRB,0.51109E-03_JPRB,0.46524E-03_JPRB,0.41303E-03_JPRB, &
+ & 0.35089E-03_JPRB,0.27050E-03_JPRB,0.18719E-03_JPRB,0.51897E-04_JPRB /)  
+KA(:, 2,10, 5) = (/ &
+ & 0.53874E-03_JPRB,0.56000E-03_JPRB,0.52974E-03_JPRB,0.48429E-03_JPRB,0.43151E-03_JPRB, &
+ & 0.36826E-03_JPRB,0.28749E-03_JPRB,0.19624E-03_JPRB,0.57480E-04_JPRB /)  
+KA(:, 3,10, 5) = (/ &
+ & 0.54407E-03_JPRB,0.57298E-03_JPRB,0.54499E-03_JPRB,0.50007E-03_JPRB,0.44685E-03_JPRB, &
+ & 0.38282E-03_JPRB,0.30218E-03_JPRB,0.20623E-03_JPRB,0.63250E-04_JPRB /)  
+KA(:, 4,10, 5) = (/ &
+ & 0.54510E-03_JPRB,0.58221E-03_JPRB,0.55605E-03_JPRB,0.51259E-03_JPRB,0.45923E-03_JPRB, &
+ & 0.39550E-03_JPRB,0.31547E-03_JPRB,0.21632E-03_JPRB,0.68339E-04_JPRB /)  
+KA(:, 5,10, 5) = (/ &
+ & 0.54335E-03_JPRB,0.58744E-03_JPRB,0.56412E-03_JPRB,0.52185E-03_JPRB,0.47008E-03_JPRB, &
+ & 0.40728E-03_JPRB,0.32798E-03_JPRB,0.22618E-03_JPRB,0.72964E-04_JPRB /)  
+KA(:, 1,11, 5) = (/ &
+ & 0.44901E-03_JPRB,0.46427E-03_JPRB,0.43915E-03_JPRB,0.40187E-03_JPRB,0.35719E-03_JPRB, &
+ & 0.30380E-03_JPRB,0.23427E-03_JPRB,0.15956E-03_JPRB,0.52228E-04_JPRB /)  
+KA(:, 2,11, 5) = (/ &
+ & 0.45685E-03_JPRB,0.47845E-03_JPRB,0.45475E-03_JPRB,0.41772E-03_JPRB,0.37275E-03_JPRB, &
+ & 0.31798E-03_JPRB,0.24772E-03_JPRB,0.16817E-03_JPRB,0.56979E-04_JPRB /)  
+KA(:, 3,11, 5) = (/ &
+ & 0.46005E-03_JPRB,0.48879E-03_JPRB,0.46665E-03_JPRB,0.43038E-03_JPRB,0.38526E-03_JPRB, &
+ & 0.32982E-03_JPRB,0.25983E-03_JPRB,0.17707E-03_JPRB,0.61788E-04_JPRB /)  
+KA(:, 4,11, 5) = (/ &
+ & 0.46029E-03_JPRB,0.49540E-03_JPRB,0.47547E-03_JPRB,0.44015E-03_JPRB,0.39539E-03_JPRB, &
+ & 0.34025E-03_JPRB,0.27087E-03_JPRB,0.18596E-03_JPRB,0.66537E-04_JPRB /)  
+KA(:, 5,11, 5) = (/ &
+ & 0.45760E-03_JPRB,0.49879E-03_JPRB,0.48175E-03_JPRB,0.44812E-03_JPRB,0.40429E-03_JPRB, &
+ & 0.34971E-03_JPRB,0.28105E-03_JPRB,0.19422E-03_JPRB,0.70982E-04_JPRB /)  
+KA(:, 1,12, 5) = (/ &
+ & 0.37789E-03_JPRB,0.39359E-03_JPRB,0.37439E-03_JPRB,0.34335E-03_JPRB,0.30516E-03_JPRB, &
+ & 0.25987E-03_JPRB,0.20136E-03_JPRB,0.13616E-03_JPRB,0.47471E-04_JPRB /)  
+KA(:, 2,12, 5) = (/ &
+ & 0.38345E-03_JPRB,0.40460E-03_JPRB,0.38678E-03_JPRB,0.35616E-03_JPRB,0.31793E-03_JPRB, &
+ & 0.27155E-03_JPRB,0.21219E-03_JPRB,0.14366E-03_JPRB,0.51576E-04_JPRB /)  
+KA(:, 3,12, 5) = (/ &
+ & 0.38556E-03_JPRB,0.41241E-03_JPRB,0.39583E-03_JPRB,0.36622E-03_JPRB,0.32808E-03_JPRB, &
+ & 0.28132E-03_JPRB,0.22259E-03_JPRB,0.15133E-03_JPRB,0.55529E-04_JPRB /)  
+KA(:, 4,12, 5) = (/ &
+ & 0.38464E-03_JPRB,0.41687E-03_JPRB,0.40247E-03_JPRB,0.37394E-03_JPRB,0.33650E-03_JPRB, &
+ & 0.28994E-03_JPRB,0.23157E-03_JPRB,0.15870E-03_JPRB,0.59557E-04_JPRB /)  
+KA(:, 5,12, 5) = (/ &
+ & 0.38119E-03_JPRB,0.41880E-03_JPRB,0.40725E-03_JPRB,0.38009E-03_JPRB,0.34354E-03_JPRB, &
+ & 0.29781E-03_JPRB,0.23974E-03_JPRB,0.16572E-03_JPRB,0.63195E-04_JPRB /)  
+KA(:, 1,13, 5) = (/ &
+ & 0.31518E-03_JPRB,0.33080E-03_JPRB,0.31644E-03_JPRB,0.29051E-03_JPRB,0.25824E-03_JPRB, &
+ & 0.21997E-03_JPRB,0.17074E-03_JPRB,0.11585E-03_JPRB,0.39419E-04_JPRB /)  
+KA(:, 2,13, 5) = (/ &
+ & 0.31945E-03_JPRB,0.33947E-03_JPRB,0.32620E-03_JPRB,0.30064E-03_JPRB,0.26839E-03_JPRB, &
+ & 0.22968E-03_JPRB,0.17999E-03_JPRB,0.12241E-03_JPRB,0.42717E-04_JPRB /)  
+KA(:, 3,13, 5) = (/ &
+ & 0.32042E-03_JPRB,0.34518E-03_JPRB,0.33311E-03_JPRB,0.30844E-03_JPRB,0.27653E-03_JPRB, &
+ & 0.23733E-03_JPRB,0.18840E-03_JPRB,0.12892E-03_JPRB,0.45799E-04_JPRB /)  
+KA(:, 4,13, 5) = (/ &
+ & 0.31877E-03_JPRB,0.34829E-03_JPRB,0.33813E-03_JPRB,0.31466E-03_JPRB,0.28316E-03_JPRB, &
+ & 0.24429E-03_JPRB,0.19577E-03_JPRB,0.13500E-03_JPRB,0.49095E-04_JPRB /)  
+KA(:, 5,13, 5) = (/ &
+ & 0.31533E-03_JPRB,0.34943E-03_JPRB,0.34164E-03_JPRB,0.31953E-03_JPRB,0.28883E-03_JPRB, &
+ & 0.25064E-03_JPRB,0.20247E-03_JPRB,0.14079E-03_JPRB,0.52225E-04_JPRB /)  
+KA(:, 1, 1, 6) = (/ &
+ & 0.30073E-02_JPRB,0.30215E-02_JPRB,0.28549E-02_JPRB,0.26145E-02_JPRB,0.23223E-02_JPRB, &
+ & 0.19698E-02_JPRB,0.15631E-02_JPRB,0.10671E-02_JPRB,0.34349E-03_JPRB /)  
+KA(:, 2, 1, 6) = (/ &
+ & 0.30045E-02_JPRB,0.30464E-02_JPRB,0.29000E-02_JPRB,0.26682E-02_JPRB,0.23795E-02_JPRB, &
+ & 0.20320E-02_JPRB,0.16241E-02_JPRB,0.11180E-02_JPRB,0.37241E-03_JPRB /)  
+KA(:, 3, 1, 6) = (/ &
+ & 0.29924E-02_JPRB,0.30694E-02_JPRB,0.29376E-02_JPRB,0.27170E-02_JPRB,0.24327E-02_JPRB, &
+ & 0.20955E-02_JPRB,0.16828E-02_JPRB,0.11692E-02_JPRB,0.41183E-03_JPRB /)  
+KA(:, 4, 1, 6) = (/ &
+ & 0.29732E-02_JPRB,0.30875E-02_JPRB,0.29723E-02_JPRB,0.27617E-02_JPRB,0.24862E-02_JPRB, &
+ & 0.21555E-02_JPRB,0.17426E-02_JPRB,0.12186E-02_JPRB,0.45672E-03_JPRB /)  
+KA(:, 5, 1, 6) = (/ &
+ & 0.29511E-02_JPRB,0.31004E-02_JPRB,0.30014E-02_JPRB,0.28043E-02_JPRB,0.25375E-02_JPRB, &
+ & 0.22174E-02_JPRB,0.18018E-02_JPRB,0.12656E-02_JPRB,0.49848E-03_JPRB /)  
+KA(:, 1, 2, 6) = (/ &
+ & 0.28011E-02_JPRB,0.28061E-02_JPRB,0.26513E-02_JPRB,0.24171E-02_JPRB,0.21391E-02_JPRB, &
+ & 0.18145E-02_JPRB,0.14290E-02_JPRB,0.97808E-03_JPRB,0.28283E-03_JPRB /)  
+KA(:, 2, 2, 6) = (/ &
+ & 0.28038E-02_JPRB,0.28333E-02_JPRB,0.26971E-02_JPRB,0.24708E-02_JPRB,0.21906E-02_JPRB, &
+ & 0.18715E-02_JPRB,0.14859E-02_JPRB,0.10236E-02_JPRB,0.31088E-03_JPRB /)  
+KA(:, 3, 2, 6) = (/ &
+ & 0.27978E-02_JPRB,0.28587E-02_JPRB,0.27386E-02_JPRB,0.25159E-02_JPRB,0.22406E-02_JPRB, &
+ & 0.19256E-02_JPRB,0.15398E-02_JPRB,0.10695E-02_JPRB,0.34605E-03_JPRB /)  
+KA(:, 4, 2, 6) = (/ &
+ & 0.27864E-02_JPRB,0.28782E-02_JPRB,0.27737E-02_JPRB,0.25561E-02_JPRB,0.22888E-02_JPRB, &
+ & 0.19778E-02_JPRB,0.15963E-02_JPRB,0.11144E-02_JPRB,0.38043E-03_JPRB /)  
+KA(:, 5, 2, 6) = (/ &
+ & 0.27682E-02_JPRB,0.28941E-02_JPRB,0.28027E-02_JPRB,0.25952E-02_JPRB,0.23337E-02_JPRB, &
+ & 0.20308E-02_JPRB,0.16518E-02_JPRB,0.11583E-02_JPRB,0.41249E-03_JPRB /)  
+KA(:, 1, 3, 6) = (/ &
+ & 0.26013E-02_JPRB,0.25925E-02_JPRB,0.24368E-02_JPRB,0.22059E-02_JPRB,0.19447E-02_JPRB, &
+ & 0.16443E-02_JPRB,0.12895E-02_JPRB,0.88356E-03_JPRB,0.22980E-03_JPRB /)  
+KA(:, 2, 3, 6) = (/ &
+ & 0.26118E-02_JPRB,0.26228E-02_JPRB,0.24826E-02_JPRB,0.22596E-02_JPRB,0.19971E-02_JPRB, &
+ & 0.16971E-02_JPRB,0.13425E-02_JPRB,0.92292E-03_JPRB,0.25666E-03_JPRB /)  
+KA(:, 3, 3, 6) = (/ &
+ & 0.26121E-02_JPRB,0.26511E-02_JPRB,0.25221E-02_JPRB,0.23045E-02_JPRB,0.20442E-02_JPRB, &
+ & 0.17465E-02_JPRB,0.13937E-02_JPRB,0.96423E-03_JPRB,0.28307E-03_JPRB /)  
+KA(:, 4, 3, 6) = (/ &
+ & 0.26050E-02_JPRB,0.26757E-02_JPRB,0.25536E-02_JPRB,0.23446E-02_JPRB,0.20883E-02_JPRB, &
+ & 0.17925E-02_JPRB,0.14453E-02_JPRB,0.10074E-02_JPRB,0.30818E-03_JPRB /)  
+KA(:, 5, 3, 6) = (/ &
+ & 0.25933E-02_JPRB,0.26944E-02_JPRB,0.25823E-02_JPRB,0.23794E-02_JPRB,0.21318E-02_JPRB, &
+ & 0.18378E-02_JPRB,0.14965E-02_JPRB,0.10492E-02_JPRB,0.33812E-03_JPRB /)  
+KA(:, 1, 4, 6) = (/ &
+ & 0.24078E-02_JPRB,0.23894E-02_JPRB,0.22370E-02_JPRB,0.20125E-02_JPRB,0.17599E-02_JPRB, &
+ & 0.14763E-02_JPRB,0.11554E-02_JPRB,0.78494E-03_JPRB,0.18813E-03_JPRB /)  
+KA(:, 2, 4, 6) = (/ &
+ & 0.24225E-02_JPRB,0.24253E-02_JPRB,0.22813E-02_JPRB,0.20638E-02_JPRB,0.18093E-02_JPRB, &
+ & 0.15251E-02_JPRB,0.12031E-02_JPRB,0.82373E-03_JPRB,0.21030E-03_JPRB /)  
+KA(:, 3, 4, 6) = (/ &
+ & 0.24294E-02_JPRB,0.24564E-02_JPRB,0.23198E-02_JPRB,0.21085E-02_JPRB,0.18532E-02_JPRB, &
+ & 0.15708E-02_JPRB,0.12482E-02_JPRB,0.86229E-03_JPRB,0.23129E-03_JPRB /)  
+KA(:, 4, 4, 6) = (/ &
+ & 0.24309E-02_JPRB,0.24808E-02_JPRB,0.23546E-02_JPRB,0.21467E-02_JPRB,0.18923E-02_JPRB, &
+ & 0.16129E-02_JPRB,0.12944E-02_JPRB,0.90119E-03_JPRB,0.25224E-03_JPRB /)  
+KA(:, 5, 4, 6) = (/ &
+ & 0.24223E-02_JPRB,0.24983E-02_JPRB,0.23839E-02_JPRB,0.21783E-02_JPRB,0.19305E-02_JPRB, &
+ & 0.16540E-02_JPRB,0.13401E-02_JPRB,0.94049E-03_JPRB,0.27779E-03_JPRB /)  
+KA(:, 1, 5, 6) = (/ &
+ & 0.22071E-02_JPRB,0.21851E-02_JPRB,0.20436E-02_JPRB,0.18357E-02_JPRB,0.15952E-02_JPRB, &
+ & 0.13304E-02_JPRB,0.10307E-02_JPRB,0.69163E-03_JPRB,0.14983E-03_JPRB /)  
+KA(:, 2, 5, 6) = (/ &
+ & 0.22284E-02_JPRB,0.22243E-02_JPRB,0.20887E-02_JPRB,0.18839E-02_JPRB,0.16450E-02_JPRB, &
+ & 0.13762E-02_JPRB,0.10736E-02_JPRB,0.72602E-03_JPRB,0.16732E-03_JPRB /)  
+KA(:, 3, 5, 6) = (/ &
+ & 0.22426E-02_JPRB,0.22593E-02_JPRB,0.21270E-02_JPRB,0.19281E-02_JPRB,0.16889E-02_JPRB, &
+ & 0.14169E-02_JPRB,0.11148E-02_JPRB,0.76201E-03_JPRB,0.18420E-03_JPRB /)  
+KA(:, 4, 5, 6) = (/ &
+ & 0.22476E-02_JPRB,0.22863E-02_JPRB,0.21609E-02_JPRB,0.19676E-02_JPRB,0.17258E-02_JPRB, &
+ & 0.14525E-02_JPRB,0.11537E-02_JPRB,0.79815E-03_JPRB,0.20325E-03_JPRB /)  
+KA(:, 5, 5, 6) = (/ &
+ & 0.22399E-02_JPRB,0.23048E-02_JPRB,0.21912E-02_JPRB,0.19974E-02_JPRB,0.17586E-02_JPRB, &
+ & 0.14880E-02_JPRB,0.11934E-02_JPRB,0.83564E-03_JPRB,0.22470E-03_JPRB /)  
+KA(:, 1, 6, 6) = (/ &
+ & 0.20075E-02_JPRB,0.19795E-02_JPRB,0.18447E-02_JPRB,0.16541E-02_JPRB,0.14341E-02_JPRB, &
+ & 0.11951E-02_JPRB,0.92238E-03_JPRB,0.60660E-03_JPRB,0.12381E-03_JPRB /)  
+KA(:, 2, 6, 6) = (/ &
+ & 0.20344E-02_JPRB,0.20227E-02_JPRB,0.18912E-02_JPRB,0.17028E-02_JPRB,0.14828E-02_JPRB, &
+ & 0.12404E-02_JPRB,0.96234E-03_JPRB,0.63833E-03_JPRB,0.13822E-03_JPRB /)  
+KA(:, 3, 6, 6) = (/ &
+ & 0.20513E-02_JPRB,0.20598E-02_JPRB,0.19311E-02_JPRB,0.17466E-02_JPRB,0.15267E-02_JPRB, &
+ & 0.12805E-02_JPRB,0.99815E-03_JPRB,0.66987E-03_JPRB,0.15138E-03_JPRB /)  
+KA(:, 4, 6, 6) = (/ &
+ & 0.20576E-02_JPRB,0.20878E-02_JPRB,0.19661E-02_JPRB,0.17857E-02_JPRB,0.15647E-02_JPRB, &
+ & 0.13147E-02_JPRB,0.10319E-02_JPRB,0.70266E-03_JPRB,0.16753E-03_JPRB /)  
+KA(:, 5, 6, 6) = (/ &
+ & 0.20521E-02_JPRB,0.21067E-02_JPRB,0.19938E-02_JPRB,0.18157E-02_JPRB,0.15969E-02_JPRB, &
+ & 0.13475E-02_JPRB,0.10644E-02_JPRB,0.73524E-03_JPRB,0.18430E-03_JPRB /)  
+KA(:, 1, 7, 6) = (/ &
+ & 0.17951E-02_JPRB,0.17708E-02_JPRB,0.16476E-02_JPRB,0.14764E-02_JPRB,0.12769E-02_JPRB, &
+ & 0.10613E-02_JPRB,0.82141E-03_JPRB,0.53387E-03_JPRB,0.10356E-03_JPRB /)  
+KA(:, 2, 7, 6) = (/ &
+ & 0.18257E-02_JPRB,0.18161E-02_JPRB,0.16970E-02_JPRB,0.15264E-02_JPRB,0.13250E-02_JPRB, &
+ & 0.11052E-02_JPRB,0.85771E-03_JPRB,0.56341E-03_JPRB,0.11419E-03_JPRB /)  
+KA(:, 3, 7, 6) = (/ &
+ & 0.18457E-02_JPRB,0.18541E-02_JPRB,0.17382E-02_JPRB,0.15700E-02_JPRB,0.13685E-02_JPRB, &
+ & 0.11444E-02_JPRB,0.89062E-03_JPRB,0.59265E-03_JPRB,0.12737E-03_JPRB /)  
+KA(:, 4, 7, 6) = (/ &
+ & 0.18534E-02_JPRB,0.18833E-02_JPRB,0.17713E-02_JPRB,0.16066E-02_JPRB,0.14063E-02_JPRB, &
+ & 0.11787E-02_JPRB,0.92220E-03_JPRB,0.62067E-03_JPRB,0.14148E-03_JPRB /)  
+KA(:, 5, 7, 6) = (/ &
+ & 0.18508E-02_JPRB,0.19025E-02_JPRB,0.17986E-02_JPRB,0.16377E-02_JPRB,0.14382E-02_JPRB, &
+ & 0.12095E-02_JPRB,0.95313E-03_JPRB,0.64883E-03_JPRB,0.15624E-03_JPRB /)  
+KA(:, 1, 8, 6) = (/ &
+ & 0.15853E-02_JPRB,0.15606E-02_JPRB,0.14491E-02_JPRB,0.13005E-02_JPRB,0.11253E-02_JPRB, &
+ & 0.93388E-03_JPRB,0.72631E-03_JPRB,0.46832E-03_JPRB,0.90402E-04_JPRB /)  
+KA(:, 2, 8, 6) = (/ &
+ & 0.16191E-02_JPRB,0.16074E-02_JPRB,0.14980E-02_JPRB,0.13497E-02_JPRB,0.11730E-02_JPRB, &
+ & 0.97691E-03_JPRB,0.76027E-03_JPRB,0.49835E-03_JPRB,0.10124E-03_JPRB /)  
+KA(:, 3, 8, 6) = (/ &
+ & 0.16393E-02_JPRB,0.16464E-02_JPRB,0.15392E-02_JPRB,0.13927E-02_JPRB,0.12147E-02_JPRB, &
+ & 0.10153E-02_JPRB,0.79129E-03_JPRB,0.52537E-03_JPRB,0.11276E-03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART4',1,ZHOOK_HANDLE)
+END SUBROUTINE PART4
+
+
+SUBROUTINE PART5
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART5',0,ZHOOK_HANDLE)
+
+
+KA(:, 4, 8, 6) = (/ &
+ & 0.16487E-02_JPRB,0.16729E-02_JPRB,0.15721E-02_JPRB,0.14286E-02_JPRB,0.12504E-02_JPRB, &
+ & 0.10480E-02_JPRB,0.82072E-03_JPRB,0.55187E-03_JPRB,0.12515E-03_JPRB /)  
+KA(:, 5, 8, 6) = (/ &
+ & 0.16472E-02_JPRB,0.16924E-02_JPRB,0.15977E-02_JPRB,0.14588E-02_JPRB,0.12817E-02_JPRB, &
+ & 0.10777E-02_JPRB,0.84873E-03_JPRB,0.57800E-03_JPRB,0.13784E-03_JPRB /)  
+KA(:, 1, 9, 6) = (/ &
+ & 0.13936E-02_JPRB,0.13674E-02_JPRB,0.12635E-02_JPRB,0.11331E-02_JPRB,0.97871E-03_JPRB, &
+ & 0.81331E-03_JPRB,0.63480E-03_JPRB,0.40910E-03_JPRB,0.92222E-04_JPRB /)  
+KA(:, 2, 9, 6) = (/ &
+ & 0.14271E-02_JPRB,0.14126E-02_JPRB,0.13114E-02_JPRB,0.11804E-02_JPRB,0.10248E-02_JPRB, &
+ & 0.85405E-03_JPRB,0.66828E-03_JPRB,0.43677E-03_JPRB,0.10207E-03_JPRB /)  
+KA(:, 3, 9, 6) = (/ &
+ & 0.14461E-02_JPRB,0.14478E-02_JPRB,0.13500E-02_JPRB,0.12219E-02_JPRB,0.10647E-02_JPRB, &
+ & 0.89058E-03_JPRB,0.69816E-03_JPRB,0.46305E-03_JPRB,0.11262E-03_JPRB /)  
+KA(:, 4, 9, 6) = (/ &
+ & 0.14547E-02_JPRB,0.14726E-02_JPRB,0.13807E-02_JPRB,0.12557E-02_JPRB,0.10996E-02_JPRB, &
+ & 0.92247E-03_JPRB,0.72520E-03_JPRB,0.48654E-03_JPRB,0.12376E-03_JPRB /)  
+KA(:, 5, 9, 6) = (/ &
+ & 0.14563E-02_JPRB,0.14902E-02_JPRB,0.14046E-02_JPRB,0.12841E-02_JPRB,0.11288E-02_JPRB, &
+ & 0.95105E-03_JPRB,0.75065E-03_JPRB,0.51065E-03_JPRB,0.13556E-03_JPRB /)  
+KA(:, 1,10, 6) = (/ &
+ & 0.12161E-02_JPRB,0.11928E-02_JPRB,0.11004E-02_JPRB,0.98725E-03_JPRB,0.85318E-03_JPRB, &
+ & 0.70775E-03_JPRB,0.55081E-03_JPRB,0.35481E-03_JPRB,0.12422E-03_JPRB /)  
+KA(:, 2,10, 6) = (/ &
+ & 0.12463E-02_JPRB,0.12352E-02_JPRB,0.11444E-02_JPRB,0.10316E-02_JPRB,0.89480E-03_JPRB, &
+ & 0.74560E-03_JPRB,0.58282E-03_JPRB,0.38195E-03_JPRB,0.13273E-03_JPRB /)  
+KA(:, 3,10, 6) = (/ &
+ & 0.12646E-02_JPRB,0.12662E-02_JPRB,0.11796E-02_JPRB,0.10687E-02_JPRB,0.93096E-03_JPRB, &
+ & 0.77883E-03_JPRB,0.61138E-03_JPRB,0.40526E-03_JPRB,0.14193E-03_JPRB /)  
+KA(:, 4,10, 6) = (/ &
+ & 0.12733E-02_JPRB,0.12880E-02_JPRB,0.12074E-02_JPRB,0.10979E-02_JPRB,0.96169E-03_JPRB, &
+ & 0.80809E-03_JPRB,0.63689E-03_JPRB,0.42724E-03_JPRB,0.15291E-03_JPRB /)  
+KA(:, 5,10, 6) = (/ &
+ & 0.12740E-02_JPRB,0.13044E-02_JPRB,0.12293E-02_JPRB,0.11231E-02_JPRB,0.98752E-03_JPRB, &
+ & 0.83380E-03_JPRB,0.66030E-03_JPRB,0.44847E-03_JPRB,0.16460E-03_JPRB /)  
+KA(:, 1,11, 6) = (/ &
+ & 0.10656E-02_JPRB,0.10497E-02_JPRB,0.96881E-03_JPRB,0.87108E-03_JPRB,0.75627E-03_JPRB, &
+ & 0.62893E-03_JPRB,0.48955E-03_JPRB,0.31741E-03_JPRB,0.13016E-03_JPRB /)  
+KA(:, 2,11, 6) = (/ &
+ & 0.10879E-02_JPRB,0.10821E-02_JPRB,0.10046E-02_JPRB,0.90804E-03_JPRB,0.79130E-03_JPRB, &
+ & 0.66235E-03_JPRB,0.51807E-03_JPRB,0.34003E-03_JPRB,0.13779E-03_JPRB /)  
+KA(:, 3,11, 6) = (/ &
+ & 0.11001E-02_JPRB,0.11057E-02_JPRB,0.10327E-02_JPRB,0.93770E-03_JPRB,0.82120E-03_JPRB, &
+ & 0.69087E-03_JPRB,0.54346E-03_JPRB,0.36047E-03_JPRB,0.14411E-03_JPRB /)  
+KA(:, 4,11, 6) = (/ &
+ & 0.11047E-02_JPRB,0.11226E-02_JPRB,0.10548E-02_JPRB,0.96212E-03_JPRB,0.84667E-03_JPRB, &
+ & 0.71575E-03_JPRB,0.56548E-03_JPRB,0.37954E-03_JPRB,0.15311E-03_JPRB /)  
+KA(:, 5,11, 6) = (/ &
+ & 0.11028E-02_JPRB,0.11345E-02_JPRB,0.10715E-02_JPRB,0.98143E-03_JPRB,0.86845E-03_JPRB, &
+ & 0.73791E-03_JPRB,0.58600E-03_JPRB,0.39874E-03_JPRB,0.16257E-03_JPRB /)  
+KA(:, 1,12, 6) = (/ &
+ & 0.92541E-03_JPRB,0.91485E-03_JPRB,0.84575E-03_JPRB,0.76287E-03_JPRB,0.66530E-03_JPRB, &
+ & 0.55435E-03_JPRB,0.43055E-03_JPRB,0.28106E-03_JPRB,0.11779E-03_JPRB /)  
+KA(:, 2,12, 6) = (/ &
+ & 0.94153E-03_JPRB,0.94015E-03_JPRB,0.87425E-03_JPRB,0.79221E-03_JPRB,0.69422E-03_JPRB, &
+ & 0.58249E-03_JPRB,0.45555E-03_JPRB,0.30043E-03_JPRB,0.12541E-03_JPRB /)  
+KA(:, 3,12, 6) = (/ &
+ & 0.95043E-03_JPRB,0.95859E-03_JPRB,0.89645E-03_JPRB,0.81618E-03_JPRB,0.71892E-03_JPRB, &
+ & 0.60660E-03_JPRB,0.47691E-03_JPRB,0.31810E-03_JPRB,0.13086E-03_JPRB /)  
+KA(:, 4,12, 6) = (/ &
+ & 0.95300E-03_JPRB,0.97180E-03_JPRB,0.91414E-03_JPRB,0.83540E-03_JPRB,0.73965E-03_JPRB, &
+ & 0.62755E-03_JPRB,0.49627E-03_JPRB,0.33494E-03_JPRB,0.13792E-03_JPRB /)  
+KA(:, 5,12, 6) = (/ &
+ & 0.94924E-03_JPRB,0.98033E-03_JPRB,0.92629E-03_JPRB,0.85073E-03_JPRB,0.75722E-03_JPRB, &
+ & 0.64562E-03_JPRB,0.51410E-03_JPRB,0.35114E-03_JPRB,0.14650E-03_JPRB /)  
+KA(:, 1,13, 6) = (/ &
+ & 0.79344E-03_JPRB,0.78971E-03_JPRB,0.73267E-03_JPRB,0.66405E-03_JPRB,0.58083E-03_JPRB, &
+ & 0.48392E-03_JPRB,0.37549E-03_JPRB,0.24569E-03_JPRB,0.97034E-04_JPRB /)  
+KA(:, 2,13, 6) = (/ &
+ & 0.80574E-03_JPRB,0.81004E-03_JPRB,0.75547E-03_JPRB,0.68809E-03_JPRB,0.60484E-03_JPRB, &
+ & 0.50707E-03_JPRB,0.39618E-03_JPRB,0.26227E-03_JPRB,0.10267E-03_JPRB /)  
+KA(:, 3,13, 6) = (/ &
+ & 0.81227E-03_JPRB,0.82486E-03_JPRB,0.77408E-03_JPRB,0.70758E-03_JPRB,0.62511E-03_JPRB, &
+ & 0.52731E-03_JPRB,0.41439E-03_JPRB,0.27759E-03_JPRB,0.10742E-03_JPRB /)  
+KA(:, 4,13, 6) = (/ &
+ & 0.81298E-03_JPRB,0.83538E-03_JPRB,0.78743E-03_JPRB,0.72262E-03_JPRB,0.64193E-03_JPRB, &
+ & 0.54449E-03_JPRB,0.43080E-03_JPRB,0.29211E-03_JPRB,0.11325E-03_JPRB /)  
+KA(:, 5,13, 6) = (/ &
+ & 0.80893E-03_JPRB,0.84184E-03_JPRB,0.79706E-03_JPRB,0.73516E-03_JPRB,0.65638E-03_JPRB, &
+ & 0.55984E-03_JPRB,0.44607E-03_JPRB,0.30621E-03_JPRB,0.12059E-03_JPRB /)  
+KA(:, 1, 1, 7) = (/ &
+ & 0.54732E-02_JPRB,0.53034E-02_JPRB,0.49969E-02_JPRB,0.45431E-02_JPRB,0.40134E-02_JPRB, &
+ & 0.34010E-02_JPRB,0.26972E-02_JPRB,0.18637E-02_JPRB,0.96692E-03_JPRB /)  
+KA(:, 2, 1, 7) = (/ &
+ & 0.54607E-02_JPRB,0.53367E-02_JPRB,0.50546E-02_JPRB,0.46321E-02_JPRB,0.41099E-02_JPRB, &
+ & 0.34970E-02_JPRB,0.27999E-02_JPRB,0.19729E-02_JPRB,0.11063E-02_JPRB /)  
+KA(:, 3, 1, 7) = (/ &
+ & 0.54405E-02_JPRB,0.53637E-02_JPRB,0.51145E-02_JPRB,0.47117E-02_JPRB,0.41981E-02_JPRB, &
+ & 0.35927E-02_JPRB,0.29070E-02_JPRB,0.20850E-02_JPRB,0.12360E-02_JPRB /)  
+KA(:, 4, 1, 7) = (/ &
+ & 0.54052E-02_JPRB,0.53858E-02_JPRB,0.51679E-02_JPRB,0.47829E-02_JPRB,0.42844E-02_JPRB, &
+ & 0.36942E-02_JPRB,0.30161E-02_JPRB,0.22030E-02_JPRB,0.13785E-02_JPRB /)  
+KA(:, 5, 1, 7) = (/ &
+ & 0.53549E-02_JPRB,0.54029E-02_JPRB,0.52131E-02_JPRB,0.48529E-02_JPRB,0.43733E-02_JPRB, &
+ & 0.37946E-02_JPRB,0.31262E-02_JPRB,0.23268E-02_JPRB,0.15336E-02_JPRB /)  
+KA(:, 1, 2, 7) = (/ &
+ & 0.52482E-02_JPRB,0.50940E-02_JPRB,0.47786E-02_JPRB,0.43454E-02_JPRB,0.38186E-02_JPRB, &
+ & 0.32129E-02_JPRB,0.25325E-02_JPRB,0.17227E-02_JPRB,0.80430E-03_JPRB /)  
+KA(:, 2, 2, 7) = (/ &
+ & 0.52403E-02_JPRB,0.51313E-02_JPRB,0.48370E-02_JPRB,0.44315E-02_JPRB,0.39109E-02_JPRB, &
+ & 0.33052E-02_JPRB,0.26254E-02_JPRB,0.18226E-02_JPRB,0.90614E-03_JPRB /)  
+KA(:, 3, 2, 7) = (/ &
+ & 0.52188E-02_JPRB,0.51614E-02_JPRB,0.48948E-02_JPRB,0.45073E-02_JPRB,0.39963E-02_JPRB, &
+ & 0.33961E-02_JPRB,0.27198E-02_JPRB,0.19222E-02_JPRB,0.10146E-02_JPRB /)  
+KA(:, 4, 2, 7) = (/ &
+ & 0.51826E-02_JPRB,0.51837E-02_JPRB,0.49460E-02_JPRB,0.45770E-02_JPRB,0.40791E-02_JPRB, &
+ & 0.34891E-02_JPRB,0.28146E-02_JPRB,0.20278E-02_JPRB,0.11325E-02_JPRB /)  
+KA(:, 5, 2, 7) = (/ &
+ & 0.51359E-02_JPRB,0.51960E-02_JPRB,0.49902E-02_JPRB,0.46430E-02_JPRB,0.41602E-02_JPRB, &
+ & 0.35811E-02_JPRB,0.29127E-02_JPRB,0.21431E-02_JPRB,0.12633E-02_JPRB /)  
+KA(:, 1, 3, 7) = (/ &
+ & 0.49876E-02_JPRB,0.48388E-02_JPRB,0.45133E-02_JPRB,0.40992E-02_JPRB,0.35901E-02_JPRB, &
+ & 0.30030E-02_JPRB,0.23527E-02_JPRB,0.15765E-02_JPRB,0.64714E-03_JPRB /)  
+KA(:, 2, 3, 7) = (/ &
+ & 0.49850E-02_JPRB,0.48808E-02_JPRB,0.45736E-02_JPRB,0.41821E-02_JPRB,0.36790E-02_JPRB, &
+ & 0.30941E-02_JPRB,0.24388E-02_JPRB,0.16655E-02_JPRB,0.72927E-03_JPRB /)  
+KA(:, 3, 3, 7) = (/ &
+ & 0.49660E-02_JPRB,0.49117E-02_JPRB,0.46346E-02_JPRB,0.42593E-02_JPRB,0.37631E-02_JPRB, &
+ & 0.31820E-02_JPRB,0.25243E-02_JPRB,0.17543E-02_JPRB,0.81771E-03_JPRB /)  
+KA(:, 4, 3, 7) = (/ &
+ & 0.49361E-02_JPRB,0.49307E-02_JPRB,0.46909E-02_JPRB,0.43285E-02_JPRB,0.38459E-02_JPRB, &
+ & 0.32679E-02_JPRB,0.26083E-02_JPRB,0.18450E-02_JPRB,0.91578E-03_JPRB /)  
+KA(:, 5, 3, 7) = (/ &
+ & 0.48943E-02_JPRB,0.49413E-02_JPRB,0.47366E-02_JPRB,0.43959E-02_JPRB,0.39239E-02_JPRB, &
+ & 0.33496E-02_JPRB,0.26941E-02_JPRB,0.19416E-02_JPRB,0.10197E-02_JPRB /)  
+KA(:, 1, 4, 7) = (/ &
+ & 0.46848E-02_JPRB,0.45423E-02_JPRB,0.42109E-02_JPRB,0.38147E-02_JPRB,0.33318E-02_JPRB, &
+ & 0.27806E-02_JPRB,0.21628E-02_JPRB,0.14435E-02_JPRB,0.52019E-03_JPRB /)  
+KA(:, 2, 4, 7) = (/ &
+ & 0.46885E-02_JPRB,0.45846E-02_JPRB,0.42767E-02_JPRB,0.38967E-02_JPRB,0.34228E-02_JPRB, &
+ & 0.28698E-02_JPRB,0.22469E-02_JPRB,0.15180E-02_JPRB,0.58537E-03_JPRB /)  
+KA(:, 3, 4, 7) = (/ &
+ & 0.46784E-02_JPRB,0.46158E-02_JPRB,0.43389E-02_JPRB,0.39718E-02_JPRB,0.35088E-02_JPRB, &
+ & 0.29561E-02_JPRB,0.23285E-02_JPRB,0.15932E-02_JPRB,0.65783E-03_JPRB /)  
+KA(:, 4, 4, 7) = (/ &
+ & 0.46546E-02_JPRB,0.46379E-02_JPRB,0.43907E-02_JPRB,0.40421E-02_JPRB,0.35928E-02_JPRB, &
+ & 0.30394E-02_JPRB,0.24053E-02_JPRB,0.16703E-02_JPRB,0.73788E-03_JPRB /)  
+KA(:, 5, 4, 7) = (/ &
+ & 0.46218E-02_JPRB,0.46560E-02_JPRB,0.44359E-02_JPRB,0.41109E-02_JPRB,0.36691E-02_JPRB, &
+ & 0.31156E-02_JPRB,0.24821E-02_JPRB,0.17515E-02_JPRB,0.82261E-03_JPRB /)  
+KA(:, 1, 5, 7) = (/ &
+ & 0.43680E-02_JPRB,0.42271E-02_JPRB,0.38928E-02_JPRB,0.35080E-02_JPRB,0.30576E-02_JPRB, &
+ & 0.25405E-02_JPRB,0.19725E-02_JPRB,0.13117E-02_JPRB,0.42455E-03_JPRB /)  
+KA(:, 2, 5, 7) = (/ &
+ & 0.43836E-02_JPRB,0.42742E-02_JPRB,0.39603E-02_JPRB,0.35901E-02_JPRB,0.31440E-02_JPRB, &
+ & 0.26294E-02_JPRB,0.20540E-02_JPRB,0.13812E-02_JPRB,0.47676E-03_JPRB /)  
+KA(:, 3, 5, 7) = (/ &
+ & 0.43831E-02_JPRB,0.43074E-02_JPRB,0.40201E-02_JPRB,0.36636E-02_JPRB,0.32261E-02_JPRB, &
+ & 0.27164E-02_JPRB,0.21330E-02_JPRB,0.14464E-02_JPRB,0.53568E-03_JPRB /)  
+KA(:, 4, 5, 7) = (/ &
+ & 0.43690E-02_JPRB,0.43343E-02_JPRB,0.40742E-02_JPRB,0.37289E-02_JPRB,0.33089E-02_JPRB, &
+ & 0.28017E-02_JPRB,0.22054E-02_JPRB,0.15130E-02_JPRB,0.59880E-03_JPRB /)  
+KA(:, 5, 5, 7) = (/ &
+ & 0.43473E-02_JPRB,0.43575E-02_JPRB,0.41195E-02_JPRB,0.37951E-02_JPRB,0.33885E-02_JPRB, &
+ & 0.28774E-02_JPRB,0.22767E-02_JPRB,0.15816E-02_JPRB,0.66710E-03_JPRB /)  
+KA(:, 1, 6, 7) = (/ &
+ & 0.40714E-02_JPRB,0.39122E-02_JPRB,0.35777E-02_JPRB,0.32091E-02_JPRB,0.27872E-02_JPRB, &
+ & 0.22994E-02_JPRB,0.17735E-02_JPRB,0.11790E-02_JPRB,0.33561E-03_JPRB /)  
+KA(:, 2, 6, 7) = (/ &
+ & 0.40973E-02_JPRB,0.39625E-02_JPRB,0.36472E-02_JPRB,0.32877E-02_JPRB,0.28694E-02_JPRB, &
+ & 0.23826E-02_JPRB,0.18515E-02_JPRB,0.12426E-02_JPRB,0.37756E-03_JPRB /)  
+KA(:, 3, 6, 7) = (/ &
+ & 0.41108E-02_JPRB,0.40033E-02_JPRB,0.37116E-02_JPRB,0.33595E-02_JPRB,0.29464E-02_JPRB, &
+ & 0.24646E-02_JPRB,0.19290E-02_JPRB,0.13037E-02_JPRB,0.42584E-03_JPRB /)  
+KA(:, 4, 6, 7) = (/ &
+ & 0.41078E-02_JPRB,0.40382E-02_JPRB,0.37677E-02_JPRB,0.34232E-02_JPRB,0.30216E-02_JPRB, &
+ & 0.25463E-02_JPRB,0.20016E-02_JPRB,0.13624E-02_JPRB,0.47733E-03_JPRB /)  
+KA(:, 5, 6, 7) = (/ &
+ & 0.40964E-02_JPRB,0.40666E-02_JPRB,0.38151E-02_JPRB,0.34890E-02_JPRB,0.30973E-02_JPRB, &
+ & 0.26200E-02_JPRB,0.20705E-02_JPRB,0.14239E-02_JPRB,0.53330E-03_JPRB /)  
+KA(:, 1, 7, 7) = (/ &
+ & 0.37806E-02_JPRB,0.36256E-02_JPRB,0.32982E-02_JPRB,0.29389E-02_JPRB,0.25345E-02_JPRB, &
+ & 0.20760E-02_JPRB,0.15879E-02_JPRB,0.10489E-02_JPRB,0.28018E-03_JPRB /)  
+KA(:, 2, 7, 7) = (/ &
+ & 0.38204E-02_JPRB,0.36872E-02_JPRB,0.33713E-02_JPRB,0.30154E-02_JPRB,0.26103E-02_JPRB, &
+ & 0.21557E-02_JPRB,0.16619E-02_JPRB,0.11071E-02_JPRB,0.31519E-03_JPRB /)  
+KA(:, 3, 7, 7) = (/ &
+ & 0.38460E-02_JPRB,0.37374E-02_JPRB,0.34369E-02_JPRB,0.30817E-02_JPRB,0.26834E-02_JPRB, &
+ & 0.22319E-02_JPRB,0.17344E-02_JPRB,0.11636E-02_JPRB,0.35270E-03_JPRB /)  
+KA(:, 4, 7, 7) = (/ &
+ & 0.38578E-02_JPRB,0.37771E-02_JPRB,0.34946E-02_JPRB,0.31444E-02_JPRB,0.27541E-02_JPRB, &
+ & 0.23067E-02_JPRB,0.18034E-02_JPRB,0.12192E-02_JPRB,0.39298E-03_JPRB /)  
+KA(:, 5, 7, 7) = (/ &
+ & 0.38608E-02_JPRB,0.38134E-02_JPRB,0.35421E-02_JPRB,0.32035E-02_JPRB,0.28239E-02_JPRB, &
+ & 0.23777E-02_JPRB,0.18670E-02_JPRB,0.12748E-02_JPRB,0.43632E-03_JPRB /)  
+KA(:, 1, 8, 7) = (/ &
+ & 0.34769E-02_JPRB,0.33291E-02_JPRB,0.30196E-02_JPRB,0.26781E-02_JPRB,0.23024E-02_JPRB, &
+ & 0.18824E-02_JPRB,0.14244E-02_JPRB,0.92897E-03_JPRB,0.24101E-03_JPRB /)  
+KA(:, 2, 8, 7) = (/ &
+ & 0.35239E-02_JPRB,0.33972E-02_JPRB,0.30964E-02_JPRB,0.27587E-02_JPRB,0.23816E-02_JPRB, &
+ & 0.19578E-02_JPRB,0.14914E-02_JPRB,0.98181E-03_JPRB,0.27130E-03_JPRB /)  
+KA(:, 3, 8, 7) = (/ &
+ & 0.35607E-02_JPRB,0.34526E-02_JPRB,0.31656E-02_JPRB,0.28309E-02_JPRB,0.24544E-02_JPRB, &
+ & 0.20284E-02_JPRB,0.15562E-02_JPRB,0.10333E-02_JPRB,0.30255E-03_JPRB /)  
+KA(:, 4, 8, 7) = (/ &
+ & 0.35844E-02_JPRB,0.35023E-02_JPRB,0.32271E-02_JPRB,0.28968E-02_JPRB,0.25226E-02_JPRB, &
+ & 0.20957E-02_JPRB,0.16188E-02_JPRB,0.10830E-02_JPRB,0.33737E-03_JPRB /)  
+KA(:, 5, 8, 7) = (/ &
+ & 0.35961E-02_JPRB,0.35446E-02_JPRB,0.32825E-02_JPRB,0.29568E-02_JPRB,0.25866E-02_JPRB, &
+ & 0.21594E-02_JPRB,0.16782E-02_JPRB,0.11324E-02_JPRB,0.37448E-03_JPRB /)  
+KA(:, 1, 9, 7) = (/ &
+ & 0.31490E-02_JPRB,0.30162E-02_JPRB,0.27350E-02_JPRB,0.24183E-02_JPRB,0.20753E-02_JPRB, &
+ & 0.16954E-02_JPRB,0.12750E-02_JPRB,0.82561E-03_JPRB,0.24776E-03_JPRB /)  
+KA(:, 2, 9, 7) = (/ &
+ & 0.32098E-02_JPRB,0.30913E-02_JPRB,0.28147E-02_JPRB,0.25006E-02_JPRB,0.21544E-02_JPRB, &
+ & 0.17699E-02_JPRB,0.13387E-02_JPRB,0.87243E-03_JPRB,0.27735E-03_JPRB /)  
+KA(:, 3, 9, 7) = (/ &
+ & 0.32582E-02_JPRB,0.31563E-02_JPRB,0.28883E-02_JPRB,0.25742E-02_JPRB,0.22278E-02_JPRB, &
+ & 0.18394E-02_JPRB,0.14003E-02_JPRB,0.91830E-03_JPRB,0.30712E-03_JPRB /)  
+KA(:, 4, 9, 7) = (/ &
+ & 0.32928E-02_JPRB,0.32146E-02_JPRB,0.29543E-02_JPRB,0.26421E-02_JPRB,0.22954E-02_JPRB, &
+ & 0.19038E-02_JPRB,0.14592E-02_JPRB,0.96296E-03_JPRB,0.33982E-03_JPRB /)  
+KA(:, 5, 9, 7) = (/ &
+ & 0.33113E-02_JPRB,0.32637E-02_JPRB,0.30129E-02_JPRB,0.27034E-02_JPRB,0.23582E-02_JPRB, &
+ & 0.19652E-02_JPRB,0.15140E-02_JPRB,0.10071E-02_JPRB,0.37422E-03_JPRB /)  
+KA(:, 1,10, 7) = (/ &
+ & 0.28236E-02_JPRB,0.26993E-02_JPRB,0.24463E-02_JPRB,0.21584E-02_JPRB,0.18515E-02_JPRB, &
+ & 0.15144E-02_JPRB,0.11396E-02_JPRB,0.73456E-03_JPRB,0.30599E-03_JPRB /)  
+KA(:, 2,10, 7) = (/ &
+ & 0.28929E-02_JPRB,0.27796E-02_JPRB,0.25302E-02_JPRB,0.22416E-02_JPRB,0.19311E-02_JPRB, &
+ & 0.15864E-02_JPRB,0.12002E-02_JPRB,0.77955E-03_JPRB,0.32947E-03_JPRB /)  
+KA(:, 3,10, 7) = (/ &
+ & 0.29497E-02_JPRB,0.28523E-02_JPRB,0.26078E-02_JPRB,0.23174E-02_JPRB,0.20043E-02_JPRB, &
+ & 0.16542E-02_JPRB,0.12577E-02_JPRB,0.82291E-03_JPRB,0.35529E-03_JPRB /)  
+KA(:, 4,10, 7) = (/ &
+ & 0.29901E-02_JPRB,0.29165E-02_JPRB,0.26763E-02_JPRB,0.23877E-02_JPRB,0.20731E-02_JPRB, &
+ & 0.17177E-02_JPRB,0.13124E-02_JPRB,0.86431E-03_JPRB,0.38167E-03_JPRB /)  
+KA(:, 5,10, 7) = (/ &
+ & 0.30139E-02_JPRB,0.29672E-02_JPRB,0.27348E-02_JPRB,0.24509E-02_JPRB,0.21349E-02_JPRB, &
+ & 0.17760E-02_JPRB,0.13646E-02_JPRB,0.90496E-03_JPRB,0.40993E-03_JPRB /)  
+KA(:, 1,11, 7) = (/ &
+ & 0.25422E-02_JPRB,0.24347E-02_JPRB,0.22108E-02_JPRB,0.19505E-02_JPRB,0.16727E-02_JPRB, &
+ & 0.13714E-02_JPRB,0.10368E-02_JPRB,0.66936E-03_JPRB,0.31350E-03_JPRB /)  
+KA(:, 2,11, 7) = (/ &
+ & 0.26126E-02_JPRB,0.25184E-02_JPRB,0.22944E-02_JPRB,0.20307E-02_JPRB,0.17483E-02_JPRB, &
+ & 0.14377E-02_JPRB,0.10928E-02_JPRB,0.71181E-03_JPRB,0.33782E-03_JPRB /)  
+KA(:, 3,11, 7) = (/ &
+ & 0.26690E-02_JPRB,0.25901E-02_JPRB,0.23690E-02_JPRB,0.21043E-02_JPRB,0.18188E-02_JPRB, &
+ & 0.15016E-02_JPRB,0.11462E-02_JPRB,0.75188E-03_JPRB,0.35774E-03_JPRB /)  
+KA(:, 4,11, 7) = (/ &
+ & 0.27048E-02_JPRB,0.26504E-02_JPRB,0.24329E-02_JPRB,0.21704E-02_JPRB,0.18832E-02_JPRB, &
+ & 0.15599E-02_JPRB,0.11973E-02_JPRB,0.79054E-03_JPRB,0.37720E-03_JPRB /)  
+KA(:, 5,11, 7) = (/ &
+ & 0.27241E-02_JPRB,0.26964E-02_JPRB,0.24876E-02_JPRB,0.22289E-02_JPRB,0.19396E-02_JPRB, &
+ & 0.16131E-02_JPRB,0.12459E-02_JPRB,0.82843E-03_JPRB,0.39980E-03_JPRB /)  
+KA(:, 1,12, 7) = (/ &
+ & 0.22863E-02_JPRB,0.21916E-02_JPRB,0.19903E-02_JPRB,0.17560E-02_JPRB,0.15053E-02_JPRB, &
+ & 0.12361E-02_JPRB,0.93929E-03_JPRB,0.60469E-03_JPRB,0.28176E-03_JPRB /)  
+KA(:, 2,12, 7) = (/ &
+ & 0.23519E-02_JPRB,0.22705E-02_JPRB,0.20691E-02_JPRB,0.18315E-02_JPRB,0.15760E-02_JPRB, &
+ & 0.12985E-02_JPRB,0.99139E-03_JPRB,0.64462E-03_JPRB,0.30471E-03_JPRB /)  
+KA(:, 3,12, 7) = (/ &
+ & 0.23974E-02_JPRB,0.23352E-02_JPRB,0.21377E-02_JPRB,0.19000E-02_JPRB,0.16408E-02_JPRB, &
+ & 0.13574E-02_JPRB,0.10412E-02_JPRB,0.68214E-03_JPRB,0.32553E-03_JPRB /)  
+KA(:, 4,12, 7) = (/ &
+ & 0.24260E-02_JPRB,0.23879E-02_JPRB,0.21943E-02_JPRB,0.19602E-02_JPRB,0.16992E-02_JPRB, &
+ & 0.14109E-02_JPRB,0.10885E-02_JPRB,0.71852E-03_JPRB,0.34169E-03_JPRB /)  
+KA(:, 5,12, 7) = (/ &
+ & 0.24412E-02_JPRB,0.24274E-02_JPRB,0.22422E-02_JPRB,0.20116E-02_JPRB,0.17502E-02_JPRB, &
+ & 0.14591E-02_JPRB,0.11336E-02_JPRB,0.75474E-03_JPRB,0.36020E-03_JPRB /)  
+KA(:, 1,13, 7) = (/ &
+ & 0.20393E-02_JPRB,0.19603E-02_JPRB,0.17821E-02_JPRB,0.15739E-02_JPRB,0.13509E-02_JPRB, &
+ & 0.11133E-02_JPRB,0.84826E-03_JPRB,0.54289E-03_JPRB,0.23248E-03_JPRB /)  
+KA(:, 2,13, 7) = (/ &
+ & 0.20953E-02_JPRB,0.20307E-02_JPRB,0.18542E-02_JPRB,0.16433E-02_JPRB,0.14162E-02_JPRB, &
+ & 0.11712E-02_JPRB,0.89683E-03_JPRB,0.57958E-03_JPRB,0.25095E-03_JPRB /)  
+KA(:, 3,13, 7) = (/ &
+ & 0.21323E-02_JPRB,0.20881E-02_JPRB,0.19144E-02_JPRB,0.17046E-02_JPRB,0.14742E-02_JPRB, &
+ & 0.12241E-02_JPRB,0.94271E-03_JPRB,0.61480E-03_JPRB,0.26566E-03_JPRB /)  
+KA(:, 4,13, 7) = (/ &
+ & 0.21562E-02_JPRB,0.21324E-02_JPRB,0.19654E-02_JPRB,0.17578E-02_JPRB,0.15256E-02_JPRB, &
+ & 0.12715E-02_JPRB,0.98599E-03_JPRB,0.64941E-03_JPRB,0.28144E-03_JPRB /)  
+KA(:, 5,13, 7) = (/ &
+ & 0.21687E-02_JPRB,0.21674E-02_JPRB,0.20081E-02_JPRB,0.18029E-02_JPRB,0.15712E-02_JPRB, &
+ & 0.13148E-02_JPRB,0.10270E-02_JPRB,0.68370E-03_JPRB,0.29755E-03_JPRB /)  
+KA(:, 1, 1, 8) = (/ &
+ & 0.10084E-01_JPRB,0.95278E-02_JPRB,0.88730E-02_JPRB,0.81189E-02_JPRB,0.71873E-02_JPRB, &
+ & 0.61505E-02_JPRB,0.50159E-02_JPRB,0.37383E-02_JPRB,0.30410E-02_JPRB /)  
+KA(:, 2, 1, 8) = (/ &
+ & 0.10011E-01_JPRB,0.95195E-02_JPRB,0.89419E-02_JPRB,0.82272E-02_JPRB,0.73508E-02_JPRB, &
+ & 0.63699E-02_JPRB,0.52392E-02_JPRB,0.39784E-02_JPRB,0.34237E-02_JPRB /)  
+KA(:, 3, 1, 8) = (/ &
+ & 0.99285E-02_JPRB,0.95060E-02_JPRB,0.90107E-02_JPRB,0.83435E-02_JPRB,0.75299E-02_JPRB, &
+ & 0.65814E-02_JPRB,0.54661E-02_JPRB,0.42490E-02_JPRB,0.38569E-02_JPRB /)  
+KA(:, 4, 1, 8) = (/ &
+ & 0.98396E-02_JPRB,0.95039E-02_JPRB,0.90786E-02_JPRB,0.84657E-02_JPRB,0.77142E-02_JPRB, &
+ & 0.67908E-02_JPRB,0.57132E-02_JPRB,0.45510E-02_JPRB,0.43277E-02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART5',1,ZHOOK_HANDLE)
+END SUBROUTINE PART5
+
+
+SUBROUTINE PART6
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART6',0,ZHOOK_HANDLE)
+
+
+KA(:, 5, 1, 8) = (/ &
+ & 0.97470E-02_JPRB,0.95073E-02_JPRB,0.91451E-02_JPRB,0.85961E-02_JPRB,0.78983E-02_JPRB, &
+ & 0.70134E-02_JPRB,0.59878E-02_JPRB,0.48898E-02_JPRB,0.48367E-02_JPRB /)  
+KA(:, 1, 2, 8) = (/ &
+ & 0.10032E-01_JPRB,0.95001E-02_JPRB,0.88015E-02_JPRB,0.80012E-02_JPRB,0.70675E-02_JPRB, &
+ & 0.59994E-02_JPRB,0.48088E-02_JPRB,0.34803E-02_JPRB,0.24973E-02_JPRB /)  
+KA(:, 2, 2, 8) = (/ &
+ & 0.99727E-02_JPRB,0.94952E-02_JPRB,0.88708E-02_JPRB,0.81052E-02_JPRB,0.72227E-02_JPRB, &
+ & 0.61975E-02_JPRB,0.50149E-02_JPRB,0.36876E-02_JPRB,0.28262E-02_JPRB /)  
+KA(:, 3, 2, 8) = (/ &
+ & 0.99020E-02_JPRB,0.94876E-02_JPRB,0.89395E-02_JPRB,0.82200E-02_JPRB,0.73884E-02_JPRB, &
+ & 0.63917E-02_JPRB,0.52241E-02_JPRB,0.39189E-02_JPRB,0.31881E-02_JPRB /)  
+KA(:, 4, 2, 8) = (/ &
+ & 0.98208E-02_JPRB,0.94907E-02_JPRB,0.90072E-02_JPRB,0.83409E-02_JPRB,0.75534E-02_JPRB, &
+ & 0.65848E-02_JPRB,0.54476E-02_JPRB,0.41701E-02_JPRB,0.35802E-02_JPRB /)  
+KA(:, 5, 2, 8) = (/ &
+ & 0.97350E-02_JPRB,0.95036E-02_JPRB,0.90758E-02_JPRB,0.84664E-02_JPRB,0.77179E-02_JPRB, &
+ & 0.67885E-02_JPRB,0.56906E-02_JPRB,0.44399E-02_JPRB,0.40032E-02_JPRB /)  
+KA(:, 1, 3, 8) = (/ &
+ & 0.99249E-02_JPRB,0.94002E-02_JPRB,0.86731E-02_JPRB,0.78226E-02_JPRB,0.68627E-02_JPRB, &
+ & 0.57870E-02_JPRB,0.45641E-02_JPRB,0.32036E-02_JPRB,0.20068E-02_JPRB /)  
+KA(:, 2, 3, 8) = (/ &
+ & 0.98781E-02_JPRB,0.94039E-02_JPRB,0.87415E-02_JPRB,0.79225E-02_JPRB,0.70078E-02_JPRB, &
+ & 0.59682E-02_JPRB,0.47504E-02_JPRB,0.33906E-02_JPRB,0.22741E-02_JPRB /)  
+KA(:, 3, 3, 8) = (/ &
+ & 0.98245E-02_JPRB,0.94056E-02_JPRB,0.88077E-02_JPRB,0.80290E-02_JPRB,0.71634E-02_JPRB, &
+ & 0.61455E-02_JPRB,0.49439E-02_JPRB,0.35923E-02_JPRB,0.25675E-02_JPRB /)  
+KA(:, 4, 3, 8) = (/ &
+ & 0.97585E-02_JPRB,0.94181E-02_JPRB,0.88723E-02_JPRB,0.81452E-02_JPRB,0.73134E-02_JPRB, &
+ & 0.63196E-02_JPRB,0.51498E-02_JPRB,0.38082E-02_JPRB,0.28828E-02_JPRB /)  
+KA(:, 5, 3, 8) = (/ &
+ & 0.96800E-02_JPRB,0.94346E-02_JPRB,0.89400E-02_JPRB,0.82650E-02_JPRB,0.74596E-02_JPRB, &
+ & 0.65093E-02_JPRB,0.53613E-02_JPRB,0.40378E-02_JPRB,0.32210E-02_JPRB /)  
+KA(:, 1, 4, 8) = (/ &
+ & 0.97390E-02_JPRB,0.92223E-02_JPRB,0.84805E-02_JPRB,0.75962E-02_JPRB,0.66183E-02_JPRB, &
+ & 0.55421E-02_JPRB,0.43153E-02_JPRB,0.29439E-02_JPRB,0.16096E-02_JPRB /)  
+KA(:, 2, 4, 8) = (/ &
+ & 0.97149E-02_JPRB,0.92440E-02_JPRB,0.85515E-02_JPRB,0.76965E-02_JPRB,0.67525E-02_JPRB, &
+ & 0.57037E-02_JPRB,0.44852E-02_JPRB,0.31152E-02_JPRB,0.18298E-02_JPRB /)  
+KA(:, 3, 4, 8) = (/ &
+ & 0.96772E-02_JPRB,0.92607E-02_JPRB,0.86210E-02_JPRB,0.78004E-02_JPRB,0.68947E-02_JPRB, &
+ & 0.58626E-02_JPRB,0.46601E-02_JPRB,0.32973E-02_JPRB,0.20675E-02_JPRB /)  
+KA(:, 4, 4, 8) = (/ &
+ & 0.96222E-02_JPRB,0.92823E-02_JPRB,0.86884E-02_JPRB,0.79077E-02_JPRB,0.70317E-02_JPRB, &
+ & 0.60213E-02_JPRB,0.48471E-02_JPRB,0.34874E-02_JPRB,0.23199E-02_JPRB /)  
+KA(:, 5, 4, 8) = (/ &
+ & 0.95548E-02_JPRB,0.93032E-02_JPRB,0.87544E-02_JPRB,0.80177E-02_JPRB,0.71673E-02_JPRB, &
+ & 0.61924E-02_JPRB,0.50398E-02_JPRB,0.36845E-02_JPRB,0.25914E-02_JPRB /)  
+KA(:, 1, 5, 8) = (/ &
+ & 0.94682E-02_JPRB,0.89654E-02_JPRB,0.82210E-02_JPRB,0.73222E-02_JPRB,0.63403E-02_JPRB, &
+ & 0.52735E-02_JPRB,0.40692E-02_JPRB,0.27114E-02_JPRB,0.12929E-02_JPRB /)  
+KA(:, 2, 5, 8) = (/ &
+ & 0.94609E-02_JPRB,0.90053E-02_JPRB,0.83016E-02_JPRB,0.74278E-02_JPRB,0.64685E-02_JPRB, &
+ & 0.54213E-02_JPRB,0.42231E-02_JPRB,0.28638E-02_JPRB,0.14728E-02_JPRB /)  
+KA(:, 3, 5, 8) = (/ &
+ & 0.94353E-02_JPRB,0.90391E-02_JPRB,0.83802E-02_JPRB,0.75305E-02_JPRB,0.66027E-02_JPRB, &
+ & 0.55646E-02_JPRB,0.43790E-02_JPRB,0.30279E-02_JPRB,0.16663E-02_JPRB /)  
+KA(:, 4, 5, 8) = (/ &
+ & 0.93989E-02_JPRB,0.90684E-02_JPRB,0.84481E-02_JPRB,0.76404E-02_JPRB,0.67294E-02_JPRB, &
+ & 0.57082E-02_JPRB,0.45495E-02_JPRB,0.31980E-02_JPRB,0.18711E-02_JPRB /)  
+KA(:, 5, 5, 8) = (/ &
+ & 0.93472E-02_JPRB,0.90926E-02_JPRB,0.85136E-02_JPRB,0.77442E-02_JPRB,0.68542E-02_JPRB, &
+ & 0.58646E-02_JPRB,0.47259E-02_JPRB,0.33701E-02_JPRB,0.20921E-02_JPRB /)  
+KA(:, 1, 6, 8) = (/ &
+ & 0.90687E-02_JPRB,0.86083E-02_JPRB,0.78842E-02_JPRB,0.69920E-02_JPRB,0.60171E-02_JPRB, &
+ & 0.49784E-02_JPRB,0.38163E-02_JPRB,0.24892E-02_JPRB,0.10375E-02_JPRB /)  
+KA(:, 2, 6, 8) = (/ &
+ & 0.90845E-02_JPRB,0.86742E-02_JPRB,0.79759E-02_JPRB,0.71037E-02_JPRB,0.61494E-02_JPRB, &
+ & 0.51176E-02_JPRB,0.39577E-02_JPRB,0.26285E-02_JPRB,0.11848E-02_JPRB /)  
+KA(:, 3, 6, 8) = (/ &
+ & 0.90836E-02_JPRB,0.87225E-02_JPRB,0.80580E-02_JPRB,0.72119E-02_JPRB,0.62799E-02_JPRB, &
+ & 0.52546E-02_JPRB,0.41006E-02_JPRB,0.27750E-02_JPRB,0.13422E-02_JPRB /)  
+KA(:, 4, 6, 8) = (/ &
+ & 0.90655E-02_JPRB,0.87611E-02_JPRB,0.81305E-02_JPRB,0.73221E-02_JPRB,0.64054E-02_JPRB, &
+ & 0.53892E-02_JPRB,0.42503E-02_JPRB,0.29301E-02_JPRB,0.15078E-02_JPRB /)  
+KA(:, 5, 6, 8) = (/ &
+ & 0.90286E-02_JPRB,0.87944E-02_JPRB,0.82022E-02_JPRB,0.74247E-02_JPRB,0.65248E-02_JPRB, &
+ & 0.55305E-02_JPRB,0.44113E-02_JPRB,0.30838E-02_JPRB,0.16859E-02_JPRB /)  
+KA(:, 1, 7, 8) = (/ &
+ & 0.85850E-02_JPRB,0.81350E-02_JPRB,0.74326E-02_JPRB,0.65794E-02_JPRB,0.56482E-02_JPRB, &
+ & 0.46582E-02_JPRB,0.35544E-02_JPRB,0.22844E-02_JPRB,0.80765E-03_JPRB /)  
+KA(:, 2, 7, 8) = (/ &
+ & 0.86250E-02_JPRB,0.82179E-02_JPRB,0.75359E-02_JPRB,0.67022E-02_JPRB,0.57899E-02_JPRB, &
+ & 0.47962E-02_JPRB,0.36869E-02_JPRB,0.24122E-02_JPRB,0.92682E-03_JPRB /)  
+KA(:, 3, 7, 8) = (/ &
+ & 0.86440E-02_JPRB,0.82839E-02_JPRB,0.76315E-02_JPRB,0.68246E-02_JPRB,0.59218E-02_JPRB, &
+ & 0.49298E-02_JPRB,0.38219E-02_JPRB,0.25431E-02_JPRB,0.10538E-02_JPRB /)  
+KA(:, 4, 7, 8) = (/ &
+ & 0.86410E-02_JPRB,0.83371E-02_JPRB,0.77195E-02_JPRB,0.69421E-02_JPRB,0.60483E-02_JPRB, &
+ & 0.50620E-02_JPRB,0.39587E-02_JPRB,0.26818E-02_JPRB,0.11890E-02_JPRB /)  
+KA(:, 5, 7, 8) = (/ &
+ & 0.86213E-02_JPRB,0.83816E-02_JPRB,0.78035E-02_JPRB,0.70537E-02_JPRB,0.61695E-02_JPRB, &
+ & 0.51947E-02_JPRB,0.41038E-02_JPRB,0.28206E-02_JPRB,0.13358E-02_JPRB /)  
+KA(:, 1, 8, 8) = (/ &
+ & 0.80690E-02_JPRB,0.76260E-02_JPRB,0.69398E-02_JPRB,0.61270E-02_JPRB,0.52372E-02_JPRB, &
+ & 0.42965E-02_JPRB,0.32695E-02_JPRB,0.20922E-02_JPRB,0.69791E-03_JPRB /)  
+KA(:, 2, 8, 8) = (/ &
+ & 0.81346E-02_JPRB,0.77325E-02_JPRB,0.70609E-02_JPRB,0.62554E-02_JPRB,0.53744E-02_JPRB, &
+ & 0.44362E-02_JPRB,0.34019E-02_JPRB,0.22104E-02_JPRB,0.78609E-03_JPRB /)  
+KA(:, 3, 8, 8) = (/ &
+ & 0.81749E-02_JPRB,0.78188E-02_JPRB,0.71688E-02_JPRB,0.63791E-02_JPRB,0.55086E-02_JPRB, &
+ & 0.45702E-02_JPRB,0.35360E-02_JPRB,0.23302E-02_JPRB,0.88068E-03_JPRB /)  
+KA(:, 4, 8, 8) = (/ &
+ & 0.81959E-02_JPRB,0.78839E-02_JPRB,0.72650E-02_JPRB,0.64997E-02_JPRB,0.56387E-02_JPRB, &
+ & 0.47059E-02_JPRB,0.36681E-02_JPRB,0.24532E-02_JPRB,0.97840E-03_JPRB /)  
+KA(:, 5, 8, 8) = (/ &
+ & 0.81937E-02_JPRB,0.79411E-02_JPRB,0.73546E-02_JPRB,0.66134E-02_JPRB,0.57649E-02_JPRB, &
+ & 0.48383E-02_JPRB,0.38022E-02_JPRB,0.25773E-02_JPRB,0.10847E-02_JPRB /)  
+KA(:, 1, 9, 8) = (/ &
+ & 0.75182E-02_JPRB,0.70907E-02_JPRB,0.64287E-02_JPRB,0.56605E-02_JPRB,0.48216E-02_JPRB, &
+ & 0.39323E-02_JPRB,0.29776E-02_JPRB,0.18987E-02_JPRB,0.67472E-03_JPRB /)  
+KA(:, 2, 9, 8) = (/ &
+ & 0.76076E-02_JPRB,0.72195E-02_JPRB,0.65653E-02_JPRB,0.58009E-02_JPRB,0.49640E-02_JPRB, &
+ & 0.40692E-02_JPRB,0.31049E-02_JPRB,0.20098E-02_JPRB,0.74914E-03_JPRB /)  
+KA(:, 3, 9, 8) = (/ &
+ & 0.76735E-02_JPRB,0.73227E-02_JPRB,0.66862E-02_JPRB,0.59346E-02_JPRB,0.51012E-02_JPRB, &
+ & 0.42015E-02_JPRB,0.32328E-02_JPRB,0.21222E-02_JPRB,0.83367E-03_JPRB /)  
+KA(:, 4, 9, 8) = (/ &
+ & 0.77132E-02_JPRB,0.74045E-02_JPRB,0.67969E-02_JPRB,0.60620E-02_JPRB,0.52309E-02_JPRB, &
+ & 0.43347E-02_JPRB,0.33599E-02_JPRB,0.22355E-02_JPRB,0.91964E-03_JPRB /)  
+KA(:, 5, 9, 8) = (/ &
+ & 0.77286E-02_JPRB,0.74752E-02_JPRB,0.68965E-02_JPRB,0.61793E-02_JPRB,0.53584E-02_JPRB, &
+ & 0.44621E-02_JPRB,0.34884E-02_JPRB,0.23497E-02_JPRB,0.10114E-02_JPRB /)  
+KA(:, 1,10, 8) = (/ &
+ & 0.70149E-02_JPRB,0.65825E-02_JPRB,0.59329E-02_JPRB,0.52017E-02_JPRB,0.44219E-02_JPRB, &
+ & 0.35899E-02_JPRB,0.27069E-02_JPRB,0.17187E-02_JPRB,0.74519E-03_JPRB /)  
+KA(:, 2,10, 8) = (/ &
+ & 0.71248E-02_JPRB,0.67269E-02_JPRB,0.60810E-02_JPRB,0.53515E-02_JPRB,0.45670E-02_JPRB, &
+ & 0.37282E-02_JPRB,0.28313E-02_JPRB,0.18204E-02_JPRB,0.83494E-03_JPRB /)  
+KA(:, 3,10, 8) = (/ &
+ & 0.72044E-02_JPRB,0.68394E-02_JPRB,0.62076E-02_JPRB,0.54929E-02_JPRB,0.47097E-02_JPRB, &
+ & 0.38613E-02_JPRB,0.29540E-02_JPRB,0.19235E-02_JPRB,0.93279E-03_JPRB /)  
+KA(:, 4,10, 8) = (/ &
+ & 0.72597E-02_JPRB,0.69309E-02_JPRB,0.63267E-02_JPRB,0.56269E-02_JPRB,0.48423E-02_JPRB, &
+ & 0.39913E-02_JPRB,0.30764E-02_JPRB,0.20273E-02_JPRB,0.10348E-02_JPRB /)  
+KA(:, 5,10, 8) = (/ &
+ & 0.72955E-02_JPRB,0.70104E-02_JPRB,0.64378E-02_JPRB,0.57479E-02_JPRB,0.49695E-02_JPRB, &
+ & 0.41180E-02_JPRB,0.31960E-02_JPRB,0.21324E-02_JPRB,0.11387E-02_JPRB /)  
+KA(:, 1,11, 8) = (/ &
+ & 0.65628E-02_JPRB,0.61735E-02_JPRB,0.55551E-02_JPRB,0.48677E-02_JPRB,0.41265E-02_JPRB, &
+ & 0.33334E-02_JPRB,0.25028E-02_JPRB,0.15938E-02_JPRB,0.74406E-03_JPRB /)  
+KA(:, 2,11, 8) = (/ &
+ & 0.66786E-02_JPRB,0.63151E-02_JPRB,0.57025E-02_JPRB,0.50172E-02_JPRB,0.42702E-02_JPRB, &
+ & 0.34674E-02_JPRB,0.26229E-02_JPRB,0.16875E-02_JPRB,0.82711E-03_JPRB /)  
+KA(:, 3,11, 8) = (/ &
+ & 0.67664E-02_JPRB,0.64350E-02_JPRB,0.58347E-02_JPRB,0.51562E-02_JPRB,0.44059E-02_JPRB, &
+ & 0.35945E-02_JPRB,0.27422E-02_JPRB,0.17822E-02_JPRB,0.92379E-03_JPRB /)  
+KA(:, 4,11, 8) = (/ &
+ & 0.68381E-02_JPRB,0.65357E-02_JPRB,0.59597E-02_JPRB,0.52850E-02_JPRB,0.45292E-02_JPRB, &
+ & 0.37195E-02_JPRB,0.28585E-02_JPRB,0.18773E-02_JPRB,0.10214E-02_JPRB /)  
+KA(:, 5,11, 8) = (/ &
+ & 0.68910E-02_JPRB,0.66274E-02_JPRB,0.60702E-02_JPRB,0.54014E-02_JPRB,0.46503E-02_JPRB, &
+ & 0.38396E-02_JPRB,0.29707E-02_JPRB,0.19733E-02_JPRB,0.11179E-02_JPRB /)  
+KA(:, 1,12, 8) = (/ &
+ & 0.60794E-02_JPRB,0.57316E-02_JPRB,0.51563E-02_JPRB,0.45236E-02_JPRB,0.38371E-02_JPRB, &
+ & 0.31013E-02_JPRB,0.23239E-02_JPRB,0.14745E-02_JPRB,0.70212E-03_JPRB /)  
+KA(:, 2,12, 8) = (/ &
+ & 0.62026E-02_JPRB,0.58782E-02_JPRB,0.53110E-02_JPRB,0.46778E-02_JPRB,0.39838E-02_JPRB, &
+ & 0.32334E-02_JPRB,0.24368E-02_JPRB,0.15615E-02_JPRB,0.77146E-03_JPRB /)  
+KA(:, 3,12, 8) = (/ &
+ & 0.63087E-02_JPRB,0.60102E-02_JPRB,0.54544E-02_JPRB,0.48220E-02_JPRB,0.41191E-02_JPRB, &
+ & 0.33562E-02_JPRB,0.25462E-02_JPRB,0.16493E-02_JPRB,0.85116E-03_JPRB /)  
+KA(:, 4,12, 8) = (/ &
+ & 0.63948E-02_JPRB,0.61265E-02_JPRB,0.55863E-02_JPRB,0.49541E-02_JPRB,0.42453E-02_JPRB, &
+ & 0.34753E-02_JPRB,0.26508E-02_JPRB,0.17372E-02_JPRB,0.93862E-03_JPRB /)  
+KA(:, 5,12, 8) = (/ &
+ & 0.64607E-02_JPRB,0.62309E-02_JPRB,0.57052E-02_JPRB,0.50757E-02_JPRB,0.43660E-02_JPRB, &
+ & 0.35907E-02_JPRB,0.27548E-02_JPRB,0.18249E-02_JPRB,0.10221E-02_JPRB /)  
+KA(:, 1,13, 8) = (/ &
+ & 0.55937E-02_JPRB,0.52793E-02_JPRB,0.47517E-02_JPRB,0.41692E-02_JPRB,0.35394E-02_JPRB, &
+ & 0.28625E-02_JPRB,0.21454E-02_JPRB,0.13668E-02_JPRB,0.61956E-03_JPRB /)  
+KA(:, 2,13, 8) = (/ &
+ & 0.57319E-02_JPRB,0.54374E-02_JPRB,0.49129E-02_JPRB,0.43258E-02_JPRB,0.36843E-02_JPRB, &
+ & 0.29907E-02_JPRB,0.22551E-02_JPRB,0.14474E-02_JPRB,0.68007E-03_JPRB /)  
+KA(:, 3,13, 8) = (/ &
+ & 0.58515E-02_JPRB,0.55788E-02_JPRB,0.50622E-02_JPRB,0.44734E-02_JPRB,0.38194E-02_JPRB, &
+ & 0.31146E-02_JPRB,0.23600E-02_JPRB,0.15267E-02_JPRB,0.75016E-03_JPRB /)  
+KA(:, 4,13, 8) = (/ &
+ & 0.59483E-02_JPRB,0.57068E-02_JPRB,0.51995E-02_JPRB,0.46068E-02_JPRB,0.39501E-02_JPRB, &
+ & 0.32357E-02_JPRB,0.24610E-02_JPRB,0.16061E-02_JPRB,0.82038E-03_JPRB /)  
+KA(:, 5,13, 8) = (/ &
+ & 0.60233E-02_JPRB,0.58195E-02_JPRB,0.53236E-02_JPRB,0.47349E-02_JPRB,0.40732E-02_JPRB, &
+ & 0.33509E-02_JPRB,0.25596E-02_JPRB,0.16868E-02_JPRB,0.89122E-03_JPRB /)  
+KA(:, 1, 1, 9) = (/ &
+ & 0.19771E-01_JPRB,0.18370E-01_JPRB,0.17356E-01_JPRB,0.16079E-01_JPRB,0.14680E-01_JPRB, &
+ & 0.13282E-01_JPRB,0.11980E-01_JPRB,0.11582E-01_JPRB,0.12985E-01_JPRB /)  
+KA(:, 2, 1, 9) = (/ &
+ & 0.19636E-01_JPRB,0.18337E-01_JPRB,0.17425E-01_JPRB,0.16276E-01_JPRB,0.15036E-01_JPRB, &
+ & 0.13800E-01_JPRB,0.12788E-01_JPRB,0.12799E-01_JPRB,0.14491E-01_JPRB /)  
+KA(:, 3, 1, 9) = (/ &
+ & 0.19487E-01_JPRB,0.18291E-01_JPRB,0.17516E-01_JPRB,0.16543E-01_JPRB,0.15458E-01_JPRB, &
+ & 0.14398E-01_JPRB,0.13717E-01_JPRB,0.14121E-01_JPRB,0.16094E-01_JPRB /)  
+KA(:, 4, 1, 9) = (/ &
+ & 0.19329E-01_JPRB,0.18244E-01_JPRB,0.17665E-01_JPRB,0.16858E-01_JPRB,0.15921E-01_JPRB, &
+ & 0.15082E-01_JPRB,0.14738E-01_JPRB,0.15534E-01_JPRB,0.17796E-01_JPRB /)  
+KA(:, 5, 1, 9) = (/ &
+ & 0.19162E-01_JPRB,0.18208E-01_JPRB,0.17862E-01_JPRB,0.17203E-01_JPRB,0.16407E-01_JPRB, &
+ & 0.15804E-01_JPRB,0.15831E-01_JPRB,0.17016E-01_JPRB,0.19554E-01_JPRB /)  
+KA(:, 1, 2, 9) = (/ &
+ & 0.20491E-01_JPRB,0.19041E-01_JPRB,0.17931E-01_JPRB,0.16490E-01_JPRB,0.14871E-01_JPRB, &
+ & 0.13204E-01_JPRB,0.11551E-01_JPRB,0.10493E-01_JPRB,0.11370E-01_JPRB /)  
+KA(:, 2, 2, 9) = (/ &
+ & 0.20351E-01_JPRB,0.19021E-01_JPRB,0.18003E-01_JPRB,0.16688E-01_JPRB,0.15207E-01_JPRB, &
+ & 0.13674E-01_JPRB,0.12228E-01_JPRB,0.11542E-01_JPRB,0.12722E-01_JPRB /)  
+KA(:, 3, 2, 9) = (/ &
+ & 0.20205E-01_JPRB,0.18987E-01_JPRB,0.18097E-01_JPRB,0.16946E-01_JPRB,0.15590E-01_JPRB, &
+ & 0.14204E-01_JPRB,0.13003E-01_JPRB,0.12703E-01_JPRB,0.14170E-01_JPRB /)  
+KA(:, 4, 2, 9) = (/ &
+ & 0.20054E-01_JPRB,0.18946E-01_JPRB,0.18241E-01_JPRB,0.17244E-01_JPRB,0.16012E-01_JPRB, &
+ & 0.14800E-01_JPRB,0.13862E-01_JPRB,0.13953E-01_JPRB,0.15702E-01_JPRB /)  
+KA(:, 5, 2, 9) = (/ &
+ & 0.19890E-01_JPRB,0.18914E-01_JPRB,0.18431E-01_JPRB,0.17568E-01_JPRB,0.16464E-01_JPRB, &
+ & 0.15445E-01_JPRB,0.14813E-01_JPRB,0.15302E-01_JPRB,0.17318E-01_JPRB /)  
+KA(:, 1, 3, 9) = (/ &
+ & 0.21143E-01_JPRB,0.19662E-01_JPRB,0.18419E-01_JPRB,0.16811E-01_JPRB,0.15005E-01_JPRB, &
+ & 0.13075E-01_JPRB,0.11094E-01_JPRB,0.93893E-02_JPRB,0.95682E-02_JPRB /)  
+KA(:, 2, 3, 9) = (/ &
+ & 0.21021E-01_JPRB,0.19658E-01_JPRB,0.18498E-01_JPRB,0.17007E-01_JPRB,0.15312E-01_JPRB, &
+ & 0.13491E-01_JPRB,0.11661E-01_JPRB,0.10256E-01_JPRB,0.10742E-01_JPRB /)  
+KA(:, 3, 3, 9) = (/ &
+ & 0.20887E-01_JPRB,0.19635E-01_JPRB,0.18594E-01_JPRB,0.17251E-01_JPRB,0.15669E-01_JPRB, &
+ & 0.13959E-01_JPRB,0.12304E-01_JPRB,0.11227E-01_JPRB,0.12012E-01_JPRB /)  
+KA(:, 4, 3, 9) = (/ &
+ & 0.20742E-01_JPRB,0.19603E-01_JPRB,0.18727E-01_JPRB,0.17530E-01_JPRB,0.16058E-01_JPRB, &
+ & 0.14485E-01_JPRB,0.13015E-01_JPRB,0.12294E-01_JPRB,0.13375E-01_JPRB /)  
+KA(:, 5, 3, 9) = (/ &
+ & 0.20582E-01_JPRB,0.19578E-01_JPRB,0.18903E-01_JPRB,0.17831E-01_JPRB,0.16483E-01_JPRB, &
+ & 0.15047E-01_JPRB,0.13818E-01_JPRB,0.13471E-01_JPRB,0.14836E-01_JPRB /)  
+KA(:, 1, 4, 9) = (/ &
+ & 0.21726E-01_JPRB,0.20199E-01_JPRB,0.18812E-01_JPRB,0.17047E-01_JPRB,0.15080E-01_JPRB, &
+ & 0.12938E-01_JPRB,0.10693E-01_JPRB,0.84650E-02_JPRB,0.79270E-02_JPRB /)  
+KA(:, 2, 4, 9) = (/ &
+ & 0.21624E-01_JPRB,0.20213E-01_JPRB,0.18897E-01_JPRB,0.17238E-01_JPRB,0.15368E-01_JPRB, &
+ & 0.13326E-01_JPRB,0.11175E-01_JPRB,0.91656E-02_JPRB,0.89409E-02_JPRB /)  
+KA(:, 3, 4, 9) = (/ &
+ & 0.21502E-01_JPRB,0.20207E-01_JPRB,0.18990E-01_JPRB,0.17468E-01_JPRB,0.15708E-01_JPRB, &
+ & 0.13755E-01_JPRB,0.11721E-01_JPRB,0.99561E-02_JPRB,0.10044E-01_JPRB /)  
+KA(:, 4, 4, 9) = (/ &
+ & 0.21364E-01_JPRB,0.20186E-01_JPRB,0.19114E-01_JPRB,0.17747E-01_JPRB,0.16075E-01_JPRB, &
+ & 0.14230E-01_JPRB,0.12327E-01_JPRB,0.10844E-01_JPRB,0.11238E-01_JPRB /)  
+KA(:, 5, 4, 9) = (/ &
+ & 0.21208E-01_JPRB,0.20165E-01_JPRB,0.19280E-01_JPRB,0.18035E-01_JPRB,0.16477E-01_JPRB, &
+ & 0.14734E-01_JPRB,0.13004E-01_JPRB,0.11837E-01_JPRB,0.12527E-01_JPRB /)  
+KA(:, 1, 5, 9) = (/ &
+ & 0.22212E-01_JPRB,0.20643E-01_JPRB,0.19101E-01_JPRB,0.17193E-01_JPRB,0.15094E-01_JPRB, &
+ & 0.12790E-01_JPRB,0.10344E-01_JPRB,0.77661E-02_JPRB,0.65292E-02_JPRB /)  
+KA(:, 2, 5, 9) = (/ &
+ & 0.22131E-01_JPRB,0.20679E-01_JPRB,0.19192E-01_JPRB,0.17388E-01_JPRB,0.15373E-01_JPRB, &
+ & 0.13156E-01_JPRB,0.10779E-01_JPRB,0.83326E-02_JPRB,0.74004E-02_JPRB /)  
+KA(:, 3, 5, 9) = (/ &
+ & 0.22024E-01_JPRB,0.20689E-01_JPRB,0.19289E-01_JPRB,0.17614E-01_JPRB,0.15701E-01_JPRB, &
+ & 0.13560E-01_JPRB,0.11259E-01_JPRB,0.89716E-02_JPRB,0.83509E-02_JPRB /)  
+KA(:, 4, 5, 9) = (/ &
+ & 0.21891E-01_JPRB,0.20674E-01_JPRB,0.19419E-01_JPRB,0.17880E-01_JPRB,0.16055E-01_JPRB, &
+ & 0.14002E-01_JPRB,0.11784E-01_JPRB,0.96942E-02_JPRB,0.93863E-02_JPRB /)  
+KA(:, 5, 5, 9) = (/ &
+ & 0.21733E-01_JPRB,0.20659E-01_JPRB,0.19581E-01_JPRB,0.18166E-01_JPRB,0.16436E-01_JPRB, &
+ & 0.14467E-01_JPRB,0.12356E-01_JPRB,0.10508E-01_JPRB,0.10499E-01_JPRB /)  
+KA(:, 1, 6, 9) = (/ &
+ & 0.22561E-01_JPRB,0.20963E-01_JPRB,0.19278E-01_JPRB,0.17248E-01_JPRB,0.15027E-01_JPRB, &
+ & 0.12605E-01_JPRB,0.99913E-02_JPRB,0.71998E-02_JPRB,0.53191E-02_JPRB /)  
+KA(:, 2, 6, 9) = (/ &
+ & 0.22505E-01_JPRB,0.21027E-01_JPRB,0.19391E-01_JPRB,0.17451E-01_JPRB,0.15296E-01_JPRB, &
+ & 0.12947E-01_JPRB,0.10394E-01_JPRB,0.76719E-02_JPRB,0.60628E-02_JPRB /)  
+KA(:, 3, 6, 9) = (/ &
+ & 0.22407E-01_JPRB,0.21057E-01_JPRB,0.19505E-01_JPRB,0.17673E-01_JPRB,0.15617E-01_JPRB, &
+ & 0.13330E-01_JPRB,0.10834E-01_JPRB,0.82004E-02_JPRB,0.68698E-02_JPRB /)  
+KA(:, 4, 6, 9) = (/ &
+ & 0.22287E-01_JPRB,0.21061E-01_JPRB,0.19636E-01_JPRB,0.17933E-01_JPRB,0.15963E-01_JPRB, &
+ & 0.13742E-01_JPRB,0.11312E-01_JPRB,0.87854E-02_JPRB,0.77488E-02_JPRB /)  
+KA(:, 5, 6, 9) = (/ &
+ & 0.22148E-01_JPRB,0.21053E-01_JPRB,0.19794E-01_JPRB,0.18212E-01_JPRB,0.16329E-01_JPRB, &
+ & 0.14180E-01_JPRB,0.11816E-01_JPRB,0.94417E-02_JPRB,0.86993E-02_JPRB /)  
+KA(:, 1, 7, 9) = (/ &
+ & 0.22745E-01_JPRB,0.21135E-01_JPRB,0.19327E-01_JPRB,0.17197E-01_JPRB,0.14893E-01_JPRB, &
+ & 0.12374E-01_JPRB,0.96536E-02_JPRB,0.67256E-02_JPRB,0.43127E-02_JPRB /)  
+KA(:, 2, 7, 9) = (/ &
+ & 0.22707E-01_JPRB,0.21230E-01_JPRB,0.19474E-01_JPRB,0.17423E-01_JPRB,0.15162E-01_JPRB, &
+ & 0.12700E-01_JPRB,0.10030E-01_JPRB,0.71370E-02_JPRB,0.49389E-02_JPRB /)  
+KA(:, 3, 7, 9) = (/ &
+ & 0.22632E-01_JPRB,0.21281E-01_JPRB,0.19608E-01_JPRB,0.17649E-01_JPRB,0.15471E-01_JPRB, &
+ & 0.13070E-01_JPRB,0.10436E-01_JPRB,0.75822E-02_JPRB,0.56174E-02_JPRB /)  
+KA(:, 4, 7, 9) = (/ &
+ & 0.22537E-01_JPRB,0.21307E-01_JPRB,0.19744E-01_JPRB,0.17903E-01_JPRB,0.15813E-01_JPRB, &
+ & 0.13461E-01_JPRB,0.10872E-01_JPRB,0.80682E-02_JPRB,0.63562E-02_JPRB /)  
+KA(:, 5, 7, 9) = (/ &
+ & 0.22420E-01_JPRB,0.21314E-01_JPRB,0.19904E-01_JPRB,0.18182E-01_JPRB,0.16160E-01_JPRB, &
+ & 0.13874E-01_JPRB,0.11331E-01_JPRB,0.86088E-02_JPRB,0.71565E-02_JPRB /)  
+KA(:, 1, 8, 9) = (/ &
+ & 0.22742E-01_JPRB,0.21141E-01_JPRB,0.19244E-01_JPRB,0.17036E-01_JPRB,0.14667E-01_JPRB, &
+ & 0.12093E-01_JPRB,0.93194E-02_JPRB,0.63016E-02_JPRB,0.33604E-02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART6',1,ZHOOK_HANDLE)
+END SUBROUTINE PART6
+
+
+SUBROUTINE PART7
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART7',0,ZHOOK_HANDLE)
+
+
+KA(:, 2, 8, 9) = (/ &
+ & 0.22738E-01_JPRB,0.21267E-01_JPRB,0.19420E-01_JPRB,0.17289E-01_JPRB,0.14951E-01_JPRB, &
+ & 0.12414E-01_JPRB,0.96717E-02_JPRB,0.66654E-02_JPRB,0.38903E-02_JPRB /)  
+KA(:, 3, 8, 9) = (/ &
+ & 0.22699E-01_JPRB,0.21347E-01_JPRB,0.19574E-01_JPRB,0.17525E-01_JPRB,0.15260E-01_JPRB, &
+ & 0.12775E-01_JPRB,0.10048E-01_JPRB,0.70608E-02_JPRB,0.44626E-02_JPRB /)  
+KA(:, 4, 8, 9) = (/ &
+ & 0.22634E-01_JPRB,0.21402E-01_JPRB,0.19725E-01_JPRB,0.17775E-01_JPRB,0.15596E-01_JPRB, &
+ & 0.13150E-01_JPRB,0.10455E-01_JPRB,0.74847E-02_JPRB,0.50904E-02_JPRB /)  
+KA(:, 5, 8, 9) = (/ &
+ & 0.22550E-01_JPRB,0.21432E-01_JPRB,0.19888E-01_JPRB,0.18059E-01_JPRB,0.15936E-01_JPRB, &
+ & 0.13540E-01_JPRB,0.10879E-01_JPRB,0.79454E-02_JPRB,0.57754E-02_JPRB /)  
+KA(:, 1, 9, 9) = (/ &
+ & 0.22571E-01_JPRB,0.20980E-01_JPRB,0.19017E-01_JPRB,0.16764E-01_JPRB,0.14350E-01_JPRB, &
+ & 0.11743E-01_JPRB,0.89583E-02_JPRB,0.59107E-02_JPRB,0.27753E-02_JPRB /)  
+KA(:, 2, 9, 9) = (/ &
+ & 0.22607E-01_JPRB,0.21147E-01_JPRB,0.19231E-01_JPRB,0.17040E-01_JPRB,0.14648E-01_JPRB, &
+ & 0.12069E-01_JPRB,0.92988E-02_JPRB,0.62425E-02_JPRB,0.31527E-02_JPRB /)  
+KA(:, 3, 9, 9) = (/ &
+ & 0.22609E-01_JPRB,0.21268E-01_JPRB,0.19413E-01_JPRB,0.17284E-01_JPRB,0.14954E-01_JPRB, &
+ & 0.12424E-01_JPRB,0.96568E-02_JPRB,0.66010E-02_JPRB,0.35387E-02_JPRB /)  
+KA(:, 4, 9, 9) = (/ &
+ & 0.22589E-01_JPRB,0.21355E-01_JPRB,0.19582E-01_JPRB,0.17535E-01_JPRB,0.15285E-01_JPRB, &
+ & 0.12790E-01_JPRB,0.10038E-01_JPRB,0.69765E-02_JPRB,0.39766E-02_JPRB /)  
+KA(:, 5, 9, 9) = (/ &
+ & 0.22546E-01_JPRB,0.21413E-01_JPRB,0.19758E-01_JPRB,0.17821E-01_JPRB,0.15622E-01_JPRB, &
+ & 0.13166E-01_JPRB,0.10432E-01_JPRB,0.73821E-02_JPRB,0.44450E-02_JPRB /)  
+KA(:, 1,10, 9) = (/ &
+ & 0.22137E-01_JPRB,0.20618E-01_JPRB,0.18650E-01_JPRB,0.16403E-01_JPRB,0.13972E-01_JPRB, &
+ & 0.11364E-01_JPRB,0.85848E-02_JPRB,0.55632E-02_JPRB,0.31593E-02_JPRB /)  
+KA(:, 2,10, 9) = (/ &
+ & 0.22231E-01_JPRB,0.20835E-01_JPRB,0.18905E-01_JPRB,0.16706E-01_JPRB,0.14289E-01_JPRB, &
+ & 0.11695E-01_JPRB,0.89167E-02_JPRB,0.58739E-02_JPRB,0.35325E-02_JPRB /)  
+KA(:, 3,10, 9) = (/ &
+ & 0.22295E-01_JPRB,0.21010E-01_JPRB,0.19131E-01_JPRB,0.16972E-01_JPRB,0.14595E-01_JPRB, &
+ & 0.12040E-01_JPRB,0.92665E-02_JPRB,0.62059E-02_JPRB,0.39315E-02_JPRB /)  
+KA(:, 4,10, 9) = (/ &
+ & 0.22331E-01_JPRB,0.21144E-01_JPRB,0.19334E-01_JPRB,0.17233E-01_JPRB,0.14916E-01_JPRB, &
+ & 0.12396E-01_JPRB,0.96355E-02_JPRB,0.65507E-02_JPRB,0.43409E-02_JPRB /)  
+KA(:, 5,10, 9) = (/ &
+ & 0.22332E-01_JPRB,0.21248E-01_JPRB,0.19527E-01_JPRB,0.17517E-01_JPRB,0.15252E-01_JPRB, &
+ & 0.12765E-01_JPRB,0.10012E-01_JPRB,0.69176E-02_JPRB,0.47851E-02_JPRB /)  
+KA(:, 1,11, 9) = (/ &
+ & 0.21611E-01_JPRB,0.20177E-01_JPRB,0.18220E-01_JPRB,0.16014E-01_JPRB,0.13625E-01_JPRB, &
+ & 0.11072E-01_JPRB,0.83376E-02_JPRB,0.53526E-02_JPRB,0.32967E-02_JPRB /)  
+KA(:, 2,11, 9) = (/ &
+ & 0.21754E-01_JPRB,0.20431E-01_JPRB,0.18507E-01_JPRB,0.16333E-01_JPRB,0.13954E-01_JPRB, &
+ & 0.11415E-01_JPRB,0.86702E-02_JPRB,0.56558E-02_JPRB,0.36779E-02_JPRB /)  
+KA(:, 3,11, 9) = (/ &
+ & 0.21862E-01_JPRB,0.20634E-01_JPRB,0.18769E-01_JPRB,0.16624E-01_JPRB,0.14280E-01_JPRB, &
+ & 0.11762E-01_JPRB,0.90145E-02_JPRB,0.59759E-02_JPRB,0.40891E-02_JPRB /)  
+KA(:, 4,11, 9) = (/ &
+ & 0.21929E-01_JPRB,0.20796E-01_JPRB,0.18995E-01_JPRB,0.16914E-01_JPRB,0.14621E-01_JPRB, &
+ & 0.12122E-01_JPRB,0.93752E-02_JPRB,0.63026E-02_JPRB,0.45492E-02_JPRB /)  
+KA(:, 5,11, 9) = (/ &
+ & 0.21956E-01_JPRB,0.20925E-01_JPRB,0.19222E-01_JPRB,0.17218E-01_JPRB,0.14974E-01_JPRB, &
+ & 0.12492E-01_JPRB,0.97406E-02_JPRB,0.66508E-02_JPRB,0.50324E-02_JPRB /)  
+KA(:, 1,12, 9) = (/ &
+ & 0.20989E-01_JPRB,0.19649E-01_JPRB,0.17719E-01_JPRB,0.15554E-01_JPRB,0.13207E-01_JPRB, &
+ & 0.10709E-01_JPRB,0.80423E-02_JPRB,0.51308E-02_JPRB,0.32152E-02_JPRB /)  
+KA(:, 2,12, 9) = (/ &
+ & 0.21187E-01_JPRB,0.19941E-01_JPRB,0.18042E-01_JPRB,0.15892E-01_JPRB,0.13549E-01_JPRB, &
+ & 0.11055E-01_JPRB,0.83766E-02_JPRB,0.54250E-02_JPRB,0.35851E-02_JPRB /)  
+KA(:, 3,12, 9) = (/ &
+ & 0.21336E-01_JPRB,0.20173E-01_JPRB,0.18327E-01_JPRB,0.16203E-01_JPRB,0.13894E-01_JPRB, &
+ & 0.11411E-01_JPRB,0.87228E-02_JPRB,0.57329E-02_JPRB,0.40006E-02_JPRB /)  
+KA(:, 4,12, 9) = (/ &
+ & 0.21440E-01_JPRB,0.20364E-01_JPRB,0.18584E-01_JPRB,0.16516E-01_JPRB,0.14243E-01_JPRB, &
+ & 0.11781E-01_JPRB,0.90825E-02_JPRB,0.60483E-02_JPRB,0.44327E-02_JPRB /)  
+KA(:, 5,12, 9) = (/ &
+ & 0.21509E-01_JPRB,0.20531E-01_JPRB,0.18841E-01_JPRB,0.16838E-01_JPRB,0.14607E-01_JPRB, &
+ & 0.12155E-01_JPRB,0.94413E-02_JPRB,0.63798E-02_JPRB,0.48628E-02_JPRB /)  
+KA(:, 1,13, 9) = (/ &
+ & 0.20300E-01_JPRB,0.19036E-01_JPRB,0.17142E-01_JPRB,0.15033E-01_JPRB,0.12745E-01_JPRB, &
+ & 0.10318E-01_JPRB,0.77330E-02_JPRB,0.48977E-02_JPRB,0.29186E-02_JPRB /)  
+KA(:, 2,13, 9) = (/ &
+ & 0.20539E-01_JPRB,0.19361E-01_JPRB,0.17504E-01_JPRB,0.15398E-01_JPRB,0.13114E-01_JPRB, &
+ & 0.10679E-01_JPRB,0.80651E-02_JPRB,0.51844E-02_JPRB,0.32743E-02_JPRB /)  
+KA(:, 3,13, 9) = (/ &
+ & 0.20734E-01_JPRB,0.19633E-01_JPRB,0.17821E-01_JPRB,0.15739E-01_JPRB,0.13481E-01_JPRB, &
+ & 0.11044E-01_JPRB,0.84099E-02_JPRB,0.54812E-02_JPRB,0.36601E-02_JPRB /)  
+KA(:, 4,13, 9) = (/ &
+ & 0.20892E-01_JPRB,0.19871E-01_JPRB,0.18120E-01_JPRB,0.16090E-01_JPRB,0.13847E-01_JPRB, &
+ & 0.11415E-01_JPRB,0.87615E-02_JPRB,0.57863E-02_JPRB,0.40403E-02_JPRB /)  
+KA(:, 5,13, 9) = (/ &
+ & 0.21016E-01_JPRB,0.20092E-01_JPRB,0.18420E-01_JPRB,0.16433E-01_JPRB,0.14220E-01_JPRB, &
+ & 0.11787E-01_JPRB,0.91177E-02_JPRB,0.61020E-02_JPRB,0.44775E-02_JPRB /)  
+KA(:, 1, 1,10) = (/ &
+ & 0.32077E-01_JPRB,0.29717E-01_JPRB,0.27957E-01_JPRB,0.27088E-01_JPRB,0.26148E-01_JPRB, &
+ & 0.25463E-01_JPRB,0.27887E-01_JPRB,0.32409E-01_JPRB,0.37623E-01_JPRB /)  
+KA(:, 2, 1,10) = (/ &
+ & 0.31656E-01_JPRB,0.29512E-01_JPRB,0.28047E-01_JPRB,0.27317E-01_JPRB,0.26667E-01_JPRB, &
+ & 0.26788E-01_JPRB,0.30344E-01_JPRB,0.35248E-01_JPRB,0.40533E-01_JPRB /)  
+KA(:, 3, 1,10) = (/ &
+ & 0.31222E-01_JPRB,0.29398E-01_JPRB,0.28183E-01_JPRB,0.27633E-01_JPRB,0.27598E-01_JPRB, &
+ & 0.28788E-01_JPRB,0.33344E-01_JPRB,0.38694E-01_JPRB,0.44458E-01_JPRB /)  
+KA(:, 4, 1,10) = (/ &
+ & 0.30838E-01_JPRB,0.29185E-01_JPRB,0.28219E-01_JPRB,0.28269E-01_JPRB,0.28900E-01_JPRB, &
+ & 0.31215E-01_JPRB,0.36765E-01_JPRB,0.42659E-01_JPRB,0.48710E-01_JPRB /)  
+KA(:, 5, 1,10) = (/ &
+ & 0.30476E-01_JPRB,0.28982E-01_JPRB,0.28435E-01_JPRB,0.29011E-01_JPRB,0.30822E-01_JPRB, &
+ & 0.34422E-01_JPRB,0.40770E-01_JPRB,0.47309E-01_JPRB,0.54027E-01_JPRB /)  
+KA(:, 1, 2,10) = (/ &
+ & 0.34215E-01_JPRB,0.31859E-01_JPRB,0.30015E-01_JPRB,0.28551E-01_JPRB,0.26684E-01_JPRB, &
+ & 0.25243E-01_JPRB,0.25874E-01_JPRB,0.29803E-01_JPRB,0.34327E-01_JPRB /)  
+KA(:, 2, 2,10) = (/ &
+ & 0.33819E-01_JPRB,0.31701E-01_JPRB,0.30099E-01_JPRB,0.28712E-01_JPRB,0.27156E-01_JPRB, &
+ & 0.26446E-01_JPRB,0.28380E-01_JPRB,0.32886E-01_JPRB,0.37685E-01_JPRB /)  
+KA(:, 3, 2,10) = (/ &
+ & 0.33393E-01_JPRB,0.31477E-01_JPRB,0.30146E-01_JPRB,0.28931E-01_JPRB,0.28112E-01_JPRB, &
+ & 0.28308E-01_JPRB,0.31383E-01_JPRB,0.36360E-01_JPRB,0.41605E-01_JPRB /)  
+KA(:, 4, 2,10) = (/ &
+ & 0.33012E-01_JPRB,0.31222E-01_JPRB,0.30110E-01_JPRB,0.29460E-01_JPRB,0.29343E-01_JPRB, &
+ & 0.30463E-01_JPRB,0.34829E-01_JPRB,0.40350E-01_JPRB,0.46115E-01_JPRB /)  
+KA(:, 5, 2,10) = (/ &
+ & 0.32618E-01_JPRB,0.30977E-01_JPRB,0.30249E-01_JPRB,0.30140E-01_JPRB,0.31029E-01_JPRB, &
+ & 0.33086E-01_JPRB,0.38518E-01_JPRB,0.44611E-01_JPRB,0.51063E-01_JPRB /)  
+KA(:, 1, 3,10) = (/ &
+ & 0.36609E-01_JPRB,0.34016E-01_JPRB,0.32008E-01_JPRB,0.30013E-01_JPRB,0.27528E-01_JPRB, &
+ & 0.25143E-01_JPRB,0.24092E-01_JPRB,0.26746E-01_JPRB,0.30590E-01_JPRB /)  
+KA(:, 2, 3,10) = (/ &
+ & 0.36187E-01_JPRB,0.33816E-01_JPRB,0.32068E-01_JPRB,0.30121E-01_JPRB,0.27943E-01_JPRB, &
+ & 0.26137E-01_JPRB,0.26190E-01_JPRB,0.29769E-01_JPRB,0.34003E-01_JPRB /)  
+KA(:, 3, 3,10) = (/ &
+ & 0.35755E-01_JPRB,0.33555E-01_JPRB,0.32022E-01_JPRB,0.30354E-01_JPRB,0.28696E-01_JPRB, &
+ & 0.27732E-01_JPRB,0.28744E-01_JPRB,0.33056E-01_JPRB,0.37754E-01_JPRB /)  
+KA(:, 4, 3,10) = (/ &
+ & 0.35304E-01_JPRB,0.33277E-01_JPRB,0.31985E-01_JPRB,0.30856E-01_JPRB,0.29759E-01_JPRB, &
+ & 0.29582E-01_JPRB,0.31793E-01_JPRB,0.36769E-01_JPRB,0.41965E-01_JPRB /)  
+KA(:, 5, 3,10) = (/ &
+ & 0.34895E-01_JPRB,0.32987E-01_JPRB,0.32094E-01_JPRB,0.31490E-01_JPRB,0.31100E-01_JPRB, &
+ & 0.31735E-01_JPRB,0.35104E-01_JPRB,0.40646E-01_JPRB,0.46442E-01_JPRB /)  
+KA(:, 1, 4,10) = (/ &
+ & 0.38977E-01_JPRB,0.36120E-01_JPRB,0.33897E-01_JPRB,0.31410E-01_JPRB,0.28525E-01_JPRB, &
+ & 0.25373E-01_JPRB,0.22918E-01_JPRB,0.23596E-01_JPRB,0.26905E-01_JPRB /)  
+KA(:, 2, 4,10) = (/ &
+ & 0.38508E-01_JPRB,0.35924E-01_JPRB,0.33917E-01_JPRB,0.31530E-01_JPRB,0.28933E-01_JPRB, &
+ & 0.26161E-01_JPRB,0.24652E-01_JPRB,0.26430E-01_JPRB,0.30108E-01_JPRB /)  
+KA(:, 3, 4,10) = (/ &
+ & 0.38014E-01_JPRB,0.35658E-01_JPRB,0.33872E-01_JPRB,0.31757E-01_JPRB,0.29547E-01_JPRB, &
+ & 0.27436E-01_JPRB,0.26616E-01_JPRB,0.29450E-01_JPRB,0.33541E-01_JPRB /)  
+KA(:, 4, 4,10) = (/ &
+ & 0.37555E-01_JPRB,0.35363E-01_JPRB,0.33895E-01_JPRB,0.32125E-01_JPRB,0.30540E-01_JPRB, &
+ & 0.28878E-01_JPRB,0.28956E-01_JPRB,0.32793E-01_JPRB,0.37351E-01_JPRB /)  
+KA(:, 5, 4,10) = (/ &
+ & 0.37151E-01_JPRB,0.35088E-01_JPRB,0.33984E-01_JPRB,0.32788E-01_JPRB,0.31573E-01_JPRB, &
+ & 0.30633E-01_JPRB,0.31627E-01_JPRB,0.36308E-01_JPRB,0.41371E-01_JPRB /)  
+KA(:, 1, 5,10) = (/ &
+ & 0.41153E-01_JPRB,0.38034E-01_JPRB,0.35706E-01_JPRB,0.32805E-01_JPRB,0.29387E-01_JPRB, &
+ & 0.25927E-01_JPRB,0.22231E-01_JPRB,0.20561E-01_JPRB,0.23186E-01_JPRB /)  
+KA(:, 2, 5,10) = (/ &
+ & 0.40611E-01_JPRB,0.37835E-01_JPRB,0.35759E-01_JPRB,0.32923E-01_JPRB,0.29781E-01_JPRB, &
+ & 0.26577E-01_JPRB,0.23565E-01_JPRB,0.23003E-01_JPRB,0.26110E-01_JPRB /)  
+KA(:, 3, 5,10) = (/ &
+ & 0.40174E-01_JPRB,0.37589E-01_JPRB,0.35747E-01_JPRB,0.33131E-01_JPRB,0.30334E-01_JPRB, &
+ & 0.27648E-01_JPRB,0.25145E-01_JPRB,0.25696E-01_JPRB,0.29208E-01_JPRB /)  
+KA(:, 4, 5,10) = (/ &
+ & 0.39802E-01_JPRB,0.37389E-01_JPRB,0.35760E-01_JPRB,0.33447E-01_JPRB,0.31294E-01_JPRB, &
+ & 0.28785E-01_JPRB,0.27005E-01_JPRB,0.28729E-01_JPRB,0.32665E-01_JPRB /)  
+KA(:, 5, 5,10) = (/ &
+ & 0.39471E-01_JPRB,0.37195E-01_JPRB,0.35872E-01_JPRB,0.34084E-01_JPRB,0.32227E-01_JPRB, &
+ & 0.30087E-01_JPRB,0.29177E-01_JPRB,0.32029E-01_JPRB,0.36449E-01_JPRB /)  
+KA(:, 1, 6,10) = (/ &
+ & 0.43370E-01_JPRB,0.39997E-01_JPRB,0.37440E-01_JPRB,0.34118E-01_JPRB,0.30345E-01_JPRB, &
+ & 0.26246E-01_JPRB,0.21955E-01_JPRB,0.18231E-01_JPRB,0.19573E-01_JPRB /)  
+KA(:, 2, 6,10) = (/ &
+ & 0.42801E-01_JPRB,0.39763E-01_JPRB,0.37480E-01_JPRB,0.34252E-01_JPRB,0.30723E-01_JPRB, &
+ & 0.26892E-01_JPRB,0.22943E-01_JPRB,0.20080E-01_JPRB,0.22108E-01_JPRB /)  
+KA(:, 3, 6,10) = (/ &
+ & 0.42453E-01_JPRB,0.39592E-01_JPRB,0.37449E-01_JPRB,0.34486E-01_JPRB,0.31160E-01_JPRB, &
+ & 0.27853E-01_JPRB,0.24129E-01_JPRB,0.22254E-01_JPRB,0.24945E-01_JPRB /)  
+KA(:, 4, 6,10) = (/ &
+ & 0.42151E-01_JPRB,0.39446E-01_JPRB,0.37500E-01_JPRB,0.34777E-01_JPRB,0.31970E-01_JPRB, &
+ & 0.28872E-01_JPRB,0.25539E-01_JPRB,0.24809E-01_JPRB,0.28086E-01_JPRB /)  
+KA(:, 5, 6,10) = (/ &
+ & 0.41833E-01_JPRB,0.39344E-01_JPRB,0.37631E-01_JPRB,0.35392E-01_JPRB,0.32810E-01_JPRB, &
+ & 0.29983E-01_JPRB,0.27309E-01_JPRB,0.27744E-01_JPRB,0.31535E-01_JPRB /)  
+KA(:, 1, 7,10) = (/ &
+ & 0.45445E-01_JPRB,0.41961E-01_JPRB,0.39238E-01_JPRB,0.35426E-01_JPRB,0.31192E-01_JPRB, &
+ & 0.26649E-01_JPRB,0.21695E-01_JPRB,0.16623E-01_JPRB,0.16293E-01_JPRB /)  
+KA(:, 2, 7,10) = (/ &
+ & 0.45078E-01_JPRB,0.41797E-01_JPRB,0.39225E-01_JPRB,0.35507E-01_JPRB,0.31562E-01_JPRB, &
+ & 0.27229E-01_JPRB,0.22532E-01_JPRB,0.18019E-01_JPRB,0.18534E-01_JPRB /)  
+KA(:, 3, 7,10) = (/ &
+ & 0.44870E-01_JPRB,0.41785E-01_JPRB,0.39209E-01_JPRB,0.35749E-01_JPRB,0.31958E-01_JPRB, &
+ & 0.27976E-01_JPRB,0.23572E-01_JPRB,0.19783E-01_JPRB,0.21105E-01_JPRB /)  
+KA(:, 4, 7,10) = (/ &
+ & 0.44638E-01_JPRB,0.41726E-01_JPRB,0.39301E-01_JPRB,0.35989E-01_JPRB,0.32614E-01_JPRB, &
+ & 0.28887E-01_JPRB,0.24743E-01_JPRB,0.21842E-01_JPRB,0.23947E-01_JPRB /)  
+KA(:, 5, 7,10) = (/ &
+ & 0.44319E-01_JPRB,0.41703E-01_JPRB,0.39403E-01_JPRB,0.36491E-01_JPRB,0.33461E-01_JPRB, &
+ & 0.29864E-01_JPRB,0.26133E-01_JPRB,0.24238E-01_JPRB,0.27063E-01_JPRB /)  
+KA(:, 1, 8,10) = (/ &
+ & 0.47338E-01_JPRB,0.43694E-01_JPRB,0.40795E-01_JPRB,0.36657E-01_JPRB,0.31991E-01_JPRB, &
+ & 0.26976E-01_JPRB,0.21436E-01_JPRB,0.15589E-01_JPRB,0.13371E-01_JPRB /)  
+KA(:, 2, 8,10) = (/ &
+ & 0.47172E-01_JPRB,0.43681E-01_JPRB,0.40850E-01_JPRB,0.36728E-01_JPRB,0.32341E-01_JPRB, &
+ & 0.27474E-01_JPRB,0.22184E-01_JPRB,0.16691E-01_JPRB,0.15337E-01_JPRB /)  
+KA(:, 3, 8,10) = (/ &
+ & 0.47077E-01_JPRB,0.43885E-01_JPRB,0.40965E-01_JPRB,0.37016E-01_JPRB,0.32654E-01_JPRB, &
+ & 0.28038E-01_JPRB,0.23084E-01_JPRB,0.18052E-01_JPRB,0.17670E-01_JPRB /)  
+KA(:, 4, 8,10) = (/ &
+ & 0.46877E-01_JPRB,0.43984E-01_JPRB,0.41138E-01_JPRB,0.37264E-01_JPRB,0.33142E-01_JPRB, &
+ & 0.28868E-01_JPRB,0.24126E-01_JPRB,0.19696E-01_JPRB,0.20174E-01_JPRB /)  
+KA(:, 5, 8,10) = (/ &
+ & 0.46627E-01_JPRB,0.44042E-01_JPRB,0.41218E-01_JPRB,0.37582E-01_JPRB,0.33931E-01_JPRB, &
+ & 0.29818E-01_JPRB,0.25367E-01_JPRB,0.21590E-01_JPRB,0.22899E-01_JPRB /)  
+KA(:, 1, 9,10) = (/ &
+ & 0.49069E-01_JPRB,0.45230E-01_JPRB,0.41949E-01_JPRB,0.37482E-01_JPRB,0.32547E-01_JPRB, &
+ & 0.27221E-01_JPRB,0.21190E-01_JPRB,0.14771E-01_JPRB,0.82104E-02_JPRB /)  
+KA(:, 2, 9,10) = (/ &
+ & 0.48982E-01_JPRB,0.45358E-01_JPRB,0.42113E-01_JPRB,0.37642E-01_JPRB,0.32970E-01_JPRB, &
+ & 0.27650E-01_JPRB,0.21850E-01_JPRB,0.15738E-01_JPRB,0.94586E-02_JPRB /)  
+KA(:, 3, 9,10) = (/ &
+ & 0.48934E-01_JPRB,0.45677E-01_JPRB,0.42390E-01_JPRB,0.38084E-01_JPRB,0.33301E-01_JPRB, &
+ & 0.28097E-01_JPRB,0.22664E-01_JPRB,0.16844E-01_JPRB,0.11686E-01_JPRB /)  
+KA(:, 4, 9,10) = (/ &
+ & 0.48760E-01_JPRB,0.45876E-01_JPRB,0.42614E-01_JPRB,0.38405E-01_JPRB,0.33732E-01_JPRB, &
+ & 0.28793E-01_JPRB,0.23625E-01_JPRB,0.18186E-01_JPRB,0.14417E-01_JPRB /)  
+KA(:, 5, 9,10) = (/ &
+ & 0.48535E-01_JPRB,0.45946E-01_JPRB,0.42722E-01_JPRB,0.38669E-01_JPRB,0.34439E-01_JPRB, &
+ & 0.29718E-01_JPRB,0.24746E-01_JPRB,0.19636E-01_JPRB,0.17490E-01_JPRB /)  
+KA(:, 1,10,10) = (/ &
+ & 0.50581E-01_JPRB,0.46588E-01_JPRB,0.42861E-01_JPRB,0.37978E-01_JPRB,0.32756E-01_JPRB, &
+ & 0.27218E-01_JPRB,0.20963E-01_JPRB,0.14152E-01_JPRB,0.94977E-02_JPRB /)  
+KA(:, 2,10,10) = (/ &
+ & 0.50552E-01_JPRB,0.46832E-01_JPRB,0.43092E-01_JPRB,0.38231E-01_JPRB,0.33230E-01_JPRB, &
+ & 0.27672E-01_JPRB,0.21597E-01_JPRB,0.15000E-01_JPRB,0.11069E-01_JPRB /)  
+KA(:, 3,10,10) = (/ &
+ & 0.50470E-01_JPRB,0.47126E-01_JPRB,0.43390E-01_JPRB,0.38763E-01_JPRB,0.33692E-01_JPRB, &
+ & 0.28191E-01_JPRB,0.22303E-01_JPRB,0.15932E-01_JPRB,0.12529E-01_JPRB /)  
+KA(:, 4,10,10) = (/ &
+ & 0.50251E-01_JPRB,0.47290E-01_JPRB,0.43621E-01_JPRB,0.39150E-01_JPRB,0.34250E-01_JPRB, &
+ & 0.28907E-01_JPRB,0.23153E-01_JPRB,0.17091E-01_JPRB,0.14647E-01_JPRB /)  
+KA(:, 5,10,10) = (/ &
+ & 0.50025E-01_JPRB,0.47335E-01_JPRB,0.43789E-01_JPRB,0.39526E-01_JPRB,0.34961E-01_JPRB, &
+ & 0.29783E-01_JPRB,0.24207E-01_JPRB,0.18303E-01_JPRB,0.16505E-01_JPRB /)  
+KA(:, 1,11,10) = (/ &
+ & 0.51775E-01_JPRB,0.47733E-01_JPRB,0.43604E-01_JPRB,0.38377E-01_JPRB,0.33010E-01_JPRB, &
+ & 0.27211E-01_JPRB,0.20853E-01_JPRB,0.13952E-01_JPRB,0.10099E-01_JPRB /)  
+KA(:, 2,11,10) = (/ &
+ & 0.51722E-01_JPRB,0.48082E-01_JPRB,0.43912E-01_JPRB,0.38859E-01_JPRB,0.33550E-01_JPRB, &
+ & 0.27720E-01_JPRB,0.21535E-01_JPRB,0.14746E-01_JPRB,0.11460E-01_JPRB /)  
+KA(:, 3,11,10) = (/ &
+ & 0.51577E-01_JPRB,0.48309E-01_JPRB,0.44107E-01_JPRB,0.39371E-01_JPRB,0.34132E-01_JPRB, &
+ & 0.28431E-01_JPRB,0.22288E-01_JPRB,0.15640E-01_JPRB,0.12761E-01_JPRB /)  
+KA(:, 4,11,10) = (/ &
+ & 0.51367E-01_JPRB,0.48474E-01_JPRB,0.44409E-01_JPRB,0.39819E-01_JPRB,0.34807E-01_JPRB, &
+ & 0.29240E-01_JPRB,0.23192E-01_JPRB,0.16707E-01_JPRB,0.14096E-01_JPRB /)  
+KA(:, 5,11,10) = (/ &
+ & 0.51186E-01_JPRB,0.48565E-01_JPRB,0.44658E-01_JPRB,0.40350E-01_JPRB,0.35545E-01_JPRB, &
+ & 0.30221E-01_JPRB,0.24214E-01_JPRB,0.17744E-01_JPRB,0.15290E-01_JPRB /)  
+KA(:, 1,12,10) = (/ &
+ & 0.52731E-01_JPRB,0.48681E-01_JPRB,0.44186E-01_JPRB,0.38733E-01_JPRB,0.33169E-01_JPRB, &
+ & 0.27108E-01_JPRB,0.20634E-01_JPRB,0.13723E-01_JPRB,0.97949E-02_JPRB /)  
+KA(:, 2,12,10) = (/ &
+ & 0.52654E-01_JPRB,0.49001E-01_JPRB,0.44433E-01_JPRB,0.39315E-01_JPRB,0.33776E-01_JPRB, &
+ & 0.27772E-01_JPRB,0.21363E-01_JPRB,0.14506E-01_JPRB,0.11186E-01_JPRB /)  
+KA(:, 3,12,10) = (/ &
+ & 0.52581E-01_JPRB,0.49321E-01_JPRB,0.44768E-01_JPRB,0.39827E-01_JPRB,0.34382E-01_JPRB, &
+ & 0.28565E-01_JPRB,0.22205E-01_JPRB,0.15366E-01_JPRB,0.12310E-01_JPRB /)  
+KA(:, 4,12,10) = (/ &
+ & 0.52474E-01_JPRB,0.49527E-01_JPRB,0.45170E-01_JPRB,0.40364E-01_JPRB,0.35120E-01_JPRB, &
+ & 0.29376E-01_JPRB,0.23174E-01_JPRB,0.16305E-01_JPRB,0.14325E-01_JPRB /)  
+KA(:, 5,12,10) = (/ &
+ & 0.52313E-01_JPRB,0.49659E-01_JPRB,0.45526E-01_JPRB,0.41026E-01_JPRB,0.35905E-01_JPRB, &
+ & 0.30399E-01_JPRB,0.24222E-01_JPRB,0.17291E-01_JPRB,0.16045E-01_JPRB /)  
+KA(:, 1,13,10) = (/ &
+ & 0.53347E-01_JPRB,0.49460E-01_JPRB,0.44667E-01_JPRB,0.39102E-01_JPRB,0.33300E-01_JPRB, &
+ & 0.27005E-01_JPRB,0.20373E-01_JPRB,0.13403E-01_JPRB,0.88882E-02_JPRB /)  
+KA(:, 2,13,10) = (/ &
+ & 0.53473E-01_JPRB,0.49893E-01_JPRB,0.44992E-01_JPRB,0.39672E-01_JPRB,0.33886E-01_JPRB, &
+ & 0.27737E-01_JPRB,0.21157E-01_JPRB,0.14194E-01_JPRB,0.99472E-02_JPRB /)  
+KA(:, 3,13,10) = (/ &
+ & 0.53543E-01_JPRB,0.50285E-01_JPRB,0.45484E-01_JPRB,0.40250E-01_JPRB,0.34541E-01_JPRB, &
+ & 0.28510E-01_JPRB,0.22035E-01_JPRB,0.15061E-01_JPRB,0.11235E-01_JPRB /)  
+KA(:, 4,13,10) = (/ &
+ & 0.53461E-01_JPRB,0.50524E-01_JPRB,0.45912E-01_JPRB,0.40827E-01_JPRB,0.35322E-01_JPRB, &
+ & 0.29374E-01_JPRB,0.23048E-01_JPRB,0.15925E-01_JPRB,0.12822E-01_JPRB /)  
+KA(:, 5,13,10) = (/ &
+ & 0.53278E-01_JPRB,0.50624E-01_JPRB,0.46303E-01_JPRB,0.41556E-01_JPRB,0.36186E-01_JPRB, &
+ & 0.30414E-01_JPRB,0.24058E-01_JPRB,0.16868E-01_JPRB,0.14203E-01_JPRB /)  
+KA(:, 1, 1,11) = (/ &
+ & 0.37171E-01_JPRB,0.34434E-01_JPRB,0.32644E-01_JPRB,0.32703E-01_JPRB,0.33235E-01_JPRB, &
+ & 0.36611E-01_JPRB,0.43526E-01_JPRB,0.50696E-01_JPRB,0.58297E-01_JPRB /)  
+KA(:, 2, 1,11) = (/ &
+ & 0.36741E-01_JPRB,0.34071E-01_JPRB,0.32455E-01_JPRB,0.33094E-01_JPRB,0.34229E-01_JPRB, &
+ & 0.38792E-01_JPRB,0.46364E-01_JPRB,0.53998E-01_JPRB,0.61977E-01_JPRB /)  
+KA(:, 3, 1,11) = (/ &
+ & 0.36310E-01_JPRB,0.33795E-01_JPRB,0.32514E-01_JPRB,0.33548E-01_JPRB,0.35414E-01_JPRB, &
+ & 0.41445E-01_JPRB,0.49627E-01_JPRB,0.57817E-01_JPRB,0.66049E-01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART7',1,ZHOOK_HANDLE)
+END SUBROUTINE PART7
+
+
+SUBROUTINE PART8
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART8',0,ZHOOK_HANDLE)
+
+
+KA(:, 4, 1,11) = (/ &
+ & 0.35845E-01_JPRB,0.33632E-01_JPRB,0.32631E-01_JPRB,0.34397E-01_JPRB,0.37428E-01_JPRB, &
+ & 0.44985E-01_JPRB,0.53868E-01_JPRB,0.62763E-01_JPRB,0.71579E-01_JPRB /)  
+KA(:, 5, 1,11) = (/ &
+ & 0.35331E-01_JPRB,0.33379E-01_JPRB,0.32910E-01_JPRB,0.35528E-01_JPRB,0.39783E-01_JPRB, &
+ & 0.48705E-01_JPRB,0.58316E-01_JPRB,0.67942E-01_JPRB,0.77160E-01_JPRB /)  
+KA(:, 1, 2,11) = (/ &
+ & 0.40448E-01_JPRB,0.37395E-01_JPRB,0.35029E-01_JPRB,0.34305E-01_JPRB,0.33991E-01_JPRB, &
+ & 0.35316E-01_JPRB,0.40968E-01_JPRB,0.47712E-01_JPRB,0.54932E-01_JPRB /)  
+KA(:, 2, 2,11) = (/ &
+ & 0.39920E-01_JPRB,0.36968E-01_JPRB,0.34927E-01_JPRB,0.34599E-01_JPRB,0.34841E-01_JPRB, &
+ & 0.37250E-01_JPRB,0.43923E-01_JPRB,0.51161E-01_JPRB,0.58827E-01_JPRB /)  
+KA(:, 3, 2,11) = (/ &
+ & 0.39405E-01_JPRB,0.36691E-01_JPRB,0.34999E-01_JPRB,0.35076E-01_JPRB,0.35924E-01_JPRB, &
+ & 0.39772E-01_JPRB,0.47443E-01_JPRB,0.55253E-01_JPRB,0.63303E-01_JPRB /)  
+KA(:, 4, 2,11) = (/ &
+ & 0.38792E-01_JPRB,0.36414E-01_JPRB,0.35121E-01_JPRB,0.35787E-01_JPRB,0.37790E-01_JPRB, &
+ & 0.43290E-01_JPRB,0.51773E-01_JPRB,0.60284E-01_JPRB,0.68983E-01_JPRB /)  
+KA(:, 5, 2,11) = (/ &
+ & 0.38190E-01_JPRB,0.36098E-01_JPRB,0.35328E-01_JPRB,0.36844E-01_JPRB,0.39952E-01_JPRB, &
+ & 0.47291E-01_JPRB,0.56573E-01_JPRB,0.65870E-01_JPRB,0.75177E-01_JPRB /)  
+KA(:, 1, 3,11) = (/ &
+ & 0.43810E-01_JPRB,0.40500E-01_JPRB,0.37754E-01_JPRB,0.36293E-01_JPRB,0.34676E-01_JPRB, &
+ & 0.34367E-01_JPRB,0.37493E-01_JPRB,0.43650E-01_JPRB,0.50087E-01_JPRB /)  
+KA(:, 2, 3,11) = (/ &
+ & 0.43199E-01_JPRB,0.40018E-01_JPRB,0.37716E-01_JPRB,0.36450E-01_JPRB,0.35395E-01_JPRB, &
+ & 0.35866E-01_JPRB,0.40426E-01_JPRB,0.47076E-01_JPRB,0.53958E-01_JPRB /)  
+KA(:, 3, 3,11) = (/ &
+ & 0.42538E-01_JPRB,0.39757E-01_JPRB,0.37868E-01_JPRB,0.36772E-01_JPRB,0.36302E-01_JPRB, &
+ & 0.37914E-01_JPRB,0.44070E-01_JPRB,0.51299E-01_JPRB,0.58670E-01_JPRB /)  
+KA(:, 4, 3,11) = (/ &
+ & 0.41856E-01_JPRB,0.39457E-01_JPRB,0.37979E-01_JPRB,0.37163E-01_JPRB,0.37947E-01_JPRB, &
+ & 0.40970E-01_JPRB,0.48419E-01_JPRB,0.56334E-01_JPRB,0.64404E-01_JPRB /)  
+KA(:, 5, 3,11) = (/ &
+ & 0.41250E-01_JPRB,0.39154E-01_JPRB,0.38065E-01_JPRB,0.38049E-01_JPRB,0.39929E-01_JPRB, &
+ & 0.44658E-01_JPRB,0.53223E-01_JPRB,0.61909E-01_JPRB,0.70665E-01_JPRB /)  
+KA(:, 1, 4,11) = (/ &
+ & 0.47088E-01_JPRB,0.43589E-01_JPRB,0.40605E-01_JPRB,0.38686E-01_JPRB,0.35713E-01_JPRB, &
+ & 0.33942E-01_JPRB,0.34171E-01_JPRB,0.39143E-01_JPRB,0.44787E-01_JPRB /)  
+KA(:, 2, 4,11) = (/ &
+ & 0.46380E-01_JPRB,0.43081E-01_JPRB,0.40678E-01_JPRB,0.38772E-01_JPRB,0.36271E-01_JPRB, &
+ & 0.35115E-01_JPRB,0.36728E-01_JPRB,0.42523E-01_JPRB,0.48625E-01_JPRB /)  
+KA(:, 3, 4,11) = (/ &
+ & 0.45787E-01_JPRB,0.42889E-01_JPRB,0.40853E-01_JPRB,0.39000E-01_JPRB,0.36901E-01_JPRB, &
+ & 0.36794E-01_JPRB,0.40276E-01_JPRB,0.46812E-01_JPRB,0.53448E-01_JPRB /)  
+KA(:, 4, 4,11) = (/ &
+ & 0.45216E-01_JPRB,0.42628E-01_JPRB,0.40916E-01_JPRB,0.39286E-01_JPRB,0.38129E-01_JPRB, &
+ & 0.39329E-01_JPRB,0.44499E-01_JPRB,0.51734E-01_JPRB,0.59041E-01_JPRB /)  
+KA(:, 5, 4,11) = (/ &
+ & 0.44698E-01_JPRB,0.42312E-01_JPRB,0.40992E-01_JPRB,0.39909E-01_JPRB,0.39896E-01_JPRB, &
+ & 0.42322E-01_JPRB,0.49157E-01_JPRB,0.57134E-01_JPRB,0.65206E-01_JPRB /)  
+KA(:, 1, 5,11) = (/ &
+ & 0.50564E-01_JPRB,0.46864E-01_JPRB,0.43550E-01_JPRB,0.41145E-01_JPRB,0.37282E-01_JPRB, &
+ & 0.33847E-01_JPRB,0.31921E-01_JPRB,0.34655E-01_JPRB,0.39581E-01_JPRB /)  
+KA(:, 2, 5,11) = (/ &
+ & 0.49853E-01_JPRB,0.46324E-01_JPRB,0.43735E-01_JPRB,0.41212E-01_JPRB,0.37826E-01_JPRB, &
+ & 0.34760E-01_JPRB,0.33939E-01_JPRB,0.37988E-01_JPRB,0.43340E-01_JPRB /)  
+KA(:, 3, 5,11) = (/ &
+ & 0.49277E-01_JPRB,0.46142E-01_JPRB,0.43937E-01_JPRB,0.41409E-01_JPRB,0.38245E-01_JPRB, &
+ & 0.36079E-01_JPRB,0.36891E-01_JPRB,0.42172E-01_JPRB,0.48104E-01_JPRB /)  
+KA(:, 4, 5,11) = (/ &
+ & 0.48731E-01_JPRB,0.45921E-01_JPRB,0.43964E-01_JPRB,0.41658E-01_JPRB,0.39073E-01_JPRB, &
+ & 0.38270E-01_JPRB,0.40535E-01_JPRB,0.46833E-01_JPRB,0.53415E-01_JPRB /)  
+KA(:, 5, 5,11) = (/ &
+ & 0.48265E-01_JPRB,0.45648E-01_JPRB,0.43993E-01_JPRB,0.42096E-01_JPRB,0.40473E-01_JPRB, &
+ & 0.40846E-01_JPRB,0.44703E-01_JPRB,0.51860E-01_JPRB,0.59120E-01_JPRB /)  
+KA(:, 1, 6,11) = (/ &
+ & 0.54155E-01_JPRB,0.50312E-01_JPRB,0.46699E-01_JPRB,0.43479E-01_JPRB,0.38935E-01_JPRB, &
+ & 0.34460E-01_JPRB,0.30470E-01_JPRB,0.30214E-01_JPRB,0.34389E-01_JPRB /)  
+KA(:, 2, 6,11) = (/ &
+ & 0.53396E-01_JPRB,0.49741E-01_JPRB,0.46925E-01_JPRB,0.43573E-01_JPRB,0.39485E-01_JPRB, &
+ & 0.35160E-01_JPRB,0.32122E-01_JPRB,0.33415E-01_JPRB,0.38087E-01_JPRB /)  
+KA(:, 3, 6,11) = (/ &
+ & 0.52823E-01_JPRB,0.49548E-01_JPRB,0.47130E-01_JPRB,0.43740E-01_JPRB,0.39828E-01_JPRB, &
+ & 0.36044E-01_JPRB,0.34474E-01_JPRB,0.37304E-01_JPRB,0.42510E-01_JPRB /)  
+KA(:, 4, 6,11) = (/ &
+ & 0.52327E-01_JPRB,0.49384E-01_JPRB,0.47097E-01_JPRB,0.43937E-01_JPRB,0.40452E-01_JPRB, &
+ & 0.37736E-01_JPRB,0.37393E-01_JPRB,0.41655E-01_JPRB,0.47452E-01_JPRB /)  
+KA(:, 5, 6,11) = (/ &
+ & 0.51903E-01_JPRB,0.49131E-01_JPRB,0.47026E-01_JPRB,0.44222E-01_JPRB,0.41687E-01_JPRB, &
+ & 0.39818E-01_JPRB,0.40660E-01_JPRB,0.46275E-01_JPRB,0.52724E-01_JPRB /)  
+KA(:, 1, 7,11) = (/ &
+ & 0.58007E-01_JPRB,0.53733E-01_JPRB,0.49779E-01_JPRB,0.45887E-01_JPRB,0.40462E-01_JPRB, &
+ & 0.35176E-01_JPRB,0.29765E-01_JPRB,0.26441E-01_JPRB,0.29320E-01_JPRB /)  
+KA(:, 2, 7,11) = (/ &
+ & 0.57151E-01_JPRB,0.53110E-01_JPRB,0.50041E-01_JPRB,0.45960E-01_JPRB,0.40973E-01_JPRB, &
+ & 0.35887E-01_JPRB,0.31026E-01_JPRB,0.29123E-01_JPRB,0.32803E-01_JPRB /)  
+KA(:, 3, 7,11) = (/ &
+ & 0.56502E-01_JPRB,0.52846E-01_JPRB,0.50182E-01_JPRB,0.46056E-01_JPRB,0.41337E-01_JPRB, &
+ & 0.36666E-01_JPRB,0.32781E-01_JPRB,0.32480E-01_JPRB,0.36858E-01_JPRB /)  
+KA(:, 4, 7,11) = (/ &
+ & 0.55999E-01_JPRB,0.52671E-01_JPRB,0.50072E-01_JPRB,0.46217E-01_JPRB,0.41835E-01_JPRB, &
+ & 0.38000E-01_JPRB,0.35109E-01_JPRB,0.36308E-01_JPRB,0.41318E-01_JPRB /)  
+KA(:, 5, 7,11) = (/ &
+ & 0.55573E-01_JPRB,0.52382E-01_JPRB,0.49967E-01_JPRB,0.46401E-01_JPRB,0.42955E-01_JPRB, &
+ & 0.39677E-01_JPRB,0.37716E-01_JPRB,0.40481E-01_JPRB,0.46095E-01_JPRB /)  
+KA(:, 1, 8,11) = (/ &
+ & 0.61929E-01_JPRB,0.57176E-01_JPRB,0.52730E-01_JPRB,0.48103E-01_JPRB,0.42015E-01_JPRB, &
+ & 0.35869E-01_JPRB,0.29499E-01_JPRB,0.23665E-01_JPRB,0.24549E-01_JPRB /)  
+KA(:, 2, 8,11) = (/ &
+ & 0.61013E-01_JPRB,0.56553E-01_JPRB,0.52930E-01_JPRB,0.48080E-01_JPRB,0.42522E-01_JPRB, &
+ & 0.36573E-01_JPRB,0.30581E-01_JPRB,0.25834E-01_JPRB,0.27791E-01_JPRB /)  
+KA(:, 3, 8,11) = (/ &
+ & 0.60303E-01_JPRB,0.56131E-01_JPRB,0.52872E-01_JPRB,0.48123E-01_JPRB,0.42911E-01_JPRB, &
+ & 0.37343E-01_JPRB,0.31938E-01_JPRB,0.28446E-01_JPRB,0.31375E-01_JPRB /)  
+KA(:, 4, 8,11) = (/ &
+ & 0.59783E-01_JPRB,0.55843E-01_JPRB,0.52678E-01_JPRB,0.48331E-01_JPRB,0.43398E-01_JPRB, &
+ & 0.38468E-01_JPRB,0.33698E-01_JPRB,0.31535E-01_JPRB,0.35398E-01_JPRB /)  
+KA(:, 5, 8,11) = (/ &
+ & 0.59221E-01_JPRB,0.55525E-01_JPRB,0.52626E-01_JPRB,0.48547E-01_JPRB,0.44309E-01_JPRB, &
+ & 0.39969E-01_JPRB,0.35748E-01_JPRB,0.35119E-01_JPRB,0.39791E-01_JPRB /)  
+KA(:, 1, 9,11) = (/ &
+ & 0.65420E-01_JPRB,0.60290E-01_JPRB,0.55521E-01_JPRB,0.50117E-01_JPRB,0.43421E-01_JPRB, &
+ & 0.36608E-01_JPRB,0.29349E-01_JPRB,0.21841E-01_JPRB,0.18774E-01_JPRB /)  
+KA(:, 2, 9,11) = (/ &
+ & 0.64534E-01_JPRB,0.59710E-01_JPRB,0.55627E-01_JPRB,0.50054E-01_JPRB,0.43842E-01_JPRB, &
+ & 0.37357E-01_JPRB,0.30337E-01_JPRB,0.23525E-01_JPRB,0.22756E-01_JPRB /)  
+KA(:, 3, 9,11) = (/ &
+ & 0.63805E-01_JPRB,0.59237E-01_JPRB,0.55452E-01_JPRB,0.50019E-01_JPRB,0.44319E-01_JPRB, &
+ & 0.38089E-01_JPRB,0.31491E-01_JPRB,0.25524E-01_JPRB,0.26401E-01_JPRB /)  
+KA(:, 4, 9,11) = (/ &
+ & 0.63315E-01_JPRB,0.59001E-01_JPRB,0.55252E-01_JPRB,0.50261E-01_JPRB,0.44802E-01_JPRB, &
+ & 0.39006E-01_JPRB,0.32915E-01_JPRB,0.27972E-01_JPRB,0.30021E-01_JPRB /)  
+KA(:, 5, 9,11) = (/ &
+ & 0.62781E-01_JPRB,0.58825E-01_JPRB,0.55257E-01_JPRB,0.50524E-01_JPRB,0.45567E-01_JPRB, &
+ & 0.40297E-01_JPRB,0.34643E-01_JPRB,0.30888E-01_JPRB,0.34021E-01_JPRB /)  
+KA(:, 1,10,11) = (/ &
+ & 0.68132E-01_JPRB,0.62682E-01_JPRB,0.57743E-01_JPRB,0.51836E-01_JPRB,0.44670E-01_JPRB, &
+ & 0.37300E-01_JPRB,0.29365E-01_JPRB,0.20724E-01_JPRB,0.15957E-01_JPRB /)  
+KA(:, 2,10,11) = (/ &
+ & 0.67210E-01_JPRB,0.62151E-01_JPRB,0.57960E-01_JPRB,0.51867E-01_JPRB,0.45128E-01_JPRB, &
+ & 0.38064E-01_JPRB,0.30245E-01_JPRB,0.22146E-01_JPRB,0.17704E-01_JPRB /)  
+KA(:, 3,10,11) = (/ &
+ & 0.66632E-01_JPRB,0.61949E-01_JPRB,0.57882E-01_JPRB,0.51878E-01_JPRB,0.45637E-01_JPRB, &
+ & 0.38758E-01_JPRB,0.31283E-01_JPRB,0.23744E-01_JPRB,0.20098E-01_JPRB /)  
+KA(:, 4,10,11) = (/ &
+ & 0.66350E-01_JPRB,0.62044E-01_JPRB,0.57835E-01_JPRB,0.52180E-01_JPRB,0.46090E-01_JPRB, &
+ & 0.39573E-01_JPRB,0.32509E-01_JPRB,0.25642E-01_JPRB,0.22076E-01_JPRB /)  
+KA(:, 5,10,11) = (/ &
+ & 0.65965E-01_JPRB,0.62105E-01_JPRB,0.57959E-01_JPRB,0.52489E-01_JPRB,0.46765E-01_JPRB, &
+ & 0.40717E-01_JPRB,0.34057E-01_JPRB,0.28015E-01_JPRB,0.24829E-01_JPRB /)  
+KA(:, 1,11,11) = (/ &
+ & 0.69905E-01_JPRB,0.64410E-01_JPRB,0.59589E-01_JPRB,0.53150E-01_JPRB,0.45760E-01_JPRB, &
+ & 0.38179E-01_JPRB,0.29785E-01_JPRB,0.20444E-01_JPRB,0.16092E-01_JPRB /)  
+KA(:, 2,11,11) = (/ &
+ & 0.69271E-01_JPRB,0.64175E-01_JPRB,0.59782E-01_JPRB,0.53281E-01_JPRB,0.46486E-01_JPRB, &
+ & 0.38949E-01_JPRB,0.30645E-01_JPRB,0.21725E-01_JPRB,0.17857E-01_JPRB /)  
+KA(:, 3,11,11) = (/ &
+ & 0.69073E-01_JPRB,0.64491E-01_JPRB,0.59955E-01_JPRB,0.53684E-01_JPRB,0.46981E-01_JPRB, &
+ & 0.39609E-01_JPRB,0.31674E-01_JPRB,0.23165E-01_JPRB,0.20394E-01_JPRB /)  
+KA(:, 4,11,11) = (/ &
+ & 0.68904E-01_JPRB,0.64793E-01_JPRB,0.60179E-01_JPRB,0.54162E-01_JPRB,0.47530E-01_JPRB, &
+ & 0.40495E-01_JPRB,0.32809E-01_JPRB,0.24930E-01_JPRB,0.23016E-01_JPRB /)  
+KA(:, 5,11,11) = (/ &
+ & 0.68639E-01_JPRB,0.65010E-01_JPRB,0.60484E-01_JPRB,0.54605E-01_JPRB,0.48370E-01_JPRB, &
+ & 0.41561E-01_JPRB,0.34350E-01_JPRB,0.26933E-01_JPRB,0.26488E-01_JPRB /)  
+KA(:, 1,12,11) = (/ &
+ & 0.71529E-01_JPRB,0.66044E-01_JPRB,0.61072E-01_JPRB,0.54140E-01_JPRB,0.46654E-01_JPRB, &
+ & 0.38794E-01_JPRB,0.29996E-01_JPRB,0.20236E-01_JPRB,0.16124E-01_JPRB /)  
+KA(:, 2,12,11) = (/ &
+ & 0.71291E-01_JPRB,0.66315E-01_JPRB,0.61418E-01_JPRB,0.54500E-01_JPRB,0.47446E-01_JPRB, &
+ & 0.39590E-01_JPRB,0.30905E-01_JPRB,0.21401E-01_JPRB,0.17542E-01_JPRB /)  
+KA(:, 3,12,11) = (/ &
+ & 0.71222E-01_JPRB,0.66826E-01_JPRB,0.61770E-01_JPRB,0.55219E-01_JPRB,0.48148E-01_JPRB, &
+ & 0.40334E-01_JPRB,0.31908E-01_JPRB,0.22727E-01_JPRB,0.19804E-01_JPRB /)  
+KA(:, 4,12,11) = (/ &
+ & 0.71079E-01_JPRB,0.67236E-01_JPRB,0.62161E-01_JPRB,0.55849E-01_JPRB,0.48917E-01_JPRB, &
+ & 0.41311E-01_JPRB,0.33042E-01_JPRB,0.24356E-01_JPRB,0.21082E-01_JPRB /)  
+KA(:, 5,12,11) = (/ &
+ & 0.70901E-01_JPRB,0.67518E-01_JPRB,0.62549E-01_JPRB,0.56439E-01_JPRB,0.49900E-01_JPRB, &
+ & 0.42406E-01_JPRB,0.34548E-01_JPRB,0.26106E-01_JPRB,0.23666E-01_JPRB /)  
+KA(:, 1,13,11) = (/ &
+ & 0.73149E-01_JPRB,0.67708E-01_JPRB,0.62294E-01_JPRB,0.54947E-01_JPRB,0.47337E-01_JPRB, &
+ & 0.39165E-01_JPRB,0.30053E-01_JPRB,0.20069E-01_JPRB,0.15304E-01_JPRB /)  
+KA(:, 2,13,11) = (/ &
+ & 0.73122E-01_JPRB,0.68287E-01_JPRB,0.62803E-01_JPRB,0.55664E-01_JPRB,0.48241E-01_JPRB, &
+ & 0.39986E-01_JPRB,0.31044E-01_JPRB,0.21133E-01_JPRB,0.17384E-01_JPRB /)  
+KA(:, 3,13,11) = (/ &
+ & 0.73057E-01_JPRB,0.68826E-01_JPRB,0.63303E-01_JPRB,0.56536E-01_JPRB,0.49104E-01_JPRB, &
+ & 0.40926E-01_JPRB,0.32050E-01_JPRB,0.22349E-01_JPRB,0.18964E-01_JPRB /)  
+KA(:, 4,13,11) = (/ &
+ & 0.73037E-01_JPRB,0.69286E-01_JPRB,0.63846E-01_JPRB,0.57252E-01_JPRB,0.50018E-01_JPRB, &
+ & 0.42025E-01_JPRB,0.33217E-01_JPRB,0.23850E-01_JPRB,0.20572E-01_JPRB /)  
+KA(:, 5,13,11) = (/ &
+ & 0.73013E-01_JPRB,0.69604E-01_JPRB,0.64290E-01_JPRB,0.57954E-01_JPRB,0.51076E-01_JPRB, &
+ & 0.43212E-01_JPRB,0.34653E-01_JPRB,0.25391E-01_JPRB,0.23448E-01_JPRB /)  
+KA(:, 1, 1,12) = (/ &
+ & 0.43248E-01_JPRB,0.41017E-01_JPRB,0.40213E-01_JPRB,0.39821E-01_JPRB,0.45256E-01_JPRB, &
+ & 0.55821E-01_JPRB,0.66932E-01_JPRB,0.78037E-01_JPRB,0.88086E-01_JPRB /)  
+KA(:, 2, 1,12) = (/ &
+ & 0.42407E-01_JPRB,0.40307E-01_JPRB,0.40078E-01_JPRB,0.40681E-01_JPRB,0.47543E-01_JPRB, &
+ & 0.59099E-01_JPRB,0.70845E-01_JPRB,0.82585E-01_JPRB,0.93228E-01_JPRB /)  
+KA(:, 3, 1,12) = (/ &
+ & 0.41692E-01_JPRB,0.39727E-01_JPRB,0.39865E-01_JPRB,0.41830E-01_JPRB,0.50093E-01_JPRB, &
+ & 0.62450E-01_JPRB,0.74841E-01_JPRB,0.87232E-01_JPRB,0.98476E-01_JPRB /)  
+KA(:, 4, 1,12) = (/ &
+ & 0.41002E-01_JPRB,0.39248E-01_JPRB,0.39945E-01_JPRB,0.42942E-01_JPRB,0.52768E-01_JPRB, &
+ & 0.65829E-01_JPRB,0.78890E-01_JPRB,0.91937E-01_JPRB,0.10362E+00_JPRB /)  
+KA(:, 5, 1,12) = (/ &
+ & 0.40428E-01_JPRB,0.39045E-01_JPRB,0.40116E-01_JPRB,0.44981E-01_JPRB,0.56655E-01_JPRB, &
+ & 0.70681E-01_JPRB,0.84705E-01_JPRB,0.98731E-01_JPRB,0.11111E+00_JPRB /)  
+KA(:, 1, 2,12) = (/ &
+ & 0.47227E-01_JPRB,0.44198E-01_JPRB,0.42698E-01_JPRB,0.42511E-01_JPRB,0.46394E-01_JPRB, &
+ & 0.55784E-01_JPRB,0.66888E-01_JPRB,0.77989E-01_JPRB,0.88812E-01_JPRB /)  
+KA(:, 2, 2,12) = (/ &
+ & 0.46375E-01_JPRB,0.43473E-01_JPRB,0.42428E-01_JPRB,0.43299E-01_JPRB,0.48252E-01_JPRB, &
+ & 0.59000E-01_JPRB,0.70708E-01_JPRB,0.82423E-01_JPRB,0.93885E-01_JPRB /)  
+KA(:, 3, 2,12) = (/ &
+ & 0.45650E-01_JPRB,0.42988E-01_JPRB,0.42307E-01_JPRB,0.44252E-01_JPRB,0.50414E-01_JPRB, &
+ & 0.62373E-01_JPRB,0.74750E-01_JPRB,0.87127E-01_JPRB,0.99197E-01_JPRB /)  
+KA(:, 4, 2,12) = (/ &
+ & 0.44980E-01_JPRB,0.42686E-01_JPRB,0.42476E-01_JPRB,0.45355E-01_JPRB,0.53027E-01_JPRB, &
+ & 0.66067E-01_JPRB,0.79179E-01_JPRB,0.92288E-01_JPRB,0.10480E+00_JPRB /)  
+KA(:, 5, 2,12) = (/ &
+ & 0.44383E-01_JPRB,0.42475E-01_JPRB,0.42723E-01_JPRB,0.47155E-01_JPRB,0.57007E-01_JPRB, &
+ & 0.71138E-01_JPRB,0.85276E-01_JPRB,0.99396E-01_JPRB,0.11272E+00_JPRB /)  
+KA(:, 1, 3,12) = (/ &
+ & 0.51829E-01_JPRB,0.48303E-01_JPRB,0.45805E-01_JPRB,0.45348E-01_JPRB,0.47474E-01_JPRB, &
+ & 0.53773E-01_JPRB,0.64381E-01_JPRB,0.75065E-01_JPRB,0.85879E-01_JPRB /)  
+KA(:, 2, 3,12) = (/ &
+ & 0.50945E-01_JPRB,0.47626E-01_JPRB,0.45531E-01_JPRB,0.46104E-01_JPRB,0.48805E-01_JPRB, &
+ & 0.57008E-01_JPRB,0.68342E-01_JPRB,0.79675E-01_JPRB,0.91103E-01_JPRB /)  
+KA(:, 3, 3,12) = (/ &
+ & 0.50329E-01_JPRB,0.47163E-01_JPRB,0.45393E-01_JPRB,0.46795E-01_JPRB,0.50514E-01_JPRB, &
+ & 0.60488E-01_JPRB,0.72503E-01_JPRB,0.84519E-01_JPRB,0.96625E-01_JPRB /)  
+KA(:, 4, 3,12) = (/ &
+ & 0.49725E-01_JPRB,0.46894E-01_JPRB,0.45600E-01_JPRB,0.47784E-01_JPRB,0.52670E-01_JPRB, &
+ & 0.64382E-01_JPRB,0.77172E-01_JPRB,0.89966E-01_JPRB,0.10271E+00_JPRB /)  
+KA(:, 5, 3,12) = (/ &
+ & 0.49109E-01_JPRB,0.46633E-01_JPRB,0.45896E-01_JPRB,0.49191E-01_JPRB,0.56129E-01_JPRB, &
+ & 0.69438E-01_JPRB,0.83245E-01_JPRB,0.97061E-01_JPRB,0.11071E+00_JPRB /)  
+KA(:, 1, 4,12) = (/ &
+ & 0.57082E-01_JPRB,0.53110E-01_JPRB,0.49763E-01_JPRB,0.48460E-01_JPRB,0.48719E-01_JPRB, &
+ & 0.51181E-01_JPRB,0.59984E-01_JPRB,0.69952E-01_JPRB,0.80045E-01_JPRB /)  
+KA(:, 2, 4,12) = (/ &
+ & 0.56133E-01_JPRB,0.52450E-01_JPRB,0.49568E-01_JPRB,0.49064E-01_JPRB,0.49725E-01_JPRB, &
+ & 0.54041E-01_JPRB,0.64091E-01_JPRB,0.74728E-01_JPRB,0.85496E-01_JPRB /)  
+KA(:, 3, 4,12) = (/ &
+ & 0.55439E-01_JPRB,0.51866E-01_JPRB,0.49497E-01_JPRB,0.49475E-01_JPRB,0.51076E-01_JPRB, &
+ & 0.57243E-01_JPRB,0.68327E-01_JPRB,0.79652E-01_JPRB,0.91098E-01_JPRB /)  
+KA(:, 4, 4,12) = (/ &
+ & 0.54777E-01_JPRB,0.51575E-01_JPRB,0.49681E-01_JPRB,0.50221E-01_JPRB,0.52765E-01_JPRB, &
+ & 0.61084E-01_JPRB,0.73197E-01_JPRB,0.85337E-01_JPRB,0.97552E-01_JPRB /)  
+KA(:, 5, 4,12) = (/ &
+ & 0.54098E-01_JPRB,0.51233E-01_JPRB,0.49878E-01_JPRB,0.51295E-01_JPRB,0.55484E-01_JPRB, &
+ & 0.66162E-01_JPRB,0.79298E-01_JPRB,0.92434E-01_JPRB,0.10558E+00_JPRB /)  
+KA(:, 1, 5,12) = (/ &
+ & 0.62544E-01_JPRB,0.58281E-01_JPRB,0.54351E-01_JPRB,0.52107E-01_JPRB,0.50211E-01_JPRB, &
+ & 0.49416E-01_JPRB,0.54519E-01_JPRB,0.63528E-01_JPRB,0.72634E-01_JPRB /)  
+KA(:, 2, 5,12) = (/ &
+ & 0.61658E-01_JPRB,0.57644E-01_JPRB,0.54210E-01_JPRB,0.52563E-01_JPRB,0.50949E-01_JPRB, &
+ & 0.51794E-01_JPRB,0.58802E-01_JPRB,0.68560E-01_JPRB,0.78383E-01_JPRB /)  
+KA(:, 3, 5,12) = (/ &
+ & 0.60918E-01_JPRB,0.57016E-01_JPRB,0.54117E-01_JPRB,0.52719E-01_JPRB,0.52074E-01_JPRB, &
+ & 0.54457E-01_JPRB,0.63161E-01_JPRB,0.73629E-01_JPRB,0.84158E-01_JPRB /)  
+KA(:, 4, 5,12) = (/ &
+ & 0.60164E-01_JPRB,0.56692E-01_JPRB,0.54302E-01_JPRB,0.53086E-01_JPRB,0.53404E-01_JPRB, &
+ & 0.57689E-01_JPRB,0.68126E-01_JPRB,0.79422E-01_JPRB,0.90757E-01_JPRB /)  
+KA(:, 5, 5,12) = (/ &
+ & 0.59366E-01_JPRB,0.56267E-01_JPRB,0.54377E-01_JPRB,0.53811E-01_JPRB,0.55627E-01_JPRB, &
+ & 0.62331E-01_JPRB,0.74295E-01_JPRB,0.86596E-01_JPRB,0.98923E-01_JPRB /)  
+KA(:, 1, 6,12) = (/ &
+ & 0.68500E-01_JPRB,0.63504E-01_JPRB,0.59102E-01_JPRB,0.56112E-01_JPRB,0.52198E-01_JPRB, &
+ & 0.48725E-01_JPRB,0.49458E-01_JPRB,0.56540E-01_JPRB,0.64611E-01_JPRB /)  
+KA(:, 2, 6,12) = (/ &
+ & 0.67642E-01_JPRB,0.62951E-01_JPRB,0.59010E-01_JPRB,0.56509E-01_JPRB,0.52640E-01_JPRB, &
+ & 0.50781E-01_JPRB,0.53492E-01_JPRB,0.61845E-01_JPRB,0.70650E-01_JPRB /)  
+KA(:, 3, 6,12) = (/ &
+ & 0.66730E-01_JPRB,0.62270E-01_JPRB,0.58880E-01_JPRB,0.56541E-01_JPRB,0.53578E-01_JPRB, &
+ & 0.52912E-01_JPRB,0.57553E-01_JPRB,0.66900E-01_JPRB,0.76420E-01_JPRB /)  
+KA(:, 4, 6,12) = (/ &
+ & 0.65853E-01_JPRB,0.61851E-01_JPRB,0.59079E-01_JPRB,0.56674E-01_JPRB,0.54628E-01_JPRB, &
+ & 0.55405E-01_JPRB,0.62327E-01_JPRB,0.72621E-01_JPRB,0.82946E-01_JPRB /)  
+KA(:, 5, 6,12) = (/ &
+ & 0.64917E-01_JPRB,0.61395E-01_JPRB,0.59088E-01_JPRB,0.57140E-01_JPRB,0.56317E-01_JPRB, &
+ & 0.59242E-01_JPRB,0.68519E-01_JPRB,0.79819E-01_JPRB,0.91147E-01_JPRB /)  
+KA(:, 1, 7,12) = (/ &
+ & 0.74814E-01_JPRB,0.69115E-01_JPRB,0.63783E-01_JPRB,0.59970E-01_JPRB,0.54833E-01_JPRB, &
+ & 0.49011E-01_JPRB,0.46051E-01_JPRB,0.49756E-01_JPRB,0.56816E-01_JPRB /)  
+KA(:, 2, 7,12) = (/ &
+ & 0.73755E-01_JPRB,0.68509E-01_JPRB,0.63672E-01_JPRB,0.60441E-01_JPRB,0.55205E-01_JPRB, &
+ & 0.50759E-01_JPRB,0.49447E-01_JPRB,0.55044E-01_JPRB,0.62843E-01_JPRB /)  
+KA(:, 3, 7,12) = (/ &
+ & 0.72664E-01_JPRB,0.67698E-01_JPRB,0.63630E-01_JPRB,0.60499E-01_JPRB,0.55993E-01_JPRB, &
+ & 0.52467E-01_JPRB,0.52809E-01_JPRB,0.59966E-01_JPRB,0.68463E-01_JPRB /)  
+KA(:, 4, 7,12) = (/ &
+ & 0.71633E-01_JPRB,0.67174E-01_JPRB,0.63866E-01_JPRB,0.60581E-01_JPRB,0.56744E-01_JPRB, &
+ & 0.54377E-01_JPRB,0.56941E-01_JPRB,0.65640E-01_JPRB,0.74923E-01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART8',1,ZHOOK_HANDLE)
+END SUBROUTINE PART8
+
+
+SUBROUTINE PART9
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART9',0,ZHOOK_HANDLE)
+
+
+KA(:, 5, 7,12) = (/ &
+ & 0.70621E-01_JPRB,0.66745E-01_JPRB,0.63972E-01_JPRB,0.60930E-01_JPRB,0.57801E-01_JPRB, &
+ & 0.57488E-01_JPRB,0.62631E-01_JPRB,0.72711E-01_JPRB,0.82984E-01_JPRB /)  
+KA(:, 1, 8,12) = (/ &
+ & 0.81108E-01_JPRB,0.74731E-01_JPRB,0.68669E-01_JPRB,0.63699E-01_JPRB,0.57482E-01_JPRB, &
+ & 0.50207E-01_JPRB,0.44226E-01_JPRB,0.43565E-01_JPRB,0.49479E-01_JPRB /)  
+KA(:, 2, 8,12) = (/ &
+ & 0.79714E-01_JPRB,0.73898E-01_JPRB,0.68659E-01_JPRB,0.64276E-01_JPRB,0.57881E-01_JPRB, &
+ & 0.51786E-01_JPRB,0.46974E-01_JPRB,0.48378E-01_JPRB,0.55162E-01_JPRB /)  
+KA(:, 3, 8,12) = (/ &
+ & 0.78456E-01_JPRB,0.73135E-01_JPRB,0.68758E-01_JPRB,0.64370E-01_JPRB,0.58662E-01_JPRB, &
+ & 0.53164E-01_JPRB,0.49684E-01_JPRB,0.53168E-01_JPRB,0.60666E-01_JPRB /)  
+KA(:, 4, 8,12) = (/ &
+ & 0.77309E-01_JPRB,0.72680E-01_JPRB,0.69000E-01_JPRB,0.64433E-01_JPRB,0.59353E-01_JPRB, &
+ & 0.54540E-01_JPRB,0.53042E-01_JPRB,0.58717E-01_JPRB,0.66992E-01_JPRB /)  
+KA(:, 5, 8,12) = (/ &
+ & 0.76406E-01_JPRB,0.72288E-01_JPRB,0.69084E-01_JPRB,0.64775E-01_JPRB,0.60105E-01_JPRB, &
+ & 0.56876E-01_JPRB,0.57740E-01_JPRB,0.65467E-01_JPRB,0.74695E-01_JPRB /)  
+KA(:, 1, 9,12) = (/ &
+ & 0.87281E-01_JPRB,0.80336E-01_JPRB,0.73586E-01_JPRB,0.67589E-01_JPRB,0.60164E-01_JPRB, &
+ & 0.51553E-01_JPRB,0.43512E-01_JPRB,0.38366E-01_JPRB,0.42260E-01_JPRB /)  
+KA(:, 2, 9,12) = (/ &
+ & 0.85638E-01_JPRB,0.79229E-01_JPRB,0.73710E-01_JPRB,0.68169E-01_JPRB,0.60640E-01_JPRB, &
+ & 0.53028E-01_JPRB,0.45744E-01_JPRB,0.42413E-01_JPRB,0.47570E-01_JPRB /)  
+KA(:, 3, 9,12) = (/ &
+ & 0.84292E-01_JPRB,0.78481E-01_JPRB,0.73900E-01_JPRB,0.68269E-01_JPRB,0.61342E-01_JPRB, &
+ & 0.54381E-01_JPRB,0.47902E-01_JPRB,0.46760E-01_JPRB,0.52980E-01_JPRB /)  
+KA(:, 4, 9,12) = (/ &
+ & 0.83115E-01_JPRB,0.77996E-01_JPRB,0.74142E-01_JPRB,0.68304E-01_JPRB,0.62073E-01_JPRB, &
+ & 0.55597E-01_JPRB,0.50525E-01_JPRB,0.51779E-01_JPRB,0.58954E-01_JPRB /)  
+KA(:, 5, 9,12) = (/ &
+ & 0.82186E-01_JPRB,0.77706E-01_JPRB,0.74161E-01_JPRB,0.68663E-01_JPRB,0.62685E-01_JPRB, &
+ & 0.57315E-01_JPRB,0.54189E-01_JPRB,0.58003E-01_JPRB,0.66142E-01_JPRB /)  
+KA(:, 1,10,12) = (/ &
+ & 0.93285E-01_JPRB,0.85813E-01_JPRB,0.78575E-01_JPRB,0.71552E-01_JPRB,0.62937E-01_JPRB, &
+ & 0.53130E-01_JPRB,0.43544E-01_JPRB,0.34852E-01_JPRB,0.25971E-01_JPRB /)  
+KA(:, 2,10,12) = (/ &
+ & 0.91673E-01_JPRB,0.84652E-01_JPRB,0.78625E-01_JPRB,0.72093E-01_JPRB,0.63376E-01_JPRB, &
+ & 0.54541E-01_JPRB,0.45576E-01_JPRB,0.38102E-01_JPRB,0.28356E-01_JPRB /)  
+KA(:, 3,10,12) = (/ &
+ & 0.90273E-01_JPRB,0.83828E-01_JPRB,0.78840E-01_JPRB,0.72190E-01_JPRB,0.64026E-01_JPRB, &
+ & 0.55889E-01_JPRB,0.47404E-01_JPRB,0.41695E-01_JPRB,0.31456E-01_JPRB /)  
+KA(:, 4,10,12) = (/ &
+ & 0.88982E-01_JPRB,0.83233E-01_JPRB,0.79026E-01_JPRB,0.72231E-01_JPRB,0.64765E-01_JPRB, &
+ & 0.57025E-01_JPRB,0.49463E-01_JPRB,0.46003E-01_JPRB,0.35501E-01_JPRB /)  
+KA(:, 5,10,12) = (/ &
+ & 0.88015E-01_JPRB,0.82954E-01_JPRB,0.78987E-01_JPRB,0.72605E-01_JPRB,0.65378E-01_JPRB, &
+ & 0.58432E-01_JPRB,0.52293E-01_JPRB,0.51371E-01_JPRB,0.39951E-01_JPRB /)  
+KA(:, 1,11,12) = (/ &
+ & 0.98224E-01_JPRB,0.90470E-01_JPRB,0.83283E-01_JPRB,0.75729E-01_JPRB,0.65953E-01_JPRB, &
+ & 0.55333E-01_JPRB,0.44607E-01_JPRB,0.33712E-01_JPRB,0.29825E-01_JPRB /)  
+KA(:, 2,11,12) = (/ &
+ & 0.96868E-01_JPRB,0.89565E-01_JPRB,0.83537E-01_JPRB,0.76001E-01_JPRB,0.66302E-01_JPRB, &
+ & 0.56711E-01_JPRB,0.46387E-01_JPRB,0.36339E-01_JPRB,0.33228E-01_JPRB /)  
+KA(:, 3,11,12) = (/ &
+ & 0.95464E-01_JPRB,0.88759E-01_JPRB,0.83774E-01_JPRB,0.75894E-01_JPRB,0.67115E-01_JPRB, &
+ & 0.57847E-01_JPRB,0.48034E-01_JPRB,0.39456E-01_JPRB,0.36088E-01_JPRB /)  
+KA(:, 4,11,12) = (/ &
+ & 0.94340E-01_JPRB,0.88366E-01_JPRB,0.83721E-01_JPRB,0.76044E-01_JPRB,0.67766E-01_JPRB, &
+ & 0.58947E-01_JPRB,0.50010E-01_JPRB,0.43247E-01_JPRB,0.40125E-01_JPRB /)  
+KA(:, 5,11,12) = (/ &
+ & 0.93518E-01_JPRB,0.88039E-01_JPRB,0.83475E-01_JPRB,0.76422E-01_JPRB,0.68414E-01_JPRB, &
+ & 0.60495E-01_JPRB,0.52431E-01_JPRB,0.48069E-01_JPRB,0.44798E-01_JPRB /)  
+KA(:, 1,12,12) = (/ &
+ & 0.10275E+00_JPRB,0.94729E-01_JPRB,0.87688E-01_JPRB,0.79394E-01_JPRB,0.68734E-01_JPRB, &
+ & 0.57476E-01_JPRB,0.45697E-01_JPRB,0.32943E-01_JPRB,0.29614E-01_JPRB /)  
+KA(:, 2,12,12) = (/ &
+ & 0.10159E+00_JPRB,0.94167E-01_JPRB,0.88202E-01_JPRB,0.79488E-01_JPRB,0.69232E-01_JPRB, &
+ & 0.58694E-01_JPRB,0.47208E-01_JPRB,0.35215E-01_JPRB,0.33437E-01_JPRB /)  
+KA(:, 3,12,12) = (/ &
+ & 0.10046E+00_JPRB,0.93671E-01_JPRB,0.88347E-01_JPRB,0.79409E-01_JPRB,0.69985E-01_JPRB, &
+ & 0.59703E-01_JPRB,0.48739E-01_JPRB,0.37920E-01_JPRB,0.36670E-01_JPRB /)  
+KA(:, 4,12,12) = (/ &
+ & 0.99712E-01_JPRB,0.93473E-01_JPRB,0.88135E-01_JPRB,0.79671E-01_JPRB,0.70541E-01_JPRB, &
+ & 0.60786E-01_JPRB,0.50658E-01_JPRB,0.41158E-01_JPRB,0.41155E-01_JPRB /)  
+KA(:, 5,12,12) = (/ &
+ & 0.99052E-01_JPRB,0.93236E-01_JPRB,0.87897E-01_JPRB,0.79933E-01_JPRB,0.71310E-01_JPRB, &
+ & 0.62364E-01_JPRB,0.52850E-01_JPRB,0.45390E-01_JPRB,0.47055E-01_JPRB /)  
+KA(:, 1,13,12) = (/ &
+ & 0.10693E+00_JPRB,0.98594E-01_JPRB,0.91730E-01_JPRB,0.82575E-01_JPRB,0.71131E-01_JPRB, &
+ & 0.59390E-01_JPRB,0.46621E-01_JPRB,0.32428E-01_JPRB,0.26794E-01_JPRB /)  
+KA(:, 2,13,12) = (/ &
+ & 0.10593E+00_JPRB,0.98329E-01_JPRB,0.92368E-01_JPRB,0.82651E-01_JPRB,0.71827E-01_JPRB, &
+ & 0.60538E-01_JPRB,0.47868E-01_JPRB,0.34468E-01_JPRB,0.29114E-01_JPRB /)  
+KA(:, 3,13,12) = (/ &
+ & 0.10521E+00_JPRB,0.98305E-01_JPRB,0.92444E-01_JPRB,0.82725E-01_JPRB,0.72549E-01_JPRB, &
+ & 0.61456E-01_JPRB,0.49349E-01_JPRB,0.36800E-01_JPRB,0.32781E-01_JPRB /)  
+KA(:, 4,13,12) = (/ &
+ & 0.10471E+00_JPRB,0.98393E-01_JPRB,0.92240E-01_JPRB,0.83082E-01_JPRB,0.73117E-01_JPRB, &
+ & 0.62504E-01_JPRB,0.51152E-01_JPRB,0.39616E-01_JPRB,0.37780E-01_JPRB /)  
+KA(:, 5,13,12) = (/ &
+ & 0.10409E+00_JPRB,0.98364E-01_JPRB,0.92131E-01_JPRB,0.83350E-01_JPRB,0.73995E-01_JPRB, &
+ & 0.64047E-01_JPRB,0.53327E-01_JPRB,0.43375E-01_JPRB,0.42285E-01_JPRB /)  
+KA(:, 1, 1,13) = (/ &
+ & 0.52810E-01_JPRB,0.49450E-01_JPRB,0.49647E-01_JPRB,0.57104E-01_JPRB,0.73433E-01_JPRB, &
+ & 0.91743E-01_JPRB,0.11005E+00_JPRB,0.12834E+00_JPRB,0.14491E+00_JPRB /)  
+KA(:, 2, 1,13) = (/ &
+ & 0.51653E-01_JPRB,0.48971E-01_JPRB,0.50186E-01_JPRB,0.59440E-01_JPRB,0.77723E-01_JPRB, &
+ & 0.97098E-01_JPRB,0.11647E+00_JPRB,0.13583E+00_JPRB,0.15375E+00_JPRB /)  
+KA(:, 3, 1,13) = (/ &
+ & 0.50696E-01_JPRB,0.48582E-01_JPRB,0.50737E-01_JPRB,0.61667E-01_JPRB,0.81568E-01_JPRB, &
+ & 0.10190E+00_JPRB,0.12223E+00_JPRB,0.14254E+00_JPRB,0.16133E+00_JPRB /)  
+KA(:, 4, 1,13) = (/ &
+ & 0.49759E-01_JPRB,0.48321E-01_JPRB,0.51484E-01_JPRB,0.64441E-01_JPRB,0.85673E-01_JPRB, &
+ & 0.10703E+00_JPRB,0.12837E+00_JPRB,0.14971E+00_JPRB,0.16936E+00_JPRB /)  
+KA(:, 5, 1,13) = (/ &
+ & 0.48804E-01_JPRB,0.48067E-01_JPRB,0.52560E-01_JPRB,0.67354E-01_JPRB,0.89656E-01_JPRB, &
+ & 0.11200E+00_JPRB,0.13434E+00_JPRB,0.15666E+00_JPRB,0.17718E+00_JPRB /)  
+KA(:, 1, 2,13) = (/ &
+ & 0.57042E-01_JPRB,0.54069E-01_JPRB,0.53905E-01_JPRB,0.58729E-01_JPRB,0.73592E-01_JPRB, &
+ & 0.91941E-01_JPRB,0.11029E+00_JPRB,0.12863E+00_JPRB,0.14602E+00_JPRB /)  
+KA(:, 2, 2,13) = (/ &
+ & 0.55841E-01_JPRB,0.53550E-01_JPRB,0.54566E-01_JPRB,0.60781E-01_JPRB,0.78168E-01_JPRB, &
+ & 0.97652E-01_JPRB,0.11714E+00_JPRB,0.13661E+00_JPRB,0.15506E+00_JPRB /)  
+KA(:, 3, 2,13) = (/ &
+ & 0.54920E-01_JPRB,0.52981E-01_JPRB,0.54943E-01_JPRB,0.62919E-01_JPRB,0.82379E-01_JPRB, &
+ & 0.10292E+00_JPRB,0.12345E+00_JPRB,0.14397E+00_JPRB,0.16344E+00_JPRB /)  
+KA(:, 4, 2,13) = (/ &
+ & 0.54055E-01_JPRB,0.52591E-01_JPRB,0.55488E-01_JPRB,0.65511E-01_JPRB,0.86681E-01_JPRB, &
+ & 0.10829E+00_JPRB,0.12990E+00_JPRB,0.15147E+00_JPRB,0.17196E+00_JPRB /)  
+KA(:, 5, 2,13) = (/ &
+ & 0.53226E-01_JPRB,0.52334E-01_JPRB,0.56238E-01_JPRB,0.68429E-01_JPRB,0.90830E-01_JPRB, &
+ & 0.11345E+00_JPRB,0.13607E+00_JPRB,0.15868E+00_JPRB,0.17998E+00_JPRB /)  
+KA(:, 1, 3,13) = (/ &
+ & 0.62670E-01_JPRB,0.59309E-01_JPRB,0.58772E-01_JPRB,0.61122E-01_JPRB,0.72960E-01_JPRB, &
+ & 0.91113E-01_JPRB,0.10930E+00_JPRB,0.12747E+00_JPRB,0.14514E+00_JPRB /)  
+KA(:, 2, 3,13) = (/ &
+ & 0.61411E-01_JPRB,0.58632E-01_JPRB,0.59230E-01_JPRB,0.62688E-01_JPRB,0.77748E-01_JPRB, &
+ & 0.97139E-01_JPRB,0.11652E+00_JPRB,0.13590E+00_JPRB,0.15479E+00_JPRB /)  
+KA(:, 3, 3,13) = (/ &
+ & 0.60334E-01_JPRB,0.57923E-01_JPRB,0.59411E-01_JPRB,0.64539E-01_JPRB,0.82093E-01_JPRB, &
+ & 0.10257E+00_JPRB,0.12305E+00_JPRB,0.14350E+00_JPRB,0.16343E+00_JPRB /)  
+KA(:, 4, 3,13) = (/ &
+ & 0.59451E-01_JPRB,0.57416E-01_JPRB,0.59633E-01_JPRB,0.66820E-01_JPRB,0.86494E-01_JPRB, &
+ & 0.10804E+00_JPRB,0.12960E+00_JPRB,0.15112E+00_JPRB,0.17209E+00_JPRB /)  
+KA(:, 5, 3,13) = (/ &
+ & 0.58597E-01_JPRB,0.57143E-01_JPRB,0.60240E-01_JPRB,0.69594E-01_JPRB,0.91059E-01_JPRB, &
+ & 0.11373E+00_JPRB,0.13640E+00_JPRB,0.15905E+00_JPRB,0.18103E+00_JPRB /)  
+KA(:, 1, 4,13) = (/ &
+ & 0.69822E-01_JPRB,0.65601E-01_JPRB,0.63945E-01_JPRB,0.64755E-01_JPRB,0.73038E-01_JPRB, &
+ & 0.90165E-01_JPRB,0.10817E+00_JPRB,0.12616E+00_JPRB,0.14389E+00_JPRB /)  
+KA(:, 2, 4,13) = (/ &
+ & 0.68507E-01_JPRB,0.64727E-01_JPRB,0.64234E-01_JPRB,0.66213E-01_JPRB,0.77749E-01_JPRB, &
+ & 0.96668E-01_JPRB,0.11597E+00_JPRB,0.13524E+00_JPRB,0.15427E+00_JPRB /)  
+KA(:, 3, 4,13) = (/ &
+ & 0.67276E-01_JPRB,0.63962E-01_JPRB,0.64238E-01_JPRB,0.67909E-01_JPRB,0.82185E-01_JPRB, &
+ & 0.10254E+00_JPRB,0.12301E+00_JPRB,0.14345E+00_JPRB,0.16365E+00_JPRB /)  
+KA(:, 4, 4,13) = (/ &
+ & 0.66381E-01_JPRB,0.63334E-01_JPRB,0.64220E-01_JPRB,0.69770E-01_JPRB,0.86724E-01_JPRB, &
+ & 0.10832E+00_JPRB,0.12994E+00_JPRB,0.15151E+00_JPRB,0.17282E+00_JPRB /)  
+KA(:, 5, 4,13) = (/ &
+ & 0.65437E-01_JPRB,0.62972E-01_JPRB,0.64673E-01_JPRB,0.72222E-01_JPRB,0.91630E-01_JPRB, &
+ & 0.11445E+00_JPRB,0.13728E+00_JPRB,0.16006E+00_JPRB,0.18257E+00_JPRB /)  
+KA(:, 1, 5,13) = (/ &
+ & 0.78344E-01_JPRB,0.73091E-01_JPRB,0.69713E-01_JPRB,0.69214E-01_JPRB,0.74668E-01_JPRB, &
+ & 0.88915E-01_JPRB,0.10667E+00_JPRB,0.12441E+00_JPRB,0.14209E+00_JPRB /)  
+KA(:, 2, 5,13) = (/ &
+ & 0.76773E-01_JPRB,0.71981E-01_JPRB,0.69752E-01_JPRB,0.70736E-01_JPRB,0.78904E-01_JPRB, &
+ & 0.95797E-01_JPRB,0.11493E+00_JPRB,0.13406E+00_JPRB,0.15311E+00_JPRB /)  
+KA(:, 3, 5,13) = (/ &
+ & 0.75310E-01_JPRB,0.71068E-01_JPRB,0.69651E-01_JPRB,0.72503E-01_JPRB,0.83070E-01_JPRB, &
+ & 0.10214E+00_JPRB,0.12251E+00_JPRB,0.14289E+00_JPRB,0.16320E+00_JPRB /)  
+KA(:, 4, 5,13) = (/ &
+ & 0.74250E-01_JPRB,0.70202E-01_JPRB,0.69499E-01_JPRB,0.74333E-01_JPRB,0.87301E-01_JPRB, &
+ & 0.10818E+00_JPRB,0.12976E+00_JPRB,0.15132E+00_JPRB,0.17281E+00_JPRB /)  
+KA(:, 5, 5,13) = (/ &
+ & 0.73209E-01_JPRB,0.69739E-01_JPRB,0.69847E-01_JPRB,0.76315E-01_JPRB,0.91870E-01_JPRB, &
+ & 0.11438E+00_JPRB,0.13720E+00_JPRB,0.16000E+00_JPRB,0.18274E+00_JPRB /)  
+KA(:, 1, 6,13) = (/ &
+ & 0.87696E-01_JPRB,0.81522E-01_JPRB,0.76509E-01_JPRB,0.74345E-01_JPRB,0.77107E-01_JPRB, &
+ & 0.86456E-01_JPRB,0.10266E+00_JPRB,0.11975E+00_JPRB,0.13684E+00_JPRB /)  
+KA(:, 2, 6,13) = (/ &
+ & 0.85834E-01_JPRB,0.80104E-01_JPRB,0.76319E-01_JPRB,0.75879E-01_JPRB,0.80970E-01_JPRB, &
+ & 0.93234E-01_JPRB,0.11135E+00_JPRB,0.12988E+00_JPRB,0.14843E+00_JPRB /)  
+KA(:, 3, 6,13) = (/ &
+ & 0.84103E-01_JPRB,0.79034E-01_JPRB,0.76204E-01_JPRB,0.77685E-01_JPRB,0.84459E-01_JPRB, &
+ & 0.99600E-01_JPRB,0.11936E+00_JPRB,0.13921E+00_JPRB,0.15907E+00_JPRB /)  
+KA(:, 4, 6,13) = (/ &
+ & 0.82699E-01_JPRB,0.78102E-01_JPRB,0.75915E-01_JPRB,0.79277E-01_JPRB,0.87923E-01_JPRB, &
+ & 0.10572E+00_JPRB,0.12681E+00_JPRB,0.14791E+00_JPRB,0.16901E+00_JPRB /)  
+KA(:, 5, 6,13) = (/ &
+ & 0.81604E-01_JPRB,0.77529E-01_JPRB,0.76175E-01_JPRB,0.80727E-01_JPRB,0.91640E-01_JPRB, &
+ & 0.11182E+00_JPRB,0.13414E+00_JPRB,0.15644E+00_JPRB,0.17875E+00_JPRB /)  
+KA(:, 1, 7,13) = (/ &
+ & 0.97322E-01_JPRB,0.90329E-01_JPRB,0.84313E-01_JPRB,0.80452E-01_JPRB,0.80118E-01_JPRB, &
+ & 0.84204E-01_JPRB,0.96138E-01_JPRB,0.11212E+00_JPRB,0.12812E+00_JPRB /)  
+KA(:, 2, 7,13) = (/ &
+ & 0.95378E-01_JPRB,0.88856E-01_JPRB,0.83999E-01_JPRB,0.81744E-01_JPRB,0.83529E-01_JPRB, &
+ & 0.90072E-01_JPRB,0.10504E+00_JPRB,0.12254E+00_JPRB,0.14003E+00_JPRB /)  
+KA(:, 3, 7,13) = (/ &
+ & 0.93471E-01_JPRB,0.87725E-01_JPRB,0.83968E-01_JPRB,0.83424E-01_JPRB,0.86362E-01_JPRB, &
+ & 0.95913E-01_JPRB,0.11338E+00_JPRB,0.13227E+00_JPRB,0.15114E+00_JPRB /)  
+KA(:, 4, 7,13) = (/ &
+ & 0.91861E-01_JPRB,0.86679E-01_JPRB,0.83638E-01_JPRB,0.84829E-01_JPRB,0.89126E-01_JPRB, &
+ & 0.10167E+00_JPRB,0.12111E+00_JPRB,0.14127E+00_JPRB,0.16142E+00_JPRB /)  
+KA(:, 5, 7,13) = (/ &
+ & 0.90669E-01_JPRB,0.86079E-01_JPRB,0.83677E-01_JPRB,0.85955E-01_JPRB,0.92165E-01_JPRB, &
+ & 0.10751E+00_JPRB,0.12862E+00_JPRB,0.15005E+00_JPRB,0.17145E+00_JPRB /)  
+KA(:, 1, 8,13) = (/ &
+ & 0.10748E+00_JPRB,0.99760E-01_JPRB,0.92641E-01_JPRB,0.87386E-01_JPRB,0.83918E-01_JPRB, &
+ & 0.82807E-01_JPRB,0.88461E-01_JPRB,0.10199E+00_JPRB,0.11655E+00_JPRB /)  
+KA(:, 2, 8,13) = (/ &
+ & 0.10548E+00_JPRB,0.98347E-01_JPRB,0.92153E-01_JPRB,0.88724E-01_JPRB,0.86807E-01_JPRB, &
+ & 0.87435E-01_JPRB,0.96918E-01_JPRB,0.11262E+00_JPRB,0.12866E+00_JPRB /)  
+KA(:, 3, 8,13) = (/ &
+ & 0.10345E+00_JPRB,0.96941E-01_JPRB,0.92269E-01_JPRB,0.90148E-01_JPRB,0.89023E-01_JPRB, &
+ & 0.92390E-01_JPRB,0.10517E+00_JPRB,0.12260E+00_JPRB,0.14006E+00_JPRB /)  
+KA(:, 4, 8,13) = (/ &
+ & 0.10168E+00_JPRB,0.95648E-01_JPRB,0.92050E-01_JPRB,0.91217E-01_JPRB,0.91169E-01_JPRB, &
+ & 0.97530E-01_JPRB,0.11302E+00_JPRB,0.13185E+00_JPRB,0.15061E+00_JPRB /)  
+KA(:, 5, 8,13) = (/ &
+ & 0.10031E+00_JPRB,0.94918E-01_JPRB,0.92030E-01_JPRB,0.91944E-01_JPRB,0.93599E-01_JPRB, &
+ & 0.10280E+00_JPRB,0.12083E+00_JPRB,0.14095E+00_JPRB,0.16101E+00_JPRB /)  
+KA(:, 1, 9,13) = (/ &
+ & 0.11850E+00_JPRB,0.10963E+00_JPRB,0.10118E+00_JPRB,0.94592E-01_JPRB,0.88496E-01_JPRB, &
+ & 0.82777E-01_JPRB,0.81368E-01_JPRB,0.90482E-01_JPRB,0.10334E+00_JPRB /)  
+KA(:, 2, 9,13) = (/ &
+ & 0.11636E+00_JPRB,0.10836E+00_JPRB,0.10080E+00_JPRB,0.96151E-01_JPRB,0.90961E-01_JPRB, &
+ & 0.86437E-01_JPRB,0.88759E-01_JPRB,0.10103E+00_JPRB,0.11540E+00_JPRB /)  
+KA(:, 3, 9,13) = (/ &
+ & 0.11416E+00_JPRB,0.10675E+00_JPRB,0.10109E+00_JPRB,0.97591E-01_JPRB,0.92676E-01_JPRB, &
+ & 0.90148E-01_JPRB,0.96288E-01_JPRB,0.11094E+00_JPRB,0.12669E+00_JPRB /)  
+KA(:, 4, 9,13) = (/ &
+ & 0.11214E+00_JPRB,0.10527E+00_JPRB,0.10096E+00_JPRB,0.98437E-01_JPRB,0.94256E-01_JPRB, &
+ & 0.94326E-01_JPRB,0.10386E+00_JPRB,0.12050E+00_JPRB,0.13763E+00_JPRB /)  
+KA(:, 5, 9,13) = (/ &
+ & 0.11054E+00_JPRB,0.10425E+00_JPRB,0.10085E+00_JPRB,0.98717E-01_JPRB,0.96200E-01_JPRB, &
+ & 0.98935E-01_JPRB,0.11173E+00_JPRB,0.13010E+00_JPRB,0.14859E+00_JPRB /)  
+KA(:, 1,10,13) = (/ &
+ & 0.13016E+00_JPRB,0.11986E+00_JPRB,0.10995E+00_JPRB,0.10196E+00_JPRB,0.93774E-01_JPRB, &
+ & 0.84360E-01_JPRB,0.76878E-01_JPRB,0.79680E-01_JPRB,0.67359E-01_JPRB /)  
+KA(:, 2,10,13) = (/ &
+ & 0.12774E+00_JPRB,0.11853E+00_JPRB,0.10979E+00_JPRB,0.10367E+00_JPRB,0.96160E-01_JPRB, &
+ & 0.87173E-01_JPRB,0.82710E-01_JPRB,0.89689E-01_JPRB,0.82456E-01_JPRB /)  
+KA(:, 3,10,13) = (/ &
+ & 0.12531E+00_JPRB,0.11685E+00_JPRB,0.11022E+00_JPRB,0.10509E+00_JPRB,0.97450E-01_JPRB, &
+ & 0.90061E-01_JPRB,0.89222E-01_JPRB,0.99588E-01_JPRB,0.96338E-01_JPRB /)  
+KA(:, 4,10,13) = (/ &
+ & 0.12312E+00_JPRB,0.11523E+00_JPRB,0.11015E+00_JPRB,0.10584E+00_JPRB,0.98534E-01_JPRB, &
+ & 0.93531E-01_JPRB,0.96262E-01_JPRB,0.10942E+00_JPRB,0.11043E+00_JPRB /)  
+KA(:, 5,10,13) = (/ &
+ & 0.12128E+00_JPRB,0.11400E+00_JPRB,0.10998E+00_JPRB,0.10588E+00_JPRB,0.10008E+00_JPRB, &
+ & 0.97359E-01_JPRB,0.10364E+00_JPRB,0.11932E+00_JPRB,0.12582E+00_JPRB /)  
+KA(:, 1,11,13) = (/ &
+ & 0.14105E+00_JPRB,0.12987E+00_JPRB,0.11910E+00_JPRB,0.11026E+00_JPRB,0.10035E+00_JPRB, &
+ & 0.88081E-01_JPRB,0.76687E-01_JPRB,0.74205E-01_JPRB,0.50899E-01_JPRB /)  
+KA(:, 2,11,13) = (/ &
+ & 0.13825E+00_JPRB,0.12810E+00_JPRB,0.11908E+00_JPRB,0.11198E+00_JPRB,0.10215E+00_JPRB, &
+ & 0.90197E-01_JPRB,0.81650E-01_JPRB,0.83605E-01_JPRB,0.56975E-01_JPRB /)  
+KA(:, 3,11,13) = (/ &
+ & 0.13566E+00_JPRB,0.12624E+00_JPRB,0.11939E+00_JPRB,0.11316E+00_JPRB,0.10299E+00_JPRB, &
+ & 0.92874E-01_JPRB,0.87279E-01_JPRB,0.93203E-01_JPRB,0.64736E-01_JPRB /)  
+KA(:, 4,11,13) = (/ &
+ & 0.13334E+00_JPRB,0.12460E+00_JPRB,0.11935E+00_JPRB,0.11337E+00_JPRB,0.10395E+00_JPRB, &
+ & 0.95956E-01_JPRB,0.93410E-01_JPRB,0.10293E+00_JPRB,0.71284E-01_JPRB /)  
+KA(:, 5,11,13) = (/ &
+ & 0.13131E+00_JPRB,0.12363E+00_JPRB,0.11937E+00_JPRB,0.11314E+00_JPRB,0.10517E+00_JPRB, &
+ & 0.98969E-01_JPRB,0.10016E+00_JPRB,0.11304E+00_JPRB,0.78587E-01_JPRB /)  
+KA(:, 1,12,13) = (/ &
+ & 0.15212E+00_JPRB,0.13991E+00_JPRB,0.12851E+00_JPRB,0.11872E+00_JPRB,0.10663E+00_JPRB, &
+ & 0.91867E-01_JPRB,0.77350E-01_JPRB,0.69757E-01_JPRB,0.57657E-01_JPRB /)  
+KA(:, 2,12,13) = (/ &
+ & 0.14895E+00_JPRB,0.13760E+00_JPRB,0.12846E+00_JPRB,0.12032E+00_JPRB,0.10790E+00_JPRB, &
+ & 0.93798E-01_JPRB,0.81816E-01_JPRB,0.78361E-01_JPRB,0.63811E-01_JPRB /)  
+KA(:, 3,12,13) = (/ &
+ & 0.14609E+00_JPRB,0.13558E+00_JPRB,0.12854E+00_JPRB,0.12100E+00_JPRB,0.10856E+00_JPRB, &
+ & 0.96260E-01_JPRB,0.86684E-01_JPRB,0.87192E-01_JPRB,0.72200E-01_JPRB /)  
+KA(:, 4,12,13) = (/ &
+ & 0.14343E+00_JPRB,0.13400E+00_JPRB,0.12849E+00_JPRB,0.12073E+00_JPRB,0.10951E+00_JPRB, &
+ & 0.98753E-01_JPRB,0.91530E-01_JPRB,0.96391E-01_JPRB,0.79517E-01_JPRB /)  
+KA(:, 5,12,13) = (/ &
+ & 0.14120E+00_JPRB,0.13303E+00_JPRB,0.12833E+00_JPRB,0.12041E+00_JPRB,0.11038E+00_JPRB, &
+ & 0.10129E+00_JPRB,0.97562E-01_JPRB,0.10658E+00_JPRB,0.84371E-01_JPRB /)  
+KA(:, 1,13,13) = (/ &
+ & 0.16284E+00_JPRB,0.14976E+00_JPRB,0.13792E+00_JPRB,0.12684E+00_JPRB,0.11275E+00_JPRB, &
+ & 0.95645E-01_JPRB,0.78767E-01_JPRB,0.66366E-01_JPRB,0.59038E-01_JPRB /)  
+KA(:, 2,13,13) = (/ &
+ & 0.15947E+00_JPRB,0.14721E+00_JPRB,0.13779E+00_JPRB,0.12800E+00_JPRB,0.11359E+00_JPRB, &
+ & 0.97597E-01_JPRB,0.82782E-01_JPRB,0.73753E-01_JPRB,0.67374E-01_JPRB /)  
+KA(:, 3,13,13) = (/ &
+ & 0.15626E+00_JPRB,0.14498E+00_JPRB,0.13763E+00_JPRB,0.12811E+00_JPRB,0.11414E+00_JPRB, &
+ & 0.99826E-01_JPRB,0.86643E-01_JPRB,0.81525E-01_JPRB,0.75874E-01_JPRB /)  
+KA(:, 4,13,13) = (/ &
+ & 0.15335E+00_JPRB,0.14330E+00_JPRB,0.13746E+00_JPRB,0.12758E+00_JPRB,0.11501E+00_JPRB, &
+ & 0.10172E+00_JPRB,0.90750E-01_JPRB,0.90246E-01_JPRB,0.81744E-01_JPRB /)  
+KA(:, 5,13,13) = (/ &
+ & 0.15088E+00_JPRB,0.14217E+00_JPRB,0.13690E+00_JPRB,0.12723E+00_JPRB,0.11557E+00_JPRB, &
+ & 0.10388E+00_JPRB,0.96218E-01_JPRB,0.10042E+00_JPRB,0.88529E-01_JPRB /)  
+KA(:, 1, 1,14) = (/ &
+ & 0.62837E-01_JPRB,0.60695E-01_JPRB,0.77720E-01_JPRB,0.11279E+00_JPRB,0.15033E+00_JPRB, &
+ & 0.18788E+00_JPRB,0.22539E+00_JPRB,0.26284E+00_JPRB,0.29421E+00_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART9',1,ZHOOK_HANDLE)
+END SUBROUTINE PART9
+
+
+SUBROUTINE PART10
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART10',0,ZHOOK_HANDLE)
+
+
+KA(:, 2, 1,14) = (/ &
+ & 0.61599E-01_JPRB,0.60148E-01_JPRB,0.79591E-01_JPRB,0.11750E+00_JPRB,0.15661E+00_JPRB, &
+ & 0.19570E+00_JPRB,0.23478E+00_JPRB,0.27378E+00_JPRB,0.30578E+00_JPRB /)  
+KA(:, 3, 1,14) = (/ &
+ & 0.60827E-01_JPRB,0.59792E-01_JPRB,0.82175E-01_JPRB,0.12253E+00_JPRB,0.16330E+00_JPRB, &
+ & 0.20407E+00_JPRB,0.24482E+00_JPRB,0.28548E+00_JPRB,0.31829E+00_JPRB /)  
+KA(:, 4, 1,14) = (/ &
+ & 0.60773E-01_JPRB,0.59852E-01_JPRB,0.85295E-01_JPRB,0.12765E+00_JPRB,0.17012E+00_JPRB, &
+ & 0.21258E+00_JPRB,0.25502E+00_JPRB,0.29736E+00_JPRB,0.33114E+00_JPRB /)  
+KA(:, 5, 1,14) = (/ &
+ & 0.60579E-01_JPRB,0.60436E-01_JPRB,0.88993E-01_JPRB,0.13334E+00_JPRB,0.17771E+00_JPRB, &
+ & 0.22206E+00_JPRB,0.26642E+00_JPRB,0.31066E+00_JPRB,0.34557E+00_JPRB /)  
+KA(:, 1, 2,14) = (/ &
+ & 0.70150E-01_JPRB,0.67933E-01_JPRB,0.82763E-01_JPRB,0.11770E+00_JPRB,0.15687E+00_JPRB, &
+ & 0.19605E+00_JPRB,0.23520E+00_JPRB,0.27426E+00_JPRB,0.30923E+00_JPRB /)  
+KA(:, 2, 2,14) = (/ &
+ & 0.68737E-01_JPRB,0.67168E-01_JPRB,0.84453E-01_JPRB,0.12329E+00_JPRB,0.16434E+00_JPRB, &
+ & 0.20537E+00_JPRB,0.24638E+00_JPRB,0.28735E+00_JPRB,0.32358E+00_JPRB /)  
+KA(:, 3, 2,14) = (/ &
+ & 0.67693E-01_JPRB,0.66713E-01_JPRB,0.87076E-01_JPRB,0.12893E+00_JPRB,0.17184E+00_JPRB, &
+ & 0.21474E+00_JPRB,0.25764E+00_JPRB,0.30044E+00_JPRB,0.33811E+00_JPRB /)  
+KA(:, 4, 2,14) = (/ &
+ & 0.67352E-01_JPRB,0.66652E-01_JPRB,0.90088E-01_JPRB,0.13441E+00_JPRB,0.17914E+00_JPRB, &
+ & 0.22388E+00_JPRB,0.26860E+00_JPRB,0.31321E+00_JPRB,0.35245E+00_JPRB /)  
+KA(:, 5, 2,14) = (/ &
+ & 0.66923E-01_JPRB,0.67069E-01_JPRB,0.93870E-01_JPRB,0.14034E+00_JPRB,0.18704E+00_JPRB, &
+ & 0.23374E+00_JPRB,0.28042E+00_JPRB,0.32702E+00_JPRB,0.36794E+00_JPRB /)  
+KA(:, 1, 3,14) = (/ &
+ & 0.79385E-01_JPRB,0.76263E-01_JPRB,0.87808E-01_JPRB,0.12001E+00_JPRB,0.15997E+00_JPRB, &
+ & 0.19992E+00_JPRB,0.23984E+00_JPRB,0.27971E+00_JPRB,0.31814E+00_JPRB /)  
+KA(:, 2, 3,14) = (/ &
+ & 0.77666E-01_JPRB,0.75357E-01_JPRB,0.89439E-01_JPRB,0.12673E+00_JPRB,0.16892E+00_JPRB, &
+ & 0.21110E+00_JPRB,0.25327E+00_JPRB,0.29539E+00_JPRB,0.33569E+00_JPRB /)  
+KA(:, 3, 3,14) = (/ &
+ & 0.76193E-01_JPRB,0.74694E-01_JPRB,0.92082E-01_JPRB,0.13335E+00_JPRB,0.17774E+00_JPRB, &
+ & 0.22213E+00_JPRB,0.26651E+00_JPRB,0.31084E+00_JPRB,0.35313E+00_JPRB /)  
+KA(:, 4, 3,14) = (/ &
+ & 0.75335E-01_JPRB,0.74405E-01_JPRB,0.95067E-01_JPRB,0.13953E+00_JPRB,0.18597E+00_JPRB, &
+ & 0.23241E+00_JPRB,0.27884E+00_JPRB,0.32518E+00_JPRB,0.36942E+00_JPRB /)  
+KA(:, 5, 3,14) = (/ &
+ & 0.74635E-01_JPRB,0.74698E-01_JPRB,0.98457E-01_JPRB,0.14565E+00_JPRB,0.19414E+00_JPRB, &
+ & 0.24262E+00_JPRB,0.29108E+00_JPRB,0.33947E+00_JPRB,0.38555E+00_JPRB /)  
+KA(:, 1, 4,14) = (/ &
+ & 0.89595E-01_JPRB,0.85781E-01_JPRB,0.93997E-01_JPRB,0.12072E+00_JPRB,0.16001E+00_JPRB, &
+ & 0.19998E+00_JPRB,0.23994E+00_JPRB,0.27984E+00_JPRB,0.31934E+00_JPRB /)  
+KA(:, 2, 4,14) = (/ &
+ & 0.87421E-01_JPRB,0.84747E-01_JPRB,0.95233E-01_JPRB,0.12788E+00_JPRB,0.17024E+00_JPRB, &
+ & 0.21274E+00_JPRB,0.25525E+00_JPRB,0.29772E+00_JPRB,0.33967E+00_JPRB /)  
+KA(:, 3, 4,14) = (/ &
+ & 0.85503E-01_JPRB,0.83808E-01_JPRB,0.97531E-01_JPRB,0.13512E+00_JPRB,0.18009E+00_JPRB, &
+ & 0.22508E+00_JPRB,0.27005E+00_JPRB,0.31493E+00_JPRB,0.35929E+00_JPRB /)  
+KA(:, 4, 4,14) = (/ &
+ & 0.84061E-01_JPRB,0.83216E-01_JPRB,0.10039E+00_JPRB,0.14194E+00_JPRB,0.18919E+00_JPRB, &
+ & 0.23644E+00_JPRB,0.28372E+00_JPRB,0.33088E+00_JPRB,0.37743E+00_JPRB /)  
+KA(:, 5, 4,14) = (/ &
+ & 0.83141E-01_JPRB,0.83249E-01_JPRB,0.10352E+00_JPRB,0.14853E+00_JPRB,0.19798E+00_JPRB, &
+ & 0.24744E+00_JPRB,0.29688E+00_JPRB,0.34622E+00_JPRB,0.39491E+00_JPRB /)  
+KA(:, 1, 5,14) = (/ &
+ & 0.10093E+00_JPRB,0.96180E-01_JPRB,0.10202E+00_JPRB,0.12191E+00_JPRB,0.15810E+00_JPRB, &
+ & 0.19761E+00_JPRB,0.23710E+00_JPRB,0.27651E+00_JPRB,0.31584E+00_JPRB /)  
+KA(:, 2, 5,14) = (/ &
+ & 0.98348E-01_JPRB,0.95154E-01_JPRB,0.10279E+00_JPRB,0.12897E+00_JPRB,0.16954E+00_JPRB, &
+ & 0.21190E+00_JPRB,0.25425E+00_JPRB,0.29655E+00_JPRB,0.33869E+00_JPRB /)  
+KA(:, 3, 5,14) = (/ &
+ & 0.96078E-01_JPRB,0.94065E-01_JPRB,0.10459E+00_JPRB,0.13623E+00_JPRB,0.18035E+00_JPRB, &
+ & 0.22539E+00_JPRB,0.27041E+00_JPRB,0.31537E+00_JPRB,0.36019E+00_JPRB /)  
+KA(:, 4, 5,14) = (/ &
+ & 0.94202E-01_JPRB,0.93296E-01_JPRB,0.10703E+00_JPRB,0.14326E+00_JPRB,0.19057E+00_JPRB, &
+ & 0.23817E+00_JPRB,0.28575E+00_JPRB,0.33330E+00_JPRB,0.38060E+00_JPRB /)  
+KA(:, 5, 5,14) = (/ &
+ & 0.93055E-01_JPRB,0.92935E-01_JPRB,0.10982E+00_JPRB,0.15042E+00_JPRB,0.20048E+00_JPRB, &
+ & 0.25056E+00_JPRB,0.30061E+00_JPRB,0.35061E+00_JPRB,0.40035E+00_JPRB /)  
+KA(:, 1, 6,14) = (/ &
+ & 0.11421E+00_JPRB,0.10796E+00_JPRB,0.11173E+00_JPRB,0.12476E+00_JPRB,0.15549E+00_JPRB, &
+ & 0.19408E+00_JPRB,0.23286E+00_JPRB,0.27161E+00_JPRB,0.31032E+00_JPRB /)  
+KA(:, 2, 6,14) = (/ &
+ & 0.11123E+00_JPRB,0.10718E+00_JPRB,0.11218E+00_JPRB,0.13121E+00_JPRB,0.16775E+00_JPRB, &
+ & 0.20966E+00_JPRB,0.25155E+00_JPRB,0.29340E+00_JPRB,0.33523E+00_JPRB /)  
+KA(:, 3, 6,14) = (/ &
+ & 0.10875E+00_JPRB,0.10588E+00_JPRB,0.11334E+00_JPRB,0.13798E+00_JPRB,0.17972E+00_JPRB, &
+ & 0.22462E+00_JPRB,0.26950E+00_JPRB,0.31433E+00_JPRB,0.35914E+00_JPRB /)  
+KA(:, 4, 6,14) = (/ &
+ & 0.10666E+00_JPRB,0.10458E+00_JPRB,0.11529E+00_JPRB,0.14519E+00_JPRB,0.19132E+00_JPRB, &
+ & 0.23911E+00_JPRB,0.28688E+00_JPRB,0.33463E+00_JPRB,0.38232E+00_JPRB /)  
+KA(:, 5, 6,14) = (/ &
+ & 0.10502E+00_JPRB,0.10381E+00_JPRB,0.11770E+00_JPRB,0.15287E+00_JPRB,0.20267E+00_JPRB, &
+ & 0.25329E+00_JPRB,0.30392E+00_JPRB,0.35446E+00_JPRB,0.40496E+00_JPRB /)  
+KA(:, 1, 7,14) = (/ &
+ & 0.12988E+00_JPRB,0.12138E+00_JPRB,0.12291E+00_JPRB,0.12930E+00_JPRB,0.15315E+00_JPRB, &
+ & 0.18907E+00_JPRB,0.22686E+00_JPRB,0.26460E+00_JPRB,0.30239E+00_JPRB /)  
+KA(:, 2, 7,14) = (/ &
+ & 0.12649E+00_JPRB,0.12054E+00_JPRB,0.12314E+00_JPRB,0.13530E+00_JPRB,0.16601E+00_JPRB, &
+ & 0.20667E+00_JPRB,0.24798E+00_JPRB,0.28925E+00_JPRB,0.33056E+00_JPRB /)  
+KA(:, 3, 7,14) = (/ &
+ & 0.12370E+00_JPRB,0.11924E+00_JPRB,0.12400E+00_JPRB,0.14174E+00_JPRB,0.17907E+00_JPRB, &
+ & 0.22369E+00_JPRB,0.26838E+00_JPRB,0.31304E+00_JPRB,0.35775E+00_JPRB /)  
+KA(:, 4, 7,14) = (/ &
+ & 0.12121E+00_JPRB,0.11770E+00_JPRB,0.12551E+00_JPRB,0.14889E+00_JPRB,0.19207E+00_JPRB, &
+ & 0.24005E+00_JPRB,0.28802E+00_JPRB,0.33592E+00_JPRB,0.38391E+00_JPRB /)  
+KA(:, 5, 7,14) = (/ &
+ & 0.11892E+00_JPRB,0.11635E+00_JPRB,0.12739E+00_JPRB,0.15666E+00_JPRB,0.20470E+00_JPRB, &
+ & 0.25583E+00_JPRB,0.30694E+00_JPRB,0.35802E+00_JPRB,0.40917E+00_JPRB /)  
+KA(:, 1, 8,14) = (/ &
+ & 0.14795E+00_JPRB,0.13669E+00_JPRB,0.13564E+00_JPRB,0.13646E+00_JPRB,0.15231E+00_JPRB, &
+ & 0.18310E+00_JPRB,0.21966E+00_JPRB,0.25622E+00_JPRB,0.29284E+00_JPRB /)  
+KA(:, 2, 8,14) = (/ &
+ & 0.14430E+00_JPRB,0.13540E+00_JPRB,0.13550E+00_JPRB,0.14118E+00_JPRB,0.16490E+00_JPRB, &
+ & 0.20238E+00_JPRB,0.24284E+00_JPRB,0.28324E+00_JPRB,0.32374E+00_JPRB /)  
+KA(:, 3, 8,14) = (/ &
+ & 0.14109E+00_JPRB,0.13403E+00_JPRB,0.13585E+00_JPRB,0.14713E+00_JPRB,0.17836E+00_JPRB, &
+ & 0.22126E+00_JPRB,0.26548E+00_JPRB,0.30963E+00_JPRB,0.35392E+00_JPRB /)  
+KA(:, 4, 8,14) = (/ &
+ & 0.13807E+00_JPRB,0.13250E+00_JPRB,0.13707E+00_JPRB,0.15422E+00_JPRB,0.19232E+00_JPRB, &
+ & 0.23967E+00_JPRB,0.28757E+00_JPRB,0.33540E+00_JPRB,0.38338E+00_JPRB /)  
+KA(:, 5, 8,14) = (/ &
+ & 0.13514E+00_JPRB,0.13080E+00_JPRB,0.13878E+00_JPRB,0.16197E+00_JPRB,0.20594E+00_JPRB, &
+ & 0.25719E+00_JPRB,0.30860E+00_JPRB,0.35994E+00_JPRB,0.41142E+00_JPRB /)  
+KA(:, 1, 9,14) = (/ &
+ & 0.16812E+00_JPRB,0.15406E+00_JPRB,0.15051E+00_JPRB,0.14632E+00_JPRB,0.15371E+00_JPRB, &
+ & 0.17730E+00_JPRB,0.21108E+00_JPRB,0.24622E+00_JPRB,0.28143E+00_JPRB /)  
+KA(:, 2, 9,14) = (/ &
+ & 0.16420E+00_JPRB,0.15230E+00_JPRB,0.14950E+00_JPRB,0.14998E+00_JPRB,0.16549E+00_JPRB, &
+ & 0.19706E+00_JPRB,0.23609E+00_JPRB,0.27539E+00_JPRB,0.31477E+00_JPRB /)  
+KA(:, 3, 9,14) = (/ &
+ & 0.16053E+00_JPRB,0.15077E+00_JPRB,0.14903E+00_JPRB,0.15488E+00_JPRB,0.17883E+00_JPRB, &
+ & 0.21740E+00_JPRB,0.26082E+00_JPRB,0.30423E+00_JPRB,0.34775E+00_JPRB /)  
+KA(:, 4, 9,14) = (/ &
+ & 0.15694E+00_JPRB,0.14891E+00_JPRB,0.14991E+00_JPRB,0.16140E+00_JPRB,0.19301E+00_JPRB, &
+ & 0.23753E+00_JPRB,0.28500E+00_JPRB,0.33244E+00_JPRB,0.37999E+00_JPRB /)  
+KA(:, 5, 9,14) = (/ &
+ & 0.15342E+00_JPRB,0.14670E+00_JPRB,0.15145E+00_JPRB,0.16838E+00_JPRB,0.20634E+00_JPRB, &
+ & 0.25567E+00_JPRB,0.30677E+00_JPRB,0.35784E+00_JPRB,0.40903E+00_JPRB /)  
+KA(:, 1,10,14) = (/ &
+ & 0.18962E+00_JPRB,0.17319E+00_JPRB,0.16709E+00_JPRB,0.15817E+00_JPRB,0.15908E+00_JPRB, &
+ & 0.17425E+00_JPRB,0.20287E+00_JPRB,0.23665E+00_JPRB,0.27049E+00_JPRB /)  
+KA(:, 2,10,14) = (/ &
+ & 0.18536E+00_JPRB,0.17110E+00_JPRB,0.16526E+00_JPRB,0.16124E+00_JPRB,0.16946E+00_JPRB, &
+ & 0.19394E+00_JPRB,0.22959E+00_JPRB,0.26781E+00_JPRB,0.30611E+00_JPRB /)  
+KA(:, 3,10,14) = (/ &
+ & 0.18117E+00_JPRB,0.16910E+00_JPRB,0.16400E+00_JPRB,0.16579E+00_JPRB,0.18236E+00_JPRB, &
+ & 0.21466E+00_JPRB,0.25610E+00_JPRB,0.29874E+00_JPRB,0.34146E+00_JPRB /)  
+KA(:, 4,10,14) = (/ &
+ & 0.17697E+00_JPRB,0.16677E+00_JPRB,0.16446E+00_JPRB,0.17161E+00_JPRB,0.19589E+00_JPRB, &
+ & 0.23479E+00_JPRB,0.28114E+00_JPRB,0.32796E+00_JPRB,0.37484E+00_JPRB /)  
+KA(:, 5,10,14) = (/ &
+ & 0.17281E+00_JPRB,0.16399E+00_JPRB,0.16565E+00_JPRB,0.17716E+00_JPRB,0.20808E+00_JPRB, &
+ & 0.25277E+00_JPRB,0.30323E+00_JPRB,0.35372E+00_JPRB,0.40429E+00_JPRB /)  
+KA(:, 1,11,14) = (/ &
+ & 0.21055E+00_JPRB,0.19254E+00_JPRB,0.18359E+00_JPRB,0.17274E+00_JPRB,0.17137E+00_JPRB, &
+ & 0.18167E+00_JPRB,0.20669E+00_JPRB,0.24044E+00_JPRB,0.24447E+00_JPRB /)  
+KA(:, 2,11,14) = (/ &
+ & 0.20570E+00_JPRB,0.19011E+00_JPRB,0.18168E+00_JPRB,0.17577E+00_JPRB,0.18167E+00_JPRB, &
+ & 0.20144E+00_JPRB,0.23412E+00_JPRB,0.27305E+00_JPRB,0.28987E+00_JPRB /)  
+KA(:, 3,11,14) = (/ &
+ & 0.20088E+00_JPRB,0.18755E+00_JPRB,0.18057E+00_JPRB,0.18058E+00_JPRB,0.19347E+00_JPRB, &
+ & 0.22124E+00_JPRB,0.26062E+00_JPRB,0.30406E+00_JPRB,0.33203E+00_JPRB /)  
+KA(:, 4,11,14) = (/ &
+ & 0.19608E+00_JPRB,0.18439E+00_JPRB,0.18082E+00_JPRB,0.18569E+00_JPRB,0.20488E+00_JPRB, &
+ & 0.23927E+00_JPRB,0.28460E+00_JPRB,0.33201E+00_JPRB,0.37191E+00_JPRB /)  
+KA(:, 5,11,14) = (/ &
+ & 0.19134E+00_JPRB,0.18083E+00_JPRB,0.18137E+00_JPRB,0.19023E+00_JPRB,0.21563E+00_JPRB, &
+ & 0.25670E+00_JPRB,0.30697E+00_JPRB,0.35809E+00_JPRB,0.40924E+00_JPRB /)  
+KA(:, 1,12,14) = (/ &
+ & 0.23222E+00_JPRB,0.21282E+00_JPRB,0.20059E+00_JPRB,0.18856E+00_JPRB,0.18455E+00_JPRB, &
+ & 0.18954E+00_JPRB,0.20921E+00_JPRB,0.24116E+00_JPRB,0.20678E+00_JPRB /)  
+KA(:, 2,12,14) = (/ &
+ & 0.22666E+00_JPRB,0.20982E+00_JPRB,0.19853E+00_JPRB,0.19166E+00_JPRB,0.19460E+00_JPRB, &
+ & 0.20805E+00_JPRB,0.23602E+00_JPRB,0.27405E+00_JPRB,0.24947E+00_JPRB /)  
+KA(:, 3,12,14) = (/ &
+ & 0.22121E+00_JPRB,0.20649E+00_JPRB,0.19756E+00_JPRB,0.19621E+00_JPRB,0.20452E+00_JPRB, &
+ & 0.22597E+00_JPRB,0.26146E+00_JPRB,0.30478E+00_JPRB,0.28725E+00_JPRB /)  
+KA(:, 4,12,14) = (/ &
+ & 0.21578E+00_JPRB,0.20240E+00_JPRB,0.19746E+00_JPRB,0.20035E+00_JPRB,0.21392E+00_JPRB, &
+ & 0.24302E+00_JPRB,0.28559E+00_JPRB,0.33317E+00_JPRB,0.32415E+00_JPRB /)  
+KA(:, 5,12,14) = (/ &
+ & 0.21026E+00_JPRB,0.19816E+00_JPRB,0.19729E+00_JPRB,0.20402E+00_JPRB,0.22339E+00_JPRB, &
+ & 0.25983E+00_JPRB,0.30840E+00_JPRB,0.35980E+00_JPRB,0.36272E+00_JPRB /)  
+KA(:, 1,13,14) = (/ &
+ & 0.25447E+00_JPRB,0.23356E+00_JPRB,0.21785E+00_JPRB,0.20504E+00_JPRB,0.19797E+00_JPRB, &
+ & 0.19705E+00_JPRB,0.20967E+00_JPRB,0.23794E+00_JPRB,0.19657E+00_JPRB /)  
+KA(:, 2,13,14) = (/ &
+ & 0.24820E+00_JPRB,0.22981E+00_JPRB,0.21561E+00_JPRB,0.20828E+00_JPRB,0.20711E+00_JPRB, &
+ & 0.21347E+00_JPRB,0.23520E+00_JPRB,0.27088E+00_JPRB,0.23547E+00_JPRB /)  
+KA(:, 3,13,14) = (/ &
+ & 0.24206E+00_JPRB,0.22556E+00_JPRB,0.21467E+00_JPRB,0.21216E+00_JPRB,0.21525E+00_JPRB, &
+ & 0.22938E+00_JPRB,0.25994E+00_JPRB,0.30180E+00_JPRB,0.27108E+00_JPRB /)  
+KA(:, 4,13,14) = (/ &
+ & 0.23572E+00_JPRB,0.22056E+00_JPRB,0.21408E+00_JPRB,0.21517E+00_JPRB,0.22293E+00_JPRB, &
+ & 0.24576E+00_JPRB,0.28399E+00_JPRB,0.33091E+00_JPRB,0.30909E+00_JPRB /)  
+KA(:, 5,13,14) = (/ &
+ & 0.22932E+00_JPRB,0.21557E+00_JPRB,0.21287E+00_JPRB,0.21778E+00_JPRB,0.23130E+00_JPRB, &
+ & 0.26208E+00_JPRB,0.30701E+00_JPRB,0.35815E+00_JPRB,0.34602E+00_JPRB /)  
+KA(:, 1, 1,15) = (/ &
+ & 0.79223E-01_JPRB,0.75104E-01_JPRB,0.13846E+00_JPRB,0.20766E+00_JPRB,0.27685E+00_JPRB, &
+ & 0.34601E+00_JPRB,0.41512E+00_JPRB,0.48397E+00_JPRB,0.52564E+00_JPRB /)  
+KA(:, 2, 1,15) = (/ &
+ & 0.76682E-01_JPRB,0.76450E-01_JPRB,0.14571E+00_JPRB,0.21854E+00_JPRB,0.29137E+00_JPRB, &
+ & 0.36417E+00_JPRB,0.43689E+00_JPRB,0.50929E+00_JPRB,0.55383E+00_JPRB /)  
+KA(:, 3, 1,15) = (/ &
+ & 0.74345E-01_JPRB,0.78213E-01_JPRB,0.15207E+00_JPRB,0.22808E+00_JPRB,0.30407E+00_JPRB, &
+ & 0.38004E+00_JPRB,0.45593E+00_JPRB,0.53155E+00_JPRB,0.57851E+00_JPRB /)  
+KA(:, 4, 1,15) = (/ &
+ & 0.72607E-01_JPRB,0.80130E-01_JPRB,0.15758E+00_JPRB,0.23638E+00_JPRB,0.31513E+00_JPRB, &
+ & 0.39385E+00_JPRB,0.47252E+00_JPRB,0.55092E+00_JPRB,0.60005E+00_JPRB /)  
+KA(:, 5, 1,15) = (/ &
+ & 0.72847E-01_JPRB,0.82433E-01_JPRB,0.16249E+00_JPRB,0.24371E+00_JPRB,0.32491E+00_JPRB, &
+ & 0.40606E+00_JPRB,0.48713E+00_JPRB,0.56790E+00_JPRB,0.61880E+00_JPRB /)  
+KA(:, 1, 2,15) = (/ &
+ & 0.89010E-01_JPRB,0.84748E-01_JPRB,0.15528E+00_JPRB,0.23291E+00_JPRB,0.31052E+00_JPRB, &
+ & 0.38812E+00_JPRB,0.46559E+00_JPRB,0.54282E+00_JPRB,0.60189E+00_JPRB /)  
+KA(:, 2, 2,15) = (/ &
+ & 0.86286E-01_JPRB,0.86390E-01_JPRB,0.16350E+00_JPRB,0.24523E+00_JPRB,0.32694E+00_JPRB, &
+ & 0.40865E+00_JPRB,0.49029E+00_JPRB,0.57166E+00_JPRB,0.63436E+00_JPRB /)  
+KA(:, 3, 2,15) = (/ &
+ & 0.83865E-01_JPRB,0.88469E-01_JPRB,0.17076E+00_JPRB,0.25611E+00_JPRB,0.34145E+00_JPRB, &
+ & 0.42675E+00_JPRB,0.51202E+00_JPRB,0.59693E+00_JPRB,0.66276E+00_JPRB /)  
+KA(:, 4, 2,15) = (/ &
+ & 0.81971E-01_JPRB,0.90581E-01_JPRB,0.17733E+00_JPRB,0.26595E+00_JPRB,0.35459E+00_JPRB, &
+ & 0.44319E+00_JPRB,0.53165E+00_JPRB,0.61981E+00_JPRB,0.68802E+00_JPRB /)  
+KA(:, 5, 2,15) = (/ &
+ & 0.81826E-01_JPRB,0.93085E-01_JPRB,0.18319E+00_JPRB,0.27476E+00_JPRB,0.36629E+00_JPRB, &
+ & 0.45781E+00_JPRB,0.54921E+00_JPRB,0.64033E+00_JPRB,0.71080E+00_JPRB /)  
+KA(:, 1, 3,15) = (/ &
+ & 0.10078E+00_JPRB,0.96469E-01_JPRB,0.17126E+00_JPRB,0.25687E+00_JPRB,0.34247E+00_JPRB, &
+ & 0.42804E+00_JPRB,0.51357E+00_JPRB,0.59868E+00_JPRB,0.67473E+00_JPRB /)  
+KA(:, 2, 3,15) = (/ &
+ & 0.97698E-01_JPRB,0.98193E-01_JPRB,0.18058E+00_JPRB,0.27084E+00_JPRB,0.36108E+00_JPRB, &
+ & 0.45128E+00_JPRB,0.54134E+00_JPRB,0.63128E+00_JPRB,0.71182E+00_JPRB /)  
+KA(:, 3, 3,15) = (/ &
+ & 0.95186E-01_JPRB,0.10027E+00_JPRB,0.18871E+00_JPRB,0.28303E+00_JPRB,0.37733E+00_JPRB, &
+ & 0.47160E+00_JPRB,0.56577E+00_JPRB,0.65972E+00_JPRB,0.74408E+00_JPRB /)  
+KA(:, 4, 3,15) = (/ &
+ & 0.93223E-01_JPRB,0.10231E+00_JPRB,0.19621E+00_JPRB,0.29427E+00_JPRB,0.39234E+00_JPRB, &
+ & 0.49035E+00_JPRB,0.58829E+00_JPRB,0.68586E+00_JPRB,0.77383E+00_JPRB /)  
+KA(:, 5, 3,15) = (/ &
+ & 0.93003E-01_JPRB,0.10431E+00_JPRB,0.20302E+00_JPRB,0.30448E+00_JPRB,0.40592E+00_JPRB, &
+ & 0.50734E+00_JPRB,0.60870E+00_JPRB,0.70970E+00_JPRB,0.80084E+00_JPRB /)  
+KA(:, 1, 4,15) = (/ &
+ & 0.11556E+00_JPRB,0.11007E+00_JPRB,0.18689E+00_JPRB,0.28032E+00_JPRB,0.37373E+00_JPRB, &
+ & 0.46710E+00_JPRB,0.56044E+00_JPRB,0.65346E+00_JPRB,0.74264E+00_JPRB /)  
+KA(:, 2, 4,15) = (/ &
+ & 0.11235E+00_JPRB,0.11167E+00_JPRB,0.19754E+00_JPRB,0.29630E+00_JPRB,0.39502E+00_JPRB, &
+ & 0.49371E+00_JPRB,0.59235E+00_JPRB,0.69064E+00_JPRB,0.78516E+00_JPRB /)  
+KA(:, 3, 4,15) = (/ &
+ & 0.10972E+00_JPRB,0.11355E+00_JPRB,0.20696E+00_JPRB,0.31040E+00_JPRB,0.41383E+00_JPRB, &
+ & 0.51721E+00_JPRB,0.62053E+00_JPRB,0.72352E+00_JPRB,0.82248E+00_JPRB /)  
+KA(:, 4, 4,15) = (/ &
+ & 0.10741E+00_JPRB,0.11554E+00_JPRB,0.21557E+00_JPRB,0.32331E+00_JPRB,0.43105E+00_JPRB, &
+ & 0.53874E+00_JPRB,0.64632E+00_JPRB,0.75359E+00_JPRB,0.85679E+00_JPRB /)  
+KA(:, 5, 4,15) = (/ &
+ & 0.10619E+00_JPRB,0.11745E+00_JPRB,0.22327E+00_JPRB,0.33487E+00_JPRB,0.44646E+00_JPRB, &
+ & 0.55799E+00_JPRB,0.66944E+00_JPRB,0.78056E+00_JPRB,0.88741E+00_JPRB /)  
+KA(:, 1, 5,15) = (/ &
+ & 0.13422E+00_JPRB,0.12619E+00_JPRB,0.20125E+00_JPRB,0.30186E+00_JPRB,0.40245E+00_JPRB, &
+ & 0.50302E+00_JPRB,0.60348E+00_JPRB,0.70372E+00_JPRB,0.80253E+00_JPRB /)  
+KA(:, 2, 5,15) = (/ &
+ & 0.13052E+00_JPRB,0.12743E+00_JPRB,0.21345E+00_JPRB,0.32016E+00_JPRB,0.42685E+00_JPRB, &
+ & 0.53351E+00_JPRB,0.64011E+00_JPRB,0.74634E+00_JPRB,0.85136E+00_JPRB /)  
+KA(:, 3, 5,15) = (/ &
+ & 0.12741E+00_JPRB,0.12876E+00_JPRB,0.22450E+00_JPRB,0.33672E+00_JPRB,0.44894E+00_JPRB, &
+ & 0.56113E+00_JPRB,0.67322E+00_JPRB,0.78494E+00_JPRB,0.89542E+00_JPRB /)  
+KA(:, 4, 5,15) = (/ &
+ & 0.12456E+00_JPRB,0.13045E+00_JPRB,0.23454E+00_JPRB,0.35177E+00_JPRB,0.46901E+00_JPRB, &
+ & 0.58622E+00_JPRB,0.70332E+00_JPRB,0.82004E+00_JPRB,0.93535E+00_JPRB /)  
+KA(:, 5, 5,15) = (/ &
+ & 0.12240E+00_JPRB,0.13234E+00_JPRB,0.24346E+00_JPRB,0.36515E+00_JPRB,0.48682E+00_JPRB, &
+ & 0.60842E+00_JPRB,0.72992E+00_JPRB,0.85105E+00_JPRB,0.97074E+00_JPRB /)  
+KA(:, 1, 6,15) = (/ &
+ & 0.15641E+00_JPRB,0.14549E+00_JPRB,0.21406E+00_JPRB,0.31903E+00_JPRB,0.42534E+00_JPRB, &
+ & 0.53165E+00_JPRB,0.63788E+00_JPRB,0.74385E+00_JPRB,0.84964E+00_JPRB /)  
+KA(:, 2, 6,15) = (/ &
+ & 0.15207E+00_JPRB,0.14574E+00_JPRB,0.22708E+00_JPRB,0.34022E+00_JPRB,0.45360E+00_JPRB, &
+ & 0.56697E+00_JPRB,0.68027E+00_JPRB,0.79322E+00_JPRB,0.90603E+00_JPRB /)  
+KA(:, 3, 6,15) = (/ &
+ & 0.14825E+00_JPRB,0.14665E+00_JPRB,0.23979E+00_JPRB,0.35965E+00_JPRB,0.47950E+00_JPRB, &
+ & 0.59932E+00_JPRB,0.71907E+00_JPRB,0.83857E+00_JPRB,0.95773E+00_JPRB /)  
+KA(:, 4, 6,15) = (/ &
+ & 0.14482E+00_JPRB,0.14790E+00_JPRB,0.25144E+00_JPRB,0.37711E+00_JPRB,0.50278E+00_JPRB, &
+ & 0.62841E+00_JPRB,0.75400E+00_JPRB,0.87926E+00_JPRB,0.10043E+01_JPRB /)  
+KA(:, 5, 6,15) = (/ &
+ & 0.14196E+00_JPRB,0.14929E+00_JPRB,0.26158E+00_JPRB,0.39235E+00_JPRB,0.52312E+00_JPRB, &
+ & 0.65390E+00_JPRB,0.78460E+00_JPRB,0.91489E+00_JPRB,0.10450E+01_JPRB /)  
+KA(:, 1, 7,15) = (/ &
+ & 0.18245E+00_JPRB,0.16813E+00_JPRB,0.22831E+00_JPRB,0.33360E+00_JPRB,0.44476E+00_JPRB, &
+ & 0.55591E+00_JPRB,0.66702E+00_JPRB,0.77783E+00_JPRB,0.88903E+00_JPRB /)  
+KA(:, 2, 7,15) = (/ &
+ & 0.17706E+00_JPRB,0.16763E+00_JPRB,0.24144E+00_JPRB,0.35719E+00_JPRB,0.47625E+00_JPRB, &
+ & 0.59524E+00_JPRB,0.71422E+00_JPRB,0.83295E+00_JPRB,0.95194E+00_JPRB /)  
+KA(:, 3, 7,15) = (/ &
+ & 0.17236E+00_JPRB,0.16756E+00_JPRB,0.25360E+00_JPRB,0.37892E+00_JPRB,0.50520E+00_JPRB, &
+ & 0.63143E+00_JPRB,0.75766E+00_JPRB,0.88351E+00_JPRB,0.10099E+01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART10',1,ZHOOK_HANDLE)
+END SUBROUTINE PART10
+
+
+SUBROUTINE PART11
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART11',0,ZHOOK_HANDLE)
+
+
+KA(:, 4, 7,15) = (/ &
+ & 0.16823E+00_JPRB,0.16816E+00_JPRB,0.26586E+00_JPRB,0.39858E+00_JPRB,0.53141E+00_JPRB, &
+ & 0.66420E+00_JPRB,0.79692E+00_JPRB,0.92941E+00_JPRB,0.10623E+01_JPRB /)  
+KA(:, 5, 7,15) = (/ &
+ & 0.16468E+00_JPRB,0.16894E+00_JPRB,0.27725E+00_JPRB,0.41585E+00_JPRB,0.55445E+00_JPRB, &
+ & 0.69298E+00_JPRB,0.83146E+00_JPRB,0.96971E+00_JPRB,0.11082E+01_JPRB /)  
+KA(:, 1, 8,15) = (/ &
+ & 0.21221E+00_JPRB,0.19366E+00_JPRB,0.24501E+00_JPRB,0.34518E+00_JPRB,0.46022E+00_JPRB, &
+ & 0.57522E+00_JPRB,0.69013E+00_JPRB,0.80500E+00_JPRB,0.92024E+00_JPRB /)  
+KA(:, 2, 8,15) = (/ &
+ & 0.20558E+00_JPRB,0.19344E+00_JPRB,0.25798E+00_JPRB,0.37195E+00_JPRB,0.49597E+00_JPRB, &
+ & 0.61989E+00_JPRB,0.74379E+00_JPRB,0.86737E+00_JPRB,0.99166E+00_JPRB /)  
+KA(:, 3, 8,15) = (/ &
+ & 0.19977E+00_JPRB,0.19260E+00_JPRB,0.26963E+00_JPRB,0.39624E+00_JPRB,0.52829E+00_JPRB, &
+ & 0.66032E+00_JPRB,0.79227E+00_JPRB,0.92396E+00_JPRB,0.10564E+01_JPRB /)  
+KA(:, 4, 8,15) = (/ &
+ & 0.19471E+00_JPRB,0.19196E+00_JPRB,0.28135E+00_JPRB,0.41773E+00_JPRB,0.55693E+00_JPRB, &
+ & 0.69614E+00_JPRB,0.83525E+00_JPRB,0.97412E+00_JPRB,0.11137E+01_JPRB /)  
+KA(:, 5, 8,15) = (/ &
+ & 0.19023E+00_JPRB,0.19149E+00_JPRB,0.29229E+00_JPRB,0.43683E+00_JPRB,0.58243E+00_JPRB, &
+ & 0.72800E+00_JPRB,0.87352E+00_JPRB,0.10186E+01_JPRB,0.11647E+01_JPRB /)  
+KA(:, 1, 9,15) = (/ &
+ & 0.24675E+00_JPRB,0.22274E+00_JPRB,0.26456E+00_JPRB,0.35496E+00_JPRB,0.47007E+00_JPRB, &
+ & 0.58755E+00_JPRB,0.70496E+00_JPRB,0.82216E+00_JPRB,0.94015E+00_JPRB /)  
+KA(:, 2, 9,15) = (/ &
+ & 0.23844E+00_JPRB,0.22223E+00_JPRB,0.27692E+00_JPRB,0.38304E+00_JPRB,0.51028E+00_JPRB, &
+ & 0.63780E+00_JPRB,0.76534E+00_JPRB,0.89259E+00_JPRB,0.10206E+01_JPRB /)  
+KA(:, 3, 9,15) = (/ &
+ & 0.23115E+00_JPRB,0.22076E+00_JPRB,0.28808E+00_JPRB,0.40973E+00_JPRB,0.54629E+00_JPRB, &
+ & 0.68281E+00_JPRB,0.81930E+00_JPRB,0.95554E+00_JPRB,0.10926E+01_JPRB /)  
+KA(:, 4, 9,15) = (/ &
+ & 0.22487E+00_JPRB,0.21935E+00_JPRB,0.29872E+00_JPRB,0.43339E+00_JPRB,0.57783E+00_JPRB, &
+ & 0.72230E+00_JPRB,0.86661E+00_JPRB,0.10108E+01_JPRB,0.11557E+01_JPRB /)  
+KA(:, 5, 9,15) = (/ &
+ & 0.21911E+00_JPRB,0.21807E+00_JPRB,0.30914E+00_JPRB,0.45602E+00_JPRB,0.60799E+00_JPRB, &
+ & 0.75991E+00_JPRB,0.91189E+00_JPRB,0.10634E+01_JPRB,0.12161E+01_JPRB /)  
+KA(:, 1,10,15) = (/ &
+ & 0.28580E+00_JPRB,0.25610E+00_JPRB,0.28839E+00_JPRB,0.36810E+00_JPRB,0.47645E+00_JPRB, &
+ & 0.59554E+00_JPRB,0.71455E+00_JPRB,0.83348E+00_JPRB,0.95290E+00_JPRB /)  
+KA(:, 2,10,15) = (/ &
+ & 0.27554E+00_JPRB,0.25438E+00_JPRB,0.29985E+00_JPRB,0.39603E+00_JPRB,0.52141E+00_JPRB, &
+ & 0.65175E+00_JPRB,0.78205E+00_JPRB,0.91212E+00_JPRB,0.10429E+01_JPRB /)  
+KA(:, 3,10,15) = (/ &
+ & 0.26639E+00_JPRB,0.25230E+00_JPRB,0.31000E+00_JPRB,0.42263E+00_JPRB,0.56074E+00_JPRB, &
+ & 0.70092E+00_JPRB,0.84101E+00_JPRB,0.98094E+00_JPRB,0.11215E+01_JPRB /)  
+KA(:, 4,10,15) = (/ &
+ & 0.25840E+00_JPRB,0.24961E+00_JPRB,0.31933E+00_JPRB,0.44762E+00_JPRB,0.59663E+00_JPRB, &
+ & 0.74572E+00_JPRB,0.89477E+00_JPRB,0.10436E+01_JPRB,0.11932E+01_JPRB /)  
+KA(:, 5,10,15) = (/ &
+ & 0.25110E+00_JPRB,0.24738E+00_JPRB,0.32882E+00_JPRB,0.47409E+00_JPRB,0.63208E+00_JPRB, &
+ & 0.79011E+00_JPRB,0.94801E+00_JPRB,0.11055E+01_JPRB,0.12642E+01_JPRB /)  
+KA(:, 1,11,15) = (/ &
+ & 0.32402E+00_JPRB,0.29231E+00_JPRB,0.32114E+00_JPRB,0.39449E+00_JPRB,0.49965E+00_JPRB, &
+ & 0.62359E+00_JPRB,0.74830E+00_JPRB,0.87279E+00_JPRB,0.99780E+00_JPRB /)  
+KA(:, 2,11,15) = (/ &
+ & 0.31203E+00_JPRB,0.28940E+00_JPRB,0.33009E+00_JPRB,0.42179E+00_JPRB,0.54573E+00_JPRB, &
+ & 0.68214E+00_JPRB,0.81856E+00_JPRB,0.95481E+00_JPRB,0.10916E+01_JPRB /)  
+KA(:, 3,11,15) = (/ &
+ & 0.30125E+00_JPRB,0.28556E+00_JPRB,0.33820E+00_JPRB,0.44749E+00_JPRB,0.58870E+00_JPRB, &
+ & 0.73583E+00_JPRB,0.88295E+00_JPRB,0.10298E+01_JPRB,0.11773E+01_JPRB /)  
+KA(:, 4,11,15) = (/ &
+ & 0.29153E+00_JPRB,0.28159E+00_JPRB,0.34632E+00_JPRB,0.47427E+00_JPRB,0.63035E+00_JPRB, &
+ & 0.78788E+00_JPRB,0.94537E+00_JPRB,0.11027E+01_JPRB,0.12607E+01_JPRB /)  
+KA(:, 5,11,15) = (/ &
+ & 0.28247E+00_JPRB,0.27799E+00_JPRB,0.35496E+00_JPRB,0.50259E+00_JPRB,0.66996E+00_JPRB, &
+ & 0.83740E+00_JPRB,0.10047E+01_JPRB,0.11720E+01_JPRB,0.13400E+01_JPRB /)  
+KA(:, 1,12,15) = (/ &
+ & 0.36545E+00_JPRB,0.33140E+00_JPRB,0.35636E+00_JPRB,0.42085E+00_JPRB,0.52250E+00_JPRB, &
+ & 0.64898E+00_JPRB,0.77872E+00_JPRB,0.90834E+00_JPRB,0.10384E+01_JPRB /)  
+KA(:, 2,12,15) = (/ &
+ & 0.35131E+00_JPRB,0.32685E+00_JPRB,0.36231E+00_JPRB,0.44658E+00_JPRB,0.56903E+00_JPRB, &
+ & 0.71087E+00_JPRB,0.85304E+00_JPRB,0.99503E+00_JPRB,0.11374E+01_JPRB /)  
+KA(:, 3,12,15) = (/ &
+ & 0.33841E+00_JPRB,0.32098E+00_JPRB,0.36825E+00_JPRB,0.47208E+00_JPRB,0.61613E+00_JPRB, &
+ & 0.77016E+00_JPRB,0.92410E+00_JPRB,0.10779E+01_JPRB,0.12323E+01_JPRB /)  
+KA(:, 4,12,15) = (/ &
+ & 0.32642E+00_JPRB,0.31543E+00_JPRB,0.37504E+00_JPRB,0.50058E+00_JPRB,0.66195E+00_JPRB, &
+ & 0.82736E+00_JPRB,0.99279E+00_JPRB,0.11580E+01_JPRB,0.13239E+01_JPRB /)  
+KA(:, 5,12,15) = (/ &
+ & 0.31541E+00_JPRB,0.31006E+00_JPRB,0.38358E+00_JPRB,0.53015E+00_JPRB,0.70512E+00_JPRB, &
+ & 0.88131E+00_JPRB,0.10574E+01_JPRB,0.12335E+01_JPRB,0.14101E+01_JPRB /)  
+KA(:, 1,13,15) = (/ &
+ & 0.40964E+00_JPRB,0.37314E+00_JPRB,0.39372E+00_JPRB,0.44813E+00_JPRB,0.54521E+00_JPRB, &
+ & 0.67332E+00_JPRB,0.80793E+00_JPRB,0.94247E+00_JPRB,0.10773E+01_JPRB /)  
+KA(:, 2,13,15) = (/ &
+ & 0.39277E+00_JPRB,0.36624E+00_JPRB,0.39629E+00_JPRB,0.47194E+00_JPRB,0.59295E+00_JPRB, &
+ & 0.73949E+00_JPRB,0.88734E+00_JPRB,0.10350E+01_JPRB,0.11832E+01_JPRB /)  
+KA(:, 3,13,15) = (/ &
+ & 0.37714E+00_JPRB,0.35816E+00_JPRB,0.39962E+00_JPRB,0.49769E+00_JPRB,0.64296E+00_JPRB, &
+ & 0.80367E+00_JPRB,0.96435E+00_JPRB,0.11249E+01_JPRB,0.12860E+01_JPRB /)  
+KA(:, 4,13,15) = (/ &
+ & 0.36268E+00_JPRB,0.35049E+00_JPRB,0.40459E+00_JPRB,0.52725E+00_JPRB,0.69174E+00_JPRB, &
+ & 0.86463E+00_JPRB,0.10374E+01_JPRB,0.12101E+01_JPRB,0.13834E+01_JPRB /)  
+KA(:, 5,13,15) = (/ &
+ & 0.34948E+00_JPRB,0.34295E+00_JPRB,0.41358E+00_JPRB,0.55736E+00_JPRB,0.73767E+00_JPRB, &
+ & 0.92205E+00_JPRB,0.11064E+01_JPRB,0.12905E+01_JPRB,0.14753E+01_JPRB /)  
+KA(:, 1, 1,16) = (/ &
+ & 0.90320E-01_JPRB,0.86361E-01_JPRB,0.17271E+00_JPRB,0.25905E+00_JPRB,0.34536E+00_JPRB, &
+ & 0.43163E+00_JPRB,0.51777E+00_JPRB,0.60344E+00_JPRB,0.64541E+00_JPRB /)  
+KA(:, 2, 1,16) = (/ &
+ & 0.88026E-01_JPRB,0.92415E-01_JPRB,0.18482E+00_JPRB,0.27721E+00_JPRB,0.36957E+00_JPRB, &
+ & 0.46188E+00_JPRB,0.55406E+00_JPRB,0.64572E+00_JPRB,0.69076E+00_JPRB /)  
+KA(:, 3, 1,16) = (/ &
+ & 0.85829E-01_JPRB,0.97954E-01_JPRB,0.19590E+00_JPRB,0.29382E+00_JPRB,0.39172E+00_JPRB, &
+ & 0.48957E+00_JPRB,0.58728E+00_JPRB,0.68449E+00_JPRB,0.73223E+00_JPRB /)  
+KA(:, 4, 1,16) = (/ &
+ & 0.83674E-01_JPRB,0.10298E+00_JPRB,0.20595E+00_JPRB,0.30890E+00_JPRB,0.41183E+00_JPRB, &
+ & 0.51469E+00_JPRB,0.61741E+00_JPRB,0.71956E+00_JPRB,0.77014E+00_JPRB /)  
+KA(:, 5, 1,16) = (/ &
+ & 0.84304E-01_JPRB,0.10756E+00_JPRB,0.21511E+00_JPRB,0.32264E+00_JPRB,0.43014E+00_JPRB, &
+ & 0.53758E+00_JPRB,0.64487E+00_JPRB,0.75164E+00_JPRB,0.80439E+00_JPRB /)  
+KA(:, 1, 2,16) = (/ &
+ & 0.99611E-01_JPRB,0.10121E+00_JPRB,0.20241E+00_JPRB,0.30359E+00_JPRB,0.40479E+00_JPRB, &
+ & 0.50590E+00_JPRB,0.60686E+00_JPRB,0.70732E+00_JPRB,0.77453E+00_JPRB /)  
+KA(:, 2, 2,16) = (/ &
+ & 0.97224E-01_JPRB,0.10870E+00_JPRB,0.21739E+00_JPRB,0.32607E+00_JPRB,0.43471E+00_JPRB, &
+ & 0.54336E+00_JPRB,0.65181E+00_JPRB,0.75967E+00_JPRB,0.83199E+00_JPRB /)  
+KA(:, 3, 2,16) = (/ &
+ & 0.94894E-01_JPRB,0.11558E+00_JPRB,0.23114E+00_JPRB,0.34669E+00_JPRB,0.46220E+00_JPRB, &
+ & 0.57772E+00_JPRB,0.69302E+00_JPRB,0.80771E+00_JPRB,0.88476E+00_JPRB /)  
+KA(:, 4, 2,16) = (/ &
+ & 0.92656E-01_JPRB,0.12184E+00_JPRB,0.24366E+00_JPRB,0.36546E+00_JPRB,0.48723E+00_JPRB, &
+ & 0.60893E+00_JPRB,0.73046E+00_JPRB,0.85132E+00_JPRB,0.93269E+00_JPRB /)  
+KA(:, 5, 2,16) = (/ &
+ & 0.93593E-01_JPRB,0.12749E+00_JPRB,0.25497E+00_JPRB,0.38243E+00_JPRB,0.50985E+00_JPRB, &
+ & 0.63721E+00_JPRB,0.76438E+00_JPRB,0.89083E+00_JPRB,0.97622E+00_JPRB /)  
+KA(:, 1, 3,16) = (/ &
+ & 0.11521E+00_JPRB,0.11614E+00_JPRB,0.23226E+00_JPRB,0.34836E+00_JPRB,0.46443E+00_JPRB, &
+ & 0.58044E+00_JPRB,0.69629E+00_JPRB,0.81149E+00_JPRB,0.90951E+00_JPRB /)  
+KA(:, 2, 3,16) = (/ &
+ & 0.11222E+00_JPRB,0.12555E+00_JPRB,0.25108E+00_JPRB,0.37659E+00_JPRB,0.50206E+00_JPRB, &
+ & 0.62747E+00_JPRB,0.75258E+00_JPRB,0.87709E+00_JPRB,0.98316E+00_JPRB /)  
+KA(:, 3, 3,16) = (/ &
+ & 0.10948E+00_JPRB,0.13410E+00_JPRB,0.26819E+00_JPRB,0.40226E+00_JPRB,0.53629E+00_JPRB, &
+ & 0.67035E+00_JPRB,0.80421E+00_JPRB,0.93726E+00_JPRB,0.10505E+01_JPRB /)  
+KA(:, 4, 3,16) = (/ &
+ & 0.10697E+00_JPRB,0.14195E+00_JPRB,0.28389E+00_JPRB,0.42580E+00_JPRB,0.56768E+00_JPRB, &
+ & 0.70947E+00_JPRB,0.85107E+00_JPRB,0.99187E+00_JPRB,0.11120E+01_JPRB /)  
+KA(:, 5, 3,16) = (/ &
+ & 0.10462E+00_JPRB,0.14901E+00_JPRB,0.29800E+00_JPRB,0.44697E+00_JPRB,0.59590E+00_JPRB, &
+ & 0.74474E+00_JPRB,0.89338E+00_JPRB,0.10415E+01_JPRB,0.11678E+01_JPRB /)  
+KA(:, 1, 4,16) = (/ &
+ & 0.13825E+00_JPRB,0.13238E+00_JPRB,0.26314E+00_JPRB,0.39468E+00_JPRB,0.52618E+00_JPRB, &
+ & 0.65761E+00_JPRB,0.78893E+00_JPRB,0.91946E+00_JPRB,0.10423E+01_JPRB /)  
+KA(:, 2, 4,16) = (/ &
+ & 0.13437E+00_JPRB,0.14320E+00_JPRB,0.28638E+00_JPRB,0.42954E+00_JPRB,0.57266E+00_JPRB, &
+ & 0.71574E+00_JPRB,0.85868E+00_JPRB,0.10008E+01_JPRB,0.11347E+01_JPRB /)  
+KA(:, 3, 4,16) = (/ &
+ & 0.13067E+00_JPRB,0.15392E+00_JPRB,0.30782E+00_JPRB,0.46170E+00_JPRB,0.61554E+00_JPRB, &
+ & 0.76929E+00_JPRB,0.92283E+00_JPRB,0.10757E+01_JPRB,0.12195E+01_JPRB /)  
+KA(:, 4, 4,16) = (/ &
+ & 0.12733E+00_JPRB,0.16364E+00_JPRB,0.32725E+00_JPRB,0.49085E+00_JPRB,0.65439E+00_JPRB, &
+ & 0.81785E+00_JPRB,0.98125E+00_JPRB,0.11437E+01_JPRB,0.12968E+01_JPRB /)  
+KA(:, 5, 4,16) = (/ &
+ & 0.12429E+00_JPRB,0.17242E+00_JPRB,0.34483E+00_JPRB,0.51721E+00_JPRB,0.68954E+00_JPRB, &
+ & 0.86178E+00_JPRB,0.10339E+01_JPRB,0.12053E+01_JPRB,0.13667E+01_JPRB /)  
+KA(:, 1, 5,16) = (/ &
+ & 0.16714E+00_JPRB,0.15294E+00_JPRB,0.29770E+00_JPRB,0.44651E+00_JPRB,0.59528E+00_JPRB, &
+ & 0.74397E+00_JPRB,0.89246E+00_JPRB,0.10402E+01_JPRB,0.11846E+01_JPRB /)  
+KA(:, 2, 5,16) = (/ &
+ & 0.16248E+00_JPRB,0.16289E+00_JPRB,0.32569E+00_JPRB,0.48850E+00_JPRB,0.65127E+00_JPRB, &
+ & 0.81396E+00_JPRB,0.97625E+00_JPRB,0.11381E+01_JPRB,0.12962E+01_JPRB /)  
+KA(:, 3, 5,16) = (/ &
+ & 0.15803E+00_JPRB,0.17580E+00_JPRB,0.35158E+00_JPRB,0.52733E+00_JPRB,0.70303E+00_JPRB, &
+ & 0.87864E+00_JPRB,0.10540E+01_JPRB,0.12284E+01_JPRB,0.13993E+01_JPRB /)  
+KA(:, 4, 5,16) = (/ &
+ & 0.15368E+00_JPRB,0.18757E+00_JPRB,0.37512E+00_JPRB,0.56264E+00_JPRB,0.75011E+00_JPRB, &
+ & 0.93747E+00_JPRB,0.11247E+01_JPRB,0.13108E+01_JPRB,0.14933E+01_JPRB /)  
+KA(:, 5, 5,16) = (/ &
+ & 0.14943E+00_JPRB,0.19824E+00_JPRB,0.39645E+00_JPRB,0.59477E+00_JPRB,0.79303E+00_JPRB, &
+ & 0.99112E+00_JPRB,0.11890E+01_JPRB,0.13858E+01_JPRB,0.15783E+01_JPRB /)  
+KA(:, 1, 6,16) = (/ &
+ & 0.20217E+00_JPRB,0.17926E+00_JPRB,0.33507E+00_JPRB,0.50257E+00_JPRB,0.67002E+00_JPRB, &
+ & 0.83741E+00_JPRB,0.10046E+01_JPRB,0.11708E+01_JPRB,0.13365E+01_JPRB /)  
+KA(:, 2, 6,16) = (/ &
+ & 0.19655E+00_JPRB,0.18668E+00_JPRB,0.36910E+00_JPRB,0.55360E+00_JPRB,0.73806E+00_JPRB, &
+ & 0.92245E+00_JPRB,0.11065E+01_JPRB,0.12896E+01_JPRB,0.14724E+01_JPRB /)  
+KA(:, 3, 6,16) = (/ &
+ & 0.19100E+00_JPRB,0.20029E+00_JPRB,0.40054E+00_JPRB,0.60077E+00_JPRB,0.80095E+00_JPRB, &
+ & 0.10010E+01_JPRB,0.12008E+01_JPRB,0.13997E+01_JPRB,0.15979E+01_JPRB /)  
+KA(:, 4, 6,16) = (/ &
+ & 0.18556E+00_JPRB,0.21465E+00_JPRB,0.42926E+00_JPRB,0.64385E+00_JPRB,0.85838E+00_JPRB, &
+ & 0.10728E+01_JPRB,0.12869E+01_JPRB,0.15000E+01_JPRB,0.17126E+01_JPRB /)  
+KA(:, 5, 6,16) = (/ &
+ & 0.18024E+00_JPRB,0.22760E+00_JPRB,0.45517E+00_JPRB,0.68271E+00_JPRB,0.91019E+00_JPRB, &
+ & 0.11375E+01_JPRB,0.13647E+01_JPRB,0.15907E+01_JPRB,0.18161E+01_JPRB /)  
+KA(:, 1, 7,16) = (/ &
+ & 0.24417E+00_JPRB,0.21368E+00_JPRB,0.37507E+00_JPRB,0.56256E+00_JPRB,0.75006E+00_JPRB, &
+ & 0.93742E+00_JPRB,0.11245E+01_JPRB,0.13107E+01_JPRB,0.14982E+01_JPRB /)  
+KA(:, 2, 7,16) = (/ &
+ & 0.23715E+00_JPRB,0.21661E+00_JPRB,0.41650E+00_JPRB,0.62470E+00_JPRB,0.83285E+00_JPRB, &
+ & 0.10409E+01_JPRB,0.12487E+01_JPRB,0.14555E+01_JPRB,0.16638E+01_JPRB /)  
+KA(:, 3, 7,16) = (/ &
+ & 0.23022E+00_JPRB,0.22856E+00_JPRB,0.45485E+00_JPRB,0.68222E+00_JPRB,0.90954E+00_JPRB, &
+ & 0.11367E+01_JPRB,0.13637E+01_JPRB,0.15896E+01_JPRB,0.18170E+01_JPRB /)  
+KA(:, 4, 7,16) = (/ &
+ & 0.22335E+00_JPRB,0.24491E+00_JPRB,0.48979E+00_JPRB,0.73464E+00_JPRB,0.97947E+00_JPRB, &
+ & 0.12241E+01_JPRB,0.14686E+01_JPRB,0.17118E+01_JPRB,0.19566E+01_JPRB /)  
+KA(:, 5, 7,16) = (/ &
+ & 0.21655E+00_JPRB,0.26068E+00_JPRB,0.52133E+00_JPRB,0.78194E+00_JPRB,0.10425E+01_JPRB, &
+ & 0.13029E+01_JPRB,0.15630E+01_JPRB,0.18220E+01_JPRB,0.20827E+01_JPRB /)  
+KA(:, 1, 8,16) = (/ &
+ & 0.29541E+00_JPRB,0.25848E+00_JPRB,0.41687E+00_JPRB,0.62527E+00_JPRB,0.83361E+00_JPRB, &
+ & 0.10419E+01_JPRB,0.12499E+01_JPRB,0.14571E+01_JPRB,0.16668E+01_JPRB /)  
+KA(:, 2, 8,16) = (/ &
+ & 0.28549E+00_JPRB,0.25449E+00_JPRB,0.46724E+00_JPRB,0.70082E+00_JPRB,0.93434E+00_JPRB, &
+ & 0.11678E+01_JPRB,0.14009E+01_JPRB,0.16328E+01_JPRB,0.18680E+01_JPRB /)  
+KA(:, 3, 8,16) = (/ &
+ & 0.27625E+00_JPRB,0.26285E+00_JPRB,0.51364E+00_JPRB,0.77040E+00_JPRB,0.10271E+01_JPRB, &
+ & 0.12838E+01_JPRB,0.15402E+01_JPRB,0.17956E+01_JPRB,0.20538E+01_JPRB /)  
+KA(:, 4, 8,16) = (/ &
+ & 0.26742E+00_JPRB,0.27883E+00_JPRB,0.55601E+00_JPRB,0.83395E+00_JPRB,0.11118E+01_JPRB, &
+ & 0.13896E+01_JPRB,0.16670E+01_JPRB,0.19436E+01_JPRB,0.22230E+01_JPRB /)  
+KA(:, 5, 8,16) = (/ &
+ & 0.25873E+00_JPRB,0.29706E+00_JPRB,0.59410E+00_JPRB,0.89109E+00_JPRB,0.11880E+01_JPRB, &
+ & 0.14848E+01_JPRB,0.17812E+01_JPRB,0.20764E+01_JPRB,0.23753E+01_JPRB /)  
+KA(:, 1, 9,16) = (/ &
+ & 0.35727E+00_JPRB,0.31262E+00_JPRB,0.45859E+00_JPRB,0.68783E+00_JPRB,0.91710E+00_JPRB, &
+ & 0.11462E+01_JPRB,0.13749E+01_JPRB,0.16027E+01_JPRB,0.18342E+01_JPRB /)  
+KA(:, 2, 9,16) = (/ &
+ & 0.34378E+00_JPRB,0.30157E+00_JPRB,0.51912E+00_JPRB,0.77863E+00_JPRB,0.10382E+01_JPRB, &
+ & 0.12975E+01_JPRB,0.15566E+01_JPRB,0.18147E+01_JPRB,0.20764E+01_JPRB /)  
+KA(:, 3, 9,16) = (/ &
+ & 0.33111E+00_JPRB,0.30494E+00_JPRB,0.57506E+00_JPRB,0.86254E+00_JPRB,0.11500E+01_JPRB, &
+ & 0.14374E+01_JPRB,0.17244E+01_JPRB,0.20104E+01_JPRB,0.23002E+01_JPRB /)  
+KA(:, 4, 9,16) = (/ &
+ & 0.31901E+00_JPRB,0.31860E+00_JPRB,0.62597E+00_JPRB,0.93889E+00_JPRB,0.12519E+01_JPRB, &
+ & 0.15648E+01_JPRB,0.18772E+01_JPRB,0.21885E+01_JPRB,0.25042E+01_JPRB /)  
+KA(:, 5, 9,16) = (/ &
+ & 0.30738E+00_JPRB,0.33686E+00_JPRB,0.67173E+00_JPRB,0.10075E+01_JPRB,0.13433E+01_JPRB, &
+ & 0.16788E+01_JPRB,0.20142E+01_JPRB,0.23482E+01_JPRB,0.26866E+01_JPRB /)  
+KA(:, 1,10,16) = (/ &
+ & 0.42900E+00_JPRB,0.37537E+00_JPRB,0.50742E+00_JPRB,0.76107E+00_JPRB,0.10147E+01_JPRB, &
+ & 0.12682E+01_JPRB,0.15216E+01_JPRB,0.17737E+01_JPRB,0.20298E+01_JPRB /)  
+KA(:, 2,10,16) = (/ &
+ & 0.41120E+00_JPRB,0.35980E+00_JPRB,0.57626E+00_JPRB,0.86440E+00_JPRB,0.11524E+01_JPRB, &
+ & 0.14403E+01_JPRB,0.17281E+01_JPRB,0.20148E+01_JPRB,0.23052E+01_JPRB /)  
+KA(:, 3,10,16) = (/ &
+ & 0.39435E+00_JPRB,0.35582E+00_JPRB,0.64201E+00_JPRB,0.96295E+00_JPRB,0.12838E+01_JPRB, &
+ & 0.16046E+01_JPRB,0.19250E+01_JPRB,0.22444E+01_JPRB,0.25680E+01_JPRB /)  
+KA(:, 4,10,16) = (/ &
+ & 0.37835E+00_JPRB,0.36721E+00_JPRB,0.70220E+00_JPRB,0.10532E+01_JPRB,0.14042E+01_JPRB, &
+ & 0.17550E+01_JPRB,0.21055E+01_JPRB,0.24551E+01_JPRB,0.28089E+01_JPRB /)  
+KA(:, 5,10,16) = (/ &
+ & 0.36302E+00_JPRB,0.38402E+00_JPRB,0.75599E+00_JPRB,0.11339E+01_JPRB,0.15118E+01_JPRB, &
+ & 0.18894E+01_JPRB,0.22669E+01_JPRB,0.26429E+01_JPRB,0.30243E+01_JPRB /)  
+KA(:, 1,11,16) = (/ &
+ & 0.50130E+00_JPRB,0.43864E+00_JPRB,0.59754E+00_JPRB,0.89626E+00_JPRB,0.11949E+01_JPRB, &
+ & 0.14934E+01_JPRB,0.17919E+01_JPRB,0.20890E+01_JPRB,0.23902E+01_JPRB /)  
+KA(:, 2,11,16) = (/ &
+ & 0.47862E+00_JPRB,0.41971E+00_JPRB,0.67375E+00_JPRB,0.10106E+01_JPRB,0.13473E+01_JPRB, &
+ & 0.16840E+01_JPRB,0.20203E+01_JPRB,0.23553E+01_JPRB,0.26950E+01_JPRB /)  
+KA(:, 3,11,16) = (/ &
+ & 0.45729E+00_JPRB,0.41739E+00_JPRB,0.74475E+00_JPRB,0.11171E+01_JPRB,0.14893E+01_JPRB, &
+ & 0.18615E+01_JPRB,0.22335E+01_JPRB,0.26038E+01_JPRB,0.29786E+01_JPRB /)  
+KA(:, 4,11,16) = (/ &
+ & 0.43691E+00_JPRB,0.42957E+00_JPRB,0.80967E+00_JPRB,0.12144E+01_JPRB,0.16191E+01_JPRB, &
+ & 0.20236E+01_JPRB,0.24280E+01_JPRB,0.28308E+01_JPRB,0.32389E+01_JPRB /)  
+KA(:, 5,11,16) = (/ &
+ & 0.41748E+00_JPRB,0.44621E+00_JPRB,0.86800E+00_JPRB,0.13019E+01_JPRB,0.17360E+01_JPRB, &
+ & 0.21698E+01_JPRB,0.26031E+01_JPRB,0.30355E+01_JPRB,0.34723E+01_JPRB /)  
+KA(:, 1,12,16) = (/ &
+ & 0.58052E+00_JPRB,0.50796E+00_JPRB,0.69775E+00_JPRB,0.10466E+01_JPRB,0.13954E+01_JPRB, &
+ & 0.17440E+01_JPRB,0.20924E+01_JPRB,0.24394E+01_JPRB,0.27908E+01_JPRB /)  
+KA(:, 2,12,16) = (/ &
+ & 0.55207E+00_JPRB,0.48627E+00_JPRB,0.78177E+00_JPRB,0.11726E+01_JPRB,0.15635E+01_JPRB, &
+ & 0.19543E+01_JPRB,0.23447E+01_JPRB,0.27336E+01_JPRB,0.31273E+01_JPRB /)  
+KA(:, 3,12,16) = (/ &
+ & 0.52503E+00_JPRB,0.48543E+00_JPRB,0.85881E+00_JPRB,0.12881E+01_JPRB,0.17174E+01_JPRB, &
+ & 0.21467E+01_JPRB,0.25754E+01_JPRB,0.30027E+01_JPRB,0.34355E+01_JPRB /)  
+KA(:, 4,12,16) = (/ &
+ & 0.49945E+00_JPRB,0.49746E+00_JPRB,0.92780E+00_JPRB,0.13917E+01_JPRB,0.18554E+01_JPRB, &
+ & 0.23191E+01_JPRB,0.27823E+01_JPRB,0.32446E+01_JPRB,0.37108E+01_JPRB /)  
+KA(:, 5,12,16) = (/ &
+ & 0.47536E+00_JPRB,0.51344E+00_JPRB,0.98885E+00_JPRB,0.14832E+01_JPRB,0.19776E+01_JPRB, &
+ & 0.24717E+01_JPRB,0.29655E+01_JPRB,0.34576E+01_JPRB,0.39563E+01_JPRB /)  
+KA(:, 1,13,16) = (/ &
+ & 0.66560E+00_JPRB,0.58240E+00_JPRB,0.80598E+00_JPRB,0.12089E+01_JPRB,0.16118E+01_JPRB, &
+ & 0.20145E+01_JPRB,0.24172E+01_JPRB,0.28183E+01_JPRB,0.32240E+01_JPRB /)  
+KA(:, 2,13,16) = (/ &
+ & 0.62986E+00_JPRB,0.55885E+00_JPRB,0.89794E+00_JPRB,0.13468E+01_JPRB,0.17957E+01_JPRB, &
+ & 0.22443E+01_JPRB,0.26925E+01_JPRB,0.31396E+01_JPRB,0.35914E+01_JPRB /)  
+KA(:, 3,13,16) = (/ &
+ & 0.59613E+00_JPRB,0.55868E+00_JPRB,0.98065E+00_JPRB,0.14709E+01_JPRB,0.19611E+01_JPRB, &
+ & 0.24513E+01_JPRB,0.29409E+01_JPRB,0.34293E+01_JPRB,0.39230E+01_JPRB /)  
+KA(:, 4,13,16) = (/ &
+ & 0.56427E+00_JPRB,0.56950E+00_JPRB,0.10539E+01_JPRB,0.15808E+01_JPRB,0.21076E+01_JPRB, &
+ & 0.26342E+01_JPRB,0.31605E+01_JPRB,0.36850E+01_JPRB,0.42159E+01_JPRB /)  
+KA(:, 5,13,16) = (/ &
+ & 0.53530E+00_JPRB,0.58425E+00_JPRB,0.11174E+01_JPRB,0.16761E+01_JPRB,0.22346E+01_JPRB, &
+ & 0.27933E+01_JPRB,0.33512E+01_JPRB,0.39078E+01_JPRB,0.44703E+01_JPRB /)  
+  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART11',1,ZHOOK_HANDLE)
+END SUBROUTINE PART11
+
+
+SUBROUTINE PART12
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART12',0,ZHOOK_HANDLE)
+
+
+!     -----------------------------------------------------------------
+!     The array KB contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels < ~100mb and temperatures. The first 
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this pressure 
+!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for
+!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  
+!     The second index, JP, runs from 13 to 59 and refers to the JPth
+!     reference pressure level (see taumol.f for the value of these
+!     pressure levels in mb).  The third index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+!     -----------------------------------------------------------------
+
+KB(:,13, 1) = (/ &
+ & 0.12810E-03_JPRB,0.12891E-03_JPRB,0.12890E-03_JPRB,0.12713E-03_JPRB,0.12477E-03_JPRB /)  
+KB(:,14, 1) = (/ &
+ & 0.10653E-03_JPRB,0.10667E-03_JPRB,0.10648E-03_JPRB,0.10473E-03_JPRB,0.10293E-03_JPRB /)  
+KB(:,15, 1) = (/ &
+ & 0.90176E-04_JPRB,0.90077E-04_JPRB,0.89286E-04_JPRB,0.87879E-04_JPRB,0.85987E-04_JPRB /)  
+KB(:,16, 1) = (/ &
+ & 0.77704E-04_JPRB,0.77304E-04_JPRB,0.75879E-04_JPRB,0.74246E-04_JPRB,0.72070E-04_JPRB /)  
+KB(:,17, 1) = (/ &
+ & 0.67183E-04_JPRB,0.65906E-04_JPRB,0.64619E-04_JPRB,0.63000E-04_JPRB,0.61056E-04_JPRB /)  
+KB(:,18, 1) = (/ &
+ & 0.58741E-04_JPRB,0.57649E-04_JPRB,0.56028E-04_JPRB,0.54293E-04_JPRB,0.52506E-04_JPRB /)  
+KB(:,19, 1) = (/ &
+ & 0.51839E-04_JPRB,0.50715E-04_JPRB,0.49053E-04_JPRB,0.47195E-04_JPRB,0.45368E-04_JPRB /)  
+KB(:,20, 1) = (/ &
+ & 0.44321E-04_JPRB,0.43297E-04_JPRB,0.41923E-04_JPRB,0.40298E-04_JPRB,0.38744E-04_JPRB /)  
+KB(:,21, 1) = (/ &
+ & 0.37527E-04_JPRB,0.36516E-04_JPRB,0.35380E-04_JPRB,0.34037E-04_JPRB,0.32951E-04_JPRB /)  
+KB(:,22, 1) = (/ &
+ & 0.31752E-04_JPRB,0.30703E-04_JPRB,0.29586E-04_JPRB,0.28499E-04_JPRB,0.27519E-04_JPRB /)  
+KB(:,23, 1) = (/ &
+ & 0.26638E-04_JPRB,0.25643E-04_JPRB,0.24693E-04_JPRB,0.23832E-04_JPRB,0.22913E-04_JPRB /)  
+KB(:,24, 1) = (/ &
+ & 0.22325E-04_JPRB,0.21480E-04_JPRB,0.20621E-04_JPRB,0.19867E-04_JPRB,0.19066E-04_JPRB /)  
+KB(:,25, 1) = (/ &
+ & 0.18764E-04_JPRB,0.17998E-04_JPRB,0.17269E-04_JPRB,0.16527E-04_JPRB,0.15821E-04_JPRB /)  
+KB(:,26, 1) = (/ &
+ & 0.15650E-04_JPRB,0.14992E-04_JPRB,0.14356E-04_JPRB,0.13710E-04_JPRB,0.13119E-04_JPRB /)  
+KB(:,27, 1) = (/ &
+ & 0.13054E-04_JPRB,0.12477E-04_JPRB,0.11929E-04_JPRB,0.11393E-04_JPRB,0.10948E-04_JPRB /)  
+KB(:,28, 1) = (/ &
+ & 0.10852E-04_JPRB,0.10390E-04_JPRB,0.99195E-05_JPRB,0.95020E-05_JPRB,0.91993E-05_JPRB /)  
+KB(:,29, 1) = (/ &
+ & 0.90990E-05_JPRB,0.87209E-05_JPRB,0.83384E-05_JPRB,0.80029E-05_JPRB,0.77245E-05_JPRB /)  
+KB(:,30, 1) = (/ &
+ & 0.77169E-05_JPRB,0.73662E-05_JPRB,0.70552E-05_JPRB,0.68029E-05_JPRB,0.65749E-05_JPRB /)  
+KB(:,31, 1) = (/ &
+ & 0.65250E-05_JPRB,0.62364E-05_JPRB,0.60172E-05_JPRB,0.57804E-05_JPRB,0.55504E-05_JPRB /)  
+KB(:,32, 1) = (/ &
+ & 0.55167E-05_JPRB,0.53021E-05_JPRB,0.51088E-05_JPRB,0.49113E-05_JPRB,0.47150E-05_JPRB /)  
+KB(:,33, 1) = (/ &
+ & 0.47261E-05_JPRB,0.45530E-05_JPRB,0.43641E-05_JPRB,0.41725E-05_JPRB,0.40077E-05_JPRB /)  
+KB(:,34, 1) = (/ &
+ & 0.40646E-05_JPRB,0.39062E-05_JPRB,0.37472E-05_JPRB,0.36009E-05_JPRB,0.34549E-05_JPRB /)  
+KB(:,35, 1) = (/ &
+ & 0.35479E-05_JPRB,0.34057E-05_JPRB,0.32704E-05_JPRB,0.31420E-05_JPRB,0.30219E-05_JPRB /)  
+KB(:,36, 1) = (/ &
+ & 0.31353E-05_JPRB,0.30270E-05_JPRB,0.29024E-05_JPRB,0.27776E-05_JPRB,0.26600E-05_JPRB /)  
+KB(:,37, 1) = (/ &
+ & 0.26595E-05_JPRB,0.25621E-05_JPRB,0.24646E-05_JPRB,0.23582E-05_JPRB,0.22563E-05_JPRB /)  
+KB(:,38, 1) = (/ &
+ & 0.22468E-05_JPRB,0.21651E-05_JPRB,0.20812E-05_JPRB,0.20043E-05_JPRB,0.19221E-05_JPRB /)  
+KB(:,39, 1) = (/ &
+ & 0.19009E-05_JPRB,0.18335E-05_JPRB,0.17685E-05_JPRB,0.17039E-05_JPRB,0.16406E-05_JPRB /)  
+KB(:,40, 1) = (/ &
+ & 0.15746E-05_JPRB,0.15188E-05_JPRB,0.14669E-05_JPRB,0.14148E-05_JPRB,0.13668E-05_JPRB /)  
+KB(:,41, 1) = (/ &
+ & 0.13001E-05_JPRB,0.12561E-05_JPRB,0.12122E-05_JPRB,0.11718E-05_JPRB,0.11306E-05_JPRB /)  
+KB(:,42, 1) = (/ &
+ & 0.10716E-05_JPRB,0.10380E-05_JPRB,0.10018E-05_JPRB,0.96745E-06_JPRB,0.93475E-06_JPRB /)  
+KB(:,43, 1) = (/ &
+ & 0.87651E-06_JPRB,0.85172E-06_JPRB,0.82453E-06_JPRB,0.79560E-06_JPRB,0.77011E-06_JPRB /)  
+KB(:,44, 1) = (/ &
+ & 0.71565E-06_JPRB,0.69699E-06_JPRB,0.67699E-06_JPRB,0.65403E-06_JPRB,0.63202E-06_JPRB /)  
+KB(:,45, 1) = (/ &
+ & 0.58391E-06_JPRB,0.56946E-06_JPRB,0.55318E-06_JPRB,0.53575E-06_JPRB,0.51774E-06_JPRB /)  
+KB(:,46, 1) = (/ &
+ & 0.47490E-06_JPRB,0.46531E-06_JPRB,0.45175E-06_JPRB,0.43686E-06_JPRB,0.42260E-06_JPRB /)  
+KB(:,47, 1) = (/ &
+ & 0.38718E-06_JPRB,0.37610E-06_JPRB,0.36650E-06_JPRB,0.35580E-06_JPRB,0.34417E-06_JPRB /)  
+KB(:,48, 1) = (/ &
+ & 0.31464E-06_JPRB,0.30494E-06_JPRB,0.29872E-06_JPRB,0.29096E-06_JPRB,0.28230E-06_JPRB /)  
+KB(:,49, 1) = (/ &
+ & 0.25542E-06_JPRB,0.24885E-06_JPRB,0.24314E-06_JPRB,0.23745E-06_JPRB,0.23092E-06_JPRB /)  
+KB(:,50, 1) = (/ &
+ & 0.20741E-06_JPRB,0.20175E-06_JPRB,0.19699E-06_JPRB,0.19305E-06_JPRB,0.18791E-06_JPRB /)  
+KB(:,51, 1) = (/ &
+ & 0.16760E-06_JPRB,0.16406E-06_JPRB,0.15993E-06_JPRB,0.15631E-06_JPRB,0.15327E-06_JPRB /)  
+KB(:,52, 1) = (/ &
+ & 0.13579E-06_JPRB,0.13287E-06_JPRB,0.12985E-06_JPRB,0.12725E-06_JPRB,0.12470E-06_JPRB /)  
+KB(:,53, 1) = (/ &
+ & 0.11006E-06_JPRB,0.10757E-06_JPRB,0.10568E-06_JPRB,0.10314E-06_JPRB,0.10101E-06_JPRB /)  
+KB(:,54, 1) = (/ &
+ & 0.88711E-07_JPRB,0.87131E-07_JPRB,0.85162E-07_JPRB,0.83405E-07_JPRB,0.81585E-07_JPRB /)  
+KB(:,55, 1) = (/ &
+ & 0.70889E-07_JPRB,0.69917E-07_JPRB,0.68692E-07_JPRB,0.67463E-07_JPRB,0.66047E-07_JPRB /)  
+KB(:,56, 1) = (/ &
+ & 0.56659E-07_JPRB,0.56077E-07_JPRB,0.55518E-07_JPRB,0.54462E-07_JPRB,0.53563E-07_JPRB /)  
+KB(:,57, 1) = (/ &
+ & 0.45380E-07_JPRB,0.45159E-07_JPRB,0.44718E-07_JPRB,0.44063E-07_JPRB,0.43116E-07_JPRB /)  
+KB(:,58, 1) = (/ &
+ & 0.35962E-07_JPRB,0.36177E-07_JPRB,0.35997E-07_JPRB,0.35600E-07_JPRB,0.34340E-07_JPRB /)  
+KB(:,59, 1) = (/ &
+ & 0.28578E-07_JPRB,0.28924E-07_JPRB,0.28901E-07_JPRB,0.28176E-07_JPRB,0.27246E-07_JPRB /)  
+KB(:,13, 2) = (/ &
+ & 0.63215E-03_JPRB,0.64756E-03_JPRB,0.65734E-03_JPRB,0.66515E-03_JPRB,0.67077E-03_JPRB /)  
+KB(:,14, 2) = (/ &
+ & 0.52378E-03_JPRB,0.53631E-03_JPRB,0.54485E-03_JPRB,0.55071E-03_JPRB,0.55605E-03_JPRB /)  
+KB(:,15, 2) = (/ &
+ & 0.43777E-03_JPRB,0.44814E-03_JPRB,0.45521E-03_JPRB,0.46124E-03_JPRB,0.46700E-03_JPRB /)  
+KB(:,16, 2) = (/ &
+ & 0.37023E-03_JPRB,0.37869E-03_JPRB,0.38568E-03_JPRB,0.39070E-03_JPRB,0.39760E-03_JPRB /)  
+KB(:,17, 2) = (/ &
+ & 0.31753E-03_JPRB,0.32632E-03_JPRB,0.33254E-03_JPRB,0.33817E-03_JPRB,0.34312E-03_JPRB /)  
+KB(:,18, 2) = (/ &
+ & 0.27580E-03_JPRB,0.28310E-03_JPRB,0.28915E-03_JPRB,0.29488E-03_JPRB,0.29855E-03_JPRB /)  
+KB(:,19, 2) = (/ &
+ & 0.24129E-03_JPRB,0.24697E-03_JPRB,0.25302E-03_JPRB,0.25785E-03_JPRB,0.26137E-03_JPRB /)  
+KB(:,20, 2) = (/ &
+ & 0.20470E-03_JPRB,0.21040E-03_JPRB,0.21552E-03_JPRB,0.21963E-03_JPRB,0.22260E-03_JPRB /)  
+KB(:,21, 2) = (/ &
+ & 0.17290E-03_JPRB,0.17782E-03_JPRB,0.18188E-03_JPRB,0.18513E-03_JPRB,0.18794E-03_JPRB /)  
+KB(:,22, 2) = (/ &
+ & 0.14599E-03_JPRB,0.15063E-03_JPRB,0.15389E-03_JPRB,0.15682E-03_JPRB,0.15965E-03_JPRB /)  
+KB(:,23, 2) = (/ &
+ & 0.12390E-03_JPRB,0.12797E-03_JPRB,0.13071E-03_JPRB,0.13347E-03_JPRB,0.13571E-03_JPRB /)  
+KB(:,24, 2) = (/ &
+ & 0.10553E-03_JPRB,0.10875E-03_JPRB,0.11134E-03_JPRB,0.11351E-03_JPRB,0.11513E-03_JPRB /)  
+KB(:,25, 2) = (/ &
+ & 0.90263E-04_JPRB,0.92560E-04_JPRB,0.94667E-04_JPRB,0.96225E-04_JPRB,0.97041E-04_JPRB /)  
+KB(:,26, 2) = (/ &
+ & 0.76542E-04_JPRB,0.78227E-04_JPRB,0.79755E-04_JPRB,0.80768E-04_JPRB,0.81412E-04_JPRB /)  
+KB(:,27, 2) = (/ &
+ & 0.64562E-04_JPRB,0.66024E-04_JPRB,0.67121E-04_JPRB,0.67878E-04_JPRB,0.67992E-04_JPRB /)  
+KB(:,28, 2) = (/ &
+ & 0.54587E-04_JPRB,0.55668E-04_JPRB,0.56439E-04_JPRB,0.56778E-04_JPRB,0.56649E-04_JPRB /)  
+KB(:,29, 2) = (/ &
+ & 0.46248E-04_JPRB,0.46885E-04_JPRB,0.47469E-04_JPRB,0.47476E-04_JPRB,0.47464E-04_JPRB /)  
+KB(:,30, 2) = (/ &
+ & 0.39084E-04_JPRB,0.39701E-04_JPRB,0.39836E-04_JPRB,0.39919E-04_JPRB,0.39762E-04_JPRB /)  
+KB(:,31, 2) = (/ &
+ & 0.33297E-04_JPRB,0.33670E-04_JPRB,0.33781E-04_JPRB,0.33571E-04_JPRB,0.33418E-04_JPRB /)  
+KB(:,32, 2) = (/ &
+ & 0.28475E-04_JPRB,0.28479E-04_JPRB,0.28352E-04_JPRB,0.28202E-04_JPRB,0.28107E-04_JPRB /)  
+KB(:,33, 2) = (/ &
+ & 0.24023E-04_JPRB,0.23977E-04_JPRB,0.23874E-04_JPRB,0.23858E-04_JPRB,0.23729E-04_JPRB /)  
+KB(:,34, 2) = (/ &
+ & 0.20276E-04_JPRB,0.20314E-04_JPRB,0.20262E-04_JPRB,0.20205E-04_JPRB,0.20013E-04_JPRB /)  
+KB(:,35, 2) = (/ &
+ & 0.17177E-04_JPRB,0.17179E-04_JPRB,0.17181E-04_JPRB,0.17048E-04_JPRB,0.16915E-04_JPRB /)  
+KB(:,36, 2) = (/ &
+ & 0.14586E-04_JPRB,0.14632E-04_JPRB,0.14569E-04_JPRB,0.14465E-04_JPRB,0.14404E-04_JPRB /)  
+KB(:,37, 2) = (/ &
+ & 0.12165E-04_JPRB,0.12220E-04_JPRB,0.12164E-04_JPRB,0.12099E-04_JPRB,0.12036E-04_JPRB /)  
+KB(:,38, 2) = (/ &
+ & 0.10178E-04_JPRB,0.10224E-04_JPRB,0.10201E-04_JPRB,0.10134E-04_JPRB,0.10060E-04_JPRB /)  
+KB(:,39, 2) = (/ &
+ & 0.85622E-05_JPRB,0.85826E-05_JPRB,0.85520E-05_JPRB,0.85109E-05_JPRB,0.84378E-05_JPRB /)  
+KB(:,40, 2) = (/ &
+ & 0.70263E-05_JPRB,0.70549E-05_JPRB,0.70334E-05_JPRB,0.70000E-05_JPRB,0.69500E-05_JPRB /)  
+KB(:,41, 2) = (/ &
+ & 0.57510E-05_JPRB,0.57749E-05_JPRB,0.57692E-05_JPRB,0.57384E-05_JPRB,0.57121E-05_JPRB /)  
+KB(:,42, 2) = (/ &
+ & 0.47038E-05_JPRB,0.47261E-05_JPRB,0.47278E-05_JPRB,0.47023E-05_JPRB,0.46867E-05_JPRB /)  
+KB(:,43, 2) = (/ &
+ & 0.38249E-05_JPRB,0.38339E-05_JPRB,0.38498E-05_JPRB,0.38364E-05_JPRB,0.38125E-05_JPRB /)  
+KB(:,44, 2) = (/ &
+ & 0.30973E-05_JPRB,0.31120E-05_JPRB,0.31166E-05_JPRB,0.31203E-05_JPRB,0.31022E-05_JPRB /)  
+KB(:,45, 2) = (/ &
+ & 0.25085E-05_JPRB,0.25263E-05_JPRB,0.25293E-05_JPRB,0.25328E-05_JPRB,0.25249E-05_JPRB /)  
+KB(:,46, 2) = (/ &
+ & 0.20261E-05_JPRB,0.20479E-05_JPRB,0.20565E-05_JPRB,0.20575E-05_JPRB,0.20588E-05_JPRB /)  
+KB(:,47, 2) = (/ &
+ & 0.16319E-05_JPRB,0.16639E-05_JPRB,0.16745E-05_JPRB,0.16740E-05_JPRB,0.16759E-05_JPRB /)  
+KB(:,48, 2) = (/ &
+ & 0.13097E-05_JPRB,0.13449E-05_JPRB,0.13611E-05_JPRB,0.13624E-05_JPRB,0.13589E-05_JPRB /)  
+KB(:,49, 2) = (/ &
+ & 0.10521E-05_JPRB,0.10847E-05_JPRB,0.11052E-05_JPRB,0.11102E-05_JPRB,0.11085E-05_JPRB /)  
+KB(:,50, 2) = (/ &
+ & 0.84668E-06_JPRB,0.87235E-06_JPRB,0.89544E-06_JPRB,0.90607E-06_JPRB,0.90616E-06_JPRB /)  
+KB(:,51, 2) = (/ &
+ & 0.68060E-06_JPRB,0.70180E-06_JPRB,0.72187E-06_JPRB,0.73562E-06_JPRB,0.73800E-06_JPRB /)  
+KB(:,52, 2) = (/ &
+ & 0.54634E-06_JPRB,0.56481E-06_JPRB,0.58256E-06_JPRB,0.59543E-06_JPRB,0.60122E-06_JPRB /)  
+KB(:,53, 2) = (/ &
+ & 0.43866E-06_JPRB,0.45577E-06_JPRB,0.46957E-06_JPRB,0.48176E-06_JPRB,0.48940E-06_JPRB /)  
+KB(:,54, 2) = (/ &
+ & 0.35062E-06_JPRB,0.36647E-06_JPRB,0.37935E-06_JPRB,0.38978E-06_JPRB,0.39697E-06_JPRB /)  
+KB(:,55, 2) = (/ &
+ & 0.27883E-06_JPRB,0.29514E-06_JPRB,0.30397E-06_JPRB,0.31251E-06_JPRB,0.32004E-06_JPRB /)  
+KB(:,56, 2) = (/ &
+ & 0.22098E-06_JPRB,0.23550E-06_JPRB,0.24289E-06_JPRB,0.25018E-06_JPRB,0.25708E-06_JPRB /)  
+KB(:,57, 2) = (/ &
+ & 0.17295E-06_JPRB,0.18624E-06_JPRB,0.19332E-06_JPRB,0.19934E-06_JPRB,0.20587E-06_JPRB /)  
+KB(:,58, 2) = (/ &
+ & 0.13623E-06_JPRB,0.14680E-06_JPRB,0.15403E-06_JPRB,0.15912E-06_JPRB,0.16499E-06_JPRB /)  
+KB(:,59, 2) = (/ &
+ & 0.10864E-06_JPRB,0.11680E-06_JPRB,0.12353E-06_JPRB,0.12840E-06_JPRB,0.13352E-06_JPRB /)  
+KB(:,13, 3) = (/ &
+ & 0.21069E-02_JPRB,0.21571E-02_JPRB,0.21943E-02_JPRB,0.22061E-02_JPRB,0.22124E-02_JPRB /)  
+KB(:,14, 3) = (/ &
+ & 0.17411E-02_JPRB,0.17833E-02_JPRB,0.18097E-02_JPRB,0.18225E-02_JPRB,0.18251E-02_JPRB /)  
+KB(:,15, 3) = (/ &
+ & 0.14440E-02_JPRB,0.14790E-02_JPRB,0.14963E-02_JPRB,0.15066E-02_JPRB,0.15066E-02_JPRB /)  
+KB(:,16, 3) = (/ &
+ & 0.11998E-02_JPRB,0.12261E-02_JPRB,0.12398E-02_JPRB,0.12500E-02_JPRB,0.12487E-02_JPRB /)  
+KB(:,17, 3) = (/ &
+ & 0.99980E-03_JPRB,0.10202E-02_JPRB,0.10332E-02_JPRB,0.10399E-02_JPRB,0.10392E-02_JPRB /)  
+KB(:,18, 3) = (/ &
+ & 0.83805E-03_JPRB,0.85629E-03_JPRB,0.86827E-03_JPRB,0.87303E-03_JPRB,0.87540E-03_JPRB /)  
+KB(:,19, 3) = (/ &
+ & 0.70743E-03_JPRB,0.72381E-03_JPRB,0.73251E-03_JPRB,0.73550E-03_JPRB,0.73931E-03_JPRB /)  
+KB(:,20, 3) = (/ &
+ & 0.59348E-03_JPRB,0.60572E-03_JPRB,0.61137E-03_JPRB,0.61496E-03_JPRB,0.61761E-03_JPRB /)  
+KB(:,21, 3) = (/ &
+ & 0.49556E-03_JPRB,0.50488E-03_JPRB,0.50987E-03_JPRB,0.51421E-03_JPRB,0.51581E-03_JPRB /)  
+KB(:,22, 3) = (/ &
+ & 0.41461E-03_JPRB,0.42145E-03_JPRB,0.42584E-03_JPRB,0.42969E-03_JPRB,0.43055E-03_JPRB /)  
+KB(:,23, 3) = (/ &
+ & 0.34683E-03_JPRB,0.35181E-03_JPRB,0.35660E-03_JPRB,0.35911E-03_JPRB,0.35958E-03_JPRB /)  
+KB(:,24, 3) = (/ &
+ & 0.29004E-03_JPRB,0.29383E-03_JPRB,0.29787E-03_JPRB,0.29964E-03_JPRB,0.30042E-03_JPRB /)  
+KB(:,25, 3) = (/ &
+ & 0.24146E-03_JPRB,0.24561E-03_JPRB,0.24879E-03_JPRB,0.25053E-03_JPRB,0.25134E-03_JPRB /)  
+KB(:,26, 3) = (/ &
+ & 0.20160E-03_JPRB,0.20537E-03_JPRB,0.20774E-03_JPRB,0.20928E-03_JPRB,0.21023E-03_JPRB /)  
+KB(:,27, 3) = (/ &
+ & 0.16916E-03_JPRB,0.17226E-03_JPRB,0.17386E-03_JPRB,0.17529E-03_JPRB,0.17634E-03_JPRB /)  
+KB(:,28, 3) = (/ &
+ & 0.14183E-03_JPRB,0.14414E-03_JPRB,0.14604E-03_JPRB,0.14741E-03_JPRB,0.14844E-03_JPRB /)  
+KB(:,29, 3) = (/ &
+ & 0.11954E-03_JPRB,0.12161E-03_JPRB,0.12286E-03_JPRB,0.12386E-03_JPRB,0.12448E-03_JPRB /)  
+KB(:,30, 3) = (/ &
+ & 0.10067E-03_JPRB,0.10205E-03_JPRB,0.10331E-03_JPRB,0.10409E-03_JPRB,0.10476E-03_JPRB /)  
+KB(:,31, 3) = (/ &
+ & 0.85014E-04_JPRB,0.86248E-04_JPRB,0.87024E-04_JPRB,0.87958E-04_JPRB,0.88579E-04_JPRB /)  
+KB(:,32, 3) = (/ &
+ & 0.71930E-04_JPRB,0.73074E-04_JPRB,0.73985E-04_JPRB,0.74934E-04_JPRB,0.74848E-04_JPRB /)  
+KB(:,33, 3) = (/ &
+ & 0.61205E-04_JPRB,0.62259E-04_JPRB,0.63209E-04_JPRB,0.63383E-04_JPRB,0.63466E-04_JPRB /)  
+KB(:,34, 3) = (/ &
+ & 0.52046E-04_JPRB,0.52896E-04_JPRB,0.53420E-04_JPRB,0.53516E-04_JPRB,0.53755E-04_JPRB /)  
+KB(:,35, 3) = (/ &
+ & 0.44380E-04_JPRB,0.45121E-04_JPRB,0.45277E-04_JPRB,0.45604E-04_JPRB,0.45761E-04_JPRB /)  
+KB(:,36, 3) = (/ &
+ & 0.38058E-04_JPRB,0.38409E-04_JPRB,0.38657E-04_JPRB,0.38813E-04_JPRB,0.38628E-04_JPRB /)  
+KB(:,37, 3) = (/ &
+ & 0.31735E-04_JPRB,0.31990E-04_JPRB,0.32199E-04_JPRB,0.32288E-04_JPRB,0.32179E-04_JPRB /)  
+KB(:,38, 3) = (/ &
+ & 0.26378E-04_JPRB,0.26667E-04_JPRB,0.26778E-04_JPRB,0.26840E-04_JPRB,0.26760E-04_JPRB /)  
+KB(:,39, 3) = (/ &
+ & 0.21949E-04_JPRB,0.22195E-04_JPRB,0.22340E-04_JPRB,0.22330E-04_JPRB,0.22281E-04_JPRB /)  
+KB(:,40, 3) = (/ &
+ & 0.18001E-04_JPRB,0.18209E-04_JPRB,0.18338E-04_JPRB,0.18376E-04_JPRB,0.18309E-04_JPRB /)  
+KB(:,41, 3) = (/ &
+ & 0.14715E-04_JPRB,0.14906E-04_JPRB,0.15025E-04_JPRB,0.15098E-04_JPRB,0.15026E-04_JPRB /)  
+KB(:,42, 3) = (/ &
+ & 0.12019E-04_JPRB,0.12197E-04_JPRB,0.12312E-04_JPRB,0.12380E-04_JPRB,0.12346E-04_JPRB /)  
+KB(:,43, 3) = (/ &
+ & 0.97566E-05_JPRB,0.99318E-05_JPRB,0.10036E-04_JPRB,0.10096E-04_JPRB,0.10118E-04_JPRB /)  
+KB(:,44, 3) = (/ &
+ & 0.78810E-05_JPRB,0.80716E-05_JPRB,0.81637E-05_JPRB,0.82202E-05_JPRB,0.82608E-05_JPRB /)  
+KB(:,45, 3) = (/ &
+ & 0.63541E-05_JPRB,0.65171E-05_JPRB,0.66330E-05_JPRB,0.66977E-05_JPRB,0.67239E-05_JPRB /)  
+KB(:,46, 3) = (/ &
+ & 0.51077E-05_JPRB,0.52428E-05_JPRB,0.53636E-05_JPRB,0.54363E-05_JPRB,0.54693E-05_JPRB /)  
+KB(:,47, 3) = (/ &
+ & 0.40883E-05_JPRB,0.42196E-05_JPRB,0.43199E-05_JPRB,0.44074E-05_JPRB,0.44462E-05_JPRB /)  
+KB(:,48, 3) = (/ &
+ & 0.32909E-05_JPRB,0.33941E-05_JPRB,0.34746E-05_JPRB,0.35546E-05_JPRB,0.36089E-05_JPRB /)  
+KB(:,49, 3) = (/ &
+ & 0.26401E-05_JPRB,0.27269E-05_JPRB,0.28003E-05_JPRB,0.28616E-05_JPRB,0.29188E-05_JPRB /)  
+KB(:,50, 3) = (/ &
+ & 0.21222E-05_JPRB,0.22032E-05_JPRB,0.22638E-05_JPRB,0.23127E-05_JPRB,0.23603E-05_JPRB /)  
+KB(:,51, 3) = (/ &
+ & 0.17056E-05_JPRB,0.17838E-05_JPRB,0.18386E-05_JPRB,0.18804E-05_JPRB,0.19134E-05_JPRB /)  
+KB(:,52, 3) = (/ &
+ & 0.13662E-05_JPRB,0.14333E-05_JPRB,0.14855E-05_JPRB,0.15238E-05_JPRB,0.15521E-05_JPRB /)  
+KB(:,53, 3) = (/ &
+ & 0.10889E-05_JPRB,0.11445E-05_JPRB,0.11955E-05_JPRB,0.12300E-05_JPRB,0.12560E-05_JPRB /)  
+KB(:,54, 3) = (/ &
+ & 0.86251E-06_JPRB,0.91556E-06_JPRB,0.95999E-06_JPRB,0.99454E-06_JPRB,0.10171E-05_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART12',1,ZHOOK_HANDLE)
+END SUBROUTINE PART12
+
+
+SUBROUTINE PART13
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART13',0,ZHOOK_HANDLE)
+
+
+KB(:,55, 3) = (/ &
+ & 0.68640E-06_JPRB,0.72868E-06_JPRB,0.77389E-06_JPRB,0.80627E-06_JPRB,0.82696E-06_JPRB /)  
+KB(:,56, 3) = (/ &
+ & 0.54334E-06_JPRB,0.58339E-06_JPRB,0.61953E-06_JPRB,0.65190E-06_JPRB,0.67285E-06_JPRB /)  
+KB(:,57, 3) = (/ &
+ & 0.43336E-06_JPRB,0.46511E-06_JPRB,0.49561E-06_JPRB,0.52337E-06_JPRB,0.54491E-06_JPRB /)  
+KB(:,58, 3) = (/ &
+ & 0.34428E-06_JPRB,0.37236E-06_JPRB,0.39687E-06_JPRB,0.42017E-06_JPRB,0.43790E-06_JPRB /)  
+KB(:,59, 3) = (/ &
+ & 0.27883E-06_JPRB,0.30237E-06_JPRB,0.32096E-06_JPRB,0.33978E-06_JPRB,0.35485E-06_JPRB /)  
+KB(:,13, 4) = (/ &
+ & 0.52806E-02_JPRB,0.53551E-02_JPRB,0.53836E-02_JPRB,0.53810E-02_JPRB,0.53413E-02_JPRB /)  
+KB(:,14, 4) = (/ &
+ & 0.43594E-02_JPRB,0.44114E-02_JPRB,0.44268E-02_JPRB,0.44183E-02_JPRB,0.43877E-02_JPRB /)  
+KB(:,15, 4) = (/ &
+ & 0.36080E-02_JPRB,0.36421E-02_JPRB,0.36603E-02_JPRB,0.36540E-02_JPRB,0.36307E-02_JPRB /)  
+KB(:,16, 4) = (/ &
+ & 0.30007E-02_JPRB,0.30324E-02_JPRB,0.30479E-02_JPRB,0.30377E-02_JPRB,0.30175E-02_JPRB /)  
+KB(:,17, 4) = (/ &
+ & 0.25113E-02_JPRB,0.25415E-02_JPRB,0.25489E-02_JPRB,0.25428E-02_JPRB,0.25281E-02_JPRB /)  
+KB(:,18, 4) = (/ &
+ & 0.21119E-02_JPRB,0.21340E-02_JPRB,0.21396E-02_JPRB,0.21381E-02_JPRB,0.21232E-02_JPRB /)  
+KB(:,19, 4) = (/ &
+ & 0.17705E-02_JPRB,0.17884E-02_JPRB,0.17942E-02_JPRB,0.17931E-02_JPRB,0.17819E-02_JPRB /)  
+KB(:,20, 4) = (/ &
+ & 0.14714E-02_JPRB,0.14854E-02_JPRB,0.14921E-02_JPRB,0.14920E-02_JPRB,0.14874E-02_JPRB /)  
+KB(:,21, 4) = (/ &
+ & 0.12224E-02_JPRB,0.12349E-02_JPRB,0.12432E-02_JPRB,0.12411E-02_JPRB,0.12395E-02_JPRB /)  
+KB(:,22, 4) = (/ &
+ & 0.10170E-02_JPRB,0.10281E-02_JPRB,0.10319E-02_JPRB,0.10310E-02_JPRB,0.10286E-02_JPRB /)  
+KB(:,23, 4) = (/ &
+ & 0.84681E-03_JPRB,0.85484E-03_JPRB,0.85517E-03_JPRB,0.85545E-03_JPRB,0.85571E-03_JPRB /)  
+KB(:,24, 4) = (/ &
+ & 0.70330E-03_JPRB,0.70875E-03_JPRB,0.71078E-03_JPRB,0.71261E-03_JPRB,0.71112E-03_JPRB /)  
+KB(:,25, 4) = (/ &
+ & 0.58481E-03_JPRB,0.58870E-03_JPRB,0.59157E-03_JPRB,0.59305E-03_JPRB,0.59234E-03_JPRB /)  
+KB(:,26, 4) = (/ &
+ & 0.48640E-03_JPRB,0.49044E-03_JPRB,0.49395E-03_JPRB,0.49468E-03_JPRB,0.49466E-03_JPRB /)  
+KB(:,27, 4) = (/ &
+ & 0.40472E-03_JPRB,0.40915E-03_JPRB,0.41235E-03_JPRB,0.41278E-03_JPRB,0.41345E-03_JPRB /)  
+KB(:,28, 4) = (/ &
+ & 0.33826E-03_JPRB,0.34205E-03_JPRB,0.34364E-03_JPRB,0.34480E-03_JPRB,0.34528E-03_JPRB /)  
+KB(:,29, 4) = (/ &
+ & 0.28308E-03_JPRB,0.28627E-03_JPRB,0.28792E-03_JPRB,0.28910E-03_JPRB,0.28958E-03_JPRB /)  
+KB(:,30, 4) = (/ &
+ & 0.23759E-03_JPRB,0.23994E-03_JPRB,0.24196E-03_JPRB,0.24295E-03_JPRB,0.24270E-03_JPRB /)  
+KB(:,31, 4) = (/ &
+ & 0.19993E-03_JPRB,0.20202E-03_JPRB,0.20390E-03_JPRB,0.20456E-03_JPRB,0.20411E-03_JPRB /)  
+KB(:,32, 4) = (/ &
+ & 0.16851E-03_JPRB,0.17060E-03_JPRB,0.17151E-03_JPRB,0.17169E-03_JPRB,0.17133E-03_JPRB /)  
+KB(:,33, 4) = (/ &
+ & 0.14275E-03_JPRB,0.14392E-03_JPRB,0.14445E-03_JPRB,0.14452E-03_JPRB,0.14399E-03_JPRB /)  
+KB(:,34, 4) = (/ &
+ & 0.12060E-03_JPRB,0.12142E-03_JPRB,0.12181E-03_JPRB,0.12165E-03_JPRB,0.12105E-03_JPRB /)  
+KB(:,35, 4) = (/ &
+ & 0.10168E-03_JPRB,0.10240E-03_JPRB,0.10276E-03_JPRB,0.10261E-03_JPRB,0.10202E-03_JPRB /)  
+KB(:,36, 4) = (/ &
+ & 0.85780E-04_JPRB,0.86636E-04_JPRB,0.86815E-04_JPRB,0.86780E-04_JPRB,0.86722E-04_JPRB /)  
+KB(:,37, 4) = (/ &
+ & 0.71540E-04_JPRB,0.72201E-04_JPRB,0.72422E-04_JPRB,0.72501E-04_JPRB,0.72398E-04_JPRB /)  
+KB(:,38, 4) = (/ &
+ & 0.59609E-04_JPRB,0.60152E-04_JPRB,0.60443E-04_JPRB,0.60540E-04_JPRB,0.60534E-04_JPRB /)  
+KB(:,39, 4) = (/ &
+ & 0.49681E-04_JPRB,0.50194E-04_JPRB,0.50481E-04_JPRB,0.50649E-04_JPRB,0.50643E-04_JPRB /)  
+KB(:,40, 4) = (/ &
+ & 0.40815E-04_JPRB,0.41335E-04_JPRB,0.41565E-04_JPRB,0.41729E-04_JPRB,0.41776E-04_JPRB /)  
+KB(:,41, 4) = (/ &
+ & 0.33476E-04_JPRB,0.33932E-04_JPRB,0.34171E-04_JPRB,0.34301E-04_JPRB,0.34397E-04_JPRB /)  
+KB(:,42, 4) = (/ &
+ & 0.27419E-04_JPRB,0.27824E-04_JPRB,0.28083E-04_JPRB,0.28221E-04_JPRB,0.28296E-04_JPRB /)  
+KB(:,43, 4) = (/ &
+ & 0.22349E-04_JPRB,0.22753E-04_JPRB,0.22975E-04_JPRB,0.23100E-04_JPRB,0.23164E-04_JPRB /)  
+KB(:,44, 4) = (/ &
+ & 0.18197E-04_JPRB,0.18488E-04_JPRB,0.18747E-04_JPRB,0.18878E-04_JPRB,0.18943E-04_JPRB /)  
+KB(:,45, 4) = (/ &
+ & 0.14815E-04_JPRB,0.15081E-04_JPRB,0.15284E-04_JPRB,0.15408E-04_JPRB,0.15493E-04_JPRB /)  
+KB(:,46, 4) = (/ &
+ & 0.12046E-04_JPRB,0.12304E-04_JPRB,0.12476E-04_JPRB,0.12590E-04_JPRB,0.12654E-04_JPRB /)  
+KB(:,47, 4) = (/ &
+ & 0.97834E-05_JPRB,0.10018E-04_JPRB,0.10187E-04_JPRB,0.10295E-04_JPRB,0.10365E-04_JPRB /)  
+KB(:,48, 4) = (/ &
+ & 0.79058E-05_JPRB,0.81583E-05_JPRB,0.83158E-05_JPRB,0.84259E-05_JPRB,0.84791E-05_JPRB /)  
+KB(:,49, 4) = (/ &
+ & 0.63847E-05_JPRB,0.66212E-05_JPRB,0.67735E-05_JPRB,0.68818E-05_JPRB,0.69382E-05_JPRB /)  
+KB(:,50, 4) = (/ &
+ & 0.51619E-05_JPRB,0.53698E-05_JPRB,0.55239E-05_JPRB,0.56230E-05_JPRB,0.56931E-05_JPRB /)  
+KB(:,51, 4) = (/ &
+ & 0.41764E-05_JPRB,0.43546E-05_JPRB,0.45018E-05_JPRB,0.45927E-05_JPRB,0.46609E-05_JPRB /)  
+KB(:,52, 4) = (/ &
+ & 0.33696E-05_JPRB,0.35302E-05_JPRB,0.36585E-05_JPRB,0.37548E-05_JPRB,0.38091E-05_JPRB /)  
+KB(:,53, 4) = (/ &
+ & 0.27142E-05_JPRB,0.28585E-05_JPRB,0.29700E-05_JPRB,0.30632E-05_JPRB,0.31163E-05_JPRB /)  
+KB(:,54, 4) = (/ &
+ & 0.21974E-05_JPRB,0.23176E-05_JPRB,0.24169E-05_JPRB,0.24980E-05_JPRB,0.25555E-05_JPRB /)  
+KB(:,55, 4) = (/ &
+ & 0.17820E-05_JPRB,0.18827E-05_JPRB,0.19647E-05_JPRB,0.20347E-05_JPRB,0.20895E-05_JPRB /)  
+KB(:,56, 4) = (/ &
+ & 0.14445E-05_JPRB,0.15274E-05_JPRB,0.15999E-05_JPRB,0.16558E-05_JPRB,0.17004E-05_JPRB /)  
+KB(:,57, 4) = (/ &
+ & 0.11612E-05_JPRB,0.12390E-05_JPRB,0.13020E-05_JPRB,0.13508E-05_JPRB,0.13881E-05_JPRB /)  
+KB(:,58, 4) = (/ &
+ & 0.93606E-06_JPRB,0.10017E-05_JPRB,0.10598E-05_JPRB,0.11016E-05_JPRB,0.11367E-05_JPRB /)  
+KB(:,59, 4) = (/ &
+ & 0.76682E-06_JPRB,0.82318E-06_JPRB,0.87281E-06_JPRB,0.91208E-06_JPRB,0.94037E-06_JPRB /)  
+KB(:,13, 5) = (/ &
+ & 0.12856E-01_JPRB,0.13079E-01_JPRB,0.13167E-01_JPRB,0.13177E-01_JPRB,0.13097E-01_JPRB /)  
+KB(:,14, 5) = (/ &
+ & 0.10708E-01_JPRB,0.10853E-01_JPRB,0.10911E-01_JPRB,0.10898E-01_JPRB,0.10814E-01_JPRB /)  
+KB(:,15, 5) = (/ &
+ & 0.88690E-02_JPRB,0.89759E-02_JPRB,0.90116E-02_JPRB,0.89730E-02_JPRB,0.88895E-02_JPRB /)  
+KB(:,16, 5) = (/ &
+ & 0.73377E-02_JPRB,0.74116E-02_JPRB,0.74224E-02_JPRB,0.73845E-02_JPRB,0.73097E-02_JPRB /)  
+KB(:,17, 5) = (/ &
+ & 0.61050E-02_JPRB,0.61465E-02_JPRB,0.61522E-02_JPRB,0.61190E-02_JPRB,0.60607E-02_JPRB /)  
+KB(:,18, 5) = (/ &
+ & 0.51170E-02_JPRB,0.51524E-02_JPRB,0.51567E-02_JPRB,0.51299E-02_JPRB,0.50853E-02_JPRB /)  
+KB(:,19, 5) = (/ &
+ & 0.42872E-02_JPRB,0.43210E-02_JPRB,0.43249E-02_JPRB,0.43090E-02_JPRB,0.42772E-02_JPRB /)  
+KB(:,20, 5) = (/ &
+ & 0.35726E-02_JPRB,0.35987E-02_JPRB,0.36030E-02_JPRB,0.35888E-02_JPRB,0.35606E-02_JPRB /)  
+KB(:,21, 5) = (/ &
+ & 0.29687E-02_JPRB,0.29865E-02_JPRB,0.29887E-02_JPRB,0.29805E-02_JPRB,0.29536E-02_JPRB /)  
+KB(:,22, 5) = (/ &
+ & 0.24631E-02_JPRB,0.24766E-02_JPRB,0.24818E-02_JPRB,0.24706E-02_JPRB,0.24511E-02_JPRB /)  
+KB(:,23, 5) = (/ &
+ & 0.20423E-02_JPRB,0.20574E-02_JPRB,0.20622E-02_JPRB,0.20550E-02_JPRB,0.20390E-02_JPRB /)  
+KB(:,24, 5) = (/ &
+ & 0.17009E-02_JPRB,0.17137E-02_JPRB,0.17151E-02_JPRB,0.17066E-02_JPRB,0.16944E-02_JPRB /)  
+KB(:,25, 5) = (/ &
+ & 0.14175E-02_JPRB,0.14281E-02_JPRB,0.14264E-02_JPRB,0.14202E-02_JPRB,0.14101E-02_JPRB /)  
+KB(:,26, 5) = (/ &
+ & 0.11824E-02_JPRB,0.11879E-02_JPRB,0.11852E-02_JPRB,0.11799E-02_JPRB,0.11727E-02_JPRB /)  
+KB(:,27, 5) = (/ &
+ & 0.98538E-03_JPRB,0.98799E-03_JPRB,0.98648E-03_JPRB,0.98258E-03_JPRB,0.97798E-03_JPRB /)  
+KB(:,28, 5) = (/ &
+ & 0.82156E-03_JPRB,0.82317E-03_JPRB,0.82299E-03_JPRB,0.82154E-03_JPRB,0.81913E-03_JPRB /)  
+KB(:,29, 5) = (/ &
+ & 0.68689E-03_JPRB,0.68935E-03_JPRB,0.68992E-03_JPRB,0.69010E-03_JPRB,0.68854E-03_JPRB /)  
+KB(:,30, 5) = (/ &
+ & 0.57658E-03_JPRB,0.57999E-03_JPRB,0.58178E-03_JPRB,0.58209E-03_JPRB,0.58220E-03_JPRB /)  
+KB(:,31, 5) = (/ &
+ & 0.48638E-03_JPRB,0.49049E-03_JPRB,0.49261E-03_JPRB,0.49405E-03_JPRB,0.49565E-03_JPRB /)  
+KB(:,32, 5) = (/ &
+ & 0.41128E-03_JPRB,0.41527E-03_JPRB,0.41847E-03_JPRB,0.42111E-03_JPRB,0.42278E-03_JPRB /)  
+KB(:,33, 5) = (/ &
+ & 0.34942E-03_JPRB,0.35347E-03_JPRB,0.35669E-03_JPRB,0.35970E-03_JPRB,0.36033E-03_JPRB /)  
+KB(:,34, 5) = (/ &
+ & 0.29778E-03_JPRB,0.30183E-03_JPRB,0.30543E-03_JPRB,0.30722E-03_JPRB,0.30756E-03_JPRB /)  
+KB(:,35, 5) = (/ &
+ & 0.25439E-03_JPRB,0.25855E-03_JPRB,0.26145E-03_JPRB,0.26279E-03_JPRB,0.26328E-03_JPRB /)  
+KB(:,36, 5) = (/ &
+ & 0.21688E-03_JPRB,0.22055E-03_JPRB,0.22366E-03_JPRB,0.22472E-03_JPRB,0.22545E-03_JPRB /)  
+KB(:,37, 5) = (/ &
+ & 0.18184E-03_JPRB,0.18525E-03_JPRB,0.18789E-03_JPRB,0.18888E-03_JPRB,0.18981E-03_JPRB /)  
+KB(:,38, 5) = (/ &
+ & 0.15217E-03_JPRB,0.15529E-03_JPRB,0.15752E-03_JPRB,0.15878E-03_JPRB,0.15947E-03_JPRB /)  
+KB(:,39, 5) = (/ &
+ & 0.12738E-03_JPRB,0.13010E-03_JPRB,0.13202E-03_JPRB,0.13325E-03_JPRB,0.13405E-03_JPRB /)  
+KB(:,40, 5) = (/ &
+ & 0.10533E-03_JPRB,0.10771E-03_JPRB,0.10944E-03_JPRB,0.11063E-03_JPRB,0.11132E-03_JPRB /)  
+KB(:,41, 5) = (/ &
+ & 0.86935E-04_JPRB,0.89079E-04_JPRB,0.90576E-04_JPRB,0.91599E-04_JPRB,0.92136E-04_JPRB /)  
+KB(:,42, 5) = (/ &
+ & 0.71757E-04_JPRB,0.73600E-04_JPRB,0.74913E-04_JPRB,0.75823E-04_JPRB,0.76332E-04_JPRB /)  
+KB(:,43, 5) = (/ &
+ & 0.58933E-04_JPRB,0.60448E-04_JPRB,0.61689E-04_JPRB,0.62502E-04_JPRB,0.62968E-04_JPRB /)  
+KB(:,44, 5) = (/ &
+ & 0.48240E-04_JPRB,0.49626E-04_JPRB,0.50671E-04_JPRB,0.51353E-04_JPRB,0.51808E-04_JPRB /)  
+KB(:,45, 5) = (/ &
+ & 0.39365E-04_JPRB,0.40603E-04_JPRB,0.41556E-04_JPRB,0.42201E-04_JPRB,0.42661E-04_JPRB /)  
+KB(:,46, 5) = (/ &
+ & 0.32140E-04_JPRB,0.33199E-04_JPRB,0.34102E-04_JPRB,0.34681E-04_JPRB,0.35122E-04_JPRB /)  
+KB(:,47, 5) = (/ &
+ & 0.26212E-04_JPRB,0.27122E-04_JPRB,0.27914E-04_JPRB,0.28482E-04_JPRB,0.28883E-04_JPRB /)  
+KB(:,48, 5) = (/ &
+ & 0.21367E-04_JPRB,0.22132E-04_JPRB,0.22808E-04_JPRB,0.23366E-04_JPRB,0.23750E-04_JPRB /)  
+KB(:,49, 5) = (/ &
+ & 0.17366E-04_JPRB,0.18036E-04_JPRB,0.18610E-04_JPRB,0.19128E-04_JPRB,0.19501E-04_JPRB /)  
+KB(:,50, 5) = (/ &
+ & 0.14166E-04_JPRB,0.14744E-04_JPRB,0.15227E-04_JPRB,0.15695E-04_JPRB,0.16033E-04_JPRB /)  
+KB(:,51, 5) = (/ &
+ & 0.11520E-04_JPRB,0.12036E-04_JPRB,0.12466E-04_JPRB,0.12850E-04_JPRB,0.13177E-04_JPRB /)  
+KB(:,52, 5) = (/ &
+ & 0.93545E-05_JPRB,0.97967E-05_JPRB,0.10185E-04_JPRB,0.10504E-04_JPRB,0.10808E-04_JPRB /)  
+KB(:,53, 5) = (/ &
+ & 0.75900E-05_JPRB,0.79775E-05_JPRB,0.83066E-05_JPRB,0.85876E-05_JPRB,0.88446E-05_JPRB /)  
+KB(:,54, 5) = (/ &
+ & 0.61841E-05_JPRB,0.65213E-05_JPRB,0.67983E-05_JPRB,0.70299E-05_JPRB,0.72479E-05_JPRB /)  
+KB(:,55, 5) = (/ &
+ & 0.50267E-05_JPRB,0.53142E-05_JPRB,0.55644E-05_JPRB,0.57696E-05_JPRB,0.59449E-05_JPRB /)  
+KB(:,56, 5) = (/ &
+ & 0.40664E-05_JPRB,0.43169E-05_JPRB,0.45344E-05_JPRB,0.47274E-05_JPRB,0.48783E-05_JPRB /)  
+KB(:,57, 5) = (/ &
+ & 0.32881E-05_JPRB,0.34993E-05_JPRB,0.36900E-05_JPRB,0.38580E-05_JPRB,0.39983E-05_JPRB /)  
+KB(:,58, 5) = (/ &
+ & 0.26562E-05_JPRB,0.28386E-05_JPRB,0.30033E-05_JPRB,0.31435E-05_JPRB,0.32655E-05_JPRB /)  
+KB(:,59, 5) = (/ &
+ & 0.21842E-05_JPRB,0.23355E-05_JPRB,0.24742E-05_JPRB,0.25918E-05_JPRB,0.26979E-05_JPRB /)  
+KB(:,13, 6) = (/ &
+ & 0.31802E-01_JPRB,0.32385E-01_JPRB,0.32761E-01_JPRB,0.32924E-01_JPRB,0.32887E-01_JPRB /)  
+KB(:,14, 6) = (/ &
+ & 0.27075E-01_JPRB,0.27526E-01_JPRB,0.27777E-01_JPRB,0.27825E-01_JPRB,0.27714E-01_JPRB /)  
+KB(:,15, 6) = (/ &
+ & 0.22867E-01_JPRB,0.23213E-01_JPRB,0.23346E-01_JPRB,0.23326E-01_JPRB,0.23192E-01_JPRB /)  
+KB(:,16, 6) = (/ &
+ & 0.19243E-01_JPRB,0.19469E-01_JPRB,0.19534E-01_JPRB,0.19508E-01_JPRB,0.19374E-01_JPRB /)  
+KB(:,17, 6) = (/ &
+ & 0.16143E-01_JPRB,0.16291E-01_JPRB,0.16340E-01_JPRB,0.16286E-01_JPRB,0.16140E-01_JPRB /)  
+KB(:,18, 6) = (/ &
+ & 0.13508E-01_JPRB,0.13619E-01_JPRB,0.13632E-01_JPRB,0.13563E-01_JPRB,0.13444E-01_JPRB /)  
+KB(:,19, 6) = (/ &
+ & 0.11360E-01_JPRB,0.11423E-01_JPRB,0.11418E-01_JPRB,0.11354E-01_JPRB,0.11254E-01_JPRB /)  
+KB(:,20, 6) = (/ &
+ & 0.95257E-02_JPRB,0.95677E-02_JPRB,0.95569E-02_JPRB,0.94993E-02_JPRB,0.94147E-02_JPRB /)  
+KB(:,21, 6) = (/ &
+ & 0.79688E-02_JPRB,0.80079E-02_JPRB,0.79930E-02_JPRB,0.79576E-02_JPRB,0.78976E-02_JPRB /)  
+KB(:,22, 6) = (/ &
+ & 0.66527E-02_JPRB,0.66824E-02_JPRB,0.66717E-02_JPRB,0.66442E-02_JPRB,0.65988E-02_JPRB /)  
+KB(:,23, 6) = (/ &
+ & 0.55583E-02_JPRB,0.55741E-02_JPRB,0.55685E-02_JPRB,0.55458E-02_JPRB,0.55136E-02_JPRB /)  
+KB(:,24, 6) = (/ &
+ & 0.46281E-02_JPRB,0.46404E-02_JPRB,0.46354E-02_JPRB,0.46240E-02_JPRB,0.46070E-02_JPRB /)  
+KB(:,25, 6) = (/ &
+ & 0.38479E-02_JPRB,0.38586E-02_JPRB,0.38647E-02_JPRB,0.38587E-02_JPRB,0.38482E-02_JPRB /)  
+KB(:,26, 6) = (/ &
+ & 0.31996E-02_JPRB,0.32113E-02_JPRB,0.32185E-02_JPRB,0.32206E-02_JPRB,0.32221E-02_JPRB /)  
+KB(:,27, 6) = (/ &
+ & 0.26655E-02_JPRB,0.26804E-02_JPRB,0.26909E-02_JPRB,0.27001E-02_JPRB,0.27000E-02_JPRB /)  
+KB(:,28, 6) = (/ &
+ & 0.22269E-02_JPRB,0.22430E-02_JPRB,0.22546E-02_JPRB,0.22636E-02_JPRB,0.22685E-02_JPRB /)  
+KB(:,29, 6) = (/ &
+ & 0.18711E-02_JPRB,0.18853E-02_JPRB,0.19010E-02_JPRB,0.19079E-02_JPRB,0.19146E-02_JPRB /)  
+KB(:,30, 6) = (/ &
+ & 0.15792E-02_JPRB,0.15950E-02_JPRB,0.16049E-02_JPRB,0.16149E-02_JPRB,0.16250E-02_JPRB /)  
+KB(:,31, 6) = (/ &
+ & 0.13390E-02_JPRB,0.13523E-02_JPRB,0.13631E-02_JPRB,0.13762E-02_JPRB,0.13899E-02_JPRB /)  
+KB(:,32, 6) = (/ &
+ & 0.11423E-02_JPRB,0.11552E-02_JPRB,0.11689E-02_JPRB,0.11828E-02_JPRB,0.12002E-02_JPRB /)  
+KB(:,33, 6) = (/ &
+ & 0.97837E-03_JPRB,0.99414E-03_JPRB,0.10078E-02_JPRB,0.10254E-02_JPRB,0.10445E-02_JPRB /)  
+KB(:,34, 6) = (/ &
+ & 0.84508E-03_JPRB,0.85961E-03_JPRB,0.87553E-03_JPRB,0.89474E-03_JPRB,0.91454E-03_JPRB /)  
+KB(:,35, 6) = (/ &
+ & 0.73067E-03_JPRB,0.74643E-03_JPRB,0.76522E-03_JPRB,0.78433E-03_JPRB,0.80547E-03_JPRB /)  
+KB(:,36, 6) = (/ &
+ & 0.63501E-03_JPRB,0.65286E-03_JPRB,0.67124E-03_JPRB,0.69177E-03_JPRB,0.71245E-03_JPRB /)  
+KB(:,37, 6) = (/ &
+ & 0.54302E-03_JPRB,0.56011E-03_JPRB,0.57838E-03_JPRB,0.59932E-03_JPRB,0.61930E-03_JPRB /)  
+KB(:,38, 6) = (/ &
+ & 0.46413E-03_JPRB,0.48141E-03_JPRB,0.49888E-03_JPRB,0.51888E-03_JPRB,0.53851E-03_JPRB /)  
+KB(:,39, 6) = (/ &
+ & 0.39787E-03_JPRB,0.41416E-03_JPRB,0.43137E-03_JPRB,0.45076E-03_JPRB,0.46884E-03_JPRB /)  
+KB(:,40, 6) = (/ &
+ & 0.33542E-03_JPRB,0.35026E-03_JPRB,0.36640E-03_JPRB,0.38421E-03_JPRB,0.40074E-03_JPRB /)  
+KB(:,41, 6) = (/ &
+ & 0.28198E-03_JPRB,0.29533E-03_JPRB,0.31033E-03_JPRB,0.32658E-03_JPRB,0.34246E-03_JPRB /)  
+KB(:,42, 6) = (/ &
+ & 0.23644E-03_JPRB,0.24877E-03_JPRB,0.26248E-03_JPRB,0.27695E-03_JPRB,0.29184E-03_JPRB /)  
+KB(:,43, 6) = (/ &
+ & 0.19698E-03_JPRB,0.20826E-03_JPRB,0.22042E-03_JPRB,0.23357E-03_JPRB,0.24697E-03_JPRB /)  
+KB(:,44, 6) = (/ &
+ & 0.16338E-03_JPRB,0.17334E-03_JPRB,0.18409E-03_JPRB,0.19557E-03_JPRB,0.20792E-03_JPRB /)  
+KB(:,45, 6) = (/ &
+ & 0.13558E-03_JPRB,0.14397E-03_JPRB,0.15333E-03_JPRB,0.16359E-03_JPRB,0.17463E-03_JPRB /)  
+KB(:,46, 6) = (/ &
+ & 0.11191E-03_JPRB,0.11919E-03_JPRB,0.12729E-03_JPRB,0.13624E-03_JPRB,0.14629E-03_JPRB /)  
+KB(:,47, 6) = (/ &
+ & 0.91906E-04_JPRB,0.98189E-04_JPRB,0.10520E-03_JPRB,0.11302E-03_JPRB,0.12177E-03_JPRB /)  
+KB(:,48, 6) = (/ &
+ & 0.75087E-04_JPRB,0.80743E-04_JPRB,0.86708E-04_JPRB,0.93427E-04_JPRB,0.10110E-03_JPRB /)  
+KB(:,49, 6) = (/ &
+ & 0.61186E-04_JPRB,0.66125E-04_JPRB,0.71313E-04_JPRB,0.77107E-04_JPRB,0.83777E-04_JPRB /)  
+KB(:,50, 6) = (/ &
+ & 0.49938E-04_JPRB,0.54303E-04_JPRB,0.58807E-04_JPRB,0.63705E-04_JPRB,0.69474E-04_JPRB /)  
+KB(:,51, 6) = (/ &
+ & 0.40809E-04_JPRB,0.44513E-04_JPRB,0.48369E-04_JPRB,0.52594E-04_JPRB,0.57525E-04_JPRB /)  
+KB(:,52, 6) = (/ &
+ & 0.33309E-04_JPRB,0.36401E-04_JPRB,0.39694E-04_JPRB,0.43295E-04_JPRB,0.47517E-04_JPRB /)  
+KB(:,53, 6) = (/ &
+ & 0.27001E-04_JPRB,0.29637E-04_JPRB,0.32443E-04_JPRB,0.35515E-04_JPRB,0.39073E-04_JPRB /)  
+KB(:,54, 6) = (/ &
+ & 0.21920E-04_JPRB,0.24176E-04_JPRB,0.26587E-04_JPRB,0.29204E-04_JPRB,0.32173E-04_JPRB /)  
+KB(:,55, 6) = (/ &
+ & 0.17840E-04_JPRB,0.19707E-04_JPRB,0.21784E-04_JPRB,0.24000E-04_JPRB,0.26498E-04_JPRB /)  
+KB(:,56, 6) = (/ &
+ & 0.14500E-04_JPRB,0.16042E-04_JPRB,0.17779E-04_JPRB,0.19655E-04_JPRB,0.21743E-04_JPRB /)  
+KB(:,57, 6) = (/ &
+ & 0.11756E-04_JPRB,0.13018E-04_JPRB,0.14458E-04_JPRB,0.16053E-04_JPRB,0.17779E-04_JPRB /)  
+KB(:,58, 6) = (/ &
+ & 0.95229E-05_JPRB,0.10574E-04_JPRB,0.11760E-04_JPRB,0.13107E-04_JPRB,0.14585E-04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART13',1,ZHOOK_HANDLE)
+END SUBROUTINE PART13
+
+
+SUBROUTINE PART14
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART14',0,ZHOOK_HANDLE)
+
+
+KB(:,59, 6) = (/ &
+ & 0.78970E-05_JPRB,0.87821E-05_JPRB,0.97860E-05_JPRB,0.10919E-04_JPRB,0.12187E-04_JPRB /)  
+KB(:,13, 7) = (/ &
+ & 0.81347E-01_JPRB,0.83688E-01_JPRB,0.85307E-01_JPRB,0.86283E-01_JPRB,0.87010E-01_JPRB /)  
+KB(:,14, 7) = (/ &
+ & 0.72041E-01_JPRB,0.73994E-01_JPRB,0.75287E-01_JPRB,0.76180E-01_JPRB,0.76714E-01_JPRB /)  
+KB(:,15, 7) = (/ &
+ & 0.63278E-01_JPRB,0.64818E-01_JPRB,0.65954E-01_JPRB,0.66651E-01_JPRB,0.67143E-01_JPRB /)  
+KB(:,16, 7) = (/ &
+ & 0.55139E-01_JPRB,0.56478E-01_JPRB,0.57384E-01_JPRB,0.58076E-01_JPRB,0.58539E-01_JPRB /)  
+KB(:,17, 7) = (/ &
+ & 0.47894E-01_JPRB,0.48966E-01_JPRB,0.49829E-01_JPRB,0.50447E-01_JPRB,0.50916E-01_JPRB /)  
+KB(:,18, 7) = (/ &
+ & 0.41499E-01_JPRB,0.42507E-01_JPRB,0.43240E-01_JPRB,0.43755E-01_JPRB,0.44135E-01_JPRB /)  
+KB(:,19, 7) = (/ &
+ & 0.35885E-01_JPRB,0.36754E-01_JPRB,0.37403E-01_JPRB,0.37954E-01_JPRB,0.38313E-01_JPRB /)  
+KB(:,20, 7) = (/ &
+ & 0.30699E-01_JPRB,0.31463E-01_JPRB,0.32108E-01_JPRB,0.32586E-01_JPRB,0.32972E-01_JPRB /)  
+KB(:,21, 7) = (/ &
+ & 0.26192E-01_JPRB,0.26846E-01_JPRB,0.27409E-01_JPRB,0.27839E-01_JPRB,0.28217E-01_JPRB /)  
+KB(:,22, 7) = (/ &
+ & 0.22340E-01_JPRB,0.22929E-01_JPRB,0.23404E-01_JPRB,0.23811E-01_JPRB,0.24187E-01_JPRB /)  
+KB(:,23, 7) = (/ &
+ & 0.19095E-01_JPRB,0.19575E-01_JPRB,0.20007E-01_JPRB,0.20410E-01_JPRB,0.20766E-01_JPRB /)  
+KB(:,24, 7) = (/ &
+ & 0.16366E-01_JPRB,0.16771E-01_JPRB,0.17186E-01_JPRB,0.17542E-01_JPRB,0.17949E-01_JPRB /)  
+KB(:,25, 7) = (/ &
+ & 0.14069E-01_JPRB,0.14481E-01_JPRB,0.14832E-01_JPRB,0.15200E-01_JPRB,0.15580E-01_JPRB /)  
+KB(:,26, 7) = (/ &
+ & 0.12162E-01_JPRB,0.12539E-01_JPRB,0.12888E-01_JPRB,0.13247E-01_JPRB,0.13615E-01_JPRB /)  
+KB(:,27, 7) = (/ &
+ & 0.10528E-01_JPRB,0.10892E-01_JPRB,0.11265E-01_JPRB,0.11631E-01_JPRB,0.12012E-01_JPRB /)  
+KB(:,28, 7) = (/ &
+ & 0.91441E-02_JPRB,0.95086E-02_JPRB,0.98896E-02_JPRB,0.10282E-01_JPRB,0.10687E-01_JPRB /)  
+KB(:,29, 7) = (/ &
+ & 0.79938E-02_JPRB,0.83641E-02_JPRB,0.87511E-02_JPRB,0.91674E-02_JPRB,0.96121E-02_JPRB /)  
+KB(:,30, 7) = (/ &
+ & 0.70400E-02_JPRB,0.74172E-02_JPRB,0.78125E-02_JPRB,0.82611E-02_JPRB,0.87532E-02_JPRB /)  
+KB(:,31, 7) = (/ &
+ & 0.62612E-02_JPRB,0.66491E-02_JPRB,0.70836E-02_JPRB,0.75546E-02_JPRB,0.80730E-02_JPRB /)  
+KB(:,32, 7) = (/ &
+ & 0.56090E-02_JPRB,0.60373E-02_JPRB,0.65021E-02_JPRB,0.70140E-02_JPRB,0.75729E-02_JPRB /)  
+KB(:,33, 7) = (/ &
+ & 0.51011E-02_JPRB,0.55473E-02_JPRB,0.60429E-02_JPRB,0.66026E-02_JPRB,0.72780E-02_JPRB /)  
+KB(:,34, 7) = (/ &
+ & 0.46990E-02_JPRB,0.51673E-02_JPRB,0.57072E-02_JPRB,0.63464E-02_JPRB,0.71159E-02_JPRB /)  
+KB(:,35, 7) = (/ &
+ & 0.43314E-02_JPRB,0.48384E-02_JPRB,0.54243E-02_JPRB,0.61639E-02_JPRB,0.69924E-02_JPRB /)  
+KB(:,36, 7) = (/ &
+ & 0.39886E-02_JPRB,0.45262E-02_JPRB,0.51941E-02_JPRB,0.59985E-02_JPRB,0.68708E-02_JPRB /)  
+KB(:,37, 7) = (/ &
+ & 0.36017E-02_JPRB,0.41399E-02_JPRB,0.48219E-02_JPRB,0.56481E-02_JPRB,0.65560E-02_JPRB /)  
+KB(:,38, 7) = (/ &
+ & 0.32617E-02_JPRB,0.38037E-02_JPRB,0.45057E-02_JPRB,0.53485E-02_JPRB,0.62708E-02_JPRB /)  
+KB(:,39, 7) = (/ &
+ & 0.29777E-02_JPRB,0.35364E-02_JPRB,0.42387E-02_JPRB,0.50890E-02_JPRB,0.60544E-02_JPRB /)  
+KB(:,40, 7) = (/ &
+ & 0.26397E-02_JPRB,0.31715E-02_JPRB,0.38573E-02_JPRB,0.46880E-02_JPRB,0.56335E-02_JPRB /)  
+KB(:,41, 7) = (/ &
+ & 0.23227E-02_JPRB,0.28385E-02_JPRB,0.34927E-02_JPRB,0.42880E-02_JPRB,0.52154E-02_JPRB /)  
+KB(:,42, 7) = (/ &
+ & 0.20486E-02_JPRB,0.25378E-02_JPRB,0.31647E-02_JPRB,0.39312E-02_JPRB,0.48261E-02_JPRB /)  
+KB(:,43, 7) = (/ &
+ & 0.17755E-02_JPRB,0.22226E-02_JPRB,0.28140E-02_JPRB,0.35274E-02_JPRB,0.43895E-02_JPRB /)  
+KB(:,44, 7) = (/ &
+ & 0.15269E-02_JPRB,0.19274E-02_JPRB,0.24688E-02_JPRB,0.31407E-02_JPRB,0.39517E-02_JPRB /)  
+KB(:,45, 7) = (/ &
+ & 0.13050E-02_JPRB,0.16697E-02_JPRB,0.21647E-02_JPRB,0.27916E-02_JPRB,0.35423E-02_JPRB /)  
+KB(:,46, 7) = (/ &
+ & 0.11057E-02_JPRB,0.14327E-02_JPRB,0.18777E-02_JPRB,0.24513E-02_JPRB,0.31448E-02_JPRB /)  
+KB(:,47, 7) = (/ &
+ & 0.92448E-03_JPRB,0.12134E-02_JPRB,0.16064E-02_JPRB,0.21237E-02_JPRB,0.27575E-02_JPRB /)  
+KB(:,48, 7) = (/ &
+ & 0.76618E-03_JPRB,0.10179E-02_JPRB,0.13627E-02_JPRB,0.18254E-02_JPRB,0.24067E-02_JPRB /)  
+KB(:,49, 7) = (/ &
+ & 0.62940E-03_JPRB,0.85036E-03_JPRB,0.11489E-02_JPRB,0.15623E-02_JPRB,0.20896E-02_JPRB /)  
+KB(:,50, 7) = (/ &
+ & 0.51855E-03_JPRB,0.71067E-03_JPRB,0.97602E-03_JPRB,0.13414E-02_JPRB,0.18179E-02_JPRB /)  
+KB(:,51, 7) = (/ &
+ & 0.42590E-03_JPRB,0.59305E-03_JPRB,0.82548E-03_JPRB,0.11486E-02_JPRB,0.15798E-02_JPRB /)  
+KB(:,52, 7) = (/ &
+ & 0.34697E-03_JPRB,0.49059E-03_JPRB,0.69535E-03_JPRB,0.97532E-03_JPRB,0.13630E-02_JPRB /)  
+KB(:,53, 7) = (/ &
+ & 0.28092E-03_JPRB,0.40191E-03_JPRB,0.57931E-03_JPRB,0.82673E-03_JPRB,0.11685E-02_JPRB /)  
+KB(:,54, 7) = (/ &
+ & 0.22883E-03_JPRB,0.33102E-03_JPRB,0.48584E-03_JPRB,0.70577E-03_JPRB,0.10069E-02_JPRB /)  
+KB(:,55, 7) = (/ &
+ & 0.18567E-03_JPRB,0.27212E-03_JPRB,0.40629E-03_JPRB,0.59966E-03_JPRB,0.86643E-03_JPRB /)  
+KB(:,56, 7) = (/ &
+ & 0.14981E-03_JPRB,0.22158E-03_JPRB,0.33702E-03_JPRB,0.50672E-03_JPRB,0.74022E-03_JPRB /)  
+KB(:,57, 7) = (/ &
+ & 0.11956E-03_JPRB,0.17899E-03_JPRB,0.27717E-03_JPRB,0.42406E-03_JPRB,0.63003E-03_JPRB /)  
+KB(:,58, 7) = (/ &
+ & 0.95581E-04_JPRB,0.14413E-03_JPRB,0.22637E-03_JPRB,0.35457E-03_JPRB,0.53700E-03_JPRB /)  
+KB(:,59, 7) = (/ &
+ & 0.81967E-04_JPRB,0.12578E-03_JPRB,0.20146E-03_JPRB,0.32061E-03_JPRB,0.49099E-03_JPRB /)  
+KB(:,13, 8) = (/ &
+ & 0.22107E+00_JPRB,0.22673E+00_JPRB,0.23188E+00_JPRB,0.23626E+00_JPRB,0.23937E+00_JPRB /)  
+KB(:,14, 8) = (/ &
+ & 0.20348E+00_JPRB,0.20983E+00_JPRB,0.21521E+00_JPRB,0.21960E+00_JPRB,0.22328E+00_JPRB /)  
+KB(:,15, 8) = (/ &
+ & 0.18724E+00_JPRB,0.19358E+00_JPRB,0.19903E+00_JPRB,0.20382E+00_JPRB,0.20780E+00_JPRB /)  
+KB(:,16, 8) = (/ &
+ & 0.17271E+00_JPRB,0.17902E+00_JPRB,0.18466E+00_JPRB,0.18949E+00_JPRB,0.19358E+00_JPRB /)  
+KB(:,17, 8) = (/ &
+ & 0.15881E+00_JPRB,0.16550E+00_JPRB,0.17139E+00_JPRB,0.17656E+00_JPRB,0.18127E+00_JPRB /)  
+KB(:,18, 8) = (/ &
+ & 0.14632E+00_JPRB,0.15311E+00_JPRB,0.15937E+00_JPRB,0.16532E+00_JPRB,0.17049E+00_JPRB /)  
+KB(:,19, 8) = (/ &
+ & 0.13481E+00_JPRB,0.14215E+00_JPRB,0.14899E+00_JPRB,0.15502E+00_JPRB,0.16068E+00_JPRB /)  
+KB(:,20, 8) = (/ &
+ & 0.12437E+00_JPRB,0.13191E+00_JPRB,0.13890E+00_JPRB,0.14560E+00_JPRB,0.15188E+00_JPRB /)  
+KB(:,21, 8) = (/ &
+ & 0.11481E+00_JPRB,0.12252E+00_JPRB,0.12982E+00_JPRB,0.13710E+00_JPRB,0.14374E+00_JPRB /)  
+KB(:,22, 8) = (/ &
+ & 0.10661E+00_JPRB,0.11453E+00_JPRB,0.12244E+00_JPRB,0.12996E+00_JPRB,0.13720E+00_JPRB /)  
+KB(:,23, 8) = (/ &
+ & 0.99573E-01_JPRB,0.10782E+00_JPRB,0.11598E+00_JPRB,0.12384E+00_JPRB,0.13154E+00_JPRB /)  
+KB(:,24, 8) = (/ &
+ & 0.93585E-01_JPRB,0.10212E+00_JPRB,0.11044E+00_JPRB,0.11870E+00_JPRB,0.12683E+00_JPRB /)  
+KB(:,25, 8) = (/ &
+ & 0.88642E-01_JPRB,0.97342E-01_JPRB,0.10600E+00_JPRB,0.11474E+00_JPRB,0.12338E+00_JPRB /)  
+KB(:,26, 8) = (/ &
+ & 0.84783E-01_JPRB,0.93706E-01_JPRB,0.10275E+00_JPRB,0.11190E+00_JPRB,0.12089E+00_JPRB /)  
+KB(:,27, 8) = (/ &
+ & 0.81924E-01_JPRB,0.91085E-01_JPRB,0.10043E+00_JPRB,0.11011E+00_JPRB,0.11942E+00_JPRB /)  
+KB(:,28, 8) = (/ &
+ & 0.79898E-01_JPRB,0.89495E-01_JPRB,0.99246E-01_JPRB,0.10903E+00_JPRB,0.11866E+00_JPRB /)  
+KB(:,29, 8) = (/ &
+ & 0.78843E-01_JPRB,0.88816E-01_JPRB,0.99112E-01_JPRB,0.10908E+00_JPRB,0.11873E+00_JPRB /)  
+KB(:,30, 8) = (/ &
+ & 0.78672E-01_JPRB,0.89175E-01_JPRB,0.99763E-01_JPRB,0.10991E+00_JPRB,0.11974E+00_JPRB /)  
+KB(:,31, 8) = (/ &
+ & 0.79471E-01_JPRB,0.90393E-01_JPRB,0.10090E+00_JPRB,0.11134E+00_JPRB,0.12148E+00_JPRB /)  
+KB(:,32, 8) = (/ &
+ & 0.81097E-01_JPRB,0.92118E-01_JPRB,0.10299E+00_JPRB,0.11352E+00_JPRB,0.12362E+00_JPRB /)  
+KB(:,33, 8) = (/ &
+ & 0.83219E-01_JPRB,0.94430E-01_JPRB,0.10536E+00_JPRB,0.11619E+00_JPRB,0.12656E+00_JPRB /)  
+KB(:,34, 8) = (/ &
+ & 0.85363E-01_JPRB,0.96707E-01_JPRB,0.10798E+00_JPRB,0.11904E+00_JPRB,0.12986E+00_JPRB /)  
+KB(:,35, 8) = (/ &
+ & 0.86741E-01_JPRB,0.98297E-01_JPRB,0.11004E+00_JPRB,0.12158E+00_JPRB,0.13234E+00_JPRB /)  
+KB(:,36, 8) = (/ &
+ & 0.87017E-01_JPRB,0.99113E-01_JPRB,0.11121E+00_JPRB,0.12302E+00_JPRB,0.13390E+00_JPRB /)  
+KB(:,37, 8) = (/ &
+ & 0.85258E-01_JPRB,0.97671E-01_JPRB,0.10985E+00_JPRB,0.12188E+00_JPRB,0.13289E+00_JPRB /)  
+KB(:,38, 8) = (/ &
+ & 0.83622E-01_JPRB,0.96133E-01_JPRB,0.10847E+00_JPRB,0.12060E+00_JPRB,0.13189E+00_JPRB /)  
+KB(:,39, 8) = (/ &
+ & 0.82148E-01_JPRB,0.94689E-01_JPRB,0.10723E+00_JPRB,0.11944E+00_JPRB,0.13102E+00_JPRB /)  
+KB(:,40, 8) = (/ &
+ & 0.78933E-01_JPRB,0.91494E-01_JPRB,0.10410E+00_JPRB,0.11650E+00_JPRB,0.12816E+00_JPRB /)  
+KB(:,41, 8) = (/ &
+ & 0.75553E-01_JPRB,0.88087E-01_JPRB,0.10066E+00_JPRB,0.11319E+00_JPRB,0.12513E+00_JPRB /)  
+KB(:,42, 8) = (/ &
+ & 0.72215E-01_JPRB,0.84600E-01_JPRB,0.97314E-01_JPRB,0.10990E+00_JPRB,0.12202E+00_JPRB /)  
+KB(:,43, 8) = (/ &
+ & 0.68050E-01_JPRB,0.80392E-01_JPRB,0.93038E-01_JPRB,0.10568E+00_JPRB,0.11811E+00_JPRB /)  
+KB(:,44, 8) = (/ &
+ & 0.63504E-01_JPRB,0.75885E-01_JPRB,0.88427E-01_JPRB,0.10109E+00_JPRB,0.11352E+00_JPRB /)  
+KB(:,45, 8) = (/ &
+ & 0.59117E-01_JPRB,0.71359E-01_JPRB,0.83835E-01_JPRB,0.96461E-01_JPRB,0.10897E+00_JPRB /)  
+KB(:,46, 8) = (/ &
+ & 0.54516E-01_JPRB,0.66547E-01_JPRB,0.79117E-01_JPRB,0.91745E-01_JPRB,0.10426E+00_JPRB /)  
+KB(:,47, 8) = (/ &
+ & 0.49520E-01_JPRB,0.61408E-01_JPRB,0.73788E-01_JPRB,0.86383E-01_JPRB,0.98886E-01_JPRB /)  
+KB(:,48, 8) = (/ &
+ & 0.44727E-01_JPRB,0.56224E-01_JPRB,0.68415E-01_JPRB,0.81094E-01_JPRB,0.93621E-01_JPRB /)  
+KB(:,49, 8) = (/ &
+ & 0.40177E-01_JPRB,0.51146E-01_JPRB,0.63191E-01_JPRB,0.75749E-01_JPRB,0.88249E-01_JPRB /)  
+KB(:,50, 8) = (/ &
+ & 0.36081E-01_JPRB,0.46596E-01_JPRB,0.58341E-01_JPRB,0.70769E-01_JPRB,0.83353E-01_JPRB /)  
+KB(:,51, 8) = (/ &
+ & 0.32278E-01_JPRB,0.42393E-01_JPRB,0.53717E-01_JPRB,0.65898E-01_JPRB,0.78578E-01_JPRB /)  
+KB(:,52, 8) = (/ &
+ & 0.28586E-01_JPRB,0.38352E-01_JPRB,0.49175E-01_JPRB,0.61145E-01_JPRB,0.73682E-01_JPRB /)  
+KB(:,53, 8) = (/ &
+ & 0.25090E-01_JPRB,0.34439E-01_JPRB,0.44807E-01_JPRB,0.56352E-01_JPRB,0.68823E-01_JPRB /)  
+KB(:,54, 8) = (/ &
+ & 0.22080E-01_JPRB,0.30938E-01_JPRB,0.40952E-01_JPRB,0.52101E-01_JPRB,0.64364E-01_JPRB /)  
+KB(:,55, 8) = (/ &
+ & 0.19382E-01_JPRB,0.27719E-01_JPRB,0.37405E-01_JPRB,0.48197E-01_JPRB,0.60044E-01_JPRB /)  
+KB(:,56, 8) = (/ &
+ & 0.16835E-01_JPRB,0.24689E-01_JPRB,0.33908E-01_JPRB,0.44390E-01_JPRB,0.55911E-01_JPRB /)  
+KB(:,57, 8) = (/ &
+ & 0.14459E-01_JPRB,0.21799E-01_JPRB,0.30531E-01_JPRB,0.40642E-01_JPRB,0.51808E-01_JPRB /)  
+KB(:,58, 8) = (/ &
+ & 0.12380E-01_JPRB,0.19213E-01_JPRB,0.27475E-01_JPRB,0.37204E-01_JPRB,0.48065E-01_JPRB /)  
+KB(:,59, 8) = (/ &
+ & 0.11536E-01_JPRB,0.18115E-01_JPRB,0.26160E-01_JPRB,0.35756E-01_JPRB,0.46501E-01_JPRB /)  
+KB(:,13, 9) = (/ &
+ & 0.79231E+00_JPRB,0.80247E+00_JPRB,0.81169E+00_JPRB,0.81859E+00_JPRB,0.82469E+00_JPRB /)  
+KB(:,14, 9) = (/ &
+ & 0.76567E+00_JPRB,0.77861E+00_JPRB,0.78976E+00_JPRB,0.79966E+00_JPRB,0.80754E+00_JPRB /)  
+KB(:,15, 9) = (/ &
+ & 0.73926E+00_JPRB,0.75515E+00_JPRB,0.76982E+00_JPRB,0.78244E+00_JPRB,0.79228E+00_JPRB /)  
+KB(:,16, 9) = (/ &
+ & 0.71308E+00_JPRB,0.73273E+00_JPRB,0.74955E+00_JPRB,0.76355E+00_JPRB,0.77553E+00_JPRB /)  
+KB(:,17, 9) = (/ &
+ & 0.68845E+00_JPRB,0.70973E+00_JPRB,0.72813E+00_JPRB,0.74466E+00_JPRB,0.75909E+00_JPRB /)  
+KB(:,18, 9) = (/ &
+ & 0.66397E+00_JPRB,0.68720E+00_JPRB,0.70872E+00_JPRB,0.72756E+00_JPRB,0.74467E+00_JPRB /)  
+KB(:,19, 9) = (/ &
+ & 0.64097E+00_JPRB,0.66723E+00_JPRB,0.69155E+00_JPRB,0.71362E+00_JPRB,0.73339E+00_JPRB /)  
+KB(:,20, 9) = (/ &
+ & 0.62162E+00_JPRB,0.65070E+00_JPRB,0.67764E+00_JPRB,0.70183E+00_JPRB,0.72348E+00_JPRB /)  
+KB(:,21, 9) = (/ &
+ & 0.60571E+00_JPRB,0.63800E+00_JPRB,0.66649E+00_JPRB,0.69291E+00_JPRB,0.71712E+00_JPRB /)  
+KB(:,22, 9) = (/ &
+ & 0.59651E+00_JPRB,0.62972E+00_JPRB,0.66058E+00_JPRB,0.68832E+00_JPRB,0.71517E+00_JPRB /)  
+KB(:,23, 9) = (/ &
+ & 0.58974E+00_JPRB,0.62545E+00_JPRB,0.65753E+00_JPRB,0.68785E+00_JPRB,0.71519E+00_JPRB /)  
+KB(:,24, 9) = (/ &
+ & 0.58721E+00_JPRB,0.62395E+00_JPRB,0.65801E+00_JPRB,0.68952E+00_JPRB,0.71705E+00_JPRB /)  
+KB(:,25, 9) = (/ &
+ & 0.58931E+00_JPRB,0.62554E+00_JPRB,0.66080E+00_JPRB,0.69275E+00_JPRB,0.72212E+00_JPRB /)  
+KB(:,26, 9) = (/ &
+ & 0.59392E+00_JPRB,0.63108E+00_JPRB,0.66576E+00_JPRB,0.69831E+00_JPRB,0.72831E+00_JPRB /)  
+KB(:,27, 9) = (/ &
+ & 0.60088E+00_JPRB,0.63911E+00_JPRB,0.67310E+00_JPRB,0.70594E+00_JPRB,0.73492E+00_JPRB /)  
+KB(:,28, 9) = (/ &
+ & 0.61058E+00_JPRB,0.64827E+00_JPRB,0.68351E+00_JPRB,0.71436E+00_JPRB,0.74248E+00_JPRB /)  
+KB(:,29, 9) = (/ &
+ & 0.62259E+00_JPRB,0.66086E+00_JPRB,0.69462E+00_JPRB,0.72450E+00_JPRB,0.75205E+00_JPRB /)  
+KB(:,30, 9) = (/ &
+ & 0.63547E+00_JPRB,0.67373E+00_JPRB,0.70715E+00_JPRB,0.73642E+00_JPRB,0.76277E+00_JPRB /)  
+KB(:,31, 9) = (/ &
+ & 0.65060E+00_JPRB,0.68811E+00_JPRB,0.72216E+00_JPRB,0.75104E+00_JPRB,0.77730E+00_JPRB /)  
+KB(:,32, 9) = (/ &
+ & 0.66635E+00_JPRB,0.70367E+00_JPRB,0.73703E+00_JPRB,0.76712E+00_JPRB,0.79450E+00_JPRB /)  
+KB(:,33, 9) = (/ &
+ & 0.68330E+00_JPRB,0.72114E+00_JPRB,0.75529E+00_JPRB,0.78560E+00_JPRB,0.81251E+00_JPRB /)  
+KB(:,34, 9) = (/ &
+ & 0.69895E+00_JPRB,0.73787E+00_JPRB,0.77209E+00_JPRB,0.80355E+00_JPRB,0.82948E+00_JPRB /)  
+KB(:,35, 9) = (/ &
+ & 0.71249E+00_JPRB,0.75244E+00_JPRB,0.78786E+00_JPRB,0.82021E+00_JPRB,0.84807E+00_JPRB /)  
+KB(:,36, 9) = (/ &
+ & 0.72352E+00_JPRB,0.76491E+00_JPRB,0.80192E+00_JPRB,0.83419E+00_JPRB,0.86330E+00_JPRB /)  
+KB(:,37, 9) = (/ &
+ & 0.72315E+00_JPRB,0.76487E+00_JPRB,0.80310E+00_JPRB,0.83637E+00_JPRB,0.86732E+00_JPRB /)  
+KB(:,38, 9) = (/ &
+ & 0.72144E+00_JPRB,0.76571E+00_JPRB,0.80444E+00_JPRB,0.83852E+00_JPRB,0.86991E+00_JPRB /)  
+KB(:,39, 9) = (/ &
+ & 0.72061E+00_JPRB,0.76655E+00_JPRB,0.80661E+00_JPRB,0.84238E+00_JPRB,0.87357E+00_JPRB /)  
+KB(:,40, 9) = (/ &
+ & 0.71071E+00_JPRB,0.75799E+00_JPRB,0.79882E+00_JPRB,0.83566E+00_JPRB,0.86813E+00_JPRB /)  
+KB(:,41, 9) = (/ &
+ & 0.69960E+00_JPRB,0.74652E+00_JPRB,0.79034E+00_JPRB,0.82858E+00_JPRB,0.86201E+00_JPRB /)  
+KB(:,42, 9) = (/ &
+ & 0.68767E+00_JPRB,0.73584E+00_JPRB,0.78080E+00_JPRB,0.82018E+00_JPRB,0.85505E+00_JPRB /)  
+KB(:,43, 9) = (/ &
+ & 0.67181E+00_JPRB,0.72136E+00_JPRB,0.76709E+00_JPRB,0.80803E+00_JPRB,0.84449E+00_JPRB /)  
+KB(:,44, 9) = (/ &
+ & 0.65485E+00_JPRB,0.70505E+00_JPRB,0.75190E+00_JPRB,0.79482E+00_JPRB,0.83260E+00_JPRB /)  
+KB(:,45, 9) = (/ &
+ & 0.63639E+00_JPRB,0.68756E+00_JPRB,0.73541E+00_JPRB,0.78029E+00_JPRB,0.82060E+00_JPRB /)  
+KB(:,46, 9) = (/ &
+ & 0.61610E+00_JPRB,0.67008E+00_JPRB,0.71893E+00_JPRB,0.76424E+00_JPRB,0.80647E+00_JPRB /)  
+KB(:,47, 9) = (/ &
+ & 0.59373E+00_JPRB,0.64972E+00_JPRB,0.69969E+00_JPRB,0.74707E+00_JPRB,0.79068E+00_JPRB /)  
+KB(:,48, 9) = (/ &
+ & 0.56865E+00_JPRB,0.62791E+00_JPRB,0.68069E+00_JPRB,0.72878E+00_JPRB,0.77390E+00_JPRB /)  
+KB(:,49, 9) = (/ &
+ & 0.54350E+00_JPRB,0.60516E+00_JPRB,0.66027E+00_JPRB,0.71007E+00_JPRB,0.75592E+00_JPRB /)  
+KB(:,50, 9) = (/ &
+ & 0.51991E+00_JPRB,0.58375E+00_JPRB,0.64136E+00_JPRB,0.69342E+00_JPRB,0.74093E+00_JPRB /)  
+KB(:,51, 9) = (/ &
+ & 0.49673E+00_JPRB,0.56229E+00_JPRB,0.62200E+00_JPRB,0.67685E+00_JPRB,0.72556E+00_JPRB /)  
+KB(:,52, 9) = (/ &
+ & 0.47256E+00_JPRB,0.53950E+00_JPRB,0.60133E+00_JPRB,0.65838E+00_JPRB,0.70926E+00_JPRB /)  
+KB(:,53, 9) = (/ &
+ & 0.44771E+00_JPRB,0.51552E+00_JPRB,0.57980E+00_JPRB,0.63854E+00_JPRB,0.69202E+00_JPRB /)  
+KB(:,54, 9) = (/ &
+ & 0.42506E+00_JPRB,0.49358E+00_JPRB,0.56009E+00_JPRB,0.62090E+00_JPRB,0.67547E+00_JPRB /)  
+KB(:,55, 9) = (/ &
+ & 0.40218E+00_JPRB,0.47240E+00_JPRB,0.53999E+00_JPRB,0.60216E+00_JPRB,0.65925E+00_JPRB /)  
+KB(:,56, 9) = (/ &
+ & 0.37888E+00_JPRB,0.45101E+00_JPRB,0.51913E+00_JPRB,0.58357E+00_JPRB,0.64216E+00_JPRB /)  
+KB(:,57, 9) = (/ &
+ & 0.35513E+00_JPRB,0.42824E+00_JPRB,0.49765E+00_JPRB,0.56376E+00_JPRB,0.62409E+00_JPRB /)  
+KB(:,58, 9) = (/ &
+ & 0.33174E+00_JPRB,0.40632E+00_JPRB,0.47713E+00_JPRB,0.54453E+00_JPRB,0.60605E+00_JPRB /)  
+KB(:,59, 9) = (/ &
+ & 0.32315E+00_JPRB,0.39758E+00_JPRB,0.46935E+00_JPRB,0.53732E+00_JPRB,0.59942E+00_JPRB /)  
+KB(:,13,10) = (/ &
+ & 0.20814E+01_JPRB,0.20759E+01_JPRB,0.20660E+01_JPRB,0.20703E+01_JPRB,0.20598E+01_JPRB /)  
+KB(:,14,10) = (/ &
+ & 0.20861E+01_JPRB,0.20862E+01_JPRB,0.20902E+01_JPRB,0.20921E+01_JPRB,0.20850E+01_JPRB /)  
+KB(:,15,10) = (/ &
+ & 0.20793E+01_JPRB,0.20969E+01_JPRB,0.21057E+01_JPRB,0.21014E+01_JPRB,0.21089E+01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART14',1,ZHOOK_HANDLE)
+END SUBROUTINE PART14
+
+
+SUBROUTINE PART15
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART15',0,ZHOOK_HANDLE)
+
+
+KB(:,16,10) = (/ &
+ & 0.20801E+01_JPRB,0.20948E+01_JPRB,0.21151E+01_JPRB,0.21351E+01_JPRB,0.21560E+01_JPRB /)  
+KB(:,17,10) = (/ &
+ & 0.20802E+01_JPRB,0.21249E+01_JPRB,0.21608E+01_JPRB,0.21842E+01_JPRB,0.21924E+01_JPRB /)  
+KB(:,18,10) = (/ &
+ & 0.20972E+01_JPRB,0.21483E+01_JPRB,0.21814E+01_JPRB,0.21999E+01_JPRB,0.22088E+01_JPRB /)  
+KB(:,19,10) = (/ &
+ & 0.21086E+01_JPRB,0.21513E+01_JPRB,0.21845E+01_JPRB,0.22099E+01_JPRB,0.22261E+01_JPRB /)  
+KB(:,20,10) = (/ &
+ & 0.21001E+01_JPRB,0.21488E+01_JPRB,0.21917E+01_JPRB,0.22212E+01_JPRB,0.22394E+01_JPRB /)  
+KB(:,21,10) = (/ &
+ & 0.20945E+01_JPRB,0.21494E+01_JPRB,0.22004E+01_JPRB,0.22330E+01_JPRB,0.22537E+01_JPRB /)  
+KB(:,22,10) = (/ &
+ & 0.20951E+01_JPRB,0.21635E+01_JPRB,0.22151E+01_JPRB,0.22483E+01_JPRB,0.22658E+01_JPRB /)  
+KB(:,23,10) = (/ &
+ & 0.21106E+01_JPRB,0.21802E+01_JPRB,0.22288E+01_JPRB,0.22593E+01_JPRB,0.22769E+01_JPRB /)  
+KB(:,24,10) = (/ &
+ & 0.21251E+01_JPRB,0.21978E+01_JPRB,0.22479E+01_JPRB,0.22750E+01_JPRB,0.23069E+01_JPRB /)  
+KB(:,25,10) = (/ &
+ & 0.21350E+01_JPRB,0.22127E+01_JPRB,0.22620E+01_JPRB,0.22919E+01_JPRB,0.23205E+01_JPRB /)  
+KB(:,26,10) = (/ &
+ & 0.21397E+01_JPRB,0.22248E+01_JPRB,0.22778E+01_JPRB,0.23148E+01_JPRB,0.23338E+01_JPRB /)  
+KB(:,27,10) = (/ &
+ & 0.21476E+01_JPRB,0.22244E+01_JPRB,0.22911E+01_JPRB,0.23271E+01_JPRB,0.23529E+01_JPRB /)  
+KB(:,28,10) = (/ &
+ & 0.21502E+01_JPRB,0.22263E+01_JPRB,0.22854E+01_JPRB,0.23382E+01_JPRB,0.23803E+01_JPRB /)  
+KB(:,29,10) = (/ &
+ & 0.21444E+01_JPRB,0.22159E+01_JPRB,0.22839E+01_JPRB,0.23447E+01_JPRB,0.24026E+01_JPRB /)  
+KB(:,30,10) = (/ &
+ & 0.21459E+01_JPRB,0.22135E+01_JPRB,0.22803E+01_JPRB,0.23564E+01_JPRB,0.24114E+01_JPRB /)  
+KB(:,31,10) = (/ &
+ & 0.21548E+01_JPRB,0.22131E+01_JPRB,0.22785E+01_JPRB,0.23559E+01_JPRB,0.23993E+01_JPRB /)  
+KB(:,32,10) = (/ &
+ & 0.21820E+01_JPRB,0.22366E+01_JPRB,0.23010E+01_JPRB,0.23445E+01_JPRB,0.23808E+01_JPRB /)  
+KB(:,33,10) = (/ &
+ & 0.22356E+01_JPRB,0.22739E+01_JPRB,0.22923E+01_JPRB,0.23386E+01_JPRB,0.23842E+01_JPRB /)  
+KB(:,34,10) = (/ &
+ & 0.22861E+01_JPRB,0.23162E+01_JPRB,0.23352E+01_JPRB,0.23408E+01_JPRB,0.23839E+01_JPRB /)  
+KB(:,35,10) = (/ &
+ & 0.23385E+01_JPRB,0.23680E+01_JPRB,0.23728E+01_JPRB,0.23741E+01_JPRB,0.23938E+01_JPRB /)  
+KB(:,36,10) = (/ &
+ & 0.23851E+01_JPRB,0.24072E+01_JPRB,0.24258E+01_JPRB,0.24337E+01_JPRB,0.24446E+01_JPRB /)  
+KB(:,37,10) = (/ &
+ & 0.23954E+01_JPRB,0.24271E+01_JPRB,0.24525E+01_JPRB,0.24638E+01_JPRB,0.24744E+01_JPRB /)  
+KB(:,38,10) = (/ &
+ & 0.24138E+01_JPRB,0.24360E+01_JPRB,0.24658E+01_JPRB,0.24931E+01_JPRB,0.25112E+01_JPRB /)  
+KB(:,39,10) = (/ &
+ & 0.24207E+01_JPRB,0.24415E+01_JPRB,0.24747E+01_JPRB,0.25054E+01_JPRB,0.25446E+01_JPRB /)  
+KB(:,40,10) = (/ &
+ & 0.24183E+01_JPRB,0.24401E+01_JPRB,0.24836E+01_JPRB,0.25135E+01_JPRB,0.25532E+01_JPRB /)  
+KB(:,41,10) = (/ &
+ & 0.24046E+01_JPRB,0.24486E+01_JPRB,0.24788E+01_JPRB,0.25037E+01_JPRB,0.25503E+01_JPRB /)  
+KB(:,42,10) = (/ &
+ & 0.23965E+01_JPRB,0.24448E+01_JPRB,0.24659E+01_JPRB,0.25035E+01_JPRB,0.25440E+01_JPRB /)  
+KB(:,43,10) = (/ &
+ & 0.23757E+01_JPRB,0.24456E+01_JPRB,0.24672E+01_JPRB,0.25043E+01_JPRB,0.25340E+01_JPRB /)  
+KB(:,44,10) = (/ &
+ & 0.23417E+01_JPRB,0.24271E+01_JPRB,0.24708E+01_JPRB,0.24891E+01_JPRB,0.25157E+01_JPRB /)  
+KB(:,45,10) = (/ &
+ & 0.23140E+01_JPRB,0.24224E+01_JPRB,0.24648E+01_JPRB,0.24895E+01_JPRB,0.25109E+01_JPRB /)  
+KB(:,46,10) = (/ &
+ & 0.22839E+01_JPRB,0.23815E+01_JPRB,0.24548E+01_JPRB,0.24874E+01_JPRB,0.24983E+01_JPRB /)  
+KB(:,47,10) = (/ &
+ & 0.22509E+01_JPRB,0.23585E+01_JPRB,0.24548E+01_JPRB,0.24976E+01_JPRB,0.25158E+01_JPRB /)  
+KB(:,48,10) = (/ &
+ & 0.22243E+01_JPRB,0.23182E+01_JPRB,0.24167E+01_JPRB,0.24851E+01_JPRB,0.25144E+01_JPRB /)  
+KB(:,49,10) = (/ &
+ & 0.21934E+01_JPRB,0.22838E+01_JPRB,0.23882E+01_JPRB,0.24694E+01_JPRB,0.25145E+01_JPRB /)  
+KB(:,50,10) = (/ &
+ & 0.21637E+01_JPRB,0.22591E+01_JPRB,0.23593E+01_JPRB,0.24450E+01_JPRB,0.25097E+01_JPRB /)  
+KB(:,51,10) = (/ &
+ & 0.21256E+01_JPRB,0.22383E+01_JPRB,0.23340E+01_JPRB,0.24239E+01_JPRB,0.25025E+01_JPRB /)  
+KB(:,52,10) = (/ &
+ & 0.20804E+01_JPRB,0.22090E+01_JPRB,0.23144E+01_JPRB,0.24005E+01_JPRB,0.24803E+01_JPRB /)  
+KB(:,53,10) = (/ &
+ & 0.20229E+01_JPRB,0.21712E+01_JPRB,0.22790E+01_JPRB,0.23709E+01_JPRB,0.24497E+01_JPRB /)  
+KB(:,54,10) = (/ &
+ & 0.19647E+01_JPRB,0.21430E+01_JPRB,0.22514E+01_JPRB,0.23430E+01_JPRB,0.24343E+01_JPRB /)  
+KB(:,55,10) = (/ &
+ & 0.19094E+01_JPRB,0.20990E+01_JPRB,0.22287E+01_JPRB,0.23283E+01_JPRB,0.24126E+01_JPRB /)  
+KB(:,56,10) = (/ &
+ & 0.18499E+01_JPRB,0.20432E+01_JPRB,0.21961E+01_JPRB,0.22965E+01_JPRB,0.23921E+01_JPRB /)  
+KB(:,57,10) = (/ &
+ & 0.17845E+01_JPRB,0.19868E+01_JPRB,0.21557E+01_JPRB,0.22661E+01_JPRB,0.23666E+01_JPRB /)  
+KB(:,58,10) = (/ &
+ & 0.17304E+01_JPRB,0.19324E+01_JPRB,0.21130E+01_JPRB,0.22379E+01_JPRB,0.23344E+01_JPRB /)  
+KB(:,59,10) = (/ &
+ & 0.17036E+01_JPRB,0.19129E+01_JPRB,0.20925E+01_JPRB,0.22299E+01_JPRB,0.23291E+01_JPRB /)  
+KB(:,13,11) = (/ &
+ & 0.28487E+01_JPRB,0.28532E+01_JPRB,0.28392E+01_JPRB,0.28113E+01_JPRB,0.28077E+01_JPRB /)  
+KB(:,14,11) = (/ &
+ & 0.29217E+01_JPRB,0.29135E+01_JPRB,0.28970E+01_JPRB,0.28895E+01_JPRB,0.29104E+01_JPRB /)  
+KB(:,15,11) = (/ &
+ & 0.29720E+01_JPRB,0.29567E+01_JPRB,0.29515E+01_JPRB,0.29771E+01_JPRB,0.29749E+01_JPRB /)  
+KB(:,16,11) = (/ &
+ & 0.29934E+01_JPRB,0.30029E+01_JPRB,0.30226E+01_JPRB,0.30339E+01_JPRB,0.30204E+01_JPRB /)  
+KB(:,17,11) = (/ &
+ & 0.30408E+01_JPRB,0.30652E+01_JPRB,0.30797E+01_JPRB,0.30959E+01_JPRB,0.31120E+01_JPRB /)  
+KB(:,18,11) = (/ &
+ & 0.31059E+01_JPRB,0.31457E+01_JPRB,0.31893E+01_JPRB,0.32154E+01_JPRB,0.32284E+01_JPRB /)  
+KB(:,19,11) = (/ &
+ & 0.31895E+01_JPRB,0.32505E+01_JPRB,0.32863E+01_JPRB,0.32994E+01_JPRB,0.32949E+01_JPRB /)  
+KB(:,20,11) = (/ &
+ & 0.32605E+01_JPRB,0.33203E+01_JPRB,0.33389E+01_JPRB,0.33469E+01_JPRB,0.33350E+01_JPRB /)  
+KB(:,21,11) = (/ &
+ & 0.33097E+01_JPRB,0.33567E+01_JPRB,0.33762E+01_JPRB,0.33842E+01_JPRB,0.33798E+01_JPRB /)  
+KB(:,22,11) = (/ &
+ & 0.33482E+01_JPRB,0.33901E+01_JPRB,0.34068E+01_JPRB,0.34227E+01_JPRB,0.34010E+01_JPRB /)  
+KB(:,23,11) = (/ &
+ & 0.33722E+01_JPRB,0.34154E+01_JPRB,0.34438E+01_JPRB,0.34434E+01_JPRB,0.34235E+01_JPRB /)  
+KB(:,24,11) = (/ &
+ & 0.33951E+01_JPRB,0.34377E+01_JPRB,0.34659E+01_JPRB,0.34658E+01_JPRB,0.34557E+01_JPRB /)  
+KB(:,25,11) = (/ &
+ & 0.34209E+01_JPRB,0.34720E+01_JPRB,0.34904E+01_JPRB,0.34950E+01_JPRB,0.34725E+01_JPRB /)  
+KB(:,26,11) = (/ &
+ & 0.34497E+01_JPRB,0.34967E+01_JPRB,0.35233E+01_JPRB,0.35072E+01_JPRB,0.34967E+01_JPRB /)  
+KB(:,27,11) = (/ &
+ & 0.34791E+01_JPRB,0.35327E+01_JPRB,0.35370E+01_JPRB,0.35122E+01_JPRB,0.35139E+01_JPRB /)  
+KB(:,28,11) = (/ &
+ & 0.35134E+01_JPRB,0.35471E+01_JPRB,0.35465E+01_JPRB,0.35405E+01_JPRB,0.35525E+01_JPRB /)  
+KB(:,29,11) = (/ &
+ & 0.35424E+01_JPRB,0.35704E+01_JPRB,0.35632E+01_JPRB,0.35824E+01_JPRB,0.35567E+01_JPRB /)  
+KB(:,30,11) = (/ &
+ & 0.35629E+01_JPRB,0.35947E+01_JPRB,0.35992E+01_JPRB,0.36011E+01_JPRB,0.36027E+01_JPRB /)  
+KB(:,31,11) = (/ &
+ & 0.35753E+01_JPRB,0.36045E+01_JPRB,0.36365E+01_JPRB,0.36213E+01_JPRB,0.36310E+01_JPRB /)  
+KB(:,32,11) = (/ &
+ & 0.35596E+01_JPRB,0.36100E+01_JPRB,0.36333E+01_JPRB,0.36490E+01_JPRB,0.36651E+01_JPRB /)  
+KB(:,33,11) = (/ &
+ & 0.35241E+01_JPRB,0.35883E+01_JPRB,0.36383E+01_JPRB,0.36740E+01_JPRB,0.36685E+01_JPRB /)  
+KB(:,34,11) = (/ &
+ & 0.35027E+01_JPRB,0.35491E+01_JPRB,0.36249E+01_JPRB,0.36739E+01_JPRB,0.36810E+01_JPRB /)  
+KB(:,35,11) = (/ &
+ & 0.34699E+01_JPRB,0.35289E+01_JPRB,0.35926E+01_JPRB,0.36193E+01_JPRB,0.36411E+01_JPRB /)  
+KB(:,36,11) = (/ &
+ & 0.35153E+01_JPRB,0.35225E+01_JPRB,0.35498E+01_JPRB,0.35989E+01_JPRB,0.36429E+01_JPRB /)  
+KB(:,37,11) = (/ &
+ & 0.35644E+01_JPRB,0.35488E+01_JPRB,0.35358E+01_JPRB,0.35755E+01_JPRB,0.36247E+01_JPRB /)  
+KB(:,38,11) = (/ &
+ & 0.35952E+01_JPRB,0.35902E+01_JPRB,0.35685E+01_JPRB,0.35598E+01_JPRB,0.35995E+01_JPRB /)  
+KB(:,39,11) = (/ &
+ & 0.36371E+01_JPRB,0.36388E+01_JPRB,0.36159E+01_JPRB,0.35751E+01_JPRB,0.35930E+01_JPRB /)  
+KB(:,40,11) = (/ &
+ & 0.36530E+01_JPRB,0.36611E+01_JPRB,0.36495E+01_JPRB,0.35923E+01_JPRB,0.35985E+01_JPRB /)  
+KB(:,41,11) = (/ &
+ & 0.36431E+01_JPRB,0.36852E+01_JPRB,0.36606E+01_JPRB,0.36324E+01_JPRB,0.35949E+01_JPRB /)  
+KB(:,42,11) = (/ &
+ & 0.36510E+01_JPRB,0.36940E+01_JPRB,0.36905E+01_JPRB,0.36729E+01_JPRB,0.36122E+01_JPRB /)  
+KB(:,43,11) = (/ &
+ & 0.36633E+01_JPRB,0.36955E+01_JPRB,0.37103E+01_JPRB,0.36924E+01_JPRB,0.36526E+01_JPRB /)  
+KB(:,44,11) = (/ &
+ & 0.36584E+01_JPRB,0.36852E+01_JPRB,0.37131E+01_JPRB,0.37219E+01_JPRB,0.36946E+01_JPRB /)  
+KB(:,45,11) = (/ &
+ & 0.36636E+01_JPRB,0.36530E+01_JPRB,0.37160E+01_JPRB,0.37197E+01_JPRB,0.37150E+01_JPRB /)  
+KB(:,46,11) = (/ &
+ & 0.36713E+01_JPRB,0.36779E+01_JPRB,0.37130E+01_JPRB,0.37408E+01_JPRB,0.37431E+01_JPRB /)  
+KB(:,47,11) = (/ &
+ & 0.36885E+01_JPRB,0.36889E+01_JPRB,0.37012E+01_JPRB,0.37377E+01_JPRB,0.37538E+01_JPRB /)  
+KB(:,48,11) = (/ &
+ & 0.36735E+01_JPRB,0.37253E+01_JPRB,0.37092E+01_JPRB,0.37311E+01_JPRB,0.37444E+01_JPRB /)  
+KB(:,49,11) = (/ &
+ & 0.36543E+01_JPRB,0.37300E+01_JPRB,0.37306E+01_JPRB,0.37311E+01_JPRB,0.37688E+01_JPRB /)  
+KB(:,50,11) = (/ &
+ & 0.36397E+01_JPRB,0.37435E+01_JPRB,0.37659E+01_JPRB,0.37491E+01_JPRB,0.37600E+01_JPRB /)  
+KB(:,51,11) = (/ &
+ & 0.36124E+01_JPRB,0.37293E+01_JPRB,0.37963E+01_JPRB,0.37839E+01_JPRB,0.37789E+01_JPRB /)  
+KB(:,52,11) = (/ &
+ & 0.35636E+01_JPRB,0.37078E+01_JPRB,0.37818E+01_JPRB,0.38114E+01_JPRB,0.37775E+01_JPRB /)  
+KB(:,53,11) = (/ &
+ & 0.34978E+01_JPRB,0.36691E+01_JPRB,0.37922E+01_JPRB,0.38152E+01_JPRB,0.38092E+01_JPRB /)  
+KB(:,54,11) = (/ &
+ & 0.34749E+01_JPRB,0.36230E+01_JPRB,0.37686E+01_JPRB,0.38328E+01_JPRB,0.38292E+01_JPRB /)  
+KB(:,55,11) = (/ &
+ & 0.34238E+01_JPRB,0.35883E+01_JPRB,0.37261E+01_JPRB,0.38299E+01_JPRB,0.38488E+01_JPRB /)  
+KB(:,56,11) = (/ &
+ & 0.33568E+01_JPRB,0.35597E+01_JPRB,0.37073E+01_JPRB,0.38247E+01_JPRB,0.38591E+01_JPRB /)  
+KB(:,57,11) = (/ &
+ & 0.32794E+01_JPRB,0.35193E+01_JPRB,0.36712E+01_JPRB,0.37875E+01_JPRB,0.38581E+01_JPRB /)  
+KB(:,58,11) = (/ &
+ & 0.31971E+01_JPRB,0.34544E+01_JPRB,0.36268E+01_JPRB,0.37609E+01_JPRB,0.38393E+01_JPRB /)  
+KB(:,59,11) = (/ &
+ & 0.31680E+01_JPRB,0.34441E+01_JPRB,0.36338E+01_JPRB,0.37596E+01_JPRB,0.38510E+01_JPRB /)  
+KB(:,13,12) = (/ &
+ & 0.40944E+01_JPRB,0.40706E+01_JPRB,0.40738E+01_JPRB,0.40615E+01_JPRB,0.40255E+01_JPRB /)  
+KB(:,14,12) = (/ &
+ & 0.42568E+01_JPRB,0.42640E+01_JPRB,0.42578E+01_JPRB,0.42281E+01_JPRB,0.41677E+01_JPRB /)  
+KB(:,15,12) = (/ &
+ & 0.44471E+01_JPRB,0.44460E+01_JPRB,0.44235E+01_JPRB,0.43647E+01_JPRB,0.43107E+01_JPRB /)  
+KB(:,16,12) = (/ &
+ & 0.45971E+01_JPRB,0.45776E+01_JPRB,0.45277E+01_JPRB,0.44905E+01_JPRB,0.45101E+01_JPRB /)  
+KB(:,17,12) = (/ &
+ & 0.46780E+01_JPRB,0.46358E+01_JPRB,0.46311E+01_JPRB,0.46380E+01_JPRB,0.46103E+01_JPRB /)  
+KB(:,18,12) = (/ &
+ & 0.47294E+01_JPRB,0.47444E+01_JPRB,0.47418E+01_JPRB,0.47299E+01_JPRB,0.47059E+01_JPRB /)  
+KB(:,19,12) = (/ &
+ & 0.48604E+01_JPRB,0.48842E+01_JPRB,0.48819E+01_JPRB,0.49000E+01_JPRB,0.48969E+01_JPRB /)  
+KB(:,20,12) = (/ &
+ & 0.49979E+01_JPRB,0.50271E+01_JPRB,0.50614E+01_JPRB,0.50783E+01_JPRB,0.50637E+01_JPRB /)  
+KB(:,21,12) = (/ &
+ & 0.51216E+01_JPRB,0.51841E+01_JPRB,0.52155E+01_JPRB,0.52098E+01_JPRB,0.51706E+01_JPRB /)  
+KB(:,22,12) = (/ &
+ & 0.52796E+01_JPRB,0.53177E+01_JPRB,0.53275E+01_JPRB,0.53003E+01_JPRB,0.52540E+01_JPRB /)  
+KB(:,23,12) = (/ &
+ & 0.54021E+01_JPRB,0.54214E+01_JPRB,0.54107E+01_JPRB,0.53770E+01_JPRB,0.53308E+01_JPRB /)  
+KB(:,24,12) = (/ &
+ & 0.54951E+01_JPRB,0.54954E+01_JPRB,0.54655E+01_JPRB,0.54275E+01_JPRB,0.53548E+01_JPRB /)  
+KB(:,25,12) = (/ &
+ & 0.55606E+01_JPRB,0.55401E+01_JPRB,0.55126E+01_JPRB,0.54611E+01_JPRB,0.53900E+01_JPRB /)  
+KB(:,26,12) = (/ &
+ & 0.56084E+01_JPRB,0.55775E+01_JPRB,0.55344E+01_JPRB,0.54935E+01_JPRB,0.53765E+01_JPRB /)  
+KB(:,27,12) = (/ &
+ & 0.56424E+01_JPRB,0.55975E+01_JPRB,0.55674E+01_JPRB,0.55057E+01_JPRB,0.54137E+01_JPRB /)  
+KB(:,28,12) = (/ &
+ & 0.56582E+01_JPRB,0.56350E+01_JPRB,0.55811E+01_JPRB,0.55009E+01_JPRB,0.54160E+01_JPRB /)  
+KB(:,29,12) = (/ &
+ & 0.56833E+01_JPRB,0.56401E+01_JPRB,0.55975E+01_JPRB,0.55109E+01_JPRB,0.54249E+01_JPRB /)  
+KB(:,30,12) = (/ &
+ & 0.57003E+01_JPRB,0.56620E+01_JPRB,0.55904E+01_JPRB,0.55121E+01_JPRB,0.54542E+01_JPRB /)  
+KB(:,31,12) = (/ &
+ & 0.57132E+01_JPRB,0.56848E+01_JPRB,0.56091E+01_JPRB,0.55447E+01_JPRB,0.55236E+01_JPRB /)  
+KB(:,32,12) = (/ &
+ & 0.57800E+01_JPRB,0.57027E+01_JPRB,0.56220E+01_JPRB,0.56024E+01_JPRB,0.55523E+01_JPRB /)  
+KB(:,33,12) = (/ &
+ & 0.57668E+01_JPRB,0.57069E+01_JPRB,0.56826E+01_JPRB,0.56406E+01_JPRB,0.56224E+01_JPRB /)  
+KB(:,34,12) = (/ &
+ & 0.57877E+01_JPRB,0.57628E+01_JPRB,0.57465E+01_JPRB,0.57131E+01_JPRB,0.56752E+01_JPRB /)  
+KB(:,35,12) = (/ &
+ & 0.58053E+01_JPRB,0.58032E+01_JPRB,0.57814E+01_JPRB,0.58008E+01_JPRB,0.57412E+01_JPRB /)  
+KB(:,36,12) = (/ &
+ & 0.57386E+01_JPRB,0.58034E+01_JPRB,0.57934E+01_JPRB,0.57973E+01_JPRB,0.57760E+01_JPRB /)  
+KB(:,37,12) = (/ &
+ & 0.56650E+01_JPRB,0.57400E+01_JPRB,0.57795E+01_JPRB,0.58096E+01_JPRB,0.57723E+01_JPRB /)  
+KB(:,38,12) = (/ &
+ & 0.56068E+01_JPRB,0.56512E+01_JPRB,0.57137E+01_JPRB,0.58154E+01_JPRB,0.57795E+01_JPRB /)  
+KB(:,39,12) = (/ &
+ & 0.55712E+01_JPRB,0.56156E+01_JPRB,0.56456E+01_JPRB,0.57952E+01_JPRB,0.57768E+01_JPRB /)  
+KB(:,40,12) = (/ &
+ & 0.55331E+01_JPRB,0.55774E+01_JPRB,0.56049E+01_JPRB,0.57462E+01_JPRB,0.57382E+01_JPRB /)  
+KB(:,41,12) = (/ &
+ & 0.55579E+01_JPRB,0.55330E+01_JPRB,0.55754E+01_JPRB,0.56805E+01_JPRB,0.57245E+01_JPRB /)  
+KB(:,42,12) = (/ &
+ & 0.55684E+01_JPRB,0.55372E+01_JPRB,0.55455E+01_JPRB,0.56019E+01_JPRB,0.57291E+01_JPRB /)  
+KB(:,43,12) = (/ &
+ & 0.56282E+01_JPRB,0.55547E+01_JPRB,0.55863E+01_JPRB,0.55852E+01_JPRB,0.56892E+01_JPRB /)  
+KB(:,44,12) = (/ &
+ & 0.56429E+01_JPRB,0.55998E+01_JPRB,0.55663E+01_JPRB,0.55662E+01_JPRB,0.56522E+01_JPRB /)  
+KB(:,45,12) = (/ &
+ & 0.56488E+01_JPRB,0.56642E+01_JPRB,0.55915E+01_JPRB,0.56136E+01_JPRB,0.56176E+01_JPRB /)  
+KB(:,46,12) = (/ &
+ & 0.57246E+01_JPRB,0.57165E+01_JPRB,0.56557E+01_JPRB,0.56271E+01_JPRB,0.56227E+01_JPRB /)  
+KB(:,47,12) = (/ &
+ & 0.57406E+01_JPRB,0.57550E+01_JPRB,0.57336E+01_JPRB,0.56616E+01_JPRB,0.56928E+01_JPRB /)  
+KB(:,48,12) = (/ &
+ & 0.57616E+01_JPRB,0.57715E+01_JPRB,0.57765E+01_JPRB,0.57429E+01_JPRB,0.57151E+01_JPRB /)  
+KB(:,49,12) = (/ &
+ & 0.58013E+01_JPRB,0.57807E+01_JPRB,0.58014E+01_JPRB,0.57796E+01_JPRB,0.57022E+01_JPRB /)  
+KB(:,50,12) = (/ &
+ & 0.58611E+01_JPRB,0.58307E+01_JPRB,0.58954E+01_JPRB,0.58904E+01_JPRB,0.58254E+01_JPRB /)  
+KB(:,51,12) = (/ &
+ & 0.59182E+01_JPRB,0.59013E+01_JPRB,0.59353E+01_JPRB,0.59746E+01_JPRB,0.59215E+01_JPRB /)  
+KB(:,52,12) = (/ &
+ & 0.59636E+01_JPRB,0.59631E+01_JPRB,0.59638E+01_JPRB,0.60147E+01_JPRB,0.60288E+01_JPRB /)  
+KB(:,53,12) = (/ &
+ & 0.60261E+01_JPRB,0.59972E+01_JPRB,0.59771E+01_JPRB,0.60154E+01_JPRB,0.60632E+01_JPRB /)  
+KB(:,54,12) = (/ &
+ & 0.60204E+01_JPRB,0.60805E+01_JPRB,0.60002E+01_JPRB,0.60580E+01_JPRB,0.60854E+01_JPRB /)  
+KB(:,55,12) = (/ &
+ & 0.60584E+01_JPRB,0.61138E+01_JPRB,0.60917E+01_JPRB,0.60710E+01_JPRB,0.61237E+01_JPRB /)  
+KB(:,56,12) = (/ &
+ & 0.60402E+01_JPRB,0.61059E+01_JPRB,0.61154E+01_JPRB,0.61008E+01_JPRB,0.61463E+01_JPRB /)  
+KB(:,57,12) = (/ &
+ & 0.60080E+01_JPRB,0.61076E+01_JPRB,0.61306E+01_JPRB,0.61548E+01_JPRB,0.61892E+01_JPRB /)  
+KB(:,58,12) = (/ &
+ & 0.59781E+01_JPRB,0.61168E+01_JPRB,0.61621E+01_JPRB,0.61680E+01_JPRB,0.62246E+01_JPRB /)  
+KB(:,59,12) = (/ &
+ & 0.59824E+01_JPRB,0.60878E+01_JPRB,0.61825E+01_JPRB,0.62179E+01_JPRB,0.62658E+01_JPRB /)  
+KB(:,13,13) = (/ &
+ & 0.62252E+01_JPRB,0.61003E+01_JPRB,0.59711E+01_JPRB,0.58641E+01_JPRB,0.57820E+01_JPRB /)  
+KB(:,14,13) = (/ &
+ & 0.66429E+01_JPRB,0.64784E+01_JPRB,0.63526E+01_JPRB,0.62330E+01_JPRB,0.61644E+01_JPRB /)  
+KB(:,15,13) = (/ &
+ & 0.69743E+01_JPRB,0.68232E+01_JPRB,0.67077E+01_JPRB,0.66230E+01_JPRB,0.65438E+01_JPRB /)  
+KB(:,16,13) = (/ &
+ & 0.72971E+01_JPRB,0.72050E+01_JPRB,0.71016E+01_JPRB,0.69747E+01_JPRB,0.67726E+01_JPRB /)  
+KB(:,17,13) = (/ &
+ & 0.77109E+01_JPRB,0.75892E+01_JPRB,0.74253E+01_JPRB,0.72127E+01_JPRB,0.70341E+01_JPRB /)  
+KB(:,18,13) = (/ &
+ & 0.80450E+01_JPRB,0.78275E+01_JPRB,0.75988E+01_JPRB,0.74227E+01_JPRB,0.73977E+01_JPRB /)  
+KB(:,19,13) = (/ &
+ & 0.81727E+01_JPRB,0.79248E+01_JPRB,0.78355E+01_JPRB,0.77125E+01_JPRB,0.75391E+01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART15',1,ZHOOK_HANDLE)
+END SUBROUTINE PART15
+
+
+SUBROUTINE PART16
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART16',0,ZHOOK_HANDLE)
+
+
+KB(:,20,13) = (/ &
+ & 0.82796E+01_JPRB,0.81265E+01_JPRB,0.80271E+01_JPRB,0.78599E+01_JPRB,0.77204E+01_JPRB /)  
+KB(:,21,13) = (/ &
+ & 0.84685E+01_JPRB,0.83415E+01_JPRB,0.82106E+01_JPRB,0.80317E+01_JPRB,0.78896E+01_JPRB /)  
+KB(:,22,13) = (/ &
+ & 0.86169E+01_JPRB,0.85255E+01_JPRB,0.83779E+01_JPRB,0.82528E+01_JPRB,0.81573E+01_JPRB /)  
+KB(:,23,13) = (/ &
+ & 0.88276E+01_JPRB,0.86892E+01_JPRB,0.86001E+01_JPRB,0.84644E+01_JPRB,0.83125E+01_JPRB /)  
+KB(:,24,13) = (/ &
+ & 0.89834E+01_JPRB,0.88963E+01_JPRB,0.87866E+01_JPRB,0.86675E+01_JPRB,0.84751E+01_JPRB /)  
+KB(:,25,13) = (/ &
+ & 0.91971E+01_JPRB,0.90977E+01_JPRB,0.89941E+01_JPRB,0.88254E+01_JPRB,0.85750E+01_JPRB /)  
+KB(:,26,13) = (/ &
+ & 0.93611E+01_JPRB,0.92762E+01_JPRB,0.91306E+01_JPRB,0.88795E+01_JPRB,0.86828E+01_JPRB /)  
+KB(:,27,13) = (/ &
+ & 0.95231E+01_JPRB,0.94096E+01_JPRB,0.91709E+01_JPRB,0.89786E+01_JPRB,0.86968E+01_JPRB /)  
+KB(:,28,13) = (/ &
+ & 0.96495E+01_JPRB,0.94564E+01_JPRB,0.92347E+01_JPRB,0.89785E+01_JPRB,0.86180E+01_JPRB /)  
+KB(:,29,13) = (/ &
+ & 0.97336E+01_JPRB,0.94935E+01_JPRB,0.92561E+01_JPRB,0.89137E+01_JPRB,0.86661E+01_JPRB /)  
+KB(:,30,13) = (/ &
+ & 0.97605E+01_JPRB,0.95111E+01_JPRB,0.92200E+01_JPRB,0.89355E+01_JPRB,0.85920E+01_JPRB /)  
+KB(:,31,13) = (/ &
+ & 0.97562E+01_JPRB,0.95167E+01_JPRB,0.91771E+01_JPRB,0.88618E+01_JPRB,0.85414E+01_JPRB /)  
+KB(:,32,13) = (/ &
+ & 0.97192E+01_JPRB,0.94434E+01_JPRB,0.91403E+01_JPRB,0.87870E+01_JPRB,0.85159E+01_JPRB /)  
+KB(:,33,13) = (/ &
+ & 0.97162E+01_JPRB,0.94370E+01_JPRB,0.90971E+01_JPRB,0.88239E+01_JPRB,0.85528E+01_JPRB /)  
+KB(:,34,13) = (/ &
+ & 0.96997E+01_JPRB,0.93448E+01_JPRB,0.90783E+01_JPRB,0.87958E+01_JPRB,0.87225E+01_JPRB /)  
+KB(:,35,13) = (/ &
+ & 0.97261E+01_JPRB,0.93769E+01_JPRB,0.90457E+01_JPRB,0.89061E+01_JPRB,0.87695E+01_JPRB /)  
+KB(:,36,13) = (/ &
+ & 0.97573E+01_JPRB,0.94639E+01_JPRB,0.92105E+01_JPRB,0.90277E+01_JPRB,0.88187E+01_JPRB /)  
+KB(:,37,13) = (/ &
+ & 0.98297E+01_JPRB,0.95424E+01_JPRB,0.93169E+01_JPRB,0.90796E+01_JPRB,0.89104E+01_JPRB /)  
+KB(:,38,13) = (/ &
+ & 0.99015E+01_JPRB,0.96432E+01_JPRB,0.94039E+01_JPRB,0.91616E+01_JPRB,0.89941E+01_JPRB /)  
+KB(:,39,13) = (/ &
+ & 0.99137E+01_JPRB,0.96714E+01_JPRB,0.94790E+01_JPRB,0.92092E+01_JPRB,0.90352E+01_JPRB /)  
+KB(:,40,13) = (/ &
+ & 0.99728E+01_JPRB,0.96872E+01_JPRB,0.94263E+01_JPRB,0.92759E+01_JPRB,0.90690E+01_JPRB /)  
+KB(:,41,13) = (/ &
+ & 0.10009E+02_JPRB,0.96720E+01_JPRB,0.94529E+01_JPRB,0.92520E+01_JPRB,0.90775E+01_JPRB /)  
+KB(:,42,13) = (/ &
+ & 0.99394E+01_JPRB,0.96947E+01_JPRB,0.94735E+01_JPRB,0.92670E+01_JPRB,0.90312E+01_JPRB /)  
+KB(:,43,13) = (/ &
+ & 0.98412E+01_JPRB,0.96685E+01_JPRB,0.93802E+01_JPRB,0.91747E+01_JPRB,0.90019E+01_JPRB /)  
+KB(:,44,13) = (/ &
+ & 0.98284E+01_JPRB,0.96419E+01_JPRB,0.93576E+01_JPRB,0.91166E+01_JPRB,0.88968E+01_JPRB /)  
+KB(:,45,13) = (/ &
+ & 0.98765E+01_JPRB,0.96737E+01_JPRB,0.94176E+01_JPRB,0.90811E+01_JPRB,0.88300E+01_JPRB /)  
+KB(:,46,13) = (/ &
+ & 0.99370E+01_JPRB,0.96739E+01_JPRB,0.94534E+01_JPRB,0.91692E+01_JPRB,0.88574E+01_JPRB /)  
+KB(:,47,13) = (/ &
+ & 0.10145E+02_JPRB,0.99712E+01_JPRB,0.96675E+01_JPRB,0.93530E+01_JPRB,0.89895E+01_JPRB /)  
+KB(:,48,13) = (/ &
+ & 0.10395E+02_JPRB,0.10167E+02_JPRB,0.99330E+01_JPRB,0.95943E+01_JPRB,0.92927E+01_JPRB /)  
+KB(:,49,13) = (/ &
+ & 0.10580E+02_JPRB,0.10365E+02_JPRB,0.10114E+02_JPRB,0.98197E+01_JPRB,0.95303E+01_JPRB /)  
+KB(:,50,13) = (/ &
+ & 0.10794E+02_JPRB,0.10715E+02_JPRB,0.10421E+02_JPRB,0.10154E+02_JPRB,0.98629E+01_JPRB /)  
+KB(:,51,13) = (/ &
+ & 0.10946E+02_JPRB,0.10939E+02_JPRB,0.10689E+02_JPRB,0.10427E+02_JPRB,0.10145E+02_JPRB /)  
+KB(:,52,13) = (/ &
+ & 0.11156E+02_JPRB,0.11126E+02_JPRB,0.10973E+02_JPRB,0.10622E+02_JPRB,0.10371E+02_JPRB /)  
+KB(:,53,13) = (/ &
+ & 0.11165E+02_JPRB,0.11308E+02_JPRB,0.11212E+02_JPRB,0.10985E+02_JPRB,0.10624E+02_JPRB /)  
+KB(:,54,13) = (/ &
+ & 0.11221E+02_JPRB,0.11354E+02_JPRB,0.11431E+02_JPRB,0.11243E+02_JPRB,0.10959E+02_JPRB /)  
+KB(:,55,13) = (/ &
+ & 0.11238E+02_JPRB,0.11406E+02_JPRB,0.11591E+02_JPRB,0.11479E+02_JPRB,0.11275E+02_JPRB /)  
+KB(:,56,13) = (/ &
+ & 0.11335E+02_JPRB,0.11405E+02_JPRB,0.11662E+02_JPRB,0.11637E+02_JPRB,0.11480E+02_JPRB /)  
+KB(:,57,13) = (/ &
+ & 0.11355E+02_JPRB,0.11451E+02_JPRB,0.11592E+02_JPRB,0.11670E+02_JPRB,0.11515E+02_JPRB /)  
+KB(:,58,13) = (/ &
+ & 0.11389E+02_JPRB,0.11476E+02_JPRB,0.11586E+02_JPRB,0.11657E+02_JPRB,0.11618E+02_JPRB /)  
+KB(:,59,13) = (/ &
+ & 0.11480E+02_JPRB,0.11599E+02_JPRB,0.11673E+02_JPRB,0.11677E+02_JPRB,0.11653E+02_JPRB /)  
+KB(:,13,14) = (/ &
+ & 0.97590E+01_JPRB,0.94275E+01_JPRB,0.91020E+01_JPRB,0.89149E+01_JPRB,0.87289E+01_JPRB /)  
+KB(:,14,14) = (/ &
+ & 0.10505E+02_JPRB,0.10164E+02_JPRB,0.99232E+01_JPRB,0.97321E+01_JPRB,0.94201E+01_JPRB /)  
+KB(:,15,14) = (/ &
+ & 0.11237E+02_JPRB,0.10955E+02_JPRB,0.10714E+02_JPRB,0.10370E+02_JPRB,0.10019E+02_JPRB /)  
+KB(:,16,14) = (/ &
+ & 0.12124E+02_JPRB,0.11740E+02_JPRB,0.11352E+02_JPRB,0.10992E+02_JPRB,0.10632E+02_JPRB /)  
+KB(:,17,14) = (/ &
+ & 0.12886E+02_JPRB,0.12429E+02_JPRB,0.12001E+02_JPRB,0.11642E+02_JPRB,0.11273E+02_JPRB /)  
+KB(:,18,14) = (/ &
+ & 0.13556E+02_JPRB,0.13047E+02_JPRB,0.12733E+02_JPRB,0.12297E+02_JPRB,0.11616E+02_JPRB /)  
+KB(:,19,14) = (/ &
+ & 0.14349E+02_JPRB,0.13901E+02_JPRB,0.13193E+02_JPRB,0.12562E+02_JPRB,0.12015E+02_JPRB /)  
+KB(:,20,14) = (/ &
+ & 0.15084E+02_JPRB,0.14361E+02_JPRB,0.13567E+02_JPRB,0.12903E+02_JPRB,0.12393E+02_JPRB /)  
+KB(:,21,14) = (/ &
+ & 0.15509E+02_JPRB,0.14641E+02_JPRB,0.13824E+02_JPRB,0.13136E+02_JPRB,0.12832E+02_JPRB /)  
+KB(:,22,14) = (/ &
+ & 0.15737E+02_JPRB,0.14756E+02_JPRB,0.13944E+02_JPRB,0.13493E+02_JPRB,0.13014E+02_JPRB /)  
+KB(:,23,14) = (/ &
+ & 0.15733E+02_JPRB,0.14806E+02_JPRB,0.14130E+02_JPRB,0.13708E+02_JPRB,0.13129E+02_JPRB /)  
+KB(:,24,14) = (/ &
+ & 0.15735E+02_JPRB,0.14832E+02_JPRB,0.14382E+02_JPRB,0.13702E+02_JPRB,0.13090E+02_JPRB /)  
+KB(:,25,14) = (/ &
+ & 0.15596E+02_JPRB,0.15046E+02_JPRB,0.14369E+02_JPRB,0.13676E+02_JPRB,0.13207E+02_JPRB /)  
+KB(:,26,14) = (/ &
+ & 0.15679E+02_JPRB,0.15085E+02_JPRB,0.14382E+02_JPRB,0.13864E+02_JPRB,0.13243E+02_JPRB /)  
+KB(:,27,14) = (/ &
+ & 0.15773E+02_JPRB,0.15051E+02_JPRB,0.14458E+02_JPRB,0.13792E+02_JPRB,0.13309E+02_JPRB /)  
+KB(:,28,14) = (/ &
+ & 0.15791E+02_JPRB,0.15118E+02_JPRB,0.14520E+02_JPRB,0.13908E+02_JPRB,0.13506E+02_JPRB /)  
+KB(:,29,14) = (/ &
+ & 0.15907E+02_JPRB,0.15282E+02_JPRB,0.14696E+02_JPRB,0.14168E+02_JPRB,0.13591E+02_JPRB /)  
+KB(:,30,14) = (/ &
+ & 0.15997E+02_JPRB,0.15426E+02_JPRB,0.14908E+02_JPRB,0.14325E+02_JPRB,0.13655E+02_JPRB /)  
+KB(:,31,14) = (/ &
+ & 0.16254E+02_JPRB,0.15640E+02_JPRB,0.15053E+02_JPRB,0.14410E+02_JPRB,0.13542E+02_JPRB /)  
+KB(:,32,14) = (/ &
+ & 0.16522E+02_JPRB,0.15885E+02_JPRB,0.15194E+02_JPRB,0.14363E+02_JPRB,0.13365E+02_JPRB /)  
+KB(:,33,14) = (/ &
+ & 0.16844E+02_JPRB,0.16068E+02_JPRB,0.15151E+02_JPRB,0.14109E+02_JPRB,0.13003E+02_JPRB /)  
+KB(:,34,14) = (/ &
+ & 0.16915E+02_JPRB,0.16003E+02_JPRB,0.14953E+02_JPRB,0.13814E+02_JPRB,0.12608E+02_JPRB /)  
+KB(:,35,14) = (/ &
+ & 0.16922E+02_JPRB,0.15890E+02_JPRB,0.14756E+02_JPRB,0.13405E+02_JPRB,0.12281E+02_JPRB /)  
+KB(:,36,14) = (/ &
+ & 0.16966E+02_JPRB,0.15773E+02_JPRB,0.14522E+02_JPRB,0.13240E+02_JPRB,0.11917E+02_JPRB /)  
+KB(:,37,14) = (/ &
+ & 0.17142E+02_JPRB,0.15897E+02_JPRB,0.14564E+02_JPRB,0.13378E+02_JPRB,0.11953E+02_JPRB /)  
+KB(:,38,14) = (/ &
+ & 0.17346E+02_JPRB,0.16051E+02_JPRB,0.14752E+02_JPRB,0.13439E+02_JPRB,0.11971E+02_JPRB /)  
+KB(:,39,14) = (/ &
+ & 0.17475E+02_JPRB,0.16210E+02_JPRB,0.14948E+02_JPRB,0.13510E+02_JPRB,0.12056E+02_JPRB /)  
+KB(:,40,14) = (/ &
+ & 0.17754E+02_JPRB,0.16503E+02_JPRB,0.15328E+02_JPRB,0.13801E+02_JPRB,0.12328E+02_JPRB /)  
+KB(:,41,14) = (/ &
+ & 0.18031E+02_JPRB,0.16909E+02_JPRB,0.15619E+02_JPRB,0.14276E+02_JPRB,0.12740E+02_JPRB /)  
+KB(:,42,14) = (/ &
+ & 0.18386E+02_JPRB,0.17235E+02_JPRB,0.15966E+02_JPRB,0.14652E+02_JPRB,0.13194E+02_JPRB /)  
+KB(:,43,14) = (/ &
+ & 0.18710E+02_JPRB,0.17591E+02_JPRB,0.16361E+02_JPRB,0.15070E+02_JPRB,0.13707E+02_JPRB /)  
+KB(:,44,14) = (/ &
+ & 0.19098E+02_JPRB,0.17898E+02_JPRB,0.16845E+02_JPRB,0.15582E+02_JPRB,0.14265E+02_JPRB /)  
+KB(:,45,14) = (/ &
+ & 0.19252E+02_JPRB,0.18167E+02_JPRB,0.17135E+02_JPRB,0.15969E+02_JPRB,0.14652E+02_JPRB /)  
+KB(:,46,14) = (/ &
+ & 0.19041E+02_JPRB,0.18357E+02_JPRB,0.17265E+02_JPRB,0.16200E+02_JPRB,0.15002E+02_JPRB /)  
+KB(:,47,14) = (/ &
+ & 0.18766E+02_JPRB,0.18032E+02_JPRB,0.17152E+02_JPRB,0.16208E+02_JPRB,0.15088E+02_JPRB /)  
+KB(:,48,14) = (/ &
+ & 0.18411E+02_JPRB,0.17740E+02_JPRB,0.16984E+02_JPRB,0.16085E+02_JPRB,0.15089E+02_JPRB /)  
+KB(:,49,14) = (/ &
+ & 0.18291E+02_JPRB,0.17667E+02_JPRB,0.16941E+02_JPRB,0.16014E+02_JPRB,0.14979E+02_JPRB /)  
+KB(:,50,14) = (/ &
+ & 0.18624E+02_JPRB,0.17786E+02_JPRB,0.17174E+02_JPRB,0.16136E+02_JPRB,0.15128E+02_JPRB /)  
+KB(:,51,14) = (/ &
+ & 0.19430E+02_JPRB,0.18470E+02_JPRB,0.17722E+02_JPRB,0.16775E+02_JPRB,0.15711E+02_JPRB /)  
+KB(:,52,14) = (/ &
+ & 0.20123E+02_JPRB,0.18895E+02_JPRB,0.18060E+02_JPRB,0.17255E+02_JPRB,0.16173E+02_JPRB /)  
+KB(:,53,14) = (/ &
+ & 0.20744E+02_JPRB,0.19415E+02_JPRB,0.18626E+02_JPRB,0.17397E+02_JPRB,0.16465E+02_JPRB /)  
+KB(:,54,14) = (/ &
+ & 0.21714E+02_JPRB,0.20093E+02_JPRB,0.19173E+02_JPRB,0.18078E+02_JPRB,0.16884E+02_JPRB /)  
+KB(:,55,14) = (/ &
+ & 0.22731E+02_JPRB,0.21068E+02_JPRB,0.19674E+02_JPRB,0.18569E+02_JPRB,0.17315E+02_JPRB /)  
+KB(:,56,14) = (/ &
+ & 0.23924E+02_JPRB,0.22190E+02_JPRB,0.20317E+02_JPRB,0.18891E+02_JPRB,0.17603E+02_JPRB /)  
+KB(:,57,14) = (/ &
+ & 0.24940E+02_JPRB,0.23270E+02_JPRB,0.21498E+02_JPRB,0.19833E+02_JPRB,0.18265E+02_JPRB /)  
+KB(:,58,14) = (/ &
+ & 0.25828E+02_JPRB,0.24271E+02_JPRB,0.22518E+02_JPRB,0.20827E+02_JPRB,0.19003E+02_JPRB /)  
+KB(:,59,14) = (/ &
+ & 0.26483E+02_JPRB,0.24983E+02_JPRB,0.23453E+02_JPRB,0.21676E+02_JPRB,0.19755E+02_JPRB /)  
+KB(:,13,15) = (/ &
+ & 0.15960E+02_JPRB,0.15303E+02_JPRB,0.14694E+02_JPRB,0.13842E+02_JPRB,0.13008E+02_JPRB /)  
+KB(:,14,15) = (/ &
+ & 0.17675E+02_JPRB,0.16896E+02_JPRB,0.15925E+02_JPRB,0.14915E+02_JPRB,0.14133E+02_JPRB /)  
+KB(:,15,15) = (/ &
+ & 0.19385E+02_JPRB,0.18234E+02_JPRB,0.16959E+02_JPRB,0.15987E+02_JPRB,0.15180E+02_JPRB /)  
+KB(:,16,15) = (/ &
+ & 0.20552E+02_JPRB,0.19165E+02_JPRB,0.17982E+02_JPRB,0.16927E+02_JPRB,0.16368E+02_JPRB /)  
+KB(:,17,15) = (/ &
+ & 0.21349E+02_JPRB,0.19954E+02_JPRB,0.19023E+02_JPRB,0.18091E+02_JPRB,0.17398E+02_JPRB /)  
+KB(:,18,15) = (/ &
+ & 0.22160E+02_JPRB,0.21597E+02_JPRB,0.20213E+02_JPRB,0.19055E+02_JPRB,0.18102E+02_JPRB /)  
+KB(:,19,15) = (/ &
+ & 0.23816E+02_JPRB,0.22303E+02_JPRB,0.21008E+02_JPRB,0.19912E+02_JPRB,0.18903E+02_JPRB /)  
+KB(:,20,15) = (/ &
+ & 0.24810E+02_JPRB,0.23381E+02_JPRB,0.21933E+02_JPRB,0.20846E+02_JPRB,0.19540E+02_JPRB /)  
+KB(:,21,15) = (/ &
+ & 0.25893E+02_JPRB,0.24250E+02_JPRB,0.22750E+02_JPRB,0.21616E+02_JPRB,0.19627E+02_JPRB /)  
+KB(:,22,15) = (/ &
+ & 0.26542E+02_JPRB,0.24773E+02_JPRB,0.23600E+02_JPRB,0.21309E+02_JPRB,0.19278E+02_JPRB /)  
+KB(:,23,15) = (/ &
+ & 0.27270E+02_JPRB,0.25621E+02_JPRB,0.23587E+02_JPRB,0.21255E+02_JPRB,0.19478E+02_JPRB /)  
+KB(:,24,15) = (/ &
+ & 0.27744E+02_JPRB,0.26088E+02_JPRB,0.23254E+02_JPRB,0.21242E+02_JPRB,0.19100E+02_JPRB /)  
+KB(:,25,15) = (/ &
+ & 0.28557E+02_JPRB,0.25575E+02_JPRB,0.23098E+02_JPRB,0.20631E+02_JPRB,0.18206E+02_JPRB /)  
+KB(:,26,15) = (/ &
+ & 0.28140E+02_JPRB,0.25135E+02_JPRB,0.22210E+02_JPRB,0.19496E+02_JPRB,0.17366E+02_JPRB /)  
+KB(:,27,15) = (/ &
+ & 0.27284E+02_JPRB,0.24232E+02_JPRB,0.21249E+02_JPRB,0.18720E+02_JPRB,0.16279E+02_JPRB /)  
+KB(:,28,15) = (/ &
+ & 0.26494E+02_JPRB,0.23076E+02_JPRB,0.20060E+02_JPRB,0.17566E+02_JPRB,0.14956E+02_JPRB /)  
+KB(:,29,15) = (/ &
+ & 0.24773E+02_JPRB,0.21460E+02_JPRB,0.18370E+02_JPRB,0.15793E+02_JPRB,0.13302E+02_JPRB /)  
+KB(:,30,15) = (/ &
+ & 0.23157E+02_JPRB,0.19587E+02_JPRB,0.16563E+02_JPRB,0.13805E+02_JPRB,0.11647E+02_JPRB /)  
+KB(:,31,15) = (/ &
+ & 0.20881E+02_JPRB,0.17370E+02_JPRB,0.14460E+02_JPRB,0.11958E+02_JPRB,0.99808E+01_JPRB /)  
+KB(:,32,15) = (/ &
+ & 0.18247E+02_JPRB,0.15035E+02_JPRB,0.12296E+02_JPRB,0.10101E+02_JPRB,0.83032E+01_JPRB /)  
+KB(:,33,15) = (/ &
+ & 0.15492E+02_JPRB,0.12470E+02_JPRB,0.10235E+02_JPRB,0.81131E+01_JPRB,0.64390E+01_JPRB /)  
+KB(:,34,15) = (/ &
+ & 0.13284E+02_JPRB,0.10782E+02_JPRB,0.82553E+01_JPRB,0.64597E+01_JPRB,0.42402E+01_JPRB /)  
+KB(:,35,15) = (/ &
+ & 0.11520E+02_JPRB,0.89534E+01_JPRB,0.69691E+01_JPRB,0.48753E+01_JPRB,0.27443E+01_JPRB /)  
+KB(:,36,15) = (/ &
+ & 0.10067E+02_JPRB,0.75650E+01_JPRB,0.54572E+01_JPRB,0.31866E+01_JPRB,0.14626E+01_JPRB /)  
+KB(:,37,15) = (/ &
+ & 0.97744E+01_JPRB,0.73767E+01_JPRB,0.52433E+01_JPRB,0.27509E+01_JPRB,0.10380E+01_JPRB /)  
+KB(:,38,15) = (/ &
+ & 0.94733E+01_JPRB,0.70859E+01_JPRB,0.47807E+01_JPRB,0.23954E+01_JPRB,0.74468E+00_JPRB /)  
+KB(:,39,15) = (/ &
+ & 0.94041E+01_JPRB,0.67286E+01_JPRB,0.41966E+01_JPRB,0.20683E+01_JPRB,0.27939E+00_JPRB /)  
+KB(:,40,15) = (/ &
+ & 0.10076E+02_JPRB,0.74414E+01_JPRB,0.47964E+01_JPRB,0.25258E+01_JPRB,0.87689E+00_JPRB /)  
+KB(:,41,15) = (/ &
+ & 0.10878E+02_JPRB,0.81759E+01_JPRB,0.56173E+01_JPRB,0.30416E+01_JPRB,0.13231E+01_JPRB /)  
+KB(:,42,15) = (/ &
+ & 0.11858E+02_JPRB,0.88284E+01_JPRB,0.63009E+01_JPRB,0.37211E+01_JPRB,0.17214E+01_JPRB /)  
+KB(:,43,15) = (/ &
+ & 0.13284E+02_JPRB,0.99847E+01_JPRB,0.73905E+01_JPRB,0.50291E+01_JPRB,0.24940E+01_JPRB /)  
+KB(:,44,15) = (/ &
+ & 0.14796E+02_JPRB,0.11545E+02_JPRB,0.85671E+01_JPRB,0.61687E+01_JPRB,0.37136E+01_JPRB /)  
+KB(:,45,15) = (/ &
+ & 0.16662E+02_JPRB,0.12949E+02_JPRB,0.98033E+01_JPRB,0.73353E+01_JPRB,0.52329E+01_JPRB /)  
+KB(:,46,15) = (/ &
+ & 0.19200E+02_JPRB,0.14684E+02_JPRB,0.11434E+02_JPRB,0.85867E+01_JPRB,0.64428E+01_JPRB /)  
+KB(:,47,15) = (/ &
+ & 0.21780E+02_JPRB,0.16837E+02_JPRB,0.13158E+02_JPRB,0.10165E+02_JPRB,0.76608E+01_JPRB /)  
+KB(:,48,15) = (/ &
+ & 0.24689E+02_JPRB,0.19487E+02_JPRB,0.15145E+02_JPRB,0.11845E+02_JPRB,0.89940E+01_JPRB /)  
+KB(:,49,15) = (/ &
+ & 0.27130E+02_JPRB,0.21775E+02_JPRB,0.17116E+02_JPRB,0.13679E+02_JPRB,0.10905E+02_JPRB /)  
+KB(:,50,15) = (/ &
+ & 0.27854E+02_JPRB,0.22306E+02_JPRB,0.17103E+02_JPRB,0.13783E+02_JPRB,0.10863E+02_JPRB /)  
+KB(:,51,15) = (/ &
+ & 0.27653E+02_JPRB,0.21825E+02_JPRB,0.16692E+02_JPRB,0.12707E+02_JPRB,0.98148E+01_JPRB /)  
+KB(:,52,15) = (/ &
+ & 0.27815E+02_JPRB,0.22411E+02_JPRB,0.17151E+02_JPRB,0.12787E+02_JPRB,0.95823E+01_JPRB /)  
+KB(:,53,15) = (/ &
+ & 0.29119E+02_JPRB,0.23144E+02_JPRB,0.17252E+02_JPRB,0.13594E+02_JPRB,0.99767E+01_JPRB /)  
+KB(:,54,15) = (/ &
+ & 0.29129E+02_JPRB,0.23469E+02_JPRB,0.17342E+02_JPRB,0.12745E+02_JPRB,0.95359E+01_JPRB /)  
+KB(:,55,15) = (/ &
+ & 0.29058E+02_JPRB,0.23190E+02_JPRB,0.17458E+02_JPRB,0.12690E+02_JPRB,0.90099E+01_JPRB /)  
+KB(:,56,15) = (/ &
+ & 0.28657E+02_JPRB,0.23001E+02_JPRB,0.17896E+02_JPRB,0.13433E+02_JPRB,0.94907E+01_JPRB /)  
+KB(:,57,15) = (/ &
+ & 0.29240E+02_JPRB,0.22830E+02_JPRB,0.17734E+02_JPRB,0.13185E+02_JPRB,0.97411E+01_JPRB /)  
+KB(:,58,15) = (/ &
+ & 0.29947E+02_JPRB,0.22946E+02_JPRB,0.17582E+02_JPRB,0.13008E+02_JPRB,0.96489E+01_JPRB /)  
+KB(:,59,15) = (/ &
+ & 0.28976E+02_JPRB,0.21746E+02_JPRB,0.15522E+02_JPRB,0.11254E+02_JPRB,0.80222E+01_JPRB /)  
+KB(:,13,16) = (/ &
+ & 0.25931E+02_JPRB,0.24537E+02_JPRB,0.23224E+02_JPRB,0.21983E+02_JPRB,0.20855E+02_JPRB /)  
+KB(:,14,16) = (/ &
+ & 0.29220E+02_JPRB,0.27507E+02_JPRB,0.25899E+02_JPRB,0.24431E+02_JPRB,0.23088E+02_JPRB /)  
+KB(:,15,16) = (/ &
+ & 0.32471E+02_JPRB,0.30409E+02_JPRB,0.28502E+02_JPRB,0.26794E+02_JPRB,0.25226E+02_JPRB /)  
+KB(:,16,16) = (/ &
+ & 0.35624E+02_JPRB,0.33186E+02_JPRB,0.30989E+02_JPRB,0.28748E+02_JPRB,0.24479E+02_JPRB /)  
+KB(:,17,16) = (/ &
+ & 0.38605E+02_JPRB,0.35797E+02_JPRB,0.30613E+02_JPRB,0.25949E+02_JPRB,0.21171E+02_JPRB /)  
+KB(:,18,16) = (/ &
+ & 0.41350E+02_JPRB,0.31676E+02_JPRB,0.25965E+02_JPRB,0.21818E+02_JPRB,0.18145E+02_JPRB /)  
+KB(:,19,16) = (/ &
+ & 0.34377E+02_JPRB,0.28144E+02_JPRB,0.23342E+02_JPRB,0.17735E+02_JPRB,0.13818E+02_JPRB /)  
+KB(:,20,16) = (/ &
+ & 0.31245E+02_JPRB,0.24408E+02_JPRB,0.19618E+02_JPRB,0.13984E+02_JPRB,0.93171E+01_JPRB /)  
+KB(:,21,16) = (/ &
+ & 0.28216E+02_JPRB,0.21711E+02_JPRB,0.16938E+02_JPRB,0.11225E+02_JPRB,0.60954E+01_JPRB /)  
+KB(:,22,16) = (/ &
+ & 0.25410E+02_JPRB,0.20320E+02_JPRB,0.12451E+02_JPRB,0.80509E+01_JPRB,0.41742E+01_JPRB /)  
+KB(:,23,16) = (/ &
+ & 0.22191E+02_JPRB,0.15284E+02_JPRB,0.84334E+01_JPRB,0.32443E+01_JPRB,0.10236E-04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART16',1,ZHOOK_HANDLE)
+END SUBROUTINE PART16
+
+
+SUBROUTINE PART17
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART17',0,ZHOOK_HANDLE)
+
+
+KB(:,24,16) = (/ &
+ & 0.19170E+02_JPRB,0.98429E+01_JPRB,0.40822E+01_JPRB,0.90070E-05_JPRB,0.84964E-05_JPRB /)  
+KB(:,25,16) = (/ &
+ & 0.11441E+02_JPRB,0.50508E+01_JPRB,0.77316E-05_JPRB,0.71796E-05_JPRB,0.66473E-05_JPRB /)  
+KB(:,26,16) = (/ &
+ & 0.73617E+01_JPRB,0.56953E+00_JPRB,0.62155E-05_JPRB,0.57759E-05_JPRB,0.53447E-05_JPRB /)  
+KB(:,27,16) = (/ &
+ & 0.37038E+01_JPRB,0.54098E-05_JPRB,0.49933E-05_JPRB,0.45180E-05_JPRB,0.42997E-05_JPRB /)  
+KB(:,28,16) = (/ &
+ & 0.47094E-05_JPRB,0.43472E-05_JPRB,0.40149E-05_JPRB,0.36332E-05_JPRB,0.34550E-05_JPRB /)  
+KB(:,29,16) = (/ &
+ & 0.37812E-05_JPRB,0.34885E-05_JPRB,0.32238E-05_JPRB,0.29187E-05_JPRB,0.27779E-05_JPRB /)  
+KB(:,30,16) = (/ &
+ & 0.30339E-05_JPRB,0.28004E-05_JPRB,0.25314E-05_JPRB,0.23451E-05_JPRB,0.22313E-05_JPRB /)  
+KB(:,31,16) = (/ &
+ & 0.24328E-05_JPRB,0.22460E-05_JPRB,0.20326E-05_JPRB,0.18813E-05_JPRB,0.17930E-05_JPRB /)  
+KB(:,32,16) = (/ &
+ & 0.18939E-05_JPRB,0.18012E-05_JPRB,0.16316E-05_JPRB,0.15109E-05_JPRB,0.14395E-05_JPRB /)  
+KB(:,33,16) = (/ &
+ & 0.15657E-05_JPRB,0.14309E-05_JPRB,0.13083E-05_JPRB,0.12124E-05_JPRB,0.15795E-05_JPRB /)  
+KB(:,34,16) = (/ &
+ & 0.12582E-05_JPRB,0.11508E-05_JPRB,0.10527E-05_JPRB,0.97625E-06_JPRB,0.19757E-05_JPRB /)  
+KB(:,35,16) = (/ &
+ & 0.10197E-05_JPRB,0.93275E-06_JPRB,0.85375E-06_JPRB,0.79153E-06_JPRB,0.21668E-05_JPRB /)  
+KB(:,36,16) = (/ &
+ & 0.83336E-06_JPRB,0.76274E-06_JPRB,0.69805E-06_JPRB,0.64735E-06_JPRB,0.17739E-05_JPRB /)  
+KB(:,37,16) = (/ &
+ & 0.68945E-06_JPRB,0.63022E-06_JPRB,0.57702E-06_JPRB,0.53486E-06_JPRB,0.10843E-05_JPRB /)  
+KB(:,38,16) = (/ &
+ & 0.55406E-06_JPRB,0.52180E-06_JPRB,0.47760E-06_JPRB,0.44282E-06_JPRB,0.89395E-06_JPRB /)  
+KB(:,39,16) = (/ &
+ & 0.45861E-06_JPRB,0.43223E-06_JPRB,0.39548E-06_JPRB,0.36639E-06_JPRB,0.47718E-06_JPRB /)  
+KB(:,40,16) = (/ &
+ & 0.38297E-06_JPRB,0.36441E-06_JPRB,0.32989E-06_JPRB,0.30551E-06_JPRB,0.28352E-06_JPRB /)  
+KB(:,41,16) = (/ &
+ & 0.31987E-06_JPRB,0.30430E-06_JPRB,0.27838E-06_JPRB,0.25513E-06_JPRB,0.23647E-06_JPRB /)  
+KB(:,42,16) = (/ &
+ & 0.26734E-06_JPRB,0.24677E-06_JPRB,0.23264E-06_JPRB,0.21290E-06_JPRB,0.19743E-06_JPRB /)  
+KB(:,43,16) = (/ &
+ & 0.22458E-06_JPRB,0.20712E-06_JPRB,0.19517E-06_JPRB,0.17853E-06_JPRB,0.16551E-06_JPRB /)  
+KB(:,44,16) = (/ &
+ & 0.18898E-06_JPRB,0.17429E-06_JPRB,0.16587E-06_JPRB,0.15173E-06_JPRB,0.13895E-06_JPRB /)  
+KB(:,45,16) = (/ &
+ & 0.15450E-06_JPRB,0.14658E-06_JPRB,0.13533E-06_JPRB,0.12759E-06_JPRB,0.11679E-06_JPRB /)  
+KB(:,46,16) = (/ &
+ & 0.13028E-06_JPRB,0.12362E-06_JPRB,0.11400E-06_JPRB,0.10744E-06_JPRB,0.98279E-07_JPRB /)  
+KB(:,47,16) = (/ &
+ & 0.11024E-06_JPRB,0.10159E-06_JPRB,0.96435E-07_JPRB,0.91711E-07_JPRB,0.83972E-07_JPRB /)  
+KB(:,48,16) = (/ &
+ & 0.93198E-07_JPRB,0.85906E-07_JPRB,0.81590E-07_JPRB,0.75279E-07_JPRB,0.70931E-07_JPRB /)  
+KB(:,49,16) = (/ &
+ & 0.76236E-07_JPRB,0.72626E-07_JPRB,0.68995E-07_JPRB,0.63641E-07_JPRB,0.60530E-07_JPRB /)  
+KB(:,50,16) = (/ &
+ & 0.64328E-07_JPRB,0.61369E-07_JPRB,0.56594E-07_JPRB,0.53672E-07_JPRB,0.49555E-07_JPRB /)  
+KB(:,51,16) = (/ &
+ & 0.54169E-07_JPRB,0.51722E-07_JPRB,0.47685E-07_JPRB,0.45298E-07_JPRB,0.41770E-07_JPRB /)  
+KB(:,52,16) = (/ &
+ & 0.46180E-07_JPRB,0.42221E-07_JPRB,0.40251E-07_JPRB,0.37120E-07_JPRB,0.35204E-07_JPRB /)  
+KB(:,53,16) = (/ &
+ & 0.33194E-01_JPRB,0.35538E-07_JPRB,0.33930E-07_JPRB,0.31297E-07_JPRB,0.29712E-07_JPRB /)  
+KB(:,54,16) = (/ &
+ & 0.63212E-01_JPRB,0.54132E-01_JPRB,0.36437E-01_JPRB,0.71353E-02_JPRB,0.24978E-07_JPRB /)  
+KB(:,55,16) = (/ &
+ & 0.62321E-01_JPRB,0.69163E-01_JPRB,0.76899E-01_JPRB,0.64692E-01_JPRB,0.42869E-01_JPRB /)  
+KB(:,56,16) = (/ &
+ & 0.73050E-01_JPRB,0.83118E-01_JPRB,0.74962E-01_JPRB,0.82540E-01_JPRB,0.91058E-01_JPRB /)  
+KB(:,57,16) = (/ &
+ & 0.71162E-01_JPRB,0.79898E-01_JPRB,0.89953E-01_JPRB,0.10014E+00_JPRB,0.10382E+00_JPRB /)  
+KB(:,58,16) = (/ &
+ & 0.67770E-01_JPRB,0.78960E-01_JPRB,0.86882E-01_JPRB,0.97002E-01_JPRB,0.10740E+00_JPRB /)  
+KB(:,59,16) = (/ &
+ & 0.66421E-01_JPRB,0.77608E-01_JPRB,0.10426E+00_JPRB,0.10063E+00_JPRB,0.10735E+00_JPRB /)  
+  
+!     -----------------------------------------------------------------
+
+FORREF(:, 1) = (/ 0.860560E-06_JPRB, 0.130439E-05_JPRB, 0.382378E-05_JPRB /)
+FORREF(:, 2) = (/ 0.817926E-06_JPRB, 0.158599E-05_JPRB, 0.658771E-04_JPRB /)
+FORREF(:, 3) = (/ 0.129369E-05_JPRB, 0.824406E-05_JPRB, 0.952778E-04_JPRB /)
+FORREF(:, 4) = (/ 0.438918E-05_JPRB, 0.375356E-04_JPRB, 0.119111E-03_JPRB /)
+FORREF(:, 5) = (/ 0.306057E-04_JPRB, 0.622798E-04_JPRB, 0.100740E-03_JPRB /)
+FORREF(:, 6) = (/ 0.891934E-04_JPRB, 0.856393E-04_JPRB, 0.635583E-04_JPRB /)
+FORREF(:, 7) = (/ 0.171959E-03_JPRB, 0.173431E-03_JPRB, 0.611721E-04_JPRB /)
+FORREF(:, 8) = (/ 0.357795E-03_JPRB, 0.247261E-03_JPRB, 0.488864E-04_JPRB /)
+FORREF(:, 9) = (/ 0.326623E-03_JPRB, 0.289471E-03_JPRB, 0.548834E-04_JPRB /)
+FORREF(:,10) = (/ 0.345103E-03_JPRB, 0.320898E-03_JPRB, 0.633214E-04_JPRB /)
+FORREF(:,11) = (/ 0.392567E-03_JPRB, 0.325153E-03_JPRB, 0.744479E-04_JPRB /)
+FORREF(:,12) = (/ 0.349277E-03_JPRB, 0.345610E-03_JPRB, 0.916479E-04_JPRB /)
+FORREF(:,13) = (/ 0.425161E-03_JPRB, 0.348452E-03_JPRB, 0.125788E-03_JPRB /)
+FORREF(:,14) = (/ 0.407594E-03_JPRB, 0.435836E-03_JPRB, 0.287583E-03_JPRB /)
+FORREF(:,15) = (/ 0.521605E-03_JPRB, 0.486596E-03_JPRB, 0.483511E-03_JPRB /)
+FORREF(:,16) = (/ 0.773790E-03_JPRB, 0.737247E-03_JPRB, 0.665939E-03_JPRB /)
+
+!     -----------------------------------------------------------------
+!     The array SELFREF contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+     
+SELFREF(:, 1) = (/ &
+ & 0.750370E-03_JPRB, 0.644938E-03_JPRB, 0.554321E-03_JPRB, 0.476436E-03_JPRB, 0.409494E-03_JPRB, &
+ & 0.351957E-03_JPRB, 0.302505E-03_JPRB, 0.260002E-03_JPRB, 0.223470E-03_JPRB, 0.192071E-03_JPRB /)  
+SELFREF(:, 2) = (/ &
+ & 0.136135E-02_JPRB, 0.113187E-02_JPRB, 0.941076E-03_JPRB, 0.782440E-03_JPRB, 0.650546E-03_JPRB, &
+ & 0.540885E-03_JPRB, 0.449709E-03_JPRB, 0.373902E-03_JPRB, 0.310874E-03_JPRB, 0.258471E-03_JPRB /)  
+SELFREF(:, 3) = (/ &
+ & 0.333950E-02_JPRB, 0.256391E-02_JPRB, 0.196845E-02_JPRB, 0.151129E-02_JPRB, 0.116030E-02_JPRB, &
+ & 0.890824E-03_JPRB, 0.683934E-03_JPRB, 0.525093E-03_JPRB, 0.403143E-03_JPRB, 0.309515E-03_JPRB /)  
+SELFREF(:, 4) = (/ &
+ & 0.793392E-02_JPRB, 0.589865E-02_JPRB, 0.438548E-02_JPRB, 0.326048E-02_JPRB, 0.242408E-02_JPRB, &
+ & 0.180223E-02_JPRB, 0.133991E-02_JPRB, 0.996186E-03_JPRB, 0.740636E-03_JPRB, 0.550642E-03_JPRB /)  
+SELFREF(:, 5) = (/ &
+ & 0.828169E-02_JPRB, 0.703139E-02_JPRB, 0.596984E-02_JPRB, 0.506856E-02_JPRB, 0.430335E-02_JPRB, &
+ & 0.365366E-02_JPRB, 0.310206E-02_JPRB, 0.263374E-02_JPRB, 0.223612E-02_JPRB, 0.189852E-02_JPRB /)  
+SELFREF(:, 6) = (/ &
+ & 0.834190E-02_JPRB, 0.780225E-02_JPRB, 0.729750E-02_JPRB, 0.682541E-02_JPRB, 0.638386E-02_JPRB, &
+ & 0.597087E-02_JPRB, 0.558460E-02_JPRB, 0.522332E-02_JPRB, 0.488541E-02_JPRB, 0.456936E-02_JPRB /)  
+SELFREF(:, 7) = (/ &
+ & 0.119082E-01_JPRB, 0.112566E-01_JPRB, 0.106406E-01_JPRB, 0.100583E-01_JPRB, 0.950785E-02_JPRB, &
+ & 0.898755E-02_JPRB, 0.849571E-02_JPRB, 0.803080E-02_JPRB, 0.759132E-02_JPRB, 0.717590E-02_JPRB /)  
+SELFREF(:, 8) = (/ &
+ & 0.144004E-01_JPRB, 0.141762E-01_JPRB, 0.139554E-01_JPRB, 0.137381E-01_JPRB, 0.135241E-01_JPRB, &
+ & 0.133135E-01_JPRB, 0.131062E-01_JPRB, 0.129021E-01_JPRB, 0.127011E-01_JPRB, 0.125033E-01_JPRB /)  
+SELFREF(:, 9) = (/ &
+ & 0.186171E-01_JPRB, 0.175281E-01_JPRB, 0.165027E-01_JPRB, 0.155373E-01_JPRB, 0.146284E-01_JPRB, &
+ & 0.137726E-01_JPRB, 0.129670E-01_JPRB, 0.122084E-01_JPRB, 0.114942E-01_JPRB, 0.108218E-01_JPRB /)  
+SELFREF(:,10) = (/ &
+ & 0.209396E-01_JPRB, 0.195077E-01_JPRB, 0.181737E-01_JPRB, 0.169309E-01_JPRB, 0.157731E-01_JPRB, &
+ & 0.146945E-01_JPRB, 0.136897E-01_JPRB, 0.127535E-01_JPRB, 0.118814E-01_JPRB, 0.110689E-01_JPRB /)  
+SELFREF(:,11) = (/ &
+ & 0.203661E-01_JPRB, 0.193311E-01_JPRB, 0.183487E-01_JPRB, 0.174163E-01_JPRB, 0.165312E-01_JPRB, &
+ & 0.156911E-01_JPRB, 0.148937E-01_JPRB, 0.141368E-01_JPRB, 0.134184E-01_JPRB, 0.127365E-01_JPRB /)  
+SELFREF(:,12) = (/ &
+ & 0.226784E-01_JPRB, 0.210210E-01_JPRB, 0.194848E-01_JPRB, 0.180608E-01_JPRB, 0.167409E-01_JPRB, &
+ & 0.155174E-01_JPRB, 0.143834E-01_JPRB, 0.133322E-01_JPRB, 0.123579E-01_JPRB, 0.114547E-01_JPRB /)  
+SELFREF(:,13) = (/ &
+ & 0.221773E-01_JPRB, 0.210306E-01_JPRB, 0.199433E-01_JPRB, 0.189122E-01_JPRB, 0.179344E-01_JPRB, &
+ & 0.170071E-01_JPRB, 0.161278E-01_JPRB, 0.152939E-01_JPRB, 0.145032E-01_JPRB, 0.137533E-01_JPRB /)  
+SELFREF(:,14) = (/ &
+ & 0.275920E-01_JPRB, 0.252595E-01_JPRB, 0.231241E-01_JPRB, 0.211693E-01_JPRB, 0.193797E-01_JPRB, &
+ & 0.177415E-01_JPRB, 0.162417E-01_JPRB, 0.148687E-01_JPRB, 0.136117E-01_JPRB, 0.124610E-01_JPRB /)  
+SELFREF(:,15) = (/ &
+ & 0.288687E-01_JPRB, 0.269968E-01_JPRB, 0.252462E-01_JPRB, 0.236092E-01_JPRB, 0.220783E-01_JPRB, &
+ & 0.206466E-01_JPRB, 0.193078E-01_JPRB, 0.180559E-01_JPRB, 0.168851E-01_JPRB, 0.157902E-01_JPRB /)  
+SELFREF(:,16) = (/ &
+ & 0.371842E-01_JPRB, 0.347595E-01_JPRB, 0.324929E-01_JPRB, 0.303741E-01_JPRB, 0.283934E-01_JPRB, &
+ & 0.265419E-01_JPRB, 0.248112E-01_JPRB, 0.231933E-01_JPRB, 0.216809E-01_JPRB, 0.202671E-01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB18:PART17',1,ZHOOK_HANDLE)
+END SUBROUTINE PART17
+
+
+END SUBROUTINE SRTM_KGB18
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb18.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb18.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb18.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_KGB18
+END SUBROUTINE SRTM_KGB18
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb19.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb19.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb19.F90	(revision 1989)
@@ -0,0 +1,5030 @@
+!OCL SCALAR
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif 
+!pgi$r opt=0
+SUBROUTINE SRTM_KGB19
+
+!     Originally by J.Delamere, Atmospheric & Environmental Research.
+!     Revision: 2.4
+!     BAND 16:  4650-5150 cm-1 (low - H2O,CO2; high - CO2)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     R. Elkhatib 12-10-2005 Split for faster and more robust compilation.
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOESRTA19, ONLY : KA, KB, SELFREF, FORREF, SFLUXREF, RAYL, STRRAT &
+ & , LAYREFFR  
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+
+! KURUCZ
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19',0,ZHOOK_HANDLE)
+
+CALL PART1
+CALL PART2
+CALL PART3
+CALL PART4
+CALL PART5
+CALL PART6
+CALL PART7
+CALL PART8
+CALL PART9
+CALL PART10
+CALL PART11
+CALL PART12
+CALL PART13
+CALL PART14
+CALL PART15
+CALL PART16
+CALL PART17
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19',1,ZHOOK_HANDLE)
+
+!     -----------------------------------------------------------------
+
+CONTAINS
+
+
+SUBROUTINE PART1
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART1',0,ZHOOK_HANDLE)
+
+
+SFLUXREF(:,1) = (/ &
+ & 3.25791_JPRB    , 3.29697_JPRB    , 3.16031_JPRB    , 2.96115_JPRB    , &
+ & 2.69238_JPRB    , 2.33819_JPRB    , 1.92760_JPRB    , 1.44918_JPRB    , &
+ & 0.979764_JPRB   , 0.107336_JPRB   , 8.94523E-02_JPRB, 6.98325E-02_JPRB, &
+ & 5.12051E-02_JPRB, 3.23645E-02_JPRB, 1.23401E-02_JPRB, 1.71339E-03_JPRB /)  
+SFLUXREF(:,2) = (/ &
+ & 3.22769_JPRB    , 3.28817_JPRB    , 3.16687_JPRB    , 2.97662_JPRB    , &
+ & 2.69495_JPRB    , 2.34392_JPRB    , 1.92900_JPRB    , 1.45391_JPRB    , &
+ & 0.982522_JPRB   , 0.107638_JPRB   , 8.92458E-02_JPRB, 6.99885E-02_JPRB, &
+ & 5.09679E-02_JPRB, 3.23789E-02_JPRB, 1.22673E-02_JPRB, 1.56040E-03_JPRB /)  
+SFLUXREF(:,3) = (/ &
+ & 3.22294_JPRB    , 3.27780_JPRB    , 3.17424_JPRB    , 2.97143_JPRB    , &
+ & 2.69785_JPRB    , 2.34993_JPRB    , 1.93155_JPRB    , 1.45196_JPRB    , &
+ & 0.985329_JPRB   , 0.108027_JPRB   , 8.93552E-02_JPRB, 6.99937E-02_JPRB, &
+ & 5.11678E-02_JPRB, 3.24846E-02_JPRB, 1.20636E-02_JPRB, 1.56040E-03_JPRB /)  
+SFLUXREF(:,4) = (/ &
+ & 3.22445_JPRB    , 3.26113_JPRB    , 3.18438_JPRB    , 2.96921_JPRB    , &
+ & 2.69579_JPRB    , 2.35586_JPRB    , 1.93454_JPRB    , 1.44949_JPRB    , &
+ & 0.987347_JPRB   , 0.108611_JPRB   , 8.91643E-02_JPRB, 7.02236E-02_JPRB, &
+ & 5.12980E-02_JPRB, 3.25282E-02_JPRB, 1.21189E-02_JPRB, 1.56040E-03_JPRB /)  
+SFLUXREF(:,5) = (/ &
+ & 3.22497_JPRB    , 3.25109_JPRB    , 3.18741_JPRB    , 2.96970_JPRB    , &
+ & 2.69460_JPRB    , 2.36020_JPRB    , 1.93301_JPRB    , 1.45224_JPRB    , &
+ & 0.988564_JPRB   , 0.108255_JPRB   , 8.93830E-02_JPRB, 7.03655E-02_JPRB, &
+ & 5.13017E-02_JPRB, 3.29414E-02_JPRB, 1.21189E-02_JPRB, 1.56040E-03_JPRB /)  
+SFLUXREF(:,6) = (/ &
+ & 3.22632_JPRB    , 3.24174_JPRB    , 3.18524_JPRB    , 2.97402_JPRB    , &
+ & 2.69807_JPRB    , 2.35742_JPRB    , 1.93377_JPRB    , 1.45621_JPRB    , &
+ & 0.988132_JPRB   , 0.108344_JPRB   , 8.93188E-02_JPRB, 7.04907E-02_JPRB, &
+ & 5.17938E-02_JPRB, 3.31465E-02_JPRB, 1.21155E-02_JPRB, 1.56040E-03_JPRB /)  
+SFLUXREF(:,7) = (/ &
+ & 3.22793_JPRB    , 3.23589_JPRB    , 3.17720_JPRB    , 2.97869_JPRB    , &
+ & 2.70293_JPRB    , 2.35436_JPRB    , 1.93557_JPRB    , 1.45868_JPRB    , &
+ & 0.988654_JPRB   , 0.108198_JPRB   , 8.93375E-02_JPRB, 7.09790E-02_JPRB, &
+ & 5.24733E-02_JPRB, 3.31298E-02_JPRB, 1.21126E-02_JPRB, 1.56040E-03_JPRB /)  
+SFLUXREF(:,8) = (/ &
+ & 3.22966_JPRB    , 3.24087_JPRB    , 3.15676_JPRB    , 2.98171_JPRB    , &
+ & 2.70894_JPRB    , 2.34975_JPRB    , 1.93855_JPRB    , 1.46354_JPRB    , &
+ & 0.988544_JPRB   , 0.108574_JPRB   , 9.02522E-02_JPRB, 7.12908E-02_JPRB, &
+ & 5.24844E-02_JPRB, 3.31084E-02_JPRB, 1.21060E-02_JPRB, 1.56040E-03_JPRB /)  
+SFLUXREF(:,9) = (/ &
+ & 3.27240_JPRB    , 3.24666_JPRB    , 3.13886_JPRB    , 2.95238_JPRB    , &
+ & 2.70190_JPRB    , 2.34460_JPRB    , 1.93948_JPRB    , 1.47111_JPRB    , &
+ & 0.990821_JPRB   , 0.108730_JPRB   , 9.01625E-02_JPRB, 7.13261E-02_JPRB, &
+ & 5.24813E-02_JPRB, 3.31083E-02_JPRB, 1.21126E-02_JPRB, 1.56040E-03_JPRB /)  
+
+!     Rayleigh extinction coefficient at v = 4900 cm-1.
+RAYL = 2.29E-09_JPRB
+
+STRRAT = 5.49281_JPRB
+
+LAYREFFR = 3
+
+!     ------------------------------------------------------------------
+
+!     The array KA contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels> ~100mb, temperatures, and binary
+!     species parameters (see taumol.f for definition).  The first 
+!     index in the array, JS, runs from 1 to 9, and corresponds to 
+!     different values of the binary species parameter.  For instance, 
+!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, 
+!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index
+!     in the array, JT, which runs from 1 to 5, corresponds to different
+!     temperatures.  More specifically, JT = 3 means that the data are for
+!     the reference temperature TREF for this  pressure level, JT = 2 refers
+!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the JPth reference pressure level (see taumol.f for these levels
+!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates
+!     which g-interval the absorption coefficients are for.
+!     -----------------------------------------------------------------
+
+KA(:, 1, 1, 1) = (/ &
+ & 0.14981E-05_JPRB,0.26659E-05_JPRB,0.31874E-05_JPRB,0.35509E-05_JPRB,0.37593E-05_JPRB, &
+ & 0.38514E-05_JPRB,0.37369E-05_JPRB,0.35011E-05_JPRB,0.23894E-05_JPRB /)  
+KA(:, 2, 1, 1) = (/ &
+ & 0.15103E-05_JPRB,0.27348E-05_JPRB,0.32692E-05_JPRB,0.36558E-05_JPRB,0.38926E-05_JPRB, &
+ & 0.39737E-05_JPRB,0.38798E-05_JPRB,0.36565E-05_JPRB,0.24072E-05_JPRB /)  
+KA(:, 3, 1, 1) = (/ &
+ & 0.15233E-05_JPRB,0.28090E-05_JPRB,0.33744E-05_JPRB,0.37729E-05_JPRB,0.40258E-05_JPRB, &
+ & 0.41107E-05_JPRB,0.40389E-05_JPRB,0.38226E-05_JPRB,0.24704E-05_JPRB /)  
+KA(:, 4, 1, 1) = (/ &
+ & 0.15219E-05_JPRB,0.28978E-05_JPRB,0.35015E-05_JPRB,0.38984E-05_JPRB,0.41569E-05_JPRB, &
+ & 0.42771E-05_JPRB,0.42110E-05_JPRB,0.39963E-05_JPRB,0.25504E-05_JPRB /)  
+KA(:, 5, 1, 1) = (/ &
+ & 0.15254E-05_JPRB,0.29633E-05_JPRB,0.36224E-05_JPRB,0.40435E-05_JPRB,0.42975E-05_JPRB, &
+ & 0.44410E-05_JPRB,0.43849E-05_JPRB,0.41847E-05_JPRB,0.26420E-05_JPRB /)  
+KA(:, 1, 2, 1) = (/ &
+ & 0.13024E-05_JPRB,0.23699E-05_JPRB,0.28370E-05_JPRB,0.31443E-05_JPRB,0.33326E-05_JPRB, &
+ & 0.33798E-05_JPRB,0.32797E-05_JPRB,0.30078E-05_JPRB,0.18819E-05_JPRB /)  
+KA(:, 2, 2, 1) = (/ &
+ & 0.13249E-05_JPRB,0.24299E-05_JPRB,0.29103E-05_JPRB,0.32336E-05_JPRB,0.34308E-05_JPRB, &
+ & 0.35019E-05_JPRB,0.34046E-05_JPRB,0.31323E-05_JPRB,0.19511E-05_JPRB /)  
+KA(:, 3, 2, 1) = (/ &
+ & 0.13241E-05_JPRB,0.25059E-05_JPRB,0.30019E-05_JPRB,0.33317E-05_JPRB,0.35516E-05_JPRB, &
+ & 0.36333E-05_JPRB,0.35372E-05_JPRB,0.32615E-05_JPRB,0.20254E-05_JPRB /)  
+KA(:, 4, 2, 1) = (/ &
+ & 0.13325E-05_JPRB,0.25840E-05_JPRB,0.31009E-05_JPRB,0.34399E-05_JPRB,0.36699E-05_JPRB, &
+ & 0.37727E-05_JPRB,0.36811E-05_JPRB,0.34016E-05_JPRB,0.20611E-05_JPRB /)  
+KA(:, 5, 2, 1) = (/ &
+ & 0.13321E-05_JPRB,0.26601E-05_JPRB,0.32189E-05_JPRB,0.35640E-05_JPRB,0.38012E-05_JPRB, &
+ & 0.39113E-05_JPRB,0.38271E-05_JPRB,0.35499E-05_JPRB,0.21368E-05_JPRB /)  
+KA(:, 1, 3, 1) = (/ &
+ & 0.11079E-05_JPRB,0.20757E-05_JPRB,0.24846E-05_JPRB,0.27511E-05_JPRB,0.28883E-05_JPRB, &
+ & 0.29142E-05_JPRB,0.28203E-05_JPRB,0.25706E-05_JPRB,0.15124E-05_JPRB /)  
+KA(:, 2, 3, 1) = (/ &
+ & 0.11298E-05_JPRB,0.21278E-05_JPRB,0.25551E-05_JPRB,0.28306E-05_JPRB,0.29814E-05_JPRB, &
+ & 0.30126E-05_JPRB,0.29328E-05_JPRB,0.26721E-05_JPRB,0.15784E-05_JPRB /)  
+KA(:, 3, 3, 1) = (/ &
+ & 0.11405E-05_JPRB,0.21812E-05_JPRB,0.26237E-05_JPRB,0.29130E-05_JPRB,0.30816E-05_JPRB, &
+ & 0.31265E-05_JPRB,0.30480E-05_JPRB,0.27784E-05_JPRB,0.16468E-05_JPRB /)  
+KA(:, 4, 3, 1) = (/ &
+ & 0.11347E-05_JPRB,0.22472E-05_JPRB,0.27094E-05_JPRB,0.30057E-05_JPRB,0.31821E-05_JPRB, &
+ & 0.32536E-05_JPRB,0.31714E-05_JPRB,0.28837E-05_JPRB,0.17189E-05_JPRB /)  
+KA(:, 5, 3, 1) = (/ &
+ & 0.11383E-05_JPRB,0.23152E-05_JPRB,0.28016E-05_JPRB,0.31126E-05_JPRB,0.33051E-05_JPRB, &
+ & 0.33759E-05_JPRB,0.32961E-05_JPRB,0.29993E-05_JPRB,0.17919E-05_JPRB /)  
+KA(:, 1, 4, 1) = (/ &
+ & 0.93104E-06_JPRB,0.18005E-05_JPRB,0.21693E-05_JPRB,0.23819E-05_JPRB,0.24829E-05_JPRB, &
+ & 0.24860E-05_JPRB,0.23860E-05_JPRB,0.21586E-05_JPRB,0.12198E-05_JPRB /)  
+KA(:, 2, 4, 1) = (/ &
+ & 0.94591E-06_JPRB,0.18309E-05_JPRB,0.22153E-05_JPRB,0.24487E-05_JPRB,0.25574E-05_JPRB, &
+ & 0.25721E-05_JPRB,0.24802E-05_JPRB,0.22458E-05_JPRB,0.13105E-05_JPRB /)  
+KA(:, 3, 4, 1) = (/ &
+ & 0.95638E-06_JPRB,0.18753E-05_JPRB,0.22788E-05_JPRB,0.25149E-05_JPRB,0.26499E-05_JPRB, &
+ & 0.26671E-05_JPRB,0.25797E-05_JPRB,0.23335E-05_JPRB,0.14017E-05_JPRB /)  
+KA(:, 4, 4, 1) = (/ &
+ & 0.95763E-06_JPRB,0.19379E-05_JPRB,0.23271E-05_JPRB,0.25858E-05_JPRB,0.27437E-05_JPRB, &
+ & 0.27792E-05_JPRB,0.26790E-05_JPRB,0.24268E-05_JPRB,0.14872E-05_JPRB /)  
+KA(:, 5, 4, 1) = (/ &
+ & 0.95668E-06_JPRB,0.19877E-05_JPRB,0.23997E-05_JPRB,0.26721E-05_JPRB,0.28382E-05_JPRB, &
+ & 0.28806E-05_JPRB,0.27857E-05_JPRB,0.25225E-05_JPRB,0.15698E-05_JPRB /)  
+KA(:, 1, 5, 1) = (/ &
+ & 0.77329E-06_JPRB,0.15354E-05_JPRB,0.18723E-05_JPRB,0.20411E-05_JPRB,0.21095E-05_JPRB, &
+ & 0.21017E-05_JPRB,0.19998E-05_JPRB,0.18017E-05_JPRB,0.97629E-06_JPRB /)  
+KA(:, 2, 5, 1) = (/ &
+ & 0.78241E-06_JPRB,0.15660E-05_JPRB,0.19091E-05_JPRB,0.20970E-05_JPRB,0.21786E-05_JPRB, &
+ & 0.21730E-05_JPRB,0.20794E-05_JPRB,0.18731E-05_JPRB,0.10645E-05_JPRB /)  
+KA(:, 3, 5, 1) = (/ &
+ & 0.79463E-06_JPRB,0.15948E-05_JPRB,0.19458E-05_JPRB,0.21529E-05_JPRB,0.22557E-05_JPRB, &
+ & 0.22576E-05_JPRB,0.21631E-05_JPRB,0.19462E-05_JPRB,0.11507E-05_JPRB /)  
+KA(:, 4, 5, 1) = (/ &
+ & 0.79779E-06_JPRB,0.16389E-05_JPRB,0.19877E-05_JPRB,0.22087E-05_JPRB,0.23274E-05_JPRB, &
+ & 0.23462E-05_JPRB,0.22501E-05_JPRB,0.20204E-05_JPRB,0.12366E-05_JPRB /)  
+KA(:, 5, 5, 1) = (/ &
+ & 0.79875E-06_JPRB,0.16865E-05_JPRB,0.20410E-05_JPRB,0.22789E-05_JPRB,0.24049E-05_JPRB, &
+ & 0.24283E-05_JPRB,0.23388E-05_JPRB,0.21006E-05_JPRB,0.13155E-05_JPRB /)  
+KA(:, 1, 6, 1) = (/ &
+ & 0.63799E-06_JPRB,0.13079E-05_JPRB,0.15873E-05_JPRB,0.17187E-05_JPRB,0.17689E-05_JPRB, &
+ & 0.17509E-05_JPRB,0.16625E-05_JPRB,0.14950E-05_JPRB,0.77624E-06_JPRB /)  
+KA(:, 2, 6, 1) = (/ &
+ & 0.64423E-06_JPRB,0.13180E-05_JPRB,0.16173E-05_JPRB,0.17648E-05_JPRB,0.18253E-05_JPRB, &
+ & 0.18152E-05_JPRB,0.17299E-05_JPRB,0.15482E-05_JPRB,0.85457E-06_JPRB /)  
+KA(:, 3, 6, 1) = (/ &
+ & 0.65214E-06_JPRB,0.13481E-05_JPRB,0.16476E-05_JPRB,0.18158E-05_JPRB,0.18867E-05_JPRB, &
+ & 0.18859E-05_JPRB,0.17999E-05_JPRB,0.16080E-05_JPRB,0.93968E-06_JPRB /)  
+KA(:, 4, 6, 1) = (/ &
+ & 0.65949E-06_JPRB,0.13728E-05_JPRB,0.16795E-05_JPRB,0.18618E-05_JPRB,0.19507E-05_JPRB, &
+ & 0.19568E-05_JPRB,0.18693E-05_JPRB,0.16710E-05_JPRB,0.10256E-05_JPRB /)  
+KA(:, 5, 6, 1) = (/ &
+ & 0.66012E-06_JPRB,0.14051E-05_JPRB,0.17174E-05_JPRB,0.19154E-05_JPRB,0.20111E-05_JPRB, &
+ & 0.20230E-05_JPRB,0.19421E-05_JPRB,0.17361E-05_JPRB,0.11072E-05_JPRB /)  
+KA(:, 1, 7, 1) = (/ &
+ & 0.52652E-06_JPRB,0.10995E-05_JPRB,0.13221E-05_JPRB,0.14282E-05_JPRB,0.14627E-05_JPRB, &
+ & 0.14494E-05_JPRB,0.13754E-05_JPRB,0.12359E-05_JPRB,0.62399E-06_JPRB /)  
+KA(:, 2, 7, 1) = (/ &
+ & 0.52631E-06_JPRB,0.11047E-05_JPRB,0.13498E-05_JPRB,0.14646E-05_JPRB,0.15094E-05_JPRB, &
+ & 0.14961E-05_JPRB,0.14272E-05_JPRB,0.12791E-05_JPRB,0.69692E-06_JPRB /)  
+KA(:, 3, 7, 1) = (/ &
+ & 0.53263E-06_JPRB,0.11231E-05_JPRB,0.13763E-05_JPRB,0.15059E-05_JPRB,0.15602E-05_JPRB, &
+ & 0.15533E-05_JPRB,0.14827E-05_JPRB,0.13257E-05_JPRB,0.76959E-06_JPRB /)  
+KA(:, 4, 7, 1) = (/ &
+ & 0.53788E-06_JPRB,0.11448E-05_JPRB,0.14026E-05_JPRB,0.15478E-05_JPRB,0.16122E-05_JPRB, &
+ & 0.16137E-05_JPRB,0.15398E-05_JPRB,0.13748E-05_JPRB,0.84488E-06_JPRB /)  
+KA(:, 5, 7, 1) = (/ &
+ & 0.54243E-06_JPRB,0.11660E-05_JPRB,0.14288E-05_JPRB,0.15891E-05_JPRB,0.16619E-05_JPRB, &
+ & 0.16672E-05_JPRB,0.15978E-05_JPRB,0.14265E-05_JPRB,0.92439E-06_JPRB /)  
+KA(:, 1, 8, 1) = (/ &
+ & 0.42860E-06_JPRB,0.91208E-06_JPRB,0.10887E-05_JPRB,0.11732E-05_JPRB,0.12000E-05_JPRB, &
+ & 0.11901E-05_JPRB,0.11300E-05_JPRB,0.10181E-05_JPRB,0.51360E-06_JPRB /)  
+KA(:, 2, 8, 1) = (/ &
+ & 0.42605E-06_JPRB,0.91355E-06_JPRB,0.11105E-05_JPRB,0.12004E-05_JPRB,0.12359E-05_JPRB, &
+ & 0.12238E-05_JPRB,0.11674E-05_JPRB,0.10496E-05_JPRB,0.58593E-06_JPRB /)  
+KA(:, 3, 8, 1) = (/ &
+ & 0.42910E-06_JPRB,0.92458E-06_JPRB,0.11341E-05_JPRB,0.12355E-05_JPRB,0.12754E-05_JPRB, &
+ & 0.12667E-05_JPRB,0.12100E-05_JPRB,0.10877E-05_JPRB,0.65209E-06_JPRB /)  
+KA(:, 4, 8, 1) = (/ &
+ & 0.43345E-06_JPRB,0.94024E-06_JPRB,0.11540E-05_JPRB,0.12669E-05_JPRB,0.13186E-05_JPRB, &
+ & 0.13163E-05_JPRB,0.12567E-05_JPRB,0.11280E-05_JPRB,0.72051E-06_JPRB /)  
+KA(:, 5, 8, 1) = (/ &
+ & 0.43744E-06_JPRB,0.95845E-06_JPRB,0.11764E-05_JPRB,0.13022E-05_JPRB,0.13595E-05_JPRB, &
+ & 0.13618E-05_JPRB,0.13034E-05_JPRB,0.11671E-05_JPRB,0.79373E-06_JPRB /)  
+KA(:, 1, 9, 1) = (/ &
+ & 0.34458E-06_JPRB,0.74844E-06_JPRB,0.89217E-06_JPRB,0.95875E-06_JPRB,0.98243E-06_JPRB, &
+ & 0.97566E-06_JPRB,0.92936E-06_JPRB,0.83611E-06_JPRB,0.44181E-06_JPRB /)  
+KA(:, 2, 9, 1) = (/ &
+ & 0.34797E-06_JPRB,0.75304E-06_JPRB,0.90816E-06_JPRB,0.98264E-06_JPRB,0.10080E-05_JPRB, &
+ & 0.99889E-06_JPRB,0.95318E-06_JPRB,0.86041E-06_JPRB,0.51013E-06_JPRB /)  
+KA(:, 3, 9, 1) = (/ &
+ & 0.34593E-06_JPRB,0.76020E-06_JPRB,0.92707E-06_JPRB,0.10062E-05_JPRB,0.10391E-05_JPRB, &
+ & 0.10296E-05_JPRB,0.98530E-06_JPRB,0.89011E-06_JPRB,0.58070E-06_JPRB /)  
+KA(:, 4, 9, 1) = (/ &
+ & 0.34971E-06_JPRB,0.77088E-06_JPRB,0.94623E-06_JPRB,0.10342E-05_JPRB,0.10726E-05_JPRB, &
+ & 0.10689E-05_JPRB,0.10210E-05_JPRB,0.92020E-06_JPRB,0.65697E-06_JPRB /)  
+KA(:, 5, 9, 1) = (/ &
+ & 0.35282E-06_JPRB,0.78517E-06_JPRB,0.96245E-06_JPRB,0.10609E-05_JPRB,0.11071E-05_JPRB, &
+ & 0.11073E-05_JPRB,0.10583E-05_JPRB,0.95054E-06_JPRB,0.72956E-06_JPRB /)  
+KA(:, 1,10, 1) = (/ &
+ & 0.27840E-06_JPRB,0.61035E-06_JPRB,0.72930E-06_JPRB,0.78415E-06_JPRB,0.80451E-06_JPRB, &
+ & 0.79924E-06_JPRB,0.76231E-06_JPRB,0.68727E-06_JPRB,0.40208E-06_JPRB /)  
+KA(:, 2,10, 1) = (/ &
+ & 0.28171E-06_JPRB,0.61798E-06_JPRB,0.74197E-06_JPRB,0.80115E-06_JPRB,0.82183E-06_JPRB, &
+ & 0.81621E-06_JPRB,0.78030E-06_JPRB,0.70425E-06_JPRB,0.46700E-06_JPRB /)  
+KA(:, 3,10, 1) = (/ &
+ & 0.28023E-06_JPRB,0.62269E-06_JPRB,0.75685E-06_JPRB,0.82101E-06_JPRB,0.84538E-06_JPRB, &
+ & 0.83821E-06_JPRB,0.80301E-06_JPRB,0.72663E-06_JPRB,0.53781E-06_JPRB /)  
+KA(:, 4,10, 1) = (/ &
+ & 0.28163E-06_JPRB,0.63156E-06_JPRB,0.77214E-06_JPRB,0.84244E-06_JPRB,0.87184E-06_JPRB, &
+ & 0.86752E-06_JPRB,0.83024E-06_JPRB,0.75000E-06_JPRB,0.60478E-06_JPRB /)  
+KA(:, 5,10, 1) = (/ &
+ & 0.28518E-06_JPRB,0.64070E-06_JPRB,0.78628E-06_JPRB,0.86439E-06_JPRB,0.89969E-06_JPRB, &
+ & 0.89910E-06_JPRB,0.85933E-06_JPRB,0.77376E-06_JPRB,0.67016E-06_JPRB /)  
+KA(:, 1,11, 1) = (/ &
+ & 0.22555E-06_JPRB,0.50042E-06_JPRB,0.59960E-06_JPRB,0.64537E-06_JPRB,0.66324E-06_JPRB, &
+ & 0.65924E-06_JPRB,0.63003E-06_JPRB,0.56890E-06_JPRB,0.34466E-06_JPRB /)  
+KA(:, 2,11, 1) = (/ &
+ & 0.22858E-06_JPRB,0.50705E-06_JPRB,0.60997E-06_JPRB,0.65948E-06_JPRB,0.67688E-06_JPRB, &
+ & 0.67311E-06_JPRB,0.64462E-06_JPRB,0.58333E-06_JPRB,0.40300E-06_JPRB /)  
+KA(:, 3,11, 1) = (/ &
+ & 0.22677E-06_JPRB,0.51178E-06_JPRB,0.62299E-06_JPRB,0.67572E-06_JPRB,0.69624E-06_JPRB, &
+ & 0.69126E-06_JPRB,0.66285E-06_JPRB,0.60090E-06_JPRB,0.46066E-06_JPRB /)  
+KA(:, 4,11, 1) = (/ &
+ & 0.22825E-06_JPRB,0.51907E-06_JPRB,0.63500E-06_JPRB,0.69311E-06_JPRB,0.71796E-06_JPRB, &
+ & 0.71484E-06_JPRB,0.68416E-06_JPRB,0.61859E-06_JPRB,0.51966E-06_JPRB /)  
+KA(:, 5,11, 1) = (/ &
+ & 0.23122E-06_JPRB,0.52598E-06_JPRB,0.64574E-06_JPRB,0.71116E-06_JPRB,0.74046E-06_JPRB, &
+ & 0.73979E-06_JPRB,0.70672E-06_JPRB,0.63708E-06_JPRB,0.58196E-06_JPRB /)  
+KA(:, 1,12, 1) = (/ &
+ & 0.18149E-06_JPRB,0.40829E-06_JPRB,0.49022E-06_JPRB,0.52910E-06_JPRB,0.54408E-06_JPRB, &
+ & 0.54163E-06_JPRB,0.51867E-06_JPRB,0.46933E-06_JPRB,0.28496E-06_JPRB /)  
+KA(:, 2,12, 1) = (/ &
+ & 0.18433E-06_JPRB,0.41378E-06_JPRB,0.49908E-06_JPRB,0.54027E-06_JPRB,0.55522E-06_JPRB, &
+ & 0.55286E-06_JPRB,0.53038E-06_JPRB,0.48103E-06_JPRB,0.33336E-06_JPRB /)  
+KA(:, 3,12, 1) = (/ &
+ & 0.18246E-06_JPRB,0.41799E-06_JPRB,0.50965E-06_JPRB,0.55347E-06_JPRB,0.57134E-06_JPRB, &
+ & 0.56787E-06_JPRB,0.54477E-06_JPRB,0.49462E-06_JPRB,0.38023E-06_JPRB /)  
+KA(:, 4,12, 1) = (/ &
+ & 0.18409E-06_JPRB,0.42347E-06_JPRB,0.51936E-06_JPRB,0.56749E-06_JPRB,0.58877E-06_JPRB, &
+ & 0.58648E-06_JPRB,0.56149E-06_JPRB,0.50825E-06_JPRB,0.43081E-06_JPRB /)  
+KA(:, 5,12, 1) = (/ &
+ & 0.18582E-06_JPRB,0.42888E-06_JPRB,0.52830E-06_JPRB,0.58240E-06_JPRB,0.60647E-06_JPRB, &
+ & 0.60598E-06_JPRB,0.57933E-06_JPRB,0.52277E-06_JPRB,0.48565E-06_JPRB /)  
+KA(:, 1,13, 1) = (/ &
+ & 0.14345E-06_JPRB,0.32927E-06_JPRB,0.39750E-06_JPRB,0.43000E-06_JPRB,0.44318E-06_JPRB, &
+ & 0.44201E-06_JPRB,0.42469E-06_JPRB,0.38538E-06_JPRB,0.23377E-06_JPRB /)  
+KA(:, 2,13, 1) = (/ &
+ & 0.14571E-06_JPRB,0.33355E-06_JPRB,0.40430E-06_JPRB,0.43954E-06_JPRB,0.45256E-06_JPRB, &
+ & 0.45159E-06_JPRB,0.43399E-06_JPRB,0.39467E-06_JPRB,0.27338E-06_JPRB /)  
+KA(:, 3,13, 1) = (/ &
+ & 0.14442E-06_JPRB,0.33719E-06_JPRB,0.41316E-06_JPRB,0.44996E-06_JPRB,0.46575E-06_JPRB, &
+ & 0.46364E-06_JPRB,0.44528E-06_JPRB,0.40510E-06_JPRB,0.31154E-06_JPRB /)  
+KA(:, 4,13, 1) = (/ &
+ & 0.14600E-06_JPRB,0.34141E-06_JPRB,0.42136E-06_JPRB,0.46096E-06_JPRB,0.47937E-06_JPRB, &
+ & 0.47817E-06_JPRB,0.45850E-06_JPRB,0.41598E-06_JPRB,0.35289E-06_JPRB /)  
+KA(:, 5,13, 1) = (/ &
+ & 0.14667E-06_JPRB,0.34608E-06_JPRB,0.42853E-06_JPRB,0.47296E-06_JPRB,0.49300E-06_JPRB, &
+ & 0.49352E-06_JPRB,0.47280E-06_JPRB,0.42757E-06_JPRB,0.39752E-06_JPRB /)  
+KA(:, 1, 1, 2) = (/ &
+ & 0.16288E-04_JPRB,0.25817E-04_JPRB,0.29597E-04_JPRB,0.31319E-04_JPRB,0.31220E-04_JPRB, &
+ & 0.29539E-04_JPRB,0.25627E-04_JPRB,0.19758E-04_JPRB,0.72944E-05_JPRB /)  
+KA(:, 2, 1, 2) = (/ &
+ & 0.18123E-04_JPRB,0.28565E-04_JPRB,0.32633E-04_JPRB,0.34427E-04_JPRB,0.34219E-04_JPRB, &
+ & 0.32223E-04_JPRB,0.27987E-04_JPRB,0.21485E-04_JPRB,0.79554E-05_JPRB /)  
+KA(:, 3, 1, 2) = (/ &
+ & 0.19957E-04_JPRB,0.31607E-04_JPRB,0.36033E-04_JPRB,0.37887E-04_JPRB,0.37694E-04_JPRB, &
+ & 0.35399E-04_JPRB,0.30718E-04_JPRB,0.23412E-04_JPRB,0.85293E-05_JPRB /)  
+KA(:, 4, 1, 2) = (/ &
+ & 0.22005E-04_JPRB,0.35064E-04_JPRB,0.39763E-04_JPRB,0.41694E-04_JPRB,0.41490E-04_JPRB, &
+ & 0.38891E-04_JPRB,0.33715E-04_JPRB,0.25512E-04_JPRB,0.91232E-05_JPRB /)  
+KA(:, 5, 1, 2) = (/ &
+ & 0.24240E-04_JPRB,0.38906E-04_JPRB,0.43899E-04_JPRB,0.45870E-04_JPRB,0.45580E-04_JPRB, &
+ & 0.42616E-04_JPRB,0.36912E-04_JPRB,0.27728E-04_JPRB,0.97792E-05_JPRB /)  
+KA(:, 1, 2, 2) = (/ &
+ & 0.14944E-04_JPRB,0.23223E-04_JPRB,0.25792E-04_JPRB,0.27019E-04_JPRB,0.26963E-04_JPRB, &
+ & 0.25431E-04_JPRB,0.22069E-04_JPRB,0.16933E-04_JPRB,0.59071E-05_JPRB /)  
+KA(:, 2, 2, 2) = (/ &
+ & 0.16615E-04_JPRB,0.25452E-04_JPRB,0.28322E-04_JPRB,0.29800E-04_JPRB,0.29593E-04_JPRB, &
+ & 0.27776E-04_JPRB,0.24123E-04_JPRB,0.18444E-04_JPRB,0.63142E-05_JPRB /)  
+KA(:, 3, 2, 2) = (/ &
+ & 0.18355E-04_JPRB,0.27996E-04_JPRB,0.31338E-04_JPRB,0.32892E-04_JPRB,0.32575E-04_JPRB, &
+ & 0.30478E-04_JPRB,0.26504E-04_JPRB,0.20132E-04_JPRB,0.67898E-05_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART1',1,ZHOOK_HANDLE)
+END SUBROUTINE PART1
+
+
+SUBROUTINE PART2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART2',0,ZHOOK_HANDLE)
+
+
+KA(:, 4, 2, 2) = (/ &
+ & 0.20092E-04_JPRB,0.30938E-04_JPRB,0.34680E-04_JPRB,0.36255E-04_JPRB,0.35836E-04_JPRB, &
+ & 0.33500E-04_JPRB,0.29106E-04_JPRB,0.21950E-04_JPRB,0.73343E-05_JPRB /)  
+KA(:, 5, 2, 2) = (/ &
+ & 0.21897E-04_JPRB,0.34150E-04_JPRB,0.38274E-04_JPRB,0.39931E-04_JPRB,0.39337E-04_JPRB, &
+ & 0.36752E-04_JPRB,0.31831E-04_JPRB,0.23882E-04_JPRB,0.78705E-05_JPRB /)  
+KA(:, 1, 3, 2) = (/ &
+ & 0.13130E-04_JPRB,0.20363E-04_JPRB,0.22377E-04_JPRB,0.23003E-04_JPRB,0.22683E-04_JPRB, &
+ & 0.21429E-04_JPRB,0.18621E-04_JPRB,0.14177E-04_JPRB,0.47892E-05_JPRB /)  
+KA(:, 2, 3, 2) = (/ &
+ & 0.14610E-04_JPRB,0.22299E-04_JPRB,0.24486E-04_JPRB,0.25140E-04_JPRB,0.24842E-04_JPRB, &
+ & 0.23413E-04_JPRB,0.20361E-04_JPRB,0.15469E-04_JPRB,0.52250E-05_JPRB /)  
+KA(:, 3, 3, 2) = (/ &
+ & 0.16133E-04_JPRB,0.24482E-04_JPRB,0.26876E-04_JPRB,0.27653E-04_JPRB,0.27357E-04_JPRB, &
+ & 0.25669E-04_JPRB,0.22341E-04_JPRB,0.16897E-04_JPRB,0.56647E-05_JPRB /)  
+KA(:, 4, 3, 2) = (/ &
+ & 0.17708E-04_JPRB,0.26887E-04_JPRB,0.29522E-04_JPRB,0.30577E-04_JPRB,0.30151E-04_JPRB, &
+ & 0.28221E-04_JPRB,0.24545E-04_JPRB,0.18455E-04_JPRB,0.60735E-05_JPRB /)  
+KA(:, 5, 3, 2) = (/ &
+ & 0.19305E-04_JPRB,0.29364E-04_JPRB,0.32520E-04_JPRB,0.33741E-04_JPRB,0.33162E-04_JPRB, &
+ & 0.30976E-04_JPRB,0.26800E-04_JPRB,0.20103E-04_JPRB,0.64864E-05_JPRB /)  
+KA(:, 1, 4, 2) = (/ &
+ & 0.11163E-04_JPRB,0.17498E-04_JPRB,0.19069E-04_JPRB,0.19561E-04_JPRB,0.19154E-04_JPRB, &
+ & 0.17906E-04_JPRB,0.15522E-04_JPRB,0.11778E-04_JPRB,0.40461E-05_JPRB /)  
+KA(:, 2, 4, 2) = (/ &
+ & 0.12505E-04_JPRB,0.19238E-04_JPRB,0.20917E-04_JPRB,0.21365E-04_JPRB,0.20913E-04_JPRB, &
+ & 0.19471E-04_JPRB,0.16986E-04_JPRB,0.12856E-04_JPRB,0.43935E-05_JPRB /)  
+KA(:, 3, 4, 2) = (/ &
+ & 0.13848E-04_JPRB,0.21132E-04_JPRB,0.22975E-04_JPRB,0.23433E-04_JPRB,0.22893E-04_JPRB, &
+ & 0.21327E-04_JPRB,0.18662E-04_JPRB,0.14056E-04_JPRB,0.47015E-05_JPRB /)  
+KA(:, 4, 4, 2) = (/ &
+ & 0.15219E-04_JPRB,0.23159E-04_JPRB,0.25250E-04_JPRB,0.25753E-04_JPRB,0.25088E-04_JPRB, &
+ & 0.23437E-04_JPRB,0.20455E-04_JPRB,0.15366E-04_JPRB,0.50239E-05_JPRB /)  
+KA(:, 5, 4, 2) = (/ &
+ & 0.16631E-04_JPRB,0.25311E-04_JPRB,0.27651E-04_JPRB,0.28243E-04_JPRB,0.27566E-04_JPRB, &
+ & 0.25775E-04_JPRB,0.22344E-04_JPRB,0.16758E-04_JPRB,0.53594E-05_JPRB /)  
+KA(:, 1, 5, 2) = (/ &
+ & 0.92688E-05_JPRB,0.14829E-04_JPRB,0.16036E-04_JPRB,0.16388E-04_JPRB,0.16087E-04_JPRB, &
+ & 0.15049E-04_JPRB,0.12939E-04_JPRB,0.97243E-05_JPRB,0.35064E-05_JPRB /)  
+KA(:, 2, 5, 2) = (/ &
+ & 0.10428E-04_JPRB,0.16289E-04_JPRB,0.17596E-04_JPRB,0.17928E-04_JPRB,0.17547E-04_JPRB, &
+ & 0.16347E-04_JPRB,0.14108E-04_JPRB,0.10621E-04_JPRB,0.37893E-05_JPRB /)  
+KA(:, 3, 5, 2) = (/ &
+ & 0.11600E-04_JPRB,0.17922E-04_JPRB,0.19403E-04_JPRB,0.19701E-04_JPRB,0.19227E-04_JPRB, &
+ & 0.17835E-04_JPRB,0.15439E-04_JPRB,0.11627E-04_JPRB,0.40426E-05_JPRB /)  
+KA(:, 4, 5, 2) = (/ &
+ & 0.12795E-04_JPRB,0.19672E-04_JPRB,0.21360E-04_JPRB,0.21677E-04_JPRB,0.21078E-04_JPRB, &
+ & 0.19535E-04_JPRB,0.16919E-04_JPRB,0.12746E-04_JPRB,0.43015E-05_JPRB /)  
+KA(:, 5, 5, 2) = (/ &
+ & 0.14029E-04_JPRB,0.21551E-04_JPRB,0.23410E-04_JPRB,0.23746E-04_JPRB,0.23106E-04_JPRB, &
+ & 0.21397E-04_JPRB,0.18500E-04_JPRB,0.13918E-04_JPRB,0.45663E-05_JPRB /)  
+KA(:, 1, 6, 2) = (/ &
+ & 0.75358E-05_JPRB,0.12284E-04_JPRB,0.13321E-04_JPRB,0.13580E-04_JPRB,0.13322E-04_JPRB, &
+ & 0.12459E-04_JPRB,0.10757E-04_JPRB,0.80012E-05_JPRB,0.28595E-05_JPRB /)  
+KA(:, 2, 6, 2) = (/ &
+ & 0.84801E-05_JPRB,0.13541E-04_JPRB,0.14600E-04_JPRB,0.14857E-04_JPRB,0.14519E-04_JPRB, &
+ & 0.13528E-04_JPRB,0.11747E-04_JPRB,0.87199E-05_JPRB,0.31250E-05_JPRB /)  
+KA(:, 3, 6, 2) = (/ &
+ & 0.94797E-05_JPRB,0.14898E-04_JPRB,0.16088E-04_JPRB,0.16329E-04_JPRB,0.15922E-04_JPRB, &
+ & 0.14786E-04_JPRB,0.12839E-04_JPRB,0.95406E-05_JPRB,0.33925E-05_JPRB /)  
+KA(:, 4, 6, 2) = (/ &
+ & 0.10510E-04_JPRB,0.16387E-04_JPRB,0.17709E-04_JPRB,0.17968E-04_JPRB,0.17465E-04_JPRB, &
+ & 0.16205E-04_JPRB,0.13999E-04_JPRB,0.10465E-04_JPRB,0.36786E-05_JPRB /)  
+KA(:, 5, 6, 2) = (/ &
+ & 0.11554E-04_JPRB,0.17973E-04_JPRB,0.19442E-04_JPRB,0.19736E-04_JPRB,0.19170E-04_JPRB, &
+ & 0.17751E-04_JPRB,0.15288E-04_JPRB,0.11441E-04_JPRB,0.39618E-05_JPRB /)  
+KA(:, 1, 7, 2) = (/ &
+ & 0.59994E-05_JPRB,0.10068E-04_JPRB,0.10903E-04_JPRB,0.11100E-04_JPRB,0.10910E-04_JPRB, &
+ & 0.10207E-04_JPRB,0.88301E-05_JPRB,0.65755E-05_JPRB,0.23537E-05_JPRB /)  
+KA(:, 2, 7, 2) = (/ &
+ & 0.67911E-05_JPRB,0.11098E-04_JPRB,0.11964E-04_JPRB,0.12161E-04_JPRB,0.11910E-04_JPRB, &
+ & 0.11113E-04_JPRB,0.96475E-05_JPRB,0.71733E-05_JPRB,0.26021E-05_JPRB /)  
+KA(:, 3, 7, 2) = (/ &
+ & 0.76012E-05_JPRB,0.12205E-04_JPRB,0.13167E-04_JPRB,0.13368E-04_JPRB,0.13058E-04_JPRB, &
+ & 0.12136E-04_JPRB,0.10571E-04_JPRB,0.78452E-05_JPRB,0.28416E-05_JPRB /)  
+KA(:, 4, 7, 2) = (/ &
+ & 0.84582E-05_JPRB,0.13412E-04_JPRB,0.14518E-04_JPRB,0.14721E-04_JPRB,0.14328E-04_JPRB, &
+ & 0.13323E-04_JPRB,0.11527E-04_JPRB,0.85995E-05_JPRB,0.30925E-05_JPRB /)  
+KA(:, 5, 7, 2) = (/ &
+ & 0.93346E-05_JPRB,0.14749E-04_JPRB,0.15973E-04_JPRB,0.16180E-04_JPRB,0.15730E-04_JPRB, &
+ & 0.14597E-04_JPRB,0.12601E-04_JPRB,0.93973E-05_JPRB,0.33285E-05_JPRB /)  
+KA(:, 1, 8, 2) = (/ &
+ & 0.47174E-05_JPRB,0.81367E-05_JPRB,0.88184E-05_JPRB,0.90007E-05_JPRB,0.88363E-05_JPRB, &
+ & 0.83059E-05_JPRB,0.72101E-05_JPRB,0.53496E-05_JPRB,0.18862E-05_JPRB /)  
+KA(:, 2, 8, 2) = (/ &
+ & 0.53543E-05_JPRB,0.89852E-05_JPRB,0.96904E-05_JPRB,0.98666E-05_JPRB,0.96509E-05_JPRB, &
+ & 0.90368E-05_JPRB,0.78700E-05_JPRB,0.58341E-05_JPRB,0.21147E-05_JPRB /)  
+KA(:, 3, 8, 2) = (/ &
+ & 0.60088E-05_JPRB,0.98855E-05_JPRB,0.10666E-04_JPRB,0.10849E-04_JPRB,0.10597E-04_JPRB, &
+ & 0.98826E-05_JPRB,0.86243E-05_JPRB,0.63949E-05_JPRB,0.23672E-05_JPRB /)  
+KA(:, 4, 8, 2) = (/ &
+ & 0.66958E-05_JPRB,0.10873E-04_JPRB,0.11751E-04_JPRB,0.11945E-04_JPRB,0.11636E-04_JPRB, &
+ & 0.10852E-04_JPRB,0.94101E-05_JPRB,0.70262E-05_JPRB,0.26329E-05_JPRB /)  
+KA(:, 5, 8, 2) = (/ &
+ & 0.74191E-05_JPRB,0.11960E-04_JPRB,0.12943E-04_JPRB,0.13152E-04_JPRB,0.12788E-04_JPRB, &
+ & 0.11889E-04_JPRB,0.10297E-04_JPRB,0.76977E-05_JPRB,0.29019E-05_JPRB /)  
+KA(:, 1, 9, 2) = (/ &
+ & 0.36886E-05_JPRB,0.65140E-05_JPRB,0.70684E-05_JPRB,0.72377E-05_JPRB,0.71080E-05_JPRB, &
+ & 0.67076E-05_JPRB,0.58353E-05_JPRB,0.43297E-05_JPRB,0.16419E-05_JPRB /)  
+KA(:, 2, 9, 2) = (/ &
+ & 0.41772E-05_JPRB,0.72104E-05_JPRB,0.77793E-05_JPRB,0.79335E-05_JPRB,0.77682E-05_JPRB, &
+ & 0.72903E-05_JPRB,0.63640E-05_JPRB,0.47210E-05_JPRB,0.18721E-05_JPRB /)  
+KA(:, 3, 9, 2) = (/ &
+ & 0.47123E-05_JPRB,0.79471E-05_JPRB,0.85662E-05_JPRB,0.87396E-05_JPRB,0.85319E-05_JPRB, &
+ & 0.79769E-05_JPRB,0.69694E-05_JPRB,0.51793E-05_JPRB,0.21015E-05_JPRB /)  
+KA(:, 4, 9, 2) = (/ &
+ & 0.52612E-05_JPRB,0.87319E-05_JPRB,0.94365E-05_JPRB,0.96191E-05_JPRB,0.93783E-05_JPRB, &
+ & 0.87581E-05_JPRB,0.76277E-05_JPRB,0.56974E-05_JPRB,0.23505E-05_JPRB /)  
+KA(:, 5, 9, 2) = (/ &
+ & 0.58401E-05_JPRB,0.96106E-05_JPRB,0.10404E-04_JPRB,0.10594E-04_JPRB,0.10308E-04_JPRB, &
+ & 0.96030E-05_JPRB,0.83402E-05_JPRB,0.62627E-05_JPRB,0.26170E-05_JPRB /)  
+KA(:, 1,10, 2) = (/ &
+ & 0.29023E-05_JPRB,0.52230E-05_JPRB,0.56669E-05_JPRB,0.58158E-05_JPRB,0.57137E-05_JPRB, &
+ & 0.54241E-05_JPRB,0.47416E-05_JPRB,0.35098E-05_JPRB,0.14223E-05_JPRB /)  
+KA(:, 2,10, 2) = (/ &
+ & 0.32752E-05_JPRB,0.57903E-05_JPRB,0.62548E-05_JPRB,0.63859E-05_JPRB,0.62528E-05_JPRB, &
+ & 0.58881E-05_JPRB,0.51542E-05_JPRB,0.38257E-05_JPRB,0.16559E-05_JPRB /)  
+KA(:, 3,10, 2) = (/ &
+ & 0.37047E-05_JPRB,0.63892E-05_JPRB,0.68928E-05_JPRB,0.70312E-05_JPRB,0.68734E-05_JPRB, &
+ & 0.64357E-05_JPRB,0.56361E-05_JPRB,0.42003E-05_JPRB,0.19248E-05_JPRB /)  
+KA(:, 4,10, 2) = (/ &
+ & 0.41471E-05_JPRB,0.70179E-05_JPRB,0.75920E-05_JPRB,0.77496E-05_JPRB,0.75508E-05_JPRB, &
+ & 0.70624E-05_JPRB,0.61778E-05_JPRB,0.46271E-05_JPRB,0.22074E-05_JPRB /)  
+KA(:, 5,10, 2) = (/ &
+ & 0.46061E-05_JPRB,0.77215E-05_JPRB,0.83699E-05_JPRB,0.85300E-05_JPRB,0.83121E-05_JPRB, &
+ & 0.77493E-05_JPRB,0.67551E-05_JPRB,0.50931E-05_JPRB,0.25043E-05_JPRB /)  
+KA(:, 1,11, 2) = (/ &
+ & 0.24060E-05_JPRB,0.43752E-05_JPRB,0.47372E-05_JPRB,0.48598E-05_JPRB,0.47689E-05_JPRB, &
+ & 0.45290E-05_JPRB,0.39653E-05_JPRB,0.29444E-05_JPRB,0.12255E-05_JPRB /)  
+KA(:, 2,11, 2) = (/ &
+ & 0.27123E-05_JPRB,0.48479E-05_JPRB,0.52339E-05_JPRB,0.53482E-05_JPRB,0.52342E-05_JPRB, &
+ & 0.49275E-05_JPRB,0.43239E-05_JPRB,0.32196E-05_JPRB,0.14282E-05_JPRB /)  
+KA(:, 3,11, 2) = (/ &
+ & 0.30632E-05_JPRB,0.53402E-05_JPRB,0.57660E-05_JPRB,0.58936E-05_JPRB,0.57515E-05_JPRB, &
+ & 0.53873E-05_JPRB,0.47344E-05_JPRB,0.35410E-05_JPRB,0.16636E-05_JPRB /)  
+KA(:, 4,11, 2) = (/ &
+ & 0.34245E-05_JPRB,0.58653E-05_JPRB,0.63554E-05_JPRB,0.64878E-05_JPRB,0.63244E-05_JPRB, &
+ & 0.59147E-05_JPRB,0.51855E-05_JPRB,0.39068E-05_JPRB,0.18858E-05_JPRB /)  
+KA(:, 5,11, 2) = (/ &
+ & 0.37984E-05_JPRB,0.64557E-05_JPRB,0.70032E-05_JPRB,0.71432E-05_JPRB,0.69591E-05_JPRB, &
+ & 0.64936E-05_JPRB,0.56748E-05_JPRB,0.42889E-05_JPRB,0.21529E-05_JPRB /)  
+KA(:, 1,12, 2) = (/ &
+ & 0.19822E-05_JPRB,0.36438E-05_JPRB,0.39439E-05_JPRB,0.40428E-05_JPRB,0.39656E-05_JPRB, &
+ & 0.37627E-05_JPRB,0.33048E-05_JPRB,0.24620E-05_JPRB,0.10349E-05_JPRB /)  
+KA(:, 2,12, 2) = (/ &
+ & 0.22347E-05_JPRB,0.40329E-05_JPRB,0.43559E-05_JPRB,0.44535E-05_JPRB,0.43556E-05_JPRB, &
+ & 0.41018E-05_JPRB,0.36156E-05_JPRB,0.26976E-05_JPRB,0.12078E-05_JPRB /)  
+KA(:, 3,12, 2) = (/ &
+ & 0.25196E-05_JPRB,0.44405E-05_JPRB,0.47965E-05_JPRB,0.49025E-05_JPRB,0.47850E-05_JPRB, &
+ & 0.44854E-05_JPRB,0.39542E-05_JPRB,0.29734E-05_JPRB,0.13908E-05_JPRB /)  
+KA(:, 4,12, 2) = (/ &
+ & 0.28142E-05_JPRB,0.48792E-05_JPRB,0.52882E-05_JPRB,0.53962E-05_JPRB,0.52646E-05_JPRB, &
+ & 0.49202E-05_JPRB,0.43229E-05_JPRB,0.32817E-05_JPRB,0.15895E-05_JPRB /)  
+KA(:, 5,12, 2) = (/ &
+ & 0.31182E-05_JPRB,0.53684E-05_JPRB,0.58256E-05_JPRB,0.59413E-05_JPRB,0.57855E-05_JPRB, &
+ & 0.54043E-05_JPRB,0.47298E-05_JPRB,0.35925E-05_JPRB,0.18050E-05_JPRB /)  
+KA(:, 1,13, 2) = (/ &
+ & 0.16206E-05_JPRB,0.30122E-05_JPRB,0.32612E-05_JPRB,0.33451E-05_JPRB,0.32794E-05_JPRB, &
+ & 0.31144E-05_JPRB,0.27430E-05_JPRB,0.20488E-05_JPRB,0.85267E-06_JPRB /)  
+KA(:, 2,13, 2) = (/ &
+ & 0.18267E-05_JPRB,0.33331E-05_JPRB,0.36002E-05_JPRB,0.36816E-05_JPRB,0.36054E-05_JPRB, &
+ & 0.33950E-05_JPRB,0.30021E-05_JPRB,0.22487E-05_JPRB,0.99490E-06_JPRB /)  
+KA(:, 3,13, 2) = (/ &
+ & 0.20587E-05_JPRB,0.36681E-05_JPRB,0.39651E-05_JPRB,0.40531E-05_JPRB,0.39564E-05_JPRB, &
+ & 0.37127E-05_JPRB,0.32815E-05_JPRB,0.24795E-05_JPRB,0.11422E-05_JPRB /)  
+KA(:, 4,13, 2) = (/ &
+ & 0.22973E-05_JPRB,0.40325E-05_JPRB,0.43728E-05_JPRB,0.44600E-05_JPRB,0.43540E-05_JPRB, &
+ & 0.40718E-05_JPRB,0.35848E-05_JPRB,0.27366E-05_JPRB,0.13051E-05_JPRB /)  
+KA(:, 5,13, 2) = (/ &
+ & 0.25452E-05_JPRB,0.44379E-05_JPRB,0.48164E-05_JPRB,0.49100E-05_JPRB,0.47833E-05_JPRB, &
+ & 0.44674E-05_JPRB,0.39194E-05_JPRB,0.29904E-05_JPRB,0.14817E-05_JPRB /)  
+KA(:, 1, 1, 3) = (/ &
+ & 0.66641E-04_JPRB,0.92990E-04_JPRB,0.96277E-04_JPRB,0.95182E-04_JPRB,0.91424E-04_JPRB, &
+ & 0.85445E-04_JPRB,0.77014E-04_JPRB,0.62091E-04_JPRB,0.18284E-04_JPRB /)  
+KA(:, 2, 1, 3) = (/ &
+ & 0.75350E-04_JPRB,0.10391E-03_JPRB,0.10751E-03_JPRB,0.10606E-03_JPRB,0.10174E-03_JPRB, &
+ & 0.94756E-04_JPRB,0.84487E-04_JPRB,0.67267E-04_JPRB,0.20037E-04_JPRB /)  
+KA(:, 3, 1, 3) = (/ &
+ & 0.85286E-04_JPRB,0.11563E-03_JPRB,0.11966E-03_JPRB,0.11777E-03_JPRB,0.11259E-03_JPRB, &
+ & 0.10435E-03_JPRB,0.92076E-04_JPRB,0.72492E-04_JPRB,0.22229E-04_JPRB /)  
+KA(:, 4, 1, 3) = (/ &
+ & 0.96137E-04_JPRB,0.12836E-03_JPRB,0.13265E-03_JPRB,0.13031E-03_JPRB,0.12404E-03_JPRB, &
+ & 0.11409E-03_JPRB,0.99756E-04_JPRB,0.77897E-04_JPRB,0.24656E-04_JPRB /)  
+KA(:, 5, 1, 3) = (/ &
+ & 0.10739E-03_JPRB,0.14209E-03_JPRB,0.14652E-03_JPRB,0.14363E-03_JPRB,0.13579E-03_JPRB, &
+ & 0.12408E-03_JPRB,0.10749E-03_JPRB,0.83273E-04_JPRB,0.26998E-04_JPRB /)  
+KA(:, 1, 2, 3) = (/ &
+ & 0.57005E-04_JPRB,0.80688E-04_JPRB,0.84199E-04_JPRB,0.83067E-04_JPRB,0.79480E-04_JPRB, &
+ & 0.74096E-04_JPRB,0.66328E-04_JPRB,0.53532E-04_JPRB,0.14534E-04_JPRB /)  
+KA(:, 2, 2, 3) = (/ &
+ & 0.64518E-04_JPRB,0.90274E-04_JPRB,0.94149E-04_JPRB,0.92496E-04_JPRB,0.88374E-04_JPRB, &
+ & 0.82048E-04_JPRB,0.72698E-04_JPRB,0.57871E-04_JPRB,0.16202E-04_JPRB /)  
+KA(:, 3, 2, 3) = (/ &
+ & 0.73014E-04_JPRB,0.10065E-03_JPRB,0.10466E-03_JPRB,0.10271E-03_JPRB,0.97880E-04_JPRB, &
+ & 0.90372E-04_JPRB,0.79361E-04_JPRB,0.62357E-04_JPRB,0.18056E-04_JPRB /)  
+KA(:, 4, 2, 3) = (/ &
+ & 0.82297E-04_JPRB,0.11195E-03_JPRB,0.11586E-03_JPRB,0.11365E-03_JPRB,0.10799E-03_JPRB, &
+ & 0.98829E-04_JPRB,0.85923E-04_JPRB,0.66891E-04_JPRB,0.19890E-04_JPRB /)  
+KA(:, 5, 2, 3) = (/ &
+ & 0.92175E-04_JPRB,0.12399E-03_JPRB,0.12794E-03_JPRB,0.12531E-03_JPRB,0.11825E-03_JPRB, &
+ & 0.10764E-03_JPRB,0.92744E-04_JPRB,0.71608E-04_JPRB,0.21968E-04_JPRB /)  
+KA(:, 1, 3, 3) = (/ &
+ & 0.47324E-04_JPRB,0.68167E-04_JPRB,0.71069E-04_JPRB,0.70293E-04_JPRB,0.67313E-04_JPRB, &
+ & 0.62456E-04_JPRB,0.55646E-04_JPRB,0.44933E-04_JPRB,0.11374E-04_JPRB /)  
+KA(:, 2, 3, 3) = (/ &
+ & 0.53658E-04_JPRB,0.76342E-04_JPRB,0.79560E-04_JPRB,0.78547E-04_JPRB,0.74997E-04_JPRB, &
+ & 0.69264E-04_JPRB,0.61119E-04_JPRB,0.48587E-04_JPRB,0.12639E-04_JPRB /)  
+KA(:, 3, 3, 3) = (/ &
+ & 0.60905E-04_JPRB,0.85247E-04_JPRB,0.88738E-04_JPRB,0.87387E-04_JPRB,0.83098E-04_JPRB, &
+ & 0.76432E-04_JPRB,0.66733E-04_JPRB,0.52275E-04_JPRB,0.13871E-04_JPRB /)  
+KA(:, 4, 3, 3) = (/ &
+ & 0.68831E-04_JPRB,0.94960E-04_JPRB,0.98638E-04_JPRB,0.96778E-04_JPRB,0.91816E-04_JPRB, &
+ & 0.83747E-04_JPRB,0.72403E-04_JPRB,0.56165E-04_JPRB,0.15423E-04_JPRB /)  
+KA(:, 5, 3, 3) = (/ &
+ & 0.77259E-04_JPRB,0.10549E-03_JPRB,0.10909E-03_JPRB,0.10672E-03_JPRB,0.10065E-03_JPRB, &
+ & 0.91320E-04_JPRB,0.78406E-04_JPRB,0.60157E-04_JPRB,0.17141E-04_JPRB /)  
+KA(:, 1, 4, 3) = (/ &
+ & 0.40102E-04_JPRB,0.56990E-04_JPRB,0.59444E-04_JPRB,0.58732E-04_JPRB,0.56091E-04_JPRB, &
+ & 0.51902E-04_JPRB,0.46247E-04_JPRB,0.37442E-04_JPRB,0.94022E-05_JPRB /)  
+KA(:, 2, 4, 3) = (/ &
+ & 0.44930E-04_JPRB,0.63893E-04_JPRB,0.66629E-04_JPRB,0.65694E-04_JPRB,0.62627E-04_JPRB, &
+ & 0.57822E-04_JPRB,0.50819E-04_JPRB,0.40421E-04_JPRB,0.10475E-04_JPRB /)  
+KA(:, 3, 4, 3) = (/ &
+ & 0.50532E-04_JPRB,0.71424E-04_JPRB,0.74352E-04_JPRB,0.73221E-04_JPRB,0.69651E-04_JPRB, &
+ & 0.64034E-04_JPRB,0.55430E-04_JPRB,0.43529E-04_JPRB,0.11728E-04_JPRB /)  
+KA(:, 4, 4, 3) = (/ &
+ & 0.56953E-04_JPRB,0.79740E-04_JPRB,0.82769E-04_JPRB,0.81314E-04_JPRB,0.77278E-04_JPRB, &
+ & 0.70324E-04_JPRB,0.60396E-04_JPRB,0.46747E-04_JPRB,0.13063E-04_JPRB /)  
+KA(:, 5, 4, 3) = (/ &
+ & 0.64019E-04_JPRB,0.88647E-04_JPRB,0.91768E-04_JPRB,0.89926E-04_JPRB,0.84958E-04_JPRB, &
+ & 0.76740E-04_JPRB,0.65561E-04_JPRB,0.50066E-04_JPRB,0.14435E-04_JPRB /)  
+KA(:, 1, 5, 3) = (/ &
+ & 0.33806E-04_JPRB,0.47826E-04_JPRB,0.49443E-04_JPRB,0.48775E-04_JPRB,0.46477E-04_JPRB, &
+ & 0.42791E-04_JPRB,0.38155E-04_JPRB,0.31175E-04_JPRB,0.77886E-05_JPRB /)  
+KA(:, 2, 5, 3) = (/ &
+ & 0.37973E-04_JPRB,0.53392E-04_JPRB,0.55526E-04_JPRB,0.54719E-04_JPRB,0.52062E-04_JPRB, &
+ & 0.47763E-04_JPRB,0.42021E-04_JPRB,0.33510E-04_JPRB,0.87404E-05_JPRB /)  
+KA(:, 3, 5, 3) = (/ &
+ & 0.42758E-04_JPRB,0.59666E-04_JPRB,0.62058E-04_JPRB,0.61127E-04_JPRB,0.58012E-04_JPRB, &
+ & 0.53071E-04_JPRB,0.45971E-04_JPRB,0.36114E-04_JPRB,0.98499E-05_JPRB /)  
+KA(:, 4, 5, 3) = (/ &
+ & 0.48006E-04_JPRB,0.66679E-04_JPRB,0.69230E-04_JPRB,0.67989E-04_JPRB,0.64400E-04_JPRB, &
+ & 0.58521E-04_JPRB,0.50196E-04_JPRB,0.38710E-04_JPRB,0.11022E-04_JPRB /)  
+KA(:, 5, 5, 3) = (/ &
+ & 0.53657E-04_JPRB,0.74244E-04_JPRB,0.76813E-04_JPRB,0.75303E-04_JPRB,0.71011E-04_JPRB, &
+ & 0.64092E-04_JPRB,0.54599E-04_JPRB,0.41481E-04_JPRB,0.12225E-04_JPRB /)  
+KA(:, 1, 6, 3) = (/ &
+ & 0.27953E-04_JPRB,0.40223E-04_JPRB,0.41331E-04_JPRB,0.40332E-04_JPRB,0.38114E-04_JPRB, &
+ & 0.34967E-04_JPRB,0.31158E-04_JPRB,0.25701E-04_JPRB,0.67604E-05_JPRB /)  
+KA(:, 2, 6, 3) = (/ &
+ & 0.31595E-04_JPRB,0.44975E-04_JPRB,0.46374E-04_JPRB,0.45229E-04_JPRB,0.42775E-04_JPRB, &
+ & 0.39162E-04_JPRB,0.34373E-04_JPRB,0.27616E-04_JPRB,0.75558E-05_JPRB /)  
+KA(:, 3, 6, 3) = (/ &
+ & 0.35649E-04_JPRB,0.50263E-04_JPRB,0.51713E-04_JPRB,0.50516E-04_JPRB,0.47855E-04_JPRB, &
+ & 0.43605E-04_JPRB,0.37705E-04_JPRB,0.29800E-04_JPRB,0.84063E-05_JPRB /)  
+KA(:, 4, 6, 3) = (/ &
+ & 0.40086E-04_JPRB,0.55905E-04_JPRB,0.57584E-04_JPRB,0.56348E-04_JPRB,0.53200E-04_JPRB, &
+ & 0.48283E-04_JPRB,0.41331E-04_JPRB,0.31936E-04_JPRB,0.92686E-05_JPRB /)  
+KA(:, 5, 6, 3) = (/ &
+ & 0.44931E-04_JPRB,0.62025E-04_JPRB,0.63942E-04_JPRB,0.62498E-04_JPRB,0.58788E-04_JPRB, &
+ & 0.53032E-04_JPRB,0.45085E-04_JPRB,0.34229E-04_JPRB,0.10175E-04_JPRB /)  
+KA(:, 1, 7, 3) = (/ &
+ & 0.22829E-04_JPRB,0.33278E-04_JPRB,0.34196E-04_JPRB,0.33381E-04_JPRB,0.31444E-04_JPRB, &
+ & 0.28615E-04_JPRB,0.25331E-04_JPRB,0.21096E-04_JPRB,0.60732E-05_JPRB /)  
+KA(:, 2, 7, 3) = (/ &
+ & 0.25917E-04_JPRB,0.37424E-04_JPRB,0.38527E-04_JPRB,0.37580E-04_JPRB,0.35302E-04_JPRB, &
+ & 0.32020E-04_JPRB,0.27957E-04_JPRB,0.22660E-04_JPRB,0.68180E-05_JPRB /)  
+KA(:, 3, 7, 3) = (/ &
+ & 0.29386E-04_JPRB,0.41933E-04_JPRB,0.43213E-04_JPRB,0.42039E-04_JPRB,0.39445E-04_JPRB, &
+ & 0.35659E-04_JPRB,0.30780E-04_JPRB,0.24432E-04_JPRB,0.76296E-05_JPRB /)  
+KA(:, 4, 7, 3) = (/ &
+ & 0.33186E-04_JPRB,0.46811E-04_JPRB,0.48218E-04_JPRB,0.46849E-04_JPRB,0.43848E-04_JPRB, &
+ & 0.39567E-04_JPRB,0.33858E-04_JPRB,0.26257E-04_JPRB,0.82634E-05_JPRB /)  
+KA(:, 5, 7, 3) = (/ &
+ & 0.37227E-04_JPRB,0.52060E-04_JPRB,0.53592E-04_JPRB,0.51948E-04_JPRB,0.48471E-04_JPRB, &
+ & 0.43595E-04_JPRB,0.37022E-04_JPRB,0.28130E-04_JPRB,0.90053E-05_JPRB /)  
+KA(:, 1, 8, 3) = (/ &
+ & 0.18333E-04_JPRB,0.27259E-04_JPRB,0.27929E-04_JPRB,0.27230E-04_JPRB,0.25672E-04_JPRB, &
+ & 0.23374E-04_JPRB,0.20571E-04_JPRB,0.17333E-04_JPRB,0.54157E-05_JPRB /)  
+KA(:, 2, 8, 3) = (/ &
+ & 0.20948E-04_JPRB,0.30774E-04_JPRB,0.31604E-04_JPRB,0.30823E-04_JPRB,0.29002E-04_JPRB, &
+ & 0.26292E-04_JPRB,0.22734E-04_JPRB,0.18593E-04_JPRB,0.61669E-05_JPRB /)  
+KA(:, 3, 8, 3) = (/ &
+ & 0.23883E-04_JPRB,0.34642E-04_JPRB,0.35656E-04_JPRB,0.34670E-04_JPRB,0.32507E-04_JPRB, &
+ & 0.29303E-04_JPRB,0.25111E-04_JPRB,0.19985E-04_JPRB,0.69048E-05_JPRB /)  
+KA(:, 4, 8, 3) = (/ &
+ & 0.27098E-04_JPRB,0.38802E-04_JPRB,0.40013E-04_JPRB,0.38777E-04_JPRB,0.36214E-04_JPRB, &
+ & 0.32542E-04_JPRB,0.27674E-04_JPRB,0.21526E-04_JPRB,0.76591E-05_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART2',1,ZHOOK_HANDLE)
+END SUBROUTINE PART2
+
+
+SUBROUTINE PART3
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART3',0,ZHOOK_HANDLE)
+
+
+KA(:, 5, 8, 3) = (/ &
+ & 0.30462E-04_JPRB,0.43307E-04_JPRB,0.44596E-04_JPRB,0.43127E-04_JPRB,0.40142E-04_JPRB, &
+ & 0.35890E-04_JPRB,0.30276E-04_JPRB,0.23065E-04_JPRB,0.84480E-05_JPRB /)  
+KA(:, 1, 9, 3) = (/ &
+ & 0.14510E-04_JPRB,0.22049E-04_JPRB,0.22596E-04_JPRB,0.22021E-04_JPRB,0.20750E-04_JPRB, &
+ & 0.18895E-04_JPRB,0.16685E-04_JPRB,0.14158E-04_JPRB,0.50284E-05_JPRB /)  
+KA(:, 2, 9, 3) = (/ &
+ & 0.16710E-04_JPRB,0.25012E-04_JPRB,0.25686E-04_JPRB,0.25017E-04_JPRB,0.23537E-04_JPRB, &
+ & 0.21350E-04_JPRB,0.18517E-04_JPRB,0.15170E-04_JPRB,0.59016E-05_JPRB /)  
+KA(:, 3, 9, 3) = (/ &
+ & 0.19138E-04_JPRB,0.28271E-04_JPRB,0.29104E-04_JPRB,0.28272E-04_JPRB,0.26493E-04_JPRB, &
+ & 0.23916E-04_JPRB,0.20530E-04_JPRB,0.16297E-04_JPRB,0.68413E-05_JPRB /)  
+KA(:, 4, 9, 3) = (/ &
+ & 0.21798E-04_JPRB,0.31859E-04_JPRB,0.32802E-04_JPRB,0.31762E-04_JPRB,0.29603E-04_JPRB, &
+ & 0.26643E-04_JPRB,0.22650E-04_JPRB,0.17559E-04_JPRB,0.78093E-05_JPRB /)  
+KA(:, 5, 9, 3) = (/ &
+ & 0.24599E-04_JPRB,0.35618E-04_JPRB,0.36736E-04_JPRB,0.35456E-04_JPRB,0.32981E-04_JPRB, &
+ & 0.29459E-04_JPRB,0.24877E-04_JPRB,0.18821E-04_JPRB,0.88149E-05_JPRB /)  
+KA(:, 1,10, 3) = (/ &
+ & 0.11455E-04_JPRB,0.17796E-04_JPRB,0.18282E-04_JPRB,0.17833E-04_JPRB,0.16814E-04_JPRB, &
+ & 0.15305E-04_JPRB,0.13526E-04_JPRB,0.11628E-04_JPRB,0.47637E-05_JPRB /)  
+KA(:, 2,10, 3) = (/ &
+ & 0.13295E-04_JPRB,0.20290E-04_JPRB,0.20862E-04_JPRB,0.20316E-04_JPRB,0.19125E-04_JPRB, &
+ & 0.17348E-04_JPRB,0.15042E-04_JPRB,0.12455E-04_JPRB,0.56495E-05_JPRB /)  
+KA(:, 3,10, 3) = (/ &
+ & 0.15297E-04_JPRB,0.22994E-04_JPRB,0.23740E-04_JPRB,0.23076E-04_JPRB,0.21626E-04_JPRB, &
+ & 0.19529E-04_JPRB,0.16766E-04_JPRB,0.13399E-04_JPRB,0.65988E-05_JPRB /)  
+KA(:, 4,10, 3) = (/ &
+ & 0.17488E-04_JPRB,0.25986E-04_JPRB,0.26882E-04_JPRB,0.26021E-04_JPRB,0.24246E-04_JPRB, &
+ & 0.21820E-04_JPRB,0.18554E-04_JPRB,0.14427E-04_JPRB,0.74644E-05_JPRB /)  
+KA(:, 5,10, 3) = (/ &
+ & 0.19800E-04_JPRB,0.29160E-04_JPRB,0.30208E-04_JPRB,0.29161E-04_JPRB,0.27086E-04_JPRB, &
+ & 0.24189E-04_JPRB,0.20462E-04_JPRB,0.15474E-04_JPRB,0.84395E-05_JPRB /)  
+KA(:, 1,11, 3) = (/ &
+ & 0.96366E-05_JPRB,0.15168E-04_JPRB,0.15611E-04_JPRB,0.15230E-04_JPRB,0.14381E-04_JPRB, &
+ & 0.13058E-04_JPRB,0.11457E-04_JPRB,0.98195E-05_JPRB,0.43210E-05_JPRB /)  
+KA(:, 2,11, 3) = (/ &
+ & 0.11221E-04_JPRB,0.17304E-04_JPRB,0.17859E-04_JPRB,0.17390E-04_JPRB,0.16383E-04_JPRB, &
+ & 0.14837E-04_JPRB,0.12820E-04_JPRB,0.10541E-04_JPRB,0.50915E-05_JPRB /)  
+KA(:, 3,11, 3) = (/ &
+ & 0.12922E-04_JPRB,0.19611E-04_JPRB,0.20376E-04_JPRB,0.19769E-04_JPRB,0.18510E-04_JPRB, &
+ & 0.16733E-04_JPRB,0.14297E-04_JPRB,0.11375E-04_JPRB,0.59349E-05_JPRB /)  
+KA(:, 4,11, 3) = (/ &
+ & 0.14759E-04_JPRB,0.22226E-04_JPRB,0.23087E-04_JPRB,0.22319E-04_JPRB,0.20789E-04_JPRB, &
+ & 0.18677E-04_JPRB,0.15854E-04_JPRB,0.12233E-04_JPRB,0.68646E-05_JPRB /)  
+KA(:, 5,11, 3) = (/ &
+ & 0.16687E-04_JPRB,0.24901E-04_JPRB,0.25894E-04_JPRB,0.25020E-04_JPRB,0.23234E-04_JPRB, &
+ & 0.20746E-04_JPRB,0.17450E-04_JPRB,0.13143E-04_JPRB,0.77945E-05_JPRB /)  
+KA(:, 1,12, 3) = (/ &
+ & 0.80728E-05_JPRB,0.12833E-04_JPRB,0.13241E-04_JPRB,0.12930E-04_JPRB,0.12209E-04_JPRB, &
+ & 0.11077E-04_JPRB,0.96874E-05_JPRB,0.82518E-05_JPRB,0.36987E-05_JPRB /)  
+KA(:, 2,12, 3) = (/ &
+ & 0.94096E-05_JPRB,0.14647E-04_JPRB,0.15179E-04_JPRB,0.14789E-04_JPRB,0.13929E-04_JPRB, &
+ & 0.12614E-04_JPRB,0.10863E-04_JPRB,0.88839E-05_JPRB,0.43642E-05_JPRB /)  
+KA(:, 3,12, 3) = (/ &
+ & 0.10827E-04_JPRB,0.16625E-04_JPRB,0.17336E-04_JPRB,0.16825E-04_JPRB,0.15757E-04_JPRB, &
+ & 0.14215E-04_JPRB,0.12135E-04_JPRB,0.95702E-05_JPRB,0.51276E-05_JPRB /)  
+KA(:, 4,12, 3) = (/ &
+ & 0.12346E-04_JPRB,0.18823E-04_JPRB,0.19626E-04_JPRB,0.19011E-04_JPRB,0.17715E-04_JPRB, &
+ & 0.15891E-04_JPRB,0.13472E-04_JPRB,0.10297E-04_JPRB,0.58818E-05_JPRB /)  
+KA(:, 5,12, 3) = (/ &
+ & 0.13954E-04_JPRB,0.21071E-04_JPRB,0.21985E-04_JPRB,0.21278E-04_JPRB,0.19773E-04_JPRB, &
+ & 0.17642E-04_JPRB,0.14813E-04_JPRB,0.11109E-04_JPRB,0.66485E-05_JPRB /)  
+KA(:, 1,13, 3) = (/ &
+ & 0.67198E-05_JPRB,0.10777E-04_JPRB,0.11153E-04_JPRB,0.10900E-04_JPRB,0.10301E-04_JPRB, &
+ & 0.93345E-05_JPRB,0.81433E-05_JPRB,0.69156E-05_JPRB,0.30498E-05_JPRB /)  
+KA(:, 2,13, 3) = (/ &
+ & 0.78283E-05_JPRB,0.12283E-04_JPRB,0.12805E-04_JPRB,0.12492E-04_JPRB,0.11757E-04_JPRB, &
+ & 0.10649E-04_JPRB,0.91519E-05_JPRB,0.74495E-05_JPRB,0.36028E-05_JPRB /)  
+KA(:, 3,13, 3) = (/ &
+ & 0.89966E-05_JPRB,0.13983E-04_JPRB,0.14629E-04_JPRB,0.14218E-04_JPRB,0.13315E-04_JPRB, &
+ & 0.11990E-04_JPRB,0.10230E-04_JPRB,0.80237E-05_JPRB,0.42382E-05_JPRB /)  
+KA(:, 4,13, 3) = (/ &
+ & 0.10250E-04_JPRB,0.15794E-04_JPRB,0.16536E-04_JPRB,0.16055E-04_JPRB,0.14979E-04_JPRB, &
+ & 0.13421E-04_JPRB,0.11355E-04_JPRB,0.86371E-05_JPRB,0.48511E-05_JPRB /)  
+KA(:, 5,13, 3) = (/ &
+ & 0.11575E-04_JPRB,0.17689E-04_JPRB,0.18502E-04_JPRB,0.17950E-04_JPRB,0.16689E-04_JPRB, &
+ & 0.14883E-04_JPRB,0.12476E-04_JPRB,0.93537E-05_JPRB,0.54799E-05_JPRB /)  
+KA(:, 1, 1, 4) = (/ &
+ & 0.20313E-03_JPRB,0.26410E-03_JPRB,0.27054E-03_JPRB,0.25842E-03_JPRB,0.23794E-03_JPRB, &
+ & 0.21033E-03_JPRB,0.17730E-03_JPRB,0.13831E-03_JPRB,0.52995E-04_JPRB /)  
+KA(:, 2, 1, 4) = (/ &
+ & 0.22722E-03_JPRB,0.29058E-03_JPRB,0.29572E-03_JPRB,0.28200E-03_JPRB,0.25898E-03_JPRB, &
+ & 0.22814E-03_JPRB,0.19209E-03_JPRB,0.14957E-03_JPRB,0.59096E-04_JPRB /)  
+KA(:, 3, 1, 4) = (/ &
+ & 0.25054E-03_JPRB,0.31580E-03_JPRB,0.31991E-03_JPRB,0.30486E-03_JPRB,0.27955E-03_JPRB, &
+ & 0.24634E-03_JPRB,0.20787E-03_JPRB,0.16179E-03_JPRB,0.65118E-04_JPRB /)  
+KA(:, 4, 1, 4) = (/ &
+ & 0.27197E-03_JPRB,0.33971E-03_JPRB,0.34310E-03_JPRB,0.32677E-03_JPRB,0.30002E-03_JPRB, &
+ & 0.26574E-03_JPRB,0.22502E-03_JPRB,0.17520E-03_JPRB,0.71711E-04_JPRB /)  
+KA(:, 5, 1, 4) = (/ &
+ & 0.29178E-03_JPRB,0.36213E-03_JPRB,0.36503E-03_JPRB,0.34815E-03_JPRB,0.32114E-03_JPRB, &
+ & 0.28599E-03_JPRB,0.24328E-03_JPRB,0.18958E-03_JPRB,0.78523E-04_JPRB /)  
+KA(:, 1, 2, 4) = (/ &
+ & 0.17547E-03_JPRB,0.23012E-03_JPRB,0.23639E-03_JPRB,0.22606E-03_JPRB,0.20799E-03_JPRB, &
+ & 0.18326E-03_JPRB,0.15385E-03_JPRB,0.11888E-03_JPRB,0.43633E-04_JPRB /)  
+KA(:, 2, 2, 4) = (/ &
+ & 0.19601E-03_JPRB,0.25269E-03_JPRB,0.25751E-03_JPRB,0.24629E-03_JPRB,0.22623E-03_JPRB, &
+ & 0.19926E-03_JPRB,0.16712E-03_JPRB,0.12877E-03_JPRB,0.48382E-04_JPRB /)  
+KA(:, 3, 2, 4) = (/ &
+ & 0.21598E-03_JPRB,0.27423E-03_JPRB,0.27812E-03_JPRB,0.26576E-03_JPRB,0.24403E-03_JPRB, &
+ & 0.21552E-03_JPRB,0.18141E-03_JPRB,0.13982E-03_JPRB,0.53560E-04_JPRB /)  
+KA(:, 4, 2, 4) = (/ &
+ & 0.23449E-03_JPRB,0.29482E-03_JPRB,0.29820E-03_JPRB,0.28454E-03_JPRB,0.26171E-03_JPRB, &
+ & 0.23254E-03_JPRB,0.19681E-03_JPRB,0.15192E-03_JPRB,0.59054E-04_JPRB /)  
+KA(:, 5, 2, 4) = (/ &
+ & 0.25198E-03_JPRB,0.31408E-03_JPRB,0.31723E-03_JPRB,0.30341E-03_JPRB,0.28040E-03_JPRB, &
+ & 0.25022E-03_JPRB,0.21333E-03_JPRB,0.16487E-03_JPRB,0.64779E-04_JPRB /)  
+KA(:, 1, 3, 4) = (/ &
+ & 0.14736E-03_JPRB,0.19483E-03_JPRB,0.20065E-03_JPRB,0.19242E-03_JPRB,0.17728E-03_JPRB, &
+ & 0.15627E-03_JPRB,0.13078E-03_JPRB,0.10037E-03_JPRB,0.34217E-04_JPRB /)  
+KA(:, 2, 3, 4) = (/ &
+ & 0.16492E-03_JPRB,0.21441E-03_JPRB,0.21892E-03_JPRB,0.20980E-03_JPRB,0.19289E-03_JPRB, &
+ & 0.17000E-03_JPRB,0.14249E-03_JPRB,0.10902E-03_JPRB,0.38352E-04_JPRB /)  
+KA(:, 3, 3, 4) = (/ &
+ & 0.18200E-03_JPRB,0.23294E-03_JPRB,0.23658E-03_JPRB,0.22658E-03_JPRB,0.20822E-03_JPRB, &
+ & 0.18391E-03_JPRB,0.15484E-03_JPRB,0.11888E-03_JPRB,0.42700E-04_JPRB /)  
+KA(:, 4, 3, 4) = (/ &
+ & 0.19811E-03_JPRB,0.25094E-03_JPRB,0.25385E-03_JPRB,0.24276E-03_JPRB,0.22338E-03_JPRB, &
+ & 0.19841E-03_JPRB,0.16822E-03_JPRB,0.12943E-03_JPRB,0.47257E-04_JPRB /)  
+KA(:, 5, 3, 4) = (/ &
+ & 0.21352E-03_JPRB,0.26784E-03_JPRB,0.27027E-03_JPRB,0.25917E-03_JPRB,0.23966E-03_JPRB, &
+ & 0.21399E-03_JPRB,0.18239E-03_JPRB,0.14058E-03_JPRB,0.51997E-04_JPRB /)  
+KA(:, 1, 4, 4) = (/ &
+ & 0.12070E-03_JPRB,0.16282E-03_JPRB,0.16870E-03_JPRB,0.16215E-03_JPRB,0.14966E-03_JPRB, &
+ & 0.13195E-03_JPRB,0.11003E-03_JPRB,0.83743E-04_JPRB,0.26841E-04_JPRB /)  
+KA(:, 2, 4, 4) = (/ &
+ & 0.13616E-03_JPRB,0.17979E-03_JPRB,0.18420E-03_JPRB,0.17692E-03_JPRB,0.16288E-03_JPRB, &
+ & 0.14351E-03_JPRB,0.12000E-03_JPRB,0.91324E-04_JPRB,0.29956E-04_JPRB /)  
+KA(:, 3, 4, 4) = (/ &
+ & 0.15142E-03_JPRB,0.19606E-03_JPRB,0.19933E-03_JPRB,0.19132E-03_JPRB,0.17582E-03_JPRB, &
+ & 0.15506E-03_JPRB,0.13061E-03_JPRB,0.99881E-04_JPRB,0.33175E-04_JPRB /)  
+KA(:, 4, 4, 4) = (/ &
+ & 0.16591E-03_JPRB,0.21170E-03_JPRB,0.21421E-03_JPRB,0.20525E-03_JPRB,0.18888E-03_JPRB, &
+ & 0.16747E-03_JPRB,0.14192E-03_JPRB,0.10907E-03_JPRB,0.36625E-04_JPRB /)  
+KA(:, 5, 4, 4) = (/ &
+ & 0.17956E-03_JPRB,0.22655E-03_JPRB,0.22833E-03_JPRB,0.21949E-03_JPRB,0.20283E-03_JPRB, &
+ & 0.18086E-03_JPRB,0.15393E-03_JPRB,0.11865E-03_JPRB,0.40513E-04_JPRB /)  
+KA(:, 1, 5, 4) = (/ &
+ & 0.98625E-04_JPRB,0.13480E-03_JPRB,0.14099E-03_JPRB,0.13653E-03_JPRB,0.12600E-03_JPRB, &
+ & 0.11107E-03_JPRB,0.92102E-04_JPRB,0.69414E-04_JPRB,0.22597E-04_JPRB /)  
+KA(:, 2, 5, 4) = (/ &
+ & 0.11165E-03_JPRB,0.14975E-03_JPRB,0.15429E-03_JPRB,0.14886E-03_JPRB,0.13710E-03_JPRB, &
+ & 0.12076E-03_JPRB,0.10051E-03_JPRB,0.76046E-04_JPRB,0.25265E-04_JPRB /)  
+KA(:, 3, 5, 4) = (/ &
+ & 0.12461E-03_JPRB,0.16391E-03_JPRB,0.16725E-03_JPRB,0.16091E-03_JPRB,0.14796E-03_JPRB, &
+ & 0.13047E-03_JPRB,0.10941E-03_JPRB,0.83193E-04_JPRB,0.27962E-04_JPRB /)  
+KA(:, 4, 5, 4) = (/ &
+ & 0.13738E-03_JPRB,0.17761E-03_JPRB,0.17982E-03_JPRB,0.17281E-03_JPRB,0.15916E-03_JPRB, &
+ & 0.14087E-03_JPRB,0.11892E-03_JPRB,0.90972E-04_JPRB,0.30855E-04_JPRB /)  
+KA(:, 5, 5, 4) = (/ &
+ & 0.14967E-03_JPRB,0.19066E-03_JPRB,0.19231E-03_JPRB,0.18509E-03_JPRB,0.17109E-03_JPRB, &
+ & 0.15227E-03_JPRB,0.12906E-03_JPRB,0.99136E-04_JPRB,0.34017E-04_JPRB /)  
+KA(:, 1, 6, 4) = (/ &
+ & 0.79863E-04_JPRB,0.11034E-03_JPRB,0.11622E-03_JPRB,0.11400E-03_JPRB,0.10532E-03_JPRB, &
+ & 0.92978E-04_JPRB,0.76661E-04_JPRB,0.57287E-04_JPRB,0.18664E-04_JPRB /)  
+KA(:, 2, 6, 4) = (/ &
+ & 0.90753E-04_JPRB,0.12318E-03_JPRB,0.12766E-03_JPRB,0.12440E-03_JPRB,0.11482E-03_JPRB, &
+ & 0.10110E-03_JPRB,0.83697E-04_JPRB,0.62663E-04_JPRB,0.20928E-04_JPRB /)  
+KA(:, 3, 6, 4) = (/ &
+ & 0.10183E-03_JPRB,0.13532E-03_JPRB,0.13907E-03_JPRB,0.13464E-03_JPRB,0.12396E-03_JPRB, &
+ & 0.10925E-03_JPRB,0.90984E-04_JPRB,0.68513E-04_JPRB,0.23264E-04_JPRB /)  
+KA(:, 4, 6, 4) = (/ &
+ & 0.11293E-03_JPRB,0.14742E-03_JPRB,0.14995E-03_JPRB,0.14481E-03_JPRB,0.13354E-03_JPRB, &
+ & 0.11797E-03_JPRB,0.98845E-04_JPRB,0.74965E-04_JPRB,0.25850E-04_JPRB /)  
+KA(:, 5, 6, 4) = (/ &
+ & 0.12360E-03_JPRB,0.15914E-03_JPRB,0.16090E-03_JPRB,0.15521E-03_JPRB,0.14361E-03_JPRB, &
+ & 0.12755E-03_JPRB,0.10739E-03_JPRB,0.81915E-04_JPRB,0.28635E-04_JPRB /)  
+KA(:, 1, 7, 4) = (/ &
+ & 0.65679E-04_JPRB,0.90084E-04_JPRB,0.95681E-04_JPRB,0.94567E-04_JPRB,0.87338E-04_JPRB, &
+ & 0.77275E-04_JPRB,0.63642E-04_JPRB,0.47097E-04_JPRB,0.15508E-04_JPRB /)  
+KA(:, 2, 7, 4) = (/ &
+ & 0.74551E-04_JPRB,0.10089E-03_JPRB,0.10531E-03_JPRB,0.10327E-03_JPRB,0.95364E-04_JPRB, &
+ & 0.84154E-04_JPRB,0.69569E-04_JPRB,0.51426E-04_JPRB,0.17234E-04_JPRB /)  
+KA(:, 3, 7, 4) = (/ &
+ & 0.83584E-04_JPRB,0.11137E-03_JPRB,0.11469E-03_JPRB,0.11193E-03_JPRB,0.10325E-03_JPRB, &
+ & 0.91075E-04_JPRB,0.75479E-04_JPRB,0.56228E-04_JPRB,0.19127E-04_JPRB /)  
+KA(:, 4, 7, 4) = (/ &
+ & 0.92762E-04_JPRB,0.12171E-03_JPRB,0.12420E-03_JPRB,0.12060E-03_JPRB,0.11147E-03_JPRB, &
+ & 0.98465E-04_JPRB,0.81969E-04_JPRB,0.61529E-04_JPRB,0.21452E-04_JPRB /)  
+KA(:, 5, 7, 4) = (/ &
+ & 0.10189E-03_JPRB,0.13182E-03_JPRB,0.13364E-03_JPRB,0.12960E-03_JPRB,0.12008E-03_JPRB, &
+ & 0.10652E-03_JPRB,0.89045E-04_JPRB,0.67334E-04_JPRB,0.23711E-04_JPRB /)  
+KA(:, 1, 8, 4) = (/ &
+ & 0.53656E-04_JPRB,0.74109E-04_JPRB,0.78629E-04_JPRB,0.78245E-04_JPRB,0.72322E-04_JPRB, &
+ & 0.63915E-04_JPRB,0.52625E-04_JPRB,0.38591E-04_JPRB,0.14416E-04_JPRB /)  
+KA(:, 2, 8, 4) = (/ &
+ & 0.61163E-04_JPRB,0.83104E-04_JPRB,0.86832E-04_JPRB,0.85562E-04_JPRB,0.78992E-04_JPRB, &
+ & 0.69666E-04_JPRB,0.57574E-04_JPRB,0.42098E-04_JPRB,0.15921E-04_JPRB /)  
+KA(:, 3, 8, 4) = (/ &
+ & 0.68914E-04_JPRB,0.91909E-04_JPRB,0.94594E-04_JPRB,0.92816E-04_JPRB,0.85590E-04_JPRB, &
+ & 0.75491E-04_JPRB,0.62445E-04_JPRB,0.46109E-04_JPRB,0.17209E-04_JPRB /)  
+KA(:, 4, 8, 4) = (/ &
+ & 0.76847E-04_JPRB,0.10059E-03_JPRB,0.10256E-03_JPRB,0.10019E-03_JPRB,0.92496E-04_JPRB, &
+ & 0.81729E-04_JPRB,0.67763E-04_JPRB,0.50445E-04_JPRB,0.18589E-04_JPRB /)  
+KA(:, 5, 8, 4) = (/ &
+ & 0.84847E-04_JPRB,0.10902E-03_JPRB,0.11071E-03_JPRB,0.10784E-03_JPRB,0.99812E-04_JPRB, &
+ & 0.88516E-04_JPRB,0.73718E-04_JPRB,0.55250E-04_JPRB,0.20194E-04_JPRB /)  
+KA(:, 1, 9, 4) = (/ &
+ & 0.43346E-04_JPRB,0.60608E-04_JPRB,0.64818E-04_JPRB,0.64681E-04_JPRB,0.59655E-04_JPRB, &
+ & 0.52617E-04_JPRB,0.43206E-04_JPRB,0.31573E-04_JPRB,0.14696E-04_JPRB /)  
+KA(:, 2, 9, 4) = (/ &
+ & 0.49669E-04_JPRB,0.68380E-04_JPRB,0.71800E-04_JPRB,0.70860E-04_JPRB,0.65260E-04_JPRB, &
+ & 0.57496E-04_JPRB,0.47313E-04_JPRB,0.34405E-04_JPRB,0.16164E-04_JPRB /)  
+KA(:, 3, 9, 4) = (/ &
+ & 0.56274E-04_JPRB,0.76040E-04_JPRB,0.78454E-04_JPRB,0.76944E-04_JPRB,0.70665E-04_JPRB, &
+ & 0.62347E-04_JPRB,0.51383E-04_JPRB,0.37665E-04_JPRB,0.17841E-04_JPRB /)  
+KA(:, 4, 9, 4) = (/ &
+ & 0.63127E-04_JPRB,0.83451E-04_JPRB,0.85178E-04_JPRB,0.83082E-04_JPRB,0.76437E-04_JPRB, &
+ & 0.67538E-04_JPRB,0.55797E-04_JPRB,0.41264E-04_JPRB,0.19504E-04_JPRB /)  
+KA(:, 5, 9, 4) = (/ &
+ & 0.70124E-04_JPRB,0.90807E-04_JPRB,0.91960E-04_JPRB,0.89432E-04_JPRB,0.82527E-04_JPRB, &
+ & 0.73176E-04_JPRB,0.60668E-04_JPRB,0.45179E-04_JPRB,0.20992E-04_JPRB /)  
+KA(:, 1,10, 4) = (/ &
+ & 0.35059E-04_JPRB,0.49531E-04_JPRB,0.53376E-04_JPRB,0.53665E-04_JPRB,0.49644E-04_JPRB, &
+ & 0.43592E-04_JPRB,0.35609E-04_JPRB,0.25845E-04_JPRB,0.13231E-04_JPRB /)  
+KA(:, 2,10, 4) = (/ &
+ & 0.40376E-04_JPRB,0.56174E-04_JPRB,0.59502E-04_JPRB,0.59040E-04_JPRB,0.54399E-04_JPRB, &
+ & 0.47687E-04_JPRB,0.39007E-04_JPRB,0.28189E-04_JPRB,0.15223E-04_JPRB /)  
+KA(:, 3,10, 4) = (/ &
+ & 0.46006E-04_JPRB,0.62899E-04_JPRB,0.65214E-04_JPRB,0.64178E-04_JPRB,0.58976E-04_JPRB, &
+ & 0.51726E-04_JPRB,0.42386E-04_JPRB,0.30843E-04_JPRB,0.17241E-04_JPRB /)  
+KA(:, 4,10, 4) = (/ &
+ & 0.51905E-04_JPRB,0.69395E-04_JPRB,0.70988E-04_JPRB,0.69461E-04_JPRB,0.63801E-04_JPRB, &
+ & 0.56040E-04_JPRB,0.46059E-04_JPRB,0.33831E-04_JPRB,0.19714E-04_JPRB /)  
+KA(:, 5,10, 4) = (/ &
+ & 0.57990E-04_JPRB,0.75737E-04_JPRB,0.76826E-04_JPRB,0.74718E-04_JPRB,0.68839E-04_JPRB, &
+ & 0.60664E-04_JPRB,0.50105E-04_JPRB,0.37049E-04_JPRB,0.22308E-04_JPRB /)  
+KA(:, 1,11, 4) = (/ &
+ & 0.30150E-04_JPRB,0.42738E-04_JPRB,0.46011E-04_JPRB,0.46330E-04_JPRB,0.42907E-04_JPRB, &
+ & 0.37605E-04_JPRB,0.30702E-04_JPRB,0.21962E-04_JPRB,0.11791E-04_JPRB /)  
+KA(:, 2,11, 4) = (/ &
+ & 0.34714E-04_JPRB,0.48516E-04_JPRB,0.51120E-04_JPRB,0.50726E-04_JPRB,0.46912E-04_JPRB, &
+ & 0.41033E-04_JPRB,0.33505E-04_JPRB,0.23952E-04_JPRB,0.13242E-04_JPRB /)  
+KA(:, 3,11, 4) = (/ &
+ & 0.39649E-04_JPRB,0.54325E-04_JPRB,0.56146E-04_JPRB,0.55270E-04_JPRB,0.50902E-04_JPRB, &
+ & 0.44559E-04_JPRB,0.36351E-04_JPRB,0.26266E-04_JPRB,0.15075E-04_JPRB /)  
+KA(:, 4,11, 4) = (/ &
+ & 0.44779E-04_JPRB,0.59893E-04_JPRB,0.61166E-04_JPRB,0.59766E-04_JPRB,0.55070E-04_JPRB, &
+ & 0.48303E-04_JPRB,0.39491E-04_JPRB,0.28847E-04_JPRB,0.17164E-04_JPRB /)  
+KA(:, 5,11, 4) = (/ &
+ & 0.49946E-04_JPRB,0.65411E-04_JPRB,0.66256E-04_JPRB,0.64345E-04_JPRB,0.59474E-04_JPRB, &
+ & 0.52287E-04_JPRB,0.43003E-04_JPRB,0.31612E-04_JPRB,0.19542E-04_JPRB /)  
+KA(:, 1,12, 4) = (/ &
+ & 0.25681E-04_JPRB,0.36622E-04_JPRB,0.39428E-04_JPRB,0.39582E-04_JPRB,0.36786E-04_JPRB, &
+ & 0.32210E-04_JPRB,0.26270E-04_JPRB,0.18629E-04_JPRB,0.10035E-04_JPRB /)  
+KA(:, 2,12, 4) = (/ &
+ & 0.29636E-04_JPRB,0.41620E-04_JPRB,0.43701E-04_JPRB,0.43425E-04_JPRB,0.40150E-04_JPRB, &
+ & 0.35105E-04_JPRB,0.28637E-04_JPRB,0.20365E-04_JPRB,0.11416E-04_JPRB /)  
+KA(:, 3,12, 4) = (/ &
+ & 0.33921E-04_JPRB,0.46628E-04_JPRB,0.48062E-04_JPRB,0.47301E-04_JPRB,0.43633E-04_JPRB, &
+ & 0.38189E-04_JPRB,0.31133E-04_JPRB,0.22405E-04_JPRB,0.12946E-04_JPRB /)  
+KA(:, 4,12, 4) = (/ &
+ & 0.38341E-04_JPRB,0.51401E-04_JPRB,0.52457E-04_JPRB,0.51129E-04_JPRB,0.47238E-04_JPRB, &
+ & 0.41429E-04_JPRB,0.33905E-04_JPRB,0.24546E-04_JPRB,0.14770E-04_JPRB /)  
+KA(:, 5,12, 4) = (/ &
+ & 0.42576E-04_JPRB,0.56153E-04_JPRB,0.56863E-04_JPRB,0.55182E-04_JPRB,0.51113E-04_JPRB, &
+ & 0.44940E-04_JPRB,0.36987E-04_JPRB,0.26898E-04_JPRB,0.16865E-04_JPRB /)  
+KA(:, 1,13, 4) = (/ &
+ & 0.21707E-04_JPRB,0.31142E-04_JPRB,0.33487E-04_JPRB,0.33650E-04_JPRB,0.31301E-04_JPRB, &
+ & 0.27396E-04_JPRB,0.22352E-04_JPRB,0.15744E-04_JPRB,0.83005E-05_JPRB /)  
+KA(:, 2,13, 4) = (/ &
+ & 0.25112E-04_JPRB,0.35474E-04_JPRB,0.37158E-04_JPRB,0.36970E-04_JPRB,0.34170E-04_JPRB, &
+ & 0.29871E-04_JPRB,0.24361E-04_JPRB,0.17312E-04_JPRB,0.93559E-05_JPRB /)  
+KA(:, 3,13, 4) = (/ &
+ & 0.28762E-04_JPRB,0.39712E-04_JPRB,0.40924E-04_JPRB,0.40199E-04_JPRB,0.37169E-04_JPRB, &
+ & 0.32565E-04_JPRB,0.26566E-04_JPRB,0.19074E-04_JPRB,0.10670E-04_JPRB /)  
+KA(:, 4,13, 4) = (/ &
+ & 0.32448E-04_JPRB,0.43808E-04_JPRB,0.44734E-04_JPRB,0.43534E-04_JPRB,0.40323E-04_JPRB, &
+ & 0.35367E-04_JPRB,0.29011E-04_JPRB,0.20897E-04_JPRB,0.12240E-04_JPRB /)  
+KA(:, 5,13, 4) = (/ &
+ & 0.35905E-04_JPRB,0.47771E-04_JPRB,0.48482E-04_JPRB,0.47094E-04_JPRB,0.43703E-04_JPRB, &
+ & 0.38474E-04_JPRB,0.31715E-04_JPRB,0.22899E-04_JPRB,0.13958E-04_JPRB /)  
+KA(:, 1, 1, 5) = (/ &
+ & 0.50328E-03_JPRB,0.59028E-03_JPRB,0.59973E-03_JPRB,0.58955E-03_JPRB,0.56685E-03_JPRB, &
+ & 0.50893E-03_JPRB,0.43098E-03_JPRB,0.31518E-03_JPRB,0.12599E-03_JPRB /)  
+KA(:, 2, 1, 5) = (/ &
+ & 0.53454E-03_JPRB,0.62581E-03_JPRB,0.63729E-03_JPRB,0.62588E-03_JPRB,0.59902E-03_JPRB, &
+ & 0.54179E-03_JPRB,0.45928E-03_JPRB,0.33824E-03_JPRB,0.13937E-03_JPRB /)  
+KA(:, 3, 1, 5) = (/ &
+ & 0.56216E-03_JPRB,0.66315E-03_JPRB,0.67707E-03_JPRB,0.66553E-03_JPRB,0.63545E-03_JPRB, &
+ & 0.57719E-03_JPRB,0.48913E-03_JPRB,0.36332E-03_JPRB,0.15548E-03_JPRB /)  
+KA(:, 4, 1, 5) = (/ &
+ & 0.58821E-03_JPRB,0.70231E-03_JPRB,0.71934E-03_JPRB,0.70828E-03_JPRB,0.67637E-03_JPRB, &
+ & 0.61438E-03_JPRB,0.52042E-03_JPRB,0.38978E-03_JPRB,0.17254E-03_JPRB /)  
+KA(:, 5, 1, 5) = (/ &
+ & 0.61349E-03_JPRB,0.74309E-03_JPRB,0.76503E-03_JPRB,0.75486E-03_JPRB,0.71943E-03_JPRB, &
+ & 0.65213E-03_JPRB,0.55331E-03_JPRB,0.41818E-03_JPRB,0.19176E-03_JPRB /)  
+KA(:, 1, 2, 5) = (/ &
+ & 0.43720E-03_JPRB,0.51117E-03_JPRB,0.51919E-03_JPRB,0.50988E-03_JPRB,0.48875E-03_JPRB, &
+ & 0.44138E-03_JPRB,0.37418E-03_JPRB,0.27478E-03_JPRB,0.10374E-03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART3',1,ZHOOK_HANDLE)
+END SUBROUTINE PART3
+
+
+SUBROUTINE PART4
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART4',0,ZHOOK_HANDLE)
+
+
+KA(:, 2, 2, 5) = (/ &
+ & 0.46400E-03_JPRB,0.54460E-03_JPRB,0.55429E-03_JPRB,0.54395E-03_JPRB,0.52067E-03_JPRB, &
+ & 0.47118E-03_JPRB,0.39949E-03_JPRB,0.29546E-03_JPRB,0.11585E-03_JPRB /)  
+KA(:, 3, 2, 5) = (/ &
+ & 0.48798E-03_JPRB,0.57940E-03_JPRB,0.59177E-03_JPRB,0.58113E-03_JPRB,0.55553E-03_JPRB, &
+ & 0.50290E-03_JPRB,0.42588E-03_JPRB,0.31727E-03_JPRB,0.12872E-03_JPRB /)  
+KA(:, 4, 2, 5) = (/ &
+ & 0.51088E-03_JPRB,0.61529E-03_JPRB,0.63115E-03_JPRB,0.62163E-03_JPRB,0.59296E-03_JPRB, &
+ & 0.53614E-03_JPRB,0.45317E-03_JPRB,0.34070E-03_JPRB,0.14334E-03_JPRB /)  
+KA(:, 5, 2, 5) = (/ &
+ & 0.53331E-03_JPRB,0.65233E-03_JPRB,0.67270E-03_JPRB,0.66363E-03_JPRB,0.63091E-03_JPRB, &
+ & 0.57023E-03_JPRB,0.48253E-03_JPRB,0.36597E-03_JPRB,0.15947E-03_JPRB /)  
+KA(:, 1, 3, 5) = (/ &
+ & 0.37168E-03_JPRB,0.43544E-03_JPRB,0.44351E-03_JPRB,0.43496E-03_JPRB,0.41418E-03_JPRB, &
+ & 0.37673E-03_JPRB,0.31849E-03_JPRB,0.23373E-03_JPRB,0.83035E-04_JPRB /)  
+KA(:, 2, 3, 5) = (/ &
+ & 0.39476E-03_JPRB,0.46532E-03_JPRB,0.47527E-03_JPRB,0.46587E-03_JPRB,0.44394E-03_JPRB, &
+ & 0.40288E-03_JPRB,0.34052E-03_JPRB,0.25172E-03_JPRB,0.92363E-04_JPRB /)  
+KA(:, 3, 3, 5) = (/ &
+ & 0.41559E-03_JPRB,0.49597E-03_JPRB,0.50880E-03_JPRB,0.49944E-03_JPRB,0.47605E-03_JPRB, &
+ & 0.43138E-03_JPRB,0.36384E-03_JPRB,0.27063E-03_JPRB,0.10327E-03_JPRB /)  
+KA(:, 4, 3, 5) = (/ &
+ & 0.43551E-03_JPRB,0.52738E-03_JPRB,0.54357E-03_JPRB,0.53553E-03_JPRB,0.50924E-03_JPRB, &
+ & 0.46069E-03_JPRB,0.38844E-03_JPRB,0.29089E-03_JPRB,0.11548E-03_JPRB /)  
+KA(:, 5, 3, 5) = (/ &
+ & 0.45509E-03_JPRB,0.56036E-03_JPRB,0.58045E-03_JPRB,0.57279E-03_JPRB,0.54320E-03_JPRB, &
+ & 0.49088E-03_JPRB,0.41461E-03_JPRB,0.31304E-03_JPRB,0.12901E-03_JPRB /)  
+KA(:, 1, 4, 5) = (/ &
+ & 0.31353E-03_JPRB,0.36800E-03_JPRB,0.37478E-03_JPRB,0.36628E-03_JPRB,0.34818E-03_JPRB, &
+ & 0.31938E-03_JPRB,0.26882E-03_JPRB,0.19725E-03_JPRB,0.65143E-04_JPRB /)  
+KA(:, 2, 4, 5) = (/ &
+ & 0.33327E-03_JPRB,0.39347E-03_JPRB,0.40240E-03_JPRB,0.39421E-03_JPRB,0.37500E-03_JPRB, &
+ & 0.34245E-03_JPRB,0.28782E-03_JPRB,0.21247E-03_JPRB,0.72911E-04_JPRB /)  
+KA(:, 3, 4, 5) = (/ &
+ & 0.35116E-03_JPRB,0.41935E-03_JPRB,0.43125E-03_JPRB,0.42396E-03_JPRB,0.40374E-03_JPRB, &
+ & 0.36745E-03_JPRB,0.30851E-03_JPRB,0.22861E-03_JPRB,0.82223E-04_JPRB /)  
+KA(:, 4, 4, 5) = (/ &
+ & 0.36817E-03_JPRB,0.44654E-03_JPRB,0.46141E-03_JPRB,0.45505E-03_JPRB,0.43257E-03_JPRB, &
+ & 0.39339E-03_JPRB,0.33051E-03_JPRB,0.24594E-03_JPRB,0.92524E-04_JPRB /)  
+KA(:, 5, 4, 5) = (/ &
+ & 0.38502E-03_JPRB,0.47537E-03_JPRB,0.49387E-03_JPRB,0.48730E-03_JPRB,0.46233E-03_JPRB, &
+ & 0.42007E-03_JPRB,0.35374E-03_JPRB,0.26504E-03_JPRB,0.10363E-03_JPRB /)  
+KA(:, 1, 5, 5) = (/ &
+ & 0.26371E-03_JPRB,0.30958E-03_JPRB,0.31480E-03_JPRB,0.30643E-03_JPRB,0.29119E-03_JPRB, &
+ & 0.26781E-03_JPRB,0.22601E-03_JPRB,0.16580E-03_JPRB,0.51526E-04_JPRB /)  
+KA(:, 2, 5, 5) = (/ &
+ & 0.28046E-03_JPRB,0.33149E-03_JPRB,0.33831E-03_JPRB,0.33074E-03_JPRB,0.31455E-03_JPRB, &
+ & 0.28912E-03_JPRB,0.24254E-03_JPRB,0.17884E-03_JPRB,0.57544E-04_JPRB /)  
+KA(:, 3, 5, 5) = (/ &
+ & 0.29571E-03_JPRB,0.35368E-03_JPRB,0.36281E-03_JPRB,0.35630E-03_JPRB,0.33882E-03_JPRB, &
+ & 0.31097E-03_JPRB,0.26070E-03_JPRB,0.19272E-03_JPRB,0.64519E-04_JPRB /)  
+KA(:, 4, 5, 5) = (/ &
+ & 0.31016E-03_JPRB,0.37666E-03_JPRB,0.38893E-03_JPRB,0.38273E-03_JPRB,0.36412E-03_JPRB, &
+ & 0.33364E-03_JPRB,0.28016E-03_JPRB,0.20757E-03_JPRB,0.72363E-04_JPRB /)  
+KA(:, 5, 5, 5) = (/ &
+ & 0.32452E-03_JPRB,0.40122E-03_JPRB,0.41666E-03_JPRB,0.41046E-03_JPRB,0.39013E-03_JPRB, &
+ & 0.35668E-03_JPRB,0.30056E-03_JPRB,0.22388E-03_JPRB,0.80981E-04_JPRB /)  
+KA(:, 1, 6, 5) = (/ &
+ & 0.22069E-03_JPRB,0.25888E-03_JPRB,0.26323E-03_JPRB,0.25479E-03_JPRB,0.24246E-03_JPRB, &
+ & 0.22303E-03_JPRB,0.18865E-03_JPRB,0.13826E-03_JPRB,0.42586E-04_JPRB /)  
+KA(:, 2, 6, 5) = (/ &
+ & 0.23505E-03_JPRB,0.27730E-03_JPRB,0.28289E-03_JPRB,0.27510E-03_JPRB,0.26179E-03_JPRB, &
+ & 0.24147E-03_JPRB,0.20303E-03_JPRB,0.14956E-03_JPRB,0.47728E-04_JPRB /)  
+KA(:, 3, 6, 5) = (/ &
+ & 0.24799E-03_JPRB,0.29644E-03_JPRB,0.30324E-03_JPRB,0.29696E-03_JPRB,0.28190E-03_JPRB, &
+ & 0.26059E-03_JPRB,0.21889E-03_JPRB,0.16173E-03_JPRB,0.53804E-04_JPRB /)  
+KA(:, 4, 6, 5) = (/ &
+ & 0.26027E-03_JPRB,0.31607E-03_JPRB,0.32548E-03_JPRB,0.31928E-03_JPRB,0.30338E-03_JPRB, &
+ & 0.27984E-03_JPRB,0.23536E-03_JPRB,0.17457E-03_JPRB,0.60579E-04_JPRB /)  
+KA(:, 5, 6, 5) = (/ &
+ & 0.27261E-03_JPRB,0.33682E-03_JPRB,0.34889E-03_JPRB,0.34299E-03_JPRB,0.32589E-03_JPRB, &
+ & 0.29875E-03_JPRB,0.25286E-03_JPRB,0.18852E-03_JPRB,0.67802E-04_JPRB /)  
+KA(:, 1, 7, 5) = (/ &
+ & 0.18284E-03_JPRB,0.21563E-03_JPRB,0.21874E-03_JPRB,0.21147E-03_JPRB,0.20158E-03_JPRB, &
+ & 0.18535E-03_JPRB,0.15699E-03_JPRB,0.11455E-03_JPRB,0.35095E-04_JPRB /)  
+KA(:, 2, 7, 5) = (/ &
+ & 0.19537E-03_JPRB,0.23122E-03_JPRB,0.23571E-03_JPRB,0.22829E-03_JPRB,0.21760E-03_JPRB, &
+ & 0.20013E-03_JPRB,0.16934E-03_JPRB,0.12429E-03_JPRB,0.39853E-04_JPRB /)  
+KA(:, 3, 7, 5) = (/ &
+ & 0.20672E-03_JPRB,0.24731E-03_JPRB,0.25313E-03_JPRB,0.24636E-03_JPRB,0.23401E-03_JPRB, &
+ & 0.21622E-03_JPRB,0.18276E-03_JPRB,0.13469E-03_JPRB,0.45173E-04_JPRB /)  
+KA(:, 4, 7, 5) = (/ &
+ & 0.21741E-03_JPRB,0.26399E-03_JPRB,0.27153E-03_JPRB,0.26539E-03_JPRB,0.25198E-03_JPRB, &
+ & 0.23212E-03_JPRB,0.19655E-03_JPRB,0.14593E-03_JPRB,0.50910E-04_JPRB /)  
+KA(:, 5, 7, 5) = (/ &
+ & 0.22822E-03_JPRB,0.28170E-03_JPRB,0.29118E-03_JPRB,0.28544E-03_JPRB,0.27112E-03_JPRB, &
+ & 0.24842E-03_JPRB,0.21129E-03_JPRB,0.15803E-03_JPRB,0.57288E-04_JPRB /)  
+KA(:, 1, 8, 5) = (/ &
+ & 0.15136E-03_JPRB,0.17854E-03_JPRB,0.18119E-03_JPRB,0.17535E-03_JPRB,0.16721E-03_JPRB, &
+ & 0.15392E-03_JPRB,0.13041E-03_JPRB,0.94463E-04_JPRB,0.29176E-04_JPRB /)  
+KA(:, 2, 8, 5) = (/ &
+ & 0.16197E-03_JPRB,0.19183E-03_JPRB,0.19544E-03_JPRB,0.18940E-03_JPRB,0.18045E-03_JPRB, &
+ & 0.16606E-03_JPRB,0.14094E-03_JPRB,0.10292E-03_JPRB,0.33234E-04_JPRB /)  
+KA(:, 3, 8, 5) = (/ &
+ & 0.17149E-03_JPRB,0.20540E-03_JPRB,0.21055E-03_JPRB,0.20432E-03_JPRB,0.19421E-03_JPRB, &
+ & 0.17914E-03_JPRB,0.15214E-03_JPRB,0.11170E-03_JPRB,0.37987E-04_JPRB /)  
+KA(:, 4, 8, 5) = (/ &
+ & 0.18048E-03_JPRB,0.21966E-03_JPRB,0.22618E-03_JPRB,0.22017E-03_JPRB,0.20926E-03_JPRB, &
+ & 0.19215E-03_JPRB,0.16364E-03_JPRB,0.12118E-03_JPRB,0.43249E-04_JPRB /)  
+KA(:, 5, 8, 5) = (/ &
+ & 0.18968E-03_JPRB,0.23496E-03_JPRB,0.24258E-03_JPRB,0.23712E-03_JPRB,0.22524E-03_JPRB, &
+ & 0.20589E-03_JPRB,0.17598E-03_JPRB,0.13139E-03_JPRB,0.48772E-04_JPRB /)  
+KA(:, 1, 9, 5) = (/ &
+ & 0.12535E-03_JPRB,0.14733E-03_JPRB,0.14911E-03_JPRB,0.14464E-03_JPRB,0.13810E-03_JPRB, &
+ & 0.12766E-03_JPRB,0.10804E-03_JPRB,0.77667E-04_JPRB,0.31607E-04_JPRB /)  
+KA(:, 2, 9, 5) = (/ &
+ & 0.13428E-03_JPRB,0.15826E-03_JPRB,0.16122E-03_JPRB,0.15658E-03_JPRB,0.14914E-03_JPRB, &
+ & 0.13752E-03_JPRB,0.11655E-03_JPRB,0.84956E-04_JPRB,0.35832E-04_JPRB /)  
+KA(:, 3, 9, 5) = (/ &
+ & 0.14212E-03_JPRB,0.16949E-03_JPRB,0.17392E-03_JPRB,0.16905E-03_JPRB,0.16073E-03_JPRB, &
+ & 0.14802E-03_JPRB,0.12582E-03_JPRB,0.92269E-04_JPRB,0.39990E-04_JPRB /)  
+KA(:, 4, 9, 5) = (/ &
+ & 0.14955E-03_JPRB,0.18151E-03_JPRB,0.18720E-03_JPRB,0.18233E-03_JPRB,0.17343E-03_JPRB, &
+ & 0.15845E-03_JPRB,0.13559E-03_JPRB,0.99998E-04_JPRB,0.44405E-04_JPRB /)  
+KA(:, 5, 9, 5) = (/ &
+ & 0.15720E-03_JPRB,0.19441E-03_JPRB,0.20115E-03_JPRB,0.19658E-03_JPRB,0.18679E-03_JPRB, &
+ & 0.17045E-03_JPRB,0.14597E-03_JPRB,0.10853E-03_JPRB,0.48354E-04_JPRB /)  
+KA(:, 1,10, 5) = (/ &
+ & 0.10518E-03_JPRB,0.12283E-03_JPRB,0.12342E-03_JPRB,0.11933E-03_JPRB,0.11376E-03_JPRB, &
+ & 0.10615E-03_JPRB,0.89610E-04_JPRB,0.64322E-04_JPRB,0.38897E-04_JPRB /)  
+KA(:, 2,10, 5) = (/ &
+ & 0.11277E-03_JPRB,0.13167E-03_JPRB,0.13319E-03_JPRB,0.12937E-03_JPRB,0.12328E-03_JPRB, &
+ & 0.11434E-03_JPRB,0.96637E-04_JPRB,0.70434E-04_JPRB,0.44697E-04_JPRB /)  
+KA(:, 3,10, 5) = (/ &
+ & 0.11946E-03_JPRB,0.14071E-03_JPRB,0.14389E-03_JPRB,0.14002E-03_JPRB,0.13292E-03_JPRB, &
+ & 0.12246E-03_JPRB,0.10436E-03_JPRB,0.76473E-04_JPRB,0.50672E-04_JPRB /)  
+KA(:, 4,10, 5) = (/ &
+ & 0.12573E-03_JPRB,0.15045E-03_JPRB,0.15515E-03_JPRB,0.15121E-03_JPRB,0.14368E-03_JPRB, &
+ & 0.13136E-03_JPRB,0.11260E-03_JPRB,0.82864E-04_JPRB,0.56090E-04_JPRB /)  
+KA(:, 5,10, 5) = (/ &
+ & 0.13210E-03_JPRB,0.16128E-03_JPRB,0.16701E-03_JPRB,0.16339E-03_JPRB,0.15508E-03_JPRB, &
+ & 0.14154E-03_JPRB,0.12132E-03_JPRB,0.89973E-04_JPRB,0.61017E-04_JPRB /)  
+KA(:, 1,11, 5) = (/ &
+ & 0.90693E-04_JPRB,0.10606E-03_JPRB,0.10639E-03_JPRB,0.10214E-03_JPRB,0.97041E-04_JPRB, &
+ & 0.90929E-04_JPRB,0.76654E-04_JPRB,0.55448E-04_JPRB,0.34971E-04_JPRB /)  
+KA(:, 2,11, 5) = (/ &
+ & 0.96878E-04_JPRB,0.11346E-03_JPRB,0.11478E-03_JPRB,0.11094E-03_JPRB,0.10496E-03_JPRB, &
+ & 0.97427E-04_JPRB,0.82680E-04_JPRB,0.60468E-04_JPRB,0.41599E-04_JPRB /)  
+KA(:, 3,11, 5) = (/ &
+ & 0.10232E-03_JPRB,0.12125E-03_JPRB,0.12365E-03_JPRB,0.11979E-03_JPRB,0.11346E-03_JPRB, &
+ & 0.10430E-03_JPRB,0.89390E-04_JPRB,0.65549E-04_JPRB,0.48186E-04_JPRB /)  
+KA(:, 4,11, 5) = (/ &
+ & 0.10772E-03_JPRB,0.12969E-03_JPRB,0.13316E-03_JPRB,0.12963E-03_JPRB,0.12290E-03_JPRB, &
+ & 0.11234E-03_JPRB,0.96526E-04_JPRB,0.71097E-04_JPRB,0.54537E-04_JPRB /)  
+KA(:, 5,11, 5) = (/ &
+ & 0.11345E-03_JPRB,0.13912E-03_JPRB,0.14339E-03_JPRB,0.14025E-03_JPRB,0.13275E-03_JPRB, &
+ & 0.12106E-03_JPRB,0.10412E-03_JPRB,0.77240E-04_JPRB,0.60238E-04_JPRB /)  
+KA(:, 1,12, 5) = (/ &
+ & 0.77577E-04_JPRB,0.91005E-04_JPRB,0.91202E-04_JPRB,0.87618E-04_JPRB,0.82974E-04_JPRB, &
+ & 0.77488E-04_JPRB,0.65261E-04_JPRB,0.47539E-04_JPRB,0.30516E-04_JPRB /)  
+KA(:, 2,12, 5) = (/ &
+ & 0.82612E-04_JPRB,0.97349E-04_JPRB,0.98497E-04_JPRB,0.95069E-04_JPRB,0.89699E-04_JPRB, &
+ & 0.82714E-04_JPRB,0.70478E-04_JPRB,0.51645E-04_JPRB,0.35968E-04_JPRB /)  
+KA(:, 3,12, 5) = (/ &
+ & 0.87206E-04_JPRB,0.10402E-03_JPRB,0.10625E-03_JPRB,0.10294E-03_JPRB,0.97013E-04_JPRB, &
+ & 0.88723E-04_JPRB,0.76259E-04_JPRB,0.55960E-04_JPRB,0.41899E-04_JPRB /)  
+KA(:, 4,12, 5) = (/ &
+ & 0.91929E-04_JPRB,0.11153E-03_JPRB,0.11462E-03_JPRB,0.11153E-03_JPRB,0.10500E-03_JPRB, &
+ & 0.95633E-04_JPRB,0.82267E-04_JPRB,0.60868E-04_JPRB,0.48100E-04_JPRB /)  
+KA(:, 5,12, 5) = (/ &
+ & 0.97101E-04_JPRB,0.11996E-03_JPRB,0.12377E-03_JPRB,0.12058E-03_JPRB,0.11342E-03_JPRB, &
+ & 0.10316E-03_JPRB,0.88884E-04_JPRB,0.66077E-04_JPRB,0.53563E-04_JPRB /)  
+KA(:, 1,13, 5) = (/ &
+ & 0.65838E-04_JPRB,0.77620E-04_JPRB,0.77829E-04_JPRB,0.74661E-04_JPRB,0.70473E-04_JPRB, &
+ & 0.65575E-04_JPRB,0.55474E-04_JPRB,0.40441E-04_JPRB,0.25521E-04_JPRB /)  
+KA(:, 2,13, 5) = (/ &
+ & 0.69998E-04_JPRB,0.83015E-04_JPRB,0.84103E-04_JPRB,0.81066E-04_JPRB,0.76507E-04_JPRB, &
+ & 0.70172E-04_JPRB,0.59914E-04_JPRB,0.43882E-04_JPRB,0.30126E-04_JPRB /)  
+KA(:, 3,13, 5) = (/ &
+ & 0.74003E-04_JPRB,0.88878E-04_JPRB,0.90840E-04_JPRB,0.88139E-04_JPRB,0.82951E-04_JPRB, &
+ & 0.75471E-04_JPRB,0.64689E-04_JPRB,0.47652E-04_JPRB,0.35171E-04_JPRB /)  
+KA(:, 4,13, 5) = (/ &
+ & 0.78234E-04_JPRB,0.95561E-04_JPRB,0.98237E-04_JPRB,0.95653E-04_JPRB,0.89770E-04_JPRB, &
+ & 0.81434E-04_JPRB,0.69913E-04_JPRB,0.51882E-04_JPRB,0.40221E-04_JPRB /)  
+KA(:, 5,13, 5) = (/ &
+ & 0.82825E-04_JPRB,0.10313E-03_JPRB,0.10644E-03_JPRB,0.10352E-03_JPRB,0.97040E-04_JPRB, &
+ & 0.87602E-04_JPRB,0.75532E-04_JPRB,0.56387E-04_JPRB,0.44675E-04_JPRB /)  
+KA(:, 1, 1, 6) = (/ &
+ & 0.10615E-02_JPRB,0.12529E-02_JPRB,0.13083E-02_JPRB,0.12764E-02_JPRB,0.11881E-02_JPRB, &
+ & 0.10853E-02_JPRB,0.93421E-03_JPRB,0.71644E-03_JPRB,0.30757E-03_JPRB /)  
+KA(:, 2, 1, 6) = (/ &
+ & 0.10918E-02_JPRB,0.13136E-02_JPRB,0.13677E-02_JPRB,0.13350E-02_JPRB,0.12522E-02_JPRB, &
+ & 0.11402E-02_JPRB,0.98392E-03_JPRB,0.76040E-03_JPRB,0.35125E-03_JPRB /)  
+KA(:, 3, 1, 6) = (/ &
+ & 0.11297E-02_JPRB,0.13742E-02_JPRB,0.14266E-02_JPRB,0.13956E-02_JPRB,0.13143E-02_JPRB, &
+ & 0.11951E-02_JPRB,0.10359E-02_JPRB,0.81032E-03_JPRB,0.39829E-03_JPRB /)  
+KA(:, 4, 1, 6) = (/ &
+ & 0.11716E-02_JPRB,0.14330E-02_JPRB,0.14865E-02_JPRB,0.14580E-02_JPRB,0.13738E-02_JPRB, &
+ & 0.12536E-02_JPRB,0.10931E-02_JPRB,0.86605E-03_JPRB,0.44907E-03_JPRB /)  
+KA(:, 5, 1, 6) = (/ &
+ & 0.12137E-02_JPRB,0.14919E-02_JPRB,0.15477E-02_JPRB,0.15196E-02_JPRB,0.14358E-02_JPRB, &
+ & 0.13166E-02_JPRB,0.11546E-02_JPRB,0.92748E-03_JPRB,0.50593E-03_JPRB /)  
+KA(:, 1, 2, 6) = (/ &
+ & 0.92435E-03_JPRB,0.10874E-02_JPRB,0.11275E-02_JPRB,0.11015E-02_JPRB,0.10311E-02_JPRB, &
+ & 0.94231E-03_JPRB,0.80960E-03_JPRB,0.63033E-03_JPRB,0.26663E-03_JPRB /)  
+KA(:, 2, 2, 6) = (/ &
+ & 0.95885E-03_JPRB,0.11428E-02_JPRB,0.11829E-02_JPRB,0.11541E-02_JPRB,0.10849E-02_JPRB, &
+ & 0.98930E-03_JPRB,0.85567E-03_JPRB,0.67200E-03_JPRB,0.30230E-03_JPRB /)  
+KA(:, 3, 2, 6) = (/ &
+ & 0.99776E-03_JPRB,0.11978E-02_JPRB,0.12376E-02_JPRB,0.12093E-02_JPRB,0.11390E-02_JPRB, &
+ & 0.10392E-02_JPRB,0.90558E-03_JPRB,0.71833E-03_JPRB,0.34245E-03_JPRB /)  
+KA(:, 4, 2, 6) = (/ &
+ & 0.10380E-02_JPRB,0.12537E-02_JPRB,0.12935E-02_JPRB,0.12652E-02_JPRB,0.11933E-02_JPRB, &
+ & 0.10921E-02_JPRB,0.95939E-03_JPRB,0.76948E-03_JPRB,0.38641E-03_JPRB /)  
+KA(:, 5, 2, 6) = (/ &
+ & 0.10779E-02_JPRB,0.13105E-02_JPRB,0.13515E-02_JPRB,0.13214E-02_JPRB,0.12497E-02_JPRB, &
+ & 0.11514E-02_JPRB,0.10182E-02_JPRB,0.82552E-03_JPRB,0.43428E-03_JPRB /)  
+KA(:, 1, 3, 6) = (/ &
+ & 0.79958E-03_JPRB,0.93053E-03_JPRB,0.95669E-03_JPRB,0.93720E-03_JPRB,0.88165E-03_JPRB, &
+ & 0.80178E-03_JPRB,0.69131E-03_JPRB,0.54027E-03_JPRB,0.22082E-03_JPRB /)  
+KA(:, 2, 3, 6) = (/ &
+ & 0.83354E-03_JPRB,0.98064E-03_JPRB,0.10079E-02_JPRB,0.98484E-03_JPRB,0.92834E-03_JPRB, &
+ & 0.84387E-03_JPRB,0.73304E-03_JPRB,0.57932E-03_JPRB,0.25149E-03_JPRB /)  
+KA(:, 3, 3, 6) = (/ &
+ & 0.87012E-03_JPRB,0.10320E-02_JPRB,0.10600E-02_JPRB,0.10346E-02_JPRB,0.97491E-03_JPRB, &
+ & 0.88683E-03_JPRB,0.77649E-03_JPRB,0.62208E-03_JPRB,0.28527E-03_JPRB /)  
+KA(:, 4, 3, 6) = (/ &
+ & 0.90759E-03_JPRB,0.10841E-02_JPRB,0.11129E-02_JPRB,0.10858E-02_JPRB,0.10238E-02_JPRB, &
+ & 0.93520E-03_JPRB,0.82494E-03_JPRB,0.66854E-03_JPRB,0.32199E-03_JPRB /)  
+KA(:, 5, 3, 6) = (/ &
+ & 0.94443E-03_JPRB,0.11378E-02_JPRB,0.11668E-02_JPRB,0.11369E-02_JPRB,0.10746E-02_JPRB, &
+ & 0.98835E-03_JPRB,0.87764E-03_JPRB,0.71868E-03_JPRB,0.36165E-03_JPRB /)  
+KA(:, 1, 4, 6) = (/ &
+ & 0.68628E-03_JPRB,0.79104E-03_JPRB,0.80863E-03_JPRB,0.79421E-03_JPRB,0.74681E-03_JPRB, &
+ & 0.67391E-03_JPRB,0.58210E-03_JPRB,0.45790E-03_JPRB,0.18137E-03_JPRB /)  
+KA(:, 2, 4, 6) = (/ &
+ & 0.71790E-03_JPRB,0.83686E-03_JPRB,0.85591E-03_JPRB,0.83705E-03_JPRB,0.78808E-03_JPRB, &
+ & 0.71172E-03_JPRB,0.61822E-03_JPRB,0.49245E-03_JPRB,0.20729E-03_JPRB /)  
+KA(:, 3, 4, 6) = (/ &
+ & 0.75117E-03_JPRB,0.88426E-03_JPRB,0.90462E-03_JPRB,0.88167E-03_JPRB,0.82945E-03_JPRB, &
+ & 0.75050E-03_JPRB,0.65652E-03_JPRB,0.53019E-03_JPRB,0.23455E-03_JPRB /)  
+KA(:, 4, 4, 6) = (/ &
+ & 0.78430E-03_JPRB,0.93252E-03_JPRB,0.95418E-03_JPRB,0.92872E-03_JPRB,0.87301E-03_JPRB, &
+ & 0.79337E-03_JPRB,0.69871E-03_JPRB,0.57160E-03_JPRB,0.26520E-03_JPRB /)  
+KA(:, 5, 4, 6) = (/ &
+ & 0.81683E-03_JPRB,0.98168E-03_JPRB,0.10045E-02_JPRB,0.97638E-03_JPRB,0.92000E-03_JPRB, &
+ & 0.84034E-03_JPRB,0.74480E-03_JPRB,0.61518E-03_JPRB,0.29808E-03_JPRB /)  
+KA(:, 1, 5, 6) = (/ &
+ & 0.58497E-03_JPRB,0.66935E-03_JPRB,0.68301E-03_JPRB,0.66951E-03_JPRB,0.62962E-03_JPRB, &
+ & 0.56579E-03_JPRB,0.48826E-03_JPRB,0.38379E-03_JPRB,0.14576E-03_JPRB /)  
+KA(:, 2, 5, 6) = (/ &
+ & 0.61310E-03_JPRB,0.71031E-03_JPRB,0.72592E-03_JPRB,0.70978E-03_JPRB,0.66652E-03_JPRB, &
+ & 0.59753E-03_JPRB,0.51826E-03_JPRB,0.41385E-03_JPRB,0.16772E-03_JPRB /)  
+KA(:, 3, 5, 6) = (/ &
+ & 0.64179E-03_JPRB,0.75306E-03_JPRB,0.77095E-03_JPRB,0.75074E-03_JPRB,0.70458E-03_JPRB, &
+ & 0.63276E-03_JPRB,0.55157E-03_JPRB,0.44695E-03_JPRB,0.19067E-03_JPRB /)  
+KA(:, 4, 5, 6) = (/ &
+ & 0.67039E-03_JPRB,0.79634E-03_JPRB,0.81655E-03_JPRB,0.79420E-03_JPRB,0.74416E-03_JPRB, &
+ & 0.67043E-03_JPRB,0.58781E-03_JPRB,0.48223E-03_JPRB,0.21651E-03_JPRB /)  
+KA(:, 5, 5, 6) = (/ &
+ & 0.69870E-03_JPRB,0.83972E-03_JPRB,0.86240E-03_JPRB,0.83794E-03_JPRB,0.78674E-03_JPRB, &
+ & 0.71204E-03_JPRB,0.62768E-03_JPRB,0.51780E-03_JPRB,0.24414E-03_JPRB /)  
+KA(:, 1, 6, 6) = (/ &
+ & 0.49594E-03_JPRB,0.56319E-03_JPRB,0.57248E-03_JPRB,0.55950E-03_JPRB,0.52657E-03_JPRB, &
+ & 0.47274E-03_JPRB,0.40631E-03_JPRB,0.31914E-03_JPRB,0.11737E-03_JPRB /)  
+KA(:, 2, 6, 6) = (/ &
+ & 0.51946E-03_JPRB,0.59932E-03_JPRB,0.61091E-03_JPRB,0.59626E-03_JPRB,0.56011E-03_JPRB, &
+ & 0.50076E-03_JPRB,0.43158E-03_JPRB,0.34422E-03_JPRB,0.13452E-03_JPRB /)  
+KA(:, 3, 6, 6) = (/ &
+ & 0.54355E-03_JPRB,0.63601E-03_JPRB,0.65111E-03_JPRB,0.63466E-03_JPRB,0.59552E-03_JPRB, &
+ & 0.53122E-03_JPRB,0.45996E-03_JPRB,0.37172E-03_JPRB,0.15179E-03_JPRB /)  
+KA(:, 4, 6, 6) = (/ &
+ & 0.56762E-03_JPRB,0.67321E-03_JPRB,0.69130E-03_JPRB,0.67433E-03_JPRB,0.63164E-03_JPRB, &
+ & 0.56508E-03_JPRB,0.49145E-03_JPRB,0.39979E-03_JPRB,0.17118E-03_JPRB /)  
+KA(:, 5, 6, 6) = (/ &
+ & 0.59180E-03_JPRB,0.71065E-03_JPRB,0.73195E-03_JPRB,0.71355E-03_JPRB,0.66898E-03_JPRB, &
+ & 0.60268E-03_JPRB,0.52617E-03_JPRB,0.43141E-03_JPRB,0.19263E-03_JPRB /)  
+KA(:, 1, 7, 6) = (/ &
+ & 0.41932E-03_JPRB,0.47346E-03_JPRB,0.47850E-03_JPRB,0.46519E-03_JPRB,0.43628E-03_JPRB, &
+ & 0.39132E-03_JPRB,0.33641E-03_JPRB,0.26485E-03_JPRB,0.10000E-03_JPRB /)  
+KA(:, 2, 7, 6) = (/ &
+ & 0.43848E-03_JPRB,0.50411E-03_JPRB,0.51171E-03_JPRB,0.49803E-03_JPRB,0.46737E-03_JPRB, &
+ & 0.41801E-03_JPRB,0.35878E-03_JPRB,0.28532E-03_JPRB,0.11408E-03_JPRB /)  
+KA(:, 3, 7, 6) = (/ &
+ & 0.45836E-03_JPRB,0.53506E-03_JPRB,0.54578E-03_JPRB,0.53230E-03_JPRB,0.49970E-03_JPRB, &
+ & 0.44506E-03_JPRB,0.38306E-03_JPRB,0.30828E-03_JPRB,0.13001E-03_JPRB /)  
+KA(:, 4, 7, 6) = (/ &
+ & 0.47855E-03_JPRB,0.56639E-03_JPRB,0.58020E-03_JPRB,0.56722E-03_JPRB,0.53202E-03_JPRB, &
+ & 0.47546E-03_JPRB,0.41064E-03_JPRB,0.33104E-03_JPRB,0.14676E-03_JPRB /)  
+KA(:, 5, 7, 6) = (/ &
+ & 0.49885E-03_JPRB,0.59805E-03_JPRB,0.61555E-03_JPRB,0.60152E-03_JPRB,0.56466E-03_JPRB, &
+ & 0.50884E-03_JPRB,0.44071E-03_JPRB,0.35766E-03_JPRB,0.16471E-03_JPRB /)  
+KA(:, 1, 8, 6) = (/ &
+ & 0.35434E-03_JPRB,0.39784E-03_JPRB,0.40003E-03_JPRB,0.38643E-03_JPRB,0.36029E-03_JPRB, &
+ & 0.32228E-03_JPRB,0.27705E-03_JPRB,0.21936E-03_JPRB,0.85304E-04_JPRB /)  
+KA(:, 2, 8, 6) = (/ &
+ & 0.36972E-03_JPRB,0.42325E-03_JPRB,0.42802E-03_JPRB,0.41467E-03_JPRB,0.38745E-03_JPRB, &
+ & 0.34637E-03_JPRB,0.29590E-03_JPRB,0.23622E-03_JPRB,0.97535E-04_JPRB /)  
+KA(:, 3, 8, 6) = (/ &
+ & 0.38589E-03_JPRB,0.44905E-03_JPRB,0.45611E-03_JPRB,0.44402E-03_JPRB,0.41681E-03_JPRB, &
+ & 0.37125E-03_JPRB,0.31793E-03_JPRB,0.25523E-03_JPRB,0.11156E-03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART4',1,ZHOOK_HANDLE)
+END SUBROUTINE PART4
+
+
+SUBROUTINE PART5
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART5',0,ZHOOK_HANDLE)
+
+
+KA(:, 4, 8, 6) = (/ &
+ & 0.40282E-03_JPRB,0.47505E-03_JPRB,0.48489E-03_JPRB,0.47391E-03_JPRB,0.44440E-03_JPRB, &
+ & 0.39797E-03_JPRB,0.34220E-03_JPRB,0.27395E-03_JPRB,0.12650E-03_JPRB /)  
+KA(:, 5, 8, 6) = (/ &
+ & 0.41971E-03_JPRB,0.50175E-03_JPRB,0.51511E-03_JPRB,0.50365E-03_JPRB,0.47246E-03_JPRB, &
+ & 0.42646E-03_JPRB,0.36852E-03_JPRB,0.29705E-03_JPRB,0.14272E-03_JPRB /)  
+KA(:, 1, 9, 6) = (/ &
+ & 0.29829E-03_JPRB,0.33364E-03_JPRB,0.33392E-03_JPRB,0.32092E-03_JPRB,0.29738E-03_JPRB, &
+ & 0.26469E-03_JPRB,0.22642E-03_JPRB,0.18017E-03_JPRB,0.77064E-04_JPRB /)  
+KA(:, 2, 9, 6) = (/ &
+ & 0.31054E-03_JPRB,0.35463E-03_JPRB,0.35704E-03_JPRB,0.34432E-03_JPRB,0.32083E-03_JPRB, &
+ & 0.28575E-03_JPRB,0.24402E-03_JPRB,0.19441E-03_JPRB,0.87743E-04_JPRB /)  
+KA(:, 3, 9, 6) = (/ &
+ & 0.32389E-03_JPRB,0.37581E-03_JPRB,0.38023E-03_JPRB,0.36873E-03_JPRB,0.34562E-03_JPRB, &
+ & 0.30799E-03_JPRB,0.26274E-03_JPRB,0.21037E-03_JPRB,0.99662E-04_JPRB /)  
+KA(:, 4, 9, 6) = (/ &
+ & 0.33808E-03_JPRB,0.39748E-03_JPRB,0.40404E-03_JPRB,0.39387E-03_JPRB,0.36968E-03_JPRB, &
+ & 0.33141E-03_JPRB,0.28405E-03_JPRB,0.22647E-03_JPRB,0.11282E-03_JPRB /)  
+KA(:, 5, 9, 6) = (/ &
+ & 0.35231E-03_JPRB,0.41983E-03_JPRB,0.42961E-03_JPRB,0.41951E-03_JPRB,0.39352E-03_JPRB, &
+ & 0.35528E-03_JPRB,0.30599E-03_JPRB,0.24648E-03_JPRB,0.12841E-03_JPRB /)  
+KA(:, 1,10, 6) = (/ &
+ & 0.25036E-03_JPRB,0.27999E-03_JPRB,0.27949E-03_JPRB,0.26793E-03_JPRB,0.24735E-03_JPRB, &
+ & 0.21800E-03_JPRB,0.18604E-03_JPRB,0.14807E-03_JPRB,0.93146E-04_JPRB /)  
+KA(:, 2,10, 6) = (/ &
+ & 0.26009E-03_JPRB,0.29745E-03_JPRB,0.29870E-03_JPRB,0.28727E-03_JPRB,0.26656E-03_JPRB, &
+ & 0.23674E-03_JPRB,0.20160E-03_JPRB,0.16012E-03_JPRB,0.10408E-03_JPRB /)  
+KA(:, 3,10, 6) = (/ &
+ & 0.27084E-03_JPRB,0.31508E-03_JPRB,0.31779E-03_JPRB,0.30720E-03_JPRB,0.28751E-03_JPRB, &
+ & 0.25636E-03_JPRB,0.21818E-03_JPRB,0.17357E-03_JPRB,0.11611E-03_JPRB /)  
+KA(:, 4,10, 6) = (/ &
+ & 0.28251E-03_JPRB,0.33335E-03_JPRB,0.33759E-03_JPRB,0.32814E-03_JPRB,0.30785E-03_JPRB, &
+ & 0.27625E-03_JPRB,0.23573E-03_JPRB,0.18761E-03_JPRB,0.12959E-03_JPRB /)  
+KA(:, 5,10, 6) = (/ &
+ & 0.29455E-03_JPRB,0.35211E-03_JPRB,0.35903E-03_JPRB,0.34997E-03_JPRB,0.32871E-03_JPRB, &
+ & 0.29658E-03_JPRB,0.25454E-03_JPRB,0.20476E-03_JPRB,0.14404E-03_JPRB /)  
+KA(:, 1,11, 6) = (/ &
+ & 0.21327E-03_JPRB,0.24042E-03_JPRB,0.24026E-03_JPRB,0.23068E-03_JPRB,0.21276E-03_JPRB, &
+ & 0.18665E-03_JPRB,0.15901E-03_JPRB,0.12570E-03_JPRB,0.94295E-04_JPRB /)  
+KA(:, 2,11, 6) = (/ &
+ & 0.22127E-03_JPRB,0.25493E-03_JPRB,0.25609E-03_JPRB,0.24693E-03_JPRB,0.22931E-03_JPRB, &
+ & 0.20329E-03_JPRB,0.17265E-03_JPRB,0.13686E-03_JPRB,0.10535E-03_JPRB /)  
+KA(:, 3,11, 6) = (/ &
+ & 0.23042E-03_JPRB,0.26962E-03_JPRB,0.27233E-03_JPRB,0.26383E-03_JPRB,0.24677E-03_JPRB, &
+ & 0.22030E-03_JPRB,0.18718E-03_JPRB,0.14788E-03_JPRB,0.11369E-03_JPRB /)  
+KA(:, 4,11, 6) = (/ &
+ & 0.24025E-03_JPRB,0.28500E-03_JPRB,0.28961E-03_JPRB,0.28171E-03_JPRB,0.26402E-03_JPRB, &
+ & 0.23726E-03_JPRB,0.20232E-03_JPRB,0.16110E-03_JPRB,0.12526E-03_JPRB /)  
+KA(:, 5,11, 6) = (/ &
+ & 0.25035E-03_JPRB,0.30139E-03_JPRB,0.30818E-03_JPRB,0.30033E-03_JPRB,0.28246E-03_JPRB, &
+ & 0.25541E-03_JPRB,0.21869E-03_JPRB,0.17592E-03_JPRB,0.13806E-03_JPRB /)  
+KA(:, 1,12, 6) = (/ &
+ & 0.18213E-03_JPRB,0.20563E-03_JPRB,0.20558E-03_JPRB,0.19744E-03_JPRB,0.18197E-03_JPRB, &
+ & 0.15967E-03_JPRB,0.13562E-03_JPRB,0.10709E-03_JPRB,0.84300E-04_JPRB /)  
+KA(:, 2,12, 6) = (/ &
+ & 0.18873E-03_JPRB,0.21755E-03_JPRB,0.21877E-03_JPRB,0.21098E-03_JPRB,0.19617E-03_JPRB, &
+ & 0.17419E-03_JPRB,0.14735E-03_JPRB,0.11726E-03_JPRB,0.96090E-04_JPRB /)  
+KA(:, 3,12, 6) = (/ &
+ & 0.19633E-03_JPRB,0.22994E-03_JPRB,0.23250E-03_JPRB,0.22538E-03_JPRB,0.21092E-03_JPRB, &
+ & 0.18881E-03_JPRB,0.15987E-03_JPRB,0.12650E-03_JPRB,0.10477E-03_JPRB /)  
+KA(:, 4,12, 6) = (/ &
+ & 0.20445E-03_JPRB,0.24309E-03_JPRB,0.24729E-03_JPRB,0.24084E-03_JPRB,0.22613E-03_JPRB, &
+ & 0.20371E-03_JPRB,0.17330E-03_JPRB,0.13785E-03_JPRB,0.11268E-03_JPRB /)  
+KA(:, 5,12, 6) = (/ &
+ & 0.21299E-03_JPRB,0.25719E-03_JPRB,0.26315E-03_JPRB,0.25711E-03_JPRB,0.24260E-03_JPRB, &
+ & 0.21944E-03_JPRB,0.18764E-03_JPRB,0.15038E-03_JPRB,0.12367E-03_JPRB /)  
+KA(:, 1,13, 6) = (/ &
+ & 0.15527E-03_JPRB,0.17641E-03_JPRB,0.17566E-03_JPRB,0.16836E-03_JPRB,0.15534E-03_JPRB, &
+ & 0.13636E-03_JPRB,0.11530E-03_JPRB,0.91307E-04_JPRB,0.70205E-04_JPRB /)  
+KA(:, 2,13, 6) = (/ &
+ & 0.16096E-03_JPRB,0.18612E-03_JPRB,0.18657E-03_JPRB,0.17973E-03_JPRB,0.16702E-03_JPRB, &
+ & 0.14851E-03_JPRB,0.12550E-03_JPRB,0.99145E-04_JPRB,0.79984E-04_JPRB /)  
+KA(:, 3,13, 6) = (/ &
+ & 0.16748E-03_JPRB,0.19648E-03_JPRB,0.19822E-03_JPRB,0.19209E-03_JPRB,0.17957E-03_JPRB, &
+ & 0.16107E-03_JPRB,0.13652E-03_JPRB,0.10753E-03_JPRB,0.86067E-04_JPRB /)  
+KA(:, 4,13, 6) = (/ &
+ & 0.17450E-03_JPRB,0.20751E-03_JPRB,0.21098E-03_JPRB,0.20534E-03_JPRB,0.19295E-03_JPRB, &
+ & 0.17420E-03_JPRB,0.14816E-03_JPRB,0.11772E-03_JPRB,0.93252E-04_JPRB /)  
+KA(:, 5,13, 6) = (/ &
+ & 0.18233E-03_JPRB,0.21950E-03_JPRB,0.22442E-03_JPRB,0.21958E-03_JPRB,0.20754E-03_JPRB, &
+ & 0.18842E-03_JPRB,0.16097E-03_JPRB,0.12851E-03_JPRB,0.10278E-03_JPRB /)  
+KA(:, 1, 1, 7) = (/ &
+ & 0.23852E-02_JPRB,0.24955E-02_JPRB,0.25247E-02_JPRB,0.24784E-02_JPRB,0.23525E-02_JPRB, &
+ & 0.21437E-02_JPRB,0.18704E-02_JPRB,0.15353E-02_JPRB,0.99116E-03_JPRB /)  
+KA(:, 2, 1, 7) = (/ &
+ & 0.23950E-02_JPRB,0.25560E-02_JPRB,0.26150E-02_JPRB,0.25851E-02_JPRB,0.24612E-02_JPRB, &
+ & 0.22632E-02_JPRB,0.20004E-02_JPRB,0.16585E-02_JPRB,0.11087E-02_JPRB /)  
+KA(:, 3, 1, 7) = (/ &
+ & 0.24020E-02_JPRB,0.26226E-02_JPRB,0.27112E-02_JPRB,0.26940E-02_JPRB,0.25772E-02_JPRB, &
+ & 0.23915E-02_JPRB,0.21332E-02_JPRB,0.17859E-02_JPRB,0.12435E-02_JPRB /)  
+KA(:, 4, 1, 7) = (/ &
+ & 0.24093E-02_JPRB,0.26930E-02_JPRB,0.28096E-02_JPRB,0.28038E-02_JPRB,0.27017E-02_JPRB, &
+ & 0.25227E-02_JPRB,0.22696E-02_JPRB,0.19198E-02_JPRB,0.13912E-02_JPRB /)  
+KA(:, 5, 1, 7) = (/ &
+ & 0.24224E-02_JPRB,0.27647E-02_JPRB,0.29093E-02_JPRB,0.29173E-02_JPRB,0.28299E-02_JPRB, &
+ & 0.26579E-02_JPRB,0.24103E-02_JPRB,0.20612E-02_JPRB,0.15535E-02_JPRB /)  
+KA(:, 1, 2, 7) = (/ &
+ & 0.20974E-02_JPRB,0.22118E-02_JPRB,0.22296E-02_JPRB,0.21778E-02_JPRB,0.20625E-02_JPRB, &
+ & 0.18815E-02_JPRB,0.16530E-02_JPRB,0.13562E-02_JPRB,0.82141E-03_JPRB /)  
+KA(:, 2, 2, 7) = (/ &
+ & 0.21046E-02_JPRB,0.22702E-02_JPRB,0.23143E-02_JPRB,0.22813E-02_JPRB,0.21720E-02_JPRB, &
+ & 0.19971E-02_JPRB,0.17712E-02_JPRB,0.14678E-02_JPRB,0.93003E-03_JPRB /)  
+KA(:, 3, 2, 7) = (/ &
+ & 0.21127E-02_JPRB,0.23326E-02_JPRB,0.24062E-02_JPRB,0.23885E-02_JPRB,0.22861E-02_JPRB, &
+ & 0.21193E-02_JPRB,0.18939E-02_JPRB,0.15834E-02_JPRB,0.10463E-02_JPRB /)  
+KA(:, 4, 2, 7) = (/ &
+ & 0.21272E-02_JPRB,0.23971E-02_JPRB,0.25002E-02_JPRB,0.24977E-02_JPRB,0.24074E-02_JPRB, &
+ & 0.22461E-02_JPRB,0.20177E-02_JPRB,0.17030E-02_JPRB,0.11732E-02_JPRB /)  
+KA(:, 5, 2, 7) = (/ &
+ & 0.21483E-02_JPRB,0.24652E-02_JPRB,0.25947E-02_JPRB,0.26138E-02_JPRB,0.25341E-02_JPRB, &
+ & 0.23755E-02_JPRB,0.21449E-02_JPRB,0.18299E-02_JPRB,0.13107E-02_JPRB /)  
+KA(:, 1, 3, 7) = (/ &
+ & 0.18244E-02_JPRB,0.19320E-02_JPRB,0.19387E-02_JPRB,0.18795E-02_JPRB,0.17712E-02_JPRB, &
+ & 0.16188E-02_JPRB,0.14258E-02_JPRB,0.11664E-02_JPRB,0.66404E-03_JPRB /)  
+KA(:, 2, 3, 7) = (/ &
+ & 0.18322E-02_JPRB,0.19846E-02_JPRB,0.20150E-02_JPRB,0.19741E-02_JPRB,0.18746E-02_JPRB, &
+ & 0.17292E-02_JPRB,0.15311E-02_JPRB,0.12668E-02_JPRB,0.75772E-03_JPRB /)  
+KA(:, 3, 3, 7) = (/ &
+ & 0.18451E-02_JPRB,0.20412E-02_JPRB,0.20960E-02_JPRB,0.20746E-02_JPRB,0.19871E-02_JPRB, &
+ & 0.18444E-02_JPRB,0.16430E-02_JPRB,0.13711E-02_JPRB,0.85470E-03_JPRB /)  
+KA(:, 4, 3, 7) = (/ &
+ & 0.18657E-02_JPRB,0.21020E-02_JPRB,0.21815E-02_JPRB,0.21798E-02_JPRB,0.21034E-02_JPRB, &
+ & 0.19629E-02_JPRB,0.17571E-02_JPRB,0.14786E-02_JPRB,0.95834E-03_JPRB /)  
+KA(:, 5, 3, 7) = (/ &
+ & 0.18943E-02_JPRB,0.21674E-02_JPRB,0.22717E-02_JPRB,0.22915E-02_JPRB,0.22239E-02_JPRB, &
+ & 0.20844E-02_JPRB,0.18739E-02_JPRB,0.15906E-02_JPRB,0.10775E-02_JPRB /)  
+KA(:, 1, 4, 7) = (/ &
+ & 0.15758E-02_JPRB,0.16711E-02_JPRB,0.16675E-02_JPRB,0.16043E-02_JPRB,0.15088E-02_JPRB, &
+ & 0.13785E-02_JPRB,0.12140E-02_JPRB,0.98780E-03_JPRB,0.53258E-03_JPRB /)  
+KA(:, 2, 4, 7) = (/ &
+ & 0.15867E-02_JPRB,0.17169E-02_JPRB,0.17338E-02_JPRB,0.16891E-02_JPRB,0.16022E-02_JPRB, &
+ & 0.14807E-02_JPRB,0.13108E-02_JPRB,0.10774E-02_JPRB,0.61127E-03_JPRB /)  
+KA(:, 3, 4, 7) = (/ &
+ & 0.16043E-02_JPRB,0.17687E-02_JPRB,0.18047E-02_JPRB,0.17788E-02_JPRB,0.17054E-02_JPRB, &
+ & 0.15869E-02_JPRB,0.14121E-02_JPRB,0.11700E-02_JPRB,0.69092E-03_JPRB /)  
+KA(:, 4, 4, 7) = (/ &
+ & 0.16308E-02_JPRB,0.18263E-02_JPRB,0.18817E-02_JPRB,0.18741E-02_JPRB,0.18139E-02_JPRB, &
+ & 0.16955E-02_JPRB,0.15162E-02_JPRB,0.12673E-02_JPRB,0.77859E-03_JPRB /)  
+KA(:, 5, 4, 7) = (/ &
+ & 0.16631E-02_JPRB,0.18894E-02_JPRB,0.19653E-02_JPRB,0.19764E-02_JPRB,0.19240E-02_JPRB, &
+ & 0.18069E-02_JPRB,0.16237E-02_JPRB,0.13697E-02_JPRB,0.87657E-03_JPRB /)  
+KA(:, 1, 5, 7) = (/ &
+ & 0.13575E-02_JPRB,0.14376E-02_JPRB,0.14238E-02_JPRB,0.13660E-02_JPRB,0.12806E-02_JPRB, &
+ & 0.11664E-02_JPRB,0.10231E-02_JPRB,0.82794E-03_JPRB,0.42595E-03_JPRB /)  
+KA(:, 2, 5, 7) = (/ &
+ & 0.13711E-02_JPRB,0.14787E-02_JPRB,0.14807E-02_JPRB,0.14369E-02_JPRB,0.13637E-02_JPRB, &
+ & 0.12570E-02_JPRB,0.11125E-02_JPRB,0.90729E-03_JPRB,0.48990E-03_JPRB /)  
+KA(:, 3, 5, 7) = (/ &
+ & 0.13932E-02_JPRB,0.15262E-02_JPRB,0.15434E-02_JPRB,0.15158E-02_JPRB,0.14536E-02_JPRB, &
+ & 0.13534E-02_JPRB,0.12033E-02_JPRB,0.99132E-03_JPRB,0.55848E-03_JPRB /)  
+KA(:, 4, 5, 7) = (/ &
+ & 0.14217E-02_JPRB,0.15804E-02_JPRB,0.16130E-02_JPRB,0.16009E-02_JPRB,0.15482E-02_JPRB, &
+ & 0.14537E-02_JPRB,0.12991E-02_JPRB,0.10796E-02_JPRB,0.63246E-03_JPRB /)  
+KA(:, 5, 5, 7) = (/ &
+ & 0.14548E-02_JPRB,0.16406E-02_JPRB,0.16899E-02_JPRB,0.16924E-02_JPRB,0.16473E-02_JPRB, &
+ & 0.15538E-02_JPRB,0.13988E-02_JPRB,0.11736E-02_JPRB,0.71422E-03_JPRB /)  
+KA(:, 1, 6, 7) = (/ &
+ & 0.11657E-02_JPRB,0.12310E-02_JPRB,0.12114E-02_JPRB,0.11593E-02_JPRB,0.10807E-02_JPRB, &
+ & 0.97870E-03_JPRB,0.85220E-03_JPRB,0.68679E-03_JPRB,0.33278E-03_JPRB /)  
+KA(:, 2, 6, 7) = (/ &
+ & 0.11817E-02_JPRB,0.12689E-02_JPRB,0.12606E-02_JPRB,0.12200E-02_JPRB,0.11515E-02_JPRB, &
+ & 0.10575E-02_JPRB,0.93300E-03_JPRB,0.75653E-03_JPRB,0.38390E-03_JPRB /)  
+KA(:, 3, 6, 7) = (/ &
+ & 0.12052E-02_JPRB,0.13132E-02_JPRB,0.13166E-02_JPRB,0.12868E-02_JPRB,0.12281E-02_JPRB, &
+ & 0.11419E-02_JPRB,0.10150E-02_JPRB,0.83054E-03_JPRB,0.44291E-03_JPRB /)  
+KA(:, 4, 6, 7) = (/ &
+ & 0.12337E-02_JPRB,0.13638E-02_JPRB,0.13800E-02_JPRB,0.13608E-02_JPRB,0.13105E-02_JPRB, &
+ & 0.12294E-02_JPRB,0.11010E-02_JPRB,0.91218E-03_JPRB,0.50714E-03_JPRB /)  
+KA(:, 5, 6, 7) = (/ &
+ & 0.12657E-02_JPRB,0.14200E-02_JPRB,0.14498E-02_JPRB,0.14421E-02_JPRB,0.13994E-02_JPRB, &
+ & 0.13201E-02_JPRB,0.11915E-02_JPRB,0.99447E-03_JPRB,0.57759E-03_JPRB /)  
+KA(:, 1, 7, 7) = (/ &
+ & 0.99495E-03_JPRB,0.10489E-02_JPRB,0.10293E-02_JPRB,0.98184E-03_JPRB,0.91156E-03_JPRB, &
+ & 0.82083E-03_JPRB,0.70758E-03_JPRB,0.56387E-03_JPRB,0.26025E-03_JPRB /)  
+KA(:, 2, 7, 7) = (/ &
+ & 0.10122E-02_JPRB,0.10837E-02_JPRB,0.10724E-02_JPRB,0.10344E-02_JPRB,0.96982E-03_JPRB, &
+ & 0.88589E-03_JPRB,0.77530E-03_JPRB,0.62605E-03_JPRB,0.29914E-03_JPRB /)  
+KA(:, 3, 7, 7) = (/ &
+ & 0.10351E-02_JPRB,0.11253E-02_JPRB,0.11236E-02_JPRB,0.10922E-02_JPRB,0.10352E-02_JPRB, &
+ & 0.95724E-03_JPRB,0.84889E-03_JPRB,0.69076E-03_JPRB,0.34305E-03_JPRB /)  
+KA(:, 4, 7, 7) = (/ &
+ & 0.10622E-02_JPRB,0.11721E-02_JPRB,0.11813E-02_JPRB,0.11564E-02_JPRB,0.11065E-02_JPRB, &
+ & 0.10331E-02_JPRB,0.92494E-03_JPRB,0.76297E-03_JPRB,0.39175E-03_JPRB /)  
+KA(:, 5, 7, 7) = (/ &
+ & 0.10903E-02_JPRB,0.12244E-02_JPRB,0.12441E-02_JPRB,0.12287E-02_JPRB,0.11845E-02_JPRB, &
+ & 0.11129E-02_JPRB,0.10035E-02_JPRB,0.83648E-03_JPRB,0.44712E-03_JPRB /)  
+KA(:, 1, 8, 7) = (/ &
+ & 0.84532E-03_JPRB,0.88892E-03_JPRB,0.86965E-03_JPRB,0.82727E-03_JPRB,0.76674E-03_JPRB, &
+ & 0.68807E-03_JPRB,0.58679E-03_JPRB,0.46179E-03_JPRB,0.21931E-03_JPRB /)  
+KA(:, 2, 8, 7) = (/ &
+ & 0.86227E-03_JPRB,0.92051E-03_JPRB,0.90826E-03_JPRB,0.87315E-03_JPRB,0.81675E-03_JPRB, &
+ & 0.74173E-03_JPRB,0.64502E-03_JPRB,0.51436E-03_JPRB,0.25538E-03_JPRB /)  
+KA(:, 3, 8, 7) = (/ &
+ & 0.88387E-03_JPRB,0.95827E-03_JPRB,0.95473E-03_JPRB,0.92480E-03_JPRB,0.87135E-03_JPRB, &
+ & 0.80090E-03_JPRB,0.70594E-03_JPRB,0.57141E-03_JPRB,0.29275E-03_JPRB /)  
+KA(:, 4, 8, 7) = (/ &
+ & 0.90659E-03_JPRB,0.10014E-02_JPRB,0.10072E-02_JPRB,0.98186E-03_JPRB,0.93348E-03_JPRB, &
+ & 0.86582E-03_JPRB,0.77148E-03_JPRB,0.63431E-03_JPRB,0.33522E-03_JPRB /)  
+KA(:, 5, 8, 7) = (/ &
+ & 0.93066E-03_JPRB,0.10477E-02_JPRB,0.10640E-02_JPRB,0.10456E-02_JPRB,0.10022E-02_JPRB, &
+ & 0.93597E-03_JPRB,0.84005E-03_JPRB,0.69831E-03_JPRB,0.38214E-03_JPRB /)  
+KA(:, 1, 9, 7) = (/ &
+ & 0.71681E-03_JPRB,0.75151E-03_JPRB,0.73165E-03_JPRB,0.69303E-03_JPRB,0.64106E-03_JPRB, &
+ & 0.57326E-03_JPRB,0.48762E-03_JPRB,0.37724E-03_JPRB,0.19963E-03_JPRB /)  
+KA(:, 2, 9, 7) = (/ &
+ & 0.73278E-03_JPRB,0.77936E-03_JPRB,0.76580E-03_JPRB,0.73272E-03_JPRB,0.68369E-03_JPRB, &
+ & 0.61851E-03_JPRB,0.53463E-03_JPRB,0.42190E-03_JPRB,0.23258E-03_JPRB /)  
+KA(:, 3, 9, 7) = (/ &
+ & 0.75147E-03_JPRB,0.81327E-03_JPRB,0.80692E-03_JPRB,0.77827E-03_JPRB,0.73101E-03_JPRB, &
+ & 0.66869E-03_JPRB,0.58582E-03_JPRB,0.47030E-03_JPRB,0.26770E-03_JPRB /)  
+KA(:, 4, 9, 7) = (/ &
+ & 0.77011E-03_JPRB,0.85035E-03_JPRB,0.85331E-03_JPRB,0.82912E-03_JPRB,0.78414E-03_JPRB, &
+ & 0.72425E-03_JPRB,0.64047E-03_JPRB,0.52434E-03_JPRB,0.30603E-03_JPRB /)  
+KA(:, 5, 9, 7) = (/ &
+ & 0.79031E-03_JPRB,0.89033E-03_JPRB,0.90223E-03_JPRB,0.88462E-03_JPRB,0.84489E-03_JPRB, &
+ & 0.78478E-03_JPRB,0.70032E-03_JPRB,0.57826E-03_JPRB,0.34848E-03_JPRB /)  
+KA(:, 1,10, 7) = (/ &
+ & 0.60860E-03_JPRB,0.63631E-03_JPRB,0.61722E-03_JPRB,0.58182E-03_JPRB,0.53631E-03_JPRB, &
+ & 0.47875E-03_JPRB,0.40598E-03_JPRB,0.31001E-03_JPRB,0.21716E-03_JPRB /)  
+KA(:, 2,10, 7) = (/ &
+ & 0.62300E-03_JPRB,0.66096E-03_JPRB,0.64723E-03_JPRB,0.61624E-03_JPRB,0.57283E-03_JPRB, &
+ & 0.51614E-03_JPRB,0.44515E-03_JPRB,0.34783E-03_JPRB,0.24030E-03_JPRB /)  
+KA(:, 3,10, 7) = (/ &
+ & 0.63811E-03_JPRB,0.69041E-03_JPRB,0.68320E-03_JPRB,0.65609E-03_JPRB,0.61386E-03_JPRB, &
+ & 0.55902E-03_JPRB,0.48770E-03_JPRB,0.38933E-03_JPRB,0.26729E-03_JPRB /)  
+KA(:, 4,10, 7) = (/ &
+ & 0.65360E-03_JPRB,0.72213E-03_JPRB,0.72254E-03_JPRB,0.70011E-03_JPRB,0.66034E-03_JPRB, &
+ & 0.60659E-03_JPRB,0.53507E-03_JPRB,0.43477E-03_JPRB,0.29849E-03_JPRB /)  
+KA(:, 5,10, 7) = (/ &
+ & 0.67038E-03_JPRB,0.75665E-03_JPRB,0.76418E-03_JPRB,0.74727E-03_JPRB,0.71207E-03_JPRB, &
+ & 0.65924E-03_JPRB,0.58660E-03_JPRB,0.48108E-03_JPRB,0.33464E-03_JPRB /)  
+KA(:, 1,11, 7) = (/ &
+ & 0.52185E-03_JPRB,0.54797E-03_JPRB,0.53190E-03_JPRB,0.50128E-03_JPRB,0.46230E-03_JPRB, &
+ & 0.41291E-03_JPRB,0.35086E-03_JPRB,0.26843E-03_JPRB,0.22407E-03_JPRB /)  
+KA(:, 2,11, 7) = (/ &
+ & 0.53416E-03_JPRB,0.57111E-03_JPRB,0.56029E-03_JPRB,0.53286E-03_JPRB,0.49524E-03_JPRB, &
+ & 0.44633E-03_JPRB,0.38530E-03_JPRB,0.30138E-03_JPRB,0.24793E-03_JPRB /)  
+KA(:, 3,11, 7) = (/ &
+ & 0.54635E-03_JPRB,0.59685E-03_JPRB,0.59183E-03_JPRB,0.56852E-03_JPRB,0.53236E-03_JPRB, &
+ & 0.48455E-03_JPRB,0.42287E-03_JPRB,0.33910E-03_JPRB,0.27073E-03_JPRB /)  
+KA(:, 4,11, 7) = (/ &
+ & 0.55941E-03_JPRB,0.62493E-03_JPRB,0.62582E-03_JPRB,0.60673E-03_JPRB,0.57348E-03_JPRB, &
+ & 0.52713E-03_JPRB,0.46523E-03_JPRB,0.37861E-03_JPRB,0.29520E-03_JPRB /)  
+KA(:, 5,11, 7) = (/ &
+ & 0.57459E-03_JPRB,0.65537E-03_JPRB,0.66217E-03_JPRB,0.64854E-03_JPRB,0.61857E-03_JPRB, &
+ & 0.57343E-03_JPRB,0.51159E-03_JPRB,0.41997E-03_JPRB,0.32408E-03_JPRB /)  
+KA(:, 1,12, 7) = (/ &
+ & 0.44547E-03_JPRB,0.47205E-03_JPRB,0.45856E-03_JPRB,0.43259E-03_JPRB,0.39885E-03_JPRB, &
+ & 0.35629E-03_JPRB,0.30273E-03_JPRB,0.23099E-03_JPRB,0.20507E-03_JPRB /)  
+KA(:, 2,12, 7) = (/ &
+ & 0.45530E-03_JPRB,0.49200E-03_JPRB,0.48355E-03_JPRB,0.46058E-03_JPRB,0.42831E-03_JPRB, &
+ & 0.38615E-03_JPRB,0.33301E-03_JPRB,0.25970E-03_JPRB,0.22582E-03_JPRB /)  
+KA(:, 3,12, 7) = (/ &
+ & 0.46565E-03_JPRB,0.51443E-03_JPRB,0.51077E-03_JPRB,0.49108E-03_JPRB,0.46067E-03_JPRB, &
+ & 0.41962E-03_JPRB,0.36657E-03_JPRB,0.29355E-03_JPRB,0.24853E-03_JPRB /)  
+KA(:, 4,12, 7) = (/ &
+ & 0.47732E-03_JPRB,0.53905E-03_JPRB,0.54027E-03_JPRB,0.52415E-03_JPRB,0.49634E-03_JPRB, &
+ & 0.45650E-03_JPRB,0.40422E-03_JPRB,0.32887E-03_JPRB,0.26943E-03_JPRB /)  
+KA(:, 5,12, 7) = (/ &
+ & 0.49131E-03_JPRB,0.56624E-03_JPRB,0.57259E-03_JPRB,0.56091E-03_JPRB,0.53532E-03_JPRB, &
+ & 0.49724E-03_JPRB,0.44494E-03_JPRB,0.36671E-03_JPRB,0.29370E-03_JPRB /)  
+KA(:, 1,13, 7) = (/ &
+ & 0.37861E-03_JPRB,0.40433E-03_JPRB,0.39425E-03_JPRB,0.37277E-03_JPRB,0.34384E-03_JPRB, &
+ & 0.30718E-03_JPRB,0.26082E-03_JPRB,0.19813E-03_JPRB,0.17021E-03_JPRB /)  
+KA(:, 2,13, 7) = (/ &
+ & 0.38646E-03_JPRB,0.42180E-03_JPRB,0.41569E-03_JPRB,0.39676E-03_JPRB,0.36941E-03_JPRB, &
+ & 0.33370E-03_JPRB,0.28746E-03_JPRB,0.22445E-03_JPRB,0.18768E-03_JPRB /)  
+KA(:, 3,13, 7) = (/ &
+ & 0.39522E-03_JPRB,0.44150E-03_JPRB,0.43928E-03_JPRB,0.42293E-03_JPRB,0.39746E-03_JPRB, &
+ & 0.36268E-03_JPRB,0.31709E-03_JPRB,0.25391E-03_JPRB,0.20463E-03_JPRB /)  
+KA(:, 4,13, 7) = (/ &
+ & 0.40576E-03_JPRB,0.46362E-03_JPRB,0.46497E-03_JPRB,0.45178E-03_JPRB,0.42852E-03_JPRB, &
+ & 0.39486E-03_JPRB,0.34992E-03_JPRB,0.28472E-03_JPRB,0.22430E-03_JPRB /)  
+KA(:, 5,13, 7) = (/ &
+ & 0.41810E-03_JPRB,0.48813E-03_JPRB,0.49424E-03_JPRB,0.48434E-03_JPRB,0.46280E-03_JPRB, &
+ & 0.43027E-03_JPRB,0.38540E-03_JPRB,0.31863E-03_JPRB,0.24541E-03_JPRB /)  
+KA(:, 1, 1, 8) = (/ &
+ & 0.52571E-02_JPRB,0.51649E-02_JPRB,0.50998E-02_JPRB,0.49978E-02_JPRB,0.48299E-02_JPRB, &
+ & 0.45478E-02_JPRB,0.41071E-02_JPRB,0.34884E-02_JPRB,0.27402E-02_JPRB /)  
+KA(:, 2, 1, 8) = (/ &
+ & 0.51967E-02_JPRB,0.52277E-02_JPRB,0.52437E-02_JPRB,0.52099E-02_JPRB,0.50894E-02_JPRB, &
+ & 0.48424E-02_JPRB,0.44165E-02_JPRB,0.38421E-02_JPRB,0.31643E-02_JPRB /)  
+KA(:, 3, 1, 8) = (/ &
+ & 0.51548E-02_JPRB,0.53047E-02_JPRB,0.54023E-02_JPRB,0.54271E-02_JPRB,0.53544E-02_JPRB, &
+ & 0.51370E-02_JPRB,0.47457E-02_JPRB,0.42178E-02_JPRB,0.36142E-02_JPRB /)  
+KA(:, 4, 1, 8) = (/ &
+ & 0.51293E-02_JPRB,0.53942E-02_JPRB,0.55672E-02_JPRB,0.56512E-02_JPRB,0.56201E-02_JPRB, &
+ & 0.54409E-02_JPRB,0.50927E-02_JPRB,0.46186E-02_JPRB,0.40998E-02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART5',1,ZHOOK_HANDLE)
+END SUBROUTINE PART5
+
+
+SUBROUTINE PART6
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART6',0,ZHOOK_HANDLE)
+
+
+KA(:, 5, 1, 8) = (/ &
+ & 0.51178E-02_JPRB,0.54996E-02_JPRB,0.57406E-02_JPRB,0.58798E-02_JPRB,0.58932E-02_JPRB, &
+ & 0.57606E-02_JPRB,0.54613E-02_JPRB,0.50399E-02_JPRB,0.46100E-02_JPRB /)  
+KA(:, 1, 2, 8) = (/ &
+ & 0.47778E-02_JPRB,0.47398E-02_JPRB,0.47115E-02_JPRB,0.46169E-02_JPRB,0.44426E-02_JPRB, &
+ & 0.41630E-02_JPRB,0.37511E-02_JPRB,0.31426E-02_JPRB,0.23122E-02_JPRB /)  
+KA(:, 2, 2, 8) = (/ &
+ & 0.47384E-02_JPRB,0.48111E-02_JPRB,0.48532E-02_JPRB,0.48144E-02_JPRB,0.46755E-02_JPRB, &
+ & 0.44342E-02_JPRB,0.40397E-02_JPRB,0.34599E-02_JPRB,0.26698E-02_JPRB /)  
+KA(:, 3, 2, 8) = (/ &
+ & 0.47181E-02_JPRB,0.49025E-02_JPRB,0.50071E-02_JPRB,0.50151E-02_JPRB,0.49194E-02_JPRB, &
+ & 0.47085E-02_JPRB,0.43402E-02_JPRB,0.37956E-02_JPRB,0.30630E-02_JPRB /)  
+KA(:, 4, 2, 8) = (/ &
+ & 0.47137E-02_JPRB,0.50070E-02_JPRB,0.51691E-02_JPRB,0.52245E-02_JPRB,0.51706E-02_JPRB, &
+ & 0.49959E-02_JPRB,0.46583E-02_JPRB,0.41574E-02_JPRB,0.34865E-02_JPRB /)  
+KA(:, 5, 2, 8) = (/ &
+ & 0.47212E-02_JPRB,0.51234E-02_JPRB,0.53397E-02_JPRB,0.54379E-02_JPRB,0.54276E-02_JPRB, &
+ & 0.52983E-02_JPRB,0.49978E-02_JPRB,0.45412E-02_JPRB,0.39357E-02_JPRB /)  
+KA(:, 1, 3, 8) = (/ &
+ & 0.42971E-02_JPRB,0.42851E-02_JPRB,0.42729E-02_JPRB,0.41707E-02_JPRB,0.39926E-02_JPRB, &
+ & 0.37146E-02_JPRB,0.33264E-02_JPRB,0.27717E-02_JPRB,0.18852E-02_JPRB /)  
+KA(:, 2, 3, 8) = (/ &
+ & 0.42740E-02_JPRB,0.43647E-02_JPRB,0.44079E-02_JPRB,0.43562E-02_JPRB,0.42040E-02_JPRB, &
+ & 0.39559E-02_JPRB,0.35908E-02_JPRB,0.30443E-02_JPRB,0.21816E-02_JPRB /)  
+KA(:, 3, 3, 8) = (/ &
+ & 0.42703E-02_JPRB,0.44650E-02_JPRB,0.45616E-02_JPRB,0.45425E-02_JPRB,0.44233E-02_JPRB, &
+ & 0.42066E-02_JPRB,0.38676E-02_JPRB,0.33396E-02_JPRB,0.25126E-02_JPRB /)  
+KA(:, 4, 3, 8) = (/ &
+ & 0.42812E-02_JPRB,0.45806E-02_JPRB,0.47230E-02_JPRB,0.47371E-02_JPRB,0.46519E-02_JPRB, &
+ & 0.44691E-02_JPRB,0.41620E-02_JPRB,0.36586E-02_JPRB,0.28704E-02_JPRB /)  
+KA(:, 5, 3, 8) = (/ &
+ & 0.43030E-02_JPRB,0.47042E-02_JPRB,0.48922E-02_JPRB,0.49377E-02_JPRB,0.48939E-02_JPRB, &
+ & 0.47477E-02_JPRB,0.44742E-02_JPRB,0.39985E-02_JPRB,0.32501E-02_JPRB /)  
+KA(:, 1, 4, 8) = (/ &
+ & 0.38233E-02_JPRB,0.38279E-02_JPRB,0.38143E-02_JPRB,0.37097E-02_JPRB,0.35270E-02_JPRB, &
+ & 0.32658E-02_JPRB,0.29019E-02_JPRB,0.24142E-02_JPRB,0.15291E-02_JPRB /)  
+KA(:, 2, 4, 8) = (/ &
+ & 0.38114E-02_JPRB,0.39122E-02_JPRB,0.39475E-02_JPRB,0.38778E-02_JPRB,0.37194E-02_JPRB, &
+ & 0.34777E-02_JPRB,0.31357E-02_JPRB,0.26541E-02_JPRB,0.17758E-02_JPRB /)  
+KA(:, 3, 4, 8) = (/ &
+ & 0.38202E-02_JPRB,0.40186E-02_JPRB,0.40970E-02_JPRB,0.40542E-02_JPRB,0.39201E-02_JPRB, &
+ & 0.37024E-02_JPRB,0.33826E-02_JPRB,0.29146E-02_JPRB,0.20543E-02_JPRB /)  
+KA(:, 4, 4, 8) = (/ &
+ & 0.38442E-02_JPRB,0.41385E-02_JPRB,0.42569E-02_JPRB,0.42394E-02_JPRB,0.41310E-02_JPRB, &
+ & 0.39403E-02_JPRB,0.36479E-02_JPRB,0.31917E-02_JPRB,0.23538E-02_JPRB /)  
+KA(:, 5, 4, 8) = (/ &
+ & 0.38788E-02_JPRB,0.42695E-02_JPRB,0.44229E-02_JPRB,0.44328E-02_JPRB,0.43540E-02_JPRB, &
+ & 0.41948E-02_JPRB,0.39317E-02_JPRB,0.34895E-02_JPRB,0.26724E-02_JPRB /)  
+KA(:, 1, 5, 8) = (/ &
+ & 0.33660E-02_JPRB,0.33879E-02_JPRB,0.33669E-02_JPRB,0.32570E-02_JPRB,0.30787E-02_JPRB, &
+ & 0.28362E-02_JPRB,0.25094E-02_JPRB,0.20819E-02_JPRB,0.12376E-02_JPRB /)  
+KA(:, 2, 5, 8) = (/ &
+ & 0.33649E-02_JPRB,0.34740E-02_JPRB,0.34949E-02_JPRB,0.34119E-02_JPRB,0.32508E-02_JPRB, &
+ & 0.30247E-02_JPRB,0.27121E-02_JPRB,0.22949E-02_JPRB,0.14462E-02_JPRB /)  
+KA(:, 3, 5, 8) = (/ &
+ & 0.33839E-02_JPRB,0.35821E-02_JPRB,0.36398E-02_JPRB,0.35762E-02_JPRB,0.34359E-02_JPRB, &
+ & 0.32230E-02_JPRB,0.29317E-02_JPRB,0.25218E-02_JPRB,0.16788E-02_JPRB /)  
+KA(:, 4, 5, 8) = (/ &
+ & 0.34188E-02_JPRB,0.37047E-02_JPRB,0.37932E-02_JPRB,0.37524E-02_JPRB,0.36321E-02_JPRB, &
+ & 0.34359E-02_JPRB,0.31677E-02_JPRB,0.27663E-02_JPRB,0.19299E-02_JPRB /)  
+KA(:, 5, 5, 8) = (/ &
+ & 0.34572E-02_JPRB,0.38382E-02_JPRB,0.39563E-02_JPRB,0.39381E-02_JPRB,0.38416E-02_JPRB, &
+ & 0.36710E-02_JPRB,0.34185E-02_JPRB,0.30298E-02_JPRB,0.21985E-02_JPRB /)  
+KA(:, 1, 6, 8) = (/ &
+ & 0.29383E-02_JPRB,0.29689E-02_JPRB,0.29375E-02_JPRB,0.28254E-02_JPRB,0.26571E-02_JPRB, &
+ & 0.24356E-02_JPRB,0.21491E-02_JPRB,0.17706E-02_JPRB,0.99284E-03_JPRB /)  
+KA(:, 2, 6, 8) = (/ &
+ & 0.29460E-02_JPRB,0.30526E-02_JPRB,0.30576E-02_JPRB,0.29676E-02_JPRB,0.28114E-02_JPRB, &
+ & 0.25995E-02_JPRB,0.23244E-02_JPRB,0.19573E-02_JPRB,0.11692E-02_JPRB /)  
+KA(:, 3, 6, 8) = (/ &
+ & 0.29740E-02_JPRB,0.31582E-02_JPRB,0.31942E-02_JPRB,0.31202E-02_JPRB,0.29785E-02_JPRB, &
+ & 0.27771E-02_JPRB,0.25160E-02_JPRB,0.21565E-02_JPRB,0.13616E-02_JPRB /)  
+KA(:, 4, 6, 8) = (/ &
+ & 0.30101E-02_JPRB,0.32807E-02_JPRB,0.33417E-02_JPRB,0.32855E-02_JPRB,0.31583E-02_JPRB, &
+ & 0.29708E-02_JPRB,0.27234E-02_JPRB,0.23688E-02_JPRB,0.15696E-02_JPRB /)  
+KA(:, 5, 6, 8) = (/ &
+ & 0.30525E-02_JPRB,0.34071E-02_JPRB,0.34999E-02_JPRB,0.34618E-02_JPRB,0.33518E-02_JPRB, &
+ & 0.31829E-02_JPRB,0.29437E-02_JPRB,0.25986E-02_JPRB,0.17941E-02_JPRB /)  
+KA(:, 1, 7, 8) = (/ &
+ & 0.25527E-02_JPRB,0.25837E-02_JPRB,0.25415E-02_JPRB,0.24332E-02_JPRB,0.22747E-02_JPRB, &
+ & 0.20758E-02_JPRB,0.18231E-02_JPRB,0.14951E-02_JPRB,0.78066E-03_JPRB /)  
+KA(:, 2, 7, 8) = (/ &
+ & 0.25661E-02_JPRB,0.26638E-02_JPRB,0.26497E-02_JPRB,0.25583E-02_JPRB,0.24134E-02_JPRB, &
+ & 0.22212E-02_JPRB,0.19774E-02_JPRB,0.16540E-02_JPRB,0.92809E-03_JPRB /)  
+KA(:, 3, 7, 8) = (/ &
+ & 0.25966E-02_JPRB,0.27642E-02_JPRB,0.27764E-02_JPRB,0.26998E-02_JPRB,0.25630E-02_JPRB, &
+ & 0.23812E-02_JPRB,0.21449E-02_JPRB,0.18264E-02_JPRB,0.10893E-02_JPRB /)  
+KA(:, 4, 7, 8) = (/ &
+ & 0.26340E-02_JPRB,0.28771E-02_JPRB,0.29165E-02_JPRB,0.28538E-02_JPRB,0.27279E-02_JPRB, &
+ & 0.25553E-02_JPRB,0.23260E-02_JPRB,0.20107E-02_JPRB,0.12665E-02_JPRB /)  
+KA(:, 5, 7, 8) = (/ &
+ & 0.26829E-02_JPRB,0.29939E-02_JPRB,0.30639E-02_JPRB,0.30192E-02_JPRB,0.29089E-02_JPRB, &
+ & 0.27450E-02_JPRB,0.25219E-02_JPRB,0.22101E-02_JPRB,0.14584E-02_JPRB /)  
+KA(:, 1, 8, 8) = (/ &
+ & 0.22109E-02_JPRB,0.22392E-02_JPRB,0.21909E-02_JPRB,0.20870E-02_JPRB,0.19391E-02_JPRB, &
+ & 0.17569E-02_JPRB,0.15368E-02_JPRB,0.12514E-02_JPRB,0.62879E-03_JPRB /)  
+KA(:, 2, 8, 8) = (/ &
+ & 0.22276E-02_JPRB,0.23140E-02_JPRB,0.22874E-02_JPRB,0.21965E-02_JPRB,0.20609E-02_JPRB, &
+ & 0.18868E-02_JPRB,0.16711E-02_JPRB,0.13887E-02_JPRB,0.73533E-03_JPRB /)  
+KA(:, 3, 8, 8) = (/ &
+ & 0.22565E-02_JPRB,0.24065E-02_JPRB,0.24031E-02_JPRB,0.23233E-02_JPRB,0.21969E-02_JPRB, &
+ & 0.20302E-02_JPRB,0.18188E-02_JPRB,0.15365E-02_JPRB,0.85609E-03_JPRB /)  
+KA(:, 4, 8, 8) = (/ &
+ & 0.22974E-02_JPRB,0.25072E-02_JPRB,0.25290E-02_JPRB,0.24653E-02_JPRB,0.23482E-02_JPRB, &
+ & 0.21882E-02_JPRB,0.19777E-02_JPRB,0.16966E-02_JPRB,0.98553E-03_JPRB /)  
+KA(:, 5, 8, 8) = (/ &
+ & 0.23517E-02_JPRB,0.26173E-02_JPRB,0.26619E-02_JPRB,0.26145E-02_JPRB,0.25139E-02_JPRB, &
+ & 0.23587E-02_JPRB,0.21497E-02_JPRB,0.18671E-02_JPRB,0.11277E-02_JPRB /)  
+KA(:, 1, 9, 8) = (/ &
+ & 0.19109E-02_JPRB,0.19351E-02_JPRB,0.18847E-02_JPRB,0.17853E-02_JPRB,0.16484E-02_JPRB, &
+ & 0.14828E-02_JPRB,0.12861E-02_JPRB,0.10403E-02_JPRB,0.59847E-03_JPRB /)  
+KA(:, 2, 9, 8) = (/ &
+ & 0.19272E-02_JPRB,0.20031E-02_JPRB,0.19691E-02_JPRB,0.18817E-02_JPRB,0.17540E-02_JPRB, &
+ & 0.15965E-02_JPRB,0.14036E-02_JPRB,0.11571E-02_JPRB,0.69475E-03_JPRB /)  
+KA(:, 3, 9, 8) = (/ &
+ & 0.19559E-02_JPRB,0.20842E-02_JPRB,0.20709E-02_JPRB,0.19954E-02_JPRB,0.18765E-02_JPRB, &
+ & 0.17233E-02_JPRB,0.15331E-02_JPRB,0.12839E-02_JPRB,0.80150E-03_JPRB /)  
+KA(:, 4, 9, 8) = (/ &
+ & 0.19994E-02_JPRB,0.21761E-02_JPRB,0.21815E-02_JPRB,0.21203E-02_JPRB,0.20143E-02_JPRB, &
+ & 0.18645E-02_JPRB,0.16732E-02_JPRB,0.14206E-02_JPRB,0.91777E-03_JPRB /)  
+KA(:, 5, 9, 8) = (/ &
+ & 0.20550E-02_JPRB,0.22788E-02_JPRB,0.23027E-02_JPRB,0.22546E-02_JPRB,0.21605E-02_JPRB, &
+ & 0.20175E-02_JPRB,0.18247E-02_JPRB,0.15687E-02_JPRB,0.10450E-02_JPRB /)  
+KA(:, 1,10, 8) = (/ &
+ & 0.16445E-02_JPRB,0.16716E-02_JPRB,0.16238E-02_JPRB,0.15300E-02_JPRB,0.14061E-02_JPRB, &
+ & 0.12566E-02_JPRB,0.10807E-02_JPRB,0.86738E-03_JPRB,0.60827E-03_JPRB /)  
+KA(:, 2,10, 8) = (/ &
+ & 0.16600E-02_JPRB,0.17327E-02_JPRB,0.16984E-02_JPRB,0.16154E-02_JPRB,0.14994E-02_JPRB, &
+ & 0.13556E-02_JPRB,0.11827E-02_JPRB,0.96695E-03_JPRB,0.70548E-03_JPRB /)  
+KA(:, 3,10, 8) = (/ &
+ & 0.16905E-02_JPRB,0.18053E-02_JPRB,0.17869E-02_JPRB,0.17163E-02_JPRB,0.16090E-02_JPRB, &
+ & 0.14689E-02_JPRB,0.12961E-02_JPRB,0.10754E-02_JPRB,0.80786E-03_JPRB /)  
+KA(:, 4,10, 8) = (/ &
+ & 0.17354E-02_JPRB,0.18905E-02_JPRB,0.18865E-02_JPRB,0.18272E-02_JPRB,0.17299E-02_JPRB, &
+ & 0.15951E-02_JPRB,0.14192E-02_JPRB,0.11936E-02_JPRB,0.91620E-03_JPRB /)  
+KA(:, 5,10, 8) = (/ &
+ & 0.17884E-02_JPRB,0.19860E-02_JPRB,0.19977E-02_JPRB,0.19501E-02_JPRB,0.18596E-02_JPRB, &
+ & 0.17298E-02_JPRB,0.15525E-02_JPRB,0.13217E-02_JPRB,0.10338E-02_JPRB /)  
+KA(:, 1,11, 8) = (/ &
+ & 0.14133E-02_JPRB,0.14603E-02_JPRB,0.14202E-02_JPRB,0.13407E-02_JPRB,0.12334E-02_JPRB, &
+ & 0.11026E-02_JPRB,0.94643E-03_JPRB,0.75979E-03_JPRB,0.57405E-03_JPRB /)  
+KA(:, 2,11, 8) = (/ &
+ & 0.14357E-02_JPRB,0.15193E-02_JPRB,0.14916E-02_JPRB,0.14232E-02_JPRB,0.13232E-02_JPRB, &
+ & 0.11950E-02_JPRB,0.10392E-02_JPRB,0.84686E-03_JPRB,0.65471E-03_JPRB /)  
+KA(:, 3,11, 8) = (/ &
+ & 0.14730E-02_JPRB,0.15907E-02_JPRB,0.15765E-02_JPRB,0.15172E-02_JPRB,0.14237E-02_JPRB, &
+ & 0.12997E-02_JPRB,0.11424E-02_JPRB,0.94298E-03_JPRB,0.75212E-03_JPRB /)  
+KA(:, 4,11, 8) = (/ &
+ & 0.15188E-02_JPRB,0.16737E-02_JPRB,0.16734E-02_JPRB,0.16227E-02_JPRB,0.15348E-02_JPRB, &
+ & 0.14132E-02_JPRB,0.12544E-02_JPRB,0.10476E-02_JPRB,0.85445E-03_JPRB /)  
+KA(:, 5,11, 8) = (/ &
+ & 0.15705E-02_JPRB,0.17634E-02_JPRB,0.17799E-02_JPRB,0.17387E-02_JPRB,0.16551E-02_JPRB, &
+ & 0.15344E-02_JPRB,0.13744E-02_JPRB,0.11635E-02_JPRB,0.96358E-03_JPRB /)  
+KA(:, 1,12, 8) = (/ &
+ & 0.12145E-02_JPRB,0.12721E-02_JPRB,0.12387E-02_JPRB,0.11722E-02_JPRB,0.10815E-02_JPRB, &
+ & 0.96748E-03_JPRB,0.83052E-03_JPRB,0.66461E-03_JPRB,0.51952E-03_JPRB /)  
+KA(:, 2,12, 8) = (/ &
+ & 0.12432E-02_JPRB,0.13303E-02_JPRB,0.13076E-02_JPRB,0.12500E-02_JPRB,0.11644E-02_JPRB, &
+ & 0.10531E-02_JPRB,0.91410E-03_JPRB,0.74198E-03_JPRB,0.58718E-03_JPRB /)  
+KA(:, 3,12, 8) = (/ &
+ & 0.12811E-02_JPRB,0.13998E-02_JPRB,0.13897E-02_JPRB,0.13394E-02_JPRB,0.12574E-02_JPRB, &
+ & 0.11474E-02_JPRB,0.10067E-02_JPRB,0.82675E-03_JPRB,0.66821E-03_JPRB /)  
+KA(:, 4,12, 8) = (/ &
+ & 0.13251E-02_JPRB,0.14771E-02_JPRB,0.14813E-02_JPRB,0.14393E-02_JPRB,0.13610E-02_JPRB, &
+ & 0.12504E-02_JPRB,0.11057E-02_JPRB,0.91975E-03_JPRB,0.76078E-03_JPRB /)  
+KA(:, 5,12, 8) = (/ &
+ & 0.13700E-02_JPRB,0.15597E-02_JPRB,0.15807E-02_JPRB,0.15467E-02_JPRB,0.14716E-02_JPRB, &
+ & 0.13608E-02_JPRB,0.12138E-02_JPRB,0.10232E-02_JPRB,0.85832E-03_JPRB /)  
+KA(:, 1,13, 8) = (/ &
+ & 0.10471E-02_JPRB,0.11076E-02_JPRB,0.10790E-02_JPRB,0.10231E-02_JPRB,0.94527E-03_JPRB, &
+ & 0.84789E-03_JPRB,0.72861E-03_JPRB,0.58068E-03_JPRB,0.44361E-03_JPRB /)  
+KA(:, 2,13, 8) = (/ &
+ & 0.10765E-02_JPRB,0.11637E-02_JPRB,0.11461E-02_JPRB,0.10966E-02_JPRB,0.10221E-02_JPRB, &
+ & 0.92418E-03_JPRB,0.80364E-03_JPRB,0.64949E-03_JPRB,0.50409E-03_JPRB /)  
+KA(:, 3,13, 8) = (/ &
+ & 0.11121E-02_JPRB,0.12288E-02_JPRB,0.12232E-02_JPRB,0.11802E-02_JPRB,0.11084E-02_JPRB, &
+ & 0.10099E-02_JPRB,0.88562E-03_JPRB,0.72467E-03_JPRB,0.57688E-03_JPRB /)  
+KA(:, 4,13, 8) = (/ &
+ & 0.11491E-02_JPRB,0.12989E-02_JPRB,0.13080E-02_JPRB,0.12720E-02_JPRB,0.12030E-02_JPRB, &
+ & 0.11037E-02_JPRB,0.97404E-03_JPRB,0.80781E-03_JPRB,0.65303E-03_JPRB /)  
+KA(:, 5,13, 8) = (/ &
+ & 0.11880E-02_JPRB,0.13724E-02_JPRB,0.13975E-02_JPRB,0.13701E-02_JPRB,0.13034E-02_JPRB, &
+ & 0.12049E-02_JPRB,0.10715E-02_JPRB,0.89944E-03_JPRB,0.73687E-03_JPRB /)  
+KA(:, 1, 1, 9) = (/ &
+ & 0.14418E-01_JPRB,0.13406E-01_JPRB,0.12605E-01_JPRB,0.11857E-01_JPRB,0.11091E-01_JPRB, &
+ & 0.10336E-01_JPRB,0.95691E-02_JPRB,0.87036E-02_JPRB,0.88524E-02_JPRB /)  
+KA(:, 2, 1, 9) = (/ &
+ & 0.14296E-01_JPRB,0.13450E-01_JPRB,0.12870E-01_JPRB,0.12297E-01_JPRB,0.11684E-01_JPRB, &
+ & 0.11070E-01_JPRB,0.10452E-01_JPRB,0.97477E-02_JPRB,0.10154E-01_JPRB /)  
+KA(:, 3, 1, 9) = (/ &
+ & 0.14166E-01_JPRB,0.13524E-01_JPRB,0.13158E-01_JPRB,0.12768E-01_JPRB,0.12317E-01_JPRB, &
+ & 0.11876E-01_JPRB,0.11397E-01_JPRB,0.10864E-01_JPRB,0.11523E-01_JPRB /)  
+KA(:, 4, 1, 9) = (/ &
+ & 0.14022E-01_JPRB,0.13622E-01_JPRB,0.13487E-01_JPRB,0.13264E-01_JPRB,0.13003E-01_JPRB, &
+ & 0.12732E-01_JPRB,0.12371E-01_JPRB,0.12050E-01_JPRB,0.12968E-01_JPRB /)  
+KA(:, 5, 1, 9) = (/ &
+ & 0.13872E-01_JPRB,0.13730E-01_JPRB,0.13820E-01_JPRB,0.13802E-01_JPRB,0.13718E-01_JPRB, &
+ & 0.13604E-01_JPRB,0.13373E-01_JPRB,0.13315E-01_JPRB,0.14498E-01_JPRB /)  
+KA(:, 1, 2, 9) = (/ &
+ & 0.14547E-01_JPRB,0.13535E-01_JPRB,0.12726E-01_JPRB,0.11955E-01_JPRB,0.11121E-01_JPRB, &
+ & 0.10242E-01_JPRB,0.92998E-02_JPRB,0.82716E-02_JPRB,0.79571E-02_JPRB /)  
+KA(:, 2, 2, 9) = (/ &
+ & 0.14415E-01_JPRB,0.13577E-01_JPRB,0.12984E-01_JPRB,0.12377E-01_JPRB,0.11698E-01_JPRB, &
+ & 0.10932E-01_JPRB,0.10129E-01_JPRB,0.92199E-02_JPRB,0.91565E-02_JPRB /)  
+KA(:, 3, 2, 9) = (/ &
+ & 0.14274E-01_JPRB,0.13649E-01_JPRB,0.13264E-01_JPRB,0.12845E-01_JPRB,0.12290E-01_JPRB, &
+ & 0.11686E-01_JPRB,0.11026E-01_JPRB,0.10231E-01_JPRB,0.10415E-01_JPRB /)  
+KA(:, 4, 2, 9) = (/ &
+ & 0.14122E-01_JPRB,0.13744E-01_JPRB,0.13589E-01_JPRB,0.13325E-01_JPRB,0.12935E-01_JPRB, &
+ & 0.12484E-01_JPRB,0.11950E-01_JPRB,0.11311E-01_JPRB,0.11744E-01_JPRB /)  
+KA(:, 5, 2, 9) = (/ &
+ & 0.13965E-01_JPRB,0.13855E-01_JPRB,0.13924E-01_JPRB,0.13828E-01_JPRB,0.13608E-01_JPRB, &
+ & 0.13305E-01_JPRB,0.12905E-01_JPRB,0.12457E-01_JPRB,0.13151E-01_JPRB /)  
+KA(:, 1, 3, 9) = (/ &
+ & 0.14475E-01_JPRB,0.13482E-01_JPRB,0.12654E-01_JPRB,0.11861E-01_JPRB,0.10971E-01_JPRB, &
+ & 0.99930E-02_JPRB,0.88735E-02_JPRB,0.76595E-02_JPRB,0.68509E-02_JPRB /)  
+KA(:, 2, 3, 9) = (/ &
+ & 0.14335E-01_JPRB,0.13514E-01_JPRB,0.12906E-01_JPRB,0.12263E-01_JPRB,0.11533E-01_JPRB, &
+ & 0.10637E-01_JPRB,0.96386E-02_JPRB,0.85394E-02_JPRB,0.79297E-02_JPRB /)  
+KA(:, 3, 3, 9) = (/ &
+ & 0.14181E-01_JPRB,0.13576E-01_JPRB,0.13177E-01_JPRB,0.12719E-01_JPRB,0.12099E-01_JPRB, &
+ & 0.11329E-01_JPRB,0.10466E-01_JPRB,0.94601E-02_JPRB,0.90731E-02_JPRB /)  
+KA(:, 4, 3, 9) = (/ &
+ & 0.14024E-01_JPRB,0.13665E-01_JPRB,0.13491E-01_JPRB,0.13188E-01_JPRB,0.12703E-01_JPRB, &
+ & 0.12072E-01_JPRB,0.11323E-01_JPRB,0.10433E-01_JPRB,0.10295E-01_JPRB /)  
+KA(:, 5, 3, 9) = (/ &
+ & 0.13862E-01_JPRB,0.13772E-01_JPRB,0.13824E-01_JPRB,0.13679E-01_JPRB,0.13333E-01_JPRB, &
+ & 0.12836E-01_JPRB,0.12214E-01_JPRB,0.11468E-01_JPRB,0.11588E-01_JPRB /)  
+KA(:, 1, 4, 9) = (/ &
+ & 0.14153E-01_JPRB,0.13216E-01_JPRB,0.12406E-01_JPRB,0.11612E-01_JPRB,0.10690E-01_JPRB, &
+ & 0.96495E-02_JPRB,0.84088E-02_JPRB,0.70121E-02_JPRB,0.57874E-02_JPRB /)  
+KA(:, 2, 4, 9) = (/ &
+ & 0.14005E-01_JPRB,0.13241E-01_JPRB,0.12647E-01_JPRB,0.11995E-01_JPRB,0.11231E-01_JPRB, &
+ & 0.10266E-01_JPRB,0.91127E-02_JPRB,0.78123E-02_JPRB,0.67372E-02_JPRB /)  
+KA(:, 3, 4, 9) = (/ &
+ & 0.13845E-01_JPRB,0.13290E-01_JPRB,0.12907E-01_JPRB,0.12438E-01_JPRB,0.11783E-01_JPRB, &
+ & 0.10918E-01_JPRB,0.98730E-02_JPRB,0.86646E-02_JPRB,0.77601E-02_JPRB /)  
+KA(:, 4, 4, 9) = (/ &
+ & 0.13685E-01_JPRB,0.13375E-01_JPRB,0.13206E-01_JPRB,0.12899E-01_JPRB,0.12360E-01_JPRB, &
+ & 0.11608E-01_JPRB,0.10665E-01_JPRB,0.95624E-02_JPRB,0.88628E-02_JPRB /)  
+KA(:, 5, 4, 9) = (/ &
+ & 0.13529E-01_JPRB,0.13472E-01_JPRB,0.13531E-01_JPRB,0.13371E-01_JPRB,0.12964E-01_JPRB, &
+ & 0.12311E-01_JPRB,0.11491E-01_JPRB,0.10508E-01_JPRB,0.10039E-01_JPRB /)  
+KA(:, 1, 5, 9) = (/ &
+ & 0.13587E-01_JPRB,0.12730E-01_JPRB,0.11973E-01_JPRB,0.11204E-01_JPRB,0.10282E-01_JPRB, &
+ & 0.92218E-02_JPRB,0.79316E-02_JPRB,0.64044E-02_JPRB,0.48583E-02_JPRB /)  
+KA(:, 2, 5, 9) = (/ &
+ & 0.13430E-01_JPRB,0.12751E-01_JPRB,0.12205E-01_JPRB,0.11567E-01_JPRB,0.10798E-01_JPRB, &
+ & 0.98163E-02_JPRB,0.85810E-02_JPRB,0.71221E-02_JPRB,0.56837E-02_JPRB /)  
+KA(:, 3, 5, 9) = (/ &
+ & 0.13271E-01_JPRB,0.12793E-01_JPRB,0.12448E-01_JPRB,0.11993E-01_JPRB,0.11338E-01_JPRB, &
+ & 0.10437E-01_JPRB,0.92786E-02_JPRB,0.78957E-02_JPRB,0.65802E-02_JPRB /)  
+KA(:, 4, 5, 9) = (/ &
+ & 0.13115E-01_JPRB,0.12874E-01_JPRB,0.12735E-01_JPRB,0.12440E-01_JPRB,0.11897E-01_JPRB, &
+ & 0.11094E-01_JPRB,0.10003E-01_JPRB,0.87146E-02_JPRB,0.75565E-02_JPRB /)  
+KA(:, 5, 5, 9) = (/ &
+ & 0.12984E-01_JPRB,0.12973E-01_JPRB,0.13053E-01_JPRB,0.12899E-01_JPRB,0.12481E-01_JPRB, &
+ & 0.11759E-01_JPRB,0.10765E-01_JPRB,0.95850E-02_JPRB,0.86117E-02_JPRB /)  
+KA(:, 1, 6, 9) = (/ &
+ & 0.12817E-01_JPRB,0.12050E-01_JPRB,0.11369E-01_JPRB,0.10622E-01_JPRB,0.97180E-02_JPRB, &
+ & 0.86745E-02_JPRB,0.73942E-02_JPRB,0.58154E-02_JPRB,0.40318E-02_JPRB /)  
+KA(:, 2, 6, 9) = (/ &
+ & 0.12656E-01_JPRB,0.12077E-01_JPRB,0.11582E-01_JPRB,0.10960E-01_JPRB,0.10205E-01_JPRB, &
+ & 0.92477E-02_JPRB,0.80000E-02_JPRB,0.64500E-02_JPRB,0.47452E-02_JPRB /)  
+KA(:, 3, 6, 9) = (/ &
+ & 0.12499E-01_JPRB,0.12115E-01_JPRB,0.11810E-01_JPRB,0.11361E-01_JPRB,0.10734E-01_JPRB, &
+ & 0.98374E-02_JPRB,0.86412E-02_JPRB,0.71467E-02_JPRB,0.55214E-02_JPRB /)  
+KA(:, 4, 6, 9) = (/ &
+ & 0.12364E-01_JPRB,0.12194E-01_JPRB,0.12081E-01_JPRB,0.11798E-01_JPRB,0.11270E-01_JPRB, &
+ & 0.10459E-01_JPRB,0.93144E-02_JPRB,0.78844E-02_JPRB,0.63718E-02_JPRB /)  
+KA(:, 5, 6, 9) = (/ &
+ & 0.12255E-01_JPRB,0.12311E-01_JPRB,0.12390E-01_JPRB,0.12242E-01_JPRB,0.11833E-01_JPRB, &
+ & 0.11093E-01_JPRB,0.10016E-01_JPRB,0.86730E-02_JPRB,0.72984E-02_JPRB /)  
+KA(:, 1, 7, 9) = (/ &
+ & 0.11891E-01_JPRB,0.11226E-01_JPRB,0.10633E-01_JPRB,0.99134E-02_JPRB,0.90439E-02_JPRB, &
+ & 0.80297E-02_JPRB,0.68136E-02_JPRB,0.52756E-02_JPRB,0.33216E-02_JPRB /)  
+KA(:, 2, 7, 9) = (/ &
+ & 0.11730E-01_JPRB,0.11250E-01_JPRB,0.10822E-01_JPRB,0.10230E-01_JPRB,0.94903E-02_JPRB, &
+ & 0.85683E-02_JPRB,0.73765E-02_JPRB,0.58347E-02_JPRB,0.39310E-02_JPRB /)  
+KA(:, 3, 7, 9) = (/ &
+ & 0.11586E-01_JPRB,0.11299E-01_JPRB,0.11036E-01_JPRB,0.10599E-01_JPRB,0.99917E-02_JPRB, &
+ & 0.91260E-02_JPRB,0.79645E-02_JPRB,0.64502E-02_JPRB,0.46031E-02_JPRB /)  
+KA(:, 4, 7, 9) = (/ &
+ & 0.11473E-01_JPRB,0.11391E-01_JPRB,0.11290E-01_JPRB,0.11015E-01_JPRB,0.10500E-01_JPRB, &
+ & 0.97132E-02_JPRB,0.85920E-02_JPRB,0.71112E-02_JPRB,0.53403E-02_JPRB /)  
+KA(:, 5, 7, 9) = (/ &
+ & 0.11384E-01_JPRB,0.11524E-01_JPRB,0.11598E-01_JPRB,0.11442E-01_JPRB,0.11036E-01_JPRB, &
+ & 0.10317E-01_JPRB,0.92441E-02_JPRB,0.78209E-02_JPRB,0.61457E-02_JPRB /)  
+KA(:, 1, 8, 9) = (/ &
+ & 0.10852E-01_JPRB,0.10302E-01_JPRB,0.97896E-02_JPRB,0.91138E-02_JPRB,0.83000E-02_JPRB, &
+ & 0.73373E-02_JPRB,0.61956E-02_JPRB,0.47644E-02_JPRB,0.26652E-02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART6',1,ZHOOK_HANDLE)
+END SUBROUTINE PART6
+
+
+SUBROUTINE PART7
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART7',0,ZHOOK_HANDLE)
+
+
+KA(:, 2, 8, 9) = (/ &
+ & 0.10699E-01_JPRB,0.10325E-01_JPRB,0.99631E-02_JPRB,0.94045E-02_JPRB,0.87025E-02_JPRB, &
+ & 0.78255E-02_JPRB,0.67137E-02_JPRB,0.52638E-02_JPRB,0.31922E-02_JPRB /)  
+KA(:, 3, 8, 9) = (/ &
+ & 0.10574E-01_JPRB,0.10385E-01_JPRB,0.10163E-01_JPRB,0.97460E-02_JPRB,0.91609E-02_JPRB, &
+ & 0.83418E-02_JPRB,0.72560E-02_JPRB,0.58143E-02_JPRB,0.37766E-02_JPRB /)  
+KA(:, 4, 8, 9) = (/ &
+ & 0.10480E-01_JPRB,0.10499E-01_JPRB,0.10413E-01_JPRB,0.10139E-01_JPRB,0.96342E-02_JPRB, &
+ & 0.88826E-02_JPRB,0.78405E-02_JPRB,0.64037E-02_JPRB,0.44295E-02_JPRB /)  
+KA(:, 5, 8, 9) = (/ &
+ & 0.10415E-01_JPRB,0.10646E-01_JPRB,0.10720E-01_JPRB,0.10553E-01_JPRB,0.10134E-01_JPRB, &
+ & 0.94529E-02_JPRB,0.84471E-02_JPRB,0.70384E-02_JPRB,0.51485E-02_JPRB /)  
+KA(:, 1, 9, 9) = (/ &
+ & 0.97587E-02_JPRB,0.93185E-02_JPRB,0.88694E-02_JPRB,0.82517E-02_JPRB,0.75094E-02_JPRB, &
+ & 0.66177E-02_JPRB,0.55658E-02_JPRB,0.42591E-02_JPRB,0.21931E-02_JPRB /)  
+KA(:, 2, 9, 9) = (/ &
+ & 0.96183E-02_JPRB,0.93436E-02_JPRB,0.90329E-02_JPRB,0.85198E-02_JPRB,0.78654E-02_JPRB, &
+ & 0.70507E-02_JPRB,0.60316E-02_JPRB,0.47067E-02_JPRB,0.25691E-02_JPRB /)  
+KA(:, 3, 9, 9) = (/ &
+ & 0.95112E-02_JPRB,0.94166E-02_JPRB,0.92325E-02_JPRB,0.88355E-02_JPRB,0.82791E-02_JPRB, &
+ & 0.75194E-02_JPRB,0.65208E-02_JPRB,0.52003E-02_JPRB,0.29789E-02_JPRB /)  
+KA(:, 4, 9, 9) = (/ &
+ & 0.94373E-02_JPRB,0.95446E-02_JPRB,0.94815E-02_JPRB,0.92092E-02_JPRB,0.87140E-02_JPRB, &
+ & 0.80091E-02_JPRB,0.70556E-02_JPRB,0.57344E-02_JPRB,0.34284E-02_JPRB /)  
+KA(:, 5, 9, 9) = (/ &
+ & 0.93945E-02_JPRB,0.97041E-02_JPRB,0.97866E-02_JPRB,0.96055E-02_JPRB,0.91834E-02_JPRB, &
+ & 0.85358E-02_JPRB,0.76199E-02_JPRB,0.63067E-02_JPRB,0.39360E-02_JPRB /)  
+KA(:, 1,10, 9) = (/ &
+ & 0.86571E-02_JPRB,0.83282E-02_JPRB,0.79327E-02_JPRB,0.73862E-02_JPRB,0.67217E-02_JPRB, &
+ & 0.59210E-02_JPRB,0.49777E-02_JPRB,0.37950E-02_JPRB,0.25161E-02_JPRB /)  
+KA(:, 2,10, 9) = (/ &
+ & 0.85351E-02_JPRB,0.83629E-02_JPRB,0.80910E-02_JPRB,0.76400E-02_JPRB,0.70398E-02_JPRB, &
+ & 0.63068E-02_JPRB,0.53903E-02_JPRB,0.41966E-02_JPRB,0.29067E-02_JPRB /)  
+KA(:, 3,10, 9) = (/ &
+ & 0.84483E-02_JPRB,0.84483E-02_JPRB,0.82944E-02_JPRB,0.79338E-02_JPRB,0.74159E-02_JPRB, &
+ & 0.67272E-02_JPRB,0.58285E-02_JPRB,0.46411E-02_JPRB,0.33599E-02_JPRB /)  
+KA(:, 4,10, 9) = (/ &
+ & 0.83941E-02_JPRB,0.85821E-02_JPRB,0.85440E-02_JPRB,0.82866E-02_JPRB,0.78214E-02_JPRB, &
+ & 0.71692E-02_JPRB,0.63103E-02_JPRB,0.51290E-02_JPRB,0.38620E-02_JPRB /)  
+KA(:, 5,10, 9) = (/ &
+ & 0.83806E-02_JPRB,0.87510E-02_JPRB,0.88459E-02_JPRB,0.86620E-02_JPRB,0.82607E-02_JPRB, &
+ & 0.76554E-02_JPRB,0.68267E-02_JPRB,0.56504E-02_JPRB,0.44001E-02_JPRB /)  
+KA(:, 1,11, 9) = (/ &
+ & 0.75570E-02_JPRB,0.73902E-02_JPRB,0.70826E-02_JPRB,0.66405E-02_JPRB,0.60731E-02_JPRB, &
+ & 0.53892E-02_JPRB,0.45656E-02_JPRB,0.35050E-02_JPRB,0.26164E-02_JPRB /)  
+KA(:, 2,11, 9) = (/ &
+ & 0.74683E-02_JPRB,0.74501E-02_JPRB,0.72578E-02_JPRB,0.68886E-02_JPRB,0.63823E-02_JPRB, &
+ & 0.57485E-02_JPRB,0.49402E-02_JPRB,0.38790E-02_JPRB,0.30097E-02_JPRB /)  
+KA(:, 3,11, 9) = (/ &
+ & 0.74153E-02_JPRB,0.75630E-02_JPRB,0.74762E-02_JPRB,0.71912E-02_JPRB,0.67425E-02_JPRB, &
+ & 0.61326E-02_JPRB,0.53447E-02_JPRB,0.42990E-02_JPRB,0.34771E-02_JPRB /)  
+KA(:, 4,11, 9) = (/ &
+ & 0.74057E-02_JPRB,0.77202E-02_JPRB,0.77477E-02_JPRB,0.75330E-02_JPRB,0.71268E-02_JPRB, &
+ & 0.65549E-02_JPRB,0.57951E-02_JPRB,0.47555E-02_JPRB,0.39884E-02_JPRB /)  
+KA(:, 5,11, 9) = (/ &
+ & 0.74391E-02_JPRB,0.79220E-02_JPRB,0.80561E-02_JPRB,0.79014E-02_JPRB,0.75514E-02_JPRB, &
+ & 0.70214E-02_JPRB,0.62779E-02_JPRB,0.52483E-02_JPRB,0.45376E-02_JPRB /)  
+KA(:, 1,12, 9) = (/ &
+ & 0.65546E-02_JPRB,0.65200E-02_JPRB,0.62910E-02_JPRB,0.59243E-02_JPRB,0.54454E-02_JPRB, &
+ & 0.48623E-02_JPRB,0.41386E-02_JPRB,0.32013E-02_JPRB,0.25137E-02_JPRB /)  
+KA(:, 2,12, 9) = (/ &
+ & 0.64987E-02_JPRB,0.66047E-02_JPRB,0.64774E-02_JPRB,0.61754E-02_JPRB,0.57483E-02_JPRB, &
+ & 0.51910E-02_JPRB,0.44799E-02_JPRB,0.35500E-02_JPRB,0.28998E-02_JPRB /)  
+KA(:, 3,12, 9) = (/ &
+ & 0.64867E-02_JPRB,0.67439E-02_JPRB,0.67077E-02_JPRB,0.64758E-02_JPRB,0.60840E-02_JPRB, &
+ & 0.55472E-02_JPRB,0.48582E-02_JPRB,0.39433E-02_JPRB,0.33472E-02_JPRB /)  
+KA(:, 4,12, 9) = (/ &
+ & 0.65214E-02_JPRB,0.69269E-02_JPRB,0.69913E-02_JPRB,0.68034E-02_JPRB,0.64480E-02_JPRB, &
+ & 0.59497E-02_JPRB,0.52811E-02_JPRB,0.43712E-02_JPRB,0.38283E-02_JPRB /)  
+KA(:, 5,12, 9) = (/ &
+ & 0.66068E-02_JPRB,0.71634E-02_JPRB,0.73032E-02_JPRB,0.71670E-02_JPRB,0.68605E-02_JPRB, &
+ & 0.63896E-02_JPRB,0.57387E-02_JPRB,0.48340E-02_JPRB,0.43614E-02_JPRB /)  
+KA(:, 1,13, 9) = (/ &
+ & 0.56598E-02_JPRB,0.57241E-02_JPRB,0.55653E-02_JPRB,0.52616E-02_JPRB,0.48615E-02_JPRB, &
+ & 0.43534E-02_JPRB,0.37143E-02_JPRB,0.28975E-02_JPRB,0.22483E-02_JPRB /)  
+KA(:, 2,13, 9) = (/ &
+ & 0.56408E-02_JPRB,0.58364E-02_JPRB,0.57539E-02_JPRB,0.55120E-02_JPRB,0.51475E-02_JPRB, &
+ & 0.46559E-02_JPRB,0.40284E-02_JPRB,0.32222E-02_JPRB,0.26111E-02_JPRB /)  
+KA(:, 3,13, 9) = (/ &
+ & 0.56697E-02_JPRB,0.59982E-02_JPRB,0.59981E-02_JPRB,0.58053E-02_JPRB,0.54583E-02_JPRB, &
+ & 0.49917E-02_JPRB,0.43867E-02_JPRB,0.35862E-02_JPRB,0.30268E-02_JPRB /)  
+KA(:, 4,13, 9) = (/ &
+ & 0.57519E-02_JPRB,0.62108E-02_JPRB,0.62874E-02_JPRB,0.61219E-02_JPRB,0.58111E-02_JPRB, &
+ & 0.53715E-02_JPRB,0.47851E-02_JPRB,0.39858E-02_JPRB,0.34700E-02_JPRB /)  
+KA(:, 5,13, 9) = (/ &
+ & 0.58830E-02_JPRB,0.64813E-02_JPRB,0.66064E-02_JPRB,0.64830E-02_JPRB,0.62068E-02_JPRB, &
+ & 0.57872E-02_JPRB,0.52185E-02_JPRB,0.44205E-02_JPRB,0.39619E-02_JPRB /)  
+KA(:, 1, 1,10) = (/ &
+ & 0.28544E-01_JPRB,0.26155E-01_JPRB,0.24149E-01_JPRB,0.22667E-01_JPRB,0.21632E-01_JPRB, &
+ & 0.20279E-01_JPRB,0.18489E-01_JPRB,0.17580E-01_JPRB,0.19616E-01_JPRB /)  
+KA(:, 2, 1,10) = (/ &
+ & 0.28363E-01_JPRB,0.26242E-01_JPRB,0.24669E-01_JPRB,0.23473E-01_JPRB,0.22995E-01_JPRB, &
+ & 0.21803E-01_JPRB,0.19985E-01_JPRB,0.19915E-01_JPRB,0.22325E-01_JPRB /)  
+KA(:, 3, 1,10) = (/ &
+ & 0.28168E-01_JPRB,0.26278E-01_JPRB,0.25280E-01_JPRB,0.24624E-01_JPRB,0.24316E-01_JPRB, &
+ & 0.23197E-01_JPRB,0.21657E-01_JPRB,0.22779E-01_JPRB,0.25626E-01_JPRB /)  
+KA(:, 4, 1,10) = (/ &
+ & 0.27980E-01_JPRB,0.26431E-01_JPRB,0.25828E-01_JPRB,0.25920E-01_JPRB,0.25669E-01_JPRB, &
+ & 0.24755E-01_JPRB,0.23686E-01_JPRB,0.25934E-01_JPRB,0.29281E-01_JPRB /)  
+KA(:, 5, 1,10) = (/ &
+ & 0.27732E-01_JPRB,0.26646E-01_JPRB,0.26660E-01_JPRB,0.27009E-01_JPRB,0.27233E-01_JPRB, &
+ & 0.26525E-01_JPRB,0.25997E-01_JPRB,0.29201E-01_JPRB,0.33040E-01_JPRB /)  
+KA(:, 1, 2,10) = (/ &
+ & 0.30271E-01_JPRB,0.27672E-01_JPRB,0.25272E-01_JPRB,0.23430E-01_JPRB,0.22043E-01_JPRB, &
+ & 0.20727E-01_JPRB,0.19083E-01_JPRB,0.16913E-01_JPRB,0.18728E-01_JPRB /)  
+KA(:, 2, 2,10) = (/ &
+ & 0.30091E-01_JPRB,0.27720E-01_JPRB,0.25820E-01_JPRB,0.24222E-01_JPRB,0.23409E-01_JPRB, &
+ & 0.22468E-01_JPRB,0.20609E-01_JPRB,0.19148E-01_JPRB,0.21375E-01_JPRB /)  
+KA(:, 3, 2,10) = (/ &
+ & 0.29914E-01_JPRB,0.27750E-01_JPRB,0.26375E-01_JPRB,0.25267E-01_JPRB,0.24987E-01_JPRB, &
+ & 0.23926E-01_JPRB,0.22306E-01_JPRB,0.21932E-01_JPRB,0.24591E-01_JPRB /)  
+KA(:, 4, 2,10) = (/ &
+ & 0.29701E-01_JPRB,0.27873E-01_JPRB,0.26877E-01_JPRB,0.26535E-01_JPRB,0.26327E-01_JPRB, &
+ & 0.25568E-01_JPRB,0.24303E-01_JPRB,0.24920E-01_JPRB,0.28049E-01_JPRB /)  
+KA(:, 5, 2,10) = (/ &
+ & 0.29422E-01_JPRB,0.28052E-01_JPRB,0.27653E-01_JPRB,0.27818E-01_JPRB,0.27831E-01_JPRB, &
+ & 0.27375E-01_JPRB,0.26338E-01_JPRB,0.28129E-01_JPRB,0.31777E-01_JPRB /)  
+KA(:, 1, 3,10) = (/ &
+ & 0.32089E-01_JPRB,0.29221E-01_JPRB,0.26504E-01_JPRB,0.24372E-01_JPRB,0.22322E-01_JPRB, &
+ & 0.20541E-01_JPRB,0.19063E-01_JPRB,0.16413E-01_JPRB,0.17368E-01_JPRB /)  
+KA(:, 2, 3,10) = (/ &
+ & 0.31950E-01_JPRB,0.29299E-01_JPRB,0.26979E-01_JPRB,0.25078E-01_JPRB,0.23422E-01_JPRB, &
+ & 0.22454E-01_JPRB,0.20735E-01_JPRB,0.18244E-01_JPRB,0.19956E-01_JPRB /)  
+KA(:, 3, 3,10) = (/ &
+ & 0.31786E-01_JPRB,0.29316E-01_JPRB,0.27496E-01_JPRB,0.25889E-01_JPRB,0.24965E-01_JPRB, &
+ & 0.24089E-01_JPRB,0.22376E-01_JPRB,0.20693E-01_JPRB,0.22993E-01_JPRB /)  
+KA(:, 4, 3,10) = (/ &
+ & 0.31564E-01_JPRB,0.29393E-01_JPRB,0.27942E-01_JPRB,0.27000E-01_JPRB,0.26402E-01_JPRB, &
+ & 0.25715E-01_JPRB,0.24406E-01_JPRB,0.23371E-01_JPRB,0.26093E-01_JPRB /)  
+KA(:, 5, 3,10) = (/ &
+ & 0.31295E-01_JPRB,0.29526E-01_JPRB,0.28627E-01_JPRB,0.28150E-01_JPRB,0.27951E-01_JPRB, &
+ & 0.27569E-01_JPRB,0.26423E-01_JPRB,0.26332E-01_JPRB,0.29505E-01_JPRB /)  
+KA(:, 1, 4,10) = (/ &
+ & 0.33998E-01_JPRB,0.30694E-01_JPRB,0.27710E-01_JPRB,0.25291E-01_JPRB,0.22809E-01_JPRB, &
+ & 0.20329E-01_JPRB,0.18660E-01_JPRB,0.16131E-01_JPRB,0.15800E-01_JPRB /)  
+KA(:, 2, 4,10) = (/ &
+ & 0.33852E-01_JPRB,0.30861E-01_JPRB,0.28097E-01_JPRB,0.25930E-01_JPRB,0.23654E-01_JPRB, &
+ & 0.22029E-01_JPRB,0.20474E-01_JPRB,0.17896E-01_JPRB,0.18339E-01_JPRB /)  
+KA(:, 3, 4,10) = (/ &
+ & 0.33685E-01_JPRB,0.30889E-01_JPRB,0.28668E-01_JPRB,0.26585E-01_JPRB,0.25018E-01_JPRB, &
+ & 0.23681E-01_JPRB,0.22215E-01_JPRB,0.19897E-01_JPRB,0.21224E-01_JPRB /)  
+KA(:, 4, 4,10) = (/ &
+ & 0.33431E-01_JPRB,0.30933E-01_JPRB,0.29107E-01_JPRB,0.27570E-01_JPRB,0.26341E-01_JPRB, &
+ & 0.25360E-01_JPRB,0.24234E-01_JPRB,0.22138E-01_JPRB,0.24217E-01_JPRB /)  
+KA(:, 5, 4,10) = (/ &
+ & 0.33153E-01_JPRB,0.31115E-01_JPRB,0.29708E-01_JPRB,0.28626E-01_JPRB,0.27757E-01_JPRB, &
+ & 0.27318E-01_JPRB,0.26191E-01_JPRB,0.24666E-01_JPRB,0.27426E-01_JPRB /)  
+KA(:, 1, 5,10) = (/ &
+ & 0.35630E-01_JPRB,0.31962E-01_JPRB,0.28969E-01_JPRB,0.26191E-01_JPRB,0.23359E-01_JPRB, &
+ & 0.20419E-01_JPRB,0.18025E-01_JPRB,0.15529E-01_JPRB,0.14046E-01_JPRB /)  
+KA(:, 2, 5,10) = (/ &
+ & 0.35465E-01_JPRB,0.32227E-01_JPRB,0.29248E-01_JPRB,0.26845E-01_JPRB,0.24076E-01_JPRB, &
+ & 0.21854E-01_JPRB,0.19842E-01_JPRB,0.17371E-01_JPRB,0.16514E-01_JPRB /)  
+KA(:, 3, 5,10) = (/ &
+ & 0.35239E-01_JPRB,0.32283E-01_JPRB,0.29869E-01_JPRB,0.27436E-01_JPRB,0.25256E-01_JPRB, &
+ & 0.23352E-01_JPRB,0.21638E-01_JPRB,0.19381E-01_JPRB,0.19322E-01_JPRB /)  
+KA(:, 4, 5,10) = (/ &
+ & 0.34959E-01_JPRB,0.32275E-01_JPRB,0.30321E-01_JPRB,0.28325E-01_JPRB,0.26494E-01_JPRB, &
+ & 0.24825E-01_JPRB,0.23722E-01_JPRB,0.21526E-01_JPRB,0.22221E-01_JPRB /)  
+KA(:, 5, 5,10) = (/ &
+ & 0.34633E-01_JPRB,0.32463E-01_JPRB,0.30867E-01_JPRB,0.29345E-01_JPRB,0.27730E-01_JPRB, &
+ & 0.26661E-01_JPRB,0.25760E-01_JPRB,0.23698E-01_JPRB,0.25325E-01_JPRB /)  
+KA(:, 1, 6,10) = (/ &
+ & 0.36611E-01_JPRB,0.32766E-01_JPRB,0.29862E-01_JPRB,0.26964E-01_JPRB,0.23985E-01_JPRB, &
+ & 0.20572E-01_JPRB,0.17499E-01_JPRB,0.14612E-01_JPRB,0.12200E-01_JPRB /)  
+KA(:, 2, 6,10) = (/ &
+ & 0.36404E-01_JPRB,0.32931E-01_JPRB,0.30135E-01_JPRB,0.27680E-01_JPRB,0.24618E-01_JPRB, &
+ & 0.21792E-01_JPRB,0.19087E-01_JPRB,0.16488E-01_JPRB,0.14408E-01_JPRB /)  
+KA(:, 3, 6,10) = (/ &
+ & 0.36151E-01_JPRB,0.33151E-01_JPRB,0.30783E-01_JPRB,0.28229E-01_JPRB,0.25608E-01_JPRB, &
+ & 0.23215E-01_JPRB,0.20762E-01_JPRB,0.18415E-01_JPRB,0.17025E-01_JPRB /)  
+KA(:, 4, 6,10) = (/ &
+ & 0.35835E-01_JPRB,0.33169E-01_JPRB,0.31261E-01_JPRB,0.29020E-01_JPRB,0.26813E-01_JPRB, &
+ & 0.24559E-01_JPRB,0.22662E-01_JPRB,0.20622E-01_JPRB,0.19846E-01_JPRB /)  
+KA(:, 5, 6,10) = (/ &
+ & 0.35491E-01_JPRB,0.33330E-01_JPRB,0.31756E-01_JPRB,0.30047E-01_JPRB,0.27916E-01_JPRB, &
+ & 0.26189E-01_JPRB,0.24713E-01_JPRB,0.22859E-01_JPRB,0.22839E-01_JPRB /)  
+KA(:, 1, 7,10) = (/ &
+ & 0.36793E-01_JPRB,0.32943E-01_JPRB,0.30074E-01_JPRB,0.27299E-01_JPRB,0.24319E-01_JPRB, &
+ & 0.20802E-01_JPRB,0.17113E-01_JPRB,0.13465E-01_JPRB,0.10508E-01_JPRB /)  
+KA(:, 2, 7,10) = (/ &
+ & 0.36572E-01_JPRB,0.33074E-01_JPRB,0.30511E-01_JPRB,0.28032E-01_JPRB,0.24986E-01_JPRB, &
+ & 0.21844E-01_JPRB,0.18570E-01_JPRB,0.15283E-01_JPRB,0.12467E-01_JPRB /)  
+KA(:, 3, 7,10) = (/ &
+ & 0.36275E-01_JPRB,0.33234E-01_JPRB,0.31161E-01_JPRB,0.28602E-01_JPRB,0.25904E-01_JPRB, &
+ & 0.23164E-01_JPRB,0.20091E-01_JPRB,0.17151E-01_JPRB,0.14775E-01_JPRB /)  
+KA(:, 4, 7,10) = (/ &
+ & 0.35925E-01_JPRB,0.33332E-01_JPRB,0.31658E-01_JPRB,0.29367E-01_JPRB,0.27125E-01_JPRB, &
+ & 0.24431E-01_JPRB,0.21734E-01_JPRB,0.19261E-01_JPRB,0.17350E-01_JPRB /)  
+KA(:, 5, 7,10) = (/ &
+ & 0.35558E-01_JPRB,0.33506E-01_JPRB,0.32097E-01_JPRB,0.30412E-01_JPRB,0.28219E-01_JPRB, &
+ & 0.25923E-01_JPRB,0.23598E-01_JPRB,0.21456E-01_JPRB,0.20114E-01_JPRB /)  
+KA(:, 1, 8,10) = (/ &
+ & 0.36293E-01_JPRB,0.32550E-01_JPRB,0.29721E-01_JPRB,0.27154E-01_JPRB,0.24076E-01_JPRB, &
+ & 0.20693E-01_JPRB,0.16829E-01_JPRB,0.12555E-01_JPRB,0.89579E-02_JPRB /)  
+KA(:, 2, 8,10) = (/ &
+ & 0.35985E-01_JPRB,0.32624E-01_JPRB,0.30270E-01_JPRB,0.27879E-01_JPRB,0.24830E-01_JPRB, &
+ & 0.21669E-01_JPRB,0.18126E-01_JPRB,0.14126E-01_JPRB,0.10649E-01_JPRB /)  
+KA(:, 3, 8,10) = (/ &
+ & 0.35646E-01_JPRB,0.32730E-01_JPRB,0.30946E-01_JPRB,0.28474E-01_JPRB,0.25750E-01_JPRB, &
+ & 0.23017E-01_JPRB,0.19564E-01_JPRB,0.15741E-01_JPRB,0.12721E-01_JPRB /)  
+KA(:, 4, 8,10) = (/ &
+ & 0.35279E-01_JPRB,0.32754E-01_JPRB,0.31424E-01_JPRB,0.29187E-01_JPRB,0.27070E-01_JPRB, &
+ & 0.24316E-01_JPRB,0.21018E-01_JPRB,0.17682E-01_JPRB,0.15011E-01_JPRB /)  
+KA(:, 5, 8,10) = (/ &
+ & 0.34858E-01_JPRB,0.32947E-01_JPRB,0.31835E-01_JPRB,0.30265E-01_JPRB,0.28236E-01_JPRB, &
+ & 0.25710E-01_JPRB,0.22721E-01_JPRB,0.19777E-01_JPRB,0.17474E-01_JPRB /)  
+KA(:, 1, 9,10) = (/ &
+ & 0.35060E-01_JPRB,0.31556E-01_JPRB,0.29012E-01_JPRB,0.26469E-01_JPRB,0.23391E-01_JPRB, &
+ & 0.20141E-01_JPRB,0.16295E-01_JPRB,0.11885E-01_JPRB,0.58937E-02_JPRB /)  
+KA(:, 2, 9,10) = (/ &
+ & 0.34721E-01_JPRB,0.31589E-01_JPRB,0.29506E-01_JPRB,0.27211E-01_JPRB,0.24267E-01_JPRB, &
+ & 0.21055E-01_JPRB,0.17547E-01_JPRB,0.13263E-01_JPRB,0.69908E-02_JPRB /)  
+KA(:, 3, 9,10) = (/ &
+ & 0.34339E-01_JPRB,0.31609E-01_JPRB,0.30075E-01_JPRB,0.27841E-01_JPRB,0.25163E-01_JPRB, &
+ & 0.22398E-01_JPRB,0.18997E-01_JPRB,0.14640E-01_JPRB,0.92447E-02_JPRB /)  
+KA(:, 4, 9,10) = (/ &
+ & 0.33936E-01_JPRB,0.31619E-01_JPRB,0.30603E-01_JPRB,0.28503E-01_JPRB,0.26490E-01_JPRB, &
+ & 0.23804E-01_JPRB,0.20342E-01_JPRB,0.16280E-01_JPRB,0.11993E-01_JPRB /)  
+KA(:, 5, 9,10) = (/ &
+ & 0.33530E-01_JPRB,0.31821E-01_JPRB,0.30991E-01_JPRB,0.29578E-01_JPRB,0.27714E-01_JPRB, &
+ & 0.25218E-01_JPRB,0.21886E-01_JPRB,0.18137E-01_JPRB,0.14941E-01_JPRB /)  
+KA(:, 1,10,10) = (/ &
+ & 0.33129E-01_JPRB,0.29964E-01_JPRB,0.27856E-01_JPRB,0.25331E-01_JPRB,0.22401E-01_JPRB, &
+ & 0.19295E-01_JPRB,0.15555E-01_JPRB,0.11348E-01_JPRB,0.74286E-02_JPRB /)  
+KA(:, 2,10,10) = (/ &
+ & 0.32749E-01_JPRB,0.29950E-01_JPRB,0.28249E-01_JPRB,0.25998E-01_JPRB,0.23402E-01_JPRB, &
+ & 0.20209E-01_JPRB,0.16757E-01_JPRB,0.12616E-01_JPRB,0.86653E-02_JPRB /)  
+KA(:, 3,10,10) = (/ &
+ & 0.32344E-01_JPRB,0.29933E-01_JPRB,0.28722E-01_JPRB,0.26736E-01_JPRB,0.24275E-01_JPRB, &
+ & 0.21508E-01_JPRB,0.18229E-01_JPRB,0.13852E-01_JPRB,0.98082E-02_JPRB /)  
+KA(:, 4,10,10) = (/ &
+ & 0.31944E-01_JPRB,0.30002E-01_JPRB,0.29235E-01_JPRB,0.27435E-01_JPRB,0.25548E-01_JPRB, &
+ & 0.22964E-01_JPRB,0.19579E-01_JPRB,0.15278E-01_JPRB,0.11352E-01_JPRB /)  
+KA(:, 5,10,10) = (/ &
+ & 0.31533E-01_JPRB,0.30276E-01_JPRB,0.29685E-01_JPRB,0.28539E-01_JPRB,0.26795E-01_JPRB, &
+ & 0.24358E-01_JPRB,0.21106E-01_JPRB,0.16900E-01_JPRB,0.12858E-01_JPRB /)  
+KA(:, 1,11,10) = (/ &
+ & 0.30476E-01_JPRB,0.27848E-01_JPRB,0.26383E-01_JPRB,0.23991E-01_JPRB,0.21505E-01_JPRB, &
+ & 0.18546E-01_JPRB,0.15127E-01_JPRB,0.11242E-01_JPRB,0.84064E-02_JPRB /)  
+KA(:, 2,11,10) = (/ &
+ & 0.30069E-01_JPRB,0.27873E-01_JPRB,0.26695E-01_JPRB,0.24743E-01_JPRB,0.22441E-01_JPRB, &
+ & 0.19591E-01_JPRB,0.16445E-01_JPRB,0.12465E-01_JPRB,0.99520E-02_JPRB /)  
+KA(:, 3,11,10) = (/ &
+ & 0.29683E-01_JPRB,0.27938E-01_JPRB,0.27199E-01_JPRB,0.25464E-01_JPRB,0.23474E-01_JPRB, &
+ & 0.21008E-01_JPRB,0.17841E-01_JPRB,0.13636E-01_JPRB,0.11012E-01_JPRB /)  
+KA(:, 4,11,10) = (/ &
+ & 0.29281E-01_JPRB,0.28147E-01_JPRB,0.27612E-01_JPRB,0.26457E-01_JPRB,0.24810E-01_JPRB, &
+ & 0.22367E-01_JPRB,0.19198E-01_JPRB,0.15026E-01_JPRB,0.12764E-01_JPRB /)  
+KA(:, 5,11,10) = (/ &
+ & 0.28878E-01_JPRB,0.28450E-01_JPRB,0.28275E-01_JPRB,0.27607E-01_JPRB,0.26039E-01_JPRB, &
+ & 0.23769E-01_JPRB,0.20798E-01_JPRB,0.16479E-01_JPRB,0.14486E-01_JPRB /)  
+KA(:, 1,12,10) = (/ &
+ & 0.27483E-01_JPRB,0.25515E-01_JPRB,0.24398E-01_JPRB,0.22423E-01_JPRB,0.20204E-01_JPRB, &
+ & 0.17532E-01_JPRB,0.14597E-01_JPRB,0.10977E-01_JPRB,0.89256E-02_JPRB /)  
+KA(:, 2,12,10) = (/ &
+ & 0.27095E-01_JPRB,0.25634E-01_JPRB,0.24782E-01_JPRB,0.23175E-01_JPRB,0.21102E-01_JPRB, &
+ & 0.18740E-01_JPRB,0.15902E-01_JPRB,0.12114E-01_JPRB,0.10252E-01_JPRB /)  
+KA(:, 3,12,10) = (/ &
+ & 0.26727E-01_JPRB,0.25761E-01_JPRB,0.25266E-01_JPRB,0.23974E-01_JPRB,0.22361E-01_JPRB, &
+ & 0.20171E-01_JPRB,0.17193E-01_JPRB,0.13275E-01_JPRB,0.11451E-01_JPRB /)  
+KA(:, 4,12,10) = (/ &
+ & 0.26341E-01_JPRB,0.26039E-01_JPRB,0.25768E-01_JPRB,0.25146E-01_JPRB,0.23693E-01_JPRB, &
+ & 0.21452E-01_JPRB,0.18566E-01_JPRB,0.14626E-01_JPRB,0.13159E-01_JPRB /)  
+KA(:, 5,12,10) = (/ &
+ & 0.25958E-01_JPRB,0.26232E-01_JPRB,0.26607E-01_JPRB,0.26277E-01_JPRB,0.24926E-01_JPRB, &
+ & 0.22906E-01_JPRB,0.20118E-01_JPRB,0.16018E-01_JPRB,0.14784E-01_JPRB /)  
+KA(:, 1,13,10) = (/ &
+ & 0.24404E-01_JPRB,0.23195E-01_JPRB,0.22191E-01_JPRB,0.20664E-01_JPRB,0.18645E-01_JPRB, &
+ & 0.16397E-01_JPRB,0.13889E-01_JPRB,0.10532E-01_JPRB,0.85762E-02_JPRB /)  
+KA(:, 2,13,10) = (/ &
+ & 0.24045E-01_JPRB,0.23274E-01_JPRB,0.22704E-01_JPRB,0.21382E-01_JPRB,0.19651E-01_JPRB, &
+ & 0.17693E-01_JPRB,0.15133E-01_JPRB,0.11576E-01_JPRB,0.96068E-02_JPRB /)  
+KA(:, 3,13,10) = (/ &
+ & 0.23688E-01_JPRB,0.23458E-01_JPRB,0.23185E-01_JPRB,0.22281E-01_JPRB,0.21010E-01_JPRB, &
+ & 0.19021E-01_JPRB,0.16312E-01_JPRB,0.12755E-01_JPRB,0.10813E-01_JPRB /)  
+KA(:, 4,13,10) = (/ &
+ & 0.23340E-01_JPRB,0.23719E-01_JPRB,0.23835E-01_JPRB,0.23529E-01_JPRB,0.22269E-01_JPRB, &
+ & 0.20297E-01_JPRB,0.17677E-01_JPRB,0.14063E-01_JPRB,0.12469E-01_JPRB /)  
+KA(:, 5,13,10) = (/ &
+ & 0.23007E-01_JPRB,0.23887E-01_JPRB,0.24745E-01_JPRB,0.24636E-01_JPRB,0.23538E-01_JPRB, &
+ & 0.21795E-01_JPRB,0.19163E-01_JPRB,0.15452E-01_JPRB,0.13866E-01_JPRB /)  
+KA(:, 1, 1,11) = (/ &
+ & 0.38207E-01_JPRB,0.35023E-01_JPRB,0.31764E-01_JPRB,0.29513E-01_JPRB,0.27148E-01_JPRB, &
+ & 0.25121E-01_JPRB,0.22678E-01_JPRB,0.23928E-01_JPRB,0.26899E-01_JPRB /)  
+KA(:, 2, 1,11) = (/ &
+ & 0.37930E-01_JPRB,0.35272E-01_JPRB,0.32250E-01_JPRB,0.30760E-01_JPRB,0.28557E-01_JPRB, &
+ & 0.27105E-01_JPRB,0.25089E-01_JPRB,0.27604E-01_JPRB,0.31070E-01_JPRB /)  
+KA(:, 3, 1,11) = (/ &
+ & 0.37611E-01_JPRB,0.35491E-01_JPRB,0.32949E-01_JPRB,0.31869E-01_JPRB,0.30632E-01_JPRB, &
+ & 0.29068E-01_JPRB,0.27897E-01_JPRB,0.31369E-01_JPRB,0.35419E-01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART7',1,ZHOOK_HANDLE)
+END SUBROUTINE PART7
+
+
+SUBROUTINE PART8
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART8',0,ZHOOK_HANDLE)
+
+
+KA(:, 4, 1,11) = (/ &
+ & 0.37244E-01_JPRB,0.35566E-01_JPRB,0.33874E-01_JPRB,0.33253E-01_JPRB,0.32466E-01_JPRB, &
+ & 0.31095E-01_JPRB,0.31358E-01_JPRB,0.35716E-01_JPRB,0.40368E-01_JPRB /)  
+KA(:, 5, 1,11) = (/ &
+ & 0.36895E-01_JPRB,0.35750E-01_JPRB,0.34817E-01_JPRB,0.35038E-01_JPRB,0.34265E-01_JPRB, &
+ & 0.33428E-01_JPRB,0.35709E-01_JPRB,0.40899E-01_JPRB,0.46337E-01_JPRB /)  
+KA(:, 1, 2,11) = (/ &
+ & 0.39640E-01_JPRB,0.36208E-01_JPRB,0.33140E-01_JPRB,0.30731E-01_JPRB,0.28621E-01_JPRB, &
+ & 0.26451E-01_JPRB,0.23824E-01_JPRB,0.23418E-01_JPRB,0.26401E-01_JPRB /)  
+KA(:, 2, 2,11) = (/ &
+ & 0.39384E-01_JPRB,0.36543E-01_JPRB,0.33542E-01_JPRB,0.32043E-01_JPRB,0.30032E-01_JPRB, &
+ & 0.28484E-01_JPRB,0.26191E-01_JPRB,0.27027E-01_JPRB,0.30540E-01_JPRB /)  
+KA(:, 3, 2,11) = (/ &
+ & 0.39069E-01_JPRB,0.36650E-01_JPRB,0.34340E-01_JPRB,0.33119E-01_JPRB,0.32037E-01_JPRB, &
+ & 0.30787E-01_JPRB,0.28410E-01_JPRB,0.30659E-01_JPRB,0.34733E-01_JPRB /)  
+KA(:, 4, 2,11) = (/ &
+ & 0.38756E-01_JPRB,0.36738E-01_JPRB,0.35220E-01_JPRB,0.34547E-01_JPRB,0.34264E-01_JPRB, &
+ & 0.32872E-01_JPRB,0.31204E-01_JPRB,0.34827E-01_JPRB,0.39529E-01_JPRB /)  
+KA(:, 5, 2,11) = (/ &
+ & 0.38432E-01_JPRB,0.36958E-01_JPRB,0.36077E-01_JPRB,0.36343E-01_JPRB,0.36389E-01_JPRB, &
+ & 0.35222E-01_JPRB,0.34916E-01_JPRB,0.39622E-01_JPRB,0.45018E-01_JPRB /)  
+KA(:, 1, 3,11) = (/ &
+ & 0.41762E-01_JPRB,0.37801E-01_JPRB,0.34598E-01_JPRB,0.31385E-01_JPRB,0.29542E-01_JPRB, &
+ & 0.27120E-01_JPRB,0.24296E-01_JPRB,0.22163E-01_JPRB,0.24873E-01_JPRB /)  
+KA(:, 2, 3,11) = (/ &
+ & 0.41521E-01_JPRB,0.38107E-01_JPRB,0.34885E-01_JPRB,0.32740E-01_JPRB,0.30892E-01_JPRB, &
+ & 0.28927E-01_JPRB,0.26874E-01_JPRB,0.25608E-01_JPRB,0.28828E-01_JPRB /)  
+KA(:, 3, 3,11) = (/ &
+ & 0.41284E-01_JPRB,0.38250E-01_JPRB,0.35590E-01_JPRB,0.33929E-01_JPRB,0.32637E-01_JPRB, &
+ & 0.31412E-01_JPRB,0.29268E-01_JPRB,0.29038E-01_JPRB,0.32851E-01_JPRB /)  
+KA(:, 4, 3,11) = (/ &
+ & 0.40996E-01_JPRB,0.38286E-01_JPRB,0.36402E-01_JPRB,0.35356E-01_JPRB,0.34868E-01_JPRB, &
+ & 0.33799E-01_JPRB,0.31619E-01_JPRB,0.33158E-01_JPRB,0.37659E-01_JPRB /)  
+KA(:, 5, 3,11) = (/ &
+ & 0.40710E-01_JPRB,0.38497E-01_JPRB,0.37108E-01_JPRB,0.37161E-01_JPRB,0.37098E-01_JPRB, &
+ & 0.36226E-01_JPRB,0.34568E-01_JPRB,0.37733E-01_JPRB,0.42953E-01_JPRB /)  
+KA(:, 1, 4,11) = (/ &
+ & 0.44432E-01_JPRB,0.39911E-01_JPRB,0.36533E-01_JPRB,0.32358E-01_JPRB,0.30116E-01_JPRB, &
+ & 0.27425E-01_JPRB,0.24391E-01_JPRB,0.21003E-01_JPRB,0.22873E-01_JPRB /)  
+KA(:, 2, 4,11) = (/ &
+ & 0.44241E-01_JPRB,0.40248E-01_JPRB,0.36750E-01_JPRB,0.33734E-01_JPRB,0.31371E-01_JPRB, &
+ & 0.29050E-01_JPRB,0.26929E-01_JPRB,0.23993E-01_JPRB,0.26696E-01_JPRB /)  
+KA(:, 3, 4,11) = (/ &
+ & 0.43986E-01_JPRB,0.40474E-01_JPRB,0.37358E-01_JPRB,0.34847E-01_JPRB,0.32894E-01_JPRB, &
+ & 0.31475E-01_JPRB,0.29486E-01_JPRB,0.27256E-01_JPRB,0.30632E-01_JPRB /)  
+KA(:, 4, 4,11) = (/ &
+ & 0.43750E-01_JPRB,0.40487E-01_JPRB,0.38107E-01_JPRB,0.36115E-01_JPRB,0.35063E-01_JPRB, &
+ & 0.33924E-01_JPRB,0.31967E-01_JPRB,0.31144E-01_JPRB,0.35198E-01_JPRB /)  
+KA(:, 5, 4,11) = (/ &
+ & 0.43427E-01_JPRB,0.40610E-01_JPRB,0.38702E-01_JPRB,0.37867E-01_JPRB,0.37251E-01_JPRB, &
+ & 0.36357E-01_JPRB,0.34995E-01_JPRB,0.35502E-01_JPRB,0.40197E-01_JPRB /)  
+KA(:, 1, 5,11) = (/ &
+ & 0.47176E-01_JPRB,0.42142E-01_JPRB,0.38550E-01_JPRB,0.33884E-01_JPRB,0.30889E-01_JPRB, &
+ & 0.27516E-01_JPRB,0.24267E-01_JPRB,0.20680E-01_JPRB,0.20851E-01_JPRB /)  
+KA(:, 2, 5,11) = (/ &
+ & 0.47021E-01_JPRB,0.42363E-01_JPRB,0.38770E-01_JPRB,0.35164E-01_JPRB,0.32104E-01_JPRB, &
+ & 0.29005E-01_JPRB,0.26645E-01_JPRB,0.23247E-01_JPRB,0.24505E-01_JPRB /)  
+KA(:, 3, 5,11) = (/ &
+ & 0.46797E-01_JPRB,0.42763E-01_JPRB,0.39235E-01_JPRB,0.36269E-01_JPRB,0.33395E-01_JPRB, &
+ & 0.31307E-01_JPRB,0.29249E-01_JPRB,0.25924E-01_JPRB,0.28324E-01_JPRB /)  
+KA(:, 4, 5,11) = (/ &
+ & 0.46572E-01_JPRB,0.42912E-01_JPRB,0.40018E-01_JPRB,0.37361E-01_JPRB,0.35308E-01_JPRB, &
+ & 0.33789E-01_JPRB,0.31702E-01_JPRB,0.29304E-01_JPRB,0.32735E-01_JPRB /)  
+KA(:, 5, 5,11) = (/ &
+ & 0.46255E-01_JPRB,0.42923E-01_JPRB,0.40617E-01_JPRB,0.38829E-01_JPRB,0.37399E-01_JPRB, &
+ & 0.36167E-01_JPRB,0.34686E-01_JPRB,0.33312E-01_JPRB,0.37380E-01_JPRB /)  
+KA(:, 1, 6,11) = (/ &
+ & 0.49975E-01_JPRB,0.44361E-01_JPRB,0.40341E-01_JPRB,0.35539E-01_JPRB,0.31829E-01_JPRB, &
+ & 0.27816E-01_JPRB,0.23845E-01_JPRB,0.20093E-01_JPRB,0.18543E-01_JPRB /)  
+KA(:, 2, 6,11) = (/ &
+ & 0.49828E-01_JPRB,0.44558E-01_JPRB,0.40763E-01_JPRB,0.36628E-01_JPRB,0.33050E-01_JPRB, &
+ & 0.29095E-01_JPRB,0.26117E-01_JPRB,0.22673E-01_JPRB,0.22099E-01_JPRB /)  
+KA(:, 3, 6,11) = (/ &
+ & 0.49608E-01_JPRB,0.44841E-01_JPRB,0.41085E-01_JPRB,0.37793E-01_JPRB,0.34135E-01_JPRB, &
+ & 0.31097E-01_JPRB,0.28755E-01_JPRB,0.25283E-01_JPRB,0.25831E-01_JPRB /)  
+KA(:, 4, 6,11) = (/ &
+ & 0.49365E-01_JPRB,0.45144E-01_JPRB,0.41922E-01_JPRB,0.38723E-01_JPRB,0.35845E-01_JPRB, &
+ & 0.33431E-01_JPRB,0.31237E-01_JPRB,0.28118E-01_JPRB,0.29954E-01_JPRB /)  
+KA(:, 5, 6,11) = (/ &
+ & 0.49026E-01_JPRB,0.45249E-01_JPRB,0.42535E-01_JPRB,0.39993E-01_JPRB,0.37821E-01_JPRB, &
+ & 0.35671E-01_JPRB,0.34099E-01_JPRB,0.31399E-01_JPRB,0.34366E-01_JPRB /)  
+KA(:, 1, 7,11) = (/ &
+ & 0.52410E-01_JPRB,0.46362E-01_JPRB,0.41901E-01_JPRB,0.37210E-01_JPRB,0.32800E-01_JPRB, &
+ & 0.28263E-01_JPRB,0.23499E-01_JPRB,0.19230E-01_JPRB,0.16237E-01_JPRB /)  
+KA(:, 2, 7,11) = (/ &
+ & 0.52214E-01_JPRB,0.46505E-01_JPRB,0.42451E-01_JPRB,0.38113E-01_JPRB,0.34021E-01_JPRB, &
+ & 0.29480E-01_JPRB,0.25464E-01_JPRB,0.21812E-01_JPRB,0.19595E-01_JPRB /)  
+KA(:, 3, 7,11) = (/ &
+ & 0.51982E-01_JPRB,0.46700E-01_JPRB,0.42867E-01_JPRB,0.39292E-01_JPRB,0.35048E-01_JPRB, &
+ & 0.31222E-01_JPRB,0.27987E-01_JPRB,0.24489E-01_JPRB,0.23138E-01_JPRB /)  
+KA(:, 4, 7,11) = (/ &
+ & 0.51660E-01_JPRB,0.46904E-01_JPRB,0.43697E-01_JPRB,0.40172E-01_JPRB,0.36555E-01_JPRB, &
+ & 0.33390E-01_JPRB,0.30506E-01_JPRB,0.27287E-01_JPRB,0.27036E-01_JPRB /)  
+KA(:, 5, 7,11) = (/ &
+ & 0.51284E-01_JPRB,0.47053E-01_JPRB,0.44408E-01_JPRB,0.41338E-01_JPRB,0.38429E-01_JPRB, &
+ & 0.35446E-01_JPRB,0.33297E-01_JPRB,0.30383E-01_JPRB,0.31263E-01_JPRB /)  
+KA(:, 1, 8,11) = (/ &
+ & 0.53849E-01_JPRB,0.47597E-01_JPRB,0.43012E-01_JPRB,0.38373E-01_JPRB,0.33860E-01_JPRB, &
+ & 0.28679E-01_JPRB,0.23391E-01_JPRB,0.18151E-01_JPRB,0.14106E-01_JPRB /)  
+KA(:, 2, 8,11) = (/ &
+ & 0.53641E-01_JPRB,0.47671E-01_JPRB,0.43475E-01_JPRB,0.39445E-01_JPRB,0.35042E-01_JPRB, &
+ & 0.29924E-01_JPRB,0.25055E-01_JPRB,0.20655E-01_JPRB,0.17171E-01_JPRB /)  
+KA(:, 3, 8,11) = (/ &
+ & 0.53375E-01_JPRB,0.47826E-01_JPRB,0.44020E-01_JPRB,0.40653E-01_JPRB,0.36059E-01_JPRB, &
+ & 0.31447E-01_JPRB,0.27345E-01_JPRB,0.23357E-01_JPRB,0.20383E-01_JPRB /)  
+KA(:, 4, 8,11) = (/ &
+ & 0.53001E-01_JPRB,0.48011E-01_JPRB,0.44999E-01_JPRB,0.41558E-01_JPRB,0.37354E-01_JPRB, &
+ & 0.33601E-01_JPRB,0.29695E-01_JPRB,0.26106E-01_JPRB,0.24004E-01_JPRB /)  
+KA(:, 5, 8,11) = (/ &
+ & 0.52592E-01_JPRB,0.48152E-01_JPRB,0.45845E-01_JPRB,0.42585E-01_JPRB,0.39198E-01_JPRB, &
+ & 0.35588E-01_JPRB,0.32287E-01_JPRB,0.29155E-01_JPRB,0.27991E-01_JPRB /)  
+KA(:, 1, 9,11) = (/ &
+ & 0.54223E-01_JPRB,0.47973E-01_JPRB,0.43289E-01_JPRB,0.38882E-01_JPRB,0.34299E-01_JPRB, &
+ & 0.28946E-01_JPRB,0.23303E-01_JPRB,0.17068E-01_JPRB,0.11192E-01_JPRB /)  
+KA(:, 2, 9,11) = (/ &
+ & 0.53940E-01_JPRB,0.47929E-01_JPRB,0.43759E-01_JPRB,0.39916E-01_JPRB,0.35622E-01_JPRB, &
+ & 0.30345E-01_JPRB,0.24752E-01_JPRB,0.19298E-01_JPRB,0.14778E-01_JPRB /)  
+KA(:, 3, 9,11) = (/ &
+ & 0.53642E-01_JPRB,0.48095E-01_JPRB,0.44399E-01_JPRB,0.41241E-01_JPRB,0.36768E-01_JPRB, &
+ & 0.31745E-01_JPRB,0.26845E-01_JPRB,0.21914E-01_JPRB,0.17754E-01_JPRB /)  
+KA(:, 4, 9,11) = (/ &
+ & 0.53257E-01_JPRB,0.48243E-01_JPRB,0.45322E-01_JPRB,0.42327E-01_JPRB,0.37988E-01_JPRB, &
+ & 0.33799E-01_JPRB,0.29109E-01_JPRB,0.24533E-01_JPRB,0.21056E-01_JPRB /)  
+KA(:, 5, 9,11) = (/ &
+ & 0.52778E-01_JPRB,0.48340E-01_JPRB,0.46365E-01_JPRB,0.43326E-01_JPRB,0.39837E-01_JPRB, &
+ & 0.35758E-01_JPRB,0.31465E-01_JPRB,0.27467E-01_JPRB,0.24721E-01_JPRB /)  
+KA(:, 1,10,11) = (/ &
+ & 0.53564E-01_JPRB,0.47520E-01_JPRB,0.42897E-01_JPRB,0.38870E-01_JPRB,0.34096E-01_JPRB, &
+ & 0.28762E-01_JPRB,0.23161E-01_JPRB,0.16420E-01_JPRB,0.10403E-01_JPRB /)  
+KA(:, 2,10,11) = (/ &
+ & 0.53200E-01_JPRB,0.47370E-01_JPRB,0.43390E-01_JPRB,0.39812E-01_JPRB,0.35374E-01_JPRB, &
+ & 0.30449E-01_JPRB,0.24605E-01_JPRB,0.18329E-01_JPRB,0.12727E-01_JPRB /)  
+KA(:, 3,10,11) = (/ &
+ & 0.52804E-01_JPRB,0.47486E-01_JPRB,0.44077E-01_JPRB,0.41029E-01_JPRB,0.36828E-01_JPRB, &
+ & 0.31909E-01_JPRB,0.26518E-01_JPRB,0.20700E-01_JPRB,0.14792E-01_JPRB /)  
+KA(:, 4,10,11) = (/ &
+ & 0.52379E-01_JPRB,0.47585E-01_JPRB,0.44997E-01_JPRB,0.42270E-01_JPRB,0.38168E-01_JPRB, &
+ & 0.33930E-01_JPRB,0.28762E-01_JPRB,0.23052E-01_JPRB,0.16495E-01_JPRB /)  
+KA(:, 5,10,11) = (/ &
+ & 0.51859E-01_JPRB,0.47629E-01_JPRB,0.45989E-01_JPRB,0.43387E-01_JPRB,0.40080E-01_JPRB, &
+ & 0.36007E-01_JPRB,0.30957E-01_JPRB,0.25773E-01_JPRB,0.18898E-01_JPRB /)  
+KA(:, 1,11,11) = (/ &
+ & 0.51622E-01_JPRB,0.46074E-01_JPRB,0.42057E-01_JPRB,0.38618E-01_JPRB,0.33808E-01_JPRB, &
+ & 0.28847E-01_JPRB,0.23288E-01_JPRB,0.16620E-01_JPRB,0.11907E-01_JPRB /)  
+KA(:, 2,11,11) = (/ &
+ & 0.51193E-01_JPRB,0.45980E-01_JPRB,0.42719E-01_JPRB,0.39541E-01_JPRB,0.35253E-01_JPRB, &
+ & 0.30566E-01_JPRB,0.24931E-01_JPRB,0.18565E-01_JPRB,0.13988E-01_JPRB /)  
+KA(:, 3,11,11) = (/ &
+ & 0.50740E-01_JPRB,0.46089E-01_JPRB,0.43457E-01_JPRB,0.40804E-01_JPRB,0.36736E-01_JPRB, &
+ & 0.32310E-01_JPRB,0.27095E-01_JPRB,0.20684E-01_JPRB,0.16681E-01_JPRB /)  
+KA(:, 4,11,11) = (/ &
+ & 0.50228E-01_JPRB,0.46105E-01_JPRB,0.44454E-01_JPRB,0.41838E-01_JPRB,0.38478E-01_JPRB, &
+ & 0.34580E-01_JPRB,0.29293E-01_JPRB,0.22846E-01_JPRB,0.18301E-01_JPRB /)  
+KA(:, 5,11,11) = (/ &
+ & 0.49697E-01_JPRB,0.46259E-01_JPRB,0.45191E-01_JPRB,0.43198E-01_JPRB,0.40635E-01_JPRB, &
+ & 0.36709E-01_JPRB,0.31434E-01_JPRB,0.25478E-01_JPRB,0.20947E-01_JPRB /)  
+KA(:, 1,12,11) = (/ &
+ & 0.48647E-01_JPRB,0.43752E-01_JPRB,0.40707E-01_JPRB,0.37500E-01_JPRB,0.33089E-01_JPRB, &
+ & 0.28489E-01_JPRB,0.23000E-01_JPRB,0.16785E-01_JPRB,0.12627E-01_JPRB /)  
+KA(:, 2,12,11) = (/ &
+ & 0.48181E-01_JPRB,0.43711E-01_JPRB,0.41312E-01_JPRB,0.38500E-01_JPRB,0.34693E-01_JPRB, &
+ & 0.30128E-01_JPRB,0.24939E-01_JPRB,0.18673E-01_JPRB,0.15167E-01_JPRB /)  
+KA(:, 3,12,11) = (/ &
+ & 0.47678E-01_JPRB,0.43812E-01_JPRB,0.42104E-01_JPRB,0.39699E-01_JPRB,0.36175E-01_JPRB, &
+ & 0.32199E-01_JPRB,0.27269E-01_JPRB,0.20637E-01_JPRB,0.17826E-01_JPRB /)  
+KA(:, 4,12,11) = (/ &
+ & 0.47181E-01_JPRB,0.43914E-01_JPRB,0.43002E-01_JPRB,0.40767E-01_JPRB,0.38218E-01_JPRB, &
+ & 0.34662E-01_JPRB,0.29455E-01_JPRB,0.22728E-01_JPRB,0.19785E-01_JPRB /)  
+KA(:, 5,12,11) = (/ &
+ & 0.46685E-01_JPRB,0.44343E-01_JPRB,0.43686E-01_JPRB,0.42426E-01_JPRB,0.40422E-01_JPRB, &
+ & 0.36842E-01_JPRB,0.31692E-01_JPRB,0.25217E-01_JPRB,0.22679E-01_JPRB /)  
+KA(:, 1,13,11) = (/ &
+ & 0.44854E-01_JPRB,0.40724E-01_JPRB,0.38672E-01_JPRB,0.35614E-01_JPRB,0.31949E-01_JPRB, &
+ & 0.27602E-01_JPRB,0.22498E-01_JPRB,0.16720E-01_JPRB,0.12798E-01_JPRB /)  
+KA(:, 2,13,11) = (/ &
+ & 0.44381E-01_JPRB,0.40833E-01_JPRB,0.39190E-01_JPRB,0.36792E-01_JPRB,0.33534E-01_JPRB, &
+ & 0.29330E-01_JPRB,0.24604E-01_JPRB,0.18629E-01_JPRB,0.15661E-01_JPRB /)  
+KA(:, 3,13,11) = (/ &
+ & 0.43916E-01_JPRB,0.40995E-01_JPRB,0.40051E-01_JPRB,0.37975E-01_JPRB,0.35149E-01_JPRB, &
+ & 0.31642E-01_JPRB,0.27046E-01_JPRB,0.20453E-01_JPRB,0.17792E-01_JPRB /)  
+KA(:, 4,13,11) = (/ &
+ & 0.43441E-01_JPRB,0.41288E-01_JPRB,0.40871E-01_JPRB,0.39278E-01_JPRB,0.37365E-01_JPRB, &
+ & 0.34126E-01_JPRB,0.29213E-01_JPRB,0.22513E-01_JPRB,0.19591E-01_JPRB /)  
+KA(:, 5,13,11) = (/ &
+ & 0.42963E-01_JPRB,0.41916E-01_JPRB,0.41758E-01_JPRB,0.41144E-01_JPRB,0.39580E-01_JPRB, &
+ & 0.36327E-01_JPRB,0.31558E-01_JPRB,0.24885E-01_JPRB,0.22715E-01_JPRB /)  
+KA(:, 1, 1,12) = (/ &
+ & 0.52315E-01_JPRB,0.47505E-01_JPRB,0.42884E-01_JPRB,0.38287E-01_JPRB,0.34721E-01_JPRB, &
+ & 0.30888E-01_JPRB,0.29687E-01_JPRB,0.33559E-01_JPRB,0.37791E-01_JPRB /)  
+KA(:, 2, 1,12) = (/ &
+ & 0.52132E-01_JPRB,0.47869E-01_JPRB,0.43358E-01_JPRB,0.39519E-01_JPRB,0.36490E-01_JPRB, &
+ & 0.33059E-01_JPRB,0.34560E-01_JPRB,0.39434E-01_JPRB,0.44537E-01_JPRB /)  
+KA(:, 3, 1,12) = (/ &
+ & 0.51859E-01_JPRB,0.48259E-01_JPRB,0.44108E-01_JPRB,0.41053E-01_JPRB,0.38159E-01_JPRB, &
+ & 0.36325E-01_JPRB,0.40345E-01_JPRB,0.46345E-01_JPRB,0.52382E-01_JPRB /)  
+KA(:, 4, 1,12) = (/ &
+ & 0.51556E-01_JPRB,0.48650E-01_JPRB,0.44992E-01_JPRB,0.42544E-01_JPRB,0.40704E-01_JPRB, &
+ & 0.40160E-01_JPRB,0.46427E-01_JPRB,0.53431E-01_JPRB,0.60544E-01_JPRB /)  
+KA(:, 5, 1,12) = (/ &
+ & 0.51137E-01_JPRB,0.48860E-01_JPRB,0.46168E-01_JPRB,0.44111E-01_JPRB,0.43209E-01_JPRB, &
+ & 0.44827E-01_JPRB,0.52800E-01_JPRB,0.60972E-01_JPRB,0.69216E-01_JPRB /)  
+KA(:, 1, 2,12) = (/ &
+ & 0.56434E-01_JPRB,0.51118E-01_JPRB,0.46217E-01_JPRB,0.41561E-01_JPRB,0.37505E-01_JPRB, &
+ & 0.33646E-01_JPRB,0.30189E-01_JPRB,0.33085E-01_JPRB,0.37424E-01_JPRB /)  
+KA(:, 2, 2,12) = (/ &
+ & 0.56174E-01_JPRB,0.51590E-01_JPRB,0.46758E-01_JPRB,0.42838E-01_JPRB,0.39459E-01_JPRB, &
+ & 0.35755E-01_JPRB,0.34261E-01_JPRB,0.38732E-01_JPRB,0.43938E-01_JPRB /)  
+KA(:, 3, 2,12) = (/ &
+ & 0.55870E-01_JPRB,0.52113E-01_JPRB,0.47459E-01_JPRB,0.44557E-01_JPRB,0.41223E-01_JPRB, &
+ & 0.38732E-01_JPRB,0.39807E-01_JPRB,0.45508E-01_JPRB,0.51693E-01_JPRB /)  
+KA(:, 4, 2,12) = (/ &
+ & 0.55457E-01_JPRB,0.52524E-01_JPRB,0.48507E-01_JPRB,0.46112E-01_JPRB,0.43732E-01_JPRB, &
+ & 0.42045E-01_JPRB,0.45811E-01_JPRB,0.52732E-01_JPRB,0.60004E-01_JPRB /)  
+KA(:, 5, 2,12) = (/ &
+ & 0.54996E-01_JPRB,0.52680E-01_JPRB,0.49849E-01_JPRB,0.47721E-01_JPRB,0.46514E-01_JPRB, &
+ & 0.45961E-01_JPRB,0.52270E-01_JPRB,0.60294E-01_JPRB,0.68714E-01_JPRB /)  
+KA(:, 1, 3,12) = (/ &
+ & 0.59831E-01_JPRB,0.53764E-01_JPRB,0.48883E-01_JPRB,0.44361E-01_JPRB,0.39553E-01_JPRB, &
+ & 0.35958E-01_JPRB,0.31293E-01_JPRB,0.31467E-01_JPRB,0.35795E-01_JPRB /)  
+KA(:, 2, 3,12) = (/ &
+ & 0.59532E-01_JPRB,0.54423E-01_JPRB,0.49485E-01_JPRB,0.45554E-01_JPRB,0.41889E-01_JPRB, &
+ & 0.38044E-01_JPRB,0.34149E-01_JPRB,0.36846E-01_JPRB,0.42078E-01_JPRB /)  
+KA(:, 3, 3,12) = (/ &
+ & 0.59134E-01_JPRB,0.55152E-01_JPRB,0.50116E-01_JPRB,0.47410E-01_JPRB,0.43907E-01_JPRB, &
+ & 0.40732E-01_JPRB,0.38444E-01_JPRB,0.43145E-01_JPRB,0.49218E-01_JPRB /)  
+KA(:, 4, 3,12) = (/ &
+ & 0.58672E-01_JPRB,0.55655E-01_JPRB,0.51271E-01_JPRB,0.49059E-01_JPRB,0.46360E-01_JPRB, &
+ & 0.44063E-01_JPRB,0.43633E-01_JPRB,0.49781E-01_JPRB,0.56746E-01_JPRB /)  
+KA(:, 5, 3,12) = (/ &
+ & 0.58134E-01_JPRB,0.55813E-01_JPRB,0.52716E-01_JPRB,0.50709E-01_JPRB,0.49278E-01_JPRB, &
+ & 0.47427E-01_JPRB,0.49630E-01_JPRB,0.57031E-01_JPRB,0.65034E-01_JPRB /)  
+KA(:, 1, 4,12) = (/ &
+ & 0.62624E-01_JPRB,0.55864E-01_JPRB,0.50884E-01_JPRB,0.46641E-01_JPRB,0.41202E-01_JPRB, &
+ & 0.37808E-01_JPRB,0.32728E-01_JPRB,0.29634E-01_JPRB,0.33571E-01_JPRB /)  
+KA(:, 2, 4,12) = (/ &
+ & 0.62339E-01_JPRB,0.56365E-01_JPRB,0.51618E-01_JPRB,0.47600E-01_JPRB,0.43888E-01_JPRB, &
+ & 0.40000E-01_JPRB,0.35145E-01_JPRB,0.34591E-01_JPRB,0.39469E-01_JPRB /)  
+KA(:, 3, 4,12) = (/ &
+ & 0.61969E-01_JPRB,0.57107E-01_JPRB,0.52103E-01_JPRB,0.49599E-01_JPRB,0.46112E-01_JPRB, &
+ & 0.42482E-01_JPRB,0.38680E-01_JPRB,0.40578E-01_JPRB,0.46387E-01_JPRB /)  
+KA(:, 4, 4,12) = (/ &
+ & 0.61515E-01_JPRB,0.57939E-01_JPRB,0.53160E-01_JPRB,0.51347E-01_JPRB,0.48544E-01_JPRB, &
+ & 0.45843E-01_JPRB,0.42689E-01_JPRB,0.46767E-01_JPRB,0.53378E-01_JPRB /)  
+KA(:, 5, 4,12) = (/ &
+ & 0.60986E-01_JPRB,0.58238E-01_JPRB,0.54658E-01_JPRB,0.53027E-01_JPRB,0.51696E-01_JPRB, &
+ & 0.49388E-01_JPRB,0.47217E-01_JPRB,0.53278E-01_JPRB,0.60785E-01_JPRB /)  
+KA(:, 1, 5,12) = (/ &
+ & 0.65795E-01_JPRB,0.58347E-01_JPRB,0.52585E-01_JPRB,0.48437E-01_JPRB,0.42714E-01_JPRB, &
+ & 0.39265E-01_JPRB,0.34039E-01_JPRB,0.28235E-01_JPRB,0.31421E-01_JPRB /)  
+KA(:, 2, 5,12) = (/ &
+ & 0.65486E-01_JPRB,0.58633E-01_JPRB,0.53696E-01_JPRB,0.49213E-01_JPRB,0.45420E-01_JPRB, &
+ & 0.41668E-01_JPRB,0.36378E-01_JPRB,0.32647E-01_JPRB,0.37055E-01_JPRB /)  
+KA(:, 3, 5,12) = (/ &
+ & 0.65183E-01_JPRB,0.59134E-01_JPRB,0.54134E-01_JPRB,0.51097E-01_JPRB,0.47829E-01_JPRB, &
+ & 0.44052E-01_JPRB,0.39727E-01_JPRB,0.38129E-01_JPRB,0.43417E-01_JPRB /)  
+KA(:, 4, 5,12) = (/ &
+ & 0.64717E-01_JPRB,0.59894E-01_JPRB,0.54954E-01_JPRB,0.53041E-01_JPRB,0.50294E-01_JPRB, &
+ & 0.47344E-01_JPRB,0.43654E-01_JPRB,0.43889E-01_JPRB,0.49916E-01_JPRB /)  
+KA(:, 5, 5,12) = (/ &
+ & 0.64255E-01_JPRB,0.60489E-01_JPRB,0.56373E-01_JPRB,0.54824E-01_JPRB,0.53472E-01_JPRB, &
+ & 0.51112E-01_JPRB,0.47282E-01_JPRB,0.50031E-01_JPRB,0.57102E-01_JPRB /)  
+KA(:, 1, 6,12) = (/ &
+ & 0.69615E-01_JPRB,0.61594E-01_JPRB,0.54882E-01_JPRB,0.50187E-01_JPRB,0.44074E-01_JPRB, &
+ & 0.39997E-01_JPRB,0.34871E-01_JPRB,0.27743E-01_JPRB,0.29013E-01_JPRB /)  
+KA(:, 2, 6,12) = (/ &
+ & 0.69442E-01_JPRB,0.61757E-01_JPRB,0.55910E-01_JPRB,0.50997E-01_JPRB,0.46497E-01_JPRB, &
+ & 0.42613E-01_JPRB,0.37188E-01_JPRB,0.31216E-01_JPRB,0.34347E-01_JPRB /)  
+KA(:, 3, 6,12) = (/ &
+ & 0.69156E-01_JPRB,0.62106E-01_JPRB,0.56750E-01_JPRB,0.52515E-01_JPRB,0.49101E-01_JPRB, &
+ & 0.44986E-01_JPRB,0.40395E-01_JPRB,0.35961E-01_JPRB,0.40369E-01_JPRB /)  
+KA(:, 4, 6,12) = (/ &
+ & 0.68816E-01_JPRB,0.62627E-01_JPRB,0.57231E-01_JPRB,0.54601E-01_JPRB,0.51362E-01_JPRB, &
+ & 0.48280E-01_JPRB,0.44442E-01_JPRB,0.41156E-01_JPRB,0.46554E-01_JPRB /)  
+KA(:, 5, 6,12) = (/ &
+ & 0.68355E-01_JPRB,0.63113E-01_JPRB,0.58516E-01_JPRB,0.56347E-01_JPRB,0.54360E-01_JPRB, &
+ & 0.52199E-01_JPRB,0.48222E-01_JPRB,0.46871E-01_JPRB,0.53241E-01_JPRB /)  
+KA(:, 1, 7,12) = (/ &
+ & 0.74032E-01_JPRB,0.65393E-01_JPRB,0.58013E-01_JPRB,0.51965E-01_JPRB,0.45915E-01_JPRB, &
+ & 0.40526E-01_JPRB,0.35125E-01_JPRB,0.27883E-01_JPRB,0.26586E-01_JPRB /)  
+KA(:, 2, 7,12) = (/ &
+ & 0.73937E-01_JPRB,0.65493E-01_JPRB,0.58738E-01_JPRB,0.53263E-01_JPRB,0.47941E-01_JPRB, &
+ & 0.43149E-01_JPRB,0.37585E-01_JPRB,0.30874E-01_JPRB,0.31614E-01_JPRB /)  
+KA(:, 3, 7,12) = (/ &
+ & 0.73662E-01_JPRB,0.65759E-01_JPRB,0.59591E-01_JPRB,0.54630E-01_JPRB,0.50354E-01_JPRB, &
+ & 0.45514E-01_JPRB,0.40708E-01_JPRB,0.34889E-01_JPRB,0.37383E-01_JPRB /)  
+KA(:, 4, 7,12) = (/ &
+ & 0.73359E-01_JPRB,0.66187E-01_JPRB,0.60275E-01_JPRB,0.56599E-01_JPRB,0.52392E-01_JPRB, &
+ & 0.48574E-01_JPRB,0.44791E-01_JPRB,0.39333E-01_JPRB,0.43356E-01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART8',1,ZHOOK_HANDLE)
+END SUBROUTINE PART8
+
+
+SUBROUTINE PART9
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART9',0,ZHOOK_HANDLE)
+
+
+KA(:, 5, 7,12) = (/ &
+ & 0.72923E-01_JPRB,0.66589E-01_JPRB,0.61432E-01_JPRB,0.58168E-01_JPRB,0.55043E-01_JPRB, &
+ & 0.52561E-01_JPRB,0.48755E-01_JPRB,0.44300E-01_JPRB,0.49765E-01_JPRB /)  
+KA(:, 1, 8,12) = (/ &
+ & 0.78458E-01_JPRB,0.69177E-01_JPRB,0.61142E-01_JPRB,0.54247E-01_JPRB,0.47727E-01_JPRB, &
+ & 0.41456E-01_JPRB,0.34819E-01_JPRB,0.27717E-01_JPRB,0.23941E-01_JPRB /)  
+KA(:, 2, 8,12) = (/ &
+ & 0.78410E-01_JPRB,0.69294E-01_JPRB,0.61857E-01_JPRB,0.55492E-01_JPRB,0.49764E-01_JPRB, &
+ & 0.43844E-01_JPRB,0.37501E-01_JPRB,0.30644E-01_JPRB,0.28737E-01_JPRB /)  
+KA(:, 3, 8,12) = (/ &
+ & 0.78162E-01_JPRB,0.69463E-01_JPRB,0.62578E-01_JPRB,0.57026E-01_JPRB,0.52068E-01_JPRB, &
+ & 0.46044E-01_JPRB,0.40472E-01_JPRB,0.34561E-01_JPRB,0.34380E-01_JPRB /)  
+KA(:, 4, 8,12) = (/ &
+ & 0.77871E-01_JPRB,0.69834E-01_JPRB,0.63268E-01_JPRB,0.59074E-01_JPRB,0.53918E-01_JPRB, &
+ & 0.48672E-01_JPRB,0.44601E-01_JPRB,0.38671E-01_JPRB,0.40158E-01_JPRB /)  
+KA(:, 5, 8,12) = (/ &
+ & 0.77487E-01_JPRB,0.70209E-01_JPRB,0.64405E-01_JPRB,0.60632E-01_JPRB,0.56120E-01_JPRB, &
+ & 0.52504E-01_JPRB,0.48787E-01_JPRB,0.42980E-01_JPRB,0.46410E-01_JPRB /)  
+KA(:, 1, 9,12) = (/ &
+ & 0.82666E-01_JPRB,0.72734E-01_JPRB,0.64105E-01_JPRB,0.56594E-01_JPRB,0.49561E-01_JPRB, &
+ & 0.42281E-01_JPRB,0.34472E-01_JPRB,0.27105E-01_JPRB,0.21191E-01_JPRB /)  
+KA(:, 2, 9,12) = (/ &
+ & 0.82602E-01_JPRB,0.72866E-01_JPRB,0.64825E-01_JPRB,0.57780E-01_JPRB,0.51415E-01_JPRB, &
+ & 0.44682E-01_JPRB,0.37233E-01_JPRB,0.30003E-01_JPRB,0.25697E-01_JPRB /)  
+KA(:, 3, 9,12) = (/ &
+ & 0.82349E-01_JPRB,0.72898E-01_JPRB,0.65478E-01_JPRB,0.59213E-01_JPRB,0.53844E-01_JPRB, &
+ & 0.46925E-01_JPRB,0.39994E-01_JPRB,0.33830E-01_JPRB,0.31116E-01_JPRB /)  
+KA(:, 4, 9,12) = (/ &
+ & 0.82004E-01_JPRB,0.73222E-01_JPRB,0.66214E-01_JPRB,0.61303E-01_JPRB,0.55771E-01_JPRB, &
+ & 0.49206E-01_JPRB,0.43963E-01_JPRB,0.38199E-01_JPRB,0.36759E-01_JPRB /)  
+KA(:, 5, 9,12) = (/ &
+ & 0.81608E-01_JPRB,0.73612E-01_JPRB,0.67180E-01_JPRB,0.63056E-01_JPRB,0.57653E-01_JPRB, &
+ & 0.52653E-01_JPRB,0.48283E-01_JPRB,0.42441E-01_JPRB,0.42846E-01_JPRB /)  
+KA(:, 1,10,12) = (/ &
+ & 0.85880E-01_JPRB,0.75430E-01_JPRB,0.66656E-01_JPRB,0.58773E-01_JPRB,0.51658E-01_JPRB, &
+ & 0.43336E-01_JPRB,0.34393E-01_JPRB,0.26157E-01_JPRB,0.14663E-01_JPRB /)  
+KA(:, 2,10,12) = (/ &
+ & 0.85756E-01_JPRB,0.75590E-01_JPRB,0.67337E-01_JPRB,0.60049E-01_JPRB,0.53266E-01_JPRB, &
+ & 0.45473E-01_JPRB,0.37278E-01_JPRB,0.29125E-01_JPRB,0.16193E-01_JPRB /)  
+KA(:, 3,10,12) = (/ &
+ & 0.85530E-01_JPRB,0.75588E-01_JPRB,0.67995E-01_JPRB,0.61462E-01_JPRB,0.55345E-01_JPRB, &
+ & 0.48001E-01_JPRB,0.39939E-01_JPRB,0.32883E-01_JPRB,0.20331E-01_JPRB /)  
+KA(:, 4,10,12) = (/ &
+ & 0.85095E-01_JPRB,0.75810E-01_JPRB,0.68684E-01_JPRB,0.63320E-01_JPRB,0.57485E-01_JPRB, &
+ & 0.50257E-01_JPRB,0.43559E-01_JPRB,0.37443E-01_JPRB,0.23682E-01_JPRB /)  
+KA(:, 5,10,12) = (/ &
+ & 0.84667E-01_JPRB,0.76211E-01_JPRB,0.69733E-01_JPRB,0.65095E-01_JPRB,0.59445E-01_JPRB, &
+ & 0.53380E-01_JPRB,0.47785E-01_JPRB,0.41863E-01_JPRB,0.26616E-01_JPRB /)  
+KA(:, 1,11,12) = (/ &
+ & 0.87471E-01_JPRB,0.76929E-01_JPRB,0.68322E-01_JPRB,0.60781E-01_JPRB,0.53951E-01_JPRB, &
+ & 0.45056E-01_JPRB,0.35758E-01_JPRB,0.26371E-01_JPRB,0.18858E-01_JPRB /)  
+KA(:, 2,11,12) = (/ &
+ & 0.87208E-01_JPRB,0.76940E-01_JPRB,0.68996E-01_JPRB,0.62212E-01_JPRB,0.55582E-01_JPRB, &
+ & 0.47319E-01_JPRB,0.38590E-01_JPRB,0.29478E-01_JPRB,0.21575E-01_JPRB /)  
+KA(:, 3,11,12) = (/ &
+ & 0.86835E-01_JPRB,0.76905E-01_JPRB,0.69723E-01_JPRB,0.63816E-01_JPRB,0.57699E-01_JPRB, &
+ & 0.49745E-01_JPRB,0.41432E-01_JPRB,0.33605E-01_JPRB,0.25460E-01_JPRB /)  
+KA(:, 4,11,12) = (/ &
+ & 0.86430E-01_JPRB,0.77295E-01_JPRB,0.70629E-01_JPRB,0.65834E-01_JPRB,0.59545E-01_JPRB, &
+ & 0.52341E-01_JPRB,0.45178E-01_JPRB,0.38243E-01_JPRB,0.30364E-01_JPRB /)  
+KA(:, 5,11,12) = (/ &
+ & 0.85874E-01_JPRB,0.77597E-01_JPRB,0.72138E-01_JPRB,0.67497E-01_JPRB,0.61709E-01_JPRB, &
+ & 0.55855E-01_JPRB,0.49191E-01_JPRB,0.42789E-01_JPRB,0.33235E-01_JPRB /)  
+KA(:, 1,12,12) = (/ &
+ & 0.87248E-01_JPRB,0.76929E-01_JPRB,0.68689E-01_JPRB,0.62001E-01_JPRB,0.55189E-01_JPRB, &
+ & 0.46282E-01_JPRB,0.37018E-01_JPRB,0.26535E-01_JPRB,0.20617E-01_JPRB /)  
+KA(:, 2,12,12) = (/ &
+ & 0.86938E-01_JPRB,0.76894E-01_JPRB,0.69591E-01_JPRB,0.63473E-01_JPRB,0.56879E-01_JPRB, &
+ & 0.48866E-01_JPRB,0.39681E-01_JPRB,0.29869E-01_JPRB,0.23753E-01_JPRB /)  
+KA(:, 3,12,12) = (/ &
+ & 0.86505E-01_JPRB,0.76936E-01_JPRB,0.70473E-01_JPRB,0.65213E-01_JPRB,0.59161E-01_JPRB, &
+ & 0.51227E-01_JPRB,0.42751E-01_JPRB,0.34068E-01_JPRB,0.28028E-01_JPRB /)  
+KA(:, 4,12,12) = (/ &
+ & 0.86014E-01_JPRB,0.77389E-01_JPRB,0.71734E-01_JPRB,0.67391E-01_JPRB,0.61041E-01_JPRB, &
+ & 0.54172E-01_JPRB,0.46740E-01_JPRB,0.38524E-01_JPRB,0.33947E-01_JPRB /)  
+KA(:, 5,12,12) = (/ &
+ & 0.85424E-01_JPRB,0.77682E-01_JPRB,0.73622E-01_JPRB,0.69056E-01_JPRB,0.63676E-01_JPRB, &
+ & 0.57877E-01_JPRB,0.50578E-01_JPRB,0.43087E-01_JPRB,0.36933E-01_JPRB /)  
+KA(:, 1,13,12) = (/ &
+ & 0.85419E-01_JPRB,0.75627E-01_JPRB,0.68076E-01_JPRB,0.62306E-01_JPRB,0.55288E-01_JPRB, &
+ & 0.46939E-01_JPRB,0.37782E-01_JPRB,0.26869E-01_JPRB,0.20535E-01_JPRB /)  
+KA(:, 2,13,12) = (/ &
+ & 0.84985E-01_JPRB,0.75524E-01_JPRB,0.69213E-01_JPRB,0.63729E-01_JPRB,0.57271E-01_JPRB, &
+ & 0.49714E-01_JPRB,0.40473E-01_JPRB,0.30181E-01_JPRB,0.22959E-01_JPRB /)  
+KA(:, 3,13,12) = (/ &
+ & 0.84529E-01_JPRB,0.75748E-01_JPRB,0.70315E-01_JPRB,0.65749E-01_JPRB,0.59660E-01_JPRB, &
+ & 0.52260E-01_JPRB,0.43766E-01_JPRB,0.34359E-01_JPRB,0.28707E-01_JPRB /)  
+KA(:, 4,13,12) = (/ &
+ & 0.84038E-01_JPRB,0.76252E-01_JPRB,0.71947E-01_JPRB,0.67890E-01_JPRB,0.61874E-01_JPRB, &
+ & 0.55511E-01_JPRB,0.47935E-01_JPRB,0.38594E-01_JPRB,0.34330E-01_JPRB /)  
+KA(:, 5,13,12) = (/ &
+ & 0.83450E-01_JPRB,0.76542E-01_JPRB,0.73924E-01_JPRB,0.69752E-01_JPRB,0.64960E-01_JPRB, &
+ & 0.59356E-01_JPRB,0.51789E-01_JPRB,0.43079E-01_JPRB,0.38051E-01_JPRB /)  
+KA(:, 1, 1,13) = (/ &
+ & 0.68561E-01_JPRB,0.61393E-01_JPRB,0.55377E-01_JPRB,0.48367E-01_JPRB,0.42682E-01_JPRB, &
+ & 0.39908E-01_JPRB,0.45275E-01_JPRB,0.51909E-01_JPRB,0.58629E-01_JPRB /)  
+KA(:, 2, 1,13) = (/ &
+ & 0.68429E-01_JPRB,0.62258E-01_JPRB,0.56444E-01_JPRB,0.49529E-01_JPRB,0.45167E-01_JPRB, &
+ & 0.45643E-01_JPRB,0.53469E-01_JPRB,0.61626E-01_JPRB,0.69870E-01_JPRB /)  
+KA(:, 3, 1,13) = (/ &
+ & 0.68224E-01_JPRB,0.62810E-01_JPRB,0.57169E-01_JPRB,0.51186E-01_JPRB,0.48224E-01_JPRB, &
+ & 0.52899E-01_JPRB,0.62764E-01_JPRB,0.72521E-01_JPRB,0.82353E-01_JPRB /)  
+KA(:, 4, 1,13) = (/ &
+ & 0.67917E-01_JPRB,0.63314E-01_JPRB,0.58187E-01_JPRB,0.53334E-01_JPRB,0.52038E-01_JPRB, &
+ & 0.61434E-01_JPRB,0.73273E-01_JPRB,0.84850E-01_JPRB,0.96479E-01_JPRB /)  
+KA(:, 5, 1,13) = (/ &
+ & 0.67553E-01_JPRB,0.63903E-01_JPRB,0.59193E-01_JPRB,0.55737E-01_JPRB,0.58351E-01_JPRB, &
+ & 0.71682E-01_JPRB,0.85665E-01_JPRB,0.99285E-01_JPRB,0.11295E+00_JPRB /)  
+KA(:, 1, 2,13) = (/ &
+ & 0.77509E-01_JPRB,0.69079E-01_JPRB,0.62486E-01_JPRB,0.54626E-01_JPRB,0.48075E-01_JPRB, &
+ & 0.42537E-01_JPRB,0.44950E-01_JPRB,0.51477E-01_JPRB,0.58558E-01_JPRB /)  
+KA(:, 2, 2,13) = (/ &
+ & 0.77430E-01_JPRB,0.69950E-01_JPRB,0.63742E-01_JPRB,0.55764E-01_JPRB,0.50627E-01_JPRB, &
+ & 0.46853E-01_JPRB,0.52532E-01_JPRB,0.60374E-01_JPRB,0.68733E-01_JPRB /)  
+KA(:, 3, 2,13) = (/ &
+ & 0.77189E-01_JPRB,0.70882E-01_JPRB,0.64573E-01_JPRB,0.57536E-01_JPRB,0.53311E-01_JPRB, &
+ & 0.52406E-01_JPRB,0.61244E-01_JPRB,0.70634E-01_JPRB,0.80523E-01_JPRB /)  
+KA(:, 4, 2,13) = (/ &
+ & 0.76847E-01_JPRB,0.71588E-01_JPRB,0.65635E-01_JPRB,0.59928E-01_JPRB,0.56064E-01_JPRB, &
+ & 0.60283E-01_JPRB,0.71500E-01_JPRB,0.82577E-01_JPRB,0.94220E-01_JPRB /)  
+KA(:, 5, 2,13) = (/ &
+ & 0.76386E-01_JPRB,0.72289E-01_JPRB,0.66796E-01_JPRB,0.62420E-01_JPRB,0.60016E-01_JPRB, &
+ & 0.69350E-01_JPRB,0.82634E-01_JPRB,0.95798E-01_JPRB,0.10925E+00_JPRB /)  
+KA(:, 1, 3,13) = (/ &
+ & 0.86533E-01_JPRB,0.76872E-01_JPRB,0.69252E-01_JPRB,0.60999E-01_JPRB,0.53444E-01_JPRB, &
+ & 0.46117E-01_JPRB,0.43982E-01_JPRB,0.49772E-01_JPRB,0.56991E-01_JPRB /)  
+KA(:, 2, 3,13) = (/ &
+ & 0.86412E-01_JPRB,0.77388E-01_JPRB,0.71047E-01_JPRB,0.62031E-01_JPRB,0.55847E-01_JPRB, &
+ & 0.49560E-01_JPRB,0.50601E-01_JPRB,0.57831E-01_JPRB,0.66136E-01_JPRB /)  
+KA(:, 3, 3,13) = (/ &
+ & 0.86175E-01_JPRB,0.78253E-01_JPRB,0.72126E-01_JPRB,0.63678E-01_JPRB,0.58875E-01_JPRB, &
+ & 0.53556E-01_JPRB,0.58645E-01_JPRB,0.67397E-01_JPRB,0.77181E-01_JPRB /)  
+KA(:, 4, 3,13) = (/ &
+ & 0.85802E-01_JPRB,0.79483E-01_JPRB,0.72991E-01_JPRB,0.66186E-01_JPRB,0.61530E-01_JPRB, &
+ & 0.59229E-01_JPRB,0.68328E-01_JPRB,0.78749E-01_JPRB,0.90335E-01_JPRB /)  
+KA(:, 5, 3,13) = (/ &
+ & 0.85328E-01_JPRB,0.80671E-01_JPRB,0.74346E-01_JPRB,0.68871E-01_JPRB,0.64555E-01_JPRB, &
+ & 0.67267E-01_JPRB,0.79478E-01_JPRB,0.91684E-01_JPRB,0.10533E+00_JPRB /)  
+KA(:, 1, 4,13) = (/ &
+ & 0.95394E-01_JPRB,0.84557E-01_JPRB,0.75442E-01_JPRB,0.67038E-01_JPRB,0.59073E-01_JPRB, &
+ & 0.49886E-01_JPRB,0.44642E-01_JPRB,0.48508E-01_JPRB,0.55658E-01_JPRB /)  
+KA(:, 2, 4,13) = (/ &
+ & 0.95223E-01_JPRB,0.84873E-01_JPRB,0.77588E-01_JPRB,0.68316E-01_JPRB,0.60993E-01_JPRB, &
+ & 0.53907E-01_JPRB,0.49824E-01_JPRB,0.55820E-01_JPRB,0.64074E-01_JPRB /)  
+KA(:, 3, 4,13) = (/ &
+ & 0.94965E-01_JPRB,0.85575E-01_JPRB,0.79290E-01_JPRB,0.69694E-01_JPRB,0.64420E-01_JPRB, &
+ & 0.57295E-01_JPRB,0.56440E-01_JPRB,0.64306E-01_JPRB,0.73964E-01_JPRB /)  
+KA(:, 4, 4,13) = (/ &
+ & 0.94509E-01_JPRB,0.86370E-01_JPRB,0.80294E-01_JPRB,0.72257E-01_JPRB,0.67415E-01_JPRB, &
+ & 0.61388E-01_JPRB,0.65357E-01_JPRB,0.74991E-01_JPRB,0.86332E-01_JPRB /)  
+KA(:, 5, 4,13) = (/ &
+ & 0.94009E-01_JPRB,0.87806E-01_JPRB,0.81595E-01_JPRB,0.75171E-01_JPRB,0.70245E-01_JPRB, &
+ & 0.67536E-01_JPRB,0.76274E-01_JPRB,0.87845E-01_JPRB,0.10132E+00_JPRB /)  
+KA(:, 1, 5,13) = (/ &
+ & 0.10343E+00_JPRB,0.91525E-01_JPRB,0.80861E-01_JPRB,0.72378E-01_JPRB,0.64406E-01_JPRB, &
+ & 0.53983E-01_JPRB,0.47036E-01_JPRB,0.47125E-01_JPRB,0.54095E-01_JPRB /)  
+KA(:, 2, 5,13) = (/ &
+ & 0.10334E+00_JPRB,0.91907E-01_JPRB,0.82762E-01_JPRB,0.74349E-01_JPRB,0.66049E-01_JPRB, &
+ & 0.58213E-01_JPRB,0.51290E-01_JPRB,0.53990E-01_JPRB,0.61913E-01_JPRB /)  
+KA(:, 3, 5,13) = (/ &
+ & 0.10297E+00_JPRB,0.92357E-01_JPRB,0.85393E-01_JPRB,0.75564E-01_JPRB,0.69527E-01_JPRB, &
+ & 0.62165E-01_JPRB,0.56265E-01_JPRB,0.62011E-01_JPRB,0.71236E-01_JPRB /)  
+KA(:, 4, 5,13) = (/ &
+ & 0.10256E+00_JPRB,0.93114E-01_JPRB,0.87093E-01_JPRB,0.77935E-01_JPRB,0.73042E-01_JPRB, &
+ & 0.65986E-01_JPRB,0.63498E-01_JPRB,0.72109E-01_JPRB,0.83127E-01_JPRB /)  
+KA(:, 5, 5,13) = (/ &
+ & 0.10189E+00_JPRB,0.94299E-01_JPRB,0.88282E-01_JPRB,0.81218E-01_JPRB,0.76035E-01_JPRB, &
+ & 0.70876E-01_JPRB,0.73640E-01_JPRB,0.84406E-01_JPRB,0.97393E-01_JPRB /)  
+KA(:, 1, 6,13) = (/ &
+ & 0.11045E+00_JPRB,0.97454E-01_JPRB,0.85408E-01_JPRB,0.76244E-01_JPRB,0.68972E-01_JPRB, &
+ & 0.58251E-01_JPRB,0.49930E-01_JPRB,0.45374E-01_JPRB,0.51875E-01_JPRB /)  
+KA(:, 2, 6,13) = (/ &
+ & 0.11019E+00_JPRB,0.97819E-01_JPRB,0.87148E-01_JPRB,0.79069E-01_JPRB,0.71021E-01_JPRB, &
+ & 0.62071E-01_JPRB,0.54179E-01_JPRB,0.52124E-01_JPRB,0.59618E-01_JPRB /)  
+KA(:, 3, 6,13) = (/ &
+ & 0.10981E+00_JPRB,0.98088E-01_JPRB,0.89384E-01_JPRB,0.81156E-01_JPRB,0.73973E-01_JPRB, &
+ & 0.66762E-01_JPRB,0.58141E-01_JPRB,0.59499E-01_JPRB,0.68391E-01_JPRB /)  
+KA(:, 4, 6,13) = (/ &
+ & 0.10923E+00_JPRB,0.98741E-01_JPRB,0.91856E-01_JPRB,0.83093E-01_JPRB,0.78121E-01_JPRB, &
+ & 0.70717E-01_JPRB,0.63590E-01_JPRB,0.68985E-01_JPRB,0.79490E-01_JPRB /)  
+KA(:, 5, 6,13) = (/ &
+ & 0.10855E+00_JPRB,0.99728E-01_JPRB,0.93768E-01_JPRB,0.86485E-01_JPRB,0.81499E-01_JPRB, &
+ & 0.75384E-01_JPRB,0.71738E-01_JPRB,0.80634E-01_JPRB,0.92951E-01_JPRB /)  
+KA(:, 1, 7,13) = (/ &
+ & 0.11652E+00_JPRB,0.10245E+00_JPRB,0.89345E-01_JPRB,0.79831E-01_JPRB,0.71546E-01_JPRB, &
+ & 0.62110E-01_JPRB,0.52889E-01_JPRB,0.43937E-01_JPRB,0.49094E-01_JPRB /)  
+KA(:, 2, 7,13) = (/ &
+ & 0.11624E+00_JPRB,0.10291E+00_JPRB,0.90769E-01_JPRB,0.82143E-01_JPRB,0.74705E-01_JPRB, &
+ & 0.65752E-01_JPRB,0.57383E-01_JPRB,0.50125E-01_JPRB,0.56751E-01_JPRB /)  
+KA(:, 3, 7,13) = (/ &
+ & 0.11594E+00_JPRB,0.10317E+00_JPRB,0.92734E-01_JPRB,0.84722E-01_JPRB,0.77935E-01_JPRB, &
+ & 0.70772E-01_JPRB,0.61416E-01_JPRB,0.57153E-01_JPRB,0.65344E-01_JPRB /)  
+KA(:, 4, 7,13) = (/ &
+ & 0.11535E+00_JPRB,0.10356E+00_JPRB,0.95024E-01_JPRB,0.87242E-01_JPRB,0.82357E-01_JPRB, &
+ & 0.75212E-01_JPRB,0.65866E-01_JPRB,0.66110E-01_JPRB,0.76048E-01_JPRB /)  
+KA(:, 5, 7,13) = (/ &
+ & 0.11474E+00_JPRB,0.10447E+00_JPRB,0.97059E-01_JPRB,0.90869E-01_JPRB,0.86343E-01_JPRB, &
+ & 0.79806E-01_JPRB,0.72467E-01_JPRB,0.77014E-01_JPRB,0.88751E-01_JPRB /)  
+KA(:, 1, 8,13) = (/ &
+ & 0.12265E+00_JPRB,0.10756E+00_JPRB,0.93593E-01_JPRB,0.82964E-01_JPRB,0.73576E-01_JPRB, &
+ & 0.64374E-01_JPRB,0.55605E-01_JPRB,0.43559E-01_JPRB,0.46060E-01_JPRB /)  
+KA(:, 2, 8,13) = (/ &
+ & 0.12249E+00_JPRB,0.10812E+00_JPRB,0.94575E-01_JPRB,0.84973E-01_JPRB,0.76683E-01_JPRB, &
+ & 0.68823E-01_JPRB,0.60052E-01_JPRB,0.49117E-01_JPRB,0.53798E-01_JPRB /)  
+KA(:, 3, 8,13) = (/ &
+ & 0.12216E+00_JPRB,0.10834E+00_JPRB,0.96338E-01_JPRB,0.87360E-01_JPRB,0.80349E-01_JPRB, &
+ & 0.74206E-01_JPRB,0.64654E-01_JPRB,0.55074E-01_JPRB,0.62031E-01_JPRB /)  
+KA(:, 4, 8,13) = (/ &
+ & 0.12168E+00_JPRB,0.10860E+00_JPRB,0.98251E-01_JPRB,0.89888E-01_JPRB,0.85251E-01_JPRB, &
+ & 0.79126E-01_JPRB,0.69120E-01_JPRB,0.63252E-01_JPRB,0.72334E-01_JPRB /)  
+KA(:, 5, 8,13) = (/ &
+ & 0.12099E+00_JPRB,0.10931E+00_JPRB,0.10017E+00_JPRB,0.93685E-01_JPRB,0.90048E-01_JPRB, &
+ & 0.83711E-01_JPRB,0.75096E-01_JPRB,0.73779E-01_JPRB,0.84712E-01_JPRB /)  
+KA(:, 1, 9,13) = (/ &
+ & 0.12914E+00_JPRB,0.11313E+00_JPRB,0.98462E-01_JPRB,0.86441E-01_JPRB,0.75875E-01_JPRB, &
+ & 0.66332E-01_JPRB,0.57013E-01_JPRB,0.43839E-01_JPRB,0.42411E-01_JPRB /)  
+KA(:, 2, 9,13) = (/ &
+ & 0.12911E+00_JPRB,0.11365E+00_JPRB,0.99113E-01_JPRB,0.88386E-01_JPRB,0.78651E-01_JPRB, &
+ & 0.70676E-01_JPRB,0.61767E-01_JPRB,0.49076E-01_JPRB,0.50412E-01_JPRB /)  
+KA(:, 3, 9,13) = (/ &
+ & 0.12886E+00_JPRB,0.11401E+00_JPRB,0.10056E+00_JPRB,0.90400E-01_JPRB,0.82030E-01_JPRB, &
+ & 0.75969E-01_JPRB,0.67212E-01_JPRB,0.54346E-01_JPRB,0.58598E-01_JPRB /)  
+KA(:, 4, 9,13) = (/ &
+ & 0.12844E+00_JPRB,0.11410E+00_JPRB,0.10221E+00_JPRB,0.92662E-01_JPRB,0.86791E-01_JPRB, &
+ & 0.81685E-01_JPRB,0.71813E-01_JPRB,0.61251E-01_JPRB,0.68599E-01_JPRB /)  
+KA(:, 5, 9,13) = (/ &
+ & 0.12781E+00_JPRB,0.11455E+00_JPRB,0.10390E+00_JPRB,0.96184E-01_JPRB,0.92217E-01_JPRB, &
+ & 0.86557E-01_JPRB,0.77640E-01_JPRB,0.70636E-01_JPRB,0.80447E-01_JPRB /)  
+KA(:, 1,10,13) = (/ &
+ & 0.13661E+00_JPRB,0.11963E+00_JPRB,0.10401E+00_JPRB,0.90612E-01_JPRB,0.78552E-01_JPRB, &
+ & 0.68665E-01_JPRB,0.58042E-01_JPRB,0.44182E-01_JPRB,0.20623E-01_JPRB /)  
+KA(:, 2,10,13) = (/ &
+ & 0.13663E+00_JPRB,0.12000E+00_JPRB,0.10449E+00_JPRB,0.92427E-01_JPRB,0.81459E-01_JPRB, &
+ & 0.72606E-01_JPRB,0.62588E-01_JPRB,0.49634E-01_JPRB,0.27517E-01_JPRB /)  
+KA(:, 3,10,13) = (/ &
+ & 0.13648E+00_JPRB,0.12048E+00_JPRB,0.10572E+00_JPRB,0.94344E-01_JPRB,0.84635E-01_JPRB, &
+ & 0.77264E-01_JPRB,0.68466E-01_JPRB,0.54964E-01_JPRB,0.37460E-01_JPRB /)  
+KA(:, 4,10,13) = (/ &
+ & 0.13615E+00_JPRB,0.12055E+00_JPRB,0.10724E+00_JPRB,0.96538E-01_JPRB,0.88921E-01_JPRB, &
+ & 0.82919E-01_JPRB,0.73837E-01_JPRB,0.61121E-01_JPRB,0.51408E-01_JPRB /)  
+KA(:, 5,10,13) = (/ &
+ & 0.13560E+00_JPRB,0.12083E+00_JPRB,0.10867E+00_JPRB,0.99719E-01_JPRB,0.94157E-01_JPRB, &
+ & 0.88097E-01_JPRB,0.79982E-01_JPRB,0.69630E-01_JPRB,0.68524E-01_JPRB /)  
+KA(:, 1,11,13) = (/ &
+ & 0.14486E+00_JPRB,0.12685E+00_JPRB,0.11053E+00_JPRB,0.96215E-01_JPRB,0.83198E-01_JPRB, &
+ & 0.72790E-01_JPRB,0.60483E-01_JPRB,0.46368E-01_JPRB,0.23123E-01_JPRB /)  
+KA(:, 2,11,13) = (/ &
+ & 0.14497E+00_JPRB,0.12740E+00_JPRB,0.11115E+00_JPRB,0.98058E-01_JPRB,0.86138E-01_JPRB, &
+ & 0.76317E-01_JPRB,0.65283E-01_JPRB,0.52226E-01_JPRB,0.29160E-01_JPRB /)  
+KA(:, 3,11,13) = (/ &
+ & 0.14473E+00_JPRB,0.12775E+00_JPRB,0.11243E+00_JPRB,0.99891E-01_JPRB,0.89493E-01_JPRB, &
+ & 0.80996E-01_JPRB,0.71303E-01_JPRB,0.57950E-01_JPRB,0.32977E-01_JPRB /)  
+KA(:, 4,11,13) = (/ &
+ & 0.14430E+00_JPRB,0.12774E+00_JPRB,0.11386E+00_JPRB,0.10223E+00_JPRB,0.94098E-01_JPRB, &
+ & 0.86252E-01_JPRB,0.77087E-01_JPRB,0.64785E-01_JPRB,0.38714E-01_JPRB /)  
+KA(:, 5,11,13) = (/ &
+ & 0.14365E+00_JPRB,0.12806E+00_JPRB,0.11504E+00_JPRB,0.10578E+00_JPRB,0.98766E-01_JPRB, &
+ & 0.91283E-01_JPRB,0.84242E-01_JPRB,0.73581E-01_JPRB,0.47497E-01_JPRB /)  
+KA(:, 1,12,13) = (/ &
+ & 0.15269E+00_JPRB,0.13372E+00_JPRB,0.11691E+00_JPRB,0.10167E+00_JPRB,0.88459E-01_JPRB, &
+ & 0.76634E-01_JPRB,0.62620E-01_JPRB,0.48153E-01_JPRB,0.27858E-01_JPRB /)  
+KA(:, 2,12,13) = (/ &
+ & 0.15257E+00_JPRB,0.13415E+00_JPRB,0.11750E+00_JPRB,0.10380E+00_JPRB,0.91589E-01_JPRB, &
+ & 0.79898E-01_JPRB,0.67862E-01_JPRB,0.54271E-01_JPRB,0.35587E-01_JPRB /)  
+KA(:, 3,12,13) = (/ &
+ & 0.15233E+00_JPRB,0.13449E+00_JPRB,0.11899E+00_JPRB,0.10589E+00_JPRB,0.94966E-01_JPRB, &
+ & 0.84666E-01_JPRB,0.73653E-01_JPRB,0.60551E-01_JPRB,0.39809E-01_JPRB /)  
+KA(:, 4,12,13) = (/ &
+ & 0.15175E+00_JPRB,0.13439E+00_JPRB,0.12031E+00_JPRB,0.10854E+00_JPRB,0.99506E-01_JPRB, &
+ & 0.89389E-01_JPRB,0.79517E-01_JPRB,0.68401E-01_JPRB,0.45578E-01_JPRB /)  
+KA(:, 5,12,13) = (/ &
+ & 0.15105E+00_JPRB,0.13484E+00_JPRB,0.12149E+00_JPRB,0.11242E+00_JPRB,0.10353E+00_JPRB, &
+ & 0.94548E-01_JPRB,0.87485E-01_JPRB,0.77323E-01_JPRB,0.55990E-01_JPRB /)  
+KA(:, 1,13,13) = (/ &
+ & 0.15929E+00_JPRB,0.13953E+00_JPRB,0.12252E+00_JPRB,0.10682E+00_JPRB,0.93710E-01_JPRB, &
+ & 0.80318E-01_JPRB,0.64679E-01_JPRB,0.49483E-01_JPRB,0.31231E-01_JPRB /)  
+KA(:, 2,13,13) = (/ &
+ & 0.15914E+00_JPRB,0.14001E+00_JPRB,0.12322E+00_JPRB,0.10931E+00_JPRB,0.96798E-01_JPRB, &
+ & 0.83533E-01_JPRB,0.70039E-01_JPRB,0.55928E-01_JPRB,0.39440E-01_JPRB /)  
+KA(:, 3,13,13) = (/ &
+ & 0.15875E+00_JPRB,0.14019E+00_JPRB,0.12484E+00_JPRB,0.11161E+00_JPRB,0.10034E+00_JPRB, &
+ & 0.88309E-01_JPRB,0.75681E-01_JPRB,0.62757E-01_JPRB,0.43280E-01_JPRB /)  
+KA(:, 4,13,13) = (/ &
+ & 0.15815E+00_JPRB,0.14019E+00_JPRB,0.12619E+00_JPRB,0.11467E+00_JPRB,0.10492E+00_JPRB, &
+ & 0.92849E-01_JPRB,0.81796E-01_JPRB,0.71221E-01_JPRB,0.50343E-01_JPRB /)  
+KA(:, 5,13,13) = (/ &
+ & 0.15737E+00_JPRB,0.14077E+00_JPRB,0.12756E+00_JPRB,0.11888E+00_JPRB,0.10868E+00_JPRB, &
+ & 0.98192E-01_JPRB,0.90106E-01_JPRB,0.80417E-01_JPRB,0.60332E-01_JPRB /)  
+KA(:, 1, 1,14) = (/ &
+ & 0.83965E-01_JPRB,0.74725E-01_JPRB,0.67262E-01_JPRB,0.61439E-01_JPRB,0.63569E-01_JPRB, &
+ & 0.76568E-01_JPRB,0.91505E-01_JPRB,0.10604E+00_JPRB,0.12066E+00_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART9',1,ZHOOK_HANDLE)
+END SUBROUTINE PART9
+
+
+SUBROUTINE PART10
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART10',0,ZHOOK_HANDLE)
+
+
+KA(:, 2, 1,14) = (/ &
+ & 0.84124E-01_JPRB,0.75639E-01_JPRB,0.69121E-01_JPRB,0.66761E-01_JPRB,0.75177E-01_JPRB, &
+ & 0.93190E-01_JPRB,0.11140E+00_JPRB,0.12912E+00_JPRB,0.14697E+00_JPRB /)  
+KA(:, 3, 1,14) = (/ &
+ & 0.84208E-01_JPRB,0.76821E-01_JPRB,0.71401E-01_JPRB,0.74638E-01_JPRB,0.90938E-01_JPRB, &
+ & 0.11330E+00_JPRB,0.13555E+00_JPRB,0.15732E+00_JPRB,0.17919E+00_JPRB /)  
+KA(:, 4, 1,14) = (/ &
+ & 0.84082E-01_JPRB,0.77722E-01_JPRB,0.74753E-01_JPRB,0.85505E-01_JPRB,0.11037E+00_JPRB, &
+ & 0.13754E+00_JPRB,0.16460E+00_JPRB,0.19114E+00_JPRB,0.21779E+00_JPRB /)  
+KA(:, 5, 1,14) = (/ &
+ & 0.83810E-01_JPRB,0.78431E-01_JPRB,0.79767E-01_JPRB,0.99722E-01_JPRB,0.13195E+00_JPRB, &
+ & 0.16448E+00_JPRB,0.19691E+00_JPRB,0.22867E+00_JPRB,0.26057E+00_JPRB /)  
+KA(:, 1, 2,14) = (/ &
+ & 0.98728E-01_JPRB,0.87584E-01_JPRB,0.78635E-01_JPRB,0.69559E-01_JPRB,0.65625E-01_JPRB, &
+ & 0.74022E-01_JPRB,0.88098E-01_JPRB,0.10177E+00_JPRB,0.11620E+00_JPRB /)  
+KA(:, 2, 2,14) = (/ &
+ & 0.98895E-01_JPRB,0.88195E-01_JPRB,0.80583E-01_JPRB,0.73010E-01_JPRB,0.73981E-01_JPRB, &
+ & 0.89007E-01_JPRB,0.10638E+00_JPRB,0.12319E+00_JPRB,0.14079E+00_JPRB /)  
+KA(:, 3, 2,14) = (/ &
+ & 0.98911E-01_JPRB,0.89265E-01_JPRB,0.82581E-01_JPRB,0.78421E-01_JPRB,0.87111E-01_JPRB, &
+ & 0.10783E+00_JPRB,0.12893E+00_JPRB,0.14951E+00_JPRB,0.17084E+00_JPRB /)  
+KA(:, 4, 2,14) = (/ &
+ & 0.98795E-01_JPRB,0.90737E-01_JPRB,0.84451E-01_JPRB,0.86623E-01_JPRB,0.10466E+00_JPRB, &
+ & 0.13034E+00_JPRB,0.15592E+00_JPRB,0.18094E+00_JPRB,0.20669E+00_JPRB /)  
+KA(:, 5, 2,14) = (/ &
+ & 0.98517E-01_JPRB,0.92027E-01_JPRB,0.87783E-01_JPRB,0.98306E-01_JPRB,0.12592E+00_JPRB, &
+ & 0.15706E+00_JPRB,0.18794E+00_JPRB,0.21816E+00_JPRB,0.24934E+00_JPRB /)  
+KA(:, 1, 3,14) = (/ &
+ & 0.11536E+00_JPRB,0.10204E+00_JPRB,0.91076E-01_JPRB,0.79879E-01_JPRB,0.70411E-01_JPRB, &
+ & 0.71590E-01_JPRB,0.83610E-01_JPRB,0.96241E-01_JPRB,0.11049E+00_JPRB /)  
+KA(:, 2, 3,14) = (/ &
+ & 0.11565E+00_JPRB,0.10277E+00_JPRB,0.93049E-01_JPRB,0.82303E-01_JPRB,0.75267E-01_JPRB, &
+ & 0.83499E-01_JPRB,0.99323E-01_JPRB,0.11472E+00_JPRB,0.13181E+00_JPRB /)  
+KA(:, 3, 3,14) = (/ &
+ & 0.11566E+00_JPRB,0.10353E+00_JPRB,0.95697E-01_JPRB,0.85227E-01_JPRB,0.84157E-01_JPRB, &
+ & 0.99917E-01_JPRB,0.11933E+00_JPRB,0.13815E+00_JPRB,0.15865E+00_JPRB /)  
+KA(:, 4, 3,14) = (/ &
+ & 0.11554E+00_JPRB,0.10447E+00_JPRB,0.97554E-01_JPRB,0.90504E-01_JPRB,0.97960E-01_JPRB, &
+ & 0.12029E+00_JPRB,0.14386E+00_JPRB,0.16671E+00_JPRB,0.19135E+00_JPRB /)  
+KA(:, 5, 3,14) = (/ &
+ & 0.11515E+00_JPRB,0.10586E+00_JPRB,0.99141E-01_JPRB,0.99110E-01_JPRB,0.11626E+00_JPRB, &
+ & 0.14432E+00_JPRB,0.17265E+00_JPRB,0.20040E+00_JPRB,0.22976E+00_JPRB /)  
+KA(:, 1, 4,14) = (/ &
+ & 0.13374E+00_JPRB,0.11777E+00_JPRB,0.10356E+00_JPRB,0.90948E-01_JPRB,0.79121E-01_JPRB, &
+ & 0.73845E-01_JPRB,0.80790E-01_JPRB,0.92777E-01_JPRB,0.10713E+00_JPRB /)  
+KA(:, 2, 4,14) = (/ &
+ & 0.13413E+00_JPRB,0.11892E+00_JPRB,0.10607E+00_JPRB,0.94460E-01_JPRB,0.81628E-01_JPRB, &
+ & 0.80960E-01_JPRB,0.93972E-01_JPRB,0.10817E+00_JPRB,0.12489E+00_JPRB /)  
+KA(:, 3, 4,14) = (/ &
+ & 0.13429E+00_JPRB,0.11957E+00_JPRB,0.10936E+00_JPRB,0.96737E-01_JPRB,0.86452E-01_JPRB, &
+ & 0.93977E-01_JPRB,0.11135E+00_JPRB,0.12854E+00_JPRB,0.14815E+00_JPRB /)  
+KA(:, 4, 4,14) = (/ &
+ & 0.13415E+00_JPRB,0.12054E+00_JPRB,0.11264E+00_JPRB,0.99496E-01_JPRB,0.96100E-01_JPRB, &
+ & 0.11145E+00_JPRB,0.13299E+00_JPRB,0.15385E+00_JPRB,0.17718E+00_JPRB /)  
+KA(:, 5, 4,14) = (/ &
+ & 0.13374E+00_JPRB,0.12142E+00_JPRB,0.11440E+00_JPRB,0.10500E+00_JPRB,0.11046E+00_JPRB, &
+ & 0.13295E+00_JPRB,0.15886E+00_JPRB,0.18424E+00_JPRB,0.21188E+00_JPRB /)  
+KA(:, 1, 5,14) = (/ &
+ & 0.15386E+00_JPRB,0.13491E+00_JPRB,0.11798E+00_JPRB,0.10225E+00_JPRB,0.89703E-01_JPRB, &
+ & 0.79220E-01_JPRB,0.79340E-01_JPRB,0.90595E-01_JPRB,0.10482E+00_JPRB /)  
+KA(:, 2, 5,14) = (/ &
+ & 0.15427E+00_JPRB,0.13635E+00_JPRB,0.12030E+00_JPRB,0.10668E+00_JPRB,0.92323E-01_JPRB, &
+ & 0.84157E-01_JPRB,0.91777E-01_JPRB,0.10537E+00_JPRB,0.12216E+00_JPRB /)  
+KA(:, 3, 5,14) = (/ &
+ & 0.15452E+00_JPRB,0.13729E+00_JPRB,0.12299E+00_JPRB,0.11079E+00_JPRB,0.94730E-01_JPRB, &
+ & 0.92840E-01_JPRB,0.10677E+00_JPRB,0.12287E+00_JPRB,0.14246E+00_JPRB /)  
+KA(:, 4, 5,14) = (/ &
+ & 0.15437E+00_JPRB,0.13801E+00_JPRB,0.12683E+00_JPRB,0.11313E+00_JPRB,0.10059E+00_JPRB, &
+ & 0.10648E+00_JPRB,0.12562E+00_JPRB,0.14488E+00_JPRB,0.16770E+00_JPRB /)  
+KA(:, 5, 5,14) = (/ &
+ & 0.15403E+00_JPRB,0.13896E+00_JPRB,0.13053E+00_JPRB,0.11647E+00_JPRB,0.11129E+00_JPRB, &
+ & 0.12495E+00_JPRB,0.14877E+00_JPRB,0.17193E+00_JPRB,0.19866E+00_JPRB /)  
+KA(:, 1, 6,14) = (/ &
+ & 0.17516E+00_JPRB,0.15332E+00_JPRB,0.13386E+00_JPRB,0.11461E+00_JPRB,0.98998E-01_JPRB, &
+ & 0.86199E-01_JPRB,0.78839E-01_JPRB,0.88239E-01_JPRB,0.10212E+00_JPRB /)  
+KA(:, 2, 6,14) = (/ &
+ & 0.17578E+00_JPRB,0.15465E+00_JPRB,0.13554E+00_JPRB,0.11810E+00_JPRB,0.10372E+00_JPRB, &
+ & 0.90966E-01_JPRB,0.90397E-01_JPRB,0.10318E+00_JPRB,0.11979E+00_JPRB /)  
+KA(:, 3, 6,14) = (/ &
+ & 0.17603E+00_JPRB,0.15606E+00_JPRB,0.13830E+00_JPRB,0.12297E+00_JPRB,0.10694E+00_JPRB, &
+ & 0.96886E-01_JPRB,0.10455E+00_JPRB,0.12004E+00_JPRB,0.13936E+00_JPRB /)  
+KA(:, 4, 6,14) = (/ &
+ & 0.17594E+00_JPRB,0.15671E+00_JPRB,0.14175E+00_JPRB,0.12765E+00_JPRB,0.11049E+00_JPRB, &
+ & 0.10701E+00_JPRB,0.12142E+00_JPRB,0.13971E+00_JPRB,0.16228E+00_JPRB /)  
+KA(:, 5, 6,14) = (/ &
+ & 0.17559E+00_JPRB,0.15762E+00_JPRB,0.14567E+00_JPRB,0.13124E+00_JPRB,0.11784E+00_JPRB, &
+ & 0.12121E+00_JPRB,0.14182E+00_JPRB,0.16360E+00_JPRB,0.18966E+00_JPRB /)  
+KA(:, 1, 7,14) = (/ &
+ & 0.19714E+00_JPRB,0.17254E+00_JPRB,0.15016E+00_JPRB,0.12718E+00_JPRB,0.10949E+00_JPRB, &
+ & 0.93814E-01_JPRB,0.79465E-01_JPRB,0.85103E-01_JPRB,0.98359E-01_JPRB /)  
+KA(:, 2, 7,14) = (/ &
+ & 0.19796E+00_JPRB,0.17362E+00_JPRB,0.15183E+00_JPRB,0.13102E+00_JPRB,0.11370E+00_JPRB, &
+ & 0.99479E-01_JPRB,0.90483E-01_JPRB,0.10125E+00_JPRB,0.11726E+00_JPRB /)  
+KA(:, 3, 7,14) = (/ &
+ & 0.19829E+00_JPRB,0.17522E+00_JPRB,0.15424E+00_JPRB,0.13545E+00_JPRB,0.11863E+00_JPRB, &
+ & 0.10457E+00_JPRB,0.10363E+00_JPRB,0.11810E+00_JPRB,0.13724E+00_JPRB /)  
+KA(:, 4, 7,14) = (/ &
+ & 0.19826E+00_JPRB,0.17625E+00_JPRB,0.15748E+00_JPRB,0.14049E+00_JPRB,0.12307E+00_JPRB, &
+ & 0.11254E+00_JPRB,0.11942E+00_JPRB,0.13698E+00_JPRB,0.15920E+00_JPRB /)  
+KA(:, 5, 7,14) = (/ &
+ & 0.19780E+00_JPRB,0.17685E+00_JPRB,0.16171E+00_JPRB,0.14510E+00_JPRB,0.12933E+00_JPRB, &
+ & 0.12368E+00_JPRB,0.13790E+00_JPRB,0.15875E+00_JPRB,0.18443E+00_JPRB /)  
+KA(:, 1, 8,14) = (/ &
+ & 0.21950E+00_JPRB,0.19210E+00_JPRB,0.16641E+00_JPRB,0.14074E+00_JPRB,0.12030E+00_JPRB, &
+ & 0.10245E+00_JPRB,0.82539E-01_JPRB,0.82181E-01_JPRB,0.95126E-01_JPRB /)  
+KA(:, 2, 8,14) = (/ &
+ & 0.22029E+00_JPRB,0.19287E+00_JPRB,0.16845E+00_JPRB,0.14392E+00_JPRB,0.12476E+00_JPRB, &
+ & 0.10750E+00_JPRB,0.92052E-01_JPRB,0.97622E-01_JPRB,0.11306E+00_JPRB /)  
+KA(:, 3, 8,14) = (/ &
+ & 0.22070E+00_JPRB,0.19423E+00_JPRB,0.17032E+00_JPRB,0.14847E+00_JPRB,0.12971E+00_JPRB, &
+ & 0.11297E+00_JPRB,0.10375E+00_JPRB,0.11522E+00_JPRB,0.13338E+00_JPRB /)  
+KA(:, 4, 8,14) = (/ &
+ & 0.22058E+00_JPRB,0.19569E+00_JPRB,0.17355E+00_JPRB,0.15354E+00_JPRB,0.13473E+00_JPRB, &
+ & 0.12044E+00_JPRB,0.11859E+00_JPRB,0.13469E+00_JPRB,0.15609E+00_JPRB /)  
+KA(:, 5, 8,14) = (/ &
+ & 0.22021E+00_JPRB,0.19640E+00_JPRB,0.17762E+00_JPRB,0.15857E+00_JPRB,0.14102E+00_JPRB, &
+ & 0.13035E+00_JPRB,0.13566E+00_JPRB,0.15573E+00_JPRB,0.18054E+00_JPRB /)  
+KA(:, 1, 9,14) = (/ &
+ & 0.24109E+00_JPRB,0.21099E+00_JPRB,0.18179E+00_JPRB,0.15454E+00_JPRB,0.13112E+00_JPRB, &
+ & 0.11092E+00_JPRB,0.89296E-01_JPRB,0.80506E-01_JPRB,0.93157E-01_JPRB /)  
+KA(:, 2, 9,14) = (/ &
+ & 0.24188E+00_JPRB,0.21170E+00_JPRB,0.18440E+00_JPRB,0.15693E+00_JPRB,0.13589E+00_JPRB, &
+ & 0.11596E+00_JPRB,0.96808E-01_JPRB,0.94330E-01_JPRB,0.10941E+00_JPRB /)  
+KA(:, 3, 9,14) = (/ &
+ & 0.24228E+00_JPRB,0.21270E+00_JPRB,0.18618E+00_JPRB,0.16137E+00_JPRB,0.14099E+00_JPRB, &
+ & 0.12182E+00_JPRB,0.10601E+00_JPRB,0.11139E+00_JPRB,0.12901E+00_JPRB /)  
+KA(:, 4, 9,14) = (/ &
+ & 0.24222E+00_JPRB,0.21416E+00_JPRB,0.18881E+00_JPRB,0.16653E+00_JPRB,0.14643E+00_JPRB, &
+ & 0.12886E+00_JPRB,0.11898E+00_JPRB,0.13037E+00_JPRB,0.15086E+00_JPRB /)  
+KA(:, 5, 9,14) = (/ &
+ & 0.24175E+00_JPRB,0.21527E+00_JPRB,0.19303E+00_JPRB,0.17188E+00_JPRB,0.15251E+00_JPRB, &
+ & 0.13886E+00_JPRB,0.13479E+00_JPRB,0.15182E+00_JPRB,0.17551E+00_JPRB /)  
+KA(:, 1,10,14) = (/ &
+ & 0.26096E+00_JPRB,0.22837E+00_JPRB,0.19625E+00_JPRB,0.16743E+00_JPRB,0.14218E+00_JPRB, &
+ & 0.11905E+00_JPRB,0.97365E-01_JPRB,0.81466E-01_JPRB,0.86743E-01_JPRB /)  
+KA(:, 2,10,14) = (/ &
+ & 0.26197E+00_JPRB,0.22928E+00_JPRB,0.19902E+00_JPRB,0.16970E+00_JPRB,0.14641E+00_JPRB, &
+ & 0.12483E+00_JPRB,0.10472E+00_JPRB,0.93843E-01_JPRB,0.10806E+00_JPRB /)  
+KA(:, 3,10,14) = (/ &
+ & 0.26221E+00_JPRB,0.22989E+00_JPRB,0.20102E+00_JPRB,0.17345E+00_JPRB,0.15221E+00_JPRB, &
+ & 0.13116E+00_JPRB,0.11273E+00_JPRB,0.10943E+00_JPRB,0.12658E+00_JPRB /)  
+KA(:, 4,10,14) = (/ &
+ & 0.26216E+00_JPRB,0.23120E+00_JPRB,0.20343E+00_JPRB,0.17903E+00_JPRB,0.15795E+00_JPRB, &
+ & 0.13876E+00_JPRB,0.12342E+00_JPRB,0.12756E+00_JPRB,0.14743E+00_JPRB /)  
+KA(:, 5,10,14) = (/ &
+ & 0.26155E+00_JPRB,0.23254E+00_JPRB,0.20744E+00_JPRB,0.18479E+00_JPRB,0.16453E+00_JPRB, &
+ & 0.14894E+00_JPRB,0.13716E+00_JPRB,0.14827E+00_JPRB,0.17117E+00_JPRB /)  
+KA(:, 1,11,14) = (/ &
+ & 0.28000E+00_JPRB,0.24504E+00_JPRB,0.21069E+00_JPRB,0.18024E+00_JPRB,0.15374E+00_JPRB, &
+ & 0.12937E+00_JPRB,0.10819E+00_JPRB,0.88668E-01_JPRB,0.55926E-01_JPRB /)  
+KA(:, 2,11,14) = (/ &
+ & 0.28047E+00_JPRB,0.24546E+00_JPRB,0.21318E+00_JPRB,0.18272E+00_JPRB,0.15865E+00_JPRB, &
+ & 0.13663E+00_JPRB,0.11594E+00_JPRB,0.10024E+00_JPRB,0.74129E-01_JPRB /)  
+KA(:, 3,11,14) = (/ &
+ & 0.28078E+00_JPRB,0.24627E+00_JPRB,0.21537E+00_JPRB,0.18699E+00_JPRB,0.16514E+00_JPRB, &
+ & 0.14391E+00_JPRB,0.12463E+00_JPRB,0.11566E+00_JPRB,0.10008E+00_JPRB /)  
+KA(:, 4,11,14) = (/ &
+ & 0.28041E+00_JPRB,0.24739E+00_JPRB,0.21799E+00_JPRB,0.19316E+00_JPRB,0.17153E+00_JPRB, &
+ & 0.15296E+00_JPRB,0.13573E+00_JPRB,0.13384E+00_JPRB,0.12903E+00_JPRB /)  
+KA(:, 5,11,14) = (/ &
+ & 0.27974E+00_JPRB,0.24878E+00_JPRB,0.22235E+00_JPRB,0.19924E+00_JPRB,0.17976E+00_JPRB, &
+ & 0.16447E+00_JPRB,0.14857E+00_JPRB,0.15437E+00_JPRB,0.16255E+00_JPRB /)  
+KA(:, 1,12,14) = (/ &
+ & 0.29848E+00_JPRB,0.26121E+00_JPRB,0.22470E+00_JPRB,0.19300E+00_JPRB,0.16476E+00_JPRB, &
+ & 0.13979E+00_JPRB,0.11858E+00_JPRB,0.95361E-01_JPRB,0.54706E-01_JPRB /)  
+KA(:, 2,12,14) = (/ &
+ & 0.29901E+00_JPRB,0.26167E+00_JPRB,0.22733E+00_JPRB,0.19555E+00_JPRB,0.17000E+00_JPRB, &
+ & 0.14834E+00_JPRB,0.12686E+00_JPRB,0.10640E+00_JPRB,0.56924E-01_JPRB /)  
+KA(:, 3,12,14) = (/ &
+ & 0.29886E+00_JPRB,0.26222E+00_JPRB,0.22932E+00_JPRB,0.20008E+00_JPRB,0.17736E+00_JPRB, &
+ & 0.15653E+00_JPRB,0.13669E+00_JPRB,0.12173E+00_JPRB,0.76097E-01_JPRB /)  
+KA(:, 4,12,14) = (/ &
+ & 0.29840E+00_JPRB,0.26333E+00_JPRB,0.23210E+00_JPRB,0.20641E+00_JPRB,0.18472E+00_JPRB, &
+ & 0.16716E+00_JPRB,0.14883E+00_JPRB,0.13980E+00_JPRB,0.10268E+00_JPRB /)  
+KA(:, 5,12,14) = (/ &
+ & 0.29738E+00_JPRB,0.26451E+00_JPRB,0.23656E+00_JPRB,0.21275E+00_JPRB,0.19460E+00_JPRB, &
+ & 0.18005E+00_JPRB,0.16102E+00_JPRB,0.16046E+00_JPRB,0.13219E+00_JPRB /)  
+KA(:, 1,13,14) = (/ &
+ & 0.31629E+00_JPRB,0.27681E+00_JPRB,0.23838E+00_JPRB,0.20550E+00_JPRB,0.17561E+00_JPRB, &
+ & 0.15005E+00_JPRB,0.12855E+00_JPRB,0.10141E+00_JPRB,0.58394E-01_JPRB /)  
+KA(:, 2,13,14) = (/ &
+ & 0.31664E+00_JPRB,0.27713E+00_JPRB,0.24100E+00_JPRB,0.20827E+00_JPRB,0.18155E+00_JPRB, &
+ & 0.15952E+00_JPRB,0.13765E+00_JPRB,0.11247E+00_JPRB,0.60995E-01_JPRB /)  
+KA(:, 3,13,14) = (/ &
+ & 0.31646E+00_JPRB,0.27774E+00_JPRB,0.24298E+00_JPRB,0.21292E+00_JPRB,0.18963E+00_JPRB, &
+ & 0.16861E+00_JPRB,0.14853E+00_JPRB,0.12785E+00_JPRB,0.75808E-01_JPRB /)  
+KA(:, 4,13,14) = (/ &
+ & 0.31577E+00_JPRB,0.27872E+00_JPRB,0.24590E+00_JPRB,0.21953E+00_JPRB,0.19753E+00_JPRB, &
+ & 0.18064E+00_JPRB,0.16179E+00_JPRB,0.14607E+00_JPRB,0.10217E+00_JPRB /)  
+KA(:, 5,13,14) = (/ &
+ & 0.31458E+00_JPRB,0.27978E+00_JPRB,0.25030E+00_JPRB,0.22598E+00_JPRB,0.20858E+00_JPRB, &
+ & 0.19488E+00_JPRB,0.17415E+00_JPRB,0.16696E+00_JPRB,0.13138E+00_JPRB /)  
+KA(:, 1, 1,15) = (/ &
+ & 0.94898E-01_JPRB,0.85055E-01_JPRB,0.10490E+00_JPRB,0.15201E+00_JPRB,0.20225E+00_JPRB, &
+ & 0.25227E+00_JPRB,0.30184E+00_JPRB,0.34935E+00_JPRB,0.39726E+00_JPRB /)  
+KA(:, 2, 1,15) = (/ &
+ & 0.95143E-01_JPRB,0.87211E-01_JPRB,0.12685E+00_JPRB,0.18956E+00_JPRB,0.25226E+00_JPRB, &
+ & 0.31465E+00_JPRB,0.37635E+00_JPRB,0.43547E+00_JPRB,0.49508E+00_JPRB /)  
+KA(:, 3, 1,15) = (/ &
+ & 0.95189E-01_JPRB,0.92182E-01_JPRB,0.15432E+00_JPRB,0.23093E+00_JPRB,0.30732E+00_JPRB, &
+ & 0.38333E+00_JPRB,0.45850E+00_JPRB,0.53039E+00_JPRB,0.60271E+00_JPRB /)  
+KA(:, 4, 1,15) = (/ &
+ & 0.95231E-01_JPRB,0.10069E+00_JPRB,0.18420E+00_JPRB,0.27567E+00_JPRB,0.36689E+00_JPRB, &
+ & 0.45778E+00_JPRB,0.54750E+00_JPRB,0.63309E+00_JPRB,0.71941E+00_JPRB /)  
+KA(:, 5, 1,15) = (/ &
+ & 0.95218E-01_JPRB,0.11224E+00_JPRB,0.21607E+00_JPRB,0.32340E+00_JPRB,0.43052E+00_JPRB, &
+ & 0.53710E+00_JPRB,0.64228E+00_JPRB,0.74267E+00_JPRB,0.84389E+00_JPRB /)  
+KA(:, 1, 2,15) = (/ &
+ & 0.11396E+00_JPRB,0.10141E+00_JPRB,0.10674E+00_JPRB,0.14459E+00_JPRB,0.19233E+00_JPRB, &
+ & 0.23999E+00_JPRB,0.28714E+00_JPRB,0.33260E+00_JPRB,0.38043E+00_JPRB /)  
+KA(:, 2, 2,15) = (/ &
+ & 0.11432E+00_JPRB,0.10261E+00_JPRB,0.12520E+00_JPRB,0.18276E+00_JPRB,0.24324E+00_JPRB, &
+ & 0.30342E+00_JPRB,0.36297E+00_JPRB,0.42016E+00_JPRB,0.48074E+00_JPRB /)  
+KA(:, 3, 2,15) = (/ &
+ & 0.11451E+00_JPRB,0.10490E+00_JPRB,0.15054E+00_JPRB,0.22514E+00_JPRB,0.29969E+00_JPRB, &
+ & 0.37388E+00_JPRB,0.44723E+00_JPRB,0.51774E+00_JPRB,0.59231E+00_JPRB /)  
+KA(:, 4, 2,15) = (/ &
+ & 0.11456E+00_JPRB,0.10971E+00_JPRB,0.18129E+00_JPRB,0.27136E+00_JPRB,0.36114E+00_JPRB, &
+ & 0.45069E+00_JPRB,0.53922E+00_JPRB,0.62384E+00_JPRB,0.71399E+00_JPRB /)  
+KA(:, 5, 2,15) = (/ &
+ & 0.11453E+00_JPRB,0.11800E+00_JPRB,0.21439E+00_JPRB,0.32093E+00_JPRB,0.42721E+00_JPRB, &
+ & 0.53302E+00_JPRB,0.63780E+00_JPRB,0.73784E+00_JPRB,0.84437E+00_JPRB /)  
+KA(:, 1, 3,15) = (/ &
+ & 0.13655E+00_JPRB,0.12054E+00_JPRB,0.11124E+00_JPRB,0.13153E+00_JPRB,0.17207E+00_JPRB, &
+ & 0.21470E+00_JPRB,0.25693E+00_JPRB,0.29779E+00_JPRB,0.34231E+00_JPRB /)  
+KA(:, 2, 3,15) = (/ &
+ & 0.13707E+00_JPRB,0.12216E+00_JPRB,0.12413E+00_JPRB,0.16670E+00_JPRB,0.22186E+00_JPRB, &
+ & 0.27683E+00_JPRB,0.33137E+00_JPRB,0.38384E+00_JPRB,0.44145E+00_JPRB /)  
+KA(:, 3, 3,15) = (/ &
+ & 0.13747E+00_JPRB,0.12319E+00_JPRB,0.14360E+00_JPRB,0.20888E+00_JPRB,0.27797E+00_JPRB, &
+ & 0.34687E+00_JPRB,0.41517E+00_JPRB,0.48101E+00_JPRB,0.55322E+00_JPRB /)  
+KA(:, 4, 3,15) = (/ &
+ & 0.13768E+00_JPRB,0.12546E+00_JPRB,0.17113E+00_JPRB,0.25534E+00_JPRB,0.33989E+00_JPRB, &
+ & 0.42417E+00_JPRB,0.50744E+00_JPRB,0.58796E+00_JPRB,0.67649E+00_JPRB /)  
+KA(:, 5, 3,15) = (/ &
+ & 0.13772E+00_JPRB,0.12983E+00_JPRB,0.20407E+00_JPRB,0.30559E+00_JPRB,0.40688E+00_JPRB, &
+ & 0.50779E+00_JPRB,0.60773E+00_JPRB,0.70383E+00_JPRB,0.80998E+00_JPRB /)  
+KA(:, 1, 4,15) = (/ &
+ & 0.16353E+00_JPRB,0.14321E+00_JPRB,0.12667E+00_JPRB,0.12562E+00_JPRB,0.14945E+00_JPRB, &
+ & 0.18589E+00_JPRB,0.22262E+00_JPRB,0.25813E+00_JPRB,0.29728E+00_JPRB /)  
+KA(:, 2, 4,15) = (/ &
+ & 0.16418E+00_JPRB,0.14525E+00_JPRB,0.13251E+00_JPRB,0.15131E+00_JPRB,0.19654E+00_JPRB, &
+ & 0.24525E+00_JPRB,0.29354E+00_JPRB,0.34060E+00_JPRB,0.39212E+00_JPRB /)  
+KA(:, 3, 4,15) = (/ &
+ & 0.16461E+00_JPRB,0.14670E+00_JPRB,0.14414E+00_JPRB,0.18897E+00_JPRB,0.25116E+00_JPRB, &
+ & 0.31348E+00_JPRB,0.37525E+00_JPRB,0.43507E+00_JPRB,0.50121E+00_JPRB /)  
+KA(:, 4, 4,15) = (/ &
+ & 0.16491E+00_JPRB,0.14777E+00_JPRB,0.16361E+00_JPRB,0.23441E+00_JPRB,0.31211E+00_JPRB, &
+ & 0.38952E+00_JPRB,0.46648E+00_JPRB,0.54097E+00_JPRB,0.62321E+00_JPRB /)  
+KA(:, 5, 4,15) = (/ &
+ & 0.16511E+00_JPRB,0.15008E+00_JPRB,0.19240E+00_JPRB,0.28461E+00_JPRB,0.37902E+00_JPRB, &
+ & 0.47310E+00_JPRB,0.56644E+00_JPRB,0.65651E+00_JPRB,0.75672E+00_JPRB /)  
+KA(:, 1, 5,15) = (/ &
+ & 0.19509E+00_JPRB,0.17082E+00_JPRB,0.14980E+00_JPRB,0.13204E+00_JPRB,0.13395E+00_JPRB, &
+ & 0.16269E+00_JPRB,0.19465E+00_JPRB,0.22562E+00_JPRB,0.26041E+00_JPRB /)  
+KA(:, 2, 5,15) = (/ &
+ & 0.19619E+00_JPRB,0.17214E+00_JPRB,0.15205E+00_JPRB,0.14710E+00_JPRB,0.17263E+00_JPRB, &
+ & 0.21401E+00_JPRB,0.25633E+00_JPRB,0.29729E+00_JPRB,0.34247E+00_JPRB /)  
+KA(:, 3, 5,15) = (/ &
+ & 0.19681E+00_JPRB,0.17444E+00_JPRB,0.15815E+00_JPRB,0.17421E+00_JPRB,0.22342E+00_JPRB, &
+ & 0.27889E+00_JPRB,0.33405E+00_JPRB,0.38778E+00_JPRB,0.44627E+00_JPRB /)  
+KA(:, 4, 5,15) = (/ &
+ & 0.19721E+00_JPRB,0.17581E+00_JPRB,0.16979E+00_JPRB,0.21414E+00_JPRB,0.28278E+00_JPRB, &
+ & 0.35302E+00_JPRB,0.42274E+00_JPRB,0.49080E+00_JPRB,0.56501E+00_JPRB /)  
+KA(:, 5, 5,15) = (/ &
+ & 0.19732E+00_JPRB,0.17699E+00_JPRB,0.18956E+00_JPRB,0.26168E+00_JPRB,0.34842E+00_JPRB, &
+ & 0.43503E+00_JPRB,0.52113E+00_JPRB,0.60494E+00_JPRB,0.69634E+00_JPRB /)  
+KA(:, 1, 6,15) = (/ &
+ & 0.23167E+00_JPRB,0.20281E+00_JPRB,0.17680E+00_JPRB,0.14997E+00_JPRB,0.13324E+00_JPRB, &
+ & 0.14585E+00_JPRB,0.17450E+00_JPRB,0.20194E+00_JPRB,0.23383E+00_JPRB /)  
+KA(:, 2, 6,15) = (/ &
+ & 0.23317E+00_JPRB,0.20416E+00_JPRB,0.17934E+00_JPRB,0.15819E+00_JPRB,0.15707E+00_JPRB, &
+ & 0.18679E+00_JPRB,0.22357E+00_JPRB,0.25924E+00_JPRB,0.29921E+00_JPRB /)  
+KA(:, 3, 6,15) = (/ &
+ & 0.23428E+00_JPRB,0.20631E+00_JPRB,0.18228E+00_JPRB,0.17432E+00_JPRB,0.19753E+00_JPRB, &
+ & 0.24343E+00_JPRB,0.29156E+00_JPRB,0.33836E+00_JPRB,0.38981E+00_JPRB /)  
+KA(:, 4, 6,15) = (/ &
+ & 0.23494E+00_JPRB,0.20857E+00_JPRB,0.18851E+00_JPRB,0.20211E+00_JPRB,0.25104E+00_JPRB, &
+ & 0.31278E+00_JPRB,0.37475E+00_JPRB,0.43549E+00_JPRB,0.50069E+00_JPRB /)  
+KA(:, 5, 6,15) = (/ &
+ & 0.23514E+00_JPRB,0.20988E+00_JPRB,0.20063E+00_JPRB,0.24116E+00_JPRB,0.31413E+00_JPRB, &
+ & 0.39227E+00_JPRB,0.47006E+00_JPRB,0.54611E+00_JPRB,0.62816E+00_JPRB /)  
+KA(:, 1, 7,15) = (/ &
+ & 0.27443E+00_JPRB,0.24019E+00_JPRB,0.20758E+00_JPRB,0.17610E+00_JPRB,0.14566E+00_JPRB, &
+ & 0.14000E+00_JPRB,0.16506E+00_JPRB,0.19019E+00_JPRB,0.22128E+00_JPRB /)  
+KA(:, 2, 7,15) = (/ &
+ & 0.27620E+00_JPRB,0.24179E+00_JPRB,0.21121E+00_JPRB,0.17965E+00_JPRB,0.15984E+00_JPRB, &
+ & 0.16864E+00_JPRB,0.20104E+00_JPRB,0.23213E+00_JPRB,0.26949E+00_JPRB /)  
+KA(:, 3, 7,15) = (/ &
+ & 0.27747E+00_JPRB,0.24292E+00_JPRB,0.21364E+00_JPRB,0.18907E+00_JPRB,0.18625E+00_JPRB, &
+ & 0.21432E+00_JPRB,0.25652E+00_JPRB,0.29760E+00_JPRB,0.34338E+00_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART10',1,ZHOOK_HANDLE)
+END SUBROUTINE PART10
+
+
+SUBROUTINE PART11
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART11',0,ZHOOK_HANDLE)
+
+
+KA(:, 4, 7,15) = (/ &
+ & 0.27840E+00_JPRB,0.24591E+00_JPRB,0.21750E+00_JPRB,0.20704E+00_JPRB,0.22722E+00_JPRB, &
+ & 0.27512E+00_JPRB,0.32963E+00_JPRB,0.38304E+00_JPRB,0.44058E+00_JPRB /)  
+KA(:, 5, 7,15) = (/ &
+ & 0.27872E+00_JPRB,0.24790E+00_JPRB,0.22377E+00_JPRB,0.23568E+00_JPRB,0.28140E+00_JPRB, &
+ & 0.34919E+00_JPRB,0.41848E+00_JPRB,0.48672E+00_JPRB,0.55917E+00_JPRB /)  
+KA(:, 1, 8,15) = (/ &
+ & 0.32341E+00_JPRB,0.28305E+00_JPRB,0.24270E+00_JPRB,0.20626E+00_JPRB,0.16778E+00_JPRB, &
+ & 0.14644E+00_JPRB,0.16206E+00_JPRB,0.18656E+00_JPRB,0.21702E+00_JPRB /)  
+KA(:, 2, 8,15) = (/ &
+ & 0.32568E+00_JPRB,0.28506E+00_JPRB,0.24756E+00_JPRB,0.20963E+00_JPRB,0.17522E+00_JPRB, &
+ & 0.16516E+00_JPRB,0.19045E+00_JPRB,0.21956E+00_JPRB,0.25530E+00_JPRB /)  
+KA(:, 3, 8,15) = (/ &
+ & 0.32734E+00_JPRB,0.28654E+00_JPRB,0.25088E+00_JPRB,0.21479E+00_JPRB,0.19195E+00_JPRB, &
+ & 0.19819E+00_JPRB,0.23472E+00_JPRB,0.27107E+00_JPRB,0.31461E+00_JPRB /)  
+KA(:, 4, 8,15) = (/ &
+ & 0.32837E+00_JPRB,0.28793E+00_JPRB,0.25332E+00_JPRB,0.22544E+00_JPRB,0.22100E+00_JPRB, &
+ & 0.24722E+00_JPRB,0.29529E+00_JPRB,0.34210E+00_JPRB,0.39526E+00_JPRB /)  
+KA(:, 5, 8,15) = (/ &
+ & 0.32863E+00_JPRB,0.29096E+00_JPRB,0.25794E+00_JPRB,0.24543E+00_JPRB,0.26342E+00_JPRB, &
+ & 0.31218E+00_JPRB,0.37382E+00_JPRB,0.43401E+00_JPRB,0.50027E+00_JPRB /)  
+KA(:, 1, 9,15) = (/ &
+ & 0.37878E+00_JPRB,0.33149E+00_JPRB,0.28420E+00_JPRB,0.23973E+00_JPRB,0.19541E+00_JPRB, &
+ & 0.16103E+00_JPRB,0.16029E+00_JPRB,0.18365E+00_JPRB,0.21308E+00_JPRB /)  
+KA(:, 2, 9,15) = (/ &
+ & 0.38160E+00_JPRB,0.33397E+00_JPRB,0.28731E+00_JPRB,0.24432E+00_JPRB,0.19953E+00_JPRB, &
+ & 0.17386E+00_JPRB,0.18539E+00_JPRB,0.21378E+00_JPRB,0.24833E+00_JPRB /)  
+KA(:, 3, 9,15) = (/ &
+ & 0.38370E+00_JPRB,0.33584E+00_JPRB,0.29267E+00_JPRB,0.24777E+00_JPRB,0.20961E+00_JPRB, &
+ & 0.19622E+00_JPRB,0.22137E+00_JPRB,0.25542E+00_JPRB,0.29676E+00_JPRB /)  
+KA(:, 4, 9,15) = (/ &
+ & 0.38483E+00_JPRB,0.33686E+00_JPRB,0.29593E+00_JPRB,0.25505E+00_JPRB,0.22908E+00_JPRB, &
+ & 0.23318E+00_JPRB,0.27287E+00_JPRB,0.31549E+00_JPRB,0.36559E+00_JPRB /)  
+KA(:, 5, 9,15) = (/ &
+ & 0.38520E+00_JPRB,0.33870E+00_JPRB,0.29863E+00_JPRB,0.26759E+00_JPRB,0.26094E+00_JPRB, &
+ & 0.28563E+00_JPRB,0.34036E+00_JPRB,0.39396E+00_JPRB,0.45596E+00_JPRB /)  
+KA(:, 1,10,15) = (/ &
+ & 0.44139E+00_JPRB,0.38627E+00_JPRB,0.33114E+00_JPRB,0.27661E+00_JPRB,0.22671E+00_JPRB, &
+ & 0.18314E+00_JPRB,0.16439E+00_JPRB,0.18365E+00_JPRB,0.21302E+00_JPRB /)  
+KA(:, 2,10,15) = (/ &
+ & 0.44442E+00_JPRB,0.38894E+00_JPRB,0.33346E+00_JPRB,0.28317E+00_JPRB,0.23077E+00_JPRB, &
+ & 0.19173E+00_JPRB,0.18540E+00_JPRB,0.21159E+00_JPRB,0.24601E+00_JPRB /)  
+KA(:, 3,10,15) = (/ &
+ & 0.44688E+00_JPRB,0.39111E+00_JPRB,0.33884E+00_JPRB,0.28735E+00_JPRB,0.23759E+00_JPRB, &
+ & 0.20864E+00_JPRB,0.21693E+00_JPRB,0.24969E+00_JPRB,0.29058E+00_JPRB /)  
+KA(:, 4,10,15) = (/ &
+ & 0.44794E+00_JPRB,0.39207E+00_JPRB,0.34326E+00_JPRB,0.29193E+00_JPRB,0.25105E+00_JPRB, &
+ & 0.23562E+00_JPRB,0.26192E+00_JPRB,0.30247E+00_JPRB,0.35138E+00_JPRB /)  
+KA(:, 5,10,15) = (/ &
+ & 0.44820E+00_JPRB,0.39253E+00_JPRB,0.34576E+00_JPRB,0.30181E+00_JPRB,0.27401E+00_JPRB, &
+ & 0.27758E+00_JPRB,0.32230E+00_JPRB,0.37259E+00_JPRB,0.43225E+00_JPRB /)  
+KA(:, 1,11,15) = (/ &
+ & 0.51225E+00_JPRB,0.44827E+00_JPRB,0.38430E+00_JPRB,0.32096E+00_JPRB,0.26380E+00_JPRB, &
+ & 0.21204E+00_JPRB,0.18122E+00_JPRB,0.19575E+00_JPRB,0.22762E+00_JPRB /)  
+KA(:, 2,11,15) = (/ &
+ & 0.51551E+00_JPRB,0.45114E+00_JPRB,0.38677E+00_JPRB,0.32842E+00_JPRB,0.26803E+00_JPRB, &
+ & 0.22031E+00_JPRB,0.20295E+00_JPRB,0.22783E+00_JPRB,0.26563E+00_JPRB /)  
+KA(:, 3,11,15) = (/ &
+ & 0.51720E+00_JPRB,0.45265E+00_JPRB,0.39154E+00_JPRB,0.33278E+00_JPRB,0.27451E+00_JPRB, &
+ & 0.23732E+00_JPRB,0.23493E+00_JPRB,0.26904E+00_JPRB,0.31377E+00_JPRB /)  
+KA(:, 4,11,15) = (/ &
+ & 0.51766E+00_JPRB,0.45307E+00_JPRB,0.39664E+00_JPRB,0.33683E+00_JPRB,0.28805E+00_JPRB, &
+ & 0.26198E+00_JPRB,0.27963E+00_JPRB,0.32252E+00_JPRB,0.37505E+00_JPRB /)  
+KA(:, 5,11,15) = (/ &
+ & 0.51687E+00_JPRB,0.45253E+00_JPRB,0.39906E+00_JPRB,0.34713E+00_JPRB,0.30874E+00_JPRB, &
+ & 0.30122E+00_JPRB,0.34231E+00_JPRB,0.39543E+00_JPRB,0.45934E+00_JPRB /)  
+KA(:, 1,12,15) = (/ &
+ & 0.58922E+00_JPRB,0.51562E+00_JPRB,0.44203E+00_JPRB,0.36905E+00_JPRB,0.30406E+00_JPRB, &
+ & 0.24465E+00_JPRB,0.20183E+00_JPRB,0.21102E+00_JPRB,0.20343E+00_JPRB /)  
+KA(:, 2,12,15) = (/ &
+ & 0.59167E+00_JPRB,0.51780E+00_JPRB,0.44391E+00_JPRB,0.37709E+00_JPRB,0.30888E+00_JPRB, &
+ & 0.25236E+00_JPRB,0.22396E+00_JPRB,0.24700E+00_JPRB,0.27515E+00_JPRB /)  
+KA(:, 3,12,15) = (/ &
+ & 0.59289E+00_JPRB,0.51887E+00_JPRB,0.44833E+00_JPRB,0.38190E+00_JPRB,0.31478E+00_JPRB, &
+ & 0.26966E+00_JPRB,0.25708E+00_JPRB,0.29183E+00_JPRB,0.34036E+00_JPRB /)  
+KA(:, 4,12,15) = (/ &
+ & 0.59238E+00_JPRB,0.51846E+00_JPRB,0.45409E+00_JPRB,0.38554E+00_JPRB,0.32896E+00_JPRB, &
+ & 0.29236E+00_JPRB,0.30023E+00_JPRB,0.34558E+00_JPRB,0.40217E+00_JPRB /)  
+KA(:, 5,12,15) = (/ &
+ & 0.59040E+00_JPRB,0.51681E+00_JPRB,0.45607E+00_JPRB,0.39582E+00_JPRB,0.34740E+00_JPRB, &
+ & 0.32863E+00_JPRB,0.36471E+00_JPRB,0.42134E+00_JPRB,0.48947E+00_JPRB /)  
+KA(:, 1,13,15) = (/ &
+ & 0.67101E+00_JPRB,0.58718E+00_JPRB,0.50336E+00_JPRB,0.42031E+00_JPRB,0.34716E+00_JPRB, &
+ & 0.27980E+00_JPRB,0.22553E+00_JPRB,0.22887E+00_JPRB,0.21243E+00_JPRB /)  
+KA(:, 2,13,15) = (/ &
+ & 0.67268E+00_JPRB,0.58864E+00_JPRB,0.50464E+00_JPRB,0.42832E+00_JPRB,0.35207E+00_JPRB, &
+ & 0.28740E+00_JPRB,0.24801E+00_JPRB,0.26765E+00_JPRB,0.28879E+00_JPRB /)  
+KA(:, 3,13,15) = (/ &
+ & 0.67256E+00_JPRB,0.58859E+00_JPRB,0.50813E+00_JPRB,0.43372E+00_JPRB,0.35764E+00_JPRB, &
+ & 0.30459E+00_JPRB,0.28195E+00_JPRB,0.31558E+00_JPRB,0.36763E+00_JPRB /)  
+KA(:, 4,13,15) = (/ &
+ & 0.67050E+00_JPRB,0.58682E+00_JPRB,0.51379E+00_JPRB,0.43676E+00_JPRB,0.37243E+00_JPRB, &
+ & 0.32590E+00_JPRB,0.32370E+00_JPRB,0.37117E+00_JPRB,0.43203E+00_JPRB /)  
+KA(:, 5,13,15) = (/ &
+ & 0.66719E+00_JPRB,0.58400E+00_JPRB,0.51581E+00_JPRB,0.44632E+00_JPRB,0.38956E+00_JPRB, &
+ & 0.35928E+00_JPRB,0.38845E+00_JPRB,0.44876E+00_JPRB,0.52114E+00_JPRB /)  
+KA(:, 1, 1,16) = (/ &
+ & 0.10138E+00_JPRB,0.11271E+00_JPRB,0.22512E+00_JPRB,0.33705E+00_JPRB,0.44854E+00_JPRB, &
+ & 0.55854E+00_JPRB,0.66519E+00_JPRB,0.75942E+00_JPRB,0.85612E+00_JPRB /)  
+KA(:, 2, 1,16) = (/ &
+ & 0.10145E+00_JPRB,0.13913E+00_JPRB,0.27783E+00_JPRB,0.41606E+00_JPRB,0.55341E+00_JPRB, &
+ & 0.68935E+00_JPRB,0.82123E+00_JPRB,0.93793E+00_JPRB,0.10573E+01_JPRB /)  
+KA(:, 3, 1,16) = (/ &
+ & 0.10144E+00_JPRB,0.16758E+00_JPRB,0.33464E+00_JPRB,0.50118E+00_JPRB,0.66683E+00_JPRB, &
+ & 0.83041E+00_JPRB,0.98914E+00_JPRB,0.11301E+01_JPRB,0.12744E+01_JPRB /)  
+KA(:, 4, 1,16) = (/ &
+ & 0.10142E+00_JPRB,0.19759E+00_JPRB,0.39475E+00_JPRB,0.59125E+00_JPRB,0.78644E+00_JPRB, &
+ & 0.97913E+00_JPRB,0.11666E+01_JPRB,0.13327E+01_JPRB,0.15036E+01_JPRB /)  
+KA(:, 5, 1,16) = (/ &
+ & 0.10117E+00_JPRB,0.22893E+00_JPRB,0.45719E+00_JPRB,0.68491E+00_JPRB,0.91083E+00_JPRB, &
+ & 0.11348E+01_JPRB,0.13522E+01_JPRB,0.15448E+01_JPRB,0.17423E+01_JPRB /)  
+KA(:, 1, 2,16) = (/ &
+ & 0.12283E+00_JPRB,0.11939E+00_JPRB,0.23586E+00_JPRB,0.35344E+00_JPRB,0.46995E+00_JPRB, &
+ & 0.58562E+00_JPRB,0.69771E+00_JPRB,0.79719E+00_JPRB,0.91456E+00_JPRB /)  
+KA(:, 2, 2,16) = (/ &
+ & 0.12300E+00_JPRB,0.14726E+00_JPRB,0.29424E+00_JPRB,0.44061E+00_JPRB,0.58626E+00_JPRB, &
+ & 0.73031E+00_JPRB,0.87019E+00_JPRB,0.99468E+00_JPRB,0.11413E+01_JPRB /)  
+KA(:, 3, 2,16) = (/ &
+ & 0.12308E+00_JPRB,0.17880E+00_JPRB,0.35729E+00_JPRB,0.53471E+00_JPRB,0.71190E+00_JPRB, &
+ & 0.88678E+00_JPRB,0.10560E+01_JPRB,0.12083E+01_JPRB,0.13858E+01_JPRB /)  
+KA(:, 4, 2,16) = (/ &
+ & 0.12303E+00_JPRB,0.21231E+00_JPRB,0.42408E+00_JPRB,0.63552E+00_JPRB,0.84482E+00_JPRB, &
+ & 0.10530E+01_JPRB,0.12550E+01_JPRB,0.14355E+01_JPRB,0.16461E+01_JPRB /)  
+KA(:, 5, 2,16) = (/ &
+ & 0.12277E+00_JPRB,0.24738E+00_JPRB,0.49418E+00_JPRB,0.74021E+00_JPRB,0.98480E+00_JPRB, &
+ & 0.12263E+01_JPRB,0.14622E+01_JPRB,0.16712E+01_JPRB,0.19192E+01_JPRB /)  
+KA(:, 1, 3,16) = (/ &
+ & 0.14866E+00_JPRB,0.13122E+00_JPRB,0.23281E+00_JPRB,0.34894E+00_JPRB,0.46454E+00_JPRB, &
+ & 0.57840E+00_JPRB,0.68947E+00_JPRB,0.78868E+00_JPRB,0.91936E+00_JPRB /)  
+KA(:, 2, 3,16) = (/ &
+ & 0.14909E+00_JPRB,0.15020E+00_JPRB,0.29535E+00_JPRB,0.44246E+00_JPRB,0.58879E+00_JPRB, &
+ & 0.73298E+00_JPRB,0.87446E+00_JPRB,0.10004E+01_JPRB,0.11652E+01_JPRB /)  
+KA(:, 3, 3,16) = (/ &
+ & 0.14932E+00_JPRB,0.18193E+00_JPRB,0.36339E+00_JPRB,0.54464E+00_JPRB,0.72472E+00_JPRB, &
+ & 0.90302E+00_JPRB,0.10769E+01_JPRB,0.12326E+01_JPRB,0.14351E+01_JPRB /)  
+KA(:, 4, 3,16) = (/ &
+ & 0.14936E+00_JPRB,0.21850E+00_JPRB,0.43638E+00_JPRB,0.65369E+00_JPRB,0.87034E+00_JPRB, &
+ & 0.10842E+01_JPRB,0.12925E+01_JPRB,0.14807E+01_JPRB,0.17238E+01_JPRB /)  
+KA(:, 5, 3,16) = (/ &
+ & 0.14913E+00_JPRB,0.25689E+00_JPRB,0.51319E+00_JPRB,0.76884E+00_JPRB,0.10226E+01_JPRB, &
+ & 0.12750E+01_JPRB,0.15205E+01_JPRB,0.17418E+01_JPRB,0.20260E+01_JPRB /)  
+KA(:, 1, 4,16) = (/ &
+ & 0.17957E+00_JPRB,0.15775E+00_JPRB,0.22276E+00_JPRB,0.33390E+00_JPRB,0.44423E+00_JPRB, &
+ & 0.55367E+00_JPRB,0.66019E+00_JPRB,0.75611E+00_JPRB,0.88680E+00_JPRB /)  
+KA(:, 2, 4,16) = (/ &
+ & 0.18040E+00_JPRB,0.16246E+00_JPRB,0.28812E+00_JPRB,0.43146E+00_JPRB,0.57438E+00_JPRB, &
+ & 0.71573E+00_JPRB,0.85374E+00_JPRB,0.97839E+00_JPRB,0.11468E+01_JPRB /)  
+KA(:, 3, 4,16) = (/ &
+ & 0.18097E+00_JPRB,0.18562E+00_JPRB,0.36044E+00_JPRB,0.53994E+00_JPRB,0.71844E+00_JPRB, &
+ & 0.89550E+00_JPRB,0.10683E+01_JPRB,0.12247E+01_JPRB,0.14347E+01_JPRB /)  
+KA(:, 4, 4,16) = (/ &
+ & 0.18121E+00_JPRB,0.21975E+00_JPRB,0.43861E+00_JPRB,0.65714E+00_JPRB,0.87443E+00_JPRB, &
+ & 0.10900E+01_JPRB,0.13008E+01_JPRB,0.14906E+01_JPRB,0.17458E+01_JPRB /)  
+KA(:, 5, 4,16) = (/ &
+ & 0.18106E+00_JPRB,0.26092E+00_JPRB,0.52133E+00_JPRB,0.78101E+00_JPRB,0.10395E+01_JPRB, &
+ & 0.12958E+01_JPRB,0.15460E+01_JPRB,0.17735E+01_JPRB,0.20757E+01_JPRB /)  
+KA(:, 1, 5,16) = (/ &
+ & 0.21697E+00_JPRB,0.19036E+00_JPRB,0.21215E+00_JPRB,0.31312E+00_JPRB,0.41669E+00_JPRB, &
+ & 0.51939E+00_JPRB,0.61996E+00_JPRB,0.71133E+00_JPRB,0.83486E+00_JPRB /)  
+KA(:, 2, 5,16) = (/ &
+ & 0.21794E+00_JPRB,0.19137E+00_JPRB,0.27611E+00_JPRB,0.41368E+00_JPRB,0.55071E+00_JPRB, &
+ & 0.68646E+00_JPRB,0.81902E+00_JPRB,0.94006E+00_JPRB,0.11028E+01_JPRB /)  
+KA(:, 3, 5,16) = (/ &
+ & 0.21886E+00_JPRB,0.20114E+00_JPRB,0.35159E+00_JPRB,0.52668E+00_JPRB,0.70100E+00_JPRB, &
+ & 0.87403E+00_JPRB,0.10428E+01_JPRB,0.11973E+01_JPRB,0.14036E+01_JPRB /)  
+KA(:, 4, 5,16) = (/ &
+ & 0.21947E+00_JPRB,0.22776E+00_JPRB,0.43385E+00_JPRB,0.64994E+00_JPRB,0.86545E+00_JPRB, &
+ & 0.10790E+01_JPRB,0.12882E+01_JPRB,0.14795E+01_JPRB,0.17328E+01_JPRB /)  
+KA(:, 5, 5,16) = (/ &
+ & 0.21950E+00_JPRB,0.26410E+00_JPRB,0.52266E+00_JPRB,0.78311E+00_JPRB,0.10422E+01_JPRB, &
+ & 0.12993E+01_JPRB,0.15508E+01_JPRB,0.17813E+01_JPRB,0.20867E+01_JPRB /)  
+KA(:, 1, 6,16) = (/ &
+ & 0.26192E+00_JPRB,0.22964E+00_JPRB,0.21396E+00_JPRB,0.28442E+00_JPRB,0.37859E+00_JPRB, &
+ & 0.47209E+00_JPRB,0.56361E+00_JPRB,0.64772E+00_JPRB,0.75904E+00_JPRB /)  
+KA(:, 2, 6,16) = (/ &
+ & 0.26327E+00_JPRB,0.23094E+00_JPRB,0.26427E+00_JPRB,0.38535E+00_JPRB,0.51302E+00_JPRB, &
+ & 0.63961E+00_JPRB,0.76380E+00_JPRB,0.87816E+00_JPRB,0.10282E+01_JPRB /)  
+KA(:, 3, 6,16) = (/ &
+ & 0.26410E+00_JPRB,0.23177E+00_JPRB,0.33446E+00_JPRB,0.50065E+00_JPRB,0.66671E+00_JPRB, &
+ & 0.83097E+00_JPRB,0.99257E+00_JPRB,0.11416E+01_JPRB,0.13361E+01_JPRB /)  
+KA(:, 4, 6,16) = (/ &
+ & 0.26501E+00_JPRB,0.24670E+00_JPRB,0.42047E+00_JPRB,0.62999E+00_JPRB,0.83846E+00_JPRB, &
+ & 0.10456E+01_JPRB,0.12484E+01_JPRB,0.14350E+01_JPRB,0.16802E+01_JPRB /)  
+KA(:, 5, 6,16) = (/ &
+ & 0.26533E+00_JPRB,0.27595E+00_JPRB,0.51477E+00_JPRB,0.77155E+00_JPRB,0.10272E+01_JPRB, &
+ & 0.12802E+01_JPRB,0.15288E+01_JPRB,0.17573E+01_JPRB,0.20585E+01_JPRB /)  
+KA(:, 1, 7,16) = (/ &
+ & 0.31548E+00_JPRB,0.27644E+00_JPRB,0.23749E+00_JPRB,0.26350E+00_JPRB,0.33563E+00_JPRB, &
+ & 0.41860E+00_JPRB,0.50000E+00_JPRB,0.57557E+00_JPRB,0.67307E+00_JPRB /)  
+KA(:, 2, 7,16) = (/ &
+ & 0.31747E+00_JPRB,0.27830E+00_JPRB,0.26813E+00_JPRB,0.35238E+00_JPRB,0.46780E+00_JPRB, &
+ & 0.58337E+00_JPRB,0.69695E+00_JPRB,0.80281E+00_JPRB,0.93825E+00_JPRB /)  
+KA(:, 3, 7,16) = (/ &
+ & 0.31845E+00_JPRB,0.27929E+00_JPRB,0.32577E+00_JPRB,0.46831E+00_JPRB,0.62377E+00_JPRB, &
+ & 0.77768E+00_JPRB,0.92868E+00_JPRB,0.10691E+01_JPRB,0.12510E+01_JPRB /)  
+KA(:, 4, 7,16) = (/ &
+ & 0.31933E+00_JPRB,0.28093E+00_JPRB,0.40219E+00_JPRB,0.60218E+00_JPRB,0.80124E+00_JPRB, &
+ & 0.99953E+00_JPRB,0.11938E+01_JPRB,0.13738E+01_JPRB,0.16072E+01_JPRB /)  
+KA(:, 5, 7,16) = (/ &
+ & 0.31962E+00_JPRB,0.30041E+00_JPRB,0.50060E+00_JPRB,0.75020E+00_JPRB,0.99895E+00_JPRB, &
+ & 0.12457E+01_JPRB,0.14877E+01_JPRB,0.17119E+01_JPRB,0.20030E+01_JPRB /)  
+KA(:, 1, 8,16) = (/ &
+ & 0.37865E+00_JPRB,0.33167E+00_JPRB,0.28471E+00_JPRB,0.26304E+00_JPRB,0.29883E+00_JPRB, &
+ & 0.36478E+00_JPRB,0.43575E+00_JPRB,0.50177E+00_JPRB,0.58698E+00_JPRB /)  
+KA(:, 2, 8,16) = (/ &
+ & 0.38151E+00_JPRB,0.33434E+00_JPRB,0.29226E+00_JPRB,0.33286E+00_JPRB,0.42010E+00_JPRB, &
+ & 0.52397E+00_JPRB,0.62612E+00_JPRB,0.72153E+00_JPRB,0.84257E+00_JPRB /)  
+KA(:, 3, 8,16) = (/ &
+ & 0.38305E+00_JPRB,0.33575E+00_JPRB,0.33335E+00_JPRB,0.43312E+00_JPRB,0.57580E+00_JPRB, &
+ & 0.71815E+00_JPRB,0.85781E+00_JPRB,0.98826E+00_JPRB,0.11549E+01_JPRB /)  
+KA(:, 4, 8,16) = (/ &
+ & 0.38418E+00_JPRB,0.33683E+00_JPRB,0.39821E+00_JPRB,0.56836E+00_JPRB,0.75670E+00_JPRB, &
+ & 0.94382E+00_JPRB,0.11276E+01_JPRB,0.12990E+01_JPRB,0.15179E+01_JPRB /)  
+KA(:, 5, 8,16) = (/ &
+ & 0.38435E+00_JPRB,0.34032E+00_JPRB,0.48169E+00_JPRB,0.72105E+00_JPRB,0.95979E+00_JPRB, &
+ & 0.11976E+01_JPRB,0.14311E+01_JPRB,0.16484E+01_JPRB,0.19256E+01_JPRB /)  
+KA(:, 1, 9,16) = (/ &
+ & 0.45391E+00_JPRB,0.39745E+00_JPRB,0.34100E+00_JPRB,0.28597E+00_JPRB,0.28236E+00_JPRB, &
+ & 0.32683E+00_JPRB,0.39003E+00_JPRB,0.44780E+00_JPRB,0.52646E+00_JPRB /)  
+KA(:, 2, 9,16) = (/ &
+ & 0.45720E+00_JPRB,0.40042E+00_JPRB,0.34369E+00_JPRB,0.33249E+00_JPRB,0.37993E+00_JPRB, &
+ & 0.46180E+00_JPRB,0.55195E+00_JPRB,0.63669E+00_JPRB,0.74252E+00_JPRB /)  
+KA(:, 3, 9,16) = (/ &
+ & 0.45930E+00_JPRB,0.40241E+00_JPRB,0.35995E+00_JPRB,0.41477E+00_JPRB,0.52224E+00_JPRB, &
+ & 0.65162E+00_JPRB,0.77908E+00_JPRB,0.89846E+00_JPRB,0.10481E+01_JPRB /)  
+KA(:, 4, 9,16) = (/ &
+ & 0.46056E+00_JPRB,0.40360E+00_JPRB,0.40974E+00_JPRB,0.52851E+00_JPRB,0.70308E+00_JPRB, &
+ & 0.87703E+00_JPRB,0.10485E+01_JPRB,0.12091E+01_JPRB,0.14102E+01_JPRB /)  
+KA(:, 5, 9,16) = (/ &
+ & 0.46097E+00_JPRB,0.40408E+00_JPRB,0.48083E+00_JPRB,0.68278E+00_JPRB,0.90959E+00_JPRB, &
+ & 0.11347E+01_JPRB,0.13562E+01_JPRB,0.15644E+01_JPRB,0.18239E+01_JPRB /)  
+KA(:, 1,10,16) = (/ &
+ & 0.54348E+00_JPRB,0.47578E+00_JPRB,0.40808E+00_JPRB,0.34039E+00_JPRB,0.29202E+00_JPRB, &
+ & 0.31463E+00_JPRB,0.37530E+00_JPRB,0.43003E+00_JPRB,0.50713E+00_JPRB /)  
+KA(:, 2,10,16) = (/ &
+ & 0.54726E+00_JPRB,0.47923E+00_JPRB,0.41116E+00_JPRB,0.35738E+00_JPRB,0.36873E+00_JPRB, &
+ & 0.42815E+00_JPRB,0.51125E+00_JPRB,0.58827E+00_JPRB,0.68902E+00_JPRB /)  
+KA(:, 3,10,16) = (/ &
+ & 0.54904E+00_JPRB,0.48087E+00_JPRB,0.41270E+00_JPRB,0.42187E+00_JPRB,0.48592E+00_JPRB, &
+ & 0.59834E+00_JPRB,0.71541E+00_JPRB,0.82550E+00_JPRB,0.96166E+00_JPRB /)  
+KA(:, 4,10,16) = (/ &
+ & 0.55066E+00_JPRB,0.48237E+00_JPRB,0.44342E+00_JPRB,0.51829E+00_JPRB,0.65846E+00_JPRB, &
+ & 0.82163E+00_JPRB,0.98259E+00_JPRB,0.11344E+01_JPRB,0.13209E+01_JPRB /)  
+KA(:, 5,10,16) = (/ &
+ & 0.55078E+00_JPRB,0.48256E+00_JPRB,0.50243E+00_JPRB,0.65112E+00_JPRB,0.86662E+00_JPRB, &
+ & 0.10813E+01_JPRB,0.12932E+01_JPRB,0.14933E+01_JPRB,0.17377E+01_JPRB /)  
+KA(:, 1,11,16) = (/ &
+ & 0.65114E+00_JPRB,0.56997E+00_JPRB,0.48880E+00_JPRB,0.40765E+00_JPRB,0.34114E+00_JPRB, &
+ & 0.35299E+00_JPRB,0.42114E+00_JPRB,0.48311E+00_JPRB,0.56879E+00_JPRB /)  
+KA(:, 2,11,16) = (/ &
+ & 0.65409E+00_JPRB,0.57269E+00_JPRB,0.49126E+00_JPRB,0.41893E+00_JPRB,0.41551E+00_JPRB, &
+ & 0.46863E+00_JPRB,0.55986E+00_JPRB,0.64427E+00_JPRB,0.75415E+00_JPRB /)  
+KA(:, 3,11,16) = (/ &
+ & 0.65488E+00_JPRB,0.57345E+00_JPRB,0.49197E+00_JPRB,0.47947E+00_JPRB,0.53169E+00_JPRB, &
+ & 0.64034E+00_JPRB,0.76581E+00_JPRB,0.88450E+00_JPRB,0.10287E+01_JPRB /)  
+KA(:, 4,11,16) = (/ &
+ & 0.65537E+00_JPRB,0.57398E+00_JPRB,0.51344E+00_JPRB,0.57405E+00_JPRB,0.70306E+00_JPRB, &
+ & 0.87735E+00_JPRB,0.10495E+01_JPRB,0.12127E+01_JPRB,0.14094E+01_JPRB /)  
+KA(:, 5,11,16) = (/ &
+ & 0.65395E+00_JPRB,0.57279E+00_JPRB,0.56858E+00_JPRB,0.69997E+00_JPRB,0.92273E+00_JPRB, &
+ & 0.11516E+01_JPRB,0.13780E+01_JPRB,0.15930E+01_JPRB,0.18499E+01_JPRB /)  
+KA(:, 1,12,16) = (/ &
+ & 0.77619E+00_JPRB,0.67938E+00_JPRB,0.58258E+00_JPRB,0.48578E+00_JPRB,0.39872E+00_JPRB, &
+ & 0.39471E+00_JPRB,0.47009E+00_JPRB,0.53992E+00_JPRB,0.63430E+00_JPRB /)  
+KA(:, 2,12,16) = (/ &
+ & 0.77753E+00_JPRB,0.68052E+00_JPRB,0.58367E+00_JPRB,0.49090E+00_JPRB,0.46899E+00_JPRB, &
+ & 0.51194E+00_JPRB,0.61162E+00_JPRB,0.70447E+00_JPRB,0.82357E+00_JPRB /)  
+KA(:, 3,12,16) = (/ &
+ & 0.77638E+00_JPRB,0.67972E+00_JPRB,0.58318E+00_JPRB,0.54530E+00_JPRB,0.58387E+00_JPRB, &
+ & 0.68245E+00_JPRB,0.81638E+00_JPRB,0.94341E+00_JPRB,0.10965E+01_JPRB /)  
+KA(:, 4,12,16) = (/ &
+ & 0.77440E+00_JPRB,0.67810E+00_JPRB,0.59462E+00_JPRB,0.63695E+00_JPRB,0.74739E+00_JPRB, &
+ & 0.93197E+00_JPRB,0.11153E+01_JPRB,0.12903E+01_JPRB,0.14970E+01_JPRB /)  
+KA(:, 5,12,16) = (/ &
+ & 0.77021E+00_JPRB,0.67464E+00_JPRB,0.64357E+00_JPRB,0.75637E+00_JPRB,0.97798E+00_JPRB, &
+ & 0.12207E+01_JPRB,0.14609E+01_JPRB,0.16904E+01_JPRB,0.19598E+01_JPRB /)  
+KA(:, 1,13,16) = (/ &
+ & 0.91895E+00_JPRB,0.80429E+00_JPRB,0.68964E+00_JPRB,0.57498E+00_JPRB,0.46528E+00_JPRB, &
+ & 0.44199E+00_JPRB,0.52028E+00_JPRB,0.59834E+00_JPRB,0.70141E+00_JPRB /)  
+KA(:, 2,13,16) = (/ &
+ & 0.91759E+00_JPRB,0.80320E+00_JPRB,0.68881E+00_JPRB,0.57463E+00_JPRB,0.52956E+00_JPRB, &
+ & 0.55768E+00_JPRB,0.66492E+00_JPRB,0.76644E+00_JPRB,0.89471E+00_JPRB /)  
+KA(:, 3,13,16) = (/ &
+ & 0.91361E+00_JPRB,0.79979E+00_JPRB,0.68598E+00_JPRB,0.61940E+00_JPRB,0.64101E+00_JPRB, &
+ & 0.72712E+00_JPRB,0.86969E+00_JPRB,0.10053E+01_JPRB,0.11679E+01_JPRB /)  
+KA(:, 4,13,16) = (/ &
+ & 0.90733E+00_JPRB,0.79439E+00_JPRB,0.68655E+00_JPRB,0.70603E+00_JPRB,0.79560E+00_JPRB, &
+ & 0.98356E+00_JPRB,0.11773E+01_JPRB,0.13631E+01_JPRB,0.15788E+01_JPRB /)  
+KA(:, 5,13,16) = (/ &
+ & 0.89862E+00_JPRB,0.78697E+00_JPRB,0.72670E+00_JPRB,0.82187E+00_JPRB,0.10292E+01_JPRB, &
+ & 0.12848E+01_JPRB,0.15381E+01_JPRB,0.17818E+01_JPRB,0.20623E+01_JPRB /)  
+  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART11',1,ZHOOK_HANDLE)
+END SUBROUTINE PART11
+
+
+SUBROUTINE PART12
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART12',0,ZHOOK_HANDLE)
+
+
+!     -----------------------------------------------------------------
+!     The array KB contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels < ~100mb and temperatures. The first 
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this pressure 
+!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for
+!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  
+!     The second index, JP, runs from 13 to 59 and refers to the JPth
+!     reference pressure level (see taumol.f for the value of these
+!     pressure levels in mb).  The third index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+!     -----------------------------------------------------------------
+
+KB(:,13, 1) = (/ &
+ & 0.80849E-06_JPRB,0.81362E-06_JPRB,0.81391E-06_JPRB,0.81832E-06_JPRB,0.81000E-06_JPRB /)  
+KB(:,14, 1) = (/ &
+ & 0.62593E-06_JPRB,0.63090E-06_JPRB,0.63158E-06_JPRB,0.62821E-06_JPRB,0.62502E-06_JPRB /)  
+KB(:,15, 1) = (/ &
+ & 0.47825E-06_JPRB,0.47852E-06_JPRB,0.47713E-06_JPRB,0.47688E-06_JPRB,0.47989E-06_JPRB /)  
+KB(:,16, 1) = (/ &
+ & 0.36039E-06_JPRB,0.35905E-06_JPRB,0.36064E-06_JPRB,0.36298E-06_JPRB,0.36860E-06_JPRB /)  
+KB(:,17, 1) = (/ &
+ & 0.27679E-06_JPRB,0.27608E-06_JPRB,0.27742E-06_JPRB,0.28112E-06_JPRB,0.28759E-06_JPRB /)  
+KB(:,18, 1) = (/ &
+ & 0.21771E-06_JPRB,0.21826E-06_JPRB,0.22019E-06_JPRB,0.22429E-06_JPRB,0.22996E-06_JPRB /)  
+KB(:,19, 1) = (/ &
+ & 0.17334E-06_JPRB,0.17441E-06_JPRB,0.17681E-06_JPRB,0.18055E-06_JPRB,0.18537E-06_JPRB /)  
+KB(:,20, 1) = (/ &
+ & 0.13974E-06_JPRB,0.14076E-06_JPRB,0.14326E-06_JPRB,0.14694E-06_JPRB,0.15070E-06_JPRB /)  
+KB(:,21, 1) = (/ &
+ & 0.11289E-06_JPRB,0.11394E-06_JPRB,0.11631E-06_JPRB,0.11963E-06_JPRB,0.12284E-06_JPRB /)  
+KB(:,22, 1) = (/ &
+ & 0.90574E-07_JPRB,0.91914E-07_JPRB,0.94046E-07_JPRB,0.96998E-07_JPRB,0.99841E-07_JPRB /)  
+KB(:,23, 1) = (/ &
+ & 0.72483E-07_JPRB,0.74069E-07_JPRB,0.76186E-07_JPRB,0.78482E-07_JPRB,0.80964E-07_JPRB /)  
+KB(:,24, 1) = (/ &
+ & 0.57463E-07_JPRB,0.59130E-07_JPRB,0.60802E-07_JPRB,0.62903E-07_JPRB,0.65218E-07_JPRB /)  
+KB(:,25, 1) = (/ &
+ & 0.45767E-07_JPRB,0.47184E-07_JPRB,0.48696E-07_JPRB,0.50494E-07_JPRB,0.52527E-07_JPRB /)  
+KB(:,26, 1) = (/ &
+ & 0.36636E-07_JPRB,0.37794E-07_JPRB,0.39217E-07_JPRB,0.40768E-07_JPRB,0.42465E-07_JPRB /)  
+KB(:,27, 1) = (/ &
+ & 0.29173E-07_JPRB,0.30183E-07_JPRB,0.31469E-07_JPRB,0.32834E-07_JPRB,0.34213E-07_JPRB /)  
+KB(:,28, 1) = (/ &
+ & 0.23225E-07_JPRB,0.24137E-07_JPRB,0.25167E-07_JPRB,0.26378E-07_JPRB,0.27534E-07_JPRB /)  
+KB(:,29, 1) = (/ &
+ & 0.18675E-07_JPRB,0.19472E-07_JPRB,0.20340E-07_JPRB,0.21340E-07_JPRB,0.22286E-07_JPRB /)  
+KB(:,30, 1) = (/ &
+ & 0.15020E-07_JPRB,0.15690E-07_JPRB,0.16468E-07_JPRB,0.17258E-07_JPRB,0.18060E-07_JPRB /)  
+KB(:,31, 1) = (/ &
+ & 0.12149E-07_JPRB,0.12728E-07_JPRB,0.13375E-07_JPRB,0.14035E-07_JPRB,0.14711E-07_JPRB /)  
+KB(:,32, 1) = (/ &
+ & 0.98596E-08_JPRB,0.10344E-07_JPRB,0.10879E-07_JPRB,0.11427E-07_JPRB,0.12003E-07_JPRB /)  
+KB(:,33, 1) = (/ &
+ & 0.80127E-08_JPRB,0.84199E-08_JPRB,0.88610E-08_JPRB,0.93188E-08_JPRB,0.98102E-08_JPRB /)  
+KB(:,34, 1) = (/ &
+ & 0.65473E-08_JPRB,0.68850E-08_JPRB,0.72470E-08_JPRB,0.76379E-08_JPRB,0.80329E-08_JPRB /)  
+KB(:,35, 1) = (/ &
+ & 0.53107E-08_JPRB,0.55930E-08_JPRB,0.58984E-08_JPRB,0.62161E-08_JPRB,0.65511E-08_JPRB /)  
+KB(:,36, 1) = (/ &
+ & 0.42749E-08_JPRB,0.45072E-08_JPRB,0.47592E-08_JPRB,0.50244E-08_JPRB,0.53034E-08_JPRB /)  
+KB(:,37, 1) = (/ &
+ & 0.34593E-08_JPRB,0.36479E-08_JPRB,0.38557E-08_JPRB,0.40714E-08_JPRB,0.43031E-08_JPRB /)  
+KB(:,38, 1) = (/ &
+ & 0.27981E-08_JPRB,0.29525E-08_JPRB,0.31212E-08_JPRB,0.32984E-08_JPRB,0.34890E-08_JPRB /)  
+KB(:,39, 1) = (/ &
+ & 0.22616E-08_JPRB,0.23879E-08_JPRB,0.25266E-08_JPRB,0.26716E-08_JPRB,0.28295E-08_JPRB /)  
+KB(:,40, 1) = (/ &
+ & 0.18232E-08_JPRB,0.19245E-08_JPRB,0.20362E-08_JPRB,0.21554E-08_JPRB,0.22831E-08_JPRB /)  
+KB(:,41, 1) = (/ &
+ & 0.14679E-08_JPRB,0.15511E-08_JPRB,0.16402E-08_JPRB,0.17376E-08_JPRB,0.18413E-08_JPRB /)  
+KB(:,42, 1) = (/ &
+ & 0.11828E-08_JPRB,0.12488E-08_JPRB,0.13200E-08_JPRB,0.14008E-08_JPRB,0.14841E-08_JPRB /)  
+KB(:,43, 1) = (/ &
+ & 0.94970E-09_JPRB,0.10028E-08_JPRB,0.10610E-08_JPRB,0.11254E-08_JPRB,0.11933E-08_JPRB /)  
+KB(:,44, 1) = (/ &
+ & 0.76210E-09_JPRB,0.80401E-09_JPRB,0.85098E-09_JPRB,0.90203E-09_JPRB,0.95794E-09_JPRB /)  
+KB(:,45, 1) = (/ &
+ & 0.61242E-09_JPRB,0.64471E-09_JPRB,0.68205E-09_JPRB,0.72336E-09_JPRB,0.76846E-09_JPRB /)  
+KB(:,46, 1) = (/ &
+ & 0.49214E-09_JPRB,0.51642E-09_JPRB,0.54633E-09_JPRB,0.57916E-09_JPRB,0.61506E-09_JPRB /)  
+KB(:,47, 1) = (/ &
+ & 0.39552E-09_JPRB,0.41343E-09_JPRB,0.43658E-09_JPRB,0.46266E-09_JPRB,0.49121E-09_JPRB /)  
+KB(:,48, 1) = (/ &
+ & 0.31773E-09_JPRB,0.33161E-09_JPRB,0.34878E-09_JPRB,0.36970E-09_JPRB,0.39231E-09_JPRB /)  
+KB(:,49, 1) = (/ &
+ & 0.25526E-09_JPRB,0.26613E-09_JPRB,0.27906E-09_JPRB,0.29510E-09_JPRB,0.31346E-09_JPRB /)  
+KB(:,50, 1) = (/ &
+ & 0.20571E-09_JPRB,0.21419E-09_JPRB,0.22379E-09_JPRB,0.23622E-09_JPRB,0.25076E-09_JPRB /)  
+KB(:,51, 1) = (/ &
+ & 0.16573E-09_JPRB,0.17251E-09_JPRB,0.18002E-09_JPRB,0.18925E-09_JPRB,0.20074E-09_JPRB /)  
+KB(:,52, 1) = (/ &
+ & 0.13312E-09_JPRB,0.13888E-09_JPRB,0.14480E-09_JPRB,0.15170E-09_JPRB,0.16067E-09_JPRB /)  
+KB(:,53, 1) = (/ &
+ & 0.10717E-09_JPRB,0.11200E-09_JPRB,0.11653E-09_JPRB,0.12187E-09_JPRB,0.12864E-09_JPRB /)  
+KB(:,54, 1) = (/ &
+ & 0.85395E-10_JPRB,0.90190E-10_JPRB,0.93978E-10_JPRB,0.98115E-10_JPRB,0.10324E-09_JPRB /)  
+KB(:,55, 1) = (/ &
+ & 0.67933E-10_JPRB,0.72682E-10_JPRB,0.75857E-10_JPRB,0.79079E-10_JPRB,0.82942E-10_JPRB /)  
+KB(:,56, 1) = (/ &
+ & 0.53572E-10_JPRB,0.58095E-10_JPRB,0.61231E-10_JPRB,0.63738E-10_JPRB,0.66738E-10_JPRB /)  
+KB(:,57, 1) = (/ &
+ & 0.41729E-10_JPRB,0.46380E-10_JPRB,0.49357E-10_JPRB,0.51409E-10_JPRB,0.53743E-10_JPRB /)  
+KB(:,58, 1) = (/ &
+ & 0.32319E-10_JPRB,0.36737E-10_JPRB,0.39572E-10_JPRB,0.41487E-10_JPRB,0.43327E-10_JPRB /)  
+KB(:,59, 1) = (/ &
+ & 0.25820E-10_JPRB,0.29541E-10_JPRB,0.32107E-10_JPRB,0.33762E-10_JPRB,0.35250E-10_JPRB /)  
+KB(:,13, 2) = (/ &
+ & 0.93809E-05_JPRB,0.10536E-04_JPRB,0.11777E-04_JPRB,0.13098E-04_JPRB,0.14486E-04_JPRB /)  
+KB(:,14, 2) = (/ &
+ & 0.77050E-05_JPRB,0.86520E-05_JPRB,0.96745E-05_JPRB,0.10759E-04_JPRB,0.11891E-04_JPRB /)  
+KB(:,15, 2) = (/ &
+ & 0.63112E-05_JPRB,0.70914E-05_JPRB,0.79320E-05_JPRB,0.88179E-05_JPRB,0.97344E-05_JPRB /)  
+KB(:,16, 2) = (/ &
+ & 0.51672E-05_JPRB,0.58172E-05_JPRB,0.64961E-05_JPRB,0.72133E-05_JPRB,0.79595E-05_JPRB /)  
+KB(:,17, 2) = (/ &
+ & 0.42470E-05_JPRB,0.47817E-05_JPRB,0.53396E-05_JPRB,0.59229E-05_JPRB,0.65385E-05_JPRB /)  
+KB(:,18, 2) = (/ &
+ & 0.35105E-05_JPRB,0.39513E-05_JPRB,0.44042E-05_JPRB,0.48865E-05_JPRB,0.53983E-05_JPRB /)  
+KB(:,19, 2) = (/ &
+ & 0.29057E-05_JPRB,0.32680E-05_JPRB,0.36409E-05_JPRB,0.40419E-05_JPRB,0.44646E-05_JPRB /)  
+KB(:,20, 2) = (/ &
+ & 0.24132E-05_JPRB,0.27111E-05_JPRB,0.30192E-05_JPRB,0.33498E-05_JPRB,0.36985E-05_JPRB /)  
+KB(:,21, 2) = (/ &
+ & 0.20041E-05_JPRB,0.22484E-05_JPRB,0.25052E-05_JPRB,0.27770E-05_JPRB,0.30661E-05_JPRB /)  
+KB(:,22, 2) = (/ &
+ & 0.16762E-05_JPRB,0.18775E-05_JPRB,0.20900E-05_JPRB,0.23158E-05_JPRB,0.25543E-05_JPRB /)  
+KB(:,23, 2) = (/ &
+ & 0.14013E-05_JPRB,0.15665E-05_JPRB,0.17433E-05_JPRB,0.19308E-05_JPRB,0.21290E-05_JPRB /)  
+KB(:,24, 2) = (/ &
+ & 0.11680E-05_JPRB,0.13039E-05_JPRB,0.14515E-05_JPRB,0.16085E-05_JPRB,0.17733E-05_JPRB /)  
+KB(:,25, 2) = (/ &
+ & 0.97491E-06_JPRB,0.10886E-05_JPRB,0.12114E-05_JPRB,0.13428E-05_JPRB,0.14806E-05_JPRB /)  
+KB(:,26, 2) = (/ &
+ & 0.81608E-06_JPRB,0.91198E-06_JPRB,0.10148E-05_JPRB,0.11244E-05_JPRB,0.12392E-05_JPRB /)  
+KB(:,27, 2) = (/ &
+ & 0.68407E-06_JPRB,0.76432E-06_JPRB,0.85048E-06_JPRB,0.94210E-06_JPRB,0.10393E-05_JPRB /)  
+KB(:,28, 2) = (/ &
+ & 0.57340E-06_JPRB,0.64071E-06_JPRB,0.71311E-06_JPRB,0.78988E-06_JPRB,0.87304E-06_JPRB /)  
+KB(:,29, 2) = (/ &
+ & 0.48234E-06_JPRB,0.53886E-06_JPRB,0.59992E-06_JPRB,0.66557E-06_JPRB,0.73565E-06_JPRB /)  
+KB(:,30, 2) = (/ &
+ & 0.40628E-06_JPRB,0.45384E-06_JPRB,0.50638E-06_JPRB,0.56175E-06_JPRB,0.62086E-06_JPRB /)  
+KB(:,31, 2) = (/ &
+ & 0.34276E-06_JPRB,0.38409E-06_JPRB,0.42817E-06_JPRB,0.47551E-06_JPRB,0.52508E-06_JPRB /)  
+KB(:,32, 2) = (/ &
+ & 0.29024E-06_JPRB,0.32548E-06_JPRB,0.36291E-06_JPRB,0.40263E-06_JPRB,0.44423E-06_JPRB /)  
+KB(:,33, 2) = (/ &
+ & 0.24623E-06_JPRB,0.27596E-06_JPRB,0.30748E-06_JPRB,0.34104E-06_JPRB,0.37571E-06_JPRB /)  
+KB(:,34, 2) = (/ &
+ & 0.20814E-06_JPRB,0.23318E-06_JPRB,0.25975E-06_JPRB,0.28746E-06_JPRB,0.31674E-06_JPRB /)  
+KB(:,35, 2) = (/ &
+ & 0.17399E-06_JPRB,0.19476E-06_JPRB,0.21698E-06_JPRB,0.24021E-06_JPRB,0.26463E-06_JPRB /)  
+KB(:,36, 2) = (/ &
+ & 0.14352E-06_JPRB,0.16079E-06_JPRB,0.17920E-06_JPRB,0.19838E-06_JPRB,0.21852E-06_JPRB /)  
+KB(:,37, 2) = (/ &
+ & 0.11644E-06_JPRB,0.13061E-06_JPRB,0.14569E-06_JPRB,0.16148E-06_JPRB,0.17794E-06_JPRB /)  
+KB(:,38, 2) = (/ &
+ & 0.94327E-07_JPRB,0.10597E-06_JPRB,0.11827E-06_JPRB,0.13121E-06_JPRB,0.14471E-06_JPRB /)  
+KB(:,39, 2) = (/ &
+ & 0.76386E-07_JPRB,0.85932E-07_JPRB,0.96004E-07_JPRB,0.10675E-06_JPRB,0.11785E-06_JPRB /)  
+KB(:,40, 2) = (/ &
+ & 0.61093E-07_JPRB,0.68856E-07_JPRB,0.77088E-07_JPRB,0.85831E-07_JPRB,0.94878E-07_JPRB /)  
+KB(:,41, 2) = (/ &
+ & 0.48781E-07_JPRB,0.55058E-07_JPRB,0.61725E-07_JPRB,0.68852E-07_JPRB,0.76234E-07_JPRB /)  
+KB(:,42, 2) = (/ &
+ & 0.38909E-07_JPRB,0.43987E-07_JPRB,0.49391E-07_JPRB,0.55161E-07_JPRB,0.61197E-07_JPRB /)  
+KB(:,43, 2) = (/ &
+ & 0.30779E-07_JPRB,0.34866E-07_JPRB,0.39222E-07_JPRB,0.43870E-07_JPRB,0.48785E-07_JPRB /)  
+KB(:,44, 2) = (/ &
+ & 0.24249E-07_JPRB,0.27514E-07_JPRB,0.31014E-07_JPRB,0.34774E-07_JPRB,0.38772E-07_JPRB /)  
+KB(:,45, 2) = (/ &
+ & 0.19076E-07_JPRB,0.21693E-07_JPRB,0.24514E-07_JPRB,0.27522E-07_JPRB,0.30756E-07_JPRB /)  
+KB(:,46, 2) = (/ &
+ & 0.14949E-07_JPRB,0.17046E-07_JPRB,0.19303E-07_JPRB,0.21721E-07_JPRB,0.24320E-07_JPRB /)  
+KB(:,47, 2) = (/ &
+ & 0.11627E-07_JPRB,0.13294E-07_JPRB,0.15102E-07_JPRB,0.17040E-07_JPRB,0.19115E-07_JPRB /)  
+KB(:,48, 2) = (/ &
+ & 0.90208E-08_JPRB,0.10359E-07_JPRB,0.11803E-07_JPRB,0.13349E-07_JPRB,0.15003E-07_JPRB /)  
+KB(:,49, 2) = (/ &
+ & 0.69979E-08_JPRB,0.80625E-08_JPRB,0.92075E-08_JPRB,0.10445E-07_JPRB,0.11768E-07_JPRB /)  
+KB(:,50, 2) = (/ &
+ & 0.54507E-08_JPRB,0.62777E-08_JPRB,0.72004E-08_JPRB,0.81899E-08_JPRB,0.92488E-08_JPRB /)  
+KB(:,51, 2) = (/ &
+ & 0.42541E-08_JPRB,0.48933E-08_JPRB,0.56304E-08_JPRB,0.64214E-08_JPRB,0.72725E-08_JPRB /)  
+KB(:,52, 2) = (/ &
+ & 0.33161E-08_JPRB,0.38121E-08_JPRB,0.43976E-08_JPRB,0.50301E-08_JPRB,0.57140E-08_JPRB /)  
+KB(:,53, 2) = (/ &
+ & 0.25817E-08_JPRB,0.29691E-08_JPRB,0.34291E-08_JPRB,0.39368E-08_JPRB,0.44836E-08_JPRB /)  
+KB(:,54, 2) = (/ &
+ & 0.20203E-08_JPRB,0.23228E-08_JPRB,0.26823E-08_JPRB,0.30900E-08_JPRB,0.35285E-08_JPRB /)  
+KB(:,55, 2) = (/ &
+ & 0.15833E-08_JPRB,0.18196E-08_JPRB,0.21023E-08_JPRB,0.24276E-08_JPRB,0.27787E-08_JPRB /)  
+KB(:,56, 2) = (/ &
+ & 0.12403E-08_JPRB,0.14250E-08_JPRB,0.16461E-08_JPRB,0.19045E-08_JPRB,0.21855E-08_JPRB /)  
+KB(:,57, 2) = (/ &
+ & 0.97249E-09_JPRB,0.11164E-08_JPRB,0.12881E-08_JPRB,0.14923E-08_JPRB,0.17175E-08_JPRB /)  
+KB(:,58, 2) = (/ &
+ & 0.76431E-09_JPRB,0.87699E-09_JPRB,0.10108E-08_JPRB,0.11709E-08_JPRB,0.13516E-08_JPRB /)  
+KB(:,59, 2) = (/ &
+ & 0.61553E-09_JPRB,0.70649E-09_JPRB,0.81463E-09_JPRB,0.94315E-09_JPRB,0.10907E-08_JPRB /)  
+KB(:,13, 3) = (/ &
+ & 0.37708E-04_JPRB,0.43942E-04_JPRB,0.50586E-04_JPRB,0.57656E-04_JPRB,0.65139E-04_JPRB /)  
+KB(:,14, 3) = (/ &
+ & 0.31694E-04_JPRB,0.36862E-04_JPRB,0.42350E-04_JPRB,0.48197E-04_JPRB,0.54341E-04_JPRB /)  
+KB(:,15, 3) = (/ &
+ & 0.26564E-04_JPRB,0.30824E-04_JPRB,0.35372E-04_JPRB,0.40180E-04_JPRB,0.45231E-04_JPRB /)  
+KB(:,16, 3) = (/ &
+ & 0.22232E-04_JPRB,0.25740E-04_JPRB,0.29512E-04_JPRB,0.33447E-04_JPRB,0.37588E-04_JPRB /)  
+KB(:,17, 3) = (/ &
+ & 0.18578E-04_JPRB,0.21467E-04_JPRB,0.24582E-04_JPRB,0.27832E-04_JPRB,0.31221E-04_JPRB /)  
+KB(:,18, 3) = (/ &
+ & 0.15530E-04_JPRB,0.17922E-04_JPRB,0.20498E-04_JPRB,0.23170E-04_JPRB,0.25973E-04_JPRB /)  
+KB(:,19, 3) = (/ &
+ & 0.12972E-04_JPRB,0.14952E-04_JPRB,0.17059E-04_JPRB,0.19270E-04_JPRB,0.21580E-04_JPRB /)  
+KB(:,20, 3) = (/ &
+ & 0.10858E-04_JPRB,0.12498E-04_JPRB,0.14228E-04_JPRB,0.16061E-04_JPRB,0.17958E-04_JPRB /)  
+KB(:,21, 3) = (/ &
+ & 0.90819E-05_JPRB,0.10446E-04_JPRB,0.11880E-04_JPRB,0.13394E-04_JPRB,0.14951E-04_JPRB /)  
+KB(:,22, 3) = (/ &
+ & 0.76648E-05_JPRB,0.87979E-05_JPRB,0.99931E-05_JPRB,0.11255E-04_JPRB,0.12542E-04_JPRB /)  
+KB(:,23, 3) = (/ &
+ & 0.64634E-05_JPRB,0.74140E-05_JPRB,0.84086E-05_JPRB,0.94546E-05_JPRB,0.10527E-04_JPRB /)  
+KB(:,24, 3) = (/ &
+ & 0.54523E-05_JPRB,0.62464E-05_JPRB,0.70809E-05_JPRB,0.79508E-05_JPRB,0.88446E-05_JPRB /)  
+KB(:,25, 3) = (/ &
+ & 0.46110E-05_JPRB,0.52716E-05_JPRB,0.59693E-05_JPRB,0.66904E-05_JPRB,0.74322E-05_JPRB /)  
+KB(:,26, 3) = (/ &
+ & 0.39134E-05_JPRB,0.44620E-05_JPRB,0.50425E-05_JPRB,0.56439E-05_JPRB,0.62577E-05_JPRB /)  
+KB(:,27, 3) = (/ &
+ & 0.33208E-05_JPRB,0.37777E-05_JPRB,0.42629E-05_JPRB,0.47607E-05_JPRB,0.52714E-05_JPRB /)  
+KB(:,28, 3) = (/ &
+ & 0.28177E-05_JPRB,0.32008E-05_JPRB,0.36031E-05_JPRB,0.40187E-05_JPRB,0.44358E-05_JPRB /)  
+KB(:,29, 3) = (/ &
+ & 0.23932E-05_JPRB,0.27158E-05_JPRB,0.30516E-05_JPRB,0.33945E-05_JPRB,0.37416E-05_JPRB /)  
+KB(:,30, 3) = (/ &
+ & 0.20340E-05_JPRB,0.23035E-05_JPRB,0.25827E-05_JPRB,0.28672E-05_JPRB,0.31559E-05_JPRB /)  
+KB(:,31, 3) = (/ &
+ & 0.17308E-05_JPRB,0.19547E-05_JPRB,0.21869E-05_JPRB,0.24243E-05_JPRB,0.26649E-05_JPRB /)  
+KB(:,32, 3) = (/ &
+ & 0.14734E-05_JPRB,0.16593E-05_JPRB,0.18536E-05_JPRB,0.20518E-05_JPRB,0.22514E-05_JPRB /)  
+KB(:,33, 3) = (/ &
+ & 0.12538E-05_JPRB,0.14097E-05_JPRB,0.15718E-05_JPRB,0.17369E-05_JPRB,0.19013E-05_JPRB /)  
+KB(:,34, 3) = (/ &
+ & 0.10626E-05_JPRB,0.11932E-05_JPRB,0.13290E-05_JPRB,0.14662E-05_JPRB,0.16025E-05_JPRB /)  
+KB(:,35, 3) = (/ &
+ & 0.88990E-06_JPRB,0.99878E-06_JPRB,0.11122E-05_JPRB,0.12266E-05_JPRB,0.13395E-05_JPRB /)  
+KB(:,36, 3) = (/ &
+ & 0.73535E-06_JPRB,0.82690E-06_JPRB,0.92099E-06_JPRB,0.10159E-05_JPRB,0.11099E-05_JPRB /)  
+KB(:,37, 3) = (/ &
+ & 0.59728E-06_JPRB,0.67301E-06_JPRB,0.75127E-06_JPRB,0.83021E-06_JPRB,0.90845E-06_JPRB /)  
+KB(:,38, 3) = (/ &
+ & 0.48484E-06_JPRB,0.54737E-06_JPRB,0.61229E-06_JPRB,0.67762E-06_JPRB,0.74258E-06_JPRB /)  
+KB(:,39, 3) = (/ &
+ & 0.39347E-06_JPRB,0.44485E-06_JPRB,0.49886E-06_JPRB,0.55290E-06_JPRB,0.60674E-06_JPRB /)  
+KB(:,40, 3) = (/ &
+ & 0.31488E-06_JPRB,0.35703E-06_JPRB,0.40148E-06_JPRB,0.44640E-06_JPRB,0.49091E-06_JPRB /)  
+KB(:,41, 3) = (/ &
+ & 0.25130E-06_JPRB,0.28561E-06_JPRB,0.32224E-06_JPRB,0.35953E-06_JPRB,0.39618E-06_JPRB /)  
+KB(:,42, 3) = (/ &
+ & 0.20030E-06_JPRB,0.22840E-06_JPRB,0.25834E-06_JPRB,0.28930E-06_JPRB,0.31965E-06_JPRB /)  
+KB(:,43, 3) = (/ &
+ & 0.15807E-06_JPRB,0.18109E-06_JPRB,0.20542E-06_JPRB,0.23094E-06_JPRB,0.25635E-06_JPRB /)  
+KB(:,44, 3) = (/ &
+ & 0.12418E-06_JPRB,0.14282E-06_JPRB,0.16261E-06_JPRB,0.18364E-06_JPRB,0.20465E-06_JPRB /)  
+KB(:,45, 3) = (/ &
+ & 0.97383E-07_JPRB,0.11245E-06_JPRB,0.12855E-06_JPRB,0.14572E-06_JPRB,0.16307E-06_JPRB /)  
+KB(:,46, 3) = (/ &
+ & 0.76015E-07_JPRB,0.88067E-07_JPRB,0.10120E-06_JPRB,0.11510E-06_JPRB,0.12935E-06_JPRB /)  
+KB(:,47, 3) = (/ &
+ & 0.58813E-07_JPRB,0.68493E-07_JPRB,0.79102E-07_JPRB,0.90273E-07_JPRB,0.10200E-06_JPRB /)  
+KB(:,48, 3) = (/ &
+ & 0.45440E-07_JPRB,0.53144E-07_JPRB,0.61597E-07_JPRB,0.70639E-07_JPRB,0.80255E-07_JPRB /)  
+KB(:,49, 3) = (/ &
+ & 0.35015E-07_JPRB,0.41136E-07_JPRB,0.47869E-07_JPRB,0.55216E-07_JPRB,0.62994E-07_JPRB /)  
+KB(:,50, 3) = (/ &
+ & 0.27056E-07_JPRB,0.31910E-07_JPRB,0.37267E-07_JPRB,0.43210E-07_JPRB,0.49522E-07_JPRB /)  
+KB(:,51, 3) = (/ &
+ & 0.20908E-07_JPRB,0.24756E-07_JPRB,0.29044E-07_JPRB,0.33791E-07_JPRB,0.38904E-07_JPRB /)  
+KB(:,52, 3) = (/ &
+ & 0.16131E-07_JPRB,0.19181E-07_JPRB,0.22589E-07_JPRB,0.26378E-07_JPRB,0.30504E-07_JPRB /)  
+KB(:,53, 3) = (/ &
+ & 0.12418E-07_JPRB,0.14835E-07_JPRB,0.17537E-07_JPRB,0.20547E-07_JPRB,0.23860E-07_JPRB /)  
+KB(:,54, 3) = (/ &
+ & 0.95994E-08_JPRB,0.11514E-07_JPRB,0.13662E-07_JPRB,0.16065E-07_JPRB,0.18717E-07_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART12',1,ZHOOK_HANDLE)
+END SUBROUTINE PART12
+
+
+SUBROUTINE PART13
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART13',0,ZHOOK_HANDLE)
+
+
+KB(:,55, 3) = (/ &
+ & 0.74239E-08_JPRB,0.89453E-08_JPRB,0.10656E-07_JPRB,0.12569E-07_JPRB,0.14693E-07_JPRB /)  
+KB(:,56, 3) = (/ &
+ & 0.57300E-08_JPRB,0.69441E-08_JPRB,0.83030E-08_JPRB,0.98193E-08_JPRB,0.11523E-07_JPRB /)  
+KB(:,57, 3) = (/ &
+ & 0.44152E-08_JPRB,0.53811E-08_JPRB,0.64581E-08_JPRB,0.76610E-08_JPRB,0.90201E-08_JPRB /)  
+KB(:,58, 3) = (/ &
+ & 0.34072E-08_JPRB,0.41708E-08_JPRB,0.50297E-08_JPRB,0.59876E-08_JPRB,0.70684E-08_JPRB /)  
+KB(:,59, 3) = (/ &
+ & 0.27302E-08_JPRB,0.33492E-08_JPRB,0.40481E-08_JPRB,0.48266E-08_JPRB,0.57046E-08_JPRB /)  
+KB(:,13, 4) = (/ &
+ & 0.12015E-03_JPRB,0.13920E-03_JPRB,0.15937E-03_JPRB,0.18001E-03_JPRB,0.19929E-03_JPRB /)  
+KB(:,14, 4) = (/ &
+ & 0.10256E-03_JPRB,0.11883E-03_JPRB,0.13587E-03_JPRB,0.15259E-03_JPRB,0.16812E-03_JPRB /)  
+KB(:,15, 4) = (/ &
+ & 0.87203E-04_JPRB,0.10099E-03_JPRB,0.11498E-03_JPRB,0.12847E-03_JPRB,0.14114E-03_JPRB /)  
+KB(:,16, 4) = (/ &
+ & 0.73859E-04_JPRB,0.85304E-04_JPRB,0.96816E-04_JPRB,0.10774E-03_JPRB,0.11805E-03_JPRB /)  
+KB(:,17, 4) = (/ &
+ & 0.62334E-04_JPRB,0.71786E-04_JPRB,0.81225E-04_JPRB,0.90091E-04_JPRB,0.98454E-04_JPRB /)  
+KB(:,18, 4) = (/ &
+ & 0.52581E-04_JPRB,0.60344E-04_JPRB,0.68018E-04_JPRB,0.75237E-04_JPRB,0.81903E-04_JPRB /)  
+KB(:,19, 4) = (/ &
+ & 0.44197E-04_JPRB,0.50573E-04_JPRB,0.56840E-04_JPRB,0.62656E-04_JPRB,0.67968E-04_JPRB /)  
+KB(:,20, 4) = (/ &
+ & 0.37151E-04_JPRB,0.42384E-04_JPRB,0.47494E-04_JPRB,0.52193E-04_JPRB,0.56467E-04_JPRB /)  
+KB(:,21, 4) = (/ &
+ & 0.31193E-04_JPRB,0.35480E-04_JPRB,0.39600E-04_JPRB,0.43427E-04_JPRB,0.46870E-04_JPRB /)  
+KB(:,22, 4) = (/ &
+ & 0.26374E-04_JPRB,0.29925E-04_JPRB,0.33224E-04_JPRB,0.36261E-04_JPRB,0.39040E-04_JPRB /)  
+KB(:,23, 4) = (/ &
+ & 0.22315E-04_JPRB,0.25198E-04_JPRB,0.27833E-04_JPRB,0.30290E-04_JPRB,0.32509E-04_JPRB /)  
+KB(:,24, 4) = (/ &
+ & 0.18883E-04_JPRB,0.21184E-04_JPRB,0.23291E-04_JPRB,0.25268E-04_JPRB,0.27046E-04_JPRB /)  
+KB(:,25, 4) = (/ &
+ & 0.15977E-04_JPRB,0.17808E-04_JPRB,0.19529E-04_JPRB,0.21106E-04_JPRB,0.22533E-04_JPRB /)  
+KB(:,26, 4) = (/ &
+ & 0.13524E-04_JPRB,0.14996E-04_JPRB,0.16391E-04_JPRB,0.17658E-04_JPRB,0.18796E-04_JPRB /)  
+KB(:,27, 4) = (/ &
+ & 0.11433E-04_JPRB,0.12631E-04_JPRB,0.13757E-04_JPRB,0.14769E-04_JPRB,0.15677E-04_JPRB /)  
+KB(:,28, 4) = (/ &
+ & 0.96558E-05_JPRB,0.10640E-04_JPRB,0.11537E-04_JPRB,0.12357E-04_JPRB,0.13086E-04_JPRB /)  
+KB(:,29, 4) = (/ &
+ & 0.81632E-05_JPRB,0.89560E-05_JPRB,0.96801E-05_JPRB,0.10339E-04_JPRB,0.10919E-04_JPRB /)  
+KB(:,30, 4) = (/ &
+ & 0.68972E-05_JPRB,0.75321E-05_JPRB,0.81189E-05_JPRB,0.86418E-05_JPRB,0.91120E-05_JPRB /)  
+KB(:,31, 4) = (/ &
+ & 0.58255E-05_JPRB,0.63427E-05_JPRB,0.68115E-05_JPRB,0.72291E-05_JPRB,0.76088E-05_JPRB /)  
+KB(:,32, 4) = (/ &
+ & 0.49235E-05_JPRB,0.53404E-05_JPRB,0.57128E-05_JPRB,0.60450E-05_JPRB,0.63540E-05_JPRB /)  
+KB(:,33, 4) = (/ &
+ & 0.41602E-05_JPRB,0.44904E-05_JPRB,0.47873E-05_JPRB,0.50567E-05_JPRB,0.53085E-05_JPRB /)  
+KB(:,34, 4) = (/ &
+ & 0.34993E-05_JPRB,0.37640E-05_JPRB,0.40033E-05_JPRB,0.42217E-05_JPRB,0.44321E-05_JPRB /)  
+KB(:,35, 4) = (/ &
+ & 0.29168E-05_JPRB,0.31331E-05_JPRB,0.33264E-05_JPRB,0.35072E-05_JPRB,0.36808E-05_JPRB /)  
+KB(:,36, 4) = (/ &
+ & 0.24105E-05_JPRB,0.25863E-05_JPRB,0.27459E-05_JPRB,0.28969E-05_JPRB,0.30433E-05_JPRB /)  
+KB(:,37, 4) = (/ &
+ & 0.19699E-05_JPRB,0.21167E-05_JPRB,0.22499E-05_JPRB,0.23751E-05_JPRB,0.24984E-05_JPRB /)  
+KB(:,38, 4) = (/ &
+ & 0.16085E-05_JPRB,0.17316E-05_JPRB,0.18431E-05_JPRB,0.19482E-05_JPRB,0.20520E-05_JPRB /)  
+KB(:,39, 4) = (/ &
+ & 0.13140E-05_JPRB,0.14172E-05_JPRB,0.15102E-05_JPRB,0.15989E-05_JPRB,0.16862E-05_JPRB /)  
+KB(:,40, 4) = (/ &
+ & 0.10643E-05_JPRB,0.11518E-05_JPRB,0.12300E-05_JPRB,0.13052E-05_JPRB,0.13789E-05_JPRB /)  
+KB(:,41, 4) = (/ &
+ & 0.86103E-06_JPRB,0.93494E-06_JPRB,0.10013E-05_JPRB,0.10648E-05_JPRB,0.11275E-05_JPRB /)  
+KB(:,42, 4) = (/ &
+ & 0.69566E-06_JPRB,0.75803E-06_JPRB,0.81468E-06_JPRB,0.86817E-06_JPRB,0.92113E-06_JPRB /)  
+KB(:,43, 4) = (/ &
+ & 0.55856E-06_JPRB,0.61135E-06_JPRB,0.65992E-06_JPRB,0.70501E-06_JPRB,0.74915E-06_JPRB /)  
+KB(:,44, 4) = (/ &
+ & 0.44644E-06_JPRB,0.49113E-06_JPRB,0.53284E-06_JPRB,0.57066E-06_JPRB,0.60776E-06_JPRB /)  
+KB(:,45, 4) = (/ &
+ & 0.35638E-06_JPRB,0.39386E-06_JPRB,0.42947E-06_JPRB,0.46192E-06_JPRB,0.49295E-06_JPRB /)  
+KB(:,46, 4) = (/ &
+ & 0.28317E-06_JPRB,0.31490E-06_JPRB,0.34503E-06_JPRB,0.37276E-06_JPRB,0.39894E-06_JPRB /)  
+KB(:,47, 4) = (/ &
+ & 0.22341E-06_JPRB,0.25002E-06_JPRB,0.27560E-06_JPRB,0.29957E-06_JPRB,0.32144E-06_JPRB /)  
+KB(:,48, 4) = (/ &
+ & 0.17554E-06_JPRB,0.19798E-06_JPRB,0.21962E-06_JPRB,0.24010E-06_JPRB,0.25876E-06_JPRB /)  
+KB(:,49, 4) = (/ &
+ & 0.13737E-06_JPRB,0.15642E-06_JPRB,0.17451E-06_JPRB,0.19192E-06_JPRB,0.20795E-06_JPRB /)  
+KB(:,50, 4) = (/ &
+ & 0.10754E-06_JPRB,0.12357E-06_JPRB,0.13879E-06_JPRB,0.15343E-06_JPRB,0.16712E-06_JPRB /)  
+KB(:,51, 4) = (/ &
+ & 0.84121E-07_JPRB,0.97441E-07_JPRB,0.11018E-06_JPRB,0.12256E-06_JPRB,0.13419E-06_JPRB /)  
+KB(:,52, 4) = (/ &
+ & 0.65604E-07_JPRB,0.76564E-07_JPRB,0.87356E-07_JPRB,0.97703E-07_JPRB,0.10745E-06_JPRB /)  
+KB(:,53, 4) = (/ &
+ & 0.50943E-07_JPRB,0.59988E-07_JPRB,0.69048E-07_JPRB,0.77629E-07_JPRB,0.85933E-07_JPRB /)  
+KB(:,54, 4) = (/ &
+ & 0.39679E-07_JPRB,0.47121E-07_JPRB,0.54614E-07_JPRB,0.61766E-07_JPRB,0.68783E-07_JPRB /)  
+KB(:,55, 4) = (/ &
+ & 0.30934E-07_JPRB,0.36980E-07_JPRB,0.43113E-07_JPRB,0.49142E-07_JPRB,0.55005E-07_JPRB /)  
+KB(:,56, 4) = (/ &
+ & 0.24050E-07_JPRB,0.28923E-07_JPRB,0.33993E-07_JPRB,0.39047E-07_JPRB,0.43928E-07_JPRB /)  
+KB(:,57, 4) = (/ &
+ & 0.18660E-07_JPRB,0.22557E-07_JPRB,0.26748E-07_JPRB,0.30951E-07_JPRB,0.35000E-07_JPRB /)  
+KB(:,58, 4) = (/ &
+ & 0.14488E-07_JPRB,0.17625E-07_JPRB,0.21043E-07_JPRB,0.24511E-07_JPRB,0.27884E-07_JPRB /)  
+KB(:,59, 4) = (/ &
+ & 0.11674E-07_JPRB,0.14234E-07_JPRB,0.17044E-07_JPRB,0.19902E-07_JPRB,0.22702E-07_JPRB /)  
+KB(:,13, 5) = (/ &
+ & 0.36288E-03_JPRB,0.38577E-03_JPRB,0.40824E-03_JPRB,0.43207E-03_JPRB,0.45772E-03_JPRB /)  
+KB(:,14, 5) = (/ &
+ & 0.30781E-03_JPRB,0.32754E-03_JPRB,0.34745E-03_JPRB,0.36873E-03_JPRB,0.39050E-03_JPRB /)  
+KB(:,15, 5) = (/ &
+ & 0.26023E-03_JPRB,0.27734E-03_JPRB,0.29481E-03_JPRB,0.31288E-03_JPRB,0.33087E-03_JPRB /)  
+KB(:,16, 5) = (/ &
+ & 0.21963E-03_JPRB,0.23414E-03_JPRB,0.24882E-03_JPRB,0.26383E-03_JPRB,0.27866E-03_JPRB /)  
+KB(:,17, 5) = (/ &
+ & 0.18486E-03_JPRB,0.19716E-03_JPRB,0.20932E-03_JPRB,0.22139E-03_JPRB,0.23350E-03_JPRB /)  
+KB(:,18, 5) = (/ &
+ & 0.15516E-03_JPRB,0.16534E-03_JPRB,0.17526E-03_JPRB,0.18520E-03_JPRB,0.19528E-03_JPRB /)  
+KB(:,19, 5) = (/ &
+ & 0.12986E-03_JPRB,0.13820E-03_JPRB,0.14634E-03_JPRB,0.15465E-03_JPRB,0.16304E-03_JPRB /)  
+KB(:,20, 5) = (/ &
+ & 0.10854E-03_JPRB,0.11542E-03_JPRB,0.12213E-03_JPRB,0.12898E-03_JPRB,0.13583E-03_JPRB /)  
+KB(:,21, 5) = (/ &
+ & 0.90628E-04_JPRB,0.96255E-04_JPRB,0.10177E-03_JPRB,0.10738E-03_JPRB,0.11299E-03_JPRB /)  
+KB(:,22, 5) = (/ &
+ & 0.75891E-04_JPRB,0.80410E-04_JPRB,0.85018E-04_JPRB,0.89561E-04_JPRB,0.94064E-04_JPRB /)  
+KB(:,23, 5) = (/ &
+ & 0.63476E-04_JPRB,0.67177E-04_JPRB,0.70959E-04_JPRB,0.74590E-04_JPRB,0.78334E-04_JPRB /)  
+KB(:,24, 5) = (/ &
+ & 0.52999E-04_JPRB,0.56057E-04_JPRB,0.59157E-04_JPRB,0.62167E-04_JPRB,0.65272E-04_JPRB /)  
+KB(:,25, 5) = (/ &
+ & 0.44256E-04_JPRB,0.46783E-04_JPRB,0.49281E-04_JPRB,0.51789E-04_JPRB,0.54376E-04_JPRB /)  
+KB(:,26, 5) = (/ &
+ & 0.37011E-04_JPRB,0.39100E-04_JPRB,0.41098E-04_JPRB,0.43198E-04_JPRB,0.45322E-04_JPRB /)  
+KB(:,27, 5) = (/ &
+ & 0.30966E-04_JPRB,0.32635E-04_JPRB,0.34289E-04_JPRB,0.36026E-04_JPRB,0.37776E-04_JPRB /)  
+KB(:,28, 5) = (/ &
+ & 0.25866E-04_JPRB,0.27210E-04_JPRB,0.28616E-04_JPRB,0.30009E-04_JPRB,0.31487E-04_JPRB /)  
+KB(:,29, 5) = (/ &
+ & 0.21609E-04_JPRB,0.22715E-04_JPRB,0.23863E-04_JPRB,0.25052E-04_JPRB,0.26299E-04_JPRB /)  
+KB(:,30, 5) = (/ &
+ & 0.18055E-04_JPRB,0.18981E-04_JPRB,0.19946E-04_JPRB,0.20948E-04_JPRB,0.21978E-04_JPRB /)  
+KB(:,31, 5) = (/ &
+ & 0.15103E-04_JPRB,0.15890E-04_JPRB,0.16699E-04_JPRB,0.17556E-04_JPRB,0.18410E-04_JPRB /)  
+KB(:,32, 5) = (/ &
+ & 0.12647E-04_JPRB,0.13313E-04_JPRB,0.14001E-04_JPRB,0.14715E-04_JPRB,0.15427E-04_JPRB /)  
+KB(:,33, 5) = (/ &
+ & 0.10601E-04_JPRB,0.11164E-04_JPRB,0.11755E-04_JPRB,0.12351E-04_JPRB,0.12931E-04_JPRB /)  
+KB(:,34, 5) = (/ &
+ & 0.88699E-05_JPRB,0.93482E-05_JPRB,0.98481E-05_JPRB,0.10351E-04_JPRB,0.10829E-04_JPRB /)  
+KB(:,35, 5) = (/ &
+ & 0.73864E-05_JPRB,0.77932E-05_JPRB,0.82148E-05_JPRB,0.86289E-05_JPRB,0.90270E-05_JPRB /)  
+KB(:,36, 5) = (/ &
+ & 0.61189E-05_JPRB,0.64631E-05_JPRB,0.68137E-05_JPRB,0.71535E-05_JPRB,0.74761E-05_JPRB /)  
+KB(:,37, 5) = (/ &
+ & 0.50349E-05_JPRB,0.53216E-05_JPRB,0.56110E-05_JPRB,0.58984E-05_JPRB,0.61738E-05_JPRB /)  
+KB(:,38, 5) = (/ &
+ & 0.41408E-05_JPRB,0.43804E-05_JPRB,0.46209E-05_JPRB,0.48585E-05_JPRB,0.50962E-05_JPRB /)  
+KB(:,39, 5) = (/ &
+ & 0.34100E-05_JPRB,0.36097E-05_JPRB,0.38105E-05_JPRB,0.40114E-05_JPRB,0.42081E-05_JPRB /)  
+KB(:,40, 5) = (/ &
+ & 0.27924E-05_JPRB,0.29567E-05_JPRB,0.31274E-05_JPRB,0.32925E-05_JPRB,0.34580E-05_JPRB /)  
+KB(:,41, 5) = (/ &
+ & 0.22821E-05_JPRB,0.24196E-05_JPRB,0.25613E-05_JPRB,0.27009E-05_JPRB,0.28413E-05_JPRB /)  
+KB(:,42, 5) = (/ &
+ & 0.18665E-05_JPRB,0.19799E-05_JPRB,0.20975E-05_JPRB,0.22150E-05_JPRB,0.23326E-05_JPRB /)  
+KB(:,43, 5) = (/ &
+ & 0.15195E-05_JPRB,0.16130E-05_JPRB,0.17109E-05_JPRB,0.18095E-05_JPRB,0.19094E-05_JPRB /)  
+KB(:,44, 5) = (/ &
+ & 0.12351E-05_JPRB,0.13129E-05_JPRB,0.13926E-05_JPRB,0.14756E-05_JPRB,0.15593E-05_JPRB /)  
+KB(:,45, 5) = (/ &
+ & 0.10023E-05_JPRB,0.10671E-05_JPRB,0.11334E-05_JPRB,0.12033E-05_JPRB,0.12728E-05_JPRB /)  
+KB(:,46, 5) = (/ &
+ & 0.81269E-06_JPRB,0.86595E-06_JPRB,0.92094E-06_JPRB,0.97875E-06_JPRB,0.10378E-05_JPRB /)  
+KB(:,47, 5) = (/ &
+ & 0.65647E-06_JPRB,0.70081E-06_JPRB,0.74604E-06_JPRB,0.79395E-06_JPRB,0.84339E-06_JPRB /)  
+KB(:,48, 5) = (/ &
+ & 0.53019E-06_JPRB,0.56638E-06_JPRB,0.60399E-06_JPRB,0.64368E-06_JPRB,0.68472E-06_JPRB /)  
+KB(:,49, 5) = (/ &
+ & 0.42776E-06_JPRB,0.45739E-06_JPRB,0.48880E-06_JPRB,0.52108E-06_JPRB,0.55567E-06_JPRB /)  
+KB(:,50, 5) = (/ &
+ & 0.34556E-06_JPRB,0.36989E-06_JPRB,0.39599E-06_JPRB,0.42284E-06_JPRB,0.45123E-06_JPRB /)  
+KB(:,51, 5) = (/ &
+ & 0.27905E-06_JPRB,0.29932E-06_JPRB,0.32065E-06_JPRB,0.34295E-06_JPRB,0.36646E-06_JPRB /)  
+KB(:,52, 5) = (/ &
+ & 0.22522E-06_JPRB,0.24196E-06_JPRB,0.25940E-06_JPRB,0.27788E-06_JPRB,0.29753E-06_JPRB /)  
+KB(:,53, 5) = (/ &
+ & 0.18137E-06_JPRB,0.19527E-06_JPRB,0.20965E-06_JPRB,0.22512E-06_JPRB,0.24112E-06_JPRB /)  
+KB(:,54, 5) = (/ &
+ & 0.14606E-06_JPRB,0.15795E-06_JPRB,0.16971E-06_JPRB,0.18256E-06_JPRB,0.19571E-06_JPRB /)  
+KB(:,55, 5) = (/ &
+ & 0.11745E-06_JPRB,0.12764E-06_JPRB,0.13751E-06_JPRB,0.14796E-06_JPRB,0.15891E-06_JPRB /)  
+KB(:,56, 5) = (/ &
+ & 0.94319E-07_JPRB,0.10301E-06_JPRB,0.11131E-06_JPRB,0.11979E-06_JPRB,0.12892E-06_JPRB /)  
+KB(:,57, 5) = (/ &
+ & 0.75512E-07_JPRB,0.83064E-07_JPRB,0.90010E-07_JPRB,0.96928E-07_JPRB,0.10441E-06_JPRB /)  
+KB(:,58, 5) = (/ &
+ & 0.60409E-07_JPRB,0.66900E-07_JPRB,0.72712E-07_JPRB,0.78451E-07_JPRB,0.84657E-07_JPRB /)  
+KB(:,59, 5) = (/ &
+ & 0.49299E-07_JPRB,0.54731E-07_JPRB,0.59628E-07_JPRB,0.64415E-07_JPRB,0.69585E-07_JPRB /)  
+KB(:,13, 6) = (/ &
+ & 0.85498E-03_JPRB,0.88654E-03_JPRB,0.92216E-03_JPRB,0.96018E-03_JPRB,0.10038E-02_JPRB /)  
+KB(:,14, 6) = (/ &
+ & 0.72755E-03_JPRB,0.75503E-03_JPRB,0.78615E-03_JPRB,0.82104E-03_JPRB,0.86252E-03_JPRB /)  
+KB(:,15, 6) = (/ &
+ & 0.61644E-03_JPRB,0.64130E-03_JPRB,0.66934E-03_JPRB,0.70298E-03_JPRB,0.74077E-03_JPRB /)  
+KB(:,16, 6) = (/ &
+ & 0.52100E-03_JPRB,0.54364E-03_JPRB,0.57046E-03_JPRB,0.60137E-03_JPRB,0.63388E-03_JPRB /)  
+KB(:,17, 6) = (/ &
+ & 0.43945E-03_JPRB,0.46060E-03_JPRB,0.48533E-03_JPRB,0.51276E-03_JPRB,0.54036E-03_JPRB /)  
+KB(:,18, 6) = (/ &
+ & 0.37082E-03_JPRB,0.39025E-03_JPRB,0.41242E-03_JPRB,0.43532E-03_JPRB,0.45905E-03_JPRB /)  
+KB(:,19, 6) = (/ &
+ & 0.31280E-03_JPRB,0.33005E-03_JPRB,0.34867E-03_JPRB,0.36806E-03_JPRB,0.38776E-03_JPRB /)  
+KB(:,20, 6) = (/ &
+ & 0.26373E-03_JPRB,0.27881E-03_JPRB,0.29445E-03_JPRB,0.31046E-03_JPRB,0.32667E-03_JPRB /)  
+KB(:,21, 6) = (/ &
+ & 0.22211E-03_JPRB,0.23470E-03_JPRB,0.24766E-03_JPRB,0.26115E-03_JPRB,0.27459E-03_JPRB /)  
+KB(:,22, 6) = (/ &
+ & 0.18729E-03_JPRB,0.19773E-03_JPRB,0.20869E-03_JPRB,0.22010E-03_JPRB,0.23102E-03_JPRB /)  
+KB(:,23, 6) = (/ &
+ & 0.15755E-03_JPRB,0.16634E-03_JPRB,0.17574E-03_JPRB,0.18527E-03_JPRB,0.19396E-03_JPRB /)  
+KB(:,24, 6) = (/ &
+ & 0.13244E-03_JPRB,0.14003E-03_JPRB,0.14791E-03_JPRB,0.15556E-03_JPRB,0.16235E-03_JPRB /)  
+KB(:,25, 6) = (/ &
+ & 0.11137E-03_JPRB,0.11779E-03_JPRB,0.12437E-03_JPRB,0.13036E-03_JPRB,0.13579E-03_JPRB /)  
+KB(:,26, 6) = (/ &
+ & 0.93817E-04_JPRB,0.99206E-04_JPRB,0.10452E-03_JPRB,0.10918E-03_JPRB,0.11356E-03_JPRB /)  
+KB(:,27, 6) = (/ &
+ & 0.79006E-04_JPRB,0.83531E-04_JPRB,0.87717E-04_JPRB,0.91355E-04_JPRB,0.95066E-04_JPRB /)  
+KB(:,28, 6) = (/ &
+ & 0.66464E-04_JPRB,0.70180E-04_JPRB,0.73412E-04_JPRB,0.76548E-04_JPRB,0.79673E-04_JPRB /)  
+KB(:,29, 6) = (/ &
+ & 0.55955E-04_JPRB,0.58876E-04_JPRB,0.61539E-04_JPRB,0.64161E-04_JPRB,0.66744E-04_JPRB /)  
+KB(:,30, 6) = (/ &
+ & 0.47057E-04_JPRB,0.49392E-04_JPRB,0.51539E-04_JPRB,0.53762E-04_JPRB,0.55883E-04_JPRB /)  
+KB(:,31, 6) = (/ &
+ & 0.39571E-04_JPRB,0.41398E-04_JPRB,0.43230E-04_JPRB,0.45052E-04_JPRB,0.46859E-04_JPRB /)  
+KB(:,32, 6) = (/ &
+ & 0.33232E-04_JPRB,0.34753E-04_JPRB,0.36306E-04_JPRB,0.37802E-04_JPRB,0.39368E-04_JPRB /)  
+KB(:,33, 6) = (/ &
+ & 0.27886E-04_JPRB,0.29183E-04_JPRB,0.30428E-04_JPRB,0.31753E-04_JPRB,0.33114E-04_JPRB /)  
+KB(:,34, 6) = (/ &
+ & 0.23408E-04_JPRB,0.24477E-04_JPRB,0.25555E-04_JPRB,0.26683E-04_JPRB,0.27811E-04_JPRB /)  
+KB(:,35, 6) = (/ &
+ & 0.19576E-04_JPRB,0.20476E-04_JPRB,0.21380E-04_JPRB,0.22323E-04_JPRB,0.23289E-04_JPRB /)  
+KB(:,36, 6) = (/ &
+ & 0.16284E-04_JPRB,0.17049E-04_JPRB,0.17816E-04_JPRB,0.18626E-04_JPRB,0.19444E-04_JPRB /)  
+KB(:,37, 6) = (/ &
+ & 0.13488E-04_JPRB,0.14134E-04_JPRB,0.14781E-04_JPRB,0.15488E-04_JPRB,0.16173E-04_JPRB /)  
+KB(:,38, 6) = (/ &
+ & 0.11176E-04_JPRB,0.11721E-04_JPRB,0.12278E-04_JPRB,0.12866E-04_JPRB,0.13450E-04_JPRB /)  
+KB(:,39, 6) = (/ &
+ & 0.92494E-05_JPRB,0.97155E-05_JPRB,0.10200E-04_JPRB,0.10699E-04_JPRB,0.11199E-04_JPRB /)  
+KB(:,40, 6) = (/ &
+ & 0.76168E-05_JPRB,0.80109E-05_JPRB,0.84197E-05_JPRB,0.88496E-05_JPRB,0.92853E-05_JPRB /)  
+KB(:,41, 6) = (/ &
+ & 0.62645E-05_JPRB,0.66003E-05_JPRB,0.69472E-05_JPRB,0.73123E-05_JPRB,0.76881E-05_JPRB /)  
+KB(:,42, 6) = (/ &
+ & 0.51581E-05_JPRB,0.54373E-05_JPRB,0.57325E-05_JPRB,0.60421E-05_JPRB,0.63612E-05_JPRB /)  
+KB(:,43, 6) = (/ &
+ & 0.42336E-05_JPRB,0.44705E-05_JPRB,0.47241E-05_JPRB,0.49790E-05_JPRB,0.52554E-05_JPRB /)  
+KB(:,44, 6) = (/ &
+ & 0.34635E-05_JPRB,0.36643E-05_JPRB,0.38777E-05_JPRB,0.40942E-05_JPRB,0.43335E-05_JPRB /)  
+KB(:,45, 6) = (/ &
+ & 0.28355E-05_JPRB,0.30041E-05_JPRB,0.31829E-05_JPRB,0.33678E-05_JPRB,0.35664E-05_JPRB /)  
+KB(:,46, 6) = (/ &
+ & 0.23151E-05_JPRB,0.24589E-05_JPRB,0.26085E-05_JPRB,0.27655E-05_JPRB,0.29287E-05_JPRB /)  
+KB(:,47, 6) = (/ &
+ & 0.18832E-05_JPRB,0.20045E-05_JPRB,0.21306E-05_JPRB,0.22633E-05_JPRB,0.24025E-05_JPRB /)  
+KB(:,48, 6) = (/ &
+ & 0.15291E-05_JPRB,0.16326E-05_JPRB,0.17368E-05_JPRB,0.18516E-05_JPRB,0.19681E-05_JPRB /)  
+KB(:,49, 6) = (/ &
+ & 0.12403E-05_JPRB,0.13270E-05_JPRB,0.14154E-05_JPRB,0.15108E-05_JPRB,0.16100E-05_JPRB /)  
+KB(:,50, 6) = (/ &
+ & 0.10056E-05_JPRB,0.10792E-05_JPRB,0.11542E-05_JPRB,0.12335E-05_JPRB,0.13173E-05_JPRB /)  
+KB(:,51, 6) = (/ &
+ & 0.81549E-06_JPRB,0.87791E-06_JPRB,0.94116E-06_JPRB,0.10080E-05_JPRB,0.10781E-05_JPRB /)  
+KB(:,52, 6) = (/ &
+ & 0.66029E-06_JPRB,0.71307E-06_JPRB,0.76617E-06_JPRB,0.82179E-06_JPRB,0.88107E-06_JPRB /)  
+KB(:,53, 6) = (/ &
+ & 0.53353E-06_JPRB,0.57858E-06_JPRB,0.62276E-06_JPRB,0.66919E-06_JPRB,0.71931E-06_JPRB /)  
+KB(:,54, 6) = (/ &
+ & 0.43199E-06_JPRB,0.46970E-06_JPRB,0.50695E-06_JPRB,0.54584E-06_JPRB,0.58793E-06_JPRB /)  
+KB(:,55, 6) = (/ &
+ & 0.34966E-06_JPRB,0.38119E-06_JPRB,0.41298E-06_JPRB,0.44530E-06_JPRB,0.48058E-06_JPRB /)  
+KB(:,56, 6) = (/ &
+ & 0.28227E-06_JPRB,0.30903E-06_JPRB,0.33563E-06_JPRB,0.36285E-06_JPRB,0.39216E-06_JPRB /)  
+KB(:,57, 6) = (/ &
+ & 0.22764E-06_JPRB,0.25006E-06_JPRB,0.27265E-06_JPRB,0.29503E-06_JPRB,0.31940E-06_JPRB /)  
+KB(:,58, 6) = (/ &
+ & 0.18380E-06_JPRB,0.20248E-06_JPRB,0.22144E-06_JPRB,0.24002E-06_JPRB,0.25999E-06_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART13',1,ZHOOK_HANDLE)
+END SUBROUTINE PART13
+
+
+SUBROUTINE PART14
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART14',0,ZHOOK_HANDLE)
+
+
+KB(:,59, 6) = (/ &
+ & 0.15102E-06_JPRB,0.16680E-06_JPRB,0.18267E-06_JPRB,0.19825E-06_JPRB,0.21512E-06_JPRB /)  
+KB(:,13, 7) = (/ &
+ & 0.20763E-02_JPRB,0.21202E-02_JPRB,0.21697E-02_JPRB,0.22297E-02_JPRB,0.22985E-02_JPRB /)  
+KB(:,14, 7) = (/ &
+ & 0.17631E-02_JPRB,0.18004E-02_JPRB,0.18452E-02_JPRB,0.18998E-02_JPRB,0.19604E-02_JPRB /)  
+KB(:,15, 7) = (/ &
+ & 0.14970E-02_JPRB,0.15286E-02_JPRB,0.15695E-02_JPRB,0.16172E-02_JPRB,0.16748E-02_JPRB /)  
+KB(:,16, 7) = (/ &
+ & 0.12672E-02_JPRB,0.12965E-02_JPRB,0.13340E-02_JPRB,0.13795E-02_JPRB,0.14367E-02_JPRB /)  
+KB(:,17, 7) = (/ &
+ & 0.10695E-02_JPRB,0.10974E-02_JPRB,0.11329E-02_JPRB,0.11783E-02_JPRB,0.12365E-02_JPRB /)  
+KB(:,18, 7) = (/ &
+ & 0.90477E-03_JPRB,0.93070E-03_JPRB,0.96470E-03_JPRB,0.10105E-02_JPRB,0.10654E-02_JPRB /)  
+KB(:,19, 7) = (/ &
+ & 0.76431E-03_JPRB,0.79078E-03_JPRB,0.82660E-03_JPRB,0.86991E-03_JPRB,0.91843E-03_JPRB /)  
+KB(:,20, 7) = (/ &
+ & 0.64676E-03_JPRB,0.67404E-03_JPRB,0.70901E-03_JPRB,0.74996E-03_JPRB,0.79243E-03_JPRB /)  
+KB(:,21, 7) = (/ &
+ & 0.54776E-03_JPRB,0.57523E-03_JPRB,0.60880E-03_JPRB,0.64511E-03_JPRB,0.68243E-03_JPRB /)  
+KB(:,22, 7) = (/ &
+ & 0.46614E-03_JPRB,0.49254E-03_JPRB,0.52330E-03_JPRB,0.55502E-03_JPRB,0.58894E-03_JPRB /)  
+KB(:,23, 7) = (/ &
+ & 0.39726E-03_JPRB,0.42201E-03_JPRB,0.44841E-03_JPRB,0.47653E-03_JPRB,0.50717E-03_JPRB /)  
+KB(:,24, 7) = (/ &
+ & 0.33898E-03_JPRB,0.36121E-03_JPRB,0.38421E-03_JPRB,0.40924E-03_JPRB,0.43694E-03_JPRB /)  
+KB(:,25, 7) = (/ &
+ & 0.28981E-03_JPRB,0.30891E-03_JPRB,0.32925E-03_JPRB,0.35185E-03_JPRB,0.37616E-03_JPRB /)  
+KB(:,26, 7) = (/ &
+ & 0.24765E-03_JPRB,0.26436E-03_JPRB,0.28268E-03_JPRB,0.30306E-03_JPRB,0.32381E-03_JPRB /)  
+KB(:,27, 7) = (/ &
+ & 0.21161E-03_JPRB,0.22639E-03_JPRB,0.24293E-03_JPRB,0.26080E-03_JPRB,0.27811E-03_JPRB /)  
+KB(:,28, 7) = (/ &
+ & 0.18103E-03_JPRB,0.19425E-03_JPRB,0.20911E-03_JPRB,0.22426E-03_JPRB,0.23882E-03_JPRB /)  
+KB(:,29, 7) = (/ &
+ & 0.15524E-03_JPRB,0.16726E-03_JPRB,0.18025E-03_JPRB,0.19313E-03_JPRB,0.20539E-03_JPRB /)  
+KB(:,30, 7) = (/ &
+ & 0.13346E-03_JPRB,0.14432E-03_JPRB,0.15555E-03_JPRB,0.16625E-03_JPRB,0.17682E-03_JPRB /)  
+KB(:,31, 7) = (/ &
+ & 0.11513E-03_JPRB,0.12466E-03_JPRB,0.13417E-03_JPRB,0.14329E-03_JPRB,0.15286E-03_JPRB /)  
+KB(:,32, 7) = (/ &
+ & 0.99437E-04_JPRB,0.10768E-03_JPRB,0.11569E-03_JPRB,0.12397E-03_JPRB,0.13224E-03_JPRB /)  
+KB(:,33, 7) = (/ &
+ & 0.85975E-04_JPRB,0.92901E-04_JPRB,0.10007E-03_JPRB,0.10742E-03_JPRB,0.11487E-03_JPRB /)  
+KB(:,34, 7) = (/ &
+ & 0.74186E-04_JPRB,0.80283E-04_JPRB,0.86524E-04_JPRB,0.92965E-04_JPRB,0.99720E-04_JPRB /)  
+KB(:,35, 7) = (/ &
+ & 0.63518E-04_JPRB,0.68833E-04_JPRB,0.74348E-04_JPRB,0.80205E-04_JPRB,0.86286E-04_JPRB /)  
+KB(:,36, 7) = (/ &
+ & 0.53971E-04_JPRB,0.58710E-04_JPRB,0.63581E-04_JPRB,0.68731E-04_JPRB,0.74066E-04_JPRB /)  
+KB(:,37, 7) = (/ &
+ & 0.45287E-04_JPRB,0.49433E-04_JPRB,0.53695E-04_JPRB,0.58207E-04_JPRB,0.62933E-04_JPRB /)  
+KB(:,38, 7) = (/ &
+ & 0.37993E-04_JPRB,0.41562E-04_JPRB,0.45327E-04_JPRB,0.49315E-04_JPRB,0.53437E-04_JPRB /)  
+KB(:,39, 7) = (/ &
+ & 0.31889E-04_JPRB,0.34954E-04_JPRB,0.38268E-04_JPRB,0.41760E-04_JPRB,0.45472E-04_JPRB /)  
+KB(:,40, 7) = (/ &
+ & 0.26490E-04_JPRB,0.29130E-04_JPRB,0.31995E-04_JPRB,0.35094E-04_JPRB,0.38302E-04_JPRB /)  
+KB(:,41, 7) = (/ &
+ & 0.21977E-04_JPRB,0.24258E-04_JPRB,0.26702E-04_JPRB,0.29405E-04_JPRB,0.32254E-04_JPRB /)  
+KB(:,42, 7) = (/ &
+ & 0.18218E-04_JPRB,0.20180E-04_JPRB,0.22299E-04_JPRB,0.24616E-04_JPRB,0.27154E-04_JPRB /)  
+KB(:,43, 7) = (/ &
+ & 0.15034E-04_JPRB,0.16668E-04_JPRB,0.18493E-04_JPRB,0.20514E-04_JPRB,0.22747E-04_JPRB /)  
+KB(:,44, 7) = (/ &
+ & 0.12376E-04_JPRB,0.13730E-04_JPRB,0.15276E-04_JPRB,0.16983E-04_JPRB,0.18913E-04_JPRB /)  
+KB(:,45, 7) = (/ &
+ & 0.10149E-04_JPRB,0.11314E-04_JPRB,0.12590E-04_JPRB,0.14099E-04_JPRB,0.15742E-04_JPRB /)  
+KB(:,46, 7) = (/ &
+ & 0.82889E-05_JPRB,0.92859E-05_JPRB,0.10354E-04_JPRB,0.11603E-04_JPRB,0.13042E-04_JPRB /)  
+KB(:,47, 7) = (/ &
+ & 0.67264E-05_JPRB,0.75707E-05_JPRB,0.84748E-05_JPRB,0.95081E-05_JPRB,0.10721E-04_JPRB /)  
+KB(:,48, 7) = (/ &
+ & 0.54454E-05_JPRB,0.61678E-05_JPRB,0.69329E-05_JPRB,0.77845E-05_JPRB,0.87984E-05_JPRB /)  
+KB(:,49, 7) = (/ &
+ & 0.43942E-05_JPRB,0.50075E-05_JPRB,0.56558E-05_JPRB,0.63802E-05_JPRB,0.72168E-05_JPRB /)  
+KB(:,50, 7) = (/ &
+ & 0.35518E-05_JPRB,0.40682E-05_JPRB,0.46246E-05_JPRB,0.52318E-05_JPRB,0.59289E-05_JPRB /)  
+KB(:,51, 7) = (/ &
+ & 0.28695E-05_JPRB,0.33032E-05_JPRB,0.37766E-05_JPRB,0.42938E-05_JPRB,0.48871E-05_JPRB /)  
+KB(:,52, 7) = (/ &
+ & 0.23151E-05_JPRB,0.26733E-05_JPRB,0.30760E-05_JPRB,0.35184E-05_JPRB,0.40216E-05_JPRB /)  
+KB(:,53, 7) = (/ &
+ & 0.18635E-05_JPRB,0.21569E-05_JPRB,0.24979E-05_JPRB,0.28705E-05_JPRB,0.33004E-05_JPRB /)  
+KB(:,54, 7) = (/ &
+ & 0.15043E-05_JPRB,0.17492E-05_JPRB,0.20309E-05_JPRB,0.23469E-05_JPRB,0.27129E-05_JPRB /)  
+KB(:,55, 7) = (/ &
+ & 0.12156E-05_JPRB,0.14170E-05_JPRB,0.16506E-05_JPRB,0.19188E-05_JPRB,0.22303E-05_JPRB /)  
+KB(:,56, 7) = (/ &
+ & 0.98090E-06_JPRB,0.11440E-05_JPRB,0.13395E-05_JPRB,0.15647E-05_JPRB,0.18280E-05_JPRB /)  
+KB(:,57, 7) = (/ &
+ & 0.79029E-06_JPRB,0.92216E-06_JPRB,0.10880E-05_JPRB,0.12732E-05_JPRB,0.14934E-05_JPRB /)  
+KB(:,58, 7) = (/ &
+ & 0.63691E-06_JPRB,0.74365E-06_JPRB,0.88187E-06_JPRB,0.10375E-05_JPRB,0.12193E-05_JPRB /)  
+KB(:,59, 7) = (/ &
+ & 0.52696E-06_JPRB,0.61783E-06_JPRB,0.73672E-06_JPRB,0.87054E-06_JPRB,0.10284E-05_JPRB /)  
+KB(:,13, 8) = (/ &
+ & 0.57453E-02_JPRB,0.59077E-02_JPRB,0.61032E-02_JPRB,0.63038E-02_JPRB,0.65156E-02_JPRB /)  
+KB(:,14, 8) = (/ &
+ & 0.49738E-02_JPRB,0.51301E-02_JPRB,0.52927E-02_JPRB,0.54623E-02_JPRB,0.56575E-02_JPRB /)  
+KB(:,15, 8) = (/ &
+ & 0.43017E-02_JPRB,0.44326E-02_JPRB,0.45703E-02_JPRB,0.47292E-02_JPRB,0.49039E-02_JPRB /)  
+KB(:,16, 8) = (/ &
+ & 0.37082E-02_JPRB,0.38170E-02_JPRB,0.39427E-02_JPRB,0.40844E-02_JPRB,0.42438E-02_JPRB /)  
+KB(:,17, 8) = (/ &
+ & 0.31847E-02_JPRB,0.32833E-02_JPRB,0.33960E-02_JPRB,0.35252E-02_JPRB,0.36740E-02_JPRB /)  
+KB(:,18, 8) = (/ &
+ & 0.27225E-02_JPRB,0.28155E-02_JPRB,0.29216E-02_JPRB,0.30449E-02_JPRB,0.31911E-02_JPRB /)  
+KB(:,19, 8) = (/ &
+ & 0.23309E-02_JPRB,0.24127E-02_JPRB,0.25113E-02_JPRB,0.26325E-02_JPRB,0.27748E-02_JPRB /)  
+KB(:,20, 8) = (/ &
+ & 0.19939E-02_JPRB,0.20703E-02_JPRB,0.21659E-02_JPRB,0.22816E-02_JPRB,0.24232E-02_JPRB /)  
+KB(:,21, 8) = (/ &
+ & 0.17051E-02_JPRB,0.17809E-02_JPRB,0.18754E-02_JPRB,0.19919E-02_JPRB,0.21299E-02_JPRB /)  
+KB(:,22, 8) = (/ &
+ & 0.14632E-02_JPRB,0.15412E-02_JPRB,0.16376E-02_JPRB,0.17554E-02_JPRB,0.18936E-02_JPRB /)  
+KB(:,23, 8) = (/ &
+ & 0.12639E-02_JPRB,0.13422E-02_JPRB,0.14407E-02_JPRB,0.15575E-02_JPRB,0.16941E-02_JPRB /)  
+KB(:,24, 8) = (/ &
+ & 0.10971E-02_JPRB,0.11767E-02_JPRB,0.12764E-02_JPRB,0.13939E-02_JPRB,0.15238E-02_JPRB /)  
+KB(:,25, 8) = (/ &
+ & 0.95870E-03_JPRB,0.10413E-02_JPRB,0.11414E-02_JPRB,0.12556E-02_JPRB,0.13798E-02_JPRB /)  
+KB(:,26, 8) = (/ &
+ & 0.84686E-03_JPRB,0.93021E-03_JPRB,0.10287E-02_JPRB,0.11374E-02_JPRB,0.12572E-02_JPRB /)  
+KB(:,27, 8) = (/ &
+ & 0.75447E-03_JPRB,0.83724E-03_JPRB,0.93234E-03_JPRB,0.10369E-02_JPRB,0.11513E-02_JPRB /)  
+KB(:,28, 8) = (/ &
+ & 0.67798E-03_JPRB,0.75937E-03_JPRB,0.85009E-03_JPRB,0.95072E-03_JPRB,0.10606E-02_JPRB /)  
+KB(:,29, 8) = (/ &
+ & 0.61364E-03_JPRB,0.69262E-03_JPRB,0.77994E-03_JPRB,0.87674E-03_JPRB,0.98252E-03_JPRB /)  
+KB(:,30, 8) = (/ &
+ & 0.55903E-03_JPRB,0.63520E-03_JPRB,0.71974E-03_JPRB,0.81322E-03_JPRB,0.91554E-03_JPRB /)  
+KB(:,31, 8) = (/ &
+ & 0.51301E-03_JPRB,0.58698E-03_JPRB,0.66923E-03_JPRB,0.75972E-03_JPRB,0.85851E-03_JPRB /)  
+KB(:,32, 8) = (/ &
+ & 0.47350E-03_JPRB,0.54617E-03_JPRB,0.62663E-03_JPRB,0.71470E-03_JPRB,0.81105E-03_JPRB /)  
+KB(:,33, 8) = (/ &
+ & 0.44016E-03_JPRB,0.51136E-03_JPRB,0.58994E-03_JPRB,0.67638E-03_JPRB,0.77061E-03_JPRB /)  
+KB(:,34, 8) = (/ &
+ & 0.40944E-03_JPRB,0.47900E-03_JPRB,0.55611E-03_JPRB,0.64143E-03_JPRB,0.73316E-03_JPRB /)  
+KB(:,35, 8) = (/ &
+ & 0.37741E-03_JPRB,0.44487E-03_JPRB,0.52031E-03_JPRB,0.60323E-03_JPRB,0.69243E-03_JPRB /)  
+KB(:,36, 8) = (/ &
+ & 0.34297E-03_JPRB,0.40766E-03_JPRB,0.48086E-03_JPRB,0.56132E-03_JPRB,0.64787E-03_JPRB /)  
+KB(:,37, 8) = (/ &
+ & 0.30431E-03_JPRB,0.36499E-03_JPRB,0.43465E-03_JPRB,0.51167E-03_JPRB,0.59496E-03_JPRB /)  
+KB(:,38, 8) = (/ &
+ & 0.26970E-03_JPRB,0.32665E-03_JPRB,0.39267E-03_JPRB,0.46706E-03_JPRB,0.54760E-03_JPRB /)  
+KB(:,39, 8) = (/ &
+ & 0.23923E-03_JPRB,0.29254E-03_JPRB,0.35537E-03_JPRB,0.42706E-03_JPRB,0.50543E-03_JPRB /)  
+KB(:,40, 8) = (/ &
+ & 0.20758E-03_JPRB,0.25688E-03_JPRB,0.31519E-03_JPRB,0.38349E-03_JPRB,0.45925E-03_JPRB /)  
+KB(:,41, 8) = (/ &
+ & 0.17937E-03_JPRB,0.22435E-03_JPRB,0.27886E-03_JPRB,0.34337E-03_JPRB,0.41641E-03_JPRB /)  
+KB(:,42, 8) = (/ &
+ & 0.15469E-03_JPRB,0.19589E-03_JPRB,0.24606E-03_JPRB,0.30674E-03_JPRB,0.37723E-03_JPRB /)  
+KB(:,43, 8) = (/ &
+ & 0.13101E-03_JPRB,0.16796E-03_JPRB,0.21371E-03_JPRB,0.26992E-03_JPRB,0.33751E-03_JPRB /)  
+KB(:,44, 8) = (/ &
+ & 0.10980E-03_JPRB,0.14260E-03_JPRB,0.18396E-03_JPRB,0.23557E-03_JPRB,0.29905E-03_JPRB /)  
+KB(:,45, 8) = (/ &
+ & 0.91682E-04_JPRB,0.12045E-03_JPRB,0.15770E-03_JPRB,0.20472E-03_JPRB,0.26370E-03_JPRB /)  
+KB(:,46, 8) = (/ &
+ & 0.75628E-04_JPRB,0.10059E-03_JPRB,0.13347E-03_JPRB,0.17595E-03_JPRB,0.22995E-03_JPRB /)  
+KB(:,47, 8) = (/ &
+ & 0.61269E-04_JPRB,0.82597E-04_JPRB,0.11115E-03_JPRB,0.14863E-03_JPRB,0.19734E-03_JPRB /)  
+KB(:,48, 8) = (/ &
+ & 0.49295E-04_JPRB,0.67304E-04_JPRB,0.91698E-04_JPRB,0.12475E-03_JPRB,0.16838E-03_JPRB /)  
+KB(:,49, 8) = (/ &
+ & 0.39400E-04_JPRB,0.54424E-04_JPRB,0.75252E-04_JPRB,0.10388E-03_JPRB,0.14254E-03_JPRB /)  
+KB(:,50, 8) = (/ &
+ & 0.31621E-04_JPRB,0.44130E-04_JPRB,0.61905E-04_JPRB,0.86583E-04_JPRB,0.12082E-03_JPRB /)  
+KB(:,51, 8) = (/ &
+ & 0.25214E-04_JPRB,0.35613E-04_JPRB,0.50609E-04_JPRB,0.71998E-04_JPRB,0.10219E-03_JPRB /)  
+KB(:,52, 8) = (/ &
+ & 0.20045E-04_JPRB,0.28626E-04_JPRB,0.41171E-04_JPRB,0.59458E-04_JPRB,0.85829E-04_JPRB /)  
+KB(:,53, 8) = (/ &
+ & 0.15795E-04_JPRB,0.22859E-04_JPRB,0.33218E-04_JPRB,0.48810E-04_JPRB,0.71516E-04_JPRB /)  
+KB(:,54, 8) = (/ &
+ & 0.12537E-04_JPRB,0.18343E-04_JPRB,0.26979E-04_JPRB,0.40183E-04_JPRB,0.59926E-04_JPRB /)  
+KB(:,55, 8) = (/ &
+ & 0.99418E-05_JPRB,0.14675E-04_JPRB,0.21893E-04_JPRB,0.33017E-04_JPRB,0.50138E-04_JPRB /)  
+KB(:,56, 8) = (/ &
+ & 0.78293E-05_JPRB,0.11672E-04_JPRB,0.17663E-04_JPRB,0.26975E-04_JPRB,0.41690E-04_JPRB /)  
+KB(:,57, 8) = (/ &
+ & 0.61519E-05_JPRB,0.92383E-05_JPRB,0.14184E-04_JPRB,0.21901E-04_JPRB,0.34420E-04_JPRB /)  
+KB(:,58, 8) = (/ &
+ & 0.48509E-05_JPRB,0.73119E-05_JPRB,0.11341E-04_JPRB,0.17783E-04_JPRB,0.28416E-04_JPRB /)  
+KB(:,59, 8) = (/ &
+ & 0.41003E-05_JPRB,0.62461E-05_JPRB,0.98307E-05_JPRB,0.15678E-04_JPRB,0.25521E-04_JPRB /)  
+KB(:,13, 9) = (/ &
+ & 0.31088E-01_JPRB,0.30978E-01_JPRB,0.31134E-01_JPRB,0.31580E-01_JPRB,0.32297E-01_JPRB /)  
+KB(:,14, 9) = (/ &
+ & 0.26804E-01_JPRB,0.26913E-01_JPRB,0.27323E-01_JPRB,0.28019E-01_JPRB,0.28853E-01_JPRB /)  
+KB(:,15, 9) = (/ &
+ & 0.23192E-01_JPRB,0.23530E-01_JPRB,0.24156E-01_JPRB,0.24918E-01_JPRB,0.25770E-01_JPRB /)  
+KB(:,16, 9) = (/ &
+ & 0.20205E-01_JPRB,0.20738E-01_JPRB,0.21411E-01_JPRB,0.22189E-01_JPRB,0.23073E-01_JPRB /)  
+KB(:,17, 9) = (/ &
+ & 0.17721E-01_JPRB,0.18309E-01_JPRB,0.19005E-01_JPRB,0.19816E-01_JPRB,0.20712E-01_JPRB /)  
+KB(:,18, 9) = (/ &
+ & 0.15569E-01_JPRB,0.16175E-01_JPRB,0.16902E-01_JPRB,0.17717E-01_JPRB,0.18588E-01_JPRB /)  
+KB(:,19, 9) = (/ &
+ & 0.13679E-01_JPRB,0.14314E-01_JPRB,0.15046E-01_JPRB,0.15840E-01_JPRB,0.16695E-01_JPRB /)  
+KB(:,20, 9) = (/ &
+ & 0.12060E-01_JPRB,0.12704E-01_JPRB,0.13416E-01_JPRB,0.14184E-01_JPRB,0.14994E-01_JPRB /)  
+KB(:,21, 9) = (/ &
+ & 0.10678E-01_JPRB,0.11296E-01_JPRB,0.11975E-01_JPRB,0.12694E-01_JPRB,0.13474E-01_JPRB /)  
+KB(:,22, 9) = (/ &
+ & 0.95206E-02_JPRB,0.10114E-01_JPRB,0.10744E-01_JPRB,0.11429E-01_JPRB,0.12190E-01_JPRB /)  
+KB(:,23, 9) = (/ &
+ & 0.85244E-02_JPRB,0.90705E-02_JPRB,0.96690E-02_JPRB,0.10334E-01_JPRB,0.11084E-01_JPRB /)  
+KB(:,24, 9) = (/ &
+ & 0.76472E-02_JPRB,0.81682E-02_JPRB,0.87428E-02_JPRB,0.93948E-02_JPRB,0.10155E-01_JPRB /)  
+KB(:,25, 9) = (/ &
+ & 0.68906E-02_JPRB,0.73887E-02_JPRB,0.79555E-02_JPRB,0.86116E-02_JPRB,0.93920E-02_JPRB /)  
+KB(:,26, 9) = (/ &
+ & 0.62406E-02_JPRB,0.67330E-02_JPRB,0.73033E-02_JPRB,0.79807E-02_JPRB,0.87803E-02_JPRB /)  
+KB(:,27, 9) = (/ &
+ & 0.56879E-02_JPRB,0.61818E-02_JPRB,0.67732E-02_JPRB,0.74721E-02_JPRB,0.82924E-02_JPRB /)  
+KB(:,28, 9) = (/ &
+ & 0.52214E-02_JPRB,0.57290E-02_JPRB,0.63416E-02_JPRB,0.70614E-02_JPRB,0.79109E-02_JPRB /)  
+KB(:,29, 9) = (/ &
+ & 0.48396E-02_JPRB,0.53718E-02_JPRB,0.60023E-02_JPRB,0.67493E-02_JPRB,0.76290E-02_JPRB /)  
+KB(:,30, 9) = (/ &
+ & 0.45394E-02_JPRB,0.50868E-02_JPRB,0.57419E-02_JPRB,0.65213E-02_JPRB,0.74390E-02_JPRB /)  
+KB(:,31, 9) = (/ &
+ & 0.42997E-02_JPRB,0.48721E-02_JPRB,0.55579E-02_JPRB,0.63736E-02_JPRB,0.73370E-02_JPRB /)  
+KB(:,32, 9) = (/ &
+ & 0.41212E-02_JPRB,0.47209E-02_JPRB,0.54422E-02_JPRB,0.62987E-02_JPRB,0.73128E-02_JPRB /)  
+KB(:,33, 9) = (/ &
+ & 0.39976E-02_JPRB,0.46295E-02_JPRB,0.53893E-02_JPRB,0.62949E-02_JPRB,0.73658E-02_JPRB /)  
+KB(:,34, 9) = (/ &
+ & 0.39007E-02_JPRB,0.45672E-02_JPRB,0.53672E-02_JPRB,0.63167E-02_JPRB,0.74374E-02_JPRB /)  
+KB(:,35, 9) = (/ &
+ & 0.37869E-02_JPRB,0.44770E-02_JPRB,0.53019E-02_JPRB,0.62849E-02_JPRB,0.74424E-02_JPRB /)  
+KB(:,36, 9) = (/ &
+ & 0.36393E-02_JPRB,0.43376E-02_JPRB,0.51746E-02_JPRB,0.61726E-02_JPRB,0.73435E-02_JPRB /)  
+KB(:,37, 9) = (/ &
+ & 0.34235E-02_JPRB,0.41098E-02_JPRB,0.49353E-02_JPRB,0.59226E-02_JPRB,0.70781E-02_JPRB /)  
+KB(:,38, 9) = (/ &
+ & 0.32247E-02_JPRB,0.38981E-02_JPRB,0.47125E-02_JPRB,0.56849E-02_JPRB,0.68251E-02_JPRB /)  
+KB(:,39, 9) = (/ &
+ & 0.30456E-02_JPRB,0.37107E-02_JPRB,0.45116E-02_JPRB,0.54683E-02_JPRB,0.65906E-02_JPRB /)  
+KB(:,40, 9) = (/ &
+ & 0.28232E-02_JPRB,0.34654E-02_JPRB,0.42389E-02_JPRB,0.51610E-02_JPRB,0.62484E-02_JPRB /)  
+KB(:,41, 9) = (/ &
+ & 0.26119E-02_JPRB,0.32290E-02_JPRB,0.39730E-02_JPRB,0.48613E-02_JPRB,0.59121E-02_JPRB /)  
+KB(:,42, 9) = (/ &
+ & 0.24180E-02_JPRB,0.30088E-02_JPRB,0.37246E-02_JPRB,0.45813E-02_JPRB,0.55929E-02_JPRB /)  
+KB(:,43, 9) = (/ &
+ & 0.22093E-02_JPRB,0.27691E-02_JPRB,0.34494E-02_JPRB,0.42630E-02_JPRB,0.52317E-02_JPRB /)  
+KB(:,44, 9) = (/ &
+ & 0.20033E-02_JPRB,0.25304E-02_JPRB,0.31741E-02_JPRB,0.39439E-02_JPRB,0.48637E-02_JPRB /)  
+KB(:,45, 9) = (/ &
+ & 0.18130E-02_JPRB,0.23086E-02_JPRB,0.29181E-02_JPRB,0.36487E-02_JPRB,0.45175E-02_JPRB /)  
+KB(:,46, 9) = (/ &
+ & 0.16283E-02_JPRB,0.20910E-02_JPRB,0.26646E-02_JPRB,0.33526E-02_JPRB,0.41695E-02_JPRB /)  
+KB(:,47, 9) = (/ &
+ & 0.14435E-02_JPRB,0.18702E-02_JPRB,0.24020E-02_JPRB,0.30439E-02_JPRB,0.38103E-02_JPRB /)  
+KB(:,48, 9) = (/ &
+ & 0.12773E-02_JPRB,0.16671E-02_JPRB,0.21576E-02_JPRB,0.27587E-02_JPRB,0.34731E-02_JPRB /)  
+KB(:,49, 9) = (/ &
+ & 0.11238E-02_JPRB,0.14806E-02_JPRB,0.19320E-02_JPRB,0.24920E-02_JPRB,0.31602E-02_JPRB /)  
+KB(:,50, 9) = (/ &
+ & 0.99065E-03_JPRB,0.13211E-02_JPRB,0.17354E-02_JPRB,0.22582E-02_JPRB,0.28857E-02_JPRB /)  
+KB(:,51, 9) = (/ &
+ & 0.87220E-03_JPRB,0.11790E-02_JPRB,0.15607E-02_JPRB,0.20453E-02_JPRB,0.26367E-02_JPRB /)  
+KB(:,52, 9) = (/ &
+ & 0.76443E-03_JPRB,0.10482E-02_JPRB,0.13992E-02_JPRB,0.18469E-02_JPRB,0.24023E-02_JPRB /)  
+KB(:,53, 9) = (/ &
+ & 0.66506E-03_JPRB,0.92645E-03_JPRB,0.12548E-02_JPRB,0.16624E-02_JPRB,0.21789E-02_JPRB /)  
+KB(:,54, 9) = (/ &
+ & 0.58147E-03_JPRB,0.82449E-03_JPRB,0.11302E-02_JPRB,0.15093E-02_JPRB,0.19886E-02_JPRB /)  
+KB(:,55, 9) = (/ &
+ & 0.50762E-03_JPRB,0.73235E-03_JPRB,0.10182E-02_JPRB,0.13732E-02_JPRB,0.18200E-02_JPRB /)  
+KB(:,56, 9) = (/ &
+ & 0.44063E-03_JPRB,0.64710E-03_JPRB,0.91345E-03_JPRB,0.12471E-02_JPRB,0.16632E-02_JPRB /)  
+KB(:,57, 9) = (/ &
+ & 0.37891E-03_JPRB,0.56859E-03_JPRB,0.81680E-03_JPRB,0.11290E-02_JPRB,0.15165E-02_JPRB /)  
+KB(:,58, 9) = (/ &
+ & 0.32563E-03_JPRB,0.50022E-03_JPRB,0.73037E-03_JPRB,0.10236E-02_JPRB,0.13873E-02_JPRB /)  
+KB(:,59, 9) = (/ &
+ & 0.30307E-03_JPRB,0.47208E-03_JPRB,0.69548E-03_JPRB,0.98198E-03_JPRB,0.13371E-02_JPRB /)  
+KB(:,13,10) = (/ &
+ & 0.13405E+00_JPRB,0.13208E+00_JPRB,0.13012E+00_JPRB,0.12819E+00_JPRB,0.12637E+00_JPRB /)  
+KB(:,14,10) = (/ &
+ & 0.11726E+00_JPRB,0.11549E+00_JPRB,0.11376E+00_JPRB,0.11219E+00_JPRB,0.11171E+00_JPRB /)  
+KB(:,15,10) = (/ &
+ & 0.10125E+00_JPRB,0.99749E-01_JPRB,0.98394E-01_JPRB,0.98385E-01_JPRB,0.99981E-01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART14',1,ZHOOK_HANDLE)
+END SUBROUTINE PART14
+
+
+SUBROUTINE PART15
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART15',0,ZHOOK_HANDLE)
+
+
+KB(:,16,10) = (/ &
+ & 0.86553E-01_JPRB,0.85383E-01_JPRB,0.85602E-01_JPRB,0.87440E-01_JPRB,0.89929E-01_JPRB /)  
+KB(:,17,10) = (/ &
+ & 0.73963E-01_JPRB,0.74028E-01_JPRB,0.75744E-01_JPRB,0.77969E-01_JPRB,0.80306E-01_JPRB /)  
+KB(:,18,10) = (/ &
+ & 0.64249E-01_JPRB,0.65620E-01_JPRB,0.67504E-01_JPRB,0.69584E-01_JPRB,0.72235E-01_JPRB /)  
+KB(:,19,10) = (/ &
+ & 0.56934E-01_JPRB,0.58613E-01_JPRB,0.60462E-01_JPRB,0.62855E-01_JPRB,0.65899E-01_JPRB /)  
+KB(:,20,10) = (/ &
+ & 0.50721E-01_JPRB,0.52418E-01_JPRB,0.54615E-01_JPRB,0.57565E-01_JPRB,0.61049E-01_JPRB /)  
+KB(:,21,10) = (/ &
+ & 0.45027E-01_JPRB,0.47161E-01_JPRB,0.49911E-01_JPRB,0.53249E-01_JPRB,0.56950E-01_JPRB /)  
+KB(:,22,10) = (/ &
+ & 0.40301E-01_JPRB,0.42891E-01_JPRB,0.46164E-01_JPRB,0.49801E-01_JPRB,0.53839E-01_JPRB /)  
+KB(:,23,10) = (/ &
+ & 0.36438E-01_JPRB,0.39487E-01_JPRB,0.43011E-01_JPRB,0.46965E-01_JPRB,0.50969E-01_JPRB /)  
+KB(:,24,10) = (/ &
+ & 0.33455E-01_JPRB,0.36675E-01_JPRB,0.40451E-01_JPRB,0.44369E-01_JPRB,0.48399E-01_JPRB /)  
+KB(:,25,10) = (/ &
+ & 0.31038E-01_JPRB,0.34461E-01_JPRB,0.38146E-01_JPRB,0.42075E-01_JPRB,0.46138E-01_JPRB /)  
+KB(:,26,10) = (/ &
+ & 0.29184E-01_JPRB,0.32533E-01_JPRB,0.36194E-01_JPRB,0.40134E-01_JPRB,0.44371E-01_JPRB /)  
+KB(:,27,10) = (/ &
+ & 0.27607E-01_JPRB,0.30907E-01_JPRB,0.34540E-01_JPRB,0.38584E-01_JPRB,0.43101E-01_JPRB /)  
+KB(:,28,10) = (/ &
+ & 0.26262E-01_JPRB,0.29536E-01_JPRB,0.33259E-01_JPRB,0.37529E-01_JPRB,0.42311E-01_JPRB /)  
+KB(:,29,10) = (/ &
+ & 0.25199E-01_JPRB,0.28472E-01_JPRB,0.32405E-01_JPRB,0.36927E-01_JPRB,0.42052E-01_JPRB /)  
+KB(:,30,10) = (/ &
+ & 0.24317E-01_JPRB,0.27783E-01_JPRB,0.31948E-01_JPRB,0.36772E-01_JPRB,0.42176E-01_JPRB /)  
+KB(:,31,10) = (/ &
+ & 0.23777E-01_JPRB,0.27457E-01_JPRB,0.31879E-01_JPRB,0.37001E-01_JPRB,0.42663E-01_JPRB /)  
+KB(:,32,10) = (/ &
+ & 0.23540E-01_JPRB,0.27481E-01_JPRB,0.32177E-01_JPRB,0.37596E-01_JPRB,0.43567E-01_JPRB /)  
+KB(:,33,10) = (/ &
+ & 0.23597E-01_JPRB,0.27797E-01_JPRB,0.32792E-01_JPRB,0.38465E-01_JPRB,0.44641E-01_JPRB /)  
+KB(:,34,10) = (/ &
+ & 0.23769E-01_JPRB,0.28231E-01_JPRB,0.33430E-01_JPRB,0.39373E-01_JPRB,0.45740E-01_JPRB /)  
+KB(:,35,10) = (/ &
+ & 0.23751E-01_JPRB,0.28376E-01_JPRB,0.33764E-01_JPRB,0.39814E-01_JPRB,0.46255E-01_JPRB /)  
+KB(:,36,10) = (/ &
+ & 0.23409E-01_JPRB,0.28117E-01_JPRB,0.33564E-01_JPRB,0.39651E-01_JPRB,0.46138E-01_JPRB /)  
+KB(:,37,10) = (/ &
+ & 0.22508E-01_JPRB,0.27169E-01_JPRB,0.32556E-01_JPRB,0.38592E-01_JPRB,0.45071E-01_JPRB /)  
+KB(:,38,10) = (/ &
+ & 0.21655E-01_JPRB,0.26262E-01_JPRB,0.31543E-01_JPRB,0.37540E-01_JPRB,0.43984E-01_JPRB /)  
+KB(:,39,10) = (/ &
+ & 0.20895E-01_JPRB,0.25391E-01_JPRB,0.30600E-01_JPRB,0.36519E-01_JPRB,0.42890E-01_JPRB /)  
+KB(:,40,10) = (/ &
+ & 0.19794E-01_JPRB,0.24108E-01_JPRB,0.29157E-01_JPRB,0.34891E-01_JPRB,0.41215E-01_JPRB /)  
+KB(:,41,10) = (/ &
+ & 0.18688E-01_JPRB,0.22822E-01_JPRB,0.27713E-01_JPRB,0.33302E-01_JPRB,0.39460E-01_JPRB /)  
+KB(:,42,10) = (/ &
+ & 0.17627E-01_JPRB,0.21623E-01_JPRB,0.26302E-01_JPRB,0.31747E-01_JPRB,0.37731E-01_JPRB /)  
+KB(:,43,10) = (/ &
+ & 0.16446E-01_JPRB,0.20270E-01_JPRB,0.24738E-01_JPRB,0.29940E-01_JPRB,0.35800E-01_JPRB /)  
+KB(:,44,10) = (/ &
+ & 0.15234E-01_JPRB,0.18876E-01_JPRB,0.23100E-01_JPRB,0.28072E-01_JPRB,0.33725E-01_JPRB /)  
+KB(:,45,10) = (/ &
+ & 0.14095E-01_JPRB,0.17542E-01_JPRB,0.21553E-01_JPRB,0.26276E-01_JPRB,0.31735E-01_JPRB /)  
+KB(:,46,10) = (/ &
+ & 0.12980E-01_JPRB,0.16215E-01_JPRB,0.20030E-01_JPRB,0.24474E-01_JPRB,0.29695E-01_JPRB /)  
+KB(:,47,10) = (/ &
+ & 0.11800E-01_JPRB,0.14839E-01_JPRB,0.18423E-01_JPRB,0.22582E-01_JPRB,0.27493E-01_JPRB /)  
+KB(:,48,10) = (/ &
+ & 0.10669E-01_JPRB,0.13547E-01_JPRB,0.16901E-01_JPRB,0.20822E-01_JPRB,0.25431E-01_JPRB /)  
+KB(:,49,10) = (/ &
+ & 0.96515E-02_JPRB,0.12347E-01_JPRB,0.15476E-01_JPRB,0.19181E-01_JPRB,0.23474E-01_JPRB /)  
+KB(:,50,10) = (/ &
+ & 0.87302E-02_JPRB,0.11282E-01_JPRB,0.14230E-01_JPRB,0.17719E-01_JPRB,0.21773E-01_JPRB /)  
+KB(:,51,10) = (/ &
+ & 0.78879E-02_JPRB,0.10297E-01_JPRB,0.13106E-01_JPRB,0.16387E-01_JPRB,0.20218E-01_JPRB /)  
+KB(:,52,10) = (/ &
+ & 0.71141E-02_JPRB,0.93631E-02_JPRB,0.12059E-01_JPRB,0.15140E-01_JPRB,0.18761E-01_JPRB /)  
+KB(:,53,10) = (/ &
+ & 0.64033E-02_JPRB,0.84706E-02_JPRB,0.11019E-01_JPRB,0.13962E-01_JPRB,0.17391E-01_JPRB /)  
+KB(:,54,10) = (/ &
+ & 0.58003E-02_JPRB,0.77325E-02_JPRB,0.10121E-01_JPRB,0.12913E-01_JPRB,0.16185E-01_JPRB /)  
+KB(:,55,10) = (/ &
+ & 0.52567E-02_JPRB,0.70672E-02_JPRB,0.93006E-02_JPRB,0.11949E-01_JPRB,0.15064E-01_JPRB /)  
+KB(:,56,10) = (/ &
+ & 0.47304E-02_JPRB,0.64466E-02_JPRB,0.85460E-02_JPRB,0.11037E-01_JPRB,0.13988E-01_JPRB /)  
+KB(:,57,10) = (/ &
+ & 0.42280E-02_JPRB,0.58745E-02_JPRB,0.78453E-02_JPRB,0.10192E-01_JPRB,0.12992E-01_JPRB /)  
+KB(:,58,10) = (/ &
+ & 0.37744E-02_JPRB,0.53584E-02_JPRB,0.72089E-02_JPRB,0.94309E-02_JPRB,0.12101E-01_JPRB /)  
+KB(:,59,10) = (/ &
+ & 0.36027E-02_JPRB,0.51588E-02_JPRB,0.69694E-02_JPRB,0.91382E-02_JPRB,0.11759E-01_JPRB /)  
+KB(:,13,11) = (/ &
+ & 0.24636E+00_JPRB,0.24379E+00_JPRB,0.24122E+00_JPRB,0.23863E+00_JPRB,0.23598E+00_JPRB /)  
+KB(:,14,11) = (/ &
+ & 0.22272E+00_JPRB,0.22032E+00_JPRB,0.21794E+00_JPRB,0.21559E+00_JPRB,0.21334E+00_JPRB /)  
+KB(:,15,11) = (/ &
+ & 0.19844E+00_JPRB,0.19619E+00_JPRB,0.19411E+00_JPRB,0.19222E+00_JPRB,0.19047E+00_JPRB /)  
+KB(:,16,11) = (/ &
+ & 0.17439E+00_JPRB,0.17254E+00_JPRB,0.17092E+00_JPRB,0.16946E+00_JPRB,0.16916E+00_JPRB /)  
+KB(:,17,11) = (/ &
+ & 0.15164E+00_JPRB,0.15027E+00_JPRB,0.14912E+00_JPRB,0.14939E+00_JPRB,0.15176E+00_JPRB /)  
+KB(:,18,11) = (/ &
+ & 0.13063E+00_JPRB,0.12971E+00_JPRB,0.13029E+00_JPRB,0.13302E+00_JPRB,0.13748E+00_JPRB /)  
+KB(:,19,11) = (/ &
+ & 0.11203E+00_JPRB,0.11247E+00_JPRB,0.11508E+00_JPRB,0.11959E+00_JPRB,0.12521E+00_JPRB /)  
+KB(:,20,11) = (/ &
+ & 0.96916E-01_JPRB,0.99041E-01_JPRB,0.10318E+00_JPRB,0.10837E+00_JPRB,0.11414E+00_JPRB /)  
+KB(:,21,11) = (/ &
+ & 0.85382E-01_JPRB,0.88824E-01_JPRB,0.93367E-01_JPRB,0.98603E-01_JPRB,0.10483E+00_JPRB /)  
+KB(:,22,11) = (/ &
+ & 0.76943E-01_JPRB,0.80844E-01_JPRB,0.85377E-01_JPRB,0.90964E-01_JPRB,0.97503E-01_JPRB /)  
+KB(:,23,11) = (/ &
+ & 0.70041E-01_JPRB,0.74136E-01_JPRB,0.79065E-01_JPRB,0.84905E-01_JPRB,0.92247E-01_JPRB /)  
+KB(:,24,11) = (/ &
+ & 0.64133E-01_JPRB,0.68708E-01_JPRB,0.74135E-01_JPRB,0.80762E-01_JPRB,0.88658E-01_JPRB /)  
+KB(:,25,11) = (/ &
+ & 0.59352E-01_JPRB,0.64474E-01_JPRB,0.70718E-01_JPRB,0.78064E-01_JPRB,0.86394E-01_JPRB /)  
+KB(:,26,11) = (/ &
+ & 0.55652E-01_JPRB,0.61613E-01_JPRB,0.68607E-01_JPRB,0.76451E-01_JPRB,0.85230E-01_JPRB /)  
+KB(:,27,11) = (/ &
+ & 0.53058E-01_JPRB,0.59792E-01_JPRB,0.67298E-01_JPRB,0.75623E-01_JPRB,0.84830E-01_JPRB /)  
+KB(:,28,11) = (/ &
+ & 0.51454E-01_JPRB,0.58747E-01_JPRB,0.66709E-01_JPRB,0.75478E-01_JPRB,0.85111E-01_JPRB /)  
+KB(:,29,11) = (/ &
+ & 0.50601E-01_JPRB,0.58412E-01_JPRB,0.66813E-01_JPRB,0.76014E-01_JPRB,0.86051E-01_JPRB /)  
+KB(:,30,11) = (/ &
+ & 0.50412E-01_JPRB,0.58677E-01_JPRB,0.67503E-01_JPRB,0.77079E-01_JPRB,0.87490E-01_JPRB /)  
+KB(:,31,11) = (/ &
+ & 0.50833E-01_JPRB,0.59491E-01_JPRB,0.68713E-01_JPRB,0.78659E-01_JPRB,0.89405E-01_JPRB /)  
+KB(:,32,11) = (/ &
+ & 0.51770E-01_JPRB,0.60792E-01_JPRB,0.70497E-01_JPRB,0.80769E-01_JPRB,0.91778E-01_JPRB /)  
+KB(:,33,11) = (/ &
+ & 0.53128E-01_JPRB,0.62590E-01_JPRB,0.72506E-01_JPRB,0.83033E-01_JPRB,0.94354E-01_JPRB /)  
+KB(:,34,11) = (/ &
+ & 0.54518E-01_JPRB,0.64238E-01_JPRB,0.74390E-01_JPRB,0.85011E-01_JPRB,0.96530E-01_JPRB /)  
+KB(:,35,11) = (/ &
+ & 0.55323E-01_JPRB,0.65129E-01_JPRB,0.75324E-01_JPRB,0.86085E-01_JPRB,0.97742E-01_JPRB /)  
+KB(:,36,11) = (/ &
+ & 0.55103E-01_JPRB,0.64989E-01_JPRB,0.75282E-01_JPRB,0.86060E-01_JPRB,0.97722E-01_JPRB /)  
+KB(:,37,11) = (/ &
+ & 0.53513E-01_JPRB,0.63398E-01_JPRB,0.73617E-01_JPRB,0.84326E-01_JPRB,0.95934E-01_JPRB /)  
+KB(:,38,11) = (/ &
+ & 0.51839E-01_JPRB,0.61729E-01_JPRB,0.71975E-01_JPRB,0.82585E-01_JPRB,0.94078E-01_JPRB /)  
+KB(:,39,11) = (/ &
+ & 0.50239E-01_JPRB,0.60161E-01_JPRB,0.70354E-01_JPRB,0.80923E-01_JPRB,0.92345E-01_JPRB /)  
+KB(:,40,11) = (/ &
+ & 0.47749E-01_JPRB,0.57519E-01_JPRB,0.67663E-01_JPRB,0.78238E-01_JPRB,0.89341E-01_JPRB /)  
+KB(:,41,11) = (/ &
+ & 0.45220E-01_JPRB,0.54835E-01_JPRB,0.64881E-01_JPRB,0.75369E-01_JPRB,0.86308E-01_JPRB /)  
+KB(:,42,11) = (/ &
+ & 0.42768E-01_JPRB,0.52225E-01_JPRB,0.62107E-01_JPRB,0.72467E-01_JPRB,0.83297E-01_JPRB /)  
+KB(:,43,11) = (/ &
+ & 0.39884E-01_JPRB,0.49090E-01_JPRB,0.58932E-01_JPRB,0.69072E-01_JPRB,0.79690E-01_JPRB /)  
+KB(:,44,11) = (/ &
+ & 0.36935E-01_JPRB,0.45822E-01_JPRB,0.55523E-01_JPRB,0.65525E-01_JPRB,0.76019E-01_JPRB /)  
+KB(:,45,11) = (/ &
+ & 0.34132E-01_JPRB,0.42684E-01_JPRB,0.52151E-01_JPRB,0.62095E-01_JPRB,0.72392E-01_JPRB /)  
+KB(:,46,11) = (/ &
+ & 0.31296E-01_JPRB,0.39456E-01_JPRB,0.48596E-01_JPRB,0.58446E-01_JPRB,0.68612E-01_JPRB /)  
+KB(:,47,11) = (/ &
+ & 0.28352E-01_JPRB,0.35994E-01_JPRB,0.44764E-01_JPRB,0.54432E-01_JPRB,0.64443E-01_JPRB /)  
+KB(:,48,11) = (/ &
+ & 0.25659E-01_JPRB,0.32738E-01_JPRB,0.41113E-01_JPRB,0.50437E-01_JPRB,0.60364E-01_JPRB /)  
+KB(:,49,11) = (/ &
+ & 0.23119E-01_JPRB,0.29700E-01_JPRB,0.37617E-01_JPRB,0.46554E-01_JPRB,0.56334E-01_JPRB /)  
+KB(:,50,11) = (/ &
+ & 0.20913E-01_JPRB,0.27063E-01_JPRB,0.34504E-01_JPRB,0.43055E-01_JPRB,0.52582E-01_JPRB /)  
+KB(:,51,11) = (/ &
+ & 0.18909E-01_JPRB,0.24701E-01_JPRB,0.31626E-01_JPRB,0.39797E-01_JPRB,0.48997E-01_JPRB /)  
+KB(:,52,11) = (/ &
+ & 0.17085E-01_JPRB,0.22478E-01_JPRB,0.28924E-01_JPRB,0.36689E-01_JPRB,0.45522E-01_JPRB /)  
+KB(:,53,11) = (/ &
+ & 0.15363E-01_JPRB,0.20405E-01_JPRB,0.26432E-01_JPRB,0.33725E-01_JPRB,0.42180E-01_JPRB /)  
+KB(:,54,11) = (/ &
+ & 0.13901E-01_JPRB,0.18604E-01_JPRB,0.24309E-01_JPRB,0.31149E-01_JPRB,0.39236E-01_JPRB /)  
+KB(:,55,11) = (/ &
+ & 0.12627E-01_JPRB,0.16988E-01_JPRB,0.22381E-01_JPRB,0.28834E-01_JPRB,0.36535E-01_JPRB /)  
+KB(:,56,11) = (/ &
+ & 0.11410E-01_JPRB,0.15484E-01_JPRB,0.20536E-01_JPRB,0.26668E-01_JPRB,0.33955E-01_JPRB /)  
+KB(:,57,11) = (/ &
+ & 0.10296E-01_JPRB,0.14074E-01_JPRB,0.18805E-01_JPRB,0.24610E-01_JPRB,0.31477E-01_JPRB /)  
+KB(:,58,11) = (/ &
+ & 0.93246E-02_JPRB,0.12835E-01_JPRB,0.17266E-01_JPRB,0.22752E-01_JPRB,0.29238E-01_JPRB /)  
+KB(:,59,11) = (/ &
+ & 0.89562E-02_JPRB,0.12359E-01_JPRB,0.16676E-01_JPRB,0.22030E-01_JPRB,0.28380E-01_JPRB /)  
+KB(:,13,12) = (/ &
+ & 0.46920E+00_JPRB,0.46679E+00_JPRB,0.46431E+00_JPRB,0.46162E+00_JPRB,0.45841E+00_JPRB /)  
+KB(:,14,12) = (/ &
+ & 0.44978E+00_JPRB,0.44747E+00_JPRB,0.44532E+00_JPRB,0.44273E+00_JPRB,0.44032E+00_JPRB /)  
+KB(:,15,12) = (/ &
+ & 0.42273E+00_JPRB,0.42112E+00_JPRB,0.41952E+00_JPRB,0.41793E+00_JPRB,0.41621E+00_JPRB /)  
+KB(:,16,12) = (/ &
+ & 0.39050E+00_JPRB,0.38973E+00_JPRB,0.38909E+00_JPRB,0.38861E+00_JPRB,0.38845E+00_JPRB /)  
+KB(:,17,12) = (/ &
+ & 0.35567E+00_JPRB,0.35584E+00_JPRB,0.35648E+00_JPRB,0.35743E+00_JPRB,0.35846E+00_JPRB /)  
+KB(:,18,12) = (/ &
+ & 0.32023E+00_JPRB,0.32164E+00_JPRB,0.32356E+00_JPRB,0.32582E+00_JPRB,0.32854E+00_JPRB /)  
+KB(:,19,12) = (/ &
+ & 0.28599E+00_JPRB,0.28851E+00_JPRB,0.29173E+00_JPRB,0.29552E+00_JPRB,0.30048E+00_JPRB /)  
+KB(:,20,12) = (/ &
+ & 0.25381E+00_JPRB,0.25750E+00_JPRB,0.26208E+00_JPRB,0.26822E+00_JPRB,0.27683E+00_JPRB /)  
+KB(:,21,12) = (/ &
+ & 0.22440E+00_JPRB,0.22938E+00_JPRB,0.23617E+00_JPRB,0.24559E+00_JPRB,0.25713E+00_JPRB /)  
+KB(:,22,12) = (/ &
+ & 0.19852E+00_JPRB,0.20554E+00_JPRB,0.21550E+00_JPRB,0.22788E+00_JPRB,0.24207E+00_JPRB /)  
+KB(:,23,12) = (/ &
+ & 0.17693E+00_JPRB,0.18660E+00_JPRB,0.19922E+00_JPRB,0.21410E+00_JPRB,0.23064E+00_JPRB /)  
+KB(:,24,12) = (/ &
+ & 0.16009E+00_JPRB,0.17209E+00_JPRB,0.18673E+00_JPRB,0.20389E+00_JPRB,0.22257E+00_JPRB /)  
+KB(:,25,12) = (/ &
+ & 0.14745E+00_JPRB,0.16127E+00_JPRB,0.17793E+00_JPRB,0.19685E+00_JPRB,0.21752E+00_JPRB /)  
+KB(:,26,12) = (/ &
+ & 0.13842E+00_JPRB,0.15401E+00_JPRB,0.17237E+00_JPRB,0.19313E+00_JPRB,0.21550E+00_JPRB /)  
+KB(:,27,12) = (/ &
+ & 0.13240E+00_JPRB,0.14962E+00_JPRB,0.16961E+00_JPRB,0.19199E+00_JPRB,0.21568E+00_JPRB /)  
+KB(:,28,12) = (/ &
+ & 0.12889E+00_JPRB,0.14761E+00_JPRB,0.16917E+00_JPRB,0.19286E+00_JPRB,0.21743E+00_JPRB /)  
+KB(:,29,12) = (/ &
+ & 0.12765E+00_JPRB,0.14781E+00_JPRB,0.17068E+00_JPRB,0.19527E+00_JPRB,0.22046E+00_JPRB /)  
+KB(:,30,12) = (/ &
+ & 0.12821E+00_JPRB,0.14964E+00_JPRB,0.17352E+00_JPRB,0.19873E+00_JPRB,0.22436E+00_JPRB /)  
+KB(:,31,12) = (/ &
+ & 0.13031E+00_JPRB,0.15282E+00_JPRB,0.17742E+00_JPRB,0.20308E+00_JPRB,0.22902E+00_JPRB /)  
+KB(:,32,12) = (/ &
+ & 0.13354E+00_JPRB,0.15691E+00_JPRB,0.18189E+00_JPRB,0.20791E+00_JPRB,0.23394E+00_JPRB /)  
+KB(:,33,12) = (/ &
+ & 0.13759E+00_JPRB,0.16158E+00_JPRB,0.18710E+00_JPRB,0.21336E+00_JPRB,0.23934E+00_JPRB /)  
+KB(:,34,12) = (/ &
+ & 0.14143E+00_JPRB,0.16592E+00_JPRB,0.19181E+00_JPRB,0.21830E+00_JPRB,0.24425E+00_JPRB /)  
+KB(:,35,12) = (/ &
+ & 0.14328E+00_JPRB,0.16813E+00_JPRB,0.19433E+00_JPRB,0.22092E+00_JPRB,0.24688E+00_JPRB /)  
+KB(:,36,12) = (/ &
+ & 0.14288E+00_JPRB,0.16783E+00_JPRB,0.19405E+00_JPRB,0.22076E+00_JPRB,0.24684E+00_JPRB /)  
+KB(:,37,12) = (/ &
+ & 0.13900E+00_JPRB,0.16377E+00_JPRB,0.19000E+00_JPRB,0.21677E+00_JPRB,0.24302E+00_JPRB /)  
+KB(:,38,12) = (/ &
+ & 0.13517E+00_JPRB,0.15969E+00_JPRB,0.18575E+00_JPRB,0.21259E+00_JPRB,0.23902E+00_JPRB /)  
+KB(:,39,12) = (/ &
+ & 0.13148E+00_JPRB,0.15568E+00_JPRB,0.18162E+00_JPRB,0.20849E+00_JPRB,0.23507E+00_JPRB /)  
+KB(:,40,12) = (/ &
+ & 0.12553E+00_JPRB,0.14932E+00_JPRB,0.17494E+00_JPRB,0.20171E+00_JPRB,0.22853E+00_JPRB /)  
+KB(:,41,12) = (/ &
+ & 0.11952E+00_JPRB,0.14280E+00_JPRB,0.16803E+00_JPRB,0.19459E+00_JPRB,0.22156E+00_JPRB /)  
+KB(:,42,12) = (/ &
+ & 0.11373E+00_JPRB,0.13636E+00_JPRB,0.16129E+00_JPRB,0.18763E+00_JPRB,0.21464E+00_JPRB /)  
+KB(:,43,12) = (/ &
+ & 0.10701E+00_JPRB,0.12880E+00_JPRB,0.15312E+00_JPRB,0.17916E+00_JPRB,0.20617E+00_JPRB /)  
+KB(:,44,12) = (/ &
+ & 0.10010E+00_JPRB,0.12097E+00_JPRB,0.14449E+00_JPRB,0.17006E+00_JPRB,0.19689E+00_JPRB /)  
+KB(:,45,12) = (/ &
+ & 0.93559E-01_JPRB,0.11347E+00_JPRB,0.13614E+00_JPRB,0.16117E+00_JPRB,0.18764E+00_JPRB /)  
+KB(:,46,12) = (/ &
+ & 0.86985E-01_JPRB,0.10587E+00_JPRB,0.12759E+00_JPRB,0.15183E+00_JPRB,0.17790E+00_JPRB /)  
+KB(:,47,12) = (/ &
+ & 0.79918E-01_JPRB,0.97829E-01_JPRB,0.11842E+00_JPRB,0.14172E+00_JPRB,0.16718E+00_JPRB /)  
+KB(:,48,12) = (/ &
+ & 0.73127E-01_JPRB,0.90284E-01_JPRB,0.10972E+00_JPRB,0.13198E+00_JPRB,0.15666E+00_JPRB /)  
+KB(:,49,12) = (/ &
+ & 0.66713E-01_JPRB,0.83137E-01_JPRB,0.10149E+00_JPRB,0.12264E+00_JPRB,0.14642E+00_JPRB /)  
+KB(:,50,12) = (/ &
+ & 0.61017E-01_JPRB,0.76653E-01_JPRB,0.94210E-01_JPRB,0.11429E+00_JPRB,0.13713E+00_JPRB /)  
+KB(:,51,12) = (/ &
+ & 0.55806E-01_JPRB,0.70628E-01_JPRB,0.87552E-01_JPRB,0.10658E+00_JPRB,0.12844E+00_JPRB /)  
+KB(:,52,12) = (/ &
+ & 0.50954E-01_JPRB,0.64939E-01_JPRB,0.81159E-01_JPRB,0.99264E-01_JPRB,0.12011E+00_JPRB /)  
+KB(:,53,12) = (/ &
+ & 0.46354E-01_JPRB,0.59512E-01_JPRB,0.74951E-01_JPRB,0.92338E-01_JPRB,0.11214E+00_JPRB /)  
+KB(:,54,12) = (/ &
+ & 0.42433E-01_JPRB,0.54851E-01_JPRB,0.69504E-01_JPRB,0.86317E-01_JPRB,0.10517E+00_JPRB /)  
+KB(:,55,12) = (/ &
+ & 0.38912E-01_JPRB,0.50588E-01_JPRB,0.64547E-01_JPRB,0.80719E-01_JPRB,0.98779E-01_JPRB /)  
+KB(:,56,12) = (/ &
+ & 0.35756E-01_JPRB,0.46572E-01_JPRB,0.59794E-01_JPRB,0.75289E-01_JPRB,0.92719E-01_JPRB /)  
+KB(:,57,12) = (/ &
+ & 0.32896E-01_JPRB,0.42811E-01_JPRB,0.55328E-01_JPRB,0.70070E-01_JPRB,0.86950E-01_JPRB /)  
+KB(:,58,12) = (/ &
+ & 0.30447E-01_JPRB,0.39485E-01_JPRB,0.51269E-01_JPRB,0.65351E-01_JPRB,0.81643E-01_JPRB /)  
+KB(:,59,12) = (/ &
+ & 0.29531E-01_JPRB,0.38222E-01_JPRB,0.49696E-01_JPRB,0.63514E-01_JPRB,0.79546E-01_JPRB /)  
+KB(:,13,13) = (/ &
+ & 0.87498E+00_JPRB,0.87414E+00_JPRB,0.87195E+00_JPRB,0.86869E+00_JPRB,0.86437E+00_JPRB /)  
+KB(:,14,13) = (/ &
+ & 0.90060E+00_JPRB,0.89974E+00_JPRB,0.89734E+00_JPRB,0.89423E+00_JPRB,0.88971E+00_JPRB /)  
+KB(:,15,13) = (/ &
+ & 0.91305E+00_JPRB,0.91211E+00_JPRB,0.91072E+00_JPRB,0.90792E+00_JPRB,0.90457E+00_JPRB /)  
+KB(:,16,13) = (/ &
+ & 0.91218E+00_JPRB,0.91265E+00_JPRB,0.91216E+00_JPRB,0.91150E+00_JPRB,0.90908E+00_JPRB /)  
+KB(:,17,13) = (/ &
+ & 0.89877E+00_JPRB,0.90187E+00_JPRB,0.90414E+00_JPRB,0.90531E+00_JPRB,0.90588E+00_JPRB /)  
+KB(:,18,13) = (/ &
+ & 0.87718E+00_JPRB,0.88256E+00_JPRB,0.88815E+00_JPRB,0.89271E+00_JPRB,0.89636E+00_JPRB /)  
+KB(:,19,13) = (/ &
+ & 0.84784E+00_JPRB,0.85815E+00_JPRB,0.86718E+00_JPRB,0.87552E+00_JPRB,0.88267E+00_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART15',1,ZHOOK_HANDLE)
+END SUBROUTINE PART15
+
+
+SUBROUTINE PART16
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART16',0,ZHOOK_HANDLE)
+
+
+KB(:,20,13) = (/ &
+ & 0.81552E+00_JPRB,0.83012E+00_JPRB,0.84379E+00_JPRB,0.85649E+00_JPRB,0.86736E+00_JPRB /)  
+KB(:,21,13) = (/ &
+ & 0.78216E+00_JPRB,0.80141E+00_JPRB,0.82018E+00_JPRB,0.83708E+00_JPRB,0.85197E+00_JPRB /)  
+KB(:,22,13) = (/ &
+ & 0.75119E+00_JPRB,0.77590E+00_JPRB,0.79904E+00_JPRB,0.81994E+00_JPRB,0.83870E+00_JPRB /)  
+KB(:,23,13) = (/ &
+ & 0.72390E+00_JPRB,0.75373E+00_JPRB,0.78079E+00_JPRB,0.80579E+00_JPRB,0.82760E+00_JPRB /)  
+KB(:,24,13) = (/ &
+ & 0.70145E+00_JPRB,0.73523E+00_JPRB,0.76640E+00_JPRB,0.79456E+00_JPRB,0.81899E+00_JPRB /)  
+KB(:,25,13) = (/ &
+ & 0.68406E+00_JPRB,0.72159E+00_JPRB,0.75604E+00_JPRB,0.78669E+00_JPRB,0.81321E+00_JPRB /)  
+KB(:,26,13) = (/ &
+ & 0.67200E+00_JPRB,0.71253E+00_JPRB,0.74968E+00_JPRB,0.78214E+00_JPRB,0.81015E+00_JPRB /)  
+KB(:,27,13) = (/ &
+ & 0.66447E+00_JPRB,0.70740E+00_JPRB,0.74639E+00_JPRB,0.77996E+00_JPRB,0.80903E+00_JPRB /)  
+KB(:,28,13) = (/ &
+ & 0.66095E+00_JPRB,0.70586E+00_JPRB,0.74565E+00_JPRB,0.77995E+00_JPRB,0.80973E+00_JPRB /)  
+KB(:,29,13) = (/ &
+ & 0.66138E+00_JPRB,0.70727E+00_JPRB,0.74725E+00_JPRB,0.78204E+00_JPRB,0.81205E+00_JPRB /)  
+KB(:,30,13) = (/ &
+ & 0.66437E+00_JPRB,0.71055E+00_JPRB,0.75066E+00_JPRB,0.78572E+00_JPRB,0.81538E+00_JPRB /)  
+KB(:,31,13) = (/ &
+ & 0.66969E+00_JPRB,0.71558E+00_JPRB,0.75561E+00_JPRB,0.79049E+00_JPRB,0.81954E+00_JPRB /)  
+KB(:,32,13) = (/ &
+ & 0.67664E+00_JPRB,0.72206E+00_JPRB,0.76182E+00_JPRB,0.79609E+00_JPRB,0.82431E+00_JPRB /)  
+KB(:,33,13) = (/ &
+ & 0.68486E+00_JPRB,0.72960E+00_JPRB,0.76872E+00_JPRB,0.80214E+00_JPRB,0.82949E+00_JPRB /)  
+KB(:,34,13) = (/ &
+ & 0.69234E+00_JPRB,0.73624E+00_JPRB,0.77485E+00_JPRB,0.80729E+00_JPRB,0.83397E+00_JPRB /)  
+KB(:,35,13) = (/ &
+ & 0.69580E+00_JPRB,0.73958E+00_JPRB,0.77791E+00_JPRB,0.80990E+00_JPRB,0.83618E+00_JPRB /)  
+KB(:,36,13) = (/ &
+ & 0.69461E+00_JPRB,0.73878E+00_JPRB,0.77738E+00_JPRB,0.80959E+00_JPRB,0.83608E+00_JPRB /)  
+KB(:,37,13) = (/ &
+ & 0.68652E+00_JPRB,0.73194E+00_JPRB,0.77165E+00_JPRB,0.80500E+00_JPRB,0.83229E+00_JPRB /)  
+KB(:,38,13) = (/ &
+ & 0.67804E+00_JPRB,0.72484E+00_JPRB,0.76560E+00_JPRB,0.80009E+00_JPRB,0.82834E+00_JPRB /)  
+KB(:,39,13) = (/ &
+ & 0.66970E+00_JPRB,0.71778E+00_JPRB,0.75963E+00_JPRB,0.79504E+00_JPRB,0.82429E+00_JPRB /)  
+KB(:,40,13) = (/ &
+ & 0.65605E+00_JPRB,0.70590E+00_JPRB,0.74946E+00_JPRB,0.78658E+00_JPRB,0.81742E+00_JPRB /)  
+KB(:,41,13) = (/ &
+ & 0.64137E+00_JPRB,0.69306E+00_JPRB,0.73837E+00_JPRB,0.77717E+00_JPRB,0.80985E+00_JPRB /)  
+KB(:,42,13) = (/ &
+ & 0.62638E+00_JPRB,0.67987E+00_JPRB,0.72699E+00_JPRB,0.76756E+00_JPRB,0.80186E+00_JPRB /)  
+KB(:,43,13) = (/ &
+ & 0.60761E+00_JPRB,0.66320E+00_JPRB,0.71239E+00_JPRB,0.75526E+00_JPRB,0.79130E+00_JPRB /)  
+KB(:,44,13) = (/ &
+ & 0.58682E+00_JPRB,0.64468E+00_JPRB,0.69616E+00_JPRB,0.74131E+00_JPRB,0.77948E+00_JPRB /)  
+KB(:,45,13) = (/ &
+ & 0.56554E+00_JPRB,0.62545E+00_JPRB,0.67917E+00_JPRB,0.72630E+00_JPRB,0.76697E+00_JPRB /)  
+KB(:,46,13) = (/ &
+ & 0.54212E+00_JPRB,0.60419E+00_JPRB,0.66020E+00_JPRB,0.70997E+00_JPRB,0.75300E+00_JPRB /)  
+KB(:,47,13) = (/ &
+ & 0.51537E+00_JPRB,0.57955E+00_JPRB,0.63814E+00_JPRB,0.69060E+00_JPRB,0.73632E+00_JPRB /)  
+KB(:,48,13) = (/ &
+ & 0.48823E+00_JPRB,0.55406E+00_JPRB,0.61515E+00_JPRB,0.67007E+00_JPRB,0.71851E+00_JPRB /)  
+KB(:,49,13) = (/ &
+ & 0.46082E+00_JPRB,0.52769E+00_JPRB,0.59101E+00_JPRB,0.64854E+00_JPRB,0.69978E+00_JPRB /)  
+KB(:,50,13) = (/ &
+ & 0.43478E+00_JPRB,0.50249E+00_JPRB,0.56761E+00_JPRB,0.62745E+00_JPRB,0.68113E+00_JPRB /)  
+KB(:,51,13) = (/ &
+ & 0.40951E+00_JPRB,0.47777E+00_JPRB,0.54418E+00_JPRB,0.60613E+00_JPRB,0.66212E+00_JPRB /)  
+KB(:,52,13) = (/ &
+ & 0.38439E+00_JPRB,0.45288E+00_JPRB,0.52007E+00_JPRB,0.58405E+00_JPRB,0.64238E+00_JPRB /)  
+KB(:,53,13) = (/ &
+ & 0.35936E+00_JPRB,0.42773E+00_JPRB,0.49564E+00_JPRB,0.56121E+00_JPRB,0.62177E+00_JPRB /)  
+KB(:,54,13) = (/ &
+ & 0.33659E+00_JPRB,0.40461E+00_JPRB,0.47296E+00_JPRB,0.53959E+00_JPRB,0.60208E+00_JPRB /)  
+KB(:,55,13) = (/ &
+ & 0.31505E+00_JPRB,0.38259E+00_JPRB,0.45108E+00_JPRB,0.51845E+00_JPRB,0.58256E+00_JPRB /)  
+KB(:,56,13) = (/ &
+ & 0.29381E+00_JPRB,0.36074E+00_JPRB,0.42910E+00_JPRB,0.49702E+00_JPRB,0.56263E+00_JPRB /)  
+KB(:,57,13) = (/ &
+ & 0.27284E+00_JPRB,0.33897E+00_JPRB,0.40701E+00_JPRB,0.47542E+00_JPRB,0.54206E+00_JPRB /)  
+KB(:,58,13) = (/ &
+ & 0.25321E+00_JPRB,0.31859E+00_JPRB,0.38622E+00_JPRB,0.45477E+00_JPRB,0.52205E+00_JPRB /)  
+KB(:,59,13) = (/ &
+ & 0.24543E+00_JPRB,0.31049E+00_JPRB,0.37793E+00_JPRB,0.44646E+00_JPRB,0.51396E+00_JPRB /)  
+KB(:,13,14) = (/ &
+ & 0.17373E+01_JPRB,0.17393E+01_JPRB,0.17383E+01_JPRB,0.17344E+01_JPRB,0.17279E+01_JPRB /)  
+KB(:,14,14) = (/ &
+ & 0.18339E+01_JPRB,0.18343E+01_JPRB,0.18325E+01_JPRB,0.18267E+01_JPRB,0.18189E+01_JPRB /)  
+KB(:,15,14) = (/ &
+ & 0.19299E+01_JPRB,0.19296E+01_JPRB,0.19248E+01_JPRB,0.19184E+01_JPRB,0.19080E+01_JPRB /)  
+KB(:,16,14) = (/ &
+ & 0.20259E+01_JPRB,0.20224E+01_JPRB,0.20169E+01_JPRB,0.20066E+01_JPRB,0.19945E+01_JPRB /)  
+KB(:,17,14) = (/ &
+ & 0.21175E+01_JPRB,0.21127E+01_JPRB,0.21039E+01_JPRB,0.20921E+01_JPRB,0.20768E+01_JPRB /)  
+KB(:,18,14) = (/ &
+ & 0.22042E+01_JPRB,0.21972E+01_JPRB,0.21859E+01_JPRB,0.21721E+01_JPRB,0.21537E+01_JPRB /)  
+KB(:,19,14) = (/ &
+ & 0.22848E+01_JPRB,0.22747E+01_JPRB,0.22622E+01_JPRB,0.22448E+01_JPRB,0.22240E+01_JPRB /)  
+KB(:,20,14) = (/ &
+ & 0.23560E+01_JPRB,0.23462E+01_JPRB,0.23302E+01_JPRB,0.23098E+01_JPRB,0.22867E+01_JPRB /)  
+KB(:,21,14) = (/ &
+ & 0.24183E+01_JPRB,0.24082E+01_JPRB,0.23905E+01_JPRB,0.23680E+01_JPRB,0.23418E+01_JPRB /)  
+KB(:,22,14) = (/ &
+ & 0.24717E+01_JPRB,0.24598E+01_JPRB,0.24413E+01_JPRB,0.24169E+01_JPRB,0.23867E+01_JPRB /)  
+KB(:,23,14) = (/ &
+ & 0.25171E+01_JPRB,0.25034E+01_JPRB,0.24840E+01_JPRB,0.24570E+01_JPRB,0.24242E+01_JPRB /)  
+KB(:,24,14) = (/ &
+ & 0.25547E+01_JPRB,0.25403E+01_JPRB,0.25194E+01_JPRB,0.24898E+01_JPRB,0.24547E+01_JPRB /)  
+KB(:,25,14) = (/ &
+ & 0.25855E+01_JPRB,0.25703E+01_JPRB,0.25468E+01_JPRB,0.25156E+01_JPRB,0.24784E+01_JPRB /)  
+KB(:,26,14) = (/ &
+ & 0.26110E+01_JPRB,0.25944E+01_JPRB,0.25683E+01_JPRB,0.25352E+01_JPRB,0.24957E+01_JPRB /)  
+KB(:,27,14) = (/ &
+ & 0.26319E+01_JPRB,0.26130E+01_JPRB,0.25843E+01_JPRB,0.25495E+01_JPRB,0.25077E+01_JPRB /)  
+KB(:,28,14) = (/ &
+ & 0.26480E+01_JPRB,0.26264E+01_JPRB,0.25959E+01_JPRB,0.25590E+01_JPRB,0.25150E+01_JPRB /)  
+KB(:,29,14) = (/ &
+ & 0.26603E+01_JPRB,0.26355E+01_JPRB,0.26036E+01_JPRB,0.25644E+01_JPRB,0.25186E+01_JPRB /)  
+KB(:,30,14) = (/ &
+ & 0.26690E+01_JPRB,0.26417E+01_JPRB,0.26076E+01_JPRB,0.25661E+01_JPRB,0.25188E+01_JPRB /)  
+KB(:,31,14) = (/ &
+ & 0.26742E+01_JPRB,0.26446E+01_JPRB,0.26086E+01_JPRB,0.25648E+01_JPRB,0.25163E+01_JPRB /)  
+KB(:,32,14) = (/ &
+ & 0.26768E+01_JPRB,0.26452E+01_JPRB,0.26068E+01_JPRB,0.25609E+01_JPRB,0.25113E+01_JPRB /)  
+KB(:,33,14) = (/ &
+ & 0.26771E+01_JPRB,0.26434E+01_JPRB,0.26028E+01_JPRB,0.25551E+01_JPRB,0.25044E+01_JPRB /)  
+KB(:,34,14) = (/ &
+ & 0.26762E+01_JPRB,0.26409E+01_JPRB,0.25981E+01_JPRB,0.25494E+01_JPRB,0.24981E+01_JPRB /)  
+KB(:,35,14) = (/ &
+ & 0.26773E+01_JPRB,0.26407E+01_JPRB,0.25970E+01_JPRB,0.25475E+01_JPRB,0.24957E+01_JPRB /)  
+KB(:,36,14) = (/ &
+ & 0.26808E+01_JPRB,0.26440E+01_JPRB,0.25999E+01_JPRB,0.25501E+01_JPRB,0.24981E+01_JPRB /)  
+KB(:,37,14) = (/ &
+ & 0.26888E+01_JPRB,0.26526E+01_JPRB,0.26095E+01_JPRB,0.25599E+01_JPRB,0.25079E+01_JPRB /)  
+KB(:,38,14) = (/ &
+ & 0.26963E+01_JPRB,0.26609E+01_JPRB,0.26186E+01_JPRB,0.25695E+01_JPRB,0.25177E+01_JPRB /)  
+KB(:,39,14) = (/ &
+ & 0.27030E+01_JPRB,0.26686E+01_JPRB,0.26272E+01_JPRB,0.25787E+01_JPRB,0.25269E+01_JPRB /)  
+KB(:,40,14) = (/ &
+ & 0.27118E+01_JPRB,0.26792E+01_JPRB,0.26399E+01_JPRB,0.25927E+01_JPRB,0.25414E+01_JPRB /)  
+KB(:,41,14) = (/ &
+ & 0.27201E+01_JPRB,0.26898E+01_JPRB,0.26520E+01_JPRB,0.26068E+01_JPRB,0.25561E+01_JPRB /)  
+KB(:,42,14) = (/ &
+ & 0.27274E+01_JPRB,0.27000E+01_JPRB,0.26636E+01_JPRB,0.26203E+01_JPRB,0.25704E+01_JPRB /)  
+KB(:,43,14) = (/ &
+ & 0.27341E+01_JPRB,0.27108E+01_JPRB,0.26767E+01_JPRB,0.26357E+01_JPRB,0.25871E+01_JPRB /)  
+KB(:,44,14) = (/ &
+ & 0.27398E+01_JPRB,0.27209E+01_JPRB,0.26898E+01_JPRB,0.26513E+01_JPRB,0.26050E+01_JPRB /)  
+KB(:,45,14) = (/ &
+ & 0.27435E+01_JPRB,0.27298E+01_JPRB,0.27021E+01_JPRB,0.26655E+01_JPRB,0.26220E+01_JPRB /)  
+KB(:,46,14) = (/ &
+ & 0.27454E+01_JPRB,0.27371E+01_JPRB,0.27139E+01_JPRB,0.26799E+01_JPRB,0.26391E+01_JPRB /)  
+KB(:,47,14) = (/ &
+ & 0.27460E+01_JPRB,0.27424E+01_JPRB,0.27253E+01_JPRB,0.26950E+01_JPRB,0.26569E+01_JPRB /)  
+KB(:,48,14) = (/ &
+ & 0.27436E+01_JPRB,0.27457E+01_JPRB,0.27342E+01_JPRB,0.27088E+01_JPRB,0.26736E+01_JPRB /)  
+KB(:,49,14) = (/ &
+ & 0.27370E+01_JPRB,0.27470E+01_JPRB,0.27411E+01_JPRB,0.27207E+01_JPRB,0.26888E+01_JPRB /)  
+KB(:,50,14) = (/ &
+ & 0.27269E+01_JPRB,0.27459E+01_JPRB,0.27451E+01_JPRB,0.27305E+01_JPRB,0.27022E+01_JPRB /)  
+KB(:,51,14) = (/ &
+ & 0.27139E+01_JPRB,0.27424E+01_JPRB,0.27470E+01_JPRB,0.27377E+01_JPRB,0.27140E+01_JPRB /)  
+KB(:,52,14) = (/ &
+ & 0.26965E+01_JPRB,0.27350E+01_JPRB,0.27474E+01_JPRB,0.27429E+01_JPRB,0.27243E+01_JPRB /)  
+KB(:,53,14) = (/ &
+ & 0.26758E+01_JPRB,0.27241E+01_JPRB,0.27457E+01_JPRB,0.27461E+01_JPRB,0.27331E+01_JPRB /)  
+KB(:,54,14) = (/ &
+ & 0.26529E+01_JPRB,0.27108E+01_JPRB,0.27417E+01_JPRB,0.27475E+01_JPRB,0.27393E+01_JPRB /)  
+KB(:,55,14) = (/ &
+ & 0.26271E+01_JPRB,0.26955E+01_JPRB,0.27349E+01_JPRB,0.27476E+01_JPRB,0.27437E+01_JPRB /)  
+KB(:,56,14) = (/ &
+ & 0.25970E+01_JPRB,0.26775E+01_JPRB,0.27251E+01_JPRB,0.27462E+01_JPRB,0.27464E+01_JPRB /)  
+KB(:,57,14) = (/ &
+ & 0.25617E+01_JPRB,0.26559E+01_JPRB,0.27125E+01_JPRB,0.27426E+01_JPRB,0.27477E+01_JPRB /)  
+KB(:,58,14) = (/ &
+ & 0.25247E+01_JPRB,0.26320E+01_JPRB,0.26988E+01_JPRB,0.27363E+01_JPRB,0.27482E+01_JPRB /)  
+KB(:,59,14) = (/ &
+ & 0.25089E+01_JPRB,0.26212E+01_JPRB,0.26923E+01_JPRB,0.27333E+01_JPRB,0.27480E+01_JPRB /)  
+KB(:,13,15) = (/ &
+ & 0.36859E+01_JPRB,0.36950E+01_JPRB,0.36942E+01_JPRB,0.36830E+01_JPRB,0.36649E+01_JPRB /)  
+KB(:,14,15) = (/ &
+ & 0.41563E+01_JPRB,0.41556E+01_JPRB,0.41430E+01_JPRB,0.41233E+01_JPRB,0.40913E+01_JPRB /)  
+KB(:,15,15) = (/ &
+ & 0.46342E+01_JPRB,0.46206E+01_JPRB,0.45970E+01_JPRB,0.45604E+01_JPRB,0.45153E+01_JPRB /)  
+KB(:,16,15) = (/ &
+ & 0.51044E+01_JPRB,0.50788E+01_JPRB,0.50384E+01_JPRB,0.49882E+01_JPRB,0.49250E+01_JPRB /)  
+KB(:,17,15) = (/ &
+ & 0.55612E+01_JPRB,0.55175E+01_JPRB,0.54618E+01_JPRB,0.53932E+01_JPRB,0.53123E+01_JPRB /)  
+KB(:,18,15) = (/ &
+ & 0.59883E+01_JPRB,0.59323E+01_JPRB,0.58578E+01_JPRB,0.57682E+01_JPRB,0.56700E+01_JPRB /)  
+KB(:,19,15) = (/ &
+ & 0.63852E+01_JPRB,0.63106E+01_JPRB,0.62177E+01_JPRB,0.61123E+01_JPRB,0.59947E+01_JPRB /)  
+KB(:,20,15) = (/ &
+ & 0.67473E+01_JPRB,0.66496E+01_JPRB,0.65407E+01_JPRB,0.64159E+01_JPRB,0.62789E+01_JPRB /)  
+KB(:,21,15) = (/ &
+ & 0.70720E+01_JPRB,0.69522E+01_JPRB,0.68220E+01_JPRB,0.66792E+01_JPRB,0.65258E+01_JPRB /)  
+KB(:,22,15) = (/ &
+ & 0.73512E+01_JPRB,0.72082E+01_JPRB,0.70565E+01_JPRB,0.68942E+01_JPRB,0.67258E+01_JPRB /)  
+KB(:,23,15) = (/ &
+ & 0.75866E+01_JPRB,0.74239E+01_JPRB,0.72515E+01_JPRB,0.70718E+01_JPRB,0.68886E+01_JPRB /)  
+KB(:,24,15) = (/ &
+ & 0.77818E+01_JPRB,0.75993E+01_JPRB,0.74076E+01_JPRB,0.72128E+01_JPRB,0.70154E+01_JPRB /)  
+KB(:,25,15) = (/ &
+ & 0.79381E+01_JPRB,0.77379E+01_JPRB,0.75298E+01_JPRB,0.73205E+01_JPRB,0.71111E+01_JPRB /)  
+KB(:,26,15) = (/ &
+ & 0.80556E+01_JPRB,0.78384E+01_JPRB,0.76185E+01_JPRB,0.73961E+01_JPRB,0.71755E+01_JPRB /)  
+KB(:,27,15) = (/ &
+ & 0.81409E+01_JPRB,0.79095E+01_JPRB,0.76795E+01_JPRB,0.74472E+01_JPRB,0.72174E+01_JPRB /)  
+KB(:,28,15) = (/ &
+ & 0.81987E+01_JPRB,0.79569E+01_JPRB,0.77176E+01_JPRB,0.74766E+01_JPRB,0.72412E+01_JPRB /)  
+KB(:,29,15) = (/ &
+ & 0.82302E+01_JPRB,0.79809E+01_JPRB,0.77337E+01_JPRB,0.74875E+01_JPRB,0.72468E+01_JPRB /)  
+KB(:,30,15) = (/ &
+ & 0.82419E+01_JPRB,0.79875E+01_JPRB,0.77343E+01_JPRB,0.74825E+01_JPRB,0.72390E+01_JPRB /)  
+KB(:,31,15) = (/ &
+ & 0.82369E+01_JPRB,0.79780E+01_JPRB,0.77201E+01_JPRB,0.74661E+01_JPRB,0.72183E+01_JPRB /)  
+KB(:,32,15) = (/ &
+ & 0.82187E+01_JPRB,0.79550E+01_JPRB,0.76944E+01_JPRB,0.74386E+01_JPRB,0.71874E+01_JPRB /)  
+KB(:,33,15) = (/ &
+ & 0.81889E+01_JPRB,0.79220E+01_JPRB,0.76592E+01_JPRB,0.74026E+01_JPRB,0.71493E+01_JPRB /)  
+KB(:,34,15) = (/ &
+ & 0.81602E+01_JPRB,0.78912E+01_JPRB,0.76262E+01_JPRB,0.73693E+01_JPRB,0.71134E+01_JPRB /)  
+KB(:,35,15) = (/ &
+ & 0.81506E+01_JPRB,0.78799E+01_JPRB,0.76144E+01_JPRB,0.73562E+01_JPRB,0.70988E+01_JPRB /)  
+KB(:,36,15) = (/ &
+ & 0.81664E+01_JPRB,0.78930E+01_JPRB,0.76263E+01_JPRB,0.73664E+01_JPRB,0.71072E+01_JPRB /)  
+KB(:,37,15) = (/ &
+ & 0.82200E+01_JPRB,0.79452E+01_JPRB,0.76751E+01_JPRB,0.74132E+01_JPRB,0.71537E+01_JPRB /)  
+KB(:,38,15) = (/ &
+ & 0.82730E+01_JPRB,0.79962E+01_JPRB,0.77251E+01_JPRB,0.74606E+01_JPRB,0.72002E+01_JPRB /)  
+KB(:,39,15) = (/ &
+ & 0.83243E+01_JPRB,0.80459E+01_JPRB,0.77713E+01_JPRB,0.75063E+01_JPRB,0.72452E+01_JPRB /)  
+KB(:,40,15) = (/ &
+ & 0.84027E+01_JPRB,0.81225E+01_JPRB,0.78456E+01_JPRB,0.75775E+01_JPRB,0.73152E+01_JPRB /)  
+KB(:,41,15) = (/ &
+ & 0.84834E+01_JPRB,0.82013E+01_JPRB,0.79233E+01_JPRB,0.76507E+01_JPRB,0.73874E+01_JPRB /)  
+KB(:,42,15) = (/ &
+ & 0.85638E+01_JPRB,0.82794E+01_JPRB,0.79999E+01_JPRB,0.77248E+01_JPRB,0.74594E+01_JPRB /)  
+KB(:,43,15) = (/ &
+ & 0.86608E+01_JPRB,0.83728E+01_JPRB,0.80910E+01_JPRB,0.78137E+01_JPRB,0.75464E+01_JPRB /)  
+KB(:,44,15) = (/ &
+ & 0.87658E+01_JPRB,0.84741E+01_JPRB,0.81903E+01_JPRB,0.79102E+01_JPRB,0.76390E+01_JPRB /)  
+KB(:,45,15) = (/ &
+ & 0.88709E+01_JPRB,0.85747E+01_JPRB,0.82886E+01_JPRB,0.80079E+01_JPRB,0.77318E+01_JPRB /)  
+KB(:,46,15) = (/ &
+ & 0.89828E+01_JPRB,0.86839E+01_JPRB,0.83945E+01_JPRB,0.81115E+01_JPRB,0.78321E+01_JPRB /)  
+KB(:,47,15) = (/ &
+ & 0.91067E+01_JPRB,0.88066E+01_JPRB,0.85118E+01_JPRB,0.82270E+01_JPRB,0.79459E+01_JPRB /)  
+KB(:,48,15) = (/ &
+ & 0.92318E+01_JPRB,0.89292E+01_JPRB,0.86312E+01_JPRB,0.83427E+01_JPRB,0.80595E+01_JPRB /)  
+KB(:,49,15) = (/ &
+ & 0.93597E+01_JPRB,0.90533E+01_JPRB,0.87516E+01_JPRB,0.84602E+01_JPRB,0.81749E+01_JPRB /)  
+KB(:,50,15) = (/ &
+ & 0.94828E+01_JPRB,0.91681E+01_JPRB,0.88667E+01_JPRB,0.85700E+01_JPRB,0.82833E+01_JPRB /)  
+KB(:,51,15) = (/ &
+ & 0.96031E+01_JPRB,0.92821E+01_JPRB,0.89785E+01_JPRB,0.86778E+01_JPRB,0.83878E+01_JPRB /)  
+KB(:,52,15) = (/ &
+ & 0.97227E+01_JPRB,0.93978E+01_JPRB,0.90892E+01_JPRB,0.87879E+01_JPRB,0.84938E+01_JPRB /)  
+KB(:,53,15) = (/ &
+ & 0.98436E+01_JPRB,0.95182E+01_JPRB,0.92014E+01_JPRB,0.88988E+01_JPRB,0.86011E+01_JPRB /)  
+KB(:,54,15) = (/ &
+ & 0.99573E+01_JPRB,0.96274E+01_JPRB,0.93049E+01_JPRB,0.90008E+01_JPRB,0.87001E+01_JPRB /)  
+KB(:,55,15) = (/ &
+ & 0.10066E+02_JPRB,0.97327E+01_JPRB,0.94075E+01_JPRB,0.90983E+01_JPRB,0.87962E+01_JPRB /)  
+KB(:,56,15) = (/ &
+ & 0.10177E+02_JPRB,0.98378E+01_JPRB,0.95127E+01_JPRB,0.91960E+01_JPRB,0.88926E+01_JPRB /)  
+KB(:,57,15) = (/ &
+ & 0.10293E+02_JPRB,0.99462E+01_JPRB,0.96173E+01_JPRB,0.92949E+01_JPRB,0.89909E+01_JPRB /)  
+KB(:,58,15) = (/ &
+ & 0.10405E+02_JPRB,0.10049E+02_JPRB,0.97160E+01_JPRB,0.93909E+01_JPRB,0.90821E+01_JPRB /)  
+KB(:,59,15) = (/ &
+ & 0.10450E+02_JPRB,0.10090E+02_JPRB,0.97556E+01_JPRB,0.94305E+01_JPRB,0.91193E+01_JPRB /)  
+KB(:,13,16) = (/ &
+ & 0.50473E+01_JPRB,0.50398E+01_JPRB,0.50183E+01_JPRB,0.49834E+01_JPRB,0.49369E+01_JPRB /)  
+KB(:,14,16) = (/ &
+ & 0.59220E+01_JPRB,0.58911E+01_JPRB,0.58423E+01_JPRB,0.57748E+01_JPRB,0.56924E+01_JPRB /)  
+KB(:,15,16) = (/ &
+ & 0.68737E+01_JPRB,0.68078E+01_JPRB,0.67189E+01_JPRB,0.66072E+01_JPRB,0.64839E+01_JPRB /)  
+KB(:,16,16) = (/ &
+ & 0.78824E+01_JPRB,0.77694E+01_JPRB,0.76268E+01_JPRB,0.74643E+01_JPRB,0.72894E+01_JPRB /)  
+KB(:,17,16) = (/ &
+ & 0.89270E+01_JPRB,0.87413E+01_JPRB,0.85370E+01_JPRB,0.83130E+01_JPRB,0.80798E+01_JPRB /)  
+KB(:,18,16) = (/ &
+ & 0.99711E+01_JPRB,0.97011E+01_JPRB,0.94250E+01_JPRB,0.91345E+01_JPRB,0.88363E+01_JPRB /)  
+KB(:,19,16) = (/ &
+ & 0.10989E+02_JPRB,0.10627E+02_JPRB,0.10268E+02_JPRB,0.99076E+01_JPRB,0.95430E+01_JPRB /)  
+KB(:,20,16) = (/ &
+ & 0.11944E+02_JPRB,0.11487E+02_JPRB,0.11042E+02_JPRB,0.10609E+02_JPRB,0.10177E+02_JPRB /)  
+KB(:,21,16) = (/ &
+ & 0.12817E+02_JPRB,0.12265E+02_JPRB,0.11737E+02_JPRB,0.11232E+02_JPRB,0.10736E+02_JPRB /)  
+KB(:,22,16) = (/ &
+ & 0.13548E+02_JPRB,0.12914E+02_JPRB,0.12305E+02_JPRB,0.11734E+02_JPRB,0.11183E+02_JPRB /)  
+KB(:,23,16) = (/ &
+ & 0.14162E+02_JPRB,0.13448E+02_JPRB,0.12773E+02_JPRB,0.12143E+02_JPRB,0.11545E+02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART16',1,ZHOOK_HANDLE)
+END SUBROUTINE PART16
+
+
+SUBROUTINE PART17
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART17',0,ZHOOK_HANDLE)
+
+
+KB(:,24,16) = (/ &
+ & 0.14655E+02_JPRB,0.13870E+02_JPRB,0.13141E+02_JPRB,0.12464E+02_JPRB,0.11822E+02_JPRB /)  
+KB(:,25,16) = (/ &
+ & 0.15031E+02_JPRB,0.14189E+02_JPRB,0.13415E+02_JPRB,0.12699E+02_JPRB,0.12023E+02_JPRB /)  
+KB(:,26,16) = (/ &
+ & 0.15288E+02_JPRB,0.14405E+02_JPRB,0.13595E+02_JPRB,0.12850E+02_JPRB,0.12149E+02_JPRB /)  
+KB(:,27,16) = (/ &
+ & 0.15452E+02_JPRB,0.14541E+02_JPRB,0.13705E+02_JPRB,0.12937E+02_JPRB,0.12216E+02_JPRB /)  
+KB(:,28,16) = (/ &
+ & 0.15538E+02_JPRB,0.14608E+02_JPRB,0.13754E+02_JPRB,0.12971E+02_JPRB,0.12237E+02_JPRB /)  
+KB(:,29,16) = (/ &
+ & 0.15553E+02_JPRB,0.14613E+02_JPRB,0.13748E+02_JPRB,0.12957E+02_JPRB,0.12214E+02_JPRB /)  
+KB(:,30,16) = (/ &
+ & 0.15516E+02_JPRB,0.14571E+02_JPRB,0.13703E+02_JPRB,0.12907E+02_JPRB,0.12159E+02_JPRB /)  
+KB(:,31,16) = (/ &
+ & 0.15433E+02_JPRB,0.14488E+02_JPRB,0.13621E+02_JPRB,0.12822E+02_JPRB,0.12076E+02_JPRB /)  
+KB(:,32,16) = (/ &
+ & 0.15312E+02_JPRB,0.14373E+02_JPRB,0.13511E+02_JPRB,0.12712E+02_JPRB,0.11970E+02_JPRB /)  
+KB(:,33,16) = (/ &
+ & 0.15164E+02_JPRB,0.14234E+02_JPRB,0.13378E+02_JPRB,0.12584E+02_JPRB,0.11848E+02_JPRB /)  
+KB(:,34,16) = (/ &
+ & 0.15029E+02_JPRB,0.14108E+02_JPRB,0.13258E+02_JPRB,0.12470E+02_JPRB,0.11741E+02_JPRB /)  
+KB(:,35,16) = (/ &
+ & 0.14974E+02_JPRB,0.14055E+02_JPRB,0.13205E+02_JPRB,0.12418E+02_JPRB,0.11691E+02_JPRB /)  
+KB(:,36,16) = (/ &
+ & 0.15011E+02_JPRB,0.14086E+02_JPRB,0.13232E+02_JPRB,0.12441E+02_JPRB,0.11710E+02_JPRB /)  
+KB(:,37,16) = (/ &
+ & 0.15186E+02_JPRB,0.14243E+02_JPRB,0.13376E+02_JPRB,0.12573E+02_JPRB,0.11831E+02_JPRB /)  
+KB(:,38,16) = (/ &
+ & 0.15364E+02_JPRB,0.14405E+02_JPRB,0.13523E+02_JPRB,0.12708E+02_JPRB,0.11955E+02_JPRB /)  
+KB(:,39,16) = (/ &
+ & 0.15541E+02_JPRB,0.14562E+02_JPRB,0.13666E+02_JPRB,0.12840E+02_JPRB,0.12075E+02_JPRB /)  
+KB(:,40,16) = (/ &
+ & 0.15818E+02_JPRB,0.14814E+02_JPRB,0.13896E+02_JPRB,0.13052E+02_JPRB,0.12271E+02_JPRB /)  
+KB(:,41,16) = (/ &
+ & 0.16115E+02_JPRB,0.15082E+02_JPRB,0.14138E+02_JPRB,0.13278E+02_JPRB,0.12478E+02_JPRB /)  
+KB(:,42,16) = (/ &
+ & 0.16420E+02_JPRB,0.15352E+02_JPRB,0.14384E+02_JPRB,0.13504E+02_JPRB,0.12687E+02_JPRB /)  
+KB(:,43,16) = (/ &
+ & 0.16793E+02_JPRB,0.15690E+02_JPRB,0.14694E+02_JPRB,0.13784E+02_JPRB,0.12952E+02_JPRB /)  
+KB(:,44,16) = (/ &
+ & 0.17211E+02_JPRB,0.16062E+02_JPRB,0.15031E+02_JPRB,0.14091E+02_JPRB,0.13236E+02_JPRB /)  
+KB(:,45,16) = (/ &
+ & 0.17640E+02_JPRB,0.16447E+02_JPRB,0.15376E+02_JPRB,0.14411E+02_JPRB,0.13526E+02_JPRB /)  
+KB(:,46,16) = (/ &
+ & 0.18112E+02_JPRB,0.16870E+02_JPRB,0.15758E+02_JPRB,0.14754E+02_JPRB,0.13842E+02_JPRB /)  
+KB(:,47,16) = (/ &
+ & 0.18658E+02_JPRB,0.17363E+02_JPRB,0.16197E+02_JPRB,0.15151E+02_JPRB,0.14204E+02_JPRB /)  
+KB(:,48,16) = (/ &
+ & 0.19225E+02_JPRB,0.17876E+02_JPRB,0.16658E+02_JPRB,0.15564E+02_JPRB,0.14577E+02_JPRB /)  
+KB(:,49,16) = (/ &
+ & 0.19824E+02_JPRB,0.18409E+02_JPRB,0.17136E+02_JPRB,0.15993E+02_JPRB,0.14967E+02_JPRB /)  
+KB(:,50,16) = (/ &
+ & 0.20411E+02_JPRB,0.18926E+02_JPRB,0.17606E+02_JPRB,0.16414E+02_JPRB,0.15344E+02_JPRB /)  
+KB(:,51,16) = (/ &
+ & 0.21005E+02_JPRB,0.19452E+02_JPRB,0.18077E+02_JPRB,0.16838E+02_JPRB,0.15725E+02_JPRB /)  
+KB(:,52,16) = (/ &
+ & 0.21646E+02_JPRB,0.20001E+02_JPRB,0.18565E+02_JPRB,0.17278E+02_JPRB,0.16117E+02_JPRB /)  
+KB(:,53,16) = (/ &
+ & 0.22315E+02_JPRB,0.20576E+02_JPRB,0.19072E+02_JPRB,0.17736E+02_JPRB,0.16529E+02_JPRB /)  
+KB(:,54,16) = (/ &
+ & 0.22958E+02_JPRB,0.21134E+02_JPRB,0.19557E+02_JPRB,0.18172E+02_JPRB,0.16919E+02_JPRB /)  
+KB(:,55,16) = (/ &
+ & 0.23603E+02_JPRB,0.21694E+02_JPRB,0.20042E+02_JPRB,0.18600E+02_JPRB,0.17305E+02_JPRB /)  
+KB(:,56,16) = (/ &
+ & 0.24285E+02_JPRB,0.22278E+02_JPRB,0.20543E+02_JPRB,0.19044E+02_JPRB,0.17707E+02_JPRB /)  
+KB(:,57,16) = (/ &
+ & 0.24997E+02_JPRB,0.22887E+02_JPRB,0.21074E+02_JPRB,0.19504E+02_JPRB,0.18121E+02_JPRB /)  
+KB(:,58,16) = (/ &
+ & 0.25697E+02_JPRB,0.23494E+02_JPRB,0.21600E+02_JPRB,0.19961E+02_JPRB,0.18525E+02_JPRB /)  
+KB(:,59,16) = (/ &
+ & 0.25984E+02_JPRB,0.23748E+02_JPRB,0.21819E+02_JPRB,0.20147E+02_JPRB,0.18689E+02_JPRB /)  
+  
+!     -----------------------------------------------------------------
+
+FORREF(:, 1) = (/ 0.106275E-05_JPRB, 0.104185E-05_JPRB, 0.420154E-05_JPRB /)
+FORREF(:, 2) = (/ 0.154343E-05_JPRB, 0.653193E-05_JPRB, 0.174596E-04_JPRB /)
+FORREF(:, 3) = (/ 0.348917E-05_JPRB, 0.108420E-04_JPRB, 0.540849E-04_JPRB /)
+FORREF(:, 4) = (/ 0.145822E-04_JPRB, 0.156027E-04_JPRB, 0.881263E-04_JPRB /)
+FORREF(:, 5) = (/ 0.220204E-04_JPRB, 0.819892E-04_JPRB, 0.817937E-04_JPRB /)
+FORREF(:, 6) = (/ 0.447840E-04_JPRB, 0.121116E-03_JPRB, 0.932635E-04_JPRB /)
+FORREF(:, 7) = (/ 0.166516E-03_JPRB, 0.147640E-03_JPRB, 0.754029E-04_JPRB /)
+FORREF(:, 8) = (/ 0.234756E-03_JPRB, 0.145934E-03_JPRB, 0.771734E-04_JPRB /)
+FORREF(:, 9) = (/ 0.289207E-03_JPRB, 0.146768E-03_JPRB, 0.677806E-04_JPRB /)
+FORREF(:,10) = (/ 0.334959E-03_JPRB, 0.125513E-03_JPRB, 0.636648E-04_JPRB /)
+FORREF(:,11) = (/ 0.333755E-03_JPRB, 0.136575E-03_JPRB, 0.593651E-04_JPRB /)
+FORREF(:,12) = (/ 0.340042E-03_JPRB, 0.116259E-03_JPRB, 0.595192E-04_JPRB /)
+FORREF(:,13) = (/ 0.422470E-03_JPRB, 0.148691E-03_JPRB, 0.630266E-04_JPRB /)
+FORREF(:,14) = (/ 0.440655E-03_JPRB, 0.461917E-04_JPRB, 0.108222E-04_JPRB /)
+FORREF(:,15) = (/ 0.486207E-03_JPRB, 0.428458E-03_JPRB, 0.108086E-04_JPRB /)
+FORREF(:,16) = (/ 0.657463E-03_JPRB, 0.657446E-03_JPRB, 0.126190E-04_JPRB /)
+
+!     -----------------------------------------------------------------
+!     The array SELFREF contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+     
+SELFREF(:, 1) = (/ &
+ & 0.331728E-03_JPRB, 0.287480E-03_JPRB, 0.249135E-03_JPRB, 0.215904E-03_JPRB, 0.187106E-03_JPRB, &
+ & 0.162149E-03_JPRB, 0.140520E-03_JPRB, 0.121777E-03_JPRB, 0.105534E-03_JPRB, 0.914573E-04_JPRB /)  
+SELFREF(:, 2) = (/ &
+ & 0.882628E-03_JPRB, 0.698914E-03_JPRB, 0.553439E-03_JPRB, 0.438244E-03_JPRB, 0.347026E-03_JPRB, &
+ & 0.274795E-03_JPRB, 0.217598E-03_JPRB, 0.172306E-03_JPRB, 0.136442E-03_JPRB, 0.108042E-03_JPRB /)  
+SELFREF(:, 3) = (/ &
+ & 0.115461E-02_JPRB, 0.937203E-03_JPRB, 0.760730E-03_JPRB, 0.617486E-03_JPRB, 0.501215E-03_JPRB, &
+ & 0.406837E-03_JPRB, 0.330231E-03_JPRB, 0.268049E-03_JPRB, 0.217576E-03_JPRB, 0.176607E-03_JPRB /)  
+SELFREF(:, 4) = (/ &
+ & 0.103450E-02_JPRB, 0.960268E-03_JPRB, 0.891360E-03_JPRB, 0.827397E-03_JPRB, 0.768024E-03_JPRB, &
+ & 0.712911E-03_JPRB, 0.661754E-03_JPRB, 0.614267E-03_JPRB, 0.570188E-03_JPRB, 0.529272E-03_JPRB /)  
+SELFREF(:, 5) = (/ &
+ & 0.289040E-02_JPRB, 0.240129E-02_JPRB, 0.199495E-02_JPRB, 0.165737E-02_JPRB, 0.137692E-02_JPRB, &
+ & 0.114392E-02_JPRB, 0.950351E-03_JPRB, 0.789535E-03_JPRB, 0.655933E-03_JPRB, 0.544938E-03_JPRB /)  
+SELFREF(:, 6) = (/ &
+ & 0.361772E-02_JPRB, 0.306611E-02_JPRB, 0.259861E-02_JPRB, 0.220239E-02_JPRB, 0.186659E-02_JPRB, &
+ & 0.158198E-02_JPRB, 0.134077E-02_JPRB, 0.113634E-02_JPRB, 0.963078E-03_JPRB, 0.816234E-03_JPRB /)  
+SELFREF(:, 7) = (/ &
+ & 0.329878E-02_JPRB, 0.318245E-02_JPRB, 0.307021E-02_JPRB, 0.296194E-02_JPRB, 0.285749E-02_JPRB, &
+ & 0.275671E-02_JPRB, 0.265950E-02_JPRB, 0.256571E-02_JPRB, 0.247522E-02_JPRB, 0.238793E-02_JPRB /)  
+SELFREF(:, 8) = (/ &
+ & 0.293562E-02_JPRB, 0.300077E-02_JPRB, 0.306737E-02_JPRB, 0.313544E-02_JPRB, 0.320503E-02_JPRB, &
+ & 0.327615E-02_JPRB, 0.334886E-02_JPRB, 0.342318E-02_JPRB, 0.349915E-02_JPRB, 0.357680E-02_JPRB /)  
+SELFREF(:, 9) = (/ &
+ & 0.281453E-02_JPRB, 0.295894E-02_JPRB, 0.311076E-02_JPRB, 0.327038E-02_JPRB, 0.343818E-02_JPRB, &
+ & 0.361459E-02_JPRB, 0.380006E-02_JPRB, 0.399504E-02_JPRB, 0.420002E-02_JPRB, 0.441553E-02_JPRB /)  
+SELFREF(:,10) = (/ &
+ & 0.239488E-02_JPRB, 0.262487E-02_JPRB, 0.287696E-02_JPRB, 0.315325E-02_JPRB, 0.345607E-02_JPRB, &
+ & 0.378798E-02_JPRB, 0.415176E-02_JPRB, 0.455048E-02_JPRB, 0.498749E-02_JPRB, 0.546647E-02_JPRB /)  
+SELFREF(:,11) = (/ &
+ & 0.271001E-02_JPRB, 0.292235E-02_JPRB, 0.315134E-02_JPRB, 0.339826E-02_JPRB, 0.366453E-02_JPRB, &
+ & 0.395167E-02_JPRB, 0.426131E-02_JPRB, 0.459521E-02_JPRB, 0.495527E-02_JPRB, 0.534354E-02_JPRB /)  
+SELFREF(:,12) = (/ &
+ & 0.206702E-02_JPRB, 0.232254E-02_JPRB, 0.260966E-02_JPRB, 0.293226E-02_JPRB, 0.329475E-02_JPRB, &
+ & 0.370204E-02_JPRB, 0.415969E-02_JPRB, 0.467391E-02_JPRB, 0.525169E-02_JPRB, 0.590090E-02_JPRB /)  
+SELFREF(:,13) = (/ &
+ & 0.227023E-02_JPRB, 0.257331E-02_JPRB, 0.291685E-02_JPRB, 0.330626E-02_JPRB, 0.374766E-02_JPRB, &
+ & 0.424799E-02_JPRB, 0.481511E-02_JPRB, 0.545794E-02_JPRB, 0.618660E-02_JPRB, 0.701253E-02_JPRB /)  
+SELFREF(:,14) = (/ &
+ & 0.851078E-03_JPRB, 0.111512E-02_JPRB, 0.146109E-02_JPRB, 0.191439E-02_JPRB, 0.250832E-02_JPRB, &
+ & 0.328653E-02_JPRB, 0.430617E-02_JPRB, 0.564215E-02_JPRB, 0.739261E-02_JPRB, 0.968616E-02_JPRB /)  
+SELFREF(:,15) = (/ &
+ & 0.742711E-02_JPRB, 0.721347E-02_JPRB, 0.700598E-02_JPRB, 0.680446E-02_JPRB, 0.660873E-02_JPRB, &
+ & 0.641863E-02_JPRB, 0.623400E-02_JPRB, 0.605468E-02_JPRB, 0.588052E-02_JPRB, 0.571137E-02_JPRB /)  
+SELFREF(:,16) = (/ &
+ & 0.107170E-01_JPRB, 0.101913E-01_JPRB, 0.969138E-02_JPRB, 0.921599E-02_JPRB, 0.876392E-02_JPRB, &
+ & 0.833402E-02_JPRB, 0.792521E-02_JPRB, 0.753646E-02_JPRB, 0.716677E-02_JPRB, 0.681522E-02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB19:PART17',1,ZHOOK_HANDLE)
+END SUBROUTINE PART17
+
+
+END SUBROUTINE SRTM_KGB19
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb19.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb19.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb19.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_KGB19
+END SUBROUTINE SRTM_KGB19
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb20.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb20.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb20.F90	(revision 1989)
@@ -0,0 +1,2077 @@
+!OCL SCALAR
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif 
+SUBROUTINE SRTM_KGB20
+
+!     Originally by J.Delamere, Atmospheric & Environmental Research.
+!     Revision: 2.4
+!     BAND 20:  5150-6150 cm-1 (low - H2O; high - H2O)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOESRTA20, ONLY : KA, KB, SELFREF, FORREF, SFLUXREF, RAYL, ABSCH4 &
+ & , LAYREFFR  
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+
+! KURUCZ
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB20',0,ZHOOK_HANDLE)
+SFLUXREF = (/ &
+ & 9.34081_JPRB , 8.93720_JPRB    , 8.19346_JPRB    , 7.39196_JPRB    , &
+ & 6.12127_JPRB , 5.23956_JPRB    , 4.24941_JPRB    , 3.20013_JPRB    , &
+ & 2.16047_JPRB , 0.234509_JPRB   , 0.194593_JPRB   , 0.151512_JPRB   , &
+ & 0.110315_JPRB, 7.09959E-02_JPRB, 2.70573E-02_JPRB, 3.36042E-03_JPRB /)  
+  
+ABSCH4 = (/   &
+ & 1.01381E-03_JPRB,6.33692E-03_JPRB,1.94185E-02_JPRB,4.83210E-02_JPRB, &
+ & 2.36574E-03_JPRB,6.61973E-04_JPRB,5.64552E-04_JPRB,2.83183E-04_JPRB, &
+ & 7.43623E-05_JPRB,8.90159E-07_JPRB,6.98728E-07_JPRB,6.51832E-08_JPRB, &
+ & 2.96619E-08_JPRB,         0._JPRB,         0._JPRB,         0._JPRB /)  
+
+!     Rayleigh extinction coefficient at v = 5670 cm-1.
+RAYL = 4.12E-09_JPRB
+
+LAYREFFR = 3
+
+!     ------------------------------------------------------------------
+
+!     The array KA contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels> ~100mb, temperatures, and binary
+!     species parameters (see taumol.f for definition).  The first 
+!     index in the array, JS, runs from 1 to 9, and corresponds to 
+!     different values of the binary species parameter.  For instance, 
+!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, 
+!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index
+!     in the array, JT, which runs from 1 to 5, corresponds to different
+!     temperatures.  More specifically, JT = 3 means that the data are for
+!     the reference temperature TREF for this  pressure level, JT = 2 refers
+!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the JPth reference pressure level (see taumol.f for these levels
+!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates
+!     which g-interval the absorption coefficients are for.
+!     -----------------------------------------------------------------
+
+KA(:, 1, 1) = (/ &
+ & 0.78383E-06_JPRB,0.86220E-06_JPRB,0.95359E-06_JPRB,0.10590E-05_JPRB,0.11782E-05_JPRB /)  
+KA(:, 2, 1) = (/ &
+ & 0.65040E-06_JPRB,0.72510E-06_JPRB,0.81318E-06_JPRB,0.90059E-06_JPRB,0.99786E-06_JPRB /)  
+KA(:, 3, 1) = (/ &
+ & 0.58072E-06_JPRB,0.65888E-06_JPRB,0.74265E-06_JPRB,0.81854E-06_JPRB,0.90645E-06_JPRB /)  
+KA(:, 4, 1) = (/ &
+ & 0.53601E-06_JPRB,0.60765E-06_JPRB,0.68088E-06_JPRB,0.75741E-06_JPRB,0.83801E-06_JPRB /)  
+KA(:, 5, 1) = (/ &
+ & 0.50142E-06_JPRB,0.56951E-06_JPRB,0.64028E-06_JPRB,0.71944E-06_JPRB,0.79813E-06_JPRB /)  
+KA(:, 6, 1) = (/ &
+ & 0.47164E-06_JPRB,0.54008E-06_JPRB,0.61040E-06_JPRB,0.68006E-06_JPRB,0.75034E-06_JPRB /)  
+KA(:, 7, 1) = (/ &
+ & 0.49337E-06_JPRB,0.56178E-06_JPRB,0.62215E-06_JPRB,0.69127E-06_JPRB,0.76060E-06_JPRB /)  
+KA(:, 8, 1) = (/ &
+ & 0.61581E-06_JPRB,0.70117E-06_JPRB,0.78942E-06_JPRB,0.87145E-06_JPRB,0.94647E-06_JPRB /)  
+KA(:, 9, 1) = (/ &
+ & 0.14154E-05_JPRB,0.15754E-05_JPRB,0.17261E-05_JPRB,0.18739E-05_JPRB,0.19774E-05_JPRB /)  
+KA(:,10, 1) = (/ &
+ & 0.34186E-05_JPRB,0.37012E-05_JPRB,0.39602E-05_JPRB,0.42235E-05_JPRB,0.44256E-05_JPRB /)  
+KA(:,11, 1) = (/ &
+ & 0.38574E-05_JPRB,0.42080E-05_JPRB,0.44701E-05_JPRB,0.47454E-05_JPRB,0.50002E-05_JPRB /)  
+KA(:,12, 1) = (/ &
+ & 0.35794E-05_JPRB,0.38686E-05_JPRB,0.41443E-05_JPRB,0.43939E-05_JPRB,0.46500E-05_JPRB /)  
+KA(:,13, 1) = (/ &
+ & 0.29586E-05_JPRB,0.31938E-05_JPRB,0.34167E-05_JPRB,0.36253E-05_JPRB,0.38250E-05_JPRB /)  
+KA(:, 1, 2) = (/ &
+ & 0.57098E-05_JPRB,0.64630E-05_JPRB,0.73117E-05_JPRB,0.82436E-05_JPRB,0.91947E-05_JPRB /)  
+KA(:, 2, 2) = (/ &
+ & 0.46384E-05_JPRB,0.53125E-05_JPRB,0.60301E-05_JPRB,0.68028E-05_JPRB,0.75824E-05_JPRB /)  
+KA(:, 3, 2) = (/ &
+ & 0.40657E-05_JPRB,0.46486E-05_JPRB,0.52459E-05_JPRB,0.58955E-05_JPRB,0.65546E-05_JPRB /)  
+KA(:, 4, 2) = (/ &
+ & 0.38895E-05_JPRB,0.44258E-05_JPRB,0.49759E-05_JPRB,0.55663E-05_JPRB,0.61702E-05_JPRB /)  
+KA(:, 5, 2) = (/ &
+ & 0.38971E-05_JPRB,0.44359E-05_JPRB,0.49933E-05_JPRB,0.55523E-05_JPRB,0.61234E-05_JPRB /)  
+KA(:, 6, 2) = (/ &
+ & 0.39532E-05_JPRB,0.44644E-05_JPRB,0.49734E-05_JPRB,0.54875E-05_JPRB,0.60102E-05_JPRB /)  
+KA(:, 7, 2) = (/ &
+ & 0.41068E-05_JPRB,0.45832E-05_JPRB,0.50698E-05_JPRB,0.55521E-05_JPRB,0.60175E-05_JPRB /)  
+KA(:, 8, 2) = (/ &
+ & 0.47922E-05_JPRB,0.52156E-05_JPRB,0.56817E-05_JPRB,0.61576E-05_JPRB,0.66313E-05_JPRB /)  
+KA(:, 9, 2) = (/ &
+ & 0.83199E-05_JPRB,0.88317E-05_JPRB,0.93688E-05_JPRB,0.99754E-05_JPRB,0.10620E-04_JPRB /)  
+KA(:,10, 2) = (/ &
+ & 0.16836E-04_JPRB,0.18526E-04_JPRB,0.19887E-04_JPRB,0.21168E-04_JPRB,0.22104E-04_JPRB /)  
+KA(:,11, 2) = (/ &
+ & 0.18882E-04_JPRB,0.21005E-04_JPRB,0.22896E-04_JPRB,0.24777E-04_JPRB,0.26115E-04_JPRB /)  
+KA(:,12, 2) = (/ &
+ & 0.17744E-04_JPRB,0.19780E-04_JPRB,0.21600E-04_JPRB,0.23523E-04_JPRB,0.25128E-04_JPRB /)  
+KA(:,13, 2) = (/ &
+ & 0.14736E-04_JPRB,0.16356E-04_JPRB,0.17955E-04_JPRB,0.19533E-04_JPRB,0.20861E-04_JPRB /)  
+KA(:, 1, 3) = (/ &
+ & 0.41776E-04_JPRB,0.48150E-04_JPRB,0.55097E-04_JPRB,0.62661E-04_JPRB,0.70920E-04_JPRB /)  
+KA(:, 2, 3) = (/ &
+ & 0.33909E-04_JPRB,0.39176E-04_JPRB,0.44622E-04_JPRB,0.50754E-04_JPRB,0.57336E-04_JPRB /)  
+KA(:, 3, 3) = (/ &
+ & 0.27438E-04_JPRB,0.31473E-04_JPRB,0.36122E-04_JPRB,0.41134E-04_JPRB,0.46456E-04_JPRB /)  
+KA(:, 4, 3) = (/ &
+ & 0.23222E-04_JPRB,0.26535E-04_JPRB,0.30141E-04_JPRB,0.34099E-04_JPRB,0.38416E-04_JPRB /)  
+KA(:, 5, 3) = (/ &
+ & 0.21114E-04_JPRB,0.23888E-04_JPRB,0.26883E-04_JPRB,0.30340E-04_JPRB,0.33785E-04_JPRB /)  
+KA(:, 6, 3) = (/ &
+ & 0.20750E-04_JPRB,0.22926E-04_JPRB,0.25536E-04_JPRB,0.28492E-04_JPRB,0.31676E-04_JPRB /)  
+KA(:, 7, 3) = (/ &
+ & 0.21584E-04_JPRB,0.24112E-04_JPRB,0.26872E-04_JPRB,0.29794E-04_JPRB,0.32940E-04_JPRB /)  
+KA(:, 8, 3) = (/ &
+ & 0.24194E-04_JPRB,0.26981E-04_JPRB,0.30137E-04_JPRB,0.33546E-04_JPRB,0.37182E-04_JPRB /)  
+KA(:, 9, 3) = (/ &
+ & 0.37461E-04_JPRB,0.42158E-04_JPRB,0.46718E-04_JPRB,0.51048E-04_JPRB,0.55154E-04_JPRB /)  
+KA(:,10, 3) = (/ &
+ & 0.72391E-04_JPRB,0.77164E-04_JPRB,0.84016E-04_JPRB,0.89658E-04_JPRB,0.95511E-04_JPRB /)  
+KA(:,11, 3) = (/ &
+ & 0.91736E-04_JPRB,0.99107E-04_JPRB,0.10463E-03_JPRB,0.10952E-03_JPRB,0.11549E-03_JPRB /)  
+KA(:,12, 3) = (/ &
+ & 0.91200E-04_JPRB,0.98812E-04_JPRB,0.10432E-03_JPRB,0.10893E-03_JPRB,0.11349E-03_JPRB /)  
+KA(:,13, 3) = (/ &
+ & 0.76217E-04_JPRB,0.82702E-04_JPRB,0.87500E-04_JPRB,0.91349E-04_JPRB,0.95349E-04_JPRB /)  
+KA(:, 1, 4) = (/ &
+ & 0.71705E-03_JPRB,0.82743E-03_JPRB,0.94700E-03_JPRB,0.10670E-02_JPRB,0.11902E-02_JPRB /)  
+KA(:, 2, 4) = (/ &
+ & 0.57909E-03_JPRB,0.67096E-03_JPRB,0.76724E-03_JPRB,0.86582E-03_JPRB,0.97167E-03_JPRB /)  
+KA(:, 3, 4) = (/ &
+ & 0.44771E-03_JPRB,0.51997E-03_JPRB,0.59861E-03_JPRB,0.67967E-03_JPRB,0.76676E-03_JPRB /)  
+KA(:, 4, 4) = (/ &
+ & 0.34085E-03_JPRB,0.39833E-03_JPRB,0.46226E-03_JPRB,0.52889E-03_JPRB,0.60008E-03_JPRB /)  
+KA(:, 5, 4) = (/ &
+ & 0.26678E-03_JPRB,0.31234E-03_JPRB,0.36341E-03_JPRB,0.41663E-03_JPRB,0.47418E-03_JPRB /)  
+KA(:, 6, 4) = (/ &
+ & 0.20903E-03_JPRB,0.24718E-03_JPRB,0.28922E-03_JPRB,0.33353E-03_JPRB,0.38176E-03_JPRB /)  
+KA(:, 7, 4) = (/ &
+ & 0.17173E-03_JPRB,0.20330E-03_JPRB,0.23711E-03_JPRB,0.27401E-03_JPRB,0.31445E-03_JPRB /)  
+KA(:, 8, 4) = (/ &
+ & 0.16722E-03_JPRB,0.19396E-03_JPRB,0.22307E-03_JPRB,0.25347E-03_JPRB,0.28561E-03_JPRB /)  
+KA(:, 9, 4) = (/ &
+ & 0.25043E-03_JPRB,0.28824E-03_JPRB,0.32547E-03_JPRB,0.36193E-03_JPRB,0.39806E-03_JPRB /)  
+KA(:,10, 4) = (/ &
+ & 0.43323E-03_JPRB,0.48667E-03_JPRB,0.53462E-03_JPRB,0.57879E-03_JPRB,0.62040E-03_JPRB /)  
+KA(:,11, 4) = (/ &
+ & 0.47719E-03_JPRB,0.52271E-03_JPRB,0.56402E-03_JPRB,0.60388E-03_JPRB,0.63520E-03_JPRB /)  
+KA(:,12, 4) = (/ &
+ & 0.45061E-03_JPRB,0.49014E-03_JPRB,0.52391E-03_JPRB,0.55276E-03_JPRB,0.57760E-03_JPRB /)  
+KA(:,13, 4) = (/ &
+ & 0.37664E-03_JPRB,0.40952E-03_JPRB,0.43690E-03_JPRB,0.46055E-03_JPRB,0.48018E-03_JPRB /)  
+KA(:, 1, 5) = (/ &
+ & 0.66466E-02_JPRB,0.68686E-02_JPRB,0.70897E-02_JPRB,0.73019E-02_JPRB,0.74914E-02_JPRB /)  
+KA(:, 2, 5) = (/ &
+ & 0.54023E-02_JPRB,0.56010E-02_JPRB,0.58008E-02_JPRB,0.59987E-02_JPRB,0.61685E-02_JPRB /)  
+KA(:, 3, 5) = (/ &
+ & 0.43218E-02_JPRB,0.45127E-02_JPRB,0.46848E-02_JPRB,0.48647E-02_JPRB,0.50267E-02_JPRB /)  
+KA(:, 4, 5) = (/ &
+ & 0.34639E-02_JPRB,0.36473E-02_JPRB,0.37951E-02_JPRB,0.39570E-02_JPRB,0.41049E-02_JPRB /)  
+KA(:, 5, 5) = (/ &
+ & 0.27745E-02_JPRB,0.29370E-02_JPRB,0.30754E-02_JPRB,0.32148E-02_JPRB,0.33492E-02_JPRB /)  
+KA(:, 6, 5) = (/ &
+ & 0.22020E-02_JPRB,0.23520E-02_JPRB,0.24836E-02_JPRB,0.25965E-02_JPRB,0.27119E-02_JPRB /)  
+KA(:, 7, 5) = (/ &
+ & 0.17624E-02_JPRB,0.18963E-02_JPRB,0.20161E-02_JPRB,0.21153E-02_JPRB,0.22116E-02_JPRB /)  
+KA(:, 8, 5) = (/ &
+ & 0.14169E-02_JPRB,0.15332E-02_JPRB,0.16350E-02_JPRB,0.17231E-02_JPRB,0.18121E-02_JPRB /)  
+KA(:, 9, 5) = (/ &
+ & 0.13030E-02_JPRB,0.13904E-02_JPRB,0.14690E-02_JPRB,0.15500E-02_JPRB,0.16275E-02_JPRB /)  
+KA(:,10, 5) = (/ &
+ & 0.17155E-02_JPRB,0.18169E-02_JPRB,0.18943E-02_JPRB,0.19620E-02_JPRB,0.20215E-02_JPRB /)  
+KA(:,11, 5) = (/ &
+ & 0.17156E-02_JPRB,0.17808E-02_JPRB,0.18419E-02_JPRB,0.18925E-02_JPRB,0.19313E-02_JPRB /)  
+KA(:,12, 5) = (/ &
+ & 0.15269E-02_JPRB,0.15811E-02_JPRB,0.16283E-02_JPRB,0.16686E-02_JPRB,0.17061E-02_JPRB /)  
+KA(:,13, 5) = (/ &
+ & 0.12768E-02_JPRB,0.13207E-02_JPRB,0.13555E-02_JPRB,0.13924E-02_JPRB,0.14234E-02_JPRB /)  
+KA(:, 1, 6) = (/ &
+ & 0.19191E-01_JPRB,0.19463E-01_JPRB,0.19692E-01_JPRB,0.19900E-01_JPRB,0.20112E-01_JPRB /)  
+KA(:, 2, 6) = (/ &
+ & 0.15967E-01_JPRB,0.16219E-01_JPRB,0.16426E-01_JPRB,0.16613E-01_JPRB,0.16805E-01_JPRB /)  
+KA(:, 3, 6) = (/ &
+ & 0.13186E-01_JPRB,0.13411E-01_JPRB,0.13614E-01_JPRB,0.13785E-01_JPRB,0.13944E-01_JPRB /)  
+KA(:, 4, 6) = (/ &
+ & 0.10935E-01_JPRB,0.11131E-01_JPRB,0.11318E-01_JPRB,0.11475E-01_JPRB,0.11620E-01_JPRB /)  
+KA(:, 5, 6) = (/ &
+ & 0.90541E-02_JPRB,0.92344E-02_JPRB,0.94035E-02_JPRB,0.95537E-02_JPRB,0.96862E-02_JPRB /)  
+KA(:, 6, 6) = (/ &
+ & 0.74724E-02_JPRB,0.76320E-02_JPRB,0.77794E-02_JPRB,0.79294E-02_JPRB,0.80528E-02_JPRB /)  
+KA(:, 7, 6) = (/ &
+ & 0.61183E-02_JPRB,0.62644E-02_JPRB,0.63961E-02_JPRB,0.65303E-02_JPRB,0.66478E-02_JPRB /)  
+KA(:, 8, 6) = (/ &
+ & 0.50638E-02_JPRB,0.51984E-02_JPRB,0.53222E-02_JPRB,0.54412E-02_JPRB,0.55465E-02_JPRB /)  
+KA(:, 9, 6) = (/ &
+ & 0.42870E-02_JPRB,0.44009E-02_JPRB,0.45109E-02_JPRB,0.45976E-02_JPRB,0.46796E-02_JPRB /)  
+KA(:,10, 6) = (/ &
+ & 0.45239E-02_JPRB,0.46073E-02_JPRB,0.46968E-02_JPRB,0.47979E-02_JPRB,0.48956E-02_JPRB /)  
+KA(:,11, 6) = (/ &
+ & 0.44089E-02_JPRB,0.45006E-02_JPRB,0.45881E-02_JPRB,0.46721E-02_JPRB,0.48015E-02_JPRB /)  
+KA(:,12, 6) = (/ &
+ & 0.39598E-02_JPRB,0.40290E-02_JPRB,0.41108E-02_JPRB,0.41899E-02_JPRB,0.42672E-02_JPRB /)  
+KA(:,13, 6) = (/ &
+ & 0.33425E-02_JPRB,0.34148E-02_JPRB,0.34808E-02_JPRB,0.35405E-02_JPRB,0.35983E-02_JPRB /)  
+KA(:, 1, 7) = (/ &
+ & 0.50165E-01_JPRB,0.50343E-01_JPRB,0.50452E-01_JPRB,0.50424E-01_JPRB,0.50329E-01_JPRB /)  
+KA(:, 2, 7) = (/ &
+ & 0.42723E-01_JPRB,0.42880E-01_JPRB,0.42939E-01_JPRB,0.42910E-01_JPRB,0.42861E-01_JPRB /)  
+KA(:, 3, 7) = (/ &
+ & 0.36117E-01_JPRB,0.36255E-01_JPRB,0.36301E-01_JPRB,0.36294E-01_JPRB,0.36288E-01_JPRB /)  
+KA(:, 4, 7) = (/ &
+ & 0.30585E-01_JPRB,0.30720E-01_JPRB,0.30787E-01_JPRB,0.30816E-01_JPRB,0.30842E-01_JPRB /)  
+KA(:, 5, 7) = (/ &
+ & 0.25879E-01_JPRB,0.26029E-01_JPRB,0.26116E-01_JPRB,0.26179E-01_JPRB,0.26225E-01_JPRB /)  
+KA(:, 6, 7) = (/ &
+ & 0.21822E-01_JPRB,0.21978E-01_JPRB,0.22094E-01_JPRB,0.22178E-01_JPRB,0.22244E-01_JPRB /)  
+KA(:, 7, 7) = (/ &
+ & 0.18304E-01_JPRB,0.18476E-01_JPRB,0.18606E-01_JPRB,0.18705E-01_JPRB,0.18780E-01_JPRB /)  
+KA(:, 8, 7) = (/ &
+ & 0.15224E-01_JPRB,0.15394E-01_JPRB,0.15519E-01_JPRB,0.15619E-01_JPRB,0.15690E-01_JPRB /)  
+KA(:, 9, 7) = (/ &
+ & 0.12835E-01_JPRB,0.13029E-01_JPRB,0.13169E-01_JPRB,0.13281E-01_JPRB,0.13369E-01_JPRB /)  
+KA(:,10, 7) = (/ &
+ & 0.11632E-01_JPRB,0.11714E-01_JPRB,0.11760E-01_JPRB,0.11776E-01_JPRB,0.11806E-01_JPRB /)  
+KA(:,11, 7) = (/ &
+ & 0.11170E-01_JPRB,0.11252E-01_JPRB,0.11288E-01_JPRB,0.11357E-01_JPRB,0.11397E-01_JPRB /)  
+KA(:,12, 7) = (/ &
+ & 0.10404E-01_JPRB,0.10533E-01_JPRB,0.10705E-01_JPRB,0.10833E-01_JPRB,0.10947E-01_JPRB /)  
+KA(:,13, 7) = (/ &
+ & 0.91041E-02_JPRB,0.92674E-02_JPRB,0.94068E-02_JPRB,0.95412E-02_JPRB,0.96769E-02_JPRB /)  
+KA(:, 1, 8) = (/ &
+ & 0.14527E+00_JPRB,0.14483E+00_JPRB,0.14432E+00_JPRB,0.14389E+00_JPRB,0.14349E+00_JPRB /)  
+KA(:, 2, 8) = (/ &
+ & 0.12739E+00_JPRB,0.12702E+00_JPRB,0.12661E+00_JPRB,0.12624E+00_JPRB,0.12584E+00_JPRB /)  
+KA(:, 3, 8) = (/ &
+ & 0.11091E+00_JPRB,0.11058E+00_JPRB,0.11024E+00_JPRB,0.10990E+00_JPRB,0.10953E+00_JPRB /)  
+KA(:, 4, 8) = (/ &
+ & 0.96590E-01_JPRB,0.96335E-01_JPRB,0.96105E-01_JPRB,0.95818E-01_JPRB,0.95530E-01_JPRB /)  
+KA(:, 5, 8) = (/ &
+ & 0.83799E-01_JPRB,0.83708E-01_JPRB,0.83572E-01_JPRB,0.83347E-01_JPRB,0.83126E-01_JPRB /)  
+KA(:, 6, 8) = (/ &
+ & 0.72369E-01_JPRB,0.72388E-01_JPRB,0.72289E-01_JPRB,0.72143E-01_JPRB,0.71981E-01_JPRB /)  
+KA(:, 7, 8) = (/ &
+ & 0.62158E-01_JPRB,0.62247E-01_JPRB,0.62185E-01_JPRB,0.62111E-01_JPRB,0.62007E-01_JPRB /)  
+KA(:, 8, 8) = (/ &
+ & 0.52998E-01_JPRB,0.53142E-01_JPRB,0.53162E-01_JPRB,0.53154E-01_JPRB,0.53101E-01_JPRB /)  
+KA(:, 9, 8) = (/ &
+ & 0.44776E-01_JPRB,0.44873E-01_JPRB,0.44920E-01_JPRB,0.44946E-01_JPRB,0.44885E-01_JPRB /)  
+KA(:,10, 8) = (/ &
+ & 0.38237E-01_JPRB,0.38514E-01_JPRB,0.38716E-01_JPRB,0.38877E-01_JPRB,0.38966E-01_JPRB /)  
+KA(:,11, 8) = (/ &
+ & 0.33511E-01_JPRB,0.33721E-01_JPRB,0.33843E-01_JPRB,0.33840E-01_JPRB,0.33839E-01_JPRB /)  
+KA(:,12, 8) = (/ &
+ & 0.29704E-01_JPRB,0.29825E-01_JPRB,0.29808E-01_JPRB,0.29787E-01_JPRB,0.29794E-01_JPRB /)  
+KA(:,13, 8) = (/ &
+ & 0.25973E-01_JPRB,0.26004E-01_JPRB,0.26032E-01_JPRB,0.26023E-01_JPRB,0.26107E-01_JPRB /)  
+KA(:, 1, 9) = (/ &
+ & 0.56699E+00_JPRB,0.56615E+00_JPRB,0.56479E+00_JPRB,0.56318E+00_JPRB,0.56135E+00_JPRB /)  
+KA(:, 2, 9) = (/ &
+ & 0.53130E+00_JPRB,0.53096E+00_JPRB,0.53038E+00_JPRB,0.52953E+00_JPRB,0.52828E+00_JPRB /)  
+KA(:, 3, 9) = (/ &
+ & 0.48947E+00_JPRB,0.48989E+00_JPRB,0.48991E+00_JPRB,0.48970E+00_JPRB,0.48916E+00_JPRB /)  
+KA(:, 4, 9) = (/ &
+ & 0.44646E+00_JPRB,0.44756E+00_JPRB,0.44841E+00_JPRB,0.44893E+00_JPRB,0.44859E+00_JPRB /)  
+KA(:, 5, 9) = (/ &
+ & 0.40428E+00_JPRB,0.40594E+00_JPRB,0.40746E+00_JPRB,0.40811E+00_JPRB,0.40825E+00_JPRB /)  
+KA(:, 6, 9) = (/ &
+ & 0.36305E+00_JPRB,0.36545E+00_JPRB,0.36730E+00_JPRB,0.36814E+00_JPRB,0.36854E+00_JPRB /)  
+KA(:, 7, 9) = (/ &
+ & 0.32383E+00_JPRB,0.32659E+00_JPRB,0.32849E+00_JPRB,0.32954E+00_JPRB,0.33028E+00_JPRB /)  
+KA(:, 8, 9) = (/ &
+ & 0.28691E+00_JPRB,0.28966E+00_JPRB,0.29156E+00_JPRB,0.29286E+00_JPRB,0.29379E+00_JPRB /)  
+KA(:, 9, 9) = (/ &
+ & 0.25109E+00_JPRB,0.25404E+00_JPRB,0.25607E+00_JPRB,0.25752E+00_JPRB,0.25870E+00_JPRB /)  
+KA(:,10, 9) = (/ &
+ & 0.21600E+00_JPRB,0.21860E+00_JPRB,0.22047E+00_JPRB,0.22164E+00_JPRB,0.22251E+00_JPRB /)  
+KA(:,11, 9) = (/ &
+ & 0.19149E+00_JPRB,0.19387E+00_JPRB,0.19567E+00_JPRB,0.19725E+00_JPRB,0.19809E+00_JPRB /)  
+KA(:,12, 9) = (/ &
+ & 0.16914E+00_JPRB,0.17134E+00_JPRB,0.17303E+00_JPRB,0.17407E+00_JPRB,0.17494E+00_JPRB /)  
+KA(:,13, 9) = (/ &
+ & 0.14841E+00_JPRB,0.15027E+00_JPRB,0.15244E+00_JPRB,0.15403E+00_JPRB,0.15523E+00_JPRB /)  
+KA(:, 1,10) = (/ &
+ & 0.14885E+01_JPRB,0.14756E+01_JPRB,0.14663E+01_JPRB,0.14567E+01_JPRB,0.14479E+01_JPRB /)  
+KA(:, 2,10) = (/ &
+ & 0.14911E+01_JPRB,0.14850E+01_JPRB,0.14762E+01_JPRB,0.14677E+01_JPRB,0.14597E+01_JPRB /)  
+KA(:, 3,10) = (/ &
+ & 0.14749E+01_JPRB,0.14716E+01_JPRB,0.14663E+01_JPRB,0.14579E+01_JPRB,0.14502E+01_JPRB /)  
+KA(:, 4,10) = (/ &
+ & 0.14314E+01_JPRB,0.14303E+01_JPRB,0.14232E+01_JPRB,0.14150E+01_JPRB,0.14115E+01_JPRB /)  
+KA(:, 5,10) = (/ &
+ & 0.13616E+01_JPRB,0.13604E+01_JPRB,0.13539E+01_JPRB,0.13506E+01_JPRB,0.13501E+01_JPRB /)  
+KA(:, 6,10) = (/ &
+ & 0.12710E+01_JPRB,0.12700E+01_JPRB,0.12670E+01_JPRB,0.12702E+01_JPRB,0.12745E+01_JPRB /)  
+KA(:, 7,10) = (/ &
+ & 0.11674E+01_JPRB,0.11690E+01_JPRB,0.11727E+01_JPRB,0.11812E+01_JPRB,0.11854E+01_JPRB /)  
+KA(:, 8,10) = (/ &
+ & 0.10584E+01_JPRB,0.10652E+01_JPRB,0.10757E+01_JPRB,0.10857E+01_JPRB,0.10906E+01_JPRB /)  
+KA(:, 9,10) = (/ &
+ & 0.95450E+00_JPRB,0.96414E+00_JPRB,0.97673E+00_JPRB,0.98621E+00_JPRB,0.99187E+00_JPRB /)  
+KA(:,10,10) = (/ &
+ & 0.83626E+00_JPRB,0.84690E+00_JPRB,0.85901E+00_JPRB,0.86824E+00_JPRB,0.87535E+00_JPRB /)  
+KA(:,11,10) = (/ &
+ & 0.73738E+00_JPRB,0.74729E+00_JPRB,0.75610E+00_JPRB,0.75994E+00_JPRB,0.76481E+00_JPRB /)  
+KA(:,12,10) = (/ &
+ & 0.66891E+00_JPRB,0.67622E+00_JPRB,0.68092E+00_JPRB,0.68498E+00_JPRB,0.68877E+00_JPRB /)  
+KA(:,13,10) = (/ &
+ & 0.58616E+00_JPRB,0.59614E+00_JPRB,0.59749E+00_JPRB,0.60310E+00_JPRB,0.60445E+00_JPRB /)  
+KA(:, 1,11) = (/ &
+ & 0.20080E+01_JPRB,0.19998E+01_JPRB,0.19844E+01_JPRB,0.19679E+01_JPRB,0.19504E+01_JPRB /)  
+KA(:, 2,11) = (/ &
+ & 0.20896E+01_JPRB,0.20752E+01_JPRB,0.20596E+01_JPRB,0.20445E+01_JPRB,0.20293E+01_JPRB /)  
+KA(:, 3,11) = (/ &
+ & 0.21262E+01_JPRB,0.21143E+01_JPRB,0.21043E+01_JPRB,0.20968E+01_JPRB,0.20862E+01_JPRB /)  
+KA(:, 4,11) = (/ &
+ & 0.21310E+01_JPRB,0.21263E+01_JPRB,0.21243E+01_JPRB,0.21203E+01_JPRB,0.21144E+01_JPRB /)  
+KA(:, 5,11) = (/ &
+ & 0.21041E+01_JPRB,0.21063E+01_JPRB,0.21071E+01_JPRB,0.21077E+01_JPRB,0.21021E+01_JPRB /)  
+KA(:, 6,11) = (/ &
+ & 0.20447E+01_JPRB,0.20491E+01_JPRB,0.20534E+01_JPRB,0.20532E+01_JPRB,0.20477E+01_JPRB /)  
+KA(:, 7,11) = (/ &
+ & 0.19487E+01_JPRB,0.19563E+01_JPRB,0.19608E+01_JPRB,0.19593E+01_JPRB,0.19591E+01_JPRB /)  
+KA(:, 8,11) = (/ &
+ & 0.18239E+01_JPRB,0.18317E+01_JPRB,0.18359E+01_JPRB,0.18391E+01_JPRB,0.18451E+01_JPRB /)  
+KA(:, 9,11) = (/ &
+ & 0.16772E+01_JPRB,0.16879E+01_JPRB,0.16955E+01_JPRB,0.17047E+01_JPRB,0.17179E+01_JPRB /)  
+KA(:,10,11) = (/ &
+ & 0.15007E+01_JPRB,0.15184E+01_JPRB,0.15343E+01_JPRB,0.15540E+01_JPRB,0.15756E+01_JPRB /)  
+KA(:,11,11) = (/ &
+ & 0.13041E+01_JPRB,0.13245E+01_JPRB,0.13445E+01_JPRB,0.13685E+01_JPRB,0.13888E+01_JPRB /)  
+KA(:,12,11) = (/ &
+ & 0.11590E+01_JPRB,0.11749E+01_JPRB,0.11906E+01_JPRB,0.12046E+01_JPRB,0.12212E+01_JPRB /)  
+KA(:,13,11) = (/ &
+ & 0.10681E+01_JPRB,0.10905E+01_JPRB,0.11017E+01_JPRB,0.10997E+01_JPRB,0.11116E+01_JPRB /)  
+KA(:, 1,12) = (/ &
+ & 0.26762E+01_JPRB,0.26701E+01_JPRB,0.26710E+01_JPRB,0.26742E+01_JPRB,0.26733E+01_JPRB /)  
+KA(:, 2,12) = (/ &
+ & 0.28804E+01_JPRB,0.28775E+01_JPRB,0.28798E+01_JPRB,0.28773E+01_JPRB,0.28700E+01_JPRB /)  
+KA(:, 3,12) = (/ &
+ & 0.30825E+01_JPRB,0.30790E+01_JPRB,0.30757E+01_JPRB,0.30631E+01_JPRB,0.30471E+01_JPRB /)  
+KA(:, 4,12) = (/ &
+ & 0.32355E+01_JPRB,0.32278E+01_JPRB,0.32144E+01_JPRB,0.31959E+01_JPRB,0.31753E+01_JPRB /)  
+KA(:, 5,12) = (/ &
+ & 0.33271E+01_JPRB,0.33191E+01_JPRB,0.33073E+01_JPRB,0.32879E+01_JPRB,0.32714E+01_JPRB /)  
+KA(:, 6,12) = (/ &
+ & 0.33604E+01_JPRB,0.33571E+01_JPRB,0.33478E+01_JPRB,0.33355E+01_JPRB,0.33272E+01_JPRB /)  
+KA(:, 7,12) = (/ &
+ & 0.33406E+01_JPRB,0.33436E+01_JPRB,0.33436E+01_JPRB,0.33435E+01_JPRB,0.33409E+01_JPRB /)  
+KA(:, 8,12) = (/ &
+ & 0.32648E+01_JPRB,0.32808E+01_JPRB,0.32919E+01_JPRB,0.32976E+01_JPRB,0.32999E+01_JPRB /)  
+KA(:, 9,12) = (/ &
+ & 0.31373E+01_JPRB,0.31630E+01_JPRB,0.31816E+01_JPRB,0.31936E+01_JPRB,0.31991E+01_JPRB /)  
+KA(:,10,12) = (/ &
+ & 0.29678E+01_JPRB,0.29982E+01_JPRB,0.30244E+01_JPRB,0.30412E+01_JPRB,0.30500E+01_JPRB /)  
+KA(:,11,12) = (/ &
+ & 0.27380E+01_JPRB,0.27731E+01_JPRB,0.28013E+01_JPRB,0.28227E+01_JPRB,0.28455E+01_JPRB /)  
+KA(:,12,12) = (/ &
+ & 0.24616E+01_JPRB,0.24905E+01_JPRB,0.25348E+01_JPRB,0.25805E+01_JPRB,0.26155E+01_JPRB /)  
+KA(:,13,12) = (/ &
+ & 0.22251E+01_JPRB,0.22562E+01_JPRB,0.22966E+01_JPRB,0.23312E+01_JPRB,0.23811E+01_JPRB /)  
+KA(:, 1,13) = (/ &
+ & 0.38031E+01_JPRB,0.37992E+01_JPRB,0.37926E+01_JPRB,0.37822E+01_JPRB,0.37755E+01_JPRB /)  
+KA(:, 2,13) = (/ &
+ & 0.41542E+01_JPRB,0.41473E+01_JPRB,0.41391E+01_JPRB,0.41329E+01_JPRB,0.41296E+01_JPRB /)  
+KA(:, 3,13) = (/ &
+ & 0.44998E+01_JPRB,0.44963E+01_JPRB,0.44896E+01_JPRB,0.44914E+01_JPRB,0.44937E+01_JPRB /)  
+KA(:, 4,13) = (/ &
+ & 0.48464E+01_JPRB,0.48445E+01_JPRB,0.48485E+01_JPRB,0.48565E+01_JPRB,0.48598E+01_JPRB /)  
+KA(:, 5,13) = (/ &
+ & 0.52074E+01_JPRB,0.52112E+01_JPRB,0.52168E+01_JPRB,0.52231E+01_JPRB,0.52210E+01_JPRB /)  
+KA(:, 6,13) = (/ &
+ & 0.55492E+01_JPRB,0.55575E+01_JPRB,0.55655E+01_JPRB,0.55693E+01_JPRB,0.55642E+01_JPRB /)  
+KA(:, 7,13) = (/ &
+ & 0.58380E+01_JPRB,0.58479E+01_JPRB,0.58509E+01_JPRB,0.58482E+01_JPRB,0.58453E+01_JPRB /)  
+KA(:, 8,13) = (/ &
+ & 0.60377E+01_JPRB,0.60538E+01_JPRB,0.60594E+01_JPRB,0.60647E+01_JPRB,0.60640E+01_JPRB /)  
+KA(:, 9,13) = (/ &
+ & 0.61268E+01_JPRB,0.61532E+01_JPRB,0.61730E+01_JPRB,0.61888E+01_JPRB,0.61993E+01_JPRB /)  
+KA(:,10,13) = (/ &
+ & 0.61216E+01_JPRB,0.61612E+01_JPRB,0.61936E+01_JPRB,0.62230E+01_JPRB,0.62454E+01_JPRB /)  
+KA(:,11,13) = (/ &
+ & 0.60409E+01_JPRB,0.60960E+01_JPRB,0.61462E+01_JPRB,0.61882E+01_JPRB,0.62219E+01_JPRB /)  
+KA(:,12,13) = (/ &
+ & 0.58645E+01_JPRB,0.59597E+01_JPRB,0.60234E+01_JPRB,0.60826E+01_JPRB,0.61390E+01_JPRB /)  
+KA(:,13,13) = (/ &
+ & 0.56001E+01_JPRB,0.57009E+01_JPRB,0.58017E+01_JPRB,0.59181E+01_JPRB,0.59860E+01_JPRB /)  
+KA(:, 1,14) = (/ &
+ & 0.53647E+01_JPRB,0.53127E+01_JPRB,0.52736E+01_JPRB,0.52471E+01_JPRB,0.52264E+01_JPRB /)  
+KA(:, 2,14) = (/ &
+ & 0.62359E+01_JPRB,0.61753E+01_JPRB,0.61253E+01_JPRB,0.60847E+01_JPRB,0.60573E+01_JPRB /)  
+KA(:, 3,14) = (/ &
+ & 0.72065E+01_JPRB,0.71249E+01_JPRB,0.70556E+01_JPRB,0.69965E+01_JPRB,0.69559E+01_JPRB /)  
+KA(:, 4,14) = (/ &
+ & 0.81631E+01_JPRB,0.80714E+01_JPRB,0.79828E+01_JPRB,0.79081E+01_JPRB,0.78545E+01_JPRB /)  
+KA(:, 5,14) = (/ &
+ & 0.90691E+01_JPRB,0.89602E+01_JPRB,0.88621E+01_JPRB,0.87858E+01_JPRB,0.87314E+01_JPRB /)  
+KA(:, 6,14) = (/ &
+ & 0.99707E+01_JPRB,0.98474E+01_JPRB,0.97395E+01_JPRB,0.96541E+01_JPRB,0.95904E+01_JPRB /)  
+KA(:, 7,14) = (/ &
+ & 0.10852E+02_JPRB,0.10724E+02_JPRB,0.10620E+02_JPRB,0.10536E+02_JPRB,0.10469E+02_JPRB /)  
+KA(:, 8,14) = (/ &
+ & 0.11716E+02_JPRB,0.11588E+02_JPRB,0.11487E+02_JPRB,0.11403E+02_JPRB,0.11337E+02_JPRB /)  
+KA(:, 9,14) = (/ &
+ & 0.12572E+02_JPRB,0.12448E+02_JPRB,0.12341E+02_JPRB,0.12260E+02_JPRB,0.12188E+02_JPRB /)  
+KA(:,10,14) = (/ &
+ & 0.13374E+02_JPRB,0.13256E+02_JPRB,0.13159E+02_JPRB,0.13080E+02_JPRB,0.13010E+02_JPRB /)  
+KA(:,11,14) = (/ &
+ & 0.14046E+02_JPRB,0.13957E+02_JPRB,0.13888E+02_JPRB,0.13824E+02_JPRB,0.13769E+02_JPRB /)  
+KA(:,12,14) = (/ &
+ & 0.14644E+02_JPRB,0.14592E+02_JPRB,0.14548E+02_JPRB,0.14504E+02_JPRB,0.14461E+02_JPRB /)  
+KA(:,13,14) = (/ &
+ & 0.15144E+02_JPRB,0.15129E+02_JPRB,0.15111E+02_JPRB,0.15095E+02_JPRB,0.15074E+02_JPRB /)  
+KA(:, 1,15) = (/ &
+ & 0.72019E+01_JPRB,0.71097E+01_JPRB,0.70236E+01_JPRB,0.69449E+01_JPRB,0.68844E+01_JPRB /)  
+KA(:, 2,15) = (/ &
+ & 0.87604E+01_JPRB,0.86468E+01_JPRB,0.85349E+01_JPRB,0.84375E+01_JPRB,0.83491E+01_JPRB /)  
+KA(:, 3,15) = (/ &
+ & 0.10615E+02_JPRB,0.10469E+02_JPRB,0.10333E+02_JPRB,0.10214E+02_JPRB,0.10099E+02_JPRB /)  
+KA(:, 4,15) = (/ &
+ & 0.12669E+02_JPRB,0.12473E+02_JPRB,0.12305E+02_JPRB,0.12161E+02_JPRB,0.12026E+02_JPRB /)  
+KA(:, 5,15) = (/ &
+ & 0.14978E+02_JPRB,0.14741E+02_JPRB,0.14530E+02_JPRB,0.14329E+02_JPRB,0.14143E+02_JPRB /)  
+KA(:, 6,15) = (/ &
+ & 0.17562E+02_JPRB,0.17282E+02_JPRB,0.17031E+02_JPRB,0.16791E+02_JPRB,0.16552E+02_JPRB /)  
+KA(:, 7,15) = (/ &
+ & 0.20480E+02_JPRB,0.20136E+02_JPRB,0.19827E+02_JPRB,0.19524E+02_JPRB,0.19223E+02_JPRB /)  
+KA(:, 8,15) = (/ &
+ & 0.23734E+02_JPRB,0.23307E+02_JPRB,0.22908E+02_JPRB,0.22521E+02_JPRB,0.22160E+02_JPRB /)  
+KA(:, 9,15) = (/ &
+ & 0.27249E+02_JPRB,0.26733E+02_JPRB,0.26255E+02_JPRB,0.25787E+02_JPRB,0.25354E+02_JPRB /)  
+KA(:,10,15) = (/ &
+ & 0.30889E+02_JPRB,0.30311E+02_JPRB,0.29740E+02_JPRB,0.29192E+02_JPRB,0.28690E+02_JPRB /)  
+KA(:,11,15) = (/ &
+ & 0.34366E+02_JPRB,0.33687E+02_JPRB,0.33035E+02_JPRB,0.32430E+02_JPRB,0.31843E+02_JPRB /)  
+KA(:,12,15) = (/ &
+ & 0.37839E+02_JPRB,0.37085E+02_JPRB,0.36360E+02_JPRB,0.35655E+02_JPRB,0.34957E+02_JPRB /)  
+KA(:,13,15) = (/ &
+ & 0.41323E+02_JPRB,0.40503E+02_JPRB,0.39673E+02_JPRB,0.38847E+02_JPRB,0.38049E+02_JPRB /)  
+KA(:, 1,16) = (/ &
+ & 0.82631E+01_JPRB,0.81761E+01_JPRB,0.80809E+01_JPRB,0.79778E+01_JPRB,0.79010E+01_JPRB /)  
+KA(:, 2,16) = (/ &
+ & 0.10258E+02_JPRB,0.10128E+02_JPRB,0.10005E+02_JPRB,0.98803E+01_JPRB,0.97700E+01_JPRB /)  
+KA(:, 3,16) = (/ &
+ & 0.12786E+02_JPRB,0.12614E+02_JPRB,0.12441E+02_JPRB,0.12267E+02_JPRB,0.12120E+02_JPRB /)  
+KA(:, 4,16) = (/ &
+ & 0.15843E+02_JPRB,0.15549E+02_JPRB,0.15326E+02_JPRB,0.15095E+02_JPRB,0.14871E+02_JPRB /)  
+KA(:, 5,16) = (/ &
+ & 0.19543E+02_JPRB,0.19089E+02_JPRB,0.18733E+02_JPRB,0.18430E+02_JPRB,0.18134E+02_JPRB /)  
+KA(:, 6,16) = (/ &
+ & 0.24038E+02_JPRB,0.23415E+02_JPRB,0.22893E+02_JPRB,0.22427E+02_JPRB,0.22005E+02_JPRB /)  
+KA(:, 7,16) = (/ &
+ & 0.29445E+02_JPRB,0.28630E+02_JPRB,0.27921E+02_JPRB,0.27268E+02_JPRB,0.26654E+02_JPRB /)  
+KA(:, 8,16) = (/ &
+ & 0.35889E+02_JPRB,0.34849E+02_JPRB,0.33913E+02_JPRB,0.33036E+02_JPRB,0.32194E+02_JPRB /)  
+KA(:, 9,16) = (/ &
+ & 0.43512E+02_JPRB,0.42175E+02_JPRB,0.40956E+02_JPRB,0.39809E+02_JPRB,0.38685E+02_JPRB /)  
+KA(:,10,16) = (/ &
+ & 0.52253E+02_JPRB,0.50582E+02_JPRB,0.49011E+02_JPRB,0.47508E+02_JPRB,0.46037E+02_JPRB /)  
+KA(:,11,16) = (/ &
+ & 0.61290E+02_JPRB,0.59240E+02_JPRB,0.57269E+02_JPRB,0.55343E+02_JPRB,0.53572E+02_JPRB /)  
+KA(:,12,16) = (/ &
+ & 0.71193E+02_JPRB,0.68607E+02_JPRB,0.66135E+02_JPRB,0.63828E+02_JPRB,0.61720E+02_JPRB /)  
+KA(:,13,16) = (/ &
+ & 0.81988E+02_JPRB,0.78665E+02_JPRB,0.75707E+02_JPRB,0.72932E+02_JPRB,0.70347E+02_JPRB /)  
+  
+!     -----------------------------------------------------------------
+!     The array KB contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels < ~100mb and temperatures. The first 
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this pressure 
+!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for
+!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  
+!     The second index, JP, runs from 13 to 59 and refers to the JPth
+!     reference pressure level (see taumol.f for the value of these
+!     pressure levels in mb).  The third index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+!     -----------------------------------------------------------------
+
+KB(:,13, 1) = (/ &
+ & 0.29597E-05_JPRB,0.31929E-05_JPRB,0.34159E-05_JPRB,0.36256E-05_JPRB,0.38264E-05_JPRB /)  
+KB(:,14, 1) = (/ &
+ & 0.24233E-05_JPRB,0.26151E-05_JPRB,0.27866E-05_JPRB,0.29502E-05_JPRB,0.31170E-05_JPRB /)  
+KB(:,15, 1) = (/ &
+ & 0.19206E-05_JPRB,0.20789E-05_JPRB,0.22099E-05_JPRB,0.23383E-05_JPRB,0.24505E-05_JPRB /)  
+KB(:,16, 1) = (/ &
+ & 0.14933E-05_JPRB,0.16071E-05_JPRB,0.17039E-05_JPRB,0.17994E-05_JPRB,0.18816E-05_JPRB /)  
+KB(:,17, 1) = (/ &
+ & 0.11429E-05_JPRB,0.12144E-05_JPRB,0.12895E-05_JPRB,0.13503E-05_JPRB,0.14174E-05_JPRB /)  
+KB(:,18, 1) = (/ &
+ & 0.84134E-06_JPRB,0.89264E-06_JPRB,0.94260E-06_JPRB,0.99003E-06_JPRB,0.10391E-05_JPRB /)  
+KB(:,19, 1) = (/ &
+ & 0.60683E-06_JPRB,0.64142E-06_JPRB,0.68018E-06_JPRB,0.72042E-06_JPRB,0.75479E-06_JPRB /)  
+KB(:,20, 1) = (/ &
+ & 0.45809E-06_JPRB,0.48813E-06_JPRB,0.51934E-06_JPRB,0.54823E-06_JPRB,0.57261E-06_JPRB /)  
+KB(:,21, 1) = (/ &
+ & 0.35219E-06_JPRB,0.37835E-06_JPRB,0.40322E-06_JPRB,0.42772E-06_JPRB,0.44736E-06_JPRB /)  
+KB(:,22, 1) = (/ &
+ & 0.27419E-06_JPRB,0.29542E-06_JPRB,0.31617E-06_JPRB,0.33398E-06_JPRB,0.34932E-06_JPRB /)  
+KB(:,23, 1) = (/ &
+ & 0.21385E-06_JPRB,0.23127E-06_JPRB,0.24670E-06_JPRB,0.25951E-06_JPRB,0.26952E-06_JPRB /)  
+KB(:,24, 1) = (/ &
+ & 0.16767E-06_JPRB,0.18179E-06_JPRB,0.19282E-06_JPRB,0.20136E-06_JPRB,0.21113E-06_JPRB /)  
+KB(:,25, 1) = (/ &
+ & 0.13361E-06_JPRB,0.14301E-06_JPRB,0.14980E-06_JPRB,0.15778E-06_JPRB,0.16615E-06_JPRB /)  
+KB(:,26, 1) = (/ &
+ & 0.10615E-06_JPRB,0.11218E-06_JPRB,0.11889E-06_JPRB,0.12574E-06_JPRB,0.13111E-06_JPRB /)  
+KB(:,27, 1) = (/ &
+ & 0.83660E-07_JPRB,0.89296E-07_JPRB,0.95019E-07_JPRB,0.10007E-06_JPRB,0.10397E-06_JPRB /)  
+KB(:,28, 1) = (/ &
+ & 0.66667E-07_JPRB,0.71217E-07_JPRB,0.75615E-07_JPRB,0.79237E-07_JPRB,0.82239E-07_JPRB /)  
+KB(:,29, 1) = (/ &
+ & 0.52776E-07_JPRB,0.56086E-07_JPRB,0.59828E-07_JPRB,0.62513E-07_JPRB,0.64218E-07_JPRB /)  
+KB(:,30, 1) = (/ &
+ & 0.41429E-07_JPRB,0.44370E-07_JPRB,0.46731E-07_JPRB,0.48553E-07_JPRB,0.50143E-07_JPRB /)  
+KB(:,31, 1) = (/ &
+ & 0.32437E-07_JPRB,0.34523E-07_JPRB,0.36208E-07_JPRB,0.37500E-07_JPRB,0.38571E-07_JPRB /)  
+KB(:,32, 1) = (/ &
+ & 0.25237E-07_JPRB,0.26730E-07_JPRB,0.27868E-07_JPRB,0.28829E-07_JPRB,0.29943E-07_JPRB /)  
+KB(:,33, 1) = (/ &
+ & 0.19545E-07_JPRB,0.20614E-07_JPRB,0.21467E-07_JPRB,0.22280E-07_JPRB,0.23141E-07_JPRB /)  
+KB(:,34, 1) = (/ &
+ & 0.15146E-07_JPRB,0.15869E-07_JPRB,0.16509E-07_JPRB,0.17179E-07_JPRB,0.17980E-07_JPRB /)  
+KB(:,35, 1) = (/ &
+ & 0.11482E-07_JPRB,0.12039E-07_JPRB,0.12547E-07_JPRB,0.13255E-07_JPRB,0.13874E-07_JPRB /)  
+KB(:,36, 1) = (/ &
+ & 0.86172E-08_JPRB,0.90023E-08_JPRB,0.95607E-08_JPRB,0.10106E-07_JPRB,0.10595E-07_JPRB /)  
+KB(:,37, 1) = (/ &
+ & 0.67411E-08_JPRB,0.70781E-08_JPRB,0.75553E-08_JPRB,0.79739E-08_JPRB,0.84011E-08_JPRB /)  
+KB(:,38, 1) = (/ &
+ & 0.52604E-08_JPRB,0.55743E-08_JPRB,0.59410E-08_JPRB,0.63031E-08_JPRB,0.66516E-08_JPRB /)  
+KB(:,39, 1) = (/ &
+ & 0.41129E-08_JPRB,0.43854E-08_JPRB,0.46851E-08_JPRB,0.49771E-08_JPRB,0.52463E-08_JPRB /)  
+KB(:,40, 1) = (/ &
+ & 0.33089E-08_JPRB,0.35289E-08_JPRB,0.37702E-08_JPRB,0.40125E-08_JPRB,0.42415E-08_JPRB /)  
+KB(:,41, 1) = (/ &
+ & 0.26794E-08_JPRB,0.28488E-08_JPRB,0.30428E-08_JPRB,0.32437E-08_JPRB,0.34420E-08_JPRB /)  
+KB(:,42, 1) = (/ &
+ & 0.21670E-08_JPRB,0.23030E-08_JPRB,0.24589E-08_JPRB,0.26252E-08_JPRB,0.27867E-08_JPRB /)  
+KB(:,43, 1) = (/ &
+ & 0.17699E-08_JPRB,0.18853E-08_JPRB,0.20001E-08_JPRB,0.21330E-08_JPRB,0.22657E-08_JPRB /)  
+KB(:,44, 1) = (/ &
+ & 0.14446E-08_JPRB,0.15471E-08_JPRB,0.16397E-08_JPRB,0.17423E-08_JPRB,0.18526E-08_JPRB /)  
+KB(:,45, 1) = (/ &
+ & 0.11734E-08_JPRB,0.12754E-08_JPRB,0.13542E-08_JPRB,0.14242E-08_JPRB,0.15193E-08_JPRB /)  
+KB(:,46, 1) = (/ &
+ & 0.95743E-09_JPRB,0.10470E-08_JPRB,0.11183E-08_JPRB,0.11726E-08_JPRB,0.12389E-08_JPRB /)  
+KB(:,47, 1) = (/ &
+ & 0.77345E-09_JPRB,0.85197E-09_JPRB,0.92184E-09_JPRB,0.97368E-09_JPRB,0.10149E-08_JPRB /)  
+KB(:,48, 1) = (/ &
+ & 0.62500E-09_JPRB,0.69288E-09_JPRB,0.75548E-09_JPRB,0.80446E-09_JPRB,0.84428E-09_JPRB /)  
+KB(:,49, 1) = (/ &
+ & 0.50095E-09_JPRB,0.55967E-09_JPRB,0.61904E-09_JPRB,0.66441E-09_JPRB,0.70339E-09_JPRB /)  
+KB(:,50, 1) = (/ &
+ & 0.40806E-09_JPRB,0.45712E-09_JPRB,0.50530E-09_JPRB,0.54974E-09_JPRB,0.58246E-09_JPRB /)  
+KB(:,51, 1) = (/ &
+ & 0.33102E-09_JPRB,0.37130E-09_JPRB,0.41121E-09_JPRB,0.45024E-09_JPRB,0.48436E-09_JPRB /)  
+KB(:,52, 1) = (/ &
+ & 0.26906E-09_JPRB,0.30739E-09_JPRB,0.33845E-09_JPRB,0.36884E-09_JPRB,0.40024E-09_JPRB /)  
+KB(:,53, 1) = (/ &
+ & 0.22202E-09_JPRB,0.25108E-09_JPRB,0.27937E-09_JPRB,0.30592E-09_JPRB,0.33012E-09_JPRB /)  
+KB(:,54, 1) = (/ &
+ & 0.18662E-09_JPRB,0.20761E-09_JPRB,0.23072E-09_JPRB,0.25342E-09_JPRB,0.27445E-09_JPRB /)  
+KB(:,55, 1) = (/ &
+ & 0.15741E-09_JPRB,0.17147E-09_JPRB,0.19146E-09_JPRB,0.21029E-09_JPRB,0.22857E-09_JPRB /)  
+KB(:,56, 1) = (/ &
+ & 0.13151E-09_JPRB,0.14637E-09_JPRB,0.15977E-09_JPRB,0.17547E-09_JPRB,0.18974E-09_JPRB /)  
+KB(:,57, 1) = (/ &
+ & 0.10874E-09_JPRB,0.12447E-09_JPRB,0.13634E-09_JPRB,0.14752E-09_JPRB,0.16022E-09_JPRB /)  
+KB(:,58, 1) = (/ &
+ & 0.90206E-10_JPRB,0.10484E-09_JPRB,0.11617E-09_JPRB,0.12545E-09_JPRB,0.13474E-09_JPRB /)  
+KB(:,59, 1) = (/ &
+ & 0.76759E-10_JPRB,0.88866E-10_JPRB,0.99340E-10_JPRB,0.10706E-09_JPRB,0.11444E-09_JPRB /)  
+KB(:,13, 2) = (/ &
+ & 0.14727E-04_JPRB,0.16357E-04_JPRB,0.17961E-04_JPRB,0.19530E-04_JPRB,0.20852E-04_JPRB /)  
+KB(:,14, 2) = (/ &
+ & 0.12148E-04_JPRB,0.13478E-04_JPRB,0.14818E-04_JPRB,0.16049E-04_JPRB,0.17100E-04_JPRB /)  
+KB(:,15, 2) = (/ &
+ & 0.96902E-05_JPRB,0.10787E-04_JPRB,0.11835E-04_JPRB,0.12770E-04_JPRB,0.13515E-04_JPRB /)  
+KB(:,16, 2) = (/ &
+ & 0.76235E-05_JPRB,0.84575E-05_JPRB,0.92217E-05_JPRB,0.98526E-05_JPRB,0.10449E-04_JPRB /)  
+KB(:,17, 2) = (/ &
+ & 0.58049E-05_JPRB,0.64239E-05_JPRB,0.69733E-05_JPRB,0.74131E-05_JPRB,0.78082E-05_JPRB /)  
+KB(:,18, 2) = (/ &
+ & 0.43204E-05_JPRB,0.47510E-05_JPRB,0.51165E-05_JPRB,0.54579E-05_JPRB,0.57434E-05_JPRB /)  
+KB(:,19, 2) = (/ &
+ & 0.32211E-05_JPRB,0.35327E-05_JPRB,0.38175E-05_JPRB,0.40535E-05_JPRB,0.42245E-05_JPRB /)  
+KB(:,20, 2) = (/ &
+ & 0.25265E-05_JPRB,0.27652E-05_JPRB,0.29644E-05_JPRB,0.31331E-05_JPRB,0.32730E-05_JPRB /)  
+KB(:,21, 2) = (/ &
+ & 0.19921E-05_JPRB,0.21749E-05_JPRB,0.23343E-05_JPRB,0.24377E-05_JPRB,0.25458E-05_JPRB /)  
+KB(:,22, 2) = (/ &
+ & 0.15859E-05_JPRB,0.17259E-05_JPRB,0.18236E-05_JPRB,0.19124E-05_JPRB,0.19942E-05_JPRB /)  
+KB(:,23, 2) = (/ &
+ & 0.12591E-05_JPRB,0.13565E-05_JPRB,0.14309E-05_JPRB,0.15032E-05_JPRB,0.15642E-05_JPRB /)  
+KB(:,24, 2) = (/ &
+ & 0.10012E-05_JPRB,0.10701E-05_JPRB,0.11246E-05_JPRB,0.11819E-05_JPRB,0.12279E-05_JPRB /)  
+KB(:,25, 2) = (/ &
+ & 0.78985E-06_JPRB,0.84074E-06_JPRB,0.89029E-06_JPRB,0.93145E-06_JPRB,0.97085E-06_JPRB /)  
+KB(:,26, 2) = (/ &
+ & 0.62996E-06_JPRB,0.66847E-06_JPRB,0.70637E-06_JPRB,0.73513E-06_JPRB,0.77135E-06_JPRB /)  
+KB(:,27, 2) = (/ &
+ & 0.50283E-06_JPRB,0.53111E-06_JPRB,0.55653E-06_JPRB,0.58306E-06_JPRB,0.61799E-06_JPRB /)  
+KB(:,28, 2) = (/ &
+ & 0.39962E-06_JPRB,0.42320E-06_JPRB,0.44265E-06_JPRB,0.46715E-06_JPRB,0.49516E-06_JPRB /)  
+KB(:,29, 2) = (/ &
+ & 0.31810E-06_JPRB,0.33597E-06_JPRB,0.35191E-06_JPRB,0.37448E-06_JPRB,0.39768E-06_JPRB /)  
+KB(:,30, 2) = (/ &
+ & 0.25242E-06_JPRB,0.26447E-06_JPRB,0.28109E-06_JPRB,0.30089E-06_JPRB,0.31543E-06_JPRB /)  
+KB(:,31, 2) = (/ &
+ & 0.19837E-06_JPRB,0.20954E-06_JPRB,0.22442E-06_JPRB,0.23762E-06_JPRB,0.25183E-06_JPRB /)  
+KB(:,32, 2) = (/ &
+ & 0.15599E-06_JPRB,0.16701E-06_JPRB,0.17789E-06_JPRB,0.18880E-06_JPRB,0.20030E-06_JPRB /)  
+KB(:,33, 2) = (/ &
+ & 0.12307E-06_JPRB,0.13211E-06_JPRB,0.14046E-06_JPRB,0.15111E-06_JPRB,0.15988E-06_JPRB /)  
+KB(:,34, 2) = (/ &
+ & 0.98429E-07_JPRB,0.10498E-06_JPRB,0.11326E-06_JPRB,0.12074E-06_JPRB,0.12779E-06_JPRB /)  
+KB(:,35, 2) = (/ &
+ & 0.77743E-07_JPRB,0.83951E-07_JPRB,0.90473E-07_JPRB,0.96277E-07_JPRB,0.10204E-06_JPRB /)  
+KB(:,36, 2) = (/ &
+ & 0.61220E-07_JPRB,0.66399E-07_JPRB,0.71102E-07_JPRB,0.75946E-07_JPRB,0.80803E-07_JPRB /)  
+KB(:,37, 2) = (/ &
+ & 0.48819E-07_JPRB,0.52962E-07_JPRB,0.56669E-07_JPRB,0.60817E-07_JPRB,0.64709E-07_JPRB /)  
+KB(:,38, 2) = (/ &
+ & 0.38871E-07_JPRB,0.42226E-07_JPRB,0.45376E-07_JPRB,0.48641E-07_JPRB,0.51855E-07_JPRB /)  
+KB(:,39, 2) = (/ &
+ & 0.30869E-07_JPRB,0.33485E-07_JPRB,0.36233E-07_JPRB,0.38868E-07_JPRB,0.41523E-07_JPRB /)  
+KB(:,40, 2) = (/ &
+ & 0.24798E-07_JPRB,0.26983E-07_JPRB,0.29180E-07_JPRB,0.31437E-07_JPRB,0.33600E-07_JPRB /)  
+KB(:,41, 2) = (/ &
+ & 0.19951E-07_JPRB,0.21784E-07_JPRB,0.23518E-07_JPRB,0.25460E-07_JPRB,0.27219E-07_JPRB /)  
+KB(:,42, 2) = (/ &
+ & 0.16098E-07_JPRB,0.17542E-07_JPRB,0.18979E-07_JPRB,0.20547E-07_JPRB,0.22016E-07_JPRB /)  
+KB(:,43, 2) = (/ &
+ & 0.13020E-07_JPRB,0.14144E-07_JPRB,0.15414E-07_JPRB,0.16610E-07_JPRB,0.17870E-07_JPRB /)  
+KB(:,44, 2) = (/ &
+ & 0.10548E-07_JPRB,0.11500E-07_JPRB,0.12492E-07_JPRB,0.13520E-07_JPRB,0.14524E-07_JPRB /)  
+KB(:,45, 2) = (/ &
+ & 0.85602E-08_JPRB,0.93245E-08_JPRB,0.10096E-07_JPRB,0.10978E-07_JPRB,0.11819E-07_JPRB /)  
+KB(:,46, 2) = (/ &
+ & 0.69149E-08_JPRB,0.75653E-08_JPRB,0.82154E-08_JPRB,0.88822E-08_JPRB,0.96002E-08_JPRB /)  
+KB(:,47, 2) = (/ &
+ & 0.55708E-08_JPRB,0.61164E-08_JPRB,0.66678E-08_JPRB,0.71922E-08_JPRB,0.77633E-08_JPRB /)  
+KB(:,48, 2) = (/ &
+ & 0.44804E-08_JPRB,0.49312E-08_JPRB,0.53967E-08_JPRB,0.58662E-08_JPRB,0.62780E-08_JPRB /)  
+KB(:,49, 2) = (/ &
+ & 0.36467E-08_JPRB,0.39866E-08_JPRB,0.43628E-08_JPRB,0.47589E-08_JPRB,0.51208E-08_JPRB /)  
+KB(:,50, 2) = (/ &
+ & 0.29524E-08_JPRB,0.32540E-08_JPRB,0.35471E-08_JPRB,0.38638E-08_JPRB,0.41887E-08_JPRB /)  
+KB(:,51, 2) = (/ &
+ & 0.23887E-08_JPRB,0.26526E-08_JPRB,0.28959E-08_JPRB,0.31504E-08_JPRB,0.34112E-08_JPRB /)  
+KB(:,52, 2) = (/ &
+ & 0.19321E-08_JPRB,0.21648E-08_JPRB,0.23625E-08_JPRB,0.25839E-08_JPRB,0.28173E-08_JPRB /)  
+KB(:,53, 2) = (/ &
+ & 0.15684E-08_JPRB,0.17725E-08_JPRB,0.19476E-08_JPRB,0.21240E-08_JPRB,0.23118E-08_JPRB /)  
+KB(:,54, 2) = (/ &
+ & 0.12799E-08_JPRB,0.14467E-08_JPRB,0.16073E-08_JPRB,0.17494E-08_JPRB,0.19160E-08_JPRB /)  
+KB(:,55, 2) = (/ &
+ & 0.10442E-08_JPRB,0.11911E-08_JPRB,0.13216E-08_JPRB,0.14537E-08_JPRB,0.15771E-08_JPRB /)  
+KB(:,56, 2) = (/ &
+ & 0.85741E-09_JPRB,0.97937E-09_JPRB,0.10936E-08_JPRB,0.12056E-08_JPRB,0.13167E-08_JPRB /)  
+KB(:,57, 2) = (/ &
+ & 0.70358E-09_JPRB,0.80334E-09_JPRB,0.90824E-09_JPRB,0.10056E-08_JPRB,0.11010E-08_JPRB /)  
+KB(:,58, 2) = (/ &
+ & 0.57428E-09_JPRB,0.66441E-09_JPRB,0.75420E-09_JPRB,0.83627E-09_JPRB,0.92485E-09_JPRB /)  
+KB(:,59, 2) = (/ &
+ & 0.47922E-09_JPRB,0.55592E-09_JPRB,0.63499E-09_JPRB,0.70731E-09_JPRB,0.78678E-09_JPRB /)  
+KB(:,13, 3) = (/ &
+ & 0.76201E-04_JPRB,0.82699E-04_JPRB,0.87499E-04_JPRB,0.91352E-04_JPRB,0.95348E-04_JPRB /)  
+KB(:,14, 3) = (/ &
+ & 0.62821E-04_JPRB,0.67861E-04_JPRB,0.71868E-04_JPRB,0.75108E-04_JPRB,0.78557E-04_JPRB /)  
+KB(:,15, 3) = (/ &
+ & 0.49775E-04_JPRB,0.53367E-04_JPRB,0.56639E-04_JPRB,0.59001E-04_JPRB,0.62303E-04_JPRB /)  
+KB(:,16, 3) = (/ &
+ & 0.38005E-04_JPRB,0.40883E-04_JPRB,0.43269E-04_JPRB,0.45403E-04_JPRB,0.48139E-04_JPRB /)  
+KB(:,17, 3) = (/ &
+ & 0.28550E-04_JPRB,0.30750E-04_JPRB,0.32331E-04_JPRB,0.34489E-04_JPRB,0.36687E-04_JPRB /)  
+KB(:,18, 3) = (/ &
+ & 0.20976E-04_JPRB,0.22322E-04_JPRB,0.23743E-04_JPRB,0.25554E-04_JPRB,0.27223E-04_JPRB /)  
+KB(:,19, 3) = (/ &
+ & 0.15389E-04_JPRB,0.16422E-04_JPRB,0.17792E-04_JPRB,0.19127E-04_JPRB,0.20295E-04_JPRB /)  
+KB(:,20, 3) = (/ &
+ & 0.11883E-04_JPRB,0.12816E-04_JPRB,0.13962E-04_JPRB,0.14872E-04_JPRB,0.15725E-04_JPRB /)  
+KB(:,21, 3) = (/ &
+ & 0.92948E-05_JPRB,0.10187E-04_JPRB,0.10986E-04_JPRB,0.11713E-04_JPRB,0.12426E-04_JPRB /)  
+KB(:,22, 3) = (/ &
+ & 0.73969E-05_JPRB,0.80840E-05_JPRB,0.87263E-05_JPRB,0.93856E-05_JPRB,0.99533E-05_JPRB /)  
+KB(:,23, 3) = (/ &
+ & 0.58961E-05_JPRB,0.64591E-05_JPRB,0.69648E-05_JPRB,0.74494E-05_JPRB,0.79385E-05_JPRB /)  
+KB(:,24, 3) = (/ &
+ & 0.47445E-05_JPRB,0.51742E-05_JPRB,0.56036E-05_JPRB,0.59758E-05_JPRB,0.63724E-05_JPRB /)  
+KB(:,25, 3) = (/ &
+ & 0.38442E-05_JPRB,0.41791E-05_JPRB,0.44837E-05_JPRB,0.48078E-05_JPRB,0.51294E-05_JPRB /)  
+KB(:,26, 3) = (/ &
+ & 0.31335E-05_JPRB,0.33923E-05_JPRB,0.36400E-05_JPRB,0.38961E-05_JPRB,0.41487E-05_JPRB /)  
+KB(:,27, 3) = (/ &
+ & 0.25499E-05_JPRB,0.27432E-05_JPRB,0.29560E-05_JPRB,0.31545E-05_JPRB,0.33433E-05_JPRB /)  
+KB(:,28, 3) = (/ &
+ & 0.20635E-05_JPRB,0.22231E-05_JPRB,0.23897E-05_JPRB,0.25516E-05_JPRB,0.26938E-05_JPRB /)  
+KB(:,29, 3) = (/ &
+ & 0.16635E-05_JPRB,0.18024E-05_JPRB,0.19279E-05_JPRB,0.20498E-05_JPRB,0.21627E-05_JPRB /)  
+KB(:,30, 3) = (/ &
+ & 0.13359E-05_JPRB,0.14474E-05_JPRB,0.15470E-05_JPRB,0.16346E-05_JPRB,0.17457E-05_JPRB /)  
+KB(:,31, 3) = (/ &
+ & 0.10697E-05_JPRB,0.11477E-05_JPRB,0.12254E-05_JPRB,0.13097E-05_JPRB,0.13914E-05_JPRB /)  
+KB(:,32, 3) = (/ &
+ & 0.84958E-06_JPRB,0.91464E-06_JPRB,0.98189E-06_JPRB,0.10489E-05_JPRB,0.11150E-05_JPRB /)  
+KB(:,33, 3) = (/ &
+ & 0.68178E-06_JPRB,0.73356E-06_JPRB,0.78905E-06_JPRB,0.84226E-06_JPRB,0.89476E-06_JPRB /)  
+KB(:,34, 3) = (/ &
+ & 0.54737E-06_JPRB,0.58995E-06_JPRB,0.63374E-06_JPRB,0.67732E-06_JPRB,0.72182E-06_JPRB /)  
+KB(:,35, 3) = (/ &
+ & 0.43680E-06_JPRB,0.47086E-06_JPRB,0.50771E-06_JPRB,0.54209E-06_JPRB,0.57687E-06_JPRB /)  
+KB(:,36, 3) = (/ &
+ & 0.34612E-06_JPRB,0.37466E-06_JPRB,0.40370E-06_JPRB,0.43073E-06_JPRB,0.45979E-06_JPRB /)  
+KB(:,37, 3) = (/ &
+ & 0.27725E-06_JPRB,0.30048E-06_JPRB,0.32451E-06_JPRB,0.34638E-06_JPRB,0.37105E-06_JPRB /)  
+KB(:,38, 3) = (/ &
+ & 0.22228E-06_JPRB,0.24114E-06_JPRB,0.26049E-06_JPRB,0.27871E-06_JPRB,0.29935E-06_JPRB /)  
+KB(:,39, 3) = (/ &
+ & 0.17797E-06_JPRB,0.19317E-06_JPRB,0.20878E-06_JPRB,0.22411E-06_JPRB,0.24102E-06_JPRB /)  
+KB(:,40, 3) = (/ &
+ & 0.14346E-06_JPRB,0.15601E-06_JPRB,0.16913E-06_JPRB,0.18197E-06_JPRB,0.19566E-06_JPRB /)  
+KB(:,41, 3) = (/ &
+ & 0.11559E-06_JPRB,0.12615E-06_JPRB,0.13697E-06_JPRB,0.14785E-06_JPRB,0.15874E-06_JPRB /)  
+KB(:,42, 3) = (/ &
+ & 0.93358E-07_JPRB,0.10214E-06_JPRB,0.11089E-06_JPRB,0.11998E-06_JPRB,0.12904E-06_JPRB /)  
+KB(:,43, 3) = (/ &
+ & 0.75599E-07_JPRB,0.82690E-07_JPRB,0.89808E-07_JPRB,0.97524E-07_JPRB,0.10511E-06_JPRB /)  
+KB(:,44, 3) = (/ &
+ & 0.61285E-07_JPRB,0.66786E-07_JPRB,0.72937E-07_JPRB,0.79087E-07_JPRB,0.85525E-07_JPRB /)  
+KB(:,45, 3) = (/ &
+ & 0.49725E-07_JPRB,0.54294E-07_JPRB,0.59263E-07_JPRB,0.64213E-07_JPRB,0.69583E-07_JPRB /)  
+KB(:,46, 3) = (/ &
+ & 0.40336E-07_JPRB,0.44186E-07_JPRB,0.48034E-07_JPRB,0.52184E-07_JPRB,0.56534E-07_JPRB /)  
+KB(:,47, 3) = (/ &
+ & 0.32904E-07_JPRB,0.35633E-07_JPRB,0.38959E-07_JPRB,0.42402E-07_JPRB,0.45883E-07_JPRB /)  
+KB(:,48, 3) = (/ &
+ & 0.26725E-07_JPRB,0.29104E-07_JPRB,0.31693E-07_JPRB,0.34312E-07_JPRB,0.37304E-07_JPRB /)  
+KB(:,49, 3) = (/ &
+ & 0.21751E-07_JPRB,0.23849E-07_JPRB,0.25803E-07_JPRB,0.28024E-07_JPRB,0.30356E-07_JPRB /)  
+KB(:,50, 3) = (/ &
+ & 0.17587E-07_JPRB,0.19609E-07_JPRB,0.21216E-07_JPRB,0.23022E-07_JPRB,0.24942E-07_JPRB /)  
+KB(:,51, 3) = (/ &
+ & 0.14376E-07_JPRB,0.15990E-07_JPRB,0.17493E-07_JPRB,0.18872E-07_JPRB,0.20463E-07_JPRB /)  
+KB(:,52, 3) = (/ &
+ & 0.11811E-07_JPRB,0.13106E-07_JPRB,0.14489E-07_JPRB,0.15615E-07_JPRB,0.16832E-07_JPRB /)  
+KB(:,53, 3) = (/ &
+ & 0.96001E-08_JPRB,0.10788E-07_JPRB,0.11921E-07_JPRB,0.12985E-07_JPRB,0.13904E-07_JPRB /)  
+KB(:,54, 3) = (/ &
+ & 0.78243E-08_JPRB,0.89178E-08_JPRB,0.98430E-08_JPRB,0.10840E-07_JPRB,0.11619E-07_JPRB /)  
+KB(:,55, 3) = (/ &
+ & 0.63638E-08_JPRB,0.73678E-08_JPRB,0.82214E-08_JPRB,0.89997E-08_JPRB,0.97565E-08_JPRB /)  
+KB(:,56, 3) = (/ &
+ & 0.51753E-08_JPRB,0.60497E-08_JPRB,0.68419E-08_JPRB,0.74560E-08_JPRB,0.82362E-08_JPRB /)  
+KB(:,57, 3) = (/ &
+ & 0.42164E-08_JPRB,0.49916E-08_JPRB,0.57066E-08_JPRB,0.63308E-08_JPRB,0.68950E-08_JPRB /)  
+KB(:,58, 3) = (/ &
+ & 0.34618E-08_JPRB,0.41424E-08_JPRB,0.48054E-08_JPRB,0.53757E-08_JPRB,0.58095E-08_JPRB /)  
+KB(:,59, 3) = (/ &
+ & 0.29083E-08_JPRB,0.35291E-08_JPRB,0.40932E-08_JPRB,0.46285E-08_JPRB,0.49865E-08_JPRB /)  
+KB(:,13, 4) = (/ &
+ & 0.37674E-03_JPRB,0.40953E-03_JPRB,0.43690E-03_JPRB,0.46059E-03_JPRB,0.48007E-03_JPRB /)  
+KB(:,14, 4) = (/ &
+ & 0.31202E-03_JPRB,0.33906E-03_JPRB,0.36066E-03_JPRB,0.38003E-03_JPRB,0.39627E-03_JPRB /)  
+KB(:,15, 4) = (/ &
+ & 0.25135E-03_JPRB,0.27271E-03_JPRB,0.29069E-03_JPRB,0.30661E-03_JPRB,0.32005E-03_JPRB /)  
+KB(:,16, 4) = (/ &
+ & 0.19797E-03_JPRB,0.21527E-03_JPRB,0.22955E-03_JPRB,0.24328E-03_JPRB,0.25456E-03_JPRB /)  
+KB(:,17, 4) = (/ &
+ & 0.15354E-03_JPRB,0.16679E-03_JPRB,0.17933E-03_JPRB,0.19101E-03_JPRB,0.20041E-03_JPRB /)  
+KB(:,18, 4) = (/ &
+ & 0.11742E-03_JPRB,0.12797E-03_JPRB,0.13923E-03_JPRB,0.14836E-03_JPRB,0.15654E-03_JPRB /)  
+KB(:,19, 4) = (/ &
+ & 0.90519E-04_JPRB,0.99386E-04_JPRB,0.10819E-03_JPRB,0.11601E-03_JPRB,0.12319E-03_JPRB /)  
+KB(:,20, 4) = (/ &
+ & 0.72579E-04_JPRB,0.79910E-04_JPRB,0.87075E-04_JPRB,0.93728E-04_JPRB,0.99656E-04_JPRB /)  
+KB(:,21, 4) = (/ &
+ & 0.58866E-04_JPRB,0.64805E-04_JPRB,0.70705E-04_JPRB,0.76153E-04_JPRB,0.80996E-04_JPRB /)  
+KB(:,22, 4) = (/ &
+ & 0.48157E-04_JPRB,0.52883E-04_JPRB,0.57740E-04_JPRB,0.62130E-04_JPRB,0.66100E-04_JPRB /)  
+KB(:,23, 4) = (/ &
+ & 0.39337E-04_JPRB,0.43289E-04_JPRB,0.47275E-04_JPRB,0.50906E-04_JPRB,0.54161E-04_JPRB /)  
+KB(:,24, 4) = (/ &
+ & 0.32289E-04_JPRB,0.35577E-04_JPRB,0.38808E-04_JPRB,0.41814E-04_JPRB,0.44433E-04_JPRB /)  
+KB(:,25, 4) = (/ &
+ & 0.26615E-04_JPRB,0.29301E-04_JPRB,0.31984E-04_JPRB,0.34396E-04_JPRB,0.36509E-04_JPRB /)  
+KB(:,26, 4) = (/ &
+ & 0.22060E-04_JPRB,0.24270E-04_JPRB,0.26460E-04_JPRB,0.28450E-04_JPRB,0.30203E-04_JPRB /)  
+KB(:,27, 4) = (/ &
+ & 0.18344E-04_JPRB,0.20177E-04_JPRB,0.21948E-04_JPRB,0.23595E-04_JPRB,0.25001E-04_JPRB /)  
+KB(:,28, 4) = (/ &
+ & 0.15256E-04_JPRB,0.16787E-04_JPRB,0.18242E-04_JPRB,0.19561E-04_JPRB,0.20696E-04_JPRB /)  
+KB(:,29, 4) = (/ &
+ & 0.12679E-04_JPRB,0.13952E-04_JPRB,0.15170E-04_JPRB,0.16211E-04_JPRB,0.17163E-04_JPRB /)  
+KB(:,30, 4) = (/ &
+ & 0.10550E-04_JPRB,0.11605E-04_JPRB,0.12579E-04_JPRB,0.13451E-04_JPRB,0.14210E-04_JPRB /)  
+KB(:,31, 4) = (/ &
+ & 0.87512E-05_JPRB,0.96322E-05_JPRB,0.10433E-04_JPRB,0.11133E-04_JPRB,0.11762E-04_JPRB /)  
+KB(:,32, 4) = (/ &
+ & 0.73001E-05_JPRB,0.80203E-05_JPRB,0.86745E-05_JPRB,0.92292E-05_JPRB,0.97295E-05_JPRB /)  
+KB(:,33, 4) = (/ &
+ & 0.60958E-05_JPRB,0.66862E-05_JPRB,0.72006E-05_JPRB,0.76359E-05_JPRB,0.80576E-05_JPRB /)  
+KB(:,34, 4) = (/ &
+ & 0.50855E-05_JPRB,0.55671E-05_JPRB,0.59670E-05_JPRB,0.63392E-05_JPRB,0.66869E-05_JPRB /)  
+KB(:,35, 4) = (/ &
+ & 0.42033E-05_JPRB,0.45905E-05_JPRB,0.49250E-05_JPRB,0.52384E-05_JPRB,0.55369E-05_JPRB /)  
+KB(:,36, 4) = (/ &
+ & 0.34384E-05_JPRB,0.37618E-05_JPRB,0.40430E-05_JPRB,0.43060E-05_JPRB,0.45577E-05_JPRB /)  
+KB(:,37, 4) = (/ &
+ & 0.28039E-05_JPRB,0.30749E-05_JPRB,0.33135E-05_JPRB,0.35344E-05_JPRB,0.37458E-05_JPRB /)  
+KB(:,38, 4) = (/ &
+ & 0.22842E-05_JPRB,0.25104E-05_JPRB,0.27126E-05_JPRB,0.28966E-05_JPRB,0.30768E-05_JPRB /)  
+KB(:,39, 4) = (/ &
+ & 0.18585E-05_JPRB,0.20510E-05_JPRB,0.22194E-05_JPRB,0.23731E-05_JPRB,0.25249E-05_JPRB /)  
+KB(:,40, 4) = (/ &
+ & 0.15041E-05_JPRB,0.16676E-05_JPRB,0.18097E-05_JPRB,0.19402E-05_JPRB,0.20681E-05_JPRB /)  
+KB(:,41, 4) = (/ &
+ & 0.12154E-05_JPRB,0.13541E-05_JPRB,0.14749E-05_JPRB,0.15852E-05_JPRB,0.16934E-05_JPRB /)  
+KB(:,42, 4) = (/ &
+ & 0.98033E-06_JPRB,0.10975E-05_JPRB,0.12011E-05_JPRB,0.12945E-05_JPRB,0.13859E-05_JPRB /)  
+KB(:,43, 4) = (/ &
+ & 0.78724E-06_JPRB,0.88625E-06_JPRB,0.97486E-06_JPRB,0.10554E-05_JPRB,0.11307E-05_JPRB /)  
+KB(:,44, 4) = (/ &
+ & 0.63059E-06_JPRB,0.71382E-06_JPRB,0.78948E-06_JPRB,0.85755E-06_JPRB,0.92044E-06_JPRB /)  
+KB(:,45, 4) = (/ &
+ & 0.50426E-06_JPRB,0.57391E-06_JPRB,0.63808E-06_JPRB,0.69718E-06_JPRB,0.74972E-06_JPRB /)  
+KB(:,46, 4) = (/ &
+ & 0.40133E-06_JPRB,0.45858E-06_JPRB,0.51414E-06_JPRB,0.56400E-06_JPRB,0.60964E-06_JPRB /)  
+KB(:,47, 4) = (/ &
+ & 0.31580E-06_JPRB,0.36440E-06_JPRB,0.41120E-06_JPRB,0.45433E-06_JPRB,0.49348E-06_JPRB /)  
+KB(:,48, 4) = (/ &
+ & 0.24847E-06_JPRB,0.28907E-06_JPRB,0.32879E-06_JPRB,0.36537E-06_JPRB,0.39903E-06_JPRB /)  
+KB(:,49, 4) = (/ &
+ & 0.19530E-06_JPRB,0.22858E-06_JPRB,0.26247E-06_JPRB,0.29331E-06_JPRB,0.32217E-06_JPRB /)  
+KB(:,50, 4) = (/ &
+ & 0.15364E-06_JPRB,0.18113E-06_JPRB,0.20911E-06_JPRB,0.23589E-06_JPRB,0.25994E-06_JPRB /)  
+KB(:,51, 4) = (/ &
+ & 0.12072E-06_JPRB,0.14413E-06_JPRB,0.16656E-06_JPRB,0.18952E-06_JPRB,0.20983E-06_JPRB /)  
+KB(:,52, 4) = (/ &
+ & 0.94925E-07_JPRB,0.11397E-06_JPRB,0.13255E-06_JPRB,0.15193E-06_JPRB,0.16960E-06_JPRB /)  
+KB(:,53, 4) = (/ &
+ & 0.74473E-07_JPRB,0.90197E-07_JPRB,0.10574E-06_JPRB,0.12153E-06_JPRB,0.13661E-06_JPRB /)  
+KB(:,54, 4) = (/ &
+ & 0.59009E-07_JPRB,0.71594E-07_JPRB,0.84781E-07_JPRB,0.97758E-07_JPRB,0.11018E-06_JPRB /)  
+KB(:,55, 4) = (/ &
+ & 0.47008E-07_JPRB,0.56997E-07_JPRB,0.67838E-07_JPRB,0.78753E-07_JPRB,0.89116E-07_JPRB /)  
+KB(:,56, 4) = (/ &
+ & 0.37415E-07_JPRB,0.45642E-07_JPRB,0.54420E-07_JPRB,0.63466E-07_JPRB,0.71910E-07_JPRB /)  
+KB(:,57, 4) = (/ &
+ & 0.29896E-07_JPRB,0.36635E-07_JPRB,0.43697E-07_JPRB,0.51036E-07_JPRB,0.58267E-07_JPRB /)  
+KB(:,58, 4) = (/ &
+ & 0.23946E-07_JPRB,0.29523E-07_JPRB,0.35316E-07_JPRB,0.41183E-07_JPRB,0.47391E-07_JPRB /)  
+KB(:,59, 4) = (/ &
+ & 0.19881E-07_JPRB,0.24642E-07_JPRB,0.29390E-07_JPRB,0.34099E-07_JPRB,0.39234E-07_JPRB /)  
+KB(:,13, 5) = (/ &
+ & 0.12771E-02_JPRB,0.13202E-02_JPRB,0.13557E-02_JPRB,0.13927E-02_JPRB,0.14233E-02_JPRB /)  
+KB(:,14, 5) = (/ &
+ & 0.10608E-02_JPRB,0.10951E-02_JPRB,0.11249E-02_JPRB,0.11549E-02_JPRB,0.11788E-02_JPRB /)  
+KB(:,15, 5) = (/ &
+ & 0.86750E-03_JPRB,0.89679E-03_JPRB,0.91986E-03_JPRB,0.94399E-03_JPRB,0.96405E-03_JPRB /)  
+KB(:,16, 5) = (/ &
+ & 0.70073E-03_JPRB,0.72504E-03_JPRB,0.74630E-03_JPRB,0.76495E-03_JPRB,0.78165E-03_JPRB /)  
+KB(:,17, 5) = (/ &
+ & 0.56280E-03_JPRB,0.58321E-03_JPRB,0.60153E-03_JPRB,0.61544E-03_JPRB,0.62885E-03_JPRB /)  
+KB(:,18, 5) = (/ &
+ & 0.44940E-03_JPRB,0.46598E-03_JPRB,0.47887E-03_JPRB,0.49058E-03_JPRB,0.50223E-03_JPRB /)  
+KB(:,19, 5) = (/ &
+ & 0.35753E-03_JPRB,0.37064E-03_JPRB,0.38290E-03_JPRB,0.39390E-03_JPRB,0.40387E-03_JPRB /)  
+KB(:,20, 5) = (/ &
+ & 0.29013E-03_JPRB,0.30099E-03_JPRB,0.31179E-03_JPRB,0.32117E-03_JPRB,0.33011E-03_JPRB /)  
+KB(:,21, 5) = (/ &
+ & 0.23657E-03_JPRB,0.24602E-03_JPRB,0.25504E-03_JPRB,0.26340E-03_JPRB,0.27145E-03_JPRB /)  
+KB(:,22, 5) = (/ &
+ & 0.19423E-03_JPRB,0.20224E-03_JPRB,0.20987E-03_JPRB,0.21711E-03_JPRB,0.22439E-03_JPRB /)  
+KB(:,23, 5) = (/ &
+ & 0.15963E-03_JPRB,0.16643E-03_JPRB,0.17308E-03_JPRB,0.17949E-03_JPRB,0.18580E-03_JPRB /)  
+KB(:,24, 5) = (/ &
+ & 0.13166E-03_JPRB,0.13745E-03_JPRB,0.14332E-03_JPRB,0.14871E-03_JPRB,0.15428E-03_JPRB /)  
+KB(:,25, 5) = (/ &
+ & 0.10885E-03_JPRB,0.11394E-03_JPRB,0.11896E-03_JPRB,0.12371E-03_JPRB,0.12846E-03_JPRB /)  
+KB(:,26, 5) = (/ &
+ & 0.90403E-04_JPRB,0.94914E-04_JPRB,0.99157E-04_JPRB,0.10310E-03_JPRB,0.10729E-03_JPRB /)  
+KB(:,27, 5) = (/ &
+ & 0.75265E-04_JPRB,0.79166E-04_JPRB,0.82648E-04_JPRB,0.86209E-04_JPRB,0.89882E-04_JPRB /)  
+KB(:,28, 5) = (/ &
+ & 0.62870E-04_JPRB,0.66050E-04_JPRB,0.69111E-04_JPRB,0.72289E-04_JPRB,0.75451E-04_JPRB /)  
+KB(:,29, 5) = (/ &
+ & 0.52465E-04_JPRB,0.55192E-04_JPRB,0.57887E-04_JPRB,0.60660E-04_JPRB,0.63367E-04_JPRB /)  
+KB(:,30, 5) = (/ &
+ & 0.43887E-04_JPRB,0.46191E-04_JPRB,0.48588E-04_JPRB,0.50910E-04_JPRB,0.53278E-04_JPRB /)  
+KB(:,31, 5) = (/ &
+ & 0.36760E-04_JPRB,0.38766E-04_JPRB,0.40783E-04_JPRB,0.42783E-04_JPRB,0.44780E-04_JPRB /)  
+KB(:,32, 5) = (/ &
+ & 0.30831E-04_JPRB,0.32561E-04_JPRB,0.34267E-04_JPRB,0.36000E-04_JPRB,0.37594E-04_JPRB /)  
+KB(:,33, 5) = (/ &
+ & 0.25908E-04_JPRB,0.27389E-04_JPRB,0.28832E-04_JPRB,0.30290E-04_JPRB,0.31581E-04_JPRB /)  
+KB(:,34, 5) = (/ &
+ & 0.21776E-04_JPRB,0.23026E-04_JPRB,0.24266E-04_JPRB,0.25444E-04_JPRB,0.26510E-04_JPRB /)  
+KB(:,35, 5) = (/ &
+ & 0.18233E-04_JPRB,0.19280E-04_JPRB,0.20324E-04_JPRB,0.21266E-04_JPRB,0.22141E-04_JPRB /)  
+KB(:,36, 5) = (/ &
+ & 0.15160E-04_JPRB,0.16042E-04_JPRB,0.16918E-04_JPRB,0.17686E-04_JPRB,0.18406E-04_JPRB /)  
+KB(:,37, 5) = (/ &
+ & 0.12538E-04_JPRB,0.13285E-04_JPRB,0.14015E-04_JPRB,0.14657E-04_JPRB,0.15269E-04_JPRB /)  
+KB(:,38, 5) = (/ &
+ & 0.10357E-04_JPRB,0.10990E-04_JPRB,0.11595E-04_JPRB,0.12148E-04_JPRB,0.12651E-04_JPRB /)  
+KB(:,39, 5) = (/ &
+ & 0.85566E-05_JPRB,0.90856E-05_JPRB,0.95986E-05_JPRB,0.10057E-04_JPRB,0.10478E-04_JPRB /)  
+KB(:,40, 5) = (/ &
+ & 0.70390E-05_JPRB,0.74826E-05_JPRB,0.79200E-05_JPRB,0.83061E-05_JPRB,0.86634E-05_JPRB /)  
+KB(:,41, 5) = (/ &
+ & 0.57827E-05_JPRB,0.61572E-05_JPRB,0.65269E-05_JPRB,0.68528E-05_JPRB,0.71595E-05_JPRB /)  
+KB(:,42, 5) = (/ &
+ & 0.47477E-05_JPRB,0.50656E-05_JPRB,0.53705E-05_JPRB,0.56486E-05_JPRB,0.59100E-05_JPRB /)  
+KB(:,43, 5) = (/ &
+ & 0.38802E-05_JPRB,0.41533E-05_JPRB,0.44089E-05_JPRB,0.46515E-05_JPRB,0.48719E-05_JPRB /)  
+KB(:,44, 5) = (/ &
+ & 0.31658E-05_JPRB,0.33971E-05_JPRB,0.36177E-05_JPRB,0.38205E-05_JPRB,0.40089E-05_JPRB /)  
+KB(:,45, 5) = (/ &
+ & 0.25796E-05_JPRB,0.27740E-05_JPRB,0.29635E-05_JPRB,0.31336E-05_JPRB,0.32986E-05_JPRB /)  
+KB(:,46, 5) = (/ &
+ & 0.20945E-05_JPRB,0.22636E-05_JPRB,0.24214E-05_JPRB,0.25698E-05_JPRB,0.27077E-05_JPRB /)  
+KB(:,47, 5) = (/ &
+ & 0.16931E-05_JPRB,0.18383E-05_JPRB,0.19729E-05_JPRB,0.20996E-05_JPRB,0.22172E-05_JPRB /)  
+KB(:,48, 5) = (/ &
+ & 0.13650E-05_JPRB,0.14889E-05_JPRB,0.16043E-05_JPRB,0.17139E-05_JPRB,0.18136E-05_JPRB /)  
+KB(:,49, 5) = (/ &
+ & 0.10981E-05_JPRB,0.12042E-05_JPRB,0.13028E-05_JPRB,0.13963E-05_JPRB,0.14824E-05_JPRB /)  
+KB(:,50, 5) = (/ &
+ & 0.88407E-06_JPRB,0.97370E-06_JPRB,0.10589E-05_JPRB,0.11383E-05_JPRB,0.12124E-05_JPRB /)  
+KB(:,51, 5) = (/ &
+ & 0.71150E-06_JPRB,0.78682E-06_JPRB,0.86048E-06_JPRB,0.92711E-06_JPRB,0.99128E-06_JPRB /)  
+KB(:,52, 5) = (/ &
+ & 0.57140E-06_JPRB,0.63513E-06_JPRB,0.69790E-06_JPRB,0.75466E-06_JPRB,0.80946E-06_JPRB /)  
+KB(:,53, 5) = (/ &
+ & 0.45871E-06_JPRB,0.51183E-06_JPRB,0.56494E-06_JPRB,0.61376E-06_JPRB,0.66022E-06_JPRB /)  
+KB(:,54, 5) = (/ &
+ & 0.36889E-06_JPRB,0.41319E-06_JPRB,0.45759E-06_JPRB,0.49973E-06_JPRB,0.53933E-06_JPRB /)  
+KB(:,55, 5) = (/ &
+ & 0.29683E-06_JPRB,0.33396E-06_JPRB,0.37110E-06_JPRB,0.40671E-06_JPRB,0.44026E-06_JPRB /)  
+KB(:,56, 5) = (/ &
+ & 0.23828E-06_JPRB,0.26973E-06_JPRB,0.30048E-06_JPRB,0.33099E-06_JPRB,0.35949E-06_JPRB /)  
+KB(:,57, 5) = (/ &
+ & 0.19083E-06_JPRB,0.21782E-06_JPRB,0.24350E-06_JPRB,0.26883E-06_JPRB,0.29309E-06_JPRB /)  
+KB(:,58, 5) = (/ &
+ & 0.15334E-06_JPRB,0.17592E-06_JPRB,0.19753E-06_JPRB,0.21869E-06_JPRB,0.23903E-06_JPRB /)  
+KB(:,59, 5) = (/ &
+ & 0.12635E-06_JPRB,0.14504E-06_JPRB,0.16321E-06_JPRB,0.18074E-06_JPRB,0.19759E-06_JPRB /)  
+KB(:,13, 6) = (/ &
+ & 0.33433E-02_JPRB,0.34159E-02_JPRB,0.34798E-02_JPRB,0.35397E-02_JPRB,0.35995E-02_JPRB /)  
+KB(:,14, 6) = (/ &
+ & 0.28039E-02_JPRB,0.28589E-02_JPRB,0.29090E-02_JPRB,0.29595E-02_JPRB,0.30108E-02_JPRB /)  
+KB(:,15, 6) = (/ &
+ & 0.23135E-02_JPRB,0.23579E-02_JPRB,0.24012E-02_JPRB,0.24470E-02_JPRB,0.24900E-02_JPRB /)  
+KB(:,16, 6) = (/ &
+ & 0.18925E-02_JPRB,0.19281E-02_JPRB,0.19671E-02_JPRB,0.20090E-02_JPRB,0.20445E-02_JPRB /)  
+KB(:,17, 6) = (/ &
+ & 0.15365E-02_JPRB,0.15703E-02_JPRB,0.16039E-02_JPRB,0.16424E-02_JPRB,0.16760E-02_JPRB /)  
+KB(:,18, 6) = (/ &
+ & 0.12424E-02_JPRB,0.12746E-02_JPRB,0.13067E-02_JPRB,0.13397E-02_JPRB,0.13687E-02_JPRB /)  
+KB(:,19, 6) = (/ &
+ & 0.10113E-02_JPRB,0.10417E-02_JPRB,0.10664E-02_JPRB,0.10958E-02_JPRB,0.11231E-02_JPRB /)  
+KB(:,20, 6) = (/ &
+ & 0.83375E-03_JPRB,0.85863E-03_JPRB,0.88098E-03_JPRB,0.90680E-03_JPRB,0.93093E-03_JPRB /)  
+KB(:,21, 6) = (/ &
+ & 0.68849E-03_JPRB,0.71056E-03_JPRB,0.73161E-03_JPRB,0.75402E-03_JPRB,0.77432E-03_JPRB /)  
+KB(:,22, 6) = (/ &
+ & 0.57076E-03_JPRB,0.59001E-03_JPRB,0.60925E-03_JPRB,0.62816E-03_JPRB,0.64531E-03_JPRB /)  
+KB(:,23, 6) = (/ &
+ & 0.47462E-03_JPRB,0.49138E-03_JPRB,0.50818E-03_JPRB,0.52421E-03_JPRB,0.53930E-03_JPRB /)  
+KB(:,24, 6) = (/ &
+ & 0.39552E-03_JPRB,0.41011E-03_JPRB,0.42460E-03_JPRB,0.43865E-03_JPRB,0.45206E-03_JPRB /)  
+KB(:,25, 6) = (/ &
+ & 0.33041E-03_JPRB,0.34317E-03_JPRB,0.35573E-03_JPRB,0.36800E-03_JPRB,0.38005E-03_JPRB /)  
+KB(:,26, 6) = (/ &
+ & 0.27699E-03_JPRB,0.28806E-03_JPRB,0.29892E-03_JPRB,0.30983E-03_JPRB,0.32038E-03_JPRB /)  
+KB(:,27, 6) = (/ &
+ & 0.23253E-03_JPRB,0.24229E-03_JPRB,0.25208E-03_JPRB,0.26144E-03_JPRB,0.27039E-03_JPRB /)  
+KB(:,28, 6) = (/ &
+ & 0.19573E-03_JPRB,0.20442E-03_JPRB,0.21276E-03_JPRB,0.22087E-03_JPRB,0.22869E-03_JPRB /)  
+KB(:,29, 6) = (/ &
+ & 0.16528E-03_JPRB,0.17271E-03_JPRB,0.17974E-03_JPRB,0.18681E-03_JPRB,0.19373E-03_JPRB /)  
+KB(:,30, 6) = (/ &
+ & 0.13949E-03_JPRB,0.14599E-03_JPRB,0.15214E-03_JPRB,0.15834E-03_JPRB,0.16448E-03_JPRB /)  
+KB(:,31, 6) = (/ &
+ & 0.11793E-03_JPRB,0.12345E-03_JPRB,0.12891E-03_JPRB,0.13432E-03_JPRB,0.13975E-03_JPRB /)  
+KB(:,32, 6) = (/ &
+ & 0.99845E-04_JPRB,0.10464E-03_JPRB,0.10941E-03_JPRB,0.11425E-03_JPRB,0.11896E-03_JPRB /)  
+KB(:,33, 6) = (/ &
+ & 0.84723E-04_JPRB,0.88808E-04_JPRB,0.93054E-04_JPRB,0.97257E-04_JPRB,0.10144E-03_JPRB /)  
+KB(:,34, 6) = (/ &
+ & 0.71857E-04_JPRB,0.75478E-04_JPRB,0.79245E-04_JPRB,0.82878E-04_JPRB,0.86527E-04_JPRB /)  
+KB(:,35, 6) = (/ &
+ & 0.60741E-04_JPRB,0.63987E-04_JPRB,0.67190E-04_JPRB,0.70445E-04_JPRB,0.73634E-04_JPRB /)  
+KB(:,36, 6) = (/ &
+ & 0.51094E-04_JPRB,0.53953E-04_JPRB,0.56787E-04_JPRB,0.59644E-04_JPRB,0.62421E-04_JPRB /)  
+KB(:,37, 6) = (/ &
+ & 0.42809E-04_JPRB,0.45324E-04_JPRB,0.47805E-04_JPRB,0.50314E-04_JPRB,0.52797E-04_JPRB /)  
+KB(:,38, 6) = (/ &
+ & 0.35862E-04_JPRB,0.38082E-04_JPRB,0.40249E-04_JPRB,0.42459E-04_JPRB,0.44691E-04_JPRB /)  
+KB(:,39, 6) = (/ &
+ & 0.30047E-04_JPRB,0.31970E-04_JPRB,0.33877E-04_JPRB,0.35841E-04_JPRB,0.37792E-04_JPRB /)  
+KB(:,40, 6) = (/ &
+ & 0.25051E-04_JPRB,0.26734E-04_JPRB,0.28429E-04_JPRB,0.30177E-04_JPRB,0.31859E-04_JPRB /)  
+KB(:,41, 6) = (/ &
+ & 0.20858E-04_JPRB,0.22337E-04_JPRB,0.23837E-04_JPRB,0.25348E-04_JPRB,0.26845E-04_JPRB /)  
+KB(:,42, 6) = (/ &
+ & 0.17358E-04_JPRB,0.18653E-04_JPRB,0.19947E-04_JPRB,0.21279E-04_JPRB,0.22614E-04_JPRB /)  
+KB(:,43, 6) = (/ &
+ & 0.14382E-04_JPRB,0.15507E-04_JPRB,0.16637E-04_JPRB,0.17808E-04_JPRB,0.18975E-04_JPRB /)  
+KB(:,44, 6) = (/ &
+ & 0.11875E-04_JPRB,0.12851E-04_JPRB,0.13847E-04_JPRB,0.14865E-04_JPRB,0.15886E-04_JPRB /)  
+KB(:,45, 6) = (/ &
+ & 0.97824E-05_JPRB,0.10641E-04_JPRB,0.11497E-04_JPRB,0.12386E-04_JPRB,0.13288E-04_JPRB /)  
+KB(:,46, 6) = (/ &
+ & 0.80305E-05_JPRB,0.87712E-05_JPRB,0.95170E-05_JPRB,0.10282E-04_JPRB,0.11073E-04_JPRB /)  
+KB(:,47, 6) = (/ &
+ & 0.65554E-05_JPRB,0.71881E-05_JPRB,0.78331E-05_JPRB,0.85022E-05_JPRB,0.91799E-05_JPRB /)  
+KB(:,48, 6) = (/ &
+ & 0.53399E-05_JPRB,0.58818E-05_JPRB,0.64364E-05_JPRB,0.70093E-05_JPRB,0.75992E-05_JPRB /)  
+KB(:,49, 6) = (/ &
+ & 0.43396E-05_JPRB,0.47990E-05_JPRB,0.52727E-05_JPRB,0.57633E-05_JPRB,0.62785E-05_JPRB /)  
+KB(:,50, 6) = (/ &
+ & 0.35272E-05_JPRB,0.39139E-05_JPRB,0.43230E-05_JPRB,0.47423E-05_JPRB,0.51819E-05_JPRB /)  
+KB(:,51, 6) = (/ &
+ & 0.28624E-05_JPRB,0.31913E-05_JPRB,0.35379E-05_JPRB,0.38979E-05_JPRB,0.42744E-05_JPRB /)  
+KB(:,52, 6) = (/ &
+ & 0.23189E-05_JPRB,0.25961E-05_JPRB,0.28907E-05_JPRB,0.31976E-05_JPRB,0.35200E-05_JPRB /)  
+KB(:,53, 6) = (/ &
+ & 0.18736E-05_JPRB,0.21072E-05_JPRB,0.23576E-05_JPRB,0.26179E-05_JPRB,0.28943E-05_JPRB /)  
+KB(:,54, 6) = (/ &
+ & 0.15155E-05_JPRB,0.17135E-05_JPRB,0.19245E-05_JPRB,0.21451E-05_JPRB,0.23808E-05_JPRB /)  
+KB(:,55, 6) = (/ &
+ & 0.12250E-05_JPRB,0.13923E-05_JPRB,0.15714E-05_JPRB,0.17578E-05_JPRB,0.19597E-05_JPRB /)  
+KB(:,56, 6) = (/ &
+ & 0.99012E-06_JPRB,0.11296E-05_JPRB,0.12801E-05_JPRB,0.14395E-05_JPRB,0.16107E-05_JPRB /)  
+KB(:,57, 6) = (/ &
+ & 0.79875E-06_JPRB,0.91418E-06_JPRB,0.10408E-05_JPRB,0.11777E-05_JPRB,0.13212E-05_JPRB /)  
+KB(:,58, 6) = (/ &
+ & 0.64474E-06_JPRB,0.74109E-06_JPRB,0.84664E-06_JPRB,0.96328E-06_JPRB,0.10849E-05_JPRB /)  
+KB(:,59, 6) = (/ &
+ & 0.53296E-06_JPRB,0.61427E-06_JPRB,0.70385E-06_JPRB,0.80375E-06_JPRB,0.90863E-06_JPRB /)  
+KB(:,13, 7) = (/ &
+ & 0.91063E-02_JPRB,0.92681E-02_JPRB,0.94045E-02_JPRB,0.95388E-02_JPRB,0.96735E-02_JPRB /)  
+KB(:,14, 7) = (/ &
+ & 0.78483E-02_JPRB,0.79806E-02_JPRB,0.81238E-02_JPRB,0.82528E-02_JPRB,0.83603E-02_JPRB /)  
+KB(:,15, 7) = (/ &
+ & 0.66269E-02_JPRB,0.67445E-02_JPRB,0.68845E-02_JPRB,0.69911E-02_JPRB,0.70854E-02_JPRB /)  
+KB(:,16, 7) = (/ &
+ & 0.55183E-02_JPRB,0.56414E-02_JPRB,0.57574E-02_JPRB,0.58487E-02_JPRB,0.59407E-02_JPRB /)  
+KB(:,17, 7) = (/ &
+ & 0.45693E-02_JPRB,0.46780E-02_JPRB,0.47743E-02_JPRB,0.48625E-02_JPRB,0.49467E-02_JPRB /)  
+KB(:,18, 7) = (/ &
+ & 0.37611E-02_JPRB,0.38535E-02_JPRB,0.39408E-02_JPRB,0.40234E-02_JPRB,0.41007E-02_JPRB /)  
+KB(:,19, 7) = (/ &
+ & 0.30991E-02_JPRB,0.31809E-02_JPRB,0.32647E-02_JPRB,0.33388E-02_JPRB,0.34042E-02_JPRB /)  
+KB(:,20, 7) = (/ &
+ & 0.25858E-02_JPRB,0.26585E-02_JPRB,0.27347E-02_JPRB,0.27990E-02_JPRB,0.28579E-02_JPRB /)  
+KB(:,21, 7) = (/ &
+ & 0.21672E-02_JPRB,0.22326E-02_JPRB,0.22973E-02_JPRB,0.23547E-02_JPRB,0.24058E-02_JPRB /)  
+KB(:,22, 7) = (/ &
+ & 0.18211E-02_JPRB,0.18809E-02_JPRB,0.19364E-02_JPRB,0.19859E-02_JPRB,0.20352E-02_JPRB /)  
+KB(:,23, 7) = (/ &
+ & 0.15314E-02_JPRB,0.15844E-02_JPRB,0.16332E-02_JPRB,0.16760E-02_JPRB,0.17243E-02_JPRB /)  
+KB(:,24, 7) = (/ &
+ & 0.12924E-02_JPRB,0.13385E-02_JPRB,0.13793E-02_JPRB,0.14209E-02_JPRB,0.14659E-02_JPRB /)  
+KB(:,25, 7) = (/ &
+ & 0.10926E-02_JPRB,0.11322E-02_JPRB,0.11689E-02_JPRB,0.12081E-02_JPRB,0.12493E-02_JPRB /)  
+KB(:,26, 7) = (/ &
+ & 0.92756E-03_JPRB,0.96136E-03_JPRB,0.99601E-03_JPRB,0.10324E-02_JPRB,0.10695E-02_JPRB /)  
+KB(:,27, 7) = (/ &
+ & 0.78832E-03_JPRB,0.81893E-03_JPRB,0.85137E-03_JPRB,0.88465E-03_JPRB,0.91885E-03_JPRB /)  
+KB(:,28, 7) = (/ &
+ & 0.67097E-03_JPRB,0.69979E-03_JPRB,0.72985E-03_JPRB,0.76038E-03_JPRB,0.79213E-03_JPRB /)  
+KB(:,29, 7) = (/ &
+ & 0.57231E-03_JPRB,0.59934E-03_JPRB,0.62727E-03_JPRB,0.65471E-03_JPRB,0.68389E-03_JPRB /)  
+KB(:,30, 7) = (/ &
+ & 0.48996E-03_JPRB,0.51441E-03_JPRB,0.53945E-03_JPRB,0.56564E-03_JPRB,0.59164E-03_JPRB /)  
+KB(:,31, 7) = (/ &
+ & 0.41998E-03_JPRB,0.44237E-03_JPRB,0.46551E-03_JPRB,0.48924E-03_JPRB,0.51322E-03_JPRB /)  
+KB(:,32, 7) = (/ &
+ & 0.36133E-03_JPRB,0.38168E-03_JPRB,0.40297E-03_JPRB,0.42441E-03_JPRB,0.44722E-03_JPRB /)  
+KB(:,33, 7) = (/ &
+ & 0.31153E-03_JPRB,0.33055E-03_JPRB,0.34980E-03_JPRB,0.36972E-03_JPRB,0.39086E-03_JPRB /)  
+KB(:,34, 7) = (/ &
+ & 0.26941E-03_JPRB,0.28657E-03_JPRB,0.30436E-03_JPRB,0.32295E-03_JPRB,0.34256E-03_JPRB /)  
+KB(:,35, 7) = (/ &
+ & 0.23210E-03_JPRB,0.24782E-03_JPRB,0.26411E-03_JPRB,0.28121E-03_JPRB,0.29930E-03_JPRB /)  
+KB(:,36, 7) = (/ &
+ & 0.19904E-03_JPRB,0.21311E-03_JPRB,0.22797E-03_JPRB,0.24380E-03_JPRB,0.26030E-03_JPRB /)  
+KB(:,37, 7) = (/ &
+ & 0.17000E-03_JPRB,0.18300E-03_JPRB,0.19666E-03_JPRB,0.21128E-03_JPRB,0.22641E-03_JPRB /)  
+KB(:,38, 7) = (/ &
+ & 0.14528E-03_JPRB,0.15704E-03_JPRB,0.16975E-03_JPRB,0.18320E-03_JPRB,0.19735E-03_JPRB /)  
+KB(:,39, 7) = (/ &
+ & 0.12414E-03_JPRB,0.13496E-03_JPRB,0.14654E-03_JPRB,0.15899E-03_JPRB,0.17211E-03_JPRB /)  
+KB(:,40, 7) = (/ &
+ & 0.10567E-03_JPRB,0.11547E-03_JPRB,0.12618E-03_JPRB,0.13765E-03_JPRB,0.14994E-03_JPRB /)  
+KB(:,41, 7) = (/ &
+ & 0.89774E-04_JPRB,0.98751E-04_JPRB,0.10852E-03_JPRB,0.11918E-03_JPRB,0.13057E-03_JPRB /)  
+KB(:,42, 7) = (/ &
+ & 0.76232E-04_JPRB,0.84383E-04_JPRB,0.93336E-04_JPRB,0.10314E-03_JPRB,0.11381E-03_JPRB /)  
+KB(:,43, 7) = (/ &
+ & 0.64370E-04_JPRB,0.71684E-04_JPRB,0.79797E-04_JPRB,0.88850E-04_JPRB,0.98733E-04_JPRB /)  
+KB(:,44, 7) = (/ &
+ & 0.54125E-04_JPRB,0.60680E-04_JPRB,0.68042E-04_JPRB,0.76313E-04_JPRB,0.85432E-04_JPRB /)  
+KB(:,45, 7) = (/ &
+ & 0.45374E-04_JPRB,0.51280E-04_JPRB,0.57932E-04_JPRB,0.65429E-04_JPRB,0.73852E-04_JPRB /)  
+KB(:,46, 7) = (/ &
+ & 0.37861E-04_JPRB,0.43078E-04_JPRB,0.49016E-04_JPRB,0.55844E-04_JPRB,0.63538E-04_JPRB /)  
+KB(:,47, 7) = (/ &
+ & 0.31342E-04_JPRB,0.35879E-04_JPRB,0.41175E-04_JPRB,0.47252E-04_JPRB,0.54286E-04_JPRB /)  
+KB(:,48, 7) = (/ &
+ & 0.25821E-04_JPRB,0.29777E-04_JPRB,0.34458E-04_JPRB,0.39880E-04_JPRB,0.46218E-04_JPRB /)  
+KB(:,49, 7) = (/ &
+ & 0.21180E-04_JPRB,0.24617E-04_JPRB,0.28719E-04_JPRB,0.33507E-04_JPRB,0.39184E-04_JPRB /)  
+KB(:,50, 7) = (/ &
+ & 0.17377E-04_JPRB,0.20345E-04_JPRB,0.23916E-04_JPRB,0.28177E-04_JPRB,0.33237E-04_JPRB /)  
+KB(:,51, 7) = (/ &
+ & 0.14223E-04_JPRB,0.16790E-04_JPRB,0.19868E-04_JPRB,0.23656E-04_JPRB,0.28163E-04_JPRB /)  
+KB(:,52, 7) = (/ &
+ & 0.11593E-04_JPRB,0.13788E-04_JPRB,0.16479E-04_JPRB,0.19773E-04_JPRB,0.23765E-04_JPRB /)  
+KB(:,53, 7) = (/ &
+ & 0.94141E-05_JPRB,0.11279E-04_JPRB,0.13591E-04_JPRB,0.16447E-04_JPRB,0.19969E-04_JPRB /)  
+KB(:,54, 7) = (/ &
+ & 0.76622E-05_JPRB,0.92417E-05_JPRB,0.11233E-04_JPRB,0.13709E-04_JPRB,0.16819E-04_JPRB /)  
+KB(:,55, 7) = (/ &
+ & 0.62315E-05_JPRB,0.75671E-05_JPRB,0.92699E-05_JPRB,0.11429E-04_JPRB,0.14186E-04_JPRB /)  
+KB(:,56, 7) = (/ &
+ & 0.50473E-05_JPRB,0.61766E-05_JPRB,0.76316E-05_JPRB,0.94979E-05_JPRB,0.11890E-04_JPRB /)  
+KB(:,57, 7) = (/ &
+ & 0.40773E-05_JPRB,0.50242E-05_JPRB,0.62540E-05_JPRB,0.78594E-05_JPRB,0.99378E-05_JPRB /)  
+KB(:,58, 7) = (/ &
+ & 0.32937E-05_JPRB,0.40862E-05_JPRB,0.51228E-05_JPRB,0.64992E-05_JPRB,0.83112E-05_JPRB /)  
+KB(:,59, 7) = (/ &
+ & 0.27593E-05_JPRB,0.34505E-05_JPRB,0.43716E-05_JPRB,0.56035E-05_JPRB,0.72609E-05_JPRB /)  
+KB(:,13, 8) = (/ &
+ & 0.25990E-01_JPRB,0.25997E-01_JPRB,0.26024E-01_JPRB,0.26038E-01_JPRB,0.26132E-01_JPRB /)  
+KB(:,14, 8) = (/ &
+ & 0.22648E-01_JPRB,0.22731E-01_JPRB,0.22803E-01_JPRB,0.22861E-01_JPRB,0.23020E-01_JPRB /)  
+KB(:,15, 8) = (/ &
+ & 0.19641E-01_JPRB,0.19812E-01_JPRB,0.19880E-01_JPRB,0.19998E-01_JPRB,0.20141E-01_JPRB /)  
+KB(:,16, 8) = (/ &
+ & 0.16909E-01_JPRB,0.17030E-01_JPRB,0.17148E-01_JPRB,0.17296E-01_JPRB,0.17502E-01_JPRB /)  
+KB(:,17, 8) = (/ &
+ & 0.14365E-01_JPRB,0.14504E-01_JPRB,0.14643E-01_JPRB,0.14808E-01_JPRB,0.14996E-01_JPRB /)  
+KB(:,18, 8) = (/ &
+ & 0.12072E-01_JPRB,0.12207E-01_JPRB,0.12346E-01_JPRB,0.12513E-01_JPRB,0.12742E-01_JPRB /)  
+KB(:,19, 8) = (/ &
+ & 0.10135E-01_JPRB,0.10263E-01_JPRB,0.10402E-01_JPRB,0.10602E-01_JPRB,0.10794E-01_JPRB /)  
+KB(:,20, 8) = (/ &
+ & 0.86508E-02_JPRB,0.87951E-02_JPRB,0.89765E-02_JPRB,0.91530E-02_JPRB,0.93447E-02_JPRB /)  
+KB(:,21, 8) = (/ &
+ & 0.74228E-02_JPRB,0.75964E-02_JPRB,0.77805E-02_JPRB,0.79441E-02_JPRB,0.81266E-02_JPRB /)  
+KB(:,22, 8) = (/ &
+ & 0.63949E-02_JPRB,0.65920E-02_JPRB,0.67584E-02_JPRB,0.69298E-02_JPRB,0.70968E-02_JPRB /)  
+KB(:,23, 8) = (/ &
+ & 0.55389E-02_JPRB,0.57165E-02_JPRB,0.58834E-02_JPRB,0.60490E-02_JPRB,0.62163E-02_JPRB /)  
+KB(:,24, 8) = (/ &
+ & 0.47980E-02_JPRB,0.49696E-02_JPRB,0.51333E-02_JPRB,0.53055E-02_JPRB,0.54695E-02_JPRB /)  
+KB(:,25, 8) = (/ &
+ & 0.41676E-02_JPRB,0.43357E-02_JPRB,0.44999E-02_JPRB,0.46749E-02_JPRB,0.48179E-02_JPRB /)  
+KB(:,26, 8) = (/ &
+ & 0.36391E-02_JPRB,0.38079E-02_JPRB,0.39834E-02_JPRB,0.41374E-02_JPRB,0.42754E-02_JPRB /)  
+KB(:,27, 8) = (/ &
+ & 0.31917E-02_JPRB,0.33580E-02_JPRB,0.35237E-02_JPRB,0.36737E-02_JPRB,0.37982E-02_JPRB /)  
+KB(:,28, 8) = (/ &
+ & 0.28096E-02_JPRB,0.29709E-02_JPRB,0.31242E-02_JPRB,0.32613E-02_JPRB,0.33829E-02_JPRB /)  
+KB(:,29, 8) = (/ &
+ & 0.24786E-02_JPRB,0.26272E-02_JPRB,0.27706E-02_JPRB,0.28986E-02_JPRB,0.30130E-02_JPRB /)  
+KB(:,30, 8) = (/ &
+ & 0.21907E-02_JPRB,0.23282E-02_JPRB,0.24574E-02_JPRB,0.25778E-02_JPRB,0.26806E-02_JPRB /)  
+KB(:,31, 8) = (/ &
+ & 0.19346E-02_JPRB,0.20569E-02_JPRB,0.21757E-02_JPRB,0.22805E-02_JPRB,0.23742E-02_JPRB /)  
+KB(:,32, 8) = (/ &
+ & 0.17101E-02_JPRB,0.18247E-02_JPRB,0.19308E-02_JPRB,0.20256E-02_JPRB,0.21176E-02_JPRB /)  
+KB(:,33, 8) = (/ &
+ & 0.15171E-02_JPRB,0.16168E-02_JPRB,0.17121E-02_JPRB,0.18035E-02_JPRB,0.18911E-02_JPRB /)  
+KB(:,34, 8) = (/ &
+ & 0.13466E-02_JPRB,0.14390E-02_JPRB,0.15246E-02_JPRB,0.16083E-02_JPRB,0.16921E-02_JPRB /)  
+KB(:,35, 8) = (/ &
+ & 0.11871E-02_JPRB,0.12698E-02_JPRB,0.13534E-02_JPRB,0.14320E-02_JPRB,0.15071E-02_JPRB /)  
+KB(:,36, 8) = (/ &
+ & 0.10388E-02_JPRB,0.11179E-02_JPRB,0.11934E-02_JPRB,0.12647E-02_JPRB,0.13391E-02_JPRB /)  
+KB(:,37, 8) = (/ &
+ & 0.92233E-03_JPRB,0.99854E-03_JPRB,0.10722E-02_JPRB,0.11426E-02_JPRB,0.12118E-02_JPRB /)  
+KB(:,38, 8) = (/ &
+ & 0.81843E-03_JPRB,0.89236E-03_JPRB,0.96605E-03_JPRB,0.10340E-02_JPRB,0.11003E-02_JPRB /)  
+KB(:,39, 8) = (/ &
+ & 0.72738E-03_JPRB,0.79777E-03_JPRB,0.86997E-03_JPRB,0.93496E-03_JPRB,0.99852E-03_JPRB /)  
+KB(:,40, 8) = (/ &
+ & 0.65149E-03_JPRB,0.72098E-03_JPRB,0.79235E-03_JPRB,0.86116E-03_JPRB,0.92474E-03_JPRB /)  
+KB(:,41, 8) = (/ &
+ & 0.58318E-03_JPRB,0.65154E-03_JPRB,0.72160E-03_JPRB,0.79400E-03_JPRB,0.85973E-03_JPRB /)  
+KB(:,42, 8) = (/ &
+ & 0.52127E-03_JPRB,0.58770E-03_JPRB,0.65781E-03_JPRB,0.73110E-03_JPRB,0.80165E-03_JPRB /)  
+KB(:,43, 8) = (/ &
+ & 0.46404E-03_JPRB,0.52960E-03_JPRB,0.59886E-03_JPRB,0.67366E-03_JPRB,0.74727E-03_JPRB /)  
+KB(:,44, 8) = (/ &
+ & 0.41229E-03_JPRB,0.47609E-03_JPRB,0.54424E-03_JPRB,0.61918E-03_JPRB,0.69366E-03_JPRB /)  
+KB(:,45, 8) = (/ &
+ & 0.36534E-03_JPRB,0.42624E-03_JPRB,0.49374E-03_JPRB,0.56668E-03_JPRB,0.64364E-03_JPRB /)  
+KB(:,46, 8) = (/ &
+ & 0.32134E-03_JPRB,0.37987E-03_JPRB,0.44597E-03_JPRB,0.51669E-03_JPRB,0.59469E-03_JPRB /)  
+KB(:,47, 8) = (/ &
+ & 0.27855E-03_JPRB,0.33531E-03_JPRB,0.39855E-03_JPRB,0.46832E-03_JPRB,0.54562E-03_JPRB /)  
+KB(:,48, 8) = (/ &
+ & 0.24094E-03_JPRB,0.29440E-03_JPRB,0.35477E-03_JPRB,0.42284E-03_JPRB,0.49767E-03_JPRB /)  
+KB(:,49, 8) = (/ &
+ & 0.20710E-03_JPRB,0.25712E-03_JPRB,0.31425E-03_JPRB,0.38098E-03_JPRB,0.45465E-03_JPRB /)  
+KB(:,50, 8) = (/ &
+ & 0.17757E-03_JPRB,0.22422E-03_JPRB,0.27906E-03_JPRB,0.34231E-03_JPRB,0.41419E-03_JPRB /)  
+KB(:,51, 8) = (/ &
+ & 0.15198E-03_JPRB,0.19538E-03_JPRB,0.24758E-03_JPRB,0.30796E-03_JPRB,0.37765E-03_JPRB /)  
+KB(:,52, 8) = (/ &
+ & 0.12943E-03_JPRB,0.16907E-03_JPRB,0.21812E-03_JPRB,0.27585E-03_JPRB,0.34284E-03_JPRB /)  
+KB(:,53, 8) = (/ &
+ & 0.10946E-03_JPRB,0.14560E-03_JPRB,0.19103E-03_JPRB,0.24633E-03_JPRB,0.31049E-03_JPRB /)  
+KB(:,54, 8) = (/ &
+ & 0.92950E-04_JPRB,0.12599E-03_JPRB,0.16848E-03_JPRB,0.22109E-03_JPRB,0.28266E-03_JPRB /)  
+KB(:,55, 8) = (/ &
+ & 0.78722E-04_JPRB,0.10883E-03_JPRB,0.14831E-03_JPRB,0.19790E-03_JPRB,0.25770E-03_JPRB /)  
+KB(:,56, 8) = (/ &
+ & 0.66323E-04_JPRB,0.93651E-04_JPRB,0.12983E-03_JPRB,0.17638E-03_JPRB,0.23393E-03_JPRB /)  
+KB(:,57, 8) = (/ &
+ & 0.55644E-04_JPRB,0.80085E-04_JPRB,0.11349E-03_JPRB,0.15741E-03_JPRB,0.21274E-03_JPRB /)  
+KB(:,58, 8) = (/ &
+ & 0.46537E-04_JPRB,0.68442E-04_JPRB,0.99190E-04_JPRB,0.14045E-03_JPRB,0.19327E-03_JPRB /)  
+KB(:,59, 8) = (/ &
+ & 0.41558E-04_JPRB,0.62503E-04_JPRB,0.92377E-04_JPRB,0.13258E-03_JPRB,0.18528E-03_JPRB /)  
+KB(:,13, 9) = (/ &
+ & 0.14836E+00_JPRB,0.15039E+00_JPRB,0.15239E+00_JPRB,0.15389E+00_JPRB,0.15517E+00_JPRB /)  
+KB(:,14, 9) = (/ &
+ & 0.12935E+00_JPRB,0.13183E+00_JPRB,0.13366E+00_JPRB,0.13551E+00_JPRB,0.13674E+00_JPRB /)  
+KB(:,15, 9) = (/ &
+ & 0.11269E+00_JPRB,0.11456E+00_JPRB,0.11672E+00_JPRB,0.11824E+00_JPRB,0.11951E+00_JPRB /)  
+KB(:,16, 9) = (/ &
+ & 0.97577E-01_JPRB,0.99647E-01_JPRB,0.10140E+00_JPRB,0.10272E+00_JPRB,0.10390E+00_JPRB /)  
+KB(:,17, 9) = (/ &
+ & 0.84601E-01_JPRB,0.86370E-01_JPRB,0.87860E-01_JPRB,0.89144E-01_JPRB,0.90341E-01_JPRB /)  
+KB(:,18, 9) = (/ &
+ & 0.72851E-01_JPRB,0.74498E-01_JPRB,0.75924E-01_JPRB,0.77220E-01_JPRB,0.78434E-01_JPRB /)  
+KB(:,19, 9) = (/ &
+ & 0.62688E-01_JPRB,0.64121E-01_JPRB,0.65574E-01_JPRB,0.66965E-01_JPRB,0.68243E-01_JPRB /)  
+KB(:,20, 9) = (/ &
+ & 0.54382E-01_JPRB,0.55704E-01_JPRB,0.57013E-01_JPRB,0.58303E-01_JPRB,0.59763E-01_JPRB /)  
+KB(:,21, 9) = (/ &
+ & 0.47190E-01_JPRB,0.48469E-01_JPRB,0.49752E-01_JPRB,0.51138E-01_JPRB,0.52452E-01_JPRB /)  
+KB(:,22, 9) = (/ &
+ & 0.41104E-01_JPRB,0.42378E-01_JPRB,0.43684E-01_JPRB,0.45035E-01_JPRB,0.46495E-01_JPRB /)  
+KB(:,23, 9) = (/ &
+ & 0.35910E-01_JPRB,0.37220E-01_JPRB,0.38484E-01_JPRB,0.39789E-01_JPRB,0.41443E-01_JPRB /)  
+KB(:,24, 9) = (/ &
+ & 0.31558E-01_JPRB,0.32836E-01_JPRB,0.34085E-01_JPRB,0.35462E-01_JPRB,0.37160E-01_JPRB /)  
+KB(:,25, 9) = (/ &
+ & 0.27861E-01_JPRB,0.29090E-01_JPRB,0.30363E-01_JPRB,0.31857E-01_JPRB,0.33566E-01_JPRB /)  
+KB(:,26, 9) = (/ &
+ & 0.24743E-01_JPRB,0.26003E-01_JPRB,0.27311E-01_JPRB,0.28788E-01_JPRB,0.30553E-01_JPRB /)  
+KB(:,27, 9) = (/ &
+ & 0.22141E-01_JPRB,0.23397E-01_JPRB,0.24754E-01_JPRB,0.26282E-01_JPRB,0.28040E-01_JPRB /)  
+KB(:,28, 9) = (/ &
+ & 0.19941E-01_JPRB,0.21165E-01_JPRB,0.22565E-01_JPRB,0.24131E-01_JPRB,0.25980E-01_JPRB /)  
+KB(:,29, 9) = (/ &
+ & 0.18046E-01_JPRB,0.19353E-01_JPRB,0.20736E-01_JPRB,0.22375E-01_JPRB,0.24248E-01_JPRB /)  
+KB(:,30, 9) = (/ &
+ & 0.16429E-01_JPRB,0.17775E-01_JPRB,0.19238E-01_JPRB,0.20907E-01_JPRB,0.22847E-01_JPRB /)  
+KB(:,31, 9) = (/ &
+ & 0.15094E-01_JPRB,0.16450E-01_JPRB,0.17992E-01_JPRB,0.19741E-01_JPRB,0.21608E-01_JPRB /)  
+KB(:,32, 9) = (/ &
+ & 0.13975E-01_JPRB,0.15315E-01_JPRB,0.16950E-01_JPRB,0.18741E-01_JPRB,0.20564E-01_JPRB /)  
+KB(:,33, 9) = (/ &
+ & 0.13026E-01_JPRB,0.14475E-01_JPRB,0.16113E-01_JPRB,0.17903E-01_JPRB,0.19794E-01_JPRB /)  
+KB(:,34, 9) = (/ &
+ & 0.12248E-01_JPRB,0.13747E-01_JPRB,0.15391E-01_JPRB,0.17142E-01_JPRB,0.19155E-01_JPRB /)  
+KB(:,35, 9) = (/ &
+ & 0.11491E-01_JPRB,0.12979E-01_JPRB,0.14611E-01_JPRB,0.16423E-01_JPRB,0.18475E-01_JPRB /)  
+KB(:,36, 9) = (/ &
+ & 0.10695E-01_JPRB,0.12142E-01_JPRB,0.13822E-01_JPRB,0.15678E-01_JPRB,0.17729E-01_JPRB /)  
+KB(:,37, 9) = (/ &
+ & 0.98761E-02_JPRB,0.11300E-01_JPRB,0.13000E-01_JPRB,0.14808E-01_JPRB,0.16848E-01_JPRB /)  
+KB(:,38, 9) = (/ &
+ & 0.91358E-02_JPRB,0.10538E-01_JPRB,0.12200E-01_JPRB,0.13999E-01_JPRB,0.16082E-01_JPRB /)  
+KB(:,39, 9) = (/ &
+ & 0.84558E-02_JPRB,0.98580E-02_JPRB,0.11508E-01_JPRB,0.13321E-01_JPRB,0.15372E-01_JPRB /)  
+KB(:,40, 9) = (/ &
+ & 0.78020E-02_JPRB,0.91740E-02_JPRB,0.10778E-01_JPRB,0.12588E-01_JPRB,0.14594E-01_JPRB /)  
+KB(:,41, 9) = (/ &
+ & 0.72028E-02_JPRB,0.85294E-02_JPRB,0.10093E-01_JPRB,0.11887E-01_JPRB,0.13872E-01_JPRB /)  
+KB(:,42, 9) = (/ &
+ & 0.66335E-02_JPRB,0.79299E-02_JPRB,0.94524E-02_JPRB,0.11233E-01_JPRB,0.13162E-01_JPRB /)  
+KB(:,43, 9) = (/ &
+ & 0.60936E-02_JPRB,0.73819E-02_JPRB,0.88361E-02_JPRB,0.10555E-01_JPRB,0.12456E-01_JPRB /)  
+KB(:,44, 9) = (/ &
+ & 0.55851E-02_JPRB,0.68018E-02_JPRB,0.82487E-02_JPRB,0.98836E-02_JPRB,0.11744E-01_JPRB /)  
+KB(:,45, 9) = (/ &
+ & 0.51361E-02_JPRB,0.62783E-02_JPRB,0.76910E-02_JPRB,0.92631E-02_JPRB,0.11096E-01_JPRB /)  
+KB(:,46, 9) = (/ &
+ & 0.46789E-02_JPRB,0.57877E-02_JPRB,0.71257E-02_JPRB,0.86688E-02_JPRB,0.10399E-01_JPRB /)  
+KB(:,47, 9) = (/ &
+ & 0.42434E-02_JPRB,0.53043E-02_JPRB,0.65448E-02_JPRB,0.80300E-02_JPRB,0.97286E-02_JPRB /)  
+KB(:,48, 9) = (/ &
+ & 0.38917E-02_JPRB,0.48269E-02_JPRB,0.60283E-02_JPRB,0.74378E-02_JPRB,0.90783E-02_JPRB /)  
+KB(:,49, 9) = (/ &
+ & 0.35823E-02_JPRB,0.43988E-02_JPRB,0.55409E-02_JPRB,0.68845E-02_JPRB,0.84495E-02_JPRB /)  
+KB(:,50, 9) = (/ &
+ & 0.33116E-02_JPRB,0.40852E-02_JPRB,0.51044E-02_JPRB,0.63885E-02_JPRB,0.78773E-02_JPRB /)  
+KB(:,51, 9) = (/ &
+ & 0.30752E-02_JPRB,0.38103E-02_JPRB,0.47346E-02_JPRB,0.59580E-02_JPRB,0.73779E-02_JPRB /)  
+KB(:,52, 9) = (/ &
+ & 0.28626E-02_JPRB,0.35553E-02_JPRB,0.44430E-02_JPRB,0.55409E-02_JPRB,0.69343E-02_JPRB /)  
+KB(:,53, 9) = (/ &
+ & 0.26485E-02_JPRB,0.33392E-02_JPRB,0.41695E-02_JPRB,0.51739E-02_JPRB,0.64753E-02_JPRB /)  
+KB(:,54, 9) = (/ &
+ & 0.24736E-02_JPRB,0.31489E-02_JPRB,0.39367E-02_JPRB,0.48954E-02_JPRB,0.61401E-02_JPRB /)  
+KB(:,55, 9) = (/ &
+ & 0.23362E-02_JPRB,0.29819E-02_JPRB,0.37593E-02_JPRB,0.46985E-02_JPRB,0.58363E-02_JPRB /)  
+KB(:,56, 9) = (/ &
+ & 0.22243E-02_JPRB,0.28447E-02_JPRB,0.35827E-02_JPRB,0.44762E-02_JPRB,0.55720E-02_JPRB /)  
+KB(:,57, 9) = (/ &
+ & 0.21389E-02_JPRB,0.27081E-02_JPRB,0.34315E-02_JPRB,0.43182E-02_JPRB,0.53898E-02_JPRB /)  
+KB(:,58, 9) = (/ &
+ & 0.20428E-02_JPRB,0.25997E-02_JPRB,0.33047E-02_JPRB,0.41726E-02_JPRB,0.52071E-02_JPRB /)  
+KB(:,59, 9) = (/ &
+ & 0.20538E-02_JPRB,0.26323E-02_JPRB,0.33247E-02_JPRB,0.41770E-02_JPRB,0.52496E-02_JPRB /)  
+KB(:,13,10) = (/ &
+ & 0.58637E+00_JPRB,0.59481E+00_JPRB,0.59811E+00_JPRB,0.60451E+00_JPRB,0.60418E+00_JPRB /)  
+KB(:,14,10) = (/ &
+ & 0.53191E+00_JPRB,0.53363E+00_JPRB,0.53861E+00_JPRB,0.53976E+00_JPRB,0.53933E+00_JPRB /)  
+KB(:,15,10) = (/ &
+ & 0.47845E+00_JPRB,0.48447E+00_JPRB,0.48498E+00_JPRB,0.48691E+00_JPRB,0.48935E+00_JPRB /)  
+KB(:,16,10) = (/ &
+ & 0.42695E+00_JPRB,0.43265E+00_JPRB,0.43442E+00_JPRB,0.43949E+00_JPRB,0.44244E+00_JPRB /)  
+KB(:,17,10) = (/ &
+ & 0.37796E+00_JPRB,0.38437E+00_JPRB,0.38958E+00_JPRB,0.39367E+00_JPRB,0.39802E+00_JPRB /)  
+KB(:,18,10) = (/ &
+ & 0.33399E+00_JPRB,0.33971E+00_JPRB,0.34517E+00_JPRB,0.35032E+00_JPRB,0.35265E+00_JPRB /)  
+KB(:,19,10) = (/ &
+ & 0.29538E+00_JPRB,0.30247E+00_JPRB,0.30713E+00_JPRB,0.30943E+00_JPRB,0.31544E+00_JPRB /)  
+KB(:,20,10) = (/ &
+ & 0.26154E+00_JPRB,0.26955E+00_JPRB,0.27264E+00_JPRB,0.27778E+00_JPRB,0.28167E+00_JPRB /)  
+KB(:,21,10) = (/ &
+ & 0.23200E+00_JPRB,0.23896E+00_JPRB,0.24468E+00_JPRB,0.24838E+00_JPRB,0.25453E+00_JPRB /)  
+KB(:,22,10) = (/ &
+ & 0.20714E+00_JPRB,0.21368E+00_JPRB,0.21959E+00_JPRB,0.22402E+00_JPRB,0.22934E+00_JPRB /)  
+KB(:,23,10) = (/ &
+ & 0.18514E+00_JPRB,0.19070E+00_JPRB,0.19771E+00_JPRB,0.20426E+00_JPRB,0.20794E+00_JPRB /)  
+KB(:,24,10) = (/ &
+ & 0.16629E+00_JPRB,0.17247E+00_JPRB,0.17943E+00_JPRB,0.18543E+00_JPRB,0.19044E+00_JPRB /)  
+KB(:,25,10) = (/ &
+ & 0.15103E+00_JPRB,0.15758E+00_JPRB,0.16440E+00_JPRB,0.16947E+00_JPRB,0.17504E+00_JPRB /)  
+KB(:,26,10) = (/ &
+ & 0.13782E+00_JPRB,0.14448E+00_JPRB,0.15050E+00_JPRB,0.15723E+00_JPRB,0.16403E+00_JPRB /)  
+KB(:,27,10) = (/ &
+ & 0.12675E+00_JPRB,0.13284E+00_JPRB,0.13902E+00_JPRB,0.14547E+00_JPRB,0.15299E+00_JPRB /)  
+KB(:,28,10) = (/ &
+ & 0.11700E+00_JPRB,0.12400E+00_JPRB,0.13029E+00_JPRB,0.13779E+00_JPRB,0.14535E+00_JPRB /)  
+KB(:,29,10) = (/ &
+ & 0.10975E+00_JPRB,0.11580E+00_JPRB,0.12300E+00_JPRB,0.13106E+00_JPRB,0.13981E+00_JPRB /)  
+KB(:,30,10) = (/ &
+ & 0.10326E+00_JPRB,0.10877E+00_JPRB,0.11694E+00_JPRB,0.12523E+00_JPRB,0.13409E+00_JPRB /)  
+KB(:,31,10) = (/ &
+ & 0.97072E-01_JPRB,0.10392E+00_JPRB,0.11191E+00_JPRB,0.12092E+00_JPRB,0.13156E+00_JPRB /)  
+KB(:,32,10) = (/ &
+ & 0.92483E-01_JPRB,0.10003E+00_JPRB,0.10847E+00_JPRB,0.11777E+00_JPRB,0.12978E+00_JPRB /)  
+KB(:,33,10) = (/ &
+ & 0.89436E-01_JPRB,0.96549E-01_JPRB,0.10550E+00_JPRB,0.11582E+00_JPRB,0.12938E+00_JPRB /)  
+KB(:,34,10) = (/ &
+ & 0.86605E-01_JPRB,0.93852E-01_JPRB,0.10437E+00_JPRB,0.11565E+00_JPRB,0.13025E+00_JPRB /)  
+KB(:,35,10) = (/ &
+ & 0.83755E-01_JPRB,0.92443E-01_JPRB,0.10318E+00_JPRB,0.11569E+00_JPRB,0.13035E+00_JPRB /)  
+KB(:,36,10) = (/ &
+ & 0.80159E-01_JPRB,0.90106E-01_JPRB,0.10185E+00_JPRB,0.11331E+00_JPRB,0.13105E+00_JPRB /)  
+KB(:,37,10) = (/ &
+ & 0.76863E-01_JPRB,0.86981E-01_JPRB,0.98816E-01_JPRB,0.11094E+00_JPRB,0.12837E+00_JPRB /)  
+KB(:,38,10) = (/ &
+ & 0.73911E-01_JPRB,0.84640E-01_JPRB,0.95988E-01_JPRB,0.10951E+00_JPRB,0.12524E+00_JPRB /)  
+KB(:,39,10) = (/ &
+ & 0.71484E-01_JPRB,0.82465E-01_JPRB,0.93807E-01_JPRB,0.10732E+00_JPRB,0.12288E+00_JPRB /)  
+KB(:,40,10) = (/ &
+ & 0.68367E-01_JPRB,0.78553E-01_JPRB,0.90288E-01_JPRB,0.10290E+00_JPRB,0.11884E+00_JPRB /)  
+KB(:,41,10) = (/ &
+ & 0.65972E-01_JPRB,0.75367E-01_JPRB,0.87331E-01_JPRB,0.98979E-01_JPRB,0.11479E+00_JPRB /)  
+KB(:,42,10) = (/ &
+ & 0.63899E-01_JPRB,0.72995E-01_JPRB,0.84392E-01_JPRB,0.96170E-01_JPRB,0.11066E+00_JPRB /)  
+KB(:,43,10) = (/ &
+ & 0.61601E-01_JPRB,0.69361E-01_JPRB,0.80265E-01_JPRB,0.92296E-01_JPRB,0.10575E+00_JPRB /)  
+KB(:,44,10) = (/ &
+ & 0.58053E-01_JPRB,0.67236E-01_JPRB,0.77057E-01_JPRB,0.88848E-01_JPRB,0.10118E+00_JPRB /)  
+KB(:,45,10) = (/ &
+ & 0.55041E-01_JPRB,0.64788E-01_JPRB,0.73479E-01_JPRB,0.85189E-01_JPRB,0.97294E-01_JPRB /)  
+KB(:,46,10) = (/ &
+ & 0.51538E-01_JPRB,0.61359E-01_JPRB,0.70493E-01_JPRB,0.81342E-01_JPRB,0.93711E-01_JPRB /)  
+KB(:,47,10) = (/ &
+ & 0.48229E-01_JPRB,0.57754E-01_JPRB,0.67703E-01_JPRB,0.77712E-01_JPRB,0.88779E-01_JPRB /)  
+KB(:,48,10) = (/ &
+ & 0.44328E-01_JPRB,0.53953E-01_JPRB,0.64327E-01_JPRB,0.74186E-01_JPRB,0.85354E-01_JPRB /)  
+KB(:,49,10) = (/ &
+ & 0.40181E-01_JPRB,0.50939E-01_JPRB,0.60544E-01_JPRB,0.71079E-01_JPRB,0.81883E-01_JPRB /)  
+KB(:,50,10) = (/ &
+ & 0.36327E-01_JPRB,0.47243E-01_JPRB,0.57625E-01_JPRB,0.67925E-01_JPRB,0.78806E-01_JPRB /)  
+KB(:,51,10) = (/ &
+ & 0.33026E-01_JPRB,0.43278E-01_JPRB,0.54464E-01_JPRB,0.64411E-01_JPRB,0.75916E-01_JPRB /)  
+KB(:,52,10) = (/ &
+ & 0.29600E-01_JPRB,0.39888E-01_JPRB,0.50913E-01_JPRB,0.61457E-01_JPRB,0.72719E-01_JPRB /)  
+KB(:,53,10) = (/ &
+ & 0.26994E-01_JPRB,0.36264E-01_JPRB,0.46926E-01_JPRB,0.58631E-01_JPRB,0.68972E-01_JPRB /)  
+KB(:,54,10) = (/ &
+ & 0.24928E-01_JPRB,0.33245E-01_JPRB,0.43870E-01_JPRB,0.55481E-01_JPRB,0.66121E-01_JPRB /)  
+KB(:,55,10) = (/ &
+ & 0.23329E-01_JPRB,0.30647E-01_JPRB,0.40729E-01_JPRB,0.52051E-01_JPRB,0.63960E-01_JPRB /)  
+KB(:,56,10) = (/ &
+ & 0.21581E-01_JPRB,0.28578E-01_JPRB,0.37651E-01_JPRB,0.48828E-01_JPRB,0.60673E-01_JPRB /)  
+KB(:,57,10) = (/ &
+ & 0.20121E-01_JPRB,0.27060E-01_JPRB,0.35152E-01_JPRB,0.45854E-01_JPRB,0.57152E-01_JPRB /)  
+KB(:,58,10) = (/ &
+ & 0.18692E-01_JPRB,0.25639E-01_JPRB,0.32995E-01_JPRB,0.42657E-01_JPRB,0.54655E-01_JPRB /)  
+KB(:,59,10) = (/ &
+ & 0.18277E-01_JPRB,0.25273E-01_JPRB,0.32791E-01_JPRB,0.42508E-01_JPRB,0.53680E-01_JPRB /)  
+KB(:,13,11) = (/ &
+ & 0.10693E+01_JPRB,0.10902E+01_JPRB,0.11032E+01_JPRB,0.10991E+01_JPRB,0.11118E+01_JPRB /)  
+KB(:,14,11) = (/ &
+ & 0.95953E+00_JPRB,0.97384E+00_JPRB,0.98577E+00_JPRB,0.99728E+00_JPRB,0.10070E+01_JPRB /)  
+KB(:,15,11) = (/ &
+ & 0.85940E+00_JPRB,0.86781E+00_JPRB,0.87766E+00_JPRB,0.88834E+00_JPRB,0.89855E+00_JPRB /)  
+KB(:,16,11) = (/ &
+ & 0.76187E+00_JPRB,0.76651E+00_JPRB,0.78116E+00_JPRB,0.79605E+00_JPRB,0.80429E+00_JPRB /)  
+KB(:,17,11) = (/ &
+ & 0.67627E+00_JPRB,0.68377E+00_JPRB,0.69734E+00_JPRB,0.70867E+00_JPRB,0.71758E+00_JPRB /)  
+KB(:,18,11) = (/ &
+ & 0.60442E+00_JPRB,0.61462E+00_JPRB,0.62319E+00_JPRB,0.63477E+00_JPRB,0.64696E+00_JPRB /)  
+KB(:,19,11) = (/ &
+ & 0.54250E+00_JPRB,0.55180E+00_JPRB,0.56132E+00_JPRB,0.57649E+00_JPRB,0.58604E+00_JPRB /)  
+KB(:,20,11) = (/ &
+ & 0.49000E+00_JPRB,0.49922E+00_JPRB,0.51229E+00_JPRB,0.52536E+00_JPRB,0.53903E+00_JPRB /)  
+KB(:,21,11) = (/ &
+ & 0.44362E+00_JPRB,0.45018E+00_JPRB,0.46523E+00_JPRB,0.48212E+00_JPRB,0.49590E+00_JPRB /)  
+KB(:,22,11) = (/ &
+ & 0.40390E+00_JPRB,0.41136E+00_JPRB,0.42554E+00_JPRB,0.44299E+00_JPRB,0.45956E+00_JPRB /)  
+KB(:,23,11) = (/ &
+ & 0.36600E+00_JPRB,0.37646E+00_JPRB,0.39144E+00_JPRB,0.40936E+00_JPRB,0.42622E+00_JPRB /)  
+KB(:,24,11) = (/ &
+ & 0.33488E+00_JPRB,0.34802E+00_JPRB,0.36259E+00_JPRB,0.38089E+00_JPRB,0.39832E+00_JPRB /)  
+KB(:,25,11) = (/ &
+ & 0.30569E+00_JPRB,0.32099E+00_JPRB,0.33730E+00_JPRB,0.35716E+00_JPRB,0.37447E+00_JPRB /)  
+KB(:,26,11) = (/ &
+ & 0.28345E+00_JPRB,0.29933E+00_JPRB,0.31861E+00_JPRB,0.33716E+00_JPRB,0.35400E+00_JPRB /)  
+KB(:,27,11) = (/ &
+ & 0.26524E+00_JPRB,0.28116E+00_JPRB,0.30310E+00_JPRB,0.32398E+00_JPRB,0.34341E+00_JPRB /)  
+KB(:,28,11) = (/ &
+ & 0.25036E+00_JPRB,0.26748E+00_JPRB,0.29040E+00_JPRB,0.31038E+00_JPRB,0.33527E+00_JPRB /)  
+KB(:,29,11) = (/ &
+ & 0.23678E+00_JPRB,0.25759E+00_JPRB,0.27958E+00_JPRB,0.30373E+00_JPRB,0.33097E+00_JPRB /)  
+KB(:,30,11) = (/ &
+ & 0.22835E+00_JPRB,0.25043E+00_JPRB,0.27298E+00_JPRB,0.30247E+00_JPRB,0.33069E+00_JPRB /)  
+KB(:,31,11) = (/ &
+ & 0.22381E+00_JPRB,0.24448E+00_JPRB,0.27386E+00_JPRB,0.30198E+00_JPRB,0.33135E+00_JPRB /)  
+KB(:,32,11) = (/ &
+ & 0.21945E+00_JPRB,0.24581E+00_JPRB,0.27557E+00_JPRB,0.30488E+00_JPRB,0.33817E+00_JPRB /)  
+KB(:,33,11) = (/ &
+ & 0.22020E+00_JPRB,0.24997E+00_JPRB,0.27933E+00_JPRB,0.31199E+00_JPRB,0.34537E+00_JPRB /)  
+KB(:,34,11) = (/ &
+ & 0.22328E+00_JPRB,0.25315E+00_JPRB,0.28560E+00_JPRB,0.31999E+00_JPRB,0.35204E+00_JPRB /)  
+KB(:,35,11) = (/ &
+ & 0.22463E+00_JPRB,0.25599E+00_JPRB,0.29016E+00_JPRB,0.32472E+00_JPRB,0.35705E+00_JPRB /)  
+KB(:,36,11) = (/ &
+ & 0.22454E+00_JPRB,0.25719E+00_JPRB,0.29064E+00_JPRB,0.32676E+00_JPRB,0.35643E+00_JPRB /)  
+KB(:,37,11) = (/ &
+ & 0.21917E+00_JPRB,0.25146E+00_JPRB,0.28533E+00_JPRB,0.32018E+00_JPRB,0.35207E+00_JPRB /)  
+KB(:,38,11) = (/ &
+ & 0.21431E+00_JPRB,0.24593E+00_JPRB,0.28070E+00_JPRB,0.31440E+00_JPRB,0.34740E+00_JPRB /)  
+KB(:,39,11) = (/ &
+ & 0.20995E+00_JPRB,0.24107E+00_JPRB,0.27540E+00_JPRB,0.30795E+00_JPRB,0.34247E+00_JPRB /)  
+KB(:,40,11) = (/ &
+ & 0.20148E+00_JPRB,0.23319E+00_JPRB,0.26577E+00_JPRB,0.30086E+00_JPRB,0.33366E+00_JPRB /)  
+KB(:,41,11) = (/ &
+ & 0.19132E+00_JPRB,0.22478E+00_JPRB,0.25632E+00_JPRB,0.29251E+00_JPRB,0.32436E+00_JPRB /)  
+KB(:,42,11) = (/ &
+ & 0.18231E+00_JPRB,0.21584E+00_JPRB,0.24724E+00_JPRB,0.28164E+00_JPRB,0.31641E+00_JPRB /)  
+KB(:,43,11) = (/ &
+ & 0.17273E+00_JPRB,0.20475E+00_JPRB,0.23702E+00_JPRB,0.26984E+00_JPRB,0.30535E+00_JPRB /)  
+KB(:,44,11) = (/ &
+ & 0.16365E+00_JPRB,0.19313E+00_JPRB,0.22566E+00_JPRB,0.25812E+00_JPRB,0.29340E+00_JPRB /)  
+KB(:,45,11) = (/ &
+ & 0.15471E+00_JPRB,0.18278E+00_JPRB,0.21464E+00_JPRB,0.24686E+00_JPRB,0.28060E+00_JPRB /)  
+KB(:,46,11) = (/ &
+ & 0.14477E+00_JPRB,0.17256E+00_JPRB,0.20328E+00_JPRB,0.23515E+00_JPRB,0.26753E+00_JPRB /)  
+KB(:,47,11) = (/ &
+ & 0.13513E+00_JPRB,0.16209E+00_JPRB,0.19092E+00_JPRB,0.22162E+00_JPRB,0.25481E+00_JPRB /)  
+KB(:,48,11) = (/ &
+ & 0.12632E+00_JPRB,0.15056E+00_JPRB,0.17900E+00_JPRB,0.20905E+00_JPRB,0.24085E+00_JPRB /)  
+KB(:,49,11) = (/ &
+ & 0.11846E+00_JPRB,0.14059E+00_JPRB,0.16812E+00_JPRB,0.19759E+00_JPRB,0.22701E+00_JPRB /)  
+KB(:,50,11) = (/ &
+ & 0.11278E+00_JPRB,0.13341E+00_JPRB,0.15756E+00_JPRB,0.18662E+00_JPRB,0.21629E+00_JPRB /)  
+KB(:,51,11) = (/ &
+ & 0.10711E+00_JPRB,0.12752E+00_JPRB,0.14951E+00_JPRB,0.17651E+00_JPRB,0.20555E+00_JPRB /)  
+KB(:,52,11) = (/ &
+ & 0.10062E+00_JPRB,0.12140E+00_JPRB,0.14273E+00_JPRB,0.16677E+00_JPRB,0.19594E+00_JPRB /)  
+KB(:,53,11) = (/ &
+ & 0.93686E-01_JPRB,0.11587E+00_JPRB,0.13705E+00_JPRB,0.15900E+00_JPRB,0.18673E+00_JPRB /)  
+KB(:,54,11) = (/ &
+ & 0.88183E-01_JPRB,0.10986E+00_JPRB,0.13159E+00_JPRB,0.15362E+00_JPRB,0.17808E+00_JPRB /)  
+KB(:,55,11) = (/ &
+ & 0.81924E-01_JPRB,0.10428E+00_JPRB,0.12662E+00_JPRB,0.14862E+00_JPRB,0.17143E+00_JPRB /)  
+KB(:,56,11) = (/ &
+ & 0.75991E-01_JPRB,0.98633E-01_JPRB,0.12219E+00_JPRB,0.14408E+00_JPRB,0.16698E+00_JPRB /)  
+KB(:,57,11) = (/ &
+ & 0.69399E-01_JPRB,0.92760E-01_JPRB,0.11664E+00_JPRB,0.14040E+00_JPRB,0.16308E+00_JPRB /)  
+KB(:,58,11) = (/ &
+ & 0.64018E-01_JPRB,0.88343E-01_JPRB,0.11169E+00_JPRB,0.13686E+00_JPRB,0.15969E+00_JPRB /)  
+KB(:,59,11) = (/ &
+ & 0.63145E-01_JPRB,0.86273E-01_JPRB,0.11143E+00_JPRB,0.13565E+00_JPRB,0.16187E+00_JPRB /)  
+KB(:,13,12) = (/ &
+ & 0.22241E+01_JPRB,0.22556E+01_JPRB,0.22932E+01_JPRB,0.23316E+01_JPRB,0.23817E+01_JPRB /)  
+KB(:,14,12) = (/ &
+ & 0.20015E+01_JPRB,0.20535E+01_JPRB,0.20976E+01_JPRB,0.21411E+01_JPRB,0.21895E+01_JPRB /)  
+KB(:,15,12) = (/ &
+ & 0.18111E+01_JPRB,0.18671E+01_JPRB,0.19196E+01_JPRB,0.19734E+01_JPRB,0.20226E+01_JPRB /)  
+KB(:,16,12) = (/ &
+ & 0.16513E+01_JPRB,0.17114E+01_JPRB,0.17632E+01_JPRB,0.18132E+01_JPRB,0.18623E+01_JPRB /)  
+KB(:,17,12) = (/ &
+ & 0.15041E+01_JPRB,0.15648E+01_JPRB,0.16197E+01_JPRB,0.16720E+01_JPRB,0.17169E+01_JPRB /)  
+KB(:,18,12) = (/ &
+ & 0.13731E+01_JPRB,0.14345E+01_JPRB,0.14937E+01_JPRB,0.15386E+01_JPRB,0.16052E+01_JPRB /)  
+KB(:,19,12) = (/ &
+ & 0.12478E+01_JPRB,0.13115E+01_JPRB,0.13641E+01_JPRB,0.14279E+01_JPRB,0.14977E+01_JPRB /)  
+KB(:,20,12) = (/ &
+ & 0.11298E+01_JPRB,0.11910E+01_JPRB,0.12495E+01_JPRB,0.13186E+01_JPRB,0.13914E+01_JPRB /)  
+KB(:,21,12) = (/ &
+ & 0.10266E+01_JPRB,0.10915E+01_JPRB,0.11508E+01_JPRB,0.12227E+01_JPRB,0.13004E+01_JPRB /)  
+KB(:,22,12) = (/ &
+ & 0.93959E+00_JPRB,0.10027E+01_JPRB,0.10735E+01_JPRB,0.11507E+01_JPRB,0.12312E+01_JPRB /)  
+KB(:,23,12) = (/ &
+ & 0.87016E+00_JPRB,0.93486E+00_JPRB,0.10125E+01_JPRB,0.10930E+01_JPRB,0.11794E+01_JPRB /)  
+KB(:,24,12) = (/ &
+ & 0.81213E+00_JPRB,0.88017E+00_JPRB,0.96483E+00_JPRB,0.10508E+01_JPRB,0.11396E+01_JPRB /)  
+KB(:,25,12) = (/ &
+ & 0.77134E+00_JPRB,0.84295E+00_JPRB,0.93081E+00_JPRB,0.10201E+01_JPRB,0.11152E+01_JPRB /)  
+KB(:,26,12) = (/ &
+ & 0.73832E+00_JPRB,0.81743E+00_JPRB,0.90746E+00_JPRB,0.10024E+01_JPRB,0.11020E+01_JPRB /)  
+KB(:,27,12) = (/ &
+ & 0.71831E+00_JPRB,0.80328E+00_JPRB,0.89505E+00_JPRB,0.99247E+00_JPRB,0.10943E+01_JPRB /)  
+KB(:,28,12) = (/ &
+ & 0.70848E+00_JPRB,0.79592E+00_JPRB,0.89143E+00_JPRB,0.99432E+00_JPRB,0.10940E+01_JPRB /)  
+KB(:,29,12) = (/ &
+ & 0.70725E+00_JPRB,0.79781E+00_JPRB,0.89906E+00_JPRB,0.10007E+01_JPRB,0.11009E+01_JPRB /)  
+KB(:,30,12) = (/ &
+ & 0.71125E+00_JPRB,0.80824E+00_JPRB,0.91144E+00_JPRB,0.10109E+01_JPRB,0.11144E+01_JPRB /)  
+KB(:,31,12) = (/ &
+ & 0.72057E+00_JPRB,0.82548E+00_JPRB,0.92423E+00_JPRB,0.10285E+01_JPRB,0.11338E+01_JPRB /)  
+KB(:,32,12) = (/ &
+ & 0.73855E+00_JPRB,0.84223E+00_JPRB,0.94322E+00_JPRB,0.10495E+01_JPRB,0.11523E+01_JPRB /)  
+KB(:,33,12) = (/ &
+ & 0.75860E+00_JPRB,0.86137E+00_JPRB,0.96653E+00_JPRB,0.10709E+01_JPRB,0.11736E+01_JPRB /)  
+KB(:,34,12) = (/ &
+ & 0.77584E+00_JPRB,0.88104E+00_JPRB,0.98358E+00_JPRB,0.10881E+01_JPRB,0.11928E+01_JPRB /)  
+KB(:,35,12) = (/ &
+ & 0.78526E+00_JPRB,0.88915E+00_JPRB,0.99181E+00_JPRB,0.10955E+01_JPRB,0.12024E+01_JPRB /)  
+KB(:,36,12) = (/ &
+ & 0.78420E+00_JPRB,0.88679E+00_JPRB,0.98962E+00_JPRB,0.10938E+01_JPRB,0.12013E+01_JPRB /)  
+KB(:,37,12) = (/ &
+ & 0.76619E+00_JPRB,0.86975E+00_JPRB,0.97162E+00_JPRB,0.10774E+01_JPRB,0.11823E+01_JPRB /)  
+KB(:,38,12) = (/ &
+ & 0.74778E+00_JPRB,0.85168E+00_JPRB,0.95355E+00_JPRB,0.10588E+01_JPRB,0.11642E+01_JPRB /)  
+KB(:,39,12) = (/ &
+ & 0.73003E+00_JPRB,0.83397E+00_JPRB,0.93638E+00_JPRB,0.10427E+01_JPRB,0.11461E+01_JPRB /)  
+KB(:,40,12) = (/ &
+ & 0.70694E+00_JPRB,0.80603E+00_JPRB,0.90951E+00_JPRB,0.10129E+01_JPRB,0.11179E+01_JPRB /)  
+KB(:,41,12) = (/ &
+ & 0.68380E+00_JPRB,0.77629E+00_JPRB,0.88021E+00_JPRB,0.98263E+00_JPRB,0.10876E+01_JPRB /)  
+KB(:,42,12) = (/ &
+ & 0.66231E+00_JPRB,0.74849E+00_JPRB,0.85130E+00_JPRB,0.95458E+00_JPRB,0.10576E+01_JPRB /)  
+KB(:,43,12) = (/ &
+ & 0.63688E+00_JPRB,0.72048E+00_JPRB,0.81634E+00_JPRB,0.92017E+00_JPRB,0.10227E+01_JPRB /)  
+KB(:,44,12) = (/ &
+ & 0.60858E+00_JPRB,0.69178E+00_JPRB,0.77940E+00_JPRB,0.88149E+00_JPRB,0.98460E+00_JPRB /)  
+KB(:,45,12) = (/ &
+ & 0.58153E+00_JPRB,0.66520E+00_JPRB,0.74925E+00_JPRB,0.84319E+00_JPRB,0.94694E+00_JPRB /)  
+KB(:,46,12) = (/ &
+ & 0.55197E+00_JPRB,0.63412E+00_JPRB,0.71872E+00_JPRB,0.80664E+00_JPRB,0.90684E+00_JPRB /)  
+KB(:,47,12) = (/ &
+ & 0.51844E+00_JPRB,0.60273E+00_JPRB,0.68769E+00_JPRB,0.77076E+00_JPRB,0.86117E+00_JPRB /)  
+KB(:,48,12) = (/ &
+ & 0.48120E+00_JPRB,0.57148E+00_JPRB,0.65491E+00_JPRB,0.74197E+00_JPRB,0.82485E+00_JPRB /)  
+KB(:,49,12) = (/ &
+ & 0.44584E+00_JPRB,0.53846E+00_JPRB,0.62079E+00_JPRB,0.70603E+00_JPRB,0.79220E+00_JPRB /)  
+KB(:,50,12) = (/ &
+ & 0.41289E+00_JPRB,0.50133E+00_JPRB,0.59314E+00_JPRB,0.67773E+00_JPRB,0.76297E+00_JPRB /)  
+KB(:,51,12) = (/ &
+ & 0.38263E+00_JPRB,0.46808E+00_JPRB,0.55994E+00_JPRB,0.64654E+00_JPRB,0.73545E+00_JPRB /)  
+KB(:,52,12) = (/ &
+ & 0.35216E+00_JPRB,0.43713E+00_JPRB,0.52781E+00_JPRB,0.61897E+00_JPRB,0.70212E+00_JPRB /)  
+KB(:,53,12) = (/ &
+ & 0.33102E+00_JPRB,0.40477E+00_JPRB,0.49059E+00_JPRB,0.58472E+00_JPRB,0.67270E+00_JPRB /)  
+KB(:,54,12) = (/ &
+ & 0.31146E+00_JPRB,0.37834E+00_JPRB,0.46271E+00_JPRB,0.55353E+00_JPRB,0.64596E+00_JPRB /)  
+KB(:,55,12) = (/ &
+ & 0.29087E+00_JPRB,0.35982E+00_JPRB,0.43598E+00_JPRB,0.52416E+00_JPRB,0.61765E+00_JPRB /)  
+KB(:,56,12) = (/ &
+ & 0.27304E+00_JPRB,0.34098E+00_JPRB,0.41224E+00_JPRB,0.49775E+00_JPRB,0.58771E+00_JPRB /)  
+KB(:,57,12) = (/ &
+ & 0.25824E+00_JPRB,0.32066E+00_JPRB,0.39085E+00_JPRB,0.46641E+00_JPRB,0.55829E+00_JPRB /)  
+KB(:,58,12) = (/ &
+ & 0.24548E+00_JPRB,0.30081E+00_JPRB,0.37338E+00_JPRB,0.44708E+00_JPRB,0.53062E+00_JPRB /)  
+KB(:,59,12) = (/ &
+ & 0.24212E+00_JPRB,0.29858E+00_JPRB,0.36550E+00_JPRB,0.44064E+00_JPRB,0.51789E+00_JPRB /)  
+KB(:,13,13) = (/ &
+ & 0.55998E+01_JPRB,0.57039E+01_JPRB,0.58049E+01_JPRB,0.59180E+01_JPRB,0.59854E+01_JPRB /)  
+KB(:,14,13) = (/ &
+ & 0.53275E+01_JPRB,0.54387E+01_JPRB,0.55543E+01_JPRB,0.56621E+01_JPRB,0.57635E+01_JPRB /)  
+KB(:,15,13) = (/ &
+ & 0.50203E+01_JPRB,0.51578E+01_JPRB,0.52898E+01_JPRB,0.54130E+01_JPRB,0.55373E+01_JPRB /)  
+KB(:,16,13) = (/ &
+ & 0.47246E+01_JPRB,0.48786E+01_JPRB,0.50266E+01_JPRB,0.51689E+01_JPRB,0.53242E+01_JPRB /)  
+KB(:,17,13) = (/ &
+ & 0.44403E+01_JPRB,0.46027E+01_JPRB,0.47680E+01_JPRB,0.49455E+01_JPRB,0.51299E+01_JPRB /)  
+KB(:,18,13) = (/ &
+ & 0.41648E+01_JPRB,0.43473E+01_JPRB,0.45415E+01_JPRB,0.47508E+01_JPRB,0.49298E+01_JPRB /)  
+KB(:,19,13) = (/ &
+ & 0.39134E+01_JPRB,0.41196E+01_JPRB,0.43493E+01_JPRB,0.45520E+01_JPRB,0.47522E+01_JPRB /)  
+KB(:,20,13) = (/ &
+ & 0.36873E+01_JPRB,0.39195E+01_JPRB,0.41603E+01_JPRB,0.43826E+01_JPRB,0.46005E+01_JPRB /)  
+KB(:,21,13) = (/ &
+ & 0.34974E+01_JPRB,0.37507E+01_JPRB,0.40010E+01_JPRB,0.42413E+01_JPRB,0.44759E+01_JPRB /)  
+KB(:,22,13) = (/ &
+ & 0.33605E+01_JPRB,0.36305E+01_JPRB,0.38873E+01_JPRB,0.41404E+01_JPRB,0.43929E+01_JPRB /)  
+KB(:,23,13) = (/ &
+ & 0.32571E+01_JPRB,0.35388E+01_JPRB,0.38042E+01_JPRB,0.40702E+01_JPRB,0.43353E+01_JPRB /)  
+KB(:,24,13) = (/ &
+ & 0.31836E+01_JPRB,0.34721E+01_JPRB,0.37495E+01_JPRB,0.40277E+01_JPRB,0.43044E+01_JPRB /)  
+KB(:,25,13) = (/ &
+ & 0.31346E+01_JPRB,0.34329E+01_JPRB,0.37222E+01_JPRB,0.40107E+01_JPRB,0.42953E+01_JPRB /)  
+KB(:,26,13) = (/ &
+ & 0.31155E+01_JPRB,0.34221E+01_JPRB,0.37222E+01_JPRB,0.40178E+01_JPRB,0.43079E+01_JPRB /)  
+KB(:,27,13) = (/ &
+ & 0.31157E+01_JPRB,0.34328E+01_JPRB,0.37392E+01_JPRB,0.40396E+01_JPRB,0.43346E+01_JPRB /)  
+KB(:,28,13) = (/ &
+ & 0.31335E+01_JPRB,0.34580E+01_JPRB,0.37695E+01_JPRB,0.40734E+01_JPRB,0.43720E+01_JPRB /)  
+KB(:,29,13) = (/ &
+ & 0.31697E+01_JPRB,0.34978E+01_JPRB,0.38120E+01_JPRB,0.41186E+01_JPRB,0.44189E+01_JPRB /)  
+KB(:,30,13) = (/ &
+ & 0.32194E+01_JPRB,0.35475E+01_JPRB,0.38638E+01_JPRB,0.41720E+01_JPRB,0.44722E+01_JPRB /)  
+KB(:,31,13) = (/ &
+ & 0.32811E+01_JPRB,0.36069E+01_JPRB,0.39241E+01_JPRB,0.42325E+01_JPRB,0.45314E+01_JPRB /)  
+KB(:,32,13) = (/ &
+ & 0.33484E+01_JPRB,0.36727E+01_JPRB,0.39897E+01_JPRB,0.42974E+01_JPRB,0.45949E+01_JPRB /)  
+KB(:,33,13) = (/ &
+ & 0.34186E+01_JPRB,0.37430E+01_JPRB,0.40586E+01_JPRB,0.43658E+01_JPRB,0.46602E+01_JPRB /)  
+KB(:,34,13) = (/ &
+ & 0.34801E+01_JPRB,0.38048E+01_JPRB,0.41197E+01_JPRB,0.44255E+01_JPRB,0.47156E+01_JPRB /)  
+KB(:,35,13) = (/ &
+ & 0.35126E+01_JPRB,0.38375E+01_JPRB,0.41525E+01_JPRB,0.44577E+01_JPRB,0.47454E+01_JPRB /)  
+KB(:,36,13) = (/ &
+ & 0.35115E+01_JPRB,0.38370E+01_JPRB,0.41529E+01_JPRB,0.44584E+01_JPRB,0.47449E+01_JPRB /)  
+KB(:,37,13) = (/ &
+ & 0.34620E+01_JPRB,0.37892E+01_JPRB,0.41066E+01_JPRB,0.44144E+01_JPRB,0.47052E+01_JPRB /)  
+KB(:,38,13) = (/ &
+ & 0.34108E+01_JPRB,0.37391E+01_JPRB,0.40587E+01_JPRB,0.43685E+01_JPRB,0.46624E+01_JPRB /)  
+KB(:,39,13) = (/ &
+ & 0.33603E+01_JPRB,0.36896E+01_JPRB,0.40114E+01_JPRB,0.43229E+01_JPRB,0.46208E+01_JPRB /)  
+KB(:,40,13) = (/ &
+ & 0.32696E+01_JPRB,0.36068E+01_JPRB,0.39317E+01_JPRB,0.42460E+01_JPRB,0.45479E+01_JPRB /)  
+KB(:,41,13) = (/ &
+ & 0.31746E+01_JPRB,0.35197E+01_JPRB,0.38475E+01_JPRB,0.41644E+01_JPRB,0.44716E+01_JPRB /)  
+KB(:,42,13) = (/ &
+ & 0.30768E+01_JPRB,0.34312E+01_JPRB,0.37630E+01_JPRB,0.40826E+01_JPRB,0.43924E+01_JPRB /)  
+KB(:,43,13) = (/ &
+ & 0.29558E+01_JPRB,0.33178E+01_JPRB,0.36587E+01_JPRB,0.39822E+01_JPRB,0.42959E+01_JPRB /)  
+KB(:,44,13) = (/ &
+ & 0.28280E+01_JPRB,0.31906E+01_JPRB,0.35435E+01_JPRB,0.38727E+01_JPRB,0.41899E+01_JPRB /)  
+KB(:,45,13) = (/ &
+ & 0.26988E+01_JPRB,0.30597E+01_JPRB,0.34201E+01_JPRB,0.37628E+01_JPRB,0.40831E+01_JPRB /)  
+KB(:,46,13) = (/ &
+ & 0.25661E+01_JPRB,0.29262E+01_JPRB,0.32865E+01_JPRB,0.36383E+01_JPRB,0.39682E+01_JPRB /)  
+KB(:,47,13) = (/ &
+ & 0.24176E+01_JPRB,0.27716E+01_JPRB,0.31308E+01_JPRB,0.34925E+01_JPRB,0.38381E+01_JPRB /)  
+KB(:,48,13) = (/ &
+ & 0.22754E+01_JPRB,0.26218E+01_JPRB,0.29793E+01_JPRB,0.33363E+01_JPRB,0.36948E+01_JPRB /)  
+KB(:,49,13) = (/ &
+ & 0.21329E+01_JPRB,0.24724E+01_JPRB,0.28302E+01_JPRB,0.31874E+01_JPRB,0.35454E+01_JPRB /)  
+KB(:,50,13) = (/ &
+ & 0.20005E+01_JPRB,0.23398E+01_JPRB,0.26856E+01_JPRB,0.30422E+01_JPRB,0.34002E+01_JPRB /)  
+KB(:,51,13) = (/ &
+ & 0.18713E+01_JPRB,0.22087E+01_JPRB,0.25515E+01_JPRB,0.29067E+01_JPRB,0.32588E+01_JPRB /)  
+KB(:,52,13) = (/ &
+ & 0.17459E+01_JPRB,0.20772E+01_JPRB,0.24169E+01_JPRB,0.27666E+01_JPRB,0.31241E+01_JPRB /)  
+KB(:,53,13) = (/ &
+ & 0.16095E+01_JPRB,0.19502E+01_JPRB,0.22895E+01_JPRB,0.26325E+01_JPRB,0.29855E+01_JPRB /)  
+KB(:,54,13) = (/ &
+ & 0.15066E+01_JPRB,0.18320E+01_JPRB,0.21659E+01_JPRB,0.25081E+01_JPRB,0.28569E+01_JPRB /)  
+KB(:,55,13) = (/ &
+ & 0.14318E+01_JPRB,0.17117E+01_JPRB,0.20491E+01_JPRB,0.23896E+01_JPRB,0.27343E+01_JPRB /)  
+KB(:,56,13) = (/ &
+ & 0.13449E+01_JPRB,0.16235E+01_JPRB,0.19309E+01_JPRB,0.22682E+01_JPRB,0.26139E+01_JPRB /)  
+KB(:,57,13) = (/ &
+ & 0.12667E+01_JPRB,0.15514E+01_JPRB,0.18274E+01_JPRB,0.21528E+01_JPRB,0.24919E+01_JPRB /)  
+KB(:,58,13) = (/ &
+ & 0.11763E+01_JPRB,0.14696E+01_JPRB,0.17445E+01_JPRB,0.20345E+01_JPRB,0.23757E+01_JPRB /)  
+KB(:,59,13) = (/ &
+ & 0.11472E+01_JPRB,0.14428E+01_JPRB,0.17312E+01_JPRB,0.20031E+01_JPRB,0.23234E+01_JPRB /)  
+KB(:,13,14) = (/ &
+ & 0.15147E+02_JPRB,0.15130E+02_JPRB,0.15113E+02_JPRB,0.15099E+02_JPRB,0.15078E+02_JPRB /)  
+KB(:,14,14) = (/ &
+ & 0.15510E+02_JPRB,0.15546E+02_JPRB,0.15567E+02_JPRB,0.15587E+02_JPRB,0.15585E+02_JPRB /)  
+KB(:,15,14) = (/ &
+ & 0.15739E+02_JPRB,0.15841E+02_JPRB,0.15930E+02_JPRB,0.15986E+02_JPRB,0.16004E+02_JPRB /)  
+KB(:,16,14) = (/ &
+ & 0.15858E+02_JPRB,0.16042E+02_JPRB,0.16196E+02_JPRB,0.16295E+02_JPRB,0.16347E+02_JPRB /)  
+KB(:,17,14) = (/ &
+ & 0.15892E+02_JPRB,0.16168E+02_JPRB,0.16375E+02_JPRB,0.16519E+02_JPRB,0.16620E+02_JPRB /)  
+KB(:,18,14) = (/ &
+ & 0.15890E+02_JPRB,0.16233E+02_JPRB,0.16495E+02_JPRB,0.16687E+02_JPRB,0.16843E+02_JPRB /)  
+KB(:,19,14) = (/ &
+ & 0.15860E+02_JPRB,0.16260E+02_JPRB,0.16572E+02_JPRB,0.16822E+02_JPRB,0.17016E+02_JPRB /)  
+KB(:,20,14) = (/ &
+ & 0.15821E+02_JPRB,0.16274E+02_JPRB,0.16642E+02_JPRB,0.16937E+02_JPRB,0.17165E+02_JPRB /)  
+KB(:,21,14) = (/ &
+ & 0.15778E+02_JPRB,0.16284E+02_JPRB,0.16705E+02_JPRB,0.17036E+02_JPRB,0.17293E+02_JPRB /)  
+KB(:,22,14) = (/ &
+ & 0.15777E+02_JPRB,0.16337E+02_JPRB,0.16794E+02_JPRB,0.17151E+02_JPRB,0.17417E+02_JPRB /)  
+KB(:,23,14) = (/ &
+ & 0.15815E+02_JPRB,0.16408E+02_JPRB,0.16883E+02_JPRB,0.17258E+02_JPRB,0.17537E+02_JPRB /)  
+KB(:,24,14) = (/ &
+ & 0.15884E+02_JPRB,0.16493E+02_JPRB,0.16982E+02_JPRB,0.17365E+02_JPRB,0.17648E+02_JPRB /)  
+KB(:,25,14) = (/ &
+ & 0.15973E+02_JPRB,0.16594E+02_JPRB,0.17087E+02_JPRB,0.17470E+02_JPRB,0.17753E+02_JPRB /)  
+KB(:,26,14) = (/ &
+ & 0.16098E+02_JPRB,0.16711E+02_JPRB,0.17198E+02_JPRB,0.17574E+02_JPRB,0.17853E+02_JPRB /)  
+KB(:,27,14) = (/ &
+ & 0.16232E+02_JPRB,0.16836E+02_JPRB,0.17310E+02_JPRB,0.17676E+02_JPRB,0.17946E+02_JPRB /)  
+KB(:,28,14) = (/ &
+ & 0.16376E+02_JPRB,0.16966E+02_JPRB,0.17425E+02_JPRB,0.17775E+02_JPRB,0.18032E+02_JPRB /)  
+KB(:,29,14) = (/ &
+ & 0.16527E+02_JPRB,0.17096E+02_JPRB,0.17538E+02_JPRB,0.17871E+02_JPRB,0.18111E+02_JPRB /)  
+KB(:,30,14) = (/ &
+ & 0.16681E+02_JPRB,0.17223E+02_JPRB,0.17646E+02_JPRB,0.17959E+02_JPRB,0.18183E+02_JPRB /)  
+KB(:,31,14) = (/ &
+ & 0.16832E+02_JPRB,0.17348E+02_JPRB,0.17747E+02_JPRB,0.18041E+02_JPRB,0.18247E+02_JPRB /)  
+KB(:,32,14) = (/ &
+ & 0.16982E+02_JPRB,0.17470E+02_JPRB,0.17844E+02_JPRB,0.18116E+02_JPRB,0.18304E+02_JPRB /)  
+KB(:,33,14) = (/ &
+ & 0.17125E+02_JPRB,0.17586E+02_JPRB,0.17935E+02_JPRB,0.18187E+02_JPRB,0.18356E+02_JPRB /)  
+KB(:,34,14) = (/ &
+ & 0.17243E+02_JPRB,0.17681E+02_JPRB,0.18009E+02_JPRB,0.18243E+02_JPRB,0.18396E+02_JPRB /)  
+KB(:,35,14) = (/ &
+ & 0.17308E+02_JPRB,0.17736E+02_JPRB,0.18053E+02_JPRB,0.18277E+02_JPRB,0.18422E+02_JPRB /)  
+KB(:,36,14) = (/ &
+ & 0.17321E+02_JPRB,0.17747E+02_JPRB,0.18064E+02_JPRB,0.18289E+02_JPRB,0.18431E+02_JPRB /)  
+KB(:,37,14) = (/ &
+ & 0.17259E+02_JPRB,0.17701E+02_JPRB,0.18033E+02_JPRB,0.18270E+02_JPRB,0.18425E+02_JPRB /)  
+KB(:,38,14) = (/ &
+ & 0.17190E+02_JPRB,0.17649E+02_JPRB,0.17997E+02_JPRB,0.18247E+02_JPRB,0.18415E+02_JPRB /)  
+KB(:,39,14) = (/ &
+ & 0.17116E+02_JPRB,0.17594E+02_JPRB,0.17957E+02_JPRB,0.18221E+02_JPRB,0.18401E+02_JPRB /)  
+KB(:,40,14) = (/ &
+ & 0.16981E+02_JPRB,0.17491E+02_JPRB,0.17882E+02_JPRB,0.18168E+02_JPRB,0.18367E+02_JPRB /)  
+KB(:,41,14) = (/ &
+ & 0.16829E+02_JPRB,0.17375E+02_JPRB,0.17795E+02_JPRB,0.18107E+02_JPRB,0.18328E+02_JPRB /)  
+KB(:,42,14) = (/ &
+ & 0.16667E+02_JPRB,0.17250E+02_JPRB,0.17700E+02_JPRB,0.18038E+02_JPRB,0.18281E+02_JPRB /)  
+KB(:,43,14) = (/ &
+ & 0.16452E+02_JPRB,0.17082E+02_JPRB,0.17573E+02_JPRB,0.17944E+02_JPRB,0.18214E+02_JPRB /)  
+KB(:,44,14) = (/ &
+ & 0.16203E+02_JPRB,0.16887E+02_JPRB,0.17421E+02_JPRB,0.17833E+02_JPRB,0.18135E+02_JPRB /)  
+KB(:,45,14) = (/ &
+ & 0.15935E+02_JPRB,0.16673E+02_JPRB,0.17257E+02_JPRB,0.17708E+02_JPRB,0.18046E+02_JPRB /)  
+KB(:,46,14) = (/ &
+ & 0.15628E+02_JPRB,0.16427E+02_JPRB,0.17064E+02_JPRB,0.17560E+02_JPRB,0.17936E+02_JPRB /)  
+KB(:,47,14) = (/ &
+ & 0.15258E+02_JPRB,0.16126E+02_JPRB,0.16827E+02_JPRB,0.17377E+02_JPRB,0.17799E+02_JPRB /)  
+KB(:,48,14) = (/ &
+ & 0.14864E+02_JPRB,0.15798E+02_JPRB,0.16564E+02_JPRB,0.17174E+02_JPRB,0.17643E+02_JPRB /)  
+KB(:,49,14) = (/ &
+ & 0.14439E+02_JPRB,0.15441E+02_JPRB,0.16276E+02_JPRB,0.16946E+02_JPRB,0.17469E+02_JPRB /)  
+KB(:,50,14) = (/ &
+ & 0.14012E+02_JPRB,0.15084E+02_JPRB,0.15980E+02_JPRB,0.16711E+02_JPRB,0.17289E+02_JPRB /)  
+KB(:,51,14) = (/ &
+ & 0.13576E+02_JPRB,0.14715E+02_JPRB,0.15671E+02_JPRB,0.16463E+02_JPRB,0.17096E+02_JPRB /)  
+KB(:,52,14) = (/ &
+ & 0.13120E+02_JPRB,0.14320E+02_JPRB,0.15341E+02_JPRB,0.16194E+02_JPRB,0.16882E+02_JPRB /)  
+KB(:,53,14) = (/ &
+ & 0.12642E+02_JPRB,0.13899E+02_JPRB,0.14988E+02_JPRB,0.15902E+02_JPRB,0.16649E+02_JPRB /)  
+KB(:,54,14) = (/ &
+ & 0.12147E+02_JPRB,0.13496E+02_JPRB,0.14645E+02_JPRB,0.15614E+02_JPRB,0.16418E+02_JPRB /)  
+KB(:,55,14) = (/ &
+ & 0.11626E+02_JPRB,0.13090E+02_JPRB,0.14295E+02_JPRB,0.15320E+02_JPRB,0.16178E+02_JPRB /)  
+KB(:,56,14) = (/ &
+ & 0.11110E+02_JPRB,0.12619E+02_JPRB,0.13926E+02_JPRB,0.15012E+02_JPRB,0.15922E+02_JPRB /)  
+KB(:,57,14) = (/ &
+ & 0.10565E+02_JPRB,0.12110E+02_JPRB,0.13518E+02_JPRB,0.14685E+02_JPRB,0.15649E+02_JPRB /)  
+KB(:,58,14) = (/ &
+ & 0.10061E+02_JPRB,0.11633E+02_JPRB,0.13084E+02_JPRB,0.14356E+02_JPRB,0.15374E+02_JPRB /)  
+KB(:,59,14) = (/ &
+ & 0.98377E+01_JPRB,0.11416E+02_JPRB,0.12868E+02_JPRB,0.14184E+02_JPRB,0.15259E+02_JPRB /)  
+KB(:,13,15) = (/ &
+ & 0.41304E+02_JPRB,0.40483E+02_JPRB,0.39654E+02_JPRB,0.38829E+02_JPRB,0.38029E+02_JPRB /)  
+KB(:,14,15) = (/ &
+ & 0.44686E+02_JPRB,0.43762E+02_JPRB,0.42836E+02_JPRB,0.41888E+02_JPRB,0.41004E+02_JPRB /)  
+KB(:,15,15) = (/ &
+ & 0.48004E+02_JPRB,0.46942E+02_JPRB,0.45864E+02_JPRB,0.44813E+02_JPRB,0.43844E+02_JPRB /)  
+KB(:,16,15) = (/ &
+ & 0.51150E+02_JPRB,0.49938E+02_JPRB,0.48734E+02_JPRB,0.47591E+02_JPRB,0.46512E+02_JPRB /)  
+KB(:,17,15) = (/ &
+ & 0.54100E+02_JPRB,0.52729E+02_JPRB,0.51435E+02_JPRB,0.50180E+02_JPRB,0.48962E+02_JPRB /)  
+KB(:,18,15) = (/ &
+ & 0.56777E+02_JPRB,0.55306E+02_JPRB,0.53894E+02_JPRB,0.52525E+02_JPRB,0.51164E+02_JPRB /)  
+KB(:,19,15) = (/ &
+ & 0.59186E+02_JPRB,0.57635E+02_JPRB,0.56100E+02_JPRB,0.54603E+02_JPRB,0.53129E+02_JPRB /)  
+KB(:,20,15) = (/ &
+ & 0.61293E+02_JPRB,0.59648E+02_JPRB,0.58005E+02_JPRB,0.56388E+02_JPRB,0.54798E+02_JPRB /)  
+KB(:,21,15) = (/ &
+ & 0.63124E+02_JPRB,0.61368E+02_JPRB,0.59613E+02_JPRB,0.57895E+02_JPRB,0.56204E+02_JPRB /)  
+KB(:,22,15) = (/ &
+ & 0.64562E+02_JPRB,0.62695E+02_JPRB,0.60841E+02_JPRB,0.59040E+02_JPRB,0.57268E+02_JPRB /)  
+KB(:,23,15) = (/ &
+ & 0.65690E+02_JPRB,0.63742E+02_JPRB,0.61820E+02_JPRB,0.59937E+02_JPRB,0.58087E+02_JPRB /)  
+KB(:,24,15) = (/ &
+ & 0.66548E+02_JPRB,0.64535E+02_JPRB,0.62550E+02_JPRB,0.60597E+02_JPRB,0.58690E+02_JPRB /)  
+KB(:,25,15) = (/ &
+ & 0.67194E+02_JPRB,0.65115E+02_JPRB,0.63062E+02_JPRB,0.61050E+02_JPRB,0.59091E+02_JPRB /)  
+KB(:,26,15) = (/ &
+ & 0.67597E+02_JPRB,0.65466E+02_JPRB,0.63369E+02_JPRB,0.61312E+02_JPRB,0.59309E+02_JPRB /)  
+KB(:,27,15) = (/ &
+ & 0.67831E+02_JPRB,0.65647E+02_JPRB,0.63518E+02_JPRB,0.61430E+02_JPRB,0.59393E+02_JPRB /)  
+KB(:,28,15) = (/ &
+ & 0.67908E+02_JPRB,0.65687E+02_JPRB,0.63527E+02_JPRB,0.61427E+02_JPRB,0.59357E+02_JPRB /)  
+KB(:,29,15) = (/ &
+ & 0.67845E+02_JPRB,0.65603E+02_JPRB,0.63419E+02_JPRB,0.61304E+02_JPRB,0.59222E+02_JPRB /)  
+KB(:,30,15) = (/ &
+ & 0.67682E+02_JPRB,0.65422E+02_JPRB,0.63225E+02_JPRB,0.61094E+02_JPRB,0.59010E+02_JPRB /)  
+KB(:,31,15) = (/ &
+ & 0.67415E+02_JPRB,0.65154E+02_JPRB,0.62953E+02_JPRB,0.60816E+02_JPRB,0.58721E+02_JPRB /)  
+KB(:,32,15) = (/ &
+ & 0.67084E+02_JPRB,0.64817E+02_JPRB,0.62622E+02_JPRB,0.60477E+02_JPRB,0.58393E+02_JPRB /)  
+KB(:,33,15) = (/ &
+ & 0.66692E+02_JPRB,0.64428E+02_JPRB,0.62242E+02_JPRB,0.60092E+02_JPRB,0.58024E+02_JPRB /)  
+KB(:,34,15) = (/ &
+ & 0.66346E+02_JPRB,0.64077E+02_JPRB,0.61890E+02_JPRB,0.59745E+02_JPRB,0.57700E+02_JPRB /)  
+KB(:,35,15) = (/ &
+ & 0.66188E+02_JPRB,0.63920E+02_JPRB,0.61727E+02_JPRB,0.59582E+02_JPRB,0.57542E+02_JPRB /)  
+KB(:,36,15) = (/ &
+ & 0.66248E+02_JPRB,0.63978E+02_JPRB,0.61782E+02_JPRB,0.59625E+02_JPRB,0.57587E+02_JPRB /)  
+KB(:,37,15) = (/ &
+ & 0.66642E+02_JPRB,0.64358E+02_JPRB,0.62144E+02_JPRB,0.59978E+02_JPRB,0.57911E+02_JPRB /)  
+KB(:,38,15) = (/ &
+ & 0.67048E+02_JPRB,0.64747E+02_JPRB,0.62516E+02_JPRB,0.60340E+02_JPRB,0.58249E+02_JPRB /)  
+KB(:,39,15) = (/ &
+ & 0.67435E+02_JPRB,0.65122E+02_JPRB,0.62879E+02_JPRB,0.60689E+02_JPRB,0.58578E+02_JPRB /)  
+KB(:,40,15) = (/ &
+ & 0.68061E+02_JPRB,0.65724E+02_JPRB,0.63462E+02_JPRB,0.61257E+02_JPRB,0.59113E+02_JPRB /)  
+KB(:,41,15) = (/ &
+ & 0.68702E+02_JPRB,0.66354E+02_JPRB,0.64067E+02_JPRB,0.61847E+02_JPRB,0.59682E+02_JPRB /)  
+KB(:,42,15) = (/ &
+ & 0.69355E+02_JPRB,0.66983E+02_JPRB,0.64678E+02_JPRB,0.62437E+02_JPRB,0.60259E+02_JPRB /)  
+KB(:,43,15) = (/ &
+ & 0.70142E+02_JPRB,0.67744E+02_JPRB,0.65416E+02_JPRB,0.63159E+02_JPRB,0.60959E+02_JPRB /)  
+KB(:,44,15) = (/ &
+ & 0.70991E+02_JPRB,0.68567E+02_JPRB,0.66218E+02_JPRB,0.63930E+02_JPRB,0.61713E+02_JPRB /)  
+KB(:,45,15) = (/ &
+ & 0.71837E+02_JPRB,0.69401E+02_JPRB,0.67026E+02_JPRB,0.64713E+02_JPRB,0.62473E+02_JPRB /)  
+KB(:,46,15) = (/ &
+ & 0.72733E+02_JPRB,0.70287E+02_JPRB,0.67885E+02_JPRB,0.65552E+02_JPRB,0.63292E+02_JPRB /)  
+KB(:,47,15) = (/ &
+ & 0.73741E+02_JPRB,0.71285E+02_JPRB,0.68859E+02_JPRB,0.66493E+02_JPRB,0.64198E+02_JPRB /)  
+KB(:,48,15) = (/ &
+ & 0.74725E+02_JPRB,0.72283E+02_JPRB,0.69840E+02_JPRB,0.67442E+02_JPRB,0.65125E+02_JPRB /)  
+KB(:,49,15) = (/ &
+ & 0.75665E+02_JPRB,0.73280E+02_JPRB,0.70828E+02_JPRB,0.68404E+02_JPRB,0.66060E+02_JPRB /)  
+KB(:,50,15) = (/ &
+ & 0.76534E+02_JPRB,0.74218E+02_JPRB,0.71764E+02_JPRB,0.69323E+02_JPRB,0.66942E+02_JPRB /)  
+KB(:,51,15) = (/ &
+ & 0.77333E+02_JPRB,0.75093E+02_JPRB,0.72664E+02_JPRB,0.70214E+02_JPRB,0.67806E+02_JPRB /)  
+KB(:,52,15) = (/ &
+ & 0.78102E+02_JPRB,0.75935E+02_JPRB,0.73563E+02_JPRB,0.71111E+02_JPRB,0.68683E+02_JPRB /)  
+KB(:,53,15) = (/ &
+ & 0.78815E+02_JPRB,0.76761E+02_JPRB,0.74462E+02_JPRB,0.72010E+02_JPRB,0.69568E+02_JPRB /)  
+KB(:,54,15) = (/ &
+ & 0.79431E+02_JPRB,0.77488E+02_JPRB,0.75258E+02_JPRB,0.72840E+02_JPRB,0.70386E+02_JPRB /)  
+KB(:,55,15) = (/ &
+ & 0.79987E+02_JPRB,0.78156E+02_JPRB,0.75999E+02_JPRB,0.73628E+02_JPRB,0.71177E+02_JPRB /)  
+KB(:,56,15) = (/ &
+ & 0.80478E+02_JPRB,0.78776E+02_JPRB,0.76714E+02_JPRB,0.74415E+02_JPRB,0.71963E+02_JPRB /)  
+KB(:,57,15) = (/ &
+ & 0.80898E+02_JPRB,0.79365E+02_JPRB,0.77410E+02_JPRB,0.75181E+02_JPRB,0.72750E+02_JPRB /)  
+KB(:,58,15) = (/ &
+ & 0.81210E+02_JPRB,0.79894E+02_JPRB,0.78053E+02_JPRB,0.75880E+02_JPRB,0.73498E+02_JPRB /)  
+KB(:,59,15) = (/ &
+ & 0.81312E+02_JPRB,0.80086E+02_JPRB,0.78299E+02_JPRB,0.76156E+02_JPRB,0.73801E+02_JPRB /)  
+KB(:,13,16) = (/ &
+ & 0.81866E+02_JPRB,0.78569E+02_JPRB,0.75624E+02_JPRB,0.72854E+02_JPRB,0.70288E+02_JPRB /)  
+KB(:,14,16) = (/ &
+ & 0.93095E+02_JPRB,0.88986E+02_JPRB,0.85351E+02_JPRB,0.82051E+02_JPRB,0.78936E+02_JPRB /)  
+KB(:,15,16) = (/ &
+ & 0.10470E+03_JPRB,0.99738E+02_JPRB,0.95227E+02_JPRB,0.91249E+02_JPRB,0.87478E+02_JPRB /)  
+KB(:,16,16) = (/ &
+ & 0.11635E+03_JPRB,0.11037E+03_JPRB,0.10495E+03_JPRB,0.10011E+03_JPRB,0.95646E+02_JPRB /)  
+KB(:,17,16) = (/ &
+ & 0.12769E+03_JPRB,0.12074E+03_JPRB,0.11431E+03_JPRB,0.10856E+03_JPRB,0.10332E+03_JPRB /)  
+KB(:,18,16) = (/ &
+ & 0.13851E+03_JPRB,0.13038E+03_JPRB,0.12299E+03_JPRB,0.11635E+03_JPRB,0.11033E+03_JPRB /)  
+KB(:,19,16) = (/ &
+ & 0.14848E+03_JPRB,0.13912E+03_JPRB,0.13084E+03_JPRB,0.12336E+03_JPRB,0.11656E+03_JPRB /)  
+KB(:,20,16) = (/ &
+ & 0.15718E+03_JPRB,0.14679E+03_JPRB,0.13761E+03_JPRB,0.12934E+03_JPRB,0.12188E+03_JPRB /)  
+KB(:,21,16) = (/ &
+ & 0.16462E+03_JPRB,0.15341E+03_JPRB,0.14345E+03_JPRB,0.13443E+03_JPRB,0.12636E+03_JPRB /)  
+KB(:,22,16) = (/ &
+ & 0.17012E+03_JPRB,0.15822E+03_JPRB,0.14760E+03_JPRB,0.13801E+03_JPRB,0.12950E+03_JPRB /)  
+KB(:,23,16) = (/ &
+ & 0.17437E+03_JPRB,0.16184E+03_JPRB,0.15069E+03_JPRB,0.14069E+03_JPRB,0.13184E+03_JPRB /)  
+KB(:,24,16) = (/ &
+ & 0.17733E+03_JPRB,0.16436E+03_JPRB,0.15282E+03_JPRB,0.14251E+03_JPRB,0.13340E+03_JPRB /)  
+KB(:,25,16) = (/ &
+ & 0.17910E+03_JPRB,0.16583E+03_JPRB,0.15401E+03_JPRB,0.14354E+03_JPRB,0.13426E+03_JPRB /)  
+KB(:,26,16) = (/ &
+ & 0.17968E+03_JPRB,0.16627E+03_JPRB,0.15433E+03_JPRB,0.14378E+03_JPRB,0.13445E+03_JPRB /)  
+KB(:,27,16) = (/ &
+ & 0.17946E+03_JPRB,0.16602E+03_JPRB,0.15406E+03_JPRB,0.14351E+03_JPRB,0.13417E+03_JPRB /)  
+KB(:,28,16) = (/ &
+ & 0.17860E+03_JPRB,0.16522E+03_JPRB,0.15334E+03_JPRB,0.14282E+03_JPRB,0.13355E+03_JPRB /)  
+KB(:,29,16) = (/ &
+ & 0.17717E+03_JPRB,0.16389E+03_JPRB,0.15216E+03_JPRB,0.14174E+03_JPRB,0.13260E+03_JPRB /)  
+KB(:,30,16) = (/ &
+ & 0.17533E+03_JPRB,0.16225E+03_JPRB,0.15066E+03_JPRB,0.14043E+03_JPRB,0.13143E+03_JPRB /)  
+KB(:,31,16) = (/ &
+ & 0.17313E+03_JPRB,0.16029E+03_JPRB,0.14890E+03_JPRB,0.13886E+03_JPRB,0.13004E+03_JPRB /)  
+KB(:,32,16) = (/ &
+ & 0.17069E+03_JPRB,0.15811E+03_JPRB,0.14694E+03_JPRB,0.13716E+03_JPRB,0.12847E+03_JPRB /)  
+KB(:,33,16) = (/ &
+ & 0.16804E+03_JPRB,0.15577E+03_JPRB,0.14487E+03_JPRB,0.13533E+03_JPRB,0.12682E+03_JPRB /)  
+KB(:,34,16) = (/ &
+ & 0.16580E+03_JPRB,0.15376E+03_JPRB,0.14309E+03_JPRB,0.13376E+03_JPRB,0.12539E+03_JPRB /)  
+KB(:,35,16) = (/ &
+ & 0.16467E+03_JPRB,0.15275E+03_JPRB,0.14221E+03_JPRB,0.13298E+03_JPRB,0.12468E+03_JPRB /)  
+KB(:,36,16) = (/ &
+ & 0.16486E+03_JPRB,0.15289E+03_JPRB,0.14233E+03_JPRB,0.13308E+03_JPRB,0.12477E+03_JPRB /)  
+KB(:,37,16) = (/ &
+ & 0.16688E+03_JPRB,0.15469E+03_JPRB,0.14392E+03_JPRB,0.13446E+03_JPRB,0.12602E+03_JPRB /)  
+KB(:,38,16) = (/ &
+ & 0.16902E+03_JPRB,0.15657E+03_JPRB,0.14555E+03_JPRB,0.13592E+03_JPRB,0.12732E+03_JPRB /)  
+KB(:,39,16) = (/ &
+ & 0.17110E+03_JPRB,0.15844E+03_JPRB,0.14718E+03_JPRB,0.13734E+03_JPRB,0.12861E+03_JPRB /)  
+KB(:,40,16) = (/ &
+ & 0.17468E+03_JPRB,0.16155E+03_JPRB,0.14992E+03_JPRB,0.13976E+03_JPRB,0.13077E+03_JPRB /)  
+KB(:,41,16) = (/ &
+ & 0.17848E+03_JPRB,0.16489E+03_JPRB,0.15289E+03_JPRB,0.14236E+03_JPRB,0.13307E+03_JPRB /)  
+KB(:,42,16) = (/ &
+ & 0.18237E+03_JPRB,0.16833E+03_JPRB,0.15592E+03_JPRB,0.14501E+03_JPRB,0.13541E+03_JPRB /)  
+KB(:,43,16) = (/ &
+ & 0.18726E+03_JPRB,0.17263E+03_JPRB,0.15975E+03_JPRB,0.14834E+03_JPRB,0.13835E+03_JPRB /)  
+KB(:,44,16) = (/ &
+ & 0.19275E+03_JPRB,0.17748E+03_JPRB,0.16403E+03_JPRB,0.15210E+03_JPRB,0.14166E+03_JPRB /)  
+KB(:,45,16) = (/ &
+ & 0.19851E+03_JPRB,0.18250E+03_JPRB,0.16844E+03_JPRB,0.15602E+03_JPRB,0.14507E+03_JPRB /)  
+KB(:,46,16) = (/ &
+ & 0.20490E+03_JPRB,0.18806E+03_JPRB,0.17333E+03_JPRB,0.16038E+03_JPRB,0.14888E+03_JPRB /)  
+KB(:,47,16) = (/ &
+ & 0.21238E+03_JPRB,0.19462E+03_JPRB,0.17910E+03_JPRB,0.16545E+03_JPRB,0.15337E+03_JPRB /)  
+KB(:,48,16) = (/ &
+ & 0.22029E+03_JPRB,0.20156E+03_JPRB,0.18514E+03_JPRB,0.17074E+03_JPRB,0.15806E+03_JPRB /)  
+KB(:,49,16) = (/ &
+ & 0.22889E+03_JPRB,0.20882E+03_JPRB,0.19150E+03_JPRB,0.17637E+03_JPRB,0.16304E+03_JPRB /)  
+KB(:,50,16) = (/ &
+ & 0.23745E+03_JPRB,0.21596E+03_JPRB,0.19782E+03_JPRB,0.18187E+03_JPRB,0.16787E+03_JPRB /)  
+KB(:,51,16) = (/ &
+ & 0.24629E+03_JPRB,0.22340E+03_JPRB,0.20422E+03_JPRB,0.18747E+03_JPRB,0.17280E+03_JPRB /)  
+KB(:,52,16) = (/ &
+ & 0.25553E+03_JPRB,0.23136E+03_JPRB,0.21090E+03_JPRB,0.19335E+03_JPRB,0.17798E+03_JPRB /)  
+KB(:,53,16) = (/ &
+ & 0.26553E+03_JPRB,0.23980E+03_JPRB,0.21793E+03_JPRB,0.19951E+03_JPRB,0.18336E+03_JPRB /)  
+KB(:,54,16) = (/ &
+ & 0.27524E+03_JPRB,0.24799E+03_JPRB,0.22485E+03_JPRB,0.20544E+03_JPRB,0.18854E+03_JPRB /)  
+KB(:,55,16) = (/ &
+ & 0.28502E+03_JPRB,0.25615E+03_JPRB,0.23188E+03_JPRB,0.21133E+03_JPRB,0.19372E+03_JPRB /)  
+KB(:,56,16) = (/ &
+ & 0.29529E+03_JPRB,0.26491E+03_JPRB,0.23927E+03_JPRB,0.21749E+03_JPRB,0.19913E+03_JPRB /)  
+KB(:,57,16) = (/ &
+ & 0.30624E+03_JPRB,0.27413E+03_JPRB,0.24703E+03_JPRB,0.22404E+03_JPRB,0.20478E+03_JPRB /)  
+KB(:,58,16) = (/ &
+ & 0.31727E+03_JPRB,0.28329E+03_JPRB,0.25471E+03_JPRB,0.23065E+03_JPRB,0.21031E+03_JPRB /)  
+KB(:,59,16) = (/ &
+ & 0.32188E+03_JPRB,0.28710E+03_JPRB,0.25796E+03_JPRB,0.23341E+03_JPRB,0.21261E+03_JPRB /)  
+
+!     -----------------------------------------------------------------
+
+FORREF(:, 1) = (/ 0.214504E-06_JPRB, 0.460418E-06_JPRB, 0.357608E-05_JPRB, 0.192037E-05_JPRB /)
+FORREF(:, 2) = (/ 0.142576E-05_JPRB, 0.364463E-05_JPRB, 0.117033E-04_JPRB, 0.112085E-04_JPRB /)
+FORREF(:, 3) = (/ 0.101536E-04_JPRB, 0.124096E-04_JPRB, 0.509190E-04_JPRB, 0.565282E-04_JPRB /)
+FORREF(:, 4) = (/ 0.143394E-03_JPRB, 0.154700E-03_JPRB, 0.466498E-03_JPRB, 0.918829E-03_JPRB /)
+FORREF(:, 5) = (/ 0.251631E-02_JPRB, 0.241729E-02_JPRB, 0.240057E-02_JPRB, 0.350408E-02_JPRB /)
+FORREF(:, 6) = (/ 0.410309E-02_JPRB, 0.416851E-02_JPRB, 0.390925E-02_JPRB, 0.383694E-02_JPRB /)
+FORREF(:, 7) = (/ 0.445387E-02_JPRB, 0.448657E-02_JPRB, 0.432310E-02_JPRB, 0.370739E-02_JPRB /)
+FORREF(:, 8) = (/ 0.458150E-02_JPRB, 0.460014E-02_JPRB, 0.450245E-02_JPRB, 0.336718E-02_JPRB /)
+FORREF(:, 9) = (/ 0.465423E-02_JPRB, 0.465595E-02_JPRB, 0.467006E-02_JPRB, 0.368061E-02_JPRB /)
+FORREF(:,10) = (/ 0.493955E-02_JPRB, 0.490181E-02_JPRB, 0.481941E-02_JPRB, 0.367577E-02_JPRB /)
+FORREF(:,11) = (/ 0.511876E-02_JPRB, 0.490981E-02_JPRB, 0.493303E-02_JPRB, 0.357423E-02_JPRB /)
+FORREF(:,12) = (/ 0.509845E-02_JPRB, 0.511556E-02_JPRB, 0.504031E-02_JPRB, 0.355915E-02_JPRB /)
+FORREF(:,13) = (/ 0.523822E-02_JPRB, 0.530473E-02_JPRB, 0.523811E-02_JPRB, 0.414259E-02_JPRB /)
+FORREF(:,14) = (/ 0.551133E-02_JPRB, 0.535831E-02_JPRB, 0.546702E-02_JPRB, 0.473875E-02_JPRB /)
+FORREF(:,15) = (/ 0.609781E-02_JPRB, 0.589859E-02_JPRB, 0.561187E-02_JPRB, 0.528981E-02_JPRB /)
+FORREF(:,16) = (/ 0.644958E-02_JPRB, 0.631718E-02_JPRB, 0.625201E-02_JPRB, 0.600448E-02_JPRB /)
+
+!     -----------------------------------------------------------------
+!     The array SELFREF contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+SELFREF(:, 1) = (/ &
+ & 0.217058E-03_JPRB, 0.176391E-03_JPRB, 0.143342E-03_JPRB, 0.116486E-03_JPRB, 0.946614E-04_JPRB, &
+ & 0.769257E-04_JPRB, 0.625131E-04_JPRB, 0.508007E-04_JPRB, 0.412828E-04_JPRB, 0.335481E-04_JPRB /)  
+SELFREF(:, 2) = (/ &
+ & 0.598055E-03_JPRB, 0.484805E-03_JPRB, 0.393000E-03_JPRB, 0.318580E-03_JPRB, 0.258252E-03_JPRB, &
+ & 0.209348E-03_JPRB, 0.169705E-03_JPRB, 0.137569E-03_JPRB, 0.111518E-03_JPRB, 0.904008E-04_JPRB /)  
+SELFREF(:, 3) = (/ &
+ & 0.102691E-02_JPRB, 0.930281E-03_JPRB, 0.842740E-03_JPRB, 0.763437E-03_JPRB, 0.691596E-03_JPRB, &
+ & 0.626516E-03_JPRB, 0.567560E-03_JPRB, 0.514152E-03_JPRB, 0.465769E-03_JPRB, 0.421940E-03_JPRB /)  
+SELFREF(:, 4) = (/ &
+ & 0.388569E-02_JPRB, 0.365098E-02_JPRB, 0.343045E-02_JPRB, 0.322324E-02_JPRB, 0.302854E-02_JPRB, &
+ & 0.284561E-02_JPRB, 0.267372E-02_JPRB, 0.251222E-02_JPRB, 0.236047E-02_JPRB, 0.221789E-02_JPRB /)  
+SELFREF(:, 5) = (/ &
+ & 0.349845E-01_JPRB, 0.326678E-01_JPRB, 0.305045E-01_JPRB, 0.284845E-01_JPRB, 0.265982E-01_JPRB, &
+ & 0.248369E-01_JPRB, 0.231921E-01_JPRB, 0.216563E-01_JPRB, 0.202222E-01_JPRB, 0.188831E-01_JPRB /)  
+SELFREF(:, 6) = (/ &
+ & 0.613705E-01_JPRB, 0.562676E-01_JPRB, 0.515890E-01_JPRB, 0.472994E-01_JPRB, 0.433665E-01_JPRB, &
+ & 0.397606E-01_JPRB, 0.364545E-01_JPRB, 0.334233E-01_JPRB, 0.306442E-01_JPRB, 0.280961E-01_JPRB /)  
+SELFREF(:, 7) = (/ &
+ & 0.656981E-01_JPRB, 0.602660E-01_JPRB, 0.552830E-01_JPRB, 0.507120E-01_JPRB, 0.465190E-01_JPRB, &
+ & 0.426726E-01_JPRB, 0.391443E-01_JPRB, 0.359077E-01_JPRB, 0.329387E-01_JPRB, 0.302153E-01_JPRB /)  
+SELFREF(:, 8) = (/ &
+ & 0.671782E-01_JPRB, 0.616461E-01_JPRB, 0.565695E-01_JPRB, 0.519110E-01_JPRB, 0.476361E-01_JPRB, &
+ & 0.437132E-01_JPRB, 0.401134E-01_JPRB, 0.368100E-01_JPRB, 0.337787E-01_JPRB, 0.309970E-01_JPRB /)  
+SELFREF(:, 9) = (/ &
+ & 0.675902E-01_JPRB, 0.620888E-01_JPRB, 0.570351E-01_JPRB, 0.523928E-01_JPRB, 0.481284E-01_JPRB, &
+ & 0.442110E-01_JPRB, 0.406125E-01_JPRB, 0.373069E-01_JPRB, 0.342703E-01_JPRB, 0.314809E-01_JPRB /)  
+SELFREF(:,10) = (/ &
+ & 0.708308E-01_JPRB, 0.651419E-01_JPRB, 0.599099E-01_JPRB, 0.550981E-01_JPRB, 0.506728E-01_JPRB, &
+ & 0.466030E-01_JPRB, 0.428600E-01_JPRB, 0.394176E-01_JPRB, 0.362517E-01_JPRB, 0.333401E-01_JPRB /)  
+SELFREF(:,11) = (/ &
+ & 0.698445E-01_JPRB, 0.646584E-01_JPRB, 0.598573E-01_JPRB, 0.554128E-01_JPRB, 0.512982E-01_JPRB, &
+ & 0.474892E-01_JPRB, 0.439630E-01_JPRB, 0.406986E-01_JPRB, 0.376766E-01_JPRB, 0.348791E-01_JPRB /)  
+SELFREF(:,12) = (/ &
+ & 0.743921E-01_JPRB, 0.682057E-01_JPRB, 0.625337E-01_JPRB, 0.573334E-01_JPRB, 0.525655E-01_JPRB, &
+ & 0.481942E-01_JPRB, 0.441863E-01_JPRB, 0.405118E-01_JPRB, 0.371428E-01_JPRB, 0.340540E-01_JPRB /)  
+SELFREF(:,13) = (/ &
+ & 0.775758E-01_JPRB, 0.709818E-01_JPRB, 0.649484E-01_JPRB, 0.594277E-01_JPRB, 0.543764E-01_JPRB, &
+ & 0.497544E-01_JPRB, 0.455253E-01_JPRB, 0.416556E-01_JPRB, 0.381149E-01_JPRB, 0.348751E-01_JPRB /)  
+SELFREF(:,14) = (/ &
+ & 0.776545E-01_JPRB, 0.714761E-01_JPRB, 0.657894E-01_JPRB, 0.605550E-01_JPRB, 0.557372E-01_JPRB, &
+ & 0.513026E-01_JPRB, 0.472209E-01_JPRB, 0.434639E-01_JPRB, 0.400058E-01_JPRB, 0.368229E-01_JPRB /)  
+SELFREF(:,15) = (/ &
+ & 0.855675E-01_JPRB, 0.787337E-01_JPRB, 0.724456E-01_JPRB, 0.666598E-01_JPRB, 0.613360E-01_JPRB, &
+ & 0.564374E-01_JPRB, 0.519301E-01_JPRB, 0.477827E-01_JPRB, 0.439666E-01_JPRB, 0.404552E-01_JPRB /)  
+SELFREF(:,16) = (/ &
+ & 0.934781E-01_JPRB, 0.855190E-01_JPRB, 0.782376E-01_JPRB, 0.715761E-01_JPRB, 0.654819E-01_JPRB, &
+ & 0.599065E-01_JPRB, 0.548058E-01_JPRB, 0.501394E-01_JPRB, 0.458704E-01_JPRB, 0.419648E-01_JPRB /)  
+     
+!     -----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB20',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_KGB20
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb20.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb20.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb20.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_KGB20
+END SUBROUTINE SRTM_KGB20
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb21.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb21.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb21.F90	(revision 1989)
@@ -0,0 +1,11297 @@
+!OCL SCALAR
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif 
+!pgi$r opt=0
+SUBROUTINE SRTM_KGB21
+
+!     Originally by J.Delamere, Atmospheric & Environmental Research.
+!     Revision: 2.4
+!     BAND 21:  6150-7700 cm-1 (low - H2O,CO2; high - H2O,CO2)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     R. Elkhatib 12-10-2005 Split for faster and more robust compilation.
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOESRTA21, ONLY : KA, KB, SELFREF, FORREF, SFLUXREF, RAYL, STRRAT &
+ & , LAYREFFR  
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+
+! KURUCZ
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21',0,ZHOOK_HANDLE)
+
+CALL PART1
+CALL PART2
+CALL PART3
+CALL PART4
+CALL PART5
+CALL PART6
+CALL PART7
+CALL PART8
+CALL PART9
+CALL PART10
+CALL PART11
+CALL PART12
+CALL PART13
+CALL PART14
+CALL PART15
+CALL PART16
+CALL PART17
+CALL PART18
+CALL PART19
+CALL PART20
+CALL PART21
+CALL PART22
+CALL PART23
+CALL PART24
+CALL PART25
+CALL PART26
+CALL PART27
+CALL PART28
+CALL PART29
+CALL PART30
+CALL PART31
+CALL PART32
+CALL PART33
+CALL PART34
+CALL PART35
+CALL PART36
+CALL PART37
+CALL PART38
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21',1,ZHOOK_HANDLE)
+
+!     -----------------------------------------------------------------
+
+CONTAINS
+
+
+SUBROUTINE PART1
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART1',0,ZHOOK_HANDLE)
+
+
+SFLUXREF(:, 1) = (/ &
+ & 16.1643_JPRB , 15.5806_JPRB, 14.7254_JPRB    , 13.5541_JPRB    , &
+ & 11.9519_JPRB ,10.44410_JPRB, 8.37884_JPRB    , 6.26384_JPRB    , &
+ & 4.28435_JPRB ,0.465228_JPRB, 0.385095_JPRB   ,0.304226_JPRB    , &
+ & 0.222479_JPRB,0.143286_JPRB, 5.58046E-02_JPRB, 7.84856E-03_JPRB /)  
+SFLUXREF(:, 2) = (/ &
+ & 15.6451_JPRB , 15.3170_JPRB, 14.6987_JPRB    , 13.7350_JPRB    , &
+ & 12.2267_JPRB ,10.51646_JPRB, 8.47150_JPRB    , 6.38873_JPRB    , &
+ & 4.33536_JPRB ,0.470610_JPRB,0.389426_JPRB    ,0.306461_JPRB    , &
+ & 0.223537_JPRB,0.143273_JPRB, 5.58179E-02_JPRB, 7.84856E-03_JPRB /)  
+SFLUXREF(:, 3) = (/ &
+ & 15.6092_JPRB , 15.3293_JPRB, 14.6881_JPRB    , 13.6693_JPRB    , &
+ & 12.2342_JPRB ,10.52010_JPRB, 8.49442_JPRB    , 6.42138_JPRB    , &
+ & 4.35865_JPRB ,0.473349_JPRB,0.391349_JPRB    ,0.308861_JPRB    , &
+ & 0.224666_JPRB,0.144799_JPRB, 5.58176E-02_JPRB, 7.84881E-03_JPRB /)  
+SFLUXREF(:, 4) = (/ &
+ & 15.5786_JPRB , 15.3422_JPRB, 14.6894_JPRB    , 13.6040_JPRB    , &
+ & 12.2567_JPRB ,10.49400_JPRB, 8.53521_JPRB    , 6.44427_JPRB    , &
+ & 4.37208_JPRB ,0.475709_JPRB,0.392956_JPRB    ,0.309737_JPRB    , &
+ & 0.226274_JPRB,0.146483_JPRB, 5.59325E-02_JPRB, 7.84881E-03_JPRB /)  
+SFLUXREF(:, 5) = (/ &
+ & 15.5380_JPRB , 15.3826_JPRB, 14.6575_JPRB    , 13.5722_JPRB    , &
+ & 12.2646_JPRB ,10.47672_JPRB, 8.57158_JPRB    , 6.46343_JPRB    , &
+ & 4.38259_JPRB ,0.477647_JPRB,0.393982_JPRB    ,0.310686_JPRB    , &
+ & 0.227620_JPRB,0.148376_JPRB, 5.60398E-02_JPRB, 7.83925E-03_JPRB /)  
+SFLUXREF(:, 6) = (/ &
+ & 15.5124_JPRB , 15.3986_JPRB, 14.6240_JPRB    , 13.5535_JPRB    , &
+ & 12.2468_JPRB ,10.48891_JPRB, 8.60434_JPRB    , 6.47985_JPRB    , &
+ & 4.39448_JPRB ,0.478267_JPRB,0.395618_JPRB    ,0.311043_JPRB    , &
+ & 0.230927_JPRB,0.148774_JPRB, 5.61189E-02_JPRB, 7.83925E-03_JPRB /)  
+SFLUXREF(:, 7) = (/ &
+ & 15.4910_JPRB , 15.4028_JPRB, 14.5772_JPRB    , 13.5507_JPRB    , &
+ & 12.2122_JPRB ,10.52735_JPRB, 8.62650_JPRB    , 6.49644_JPRB    , &
+ & 4.41173_JPRB ,0.478627_JPRB,0.396433_JPRB    ,0.314199_JPRB    ,  &
+ & 0.233125_JPRB,0.149052_JPRB, 5.62309E-02_JPRB, 7.83925E-03_JPRB /)  
+SFLUXREF(:, 8) = (/ &
+ & 15.4562_JPRB , 15.3928_JPRB, 14.5510_JPRB    , 13.5122_JPRB    , &
+ & 12.1890_JPRB , 10.5826_JPRB, 8.65842_JPRB    , 6.51558_JPRB    , &
+ & 4.42747_JPRB ,0.480669_JPRB,0.400143_JPRB    ,0.318144_JPRB    , &
+ & 0.233937_JPRB,0.149119_JPRB, 5.62309E-02_JPRB, 7.83925E-03_JPRB /)  
+SFLUXREF(:, 9) = (/ &
+ & 15.0069_JPRB , 15.1479_JPRB, 14.7802_JPRB    , 13.6085_JPRB    , &
+ & 12.2793_JPRB , 10.6929_JPRB, 8.72723_JPRB    , 6.57114_JPRB    , &
+ & 4.46330_JPRB ,0.486724_JPRB,0.401446_JPRB    ,0.318879_JPRB    , &
+ & 0.233959_JPRB,0.149119_JPRB, 5.62309E-02_JPRB, 7.83925E-03_JPRB /)  
+
+!     Rayleigh extinction coefficient at v = 6925 cm-1.
+RAYL = 9.41E-09_JPRB
+
+STRRAT = 0.0045321_JPRB
+
+LAYREFFR = 8
+
+!     ------------------------------------------------------------------
+
+!     The array KA contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels> ~100mb, temperatures, and binary
+!     species parameters (see taumol.f for definition).  The first 
+!     index in the array, JS, runs from 1 to 9, and corresponds to 
+!     different values of the binary species parameter.  For instance, 
+!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, 
+!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index
+!     in the array, JT, which runs from 1 to 5, corresponds to different
+!     temperatures.  More specifically, JT = 3 means that the data are for
+!     the reference temperature TREF for this  pressure level, JT = 2 refers
+!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the JPth reference pressure level (see taumol.f for these levels
+!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates
+!     which g-interval the absorption coefficients are for.
+!     -----------------------------------------------------------------
+
+KA(:, 1, 1, 1) = (/ &
+ & 0.31482E-07_JPRB,0.64010E-05_JPRB,0.95017E-05_JPRB,0.11735E-04_JPRB,0.13561E-04_JPRB, &
+ & 0.15077E-04_JPRB,0.16121E-04_JPRB,0.16138E-04_JPRB,0.41687E-06_JPRB /)  
+KA(:, 2, 1, 1) = (/ &
+ & 0.29791E-07_JPRB,0.68206E-05_JPRB,0.10260E-04_JPRB,0.12764E-04_JPRB,0.14880E-04_JPRB, &
+ & 0.16665E-04_JPRB,0.17944E-04_JPRB,0.18170E-04_JPRB,0.44246E-06_JPRB /)  
+KA(:, 3, 1, 1) = (/ &
+ & 0.28272E-07_JPRB,0.72448E-05_JPRB,0.11083E-04_JPRB,0.13866E-04_JPRB,0.16256E-04_JPRB, &
+ & 0.18323E-04_JPRB,0.19886E-04_JPRB,0.20229E-04_JPRB,0.47472E-06_JPRB /)  
+KA(:, 4, 1, 1) = (/ &
+ & 0.26900E-07_JPRB,0.76935E-05_JPRB,0.11934E-04_JPRB,0.15015E-04_JPRB,0.17657E-04_JPRB, &
+ & 0.20038E-04_JPRB,0.21902E-04_JPRB,0.22361E-04_JPRB,0.50770E-06_JPRB /)  
+KA(:, 5, 1, 1) = (/ &
+ & 0.25656E-07_JPRB,0.81661E-05_JPRB,0.12769E-04_JPRB,0.16181E-04_JPRB,0.19127E-04_JPRB, &
+ & 0.21755E-04_JPRB,0.23963E-04_JPRB,0.24421E-04_JPRB,0.54205E-06_JPRB /)  
+KA(:, 1, 2, 1) = (/ &
+ & 0.26396E-07_JPRB,0.52225E-05_JPRB,0.77221E-05_JPRB,0.95150E-05_JPRB,0.11004E-04_JPRB, &
+ & 0.12195E-04_JPRB,0.13037E-04_JPRB,0.12985E-04_JPRB,0.32097E-06_JPRB /)  
+KA(:, 2, 2, 1) = (/ &
+ & 0.24945E-07_JPRB,0.55737E-05_JPRB,0.83612E-05_JPRB,0.10375E-04_JPRB,0.12116E-04_JPRB, &
+ & 0.13569E-04_JPRB,0.14561E-04_JPRB,0.14711E-04_JPRB,0.34579E-06_JPRB /)  
+KA(:, 3, 2, 1) = (/ &
+ & 0.23646E-07_JPRB,0.59333E-05_JPRB,0.90531E-05_JPRB,0.11301E-04_JPRB,0.13247E-04_JPRB, &
+ & 0.14956E-04_JPRB,0.16193E-04_JPRB,0.16396E-04_JPRB,0.37200E-06_JPRB /)  
+KA(:, 4, 2, 1) = (/ &
+ & 0.22476E-07_JPRB,0.63144E-05_JPRB,0.97732E-05_JPRB,0.12274E-04_JPRB,0.14436E-04_JPRB, &
+ & 0.16377E-04_JPRB,0.17879E-04_JPRB,0.18223E-04_JPRB,0.40051E-06_JPRB /)  
+KA(:, 5, 2, 1) = (/ &
+ & 0.21415E-07_JPRB,0.67133E-05_JPRB,0.10471E-04_JPRB,0.13264E-04_JPRB,0.15681E-04_JPRB, &
+ & 0.17843E-04_JPRB,0.19627E-04_JPRB,0.19954E-04_JPRB,0.42929E-06_JPRB /)  
+KA(:, 1, 3, 1) = (/ &
+ & 0.22397E-07_JPRB,0.41930E-05_JPRB,0.61559E-05_JPRB,0.75544E-05_JPRB,0.86902E-05_JPRB, &
+ & 0.95896E-05_JPRB,0.10269E-04_JPRB,0.10114E-04_JPRB,0.24148E-06_JPRB /)  
+KA(:, 2, 3, 1) = (/ &
+ & 0.21124E-07_JPRB,0.44837E-05_JPRB,0.66786E-05_JPRB,0.82475E-05_JPRB,0.96353E-05_JPRB, &
+ & 0.10742E-04_JPRB,0.11469E-04_JPRB,0.11556E-04_JPRB,0.26304E-06_JPRB /)  
+KA(:, 3, 3, 1) = (/ &
+ & 0.19988E-07_JPRB,0.47839E-05_JPRB,0.72499E-05_JPRB,0.90229E-05_JPRB,0.10560E-04_JPRB, &
+ & 0.11900E-04_JPRB,0.12859E-04_JPRB,0.12935E-04_JPRB,0.28618E-06_JPRB /)  
+KA(:, 4, 3, 1) = (/ &
+ & 0.18968E-07_JPRB,0.51040E-05_JPRB,0.78586E-05_JPRB,0.98308E-05_JPRB,0.11551E-04_JPRB, &
+ & 0.13094E-04_JPRB,0.14240E-04_JPRB,0.14455E-04_JPRB,0.30983E-06_JPRB /)  
+KA(:, 5, 3, 1) = (/ &
+ & 0.18047E-07_JPRB,0.54366E-05_JPRB,0.84462E-05_JPRB,0.10670E-04_JPRB,0.12585E-04_JPRB, &
+ & 0.14313E-04_JPRB,0.15695E-04_JPRB,0.15934E-04_JPRB,0.33255E-06_JPRB /)  
+KA(:, 1, 4, 1) = (/ &
+ & 0.19080E-07_JPRB,0.33409E-05_JPRB,0.48738E-05_JPRB,0.59354E-05_JPRB,0.67877E-05_JPRB, &
+ & 0.74900E-05_JPRB,0.79142E-05_JPRB,0.77200E-05_JPRB,0.18466E-06_JPRB /)  
+KA(:, 2, 4, 1) = (/ &
+ & 0.17954E-07_JPRB,0.35910E-05_JPRB,0.52960E-05_JPRB,0.65037E-05_JPRB,0.75744E-05_JPRB, &
+ & 0.84082E-05_JPRB,0.89422E-05_JPRB,0.89302E-05_JPRB,0.20292E-06_JPRB /)  
+KA(:, 3, 4, 1) = (/ &
+ & 0.16954E-07_JPRB,0.38317E-05_JPRB,0.57536E-05_JPRB,0.71322E-05_JPRB,0.83424E-05_JPRB, &
+ & 0.93788E-05_JPRB,0.10063E-04_JPRB,0.10098E-04_JPRB,0.22173E-06_JPRB /)  
+KA(:, 4, 4, 1) = (/ &
+ & 0.16059E-07_JPRB,0.40932E-05_JPRB,0.62586E-05_JPRB,0.77961E-05_JPRB,0.91475E-05_JPRB, &
+ & 0.10347E-04_JPRB,0.11222E-04_JPRB,0.11312E-04_JPRB,0.24005E-06_JPRB /)  
+KA(:, 5, 4, 1) = (/ &
+ & 0.15254E-07_JPRB,0.43678E-05_JPRB,0.67525E-05_JPRB,0.84873E-05_JPRB,0.99995E-05_JPRB, &
+ & 0.11353E-04_JPRB,0.12416E-04_JPRB,0.12586E-04_JPRB,0.25939E-06_JPRB /)  
+KA(:, 1, 5, 1) = (/ &
+ & 0.16261E-07_JPRB,0.26540E-05_JPRB,0.38541E-05_JPRB,0.46443E-05_JPRB,0.52961E-05_JPRB, &
+ & 0.58054E-05_JPRB,0.60718E-05_JPRB,0.58540E-05_JPRB,0.14274E-06_JPRB /)  
+KA(:, 2, 5, 1) = (/ &
+ & 0.15265E-07_JPRB,0.28598E-05_JPRB,0.41831E-05_JPRB,0.51221E-05_JPRB,0.59110E-05_JPRB, &
+ & 0.65207E-05_JPRB,0.69761E-05_JPRB,0.68685E-05_JPRB,0.15725E-06_JPRB /)  
+KA(:, 3, 5, 1) = (/ &
+ & 0.14384E-07_JPRB,0.30623E-05_JPRB,0.45528E-05_JPRB,0.56124E-05_JPRB,0.65650E-05_JPRB, &
+ & 0.73436E-05_JPRB,0.78208E-05_JPRB,0.78523E-05_JPRB,0.17271E-06_JPRB /)  
+KA(:, 4, 5, 1) = (/ &
+ & 0.13599E-07_JPRB,0.32720E-05_JPRB,0.49622E-05_JPRB,0.61605E-05_JPRB,0.72244E-05_JPRB, &
+ & 0.81582E-05_JPRB,0.87971E-05_JPRB,0.88096E-05_JPRB,0.18766E-06_JPRB /)  
+KA(:, 5, 5, 1) = (/ &
+ & 0.12895E-07_JPRB,0.34985E-05_JPRB,0.53833E-05_JPRB,0.67240E-05_JPRB,0.79091E-05_JPRB, &
+ & 0.89688E-05_JPRB,0.97698E-05_JPRB,0.98639E-05_JPRB,0.20375E-06_JPRB /)  
+KA(:, 1, 6, 1) = (/ &
+ & 0.13898E-07_JPRB,0.20981E-05_JPRB,0.30384E-05_JPRB,0.36041E-05_JPRB,0.41040E-05_JPRB, &
+ & 0.44334E-05_JPRB,0.45761E-05_JPRB,0.43950E-05_JPRB,0.11025E-06_JPRB /)  
+KA(:, 2, 6, 1) = (/ &
+ & 0.13011E-07_JPRB,0.22645E-05_JPRB,0.32890E-05_JPRB,0.40042E-05_JPRB,0.45851E-05_JPRB, &
+ & 0.50473E-05_JPRB,0.53250E-05_JPRB,0.51854E-05_JPRB,0.12227E-06_JPRB /)  
+KA(:, 3, 6, 1) = (/ &
+ & 0.12231E-07_JPRB,0.24322E-05_JPRB,0.35842E-05_JPRB,0.43915E-05_JPRB,0.51259E-05_JPRB, &
+ & 0.56903E-05_JPRB,0.60343E-05_JPRB,0.60166E-05_JPRB,0.13506E-06_JPRB /)  
+KA(:, 4, 6, 1) = (/ &
+ & 0.11539E-07_JPRB,0.26032E-05_JPRB,0.39107E-05_JPRB,0.48321E-05_JPRB,0.56525E-05_JPRB, &
+ & 0.63625E-05_JPRB,0.68078E-05_JPRB,0.68024E-05_JPRB,0.14719E-06_JPRB /)  
+KA(:, 5, 6, 1) = (/ &
+ & 0.10921E-07_JPRB,0.27866E-05_JPRB,0.42578E-05_JPRB,0.52919E-05_JPRB,0.62181E-05_JPRB, &
+ & 0.70362E-05_JPRB,0.76140E-05_JPRB,0.76519E-05_JPRB,0.16052E-06_JPRB /)  
+KA(:, 1, 7, 1) = (/ &
+ & 0.11886E-07_JPRB,0.16563E-05_JPRB,0.23860E-05_JPRB,0.28276E-05_JPRB,0.31449E-05_JPRB, &
+ & 0.33771E-05_JPRB,0.34305E-05_JPRB,0.32824E-05_JPRB,0.84943E-07_JPRB /)  
+KA(:, 2, 7, 1) = (/ &
+ & 0.11096E-07_JPRB,0.17874E-05_JPRB,0.25861E-05_JPRB,0.31100E-05_JPRB,0.35425E-05_JPRB, &
+ & 0.38737E-05_JPRB,0.40468E-05_JPRB,0.38933E-05_JPRB,0.94734E-07_JPRB /)  
+KA(:, 3, 7, 1) = (/ &
+ & 0.10405E-07_JPRB,0.19286E-05_JPRB,0.28166E-05_JPRB,0.34417E-05_JPRB,0.39786E-05_JPRB, &
+ & 0.43804E-05_JPRB,0.46759E-05_JPRB,0.45835E-05_JPRB,0.10531E-06_JPRB /)  
+KA(:, 4, 7, 1) = (/ &
+ & 0.97948E-08_JPRB,0.20680E-05_JPRB,0.30741E-05_JPRB,0.37803E-05_JPRB,0.44163E-05_JPRB, &
+ & 0.49420E-05_JPRB,0.52477E-05_JPRB,0.52509E-05_JPRB,0.11517E-06_JPRB /)  
+KA(:, 5, 7, 1) = (/ &
+ & 0.92522E-08_JPRB,0.22140E-05_JPRB,0.33558E-05_JPRB,0.41544E-05_JPRB,0.48719E-05_JPRB, &
+ & 0.54968E-05_JPRB,0.59225E-05_JPRB,0.59027E-05_JPRB,0.12618E-06_JPRB /)  
+KA(:, 1, 8, 1) = (/ &
+ & 0.10164E-07_JPRB,0.13056E-05_JPRB,0.18690E-05_JPRB,0.21940E-05_JPRB,0.24210E-05_JPRB, &
+ & 0.25504E-05_JPRB,0.25676E-05_JPRB,0.24444E-05_JPRB,0.66021E-07_JPRB /)  
+KA(:, 2, 8, 1) = (/ &
+ & 0.94612E-08_JPRB,0.14106E-05_JPRB,0.20398E-05_JPRB,0.24136E-05_JPRB,0.27424E-05_JPRB, &
+ & 0.29578E-05_JPRB,0.30446E-05_JPRB,0.29182E-05_JPRB,0.73985E-07_JPRB /)  
+KA(:, 3, 8, 1) = (/ &
+ & 0.88489E-08_JPRB,0.15256E-05_JPRB,0.22123E-05_JPRB,0.26894E-05_JPRB,0.30704E-05_JPRB, &
+ & 0.33808E-05_JPRB,0.35521E-05_JPRB,0.34526E-05_JPRB,0.82666E-07_JPRB /)  
+KA(:, 4, 8, 1) = (/ &
+ & 0.83111E-08_JPRB,0.16396E-05_JPRB,0.24159E-05_JPRB,0.29563E-05_JPRB,0.34504E-05_JPRB, &
+ & 0.38196E-05_JPRB,0.40425E-05_JPRB,0.40093E-05_JPRB,0.90940E-07_JPRB /)  
+KA(:, 5, 8, 1) = (/ &
+ & 0.78349E-08_JPRB,0.17570E-05_JPRB,0.26398E-05_JPRB,0.32547E-05_JPRB,0.38060E-05_JPRB, &
+ & 0.42813E-05_JPRB,0.45732E-05_JPRB,0.45465E-05_JPRB,0.10022E-06_JPRB /)  
+KA(:, 1, 9, 1) = (/ &
+ & 0.86983E-08_JPRB,0.10284E-05_JPRB,0.14734E-05_JPRB,0.16973E-05_JPRB,0.18551E-05_JPRB, &
+ & 0.19223E-05_JPRB,0.19222E-05_JPRB,0.18289E-05_JPRB,0.53460E-07_JPRB /)  
+KA(:, 2, 9, 1) = (/ &
+ & 0.80712E-08_JPRB,0.11141E-05_JPRB,0.16016E-05_JPRB,0.18902E-05_JPRB,0.21027E-05_JPRB, &
+ & 0.22504E-05_JPRB,0.22800E-05_JPRB,0.21749E-05_JPRB,0.60180E-07_JPRB /)  
+KA(:, 3, 9, 1) = (/ &
+ & 0.75284E-08_JPRB,0.12033E-05_JPRB,0.17376E-05_JPRB,0.20849E-05_JPRB,0.23719E-05_JPRB, &
+ & 0.25906E-05_JPRB,0.26977E-05_JPRB,0.25910E-05_JPRB,0.66886E-07_JPRB /)  
+KA(:, 4, 9, 1) = (/ &
+ & 0.70541E-08_JPRB,0.12979E-05_JPRB,0.18959E-05_JPRB,0.23090E-05_JPRB,0.26695E-05_JPRB, &
+ & 0.29367E-05_JPRB,0.31239E-05_JPRB,0.30574E-05_JPRB,0.73978E-07_JPRB /)  
+KA(:, 5, 9, 1) = (/ &
+ & 0.66359E-08_JPRB,0.13937E-05_JPRB,0.20720E-05_JPRB,0.25448E-05_JPRB,0.29680E-05_JPRB, &
+ & 0.33208E-05_JPRB,0.35191E-05_JPRB,0.35097E-05_JPRB,0.81724E-07_JPRB /)  
+KA(:, 1,10, 1) = (/ &
+ & 0.74006E-08_JPRB,0.81705E-06_JPRB,0.11610E-05_JPRB,0.13325E-05_JPRB,0.14305E-05_JPRB, &
+ & 0.14668E-05_JPRB,0.14642E-05_JPRB,0.13765E-05_JPRB,0.44724E-07_JPRB /)  
+KA(:, 2,10, 1) = (/ &
+ & 0.68477E-08_JPRB,0.88306E-06_JPRB,0.12640E-05_JPRB,0.14768E-05_JPRB,0.16329E-05_JPRB, &
+ & 0.17209E-05_JPRB,0.17306E-05_JPRB,0.16441E-05_JPRB,0.50688E-07_JPRB /)  
+KA(:, 3,10, 1) = (/ &
+ & 0.63717E-08_JPRB,0.95522E-06_JPRB,0.13783E-05_JPRB,0.16303E-05_JPRB,0.18546E-05_JPRB, &
+ & 0.19963E-05_JPRB,0.20570E-05_JPRB,0.19678E-05_JPRB,0.56052E-07_JPRB /)  
+KA(:, 4,10, 1) = (/ &
+ & 0.59576E-08_JPRB,0.10331E-05_JPRB,0.14975E-05_JPRB,0.18180E-05_JPRB,0.20770E-05_JPRB, &
+ & 0.22813E-05_JPRB,0.24021E-05_JPRB,0.23350E-05_JPRB,0.62412E-07_JPRB /)  
+KA(:, 5,10, 1) = (/ &
+ & 0.55940E-08_JPRB,0.11102E-05_JPRB,0.16370E-05_JPRB,0.19999E-05_JPRB,0.23349E-05_JPRB, &
+ & 0.25900E-05_JPRB,0.27328E-05_JPRB,0.27057E-05_JPRB,0.69466E-07_JPRB /)  
+KA(:, 1,11, 1) = (/ &
+ & 0.60617E-08_JPRB,0.67167E-06_JPRB,0.95594E-06_JPRB,0.10939E-05_JPRB,0.11767E-05_JPRB, &
+ & 0.12059E-05_JPRB,0.12032E-05_JPRB,0.11314E-05_JPRB,0.37093E-07_JPRB /)  
+KA(:, 2,11, 1) = (/ &
+ & 0.56087E-08_JPRB,0.72704E-06_JPRB,0.10406E-05_JPRB,0.12137E-05_JPRB,0.13434E-05_JPRB, &
+ & 0.14171E-05_JPRB,0.14246E-05_JPRB,0.13521E-05_JPRB,0.41918E-07_JPRB /)  
+KA(:, 3,11, 1) = (/ &
+ & 0.52187E-08_JPRB,0.78681E-06_JPRB,0.11338E-05_JPRB,0.13419E-05_JPRB,0.15254E-05_JPRB, &
+ & 0.16426E-05_JPRB,0.16950E-05_JPRB,0.16203E-05_JPRB,0.46339E-07_JPRB /)  
+KA(:, 4,11, 1) = (/ &
+ & 0.48793E-08_JPRB,0.85013E-06_JPRB,0.12327E-05_JPRB,0.14971E-05_JPRB,0.17109E-05_JPRB, &
+ & 0.18776E-05_JPRB,0.19784E-05_JPRB,0.19240E-05_JPRB,0.51725E-07_JPRB /)  
+KA(:, 5,11, 1) = (/ &
+ & 0.45815E-08_JPRB,0.91420E-06_JPRB,0.13427E-05_JPRB,0.16458E-05_JPRB,0.19221E-05_JPRB, &
+ & 0.21323E-05_JPRB,0.22490E-05_JPRB,0.22263E-05_JPRB,0.57555E-07_JPRB /)  
+KA(:, 1,12, 1) = (/ &
+ & 0.49629E-08_JPRB,0.55223E-06_JPRB,0.78677E-06_JPRB,0.89789E-06_JPRB,0.96778E-06_JPRB, &
+ & 0.99148E-06_JPRB,0.98883E-06_JPRB,0.93028E-06_JPRB,0.30610E-07_JPRB /)  
+KA(:, 2,12, 1) = (/ &
+ & 0.45920E-08_JPRB,0.59832E-06_JPRB,0.85632E-06_JPRB,0.99730E-06_JPRB,0.11052E-05_JPRB, &
+ & 0.11665E-05_JPRB,0.11729E-05_JPRB,0.11125E-05_JPRB,0.34553E-07_JPRB /)  
+KA(:, 3,12, 1) = (/ &
+ & 0.42727E-08_JPRB,0.64760E-06_JPRB,0.93315E-06_JPRB,0.11041E-05_JPRB,0.12552E-05_JPRB, &
+ & 0.13521E-05_JPRB,0.13956E-05_JPRB,0.13333E-05_JPRB,0.38176E-07_JPRB /)  
+KA(:, 4,12, 1) = (/ &
+ & 0.39949E-08_JPRB,0.69926E-06_JPRB,0.10110E-05_JPRB,0.12304E-05_JPRB,0.14083E-05_JPRB, &
+ & 0.15442E-05_JPRB,0.16283E-05_JPRB,0.15837E-05_JPRB,0.42648E-07_JPRB /)  
+KA(:, 5,12, 1) = (/ &
+ & 0.37510E-08_JPRB,0.75239E-06_JPRB,0.11006E-05_JPRB,0.13535E-05_JPRB,0.15785E-05_JPRB, &
+ & 0.17547E-05_JPRB,0.18501E-05_JPRB,0.18298E-05_JPRB,0.47452E-07_JPRB /)  
+KA(:, 1,13, 1) = (/ &
+ & 0.40633E-08_JPRB,0.45378E-06_JPRB,0.64719E-06_JPRB,0.73637E-06_JPRB,0.79571E-06_JPRB, &
+ & 0.81503E-06_JPRB,0.81264E-06_JPRB,0.76488E-06_JPRB,0.25080E-07_JPRB /)  
+KA(:, 2,13, 1) = (/ &
+ & 0.37596E-08_JPRB,0.49208E-06_JPRB,0.70430E-06_JPRB,0.81894E-06_JPRB,0.90856E-06_JPRB, &
+ & 0.95919E-06_JPRB,0.96435E-06_JPRB,0.91411E-06_JPRB,0.28293E-07_JPRB /)  
+KA(:, 3,13, 1) = (/ &
+ & 0.34982E-08_JPRB,0.53259E-06_JPRB,0.76370E-06_JPRB,0.90761E-06_JPRB,0.10316E-05_JPRB, &
+ & 0.11116E-05_JPRB,0.11472E-05_JPRB,0.10956E-05_JPRB,0.31267E-07_JPRB /)  
+KA(:, 4,13, 1) = (/ &
+ & 0.32707E-08_JPRB,0.57488E-06_JPRB,0.82833E-06_JPRB,0.10096E-05_JPRB,0.11577E-05_JPRB, &
+ & 0.12688E-05_JPRB,0.13388E-05_JPRB,0.13015E-05_JPRB,0.34930E-07_JPRB /)  
+KA(:, 5,13, 1) = (/ &
+ & 0.30710E-08_JPRB,0.61832E-06_JPRB,0.90250E-06_JPRB,0.11120E-05_JPRB,0.12962E-05_JPRB, &
+ & 0.14424E-05_JPRB,0.15206E-05_JPRB,0.15032E-05_JPRB,0.38861E-07_JPRB /)  
+KA(:, 1, 1, 2) = (/ &
+ & 0.14215E-06_JPRB,0.65726E-04_JPRB,0.11327E-03_JPRB,0.15324E-03_JPRB,0.18473E-03_JPRB, &
+ & 0.20658E-03_JPRB,0.21603E-03_JPRB,0.20617E-03_JPRB,0.13252E-04_JPRB /)  
+KA(:, 2, 1, 2) = (/ &
+ & 0.13452E-06_JPRB,0.69521E-04_JPRB,0.12059E-03_JPRB,0.16342E-03_JPRB,0.19613E-03_JPRB, &
+ & 0.21987E-03_JPRB,0.22946E-03_JPRB,0.21879E-03_JPRB,0.14816E-04_JPRB /)  
+KA(:, 3, 1, 2) = (/ &
+ & 0.12766E-06_JPRB,0.73313E-04_JPRB,0.12786E-03_JPRB,0.17303E-03_JPRB,0.20754E-03_JPRB, &
+ & 0.23326E-03_JPRB,0.24324E-03_JPRB,0.22956E-03_JPRB,0.16536E-04_JPRB /)  
+KA(:, 4, 1, 2) = (/ &
+ & 0.12147E-06_JPRB,0.77087E-04_JPRB,0.13521E-03_JPRB,0.18263E-03_JPRB,0.21904E-03_JPRB, &
+ & 0.24614E-03_JPRB,0.25637E-03_JPRB,0.24060E-03_JPRB,0.18092E-04_JPRB /)  
+KA(:, 5, 1, 2) = (/ &
+ & 0.11584E-06_JPRB,0.80946E-04_JPRB,0.14233E-03_JPRB,0.19230E-03_JPRB,0.23047E-03_JPRB, &
+ & 0.25869E-03_JPRB,0.26904E-03_JPRB,0.25139E-03_JPRB,0.19768E-04_JPRB /)  
+KA(:, 1, 2, 2) = (/ &
+ & 0.11918E-06_JPRB,0.55167E-04_JPRB,0.94557E-04_JPRB,0.12760E-03_JPRB,0.15322E-03_JPRB, &
+ & 0.17148E-03_JPRB,0.17894E-03_JPRB,0.17049E-03_JPRB,0.10710E-04_JPRB /)  
+KA(:, 2, 2, 2) = (/ &
+ & 0.11264E-06_JPRB,0.58581E-04_JPRB,0.10113E-03_JPRB,0.13648E-03_JPRB,0.16335E-03_JPRB, &
+ & 0.18288E-03_JPRB,0.19059E-03_JPRB,0.18131E-03_JPRB,0.12067E-04_JPRB /)  
+KA(:, 3, 2, 2) = (/ &
+ & 0.10678E-06_JPRB,0.61935E-04_JPRB,0.10756E-03_JPRB,0.14497E-03_JPRB,0.17335E-03_JPRB, &
+ & 0.19437E-03_JPRB,0.20245E-03_JPRB,0.19070E-03_JPRB,0.13553E-04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART1',1,ZHOOK_HANDLE)
+END SUBROUTINE PART1
+
+
+SUBROUTINE PART2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART2',0,ZHOOK_HANDLE)
+
+
+KA(:, 4, 2, 2) = (/ &
+ & 0.10149E-06_JPRB,0.65261E-04_JPRB,0.11404E-03_JPRB,0.15331E-03_JPRB,0.18323E-03_JPRB, &
+ & 0.20559E-03_JPRB,0.21385E-03_JPRB,0.20024E-03_JPRB,0.14801E-04_JPRB /)  
+KA(:, 5, 2, 2) = (/ &
+ & 0.96699E-07_JPRB,0.68698E-04_JPRB,0.12038E-03_JPRB,0.16167E-03_JPRB,0.19308E-03_JPRB, &
+ & 0.21635E-03_JPRB,0.22479E-03_JPRB,0.20964E-03_JPRB,0.16245E-04_JPRB /)  
+KA(:, 1, 3, 2) = (/ &
+ & 0.10112E-06_JPRB,0.45399E-04_JPRB,0.77226E-04_JPRB,0.10397E-03_JPRB,0.12462E-03_JPRB, &
+ & 0.13956E-03_JPRB,0.14531E-03_JPRB,0.13816E-03_JPRB,0.83635E-05_JPRB /)  
+KA(:, 2, 3, 2) = (/ &
+ & 0.95381E-07_JPRB,0.48357E-04_JPRB,0.82986E-04_JPRB,0.11173E-03_JPRB,0.13338E-03_JPRB, &
+ & 0.14898E-03_JPRB,0.15534E-03_JPRB,0.14786E-03_JPRB,0.94915E-05_JPRB /)  
+KA(:, 3, 3, 2) = (/ &
+ & 0.90257E-07_JPRB,0.51355E-04_JPRB,0.88727E-04_JPRB,0.11920E-03_JPRB,0.14215E-03_JPRB, &
+ & 0.15859E-03_JPRB,0.16541E-03_JPRB,0.15622E-03_JPRB,0.10683E-04_JPRB /)  
+KA(:, 4, 3, 2) = (/ &
+ & 0.85653E-07_JPRB,0.54322E-04_JPRB,0.94369E-04_JPRB,0.12646E-03_JPRB,0.15072E-03_JPRB, &
+ & 0.16838E-03_JPRB,0.17536E-03_JPRB,0.16433E-03_JPRB,0.11764E-04_JPRB /)  
+KA(:, 5, 3, 2) = (/ &
+ & 0.81492E-07_JPRB,0.57300E-04_JPRB,0.99940E-04_JPRB,0.13355E-03_JPRB,0.15929E-03_JPRB, &
+ & 0.17800E-03_JPRB,0.18496E-03_JPRB,0.17234E-03_JPRB,0.12979E-04_JPRB /)  
+KA(:, 1, 4, 2) = (/ &
+ & 0.86132E-07_JPRB,0.36910E-04_JPRB,0.62346E-04_JPRB,0.83628E-04_JPRB,0.10025E-03_JPRB, &
+ & 0.11224E-03_JPRB,0.11706E-03_JPRB,0.11109E-03_JPRB,0.64715E-05_JPRB /)  
+KA(:, 2, 4, 2) = (/ &
+ & 0.81062E-07_JPRB,0.39490E-04_JPRB,0.67274E-04_JPRB,0.90384E-04_JPRB,0.10785E-03_JPRB, &
+ & 0.12026E-03_JPRB,0.12543E-03_JPRB,0.11944E-03_JPRB,0.73991E-05_JPRB /)  
+KA(:, 3, 4, 2) = (/ &
+ & 0.76553E-07_JPRB,0.42055E-04_JPRB,0.72269E-04_JPRB,0.96956E-04_JPRB,0.11528E-03_JPRB, &
+ & 0.12833E-03_JPRB,0.13396E-03_JPRB,0.12697E-03_JPRB,0.83899E-05_JPRB /)  
+KA(:, 4, 4, 2) = (/ &
+ & 0.72516E-07_JPRB,0.44696E-04_JPRB,0.77235E-04_JPRB,0.10321E-03_JPRB,0.12276E-03_JPRB, &
+ & 0.13674E-03_JPRB,0.14260E-03_JPRB,0.13384E-03_JPRB,0.93052E-05_JPRB /)  
+KA(:, 5, 4, 2) = (/ &
+ & 0.68881E-07_JPRB,0.47273E-04_JPRB,0.82118E-04_JPRB,0.10935E-03_JPRB,0.13016E-03_JPRB, &
+ & 0.14506E-03_JPRB,0.15080E-03_JPRB,0.14062E-03_JPRB,0.10314E-04_JPRB /)  
+KA(:, 1, 5, 2) = (/ &
+ & 0.73401E-07_JPRB,0.29772E-04_JPRB,0.49957E-04_JPRB,0.66720E-04_JPRB,0.80104E-04_JPRB, &
+ & 0.89761E-04_JPRB,0.93853E-04_JPRB,0.88953E-04_JPRB,0.50171E-05_JPRB /)  
+KA(:, 2, 5, 2) = (/ &
+ & 0.68916E-07_JPRB,0.31976E-04_JPRB,0.54217E-04_JPRB,0.72570E-04_JPRB,0.86671E-04_JPRB, &
+ & 0.96653E-04_JPRB,0.10073E-03_JPRB,0.95875E-04_JPRB,0.57746E-05_JPRB /)  
+KA(:, 3, 5, 2) = (/ &
+ & 0.64945E-07_JPRB,0.34219E-04_JPRB,0.58417E-04_JPRB,0.78327E-04_JPRB,0.92950E-04_JPRB, &
+ & 0.10358E-03_JPRB,0.10803E-03_JPRB,0.10274E-03_JPRB,0.66197E-05_JPRB /)  
+KA(:, 4, 5, 2) = (/ &
+ & 0.61405E-07_JPRB,0.36457E-04_JPRB,0.62694E-04_JPRB,0.83756E-04_JPRB,0.99356E-04_JPRB, &
+ & 0.11058E-03_JPRB,0.11542E-03_JPRB,0.10858E-03_JPRB,0.73729E-05_JPRB /)  
+KA(:, 5, 5, 2) = (/ &
+ & 0.58229E-07_JPRB,0.38713E-04_JPRB,0.67059E-04_JPRB,0.89033E-04_JPRB,0.10573E-03_JPRB, &
+ & 0.11764E-03_JPRB,0.12243E-03_JPRB,0.11440E-03_JPRB,0.82149E-05_JPRB /)  
+KA(:, 1, 6, 2) = (/ &
+ & 0.62723E-07_JPRB,0.23750E-04_JPRB,0.39643E-04_JPRB,0.52796E-04_JPRB,0.63478E-04_JPRB, &
+ & 0.71151E-04_JPRB,0.74640E-04_JPRB,0.70193E-04_JPRB,0.38899E-05_JPRB /)  
+KA(:, 2, 6, 2) = (/ &
+ & 0.58735E-07_JPRB,0.25657E-04_JPRB,0.43274E-04_JPRB,0.57719E-04_JPRB,0.69124E-04_JPRB, &
+ & 0.77375E-04_JPRB,0.80498E-04_JPRB,0.76543E-04_JPRB,0.44833E-05_JPRB /)  
+KA(:, 3, 6, 2) = (/ &
+ & 0.55222E-07_JPRB,0.27563E-04_JPRB,0.46866E-04_JPRB,0.62699E-04_JPRB,0.74494E-04_JPRB, &
+ & 0.82946E-04_JPRB,0.86653E-04_JPRB,0.82509E-04_JPRB,0.51635E-05_JPRB /)  
+KA(:, 4, 6, 2) = (/ &
+ & 0.52103E-07_JPRB,0.29528E-04_JPRB,0.50470E-04_JPRB,0.67473E-04_JPRB,0.79899E-04_JPRB, &
+ & 0.89004E-04_JPRB,0.92786E-04_JPRB,0.87628E-04_JPRB,0.58104E-05_JPRB /)  
+KA(:, 5, 6, 2) = (/ &
+ & 0.49317E-07_JPRB,0.31444E-04_JPRB,0.54175E-04_JPRB,0.72000E-04_JPRB,0.85322E-04_JPRB, &
+ & 0.94885E-04_JPRB,0.98826E-04_JPRB,0.92648E-04_JPRB,0.64997E-05_JPRB /)  
+KA(:, 1, 7, 2) = (/ &
+ & 0.53634E-07_JPRB,0.18862E-04_JPRB,0.31325E-04_JPRB,0.41575E-04_JPRB,0.50141E-04_JPRB, &
+ & 0.56190E-04_JPRB,0.58882E-04_JPRB,0.55026E-04_JPRB,0.29795E-05_JPRB /)  
+KA(:, 2, 7, 2) = (/ &
+ & 0.50084E-07_JPRB,0.20474E-04_JPRB,0.34342E-04_JPRB,0.45732E-04_JPRB,0.54884E-04_JPRB, &
+ & 0.61494E-04_JPRB,0.64187E-04_JPRB,0.60857E-04_JPRB,0.34589E-05_JPRB /)  
+KA(:, 3, 7, 2) = (/ &
+ & 0.46973E-07_JPRB,0.22063E-04_JPRB,0.37411E-04_JPRB,0.49893E-04_JPRB,0.59475E-04_JPRB, &
+ & 0.66279E-04_JPRB,0.69129E-04_JPRB,0.65758E-04_JPRB,0.39983E-05_JPRB /)  
+KA(:, 4, 7, 2) = (/ &
+ & 0.44224E-07_JPRB,0.23764E-04_JPRB,0.40481E-04_JPRB,0.54107E-04_JPRB,0.64026E-04_JPRB, &
+ & 0.71350E-04_JPRB,0.74328E-04_JPRB,0.70513E-04_JPRB,0.45526E-05_JPRB /)  
+KA(:, 5, 7, 2) = (/ &
+ & 0.41777E-07_JPRB,0.25434E-04_JPRB,0.43555E-04_JPRB,0.57958E-04_JPRB,0.68599E-04_JPRB, &
+ & 0.76304E-04_JPRB,0.79456E-04_JPRB,0.74649E-04_JPRB,0.51046E-05_JPRB /)  
+KA(:, 1, 8, 2) = (/ &
+ & 0.45857E-07_JPRB,0.14945E-04_JPRB,0.24594E-04_JPRB,0.32696E-04_JPRB,0.39571E-04_JPRB, &
+ & 0.44348E-04_JPRB,0.46090E-04_JPRB,0.43034E-04_JPRB,0.22833E-05_JPRB /)  
+KA(:, 2, 8, 2) = (/ &
+ & 0.42697E-07_JPRB,0.16265E-04_JPRB,0.27198E-04_JPRB,0.36108E-04_JPRB,0.43381E-04_JPRB, &
+ & 0.48642E-04_JPRB,0.50943E-04_JPRB,0.47848E-04_JPRB,0.26669E-05_JPRB /)  
+KA(:, 3, 8, 2) = (/ &
+ & 0.39944E-07_JPRB,0.17616E-04_JPRB,0.29775E-04_JPRB,0.39577E-04_JPRB,0.47366E-04_JPRB, &
+ & 0.52791E-04_JPRB,0.54992E-04_JPRB,0.52236E-04_JPRB,0.30932E-05_JPRB /)  
+KA(:, 4, 8, 2) = (/ &
+ & 0.37522E-07_JPRB,0.19042E-04_JPRB,0.32351E-04_JPRB,0.43126E-04_JPRB,0.51153E-04_JPRB, &
+ & 0.56987E-04_JPRB,0.59316E-04_JPRB,0.56438E-04_JPRB,0.35666E-05_JPRB /)  
+KA(:, 5, 8, 2) = (/ &
+ & 0.35376E-07_JPRB,0.20476E-04_JPRB,0.34946E-04_JPRB,0.46521E-04_JPRB,0.55009E-04_JPRB, &
+ & 0.61221E-04_JPRB,0.63714E-04_JPRB,0.60035E-04_JPRB,0.40037E-05_JPRB /)  
+KA(:, 1, 9, 2) = (/ &
+ & 0.39233E-07_JPRB,0.11817E-04_JPRB,0.19254E-04_JPRB,0.25596E-04_JPRB,0.30843E-04_JPRB, &
+ & 0.34574E-04_JPRB,0.36035E-04_JPRB,0.33425E-04_JPRB,0.17673E-05_JPRB /)  
+KA(:, 2, 9, 2) = (/ &
+ & 0.36418E-07_JPRB,0.12914E-04_JPRB,0.21404E-04_JPRB,0.28372E-04_JPRB,0.34161E-04_JPRB, &
+ & 0.38321E-04_JPRB,0.40053E-04_JPRB,0.37435E-04_JPRB,0.20751E-05_JPRB /)  
+KA(:, 3, 9, 2) = (/ &
+ & 0.33979E-07_JPRB,0.14026E-04_JPRB,0.23574E-04_JPRB,0.31316E-04_JPRB,0.37514E-04_JPRB, &
+ & 0.41977E-04_JPRB,0.43747E-04_JPRB,0.41346E-04_JPRB,0.24151E-05_JPRB /)  
+KA(:, 4, 9, 2) = (/ &
+ & 0.31844E-07_JPRB,0.15205E-04_JPRB,0.25770E-04_JPRB,0.34231E-04_JPRB,0.40723E-04_JPRB, &
+ & 0.45315E-04_JPRB,0.47202E-04_JPRB,0.44869E-04_JPRB,0.28151E-05_JPRB /)  
+KA(:, 5, 9, 2) = (/ &
+ & 0.29961E-07_JPRB,0.16420E-04_JPRB,0.27955E-04_JPRB,0.37187E-04_JPRB,0.43941E-04_JPRB, &
+ & 0.48873E-04_JPRB,0.50856E-04_JPRB,0.48170E-04_JPRB,0.31733E-05_JPRB /)  
+KA(:, 1,10, 2) = (/ &
+ & 0.33373E-07_JPRB,0.93505E-05_JPRB,0.15216E-04_JPRB,0.20198E-04_JPRB,0.24244E-04_JPRB, &
+ & 0.27077E-04_JPRB,0.28186E-04_JPRB,0.25996E-04_JPRB,0.13941E-05_JPRB /)  
+KA(:, 2,10, 2) = (/ &
+ & 0.30893E-07_JPRB,0.10284E-04_JPRB,0.16902E-04_JPRB,0.22468E-04_JPRB,0.27072E-04_JPRB, &
+ & 0.30382E-04_JPRB,0.31603E-04_JPRB,0.29456E-04_JPRB,0.16352E-05_JPRB /)  
+KA(:, 3,10, 2) = (/ &
+ & 0.28754E-07_JPRB,0.11207E-04_JPRB,0.18715E-04_JPRB,0.24849E-04_JPRB,0.29815E-04_JPRB, &
+ & 0.33379E-04_JPRB,0.34901E-04_JPRB,0.32836E-04_JPRB,0.19188E-05_JPRB /)  
+KA(:, 4,10, 2) = (/ &
+ & 0.26892E-07_JPRB,0.12172E-04_JPRB,0.20578E-04_JPRB,0.27269E-04_JPRB,0.32536E-04_JPRB, &
+ & 0.36182E-04_JPRB,0.37703E-04_JPRB,0.35750E-04_JPRB,0.22467E-05_JPRB /)  
+KA(:, 5,10, 2) = (/ &
+ & 0.25255E-07_JPRB,0.13195E-04_JPRB,0.22422E-04_JPRB,0.29781E-04_JPRB,0.35220E-04_JPRB, &
+ & 0.39157E-04_JPRB,0.40719E-04_JPRB,0.38729E-04_JPRB,0.25535E-05_JPRB /)  
+KA(:, 1,11, 2) = (/ &
+ & 0.27335E-07_JPRB,0.77491E-05_JPRB,0.12607E-04_JPRB,0.16695E-04_JPRB,0.20093E-04_JPRB, &
+ & 0.22431E-04_JPRB,0.23345E-04_JPRB,0.21522E-04_JPRB,0.11569E-05_JPRB /)  
+KA(:, 2,11, 2) = (/ &
+ & 0.25303E-07_JPRB,0.85322E-05_JPRB,0.14022E-04_JPRB,0.18593E-04_JPRB,0.22378E-04_JPRB, &
+ & 0.25133E-04_JPRB,0.26161E-04_JPRB,0.24379E-04_JPRB,0.13709E-05_JPRB /)  
+KA(:, 3,11, 2) = (/ &
+ & 0.23551E-07_JPRB,0.92912E-05_JPRB,0.15536E-04_JPRB,0.20618E-04_JPRB,0.24722E-04_JPRB, &
+ & 0.27647E-04_JPRB,0.28874E-04_JPRB,0.27196E-04_JPRB,0.16099E-05_JPRB /)  
+KA(:, 4,11, 2) = (/ &
+ & 0.22025E-07_JPRB,0.10117E-04_JPRB,0.17115E-04_JPRB,0.22645E-04_JPRB,0.26974E-04_JPRB, &
+ & 0.29947E-04_JPRB,0.31210E-04_JPRB,0.29581E-04_JPRB,0.18845E-05_JPRB /)  
+KA(:, 5,11, 2) = (/ &
+ & 0.20684E-07_JPRB,0.10977E-04_JPRB,0.18645E-04_JPRB,0.24734E-04_JPRB,0.29203E-04_JPRB, &
+ & 0.32453E-04_JPRB,0.33733E-04_JPRB,0.32056E-04_JPRB,0.21326E-05_JPRB /)  
+KA(:, 1,12, 2) = (/ &
+ & 0.22380E-07_JPRB,0.64144E-05_JPRB,0.10436E-04_JPRB,0.13802E-04_JPRB,0.16622E-04_JPRB, &
+ & 0.18557E-04_JPRB,0.19314E-04_JPRB,0.17793E-04_JPRB,0.95906E-06_JPRB /)  
+KA(:, 2,12, 2) = (/ &
+ & 0.20716E-07_JPRB,0.70603E-05_JPRB,0.11625E-04_JPRB,0.15385E-04_JPRB,0.18503E-04_JPRB, &
+ & 0.20776E-04_JPRB,0.21630E-04_JPRB,0.20152E-04_JPRB,0.11363E-05_JPRB /)  
+KA(:, 3,12, 2) = (/ &
+ & 0.19282E-07_JPRB,0.76960E-05_JPRB,0.12886E-04_JPRB,0.17087E-04_JPRB,0.20475E-04_JPRB, &
+ & 0.22867E-04_JPRB,0.23856E-04_JPRB,0.22506E-04_JPRB,0.13400E-05_JPRB /)  
+KA(:, 4,12, 2) = (/ &
+ & 0.18032E-07_JPRB,0.83983E-05_JPRB,0.14206E-04_JPRB,0.18783E-04_JPRB,0.22334E-04_JPRB, &
+ & 0.24764E-04_JPRB,0.25815E-04_JPRB,0.24461E-04_JPRB,0.15637E-05_JPRB /)  
+KA(:, 5,12, 2) = (/ &
+ & 0.16934E-07_JPRB,0.91186E-05_JPRB,0.15491E-04_JPRB,0.20513E-04_JPRB,0.24201E-04_JPRB, &
+ & 0.26864E-04_JPRB,0.27917E-04_JPRB,0.26491E-04_JPRB,0.17707E-05_JPRB /)  
+KA(:, 1,13, 2) = (/ &
+ & 0.18323E-07_JPRB,0.53022E-05_JPRB,0.86273E-05_JPRB,0.11385E-04_JPRB,0.13729E-04_JPRB, &
+ & 0.15318E-04_JPRB,0.15952E-04_JPRB,0.14693E-04_JPRB,0.78927E-06_JPRB /)  
+KA(:, 2,13, 2) = (/ &
+ & 0.16961E-07_JPRB,0.58316E-05_JPRB,0.96204E-05_JPRB,0.12717E-04_JPRB,0.15275E-04_JPRB, &
+ & 0.17141E-04_JPRB,0.17863E-04_JPRB,0.16639E-04_JPRB,0.93659E-06_JPRB /)  
+KA(:, 3,13, 2) = (/ &
+ & 0.15787E-07_JPRB,0.63710E-05_JPRB,0.10675E-04_JPRB,0.14140E-04_JPRB,0.16925E-04_JPRB, &
+ & 0.18881E-04_JPRB,0.19675E-04_JPRB,0.18564E-04_JPRB,0.11050E-05_JPRB /)  
+KA(:, 4,13, 2) = (/ &
+ & 0.14764E-07_JPRB,0.69607E-05_JPRB,0.11779E-04_JPRB,0.15554E-04_JPRB,0.18475E-04_JPRB, &
+ & 0.20461E-04_JPRB,0.21320E-04_JPRB,0.20207E-04_JPRB,0.12868E-05_JPRB /)  
+KA(:, 5,13, 2) = (/ &
+ & 0.13865E-07_JPRB,0.75611E-05_JPRB,0.12843E-04_JPRB,0.16991E-04_JPRB,0.20029E-04_JPRB, &
+ & 0.22208E-04_JPRB,0.23079E-04_JPRB,0.21838E-04_JPRB,0.14565E-05_JPRB /)  
+KA(:, 1, 1, 3) = (/ &
+ & 0.55948E-06_JPRB,0.43472E-03_JPRB,0.65689E-03_JPRB,0.80237E-03_JPRB,0.90326E-03_JPRB, &
+ & 0.95995E-03_JPRB,0.94242E-03_JPRB,0.81801E-03_JPRB,0.18380E-03_JPRB /)  
+KA(:, 2, 1, 3) = (/ &
+ & 0.53175E-06_JPRB,0.45395E-03_JPRB,0.68779E-03_JPRB,0.84040E-03_JPRB,0.94598E-03_JPRB, &
+ & 0.10011E-02_JPRB,0.98481E-03_JPRB,0.85748E-03_JPRB,0.19567E-03_JPRB /)  
+KA(:, 3, 1, 3) = (/ &
+ & 0.50648E-06_JPRB,0.46835E-03_JPRB,0.71403E-03_JPRB,0.87684E-03_JPRB,0.98520E-03_JPRB, &
+ & 0.10393E-02_JPRB,0.10233E-02_JPRB,0.89729E-03_JPRB,0.20725E-03_JPRB /)  
+KA(:, 4, 1, 3) = (/ &
+ & 0.48330E-06_JPRB,0.48143E-03_JPRB,0.73979E-03_JPRB,0.91063E-03_JPRB,0.10212E-02_JPRB, &
+ & 0.10762E-02_JPRB,0.10600E-02_JPRB,0.93507E-03_JPRB,0.21814E-03_JPRB /)  
+KA(:, 5, 1, 3) = (/ &
+ & 0.46195E-06_JPRB,0.49413E-03_JPRB,0.76470E-03_JPRB,0.94208E-03_JPRB,0.10547E-02_JPRB, &
+ & 0.11099E-02_JPRB,0.10960E-02_JPRB,0.97164E-03_JPRB,0.23056E-03_JPRB /)  
+KA(:, 1, 2, 3) = (/ &
+ & 0.46813E-06_JPRB,0.36711E-03_JPRB,0.55743E-03_JPRB,0.68070E-03_JPRB,0.76614E-03_JPRB, &
+ & 0.81442E-03_JPRB,0.79940E-03_JPRB,0.69691E-03_JPRB,0.14988E-03_JPRB /)  
+KA(:, 2, 2, 3) = (/ &
+ & 0.44450E-06_JPRB,0.38413E-03_JPRB,0.58502E-03_JPRB,0.71506E-03_JPRB,0.80409E-03_JPRB, &
+ & 0.85191E-03_JPRB,0.83722E-03_JPRB,0.73231E-03_JPRB,0.15985E-03_JPRB /)  
+KA(:, 3, 2, 3) = (/ &
+ & 0.42301E-06_JPRB,0.39744E-03_JPRB,0.60852E-03_JPRB,0.74741E-03_JPRB,0.83920E-03_JPRB, &
+ & 0.88588E-03_JPRB,0.87206E-03_JPRB,0.76677E-03_JPRB,0.16968E-03_JPRB /)  
+KA(:, 4, 2, 3) = (/ &
+ & 0.40335E-06_JPRB,0.40927E-03_JPRB,0.63200E-03_JPRB,0.77835E-03_JPRB,0.87190E-03_JPRB, &
+ & 0.91843E-03_JPRB,0.90467E-03_JPRB,0.79859E-03_JPRB,0.17948E-03_JPRB /)  
+KA(:, 5, 2, 3) = (/ &
+ & 0.38529E-06_JPRB,0.42034E-03_JPRB,0.65353E-03_JPRB,0.80758E-03_JPRB,0.90248E-03_JPRB, &
+ & 0.94929E-03_JPRB,0.93715E-03_JPRB,0.83136E-03_JPRB,0.19018E-03_JPRB /)  
+KA(:, 1, 3, 3) = (/ &
+ & 0.39591E-06_JPRB,0.30459E-03_JPRB,0.46364E-03_JPRB,0.56590E-03_JPRB,0.63680E-03_JPRB, &
+ & 0.67681E-03_JPRB,0.66517E-03_JPRB,0.58106E-03_JPRB,0.11936E-03_JPRB /)  
+KA(:, 2, 3, 3) = (/ &
+ & 0.37538E-06_JPRB,0.32036E-03_JPRB,0.48874E-03_JPRB,0.59649E-03_JPRB,0.67170E-03_JPRB, &
+ & 0.71161E-03_JPRB,0.69943E-03_JPRB,0.61159E-03_JPRB,0.12804E-03_JPRB /)  
+KA(:, 3, 3, 3) = (/ &
+ & 0.35675E-06_JPRB,0.33321E-03_JPRB,0.50999E-03_JPRB,0.62591E-03_JPRB,0.70319E-03_JPRB, &
+ & 0.74333E-03_JPRB,0.73015E-03_JPRB,0.64070E-03_JPRB,0.13642E-03_JPRB /)  
+KA(:, 4, 3, 3) = (/ &
+ & 0.33978E-06_JPRB,0.34382E-03_JPRB,0.53102E-03_JPRB,0.65391E-03_JPRB,0.73278E-03_JPRB, &
+ & 0.77303E-03_JPRB,0.75990E-03_JPRB,0.66979E-03_JPRB,0.14477E-03_JPRB /)  
+KA(:, 5, 3, 3) = (/ &
+ & 0.32422E-06_JPRB,0.35416E-03_JPRB,0.55071E-03_JPRB,0.68042E-03_JPRB,0.76041E-03_JPRB, &
+ & 0.80118E-03_JPRB,0.78914E-03_JPRB,0.69923E-03_JPRB,0.15365E-03_JPRB /)  
+KA(:, 1, 4, 3) = (/ &
+ & 0.33598E-06_JPRB,0.24970E-03_JPRB,0.38053E-03_JPRB,0.46464E-03_JPRB,0.52234E-03_JPRB, &
+ & 0.55488E-03_JPRB,0.54675E-03_JPRB,0.47794E-03_JPRB,0.95275E-04_JPRB /)  
+KA(:, 2, 4, 3) = (/ &
+ & 0.31800E-06_JPRB,0.26415E-03_JPRB,0.40313E-03_JPRB,0.49210E-03_JPRB,0.55359E-03_JPRB, &
+ & 0.58661E-03_JPRB,0.57694E-03_JPRB,0.50393E-03_JPRB,0.10292E-03_JPRB /)  
+KA(:, 3, 4, 3) = (/ &
+ & 0.30177E-06_JPRB,0.27638E-03_JPRB,0.42268E-03_JPRB,0.51823E-03_JPRB,0.58348E-03_JPRB, &
+ & 0.61591E-03_JPRB,0.60497E-03_JPRB,0.52947E-03_JPRB,0.11016E-03_JPRB /)  
+KA(:, 4, 4, 3) = (/ &
+ & 0.28703E-06_JPRB,0.28612E-03_JPRB,0.44165E-03_JPRB,0.54326E-03_JPRB,0.61010E-03_JPRB, &
+ & 0.64299E-03_JPRB,0.63151E-03_JPRB,0.55558E-03_JPRB,0.11708E-03_JPRB /)  
+KA(:, 5, 4, 3) = (/ &
+ & 0.27356E-06_JPRB,0.29550E-03_JPRB,0.45903E-03_JPRB,0.56703E-03_JPRB,0.63522E-03_JPRB, &
+ & 0.66839E-03_JPRB,0.65812E-03_JPRB,0.58142E-03_JPRB,0.12444E-03_JPRB /)  
+KA(:, 1, 5, 3) = (/ &
+ & 0.28517E-06_JPRB,0.20305E-03_JPRB,0.30940E-03_JPRB,0.37854E-03_JPRB,0.42516E-03_JPRB, &
+ & 0.45167E-03_JPRB,0.44617E-03_JPRB,0.39006E-03_JPRB,0.76394E-04_JPRB /)  
+KA(:, 2, 5, 3) = (/ &
+ & 0.26943E-06_JPRB,0.21631E-03_JPRB,0.32942E-03_JPRB,0.40279E-03_JPRB,0.45281E-03_JPRB, &
+ & 0.47959E-03_JPRB,0.47274E-03_JPRB,0.41219E-03_JPRB,0.83093E-04_JPRB /)  
+KA(:, 3, 5, 3) = (/ &
+ & 0.25526E-06_JPRB,0.22760E-03_JPRB,0.34736E-03_JPRB,0.42603E-03_JPRB,0.47928E-03_JPRB, &
+ & 0.50573E-03_JPRB,0.49753E-03_JPRB,0.43423E-03_JPRB,0.89137E-04_JPRB /)  
+KA(:, 4, 5, 3) = (/ &
+ & 0.24245E-06_JPRB,0.23661E-03_JPRB,0.36423E-03_JPRB,0.44832E-03_JPRB,0.50373E-03_JPRB, &
+ & 0.53021E-03_JPRB,0.52092E-03_JPRB,0.45715E-03_JPRB,0.95026E-04_JPRB /)  
+KA(:, 5, 5, 3) = (/ &
+ & 0.23079E-06_JPRB,0.24490E-03_JPRB,0.37979E-03_JPRB,0.46958E-03_JPRB,0.52671E-03_JPRB, &
+ & 0.55360E-03_JPRB,0.54422E-03_JPRB,0.47982E-03_JPRB,0.10100E-03_JPRB /)  
+KA(:, 1, 6, 3) = (/ &
+ & 0.24258E-06_JPRB,0.16374E-03_JPRB,0.24889E-03_JPRB,0.30526E-03_JPRB,0.34256E-03_JPRB, &
+ & 0.36437E-03_JPRB,0.36054E-03_JPRB,0.31643E-03_JPRB,0.60983E-04_JPRB /)  
+KA(:, 2, 6, 3) = (/ &
+ & 0.22873E-06_JPRB,0.17557E-03_JPRB,0.26674E-03_JPRB,0.32662E-03_JPRB,0.36698E-03_JPRB, &
+ & 0.38862E-03_JPRB,0.38395E-03_JPRB,0.33481E-03_JPRB,0.66717E-04_JPRB /)  
+KA(:, 3, 6, 3) = (/ &
+ & 0.21632E-06_JPRB,0.18596E-03_JPRB,0.28315E-03_JPRB,0.34710E-03_JPRB,0.39032E-03_JPRB, &
+ & 0.41186E-03_JPRB,0.40597E-03_JPRB,0.35347E-03_JPRB,0.71805E-04_JPRB /)  
+KA(:, 4, 6, 3) = (/ &
+ & 0.20515E-06_JPRB,0.19412E-03_JPRB,0.29825E-03_JPRB,0.36672E-03_JPRB,0.41223E-03_JPRB, &
+ & 0.43370E-03_JPRB,0.42654E-03_JPRB,0.37308E-03_JPRB,0.76950E-04_JPRB /)  
+KA(:, 5, 6, 3) = (/ &
+ & 0.19500E-06_JPRB,0.20163E-03_JPRB,0.31177E-03_JPRB,0.38573E-03_JPRB,0.43298E-03_JPRB, &
+ & 0.45474E-03_JPRB,0.44659E-03_JPRB,0.39273E-03_JPRB,0.81854E-04_JPRB /)  
+KA(:, 1, 7, 3) = (/ &
+ & 0.20644E-06_JPRB,0.13088E-03_JPRB,0.19883E-03_JPRB,0.24453E-03_JPRB,0.27379E-03_JPRB, &
+ & 0.29133E-03_JPRB,0.28972E-03_JPRB,0.25527E-03_JPRB,0.48483E-04_JPRB /)  
+KA(:, 2, 7, 3) = (/ &
+ & 0.19422E-06_JPRB,0.14123E-03_JPRB,0.21464E-03_JPRB,0.26307E-03_JPRB,0.29520E-03_JPRB, &
+ & 0.31262E-03_JPRB,0.30976E-03_JPRB,0.27057E-03_JPRB,0.53189E-04_JPRB /)  
+KA(:, 3, 7, 3) = (/ &
+ & 0.18334E-06_JPRB,0.15056E-03_JPRB,0.22945E-03_JPRB,0.28102E-03_JPRB,0.31570E-03_JPRB, &
+ & 0.33336E-03_JPRB,0.32921E-03_JPRB,0.28657E-03_JPRB,0.57664E-04_JPRB /)  
+KA(:, 4, 7, 3) = (/ &
+ & 0.17359E-06_JPRB,0.15845E-03_JPRB,0.24254E-03_JPRB,0.29812E-03_JPRB,0.33533E-03_JPRB, &
+ & 0.35273E-03_JPRB,0.34737E-03_JPRB,0.30290E-03_JPRB,0.62080E-04_JPRB /)  
+KA(:, 5, 7, 3) = (/ &
+ & 0.16476E-06_JPRB,0.16515E-03_JPRB,0.25472E-03_JPRB,0.31492E-03_JPRB,0.35368E-03_JPRB, &
+ & 0.37134E-03_JPRB,0.36466E-03_JPRB,0.31971E-03_JPRB,0.66283E-04_JPRB /)  
+KA(:, 1, 8, 3) = (/ &
+ & 0.17564E-06_JPRB,0.10377E-03_JPRB,0.15799E-03_JPRB,0.19443E-03_JPRB,0.21775E-03_JPRB, &
+ & 0.23221E-03_JPRB,0.23178E-03_JPRB,0.20518E-03_JPRB,0.38613E-04_JPRB /)  
+KA(:, 2, 8, 3) = (/ &
+ & 0.16486E-06_JPRB,0.11291E-03_JPRB,0.17177E-03_JPRB,0.21060E-03_JPRB,0.23605E-03_JPRB, &
+ & 0.25023E-03_JPRB,0.24860E-03_JPRB,0.21840E-03_JPRB,0.42574E-04_JPRB /)  
+KA(:, 3, 8, 3) = (/ &
+ & 0.15532E-06_JPRB,0.12160E-03_JPRB,0.18472E-03_JPRB,0.22613E-03_JPRB,0.25383E-03_JPRB, &
+ & 0.26813E-03_JPRB,0.26569E-03_JPRB,0.23149E-03_JPRB,0.46438E-04_JPRB /)  
+KA(:, 4, 8, 3) = (/ &
+ & 0.14679E-06_JPRB,0.12871E-03_JPRB,0.19629E-03_JPRB,0.24117E-03_JPRB,0.27101E-03_JPRB, &
+ & 0.28546E-03_JPRB,0.28148E-03_JPRB,0.24511E-03_JPRB,0.50132E-04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART2',1,ZHOOK_HANDLE)
+END SUBROUTINE PART2
+
+
+SUBROUTINE PART3
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART3',0,ZHOOK_HANDLE)
+
+
+KA(:, 5, 8, 3) = (/ &
+ & 0.13913E-06_JPRB,0.13470E-03_JPRB,0.20711E-03_JPRB,0.25583E-03_JPRB,0.28735E-03_JPRB, &
+ & 0.30171E-03_JPRB,0.29653E-03_JPRB,0.25931E-03_JPRB,0.53892E-04_JPRB /)  
+KA(:, 1, 9, 3) = (/ &
+ & 0.14950E-06_JPRB,0.81941E-04_JPRB,0.12473E-03_JPRB,0.15363E-03_JPRB,0.17257E-03_JPRB, &
+ & 0.18409E-03_JPRB,0.18424E-03_JPRB,0.16439E-03_JPRB,0.30772E-04_JPRB /)  
+KA(:, 2, 9, 3) = (/ &
+ & 0.13998E-06_JPRB,0.89702E-04_JPRB,0.13655E-03_JPRB,0.16763E-03_JPRB,0.18779E-03_JPRB, &
+ & 0.19919E-03_JPRB,0.19877E-03_JPRB,0.17581E-03_JPRB,0.34022E-04_JPRB /)  
+KA(:, 3, 9, 3) = (/ &
+ & 0.13160E-06_JPRB,0.97263E-04_JPRB,0.14776E-03_JPRB,0.18089E-03_JPRB,0.20292E-03_JPRB, &
+ & 0.21451E-03_JPRB,0.21317E-03_JPRB,0.18640E-03_JPRB,0.37381E-04_JPRB /)  
+KA(:, 4, 9, 3) = (/ &
+ & 0.12415E-06_JPRB,0.10389E-03_JPRB,0.15817E-03_JPRB,0.19404E-03_JPRB,0.21794E-03_JPRB, &
+ & 0.22980E-03_JPRB,0.22715E-03_JPRB,0.19784E-03_JPRB,0.40457E-04_JPRB /)  
+KA(:, 5, 9, 3) = (/ &
+ & 0.11749E-06_JPRB,0.10934E-03_JPRB,0.16768E-03_JPRB,0.20680E-03_JPRB,0.23234E-03_JPRB, &
+ & 0.24414E-03_JPRB,0.24026E-03_JPRB,0.20959E-03_JPRB,0.43586E-04_JPRB /)  
+KA(:, 1,10, 3) = (/ &
+ & 0.12658E-06_JPRB,0.64763E-04_JPRB,0.98690E-04_JPRB,0.12170E-03_JPRB,0.13709E-03_JPRB, &
+ & 0.14644E-03_JPRB,0.14709E-03_JPRB,0.13215E-03_JPRB,0.24737E-04_JPRB /)  
+KA(:, 2,10, 3) = (/ &
+ & 0.11826E-06_JPRB,0.71405E-04_JPRB,0.10875E-03_JPRB,0.13368E-03_JPRB,0.14978E-03_JPRB, &
+ & 0.15901E-03_JPRB,0.15937E-03_JPRB,0.14153E-03_JPRB,0.27487E-04_JPRB /)  
+KA(:, 3,10, 3) = (/ &
+ & 0.11097E-06_JPRB,0.77857E-04_JPRB,0.11842E-03_JPRB,0.14510E-03_JPRB,0.16261E-03_JPRB, &
+ & 0.17204E-03_JPRB,0.17129E-03_JPRB,0.15041E-03_JPRB,0.30250E-04_JPRB /)  
+KA(:, 4,10, 3) = (/ &
+ & 0.10451E-06_JPRB,0.83764E-04_JPRB,0.12762E-03_JPRB,0.15625E-03_JPRB,0.17544E-03_JPRB, &
+ & 0.18516E-03_JPRB,0.18345E-03_JPRB,0.16010E-03_JPRB,0.32891E-04_JPRB /)  
+KA(:, 5,10, 3) = (/ &
+ & 0.98767E-07_JPRB,0.88833E-04_JPRB,0.13595E-03_JPRB,0.16723E-03_JPRB,0.18798E-03_JPRB, &
+ & 0.19766E-03_JPRB,0.19477E-03_JPRB,0.16979E-03_JPRB,0.35547E-04_JPRB /)  
+KA(:, 1,11, 3) = (/ &
+ & 0.10368E-06_JPRB,0.53714E-04_JPRB,0.81748E-04_JPRB,0.10085E-03_JPRB,0.11349E-03_JPRB, &
+ & 0.12126E-03_JPRB,0.12180E-03_JPRB,0.10950E-03_JPRB,0.20787E-04_JPRB /)  
+KA(:, 2,11, 3) = (/ &
+ & 0.96854E-07_JPRB,0.59175E-04_JPRB,0.90131E-04_JPRB,0.11085E-03_JPRB,0.12425E-03_JPRB, &
+ & 0.13166E-03_JPRB,0.13207E-03_JPRB,0.11733E-03_JPRB,0.23028E-04_JPRB /)  
+KA(:, 3,11, 3) = (/ &
+ & 0.90882E-07_JPRB,0.64593E-04_JPRB,0.98275E-04_JPRB,0.12041E-03_JPRB,0.13497E-03_JPRB, &
+ & 0.14273E-03_JPRB,0.14215E-03_JPRB,0.12479E-03_JPRB,0.25362E-04_JPRB /)  
+KA(:, 4,11, 3) = (/ &
+ & 0.85602E-07_JPRB,0.69545E-04_JPRB,0.10592E-03_JPRB,0.12982E-03_JPRB,0.14583E-03_JPRB, &
+ & 0.15388E-03_JPRB,0.15228E-03_JPRB,0.13297E-03_JPRB,0.27585E-04_JPRB /)  
+KA(:, 5,11, 3) = (/ &
+ & 0.80889E-07_JPRB,0.73731E-04_JPRB,0.11290E-03_JPRB,0.13914E-03_JPRB,0.15637E-03_JPRB, &
+ & 0.16431E-03_JPRB,0.16189E-03_JPRB,0.14116E-03_JPRB,0.29828E-04_JPRB /)  
+KA(:, 1,12, 3) = (/ &
+ & 0.84886E-07_JPRB,0.44418E-04_JPRB,0.67641E-04_JPRB,0.83490E-04_JPRB,0.93906E-04_JPRB, &
+ & 0.10034E-03_JPRB,0.10075E-03_JPRB,0.90614E-04_JPRB,0.17350E-04_JPRB /)  
+KA(:, 2,12, 3) = (/ &
+ & 0.79297E-07_JPRB,0.48981E-04_JPRB,0.74656E-04_JPRB,0.91821E-04_JPRB,0.10299E-03_JPRB, &
+ & 0.10891E-03_JPRB,0.10933E-03_JPRB,0.97221E-04_JPRB,0.19237E-04_JPRB /)  
+KA(:, 3,12, 3) = (/ &
+ & 0.74408E-07_JPRB,0.53553E-04_JPRB,0.81503E-04_JPRB,0.99872E-04_JPRB,0.11196E-03_JPRB, &
+ & 0.11832E-03_JPRB,0.11782E-03_JPRB,0.10341E-03_JPRB,0.21189E-04_JPRB /)  
+KA(:, 4,12, 3) = (/ &
+ & 0.70085E-07_JPRB,0.57698E-04_JPRB,0.87887E-04_JPRB,0.10781E-03_JPRB,0.12107E-03_JPRB, &
+ & 0.12775E-03_JPRB,0.12624E-03_JPRB,0.11034E-03_JPRB,0.23038E-04_JPRB /)  
+KA(:, 5,12, 3) = (/ &
+ & 0.66226E-07_JPRB,0.61177E-04_JPRB,0.93694E-04_JPRB,0.11567E-03_JPRB,0.12995E-03_JPRB, &
+ & 0.13645E-03_JPRB,0.13436E-03_JPRB,0.11726E-03_JPRB,0.24913E-04_JPRB /)  
+KA(:, 1,13, 3) = (/ &
+ & 0.69499E-07_JPRB,0.36716E-04_JPRB,0.55902E-04_JPRB,0.69067E-04_JPRB,0.77635E-04_JPRB, &
+ & 0.82934E-04_JPRB,0.83302E-04_JPRB,0.74905E-04_JPRB,0.14419E-04_JPRB /)  
+KA(:, 2,13, 3) = (/ &
+ & 0.64923E-07_JPRB,0.40511E-04_JPRB,0.61779E-04_JPRB,0.75984E-04_JPRB,0.85239E-04_JPRB, &
+ & 0.90090E-04_JPRB,0.90456E-04_JPRB,0.80264E-04_JPRB,0.15996E-04_JPRB /)  
+KA(:, 3,13, 3) = (/ &
+ & 0.60920E-07_JPRB,0.44356E-04_JPRB,0.67533E-04_JPRB,0.82746E-04_JPRB,0.92816E-04_JPRB, &
+ & 0.98017E-04_JPRB,0.97590E-04_JPRB,0.85621E-04_JPRB,0.17623E-04_JPRB /)  
+KA(:, 4,13, 3) = (/ &
+ & 0.57381E-07_JPRB,0.47826E-04_JPRB,0.72874E-04_JPRB,0.89443E-04_JPRB,0.10040E-03_JPRB, &
+ & 0.10588E-03_JPRB,0.10456E-03_JPRB,0.91429E-04_JPRB,0.19144E-04_JPRB /)  
+KA(:, 5,13, 3) = (/ &
+ & 0.54221E-07_JPRB,0.50750E-04_JPRB,0.77698E-04_JPRB,0.96005E-04_JPRB,0.10784E-03_JPRB, &
+ & 0.11318E-03_JPRB,0.11139E-03_JPRB,0.97258E-04_JPRB,0.20671E-04_JPRB /)  
+KA(:, 1, 1, 4) = (/ &
+ & 0.36654E-05_JPRB,0.13689E-02_JPRB,0.21108E-02_JPRB,0.26314E-02_JPRB,0.29458E-02_JPRB, &
+ & 0.30831E-02_JPRB,0.30207E-02_JPRB,0.26003E-02_JPRB,0.93689E-03_JPRB /)  
+KA(:, 2, 1, 4) = (/ &
+ & 0.35304E-05_JPRB,0.14025E-02_JPRB,0.21716E-02_JPRB,0.27078E-02_JPRB,0.30551E-02_JPRB, &
+ & 0.31948E-02_JPRB,0.31649E-02_JPRB,0.27258E-02_JPRB,0.97983E-03_JPRB /)  
+KA(:, 3, 1, 4) = (/ &
+ & 0.34059E-05_JPRB,0.14340E-02_JPRB,0.22214E-02_JPRB,0.27773E-02_JPRB,0.31348E-02_JPRB, &
+ & 0.33049E-02_JPRB,0.32835E-02_JPRB,0.28461E-02_JPRB,0.10251E-02_JPRB /)  
+KA(:, 4, 1, 4) = (/ &
+ & 0.32895E-05_JPRB,0.14610E-02_JPRB,0.22596E-02_JPRB,0.28314E-02_JPRB,0.32113E-02_JPRB, &
+ & 0.34131E-02_JPRB,0.33921E-02_JPRB,0.29508E-02_JPRB,0.10730E-02_JPRB /)  
+KA(:, 5, 1, 4) = (/ &
+ & 0.31814E-05_JPRB,0.14814E-02_JPRB,0.22905E-02_JPRB,0.28789E-02_JPRB,0.32785E-02_JPRB, &
+ & 0.34996E-02_JPRB,0.34952E-02_JPRB,0.30528E-02_JPRB,0.11205E-02_JPRB /)  
+KA(:, 1, 2, 4) = (/ &
+ & 0.30293E-05_JPRB,0.11600E-02_JPRB,0.17946E-02_JPRB,0.22370E-02_JPRB,0.25205E-02_JPRB, &
+ & 0.26432E-02_JPRB,0.26172E-02_JPRB,0.22691E-02_JPRB,0.78466E-03_JPRB /)  
+KA(:, 2, 2, 4) = (/ &
+ & 0.29173E-05_JPRB,0.11916E-02_JPRB,0.18468E-02_JPRB,0.23072E-02_JPRB,0.26094E-02_JPRB, &
+ & 0.27477E-02_JPRB,0.27388E-02_JPRB,0.23809E-02_JPRB,0.82356E-03_JPRB /)  
+KA(:, 3, 2, 4) = (/ &
+ & 0.28152E-05_JPRB,0.12203E-02_JPRB,0.18939E-02_JPRB,0.23691E-02_JPRB,0.26814E-02_JPRB, &
+ & 0.28506E-02_JPRB,0.28414E-02_JPRB,0.24825E-02_JPRB,0.86161E-03_JPRB /)  
+KA(:, 4, 2, 4) = (/ &
+ & 0.27207E-05_JPRB,0.12454E-02_JPRB,0.19291E-02_JPRB,0.24180E-02_JPRB,0.27489E-02_JPRB, &
+ & 0.29380E-02_JPRB,0.29345E-02_JPRB,0.25808E-02_JPRB,0.90328E-03_JPRB /)  
+KA(:, 5, 2, 4) = (/ &
+ & 0.26316E-05_JPRB,0.12644E-02_JPRB,0.19586E-02_JPRB,0.24624E-02_JPRB,0.28146E-02_JPRB, &
+ & 0.30125E-02_JPRB,0.30237E-02_JPRB,0.26695E-02_JPRB,0.94678E-03_JPRB /)  
+KA(:, 1, 3, 4) = (/ &
+ & 0.25288E-05_JPRB,0.97348E-03_JPRB,0.15070E-02_JPRB,0.18795E-02_JPRB,0.21206E-02_JPRB, &
+ & 0.22362E-02_JPRB,0.22210E-02_JPRB,0.19369E-02_JPRB,0.64308E-03_JPRB /)  
+KA(:, 2, 3, 4) = (/ &
+ & 0.24353E-05_JPRB,0.10031E-02_JPRB,0.15552E-02_JPRB,0.19441E-02_JPRB,0.22013E-02_JPRB, &
+ & 0.23257E-02_JPRB,0.23286E-02_JPRB,0.20362E-02_JPRB,0.67529E-03_JPRB /)  
+KA(:, 3, 3, 4) = (/ &
+ & 0.23495E-05_JPRB,0.10295E-02_JPRB,0.15986E-02_JPRB,0.20019E-02_JPRB,0.22663E-02_JPRB, &
+ & 0.24160E-02_JPRB,0.24204E-02_JPRB,0.21276E-02_JPRB,0.70991E-03_JPRB /)  
+KA(:, 4, 3, 4) = (/ &
+ & 0.22699E-05_JPRB,0.10533E-02_JPRB,0.16337E-02_JPRB,0.20489E-02_JPRB,0.23288E-02_JPRB, &
+ & 0.24911E-02_JPRB,0.25016E-02_JPRB,0.22148E-02_JPRB,0.74635E-03_JPRB /)  
+KA(:, 5, 3, 4) = (/ &
+ & 0.21951E-05_JPRB,0.10724E-02_JPRB,0.16625E-02_JPRB,0.20891E-02_JPRB,0.23896E-02_JPRB, &
+ & 0.25582E-02_JPRB,0.25812E-02_JPRB,0.22925E-02_JPRB,0.78432E-03_JPRB /)  
+KA(:, 1, 4, 4) = (/ &
+ & 0.21169E-05_JPRB,0.81053E-03_JPRB,0.12568E-02_JPRB,0.15647E-02_JPRB,0.17654E-02_JPRB, &
+ & 0.18662E-02_JPRB,0.18568E-02_JPRB,0.16269E-02_JPRB,0.52608E-03_JPRB /)  
+KA(:, 2, 4, 4) = (/ &
+ & 0.20407E-05_JPRB,0.83875E-03_JPRB,0.13019E-02_JPRB,0.16252E-02_JPRB,0.18383E-02_JPRB, &
+ & 0.19441E-02_JPRB,0.19538E-02_JPRB,0.17139E-02_JPRB,0.55325E-03_JPRB /)  
+KA(:, 3, 4, 4) = (/ &
+ & 0.19674E-05_JPRB,0.86329E-03_JPRB,0.13417E-02_JPRB,0.16788E-02_JPRB,0.18985E-02_JPRB, &
+ & 0.20246E-02_JPRB,0.20315E-02_JPRB,0.17978E-02_JPRB,0.58253E-03_JPRB /)  
+KA(:, 4, 4, 4) = (/ &
+ & 0.18994E-05_JPRB,0.88551E-03_JPRB,0.13753E-02_JPRB,0.17238E-02_JPRB,0.19566E-02_JPRB, &
+ & 0.20923E-02_JPRB,0.21035E-02_JPRB,0.18724E-02_JPRB,0.61438E-03_JPRB /)  
+KA(:, 5, 4, 4) = (/ &
+ & 0.18358E-05_JPRB,0.90442E-03_JPRB,0.14042E-02_JPRB,0.17619E-02_JPRB,0.20119E-02_JPRB, &
+ & 0.21542E-02_JPRB,0.21749E-02_JPRB,0.19425E-02_JPRB,0.64762E-03_JPRB /)  
+KA(:, 1, 5, 4) = (/ &
+ & 0.17725E-05_JPRB,0.67146E-03_JPRB,0.10396E-02_JPRB,0.12935E-02_JPRB,0.14576E-02_JPRB, &
+ & 0.15437E-02_JPRB,0.15341E-02_JPRB,0.13532E-02_JPRB,0.42981E-03_JPRB /)  
+KA(:, 2, 5, 4) = (/ &
+ & 0.17095E-05_JPRB,0.69774E-03_JPRB,0.10823E-02_JPRB,0.13477E-02_JPRB,0.15227E-02_JPRB, &
+ & 0.16117E-02_JPRB,0.16222E-02_JPRB,0.14302E-02_JPRB,0.45286E-03_JPRB /)  
+KA(:, 3, 5, 4) = (/ &
+ & 0.16478E-05_JPRB,0.72044E-03_JPRB,0.11190E-02_JPRB,0.13967E-02_JPRB,0.15783E-02_JPRB, &
+ & 0.16817E-02_JPRB,0.16897E-02_JPRB,0.15040E-02_JPRB,0.47782E-03_JPRB /)  
+KA(:, 4, 5, 4) = (/ &
+ & 0.15896E-05_JPRB,0.74136E-03_JPRB,0.11512E-02_JPRB,0.14394E-02_JPRB,0.16307E-02_JPRB, &
+ & 0.17435E-02_JPRB,0.17536E-02_JPRB,0.15687E-02_JPRB,0.50468E-03_JPRB /)  
+KA(:, 5, 5, 4) = (/ &
+ & 0.15353E-05_JPRB,0.75977E-03_JPRB,0.11790E-02_JPRB,0.14755E-02_JPRB,0.16811E-02_JPRB, &
+ & 0.17990E-02_JPRB,0.18175E-02_JPRB,0.16279E-02_JPRB,0.53353E-03_JPRB /)  
+KA(:, 1, 6, 4) = (/ &
+ & 0.14856E-05_JPRB,0.55163E-03_JPRB,0.85182E-03_JPRB,0.10583E-02_JPRB,0.11933E-02_JPRB, &
+ & 0.12633E-02_JPRB,0.12519E-02_JPRB,0.11126E-02_JPRB,0.34969E-03_JPRB /)  
+KA(:, 2, 6, 4) = (/ &
+ & 0.14323E-05_JPRB,0.57534E-03_JPRB,0.89211E-03_JPRB,0.11084E-02_JPRB,0.12510E-02_JPRB, &
+ & 0.13248E-02_JPRB,0.13302E-02_JPRB,0.11815E-02_JPRB,0.36893E-03_JPRB /)  
+KA(:, 3, 6, 4) = (/ &
+ & 0.13818E-05_JPRB,0.59705E-03_JPRB,0.92552E-03_JPRB,0.11530E-02_JPRB,0.13018E-02_JPRB, &
+ & 0.13860E-02_JPRB,0.13942E-02_JPRB,0.12437E-02_JPRB,0.38991E-03_JPRB /)  
+KA(:, 4, 6, 4) = (/ &
+ & 0.13317E-05_JPRB,0.61671E-03_JPRB,0.95568E-03_JPRB,0.11922E-02_JPRB,0.13481E-02_JPRB, &
+ & 0.14426E-02_JPRB,0.14508E-02_JPRB,0.13001E-02_JPRB,0.41248E-03_JPRB /)  
+KA(:, 5, 6, 4) = (/ &
+ & 0.12851E-05_JPRB,0.63414E-03_JPRB,0.98227E-03_JPRB,0.12265E-02_JPRB,0.13936E-02_JPRB, &
+ & 0.14913E-02_JPRB,0.15064E-02_JPRB,0.13512E-02_JPRB,0.43696E-03_JPRB /)  
+KA(:, 1, 7, 4) = (/ &
+ & 0.12453E-05_JPRB,0.44982E-03_JPRB,0.69286E-03_JPRB,0.85857E-03_JPRB,0.97115E-03_JPRB, &
+ & 0.10268E-02_JPRB,0.10132E-02_JPRB,0.90661E-03_JPRB,0.28333E-03_JPRB /)  
+KA(:, 2, 7, 4) = (/ &
+ & 0.11997E-05_JPRB,0.47163E-03_JPRB,0.72984E-03_JPRB,0.90525E-03_JPRB,0.10209E-02_JPRB, &
+ & 0.10830E-02_JPRB,0.10815E-02_JPRB,0.96820E-03_JPRB,0.29991E-03_JPRB /)  
+KA(:, 3, 7, 4) = (/ &
+ & 0.11571E-05_JPRB,0.49170E-03_JPRB,0.76064E-03_JPRB,0.94597E-03_JPRB,0.10683E-02_JPRB, &
+ & 0.11337E-02_JPRB,0.11418E-02_JPRB,0.10210E-02_JPRB,0.31738E-03_JPRB /)  
+KA(:, 4, 7, 4) = (/ &
+ & 0.11157E-05_JPRB,0.50964E-03_JPRB,0.78859E-03_JPRB,0.98236E-03_JPRB,0.11088E-02_JPRB, &
+ & 0.11859E-02_JPRB,0.11920E-02_JPRB,0.10690E-02_JPRB,0.33600E-03_JPRB /)  
+KA(:, 5, 7, 4) = (/ &
+ & 0.10757E-05_JPRB,0.52578E-03_JPRB,0.81330E-03_JPRB,0.10141E-02_JPRB,0.11493E-02_JPRB, &
+ & 0.12285E-02_JPRB,0.12399E-02_JPRB,0.11151E-02_JPRB,0.35631E-03_JPRB /)  
+KA(:, 1, 8, 4) = (/ &
+ & 0.10436E-05_JPRB,0.36475E-03_JPRB,0.55948E-03_JPRB,0.69399E-03_JPRB,0.78699E-03_JPRB, &
+ & 0.82733E-03_JPRB,0.81546E-03_JPRB,0.73443E-03_JPRB,0.22874E-03_JPRB /)  
+KA(:, 2, 8, 4) = (/ &
+ & 0.10043E-05_JPRB,0.38461E-03_JPRB,0.59365E-03_JPRB,0.73631E-03_JPRB,0.82902E-03_JPRB, &
+ & 0.87996E-03_JPRB,0.87589E-03_JPRB,0.78745E-03_JPRB,0.24281E-03_JPRB /)  
+KA(:, 3, 8, 4) = (/ &
+ & 0.96785E-06_JPRB,0.40227E-03_JPRB,0.62191E-03_JPRB,0.77183E-03_JPRB,0.87067E-03_JPRB, &
+ & 0.92338E-03_JPRB,0.93116E-03_JPRB,0.83334E-03_JPRB,0.25735E-03_JPRB /)  
+KA(:, 4, 8, 4) = (/ &
+ & 0.93367E-06_JPRB,0.41881E-03_JPRB,0.64697E-03_JPRB,0.80474E-03_JPRB,0.90754E-03_JPRB, &
+ & 0.96806E-03_JPRB,0.97434E-03_JPRB,0.87439E-03_JPRB,0.27286E-03_JPRB /)  
+KA(:, 5, 8, 4) = (/ &
+ & 0.90017E-06_JPRB,0.43377E-03_JPRB,0.67026E-03_JPRB,0.83398E-03_JPRB,0.94269E-03_JPRB, &
+ & 0.10080E-02_JPRB,0.10154E-02_JPRB,0.91479E-03_JPRB,0.28948E-03_JPRB /)  
+KA(:, 1, 9, 4) = (/ &
+ & 0.87469E-06_JPRB,0.29345E-03_JPRB,0.44857E-03_JPRB,0.55653E-03_JPRB,0.63371E-03_JPRB, &
+ & 0.66253E-03_JPRB,0.65229E-03_JPRB,0.59009E-03_JPRB,0.18475E-03_JPRB /)  
+KA(:, 2, 9, 4) = (/ &
+ & 0.84062E-06_JPRB,0.31152E-03_JPRB,0.47975E-03_JPRB,0.59422E-03_JPRB,0.67077E-03_JPRB, &
+ & 0.71168E-03_JPRB,0.70550E-03_JPRB,0.63674E-03_JPRB,0.19669E-03_JPRB /)  
+KA(:, 3, 9, 4) = (/ &
+ & 0.80947E-06_JPRB,0.32779E-03_JPRB,0.50582E-03_JPRB,0.62707E-03_JPRB,0.70705E-03_JPRB, &
+ & 0.74936E-03_JPRB,0.75252E-03_JPRB,0.67682E-03_JPRB,0.20896E-03_JPRB /)  
+KA(:, 4, 9, 4) = (/ &
+ & 0.78052E-06_JPRB,0.34262E-03_JPRB,0.52820E-03_JPRB,0.65631E-03_JPRB,0.74002E-03_JPRB, &
+ & 0.78731E-03_JPRB,0.79257E-03_JPRB,0.71155E-03_JPRB,0.22197E-03_JPRB /)  
+KA(:, 5, 9, 4) = (/ &
+ & 0.75300E-06_JPRB,0.35618E-03_JPRB,0.54940E-03_JPRB,0.68236E-03_JPRB,0.76978E-03_JPRB, &
+ & 0.82271E-03_JPRB,0.82806E-03_JPRB,0.74658E-03_JPRB,0.23588E-03_JPRB /)  
+KA(:, 1,10, 4) = (/ &
+ & 0.73080E-06_JPRB,0.23619E-03_JPRB,0.36002E-03_JPRB,0.44769E-03_JPRB,0.51001E-03_JPRB, &
+ & 0.53294E-03_JPRB,0.52319E-03_JPRB,0.47492E-03_JPRB,0.15005E-03_JPRB /)  
+KA(:, 2,10, 4) = (/ &
+ & 0.70142E-06_JPRB,0.25225E-03_JPRB,0.38742E-03_JPRB,0.48039E-03_JPRB,0.54285E-03_JPRB, &
+ & 0.57407E-03_JPRB,0.56765E-03_JPRB,0.51444E-03_JPRB,0.16000E-03_JPRB /)  
+KA(:, 3,10, 4) = (/ &
+ & 0.67484E-06_JPRB,0.26687E-03_JPRB,0.41119E-03_JPRB,0.50924E-03_JPRB,0.57372E-03_JPRB, &
+ & 0.60912E-03_JPRB,0.60813E-03_JPRB,0.54945E-03_JPRB,0.17036E-03_JPRB /)  
+KA(:, 4,10, 4) = (/ &
+ & 0.65032E-06_JPRB,0.28002E-03_JPRB,0.43104E-03_JPRB,0.53513E-03_JPRB,0.60294E-03_JPRB, &
+ & 0.63998E-03_JPRB,0.64485E-03_JPRB,0.57888E-03_JPRB,0.18120E-03_JPRB /)  
+KA(:, 5,10, 4) = (/ &
+ & 0.62752E-06_JPRB,0.29182E-03_JPRB,0.44950E-03_JPRB,0.55836E-03_JPRB,0.62849E-03_JPRB, &
+ & 0.67148E-03_JPRB,0.67570E-03_JPRB,0.60918E-03_JPRB,0.19271E-03_JPRB /)  
+KA(:, 1,11, 4) = (/ &
+ & 0.59846E-06_JPRB,0.19603E-03_JPRB,0.29902E-03_JPRB,0.37159E-03_JPRB,0.42367E-03_JPRB, &
+ & 0.44241E-03_JPRB,0.43550E-03_JPRB,0.39618E-03_JPRB,0.12498E-03_JPRB /)  
+KA(:, 2,11, 4) = (/ &
+ & 0.57447E-06_JPRB,0.20953E-03_JPRB,0.32187E-03_JPRB,0.39882E-03_JPRB,0.45021E-03_JPRB, &
+ & 0.47717E-03_JPRB,0.47240E-03_JPRB,0.42894E-03_JPRB,0.13362E-03_JPRB /)  
+KA(:, 3,11, 4) = (/ &
+ & 0.55265E-06_JPRB,0.22185E-03_JPRB,0.34133E-03_JPRB,0.42283E-03_JPRB,0.47616E-03_JPRB, &
+ & 0.50481E-03_JPRB,0.50553E-03_JPRB,0.45654E-03_JPRB,0.14246E-03_JPRB /)  
+KA(:, 4,11, 4) = (/ &
+ & 0.53259E-06_JPRB,0.23301E-03_JPRB,0.35816E-03_JPRB,0.44448E-03_JPRB,0.50048E-03_JPRB, &
+ & 0.53147E-03_JPRB,0.53574E-03_JPRB,0.48169E-03_JPRB,0.15168E-03_JPRB /)  
+KA(:, 5,11, 4) = (/ &
+ & 0.51379E-06_JPRB,0.24302E-03_JPRB,0.37383E-03_JPRB,0.46352E-03_JPRB,0.52203E-03_JPRB, &
+ & 0.55783E-03_JPRB,0.56175E-03_JPRB,0.50737E-03_JPRB,0.16153E-03_JPRB /)  
+KA(:, 1,12, 4) = (/ &
+ & 0.49006E-06_JPRB,0.16259E-03_JPRB,0.24802E-03_JPRB,0.30804E-03_JPRB,0.35111E-03_JPRB, &
+ & 0.36672E-03_JPRB,0.36166E-03_JPRB,0.32968E-03_JPRB,0.10401E-03_JPRB /)  
+KA(:, 2,12, 4) = (/ &
+ & 0.47033E-06_JPRB,0.17379E-03_JPRB,0.26697E-03_JPRB,0.33069E-03_JPRB,0.37292E-03_JPRB, &
+ & 0.39587E-03_JPRB,0.39239E-03_JPRB,0.35672E-03_JPRB,0.11138E-03_JPRB /)  
+KA(:, 3,12, 4) = (/ &
+ & 0.45247E-06_JPRB,0.18417E-03_JPRB,0.28295E-03_JPRB,0.35045E-03_JPRB,0.39465E-03_JPRB, &
+ & 0.41825E-03_JPRB,0.41984E-03_JPRB,0.37867E-03_JPRB,0.11882E-03_JPRB /)  
+KA(:, 4,12, 4) = (/ &
+ & 0.43605E-06_JPRB,0.19351E-03_JPRB,0.29716E-03_JPRB,0.36850E-03_JPRB,0.41489E-03_JPRB, &
+ & 0.44074E-03_JPRB,0.44460E-03_JPRB,0.40031E-03_JPRB,0.12667E-03_JPRB /)  
+KA(:, 5,12, 4) = (/ &
+ & 0.42066E-06_JPRB,0.20206E-03_JPRB,0.31038E-03_JPRB,0.38464E-03_JPRB,0.43337E-03_JPRB, &
+ & 0.46297E-03_JPRB,0.46667E-03_JPRB,0.42202E-03_JPRB,0.13498E-03_JPRB /)  
+KA(:, 1,13, 4) = (/ &
+ & 0.40122E-06_JPRB,0.13465E-03_JPRB,0.20541E-03_JPRB,0.25488E-03_JPRB,0.29006E-03_JPRB, &
+ & 0.30358E-03_JPRB,0.29984E-03_JPRB,0.27375E-03_JPRB,0.86406E-04_JPRB /)  
+KA(:, 2,13, 4) = (/ &
+ & 0.38502E-06_JPRB,0.14398E-03_JPRB,0.22086E-03_JPRB,0.27376E-03_JPRB,0.30832E-03_JPRB, &
+ & 0.32794E-03_JPRB,0.32517E-03_JPRB,0.29562E-03_JPRB,0.92614E-04_JPRB /)  
+KA(:, 3,13, 4) = (/ &
+ & 0.37045E-06_JPRB,0.15266E-03_JPRB,0.23416E-03_JPRB,0.29013E-03_JPRB,0.32675E-03_JPRB, &
+ & 0.34622E-03_JPRB,0.34816E-03_JPRB,0.31401E-03_JPRB,0.98880E-04_JPRB /)  
+KA(:, 4,13, 4) = (/ &
+ & 0.35702E-06_JPRB,0.16050E-03_JPRB,0.24608E-03_JPRB,0.30521E-03_JPRB,0.34336E-03_JPRB, &
+ & 0.36522E-03_JPRB,0.36857E-03_JPRB,0.33246E-03_JPRB,0.10559E-03_JPRB /)  
+KA(:, 5,13, 4) = (/ &
+ & 0.34440E-06_JPRB,0.16771E-03_JPRB,0.25742E-03_JPRB,0.31904E-03_JPRB,0.35943E-03_JPRB, &
+ & 0.38405E-03_JPRB,0.38715E-03_JPRB,0.35087E-03_JPRB,0.11262E-03_JPRB /)  
+KA(:, 1, 1, 5) = (/ &
+ & 0.15583E-03_JPRB,0.37546E-02_JPRB,0.53536E-02_JPRB,0.64161E-02_JPRB,0.71223E-02_JPRB, &
+ & 0.74982E-02_JPRB,0.73596E-02_JPRB,0.65135E-02_JPRB,0.35175E-02_JPRB /)  
+KA(:, 2, 1, 5) = (/ &
+ & 0.16148E-03_JPRB,0.38569E-02_JPRB,0.55256E-02_JPRB,0.66461E-02_JPRB,0.73757E-02_JPRB, &
+ & 0.77530E-02_JPRB,0.75665E-02_JPRB,0.66496E-02_JPRB,0.36840E-02_JPRB /)  
+KA(:, 3, 1, 5) = (/ &
+ & 0.16484E-03_JPRB,0.39353E-02_JPRB,0.56745E-02_JPRB,0.68364E-02_JPRB,0.76166E-02_JPRB, &
+ & 0.79711E-02_JPRB,0.77717E-02_JPRB,0.67846E-02_JPRB,0.38485E-02_JPRB /)  
+KA(:, 4, 1, 5) = (/ &
+ & 0.16621E-03_JPRB,0.39946E-02_JPRB,0.57947E-02_JPRB,0.70071E-02_JPRB,0.78193E-02_JPRB, &
+ & 0.81581E-02_JPRB,0.79592E-02_JPRB,0.69132E-02_JPRB,0.39769E-02_JPRB /)  
+KA(:, 5, 1, 5) = (/ &
+ & 0.16518E-03_JPRB,0.40386E-02_JPRB,0.58925E-02_JPRB,0.71530E-02_JPRB,0.79946E-02_JPRB, &
+ & 0.83258E-02_JPRB,0.81107E-02_JPRB,0.70226E-02_JPRB,0.41134E-02_JPRB /)  
+KA(:, 1, 2, 5) = (/ &
+ & 0.12482E-03_JPRB,0.32204E-02_JPRB,0.46102E-02_JPRB,0.55475E-02_JPRB,0.61730E-02_JPRB, &
+ & 0.65000E-02_JPRB,0.63942E-02_JPRB,0.56394E-02_JPRB,0.30002E-02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART3',1,ZHOOK_HANDLE)
+END SUBROUTINE PART3
+
+
+SUBROUTINE PART4
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART4',0,ZHOOK_HANDLE)
+
+
+KA(:, 2, 2, 5) = (/ &
+ & 0.13027E-03_JPRB,0.33099E-02_JPRB,0.47617E-02_JPRB,0.57497E-02_JPRB,0.64031E-02_JPRB, &
+ & 0.67184E-02_JPRB,0.65829E-02_JPRB,0.57721E-02_JPRB,0.31442E-02_JPRB /)  
+KA(:, 3, 2, 5) = (/ &
+ & 0.13370E-03_JPRB,0.33808E-02_JPRB,0.48845E-02_JPRB,0.59235E-02_JPRB,0.66074E-02_JPRB, &
+ & 0.69048E-02_JPRB,0.67660E-02_JPRB,0.59018E-02_JPRB,0.32788E-02_JPRB /)  
+KA(:, 4, 2, 5) = (/ &
+ & 0.13549E-03_JPRB,0.34340E-02_JPRB,0.49885E-02_JPRB,0.60745E-02_JPRB,0.67877E-02_JPRB, &
+ & 0.70780E-02_JPRB,0.69202E-02_JPRB,0.60131E-02_JPRB,0.33946E-02_JPRB /)  
+KA(:, 5, 2, 5) = (/ &
+ & 0.13543E-03_JPRB,0.34778E-02_JPRB,0.50745E-02_JPRB,0.61981E-02_JPRB,0.69282E-02_JPRB, &
+ & 0.72229E-02_JPRB,0.70521E-02_JPRB,0.61218E-02_JPRB,0.35097E-02_JPRB /)  
+KA(:, 1, 3, 5) = (/ &
+ & 0.98437E-04_JPRB,0.27209E-02_JPRB,0.39035E-02_JPRB,0.47185E-02_JPRB,0.52706E-02_JPRB, &
+ & 0.55579E-02_JPRB,0.54846E-02_JPRB,0.48469E-02_JPRB,0.25077E-02_JPRB /)  
+KA(:, 2, 3, 5) = (/ &
+ & 0.10396E-03_JPRB,0.28031E-02_JPRB,0.40384E-02_JPRB,0.48993E-02_JPRB,0.54753E-02_JPRB, &
+ & 0.57575E-02_JPRB,0.56525E-02_JPRB,0.49684E-02_JPRB,0.26366E-02_JPRB /)  
+KA(:, 3, 3, 5) = (/ &
+ & 0.10770E-03_JPRB,0.28702E-02_JPRB,0.41513E-02_JPRB,0.50504E-02_JPRB,0.56640E-02_JPRB, &
+ & 0.59245E-02_JPRB,0.58125E-02_JPRB,0.50922E-02_JPRB,0.27478E-02_JPRB /)  
+KA(:, 4, 3, 5) = (/ &
+ & 0.10996E-03_JPRB,0.29232E-02_JPRB,0.42451E-02_JPRB,0.51838E-02_JPRB,0.58257E-02_JPRB, &
+ & 0.60793E-02_JPRB,0.59498E-02_JPRB,0.51949E-02_JPRB,0.28490E-02_JPRB /)  
+KA(:, 5, 3, 5) = (/ &
+ & 0.11088E-03_JPRB,0.29645E-02_JPRB,0.43251E-02_JPRB,0.52992E-02_JPRB,0.59468E-02_JPRB, &
+ & 0.62096E-02_JPRB,0.60648E-02_JPRB,0.52904E-02_JPRB,0.29495E-02_JPRB /)  
+KA(:, 1, 4, 5) = (/ &
+ & 0.76587E-04_JPRB,0.22792E-02_JPRB,0.32731E-02_JPRB,0.39724E-02_JPRB,0.44561E-02_JPRB, &
+ & 0.47109E-02_JPRB,0.46706E-02_JPRB,0.41444E-02_JPRB,0.20810E-02_JPRB /)  
+KA(:, 2, 4, 5) = (/ &
+ & 0.82225E-04_JPRB,0.23548E-02_JPRB,0.33943E-02_JPRB,0.41325E-02_JPRB,0.46415E-02_JPRB, &
+ & 0.48939E-02_JPRB,0.48200E-02_JPRB,0.42591E-02_JPRB,0.21925E-02_JPRB /)  
+KA(:, 3, 4, 5) = (/ &
+ & 0.86203E-04_JPRB,0.24180E-02_JPRB,0.34991E-02_JPRB,0.42684E-02_JPRB,0.48074E-02_JPRB, &
+ & 0.50416E-02_JPRB,0.49651E-02_JPRB,0.43643E-02_JPRB,0.22938E-02_JPRB /)  
+KA(:, 4, 4, 5) = (/ &
+ & 0.88766E-04_JPRB,0.24694E-02_JPRB,0.35874E-02_JPRB,0.43875E-02_JPRB,0.49469E-02_JPRB, &
+ & 0.51810E-02_JPRB,0.50850E-02_JPRB,0.44606E-02_JPRB,0.23791E-02_JPRB /)  
+KA(:, 5, 4, 5) = (/ &
+ & 0.90218E-04_JPRB,0.25110E-02_JPRB,0.36613E-02_JPRB,0.44937E-02_JPRB,0.50548E-02_JPRB, &
+ & 0.52982E-02_JPRB,0.51883E-02_JPRB,0.45498E-02_JPRB,0.24658E-02_JPRB /)  
+KA(:, 1, 5, 5) = (/ &
+ & 0.59080E-04_JPRB,0.18972E-02_JPRB,0.27294E-02_JPRB,0.33195E-02_JPRB,0.37395E-02_JPRB, &
+ & 0.39683E-02_JPRB,0.39523E-02_JPRB,0.35161E-02_JPRB,0.17195E-02_JPRB /)  
+KA(:, 2, 5, 5) = (/ &
+ & 0.64508E-04_JPRB,0.19673E-02_JPRB,0.28376E-02_JPRB,0.34632E-02_JPRB,0.39033E-02_JPRB, &
+ & 0.41343E-02_JPRB,0.40826E-02_JPRB,0.36195E-02_JPRB,0.18173E-02_JPRB /)  
+KA(:, 3, 5, 5) = (/ &
+ & 0.68538E-04_JPRB,0.20264E-02_JPRB,0.29342E-02_JPRB,0.35856E-02_JPRB,0.40488E-02_JPRB, &
+ & 0.42664E-02_JPRB,0.42141E-02_JPRB,0.37144E-02_JPRB,0.19081E-02_JPRB /)  
+KA(:, 4, 5, 5) = (/ &
+ & 0.71328E-04_JPRB,0.20750E-02_JPRB,0.30165E-02_JPRB,0.36933E-02_JPRB,0.41719E-02_JPRB, &
+ & 0.43880E-02_JPRB,0.43221E-02_JPRB,0.38006E-02_JPRB,0.19818E-02_JPRB /)  
+KA(:, 5, 5, 5) = (/ &
+ & 0.73073E-04_JPRB,0.21155E-02_JPRB,0.30861E-02_JPRB,0.37892E-02_JPRB,0.42690E-02_JPRB, &
+ & 0.44901E-02_JPRB,0.44161E-02_JPRB,0.38864E-02_JPRB,0.20583E-02_JPRB /)  
+KA(:, 1, 6, 5) = (/ &
+ & 0.45069E-04_JPRB,0.15673E-02_JPRB,0.22596E-02_JPRB,0.27566E-02_JPRB,0.31117E-02_JPRB, &
+ & 0.33162E-02_JPRB,0.33135E-02_JPRB,0.29574E-02_JPRB,0.14089E-02_JPRB /)  
+KA(:, 2, 6, 5) = (/ &
+ & 0.49959E-04_JPRB,0.16342E-02_JPRB,0.23577E-02_JPRB,0.28828E-02_JPRB,0.32572E-02_JPRB, &
+ & 0.34626E-02_JPRB,0.34302E-02_JPRB,0.30476E-02_JPRB,0.14955E-02_JPRB /)  
+KA(:, 3, 6, 5) = (/ &
+ & 0.54013E-04_JPRB,0.16891E-02_JPRB,0.24457E-02_JPRB,0.29926E-02_JPRB,0.33865E-02_JPRB, &
+ & 0.35809E-02_JPRB,0.35427E-02_JPRB,0.31358E-02_JPRB,0.15763E-02_JPRB /)  
+KA(:, 4, 6, 5) = (/ &
+ & 0.56910E-04_JPRB,0.17356E-02_JPRB,0.25220E-02_JPRB,0.30903E-02_JPRB,0.34968E-02_JPRB, &
+ & 0.36853E-02_JPRB,0.36443E-02_JPRB,0.32140E-02_JPRB,0.16428E-02_JPRB /)  
+KA(:, 5, 6, 5) = (/ &
+ & 0.58852E-04_JPRB,0.17743E-02_JPRB,0.25868E-02_JPRB,0.31771E-02_JPRB,0.35857E-02_JPRB, &
+ & 0.37782E-02_JPRB,0.37284E-02_JPRB,0.32905E-02_JPRB,0.17079E-02_JPRB /)  
+KA(:, 1, 7, 5) = (/ &
+ & 0.34131E-04_JPRB,0.12873E-02_JPRB,0.18619E-02_JPRB,0.22745E-02_JPRB,0.25688E-02_JPRB, &
+ & 0.27494E-02_JPRB,0.27574E-02_JPRB,0.24658E-02_JPRB,0.11444E-02_JPRB /)  
+KA(:, 2, 7, 5) = (/ &
+ & 0.38379E-04_JPRB,0.13503E-02_JPRB,0.19490E-02_JPRB,0.23869E-02_JPRB,0.26985E-02_JPRB, &
+ & 0.28761E-02_JPRB,0.28607E-02_JPRB,0.25443E-02_JPRB,0.12242E-02_JPRB /)  
+KA(:, 3, 7, 5) = (/ &
+ & 0.42146E-04_JPRB,0.14018E-02_JPRB,0.20287E-02_JPRB,0.24843E-02_JPRB,0.28119E-02_JPRB, &
+ & 0.29848E-02_JPRB,0.29569E-02_JPRB,0.26258E-02_JPRB,0.12956E-02_JPRB /)  
+KA(:, 4, 7, 5) = (/ &
+ & 0.45116E-04_JPRB,0.14454E-02_JPRB,0.20989E-02_JPRB,0.25718E-02_JPRB,0.29115E-02_JPRB, &
+ & 0.30740E-02_JPRB,0.30482E-02_JPRB,0.26967E-02_JPRB,0.13537E-02_JPRB /)  
+KA(:, 5, 7, 5) = (/ &
+ & 0.47178E-04_JPRB,0.14818E-02_JPRB,0.21591E-02_JPRB,0.26509E-02_JPRB,0.29945E-02_JPRB, &
+ & 0.31590E-02_JPRB,0.31235E-02_JPRB,0.27641E-02_JPRB,0.14100E-02_JPRB /)  
+KA(:, 1, 8, 5) = (/ &
+ & 0.25656E-04_JPRB,0.10525E-02_JPRB,0.15266E-02_JPRB,0.18648E-02_JPRB,0.21060E-02_JPRB, &
+ & 0.22660E-02_JPRB,0.22807E-02_JPRB,0.20415E-02_JPRB,0.92482E-03_JPRB /)  
+KA(:, 2, 8, 5) = (/ &
+ & 0.29313E-04_JPRB,0.11096E-02_JPRB,0.16027E-02_JPRB,0.19628E-02_JPRB,0.22224E-02_JPRB, &
+ & 0.23730E-02_JPRB,0.23683E-02_JPRB,0.21111E-02_JPRB,0.99366E-03_JPRB /)  
+KA(:, 3, 8, 5) = (/ &
+ & 0.32643E-04_JPRB,0.11579E-02_JPRB,0.16732E-02_JPRB,0.20503E-02_JPRB,0.23231E-02_JPRB, &
+ & 0.24721E-02_JPRB,0.24512E-02_JPRB,0.21842E-02_JPRB,0.10570E-02_JPRB /)  
+KA(:, 4, 8, 5) = (/ &
+ & 0.35509E-04_JPRB,0.11985E-02_JPRB,0.17379E-02_JPRB,0.21284E-02_JPRB,0.24110E-02_JPRB, &
+ & 0.25519E-02_JPRB,0.25339E-02_JPRB,0.22496E-02_JPRB,0.11116E-02_JPRB /)  
+KA(:, 5, 8, 5) = (/ &
+ & 0.37616E-04_JPRB,0.12327E-02_JPRB,0.17933E-02_JPRB,0.21996E-02_JPRB,0.24880E-02_JPRB, &
+ & 0.26258E-02_JPRB,0.26029E-02_JPRB,0.23088E-02_JPRB,0.11595E-02_JPRB /)  
+KA(:, 1, 9, 5) = (/ &
+ & 0.19166E-04_JPRB,0.85559E-03_JPRB,0.12446E-02_JPRB,0.15213E-02_JPRB,0.17160E-02_JPRB, &
+ & 0.18527E-02_JPRB,0.18723E-02_JPRB,0.16794E-02_JPRB,0.74316E-03_JPRB /)  
+KA(:, 2, 9, 5) = (/ &
+ & 0.22251E-04_JPRB,0.90701E-03_JPRB,0.13107E-02_JPRB,0.16061E-02_JPRB,0.18177E-02_JPRB, &
+ & 0.19452E-02_JPRB,0.19496E-02_JPRB,0.17420E-02_JPRB,0.80168E-03_JPRB /)  
+KA(:, 3, 9, 5) = (/ &
+ & 0.25123E-04_JPRB,0.95106E-03_JPRB,0.13724E-02_JPRB,0.16826E-02_JPRB,0.19064E-02_JPRB, &
+ & 0.20352E-02_JPRB,0.20241E-02_JPRB,0.18064E-02_JPRB,0.85659E-03_JPRB /)  
+KA(:, 4, 9, 5) = (/ &
+ & 0.27713E-04_JPRB,0.98903E-03_JPRB,0.14301E-02_JPRB,0.17523E-02_JPRB,0.19862E-02_JPRB, &
+ & 0.21079E-02_JPRB,0.20944E-02_JPRB,0.18656E-02_JPRB,0.90655E-03_JPRB /)  
+KA(:, 5, 9, 5) = (/ &
+ & 0.29821E-04_JPRB,0.10207E-02_JPRB,0.14813E-02_JPRB,0.18163E-02_JPRB,0.20570E-02_JPRB, &
+ & 0.21737E-02_JPRB,0.21574E-02_JPRB,0.19153E-02_JPRB,0.94882E-03_JPRB /)  
+KA(:, 1,10, 5) = (/ &
+ & 0.14455E-04_JPRB,0.69508E-03_JPRB,0.10143E-02_JPRB,0.12382E-02_JPRB,0.13977E-02_JPRB, &
+ & 0.15101E-02_JPRB,0.15339E-02_JPRB,0.13794E-02_JPRB,0.60064E-03_JPRB /)  
+KA(:, 2,10, 5) = (/ &
+ & 0.16975E-04_JPRB,0.74055E-03_JPRB,0.10715E-02_JPRB,0.13117E-02_JPRB,0.14851E-02_JPRB, &
+ & 0.15938E-02_JPRB,0.16026E-02_JPRB,0.14354E-02_JPRB,0.65034E-03_JPRB /)  
+KA(:, 3,10, 5) = (/ &
+ & 0.19421E-04_JPRB,0.77996E-03_JPRB,0.11243E-02_JPRB,0.13791E-02_JPRB,0.15636E-02_JPRB, &
+ & 0.16707E-02_JPRB,0.16678E-02_JPRB,0.14908E-02_JPRB,0.69875E-03_JPRB /)  
+KA(:, 4,10, 5) = (/ &
+ & 0.21659E-04_JPRB,0.81369E-03_JPRB,0.11746E-02_JPRB,0.14408E-02_JPRB,0.16340E-02_JPRB, &
+ & 0.17376E-02_JPRB,0.17267E-02_JPRB,0.15418E-02_JPRB,0.74336E-03_JPRB /)  
+KA(:, 5,10, 5) = (/ &
+ & 0.23616E-04_JPRB,0.84316E-03_JPRB,0.12215E-02_JPRB,0.14972E-02_JPRB,0.16971E-02_JPRB, &
+ & 0.17945E-02_JPRB,0.17834E-02_JPRB,0.15844E-02_JPRB,0.78045E-03_JPRB /)  
+KA(:, 1,11, 5) = (/ &
+ & 0.11812E-04_JPRB,0.58067E-03_JPRB,0.84658E-03_JPRB,0.10349E-02_JPRB,0.11681E-02_JPRB, &
+ & 0.12622E-02_JPRB,0.12806E-02_JPRB,0.11518E-02_JPRB,0.50197E-03_JPRB /)  
+KA(:, 2,11, 5) = (/ &
+ & 0.13870E-04_JPRB,0.61870E-03_JPRB,0.89364E-03_JPRB,0.10957E-02_JPRB,0.12411E-02_JPRB, &
+ & 0.13307E-02_JPRB,0.13366E-02_JPRB,0.11990E-02_JPRB,0.54419E-03_JPRB /)  
+KA(:, 3,11, 5) = (/ &
+ & 0.15872E-04_JPRB,0.65131E-03_JPRB,0.93843E-03_JPRB,0.11520E-02_JPRB,0.13068E-02_JPRB, &
+ & 0.13966E-02_JPRB,0.13927E-02_JPRB,0.12459E-02_JPRB,0.58412E-03_JPRB /)  
+KA(:, 4,11, 5) = (/ &
+ & 0.17706E-04_JPRB,0.67957E-03_JPRB,0.98128E-03_JPRB,0.12037E-02_JPRB,0.13653E-02_JPRB, &
+ & 0.14510E-02_JPRB,0.14423E-02_JPRB,0.12873E-02_JPRB,0.62086E-03_JPRB /)  
+KA(:, 5,11, 5) = (/ &
+ & 0.19307E-04_JPRB,0.70477E-03_JPRB,0.10208E-02_JPRB,0.12522E-02_JPRB,0.14187E-02_JPRB, &
+ & 0.15000E-02_JPRB,0.14882E-02_JPRB,0.13223E-02_JPRB,0.65273E-03_JPRB /)  
+KA(:, 1,12, 5) = (/ &
+ & 0.96633E-05_JPRB,0.48384E-03_JPRB,0.70464E-03_JPRB,0.86214E-03_JPRB,0.97325E-03_JPRB, &
+ & 0.10525E-02_JPRB,0.10661E-02_JPRB,0.95818E-03_JPRB,0.41838E-03_JPRB /)  
+KA(:, 2,12, 5) = (/ &
+ & 0.11346E-04_JPRB,0.51544E-03_JPRB,0.74375E-03_JPRB,0.91255E-03_JPRB,0.10346E-02_JPRB, &
+ & 0.11088E-02_JPRB,0.11124E-02_JPRB,0.99787E-03_JPRB,0.45436E-03_JPRB /)  
+KA(:, 3,12, 5) = (/ &
+ & 0.12983E-04_JPRB,0.54258E-03_JPRB,0.78191E-03_JPRB,0.95994E-03_JPRB,0.10893E-02_JPRB, &
+ & 0.11636E-02_JPRB,0.11595E-02_JPRB,0.10379E-02_JPRB,0.48767E-03_JPRB /)  
+KA(:, 4,12, 5) = (/ &
+ & 0.14483E-04_JPRB,0.56662E-03_JPRB,0.81795E-03_JPRB,0.10036E-02_JPRB,0.11385E-02_JPRB, &
+ & 0.12091E-02_JPRB,0.12012E-02_JPRB,0.10707E-02_JPRB,0.51810E-03_JPRB /)  
+KA(:, 5,12, 5) = (/ &
+ & 0.15790E-04_JPRB,0.58805E-03_JPRB,0.85165E-03_JPRB,0.10447E-02_JPRB,0.11830E-02_JPRB, &
+ & 0.12500E-02_JPRB,0.12389E-02_JPRB,0.11012E-02_JPRB,0.54508E-03_JPRB /)  
+KA(:, 1,13, 5) = (/ &
+ & 0.79057E-05_JPRB,0.40215E-03_JPRB,0.58516E-03_JPRB,0.71666E-03_JPRB,0.80969E-03_JPRB, &
+ & 0.87518E-03_JPRB,0.88581E-03_JPRB,0.79569E-03_JPRB,0.34825E-03_JPRB /)  
+KA(:, 2,13, 5) = (/ &
+ & 0.92808E-05_JPRB,0.42853E-03_JPRB,0.61818E-03_JPRB,0.75847E-03_JPRB,0.86082E-03_JPRB, &
+ & 0.92160E-03_JPRB,0.92436E-03_JPRB,0.82894E-03_JPRB,0.37871E-03_JPRB /)  
+KA(:, 3,13, 5) = (/ &
+ & 0.10621E-04_JPRB,0.45134E-03_JPRB,0.65028E-03_JPRB,0.79815E-03_JPRB,0.90622E-03_JPRB, &
+ & 0.96752E-03_JPRB,0.96291E-03_JPRB,0.86177E-03_JPRB,0.40642E-03_JPRB /)  
+KA(:, 4,13, 5) = (/ &
+ & 0.11849E-04_JPRB,0.47161E-03_JPRB,0.68090E-03_JPRB,0.83530E-03_JPRB,0.94770E-03_JPRB, &
+ & 0.10054E-02_JPRB,0.99815E-03_JPRB,0.88908E-03_JPRB,0.43149E-03_JPRB /)  
+KA(:, 5,13, 5) = (/ &
+ & 0.12897E-04_JPRB,0.49000E-03_JPRB,0.70944E-03_JPRB,0.86982E-03_JPRB,0.98430E-03_JPRB, &
+ & 0.10398E-02_JPRB,0.10297E-02_JPRB,0.91483E-03_JPRB,0.45459E-03_JPRB /)  
+KA(:, 1, 1, 6) = (/ &
+ & 0.23575E-02_JPRB,0.96457E-02_JPRB,0.13128E-01_JPRB,0.15361E-01_JPRB,0.16662E-01_JPRB, &
+ & 0.16999E-01_JPRB,0.16303E-01_JPRB,0.14368E-01_JPRB,0.10185E-01_JPRB /)  
+KA(:, 2, 1, 6) = (/ &
+ & 0.24508E-02_JPRB,0.99768E-02_JPRB,0.13562E-01_JPRB,0.15786E-01_JPRB,0.17046E-01_JPRB, &
+ & 0.17316E-01_JPRB,0.16539E-01_JPRB,0.14627E-01_JPRB,0.10447E-01_JPRB /)  
+KA(:, 3, 1, 6) = (/ &
+ & 0.25176E-02_JPRB,0.10262E-01_JPRB,0.13947E-01_JPRB,0.16182E-01_JPRB,0.17390E-01_JPRB, &
+ & 0.17588E-01_JPRB,0.16752E-01_JPRB,0.14857E-01_JPRB,0.10699E-01_JPRB /)  
+KA(:, 4, 1, 6) = (/ &
+ & 0.25627E-02_JPRB,0.10510E-01_JPRB,0.14271E-01_JPRB,0.16517E-01_JPRB,0.17678E-01_JPRB, &
+ & 0.17815E-01_JPRB,0.16941E-01_JPRB,0.15073E-01_JPRB,0.10970E-01_JPRB /)  
+KA(:, 5, 1, 6) = (/ &
+ & 0.25904E-02_JPRB,0.10712E-01_JPRB,0.14528E-01_JPRB,0.16788E-01_JPRB,0.17912E-01_JPRB, &
+ & 0.18013E-01_JPRB,0.17126E-01_JPRB,0.15282E-01_JPRB,0.11215E-01_JPRB /)  
+KA(:, 1, 2, 6) = (/ &
+ & 0.19422E-02_JPRB,0.85179E-02_JPRB,0.11603E-01_JPRB,0.13561E-01_JPRB,0.14694E-01_JPRB, &
+ & 0.14952E-01_JPRB,0.14274E-01_JPRB,0.12616E-01_JPRB,0.86910E-02_JPRB /)  
+KA(:, 2, 2, 6) = (/ &
+ & 0.20231E-02_JPRB,0.88208E-02_JPRB,0.11992E-01_JPRB,0.13942E-01_JPRB,0.15043E-01_JPRB, &
+ & 0.15241E-01_JPRB,0.14503E-01_JPRB,0.12849E-01_JPRB,0.89203E-02_JPRB /)  
+KA(:, 3, 2, 6) = (/ &
+ & 0.20824E-02_JPRB,0.90892E-02_JPRB,0.12333E-01_JPRB,0.14283E-01_JPRB,0.15343E-01_JPRB, &
+ & 0.15493E-01_JPRB,0.14704E-01_JPRB,0.13065E-01_JPRB,0.91412E-02_JPRB /)  
+KA(:, 4, 2, 6) = (/ &
+ & 0.21235E-02_JPRB,0.93193E-02_JPRB,0.12613E-01_JPRB,0.14573E-01_JPRB,0.15586E-01_JPRB, &
+ & 0.15696E-01_JPRB,0.14900E-01_JPRB,0.13269E-01_JPRB,0.93731E-02_JPRB /)  
+KA(:, 5, 2, 6) = (/ &
+ & 0.21501E-02_JPRB,0.95064E-02_JPRB,0.12844E-01_JPRB,0.14802E-01_JPRB,0.15789E-01_JPRB, &
+ & 0.15872E-01_JPRB,0.15079E-01_JPRB,0.13459E-01_JPRB,0.95922E-02_JPRB /)  
+KA(:, 1, 3, 6) = (/ &
+ & 0.15710E-02_JPRB,0.73739E-02_JPRB,0.10084E-01_JPRB,0.11795E-01_JPRB,0.12791E-01_JPRB, &
+ & 0.13002E-01_JPRB,0.12408E-01_JPRB,0.10948E-01_JPRB,0.73256E-02_JPRB /)  
+KA(:, 2, 3, 6) = (/ &
+ & 0.16445E-02_JPRB,0.76603E-02_JPRB,0.10441E-01_JPRB,0.12136E-01_JPRB,0.13098E-01_JPRB, &
+ & 0.13272E-01_JPRB,0.12629E-01_JPRB,0.11169E-01_JPRB,0.75277E-02_JPRB /)  
+KA(:, 3, 3, 6) = (/ &
+ & 0.17016E-02_JPRB,0.79120E-02_JPRB,0.10738E-01_JPRB,0.12444E-01_JPRB,0.13365E-01_JPRB, &
+ & 0.13502E-01_JPRB,0.12827E-01_JPRB,0.11365E-01_JPRB,0.77275E-02_JPRB /)  
+KA(:, 4, 3, 6) = (/ &
+ & 0.17419E-02_JPRB,0.81204E-02_JPRB,0.10992E-01_JPRB,0.12704E-01_JPRB,0.13579E-01_JPRB, &
+ & 0.13687E-01_JPRB,0.13022E-01_JPRB,0.11565E-01_JPRB,0.79327E-02_JPRB /)  
+KA(:, 5, 3, 6) = (/ &
+ & 0.17693E-02_JPRB,0.82896E-02_JPRB,0.11201E-01_JPRB,0.12903E-01_JPRB,0.13761E-01_JPRB, &
+ & 0.13854E-01_JPRB,0.13193E-01_JPRB,0.11760E-01_JPRB,0.81324E-02_JPRB /)  
+KA(:, 1, 4, 6) = (/ &
+ & 0.12568E-02_JPRB,0.62925E-02_JPRB,0.86570E-02_JPRB,0.10156E-01_JPRB,0.11020E-01_JPRB, &
+ & 0.11220E-01_JPRB,0.10710E-01_JPRB,0.94329E-02_JPRB,0.61812E-02_JPRB /)  
+KA(:, 2, 4, 6) = (/ &
+ & 0.13242E-02_JPRB,0.65532E-02_JPRB,0.89756E-02_JPRB,0.10460E-01_JPRB,0.11292E-01_JPRB, &
+ & 0.11463E-01_JPRB,0.10924E-01_JPRB,0.96449E-02_JPRB,0.63620E-02_JPRB /)  
+KA(:, 3, 4, 6) = (/ &
+ & 0.13782E-02_JPRB,0.67807E-02_JPRB,0.92447E-02_JPRB,0.10739E-01_JPRB,0.11531E-01_JPRB, &
+ & 0.11676E-01_JPRB,0.11115E-01_JPRB,0.98384E-02_JPRB,0.65417E-02_JPRB /)  
+KA(:, 4, 4, 6) = (/ &
+ & 0.14185E-02_JPRB,0.69728E-02_JPRB,0.94724E-02_JPRB,0.10967E-01_JPRB,0.11732E-01_JPRB, &
+ & 0.11853E-01_JPRB,0.11299E-01_JPRB,0.10029E-01_JPRB,0.67314E-02_JPRB /)  
+KA(:, 5, 4, 6) = (/ &
+ & 0.14466E-02_JPRB,0.71294E-02_JPRB,0.96551E-02_JPRB,0.11150E-01_JPRB,0.11897E-01_JPRB, &
+ & 0.12003E-01_JPRB,0.11457E-01_JPRB,0.10212E-01_JPRB,0.69134E-02_JPRB /)  
+KA(:, 1, 5, 6) = (/ &
+ & 0.99815E-03_JPRB,0.53184E-02_JPRB,0.73668E-02_JPRB,0.86661E-02_JPRB,0.94189E-02_JPRB, &
+ & 0.96088E-02_JPRB,0.91860E-02_JPRB,0.80854E-02_JPRB,0.52147E-02_JPRB /)  
+KA(:, 2, 5, 6) = (/ &
+ & 0.10594E-02_JPRB,0.55502E-02_JPRB,0.76480E-02_JPRB,0.89382E-02_JPRB,0.96675E-02_JPRB, &
+ & 0.98281E-02_JPRB,0.93908E-02_JPRB,0.82904E-02_JPRB,0.53805E-02_JPRB /)  
+KA(:, 3, 5, 6) = (/ &
+ & 0.11093E-02_JPRB,0.57534E-02_JPRB,0.78820E-02_JPRB,0.91873E-02_JPRB,0.98860E-02_JPRB, &
+ & 0.10027E-01_JPRB,0.95739E-02_JPRB,0.84774E-02_JPRB,0.55398E-02_JPRB /)  
+KA(:, 4, 5, 6) = (/ &
+ & 0.11487E-02_JPRB,0.59264E-02_JPRB,0.80746E-02_JPRB,0.93952E-02_JPRB,0.10070E-01_JPRB, &
+ & 0.10196E-01_JPRB,0.97460E-02_JPRB,0.86586E-02_JPRB,0.57118E-02_JPRB /)  
+KA(:, 5, 5, 6) = (/ &
+ & 0.11770E-02_JPRB,0.60715E-02_JPRB,0.82322E-02_JPRB,0.95590E-02_JPRB,0.10225E-01_JPRB, &
+ & 0.10337E-01_JPRB,0.98891E-02_JPRB,0.88282E-02_JPRB,0.58756E-02_JPRB /)  
+KA(:, 1, 6, 6) = (/ &
+ & 0.78484E-03_JPRB,0.44557E-02_JPRB,0.62088E-02_JPRB,0.73238E-02_JPRB,0.79758E-02_JPRB, &
+ & 0.81565E-02_JPRB,0.78234E-02_JPRB,0.68949E-02_JPRB,0.43721E-02_JPRB /)  
+KA(:, 2, 6, 6) = (/ &
+ & 0.84104E-03_JPRB,0.46584E-02_JPRB,0.64548E-02_JPRB,0.75720E-02_JPRB,0.82049E-02_JPRB, &
+ & 0.83603E-02_JPRB,0.80139E-02_JPRB,0.70912E-02_JPRB,0.45208E-02_JPRB /)  
+KA(:, 3, 6, 6) = (/ &
+ & 0.88703E-03_JPRB,0.48386E-02_JPRB,0.66585E-02_JPRB,0.77939E-02_JPRB,0.84077E-02_JPRB, &
+ & 0.85494E-02_JPRB,0.81878E-02_JPRB,0.72673E-02_JPRB,0.46664E-02_JPRB /)  
+KA(:, 4, 6, 6) = (/ &
+ & 0.92429E-03_JPRB,0.49939E-02_JPRB,0.68255E-02_JPRB,0.79793E-02_JPRB,0.85811E-02_JPRB, &
+ & 0.87123E-02_JPRB,0.83423E-02_JPRB,0.74324E-02_JPRB,0.48193E-02_JPRB /)  
+KA(:, 5, 6, 6) = (/ &
+ & 0.95287E-03_JPRB,0.51269E-02_JPRB,0.69664E-02_JPRB,0.81216E-02_JPRB,0.87256E-02_JPRB, &
+ & 0.88404E-02_JPRB,0.84793E-02_JPRB,0.75885E-02_JPRB,0.49684E-02_JPRB /)  
+KA(:, 1, 7, 6) = (/ &
+ & 0.61176E-03_JPRB,0.37105E-02_JPRB,0.51921E-02_JPRB,0.61495E-02_JPRB,0.67086E-02_JPRB, &
+ & 0.68737E-02_JPRB,0.66196E-02_JPRB,0.58499E-02_JPRB,0.36398E-02_JPRB /)  
+KA(:, 2, 7, 6) = (/ &
+ & 0.66355E-03_JPRB,0.38845E-02_JPRB,0.54092E-02_JPRB,0.63684E-02_JPRB,0.69191E-02_JPRB, &
+ & 0.70638E-02_JPRB,0.67967E-02_JPRB,0.60329E-02_JPRB,0.37725E-02_JPRB /)  
+KA(:, 3, 7, 6) = (/ &
+ & 0.70584E-03_JPRB,0.40429E-02_JPRB,0.55891E-02_JPRB,0.65665E-02_JPRB,0.71061E-02_JPRB, &
+ & 0.72392E-02_JPRB,0.69566E-02_JPRB,0.61958E-02_JPRB,0.39040E-02_JPRB /)  
+KA(:, 4, 7, 6) = (/ &
+ & 0.74016E-03_JPRB,0.41804E-02_JPRB,0.57362E-02_JPRB,0.67306E-02_JPRB,0.72656E-02_JPRB, &
+ & 0.73939E-02_JPRB,0.71002E-02_JPRB,0.63458E-02_JPRB,0.40422E-02_JPRB /)  
+KA(:, 5, 7, 6) = (/ &
+ & 0.76793E-03_JPRB,0.43013E-02_JPRB,0.58634E-02_JPRB,0.68605E-02_JPRB,0.73917E-02_JPRB, &
+ & 0.75160E-02_JPRB,0.72292E-02_JPRB,0.64867E-02_JPRB,0.41753E-02_JPRB /)  
+KA(:, 1, 8, 6) = (/ &
+ & 0.47383E-03_JPRB,0.30719E-02_JPRB,0.43157E-02_JPRB,0.51299E-02_JPRB,0.56113E-02_JPRB, &
+ & 0.57604E-02_JPRB,0.55584E-02_JPRB,0.49263E-02_JPRB,0.30099E-02_JPRB /)  
+KA(:, 2, 8, 6) = (/ &
+ & 0.52030E-03_JPRB,0.32224E-02_JPRB,0.45088E-02_JPRB,0.53256E-02_JPRB,0.58049E-02_JPRB, &
+ & 0.59369E-02_JPRB,0.57249E-02_JPRB,0.50950E-02_JPRB,0.31335E-02_JPRB /)  
+KA(:, 3, 8, 6) = (/ &
+ & 0.55897E-03_JPRB,0.33601E-02_JPRB,0.46690E-02_JPRB,0.55008E-02_JPRB,0.59733E-02_JPRB, &
+ & 0.60982E-02_JPRB,0.58703E-02_JPRB,0.52416E-02_JPRB,0.32505E-02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART4',1,ZHOOK_HANDLE)
+END SUBROUTINE PART4
+
+
+SUBROUTINE PART5
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART5',0,ZHOOK_HANDLE)
+
+
+KA(:, 4, 8, 6) = (/ &
+ & 0.59051E-03_JPRB,0.34823E-02_JPRB,0.48003E-02_JPRB,0.56492E-02_JPRB,0.61147E-02_JPRB, &
+ & 0.62407E-02_JPRB,0.60011E-02_JPRB,0.53776E-02_JPRB,0.33691E-02_JPRB /)  
+KA(:, 5, 8, 6) = (/ &
+ & 0.61638E-03_JPRB,0.35908E-02_JPRB,0.49151E-02_JPRB,0.57682E-02_JPRB,0.62269E-02_JPRB, &
+ & 0.63505E-02_JPRB,0.61226E-02_JPRB,0.55061E-02_JPRB,0.34893E-02_JPRB /)  
+KA(:, 1, 9, 6) = (/ &
+ & 0.36452E-03_JPRB,0.25301E-02_JPRB,0.35655E-02_JPRB,0.42558E-02_JPRB,0.46668E-02_JPRB, &
+ & 0.47995E-02_JPRB,0.46391E-02_JPRB,0.41176E-02_JPRB,0.24723E-02_JPRB /)  
+KA(:, 2, 9, 6) = (/ &
+ & 0.40521E-03_JPRB,0.26609E-02_JPRB,0.37368E-02_JPRB,0.44313E-02_JPRB,0.48422E-02_JPRB, &
+ & 0.49605E-02_JPRB,0.47876E-02_JPRB,0.42682E-02_JPRB,0.25854E-02_JPRB /)  
+KA(:, 3, 9, 6) = (/ &
+ & 0.44042E-03_JPRB,0.27811E-02_JPRB,0.38822E-02_JPRB,0.45871E-02_JPRB,0.49951E-02_JPRB, &
+ & 0.51048E-02_JPRB,0.49189E-02_JPRB,0.43988E-02_JPRB,0.26922E-02_JPRB /)  
+KA(:, 4, 9, 6) = (/ &
+ & 0.46934E-03_JPRB,0.28890E-02_JPRB,0.40015E-02_JPRB,0.47204E-02_JPRB,0.51195E-02_JPRB, &
+ & 0.52329E-02_JPRB,0.50398E-02_JPRB,0.45211E-02_JPRB,0.27947E-02_JPRB /)  
+KA(:, 5, 9, 6) = (/ &
+ & 0.49296E-03_JPRB,0.29863E-02_JPRB,0.41052E-02_JPRB,0.48296E-02_JPRB,0.52212E-02_JPRB, &
+ & 0.53320E-02_JPRB,0.51516E-02_JPRB,0.46410E-02_JPRB,0.29014E-02_JPRB /)  
+KA(:, 1,10, 6) = (/ &
+ & 0.28141E-03_JPRB,0.20839E-02_JPRB,0.29434E-02_JPRB,0.35250E-02_JPRB,0.38705E-02_JPRB, &
+ & 0.39907E-02_JPRB,0.38574E-02_JPRB,0.34280E-02_JPRB,0.20276E-02_JPRB /)  
+KA(:, 2,10, 6) = (/ &
+ & 0.31642E-03_JPRB,0.21962E-02_JPRB,0.30947E-02_JPRB,0.36798E-02_JPRB,0.40279E-02_JPRB, &
+ & 0.41317E-02_JPRB,0.39905E-02_JPRB,0.35591E-02_JPRB,0.21304E-02_JPRB /)  
+KA(:, 3,10, 6) = (/ &
+ & 0.34743E-03_JPRB,0.23002E-02_JPRB,0.32251E-02_JPRB,0.38167E-02_JPRB,0.41632E-02_JPRB, &
+ & 0.42588E-02_JPRB,0.41077E-02_JPRB,0.36737E-02_JPRB,0.22246E-02_JPRB /)  
+KA(:, 4,10, 6) = (/ &
+ & 0.37337E-03_JPRB,0.23958E-02_JPRB,0.33326E-02_JPRB,0.39351E-02_JPRB,0.42727E-02_JPRB, &
+ & 0.43699E-02_JPRB,0.42167E-02_JPRB,0.37850E-02_JPRB,0.23171E-02_JPRB /)  
+KA(:, 5,10, 6) = (/ &
+ & 0.39464E-03_JPRB,0.24818E-02_JPRB,0.34245E-02_JPRB,0.40341E-02_JPRB,0.43635E-02_JPRB, &
+ & 0.44592E-02_JPRB,0.43133E-02_JPRB,0.38931E-02_JPRB,0.24123E-02_JPRB /)  
+KA(:, 1,11, 6) = (/ &
+ & 0.23046E-03_JPRB,0.17561E-02_JPRB,0.24821E-02_JPRB,0.29697E-02_JPRB,0.32603E-02_JPRB, &
+ & 0.33590E-02_JPRB,0.32465E-02_JPRB,0.28911E-02_JPRB,0.17000E-02_JPRB /)  
+KA(:, 2,11, 6) = (/ &
+ & 0.25900E-03_JPRB,0.18499E-02_JPRB,0.26079E-02_JPRB,0.30983E-02_JPRB,0.33914E-02_JPRB, &
+ & 0.34790E-02_JPRB,0.33598E-02_JPRB,0.30000E-02_JPRB,0.17879E-02_JPRB /)  
+KA(:, 3,11, 6) = (/ &
+ & 0.28431E-03_JPRB,0.19371E-02_JPRB,0.27154E-02_JPRB,0.32123E-02_JPRB,0.35009E-02_JPRB, &
+ & 0.35810E-02_JPRB,0.34582E-02_JPRB,0.30989E-02_JPRB,0.18709E-02_JPRB /)  
+KA(:, 4,11, 6) = (/ &
+ & 0.30554E-03_JPRB,0.20175E-02_JPRB,0.28047E-02_JPRB,0.33094E-02_JPRB,0.35897E-02_JPRB, &
+ & 0.36708E-02_JPRB,0.35500E-02_JPRB,0.31964E-02_JPRB,0.19524E-02_JPRB /)  
+KA(:, 5,11, 6) = (/ &
+ & 0.32290E-03_JPRB,0.20906E-02_JPRB,0.28827E-02_JPRB,0.33907E-02_JPRB,0.36638E-02_JPRB, &
+ & 0.37448E-02_JPRB,0.36322E-02_JPRB,0.32921E-02_JPRB,0.20342E-02_JPRB /)  
+KA(:, 1,12, 6) = (/ &
+ & 0.18873E-03_JPRB,0.14753E-02_JPRB,0.20859E-02_JPRB,0.24932E-02_JPRB,0.27362E-02_JPRB, &
+ & 0.28163E-02_JPRB,0.27231E-02_JPRB,0.24287E-02_JPRB,0.14226E-02_JPRB /)  
+KA(:, 2,12, 6) = (/ &
+ & 0.21206E-03_JPRB,0.15542E-02_JPRB,0.21905E-02_JPRB,0.25997E-02_JPRB,0.28436E-02_JPRB, &
+ & 0.29146E-02_JPRB,0.28182E-02_JPRB,0.25196E-02_JPRB,0.14964E-02_JPRB /)  
+KA(:, 3,12, 6) = (/ &
+ & 0.23271E-03_JPRB,0.16282E-02_JPRB,0.22789E-02_JPRB,0.26937E-02_JPRB,0.29320E-02_JPRB, &
+ & 0.29995E-02_JPRB,0.29004E-02_JPRB,0.26063E-02_JPRB,0.15684E-02_JPRB /)  
+KA(:, 4,12, 6) = (/ &
+ & 0.25005E-03_JPRB,0.16959E-02_JPRB,0.23539E-02_JPRB,0.27739E-02_JPRB,0.30052E-02_JPRB, &
+ & 0.30738E-02_JPRB,0.29781E-02_JPRB,0.26924E-02_JPRB,0.16388E-02_JPRB /)  
+KA(:, 5,12, 6) = (/ &
+ & 0.26424E-03_JPRB,0.17579E-02_JPRB,0.24198E-02_JPRB,0.28418E-02_JPRB,0.30688E-02_JPRB, &
+ & 0.31370E-02_JPRB,0.30478E-02_JPRB,0.27734E-02_JPRB,0.17090E-02_JPRB /)  
+KA(:, 1,13, 6) = (/ &
+ & 0.15451E-03_JPRB,0.12362E-02_JPRB,0.17471E-02_JPRB,0.20856E-02_JPRB,0.22870E-02_JPRB, &
+ & 0.23530E-02_JPRB,0.22758E-02_JPRB,0.20318E-02_JPRB,0.11868E-02_JPRB /)  
+KA(:, 2,13, 6) = (/ &
+ & 0.17357E-03_JPRB,0.13027E-02_JPRB,0.18337E-02_JPRB,0.21736E-02_JPRB,0.23752E-02_JPRB, &
+ & 0.24339E-02_JPRB,0.23549E-02_JPRB,0.21104E-02_JPRB,0.12492E-02_JPRB /)  
+KA(:, 3,13, 6) = (/ &
+ & 0.19045E-03_JPRB,0.13651E-02_JPRB,0.19071E-02_JPRB,0.22520E-02_JPRB,0.24479E-02_JPRB, &
+ & 0.25052E-02_JPRB,0.24255E-02_JPRB,0.21862E-02_JPRB,0.13114E-02_JPRB /)  
+KA(:, 4,13, 6) = (/ &
+ & 0.20459E-03_JPRB,0.14225E-02_JPRB,0.19702E-02_JPRB,0.23195E-02_JPRB,0.25109E-02_JPRB, &
+ & 0.25680E-02_JPRB,0.24906E-02_JPRB,0.22592E-02_JPRB,0.13717E-02_JPRB /)  
+KA(:, 5,13, 6) = (/ &
+ & 0.21621E-03_JPRB,0.14751E-02_JPRB,0.20267E-02_JPRB,0.23775E-02_JPRB,0.25654E-02_JPRB, &
+ & 0.26221E-02_JPRB,0.25513E-02_JPRB,0.23283E-02_JPRB,0.14321E-02_JPRB /)  
+KA(:, 1, 1, 7) = (/ &
+ & 0.14551E-01_JPRB,0.26282E-01_JPRB,0.32053E-01_JPRB,0.35189E-01_JPRB,0.36600E-01_JPRB, &
+ & 0.36646E-01_JPRB,0.35552E-01_JPRB,0.33215E-01_JPRB,0.27309E-01_JPRB /)  
+KA(:, 2, 1, 7) = (/ &
+ & 0.15360E-01_JPRB,0.26847E-01_JPRB,0.32411E-01_JPRB,0.35426E-01_JPRB,0.36803E-01_JPRB, &
+ & 0.36994E-01_JPRB,0.36037E-01_JPRB,0.33674E-01_JPRB,0.27881E-01_JPRB /)  
+KA(:, 3, 1, 7) = (/ &
+ & 0.16052E-01_JPRB,0.27358E-01_JPRB,0.32711E-01_JPRB,0.35602E-01_JPRB,0.37002E-01_JPRB, &
+ & 0.37322E-01_JPRB,0.36495E-01_JPRB,0.34092E-01_JPRB,0.28365E-01_JPRB /)  
+KA(:, 4, 1, 7) = (/ &
+ & 0.16634E-01_JPRB,0.27765E-01_JPRB,0.32975E-01_JPRB,0.35757E-01_JPRB,0.37198E-01_JPRB, &
+ & 0.37629E-01_JPRB,0.36871E-01_JPRB,0.34489E-01_JPRB,0.28817E-01_JPRB /)  
+KA(:, 5, 1, 7) = (/ &
+ & 0.17092E-01_JPRB,0.28088E-01_JPRB,0.33173E-01_JPRB,0.35899E-01_JPRB,0.37369E-01_JPRB, &
+ & 0.37894E-01_JPRB,0.37206E-01_JPRB,0.34856E-01_JPRB,0.29236E-01_JPRB /)  
+KA(:, 1, 2, 7) = (/ &
+ & 0.12675E-01_JPRB,0.23757E-01_JPRB,0.28827E-01_JPRB,0.31475E-01_JPRB,0.32647E-01_JPRB, &
+ & 0.32779E-01_JPRB,0.31874E-01_JPRB,0.29659E-01_JPRB,0.23735E-01_JPRB /)  
+KA(:, 2, 2, 7) = (/ &
+ & 0.13363E-01_JPRB,0.24261E-01_JPRB,0.29165E-01_JPRB,0.31734E-01_JPRB,0.32905E-01_JPRB, &
+ & 0.33137E-01_JPRB,0.32357E-01_JPRB,0.30114E-01_JPRB,0.24241E-01_JPRB /)  
+KA(:, 3, 2, 7) = (/ &
+ & 0.13952E-01_JPRB,0.24673E-01_JPRB,0.29458E-01_JPRB,0.31940E-01_JPRB,0.33167E-01_JPRB, &
+ & 0.33486E-01_JPRB,0.32794E-01_JPRB,0.30540E-01_JPRB,0.24704E-01_JPRB /)  
+KA(:, 4, 2, 7) = (/ &
+ & 0.14440E-01_JPRB,0.25010E-01_JPRB,0.29692E-01_JPRB,0.32131E-01_JPRB,0.33402E-01_JPRB, &
+ & 0.33816E-01_JPRB,0.33185E-01_JPRB,0.30944E-01_JPRB,0.25123E-01_JPRB /)  
+KA(:, 5, 2, 7) = (/ &
+ & 0.14810E-01_JPRB,0.25246E-01_JPRB,0.29865E-01_JPRB,0.32323E-01_JPRB,0.33624E-01_JPRB, &
+ & 0.34125E-01_JPRB,0.33530E-01_JPRB,0.31299E-01_JPRB,0.25501E-01_JPRB /)  
+KA(:, 1, 3, 7) = (/ &
+ & 0.10764E-01_JPRB,0.21180E-01_JPRB,0.25645E-01_JPRB,0.27934E-01_JPRB,0.28891E-01_JPRB, &
+ & 0.28978E-01_JPRB,0.28215E-01_JPRB,0.26250E-01_JPRB,0.20340E-01_JPRB /)  
+KA(:, 2, 3, 7) = (/ &
+ & 0.11371E-01_JPRB,0.21611E-01_JPRB,0.25976E-01_JPRB,0.28221E-01_JPRB,0.29204E-01_JPRB, &
+ & 0.29347E-01_JPRB,0.28689E-01_JPRB,0.26687E-01_JPRB,0.20803E-01_JPRB /)  
+KA(:, 3, 3, 7) = (/ &
+ & 0.11882E-01_JPRB,0.21977E-01_JPRB,0.26258E-01_JPRB,0.28467E-01_JPRB,0.29498E-01_JPRB, &
+ & 0.29730E-01_JPRB,0.29113E-01_JPRB,0.27115E-01_JPRB,0.21241E-01_JPRB /)  
+KA(:, 4, 3, 7) = (/ &
+ & 0.12302E-01_JPRB,0.22273E-01_JPRB,0.26477E-01_JPRB,0.28696E-01_JPRB,0.29766E-01_JPRB, &
+ & 0.30099E-01_JPRB,0.29507E-01_JPRB,0.27503E-01_JPRB,0.21620E-01_JPRB /)  
+KA(:, 5, 3, 7) = (/ &
+ & 0.12624E-01_JPRB,0.22481E-01_JPRB,0.26631E-01_JPRB,0.28900E-01_JPRB,0.30032E-01_JPRB, &
+ & 0.30425E-01_JPRB,0.29859E-01_JPRB,0.27842E-01_JPRB,0.21966E-01_JPRB /)  
+KA(:, 1, 4, 7) = (/ &
+ & 0.89860E-02_JPRB,0.18659E-01_JPRB,0.22605E-01_JPRB,0.24580E-01_JPRB,0.25383E-01_JPRB, &
+ & 0.25435E-01_JPRB,0.24761E-01_JPRB,0.23037E-01_JPRB,0.17414E-01_JPRB /)  
+KA(:, 2, 4, 7) = (/ &
+ & 0.95207E-02_JPRB,0.19048E-01_JPRB,0.22924E-01_JPRB,0.24888E-01_JPRB,0.25739E-01_JPRB, &
+ & 0.25823E-01_JPRB,0.25200E-01_JPRB,0.23450E-01_JPRB,0.17847E-01_JPRB /)  
+KA(:, 3, 4, 7) = (/ &
+ & 0.99723E-02_JPRB,0.19380E-01_JPRB,0.23182E-01_JPRB,0.25155E-01_JPRB,0.26061E-01_JPRB, &
+ & 0.26209E-01_JPRB,0.25611E-01_JPRB,0.23862E-01_JPRB,0.18251E-01_JPRB /)  
+KA(:, 4, 4, 7) = (/ &
+ & 0.10354E-01_JPRB,0.19644E-01_JPRB,0.23397E-01_JPRB,0.25401E-01_JPRB,0.26345E-01_JPRB, &
+ & 0.26580E-01_JPRB,0.26000E-01_JPRB,0.24233E-01_JPRB,0.18600E-01_JPRB /)  
+KA(:, 5, 4, 7) = (/ &
+ & 0.10637E-01_JPRB,0.19822E-01_JPRB,0.23556E-01_JPRB,0.25605E-01_JPRB,0.26619E-01_JPRB, &
+ & 0.26913E-01_JPRB,0.26359E-01_JPRB,0.24562E-01_JPRB,0.18925E-01_JPRB /)  
+KA(:, 1, 5, 7) = (/ &
+ & 0.74104E-02_JPRB,0.16264E-01_JPRB,0.19717E-01_JPRB,0.21452E-01_JPRB,0.22172E-01_JPRB, &
+ & 0.22207E-01_JPRB,0.21598E-01_JPRB,0.20075E-01_JPRB,0.14880E-01_JPRB /)  
+KA(:, 2, 5, 7) = (/ &
+ & 0.78778E-02_JPRB,0.16624E-01_JPRB,0.20022E-01_JPRB,0.21765E-01_JPRB,0.22531E-01_JPRB, &
+ & 0.22596E-01_JPRB,0.21999E-01_JPRB,0.20458E-01_JPRB,0.15279E-01_JPRB /)  
+KA(:, 3, 5, 7) = (/ &
+ & 0.82694E-02_JPRB,0.16928E-01_JPRB,0.20277E-01_JPRB,0.22036E-01_JPRB,0.22859E-01_JPRB, &
+ & 0.22978E-01_JPRB,0.22384E-01_JPRB,0.20834E-01_JPRB,0.15650E-01_JPRB /)  
+KA(:, 4, 5, 7) = (/ &
+ & 0.85919E-02_JPRB,0.17168E-01_JPRB,0.20498E-01_JPRB,0.22274E-01_JPRB,0.23143E-01_JPRB, &
+ & 0.23326E-01_JPRB,0.22754E-01_JPRB,0.21189E-01_JPRB,0.15980E-01_JPRB /)  
+KA(:, 5, 5, 7) = (/ &
+ & 0.88337E-02_JPRB,0.17332E-01_JPRB,0.20664E-01_JPRB,0.22477E-01_JPRB,0.23407E-01_JPRB, &
+ & 0.23648E-01_JPRB,0.23111E-01_JPRB,0.21509E-01_JPRB,0.16283E-01_JPRB /)  
+KA(:, 1, 6, 7) = (/ &
+ & 0.60305E-02_JPRB,0.14008E-01_JPRB,0.17028E-01_JPRB,0.18574E-01_JPRB,0.19236E-01_JPRB, &
+ & 0.19269E-01_JPRB,0.18720E-01_JPRB,0.17347E-01_JPRB,0.12656E-01_JPRB /)  
+KA(:, 2, 6, 7) = (/ &
+ & 0.64356E-02_JPRB,0.14339E-01_JPRB,0.17318E-01_JPRB,0.18872E-01_JPRB,0.19580E-01_JPRB, &
+ & 0.19645E-01_JPRB,0.19095E-01_JPRB,0.17705E-01_JPRB,0.13025E-01_JPRB /)  
+KA(:, 3, 6, 7) = (/ &
+ & 0.67708E-02_JPRB,0.14626E-01_JPRB,0.17575E-01_JPRB,0.19135E-01_JPRB,0.19883E-01_JPRB, &
+ & 0.20004E-01_JPRB,0.19454E-01_JPRB,0.18055E-01_JPRB,0.13366E-01_JPRB /)  
+KA(:, 4, 6, 7) = (/ &
+ & 0.70449E-02_JPRB,0.14853E-01_JPRB,0.17795E-01_JPRB,0.19363E-01_JPRB,0.20156E-01_JPRB, &
+ & 0.20324E-01_JPRB,0.19811E-01_JPRB,0.18392E-01_JPRB,0.13679E-01_JPRB /)  
+KA(:, 5, 6, 7) = (/ &
+ & 0.72586E-02_JPRB,0.15014E-01_JPRB,0.17954E-01_JPRB,0.19569E-01_JPRB,0.20401E-01_JPRB, &
+ & 0.20622E-01_JPRB,0.20155E-01_JPRB,0.18706E-01_JPRB,0.13963E-01_JPRB /)  
+KA(:, 1, 7, 7) = (/ &
+ & 0.48615E-02_JPRB,0.11936E-01_JPRB,0.14574E-01_JPRB,0.15963E-01_JPRB,0.16578E-01_JPRB, &
+ & 0.16615E-01_JPRB,0.16125E-01_JPRB,0.14904E-01_JPRB,0.10718E-01_JPRB /)  
+KA(:, 2, 7, 7) = (/ &
+ & 0.52093E-02_JPRB,0.12247E-01_JPRB,0.14845E-01_JPRB,0.16239E-01_JPRB,0.16890E-01_JPRB, &
+ & 0.16965E-01_JPRB,0.16477E-01_JPRB,0.15238E-01_JPRB,0.11050E-01_JPRB /)  
+KA(:, 3, 7, 7) = (/ &
+ & 0.54981E-02_JPRB,0.12520E-01_JPRB,0.15089E-01_JPRB,0.16485E-01_JPRB,0.17163E-01_JPRB, &
+ & 0.17296E-01_JPRB,0.16823E-01_JPRB,0.15561E-01_JPRB,0.11367E-01_JPRB /)  
+KA(:, 4, 7, 7) = (/ &
+ & 0.57341E-02_JPRB,0.12732E-01_JPRB,0.15302E-01_JPRB,0.16709E-01_JPRB,0.17412E-01_JPRB, &
+ & 0.17587E-01_JPRB,0.17156E-01_JPRB,0.15882E-01_JPRB,0.11657E-01_JPRB /)  
+KA(:, 5, 7, 7) = (/ &
+ & 0.59245E-02_JPRB,0.12879E-01_JPRB,0.15460E-01_JPRB,0.16900E-01_JPRB,0.17646E-01_JPRB, &
+ & 0.17862E-01_JPRB,0.17475E-01_JPRB,0.16189E-01_JPRB,0.11924E-01_JPRB /)  
+KA(:, 1, 8, 7) = (/ &
+ & 0.38903E-02_JPRB,0.10086E-01_JPRB,0.12393E-01_JPRB,0.13617E-01_JPRB,0.14179E-01_JPRB, &
+ & 0.14230E-01_JPRB,0.13810E-01_JPRB,0.12741E-01_JPRB,0.90402E-02_JPRB /)  
+KA(:, 2, 8, 7) = (/ &
+ & 0.41883E-02_JPRB,0.10379E-01_JPRB,0.12642E-01_JPRB,0.13866E-01_JPRB,0.14454E-01_JPRB, &
+ & 0.14549E-01_JPRB,0.14140E-01_JPRB,0.13050E-01_JPRB,0.93407E-02_JPRB /)  
+KA(:, 3, 8, 7) = (/ &
+ & 0.44374E-02_JPRB,0.10628E-01_JPRB,0.12866E-01_JPRB,0.14093E-01_JPRB,0.14702E-01_JPRB, &
+ & 0.14847E-01_JPRB,0.14466E-01_JPRB,0.13354E-01_JPRB,0.96289E-02_JPRB /)  
+KA(:, 4, 8, 7) = (/ &
+ & 0.46417E-02_JPRB,0.10823E-01_JPRB,0.13067E-01_JPRB,0.14297E-01_JPRB,0.14936E-01_JPRB, &
+ & 0.15113E-01_JPRB,0.14777E-01_JPRB,0.13659E-01_JPRB,0.98946E-02_JPRB /)  
+KA(:, 5, 8, 7) = (/ &
+ & 0.48106E-02_JPRB,0.10958E-01_JPRB,0.13212E-01_JPRB,0.14477E-01_JPRB,0.15155E-01_JPRB, &
+ & 0.15369E-01_JPRB,0.15065E-01_JPRB,0.13954E-01_JPRB,0.10137E-01_JPRB /)  
+KA(:, 1, 9, 7) = (/ &
+ & 0.30906E-02_JPRB,0.84716E-02_JPRB,0.10475E-01_JPRB,0.11533E-01_JPRB,0.12037E-01_JPRB, &
+ & 0.12102E-01_JPRB,0.11757E-01_JPRB,0.10840E-01_JPRB,0.75790E-02_JPRB /)  
+KA(:, 2, 9, 7) = (/ &
+ & 0.33456E-02_JPRB,0.87380E-02_JPRB,0.10698E-01_JPRB,0.11759E-01_JPRB,0.12281E-01_JPRB, &
+ & 0.12384E-01_JPRB,0.12063E-01_JPRB,0.11124E-01_JPRB,0.78524E-02_JPRB /)  
+KA(:, 3, 9, 7) = (/ &
+ & 0.35624E-02_JPRB,0.89636E-02_JPRB,0.10908E-01_JPRB,0.11964E-01_JPRB,0.12503E-01_JPRB, &
+ & 0.12651E-01_JPRB,0.12366E-01_JPRB,0.11413E-01_JPRB,0.81116E-02_JPRB /)  
+KA(:, 4, 9, 7) = (/ &
+ & 0.37409E-02_JPRB,0.91394E-02_JPRB,0.11085E-01_JPRB,0.12156E-01_JPRB,0.12717E-01_JPRB, &
+ & 0.12895E-01_JPRB,0.12646E-01_JPRB,0.11703E-01_JPRB,0.83543E-02_JPRB /)  
+KA(:, 5, 9, 7) = (/ &
+ & 0.38899E-02_JPRB,0.92663E-02_JPRB,0.11210E-01_JPRB,0.12323E-01_JPRB,0.12923E-01_JPRB, &
+ & 0.13135E-01_JPRB,0.12909E-01_JPRB,0.11979E-01_JPRB,0.85748E-02_JPRB /)  
+KA(:, 1,10, 7) = (/ &
+ & 0.24588E-02_JPRB,0.70997E-02_JPRB,0.88156E-02_JPRB,0.97280E-02_JPRB,0.10175E-01_JPRB, &
+ & 0.10246E-01_JPRB,0.99712E-02_JPRB,0.91951E-02_JPRB,0.63324E-02_JPRB /)  
+KA(:, 2,10, 7) = (/ &
+ & 0.26743E-02_JPRB,0.73393E-02_JPRB,0.90183E-02_JPRB,0.99289E-02_JPRB,0.10387E-01_JPRB, &
+ & 0.10496E-01_JPRB,0.10249E-01_JPRB,0.94566E-02_JPRB,0.65770E-02_JPRB /)  
+KA(:, 3,10, 7) = (/ &
+ & 0.28610E-02_JPRB,0.75352E-02_JPRB,0.92028E-02_JPRB,0.10117E-01_JPRB,0.10586E-01_JPRB, &
+ & 0.10730E-01_JPRB,0.10524E-01_JPRB,0.97307E-02_JPRB,0.68077E-02_JPRB /)  
+KA(:, 4,10, 7) = (/ &
+ & 0.30147E-02_JPRB,0.76899E-02_JPRB,0.93550E-02_JPRB,0.10291E-01_JPRB,0.10781E-01_JPRB, &
+ & 0.10954E-01_JPRB,0.10778E-01_JPRB,0.10001E-01_JPRB,0.70201E-02_JPRB /)  
+KA(:, 5,10, 7) = (/ &
+ & 0.31444E-02_JPRB,0.78050E-02_JPRB,0.94668E-02_JPRB,0.10433E-01_JPRB,0.10974E-01_JPRB, &
+ & 0.11173E-01_JPRB,0.11019E-01_JPRB,0.10253E-01_JPRB,0.72189E-02_JPRB /)  
+KA(:, 1,11, 7) = (/ &
+ & 0.20345E-02_JPRB,0.60249E-02_JPRB,0.74716E-02_JPRB,0.82496E-02_JPRB,0.86458E-02_JPRB, &
+ & 0.87340E-02_JPRB,0.85222E-02_JPRB,0.78657E-02_JPRB,0.53714E-02_JPRB /)  
+KA(:, 2,11, 7) = (/ &
+ & 0.22071E-02_JPRB,0.62176E-02_JPRB,0.76440E-02_JPRB,0.84251E-02_JPRB,0.88273E-02_JPRB, &
+ & 0.89461E-02_JPRB,0.87689E-02_JPRB,0.81125E-02_JPRB,0.55835E-02_JPRB /)  
+KA(:, 3,11, 7) = (/ &
+ & 0.23554E-02_JPRB,0.63729E-02_JPRB,0.77932E-02_JPRB,0.85868E-02_JPRB,0.90058E-02_JPRB, &
+ & 0.91548E-02_JPRB,0.90075E-02_JPRB,0.83660E-02_JPRB,0.57827E-02_JPRB /)  
+KA(:, 4,11, 7) = (/ &
+ & 0.24780E-02_JPRB,0.64944E-02_JPRB,0.79106E-02_JPRB,0.87291E-02_JPRB,0.91857E-02_JPRB, &
+ & 0.93565E-02_JPRB,0.92302E-02_JPRB,0.86036E-02_JPRB,0.59695E-02_JPRB /)  
+KA(:, 5,11, 7) = (/ &
+ & 0.25820E-02_JPRB,0.65802E-02_JPRB,0.79974E-02_JPRB,0.88427E-02_JPRB,0.93482E-02_JPRB, &
+ & 0.95539E-02_JPRB,0.94443E-02_JPRB,0.88180E-02_JPRB,0.61512E-02_JPRB /)  
+KA(:, 1,12, 7) = (/ &
+ & 0.16789E-02_JPRB,0.50906E-02_JPRB,0.63078E-02_JPRB,0.69750E-02_JPRB,0.73172E-02_JPRB, &
+ & 0.74078E-02_JPRB,0.72504E-02_JPRB,0.67015E-02_JPRB,0.45394E-02_JPRB /)  
+KA(:, 2,12, 7) = (/ &
+ & 0.18170E-02_JPRB,0.52437E-02_JPRB,0.64512E-02_JPRB,0.71255E-02_JPRB,0.74790E-02_JPRB, &
+ & 0.75959E-02_JPRB,0.74655E-02_JPRB,0.69307E-02_JPRB,0.47237E-02_JPRB /)  
+KA(:, 3,12, 7) = (/ &
+ & 0.19356E-02_JPRB,0.53689E-02_JPRB,0.65701E-02_JPRB,0.72610E-02_JPRB,0.76415E-02_JPRB, &
+ & 0.77811E-02_JPRB,0.76703E-02_JPRB,0.71508E-02_JPRB,0.48953E-02_JPRB /)  
+KA(:, 4,12, 7) = (/ &
+ & 0.20342E-02_JPRB,0.54644E-02_JPRB,0.66640E-02_JPRB,0.73792E-02_JPRB,0.77929E-02_JPRB, &
+ & 0.79635E-02_JPRB,0.78660E-02_JPRB,0.73532E-02_JPRB,0.50607E-02_JPRB /)  
+KA(:, 5,12, 7) = (/ &
+ & 0.21182E-02_JPRB,0.55328E-02_JPRB,0.67352E-02_JPRB,0.74736E-02_JPRB,0.79282E-02_JPRB, &
+ & 0.81307E-02_JPRB,0.80542E-02_JPRB,0.75407E-02_JPRB,0.52234E-02_JPRB /)  
+KA(:, 1,13, 7) = (/ &
+ & 0.13819E-02_JPRB,0.42823E-02_JPRB,0.53096E-02_JPRB,0.58771E-02_JPRB,0.61745E-02_JPRB, &
+ & 0.62601E-02_JPRB,0.61411E-02_JPRB,0.56893E-02_JPRB,0.38201E-02_JPRB /)  
+KA(:, 2,13, 7) = (/ &
+ & 0.14927E-02_JPRB,0.44078E-02_JPRB,0.54261E-02_JPRB,0.60055E-02_JPRB,0.63167E-02_JPRB, &
+ & 0.64278E-02_JPRB,0.63268E-02_JPRB,0.58891E-02_JPRB,0.39789E-02_JPRB /)  
+KA(:, 3,13, 7) = (/ &
+ & 0.15884E-02_JPRB,0.45090E-02_JPRB,0.55246E-02_JPRB,0.61217E-02_JPRB,0.64577E-02_JPRB, &
+ & 0.65903E-02_JPRB,0.65044E-02_JPRB,0.60758E-02_JPRB,0.41288E-02_JPRB /)  
+KA(:, 4,13, 7) = (/ &
+ & 0.16683E-02_JPRB,0.45858E-02_JPRB,0.56029E-02_JPRB,0.62193E-02_JPRB,0.65859E-02_JPRB, &
+ & 0.67454E-02_JPRB,0.66768E-02_JPRB,0.62506E-02_JPRB,0.42765E-02_JPRB /)  
+KA(:, 5,13, 7) = (/ &
+ & 0.17364E-02_JPRB,0.46419E-02_JPRB,0.56644E-02_JPRB,0.62996E-02_JPRB,0.66998E-02_JPRB, &
+ & 0.68888E-02_JPRB,0.68404E-02_JPRB,0.64188E-02_JPRB,0.44198E-02_JPRB /)  
+KA(:, 1, 1, 8) = (/ &
+ & 0.57760E-01_JPRB,0.69432E-01_JPRB,0.76402E-01_JPRB,0.81517E-01_JPRB,0.85125E-01_JPRB, &
+ & 0.87289E-01_JPRB,0.87408E-01_JPRB,0.83317E-01_JPRB,0.74720E-01_JPRB /)  
+KA(:, 2, 1, 8) = (/ &
+ & 0.58256E-01_JPRB,0.69667E-01_JPRB,0.76723E-01_JPRB,0.81911E-01_JPRB,0.85362E-01_JPRB, &
+ & 0.87289E-01_JPRB,0.87306E-01_JPRB,0.83357E-01_JPRB,0.75177E-01_JPRB /)  
+KA(:, 3, 1, 8) = (/ &
+ & 0.58710E-01_JPRB,0.69859E-01_JPRB,0.76973E-01_JPRB,0.82328E-01_JPRB,0.85690E-01_JPRB, &
+ & 0.87420E-01_JPRB,0.87264E-01_JPRB,0.83435E-01_JPRB,0.75701E-01_JPRB /)  
+KA(:, 4, 1, 8) = (/ &
+ & 0.59052E-01_JPRB,0.70050E-01_JPRB,0.77176E-01_JPRB,0.82642E-01_JPRB,0.86071E-01_JPRB, &
+ & 0.87660E-01_JPRB,0.87341E-01_JPRB,0.83544E-01_JPRB,0.76230E-01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART5',1,ZHOOK_HANDLE)
+END SUBROUTINE PART5
+
+
+SUBROUTINE PART6
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART6',0,ZHOOK_HANDLE)
+
+
+KA(:, 5, 1, 8) = (/ &
+ & 0.59298E-01_JPRB,0.70198E-01_JPRB,0.77374E-01_JPRB,0.82883E-01_JPRB,0.86469E-01_JPRB, &
+ & 0.87977E-01_JPRB,0.87473E-01_JPRB,0.83691E-01_JPRB,0.76769E-01_JPRB /)  
+KA(:, 1, 2, 8) = (/ &
+ & 0.50908E-01_JPRB,0.62848E-01_JPRB,0.70003E-01_JPRB,0.75263E-01_JPRB,0.78670E-01_JPRB, &
+ & 0.80594E-01_JPRB,0.80694E-01_JPRB,0.77048E-01_JPRB,0.67048E-01_JPRB /)  
+KA(:, 2, 2, 8) = (/ &
+ & 0.51469E-01_JPRB,0.63178E-01_JPRB,0.70395E-01_JPRB,0.75763E-01_JPRB,0.79033E-01_JPRB, &
+ & 0.80775E-01_JPRB,0.80686E-01_JPRB,0.77199E-01_JPRB,0.67605E-01_JPRB /)  
+KA(:, 3, 2, 8) = (/ &
+ & 0.51956E-01_JPRB,0.63519E-01_JPRB,0.70748E-01_JPRB,0.76221E-01_JPRB,0.79512E-01_JPRB, &
+ & 0.81067E-01_JPRB,0.80797E-01_JPRB,0.77370E-01_JPRB,0.68182E-01_JPRB /)  
+KA(:, 4, 2, 8) = (/ &
+ & 0.52329E-01_JPRB,0.63831E-01_JPRB,0.71115E-01_JPRB,0.76591E-01_JPRB,0.80032E-01_JPRB, &
+ & 0.81445E-01_JPRB,0.81001E-01_JPRB,0.77568E-01_JPRB,0.68768E-01_JPRB /)  
+KA(:, 5, 2, 8) = (/ &
+ & 0.52648E-01_JPRB,0.64108E-01_JPRB,0.71441E-01_JPRB,0.76941E-01_JPRB,0.80464E-01_JPRB, &
+ & 0.81866E-01_JPRB,0.81282E-01_JPRB,0.77796E-01_JPRB,0.69377E-01_JPRB /)  
+KA(:, 1, 3, 8) = (/ &
+ & 0.44636E-01_JPRB,0.56575E-01_JPRB,0.63667E-01_JPRB,0.68804E-01_JPRB,0.72146E-01_JPRB, &
+ & 0.73940E-01_JPRB,0.73756E-01_JPRB,0.70359E-01_JPRB,0.59446E-01_JPRB /)  
+KA(:, 2, 3, 8) = (/ &
+ & 0.45216E-01_JPRB,0.57005E-01_JPRB,0.64111E-01_JPRB,0.69328E-01_JPRB,0.72620E-01_JPRB, &
+ & 0.74228E-01_JPRB,0.73854E-01_JPRB,0.70600E-01_JPRB,0.60086E-01_JPRB /)  
+KA(:, 3, 3, 8) = (/ &
+ & 0.45716E-01_JPRB,0.57448E-01_JPRB,0.64591E-01_JPRB,0.69816E-01_JPRB,0.73178E-01_JPRB, &
+ & 0.74616E-01_JPRB,0.74093E-01_JPRB,0.70843E-01_JPRB,0.60738E-01_JPRB /)  
+KA(:, 4, 3, 8) = (/ &
+ & 0.46137E-01_JPRB,0.57862E-01_JPRB,0.65060E-01_JPRB,0.70283E-01_JPRB,0.73724E-01_JPRB, &
+ & 0.75067E-01_JPRB,0.74408E-01_JPRB,0.71130E-01_JPRB,0.61385E-01_JPRB /)  
+KA(:, 5, 3, 8) = (/ &
+ & 0.46490E-01_JPRB,0.58240E-01_JPRB,0.65537E-01_JPRB,0.70752E-01_JPRB,0.74187E-01_JPRB, &
+ & 0.75545E-01_JPRB,0.74817E-01_JPRB,0.71479E-01_JPRB,0.61998E-01_JPRB /)  
+KA(:, 1, 4, 8) = (/ &
+ & 0.38910E-01_JPRB,0.50823E-01_JPRB,0.57505E-01_JPRB,0.62364E-01_JPRB,0.65559E-01_JPRB, &
+ & 0.67154E-01_JPRB,0.66798E-01_JPRB,0.63531E-01_JPRB,0.52401E-01_JPRB /)  
+KA(:, 2, 4, 8) = (/ &
+ & 0.39488E-01_JPRB,0.51307E-01_JPRB,0.58022E-01_JPRB,0.62912E-01_JPRB,0.66074E-01_JPRB, &
+ & 0.67518E-01_JPRB,0.67025E-01_JPRB,0.63840E-01_JPRB,0.53093E-01_JPRB /)  
+KA(:, 3, 4, 8) = (/ &
+ & 0.39991E-01_JPRB,0.51812E-01_JPRB,0.58566E-01_JPRB,0.63451E-01_JPRB,0.66632E-01_JPRB, &
+ & 0.68010E-01_JPRB,0.67348E-01_JPRB,0.64169E-01_JPRB,0.53782E-01_JPRB /)  
+KA(:, 4, 4, 8) = (/ &
+ & 0.40387E-01_JPRB,0.52291E-01_JPRB,0.59117E-01_JPRB,0.64001E-01_JPRB,0.67196E-01_JPRB, &
+ & 0.68514E-01_JPRB,0.67789E-01_JPRB,0.64555E-01_JPRB,0.54470E-01_JPRB /)  
+KA(:, 5, 4, 8) = (/ &
+ & 0.40719E-01_JPRB,0.52739E-01_JPRB,0.59691E-01_JPRB,0.64572E-01_JPRB,0.67725E-01_JPRB, &
+ & 0.69031E-01_JPRB,0.68307E-01_JPRB,0.64985E-01_JPRB,0.55091E-01_JPRB /)  
+KA(:, 1, 5, 8) = (/ &
+ & 0.33692E-01_JPRB,0.45459E-01_JPRB,0.51705E-01_JPRB,0.56111E-01_JPRB,0.58984E-01_JPRB, &
+ & 0.60384E-01_JPRB,0.59951E-01_JPRB,0.56770E-01_JPRB,0.45939E-01_JPRB /)  
+KA(:, 2, 5, 8) = (/ &
+ & 0.34254E-01_JPRB,0.45979E-01_JPRB,0.52252E-01_JPRB,0.56664E-01_JPRB,0.59515E-01_JPRB, &
+ & 0.60816E-01_JPRB,0.60273E-01_JPRB,0.57146E-01_JPRB,0.46647E-01_JPRB /)  
+KA(:, 3, 5, 8) = (/ &
+ & 0.34738E-01_JPRB,0.46532E-01_JPRB,0.52846E-01_JPRB,0.57238E-01_JPRB,0.60077E-01_JPRB, &
+ & 0.61352E-01_JPRB,0.60714E-01_JPRB,0.57566E-01_JPRB,0.47359E-01_JPRB /)  
+KA(:, 4, 5, 8) = (/ &
+ & 0.35117E-01_JPRB,0.47047E-01_JPRB,0.53459E-01_JPRB,0.57849E-01_JPRB,0.60668E-01_JPRB, &
+ & 0.61902E-01_JPRB,0.61259E-01_JPRB,0.58030E-01_JPRB,0.48036E-01_JPRB /)  
+KA(:, 5, 5, 8) = (/ &
+ & 0.35428E-01_JPRB,0.47508E-01_JPRB,0.54083E-01_JPRB,0.58493E-01_JPRB,0.61253E-01_JPRB, &
+ & 0.62481E-01_JPRB,0.61851E-01_JPRB,0.58523E-01_JPRB,0.48648E-01_JPRB /)  
+KA(:, 1, 6, 8) = (/ &
+ & 0.28910E-01_JPRB,0.40429E-01_JPRB,0.46176E-01_JPRB,0.50108E-01_JPRB,0.52609E-01_JPRB, &
+ & 0.53750E-01_JPRB,0.53289E-01_JPRB,0.50286E-01_JPRB,0.40061E-01_JPRB /)  
+KA(:, 2, 6, 8) = (/ &
+ & 0.29433E-01_JPRB,0.40967E-01_JPRB,0.46731E-01_JPRB,0.50653E-01_JPRB,0.53149E-01_JPRB, &
+ & 0.54232E-01_JPRB,0.53687E-01_JPRB,0.50714E-01_JPRB,0.40756E-01_JPRB /)  
+KA(:, 3, 6, 8) = (/ &
+ & 0.29883E-01_JPRB,0.41520E-01_JPRB,0.47349E-01_JPRB,0.51251E-01_JPRB,0.53731E-01_JPRB, &
+ & 0.54796E-01_JPRB,0.54207E-01_JPRB,0.51188E-01_JPRB,0.41443E-01_JPRB /)  
+KA(:, 4, 6, 8) = (/ &
+ & 0.30252E-01_JPRB,0.42024E-01_JPRB,0.47998E-01_JPRB,0.51918E-01_JPRB,0.54339E-01_JPRB, &
+ & 0.55387E-01_JPRB,0.54820E-01_JPRB,0.51711E-01_JPRB,0.42085E-01_JPRB /)  
+KA(:, 5, 6, 8) = (/ &
+ & 0.30542E-01_JPRB,0.42447E-01_JPRB,0.48635E-01_JPRB,0.52598E-01_JPRB,0.54986E-01_JPRB, &
+ & 0.56038E-01_JPRB,0.55430E-01_JPRB,0.52236E-01_JPRB,0.42675E-01_JPRB /)  
+KA(:, 1, 7, 8) = (/ &
+ & 0.24600E-01_JPRB,0.35725E-01_JPRB,0.40952E-01_JPRB,0.44398E-01_JPRB,0.46558E-01_JPRB, &
+ & 0.47462E-01_JPRB,0.46950E-01_JPRB,0.44227E-01_JPRB,0.34751E-01_JPRB /)  
+KA(:, 2, 7, 8) = (/ &
+ & 0.25060E-01_JPRB,0.36250E-01_JPRB,0.41498E-01_JPRB,0.44950E-01_JPRB,0.47097E-01_JPRB, &
+ & 0.47977E-01_JPRB,0.47399E-01_JPRB,0.44690E-01_JPRB,0.35410E-01_JPRB /)  
+KA(:, 3, 7, 8) = (/ &
+ & 0.25466E-01_JPRB,0.36769E-01_JPRB,0.42119E-01_JPRB,0.45572E-01_JPRB,0.47696E-01_JPRB, &
+ & 0.48548E-01_JPRB,0.47965E-01_JPRB,0.45198E-01_JPRB,0.36050E-01_JPRB /)  
+KA(:, 4, 7, 8) = (/ &
+ & 0.25804E-01_JPRB,0.37232E-01_JPRB,0.42764E-01_JPRB,0.46249E-01_JPRB,0.48349E-01_JPRB, &
+ & 0.49173E-01_JPRB,0.48603E-01_JPRB,0.45737E-01_JPRB,0.36649E-01_JPRB /)  
+KA(:, 5, 7, 8) = (/ &
+ & 0.26075E-01_JPRB,0.37645E-01_JPRB,0.43371E-01_JPRB,0.46950E-01_JPRB,0.49045E-01_JPRB, &
+ & 0.49856E-01_JPRB,0.49223E-01_JPRB,0.46279E-01_JPRB,0.37198E-01_JPRB /)  
+KA(:, 1, 8, 8) = (/ &
+ & 0.20747E-01_JPRB,0.31325E-01_JPRB,0.36016E-01_JPRB,0.39047E-01_JPRB,0.40921E-01_JPRB, &
+ & 0.41656E-01_JPRB,0.41097E-01_JPRB,0.38682E-01_JPRB,0.29955E-01_JPRB /)  
+KA(:, 2, 8, 8) = (/ &
+ & 0.21145E-01_JPRB,0.31811E-01_JPRB,0.36541E-01_JPRB,0.39597E-01_JPRB,0.41455E-01_JPRB, &
+ & 0.42169E-01_JPRB,0.41575E-01_JPRB,0.39145E-01_JPRB,0.30577E-01_JPRB /)  
+KA(:, 3, 8, 8) = (/ &
+ & 0.21497E-01_JPRB,0.32290E-01_JPRB,0.37155E-01_JPRB,0.40238E-01_JPRB,0.42067E-01_JPRB, &
+ & 0.42744E-01_JPRB,0.42154E-01_JPRB,0.39648E-01_JPRB,0.31178E-01_JPRB /)  
+KA(:, 4, 8, 8) = (/ &
+ & 0.21796E-01_JPRB,0.32717E-01_JPRB,0.37766E-01_JPRB,0.40923E-01_JPRB,0.42738E-01_JPRB, &
+ & 0.43394E-01_JPRB,0.42768E-01_JPRB,0.40185E-01_JPRB,0.31733E-01_JPRB /)  
+KA(:, 5, 8, 8) = (/ &
+ & 0.22044E-01_JPRB,0.33112E-01_JPRB,0.38338E-01_JPRB,0.41597E-01_JPRB,0.43462E-01_JPRB, &
+ & 0.44087E-01_JPRB,0.43385E-01_JPRB,0.40740E-01_JPRB,0.32254E-01_JPRB /)  
+KA(:, 1, 9, 8) = (/ &
+ & 0.17360E-01_JPRB,0.27218E-01_JPRB,0.31401E-01_JPRB,0.34084E-01_JPRB,0.35741E-01_JPRB, &
+ & 0.36373E-01_JPRB,0.35798E-01_JPRB,0.33594E-01_JPRB,0.25664E-01_JPRB /)  
+KA(:, 2, 9, 8) = (/ &
+ & 0.17693E-01_JPRB,0.27662E-01_JPRB,0.31908E-01_JPRB,0.34622E-01_JPRB,0.36264E-01_JPRB, &
+ & 0.36877E-01_JPRB,0.36285E-01_JPRB,0.34049E-01_JPRB,0.26251E-01_JPRB /)  
+KA(:, 3, 9, 8) = (/ &
+ & 0.17992E-01_JPRB,0.28089E-01_JPRB,0.32477E-01_JPRB,0.35255E-01_JPRB,0.36874E-01_JPRB, &
+ & 0.37444E-01_JPRB,0.36831E-01_JPRB,0.34544E-01_JPRB,0.26814E-01_JPRB /)  
+KA(:, 4, 9, 8) = (/ &
+ & 0.18258E-01_JPRB,0.28481E-01_JPRB,0.33050E-01_JPRB,0.35909E-01_JPRB,0.37552E-01_JPRB, &
+ & 0.38078E-01_JPRB,0.37421E-01_JPRB,0.35073E-01_JPRB,0.27335E-01_JPRB /)  
+KA(:, 5, 9, 8) = (/ &
+ & 0.18484E-01_JPRB,0.28849E-01_JPRB,0.33601E-01_JPRB,0.36536E-01_JPRB,0.38254E-01_JPRB, &
+ & 0.38756E-01_JPRB,0.38026E-01_JPRB,0.35616E-01_JPRB,0.27829E-01_JPRB /)  
+KA(:, 1,10, 8) = (/ &
+ & 0.14462E-01_JPRB,0.23463E-01_JPRB,0.27186E-01_JPRB,0.29588E-01_JPRB,0.31079E-01_JPRB, &
+ & 0.31625E-01_JPRB,0.31053E-01_JPRB,0.29012E-01_JPRB,0.21916E-01_JPRB /)  
+KA(:, 2,10, 8) = (/ &
+ & 0.14737E-01_JPRB,0.23853E-01_JPRB,0.27662E-01_JPRB,0.30109E-01_JPRB,0.31581E-01_JPRB, &
+ & 0.32116E-01_JPRB,0.31527E-01_JPRB,0.29461E-01_JPRB,0.22460E-01_JPRB /)  
+KA(:, 3,10, 8) = (/ &
+ & 0.14983E-01_JPRB,0.24238E-01_JPRB,0.28187E-01_JPRB,0.30710E-01_JPRB,0.32176E-01_JPRB, &
+ & 0.32664E-01_JPRB,0.32044E-01_JPRB,0.29948E-01_JPRB,0.22987E-01_JPRB /)  
+KA(:, 4,10, 8) = (/ &
+ & 0.15228E-01_JPRB,0.24593E-01_JPRB,0.28718E-01_JPRB,0.31312E-01_JPRB,0.32826E-01_JPRB, &
+ & 0.33282E-01_JPRB,0.32615E-01_JPRB,0.30467E-01_JPRB,0.23478E-01_JPRB /)  
+KA(:, 5,10, 8) = (/ &
+ & 0.15411E-01_JPRB,0.24932E-01_JPRB,0.29228E-01_JPRB,0.31903E-01_JPRB,0.33455E-01_JPRB, &
+ & 0.33943E-01_JPRB,0.33207E-01_JPRB,0.30994E-01_JPRB,0.23939E-01_JPRB /)  
+KA(:, 1,11, 8) = (/ &
+ & 0.12097E-01_JPRB,0.20230E-01_JPRB,0.23554E-01_JPRB,0.25737E-01_JPRB,0.27070E-01_JPRB, &
+ & 0.27526E-01_JPRB,0.26987E-01_JPRB,0.25125E-01_JPRB,0.18843E-01_JPRB /)  
+KA(:, 2,11, 8) = (/ &
+ & 0.12316E-01_JPRB,0.20564E-01_JPRB,0.24014E-01_JPRB,0.26265E-01_JPRB,0.27589E-01_JPRB, &
+ & 0.28021E-01_JPRB,0.27462E-01_JPRB,0.25580E-01_JPRB,0.19341E-01_JPRB /)  
+KA(:, 3,11, 8) = (/ &
+ & 0.12525E-01_JPRB,0.20893E-01_JPRB,0.24494E-01_JPRB,0.26817E-01_JPRB,0.28172E-01_JPRB, &
+ & 0.28578E-01_JPRB,0.27985E-01_JPRB,0.26073E-01_JPRB,0.19811E-01_JPRB /)  
+KA(:, 4,11, 8) = (/ &
+ & 0.12698E-01_JPRB,0.21212E-01_JPRB,0.24971E-01_JPRB,0.27358E-01_JPRB,0.28752E-01_JPRB, &
+ & 0.29196E-01_JPRB,0.28554E-01_JPRB,0.26575E-01_JPRB,0.20254E-01_JPRB /)  
+KA(:, 5,11, 8) = (/ &
+ & 0.12813E-01_JPRB,0.21527E-01_JPRB,0.25428E-01_JPRB,0.27886E-01_JPRB,0.29316E-01_JPRB, &
+ & 0.29794E-01_JPRB,0.29144E-01_JPRB,0.27095E-01_JPRB,0.20669E-01_JPRB /)  
+KA(:, 1,12, 8) = (/ &
+ & 0.10079E-01_JPRB,0.17332E-01_JPRB,0.20326E-01_JPRB,0.22283E-01_JPRB,0.23452E-01_JPRB, &
+ & 0.23840E-01_JPRB,0.23351E-01_JPRB,0.21701E-01_JPRB,0.16150E-01_JPRB /)  
+KA(:, 2,12, 8) = (/ &
+ & 0.10253E-01_JPRB,0.17624E-01_JPRB,0.20738E-01_JPRB,0.22772E-01_JPRB,0.23963E-01_JPRB, &
+ & 0.24343E-01_JPRB,0.23830E-01_JPRB,0.22159E-01_JPRB,0.16605E-01_JPRB /)  
+KA(:, 3,12, 8) = (/ &
+ & 0.10412E-01_JPRB,0.17914E-01_JPRB,0.21165E-01_JPRB,0.23257E-01_JPRB,0.24491E-01_JPRB, &
+ & 0.24907E-01_JPRB,0.24364E-01_JPRB,0.22633E-01_JPRB,0.17031E-01_JPRB /)  
+KA(:, 4,12, 8) = (/ &
+ & 0.10528E-01_JPRB,0.18203E-01_JPRB,0.21585E-01_JPRB,0.23732E-01_JPRB,0.25019E-01_JPRB, &
+ & 0.25466E-01_JPRB,0.24925E-01_JPRB,0.23123E-01_JPRB,0.17440E-01_JPRB /)  
+KA(:, 5,12, 8) = (/ &
+ & 0.10595E-01_JPRB,0.18491E-01_JPRB,0.21987E-01_JPRB,0.24205E-01_JPRB,0.25526E-01_JPRB, &
+ & 0.26013E-01_JPRB,0.25497E-01_JPRB,0.23633E-01_JPRB,0.17825E-01_JPRB /)  
+KA(:, 1,13, 8) = (/ &
+ & 0.83675E-02_JPRB,0.14778E-01_JPRB,0.17455E-01_JPRB,0.19201E-01_JPRB,0.20214E-01_JPRB, &
+ & 0.20545E-01_JPRB,0.20133E-01_JPRB,0.18703E-01_JPRB,0.13810E-01_JPRB /)  
+KA(:, 2,13, 8) = (/ &
+ & 0.85037E-02_JPRB,0.15033E-01_JPRB,0.17824E-01_JPRB,0.19621E-01_JPRB,0.20684E-01_JPRB, &
+ & 0.21052E-01_JPRB,0.20616E-01_JPRB,0.19145E-01_JPRB,0.14218E-01_JPRB /)  
+KA(:, 3,13, 8) = (/ &
+ & 0.86129E-02_JPRB,0.15303E-01_JPRB,0.18197E-01_JPRB,0.20043E-01_JPRB,0.21163E-01_JPRB, &
+ & 0.21577E-01_JPRB,0.21143E-01_JPRB,0.19600E-01_JPRB,0.14617E-01_JPRB /)  
+KA(:, 4,13, 8) = (/ &
+ & 0.86912E-02_JPRB,0.15568E-01_JPRB,0.18565E-01_JPRB,0.20472E-01_JPRB,0.21636E-01_JPRB, &
+ & 0.22091E-01_JPRB,0.21674E-01_JPRB,0.20090E-01_JPRB,0.14991E-01_JPRB /)  
+KA(:, 5,13, 8) = (/ &
+ & 0.87302E-02_JPRB,0.15800E-01_JPRB,0.18917E-01_JPRB,0.20887E-01_JPRB,0.22103E-01_JPRB, &
+ & 0.22594E-01_JPRB,0.22198E-01_JPRB,0.20586E-01_JPRB,0.15351E-01_JPRB /)  
+KA(:, 1, 1, 9) = (/ &
+ & 0.23898E+00_JPRB,0.24353E+00_JPRB,0.26297E+00_JPRB,0.27410E+00_JPRB,0.27635E+00_JPRB, &
+ & 0.27151E+00_JPRB,0.26001E+00_JPRB,0.24536E+00_JPRB,0.24840E+00_JPRB /)  
+KA(:, 2, 1, 9) = (/ &
+ & 0.23703E+00_JPRB,0.24151E+00_JPRB,0.26057E+00_JPRB,0.27148E+00_JPRB,0.27415E+00_JPRB, &
+ & 0.26993E+00_JPRB,0.25912E+00_JPRB,0.24520E+00_JPRB,0.24830E+00_JPRB /)  
+KA(:, 3, 1, 9) = (/ &
+ & 0.23567E+00_JPRB,0.23998E+00_JPRB,0.25868E+00_JPRB,0.26917E+00_JPRB,0.27195E+00_JPRB, &
+ & 0.26833E+00_JPRB,0.25809E+00_JPRB,0.24488E+00_JPRB,0.24801E+00_JPRB /)  
+KA(:, 4, 1, 9) = (/ &
+ & 0.23478E+00_JPRB,0.23885E+00_JPRB,0.25713E+00_JPRB,0.26729E+00_JPRB,0.26990E+00_JPRB, &
+ & 0.26662E+00_JPRB,0.25696E+00_JPRB,0.24453E+00_JPRB,0.24772E+00_JPRB /)  
+KA(:, 5, 1, 9) = (/ &
+ & 0.23430E+00_JPRB,0.23810E+00_JPRB,0.25588E+00_JPRB,0.26568E+00_JPRB,0.26809E+00_JPRB, &
+ & 0.26490E+00_JPRB,0.25575E+00_JPRB,0.24412E+00_JPRB,0.24745E+00_JPRB /)  
+KA(:, 1, 2, 9) = (/ &
+ & 0.22071E+00_JPRB,0.23189E+00_JPRB,0.25280E+00_JPRB,0.26428E+00_JPRB,0.26846E+00_JPRB, &
+ & 0.26544E+00_JPRB,0.25423E+00_JPRB,0.23818E+00_JPRB,0.23526E+00_JPRB /)  
+KA(:, 2, 2, 9) = (/ &
+ & 0.21924E+00_JPRB,0.23025E+00_JPRB,0.25076E+00_JPRB,0.26194E+00_JPRB,0.26631E+00_JPRB, &
+ & 0.26393E+00_JPRB,0.25356E+00_JPRB,0.23803E+00_JPRB,0.23534E+00_JPRB /)  
+KA(:, 3, 2, 9) = (/ &
+ & 0.21843E+00_JPRB,0.22915E+00_JPRB,0.24919E+00_JPRB,0.26005E+00_JPRB,0.26425E+00_JPRB, &
+ & 0.26237E+00_JPRB,0.25262E+00_JPRB,0.23788E+00_JPRB,0.23535E+00_JPRB /)  
+KA(:, 4, 2, 9) = (/ &
+ & 0.21819E+00_JPRB,0.22852E+00_JPRB,0.24801E+00_JPRB,0.25855E+00_JPRB,0.26247E+00_JPRB, &
+ & 0.26079E+00_JPRB,0.25163E+00_JPRB,0.23767E+00_JPRB,0.23532E+00_JPRB /)  
+KA(:, 5, 2, 9) = (/ &
+ & 0.21836E+00_JPRB,0.22826E+00_JPRB,0.24718E+00_JPRB,0.25726E+00_JPRB,0.26101E+00_JPRB, &
+ & 0.25924E+00_JPRB,0.25059E+00_JPRB,0.23733E+00_JPRB,0.23520E+00_JPRB /)  
+KA(:, 1, 3, 9) = (/ &
+ & 0.20172E+00_JPRB,0.21909E+00_JPRB,0.24049E+00_JPRB,0.25259E+00_JPRB,0.25809E+00_JPRB, &
+ & 0.25661E+00_JPRB,0.24776E+00_JPRB,0.23048E+00_JPRB,0.22176E+00_JPRB /)  
+KA(:, 2, 3, 9) = (/ &
+ & 0.20072E+00_JPRB,0.21779E+00_JPRB,0.23872E+00_JPRB,0.25058E+00_JPRB,0.25610E+00_JPRB, &
+ & 0.25527E+00_JPRB,0.24712E+00_JPRB,0.23055E+00_JPRB,0.22209E+00_JPRB /)  
+KA(:, 3, 3, 9) = (/ &
+ & 0.20047E+00_JPRB,0.21708E+00_JPRB,0.23748E+00_JPRB,0.24902E+00_JPRB,0.25438E+00_JPRB, &
+ & 0.25391E+00_JPRB,0.24629E+00_JPRB,0.23063E+00_JPRB,0.22233E+00_JPRB /)  
+KA(:, 4, 3, 9) = (/ &
+ & 0.20080E+00_JPRB,0.21687E+00_JPRB,0.23670E+00_JPRB,0.24777E+00_JPRB,0.25298E+00_JPRB, &
+ & 0.25252E+00_JPRB,0.24542E+00_JPRB,0.23053E+00_JPRB,0.22249E+00_JPRB /)  
+KA(:, 5, 3, 9) = (/ &
+ & 0.20160E+00_JPRB,0.21710E+00_JPRB,0.23623E+00_JPRB,0.24683E+00_JPRB,0.25186E+00_JPRB, &
+ & 0.25126E+00_JPRB,0.24453E+00_JPRB,0.23018E+00_JPRB,0.22257E+00_JPRB /)  
+KA(:, 1, 4, 9) = (/ &
+ & 0.18271E+00_JPRB,0.20499E+00_JPRB,0.22645E+00_JPRB,0.23921E+00_JPRB,0.24553E+00_JPRB, &
+ & 0.24573E+00_JPRB,0.23916E+00_JPRB,0.22190E+00_JPRB,0.20803E+00_JPRB /)  
+KA(:, 2, 4, 9) = (/ &
+ & 0.18212E+00_JPRB,0.20407E+00_JPRB,0.22500E+00_JPRB,0.23755E+00_JPRB,0.24385E+00_JPRB, &
+ & 0.24460E+00_JPRB,0.23866E+00_JPRB,0.22223E+00_JPRB,0.20862E+00_JPRB /)  
+KA(:, 3, 4, 9) = (/ &
+ & 0.18234E+00_JPRB,0.20374E+00_JPRB,0.22412E+00_JPRB,0.23625E+00_JPRB,0.24249E+00_JPRB, &
+ & 0.24341E+00_JPRB,0.23801E+00_JPRB,0.22245E+00_JPRB,0.20916E+00_JPRB /)  
+KA(:, 4, 4, 9) = (/ &
+ & 0.18327E+00_JPRB,0.20396E+00_JPRB,0.22372E+00_JPRB,0.23535E+00_JPRB,0.24149E+00_JPRB, &
+ & 0.24231E+00_JPRB,0.23730E+00_JPRB,0.22248E+00_JPRB,0.20951E+00_JPRB /)  
+KA(:, 5, 4, 9) = (/ &
+ & 0.18465E+00_JPRB,0.20466E+00_JPRB,0.22368E+00_JPRB,0.23479E+00_JPRB,0.24072E+00_JPRB, &
+ & 0.24142E+00_JPRB,0.23656E+00_JPRB,0.22226E+00_JPRB,0.20975E+00_JPRB /)  
+KA(:, 1, 5, 9) = (/ &
+ & 0.16429E+00_JPRB,0.19018E+00_JPRB,0.21120E+00_JPRB,0.22440E+00_JPRB,0.23155E+00_JPRB, &
+ & 0.23328E+00_JPRB,0.22834E+00_JPRB,0.21231E+00_JPRB,0.19389E+00_JPRB /)  
+KA(:, 2, 5, 9) = (/ &
+ & 0.16411E+00_JPRB,0.18954E+00_JPRB,0.21010E+00_JPRB,0.22306E+00_JPRB,0.23026E+00_JPRB, &
+ & 0.23235E+00_JPRB,0.22803E+00_JPRB,0.21280E+00_JPRB,0.19477E+00_JPRB /)  
+KA(:, 3, 5, 9) = (/ &
+ & 0.16481E+00_JPRB,0.18955E+00_JPRB,0.20958E+00_JPRB,0.22215E+00_JPRB,0.22928E+00_JPRB, &
+ & 0.23142E+00_JPRB,0.22762E+00_JPRB,0.21318E+00_JPRB,0.19549E+00_JPRB /)  
+KA(:, 4, 5, 9) = (/ &
+ & 0.16626E+00_JPRB,0.19018E+00_JPRB,0.20952E+00_JPRB,0.22166E+00_JPRB,0.22860E+00_JPRB, &
+ & 0.23069E+00_JPRB,0.22713E+00_JPRB,0.21333E+00_JPRB,0.19598E+00_JPRB /)  
+KA(:, 5, 5, 9) = (/ &
+ & 0.16812E+00_JPRB,0.19134E+00_JPRB,0.20988E+00_JPRB,0.22152E+00_JPRB,0.22816E+00_JPRB, &
+ & 0.23013E+00_JPRB,0.22663E+00_JPRB,0.21325E+00_JPRB,0.19645E+00_JPRB /)  
+KA(:, 1, 6, 9) = (/ &
+ & 0.14677E+00_JPRB,0.17503E+00_JPRB,0.19553E+00_JPRB,0.20871E+00_JPRB,0.21680E+00_JPRB, &
+ & 0.21948E+00_JPRB,0.21556E+00_JPRB,0.20158E+00_JPRB,0.17922E+00_JPRB /)  
+KA(:, 2, 6, 9) = (/ &
+ & 0.14688E+00_JPRB,0.17460E+00_JPRB,0.19479E+00_JPRB,0.20777E+00_JPRB,0.21582E+00_JPRB, &
+ & 0.21883E+00_JPRB,0.21549E+00_JPRB,0.20223E+00_JPRB,0.18038E+00_JPRB /)  
+KA(:, 3, 6, 9) = (/ &
+ & 0.14791E+00_JPRB,0.17490E+00_JPRB,0.19459E+00_JPRB,0.20727E+00_JPRB,0.21519E+00_JPRB, &
+ & 0.21822E+00_JPRB,0.21533E+00_JPRB,0.20278E+00_JPRB,0.18127E+00_JPRB /)  
+KA(:, 4, 6, 9) = (/ &
+ & 0.14970E+00_JPRB,0.17592E+00_JPRB,0.19488E+00_JPRB,0.20713E+00_JPRB,0.21485E+00_JPRB, &
+ & 0.21785E+00_JPRB,0.21514E+00_JPRB,0.20305E+00_JPRB,0.18200E+00_JPRB /)  
+KA(:, 5, 6, 9) = (/ &
+ & 0.15169E+00_JPRB,0.17756E+00_JPRB,0.19568E+00_JPRB,0.20736E+00_JPRB,0.21479E+00_JPRB, &
+ & 0.21766E+00_JPRB,0.21494E+00_JPRB,0.20315E+00_JPRB,0.18271E+00_JPRB /)  
+KA(:, 1, 7, 9) = (/ &
+ & 0.13000E+00_JPRB,0.15987E+00_JPRB,0.17978E+00_JPRB,0.19301E+00_JPRB,0.20129E+00_JPRB, &
+ & 0.20436E+00_JPRB,0.20140E+00_JPRB,0.18919E+00_JPRB,0.16414E+00_JPRB /)  
+KA(:, 2, 7, 9) = (/ &
+ & 0.13035E+00_JPRB,0.15964E+00_JPRB,0.17934E+00_JPRB,0.19244E+00_JPRB,0.20068E+00_JPRB, &
+ & 0.20402E+00_JPRB,0.20156E+00_JPRB,0.19006E+00_JPRB,0.16551E+00_JPRB /)  
+KA(:, 3, 7, 9) = (/ &
+ & 0.13166E+00_JPRB,0.16021E+00_JPRB,0.17944E+00_JPRB,0.19225E+00_JPRB,0.20040E+00_JPRB, &
+ & 0.20381E+00_JPRB,0.20166E+00_JPRB,0.19078E+00_JPRB,0.16662E+00_JPRB /)  
+KA(:, 4, 7, 9) = (/ &
+ & 0.13361E+00_JPRB,0.16157E+00_JPRB,0.18010E+00_JPRB,0.19248E+00_JPRB,0.20041E+00_JPRB, &
+ & 0.20379E+00_JPRB,0.20172E+00_JPRB,0.19125E+00_JPRB,0.16758E+00_JPRB /)  
+KA(:, 5, 7, 9) = (/ &
+ & 0.13554E+00_JPRB,0.16344E+00_JPRB,0.18132E+00_JPRB,0.19308E+00_JPRB,0.20075E+00_JPRB, &
+ & 0.20397E+00_JPRB,0.20182E+00_JPRB,0.19159E+00_JPRB,0.16855E+00_JPRB /)  
+KA(:, 1, 8, 9) = (/ &
+ & 0.11433E+00_JPRB,0.14488E+00_JPRB,0.16431E+00_JPRB,0.17738E+00_JPRB,0.18527E+00_JPRB, &
+ & 0.18841E+00_JPRB,0.18617E+00_JPRB,0.17535E+00_JPRB,0.14893E+00_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART6',1,ZHOOK_HANDLE)
+END SUBROUTINE PART6
+
+
+SUBROUTINE PART7
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART7',0,ZHOOK_HANDLE)
+
+
+KA(:, 2, 8, 9) = (/ &
+ & 0.11487E+00_JPRB,0.14487E+00_JPRB,0.16414E+00_JPRB,0.17713E+00_JPRB,0.18501E+00_JPRB, &
+ & 0.18837E+00_JPRB,0.18658E+00_JPRB,0.17646E+00_JPRB,0.15049E+00_JPRB /)  
+KA(:, 3, 8, 9) = (/ &
+ & 0.11635E+00_JPRB,0.14571E+00_JPRB,0.16452E+00_JPRB,0.17724E+00_JPRB,0.18506E+00_JPRB, &
+ & 0.18853E+00_JPRB,0.18695E+00_JPRB,0.17741E+00_JPRB,0.15180E+00_JPRB /)  
+KA(:, 4, 8, 9) = (/ &
+ & 0.11822E+00_JPRB,0.14733E+00_JPRB,0.16549E+00_JPRB,0.17782E+00_JPRB,0.18544E+00_JPRB, &
+ & 0.18888E+00_JPRB,0.18734E+00_JPRB,0.17811E+00_JPRB,0.15295E+00_JPRB /)  
+KA(:, 5, 8, 9) = (/ &
+ & 0.12009E+00_JPRB,0.14924E+00_JPRB,0.16704E+00_JPRB,0.17887E+00_JPRB,0.18614E+00_JPRB, &
+ & 0.18940E+00_JPRB,0.18775E+00_JPRB,0.17867E+00_JPRB,0.15411E+00_JPRB /)  
+KA(:, 1, 9, 9) = (/ &
+ & 0.10002E+00_JPRB,0.13043E+00_JPRB,0.14919E+00_JPRB,0.16171E+00_JPRB,0.16913E+00_JPRB, &
+ & 0.17211E+00_JPRB,0.17023E+00_JPRB,0.16067E+00_JPRB,0.13380E+00_JPRB /)  
+KA(:, 2, 9, 9) = (/ &
+ & 0.10070E+00_JPRB,0.13063E+00_JPRB,0.14927E+00_JPRB,0.16171E+00_JPRB,0.16923E+00_JPRB, &
+ & 0.17237E+00_JPRB,0.17091E+00_JPRB,0.16202E+00_JPRB,0.13552E+00_JPRB /)  
+KA(:, 3, 9, 9) = (/ &
+ & 0.10219E+00_JPRB,0.13166E+00_JPRB,0.14990E+00_JPRB,0.16210E+00_JPRB,0.16959E+00_JPRB, &
+ & 0.17285E+00_JPRB,0.17161E+00_JPRB,0.16316E+00_JPRB,0.13700E+00_JPRB /)  
+KA(:, 4, 9, 9) = (/ &
+ & 0.10390E+00_JPRB,0.13341E+00_JPRB,0.15118E+00_JPRB,0.16299E+00_JPRB,0.17031E+00_JPRB, &
+ & 0.17358E+00_JPRB,0.17229E+00_JPRB,0.16405E+00_JPRB,0.13837E+00_JPRB /)  
+KA(:, 5, 9, 9) = (/ &
+ & 0.10569E+00_JPRB,0.13530E+00_JPRB,0.15298E+00_JPRB,0.16444E+00_JPRB,0.17139E+00_JPRB, &
+ & 0.17443E+00_JPRB,0.17301E+00_JPRB,0.16481E+00_JPRB,0.13976E+00_JPRB /)  
+KA(:, 1,10, 9) = (/ &
+ & 0.87148E-01_JPRB,0.11690E+00_JPRB,0.13450E+00_JPRB,0.14609E+00_JPRB,0.15307E+00_JPRB, &
+ & 0.15588E+00_JPRB,0.15420E+00_JPRB,0.14572E+00_JPRB,0.11917E+00_JPRB /)  
+KA(:, 2,10, 9) = (/ &
+ & 0.87948E-01_JPRB,0.11730E+00_JPRB,0.13485E+00_JPRB,0.14637E+00_JPRB,0.15348E+00_JPRB, &
+ & 0.15645E+00_JPRB,0.15513E+00_JPRB,0.14723E+00_JPRB,0.12103E+00_JPRB /)  
+KA(:, 3,10, 9) = (/ &
+ & 0.89341E-01_JPRB,0.11856E+00_JPRB,0.13575E+00_JPRB,0.14709E+00_JPRB,0.15418E+00_JPRB, &
+ & 0.15726E+00_JPRB,0.15609E+00_JPRB,0.14852E+00_JPRB,0.12266E+00_JPRB /)  
+KA(:, 4,10, 9) = (/ &
+ & 0.90912E-01_JPRB,0.12032E+00_JPRB,0.13733E+00_JPRB,0.14835E+00_JPRB,0.15527E+00_JPRB, &
+ & 0.15827E+00_JPRB,0.15702E+00_JPRB,0.14960E+00_JPRB,0.12424E+00_JPRB /)  
+KA(:, 5,10, 9) = (/ &
+ & 0.92651E-01_JPRB,0.12218E+00_JPRB,0.13930E+00_JPRB,0.15018E+00_JPRB,0.15676E+00_JPRB, &
+ & 0.15942E+00_JPRB,0.15802E+00_JPRB,0.15063E+00_JPRB,0.12583E+00_JPRB /)  
+KA(:, 1,11, 9) = (/ &
+ & 0.75810E-01_JPRB,0.10456E+00_JPRB,0.12069E+00_JPRB,0.13117E+00_JPRB,0.13761E+00_JPRB, &
+ & 0.14039E+00_JPRB,0.13895E+00_JPRB,0.13157E+00_JPRB,0.10610E+00_JPRB /)  
+KA(:, 2,11, 9) = (/ &
+ & 0.76895E-01_JPRB,0.10557E+00_JPRB,0.12151E+00_JPRB,0.13190E+00_JPRB,0.13842E+00_JPRB, &
+ & 0.14134E+00_JPRB,0.14014E+00_JPRB,0.13312E+00_JPRB,0.10796E+00_JPRB /)  
+KA(:, 3,11, 9) = (/ &
+ & 0.78244E-01_JPRB,0.10718E+00_JPRB,0.12298E+00_JPRB,0.13318E+00_JPRB,0.13962E+00_JPRB, &
+ & 0.14250E+00_JPRB,0.14130E+00_JPRB,0.13446E+00_JPRB,0.10971E+00_JPRB /)  
+KA(:, 4,11, 9) = (/ &
+ & 0.79823E-01_JPRB,0.10896E+00_JPRB,0.12491E+00_JPRB,0.13508E+00_JPRB,0.14123E+00_JPRB, &
+ & 0.14382E+00_JPRB,0.14250E+00_JPRB,0.13575E+00_JPRB,0.11145E+00_JPRB /)  
+KA(:, 5,11, 9) = (/ &
+ & 0.81587E-01_JPRB,0.11081E+00_JPRB,0.12696E+00_JPRB,0.13729E+00_JPRB,0.14323E+00_JPRB, &
+ & 0.14541E+00_JPRB,0.14385E+00_JPRB,0.13708E+00_JPRB,0.11322E+00_JPRB /)  
+KA(:, 1,12, 9) = (/ &
+ & 0.65751E-01_JPRB,0.93358E-01_JPRB,0.10793E+00_JPRB,0.11727E+00_JPRB,0.12307E+00_JPRB, &
+ & 0.12565E+00_JPRB,0.12447E+00_JPRB,0.11782E+00_JPRB,0.93944E-01_JPRB /)  
+KA(:, 2,12, 9) = (/ &
+ & 0.66851E-01_JPRB,0.94791E-01_JPRB,0.10927E+00_JPRB,0.11849E+00_JPRB,0.12430E+00_JPRB, &
+ & 0.12692E+00_JPRB,0.12584E+00_JPRB,0.11940E+00_JPRB,0.95825E-01_JPRB /)  
+KA(:, 3,12, 9) = (/ &
+ & 0.68215E-01_JPRB,0.96468E-01_JPRB,0.11113E+00_JPRB,0.12035E+00_JPRB,0.12596E+00_JPRB, &
+ & 0.12837E+00_JPRB,0.12723E+00_JPRB,0.12088E+00_JPRB,0.97697E-01_JPRB /)  
+KA(:, 4,12, 9) = (/ &
+ & 0.69822E-01_JPRB,0.98288E-01_JPRB,0.11318E+00_JPRB,0.12260E+00_JPRB,0.12800E+00_JPRB, &
+ & 0.13009E+00_JPRB,0.12875E+00_JPRB,0.12246E+00_JPRB,0.99558E-01_JPRB /)  
+KA(:, 5,12, 9) = (/ &
+ & 0.71562E-01_JPRB,0.10021E+00_JPRB,0.11536E+00_JPRB,0.12491E+00_JPRB,0.13035E+00_JPRB, &
+ & 0.13218E+00_JPRB,0.13049E+00_JPRB,0.12412E+00_JPRB,0.10142E+00_JPRB /)  
+KA(:, 1,13, 9) = (/ &
+ & 0.56716E-01_JPRB,0.83175E-01_JPRB,0.96227E-01_JPRB,0.10452E+00_JPRB,0.10961E+00_JPRB, &
+ & 0.11186E+00_JPRB,0.11078E+00_JPRB,0.10487E+00_JPRB,0.82822E-01_JPRB /)  
+KA(:, 2,13, 9) = (/ &
+ & 0.57829E-01_JPRB,0.84711E-01_JPRB,0.97973E-01_JPRB,0.10625E+00_JPRB,0.11123E+00_JPRB, &
+ & 0.11339E+00_JPRB,0.11236E+00_JPRB,0.10648E+00_JPRB,0.84781E-01_JPRB /)  
+KA(:, 3,13, 9) = (/ &
+ & 0.59231E-01_JPRB,0.86426E-01_JPRB,0.99996E-01_JPRB,0.10847E+00_JPRB,0.11329E+00_JPRB, &
+ & 0.11518E+00_JPRB,0.11401E+00_JPRB,0.10821E+00_JPRB,0.86727E-01_JPRB /)  
+KA(:, 4,13, 9) = (/ &
+ & 0.60793E-01_JPRB,0.88335E-01_JPRB,0.10220E+00_JPRB,0.11080E+00_JPRB,0.11568E+00_JPRB, &
+ & 0.11734E+00_JPRB,0.11592E+00_JPRB,0.11003E+00_JPRB,0.88652E-01_JPRB /)  
+KA(:, 5,13, 9) = (/ &
+ & 0.62288E-01_JPRB,0.90379E-01_JPRB,0.10449E+00_JPRB,0.11321E+00_JPRB,0.11819E+00_JPRB, &
+ & 0.11985E+00_JPRB,0.11808E+00_JPRB,0.11193E+00_JPRB,0.90608E-01_JPRB /)  
+KA(:, 1, 1,10) = (/ &
+ & 0.73370E+00_JPRB,0.66239E+00_JPRB,0.64754E+00_JPRB,0.65671E+00_JPRB,0.64798E+00_JPRB, &
+ & 0.62443E+00_JPRB,0.62156E+00_JPRB,0.59642E+00_JPRB,0.65694E+00_JPRB /)  
+KA(:, 2, 1,10) = (/ &
+ & 0.72227E+00_JPRB,0.65245E+00_JPRB,0.64115E+00_JPRB,0.65244E+00_JPRB,0.64519E+00_JPRB, &
+ & 0.62272E+00_JPRB,0.62178E+00_JPRB,0.59807E+00_JPRB,0.65734E+00_JPRB /)  
+KA(:, 3, 1,10) = (/ &
+ & 0.71096E+00_JPRB,0.64287E+00_JPRB,0.63490E+00_JPRB,0.64719E+00_JPRB,0.64246E+00_JPRB, &
+ & 0.61928E+00_JPRB,0.62164E+00_JPRB,0.59971E+00_JPRB,0.65975E+00_JPRB /)  
+KA(:, 4, 1,10) = (/ &
+ & 0.69997E+00_JPRB,0.63340E+00_JPRB,0.62893E+00_JPRB,0.64188E+00_JPRB,0.63859E+00_JPRB, &
+ & 0.61601E+00_JPRB,0.62127E+00_JPRB,0.59924E+00_JPRB,0.66003E+00_JPRB /)  
+KA(:, 5, 1,10) = (/ &
+ & 0.68921E+00_JPRB,0.62412E+00_JPRB,0.62274E+00_JPRB,0.63660E+00_JPRB,0.63341E+00_JPRB, &
+ & 0.61371E+00_JPRB,0.61976E+00_JPRB,0.59796E+00_JPRB,0.65874E+00_JPRB /)  
+KA(:, 1, 2,10) = (/ &
+ & 0.71435E+00_JPRB,0.65898E+00_JPRB,0.65791E+00_JPRB,0.67621E+00_JPRB,0.66803E+00_JPRB, &
+ & 0.63952E+00_JPRB,0.62227E+00_JPRB,0.60345E+00_JPRB,0.64341E+00_JPRB /)  
+KA(:, 2, 2,10) = (/ &
+ & 0.70295E+00_JPRB,0.64927E+00_JPRB,0.65209E+00_JPRB,0.67168E+00_JPRB,0.66601E+00_JPRB, &
+ & 0.63761E+00_JPRB,0.62183E+00_JPRB,0.60472E+00_JPRB,0.64489E+00_JPRB /)  
+KA(:, 3, 2,10) = (/ &
+ & 0.69214E+00_JPRB,0.64012E+00_JPRB,0.64637E+00_JPRB,0.66639E+00_JPRB,0.66353E+00_JPRB, &
+ & 0.63487E+00_JPRB,0.62217E+00_JPRB,0.60467E+00_JPRB,0.64521E+00_JPRB /)  
+KA(:, 4, 2,10) = (/ &
+ & 0.68145E+00_JPRB,0.63089E+00_JPRB,0.64022E+00_JPRB,0.66099E+00_JPRB,0.65898E+00_JPRB, &
+ & 0.63312E+00_JPRB,0.62106E+00_JPRB,0.60298E+00_JPRB,0.64380E+00_JPRB /)  
+KA(:, 5, 2,10) = (/ &
+ & 0.67068E+00_JPRB,0.62208E+00_JPRB,0.63390E+00_JPRB,0.65546E+00_JPRB,0.65376E+00_JPRB, &
+ & 0.63122E+00_JPRB,0.61818E+00_JPRB,0.60158E+00_JPRB,0.64256E+00_JPRB /)  
+KA(:, 1, 3,10) = (/ &
+ & 0.68340E+00_JPRB,0.64482E+00_JPRB,0.66290E+00_JPRB,0.68284E+00_JPRB,0.67896E+00_JPRB, &
+ & 0.65800E+00_JPRB,0.61589E+00_JPRB,0.60026E+00_JPRB,0.62209E+00_JPRB /)  
+KA(:, 2, 3,10) = (/ &
+ & 0.67251E+00_JPRB,0.63550E+00_JPRB,0.65818E+00_JPRB,0.67891E+00_JPRB,0.67722E+00_JPRB, &
+ & 0.65575E+00_JPRB,0.61745E+00_JPRB,0.60017E+00_JPRB,0.62247E+00_JPRB /)  
+KA(:, 3, 3,10) = (/ &
+ & 0.66182E+00_JPRB,0.62604E+00_JPRB,0.65231E+00_JPRB,0.67447E+00_JPRB,0.67369E+00_JPRB, &
+ & 0.65314E+00_JPRB,0.61804E+00_JPRB,0.59851E+00_JPRB,0.62084E+00_JPRB /)  
+KA(:, 4, 3,10) = (/ &
+ & 0.65114E+00_JPRB,0.61727E+00_JPRB,0.64569E+00_JPRB,0.67007E+00_JPRB,0.66854E+00_JPRB, &
+ & 0.65146E+00_JPRB,0.61713E+00_JPRB,0.59641E+00_JPRB,0.61922E+00_JPRB /)  
+KA(:, 5, 3,10) = (/ &
+ & 0.64110E+00_JPRB,0.60881E+00_JPRB,0.63926E+00_JPRB,0.66468E+00_JPRB,0.66347E+00_JPRB, &
+ & 0.64931E+00_JPRB,0.61433E+00_JPRB,0.59600E+00_JPRB,0.61885E+00_JPRB /)  
+KA(:, 1, 4,10) = (/ &
+ & 0.64233E+00_JPRB,0.62207E+00_JPRB,0.65747E+00_JPRB,0.67845E+00_JPRB,0.68170E+00_JPRB, &
+ & 0.66374E+00_JPRB,0.61548E+00_JPRB,0.59270E+00_JPRB,0.60473E+00_JPRB /)  
+KA(:, 2, 4,10) = (/ &
+ & 0.63185E+00_JPRB,0.61324E+00_JPRB,0.65237E+00_JPRB,0.67473E+00_JPRB,0.67959E+00_JPRB, &
+ & 0.66215E+00_JPRB,0.61741E+00_JPRB,0.59134E+00_JPRB,0.60361E+00_JPRB /)  
+KA(:, 3, 4,10) = (/ &
+ & 0.62122E+00_JPRB,0.60440E+00_JPRB,0.64660E+00_JPRB,0.67096E+00_JPRB,0.67570E+00_JPRB, &
+ & 0.66004E+00_JPRB,0.61834E+00_JPRB,0.58886E+00_JPRB,0.60079E+00_JPRB /)  
+KA(:, 4, 4,10) = (/ &
+ & 0.61111E+00_JPRB,0.59616E+00_JPRB,0.64034E+00_JPRB,0.66675E+00_JPRB,0.67073E+00_JPRB, &
+ & 0.65786E+00_JPRB,0.61721E+00_JPRB,0.58692E+00_JPRB,0.59978E+00_JPRB /)  
+KA(:, 5, 4,10) = (/ &
+ & 0.60223E+00_JPRB,0.58851E+00_JPRB,0.63401E+00_JPRB,0.66136E+00_JPRB,0.66631E+00_JPRB, &
+ & 0.65503E+00_JPRB,0.61469E+00_JPRB,0.58697E+00_JPRB,0.60040E+00_JPRB /)  
+KA(:, 1, 5,10) = (/ &
+ & 0.59185E+00_JPRB,0.59370E+00_JPRB,0.63992E+00_JPRB,0.66463E+00_JPRB,0.67279E+00_JPRB, &
+ & 0.65610E+00_JPRB,0.61852E+00_JPRB,0.58331E+00_JPRB,0.58763E+00_JPRB /)  
+KA(:, 2, 5,10) = (/ &
+ & 0.58158E+00_JPRB,0.58584E+00_JPRB,0.63500E+00_JPRB,0.66123E+00_JPRB,0.67045E+00_JPRB, &
+ & 0.65504E+00_JPRB,0.62015E+00_JPRB,0.58225E+00_JPRB,0.58623E+00_JPRB /)  
+KA(:, 3, 5,10) = (/ &
+ & 0.57197E+00_JPRB,0.57827E+00_JPRB,0.62932E+00_JPRB,0.65791E+00_JPRB,0.66630E+00_JPRB, &
+ & 0.65353E+00_JPRB,0.61959E+00_JPRB,0.58025E+00_JPRB,0.58483E+00_JPRB /)  
+KA(:, 4, 5,10) = (/ &
+ & 0.56277E+00_JPRB,0.57099E+00_JPRB,0.62369E+00_JPRB,0.65326E+00_JPRB,0.66229E+00_JPRB, &
+ & 0.65156E+00_JPRB,0.61745E+00_JPRB,0.57913E+00_JPRB,0.58544E+00_JPRB /)  
+KA(:, 5, 5,10) = (/ &
+ & 0.55581E+00_JPRB,0.56431E+00_JPRB,0.61807E+00_JPRB,0.64784E+00_JPRB,0.65855E+00_JPRB, &
+ & 0.64845E+00_JPRB,0.61479E+00_JPRB,0.57987E+00_JPRB,0.58646E+00_JPRB /)  
+KA(:, 1, 6,10) = (/ &
+ & 0.53954E+00_JPRB,0.56255E+00_JPRB,0.61290E+00_JPRB,0.64303E+00_JPRB,0.64974E+00_JPRB, &
+ & 0.64176E+00_JPRB,0.61714E+00_JPRB,0.56940E+00_JPRB,0.56484E+00_JPRB /)  
+KA(:, 2, 6,10) = (/ &
+ & 0.53060E+00_JPRB,0.55651E+00_JPRB,0.60789E+00_JPRB,0.63988E+00_JPRB,0.64820E+00_JPRB, &
+ & 0.64042E+00_JPRB,0.61834E+00_JPRB,0.56932E+00_JPRB,0.56418E+00_JPRB /)  
+KA(:, 3, 6,10) = (/ &
+ & 0.52216E+00_JPRB,0.54988E+00_JPRB,0.60294E+00_JPRB,0.63619E+00_JPRB,0.64521E+00_JPRB, &
+ & 0.63878E+00_JPRB,0.61726E+00_JPRB,0.56850E+00_JPRB,0.56474E+00_JPRB /)  
+KA(:, 4, 6,10) = (/ &
+ & 0.51474E+00_JPRB,0.54331E+00_JPRB,0.59815E+00_JPRB,0.63165E+00_JPRB,0.64200E+00_JPRB, &
+ & 0.63625E+00_JPRB,0.61431E+00_JPRB,0.56860E+00_JPRB,0.56684E+00_JPRB /)  
+KA(:, 5, 6,10) = (/ &
+ & 0.51206E+00_JPRB,0.53704E+00_JPRB,0.59303E+00_JPRB,0.62695E+00_JPRB,0.63853E+00_JPRB, &
+ & 0.63290E+00_JPRB,0.61169E+00_JPRB,0.57018E+00_JPRB,0.56804E+00_JPRB /)  
+KA(:, 1, 7,10) = (/ &
+ & 0.49102E+00_JPRB,0.52896E+00_JPRB,0.58005E+00_JPRB,0.60940E+00_JPRB,0.62179E+00_JPRB, &
+ & 0.62452E+00_JPRB,0.60693E+00_JPRB,0.55666E+00_JPRB,0.53830E+00_JPRB /)  
+KA(:, 2, 7,10) = (/ &
+ & 0.48351E+00_JPRB,0.52394E+00_JPRB,0.57551E+00_JPRB,0.60647E+00_JPRB,0.62043E+00_JPRB, &
+ & 0.62318E+00_JPRB,0.60808E+00_JPRB,0.55693E+00_JPRB,0.53902E+00_JPRB /)  
+KA(:, 3, 7,10) = (/ &
+ & 0.47604E+00_JPRB,0.51848E+00_JPRB,0.57124E+00_JPRB,0.60324E+00_JPRB,0.61835E+00_JPRB, &
+ & 0.62080E+00_JPRB,0.60698E+00_JPRB,0.55691E+00_JPRB,0.54116E+00_JPRB /)  
+KA(:, 4, 7,10) = (/ &
+ & 0.47121E+00_JPRB,0.51294E+00_JPRB,0.56659E+00_JPRB,0.59937E+00_JPRB,0.61527E+00_JPRB, &
+ & 0.61807E+00_JPRB,0.60502E+00_JPRB,0.55819E+00_JPRB,0.54361E+00_JPRB /)  
+KA(:, 5, 7,10) = (/ &
+ & 0.47306E+00_JPRB,0.50884E+00_JPRB,0.56199E+00_JPRB,0.59548E+00_JPRB,0.61135E+00_JPRB, &
+ & 0.61474E+00_JPRB,0.60372E+00_JPRB,0.56024E+00_JPRB,0.54444E+00_JPRB /)  
+KA(:, 1, 8,10) = (/ &
+ & 0.44396E+00_JPRB,0.49532E+00_JPRB,0.54249E+00_JPRB,0.57145E+00_JPRB,0.59186E+00_JPRB, &
+ & 0.60060E+00_JPRB,0.58785E+00_JPRB,0.54441E+00_JPRB,0.50913E+00_JPRB /)  
+KA(:, 2, 8,10) = (/ &
+ & 0.43707E+00_JPRB,0.49048E+00_JPRB,0.53914E+00_JPRB,0.56868E+00_JPRB,0.59107E+00_JPRB, &
+ & 0.60049E+00_JPRB,0.58883E+00_JPRB,0.54507E+00_JPRB,0.51101E+00_JPRB /)  
+KA(:, 3, 8,10) = (/ &
+ & 0.43098E+00_JPRB,0.48531E+00_JPRB,0.53541E+00_JPRB,0.56592E+00_JPRB,0.58911E+00_JPRB, &
+ & 0.59846E+00_JPRB,0.58812E+00_JPRB,0.54578E+00_JPRB,0.51441E+00_JPRB /)  
+KA(:, 4, 8,10) = (/ &
+ & 0.42957E+00_JPRB,0.48093E+00_JPRB,0.53173E+00_JPRB,0.56262E+00_JPRB,0.58636E+00_JPRB, &
+ & 0.59589E+00_JPRB,0.58708E+00_JPRB,0.54776E+00_JPRB,0.51773E+00_JPRB /)  
+KA(:, 5, 8,10) = (/ &
+ & 0.43487E+00_JPRB,0.48035E+00_JPRB,0.52822E+00_JPRB,0.55903E+00_JPRB,0.58272E+00_JPRB, &
+ & 0.59353E+00_JPRB,0.58697E+00_JPRB,0.54985E+00_JPRB,0.51918E+00_JPRB /)  
+KA(:, 1, 9,10) = (/ &
+ & 0.39531E+00_JPRB,0.46021E+00_JPRB,0.50510E+00_JPRB,0.53588E+00_JPRB,0.55895E+00_JPRB, &
+ & 0.56979E+00_JPRB,0.56191E+00_JPRB,0.52659E+00_JPRB,0.47758E+00_JPRB /)  
+KA(:, 2, 9,10) = (/ &
+ & 0.38905E+00_JPRB,0.45517E+00_JPRB,0.50180E+00_JPRB,0.53416E+00_JPRB,0.55846E+00_JPRB, &
+ & 0.57047E+00_JPRB,0.56355E+00_JPRB,0.52717E+00_JPRB,0.48088E+00_JPRB /)  
+KA(:, 3, 9,10) = (/ &
+ & 0.38493E+00_JPRB,0.45067E+00_JPRB,0.49854E+00_JPRB,0.53220E+00_JPRB,0.55699E+00_JPRB, &
+ & 0.56934E+00_JPRB,0.56332E+00_JPRB,0.52868E+00_JPRB,0.48536E+00_JPRB /)  
+KA(:, 4, 9,10) = (/ &
+ & 0.38723E+00_JPRB,0.44786E+00_JPRB,0.49546E+00_JPRB,0.52928E+00_JPRB,0.55471E+00_JPRB, &
+ & 0.56730E+00_JPRB,0.56372E+00_JPRB,0.53178E+00_JPRB,0.48902E+00_JPRB /)  
+KA(:, 5, 9,10) = (/ &
+ & 0.39433E+00_JPRB,0.45054E+00_JPRB,0.49350E+00_JPRB,0.52621E+00_JPRB,0.55192E+00_JPRB, &
+ & 0.56604E+00_JPRB,0.56481E+00_JPRB,0.53491E+00_JPRB,0.49067E+00_JPRB /)  
+KA(:, 1,10,10) = (/ &
+ & 0.34716E+00_JPRB,0.41992E+00_JPRB,0.46841E+00_JPRB,0.50264E+00_JPRB,0.52377E+00_JPRB, &
+ & 0.53462E+00_JPRB,0.53096E+00_JPRB,0.50215E+00_JPRB,0.44481E+00_JPRB /)  
+KA(:, 2,10,10) = (/ &
+ & 0.34195E+00_JPRB,0.41601E+00_JPRB,0.46506E+00_JPRB,0.50165E+00_JPRB,0.52385E+00_JPRB, &
+ & 0.53574E+00_JPRB,0.53310E+00_JPRB,0.50401E+00_JPRB,0.44924E+00_JPRB /)  
+KA(:, 3,10,10) = (/ &
+ & 0.34072E+00_JPRB,0.41255E+00_JPRB,0.46265E+00_JPRB,0.50007E+00_JPRB,0.52273E+00_JPRB, &
+ & 0.53553E+00_JPRB,0.53434E+00_JPRB,0.50668E+00_JPRB,0.45414E+00_JPRB /)  
+KA(:, 4,10,10) = (/ &
+ & 0.34572E+00_JPRB,0.41258E+00_JPRB,0.46029E+00_JPRB,0.49770E+00_JPRB,0.52100E+00_JPRB, &
+ & 0.53482E+00_JPRB,0.53633E+00_JPRB,0.51056E+00_JPRB,0.45768E+00_JPRB /)  
+KA(:, 5,10,10) = (/ &
+ & 0.35242E+00_JPRB,0.41826E+00_JPRB,0.46028E+00_JPRB,0.49520E+00_JPRB,0.51927E+00_JPRB, &
+ & 0.53500E+00_JPRB,0.53892E+00_JPRB,0.51405E+00_JPRB,0.45947E+00_JPRB /)  
+KA(:, 1,11,10) = (/ &
+ & 0.30160E+00_JPRB,0.37714E+00_JPRB,0.42971E+00_JPRB,0.46717E+00_JPRB,0.48926E+00_JPRB, &
+ & 0.49871E+00_JPRB,0.49756E+00_JPRB,0.47436E+00_JPRB,0.41261E+00_JPRB /)  
+KA(:, 2,11,10) = (/ &
+ & 0.29962E+00_JPRB,0.37395E+00_JPRB,0.42779E+00_JPRB,0.46654E+00_JPRB,0.48929E+00_JPRB, &
+ & 0.49998E+00_JPRB,0.50016E+00_JPRB,0.47769E+00_JPRB,0.41819E+00_JPRB /)  
+KA(:, 3,11,10) = (/ &
+ & 0.30371E+00_JPRB,0.37339E+00_JPRB,0.42611E+00_JPRB,0.46502E+00_JPRB,0.48821E+00_JPRB, &
+ & 0.50080E+00_JPRB,0.50323E+00_JPRB,0.48215E+00_JPRB,0.42266E+00_JPRB /)  
+KA(:, 4,11,10) = (/ &
+ & 0.30955E+00_JPRB,0.37857E+00_JPRB,0.42639E+00_JPRB,0.46320E+00_JPRB,0.48745E+00_JPRB, &
+ & 0.50213E+00_JPRB,0.50694E+00_JPRB,0.48639E+00_JPRB,0.42570E+00_JPRB /)  
+KA(:, 5,11,10) = (/ &
+ & 0.31511E+00_JPRB,0.38606E+00_JPRB,0.43107E+00_JPRB,0.46346E+00_JPRB,0.48731E+00_JPRB, &
+ & 0.50398E+00_JPRB,0.50975E+00_JPRB,0.48945E+00_JPRB,0.42790E+00_JPRB /)  
+KA(:, 1,12,10) = (/ &
+ & 0.26311E+00_JPRB,0.33847E+00_JPRB,0.39159E+00_JPRB,0.42993E+00_JPRB,0.45370E+00_JPRB, &
+ & 0.46372E+00_JPRB,0.46279E+00_JPRB,0.44427E+00_JPRB,0.37907E+00_JPRB /)  
+KA(:, 2,12,10) = (/ &
+ & 0.26583E+00_JPRB,0.33679E+00_JPRB,0.39073E+00_JPRB,0.42938E+00_JPRB,0.45415E+00_JPRB, &
+ & 0.46569E+00_JPRB,0.46639E+00_JPRB,0.44945E+00_JPRB,0.38485E+00_JPRB /)  
+KA(:, 3,12,10) = (/ &
+ & 0.27082E+00_JPRB,0.34071E+00_JPRB,0.39077E+00_JPRB,0.42842E+00_JPRB,0.45412E+00_JPRB, &
+ & 0.46820E+00_JPRB,0.47089E+00_JPRB,0.45477E+00_JPRB,0.38900E+00_JPRB /)  
+KA(:, 4,12,10) = (/ &
+ & 0.27574E+00_JPRB,0.34733E+00_JPRB,0.39532E+00_JPRB,0.42923E+00_JPRB,0.45504E+00_JPRB, &
+ & 0.47097E+00_JPRB,0.47486E+00_JPRB,0.45848E+00_JPRB,0.39247E+00_JPRB /)  
+KA(:, 5,12,10) = (/ &
+ & 0.28099E+00_JPRB,0.35386E+00_JPRB,0.40190E+00_JPRB,0.43447E+00_JPRB,0.45757E+00_JPRB, &
+ & 0.47294E+00_JPRB,0.47760E+00_JPRB,0.46125E+00_JPRB,0.39629E+00_JPRB /)  
+KA(:, 1,13,10) = (/ &
+ & 0.23133E+00_JPRB,0.30448E+00_JPRB,0.35592E+00_JPRB,0.39245E+00_JPRB,0.41703E+00_JPRB, &
+ & 0.42944E+00_JPRB,0.42838E+00_JPRB,0.41191E+00_JPRB,0.34405E+00_JPRB /)  
+KA(:, 2,13,10) = (/ &
+ & 0.23569E+00_JPRB,0.30675E+00_JPRB,0.35574E+00_JPRB,0.39238E+00_JPRB,0.41854E+00_JPRB, &
+ & 0.43261E+00_JPRB,0.43319E+00_JPRB,0.41851E+00_JPRB,0.34979E+00_JPRB /)  
+KA(:, 3,13,10) = (/ &
+ & 0.23995E+00_JPRB,0.31287E+00_JPRB,0.35958E+00_JPRB,0.39339E+00_JPRB,0.42025E+00_JPRB, &
+ & 0.43649E+00_JPRB,0.43814E+00_JPRB,0.42387E+00_JPRB,0.35427E+00_JPRB /)  
+KA(:, 4,13,10) = (/ &
+ & 0.24491E+00_JPRB,0.31868E+00_JPRB,0.36597E+00_JPRB,0.39887E+00_JPRB,0.42348E+00_JPRB, &
+ & 0.43960E+00_JPRB,0.44180E+00_JPRB,0.42781E+00_JPRB,0.35946E+00_JPRB /)  
+KA(:, 5,13,10) = (/ &
+ & 0.25204E+00_JPRB,0.32443E+00_JPRB,0.37244E+00_JPRB,0.40709E+00_JPRB,0.42924E+00_JPRB, &
+ & 0.44176E+00_JPRB,0.44465E+00_JPRB,0.43196E+00_JPRB,0.36481E+00_JPRB /)  
+KA(:, 1, 1,11) = (/ &
+ & 0.10293E+01_JPRB,0.90445E+00_JPRB,0.86137E+00_JPRB,0.83022E+00_JPRB,0.84086E+00_JPRB, &
+ & 0.86548E+00_JPRB,0.85587E+00_JPRB,0.85325E+00_JPRB,0.97261E+00_JPRB /)  
+KA(:, 2, 1,11) = (/ &
+ & 0.10191E+01_JPRB,0.89556E+00_JPRB,0.85472E+00_JPRB,0.82839E+00_JPRB,0.83827E+00_JPRB, &
+ & 0.86712E+00_JPRB,0.85626E+00_JPRB,0.85096E+00_JPRB,0.97088E+00_JPRB /)  
+KA(:, 3, 1,11) = (/ &
+ & 0.10070E+01_JPRB,0.88513E+00_JPRB,0.84750E+00_JPRB,0.82570E+00_JPRB,0.83354E+00_JPRB, &
+ & 0.86668E+00_JPRB,0.85692E+00_JPRB,0.84837E+00_JPRB,0.96710E+00_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART7',1,ZHOOK_HANDLE)
+END SUBROUTINE PART7
+
+
+SUBROUTINE PART8
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART8',0,ZHOOK_HANDLE)
+
+
+KA(:, 4, 1,11) = (/ &
+ & 0.99477E+00_JPRB,0.87449E+00_JPRB,0.83958E+00_JPRB,0.82146E+00_JPRB,0.82897E+00_JPRB, &
+ & 0.86436E+00_JPRB,0.85744E+00_JPRB,0.84703E+00_JPRB,0.96450E+00_JPRB /)  
+KA(:, 5, 1,11) = (/ &
+ & 0.98126E+00_JPRB,0.86272E+00_JPRB,0.83128E+00_JPRB,0.81555E+00_JPRB,0.82401E+00_JPRB, &
+ & 0.85929E+00_JPRB,0.85825E+00_JPRB,0.84707E+00_JPRB,0.96358E+00_JPRB /)  
+KA(:, 1, 2,11) = (/ &
+ & 0.10475E+01_JPRB,0.93151E+00_JPRB,0.89830E+00_JPRB,0.88420E+00_JPRB,0.87933E+00_JPRB, &
+ & 0.87846E+00_JPRB,0.87987E+00_JPRB,0.86086E+00_JPRB,0.97265E+00_JPRB /)  
+KA(:, 2, 2,11) = (/ &
+ & 0.10370E+01_JPRB,0.92196E+00_JPRB,0.89215E+00_JPRB,0.88284E+00_JPRB,0.87783E+00_JPRB, &
+ & 0.88073E+00_JPRB,0.88059E+00_JPRB,0.85882E+00_JPRB,0.96972E+00_JPRB /)  
+KA(:, 3, 2,11) = (/ &
+ & 0.10244E+01_JPRB,0.91082E+00_JPRB,0.88511E+00_JPRB,0.87976E+00_JPRB,0.87455E+00_JPRB, &
+ & 0.88046E+00_JPRB,0.88070E+00_JPRB,0.85623E+00_JPRB,0.96599E+00_JPRB /)  
+KA(:, 4, 2,11) = (/ &
+ & 0.10111E+01_JPRB,0.89911E+00_JPRB,0.87761E+00_JPRB,0.87481E+00_JPRB,0.87132E+00_JPRB, &
+ & 0.87692E+00_JPRB,0.88074E+00_JPRB,0.85652E+00_JPRB,0.96500E+00_JPRB /)  
+KA(:, 5, 2,11) = (/ &
+ & 0.99734E+00_JPRB,0.88696E+00_JPRB,0.86940E+00_JPRB,0.86908E+00_JPRB,0.86706E+00_JPRB, &
+ & 0.87191E+00_JPRB,0.88156E+00_JPRB,0.85742E+00_JPRB,0.96567E+00_JPRB /)  
+KA(:, 1, 3,11) = (/ &
+ & 0.10481E+01_JPRB,0.94949E+00_JPRB,0.92754E+00_JPRB,0.93134E+00_JPRB,0.92020E+00_JPRB, &
+ & 0.88963E+00_JPRB,0.89353E+00_JPRB,0.87368E+00_JPRB,0.96341E+00_JPRB /)  
+KA(:, 2, 3,11) = (/ &
+ & 0.10364E+01_JPRB,0.93961E+00_JPRB,0.92141E+00_JPRB,0.92962E+00_JPRB,0.91951E+00_JPRB, &
+ & 0.89266E+00_JPRB,0.89347E+00_JPRB,0.87218E+00_JPRB,0.95995E+00_JPRB /)  
+KA(:, 3, 3,11) = (/ &
+ & 0.10237E+01_JPRB,0.92877E+00_JPRB,0.91434E+00_JPRB,0.92574E+00_JPRB,0.91740E+00_JPRB, &
+ & 0.89302E+00_JPRB,0.89281E+00_JPRB,0.87167E+00_JPRB,0.95907E+00_JPRB /)  
+KA(:, 4, 3,11) = (/ &
+ & 0.10107E+01_JPRB,0.91711E+00_JPRB,0.90716E+00_JPRB,0.92023E+00_JPRB,0.91517E+00_JPRB, &
+ & 0.89037E+00_JPRB,0.89222E+00_JPRB,0.87266E+00_JPRB,0.95928E+00_JPRB /)  
+KA(:, 5, 3,11) = (/ &
+ & 0.99633E+00_JPRB,0.90470E+00_JPRB,0.89927E+00_JPRB,0.91439E+00_JPRB,0.91120E+00_JPRB, &
+ & 0.88600E+00_JPRB,0.89266E+00_JPRB,0.87273E+00_JPRB,0.95886E+00_JPRB /)  
+KA(:, 1, 4,11) = (/ &
+ & 0.10264E+01_JPRB,0.95071E+00_JPRB,0.94674E+00_JPRB,0.96322E+00_JPRB,0.95099E+00_JPRB, &
+ & 0.91374E+00_JPRB,0.89446E+00_JPRB,0.87855E+00_JPRB,0.93628E+00_JPRB /)  
+KA(:, 2, 4,11) = (/ &
+ & 0.10149E+01_JPRB,0.94036E+00_JPRB,0.94196E+00_JPRB,0.96089E+00_JPRB,0.95153E+00_JPRB, &
+ & 0.91752E+00_JPRB,0.89401E+00_JPRB,0.87842E+00_JPRB,0.93496E+00_JPRB /)  
+KA(:, 3, 4,11) = (/ &
+ & 0.10022E+01_JPRB,0.92957E+00_JPRB,0.93566E+00_JPRB,0.95688E+00_JPRB,0.95066E+00_JPRB, &
+ & 0.91784E+00_JPRB,0.89284E+00_JPRB,0.87926E+00_JPRB,0.93586E+00_JPRB /)  
+KA(:, 4, 4,11) = (/ &
+ & 0.98847E+00_JPRB,0.91773E+00_JPRB,0.92854E+00_JPRB,0.95134E+00_JPRB,0.94862E+00_JPRB, &
+ & 0.91547E+00_JPRB,0.89366E+00_JPRB,0.87951E+00_JPRB,0.93591E+00_JPRB /)  
+KA(:, 5, 4,11) = (/ &
+ & 0.97390E+00_JPRB,0.90550E+00_JPRB,0.92045E+00_JPRB,0.94604E+00_JPRB,0.94431E+00_JPRB, &
+ & 0.91218E+00_JPRB,0.89395E+00_JPRB,0.87858E+00_JPRB,0.93476E+00_JPRB /)  
+KA(:, 1, 5,11) = (/ &
+ & 0.98609E+00_JPRB,0.93424E+00_JPRB,0.95643E+00_JPRB,0.97684E+00_JPRB,0.96999E+00_JPRB, &
+ & 0.93774E+00_JPRB,0.88693E+00_JPRB,0.86915E+00_JPRB,0.90145E+00_JPRB /)  
+KA(:, 2, 5,11) = (/ &
+ & 0.97412E+00_JPRB,0.92401E+00_JPRB,0.95137E+00_JPRB,0.97507E+00_JPRB,0.97005E+00_JPRB, &
+ & 0.94299E+00_JPRB,0.88698E+00_JPRB,0.86947E+00_JPRB,0.90218E+00_JPRB /)  
+KA(:, 3, 5,11) = (/ &
+ & 0.96114E+00_JPRB,0.91242E+00_JPRB,0.94531E+00_JPRB,0.97096E+00_JPRB,0.96958E+00_JPRB, &
+ & 0.94325E+00_JPRB,0.88812E+00_JPRB,0.86965E+00_JPRB,0.90220E+00_JPRB /)  
+KA(:, 4, 5,11) = (/ &
+ & 0.94742E+00_JPRB,0.90067E+00_JPRB,0.93796E+00_JPRB,0.96622E+00_JPRB,0.96802E+00_JPRB, &
+ & 0.94082E+00_JPRB,0.89013E+00_JPRB,0.86974E+00_JPRB,0.90156E+00_JPRB /)  
+KA(:, 5, 5,11) = (/ &
+ & 0.93336E+00_JPRB,0.88866E+00_JPRB,0.92975E+00_JPRB,0.96102E+00_JPRB,0.96365E+00_JPRB, &
+ & 0.93814E+00_JPRB,0.89133E+00_JPRB,0.86813E+00_JPRB,0.89955E+00_JPRB /)  
+KA(:, 1, 6,11) = (/ &
+ & 0.92984E+00_JPRB,0.90494E+00_JPRB,0.94972E+00_JPRB,0.97425E+00_JPRB,0.97662E+00_JPRB, &
+ & 0.94556E+00_JPRB,0.88351E+00_JPRB,0.85584E+00_JPRB,0.87463E+00_JPRB /)  
+KA(:, 2, 6,11) = (/ &
+ & 0.91725E+00_JPRB,0.89370E+00_JPRB,0.94535E+00_JPRB,0.97222E+00_JPRB,0.97680E+00_JPRB, &
+ & 0.95110E+00_JPRB,0.88518E+00_JPRB,0.85597E+00_JPRB,0.87435E+00_JPRB /)  
+KA(:, 3, 6,11) = (/ &
+ & 0.90427E+00_JPRB,0.88250E+00_JPRB,0.93903E+00_JPRB,0.96844E+00_JPRB,0.97606E+00_JPRB, &
+ & 0.95304E+00_JPRB,0.88753E+00_JPRB,0.85497E+00_JPRB,0.87307E+00_JPRB /)  
+KA(:, 4, 6,11) = (/ &
+ & 0.89063E+00_JPRB,0.87150E+00_JPRB,0.93110E+00_JPRB,0.96495E+00_JPRB,0.97386E+00_JPRB, &
+ & 0.95208E+00_JPRB,0.89056E+00_JPRB,0.85380E+00_JPRB,0.87067E+00_JPRB /)  
+KA(:, 5, 6,11) = (/ &
+ & 0.87675E+00_JPRB,0.86027E+00_JPRB,0.92261E+00_JPRB,0.96002E+00_JPRB,0.96930E+00_JPRB, &
+ & 0.94959E+00_JPRB,0.89201E+00_JPRB,0.85155E+00_JPRB,0.86905E+00_JPRB /)  
+KA(:, 1, 7,11) = (/ &
+ & 0.85919E+00_JPRB,0.86562E+00_JPRB,0.92649E+00_JPRB,0.95965E+00_JPRB,0.96523E+00_JPRB, &
+ & 0.93650E+00_JPRB,0.88529E+00_JPRB,0.84057E+00_JPRB,0.84722E+00_JPRB /)  
+KA(:, 2, 7,11) = (/ &
+ & 0.84717E+00_JPRB,0.85599E+00_JPRB,0.92166E+00_JPRB,0.95676E+00_JPRB,0.96677E+00_JPRB, &
+ & 0.94156E+00_JPRB,0.88807E+00_JPRB,0.84087E+00_JPRB,0.84785E+00_JPRB /)  
+KA(:, 3, 7,11) = (/ &
+ & 0.83473E+00_JPRB,0.84556E+00_JPRB,0.91525E+00_JPRB,0.95342E+00_JPRB,0.96579E+00_JPRB, &
+ & 0.94506E+00_JPRB,0.89084E+00_JPRB,0.83990E+00_JPRB,0.84680E+00_JPRB /)  
+KA(:, 4, 7,11) = (/ &
+ & 0.82211E+00_JPRB,0.83508E+00_JPRB,0.90782E+00_JPRB,0.94944E+00_JPRB,0.96296E+00_JPRB, &
+ & 0.94530E+00_JPRB,0.89295E+00_JPRB,0.83822E+00_JPRB,0.84533E+00_JPRB /)  
+KA(:, 5, 7,11) = (/ &
+ & 0.80945E+00_JPRB,0.82542E+00_JPRB,0.90011E+00_JPRB,0.94513E+00_JPRB,0.95957E+00_JPRB, &
+ & 0.94356E+00_JPRB,0.89326E+00_JPRB,0.83636E+00_JPRB,0.84582E+00_JPRB /)  
+KA(:, 1, 8,11) = (/ &
+ & 0.78535E+00_JPRB,0.81958E+00_JPRB,0.89069E+00_JPRB,0.92943E+00_JPRB,0.93702E+00_JPRB, &
+ & 0.91895E+00_JPRB,0.88182E+00_JPRB,0.81942E+00_JPRB,0.81355E+00_JPRB /)  
+KA(:, 2, 8,11) = (/ &
+ & 0.77455E+00_JPRB,0.81120E+00_JPRB,0.88449E+00_JPRB,0.92737E+00_JPRB,0.93847E+00_JPRB, &
+ & 0.92275E+00_JPRB,0.88568E+00_JPRB,0.82187E+00_JPRB,0.81529E+00_JPRB /)  
+KA(:, 3, 8,11) = (/ &
+ & 0.76320E+00_JPRB,0.80325E+00_JPRB,0.87799E+00_JPRB,0.92413E+00_JPRB,0.93785E+00_JPRB, &
+ & 0.92584E+00_JPRB,0.88848E+00_JPRB,0.82246E+00_JPRB,0.81526E+00_JPRB /)  
+KA(:, 4, 8,11) = (/ &
+ & 0.75209E+00_JPRB,0.79461E+00_JPRB,0.87173E+00_JPRB,0.92037E+00_JPRB,0.93562E+00_JPRB, &
+ & 0.92659E+00_JPRB,0.89042E+00_JPRB,0.82203E+00_JPRB,0.81583E+00_JPRB /)  
+KA(:, 5, 8,11) = (/ &
+ & 0.74191E+00_JPRB,0.78569E+00_JPRB,0.86500E+00_JPRB,0.91565E+00_JPRB,0.93275E+00_JPRB, &
+ & 0.92508E+00_JPRB,0.89021E+00_JPRB,0.82215E+00_JPRB,0.81833E+00_JPRB /)  
+KA(:, 1, 9,11) = (/ &
+ & 0.71539E+00_JPRB,0.77045E+00_JPRB,0.84442E+00_JPRB,0.88339E+00_JPRB,0.89968E+00_JPRB, &
+ & 0.89536E+00_JPRB,0.86841E+00_JPRB,0.79955E+00_JPRB,0.77318E+00_JPRB /)  
+KA(:, 2, 9,11) = (/ &
+ & 0.70564E+00_JPRB,0.76424E+00_JPRB,0.83867E+00_JPRB,0.88222E+00_JPRB,0.90019E+00_JPRB, &
+ & 0.89929E+00_JPRB,0.87308E+00_JPRB,0.80390E+00_JPRB,0.77664E+00_JPRB /)  
+KA(:, 3, 9,11) = (/ &
+ & 0.69566E+00_JPRB,0.75811E+00_JPRB,0.83280E+00_JPRB,0.87940E+00_JPRB,0.90026E+00_JPRB, &
+ & 0.90222E+00_JPRB,0.87663E+00_JPRB,0.80593E+00_JPRB,0.77834E+00_JPRB /)  
+KA(:, 4, 9,11) = (/ &
+ & 0.68611E+00_JPRB,0.75067E+00_JPRB,0.82727E+00_JPRB,0.87623E+00_JPRB,0.89845E+00_JPRB, &
+ & 0.90248E+00_JPRB,0.87886E+00_JPRB,0.80698E+00_JPRB,0.78085E+00_JPRB /)  
+KA(:, 5, 9,11) = (/ &
+ & 0.67924E+00_JPRB,0.74336E+00_JPRB,0.82173E+00_JPRB,0.87192E+00_JPRB,0.89575E+00_JPRB, &
+ & 0.90118E+00_JPRB,0.87929E+00_JPRB,0.80840E+00_JPRB,0.78556E+00_JPRB /)  
+KA(:, 1,10,11) = (/ &
+ & 0.64750E+00_JPRB,0.72291E+00_JPRB,0.79049E+00_JPRB,0.83093E+00_JPRB,0.85723E+00_JPRB, &
+ & 0.86420E+00_JPRB,0.84410E+00_JPRB,0.78062E+00_JPRB,0.72995E+00_JPRB /)  
+KA(:, 2,10,11) = (/ &
+ & 0.63786E+00_JPRB,0.71701E+00_JPRB,0.78689E+00_JPRB,0.82920E+00_JPRB,0.85838E+00_JPRB, &
+ & 0.86903E+00_JPRB,0.84994E+00_JPRB,0.78581E+00_JPRB,0.73484E+00_JPRB /)  
+KA(:, 3,10,11) = (/ &
+ & 0.62879E+00_JPRB,0.71055E+00_JPRB,0.78212E+00_JPRB,0.82630E+00_JPRB,0.85919E+00_JPRB, &
+ & 0.87234E+00_JPRB,0.85358E+00_JPRB,0.78925E+00_JPRB,0.73873E+00_JPRB /)  
+KA(:, 4,10,11) = (/ &
+ & 0.62087E+00_JPRB,0.70389E+00_JPRB,0.77761E+00_JPRB,0.82356E+00_JPRB,0.85812E+00_JPRB, &
+ & 0.87281E+00_JPRB,0.85602E+00_JPRB,0.79174E+00_JPRB,0.74394E+00_JPRB /)  
+KA(:, 5,10,11) = (/ &
+ & 0.61947E+00_JPRB,0.69759E+00_JPRB,0.77360E+00_JPRB,0.82013E+00_JPRB,0.85542E+00_JPRB, &
+ & 0.87157E+00_JPRB,0.85709E+00_JPRB,0.79529E+00_JPRB,0.75052E+00_JPRB /)  
+KA(:, 1,11,11) = (/ &
+ & 0.57317E+00_JPRB,0.67082E+00_JPRB,0.73559E+00_JPRB,0.77934E+00_JPRB,0.81170E+00_JPRB, &
+ & 0.82582E+00_JPRB,0.81431E+00_JPRB,0.75887E+00_JPRB,0.68710E+00_JPRB /)  
+KA(:, 2,11,11) = (/ &
+ & 0.56447E+00_JPRB,0.66437E+00_JPRB,0.73216E+00_JPRB,0.77740E+00_JPRB,0.81370E+00_JPRB, &
+ & 0.83183E+00_JPRB,0.81926E+00_JPRB,0.76438E+00_JPRB,0.69316E+00_JPRB /)  
+KA(:, 3,11,11) = (/ &
+ & 0.55710E+00_JPRB,0.65798E+00_JPRB,0.72792E+00_JPRB,0.77609E+00_JPRB,0.81480E+00_JPRB, &
+ & 0.83377E+00_JPRB,0.82304E+00_JPRB,0.76833E+00_JPRB,0.70018E+00_JPRB /)  
+KA(:, 4,11,11) = (/ &
+ & 0.55630E+00_JPRB,0.65257E+00_JPRB,0.72437E+00_JPRB,0.77329E+00_JPRB,0.81397E+00_JPRB, &
+ & 0.83437E+00_JPRB,0.82566E+00_JPRB,0.77320E+00_JPRB,0.70886E+00_JPRB /)  
+KA(:, 5,11,11) = (/ &
+ & 0.56411E+00_JPRB,0.65194E+00_JPRB,0.72119E+00_JPRB,0.77017E+00_JPRB,0.81118E+00_JPRB, &
+ & 0.83405E+00_JPRB,0.82785E+00_JPRB,0.77913E+00_JPRB,0.71658E+00_JPRB /)  
+KA(:, 1,12,11) = (/ &
+ & 0.50093E+00_JPRB,0.61265E+00_JPRB,0.68222E+00_JPRB,0.73081E+00_JPRB,0.76376E+00_JPRB, &
+ & 0.78196E+00_JPRB,0.77611E+00_JPRB,0.73046E+00_JPRB,0.64374E+00_JPRB /)  
+KA(:, 2,12,11) = (/ &
+ & 0.49374E+00_JPRB,0.60693E+00_JPRB,0.67860E+00_JPRB,0.73087E+00_JPRB,0.76701E+00_JPRB, &
+ & 0.78657E+00_JPRB,0.78196E+00_JPRB,0.73646E+00_JPRB,0.65183E+00_JPRB /)  
+KA(:, 3,12,11) = (/ &
+ & 0.49262E+00_JPRB,0.60232E+00_JPRB,0.67517E+00_JPRB,0.73017E+00_JPRB,0.76805E+00_JPRB, &
+ & 0.78863E+00_JPRB,0.78651E+00_JPRB,0.74261E+00_JPRB,0.66205E+00_JPRB /)  
+KA(:, 4,12,11) = (/ &
+ & 0.49989E+00_JPRB,0.60234E+00_JPRB,0.67259E+00_JPRB,0.72790E+00_JPRB,0.76753E+00_JPRB, &
+ & 0.79017E+00_JPRB,0.79054E+00_JPRB,0.75027E+00_JPRB,0.67174E+00_JPRB /)  
+KA(:, 5,12,11) = (/ &
+ & 0.51177E+00_JPRB,0.60963E+00_JPRB,0.67313E+00_JPRB,0.72489E+00_JPRB,0.76606E+00_JPRB, &
+ & 0.79187E+00_JPRB,0.79524E+00_JPRB,0.75809E+00_JPRB,0.67955E+00_JPRB /)  
+KA(:, 1,13,11) = (/ &
+ & 0.43610E+00_JPRB,0.55280E+00_JPRB,0.62805E+00_JPRB,0.68236E+00_JPRB,0.71726E+00_JPRB, &
+ & 0.73439E+00_JPRB,0.73316E+00_JPRB,0.69581E+00_JPRB,0.60098E+00_JPRB /)  
+KA(:, 2,13,11) = (/ &
+ & 0.43332E+00_JPRB,0.54879E+00_JPRB,0.62602E+00_JPRB,0.68387E+00_JPRB,0.71981E+00_JPRB, &
+ & 0.73863E+00_JPRB,0.74004E+00_JPRB,0.70395E+00_JPRB,0.61188E+00_JPRB /)  
+KA(:, 3,13,11) = (/ &
+ & 0.43938E+00_JPRB,0.54819E+00_JPRB,0.62420E+00_JPRB,0.68392E+00_JPRB,0.72120E+00_JPRB, &
+ & 0.74159E+00_JPRB,0.74634E+00_JPRB,0.71286E+00_JPRB,0.62343E+00_JPRB /)  
+KA(:, 4,13,11) = (/ &
+ & 0.44997E+00_JPRB,0.55515E+00_JPRB,0.62479E+00_JPRB,0.68255E+00_JPRB,0.72173E+00_JPRB, &
+ & 0.74510E+00_JPRB,0.75297E+00_JPRB,0.72278E+00_JPRB,0.63265E+00_JPRB /)  
+KA(:, 5,13,11) = (/ &
+ & 0.46055E+00_JPRB,0.56787E+00_JPRB,0.63110E+00_JPRB,0.68248E+00_JPRB,0.72225E+00_JPRB, &
+ & 0.74921E+00_JPRB,0.75987E+00_JPRB,0.73098E+00_JPRB,0.64026E+00_JPRB /)  
+KA(:, 1, 1,12) = (/ &
+ & 0.14171E+01_JPRB,0.12412E+01_JPRB,0.11453E+01_JPRB,0.11122E+01_JPRB,0.11253E+01_JPRB, &
+ & 0.11573E+01_JPRB,0.11791E+01_JPRB,0.12973E+01_JPRB,0.14638E+01_JPRB /)  
+KA(:, 2, 1,12) = (/ &
+ & 0.14090E+01_JPRB,0.12342E+01_JPRB,0.11388E+01_JPRB,0.11095E+01_JPRB,0.11322E+01_JPRB, &
+ & 0.11607E+01_JPRB,0.11781E+01_JPRB,0.12938E+01_JPRB,0.14611E+01_JPRB /)  
+KA(:, 3, 1,12) = (/ &
+ & 0.13994E+01_JPRB,0.12258E+01_JPRB,0.11299E+01_JPRB,0.11046E+01_JPRB,0.11339E+01_JPRB, &
+ & 0.11641E+01_JPRB,0.11762E+01_JPRB,0.12907E+01_JPRB,0.14569E+01_JPRB /)  
+KA(:, 4, 1,12) = (/ &
+ & 0.13872E+01_JPRB,0.12151E+01_JPRB,0.11205E+01_JPRB,0.10983E+01_JPRB,0.11321E+01_JPRB, &
+ & 0.11655E+01_JPRB,0.11746E+01_JPRB,0.12884E+01_JPRB,0.14537E+01_JPRB /)  
+KA(:, 5, 1,12) = (/ &
+ & 0.13737E+01_JPRB,0.12034E+01_JPRB,0.11101E+01_JPRB,0.10915E+01_JPRB,0.11280E+01_JPRB, &
+ & 0.11664E+01_JPRB,0.11724E+01_JPRB,0.12834E+01_JPRB,0.14491E+01_JPRB /)  
+KA(:, 1, 2,12) = (/ &
+ & 0.15051E+01_JPRB,0.13181E+01_JPRB,0.12304E+01_JPRB,0.11719E+01_JPRB,0.11855E+01_JPRB, &
+ & 0.12309E+01_JPRB,0.12496E+01_JPRB,0.13203E+01_JPRB,0.15049E+01_JPRB /)  
+KA(:, 2, 2,12) = (/ &
+ & 0.14984E+01_JPRB,0.13123E+01_JPRB,0.12250E+01_JPRB,0.11699E+01_JPRB,0.11925E+01_JPRB, &
+ & 0.12340E+01_JPRB,0.12487E+01_JPRB,0.13193E+01_JPRB,0.15024E+01_JPRB /)  
+KA(:, 3, 2,12) = (/ &
+ & 0.14884E+01_JPRB,0.13036E+01_JPRB,0.12176E+01_JPRB,0.11665E+01_JPRB,0.11942E+01_JPRB, &
+ & 0.12376E+01_JPRB,0.12478E+01_JPRB,0.13196E+01_JPRB,0.15020E+01_JPRB /)  
+KA(:, 4, 2,12) = (/ &
+ & 0.14762E+01_JPRB,0.12929E+01_JPRB,0.12082E+01_JPRB,0.11628E+01_JPRB,0.11911E+01_JPRB, &
+ & 0.12406E+01_JPRB,0.12476E+01_JPRB,0.13168E+01_JPRB,0.15001E+01_JPRB /)  
+KA(:, 5, 2,12) = (/ &
+ & 0.14614E+01_JPRB,0.12800E+01_JPRB,0.11975E+01_JPRB,0.11575E+01_JPRB,0.11857E+01_JPRB, &
+ & 0.12414E+01_JPRB,0.12460E+01_JPRB,0.13124E+01_JPRB,0.14945E+01_JPRB /)  
+KA(:, 1, 3,12) = (/ &
+ & 0.15822E+01_JPRB,0.13890E+01_JPRB,0.13182E+01_JPRB,0.12547E+01_JPRB,0.12476E+01_JPRB, &
+ & 0.12873E+01_JPRB,0.13056E+01_JPRB,0.13300E+01_JPRB,0.15181E+01_JPRB /)  
+KA(:, 2, 3,12) = (/ &
+ & 0.15752E+01_JPRB,0.13826E+01_JPRB,0.13120E+01_JPRB,0.12557E+01_JPRB,0.12556E+01_JPRB, &
+ & 0.12906E+01_JPRB,0.13067E+01_JPRB,0.13310E+01_JPRB,0.15193E+01_JPRB /)  
+KA(:, 3, 3,12) = (/ &
+ & 0.15647E+01_JPRB,0.13732E+01_JPRB,0.13046E+01_JPRB,0.12538E+01_JPRB,0.12575E+01_JPRB, &
+ & 0.12941E+01_JPRB,0.13084E+01_JPRB,0.13307E+01_JPRB,0.15193E+01_JPRB /)  
+KA(:, 4, 3,12) = (/ &
+ & 0.15514E+01_JPRB,0.13616E+01_JPRB,0.12950E+01_JPRB,0.12500E+01_JPRB,0.12556E+01_JPRB, &
+ & 0.12989E+01_JPRB,0.13088E+01_JPRB,0.13292E+01_JPRB,0.15174E+01_JPRB /)  
+KA(:, 5, 3,12) = (/ &
+ & 0.15358E+01_JPRB,0.13480E+01_JPRB,0.12843E+01_JPRB,0.12443E+01_JPRB,0.12517E+01_JPRB, &
+ & 0.13009E+01_JPRB,0.13074E+01_JPRB,0.13265E+01_JPRB,0.15142E+01_JPRB /)  
+KA(:, 1, 4,12) = (/ &
+ & 0.16350E+01_JPRB,0.14490E+01_JPRB,0.13916E+01_JPRB,0.13443E+01_JPRB,0.13174E+01_JPRB, &
+ & 0.13244E+01_JPRB,0.13476E+01_JPRB,0.13365E+01_JPRB,0.15180E+01_JPRB /)  
+KA(:, 2, 4,12) = (/ &
+ & 0.16281E+01_JPRB,0.14425E+01_JPRB,0.13866E+01_JPRB,0.13479E+01_JPRB,0.13260E+01_JPRB, &
+ & 0.13268E+01_JPRB,0.13503E+01_JPRB,0.13390E+01_JPRB,0.15205E+01_JPRB /)  
+KA(:, 3, 4,12) = (/ &
+ & 0.16161E+01_JPRB,0.14310E+01_JPRB,0.13789E+01_JPRB,0.13476E+01_JPRB,0.13293E+01_JPRB, &
+ & 0.13314E+01_JPRB,0.13532E+01_JPRB,0.13408E+01_JPRB,0.15220E+01_JPRB /)  
+KA(:, 4, 4,12) = (/ &
+ & 0.16014E+01_JPRB,0.14178E+01_JPRB,0.13691E+01_JPRB,0.13444E+01_JPRB,0.13282E+01_JPRB, &
+ & 0.13379E+01_JPRB,0.13534E+01_JPRB,0.13410E+01_JPRB,0.15212E+01_JPRB /)  
+KA(:, 5, 4,12) = (/ &
+ & 0.15848E+01_JPRB,0.14026E+01_JPRB,0.13577E+01_JPRB,0.13378E+01_JPRB,0.13257E+01_JPRB, &
+ & 0.13408E+01_JPRB,0.13534E+01_JPRB,0.13387E+01_JPRB,0.15183E+01_JPRB /)  
+KA(:, 1, 5,12) = (/ &
+ & 0.16591E+01_JPRB,0.14947E+01_JPRB,0.14480E+01_JPRB,0.14262E+01_JPRB,0.13903E+01_JPRB, &
+ & 0.13587E+01_JPRB,0.13777E+01_JPRB,0.13491E+01_JPRB,0.15046E+01_JPRB /)  
+KA(:, 2, 5,12) = (/ &
+ & 0.16509E+01_JPRB,0.14862E+01_JPRB,0.14440E+01_JPRB,0.14316E+01_JPRB,0.13991E+01_JPRB, &
+ & 0.13598E+01_JPRB,0.13805E+01_JPRB,0.13541E+01_JPRB,0.15083E+01_JPRB /)  
+KA(:, 3, 5,12) = (/ &
+ & 0.16386E+01_JPRB,0.14750E+01_JPRB,0.14364E+01_JPRB,0.14307E+01_JPRB,0.14045E+01_JPRB, &
+ & 0.13655E+01_JPRB,0.13826E+01_JPRB,0.13579E+01_JPRB,0.15118E+01_JPRB /)  
+KA(:, 4, 5,12) = (/ &
+ & 0.16229E+01_JPRB,0.14605E+01_JPRB,0.14277E+01_JPRB,0.14269E+01_JPRB,0.14036E+01_JPRB, &
+ & 0.13722E+01_JPRB,0.13840E+01_JPRB,0.13579E+01_JPRB,0.15115E+01_JPRB /)  
+KA(:, 5, 5,12) = (/ &
+ & 0.16043E+01_JPRB,0.14439E+01_JPRB,0.14169E+01_JPRB,0.14203E+01_JPRB,0.14024E+01_JPRB, &
+ & 0.13765E+01_JPRB,0.13831E+01_JPRB,0.13575E+01_JPRB,0.15115E+01_JPRB /)  
+KA(:, 1, 6,12) = (/ &
+ & 0.16482E+01_JPRB,0.15147E+01_JPRB,0.14918E+01_JPRB,0.14883E+01_JPRB,0.14555E+01_JPRB, &
+ & 0.14030E+01_JPRB,0.13913E+01_JPRB,0.13585E+01_JPRB,0.14685E+01_JPRB /)  
+KA(:, 2, 6,12) = (/ &
+ & 0.16385E+01_JPRB,0.15059E+01_JPRB,0.14880E+01_JPRB,0.14958E+01_JPRB,0.14629E+01_JPRB, &
+ & 0.14056E+01_JPRB,0.13940E+01_JPRB,0.13659E+01_JPRB,0.14762E+01_JPRB /)  
+KA(:, 3, 6,12) = (/ &
+ & 0.16253E+01_JPRB,0.14941E+01_JPRB,0.14803E+01_JPRB,0.14965E+01_JPRB,0.14689E+01_JPRB, &
+ & 0.14106E+01_JPRB,0.13970E+01_JPRB,0.13717E+01_JPRB,0.14817E+01_JPRB /)  
+KA(:, 4, 6,12) = (/ &
+ & 0.16089E+01_JPRB,0.14791E+01_JPRB,0.14713E+01_JPRB,0.14908E+01_JPRB,0.14702E+01_JPRB, &
+ & 0.14165E+01_JPRB,0.13983E+01_JPRB,0.13748E+01_JPRB,0.14851E+01_JPRB /)  
+KA(:, 5, 6,12) = (/ &
+ & 0.15910E+01_JPRB,0.14633E+01_JPRB,0.14618E+01_JPRB,0.14838E+01_JPRB,0.14693E+01_JPRB, &
+ & 0.14213E+01_JPRB,0.13976E+01_JPRB,0.13770E+01_JPRB,0.14876E+01_JPRB /)  
+KA(:, 1, 7,12) = (/ &
+ & 0.16064E+01_JPRB,0.15086E+01_JPRB,0.15144E+01_JPRB,0.15268E+01_JPRB,0.15040E+01_JPRB, &
+ & 0.14507E+01_JPRB,0.13904E+01_JPRB,0.13521E+01_JPRB,0.14179E+01_JPRB /)  
+KA(:, 2, 7,12) = (/ &
+ & 0.15953E+01_JPRB,0.14985E+01_JPRB,0.15140E+01_JPRB,0.15345E+01_JPRB,0.15085E+01_JPRB, &
+ & 0.14549E+01_JPRB,0.13952E+01_JPRB,0.13604E+01_JPRB,0.14259E+01_JPRB /)  
+KA(:, 3, 7,12) = (/ &
+ & 0.15801E+01_JPRB,0.14851E+01_JPRB,0.15073E+01_JPRB,0.15363E+01_JPRB,0.15134E+01_JPRB, &
+ & 0.14598E+01_JPRB,0.13998E+01_JPRB,0.13678E+01_JPRB,0.14328E+01_JPRB /)  
+KA(:, 4, 7,12) = (/ &
+ & 0.15629E+01_JPRB,0.14703E+01_JPRB,0.14995E+01_JPRB,0.15318E+01_JPRB,0.15172E+01_JPRB, &
+ & 0.14656E+01_JPRB,0.14020E+01_JPRB,0.13732E+01_JPRB,0.14388E+01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART8',1,ZHOOK_HANDLE)
+END SUBROUTINE PART8
+
+
+SUBROUTINE PART9
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART9',0,ZHOOK_HANDLE)
+
+
+KA(:, 5, 7,12) = (/ &
+ & 0.15443E+01_JPRB,0.14531E+01_JPRB,0.14892E+01_JPRB,0.15236E+01_JPRB,0.15169E+01_JPRB, &
+ & 0.14692E+01_JPRB,0.14038E+01_JPRB,0.13766E+01_JPRB,0.14425E+01_JPRB /)  
+KA(:, 1, 8,12) = (/ &
+ & 0.15344E+01_JPRB,0.14766E+01_JPRB,0.15157E+01_JPRB,0.15423E+01_JPRB,0.15330E+01_JPRB, &
+ & 0.14811E+01_JPRB,0.13889E+01_JPRB,0.13373E+01_JPRB,0.13698E+01_JPRB /)  
+KA(:, 2, 8,12) = (/ &
+ & 0.15222E+01_JPRB,0.14679E+01_JPRB,0.15175E+01_JPRB,0.15473E+01_JPRB,0.15363E+01_JPRB, &
+ & 0.14872E+01_JPRB,0.13948E+01_JPRB,0.13442E+01_JPRB,0.13786E+01_JPRB /)  
+KA(:, 3, 8,12) = (/ &
+ & 0.15059E+01_JPRB,0.14533E+01_JPRB,0.15144E+01_JPRB,0.15489E+01_JPRB,0.15409E+01_JPRB, &
+ & 0.14932E+01_JPRB,0.14005E+01_JPRB,0.13518E+01_JPRB,0.13861E+01_JPRB /)  
+KA(:, 4, 8,12) = (/ &
+ & 0.14877E+01_JPRB,0.14368E+01_JPRB,0.15058E+01_JPRB,0.15451E+01_JPRB,0.15445E+01_JPRB, &
+ & 0.14989E+01_JPRB,0.14044E+01_JPRB,0.13574E+01_JPRB,0.13922E+01_JPRB /)  
+KA(:, 5, 8,12) = (/ &
+ & 0.14686E+01_JPRB,0.14200E+01_JPRB,0.14953E+01_JPRB,0.15388E+01_JPRB,0.15447E+01_JPRB, &
+ & 0.15024E+01_JPRB,0.14082E+01_JPRB,0.13605E+01_JPRB,0.13964E+01_JPRB /)  
+KA(:, 1, 9,12) = (/ &
+ & 0.14373E+01_JPRB,0.14266E+01_JPRB,0.14938E+01_JPRB,0.15367E+01_JPRB,0.15341E+01_JPRB, &
+ & 0.14871E+01_JPRB,0.13939E+01_JPRB,0.13173E+01_JPRB,0.13285E+01_JPRB /)  
+KA(:, 2, 9,12) = (/ &
+ & 0.14250E+01_JPRB,0.14168E+01_JPRB,0.14968E+01_JPRB,0.15390E+01_JPRB,0.15386E+01_JPRB, &
+ & 0.14934E+01_JPRB,0.13987E+01_JPRB,0.13260E+01_JPRB,0.13388E+01_JPRB /)  
+KA(:, 3, 9,12) = (/ &
+ & 0.14085E+01_JPRB,0.14020E+01_JPRB,0.14946E+01_JPRB,0.15393E+01_JPRB,0.15430E+01_JPRB, &
+ & 0.14996E+01_JPRB,0.14050E+01_JPRB,0.13340E+01_JPRB,0.13471E+01_JPRB /)  
+KA(:, 4, 9,12) = (/ &
+ & 0.13898E+01_JPRB,0.13862E+01_JPRB,0.14874E+01_JPRB,0.15365E+01_JPRB,0.15469E+01_JPRB, &
+ & 0.15061E+01_JPRB,0.14095E+01_JPRB,0.13387E+01_JPRB,0.13529E+01_JPRB /)  
+KA(:, 5, 9,12) = (/ &
+ & 0.13711E+01_JPRB,0.13694E+01_JPRB,0.14772E+01_JPRB,0.15321E+01_JPRB,0.15481E+01_JPRB, &
+ & 0.15103E+01_JPRB,0.14136E+01_JPRB,0.13413E+01_JPRB,0.13557E+01_JPRB /)  
+KA(:, 1,10,12) = (/ &
+ & 0.13234E+01_JPRB,0.13585E+01_JPRB,0.14531E+01_JPRB,0.15073E+01_JPRB,0.15094E+01_JPRB, &
+ & 0.14728E+01_JPRB,0.13972E+01_JPRB,0.12936E+01_JPRB,0.12835E+01_JPRB /)  
+KA(:, 2,10,12) = (/ &
+ & 0.13109E+01_JPRB,0.13494E+01_JPRB,0.14540E+01_JPRB,0.15085E+01_JPRB,0.15139E+01_JPRB, &
+ & 0.14784E+01_JPRB,0.14019E+01_JPRB,0.13047E+01_JPRB,0.12968E+01_JPRB /)  
+KA(:, 3,10,12) = (/ &
+ & 0.12956E+01_JPRB,0.13371E+01_JPRB,0.14504E+01_JPRB,0.15092E+01_JPRB,0.15192E+01_JPRB, &
+ & 0.14835E+01_JPRB,0.14094E+01_JPRB,0.13136E+01_JPRB,0.13076E+01_JPRB /)  
+KA(:, 4,10,12) = (/ &
+ & 0.12784E+01_JPRB,0.13237E+01_JPRB,0.14435E+01_JPRB,0.15071E+01_JPRB,0.15234E+01_JPRB, &
+ & 0.14905E+01_JPRB,0.14145E+01_JPRB,0.13190E+01_JPRB,0.13139E+01_JPRB /)  
+KA(:, 5,10,12) = (/ &
+ & 0.12607E+01_JPRB,0.13090E+01_JPRB,0.14344E+01_JPRB,0.15038E+01_JPRB,0.15261E+01_JPRB, &
+ & 0.14956E+01_JPRB,0.14181E+01_JPRB,0.13210E+01_JPRB,0.13178E+01_JPRB /)  
+KA(:, 1,11,12) = (/ &
+ & 0.12047E+01_JPRB,0.12789E+01_JPRB,0.13923E+01_JPRB,0.14530E+01_JPRB,0.14659E+01_JPRB, &
+ & 0.14483E+01_JPRB,0.13898E+01_JPRB,0.12749E+01_JPRB,0.12386E+01_JPRB /)  
+KA(:, 2,11,12) = (/ &
+ & 0.11911E+01_JPRB,0.12701E+01_JPRB,0.13902E+01_JPRB,0.14549E+01_JPRB,0.14710E+01_JPRB, &
+ & 0.14517E+01_JPRB,0.13981E+01_JPRB,0.12874E+01_JPRB,0.12546E+01_JPRB /)  
+KA(:, 3,11,12) = (/ &
+ & 0.11768E+01_JPRB,0.12599E+01_JPRB,0.13852E+01_JPRB,0.14552E+01_JPRB,0.14760E+01_JPRB, &
+ & 0.14581E+01_JPRB,0.14056E+01_JPRB,0.12968E+01_JPRB,0.12644E+01_JPRB /)  
+KA(:, 4,11,12) = (/ &
+ & 0.11609E+01_JPRB,0.12491E+01_JPRB,0.13785E+01_JPRB,0.14542E+01_JPRB,0.14794E+01_JPRB, &
+ & 0.14643E+01_JPRB,0.14106E+01_JPRB,0.13015E+01_JPRB,0.12707E+01_JPRB /)  
+KA(:, 5,11,12) = (/ &
+ & 0.11453E+01_JPRB,0.12370E+01_JPRB,0.13722E+01_JPRB,0.14526E+01_JPRB,0.14820E+01_JPRB, &
+ & 0.14680E+01_JPRB,0.14139E+01_JPRB,0.13041E+01_JPRB,0.12775E+01_JPRB /)  
+KA(:, 1,12,12) = (/ &
+ & 0.10892E+01_JPRB,0.11978E+01_JPRB,0.13175E+01_JPRB,0.13800E+01_JPRB,0.14113E+01_JPRB, &
+ & 0.14104E+01_JPRB,0.13697E+01_JPRB,0.12563E+01_JPRB,0.11895E+01_JPRB /)  
+KA(:, 2,12,12) = (/ &
+ & 0.10764E+01_JPRB,0.11912E+01_JPRB,0.13142E+01_JPRB,0.13828E+01_JPRB,0.14151E+01_JPRB, &
+ & 0.14161E+01_JPRB,0.13800E+01_JPRB,0.12704E+01_JPRB,0.12046E+01_JPRB /)  
+KA(:, 3,12,12) = (/ &
+ & 0.10634E+01_JPRB,0.11835E+01_JPRB,0.13099E+01_JPRB,0.13835E+01_JPRB,0.14196E+01_JPRB, &
+ & 0.14241E+01_JPRB,0.13887E+01_JPRB,0.12786E+01_JPRB,0.12148E+01_JPRB /)  
+KA(:, 4,12,12) = (/ &
+ & 0.10495E+01_JPRB,0.11751E+01_JPRB,0.13057E+01_JPRB,0.13846E+01_JPRB,0.14230E+01_JPRB, &
+ & 0.14300E+01_JPRB,0.13945E+01_JPRB,0.12836E+01_JPRB,0.12244E+01_JPRB /)  
+KA(:, 5,12,12) = (/ &
+ & 0.10406E+01_JPRB,0.11650E+01_JPRB,0.13011E+01_JPRB,0.13864E+01_JPRB,0.14254E+01_JPRB, &
+ & 0.14322E+01_JPRB,0.13980E+01_JPRB,0.12878E+01_JPRB,0.12342E+01_JPRB /)  
+KA(:, 1,13,12) = (/ &
+ & 0.97671E+00_JPRB,0.11194E+01_JPRB,0.12352E+01_JPRB,0.13029E+01_JPRB,0.13468E+01_JPRB, &
+ & 0.13623E+01_JPRB,0.13355E+01_JPRB,0.12363E+01_JPRB,0.11351E+01_JPRB /)  
+KA(:, 2,13,12) = (/ &
+ & 0.96514E+00_JPRB,0.11135E+01_JPRB,0.12326E+01_JPRB,0.13049E+01_JPRB,0.13523E+01_JPRB, &
+ & 0.13721E+01_JPRB,0.13488E+01_JPRB,0.12496E+01_JPRB,0.11500E+01_JPRB /)  
+KA(:, 3,13,12) = (/ &
+ & 0.95350E+00_JPRB,0.11073E+01_JPRB,0.12308E+01_JPRB,0.13063E+01_JPRB,0.13575E+01_JPRB, &
+ & 0.13815E+01_JPRB,0.13588E+01_JPRB,0.12584E+01_JPRB,0.11629E+01_JPRB /)  
+KA(:, 4,13,12) = (/ &
+ & 0.94648E+00_JPRB,0.11002E+01_JPRB,0.12294E+01_JPRB,0.13087E+01_JPRB,0.13617E+01_JPRB, &
+ & 0.13873E+01_JPRB,0.13660E+01_JPRB,0.12653E+01_JPRB,0.11761E+01_JPRB /)  
+KA(:, 5,13,12) = (/ &
+ & 0.94953E+00_JPRB,0.10941E+01_JPRB,0.12277E+01_JPRB,0.13116E+01_JPRB,0.13645E+01_JPRB, &
+ & 0.13901E+01_JPRB,0.13713E+01_JPRB,0.12717E+01_JPRB,0.11896E+01_JPRB /)  
+KA(:, 1, 1,13) = (/ &
+ & 0.21877E+01_JPRB,0.19168E+01_JPRB,0.16830E+01_JPRB,0.16306E+01_JPRB,0.15763E+01_JPRB, &
+ & 0.15398E+01_JPRB,0.15859E+01_JPRB,0.18468E+01_JPRB,0.20593E+01_JPRB /)  
+KA(:, 2, 1,13) = (/ &
+ & 0.22022E+01_JPRB,0.19296E+01_JPRB,0.16916E+01_JPRB,0.16400E+01_JPRB,0.15796E+01_JPRB, &
+ & 0.15432E+01_JPRB,0.15912E+01_JPRB,0.18534E+01_JPRB,0.20655E+01_JPRB /)  
+KA(:, 3, 1,13) = (/ &
+ & 0.22022E+01_JPRB,0.19297E+01_JPRB,0.16911E+01_JPRB,0.16436E+01_JPRB,0.15885E+01_JPRB, &
+ & 0.15469E+01_JPRB,0.15941E+01_JPRB,0.18569E+01_JPRB,0.20695E+01_JPRB /)  
+KA(:, 4, 1,13) = (/ &
+ & 0.21895E+01_JPRB,0.19186E+01_JPRB,0.16803E+01_JPRB,0.16425E+01_JPRB,0.15962E+01_JPRB, &
+ & 0.15525E+01_JPRB,0.15947E+01_JPRB,0.18575E+01_JPRB,0.20703E+01_JPRB /)  
+KA(:, 5, 1,13) = (/ &
+ & 0.21697E+01_JPRB,0.19013E+01_JPRB,0.16648E+01_JPRB,0.16344E+01_JPRB,0.16003E+01_JPRB, &
+ & 0.15574E+01_JPRB,0.15941E+01_JPRB,0.18572E+01_JPRB,0.20709E+01_JPRB /)  
+KA(:, 1, 2,13) = (/ &
+ & 0.22550E+01_JPRB,0.19753E+01_JPRB,0.17734E+01_JPRB,0.17443E+01_JPRB,0.17102E+01_JPRB, &
+ & 0.16986E+01_JPRB,0.17217E+01_JPRB,0.19863E+01_JPRB,0.22329E+01_JPRB /)  
+KA(:, 2, 2,13) = (/ &
+ & 0.22679E+01_JPRB,0.19867E+01_JPRB,0.17791E+01_JPRB,0.17520E+01_JPRB,0.17112E+01_JPRB, &
+ & 0.17026E+01_JPRB,0.17283E+01_JPRB,0.19934E+01_JPRB,0.22409E+01_JPRB /)  
+KA(:, 3, 2,13) = (/ &
+ & 0.22698E+01_JPRB,0.19883E+01_JPRB,0.17767E+01_JPRB,0.17568E+01_JPRB,0.17174E+01_JPRB, &
+ & 0.17053E+01_JPRB,0.17318E+01_JPRB,0.19966E+01_JPRB,0.22448E+01_JPRB /)  
+KA(:, 4, 2,13) = (/ &
+ & 0.22597E+01_JPRB,0.19796E+01_JPRB,0.17668E+01_JPRB,0.17548E+01_JPRB,0.17261E+01_JPRB, &
+ & 0.17073E+01_JPRB,0.17314E+01_JPRB,0.19968E+01_JPRB,0.22451E+01_JPRB /)  
+KA(:, 5, 2,13) = (/ &
+ & 0.22409E+01_JPRB,0.19632E+01_JPRB,0.17511E+01_JPRB,0.17475E+01_JPRB,0.17318E+01_JPRB, &
+ & 0.17099E+01_JPRB,0.17295E+01_JPRB,0.19947E+01_JPRB,0.22431E+01_JPRB /)  
+KA(:, 1, 3,13) = (/ &
+ & 0.23526E+01_JPRB,0.20603E+01_JPRB,0.18829E+01_JPRB,0.18493E+01_JPRB,0.18420E+01_JPRB, &
+ & 0.18637E+01_JPRB,0.18729E+01_JPRB,0.21122E+01_JPRB,0.23977E+01_JPRB /)  
+KA(:, 2, 3,13) = (/ &
+ & 0.23692E+01_JPRB,0.20749E+01_JPRB,0.18925E+01_JPRB,0.18515E+01_JPRB,0.18400E+01_JPRB, &
+ & 0.18683E+01_JPRB,0.18793E+01_JPRB,0.21211E+01_JPRB,0.24079E+01_JPRB /)  
+KA(:, 3, 3,13) = (/ &
+ & 0.23722E+01_JPRB,0.20775E+01_JPRB,0.18924E+01_JPRB,0.18562E+01_JPRB,0.18451E+01_JPRB, &
+ & 0.18704E+01_JPRB,0.18820E+01_JPRB,0.21249E+01_JPRB,0.24125E+01_JPRB /)  
+KA(:, 4, 3,13) = (/ &
+ & 0.23635E+01_JPRB,0.20699E+01_JPRB,0.18842E+01_JPRB,0.18555E+01_JPRB,0.18524E+01_JPRB, &
+ & 0.18695E+01_JPRB,0.18827E+01_JPRB,0.21252E+01_JPRB,0.24130E+01_JPRB /)  
+KA(:, 5, 3,13) = (/ &
+ & 0.23480E+01_JPRB,0.20564E+01_JPRB,0.18701E+01_JPRB,0.18499E+01_JPRB,0.18587E+01_JPRB, &
+ & 0.18689E+01_JPRB,0.18824E+01_JPRB,0.21250E+01_JPRB,0.24123E+01_JPRB /)  
+KA(:, 1, 4,13) = (/ &
+ & 0.24939E+01_JPRB,0.21837E+01_JPRB,0.20232E+01_JPRB,0.19589E+01_JPRB,0.19737E+01_JPRB, &
+ & 0.20251E+01_JPRB,0.20263E+01_JPRB,0.22145E+01_JPRB,0.25248E+01_JPRB /)  
+KA(:, 2, 4,13) = (/ &
+ & 0.25110E+01_JPRB,0.21986E+01_JPRB,0.20314E+01_JPRB,0.19589E+01_JPRB,0.19697E+01_JPRB, &
+ & 0.20307E+01_JPRB,0.20352E+01_JPRB,0.22253E+01_JPRB,0.25374E+01_JPRB /)  
+KA(:, 3, 4,13) = (/ &
+ & 0.25161E+01_JPRB,0.22032E+01_JPRB,0.20346E+01_JPRB,0.19625E+01_JPRB,0.19727E+01_JPRB, &
+ & 0.20334E+01_JPRB,0.20403E+01_JPRB,0.22301E+01_JPRB,0.25429E+01_JPRB /)  
+KA(:, 4, 4,13) = (/ &
+ & 0.25095E+01_JPRB,0.21974E+01_JPRB,0.20283E+01_JPRB,0.19657E+01_JPRB,0.19780E+01_JPRB, &
+ & 0.20313E+01_JPRB,0.20420E+01_JPRB,0.22330E+01_JPRB,0.25458E+01_JPRB /)  
+KA(:, 5, 4,13) = (/ &
+ & 0.24957E+01_JPRB,0.21853E+01_JPRB,0.20162E+01_JPRB,0.19613E+01_JPRB,0.19825E+01_JPRB, &
+ & 0.20289E+01_JPRB,0.20423E+01_JPRB,0.22370E+01_JPRB,0.25500E+01_JPRB /)  
+KA(:, 1, 5,13) = (/ &
+ & 0.26637E+01_JPRB,0.23330E+01_JPRB,0.21864E+01_JPRB,0.20904E+01_JPRB,0.21013E+01_JPRB, &
+ & 0.21699E+01_JPRB,0.21691E+01_JPRB,0.22859E+01_JPRB,0.26102E+01_JPRB /)  
+KA(:, 2, 5,13) = (/ &
+ & 0.26795E+01_JPRB,0.23466E+01_JPRB,0.21930E+01_JPRB,0.20883E+01_JPRB,0.21007E+01_JPRB, &
+ & 0.21775E+01_JPRB,0.21807E+01_JPRB,0.22957E+01_JPRB,0.26216E+01_JPRB /)  
+KA(:, 3, 5,13) = (/ &
+ & 0.26872E+01_JPRB,0.23531E+01_JPRB,0.22001E+01_JPRB,0.20926E+01_JPRB,0.21029E+01_JPRB, &
+ & 0.21797E+01_JPRB,0.21879E+01_JPRB,0.23020E+01_JPRB,0.26289E+01_JPRB /)  
+KA(:, 4, 5,13) = (/ &
+ & 0.26803E+01_JPRB,0.23471E+01_JPRB,0.21948E+01_JPRB,0.20970E+01_JPRB,0.21069E+01_JPRB, &
+ & 0.21770E+01_JPRB,0.21901E+01_JPRB,0.23087E+01_JPRB,0.26364E+01_JPRB /)  
+KA(:, 5, 5,13) = (/ &
+ & 0.26667E+01_JPRB,0.23351E+01_JPRB,0.21832E+01_JPRB,0.20959E+01_JPRB,0.21091E+01_JPRB, &
+ & 0.21729E+01_JPRB,0.21936E+01_JPRB,0.23158E+01_JPRB,0.26444E+01_JPRB /)  
+KA(:, 1, 6,13) = (/ &
+ & 0.28246E+01_JPRB,0.24844E+01_JPRB,0.23554E+01_JPRB,0.22494E+01_JPRB,0.22325E+01_JPRB, &
+ & 0.22877E+01_JPRB,0.22925E+01_JPRB,0.23319E+01_JPRB,0.26619E+01_JPRB /)  
+KA(:, 2, 6,13) = (/ &
+ & 0.28376E+01_JPRB,0.24941E+01_JPRB,0.23589E+01_JPRB,0.22458E+01_JPRB,0.22369E+01_JPRB, &
+ & 0.22959E+01_JPRB,0.23048E+01_JPRB,0.23408E+01_JPRB,0.26720E+01_JPRB /)  
+KA(:, 3, 6,13) = (/ &
+ & 0.28468E+01_JPRB,0.25010E+01_JPRB,0.23646E+01_JPRB,0.22473E+01_JPRB,0.22379E+01_JPRB, &
+ & 0.22992E+01_JPRB,0.23116E+01_JPRB,0.23486E+01_JPRB,0.26812E+01_JPRB /)  
+KA(:, 4, 6,13) = (/ &
+ & 0.28432E+01_JPRB,0.24967E+01_JPRB,0.23643E+01_JPRB,0.22531E+01_JPRB,0.22409E+01_JPRB, &
+ & 0.22981E+01_JPRB,0.23157E+01_JPRB,0.23572E+01_JPRB,0.26911E+01_JPRB /)  
+KA(:, 5, 6,13) = (/ &
+ & 0.28266E+01_JPRB,0.24816E+01_JPRB,0.23521E+01_JPRB,0.22549E+01_JPRB,0.22433E+01_JPRB, &
+ & 0.22953E+01_JPRB,0.23213E+01_JPRB,0.23655E+01_JPRB,0.27010E+01_JPRB /)  
+KA(:, 1, 7,13) = (/ &
+ & 0.29507E+01_JPRB,0.26186E+01_JPRB,0.25154E+01_JPRB,0.24214E+01_JPRB,0.23698E+01_JPRB, &
+ & 0.23809E+01_JPRB,0.23936E+01_JPRB,0.23723E+01_JPRB,0.26904E+01_JPRB /)  
+KA(:, 2, 7,13) = (/ &
+ & 0.29579E+01_JPRB,0.26218E+01_JPRB,0.25131E+01_JPRB,0.24179E+01_JPRB,0.23791E+01_JPRB, &
+ & 0.23895E+01_JPRB,0.24036E+01_JPRB,0.23830E+01_JPRB,0.27026E+01_JPRB /)  
+KA(:, 3, 7,13) = (/ &
+ & 0.29645E+01_JPRB,0.26250E+01_JPRB,0.25156E+01_JPRB,0.24180E+01_JPRB,0.23828E+01_JPRB, &
+ & 0.23929E+01_JPRB,0.24104E+01_JPRB,0.23923E+01_JPRB,0.27131E+01_JPRB /)  
+KA(:, 4, 7,13) = (/ &
+ & 0.29630E+01_JPRB,0.26222E+01_JPRB,0.25142E+01_JPRB,0.24231E+01_JPRB,0.23851E+01_JPRB, &
+ & 0.23923E+01_JPRB,0.24170E+01_JPRB,0.24017E+01_JPRB,0.27241E+01_JPRB /)  
+KA(:, 5, 7,13) = (/ &
+ & 0.29476E+01_JPRB,0.26071E+01_JPRB,0.25053E+01_JPRB,0.24267E+01_JPRB,0.23855E+01_JPRB, &
+ & 0.23922E+01_JPRB,0.24228E+01_JPRB,0.24116E+01_JPRB,0.27361E+01_JPRB /)  
+KA(:, 1, 8,13) = (/ &
+ & 0.30283E+01_JPRB,0.27271E+01_JPRB,0.26499E+01_JPRB,0.25812E+01_JPRB,0.25068E+01_JPRB, &
+ & 0.24674E+01_JPRB,0.24700E+01_JPRB,0.24088E+01_JPRB,0.26873E+01_JPRB /)  
+KA(:, 2, 8,13) = (/ &
+ & 0.30302E+01_JPRB,0.27229E+01_JPRB,0.26429E+01_JPRB,0.25805E+01_JPRB,0.25199E+01_JPRB, &
+ & 0.24758E+01_JPRB,0.24797E+01_JPRB,0.24223E+01_JPRB,0.27017E+01_JPRB /)  
+KA(:, 3, 8,13) = (/ &
+ & 0.30313E+01_JPRB,0.27198E+01_JPRB,0.26386E+01_JPRB,0.25814E+01_JPRB,0.25257E+01_JPRB, &
+ & 0.24788E+01_JPRB,0.24874E+01_JPRB,0.24335E+01_JPRB,0.27156E+01_JPRB /)  
+KA(:, 4, 8,13) = (/ &
+ & 0.30296E+01_JPRB,0.27153E+01_JPRB,0.26358E+01_JPRB,0.25865E+01_JPRB,0.25285E+01_JPRB, &
+ & 0.24798E+01_JPRB,0.24941E+01_JPRB,0.24451E+01_JPRB,0.27296E+01_JPRB /)  
+KA(:, 5, 8,13) = (/ &
+ & 0.30139E+01_JPRB,0.26994E+01_JPRB,0.26290E+01_JPRB,0.25893E+01_JPRB,0.25296E+01_JPRB, &
+ & 0.24809E+01_JPRB,0.25004E+01_JPRB,0.24568E+01_JPRB,0.27436E+01_JPRB /)  
+KA(:, 1, 9,13) = (/ &
+ & 0.30493E+01_JPRB,0.27941E+01_JPRB,0.27550E+01_JPRB,0.27119E+01_JPRB,0.26405E+01_JPRB, &
+ & 0.25561E+01_JPRB,0.25144E+01_JPRB,0.24302E+01_JPRB,0.26456E+01_JPRB /)  
+KA(:, 2, 9,13) = (/ &
+ & 0.30457E+01_JPRB,0.27865E+01_JPRB,0.27445E+01_JPRB,0.27145E+01_JPRB,0.26540E+01_JPRB, &
+ & 0.25649E+01_JPRB,0.25264E+01_JPRB,0.24468E+01_JPRB,0.26636E+01_JPRB /)  
+KA(:, 3, 9,13) = (/ &
+ & 0.30433E+01_JPRB,0.27809E+01_JPRB,0.27367E+01_JPRB,0.27179E+01_JPRB,0.26606E+01_JPRB, &
+ & 0.25683E+01_JPRB,0.25354E+01_JPRB,0.24613E+01_JPRB,0.26815E+01_JPRB /)  
+KA(:, 4, 9,13) = (/ &
+ & 0.30389E+01_JPRB,0.27734E+01_JPRB,0.27309E+01_JPRB,0.27229E+01_JPRB,0.26627E+01_JPRB, &
+ & 0.25715E+01_JPRB,0.25441E+01_JPRB,0.24765E+01_JPRB,0.27005E+01_JPRB /)  
+KA(:, 5, 9,13) = (/ &
+ & 0.30246E+01_JPRB,0.27583E+01_JPRB,0.27239E+01_JPRB,0.27244E+01_JPRB,0.26642E+01_JPRB, &
+ & 0.25740E+01_JPRB,0.25518E+01_JPRB,0.24921E+01_JPRB,0.27199E+01_JPRB /)  
+KA(:, 1,10,13) = (/ &
+ & 0.30121E+01_JPRB,0.28154E+01_JPRB,0.28201E+01_JPRB,0.28057E+01_JPRB,0.27531E+01_JPRB, &
+ & 0.26438E+01_JPRB,0.25360E+01_JPRB,0.24395E+01_JPRB,0.25814E+01_JPRB /)  
+KA(:, 2,10,13) = (/ &
+ & 0.30058E+01_JPRB,0.28055E+01_JPRB,0.28091E+01_JPRB,0.28117E+01_JPRB,0.27659E+01_JPRB, &
+ & 0.26536E+01_JPRB,0.25505E+01_JPRB,0.24578E+01_JPRB,0.26020E+01_JPRB /)  
+KA(:, 3,10,13) = (/ &
+ & 0.29984E+01_JPRB,0.27957E+01_JPRB,0.28033E+01_JPRB,0.28172E+01_JPRB,0.27717E+01_JPRB, &
+ & 0.26597E+01_JPRB,0.25631E+01_JPRB,0.24765E+01_JPRB,0.26239E+01_JPRB /)  
+KA(:, 4,10,13) = (/ &
+ & 0.29909E+01_JPRB,0.27859E+01_JPRB,0.27980E+01_JPRB,0.28231E+01_JPRB,0.27737E+01_JPRB, &
+ & 0.26641E+01_JPRB,0.25752E+01_JPRB,0.24953E+01_JPRB,0.26473E+01_JPRB /)  
+KA(:, 5,10,13) = (/ &
+ & 0.29757E+01_JPRB,0.27703E+01_JPRB,0.27906E+01_JPRB,0.28248E+01_JPRB,0.27751E+01_JPRB, &
+ & 0.26687E+01_JPRB,0.25862E+01_JPRB,0.25141E+01_JPRB,0.26704E+01_JPRB /)  
+KA(:, 1,11,13) = (/ &
+ & 0.29105E+01_JPRB,0.27849E+01_JPRB,0.28418E+01_JPRB,0.28641E+01_JPRB,0.28368E+01_JPRB, &
+ & 0.27205E+01_JPRB,0.25555E+01_JPRB,0.24401E+01_JPRB,0.25196E+01_JPRB /)  
+KA(:, 2,11,13) = (/ &
+ & 0.29013E+01_JPRB,0.27742E+01_JPRB,0.28363E+01_JPRB,0.28719E+01_JPRB,0.28460E+01_JPRB, &
+ & 0.27321E+01_JPRB,0.25730E+01_JPRB,0.24607E+01_JPRB,0.25412E+01_JPRB /)  
+KA(:, 3,11,13) = (/ &
+ & 0.28911E+01_JPRB,0.27633E+01_JPRB,0.28321E+01_JPRB,0.28799E+01_JPRB,0.28506E+01_JPRB, &
+ & 0.27417E+01_JPRB,0.25892E+01_JPRB,0.24813E+01_JPRB,0.25665E+01_JPRB /)  
+KA(:, 4,11,13) = (/ &
+ & 0.28805E+01_JPRB,0.27495E+01_JPRB,0.28275E+01_JPRB,0.28852E+01_JPRB,0.28551E+01_JPRB, &
+ & 0.27503E+01_JPRB,0.26048E+01_JPRB,0.25023E+01_JPRB,0.25905E+01_JPRB /)  
+KA(:, 5,11,13) = (/ &
+ & 0.28607E+01_JPRB,0.27299E+01_JPRB,0.28179E+01_JPRB,0.28868E+01_JPRB,0.28597E+01_JPRB, &
+ & 0.27578E+01_JPRB,0.26198E+01_JPRB,0.25207E+01_JPRB,0.26120E+01_JPRB /)  
+KA(:, 1,12,13) = (/ &
+ & 0.27583E+01_JPRB,0.27145E+01_JPRB,0.28231E+01_JPRB,0.28871E+01_JPRB,0.28764E+01_JPRB, &
+ & 0.27674E+01_JPRB,0.25743E+01_JPRB,0.24278E+01_JPRB,0.24570E+01_JPRB /)  
+KA(:, 2,12,13) = (/ &
+ & 0.27477E+01_JPRB,0.27023E+01_JPRB,0.28226E+01_JPRB,0.28962E+01_JPRB,0.28884E+01_JPRB, &
+ & 0.27832E+01_JPRB,0.25939E+01_JPRB,0.24483E+01_JPRB,0.24817E+01_JPRB /)  
+KA(:, 3,12,13) = (/ &
+ & 0.27363E+01_JPRB,0.26890E+01_JPRB,0.28229E+01_JPRB,0.29041E+01_JPRB,0.28966E+01_JPRB, &
+ & 0.27972E+01_JPRB,0.26117E+01_JPRB,0.24706E+01_JPRB,0.25053E+01_JPRB /)  
+KA(:, 4,12,13) = (/ &
+ & 0.27215E+01_JPRB,0.26719E+01_JPRB,0.28199E+01_JPRB,0.29098E+01_JPRB,0.29044E+01_JPRB, &
+ & 0.28097E+01_JPRB,0.26305E+01_JPRB,0.24926E+01_JPRB,0.25297E+01_JPRB /)  
+KA(:, 5,12,13) = (/ &
+ & 0.27019E+01_JPRB,0.26521E+01_JPRB,0.28123E+01_JPRB,0.29106E+01_JPRB,0.29127E+01_JPRB, &
+ & 0.28234E+01_JPRB,0.26485E+01_JPRB,0.25112E+01_JPRB,0.25512E+01_JPRB /)  
+KA(:, 1,13,13) = (/ &
+ & 0.25703E+01_JPRB,0.26073E+01_JPRB,0.27736E+01_JPRB,0.28686E+01_JPRB,0.28762E+01_JPRB, &
+ & 0.27819E+01_JPRB,0.25967E+01_JPRB,0.24069E+01_JPRB,0.23967E+01_JPRB /)  
+KA(:, 2,13,13) = (/ &
+ & 0.25597E+01_JPRB,0.25968E+01_JPRB,0.27777E+01_JPRB,0.28810E+01_JPRB,0.28904E+01_JPRB, &
+ & 0.28011E+01_JPRB,0.26158E+01_JPRB,0.24298E+01_JPRB,0.24224E+01_JPRB /)  
+KA(:, 3,13,13) = (/ &
+ & 0.25492E+01_JPRB,0.25857E+01_JPRB,0.27800E+01_JPRB,0.28929E+01_JPRB,0.29040E+01_JPRB, &
+ & 0.28202E+01_JPRB,0.26351E+01_JPRB,0.24527E+01_JPRB,0.24494E+01_JPRB /)  
+KA(:, 4,13,13) = (/ &
+ & 0.25336E+01_JPRB,0.25705E+01_JPRB,0.27801E+01_JPRB,0.29008E+01_JPRB,0.29182E+01_JPRB, &
+ & 0.28403E+01_JPRB,0.26542E+01_JPRB,0.24758E+01_JPRB,0.24745E+01_JPRB /)  
+KA(:, 5,13,13) = (/ &
+ & 0.25174E+01_JPRB,0.25538E+01_JPRB,0.27760E+01_JPRB,0.29061E+01_JPRB,0.29321E+01_JPRB, &
+ & 0.28592E+01_JPRB,0.26728E+01_JPRB,0.24954E+01_JPRB,0.24962E+01_JPRB /)  
+KA(:, 1, 1,14) = (/ &
+ & 0.34915E+01_JPRB,0.30588E+01_JPRB,0.26262E+01_JPRB,0.23144E+01_JPRB,0.22122E+01_JPRB, &
+ & 0.21892E+01_JPRB,0.25558E+01_JPRB,0.29818E+01_JPRB,0.32991E+01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART9',1,ZHOOK_HANDLE)
+END SUBROUTINE PART9
+
+
+SUBROUTINE PART10
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART10',0,ZHOOK_HANDLE)
+
+
+KA(:, 2, 1,14) = (/ &
+ & 0.35009E+01_JPRB,0.30672E+01_JPRB,0.26335E+01_JPRB,0.23059E+01_JPRB,0.22071E+01_JPRB, &
+ & 0.21796E+01_JPRB,0.25444E+01_JPRB,0.29683E+01_JPRB,0.32820E+01_JPRB /)  
+KA(:, 3, 1,14) = (/ &
+ & 0.35192E+01_JPRB,0.30832E+01_JPRB,0.26472E+01_JPRB,0.23037E+01_JPRB,0.22014E+01_JPRB, &
+ & 0.21706E+01_JPRB,0.25342E+01_JPRB,0.29565E+01_JPRB,0.32692E+01_JPRB /)  
+KA(:, 4, 1,14) = (/ &
+ & 0.35462E+01_JPRB,0.31069E+01_JPRB,0.26676E+01_JPRB,0.23054E+01_JPRB,0.21967E+01_JPRB, &
+ & 0.21619E+01_JPRB,0.25265E+01_JPRB,0.29475E+01_JPRB,0.32591E+01_JPRB /)  
+KA(:, 5, 1,14) = (/ &
+ & 0.35714E+01_JPRB,0.31290E+01_JPRB,0.26866E+01_JPRB,0.23141E+01_JPRB,0.21952E+01_JPRB, &
+ & 0.21552E+01_JPRB,0.25228E+01_JPRB,0.29432E+01_JPRB,0.32501E+01_JPRB /)  
+KA(:, 1, 2,14) = (/ &
+ & 0.38742E+01_JPRB,0.33939E+01_JPRB,0.29135E+01_JPRB,0.26368E+01_JPRB,0.25318E+01_JPRB, &
+ & 0.24566E+01_JPRB,0.27984E+01_JPRB,0.32648E+01_JPRB,0.36583E+01_JPRB /)  
+KA(:, 2, 2,14) = (/ &
+ & 0.38780E+01_JPRB,0.33972E+01_JPRB,0.29165E+01_JPRB,0.26245E+01_JPRB,0.25266E+01_JPRB, &
+ & 0.24447E+01_JPRB,0.27836E+01_JPRB,0.32475E+01_JPRB,0.36397E+01_JPRB /)  
+KA(:, 3, 2,14) = (/ &
+ & 0.38887E+01_JPRB,0.34066E+01_JPRB,0.29246E+01_JPRB,0.26139E+01_JPRB,0.25181E+01_JPRB, &
+ & 0.24355E+01_JPRB,0.27726E+01_JPRB,0.32346E+01_JPRB,0.36242E+01_JPRB /)  
+KA(:, 4, 2,14) = (/ &
+ & 0.39063E+01_JPRB,0.34220E+01_JPRB,0.29378E+01_JPRB,0.26094E+01_JPRB,0.25085E+01_JPRB, &
+ & 0.24291E+01_JPRB,0.27676E+01_JPRB,0.32288E+01_JPRB,0.36150E+01_JPRB /)  
+KA(:, 5, 2,14) = (/ &
+ & 0.39241E+01_JPRB,0.34376E+01_JPRB,0.29511E+01_JPRB,0.26073E+01_JPRB,0.25021E+01_JPRB, &
+ & 0.24243E+01_JPRB,0.27677E+01_JPRB,0.32289E+01_JPRB,0.36134E+01_JPRB /)  
+KA(:, 1, 3,14) = (/ &
+ & 0.42487E+01_JPRB,0.37216E+01_JPRB,0.32039E+01_JPRB,0.29799E+01_JPRB,0.28758E+01_JPRB, &
+ & 0.27551E+01_JPRB,0.30498E+01_JPRB,0.35581E+01_JPRB,0.40304E+01_JPRB /)  
+KA(:, 2, 3,14) = (/ &
+ & 0.42439E+01_JPRB,0.37174E+01_JPRB,0.31977E+01_JPRB,0.29675E+01_JPRB,0.28698E+01_JPRB, &
+ & 0.27440E+01_JPRB,0.30347E+01_JPRB,0.35405E+01_JPRB,0.40101E+01_JPRB /)  
+KA(:, 3, 3,14) = (/ &
+ & 0.42511E+01_JPRB,0.37238E+01_JPRB,0.32007E+01_JPRB,0.29528E+01_JPRB,0.28598E+01_JPRB, &
+ & 0.27364E+01_JPRB,0.30269E+01_JPRB,0.35313E+01_JPRB,0.39978E+01_JPRB /)  
+KA(:, 4, 3,14) = (/ &
+ & 0.42624E+01_JPRB,0.37337E+01_JPRB,0.32078E+01_JPRB,0.29428E+01_JPRB,0.28469E+01_JPRB, &
+ & 0.27311E+01_JPRB,0.30242E+01_JPRB,0.35281E+01_JPRB,0.39928E+01_JPRB /)  
+KA(:, 5, 3,14) = (/ &
+ & 0.42720E+01_JPRB,0.37420E+01_JPRB,0.32138E+01_JPRB,0.29343E+01_JPRB,0.28324E+01_JPRB, &
+ & 0.27276E+01_JPRB,0.30224E+01_JPRB,0.35261E+01_JPRB,0.39910E+01_JPRB /)  
+KA(:, 1, 4,14) = (/ &
+ & 0.45954E+01_JPRB,0.40249E+01_JPRB,0.35022E+01_JPRB,0.33403E+01_JPRB,0.32328E+01_JPRB, &
+ & 0.30833E+01_JPRB,0.33112E+01_JPRB,0.38621E+01_JPRB,0.43957E+01_JPRB /)  
+KA(:, 2, 4,14) = (/ &
+ & 0.45847E+01_JPRB,0.40157E+01_JPRB,0.34904E+01_JPRB,0.33265E+01_JPRB,0.32256E+01_JPRB, &
+ & 0.30748E+01_JPRB,0.32975E+01_JPRB,0.38466E+01_JPRB,0.43773E+01_JPRB /)  
+KA(:, 3, 4,14) = (/ &
+ & 0.45864E+01_JPRB,0.40172E+01_JPRB,0.34822E+01_JPRB,0.33081E+01_JPRB,0.32132E+01_JPRB, &
+ & 0.30693E+01_JPRB,0.32915E+01_JPRB,0.38399E+01_JPRB,0.43696E+01_JPRB /)  
+KA(:, 4, 4,14) = (/ &
+ & 0.45919E+01_JPRB,0.40220E+01_JPRB,0.34808E+01_JPRB,0.32873E+01_JPRB,0.31989E+01_JPRB, &
+ & 0.30656E+01_JPRB,0.32892E+01_JPRB,0.38374E+01_JPRB,0.43666E+01_JPRB /)  
+KA(:, 5, 4,14) = (/ &
+ & 0.45961E+01_JPRB,0.40254E+01_JPRB,0.34809E+01_JPRB,0.32746E+01_JPRB,0.31817E+01_JPRB, &
+ & 0.30639E+01_JPRB,0.32889E+01_JPRB,0.38370E+01_JPRB,0.43660E+01_JPRB /)  
+KA(:, 1, 5,14) = (/ &
+ & 0.49114E+01_JPRB,0.43012E+01_JPRB,0.38001E+01_JPRB,0.37007E+01_JPRB,0.36023E+01_JPRB, &
+ & 0.34476E+01_JPRB,0.35973E+01_JPRB,0.41814E+01_JPRB,0.47692E+01_JPRB /)  
+KA(:, 2, 5,14) = (/ &
+ & 0.49023E+01_JPRB,0.42934E+01_JPRB,0.37862E+01_JPRB,0.36850E+01_JPRB,0.35912E+01_JPRB, &
+ & 0.34412E+01_JPRB,0.35890E+01_JPRB,0.41727E+01_JPRB,0.47592E+01_JPRB /)  
+KA(:, 3, 5,14) = (/ &
+ & 0.48929E+01_JPRB,0.42852E+01_JPRB,0.37666E+01_JPRB,0.36647E+01_JPRB,0.35739E+01_JPRB, &
+ & 0.34368E+01_JPRB,0.35843E+01_JPRB,0.41678E+01_JPRB,0.47530E+01_JPRB /)  
+KA(:, 4, 5,14) = (/ &
+ & 0.48957E+01_JPRB,0.42875E+01_JPRB,0.37577E+01_JPRB,0.36399E+01_JPRB,0.35570E+01_JPRB, &
+ & 0.34352E+01_JPRB,0.35822E+01_JPRB,0.41658E+01_JPRB,0.47507E+01_JPRB /)  
+KA(:, 5, 5,14) = (/ &
+ & 0.48955E+01_JPRB,0.42870E+01_JPRB,0.37502E+01_JPRB,0.36181E+01_JPRB,0.35379E+01_JPRB, &
+ & 0.34333E+01_JPRB,0.35807E+01_JPRB,0.41639E+01_JPRB,0.47483E+01_JPRB /)  
+KA(:, 1, 6,14) = (/ &
+ & 0.52336E+01_JPRB,0.45828E+01_JPRB,0.41059E+01_JPRB,0.40455E+01_JPRB,0.39709E+01_JPRB, &
+ & 0.38438E+01_JPRB,0.39195E+01_JPRB,0.45101E+01_JPRB,0.51488E+01_JPRB /)  
+KA(:, 2, 6,14) = (/ &
+ & 0.52264E+01_JPRB,0.45766E+01_JPRB,0.40903E+01_JPRB,0.40272E+01_JPRB,0.39556E+01_JPRB, &
+ & 0.38368E+01_JPRB,0.39154E+01_JPRB,0.45074E+01_JPRB,0.51460E+01_JPRB /)  
+KA(:, 3, 6,14) = (/ &
+ & 0.52116E+01_JPRB,0.45637E+01_JPRB,0.40682E+01_JPRB,0.40069E+01_JPRB,0.39387E+01_JPRB, &
+ & 0.38311E+01_JPRB,0.39117E+01_JPRB,0.45034E+01_JPRB,0.51413E+01_JPRB /)  
+KA(:, 4, 6,14) = (/ &
+ & 0.52061E+01_JPRB,0.45585E+01_JPRB,0.40484E+01_JPRB,0.39793E+01_JPRB,0.39195E+01_JPRB, &
+ & 0.38275E+01_JPRB,0.39110E+01_JPRB,0.45018E+01_JPRB,0.51396E+01_JPRB /)  
+KA(:, 5, 6,14) = (/ &
+ & 0.52033E+01_JPRB,0.45559E+01_JPRB,0.40356E+01_JPRB,0.39520E+01_JPRB,0.38983E+01_JPRB, &
+ & 0.38238E+01_JPRB,0.39105E+01_JPRB,0.45008E+01_JPRB,0.51385E+01_JPRB /)  
+KA(:, 1, 7,14) = (/ &
+ & 0.55789E+01_JPRB,0.48845E+01_JPRB,0.44392E+01_JPRB,0.43787E+01_JPRB,0.43341E+01_JPRB, &
+ & 0.42496E+01_JPRB,0.42580E+01_JPRB,0.48177E+01_JPRB,0.55034E+01_JPRB /)  
+KA(:, 2, 7,14) = (/ &
+ & 0.55750E+01_JPRB,0.48811E+01_JPRB,0.44216E+01_JPRB,0.43602E+01_JPRB,0.43147E+01_JPRB, &
+ & 0.42460E+01_JPRB,0.42594E+01_JPRB,0.48202E+01_JPRB,0.55064E+01_JPRB /)  
+KA(:, 3, 7,14) = (/ &
+ & 0.55641E+01_JPRB,0.48716E+01_JPRB,0.43996E+01_JPRB,0.43387E+01_JPRB,0.42975E+01_JPRB, &
+ & 0.42414E+01_JPRB,0.42613E+01_JPRB,0.48234E+01_JPRB,0.55098E+01_JPRB /)  
+KA(:, 4, 7,14) = (/ &
+ & 0.55497E+01_JPRB,0.48588E+01_JPRB,0.43740E+01_JPRB,0.43098E+01_JPRB,0.42767E+01_JPRB, &
+ & 0.42365E+01_JPRB,0.42657E+01_JPRB,0.48283E+01_JPRB,0.55153E+01_JPRB /)  
+KA(:, 5, 7,14) = (/ &
+ & 0.55426E+01_JPRB,0.48524E+01_JPRB,0.43530E+01_JPRB,0.42800E+01_JPRB,0.42577E+01_JPRB, &
+ & 0.42309E+01_JPRB,0.42668E+01_JPRB,0.48295E+01_JPRB,0.55168E+01_JPRB /)  
+KA(:, 1, 8,14) = (/ &
+ & 0.59399E+01_JPRB,0.51999E+01_JPRB,0.48042E+01_JPRB,0.47185E+01_JPRB,0.46865E+01_JPRB, &
+ & 0.46496E+01_JPRB,0.46000E+01_JPRB,0.50897E+01_JPRB,0.58161E+01_JPRB /)  
+KA(:, 2, 8,14) = (/ &
+ & 0.59397E+01_JPRB,0.51999E+01_JPRB,0.47874E+01_JPRB,0.46998E+01_JPRB,0.46665E+01_JPRB, &
+ & 0.46493E+01_JPRB,0.46097E+01_JPRB,0.50997E+01_JPRB,0.58275E+01_JPRB /)  
+KA(:, 3, 8,14) = (/ &
+ & 0.59349E+01_JPRB,0.51955E+01_JPRB,0.47656E+01_JPRB,0.46767E+01_JPRB,0.46485E+01_JPRB, &
+ & 0.46473E+01_JPRB,0.46203E+01_JPRB,0.51120E+01_JPRB,0.58414E+01_JPRB /)  
+KA(:, 4, 8,14) = (/ &
+ & 0.59186E+01_JPRB,0.51811E+01_JPRB,0.47381E+01_JPRB,0.46470E+01_JPRB,0.46283E+01_JPRB, &
+ & 0.46432E+01_JPRB,0.46335E+01_JPRB,0.51262E+01_JPRB,0.58574E+01_JPRB /)  
+KA(:, 5, 8,14) = (/ &
+ & 0.59097E+01_JPRB,0.51733E+01_JPRB,0.47110E+01_JPRB,0.46158E+01_JPRB,0.46095E+01_JPRB, &
+ & 0.46379E+01_JPRB,0.46369E+01_JPRB,0.51321E+01_JPRB,0.58644E+01_JPRB /)  
+KA(:, 1, 9,14) = (/ &
+ & 0.63127E+01_JPRB,0.55322E+01_JPRB,0.51834E+01_JPRB,0.50691E+01_JPRB,0.50247E+01_JPRB, &
+ & 0.50209E+01_JPRB,0.49367E+01_JPRB,0.53236E+01_JPRB,0.60842E+01_JPRB /)  
+KA(:, 2, 9,14) = (/ &
+ & 0.63183E+01_JPRB,0.55346E+01_JPRB,0.51727E+01_JPRB,0.50532E+01_JPRB,0.50080E+01_JPRB, &
+ & 0.50274E+01_JPRB,0.49592E+01_JPRB,0.53436E+01_JPRB,0.61069E+01_JPRB /)  
+KA(:, 3, 9,14) = (/ &
+ & 0.63124E+01_JPRB,0.55272E+01_JPRB,0.51546E+01_JPRB,0.50297E+01_JPRB,0.49909E+01_JPRB, &
+ & 0.50310E+01_JPRB,0.49812E+01_JPRB,0.53668E+01_JPRB,0.61332E+01_JPRB /)  
+KA(:, 4, 9,14) = (/ &
+ & 0.63001E+01_JPRB,0.55154E+01_JPRB,0.51286E+01_JPRB,0.50009E+01_JPRB,0.49750E+01_JPRB, &
+ & 0.50299E+01_JPRB,0.49995E+01_JPRB,0.53888E+01_JPRB,0.61587E+01_JPRB /)  
+KA(:, 5, 9,14) = (/ &
+ & 0.62858E+01_JPRB,0.55023E+01_JPRB,0.50977E+01_JPRB,0.49708E+01_JPRB,0.49573E+01_JPRB, &
+ & 0.50270E+01_JPRB,0.50058E+01_JPRB,0.53988E+01_JPRB,0.61697E+01_JPRB /)  
+KA(:, 1,10,14) = (/ &
+ & 0.66894E+01_JPRB,0.58832E+01_JPRB,0.55701E+01_JPRB,0.54237E+01_JPRB,0.53594E+01_JPRB, &
+ & 0.53556E+01_JPRB,0.52686E+01_JPRB,0.55192E+01_JPRB,0.63037E+01_JPRB /)  
+KA(:, 2,10,14) = (/ &
+ & 0.66981E+01_JPRB,0.58851E+01_JPRB,0.55643E+01_JPRB,0.54120E+01_JPRB,0.53500E+01_JPRB, &
+ & 0.53705E+01_JPRB,0.53019E+01_JPRB,0.55500E+01_JPRB,0.63389E+01_JPRB /)  
+KA(:, 3,10,14) = (/ &
+ & 0.66967E+01_JPRB,0.58795E+01_JPRB,0.55464E+01_JPRB,0.53921E+01_JPRB,0.53372E+01_JPRB, &
+ & 0.53796E+01_JPRB,0.53288E+01_JPRB,0.55798E+01_JPRB,0.63734E+01_JPRB /)  
+KA(:, 4,10,14) = (/ &
+ & 0.66854E+01_JPRB,0.58646E+01_JPRB,0.55228E+01_JPRB,0.53676E+01_JPRB,0.53254E+01_JPRB, &
+ & 0.53837E+01_JPRB,0.53529E+01_JPRB,0.56104E+01_JPRB,0.64086E+01_JPRB /)  
+KA(:, 5,10,14) = (/ &
+ & 0.66717E+01_JPRB,0.58486E+01_JPRB,0.54914E+01_JPRB,0.53392E+01_JPRB,0.53082E+01_JPRB, &
+ & 0.53849E+01_JPRB,0.53627E+01_JPRB,0.56270E+01_JPRB,0.64281E+01_JPRB /)  
+KA(:, 1,11,14) = (/ &
+ & 0.70715E+01_JPRB,0.62495E+01_JPRB,0.59582E+01_JPRB,0.57869E+01_JPRB,0.56930E+01_JPRB, &
+ & 0.56655E+01_JPRB,0.56036E+01_JPRB,0.57057E+01_JPRB,0.64838E+01_JPRB /)  
+KA(:, 2,11,14) = (/ &
+ & 0.70771E+01_JPRB,0.62459E+01_JPRB,0.59461E+01_JPRB,0.57734E+01_JPRB,0.56903E+01_JPRB, &
+ & 0.56860E+01_JPRB,0.56380E+01_JPRB,0.57455E+01_JPRB,0.65310E+01_JPRB /)  
+KA(:, 3,11,14) = (/ &
+ & 0.70723E+01_JPRB,0.62337E+01_JPRB,0.59291E+01_JPRB,0.57507E+01_JPRB,0.56859E+01_JPRB, &
+ & 0.56988E+01_JPRB,0.56691E+01_JPRB,0.57882E+01_JPRB,0.65837E+01_JPRB /)  
+KA(:, 4,11,14) = (/ &
+ & 0.70579E+01_JPRB,0.62141E+01_JPRB,0.59017E+01_JPRB,0.57243E+01_JPRB,0.56747E+01_JPRB, &
+ & 0.57061E+01_JPRB,0.56917E+01_JPRB,0.58206E+01_JPRB,0.66248E+01_JPRB /)  
+KA(:, 5,11,14) = (/ &
+ & 0.70436E+01_JPRB,0.61942E+01_JPRB,0.58711E+01_JPRB,0.56953E+01_JPRB,0.56563E+01_JPRB, &
+ & 0.57095E+01_JPRB,0.57007E+01_JPRB,0.58439E+01_JPRB,0.66547E+01_JPRB /)  
+KA(:, 1,12,14) = (/ &
+ & 0.73996E+01_JPRB,0.65875E+01_JPRB,0.63444E+01_JPRB,0.61468E+01_JPRB,0.60255E+01_JPRB, &
+ & 0.59627E+01_JPRB,0.59009E+01_JPRB,0.58767E+01_JPRB,0.66113E+01_JPRB /)  
+KA(:, 2,12,14) = (/ &
+ & 0.74059E+01_JPRB,0.65818E+01_JPRB,0.63297E+01_JPRB,0.61319E+01_JPRB,0.60289E+01_JPRB, &
+ & 0.59857E+01_JPRB,0.59393E+01_JPRB,0.59291E+01_JPRB,0.66795E+01_JPRB /)  
+KA(:, 3,12,14) = (/ &
+ & 0.73985E+01_JPRB,0.65639E+01_JPRB,0.63058E+01_JPRB,0.61104E+01_JPRB,0.60278E+01_JPRB, &
+ & 0.60017E+01_JPRB,0.59765E+01_JPRB,0.59805E+01_JPRB,0.67466E+01_JPRB /)  
+KA(:, 4,12,14) = (/ &
+ & 0.73888E+01_JPRB,0.65439E+01_JPRB,0.62733E+01_JPRB,0.60850E+01_JPRB,0.60189E+01_JPRB, &
+ & 0.60123E+01_JPRB,0.59968E+01_JPRB,0.60157E+01_JPRB,0.67935E+01_JPRB /)  
+KA(:, 5,12,14) = (/ &
+ & 0.73717E+01_JPRB,0.65185E+01_JPRB,0.62375E+01_JPRB,0.60536E+01_JPRB,0.59983E+01_JPRB, &
+ & 0.60180E+01_JPRB,0.60067E+01_JPRB,0.60456E+01_JPRB,0.68365E+01_JPRB /)  
+KA(:, 1,13,14) = (/ &
+ & 0.76469E+01_JPRB,0.68731E+01_JPRB,0.66871E+01_JPRB,0.64997E+01_JPRB,0.63502E+01_JPRB, &
+ & 0.62466E+01_JPRB,0.61469E+01_JPRB,0.60253E+01_JPRB,0.66908E+01_JPRB /)  
+KA(:, 2,13,14) = (/ &
+ & 0.76513E+01_JPRB,0.68603E+01_JPRB,0.66717E+01_JPRB,0.64853E+01_JPRB,0.63628E+01_JPRB, &
+ & 0.62754E+01_JPRB,0.61942E+01_JPRB,0.60911E+01_JPRB,0.67781E+01_JPRB /)  
+KA(:, 3,13,14) = (/ &
+ & 0.76480E+01_JPRB,0.68404E+01_JPRB,0.66430E+01_JPRB,0.64664E+01_JPRB,0.63629E+01_JPRB, &
+ & 0.62938E+01_JPRB,0.62370E+01_JPRB,0.61432E+01_JPRB,0.68460E+01_JPRB /)  
+KA(:, 4,13,14) = (/ &
+ & 0.76417E+01_JPRB,0.68180E+01_JPRB,0.66082E+01_JPRB,0.64389E+01_JPRB,0.63512E+01_JPRB, &
+ & 0.63082E+01_JPRB,0.62633E+01_JPRB,0.61842E+01_JPRB,0.69071E+01_JPRB /)  
+KA(:, 5,13,14) = (/ &
+ & 0.76283E+01_JPRB,0.67918E+01_JPRB,0.65683E+01_JPRB,0.64071E+01_JPRB,0.63329E+01_JPRB, &
+ & 0.63131E+01_JPRB,0.62779E+01_JPRB,0.62184E+01_JPRB,0.69616E+01_JPRB /)  
+KA(:, 1, 1,15) = (/ &
+ & 0.48056E+01_JPRB,0.42094E+01_JPRB,0.36132E+01_JPRB,0.30171E+01_JPRB,0.28404E+01_JPRB, &
+ & 0.34490E+01_JPRB,0.41388E+01_JPRB,0.48284E+01_JPRB,0.52314E+01_JPRB /)  
+KA(:, 2, 1,15) = (/ &
+ & 0.48171E+01_JPRB,0.42194E+01_JPRB,0.36219E+01_JPRB,0.30243E+01_JPRB,0.28141E+01_JPRB, &
+ & 0.34073E+01_JPRB,0.40887E+01_JPRB,0.47701E+01_JPRB,0.51637E+01_JPRB /)  
+KA(:, 3, 1,15) = (/ &
+ & 0.48231E+01_JPRB,0.42245E+01_JPRB,0.36259E+01_JPRB,0.30275E+01_JPRB,0.27871E+01_JPRB, &
+ & 0.33709E+01_JPRB,0.40450E+01_JPRB,0.47190E+01_JPRB,0.51029E+01_JPRB /)  
+KA(:, 4, 1,15) = (/ &
+ & 0.48223E+01_JPRB,0.42236E+01_JPRB,0.36250E+01_JPRB,0.30265E+01_JPRB,0.27616E+01_JPRB, &
+ & 0.33346E+01_JPRB,0.40014E+01_JPRB,0.46682E+01_JPRB,0.50473E+01_JPRB /)  
+KA(:, 5, 1,15) = (/ &
+ & 0.48164E+01_JPRB,0.42183E+01_JPRB,0.36202E+01_JPRB,0.30224E+01_JPRB,0.27378E+01_JPRB, &
+ & 0.32980E+01_JPRB,0.39575E+01_JPRB,0.46170E+01_JPRB,0.49922E+01_JPRB /)  
+KA(:, 1, 2,15) = (/ &
+ & 0.56696E+01_JPRB,0.49649E+01_JPRB,0.42601E+01_JPRB,0.35603E+01_JPRB,0.33660E+01_JPRB, &
+ & 0.40230E+01_JPRB,0.48275E+01_JPRB,0.56320E+01_JPRB,0.62204E+01_JPRB /)  
+KA(:, 2, 2,15) = (/ &
+ & 0.56853E+01_JPRB,0.49788E+01_JPRB,0.42721E+01_JPRB,0.35690E+01_JPRB,0.33370E+01_JPRB, &
+ & 0.39815E+01_JPRB,0.47778E+01_JPRB,0.55740E+01_JPRB,0.61522E+01_JPRB /)  
+KA(:, 3, 2,15) = (/ &
+ & 0.56912E+01_JPRB,0.49841E+01_JPRB,0.42769E+01_JPRB,0.35723E+01_JPRB,0.33088E+01_JPRB, &
+ & 0.39404E+01_JPRB,0.47285E+01_JPRB,0.55164E+01_JPRB,0.60886E+01_JPRB /)  
+KA(:, 4, 2,15) = (/ &
+ & 0.56900E+01_JPRB,0.49829E+01_JPRB,0.42759E+01_JPRB,0.35705E+01_JPRB,0.32819E+01_JPRB, &
+ & 0.38975E+01_JPRB,0.46769E+01_JPRB,0.54563E+01_JPRB,0.60227E+01_JPRB /)  
+KA(:, 5, 2,15) = (/ &
+ & 0.56828E+01_JPRB,0.49765E+01_JPRB,0.42703E+01_JPRB,0.35653E+01_JPRB,0.32552E+01_JPRB, &
+ & 0.38520E+01_JPRB,0.46223E+01_JPRB,0.53926E+01_JPRB,0.59537E+01_JPRB /)  
+KA(:, 1, 3,15) = (/ &
+ & 0.66640E+01_JPRB,0.58345E+01_JPRB,0.50050E+01_JPRB,0.41960E+01_JPRB,0.39837E+01_JPRB, &
+ & 0.46765E+01_JPRB,0.56117E+01_JPRB,0.65468E+01_JPRB,0.73624E+01_JPRB /)  
+KA(:, 2, 3,15) = (/ &
+ & 0.66851E+01_JPRB,0.58530E+01_JPRB,0.50209E+01_JPRB,0.42035E+01_JPRB,0.39538E+01_JPRB, &
+ & 0.46274E+01_JPRB,0.55528E+01_JPRB,0.64781E+01_JPRB,0.72849E+01_JPRB /)  
+KA(:, 3, 3,15) = (/ &
+ & 0.66916E+01_JPRB,0.58588E+01_JPRB,0.50261E+01_JPRB,0.42046E+01_JPRB,0.39240E+01_JPRB, &
+ & 0.45763E+01_JPRB,0.54915E+01_JPRB,0.64066E+01_JPRB,0.72060E+01_JPRB /)  
+KA(:, 4, 3,15) = (/ &
+ & 0.66884E+01_JPRB,0.58563E+01_JPRB,0.50241E+01_JPRB,0.42004E+01_JPRB,0.38957E+01_JPRB, &
+ & 0.45225E+01_JPRB,0.54270E+01_JPRB,0.63313E+01_JPRB,0.71219E+01_JPRB /)  
+KA(:, 5, 3,15) = (/ &
+ & 0.66766E+01_JPRB,0.58462E+01_JPRB,0.50163E+01_JPRB,0.41933E+01_JPRB,0.38675E+01_JPRB, &
+ & 0.44702E+01_JPRB,0.53642E+01_JPRB,0.62581E+01_JPRB,0.70387E+01_JPRB /)  
+KA(:, 1, 4,15) = (/ &
+ & 0.77848E+01_JPRB,0.68149E+01_JPRB,0.58451E+01_JPRB,0.49331E+01_JPRB,0.46977E+01_JPRB, &
+ & 0.54033E+01_JPRB,0.64839E+01_JPRB,0.75644E+01_JPRB,0.85830E+01_JPRB /)  
+KA(:, 2, 4,15) = (/ &
+ & 0.78108E+01_JPRB,0.68377E+01_JPRB,0.58646E+01_JPRB,0.49375E+01_JPRB,0.46695E+01_JPRB, &
+ & 0.53453E+01_JPRB,0.64143E+01_JPRB,0.74831E+01_JPRB,0.84915E+01_JPRB /)  
+KA(:, 3, 4,15) = (/ &
+ & 0.78236E+01_JPRB,0.68489E+01_JPRB,0.58743E+01_JPRB,0.49373E+01_JPRB,0.46417E+01_JPRB, &
+ & 0.52821E+01_JPRB,0.63384E+01_JPRB,0.73947E+01_JPRB,0.83915E+01_JPRB /)  
+KA(:, 4, 4,15) = (/ &
+ & 0.78238E+01_JPRB,0.68493E+01_JPRB,0.58748E+01_JPRB,0.49301E+01_JPRB,0.46103E+01_JPRB, &
+ & 0.52166E+01_JPRB,0.62599E+01_JPRB,0.73031E+01_JPRB,0.82871E+01_JPRB /)  
+KA(:, 5, 4,15) = (/ &
+ & 0.78090E+01_JPRB,0.68373E+01_JPRB,0.58658E+01_JPRB,0.49180E+01_JPRB,0.45786E+01_JPRB, &
+ & 0.51516E+01_JPRB,0.61819E+01_JPRB,0.72121E+01_JPRB,0.81837E+01_JPRB /)  
+KA(:, 1, 5,15) = (/ &
+ & 0.90367E+01_JPRB,0.79101E+01_JPRB,0.67835E+01_JPRB,0.57840E+01_JPRB,0.55090E+01_JPRB, &
+ & 0.61816E+01_JPRB,0.74174E+01_JPRB,0.86536E+01_JPRB,0.98560E+01_JPRB /)  
+KA(:, 2, 5,15) = (/ &
+ & 0.90658E+01_JPRB,0.79355E+01_JPRB,0.68052E+01_JPRB,0.57840E+01_JPRB,0.54825E+01_JPRB, &
+ & 0.61122E+01_JPRB,0.73329E+01_JPRB,0.85548E+01_JPRB,0.97452E+01_JPRB /)  
+KA(:, 3, 5,15) = (/ &
+ & 0.90837E+01_JPRB,0.79512E+01_JPRB,0.68188E+01_JPRB,0.57766E+01_JPRB,0.54581E+01_JPRB, &
+ & 0.60426E+01_JPRB,0.72485E+01_JPRB,0.84564E+01_JPRB,0.96328E+01_JPRB /)  
+KA(:, 4, 5,15) = (/ &
+ & 0.90830E+01_JPRB,0.79510E+01_JPRB,0.68192E+01_JPRB,0.57645E+01_JPRB,0.54297E+01_JPRB, &
+ & 0.59729E+01_JPRB,0.71644E+01_JPRB,0.83583E+01_JPRB,0.95205E+01_JPRB /)  
+KA(:, 5, 5,15) = (/ &
+ & 0.90677E+01_JPRB,0.79386E+01_JPRB,0.68094E+01_JPRB,0.57479E+01_JPRB,0.53962E+01_JPRB, &
+ & 0.58998E+01_JPRB,0.70740E+01_JPRB,0.82528E+01_JPRB,0.94008E+01_JPRB /)  
+KA(:, 1, 6,15) = (/ &
+ & 0.10412E+02_JPRB,0.91128E+01_JPRB,0.78140E+01_JPRB,0.67504E+01_JPRB,0.64389E+01_JPRB, &
+ & 0.70217E+01_JPRB,0.83899E+01_JPRB,0.97882E+01_JPRB,0.11168E+02_JPRB /)  
+KA(:, 2, 6,15) = (/ &
+ & 0.10449E+02_JPRB,0.91451E+01_JPRB,0.78417E+01_JPRB,0.67466E+01_JPRB,0.64110E+01_JPRB, &
+ & 0.69507E+01_JPRB,0.82964E+01_JPRB,0.96789E+01_JPRB,0.11043E+02_JPRB /)  
+KA(:, 3, 6,15) = (/ &
+ & 0.10469E+02_JPRB,0.91634E+01_JPRB,0.78574E+01_JPRB,0.67323E+01_JPRB,0.63834E+01_JPRB, &
+ & 0.68804E+01_JPRB,0.82097E+01_JPRB,0.95778E+01_JPRB,0.10928E+02_JPRB /)  
+KA(:, 4, 6,15) = (/ &
+ & 0.10466E+02_JPRB,0.91614E+01_JPRB,0.78568E+01_JPRB,0.67135E+01_JPRB,0.63530E+01_JPRB, &
+ & 0.68083E+01_JPRB,0.81167E+01_JPRB,0.94694E+01_JPRB,0.10805E+02_JPRB /)  
+KA(:, 5, 6,15) = (/ &
+ & 0.10450E+02_JPRB,0.91481E+01_JPRB,0.78461E+01_JPRB,0.66866E+01_JPRB,0.63182E+01_JPRB, &
+ & 0.67317E+01_JPRB,0.80175E+01_JPRB,0.93536E+01_JPRB,0.10671E+02_JPRB /)  
+KA(:, 1, 7,15) = (/ &
+ & 0.11882E+02_JPRB,0.10399E+02_JPRB,0.89166E+01_JPRB,0.78253E+01_JPRB,0.74792E+01_JPRB, &
+ & 0.79512E+01_JPRB,0.94202E+01_JPRB,0.10990E+02_JPRB,0.12550E+02_JPRB /)  
+KA(:, 2, 7,15) = (/ &
+ & 0.11932E+02_JPRB,0.10443E+02_JPRB,0.89541E+01_JPRB,0.78202E+01_JPRB,0.74549E+01_JPRB, &
+ & 0.78754E+01_JPRB,0.93207E+01_JPRB,0.10874E+02_JPRB,0.12417E+02_JPRB /)  
+KA(:, 3, 7,15) = (/ &
+ & 0.11956E+02_JPRB,0.10464E+02_JPRB,0.89727E+01_JPRB,0.78020E+01_JPRB,0.74258E+01_JPRB, &
+ & 0.78051E+01_JPRB,0.92218E+01_JPRB,0.10758E+02_JPRB,0.12285E+02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART10',1,ZHOOK_HANDLE)
+END SUBROUTINE PART10
+
+
+SUBROUTINE PART11
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART11',0,ZHOOK_HANDLE)
+
+
+KA(:, 4, 7,15) = (/ &
+ & 0.11956E+02_JPRB,0.10465E+02_JPRB,0.89740E+01_JPRB,0.77736E+01_JPRB,0.73912E+01_JPRB, &
+ & 0.77319E+01_JPRB,0.91108E+01_JPRB,0.10629E+02_JPRB,0.12138E+02_JPRB /)  
+KA(:, 5, 7,15) = (/ &
+ & 0.11934E+02_JPRB,0.10446E+02_JPRB,0.89587E+01_JPRB,0.77346E+01_JPRB,0.73464E+01_JPRB, &
+ & 0.76503E+01_JPRB,0.90007E+01_JPRB,0.10501E+02_JPRB,0.11991E+02_JPRB /)  
+KA(:, 1, 8,15) = (/ &
+ & 0.13440E+02_JPRB,0.11762E+02_JPRB,0.10084E+02_JPRB,0.90134E+01_JPRB,0.86298E+01_JPRB, &
+ & 0.89787E+01_JPRB,0.10509E+02_JPRB,0.12260E+02_JPRB,0.14008E+02_JPRB /)  
+KA(:, 2, 8,15) = (/ &
+ & 0.13496E+02_JPRB,0.11811E+02_JPRB,0.10127E+02_JPRB,0.90042E+01_JPRB,0.86075E+01_JPRB, &
+ & 0.89016E+01_JPRB,0.10401E+02_JPRB,0.12134E+02_JPRB,0.13863E+02_JPRB /)  
+KA(:, 3, 8,15) = (/ &
+ & 0.13522E+02_JPRB,0.11835E+02_JPRB,0.10148E+02_JPRB,0.89806E+01_JPRB,0.85777E+01_JPRB, &
+ & 0.88306E+01_JPRB,0.10284E+02_JPRB,0.11998E+02_JPRB,0.13707E+02_JPRB /)  
+KA(:, 4, 8,15) = (/ &
+ & 0.13526E+02_JPRB,0.11839E+02_JPRB,0.10151E+02_JPRB,0.89422E+01_JPRB,0.85378E+01_JPRB, &
+ & 0.87510E+01_JPRB,0.10150E+02_JPRB,0.11842E+02_JPRB,0.13529E+02_JPRB /)  
+KA(:, 5, 8,15) = (/ &
+ & 0.13498E+02_JPRB,0.11814E+02_JPRB,0.10131E+02_JPRB,0.88918E+01_JPRB,0.84819E+01_JPRB, &
+ & 0.86621E+01_JPRB,0.10028E+02_JPRB,0.11700E+02_JPRB,0.13367E+02_JPRB /)  
+KA(:, 1, 9,15) = (/ &
+ & 0.15050E+02_JPRB,0.13171E+02_JPRB,0.11325E+02_JPRB,0.10314E+02_JPRB,0.98844E+01_JPRB, &
+ & 0.10113E+02_JPRB,0.11655E+02_JPRB,0.13598E+02_JPRB,0.15538E+02_JPRB /)  
+KA(:, 2, 9,15) = (/ &
+ & 0.15110E+02_JPRB,0.13224E+02_JPRB,0.11358E+02_JPRB,0.10290E+02_JPRB,0.98636E+01_JPRB, &
+ & 0.10034E+02_JPRB,0.11528E+02_JPRB,0.13449E+02_JPRB,0.15369E+02_JPRB /)  
+KA(:, 3, 9,15) = (/ &
+ & 0.15142E+02_JPRB,0.13253E+02_JPRB,0.11372E+02_JPRB,0.10253E+02_JPRB,0.98329E+01_JPRB, &
+ & 0.99565E+01_JPRB,0.11387E+02_JPRB,0.13285E+02_JPRB,0.15182E+02_JPRB /)  
+KA(:, 4, 9,15) = (/ &
+ & 0.15140E+02_JPRB,0.13251E+02_JPRB,0.11368E+02_JPRB,0.10200E+02_JPRB,0.97822E+01_JPRB, &
+ & 0.98656E+01_JPRB,0.11236E+02_JPRB,0.13109E+02_JPRB,0.14981E+02_JPRB /)  
+KA(:, 5, 9,15) = (/ &
+ & 0.15112E+02_JPRB,0.13227E+02_JPRB,0.11344E+02_JPRB,0.10134E+02_JPRB,0.97132E+01_JPRB, &
+ & 0.97634E+01_JPRB,0.11104E+02_JPRB,0.12955E+02_JPRB,0.14806E+02_JPRB /)  
+KA(:, 1,10,15) = (/ &
+ & 0.16679E+02_JPRB,0.14596E+02_JPRB,0.12639E+02_JPRB,0.11713E+02_JPRB,0.11234E+02_JPRB, &
+ & 0.11344E+02_JPRB,0.12833E+02_JPRB,0.14972E+02_JPRB,0.17110E+02_JPRB /)  
+KA(:, 2,10,15) = (/ &
+ & 0.16740E+02_JPRB,0.14649E+02_JPRB,0.12658E+02_JPRB,0.11669E+02_JPRB,0.11203E+02_JPRB, &
+ & 0.11257E+02_JPRB,0.12688E+02_JPRB,0.14803E+02_JPRB,0.16918E+02_JPRB /)  
+KA(:, 3,10,15) = (/ &
+ & 0.16768E+02_JPRB,0.14675E+02_JPRB,0.12658E+02_JPRB,0.11609E+02_JPRB,0.11161E+02_JPRB, &
+ & 0.11169E+02_JPRB,0.12530E+02_JPRB,0.14619E+02_JPRB,0.16708E+02_JPRB /)  
+KA(:, 4,10,15) = (/ &
+ & 0.16761E+02_JPRB,0.14669E+02_JPRB,0.12632E+02_JPRB,0.11528E+02_JPRB,0.11096E+02_JPRB, &
+ & 0.11064E+02_JPRB,0.12360E+02_JPRB,0.14420E+02_JPRB,0.16480E+02_JPRB /)  
+KA(:, 5,10,15) = (/ &
+ & 0.16723E+02_JPRB,0.14636E+02_JPRB,0.12592E+02_JPRB,0.11437E+02_JPRB,0.11017E+02_JPRB, &
+ & 0.10938E+02_JPRB,0.12210E+02_JPRB,0.14245E+02_JPRB,0.16279E+02_JPRB /)  
+KA(:, 1,11,15) = (/ &
+ & 0.18294E+02_JPRB,0.16009E+02_JPRB,0.13989E+02_JPRB,0.13135E+02_JPRB,0.12643E+02_JPRB, &
+ & 0.12628E+02_JPRB,0.13972E+02_JPRB,0.16290E+02_JPRB,0.18616E+02_JPRB /)  
+KA(:, 2,11,15) = (/ &
+ & 0.18347E+02_JPRB,0.16056E+02_JPRB,0.13990E+02_JPRB,0.13069E+02_JPRB,0.12593E+02_JPRB, &
+ & 0.12524E+02_JPRB,0.13808E+02_JPRB,0.16097E+02_JPRB,0.18396E+02_JPRB /)  
+KA(:, 3,11,15) = (/ &
+ & 0.18360E+02_JPRB,0.16067E+02_JPRB,0.13961E+02_JPRB,0.12977E+02_JPRB,0.12519E+02_JPRB, &
+ & 0.12404E+02_JPRB,0.13621E+02_JPRB,0.15875E+02_JPRB,0.18143E+02_JPRB /)  
+KA(:, 4,11,15) = (/ &
+ & 0.18335E+02_JPRB,0.16046E+02_JPRB,0.13912E+02_JPRB,0.12870E+02_JPRB,0.12428E+02_JPRB, &
+ & 0.12262E+02_JPRB,0.13438E+02_JPRB,0.15668E+02_JPRB,0.17906E+02_JPRB /)  
+KA(:, 5,11,15) = (/ &
+ & 0.18275E+02_JPRB,0.15994E+02_JPRB,0.13835E+02_JPRB,0.12741E+02_JPRB,0.12318E+02_JPRB, &
+ & 0.12107E+02_JPRB,0.13269E+02_JPRB,0.15473E+02_JPRB,0.17684E+02_JPRB /)  
+KA(:, 1,12,15) = (/ &
+ & 0.19924E+02_JPRB,0.17435E+02_JPRB,0.15328E+02_JPRB,0.14570E+02_JPRB,0.14103E+02_JPRB, &
+ & 0.13966E+02_JPRB,0.15137E+02_JPRB,0.17574E+02_JPRB,0.20085E+02_JPRB /)  
+KA(:, 2,12,15) = (/ &
+ & 0.19952E+02_JPRB,0.17460E+02_JPRB,0.15303E+02_JPRB,0.14472E+02_JPRB,0.14016E+02_JPRB, &
+ & 0.13836E+02_JPRB,0.14951E+02_JPRB,0.17356E+02_JPRB,0.19836E+02_JPRB /)  
+KA(:, 3,12,15) = (/ &
+ & 0.19950E+02_JPRB,0.17459E+02_JPRB,0.15252E+02_JPRB,0.14354E+02_JPRB,0.13911E+02_JPRB, &
+ & 0.13674E+02_JPRB,0.14736E+02_JPRB,0.17121E+02_JPRB,0.19567E+02_JPRB /)  
+KA(:, 4,12,15) = (/ &
+ & 0.19898E+02_JPRB,0.17414E+02_JPRB,0.15172E+02_JPRB,0.14207E+02_JPRB,0.13782E+02_JPRB, &
+ & 0.13496E+02_JPRB,0.14540E+02_JPRB,0.16905E+02_JPRB,0.19321E+02_JPRB /)  
+KA(:, 5,12,15) = (/ &
+ & 0.19813E+02_JPRB,0.17339E+02_JPRB,0.15067E+02_JPRB,0.14045E+02_JPRB,0.13635E+02_JPRB, &
+ & 0.13302E+02_JPRB,0.14349E+02_JPRB,0.16691E+02_JPRB,0.19076E+02_JPRB /)  
+KA(:, 1,13,15) = (/ &
+ & 0.21582E+02_JPRB,0.18886E+02_JPRB,0.16708E+02_JPRB,0.15984E+02_JPRB,0.15578E+02_JPRB, &
+ & 0.15338E+02_JPRB,0.16324E+02_JPRB,0.18812E+02_JPRB,0.21500E+02_JPRB /)  
+KA(:, 2,13,15) = (/ &
+ & 0.21595E+02_JPRB,0.18898E+02_JPRB,0.16645E+02_JPRB,0.15860E+02_JPRB,0.15448E+02_JPRB, &
+ & 0.15169E+02_JPRB,0.16117E+02_JPRB,0.18583E+02_JPRB,0.21237E+02_JPRB /)  
+KA(:, 3,13,15) = (/ &
+ & 0.21561E+02_JPRB,0.18868E+02_JPRB,0.16562E+02_JPRB,0.15696E+02_JPRB,0.15303E+02_JPRB, &
+ & 0.14968E+02_JPRB,0.15881E+02_JPRB,0.18352E+02_JPRB,0.20974E+02_JPRB /)  
+KA(:, 4,13,15) = (/ &
+ & 0.21483E+02_JPRB,0.18800E+02_JPRB,0.16445E+02_JPRB,0.15517E+02_JPRB,0.15132E+02_JPRB, &
+ & 0.14742E+02_JPRB,0.15661E+02_JPRB,0.18119E+02_JPRB,0.20709E+02_JPRB /)  
+KA(:, 5,13,15) = (/ &
+ & 0.21359E+02_JPRB,0.18692E+02_JPRB,0.16307E+02_JPRB,0.15310E+02_JPRB,0.14932E+02_JPRB, &
+ & 0.14513E+02_JPRB,0.15442E+02_JPRB,0.17892E+02_JPRB,0.20448E+02_JPRB /)  
+KA(:, 1, 1,16) = (/ &
+ & 0.54900E+01_JPRB,0.48060E+01_JPRB,0.41232E+01_JPRB,0.34422E+01_JPRB,0.34870E+01_JPRB, &
+ & 0.43588E+01_JPRB,0.52305E+01_JPRB,0.61020E+01_JPRB,0.65047E+01_JPRB /)  
+KA(:, 2, 1,16) = (/ &
+ & 0.54959E+01_JPRB,0.48102E+01_JPRB,0.41246E+01_JPRB,0.34396E+01_JPRB,0.34389E+01_JPRB, &
+ & 0.42986E+01_JPRB,0.51583E+01_JPRB,0.60178E+01_JPRB,0.64181E+01_JPRB /)  
+KA(:, 3, 1,16) = (/ &
+ & 0.54964E+01_JPRB,0.48111E+01_JPRB,0.41257E+01_JPRB,0.34404E+01_JPRB,0.33906E+01_JPRB, &
+ & 0.42383E+01_JPRB,0.50859E+01_JPRB,0.59334E+01_JPRB,0.63255E+01_JPRB /)  
+KA(:, 4, 1,16) = (/ &
+ & 0.54872E+01_JPRB,0.48032E+01_JPRB,0.41193E+01_JPRB,0.34354E+01_JPRB,0.33485E+01_JPRB, &
+ & 0.41856E+01_JPRB,0.50227E+01_JPRB,0.58596E+01_JPRB,0.62437E+01_JPRB /)  
+KA(:, 5, 1,16) = (/ &
+ & 0.54677E+01_JPRB,0.47864E+01_JPRB,0.41051E+01_JPRB,0.34238E+01_JPRB,0.33099E+01_JPRB, &
+ & 0.41373E+01_JPRB,0.49647E+01_JPRB,0.57920E+01_JPRB,0.61726E+01_JPRB /)  
+KA(:, 1, 2,16) = (/ &
+ & 0.65993E+01_JPRB,0.57796E+01_JPRB,0.49604E+01_JPRB,0.41421E+01_JPRB,0.42011E+01_JPRB, &
+ & 0.52514E+01_JPRB,0.63014E+01_JPRB,0.73516E+01_JPRB,0.80279E+01_JPRB /)  
+KA(:, 2, 2,16) = (/ &
+ & 0.66032E+01_JPRB,0.57810E+01_JPRB,0.49597E+01_JPRB,0.41395E+01_JPRB,0.41430E+01_JPRB, &
+ & 0.51787E+01_JPRB,0.62144E+01_JPRB,0.72499E+01_JPRB,0.79170E+01_JPRB /)  
+KA(:, 3, 2,16) = (/ &
+ & 0.66114E+01_JPRB,0.57864E+01_JPRB,0.49618E+01_JPRB,0.41380E+01_JPRB,0.40849E+01_JPRB, &
+ & 0.51061E+01_JPRB,0.61273E+01_JPRB,0.71483E+01_JPRB,0.78058E+01_JPRB /)  
+KA(:, 4, 2,16) = (/ &
+ & 0.66055E+01_JPRB,0.57814E+01_JPRB,0.49573E+01_JPRB,0.41341E+01_JPRB,0.40341E+01_JPRB, &
+ & 0.50426E+01_JPRB,0.60510E+01_JPRB,0.70593E+01_JPRB,0.77043E+01_JPRB /)  
+KA(:, 5, 2,16) = (/ &
+ & 0.65867E+01_JPRB,0.57651E+01_JPRB,0.49435E+01_JPRB,0.41221E+01_JPRB,0.39863E+01_JPRB, &
+ & 0.49829E+01_JPRB,0.59794E+01_JPRB,0.69758E+01_JPRB,0.76124E+01_JPRB /)  
+KA(:, 1, 3,16) = (/ &
+ & 0.79380E+01_JPRB,0.69526E+01_JPRB,0.59676E+01_JPRB,0.49832E+01_JPRB,0.50788E+01_JPRB, &
+ & 0.63485E+01_JPRB,0.76181E+01_JPRB,0.88875E+01_JPRB,0.99377E+01_JPRB /)  
+KA(:, 2, 3,16) = (/ &
+ & 0.79519E+01_JPRB,0.69640E+01_JPRB,0.59765E+01_JPRB,0.49895E+01_JPRB,0.50033E+01_JPRB, &
+ & 0.62541E+01_JPRB,0.75048E+01_JPRB,0.87554E+01_JPRB,0.97869E+01_JPRB /)  
+KA(:, 3, 3,16) = (/ &
+ & 0.79564E+01_JPRB,0.69660E+01_JPRB,0.59762E+01_JPRB,0.49871E+01_JPRB,0.49341E+01_JPRB, &
+ & 0.61676E+01_JPRB,0.74011E+01_JPRB,0.86343E+01_JPRB,0.96531E+01_JPRB /)  
+KA(:, 4, 3,16) = (/ &
+ & 0.79604E+01_JPRB,0.69678E+01_JPRB,0.59753E+01_JPRB,0.49833E+01_JPRB,0.48716E+01_JPRB, &
+ & 0.60895E+01_JPRB,0.73073E+01_JPRB,0.85250E+01_JPRB,0.95280E+01_JPRB /)  
+KA(:, 5, 3,16) = (/ &
+ & 0.79454E+01_JPRB,0.69546E+01_JPRB,0.59641E+01_JPRB,0.49739E+01_JPRB,0.48117E+01_JPRB, &
+ & 0.60146E+01_JPRB,0.72174E+01_JPRB,0.84201E+01_JPRB,0.94106E+01_JPRB /)  
+KA(:, 1, 4,16) = (/ &
+ & 0.95482E+01_JPRB,0.83619E+01_JPRB,0.71758E+01_JPRB,0.59904E+01_JPRB,0.61617E+01_JPRB, &
+ & 0.77021E+01_JPRB,0.92425E+01_JPRB,0.10783E+02_JPRB,0.12199E+02_JPRB /)  
+KA(:, 2, 4,16) = (/ &
+ & 0.95751E+01_JPRB,0.83849E+01_JPRB,0.71952E+01_JPRB,0.60057E+01_JPRB,0.60507E+01_JPRB, &
+ & 0.75634E+01_JPRB,0.90760E+01_JPRB,0.10588E+02_JPRB,0.11979E+02_JPRB /)  
+KA(:, 3, 4,16) = (/ &
+ & 0.95851E+01_JPRB,0.83928E+01_JPRB,0.72008E+01_JPRB,0.60093E+01_JPRB,0.59519E+01_JPRB, &
+ & 0.74398E+01_JPRB,0.89277E+01_JPRB,0.10415E+02_JPRB,0.11784E+02_JPRB /)  
+KA(:, 4, 4,16) = (/ &
+ & 0.95899E+01_JPRB,0.83956E+01_JPRB,0.72016E+01_JPRB,0.60083E+01_JPRB,0.58751E+01_JPRB, &
+ & 0.73438E+01_JPRB,0.88125E+01_JPRB,0.10281E+02_JPRB,0.11628E+02_JPRB /)  
+KA(:, 5, 4,16) = (/ &
+ & 0.95802E+01_JPRB,0.83858E+01_JPRB,0.71919E+01_JPRB,0.59984E+01_JPRB,0.58004E+01_JPRB, &
+ & 0.72505E+01_JPRB,0.87005E+01_JPRB,0.10150E+02_JPRB,0.11482E+02_JPRB /)  
+KA(:, 1, 5,16) = (/ &
+ & 0.11467E+02_JPRB,0.10041E+02_JPRB,0.86153E+01_JPRB,0.71899E+01_JPRB,0.74662E+01_JPRB, &
+ & 0.93327E+01_JPRB,0.11199E+02_JPRB,0.13065E+02_JPRB,0.14858E+02_JPRB /)  
+KA(:, 2, 5,16) = (/ &
+ & 0.11518E+02_JPRB,0.10085E+02_JPRB,0.86526E+01_JPRB,0.72201E+01_JPRB,0.73208E+01_JPRB, &
+ & 0.91509E+01_JPRB,0.10981E+02_JPRB,0.12811E+02_JPRB,0.14568E+02_JPRB /)  
+KA(:, 3, 5,16) = (/ &
+ & 0.11535E+02_JPRB,0.10099E+02_JPRB,0.86636E+01_JPRB,0.72282E+01_JPRB,0.71844E+01_JPRB, &
+ & 0.89805E+01_JPRB,0.10776E+02_JPRB,0.12572E+02_JPRB,0.14298E+02_JPRB /)  
+KA(:, 4, 5,16) = (/ &
+ & 0.11542E+02_JPRB,0.10105E+02_JPRB,0.86677E+01_JPRB,0.72309E+01_JPRB,0.70636E+01_JPRB, &
+ & 0.88295E+01_JPRB,0.10595E+02_JPRB,0.12361E+02_JPRB,0.14056E+02_JPRB /)  
+KA(:, 5, 5,16) = (/ &
+ & 0.11528E+02_JPRB,0.10092E+02_JPRB,0.86561E+01_JPRB,0.72209E+01_JPRB,0.69634E+01_JPRB, &
+ & 0.87042E+01_JPRB,0.10445E+02_JPRB,0.12185E+02_JPRB,0.13857E+02_JPRB /)  
+KA(:, 1, 6,16) = (/ &
+ & 0.13743E+02_JPRB,0.12032E+02_JPRB,0.10321E+02_JPRB,0.86104E+01_JPRB,0.90301E+01_JPRB, &
+ & 0.11288E+02_JPRB,0.13545E+02_JPRB,0.15802E+02_JPRB,0.18010E+02_JPRB /)  
+KA(:, 2, 6,16) = (/ &
+ & 0.13809E+02_JPRB,0.12090E+02_JPRB,0.10370E+02_JPRB,0.86513E+01_JPRB,0.88422E+01_JPRB, &
+ & 0.11053E+02_JPRB,0.13263E+02_JPRB,0.15473E+02_JPRB,0.17638E+02_JPRB /)  
+KA(:, 3, 6,16) = (/ &
+ & 0.13850E+02_JPRB,0.12125E+02_JPRB,0.10400E+02_JPRB,0.86753E+01_JPRB,0.86607E+01_JPRB, &
+ & 0.10826E+02_JPRB,0.12991E+02_JPRB,0.15156E+02_JPRB,0.17275E+02_JPRB /)  
+KA(:, 4, 6,16) = (/ &
+ & 0.13866E+02_JPRB,0.12138E+02_JPRB,0.10411E+02_JPRB,0.86837E+01_JPRB,0.84930E+01_JPRB, &
+ & 0.10616E+02_JPRB,0.12739E+02_JPRB,0.14862E+02_JPRB,0.16940E+02_JPRB /)  
+KA(:, 5, 6,16) = (/ &
+ & 0.13850E+02_JPRB,0.12124E+02_JPRB,0.10399E+02_JPRB,0.86732E+01_JPRB,0.83442E+01_JPRB, &
+ & 0.10430E+02_JPRB,0.12516E+02_JPRB,0.14602E+02_JPRB,0.16644E+02_JPRB /)  
+KA(:, 1, 7,16) = (/ &
+ & 0.16450E+02_JPRB,0.14400E+02_JPRB,0.12350E+02_JPRB,0.10300E+02_JPRB,0.10874E+02_JPRB, &
+ & 0.13593E+02_JPRB,0.16311E+02_JPRB,0.19030E+02_JPRB,0.21722E+02_JPRB /)  
+KA(:, 2, 7,16) = (/ &
+ & 0.16525E+02_JPRB,0.14465E+02_JPRB,0.12405E+02_JPRB,0.10346E+02_JPRB,0.10632E+02_JPRB, &
+ & 0.13290E+02_JPRB,0.15948E+02_JPRB,0.18606E+02_JPRB,0.21239E+02_JPRB /)  
+KA(:, 3, 7,16) = (/ &
+ & 0.16563E+02_JPRB,0.14499E+02_JPRB,0.12434E+02_JPRB,0.10370E+02_JPRB,0.10395E+02_JPRB, &
+ & 0.12994E+02_JPRB,0.15592E+02_JPRB,0.18191E+02_JPRB,0.20762E+02_JPRB /)  
+KA(:, 4, 7,16) = (/ &
+ & 0.16590E+02_JPRB,0.14522E+02_JPRB,0.12454E+02_JPRB,0.10386E+02_JPRB,0.10172E+02_JPRB, &
+ & 0.12715E+02_JPRB,0.15258E+02_JPRB,0.17801E+02_JPRB,0.20317E+02_JPRB /)  
+KA(:, 5, 7,16) = (/ &
+ & 0.16576E+02_JPRB,0.14509E+02_JPRB,0.12443E+02_JPRB,0.10377E+02_JPRB,0.99688E+01_JPRB, &
+ & 0.12461E+02_JPRB,0.14953E+02_JPRB,0.17445E+02_JPRB,0.19913E+02_JPRB /)  
+KA(:, 1, 8,16) = (/ &
+ & 0.19629E+02_JPRB,0.17181E+02_JPRB,0.14733E+02_JPRB,0.12285E+02_JPRB,0.13022E+02_JPRB, &
+ & 0.16277E+02_JPRB,0.19532E+02_JPRB,0.22787E+02_JPRB,0.26029E+02_JPRB /)  
+KA(:, 2, 8,16) = (/ &
+ & 0.19728E+02_JPRB,0.17267E+02_JPRB,0.14807E+02_JPRB,0.12346E+02_JPRB,0.12711E+02_JPRB, &
+ & 0.15888E+02_JPRB,0.19066E+02_JPRB,0.22243E+02_JPRB,0.25406E+02_JPRB /)  
+KA(:, 3, 8,16) = (/ &
+ & 0.19768E+02_JPRB,0.17302E+02_JPRB,0.14837E+02_JPRB,0.12371E+02_JPRB,0.12399E+02_JPRB, &
+ & 0.15499E+02_JPRB,0.18599E+02_JPRB,0.21698E+02_JPRB,0.24782E+02_JPRB /)  
+KA(:, 4, 8,16) = (/ &
+ & 0.19773E+02_JPRB,0.17307E+02_JPRB,0.14840E+02_JPRB,0.12374E+02_JPRB,0.12111E+02_JPRB, &
+ & 0.15139E+02_JPRB,0.18167E+02_JPRB,0.21194E+02_JPRB,0.24210E+02_JPRB /)  
+KA(:, 5, 8,16) = (/ &
+ & 0.19744E+02_JPRB,0.17281E+02_JPRB,0.14818E+02_JPRB,0.12356E+02_JPRB,0.11840E+02_JPRB, &
+ & 0.14800E+02_JPRB,0.17760E+02_JPRB,0.20720E+02_JPRB,0.23667E+02_JPRB /)  
+KA(:, 1, 9,16) = (/ &
+ & 0.23312E+02_JPRB,0.20403E+02_JPRB,0.17494E+02_JPRB,0.14584E+02_JPRB,0.15488E+02_JPRB, &
+ & 0.19360E+02_JPRB,0.23231E+02_JPRB,0.27103E+02_JPRB,0.30970E+02_JPRB /)  
+KA(:, 2, 9,16) = (/ &
+ & 0.23439E+02_JPRB,0.20514E+02_JPRB,0.17588E+02_JPRB,0.14663E+02_JPRB,0.15085E+02_JPRB, &
+ & 0.18856E+02_JPRB,0.22627E+02_JPRB,0.26397E+02_JPRB,0.30166E+02_JPRB /)  
+KA(:, 3, 9,16) = (/ &
+ & 0.23492E+02_JPRB,0.20560E+02_JPRB,0.17628E+02_JPRB,0.14696E+02_JPRB,0.14687E+02_JPRB, &
+ & 0.18356E+02_JPRB,0.22027E+02_JPRB,0.25697E+02_JPRB,0.29367E+02_JPRB /)  
+KA(:, 4, 9,16) = (/ &
+ & 0.23479E+02_JPRB,0.20549E+02_JPRB,0.17619E+02_JPRB,0.14689E+02_JPRB,0.14321E+02_JPRB, &
+ & 0.17895E+02_JPRB,0.21474E+02_JPRB,0.25052E+02_JPRB,0.28629E+02_JPRB /)  
+KA(:, 5, 9,16) = (/ &
+ & 0.23411E+02_JPRB,0.20489E+02_JPRB,0.17567E+02_JPRB,0.14646E+02_JPRB,0.13982E+02_JPRB, &
+ & 0.17451E+02_JPRB,0.20941E+02_JPRB,0.24431E+02_JPRB,0.27917E+02_JPRB /)  
+KA(:, 1,10,16) = (/ &
+ & 0.27592E+02_JPRB,0.24147E+02_JPRB,0.20702E+02_JPRB,0.17264E+02_JPRB,0.18240E+02_JPRB, &
+ & 0.22793E+02_JPRB,0.27352E+02_JPRB,0.31910E+02_JPRB,0.36473E+02_JPRB /)  
+KA(:, 2,10,16) = (/ &
+ & 0.27703E+02_JPRB,0.24245E+02_JPRB,0.20786E+02_JPRB,0.17327E+02_JPRB,0.17749E+02_JPRB, &
+ & 0.22147E+02_JPRB,0.26577E+02_JPRB,0.31006E+02_JPRB,0.35436E+02_JPRB /)  
+KA(:, 3,10,16) = (/ &
+ & 0.27743E+02_JPRB,0.24279E+02_JPRB,0.20816E+02_JPRB,0.17352E+02_JPRB,0.17266E+02_JPRB, &
+ & 0.21525E+02_JPRB,0.25830E+02_JPRB,0.30134E+02_JPRB,0.34441E+02_JPRB /)  
+KA(:, 4,10,16) = (/ &
+ & 0.27709E+02_JPRB,0.24250E+02_JPRB,0.20790E+02_JPRB,0.17331E+02_JPRB,0.16811E+02_JPRB, &
+ & 0.20946E+02_JPRB,0.25135E+02_JPRB,0.29324E+02_JPRB,0.33510E+02_JPRB /)  
+KA(:, 5,10,16) = (/ &
+ & 0.27598E+02_JPRB,0.24153E+02_JPRB,0.20707E+02_JPRB,0.17262E+02_JPRB,0.16378E+02_JPRB, &
+ & 0.20388E+02_JPRB,0.24466E+02_JPRB,0.28543E+02_JPRB,0.32622E+02_JPRB /)  
+KA(:, 1,11,16) = (/ &
+ & 0.32570E+02_JPRB,0.28502E+02_JPRB,0.24434E+02_JPRB,0.20393E+02_JPRB,0.21083E+02_JPRB, &
+ & 0.26245E+02_JPRB,0.31494E+02_JPRB,0.36742E+02_JPRB,0.41994E+02_JPRB /)  
+KA(:, 2,11,16) = (/ &
+ & 0.32601E+02_JPRB,0.28529E+02_JPRB,0.24458E+02_JPRB,0.20386E+02_JPRB,0.20492E+02_JPRB, &
+ & 0.25469E+02_JPRB,0.30563E+02_JPRB,0.35657E+02_JPRB,0.40747E+02_JPRB /)  
+KA(:, 3,11,16) = (/ &
+ & 0.32535E+02_JPRB,0.28472E+02_JPRB,0.24408E+02_JPRB,0.20345E+02_JPRB,0.19916E+02_JPRB, &
+ & 0.24733E+02_JPRB,0.29679E+02_JPRB,0.34625E+02_JPRB,0.39568E+02_JPRB /)  
+KA(:, 4,11,16) = (/ &
+ & 0.32390E+02_JPRB,0.28345E+02_JPRB,0.24301E+02_JPRB,0.20256E+02_JPRB,0.19358E+02_JPRB, &
+ & 0.24023E+02_JPRB,0.28827E+02_JPRB,0.33631E+02_JPRB,0.38435E+02_JPRB /)  
+KA(:, 5,11,16) = (/ &
+ & 0.32175E+02_JPRB,0.28157E+02_JPRB,0.24140E+02_JPRB,0.20122E+02_JPRB,0.18819E+02_JPRB, &
+ & 0.23330E+02_JPRB,0.27996E+02_JPRB,0.32661E+02_JPRB,0.37328E+02_JPRB /)  
+KA(:, 1,12,16) = (/ &
+ & 0.38135E+02_JPRB,0.33371E+02_JPRB,0.28607E+02_JPRB,0.23891E+02_JPRB,0.24203E+02_JPRB, &
+ & 0.29981E+02_JPRB,0.35977E+02_JPRB,0.41973E+02_JPRB,0.47971E+02_JPRB /)  
+KA(:, 2,12,16) = (/ &
+ & 0.38033E+02_JPRB,0.33282E+02_JPRB,0.28531E+02_JPRB,0.23779E+02_JPRB,0.23491E+02_JPRB, &
+ & 0.29038E+02_JPRB,0.34845E+02_JPRB,0.40652E+02_JPRB,0.46464E+02_JPRB /)  
+KA(:, 3,12,16) = (/ &
+ & 0.37806E+02_JPRB,0.33084E+02_JPRB,0.28361E+02_JPRB,0.23639E+02_JPRB,0.22788E+02_JPRB, &
+ & 0.28150E+02_JPRB,0.33780E+02_JPRB,0.39409E+02_JPRB,0.45036E+02_JPRB /)  
+KA(:, 4,12,16) = (/ &
+ & 0.37497E+02_JPRB,0.32813E+02_JPRB,0.28129E+02_JPRB,0.23446E+02_JPRB,0.22100E+02_JPRB, &
+ & 0.27270E+02_JPRB,0.32724E+02_JPRB,0.38179E+02_JPRB,0.43632E+02_JPRB /)  
+KA(:, 5,12,16) = (/ &
+ & 0.37099E+02_JPRB,0.32465E+02_JPRB,0.27831E+02_JPRB,0.23198E+02_JPRB,0.21440E+02_JPRB, &
+ & 0.26398E+02_JPRB,0.31678E+02_JPRB,0.36957E+02_JPRB,0.42237E+02_JPRB /)  
+KA(:, 1,13,16) = (/ &
+ & 0.44217E+02_JPRB,0.38692E+02_JPRB,0.33167E+02_JPRB,0.27730E+02_JPRB,0.27605E+02_JPRB, &
+ & 0.33969E+02_JPRB,0.40763E+02_JPRB,0.47556E+02_JPRB,0.54352E+02_JPRB /)  
+KA(:, 2,13,16) = (/ &
+ & 0.43915E+02_JPRB,0.38428E+02_JPRB,0.32941E+02_JPRB,0.27455E+02_JPRB,0.26738E+02_JPRB, &
+ & 0.32787E+02_JPRB,0.39345E+02_JPRB,0.45901E+02_JPRB,0.52455E+02_JPRB /)  
+KA(:, 3,13,16) = (/ &
+ & 0.43489E+02_JPRB,0.38055E+02_JPRB,0.32622E+02_JPRB,0.27188E+02_JPRB,0.25861E+02_JPRB, &
+ & 0.31686E+02_JPRB,0.38022E+02_JPRB,0.44359E+02_JPRB,0.50700E+02_JPRB /)  
+KA(:, 4,13,16) = (/ &
+ & 0.42951E+02_JPRB,0.37585E+02_JPRB,0.32219E+02_JPRB,0.26853E+02_JPRB,0.25006E+02_JPRB, &
+ & 0.30590E+02_JPRB,0.36708E+02_JPRB,0.42826E+02_JPRB,0.48946E+02_JPRB /)  
+KA(:, 5,13,16) = (/ &
+ & 0.42298E+02_JPRB,0.37013E+02_JPRB,0.31729E+02_JPRB,0.26445E+02_JPRB,0.24180E+02_JPRB, &
+ & 0.29511E+02_JPRB,0.35413E+02_JPRB,0.41314E+02_JPRB,0.47218E+02_JPRB /)  
+  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART11',1,ZHOOK_HANDLE)
+END SUBROUTINE PART11
+
+
+SUBROUTINE PART12
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART12',0,ZHOOK_HANDLE)
+
+
+!     -----------------------------------------------------------------
+!     The array KB contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels < ~100mb and temperatures. The first 
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this pressure 
+!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for
+!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  
+!     The second index, JP, runs from 13 to 59 and refers to the JPth
+!     reference pressure level (see taumol.f for the value of these
+!     pressure levels in mb).  The third index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+!     -----------------------------------------------------------------
+
+KB(:, 1,13, 1) = (/ &
+ & 0.40633E-08_JPRB,0.64718E-06_JPRB,0.79567E-06_JPRB,0.81264E-06_JPRB,0.25080E-07_JPRB /)  
+KB(:, 2,13, 1) = (/ &
+ & 0.37596E-08_JPRB,0.70429E-06_JPRB,0.90855E-06_JPRB,0.96432E-06_JPRB,0.28292E-07_JPRB /)  
+KB(:, 3,13, 1) = (/ &
+ & 0.34982E-08_JPRB,0.76370E-06_JPRB,0.10316E-05_JPRB,0.11472E-05_JPRB,0.31265E-07_JPRB /)  
+KB(:, 4,13, 1) = (/ &
+ & 0.32707E-08_JPRB,0.82834E-06_JPRB,0.11577E-05_JPRB,0.13387E-05_JPRB,0.34928E-07_JPRB /)  
+KB(:, 5,13, 1) = (/ &
+ & 0.30710E-08_JPRB,0.90252E-06_JPRB,0.12962E-05_JPRB,0.15206E-05_JPRB,0.38859E-07_JPRB /)  
+KB(:, 1,14, 1) = (/ &
+ & 0.33026E-08_JPRB,0.53592E-06_JPRB,0.66171E-06_JPRB,0.67633E-06_JPRB,0.20767E-07_JPRB /)  
+KB(:, 2,14, 1) = (/ &
+ & 0.30574E-08_JPRB,0.57959E-06_JPRB,0.75386E-06_JPRB,0.80395E-06_JPRB,0.23334E-07_JPRB /)  
+KB(:, 3,14, 1) = (/ &
+ & 0.28461E-08_JPRB,0.62897E-06_JPRB,0.85486E-06_JPRB,0.95745E-06_JPRB,0.25841E-07_JPRB /)  
+KB(:, 4,14, 1) = (/ &
+ & 0.26621E-08_JPRB,0.68352E-06_JPRB,0.96132E-06_JPRB,0.11148E-05_JPRB,0.28862E-07_JPRB /)  
+KB(:, 5,14, 1) = (/ &
+ & 0.25005E-08_JPRB,0.74517E-06_JPRB,0.10739E-05_JPRB,0.12632E-05_JPRB,0.32093E-07_JPRB /)  
+KB(:, 1,15, 1) = (/ &
+ & 0.26821E-08_JPRB,0.44081E-06_JPRB,0.55093E-06_JPRB,0.56465E-06_JPRB,0.17186E-07_JPRB /)  
+KB(:, 2,15, 1) = (/ &
+ & 0.24845E-08_JPRB,0.47773E-06_JPRB,0.62636E-06_JPRB,0.67180E-06_JPRB,0.19234E-07_JPRB /)  
+KB(:, 3,15, 1) = (/ &
+ & 0.23140E-08_JPRB,0.51811E-06_JPRB,0.70791E-06_JPRB,0.79658E-06_JPRB,0.21348E-07_JPRB /)  
+KB(:, 4,15, 1) = (/ &
+ & 0.21654E-08_JPRB,0.56416E-06_JPRB,0.79893E-06_JPRB,0.92873E-06_JPRB,0.23832E-07_JPRB /)  
+KB(:, 5,15, 1) = (/ &
+ & 0.20347E-08_JPRB,0.61535E-06_JPRB,0.88985E-06_JPRB,0.10499E-05_JPRB,0.26485E-07_JPRB /)  
+KB(:, 1,16, 1) = (/ &
+ & 0.21775E-08_JPRB,0.36254E-06_JPRB,0.45870E-06_JPRB,0.47125E-06_JPRB,0.14211E-07_JPRB /)  
+KB(:, 2,16, 1) = (/ &
+ & 0.20183E-08_JPRB,0.39376E-06_JPRB,0.52053E-06_JPRB,0.56163E-06_JPRB,0.15869E-07_JPRB /)  
+KB(:, 3,16, 1) = (/ &
+ & 0.18808E-08_JPRB,0.42687E-06_JPRB,0.58699E-06_JPRB,0.66386E-06_JPRB,0.17627E-07_JPRB /)  
+KB(:, 4,16, 1) = (/ &
+ & 0.17608E-08_JPRB,0.46559E-06_JPRB,0.66388E-06_JPRB,0.77063E-06_JPRB,0.19664E-07_JPRB /)  
+KB(:, 5,16, 1) = (/ &
+ & 0.16552E-08_JPRB,0.50747E-06_JPRB,0.73699E-06_JPRB,0.87249E-06_JPRB,0.21844E-07_JPRB /)  
+KB(:, 1,17, 1) = (/ &
+ & 0.17682E-08_JPRB,0.29836E-06_JPRB,0.38104E-06_JPRB,0.39314E-06_JPRB,0.11735E-07_JPRB /)  
+KB(:, 2,17, 1) = (/ &
+ & 0.16399E-08_JPRB,0.32493E-06_JPRB,0.43215E-06_JPRB,0.46897E-06_JPRB,0.13077E-07_JPRB /)  
+KB(:, 3,17, 1) = (/ &
+ & 0.15290E-08_JPRB,0.35203E-06_JPRB,0.48665E-06_JPRB,0.55328E-06_JPRB,0.14535E-07_JPRB /)  
+KB(:, 4,17, 1) = (/ &
+ & 0.14321E-08_JPRB,0.38383E-06_JPRB,0.55033E-06_JPRB,0.63844E-06_JPRB,0.16208E-07_JPRB /)  
+KB(:, 5,17, 1) = (/ &
+ & 0.13468E-08_JPRB,0.41822E-06_JPRB,0.60950E-06_JPRB,0.72376E-06_JPRB,0.17995E-07_JPRB /)  
+KB(:, 1,18, 1) = (/ &
+ & 0.14362E-08_JPRB,0.24560E-06_JPRB,0.31667E-06_JPRB,0.32797E-06_JPRB,0.96831E-08_JPRB /)  
+KB(:, 2,18, 1) = (/ &
+ & 0.13327E-08_JPRB,0.26784E-06_JPRB,0.35872E-06_JPRB,0.39134E-06_JPRB,0.10773E-07_JPRB /)  
+KB(:, 3,18, 1) = (/ &
+ & 0.12432E-08_JPRB,0.29008E-06_JPRB,0.40334E-06_JPRB,0.46026E-06_JPRB,0.11980E-07_JPRB /)  
+KB(:, 4,18, 1) = (/ &
+ & 0.11650E-08_JPRB,0.31637E-06_JPRB,0.45583E-06_JPRB,0.52880E-06_JPRB,0.13350E-07_JPRB /)  
+KB(:, 5,18, 1) = (/ &
+ & 0.10960E-08_JPRB,0.34503E-06_JPRB,0.50363E-06_JPRB,0.59967E-06_JPRB,0.14815E-07_JPRB /)  
+KB(:, 1,19, 1) = (/ &
+ & 0.11667E-08_JPRB,0.20231E-06_JPRB,0.26313E-06_JPRB,0.27359E-06_JPRB,0.79934E-08_JPRB /)  
+KB(:, 2,19, 1) = (/ &
+ & 0.10833E-08_JPRB,0.22085E-06_JPRB,0.29760E-06_JPRB,0.32620E-06_JPRB,0.88807E-08_JPRB /)  
+KB(:, 3,19, 1) = (/ &
+ & 0.10110E-08_JPRB,0.23912E-06_JPRB,0.33423E-06_JPRB,0.38271E-06_JPRB,0.98771E-08_JPRB /)  
+KB(:, 4,19, 1) = (/ &
+ & 0.94778E-09_JPRB,0.26073E-06_JPRB,0.37685E-06_JPRB,0.43791E-06_JPRB,0.11002E-07_JPRB /)  
+KB(:, 5,19, 1) = (/ &
+ & 0.89198E-09_JPRB,0.28425E-06_JPRB,0.41589E-06_JPRB,0.49682E-06_JPRB,0.12204E-07_JPRB /)  
+KB(:, 1,20, 1) = (/ &
+ & 0.94668E-09_JPRB,0.16735E-06_JPRB,0.21822E-06_JPRB,0.22914E-06_JPRB,0.66237E-08_JPRB /)  
+KB(:, 2,20, 1) = (/ &
+ & 0.87956E-09_JPRB,0.18255E-06_JPRB,0.24770E-06_JPRB,0.27290E-06_JPRB,0.73470E-08_JPRB /)  
+KB(:, 3,20, 1) = (/ &
+ & 0.82132E-09_JPRB,0.19776E-06_JPRB,0.27786E-06_JPRB,0.31913E-06_JPRB,0.81732E-08_JPRB /)  
+KB(:, 4,20, 1) = (/ &
+ & 0.77032E-09_JPRB,0.21557E-06_JPRB,0.31197E-06_JPRB,0.36380E-06_JPRB,0.91019E-08_JPRB /)  
+KB(:, 5,20, 1) = (/ &
+ & 0.72528E-09_JPRB,0.23458E-06_JPRB,0.34449E-06_JPRB,0.41257E-06_JPRB,0.10084E-07_JPRB /)  
+KB(:, 1,21, 1) = (/ &
+ & 0.76809E-09_JPRB,0.13858E-06_JPRB,0.18138E-06_JPRB,0.19188E-06_JPRB,0.54929E-08_JPRB /)  
+KB(:, 2,21, 1) = (/ &
+ & 0.71408E-09_JPRB,0.15088E-06_JPRB,0.20614E-06_JPRB,0.22835E-06_JPRB,0.60825E-08_JPRB /)  
+KB(:, 3,21, 1) = (/ &
+ & 0.66717E-09_JPRB,0.16366E-06_JPRB,0.23111E-06_JPRB,0.26622E-06_JPRB,0.67680E-08_JPRB /)  
+KB(:, 4,21, 1) = (/ &
+ & 0.62605E-09_JPRB,0.17816E-06_JPRB,0.25834E-06_JPRB,0.30242E-06_JPRB,0.75344E-08_JPRB /)  
+KB(:, 5,21, 1) = (/ &
+ & 0.58970E-09_JPRB,0.19374E-06_JPRB,0.28542E-06_JPRB,0.34222E-06_JPRB,0.83394E-08_JPRB /)  
+KB(:, 1,22, 1) = (/ &
+ & 0.62013E-09_JPRB,0.11547E-06_JPRB,0.15212E-06_JPRB,0.16227E-06_JPRB,0.45926E-08_JPRB /)  
+KB(:, 2,22, 1) = (/ &
+ & 0.57709E-09_JPRB,0.12552E-06_JPRB,0.17211E-06_JPRB,0.19265E-06_JPRB,0.50728E-08_JPRB /)  
+KB(:, 3,22, 1) = (/ &
+ & 0.53964E-09_JPRB,0.13619E-06_JPRB,0.19363E-06_JPRB,0.22402E-06_JPRB,0.56454E-08_JPRB /)  
+KB(:, 4,22, 1) = (/ &
+ & 0.50675E-09_JPRB,0.14805E-06_JPRB,0.21557E-06_JPRB,0.25320E-06_JPRB,0.62805E-08_JPRB /)  
+KB(:, 5,22, 1) = (/ &
+ & 0.47764E-09_JPRB,0.16097E-06_JPRB,0.23799E-06_JPRB,0.28574E-06_JPRB,0.69414E-08_JPRB /)  
+KB(:, 1,23, 1) = (/ &
+ & 0.50055E-09_JPRB,0.96165E-07_JPRB,0.12776E-06_JPRB,0.13752E-06_JPRB,0.37933E-08_JPRB /)  
+KB(:, 2,23, 1) = (/ &
+ & 0.46627E-09_JPRB,0.10421E-06_JPRB,0.14387E-06_JPRB,0.16226E-06_JPRB,0.42154E-08_JPRB /)  
+KB(:, 3,23, 1) = (/ &
+ & 0.43638E-09_JPRB,0.11320E-06_JPRB,0.16240E-06_JPRB,0.18806E-06_JPRB,0.46761E-08_JPRB /)  
+KB(:, 4,23, 1) = (/ &
+ & 0.41009E-09_JPRB,0.12312E-06_JPRB,0.18002E-06_JPRB,0.21214E-06_JPRB,0.51724E-08_JPRB /)  
+KB(:, 5,23, 1) = (/ &
+ & 0.38679E-09_JPRB,0.13380E-06_JPRB,0.19835E-06_JPRB,0.23836E-06_JPRB,0.56863E-08_JPRB /)  
+KB(:, 1,24, 1) = (/ &
+ & 0.40384E-09_JPRB,0.80174E-07_JPRB,0.10742E-06_JPRB,0.11665E-06_JPRB,0.31435E-08_JPRB /)  
+KB(:, 2,24, 1) = (/ &
+ & 0.37656E-09_JPRB,0.86611E-07_JPRB,0.12062E-06_JPRB,0.13694E-06_JPRB,0.34746E-08_JPRB /)  
+KB(:, 3,24, 1) = (/ &
+ & 0.35273E-09_JPRB,0.94203E-07_JPRB,0.13610E-06_JPRB,0.15729E-06_JPRB,0.38586E-08_JPRB /)  
+KB(:, 4,24, 1) = (/ &
+ & 0.33174E-09_JPRB,0.10246E-06_JPRB,0.15035E-06_JPRB,0.17775E-06_JPRB,0.42707E-08_JPRB /)  
+KB(:, 5,24, 1) = (/ &
+ & 0.31310E-09_JPRB,0.11122E-06_JPRB,0.16543E-06_JPRB,0.19917E-06_JPRB,0.47020E-08_JPRB /)  
+KB(:, 1,25, 1) = (/ &
+ & 0.32562E-09_JPRB,0.66785E-07_JPRB,0.90447E-07_JPRB,0.99059E-07_JPRB,0.26134E-08_JPRB /)  
+KB(:, 2,25, 1) = (/ &
+ & 0.30393E-09_JPRB,0.72133E-07_JPRB,0.10139E-06_JPRB,0.11571E-06_JPRB,0.28872E-08_JPRB /)  
+KB(:, 3,25, 1) = (/ &
+ & 0.28495E-09_JPRB,0.78448E-07_JPRB,0.11385E-06_JPRB,0.13178E-06_JPRB,0.32061E-08_JPRB /)  
+KB(:, 4,25, 1) = (/ &
+ & 0.26821E-09_JPRB,0.85339E-07_JPRB,0.12563E-06_JPRB,0.14914E-06_JPRB,0.35489E-08_JPRB /)  
+KB(:, 5,25, 1) = (/ &
+ & 0.25332E-09_JPRB,0.92445E-07_JPRB,0.13814E-06_JPRB,0.16674E-06_JPRB,0.39060E-08_JPRB /)  
+KB(:, 1,26, 1) = (/ &
+ & 0.26224E-09_JPRB,0.55680E-07_JPRB,0.76369E-07_JPRB,0.84400E-07_JPRB,0.21759E-08_JPRB /)  
+KB(:, 2,26, 1) = (/ &
+ & 0.24504E-09_JPRB,0.60204E-07_JPRB,0.85423E-07_JPRB,0.97885E-07_JPRB,0.24118E-08_JPRB /)  
+KB(:, 3,26, 1) = (/ &
+ & 0.22996E-09_JPRB,0.65477E-07_JPRB,0.95321E-07_JPRB,0.11093E-06_JPRB,0.26774E-08_JPRB /)  
+KB(:, 4,26, 1) = (/ &
+ & 0.21663E-09_JPRB,0.71188E-07_JPRB,0.10529E-06_JPRB,0.12544E-06_JPRB,0.29615E-08_JPRB /)  
+KB(:, 5,26, 1) = (/ &
+ & 0.20475E-09_JPRB,0.76940E-07_JPRB,0.11556E-06_JPRB,0.13977E-06_JPRB,0.32569E-08_JPRB /)  
+KB(:, 1,27, 1) = (/ &
+ & 0.21120E-09_JPRB,0.46382E-07_JPRB,0.63894E-07_JPRB,0.71379E-07_JPRB,0.18178E-08_JPRB /)  
+KB(:, 2,27, 1) = (/ &
+ & 0.19756E-09_JPRB,0.50278E-07_JPRB,0.72033E-07_JPRB,0.82909E-07_JPRB,0.20181E-08_JPRB /)  
+KB(:, 3,27, 1) = (/ &
+ & 0.18557E-09_JPRB,0.54670E-07_JPRB,0.79953E-07_JPRB,0.93505E-07_JPRB,0.22396E-08_JPRB /)  
+KB(:, 4,27, 1) = (/ &
+ & 0.17496E-09_JPRB,0.59408E-07_JPRB,0.88179E-07_JPRB,0.10553E-06_JPRB,0.24737E-08_JPRB /)  
+KB(:, 5,27, 1) = (/ &
+ & 0.16549E-09_JPRB,0.64025E-07_JPRB,0.96696E-07_JPRB,0.11704E-06_JPRB,0.27092E-08_JPRB /)  
+KB(:, 1,28, 1) = (/ &
+ & 0.17010E-09_JPRB,0.38631E-07_JPRB,0.53773E-07_JPRB,0.60579E-07_JPRB,0.15220E-08_JPRB /)  
+KB(:, 2,28, 1) = (/ &
+ & 0.15928E-09_JPRB,0.42001E-07_JPRB,0.60660E-07_JPRB,0.69727E-07_JPRB,0.16901E-08_JPRB /)  
+KB(:, 3,28, 1) = (/ &
+ & 0.14976E-09_JPRB,0.45661E-07_JPRB,0.67065E-07_JPRB,0.78845E-07_JPRB,0.18696E-08_JPRB /)  
+KB(:, 4,28, 1) = (/ &
+ & 0.14131E-09_JPRB,0.49571E-07_JPRB,0.73809E-07_JPRB,0.88481E-07_JPRB,0.20611E-08_JPRB /)  
+KB(:, 5,28, 1) = (/ &
+ & 0.13376E-09_JPRB,0.53304E-07_JPRB,0.80910E-07_JPRB,0.98017E-07_JPRB,0.22565E-08_JPRB /)  
+KB(:, 1,29, 1) = (/ &
+ & 0.13696E-09_JPRB,0.32270E-07_JPRB,0.45392E-07_JPRB,0.51438E-07_JPRB,0.12721E-08_JPRB /)  
+KB(:, 2,29, 1) = (/ &
+ & 0.12839E-09_JPRB,0.35079E-07_JPRB,0.50946E-07_JPRB,0.58726E-07_JPRB,0.14118E-08_JPRB /)  
+KB(:, 3,29, 1) = (/ &
+ & 0.12082E-09_JPRB,0.38150E-07_JPRB,0.56258E-07_JPRB,0.66493E-07_JPRB,0.15628E-08_JPRB /)  
+KB(:, 4,29, 1) = (/ &
+ & 0.11410E-09_JPRB,0.41324E-07_JPRB,0.61843E-07_JPRB,0.74387E-07_JPRB,0.17205E-08_JPRB /)  
+KB(:, 5,29, 1) = (/ &
+ & 0.10808E-09_JPRB,0.44387E-07_JPRB,0.67739E-07_JPRB,0.82216E-07_JPRB,0.18745E-08_JPRB /)  
+KB(:, 1,30, 1) = (/ &
+ & 0.11029E-09_JPRB,0.26970E-07_JPRB,0.38330E-07_JPRB,0.43698E-07_JPRB,0.10655E-08_JPRB /)  
+KB(:, 2,30, 1) = (/ &
+ & 0.10349E-09_JPRB,0.29319E-07_JPRB,0.42739E-07_JPRB,0.49552E-07_JPRB,0.11823E-08_JPRB /)  
+KB(:, 3,30, 1) = (/ &
+ & 0.97483E-10_JPRB,0.31869E-07_JPRB,0.47210E-07_JPRB,0.56057E-07_JPRB,0.13038E-08_JPRB /)  
+KB(:, 4,30, 1) = (/ &
+ & 0.92133E-10_JPRB,0.34436E-07_JPRB,0.51812E-07_JPRB,0.62485E-07_JPRB,0.14285E-08_JPRB /)  
+KB(:, 5,30, 1) = (/ &
+ & 0.87340E-10_JPRB,0.36953E-07_JPRB,0.56709E-07_JPRB,0.68921E-07_JPRB,0.15563E-08_JPRB /)  
+KB(:, 1,31, 1) = (/ &
+ & 0.88806E-10_JPRB,0.22555E-07_JPRB,0.32386E-07_JPRB,0.37129E-07_JPRB,0.89029E-09_JPRB /)  
+KB(:, 2,31, 1) = (/ &
+ & 0.83417E-10_JPRB,0.24519E-07_JPRB,0.35921E-07_JPRB,0.41870E-07_JPRB,0.98548E-09_JPRB /)  
+KB(:, 3,31, 1) = (/ &
+ & 0.78644E-10_JPRB,0.26638E-07_JPRB,0.39609E-07_JPRB,0.47273E-07_JPRB,0.10854E-08_JPRB /)  
+KB(:, 4,31, 1) = (/ &
+ & 0.74388E-10_JPRB,0.28694E-07_JPRB,0.43423E-07_JPRB,0.52435E-07_JPRB,0.11880E-08_JPRB /)  
+KB(:, 5,31, 1) = (/ &
+ & 0.70568E-10_JPRB,0.30776E-07_JPRB,0.47411E-07_JPRB,0.57750E-07_JPRB,0.12931E-08_JPRB /)  
+KB(:, 1,32, 1) = (/ &
+ & 0.71507E-10_JPRB,0.18870E-07_JPRB,0.27332E-07_JPRB,0.31309E-07_JPRB,0.74436E-09_JPRB /)  
+KB(:, 2,32, 1) = (/ &
+ & 0.67235E-10_JPRB,0.20512E-07_JPRB,0.30189E-07_JPRB,0.35407E-07_JPRB,0.82294E-09_JPRB /)  
+KB(:, 3,32, 1) = (/ &
+ & 0.63444E-10_JPRB,0.22259E-07_JPRB,0.33218E-07_JPRB,0.39730E-07_JPRB,0.90483E-09_JPRB /)  
+KB(:, 4,32, 1) = (/ &
+ & 0.60058E-10_JPRB,0.23923E-07_JPRB,0.36405E-07_JPRB,0.43976E-07_JPRB,0.98908E-09_JPRB /)  
+KB(:, 5,32, 1) = (/ &
+ & 0.57015E-10_JPRB,0.25634E-07_JPRB,0.39548E-07_JPRB,0.48346E-07_JPRB,0.10750E-08_JPRB /)  
+KB(:, 1,33, 1) = (/ &
+ & 0.57586E-10_JPRB,0.15779E-07_JPRB,0.22950E-07_JPRB,0.26415E-07_JPRB,0.62256E-09_JPRB /)  
+KB(:, 2,33, 1) = (/ &
+ & 0.54199E-10_JPRB,0.17153E-07_JPRB,0.25354E-07_JPRB,0.29904E-07_JPRB,0.68734E-09_JPRB /)  
+KB(:, 3,33, 1) = (/ &
+ & 0.51188E-10_JPRB,0.18569E-07_JPRB,0.27869E-07_JPRB,0.33404E-07_JPRB,0.75467E-09_JPRB /)  
+KB(:, 4,33, 1) = (/ &
+ & 0.48493E-10_JPRB,0.19935E-07_JPRB,0.30437E-07_JPRB,0.36856E-07_JPRB,0.82369E-09_JPRB /)  
+KB(:, 5,33, 1) = (/ &
+ & 0.46069E-10_JPRB,0.21345E-07_JPRB,0.32988E-07_JPRB,0.40478E-07_JPRB,0.89402E-09_JPRB /)  
+KB(:, 1,34, 1) = (/ &
+ & 0.46487E-10_JPRB,0.13161E-07_JPRB,0.19216E-07_JPRB,0.22212E-07_JPRB,0.51910E-09_JPRB /)  
+KB(:, 2,34, 1) = (/ &
+ & 0.43789E-10_JPRB,0.14301E-07_JPRB,0.21182E-07_JPRB,0.25090E-07_JPRB,0.57247E-09_JPRB /)  
+KB(:, 3,34, 1) = (/ &
+ & 0.41386E-10_JPRB,0.15447E-07_JPRB,0.23208E-07_JPRB,0.27938E-07_JPRB,0.62767E-09_JPRB /)  
+KB(:, 4,34, 1) = (/ &
+ & 0.39234E-10_JPRB,0.16571E-07_JPRB,0.25347E-07_JPRB,0.30795E-07_JPRB,0.68426E-09_JPRB /)  
+KB(:, 5,34, 1) = (/ &
+ & 0.37294E-10_JPRB,0.17725E-07_JPRB,0.27392E-07_JPRB,0.33781E-07_JPRB,0.74179E-09_JPRB /)  
+KB(:, 1,35, 1) = (/ &
+ & 0.37756E-10_JPRB,0.10890E-07_JPRB,0.15882E-07_JPRB,0.18441E-07_JPRB,0.42871E-09_JPRB /)  
+KB(:, 2,35, 1) = (/ &
+ & 0.35581E-10_JPRB,0.11830E-07_JPRB,0.17514E-07_JPRB,0.20810E-07_JPRB,0.47251E-09_JPRB /)  
+KB(:, 3,35, 1) = (/ &
+ & 0.33643E-10_JPRB,0.12757E-07_JPRB,0.19184E-07_JPRB,0.23148E-07_JPRB,0.51769E-09_JPRB /)  
+KB(:, 4,35, 1) = (/ &
+ & 0.31905E-10_JPRB,0.13682E-07_JPRB,0.20941E-07_JPRB,0.25477E-07_JPRB,0.56394E-09_JPRB /)  
+KB(:, 5,35, 1) = (/ &
+ & 0.30338E-10_JPRB,0.14628E-07_JPRB,0.22613E-07_JPRB,0.27948E-07_JPRB,0.61100E-09_JPRB /)  
+KB(:, 1,36, 1) = (/ &
+ & 0.30872E-10_JPRB,0.89290E-08_JPRB,0.13007E-07_JPRB,0.15108E-07_JPRB,0.35034E-09_JPRB /)  
+KB(:, 2,36, 1) = (/ &
+ & 0.29096E-10_JPRB,0.96995E-08_JPRB,0.14343E-07_JPRB,0.17051E-07_JPRB,0.38609E-09_JPRB /)  
+KB(:, 3,36, 1) = (/ &
+ & 0.27513E-10_JPRB,0.10456E-07_JPRB,0.15713E-07_JPRB,0.18968E-07_JPRB,0.42296E-09_JPRB /)  
+KB(:, 4,36, 1) = (/ &
+ & 0.26093E-10_JPRB,0.11213E-07_JPRB,0.17153E-07_JPRB,0.20875E-07_JPRB,0.46073E-09_JPRB /)  
+KB(:, 5,36, 1) = (/ &
+ & 0.24812E-10_JPRB,0.11987E-07_JPRB,0.18522E-07_JPRB,0.22899E-07_JPRB,0.49916E-09_JPRB /)  
+KB(:, 1,37, 1) = (/ &
+ & 0.25479E-10_JPRB,0.72338E-08_JPRB,0.10508E-07_JPRB,0.12165E-07_JPRB,0.28268E-09_JPRB /)  
+KB(:, 2,37, 1) = (/ &
+ & 0.24002E-10_JPRB,0.78593E-08_JPRB,0.11594E-07_JPRB,0.13747E-07_JPRB,0.31173E-09_JPRB /)  
+KB(:, 3,37, 1) = (/ &
+ & 0.22687E-10_JPRB,0.84845E-08_JPRB,0.12712E-07_JPRB,0.15315E-07_JPRB,0.34178E-09_JPRB /)  
+KB(:, 4,37, 1) = (/ &
+ & 0.21508E-10_JPRB,0.90997E-08_JPRB,0.13892E-07_JPRB,0.16886E-07_JPRB,0.37260E-09_JPRB /)  
+KB(:, 5,37, 1) = (/ &
+ & 0.20446E-10_JPRB,0.97322E-08_JPRB,0.15012E-07_JPRB,0.18526E-07_JPRB,0.40398E-09_JPRB /)  
+KB(:, 1,38, 1) = (/ &
+ & 0.21041E-10_JPRB,0.58565E-08_JPRB,0.84831E-08_JPRB,0.97892E-08_JPRB,0.22791E-09_JPRB /)  
+KB(:, 2,38, 1) = (/ &
+ & 0.19811E-10_JPRB,0.63636E-08_JPRB,0.93619E-08_JPRB,0.11072E-07_JPRB,0.25148E-09_JPRB /)  
+KB(:, 3,38, 1) = (/ &
+ & 0.18717E-10_JPRB,0.68784E-08_JPRB,0.10276E-07_JPRB,0.12360E-07_JPRB,0.27595E-09_JPRB /)  
+KB(:, 4,38, 1) = (/ &
+ & 0.17738E-10_JPRB,0.73792E-08_JPRB,0.11234E-07_JPRB,0.13638E-07_JPRB,0.30109E-09_JPRB /)  
+KB(:, 5,38, 1) = (/ &
+ & 0.16856E-10_JPRB,0.78971E-08_JPRB,0.12166E-07_JPRB,0.14977E-07_JPRB,0.32671E-09_JPRB /)  
+KB(:, 1,39, 1) = (/ &
+ & 0.17377E-10_JPRB,0.47418E-08_JPRB,0.68561E-08_JPRB,0.78795E-08_JPRB,0.18373E-09_JPRB /)  
+KB(:, 2,39, 1) = (/ &
+ & 0.16353E-10_JPRB,0.51532E-08_JPRB,0.75620E-08_JPRB,0.89128E-08_JPRB,0.20284E-09_JPRB /)  
+KB(:, 3,39, 1) = (/ &
+ & 0.15443E-10_JPRB,0.55752E-08_JPRB,0.83069E-08_JPRB,0.99666E-08_JPRB,0.22279E-09_JPRB /)  
+KB(:, 4,39, 1) = (/ &
+ & 0.14629E-10_JPRB,0.59857E-08_JPRB,0.90872E-08_JPRB,0.11011E-07_JPRB,0.24327E-09_JPRB /)  
+KB(:, 5,39, 1) = (/ &
+ & 0.13896E-10_JPRB,0.64086E-08_JPRB,0.98616E-08_JPRB,0.12104E-07_JPRB,0.26420E-09_JPRB /)  
+KB(:, 1,40, 1) = (/ &
+ & 0.14445E-10_JPRB,0.38091E-08_JPRB,0.54799E-08_JPRB,0.62754E-08_JPRB,0.14679E-09_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART12',1,ZHOOK_HANDLE)
+END SUBROUTINE PART12
+
+
+SUBROUTINE PART13
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART13',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,40, 1) = (/ &
+ & 0.13581E-10_JPRB,0.41391E-08_JPRB,0.60530E-08_JPRB,0.70909E-08_JPRB,0.16220E-09_JPRB /)  
+KB(:, 3,40, 1) = (/ &
+ & 0.12815E-10_JPRB,0.44888E-08_JPRB,0.66555E-08_JPRB,0.79532E-08_JPRB,0.17842E-09_JPRB /)  
+KB(:, 4,40, 1) = (/ &
+ & 0.12131E-10_JPRB,0.48207E-08_JPRB,0.72855E-08_JPRB,0.88071E-08_JPRB,0.19509E-09_JPRB /)  
+KB(:, 5,40, 1) = (/ &
+ & 0.11516E-10_JPRB,0.51646E-08_JPRB,0.79268E-08_JPRB,0.96932E-08_JPRB,0.21214E-09_JPRB /)  
+KB(:, 1,41, 1) = (/ &
+ & 0.12021E-10_JPRB,0.30566E-08_JPRB,0.43606E-08_JPRB,0.49921E-08_JPRB,0.11713E-09_JPRB /)  
+KB(:, 2,41, 1) = (/ &
+ & 0.11291E-10_JPRB,0.33205E-08_JPRB,0.48340E-08_JPRB,0.56256E-08_JPRB,0.12954E-09_JPRB /)  
+KB(:, 3,41, 1) = (/ &
+ & 0.10645E-10_JPRB,0.36053E-08_JPRB,0.53261E-08_JPRB,0.63473E-08_JPRB,0.14269E-09_JPRB /)  
+KB(:, 4,41, 1) = (/ &
+ & 0.10069E-10_JPRB,0.38782E-08_JPRB,0.58347E-08_JPRB,0.70386E-08_JPRB,0.15624E-09_JPRB /)  
+KB(:, 5,41, 1) = (/ &
+ & 0.95520E-11_JPRB,0.41580E-08_JPRB,0.63647E-08_JPRB,0.77515E-08_JPRB,0.17013E-09_JPRB /)  
+KB(:, 1,42, 1) = (/ &
+ & 0.10007E-10_JPRB,0.24516E-08_JPRB,0.34653E-08_JPRB,0.39398E-08_JPRB,0.93475E-10_JPRB /)  
+KB(:, 2,42, 1) = (/ &
+ & 0.93902E-11_JPRB,0.26631E-08_JPRB,0.38588E-08_JPRB,0.44635E-08_JPRB,0.10342E-09_JPRB /)  
+KB(:, 3,42, 1) = (/ &
+ & 0.88449E-11_JPRB,0.28926E-08_JPRB,0.42600E-08_JPRB,0.50466E-08_JPRB,0.11406E-09_JPRB /)  
+KB(:, 4,42, 1) = (/ &
+ & 0.83594E-11_JPRB,0.31198E-08_JPRB,0.46719E-08_JPRB,0.56218E-08_JPRB,0.12507E-09_JPRB /)  
+KB(:, 5,42, 1) = (/ &
+ & 0.79244E-11_JPRB,0.33465E-08_JPRB,0.51065E-08_JPRB,0.61999E-08_JPRB,0.13640E-09_JPRB /)  
+KB(:, 1,43, 1) = (/ &
+ & 0.83647E-11_JPRB,0.19578E-08_JPRB,0.27341E-08_JPRB,0.30827E-08_JPRB,0.74277E-10_JPRB /)  
+KB(:, 2,43, 1) = (/ &
+ & 0.78389E-11_JPRB,0.21263E-08_JPRB,0.30690E-08_JPRB,0.35212E-08_JPRB,0.82118E-10_JPRB /)  
+KB(:, 3,43, 1) = (/ &
+ & 0.73752E-11_JPRB,0.23103E-08_JPRB,0.33865E-08_JPRB,0.39836E-08_JPRB,0.90672E-10_JPRB /)  
+KB(:, 4,43, 1) = (/ &
+ & 0.69633E-11_JPRB,0.24984E-08_JPRB,0.37198E-08_JPRB,0.44569E-08_JPRB,0.99628E-10_JPRB /)  
+KB(:, 5,43, 1) = (/ &
+ & 0.65950E-11_JPRB,0.26833E-08_JPRB,0.40709E-08_JPRB,0.49265E-08_JPRB,0.10883E-09_JPRB /)  
+KB(:, 1,44, 1) = (/ &
+ & 0.70070E-11_JPRB,0.15628E-08_JPRB,0.21521E-08_JPRB,0.24017E-08_JPRB,0.59116E-10_JPRB /)  
+KB(:, 2,44, 1) = (/ &
+ & 0.65570E-11_JPRB,0.16954E-08_JPRB,0.24254E-08_JPRB,0.27772E-08_JPRB,0.65027E-10_JPRB /)  
+KB(:, 3,44, 1) = (/ &
+ & 0.61612E-11_JPRB,0.18413E-08_JPRB,0.26845E-08_JPRB,0.31310E-08_JPRB,0.71892E-10_JPRB /)  
+KB(:, 4,44, 1) = (/ &
+ & 0.58106E-11_JPRB,0.19977E-08_JPRB,0.29542E-08_JPRB,0.35211E-08_JPRB,0.79144E-10_JPRB /)  
+KB(:, 5,44, 1) = (/ &
+ & 0.54976E-11_JPRB,0.21464E-08_JPRB,0.32360E-08_JPRB,0.39045E-08_JPRB,0.86629E-10_JPRB /)  
+KB(:, 1,45, 1) = (/ &
+ & 0.58728E-11_JPRB,0.12500E-08_JPRB,0.17079E-08_JPRB,0.18743E-08_JPRB,0.46646E-10_JPRB /)  
+KB(:, 2,45, 1) = (/ &
+ & 0.54873E-11_JPRB,0.13505E-08_JPRB,0.19105E-08_JPRB,0.21719E-08_JPRB,0.51499E-10_JPRB /)  
+KB(:, 3,45, 1) = (/ &
+ & 0.51492E-11_JPRB,0.14670E-08_JPRB,0.21250E-08_JPRB,0.24590E-08_JPRB,0.56982E-10_JPRB /)  
+KB(:, 4,45, 1) = (/ &
+ & 0.48504E-11_JPRB,0.15931E-08_JPRB,0.23464E-08_JPRB,0.27802E-08_JPRB,0.62839E-10_JPRB /)  
+KB(:, 5,45, 1) = (/ &
+ & 0.45844E-11_JPRB,0.17167E-08_JPRB,0.25731E-08_JPRB,0.30954E-08_JPRB,0.68908E-10_JPRB /)  
+KB(:, 1,46, 1) = (/ &
+ & 0.49328E-11_JPRB,0.99811E-09_JPRB,0.13397E-08_JPRB,0.14457E-08_JPRB,0.36694E-10_JPRB /)  
+KB(:, 2,46, 1) = (/ &
+ & 0.46012E-11_JPRB,0.10742E-08_JPRB,0.14986E-08_JPRB,0.16875E-08_JPRB,0.40742E-10_JPRB /)  
+KB(:, 3,46, 1) = (/ &
+ & 0.43113E-11_JPRB,0.11665E-08_JPRB,0.16813E-08_JPRB,0.19281E-08_JPRB,0.45049E-10_JPRB /)  
+KB(:, 4,46, 1) = (/ &
+ & 0.40558E-11_JPRB,0.12673E-08_JPRB,0.18567E-08_JPRB,0.21817E-08_JPRB,0.49751E-10_JPRB /)  
+KB(:, 5,46, 1) = (/ &
+ & 0.38288E-11_JPRB,0.13702E-08_JPRB,0.20399E-08_JPRB,0.24419E-08_JPRB,0.54679E-10_JPRB /)  
+KB(:, 1,47, 1) = (/ &
+ & 0.41592E-11_JPRB,0.79205E-09_JPRB,0.10438E-08_JPRB,0.11055E-08_JPRB,0.28709E-10_JPRB /)  
+KB(:, 2,47, 1) = (/ &
+ & 0.38717E-11_JPRB,0.85357E-09_JPRB,0.11710E-08_JPRB,0.13015E-08_JPRB,0.32198E-10_JPRB /)  
+KB(:, 3,47, 1) = (/ &
+ & 0.36215E-11_JPRB,0.92515E-09_JPRB,0.13196E-08_JPRB,0.15103E-08_JPRB,0.35448E-10_JPRB /)  
+KB(:, 4,47, 1) = (/ &
+ & 0.34016E-11_JPRB,0.10046E-08_JPRB,0.14619E-08_JPRB,0.17010E-08_JPRB,0.39203E-10_JPRB /)  
+KB(:, 5,47, 1) = (/ &
+ & 0.32069E-11_JPRB,0.10904E-08_JPRB,0.16100E-08_JPRB,0.19168E-08_JPRB,0.43187E-10_JPRB /)  
+KB(:, 1,48, 1) = (/ &
+ & 0.35100E-11_JPRB,0.62849E-09_JPRB,0.81319E-09_JPRB,0.84567E-09_JPRB,0.22456E-10_JPRB /)  
+KB(:, 2,48, 1) = (/ &
+ & 0.32605E-11_JPRB,0.68021E-09_JPRB,0.92169E-09_JPRB,0.10040E-08_JPRB,0.25229E-10_JPRB /)  
+KB(:, 3,48, 1) = (/ &
+ & 0.30441E-11_JPRB,0.73294E-09_JPRB,0.10314E-08_JPRB,0.11665E-08_JPRB,0.27903E-10_JPRB /)  
+KB(:, 4,48, 1) = (/ &
+ & 0.28547E-11_JPRB,0.79615E-09_JPRB,0.11495E-08_JPRB,0.13251E-08_JPRB,0.30879E-10_JPRB /)  
+KB(:, 5,48, 1) = (/ &
+ & 0.26874E-11_JPRB,0.86463E-09_JPRB,0.12703E-08_JPRB,0.14994E-08_JPRB,0.34082E-10_JPRB /)  
+KB(:, 1,49, 1) = (/ &
+ & 0.29649E-11_JPRB,0.49867E-09_JPRB,0.63572E-09_JPRB,0.64557E-09_JPRB,0.17554E-10_JPRB /)  
+KB(:, 2,49, 1) = (/ &
+ & 0.27480E-11_JPRB,0.54124E-09_JPRB,0.71871E-09_JPRB,0.76840E-09_JPRB,0.19749E-10_JPRB /)  
+KB(:, 3,49, 1) = (/ &
+ & 0.25606E-11_JPRB,0.58140E-09_JPRB,0.80413E-09_JPRB,0.90054E-09_JPRB,0.22012E-10_JPRB /)  
+KB(:, 4,49, 1) = (/ &
+ & 0.23972E-11_JPRB,0.63097E-09_JPRB,0.90637E-09_JPRB,0.10349E-08_JPRB,0.24308E-10_JPRB /)  
+KB(:, 5,49, 1) = (/ &
+ & 0.22534E-11_JPRB,0.68545E-09_JPRB,0.10006E-08_JPRB,0.11704E-08_JPRB,0.26872E-10_JPRB /)  
+KB(:, 1,50, 1) = (/ &
+ & 0.25019E-11_JPRB,0.39853E-09_JPRB,0.49374E-09_JPRB,0.49615E-09_JPRB,0.13762E-10_JPRB /)  
+KB(:, 2,50, 1) = (/ &
+ & 0.23136E-11_JPRB,0.42952E-09_JPRB,0.56141E-09_JPRB,0.58980E-09_JPRB,0.15500E-10_JPRB /)  
+KB(:, 3,50, 1) = (/ &
+ & 0.21517E-11_JPRB,0.46334E-09_JPRB,0.63284E-09_JPRB,0.69788E-09_JPRB,0.17390E-10_JPRB /)  
+KB(:, 4,50, 1) = (/ &
+ & 0.20110E-11_JPRB,0.50130E-09_JPRB,0.71124E-09_JPRB,0.80903E-09_JPRB,0.19184E-10_JPRB /)  
+KB(:, 5,50, 1) = (/ &
+ & 0.18875E-11_JPRB,0.54446E-09_JPRB,0.78908E-09_JPRB,0.91435E-09_JPRB,0.21230E-10_JPRB /)  
+KB(:, 1,51, 1) = (/ &
+ & 0.21111E-11_JPRB,0.31534E-09_JPRB,0.38552E-09_JPRB,0.38324E-09_JPRB,0.10851E-10_JPRB /)  
+KB(:, 2,51, 1) = (/ &
+ & 0.19478E-11_JPRB,0.34179E-09_JPRB,0.43986E-09_JPRB,0.45355E-09_JPRB,0.12176E-10_JPRB /)  
+KB(:, 3,51, 1) = (/ &
+ & 0.18079E-11_JPRB,0.37016E-09_JPRB,0.49835E-09_JPRB,0.53919E-09_JPRB,0.13683E-10_JPRB /)  
+KB(:, 4,51, 1) = (/ &
+ & 0.16868E-11_JPRB,0.39846E-09_JPRB,0.55746E-09_JPRB,0.62805E-09_JPRB,0.15164E-10_JPRB /)  
+KB(:, 5,51, 1) = (/ &
+ & 0.15809E-11_JPRB,0.43272E-09_JPRB,0.62310E-09_JPRB,0.71587E-09_JPRB,0.16785E-10_JPRB /)  
+KB(:, 1,52, 1) = (/ &
+ & 0.17830E-11_JPRB,0.24939E-09_JPRB,0.30033E-09_JPRB,0.29708E-09_JPRB,0.85480E-11_JPRB /)  
+KB(:, 2,52, 1) = (/ &
+ & 0.16410E-11_JPRB,0.27244E-09_JPRB,0.34467E-09_JPRB,0.34870E-09_JPRB,0.95642E-11_JPRB /)  
+KB(:, 3,52, 1) = (/ &
+ & 0.15200E-11_JPRB,0.29507E-09_JPRB,0.39020E-09_JPRB,0.41505E-09_JPRB,0.10764E-10_JPRB /)  
+KB(:, 4,52, 1) = (/ &
+ & 0.14156E-11_JPRB,0.31736E-09_JPRB,0.43693E-09_JPRB,0.48758E-09_JPRB,0.12016E-10_JPRB /)  
+KB(:, 5,52, 1) = (/ &
+ & 0.13246E-11_JPRB,0.34409E-09_JPRB,0.49243E-09_JPRB,0.56181E-09_JPRB,0.13267E-10_JPRB /)  
+KB(:, 1,53, 1) = (/ &
+ & 0.15074E-11_JPRB,0.19746E-09_JPRB,0.23442E-09_JPRB,0.23027E-09_JPRB,0.66942E-11_JPRB /)  
+KB(:, 2,53, 1) = (/ &
+ & 0.13838E-11_JPRB,0.21754E-09_JPRB,0.26812E-09_JPRB,0.26865E-09_JPRB,0.75095E-11_JPRB /)  
+KB(:, 3,53, 1) = (/ &
+ & 0.12789E-11_JPRB,0.23445E-09_JPRB,0.30510E-09_JPRB,0.31916E-09_JPRB,0.84626E-11_JPRB /)  
+KB(:, 4,53, 1) = (/ &
+ & 0.11888E-11_JPRB,0.25305E-09_JPRB,0.34496E-09_JPRB,0.37906E-09_JPRB,0.94963E-11_JPRB /)  
+KB(:, 5,53, 1) = (/ &
+ & 0.11106E-11_JPRB,0.27355E-09_JPRB,0.38680E-09_JPRB,0.43882E-09_JPRB,0.10486E-10_JPRB /)  
+KB(:, 1,54, 1) = (/ &
+ & 0.12722E-11_JPRB,0.15676E-09_JPRB,0.18436E-09_JPRB,0.18188E-09_JPRB,0.52601E-11_JPRB /)  
+KB(:, 2,54, 1) = (/ &
+ & 0.11649E-11_JPRB,0.17256E-09_JPRB,0.21030E-09_JPRB,0.20876E-09_JPRB,0.59465E-11_JPRB /)  
+KB(:, 3,54, 1) = (/ &
+ & 0.10743E-11_JPRB,0.18706E-09_JPRB,0.24022E-09_JPRB,0.24657E-09_JPRB,0.66750E-11_JPRB /)  
+KB(:, 4,54, 1) = (/ &
+ & 0.99683E-12_JPRB,0.20263E-09_JPRB,0.27206E-09_JPRB,0.29337E-09_JPRB,0.75016E-11_JPRB /)  
+KB(:, 5,54, 1) = (/ &
+ & 0.92975E-12_JPRB,0.21798E-09_JPRB,0.30420E-09_JPRB,0.34203E-09_JPRB,0.83182E-11_JPRB /)  
+KB(:, 1,55, 1) = (/ &
+ & 0.10733E-11_JPRB,0.12552E-09_JPRB,0.14668E-09_JPRB,0.14477E-09_JPRB,0.41440E-11_JPRB /)  
+KB(:, 2,55, 1) = (/ &
+ & 0.98027E-12_JPRB,0.13705E-09_JPRB,0.16480E-09_JPRB,0.16298E-09_JPRB,0.47137E-11_JPRB /)  
+KB(:, 3,55, 1) = (/ &
+ & 0.90209E-12_JPRB,0.14966E-09_JPRB,0.18911E-09_JPRB,0.19117E-09_JPRB,0.52730E-11_JPRB /)  
+KB(:, 4,55, 1) = (/ &
+ & 0.83546E-12_JPRB,0.16210E-09_JPRB,0.21410E-09_JPRB,0.22758E-09_JPRB,0.59349E-11_JPRB /)  
+KB(:, 5,55, 1) = (/ &
+ & 0.77800E-12_JPRB,0.17423E-09_JPRB,0.23972E-09_JPRB,0.26725E-09_JPRB,0.66163E-11_JPRB /)  
+KB(:, 1,56, 1) = (/ &
+ & 0.90624E-12_JPRB,0.99786E-10_JPRB,0.11674E-09_JPRB,0.11286E-09_JPRB,0.32776E-11_JPRB /)  
+KB(:, 2,56, 1) = (/ &
+ & 0.82547E-12_JPRB,0.10897E-09_JPRB,0.12938E-09_JPRB,0.12705E-09_JPRB,0.37161E-11_JPRB /)  
+KB(:, 3,56, 1) = (/ &
+ & 0.75791E-12_JPRB,0.12009E-09_JPRB,0.14804E-09_JPRB,0.14827E-09_JPRB,0.41646E-11_JPRB /)  
+KB(:, 4,56, 1) = (/ &
+ & 0.70058E-12_JPRB,0.12925E-09_JPRB,0.16837E-09_JPRB,0.17630E-09_JPRB,0.46957E-11_JPRB /)  
+KB(:, 5,56, 1) = (/ &
+ & 0.65131E-12_JPRB,0.13937E-09_JPRB,0.18999E-09_JPRB,0.20899E-09_JPRB,0.52742E-11_JPRB /)  
+KB(:, 1,57, 1) = (/ &
+ & 0.76595E-12_JPRB,0.78822E-10_JPRB,0.93863E-10_JPRB,0.87529E-10_JPRB,0.26033E-11_JPRB /)  
+KB(:, 2,57, 1) = (/ &
+ & 0.69568E-12_JPRB,0.86555E-10_JPRB,0.10190E-09_JPRB,0.10022E-09_JPRB,0.29288E-11_JPRB /)  
+KB(:, 3,57, 1) = (/ &
+ & 0.63721E-12_JPRB,0.95385E-10_JPRB,0.11640E-09_JPRB,0.11533E-09_JPRB,0.32994E-11_JPRB /)  
+KB(:, 4,57, 1) = (/ &
+ & 0.58782E-12_JPRB,0.10325E-09_JPRB,0.13264E-09_JPRB,0.13663E-09_JPRB,0.37186E-11_JPRB /)  
+KB(:, 5,57, 1) = (/ &
+ & 0.54552E-12_JPRB,0.11173E-09_JPRB,0.15042E-09_JPRB,0.16253E-09_JPRB,0.41819E-11_JPRB /)  
+KB(:, 1,58, 1) = (/ &
+ & 0.64693E-12_JPRB,0.62421E-10_JPRB,0.76174E-10_JPRB,0.68324E-10_JPRB,0.20833E-11_JPRB /)  
+KB(:, 2,58, 1) = (/ &
+ & 0.58588E-12_JPRB,0.69278E-10_JPRB,0.81197E-10_JPRB,0.79691E-10_JPRB,0.23130E-11_JPRB /)  
+KB(:, 3,58, 1) = (/ &
+ & 0.53535E-12_JPRB,0.75873E-10_JPRB,0.91414E-10_JPRB,0.90398E-10_JPRB,0.26350E-11_JPRB /)  
+KB(:, 4,58, 1) = (/ &
+ & 0.49285E-12_JPRB,0.82653E-10_JPRB,0.10493E-09_JPRB,0.10617E-09_JPRB,0.29473E-11_JPRB /)  
+KB(:, 5,58, 1) = (/ &
+ & 0.45660E-12_JPRB,0.89643E-10_JPRB,0.11861E-09_JPRB,0.12647E-09_JPRB,0.33231E-11_JPRB /)  
+KB(:, 1,59, 1) = (/ &
+ & 0.53645E-12_JPRB,0.50557E-10_JPRB,0.62240E-10_JPRB,0.54854E-10_JPRB,0.16930E-11_JPRB /)  
+KB(:, 2,59, 1) = (/ &
+ & 0.48523E-12_JPRB,0.56468E-10_JPRB,0.65604E-10_JPRB,0.64827E-10_JPRB,0.18702E-11_JPRB /)  
+KB(:, 3,59, 1) = (/ &
+ & 0.44294E-12_JPRB,0.61442E-10_JPRB,0.73667E-10_JPRB,0.72688E-10_JPRB,0.21292E-11_JPRB /)  
+KB(:, 4,59, 1) = (/ &
+ & 0.40744E-12_JPRB,0.67184E-10_JPRB,0.84490E-10_JPRB,0.85217E-10_JPRB,0.23832E-11_JPRB /)  
+KB(:, 5,59, 1) = (/ &
+ & 0.37720E-12_JPRB,0.72657E-10_JPRB,0.95692E-10_JPRB,0.10144E-09_JPRB,0.26852E-11_JPRB /)  
+KB(:, 1,13, 2) = (/ &
+ & 0.18323E-07_JPRB,0.86266E-05_JPRB,0.13728E-04_JPRB,0.15952E-04_JPRB,0.78927E-06_JPRB /)  
+KB(:, 2,13, 2) = (/ &
+ & 0.16961E-07_JPRB,0.96203E-05_JPRB,0.15275E-04_JPRB,0.17863E-04_JPRB,0.93659E-06_JPRB /)  
+KB(:, 3,13, 2) = (/ &
+ & 0.15787E-07_JPRB,0.10675E-04_JPRB,0.16924E-04_JPRB,0.19675E-04_JPRB,0.11050E-05_JPRB /)  
+KB(:, 4,13, 2) = (/ &
+ & 0.14764E-07_JPRB,0.11779E-04_JPRB,0.18474E-04_JPRB,0.21320E-04_JPRB,0.12868E-05_JPRB /)  
+KB(:, 5,13, 2) = (/ &
+ & 0.13865E-07_JPRB,0.12843E-04_JPRB,0.20029E-04_JPRB,0.23080E-04_JPRB,0.14565E-05_JPRB /)  
+KB(:, 1,14, 2) = (/ &
+ & 0.14893E-07_JPRB,0.71882E-05_JPRB,0.11443E-04_JPRB,0.13271E-04_JPRB,0.65835E-06_JPRB /)  
+KB(:, 2,14, 2) = (/ &
+ & 0.13793E-07_JPRB,0.80276E-05_JPRB,0.12732E-04_JPRB,0.14890E-04_JPRB,0.78132E-06_JPRB /)  
+KB(:, 3,14, 2) = (/ &
+ & 0.12844E-07_JPRB,0.89189E-05_JPRB,0.14101E-04_JPRB,0.16339E-04_JPRB,0.92233E-06_JPRB /)  
+KB(:, 4,14, 2) = (/ &
+ & 0.12017E-07_JPRB,0.98309E-05_JPRB,0.15384E-04_JPRB,0.17721E-04_JPRB,0.10676E-05_JPRB /)  
+KB(:, 5,14, 2) = (/ &
+ & 0.11289E-07_JPRB,0.10704E-04_JPRB,0.16679E-04_JPRB,0.19194E-04_JPRB,0.12091E-05_JPRB /)  
+KB(:, 1,15, 2) = (/ &
+ & 0.12096E-07_JPRB,0.59934E-05_JPRB,0.95449E-05_JPRB,0.11058E-04_JPRB,0.54969E-06_JPRB /)  
+KB(:, 2,15, 2) = (/ &
+ & 0.11209E-07_JPRB,0.66932E-05_JPRB,0.10623E-04_JPRB,0.12407E-04_JPRB,0.65197E-06_JPRB /)  
+KB(:, 3,15, 2) = (/ &
+ & 0.10443E-07_JPRB,0.74449E-05_JPRB,0.11746E-04_JPRB,0.13571E-04_JPRB,0.76940E-06_JPRB /)  
+KB(:, 4,15, 2) = (/ &
+ & 0.97747E-08_JPRB,0.81948E-05_JPRB,0.12814E-04_JPRB,0.14732E-04_JPRB,0.88496E-06_JPRB /)  
+KB(:, 5,15, 2) = (/ &
+ & 0.91864E-08_JPRB,0.89188E-05_JPRB,0.13883E-04_JPRB,0.15946E-04_JPRB,0.10023E-05_JPRB /)  
+KB(:, 1,16, 2) = (/ &
+ & 0.98205E-08_JPRB,0.50027E-05_JPRB,0.79644E-05_JPRB,0.92248E-05_JPRB,0.45876E-06_JPRB /)  
+KB(:, 2,16, 2) = (/ &
+ & 0.91061E-08_JPRB,0.55846E-05_JPRB,0.88593E-05_JPRB,0.10331E-04_JPRB,0.54334E-06_JPRB /)  
+KB(:, 3,16, 2) = (/ &
+ & 0.84882E-08_JPRB,0.62183E-05_JPRB,0.97757E-05_JPRB,0.11279E-04_JPRB,0.64050E-06_JPRB /)  
+KB(:, 4,16, 2) = (/ &
+ & 0.79486E-08_JPRB,0.68276E-05_JPRB,0.10664E-04_JPRB,0.12244E-04_JPRB,0.73344E-06_JPRB /)  
+KB(:, 5,16, 2) = (/ &
+ & 0.74732E-08_JPRB,0.74268E-05_JPRB,0.11545E-04_JPRB,0.13224E-04_JPRB,0.82955E-06_JPRB /)  
+KB(:, 1,17, 2) = (/ &
+ & 0.79753E-08_JPRB,0.41713E-05_JPRB,0.66153E-05_JPRB,0.76892E-05_JPRB,0.38247E-06_JPRB /)  
+KB(:, 2,17, 2) = (/ &
+ & 0.73994E-08_JPRB,0.46562E-05_JPRB,0.73753E-05_JPRB,0.85922E-05_JPRB,0.45188E-06_JPRB /)  
+KB(:, 3,17, 2) = (/ &
+ & 0.69008E-08_JPRB,0.51829E-05_JPRB,0.81280E-05_JPRB,0.93638E-05_JPRB,0.53211E-06_JPRB /)  
+KB(:, 4,17, 2) = (/ &
+ & 0.64650E-08_JPRB,0.56765E-05_JPRB,0.88560E-05_JPRB,0.10168E-04_JPRB,0.60647E-06_JPRB /)  
+KB(:, 5,17, 2) = (/ &
+ & 0.60807E-08_JPRB,0.61758E-05_JPRB,0.95894E-05_JPRB,0.10949E-04_JPRB,0.68549E-06_JPRB /)  
+KB(:, 1,18, 2) = (/ &
+ & 0.64779E-08_JPRB,0.34727E-05_JPRB,0.54875E-05_JPRB,0.64000E-05_JPRB,0.31851E-06_JPRB /)  
+KB(:, 2,18, 2) = (/ &
+ & 0.60135E-08_JPRB,0.38751E-05_JPRB,0.61308E-05_JPRB,0.71372E-05_JPRB,0.37552E-06_JPRB /)  
+KB(:, 3,18, 2) = (/ &
+ & 0.56111E-08_JPRB,0.43132E-05_JPRB,0.67478E-05_JPRB,0.77698E-05_JPRB,0.44141E-06_JPRB /)  
+KB(:, 4,18, 2) = (/ &
+ & 0.52590E-08_JPRB,0.47150E-05_JPRB,0.73444E-05_JPRB,0.84370E-05_JPRB,0.50075E-06_JPRB /)  
+KB(:, 5,18, 2) = (/ &
+ & 0.49483E-08_JPRB,0.51345E-05_JPRB,0.79495E-05_JPRB,0.90637E-05_JPRB,0.56601E-06_JPRB /)  
+KB(:, 1,19, 2) = (/ &
+ & 0.52627E-08_JPRB,0.28908E-05_JPRB,0.45586E-05_JPRB,0.53260E-05_JPRB,0.26516E-06_JPRB /)  
+KB(:, 2,19, 2) = (/ &
+ & 0.48882E-08_JPRB,0.32260E-05_JPRB,0.50940E-05_JPRB,0.59200E-05_JPRB,0.31190E-06_JPRB /)  
+KB(:, 3,19, 2) = (/ &
+ & 0.45632E-08_JPRB,0.35843E-05_JPRB,0.55992E-05_JPRB,0.64397E-05_JPRB,0.36608E-06_JPRB /)  
+KB(:, 4,19, 2) = (/ &
+ & 0.42786E-08_JPRB,0.39167E-05_JPRB,0.60923E-05_JPRB,0.69972E-05_JPRB,0.41361E-06_JPRB /)  
+KB(:, 5,19, 2) = (/ &
+ & 0.40273E-08_JPRB,0.42667E-05_JPRB,0.65904E-05_JPRB,0.75021E-05_JPRB,0.46741E-06_JPRB /)  
+KB(:, 1,20, 2) = (/ &
+ & 0.42704E-08_JPRB,0.24074E-05_JPRB,0.37990E-05_JPRB,0.44458E-05_JPRB,0.22103E-06_JPRB /)  
+KB(:, 2,20, 2) = (/ &
+ & 0.39690E-08_JPRB,0.26942E-05_JPRB,0.42393E-05_JPRB,0.49120E-05_JPRB,0.26014E-06_JPRB /)  
+KB(:, 3,20, 2) = (/ &
+ & 0.37071E-08_JPRB,0.29827E-05_JPRB,0.46574E-05_JPRB,0.53487E-05_JPRB,0.30416E-06_JPRB /)  
+KB(:, 4,20, 2) = (/ &
+ & 0.34776E-08_JPRB,0.32601E-05_JPRB,0.50635E-05_JPRB,0.58076E-05_JPRB,0.34304E-06_JPRB /)  
+KB(:, 5,20, 2) = (/ &
+ & 0.32747E-08_JPRB,0.35518E-05_JPRB,0.54700E-05_JPRB,0.62197E-05_JPRB,0.38752E-06_JPRB /)  
+KB(:, 1,21, 2) = (/ &
+ & 0.34649E-08_JPRB,0.20096E-05_JPRB,0.31689E-05_JPRB,0.37070E-05_JPRB,0.18424E-06_JPRB /)  
+KB(:, 2,21, 2) = (/ &
+ & 0.32224E-08_JPRB,0.22503E-05_JPRB,0.35271E-05_JPRB,0.40784E-05_JPRB,0.21705E-06_JPRB /)  
+KB(:, 3,21, 2) = (/ &
+ & 0.30114E-08_JPRB,0.24834E-05_JPRB,0.38737E-05_JPRB,0.44436E-05_JPRB,0.25229E-06_JPRB /)  
+KB(:, 4,21, 2) = (/ &
+ & 0.28263E-08_JPRB,0.27149E-05_JPRB,0.42083E-05_JPRB,0.48061E-05_JPRB,0.28464E-06_JPRB /)  
+KB(:, 5,21, 2) = (/ &
+ & 0.26626E-08_JPRB,0.29556E-05_JPRB,0.45394E-05_JPRB,0.51565E-05_JPRB,0.32148E-06_JPRB /)  
+KB(:, 1,22, 2) = (/ &
+ & 0.27976E-08_JPRB,0.16913E-05_JPRB,0.26632E-05_JPRB,0.31108E-05_JPRB,0.15537E-06_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART13',1,ZHOOK_HANDLE)
+END SUBROUTINE PART13
+
+
+SUBROUTINE PART14
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART14',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,22, 2) = (/ &
+ & 0.26043E-08_JPRB,0.18908E-05_JPRB,0.29553E-05_JPRB,0.34067E-05_JPRB,0.18311E-06_JPRB /)  
+KB(:, 3,22, 2) = (/ &
+ & 0.24359E-08_JPRB,0.20811E-05_JPRB,0.32390E-05_JPRB,0.37110E-05_JPRB,0.21094E-06_JPRB /)  
+KB(:, 4,22, 2) = (/ &
+ & 0.22878E-08_JPRB,0.22746E-05_JPRB,0.35144E-05_JPRB,0.40009E-05_JPRB,0.23816E-06_JPRB /)  
+KB(:, 5,22, 2) = (/ &
+ & 0.21567E-08_JPRB,0.24714E-05_JPRB,0.37839E-05_JPRB,0.42910E-05_JPRB,0.26886E-06_JPRB /)  
+KB(:, 1,23, 2) = (/ &
+ & 0.22583E-08_JPRB,0.14234E-05_JPRB,0.22388E-05_JPRB,0.26088E-05_JPRB,0.13143E-06_JPRB /)  
+KB(:, 2,23, 2) = (/ &
+ & 0.21043E-08_JPRB,0.15864E-05_JPRB,0.24776E-05_JPRB,0.28493E-05_JPRB,0.15460E-06_JPRB /)  
+KB(:, 3,23, 2) = (/ &
+ & 0.19699E-08_JPRB,0.17436E-05_JPRB,0.27072E-05_JPRB,0.31009E-05_JPRB,0.17669E-06_JPRB /)  
+KB(:, 4,23, 2) = (/ &
+ & 0.18515E-08_JPRB,0.19057E-05_JPRB,0.29355E-05_JPRB,0.33308E-05_JPRB,0.19953E-06_JPRB /)  
+KB(:, 5,23, 2) = (/ &
+ & 0.17465E-08_JPRB,0.20653E-05_JPRB,0.31542E-05_JPRB,0.35663E-05_JPRB,0.22501E-06_JPRB /)  
+KB(:, 1,24, 2) = (/ &
+ & 0.18221E-08_JPRB,0.12001E-05_JPRB,0.18808E-05_JPRB,0.21868E-05_JPRB,0.11138E-06_JPRB /)  
+KB(:, 2,24, 2) = (/ &
+ & 0.16995E-08_JPRB,0.13315E-05_JPRB,0.20779E-05_JPRB,0.23825E-05_JPRB,0.13068E-06_JPRB /)  
+KB(:, 3,24, 2) = (/ &
+ & 0.15923E-08_JPRB,0.14625E-05_JPRB,0.22647E-05_JPRB,0.25884E-05_JPRB,0.14820E-06_JPRB /)  
+KB(:, 4,24, 2) = (/ &
+ & 0.14978E-08_JPRB,0.15972E-05_JPRB,0.24512E-05_JPRB,0.27771E-05_JPRB,0.16734E-06_JPRB /)  
+KB(:, 5,24, 2) = (/ &
+ & 0.14138E-08_JPRB,0.17254E-05_JPRB,0.26296E-05_JPRB,0.29649E-05_JPRB,0.18848E-06_JPRB /)  
+KB(:, 1,25, 2) = (/ &
+ & 0.14693E-08_JPRB,0.10111E-05_JPRB,0.15809E-05_JPRB,0.18286E-05_JPRB,0.94366E-07_JPRB /)  
+KB(:, 2,25, 2) = (/ &
+ & 0.13718E-08_JPRB,0.11199E-05_JPRB,0.17430E-05_JPRB,0.19952E-05_JPRB,0.11045E-06_JPRB /)  
+KB(:, 3,25, 2) = (/ &
+ & 0.12864E-08_JPRB,0.12273E-05_JPRB,0.18957E-05_JPRB,0.21572E-05_JPRB,0.12445E-06_JPRB /)  
+KB(:, 4,25, 2) = (/ &
+ & 0.12110E-08_JPRB,0.13373E-05_JPRB,0.20462E-05_JPRB,0.23162E-05_JPRB,0.14042E-06_JPRB /)  
+KB(:, 5,25, 2) = (/ &
+ & 0.11438E-08_JPRB,0.14410E-05_JPRB,0.21916E-05_JPRB,0.24648E-05_JPRB,0.15767E-06_JPRB /)  
+KB(:, 1,26, 2) = (/ &
+ & 0.11834E-08_JPRB,0.85331E-06_JPRB,0.13316E-05_JPRB,0.15329E-05_JPRB,0.80212E-07_JPRB /)  
+KB(:, 2,26, 2) = (/ &
+ & 0.11061E-08_JPRB,0.94192E-06_JPRB,0.14626E-05_JPRB,0.16729E-05_JPRB,0.92775E-07_JPRB /)  
+KB(:, 3,26, 2) = (/ &
+ & 0.10382E-08_JPRB,0.10317E-05_JPRB,0.15890E-05_JPRB,0.18006E-05_JPRB,0.10462E-06_JPRB /)  
+KB(:, 4,26, 2) = (/ &
+ & 0.97810E-09_JPRB,0.11205E-05_JPRB,0.17099E-05_JPRB,0.19314E-05_JPRB,0.11800E-06_JPRB /)  
+KB(:, 5,26, 2) = (/ &
+ & 0.92457E-09_JPRB,0.12034E-05_JPRB,0.18276E-05_JPRB,0.20504E-05_JPRB,0.13209E-06_JPRB /)  
+KB(:, 1,27, 2) = (/ &
+ & 0.95311E-09_JPRB,0.71890E-06_JPRB,0.11218E-05_JPRB,0.12867E-05_JPRB,0.68084E-07_JPRB /)  
+KB(:, 2,27, 2) = (/ &
+ & 0.89177E-09_JPRB,0.79258E-06_JPRB,0.12275E-05_JPRB,0.14019E-05_JPRB,0.77999E-07_JPRB /)  
+KB(:, 3,27, 2) = (/ &
+ & 0.83781E-09_JPRB,0.86605E-06_JPRB,0.13308E-05_JPRB,0.15040E-05_JPRB,0.88027E-07_JPRB /)  
+KB(:, 4,27, 2) = (/ &
+ & 0.78998E-09_JPRB,0.93815E-06_JPRB,0.14285E-05_JPRB,0.16091E-05_JPRB,0.99057E-07_JPRB /)  
+KB(:, 5,27, 2) = (/ &
+ & 0.74729E-09_JPRB,0.10046E-05_JPRB,0.15236E-05_JPRB,0.17059E-05_JPRB,0.11074E-06_JPRB /)  
+KB(:, 1,28, 2) = (/ &
+ & 0.76771E-09_JPRB,0.60623E-06_JPRB,0.94427E-06_JPRB,0.10796E-05_JPRB,0.57844E-07_JPRB /)  
+KB(:, 2,28, 2) = (/ &
+ & 0.71904E-09_JPRB,0.66653E-06_JPRB,0.10298E-05_JPRB,0.11699E-05_JPRB,0.65726E-07_JPRB /)  
+KB(:, 3,28, 2) = (/ &
+ & 0.67614E-09_JPRB,0.72689E-06_JPRB,0.11131E-05_JPRB,0.12568E-05_JPRB,0.74009E-07_JPRB /)  
+KB(:, 4,28, 2) = (/ &
+ & 0.63806E-09_JPRB,0.78482E-06_JPRB,0.11927E-05_JPRB,0.13406E-05_JPRB,0.83200E-07_JPRB /)  
+KB(:, 5,28, 2) = (/ &
+ & 0.60401E-09_JPRB,0.83806E-06_JPRB,0.12695E-05_JPRB,0.14186E-05_JPRB,0.92306E-07_JPRB /)  
+KB(:, 1,29, 2) = (/ &
+ & 0.61817E-09_JPRB,0.51053E-06_JPRB,0.79450E-06_JPRB,0.90687E-06_JPRB,0.49078E-07_JPRB /)  
+KB(:, 2,29, 2) = (/ &
+ & 0.57958E-09_JPRB,0.56071E-06_JPRB,0.86403E-06_JPRB,0.97690E-06_JPRB,0.55257E-07_JPRB /)  
+KB(:, 3,29, 2) = (/ &
+ & 0.54551E-09_JPRB,0.61009E-06_JPRB,0.93077E-06_JPRB,0.10495E-05_JPRB,0.62286E-07_JPRB /)  
+KB(:, 4,29, 2) = (/ &
+ & 0.51520E-09_JPRB,0.65631E-06_JPRB,0.99567E-06_JPRB,0.11159E-05_JPRB,0.69954E-07_JPRB /)  
+KB(:, 5,29, 2) = (/ &
+ & 0.48806E-09_JPRB,0.69830E-06_JPRB,0.10576E-05_JPRB,0.11790E-05_JPRB,0.77228E-07_JPRB /)  
+KB(:, 1,30, 2) = (/ &
+ & 0.49783E-09_JPRB,0.43014E-06_JPRB,0.66732E-06_JPRB,0.76058E-06_JPRB,0.41306E-07_JPRB /)  
+KB(:, 2,30, 2) = (/ &
+ & 0.46723E-09_JPRB,0.47148E-06_JPRB,0.72434E-06_JPRB,0.81682E-06_JPRB,0.46537E-07_JPRB /)  
+KB(:, 3,30, 2) = (/ &
+ & 0.44015E-09_JPRB,0.51146E-06_JPRB,0.77809E-06_JPRB,0.87537E-06_JPRB,0.52451E-07_JPRB /)  
+KB(:, 4,30, 2) = (/ &
+ & 0.41603E-09_JPRB,0.54877E-06_JPRB,0.83073E-06_JPRB,0.92884E-06_JPRB,0.58793E-07_JPRB /)  
+KB(:, 5,30, 2) = (/ &
+ & 0.39440E-09_JPRB,0.58159E-06_JPRB,0.88054E-06_JPRB,0.98030E-06_JPRB,0.64630E-07_JPRB /)  
+KB(:, 1,31, 2) = (/ &
+ & 0.40087E-09_JPRB,0.36256E-06_JPRB,0.56062E-06_JPRB,0.63549E-06_JPRB,0.34778E-07_JPRB /)  
+KB(:, 2,31, 2) = (/ &
+ & 0.37660E-09_JPRB,0.39620E-06_JPRB,0.60674E-06_JPRB,0.68313E-06_JPRB,0.39213E-07_JPRB /)  
+KB(:, 3,31, 2) = (/ &
+ & 0.35510E-09_JPRB,0.42855E-06_JPRB,0.65037E-06_JPRB,0.72999E-06_JPRB,0.44176E-07_JPRB /)  
+KB(:, 4,31, 2) = (/ &
+ & 0.33590E-09_JPRB,0.45852E-06_JPRB,0.69308E-06_JPRB,0.77338E-06_JPRB,0.49424E-07_JPRB /)  
+KB(:, 5,31, 2) = (/ &
+ & 0.31866E-09_JPRB,0.48459E-06_JPRB,0.73297E-06_JPRB,0.81484E-06_JPRB,0.54137E-07_JPRB /)  
+KB(:, 1,32, 2) = (/ &
+ & 0.32280E-09_JPRB,0.30547E-06_JPRB,0.47083E-06_JPRB,0.53147E-06_JPRB,0.29353E-07_JPRB /)  
+KB(:, 2,32, 2) = (/ &
+ & 0.30356E-09_JPRB,0.33271E-06_JPRB,0.50770E-06_JPRB,0.57112E-06_JPRB,0.33078E-07_JPRB /)  
+KB(:, 3,32, 2) = (/ &
+ & 0.28647E-09_JPRB,0.35876E-06_JPRB,0.54339E-06_JPRB,0.60852E-06_JPRB,0.37211E-07_JPRB /)  
+KB(:, 4,32, 2) = (/ &
+ & 0.27120E-09_JPRB,0.38214E-06_JPRB,0.57781E-06_JPRB,0.64354E-06_JPRB,0.41295E-07_JPRB /)  
+KB(:, 5,32, 2) = (/ &
+ & 0.25746E-09_JPRB,0.40374E-06_JPRB,0.60990E-06_JPRB,0.67711E-06_JPRB,0.45362E-07_JPRB /)  
+KB(:, 1,33, 2) = (/ &
+ & 0.25997E-09_JPRB,0.25723E-06_JPRB,0.39505E-06_JPRB,0.44467E-06_JPRB,0.24754E-07_JPRB /)  
+KB(:, 2,33, 2) = (/ &
+ & 0.24471E-09_JPRB,0.27926E-06_JPRB,0.42469E-06_JPRB,0.47702E-06_JPRB,0.27907E-07_JPRB /)  
+KB(:, 3,33, 2) = (/ &
+ & 0.23113E-09_JPRB,0.30024E-06_JPRB,0.45384E-06_JPRB,0.50672E-06_JPRB,0.31344E-07_JPRB /)  
+KB(:, 4,33, 2) = (/ &
+ & 0.21898E-09_JPRB,0.31862E-06_JPRB,0.48142E-06_JPRB,0.53515E-06_JPRB,0.34590E-07_JPRB /)  
+KB(:, 5,33, 2) = (/ &
+ & 0.20803E-09_JPRB,0.33624E-06_JPRB,0.50721E-06_JPRB,0.56242E-06_JPRB,0.37957E-07_JPRB /)  
+KB(:, 1,34, 2) = (/ &
+ & 0.20987E-09_JPRB,0.21561E-06_JPRB,0.33035E-06_JPRB,0.37093E-06_JPRB,0.20801E-07_JPRB /)  
+KB(:, 2,34, 2) = (/ &
+ & 0.19771E-09_JPRB,0.23356E-06_JPRB,0.35433E-06_JPRB,0.39723E-06_JPRB,0.23443E-07_JPRB /)  
+KB(:, 3,34, 2) = (/ &
+ & 0.18688E-09_JPRB,0.25042E-06_JPRB,0.37804E-06_JPRB,0.42127E-06_JPRB,0.26271E-07_JPRB /)  
+KB(:, 4,34, 2) = (/ &
+ & 0.17716E-09_JPRB,0.26514E-06_JPRB,0.40029E-06_JPRB,0.44433E-06_JPRB,0.28867E-07_JPRB /)  
+KB(:, 5,34, 2) = (/ &
+ & 0.16840E-09_JPRB,0.27949E-06_JPRB,0.42102E-06_JPRB,0.46612E-06_JPRB,0.31620E-07_JPRB /)  
+KB(:, 1,35, 2) = (/ &
+ & 0.17046E-09_JPRB,0.17909E-06_JPRB,0.27397E-06_JPRB,0.30730E-06_JPRB,0.17283E-07_JPRB /)  
+KB(:, 2,35, 2) = (/ &
+ & 0.16066E-09_JPRB,0.19378E-06_JPRB,0.29367E-06_JPRB,0.32869E-06_JPRB,0.19456E-07_JPRB /)  
+KB(:, 3,35, 2) = (/ &
+ & 0.15191E-09_JPRB,0.20716E-06_JPRB,0.31287E-06_JPRB,0.34820E-06_JPRB,0.21759E-07_JPRB /)  
+KB(:, 4,35, 2) = (/ &
+ & 0.14407E-09_JPRB,0.21938E-06_JPRB,0.33090E-06_JPRB,0.36703E-06_JPRB,0.23854E-07_JPRB /)  
+KB(:, 5,35, 2) = (/ &
+ & 0.13699E-09_JPRB,0.23115E-06_JPRB,0.34779E-06_JPRB,0.38459E-06_JPRB,0.26128E-07_JPRB /)  
+KB(:, 1,36, 2) = (/ &
+ & 0.13938E-09_JPRB,0.14742E-06_JPRB,0.22535E-06_JPRB,0.25261E-06_JPRB,0.14145E-07_JPRB /)  
+KB(:, 2,36, 2) = (/ &
+ & 0.13137E-09_JPRB,0.15949E-06_JPRB,0.24155E-06_JPRB,0.27011E-06_JPRB,0.15917E-07_JPRB /)  
+KB(:, 3,36, 2) = (/ &
+ & 0.12423E-09_JPRB,0.17037E-06_JPRB,0.25721E-06_JPRB,0.28606E-06_JPRB,0.17809E-07_JPRB /)  
+KB(:, 4,36, 2) = (/ &
+ & 0.11782E-09_JPRB,0.18044E-06_JPRB,0.27200E-06_JPRB,0.30149E-06_JPRB,0.19530E-07_JPRB /)  
+KB(:, 5,36, 2) = (/ &
+ & 0.11204E-09_JPRB,0.19011E-06_JPRB,0.28582E-06_JPRB,0.31581E-06_JPRB,0.21391E-07_JPRB /)  
+KB(:, 1,37, 2) = (/ &
+ & 0.11503E-09_JPRB,0.11991E-06_JPRB,0.18339E-06_JPRB,0.20540E-06_JPRB,0.11398E-07_JPRB /)  
+KB(:, 2,37, 2) = (/ &
+ & 0.10837E-09_JPRB,0.12985E-06_JPRB,0.19670E-06_JPRB,0.21991E-06_JPRB,0.12829E-07_JPRB /)  
+KB(:, 3,37, 2) = (/ &
+ & 0.10244E-09_JPRB,0.13895E-06_JPRB,0.20964E-06_JPRB,0.23310E-06_JPRB,0.14370E-07_JPRB /)  
+KB(:, 4,37, 2) = (/ &
+ & 0.97122E-10_JPRB,0.14725E-06_JPRB,0.22183E-06_JPRB,0.24582E-06_JPRB,0.15790E-07_JPRB /)  
+KB(:, 5,37, 2) = (/ &
+ & 0.92325E-10_JPRB,0.15526E-06_JPRB,0.23327E-06_JPRB,0.25767E-06_JPRB,0.17308E-07_JPRB /)  
+KB(:, 1,38, 2) = (/ &
+ & 0.94990E-10_JPRB,0.97434E-07_JPRB,0.14912E-06_JPRB,0.16699E-06_JPRB,0.91745E-08_JPRB /)  
+KB(:, 2,38, 2) = (/ &
+ & 0.89449E-10_JPRB,0.10563E-06_JPRB,0.16007E-06_JPRB,0.17890E-06_JPRB,0.10330E-07_JPRB /)  
+KB(:, 3,38, 2) = (/ &
+ & 0.84516E-10_JPRB,0.11322E-06_JPRB,0.17071E-06_JPRB,0.18982E-06_JPRB,0.11585E-07_JPRB /)  
+KB(:, 4,38, 2) = (/ &
+ & 0.80096E-10_JPRB,0.12009E-06_JPRB,0.18084E-06_JPRB,0.20030E-06_JPRB,0.12759E-07_JPRB /)  
+KB(:, 5,38, 2) = (/ &
+ & 0.76113E-10_JPRB,0.12672E-06_JPRB,0.19028E-06_JPRB,0.21012E-06_JPRB,0.13992E-07_JPRB /)  
+KB(:, 1,39, 2) = (/ &
+ & 0.78444E-10_JPRB,0.79147E-07_JPRB,0.12122E-06_JPRB,0.13573E-06_JPRB,0.73846E-08_JPRB /)  
+KB(:, 2,39, 2) = (/ &
+ & 0.73832E-10_JPRB,0.85901E-07_JPRB,0.13022E-06_JPRB,0.14552E-06_JPRB,0.83180E-08_JPRB /)  
+KB(:, 3,39, 2) = (/ &
+ & 0.69729E-10_JPRB,0.92230E-07_JPRB,0.13899E-06_JPRB,0.15459E-06_JPRB,0.93374E-08_JPRB /)  
+KB(:, 4,39, 2) = (/ &
+ & 0.66056E-10_JPRB,0.97919E-07_JPRB,0.14737E-06_JPRB,0.16325E-06_JPRB,0.10307E-07_JPRB /)  
+KB(:, 5,39, 2) = (/ &
+ & 0.62749E-10_JPRB,0.10341E-06_JPRB,0.15518E-06_JPRB,0.17133E-06_JPRB,0.11312E-07_JPRB /)  
+KB(:, 1,40, 2) = (/ &
+ & 0.65207E-10_JPRB,0.63715E-07_JPRB,0.97755E-07_JPRB,0.10945E-06_JPRB,0.58831E-08_JPRB /)  
+KB(:, 2,40, 2) = (/ &
+ & 0.61319E-10_JPRB,0.69289E-07_JPRB,0.10524E-06_JPRB,0.11757E-06_JPRB,0.66237E-08_JPRB /)  
+KB(:, 3,40, 2) = (/ &
+ & 0.57866E-10_JPRB,0.74694E-07_JPRB,0.11245E-06_JPRB,0.12515E-06_JPRB,0.74455E-08_JPRB /)  
+KB(:, 4,40, 2) = (/ &
+ & 0.54779E-10_JPRB,0.79359E-07_JPRB,0.11941E-06_JPRB,0.13229E-06_JPRB,0.82595E-08_JPRB /)  
+KB(:, 5,40, 2) = (/ &
+ & 0.52003E-10_JPRB,0.83957E-07_JPRB,0.12593E-06_JPRB,0.13909E-06_JPRB,0.90698E-08_JPRB /)  
+KB(:, 1,41, 2) = (/ &
+ & 0.54263E-10_JPRB,0.51172E-07_JPRB,0.78714E-07_JPRB,0.88183E-07_JPRB,0.46740E-08_JPRB /)  
+KB(:, 2,41, 2) = (/ &
+ & 0.50978E-10_JPRB,0.55838E-07_JPRB,0.84939E-07_JPRB,0.94828E-07_JPRB,0.52655E-08_JPRB /)  
+KB(:, 3,41, 2) = (/ &
+ & 0.48066E-10_JPRB,0.60328E-07_JPRB,0.90859E-07_JPRB,0.10118E-06_JPRB,0.59273E-08_JPRB /)  
+KB(:, 4,41, 2) = (/ &
+ & 0.45467E-10_JPRB,0.64260E-07_JPRB,0.96667E-07_JPRB,0.10710E-06_JPRB,0.66279E-08_JPRB /)  
+KB(:, 5,41, 2) = (/ &
+ & 0.43134E-10_JPRB,0.68089E-07_JPRB,0.10208E-06_JPRB,0.11279E-06_JPRB,0.72560E-08_JPRB /)  
+KB(:, 1,42, 2) = (/ &
+ & 0.45170E-10_JPRB,0.41073E-07_JPRB,0.63333E-07_JPRB,0.71067E-07_JPRB,0.37185E-08_JPRB /)  
+KB(:, 2,42, 2) = (/ &
+ & 0.42393E-10_JPRB,0.44964E-07_JPRB,0.68507E-07_JPRB,0.76455E-07_JPRB,0.41864E-08_JPRB /)  
+KB(:, 3,42, 2) = (/ &
+ & 0.39936E-10_JPRB,0.48667E-07_JPRB,0.73382E-07_JPRB,0.81772E-07_JPRB,0.47157E-08_JPRB /)  
+KB(:, 4,42, 2) = (/ &
+ & 0.37747E-10_JPRB,0.51996E-07_JPRB,0.78220E-07_JPRB,0.86689E-07_JPRB,0.52834E-08_JPRB /)  
+KB(:, 5,42, 2) = (/ &
+ & 0.35784E-10_JPRB,0.55178E-07_JPRB,0.82739E-07_JPRB,0.91434E-07_JPRB,0.58040E-08_JPRB /)  
+KB(:, 1,43, 2) = (/ &
+ & 0.37754E-10_JPRB,0.32770E-07_JPRB,0.50662E-07_JPRB,0.56979E-07_JPRB,0.29405E-08_JPRB /)  
+KB(:, 2,43, 2) = (/ &
+ & 0.35387E-10_JPRB,0.35997E-07_JPRB,0.54993E-07_JPRB,0.61357E-07_JPRB,0.33066E-08_JPRB /)  
+KB(:, 3,43, 2) = (/ &
+ & 0.33299E-10_JPRB,0.39073E-07_JPRB,0.59036E-07_JPRB,0.65793E-07_JPRB,0.37265E-08_JPRB /)  
+KB(:, 4,43, 2) = (/ &
+ & 0.31442E-10_JPRB,0.41903E-07_JPRB,0.63014E-07_JPRB,0.69920E-07_JPRB,0.41848E-08_JPRB /)  
+KB(:, 5,43, 2) = (/ &
+ & 0.29781E-10_JPRB,0.44546E-07_JPRB,0.66822E-07_JPRB,0.73849E-07_JPRB,0.46204E-08_JPRB /)  
+KB(:, 1,44, 2) = (/ &
+ & 0.31623E-10_JPRB,0.26054E-07_JPRB,0.40405E-07_JPRB,0.45692E-07_JPRB,0.22918E-08_JPRB /)  
+KB(:, 2,44, 2) = (/ &
+ & 0.29599E-10_JPRB,0.28713E-07_JPRB,0.44010E-07_JPRB,0.49122E-07_JPRB,0.26053E-08_JPRB /)  
+KB(:, 3,44, 2) = (/ &
+ & 0.27817E-10_JPRB,0.31296E-07_JPRB,0.47391E-07_JPRB,0.52815E-07_JPRB,0.29353E-08_JPRB /)  
+KB(:, 4,44, 2) = (/ &
+ & 0.26236E-10_JPRB,0.33677E-07_JPRB,0.50655E-07_JPRB,0.56264E-07_JPRB,0.33023E-08_JPRB /)  
+KB(:, 5,44, 2) = (/ &
+ & 0.24825E-10_JPRB,0.35896E-07_JPRB,0.53863E-07_JPRB,0.59538E-07_JPRB,0.36730E-08_JPRB /)  
+KB(:, 1,45, 2) = (/ &
+ & 0.26502E-10_JPRB,0.20705E-07_JPRB,0.32152E-07_JPRB,0.36448E-07_JPRB,0.17841E-08_JPRB /)  
+KB(:, 2,45, 2) = (/ &
+ & 0.24768E-10_JPRB,0.22868E-07_JPRB,0.35185E-07_JPRB,0.39329E-07_JPRB,0.20515E-08_JPRB /)  
+KB(:, 3,45, 2) = (/ &
+ & 0.23247E-10_JPRB,0.25027E-07_JPRB,0.37999E-07_JPRB,0.42338E-07_JPRB,0.23118E-08_JPRB /)  
+KB(:, 4,45, 2) = (/ &
+ & 0.21900E-10_JPRB,0.27063E-07_JPRB,0.40694E-07_JPRB,0.45258E-07_JPRB,0.26048E-08_JPRB /)  
+KB(:, 5,45, 2) = (/ &
+ & 0.20701E-10_JPRB,0.28901E-07_JPRB,0.43361E-07_JPRB,0.47969E-07_JPRB,0.29174E-08_JPRB /)  
+KB(:, 1,46, 2) = (/ &
+ & 0.22258E-10_JPRB,0.16422E-07_JPRB,0.25480E-07_JPRB,0.28991E-07_JPRB,0.13830E-08_JPRB /)  
+KB(:, 2,46, 2) = (/ &
+ & 0.20767E-10_JPRB,0.18158E-07_JPRB,0.28033E-07_JPRB,0.31442E-07_JPRB,0.16144E-08_JPRB /)  
+KB(:, 3,46, 2) = (/ &
+ & 0.19462E-10_JPRB,0.19953E-07_JPRB,0.30402E-07_JPRB,0.33850E-07_JPRB,0.18162E-08_JPRB /)  
+KB(:, 4,46, 2) = (/ &
+ & 0.18312E-10_JPRB,0.21658E-07_JPRB,0.32639E-07_JPRB,0.36308E-07_JPRB,0.20475E-08_JPRB /)  
+KB(:, 5,46, 2) = (/ &
+ & 0.17289E-10_JPRB,0.23211E-07_JPRB,0.34839E-07_JPRB,0.38583E-07_JPRB,0.22994E-08_JPRB /)  
+KB(:, 1,47, 2) = (/ &
+ & 0.18764E-10_JPRB,0.12951E-07_JPRB,0.20072E-07_JPRB,0.22982E-07_JPRB,0.10645E-08_JPRB /)  
+KB(:, 2,47, 2) = (/ &
+ & 0.17473E-10_JPRB,0.14335E-07_JPRB,0.22214E-07_JPRB,0.25085E-07_JPRB,0.12479E-08_JPRB /)  
+KB(:, 3,47, 2) = (/ &
+ & 0.16347E-10_JPRB,0.15813E-07_JPRB,0.24205E-07_JPRB,0.26971E-07_JPRB,0.14207E-08_JPRB /)  
+KB(:, 4,47, 2) = (/ &
+ & 0.15357E-10_JPRB,0.17255E-07_JPRB,0.26075E-07_JPRB,0.29015E-07_JPRB,0.16008E-08_JPRB /)  
+KB(:, 5,47, 2) = (/ &
+ & 0.14480E-10_JPRB,0.18558E-07_JPRB,0.27885E-07_JPRB,0.30922E-07_JPRB,0.18018E-08_JPRB /)  
+KB(:, 1,48, 2) = (/ &
+ & 0.15833E-10_JPRB,0.10186E-07_JPRB,0.15782E-07_JPRB,0.18174E-07_JPRB,0.81718E-09_JPRB /)  
+KB(:, 2,48, 2) = (/ &
+ & 0.14713E-10_JPRB,0.11312E-07_JPRB,0.17555E-07_JPRB,0.19891E-07_JPRB,0.96098E-09_JPRB /)  
+KB(:, 3,48, 2) = (/ &
+ & 0.13740E-10_JPRB,0.12509E-07_JPRB,0.19248E-07_JPRB,0.21482E-07_JPRB,0.11112E-08_JPRB /)  
+KB(:, 4,48, 2) = (/ &
+ & 0.12887E-10_JPRB,0.13719E-07_JPRB,0.20811E-07_JPRB,0.23140E-07_JPRB,0.12515E-08_JPRB /)  
+KB(:, 5,48, 2) = (/ &
+ & 0.12134E-10_JPRB,0.14840E-07_JPRB,0.22313E-07_JPRB,0.24769E-07_JPRB,0.14105E-08_JPRB /)  
+KB(:, 1,49, 2) = (/ &
+ & 0.13372E-10_JPRB,0.80050E-08_JPRB,0.12403E-07_JPRB,0.14283E-07_JPRB,0.63117E-09_JPRB /)  
+KB(:, 2,49, 2) = (/ &
+ & 0.12398E-10_JPRB,0.89393E-08_JPRB,0.13840E-07_JPRB,0.15751E-07_JPRB,0.73907E-09_JPRB /)  
+KB(:, 3,49, 2) = (/ &
+ & 0.11556E-10_JPRB,0.98821E-08_JPRB,0.15261E-07_JPRB,0.17104E-07_JPRB,0.86645E-09_JPRB /)  
+KB(:, 4,49, 2) = (/ &
+ & 0.10821E-10_JPRB,0.10884E-07_JPRB,0.16582E-07_JPRB,0.18441E-07_JPRB,0.97829E-09_JPRB /)  
+KB(:, 5,49, 2) = (/ &
+ & 0.10174E-10_JPRB,0.11841E-07_JPRB,0.17828E-07_JPRB,0.19804E-07_JPRB,0.11034E-08_JPRB /)  
+KB(:, 1,50, 2) = (/ &
+ & 0.11282E-10_JPRB,0.62726E-08_JPRB,0.97478E-08_JPRB,0.11226E-07_JPRB,0.48398E-09_JPRB /)  
+KB(:, 2,50, 2) = (/ &
+ & 0.10437E-10_JPRB,0.70546E-08_JPRB,0.10932E-07_JPRB,0.12518E-07_JPRB,0.57051E-09_JPRB /)  
+KB(:, 3,50, 2) = (/ &
+ & 0.97101E-11_JPRB,0.78193E-08_JPRB,0.12114E-07_JPRB,0.13671E-07_JPRB,0.66997E-09_JPRB /)  
+KB(:, 4,50, 2) = (/ &
+ & 0.90772E-11_JPRB,0.86379E-08_JPRB,0.13218E-07_JPRB,0.14712E-07_JPRB,0.76625E-09_JPRB /)  
+KB(:, 5,50, 2) = (/ &
+ & 0.85216E-11_JPRB,0.94405E-08_JPRB,0.14258E-07_JPRB,0.15844E-07_JPRB,0.86488E-09_JPRB /)  
+KB(:, 1,51, 2) = (/ &
+ & 0.95179E-11_JPRB,0.49251E-08_JPRB,0.76356E-08_JPRB,0.87761E-08_JPRB,0.37213E-09_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART14',1,ZHOOK_HANDLE)
+END SUBROUTINE PART14
+
+
+SUBROUTINE PART15
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART15',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,51, 2) = (/ &
+ & 0.87856E-11_JPRB,0.55681E-08_JPRB,0.86220E-08_JPRB,0.99159E-08_JPRB,0.44074E-09_JPRB /)  
+KB(:, 3,51, 2) = (/ &
+ & 0.81576E-11_JPRB,0.61930E-08_JPRB,0.95989E-08_JPRB,0.10865E-07_JPRB,0.51843E-09_JPRB /)  
+KB(:, 4,51, 2) = (/ &
+ & 0.76131E-11_JPRB,0.68518E-08_JPRB,0.10539E-07_JPRB,0.11746E-07_JPRB,0.60210E-09_JPRB /)  
+KB(:, 5,51, 2) = (/ &
+ & 0.71366E-11_JPRB,0.75206E-08_JPRB,0.11403E-07_JPRB,0.12659E-07_JPRB,0.67841E-09_JPRB /)  
+KB(:, 1,52, 2) = (/ &
+ & 0.80368E-11_JPRB,0.38608E-08_JPRB,0.60010E-08_JPRB,0.68441E-08_JPRB,0.28848E-09_JPRB /)  
+KB(:, 2,52, 2) = (/ &
+ & 0.74007E-11_JPRB,0.43903E-08_JPRB,0.67974E-08_JPRB,0.78127E-08_JPRB,0.34245E-09_JPRB /)  
+KB(:, 3,52, 2) = (/ &
+ & 0.68577E-11_JPRB,0.49086E-08_JPRB,0.75959E-08_JPRB,0.86279E-08_JPRB,0.40106E-09_JPRB /)  
+KB(:, 4,52, 2) = (/ &
+ & 0.63886E-11_JPRB,0.54297E-08_JPRB,0.83801E-08_JPRB,0.93778E-08_JPRB,0.47058E-09_JPRB /)  
+KB(:, 5,52, 2) = (/ &
+ & 0.59795E-11_JPRB,0.59829E-08_JPRB,0.91103E-08_JPRB,0.10111E-07_JPRB,0.53218E-09_JPRB /)  
+KB(:, 1,53, 2) = (/ &
+ & 0.67932E-11_JPRB,0.30102E-08_JPRB,0.47269E-08_JPRB,0.53395E-08_JPRB,0.22432E-09_JPRB /)  
+KB(:, 2,53, 2) = (/ &
+ & 0.62397E-11_JPRB,0.34450E-08_JPRB,0.53458E-08_JPRB,0.61449E-08_JPRB,0.26282E-09_JPRB /)  
+KB(:, 3,53, 2) = (/ &
+ & 0.57693E-11_JPRB,0.38768E-08_JPRB,0.60006E-08_JPRB,0.68613E-08_JPRB,0.31020E-09_JPRB /)  
+KB(:, 4,53, 2) = (/ &
+ & 0.53647E-11_JPRB,0.43002E-08_JPRB,0.66533E-08_JPRB,0.74990E-08_JPRB,0.36446E-09_JPRB /)  
+KB(:, 5,53, 2) = (/ &
+ & 0.50129E-11_JPRB,0.47527E-08_JPRB,0.72638E-08_JPRB,0.80717E-08_JPRB,0.41759E-09_JPRB /)  
+KB(:, 1,54, 2) = (/ &
+ & 0.57320E-11_JPRB,0.23582E-08_JPRB,0.36837E-08_JPRB,0.41317E-08_JPRB,0.17477E-09_JPRB /)  
+KB(:, 2,54, 2) = (/ &
+ & 0.52518E-11_JPRB,0.27163E-08_JPRB,0.42048E-08_JPRB,0.48208E-08_JPRB,0.20321E-09_JPRB /)  
+KB(:, 3,54, 2) = (/ &
+ & 0.48457E-11_JPRB,0.30678E-08_JPRB,0.47472E-08_JPRB,0.54472E-08_JPRB,0.24081E-09_JPRB /)  
+KB(:, 4,54, 2) = (/ &
+ & 0.44978E-11_JPRB,0.34148E-08_JPRB,0.52851E-08_JPRB,0.59735E-08_JPRB,0.28345E-09_JPRB /)  
+KB(:, 5,54, 2) = (/ &
+ & 0.41963E-11_JPRB,0.37804E-08_JPRB,0.58001E-08_JPRB,0.64570E-08_JPRB,0.32923E-09_JPRB /)  
+KB(:, 1,55, 2) = (/ &
+ & 0.48347E-11_JPRB,0.18534E-08_JPRB,0.28539E-08_JPRB,0.31828E-08_JPRB,0.13492E-09_JPRB /)  
+KB(:, 2,55, 2) = (/ &
+ & 0.44186E-11_JPRB,0.21392E-08_JPRB,0.33190E-08_JPRB,0.37817E-08_JPRB,0.15848E-09_JPRB /)  
+KB(:, 3,55, 2) = (/ &
+ & 0.40683E-11_JPRB,0.24320E-08_JPRB,0.37592E-08_JPRB,0.43156E-08_JPRB,0.18835E-09_JPRB /)  
+KB(:, 4,55, 2) = (/ &
+ & 0.37693E-11_JPRB,0.27150E-08_JPRB,0.41999E-08_JPRB,0.47625E-08_JPRB,0.22076E-09_JPRB /)  
+KB(:, 5,55, 2) = (/ &
+ & 0.35111E-11_JPRB,0.30082E-08_JPRB,0.46345E-08_JPRB,0.51736E-08_JPRB,0.25916E-09_JPRB /)  
+KB(:, 1,56, 2) = (/ &
+ & 0.40813E-11_JPRB,0.14543E-08_JPRB,0.22038E-08_JPRB,0.24488E-08_JPRB,0.10328E-09_JPRB /)  
+KB(:, 2,56, 2) = (/ &
+ & 0.37201E-11_JPRB,0.16813E-08_JPRB,0.26371E-08_JPRB,0.29640E-08_JPRB,0.12446E-09_JPRB /)  
+KB(:, 3,56, 2) = (/ &
+ & 0.34175E-11_JPRB,0.19191E-08_JPRB,0.29747E-08_JPRB,0.34115E-08_JPRB,0.14604E-09_JPRB /)  
+KB(:, 4,56, 2) = (/ &
+ & 0.31604E-11_JPRB,0.21575E-08_JPRB,0.33348E-08_JPRB,0.38018E-08_JPRB,0.17202E-09_JPRB /)  
+KB(:, 5,56, 2) = (/ &
+ & 0.29391E-11_JPRB,0.23932E-08_JPRB,0.36930E-08_JPRB,0.41472E-08_JPRB,0.20235E-09_JPRB /)  
+KB(:, 1,57, 2) = (/ &
+ & 0.34486E-11_JPRB,0.11480E-08_JPRB,0.17032E-08_JPRB,0.18771E-08_JPRB,0.78787E-10_JPRB /)  
+KB(:, 2,57, 2) = (/ &
+ & 0.31345E-11_JPRB,0.13189E-08_JPRB,0.20615E-08_JPRB,0.23121E-08_JPRB,0.96832E-10_JPRB /)  
+KB(:, 3,57, 2) = (/ &
+ & 0.28728E-11_JPRB,0.15144E-08_JPRB,0.23440E-08_JPRB,0.26863E-08_JPRB,0.11317E-09_JPRB /)  
+KB(:, 4,57, 2) = (/ &
+ & 0.26513E-11_JPRB,0.17102E-08_JPRB,0.26436E-08_JPRB,0.30246E-08_JPRB,0.13393E-09_JPRB /)  
+KB(:, 5,57, 2) = (/ &
+ & 0.24615E-11_JPRB,0.19022E-08_JPRB,0.29394E-08_JPRB,0.33135E-08_JPRB,0.15772E-09_JPRB /)  
+KB(:, 1,58, 2) = (/ &
+ & 0.29119E-11_JPRB,0.89500E-09_JPRB,0.13020E-08_JPRB,0.14383E-08_JPRB,0.60253E-10_JPRB /)  
+KB(:, 2,58, 2) = (/ &
+ & 0.26392E-11_JPRB,0.10369E-08_JPRB,0.16036E-08_JPRB,0.17891E-08_JPRB,0.75765E-10_JPRB /)  
+KB(:, 3,58, 2) = (/ &
+ & 0.24132E-11_JPRB,0.11975E-08_JPRB,0.18523E-08_JPRB,0.21114E-08_JPRB,0.88260E-10_JPRB /)  
+KB(:, 4,58, 2) = (/ &
+ & 0.22227E-11_JPRB,0.13570E-08_JPRB,0.20959E-08_JPRB,0.24045E-08_JPRB,0.10478E-09_JPRB /)  
+KB(:, 5,58, 2) = (/ &
+ & 0.20601E-11_JPRB,0.15139E-08_JPRB,0.23406E-08_JPRB,0.26456E-08_JPRB,0.12331E-09_JPRB /)  
+KB(:, 1,59, 2) = (/ &
+ & 0.24143E-11_JPRB,0.71851E-09_JPRB,0.10362E-08_JPRB,0.11516E-08_JPRB,0.48086E-10_JPRB /)  
+KB(:, 2,59, 2) = (/ &
+ & 0.21857E-11_JPRB,0.83732E-09_JPRB,0.12892E-08_JPRB,0.14335E-08_JPRB,0.60630E-10_JPRB /)  
+KB(:, 3,59, 2) = (/ &
+ & 0.19965E-11_JPRB,0.96815E-09_JPRB,0.14990E-08_JPRB,0.17039E-08_JPRB,0.71208E-10_JPRB /)  
+KB(:, 4,59, 2) = (/ &
+ & 0.18374E-11_JPRB,0.10982E-08_JPRB,0.16973E-08_JPRB,0.19455E-08_JPRB,0.84514E-10_JPRB /)  
+KB(:, 5,59, 2) = (/ &
+ & 0.17017E-11_JPRB,0.12277E-08_JPRB,0.18981E-08_JPRB,0.21472E-08_JPRB,0.99289E-10_JPRB /)  
+KB(:, 1,13, 3) = (/ &
+ & 0.69497E-07_JPRB,0.55900E-04_JPRB,0.77634E-04_JPRB,0.83300E-04_JPRB,0.14419E-04_JPRB /)  
+KB(:, 2,13, 3) = (/ &
+ & 0.64923E-07_JPRB,0.61779E-04_JPRB,0.85238E-04_JPRB,0.90458E-04_JPRB,0.15996E-04_JPRB /)  
+KB(:, 3,13, 3) = (/ &
+ & 0.60920E-07_JPRB,0.67532E-04_JPRB,0.92811E-04_JPRB,0.97588E-04_JPRB,0.17622E-04_JPRB /)  
+KB(:, 4,13, 3) = (/ &
+ & 0.57379E-07_JPRB,0.72876E-04_JPRB,0.10040E-03_JPRB,0.10455E-03_JPRB,0.19144E-04_JPRB /)  
+KB(:, 5,13, 3) = (/ &
+ & 0.54220E-07_JPRB,0.77699E-04_JPRB,0.10784E-03_JPRB,0.11139E-03_JPRB,0.20671E-04_JPRB /)  
+KB(:, 1,14, 3) = (/ &
+ & 0.56538E-07_JPRB,0.46627E-04_JPRB,0.64678E-04_JPRB,0.69399E-04_JPRB,0.12086E-04_JPRB /)  
+KB(:, 2,14, 3) = (/ &
+ & 0.52839E-07_JPRB,0.51536E-04_JPRB,0.71080E-04_JPRB,0.75292E-04_JPRB,0.13414E-04_JPRB /)  
+KB(:, 3,14, 3) = (/ &
+ & 0.49600E-07_JPRB,0.56334E-04_JPRB,0.77384E-04_JPRB,0.81277E-04_JPRB,0.14732E-04_JPRB /)  
+KB(:, 4,14, 3) = (/ &
+ & 0.46731E-07_JPRB,0.60751E-04_JPRB,0.83753E-04_JPRB,0.87067E-04_JPRB,0.15973E-04_JPRB /)  
+KB(:, 5,14, 3) = (/ &
+ & 0.44171E-07_JPRB,0.64792E-04_JPRB,0.89963E-04_JPRB,0.92617E-04_JPRB,0.17214E-04_JPRB /)  
+KB(:, 1,15, 3) = (/ &
+ & 0.45963E-07_JPRB,0.38920E-04_JPRB,0.53921E-04_JPRB,0.57824E-04_JPRB,0.10089E-04_JPRB /)  
+KB(:, 2,15, 3) = (/ &
+ & 0.42976E-07_JPRB,0.42987E-04_JPRB,0.59286E-04_JPRB,0.62615E-04_JPRB,0.11238E-04_JPRB /)  
+KB(:, 3,15, 3) = (/ &
+ & 0.40358E-07_JPRB,0.47014E-04_JPRB,0.64557E-04_JPRB,0.67658E-04_JPRB,0.12293E-04_JPRB /)  
+KB(:, 4,15, 3) = (/ &
+ & 0.38037E-07_JPRB,0.50641E-04_JPRB,0.69879E-04_JPRB,0.72487E-04_JPRB,0.13317E-04_JPRB /)  
+KB(:, 5,15, 3) = (/ &
+ & 0.35964E-07_JPRB,0.54003E-04_JPRB,0.75064E-04_JPRB,0.77083E-04_JPRB,0.14321E-04_JPRB /)  
+KB(:, 1,16, 3) = (/ &
+ & 0.37354E-07_JPRB,0.32479E-04_JPRB,0.44953E-04_JPRB,0.48146E-04_JPRB,0.84079E-05_JPRB /)  
+KB(:, 2,16, 3) = (/ &
+ & 0.34944E-07_JPRB,0.35873E-04_JPRB,0.49454E-04_JPRB,0.52120E-04_JPRB,0.93405E-05_JPRB /)  
+KB(:, 3,16, 3) = (/ &
+ & 0.32829E-07_JPRB,0.39220E-04_JPRB,0.53861E-04_JPRB,0.56293E-04_JPRB,0.10209E-04_JPRB /)  
+KB(:, 4,16, 3) = (/ &
+ & 0.30952E-07_JPRB,0.42155E-04_JPRB,0.58309E-04_JPRB,0.60268E-04_JPRB,0.11080E-04_JPRB /)  
+KB(:, 5,16, 3) = (/ &
+ & 0.29274E-07_JPRB,0.45014E-04_JPRB,0.62610E-04_JPRB,0.64184E-04_JPRB,0.11887E-04_JPRB /)  
+KB(:, 1,17, 3) = (/ &
+ & 0.30364E-07_JPRB,0.27086E-04_JPRB,0.37451E-04_JPRB,0.39995E-04_JPRB,0.70049E-05_JPRB /)  
+KB(:, 2,17, 3) = (/ &
+ & 0.28420E-07_JPRB,0.29919E-04_JPRB,0.41194E-04_JPRB,0.43367E-04_JPRB,0.77736E-05_JPRB /)  
+KB(:, 3,17, 3) = (/ &
+ & 0.26710E-07_JPRB,0.32650E-04_JPRB,0.44902E-04_JPRB,0.46817E-04_JPRB,0.84838E-05_JPRB /)  
+KB(:, 4,17, 3) = (/ &
+ & 0.25192E-07_JPRB,0.35098E-04_JPRB,0.48605E-04_JPRB,0.50103E-04_JPRB,0.92038E-05_JPRB /)  
+KB(:, 5,17, 3) = (/ &
+ & 0.23833E-07_JPRB,0.37507E-04_JPRB,0.52188E-04_JPRB,0.53413E-04_JPRB,0.98607E-05_JPRB /)  
+KB(:, 1,18, 3) = (/ &
+ & 0.24687E-07_JPRB,0.22581E-04_JPRB,0.31211E-04_JPRB,0.33220E-04_JPRB,0.58361E-05_JPRB /)  
+KB(:, 2,18, 3) = (/ &
+ & 0.23116E-07_JPRB,0.24940E-04_JPRB,0.34308E-04_JPRB,0.36078E-04_JPRB,0.64640E-05_JPRB /)  
+KB(:, 3,18, 3) = (/ &
+ & 0.21734E-07_JPRB,0.27181E-04_JPRB,0.37414E-04_JPRB,0.38933E-04_JPRB,0.70344E-05_JPRB /)  
+KB(:, 4,18, 3) = (/ &
+ & 0.20506E-07_JPRB,0.29216E-04_JPRB,0.40517E-04_JPRB,0.41653E-04_JPRB,0.76276E-05_JPRB /)  
+KB(:, 5,18, 3) = (/ &
+ & 0.19406E-07_JPRB,0.31237E-04_JPRB,0.43490E-04_JPRB,0.44397E-04_JPRB,0.81753E-05_JPRB /)  
+KB(:, 1,19, 3) = (/ &
+ & 0.20074E-07_JPRB,0.18818E-04_JPRB,0.25999E-04_JPRB,0.27597E-04_JPRB,0.48662E-05_JPRB /)  
+KB(:, 2,19, 3) = (/ &
+ & 0.18805E-07_JPRB,0.20784E-04_JPRB,0.28562E-04_JPRB,0.29993E-04_JPRB,0.53723E-05_JPRB /)  
+KB(:, 3,19, 3) = (/ &
+ & 0.17688E-07_JPRB,0.22626E-04_JPRB,0.31151E-04_JPRB,0.32363E-04_JPRB,0.58377E-05_JPRB /)  
+KB(:, 4,19, 3) = (/ &
+ & 0.16693E-07_JPRB,0.24300E-04_JPRB,0.33760E-04_JPRB,0.34629E-04_JPRB,0.63177E-05_JPRB /)  
+KB(:, 5,19, 3) = (/ &
+ & 0.15802E-07_JPRB,0.25985E-04_JPRB,0.36226E-04_JPRB,0.36903E-04_JPRB,0.67742E-05_JPRB /)  
+KB(:, 1,20, 3) = (/ &
+ & 0.16306E-07_JPRB,0.15717E-04_JPRB,0.21686E-04_JPRB,0.22959E-04_JPRB,0.40680E-05_JPRB /)  
+KB(:, 2,20, 3) = (/ &
+ & 0.15283E-07_JPRB,0.17355E-04_JPRB,0.23826E-04_JPRB,0.24969E-04_JPRB,0.44706E-05_JPRB /)  
+KB(:, 3,20, 3) = (/ &
+ & 0.14381E-07_JPRB,0.18856E-04_JPRB,0.25992E-04_JPRB,0.26912E-04_JPRB,0.48550E-05_JPRB /)  
+KB(:, 4,20, 3) = (/ &
+ & 0.13578E-07_JPRB,0.20265E-04_JPRB,0.28162E-04_JPRB,0.28817E-04_JPRB,0.52355E-05_JPRB /)  
+KB(:, 5,20, 3) = (/ &
+ & 0.12857E-07_JPRB,0.21638E-04_JPRB,0.30215E-04_JPRB,0.30707E-04_JPRB,0.56224E-05_JPRB /)  
+KB(:, 1,21, 3) = (/ &
+ & 0.13245E-07_JPRB,0.13128E-04_JPRB,0.18091E-04_JPRB,0.19107E-04_JPRB,0.33880E-05_JPRB /)  
+KB(:, 2,21, 3) = (/ &
+ & 0.12420E-07_JPRB,0.14495E-04_JPRB,0.19887E-04_JPRB,0.20794E-04_JPRB,0.37144E-05_JPRB /)  
+KB(:, 3,21, 3) = (/ &
+ & 0.11692E-07_JPRB,0.15704E-04_JPRB,0.21703E-04_JPRB,0.22397E-04_JPRB,0.40415E-05_JPRB /)  
+KB(:, 4,21, 3) = (/ &
+ & 0.11043E-07_JPRB,0.16904E-04_JPRB,0.23489E-04_JPRB,0.23984E-04_JPRB,0.43455E-05_JPRB /)  
+KB(:, 5,21, 3) = (/ &
+ & 0.10460E-07_JPRB,0.18037E-04_JPRB,0.25197E-04_JPRB,0.25558E-04_JPRB,0.46662E-05_JPRB /)  
+KB(:, 1,22, 3) = (/ &
+ & 0.10711E-07_JPRB,0.11044E-04_JPRB,0.15199E-04_JPRB,0.16008E-04_JPRB,0.28409E-05_JPRB /)  
+KB(:, 2,22, 3) = (/ &
+ & 0.10052E-07_JPRB,0.12165E-04_JPRB,0.16699E-04_JPRB,0.17419E-04_JPRB,0.31041E-05_JPRB /)  
+KB(:, 3,22, 3) = (/ &
+ & 0.94690E-08_JPRB,0.13158E-04_JPRB,0.18224E-04_JPRB,0.18733E-04_JPRB,0.33768E-05_JPRB /)  
+KB(:, 4,22, 3) = (/ &
+ & 0.89484E-08_JPRB,0.14166E-04_JPRB,0.19691E-04_JPRB,0.20050E-04_JPRB,0.36237E-05_JPRB /)  
+KB(:, 5,22, 3) = (/ &
+ & 0.84804E-08_JPRB,0.15085E-04_JPRB,0.21105E-04_JPRB,0.21356E-04_JPRB,0.38876E-05_JPRB /)  
+KB(:, 1,23, 3) = (/ &
+ & 0.86606E-08_JPRB,0.93002E-05_JPRB,0.12775E-04_JPRB,0.13420E-04_JPRB,0.23815E-05_JPRB /)  
+KB(:, 2,23, 3) = (/ &
+ & 0.81340E-08_JPRB,0.10210E-04_JPRB,0.14034E-04_JPRB,0.14552E-04_JPRB,0.25955E-05_JPRB /)  
+KB(:, 3,23, 3) = (/ &
+ & 0.76671E-08_JPRB,0.11035E-04_JPRB,0.15302E-04_JPRB,0.15657E-04_JPRB,0.28150E-05_JPRB /)  
+KB(:, 4,23, 3) = (/ &
+ & 0.72497E-08_JPRB,0.11863E-04_JPRB,0.16513E-04_JPRB,0.16770E-04_JPRB,0.30198E-05_JPRB /)  
+KB(:, 5,23, 3) = (/ &
+ & 0.68739E-08_JPRB,0.12616E-04_JPRB,0.17664E-04_JPRB,0.17848E-04_JPRB,0.32387E-05_JPRB /)  
+KB(:, 1,24, 3) = (/ &
+ & 0.69995E-08_JPRB,0.78392E-05_JPRB,0.10754E-04_JPRB,0.11250E-04_JPRB,0.19986E-05_JPRB /)  
+KB(:, 2,24, 3) = (/ &
+ & 0.65790E-08_JPRB,0.85674E-05_JPRB,0.11806E-04_JPRB,0.12186E-04_JPRB,0.21738E-05_JPRB /)  
+KB(:, 3,24, 3) = (/ &
+ & 0.62055E-08_JPRB,0.92664E-05_JPRB,0.12850E-04_JPRB,0.13103E-04_JPRB,0.23469E-05_JPRB /)  
+KB(:, 4,24, 3) = (/ &
+ & 0.58710E-08_JPRB,0.99376E-05_JPRB,0.13854E-04_JPRB,0.14027E-04_JPRB,0.25195E-05_JPRB /)  
+KB(:, 5,24, 3) = (/ &
+ & 0.55696E-08_JPRB,0.10527E-04_JPRB,0.14795E-04_JPRB,0.14917E-04_JPRB,0.26988E-05_JPRB /)  
+KB(:, 1,25, 3) = (/ &
+ & 0.56538E-08_JPRB,0.66118E-05_JPRB,0.90610E-05_JPRB,0.94422E-05_JPRB,0.16753E-05_JPRB /)  
+KB(:, 2,25, 3) = (/ &
+ & 0.53184E-08_JPRB,0.71986E-05_JPRB,0.99389E-05_JPRB,0.10209E-04_JPRB,0.18223E-05_JPRB /)  
+KB(:, 3,25, 3) = (/ &
+ & 0.50199E-08_JPRB,0.77863E-05_JPRB,0.10800E-04_JPRB,0.10981E-04_JPRB,0.19590E-05_JPRB /)  
+KB(:, 4,25, 3) = (/ &
+ & 0.47522E-08_JPRB,0.83415E-05_JPRB,0.11626E-04_JPRB,0.11737E-04_JPRB,0.21020E-05_JPRB /)  
+KB(:, 5,25, 3) = (/ &
+ & 0.45105E-08_JPRB,0.88017E-05_JPRB,0.12373E-04_JPRB,0.12468E-04_JPRB,0.22498E-05_JPRB /)  
+KB(:, 1,26, 3) = (/ &
+ & 0.45620E-08_JPRB,0.55749E-05_JPRB,0.76463E-05_JPRB,0.79285E-05_JPRB,0.14032E-05_JPRB /)  
+KB(:, 2,26, 3) = (/ &
+ & 0.42950E-08_JPRB,0.60590E-05_JPRB,0.83822E-05_JPRB,0.85652E-05_JPRB,0.15255E-05_JPRB /)  
+KB(:, 3,26, 3) = (/ &
+ & 0.40569E-08_JPRB,0.65510E-05_JPRB,0.90888E-05_JPRB,0.92116E-05_JPRB,0.16373E-05_JPRB /)  
+KB(:, 4,26, 3) = (/ &
+ & 0.38429E-08_JPRB,0.69918E-05_JPRB,0.97604E-05_JPRB,0.98329E-05_JPRB,0.17561E-05_JPRB /)  
+KB(:, 5,26, 3) = (/ &
+ & 0.36495E-08_JPRB,0.73566E-05_JPRB,0.10367E-04_JPRB,0.10429E-04_JPRB,0.18769E-05_JPRB /)  
+KB(:, 1,27, 3) = (/ &
+ & 0.36809E-08_JPRB,0.46967E-05_JPRB,0.64580E-05_JPRB,0.66649E-05_JPRB,0.11786E-05_JPRB /)  
+KB(:, 2,27, 3) = (/ &
+ & 0.34683E-08_JPRB,0.51072E-05_JPRB,0.70661E-05_JPRB,0.71902E-05_JPRB,0.12759E-05_JPRB /)  
+KB(:, 3,27, 3) = (/ &
+ & 0.32784E-08_JPRB,0.55053E-05_JPRB,0.76470E-05_JPRB,0.77250E-05_JPRB,0.13691E-05_JPRB /)  
+KB(:, 4,27, 3) = (/ &
+ & 0.31074E-08_JPRB,0.58474E-05_JPRB,0.81898E-05_JPRB,0.82340E-05_JPRB,0.14666E-05_JPRB /)  
+KB(:, 5,27, 3) = (/ &
+ & 0.29526E-08_JPRB,0.61493E-05_JPRB,0.86815E-05_JPRB,0.87199E-05_JPRB,0.15650E-05_JPRB /)  
+KB(:, 1,28, 3) = (/ &
+ & 0.29701E-08_JPRB,0.39582E-05_JPRB,0.54573E-05_JPRB,0.55959E-05_JPRB,0.99037E-06_JPRB /)  
+KB(:, 2,28, 3) = (/ &
+ & 0.28008E-08_JPRB,0.43048E-05_JPRB,0.59546E-05_JPRB,0.60406E-05_JPRB,0.10659E-05_JPRB /)  
+KB(:, 3,28, 3) = (/ &
+ & 0.26493E-08_JPRB,0.46277E-05_JPRB,0.64286E-05_JPRB,0.64745E-05_JPRB,0.11442E-05_JPRB /)  
+KB(:, 4,28, 3) = (/ &
+ & 0.25127E-08_JPRB,0.48940E-05_JPRB,0.68612E-05_JPRB,0.68918E-05_JPRB,0.12250E-05_JPRB /)  
+KB(:, 5,28, 3) = (/ &
+ & 0.23888E-08_JPRB,0.51428E-05_JPRB,0.72654E-05_JPRB,0.72865E-05_JPRB,0.13046E-05_JPRB /)  
+KB(:, 1,29, 3) = (/ &
+ & 0.23958E-08_JPRB,0.33409E-05_JPRB,0.46115E-05_JPRB,0.47054E-05_JPRB,0.83021E-06_JPRB /)  
+KB(:, 2,29, 3) = (/ &
+ & 0.22611E-08_JPRB,0.36267E-05_JPRB,0.50192E-05_JPRB,0.50754E-05_JPRB,0.89157E-06_JPRB /)  
+KB(:, 3,29, 3) = (/ &
+ & 0.21402E-08_JPRB,0.38805E-05_JPRB,0.54053E-05_JPRB,0.54291E-05_JPRB,0.95663E-06_JPRB /)  
+KB(:, 4,29, 3) = (/ &
+ & 0.20311E-08_JPRB,0.40929E-05_JPRB,0.57529E-05_JPRB,0.57685E-05_JPRB,0.10232E-05_JPRB /)  
+KB(:, 5,29, 3) = (/ &
+ & 0.19320E-08_JPRB,0.43014E-05_JPRB,0.60684E-05_JPRB,0.60868E-05_JPRB,0.10874E-05_JPRB /)  
+KB(:, 1,30, 3) = (/ &
+ & 0.19328E-08_JPRB,0.28217E-05_JPRB,0.38955E-05_JPRB,0.39562E-05_JPRB,0.69464E-06_JPRB /)  
+KB(:, 2,30, 3) = (/ &
+ & 0.18255E-08_JPRB,0.30515E-05_JPRB,0.42293E-05_JPRB,0.42605E-05_JPRB,0.74588E-06_JPRB /)  
+KB(:, 3,30, 3) = (/ &
+ & 0.17291E-08_JPRB,0.32496E-05_JPRB,0.45390E-05_JPRB,0.45501E-05_JPRB,0.79957E-06_JPRB /)  
+KB(:, 4,30, 3) = (/ &
+ & 0.16419E-08_JPRB,0.34235E-05_JPRB,0.48191E-05_JPRB,0.48249E-05_JPRB,0.85373E-06_JPRB /)  
+KB(:, 5,30, 3) = (/ &
+ & 0.15626E-08_JPRB,0.35992E-05_JPRB,0.50632E-05_JPRB,0.50805E-05_JPRB,0.90582E-06_JPRB /)  
+KB(:, 1,31, 3) = (/ &
+ & 0.15590E-08_JPRB,0.23841E-05_JPRB,0.32890E-05_JPRB,0.33282E-05_JPRB,0.58108E-06_JPRB /)  
+KB(:, 2,31, 3) = (/ &
+ & 0.14736E-08_JPRB,0.25683E-05_JPRB,0.35605E-05_JPRB,0.35756E-05_JPRB,0.62401E-06_JPRB /)  
+KB(:, 3,31, 3) = (/ &
+ & 0.13967E-08_JPRB,0.27223E-05_JPRB,0.38055E-05_JPRB,0.38110E-05_JPRB,0.66862E-06_JPRB /)  
+KB(:, 4,31, 3) = (/ &
+ & 0.13271E-08_JPRB,0.28652E-05_JPRB,0.40295E-05_JPRB,0.40331E-05_JPRB,0.71216E-06_JPRB /)  
+KB(:, 5,31, 3) = (/ &
+ & 0.12637E-08_JPRB,0.30069E-05_JPRB,0.42257E-05_JPRB,0.42393E-05_JPRB,0.75527E-06_JPRB /)  
+KB(:, 1,32, 3) = (/ &
+ & 0.12575E-08_JPRB,0.20099E-05_JPRB,0.27764E-05_JPRB,0.27988E-05_JPRB,0.48614E-06_JPRB /)  
+KB(:, 2,32, 3) = (/ &
+ & 0.11895E-08_JPRB,0.21551E-05_JPRB,0.29961E-05_JPRB,0.29996E-05_JPRB,0.52199E-06_JPRB /)  
+KB(:, 3,32, 3) = (/ &
+ & 0.11282E-08_JPRB,0.22771E-05_JPRB,0.31901E-05_JPRB,0.31897E-05_JPRB,0.55867E-06_JPRB /)  
+KB(:, 4,32, 3) = (/ &
+ & 0.10726E-08_JPRB,0.23969E-05_JPRB,0.33657E-05_JPRB,0.33696E-05_JPRB,0.59410E-06_JPRB /)  
+KB(:, 5,32, 3) = (/ &
+ & 0.10218E-08_JPRB,0.25076E-05_JPRB,0.35232E-05_JPRB,0.35366E-05_JPRB,0.62965E-06_JPRB /)  
+KB(:, 1,33, 3) = (/ &
+ & 0.10144E-08_JPRB,0.16940E-05_JPRB,0.23421E-05_JPRB,0.23519E-05_JPRB,0.40701E-06_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART15',1,ZHOOK_HANDLE)
+END SUBROUTINE PART15
+
+
+SUBROUTINE PART16
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART16',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,33, 3) = (/ &
+ & 0.96024E-09_JPRB,0.18066E-05_JPRB,0.25146E-05_JPRB,0.25148E-05_JPRB,0.43657E-06_JPRB /)  
+KB(:, 3,33, 3) = (/ &
+ & 0.91134E-09_JPRB,0.19053E-05_JPRB,0.26738E-05_JPRB,0.26690E-05_JPRB,0.46656E-06_JPRB /)  
+KB(:, 4,33, 3) = (/ &
+ & 0.86689E-09_JPRB,0.20038E-05_JPRB,0.28104E-05_JPRB,0.28139E-05_JPRB,0.49516E-06_JPRB /)  
+KB(:, 5,33, 3) = (/ &
+ & 0.82630E-09_JPRB,0.20860E-05_JPRB,0.29294E-05_JPRB,0.29485E-05_JPRB,0.52462E-06_JPRB /)  
+KB(:, 1,34, 3) = (/ &
+ & 0.82000E-09_JPRB,0.14231E-05_JPRB,0.19661E-05_JPRB,0.19700E-05_JPRB,0.33996E-06_JPRB /)  
+KB(:, 2,34, 3) = (/ &
+ & 0.77672E-09_JPRB,0.15105E-05_JPRB,0.21047E-05_JPRB,0.21018E-05_JPRB,0.36435E-06_JPRB /)  
+KB(:, 3,34, 3) = (/ &
+ & 0.73757E-09_JPRB,0.15908E-05_JPRB,0.22307E-05_JPRB,0.22272E-05_JPRB,0.38851E-06_JPRB /)  
+KB(:, 4,34, 3) = (/ &
+ & 0.70193E-09_JPRB,0.16706E-05_JPRB,0.23421E-05_JPRB,0.23448E-05_JPRB,0.41219E-06_JPRB /)  
+KB(:, 5,34, 3) = (/ &
+ & 0.66936E-09_JPRB,0.17330E-05_JPRB,0.24342E-05_JPRB,0.24538E-05_JPRB,0.43607E-06_JPRB /)  
+KB(:, 1,35, 3) = (/ &
+ & 0.66652E-09_JPRB,0.11842E-05_JPRB,0.16383E-05_JPRB,0.16382E-05_JPRB,0.28183E-06_JPRB /)  
+KB(:, 2,35, 3) = (/ &
+ & 0.63156E-09_JPRB,0.12541E-05_JPRB,0.17499E-05_JPRB,0.17457E-05_JPRB,0.30195E-06_JPRB /)  
+KB(:, 3,35, 3) = (/ &
+ & 0.59990E-09_JPRB,0.13209E-05_JPRB,0.18504E-05_JPRB,0.18484E-05_JPRB,0.32174E-06_JPRB /)  
+KB(:, 4,35, 3) = (/ &
+ & 0.57107E-09_JPRB,0.13850E-05_JPRB,0.19418E-05_JPRB,0.19438E-05_JPRB,0.34124E-06_JPRB /)  
+KB(:, 5,35, 3) = (/ &
+ & 0.54470E-09_JPRB,0.14348E-05_JPRB,0.20135E-05_JPRB,0.20335E-05_JPRB,0.36050E-06_JPRB /)  
+KB(:, 1,36, 3) = (/ &
+ & 0.54506E-09_JPRB,0.97870E-06_JPRB,0.13541E-05_JPRB,0.13520E-05_JPRB,0.23190E-06_JPRB /)  
+KB(:, 2,36, 3) = (/ &
+ & 0.51650E-09_JPRB,0.10354E-05_JPRB,0.14455E-05_JPRB,0.14404E-05_JPRB,0.24845E-06_JPRB /)  
+KB(:, 3,36, 3) = (/ &
+ & 0.49063E-09_JPRB,0.10910E-05_JPRB,0.15270E-05_JPRB,0.15247E-05_JPRB,0.26464E-06_JPRB /)  
+KB(:, 4,36, 3) = (/ &
+ & 0.46707E-09_JPRB,0.11427E-05_JPRB,0.16012E-05_JPRB,0.16033E-05_JPRB,0.28072E-06_JPRB /)  
+KB(:, 5,36, 3) = (/ &
+ & 0.44553E-09_JPRB,0.11833E-05_JPRB,0.16604E-05_JPRB,0.16774E-05_JPRB,0.29643E-06_JPRB /)  
+KB(:, 1,37, 3) = (/ &
+ & 0.44949E-09_JPRB,0.80104E-06_JPRB,0.11066E-05_JPRB,0.11045E-05_JPRB,0.18888E-06_JPRB /)  
+KB(:, 2,37, 3) = (/ &
+ & 0.42579E-09_JPRB,0.84810E-06_JPRB,0.11826E-05_JPRB,0.11777E-05_JPRB,0.20242E-06_JPRB /)  
+KB(:, 3,37, 3) = (/ &
+ & 0.40435E-09_JPRB,0.89404E-06_JPRB,0.12504E-05_JPRB,0.12477E-05_JPRB,0.21578E-06_JPRB /)  
+KB(:, 4,37, 3) = (/ &
+ & 0.38483E-09_JPRB,0.93737E-06_JPRB,0.13124E-05_JPRB,0.13129E-05_JPRB,0.22892E-06_JPRB /)  
+KB(:, 5,37, 3) = (/ &
+ & 0.36699E-09_JPRB,0.97118E-06_JPRB,0.13617E-05_JPRB,0.13744E-05_JPRB,0.24190E-06_JPRB /)  
+KB(:, 1,38, 3) = (/ &
+ & 0.37088E-09_JPRB,0.65468E-06_JPRB,0.90347E-06_JPRB,0.90140E-06_JPRB,0.15371E-06_JPRB /)  
+KB(:, 2,38, 3) = (/ &
+ & 0.35120E-09_JPRB,0.69421E-06_JPRB,0.96676E-06_JPRB,0.96222E-06_JPRB,0.16484E-06_JPRB /)  
+KB(:, 3,38, 3) = (/ &
+ & 0.33340E-09_JPRB,0.73211E-06_JPRB,0.10233E-05_JPRB,0.10203E-05_JPRB,0.17578E-06_JPRB /)  
+KB(:, 4,38, 3) = (/ &
+ & 0.31721E-09_JPRB,0.76838E-06_JPRB,0.10750E-05_JPRB,0.10745E-05_JPRB,0.18656E-06_JPRB /)  
+KB(:, 5,38, 3) = (/ &
+ & 0.30242E-09_JPRB,0.79676E-06_JPRB,0.11164E-05_JPRB,0.11256E-05_JPRB,0.19730E-06_JPRB /)  
+KB(:, 1,39, 3) = (/ &
+ & 0.30603E-09_JPRB,0.53518E-06_JPRB,0.73755E-06_JPRB,0.73560E-06_JPRB,0.12509E-06_JPRB /)  
+KB(:, 2,39, 3) = (/ &
+ & 0.28967E-09_JPRB,0.56827E-06_JPRB,0.79017E-06_JPRB,0.78607E-06_JPRB,0.13420E-06_JPRB /)  
+KB(:, 3,39, 3) = (/ &
+ & 0.27490E-09_JPRB,0.59946E-06_JPRB,0.83729E-06_JPRB,0.83418E-06_JPRB,0.14320E-06_JPRB /)  
+KB(:, 4,39, 3) = (/ &
+ & 0.26148E-09_JPRB,0.62968E-06_JPRB,0.88045E-06_JPRB,0.87919E-06_JPRB,0.15206E-06_JPRB /)  
+KB(:, 5,39, 3) = (/ &
+ & 0.24922E-09_JPRB,0.65358E-06_JPRB,0.91511E-06_JPRB,0.92187E-06_JPRB,0.16092E-06_JPRB /)  
+KB(:, 1,40, 3) = (/ &
+ & 0.25401E-09_JPRB,0.43491E-06_JPRB,0.59706E-06_JPRB,0.59583E-06_JPRB,0.10103E-06_JPRB /)  
+KB(:, 2,40, 3) = (/ &
+ & 0.24027E-09_JPRB,0.46243E-06_JPRB,0.64127E-06_JPRB,0.63780E-06_JPRB,0.10854E-06_JPRB /)  
+KB(:, 3,40, 3) = (/ &
+ & 0.22788E-09_JPRB,0.48789E-06_JPRB,0.68111E-06_JPRB,0.67785E-06_JPRB,0.11596E-06_JPRB /)  
+KB(:, 4,40, 3) = (/ &
+ & 0.21664E-09_JPRB,0.51370E-06_JPRB,0.71776E-06_JPRB,0.71557E-06_JPRB,0.12318E-06_JPRB /)  
+KB(:, 5,40, 3) = (/ &
+ & 0.20639E-09_JPRB,0.53413E-06_JPRB,0.74738E-06_JPRB,0.75116E-06_JPRB,0.13055E-06_JPRB /)  
+KB(:, 1,41, 3) = (/ &
+ & 0.21103E-09_JPRB,0.35162E-06_JPRB,0.48245E-06_JPRB,0.48181E-06_JPRB,0.81551E-07_JPRB /)  
+KB(:, 2,41, 3) = (/ &
+ & 0.19947E-09_JPRB,0.37577E-06_JPRB,0.51975E-06_JPRB,0.51683E-06_JPRB,0.87624E-07_JPRB /)  
+KB(:, 3,41, 3) = (/ &
+ & 0.18906E-09_JPRB,0.39681E-06_JPRB,0.55372E-06_JPRB,0.55016E-06_JPRB,0.93775E-07_JPRB /)  
+KB(:, 4,41, 3) = (/ &
+ & 0.17963E-09_JPRB,0.41856E-06_JPRB,0.58405E-06_JPRB,0.58177E-06_JPRB,0.99677E-07_JPRB /)  
+KB(:, 5,41, 3) = (/ &
+ & 0.17105E-09_JPRB,0.43610E-06_JPRB,0.60957E-06_JPRB,0.61150E-06_JPRB,0.10578E-06_JPRB /)  
+KB(:, 1,42, 3) = (/ &
+ & 0.17536E-09_JPRB,0.28412E-06_JPRB,0.38948E-06_JPRB,0.38933E-06_JPRB,0.65791E-07_JPRB /)  
+KB(:, 2,42, 3) = (/ &
+ & 0.16563E-09_JPRB,0.30504E-06_JPRB,0.42097E-06_JPRB,0.41854E-06_JPRB,0.70752E-07_JPRB /)  
+KB(:, 3,42, 3) = (/ &
+ & 0.15688E-09_JPRB,0.32265E-06_JPRB,0.44957E-06_JPRB,0.44624E-06_JPRB,0.75790E-07_JPRB /)  
+KB(:, 4,42, 3) = (/ &
+ & 0.14897E-09_JPRB,0.34080E-06_JPRB,0.47502E-06_JPRB,0.47268E-06_JPRB,0.80648E-07_JPRB /)  
+KB(:, 5,42, 3) = (/ &
+ & 0.14178E-09_JPRB,0.35584E-06_JPRB,0.49696E-06_JPRB,0.49747E-06_JPRB,0.85685E-07_JPRB /)  
+KB(:, 1,43, 3) = (/ &
+ & 0.14625E-09_JPRB,0.22828E-06_JPRB,0.31269E-06_JPRB,0.31301E-06_JPRB,0.52858E-07_JPRB /)  
+KB(:, 2,43, 3) = (/ &
+ & 0.13800E-09_JPRB,0.24660E-06_JPRB,0.33945E-06_JPRB,0.33736E-06_JPRB,0.56872E-07_JPRB /)  
+KB(:, 3,43, 3) = (/ &
+ & 0.13060E-09_JPRB,0.26150E-06_JPRB,0.36382E-06_JPRB,0.36052E-06_JPRB,0.61005E-07_JPRB /)  
+KB(:, 4,43, 3) = (/ &
+ & 0.12392E-09_JPRB,0.27637E-06_JPRB,0.38496E-06_JPRB,0.38262E-06_JPRB,0.65064E-07_JPRB /)  
+KB(:, 5,43, 3) = (/ &
+ & 0.11786E-09_JPRB,0.28960E-06_JPRB,0.40432E-06_JPRB,0.40346E-06_JPRB,0.69134E-07_JPRB /)  
+KB(:, 1,44, 3) = (/ &
+ & 0.12220E-09_JPRB,0.18299E-06_JPRB,0.25003E-06_JPRB,0.25075E-06_JPRB,0.42426E-07_JPRB /)  
+KB(:, 2,44, 3) = (/ &
+ & 0.11518E-09_JPRB,0.19858E-06_JPRB,0.27271E-06_JPRB,0.27124E-06_JPRB,0.45605E-07_JPRB /)  
+KB(:, 3,44, 3) = (/ &
+ & 0.10890E-09_JPRB,0.21149E-06_JPRB,0.29306E-06_JPRB,0.29059E-06_JPRB,0.48989E-07_JPRB /)  
+KB(:, 4,44, 3) = (/ &
+ & 0.10324E-09_JPRB,0.22361E-06_JPRB,0.31128E-06_JPRB,0.30909E-06_JPRB,0.52357E-07_JPRB /)  
+KB(:, 5,44, 3) = (/ &
+ & 0.98119E-10_JPRB,0.23540E-06_JPRB,0.32782E-06_JPRB,0.32657E-06_JPRB,0.55650E-07_JPRB /)  
+KB(:, 1,45, 3) = (/ &
+ & 0.10215E-09_JPRB,0.14604E-06_JPRB,0.19957E-06_JPRB,0.20079E-06_JPRB,0.34009E-07_JPRB /)  
+KB(:, 2,45, 3) = (/ &
+ & 0.96168E-10_JPRB,0.15976E-06_JPRB,0.21859E-06_JPRB,0.21782E-06_JPRB,0.36565E-07_JPRB /)  
+KB(:, 3,45, 3) = (/ &
+ & 0.90832E-10_JPRB,0.17092E-06_JPRB,0.23594E-06_JPRB,0.23403E-06_JPRB,0.39336E-07_JPRB /)  
+KB(:, 4,45, 3) = (/ &
+ & 0.86039E-10_JPRB,0.18076E-06_JPRB,0.25148E-06_JPRB,0.24940E-06_JPRB,0.42120E-07_JPRB /)  
+KB(:, 5,45, 3) = (/ &
+ & 0.81705E-10_JPRB,0.19091E-06_JPRB,0.26579E-06_JPRB,0.26417E-06_JPRB,0.44806E-07_JPRB /)  
+KB(:, 1,46, 3) = (/ &
+ & 0.85548E-10_JPRB,0.11606E-06_JPRB,0.15858E-06_JPRB,0.16025E-06_JPRB,0.27138E-07_JPRB /)  
+KB(:, 2,46, 3) = (/ &
+ & 0.80430E-10_JPRB,0.12777E-06_JPRB,0.17465E-06_JPRB,0.17439E-06_JPRB,0.29260E-07_JPRB /)  
+KB(:, 3,46, 3) = (/ &
+ & 0.75882E-10_JPRB,0.13771E-06_JPRB,0.18956E-06_JPRB,0.18801E-06_JPRB,0.31519E-07_JPRB /)  
+KB(:, 4,46, 3) = (/ &
+ & 0.71807E-10_JPRB,0.14597E-06_JPRB,0.20282E-06_JPRB,0.20085E-06_JPRB,0.33790E-07_JPRB /)  
+KB(:, 5,46, 3) = (/ &
+ & 0.68131E-10_JPRB,0.15454E-06_JPRB,0.21485E-06_JPRB,0.21321E-06_JPRB,0.36016E-07_JPRB /)  
+KB(:, 1,47, 3) = (/ &
+ & 0.71880E-10_JPRB,0.91677E-07_JPRB,0.12518E-06_JPRB,0.12717E-06_JPRB,0.21548E-07_JPRB /)  
+KB(:, 2,47, 3) = (/ &
+ & 0.67474E-10_JPRB,0.10182E-06_JPRB,0.13885E-06_JPRB,0.13887E-06_JPRB,0.23366E-07_JPRB /)  
+KB(:, 3,47, 3) = (/ &
+ & 0.63573E-10_JPRB,0.11037E-06_JPRB,0.15155E-06_JPRB,0.15037E-06_JPRB,0.25140E-07_JPRB /)  
+KB(:, 4,47, 3) = (/ &
+ & 0.60089E-10_JPRB,0.11757E-06_JPRB,0.16292E-06_JPRB,0.16115E-06_JPRB,0.27023E-07_JPRB /)  
+KB(:, 5,47, 3) = (/ &
+ & 0.56955E-10_JPRB,0.12460E-06_JPRB,0.17303E-06_JPRB,0.17150E-06_JPRB,0.28886E-07_JPRB /)  
+KB(:, 1,48, 3) = (/ &
+ & 0.60438E-10_JPRB,0.72378E-07_JPRB,0.98586E-07_JPRB,0.10075E-06_JPRB,0.17068E-07_JPRB /)  
+KB(:, 2,48, 3) = (/ &
+ & 0.56639E-10_JPRB,0.80662E-07_JPRB,0.11003E-06_JPRB,0.11052E-06_JPRB,0.18643E-07_JPRB /)  
+KB(:, 3,48, 3) = (/ &
+ & 0.53288E-10_JPRB,0.88391E-07_JPRB,0.12069E-06_JPRB,0.12007E-06_JPRB,0.20050E-07_JPRB /)  
+KB(:, 4,48, 3) = (/ &
+ & 0.50306E-10_JPRB,0.94624E-07_JPRB,0.13045E-06_JPRB,0.12916E-06_JPRB,0.21587E-07_JPRB /)  
+KB(:, 5,48, 3) = (/ &
+ & 0.47632E-10_JPRB,0.10026E-06_JPRB,0.13914E-06_JPRB,0.13778E-06_JPRB,0.23136E-07_JPRB /)  
+KB(:, 1,49, 3) = (/ &
+ & 0.50856E-10_JPRB,0.57046E-07_JPRB,0.77565E-07_JPRB,0.79741E-07_JPRB,0.13510E-07_JPRB /)  
+KB(:, 2,49, 3) = (/ &
+ & 0.47574E-10_JPRB,0.63730E-07_JPRB,0.86939E-07_JPRB,0.87826E-07_JPRB,0.14811E-07_JPRB /)  
+KB(:, 3,49, 3) = (/ &
+ & 0.44692E-10_JPRB,0.70367E-07_JPRB,0.95974E-07_JPRB,0.95707E-07_JPRB,0.15992E-07_JPRB /)  
+KB(:, 4,49, 3) = (/ &
+ & 0.42136E-10_JPRB,0.75959E-07_JPRB,0.10441E-06_JPRB,0.10336E-06_JPRB,0.17235E-07_JPRB /)  
+KB(:, 5,49, 3) = (/ &
+ & 0.39851E-10_JPRB,0.80662E-07_JPRB,0.11179E-06_JPRB,0.11061E-06_JPRB,0.18501E-07_JPRB /)  
+KB(:, 1,50, 3) = (/ &
+ & 0.42752E-10_JPRB,0.44994E-07_JPRB,0.60933E-07_JPRB,0.63170E-07_JPRB,0.10733E-07_JPRB /)  
+KB(:, 2,50, 3) = (/ &
+ & 0.39920E-10_JPRB,0.50417E-07_JPRB,0.68695E-07_JPRB,0.69776E-07_JPRB,0.11778E-07_JPRB /)  
+KB(:, 3,50, 3) = (/ &
+ & 0.37445E-10_JPRB,0.56129E-07_JPRB,0.76381E-07_JPRB,0.76292E-07_JPRB,0.12796E-07_JPRB /)  
+KB(:, 4,50, 3) = (/ &
+ & 0.35258E-10_JPRB,0.60916E-07_JPRB,0.83533E-07_JPRB,0.82746E-07_JPRB,0.13770E-07_JPRB /)  
+KB(:, 5,50, 3) = (/ &
+ & 0.33309E-10_JPRB,0.65010E-07_JPRB,0.89933E-07_JPRB,0.88828E-07_JPRB,0.14809E-07_JPRB /)  
+KB(:, 1,51, 3) = (/ &
+ & 0.35935E-10_JPRB,0.35278E-07_JPRB,0.47901E-07_JPRB,0.50056E-07_JPRB,0.85239E-08_JPRB /)  
+KB(:, 2,51, 3) = (/ &
+ & 0.33494E-10_JPRB,0.39897E-07_JPRB,0.54245E-07_JPRB,0.55439E-07_JPRB,0.93562E-08_JPRB /)  
+KB(:, 3,51, 3) = (/ &
+ & 0.31368E-10_JPRB,0.44577E-07_JPRB,0.60687E-07_JPRB,0.60854E-07_JPRB,0.10229E-07_JPRB /)  
+KB(:, 4,51, 3) = (/ &
+ & 0.29497E-10_JPRB,0.48906E-07_JPRB,0.66668E-07_JPRB,0.66217E-07_JPRB,0.11009E-07_JPRB /)  
+KB(:, 5,51, 3) = (/ &
+ & 0.27834E-10_JPRB,0.52348E-07_JPRB,0.72154E-07_JPRB,0.71322E-07_JPRB,0.11856E-07_JPRB /)  
+KB(:, 1,52, 3) = (/ &
+ & 0.30227E-10_JPRB,0.27572E-07_JPRB,0.37524E-07_JPRB,0.39754E-07_JPRB,0.67198E-08_JPRB /)  
+KB(:, 2,52, 3) = (/ &
+ & 0.28118E-10_JPRB,0.31560E-07_JPRB,0.42810E-07_JPRB,0.44031E-07_JPRB,0.74267E-08_JPRB /)  
+KB(:, 3,52, 3) = (/ &
+ & 0.26290E-10_JPRB,0.35319E-07_JPRB,0.48079E-07_JPRB,0.48486E-07_JPRB,0.81511E-08_JPRB /)  
+KB(:, 4,52, 3) = (/ &
+ & 0.24687E-10_JPRB,0.39041E-07_JPRB,0.53141E-07_JPRB,0.52898E-07_JPRB,0.88044E-08_JPRB /)  
+KB(:, 5,52, 3) = (/ &
+ & 0.23267E-10_JPRB,0.42123E-07_JPRB,0.57835E-07_JPRB,0.57177E-07_JPRB,0.94934E-08_JPRB /)  
+KB(:, 1,53, 3) = (/ &
+ & 0.25448E-10_JPRB,0.21456E-07_JPRB,0.29324E-07_JPRB,0.31450E-07_JPRB,0.53035E-08_JPRB /)  
+KB(:, 2,53, 3) = (/ &
+ & 0.23623E-10_JPRB,0.24922E-07_JPRB,0.33706E-07_JPRB,0.34903E-07_JPRB,0.59025E-08_JPRB /)  
+KB(:, 3,53, 3) = (/ &
+ & 0.22048E-10_JPRB,0.27931E-07_JPRB,0.38009E-07_JPRB,0.38548E-07_JPRB,0.64842E-08_JPRB /)  
+KB(:, 4,53, 3) = (/ &
+ & 0.20673E-10_JPRB,0.31117E-07_JPRB,0.42293E-07_JPRB,0.42180E-07_JPRB,0.70454E-08_JPRB /)  
+KB(:, 5,53, 3) = (/ &
+ & 0.19459E-10_JPRB,0.33800E-07_JPRB,0.46316E-07_JPRB,0.45776E-07_JPRB,0.75886E-08_JPRB /)  
+KB(:, 1,54, 3) = (/ &
+ & 0.21390E-10_JPRB,0.16743E-07_JPRB,0.23031E-07_JPRB,0.24877E-07_JPRB,0.41777E-08_JPRB /)  
+KB(:, 2,54, 3) = (/ &
+ & 0.19815E-10_JPRB,0.19619E-07_JPRB,0.26556E-07_JPRB,0.27722E-07_JPRB,0.47031E-08_JPRB /)  
+KB(:, 3,54, 3) = (/ &
+ & 0.18463E-10_JPRB,0.22167E-07_JPRB,0.30101E-07_JPRB,0.30708E-07_JPRB,0.51646E-08_JPRB /)  
+KB(:, 4,54, 3) = (/ &
+ & 0.17286E-10_JPRB,0.24804E-07_JPRB,0.33704E-07_JPRB,0.33716E-07_JPRB,0.56448E-08_JPRB /)  
+KB(:, 5,54, 3) = (/ &
+ & 0.16251E-10_JPRB,0.27183E-07_JPRB,0.37049E-07_JPRB,0.36696E-07_JPRB,0.60788E-08_JPRB /)  
+KB(:, 1,55, 3) = (/ &
+ & 0.17973E-10_JPRB,0.13037E-07_JPRB,0.18115E-07_JPRB,0.19727E-07_JPRB,0.32912E-08_JPRB /)  
+KB(:, 2,55, 3) = (/ &
+ & 0.16615E-10_JPRB,0.15402E-07_JPRB,0.20942E-07_JPRB,0.22043E-07_JPRB,0.37301E-08_JPRB /)  
+KB(:, 3,55, 3) = (/ &
+ & 0.15454E-10_JPRB,0.17592E-07_JPRB,0.23848E-07_JPRB,0.24485E-07_JPRB,0.41129E-08_JPRB /)  
+KB(:, 4,55, 3) = (/ &
+ & 0.14448E-10_JPRB,0.19733E-07_JPRB,0.26815E-07_JPRB,0.26954E-07_JPRB,0.45146E-08_JPRB /)  
+KB(:, 5,55, 3) = (/ &
+ & 0.13565E-10_JPRB,0.21785E-07_JPRB,0.29633E-07_JPRB,0.29414E-07_JPRB,0.48762E-08_JPRB /)  
+KB(:, 1,56, 3) = (/ &
+ & 0.15112E-10_JPRB,0.10127E-07_JPRB,0.14262E-07_JPRB,0.15637E-07_JPRB,0.25986E-08_JPRB /)  
+KB(:, 2,56, 3) = (/ &
+ & 0.13939E-10_JPRB,0.12082E-07_JPRB,0.16458E-07_JPRB,0.17567E-07_JPRB,0.29510E-08_JPRB /)  
+KB(:, 3,56, 3) = (/ &
+ & 0.12942E-10_JPRB,0.13980E-07_JPRB,0.18876E-07_JPRB,0.19499E-07_JPRB,0.32803E-08_JPRB /)  
+KB(:, 4,56, 3) = (/ &
+ & 0.12080E-10_JPRB,0.15677E-07_JPRB,0.21298E-07_JPRB,0.21516E-07_JPRB,0.36078E-08_JPRB /)  
+KB(:, 5,56, 3) = (/ &
+ & 0.11328E-10_JPRB,0.17421E-07_JPRB,0.23674E-07_JPRB,0.23552E-07_JPRB,0.39142E-08_JPRB /)  
+KB(:, 1,57, 3) = (/ &
+ & 0.12716E-10_JPRB,0.78423E-08_JPRB,0.11218E-07_JPRB,0.12368E-07_JPRB,0.20572E-08_JPRB /)  
+KB(:, 2,57, 3) = (/ &
+ & 0.11703E-10_JPRB,0.94468E-08_JPRB,0.12944E-07_JPRB,0.13939E-07_JPRB,0.23449E-08_JPRB /)  
+KB(:, 3,57, 3) = (/ &
+ & 0.10844E-10_JPRB,0.11054E-07_JPRB,0.14933E-07_JPRB,0.15504E-07_JPRB,0.26161E-08_JPRB /)  
+KB(:, 4,57, 3) = (/ &
+ & 0.10105E-10_JPRB,0.12445E-07_JPRB,0.16895E-07_JPRB,0.17167E-07_JPRB,0.28789E-08_JPRB /)  
+KB(:, 5,57, 3) = (/ &
+ & 0.94629E-11_JPRB,0.13929E-07_JPRB,0.18884E-07_JPRB,0.18837E-07_JPRB,0.31391E-08_JPRB /)  
+KB(:, 1,58, 3) = (/ &
+ & 0.10694E-10_JPRB,0.61084E-08_JPRB,0.88278E-08_JPRB,0.97801E-08_JPRB,0.16192E-08_JPRB /)  
+KB(:, 2,58, 3) = (/ &
+ & 0.98180E-11_JPRB,0.73859E-08_JPRB,0.10206E-07_JPRB,0.11064E-07_JPRB,0.18486E-08_JPRB /)  
+KB(:, 3,58, 3) = (/ &
+ & 0.90797E-11_JPRB,0.87113E-08_JPRB,0.11801E-07_JPRB,0.12348E-07_JPRB,0.20872E-08_JPRB /)  
+KB(:, 4,58, 3) = (/ &
+ & 0.84478E-11_JPRB,0.99003E-08_JPRB,0.13409E-07_JPRB,0.13707E-07_JPRB,0.22967E-08_JPRB /)  
+KB(:, 5,58, 3) = (/ &
+ & 0.78998E-11_JPRB,0.11108E-07_JPRB,0.15069E-07_JPRB,0.15082E-07_JPRB,0.25182E-08_JPRB /)  
+KB(:, 1,59, 3) = (/ &
+ & 0.88513E-11_JPRB,0.49239E-08_JPRB,0.71386E-08_JPRB,0.79170E-08_JPRB,0.13089E-08_JPRB /)  
+KB(:, 2,59, 3) = (/ &
+ & 0.81187E-11_JPRB,0.59541E-08_JPRB,0.82539E-08_JPRB,0.89758E-08_JPRB,0.14952E-08_JPRB /)  
+KB(:, 3,59, 3) = (/ &
+ & 0.75021E-11_JPRB,0.70450E-08_JPRB,0.95567E-08_JPRB,0.10024E-07_JPRB,0.16919E-08_JPRB /)  
+KB(:, 4,59, 3) = (/ &
+ & 0.69753E-11_JPRB,0.80391E-08_JPRB,0.10874E-07_JPRB,0.11143E-07_JPRB,0.18646E-08_JPRB /)  
+KB(:, 5,59, 3) = (/ &
+ & 0.65191E-11_JPRB,0.90265E-08_JPRB,0.12240E-07_JPRB,0.12268E-07_JPRB,0.20471E-08_JPRB /)  
+KB(:, 1,13, 4) = (/ &
+ & 0.40115E-06_JPRB,0.20542E-03_JPRB,0.29006E-03_JPRB,0.29983E-03_JPRB,0.86404E-04_JPRB /)  
+KB(:, 2,13, 4) = (/ &
+ & 0.38503E-06_JPRB,0.22086E-03_JPRB,0.30833E-03_JPRB,0.32518E-03_JPRB,0.92611E-04_JPRB /)  
+KB(:, 3,13, 4) = (/ &
+ & 0.37042E-06_JPRB,0.23415E-03_JPRB,0.32674E-03_JPRB,0.34814E-03_JPRB,0.98878E-04_JPRB /)  
+KB(:, 4,13, 4) = (/ &
+ & 0.35699E-06_JPRB,0.24607E-03_JPRB,0.34335E-03_JPRB,0.36858E-03_JPRB,0.10559E-03_JPRB /)  
+KB(:, 5,13, 4) = (/ &
+ & 0.34439E-06_JPRB,0.25741E-03_JPRB,0.35943E-03_JPRB,0.38716E-03_JPRB,0.11262E-03_JPRB /)  
+KB(:, 1,14, 4) = (/ &
+ & 0.32717E-06_JPRB,0.17086E-03_JPRB,0.24121E-03_JPRB,0.25001E-03_JPRB,0.72120E-04_JPRB /)  
+KB(:, 2,14, 4) = (/ &
+ & 0.31411E-06_JPRB,0.18358E-03_JPRB,0.25599E-03_JPRB,0.27089E-03_JPRB,0.77351E-04_JPRB /)  
+KB(:, 3,14, 4) = (/ &
+ & 0.30225E-06_JPRB,0.19456E-03_JPRB,0.27149E-03_JPRB,0.29002E-03_JPRB,0.82676E-04_JPRB /)  
+KB(:, 4,14, 4) = (/ &
+ & 0.29132E-06_JPRB,0.20460E-03_JPRB,0.28544E-03_JPRB,0.30678E-03_JPRB,0.88331E-04_JPRB /)  
+KB(:, 5,14, 4) = (/ &
+ & 0.28105E-06_JPRB,0.21410E-03_JPRB,0.29919E-03_JPRB,0.32271E-03_JPRB,0.94451E-04_JPRB /)  
+KB(:, 1,15, 4) = (/ &
+ & 0.26673E-06_JPRB,0.14221E-03_JPRB,0.20048E-03_JPRB,0.20843E-03_JPRB,0.60213E-04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART16',1,ZHOOK_HANDLE)
+END SUBROUTINE PART16
+
+
+SUBROUTINE PART17
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART17',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,15, 4) = (/ &
+ & 0.25615E-06_JPRB,0.15268E-03_JPRB,0.21264E-03_JPRB,0.22531E-03_JPRB,0.64531E-04_JPRB /)  
+KB(:, 3,15, 4) = (/ &
+ & 0.24652E-06_JPRB,0.16170E-03_JPRB,0.22567E-03_JPRB,0.24157E-03_JPRB,0.69102E-04_JPRB /)  
+KB(:, 4,15, 4) = (/ &
+ & 0.23764E-06_JPRB,0.17023E-03_JPRB,0.23750E-03_JPRB,0.25543E-03_JPRB,0.73891E-04_JPRB /)  
+KB(:, 5,15, 4) = (/ &
+ & 0.22926E-06_JPRB,0.17815E-03_JPRB,0.24912E-03_JPRB,0.26892E-03_JPRB,0.79167E-04_JPRB /)  
+KB(:, 1,16, 4) = (/ &
+ & 0.21740E-06_JPRB,0.11824E-03_JPRB,0.16644E-03_JPRB,0.17381E-03_JPRB,0.50227E-04_JPRB /)  
+KB(:, 2,16, 4) = (/ &
+ & 0.20884E-06_JPRB,0.12696E-03_JPRB,0.17683E-03_JPRB,0.18780E-03_JPRB,0.53903E-04_JPRB /)  
+KB(:, 3,16, 4) = (/ &
+ & 0.20104E-06_JPRB,0.13434E-03_JPRB,0.18764E-03_JPRB,0.20094E-03_JPRB,0.57777E-04_JPRB /)  
+KB(:, 4,16, 4) = (/ &
+ & 0.19381E-06_JPRB,0.14177E-03_JPRB,0.19757E-03_JPRB,0.21259E-03_JPRB,0.61821E-04_JPRB /)  
+KB(:, 5,16, 4) = (/ &
+ & 0.18698E-06_JPRB,0.14828E-03_JPRB,0.20747E-03_JPRB,0.22416E-03_JPRB,0.66326E-04_JPRB /)  
+KB(:, 1,17, 4) = (/ &
+ & 0.17724E-06_JPRB,0.98287E-04_JPRB,0.13813E-03_JPRB,0.14496E-03_JPRB,0.41851E-04_JPRB /)  
+KB(:, 2,17, 4) = (/ &
+ & 0.17029E-06_JPRB,0.10548E-03_JPRB,0.14701E-03_JPRB,0.15636E-03_JPRB,0.44943E-04_JPRB /)  
+KB(:, 3,17, 4) = (/ &
+ & 0.16396E-06_JPRB,0.11169E-03_JPRB,0.15605E-03_JPRB,0.16727E-03_JPRB,0.48176E-04_JPRB /)  
+KB(:, 4,17, 4) = (/ &
+ & 0.15809E-06_JPRB,0.11795E-03_JPRB,0.16435E-03_JPRB,0.17684E-03_JPRB,0.51716E-04_JPRB /)  
+KB(:, 5,17, 4) = (/ &
+ & 0.15251E-06_JPRB,0.12332E-03_JPRB,0.17265E-03_JPRB,0.18683E-03_JPRB,0.55480E-04_JPRB /)  
+KB(:, 1,18, 4) = (/ &
+ & 0.14450E-06_JPRB,0.81703E-04_JPRB,0.11464E-03_JPRB,0.12079E-03_JPRB,0.34849E-04_JPRB /)  
+KB(:, 2,18, 4) = (/ &
+ & 0.13887E-06_JPRB,0.87580E-04_JPRB,0.12224E-03_JPRB,0.13028E-03_JPRB,0.37465E-04_JPRB /)  
+KB(:, 3,18, 4) = (/ &
+ & 0.13373E-06_JPRB,0.92869E-04_JPRB,0.12966E-03_JPRB,0.13906E-03_JPRB,0.40225E-04_JPRB /)  
+KB(:, 4,18, 4) = (/ &
+ & 0.12896E-06_JPRB,0.98034E-04_JPRB,0.13668E-03_JPRB,0.14712E-03_JPRB,0.43227E-04_JPRB /)  
+KB(:, 5,18, 4) = (/ &
+ & 0.12439E-06_JPRB,0.10250E-03_JPRB,0.14367E-03_JPRB,0.15557E-03_JPRB,0.46383E-04_JPRB /)  
+KB(:, 1,19, 4) = (/ &
+ & 0.11782E-06_JPRB,0.67922E-04_JPRB,0.95121E-04_JPRB,0.10059E-03_JPRB,0.29014E-04_JPRB /)  
+KB(:, 2,19, 4) = (/ &
+ & 0.11325E-06_JPRB,0.72759E-04_JPRB,0.10166E-03_JPRB,0.10843E-03_JPRB,0.31239E-04_JPRB /)  
+KB(:, 3,19, 4) = (/ &
+ & 0.10909E-06_JPRB,0.77213E-04_JPRB,0.10769E-03_JPRB,0.11563E-03_JPRB,0.33594E-04_JPRB /)  
+KB(:, 4,19, 4) = (/ &
+ & 0.10521E-06_JPRB,0.81507E-04_JPRB,0.11367E-03_JPRB,0.12244E-03_JPRB,0.36087E-04_JPRB /)  
+KB(:, 5,19, 4) = (/ &
+ & 0.10146E-06_JPRB,0.85229E-04_JPRB,0.11951E-03_JPRB,0.12955E-03_JPRB,0.38760E-04_JPRB /)  
+KB(:, 1,20, 4) = (/ &
+ & 0.96005E-07_JPRB,0.56539E-04_JPRB,0.79048E-04_JPRB,0.83638E-04_JPRB,0.24182E-04_JPRB /)  
+KB(:, 2,20, 4) = (/ &
+ & 0.92311E-07_JPRB,0.60522E-04_JPRB,0.84506E-04_JPRB,0.90308E-04_JPRB,0.26052E-04_JPRB /)  
+KB(:, 3,20, 4) = (/ &
+ & 0.88927E-07_JPRB,0.64305E-04_JPRB,0.89608E-04_JPRB,0.96229E-04_JPRB,0.28071E-04_JPRB /)  
+KB(:, 4,20, 4) = (/ &
+ & 0.85775E-07_JPRB,0.67811E-04_JPRB,0.94659E-04_JPRB,0.10203E-03_JPRB,0.30185E-04_JPRB /)  
+KB(:, 5,20, 4) = (/ &
+ & 0.82709E-07_JPRB,0.70967E-04_JPRB,0.99551E-04_JPRB,0.10796E-03_JPRB,0.32438E-04_JPRB /)  
+KB(:, 1,21, 4) = (/ &
+ & 0.78225E-07_JPRB,0.47094E-04_JPRB,0.65736E-04_JPRB,0.69706E-04_JPRB,0.20168E-04_JPRB /)  
+KB(:, 2,21, 4) = (/ &
+ & 0.75235E-07_JPRB,0.50383E-04_JPRB,0.70309E-04_JPRB,0.75210E-04_JPRB,0.21748E-04_JPRB /)  
+KB(:, 3,21, 4) = (/ &
+ & 0.72491E-07_JPRB,0.53581E-04_JPRB,0.74579E-04_JPRB,0.80106E-04_JPRB,0.23442E-04_JPRB /)  
+KB(:, 4,21, 4) = (/ &
+ & 0.69929E-07_JPRB,0.56448E-04_JPRB,0.78864E-04_JPRB,0.85108E-04_JPRB,0.25248E-04_JPRB /)  
+KB(:, 5,21, 4) = (/ &
+ & 0.67419E-07_JPRB,0.59090E-04_JPRB,0.82932E-04_JPRB,0.89870E-04_JPRB,0.27098E-04_JPRB /)  
+KB(:, 1,22, 4) = (/ &
+ & 0.63572E-07_JPRB,0.39426E-04_JPRB,0.54979E-04_JPRB,0.58443E-04_JPRB,0.16913E-04_JPRB /)  
+KB(:, 2,22, 4) = (/ &
+ & 0.61166E-07_JPRB,0.42097E-04_JPRB,0.58779E-04_JPRB,0.62933E-04_JPRB,0.18259E-04_JPRB /)  
+KB(:, 3,22, 4) = (/ &
+ & 0.58951E-07_JPRB,0.44794E-04_JPRB,0.62330E-04_JPRB,0.66952E-04_JPRB,0.19670E-04_JPRB /)  
+KB(:, 4,22, 4) = (/ &
+ & 0.56872E-07_JPRB,0.47147E-04_JPRB,0.65961E-04_JPRB,0.71230E-04_JPRB,0.21221E-04_JPRB /)  
+KB(:, 5,22, 4) = (/ &
+ & 0.54822E-07_JPRB,0.49377E-04_JPRB,0.69234E-04_JPRB,0.75038E-04_JPRB,0.22743E-04_JPRB /)  
+KB(:, 1,23, 4) = (/ &
+ & 0.51656E-07_JPRB,0.32950E-04_JPRB,0.46052E-04_JPRB,0.49084E-04_JPRB,0.14181E-04_JPRB /)  
+KB(:, 2,23, 4) = (/ &
+ & 0.49721E-07_JPRB,0.35250E-04_JPRB,0.49106E-04_JPRB,0.52675E-04_JPRB,0.15330E-04_JPRB /)  
+KB(:, 3,23, 4) = (/ &
+ & 0.47930E-07_JPRB,0.37438E-04_JPRB,0.52152E-04_JPRB,0.56097E-04_JPRB,0.16532E-04_JPRB /)  
+KB(:, 4,23, 4) = (/ &
+ & 0.46242E-07_JPRB,0.39418E-04_JPRB,0.55160E-04_JPRB,0.59674E-04_JPRB,0.17811E-04_JPRB /)  
+KB(:, 5,23, 4) = (/ &
+ & 0.44570E-07_JPRB,0.41280E-04_JPRB,0.57899E-04_JPRB,0.62654E-04_JPRB,0.19100E-04_JPRB /)  
+KB(:, 1,24, 4) = (/ &
+ & 0.41962E-07_JPRB,0.27608E-04_JPRB,0.38527E-04_JPRB,0.41167E-04_JPRB,0.11908E-04_JPRB /)  
+KB(:, 2,24, 4) = (/ &
+ & 0.40405E-07_JPRB,0.29547E-04_JPRB,0.41099E-04_JPRB,0.44081E-04_JPRB,0.12880E-04_JPRB /)  
+KB(:, 3,24, 4) = (/ &
+ & 0.38959E-07_JPRB,0.31321E-04_JPRB,0.43687E-04_JPRB,0.47051E-04_JPRB,0.13912E-04_JPRB /)  
+KB(:, 4,24, 4) = (/ &
+ & 0.37583E-07_JPRB,0.32994E-04_JPRB,0.46190E-04_JPRB,0.49890E-04_JPRB,0.14961E-04_JPRB /)  
+KB(:, 5,24, 4) = (/ &
+ & 0.36227E-07_JPRB,0.34560E-04_JPRB,0.48473E-04_JPRB,0.52358E-04_JPRB,0.16039E-04_JPRB /)  
+KB(:, 1,25, 4) = (/ &
+ & 0.34075E-07_JPRB,0.23153E-04_JPRB,0.32305E-04_JPRB,0.34566E-04_JPRB,0.10014E-04_JPRB /)  
+KB(:, 2,25, 4) = (/ &
+ & 0.32822E-07_JPRB,0.24769E-04_JPRB,0.34435E-04_JPRB,0.36968E-04_JPRB,0.10822E-04_JPRB /)  
+KB(:, 3,25, 4) = (/ &
+ & 0.31655E-07_JPRB,0.26242E-04_JPRB,0.36635E-04_JPRB,0.39484E-04_JPRB,0.11699E-04_JPRB /)  
+KB(:, 4,25, 4) = (/ &
+ & 0.30528E-07_JPRB,0.27624E-04_JPRB,0.38648E-04_JPRB,0.41770E-04_JPRB,0.12588E-04_JPRB /)  
+KB(:, 5,25, 4) = (/ &
+ & 0.29434E-07_JPRB,0.28951E-04_JPRB,0.40632E-04_JPRB,0.43774E-04_JPRB,0.13479E-04_JPRB /)  
+KB(:, 1,26, 4) = (/ &
+ & 0.27652E-07_JPRB,0.19460E-04_JPRB,0.27114E-04_JPRB,0.29052E-04_JPRB,0.84372E-05_JPRB /)  
+KB(:, 2,26, 4) = (/ &
+ & 0.26645E-07_JPRB,0.20785E-04_JPRB,0.28933E-04_JPRB,0.31091E-04_JPRB,0.91305E-05_JPRB /)  
+KB(:, 3,26, 4) = (/ &
+ & 0.25703E-07_JPRB,0.22018E-04_JPRB,0.30749E-04_JPRB,0.33173E-04_JPRB,0.98560E-05_JPRB /)  
+KB(:, 4,26, 4) = (/ &
+ & 0.24780E-07_JPRB,0.23166E-04_JPRB,0.32405E-04_JPRB,0.34971E-04_JPRB,0.10593E-04_JPRB /)  
+KB(:, 5,26, 4) = (/ &
+ & 0.23900E-07_JPRB,0.24286E-04_JPRB,0.34048E-04_JPRB,0.36663E-04_JPRB,0.11346E-04_JPRB /)  
+KB(:, 1,27, 4) = (/ &
+ & 0.22439E-07_JPRB,0.16370E-04_JPRB,0.22763E-04_JPRB,0.24397E-04_JPRB,0.71084E-05_JPRB /)  
+KB(:, 2,27, 4) = (/ &
+ & 0.21628E-07_JPRB,0.17461E-04_JPRB,0.24318E-04_JPRB,0.26140E-04_JPRB,0.76961E-05_JPRB /)  
+KB(:, 3,27, 4) = (/ &
+ & 0.20865E-07_JPRB,0.18493E-04_JPRB,0.25826E-04_JPRB,0.27824E-04_JPRB,0.83080E-05_JPRB /)  
+KB(:, 4,27, 4) = (/ &
+ & 0.20113E-07_JPRB,0.19452E-04_JPRB,0.27215E-04_JPRB,0.29287E-04_JPRB,0.89207E-05_JPRB /)  
+KB(:, 5,27, 4) = (/ &
+ & 0.19405E-07_JPRB,0.20376E-04_JPRB,0.28543E-04_JPRB,0.30710E-04_JPRB,0.95477E-05_JPRB /)  
+KB(:, 1,28, 4) = (/ &
+ & 0.18208E-07_JPRB,0.13777E-04_JPRB,0.19138E-04_JPRB,0.20524E-04_JPRB,0.59952E-05_JPRB /)  
+KB(:, 2,28, 4) = (/ &
+ & 0.17555E-07_JPRB,0.14679E-04_JPRB,0.20448E-04_JPRB,0.21996E-04_JPRB,0.64907E-05_JPRB /)  
+KB(:, 3,28, 4) = (/ &
+ & 0.16936E-07_JPRB,0.15522E-04_JPRB,0.21661E-04_JPRB,0.23357E-04_JPRB,0.69966E-05_JPRB /)  
+KB(:, 4,28, 4) = (/ &
+ & 0.16325E-07_JPRB,0.16334E-04_JPRB,0.22846E-04_JPRB,0.24537E-04_JPRB,0.75124E-05_JPRB /)  
+KB(:, 5,28, 4) = (/ &
+ & 0.15755E-07_JPRB,0.17088E-04_JPRB,0.23931E-04_JPRB,0.25722E-04_JPRB,0.80305E-05_JPRB /)  
+KB(:, 1,29, 4) = (/ &
+ & 0.14772E-07_JPRB,0.11598E-04_JPRB,0.16117E-04_JPRB,0.17294E-04_JPRB,0.50602E-05_JPRB /)  
+KB(:, 2,29, 4) = (/ &
+ & 0.14246E-07_JPRB,0.12346E-04_JPRB,0.17198E-04_JPRB,0.18521E-04_JPRB,0.54799E-05_JPRB /)  
+KB(:, 3,29, 4) = (/ &
+ & 0.13739E-07_JPRB,0.13047E-04_JPRB,0.18205E-04_JPRB,0.19566E-04_JPRB,0.58992E-05_JPRB /)  
+KB(:, 4,29, 4) = (/ &
+ & 0.13247E-07_JPRB,0.13729E-04_JPRB,0.19173E-04_JPRB,0.20574E-04_JPRB,0.63251E-05_JPRB /)  
+KB(:, 5,29, 4) = (/ &
+ & 0.12789E-07_JPRB,0.14341E-04_JPRB,0.20068E-04_JPRB,0.21536E-04_JPRB,0.67496E-05_JPRB /)  
+KB(:, 1,30, 4) = (/ &
+ & 0.11984E-07_JPRB,0.97679E-05_JPRB,0.13568E-04_JPRB,0.14565E-04_JPRB,0.42721E-05_JPRB /)  
+KB(:, 2,30, 4) = (/ &
+ & 0.11560E-07_JPRB,0.10389E-04_JPRB,0.14461E-04_JPRB,0.15560E-04_JPRB,0.46182E-05_JPRB /)  
+KB(:, 3,30, 4) = (/ &
+ & 0.11144E-07_JPRB,0.10973E-04_JPRB,0.15302E-04_JPRB,0.16410E-04_JPRB,0.49715E-05_JPRB /)  
+KB(:, 4,30, 4) = (/ &
+ & 0.10750E-07_JPRB,0.11532E-04_JPRB,0.16091E-04_JPRB,0.17244E-04_JPRB,0.53212E-05_JPRB /)  
+KB(:, 5,30, 4) = (/ &
+ & 0.10381E-07_JPRB,0.12034E-04_JPRB,0.16821E-04_JPRB,0.18023E-04_JPRB,0.56712E-05_JPRB /)  
+KB(:, 1,31, 4) = (/ &
+ & 0.97205E-08_JPRB,0.82296E-05_JPRB,0.11440E-04_JPRB,0.12288E-04_JPRB,0.36079E-05_JPRB /)  
+KB(:, 2,31, 4) = (/ &
+ & 0.93777E-08_JPRB,0.87431E-05_JPRB,0.12158E-04_JPRB,0.13067E-04_JPRB,0.38974E-05_JPRB /)  
+KB(:, 3,31, 4) = (/ &
+ & 0.90391E-08_JPRB,0.92300E-05_JPRB,0.12862E-04_JPRB,0.13769E-04_JPRB,0.41885E-05_JPRB /)  
+KB(:, 4,31, 4) = (/ &
+ & 0.87219E-08_JPRB,0.96854E-05_JPRB,0.13508E-04_JPRB,0.14454E-04_JPRB,0.44756E-05_JPRB /)  
+KB(:, 5,31, 4) = (/ &
+ & 0.84251E-08_JPRB,0.10101E-04_JPRB,0.14090E-04_JPRB,0.15064E-04_JPRB,0.47643E-05_JPRB /)  
+KB(:, 1,32, 4) = (/ &
+ & 0.78842E-08_JPRB,0.69379E-05_JPRB,0.96378E-05_JPRB,0.10350E-04_JPRB,0.30462E-05_JPRB /)  
+KB(:, 2,32, 4) = (/ &
+ & 0.76058E-08_JPRB,0.73605E-05_JPRB,0.10230E-04_JPRB,0.10964E-04_JPRB,0.32879E-05_JPRB /)  
+KB(:, 3,32, 4) = (/ &
+ & 0.73312E-08_JPRB,0.77685E-05_JPRB,0.10806E-04_JPRB,0.11552E-04_JPRB,0.35258E-05_JPRB /)  
+KB(:, 4,32, 4) = (/ &
+ & 0.70761E-08_JPRB,0.81393E-05_JPRB,0.11329E-04_JPRB,0.12109E-04_JPRB,0.37642E-05_JPRB /)  
+KB(:, 5,32, 4) = (/ &
+ & 0.68375E-08_JPRB,0.84723E-05_JPRB,0.11806E-04_JPRB,0.12582E-04_JPRB,0.40027E-05_JPRB /)  
+KB(:, 1,33, 4) = (/ &
+ & 0.63946E-08_JPRB,0.58484E-05_JPRB,0.81132E-05_JPRB,0.87138E-05_JPRB,0.25722E-05_JPRB /)  
+KB(:, 2,33, 4) = (/ &
+ & 0.61668E-08_JPRB,0.61985E-05_JPRB,0.86152E-05_JPRB,0.92043E-05_JPRB,0.27716E-05_JPRB /)  
+KB(:, 3,33, 4) = (/ &
+ & 0.59460E-08_JPRB,0.65329E-05_JPRB,0.90761E-05_JPRB,0.96914E-05_JPRB,0.29672E-05_JPRB /)  
+KB(:, 4,33, 4) = (/ &
+ & 0.57410E-08_JPRB,0.68349E-05_JPRB,0.94991E-05_JPRB,0.10128E-04_JPRB,0.31649E-05_JPRB /)  
+KB(:, 5,33, 4) = (/ &
+ & 0.55490E-08_JPRB,0.71098E-05_JPRB,0.98972E-05_JPRB,0.10494E-04_JPRB,0.33613E-05_JPRB /)  
+KB(:, 1,34, 4) = (/ &
+ & 0.51931E-08_JPRB,0.49155E-05_JPRB,0.68122E-05_JPRB,0.73003E-05_JPRB,0.21648E-05_JPRB /)  
+KB(:, 2,34, 4) = (/ &
+ & 0.50066E-08_JPRB,0.52108E-05_JPRB,0.72299E-05_JPRB,0.77128E-05_JPRB,0.23280E-05_JPRB /)  
+KB(:, 3,34, 4) = (/ &
+ & 0.48289E-08_JPRB,0.54838E-05_JPRB,0.76076E-05_JPRB,0.81077E-05_JPRB,0.24906E-05_JPRB /)  
+KB(:, 4,34, 4) = (/ &
+ & 0.46636E-08_JPRB,0.57271E-05_JPRB,0.79460E-05_JPRB,0.84494E-05_JPRB,0.26534E-05_JPRB /)  
+KB(:, 5,34, 4) = (/ &
+ & 0.45089E-08_JPRB,0.59543E-05_JPRB,0.82751E-05_JPRB,0.87422E-05_JPRB,0.28159E-05_JPRB /)  
+KB(:, 1,35, 4) = (/ &
+ & 0.42177E-08_JPRB,0.41104E-05_JPRB,0.56914E-05_JPRB,0.60852E-05_JPRB,0.18078E-05_JPRB /)  
+KB(:, 2,35, 4) = (/ &
+ & 0.40795E-08_JPRB,0.43580E-05_JPRB,0.60334E-05_JPRB,0.64274E-05_JPRB,0.19421E-05_JPRB /)  
+KB(:, 3,35, 4) = (/ &
+ & 0.39353E-08_JPRB,0.45814E-05_JPRB,0.63407E-05_JPRB,0.67443E-05_JPRB,0.20767E-05_JPRB /)  
+KB(:, 4,35, 4) = (/ &
+ & 0.38012E-08_JPRB,0.47803E-05_JPRB,0.66196E-05_JPRB,0.70144E-05_JPRB,0.22114E-05_JPRB /)  
+KB(:, 5,35, 4) = (/ &
+ & 0.36756E-08_JPRB,0.49682E-05_JPRB,0.68884E-05_JPRB,0.72539E-05_JPRB,0.23458E-05_JPRB /)  
+KB(:, 1,36, 4) = (/ &
+ & 0.34162E-08_JPRB,0.34141E-05_JPRB,0.47224E-05_JPRB,0.50412E-05_JPRB,0.14965E-05_JPRB /)  
+KB(:, 2,36, 4) = (/ &
+ & 0.33196E-08_JPRB,0.36215E-05_JPRB,0.50037E-05_JPRB,0.53241E-05_JPRB,0.16078E-05_JPRB /)  
+KB(:, 3,36, 4) = (/ &
+ & 0.32195E-08_JPRB,0.38064E-05_JPRB,0.52583E-05_JPRB,0.55817E-05_JPRB,0.17188E-05_JPRB /)  
+KB(:, 4,36, 4) = (/ &
+ & 0.31099E-08_JPRB,0.39715E-05_JPRB,0.54881E-05_JPRB,0.58006E-05_JPRB,0.18307E-05_JPRB /)  
+KB(:, 5,36, 4) = (/ &
+ & 0.30072E-08_JPRB,0.41270E-05_JPRB,0.57065E-05_JPRB,0.59974E-05_JPRB,0.19419E-05_JPRB /)  
+KB(:, 1,37, 4) = (/ &
+ & 0.28008E-08_JPRB,0.28094E-05_JPRB,0.38801E-05_JPRB,0.41393E-05_JPRB,0.12248E-05_JPRB /)  
+KB(:, 2,37, 4) = (/ &
+ & 0.27121E-08_JPRB,0.29836E-05_JPRB,0.41155E-05_JPRB,0.43748E-05_JPRB,0.13168E-05_JPRB /)  
+KB(:, 3,37, 4) = (/ &
+ & 0.26482E-08_JPRB,0.31397E-05_JPRB,0.43282E-05_JPRB,0.45885E-05_JPRB,0.14087E-05_JPRB /)  
+KB(:, 4,37, 4) = (/ &
+ & 0.25576E-08_JPRB,0.32779E-05_JPRB,0.45200E-05_JPRB,0.47706E-05_JPRB,0.15013E-05_JPRB /)  
+KB(:, 5,37, 4) = (/ &
+ & 0.24727E-08_JPRB,0.34082E-05_JPRB,0.47023E-05_JPRB,0.49354E-05_JPRB,0.15935E-05_JPRB /)  
+KB(:, 1,38, 4) = (/ &
+ & 0.22984E-08_JPRB,0.23106E-05_JPRB,0.31856E-05_JPRB,0.33961E-05_JPRB,0.10016E-05_JPRB /)  
+KB(:, 2,38, 4) = (/ &
+ & 0.22220E-08_JPRB,0.24563E-05_JPRB,0.33826E-05_JPRB,0.35915E-05_JPRB,0.10776E-05_JPRB /)  
+KB(:, 3,38, 4) = (/ &
+ & 0.21588E-08_JPRB,0.25882E-05_JPRB,0.35600E-05_JPRB,0.37696E-05_JPRB,0.11538E-05_JPRB /)  
+KB(:, 4,38, 4) = (/ &
+ & 0.21040E-08_JPRB,0.27033E-05_JPRB,0.37199E-05_JPRB,0.39213E-05_JPRB,0.12304E-05_JPRB /)  
+KB(:, 5,38, 4) = (/ &
+ & 0.20339E-08_JPRB,0.28122E-05_JPRB,0.38728E-05_JPRB,0.40597E-05_JPRB,0.13067E-05_JPRB /)  
+KB(:, 1,39, 4) = (/ &
+ & 0.18867E-08_JPRB,0.18990E-05_JPRB,0.26147E-05_JPRB,0.27855E-05_JPRB,0.81895E-06_JPRB /)  
+KB(:, 2,39, 4) = (/ &
+ & 0.18219E-08_JPRB,0.20211E-05_JPRB,0.27789E-05_JPRB,0.29482E-05_JPRB,0.88168E-06_JPRB /)  
+KB(:, 3,39, 4) = (/ &
+ & 0.17671E-08_JPRB,0.21324E-05_JPRB,0.29272E-05_JPRB,0.30962E-05_JPRB,0.94475E-06_JPRB /)  
+KB(:, 4,39, 4) = (/ &
+ & 0.17201E-08_JPRB,0.22287E-05_JPRB,0.30607E-05_JPRB,0.32231E-05_JPRB,0.10080E-05_JPRB /)  
+KB(:, 5,39, 4) = (/ &
+ & 0.16729E-08_JPRB,0.23197E-05_JPRB,0.31885E-05_JPRB,0.33389E-05_JPRB,0.10713E-05_JPRB /)  
+KB(:, 1,40, 4) = (/ &
+ & 0.15567E-08_JPRB,0.15486E-05_JPRB,0.21299E-05_JPRB,0.22697E-05_JPRB,0.66418E-06_JPRB /)  
+KB(:, 2,40, 4) = (/ &
+ & 0.15030E-08_JPRB,0.16525E-05_JPRB,0.22686E-05_JPRB,0.24063E-05_JPRB,0.71591E-06_JPRB /)  
+KB(:, 3,40, 4) = (/ &
+ & 0.14559E-08_JPRB,0.17468E-05_JPRB,0.23938E-05_JPRB,0.25304E-05_JPRB,0.76804E-06_JPRB /)  
+KB(:, 4,40, 4) = (/ &
+ & 0.14147E-08_JPRB,0.18284E-05_JPRB,0.25062E-05_JPRB,0.26377E-05_JPRB,0.82053E-06_JPRB /)  
+KB(:, 5,40, 4) = (/ &
+ & 0.13808E-08_JPRB,0.19051E-05_JPRB,0.26142E-05_JPRB,0.27362E-05_JPRB,0.87282E-06_JPRB /)  
+KB(:, 1,41, 4) = (/ &
+ & 0.12855E-08_JPRB,0.12622E-05_JPRB,0.17326E-05_JPRB,0.18472E-05_JPRB,0.53778E-06_JPRB /)  
+KB(:, 2,41, 4) = (/ &
+ & 0.12414E-08_JPRB,0.13486E-05_JPRB,0.18494E-05_JPRB,0.19612E-05_JPRB,0.58062E-06_JPRB /)  
+KB(:, 3,41, 4) = (/ &
+ & 0.12006E-08_JPRB,0.14290E-05_JPRB,0.19551E-05_JPRB,0.20665E-05_JPRB,0.62365E-06_JPRB /)  
+KB(:, 4,41, 4) = (/ &
+ & 0.11655E-08_JPRB,0.14984E-05_JPRB,0.20506E-05_JPRB,0.21570E-05_JPRB,0.66707E-06_JPRB /)  
+KB(:, 5,41, 4) = (/ &
+ & 0.11366E-08_JPRB,0.15630E-05_JPRB,0.21416E-05_JPRB,0.22404E-05_JPRB,0.71035E-06_JPRB /)  
+KB(:, 1,42, 4) = (/ &
+ & 0.10616E-08_JPRB,0.10273E-05_JPRB,0.14085E-05_JPRB,0.15034E-05_JPRB,0.43514E-06_JPRB /)  
+KB(:, 2,42, 4) = (/ &
+ & 0.10250E-08_JPRB,0.10997E-05_JPRB,0.15070E-05_JPRB,0.15973E-05_JPRB,0.47061E-06_JPRB /)  
+KB(:, 3,42, 4) = (/ &
+ & 0.99030E-09_JPRB,0.11679E-05_JPRB,0.15953E-05_JPRB,0.16861E-05_JPRB,0.50613E-06_JPRB /)  
+KB(:, 4,42, 4) = (/ &
+ & 0.96062E-09_JPRB,0.12272E-05_JPRB,0.16766E-05_JPRB,0.17642E-05_JPRB,0.54216E-06_JPRB /)  
+KB(:, 5,42, 4) = (/ &
+ & 0.93443E-09_JPRB,0.12817E-05_JPRB,0.17529E-05_JPRB,0.18333E-05_JPRB,0.57784E-06_JPRB /)  
+KB(:, 1,43, 4) = (/ &
+ & 0.87883E-09_JPRB,0.83199E-06_JPRB,0.11402E-05_JPRB,0.12168E-05_JPRB,0.35025E-06_JPRB /)  
+KB(:, 2,43, 4) = (/ &
+ & 0.84829E-09_JPRB,0.89254E-06_JPRB,0.12225E-05_JPRB,0.12958E-05_JPRB,0.37960E-06_JPRB /)  
+KB(:, 3,43, 4) = (/ &
+ & 0.81903E-09_JPRB,0.95072E-06_JPRB,0.12966E-05_JPRB,0.13708E-05_JPRB,0.40893E-06_JPRB /)  
+KB(:, 4,43, 4) = (/ &
+ & 0.79369E-09_JPRB,0.10020E-05_JPRB,0.13665E-05_JPRB,0.14379E-05_JPRB,0.43862E-06_JPRB /)  
+KB(:, 5,43, 4) = (/ &
+ & 0.77108E-09_JPRB,0.10478E-05_JPRB,0.14302E-05_JPRB,0.14962E-05_JPRB,0.46817E-06_JPRB /)  
+KB(:, 1,44, 4) = (/ &
+ & 0.72838E-09_JPRB,0.67080E-06_JPRB,0.91962E-06_JPRB,0.98102E-06_JPRB,0.28107E-06_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART17',1,ZHOOK_HANDLE)
+END SUBROUTINE PART17
+
+
+SUBROUTINE PART18
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART18',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,44, 4) = (/ &
+ & 0.70279E-09_JPRB,0.72271E-06_JPRB,0.98853E-06_JPRB,0.10491E-05_JPRB,0.30540E-06_JPRB /)  
+KB(:, 3,44, 4) = (/ &
+ & 0.67858E-09_JPRB,0.77203E-06_JPRB,0.10522E-05_JPRB,0.11122E-05_JPRB,0.32958E-06_JPRB /)  
+KB(:, 4,44, 4) = (/ &
+ & 0.65651E-09_JPRB,0.81625E-06_JPRB,0.11115E-05_JPRB,0.11697E-05_JPRB,0.35407E-06_JPRB /)  
+KB(:, 5,44, 4) = (/ &
+ & 0.63727E-09_JPRB,0.85495E-06_JPRB,0.11651E-05_JPRB,0.12192E-05_JPRB,0.37850E-06_JPRB /)  
+KB(:, 1,45, 4) = (/ &
+ & 0.60379E-09_JPRB,0.54047E-06_JPRB,0.74128E-06_JPRB,0.79100E-06_JPRB,0.22535E-06_JPRB /)  
+KB(:, 2,45, 4) = (/ &
+ & 0.58228E-09_JPRB,0.58429E-06_JPRB,0.79854E-06_JPRB,0.84841E-06_JPRB,0.24548E-06_JPRB /)  
+KB(:, 3,45, 4) = (/ &
+ & 0.56220E-09_JPRB,0.62606E-06_JPRB,0.85283E-06_JPRB,0.90157E-06_JPRB,0.26541E-06_JPRB /)  
+KB(:, 4,45, 4) = (/ &
+ & 0.54320E-09_JPRB,0.66423E-06_JPRB,0.90296E-06_JPRB,0.95015E-06_JPRB,0.28558E-06_JPRB /)  
+KB(:, 5,45, 4) = (/ &
+ & 0.52686E-09_JPRB,0.69719E-06_JPRB,0.94830E-06_JPRB,0.99254E-06_JPRB,0.30580E-06_JPRB /)  
+KB(:, 1,46, 4) = (/ &
+ & 0.50108E-09_JPRB,0.43361E-06_JPRB,0.59554E-06_JPRB,0.63432E-06_JPRB,0.18023E-06_JPRB /)  
+KB(:, 2,46, 4) = (/ &
+ & 0.48291E-09_JPRB,0.47127E-06_JPRB,0.64349E-06_JPRB,0.68510E-06_JPRB,0.19677E-06_JPRB /)  
+KB(:, 3,46, 4) = (/ &
+ & 0.46612E-09_JPRB,0.50621E-06_JPRB,0.68942E-06_JPRB,0.72929E-06_JPRB,0.21325E-06_JPRB /)  
+KB(:, 4,46, 4) = (/ &
+ & 0.45004E-09_JPRB,0.53903E-06_JPRB,0.73169E-06_JPRB,0.77095E-06_JPRB,0.22986E-06_JPRB /)  
+KB(:, 5,46, 4) = (/ &
+ & 0.43600E-09_JPRB,0.56740E-06_JPRB,0.77081E-06_JPRB,0.80714E-06_JPRB,0.24654E-06_JPRB /)  
+KB(:, 1,47, 4) = (/ &
+ & 0.41665E-09_JPRB,0.34614E-06_JPRB,0.47565E-06_JPRB,0.50598E-06_JPRB,0.14345E-06_JPRB /)  
+KB(:, 2,47, 4) = (/ &
+ & 0.40119E-09_JPRB,0.37779E-06_JPRB,0.51642E-06_JPRB,0.55015E-06_JPRB,0.15697E-06_JPRB /)  
+KB(:, 3,47, 4) = (/ &
+ & 0.38702E-09_JPRB,0.40752E-06_JPRB,0.55525E-06_JPRB,0.58759E-06_JPRB,0.17064E-06_JPRB /)  
+KB(:, 4,47, 4) = (/ &
+ & 0.37372E-09_JPRB,0.43563E-06_JPRB,0.59076E-06_JPRB,0.62318E-06_JPRB,0.18430E-06_JPRB /)  
+KB(:, 5,47, 4) = (/ &
+ & 0.36139E-09_JPRB,0.46041E-06_JPRB,0.62474E-06_JPRB,0.65515E-06_JPRB,0.19800E-06_JPRB /)  
+KB(:, 1,48, 4) = (/ &
+ & 0.34658E-09_JPRB,0.27494E-06_JPRB,0.37924E-06_JPRB,0.40349E-06_JPRB,0.11407E-06_JPRB /)  
+KB(:, 2,48, 4) = (/ &
+ & 0.33340E-09_JPRB,0.30243E-06_JPRB,0.41340E-06_JPRB,0.44066E-06_JPRB,0.12508E-06_JPRB /)  
+KB(:, 3,48, 4) = (/ &
+ & 0.32143E-09_JPRB,0.32756E-06_JPRB,0.44635E-06_JPRB,0.47308E-06_JPRB,0.13636E-06_JPRB /)  
+KB(:, 4,48, 4) = (/ &
+ & 0.31032E-09_JPRB,0.35149E-06_JPRB,0.47669E-06_JPRB,0.50309E-06_JPRB,0.14763E-06_JPRB /)  
+KB(:, 5,48, 4) = (/ &
+ & 0.29969E-09_JPRB,0.37323E-06_JPRB,0.50542E-06_JPRB,0.53062E-06_JPRB,0.15892E-06_JPRB /)  
+KB(:, 1,49, 4) = (/ &
+ & 0.28846E-09_JPRB,0.21778E-06_JPRB,0.30168E-06_JPRB,0.32158E-06_JPRB,0.90607E-07_JPRB /)  
+KB(:, 2,49, 4) = (/ &
+ & 0.27716E-09_JPRB,0.24139E-06_JPRB,0.33071E-06_JPRB,0.35214E-06_JPRB,0.99577E-07_JPRB /)  
+KB(:, 3,49, 4) = (/ &
+ & 0.26700E-09_JPRB,0.26304E-06_JPRB,0.35804E-06_JPRB,0.38049E-06_JPRB,0.10881E-06_JPRB /)  
+KB(:, 4,49, 4) = (/ &
+ & 0.25767E-09_JPRB,0.28313E-06_JPRB,0.38394E-06_JPRB,0.40566E-06_JPRB,0.11814E-06_JPRB /)  
+KB(:, 5,49, 4) = (/ &
+ & 0.24875E-09_JPRB,0.30183E-06_JPRB,0.40832E-06_JPRB,0.42906E-06_JPRB,0.12742E-06_JPRB /)  
+KB(:, 1,50, 4) = (/ &
+ & 0.23994E-09_JPRB,0.17276E-06_JPRB,0.24039E-06_JPRB,0.25644E-06_JPRB,0.72124E-07_JPRB /)  
+KB(:, 2,50, 4) = (/ &
+ & 0.23028E-09_JPRB,0.19275E-06_JPRB,0.26429E-06_JPRB,0.28117E-06_JPRB,0.79388E-07_JPRB /)  
+KB(:, 3,50, 4) = (/ &
+ & 0.22162E-09_JPRB,0.21106E-06_JPRB,0.28758E-06_JPRB,0.30606E-06_JPRB,0.86922E-07_JPRB /)  
+KB(:, 4,50, 4) = (/ &
+ & 0.21377E-09_JPRB,0.22807E-06_JPRB,0.30947E-06_JPRB,0.32714E-06_JPRB,0.94628E-07_JPRB /)  
+KB(:, 5,50, 4) = (/ &
+ & 0.20641E-09_JPRB,0.24400E-06_JPRB,0.32962E-06_JPRB,0.34715E-06_JPRB,0.10228E-06_JPRB /)  
+KB(:, 1,51, 4) = (/ &
+ & 0.19960E-09_JPRB,0.13709E-06_JPRB,0.19101E-06_JPRB,0.20407E-06_JPRB,0.57566E-07_JPRB /)  
+KB(:, 2,51, 4) = (/ &
+ & 0.19132E-09_JPRB,0.15352E-06_JPRB,0.21120E-06_JPRB,0.22455E-06_JPRB,0.63308E-07_JPRB /)  
+KB(:, 3,51, 4) = (/ &
+ & 0.18395E-09_JPRB,0.16924E-06_JPRB,0.23068E-06_JPRB,0.24563E-06_JPRB,0.69421E-07_JPRB /)  
+KB(:, 4,51, 4) = (/ &
+ & 0.17732E-09_JPRB,0.18352E-06_JPRB,0.24926E-06_JPRB,0.26383E-06_JPRB,0.75773E-07_JPRB /)  
+KB(:, 5,51, 4) = (/ &
+ & 0.17117E-09_JPRB,0.19715E-06_JPRB,0.26630E-06_JPRB,0.28068E-06_JPRB,0.82097E-07_JPRB /)  
+KB(:, 1,52, 4) = (/ &
+ & 0.16616E-09_JPRB,0.10852E-06_JPRB,0.15191E-06_JPRB,0.16137E-06_JPRB,0.45975E-07_JPRB /)  
+KB(:, 2,52, 4) = (/ &
+ & 0.15901E-09_JPRB,0.12188E-06_JPRB,0.16855E-06_JPRB,0.17943E-06_JPRB,0.50454E-07_JPRB /)  
+KB(:, 3,52, 4) = (/ &
+ & 0.15272E-09_JPRB,0.13535E-06_JPRB,0.18502E-06_JPRB,0.19705E-06_JPRB,0.55424E-07_JPRB /)  
+KB(:, 4,52, 4) = (/ &
+ & 0.14711E-09_JPRB,0.14765E-06_JPRB,0.20042E-06_JPRB,0.21252E-06_JPRB,0.60616E-07_JPRB /)  
+KB(:, 5,52, 4) = (/ &
+ & 0.14194E-09_JPRB,0.15907E-06_JPRB,0.21484E-06_JPRB,0.22673E-06_JPRB,0.65826E-07_JPRB /)  
+KB(:, 1,53, 4) = (/ &
+ & 0.13839E-09_JPRB,0.85704E-07_JPRB,0.12023E-06_JPRB,0.12744E-06_JPRB,0.36523E-07_JPRB /)  
+KB(:, 2,53, 4) = (/ &
+ & 0.13223E-09_JPRB,0.96600E-07_JPRB,0.13438E-06_JPRB,0.14312E-06_JPRB,0.40152E-07_JPRB /)  
+KB(:, 3,53, 4) = (/ &
+ & 0.12684E-09_JPRB,0.10804E-06_JPRB,0.14784E-06_JPRB,0.15735E-06_JPRB,0.44207E-07_JPRB /)  
+KB(:, 4,53, 4) = (/ &
+ & 0.12208E-09_JPRB,0.11851E-06_JPRB,0.16093E-06_JPRB,0.17108E-06_JPRB,0.48435E-07_JPRB /)  
+KB(:, 5,53, 4) = (/ &
+ & 0.11772E-09_JPRB,0.12811E-06_JPRB,0.17313E-06_JPRB,0.18293E-06_JPRB,0.52733E-07_JPRB /)  
+KB(:, 1,54, 4) = (/ &
+ & 0.11516E-09_JPRB,0.67802E-07_JPRB,0.95400E-07_JPRB,0.10065E-06_JPRB,0.29040E-07_JPRB /)  
+KB(:, 2,54, 4) = (/ &
+ & 0.10986E-09_JPRB,0.76927E-07_JPRB,0.10712E-06_JPRB,0.11428E-06_JPRB,0.32044E-07_JPRB /)  
+KB(:, 3,54, 4) = (/ &
+ & 0.10526E-09_JPRB,0.86295E-07_JPRB,0.11833E-06_JPRB,0.12580E-06_JPRB,0.35335E-07_JPRB /)  
+KB(:, 4,54, 4) = (/ &
+ & 0.10122E-09_JPRB,0.95190E-07_JPRB,0.12936E-06_JPRB,0.13763E-06_JPRB,0.38764E-07_JPRB /)  
+KB(:, 5,54, 4) = (/ &
+ & 0.97545E-10_JPRB,0.10324E-06_JPRB,0.13969E-06_JPRB,0.14768E-06_JPRB,0.42312E-07_JPRB /)  
+KB(:, 1,55, 4) = (/ &
+ & 0.95832E-10_JPRB,0.53610E-07_JPRB,0.75981E-07_JPRB,0.79667E-07_JPRB,0.23117E-07_JPRB /)  
+KB(:, 2,55, 4) = (/ &
+ & 0.91281E-10_JPRB,0.61130E-07_JPRB,0.85329E-07_JPRB,0.91005E-07_JPRB,0.25657E-07_JPRB /)  
+KB(:, 3,55, 4) = (/ &
+ & 0.87335E-10_JPRB,0.68825E-07_JPRB,0.94736E-07_JPRB,0.10075E-06_JPRB,0.28264E-07_JPRB /)  
+KB(:, 4,55, 4) = (/ &
+ & 0.83897E-10_JPRB,0.76435E-07_JPRB,0.10396E-06_JPRB,0.11070E-06_JPRB,0.31057E-07_JPRB /)  
+KB(:, 5,55, 4) = (/ &
+ & 0.80810E-10_JPRB,0.83278E-07_JPRB,0.11269E-06_JPRB,0.11928E-06_JPRB,0.33972E-07_JPRB /)  
+KB(:, 1,56, 4) = (/ &
+ & 0.79810E-10_JPRB,0.42322E-07_JPRB,0.60374E-07_JPRB,0.62926E-07_JPRB,0.18404E-07_JPRB /)  
+KB(:, 2,56, 4) = (/ &
+ & 0.75864E-10_JPRB,0.48559E-07_JPRB,0.68039E-07_JPRB,0.72241E-07_JPRB,0.20548E-07_JPRB /)  
+KB(:, 3,56, 4) = (/ &
+ & 0.72485E-10_JPRB,0.54773E-07_JPRB,0.75799E-07_JPRB,0.80757E-07_JPRB,0.22581E-07_JPRB /)  
+KB(:, 4,56, 4) = (/ &
+ & 0.69560E-10_JPRB,0.61224E-07_JPRB,0.83554E-07_JPRB,0.88967E-07_JPRB,0.24859E-07_JPRB /)  
+KB(:, 5,56, 4) = (/ &
+ & 0.66951E-10_JPRB,0.67084E-07_JPRB,0.90797E-07_JPRB,0.96246E-07_JPRB,0.27245E-07_JPRB /)  
+KB(:, 1,57, 4) = (/ &
+ & 0.66524E-10_JPRB,0.33320E-07_JPRB,0.47516E-07_JPRB,0.49541E-07_JPRB,0.14620E-07_JPRB /)  
+KB(:, 2,57, 4) = (/ &
+ & 0.63081E-10_JPRB,0.38443E-07_JPRB,0.54027E-07_JPRB,0.57142E-07_JPRB,0.16370E-07_JPRB /)  
+KB(:, 3,57, 4) = (/ &
+ & 0.60187E-10_JPRB,0.43587E-07_JPRB,0.60611E-07_JPRB,0.64608E-07_JPRB,0.18036E-07_JPRB /)  
+KB(:, 4,57, 4) = (/ &
+ & 0.57689E-10_JPRB,0.48970E-07_JPRB,0.66915E-07_JPRB,0.71233E-07_JPRB,0.19895E-07_JPRB /)  
+KB(:, 5,57, 4) = (/ &
+ & 0.55478E-10_JPRB,0.53925E-07_JPRB,0.73045E-07_JPRB,0.77618E-07_JPRB,0.21831E-07_JPRB /)  
+KB(:, 1,58, 4) = (/ &
+ & 0.55447E-10_JPRB,0.26240E-07_JPRB,0.37435E-07_JPRB,0.38989E-07_JPRB,0.11606E-07_JPRB /)  
+KB(:, 2,58, 4) = (/ &
+ & 0.52442E-10_JPRB,0.30460E-07_JPRB,0.42955E-07_JPRB,0.45233E-07_JPRB,0.13047E-07_JPRB /)  
+KB(:, 3,58, 4) = (/ &
+ & 0.49962E-10_JPRB,0.34761E-07_JPRB,0.48418E-07_JPRB,0.51680E-07_JPRB,0.14431E-07_JPRB /)  
+KB(:, 4,58, 4) = (/ &
+ & 0.47826E-10_JPRB,0.39152E-07_JPRB,0.53626E-07_JPRB,0.57047E-07_JPRB,0.15934E-07_JPRB /)  
+KB(:, 5,58, 4) = (/ &
+ & 0.45954E-10_JPRB,0.43380E-07_JPRB,0.58786E-07_JPRB,0.62538E-07_JPRB,0.17511E-07_JPRB /)  
+KB(:, 1,59, 4) = (/ &
+ & 0.45740E-10_JPRB,0.21248E-07_JPRB,0.30261E-07_JPRB,0.31577E-07_JPRB,0.94221E-08_JPRB /)  
+KB(:, 2,59, 4) = (/ &
+ & 0.43210E-10_JPRB,0.24730E-07_JPRB,0.34948E-07_JPRB,0.36722E-07_JPRB,0.10608E-07_JPRB /)  
+KB(:, 3,59, 4) = (/ &
+ & 0.41141E-10_JPRB,0.28288E-07_JPRB,0.39410E-07_JPRB,0.42052E-07_JPRB,0.11754E-07_JPRB /)  
+KB(:, 4,59, 4) = (/ &
+ & 0.39361E-10_JPRB,0.31904E-07_JPRB,0.43740E-07_JPRB,0.46527E-07_JPRB,0.12986E-07_JPRB /)  
+KB(:, 5,59, 4) = (/ &
+ & 0.37805E-10_JPRB,0.35442E-07_JPRB,0.48020E-07_JPRB,0.51083E-07_JPRB,0.14278E-07_JPRB /)  
+KB(:, 1,13, 5) = (/ &
+ & 0.79045E-05_JPRB,0.58512E-03_JPRB,0.80967E-03_JPRB,0.88578E-03_JPRB,0.34824E-03_JPRB /)  
+KB(:, 2,13, 5) = (/ &
+ & 0.92807E-05_JPRB,0.61818E-03_JPRB,0.86083E-03_JPRB,0.92437E-03_JPRB,0.37870E-03_JPRB /)  
+KB(:, 3,13, 5) = (/ &
+ & 0.10620E-04_JPRB,0.65025E-03_JPRB,0.90617E-03_JPRB,0.96290E-03_JPRB,0.40639E-03_JPRB /)  
+KB(:, 4,13, 5) = (/ &
+ & 0.11847E-04_JPRB,0.68086E-03_JPRB,0.94767E-03_JPRB,0.99815E-03_JPRB,0.43149E-03_JPRB /)  
+KB(:, 5,13, 5) = (/ &
+ & 0.12897E-04_JPRB,0.70941E-03_JPRB,0.98426E-03_JPRB,0.10296E-02_JPRB,0.45459E-03_JPRB /)  
+KB(:, 1,14, 5) = (/ &
+ & 0.65683E-05_JPRB,0.48798E-03_JPRB,0.67570E-03_JPRB,0.73755E-03_JPRB,0.29172E-03_JPRB /)  
+KB(:, 2,14, 5) = (/ &
+ & 0.76957E-05_JPRB,0.51555E-03_JPRB,0.71856E-03_JPRB,0.76978E-03_JPRB,0.31709E-03_JPRB /)  
+KB(:, 3,14, 5) = (/ &
+ & 0.87852E-05_JPRB,0.54243E-03_JPRB,0.75604E-03_JPRB,0.80142E-03_JPRB,0.34064E-03_JPRB /)  
+KB(:, 4,14, 5) = (/ &
+ & 0.97622E-05_JPRB,0.56817E-03_JPRB,0.79038E-03_JPRB,0.83091E-03_JPRB,0.36095E-03_JPRB /)  
+KB(:, 5,14, 5) = (/ &
+ & 0.10614E-04_JPRB,0.59208E-03_JPRB,0.82018E-03_JPRB,0.85691E-03_JPRB,0.38095E-03_JPRB /)  
+KB(:, 1,15, 5) = (/ &
+ & 0.54643E-05_JPRB,0.40660E-03_JPRB,0.56371E-03_JPRB,0.61286E-03_JPRB,0.24435E-03_JPRB /)  
+KB(:, 2,15, 5) = (/ &
+ & 0.63883E-05_JPRB,0.42973E-03_JPRB,0.59914E-03_JPRB,0.64093E-03_JPRB,0.26475E-03_JPRB /)  
+KB(:, 3,15, 5) = (/ &
+ & 0.72593E-05_JPRB,0.45218E-03_JPRB,0.63004E-03_JPRB,0.66659E-03_JPRB,0.28486E-03_JPRB /)  
+KB(:, 4,15, 5) = (/ &
+ & 0.80526E-05_JPRB,0.47373E-03_JPRB,0.65847E-03_JPRB,0.69128E-03_JPRB,0.30200E-03_JPRB /)  
+KB(:, 5,15, 5) = (/ &
+ & 0.87364E-05_JPRB,0.49393E-03_JPRB,0.68318E-03_JPRB,0.71321E-03_JPRB,0.31930E-03_JPRB /)  
+KB(:, 1,16, 5) = (/ &
+ & 0.45482E-05_JPRB,0.33872E-03_JPRB,0.47003E-03_JPRB,0.50920E-03_JPRB,0.20473E-03_JPRB /)  
+KB(:, 2,16, 5) = (/ &
+ & 0.52893E-05_JPRB,0.35785E-03_JPRB,0.49898E-03_JPRB,0.53306E-03_JPRB,0.22171E-03_JPRB /)  
+KB(:, 3,16, 5) = (/ &
+ & 0.59989E-05_JPRB,0.37673E-03_JPRB,0.52467E-03_JPRB,0.55461E-03_JPRB,0.23803E-03_JPRB /)  
+KB(:, 4,16, 5) = (/ &
+ & 0.66426E-05_JPRB,0.39470E-03_JPRB,0.54827E-03_JPRB,0.57515E-03_JPRB,0.25244E-03_JPRB /)  
+KB(:, 5,16, 5) = (/ &
+ & 0.71759E-05_JPRB,0.41193E-03_JPRB,0.56909E-03_JPRB,0.59361E-03_JPRB,0.26773E-03_JPRB /)  
+KB(:, 1,17, 5) = (/ &
+ & 0.37690E-05_JPRB,0.28177E-03_JPRB,0.39153E-03_JPRB,0.42265E-03_JPRB,0.17155E-03_JPRB /)  
+KB(:, 2,17, 5) = (/ &
+ & 0.43790E-05_JPRB,0.29778E-03_JPRB,0.41535E-03_JPRB,0.44288E-03_JPRB,0.18563E-03_JPRB /)  
+KB(:, 3,17, 5) = (/ &
+ & 0.49545E-05_JPRB,0.31371E-03_JPRB,0.43664E-03_JPRB,0.46090E-03_JPRB,0.19908E-03_JPRB /)  
+KB(:, 4,17, 5) = (/ &
+ & 0.54563E-05_JPRB,0.32886E-03_JPRB,0.45637E-03_JPRB,0.47854E-03_JPRB,0.21097E-03_JPRB /)  
+KB(:, 5,17, 5) = (/ &
+ & 0.58879E-05_JPRB,0.34359E-03_JPRB,0.47416E-03_JPRB,0.49387E-03_JPRB,0.22440E-03_JPRB /)  
+KB(:, 1,18, 5) = (/ &
+ & 0.31260E-05_JPRB,0.23432E-03_JPRB,0.32596E-03_JPRB,0.35082E-03_JPRB,0.14348E-03_JPRB /)  
+KB(:, 2,18, 5) = (/ &
+ & 0.36185E-05_JPRB,0.24786E-03_JPRB,0.34561E-03_JPRB,0.36765E-03_JPRB,0.15546E-03_JPRB /)  
+KB(:, 3,18, 5) = (/ &
+ & 0.40732E-05_JPRB,0.26120E-03_JPRB,0.36343E-03_JPRB,0.38325E-03_JPRB,0.16623E-03_JPRB /)  
+KB(:, 4,18, 5) = (/ &
+ & 0.44839E-05_JPRB,0.27403E-03_JPRB,0.37997E-03_JPRB,0.39811E-03_JPRB,0.17659E-03_JPRB /)  
+KB(:, 5,18, 5) = (/ &
+ & 0.48304E-05_JPRB,0.28674E-03_JPRB,0.39513E-03_JPRB,0.41114E-03_JPRB,0.18813E-03_JPRB /)  
+KB(:, 1,19, 5) = (/ &
+ & 0.25853E-05_JPRB,0.19483E-03_JPRB,0.27128E-03_JPRB,0.29126E-03_JPRB,0.11969E-03_JPRB /)  
+KB(:, 2,19, 5) = (/ &
+ & 0.29834E-05_JPRB,0.20623E-03_JPRB,0.28749E-03_JPRB,0.30541E-03_JPRB,0.12978E-03_JPRB /)  
+KB(:, 3,19, 5) = (/ &
+ & 0.33546E-05_JPRB,0.21750E-03_JPRB,0.30267E-03_JPRB,0.31871E-03_JPRB,0.13874E-03_JPRB /)  
+KB(:, 4,19, 5) = (/ &
+ & 0.36863E-05_JPRB,0.22842E-03_JPRB,0.31656E-03_JPRB,0.33115E-03_JPRB,0.14789E-03_JPRB /)  
+KB(:, 5,19, 5) = (/ &
+ & 0.39634E-05_JPRB,0.23942E-03_JPRB,0.32944E-03_JPRB,0.34220E-03_JPRB,0.15742E-03_JPRB /)  
+KB(:, 1,20, 5) = (/ &
+ & 0.21486E-05_JPRB,0.16221E-03_JPRB,0.22609E-03_JPRB,0.24236E-03_JPRB,0.10014E-03_JPRB /)  
+KB(:, 2,20, 5) = (/ &
+ & 0.24735E-05_JPRB,0.17178E-03_JPRB,0.23949E-03_JPRB,0.25399E-03_JPRB,0.10857E-03_JPRB /)  
+KB(:, 3,20, 5) = (/ &
+ & 0.27744E-05_JPRB,0.18136E-03_JPRB,0.25226E-03_JPRB,0.26535E-03_JPRB,0.11604E-03_JPRB /)  
+KB(:, 4,20, 5) = (/ &
+ & 0.30414E-05_JPRB,0.19076E-03_JPRB,0.26397E-03_JPRB,0.27566E-03_JPRB,0.12398E-03_JPRB /)  
+KB(:, 5,20, 5) = (/ &
+ & 0.32610E-05_JPRB,0.20019E-03_JPRB,0.27488E-03_JPRB,0.28510E-03_JPRB,0.13199E-03_JPRB /)  
+KB(:, 1,21, 5) = (/ &
+ & 0.17877E-05_JPRB,0.13507E-03_JPRB,0.18845E-03_JPRB,0.20163E-03_JPRB,0.83879E-04_JPRB /)  
+KB(:, 2,21, 5) = (/ &
+ & 0.20518E-05_JPRB,0.14319E-03_JPRB,0.19968E-03_JPRB,0.21134E-03_JPRB,0.90858E-04_JPRB /)  
+KB(:, 3,21, 5) = (/ &
+ & 0.22953E-05_JPRB,0.15137E-03_JPRB,0.21038E-03_JPRB,0.22094E-03_JPRB,0.97098E-04_JPRB /)  
+KB(:, 4,21, 5) = (/ &
+ & 0.25098E-05_JPRB,0.15947E-03_JPRB,0.22019E-03_JPRB,0.22948E-03_JPRB,0.10402E-03_JPRB /)  
+KB(:, 5,21, 5) = (/ &
+ & 0.26830E-05_JPRB,0.16749E-03_JPRB,0.22950E-03_JPRB,0.23761E-03_JPRB,0.11069E-03_JPRB /)  
+KB(:, 1,22, 5) = (/ &
+ & 0.15022E-05_JPRB,0.11297E-03_JPRB,0.15773E-03_JPRB,0.16819E-03_JPRB,0.70808E-04_JPRB /)  
+KB(:, 2,22, 5) = (/ &
+ & 0.17157E-05_JPRB,0.11998E-03_JPRB,0.16714E-03_JPRB,0.17644E-03_JPRB,0.76345E-04_JPRB /)  
+KB(:, 3,22, 5) = (/ &
+ & 0.19111E-05_JPRB,0.12690E-03_JPRB,0.17611E-03_JPRB,0.18454E-03_JPRB,0.81804E-04_JPRB /)  
+KB(:, 4,22, 5) = (/ &
+ & 0.20812E-05_JPRB,0.13385E-03_JPRB,0.18425E-03_JPRB,0.19164E-03_JPRB,0.87591E-04_JPRB /)  
+KB(:, 5,22, 5) = (/ &
+ & 0.22144E-05_JPRB,0.14066E-03_JPRB,0.19235E-03_JPRB,0.19867E-03_JPRB,0.93228E-04_JPRB /)  
+KB(:, 1,23, 5) = (/ &
+ & 0.12621E-05_JPRB,0.94681E-04_JPRB,0.13210E-03_JPRB,0.14032E-03_JPRB,0.59630E-04_JPRB /)  
+KB(:, 2,23, 5) = (/ &
+ & 0.14346E-05_JPRB,0.10061E-03_JPRB,0.14009E-03_JPRB,0.14751E-03_JPRB,0.64142E-04_JPRB /)  
+KB(:, 3,23, 5) = (/ &
+ & 0.15908E-05_JPRB,0.10655E-03_JPRB,0.14749E-03_JPRB,0.15413E-03_JPRB,0.68988E-04_JPRB /)  
+KB(:, 4,23, 5) = (/ &
+ & 0.17253E-05_JPRB,0.11246E-03_JPRB,0.15437E-03_JPRB,0.16013E-03_JPRB,0.73893E-04_JPRB /)  
+KB(:, 5,23, 5) = (/ &
+ & 0.18272E-05_JPRB,0.11825E-03_JPRB,0.16130E-03_JPRB,0.16627E-03_JPRB,0.78649E-04_JPRB /)  
+KB(:, 1,24, 5) = (/ &
+ & 0.10611E-05_JPRB,0.79419E-04_JPRB,0.11079E-03_JPRB,0.11736E-03_JPRB,0.50244E-04_JPRB /)  
+KB(:, 2,24, 5) = (/ &
+ & 0.11996E-05_JPRB,0.84486E-04_JPRB,0.11749E-03_JPRB,0.12345E-03_JPRB,0.54054E-04_JPRB /)  
+KB(:, 3,24, 5) = (/ &
+ & 0.13241E-05_JPRB,0.89565E-04_JPRB,0.12364E-03_JPRB,0.12883E-03_JPRB,0.58259E-04_JPRB /)  
+KB(:, 4,24, 5) = (/ &
+ & 0.14300E-05_JPRB,0.94592E-04_JPRB,0.12949E-03_JPRB,0.13406E-03_JPRB,0.62300E-04_JPRB /)  
+KB(:, 5,24, 5) = (/ &
+ & 0.15070E-05_JPRB,0.99545E-04_JPRB,0.13538E-03_JPRB,0.13928E-03_JPRB,0.66485E-04_JPRB /)  
+KB(:, 1,25, 5) = (/ &
+ & 0.89248E-06_JPRB,0.66757E-04_JPRB,0.93043E-04_JPRB,0.98269E-04_JPRB,0.42396E-04_JPRB /)  
+KB(:, 2,25, 5) = (/ &
+ & 0.10034E-05_JPRB,0.71082E-04_JPRB,0.98652E-04_JPRB,0.10332E-03_JPRB,0.45719E-04_JPRB /)  
+KB(:, 3,25, 5) = (/ &
+ & 0.11024E-05_JPRB,0.75404E-04_JPRB,0.10375E-03_JPRB,0.10782E-03_JPRB,0.49228E-04_JPRB /)  
+KB(:, 4,25, 5) = (/ &
+ & 0.11835E-05_JPRB,0.79694E-04_JPRB,0.10882E-03_JPRB,0.11234E-03_JPRB,0.52649E-04_JPRB /)  
+KB(:, 5,25, 5) = (/ &
+ & 0.12406E-05_JPRB,0.83915E-04_JPRB,0.11376E-03_JPRB,0.11677E-03_JPRB,0.56264E-04_JPRB /)  
+KB(:, 1,26, 5) = (/ &
+ & 0.75147E-06_JPRB,0.56248E-04_JPRB,0.78291E-04_JPRB,0.82441E-04_JPRB,0.35781E-04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART18',1,ZHOOK_HANDLE)
+END SUBROUTINE PART18
+
+
+SUBROUTINE PART19
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART19',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,26, 5) = (/ &
+ & 0.84025E-06_JPRB,0.59929E-04_JPRB,0.82917E-04_JPRB,0.86562E-04_JPRB,0.38715E-04_JPRB /)  
+KB(:, 3,26, 5) = (/ &
+ & 0.91728E-06_JPRB,0.63618E-04_JPRB,0.87231E-04_JPRB,0.90442E-04_JPRB,0.41682E-04_JPRB /)  
+KB(:, 4,26, 5) = (/ &
+ & 0.97947E-06_JPRB,0.67285E-04_JPRB,0.91606E-04_JPRB,0.94311E-04_JPRB,0.44610E-04_JPRB /)  
+KB(:, 5,26, 5) = (/ &
+ & 0.10222E-05_JPRB,0.70879E-04_JPRB,0.95759E-04_JPRB,0.97954E-04_JPRB,0.47678E-04_JPRB /)  
+KB(:, 1,27, 5) = (/ &
+ & 0.63228E-06_JPRB,0.47448E-04_JPRB,0.65926E-04_JPRB,0.69211E-04_JPRB,0.30312E-04_JPRB /)  
+KB(:, 2,27, 5) = (/ &
+ & 0.70187E-06_JPRB,0.50583E-04_JPRB,0.69752E-04_JPRB,0.72622E-04_JPRB,0.32844E-04_JPRB /)  
+KB(:, 3,27, 5) = (/ &
+ & 0.76263E-06_JPRB,0.53723E-04_JPRB,0.73431E-04_JPRB,0.75943E-04_JPRB,0.35283E-04_JPRB /)  
+KB(:, 4,27, 5) = (/ &
+ & 0.80975E-06_JPRB,0.56884E-04_JPRB,0.77139E-04_JPRB,0.79235E-04_JPRB,0.37837E-04_JPRB /)  
+KB(:, 5,27, 5) = (/ &
+ & 0.84099E-06_JPRB,0.59937E-04_JPRB,0.80670E-04_JPRB,0.82198E-04_JPRB,0.40398E-04_JPRB /)  
+KB(:, 1,28, 5) = (/ &
+ & 0.53062E-06_JPRB,0.40054E-04_JPRB,0.55536E-04_JPRB,0.58105E-04_JPRB,0.25683E-04_JPRB /)  
+KB(:, 2,28, 5) = (/ &
+ & 0.58581E-06_JPRB,0.42748E-04_JPRB,0.58719E-04_JPRB,0.60988E-04_JPRB,0.27829E-04_JPRB /)  
+KB(:, 3,28, 5) = (/ &
+ & 0.63283E-06_JPRB,0.45445E-04_JPRB,0.61927E-04_JPRB,0.63808E-04_JPRB,0.29914E-04_JPRB /)  
+KB(:, 4,28, 5) = (/ &
+ & 0.66841E-06_JPRB,0.48141E-04_JPRB,0.65033E-04_JPRB,0.66567E-04_JPRB,0.32101E-04_JPRB /)  
+KB(:, 5,28, 5) = (/ &
+ & 0.69132E-06_JPRB,0.50744E-04_JPRB,0.68002E-04_JPRB,0.69024E-04_JPRB,0.34196E-04_JPRB /)  
+KB(:, 1,29, 5) = (/ &
+ & 0.44482E-06_JPRB,0.33876E-04_JPRB,0.46813E-04_JPRB,0.48820E-04_JPRB,0.21822E-04_JPRB /)  
+KB(:, 2,29, 5) = (/ &
+ & 0.48830E-06_JPRB,0.36173E-04_JPRB,0.49534E-04_JPRB,0.51267E-04_JPRB,0.23598E-04_JPRB /)  
+KB(:, 3,29, 5) = (/ &
+ & 0.52520E-06_JPRB,0.38507E-04_JPRB,0.52264E-04_JPRB,0.53700E-04_JPRB,0.25407E-04_JPRB /)  
+KB(:, 4,29, 5) = (/ &
+ & 0.55142E-06_JPRB,0.40790E-04_JPRB,0.54879E-04_JPRB,0.55934E-04_JPRB,0.27233E-04_JPRB /)  
+KB(:, 5,29, 5) = (/ &
+ & 0.56821E-06_JPRB,0.43005E-04_JPRB,0.57374E-04_JPRB,0.57995E-04_JPRB,0.28939E-04_JPRB /)  
+KB(:, 1,30, 5) = (/ &
+ & 0.37240E-06_JPRB,0.28688E-04_JPRB,0.39498E-04_JPRB,0.41082E-04_JPRB,0.18542E-04_JPRB /)  
+KB(:, 2,30, 5) = (/ &
+ & 0.40697E-06_JPRB,0.30662E-04_JPRB,0.41832E-04_JPRB,0.43139E-04_JPRB,0.20037E-04_JPRB /)  
+KB(:, 3,30, 5) = (/ &
+ & 0.43518E-06_JPRB,0.32657E-04_JPRB,0.44137E-04_JPRB,0.45198E-04_JPRB,0.21592E-04_JPRB /)  
+KB(:, 4,30, 5) = (/ &
+ & 0.45459E-06_JPRB,0.34600E-04_JPRB,0.46342E-04_JPRB,0.47030E-04_JPRB,0.23099E-04_JPRB /)  
+KB(:, 5,30, 5) = (/ &
+ & 0.46674E-06_JPRB,0.36468E-04_JPRB,0.48427E-04_JPRB,0.48752E-04_JPRB,0.24524E-04_JPRB /)  
+KB(:, 1,31, 5) = (/ &
+ & 0.31167E-06_JPRB,0.24328E-04_JPRB,0.33365E-04_JPRB,0.34577E-04_JPRB,0.15775E-04_JPRB /)  
+KB(:, 2,31, 5) = (/ &
+ & 0.33880E-06_JPRB,0.26033E-04_JPRB,0.35376E-04_JPRB,0.36343E-04_JPRB,0.17037E-04_JPRB /)  
+KB(:, 3,31, 5) = (/ &
+ & 0.36022E-06_JPRB,0.27728E-04_JPRB,0.37306E-04_JPRB,0.38025E-04_JPRB,0.18334E-04_JPRB /)  
+KB(:, 4,31, 5) = (/ &
+ & 0.37443E-06_JPRB,0.29381E-04_JPRB,0.39153E-04_JPRB,0.39551E-04_JPRB,0.19559E-04_JPRB /)  
+KB(:, 5,31, 5) = (/ &
+ & 0.38304E-06_JPRB,0.30940E-04_JPRB,0.40888E-04_JPRB,0.41012E-04_JPRB,0.20735E-04_JPRB /)  
+KB(:, 1,32, 5) = (/ &
+ & 0.26065E-06_JPRB,0.20666E-04_JPRB,0.28226E-04_JPRB,0.29128E-04_JPRB,0.13403E-04_JPRB /)  
+KB(:, 2,32, 5) = (/ &
+ & 0.28179E-06_JPRB,0.22130E-04_JPRB,0.29934E-04_JPRB,0.30642E-04_JPRB,0.14495E-04_JPRB /)  
+KB(:, 3,32, 5) = (/ &
+ & 0.29791E-06_JPRB,0.23572E-04_JPRB,0.31554E-04_JPRB,0.32005E-04_JPRB,0.15576E-04_JPRB /)  
+KB(:, 4,32, 5) = (/ &
+ & 0.30813E-06_JPRB,0.24963E-04_JPRB,0.33101E-04_JPRB,0.33278E-04_JPRB,0.16582E-04_JPRB /)  
+KB(:, 5,32, 5) = (/ &
+ & 0.31412E-06_JPRB,0.26261E-04_JPRB,0.34510E-04_JPRB,0.34497E-04_JPRB,0.17533E-04_JPRB /)  
+KB(:, 1,33, 5) = (/ &
+ & 0.21768E-06_JPRB,0.17581E-04_JPRB,0.23903E-04_JPRB,0.24558E-04_JPRB,0.11405E-04_JPRB /)  
+KB(:, 2,33, 5) = (/ &
+ & 0.23409E-06_JPRB,0.18827E-04_JPRB,0.25333E-04_JPRB,0.25812E-04_JPRB,0.12331E-04_JPRB /)  
+KB(:, 3,33, 5) = (/ &
+ & 0.24596E-06_JPRB,0.20053E-04_JPRB,0.26696E-04_JPRB,0.26942E-04_JPRB,0.13200E-04_JPRB /)  
+KB(:, 4,33, 5) = (/ &
+ & 0.25338E-06_JPRB,0.21211E-04_JPRB,0.27978E-04_JPRB,0.28012E-04_JPRB,0.14037E-04_JPRB /)  
+KB(:, 5,33, 5) = (/ &
+ & 0.25735E-06_JPRB,0.22292E-04_JPRB,0.29113E-04_JPRB,0.29019E-04_JPRB,0.14789E-04_JPRB /)  
+KB(:, 1,34, 5) = (/ &
+ & 0.18111E-06_JPRB,0.14933E-04_JPRB,0.20221E-04_JPRB,0.20691E-04_JPRB,0.96853E-05_JPRB /)  
+KB(:, 2,34, 5) = (/ &
+ & 0.19373E-06_JPRB,0.15993E-04_JPRB,0.21413E-04_JPRB,0.21708E-04_JPRB,0.10459E-04_JPRB /)  
+KB(:, 3,34, 5) = (/ &
+ & 0.20262E-06_JPRB,0.17025E-04_JPRB,0.22551E-04_JPRB,0.22651E-04_JPRB,0.11170E-04_JPRB /)  
+KB(:, 4,34, 5) = (/ &
+ & 0.20802E-06_JPRB,0.17992E-04_JPRB,0.23603E-04_JPRB,0.23540E-04_JPRB,0.11847E-04_JPRB /)  
+KB(:, 5,34, 5) = (/ &
+ & 0.21068E-06_JPRB,0.18892E-04_JPRB,0.24522E-04_JPRB,0.24370E-04_JPRB,0.12444E-04_JPRB /)  
+KB(:, 1,35, 5) = (/ &
+ & 0.14940E-06_JPRB,0.12604E-04_JPRB,0.17001E-04_JPRB,0.17339E-04_JPRB,0.81630E-05_JPRB /)  
+KB(:, 2,35, 5) = (/ &
+ & 0.15934E-06_JPRB,0.13505E-04_JPRB,0.18008E-04_JPRB,0.18183E-04_JPRB,0.87890E-05_JPRB /)  
+KB(:, 3,35, 5) = (/ &
+ & 0.16626E-06_JPRB,0.14374E-04_JPRB,0.18963E-04_JPRB,0.18976E-04_JPRB,0.93838E-05_JPRB /)  
+KB(:, 4,35, 5) = (/ &
+ & 0.17040E-06_JPRB,0.15187E-04_JPRB,0.19824E-04_JPRB,0.19720E-04_JPRB,0.99229E-05_JPRB /)  
+KB(:, 5,35, 5) = (/ &
+ & 0.17229E-06_JPRB,0.15939E-04_JPRB,0.20582E-04_JPRB,0.20394E-04_JPRB,0.10412E-04_JPRB /)  
+KB(:, 1,36, 5) = (/ &
+ & 0.12224E-06_JPRB,0.10560E-04_JPRB,0.14203E-04_JPRB,0.14447E-04_JPRB,0.68196E-05_JPRB /)  
+KB(:, 2,36, 5) = (/ &
+ & 0.13030E-06_JPRB,0.11326E-04_JPRB,0.15055E-04_JPRB,0.15156E-04_JPRB,0.73321E-05_JPRB /)  
+KB(:, 3,36, 5) = (/ &
+ & 0.13590E-06_JPRB,0.12062E-04_JPRB,0.15856E-04_JPRB,0.15823E-04_JPRB,0.78230E-05_JPRB /)  
+KB(:, 4,36, 5) = (/ &
+ & 0.13929E-06_JPRB,0.12750E-04_JPRB,0.16573E-04_JPRB,0.16449E-04_JPRB,0.82632E-05_JPRB /)  
+KB(:, 5,36, 5) = (/ &
+ & 0.14081E-06_JPRB,0.13384E-04_JPRB,0.17208E-04_JPRB,0.17006E-04_JPRB,0.86656E-05_JPRB /)  
+KB(:, 1,37, 5) = (/ &
+ & 0.98979E-07_JPRB,0.87500E-05_JPRB,0.11755E-04_JPRB,0.11943E-04_JPRB,0.56269E-05_JPRB /)  
+KB(:, 2,37, 5) = (/ &
+ & 0.10583E-06_JPRB,0.94035E-05_JPRB,0.12480E-04_JPRB,0.12544E-04_JPRB,0.60528E-05_JPRB /)  
+KB(:, 3,37, 5) = (/ &
+ & 0.11068E-06_JPRB,0.10031E-04_JPRB,0.13161E-04_JPRB,0.13110E-04_JPRB,0.64604E-05_JPRB /)  
+KB(:, 4,37, 5) = (/ &
+ & 0.11365E-06_JPRB,0.10619E-04_JPRB,0.13767E-04_JPRB,0.13642E-04_JPRB,0.68253E-05_JPRB /)  
+KB(:, 5,37, 5) = (/ &
+ & 0.11510E-06_JPRB,0.11162E-04_JPRB,0.14306E-04_JPRB,0.14108E-04_JPRB,0.71615E-05_JPRB /)  
+KB(:, 1,38, 5) = (/ &
+ & 0.80050E-07_JPRB,0.72436E-05_JPRB,0.97225E-05_JPRB,0.98657E-05_JPRB,0.46375E-05_JPRB /)  
+KB(:, 2,38, 5) = (/ &
+ & 0.85886E-07_JPRB,0.78006E-05_JPRB,0.10338E-04_JPRB,0.10378E-04_JPRB,0.49919E-05_JPRB /)  
+KB(:, 3,38, 5) = (/ &
+ & 0.90108E-07_JPRB,0.83355E-05_JPRB,0.10916E-04_JPRB,0.10856E-04_JPRB,0.53303E-05_JPRB /)  
+KB(:, 4,38, 5) = (/ &
+ & 0.92690E-07_JPRB,0.88380E-05_JPRB,0.11429E-04_JPRB,0.11306E-04_JPRB,0.56349E-05_JPRB /)  
+KB(:, 5,38, 5) = (/ &
+ & 0.94046E-07_JPRB,0.93019E-05_JPRB,0.11885E-04_JPRB,0.11696E-04_JPRB,0.59152E-05_JPRB /)  
+KB(:, 1,39, 5) = (/ &
+ & 0.64720E-07_JPRB,0.59955E-05_JPRB,0.80389E-05_JPRB,0.81488E-05_JPRB,0.38192E-05_JPRB /)  
+KB(:, 2,39, 5) = (/ &
+ & 0.69663E-07_JPRB,0.64699E-05_JPRB,0.85613E-05_JPRB,0.85818E-05_JPRB,0.41159E-05_JPRB /)  
+KB(:, 3,39, 5) = (/ &
+ & 0.73305E-07_JPRB,0.69246E-05_JPRB,0.90506E-05_JPRB,0.89861E-05_JPRB,0.43968E-05_JPRB /)  
+KB(:, 4,39, 5) = (/ &
+ & 0.75588E-07_JPRB,0.73530E-05_JPRB,0.94857E-05_JPRB,0.93637E-05_JPRB,0.46505E-05_JPRB /)  
+KB(:, 5,39, 5) = (/ &
+ & 0.76825E-07_JPRB,0.77492E-05_JPRB,0.98708E-05_JPRB,0.96898E-05_JPRB,0.48841E-05_JPRB /)  
+KB(:, 1,40, 5) = (/ &
+ & 0.51871E-07_JPRB,0.49191E-05_JPRB,0.65994E-05_JPRB,0.66890E-05_JPRB,0.31186E-05_JPRB /)  
+KB(:, 2,40, 5) = (/ &
+ & 0.56127E-07_JPRB,0.53227E-05_JPRB,0.70435E-05_JPRB,0.70578E-05_JPRB,0.33678E-05_JPRB /)  
+KB(:, 3,40, 5) = (/ &
+ & 0.59395E-07_JPRB,0.57124E-05_JPRB,0.74609E-05_JPRB,0.74018E-05_JPRB,0.36025E-05_JPRB /)  
+KB(:, 4,40, 5) = (/ &
+ & 0.61501E-07_JPRB,0.60790E-05_JPRB,0.78333E-05_JPRB,0.77210E-05_JPRB,0.38164E-05_JPRB /)  
+KB(:, 5,40, 5) = (/ &
+ & 0.62710E-07_JPRB,0.64194E-05_JPRB,0.81613E-05_JPRB,0.79980E-05_JPRB,0.40122E-05_JPRB /)  
+KB(:, 1,41, 5) = (/ &
+ & 0.41471E-07_JPRB,0.40276E-05_JPRB,0.54076E-05_JPRB,0.54815E-05_JPRB,0.25402E-05_JPRB /)  
+KB(:, 2,41, 5) = (/ &
+ & 0.45127E-07_JPRB,0.43711E-05_JPRB,0.57847E-05_JPRB,0.57971E-05_JPRB,0.27507E-05_JPRB /)  
+KB(:, 3,41, 5) = (/ &
+ & 0.48018E-07_JPRB,0.47040E-05_JPRB,0.61407E-05_JPRB,0.60883E-05_JPRB,0.29479E-05_JPRB /)  
+KB(:, 4,41, 5) = (/ &
+ & 0.49983E-07_JPRB,0.50177E-05_JPRB,0.64595E-05_JPRB,0.63587E-05_JPRB,0.31286E-05_JPRB /)  
+KB(:, 5,41, 5) = (/ &
+ & 0.51153E-07_JPRB,0.53098E-05_JPRB,0.67389E-05_JPRB,0.65950E-05_JPRB,0.32928E-05_JPRB /)  
+KB(:, 1,42, 5) = (/ &
+ & 0.33108E-07_JPRB,0.32945E-05_JPRB,0.44261E-05_JPRB,0.44871E-05_JPRB,0.20674E-05_JPRB /)  
+KB(:, 2,42, 5) = (/ &
+ & 0.36228E-07_JPRB,0.35861E-05_JPRB,0.47462E-05_JPRB,0.47571E-05_JPRB,0.22452E-05_JPRB /)  
+KB(:, 3,42, 5) = (/ &
+ & 0.38776E-07_JPRB,0.38701E-05_JPRB,0.50505E-05_JPRB,0.50046E-05_JPRB,0.24106E-05_JPRB /)  
+KB(:, 4,42, 5) = (/ &
+ & 0.40580E-07_JPRB,0.41378E-05_JPRB,0.53219E-05_JPRB,0.52323E-05_JPRB,0.25622E-05_JPRB /)  
+KB(:, 5,42, 5) = (/ &
+ & 0.41689E-07_JPRB,0.43881E-05_JPRB,0.55607E-05_JPRB,0.54356E-05_JPRB,0.27015E-05_JPRB /)  
+KB(:, 1,43, 5) = (/ &
+ & 0.26243E-07_JPRB,0.26780E-05_JPRB,0.36021E-05_JPRB,0.36578E-05_JPRB,0.16722E-05_JPRB /)  
+KB(:, 2,43, 5) = (/ &
+ & 0.28903E-07_JPRB,0.29254E-05_JPRB,0.38754E-05_JPRB,0.38886E-05_JPRB,0.18235E-05_JPRB /)  
+KB(:, 3,43, 5) = (/ &
+ & 0.31158E-07_JPRB,0.31674E-05_JPRB,0.41363E-05_JPRB,0.40998E-05_JPRB,0.19628E-05_JPRB /)  
+KB(:, 4,43, 5) = (/ &
+ & 0.32828E-07_JPRB,0.33966E-05_JPRB,0.43687E-05_JPRB,0.42935E-05_JPRB,0.20906E-05_JPRB /)  
+KB(:, 5,43, 5) = (/ &
+ & 0.33896E-07_JPRB,0.36112E-05_JPRB,0.45745E-05_JPRB,0.44680E-05_JPRB,0.22088E-05_JPRB /)  
+KB(:, 1,44, 5) = (/ &
+ & 0.20692E-07_JPRB,0.21688E-05_JPRB,0.29226E-05_JPRB,0.29738E-05_JPRB,0.13486E-05_JPRB /)  
+KB(:, 2,44, 5) = (/ &
+ & 0.22961E-07_JPRB,0.23776E-05_JPRB,0.31556E-05_JPRB,0.31699E-05_JPRB,0.14759E-05_JPRB /)  
+KB(:, 3,44, 5) = (/ &
+ & 0.24934E-07_JPRB,0.25834E-05_JPRB,0.33779E-05_JPRB,0.33507E-05_JPRB,0.15926E-05_JPRB /)  
+KB(:, 4,44, 5) = (/ &
+ & 0.26472E-07_JPRB,0.27800E-05_JPRB,0.35779E-05_JPRB,0.35162E-05_JPRB,0.17017E-05_JPRB /)  
+KB(:, 5,44, 5) = (/ &
+ & 0.27504E-07_JPRB,0.29637E-05_JPRB,0.37558E-05_JPRB,0.36666E-05_JPRB,0.18017E-05_JPRB /)  
+KB(:, 1,45, 5) = (/ &
+ & 0.16269E-07_JPRB,0.17537E-05_JPRB,0.23672E-05_JPRB,0.24133E-05_JPRB,0.10856E-05_JPRB /)  
+KB(:, 2,45, 5) = (/ &
+ & 0.18194E-07_JPRB,0.19291E-05_JPRB,0.25663E-05_JPRB,0.25809E-05_JPRB,0.11927E-05_JPRB /)  
+KB(:, 3,45, 5) = (/ &
+ & 0.19903E-07_JPRB,0.21039E-05_JPRB,0.27552E-05_JPRB,0.27360E-05_JPRB,0.12909E-05_JPRB /)  
+KB(:, 4,45, 5) = (/ &
+ & 0.21293E-07_JPRB,0.22721E-05_JPRB,0.29270E-05_JPRB,0.28775E-05_JPRB,0.13839E-05_JPRB /)  
+KB(:, 5,45, 5) = (/ &
+ & 0.22283E-07_JPRB,0.24292E-05_JPRB,0.30802E-05_JPRB,0.30067E-05_JPRB,0.14686E-05_JPRB /)  
+KB(:, 1,46, 5) = (/ &
+ & 0.12712E-07_JPRB,0.14128E-05_JPRB,0.19113E-05_JPRB,0.19548E-05_JPRB,0.87114E-06_JPRB /)  
+KB(:, 2,46, 5) = (/ &
+ & 0.14351E-07_JPRB,0.15596E-05_JPRB,0.20802E-05_JPRB,0.20949E-05_JPRB,0.96118E-06_JPRB /)  
+KB(:, 3,46, 5) = (/ &
+ & 0.15815E-07_JPRB,0.17076E-05_JPRB,0.22404E-05_JPRB,0.22289E-05_JPRB,0.10436E-05_JPRB /)  
+KB(:, 4,46, 5) = (/ &
+ & 0.17062E-07_JPRB,0.18511E-05_JPRB,0.23889E-05_JPRB,0.23492E-05_JPRB,0.11225E-05_JPRB /)  
+KB(:, 5,46, 5) = (/ &
+ & 0.17993E-07_JPRB,0.19855E-05_JPRB,0.25206E-05_JPRB,0.24609E-05_JPRB,0.11948E-05_JPRB /)  
+KB(:, 1,47, 5) = (/ &
+ & 0.98364E-08_JPRB,0.11306E-05_JPRB,0.15353E-05_JPRB,0.15746E-05_JPRB,0.69554E-06_JPRB /)  
+KB(:, 2,47, 5) = (/ &
+ & 0.11226E-07_JPRB,0.12534E-05_JPRB,0.16765E-05_JPRB,0.16944E-05_JPRB,0.76925E-06_JPRB /)  
+KB(:, 3,47, 5) = (/ &
+ & 0.12483E-07_JPRB,0.13784E-05_JPRB,0.18130E-05_JPRB,0.18087E-05_JPRB,0.84036E-06_JPRB /)  
+KB(:, 4,47, 5) = (/ &
+ & 0.13587E-07_JPRB,0.15007E-05_JPRB,0.19418E-05_JPRB,0.19122E-05_JPRB,0.90712E-06_JPRB /)  
+KB(:, 5,47, 5) = (/ &
+ & 0.14457E-07_JPRB,0.16158E-05_JPRB,0.20557E-05_JPRB,0.20073E-05_JPRB,0.96847E-06_JPRB /)  
+KB(:, 1,48, 5) = (/ &
+ & 0.75824E-08_JPRB,0.90329E-06_JPRB,0.12307E-05_JPRB,0.12653E-05_JPRB,0.55346E-06_JPRB /)  
+KB(:, 2,48, 5) = (/ &
+ & 0.87453E-08_JPRB,0.10050E-05_JPRB,0.13490E-05_JPRB,0.13676E-05_JPRB,0.61470E-06_JPRB /)  
+KB(:, 3,48, 5) = (/ &
+ & 0.98194E-08_JPRB,0.11101E-05_JPRB,0.14650E-05_JPRB,0.14651E-05_JPRB,0.67492E-06_JPRB /)  
+KB(:, 4,48, 5) = (/ &
+ & 0.10779E-07_JPRB,0.12141E-05_JPRB,0.15756E-05_JPRB,0.15544E-05_JPRB,0.73163E-06_JPRB /)  
+KB(:, 5,48, 5) = (/ &
+ & 0.11579E-07_JPRB,0.13125E-05_JPRB,0.16743E-05_JPRB,0.16359E-05_JPRB,0.78405E-06_JPRB /)  
+KB(:, 1,49, 5) = (/ &
+ & 0.58219E-08_JPRB,0.72015E-06_JPRB,0.98379E-06_JPRB,0.10143E-05_JPRB,0.43933E-06_JPRB /)  
+KB(:, 2,49, 5) = (/ &
+ & 0.67817E-08_JPRB,0.80423E-06_JPRB,0.10832E-05_JPRB,0.11023E-05_JPRB,0.49018E-06_JPRB /)  
+KB(:, 3,49, 5) = (/ &
+ & 0.76966E-08_JPRB,0.89205E-06_JPRB,0.11819E-05_JPRB,0.11846E-05_JPRB,0.54131E-06_JPRB /)  
+KB(:, 4,49, 5) = (/ &
+ & 0.85224E-08_JPRB,0.98005E-06_JPRB,0.12760E-05_JPRB,0.12617E-05_JPRB,0.58858E-06_JPRB /)  
+KB(:, 5,49, 5) = (/ &
+ & 0.92350E-08_JPRB,0.10644E-05_JPRB,0.13615E-05_JPRB,0.13319E-05_JPRB,0.63358E-06_JPRB /)  
+KB(:, 1,50, 5) = (/ &
+ & 0.44790E-08_JPRB,0.57418E-06_JPRB,0.78635E-06_JPRB,0.81296E-06_JPRB,0.34881E-06_JPRB /)  
+KB(:, 2,50, 5) = (/ &
+ & 0.52579E-08_JPRB,0.64388E-06_JPRB,0.87056E-06_JPRB,0.88896E-06_JPRB,0.39135E-06_JPRB /)  
+KB(:, 3,50, 5) = (/ &
+ & 0.60279E-08_JPRB,0.71722E-06_JPRB,0.95348E-06_JPRB,0.95809E-06_JPRB,0.43444E-06_JPRB /)  
+KB(:, 4,50, 5) = (/ &
+ & 0.67324E-08_JPRB,0.79134E-06_JPRB,0.10331E-05_JPRB,0.10243E-05_JPRB,0.47391E-06_JPRB /)  
+KB(:, 5,50, 5) = (/ &
+ & 0.73551E-08_JPRB,0.86330E-06_JPRB,0.11073E-05_JPRB,0.10842E-05_JPRB,0.51234E-06_JPRB /)  
+KB(:, 1,51, 5) = (/ &
+ & 0.34450E-08_JPRB,0.45753E-06_JPRB,0.62814E-06_JPRB,0.65158E-06_JPRB,0.27625E-06_JPRB /)  
+KB(:, 2,51, 5) = (/ &
+ & 0.40690E-08_JPRB,0.51530E-06_JPRB,0.69892E-06_JPRB,0.71555E-06_JPRB,0.31260E-06_JPRB /)  
+KB(:, 3,51, 5) = (/ &
+ & 0.47087E-08_JPRB,0.57624E-06_JPRB,0.76840E-06_JPRB,0.77477E-06_JPRB,0.34804E-06_JPRB /)  
+KB(:, 4,51, 5) = (/ &
+ & 0.53086E-08_JPRB,0.63843E-06_JPRB,0.83580E-06_JPRB,0.83092E-06_JPRB,0.38181E-06_JPRB /)  
+KB(:, 5,51, 5) = (/ &
+ & 0.58439E-08_JPRB,0.69956E-06_JPRB,0.89962E-06_JPRB,0.88225E-06_JPRB,0.41412E-06_JPRB /)  
+KB(:, 1,52, 5) = (/ &
+ & 0.26454E-08_JPRB,0.36387E-06_JPRB,0.50007E-06_JPRB,0.52179E-06_JPRB,0.21894E-06_JPRB /)  
+KB(:, 2,52, 5) = (/ &
+ & 0.31403E-08_JPRB,0.41173E-06_JPRB,0.55997E-06_JPRB,0.57479E-06_JPRB,0.24870E-06_JPRB /)  
+KB(:, 3,52, 5) = (/ &
+ & 0.36655E-08_JPRB,0.46211E-06_JPRB,0.61819E-06_JPRB,0.62511E-06_JPRB,0.27840E-06_JPRB /)  
+KB(:, 4,52, 5) = (/ &
+ & 0.41730E-08_JPRB,0.51415E-06_JPRB,0.67546E-06_JPRB,0.67307E-06_JPRB,0.30695E-06_JPRB /)  
+KB(:, 5,52, 5) = (/ &
+ & 0.46311E-08_JPRB,0.56582E-06_JPRB,0.72973E-06_JPRB,0.71697E-06_JPRB,0.33407E-06_JPRB /)  
+KB(:, 1,53, 5) = (/ &
+ & 0.20275E-08_JPRB,0.28873E-06_JPRB,0.39749E-06_JPRB,0.41647E-06_JPRB,0.17355E-06_JPRB /)  
+KB(:, 2,53, 5) = (/ &
+ & 0.24190E-08_JPRB,0.32821E-06_JPRB,0.44730E-06_JPRB,0.46063E-06_JPRB,0.19774E-06_JPRB /)  
+KB(:, 3,53, 5) = (/ &
+ & 0.28440E-08_JPRB,0.36981E-06_JPRB,0.49677E-06_JPRB,0.50411E-06_JPRB,0.22218E-06_JPRB /)  
+KB(:, 4,53, 5) = (/ &
+ & 0.32690E-08_JPRB,0.41315E-06_JPRB,0.54488E-06_JPRB,0.54408E-06_JPRB,0.24647E-06_JPRB /)  
+KB(:, 5,53, 5) = (/ &
+ & 0.36592E-08_JPRB,0.45680E-06_JPRB,0.59090E-06_JPRB,0.58189E-06_JPRB,0.26902E-06_JPRB /)  
+KB(:, 1,54, 5) = (/ &
+ & 0.15611E-08_JPRB,0.22962E-06_JPRB,0.31613E-06_JPRB,0.33300E-06_JPRB,0.13730E-06_JPRB /)  
+KB(:, 2,54, 5) = (/ &
+ & 0.18696E-08_JPRB,0.26187E-06_JPRB,0.35802E-06_JPRB,0.36954E-06_JPRB,0.15701E-06_JPRB /)  
+KB(:, 3,54, 5) = (/ &
+ & 0.22100E-08_JPRB,0.29641E-06_JPRB,0.39970E-06_JPRB,0.40683E-06_JPRB,0.17764E-06_JPRB /)  
+KB(:, 4,54, 5) = (/ &
+ & 0.25619E-08_JPRB,0.33255E-06_JPRB,0.44009E-06_JPRB,0.44063E-06_JPRB,0.19808E-06_JPRB /)  
+KB(:, 5,54, 5) = (/ &
+ & 0.28928E-08_JPRB,0.36908E-06_JPRB,0.47892E-06_JPRB,0.47270E-06_JPRB,0.21696E-06_JPRB /)  
+KB(:, 1,55, 5) = (/ &
+ & 0.12041E-08_JPRB,0.18259E-06_JPRB,0.25108E-06_JPRB,0.26608E-06_JPRB,0.10842E-06_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART19',1,ZHOOK_HANDLE)
+END SUBROUTINE PART19
+
+
+SUBROUTINE PART20
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART20',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,55, 5) = (/ &
+ & 0.14466E-08_JPRB,0.20918E-06_JPRB,0.28633E-06_JPRB,0.29677E-06_JPRB,0.12468E-06_JPRB /)  
+KB(:, 3,55, 5) = (/ &
+ & 0.17176E-08_JPRB,0.23765E-06_JPRB,0.32139E-06_JPRB,0.32799E-06_JPRB,0.14213E-06_JPRB /)  
+KB(:, 4,55, 5) = (/ &
+ & 0.20058E-08_JPRB,0.26766E-06_JPRB,0.35523E-06_JPRB,0.35664E-06_JPRB,0.15907E-06_JPRB /)  
+KB(:, 5,55, 5) = (/ &
+ & 0.22852E-08_JPRB,0.29818E-06_JPRB,0.38806E-06_JPRB,0.38381E-06_JPRB,0.17512E-06_JPRB /)  
+KB(:, 1,56, 5) = (/ &
+ & 0.92934E-09_JPRB,0.14496E-06_JPRB,0.19887E-06_JPRB,0.21215E-06_JPRB,0.85185E-07_JPRB /)  
+KB(:, 2,56, 5) = (/ &
+ & 0.11180E-08_JPRB,0.16668E-06_JPRB,0.22841E-06_JPRB,0.23799E-06_JPRB,0.99172E-07_JPRB /)  
+KB(:, 3,56, 5) = (/ &
+ & 0.13333E-08_JPRB,0.19024E-06_JPRB,0.25790E-06_JPRB,0.26385E-06_JPRB,0.11331E-06_JPRB /)  
+KB(:, 4,56, 5) = (/ &
+ & 0.15668E-08_JPRB,0.21512E-06_JPRB,0.28626E-06_JPRB,0.28820E-06_JPRB,0.12758E-06_JPRB /)  
+KB(:, 5,56, 5) = (/ &
+ & 0.18000E-08_JPRB,0.24055E-06_JPRB,0.31405E-06_JPRB,0.31134E-06_JPRB,0.14106E-06_JPRB /)  
+KB(:, 1,57, 5) = (/ &
+ & 0.71747E-09_JPRB,0.11491E-06_JPRB,0.15760E-06_JPRB,0.16907E-06_JPRB,0.66762E-07_JPRB /)  
+KB(:, 2,57, 5) = (/ &
+ & 0.86318E-09_JPRB,0.13266E-06_JPRB,0.18198E-06_JPRB,0.19051E-06_JPRB,0.78844E-07_JPRB /)  
+KB(:, 3,57, 5) = (/ &
+ & 0.10332E-08_JPRB,0.15199E-06_JPRB,0.20646E-06_JPRB,0.21185E-06_JPRB,0.90317E-07_JPRB /)  
+KB(:, 4,57, 5) = (/ &
+ & 0.12205E-08_JPRB,0.17255E-06_JPRB,0.23049E-06_JPRB,0.23280E-06_JPRB,0.10211E-06_JPRB /)  
+KB(:, 5,57, 5) = (/ &
+ & 0.14137E-08_JPRB,0.19374E-06_JPRB,0.25377E-06_JPRB,0.25209E-06_JPRB,0.11347E-06_JPRB /)  
+KB(:, 1,58, 5) = (/ &
+ & 0.55534E-09_JPRB,0.91161E-07_JPRB,0.12495E-06_JPRB,0.13481E-06_JPRB,0.52524E-07_JPRB /)  
+KB(:, 2,58, 5) = (/ &
+ & 0.66796E-09_JPRB,0.10564E-06_JPRB,0.14490E-06_JPRB,0.15246E-06_JPRB,0.62491E-07_JPRB /)  
+KB(:, 3,58, 5) = (/ &
+ & 0.80208E-09_JPRB,0.12142E-06_JPRB,0.16540E-06_JPRB,0.17013E-06_JPRB,0.71923E-07_JPRB /)  
+KB(:, 4,58, 5) = (/ &
+ & 0.95155E-09_JPRB,0.13846E-06_JPRB,0.18562E-06_JPRB,0.18803E-06_JPRB,0.81760E-07_JPRB /)  
+KB(:, 5,58, 5) = (/ &
+ & 0.11100E-08_JPRB,0.15608E-06_JPRB,0.20513E-06_JPRB,0.20425E-06_JPRB,0.91405E-07_JPRB /)  
+KB(:, 1,59, 5) = (/ &
+ & 0.44483E-09_JPRB,0.74201E-07_JPRB,0.10175E-06_JPRB,0.10986E-06_JPRB,0.42626E-07_JPRB /)  
+KB(:, 2,59, 5) = (/ &
+ & 0.53478E-09_JPRB,0.86257E-07_JPRB,0.11818E-06_JPRB,0.12453E-06_JPRB,0.50816E-07_JPRB /)  
+KB(:, 3,59, 5) = (/ &
+ & 0.64265E-09_JPRB,0.99390E-07_JPRB,0.13535E-06_JPRB,0.13928E-06_JPRB,0.58658E-07_JPRB /)  
+KB(:, 4,59, 5) = (/ &
+ & 0.76369E-09_JPRB,0.11360E-06_JPRB,0.15224E-06_JPRB,0.15417E-06_JPRB,0.66845E-07_JPRB /)  
+KB(:, 5,59, 5) = (/ &
+ & 0.89316E-09_JPRB,0.12826E-06_JPRB,0.16850E-06_JPRB,0.16775E-06_JPRB,0.74841E-07_JPRB /)  
+KB(:, 1,13, 6) = (/ &
+ & 0.15452E-03_JPRB,0.17471E-02_JPRB,0.22870E-02_JPRB,0.22757E-02_JPRB,0.11868E-02_JPRB /)  
+KB(:, 2,13, 6) = (/ &
+ & 0.17358E-03_JPRB,0.18337E-02_JPRB,0.23752E-02_JPRB,0.23549E-02_JPRB,0.12492E-02_JPRB /)  
+KB(:, 3,13, 6) = (/ &
+ & 0.19043E-03_JPRB,0.19070E-02_JPRB,0.24479E-02_JPRB,0.24255E-02_JPRB,0.13114E-02_JPRB /)  
+KB(:, 4,13, 6) = (/ &
+ & 0.20459E-03_JPRB,0.19702E-02_JPRB,0.25109E-02_JPRB,0.24905E-02_JPRB,0.13717E-02_JPRB /)  
+KB(:, 5,13, 6) = (/ &
+ & 0.21621E-03_JPRB,0.20266E-02_JPRB,0.25653E-02_JPRB,0.25512E-02_JPRB,0.14320E-02_JPRB /)  
+KB(:, 1,14, 6) = (/ &
+ & 0.12793E-03_JPRB,0.14662E-02_JPRB,0.19141E-02_JPRB,0.19032E-02_JPRB,0.99404E-03_JPRB /)  
+KB(:, 2,14, 6) = (/ &
+ & 0.14335E-03_JPRB,0.15367E-02_JPRB,0.19852E-02_JPRB,0.19691E-02_JPRB,0.10462E-02_JPRB /)  
+KB(:, 3,14, 6) = (/ &
+ & 0.15698E-03_JPRB,0.15974E-02_JPRB,0.20454E-02_JPRB,0.20285E-02_JPRB,0.10986E-02_JPRB /)  
+KB(:, 4,14, 6) = (/ &
+ & 0.16837E-03_JPRB,0.16505E-02_JPRB,0.20982E-02_JPRB,0.20828E-02_JPRB,0.11509E-02_JPRB /)  
+KB(:, 5,14, 6) = (/ &
+ & 0.17765E-03_JPRB,0.16990E-02_JPRB,0.21452E-02_JPRB,0.21357E-02_JPRB,0.12020E-02_JPRB /)  
+KB(:, 1,15, 6) = (/ &
+ & 0.10600E-03_JPRB,0.12280E-02_JPRB,0.15987E-02_JPRB,0.15899E-02_JPRB,0.83160E-03_JPRB /)  
+KB(:, 2,15, 6) = (/ &
+ & 0.11846E-03_JPRB,0.12858E-02_JPRB,0.16570E-02_JPRB,0.16438E-02_JPRB,0.87641E-03_JPRB /)  
+KB(:, 3,15, 6) = (/ &
+ & 0.12947E-03_JPRB,0.13362E-02_JPRB,0.17073E-02_JPRB,0.16937E-02_JPRB,0.92037E-03_JPRB /)  
+KB(:, 4,15, 6) = (/ &
+ & 0.13860E-03_JPRB,0.13818E-02_JPRB,0.17519E-02_JPRB,0.17401E-02_JPRB,0.96514E-03_JPRB /)  
+KB(:, 5,15, 6) = (/ &
+ & 0.14605E-03_JPRB,0.14231E-02_JPRB,0.17922E-02_JPRB,0.17849E-02_JPRB,0.10088E-02_JPRB /)  
+KB(:, 1,16, 6) = (/ &
+ & 0.87844E-04_JPRB,0.10268E-02_JPRB,0.13337E-02_JPRB,0.13258E-02_JPRB,0.69471E-03_JPRB /)  
+KB(:, 2,16, 6) = (/ &
+ & 0.97921E-04_JPRB,0.10747E-02_JPRB,0.13816E-02_JPRB,0.13704E-02_JPRB,0.73309E-03_JPRB /)  
+KB(:, 3,16, 6) = (/ &
+ & 0.10678E-03_JPRB,0.11173E-02_JPRB,0.14240E-02_JPRB,0.14122E-02_JPRB,0.77126E-03_JPRB /)  
+KB(:, 4,16, 6) = (/ &
+ & 0.11410E-03_JPRB,0.11561E-02_JPRB,0.14619E-02_JPRB,0.14525E-02_JPRB,0.80983E-03_JPRB /)  
+KB(:, 5,16, 6) = (/ &
+ & 0.12008E-03_JPRB,0.11913E-02_JPRB,0.14957E-02_JPRB,0.14904E-02_JPRB,0.84685E-03_JPRB /)  
+KB(:, 1,17, 6) = (/ &
+ & 0.72736E-04_JPRB,0.85770E-03_JPRB,0.11110E-02_JPRB,0.11043E-02_JPRB,0.57988E-03_JPRB /)  
+KB(:, 2,17, 6) = (/ &
+ & 0.80870E-04_JPRB,0.89737E-03_JPRB,0.11508E-02_JPRB,0.11412E-02_JPRB,0.61310E-03_JPRB /)  
+KB(:, 3,17, 6) = (/ &
+ & 0.87984E-04_JPRB,0.93334E-03_JPRB,0.11865E-02_JPRB,0.11769E-02_JPRB,0.64563E-03_JPRB /)  
+KB(:, 4,17, 6) = (/ &
+ & 0.93900E-04_JPRB,0.96637E-03_JPRB,0.12188E-02_JPRB,0.12115E-02_JPRB,0.67946E-03_JPRB /)  
+KB(:, 5,17, 6) = (/ &
+ & 0.98669E-04_JPRB,0.99682E-03_JPRB,0.12477E-02_JPRB,0.12444E-02_JPRB,0.71129E-03_JPRB /)  
+KB(:, 1,18, 6) = (/ &
+ & 0.60196E-04_JPRB,0.71585E-03_JPRB,0.92484E-03_JPRB,0.91885E-03_JPRB,0.48428E-03_JPRB /)  
+KB(:, 2,18, 6) = (/ &
+ & 0.66759E-04_JPRB,0.74902E-03_JPRB,0.95806E-03_JPRB,0.95007E-03_JPRB,0.51254E-03_JPRB /)  
+KB(:, 3,18, 6) = (/ &
+ & 0.72486E-04_JPRB,0.77936E-03_JPRB,0.98828E-03_JPRB,0.98036E-03_JPRB,0.54118E-03_JPRB /)  
+KB(:, 4,18, 6) = (/ &
+ & 0.77210E-04_JPRB,0.80757E-03_JPRB,0.10157E-02_JPRB,0.10101E-02_JPRB,0.56995E-03_JPRB /)  
+KB(:, 5,18, 6) = (/ &
+ & 0.81046E-04_JPRB,0.83344E-03_JPRB,0.10405E-02_JPRB,0.10390E-02_JPRB,0.59762E-03_JPRB /)  
+KB(:, 1,19, 6) = (/ &
+ & 0.49797E-04_JPRB,0.59714E-03_JPRB,0.76951E-03_JPRB,0.76408E-03_JPRB,0.40487E-03_JPRB /)  
+KB(:, 2,19, 6) = (/ &
+ & 0.55098E-04_JPRB,0.62505E-03_JPRB,0.79728E-03_JPRB,0.79071E-03_JPRB,0.42904E-03_JPRB /)  
+KB(:, 3,19, 6) = (/ &
+ & 0.59690E-04_JPRB,0.65071E-03_JPRB,0.82294E-03_JPRB,0.81671E-03_JPRB,0.45375E-03_JPRB /)  
+KB(:, 4,19, 6) = (/ &
+ & 0.63457E-04_JPRB,0.67490E-03_JPRB,0.84635E-03_JPRB,0.84245E-03_JPRB,0.47833E-03_JPRB /)  
+KB(:, 5,19, 6) = (/ &
+ & 0.66538E-04_JPRB,0.69683E-03_JPRB,0.86805E-03_JPRB,0.86812E-03_JPRB,0.50238E-03_JPRB /)  
+KB(:, 1,20, 6) = (/ &
+ & 0.41277E-04_JPRB,0.49854E-03_JPRB,0.64043E-03_JPRB,0.63582E-03_JPRB,0.33885E-03_JPRB /)  
+KB(:, 2,20, 6) = (/ &
+ & 0.45557E-04_JPRB,0.52197E-03_JPRB,0.66408E-03_JPRB,0.65859E-03_JPRB,0.35960E-03_JPRB /)  
+KB(:, 3,20, 6) = (/ &
+ & 0.49226E-04_JPRB,0.54380E-03_JPRB,0.68582E-03_JPRB,0.68111E-03_JPRB,0.38108E-03_JPRB /)  
+KB(:, 4,20, 6) = (/ &
+ & 0.52238E-04_JPRB,0.56442E-03_JPRB,0.70598E-03_JPRB,0.70364E-03_JPRB,0.40199E-03_JPRB /)  
+KB(:, 5,20, 6) = (/ &
+ & 0.54694E-04_JPRB,0.58320E-03_JPRB,0.72504E-03_JPRB,0.72645E-03_JPRB,0.42282E-03_JPRB /)  
+KB(:, 1,21, 6) = (/ &
+ & 0.34218E-04_JPRB,0.41624E-03_JPRB,0.53312E-03_JPRB,0.52912E-03_JPRB,0.28376E-03_JPRB /)  
+KB(:, 2,21, 6) = (/ &
+ & 0.37670E-04_JPRB,0.43597E-03_JPRB,0.55316E-03_JPRB,0.54893E-03_JPRB,0.30161E-03_JPRB /)  
+KB(:, 3,21, 6) = (/ &
+ & 0.40602E-04_JPRB,0.45467E-03_JPRB,0.57178E-03_JPRB,0.56861E-03_JPRB,0.32023E-03_JPRB /)  
+KB(:, 4,21, 6) = (/ &
+ & 0.43009E-04_JPRB,0.47220E-03_JPRB,0.58931E-03_JPRB,0.58850E-03_JPRB,0.33805E-03_JPRB /)  
+KB(:, 5,21, 6) = (/ &
+ & 0.44968E-04_JPRB,0.48850E-03_JPRB,0.60624E-03_JPRB,0.60867E-03_JPRB,0.35633E-03_JPRB /)  
+KB(:, 1,22, 6) = (/ &
+ & 0.28554E-04_JPRB,0.34872E-03_JPRB,0.44519E-03_JPRB,0.44203E-03_JPRB,0.23865E-03_JPRB /)  
+KB(:, 2,22, 6) = (/ &
+ & 0.31312E-04_JPRB,0.36543E-03_JPRB,0.46215E-03_JPRB,0.45896E-03_JPRB,0.25429E-03_JPRB /)  
+KB(:, 3,22, 6) = (/ &
+ & 0.33623E-04_JPRB,0.38136E-03_JPRB,0.47808E-03_JPRB,0.47625E-03_JPRB,0.27020E-03_JPRB /)  
+KB(:, 4,22, 6) = (/ &
+ & 0.35518E-04_JPRB,0.39638E-03_JPRB,0.49352E-03_JPRB,0.49393E-03_JPRB,0.28567E-03_JPRB /)  
+KB(:, 5,22, 6) = (/ &
+ & 0.37060E-04_JPRB,0.41046E-03_JPRB,0.50833E-03_JPRB,0.51152E-03_JPRB,0.30169E-03_JPRB /)  
+KB(:, 1,23, 6) = (/ &
+ & 0.23825E-04_JPRB,0.29241E-03_JPRB,0.37202E-03_JPRB,0.36957E-03_JPRB,0.20120E-03_JPRB /)  
+KB(:, 2,23, 6) = (/ &
+ & 0.26019E-04_JPRB,0.30664E-03_JPRB,0.38650E-03_JPRB,0.38433E-03_JPRB,0.21484E-03_JPRB /)  
+KB(:, 3,23, 6) = (/ &
+ & 0.27840E-04_JPRB,0.32027E-03_JPRB,0.40038E-03_JPRB,0.39957E-03_JPRB,0.22829E-03_JPRB /)  
+KB(:, 4,23, 6) = (/ &
+ & 0.29329E-04_JPRB,0.33317E-03_JPRB,0.41396E-03_JPRB,0.41498E-03_JPRB,0.24169E-03_JPRB /)  
+KB(:, 5,23, 6) = (/ &
+ & 0.30542E-04_JPRB,0.34547E-03_JPRB,0.42681E-03_JPRB,0.43048E-03_JPRB,0.25568E-03_JPRB /)  
+KB(:, 1,24, 6) = (/ &
+ & 0.19879E-04_JPRB,0.24552E-03_JPRB,0.31135E-03_JPRB,0.30936E-03_JPRB,0.16986E-03_JPRB /)  
+KB(:, 2,24, 6) = (/ &
+ & 0.21617E-04_JPRB,0.25767E-03_JPRB,0.32376E-03_JPRB,0.32228E-03_JPRB,0.18173E-03_JPRB /)  
+KB(:, 3,24, 6) = (/ &
+ & 0.23050E-04_JPRB,0.26937E-03_JPRB,0.33590E-03_JPRB,0.33579E-03_JPRB,0.19320E-03_JPRB /)  
+KB(:, 4,24, 6) = (/ &
+ & 0.24217E-04_JPRB,0.28054E-03_JPRB,0.34772E-03_JPRB,0.34922E-03_JPRB,0.20501E-03_JPRB /)  
+KB(:, 5,24, 6) = (/ &
+ & 0.25164E-04_JPRB,0.29121E-03_JPRB,0.35883E-03_JPRB,0.36286E-03_JPRB,0.21708E-03_JPRB /)  
+KB(:, 1,25, 6) = (/ &
+ & 0.16589E-04_JPRB,0.20645E-03_JPRB,0.26087E-03_JPRB,0.25944E-03_JPRB,0.14369E-03_JPRB /)  
+KB(:, 2,25, 6) = (/ &
+ & 0.17961E-04_JPRB,0.21688E-03_JPRB,0.27162E-03_JPRB,0.27083E-03_JPRB,0.15386E-03_JPRB /)  
+KB(:, 3,25, 6) = (/ &
+ & 0.19083E-04_JPRB,0.22697E-03_JPRB,0.28229E-03_JPRB,0.28258E-03_JPRB,0.16383E-03_JPRB /)  
+KB(:, 4,25, 6) = (/ &
+ & 0.19998E-04_JPRB,0.23668E-03_JPRB,0.29245E-03_JPRB,0.29438E-03_JPRB,0.17418E-03_JPRB /)  
+KB(:, 5,25, 6) = (/ &
+ & 0.20737E-04_JPRB,0.24589E-03_JPRB,0.30216E-03_JPRB,0.30647E-03_JPRB,0.18465E-03_JPRB /)  
+KB(:, 1,26, 6) = (/ &
+ & 0.13858E-04_JPRB,0.17402E-03_JPRB,0.21906E-03_JPRB,0.21804E-03_JPRB,0.12205E-03_JPRB /)  
+KB(:, 2,26, 6) = (/ &
+ & 0.14930E-04_JPRB,0.18300E-03_JPRB,0.22843E-03_JPRB,0.22813E-03_JPRB,0.13065E-03_JPRB /)  
+KB(:, 3,26, 6) = (/ &
+ & 0.15807E-04_JPRB,0.19174E-03_JPRB,0.23770E-03_JPRB,0.23830E-03_JPRB,0.13933E-03_JPRB /)  
+KB(:, 4,26, 6) = (/ &
+ & 0.16522E-04_JPRB,0.20010E-03_JPRB,0.24640E-03_JPRB,0.24876E-03_JPRB,0.14837E-03_JPRB /)  
+KB(:, 5,26, 6) = (/ &
+ & 0.17090E-04_JPRB,0.20798E-03_JPRB,0.25500E-03_JPRB,0.25943E-03_JPRB,0.15748E-03_JPRB /)  
+KB(:, 1,27, 6) = (/ &
+ & 0.11565E-04_JPRB,0.14689E-03_JPRB,0.18423E-03_JPRB,0.18358E-03_JPRB,0.10372E-03_JPRB /)  
+KB(:, 2,27, 6) = (/ &
+ & 0.12404E-04_JPRB,0.15466E-03_JPRB,0.19242E-03_JPRB,0.19242E-03_JPRB,0.11104E-03_JPRB /)  
+KB(:, 3,27, 6) = (/ &
+ & 0.13088E-04_JPRB,0.16225E-03_JPRB,0.20035E-03_JPRB,0.20136E-03_JPRB,0.11877E-03_JPRB /)  
+KB(:, 4,27, 6) = (/ &
+ & 0.13644E-04_JPRB,0.16938E-03_JPRB,0.20793E-03_JPRB,0.21054E-03_JPRB,0.12658E-03_JPRB /)  
+KB(:, 5,27, 6) = (/ &
+ & 0.14079E-04_JPRB,0.17614E-03_JPRB,0.21553E-03_JPRB,0.22004E-03_JPRB,0.13455E-03_JPRB /)  
+KB(:, 1,28, 6) = (/ &
+ & 0.96429E-05_JPRB,0.12422E-03_JPRB,0.15518E-03_JPRB,0.15486E-03_JPRB,0.88240E-04_JPRB /)  
+KB(:, 2,28, 6) = (/ &
+ & 0.10297E-04_JPRB,0.13093E-03_JPRB,0.16229E-03_JPRB,0.16255E-03_JPRB,0.94664E-04_JPRB /)  
+KB(:, 3,28, 6) = (/ &
+ & 0.10829E-04_JPRB,0.13744E-03_JPRB,0.16911E-03_JPRB,0.17043E-03_JPRB,0.10137E-03_JPRB /)  
+KB(:, 4,28, 6) = (/ &
+ & 0.11263E-04_JPRB,0.14355E-03_JPRB,0.17577E-03_JPRB,0.17861E-03_JPRB,0.10818E-03_JPRB /)  
+KB(:, 5,28, 6) = (/ &
+ & 0.11593E-04_JPRB,0.14936E-03_JPRB,0.18245E-03_JPRB,0.18698E-03_JPRB,0.11517E-03_JPRB /)  
+KB(:, 1,29, 6) = (/ &
+ & 0.80357E-05_JPRB,0.10525E-03_JPRB,0.13098E-03_JPRB,0.13087E-03_JPRB,0.75199E-04_JPRB /)  
+KB(:, 2,29, 6) = (/ &
+ & 0.85457E-05_JPRB,0.11106E-03_JPRB,0.13709E-03_JPRB,0.13756E-03_JPRB,0.80877E-04_JPRB /)  
+KB(:, 3,29, 6) = (/ &
+ & 0.89585E-05_JPRB,0.11659E-03_JPRB,0.14298E-03_JPRB,0.14458E-03_JPRB,0.86703E-04_JPRB /)  
+KB(:, 4,29, 6) = (/ &
+ & 0.92936E-05_JPRB,0.12185E-03_JPRB,0.14887E-03_JPRB,0.15184E-03_JPRB,0.92679E-04_JPRB /)  
+KB(:, 5,29, 6) = (/ &
+ & 0.95413E-05_JPRB,0.12685E-03_JPRB,0.15476E-03_JPRB,0.15926E-03_JPRB,0.98770E-04_JPRB /)  
+KB(:, 1,30, 6) = (/ &
+ & 0.66891E-05_JPRB,0.89326E-04_JPRB,0.11070E-03_JPRB,0.11075E-03_JPRB,0.64254E-04_JPRB /)  
+KB(:, 2,30, 6) = (/ &
+ & 0.70855E-05_JPRB,0.94280E-04_JPRB,0.11595E-03_JPRB,0.11668E-03_JPRB,0.69215E-04_JPRB /)  
+KB(:, 3,30, 6) = (/ &
+ & 0.74068E-05_JPRB,0.99029E-04_JPRB,0.12112E-03_JPRB,0.12290E-03_JPRB,0.74278E-04_JPRB /)  
+KB(:, 4,30, 6) = (/ &
+ & 0.76634E-05_JPRB,0.10356E-03_JPRB,0.12631E-03_JPRB,0.12933E-03_JPRB,0.79489E-04_JPRB /)  
+KB(:, 5,30, 6) = (/ &
+ & 0.78499E-05_JPRB,0.10785E-03_JPRB,0.13152E-03_JPRB,0.13588E-03_JPRB,0.84762E-04_JPRB /)  
+KB(:, 1,31, 6) = (/ &
+ & 0.55647E-05_JPRB,0.75943E-04_JPRB,0.93695E-04_JPRB,0.93906E-04_JPRB,0.55002E-04_JPRB /)  
+KB(:, 2,31, 6) = (/ &
+ & 0.58719E-05_JPRB,0.80167E-04_JPRB,0.98229E-04_JPRB,0.99204E-04_JPRB,0.59329E-04_JPRB /)  
+KB(:, 3,31, 6) = (/ &
+ & 0.61212E-05_JPRB,0.84249E-04_JPRB,0.10281E-03_JPRB,0.10471E-03_JPRB,0.63778E-04_JPRB /)  
+KB(:, 4,31, 6) = (/ &
+ & 0.63162E-05_JPRB,0.88122E-04_JPRB,0.10738E-03_JPRB,0.11041E-03_JPRB,0.68318E-04_JPRB /)  
+KB(:, 5,31, 6) = (/ &
+ & 0.64553E-05_JPRB,0.91835E-04_JPRB,0.11204E-03_JPRB,0.11614E-03_JPRB,0.72907E-04_JPRB /)  
+KB(:, 1,32, 6) = (/ &
+ & 0.46246E-05_JPRB,0.64633E-04_JPRB,0.79398E-04_JPRB,0.79831E-04_JPRB,0.47190E-04_JPRB /)  
+KB(:, 2,32, 6) = (/ &
+ & 0.48628E-05_JPRB,0.68258E-04_JPRB,0.83383E-04_JPRB,0.84521E-04_JPRB,0.50953E-04_JPRB /)  
+KB(:, 3,32, 6) = (/ &
+ & 0.50557E-05_JPRB,0.71758E-04_JPRB,0.87418E-04_JPRB,0.89417E-04_JPRB,0.54823E-04_JPRB /)  
+KB(:, 4,32, 6) = (/ &
+ & 0.52035E-05_JPRB,0.75099E-04_JPRB,0.91481E-04_JPRB,0.94423E-04_JPRB,0.58785E-04_JPRB /)  
+KB(:, 5,32, 6) = (/ &
+ & 0.53068E-05_JPRB,0.78317E-04_JPRB,0.95646E-04_JPRB,0.99452E-04_JPRB,0.62766E-04_JPRB /)  
+KB(:, 1,33, 6) = (/ &
+ & 0.38403E-05_JPRB,0.55077E-04_JPRB,0.67410E-04_JPRB,0.68024E-04_JPRB,0.40538E-04_JPRB /)  
+KB(:, 2,33, 6) = (/ &
+ & 0.40244E-05_JPRB,0.58199E-04_JPRB,0.70924E-04_JPRB,0.72180E-04_JPRB,0.43839E-04_JPRB /)  
+KB(:, 3,33, 6) = (/ &
+ & 0.41730E-05_JPRB,0.61206E-04_JPRB,0.74475E-04_JPRB,0.76502E-04_JPRB,0.47222E-04_JPRB /)  
+KB(:, 4,33, 6) = (/ &
+ & 0.42835E-05_JPRB,0.64091E-04_JPRB,0.78114E-04_JPRB,0.80883E-04_JPRB,0.50652E-04_JPRB /)  
+KB(:, 5,33, 6) = (/ &
+ & 0.43604E-05_JPRB,0.66898E-04_JPRB,0.81798E-04_JPRB,0.85293E-04_JPRB,0.54102E-04_JPRB /)  
+KB(:, 1,34, 6) = (/ &
+ & 0.31801E-05_JPRB,0.46888E-04_JPRB,0.57233E-04_JPRB,0.57945E-04_JPRB,0.34781E-04_JPRB /)  
+KB(:, 2,34, 6) = (/ &
+ & 0.33244E-05_JPRB,0.49586E-04_JPRB,0.60319E-04_JPRB,0.61625E-04_JPRB,0.37646E-04_JPRB /)  
+KB(:, 3,34, 6) = (/ &
+ & 0.34389E-05_JPRB,0.52183E-04_JPRB,0.63465E-04_JPRB,0.65422E-04_JPRB,0.40606E-04_JPRB /)  
+KB(:, 4,34, 6) = (/ &
+ & 0.35228E-05_JPRB,0.54696E-04_JPRB,0.66697E-04_JPRB,0.69266E-04_JPRB,0.43571E-04_JPRB /)  
+KB(:, 5,34, 6) = (/ &
+ & 0.35804E-05_JPRB,0.57162E-04_JPRB,0.69964E-04_JPRB,0.73120E-04_JPRB,0.46562E-04_JPRB /)  
+KB(:, 1,35, 6) = (/ &
+ & 0.26200E-05_JPRB,0.39742E-04_JPRB,0.48410E-04_JPRB,0.49141E-04_JPRB,0.29639E-04_JPRB /)  
+KB(:, 2,35, 6) = (/ &
+ & 0.27351E-05_JPRB,0.42075E-04_JPRB,0.51122E-04_JPRB,0.52382E-04_JPRB,0.32146E-04_JPRB /)  
+KB(:, 3,35, 6) = (/ &
+ & 0.28253E-05_JPRB,0.44325E-04_JPRB,0.53916E-04_JPRB,0.55698E-04_JPRB,0.34701E-04_JPRB /)  
+KB(:, 4,35, 6) = (/ &
+ & 0.28907E-05_JPRB,0.46530E-04_JPRB,0.56769E-04_JPRB,0.59068E-04_JPRB,0.37280E-04_JPRB /)  
+KB(:, 5,35, 6) = (/ &
+ & 0.29354E-05_JPRB,0.48707E-04_JPRB,0.59649E-04_JPRB,0.62461E-04_JPRB,0.39864E-04_JPRB /)  
+KB(:, 1,36, 6) = (/ &
+ & 0.21469E-05_JPRB,0.33498E-04_JPRB,0.40744E-04_JPRB,0.41427E-04_JPRB,0.25045E-04_JPRB /)  
+KB(:, 2,36, 6) = (/ &
+ & 0.22407E-05_JPRB,0.35513E-04_JPRB,0.43124E-04_JPRB,0.44262E-04_JPRB,0.27227E-04_JPRB /)  
+KB(:, 3,36, 6) = (/ &
+ & 0.23140E-05_JPRB,0.37481E-04_JPRB,0.45588E-04_JPRB,0.47157E-04_JPRB,0.29433E-04_JPRB /)  
+KB(:, 4,36, 6) = (/ &
+ & 0.23673E-05_JPRB,0.39419E-04_JPRB,0.48109E-04_JPRB,0.50107E-04_JPRB,0.31672E-04_JPRB /)  
+KB(:, 5,36, 6) = (/ &
+ & 0.24035E-05_JPRB,0.41345E-04_JPRB,0.50640E-04_JPRB,0.53089E-04_JPRB,0.33911E-04_JPRB /)  
+KB(:, 1,37, 6) = (/ &
+ & 0.17464E-05_JPRB,0.27984E-04_JPRB,0.34007E-04_JPRB,0.34584E-04_JPRB,0.20899E-04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART20',1,ZHOOK_HANDLE)
+END SUBROUTINE PART20
+
+
+SUBROUTINE PART21
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART21',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,37, 6) = (/ &
+ & 0.18252E-05_JPRB,0.29737E-04_JPRB,0.36088E-04_JPRB,0.37051E-04_JPRB,0.22785E-04_JPRB /)  
+KB(:, 3,37, 6) = (/ &
+ & 0.18877E-05_JPRB,0.31460E-04_JPRB,0.38247E-04_JPRB,0.39573E-04_JPRB,0.24687E-04_JPRB /)  
+KB(:, 4,37, 6) = (/ &
+ & 0.19333E-05_JPRB,0.33165E-04_JPRB,0.40460E-04_JPRB,0.42146E-04_JPRB,0.26626E-04_JPRB /)  
+KB(:, 5,37, 6) = (/ &
+ & 0.19647E-05_JPRB,0.34869E-04_JPRB,0.42691E-04_JPRB,0.44765E-04_JPRB,0.28561E-04_JPRB /)  
+KB(:, 1,38, 6) = (/ &
+ & 0.14198E-05_JPRB,0.23364E-04_JPRB,0.28367E-04_JPRB,0.28854E-04_JPRB,0.17422E-04_JPRB /)  
+KB(:, 2,38, 6) = (/ &
+ & 0.14862E-05_JPRB,0.24892E-04_JPRB,0.30186E-04_JPRB,0.30994E-04_JPRB,0.19047E-04_JPRB /)  
+KB(:, 3,38, 6) = (/ &
+ & 0.15394E-05_JPRB,0.26399E-04_JPRB,0.32076E-04_JPRB,0.33192E-04_JPRB,0.20688E-04_JPRB /)  
+KB(:, 4,38, 6) = (/ &
+ & 0.15786E-05_JPRB,0.27898E-04_JPRB,0.34020E-04_JPRB,0.35441E-04_JPRB,0.22360E-04_JPRB /)  
+KB(:, 5,38, 6) = (/ &
+ & 0.16058E-05_JPRB,0.29401E-04_JPRB,0.35983E-04_JPRB,0.37735E-04_JPRB,0.24033E-04_JPRB /)  
+KB(:, 1,39, 6) = (/ &
+ & 0.11541E-05_JPRB,0.19509E-04_JPRB,0.23663E-04_JPRB,0.24072E-04_JPRB,0.14521E-04_JPRB /)  
+KB(:, 2,39, 6) = (/ &
+ & 0.12100E-05_JPRB,0.20837E-04_JPRB,0.25252E-04_JPRB,0.25929E-04_JPRB,0.15915E-04_JPRB /)  
+KB(:, 3,39, 6) = (/ &
+ & 0.12551E-05_JPRB,0.22155E-04_JPRB,0.26902E-04_JPRB,0.27842E-04_JPRB,0.17331E-04_JPRB /)  
+KB(:, 4,39, 6) = (/ &
+ & 0.12888E-05_JPRB,0.23470E-04_JPRB,0.28603E-04_JPRB,0.29806E-04_JPRB,0.18773E-04_JPRB /)  
+KB(:, 5,39, 6) = (/ &
+ & 0.13123E-05_JPRB,0.24794E-04_JPRB,0.30331E-04_JPRB,0.31815E-04_JPRB,0.20216E-04_JPRB /)  
+KB(:, 1,40, 6) = (/ &
+ & 0.93244E-06_JPRB,0.16171E-04_JPRB,0.19599E-04_JPRB,0.19918E-04_JPRB,0.11977E-04_JPRB /)  
+KB(:, 2,40, 6) = (/ &
+ & 0.98059E-06_JPRB,0.17324E-04_JPRB,0.20976E-04_JPRB,0.21519E-04_JPRB,0.13169E-04_JPRB /)  
+KB(:, 3,40, 6) = (/ &
+ & 0.10196E-05_JPRB,0.18475E-04_JPRB,0.22411E-04_JPRB,0.23178E-04_JPRB,0.14387E-04_JPRB /)  
+KB(:, 4,40, 6) = (/ &
+ & 0.10496E-05_JPRB,0.19626E-04_JPRB,0.23897E-04_JPRB,0.24887E-04_JPRB,0.15625E-04_JPRB /)  
+KB(:, 5,40, 6) = (/ &
+ & 0.10706E-05_JPRB,0.20792E-04_JPRB,0.25411E-04_JPRB,0.26641E-04_JPRB,0.16871E-04_JPRB /)  
+KB(:, 1,41, 6) = (/ &
+ & 0.75206E-06_JPRB,0.13381E-04_JPRB,0.16204E-04_JPRB,0.16448E-04_JPRB,0.98582E-05_JPRB /)  
+KB(:, 2,41, 6) = (/ &
+ & 0.79368E-06_JPRB,0.14380E-04_JPRB,0.17395E-04_JPRB,0.17824E-04_JPRB,0.10873E-04_JPRB /)  
+KB(:, 3,41, 6) = (/ &
+ & 0.82742E-06_JPRB,0.15382E-04_JPRB,0.18640E-04_JPRB,0.19259E-04_JPRB,0.11916E-04_JPRB /)  
+KB(:, 4,41, 6) = (/ &
+ & 0.85390E-06_JPRB,0.16388E-04_JPRB,0.19935E-04_JPRB,0.20745E-04_JPRB,0.12979E-04_JPRB /)  
+KB(:, 5,41, 6) = (/ &
+ & 0.87281E-06_JPRB,0.17412E-04_JPRB,0.21261E-04_JPRB,0.22271E-04_JPRB,0.14053E-04_JPRB /)  
+KB(:, 1,42, 6) = (/ &
+ & 0.60591E-06_JPRB,0.11061E-04_JPRB,0.13385E-04_JPRB,0.13568E-04_JPRB,0.81045E-05_JPRB /)  
+KB(:, 2,42, 6) = (/ &
+ & 0.64182E-06_JPRB,0.11926E-04_JPRB,0.14412E-04_JPRB,0.14751E-04_JPRB,0.89661E-05_JPRB /)  
+KB(:, 3,42, 6) = (/ &
+ & 0.67101E-06_JPRB,0.12797E-04_JPRB,0.15489E-04_JPRB,0.15987E-04_JPRB,0.98578E-05_JPRB /)  
+KB(:, 4,42, 6) = (/ &
+ & 0.69427E-06_JPRB,0.13675E-04_JPRB,0.16616E-04_JPRB,0.17274E-04_JPRB,0.10770E-04_JPRB /)  
+KB(:, 5,42, 6) = (/ &
+ & 0.71122E-06_JPRB,0.14573E-04_JPRB,0.17774E-04_JPRB,0.18601E-04_JPRB,0.11690E-04_JPRB /)  
+KB(:, 1,43, 6) = (/ &
+ & 0.48565E-06_JPRB,0.90929E-05_JPRB,0.10998E-04_JPRB,0.11127E-04_JPRB,0.66136E-05_JPRB /)  
+KB(:, 2,43, 6) = (/ &
+ & 0.51703E-06_JPRB,0.98401E-05_JPRB,0.11878E-04_JPRB,0.12136E-04_JPRB,0.73431E-05_JPRB /)  
+KB(:, 3,43, 6) = (/ &
+ & 0.54246E-06_JPRB,0.10594E-04_JPRB,0.12807E-04_JPRB,0.13197E-04_JPRB,0.81019E-05_JPRB /)  
+KB(:, 4,43, 6) = (/ &
+ & 0.56309E-06_JPRB,0.11359E-04_JPRB,0.13782E-04_JPRB,0.14306E-04_JPRB,0.88812E-05_JPRB /)  
+KB(:, 5,43, 6) = (/ &
+ & 0.57854E-06_JPRB,0.12144E-04_JPRB,0.14791E-04_JPRB,0.15456E-04_JPRB,0.96685E-05_JPRB /)  
+KB(:, 1,44, 6) = (/ &
+ & 0.38777E-06_JPRB,0.74478E-05_JPRB,0.90062E-05_JPRB,0.90921E-05_JPRB,0.53709E-05_JPRB /)  
+KB(:, 2,44, 6) = (/ &
+ & 0.41522E-06_JPRB,0.80919E-05_JPRB,0.97570E-05_JPRB,0.99478E-05_JPRB,0.59889E-05_JPRB /)  
+KB(:, 3,44, 6) = (/ &
+ & 0.43761E-06_JPRB,0.87433E-05_JPRB,0.10555E-04_JPRB,0.10856E-04_JPRB,0.66332E-05_JPRB /)  
+KB(:, 4,44, 6) = (/ &
+ & 0.45584E-06_JPRB,0.94063E-05_JPRB,0.11395E-04_JPRB,0.11808E-04_JPRB,0.72955E-05_JPRB /)  
+KB(:, 5,44, 6) = (/ &
+ & 0.46990E-06_JPRB,0.10091E-04_JPRB,0.12269E-04_JPRB,0.12799E-04_JPRB,0.79696E-05_JPRB /)  
+KB(:, 1,45, 6) = (/ &
+ & 0.30888E-06_JPRB,0.60898E-05_JPRB,0.73632E-05_JPRB,0.74181E-05_JPRB,0.43535E-05_JPRB /)  
+KB(:, 2,45, 6) = (/ &
+ & 0.33291E-06_JPRB,0.66440E-05_JPRB,0.80023E-05_JPRB,0.81416E-05_JPRB,0.48741E-05_JPRB /)  
+KB(:, 3,45, 6) = (/ &
+ & 0.35255E-06_JPRB,0.72052E-05_JPRB,0.86855E-05_JPRB,0.89154E-05_JPRB,0.54207E-05_JPRB /)  
+KB(:, 4,45, 6) = (/ &
+ & 0.36854E-06_JPRB,0.77787E-05_JPRB,0.94068E-05_JPRB,0.97308E-05_JPRB,0.59833E-05_JPRB /)  
+KB(:, 5,45, 6) = (/ &
+ & 0.38125E-06_JPRB,0.83745E-05_JPRB,0.10163E-04_JPRB,0.10583E-04_JPRB,0.65578E-05_JPRB /)  
+KB(:, 1,46, 6) = (/ &
+ & 0.24494E-06_JPRB,0.49598E-05_JPRB,0.59987E-05_JPRB,0.60289E-05_JPRB,0.35123E-05_JPRB /)  
+KB(:, 2,46, 6) = (/ &
+ & 0.26595E-06_JPRB,0.54355E-05_JPRB,0.65411E-05_JPRB,0.66383E-05_JPRB,0.39494E-05_JPRB /)  
+KB(:, 3,46, 6) = (/ &
+ & 0.28328E-06_JPRB,0.59173E-05_JPRB,0.71233E-05_JPRB,0.72943E-05_JPRB,0.44113E-05_JPRB /)  
+KB(:, 4,46, 6) = (/ &
+ & 0.29735E-06_JPRB,0.64123E-05_JPRB,0.77406E-05_JPRB,0.79904E-05_JPRB,0.48883E-05_JPRB /)  
+KB(:, 5,46, 6) = (/ &
+ & 0.30876E-06_JPRB,0.69283E-05_JPRB,0.83913E-05_JPRB,0.87211E-05_JPRB,0.53766E-05_JPRB /)  
+KB(:, 1,47, 6) = (/ &
+ & 0.19287E-06_JPRB,0.40134E-05_JPRB,0.48586E-05_JPRB,0.48718E-05_JPRB,0.28114E-05_JPRB /)  
+KB(:, 2,47, 6) = (/ &
+ & 0.21123E-06_JPRB,0.44208E-05_JPRB,0.53178E-05_JPRB,0.53794E-05_JPRB,0.31781E-05_JPRB /)  
+KB(:, 3,47, 6) = (/ &
+ & 0.22658E-06_JPRB,0.48332E-05_JPRB,0.58104E-05_JPRB,0.59335E-05_JPRB,0.35646E-05_JPRB /)  
+KB(:, 4,47, 6) = (/ &
+ & 0.23912E-06_JPRB,0.52582E-05_JPRB,0.63354E-05_JPRB,0.65230E-05_JPRB,0.39676E-05_JPRB /)  
+KB(:, 5,47, 6) = (/ &
+ & 0.24931E-06_JPRB,0.57025E-05_JPRB,0.68920E-05_JPRB,0.71458E-05_JPRB,0.43826E-05_JPRB /)  
+KB(:, 1,48, 6) = (/ &
+ & 0.15132E-06_JPRB,0.32395E-05_JPRB,0.39269E-05_JPRB,0.39289E-05_JPRB,0.22458E-05_JPRB /)  
+KB(:, 2,48, 6) = (/ &
+ & 0.16716E-06_JPRB,0.35866E-05_JPRB,0.43144E-05_JPRB,0.43511E-05_JPRB,0.25512E-05_JPRB /)  
+KB(:, 3,48, 6) = (/ &
+ & 0.18076E-06_JPRB,0.39391E-05_JPRB,0.47294E-05_JPRB,0.48161E-05_JPRB,0.28746E-05_JPRB /)  
+KB(:, 4,48, 6) = (/ &
+ & 0.19194E-06_JPRB,0.43030E-05_JPRB,0.51748E-05_JPRB,0.53142E-05_JPRB,0.32135E-05_JPRB /)  
+KB(:, 5,48, 6) = (/ &
+ & 0.20099E-06_JPRB,0.46842E-05_JPRB,0.56488E-05_JPRB,0.58430E-05_JPRB,0.35644E-05_JPRB /)  
+KB(:, 1,49, 6) = (/ &
+ & 0.11828E-06_JPRB,0.26078E-05_JPRB,0.31672E-05_JPRB,0.31617E-05_JPRB,0.17894E-05_JPRB /)  
+KB(:, 2,49, 6) = (/ &
+ & 0.13185E-06_JPRB,0.29029E-05_JPRB,0.34929E-05_JPRB,0.35125E-05_JPRB,0.20423E-05_JPRB /)  
+KB(:, 3,49, 6) = (/ &
+ & 0.14378E-06_JPRB,0.32030E-05_JPRB,0.38409E-05_JPRB,0.39000E-05_JPRB,0.23121E-05_JPRB /)  
+KB(:, 4,49, 6) = (/ &
+ & 0.15369E-06_JPRB,0.35139E-05_JPRB,0.42179E-05_JPRB,0.43198E-05_JPRB,0.25971E-05_JPRB /)  
+KB(:, 5,49, 6) = (/ &
+ & 0.16176E-06_JPRB,0.38391E-05_JPRB,0.46198E-05_JPRB,0.47667E-05_JPRB,0.28929E-05_JPRB /)  
+KB(:, 1,50, 6) = (/ &
+ & 0.92362E-07_JPRB,0.20997E-05_JPRB,0.25556E-05_JPRB,0.25471E-05_JPRB,0.14267E-05_JPRB /)  
+KB(:, 2,50, 6) = (/ &
+ & 0.10390E-06_JPRB,0.23496E-05_JPRB,0.28286E-05_JPRB,0.28368E-05_JPRB,0.16356E-05_JPRB /)  
+KB(:, 3,50, 6) = (/ &
+ & 0.11421E-06_JPRB,0.26049E-05_JPRB,0.31213E-05_JPRB,0.31606E-05_JPRB,0.18609E-05_JPRB /)  
+KB(:, 4,50, 6) = (/ &
+ & 0.12297E-06_JPRB,0.28694E-05_JPRB,0.34392E-05_JPRB,0.35125E-05_JPRB,0.20996E-05_JPRB /)  
+KB(:, 5,50, 6) = (/ &
+ & 0.13012E-06_JPRB,0.31471E-05_JPRB,0.37794E-05_JPRB,0.38900E-05_JPRB,0.23486E-05_JPRB /)  
+KB(:, 1,51, 6) = (/ &
+ & 0.72029E-07_JPRB,0.16879E-05_JPRB,0.20606E-05_JPRB,0.20506E-05_JPRB,0.11365E-05_JPRB /)  
+KB(:, 2,51, 6) = (/ &
+ & 0.81717E-07_JPRB,0.18994E-05_JPRB,0.22886E-05_JPRB,0.22902E-05_JPRB,0.13081E-05_JPRB /)  
+KB(:, 3,51, 6) = (/ &
+ & 0.90547E-07_JPRB,0.21162E-05_JPRB,0.25347E-05_JPRB,0.25588E-05_JPRB,0.14964E-05_JPRB /)  
+KB(:, 4,51, 6) = (/ &
+ & 0.98231E-07_JPRB,0.23407E-05_JPRB,0.28017E-05_JPRB,0.28537E-05_JPRB,0.16958E-05_JPRB /)  
+KB(:, 5,51, 6) = (/ &
+ & 0.10454E-06_JPRB,0.25770E-05_JPRB,0.30891E-05_JPRB,0.31719E-05_JPRB,0.19053E-05_JPRB /)  
+KB(:, 1,52, 6) = (/ &
+ & 0.55994E-07_JPRB,0.13535E-05_JPRB,0.16583E-05_JPRB,0.16483E-05_JPRB,0.90215E-06_JPRB /)  
+KB(:, 2,52, 6) = (/ &
+ & 0.64065E-07_JPRB,0.15318E-05_JPRB,0.18483E-05_JPRB,0.18452E-05_JPRB,0.10447E-05_JPRB /)  
+KB(:, 3,52, 6) = (/ &
+ & 0.71601E-07_JPRB,0.17156E-05_JPRB,0.20541E-05_JPRB,0.20679E-05_JPRB,0.12005E-05_JPRB /)  
+KB(:, 4,52, 6) = (/ &
+ & 0.78265E-07_JPRB,0.19055E-05_JPRB,0.22786E-05_JPRB,0.23151E-05_JPRB,0.13673E-05_JPRB /)  
+KB(:, 5,52, 6) = (/ &
+ & 0.83827E-07_JPRB,0.21062E-05_JPRB,0.25201E-05_JPRB,0.25812E-05_JPRB,0.15426E-05_JPRB /)  
+KB(:, 1,53, 6) = (/ &
+ & 0.43376E-07_JPRB,0.10823E-05_JPRB,0.13316E-05_JPRB,0.13229E-05_JPRB,0.71387E-06_JPRB /)  
+KB(:, 2,53, 6) = (/ &
+ & 0.50078E-07_JPRB,0.12320E-05_JPRB,0.14898E-05_JPRB,0.14843E-05_JPRB,0.83196E-06_JPRB /)  
+KB(:, 3,53, 6) = (/ &
+ & 0.56440E-07_JPRB,0.13873E-05_JPRB,0.16612E-05_JPRB,0.16678E-05_JPRB,0.96085E-06_JPRB /)  
+KB(:, 4,53, 6) = (/ &
+ & 0.62188E-07_JPRB,0.15481E-05_JPRB,0.18489E-05_JPRB,0.18736E-05_JPRB,0.10995E-05_JPRB /)  
+KB(:, 5,53, 6) = (/ &
+ & 0.67072E-07_JPRB,0.17179E-05_JPRB,0.20520E-05_JPRB,0.20964E-05_JPRB,0.12465E-05_JPRB /)  
+KB(:, 1,54, 6) = (/ &
+ & 0.33662E-07_JPRB,0.86685E-06_JPRB,0.10712E-05_JPRB,0.10638E-05_JPRB,0.56675E-06_JPRB /)  
+KB(:, 2,54, 6) = (/ &
+ & 0.39188E-07_JPRB,0.99237E-06_JPRB,0.12024E-05_JPRB,0.11965E-05_JPRB,0.66407E-06_JPRB /)  
+KB(:, 3,54, 6) = (/ &
+ & 0.44517E-07_JPRB,0.11234E-05_JPRB,0.13453E-05_JPRB,0.13477E-05_JPRB,0.77015E-06_JPRB /)  
+KB(:, 4,54, 6) = (/ &
+ & 0.49410E-07_JPRB,0.12591E-05_JPRB,0.15022E-05_JPRB,0.15186E-05_JPRB,0.88568E-06_JPRB /)  
+KB(:, 5,54, 6) = (/ &
+ & 0.53662E-07_JPRB,0.14028E-05_JPRB,0.16732E-05_JPRB,0.17054E-05_JPRB,0.10088E-05_JPRB /)  
+KB(:, 1,55, 6) = (/ &
+ & 0.26107E-07_JPRB,0.69409E-06_JPRB,0.86148E-06_JPRB,0.85535E-06_JPRB,0.44993E-06_JPRB /)  
+KB(:, 2,55, 6) = (/ &
+ & 0.30648E-07_JPRB,0.79874E-06_JPRB,0.97050E-06_JPRB,0.96432E-06_JPRB,0.52987E-06_JPRB /)  
+KB(:, 3,55, 6) = (/ &
+ & 0.35070E-07_JPRB,0.90919E-06_JPRB,0.10893E-05_JPRB,0.10889E-05_JPRB,0.61727E-06_JPRB /)  
+KB(:, 4,55, 6) = (/ &
+ & 0.39223E-07_JPRB,0.10237E-05_JPRB,0.12206E-05_JPRB,0.12308E-05_JPRB,0.71345E-06_JPRB /)  
+KB(:, 5,55, 6) = (/ &
+ & 0.42897E-07_JPRB,0.11450E-05_JPRB,0.13641E-05_JPRB,0.13878E-05_JPRB,0.81614E-06_JPRB /)  
+KB(:, 1,56, 6) = (/ &
+ & 0.20183E-07_JPRB,0.55461E-06_JPRB,0.69187E-06_JPRB,0.68686E-06_JPRB,0.35634E-06_JPRB /)  
+KB(:, 2,56, 6) = (/ &
+ & 0.23906E-07_JPRB,0.64143E-06_JPRB,0.78193E-06_JPRB,0.77615E-06_JPRB,0.42133E-06_JPRB /)  
+KB(:, 3,56, 6) = (/ &
+ & 0.27573E-07_JPRB,0.73422E-06_JPRB,0.88059E-06_JPRB,0.87848E-06_JPRB,0.49387E-06_JPRB /)  
+KB(:, 4,56, 6) = (/ &
+ & 0.31066E-07_JPRB,0.83083E-06_JPRB,0.99001E-06_JPRB,0.99604E-06_JPRB,0.57362E-06_JPRB /)  
+KB(:, 5,56, 6) = (/ &
+ & 0.34213E-07_JPRB,0.93302E-06_JPRB,0.11103E-05_JPRB,0.11271E-05_JPRB,0.65906E-06_JPRB /)  
+KB(:, 1,57, 6) = (/ &
+ & 0.15553E-07_JPRB,0.44221E-06_JPRB,0.55475E-06_JPRB,0.55051E-06_JPRB,0.28158E-06_JPRB /)  
+KB(:, 2,57, 6) = (/ &
+ & 0.18597E-07_JPRB,0.51387E-06_JPRB,0.62883E-06_JPRB,0.62381E-06_JPRB,0.33432E-06_JPRB /)  
+KB(:, 3,57, 6) = (/ &
+ & 0.21627E-07_JPRB,0.59165E-06_JPRB,0.71079E-06_JPRB,0.70768E-06_JPRB,0.39423E-06_JPRB /)  
+KB(:, 4,57, 6) = (/ &
+ & 0.24548E-07_JPRB,0.67286E-06_JPRB,0.80159E-06_JPRB,0.80451E-06_JPRB,0.46009E-06_JPRB /)  
+KB(:, 5,57, 6) = (/ &
+ & 0.27223E-07_JPRB,0.75870E-06_JPRB,0.90196E-06_JPRB,0.91372E-06_JPRB,0.53126E-06_JPRB /)  
+KB(:, 1,58, 6) = (/ &
+ & 0.11989E-07_JPRB,0.35271E-06_JPRB,0.44504E-06_JPRB,0.44164E-06_JPRB,0.22247E-06_JPRB /)  
+KB(:, 2,58, 6) = (/ &
+ & 0.14473E-07_JPRB,0.41167E-06_JPRB,0.50593E-06_JPRB,0.50179E-06_JPRB,0.26557E-06_JPRB /)  
+KB(:, 3,58, 6) = (/ &
+ & 0.16959E-07_JPRB,0.47681E-06_JPRB,0.57389E-06_JPRB,0.57055E-06_JPRB,0.31488E-06_JPRB /)  
+KB(:, 4,58, 6) = (/ &
+ & 0.19386E-07_JPRB,0.54503E-06_JPRB,0.64933E-06_JPRB,0.65043E-06_JPRB,0.36927E-06_JPRB /)  
+KB(:, 5,58, 6) = (/ &
+ & 0.21655E-07_JPRB,0.61705E-06_JPRB,0.73285E-06_JPRB,0.74092E-06_JPRB,0.42823E-06_JPRB /)  
+KB(:, 1,59, 6) = (/ &
+ & 0.95745E-08_JPRB,0.28909E-06_JPRB,0.36504E-06_JPRB,0.36221E-06_JPRB,0.18143E-06_JPRB /)  
+KB(:, 2,59, 6) = (/ &
+ & 0.11602E-07_JPRB,0.33869E-06_JPRB,0.41625E-06_JPRB,0.41267E-06_JPRB,0.21754E-06_JPRB /)  
+KB(:, 3,59, 6) = (/ &
+ & 0.13639E-07_JPRB,0.39363E-06_JPRB,0.47345E-06_JPRB,0.47053E-06_JPRB,0.25873E-06_JPRB /)  
+KB(:, 4,59, 6) = (/ &
+ & 0.15635E-07_JPRB,0.45132E-06_JPRB,0.53722E-06_JPRB,0.53779E-06_JPRB,0.30436E-06_JPRB /)  
+KB(:, 5,59, 6) = (/ &
+ & 0.17515E-07_JPRB,0.51255E-06_JPRB,0.60804E-06_JPRB,0.61445E-06_JPRB,0.35395E-06_JPRB /)  
+KB(:, 1,13, 7) = (/ &
+ & 0.13818E-02_JPRB,0.53095E-02_JPRB,0.61744E-02_JPRB,0.61409E-02_JPRB,0.38201E-02_JPRB /)  
+KB(:, 2,13, 7) = (/ &
+ & 0.14927E-02_JPRB,0.54262E-02_JPRB,0.63169E-02_JPRB,0.63268E-02_JPRB,0.39787E-02_JPRB /)  
+KB(:, 3,13, 7) = (/ &
+ & 0.15882E-02_JPRB,0.55245E-02_JPRB,0.64575E-02_JPRB,0.65042E-02_JPRB,0.41285E-02_JPRB /)  
+KB(:, 4,13, 7) = (/ &
+ & 0.16683E-02_JPRB,0.56028E-02_JPRB,0.65859E-02_JPRB,0.66764E-02_JPRB,0.42766E-02_JPRB /)  
+KB(:, 5,13, 7) = (/ &
+ & 0.17364E-02_JPRB,0.56642E-02_JPRB,0.66996E-02_JPRB,0.68400E-02_JPRB,0.44196E-02_JPRB /)  
+KB(:, 1,14, 7) = (/ &
+ & 0.11439E-02_JPRB,0.44642E-02_JPRB,0.52052E-02_JPRB,0.51954E-02_JPRB,0.32185E-02_JPRB /)  
+KB(:, 2,14, 7) = (/ &
+ & 0.12322E-02_JPRB,0.45612E-02_JPRB,0.53295E-02_JPRB,0.53554E-02_JPRB,0.33544E-02_JPRB /)  
+KB(:, 3,14, 7) = (/ &
+ & 0.13082E-02_JPRB,0.46425E-02_JPRB,0.54474E-02_JPRB,0.55111E-02_JPRB,0.34869E-02_JPRB /)  
+KB(:, 4,14, 7) = (/ &
+ & 0.13723E-02_JPRB,0.47078E-02_JPRB,0.55568E-02_JPRB,0.56605E-02_JPRB,0.36178E-02_JPRB /)  
+KB(:, 5,14, 7) = (/ &
+ & 0.14273E-02_JPRB,0.47614E-02_JPRB,0.56536E-02_JPRB,0.58004E-02_JPRB,0.37445E-02_JPRB /)  
+KB(:, 1,15, 7) = (/ &
+ & 0.94600E-03_JPRB,0.37452E-02_JPRB,0.43786E-02_JPRB,0.43839E-02_JPRB,0.27064E-02_JPRB /)  
+KB(:, 2,15, 7) = (/ &
+ & 0.10166E-02_JPRB,0.38272E-02_JPRB,0.44845E-02_JPRB,0.45238E-02_JPRB,0.28259E-02_JPRB /)  
+KB(:, 3,15, 7) = (/ &
+ & 0.10772E-02_JPRB,0.38951E-02_JPRB,0.45852E-02_JPRB,0.46569E-02_JPRB,0.29424E-02_JPRB /)  
+KB(:, 4,15, 7) = (/ &
+ & 0.11287E-02_JPRB,0.39508E-02_JPRB,0.46776E-02_JPRB,0.47856E-02_JPRB,0.30573E-02_JPRB /)  
+KB(:, 5,15, 7) = (/ &
+ & 0.11727E-02_JPRB,0.39984E-02_JPRB,0.47639E-02_JPRB,0.49094E-02_JPRB,0.31707E-02_JPRB /)  
+KB(:, 1,16, 7) = (/ &
+ & 0.78170E-03_JPRB,0.31386E-02_JPRB,0.36753E-02_JPRB,0.36925E-02_JPRB,0.22749E-02_JPRB /)  
+KB(:, 2,16, 7) = (/ &
+ & 0.83828E-03_JPRB,0.32067E-02_JPRB,0.37655E-02_JPRB,0.38108E-02_JPRB,0.23791E-02_JPRB /)  
+KB(:, 3,16, 7) = (/ &
+ & 0.88677E-03_JPRB,0.32636E-02_JPRB,0.38524E-02_JPRB,0.39267E-02_JPRB,0.24809E-02_JPRB /)  
+KB(:, 4,16, 7) = (/ &
+ & 0.92814E-03_JPRB,0.33127E-02_JPRB,0.39332E-02_JPRB,0.40389E-02_JPRB,0.25819E-02_JPRB /)  
+KB(:, 5,16, 7) = (/ &
+ & 0.96342E-03_JPRB,0.33561E-02_JPRB,0.40123E-02_JPRB,0.41493E-02_JPRB,0.26825E-02_JPRB /)  
+KB(:, 1,17, 7) = (/ &
+ & 0.64513E-03_JPRB,0.26258E-02_JPRB,0.30792E-02_JPRB,0.31027E-02_JPRB,0.19109E-02_JPRB /)  
+KB(:, 2,17, 7) = (/ &
+ & 0.69065E-03_JPRB,0.26830E-02_JPRB,0.31573E-02_JPRB,0.32056E-02_JPRB,0.20013E-02_JPRB /)  
+KB(:, 3,17, 7) = (/ &
+ & 0.72951E-03_JPRB,0.27321E-02_JPRB,0.32326E-02_JPRB,0.33061E-02_JPRB,0.20905E-02_JPRB /)  
+KB(:, 4,17, 7) = (/ &
+ & 0.76279E-03_JPRB,0.27759E-02_JPRB,0.33057E-02_JPRB,0.34049E-02_JPRB,0.21791E-02_JPRB /)  
+KB(:, 5,17, 7) = (/ &
+ & 0.79127E-03_JPRB,0.28164E-02_JPRB,0.33776E-02_JPRB,0.35037E-02_JPRB,0.22680E-02_JPRB /)  
+KB(:, 1,18, 7) = (/ &
+ & 0.53216E-03_JPRB,0.21945E-02_JPRB,0.25768E-02_JPRB,0.26041E-02_JPRB,0.16047E-02_JPRB /)  
+KB(:, 2,18, 7) = (/ &
+ & 0.56878E-03_JPRB,0.22431E-02_JPRB,0.26453E-02_JPRB,0.26934E-02_JPRB,0.16829E-02_JPRB /)  
+KB(:, 3,18, 7) = (/ &
+ & 0.60002E-03_JPRB,0.22864E-02_JPRB,0.27121E-02_JPRB,0.27812E-02_JPRB,0.17605E-02_JPRB /)  
+KB(:, 4,18, 7) = (/ &
+ & 0.62666E-03_JPRB,0.23265E-02_JPRB,0.27778E-02_JPRB,0.28689E-02_JPRB,0.18389E-02_JPRB /)  
+KB(:, 5,18, 7) = (/ &
+ & 0.64956E-03_JPRB,0.23645E-02_JPRB,0.28436E-02_JPRB,0.29587E-02_JPRB,0.19175E-02_JPRB /)  
+KB(:, 1,19, 7) = (/ &
+ & 0.43878E-03_JPRB,0.18328E-02_JPRB,0.21555E-02_JPRB,0.21844E-02_JPRB,0.13470E-02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART21',1,ZHOOK_HANDLE)
+END SUBROUTINE PART21
+
+
+SUBROUTINE PART22
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART22',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,19, 7) = (/ &
+ & 0.46832E-03_JPRB,0.18749E-02_JPRB,0.22160E-02_JPRB,0.22619E-02_JPRB,0.14147E-02_JPRB /)  
+KB(:, 3,19, 7) = (/ &
+ & 0.49337E-03_JPRB,0.19136E-02_JPRB,0.22752E-02_JPRB,0.23395E-02_JPRB,0.14834E-02_JPRB /)  
+KB(:, 4,19, 7) = (/ &
+ & 0.51483E-03_JPRB,0.19509E-02_JPRB,0.23344E-02_JPRB,0.24177E-02_JPRB,0.15526E-02_JPRB /)  
+KB(:, 5,19, 7) = (/ &
+ & 0.53321E-03_JPRB,0.19863E-02_JPRB,0.23950E-02_JPRB,0.24983E-02_JPRB,0.16228E-02_JPRB /)  
+KB(:, 1,20, 7) = (/ &
+ & 0.36218E-03_JPRB,0.15310E-02_JPRB,0.18044E-02_JPRB,0.18333E-02_JPRB,0.11320E-02_JPRB /)  
+KB(:, 2,20, 7) = (/ &
+ & 0.38587E-03_JPRB,0.15681E-02_JPRB,0.18573E-02_JPRB,0.19010E-02_JPRB,0.11911E-02_JPRB /)  
+KB(:, 3,20, 7) = (/ &
+ & 0.40599E-03_JPRB,0.16034E-02_JPRB,0.19105E-02_JPRB,0.19693E-02_JPRB,0.12516E-02_JPRB /)  
+KB(:, 4,20, 7) = (/ &
+ & 0.42327E-03_JPRB,0.16372E-02_JPRB,0.19642E-02_JPRB,0.20400E-02_JPRB,0.13133E-02_JPRB /)  
+KB(:, 5,20, 7) = (/ &
+ & 0.43800E-03_JPRB,0.16702E-02_JPRB,0.20196E-02_JPRB,0.21120E-02_JPRB,0.13760E-02_JPRB /)  
+KB(:, 1,21, 7) = (/ &
+ & 0.29894E-03_JPRB,0.12794E-02_JPRB,0.15109E-02_JPRB,0.15392E-02_JPRB,0.95196E-03_JPRB /)  
+KB(:, 2,21, 7) = (/ &
+ & 0.31795E-03_JPRB,0.13126E-02_JPRB,0.15578E-02_JPRB,0.15985E-02_JPRB,0.10041E-02_JPRB /)  
+KB(:, 3,21, 7) = (/ &
+ & 0.33409E-03_JPRB,0.13444E-02_JPRB,0.16054E-02_JPRB,0.16590E-02_JPRB,0.10575E-02_JPRB /)  
+KB(:, 4,21, 7) = (/ &
+ & 0.34798E-03_JPRB,0.13752E-02_JPRB,0.16542E-02_JPRB,0.17228E-02_JPRB,0.11124E-02_JPRB /)  
+KB(:, 5,21, 7) = (/ &
+ & 0.35982E-03_JPRB,0.14062E-02_JPRB,0.17046E-02_JPRB,0.17872E-02_JPRB,0.11688E-02_JPRB /)  
+KB(:, 1,22, 7) = (/ &
+ & 0.24779E-03_JPRB,0.10720E-02_JPRB,0.12687E-02_JPRB,0.12959E-02_JPRB,0.80428E-03_JPRB /)  
+KB(:, 2,22, 7) = (/ &
+ & 0.26287E-03_JPRB,0.11012E-02_JPRB,0.13104E-02_JPRB,0.13483E-02_JPRB,0.85046E-03_JPRB /)  
+KB(:, 3,22, 7) = (/ &
+ & 0.27570E-03_JPRB,0.11300E-02_JPRB,0.13532E-02_JPRB,0.14032E-02_JPRB,0.89796E-03_JPRB /)  
+KB(:, 4,22, 7) = (/ &
+ & 0.28676E-03_JPRB,0.11583E-02_JPRB,0.13978E-02_JPRB,0.14602E-02_JPRB,0.94722E-03_JPRB /)  
+KB(:, 5,22, 7) = (/ &
+ & 0.29612E-03_JPRB,0.11873E-02_JPRB,0.14439E-02_JPRB,0.15185E-02_JPRB,0.99812E-03_JPRB /)  
+KB(:, 1,23, 7) = (/ &
+ & 0.20536E-03_JPRB,0.89901E-03_JPRB,0.10666E-02_JPRB,0.10925E-02_JPRB,0.68077E-03_JPRB /)  
+KB(:, 2,23, 7) = (/ &
+ & 0.21732E-03_JPRB,0.92514E-03_JPRB,0.11037E-02_JPRB,0.11394E-02_JPRB,0.72189E-03_JPRB /)  
+KB(:, 3,23, 7) = (/ &
+ & 0.22752E-03_JPRB,0.95109E-03_JPRB,0.11426E-02_JPRB,0.11888E-02_JPRB,0.76437E-03_JPRB /)  
+KB(:, 4,23, 7) = (/ &
+ & 0.23632E-03_JPRB,0.97728E-03_JPRB,0.11832E-02_JPRB,0.12403E-02_JPRB,0.80877E-03_JPRB /)  
+KB(:, 5,23, 7) = (/ &
+ & 0.24369E-03_JPRB,0.10040E-02_JPRB,0.12260E-02_JPRB,0.12934E-02_JPRB,0.85489E-03_JPRB /)  
+KB(:, 1,24, 7) = (/ &
+ & 0.17021E-03_JPRB,0.75506E-03_JPRB,0.89800E-03_JPRB,0.92265E-03_JPRB,0.57788E-03_JPRB /)  
+KB(:, 2,24, 7) = (/ &
+ & 0.17969E-03_JPRB,0.77853E-03_JPRB,0.93149E-03_JPRB,0.96497E-03_JPRB,0.61443E-03_JPRB /)  
+KB(:, 3,24, 7) = (/ &
+ & 0.18778E-03_JPRB,0.80207E-03_JPRB,0.96680E-03_JPRB,0.10097E-02_JPRB,0.65278E-03_JPRB /)  
+KB(:, 4,24, 7) = (/ &
+ & 0.19477E-03_JPRB,0.82622E-03_JPRB,0.10041E-02_JPRB,0.10564E-02_JPRB,0.69293E-03_JPRB /)  
+KB(:, 5,24, 7) = (/ &
+ & 0.20055E-03_JPRB,0.85104E-03_JPRB,0.10439E-02_JPRB,0.11053E-02_JPRB,0.73424E-03_JPRB /)  
+KB(:, 1,25, 7) = (/ &
+ & 0.14110E-03_JPRB,0.63531E-03_JPRB,0.75746E-03_JPRB,0.78109E-03_JPRB,0.49195E-03_JPRB /)  
+KB(:, 2,25, 7) = (/ &
+ & 0.14860E-03_JPRB,0.65629E-03_JPRB,0.78801E-03_JPRB,0.81951E-03_JPRB,0.52472E-03_JPRB /)  
+KB(:, 3,25, 7) = (/ &
+ & 0.15502E-03_JPRB,0.67802E-03_JPRB,0.82018E-03_JPRB,0.86005E-03_JPRB,0.55929E-03_JPRB /)  
+KB(:, 4,25, 7) = (/ &
+ & 0.16054E-03_JPRB,0.70023E-03_JPRB,0.85487E-03_JPRB,0.90270E-03_JPRB,0.59546E-03_JPRB /)  
+KB(:, 5,25, 7) = (/ &
+ & 0.16506E-03_JPRB,0.72333E-03_JPRB,0.89213E-03_JPRB,0.94794E-03_JPRB,0.63296E-03_JPRB /)  
+KB(:, 1,26, 7) = (/ &
+ & 0.11704E-03_JPRB,0.53563E-03_JPRB,0.64089E-03_JPRB,0.66348E-03_JPRB,0.42036E-03_JPRB /)  
+KB(:, 2,26, 7) = (/ &
+ & 0.12296E-03_JPRB,0.55482E-03_JPRB,0.66859E-03_JPRB,0.69842E-03_JPRB,0.44986E-03_JPRB /)  
+KB(:, 3,26, 7) = (/ &
+ & 0.12804E-03_JPRB,0.57460E-03_JPRB,0.69838E-03_JPRB,0.73532E-03_JPRB,0.48115E-03_JPRB /)  
+KB(:, 4,26, 7) = (/ &
+ & 0.13237E-03_JPRB,0.59528E-03_JPRB,0.73081E-03_JPRB,0.77472E-03_JPRB,0.51371E-03_JPRB /)  
+KB(:, 5,26, 7) = (/ &
+ & 0.13587E-03_JPRB,0.61708E-03_JPRB,0.76562E-03_JPRB,0.81649E-03_JPRB,0.54800E-03_JPRB /)  
+KB(:, 1,27, 7) = (/ &
+ & 0.97037E-04_JPRB,0.45263E-03_JPRB,0.54353E-03_JPRB,0.56528E-03_JPRB,0.36031E-03_JPRB /)  
+KB(:, 2,27, 7) = (/ &
+ & 0.10171E-03_JPRB,0.47018E-03_JPRB,0.56899E-03_JPRB,0.59710E-03_JPRB,0.38698E-03_JPRB /)  
+KB(:, 3,27, 7) = (/ &
+ & 0.10572E-03_JPRB,0.48833E-03_JPRB,0.59675E-03_JPRB,0.63096E-03_JPRB,0.41505E-03_JPRB /)  
+KB(:, 4,27, 7) = (/ &
+ & 0.10911E-03_JPRB,0.50767E-03_JPRB,0.62713E-03_JPRB,0.66736E-03_JPRB,0.44466E-03_JPRB /)  
+KB(:, 5,27, 7) = (/ &
+ & 0.11182E-03_JPRB,0.52830E-03_JPRB,0.65949E-03_JPRB,0.70600E-03_JPRB,0.47625E-03_JPRB /)  
+KB(:, 1,28, 7) = (/ &
+ & 0.80419E-04_JPRB,0.38349E-03_JPRB,0.46224E-03_JPRB,0.48308E-03_JPRB,0.30982E-03_JPRB /)  
+KB(:, 2,28, 7) = (/ &
+ & 0.84110E-04_JPRB,0.39943E-03_JPRB,0.48584E-03_JPRB,0.51214E-03_JPRB,0.33386E-03_JPRB /)  
+KB(:, 3,28, 7) = (/ &
+ & 0.87283E-04_JPRB,0.41636E-03_JPRB,0.51189E-03_JPRB,0.54353E-03_JPRB,0.35924E-03_JPRB /)  
+KB(:, 4,28, 7) = (/ &
+ & 0.89914E-04_JPRB,0.43456E-03_JPRB,0.54020E-03_JPRB,0.57698E-03_JPRB,0.38635E-03_JPRB /)  
+KB(:, 5,28, 7) = (/ &
+ & 0.92003E-04_JPRB,0.45406E-03_JPRB,0.57030E-03_JPRB,0.61286E-03_JPRB,0.41553E-03_JPRB /)  
+KB(:, 1,29, 7) = (/ &
+ & 0.66637E-04_JPRB,0.32580E-03_JPRB,0.39453E-03_JPRB,0.41439E-03_JPRB,0.26738E-03_JPRB /)  
+KB(:, 2,29, 7) = (/ &
+ & 0.69552E-04_JPRB,0.34052E-03_JPRB,0.41660E-03_JPRB,0.44116E-03_JPRB,0.28904E-03_JPRB /)  
+KB(:, 3,29, 7) = (/ &
+ & 0.72042E-04_JPRB,0.35633E-03_JPRB,0.44102E-03_JPRB,0.47005E-03_JPRB,0.31218E-03_JPRB /)  
+KB(:, 4,29, 7) = (/ &
+ & 0.74082E-04_JPRB,0.37351E-03_JPRB,0.46731E-03_JPRB,0.50108E-03_JPRB,0.33714E-03_JPRB /)  
+KB(:, 5,29, 7) = (/ &
+ & 0.75692E-04_JPRB,0.39190E-03_JPRB,0.49529E-03_JPRB,0.53447E-03_JPRB,0.36421E-03_JPRB /)  
+KB(:, 1,30, 7) = (/ &
+ & 0.55194E-04_JPRB,0.27757E-03_JPRB,0.33804E-03_JPRB,0.35670E-03_JPRB,0.23148E-03_JPRB /)  
+KB(:, 2,30, 7) = (/ &
+ & 0.57489E-04_JPRB,0.29130E-03_JPRB,0.35876E-03_JPRB,0.38143E-03_JPRB,0.25115E-03_JPRB /)  
+KB(:, 3,30, 7) = (/ &
+ & 0.59445E-04_JPRB,0.30619E-03_JPRB,0.38148E-03_JPRB,0.40810E-03_JPRB,0.27242E-03_JPRB /)  
+KB(:, 4,30, 7) = (/ &
+ & 0.61024E-04_JPRB,0.32233E-03_JPRB,0.40578E-03_JPRB,0.43698E-03_JPRB,0.29552E-03_JPRB /)  
+KB(:, 5,30, 7) = (/ &
+ & 0.62251E-04_JPRB,0.33969E-03_JPRB,0.43185E-03_JPRB,0.46830E-03_JPRB,0.32052E-03_JPRB /)  
+KB(:, 1,31, 7) = (/ &
+ & 0.45701E-04_JPRB,0.23736E-03_JPRB,0.29086E-03_JPRB,0.30834E-03_JPRB,0.20114E-03_JPRB /)  
+KB(:, 2,31, 7) = (/ &
+ & 0.47516E-04_JPRB,0.25020E-03_JPRB,0.31032E-03_JPRB,0.33113E-03_JPRB,0.21916E-03_JPRB /)  
+KB(:, 3,31, 7) = (/ &
+ & 0.49034E-04_JPRB,0.26424E-03_JPRB,0.33131E-03_JPRB,0.35593E-03_JPRB,0.23874E-03_JPRB /)  
+KB(:, 4,31, 7) = (/ &
+ & 0.50247E-04_JPRB,0.27943E-03_JPRB,0.35395E-03_JPRB,0.38299E-03_JPRB,0.26024E-03_JPRB /)  
+KB(:, 5,31, 7) = (/ &
+ & 0.51186E-04_JPRB,0.29578E-03_JPRB,0.37829E-03_JPRB,0.41250E-03_JPRB,0.28341E-03_JPRB /)  
+KB(:, 1,32, 7) = (/ &
+ & 0.37829E-04_JPRB,0.20379E-03_JPRB,0.25145E-03_JPRB,0.26761E-03_JPRB,0.17549E-03_JPRB /)  
+KB(:, 2,32, 7) = (/ &
+ & 0.39256E-04_JPRB,0.21585E-03_JPRB,0.26951E-03_JPRB,0.28871E-03_JPRB,0.19207E-03_JPRB /)  
+KB(:, 3,32, 7) = (/ &
+ & 0.40434E-04_JPRB,0.22904E-03_JPRB,0.28903E-03_JPRB,0.31192E-03_JPRB,0.21034E-03_JPRB /)  
+KB(:, 4,32, 7) = (/ &
+ & 0.41367E-04_JPRB,0.24332E-03_JPRB,0.31020E-03_JPRB,0.33744E-03_JPRB,0.23024E-03_JPRB /)  
+KB(:, 5,32, 7) = (/ &
+ & 0.42072E-04_JPRB,0.25873E-03_JPRB,0.33309E-03_JPRB,0.36527E-03_JPRB,0.25179E-03_JPRB /)  
+KB(:, 1,33, 7) = (/ &
+ & 0.31302E-04_JPRB,0.17572E-03_JPRB,0.21830E-03_JPRB,0.23321E-03_JPRB,0.15375E-03_JPRB /)  
+KB(:, 2,33, 7) = (/ &
+ & 0.32419E-04_JPRB,0.18706E-03_JPRB,0.23504E-03_JPRB,0.25291E-03_JPRB,0.16915E-03_JPRB /)  
+KB(:, 3,33, 7) = (/ &
+ & 0.33327E-04_JPRB,0.19940E-03_JPRB,0.25328E-03_JPRB,0.27479E-03_JPRB,0.18617E-03_JPRB /)  
+KB(:, 4,33, 7) = (/ &
+ & 0.34039E-04_JPRB,0.21283E-03_JPRB,0.27315E-03_JPRB,0.29887E-03_JPRB,0.20465E-03_JPRB /)  
+KB(:, 5,33, 7) = (/ &
+ & 0.34568E-04_JPRB,0.22731E-03_JPRB,0.29474E-03_JPRB,0.32519E-03_JPRB,0.22485E-03_JPRB /)  
+KB(:, 1,34, 7) = (/ &
+ & 0.25851E-04_JPRB,0.15182E-03_JPRB,0.18976E-03_JPRB,0.20353E-03_JPRB,0.13483E-03_JPRB /)  
+KB(:, 2,34, 7) = (/ &
+ & 0.26731E-04_JPRB,0.16241E-03_JPRB,0.20531E-03_JPRB,0.22199E-03_JPRB,0.14918E-03_JPRB /)  
+KB(:, 3,34, 7) = (/ &
+ & 0.27437E-04_JPRB,0.17395E-03_JPRB,0.22237E-03_JPRB,0.24258E-03_JPRB,0.16491E-03_JPRB /)  
+KB(:, 4,34, 7) = (/ &
+ & 0.27988E-04_JPRB,0.18656E-03_JPRB,0.24113E-03_JPRB,0.26529E-03_JPRB,0.18217E-03_JPRB /)  
+KB(:, 5,34, 7) = (/ &
+ & 0.28384E-04_JPRB,0.20017E-03_JPRB,0.26144E-03_JPRB,0.29020E-03_JPRB,0.20116E-03_JPRB /)  
+KB(:, 1,35, 7) = (/ &
+ & 0.21271E-04_JPRB,0.13078E-03_JPRB,0.16426E-03_JPRB,0.17685E-03_JPRB,0.11756E-03_JPRB /)  
+KB(:, 2,35, 7) = (/ &
+ & 0.21975E-04_JPRB,0.14058E-03_JPRB,0.17865E-03_JPRB,0.19403E-03_JPRB,0.13072E-03_JPRB /)  
+KB(:, 3,35, 7) = (/ &
+ & 0.22533E-04_JPRB,0.15132E-03_JPRB,0.19456E-03_JPRB,0.21323E-03_JPRB,0.14523E-03_JPRB /)  
+KB(:, 4,35, 7) = (/ &
+ & 0.22966E-04_JPRB,0.16307E-03_JPRB,0.21206E-03_JPRB,0.23454E-03_JPRB,0.16133E-03_JPRB /)  
+KB(:, 5,35, 7) = (/ &
+ & 0.23274E-04_JPRB,0.17579E-03_JPRB,0.23112E-03_JPRB,0.25800E-03_JPRB,0.17911E-03_JPRB /)  
+KB(:, 1,36, 7) = (/ &
+ & 0.17431E-04_JPRB,0.11205E-03_JPRB,0.14128E-03_JPRB,0.15260E-03_JPRB,0.10161E-03_JPRB /)  
+KB(:, 2,36, 7) = (/ &
+ & 0.18004E-04_JPRB,0.12103E-03_JPRB,0.15448E-03_JPRB,0.16840E-03_JPRB,0.11356E-03_JPRB /)  
+KB(:, 3,36, 7) = (/ &
+ & 0.18458E-04_JPRB,0.13095E-03_JPRB,0.16918E-03_JPRB,0.18616E-03_JPRB,0.12687E-03_JPRB /)  
+KB(:, 4,36, 7) = (/ &
+ & 0.18810E-04_JPRB,0.14182E-03_JPRB,0.18539E-03_JPRB,0.20596E-03_JPRB,0.14179E-03_JPRB /)  
+KB(:, 5,36, 7) = (/ &
+ & 0.19059E-04_JPRB,0.15363E-03_JPRB,0.20317E-03_JPRB,0.22788E-03_JPRB,0.15831E-03_JPRB /)  
+KB(:, 1,37, 7) = (/ &
+ & 0.14204E-04_JPRB,0.95010E-04_JPRB,0.12008E-03_JPRB,0.12996E-03_JPRB,0.86482E-04_JPRB /)  
+KB(:, 2,37, 7) = (/ &
+ & 0.14685E-04_JPRB,0.10313E-03_JPRB,0.13200E-03_JPRB,0.14426E-03_JPRB,0.97179E-04_JPRB /)  
+KB(:, 3,37, 7) = (/ &
+ & 0.15069E-04_JPRB,0.11214E-03_JPRB,0.14536E-03_JPRB,0.16042E-03_JPRB,0.10922E-03_JPRB /)  
+KB(:, 4,37, 7) = (/ &
+ & 0.15369E-04_JPRB,0.12211E-03_JPRB,0.16020E-03_JPRB,0.17855E-03_JPRB,0.12282E-03_JPRB /)  
+KB(:, 5,37, 7) = (/ &
+ & 0.15586E-04_JPRB,0.13296E-03_JPRB,0.17661E-03_JPRB,0.19876E-03_JPRB,0.13797E-03_JPRB /)  
+KB(:, 1,38, 7) = (/ &
+ & 0.11571E-04_JPRB,0.80545E-04_JPRB,0.10206E-03_JPRB,0.11063E-03_JPRB,0.73563E-04_JPRB /)  
+KB(:, 2,38, 7) = (/ &
+ & 0.11976E-04_JPRB,0.87875E-04_JPRB,0.11281E-03_JPRB,0.12357E-03_JPRB,0.83149E-04_JPRB /)  
+KB(:, 3,38, 7) = (/ &
+ & 0.12301E-04_JPRB,0.96063E-04_JPRB,0.12495E-03_JPRB,0.13829E-03_JPRB,0.94026E-04_JPRB /)  
+KB(:, 4,38, 7) = (/ &
+ & 0.12557E-04_JPRB,0.10518E-03_JPRB,0.13851E-03_JPRB,0.15487E-03_JPRB,0.10642E-03_JPRB /)  
+KB(:, 5,38, 7) = (/ &
+ & 0.12744E-04_JPRB,0.11515E-03_JPRB,0.15364E-03_JPRB,0.17352E-03_JPRB,0.12029E-03_JPRB /)  
+KB(:, 1,39, 7) = (/ &
+ & 0.94254E-05_JPRB,0.68333E-04_JPRB,0.86798E-04_JPRB,0.94247E-04_JPRB,0.62604E-04_JPRB /)  
+KB(:, 2,39, 7) = (/ &
+ & 0.97657E-05_JPRB,0.74945E-04_JPRB,0.96495E-04_JPRB,0.10595E-03_JPRB,0.71185E-04_JPRB /)  
+KB(:, 3,39, 7) = (/ &
+ & 0.10041E-04_JPRB,0.82376E-04_JPRB,0.10752E-03_JPRB,0.11934E-03_JPRB,0.81022E-04_JPRB /)  
+KB(:, 4,39, 7) = (/ &
+ & 0.10258E-04_JPRB,0.90687E-04_JPRB,0.11992E-03_JPRB,0.13453E-03_JPRB,0.92315E-04_JPRB /)  
+KB(:, 5,39, 7) = (/ &
+ & 0.10419E-04_JPRB,0.99852E-04_JPRB,0.13387E-03_JPRB,0.15177E-03_JPRB,0.10504E-03_JPRB /)  
+KB(:, 1,40, 7) = (/ &
+ & 0.76452E-05_JPRB,0.57428E-04_JPRB,0.73021E-04_JPRB,0.79333E-04_JPRB,0.52568E-04_JPRB /)  
+KB(:, 2,40, 7) = (/ &
+ & 0.79354E-05_JPRB,0.63315E-04_JPRB,0.81650E-04_JPRB,0.89752E-04_JPRB,0.60144E-04_JPRB /)  
+KB(:, 3,40, 7) = (/ &
+ & 0.81739E-05_JPRB,0.69961E-04_JPRB,0.91542E-04_JPRB,0.10176E-03_JPRB,0.68905E-04_JPRB /)  
+KB(:, 4,40, 7) = (/ &
+ & 0.83626E-05_JPRB,0.77456E-04_JPRB,0.10275E-03_JPRB,0.11552E-03_JPRB,0.79059E-04_JPRB /)  
+KB(:, 5,40, 7) = (/ &
+ & 0.85064E-05_JPRB,0.85795E-04_JPRB,0.11542E-03_JPRB,0.13128E-03_JPRB,0.90578E-04_JPRB /)  
+KB(:, 1,41, 7) = (/ &
+ & 0.61953E-05_JPRB,0.48163E-04_JPRB,0.61287E-04_JPRB,0.66616E-04_JPRB,0.44011E-04_JPRB /)  
+KB(:, 2,41, 7) = (/ &
+ & 0.64418E-05_JPRB,0.53383E-04_JPRB,0.68934E-04_JPRB,0.75842E-04_JPRB,0.50670E-04_JPRB /)  
+KB(:, 3,41, 7) = (/ &
+ & 0.66484E-05_JPRB,0.59312E-04_JPRB,0.77785E-04_JPRB,0.86580E-04_JPRB,0.58448E-04_JPRB /)  
+KB(:, 4,41, 7) = (/ &
+ & 0.68134E-05_JPRB,0.66054E-04_JPRB,0.87876E-04_JPRB,0.98995E-04_JPRB,0.67543E-04_JPRB /)  
+KB(:, 5,41, 7) = (/ &
+ & 0.69402E-05_JPRB,0.73614E-04_JPRB,0.99378E-04_JPRB,0.11337E-03_JPRB,0.77942E-04_JPRB /)  
+KB(:, 1,42, 7) = (/ &
+ & 0.50170E-05_JPRB,0.40358E-04_JPRB,0.51378E-04_JPRB,0.55875E-04_JPRB,0.36794E-04_JPRB /)  
+KB(:, 2,42, 7) = (/ &
+ & 0.52266E-05_JPRB,0.44971E-04_JPRB,0.58141E-04_JPRB,0.64024E-04_JPRB,0.42639E-04_JPRB /)  
+KB(:, 3,42, 7) = (/ &
+ & 0.54046E-05_JPRB,0.50250E-04_JPRB,0.66034E-04_JPRB,0.73601E-04_JPRB,0.49527E-04_JPRB /)  
+KB(:, 4,42, 7) = (/ &
+ & 0.55484E-05_JPRB,0.56302E-04_JPRB,0.75111E-04_JPRB,0.84788E-04_JPRB,0.57654E-04_JPRB /)  
+KB(:, 5,42, 7) = (/ &
+ & 0.56600E-05_JPRB,0.63153E-04_JPRB,0.85551E-04_JPRB,0.97898E-04_JPRB,0.67040E-04_JPRB /)  
+KB(:, 1,43, 7) = (/ &
+ & 0.40498E-05_JPRB,0.33563E-04_JPRB,0.42716E-04_JPRB,0.46433E-04_JPRB,0.30447E-04_JPRB /)  
+KB(:, 2,43, 7) = (/ &
+ & 0.42291E-05_JPRB,0.37603E-04_JPRB,0.48619E-04_JPRB,0.53551E-04_JPRB,0.35516E-04_JPRB /)  
+KB(:, 3,43, 7) = (/ &
+ & 0.43833E-05_JPRB,0.42260E-04_JPRB,0.55585E-04_JPRB,0.61999E-04_JPRB,0.41549E-04_JPRB /)  
+KB(:, 4,43, 7) = (/ &
+ & 0.45099E-05_JPRB,0.47650E-04_JPRB,0.63668E-04_JPRB,0.71964E-04_JPRB,0.48728E-04_JPRB /)  
+KB(:, 5,43, 7) = (/ &
+ & 0.46096E-05_JPRB,0.53790E-04_JPRB,0.73053E-04_JPRB,0.83779E-04_JPRB,0.57105E-04_JPRB /)  
+KB(:, 1,44, 7) = (/ &
+ & 0.32616E-05_JPRB,0.27781E-04_JPRB,0.35335E-04_JPRB,0.38366E-04_JPRB,0.25032E-04_JPRB /)  
+KB(:, 2,44, 7) = (/ &
+ & 0.34164E-05_JPRB,0.31296E-04_JPRB,0.40444E-04_JPRB,0.44531E-04_JPRB,0.29399E-04_JPRB /)  
+KB(:, 3,44, 7) = (/ &
+ & 0.35491E-05_JPRB,0.35375E-04_JPRB,0.46540E-04_JPRB,0.51925E-04_JPRB,0.34633E-04_JPRB /)  
+KB(:, 4,44, 7) = (/ &
+ & 0.36610E-05_JPRB,0.40146E-04_JPRB,0.53687E-04_JPRB,0.60738E-04_JPRB,0.40935E-04_JPRB /)  
+KB(:, 5,44, 7) = (/ &
+ & 0.37500E-05_JPRB,0.45618E-04_JPRB,0.62061E-04_JPRB,0.71298E-04_JPRB,0.48356E-04_JPRB /)  
+KB(:, 1,45, 7) = (/ &
+ & 0.26238E-05_JPRB,0.22952E-04_JPRB,0.29162E-04_JPRB,0.31630E-04_JPRB,0.20522E-04_JPRB /)  
+KB(:, 2,45, 7) = (/ &
+ & 0.27571E-05_JPRB,0.25992E-04_JPRB,0.33567E-04_JPRB,0.36938E-04_JPRB,0.24268E-04_JPRB /)  
+KB(:, 3,45, 7) = (/ &
+ & 0.28713E-05_JPRB,0.29549E-04_JPRB,0.38881E-04_JPRB,0.43383E-04_JPRB,0.28792E-04_JPRB /)  
+KB(:, 4,45, 7) = (/ &
+ & 0.29693E-05_JPRB,0.33760E-04_JPRB,0.45177E-04_JPRB,0.51149E-04_JPRB,0.34303E-04_JPRB /)  
+KB(:, 5,45, 7) = (/ &
+ & 0.30482E-05_JPRB,0.38627E-04_JPRB,0.52624E-04_JPRB,0.60551E-04_JPRB,0.40857E-04_JPRB /)  
+KB(:, 1,46, 7) = (/ &
+ & 0.21051E-05_JPRB,0.18867E-04_JPRB,0.23935E-04_JPRB,0.25917E-04_JPRB,0.16710E-04_JPRB /)  
+KB(:, 2,46, 7) = (/ &
+ & 0.22206E-05_JPRB,0.21480E-04_JPRB,0.27705E-04_JPRB,0.30449E-04_JPRB,0.19893E-04_JPRB /)  
+KB(:, 3,46, 7) = (/ &
+ & 0.23191E-05_JPRB,0.24557E-04_JPRB,0.32298E-04_JPRB,0.36019E-04_JPRB,0.23769E-04_JPRB /)  
+KB(:, 4,46, 7) = (/ &
+ & 0.24046E-05_JPRB,0.28239E-04_JPRB,0.37798E-04_JPRB,0.42807E-04_JPRB,0.28545E-04_JPRB /)  
+KB(:, 5,46, 7) = (/ &
+ & 0.24746E-05_JPRB,0.32543E-04_JPRB,0.44374E-04_JPRB,0.51109E-04_JPRB,0.34299E-04_JPRB /)  
+KB(:, 1,47, 7) = (/ &
+ & 0.16817E-05_JPRB,0.15386E-04_JPRB,0.19464E-04_JPRB,0.21024E-04_JPRB,0.13455E-04_JPRB /)  
+KB(:, 2,47, 7) = (/ &
+ & 0.17822E-05_JPRB,0.17605E-04_JPRB,0.22652E-04_JPRB,0.24840E-04_JPRB,0.16124E-04_JPRB /)  
+KB(:, 3,47, 7) = (/ &
+ & 0.18680E-05_JPRB,0.20236E-04_JPRB,0.26567E-04_JPRB,0.29585E-04_JPRB,0.19401E-04_JPRB /)  
+KB(:, 4,47, 7) = (/ &
+ & 0.19423E-05_JPRB,0.23413E-04_JPRB,0.31317E-04_JPRB,0.35433E-04_JPRB,0.23476E-04_JPRB /)  
+KB(:, 5,47, 7) = (/ &
+ & 0.20049E-05_JPRB,0.27181E-04_JPRB,0.37054E-04_JPRB,0.42668E-04_JPRB,0.28466E-04_JPRB /)  
+KB(:, 1,48, 7) = (/ &
+ & 0.13405E-05_JPRB,0.12514E-04_JPRB,0.15779E-04_JPRB,0.16993E-04_JPRB,0.10791E-04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART22',1,ZHOOK_HANDLE)
+END SUBROUTINE PART22
+
+
+SUBROUTINE PART23
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART23',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,48, 7) = (/ &
+ & 0.14280E-05_JPRB,0.14385E-04_JPRB,0.18460E-04_JPRB,0.20187E-04_JPRB,0.13017E-04_JPRB /)  
+KB(:, 3,48, 7) = (/ &
+ & 0.15026E-05_JPRB,0.16623E-04_JPRB,0.21773E-04_JPRB,0.24205E-04_JPRB,0.15768E-04_JPRB /)  
+KB(:, 4,48, 7) = (/ &
+ & 0.15671E-05_JPRB,0.19354E-04_JPRB,0.25854E-04_JPRB,0.29218E-04_JPRB,0.19227E-04_JPRB /)  
+KB(:, 5,48, 7) = (/ &
+ & 0.16224E-05_JPRB,0.22629E-04_JPRB,0.30833E-04_JPRB,0.35479E-04_JPRB,0.23525E-04_JPRB /)  
+KB(:, 1,49, 7) = (/ &
+ & 0.10664E-05_JPRB,0.10149E-04_JPRB,0.12751E-04_JPRB,0.13684E-04_JPRB,0.86188E-05_JPRB /)  
+KB(:, 2,49, 7) = (/ &
+ & 0.11418E-05_JPRB,0.11720E-04_JPRB,0.14999E-04_JPRB,0.16352E-04_JPRB,0.10467E-04_JPRB /)  
+KB(:, 3,49, 7) = (/ &
+ & 0.12069E-05_JPRB,0.13612E-04_JPRB,0.17780E-04_JPRB,0.19716E-04_JPRB,0.12759E-04_JPRB /)  
+KB(:, 4,49, 7) = (/ &
+ & 0.12630E-05_JPRB,0.15945E-04_JPRB,0.21262E-04_JPRB,0.23990E-04_JPRB,0.15676E-04_JPRB /)  
+KB(:, 5,49, 7) = (/ &
+ & 0.13113E-05_JPRB,0.18775E-04_JPRB,0.25560E-04_JPRB,0.29382E-04_JPRB,0.19352E-04_JPRB /)  
+KB(:, 1,50, 7) = (/ &
+ & 0.84808E-06_JPRB,0.82401E-05_JPRB,0.10318E-04_JPRB,0.11036E-04_JPRB,0.68939E-05_JPRB /)  
+KB(:, 2,50, 7) = (/ &
+ & 0.91269E-06_JPRB,0.95513E-05_JPRB,0.12189E-04_JPRB,0.13247E-04_JPRB,0.84209E-05_JPRB /)  
+KB(:, 3,50, 7) = (/ &
+ & 0.96928E-06_JPRB,0.11160E-04_JPRB,0.14539E-04_JPRB,0.16084E-04_JPRB,0.10336E-04_JPRB /)  
+KB(:, 4,50, 7) = (/ &
+ & 0.10177E-05_JPRB,0.13146E-04_JPRB,0.17498E-04_JPRB,0.19711E-04_JPRB,0.12790E-04_JPRB /)  
+KB(:, 5,50, 7) = (/ &
+ & 0.10595E-05_JPRB,0.15592E-04_JPRB,0.21207E-04_JPRB,0.24356E-04_JPRB,0.15929E-04_JPRB /)  
+KB(:, 1,51, 7) = (/ &
+ & 0.67378E-06_JPRB,0.66826E-05_JPRB,0.83381E-05_JPRB,0.88828E-05_JPRB,0.55052E-05_JPRB /)  
+KB(:, 2,51, 7) = (/ &
+ & 0.72873E-06_JPRB,0.77753E-05_JPRB,0.98905E-05_JPRB,0.10714E-04_JPRB,0.67636E-05_JPRB /)  
+KB(:, 3,51, 7) = (/ &
+ & 0.77763E-06_JPRB,0.91368E-05_JPRB,0.11866E-04_JPRB,0.13091E-04_JPRB,0.83559E-05_JPRB /)  
+KB(:, 4,51, 7) = (/ &
+ & 0.81953E-06_JPRB,0.10824E-04_JPRB,0.14378E-04_JPRB,0.16168E-04_JPRB,0.10417E-04_JPRB /)  
+KB(:, 5,51, 7) = (/ &
+ & 0.85561E-06_JPRB,0.12933E-04_JPRB,0.17571E-04_JPRB,0.20159E-04_JPRB,0.13087E-04_JPRB /)  
+KB(:, 1,52, 7) = (/ &
+ & 0.53444E-06_JPRB,0.54066E-05_JPRB,0.67197E-05_JPRB,0.71297E-05_JPRB,0.43814E-05_JPRB /)  
+KB(:, 2,52, 7) = (/ &
+ & 0.58095E-06_JPRB,0.63124E-05_JPRB,0.79989E-05_JPRB,0.86346E-05_JPRB,0.54122E-05_JPRB /)  
+KB(:, 3,52, 7) = (/ &
+ & 0.62282E-06_JPRB,0.74561E-05_JPRB,0.96489E-05_JPRB,0.10614E-04_JPRB,0.67289E-05_JPRB /)  
+KB(:, 4,52, 7) = (/ &
+ & 0.65913E-06_JPRB,0.88917E-05_JPRB,0.11780E-04_JPRB,0.13220E-04_JPRB,0.84497E-05_JPRB /)  
+KB(:, 5,52, 7) = (/ &
+ & 0.69032E-06_JPRB,0.10691E-04_JPRB,0.14504E-04_JPRB,0.16615E-04_JPRB,0.10706E-04_JPRB /)  
+KB(:, 1,53, 7) = (/ &
+ & 0.42309E-06_JPRB,0.43635E-05_JPRB,0.54017E-05_JPRB,0.57047E-05_JPRB,0.34733E-05_JPRB /)  
+KB(:, 2,53, 7) = (/ &
+ & 0.46223E-06_JPRB,0.51097E-05_JPRB,0.64465E-05_JPRB,0.69322E-05_JPRB,0.43120E-05_JPRB /)  
+KB(:, 3,53, 7) = (/ &
+ & 0.49791E-06_JPRB,0.60643E-05_JPRB,0.78166E-05_JPRB,0.85690E-05_JPRB,0.53948E-05_JPRB /)  
+KB(:, 4,53, 7) = (/ &
+ & 0.52942E-06_JPRB,0.72726E-05_JPRB,0.96042E-05_JPRB,0.10748E-04_JPRB,0.68211E-05_JPRB /)  
+KB(:, 5,53, 7) = (/ &
+ & 0.55635E-06_JPRB,0.88074E-05_JPRB,0.11924E-04_JPRB,0.13632E-04_JPRB,0.87176E-05_JPRB /)  
+KB(:, 1,54, 7) = (/ &
+ & 0.33525E-06_JPRB,0.35291E-05_JPRB,0.43533E-05_JPRB,0.45783E-05_JPRB,0.27618E-05_JPRB /)  
+KB(:, 2,54, 7) = (/ &
+ & 0.36801E-06_JPRB,0.41464E-05_JPRB,0.52098E-05_JPRB,0.55821E-05_JPRB,0.34468E-05_JPRB /)  
+KB(:, 3,54, 7) = (/ &
+ & 0.39830E-06_JPRB,0.49442E-05_JPRB,0.63495E-05_JPRB,0.69393E-05_JPRB,0.43390E-05_JPRB /)  
+KB(:, 4,54, 7) = (/ &
+ & 0.42530E-06_JPRB,0.59638E-05_JPRB,0.78520E-05_JPRB,0.87652E-05_JPRB,0.55238E-05_JPRB /)  
+KB(:, 5,54, 7) = (/ &
+ & 0.44850E-06_JPRB,0.72711E-05_JPRB,0.98256E-05_JPRB,0.11213E-04_JPRB,0.71180E-05_JPRB /)  
+KB(:, 1,55, 7) = (/ &
+ & 0.26561E-06_JPRB,0.28535E-05_JPRB,0.35091E-05_JPRB,0.36747E-05_JPRB,0.21953E-05_JPRB /)  
+KB(:, 2,55, 7) = (/ &
+ & 0.29299E-06_JPRB,0.33630E-05_JPRB,0.42093E-05_JPRB,0.44935E-05_JPRB,0.27543E-05_JPRB /)  
+KB(:, 3,55, 7) = (/ &
+ & 0.31855E-06_JPRB,0.40286E-05_JPRB,0.51555E-05_JPRB,0.56160E-05_JPRB,0.34885E-05_JPRB /)  
+KB(:, 4,55, 7) = (/ &
+ & 0.34149E-06_JPRB,0.48884E-05_JPRB,0.64166E-05_JPRB,0.71432E-05_JPRB,0.44712E-05_JPRB /)  
+KB(:, 5,55, 7) = (/ &
+ & 0.36149E-06_JPRB,0.60082E-05_JPRB,0.81053E-05_JPRB,0.92338E-05_JPRB,0.58114E-05_JPRB /)  
+KB(:, 1,56, 7) = (/ &
+ & 0.21017E-06_JPRB,0.23019E-05_JPRB,0.28217E-05_JPRB,0.29420E-05_JPRB,0.17403E-05_JPRB /)  
+KB(:, 2,56, 7) = (/ &
+ & 0.23294E-06_JPRB,0.27215E-05_JPRB,0.33922E-05_JPRB,0.36070E-05_JPRB,0.21943E-05_JPRB /)  
+KB(:, 3,56, 7) = (/ &
+ & 0.25436E-06_JPRB,0.32732E-05_JPRB,0.41720E-05_JPRB,0.45291E-05_JPRB,0.27950E-05_JPRB /)  
+KB(:, 4,56, 7) = (/ &
+ & 0.27383E-06_JPRB,0.39951E-05_JPRB,0.52252E-05_JPRB,0.57990E-05_JPRB,0.36054E-05_JPRB /)  
+KB(:, 5,56, 7) = (/ &
+ & 0.29106E-06_JPRB,0.49429E-05_JPRB,0.66518E-05_JPRB,0.75613E-05_JPRB,0.47246E-05_JPRB /)  
+KB(:, 1,57, 7) = (/ &
+ & 0.16608E-06_JPRB,0.18531E-05_JPRB,0.22639E-05_JPRB,0.23504E-05_JPRB,0.13760E-05_JPRB /)  
+KB(:, 2,57, 7) = (/ &
+ & 0.18488E-06_JPRB,0.21971E-05_JPRB,0.27271E-05_JPRB,0.28870E-05_JPRB,0.17421E-05_JPRB /)  
+KB(:, 3,57, 7) = (/ &
+ & 0.20279E-06_JPRB,0.26520E-05_JPRB,0.33659E-05_JPRB,0.36392E-05_JPRB,0.22316E-05_JPRB /)  
+KB(:, 4,57, 7) = (/ &
+ & 0.21931E-06_JPRB,0.32543E-05_JPRB,0.42391E-05_JPRB,0.46891E-05_JPRB,0.28949E-05_JPRB /)  
+KB(:, 5,57, 7) = (/ &
+ & 0.23404E-06_JPRB,0.40527E-05_JPRB,0.54380E-05_JPRB,0.61649E-05_JPRB,0.38234E-05_JPRB /)  
+KB(:, 1,58, 7) = (/ &
+ & 0.13131E-06_JPRB,0.14927E-05_JPRB,0.18179E-05_JPRB,0.18787E-05_JPRB,0.10893E-05_JPRB /)  
+KB(:, 2,58, 7) = (/ &
+ & 0.14677E-06_JPRB,0.17748E-05_JPRB,0.21946E-05_JPRB,0.23122E-05_JPRB,0.13839E-05_JPRB /)  
+KB(:, 3,58, 7) = (/ &
+ & 0.16171E-06_JPRB,0.21494E-05_JPRB,0.27171E-05_JPRB,0.29256E-05_JPRB,0.17827E-05_JPRB /)  
+KB(:, 4,58, 7) = (/ &
+ & 0.17567E-06_JPRB,0.26514E-05_JPRB,0.34407E-05_JPRB,0.37923E-05_JPRB,0.23269E-05_JPRB /)  
+KB(:, 5,58, 7) = (/ &
+ & 0.18816E-06_JPRB,0.33237E-05_JPRB,0.44466E-05_JPRB,0.50280E-05_JPRB,0.30958E-05_JPRB /)  
+KB(:, 1,59, 7) = (/ &
+ & 0.10599E-06_JPRB,0.12374E-05_JPRB,0.15060E-05_JPRB,0.15543E-05_JPRB,0.89750E-06_JPRB /)  
+KB(:, 2,59, 7) = (/ &
+ & 0.11868E-06_JPRB,0.14795E-05_JPRB,0.18285E-05_JPRB,0.19251E-05_JPRB,0.11479E-05_JPRB /)  
+KB(:, 3,59, 7) = (/ &
+ & 0.13098E-06_JPRB,0.18042E-05_JPRB,0.22807E-05_JPRB,0.24552E-05_JPRB,0.14897E-05_JPRB /)  
+KB(:, 4,59, 7) = (/ &
+ & 0.14252E-06_JPRB,0.22439E-05_JPRB,0.29152E-05_JPRB,0.32163E-05_JPRB,0.19622E-05_JPRB /)  
+KB(:, 5,59, 7) = (/ &
+ & 0.15291E-06_JPRB,0.28396E-05_JPRB,0.38087E-05_JPRB,0.43138E-05_JPRB,0.26387E-05_JPRB /)  
+KB(:, 1,13, 8) = (/ &
+ & 0.83673E-02_JPRB,0.17454E-01_JPRB,0.20213E-01_JPRB,0.20132E-01_JPRB,0.13810E-01_JPRB /)  
+KB(:, 2,13, 8) = (/ &
+ & 0.85039E-02_JPRB,0.17824E-01_JPRB,0.20684E-01_JPRB,0.20616E-01_JPRB,0.14219E-01_JPRB /)  
+KB(:, 3,13, 8) = (/ &
+ & 0.86129E-02_JPRB,0.18196E-01_JPRB,0.21163E-01_JPRB,0.21143E-01_JPRB,0.14616E-01_JPRB /)  
+KB(:, 4,13, 8) = (/ &
+ & 0.86913E-02_JPRB,0.18563E-01_JPRB,0.21635E-01_JPRB,0.21674E-01_JPRB,0.14991E-01_JPRB /)  
+KB(:, 5,13, 8) = (/ &
+ & 0.87301E-02_JPRB,0.18916E-01_JPRB,0.22103E-01_JPRB,0.22198E-01_JPRB,0.15351E-01_JPRB /)  
+KB(:, 1,14, 8) = (/ &
+ & 0.69346E-02_JPRB,0.14952E-01_JPRB,0.17380E-01_JPRB,0.17342E-01_JPRB,0.11803E-01_JPRB /)  
+KB(:, 2,14, 8) = (/ &
+ & 0.70328E-02_JPRB,0.15276E-01_JPRB,0.17808E-01_JPRB,0.17830E-01_JPRB,0.12181E-01_JPRB /)  
+KB(:, 3,14, 8) = (/ &
+ & 0.71113E-02_JPRB,0.15604E-01_JPRB,0.18240E-01_JPRB,0.18321E-01_JPRB,0.12544E-01_JPRB /)  
+KB(:, 4,14, 8) = (/ &
+ & 0.71580E-02_JPRB,0.15937E-01_JPRB,0.18667E-01_JPRB,0.18814E-01_JPRB,0.12884E-01_JPRB /)  
+KB(:, 5,14, 8) = (/ &
+ & 0.71785E-02_JPRB,0.16228E-01_JPRB,0.19093E-01_JPRB,0.19299E-01_JPRB,0.13230E-01_JPRB /)  
+KB(:, 1,15, 8) = (/ &
+ & 0.57307E-02_JPRB,0.12763E-01_JPRB,0.14890E-01_JPRB,0.14912E-01_JPRB,0.10073E-01_JPRB /)  
+KB(:, 2,15, 8) = (/ &
+ & 0.58017E-02_JPRB,0.13052E-01_JPRB,0.15278E-01_JPRB,0.15370E-01_JPRB,0.10417E-01_JPRB /)  
+KB(:, 3,15, 8) = (/ &
+ & 0.58533E-02_JPRB,0.13347E-01_JPRB,0.15666E-01_JPRB,0.15828E-01_JPRB,0.10742E-01_JPRB /)  
+KB(:, 4,15, 8) = (/ &
+ & 0.58826E-02_JPRB,0.13628E-01_JPRB,0.16057E-01_JPRB,0.16289E-01_JPRB,0.11066E-01_JPRB /)  
+KB(:, 5,15, 8) = (/ &
+ & 0.58933E-02_JPRB,0.13873E-01_JPRB,0.16444E-01_JPRB,0.16739E-01_JPRB,0.11388E-01_JPRB /)  
+KB(:, 1,16, 8) = (/ &
+ & 0.47247E-02_JPRB,0.10863E-01_JPRB,0.12723E-01_JPRB,0.12788E-01_JPRB,0.85822E-02_JPRB /)  
+KB(:, 2,16, 8) = (/ &
+ & 0.47755E-02_JPRB,0.11124E-01_JPRB,0.13076E-01_JPRB,0.13211E-01_JPRB,0.88907E-02_JPRB /)  
+KB(:, 3,16, 8) = (/ &
+ & 0.48095E-02_JPRB,0.11385E-01_JPRB,0.13431E-01_JPRB,0.13641E-01_JPRB,0.91903E-02_JPRB /)  
+KB(:, 4,16, 8) = (/ &
+ & 0.48283E-02_JPRB,0.11622E-01_JPRB,0.13790E-01_JPRB,0.14066E-01_JPRB,0.94912E-02_JPRB /)  
+KB(:, 5,16, 8) = (/ &
+ & 0.48333E-02_JPRB,0.11841E-01_JPRB,0.14135E-01_JPRB,0.14487E-01_JPRB,0.97938E-02_JPRB /)  
+KB(:, 1,17, 8) = (/ &
+ & 0.38881E-02_JPRB,0.92313E-02_JPRB,0.10848E-01_JPRB,0.10942E-01_JPRB,0.73006E-02_JPRB /)  
+KB(:, 2,17, 8) = (/ &
+ & 0.39238E-02_JPRB,0.94601E-02_JPRB,0.11171E-01_JPRB,0.11333E-01_JPRB,0.75792E-02_JPRB /)  
+KB(:, 3,17, 8) = (/ &
+ & 0.39468E-02_JPRB,0.96874E-02_JPRB,0.11500E-01_JPRB,0.11732E-01_JPRB,0.78560E-02_JPRB /)  
+KB(:, 4,17, 8) = (/ &
+ & 0.39590E-02_JPRB,0.98962E-02_JPRB,0.11826E-01_JPRB,0.12129E-01_JPRB,0.81376E-02_JPRB /)  
+KB(:, 5,17, 8) = (/ &
+ & 0.39612E-02_JPRB,0.10094E-01_JPRB,0.12144E-01_JPRB,0.12521E-01_JPRB,0.84293E-02_JPRB /)  
+KB(:, 1,18, 8) = (/ &
+ & 0.31953E-02_JPRB,0.78309E-02_JPRB,0.92361E-02_JPRB,0.93523E-02_JPRB,0.62048E-02_JPRB /)  
+KB(:, 2,18, 8) = (/ &
+ & 0.32208E-02_JPRB,0.80372E-02_JPRB,0.95350E-02_JPRB,0.97148E-02_JPRB,0.64590E-02_JPRB /)  
+KB(:, 3,18, 8) = (/ &
+ & 0.32365E-02_JPRB,0.82342E-02_JPRB,0.98382E-02_JPRB,0.10082E-01_JPRB,0.67154E-02_JPRB /)  
+KB(:, 4,18, 8) = (/ &
+ & 0.32447E-02_JPRB,0.84229E-02_JPRB,0.10138E-01_JPRB,0.10450E-01_JPRB,0.69838E-02_JPRB /)  
+KB(:, 5,18, 8) = (/ &
+ & 0.32450E-02_JPRB,0.86061E-02_JPRB,0.10427E-01_JPRB,0.10814E-01_JPRB,0.72626E-02_JPRB /)  
+KB(:, 1,19, 8) = (/ &
+ & 0.26235E-02_JPRB,0.66399E-02_JPRB,0.78599E-02_JPRB,0.79875E-02_JPRB,0.52728E-02_JPRB /)  
+KB(:, 2,19, 8) = (/ &
+ & 0.26414E-02_JPRB,0.68231E-02_JPRB,0.81351E-02_JPRB,0.83230E-02_JPRB,0.55070E-02_JPRB /)  
+KB(:, 3,19, 8) = (/ &
+ & 0.26530E-02_JPRB,0.70004E-02_JPRB,0.84138E-02_JPRB,0.86629E-02_JPRB,0.57468E-02_JPRB /)  
+KB(:, 4,19, 8) = (/ &
+ & 0.26583E-02_JPRB,0.71756E-02_JPRB,0.86887E-02_JPRB,0.90029E-02_JPRB,0.60006E-02_JPRB /)  
+KB(:, 5,19, 8) = (/ &
+ & 0.26573E-02_JPRB,0.73457E-02_JPRB,0.89549E-02_JPRB,0.93422E-02_JPRB,0.62658E-02_JPRB /)  
+KB(:, 1,20, 8) = (/ &
+ & 0.21528E-02_JPRB,0.56300E-02_JPRB,0.66928E-02_JPRB,0.68275E-02_JPRB,0.44887E-02_JPRB /)  
+KB(:, 2,20, 8) = (/ &
+ & 0.21659E-02_JPRB,0.57965E-02_JPRB,0.69483E-02_JPRB,0.71374E-02_JPRB,0.47044E-02_JPRB /)  
+KB(:, 3,20, 8) = (/ &
+ & 0.21742E-02_JPRB,0.59617E-02_JPRB,0.72036E-02_JPRB,0.74503E-02_JPRB,0.49314E-02_JPRB /)  
+KB(:, 4,20, 8) = (/ &
+ & 0.21777E-02_JPRB,0.61251E-02_JPRB,0.74562E-02_JPRB,0.77657E-02_JPRB,0.51700E-02_JPRB /)  
+KB(:, 5,20, 8) = (/ &
+ & 0.21757E-02_JPRB,0.62850E-02_JPRB,0.77065E-02_JPRB,0.80891E-02_JPRB,0.54225E-02_JPRB /)  
+KB(:, 1,21, 8) = (/ &
+ & 0.17659E-02_JPRB,0.47778E-02_JPRB,0.57054E-02_JPRB,0.58417E-02_JPRB,0.38271E-02_JPRB /)  
+KB(:, 2,21, 8) = (/ &
+ & 0.17754E-02_JPRB,0.49299E-02_JPRB,0.59393E-02_JPRB,0.61257E-02_JPRB,0.40264E-02_JPRB /)  
+KB(:, 3,21, 8) = (/ &
+ & 0.17817E-02_JPRB,0.50836E-02_JPRB,0.61750E-02_JPRB,0.64148E-02_JPRB,0.42397E-02_JPRB /)  
+KB(:, 4,21, 8) = (/ &
+ & 0.17836E-02_JPRB,0.52370E-02_JPRB,0.64083E-02_JPRB,0.67125E-02_JPRB,0.44647E-02_JPRB /)  
+KB(:, 5,21, 8) = (/ &
+ & 0.17811E-02_JPRB,0.53876E-02_JPRB,0.66480E-02_JPRB,0.70201E-02_JPRB,0.47076E-02_JPRB /)  
+KB(:, 1,22, 8) = (/ &
+ & 0.14486E-02_JPRB,0.40679E-02_JPRB,0.48826E-02_JPRB,0.50205E-02_JPRB,0.32805E-02_JPRB /)  
+KB(:, 2,22, 8) = (/ &
+ & 0.14554E-02_JPRB,0.42085E-02_JPRB,0.50980E-02_JPRB,0.52827E-02_JPRB,0.34669E-02_JPRB /)  
+KB(:, 3,22, 8) = (/ &
+ & 0.14597E-02_JPRB,0.43515E-02_JPRB,0.53153E-02_JPRB,0.55535E-02_JPRB,0.36674E-02_JPRB /)  
+KB(:, 4,22, 8) = (/ &
+ & 0.14606E-02_JPRB,0.44957E-02_JPRB,0.55353E-02_JPRB,0.58376E-02_JPRB,0.38816E-02_JPRB /)  
+KB(:, 5,22, 8) = (/ &
+ & 0.14577E-02_JPRB,0.46383E-02_JPRB,0.57672E-02_JPRB,0.61302E-02_JPRB,0.41156E-02_JPRB /)  
+KB(:, 1,23, 8) = (/ &
+ & 0.11880E-02_JPRB,0.34698E-02_JPRB,0.41861E-02_JPRB,0.43248E-02_JPRB,0.28199E-02_JPRB /)  
+KB(:, 2,23, 8) = (/ &
+ & 0.11929E-02_JPRB,0.36010E-02_JPRB,0.43862E-02_JPRB,0.45689E-02_JPRB,0.29956E-02_JPRB /)  
+KB(:, 3,23, 8) = (/ &
+ & 0.11958E-02_JPRB,0.37344E-02_JPRB,0.45877E-02_JPRB,0.48273E-02_JPRB,0.31843E-02_JPRB /)  
+KB(:, 4,23, 8) = (/ &
+ & 0.11959E-02_JPRB,0.38697E-02_JPRB,0.48007E-02_JPRB,0.50965E-02_JPRB,0.33903E-02_JPRB /)  
+KB(:, 5,23, 8) = (/ &
+ & 0.11929E-02_JPRB,0.40068E-02_JPRB,0.50232E-02_JPRB,0.53791E-02_JPRB,0.36136E-02_JPRB /)  
+KB(:, 1,24, 8) = (/ &
+ & 0.97406E-03_JPRB,0.29675E-02_JPRB,0.36006E-02_JPRB,0.37379E-02_JPRB,0.24344E-02_JPRB /)  
+KB(:, 2,24, 8) = (/ &
+ & 0.97756E-03_JPRB,0.30896E-02_JPRB,0.37850E-02_JPRB,0.39686E-02_JPRB,0.25994E-02_JPRB /)  
+KB(:, 3,24, 8) = (/ &
+ & 0.97946E-03_JPRB,0.32150E-02_JPRB,0.39775E-02_JPRB,0.42135E-02_JPRB,0.27776E-02_JPRB /)  
+KB(:, 4,24, 8) = (/ &
+ & 0.97899E-03_JPRB,0.33430E-02_JPRB,0.41825E-02_JPRB,0.44708E-02_JPRB,0.29753E-02_JPRB /)  
+KB(:, 5,24, 8) = (/ &
+ & 0.97615E-03_JPRB,0.34761E-02_JPRB,0.43966E-02_JPRB,0.47457E-02_JPRB,0.31900E-02_JPRB /)  
+KB(:, 1,25, 8) = (/ &
+ & 0.79856E-03_JPRB,0.25459E-02_JPRB,0.31077E-02_JPRB,0.32447E-02_JPRB,0.21114E-02_JPRB /)  
+KB(:, 2,25, 8) = (/ &
+ & 0.80110E-03_JPRB,0.26605E-02_JPRB,0.32805E-02_JPRB,0.34640E-02_JPRB,0.22664E-02_JPRB /)  
+KB(:, 3,25, 8) = (/ &
+ & 0.80222E-03_JPRB,0.27778E-02_JPRB,0.34666E-02_JPRB,0.36958E-02_JPRB,0.24376E-02_JPRB /)  
+KB(:, 4,25, 8) = (/ &
+ & 0.80129E-03_JPRB,0.29014E-02_JPRB,0.36623E-02_JPRB,0.39444E-02_JPRB,0.26269E-02_JPRB /)  
+KB(:, 5,25, 8) = (/ &
+ & 0.79857E-03_JPRB,0.30302E-02_JPRB,0.38698E-02_JPRB,0.42126E-02_JPRB,0.28335E-02_JPRB /)  
+KB(:, 1,26, 8) = (/ &
+ & 0.65460E-03_JPRB,0.21933E-02_JPRB,0.26944E-02_JPRB,0.28334E-02_JPRB,0.18417E-02_JPRB /)  
+KB(:, 2,26, 8) = (/ &
+ & 0.65639E-03_JPRB,0.23003E-02_JPRB,0.28599E-02_JPRB,0.30409E-02_JPRB,0.19886E-02_JPRB /)  
+KB(:, 3,26, 8) = (/ &
+ & 0.65685E-03_JPRB,0.24132E-02_JPRB,0.30384E-02_JPRB,0.32639E-02_JPRB,0.21545E-02_JPRB /)  
+KB(:, 4,26, 8) = (/ &
+ & 0.65577E-03_JPRB,0.25323E-02_JPRB,0.32275E-02_JPRB,0.35055E-02_JPRB,0.23366E-02_JPRB /)  
+KB(:, 5,26, 8) = (/ &
+ & 0.65325E-03_JPRB,0.26572E-02_JPRB,0.34294E-02_JPRB,0.37687E-02_JPRB,0.25365E-02_JPRB /)  
+KB(:, 1,27, 8) = (/ &
+ & 0.53655E-03_JPRB,0.18966E-02_JPRB,0.23474E-02_JPRB,0.24873E-02_JPRB,0.16142E-02_JPRB /)  
+KB(:, 2,27, 8) = (/ &
+ & 0.53777E-03_JPRB,0.19979E-02_JPRB,0.25069E-02_JPRB,0.26849E-02_JPRB,0.17570E-02_JPRB /)  
+KB(:, 3,27, 8) = (/ &
+ & 0.53783E-03_JPRB,0.21070E-02_JPRB,0.26778E-02_JPRB,0.29010E-02_JPRB,0.19163E-02_JPRB /)  
+KB(:, 4,27, 8) = (/ &
+ & 0.53661E-03_JPRB,0.22218E-02_JPRB,0.28609E-02_JPRB,0.31373E-02_JPRB,0.20925E-02_JPRB /)  
+KB(:, 5,27, 8) = (/ &
+ & 0.53426E-03_JPRB,0.23437E-02_JPRB,0.30591E-02_JPRB,0.33953E-02_JPRB,0.22871E-02_JPRB /)  
+KB(:, 1,28, 8) = (/ &
+ & 0.43973E-03_JPRB,0.16467E-02_JPRB,0.20564E-02_JPRB,0.21950E-02_JPRB,0.14243E-02_JPRB /)  
+KB(:, 2,28, 8) = (/ &
+ & 0.44046E-03_JPRB,0.17445E-02_JPRB,0.22094E-02_JPRB,0.23854E-02_JPRB,0.15622E-02_JPRB /)  
+KB(:, 3,28, 8) = (/ &
+ & 0.44027E-03_JPRB,0.18495E-02_JPRB,0.23737E-02_JPRB,0.25954E-02_JPRB,0.17160E-02_JPRB /)  
+KB(:, 4,28, 8) = (/ &
+ & 0.43902E-03_JPRB,0.19607E-02_JPRB,0.25527E-02_JPRB,0.28280E-02_JPRB,0.18875E-02_JPRB /)  
+KB(:, 5,28, 8) = (/ &
+ & 0.43690E-03_JPRB,0.20797E-02_JPRB,0.27483E-02_JPRB,0.30809E-02_JPRB,0.20783E-02_JPRB /)  
+KB(:, 1,29, 8) = (/ &
+ & 0.36035E-03_JPRB,0.14377E-02_JPRB,0.18129E-02_JPRB,0.19502E-02_JPRB,0.12665E-02_JPRB /)  
+KB(:, 2,29, 8) = (/ &
+ & 0.36078E-03_JPRB,0.15322E-02_JPRB,0.19593E-02_JPRB,0.21346E-02_JPRB,0.13993E-02_JPRB /)  
+KB(:, 3,29, 8) = (/ &
+ & 0.36035E-03_JPRB,0.16333E-02_JPRB,0.21194E-02_JPRB,0.23407E-02_JPRB,0.15489E-02_JPRB /)  
+KB(:, 4,29, 8) = (/ &
+ & 0.35917E-03_JPRB,0.17416E-02_JPRB,0.22958E-02_JPRB,0.25693E-02_JPRB,0.17169E-02_JPRB /)  
+KB(:, 5,29, 8) = (/ &
+ & 0.35722E-03_JPRB,0.18583E-02_JPRB,0.24893E-02_JPRB,0.28199E-02_JPRB,0.19058E-02_JPRB /)  
+KB(:, 1,30, 8) = (/ &
+ & 0.29522E-03_JPRB,0.12625E-02_JPRB,0.16073E-02_JPRB,0.17444E-02_JPRB,0.11337E-02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART23',1,ZHOOK_HANDLE)
+END SUBROUTINE PART23
+
+
+SUBROUTINE PART24
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART24',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,30, 8) = (/ &
+ & 0.29544E-03_JPRB,0.13534E-02_JPRB,0.17493E-02_JPRB,0.19248E-02_JPRB,0.12629E-02_JPRB /)  
+KB(:, 3,30, 8) = (/ &
+ & 0.29489E-03_JPRB,0.14513E-02_JPRB,0.19064E-02_JPRB,0.21281E-02_JPRB,0.14093E-02_JPRB /)  
+KB(:, 4,30, 8) = (/ &
+ & 0.29377E-03_JPRB,0.15575E-02_JPRB,0.20813E-02_JPRB,0.23536E-02_JPRB,0.15751E-02_JPRB /)  
+KB(:, 5,30, 8) = (/ &
+ & 0.29201E-03_JPRB,0.16725E-02_JPRB,0.22728E-02_JPRB,0.26031E-02_JPRB,0.17633E-02_JPRB /)  
+KB(:, 1,31, 8) = (/ &
+ & 0.24186E-03_JPRB,0.11155E-02_JPRB,0.14353E-02_JPRB,0.15729E-02_JPRB,0.10232E-02_JPRB /)  
+KB(:, 2,31, 8) = (/ &
+ & 0.24189E-03_JPRB,0.12032E-02_JPRB,0.15739E-02_JPRB,0.17508E-02_JPRB,0.11498E-02_JPRB /)  
+KB(:, 3,31, 8) = (/ &
+ & 0.24130E-03_JPRB,0.12988E-02_JPRB,0.17296E-02_JPRB,0.19516E-02_JPRB,0.12942E-02_JPRB /)  
+KB(:, 4,31, 8) = (/ &
+ & 0.24025E-03_JPRB,0.14034E-02_JPRB,0.19030E-02_JPRB,0.21764E-02_JPRB,0.14594E-02_JPRB /)  
+KB(:, 5,31, 8) = (/ &
+ & 0.23866E-03_JPRB,0.15170E-02_JPRB,0.20940E-02_JPRB,0.24270E-02_JPRB,0.16471E-02_JPRB /)  
+KB(:, 1,32, 8) = (/ &
+ & 0.19811E-03_JPRB,0.99188E-03_JPRB,0.12914E-02_JPRB,0.14311E-02_JPRB,0.93157E-03_JPRB /)  
+KB(:, 2,32, 8) = (/ &
+ & 0.19799E-03_JPRB,0.10771E-02_JPRB,0.14282E-02_JPRB,0.16073E-02_JPRB,0.10562E-02_JPRB /)  
+KB(:, 3,32, 8) = (/ &
+ & 0.19741E-03_JPRB,0.11711E-02_JPRB,0.15828E-02_JPRB,0.18068E-02_JPRB,0.11999E-02_JPRB /)  
+KB(:, 4,32, 8) = (/ &
+ & 0.19645E-03_JPRB,0.12746E-02_JPRB,0.17559E-02_JPRB,0.20320E-02_JPRB,0.13654E-02_JPRB /)  
+KB(:, 5,32, 8) = (/ &
+ & 0.19503E-03_JPRB,0.13871E-02_JPRB,0.19473E-02_JPRB,0.22851E-02_JPRB,0.15533E-02_JPRB /)  
+KB(:, 1,33, 8) = (/ &
+ & 0.16225E-03_JPRB,0.88803E-03_JPRB,0.11717E-02_JPRB,0.13138E-02_JPRB,0.85556E-03_JPRB /)  
+KB(:, 2,33, 8) = (/ &
+ & 0.16205E-03_JPRB,0.97174E-03_JPRB,0.13077E-02_JPRB,0.14890E-02_JPRB,0.97930E-03_JPRB /)  
+KB(:, 3,33, 8) = (/ &
+ & 0.16148E-03_JPRB,0.10648E-02_JPRB,0.14621E-02_JPRB,0.16891E-02_JPRB,0.11237E-02_JPRB /)  
+KB(:, 4,33, 8) = (/ &
+ & 0.16059E-03_JPRB,0.11673E-02_JPRB,0.16357E-02_JPRB,0.19165E-02_JPRB,0.12896E-02_JPRB /)  
+KB(:, 5,33, 8) = (/ &
+ & 0.15934E-03_JPRB,0.12795E-02_JPRB,0.18288E-02_JPRB,0.21736E-02_JPRB,0.14791E-02_JPRB /)  
+KB(:, 1,34, 8) = (/ &
+ & 0.13286E-03_JPRB,0.79835E-03_JPRB,0.10683E-02_JPRB,0.12117E-02_JPRB,0.78908E-03_JPRB /)  
+KB(:, 2,34, 8) = (/ &
+ & 0.13261E-03_JPRB,0.88066E-03_JPRB,0.12036E-02_JPRB,0.13865E-02_JPRB,0.91252E-03_JPRB /)  
+KB(:, 3,34, 8) = (/ &
+ & 0.13209E-03_JPRB,0.97270E-03_JPRB,0.13580E-02_JPRB,0.15871E-02_JPRB,0.10570E-02_JPRB /)  
+KB(:, 4,34, 8) = (/ &
+ & 0.13130E-03_JPRB,0.10748E-02_JPRB,0.15318E-02_JPRB,0.18171E-02_JPRB,0.12236E-02_JPRB /)  
+KB(:, 5,34, 8) = (/ &
+ & 0.13022E-03_JPRB,0.11866E-02_JPRB,0.17264E-02_JPRB,0.20786E-02_JPRB,0.14148E-02_JPRB /)  
+KB(:, 1,35, 8) = (/ &
+ & 0.10879E-03_JPRB,0.71567E-03_JPRB,0.97075E-03_JPRB,0.11118E-02_JPRB,0.72353E-03_JPRB /)  
+KB(:, 2,35, 8) = (/ &
+ & 0.10855E-03_JPRB,0.79625E-03_JPRB,0.11041E-02_JPRB,0.12845E-02_JPRB,0.84540E-03_JPRB /)  
+KB(:, 3,35, 8) = (/ &
+ & 0.10811E-03_JPRB,0.88686E-03_JPRB,0.12569E-02_JPRB,0.14847E-02_JPRB,0.98831E-03_JPRB /)  
+KB(:, 4,35, 8) = (/ &
+ & 0.10743E-03_JPRB,0.98761E-03_JPRB,0.14300E-02_JPRB,0.17157E-02_JPRB,0.11541E-02_JPRB /)  
+KB(:, 5,35, 8) = (/ &
+ & 0.10650E-03_JPRB,0.10987E-02_JPRB,0.16251E-02_JPRB,0.19799E-02_JPRB,0.13460E-02_JPRB /)  
+KB(:, 1,36, 8) = (/ &
+ & 0.89091E-04_JPRB,0.63773E-03_JPRB,0.87525E-03_JPRB,0.10106E-02_JPRB,0.65643E-03_JPRB /)  
+KB(:, 2,36, 8) = (/ &
+ & 0.88892E-04_JPRB,0.71572E-03_JPRB,0.10050E-02_JPRB,0.11794E-02_JPRB,0.77482E-03_JPRB /)  
+KB(:, 3,36, 8) = (/ &
+ & 0.88510E-04_JPRB,0.80390E-03_JPRB,0.11544E-02_JPRB,0.13768E-02_JPRB,0.91437E-03_JPRB /)  
+KB(:, 4,36, 8) = (/ &
+ & 0.87951E-04_JPRB,0.90253E-03_JPRB,0.13255E-02_JPRB,0.16063E-02_JPRB,0.10779E-02_JPRB /)  
+KB(:, 5,36, 8) = (/ &
+ & 0.87175E-04_JPRB,0.10120E-02_JPRB,0.15187E-02_JPRB,0.18703E-02_JPRB,0.12677E-02_JPRB /)  
+KB(:, 1,37, 8) = (/ &
+ & 0.72967E-04_JPRB,0.56051E-03_JPRB,0.77586E-03_JPRB,0.90139E-03_JPRB,0.58319E-03_JPRB /)  
+KB(:, 2,37, 8) = (/ &
+ & 0.72818E-04_JPRB,0.63459E-03_JPRB,0.89962E-03_JPRB,0.10627E-02_JPRB,0.69545E-03_JPRB /)  
+KB(:, 3,37, 8) = (/ &
+ & 0.72523E-04_JPRB,0.71909E-03_JPRB,0.10433E-02_JPRB,0.12533E-02_JPRB,0.82896E-03_JPRB /)  
+KB(:, 4,37, 8) = (/ &
+ & 0.72087E-04_JPRB,0.81427E-03_JPRB,0.12092E-02_JPRB,0.14766E-02_JPRB,0.98671E-03_JPRB /)  
+KB(:, 5,37, 8) = (/ &
+ & 0.71486E-04_JPRB,0.92093E-03_JPRB,0.13977E-02_JPRB,0.17355E-02_JPRB,0.11708E-02_JPRB /)  
+KB(:, 1,38, 8) = (/ &
+ & 0.59765E-04_JPRB,0.49320E-03_JPRB,0.68844E-03_JPRB,0.80478E-03_JPRB,0.51849E-03_JPRB /)  
+KB(:, 2,38, 8) = (/ &
+ & 0.59660E-04_JPRB,0.56354E-03_JPRB,0.80640E-03_JPRB,0.95876E-03_JPRB,0.62466E-03_JPRB /)  
+KB(:, 3,38, 8) = (/ &
+ & 0.59436E-04_JPRB,0.64440E-03_JPRB,0.94454E-03_JPRB,0.11426E-02_JPRB,0.75236E-03_JPRB /)  
+KB(:, 4,38, 8) = (/ &
+ & 0.59102E-04_JPRB,0.73631E-03_JPRB,0.11052E-02_JPRB,0.13599E-02_JPRB,0.90433E-03_JPRB /)  
+KB(:, 5,38, 8) = (/ &
+ & 0.58635E-04_JPRB,0.84009E-03_JPRB,0.12891E-02_JPRB,0.16134E-02_JPRB,0.10829E-02_JPRB /)  
+KB(:, 1,39, 8) = (/ &
+ & 0.48956E-04_JPRB,0.43499E-03_JPRB,0.61231E-03_JPRB,0.72017E-03_JPRB,0.46189E-03_JPRB /)  
+KB(:, 2,39, 8) = (/ &
+ & 0.48890E-04_JPRB,0.50181E-03_JPRB,0.72478E-03_JPRB,0.86730E-03_JPRB,0.56244E-03_JPRB /)  
+KB(:, 3,39, 8) = (/ &
+ & 0.48717E-04_JPRB,0.57923E-03_JPRB,0.85778E-03_JPRB,0.10448E-02_JPRB,0.68464E-03_JPRB /)  
+KB(:, 4,39, 8) = (/ &
+ & 0.48451E-04_JPRB,0.66799E-03_JPRB,0.10132E-02_JPRB,0.12563E-02_JPRB,0.83112E-03_JPRB /)  
+KB(:, 5,39, 8) = (/ &
+ & 0.48085E-04_JPRB,0.76898E-03_JPRB,0.11928E-02_JPRB,0.15047E-02_JPRB,0.10044E-02_JPRB /)  
+KB(:, 1,40, 8) = (/ &
+ & 0.40107E-04_JPRB,0.37860E-03_JPRB,0.53596E-03_JPRB,0.63302E-03_JPRB,0.40350E-03_JPRB /)  
+KB(:, 2,40, 8) = (/ &
+ & 0.40068E-04_JPRB,0.44099E-03_JPRB,0.64126E-03_JPRB,0.77105E-03_JPRB,0.49697E-03_JPRB /)  
+KB(:, 3,40, 8) = (/ &
+ & 0.39945E-04_JPRB,0.51399E-03_JPRB,0.76694E-03_JPRB,0.93934E-03_JPRB,0.61166E-03_JPRB /)  
+KB(:, 4,40, 8) = (/ &
+ & 0.39752E-04_JPRB,0.59851E-03_JPRB,0.91528E-03_JPRB,0.11416E-02_JPRB,0.75037E-03_JPRB /)  
+KB(:, 5,40, 8) = (/ &
+ & 0.39469E-04_JPRB,0.69544E-03_JPRB,0.10880E-02_JPRB,0.13809E-02_JPRB,0.91593E-03_JPRB /)  
+KB(:, 1,41, 8) = (/ &
+ & 0.32851E-04_JPRB,0.32878E-03_JPRB,0.46786E-03_JPRB,0.55469E-03_JPRB,0.35120E-03_JPRB /)  
+KB(:, 2,41, 8) = (/ &
+ & 0.32839E-04_JPRB,0.38683E-03_JPRB,0.56607E-03_JPRB,0.68394E-03_JPRB,0.43769E-03_JPRB /)  
+KB(:, 3,41, 8) = (/ &
+ & 0.32749E-04_JPRB,0.45542E-03_JPRB,0.68444E-03_JPRB,0.84259E-03_JPRB,0.54490E-03_JPRB /)  
+KB(:, 4,41, 8) = (/ &
+ & 0.32607E-04_JPRB,0.53564E-03_JPRB,0.82547E-03_JPRB,0.10352E-02_JPRB,0.67585E-03_JPRB /)  
+KB(:, 5,41, 8) = (/ &
+ & 0.32395E-04_JPRB,0.62841E-03_JPRB,0.99133E-03_JPRB,0.12652E-02_JPRB,0.83332E-03_JPRB /)  
+KB(:, 1,42, 8) = (/ &
+ & 0.26906E-04_JPRB,0.28534E-03_JPRB,0.40805E-03_JPRB,0.48535E-03_JPRB,0.30526E-03_JPRB /)  
+KB(:, 2,42, 8) = (/ &
+ & 0.26908E-04_JPRB,0.33922E-03_JPRB,0.49950E-03_JPRB,0.60603E-03_JPRB,0.38505E-03_JPRB /)  
+KB(:, 3,42, 8) = (/ &
+ & 0.26846E-04_JPRB,0.40361E-03_JPRB,0.61076E-03_JPRB,0.75564E-03_JPRB,0.48524E-03_JPRB /)  
+KB(:, 4,42, 8) = (/ &
+ & 0.26739E-04_JPRB,0.47953E-03_JPRB,0.74454E-03_JPRB,0.93882E-03_JPRB,0.60861E-03_JPRB /)  
+KB(:, 5,42, 8) = (/ &
+ & 0.26585E-04_JPRB,0.56816E-03_JPRB,0.90363E-03_JPRB,0.11597E-02_JPRB,0.75829E-03_JPRB /)  
+KB(:, 1,43, 8) = (/ &
+ & 0.22034E-04_JPRB,0.24494E-03_JPRB,0.35126E-03_JPRB,0.41862E-03_JPRB,0.26133E-03_JPRB /)  
+KB(:, 2,43, 8) = (/ &
+ & 0.22045E-04_JPRB,0.29428E-03_JPRB,0.43526E-03_JPRB,0.52960E-03_JPRB,0.33379E-03_JPRB /)  
+KB(:, 3,43, 8) = (/ &
+ & 0.22009E-04_JPRB,0.35394E-03_JPRB,0.53838E-03_JPRB,0.66893E-03_JPRB,0.42599E-03_JPRB /)  
+KB(:, 4,43, 8) = (/ &
+ & 0.21933E-04_JPRB,0.42510E-03_JPRB,0.66392E-03_JPRB,0.84090E-03_JPRB,0.54061E-03_JPRB /)  
+KB(:, 5,43, 8) = (/ &
+ & 0.21820E-04_JPRB,0.50878E-03_JPRB,0.81474E-03_JPRB,0.10503E-02_JPRB,0.68139E-03_JPRB /)  
+KB(:, 1,44, 8) = (/ &
+ & 0.18042E-04_JPRB,0.20878E-03_JPRB,0.29988E-03_JPRB,0.35782E-03_JPRB,0.22160E-03_JPRB /)  
+KB(:, 2,44, 8) = (/ &
+ & 0.18058E-04_JPRB,0.25360E-03_JPRB,0.37621E-03_JPRB,0.45875E-03_JPRB,0.28670E-03_JPRB /)  
+KB(:, 3,44, 8) = (/ &
+ & 0.18041E-04_JPRB,0.30845E-03_JPRB,0.47123E-03_JPRB,0.58727E-03_JPRB,0.37070E-03_JPRB /)  
+KB(:, 4,44, 8) = (/ &
+ & 0.17989E-04_JPRB,0.37459E-03_JPRB,0.58804E-03_JPRB,0.74739E-03_JPRB,0.47650E-03_JPRB /)  
+KB(:, 5,44, 8) = (/ &
+ & 0.17906E-04_JPRB,0.45317E-03_JPRB,0.73003E-03_JPRB,0.94454E-03_JPRB,0.60768E-03_JPRB /)  
+KB(:, 1,45, 8) = (/ &
+ & 0.14770E-04_JPRB,0.17743E-03_JPRB,0.25518E-03_JPRB,0.30461E-03_JPRB,0.18718E-03_JPRB /)  
+KB(:, 2,45, 8) = (/ &
+ & 0.14790E-04_JPRB,0.21794E-03_JPRB,0.32424E-03_JPRB,0.39603E-03_JPRB,0.24534E-03_JPRB /)  
+KB(:, 3,45, 8) = (/ &
+ & 0.14785E-04_JPRB,0.26822E-03_JPRB,0.41132E-03_JPRB,0.51406E-03_JPRB,0.32158E-03_JPRB /)  
+KB(:, 4,45, 8) = (/ &
+ & 0.14751E-04_JPRB,0.32948E-03_JPRB,0.51968E-03_JPRB,0.66288E-03_JPRB,0.41889E-03_JPRB /)  
+KB(:, 5,45, 8) = (/ &
+ & 0.14692E-04_JPRB,0.40309E-03_JPRB,0.65298E-03_JPRB,0.84795E-03_JPRB,0.54078E-03_JPRB /)  
+KB(:, 1,46, 8) = (/ &
+ & 0.12091E-04_JPRB,0.14956E-03_JPRB,0.21507E-03_JPRB,0.25664E-03_JPRB,0.15641E-03_JPRB /)  
+KB(:, 2,46, 8) = (/ &
+ & 0.12112E-04_JPRB,0.18585E-03_JPRB,0.27689E-03_JPRB,0.33853E-03_JPRB,0.20778E-03_JPRB /)  
+KB(:, 3,46, 8) = (/ &
+ & 0.12113E-04_JPRB,0.23156E-03_JPRB,0.35597E-03_JPRB,0.44575E-03_JPRB,0.27619E-03_JPRB /)  
+KB(:, 4,46, 8) = (/ &
+ & 0.12094E-04_JPRB,0.28789E-03_JPRB,0.45576E-03_JPRB,0.58313E-03_JPRB,0.36492E-03_JPRB /)  
+KB(:, 5,46, 8) = (/ &
+ & 0.12054E-04_JPRB,0.35628E-03_JPRB,0.57980E-03_JPRB,0.75523E-03_JPRB,0.47721E-03_JPRB /)  
+KB(:, 1,47, 8) = (/ &
+ & 0.98958E-05_JPRB,0.12436E-03_JPRB,0.17838E-03_JPRB,0.21241E-03_JPRB,0.12841E-03_JPRB /)  
+KB(:, 2,47, 8) = (/ &
+ & 0.99157E-05_JPRB,0.15633E-03_JPRB,0.23279E-03_JPRB,0.28443E-03_JPRB,0.17291E-03_JPRB /)  
+KB(:, 3,47, 8) = (/ &
+ & 0.99224E-05_JPRB,0.19724E-03_JPRB,0.30350E-03_JPRB,0.38017E-03_JPRB,0.23323E-03_JPRB /)  
+KB(:, 4,47, 8) = (/ &
+ & 0.99150E-05_JPRB,0.24831E-03_JPRB,0.39396E-03_JPRB,0.50488E-03_JPRB,0.31274E-03_JPRB /)  
+KB(:, 5,47, 8) = (/ &
+ & 0.98881E-05_JPRB,0.31110E-03_JPRB,0.50788E-03_JPRB,0.66304E-03_JPRB,0.41485E-03_JPRB /)  
+KB(:, 1,48, 8) = (/ &
+ & 0.80981E-05_JPRB,0.10284E-03_JPRB,0.14701E-03_JPRB,0.17457E-03_JPRB,0.10464E-03_JPRB /)  
+KB(:, 2,48, 8) = (/ &
+ & 0.81170E-05_JPRB,0.13083E-03_JPRB,0.19452E-03_JPRB,0.23734E-03_JPRB,0.14298E-03_JPRB /)  
+KB(:, 3,48, 8) = (/ &
+ & 0.81254E-05_JPRB,0.16716E-03_JPRB,0.25727E-03_JPRB,0.32230E-03_JPRB,0.19565E-03_JPRB /)  
+KB(:, 4,48, 8) = (/ &
+ & 0.81253E-05_JPRB,0.21328E-03_JPRB,0.33887E-03_JPRB,0.43475E-03_JPRB,0.26652E-03_JPRB /)  
+KB(:, 5,48, 8) = (/ &
+ & 0.81092E-05_JPRB,0.27062E-03_JPRB,0.44301E-03_JPRB,0.57972E-03_JPRB,0.35887E-03_JPRB /)  
+KB(:, 1,49, 8) = (/ &
+ & 0.66262E-05_JPRB,0.84542E-04_JPRB,0.12034E-03_JPRB,0.14245E-03_JPRB,0.84636E-04_JPRB /)  
+KB(:, 2,49, 8) = (/ &
+ & 0.66435E-05_JPRB,0.10903E-03_JPRB,0.16168E-03_JPRB,0.19686E-03_JPRB,0.11740E-03_JPRB /)  
+KB(:, 3,49, 8) = (/ &
+ & 0.66527E-05_JPRB,0.14092E-03_JPRB,0.21685E-03_JPRB,0.27156E-03_JPRB,0.16309E-03_JPRB /)  
+KB(:, 4,49, 8) = (/ &
+ & 0.66567E-05_JPRB,0.18229E-03_JPRB,0.28989E-03_JPRB,0.37214E-03_JPRB,0.22572E-03_JPRB /)  
+KB(:, 5,49, 8) = (/ &
+ & 0.66489E-05_JPRB,0.23443E-03_JPRB,0.38461E-03_JPRB,0.50418E-03_JPRB,0.30883E-03_JPRB /)  
+KB(:, 1,50, 8) = (/ &
+ & 0.54202E-05_JPRB,0.69608E-04_JPRB,0.98680E-04_JPRB,0.11646E-03_JPRB,0.68510E-04_JPRB /)  
+KB(:, 2,50, 8) = (/ &
+ & 0.54374E-05_JPRB,0.90802E-04_JPRB,0.13434E-03_JPRB,0.16330E-03_JPRB,0.96499E-04_JPRB /)  
+KB(:, 3,50, 8) = (/ &
+ & 0.54475E-05_JPRB,0.11916E-03_JPRB,0.18327E-03_JPRB,0.22932E-03_JPRB,0.13620E-03_JPRB /)  
+KB(:, 4,50, 8) = (/ &
+ & 0.54521E-05_JPRB,0.15608E-03_JPRB,0.24845E-03_JPRB,0.31928E-03_JPRB,0.19154E-03_JPRB /)  
+KB(:, 5,50, 8) = (/ &
+ & 0.54498E-05_JPRB,0.20348E-03_JPRB,0.33466E-03_JPRB,0.43937E-03_JPRB,0.26626E-03_JPRB /)  
+KB(:, 1,51, 8) = (/ &
+ & 0.44351E-05_JPRB,0.57088E-04_JPRB,0.80582E-04_JPRB,0.94790E-04_JPRB,0.55250E-04_JPRB /)  
+KB(:, 2,51, 8) = (/ &
+ & 0.44504E-05_JPRB,0.75435E-04_JPRB,0.11131E-03_JPRB,0.13503E-03_JPRB,0.79024E-04_JPRB /)  
+KB(:, 3,51, 8) = (/ &
+ & 0.44599E-05_JPRB,0.10037E-03_JPRB,0.15428E-03_JPRB,0.19291E-03_JPRB,0.11343E-03_JPRB /)  
+KB(:, 4,51, 8) = (/ &
+ & 0.44651E-05_JPRB,0.13336E-03_JPRB,0.21252E-03_JPRB,0.27335E-03_JPRB,0.16218E-03_JPRB /)  
+KB(:, 5,51, 8) = (/ &
+ & 0.44653E-05_JPRB,0.17640E-03_JPRB,0.29075E-03_JPRB,0.38229E-03_JPRB,0.22923E-03_JPRB /)  
+KB(:, 1,52, 8) = (/ &
+ & 0.36290E-05_JPRB,0.46565E-04_JPRB,0.65364E-04_JPRB,0.76598E-04_JPRB,0.44240E-04_JPRB /)  
+KB(:, 2,52, 8) = (/ &
+ & 0.36420E-05_JPRB,0.62314E-04_JPRB,0.91644E-04_JPRB,0.11090E-03_JPRB,0.64234E-04_JPRB /)  
+KB(:, 3,52, 8) = (/ &
+ & 0.36509E-05_JPRB,0.84102E-04_JPRB,0.12910E-03_JPRB,0.16125E-03_JPRB,0.93833E-04_JPRB /)  
+KB(:, 4,52, 8) = (/ &
+ & 0.36555E-05_JPRB,0.11362E-03_JPRB,0.18115E-03_JPRB,0.23297E-03_JPRB,0.13657E-03_JPRB /)  
+KB(:, 5,52, 8) = (/ &
+ & 0.36579E-05_JPRB,0.15226E-03_JPRB,0.25136E-03_JPRB,0.33099E-03_JPRB,0.19621E-03_JPRB /)  
+KB(:, 1,53, 8) = (/ &
+ & 0.29692E-05_JPRB,0.37746E-04_JPRB,0.52632E-04_JPRB,0.61397E-04_JPRB,0.35165E-04_JPRB /)  
+KB(:, 2,53, 8) = (/ &
+ & 0.29808E-05_JPRB,0.51149E-04_JPRB,0.74879E-04_JPRB,0.90335E-04_JPRB,0.51807E-04_JPRB /)  
+KB(:, 3,53, 8) = (/ &
+ & 0.29880E-05_JPRB,0.70028E-04_JPRB,0.10724E-03_JPRB,0.13375E-03_JPRB,0.77010E-04_JPRB /)  
+KB(:, 4,53, 8) = (/ &
+ & 0.29931E-05_JPRB,0.96105E-04_JPRB,0.15314E-03_JPRB,0.19689E-03_JPRB,0.11417E-03_JPRB /)  
+KB(:, 5,53, 8) = (/ &
+ & 0.29959E-05_JPRB,0.13074E-03_JPRB,0.21612E-03_JPRB,0.28492E-03_JPRB,0.16697E-03_JPRB /)  
+KB(:, 1,54, 8) = (/ &
+ & 0.24296E-05_JPRB,0.30698E-04_JPRB,0.42544E-04_JPRB,0.49406E-04_JPRB,0.28072E-04_JPRB /)  
+KB(:, 2,54, 8) = (/ &
+ & 0.24393E-05_JPRB,0.42122E-04_JPRB,0.61454E-04_JPRB,0.73927E-04_JPRB,0.41964E-04_JPRB /)  
+KB(:, 3,54, 8) = (/ &
+ & 0.24460E-05_JPRB,0.58528E-04_JPRB,0.89500E-04_JPRB,0.11146E-03_JPRB,0.63503E-04_JPRB /)  
+KB(:, 4,54, 8) = (/ &
+ & 0.24507E-05_JPRB,0.81611E-04_JPRB,0.13009E-03_JPRB,0.16728E-03_JPRB,0.95947E-04_JPRB /)  
+KB(:, 5,54, 8) = (/ &
+ & 0.24535E-05_JPRB,0.11276E-03_JPRB,0.18682E-03_JPRB,0.24654E-03_JPRB,0.14286E-03_JPRB /)  
+KB(:, 1,55, 8) = (/ &
+ & 0.19883E-05_JPRB,0.24921E-04_JPRB,0.34312E-04_JPRB,0.39666E-04_JPRB,0.22375E-04_JPRB /)  
+KB(:, 2,55, 8) = (/ &
+ & 0.19963E-05_JPRB,0.34641E-04_JPRB,0.50344E-04_JPRB,0.60381E-04_JPRB,0.33942E-04_JPRB /)  
+KB(:, 3,55, 8) = (/ &
+ & 0.20020E-05_JPRB,0.48868E-04_JPRB,0.74618E-04_JPRB,0.92809E-04_JPRB,0.52280E-04_JPRB /)  
+KB(:, 4,55, 8) = (/ &
+ & 0.20065E-05_JPRB,0.69255E-04_JPRB,0.11042E-03_JPRB,0.14203E-03_JPRB,0.80566E-04_JPRB /)  
+KB(:, 5,55, 8) = (/ &
+ & 0.20089E-05_JPRB,0.97527E-04_JPRB,0.16182E-03_JPRB,0.21373E-03_JPRB,0.12228E-03_JPRB /)  
+KB(:, 1,56, 8) = (/ &
+ & 0.16268E-05_JPRB,0.20122E-04_JPRB,0.27506E-04_JPRB,0.31629E-04_JPRB,0.17718E-04_JPRB /)  
+KB(:, 2,56, 8) = (/ &
+ & 0.16337E-05_JPRB,0.28321E-04_JPRB,0.40966E-04_JPRB,0.48960E-04_JPRB,0.27271E-04_JPRB /)  
+KB(:, 3,56, 8) = (/ &
+ & 0.16385E-05_JPRB,0.40579E-04_JPRB,0.61828E-04_JPRB,0.76747E-04_JPRB,0.42739E-04_JPRB /)  
+KB(:, 4,56, 8) = (/ &
+ & 0.16424E-05_JPRB,0.58490E-04_JPRB,0.93220E-04_JPRB,0.11991E-03_JPRB,0.67232E-04_JPRB /)  
+KB(:, 5,56, 8) = (/ &
+ & 0.16450E-05_JPRB,0.83776E-04_JPRB,0.13917E-03_JPRB,0.18401E-03_JPRB,0.10406E-03_JPRB /)  
+KB(:, 1,57, 8) = (/ &
+ & 0.13311E-05_JPRB,0.16151E-04_JPRB,0.21901E-04_JPRB,0.25044E-04_JPRB,0.13934E-04_JPRB /)  
+KB(:, 2,57, 8) = (/ &
+ & 0.13369E-05_JPRB,0.23005E-04_JPRB,0.33083E-04_JPRB,0.39377E-04_JPRB,0.21751E-04_JPRB /)  
+KB(:, 3,57, 8) = (/ &
+ & 0.13411E-05_JPRB,0.33501E-04_JPRB,0.50888E-04_JPRB,0.63014E-04_JPRB,0.34696E-04_JPRB /)  
+KB(:, 4,57, 8) = (/ &
+ & 0.13443E-05_JPRB,0.49111E-04_JPRB,0.78191E-04_JPRB,0.10051E-03_JPRB,0.55711E-04_JPRB /)  
+KB(:, 5,57, 8) = (/ &
+ & 0.13467E-05_JPRB,0.71586E-04_JPRB,0.11902E-03_JPRB,0.15744E-03_JPRB,0.88025E-04_JPRB /)  
+KB(:, 1,58, 8) = (/ &
+ & 0.10892E-05_JPRB,0.12962E-04_JPRB,0.17443E-04_JPRB,0.19825E-04_JPRB,0.10955E-04_JPRB /)  
+KB(:, 2,58, 8) = (/ &
+ & 0.10942E-05_JPRB,0.18688E-04_JPRB,0.26716E-04_JPRB,0.31664E-04_JPRB,0.17348E-04_JPRB /)  
+KB(:, 3,58, 8) = (/ &
+ & 0.10976E-05_JPRB,0.27650E-04_JPRB,0.41864E-04_JPRB,0.51716E-04_JPRB,0.28159E-04_JPRB /)  
+KB(:, 4,58, 8) = (/ &
+ & 0.11004E-05_JPRB,0.41251E-04_JPRB,0.65630E-04_JPRB,0.84299E-04_JPRB,0.46156E-04_JPRB /)  
+KB(:, 5,58, 8) = (/ &
+ & 0.11025E-05_JPRB,0.61261E-04_JPRB,0.10196E-03_JPRB,0.13496E-03_JPRB,0.74536E-04_JPRB /)  
+KB(:, 1,59, 8) = (/ &
+ & 0.89197E-06_JPRB,0.11047E-04_JPRB,0.14899E-04_JPRB,0.16964E-04_JPRB,0.92999E-05_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART24',1,ZHOOK_HANDLE)
+END SUBROUTINE PART24
+
+
+SUBROUTINE PART25
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART25',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,59, 8) = (/ &
+ & 0.89605E-06_JPRB,0.16215E-04_JPRB,0.23291E-04_JPRB,0.27686E-04_JPRB,0.15019E-04_JPRB /)  
+KB(:, 3,59, 8) = (/ &
+ & 0.89875E-06_JPRB,0.24462E-04_JPRB,0.37267E-04_JPRB,0.46243E-04_JPRB,0.24905E-04_JPRB /)  
+KB(:, 4,59, 8) = (/ &
+ & 0.90117E-06_JPRB,0.37175E-04_JPRB,0.59594E-04_JPRB,0.76969E-04_JPRB,0.41672E-04_JPRB /)  
+KB(:, 5,59, 8) = (/ &
+ & 0.90310E-06_JPRB,0.56115E-04_JPRB,0.94187E-04_JPRB,0.12528E-03_JPRB,0.68497E-04_JPRB /)  
+KB(:, 1,13, 9) = (/ &
+ & 0.56714E-01_JPRB,0.96228E-01_JPRB,0.10961E+00_JPRB,0.11078E+00_JPRB,0.82822E-01_JPRB /)  
+KB(:, 2,13, 9) = (/ &
+ & 0.57828E-01_JPRB,0.97972E-01_JPRB,0.11123E+00_JPRB,0.11236E+00_JPRB,0.84782E-01_JPRB /)  
+KB(:, 3,13, 9) = (/ &
+ & 0.59232E-01_JPRB,0.99998E-01_JPRB,0.11329E+00_JPRB,0.11400E+00_JPRB,0.86728E-01_JPRB /)  
+KB(:, 4,13, 9) = (/ &
+ & 0.60790E-01_JPRB,0.10219E+00_JPRB,0.11568E+00_JPRB,0.11591E+00_JPRB,0.88651E-01_JPRB /)  
+KB(:, 5,13, 9) = (/ &
+ & 0.62290E-01_JPRB,0.10448E+00_JPRB,0.11818E+00_JPRB,0.11808E+00_JPRB,0.90606E-01_JPRB /)  
+KB(:, 1,14, 9) = (/ &
+ & 0.48757E-01_JPRB,0.85742E-01_JPRB,0.97473E-01_JPRB,0.98306E-01_JPRB,0.73073E-01_JPRB /)  
+KB(:, 2,14, 9) = (/ &
+ & 0.49942E-01_JPRB,0.87692E-01_JPRB,0.99489E-01_JPRB,0.10004E+00_JPRB,0.75064E-01_JPRB /)  
+KB(:, 3,14, 9) = (/ &
+ & 0.51318E-01_JPRB,0.89856E-01_JPRB,0.10188E+00_JPRB,0.10205E+00_JPRB,0.77018E-01_JPRB /)  
+KB(:, 4,14, 9) = (/ &
+ & 0.52660E-01_JPRB,0.92153E-01_JPRB,0.10444E+00_JPRB,0.10434E+00_JPRB,0.78996E-01_JPRB /)  
+KB(:, 5,14, 9) = (/ &
+ & 0.53901E-01_JPRB,0.94584E-01_JPRB,0.10712E+00_JPRB,0.10687E+00_JPRB,0.81028E-01_JPRB /)  
+KB(:, 1,15, 9) = (/ &
+ & 0.41752E-01_JPRB,0.76198E-01_JPRB,0.86593E-01_JPRB,0.87037E-01_JPRB,0.64464E-01_JPRB /)  
+KB(:, 2,15, 9) = (/ &
+ & 0.42945E-01_JPRB,0.78277E-01_JPRB,0.88919E-01_JPRB,0.89055E-01_JPRB,0.66440E-01_JPRB /)  
+KB(:, 3,15, 9) = (/ &
+ & 0.44132E-01_JPRB,0.80544E-01_JPRB,0.91468E-01_JPRB,0.91397E-01_JPRB,0.68401E-01_JPRB /)  
+KB(:, 4,15, 9) = (/ &
+ & 0.45260E-01_JPRB,0.82968E-01_JPRB,0.94189E-01_JPRB,0.93993E-01_JPRB,0.70410E-01_JPRB /)  
+KB(:, 5,15, 9) = (/ &
+ & 0.46298E-01_JPRB,0.85502E-01_JPRB,0.97029E-01_JPRB,0.96802E-01_JPRB,0.72466E-01_JPRB /)  
+KB(:, 1,16, 9) = (/ &
+ & 0.35640E-01_JPRB,0.67555E-01_JPRB,0.76928E-01_JPRB,0.77126E-01_JPRB,0.56847E-01_JPRB /)  
+KB(:, 2,16, 9) = (/ &
+ & 0.36668E-01_JPRB,0.69730E-01_JPRB,0.79394E-01_JPRB,0.79411E-01_JPRB,0.58796E-01_JPRB /)  
+KB(:, 3,16, 9) = (/ &
+ & 0.37665E-01_JPRB,0.72105E-01_JPRB,0.82070E-01_JPRB,0.81996E-01_JPRB,0.60763E-01_JPRB /)  
+KB(:, 4,16, 9) = (/ &
+ & 0.38606E-01_JPRB,0.74641E-01_JPRB,0.84920E-01_JPRB,0.84810E-01_JPRB,0.62792E-01_JPRB /)  
+KB(:, 5,16, 9) = (/ &
+ & 0.39473E-01_JPRB,0.77118E-01_JPRB,0.87904E-01_JPRB,0.87777E-01_JPRB,0.64884E-01_JPRB /)  
+KB(:, 1,17, 9) = (/ &
+ & 0.30249E-01_JPRB,0.59768E-01_JPRB,0.68325E-01_JPRB,0.68492E-01_JPRB,0.50101E-01_JPRB /)  
+KB(:, 2,17, 9) = (/ &
+ & 0.31103E-01_JPRB,0.62060E-01_JPRB,0.70903E-01_JPRB,0.70988E-01_JPRB,0.52022E-01_JPRB /)  
+KB(:, 3,17, 9) = (/ &
+ & 0.31936E-01_JPRB,0.64534E-01_JPRB,0.73696E-01_JPRB,0.73735E-01_JPRB,0.54005E-01_JPRB /)  
+KB(:, 4,17, 9) = (/ &
+ & 0.32730E-01_JPRB,0.67029E-01_JPRB,0.76655E-01_JPRB,0.76665E-01_JPRB,0.56059E-01_JPRB /)  
+KB(:, 5,17, 9) = (/ &
+ & 0.33443E-01_JPRB,0.69449E-01_JPRB,0.79757E-01_JPRB,0.79742E-01_JPRB,0.58173E-01_JPRB /)  
+KB(:, 1,18, 9) = (/ &
+ & 0.25545E-01_JPRB,0.52871E-01_JPRB,0.60740E-01_JPRB,0.60992E-01_JPRB,0.44172E-01_JPRB /)  
+KB(:, 2,18, 9) = (/ &
+ & 0.26254E-01_JPRB,0.55233E-01_JPRB,0.63406E-01_JPRB,0.63637E-01_JPRB,0.46086E-01_JPRB /)  
+KB(:, 3,18, 9) = (/ &
+ & 0.26956E-01_JPRB,0.57692E-01_JPRB,0.66286E-01_JPRB,0.66462E-01_JPRB,0.48089E-01_JPRB /)  
+KB(:, 4,18, 9) = (/ &
+ & 0.27612E-01_JPRB,0.60136E-01_JPRB,0.69343E-01_JPRB,0.69465E-01_JPRB,0.50154E-01_JPRB /)  
+KB(:, 5,18, 9) = (/ &
+ & 0.28200E-01_JPRB,0.62534E-01_JPRB,0.72542E-01_JPRB,0.72608E-01_JPRB,0.52275E-01_JPRB /)  
+KB(:, 1,19, 9) = (/ &
+ & 0.21487E-01_JPRB,0.46786E-01_JPRB,0.54092E-01_JPRB,0.54451E-01_JPRB,0.38986E-01_JPRB /)  
+KB(:, 2,19, 9) = (/ &
+ & 0.22086E-01_JPRB,0.49151E-01_JPRB,0.56837E-01_JPRB,0.57167E-01_JPRB,0.40916E-01_JPRB /)  
+KB(:, 3,19, 9) = (/ &
+ & 0.22671E-01_JPRB,0.51565E-01_JPRB,0.59787E-01_JPRB,0.60059E-01_JPRB,0.42916E-01_JPRB /)  
+KB(:, 4,19, 9) = (/ &
+ & 0.23212E-01_JPRB,0.53966E-01_JPRB,0.62913E-01_JPRB,0.63134E-01_JPRB,0.44993E-01_JPRB /)  
+KB(:, 5,19, 9) = (/ &
+ & 0.23674E-01_JPRB,0.56335E-01_JPRB,0.66121E-01_JPRB,0.66362E-01_JPRB,0.47140E-01_JPRB /)  
+KB(:, 1,20, 9) = (/ &
+ & 0.18039E-01_JPRB,0.41493E-01_JPRB,0.48348E-01_JPRB,0.48783E-01_JPRB,0.34522E-01_JPRB /)  
+KB(:, 2,20, 9) = (/ &
+ & 0.18543E-01_JPRB,0.43801E-01_JPRB,0.51155E-01_JPRB,0.51541E-01_JPRB,0.36457E-01_JPRB /)  
+KB(:, 3,20, 9) = (/ &
+ & 0.19027E-01_JPRB,0.46166E-01_JPRB,0.54164E-01_JPRB,0.54503E-01_JPRB,0.38468E-01_JPRB /)  
+KB(:, 4,20, 9) = (/ &
+ & 0.19452E-01_JPRB,0.48538E-01_JPRB,0.57292E-01_JPRB,0.57654E-01_JPRB,0.40551E-01_JPRB /)  
+KB(:, 5,20, 9) = (/ &
+ & 0.19805E-01_JPRB,0.50879E-01_JPRB,0.60490E-01_JPRB,0.60969E-01_JPRB,0.42726E-01_JPRB /)  
+KB(:, 1,21, 9) = (/ &
+ & 0.15116E-01_JPRB,0.36867E-01_JPRB,0.43373E-01_JPRB,0.43860E-01_JPRB,0.30692E-01_JPRB /)  
+KB(:, 2,21, 9) = (/ &
+ & 0.15537E-01_JPRB,0.39121E-01_JPRB,0.46234E-01_JPRB,0.46663E-01_JPRB,0.32616E-01_JPRB /)  
+KB(:, 3,21, 9) = (/ &
+ & 0.15924E-01_JPRB,0.41438E-01_JPRB,0.49238E-01_JPRB,0.49692E-01_JPRB,0.34628E-01_JPRB /)  
+KB(:, 4,21, 9) = (/ &
+ & 0.16258E-01_JPRB,0.43774E-01_JPRB,0.52361E-01_JPRB,0.52910E-01_JPRB,0.36736E-01_JPRB /)  
+KB(:, 5,21, 9) = (/ &
+ & 0.16525E-01_JPRB,0.46101E-01_JPRB,0.55542E-01_JPRB,0.56309E-01_JPRB,0.38934E-01_JPRB /)  
+KB(:, 1,22, 9) = (/ &
+ & 0.12675E-01_JPRB,0.32993E-01_JPRB,0.39256E-01_JPRB,0.39779E-01_JPRB,0.27529E-01_JPRB /)  
+KB(:, 2,22, 9) = (/ &
+ & 0.13009E-01_JPRB,0.35201E-01_JPRB,0.42138E-01_JPRB,0.42658E-01_JPRB,0.29453E-01_JPRB /)  
+KB(:, 3,22, 9) = (/ &
+ & 0.13317E-01_JPRB,0.37474E-01_JPRB,0.45144E-01_JPRB,0.45756E-01_JPRB,0.31474E-01_JPRB /)  
+KB(:, 4,22, 9) = (/ &
+ & 0.13574E-01_JPRB,0.39784E-01_JPRB,0.48260E-01_JPRB,0.49049E-01_JPRB,0.33608E-01_JPRB /)  
+KB(:, 5,22, 9) = (/ &
+ & 0.13778E-01_JPRB,0.42099E-01_JPRB,0.51448E-01_JPRB,0.52529E-01_JPRB,0.35844E-01_JPRB /)  
+KB(:, 1,23, 9) = (/ &
+ & 0.10608E-01_JPRB,0.29677E-01_JPRB,0.35736E-01_JPRB,0.36323E-01_JPRB,0.24847E-01_JPRB /)  
+KB(:, 2,23, 9) = (/ &
+ & 0.10880E-01_JPRB,0.31843E-01_JPRB,0.38613E-01_JPRB,0.39274E-01_JPRB,0.26772E-01_JPRB /)  
+KB(:, 3,23, 9) = (/ &
+ & 0.11120E-01_JPRB,0.34081E-01_JPRB,0.41634E-01_JPRB,0.42440E-01_JPRB,0.28816E-01_JPRB /)  
+KB(:, 4,23, 9) = (/ &
+ & 0.11313E-01_JPRB,0.36372E-01_JPRB,0.44754E-01_JPRB,0.45808E-01_JPRB,0.30978E-01_JPRB /)  
+KB(:, 5,23, 9) = (/ &
+ & 0.11474E-01_JPRB,0.38689E-01_JPRB,0.47973E-01_JPRB,0.49367E-01_JPRB,0.33255E-01_JPRB /)  
+KB(:, 1,24, 9) = (/ &
+ & 0.88685E-02_JPRB,0.26862E-01_JPRB,0.32736E-01_JPRB,0.33437E-01_JPRB,0.22600E-01_JPRB /)  
+KB(:, 2,24, 9) = (/ &
+ & 0.90884E-02_JPRB,0.28994E-01_JPRB,0.35625E-01_JPRB,0.36451E-01_JPRB,0.24532E-01_JPRB /)  
+KB(:, 3,24, 9) = (/ &
+ & 0.92759E-02_JPRB,0.31210E-01_JPRB,0.38663E-01_JPRB,0.39696E-01_JPRB,0.26600E-01_JPRB /)  
+KB(:, 4,24, 9) = (/ &
+ & 0.94299E-02_JPRB,0.33488E-01_JPRB,0.41810E-01_JPRB,0.43137E-01_JPRB,0.28795E-01_JPRB /)  
+KB(:, 5,24, 9) = (/ &
+ & 0.95655E-02_JPRB,0.35810E-01_JPRB,0.45067E-01_JPRB,0.46765E-01_JPRB,0.31119E-01_JPRB /)  
+KB(:, 1,25, 9) = (/ &
+ & 0.74112E-02_JPRB,0.24493E-01_JPRB,0.30220E-01_JPRB,0.31056E-01_JPRB,0.20732E-01_JPRB /)  
+KB(:, 2,25, 9) = (/ &
+ & 0.75852E-02_JPRB,0.26600E-01_JPRB,0.33130E-01_JPRB,0.34139E-01_JPRB,0.22685E-01_JPRB /)  
+KB(:, 3,25, 9) = (/ &
+ & 0.77307E-02_JPRB,0.28805E-01_JPRB,0.36194E-01_JPRB,0.37461E-01_JPRB,0.24778E-01_JPRB /)  
+KB(:, 4,25, 9) = (/ &
+ & 0.78603E-02_JPRB,0.31085E-01_JPRB,0.39384E-01_JPRB,0.40978E-01_JPRB,0.27016E-01_JPRB /)  
+KB(:, 5,25, 9) = (/ &
+ & 0.79718E-02_JPRB,0.33416E-01_JPRB,0.42696E-01_JPRB,0.44682E-01_JPRB,0.29393E-01_JPRB /)  
+KB(:, 1,26, 9) = (/ &
+ & 0.61902E-02_JPRB,0.22538E-01_JPRB,0.28170E-01_JPRB,0.29154E-01_JPRB,0.19220E-01_JPRB /)  
+KB(:, 2,26, 9) = (/ &
+ & 0.63276E-02_JPRB,0.24632E-01_JPRB,0.31111E-01_JPRB,0.32321E-01_JPRB,0.21200E-01_JPRB /)  
+KB(:, 3,26, 9) = (/ &
+ & 0.64499E-02_JPRB,0.26835E-01_JPRB,0.34213E-01_JPRB,0.35713E-01_JPRB,0.23332E-01_JPRB /)  
+KB(:, 4,26, 9) = (/ &
+ & 0.65597E-02_JPRB,0.29126E-01_JPRB,0.37461E-01_JPRB,0.39319E-01_JPRB,0.25615E-01_JPRB /)  
+KB(:, 5,26, 9) = (/ &
+ & 0.66551E-02_JPRB,0.31472E-01_JPRB,0.40844E-01_JPRB,0.43117E-01_JPRB,0.28057E-01_JPRB /)  
+KB(:, 1,27, 9) = (/ &
+ & 0.51713E-02_JPRB,0.20911E-01_JPRB,0.26500E-01_JPRB,0.27639E-01_JPRB,0.17995E-01_JPRB /)  
+KB(:, 2,27, 9) = (/ &
+ & 0.52848E-02_JPRB,0.23004E-01_JPRB,0.29475E-01_JPRB,0.30887E-01_JPRB,0.20007E-01_JPRB /)  
+KB(:, 3,27, 9) = (/ &
+ & 0.53879E-02_JPRB,0.25219E-01_JPRB,0.32635E-01_JPRB,0.34364E-01_JPRB,0.22181E-01_JPRB /)  
+KB(:, 4,27, 9) = (/ &
+ & 0.54763E-02_JPRB,0.27525E-01_JPRB,0.35956E-01_JPRB,0.38064E-01_JPRB,0.24520E-01_JPRB /)  
+KB(:, 5,27, 9) = (/ &
+ & 0.55573E-02_JPRB,0.29889E-01_JPRB,0.39426E-01_JPRB,0.41977E-01_JPRB,0.27035E-01_JPRB /)  
+KB(:, 1,28, 9) = (/ &
+ & 0.43195E-02_JPRB,0.19576E-01_JPRB,0.25160E-01_JPRB,0.26468E-01_JPRB,0.17016E-01_JPRB /)  
+KB(:, 2,28, 9) = (/ &
+ & 0.44139E-02_JPRB,0.21680E-01_JPRB,0.28188E-01_JPRB,0.29800E-01_JPRB,0.19070E-01_JPRB /)  
+KB(:, 3,28, 9) = (/ &
+ & 0.44969E-02_JPRB,0.23912E-01_JPRB,0.31420E-01_JPRB,0.33375E-01_JPRB,0.21294E-01_JPRB /)  
+KB(:, 4,28, 9) = (/ &
+ & 0.45726E-02_JPRB,0.26235E-01_JPRB,0.34830E-01_JPRB,0.37186E-01_JPRB,0.23695E-01_JPRB /)  
+KB(:, 5,28, 9) = (/ &
+ & 0.46426E-02_JPRB,0.28627E-01_JPRB,0.38395E-01_JPRB,0.41222E-01_JPRB,0.26282E-01_JPRB /)  
+KB(:, 1,29, 9) = (/ &
+ & 0.36095E-02_JPRB,0.18508E-01_JPRB,0.24142E-01_JPRB,0.25625E-01_JPRB,0.16268E-01_JPRB /)  
+KB(:, 2,29, 9) = (/ &
+ & 0.36856E-02_JPRB,0.20634E-01_JPRB,0.27243E-01_JPRB,0.29053E-01_JPRB,0.18372E-01_JPRB /)  
+KB(:, 3,29, 9) = (/ &
+ & 0.37545E-02_JPRB,0.22890E-01_JPRB,0.30565E-01_JPRB,0.32742E-01_JPRB,0.20653E-01_JPRB /)  
+KB(:, 4,29, 9) = (/ &
+ & 0.38219E-02_JPRB,0.25246E-01_JPRB,0.34070E-01_JPRB,0.36676E-01_JPRB,0.23125E-01_JPRB /)  
+KB(:, 5,29, 9) = (/ &
+ & 0.38805E-02_JPRB,0.27676E-01_JPRB,0.37739E-01_JPRB,0.40837E-01_JPRB,0.25787E-01_JPRB /)  
+KB(:, 1,30, 9) = (/ &
+ & 0.30149E-02_JPRB,0.17668E-01_JPRB,0.23401E-01_JPRB,0.25061E-01_JPRB,0.15717E-01_JPRB /)  
+KB(:, 2,30, 9) = (/ &
+ & 0.30780E-02_JPRB,0.19823E-01_JPRB,0.26594E-01_JPRB,0.28602E-01_JPRB,0.17873E-01_JPRB /)  
+KB(:, 3,30, 9) = (/ &
+ & 0.31391E-02_JPRB,0.22111E-01_JPRB,0.30012E-01_JPRB,0.32409E-01_JPRB,0.20220E-01_JPRB /)  
+KB(:, 4,30, 9) = (/ &
+ & 0.31952E-02_JPRB,0.24511E-01_JPRB,0.33620E-01_JPRB,0.36467E-01_JPRB,0.22768E-01_JPRB /)  
+KB(:, 5,30, 9) = (/ &
+ & 0.32462E-02_JPRB,0.26992E-01_JPRB,0.37393E-01_JPRB,0.40756E-01_JPRB,0.25513E-01_JPRB /)  
+KB(:, 1,31, 9) = (/ &
+ & 0.25190E-02_JPRB,0.17039E-01_JPRB,0.22932E-01_JPRB,0.24769E-01_JPRB,0.15346E-01_JPRB /)  
+KB(:, 2,31, 9) = (/ &
+ & 0.25729E-02_JPRB,0.19232E-01_JPRB,0.26227E-01_JPRB,0.28432E-01_JPRB,0.17564E-01_JPRB /)  
+KB(:, 3,31, 9) = (/ &
+ & 0.26259E-02_JPRB,0.21567E-01_JPRB,0.29750E-01_JPRB,0.32369E-01_JPRB,0.19984E-01_JPRB /)  
+KB(:, 4,31, 9) = (/ &
+ & 0.26746E-02_JPRB,0.24020E-01_JPRB,0.33463E-01_JPRB,0.36549E-01_JPRB,0.22614E-01_JPRB /)  
+KB(:, 5,31, 9) = (/ &
+ & 0.27170E-02_JPRB,0.26556E-01_JPRB,0.37338E-01_JPRB,0.40957E-01_JPRB,0.25451E-01_JPRB /)  
+KB(:, 1,32, 9) = (/ &
+ & 0.21057E-02_JPRB,0.16597E-01_JPRB,0.22710E-01_JPRB,0.24723E-01_JPRB,0.15137E-01_JPRB /)  
+KB(:, 2,32, 9) = (/ &
+ & 0.21537E-02_JPRB,0.18840E-01_JPRB,0.26112E-01_JPRB,0.28512E-01_JPRB,0.17424E-01_JPRB /)  
+KB(:, 3,32, 9) = (/ &
+ & 0.21983E-02_JPRB,0.21233E-01_JPRB,0.29743E-01_JPRB,0.32575E-01_JPRB,0.19926E-01_JPRB /)  
+KB(:, 4,32, 9) = (/ &
+ & 0.22397E-02_JPRB,0.23745E-01_JPRB,0.33557E-01_JPRB,0.36873E-01_JPRB,0.22643E-01_JPRB /)  
+KB(:, 5,32, 9) = (/ &
+ & 0.22779E-02_JPRB,0.26339E-01_JPRB,0.37525E-01_JPRB,0.41395E-01_JPRB,0.25571E-01_JPRB /)  
+KB(:, 1,33, 9) = (/ &
+ & 0.17621E-02_JPRB,0.16326E-01_JPRB,0.22706E-01_JPRB,0.24894E-01_JPRB,0.15071E-01_JPRB /)  
+KB(:, 2,33, 9) = (/ &
+ & 0.18037E-02_JPRB,0.18626E-01_JPRB,0.26218E-01_JPRB,0.28807E-01_JPRB,0.17434E-01_JPRB /)  
+KB(:, 3,33, 9) = (/ &
+ & 0.18413E-02_JPRB,0.21083E-01_JPRB,0.29952E-01_JPRB,0.32989E-01_JPRB,0.20023E-01_JPRB /)  
+KB(:, 4,33, 9) = (/ &
+ & 0.18774E-02_JPRB,0.23655E-01_JPRB,0.33863E-01_JPRB,0.37400E-01_JPRB,0.22833E-01_JPRB /)  
+KB(:, 5,33, 9) = (/ &
+ & 0.19114E-02_JPRB,0.26308E-01_JPRB,0.37916E-01_JPRB,0.42025E-01_JPRB,0.25847E-01_JPRB /)  
+KB(:, 1,34, 9) = (/ &
+ & 0.14751E-02_JPRB,0.16125E-01_JPRB,0.22769E-01_JPRB,0.25117E-01_JPRB,0.15050E-01_JPRB /)  
+KB(:, 2,34, 9) = (/ &
+ & 0.15101E-02_JPRB,0.18488E-01_JPRB,0.26381E-01_JPRB,0.29139E-01_JPRB,0.17489E-01_JPRB /)  
+KB(:, 3,34, 9) = (/ &
+ & 0.15432E-02_JPRB,0.21005E-01_JPRB,0.30205E-01_JPRB,0.33424E-01_JPRB,0.20158E-01_JPRB /)  
+KB(:, 4,34, 9) = (/ &
+ & 0.15747E-02_JPRB,0.23633E-01_JPRB,0.34198E-01_JPRB,0.37931E-01_JPRB,0.23050E-01_JPRB /)  
+KB(:, 5,34, 9) = (/ &
+ & 0.16051E-02_JPRB,0.26339E-01_JPRB,0.38321E-01_JPRB,0.42642E-01_JPRB,0.26140E-01_JPRB /)  
+KB(:, 1,35, 9) = (/ &
+ & 0.12323E-02_JPRB,0.15834E-01_JPRB,0.22646E-01_JPRB,0.25106E-01_JPRB,0.14908E-01_JPRB /)  
+KB(:, 2,35, 9) = (/ &
+ & 0.12626E-02_JPRB,0.18245E-01_JPRB,0.26331E-01_JPRB,0.29206E-01_JPRB,0.17403E-01_JPRB /)  
+KB(:, 3,35, 9) = (/ &
+ & 0.12919E-02_JPRB,0.20808E-01_JPRB,0.30221E-01_JPRB,0.33562E-01_JPRB,0.20132E-01_JPRB /)  
+KB(:, 4,35, 9) = (/ &
+ & 0.13197E-02_JPRB,0.23481E-01_JPRB,0.34270E-01_JPRB,0.38136E-01_JPRB,0.23081E-01_JPRB /)  
+KB(:, 5,35, 9) = (/ &
+ & 0.13470E-02_JPRB,0.26228E-01_JPRB,0.38442E-01_JPRB,0.42907E-01_JPRB,0.26222E-01_JPRB /)  
+KB(:, 1,36, 9) = (/ &
+ & 0.10273E-02_JPRB,0.15393E-01_JPRB,0.22247E-01_JPRB,0.24766E-01_JPRB,0.14589E-01_JPRB /)  
+KB(:, 2,36, 9) = (/ &
+ & 0.10537E-02_JPRB,0.17833E-01_JPRB,0.25974E-01_JPRB,0.28911E-01_JPRB,0.17115E-01_JPRB /)  
+KB(:, 3,36, 9) = (/ &
+ & 0.10795E-02_JPRB,0.20426E-01_JPRB,0.29904E-01_JPRB,0.33307E-01_JPRB,0.19875E-01_JPRB /)  
+KB(:, 4,36, 9) = (/ &
+ & 0.11043E-02_JPRB,0.23131E-01_JPRB,0.33989E-01_JPRB,0.37917E-01_JPRB,0.22855E-01_JPRB /)  
+KB(:, 5,36, 9) = (/ &
+ & 0.11288E-02_JPRB,0.25909E-01_JPRB,0.38197E-01_JPRB,0.42722E-01_JPRB,0.26026E-01_JPRB /)  
+KB(:, 1,37, 9) = (/ &
+ & 0.85383E-03_JPRB,0.14679E-01_JPRB,0.21388E-01_JPRB,0.23897E-01_JPRB,0.13970E-01_JPRB /)  
+KB(:, 2,37, 9) = (/ &
+ & 0.87682E-03_JPRB,0.17120E-01_JPRB,0.25115E-01_JPRB,0.28039E-01_JPRB,0.16489E-01_JPRB /)  
+KB(:, 3,37, 9) = (/ &
+ & 0.89996E-03_JPRB,0.19721E-01_JPRB,0.29054E-01_JPRB,0.32436E-01_JPRB,0.19242E-01_JPRB /)  
+KB(:, 4,37, 9) = (/ &
+ & 0.92246E-03_JPRB,0.22439E-01_JPRB,0.33150E-01_JPRB,0.37047E-01_JPRB,0.22217E-01_JPRB /)  
+KB(:, 5,37, 9) = (/ &
+ & 0.94506E-03_JPRB,0.25234E-01_JPRB,0.37369E-01_JPRB,0.41852E-01_JPRB,0.25386E-01_JPRB /)  
+KB(:, 1,38, 9) = (/ &
+ & 0.70953E-03_JPRB,0.14014E-01_JPRB,0.20566E-01_JPRB,0.23058E-01_JPRB,0.13383E-01_JPRB /)  
+KB(:, 2,38, 9) = (/ &
+ & 0.73008E-03_JPRB,0.16455E-01_JPRB,0.24289E-01_JPRB,0.27191E-01_JPRB,0.15892E-01_JPRB /)  
+KB(:, 3,38, 9) = (/ &
+ & 0.75050E-03_JPRB,0.19058E-01_JPRB,0.28230E-01_JPRB,0.31581E-01_JPRB,0.18633E-01_JPRB /)  
+KB(:, 4,38, 9) = (/ &
+ & 0.77107E-03_JPRB,0.21784E-01_JPRB,0.32331E-01_JPRB,0.36184E-01_JPRB,0.21597E-01_JPRB /)  
+KB(:, 5,38, 9) = (/ &
+ & 0.79117E-03_JPRB,0.24590E-01_JPRB,0.36557E-01_JPRB,0.40986E-01_JPRB,0.24760E-01_JPRB /)  
+KB(:, 1,39, 9) = (/ &
+ & 0.58982E-03_JPRB,0.13410E-01_JPRB,0.19807E-01_JPRB,0.22275E-01_JPRB,0.12843E-01_JPRB /)  
+KB(:, 2,39, 9) = (/ &
+ & 0.60777E-03_JPRB,0.15847E-01_JPRB,0.23520E-01_JPRB,0.26395E-01_JPRB,0.15340E-01_JPRB /)  
+KB(:, 3,39, 9) = (/ &
+ & 0.62607E-03_JPRB,0.18449E-01_JPRB,0.27458E-01_JPRB,0.30773E-01_JPRB,0.18067E-01_JPRB /)  
+KB(:, 4,39, 9) = (/ &
+ & 0.64471E-03_JPRB,0.21179E-01_JPRB,0.31559E-01_JPRB,0.35367E-01_JPRB,0.21018E-01_JPRB /)  
+KB(:, 5,39, 9) = (/ &
+ & 0.66285E-03_JPRB,0.23994E-01_JPRB,0.35788E-01_JPRB,0.40160E-01_JPRB,0.24170E-01_JPRB /)  
+KB(:, 1,40, 9) = (/ &
+ & 0.48914E-03_JPRB,0.12617E-01_JPRB,0.18733E-01_JPRB,0.21131E-01_JPRB,0.12100E-01_JPRB /)  
+KB(:, 2,40, 9) = (/ &
+ & 0.50499E-03_JPRB,0.15028E-01_JPRB,0.22406E-01_JPRB,0.25206E-01_JPRB,0.14559E-01_JPRB /)  
+KB(:, 3,40, 9) = (/ &
+ & 0.52119E-03_JPRB,0.17611E-01_JPRB,0.26314E-01_JPRB,0.29544E-01_JPRB,0.17245E-01_JPRB /)  
+KB(:, 4,40, 9) = (/ &
+ & 0.53770E-03_JPRB,0.20330E-01_JPRB,0.30397E-01_JPRB,0.34103E-01_JPRB,0.20159E-01_JPRB /)  
+KB(:, 5,40, 9) = (/ &
+ & 0.55398E-03_JPRB,0.23142E-01_JPRB,0.34616E-01_JPRB,0.38867E-01_JPRB,0.23278E-01_JPRB /)  
+KB(:, 1,41, 9) = (/ &
+ & 0.40532E-03_JPRB,0.11840E-01_JPRB,0.17661E-01_JPRB,0.19981E-01_JPRB,0.11365E-01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART25',1,ZHOOK_HANDLE)
+END SUBROUTINE PART25
+
+
+SUBROUTINE PART26
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART26',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,41, 9) = (/ &
+ & 0.41916E-03_JPRB,0.14219E-01_JPRB,0.21285E-01_JPRB,0.24002E-01_JPRB,0.13782E-01_JPRB /)  
+KB(:, 3,41, 9) = (/ &
+ & 0.43354E-03_JPRB,0.16775E-01_JPRB,0.25154E-01_JPRB,0.28292E-01_JPRB,0.16423E-01_JPRB /)  
+KB(:, 4,41, 9) = (/ &
+ & 0.44807E-03_JPRB,0.19478E-01_JPRB,0.29214E-01_JPRB,0.32812E-01_JPRB,0.19291E-01_JPRB /)  
+KB(:, 5,41, 9) = (/ &
+ & 0.46282E-03_JPRB,0.22283E-01_JPRB,0.33415E-01_JPRB,0.37538E-01_JPRB,0.22373E-01_JPRB /)  
+KB(:, 1,42, 9) = (/ &
+ & 0.33573E-03_JPRB,0.11104E-01_JPRB,0.16634E-01_JPRB,0.18873E-01_JPRB,0.10664E-01_JPRB /)  
+KB(:, 2,42, 9) = (/ &
+ & 0.34776E-03_JPRB,0.13446E-01_JPRB,0.20201E-01_JPRB,0.22835E-01_JPRB,0.13037E-01_JPRB /)  
+KB(:, 3,42, 9) = (/ &
+ & 0.36046E-03_JPRB,0.15973E-01_JPRB,0.24027E-01_JPRB,0.27071E-01_JPRB,0.15631E-01_JPRB /)  
+KB(:, 4,42, 9) = (/ &
+ & 0.37344E-03_JPRB,0.18654E-01_JPRB,0.28057E-01_JPRB,0.31550E-01_JPRB,0.18451E-01_JPRB /)  
+KB(:, 5,42, 9) = (/ &
+ & 0.38663E-03_JPRB,0.21448E-01_JPRB,0.32235E-01_JPRB,0.36231E-01_JPRB,0.21492E-01_JPRB /)  
+KB(:, 1,43, 9) = (/ &
+ & 0.27733E-03_JPRB,0.10283E-01_JPRB,0.15460E-01_JPRB,0.17597E-01_JPRB,0.98707E-02_JPRB /)  
+KB(:, 2,43, 9) = (/ &
+ & 0.28779E-03_JPRB,0.12571E-01_JPRB,0.18947E-01_JPRB,0.21473E-01_JPRB,0.12183E-01_JPRB /)  
+KB(:, 3,43, 9) = (/ &
+ & 0.29891E-03_JPRB,0.15054E-01_JPRB,0.22712E-01_JPRB,0.25638E-01_JPRB,0.14718E-01_JPRB /)  
+KB(:, 4,43, 9) = (/ &
+ & 0.31033E-03_JPRB,0.17702E-01_JPRB,0.26696E-01_JPRB,0.30055E-01_JPRB,0.17477E-01_JPRB /)  
+KB(:, 5,43, 9) = (/ &
+ & 0.32200E-03_JPRB,0.20476E-01_JPRB,0.30841E-01_JPRB,0.34682E-01_JPRB,0.20459E-01_JPRB /)  
+KB(:, 1,44, 9) = (/ &
+ & 0.22878E-03_JPRB,0.94499E-02_JPRB,0.14251E-01_JPRB,0.16276E-01_JPRB,0.90607E-02_JPRB /)  
+KB(:, 2,44, 9) = (/ &
+ & 0.23775E-03_JPRB,0.11673E-01_JPRB,0.17646E-01_JPRB,0.20049E-01_JPRB,0.11303E-01_JPRB /)  
+KB(:, 3,44, 9) = (/ &
+ & 0.24747E-03_JPRB,0.14106E-01_JPRB,0.21336E-01_JPRB,0.24135E-01_JPRB,0.13772E-01_JPRB /)  
+KB(:, 4,44, 9) = (/ &
+ & 0.25755E-03_JPRB,0.16710E-01_JPRB,0.25261E-01_JPRB,0.28479E-01_JPRB,0.16464E-01_JPRB /)  
+KB(:, 5,44, 9) = (/ &
+ & 0.26798E-03_JPRB,0.19454E-01_JPRB,0.29363E-01_JPRB,0.33046E-01_JPRB,0.19378E-01_JPRB /)  
+KB(:, 1,45, 9) = (/ &
+ & 0.18849E-03_JPRB,0.86584E-02_JPRB,0.13096E-01_JPRB,0.15007E-01_JPRB,0.82904E-02_JPRB /)  
+KB(:, 2,45, 9) = (/ &
+ & 0.19636E-03_JPRB,0.10814E-01_JPRB,0.16390E-01_JPRB,0.18672E-01_JPRB,0.10458E-01_JPRB /)  
+KB(:, 3,45, 9) = (/ &
+ & 0.20470E-03_JPRB,0.13189E-01_JPRB,0.19995E-01_JPRB,0.22671E-01_JPRB,0.12861E-01_JPRB /)  
+KB(:, 4,45, 9) = (/ &
+ & 0.21344E-03_JPRB,0.15746E-01_JPRB,0.23854E-01_JPRB,0.26936E-01_JPRB,0.15483E-01_JPRB /)  
+KB(:, 5,45, 9) = (/ &
+ & 0.22266E-03_JPRB,0.18454E-01_JPRB,0.27912E-01_JPRB,0.31439E-01_JPRB,0.18328E-01_JPRB /)  
+KB(:, 1,46, 9) = (/ &
+ & 0.15507E-03_JPRB,0.78632E-02_JPRB,0.11928E-01_JPRB,0.13712E-01_JPRB,0.75164E-02_JPRB /)  
+KB(:, 2,46, 9) = (/ &
+ & 0.16179E-03_JPRB,0.99413E-02_JPRB,0.15104E-01_JPRB,0.17260E-01_JPRB,0.95985E-02_JPRB /)  
+KB(:, 3,46, 9) = (/ &
+ & 0.16890E-03_JPRB,0.12249E-01_JPRB,0.18612E-01_JPRB,0.21154E-01_JPRB,0.11927E-01_JPRB /)  
+KB(:, 4,46, 9) = (/ &
+ & 0.17659E-03_JPRB,0.14751E-01_JPRB,0.22394E-01_JPRB,0.25333E-01_JPRB,0.14476E-01_JPRB /)  
+KB(:, 5,46, 9) = (/ &
+ & 0.18474E-03_JPRB,0.17415E-01_JPRB,0.26393E-01_JPRB,0.29761E-01_JPRB,0.17246E-01_JPRB /)  
+KB(:, 1,47, 9) = (/ &
+ & 0.12726E-03_JPRB,0.70304E-02_JPRB,0.10696E-01_JPRB,0.12336E-01_JPRB,0.67029E-02_JPRB /)  
+KB(:, 2,47, 9) = (/ &
+ & 0.13291E-03_JPRB,0.90171E-02_JPRB,0.13730E-01_JPRB,0.15745E-01_JPRB,0.86863E-02_JPRB /)  
+KB(:, 3,47, 9) = (/ &
+ & 0.13906E-03_JPRB,0.11243E-01_JPRB,0.17120E-01_JPRB,0.19510E-01_JPRB,0.10925E-01_JPRB /)  
+KB(:, 4,47, 9) = (/ &
+ & 0.14561E-03_JPRB,0.13678E-01_JPRB,0.20805E-01_JPRB,0.23588E-01_JPRB,0.13392E-01_JPRB /)  
+KB(:, 5,47, 9) = (/ &
+ & 0.15268E-03_JPRB,0.16286E-01_JPRB,0.24728E-01_JPRB,0.27924E-01_JPRB,0.16077E-01_JPRB /)  
+KB(:, 1,48, 9) = (/ &
+ & 0.10430E-03_JPRB,0.62479E-02_JPRB,0.95325E-02_JPRB,0.11029E-01_JPRB,0.59380E-02_JPRB /)  
+KB(:, 2,48, 9) = (/ &
+ & 0.10909E-03_JPRB,0.81380E-02_JPRB,0.12419E-01_JPRB,0.14291E-01_JPRB,0.78205E-02_JPRB /)  
+KB(:, 3,48, 9) = (/ &
+ & 0.11429E-03_JPRB,0.10277E-01_JPRB,0.15680E-01_JPRB,0.17922E-01_JPRB,0.99641E-02_JPRB /)  
+KB(:, 4,48, 9) = (/ &
+ & 0.11996E-03_JPRB,0.12637E-01_JPRB,0.19259E-01_JPRB,0.21888E-01_JPRB,0.12347E-01_JPRB /)  
+KB(:, 5,48, 9) = (/ &
+ & 0.12611E-03_JPRB,0.15183E-01_JPRB,0.23095E-01_JPRB,0.26125E-01_JPRB,0.14947E-01_JPRB /)  
+KB(:, 1,49, 9) = (/ &
+ & 0.85361E-04_JPRB,0.55178E-02_JPRB,0.84413E-02_JPRB,0.97939E-02_JPRB,0.52224E-02_JPRB /)  
+KB(:, 2,49, 9) = (/ &
+ & 0.89682E-04_JPRB,0.73124E-02_JPRB,0.11182E-01_JPRB,0.12906E-01_JPRB,0.70024E-02_JPRB /)  
+KB(:, 3,49, 9) = (/ &
+ & 0.93818E-04_JPRB,0.93518E-02_JPRB,0.14295E-01_JPRB,0.16393E-01_JPRB,0.90454E-02_JPRB /)  
+KB(:, 4,49, 9) = (/ &
+ & 0.98731E-04_JPRB,0.11631E-01_JPRB,0.17758E-01_JPRB,0.20234E-01_JPRB,0.11339E-01_JPRB /)  
+KB(:, 5,49, 9) = (/ &
+ & 0.10398E-03_JPRB,0.14111E-01_JPRB,0.21502E-01_JPRB,0.24370E-01_JPRB,0.13856E-01_JPRB /)  
+KB(:, 1,50, 9) = (/ &
+ & 0.70068E-04_JPRB,0.48843E-02_JPRB,0.74862E-02_JPRB,0.87029E-02_JPRB,0.45961E-02_JPRB /)  
+KB(:, 2,50, 9) = (/ &
+ & 0.73528E-04_JPRB,0.65706E-02_JPRB,0.10074E-01_JPRB,0.11661E-01_JPRB,0.62737E-02_JPRB /)  
+KB(:, 3,50, 9) = (/ &
+ & 0.77377E-04_JPRB,0.85288E-02_JPRB,0.13057E-01_JPRB,0.15019E-01_JPRB,0.82236E-02_JPRB /)  
+KB(:, 4,50, 9) = (/ &
+ & 0.81195E-04_JPRB,0.10720E-01_JPRB,0.16396E-01_JPRB,0.18728E-01_JPRB,0.10428E-01_JPRB /)  
+KB(:, 5,50, 9) = (/ &
+ & 0.85703E-04_JPRB,0.13133E-01_JPRB,0.20042E-01_JPRB,0.22765E-01_JPRB,0.12867E-01_JPRB /)  
+KB(:, 1,51, 9) = (/ &
+ & 0.57383E-04_JPRB,0.43058E-02_JPRB,0.66126E-02_JPRB,0.77023E-02_JPRB,0.40299E-02_JPRB /)  
+KB(:, 2,51, 9) = (/ &
+ & 0.60290E-04_JPRB,0.58916E-02_JPRB,0.90543E-02_JPRB,0.10509E-01_JPRB,0.56057E-02_JPRB /)  
+KB(:, 3,51, 9) = (/ &
+ & 0.63513E-04_JPRB,0.77586E-02_JPRB,0.11901E-01_JPRB,0.13729E-01_JPRB,0.74620E-02_JPRB /)  
+KB(:, 4,51, 9) = (/ &
+ & 0.66727E-04_JPRB,0.98672E-02_JPRB,0.15116E-01_JPRB,0.17314E-01_JPRB,0.95779E-02_JPRB /)  
+KB(:, 5,51, 9) = (/ &
+ & 0.70598E-04_JPRB,0.12209E-01_JPRB,0.18661E-01_JPRB,0.21244E-01_JPRB,0.11938E-01_JPRB /)  
+KB(:, 1,52, 9) = (/ &
+ & 0.46933E-04_JPRB,0.37683E-02_JPRB,0.57987E-02_JPRB,0.67684E-02_JPRB,0.35066E-02_JPRB /)  
+KB(:, 2,52, 9) = (/ &
+ & 0.49374E-04_JPRB,0.52554E-02_JPRB,0.80944E-02_JPRB,0.94163E-02_JPRB,0.49785E-02_JPRB /)  
+KB(:, 3,52, 9) = (/ &
+ & 0.52069E-04_JPRB,0.70251E-02_JPRB,0.10799E-01_JPRB,0.12493E-01_JPRB,0.67384E-02_JPRB /)  
+KB(:, 4,52, 9) = (/ &
+ & 0.55066E-04_JPRB,0.90579E-02_JPRB,0.13892E-01_JPRB,0.15957E-01_JPRB,0.87644E-02_JPRB /)  
+KB(:, 5,52, 9) = (/ &
+ & 0.58094E-04_JPRB,0.11314E-01_JPRB,0.17321E-01_JPRB,0.19762E-01_JPRB,0.11039E-01_JPRB /)  
+KB(:, 1,53, 9) = (/ &
+ & 0.38369E-04_JPRB,0.32705E-02_JPRB,0.50428E-02_JPRB,0.58997E-02_JPRB,0.30250E-02_JPRB /)  
+KB(:, 2,53, 9) = (/ &
+ & 0.40389E-04_JPRB,0.46579E-02_JPRB,0.71882E-02_JPRB,0.83794E-02_JPRB,0.43908E-02_JPRB /)  
+KB(:, 3,53, 9) = (/ &
+ & 0.42656E-04_JPRB,0.63275E-02_JPRB,0.97486E-02_JPRB,0.11308E-01_JPRB,0.60500E-02_JPRB /)  
+KB(:, 4,53, 9) = (/ &
+ & 0.45173E-04_JPRB,0.82714E-02_JPRB,0.12706E-01_JPRB,0.14639E-01_JPRB,0.79824E-02_JPRB /)  
+KB(:, 5,53, 9) = (/ &
+ & 0.47733E-04_JPRB,0.10447E-01_JPRB,0.16018E-01_JPRB,0.18320E-01_JPRB,0.10170E-01_JPRB /)  
+KB(:, 1,54, 9) = (/ &
+ & 0.31373E-04_JPRB,0.28489E-02_JPRB,0.44023E-02_JPRB,0.51602E-02_JPRB,0.26198E-02_JPRB /)  
+KB(:, 2,54, 9) = (/ &
+ & 0.33072E-04_JPRB,0.41448E-02_JPRB,0.64072E-02_JPRB,0.74821E-02_JPRB,0.38868E-02_JPRB /)  
+KB(:, 3,54, 9) = (/ &
+ & 0.34962E-04_JPRB,0.57219E-02_JPRB,0.88331E-02_JPRB,0.10271E-01_JPRB,0.54518E-02_JPRB /)  
+KB(:, 4,54, 9) = (/ &
+ & 0.37073E-04_JPRB,0.75801E-02_JPRB,0.11663E-01_JPRB,0.13472E-01_JPRB,0.72975E-02_JPRB /)  
+KB(:, 5,54, 9) = (/ &
+ & 0.39224E-04_JPRB,0.96795E-02_JPRB,0.14861E-01_JPRB,0.17039E-01_JPRB,0.94030E-02_JPRB /)  
+KB(:, 1,55, 9) = (/ &
+ & 0.25649E-04_JPRB,0.24774E-02_JPRB,0.38358E-02_JPRB,0.45027E-02_JPRB,0.22635E-02_JPRB /)  
+KB(:, 2,55, 9) = (/ &
+ & 0.27065E-04_JPRB,0.36831E-02_JPRB,0.57040E-02_JPRB,0.66733E-02_JPRB,0.34361E-02_JPRB /)  
+KB(:, 3,55, 9) = (/ &
+ & 0.28649E-04_JPRB,0.51728E-02_JPRB,0.80003E-02_JPRB,0.93199E-02_JPRB,0.49087E-02_JPRB /)  
+KB(:, 4,55, 9) = (/ &
+ & 0.30419E-04_JPRB,0.69443E-02_JPRB,0.10704E-01_JPRB,0.12395E-01_JPRB,0.66688E-02_JPRB /)  
+KB(:, 5,55, 9) = (/ &
+ & 0.32478E-04_JPRB,0.89781E-02_JPRB,0.13794E-01_JPRB,0.15856E-01_JPRB,0.86947E-02_JPRB /)  
+KB(:, 1,56, 9) = (/ &
+ & 0.20960E-04_JPRB,0.21374E-02_JPRB,0.33161E-02_JPRB,0.38972E-02_JPRB,0.19394E-02_JPRB /)  
+KB(:, 2,56, 9) = (/ &
+ & 0.22130E-04_JPRB,0.32530E-02_JPRB,0.50471E-02_JPRB,0.59166E-02_JPRB,0.30185E-02_JPRB /)  
+KB(:, 3,56, 9) = (/ &
+ & 0.23455E-04_JPRB,0.46545E-02_JPRB,0.72105E-02_JPRB,0.84156E-02_JPRB,0.43975E-02_JPRB /)  
+KB(:, 4,56, 9) = (/ &
+ & 0.24958E-04_JPRB,0.63377E-02_JPRB,0.97876E-02_JPRB,0.11360E-01_JPRB,0.60688E-02_JPRB /)  
+KB(:, 5,56, 9) = (/ &
+ & 0.26672E-04_JPRB,0.82933E-02_JPRB,0.12759E-01_JPRB,0.14704E-01_JPRB,0.80123E-02_JPRB /)  
+KB(:, 1,57, 9) = (/ &
+ & 0.17108E-04_JPRB,0.18275E-02_JPRB,0.28407E-02_JPRB,0.33429E-02_JPRB,0.16463E-02_JPRB /)  
+KB(:, 2,57, 9) = (/ &
+ & 0.18082E-04_JPRB,0.28535E-02_JPRB,0.44360E-02_JPRB,0.52097E-02_JPRB,0.26326E-02_JPRB /)  
+KB(:, 3,57, 9) = (/ &
+ & 0.19184E-04_JPRB,0.41668E-02_JPRB,0.64646E-02_JPRB,0.75572E-02_JPRB,0.39170E-02_JPRB /)  
+KB(:, 4,57, 9) = (/ &
+ & 0.20446E-04_JPRB,0.57610E-02_JPRB,0.89128E-02_JPRB,0.10368E-01_JPRB,0.54979E-02_JPRB /)  
+KB(:, 5,57, 9) = (/ &
+ & 0.21854E-04_JPRB,0.76342E-02_JPRB,0.11762E-01_JPRB,0.13588E-01_JPRB,0.73577E-02_JPRB /)  
+KB(:, 1,58, 9) = (/ &
+ & 0.13963E-04_JPRB,0.15602E-02_JPRB,0.24292E-02_JPRB,0.28638E-02_JPRB,0.13965E-02_JPRB /)  
+KB(:, 2,58, 9) = (/ &
+ & 0.14773E-04_JPRB,0.25031E-02_JPRB,0.38984E-02_JPRB,0.45849E-02_JPRB,0.22957E-02_JPRB /)  
+KB(:, 3,58, 9) = (/ &
+ & 0.15698E-04_JPRB,0.37311E-02_JPRB,0.57975E-02_JPRB,0.67885E-02_JPRB,0.34899E-02_JPRB /)  
+KB(:, 4,58, 9) = (/ &
+ & 0.16731E-04_JPRB,0.52413E-02_JPRB,0.81221E-02_JPRB,0.94657E-02_JPRB,0.49831E-02_JPRB /)  
+KB(:, 5,58, 9) = (/ &
+ & 0.17926E-04_JPRB,0.70329E-02_JPRB,0.10852E-01_JPRB,0.12566E-01_JPRB,0.67622E-02_JPRB /)  
+KB(:, 1,59, 9) = (/ &
+ & 0.11515E-04_JPRB,0.14557E-02_JPRB,0.22712E-02_JPRB,0.26808E-02_JPRB,0.13001E-02_JPRB /)  
+KB(:, 2,59, 9) = (/ &
+ & 0.12194E-04_JPRB,0.23665E-02_JPRB,0.36913E-02_JPRB,0.43444E-02_JPRB,0.21654E-02_JPRB /)  
+KB(:, 3,59, 9) = (/ &
+ & 0.12975E-04_JPRB,0.35608E-02_JPRB,0.55385E-02_JPRB,0.64911E-02_JPRB,0.33241E-02_JPRB /)  
+KB(:, 4,59, 9) = (/ &
+ & 0.13854E-04_JPRB,0.50382E-02_JPRB,0.78142E-02_JPRB,0.91137E-02_JPRB,0.47825E-02_JPRB /)  
+KB(:, 5,59, 9) = (/ &
+ & 0.14890E-04_JPRB,0.67966E-02_JPRB,0.10497E-01_JPRB,0.12166E-01_JPRB,0.65291E-02_JPRB /)  
+KB(:, 1,13,10) = (/ &
+ & 0.23136E+00_JPRB,0.35590E+00_JPRB,0.41705E+00_JPRB,0.42838E+00_JPRB,0.34405E+00_JPRB /)  
+KB(:, 2,13,10) = (/ &
+ & 0.23570E+00_JPRB,0.35573E+00_JPRB,0.41855E+00_JPRB,0.43318E+00_JPRB,0.34979E+00_JPRB /)  
+KB(:, 3,13,10) = (/ &
+ & 0.23997E+00_JPRB,0.35949E+00_JPRB,0.42029E+00_JPRB,0.43813E+00_JPRB,0.35426E+00_JPRB /)  
+KB(:, 4,13,10) = (/ &
+ & 0.24492E+00_JPRB,0.36590E+00_JPRB,0.42350E+00_JPRB,0.44177E+00_JPRB,0.35947E+00_JPRB /)  
+KB(:, 5,13,10) = (/ &
+ & 0.25202E+00_JPRB,0.37242E+00_JPRB,0.42924E+00_JPRB,0.44467E+00_JPRB,0.36481E+00_JPRB /)  
+KB(:, 1,14,10) = (/ &
+ & 0.20433E+00_JPRB,0.32280E+00_JPRB,0.38114E+00_JPRB,0.39530E+00_JPRB,0.30987E+00_JPRB /)  
+KB(:, 2,14,10) = (/ &
+ & 0.20812E+00_JPRB,0.32580E+00_JPRB,0.38400E+00_JPRB,0.40099E+00_JPRB,0.31521E+00_JPRB /)  
+KB(:, 3,14,10) = (/ &
+ & 0.21260E+00_JPRB,0.33207E+00_JPRB,0.38794E+00_JPRB,0.40573E+00_JPRB,0.32135E+00_JPRB /)  
+KB(:, 4,14,10) = (/ &
+ & 0.21971E+00_JPRB,0.33857E+00_JPRB,0.39426E+00_JPRB,0.40959E+00_JPRB,0.32811E+00_JPRB /)  
+KB(:, 5,14,10) = (/ &
+ & 0.22862E+00_JPRB,0.34522E+00_JPRB,0.40235E+00_JPRB,0.41376E+00_JPRB,0.33439E+00_JPRB /)  
+KB(:, 1,15,10) = (/ &
+ & 0.17974E+00_JPRB,0.29385E+00_JPRB,0.34710E+00_JPRB,0.36214E+00_JPRB,0.27698E+00_JPRB /)  
+KB(:, 2,15,10) = (/ &
+ & 0.18361E+00_JPRB,0.29985E+00_JPRB,0.35176E+00_JPRB,0.36835E+00_JPRB,0.28361E+00_JPRB /)  
+KB(:, 3,15,10) = (/ &
+ & 0.19011E+00_JPRB,0.30650E+00_JPRB,0.35844E+00_JPRB,0.37336E+00_JPRB,0.29140E+00_JPRB /)  
+KB(:, 4,15,10) = (/ &
+ & 0.19870E+00_JPRB,0.31340E+00_JPRB,0.36676E+00_JPRB,0.37856E+00_JPRB,0.29913E+00_JPRB /)  
+KB(:, 5,15,10) = (/ &
+ & 0.20713E+00_JPRB,0.32067E+00_JPRB,0.37517E+00_JPRB,0.38452E+00_JPRB,0.30673E+00_JPRB /)  
+KB(:, 1,16,10) = (/ &
+ & 0.15768E+00_JPRB,0.26909E+00_JPRB,0.31566E+00_JPRB,0.32905E+00_JPRB,0.24795E+00_JPRB /)  
+KB(:, 2,16,10) = (/ &
+ & 0.16341E+00_JPRB,0.27579E+00_JPRB,0.32257E+00_JPRB,0.33542E+00_JPRB,0.25593E+00_JPRB /)  
+KB(:, 3,16,10) = (/ &
+ & 0.17143E+00_JPRB,0.28283E+00_JPRB,0.33152E+00_JPRB,0.34164E+00_JPRB,0.26468E+00_JPRB /)  
+KB(:, 4,16,10) = (/ &
+ & 0.17943E+00_JPRB,0.29026E+00_JPRB,0.34054E+00_JPRB,0.34897E+00_JPRB,0.27328E+00_JPRB /)  
+KB(:, 5,16,10) = (/ &
+ & 0.18690E+00_JPRB,0.29935E+00_JPRB,0.34954E+00_JPRB,0.35767E+00_JPRB,0.28225E+00_JPRB /)  
+KB(:, 1,17,10) = (/ &
+ & 0.13875E+00_JPRB,0.24652E+00_JPRB,0.28696E+00_JPRB,0.29693E+00_JPRB,0.22321E+00_JPRB /)  
+KB(:, 2,17,10) = (/ &
+ & 0.14611E+00_JPRB,0.25366E+00_JPRB,0.29630E+00_JPRB,0.30411E+00_JPRB,0.23216E+00_JPRB /)  
+KB(:, 3,17,10) = (/ &
+ & 0.15377E+00_JPRB,0.26122E+00_JPRB,0.30597E+00_JPRB,0.31229E+00_JPRB,0.24127E+00_JPRB /)  
+KB(:, 4,17,10) = (/ &
+ & 0.16099E+00_JPRB,0.27029E+00_JPRB,0.31565E+00_JPRB,0.32218E+00_JPRB,0.25077E+00_JPRB /)  
+KB(:, 5,17,10) = (/ &
+ & 0.16791E+00_JPRB,0.28100E+00_JPRB,0.32533E+00_JPRB,0.33316E+00_JPRB,0.26091E+00_JPRB /)  
+KB(:, 1,18,10) = (/ &
+ & 0.12258E+00_JPRB,0.22568E+00_JPRB,0.26154E+00_JPRB,0.26746E+00_JPRB,0.20208E+00_JPRB /)  
+KB(:, 2,18,10) = (/ &
+ & 0.12972E+00_JPRB,0.23340E+00_JPRB,0.27183E+00_JPRB,0.27607E+00_JPRB,0.21144E+00_JPRB /)  
+KB(:, 3,18,10) = (/ &
+ & 0.13673E+00_JPRB,0.24228E+00_JPRB,0.28202E+00_JPRB,0.28661E+00_JPRB,0.22093E+00_JPRB /)  
+KB(:, 4,18,10) = (/ &
+ & 0.14352E+00_JPRB,0.25285E+00_JPRB,0.29256E+00_JPRB,0.29859E+00_JPRB,0.23121E+00_JPRB /)  
+KB(:, 5,18,10) = (/ &
+ & 0.14999E+00_JPRB,0.26447E+00_JPRB,0.30340E+00_JPRB,0.31163E+00_JPRB,0.24203E+00_JPRB /)  
+KB(:, 1,19,10) = (/ &
+ & 0.10785E+00_JPRB,0.20667E+00_JPRB,0.23879E+00_JPRB,0.24194E+00_JPRB,0.18368E+00_JPRB /)  
+KB(:, 2,19,10) = (/ &
+ & 0.11429E+00_JPRB,0.21546E+00_JPRB,0.24926E+00_JPRB,0.25235E+00_JPRB,0.19325E+00_JPRB /)  
+KB(:, 3,19,10) = (/ &
+ & 0.12064E+00_JPRB,0.22577E+00_JPRB,0.26022E+00_JPRB,0.26472E+00_JPRB,0.20338E+00_JPRB /)  
+KB(:, 4,19,10) = (/ &
+ & 0.12700E+00_JPRB,0.23751E+00_JPRB,0.27175E+00_JPRB,0.27823E+00_JPRB,0.21416E+00_JPRB /)  
+KB(:, 5,19,10) = (/ &
+ & 0.13335E+00_JPRB,0.24924E+00_JPRB,0.28423E+00_JPRB,0.29239E+00_JPRB,0.22548E+00_JPRB /)  
+KB(:, 1,20,10) = (/ &
+ & 0.94314E-01_JPRB,0.18969E+00_JPRB,0.21843E+00_JPRB,0.22089E+00_JPRB,0.16767E+00_JPRB /)  
+KB(:, 2,20,10) = (/ &
+ & 0.10011E+00_JPRB,0.20009E+00_JPRB,0.22938E+00_JPRB,0.23290E+00_JPRB,0.17759E+00_JPRB /)  
+KB(:, 3,20,10) = (/ &
+ & 0.10602E+00_JPRB,0.21171E+00_JPRB,0.24114E+00_JPRB,0.24650E+00_JPRB,0.18815E+00_JPRB /)  
+KB(:, 4,20,10) = (/ &
+ & 0.11212E+00_JPRB,0.22366E+00_JPRB,0.25410E+00_JPRB,0.26076E+00_JPRB,0.19951E+00_JPRB /)  
+KB(:, 5,20,10) = (/ &
+ & 0.11820E+00_JPRB,0.23566E+00_JPRB,0.26816E+00_JPRB,0.27572E+00_JPRB,0.21140E+00_JPRB /)  
+KB(:, 1,21,10) = (/ &
+ & 0.82096E-01_JPRB,0.17498E+00_JPRB,0.20057E+00_JPRB,0.20349E+00_JPRB,0.15368E+00_JPRB /)  
+KB(:, 2,21,10) = (/ &
+ & 0.87376E-01_JPRB,0.18671E+00_JPRB,0.21217E+00_JPRB,0.21678E+00_JPRB,0.16394E+00_JPRB /)  
+KB(:, 3,21,10) = (/ &
+ & 0.92996E-01_JPRB,0.19901E+00_JPRB,0.22527E+00_JPRB,0.23088E+00_JPRB,0.17505E+00_JPRB /)  
+KB(:, 4,21,10) = (/ &
+ & 0.98752E-01_JPRB,0.21131E+00_JPRB,0.23942E+00_JPRB,0.24575E+00_JPRB,0.18685E+00_JPRB /)  
+KB(:, 5,21,10) = (/ &
+ & 0.10451E+00_JPRB,0.22356E+00_JPRB,0.25490E+00_JPRB,0.26152E+00_JPRB,0.19924E+00_JPRB /)  
+KB(:, 1,22,10) = (/ &
+ & 0.71578E-01_JPRB,0.16309E+00_JPRB,0.18609E+00_JPRB,0.19018E+00_JPRB,0.14217E+00_JPRB /)  
+KB(:, 2,22,10) = (/ &
+ & 0.76626E-01_JPRB,0.17564E+00_JPRB,0.19884E+00_JPRB,0.20398E+00_JPRB,0.15291E+00_JPRB /)  
+KB(:, 3,22,10) = (/ &
+ & 0.81885E-01_JPRB,0.18840E+00_JPRB,0.21309E+00_JPRB,0.21858E+00_JPRB,0.16461E+00_JPRB /)  
+KB(:, 4,22,10) = (/ &
+ & 0.87223E-01_JPRB,0.20113E+00_JPRB,0.22859E+00_JPRB,0.23430E+00_JPRB,0.17688E+00_JPRB /)  
+KB(:, 5,22,10) = (/ &
+ & 0.92500E-01_JPRB,0.21374E+00_JPRB,0.24532E+00_JPRB,0.25104E+00_JPRB,0.18976E+00_JPRB /)  
+KB(:, 1,23,10) = (/ &
+ & 0.62506E-01_JPRB,0.15298E+00_JPRB,0.17442E+00_JPRB,0.17913E+00_JPRB,0.13258E+00_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART26',1,ZHOOK_HANDLE)
+END SUBROUTINE PART26
+
+
+SUBROUTINE PART27
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART27',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,23,10) = (/ &
+ & 0.67194E-01_JPRB,0.16597E+00_JPRB,0.18829E+00_JPRB,0.19340E+00_JPRB,0.14391E+00_JPRB /)  
+KB(:, 3,23,10) = (/ &
+ & 0.72099E-01_JPRB,0.17922E+00_JPRB,0.20360E+00_JPRB,0.20869E+00_JPRB,0.15600E+00_JPRB /)  
+KB(:, 4,23,10) = (/ &
+ & 0.77023E-01_JPRB,0.19243E+00_JPRB,0.22032E+00_JPRB,0.22532E+00_JPRB,0.16873E+00_JPRB /)  
+KB(:, 5,23,10) = (/ &
+ & 0.81629E-01_JPRB,0.20537E+00_JPRB,0.23792E+00_JPRB,0.24291E+00_JPRB,0.18203E+00_JPRB /)  
+KB(:, 1,24,10) = (/ &
+ & 0.54705E-01_JPRB,0.14435E+00_JPRB,0.16539E+00_JPRB,0.17004E+00_JPRB,0.12479E+00_JPRB /)  
+KB(:, 2,24,10) = (/ &
+ & 0.59055E-01_JPRB,0.15781E+00_JPRB,0.18024E+00_JPRB,0.18505E+00_JPRB,0.13663E+00_JPRB /)  
+KB(:, 3,24,10) = (/ &
+ & 0.63456E-01_JPRB,0.17157E+00_JPRB,0.19662E+00_JPRB,0.20113E+00_JPRB,0.14915E+00_JPRB /)  
+KB(:, 4,24,10) = (/ &
+ & 0.67778E-01_JPRB,0.18520E+00_JPRB,0.21409E+00_JPRB,0.21860E+00_JPRB,0.16222E+00_JPRB /)  
+KB(:, 5,24,10) = (/ &
+ & 0.71741E-01_JPRB,0.19852E+00_JPRB,0.23252E+00_JPRB,0.23726E+00_JPRB,0.17594E+00_JPRB /)  
+KB(:, 1,25,10) = (/ &
+ & 0.47972E-01_JPRB,0.13725E+00_JPRB,0.15860E+00_JPRB,0.16297E+00_JPRB,0.11866E+00_JPRB /)  
+KB(:, 2,25,10) = (/ &
+ & 0.51893E-01_JPRB,0.15121E+00_JPRB,0.17443E+00_JPRB,0.17877E+00_JPRB,0.13085E+00_JPRB /)  
+KB(:, 3,25,10) = (/ &
+ & 0.55832E-01_JPRB,0.16535E+00_JPRB,0.19157E+00_JPRB,0.19578E+00_JPRB,0.14380E+00_JPRB /)  
+KB(:, 4,25,10) = (/ &
+ & 0.59570E-01_JPRB,0.17943E+00_JPRB,0.20993E+00_JPRB,0.21423E+00_JPRB,0.15728E+00_JPRB /)  
+KB(:, 5,25,10) = (/ &
+ & 0.62996E-01_JPRB,0.19323E+00_JPRB,0.22909E+00_JPRB,0.23401E+00_JPRB,0.17147E+00_JPRB /)  
+KB(:, 1,26,10) = (/ &
+ & 0.42166E-01_JPRB,0.13173E+00_JPRB,0.15395E+00_JPRB,0.15801E+00_JPRB,0.11401E+00_JPRB /)  
+KB(:, 2,26,10) = (/ &
+ & 0.45660E-01_JPRB,0.14616E+00_JPRB,0.17062E+00_JPRB,0.17468E+00_JPRB,0.12664E+00_JPRB /)  
+KB(:, 3,26,10) = (/ &
+ & 0.49079E-01_JPRB,0.16071E+00_JPRB,0.18859E+00_JPRB,0.19278E+00_JPRB,0.14002E+00_JPRB /)  
+KB(:, 4,26,10) = (/ &
+ & 0.52306E-01_JPRB,0.17521E+00_JPRB,0.20782E+00_JPRB,0.21223E+00_JPRB,0.15402E+00_JPRB /)  
+KB(:, 5,26,10) = (/ &
+ & 0.55285E-01_JPRB,0.18955E+00_JPRB,0.22765E+00_JPRB,0.23299E+00_JPRB,0.16864E+00_JPRB /)  
+KB(:, 1,27,10) = (/ &
+ & 0.37040E-01_JPRB,0.12755E+00_JPRB,0.15088E+00_JPRB,0.15474E+00_JPRB,0.11059E+00_JPRB /)  
+KB(:, 2,27,10) = (/ &
+ & 0.40121E-01_JPRB,0.14241E+00_JPRB,0.16845E+00_JPRB,0.17243E+00_JPRB,0.12369E+00_JPRB /)  
+KB(:, 3,27,10) = (/ &
+ & 0.43101E-01_JPRB,0.15742E+00_JPRB,0.18726E+00_JPRB,0.19156E+00_JPRB,0.13753E+00_JPRB /)  
+KB(:, 4,27,10) = (/ &
+ & 0.45931E-01_JPRB,0.17241E+00_JPRB,0.20722E+00_JPRB,0.21200E+00_JPRB,0.15204E+00_JPRB /)  
+KB(:, 5,27,10) = (/ &
+ & 0.48598E-01_JPRB,0.18733E+00_JPRB,0.22772E+00_JPRB,0.23361E+00_JPRB,0.16711E+00_JPRB /)  
+KB(:, 1,28,10) = (/ &
+ & 0.32582E-01_JPRB,0.12457E+00_JPRB,0.14931E+00_JPRB,0.15310E+00_JPRB,0.10829E+00_JPRB /)  
+KB(:, 2,28,10) = (/ &
+ & 0.35269E-01_JPRB,0.13987E+00_JPRB,0.16776E+00_JPRB,0.17185E+00_JPRB,0.12185E+00_JPRB /)  
+KB(:, 3,28,10) = (/ &
+ & 0.37905E-01_JPRB,0.15538E+00_JPRB,0.18740E+00_JPRB,0.19192E+00_JPRB,0.13621E+00_JPRB /)  
+KB(:, 4,28,10) = (/ &
+ & 0.40411E-01_JPRB,0.17101E+00_JPRB,0.20797E+00_JPRB,0.21319E+00_JPRB,0.15122E+00_JPRB /)  
+KB(:, 5,28,10) = (/ &
+ & 0.42843E-01_JPRB,0.18643E+00_JPRB,0.22906E+00_JPRB,0.23551E+00_JPRB,0.16683E+00_JPRB /)  
+KB(:, 1,29,10) = (/ &
+ & 0.28694E-01_JPRB,0.12285E+00_JPRB,0.14922E+00_JPRB,0.15309E+00_JPRB,0.10715E+00_JPRB /)  
+KB(:, 2,29,10) = (/ &
+ & 0.31078E-01_JPRB,0.13867E+00_JPRB,0.16851E+00_JPRB,0.17281E+00_JPRB,0.12115E+00_JPRB /)  
+KB(:, 3,29,10) = (/ &
+ & 0.33398E-01_JPRB,0.15475E+00_JPRB,0.18886E+00_JPRB,0.19373E+00_JPRB,0.13609E+00_JPRB /)  
+KB(:, 4,29,10) = (/ &
+ & 0.35655E-01_JPRB,0.17087E+00_JPRB,0.21002E+00_JPRB,0.21569E+00_JPRB,0.15161E+00_JPRB /)  
+KB(:, 5,29,10) = (/ &
+ & 0.37934E-01_JPRB,0.18672E+00_JPRB,0.23156E+00_JPRB,0.23855E+00_JPRB,0.16767E+00_JPRB /)  
+KB(:, 1,30,10) = (/ &
+ & 0.25318E-01_JPRB,0.12223E+00_JPRB,0.15038E+00_JPRB,0.15442E+00_JPRB,0.10692E+00_JPRB /)  
+KB(:, 2,30,10) = (/ &
+ & 0.27416E-01_JPRB,0.13863E+00_JPRB,0.17040E+00_JPRB,0.17493E+00_JPRB,0.12146E+00_JPRB /)  
+KB(:, 3,30,10) = (/ &
+ & 0.29487E-01_JPRB,0.15524E+00_JPRB,0.19136E+00_JPRB,0.19656E+00_JPRB,0.13693E+00_JPRB /)  
+KB(:, 4,30,10) = (/ &
+ & 0.31585E-01_JPRB,0.17178E+00_JPRB,0.21298E+00_JPRB,0.21911E+00_JPRB,0.15294E+00_JPRB /)  
+KB(:, 5,30,10) = (/ &
+ & 0.33743E-01_JPRB,0.18794E+00_JPRB,0.23489E+00_JPRB,0.24234E+00_JPRB,0.16937E+00_JPRB /)  
+KB(:, 1,31,10) = (/ &
+ & 0.22384E-01_JPRB,0.12276E+00_JPRB,0.15268E+00_JPRB,0.15694E+00_JPRB,0.10764E+00_JPRB /)  
+KB(:, 2,31,10) = (/ &
+ & 0.24241E-01_JPRB,0.13972E+00_JPRB,0.17333E+00_JPRB,0.17809E+00_JPRB,0.12275E+00_JPRB /)  
+KB(:, 3,31,10) = (/ &
+ & 0.26155E-01_JPRB,0.15678E+00_JPRB,0.19481E+00_JPRB,0.20028E+00_JPRB,0.13870E+00_JPRB /)  
+KB(:, 4,31,10) = (/ &
+ & 0.28119E-01_JPRB,0.17362E+00_JPRB,0.21675E+00_JPRB,0.22330E+00_JPRB,0.15510E+00_JPRB /)  
+KB(:, 5,31,10) = (/ &
+ & 0.30218E-01_JPRB,0.19000E+00_JPRB,0.23891E+00_JPRB,0.24680E+00_JPRB,0.17182E+00_JPRB /)  
+KB(:, 1,32,10) = (/ &
+ & 0.19818E-01_JPRB,0.12431E+00_JPRB,0.15590E+00_JPRB,0.16037E+00_JPRB,0.10919E+00_JPRB /)  
+KB(:, 2,32,10) = (/ &
+ & 0.21499E-01_JPRB,0.14174E+00_JPRB,0.17710E+00_JPRB,0.18207E+00_JPRB,0.12484E+00_JPRB /)  
+KB(:, 3,32,10) = (/ &
+ & 0.23289E-01_JPRB,0.15910E+00_JPRB,0.19892E+00_JPRB,0.20468E+00_JPRB,0.14116E+00_JPRB /)  
+KB(:, 4,32,10) = (/ &
+ & 0.25197E-01_JPRB,0.17612E+00_JPRB,0.22110E+00_JPRB,0.22808E+00_JPRB,0.15787E+00_JPRB /)  
+KB(:, 5,32,10) = (/ &
+ & 0.27257E-01_JPRB,0.19267E+00_JPRB,0.24341E+00_JPRB,0.25172E+00_JPRB,0.17483E+00_JPRB /)  
+KB(:, 1,33,10) = (/ &
+ & 0.17588E-01_JPRB,0.12670E+00_JPRB,0.15984E+00_JPRB,0.16448E+00_JPRB,0.11147E+00_JPRB /)  
+KB(:, 2,33,10) = (/ &
+ & 0.19157E-01_JPRB,0.14450E+00_JPRB,0.18143E+00_JPRB,0.18665E+00_JPRB,0.12758E+00_JPRB /)  
+KB(:, 3,33,10) = (/ &
+ & 0.20859E-01_JPRB,0.16204E+00_JPRB,0.20353E+00_JPRB,0.20957E+00_JPRB,0.14421E+00_JPRB /)  
+KB(:, 4,33,10) = (/ &
+ & 0.22735E-01_JPRB,0.17915E+00_JPRB,0.22585E+00_JPRB,0.23324E+00_JPRB,0.16113E+00_JPRB /)  
+KB(:, 5,33,10) = (/ &
+ & 0.24799E-01_JPRB,0.19574E+00_JPRB,0.24826E+00_JPRB,0.25697E+00_JPRB,0.17829E+00_JPRB /)  
+KB(:, 1,34,10) = (/ &
+ & 0.15617E-01_JPRB,0.12913E+00_JPRB,0.16354E+00_JPRB,0.16830E+00_JPRB,0.11378E+00_JPRB /)  
+KB(:, 2,34,10) = (/ &
+ & 0.17096E-01_JPRB,0.14716E+00_JPRB,0.18538E+00_JPRB,0.19084E+00_JPRB,0.13021E+00_JPRB /)  
+KB(:, 3,34,10) = (/ &
+ & 0.18753E-01_JPRB,0.16482E+00_JPRB,0.20769E+00_JPRB,0.21402E+00_JPRB,0.14705E+00_JPRB /)  
+KB(:, 4,34,10) = (/ &
+ & 0.20625E-01_JPRB,0.18194E+00_JPRB,0.23012E+00_JPRB,0.23784E+00_JPRB,0.16411E+00_JPRB /)  
+KB(:, 5,34,10) = (/ &
+ & 0.22709E-01_JPRB,0.19848E+00_JPRB,0.25256E+00_JPRB,0.26160E+00_JPRB,0.18143E+00_JPRB /)  
+KB(:, 1,35,10) = (/ &
+ & 0.13789E-01_JPRB,0.13026E+00_JPRB,0.16543E+00_JPRB,0.17032E+00_JPRB,0.11490E+00_JPRB /)  
+KB(:, 2,35,10) = (/ &
+ & 0.15216E-01_JPRB,0.14846E+00_JPRB,0.18743E+00_JPRB,0.19307E+00_JPRB,0.13153E+00_JPRB /)  
+KB(:, 3,35,10) = (/ &
+ & 0.16842E-01_JPRB,0.16621E+00_JPRB,0.20987E+00_JPRB,0.21641E+00_JPRB,0.14851E+00_JPRB /)  
+KB(:, 4,35,10) = (/ &
+ & 0.18686E-01_JPRB,0.18333E+00_JPRB,0.23239E+00_JPRB,0.24032E+00_JPRB,0.16565E+00_JPRB /)  
+KB(:, 5,35,10) = (/ &
+ & 0.20799E-01_JPRB,0.19983E+00_JPRB,0.25487E+00_JPRB,0.26409E+00_JPRB,0.18307E+00_JPRB /)  
+KB(:, 1,36,10) = (/ &
+ & 0.12099E-01_JPRB,0.12969E+00_JPRB,0.16517E+00_JPRB,0.17011E+00_JPRB,0.11448E+00_JPRB /)  
+KB(:, 2,36,10) = (/ &
+ & 0.13456E-01_JPRB,0.14803E+00_JPRB,0.18723E+00_JPRB,0.19293E+00_JPRB,0.13120E+00_JPRB /)  
+KB(:, 3,36,10) = (/ &
+ & 0.15032E-01_JPRB,0.16587E+00_JPRB,0.20973E+00_JPRB,0.21635E+00_JPRB,0.14826E+00_JPRB /)  
+KB(:, 4,36,10) = (/ &
+ & 0.16854E-01_JPRB,0.18305E+00_JPRB,0.23232E+00_JPRB,0.24032E+00_JPRB,0.16546E+00_JPRB /)  
+KB(:, 5,36,10) = (/ &
+ & 0.18993E-01_JPRB,0.19959E+00_JPRB,0.25485E+00_JPRB,0.26414E+00_JPRB,0.18292E+00_JPRB /)  
+KB(:, 1,37,10) = (/ &
+ & 0.10461E-01_JPRB,0.12652E+00_JPRB,0.16173E+00_JPRB,0.16663E+00_JPRB,0.11173E+00_JPRB /)  
+KB(:, 2,37,10) = (/ &
+ & 0.11729E-01_JPRB,0.14498E+00_JPRB,0.18379E+00_JPRB,0.18940E+00_JPRB,0.12844E+00_JPRB /)  
+KB(:, 3,37,10) = (/ &
+ & 0.13230E-01_JPRB,0.16298E+00_JPRB,0.20628E+00_JPRB,0.21278E+00_JPRB,0.14553E+00_JPRB /)  
+KB(:, 4,37,10) = (/ &
+ & 0.15005E-01_JPRB,0.18033E+00_JPRB,0.22891E+00_JPRB,0.23679E+00_JPRB,0.16275E+00_JPRB /)  
+KB(:, 5,37,10) = (/ &
+ & 0.17126E-01_JPRB,0.19699E+00_JPRB,0.25151E+00_JPRB,0.26065E+00_JPRB,0.18019E+00_JPRB /)  
+KB(:, 1,38,10) = (/ &
+ & 0.90496E-02_JPRB,0.12333E+00_JPRB,0.15823E+00_JPRB,0.16307E+00_JPRB,0.10897E+00_JPRB /)  
+KB(:, 2,38,10) = (/ &
+ & 0.10227E-01_JPRB,0.14188E+00_JPRB,0.18026E+00_JPRB,0.18578E+00_JPRB,0.12565E+00_JPRB /)  
+KB(:, 3,38,10) = (/ &
+ & 0.11665E-01_JPRB,0.16002E+00_JPRB,0.20273E+00_JPRB,0.20911E+00_JPRB,0.14274E+00_JPRB /)  
+KB(:, 4,38,10) = (/ &
+ & 0.13392E-01_JPRB,0.17754E+00_JPRB,0.22537E+00_JPRB,0.23309E+00_JPRB,0.15996E+00_JPRB /)  
+KB(:, 5,38,10) = (/ &
+ & 0.15506E-01_JPRB,0.19433E+00_JPRB,0.24804E+00_JPRB,0.25702E+00_JPRB,0.17741E+00_JPRB /)  
+KB(:, 1,39,10) = (/ &
+ & 0.78338E-02_JPRB,0.12027E+00_JPRB,0.15482E+00_JPRB,0.15961E+00_JPRB,0.10632E+00_JPRB /)  
+KB(:, 2,39,10) = (/ &
+ & 0.89378E-02_JPRB,0.13888E+00_JPRB,0.17682E+00_JPRB,0.18224E+00_JPRB,0.12295E+00_JPRB /)  
+KB(:, 3,39,10) = (/ &
+ & 0.10310E-01_JPRB,0.15714E+00_JPRB,0.19926E+00_JPRB,0.20553E+00_JPRB,0.14003E+00_JPRB /)  
+KB(:, 4,39,10) = (/ &
+ & 0.12002E-01_JPRB,0.17480E+00_JPRB,0.22192E+00_JPRB,0.22947E+00_JPRB,0.15725E+00_JPRB /)  
+KB(:, 5,39,10) = (/ &
+ & 0.14105E-01_JPRB,0.19172E+00_JPRB,0.24464E+00_JPRB,0.25344E+00_JPRB,0.17470E+00_JPRB /)  
+KB(:, 1,40,10) = (/ &
+ & 0.66914E-02_JPRB,0.11542E+00_JPRB,0.14925E+00_JPRB,0.15395E+00_JPRB,0.10210E+00_JPRB /)  
+KB(:, 2,40,10) = (/ &
+ & 0.77047E-02_JPRB,0.13403E+00_JPRB,0.17118E+00_JPRB,0.17643E+00_JPRB,0.11860E+00_JPRB /)  
+KB(:, 3,40,10) = (/ &
+ & 0.89835E-02_JPRB,0.15246E+00_JPRB,0.19353E+00_JPRB,0.19961E+00_JPRB,0.13564E+00_JPRB /)  
+KB(:, 4,40,10) = (/ &
+ & 0.10606E-01_JPRB,0.17030E+00_JPRB,0.21619E+00_JPRB,0.22340E+00_JPRB,0.15283E+00_JPRB /)  
+KB(:, 5,40,10) = (/ &
+ & 0.12648E-01_JPRB,0.18743E+00_JPRB,0.23893E+00_JPRB,0.24746E+00_JPRB,0.17023E+00_JPRB /)  
+KB(:, 1,41,10) = (/ &
+ & 0.57043E-02_JPRB,0.11041E+00_JPRB,0.14350E+00_JPRB,0.14812E+00_JPRB,0.97770E-01_JPRB /)  
+KB(:, 2,41,10) = (/ &
+ & 0.66329E-02_JPRB,0.12897E+00_JPRB,0.16532E+00_JPRB,0.17041E+00_JPRB,0.11409E+00_JPRB /)  
+KB(:, 3,41,10) = (/ &
+ & 0.78105E-02_JPRB,0.14755E+00_JPRB,0.18757E+00_JPRB,0.19344E+00_JPRB,0.13104E+00_JPRB /)  
+KB(:, 4,41,10) = (/ &
+ & 0.93536E-02_JPRB,0.16558E+00_JPRB,0.21020E+00_JPRB,0.21707E+00_JPRB,0.14824E+00_JPRB /)  
+KB(:, 5,41,10) = (/ &
+ & 0.11328E-01_JPRB,0.18290E+00_JPRB,0.23295E+00_JPRB,0.24119E+00_JPRB,0.16557E+00_JPRB /)  
+KB(:, 1,42,10) = (/ &
+ & 0.48607E-02_JPRB,0.10547E+00_JPRB,0.13783E+00_JPRB,0.14238E+00_JPRB,0.93542E-01_JPRB /)  
+KB(:, 2,42,10) = (/ &
+ & 0.56953E-02_JPRB,0.12396E+00_JPRB,0.15948E+00_JPRB,0.16442E+00_JPRB,0.10965E+00_JPRB /)  
+KB(:, 3,42,10) = (/ &
+ & 0.67857E-02_JPRB,0.14262E+00_JPRB,0.18165E+00_JPRB,0.18732E+00_JPRB,0.12648E+00_JPRB /)  
+KB(:, 4,42,10) = (/ &
+ & 0.82516E-02_JPRB,0.16083E+00_JPRB,0.20424E+00_JPRB,0.21080E+00_JPRB,0.14367E+00_JPRB /)  
+KB(:, 5,42,10) = (/ &
+ & 0.10149E-01_JPRB,0.17836E+00_JPRB,0.22696E+00_JPRB,0.23490E+00_JPRB,0.16095E+00_JPRB /)  
+KB(:, 1,43,10) = (/ &
+ & 0.40934E-02_JPRB,0.99600E-01_JPRB,0.13106E+00_JPRB,0.13554E+00_JPRB,0.88531E-01_JPRB /)  
+KB(:, 2,43,10) = (/ &
+ & 0.48473E-02_JPRB,0.11796E+00_JPRB,0.15249E+00_JPRB,0.15728E+00_JPRB,0.10438E+00_JPRB /)  
+KB(:, 3,43,10) = (/ &
+ & 0.58407E-02_JPRB,0.13665E+00_JPRB,0.17453E+00_JPRB,0.17995E+00_JPRB,0.12102E+00_JPRB /)  
+KB(:, 4,43,10) = (/ &
+ & 0.71922E-02_JPRB,0.15505E+00_JPRB,0.19702E+00_JPRB,0.20328E+00_JPRB,0.13817E+00_JPRB /)  
+KB(:, 5,43,10) = (/ &
+ & 0.89819E-02_JPRB,0.17282E+00_JPRB,0.21974E+00_JPRB,0.22722E+00_JPRB,0.15541E+00_JPRB /)  
+KB(:, 1,44,10) = (/ &
+ & 0.34279E-02_JPRB,0.93376E-01_JPRB,0.12386E+00_JPRB,0.12828E+00_JPRB,0.83256E-01_JPRB /)  
+KB(:, 2,44,10) = (/ &
+ & 0.40981E-02_JPRB,0.11153E+00_JPRB,0.14501E+00_JPRB,0.14969E+00_JPRB,0.98786E-01_JPRB /)  
+KB(:, 3,44,10) = (/ &
+ & 0.49801E-02_JPRB,0.13017E+00_JPRB,0.16691E+00_JPRB,0.17209E+00_JPRB,0.11523E+00_JPRB /)  
+KB(:, 4,44,10) = (/ &
+ & 0.62140E-02_JPRB,0.14877E+00_JPRB,0.18924E+00_JPRB,0.19525E+00_JPRB,0.13223E+00_JPRB /)  
+KB(:, 5,44,10) = (/ &
+ & 0.78865E-02_JPRB,0.16678E+00_JPRB,0.21196E+00_JPRB,0.21896E+00_JPRB,0.14947E+00_JPRB /)  
+KB(:, 1,45,10) = (/ &
+ & 0.28724E-02_JPRB,0.87295E-01_JPRB,0.11671E+00_JPRB,0.12114E+00_JPRB,0.78089E-01_JPRB /)  
+KB(:, 2,45,10) = (/ &
+ & 0.34468E-02_JPRB,0.10517E+00_JPRB,0.13765E+00_JPRB,0.14225E+00_JPRB,0.93322E-01_JPRB /)  
+KB(:, 3,45,10) = (/ &
+ & 0.42450E-02_JPRB,0.12371E+00_JPRB,0.15937E+00_JPRB,0.16431E+00_JPRB,0.10950E+00_JPRB /)  
+KB(:, 4,45,10) = (/ &
+ & 0.53608E-02_JPRB,0.14242E+00_JPRB,0.18156E+00_JPRB,0.18727E+00_JPRB,0.12633E+00_JPRB /)  
+KB(:, 5,45,10) = (/ &
+ & 0.69069E-02_JPRB,0.16067E+00_JPRB,0.20420E+00_JPRB,0.21079E+00_JPRB,0.14356E+00_JPRB /)  
+KB(:, 1,46,10) = (/ &
+ & 0.23836E-02_JPRB,0.81023E-01_JPRB,0.10917E+00_JPRB,0.11375E+00_JPRB,0.72722E-01_JPRB /)  
+KB(:, 2,46,10) = (/ &
+ & 0.28929E-02_JPRB,0.98528E-01_JPRB,0.12997E+00_JPRB,0.13446E+00_JPRB,0.87653E-01_JPRB /)  
+KB(:, 3,46,10) = (/ &
+ & 0.35850E-02_JPRB,0.11690E+00_JPRB,0.15139E+00_JPRB,0.15617E+00_JPRB,0.10350E+00_JPRB /)  
+KB(:, 4,46,10) = (/ &
+ & 0.45850E-02_JPRB,0.13564E+00_JPRB,0.17345E+00_JPRB,0.17887E+00_JPRB,0.12014E+00_JPRB /)  
+KB(:, 5,46,10) = (/ &
+ & 0.59899E-02_JPRB,0.15409E+00_JPRB,0.19595E+00_JPRB,0.20220E+00_JPRB,0.13729E+00_JPRB /)  
+KB(:, 1,47,10) = (/ &
+ & 0.19470E-02_JPRB,0.74238E-01_JPRB,0.10082E+00_JPRB,0.10569E+00_JPRB,0.66936E-01_JPRB /)  
+KB(:, 2,47,10) = (/ &
+ & 0.23890E-02_JPRB,0.91244E-01_JPRB,0.12148E+00_JPRB,0.12591E+00_JPRB,0.81479E-01_JPRB /)  
+KB(:, 3,47,10) = (/ &
+ & 0.29827E-02_JPRB,0.10934E+00_JPRB,0.14258E+00_JPRB,0.14724E+00_JPRB,0.96940E-01_JPRB /)  
+KB(:, 4,47,10) = (/ &
+ & 0.38583E-02_JPRB,0.12800E+00_JPRB,0.16447E+00_JPRB,0.16958E+00_JPRB,0.11333E+00_JPRB /)  
+KB(:, 5,47,10) = (/ &
+ & 0.51142E-02_JPRB,0.14666E+00_JPRB,0.18678E+00_JPRB,0.19270E+00_JPRB,0.13028E+00_JPRB /)  
+KB(:, 1,48,10) = (/ &
+ & 0.15861E-02_JPRB,0.67739E-01_JPRB,0.92637E-01_JPRB,0.97854E-01_JPRB,0.61349E-01_JPRB /)  
+KB(:, 2,48,10) = (/ &
+ & 0.19649E-02_JPRB,0.84157E-01_JPRB,0.11305E+00_JPRB,0.11755E+00_JPRB,0.75432E-01_JPRB /)  
+KB(:, 3,48,10) = (/ &
+ & 0.24852E-02_JPRB,0.10189E+00_JPRB,0.13395E+00_JPRB,0.13849E+00_JPRB,0.90556E-01_JPRB /)  
+KB(:, 4,48,10) = (/ &
+ & 0.32371E-02_JPRB,0.12039E+00_JPRB,0.15554E+00_JPRB,0.16041E+00_JPRB,0.10658E+00_JPRB /)  
+KB(:, 5,48,10) = (/ &
+ & 0.43439E-02_JPRB,0.13914E+00_JPRB,0.17770E+00_JPRB,0.18327E+00_JPRB,0.12334E+00_JPRB /)  
+KB(:, 1,49,10) = (/ &
+ & 0.12857E-02_JPRB,0.61441E-01_JPRB,0.84638E-01_JPRB,0.90184E-01_JPRB,0.55928E-01_JPRB /)  
+KB(:, 2,49,10) = (/ &
+ & 0.16127E-02_JPRB,0.77337E-01_JPRB,0.10472E+00_JPRB,0.10945E+00_JPRB,0.69577E-01_JPRB /)  
+KB(:, 3,49,10) = (/ &
+ & 0.20537E-02_JPRB,0.94575E-01_JPRB,0.12545E+00_JPRB,0.12989E+00_JPRB,0.84331E-01_JPRB /)  
+KB(:, 4,49,10) = (/ &
+ & 0.26910E-02_JPRB,0.11284E+00_JPRB,0.14670E+00_JPRB,0.15143E+00_JPRB,0.99981E-01_JPRB /)  
+KB(:, 5,49,10) = (/ &
+ & 0.36640E-02_JPRB,0.13156E+00_JPRB,0.16870E+00_JPRB,0.17395E+00_JPRB,0.11651E+00_JPRB /)  
+KB(:, 1,50,10) = (/ &
+ & 0.10457E-02_JPRB,0.55773E-01_JPRB,0.77388E-01_JPRB,0.83215E-01_JPRB,0.51035E-01_JPRB /)  
+KB(:, 2,50,10) = (/ &
+ & 0.13145E-02_JPRB,0.71139E-01_JPRB,0.96987E-01_JPRB,0.10202E+00_JPRB,0.64279E-01_JPRB /)  
+KB(:, 3,50,10) = (/ &
+ & 0.17051E-02_JPRB,0.87902E-01_JPRB,0.11756E+00_JPRB,0.12199E+00_JPRB,0.78626E-01_JPRB /)  
+KB(:, 4,50,10) = (/ &
+ & 0.22648E-02_JPRB,0.10582E+00_JPRB,0.13854E+00_JPRB,0.14317E+00_JPRB,0.93933E-01_JPRB /)  
+KB(:, 5,50,10) = (/ &
+ & 0.31061E-02_JPRB,0.12442E+00_JPRB,0.16033E+00_JPRB,0.16532E+00_JPRB,0.11017E+00_JPRB /)  
+KB(:, 1,51,10) = (/ &
+ & 0.84549E-03_JPRB,0.50472E-01_JPRB,0.70528E-01_JPRB,0.76615E-01_JPRB,0.46420E-01_JPRB /)  
+KB(:, 2,51,10) = (/ &
+ & 0.10690E-02_JPRB,0.65329E-01_JPRB,0.89631E-01_JPRB,0.94967E-01_JPRB,0.59271E-01_JPRB /)  
+KB(:, 3,51,10) = (/ &
+ & 0.14006E-02_JPRB,0.81572E-01_JPRB,0.10994E+00_JPRB,0.11450E+00_JPRB,0.73207E-01_JPRB /)  
+KB(:, 4,51,10) = (/ &
+ & 0.18893E-02_JPRB,0.99123E-01_JPRB,0.13077E+00_JPRB,0.13529E+00_JPRB,0.88203E-01_JPRB /)  
+KB(:, 5,51,10) = (/ &
+ & 0.26211E-02_JPRB,0.11756E+00_JPRB,0.15226E+00_JPRB,0.15707E+00_JPRB,0.10410E+00_JPRB /)  
+KB(:, 1,52,10) = (/ &
+ & 0.67948E-03_JPRB,0.45452E-01_JPRB,0.63925E-01_JPRB,0.70191E-01_JPRB,0.41984E-01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART27',1,ZHOOK_HANDLE)
+END SUBROUTINE PART27
+
+
+SUBROUTINE PART28
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART28',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,52,10) = (/ &
+ & 0.86532E-03_JPRB,0.59697E-01_JPRB,0.82454E-01_JPRB,0.88085E-01_JPRB,0.54427E-01_JPRB /)  
+KB(:, 3,52,10) = (/ &
+ & 0.11431E-02_JPRB,0.75434E-01_JPRB,0.10239E+00_JPRB,0.10721E+00_JPRB,0.67964E-01_JPRB /)  
+KB(:, 4,52,10) = (/ &
+ & 0.15771E-02_JPRB,0.92585E-01_JPRB,0.12313E+00_JPRB,0.12757E+00_JPRB,0.82618E-01_JPRB /)  
+KB(:, 5,52,10) = (/ &
+ & 0.22169E-02_JPRB,0.11074E+00_JPRB,0.14429E+00_JPRB,0.14899E+00_JPRB,0.98166E-01_JPRB /)  
+KB(:, 1,53,10) = (/ &
+ & 0.54404E-03_JPRB,0.40689E-01_JPRB,0.57565E-01_JPRB,0.63870E-01_JPRB,0.37709E-01_JPRB /)  
+KB(:, 2,53,10) = (/ &
+ & 0.69516E-03_JPRB,0.54249E-01_JPRB,0.75469E-01_JPRB,0.81366E-01_JPRB,0.49728E-01_JPRB /)  
+KB(:, 3,53,10) = (/ &
+ & 0.92495E-03_JPRB,0.69505E-01_JPRB,0.94951E-01_JPRB,0.10007E+00_JPRB,0.62880E-01_JPRB /)  
+KB(:, 4,53,10) = (/ &
+ & 0.12935E-02_JPRB,0.86139E-01_JPRB,0.11548E+00_JPRB,0.11993E+00_JPRB,0.77126E-01_JPRB /)  
+KB(:, 5,53,10) = (/ &
+ & 0.18603E-02_JPRB,0.10397E+00_JPRB,0.13641E+00_JPRB,0.14102E+00_JPRB,0.92352E-01_JPRB /)  
+KB(:, 1,54,10) = (/ &
+ & 0.43618E-03_JPRB,0.36557E-01_JPRB,0.51984E-01_JPRB,0.58236E-01_JPRB,0.33960E-01_JPRB /)  
+KB(:, 2,54,10) = (/ &
+ & 0.56166E-03_JPRB,0.49456E-01_JPRB,0.69241E-01_JPRB,0.75371E-01_JPRB,0.45540E-01_JPRB /)  
+KB(:, 3,54,10) = (/ &
+ & 0.75035E-03_JPRB,0.64217E-01_JPRB,0.88252E-01_JPRB,0.93648E-01_JPRB,0.58325E-01_JPRB /)  
+KB(:, 4,54,10) = (/ &
+ & 0.10628E-02_JPRB,0.80385E-01_JPRB,0.10853E+00_JPRB,0.11313E+00_JPRB,0.72201E-01_JPRB /)  
+KB(:, 5,54,10) = (/ &
+ & 0.15600E-02_JPRB,0.97867E-01_JPRB,0.12933E+00_JPRB,0.13384E+00_JPRB,0.87138E-01_JPRB /)  
+KB(:, 1,55,10) = (/ &
+ & 0.34930E-03_JPRB,0.32793E-01_JPRB,0.46881E-01_JPRB,0.52981E-01_JPRB,0.30517E-01_JPRB /)  
+KB(:, 2,55,10) = (/ &
+ & 0.45330E-03_JPRB,0.45087E-01_JPRB,0.63469E-01_JPRB,0.69744E-01_JPRB,0.41669E-01_JPRB /)  
+KB(:, 3,55,10) = (/ &
+ & 0.61016E-03_JPRB,0.59300E-01_JPRB,0.81969E-01_JPRB,0.87622E-01_JPRB,0.54097E-01_JPRB /)  
+KB(:, 4,55,10) = (/ &
+ & 0.87186E-03_JPRB,0.75017E-01_JPRB,0.10190E+00_JPRB,0.10674E+00_JPRB,0.67613E-01_JPRB /)  
+KB(:, 5,55,10) = (/ &
+ & 0.13255E-02_JPRB,0.92144E-01_JPRB,0.12263E+00_JPRB,0.12707E+00_JPRB,0.82251E-01_JPRB /)  
+KB(:, 1,56,10) = (/ &
+ & 0.27869E-03_JPRB,0.29255E-01_JPRB,0.42021E-01_JPRB,0.47895E-01_JPRB,0.27250E-01_JPRB /)  
+KB(:, 2,56,10) = (/ &
+ & 0.36450E-03_JPRB,0.40920E-01_JPRB,0.57903E-01_JPRB,0.64209E-01_JPRB,0.37931E-01_JPRB /)  
+KB(:, 3,56,10) = (/ &
+ & 0.49136E-03_JPRB,0.54534E-01_JPRB,0.75862E-01_JPRB,0.81747E-01_JPRB,0.49990E-01_JPRB /)  
+KB(:, 4,56,10) = (/ &
+ & 0.71172E-03_JPRB,0.69828E-01_JPRB,0.95390E-01_JPRB,0.10049E+00_JPRB,0.63168E-01_JPRB /)  
+KB(:, 5,56,10) = (/ &
+ & 0.11017E-02_JPRB,0.86502E-01_JPRB,0.11594E+00_JPRB,0.12039E+00_JPRB,0.77442E-01_JPRB /)  
+KB(:, 1,57,10) = (/ &
+ & 0.22107E-03_JPRB,0.25925E-01_JPRB,0.37436E-01_JPRB,0.42992E-01_JPRB,0.24134E-01_JPRB /)  
+KB(:, 2,57,10) = (/ &
+ & 0.29170E-03_JPRB,0.36963E-01_JPRB,0.52553E-01_JPRB,0.58819E-01_JPRB,0.34341E-01_JPRB /)  
+KB(:, 3,57,10) = (/ &
+ & 0.39477E-03_JPRB,0.49943E-01_JPRB,0.69900E-01_JPRB,0.76011E-01_JPRB,0.45979E-01_JPRB /)  
+KB(:, 4,57,10) = (/ &
+ & 0.57598E-03_JPRB,0.64771E-01_JPRB,0.88986E-01_JPRB,0.94351E-01_JPRB,0.58814E-01_JPRB /)  
+KB(:, 5,57,10) = (/ &
+ & 0.90995E-03_JPRB,0.80998E-01_JPRB,0.10929E+00_JPRB,0.11387E+00_JPRB,0.72731E-01_JPRB /)  
+KB(:, 1,58,10) = (/ &
+ & 0.17561E-03_JPRB,0.22952E-01_JPRB,0.33334E-01_JPRB,0.38531E-01_JPRB,0.21328E-01_JPRB /)  
+KB(:, 2,58,10) = (/ &
+ & 0.23328E-03_JPRB,0.33378E-01_JPRB,0.47700E-01_JPRB,0.53835E-01_JPRB,0.31067E-01_JPRB /)  
+KB(:, 3,58,10) = (/ &
+ & 0.31697E-03_JPRB,0.45784E-01_JPRB,0.64416E-01_JPRB,0.70683E-01_JPRB,0.42303E-01_JPRB /)  
+KB(:, 4,58,10) = (/ &
+ & 0.46537E-03_JPRB,0.60108E-01_JPRB,0.83029E-01_JPRB,0.88636E-01_JPRB,0.54797E-01_JPRB /)  
+KB(:, 5,58,10) = (/ &
+ & 0.74786E-03_JPRB,0.75908E-01_JPRB,0.10302E+00_JPRB,0.10782E+00_JPRB,0.68377E-01_JPRB /)  
+KB(:, 1,59,10) = (/ &
+ & 0.14648E-03_JPRB,0.21806E-01_JPRB,0.31752E-01_JPRB,0.36796E-01_JPRB,0.20240E-01_JPRB /)  
+KB(:, 2,59,10) = (/ &
+ & 0.19618E-03_JPRB,0.31995E-01_JPRB,0.45805E-01_JPRB,0.51875E-01_JPRB,0.29797E-01_JPRB /)  
+KB(:, 3,59,10) = (/ &
+ & 0.27063E-03_JPRB,0.44166E-01_JPRB,0.62268E-01_JPRB,0.68564E-01_JPRB,0.40859E-01_JPRB /)  
+KB(:, 4,59,10) = (/ &
+ & 0.40629E-03_JPRB,0.58271E-01_JPRB,0.80681E-01_JPRB,0.86380E-01_JPRB,0.53223E-01_JPRB /)  
+KB(:, 5,59,10) = (/ &
+ & 0.67143E-03_JPRB,0.73904E-01_JPRB,0.10053E+00_JPRB,0.10542E+00_JPRB,0.66665E-01_JPRB /)  
+KB(:, 1,13,11) = (/ &
+ & 0.43607E+00_JPRB,0.62808E+00_JPRB,0.71724E+00_JPRB,0.73315E+00_JPRB,0.60101E+00_JPRB /)  
+KB(:, 2,13,11) = (/ &
+ & 0.43332E+00_JPRB,0.62604E+00_JPRB,0.71980E+00_JPRB,0.74002E+00_JPRB,0.61186E+00_JPRB /)  
+KB(:, 3,13,11) = (/ &
+ & 0.43924E+00_JPRB,0.62431E+00_JPRB,0.72116E+00_JPRB,0.74635E+00_JPRB,0.62343E+00_JPRB /)  
+KB(:, 4,13,11) = (/ &
+ & 0.44984E+00_JPRB,0.62482E+00_JPRB,0.72168E+00_JPRB,0.75298E+00_JPRB,0.63261E+00_JPRB /)  
+KB(:, 5,13,11) = (/ &
+ & 0.46047E+00_JPRB,0.63112E+00_JPRB,0.72222E+00_JPRB,0.75987E+00_JPRB,0.64021E+00_JPRB /)  
+KB(:, 1,14,11) = (/ &
+ & 0.38105E+00_JPRB,0.57533E+00_JPRB,0.67001E+00_JPRB,0.68808E+00_JPRB,0.55899E+00_JPRB /)  
+KB(:, 2,14,11) = (/ &
+ & 0.38509E+00_JPRB,0.57518E+00_JPRB,0.67285E+00_JPRB,0.69660E+00_JPRB,0.57227E+00_JPRB /)  
+KB(:, 3,14,11) = (/ &
+ & 0.39449E+00_JPRB,0.57649E+00_JPRB,0.67532E+00_JPRB,0.70510E+00_JPRB,0.58361E+00_JPRB /)  
+KB(:, 4,14,11) = (/ &
+ & 0.40382E+00_JPRB,0.58297E+00_JPRB,0.67784E+00_JPRB,0.71417E+00_JPRB,0.59305E+00_JPRB /)  
+KB(:, 5,14,11) = (/ &
+ & 0.41367E+00_JPRB,0.59430E+00_JPRB,0.68136E+00_JPRB,0.72200E+00_JPRB,0.60202E+00_JPRB /)  
+KB(:, 1,15,11) = (/ &
+ & 0.33634E+00_JPRB,0.52577E+00_JPRB,0.62172E+00_JPRB,0.64383E+00_JPRB,0.51752E+00_JPRB /)  
+KB(:, 2,15,11) = (/ &
+ & 0.34434E+00_JPRB,0.52795E+00_JPRB,0.62601E+00_JPRB,0.65389E+00_JPRB,0.53138E+00_JPRB /)  
+KB(:, 3,15,11) = (/ &
+ & 0.35278E+00_JPRB,0.53440E+00_JPRB,0.63064E+00_JPRB,0.66483E+00_JPRB,0.54288E+00_JPRB /)  
+KB(:, 4,15,11) = (/ &
+ & 0.36194E+00_JPRB,0.54564E+00_JPRB,0.63643E+00_JPRB,0.67473E+00_JPRB,0.55371E+00_JPRB /)  
+KB(:, 5,15,11) = (/ &
+ & 0.37392E+00_JPRB,0.55836E+00_JPRB,0.64562E+00_JPRB,0.68317E+00_JPRB,0.56497E+00_JPRB /)  
+KB(:, 1,16,11) = (/ &
+ & 0.29938E+00_JPRB,0.48063E+00_JPRB,0.57442E+00_JPRB,0.60090E+00_JPRB,0.47563E+00_JPRB /)  
+KB(:, 2,16,11) = (/ &
+ & 0.30677E+00_JPRB,0.48684E+00_JPRB,0.58100E+00_JPRB,0.61362E+00_JPRB,0.49008E+00_JPRB /)  
+KB(:, 3,16,11) = (/ &
+ & 0.31495E+00_JPRB,0.49797E+00_JPRB,0.58852E+00_JPRB,0.62578E+00_JPRB,0.50309E+00_JPRB /)  
+KB(:, 4,16,11) = (/ &
+ & 0.32635E+00_JPRB,0.51101E+00_JPRB,0.59933E+00_JPRB,0.63613E+00_JPRB,0.51641E+00_JPRB /)  
+KB(:, 5,16,11) = (/ &
+ & 0.34098E+00_JPRB,0.52383E+00_JPRB,0.61318E+00_JPRB,0.64534E+00_JPRB,0.52976E+00_JPRB /)  
+KB(:, 1,17,11) = (/ &
+ & 0.26573E+00_JPRB,0.44123E+00_JPRB,0.53003E+00_JPRB,0.56054E+00_JPRB,0.43533E+00_JPRB /)  
+KB(:, 2,17,11) = (/ &
+ & 0.27295E+00_JPRB,0.45155E+00_JPRB,0.53872E+00_JPRB,0.57479E+00_JPRB,0.45023E+00_JPRB /)  
+KB(:, 3,17,11) = (/ &
+ & 0.28334E+00_JPRB,0.46499E+00_JPRB,0.55060E+00_JPRB,0.58775E+00_JPRB,0.46535E+00_JPRB /)  
+KB(:, 4,17,11) = (/ &
+ & 0.29718E+00_JPRB,0.47854E+00_JPRB,0.56610E+00_JPRB,0.59925E+00_JPRB,0.48105E+00_JPRB /)  
+KB(:, 5,17,11) = (/ &
+ & 0.31347E+00_JPRB,0.49215E+00_JPRB,0.58364E+00_JPRB,0.61031E+00_JPRB,0.49645E+00_JPRB /)  
+KB(:, 1,18,11) = (/ &
+ & 0.23548E+00_JPRB,0.40722E+00_JPRB,0.48899E+00_JPRB,0.52175E+00_JPRB,0.39754E+00_JPRB /)  
+KB(:, 2,18,11) = (/ &
+ & 0.24465E+00_JPRB,0.42091E+00_JPRB,0.50155E+00_JPRB,0.53754E+00_JPRB,0.41400E+00_JPRB /)  
+KB(:, 3,18,11) = (/ &
+ & 0.25717E+00_JPRB,0.43494E+00_JPRB,0.51756E+00_JPRB,0.55168E+00_JPRB,0.43132E+00_JPRB /)  
+KB(:, 4,18,11) = (/ &
+ & 0.27241E+00_JPRB,0.44915E+00_JPRB,0.53619E+00_JPRB,0.56524E+00_JPRB,0.44875E+00_JPRB /)  
+KB(:, 5,18,11) = (/ &
+ & 0.28792E+00_JPRB,0.46398E+00_JPRB,0.55551E+00_JPRB,0.57930E+00_JPRB,0.46590E+00_JPRB /)  
+KB(:, 1,19,11) = (/ &
+ & 0.20944E+00_JPRB,0.37826E+00_JPRB,0.45234E+00_JPRB,0.48406E+00_JPRB,0.36392E+00_JPRB /)  
+KB(:, 2,19,11) = (/ &
+ & 0.22089E+00_JPRB,0.39288E+00_JPRB,0.46903E+00_JPRB,0.50178E+00_JPRB,0.38211E+00_JPRB /)  
+KB(:, 3,19,11) = (/ &
+ & 0.23514E+00_JPRB,0.40761E+00_JPRB,0.48827E+00_JPRB,0.51821E+00_JPRB,0.40103E+00_JPRB /)  
+KB(:, 4,19,11) = (/ &
+ & 0.24973E+00_JPRB,0.42303E+00_JPRB,0.50894E+00_JPRB,0.53472E+00_JPRB,0.42003E+00_JPRB /)  
+KB(:, 5,19,11) = (/ &
+ & 0.26400E+00_JPRB,0.44033E+00_JPRB,0.52950E+00_JPRB,0.55236E+00_JPRB,0.43892E+00_JPRB /)  
+KB(:, 1,20,11) = (/ &
+ & 0.18773E+00_JPRB,0.35288E+00_JPRB,0.42094E+00_JPRB,0.44918E+00_JPRB,0.33536E+00_JPRB /)  
+KB(:, 2,20,11) = (/ &
+ & 0.20090E+00_JPRB,0.36792E+00_JPRB,0.44069E+00_JPRB,0.46887E+00_JPRB,0.35493E+00_JPRB /)  
+KB(:, 3,20,11) = (/ &
+ & 0.21482E+00_JPRB,0.38362E+00_JPRB,0.46266E+00_JPRB,0.48831E+00_JPRB,0.37530E+00_JPRB /)  
+KB(:, 4,20,11) = (/ &
+ & 0.22865E+00_JPRB,0.40117E+00_JPRB,0.48452E+00_JPRB,0.50881E+00_JPRB,0.39557E+00_JPRB /)  
+KB(:, 5,20,11) = (/ &
+ & 0.24234E+00_JPRB,0.42087E+00_JPRB,0.50657E+00_JPRB,0.53012E+00_JPRB,0.41595E+00_JPRB /)  
+KB(:, 1,21,11) = (/ &
+ & 0.16913E+00_JPRB,0.33019E+00_JPRB,0.39388E+00_JPRB,0.41795E+00_JPRB,0.31127E+00_JPRB /)  
+KB(:, 2,21,11) = (/ &
+ & 0.18253E+00_JPRB,0.34600E+00_JPRB,0.41645E+00_JPRB,0.43947E+00_JPRB,0.33210E+00_JPRB /)  
+KB(:, 3,21,11) = (/ &
+ & 0.19592E+00_JPRB,0.36350E+00_JPRB,0.43977E+00_JPRB,0.46279E+00_JPRB,0.35347E+00_JPRB /)  
+KB(:, 4,21,11) = (/ &
+ & 0.20921E+00_JPRB,0.38317E+00_JPRB,0.46337E+00_JPRB,0.48719E+00_JPRB,0.37483E+00_JPRB /)  
+KB(:, 5,21,11) = (/ &
+ & 0.22258E+00_JPRB,0.40476E+00_JPRB,0.48708E+00_JPRB,0.51206E+00_JPRB,0.39691E+00_JPRB /)  
+KB(:, 1,22,11) = (/ &
+ & 0.15329E+00_JPRB,0.31121E+00_JPRB,0.37219E+00_JPRB,0.39211E+00_JPRB,0.29266E+00_JPRB /)  
+KB(:, 2,22,11) = (/ &
+ & 0.16615E+00_JPRB,0.32878E+00_JPRB,0.39682E+00_JPRB,0.41672E+00_JPRB,0.31445E+00_JPRB /)  
+KB(:, 3,22,11) = (/ &
+ & 0.17924E+00_JPRB,0.34835E+00_JPRB,0.42167E+00_JPRB,0.44342E+00_JPRB,0.33660E+00_JPRB /)  
+KB(:, 4,22,11) = (/ &
+ & 0.19225E+00_JPRB,0.36990E+00_JPRB,0.44699E+00_JPRB,0.47133E+00_JPRB,0.35944E+00_JPRB /)  
+KB(:, 5,22,11) = (/ &
+ & 0.20541E+00_JPRB,0.39323E+00_JPRB,0.47271E+00_JPRB,0.49943E+00_JPRB,0.38308E+00_JPRB /)  
+KB(:, 1,23,11) = (/ &
+ & 0.13887E+00_JPRB,0.29534E+00_JPRB,0.35451E+00_JPRB,0.37144E+00_JPRB,0.27763E+00_JPRB /)  
+KB(:, 2,23,11) = (/ &
+ & 0.15131E+00_JPRB,0.31502E+00_JPRB,0.38068E+00_JPRB,0.39927E+00_JPRB,0.30013E+00_JPRB /)  
+KB(:, 3,23,11) = (/ &
+ & 0.16398E+00_JPRB,0.33651E+00_JPRB,0.40726E+00_JPRB,0.42913E+00_JPRB,0.32331E+00_JPRB /)  
+KB(:, 4,23,11) = (/ &
+ & 0.17699E+00_JPRB,0.35967E+00_JPRB,0.43436E+00_JPRB,0.45990E+00_JPRB,0.34758E+00_JPRB /)  
+KB(:, 5,23,11) = (/ &
+ & 0.19026E+00_JPRB,0.38467E+00_JPRB,0.46223E+00_JPRB,0.49074E+00_JPRB,0.37282E+00_JPRB /)  
+KB(:, 1,24,11) = (/ &
+ & 0.12585E+00_JPRB,0.28281E+00_JPRB,0.34015E+00_JPRB,0.35619E+00_JPRB,0.26580E+00_JPRB /)  
+KB(:, 2,24,11) = (/ &
+ & 0.13791E+00_JPRB,0.30436E+00_JPRB,0.36812E+00_JPRB,0.38675E+00_JPRB,0.28903E+00_JPRB /)  
+KB(:, 3,24,11) = (/ &
+ & 0.15049E+00_JPRB,0.32769E+00_JPRB,0.39648E+00_JPRB,0.41925E+00_JPRB,0.31342E+00_JPRB /)  
+KB(:, 4,24,11) = (/ &
+ & 0.16367E+00_JPRB,0.35256E+00_JPRB,0.42575E+00_JPRB,0.45270E+00_JPRB,0.33923E+00_JPRB /)  
+KB(:, 5,24,11) = (/ &
+ & 0.17705E+00_JPRB,0.37855E+00_JPRB,0.45558E+00_JPRB,0.48562E+00_JPRB,0.36598E+00_JPRB /)  
+KB(:, 1,25,11) = (/ &
+ & 0.11440E+00_JPRB,0.27340E+00_JPRB,0.32939E+00_JPRB,0.34570E+00_JPRB,0.25676E+00_JPRB /)  
+KB(:, 2,25,11) = (/ &
+ & 0.12619E+00_JPRB,0.29667E+00_JPRB,0.35918E+00_JPRB,0.37882E+00_JPRB,0.28103E+00_JPRB /)  
+KB(:, 3,25,11) = (/ &
+ & 0.13880E+00_JPRB,0.32182E+00_JPRB,0.38965E+00_JPRB,0.41370E+00_JPRB,0.30678E+00_JPRB /)  
+KB(:, 4,25,11) = (/ &
+ & 0.15209E+00_JPRB,0.34806E+00_JPRB,0.42076E+00_JPRB,0.44907E+00_JPRB,0.33404E+00_JPRB /)  
+KB(:, 5,25,11) = (/ &
+ & 0.16564E+00_JPRB,0.37478E+00_JPRB,0.45238E+00_JPRB,0.48364E+00_JPRB,0.36209E+00_JPRB /)  
+KB(:, 1,26,11) = (/ &
+ & 0.10459E+00_JPRB,0.26698E+00_JPRB,0.32246E+00_JPRB,0.33976E+00_JPRB,0.25076E+00_JPRB /)  
+KB(:, 2,26,11) = (/ &
+ & 0.11626E+00_JPRB,0.29209E+00_JPRB,0.35422E+00_JPRB,0.37512E+00_JPRB,0.27618E+00_JPRB /)  
+KB(:, 3,26,11) = (/ &
+ & 0.12895E+00_JPRB,0.31885E+00_JPRB,0.38669E+00_JPRB,0.41203E+00_JPRB,0.30332E+00_JPRB /)  
+KB(:, 4,26,11) = (/ &
+ & 0.14230E+00_JPRB,0.34607E+00_JPRB,0.41933E+00_JPRB,0.44889E+00_JPRB,0.33190E+00_JPRB /)  
+KB(:, 5,26,11) = (/ &
+ & 0.15605E+00_JPRB,0.37346E+00_JPRB,0.45243E+00_JPRB,0.48462E+00_JPRB,0.36103E+00_JPRB /)  
+KB(:, 1,27,11) = (/ &
+ & 0.96118E-01_JPRB,0.26319E+00_JPRB,0.31888E+00_JPRB,0.33748E+00_JPRB,0.24718E+00_JPRB /)  
+KB(:, 2,27,11) = (/ &
+ & 0.10777E+00_JPRB,0.29006E+00_JPRB,0.35247E+00_JPRB,0.37471E+00_JPRB,0.27379E+00_JPRB /)  
+KB(:, 3,27,11) = (/ &
+ & 0.12054E+00_JPRB,0.31789E+00_JPRB,0.38657E+00_JPRB,0.41315E+00_JPRB,0.30239E+00_JPRB /)  
+KB(:, 4,27,11) = (/ &
+ & 0.13403E+00_JPRB,0.34597E+00_JPRB,0.42050E+00_JPRB,0.45108E+00_JPRB,0.33196E+00_JPRB /)  
+KB(:, 5,27,11) = (/ &
+ & 0.14803E+00_JPRB,0.37409E+00_JPRB,0.45469E+00_JPRB,0.48753E+00_JPRB,0.36202E+00_JPRB /)  
+KB(:, 1,28,11) = (/ &
+ & 0.88934E-01_JPRB,0.26189E+00_JPRB,0.31824E+00_JPRB,0.33815E+00_JPRB,0.24575E+00_JPRB /)  
+KB(:, 2,28,11) = (/ &
+ & 0.10066E+00_JPRB,0.29004E+00_JPRB,0.35339E+00_JPRB,0.37699E+00_JPRB,0.27368E+00_JPRB /)  
+KB(:, 3,28,11) = (/ &
+ & 0.11346E+00_JPRB,0.31878E+00_JPRB,0.38868E+00_JPRB,0.41646E+00_JPRB,0.30334E+00_JPRB /)  
+KB(:, 4,28,11) = (/ &
+ & 0.12719E+00_JPRB,0.34746E+00_JPRB,0.42368E+00_JPRB,0.45510E+00_JPRB,0.33384E+00_JPRB /)  
+KB(:, 5,28,11) = (/ &
+ & 0.14149E+00_JPRB,0.37622E+00_JPRB,0.45856E+00_JPRB,0.49189E+00_JPRB,0.36458E+00_JPRB /)  
+KB(:, 1,29,11) = (/ &
+ & 0.82953E-01_JPRB,0.26276E+00_JPRB,0.32032E+00_JPRB,0.34153E+00_JPRB,0.24649E+00_JPRB /)  
+KB(:, 2,29,11) = (/ &
+ & 0.94812E-01_JPRB,0.29186E+00_JPRB,0.35678E+00_JPRB,0.38153E+00_JPRB,0.27563E+00_JPRB /)  
+KB(:, 3,29,11) = (/ &
+ & 0.10778E+00_JPRB,0.32138E+00_JPRB,0.39278E+00_JPRB,0.42163E+00_JPRB,0.30623E+00_JPRB /)  
+KB(:, 4,29,11) = (/ &
+ & 0.12182E+00_JPRB,0.35053E+00_JPRB,0.42853E+00_JPRB,0.46064E+00_JPRB,0.33743E+00_JPRB /)  
+KB(:, 5,29,11) = (/ &
+ & 0.13655E+00_JPRB,0.37990E+00_JPRB,0.46387E+00_JPRB,0.49754E+00_JPRB,0.36866E+00_JPRB /)  
+KB(:, 1,30,11) = (/ &
+ & 0.78111E-01_JPRB,0.26530E+00_JPRB,0.32451E+00_JPRB,0.34680E+00_JPRB,0.24893E+00_JPRB /)  
+KB(:, 2,30,11) = (/ &
+ & 0.90075E-01_JPRB,0.29517E+00_JPRB,0.36183E+00_JPRB,0.38763E+00_JPRB,0.27915E+00_JPRB /)  
+KB(:, 3,30,11) = (/ &
+ & 0.10336E+00_JPRB,0.32522E+00_JPRB,0.39838E+00_JPRB,0.42809E+00_JPRB,0.31046E+00_JPRB /)  
+KB(:, 4,30,11) = (/ &
+ & 0.11787E+00_JPRB,0.35483E+00_JPRB,0.43455E+00_JPRB,0.46718E+00_JPRB,0.34218E+00_JPRB /)  
+KB(:, 5,30,11) = (/ &
+ & 0.13307E+00_JPRB,0.38452E+00_JPRB,0.47003E+00_JPRB,0.50395E+00_JPRB,0.37368E+00_JPRB /)  
+KB(:, 1,31,11) = (/ &
+ & 0.74235E-01_JPRB,0.26927E+00_JPRB,0.33033E+00_JPRB,0.35368E+00_JPRB,0.25294E+00_JPRB /)  
+KB(:, 2,31,11) = (/ &
+ & 0.86475E-01_JPRB,0.29980E+00_JPRB,0.36814E+00_JPRB,0.39505E+00_JPRB,0.28398E+00_JPRB /)  
+KB(:, 3,31,11) = (/ &
+ & 0.10025E+00_JPRB,0.33020E+00_JPRB,0.40500E+00_JPRB,0.43563E+00_JPRB,0.31586E+00_JPRB /)  
+KB(:, 4,31,11) = (/ &
+ & 0.11530E+00_JPRB,0.36008E+00_JPRB,0.44151E+00_JPRB,0.47461E+00_JPRB,0.34790E+00_JPRB /)  
+KB(:, 5,31,11) = (/ &
+ & 0.13103E+00_JPRB,0.38989E+00_JPRB,0.47695E+00_JPRB,0.51108E+00_JPRB,0.37953E+00_JPRB /)  
+KB(:, 1,32,11) = (/ &
+ & 0.71362E-01_JPRB,0.27445E+00_JPRB,0.33748E+00_JPRB,0.36171E+00_JPRB,0.25820E+00_JPRB /)  
+KB(:, 2,32,11) = (/ &
+ & 0.84060E-01_JPRB,0.30547E+00_JPRB,0.37545E+00_JPRB,0.40335E+00_JPRB,0.28988E+00_JPRB /)  
+KB(:, 3,32,11) = (/ &
+ & 0.98456E-01_JPRB,0.33600E+00_JPRB,0.41253E+00_JPRB,0.44393E+00_JPRB,0.32217E+00_JPRB /)  
+KB(:, 4,32,11) = (/ &
+ & 0.11408E+00_JPRB,0.36612E+00_JPRB,0.44914E+00_JPRB,0.48266E+00_JPRB,0.35443E+00_JPRB /)  
+KB(:, 5,32,11) = (/ &
+ & 0.13035E+00_JPRB,0.39590E+00_JPRB,0.48448E+00_JPRB,0.51873E+00_JPRB,0.38602E+00_JPRB /)  
+KB(:, 1,33,11) = (/ &
+ & 0.69437E-01_JPRB,0.28056E+00_JPRB,0.34548E+00_JPRB,0.37055E+00_JPRB,0.26439E+00_JPRB /)  
+KB(:, 2,33,11) = (/ &
+ & 0.82778E-01_JPRB,0.31179E+00_JPRB,0.38345E+00_JPRB,0.41222E+00_JPRB,0.29653E+00_JPRB /)  
+KB(:, 3,33,11) = (/ &
+ & 0.97818E-01_JPRB,0.34234E+00_JPRB,0.42058E+00_JPRB,0.45271E+00_JPRB,0.32902E+00_JPRB /)  
+KB(:, 4,33,11) = (/ &
+ & 0.11406E+00_JPRB,0.37264E+00_JPRB,0.45719E+00_JPRB,0.49102E+00_JPRB,0.36138E+00_JPRB /)  
+KB(:, 5,33,11) = (/ &
+ & 0.13083E+00_JPRB,0.40228E+00_JPRB,0.49234E+00_JPRB,0.52669E+00_JPRB,0.39293E+00_JPRB /)  
+KB(:, 1,34,11) = (/ &
+ & 0.68001E-01_JPRB,0.28611E+00_JPRB,0.35258E+00_JPRB,0.37843E+00_JPRB,0.27007E+00_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART28',1,ZHOOK_HANDLE)
+END SUBROUTINE PART28
+
+
+SUBROUTINE PART29
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART29',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,34,11) = (/ &
+ & 0.82015E-01_JPRB,0.31742E+00_JPRB,0.39059E+00_JPRB,0.42007E+00_JPRB,0.30253E+00_JPRB /)  
+KB(:, 3,34,11) = (/ &
+ & 0.97684E-01_JPRB,0.34800E+00_JPRB,0.42777E+00_JPRB,0.46038E+00_JPRB,0.33518E+00_JPRB /)  
+KB(:, 4,34,11) = (/ &
+ & 0.11453E+00_JPRB,0.37836E+00_JPRB,0.46423E+00_JPRB,0.49832E+00_JPRB,0.36754E+00_JPRB /)  
+KB(:, 5,34,11) = (/ &
+ & 0.13165E+00_JPRB,0.40799E+00_JPRB,0.49927E+00_JPRB,0.53358E+00_JPRB,0.39902E+00_JPRB /)  
+KB(:, 1,35,11) = (/ &
+ & 0.66173E-01_JPRB,0.28901E+00_JPRB,0.35634E+00_JPRB,0.38261E+00_JPRB,0.27305E+00_JPRB /)  
+KB(:, 2,35,11) = (/ &
+ & 0.80679E-01_JPRB,0.32036E+00_JPRB,0.39443E+00_JPRB,0.42428E+00_JPRB,0.30572E+00_JPRB /)  
+KB(:, 3,35,11) = (/ &
+ & 0.96839E-01_JPRB,0.35097E+00_JPRB,0.43164E+00_JPRB,0.46448E+00_JPRB,0.33845E+00_JPRB /)  
+KB(:, 4,35,11) = (/ &
+ & 0.11412E+00_JPRB,0.38139E+00_JPRB,0.46804E+00_JPRB,0.50225E+00_JPRB,0.37079E+00_JPRB /)  
+KB(:, 5,35,11) = (/ &
+ & 0.13154E+00_JPRB,0.41104E+00_JPRB,0.50302E+00_JPRB,0.53730E+00_JPRB,0.40230E+00_JPRB /)  
+KB(:, 1,36,11) = (/ &
+ & 0.63512E-01_JPRB,0.28876E+00_JPRB,0.35615E+00_JPRB,0.38246E+00_JPRB,0.27277E+00_JPRB /)  
+KB(:, 2,36,11) = (/ &
+ & 0.78322E-01_JPRB,0.32017E+00_JPRB,0.39440E+00_JPRB,0.42423E+00_JPRB,0.30554E+00_JPRB /)  
+KB(:, 3,36,11) = (/ &
+ & 0.94792E-01_JPRB,0.35084E+00_JPRB,0.43169E+00_JPRB,0.46451E+00_JPRB,0.33835E+00_JPRB /)  
+KB(:, 4,36,11) = (/ &
+ & 0.11239E+00_JPRB,0.38129E+00_JPRB,0.46814E+00_JPRB,0.50234E+00_JPRB,0.37075E+00_JPRB /)  
+KB(:, 5,36,11) = (/ &
+ & 0.13007E+00_JPRB,0.41105E+00_JPRB,0.50318E+00_JPRB,0.53745E+00_JPRB,0.40235E+00_JPRB /)  
+KB(:, 1,37,11) = (/ &
+ & 0.59276E-01_JPRB,0.28388E+00_JPRB,0.35018E+00_JPRB,0.37605E+00_JPRB,0.26777E+00_JPRB /)  
+KB(:, 2,37,11) = (/ &
+ & 0.74070E-01_JPRB,0.31543E+00_JPRB,0.38877E+00_JPRB,0.41809E+00_JPRB,0.30055E+00_JPRB /)  
+KB(:, 3,37,11) = (/ &
+ & 0.90621E-01_JPRB,0.34621E+00_JPRB,0.42622E+00_JPRB,0.45870E+00_JPRB,0.33345E+00_JPRB /)  
+KB(:, 4,37,11) = (/ &
+ & 0.10838E+00_JPRB,0.37677E+00_JPRB,0.46291E+00_JPRB,0.49695E+00_JPRB,0.36598E+00_JPRB /)  
+KB(:, 5,37,11) = (/ &
+ & 0.12629E+00_JPRB,0.40664E+00_JPRB,0.49817E+00_JPRB,0.53255E+00_JPRB,0.39771E+00_JPRB /)  
+KB(:, 1,38,11) = (/ &
+ & 0.55352E-01_JPRB,0.27885E+00_JPRB,0.34399E+00_JPRB,0.36943E+00_JPRB,0.26263E+00_JPRB /)  
+KB(:, 2,38,11) = (/ &
+ & 0.70099E-01_JPRB,0.31053E+00_JPRB,0.38289E+00_JPRB,0.41165E+00_JPRB,0.29537E+00_JPRB /)  
+KB(:, 3,38,11) = (/ &
+ & 0.86674E-01_JPRB,0.34144E+00_JPRB,0.42052E+00_JPRB,0.45261E+00_JPRB,0.32834E+00_JPRB /)  
+KB(:, 4,38,11) = (/ &
+ & 0.10451E+00_JPRB,0.37207E+00_JPRB,0.45745E+00_JPRB,0.49130E+00_JPRB,0.36103E+00_JPRB /)  
+KB(:, 5,38,11) = (/ &
+ & 0.12261E+00_JPRB,0.40208E+00_JPRB,0.49291E+00_JPRB,0.52735E+00_JPRB,0.39288E+00_JPRB /)  
+KB(:, 1,39,11) = (/ &
+ & 0.51830E-01_JPRB,0.27388E+00_JPRB,0.33795E+00_JPRB,0.36294E+00_JPRB,0.25765E+00_JPRB /)  
+KB(:, 2,39,11) = (/ &
+ & 0.66473E-01_JPRB,0.30570E+00_JPRB,0.37709E+00_JPRB,0.40534E+00_JPRB,0.29029E+00_JPRB /)  
+KB(:, 3,39,11) = (/ &
+ & 0.83032E-01_JPRB,0.33678E+00_JPRB,0.41490E+00_JPRB,0.44656E+00_JPRB,0.32332E+00_JPRB /)  
+KB(:, 4,39,11) = (/ &
+ & 0.10089E+00_JPRB,0.36746E+00_JPRB,0.45203E+00_JPRB,0.48569E+00_JPRB,0.35615E+00_JPRB /)  
+KB(:, 5,39,11) = (/ &
+ & 0.11914E+00_JPRB,0.39759E+00_JPRB,0.48773E+00_JPRB,0.52218E+00_JPRB,0.38813E+00_JPRB /)  
+KB(:, 1,40,11) = (/ &
+ & 0.47273E-01_JPRB,0.26566E+00_JPRB,0.32789E+00_JPRB,0.35219E+00_JPRB,0.24948E+00_JPRB /)  
+KB(:, 2,40,11) = (/ &
+ & 0.61538E-01_JPRB,0.29768E+00_JPRB,0.36730E+00_JPRB,0.39473E+00_JPRB,0.28193E+00_JPRB /)  
+KB(:, 3,40,11) = (/ &
+ & 0.77858E-01_JPRB,0.32903E+00_JPRB,0.40551E+00_JPRB,0.43635E+00_JPRB,0.31499E+00_JPRB /)  
+KB(:, 4,40,11) = (/ &
+ & 0.95580E-01_JPRB,0.35975E+00_JPRB,0.44288E+00_JPRB,0.47617E+00_JPRB,0.34794E+00_JPRB /)  
+KB(:, 5,40,11) = (/ &
+ & 0.11394E+00_JPRB,0.39008E+00_JPRB,0.47900E+00_JPRB,0.51333E+00_JPRB,0.38020E+00_JPRB /)  
+KB(:, 1,41,11) = (/ &
+ & 0.42888E-01_JPRB,0.25708E+00_JPRB,0.31732E+00_JPRB,0.34096E+00_JPRB,0.24098E+00_JPRB /)  
+KB(:, 2,41,11) = (/ &
+ & 0.56697E-01_JPRB,0.28927E+00_JPRB,0.35696E+00_JPRB,0.38355E+00_JPRB,0.27327E+00_JPRB /)  
+KB(:, 3,41,11) = (/ &
+ & 0.72702E-01_JPRB,0.32083E+00_JPRB,0.39561E+00_JPRB,0.42555E+00_JPRB,0.30626E+00_JPRB /)  
+KB(:, 4,41,11) = (/ &
+ & 0.90227E-01_JPRB,0.35164E+00_JPRB,0.43315E+00_JPRB,0.46599E+00_JPRB,0.33930E+00_JPRB /)  
+KB(:, 5,41,11) = (/ &
+ & 0.10861E+00_JPRB,0.38219E+00_JPRB,0.46971E+00_JPRB,0.50385E+00_JPRB,0.37183E+00_JPRB /)  
+KB(:, 1,42,11) = (/ &
+ & 0.38819E-01_JPRB,0.24850E+00_JPRB,0.30677E+00_JPRB,0.32968E+00_JPRB,0.23256E+00_JPRB /)  
+KB(:, 2,42,11) = (/ &
+ & 0.52147E-01_JPRB,0.28080E+00_JPRB,0.34660E+00_JPRB,0.37239E+00_JPRB,0.26466E+00_JPRB /)  
+KB(:, 3,42,11) = (/ &
+ & 0.67768E-01_JPRB,0.31263E+00_JPRB,0.38564E+00_JPRB,0.41466E+00_JPRB,0.29758E+00_JPRB /)  
+KB(:, 4,42,11) = (/ &
+ & 0.85041E-01_JPRB,0.34356E+00_JPRB,0.42336E+00_JPRB,0.45563E+00_JPRB,0.33065E+00_JPRB /)  
+KB(:, 5,42,11) = (/ &
+ & 0.10335E+00_JPRB,0.37426E+00_JPRB,0.46032E+00_JPRB,0.49419E+00_JPRB,0.36339E+00_JPRB /)  
+KB(:, 1,43,11) = (/ &
+ & 0.34406E-01_JPRB,0.23801E+00_JPRB,0.29406E+00_JPRB,0.31601E+00_JPRB,0.22240E+00_JPRB /)  
+KB(:, 2,43,11) = (/ &
+ & 0.47048E-01_JPRB,0.27050E+00_JPRB,0.33401E+00_JPRB,0.35883E+00_JPRB,0.25435E+00_JPRB /)  
+KB(:, 3,43,11) = (/ &
+ & 0.62114E-01_JPRB,0.30257E+00_JPRB,0.37337E+00_JPRB,0.40135E+00_JPRB,0.28701E+00_JPRB /)  
+KB(:, 4,43,11) = (/ &
+ & 0.79018E-01_JPRB,0.33381E+00_JPRB,0.41146E+00_JPRB,0.44285E+00_JPRB,0.32012E+00_JPRB /)  
+KB(:, 5,43,11) = (/ &
+ & 0.97123E-01_JPRB,0.36459E+00_JPRB,0.44877E+00_JPRB,0.48229E+00_JPRB,0.35311E+00_JPRB /)  
+KB(:, 1,44,11) = (/ &
+ & 0.30068E-01_JPRB,0.22661E+00_JPRB,0.28047E+00_JPRB,0.30141E+00_JPRB,0.21157E+00_JPRB /)  
+KB(:, 2,44,11) = (/ &
+ & 0.41934E-01_JPRB,0.25939E+00_JPRB,0.32031E+00_JPRB,0.34420E+00_JPRB,0.24331E+00_JPRB /)  
+KB(:, 3,44,11) = (/ &
+ & 0.56334E-01_JPRB,0.29165E+00_JPRB,0.35997E+00_JPRB,0.38686E+00_JPRB,0.27569E+00_JPRB /)  
+KB(:, 4,44,11) = (/ &
+ & 0.72738E-01_JPRB,0.32319E+00_JPRB,0.39860E+00_JPRB,0.42881E+00_JPRB,0.30880E+00_JPRB /)  
+KB(:, 5,44,11) = (/ &
+ & 0.90538E-01_JPRB,0.35407E+00_JPRB,0.43616E+00_JPRB,0.46913E+00_JPRB,0.34187E+00_JPRB /)  
+KB(:, 1,45,11) = (/ &
+ & 0.26090E-01_JPRB,0.21511E+00_JPRB,0.26705E+00_JPRB,0.28701E+00_JPRB,0.20089E+00_JPRB /)  
+KB(:, 2,45,11) = (/ &
+ & 0.37182E-01_JPRB,0.24828E+00_JPRB,0.30662E+00_JPRB,0.32954E+00_JPRB,0.23239E+00_JPRB /)  
+KB(:, 3,45,11) = (/ &
+ & 0.50828E-01_JPRB,0.28069E+00_JPRB,0.34649E+00_JPRB,0.37235E+00_JPRB,0.26452E+00_JPRB /)  
+KB(:, 4,45,11) = (/ &
+ & 0.66683E-01_JPRB,0.31254E+00_JPRB,0.38562E+00_JPRB,0.41465E+00_JPRB,0.29751E+00_JPRB /)  
+KB(:, 5,45,11) = (/ &
+ & 0.84110E-01_JPRB,0.34354E+00_JPRB,0.42341E+00_JPRB,0.45565E+00_JPRB,0.33061E+00_JPRB /)  
+KB(:, 1,46,11) = (/ &
+ & 0.22282E-01_JPRB,0.20276E+00_JPRB,0.25300E+00_JPRB,0.27194E+00_JPRB,0.18966E+00_JPRB /)  
+KB(:, 2,46,11) = (/ &
+ & 0.32494E-01_JPRB,0.23634E+00_JPRB,0.29212E+00_JPRB,0.31397E+00_JPRB,0.22083E+00_JPRB /)  
+KB(:, 3,46,11) = (/ &
+ & 0.45322E-01_JPRB,0.26893E+00_JPRB,0.33209E+00_JPRB,0.35685E+00_JPRB,0.25276E+00_JPRB /)  
+KB(:, 4,46,11) = (/ &
+ & 0.60492E-01_JPRB,0.30105E+00_JPRB,0.37160E+00_JPRB,0.39945E+00_JPRB,0.28546E+00_JPRB /)  
+KB(:, 5,46,11) = (/ &
+ & 0.77449E-01_JPRB,0.33241E+00_JPRB,0.40979E+00_JPRB,0.44100E+00_JPRB,0.31859E+00_JPRB /)  
+KB(:, 1,47,11) = (/ &
+ & 0.18534E-01_JPRB,0.18898E+00_JPRB,0.23758E+00_JPRB,0.25552E+00_JPRB,0.17724E+00_JPRB /)  
+KB(:, 2,47,11) = (/ &
+ & 0.27732E-01_JPRB,0.22283E+00_JPRB,0.27608E+00_JPRB,0.29673E+00_JPRB,0.20806E+00_JPRB /)  
+KB(:, 3,47,11) = (/ &
+ & 0.39604E-01_JPRB,0.25581E+00_JPRB,0.31589E+00_JPRB,0.33953E+00_JPRB,0.23975E+00_JPRB /)  
+KB(:, 4,47,11) = (/ &
+ & 0.53911E-01_JPRB,0.28814E+00_JPRB,0.35568E+00_JPRB,0.38226E+00_JPRB,0.27210E+00_JPRB /)  
+KB(:, 5,47,11) = (/ &
+ & 0.70242E-01_JPRB,0.31982E+00_JPRB,0.39452E+00_JPRB,0.42435E+00_JPRB,0.30521E+00_JPRB /)  
+KB(:, 1,48,11) = (/ &
+ & 0.15230E-01_JPRB,0.17512E+00_JPRB,0.22238E+00_JPRB,0.23953E+00_JPRB,0.16496E+00_JPRB /)  
+KB(:, 2,48,11) = (/ &
+ & 0.23424E-01_JPRB,0.20917E+00_JPRB,0.26028E+00_JPRB,0.27977E+00_JPRB,0.19549E+00_JPRB /)  
+KB(:, 3,48,11) = (/ &
+ & 0.34289E-01_JPRB,0.24261E+00_JPRB,0.29967E+00_JPRB,0.32213E+00_JPRB,0.22686E+00_JPRB /)  
+KB(:, 4,48,11) = (/ &
+ & 0.47677E-01_JPRB,0.27510E+00_JPRB,0.33967E+00_JPRB,0.36502E+00_JPRB,0.25892E+00_JPRB /)  
+KB(:, 5,48,11) = (/ &
+ & 0.63303E-01_JPRB,0.30711E+00_JPRB,0.37902E+00_JPRB,0.40749E+00_JPRB,0.29180E+00_JPRB /)  
+KB(:, 1,49,11) = (/ &
+ & 0.12348E-01_JPRB,0.16145E+00_JPRB,0.20748E+00_JPRB,0.22396E+00_JPRB,0.15290E+00_JPRB /)  
+KB(:, 2,49,11) = (/ &
+ & 0.19656E-01_JPRB,0.19547E+00_JPRB,0.24481E+00_JPRB,0.26319E+00_JPRB,0.18304E+00_JPRB /)  
+KB(:, 3,49,11) = (/ &
+ & 0.29411E-01_JPRB,0.22922E+00_JPRB,0.28358E+00_JPRB,0.30484E+00_JPRB,0.21403E+00_JPRB /)  
+KB(:, 4,49,11) = (/ &
+ & 0.41852E-01_JPRB,0.26199E+00_JPRB,0.32356E+00_JPRB,0.34774E+00_JPRB,0.24589E+00_JPRB /)  
+KB(:, 5,49,11) = (/ &
+ & 0.56641E-01_JPRB,0.29425E+00_JPRB,0.36325E+00_JPRB,0.39043E+00_JPRB,0.27839E+00_JPRB /)  
+KB(:, 1,50,11) = (/ &
+ & 0.10059E-01_JPRB,0.14901E+00_JPRB,0.19385E+00_JPRB,0.20977E+00_JPRB,0.14182E+00_JPRB /)  
+KB(:, 2,50,11) = (/ &
+ & 0.16439E-01_JPRB,0.18255E+00_JPRB,0.23049E+00_JPRB,0.24806E+00_JPRB,0.17150E+00_JPRB /)  
+KB(:, 3,50,11) = (/ &
+ & 0.25328E-01_JPRB,0.21656E+00_JPRB,0.26875E+00_JPRB,0.28888E+00_JPRB,0.20219E+00_JPRB /)  
+KB(:, 4,50,11) = (/ &
+ & 0.36730E-01_JPRB,0.24971E+00_JPRB,0.30839E+00_JPRB,0.33151E+00_JPRB,0.23378E+00_JPRB /)  
+KB(:, 5,50,11) = (/ &
+ & 0.50682E-01_JPRB,0.28213E+00_JPRB,0.34832E+00_JPRB,0.37432E+00_JPRB,0.26599E+00_JPRB /)  
+KB(:, 1,51,11) = (/ &
+ & 0.81000E-02_JPRB,0.13718E+00_JPRB,0.18086E+00_JPRB,0.19633E+00_JPRB,0.13125E+00_JPRB /)  
+KB(:, 2,51,11) = (/ &
+ & 0.13663E-01_JPRB,0.17002E+00_JPRB,0.21682E+00_JPRB,0.23372E+00_JPRB,0.16044E+00_JPRB /)  
+KB(:, 3,51,11) = (/ &
+ & 0.21646E-01_JPRB,0.20410E+00_JPRB,0.25452E+00_JPRB,0.27362E+00_JPRB,0.19085E+00_JPRB /)  
+KB(:, 4,51,11) = (/ &
+ & 0.32117E-01_JPRB,0.23766E+00_JPRB,0.29370E+00_JPRB,0.31573E+00_JPRB,0.22210E+00_JPRB /)  
+KB(:, 5,51,11) = (/ &
+ & 0.45217E-01_JPRB,0.27026E+00_JPRB,0.33377E+00_JPRB,0.35865E+00_JPRB,0.25409E+00_JPRB /)  
+KB(:, 1,52,11) = (/ &
+ & 0.64392E-02_JPRB,0.12568E+00_JPRB,0.16814E+00_JPRB,0.18321E+00_JPRB,0.12091E+00_JPRB /)  
+KB(:, 2,52,11) = (/ &
+ & 0.11223E-01_JPRB,0.15773E+00_JPRB,0.20341E+00_JPRB,0.21973E+00_JPRB,0.14959E+00_JPRB /)  
+KB(:, 3,52,11) = (/ &
+ & 0.18327E-01_JPRB,0.19165E+00_JPRB,0.24057E+00_JPRB,0.25870E+00_JPRB,0.17960E+00_JPRB /)  
+KB(:, 4,52,11) = (/ &
+ & 0.27978E-01_JPRB,0.22553E+00_JPRB,0.27924E+00_JPRB,0.30015E+00_JPRB,0.21055E+00_JPRB /)  
+KB(:, 5,52,11) = (/ &
+ & 0.40066E-01_JPRB,0.25840E+00_JPRB,0.31913E+00_JPRB,0.34300E+00_JPRB,0.24233E+00_JPRB /)  
+KB(:, 1,53,11) = (/ &
+ & 0.50582E-02_JPRB,0.11452E+00_JPRB,0.15565E+00_JPRB,0.17040E+00_JPRB,0.11082E+00_JPRB /)  
+KB(:, 2,53,11) = (/ &
+ & 0.90986E-02_JPRB,0.14571E+00_JPRB,0.19026E+00_JPRB,0.20608E+00_JPRB,0.13891E+00_JPRB /)  
+KB(:, 3,53,11) = (/ &
+ & 0.15360E-01_JPRB,0.17911E+00_JPRB,0.22674E+00_JPRB,0.24415E+00_JPRB,0.16845E+00_JPRB /)  
+KB(:, 4,53,11) = (/ &
+ & 0.24079E-01_JPRB,0.21320E+00_JPRB,0.26488E+00_JPRB,0.28473E+00_JPRB,0.19911E+00_JPRB /)  
+KB(:, 5,53,11) = (/ &
+ & 0.35249E-01_JPRB,0.24647E+00_JPRB,0.30443E+00_JPRB,0.32725E+00_JPRB,0.23061E+00_JPRB /)  
+KB(:, 1,54,11) = (/ &
+ & 0.39947E-02_JPRB,0.10467E+00_JPRB,0.14438E+00_JPRB,0.15895E+00_JPRB,0.10183E+00_JPRB /)  
+KB(:, 2,54,11) = (/ &
+ & 0.74123E-02_JPRB,0.13495E+00_JPRB,0.17842E+00_JPRB,0.19384E+00_JPRB,0.12928E+00_JPRB /)  
+KB(:, 3,54,11) = (/ &
+ & 0.12928E-01_JPRB,0.16768E+00_JPRB,0.21428E+00_JPRB,0.23108E+00_JPRB,0.15838E+00_JPRB /)  
+KB(:, 4,54,11) = (/ &
+ & 0.20817E-01_JPRB,0.20178E+00_JPRB,0.25191E+00_JPRB,0.27082E+00_JPRB,0.18875E+00_JPRB /)  
+KB(:, 5,54,11) = (/ &
+ & 0.31131E-01_JPRB,0.23540E+00_JPRB,0.29100E+00_JPRB,0.31283E+00_JPRB,0.21994E+00_JPRB /)  
+KB(:, 1,55,11) = (/ &
+ & 0.31444E-02_JPRB,0.95645E-01_JPRB,0.13357E+00_JPRB,0.14821E+00_JPRB,0.93456E-01_JPRB /)  
+KB(:, 2,55,11) = (/ &
+ & 0.60192E-02_JPRB,0.12488E+00_JPRB,0.16728E+00_JPRB,0.18235E+00_JPRB,0.12022E+00_JPRB /)  
+KB(:, 3,55,11) = (/ &
+ & 0.10844E-01_JPRB,0.15692E+00_JPRB,0.20255E+00_JPRB,0.21884E+00_JPRB,0.14887E+00_JPRB /)  
+KB(:, 4,55,11) = (/ &
+ & 0.17966E-01_JPRB,0.19085E+00_JPRB,0.23968E+00_JPRB,0.25776E+00_JPRB,0.17889E+00_JPRB /)  
+KB(:, 5,55,11) = (/ &
+ & 0.27575E-01_JPRB,0.22475E+00_JPRB,0.27833E+00_JPRB,0.29920E+00_JPRB,0.20981E+00_JPRB /)  
+KB(:, 1,56,11) = (/ &
+ & 0.24408E-02_JPRB,0.87042E-01_JPRB,0.12294E+00_JPRB,0.13774E+00_JPRB,0.85384E-01_JPRB /)  
+KB(:, 2,56,11) = (/ &
+ & 0.48425E-02_JPRB,0.11512E+00_JPRB,0.15634E+00_JPRB,0.17115E+00_JPRB,0.11140E+00_JPRB /)  
+KB(:, 3,56,11) = (/ &
+ & 0.90070E-02_JPRB,0.14641E+00_JPRB,0.19103E+00_JPRB,0.20689E+00_JPRB,0.13953E+00_JPRB /)  
+KB(:, 4,56,11) = (/ &
+ & 0.15384E-01_JPRB,0.17987E+00_JPRB,0.22757E+00_JPRB,0.24502E+00_JPRB,0.16913E+00_JPRB /)  
+KB(:, 5,56,11) = (/ &
+ & 0.24183E-01_JPRB,0.21396E+00_JPRB,0.26576E+00_JPRB,0.28569E+00_JPRB,0.19980E+00_JPRB /)  
+KB(:, 1,57,11) = (/ &
+ & 0.18661E-02_JPRB,0.78869E-01_JPRB,0.11259E+00_JPRB,0.12744E+00_JPRB,0.77594E-01_JPRB /)  
+KB(:, 2,57,11) = (/ &
+ & 0.38393E-02_JPRB,0.10567E+00_JPRB,0.14558E+00_JPRB,0.16018E+00_JPRB,0.10279E+00_JPRB /)  
+KB(:, 3,57,11) = (/ &
+ & 0.73986E-02_JPRB,0.13611E+00_JPRB,0.17972E+00_JPRB,0.19518E+00_JPRB,0.13032E+00_JPRB /)  
+KB(:, 4,57,11) = (/ &
+ & 0.13057E-01_JPRB,0.16895E+00_JPRB,0.21565E+00_JPRB,0.23253E+00_JPRB,0.15951E+00_JPRB /)  
+KB(:, 5,57,11) = (/ &
+ & 0.21059E-01_JPRB,0.20305E+00_JPRB,0.25335E+00_JPRB,0.27238E+00_JPRB,0.18989E+00_JPRB /)  
+KB(:, 1,58,11) = (/ &
+ & 0.14289E-02_JPRB,0.71481E-01_JPRB,0.10314E+00_JPRB,0.11789E+00_JPRB,0.70461E-01_JPRB /)  
+KB(:, 2,58,11) = (/ &
+ & 0.30447E-02_JPRB,0.97100E-01_JPRB,0.13537E+00_JPRB,0.15001E+00_JPRB,0.94840E-01_JPRB /)  
+KB(:, 3,58,11) = (/ &
+ & 0.60785E-02_JPRB,0.12656E+00_JPRB,0.16917E+00_JPRB,0.18428E+00_JPRB,0.12173E+00_JPRB /)  
+KB(:, 4,58,11) = (/ &
+ & 0.11073E-01_JPRB,0.15875E+00_JPRB,0.20453E+00_JPRB,0.22090E+00_JPRB,0.15049E+00_JPRB /)  
+KB(:, 5,58,11) = (/ &
+ & 0.18344E-01_JPRB,0.19271E+00_JPRB,0.24175E+00_JPRB,0.25997E+00_JPRB,0.18056E+00_JPRB /)  
+KB(:, 1,59,11) = (/ &
+ & 0.12466E-02_JPRB,0.68608E-01_JPRB,0.99449E-01_JPRB,0.11409E+00_JPRB,0.67679E-01_JPRB /)  
+KB(:, 2,59,11) = (/ &
+ & 0.27400E-02_JPRB,0.93756E-01_JPRB,0.13130E+00_JPRB,0.14598E+00_JPRB,0.91727E-01_JPRB /)  
+KB(:, 3,59,11) = (/ &
+ & 0.55829E-02_JPRB,0.12280E+00_JPRB,0.16498E+00_JPRB,0.17997E+00_JPRB,0.11835E+00_JPRB /)  
+KB(:, 4,59,11) = (/ &
+ & 0.10327E-01_JPRB,0.15471E+00_JPRB,0.20012E+00_JPRB,0.21632E+00_JPRB,0.14691E+00_JPRB /)  
+KB(:, 5,59,11) = (/ &
+ & 0.17312E-01_JPRB,0.18856E+00_JPRB,0.23714E+00_JPRB,0.25511E+00_JPRB,0.17685E+00_JPRB /)  
+KB(:, 1,13,12) = (/ &
+ & 0.97672E+00_JPRB,0.12351E+01_JPRB,0.13467E+01_JPRB,0.13355E+01_JPRB,0.11350E+01_JPRB /)  
+KB(:, 2,13,12) = (/ &
+ & 0.96517E+00_JPRB,0.12326E+01_JPRB,0.13523E+01_JPRB,0.13488E+01_JPRB,0.11500E+01_JPRB /)  
+KB(:, 3,13,12) = (/ &
+ & 0.95359E+00_JPRB,0.12308E+01_JPRB,0.13576E+01_JPRB,0.13588E+01_JPRB,0.11629E+01_JPRB /)  
+KB(:, 4,13,12) = (/ &
+ & 0.94644E+00_JPRB,0.12294E+01_JPRB,0.13618E+01_JPRB,0.13660E+01_JPRB,0.11761E+01_JPRB /)  
+KB(:, 5,13,12) = (/ &
+ & 0.94938E+00_JPRB,0.12277E+01_JPRB,0.13647E+01_JPRB,0.13713E+01_JPRB,0.11895E+01_JPRB /)  
+KB(:, 1,14,12) = (/ &
+ & 0.86287E+00_JPRB,0.11528E+01_JPRB,0.12800E+01_JPRB,0.12931E+01_JPRB,0.10793E+01_JPRB /)  
+KB(:, 2,14,12) = (/ &
+ & 0.85328E+00_JPRB,0.11519E+01_JPRB,0.12878E+01_JPRB,0.13082E+01_JPRB,0.10960E+01_JPRB /)  
+KB(:, 3,14,12) = (/ &
+ & 0.84776E+00_JPRB,0.11522E+01_JPRB,0.12944E+01_JPRB,0.13193E+01_JPRB,0.11122E+01_JPRB /)  
+KB(:, 4,14,12) = (/ &
+ & 0.85264E+00_JPRB,0.11532E+01_JPRB,0.12995E+01_JPRB,0.13287E+01_JPRB,0.11288E+01_JPRB /)  
+KB(:, 5,14,12) = (/ &
+ & 0.86761E+00_JPRB,0.11556E+01_JPRB,0.13039E+01_JPRB,0.13378E+01_JPRB,0.11458E+01_JPRB /)  
+KB(:, 1,15,12) = (/ &
+ & 0.75595E+00_JPRB,0.10736E+01_JPRB,0.12146E+01_JPRB,0.12437E+01_JPRB,0.10230E+01_JPRB /)  
+KB(:, 2,15,12) = (/ &
+ & 0.75063E+00_JPRB,0.10744E+01_JPRB,0.12248E+01_JPRB,0.12603E+01_JPRB,0.10430E+01_JPRB /)  
+KB(:, 3,15,12) = (/ &
+ & 0.75594E+00_JPRB,0.10769E+01_JPRB,0.12334E+01_JPRB,0.12743E+01_JPRB,0.10635E+01_JPRB /)  
+KB(:, 4,15,12) = (/ &
+ & 0.77107E+00_JPRB,0.10807E+01_JPRB,0.12402E+01_JPRB,0.12881E+01_JPRB,0.10841E+01_JPRB /)  
+KB(:, 5,15,12) = (/ &
+ & 0.79469E+00_JPRB,0.10902E+01_JPRB,0.12461E+01_JPRB,0.13012E+01_JPRB,0.11031E+01_JPRB /)  
+KB(:, 1,16,12) = (/ &
+ & 0.66063E+00_JPRB,0.99640E+00_JPRB,0.11502E+01_JPRB,0.11902E+01_JPRB,0.96912E+00_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART29',1,ZHOOK_HANDLE)
+END SUBROUTINE PART29
+
+
+SUBROUTINE PART30
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART30',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,16,12) = (/ &
+ & 0.66454E+00_JPRB,0.10001E+01_JPRB,0.11634E+01_JPRB,0.12095E+01_JPRB,0.99257E+00_JPRB /)  
+KB(:, 3,16,12) = (/ &
+ & 0.67895E+00_JPRB,0.10049E+01_JPRB,0.11739E+01_JPRB,0.12282E+01_JPRB,0.10170E+01_JPRB /)  
+KB(:, 4,16,12) = (/ &
+ & 0.70145E+00_JPRB,0.10153E+01_JPRB,0.11833E+01_JPRB,0.12469E+01_JPRB,0.10404E+01_JPRB /)  
+KB(:, 5,16,12) = (/ &
+ & 0.72525E+00_JPRB,0.10330E+01_JPRB,0.11925E+01_JPRB,0.12646E+01_JPRB,0.10610E+01_JPRB /)  
+KB(:, 1,17,12) = (/ &
+ & 0.58214E+00_JPRB,0.92297E+00_JPRB,0.10896E+01_JPRB,0.11346E+01_JPRB,0.91647E+00_JPRB /)  
+KB(:, 2,17,12) = (/ &
+ & 0.59400E+00_JPRB,0.92929E+00_JPRB,0.11045E+01_JPRB,0.11590E+01_JPRB,0.94550E+00_JPRB /)  
+KB(:, 3,17,12) = (/ &
+ & 0.61460E+00_JPRB,0.94000E+00_JPRB,0.11172E+01_JPRB,0.11832E+01_JPRB,0.97371E+00_JPRB /)  
+KB(:, 4,17,12) = (/ &
+ & 0.63691E+00_JPRB,0.95830E+00_JPRB,0.11303E+01_JPRB,0.12071E+01_JPRB,0.99891E+00_JPRB /)  
+KB(:, 5,17,12) = (/ &
+ & 0.66003E+00_JPRB,0.98295E+00_JPRB,0.11440E+01_JPRB,0.12298E+01_JPRB,0.10215E+01_JPRB /)  
+KB(:, 1,18,12) = (/ &
+ & 0.51831E+00_JPRB,0.85586E+00_JPRB,0.10313E+01_JPRB,0.10823E+01_JPRB,0.86734E+00_JPRB /)  
+KB(:, 2,18,12) = (/ &
+ & 0.53638E+00_JPRB,0.86645E+00_JPRB,0.10487E+01_JPRB,0.11114E+01_JPRB,0.90071E+00_JPRB /)  
+KB(:, 3,18,12) = (/ &
+ & 0.55679E+00_JPRB,0.88410E+00_JPRB,0.10657E+01_JPRB,0.11407E+01_JPRB,0.93149E+00_JPRB /)  
+KB(:, 4,18,12) = (/ &
+ & 0.57819E+00_JPRB,0.90902E+00_JPRB,0.10831E+01_JPRB,0.11693E+01_JPRB,0.95937E+00_JPRB /)  
+KB(:, 5,18,12) = (/ &
+ & 0.60387E+00_JPRB,0.94010E+00_JPRB,0.11032E+01_JPRB,0.11966E+01_JPRB,0.98550E+00_JPRB /)  
+KB(:, 1,19,12) = (/ &
+ & 0.46547E+00_JPRB,0.79533E+00_JPRB,0.97579E+00_JPRB,0.10353E+01_JPRB,0.82208E+00_JPRB /)  
+KB(:, 2,19,12) = (/ &
+ & 0.48441E+00_JPRB,0.81281E+00_JPRB,0.99768E+00_JPRB,0.10690E+01_JPRB,0.85858E+00_JPRB /)  
+KB(:, 3,19,12) = (/ &
+ & 0.50438E+00_JPRB,0.83723E+00_JPRB,0.10197E+01_JPRB,0.11027E+01_JPRB,0.89202E+00_JPRB /)  
+KB(:, 4,19,12) = (/ &
+ & 0.52861E+00_JPRB,0.86772E+00_JPRB,0.10433E+01_JPRB,0.11355E+01_JPRB,0.92298E+00_JPRB /)  
+KB(:, 5,19,12) = (/ &
+ & 0.55711E+00_JPRB,0.90301E+00_JPRB,0.10701E+01_JPRB,0.11672E+01_JPRB,0.95266E+00_JPRB /)  
+KB(:, 1,20,12) = (/ &
+ & 0.41965E+00_JPRB,0.74319E+00_JPRB,0.92508E+00_JPRB,0.99412E+00_JPRB,0.78089E+00_JPRB /)  
+KB(:, 2,20,12) = (/ &
+ & 0.43802E+00_JPRB,0.76766E+00_JPRB,0.95235E+00_JPRB,0.10327E+01_JPRB,0.82017E+00_JPRB /)  
+KB(:, 3,20,12) = (/ &
+ & 0.46025E+00_JPRB,0.79818E+00_JPRB,0.98022E+00_JPRB,0.10706E+01_JPRB,0.85677E+00_JPRB /)  
+KB(:, 4,20,12) = (/ &
+ & 0.48727E+00_JPRB,0.83370E+00_JPRB,0.10109E+01_JPRB,0.11072E+01_JPRB,0.89127E+00_JPRB /)  
+KB(:, 5,20,12) = (/ &
+ & 0.51863E+00_JPRB,0.87091E+00_JPRB,0.10440E+01_JPRB,0.11423E+01_JPRB,0.92433E+00_JPRB /)  
+KB(:, 1,21,12) = (/ &
+ & 0.37915E+00_JPRB,0.69998E+00_JPRB,0.88069E+00_JPRB,0.95835E+00_JPRB,0.74387E+00_JPRB /)  
+KB(:, 2,21,12) = (/ &
+ & 0.39885E+00_JPRB,0.72965E+00_JPRB,0.91291E+00_JPRB,0.10022E+01_JPRB,0.78645E+00_JPRB /)  
+KB(:, 3,21,12) = (/ &
+ & 0.42350E+00_JPRB,0.76561E+00_JPRB,0.94765E+00_JPRB,0.10443E+01_JPRB,0.82639E+00_JPRB /)  
+KB(:, 4,21,12) = (/ &
+ & 0.45298E+00_JPRB,0.80432E+00_JPRB,0.98473E+00_JPRB,0.10842E+01_JPRB,0.86477E+00_JPRB /)  
+KB(:, 5,21,12) = (/ &
+ & 0.48674E+00_JPRB,0.84344E+00_JPRB,0.10236E+01_JPRB,0.11221E+01_JPRB,0.90082E+00_JPRB /)  
+KB(:, 1,22,12) = (/ &
+ & 0.34554E+00_JPRB,0.66631E+00_JPRB,0.84565E+00_JPRB,0.93193E+00_JPRB,0.71462E+00_JPRB /)  
+KB(:, 2,22,12) = (/ &
+ & 0.36807E+00_JPRB,0.70096E+00_JPRB,0.88353E+00_JPRB,0.98021E+00_JPRB,0.76038E+00_JPRB /)  
+KB(:, 3,22,12) = (/ &
+ & 0.39520E+00_JPRB,0.74099E+00_JPRB,0.92460E+00_JPRB,0.10260E+01_JPRB,0.80381E+00_JPRB /)  
+KB(:, 4,22,12) = (/ &
+ & 0.42700E+00_JPRB,0.78213E+00_JPRB,0.96750E+00_JPRB,0.10688E+01_JPRB,0.84544E+00_JPRB /)  
+KB(:, 5,22,12) = (/ &
+ & 0.46306E+00_JPRB,0.82357E+00_JPRB,0.10116E+01_JPRB,0.11089E+01_JPRB,0.88444E+00_JPRB /)  
+KB(:, 1,23,12) = (/ &
+ & 0.31790E+00_JPRB,0.64007E+00_JPRB,0.81825E+00_JPRB,0.91240E+00_JPRB,0.69117E+00_JPRB /)  
+KB(:, 2,23,12) = (/ &
+ & 0.34313E+00_JPRB,0.67943E+00_JPRB,0.86200E+00_JPRB,0.96400E+00_JPRB,0.74026E+00_JPRB /)  
+KB(:, 3,23,12) = (/ &
+ & 0.37292E+00_JPRB,0.72179E+00_JPRB,0.90853E+00_JPRB,0.10128E+01_JPRB,0.78692E+00_JPRB /)  
+KB(:, 4,23,12) = (/ &
+ & 0.40683E+00_JPRB,0.76528E+00_JPRB,0.95638E+00_JPRB,0.10584E+01_JPRB,0.83132E+00_JPRB /)  
+KB(:, 5,23,12) = (/ &
+ & 0.44434E+00_JPRB,0.80906E+00_JPRB,0.10049E+01_JPRB,0.11007E+01_JPRB,0.87324E+00_JPRB /)  
+KB(:, 1,24,12) = (/ &
+ & 0.29587E+00_JPRB,0.62091E+00_JPRB,0.79898E+00_JPRB,0.89859E+00_JPRB,0.67383E+00_JPRB /)  
+KB(:, 2,24,12) = (/ &
+ & 0.32356E+00_JPRB,0.66370E+00_JPRB,0.84800E+00_JPRB,0.95354E+00_JPRB,0.72591E+00_JPRB /)  
+KB(:, 3,24,12) = (/ &
+ & 0.35587E+00_JPRB,0.70805E+00_JPRB,0.89882E+00_JPRB,0.10049E+01_JPRB,0.77551E+00_JPRB /)  
+KB(:, 4,24,12) = (/ &
+ & 0.39090E+00_JPRB,0.75345E+00_JPRB,0.95073E+00_JPRB,0.10524E+01_JPRB,0.82233E+00_JPRB /)  
+KB(:, 5,24,12) = (/ &
+ & 0.42938E+00_JPRB,0.80019E+00_JPRB,0.10026E+01_JPRB,0.10965E+01_JPRB,0.86634E+00_JPRB /)  
+KB(:, 1,25,12) = (/ &
+ & 0.27857E+00_JPRB,0.60799E+00_JPRB,0.78705E+00_JPRB,0.89081E+00_JPRB,0.66256E+00_JPRB /)  
+KB(:, 2,25,12) = (/ &
+ & 0.30889E+00_JPRB,0.65303E+00_JPRB,0.84032E+00_JPRB,0.94841E+00_JPRB,0.71733E+00_JPRB /)  
+KB(:, 3,25,12) = (/ &
+ & 0.34245E+00_JPRB,0.69924E+00_JPRB,0.89488E+00_JPRB,0.10015E+01_JPRB,0.76917E+00_JPRB /)  
+KB(:, 4,25,12) = (/ &
+ & 0.37871E+00_JPRB,0.74693E+00_JPRB,0.95015E+00_JPRB,0.10506E+01_JPRB,0.81807E+00_JPRB /)  
+KB(:, 5,25,12) = (/ &
+ & 0.41833E+00_JPRB,0.79644E+00_JPRB,0.10044E+01_JPRB,0.10958E+01_JPRB,0.86374E+00_JPRB /)  
+KB(:, 1,26,12) = (/ &
+ & 0.26580E+00_JPRB,0.60063E+00_JPRB,0.78228E+00_JPRB,0.88879E+00_JPRB,0.65720E+00_JPRB /)  
+KB(:, 2,26,12) = (/ &
+ & 0.29790E+00_JPRB,0.64759E+00_JPRB,0.83895E+00_JPRB,0.94821E+00_JPRB,0.71439E+00_JPRB /)  
+KB(:, 3,26,12) = (/ &
+ & 0.33261E+00_JPRB,0.69574E+00_JPRB,0.89642E+00_JPRB,0.10025E+01_JPRB,0.76782E+00_JPRB /)  
+KB(:, 4,26,12) = (/ &
+ & 0.37054E+00_JPRB,0.74591E+00_JPRB,0.95396E+00_JPRB,0.10524E+01_JPRB,0.81818E+00_JPRB /)  
+KB(:, 5,26,12) = (/ &
+ & 0.41158E+00_JPRB,0.79751E+00_JPRB,0.10099E+01_JPRB,0.10981E+01_JPRB,0.86507E+00_JPRB /)  
+KB(:, 1,27,12) = (/ &
+ & 0.25628E+00_JPRB,0.59727E+00_JPRB,0.78261E+00_JPRB,0.89115E+00_JPRB,0.65648E+00_JPRB /)  
+KB(:, 2,27,12) = (/ &
+ & 0.28973E+00_JPRB,0.64617E+00_JPRB,0.84187E+00_JPRB,0.95137E+00_JPRB,0.71531E+00_JPRB /)  
+KB(:, 3,27,12) = (/ &
+ & 0.32602E+00_JPRB,0.69640E+00_JPRB,0.90149E+00_JPRB,0.10062E+01_JPRB,0.76992E+00_JPRB /)  
+KB(:, 4,27,12) = (/ &
+ & 0.36566E+00_JPRB,0.74858E+00_JPRB,0.96067E+00_JPRB,0.10565E+01_JPRB,0.82130E+00_JPRB /)  
+KB(:, 5,27,12) = (/ &
+ & 0.40839E+00_JPRB,0.80160E+00_JPRB,0.10174E+01_JPRB,0.11025E+01_JPRB,0.86892E+00_JPRB /)  
+KB(:, 1,28,12) = (/ &
+ & 0.24931E+00_JPRB,0.59767E+00_JPRB,0.78703E+00_JPRB,0.89664E+00_JPRB,0.65970E+00_JPRB /)  
+KB(:, 2,28,12) = (/ &
+ & 0.28438E+00_JPRB,0.64828E+00_JPRB,0.84808E+00_JPRB,0.95711E+00_JPRB,0.71948E+00_JPRB /)  
+KB(:, 3,28,12) = (/ &
+ & 0.32259E+00_JPRB,0.70046E+00_JPRB,0.90930E+00_JPRB,0.10123E+01_JPRB,0.77494E+00_JPRB /)  
+KB(:, 4,28,12) = (/ &
+ & 0.36394E+00_JPRB,0.75423E+00_JPRB,0.96943E+00_JPRB,0.10625E+01_JPRB,0.82683E+00_JPRB /)  
+KB(:, 5,28,12) = (/ &
+ & 0.40857E+00_JPRB,0.80828E+00_JPRB,0.10265E+01_JPRB,0.11085E+01_JPRB,0.87457E+00_JPRB /)  
+KB(:, 1,29,12) = (/ &
+ & 0.24529E+00_JPRB,0.60153E+00_JPRB,0.79470E+00_JPRB,0.90469E+00_JPRB,0.66635E+00_JPRB /)  
+KB(:, 2,29,12) = (/ &
+ & 0.28215E+00_JPRB,0.65374E+00_JPRB,0.85707E+00_JPRB,0.96518E+00_JPRB,0.72659E+00_JPRB /)  
+KB(:, 3,29,12) = (/ &
+ & 0.32237E+00_JPRB,0.70744E+00_JPRB,0.91955E+00_JPRB,0.10202E+01_JPRB,0.78233E+00_JPRB /)  
+KB(:, 4,29,12) = (/ &
+ & 0.36548E+00_JPRB,0.76246E+00_JPRB,0.98006E+00_JPRB,0.10704E+01_JPRB,0.83435E+00_JPRB /)  
+KB(:, 5,29,12) = (/ &
+ & 0.41179E+00_JPRB,0.81715E+00_JPRB,0.10368E+01_JPRB,0.11160E+01_JPRB,0.88198E+00_JPRB /)  
+KB(:, 1,30,12) = (/ &
+ & 0.24386E+00_JPRB,0.60816E+00_JPRB,0.80473E+00_JPRB,0.91460E+00_JPRB,0.67543E+00_JPRB /)  
+KB(:, 2,30,12) = (/ &
+ & 0.28279E+00_JPRB,0.66165E+00_JPRB,0.86804E+00_JPRB,0.97470E+00_JPRB,0.73566E+00_JPRB /)  
+KB(:, 3,30,12) = (/ &
+ & 0.32483E+00_JPRB,0.71650E+00_JPRB,0.93115E+00_JPRB,0.10292E+01_JPRB,0.79124E+00_JPRB /)  
+KB(:, 4,30,12) = (/ &
+ & 0.36954E+00_JPRB,0.77208E+00_JPRB,0.99158E+00_JPRB,0.10790E+01_JPRB,0.84299E+00_JPRB /)  
+KB(:, 5,30,12) = (/ &
+ & 0.41749E+00_JPRB,0.82738E+00_JPRB,0.10478E+01_JPRB,0.11245E+01_JPRB,0.89039E+00_JPRB /)  
+KB(:, 1,31,12) = (/ &
+ & 0.24525E+00_JPRB,0.61702E+00_JPRB,0.81682E+00_JPRB,0.92621E+00_JPRB,0.68640E+00_JPRB /)  
+KB(:, 2,31,12) = (/ &
+ & 0.28616E+00_JPRB,0.67142E+00_JPRB,0.88072E+00_JPRB,0.98550E+00_JPRB,0.74643E+00_JPRB /)  
+KB(:, 3,31,12) = (/ &
+ & 0.32989E+00_JPRB,0.72710E+00_JPRB,0.94409E+00_JPRB,0.10393E+01_JPRB,0.80152E+00_JPRB /)  
+KB(:, 4,31,12) = (/ &
+ & 0.37609E+00_JPRB,0.78314E+00_JPRB,0.10041E+01_JPRB,0.10886E+01_JPRB,0.85269E+00_JPRB /)  
+KB(:, 5,31,12) = (/ &
+ & 0.42530E+00_JPRB,0.83896E+00_JPRB,0.10596E+01_JPRB,0.11338E+01_JPRB,0.89957E+00_JPRB /)  
+KB(:, 1,32,12) = (/ &
+ & 0.24917E+00_JPRB,0.62738E+00_JPRB,0.83018E+00_JPRB,0.93886E+00_JPRB,0.69870E+00_JPRB /)  
+KB(:, 2,32,12) = (/ &
+ & 0.29180E+00_JPRB,0.68257E+00_JPRB,0.89466E+00_JPRB,0.99723E+00_JPRB,0.75819E+00_JPRB /)  
+KB(:, 3,32,12) = (/ &
+ & 0.33695E+00_JPRB,0.73898E+00_JPRB,0.95783E+00_JPRB,0.10503E+01_JPRB,0.81270E+00_JPRB /)  
+KB(:, 4,32,12) = (/ &
+ & 0.38441E+00_JPRB,0.79527E+00_JPRB,0.10172E+01_JPRB,0.10987E+01_JPRB,0.86313E+00_JPRB /)  
+KB(:, 5,32,12) = (/ &
+ & 0.43473E+00_JPRB,0.85145E+00_JPRB,0.10718E+01_JPRB,0.11436E+01_JPRB,0.90933E+00_JPRB /)  
+KB(:, 1,33,12) = (/ &
+ & 0.25524E+00_JPRB,0.63888E+00_JPRB,0.84456E+00_JPRB,0.95208E+00_JPRB,0.71177E+00_JPRB /)  
+KB(:, 2,33,12) = (/ &
+ & 0.29923E+00_JPRB,0.69477E+00_JPRB,0.90943E+00_JPRB,0.10094E+01_JPRB,0.77043E+00_JPRB /)  
+KB(:, 3,33,12) = (/ &
+ & 0.34555E+00_JPRB,0.75166E+00_JPRB,0.97211E+00_JPRB,0.10616E+01_JPRB,0.82442E+00_JPRB /)  
+KB(:, 4,33,12) = (/ &
+ & 0.39409E+00_JPRB,0.80804E+00_JPRB,0.10306E+01_JPRB,0.11094E+01_JPRB,0.87396E+00_JPRB /)  
+KB(:, 5,33,12) = (/ &
+ & 0.44532E+00_JPRB,0.86454E+00_JPRB,0.10842E+01_JPRB,0.11536E+01_JPRB,0.91947E+00_JPRB /)  
+KB(:, 1,34,12) = (/ &
+ & 0.26139E+00_JPRB,0.64937E+00_JPRB,0.85738E+00_JPRB,0.96358E+00_JPRB,0.72330E+00_JPRB /)  
+KB(:, 2,34,12) = (/ &
+ & 0.30644E+00_JPRB,0.70578E+00_JPRB,0.92238E+00_JPRB,0.10200E+01_JPRB,0.78117E+00_JPRB /)  
+KB(:, 3,34,12) = (/ &
+ & 0.35368E+00_JPRB,0.76284E+00_JPRB,0.98445E+00_JPRB,0.10715E+01_JPRB,0.83457E+00_JPRB /)  
+KB(:, 4,34,12) = (/ &
+ & 0.40294E+00_JPRB,0.81944E+00_JPRB,0.10421E+01_JPRB,0.11185E+01_JPRB,0.88331E+00_JPRB /)  
+KB(:, 5,34,12) = (/ &
+ & 0.45497E+00_JPRB,0.87610E+00_JPRB,0.10949E+01_JPRB,0.11623E+01_JPRB,0.92821E+00_JPRB /)  
+KB(:, 1,35,12) = (/ &
+ & 0.26429E+00_JPRB,0.65495E+00_JPRB,0.86437E+00_JPRB,0.96967E+00_JPRB,0.72944E+00_JPRB /)  
+KB(:, 2,35,12) = (/ &
+ & 0.31003E+00_JPRB,0.71171E+00_JPRB,0.92940E+00_JPRB,0.10257E+01_JPRB,0.78687E+00_JPRB /)  
+KB(:, 3,35,12) = (/ &
+ & 0.35779E+00_JPRB,0.76892E+00_JPRB,0.99113E+00_JPRB,0.10767E+01_JPRB,0.83993E+00_JPRB /)  
+KB(:, 4,35,12) = (/ &
+ & 0.40757E+00_JPRB,0.82572E+00_JPRB,0.10483E+01_JPRB,0.11235E+01_JPRB,0.88834E+00_JPRB /)  
+KB(:, 5,35,12) = (/ &
+ & 0.46005E+00_JPRB,0.88243E+00_JPRB,0.11007E+01_JPRB,0.11671E+01_JPRB,0.93291E+00_JPRB /)  
+KB(:, 1,36,12) = (/ &
+ & 0.26301E+00_JPRB,0.65478E+00_JPRB,0.86458E+00_JPRB,0.96965E+00_JPRB,0.72937E+00_JPRB /)  
+KB(:, 2,36,12) = (/ &
+ & 0.30906E+00_JPRB,0.71167E+00_JPRB,0.92967E+00_JPRB,0.10257E+01_JPRB,0.78687E+00_JPRB /)  
+KB(:, 3,36,12) = (/ &
+ & 0.35709E+00_JPRB,0.76907E+00_JPRB,0.99151E+00_JPRB,0.10769E+01_JPRB,0.84005E+00_JPRB /)  
+KB(:, 4,36,12) = (/ &
+ & 0.40702E+00_JPRB,0.82602E+00_JPRB,0.10488E+01_JPRB,0.11238E+01_JPRB,0.88850E+00_JPRB /)  
+KB(:, 5,36,12) = (/ &
+ & 0.45966E+00_JPRB,0.88282E+00_JPRB,0.11012E+01_JPRB,0.11674E+01_JPRB,0.93315E+00_JPRB /)  
+KB(:, 1,37,12) = (/ &
+ & 0.25532E+00_JPRB,0.64621E+00_JPRB,0.85496E+00_JPRB,0.96073E+00_JPRB,0.72018E+00_JPRB /)  
+KB(:, 2,37,12) = (/ &
+ & 0.30133E+00_JPRB,0.70315E+00_JPRB,0.92046E+00_JPRB,0.10178E+01_JPRB,0.77861E+00_JPRB /)  
+KB(:, 3,37,12) = (/ &
+ & 0.34928E+00_JPRB,0.76070E+00_JPRB,0.98300E+00_JPRB,0.10697E+01_JPRB,0.83253E+00_JPRB /)  
+KB(:, 4,37,12) = (/ &
+ & 0.39901E+00_JPRB,0.81782E+00_JPRB,0.10410E+01_JPRB,0.11173E+01_JPRB,0.88173E+00_JPRB /)  
+KB(:, 5,37,12) = (/ &
+ & 0.45136E+00_JPRB,0.87470E+00_JPRB,0.10942E+01_JPRB,0.11614E+01_JPRB,0.92694E+00_JPRB /)  
+KB(:, 1,38,12) = (/ &
+ & 0.24761E+00_JPRB,0.63742E+00_JPRB,0.84491E+00_JPRB,0.95139E+00_JPRB,0.71066E+00_JPRB /)  
+KB(:, 2,38,12) = (/ &
+ & 0.29353E+00_JPRB,0.69428E+00_JPRB,0.91068E+00_JPRB,0.10095E+01_JPRB,0.76992E+00_JPRB /)  
+KB(:, 3,38,12) = (/ &
+ & 0.34135E+00_JPRB,0.75196E+00_JPRB,0.97396E+00_JPRB,0.10621E+01_JPRB,0.82461E+00_JPRB /)  
+KB(:, 4,38,12) = (/ &
+ & 0.39084E+00_JPRB,0.80925E+00_JPRB,0.10327E+01_JPRB,0.11104E+01_JPRB,0.87459E+00_JPRB /)  
+KB(:, 5,38,12) = (/ &
+ & 0.44289E+00_JPRB,0.86617E+00_JPRB,0.10866E+01_JPRB,0.11550E+01_JPRB,0.92038E+00_JPRB /)  
+KB(:, 1,39,12) = (/ &
+ & 0.24017E+00_JPRB,0.62886E+00_JPRB,0.83503E+00_JPRB,0.94210E+00_JPRB,0.70124E+00_JPRB /)  
+KB(:, 2,39,12) = (/ &
+ & 0.28601E+00_JPRB,0.68569E+00_JPRB,0.90106E+00_JPRB,0.10011E+01_JPRB,0.76142E+00_JPRB /)  
+KB(:, 3,39,12) = (/ &
+ & 0.33368E+00_JPRB,0.74335E+00_JPRB,0.96490E+00_JPRB,0.10546E+01_JPRB,0.81673E+00_JPRB /)  
+KB(:, 4,39,12) = (/ &
+ & 0.38296E+00_JPRB,0.80081E+00_JPRB,0.10243E+01_JPRB,0.11035E+01_JPRB,0.86747E+00_JPRB /)  
+KB(:, 5,39,12) = (/ &
+ & 0.43465E+00_JPRB,0.85778E+00_JPRB,0.10791E+01_JPRB,0.11488E+01_JPRB,0.91385E+00_JPRB /)  
+KB(:, 1,40,12) = (/ &
+ & 0.22833E+00_JPRB,0.61463E+00_JPRB,0.81821E+00_JPRB,0.92620E+00_JPRB,0.68530E+00_JPRB /)  
+KB(:, 2,40,12) = (/ &
+ & 0.27395E+00_JPRB,0.67134E+00_JPRB,0.88467E+00_JPRB,0.98686E+00_JPRB,0.74688E+00_JPRB /)  
+KB(:, 3,40,12) = (/ &
+ & 0.32124E+00_JPRB,0.72890E+00_JPRB,0.94943E+00_JPRB,0.10418E+01_JPRB,0.80324E+00_JPRB /)  
+KB(:, 4,40,12) = (/ &
+ & 0.37015E+00_JPRB,0.78652E+00_JPRB,0.10100E+01_JPRB,0.10918E+01_JPRB,0.85523E+00_JPRB /)  
+KB(:, 5,40,12) = (/ &
+ & 0.42126E+00_JPRB,0.84372E+00_JPRB,0.10660E+01_JPRB,0.11379E+01_JPRB,0.90264E+00_JPRB /)  
+KB(:, 1,41,12) = (/ &
+ & 0.21612E+00_JPRB,0.59971E+00_JPRB,0.80041E+00_JPRB,0.90904E+00_JPRB,0.66824E+00_JPRB /)  
+KB(:, 2,41,12) = (/ &
+ & 0.26150E+00_JPRB,0.65630E+00_JPRB,0.86743E+00_JPRB,0.97155E+00_JPRB,0.73120E+00_JPRB /)  
+KB(:, 3,41,12) = (/ &
+ & 0.30837E+00_JPRB,0.71376E+00_JPRB,0.93288E+00_JPRB,0.10279E+01_JPRB,0.78880E+00_JPRB /)  
+KB(:, 4,41,12) = (/ &
+ & 0.35698E+00_JPRB,0.77150E+00_JPRB,0.99473E+00_JPRB,0.10791E+01_JPRB,0.84209E+00_JPRB /)  
+KB(:, 5,41,12) = (/ &
+ & 0.40745E+00_JPRB,0.82887E+00_JPRB,0.10519E+01_JPRB,0.11261E+01_JPRB,0.89062E+00_JPRB /)  
+KB(:, 1,42,12) = (/ &
+ & 0.20417E+00_JPRB,0.58472E+00_JPRB,0.78237E+00_JPRB,0.89154E+00_JPRB,0.65066E+00_JPRB /)  
+KB(:, 2,42,12) = (/ &
+ & 0.24921E+00_JPRB,0.64136E+00_JPRB,0.85007E+00_JPRB,0.95580E+00_JPRB,0.71510E+00_JPRB /)  
+KB(:, 3,42,12) = (/ &
+ & 0.29566E+00_JPRB,0.69861E+00_JPRB,0.91611E+00_JPRB,0.10137E+01_JPRB,0.77414E+00_JPRB /)  
+KB(:, 4,42,12) = (/ &
+ & 0.34395E+00_JPRB,0.75651E+00_JPRB,0.97922E+00_JPRB,0.10662E+01_JPRB,0.82865E+00_JPRB /)  
+KB(:, 5,42,12) = (/ &
+ & 0.39383E+00_JPRB,0.81397E+00_JPRB,0.10376E+01_JPRB,0.11142E+01_JPRB,0.87842E+00_JPRB /)  
+KB(:, 1,43,12) = (/ &
+ & 0.18997E+00_JPRB,0.56647E+00_JPRB,0.76032E+00_JPRB,0.86976E+00_JPRB,0.62901E+00_JPRB /)  
+KB(:, 2,43,12) = (/ &
+ & 0.23447E+00_JPRB,0.62342E+00_JPRB,0.82892E+00_JPRB,0.93617E+00_JPRB,0.69524E+00_JPRB /)  
+KB(:, 3,43,12) = (/ &
+ & 0.28050E+00_JPRB,0.68037E+00_JPRB,0.89544E+00_JPRB,0.99597E+00_JPRB,0.75607E+00_JPRB /)  
+KB(:, 4,43,12) = (/ &
+ & 0.32830E+00_JPRB,0.73817E+00_JPRB,0.95981E+00_JPRB,0.10502E+01_JPRB,0.81194E+00_JPRB /)  
+KB(:, 5,43,12) = (/ &
+ & 0.37763E+00_JPRB,0.79580E+00_JPRB,0.10196E+01_JPRB,0.10995E+01_JPRB,0.86317E+00_JPRB /)  
+KB(:, 1,44,12) = (/ &
+ & 0.17494E+00_JPRB,0.54678E+00_JPRB,0.73637E+00_JPRB,0.84544E+00_JPRB,0.60542E+00_JPRB /)  
+KB(:, 2,44,12) = (/ &
+ & 0.21877E+00_JPRB,0.60406E+00_JPRB,0.80575E+00_JPRB,0.91415E+00_JPRB,0.67322E+00_JPRB /)  
+KB(:, 3,44,12) = (/ &
+ & 0.26445E+00_JPRB,0.66075E+00_JPRB,0.87287E+00_JPRB,0.97625E+00_JPRB,0.73598E+00_JPRB /)  
+KB(:, 4,44,12) = (/ &
+ & 0.31161E+00_JPRB,0.71841E+00_JPRB,0.93827E+00_JPRB,0.10322E+01_JPRB,0.79326E+00_JPRB /)  
+KB(:, 5,44,12) = (/ &
+ & 0.36052E+00_JPRB,0.77622E+00_JPRB,0.99972E+00_JPRB,0.10831E+01_JPRB,0.84620E+00_JPRB /)  
+KB(:, 1,45,12) = (/ &
+ & 0.16016E+00_JPRB,0.52729E+00_JPRB,0.71224E+00_JPRB,0.82038E+00_JPRB,0.58172E+00_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART30',1,ZHOOK_HANDLE)
+END SUBROUTINE PART30
+
+
+SUBROUTINE PART31
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART31',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,45,12) = (/ &
+ & 0.20336E+00_JPRB,0.58455E+00_JPRB,0.78227E+00_JPRB,0.89144E+00_JPRB,0.65050E+00_JPRB /)  
+KB(:, 3,45,12) = (/ &
+ & 0.24861E+00_JPRB,0.64128E+00_JPRB,0.85023E+00_JPRB,0.95584E+00_JPRB,0.71509E+00_JPRB /)  
+KB(:, 4,45,12) = (/ &
+ & 0.29518E+00_JPRB,0.69870E+00_JPRB,0.91640E+00_JPRB,0.10138E+01_JPRB,0.77417E+00_JPRB /)  
+KB(:, 5,45,12) = (/ &
+ & 0.34361E+00_JPRB,0.75661E+00_JPRB,0.97947E+00_JPRB,0.10663E+01_JPRB,0.82874E+00_JPRB /)  
+KB(:, 1,46,12) = (/ &
+ & 0.14495E+00_JPRB,0.50668E+00_JPRB,0.68614E+00_JPRB,0.79268E+00_JPRB,0.55619E+00_JPRB /)  
+KB(:, 2,46,12) = (/ &
+ & 0.18729E+00_JPRB,0.56366E+00_JPRB,0.75707E+00_JPRB,0.86650E+00_JPRB,0.62580E+00_JPRB /)  
+KB(:, 3,46,12) = (/ &
+ & 0.23189E+00_JPRB,0.62077E+00_JPRB,0.82600E+00_JPRB,0.93336E+00_JPRB,0.69232E+00_JPRB /)  
+KB(:, 4,46,12) = (/ &
+ & 0.27798E+00_JPRB,0.67784E+00_JPRB,0.89269E+00_JPRB,0.99345E+00_JPRB,0.75352E+00_JPRB /)  
+KB(:, 5,46,12) = (/ &
+ & 0.32583E+00_JPRB,0.73560E+00_JPRB,0.95715E+00_JPRB,0.10480E+01_JPRB,0.80957E+00_JPRB /)  
+KB(:, 1,47,12) = (/ &
+ & 0.12858E+00_JPRB,0.48369E+00_JPRB,0.65638E+00_JPRB,0.76017E+00_JPRB,0.52730E+00_JPRB /)  
+KB(:, 2,47,12) = (/ &
+ & 0.16969E+00_JPRB,0.54041E+00_JPRB,0.72859E+00_JPRB,0.83745E+00_JPRB,0.59783E+00_JPRB /)  
+KB(:, 3,47,12) = (/ &
+ & 0.21344E+00_JPRB,0.59783E+00_JPRB,0.79837E+00_JPRB,0.90704E+00_JPRB,0.66606E+00_JPRB /)  
+KB(:, 4,47,12) = (/ &
+ & 0.25910E+00_JPRB,0.65455E+00_JPRB,0.86586E+00_JPRB,0.96989E+00_JPRB,0.72949E+00_JPRB /)  
+KB(:, 5,47,12) = (/ &
+ & 0.30618E+00_JPRB,0.71222E+00_JPRB,0.93155E+00_JPRB,0.10265E+01_JPRB,0.78728E+00_JPRB /)  
+KB(:, 1,48,12) = (/ &
+ & 0.11298E+00_JPRB,0.46082E+00_JPRB,0.62642E+00_JPRB,0.72640E+00_JPRB,0.49809E+00_JPRB /)  
+KB(:, 2,48,12) = (/ &
+ & 0.15246E+00_JPRB,0.51740E+00_JPRB,0.69983E+00_JPRB,0.80735E+00_JPRB,0.56961E+00_JPRB /)  
+KB(:, 3,48,12) = (/ &
+ & 0.19539E+00_JPRB,0.57459E+00_JPRB,0.77041E+00_JPRB,0.87978E+00_JPRB,0.63885E+00_JPRB /)  
+KB(:, 4,48,12) = (/ &
+ & 0.24045E+00_JPRB,0.63157E+00_JPRB,0.83892E+00_JPRB,0.94534E+00_JPRB,0.70441E+00_JPRB /)  
+KB(:, 5,48,12) = (/ &
+ & 0.28683E+00_JPRB,0.68881E+00_JPRB,0.90534E+00_JPRB,0.10043E+01_JPRB,0.76449E+00_JPRB /)  
+KB(:, 1,49,12) = (/ &
+ & 0.98247E-01_JPRB,0.43787E+00_JPRB,0.59630E+00_JPRB,0.69142E+00_JPRB,0.46886E+00_JPRB /)  
+KB(:, 2,49,12) = (/ &
+ & 0.13602E+00_JPRB,0.49453E+00_JPRB,0.67051E+00_JPRB,0.77567E+00_JPRB,0.54098E+00_JPRB /)  
+KB(:, 3,49,12) = (/ &
+ & 0.17773E+00_JPRB,0.55136E+00_JPRB,0.74221E+00_JPRB,0.85142E+00_JPRB,0.61109E+00_JPRB /)  
+KB(:, 4,49,12) = (/ &
+ & 0.22196E+00_JPRB,0.60876E+00_JPRB,0.81162E+00_JPRB,0.91969E+00_JPRB,0.67863E+00_JPRB /)  
+KB(:, 5,49,12) = (/ &
+ & 0.26789E+00_JPRB,0.66564E+00_JPRB,0.87866E+00_JPRB,0.98128E+00_JPRB,0.74108E+00_JPRB /)  
+KB(:, 1,50,12) = (/ &
+ & 0.85448E-01_JPRB,0.41621E+00_JPRB,0.56763E+00_JPRB,0.65757E+00_JPRB,0.44117E+00_JPRB /)  
+KB(:, 2,50,12) = (/ &
+ & 0.12109E+00_JPRB,0.47310E+00_JPRB,0.64247E+00_JPRB,0.74462E+00_JPRB,0.51379E+00_JPRB /)  
+KB(:, 3,50,12) = (/ &
+ & 0.16156E+00_JPRB,0.52985E+00_JPRB,0.71554E+00_JPRB,0.82373E+00_JPRB,0.58488E+00_JPRB /)  
+KB(:, 4,50,12) = (/ &
+ & 0.20488E+00_JPRB,0.58711E+00_JPRB,0.78559E+00_JPRB,0.89468E+00_JPRB,0.65362E+00_JPRB /)  
+KB(:, 5,50,12) = (/ &
+ & 0.25037E+00_JPRB,0.64398E+00_JPRB,0.85353E+00_JPRB,0.95880E+00_JPRB,0.71804E+00_JPRB /)  
+KB(:, 1,51,12) = (/ &
+ & 0.73759E-01_JPRB,0.39485E+00_JPRB,0.53977E+00_JPRB,0.62407E+00_JPRB,0.41437E+00_JPRB /)  
+KB(:, 2,51,12) = (/ &
+ & 0.10727E+00_JPRB,0.45237E+00_JPRB,0.61531E+00_JPRB,0.71353E+00_JPRB,0.48727E+00_JPRB /)  
+KB(:, 3,51,12) = (/ &
+ & 0.14620E+00_JPRB,0.50899E+00_JPRB,0.68916E+00_JPRB,0.79586E+00_JPRB,0.55909E+00_JPRB /)  
+KB(:, 4,51,12) = (/ &
+ & 0.18867E+00_JPRB,0.56597E+00_JPRB,0.76009E+00_JPRB,0.86950E+00_JPRB,0.62868E+00_JPRB /)  
+KB(:, 5,51,12) = (/ &
+ & 0.23351E+00_JPRB,0.62321E+00_JPRB,0.82900E+00_JPRB,0.93613E+00_JPRB,0.69507E+00_JPRB /)  
+KB(:, 1,52,12) = (/ &
+ & 0.62975E-01_JPRB,0.37352E+00_JPRB,0.51168E+00_JPRB,0.59007E+00_JPRB,0.38790E+00_JPRB /)  
+KB(:, 2,52,12) = (/ &
+ & 0.94238E-01_JPRB,0.43155E+00_JPRB,0.58786E+00_JPRB,0.68153E+00_JPRB,0.46072E+00_JPRB /)  
+KB(:, 3,52,12) = (/ &
+ & 0.13138E+00_JPRB,0.48824E+00_JPRB,0.66233E+00_JPRB,0.76673E+00_JPRB,0.53305E+00_JPRB /)  
+KB(:, 4,52,12) = (/ &
+ & 0.17291E+00_JPRB,0.54507E+00_JPRB,0.73444E+00_JPRB,0.84335E+00_JPRB,0.60343E+00_JPRB /)  
+KB(:, 5,52,12) = (/ &
+ & 0.21681E+00_JPRB,0.60245E+00_JPRB,0.80402E+00_JPRB,0.91249E+00_JPRB,0.67147E+00_JPRB /)  
+KB(:, 1,53,12) = (/ &
+ & 0.53060E-01_JPRB,0.35230E+00_JPRB,0.48353E+00_JPRB,0.55561E+00_JPRB,0.36178E+00_JPRB /)  
+KB(:, 2,53,12) = (/ &
+ & 0.81984E-01_JPRB,0.41041E+00_JPRB,0.56005E+00_JPRB,0.64855E+00_JPRB,0.43393E+00_JPRB /)  
+KB(:, 3,53,12) = (/ &
+ & 0.11713E+00_JPRB,0.46754E+00_JPRB,0.63518E+00_JPRB,0.73640E+00_JPRB,0.50665E+00_JPRB /)  
+KB(:, 4,53,12) = (/ &
+ & 0.15723E+00_JPRB,0.52417E+00_JPRB,0.70847E+00_JPRB,0.81636E+00_JPRB,0.57800E+00_JPRB /)  
+KB(:, 5,53,12) = (/ &
+ & 0.20038E+00_JPRB,0.58144E+00_JPRB,0.77877E+00_JPRB,0.88807E+00_JPRB,0.64700E+00_JPRB /)  
+KB(:, 1,54,12) = (/ &
+ & 0.44825E-01_JPRB,0.33285E+00_JPRB,0.45764E+00_JPRB,0.52392E+00_JPRB,0.33821E+00_JPRB /)  
+KB(:, 2,54,12) = (/ &
+ & 0.71480E-01_JPRB,0.39083E+00_JPRB,0.53456E+00_JPRB,0.61778E+00_JPRB,0.40943E+00_JPRB /)  
+KB(:, 3,54,12) = (/ &
+ & 0.10463E+00_JPRB,0.44857E+00_JPRB,0.61031E+00_JPRB,0.70773E+00_JPRB,0.48234E+00_JPRB /)  
+KB(:, 4,54,12) = (/ &
+ & 0.14329E+00_JPRB,0.50511E+00_JPRB,0.68427E+00_JPRB,0.79060E+00_JPRB,0.55433E+00_JPRB /)  
+KB(:, 5,54,12) = (/ &
+ & 0.18561E+00_JPRB,0.56209E+00_JPRB,0.75543E+00_JPRB,0.86487E+00_JPRB,0.62409E+00_JPRB /)  
+KB(:, 1,55,12) = (/ &
+ & 0.37713E-01_JPRB,0.31417E+00_JPRB,0.43292E+00_JPRB,0.49354E+00_JPRB,0.31617E+00_JPRB /)  
+KB(:, 2,55,12) = (/ &
+ & 0.62120E-01_JPRB,0.37210E+00_JPRB,0.50985E+00_JPRB,0.58786E+00_JPRB,0.38623E+00_JPRB /)  
+KB(:, 3,55,12) = (/ &
+ & 0.93283E-01_JPRB,0.43021E+00_JPRB,0.58608E+00_JPRB,0.67950E+00_JPRB,0.45902E+00_JPRB /)  
+KB(:, 4,55,12) = (/ &
+ & 0.13035E+00_JPRB,0.48690E+00_JPRB,0.66064E+00_JPRB,0.76487E+00_JPRB,0.53142E+00_JPRB /)  
+KB(:, 5,55,12) = (/ &
+ & 0.17183E+00_JPRB,0.54374E+00_JPRB,0.73284E+00_JPRB,0.84168E+00_JPRB,0.60189E+00_JPRB /)  
+KB(:, 1,56,12) = (/ &
+ & 0.31364E-01_JPRB,0.29533E+00_JPRB,0.40826E+00_JPRB,0.46346E+00_JPRB,0.29456E+00_JPRB /)  
+KB(:, 2,56,12) = (/ &
+ & 0.53447E-01_JPRB,0.35352E+00_JPRB,0.48522E+00_JPRB,0.55771E+00_JPRB,0.36336E+00_JPRB /)  
+KB(:, 3,56,12) = (/ &
+ & 0.82579E-01_JPRB,0.41171E+00_JPRB,0.56173E+00_JPRB,0.65061E+00_JPRB,0.43556E+00_JPRB /)  
+KB(:, 4,56,12) = (/ &
+ & 0.11788E+00_JPRB,0.46877E+00_JPRB,0.63683E+00_JPRB,0.73828E+00_JPRB,0.50830E+00_JPRB /)  
+KB(:, 5,56,12) = (/ &
+ & 0.15810E+00_JPRB,0.52547E+00_JPRB,0.71011E+00_JPRB,0.81806E+00_JPRB,0.57961E+00_JPRB /)  
+KB(:, 1,57,12) = (/ &
+ & 0.25728E-01_JPRB,0.27641E+00_JPRB,0.38366E+00_JPRB,0.43364E+00_JPRB,0.27324E+00_JPRB /)  
+KB(:, 2,57,12) = (/ &
+ & 0.45538E-01_JPRB,0.33495E+00_JPRB,0.46047E+00_JPRB,0.52741E+00_JPRB,0.34078E+00_JPRB /)  
+KB(:, 3,57,12) = (/ &
+ & 0.72492E-01_JPRB,0.39302E+00_JPRB,0.53741E+00_JPRB,0.62128E+00_JPRB,0.41216E+00_JPRB /)  
+KB(:, 4,57,12) = (/ &
+ & 0.10590E+00_JPRB,0.45065E+00_JPRB,0.61311E+00_JPRB,0.71103E+00_JPRB,0.48510E+00_JPRB /)  
+KB(:, 5,57,12) = (/ &
+ & 0.14476E+00_JPRB,0.50725E+00_JPRB,0.68700E+00_JPRB,0.79354E+00_JPRB,0.55702E+00_JPRB /)  
+KB(:, 1,58,12) = (/ &
+ & 0.21034E-01_JPRB,0.25862E+00_JPRB,0.36035E+00_JPRB,0.40559E+00_JPRB,0.25327E+00_JPRB /)  
+KB(:, 2,58,12) = (/ &
+ & 0.38718E-01_JPRB,0.31732E+00_JPRB,0.43714E+00_JPRB,0.49876E+00_JPRB,0.31992E+00_JPRB /)  
+KB(:, 3,58,12) = (/ &
+ & 0.63552E-01_JPRB,0.37529E+00_JPRB,0.51407E+00_JPRB,0.59305E+00_JPRB,0.39018E+00_JPRB /)  
+KB(:, 4,58,12) = (/ &
+ & 0.95105E-01_JPRB,0.43334E+00_JPRB,0.59030E+00_JPRB,0.68443E+00_JPRB,0.46307E+00_JPRB /)  
+KB(:, 5,58,12) = (/ &
+ & 0.13248E+00_JPRB,0.49002E+00_JPRB,0.66471E+00_JPRB,0.76934E+00_JPRB,0.53538E+00_JPRB /)  
+KB(:, 1,59,12) = (/ &
+ & 0.19312E-01_JPRB,0.25156E+00_JPRB,0.35103E+00_JPRB,0.39450E+00_JPRB,0.24538E+00_JPRB /)  
+KB(:, 2,59,12) = (/ &
+ & 0.36163E-01_JPRB,0.31020E+00_JPRB,0.42773E+00_JPRB,0.48723E+00_JPRB,0.31163E+00_JPRB /)  
+KB(:, 3,59,12) = (/ &
+ & 0.60143E-01_JPRB,0.36820E+00_JPRB,0.50471E+00_JPRB,0.58164E+00_JPRB,0.38146E+00_JPRB /)  
+KB(:, 4,59,12) = (/ &
+ & 0.90924E-01_JPRB,0.42637E+00_JPRB,0.58105E+00_JPRB,0.67358E+00_JPRB,0.45417E+00_JPRB /)  
+KB(:, 5,59,12) = (/ &
+ & 0.12765E+00_JPRB,0.48313E+00_JPRB,0.65572E+00_JPRB,0.75941E+00_JPRB,0.52665E+00_JPRB /)  
+KB(:, 1,13,13) = (/ &
+ & 0.25702E+01_JPRB,0.27735E+01_JPRB,0.28760E+01_JPRB,0.25966E+01_JPRB,0.23968E+01_JPRB /)  
+KB(:, 2,13,13) = (/ &
+ & 0.25597E+01_JPRB,0.27776E+01_JPRB,0.28903E+01_JPRB,0.26158E+01_JPRB,0.24224E+01_JPRB /)  
+KB(:, 3,13,13) = (/ &
+ & 0.25494E+01_JPRB,0.27801E+01_JPRB,0.29040E+01_JPRB,0.26351E+01_JPRB,0.24494E+01_JPRB /)  
+KB(:, 4,13,13) = (/ &
+ & 0.25338E+01_JPRB,0.27802E+01_JPRB,0.29182E+01_JPRB,0.26543E+01_JPRB,0.24747E+01_JPRB /)  
+KB(:, 5,13,13) = (/ &
+ & 0.25177E+01_JPRB,0.27760E+01_JPRB,0.29320E+01_JPRB,0.26728E+01_JPRB,0.24963E+01_JPRB /)  
+KB(:, 1,14,13) = (/ &
+ & 0.23659E+01_JPRB,0.26936E+01_JPRB,0.28410E+01_JPRB,0.26130E+01_JPRB,0.23363E+01_JPRB /)  
+KB(:, 2,14,13) = (/ &
+ & 0.23577E+01_JPRB,0.27024E+01_JPRB,0.28615E+01_JPRB,0.26344E+01_JPRB,0.23684E+01_JPRB /)  
+KB(:, 3,14,13) = (/ &
+ & 0.23468E+01_JPRB,0.27102E+01_JPRB,0.28819E+01_JPRB,0.26565E+01_JPRB,0.24004E+01_JPRB /)  
+KB(:, 4,14,13) = (/ &
+ & 0.23350E+01_JPRB,0.27153E+01_JPRB,0.29051E+01_JPRB,0.26785E+01_JPRB,0.24267E+01_JPRB /)  
+KB(:, 5,14,13) = (/ &
+ & 0.23244E+01_JPRB,0.27141E+01_JPRB,0.29262E+01_JPRB,0.26967E+01_JPRB,0.24480E+01_JPRB /)  
+KB(:, 1,15,13) = (/ &
+ & 0.21606E+01_JPRB,0.25927E+01_JPRB,0.27805E+01_JPRB,0.26146E+01_JPRB,0.22773E+01_JPRB /)  
+KB(:, 2,15,13) = (/ &
+ & 0.21537E+01_JPRB,0.26084E+01_JPRB,0.28087E+01_JPRB,0.26417E+01_JPRB,0.23162E+01_JPRB /)  
+KB(:, 3,15,13) = (/ &
+ & 0.21448E+01_JPRB,0.26237E+01_JPRB,0.28408E+01_JPRB,0.26683E+01_JPRB,0.23515E+01_JPRB /)  
+KB(:, 4,15,13) = (/ &
+ & 0.21380E+01_JPRB,0.26327E+01_JPRB,0.28720E+01_JPRB,0.26931E+01_JPRB,0.23792E+01_JPRB /)  
+KB(:, 5,15,13) = (/ &
+ & 0.21347E+01_JPRB,0.26387E+01_JPRB,0.29018E+01_JPRB,0.27159E+01_JPRB,0.24036E+01_JPRB /)  
+KB(:, 1,16,13) = (/ &
+ & 0.19588E+01_JPRB,0.24824E+01_JPRB,0.27086E+01_JPRB,0.26036E+01_JPRB,0.22170E+01_JPRB /)  
+KB(:, 2,16,13) = (/ &
+ & 0.19544E+01_JPRB,0.25053E+01_JPRB,0.27466E+01_JPRB,0.26370E+01_JPRB,0.22638E+01_JPRB /)  
+KB(:, 3,16,13) = (/ &
+ & 0.19508E+01_JPRB,0.25256E+01_JPRB,0.27882E+01_JPRB,0.26694E+01_JPRB,0.23023E+01_JPRB /)  
+KB(:, 4,16,13) = (/ &
+ & 0.19522E+01_JPRB,0.25422E+01_JPRB,0.28288E+01_JPRB,0.26997E+01_JPRB,0.23338E+01_JPRB /)  
+KB(:, 5,16,13) = (/ &
+ & 0.19669E+01_JPRB,0.25568E+01_JPRB,0.28660E+01_JPRB,0.27268E+01_JPRB,0.23639E+01_JPRB /)  
+KB(:, 1,17,13) = (/ &
+ & 0.17683E+01_JPRB,0.23717E+01_JPRB,0.26296E+01_JPRB,0.25828E+01_JPRB,0.21586E+01_JPRB /)  
+KB(:, 2,17,13) = (/ &
+ & 0.17670E+01_JPRB,0.24002E+01_JPRB,0.26798E+01_JPRB,0.26243E+01_JPRB,0.22104E+01_JPRB /)  
+KB(:, 3,17,13) = (/ &
+ & 0.17705E+01_JPRB,0.24261E+01_JPRB,0.27313E+01_JPRB,0.26643E+01_JPRB,0.22525E+01_JPRB /)  
+KB(:, 4,17,13) = (/ &
+ & 0.17889E+01_JPRB,0.24495E+01_JPRB,0.27802E+01_JPRB,0.27001E+01_JPRB,0.22912E+01_JPRB /)  
+KB(:, 5,17,13) = (/ &
+ & 0.18206E+01_JPRB,0.24734E+01_JPRB,0.28261E+01_JPRB,0.27304E+01_JPRB,0.23278E+01_JPRB /)  
+KB(:, 1,18,13) = (/ &
+ & 0.15903E+01_JPRB,0.22606E+01_JPRB,0.25530E+01_JPRB,0.25561E+01_JPRB,0.21033E+01_JPRB /)  
+KB(:, 2,18,13) = (/ &
+ & 0.15961E+01_JPRB,0.22974E+01_JPRB,0.26139E+01_JPRB,0.26069E+01_JPRB,0.21585E+01_JPRB /)  
+KB(:, 3,18,13) = (/ &
+ & 0.16151E+01_JPRB,0.23303E+01_JPRB,0.26738E+01_JPRB,0.26546E+01_JPRB,0.22069E+01_JPRB /)  
+KB(:, 4,18,13) = (/ &
+ & 0.16495E+01_JPRB,0.23625E+01_JPRB,0.27316E+01_JPRB,0.26970E+01_JPRB,0.22532E+01_JPRB /)  
+KB(:, 5,18,13) = (/ &
+ & 0.16970E+01_JPRB,0.23957E+01_JPRB,0.27859E+01_JPRB,0.27320E+01_JPRB,0.22970E+01_JPRB /)  
+KB(:, 1,19,13) = (/ &
+ & 0.14257E+01_JPRB,0.21563E+01_JPRB,0.24826E+01_JPRB,0.25271E+01_JPRB,0.20500E+01_JPRB /)  
+KB(:, 2,19,13) = (/ &
+ & 0.14448E+01_JPRB,0.21999E+01_JPRB,0.25521E+01_JPRB,0.25882E+01_JPRB,0.21113E+01_JPRB /)  
+KB(:, 3,19,13) = (/ &
+ & 0.14809E+01_JPRB,0.22420E+01_JPRB,0.26202E+01_JPRB,0.26436E+01_JPRB,0.21676E+01_JPRB /)  
+KB(:, 4,19,13) = (/ &
+ & 0.15301E+01_JPRB,0.22839E+01_JPRB,0.26861E+01_JPRB,0.26918E+01_JPRB,0.22215E+01_JPRB /)  
+KB(:, 5,19,13) = (/ &
+ & 0.15917E+01_JPRB,0.23278E+01_JPRB,0.27486E+01_JPRB,0.27324E+01_JPRB,0.22720E+01_JPRB /)  
+KB(:, 1,20,13) = (/ &
+ & 0.12800E+01_JPRB,0.20626E+01_JPRB,0.24230E+01_JPRB,0.25008E+01_JPRB,0.20040E+01_JPRB /)  
+KB(:, 2,20,13) = (/ &
+ & 0.13152E+01_JPRB,0.21132E+01_JPRB,0.24996E+01_JPRB,0.25711E+01_JPRB,0.20725E+01_JPRB /)  
+KB(:, 3,20,13) = (/ &
+ & 0.13653E+01_JPRB,0.21643E+01_JPRB,0.25750E+01_JPRB,0.26341E+01_JPRB,0.21362E+01_JPRB /)  
+KB(:, 4,20,13) = (/ &
+ & 0.14290E+01_JPRB,0.22166E+01_JPRB,0.26493E+01_JPRB,0.26871E+01_JPRB,0.21969E+01_JPRB /)  
+KB(:, 5,20,13) = (/ &
+ & 0.15047E+01_JPRB,0.22739E+01_JPRB,0.27186E+01_JPRB,0.27332E+01_JPRB,0.22536E+01_JPRB /)  
+KB(:, 1,21,13) = (/ &
+ & 0.11565E+01_JPRB,0.19804E+01_JPRB,0.23723E+01_JPRB,0.24790E+01_JPRB,0.19652E+01_JPRB /)  
+KB(:, 2,21,13) = (/ &
+ & 0.12043E+01_JPRB,0.20401E+01_JPRB,0.24563E+01_JPRB,0.25572E+01_JPRB,0.20406E+01_JPRB /)  
+KB(:, 3,21,13) = (/ &
+ & 0.12682E+01_JPRB,0.20995E+01_JPRB,0.25386E+01_JPRB,0.26265E+01_JPRB,0.21117E+01_JPRB /)  
+KB(:, 4,21,13) = (/ &
+ & 0.13446E+01_JPRB,0.21634E+01_JPRB,0.26197E+01_JPRB,0.26846E+01_JPRB,0.21783E+01_JPRB /)  
+KB(:, 5,21,13) = (/ &
+ & 0.14328E+01_JPRB,0.22322E+01_JPRB,0.26943E+01_JPRB,0.27351E+01_JPRB,0.22400E+01_JPRB /)  
+KB(:, 1,22,13) = (/ &
+ & 0.10567E+01_JPRB,0.19161E+01_JPRB,0.23380E+01_JPRB,0.24675E+01_JPRB,0.19394E+01_JPRB /)  
+KB(:, 2,22,13) = (/ &
+ & 0.11171E+01_JPRB,0.19843E+01_JPRB,0.24279E+01_JPRB,0.25525E+01_JPRB,0.20217E+01_JPRB /)  
+KB(:, 3,22,13) = (/ &
+ & 0.11926E+01_JPRB,0.20529E+01_JPRB,0.25167E+01_JPRB,0.26264E+01_JPRB,0.20987E+01_JPRB /)  
+KB(:, 4,22,13) = (/ &
+ & 0.12819E+01_JPRB,0.21280E+01_JPRB,0.26028E+01_JPRB,0.26881E+01_JPRB,0.21696E+01_JPRB /)  
+KB(:, 5,22,13) = (/ &
+ & 0.13818E+01_JPRB,0.22069E+01_JPRB,0.26807E+01_JPRB,0.27417E+01_JPRB,0.22350E+01_JPRB /)  
+KB(:, 1,23,13) = (/ &
+ & 0.97722E+00_JPRB,0.18665E+01_JPRB,0.23140E+01_JPRB,0.24623E+01_JPRB,0.19226E+01_JPRB /)  
+KB(:, 2,23,13) = (/ &
+ & 0.10487E+01_JPRB,0.19424E+01_JPRB,0.24103E+01_JPRB,0.25530E+01_JPRB,0.20109E+01_JPRB /)  
+KB(:, 3,23,13) = (/ &
+ & 0.11351E+01_JPRB,0.20216E+01_JPRB,0.25035E+01_JPRB,0.26294E+01_JPRB,0.20926E+01_JPRB /)  
+KB(:, 4,23,13) = (/ &
+ & 0.12356E+01_JPRB,0.21056E+01_JPRB,0.25931E+01_JPRB,0.26937E+01_JPRB,0.21670E+01_JPRB /)  
+KB(:, 5,23,13) = (/ &
+ & 0.13470E+01_JPRB,0.21926E+01_JPRB,0.26734E+01_JPRB,0.27495E+01_JPRB,0.22345E+01_JPRB /)  
+KB(:, 1,24,13) = (/ &
+ & 0.91609E+00_JPRB,0.18302E+01_JPRB,0.23004E+01_JPRB,0.24641E+01_JPRB,0.19149E+01_JPRB /)  
+KB(:, 2,24,13) = (/ &
+ & 0.99757E+00_JPRB,0.19150E+01_JPRB,0.24014E+01_JPRB,0.25579E+01_JPRB,0.20076E+01_JPRB /)  
+KB(:, 3,24,13) = (/ &
+ & 0.10945E+01_JPRB,0.20031E+01_JPRB,0.24987E+01_JPRB,0.26360E+01_JPRB,0.20926E+01_JPRB /)  
+KB(:, 4,24,13) = (/ &
+ & 0.12058E+01_JPRB,0.20942E+01_JPRB,0.25896E+01_JPRB,0.27020E+01_JPRB,0.21691E+01_JPRB /)  
+KB(:, 5,24,13) = (/ &
+ & 0.13269E+01_JPRB,0.21869E+01_JPRB,0.26718E+01_JPRB,0.27594E+01_JPRB,0.22381E+01_JPRB /)  
+KB(:, 1,25,13) = (/ &
+ & 0.87183E+00_JPRB,0.18068E+01_JPRB,0.22964E+01_JPRB,0.24719E+01_JPRB,0.19153E+01_JPRB /)  
+KB(:, 2,25,13) = (/ &
+ & 0.96269E+00_JPRB,0.19004E+01_JPRB,0.24012E+01_JPRB,0.25669E+01_JPRB,0.20109E+01_JPRB /)  
+KB(:, 3,25,13) = (/ &
+ & 0.10701E+01_JPRB,0.19953E+01_JPRB,0.24998E+01_JPRB,0.26458E+01_JPRB,0.20980E+01_JPRB /)  
+KB(:, 4,25,13) = (/ &
+ & 0.11910E+01_JPRB,0.20919E+01_JPRB,0.25913E+01_JPRB,0.27126E+01_JPRB,0.21754E+01_JPRB /)  
+KB(:, 5,25,13) = (/ &
+ & 0.13188E+01_JPRB,0.21891E+01_JPRB,0.26749E+01_JPRB,0.27711E+01_JPRB,0.22449E+01_JPRB /)  
+KB(:, 1,26,13) = (/ &
+ & 0.84313E+00_JPRB,0.17965E+01_JPRB,0.23011E+01_JPRB,0.24858E+01_JPRB,0.19238E+01_JPRB /)  
+KB(:, 2,26,13) = (/ &
+ & 0.94434E+00_JPRB,0.18970E+01_JPRB,0.24073E+01_JPRB,0.25798E+01_JPRB,0.20205E+01_JPRB /)  
+KB(:, 3,26,13) = (/ &
+ & 0.10612E+01_JPRB,0.19972E+01_JPRB,0.25069E+01_JPRB,0.26589E+01_JPRB,0.21080E+01_JPRB /)  
+KB(:, 4,26,13) = (/ &
+ & 0.11887E+01_JPRB,0.20979E+01_JPRB,0.25988E+01_JPRB,0.27257E+01_JPRB,0.21853E+01_JPRB /)  
+KB(:, 5,26,13) = (/ &
+ & 0.13225E+01_JPRB,0.21985E+01_JPRB,0.26831E+01_JPRB,0.27841E+01_JPRB,0.22550E+01_JPRB /)  
+KB(:, 1,27,13) = (/ &
+ & 0.82783E+00_JPRB,0.17960E+01_JPRB,0.23110E+01_JPRB,0.25019E+01_JPRB,0.19363E+01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART31',1,ZHOOK_HANDLE)
+END SUBROUTINE PART31
+
+
+SUBROUTINE PART32
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART32',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,27,13) = (/ &
+ & 0.93873E+00_JPRB,0.19014E+01_JPRB,0.24182E+01_JPRB,0.25950E+01_JPRB,0.20338E+01_JPRB /)  
+KB(:, 3,27,13) = (/ &
+ & 0.10628E+01_JPRB,0.20052E+01_JPRB,0.25176E+01_JPRB,0.26735E+01_JPRB,0.21206E+01_JPRB /)  
+KB(:, 4,27,13) = (/ &
+ & 0.11961E+01_JPRB,0.21092E+01_JPRB,0.26097E+01_JPRB,0.27398E+01_JPRB,0.21974E+01_JPRB /)  
+KB(:, 5,27,13) = (/ &
+ & 0.13342E+01_JPRB,0.22123E+01_JPRB,0.26944E+01_JPRB,0.27973E+01_JPRB,0.22665E+01_JPRB /)  
+KB(:, 1,28,13) = (/ &
+ & 0.82452E+00_JPRB,0.18027E+01_JPRB,0.23247E+01_JPRB,0.25200E+01_JPRB,0.19523E+01_JPRB /)  
+KB(:, 2,28,13) = (/ &
+ & 0.94277E+00_JPRB,0.19121E+01_JPRB,0.24323E+01_JPRB,0.26114E+01_JPRB,0.20494E+01_JPRB /)  
+KB(:, 3,28,13) = (/ &
+ & 0.10725E+01_JPRB,0.20183E+01_JPRB,0.25313E+01_JPRB,0.26888E+01_JPRB,0.21352E+01_JPRB /)  
+KB(:, 4,28,13) = (/ &
+ & 0.12107E+01_JPRB,0.21244E+01_JPRB,0.26233E+01_JPRB,0.27544E+01_JPRB,0.22110E+01_JPRB /)  
+KB(:, 5,28,13) = (/ &
+ & 0.13516E+01_JPRB,0.22292E+01_JPRB,0.27078E+01_JPRB,0.28106E+01_JPRB,0.22794E+01_JPRB /)  
+KB(:, 1,29,13) = (/ &
+ & 0.83075E+00_JPRB,0.18160E+01_JPRB,0.23425E+01_JPRB,0.25401E+01_JPRB,0.19712E+01_JPRB /)  
+KB(:, 2,29,13) = (/ &
+ & 0.95513E+00_JPRB,0.19278E+01_JPRB,0.24494E+01_JPRB,0.26294E+01_JPRB,0.20669E+01_JPRB /)  
+KB(:, 3,29,13) = (/ &
+ & 0.10900E+01_JPRB,0.20358E+01_JPRB,0.25478E+01_JPRB,0.27053E+01_JPRB,0.21513E+01_JPRB /)  
+KB(:, 4,29,13) = (/ &
+ & 0.12315E+01_JPRB,0.21431E+01_JPRB,0.26391E+01_JPRB,0.27692E+01_JPRB,0.22259E+01_JPRB /)  
+KB(:, 5,29,13) = (/ &
+ & 0.13745E+01_JPRB,0.22488E+01_JPRB,0.27235E+01_JPRB,0.28240E+01_JPRB,0.22934E+01_JPRB /)  
+KB(:, 1,30,13) = (/ &
+ & 0.84416E+00_JPRB,0.18336E+01_JPRB,0.23624E+01_JPRB,0.25609E+01_JPRB,0.19916E+01_JPRB /)  
+KB(:, 2,30,13) = (/ &
+ & 0.97368E+00_JPRB,0.19464E+01_JPRB,0.24682E+01_JPRB,0.26481E+01_JPRB,0.20854E+01_JPRB /)  
+KB(:, 3,30,13) = (/ &
+ & 0.11126E+01_JPRB,0.20559E+01_JPRB,0.25658E+01_JPRB,0.27219E+01_JPRB,0.21680E+01_JPRB /)  
+KB(:, 4,30,13) = (/ &
+ & 0.12564E+01_JPRB,0.21643E+01_JPRB,0.26566E+01_JPRB,0.27840E+01_JPRB,0.22414E+01_JPRB /)  
+KB(:, 5,30,13) = (/ &
+ & 0.14008E+01_JPRB,0.22700E+01_JPRB,0.27405E+01_JPRB,0.28371E+01_JPRB,0.23076E+01_JPRB /)  
+KB(:, 1,31,13) = (/ &
+ & 0.86384E+00_JPRB,0.18548E+01_JPRB,0.23844E+01_JPRB,0.25824E+01_JPRB,0.20133E+01_JPRB /)  
+KB(:, 2,31,13) = (/ &
+ & 0.99753E+00_JPRB,0.19681E+01_JPRB,0.24888E+01_JPRB,0.26671E+01_JPRB,0.21046E+01_JPRB /)  
+KB(:, 3,31,13) = (/ &
+ & 0.11394E+01_JPRB,0.20787E+01_JPRB,0.25856E+01_JPRB,0.27387E+01_JPRB,0.21855E+01_JPRB /)  
+KB(:, 4,31,13) = (/ &
+ & 0.12850E+01_JPRB,0.21876E+01_JPRB,0.26758E+01_JPRB,0.27988E+01_JPRB,0.22577E+01_JPRB /)  
+KB(:, 5,31,13) = (/ &
+ & 0.14304E+01_JPRB,0.22931E+01_JPRB,0.27584E+01_JPRB,0.28498E+01_JPRB,0.23225E+01_JPRB /)  
+KB(:, 1,32,13) = (/ &
+ & 0.88808E+00_JPRB,0.18788E+01_JPRB,0.24078E+01_JPRB,0.26044E+01_JPRB,0.20359E+01_JPRB /)  
+KB(:, 2,32,13) = (/ &
+ & 0.10254E+01_JPRB,0.19921E+01_JPRB,0.25106E+01_JPRB,0.26862E+01_JPRB,0.21246E+01_JPRB /)  
+KB(:, 3,32,13) = (/ &
+ & 0.11696E+01_JPRB,0.21031E+01_JPRB,0.26064E+01_JPRB,0.27554E+01_JPRB,0.22034E+01_JPRB /)  
+KB(:, 4,32,13) = (/ &
+ & 0.13164E+01_JPRB,0.22122E+01_JPRB,0.26955E+01_JPRB,0.28135E+01_JPRB,0.22742E+01_JPRB /)  
+KB(:, 5,32,13) = (/ &
+ & 0.14621E+01_JPRB,0.23175E+01_JPRB,0.27772E+01_JPRB,0.28624E+01_JPRB,0.23376E+01_JPRB /)  
+KB(:, 1,33,13) = (/ &
+ & 0.91576E+00_JPRB,0.19044E+01_JPRB,0.24318E+01_JPRB,0.26262E+01_JPRB,0.20585E+01_JPRB /)  
+KB(:, 2,33,13) = (/ &
+ & 0.10563E+01_JPRB,0.20178E+01_JPRB,0.25332E+01_JPRB,0.27053E+01_JPRB,0.21448E+01_JPRB /)  
+KB(:, 3,33,13) = (/ &
+ & 0.12022E+01_JPRB,0.21286E+01_JPRB,0.26280E+01_JPRB,0.27719E+01_JPRB,0.22216E+01_JPRB /)  
+KB(:, 4,33,13) = (/ &
+ & 0.13498E+01_JPRB,0.22379E+01_JPRB,0.27158E+01_JPRB,0.28276E+01_JPRB,0.22909E+01_JPRB /)  
+KB(:, 5,33,13) = (/ &
+ & 0.14952E+01_JPRB,0.23427E+01_JPRB,0.27963E+01_JPRB,0.28748E+01_JPRB,0.23524E+01_JPRB /)  
+KB(:, 1,34,13) = (/ &
+ & 0.94113E+00_JPRB,0.19270E+01_JPRB,0.24527E+01_JPRB,0.26448E+01_JPRB,0.20775E+01_JPRB /)  
+KB(:, 2,34,13) = (/ &
+ & 0.10840E+01_JPRB,0.20405E+01_JPRB,0.25528E+01_JPRB,0.27213E+01_JPRB,0.21619E+01_JPRB /)  
+KB(:, 3,34,13) = (/ &
+ & 0.12311E+01_JPRB,0.21512E+01_JPRB,0.26466E+01_JPRB,0.27855E+01_JPRB,0.22370E+01_JPRB /)  
+KB(:, 4,34,13) = (/ &
+ & 0.13793E+01_JPRB,0.22602E+01_JPRB,0.27333E+01_JPRB,0.28395E+01_JPRB,0.23050E+01_JPRB /)  
+KB(:, 5,34,13) = (/ &
+ & 0.15242E+01_JPRB,0.23644E+01_JPRB,0.28128E+01_JPRB,0.28850E+01_JPRB,0.23650E+01_JPRB /)  
+KB(:, 1,35,13) = (/ &
+ & 0.95467E+00_JPRB,0.19391E+01_JPRB,0.24637E+01_JPRB,0.26549E+01_JPRB,0.20879E+01_JPRB /)  
+KB(:, 2,35,13) = (/ &
+ & 0.10989E+01_JPRB,0.20529E+01_JPRB,0.25635E+01_JPRB,0.27301E+01_JPRB,0.21712E+01_JPRB /)  
+KB(:, 3,35,13) = (/ &
+ & 0.12468E+01_JPRB,0.21638E+01_JPRB,0.26569E+01_JPRB,0.27931E+01_JPRB,0.22456E+01_JPRB /)  
+KB(:, 4,35,13) = (/ &
+ & 0.13953E+01_JPRB,0.22726E+01_JPRB,0.27430E+01_JPRB,0.28463E+01_JPRB,0.23128E+01_JPRB /)  
+KB(:, 5,35,13) = (/ &
+ & 0.15401E+01_JPRB,0.23764E+01_JPRB,0.28219E+01_JPRB,0.28908E+01_JPRB,0.23721E+01_JPRB /)  
+KB(:, 1,36,13) = (/ &
+ & 0.95401E+00_JPRB,0.19393E+01_JPRB,0.24641E+01_JPRB,0.26563E+01_JPRB,0.20890E+01_JPRB /)  
+KB(:, 2,36,13) = (/ &
+ & 0.10986E+01_JPRB,0.20534E+01_JPRB,0.25640E+01_JPRB,0.27314E+01_JPRB,0.21722E+01_JPRB /)  
+KB(:, 3,36,13) = (/ &
+ & 0.12470E+01_JPRB,0.21646E+01_JPRB,0.26577E+01_JPRB,0.27946E+01_JPRB,0.22466E+01_JPRB /)  
+KB(:, 4,36,13) = (/ &
+ & 0.13959E+01_JPRB,0.22738E+01_JPRB,0.27440E+01_JPRB,0.28477E+01_JPRB,0.23138E+01_JPRB /)  
+KB(:, 5,36,13) = (/ &
+ & 0.15410E+01_JPRB,0.23778E+01_JPRB,0.28230E+01_JPRB,0.28922E+01_JPRB,0.23732E+01_JPRB /)  
+KB(:, 1,37,13) = (/ &
+ & 0.93269E+00_JPRB,0.19221E+01_JPRB,0.24490E+01_JPRB,0.26452E+01_JPRB,0.20765E+01_JPRB /)  
+KB(:, 2,37,13) = (/ &
+ & 0.10767E+01_JPRB,0.20372E+01_JPRB,0.25499E+01_JPRB,0.27223E+01_JPRB,0.21614E+01_JPRB /)  
+KB(:, 3,37,13) = (/ &
+ & 0.12250E+01_JPRB,0.21490E+01_JPRB,0.26449E+01_JPRB,0.27873E+01_JPRB,0.22369E+01_JPRB /)  
+KB(:, 4,37,13) = (/ &
+ & 0.13744E+01_JPRB,0.22588E+01_JPRB,0.27324E+01_JPRB,0.28416E+01_JPRB,0.23053E+01_JPRB /)  
+KB(:, 5,37,13) = (/ &
+ & 0.15205E+01_JPRB,0.23639E+01_JPRB,0.28124E+01_JPRB,0.28871E+01_JPRB,0.23656E+01_JPRB /)  
+KB(:, 1,38,13) = (/ &
+ & 0.91080E+00_JPRB,0.19040E+01_JPRB,0.24332E+01_JPRB,0.26332E+01_JPRB,0.20631E+01_JPRB /)  
+KB(:, 2,38,13) = (/ &
+ & 0.10540E+01_JPRB,0.20201E+01_JPRB,0.25351E+01_JPRB,0.27123E+01_JPRB,0.21497E+01_JPRB /)  
+KB(:, 3,38,13) = (/ &
+ & 0.12022E+01_JPRB,0.21326E+01_JPRB,0.26310E+01_JPRB,0.27790E+01_JPRB,0.22264E+01_JPRB /)  
+KB(:, 4,38,13) = (/ &
+ & 0.13520E+01_JPRB,0.22432E+01_JPRB,0.27202E+01_JPRB,0.28347E+01_JPRB,0.22959E+01_JPRB /)  
+KB(:, 5,38,13) = (/ &
+ & 0.14989E+01_JPRB,0.23490E+01_JPRB,0.28012E+01_JPRB,0.28815E+01_JPRB,0.23575E+01_JPRB /)  
+KB(:, 1,39,13) = (/ &
+ & 0.88956E+00_JPRB,0.18861E+01_JPRB,0.24173E+01_JPRB,0.26207E+01_JPRB,0.20495E+01_JPRB /)  
+KB(:, 2,39,13) = (/ &
+ & 0.10319E+01_JPRB,0.20032E+01_JPRB,0.25205E+01_JPRB,0.27021E+01_JPRB,0.21379E+01_JPRB /)  
+KB(:, 3,39,13) = (/ &
+ & 0.11798E+01_JPRB,0.21163E+01_JPRB,0.26173E+01_JPRB,0.27704E+01_JPRB,0.22159E+01_JPRB /)  
+KB(:, 4,39,13) = (/ &
+ & 0.13298E+01_JPRB,0.22272E+01_JPRB,0.27078E+01_JPRB,0.28277E+01_JPRB,0.22865E+01_JPRB /)  
+KB(:, 5,39,13) = (/ &
+ & 0.14775E+01_JPRB,0.23341E+01_JPRB,0.27901E+01_JPRB,0.28757E+01_JPRB,0.23493E+01_JPRB /)  
+KB(:, 1,40,13) = (/ &
+ & 0.85494E+00_JPRB,0.18558E+01_JPRB,0.23904E+01_JPRB,0.25985E+01_JPRB,0.20255E+01_JPRB /)  
+KB(:, 2,40,13) = (/ &
+ & 0.99514E+00_JPRB,0.19745E+01_JPRB,0.24954E+01_JPRB,0.26836E+01_JPRB,0.21170E+01_JPRB /)  
+KB(:, 3,40,13) = (/ &
+ & 0.11424E+01_JPRB,0.20885E+01_JPRB,0.25938E+01_JPRB,0.27547E+01_JPRB,0.21975E+01_JPRB /)  
+KB(:, 4,40,13) = (/ &
+ & 0.12924E+01_JPRB,0.22001E+01_JPRB,0.26861E+01_JPRB,0.28148E+01_JPRB,0.22700E+01_JPRB /)  
+KB(:, 5,40,13) = (/ &
+ & 0.14413E+01_JPRB,0.23083E+01_JPRB,0.27705E+01_JPRB,0.28664E+01_JPRB,0.23349E+01_JPRB /)  
+KB(:, 1,41,13) = (/ &
+ & 0.81957E+00_JPRB,0.18237E+01_JPRB,0.23613E+01_JPRB,0.25741E+01_JPRB,0.19997E+01_JPRB /)  
+KB(:, 2,41,13) = (/ &
+ & 0.95728E+00_JPRB,0.19441E+01_JPRB,0.24688E+01_JPRB,0.26632E+01_JPRB,0.20945E+01_JPRB /)  
+KB(:, 3,41,13) = (/ &
+ & 0.11034E+01_JPRB,0.20591E+01_JPRB,0.25687E+01_JPRB,0.27378E+01_JPRB,0.21777E+01_JPRB /)  
+KB(:, 4,41,13) = (/ &
+ & 0.12530E+01_JPRB,0.21714E+01_JPRB,0.26630E+01_JPRB,0.28005E+01_JPRB,0.22519E+01_JPRB /)  
+KB(:, 5,41,13) = (/ &
+ & 0.14027E+01_JPRB,0.22807E+01_JPRB,0.27494E+01_JPRB,0.28533E+01_JPRB,0.23190E+01_JPRB /)  
+KB(:, 1,42,13) = (/ &
+ & 0.78503E+00_JPRB,0.17918E+01_JPRB,0.23317E+01_JPRB,0.25487E+01_JPRB,0.19734E+01_JPRB /)  
+KB(:, 2,42,13) = (/ &
+ & 0.92016E+00_JPRB,0.19132E+01_JPRB,0.24418E+01_JPRB,0.26418E+01_JPRB,0.20712E+01_JPRB /)  
+KB(:, 3,42,13) = (/ &
+ & 0.10646E+01_JPRB,0.20294E+01_JPRB,0.25432E+01_JPRB,0.27200E+01_JPRB,0.21575E+01_JPRB /)  
+KB(:, 4,42,13) = (/ &
+ & 0.12137E+01_JPRB,0.21426E+01_JPRB,0.26392E+01_JPRB,0.27859E+01_JPRB,0.22336E+01_JPRB /)  
+KB(:, 5,42,13) = (/ &
+ & 0.13639E+01_JPRB,0.22528E+01_JPRB,0.27279E+01_JPRB,0.28411E+01_JPRB,0.23026E+01_JPRB /)  
+KB(:, 1,43,13) = (/ &
+ & 0.74423E+00_JPRB,0.17527E+01_JPRB,0.22949E+01_JPRB,0.25159E+01_JPRB,0.19403E+01_JPRB /)  
+KB(:, 2,43,13) = (/ &
+ & 0.87589E+00_JPRB,0.18750E+01_JPRB,0.24080E+01_JPRB,0.26143E+01_JPRB,0.20417E+01_JPRB /)  
+KB(:, 3,43,13) = (/ &
+ & 0.10179E+01_JPRB,0.19932E+01_JPRB,0.25118E+01_JPRB,0.26972E+01_JPRB,0.21315E+01_JPRB /)  
+KB(:, 4,43,13) = (/ &
+ & 0.11661E+01_JPRB,0.21073E+01_JPRB,0.26096E+01_JPRB,0.27665E+01_JPRB,0.22105E+01_JPRB /)  
+KB(:, 5,43,13) = (/ &
+ & 0.13165E+01_JPRB,0.22185E+01_JPRB,0.27008E+01_JPRB,0.28247E+01_JPRB,0.22817E+01_JPRB /)  
+KB(:, 1,44,13) = (/ &
+ & 0.70183E+00_JPRB,0.17101E+01_JPRB,0.22539E+01_JPRB,0.24783E+01_JPRB,0.19029E+01_JPRB /)  
+KB(:, 2,44,13) = (/ &
+ & 0.82940E+00_JPRB,0.18334E+01_JPRB,0.23707E+01_JPRB,0.25829E+01_JPRB,0.20083E+01_JPRB /)  
+KB(:, 3,44,13) = (/ &
+ & 0.96829E+00_JPRB,0.19537E+01_JPRB,0.24774E+01_JPRB,0.26707E+01_JPRB,0.21022E+01_JPRB /)  
+KB(:, 4,44,13) = (/ &
+ & 0.11151E+01_JPRB,0.20687E+01_JPRB,0.25770E+01_JPRB,0.27443E+01_JPRB,0.21846E+01_JPRB /)  
+KB(:, 5,44,13) = (/ &
+ & 0.12651E+01_JPRB,0.21808E+01_JPRB,0.26707E+01_JPRB,0.28061E+01_JPRB,0.22584E+01_JPRB /)  
+KB(:, 1,45,13) = (/ &
+ & 0.66118E+00_JPRB,0.16676E+01_JPRB,0.22119E+01_JPRB,0.24384E+01_JPRB,0.18634E+01_JPRB /)  
+KB(:, 2,45,13) = (/ &
+ & 0.78445E+00_JPRB,0.17917E+01_JPRB,0.23321E+01_JPRB,0.25495E+01_JPRB,0.19739E+01_JPRB /)  
+KB(:, 3,45,13) = (/ &
+ & 0.91984E+00_JPRB,0.19133E+01_JPRB,0.24421E+01_JPRB,0.26427E+01_JPRB,0.20718E+01_JPRB /)  
+KB(:, 4,45,13) = (/ &
+ & 0.10646E+01_JPRB,0.20301E+01_JPRB,0.25439E+01_JPRB,0.27211E+01_JPRB,0.21582E+01_JPRB /)  
+KB(:, 5,45,13) = (/ &
+ & 0.12138E+01_JPRB,0.21430E+01_JPRB,0.26395E+01_JPRB,0.27867E+01_JPRB,0.22343E+01_JPRB /)  
+KB(:, 1,46,13) = (/ &
+ & 0.61933E+00_JPRB,0.16221E+01_JPRB,0.21659E+01_JPRB,0.23935E+01_JPRB,0.18196E+01_JPRB /)  
+KB(:, 2,46,13) = (/ &
+ & 0.73807E+00_JPRB,0.17470E+01_JPRB,0.22898E+01_JPRB,0.25118E+01_JPRB,0.19358E+01_JPRB /)  
+KB(:, 3,46,13) = (/ &
+ & 0.86934E+00_JPRB,0.18696E+01_JPRB,0.24034E+01_JPRB,0.26109E+01_JPRB,0.20379E+01_JPRB /)  
+KB(:, 4,46,13) = (/ &
+ & 0.10113E+01_JPRB,0.19884E+01_JPRB,0.25076E+01_JPRB,0.26946E+01_JPRB,0.21283E+01_JPRB /)  
+KB(:, 5,46,13) = (/ &
+ & 0.11593E+01_JPRB,0.21025E+01_JPRB,0.26055E+01_JPRB,0.27643E+01_JPRB,0.22076E+01_JPRB /)  
+KB(:, 1,47,13) = (/ &
+ & 0.57374E+00_JPRB,0.15709E+01_JPRB,0.21131E+01_JPRB,0.23400E+01_JPRB,0.17680E+01_JPRB /)  
+KB(:, 2,47,13) = (/ &
+ & 0.68838E+00_JPRB,0.16965E+01_JPRB,0.22409E+01_JPRB,0.24665E+01_JPRB,0.18907E+01_JPRB /)  
+KB(:, 3,47,13) = (/ &
+ & 0.81478E+00_JPRB,0.18201E+01_JPRB,0.23589E+01_JPRB,0.25731E+01_JPRB,0.19980E+01_JPRB /)  
+KB(:, 4,47,13) = (/ &
+ & 0.95278E+00_JPRB,0.19412E+01_JPRB,0.24665E+01_JPRB,0.26626E+01_JPRB,0.20931E+01_JPRB /)  
+KB(:, 5,47,13) = (/ &
+ & 0.10991E+01_JPRB,0.20567E+01_JPRB,0.25667E+01_JPRB,0.27376E+01_JPRB,0.21769E+01_JPRB /)  
+KB(:, 1,48,13) = (/ &
+ & 0.52946E+00_JPRB,0.15198E+01_JPRB,0.20592E+01_JPRB,0.22834E+01_JPRB,0.17136E+01_JPRB /)  
+KB(:, 2,48,13) = (/ &
+ & 0.64089E+00_JPRB,0.16459E+01_JPRB,0.21904E+01_JPRB,0.24180E+01_JPRB,0.18431E+01_JPRB /)  
+KB(:, 3,48,13) = (/ &
+ & 0.76211E+00_JPRB,0.17708E+01_JPRB,0.23126E+01_JPRB,0.25324E+01_JPRB,0.19565E+01_JPRB /)  
+KB(:, 4,48,13) = (/ &
+ & 0.89568E+00_JPRB,0.18928E+01_JPRB,0.24241E+01_JPRB,0.26284E+01_JPRB,0.20564E+01_JPRB /)  
+KB(:, 5,48,13) = (/ &
+ & 0.10393E+01_JPRB,0.20105E+01_JPRB,0.25268E+01_JPRB,0.27091E+01_JPRB,0.21445E+01_JPRB /)  
+KB(:, 1,49,13) = (/ &
+ & 0.48708E+00_JPRB,0.14681E+01_JPRB,0.20029E+01_JPRB,0.22232E+01_JPRB,0.16566E+01_JPRB /)  
+KB(:, 2,49,13) = (/ &
+ & 0.59510E+00_JPRB,0.15951E+01_JPRB,0.21382E+01_JPRB,0.23660E+01_JPRB,0.17928E+01_JPRB /)  
+KB(:, 3,49,13) = (/ &
+ & 0.71141E+00_JPRB,0.17205E+01_JPRB,0.22646E+01_JPRB,0.24889E+01_JPRB,0.19130E+01_JPRB /)  
+KB(:, 4,49,13) = (/ &
+ & 0.84034E+00_JPRB,0.18437E+01_JPRB,0.23804E+01_JPRB,0.25917E+01_JPRB,0.20174E+01_JPRB /)  
+KB(:, 5,49,13) = (/ &
+ & 0.98023E+00_JPRB,0.19637E+01_JPRB,0.24863E+01_JPRB,0.26785E+01_JPRB,0.21102E+01_JPRB /)  
+KB(:, 1,50,13) = (/ &
+ & 0.44946E+00_JPRB,0.14198E+01_JPRB,0.19480E+01_JPRB,0.21639E+01_JPRB,0.16005E+01_JPRB /)  
+KB(:, 2,50,13) = (/ &
+ & 0.55308E+00_JPRB,0.15472E+01_JPRB,0.20885E+01_JPRB,0.23146E+01_JPRB,0.17433E+01_JPRB /)  
+KB(:, 3,50,13) = (/ &
+ & 0.66640E+00_JPRB,0.16732E+01_JPRB,0.22179E+01_JPRB,0.24447E+01_JPRB,0.18693E+01_JPRB /)  
+KB(:, 4,50,13) = (/ &
+ & 0.79021E+00_JPRB,0.17975E+01_JPRB,0.23380E+01_JPRB,0.25550E+01_JPRB,0.19794E+01_JPRB /)  
+KB(:, 5,50,13) = (/ &
+ & 0.92626E+00_JPRB,0.19191E+01_JPRB,0.24474E+01_JPRB,0.26476E+01_JPRB,0.20768E+01_JPRB /)  
+KB(:, 1,51,13) = (/ &
+ & 0.41452E+00_JPRB,0.13727E+01_JPRB,0.18922E+01_JPRB,0.21038E+01_JPRB,0.15428E+01_JPRB /)  
+KB(:, 2,51,13) = (/ &
+ & 0.51362E+00_JPRB,0.15005E+01_JPRB,0.20385E+01_JPRB,0.22616E+01_JPRB,0.16930E+01_JPRB /)  
+KB(:, 3,51,13) = (/ &
+ & 0.62394E+00_JPRB,0.16272E+01_JPRB,0.21714E+01_JPRB,0.23993E+01_JPRB,0.18251E+01_JPRB /)  
+KB(:, 4,51,13) = (/ &
+ & 0.74304E+00_JPRB,0.17523E+01_JPRB,0.22953E+01_JPRB,0.25171E+01_JPRB,0.19410E+01_JPRB /)  
+KB(:, 5,51,13) = (/ &
+ & 0.87505E+00_JPRB,0.18748E+01_JPRB,0.24082E+01_JPRB,0.26155E+01_JPRB,0.20426E+01_JPRB /)  
+KB(:, 1,52,13) = (/ &
+ & 0.38121E+00_JPRB,0.13250E+01_JPRB,0.18350E+01_JPRB,0.20413E+01_JPRB,0.14822E+01_JPRB /)  
+KB(:, 2,52,13) = (/ &
+ & 0.47581E+00_JPRB,0.14538E+01_JPRB,0.19870E+01_JPRB,0.22062E+01_JPRB,0.16405E+01_JPRB /)  
+KB(:, 3,52,13) = (/ &
+ & 0.58258E+00_JPRB,0.15810E+01_JPRB,0.21239E+01_JPRB,0.23514E+01_JPRB,0.17789E+01_JPRB /)  
+KB(:, 4,52,13) = (/ &
+ & 0.69813E+00_JPRB,0.17065E+01_JPRB,0.22509E+01_JPRB,0.24762E+01_JPRB,0.19005E+01_JPRB /)  
+KB(:, 5,52,13) = (/ &
+ & 0.82543E+00_JPRB,0.18301E+01_JPRB,0.23683E+01_JPRB,0.25815E+01_JPRB,0.20067E+01_JPRB /)  
+KB(:, 1,53,13) = (/ &
+ & 0.34902E+00_JPRB,0.12769E+01_JPRB,0.17751E+01_JPRB,0.19762E+01_JPRB,0.14178E+01_JPRB /)  
+KB(:, 2,53,13) = (/ &
+ & 0.43953E+00_JPRB,0.14068E+01_JPRB,0.19332E+01_JPRB,0.21485E+01_JPRB,0.15854E+01_JPRB /)  
+KB(:, 3,53,13) = (/ &
+ & 0.54216E+00_JPRB,0.15348E+01_JPRB,0.20756E+01_JPRB,0.23010E+01_JPRB,0.17302E+01_JPRB /)  
+KB(:, 4,53,13) = (/ &
+ & 0.65469E+00_JPRB,0.16608E+01_JPRB,0.22054E+01_JPRB,0.24328E+01_JPRB,0.18578E+01_JPRB /)  
+KB(:, 5,53,13) = (/ &
+ & 0.77730E+00_JPRB,0.17854E+01_JPRB,0.23267E+01_JPRB,0.25453E+01_JPRB,0.19695E+01_JPRB /)  
+KB(:, 1,54,13) = (/ &
+ & 0.32058E+00_JPRB,0.12324E+01_JPRB,0.17175E+01_JPRB,0.19140E+01_JPRB,0.13553E+01_JPRB /)  
+KB(:, 2,54,13) = (/ &
+ & 0.40795E+00_JPRB,0.13637E+01_JPRB,0.18819E+01_JPRB,0.20929E+01_JPRB,0.15321E+01_JPRB /)  
+KB(:, 3,54,13) = (/ &
+ & 0.50645E+00_JPRB,0.14920E+01_JPRB,0.20295E+01_JPRB,0.22518E+01_JPRB,0.16837E+01_JPRB /)  
+KB(:, 4,54,13) = (/ &
+ & 0.61609E+00_JPRB,0.16187E+01_JPRB,0.21628E+01_JPRB,0.23909E+01_JPRB,0.18169E+01_JPRB /)  
+KB(:, 5,54,13) = (/ &
+ & 0.73448E+00_JPRB,0.17439E+01_JPRB,0.22873E+01_JPRB,0.25101E+01_JPRB,0.19340E+01_JPRB /)  
+KB(:, 1,55,13) = (/ &
+ & 0.29443E+00_JPRB,0.11892E+01_JPRB,0.16600E+01_JPRB,0.18513E+01_JPRB,0.12929E+01_JPRB /)  
+KB(:, 2,55,13) = (/ &
+ & 0.37883E+00_JPRB,0.13219E+01_JPRB,0.18314E+01_JPRB,0.20376E+01_JPRB,0.14784E+01_JPRB /)  
+KB(:, 3,55,13) = (/ &
+ & 0.47335E+00_JPRB,0.14508E+01_JPRB,0.19839E+01_JPRB,0.22027E+01_JPRB,0.16372E+01_JPRB /)  
+KB(:, 4,55,13) = (/ &
+ & 0.57989E+00_JPRB,0.15780E+01_JPRB,0.21210E+01_JPRB,0.23485E+01_JPRB,0.17761E+01_JPRB /)  
+KB(:, 5,55,13) = (/ &
+ & 0.69533E+00_JPRB,0.17037E+01_JPRB,0.22482E+01_JPRB,0.24738E+01_JPRB,0.18980E+01_JPRB /)  
+KB(:, 1,56,13) = (/ &
+ & 0.26936E+00_JPRB,0.11459E+01_JPRB,0.16007E+01_JPRB,0.17863E+01_JPRB,0.12289E+01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART32',1,ZHOOK_HANDLE)
+END SUBROUTINE PART32
+
+
+SUBROUTINE PART33
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART33',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,56,13) = (/ &
+ & 0.35065E+00_JPRB,0.12797E+01_JPRB,0.17789E+01_JPRB,0.19807E+01_JPRB,0.14221E+01_JPRB /)  
+KB(:, 3,56,13) = (/ &
+ & 0.44158E+00_JPRB,0.14097E+01_JPRB,0.19368E+01_JPRB,0.21523E+01_JPRB,0.15891E+01_JPRB /)  
+KB(:, 4,56,13) = (/ &
+ & 0.54448E+00_JPRB,0.15375E+01_JPRB,0.20786E+01_JPRB,0.23043E+01_JPRB,0.17334E+01_JPRB /)  
+KB(:, 5,56,13) = (/ &
+ & 0.65732E+00_JPRB,0.16637E+01_JPRB,0.22084E+01_JPRB,0.24358E+01_JPRB,0.18606E+01_JPRB /)  
+KB(:, 1,57,13) = (/ &
+ & 0.24515E+00_JPRB,0.11022E+01_JPRB,0.15388E+01_JPRB,0.17186E+01_JPRB,0.11645E+01_JPRB /)  
+KB(:, 2,57,13) = (/ &
+ & 0.32341E+00_JPRB,0.12372E+01_JPRB,0.17241E+01_JPRB,0.19215E+01_JPRB,0.13626E+01_JPRB /)  
+KB(:, 3,57,13) = (/ &
+ & 0.41131E+00_JPRB,0.13686E+01_JPRB,0.18879E+01_JPRB,0.20994E+01_JPRB,0.15383E+01_JPRB /)  
+KB(:, 4,57,13) = (/ &
+ & 0.51026E+00_JPRB,0.14967E+01_JPRB,0.20347E+01_JPRB,0.22575E+01_JPRB,0.16892E+01_JPRB /)  
+KB(:, 5,57,13) = (/ &
+ & 0.62036E+00_JPRB,0.16234E+01_JPRB,0.21677E+01_JPRB,0.23959E+01_JPRB,0.18217E+01_JPRB /)  
+KB(:, 1,58,13) = (/ &
+ & 0.22298E+00_JPRB,0.10601E+01_JPRB,0.14788E+01_JPRB,0.16521E+01_JPRB,0.11024E+01_JPRB /)  
+KB(:, 2,58,13) = (/ &
+ & 0.29857E+00_JPRB,0.11965E+01_JPRB,0.16700E+01_JPRB,0.18625E+01_JPRB,0.13039E+01_JPRB /)  
+KB(:, 3,58,13) = (/ &
+ & 0.38366E+00_JPRB,0.13291E+01_JPRB,0.18404E+01_JPRB,0.20474E+01_JPRB,0.14880E+01_JPRB /)  
+KB(:, 4,58,13) = (/ &
+ & 0.47882E+00_JPRB,0.14579E+01_JPRB,0.19918E+01_JPRB,0.22114E+01_JPRB,0.16455E+01_JPRB /)  
+KB(:, 5,58,13) = (/ &
+ & 0.58601E+00_JPRB,0.15850E+01_JPRB,0.21282E+01_JPRB,0.23561E+01_JPRB,0.17833E+01_JPRB /)  
+KB(:, 1,59,13) = (/ &
+ & 0.21427E+00_JPRB,0.10429E+01_JPRB,0.14544E+01_JPRB,0.16247E+01_JPRB,0.10771E+01_JPRB /)  
+KB(:, 2,59,13) = (/ &
+ & 0.28885E+00_JPRB,0.11801E+01_JPRB,0.16480E+01_JPRB,0.18384E+01_JPRB,0.12798E+01_JPRB /)  
+KB(:, 3,59,13) = (/ &
+ & 0.37281E+00_JPRB,0.13132E+01_JPRB,0.18209E+01_JPRB,0.20260E+01_JPRB,0.14670E+01_JPRB /)  
+KB(:, 4,59,13) = (/ &
+ & 0.46652E+00_JPRB,0.14422E+01_JPRB,0.19743E+01_JPRB,0.21926E+01_JPRB,0.16276E+01_JPRB /)  
+KB(:, 5,59,13) = (/ &
+ & 0.57246E+00_JPRB,0.15697E+01_JPRB,0.21123E+01_JPRB,0.23397E+01_JPRB,0.17674E+01_JPRB /)  
+KB(:, 1,13,14) = (/ &
+ & 0.76467E+01_JPRB,0.66870E+01_JPRB,0.63502E+01_JPRB,0.61468E+01_JPRB,0.66906E+01_JPRB /)  
+KB(:, 2,13,14) = (/ &
+ & 0.76514E+01_JPRB,0.66716E+01_JPRB,0.63627E+01_JPRB,0.61942E+01_JPRB,0.67780E+01_JPRB /)  
+KB(:, 3,13,14) = (/ &
+ & 0.76475E+01_JPRB,0.66428E+01_JPRB,0.63628E+01_JPRB,0.62371E+01_JPRB,0.68460E+01_JPRB /)  
+KB(:, 4,13,14) = (/ &
+ & 0.76415E+01_JPRB,0.66083E+01_JPRB,0.63514E+01_JPRB,0.62630E+01_JPRB,0.69072E+01_JPRB /)  
+KB(:, 5,13,14) = (/ &
+ & 0.76283E+01_JPRB,0.65686E+01_JPRB,0.63330E+01_JPRB,0.62779E+01_JPRB,0.69614E+01_JPRB /)  
+KB(:, 1,14,14) = (/ &
+ & 0.77958E+01_JPRB,0.69779E+01_JPRB,0.66658E+01_JPRB,0.63591E+01_JPRB,0.67479E+01_JPRB /)  
+KB(:, 2,14,14) = (/ &
+ & 0.78014E+01_JPRB,0.69599E+01_JPRB,0.66792E+01_JPRB,0.64167E+01_JPRB,0.68357E+01_JPRB /)  
+KB(:, 3,14,14) = (/ &
+ & 0.78100E+01_JPRB,0.69314E+01_JPRB,0.66809E+01_JPRB,0.64627E+01_JPRB,0.69109E+01_JPRB /)  
+KB(:, 4,14,14) = (/ &
+ & 0.78098E+01_JPRB,0.68950E+01_JPRB,0.66685E+01_JPRB,0.64923E+01_JPRB,0.69838E+01_JPRB /)  
+KB(:, 5,14,14) = (/ &
+ & 0.77999E+01_JPRB,0.68585E+01_JPRB,0.66494E+01_JPRB,0.65137E+01_JPRB,0.70531E+01_JPRB /)  
+KB(:, 1,15,14) = (/ &
+ & 0.78397E+01_JPRB,0.72065E+01_JPRB,0.69626E+01_JPRB,0.65521E+01_JPRB,0.67717E+01_JPRB /)  
+KB(:, 2,15,14) = (/ &
+ & 0.78630E+01_JPRB,0.71900E+01_JPRB,0.69770E+01_JPRB,0.66166E+01_JPRB,0.68639E+01_JPRB /)  
+KB(:, 3,15,14) = (/ &
+ & 0.78829E+01_JPRB,0.71661E+01_JPRB,0.69761E+01_JPRB,0.66643E+01_JPRB,0.69508E+01_JPRB /)  
+KB(:, 4,15,14) = (/ &
+ & 0.78961E+01_JPRB,0.71374E+01_JPRB,0.69668E+01_JPRB,0.66987E+01_JPRB,0.70374E+01_JPRB /)  
+KB(:, 5,15,14) = (/ &
+ & 0.78984E+01_JPRB,0.71026E+01_JPRB,0.69440E+01_JPRB,0.67207E+01_JPRB,0.71207E+01_JPRB /)  
+KB(:, 1,16,14) = (/ &
+ & 0.77976E+01_JPRB,0.73768E+01_JPRB,0.72331E+01_JPRB,0.67309E+01_JPRB,0.67735E+01_JPRB /)  
+KB(:, 2,16,14) = (/ &
+ & 0.78456E+01_JPRB,0.73704E+01_JPRB,0.72485E+01_JPRB,0.67988E+01_JPRB,0.68801E+01_JPRB /)  
+KB(:, 3,16,14) = (/ &
+ & 0.78840E+01_JPRB,0.73590E+01_JPRB,0.72505E+01_JPRB,0.68482E+01_JPRB,0.69801E+01_JPRB /)  
+KB(:, 4,16,14) = (/ &
+ & 0.79146E+01_JPRB,0.73379E+01_JPRB,0.72385E+01_JPRB,0.68847E+01_JPRB,0.70795E+01_JPRB /)  
+KB(:, 5,16,14) = (/ &
+ & 0.79322E+01_JPRB,0.73060E+01_JPRB,0.72179E+01_JPRB,0.69099E+01_JPRB,0.71779E+01_JPRB /)  
+KB(:, 1,17,14) = (/ &
+ & 0.76851E+01_JPRB,0.74978E+01_JPRB,0.74681E+01_JPRB,0.68923E+01_JPRB,0.67646E+01_JPRB /)  
+KB(:, 2,17,14) = (/ &
+ & 0.77622E+01_JPRB,0.75112E+01_JPRB,0.74909E+01_JPRB,0.69618E+01_JPRB,0.68880E+01_JPRB /)  
+KB(:, 3,17,14) = (/ &
+ & 0.78293E+01_JPRB,0.75089E+01_JPRB,0.74964E+01_JPRB,0.70134E+01_JPRB,0.70063E+01_JPRB /)  
+KB(:, 4,17,14) = (/ &
+ & 0.78832E+01_JPRB,0.75014E+01_JPRB,0.74883E+01_JPRB,0.70540E+01_JPRB,0.71204E+01_JPRB /)  
+KB(:, 5,17,14) = (/ &
+ & 0.79237E+01_JPRB,0.74752E+01_JPRB,0.74629E+01_JPRB,0.70833E+01_JPRB,0.72311E+01_JPRB /)  
+KB(:, 1,18,14) = (/ &
+ & 0.75343E+01_JPRB,0.75844E+01_JPRB,0.76679E+01_JPRB,0.70369E+01_JPRB,0.67530E+01_JPRB /)  
+KB(:, 2,18,14) = (/ &
+ & 0.76372E+01_JPRB,0.76127E+01_JPRB,0.76999E+01_JPRB,0.71100E+01_JPRB,0.68939E+01_JPRB /)  
+KB(:, 3,18,14) = (/ &
+ & 0.77344E+01_JPRB,0.76293E+01_JPRB,0.77123E+01_JPRB,0.71649E+01_JPRB,0.70305E+01_JPRB /)  
+KB(:, 4,18,14) = (/ &
+ & 0.78168E+01_JPRB,0.76302E+01_JPRB,0.77077E+01_JPRB,0.72057E+01_JPRB,0.71594E+01_JPRB /)  
+KB(:, 5,18,14) = (/ &
+ & 0.78848E+01_JPRB,0.76120E+01_JPRB,0.76799E+01_JPRB,0.72369E+01_JPRB,0.72819E+01_JPRB /)  
+KB(:, 1,19,14) = (/ &
+ & 0.73642E+01_JPRB,0.76427E+01_JPRB,0.78392E+01_JPRB,0.71673E+01_JPRB,0.67426E+01_JPRB /)  
+KB(:, 2,19,14) = (/ &
+ & 0.75027E+01_JPRB,0.76890E+01_JPRB,0.78792E+01_JPRB,0.72411E+01_JPRB,0.69029E+01_JPRB /)  
+KB(:, 3,19,14) = (/ &
+ & 0.76261E+01_JPRB,0.77218E+01_JPRB,0.78995E+01_JPRB,0.72995E+01_JPRB,0.70551E+01_JPRB /)  
+KB(:, 4,19,14) = (/ &
+ & 0.77358E+01_JPRB,0.77317E+01_JPRB,0.78972E+01_JPRB,0.73431E+01_JPRB,0.71976E+01_JPRB /)  
+KB(:, 5,19,14) = (/ &
+ & 0.78306E+01_JPRB,0.77206E+01_JPRB,0.78669E+01_JPRB,0.73734E+01_JPRB,0.73288E+01_JPRB /)  
+KB(:, 1,20,14) = (/ &
+ & 0.71989E+01_JPRB,0.76856E+01_JPRB,0.79830E+01_JPRB,0.72835E+01_JPRB,0.67408E+01_JPRB /)  
+KB(:, 2,20,14) = (/ &
+ & 0.73691E+01_JPRB,0.77492E+01_JPRB,0.80344E+01_JPRB,0.73623E+01_JPRB,0.69200E+01_JPRB /)  
+KB(:, 3,20,14) = (/ &
+ & 0.75204E+01_JPRB,0.77952E+01_JPRB,0.80604E+01_JPRB,0.74206E+01_JPRB,0.70842E+01_JPRB /)  
+KB(:, 4,20,14) = (/ &
+ & 0.76560E+01_JPRB,0.78150E+01_JPRB,0.80567E+01_JPRB,0.74651E+01_JPRB,0.72381E+01_JPRB /)  
+KB(:, 5,20,14) = (/ &
+ & 0.77736E+01_JPRB,0.78108E+01_JPRB,0.80255E+01_JPRB,0.74944E+01_JPRB,0.73772E+01_JPRB /)  
+KB(:, 1,21,14) = (/ &
+ & 0.70426E+01_JPRB,0.77166E+01_JPRB,0.81049E+01_JPRB,0.73883E+01_JPRB,0.67480E+01_JPRB /)  
+KB(:, 2,21,14) = (/ &
+ & 0.72474E+01_JPRB,0.77946E+01_JPRB,0.81668E+01_JPRB,0.74708E+01_JPRB,0.69410E+01_JPRB /)  
+KB(:, 3,21,14) = (/ &
+ & 0.74271E+01_JPRB,0.78518E+01_JPRB,0.81976E+01_JPRB,0.75283E+01_JPRB,0.71153E+01_JPRB /)  
+KB(:, 4,21,14) = (/ &
+ & 0.75881E+01_JPRB,0.78806E+01_JPRB,0.81926E+01_JPRB,0.75722E+01_JPRB,0.72765E+01_JPRB /)  
+KB(:, 5,21,14) = (/ &
+ & 0.77244E+01_JPRB,0.78840E+01_JPRB,0.81605E+01_JPRB,0.76005E+01_JPRB,0.74219E+01_JPRB /)  
+KB(:, 1,22,14) = (/ &
+ & 0.69208E+01_JPRB,0.77467E+01_JPRB,0.82134E+01_JPRB,0.74892E+01_JPRB,0.67760E+01_JPRB /)  
+KB(:, 2,22,14) = (/ &
+ & 0.71527E+01_JPRB,0.78380E+01_JPRB,0.82825E+01_JPRB,0.75703E+01_JPRB,0.69788E+01_JPRB /)  
+KB(:, 3,22,14) = (/ &
+ & 0.73591E+01_JPRB,0.79026E+01_JPRB,0.83138E+01_JPRB,0.76265E+01_JPRB,0.71614E+01_JPRB /)  
+KB(:, 4,22,14) = (/ &
+ & 0.75412E+01_JPRB,0.79369E+01_JPRB,0.83052E+01_JPRB,0.76676E+01_JPRB,0.73269E+01_JPRB /)  
+KB(:, 5,22,14) = (/ &
+ & 0.76931E+01_JPRB,0.79423E+01_JPRB,0.82705E+01_JPRB,0.76932E+01_JPRB,0.74734E+01_JPRB /)  
+KB(:, 1,23,14) = (/ &
+ & 0.68264E+01_JPRB,0.77768E+01_JPRB,0.83085E+01_JPRB,0.75813E+01_JPRB,0.68129E+01_JPRB /)  
+KB(:, 2,23,14) = (/ &
+ & 0.70814E+01_JPRB,0.78791E+01_JPRB,0.83807E+01_JPRB,0.76573E+01_JPRB,0.70223E+01_JPRB /)  
+KB(:, 3,23,14) = (/ &
+ & 0.73108E+01_JPRB,0.79473E+01_JPRB,0.84103E+01_JPRB,0.77115E+01_JPRB,0.72087E+01_JPRB /)  
+KB(:, 4,23,14) = (/ &
+ & 0.75083E+01_JPRB,0.79850E+01_JPRB,0.83989E+01_JPRB,0.77500E+01_JPRB,0.73762E+01_JPRB /)  
+KB(:, 5,23,14) = (/ &
+ & 0.76738E+01_JPRB,0.79912E+01_JPRB,0.83608E+01_JPRB,0.77715E+01_JPRB,0.75218E+01_JPRB /)  
+KB(:, 1,24,14) = (/ &
+ & 0.67597E+01_JPRB,0.78092E+01_JPRB,0.83929E+01_JPRB,0.76639E+01_JPRB,0.68571E+01_JPRB /)  
+KB(:, 2,24,14) = (/ &
+ & 0.70359E+01_JPRB,0.79159E+01_JPRB,0.84653E+01_JPRB,0.77347E+01_JPRB,0.70700E+01_JPRB /)  
+KB(:, 3,24,14) = (/ &
+ & 0.72818E+01_JPRB,0.79869E+01_JPRB,0.84905E+01_JPRB,0.77860E+01_JPRB,0.72578E+01_JPRB /)  
+KB(:, 4,24,14) = (/ &
+ & 0.74908E+01_JPRB,0.80269E+01_JPRB,0.84765E+01_JPRB,0.78202E+01_JPRB,0.74248E+01_JPRB /)  
+KB(:, 5,24,14) = (/ &
+ & 0.76673E+01_JPRB,0.80324E+01_JPRB,0.84337E+01_JPRB,0.78375E+01_JPRB,0.75690E+01_JPRB /)  
+KB(:, 1,25,14) = (/ &
+ & 0.67209E+01_JPRB,0.78436E+01_JPRB,0.84676E+01_JPRB,0.77356E+01_JPRB,0.69066E+01_JPRB /)  
+KB(:, 2,25,14) = (/ &
+ & 0.70147E+01_JPRB,0.79506E+01_JPRB,0.85366E+01_JPRB,0.78027E+01_JPRB,0.71216E+01_JPRB /)  
+KB(:, 3,25,14) = (/ &
+ & 0.72710E+01_JPRB,0.80222E+01_JPRB,0.85567E+01_JPRB,0.78495E+01_JPRB,0.73079E+01_JPRB /)  
+KB(:, 4,25,14) = (/ &
+ & 0.74891E+01_JPRB,0.80627E+01_JPRB,0.85388E+01_JPRB,0.78803E+01_JPRB,0.74736E+01_JPRB /)  
+KB(:, 5,25,14) = (/ &
+ & 0.76763E+01_JPRB,0.80663E+01_JPRB,0.84908E+01_JPRB,0.78920E+01_JPRB,0.76152E+01_JPRB /)  
+KB(:, 1,26,14) = (/ &
+ & 0.67117E+01_JPRB,0.78809E+01_JPRB,0.85346E+01_JPRB,0.77996E+01_JPRB,0.69621E+01_JPRB /)  
+KB(:, 2,26,14) = (/ &
+ & 0.70163E+01_JPRB,0.79848E+01_JPRB,0.85977E+01_JPRB,0.78624E+01_JPRB,0.71766E+01_JPRB /)  
+KB(:, 3,26,14) = (/ &
+ & 0.72800E+01_JPRB,0.80555E+01_JPRB,0.86111E+01_JPRB,0.79043E+01_JPRB,0.73612E+01_JPRB /)  
+KB(:, 4,26,14) = (/ &
+ & 0.75048E+01_JPRB,0.80927E+01_JPRB,0.85874E+01_JPRB,0.79312E+01_JPRB,0.75235E+01_JPRB /)  
+KB(:, 5,26,14) = (/ &
+ & 0.76969E+01_JPRB,0.80929E+01_JPRB,0.85318E+01_JPRB,0.79367E+01_JPRB,0.76615E+01_JPRB /)  
+KB(:, 1,27,14) = (/ &
+ & 0.67222E+01_JPRB,0.79165E+01_JPRB,0.85935E+01_JPRB,0.78553E+01_JPRB,0.70208E+01_JPRB /)  
+KB(:, 2,27,14) = (/ &
+ & 0.70339E+01_JPRB,0.80174E+01_JPRB,0.86486E+01_JPRB,0.79134E+01_JPRB,0.72318E+01_JPRB /)  
+KB(:, 3,27,14) = (/ &
+ & 0.73021E+01_JPRB,0.80859E+01_JPRB,0.86549E+01_JPRB,0.79502E+01_JPRB,0.74127E+01_JPRB /)  
+KB(:, 4,27,14) = (/ &
+ & 0.75298E+01_JPRB,0.81175E+01_JPRB,0.86239E+01_JPRB,0.79721E+01_JPRB,0.75702E+01_JPRB /)  
+KB(:, 5,27,14) = (/ &
+ & 0.77246E+01_JPRB,0.81143E+01_JPRB,0.85613E+01_JPRB,0.79734E+01_JPRB,0.77047E+01_JPRB /)  
+KB(:, 1,28,14) = (/ &
+ & 0.67490E+01_JPRB,0.79508E+01_JPRB,0.86448E+01_JPRB,0.79039E+01_JPRB,0.70793E+01_JPRB /)  
+KB(:, 2,28,14) = (/ &
+ & 0.70641E+01_JPRB,0.80481E+01_JPRB,0.86903E+01_JPRB,0.79567E+01_JPRB,0.72853E+01_JPRB /)  
+KB(:, 3,28,14) = (/ &
+ & 0.73339E+01_JPRB,0.81119E+01_JPRB,0.86890E+01_JPRB,0.79886E+01_JPRB,0.74622E+01_JPRB /)  
+KB(:, 4,28,14) = (/ &
+ & 0.75625E+01_JPRB,0.81383E+01_JPRB,0.86502E+01_JPRB,0.80049E+01_JPRB,0.76145E+01_JPRB /)  
+KB(:, 5,28,14) = (/ &
+ & 0.77567E+01_JPRB,0.81304E+01_JPRB,0.85806E+01_JPRB,0.80023E+01_JPRB,0.77455E+01_JPRB /)  
+KB(:, 1,29,14) = (/ &
+ & 0.67914E+01_JPRB,0.79845E+01_JPRB,0.86886E+01_JPRB,0.79462E+01_JPRB,0.71386E+01_JPRB /)  
+KB(:, 2,29,14) = (/ &
+ & 0.71068E+01_JPRB,0.80770E+01_JPRB,0.87239E+01_JPRB,0.79933E+01_JPRB,0.73389E+01_JPRB /)  
+KB(:, 3,29,14) = (/ &
+ & 0.73751E+01_JPRB,0.81344E+01_JPRB,0.87144E+01_JPRB,0.80208E+01_JPRB,0.75104E+01_JPRB /)  
+KB(:, 4,29,14) = (/ &
+ & 0.76020E+01_JPRB,0.81550E+01_JPRB,0.86676E+01_JPRB,0.80316E+01_JPRB,0.76575E+01_JPRB /)  
+KB(:, 5,29,14) = (/ &
+ & 0.77937E+01_JPRB,0.81425E+01_JPRB,0.85914E+01_JPRB,0.80248E+01_JPRB,0.77840E+01_JPRB /)  
+KB(:, 1,30,14) = (/ &
+ & 0.68445E+01_JPRB,0.80166E+01_JPRB,0.87256E+01_JPRB,0.79827E+01_JPRB,0.71970E+01_JPRB /)  
+KB(:, 2,30,14) = (/ &
+ & 0.71563E+01_JPRB,0.81037E+01_JPRB,0.87505E+01_JPRB,0.80234E+01_JPRB,0.73900E+01_JPRB /)  
+KB(:, 3,30,14) = (/ &
+ & 0.74214E+01_JPRB,0.81535E+01_JPRB,0.87321E+01_JPRB,0.80469E+01_JPRB,0.75564E+01_JPRB /)  
+KB(:, 4,30,14) = (/ &
+ & 0.76455E+01_JPRB,0.81683E+01_JPRB,0.86770E+01_JPRB,0.80524E+01_JPRB,0.76986E+01_JPRB /)  
+KB(:, 5,30,14) = (/ &
+ & 0.78317E+01_JPRB,0.81499E+01_JPRB,0.85949E+01_JPRB,0.80416E+01_JPRB,0.78203E+01_JPRB /)  
+KB(:, 1,31,14) = (/ &
+ & 0.69054E+01_JPRB,0.80478E+01_JPRB,0.87566E+01_JPRB,0.80136E+01_JPRB,0.72537E+01_JPRB /)  
+KB(:, 2,31,14) = (/ &
+ & 0.72125E+01_JPRB,0.81281E+01_JPRB,0.87710E+01_JPRB,0.80494E+01_JPRB,0.74404E+01_JPRB /)  
+KB(:, 3,31,14) = (/ &
+ & 0.74718E+01_JPRB,0.81700E+01_JPRB,0.87427E+01_JPRB,0.80677E+01_JPRB,0.76003E+01_JPRB /)  
+KB(:, 4,31,14) = (/ &
+ & 0.76912E+01_JPRB,0.81779E+01_JPRB,0.86791E+01_JPRB,0.80682E+01_JPRB,0.77384E+01_JPRB /)  
+KB(:, 5,31,14) = (/ &
+ & 0.78715E+01_JPRB,0.81532E+01_JPRB,0.85914E+01_JPRB,0.80538E+01_JPRB,0.78547E+01_JPRB /)  
+KB(:, 1,32,14) = (/ &
+ & 0.69718E+01_JPRB,0.80767E+01_JPRB,0.87812E+01_JPRB,0.80405E+01_JPRB,0.73093E+01_JPRB /)  
+KB(:, 2,32,14) = (/ &
+ & 0.72714E+01_JPRB,0.81493E+01_JPRB,0.87845E+01_JPRB,0.80705E+01_JPRB,0.74889E+01_JPRB /)  
+KB(:, 3,32,14) = (/ &
+ & 0.75255E+01_JPRB,0.81843E+01_JPRB,0.87476E+01_JPRB,0.80843E+01_JPRB,0.76427E+01_JPRB /)  
+KB(:, 4,32,14) = (/ &
+ & 0.77373E+01_JPRB,0.81836E+01_JPRB,0.86757E+01_JPRB,0.80798E+01_JPRB,0.77759E+01_JPRB /)  
+KB(:, 5,32,14) = (/ &
+ & 0.79115E+01_JPRB,0.81523E+01_JPRB,0.85821E+01_JPRB,0.80611E+01_JPRB,0.78870E+01_JPRB /)  
+KB(:, 1,33,14) = (/ &
+ & 0.70424E+01_JPRB,0.81041E+01_JPRB,0.88003E+01_JPRB,0.80631E+01_JPRB,0.73621E+01_JPRB /)  
+KB(:, 2,33,14) = (/ &
+ & 0.73332E+01_JPRB,0.81674E+01_JPRB,0.87934E+01_JPRB,0.80887E+01_JPRB,0.75359E+01_JPRB /)  
+KB(:, 3,33,14) = (/ &
+ & 0.75797E+01_JPRB,0.81949E+01_JPRB,0.87467E+01_JPRB,0.80962E+01_JPRB,0.76832E+01_JPRB /)  
+KB(:, 4,33,14) = (/ &
+ & 0.77832E+01_JPRB,0.81860E+01_JPRB,0.86679E+01_JPRB,0.80880E+01_JPRB,0.78112E+01_JPRB /)  
+KB(:, 5,33,14) = (/ &
+ & 0.79514E+01_JPRB,0.81480E+01_JPRB,0.85688E+01_JPRB,0.80650E+01_JPRB,0.79176E+01_JPRB /)  
+KB(:, 1,34,14) = (/ &
+ & 0.71032E+01_JPRB,0.81256E+01_JPRB,0.88135E+01_JPRB,0.80801E+01_JPRB,0.74073E+01_JPRB /)  
+KB(:, 2,34,14) = (/ &
+ & 0.73864E+01_JPRB,0.81812E+01_JPRB,0.87981E+01_JPRB,0.81025E+01_JPRB,0.75752E+01_JPRB /)  
+KB(:, 3,34,14) = (/ &
+ & 0.76257E+01_JPRB,0.82022E+01_JPRB,0.87428E+01_JPRB,0.81055E+01_JPRB,0.77177E+01_JPRB /)  
+KB(:, 4,34,14) = (/ &
+ & 0.78229E+01_JPRB,0.81866E+01_JPRB,0.86595E+01_JPRB,0.80934E+01_JPRB,0.78409E+01_JPRB /)  
+KB(:, 5,34,14) = (/ &
+ & 0.79841E+01_JPRB,0.81428E+01_JPRB,0.85553E+01_JPRB,0.80663E+01_JPRB,0.79427E+01_JPRB /)  
+KB(:, 1,35,14) = (/ &
+ & 0.71357E+01_JPRB,0.81386E+01_JPRB,0.88238E+01_JPRB,0.80923E+01_JPRB,0.74328E+01_JPRB /)  
+KB(:, 2,35,14) = (/ &
+ & 0.74155E+01_JPRB,0.81901E+01_JPRB,0.88028E+01_JPRB,0.81125E+01_JPRB,0.75980E+01_JPRB /)  
+KB(:, 3,35,14) = (/ &
+ & 0.76506E+01_JPRB,0.82068E+01_JPRB,0.87428E+01_JPRB,0.81128E+01_JPRB,0.77381E+01_JPRB /)  
+KB(:, 4,35,14) = (/ &
+ & 0.78446E+01_JPRB,0.81876E+01_JPRB,0.86563E+01_JPRB,0.80980E+01_JPRB,0.78583E+01_JPRB /)  
+KB(:, 5,35,14) = (/ &
+ & 0.80022E+01_JPRB,0.81408E+01_JPRB,0.85492E+01_JPRB,0.80683E+01_JPRB,0.79574E+01_JPRB /)  
+KB(:, 1,36,14) = (/ &
+ & 0.71358E+01_JPRB,0.81426E+01_JPRB,0.88312E+01_JPRB,0.80996E+01_JPRB,0.74385E+01_JPRB /)  
+KB(:, 2,36,14) = (/ &
+ & 0.74168E+01_JPRB,0.81942E+01_JPRB,0.88101E+01_JPRB,0.81195E+01_JPRB,0.76033E+01_JPRB /)  
+KB(:, 3,36,14) = (/ &
+ & 0.76530E+01_JPRB,0.82111E+01_JPRB,0.87491E+01_JPRB,0.81189E+01_JPRB,0.77431E+01_JPRB /)  
+KB(:, 4,36,14) = (/ &
+ & 0.78475E+01_JPRB,0.81916E+01_JPRB,0.86625E+01_JPRB,0.81041E+01_JPRB,0.78633E+01_JPRB /)  
+KB(:, 5,36,14) = (/ &
+ & 0.80053E+01_JPRB,0.81444E+01_JPRB,0.85549E+01_JPRB,0.80739E+01_JPRB,0.79624E+01_JPRB /)  
+KB(:, 1,37,14) = (/ &
+ & 0.70898E+01_JPRB,0.81353E+01_JPRB,0.88375E+01_JPRB,0.81022E+01_JPRB,0.74173E+01_JPRB /)  
+KB(:, 2,37,14) = (/ &
+ & 0.73792E+01_JPRB,0.81923E+01_JPRB,0.88220E+01_JPRB,0.81236E+01_JPRB,0.75852E+01_JPRB /)  
+KB(:, 3,37,14) = (/ &
+ & 0.76229E+01_JPRB,0.82146E+01_JPRB,0.87658E+01_JPRB,0.81255E+01_JPRB,0.77281E+01_JPRB /)  
+KB(:, 4,37,14) = (/ &
+ & 0.78232E+01_JPRB,0.81996E+01_JPRB,0.86818E+01_JPRB,0.81120E+01_JPRB,0.78508E+01_JPRB /)  
+KB(:, 5,37,14) = (/ &
+ & 0.79866E+01_JPRB,0.81554E+01_JPRB,0.85764E+01_JPRB,0.80843E+01_JPRB,0.79525E+01_JPRB /)  
+KB(:, 1,38,14) = (/ &
+ & 0.70419E+01_JPRB,0.81271E+01_JPRB,0.88418E+01_JPRB,0.81031E+01_JPRB,0.73933E+01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART33',1,ZHOOK_HANDLE)
+END SUBROUTINE PART33
+
+
+SUBROUTINE PART34
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART34',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,38,14) = (/ &
+ & 0.73389E+01_JPRB,0.81889E+01_JPRB,0.88323E+01_JPRB,0.81261E+01_JPRB,0.75648E+01_JPRB /)  
+KB(:, 3,38,14) = (/ &
+ & 0.75899E+01_JPRB,0.82161E+01_JPRB,0.87808E+01_JPRB,0.81301E+01_JPRB,0.77105E+01_JPRB /)  
+KB(:, 4,38,14) = (/ &
+ & 0.77971E+01_JPRB,0.82068E+01_JPRB,0.87000E+01_JPRB,0.81195E+01_JPRB,0.78368E+01_JPRB /)  
+KB(:, 5,38,14) = (/ &
+ & 0.79663E+01_JPRB,0.81665E+01_JPRB,0.85976E+01_JPRB,0.80935E+01_JPRB,0.79412E+01_JPRB /)  
+KB(:, 1,39,14) = (/ &
+ & 0.69923E+01_JPRB,0.81165E+01_JPRB,0.88435E+01_JPRB,0.81024E+01_JPRB,0.73685E+01_JPRB /)  
+KB(:, 2,39,14) = (/ &
+ & 0.72982E+01_JPRB,0.81845E+01_JPRB,0.88409E+01_JPRB,0.81277E+01_JPRB,0.75441E+01_JPRB /)  
+KB(:, 3,39,14) = (/ &
+ & 0.75563E+01_JPRB,0.82164E+01_JPRB,0.87952E+01_JPRB,0.81347E+01_JPRB,0.76928E+01_JPRB /)  
+KB(:, 4,39,14) = (/ &
+ & 0.77695E+01_JPRB,0.82122E+01_JPRB,0.87165E+01_JPRB,0.81250E+01_JPRB,0.78216E+01_JPRB /)  
+KB(:, 5,39,14) = (/ &
+ & 0.79452E+01_JPRB,0.81762E+01_JPRB,0.86172E+01_JPRB,0.81015E+01_JPRB,0.79291E+01_JPRB /)  
+KB(:, 1,40,14) = (/ &
+ & 0.69080E+01_JPRB,0.80958E+01_JPRB,0.88413E+01_JPRB,0.80965E+01_JPRB,0.73229E+01_JPRB /)  
+KB(:, 2,40,14) = (/ &
+ & 0.72277E+01_JPRB,0.81734E+01_JPRB,0.88495E+01_JPRB,0.81259E+01_JPRB,0.75046E+01_JPRB /)  
+KB(:, 3,40,14) = (/ &
+ & 0.74967E+01_JPRB,0.82131E+01_JPRB,0.88131E+01_JPRB,0.81381E+01_JPRB,0.76600E+01_JPRB /)  
+KB(:, 4,40,14) = (/ &
+ & 0.77214E+01_JPRB,0.82184E+01_JPRB,0.87413E+01_JPRB,0.81320E+01_JPRB,0.77938E+01_JPRB /)  
+KB(:, 5,40,14) = (/ &
+ & 0.79055E+01_JPRB,0.81894E+01_JPRB,0.86471E+01_JPRB,0.81094E+01_JPRB,0.79066E+01_JPRB /)  
+KB(:, 1,41,14) = (/ &
+ & 0.68155E+01_JPRB,0.80708E+01_JPRB,0.88352E+01_JPRB,0.80885E+01_JPRB,0.72719E+01_JPRB /)  
+KB(:, 2,41,14) = (/ &
+ & 0.71495E+01_JPRB,0.81585E+01_JPRB,0.88545E+01_JPRB,0.81224E+01_JPRB,0.74618E+01_JPRB /)  
+KB(:, 3,41,14) = (/ &
+ & 0.74308E+01_JPRB,0.82074E+01_JPRB,0.88291E+01_JPRB,0.81392E+01_JPRB,0.76238E+01_JPRB /)  
+KB(:, 4,41,14) = (/ &
+ & 0.76675E+01_JPRB,0.82222E+01_JPRB,0.87650E+01_JPRB,0.81374E+01_JPRB,0.77629E+01_JPRB /)  
+KB(:, 5,41,14) = (/ &
+ & 0.78621E+01_JPRB,0.82014E+01_JPRB,0.86761E+01_JPRB,0.81197E+01_JPRB,0.78805E+01_JPRB /)  
+KB(:, 1,42,14) = (/ &
+ & 0.67210E+01_JPRB,0.80436E+01_JPRB,0.88257E+01_JPRB,0.80787E+01_JPRB,0.72181E+01_JPRB /)  
+KB(:, 2,42,14) = (/ &
+ & 0.70672E+01_JPRB,0.81413E+01_JPRB,0.88562E+01_JPRB,0.81177E+01_JPRB,0.74171E+01_JPRB /)  
+KB(:, 3,42,14) = (/ &
+ & 0.73618E+01_JPRB,0.81993E+01_JPRB,0.88420E+01_JPRB,0.81387E+01_JPRB,0.75853E+01_JPRB /)  
+KB(:, 4,42,14) = (/ &
+ & 0.76110E+01_JPRB,0.82240E+01_JPRB,0.87872E+01_JPRB,0.81416E+01_JPRB,0.77301E+01_JPRB /)  
+KB(:, 5,42,14) = (/ &
+ & 0.78157E+01_JPRB,0.82114E+01_JPRB,0.87034E+01_JPRB,0.81275E+01_JPRB,0.78533E+01_JPRB /)  
+KB(:, 1,43,14) = (/ &
+ & 0.66012E+01_JPRB,0.80077E+01_JPRB,0.88083E+01_JPRB,0.80639E+01_JPRB,0.71482E+01_JPRB /)  
+KB(:, 2,43,14) = (/ &
+ & 0.69627E+01_JPRB,0.81158E+01_JPRB,0.88532E+01_JPRB,0.81101E+01_JPRB,0.73596E+01_JPRB /)  
+KB(:, 3,43,14) = (/ &
+ & 0.72743E+01_JPRB,0.81862E+01_JPRB,0.88533E+01_JPRB,0.81352E+01_JPRB,0.75360E+01_JPRB /)  
+KB(:, 4,43,14) = (/ &
+ & 0.75376E+01_JPRB,0.82203E+01_JPRB,0.88101E+01_JPRB,0.81444E+01_JPRB,0.76876E+01_JPRB /)  
+KB(:, 5,43,14) = (/ &
+ & 0.77560E+01_JPRB,0.82200E+01_JPRB,0.87338E+01_JPRB,0.81353E+01_JPRB,0.78176E+01_JPRB /)  
+KB(:, 1,44,14) = (/ &
+ & 0.64654E+01_JPRB,0.79624E+01_JPRB,0.87841E+01_JPRB,0.80450E+01_JPRB,0.70696E+01_JPRB /)  
+KB(:, 2,44,14) = (/ &
+ & 0.68452E+01_JPRB,0.80842E+01_JPRB,0.88456E+01_JPRB,0.80985E+01_JPRB,0.72931E+01_JPRB /)  
+KB(:, 3,44,14) = (/ &
+ & 0.71736E+01_JPRB,0.81668E+01_JPRB,0.88594E+01_JPRB,0.81294E+01_JPRB,0.74799E+01_JPRB /)  
+KB(:, 4,44,14) = (/ &
+ & 0.74536E+01_JPRB,0.82135E+01_JPRB,0.88309E+01_JPRB,0.81455E+01_JPRB,0.76398E+01_JPRB /)  
+KB(:, 5,44,14) = (/ &
+ & 0.76864E+01_JPRB,0.82252E+01_JPRB,0.87641E+01_JPRB,0.81417E+01_JPRB,0.77771E+01_JPRB /)  
+KB(:, 1,45,14) = (/ &
+ & 0.63246E+01_JPRB,0.79121E+01_JPRB,0.87529E+01_JPRB,0.80227E+01_JPRB,0.69872E+01_JPRB /)  
+KB(:, 2,45,14) = (/ &
+ & 0.67215E+01_JPRB,0.80478E+01_JPRB,0.88314E+01_JPRB,0.80840E+01_JPRB,0.72219E+01_JPRB /)  
+KB(:, 3,45,14) = (/ &
+ & 0.70680E+01_JPRB,0.81447E+01_JPRB,0.88609E+01_JPRB,0.81218E+01_JPRB,0.74205E+01_JPRB /)  
+KB(:, 4,45,14) = (/ &
+ & 0.73633E+01_JPRB,0.82020E+01_JPRB,0.88464E+01_JPRB,0.81437E+01_JPRB,0.75896E+01_JPRB /)  
+KB(:, 5,45,14) = (/ &
+ & 0.76123E+01_JPRB,0.82264E+01_JPRB,0.87913E+01_JPRB,0.81458E+01_JPRB,0.77333E+01_JPRB /)  
+KB(:, 1,46,14) = (/ &
+ & 0.61677E+01_JPRB,0.78522E+01_JPRB,0.87120E+01_JPRB,0.79958E+01_JPRB,0.68962E+01_JPRB /)  
+KB(:, 2,46,14) = (/ &
+ & 0.65843E+01_JPRB,0.80056E+01_JPRB,0.88106E+01_JPRB,0.80659E+01_JPRB,0.71413E+01_JPRB /)  
+KB(:, 3,46,14) = (/ &
+ & 0.69482E+01_JPRB,0.81147E+01_JPRB,0.88565E+01_JPRB,0.81122E+01_JPRB,0.73539E+01_JPRB /)  
+KB(:, 4,46,14) = (/ &
+ & 0.72620E+01_JPRB,0.81857E+01_JPRB,0.88581E+01_JPRB,0.81382E+01_JPRB,0.75320E+01_JPRB /)  
+KB(:, 5,46,14) = (/ &
+ & 0.75285E+01_JPRB,0.82222E+01_JPRB,0.88171E+01_JPRB,0.81482E+01_JPRB,0.76841E+01_JPRB /)  
+KB(:, 1,47,14) = (/ &
+ & 0.59872E+01_JPRB,0.77759E+01_JPRB,0.86581E+01_JPRB,0.79599E+01_JPRB,0.67904E+01_JPRB /)  
+KB(:, 2,47,14) = (/ &
+ & 0.64227E+01_JPRB,0.79505E+01_JPRB,0.87794E+01_JPRB,0.80417E+01_JPRB,0.70463E+01_JPRB /)  
+KB(:, 3,47,14) = (/ &
+ & 0.68067E+01_JPRB,0.80750E+01_JPRB,0.88445E+01_JPRB,0.80966E+01_JPRB,0.72732E+01_JPRB /)  
+KB(:, 4,47,14) = (/ &
+ & 0.71415E+01_JPRB,0.81619E+01_JPRB,0.88634E+01_JPRB,0.81302E+01_JPRB,0.74640E+01_JPRB /)  
+KB(:, 5,47,14) = (/ &
+ & 0.74259E+01_JPRB,0.82118E+01_JPRB,0.88390E+01_JPRB,0.81478E+01_JPRB,0.76260E+01_JPRB /)  
+KB(:, 1,48,14) = (/ &
+ & 0.57999E+01_JPRB,0.76897E+01_JPRB,0.85924E+01_JPRB,0.79165E+01_JPRB,0.66812E+01_JPRB /)  
+KB(:, 2,48,14) = (/ &
+ & 0.62523E+01_JPRB,0.78878E+01_JPRB,0.87384E+01_JPRB,0.80135E+01_JPRB,0.69471E+01_JPRB /)  
+KB(:, 3,48,14) = (/ &
+ & 0.66581E+01_JPRB,0.80303E+01_JPRB,0.88250E+01_JPRB,0.80783E+01_JPRB,0.71862E+01_JPRB /)  
+KB(:, 4,48,14) = (/ &
+ & 0.70120E+01_JPRB,0.81321E+01_JPRB,0.88616E+01_JPRB,0.81203E+01_JPRB,0.73915E+01_JPRB /)  
+KB(:, 5,48,14) = (/ &
+ & 0.73167E+01_JPRB,0.81963E+01_JPRB,0.88550E+01_JPRB,0.81433E+01_JPRB,0.75640E+01_JPRB /)  
+KB(:, 1,49,14) = (/ &
+ & 0.56056E+01_JPRB,0.75967E+01_JPRB,0.85186E+01_JPRB,0.78664E+01_JPRB,0.65684E+01_JPRB /)  
+KB(:, 2,49,14) = (/ &
+ & 0.60725E+01_JPRB,0.78139E+01_JPRB,0.86868E+01_JPRB,0.79799E+01_JPRB,0.68428E+01_JPRB /)  
+KB(:, 3,49,14) = (/ &
+ & 0.65005E+01_JPRB,0.79789E+01_JPRB,0.87970E+01_JPRB,0.80551E+01_JPRB,0.70936E+01_JPRB /)  
+KB(:, 4,49,14) = (/ &
+ & 0.68750E+01_JPRB,0.80955E+01_JPRB,0.88532E+01_JPRB,0.81069E+01_JPRB,0.73141E+01_JPRB /)  
+KB(:, 5,49,14) = (/ &
+ & 0.72008E+01_JPRB,0.81753E+01_JPRB,0.88640E+01_JPRB,0.81362E+01_JPRB,0.74980E+01_JPRB /)  
+KB(:, 1,50,14) = (/ &
+ & 0.54125E+01_JPRB,0.74991E+01_JPRB,0.84401E+01_JPRB,0.78123E+01_JPRB,0.64595E+01_JPRB /)  
+KB(:, 2,50,14) = (/ &
+ & 0.59003E+01_JPRB,0.77375E+01_JPRB,0.86301E+01_JPRB,0.79423E+01_JPRB,0.67420E+01_JPRB /)  
+KB(:, 3,50,14) = (/ &
+ & 0.63429E+01_JPRB,0.79215E+01_JPRB,0.87619E+01_JPRB,0.80304E+01_JPRB,0.70024E+01_JPRB /)  
+KB(:, 4,50,14) = (/ &
+ & 0.67393E+01_JPRB,0.80557E+01_JPRB,0.88380E+01_JPRB,0.80904E+01_JPRB,0.72354E+01_JPRB /)  
+KB(:, 5,50,14) = (/ &
+ & 0.70838E+01_JPRB,0.81507E+01_JPRB,0.88659E+01_JPRB,0.81277E+01_JPRB,0.74327E+01_JPRB /)  
+KB(:, 1,51,14) = (/ &
+ & 0.52191E+01_JPRB,0.73982E+01_JPRB,0.83585E+01_JPRB,0.77548E+01_JPRB,0.63504E+01_JPRB /)  
+KB(:, 2,51,14) = (/ &
+ & 0.57281E+01_JPRB,0.76566E+01_JPRB,0.85673E+01_JPRB,0.79002E+01_JPRB,0.66408E+01_JPRB /)  
+KB(:, 3,51,14) = (/ &
+ & 0.61850E+01_JPRB,0.78612E+01_JPRB,0.87206E+01_JPRB,0.80029E+01_JPRB,0.69102E+01_JPRB /)  
+KB(:, 4,51,14) = (/ &
+ & 0.66013E+01_JPRB,0.80131E+01_JPRB,0.88169E+01_JPRB,0.80719E+01_JPRB,0.71542E+01_JPRB /)  
+KB(:, 5,51,14) = (/ &
+ & 0.69630E+01_JPRB,0.81207E+01_JPRB,0.88611E+01_JPRB,0.81171E+01_JPRB,0.73645E+01_JPRB /)  
+KB(:, 1,52,14) = (/ &
+ & 0.50203E+01_JPRB,0.72853E+01_JPRB,0.82659E+01_JPRB,0.76900E+01_JPRB,0.62362E+01_JPRB /)  
+KB(:, 2,52,14) = (/ &
+ & 0.55489E+01_JPRB,0.75692E+01_JPRB,0.84974E+01_JPRB,0.78525E+01_JPRB,0.65380E+01_JPRB /)  
+KB(:, 3,52,14) = (/ &
+ & 0.60223E+01_JPRB,0.77933E+01_JPRB,0.86726E+01_JPRB,0.79710E+01_JPRB,0.68148E+01_JPRB /)  
+KB(:, 4,52,14) = (/ &
+ & 0.64533E+01_JPRB,0.79619E+01_JPRB,0.87883E+01_JPRB,0.80495E+01_JPRB,0.70682E+01_JPRB /)  
+KB(:, 5,52,14) = (/ &
+ & 0.68363E+01_JPRB,0.80853E+01_JPRB,0.88509E+01_JPRB,0.81034E+01_JPRB,0.72926E+01_JPRB /)  
+KB(:, 1,53,14) = (/ &
+ & 0.48171E+01_JPRB,0.71626E+01_JPRB,0.81646E+01_JPRB,0.76188E+01_JPRB,0.61179E+01_JPRB /)  
+KB(:, 2,53,14) = (/ &
+ & 0.53620E+01_JPRB,0.74745E+01_JPRB,0.84206E+01_JPRB,0.77982E+01_JPRB,0.64310E+01_JPRB /)  
+KB(:, 3,53,14) = (/ &
+ & 0.58544E+01_JPRB,0.77168E+01_JPRB,0.86150E+01_JPRB,0.79329E+01_JPRB,0.67166E+01_JPRB /)  
+KB(:, 4,53,14) = (/ &
+ & 0.63007E+01_JPRB,0.79064E+01_JPRB,0.87527E+01_JPRB,0.80244E+01_JPRB,0.69787E+01_JPRB /)  
+KB(:, 5,53,14) = (/ &
+ & 0.67036E+01_JPRB,0.80457E+01_JPRB,0.88348E+01_JPRB,0.80870E+01_JPRB,0.72150E+01_JPRB /)  
+KB(:, 1,54,14) = (/ &
+ & 0.46268E+01_JPRB,0.70415E+01_JPRB,0.80643E+01_JPRB,0.75453E+01_JPRB,0.60051E+01_JPRB /)  
+KB(:, 2,54,14) = (/ &
+ & 0.51834E+01_JPRB,0.73793E+01_JPRB,0.83436E+01_JPRB,0.77439E+01_JPRB,0.63304E+01_JPRB /)  
+KB(:, 3,54,14) = (/ &
+ & 0.56952E+01_JPRB,0.76416E+01_JPRB,0.85557E+01_JPRB,0.78930E+01_JPRB,0.66233E+01_JPRB /)  
+KB(:, 4,54,14) = (/ &
+ & 0.61555E+01_JPRB,0.78501E+01_JPRB,0.87136E+01_JPRB,0.79986E+01_JPRB,0.68935E+01_JPRB /)  
+KB(:, 5,54,14) = (/ &
+ & 0.65754E+01_JPRB,0.80055E+01_JPRB,0.88139E+01_JPRB,0.80689E+01_JPRB,0.71391E+01_JPRB /)  
+KB(:, 1,55,14) = (/ &
+ & 0.44418E+01_JPRB,0.69152E+01_JPRB,0.79589E+01_JPRB,0.74683E+01_JPRB,0.58909E+01_JPRB /)  
+KB(:, 2,55,14) = (/ &
+ & 0.50082E+01_JPRB,0.72786E+01_JPRB,0.82608E+01_JPRB,0.76866E+01_JPRB,0.62296E+01_JPRB /)  
+KB(:, 3,55,14) = (/ &
+ & 0.55372E+01_JPRB,0.75641E+01_JPRB,0.84935E+01_JPRB,0.78502E+01_JPRB,0.65324E+01_JPRB /)  
+KB(:, 4,55,14) = (/ &
+ & 0.60119E+01_JPRB,0.77891E+01_JPRB,0.86705E+01_JPRB,0.79700E+01_JPRB,0.68094E+01_JPRB /)  
+KB(:, 5,55,14) = (/ &
+ & 0.64443E+01_JPRB,0.79596E+01_JPRB,0.87874E+01_JPRB,0.80489E+01_JPRB,0.70636E+01_JPRB /)  
+KB(:, 1,56,14) = (/ &
+ & 0.42552E+01_JPRB,0.67816E+01_JPRB,0.78463E+01_JPRB,0.73861E+01_JPRB,0.57693E+01_JPRB /)  
+KB(:, 2,56,14) = (/ &
+ & 0.48302E+01_JPRB,0.71710E+01_JPRB,0.81721E+01_JPRB,0.76241E+01_JPRB,0.61259E+01_JPRB /)  
+KB(:, 3,56,14) = (/ &
+ & 0.53736E+01_JPRB,0.74812E+01_JPRB,0.84261E+01_JPRB,0.78026E+01_JPRB,0.64389E+01_JPRB /)  
+KB(:, 4,56,14) = (/ &
+ & 0.58648E+01_JPRB,0.77223E+01_JPRB,0.86198E+01_JPRB,0.79361E+01_JPRB,0.67232E+01_JPRB /)  
+KB(:, 5,56,14) = (/ &
+ & 0.63103E+01_JPRB,0.79105E+01_JPRB,0.87564E+01_JPRB,0.80271E+01_JPRB,0.69853E+01_JPRB /)  
+KB(:, 1,57,14) = (/ &
+ & 0.40639E+01_JPRB,0.66394E+01_JPRB,0.77238E+01_JPRB,0.72954E+01_JPRB,0.56390E+01_JPRB /)  
+KB(:, 2,57,14) = (/ &
+ & 0.46488E+01_JPRB,0.70563E+01_JPRB,0.80768E+01_JPRB,0.75544E+01_JPRB,0.60187E+01_JPRB /)  
+KB(:, 3,57,14) = (/ &
+ & 0.52035E+01_JPRB,0.73909E+01_JPRB,0.83529E+01_JPRB,0.77510E+01_JPRB,0.63425E+01_JPRB /)  
+KB(:, 4,57,14) = (/ &
+ & 0.57137E+01_JPRB,0.76510E+01_JPRB,0.85638E+01_JPRB,0.78985E+01_JPRB,0.66342E+01_JPRB /)  
+KB(:, 5,57,14) = (/ &
+ & 0.61722E+01_JPRB,0.78574E+01_JPRB,0.87192E+01_JPRB,0.80023E+01_JPRB,0.69038E+01_JPRB /)  
+KB(:, 1,58,14) = (/ &
+ & 0.38805E+01_JPRB,0.64976E+01_JPRB,0.75961E+01_JPRB,0.72010E+01_JPRB,0.55107E+01_JPRB /)  
+KB(:, 2,58,14) = (/ &
+ & 0.44745E+01_JPRB,0.69383E+01_JPRB,0.79787E+01_JPRB,0.74825E+01_JPRB,0.59115E+01_JPRB /)  
+KB(:, 3,58,14) = (/ &
+ & 0.50386E+01_JPRB,0.72976E+01_JPRB,0.82763E+01_JPRB,0.76973E+01_JPRB,0.62480E+01_JPRB /)  
+KB(:, 4,58,14) = (/ &
+ & 0.55648E+01_JPRB,0.75780E+01_JPRB,0.85055E+01_JPRB,0.78586E+01_JPRB,0.65486E+01_JPRB /)  
+KB(:, 5,58,14) = (/ &
+ & 0.60366E+01_JPRB,0.78002E+01_JPRB,0.86790E+01_JPRB,0.79756E+01_JPRB,0.68245E+01_JPRB /)  
+KB(:, 1,59,14) = (/ &
+ & 0.38057E+01_JPRB,0.64388E+01_JPRB,0.75416E+01_JPRB,0.71615E+01_JPRB,0.54582E+01_JPRB /)  
+KB(:, 2,59,14) = (/ &
+ & 0.44044E+01_JPRB,0.68893E+01_JPRB,0.79374E+01_JPRB,0.74528E+01_JPRB,0.58671E+01_JPRB /)  
+KB(:, 3,59,14) = (/ &
+ & 0.49711E+01_JPRB,0.72574E+01_JPRB,0.82432E+01_JPRB,0.76750E+01_JPRB,0.62091E+01_JPRB /)  
+KB(:, 4,59,14) = (/ &
+ & 0.55038E+01_JPRB,0.75476E+01_JPRB,0.84809E+01_JPRB,0.78415E+01_JPRB,0.65137E+01_JPRB /)  
+KB(:, 5,59,14) = (/ &
+ & 0.59820E+01_JPRB,0.77764E+01_JPRB,0.86612E+01_JPRB,0.79636E+01_JPRB,0.67922E+01_JPRB /)  
+KB(:, 1,13,15) = (/ &
+ & 0.21583E+02_JPRB,0.16708E+02_JPRB,0.15578E+02_JPRB,0.16324E+02_JPRB,0.21499E+02_JPRB /)  
+KB(:, 2,13,15) = (/ &
+ & 0.21596E+02_JPRB,0.16646E+02_JPRB,0.15448E+02_JPRB,0.16116E+02_JPRB,0.21237E+02_JPRB /)  
+KB(:, 3,13,15) = (/ &
+ & 0.21561E+02_JPRB,0.16562E+02_JPRB,0.15303E+02_JPRB,0.15881E+02_JPRB,0.20975E+02_JPRB /)  
+KB(:, 4,13,15) = (/ &
+ & 0.21482E+02_JPRB,0.16444E+02_JPRB,0.15131E+02_JPRB,0.15663E+02_JPRB,0.20709E+02_JPRB /)  
+KB(:, 5,13,15) = (/ &
+ & 0.21360E+02_JPRB,0.16308E+02_JPRB,0.14933E+02_JPRB,0.15443E+02_JPRB,0.20449E+02_JPRB /)  
+KB(:, 1,14,15) = (/ &
+ & 0.23286E+02_JPRB,0.18105E+02_JPRB,0.17022E+02_JPRB,0.17494E+02_JPRB,0.22811E+02_JPRB /)  
+KB(:, 2,14,15) = (/ &
+ & 0.23268E+02_JPRB,0.18001E+02_JPRB,0.16845E+02_JPRB,0.17259E+02_JPRB,0.22563E+02_JPRB /)  
+KB(:, 3,14,15) = (/ &
+ & 0.23185E+02_JPRB,0.17865E+02_JPRB,0.16645E+02_JPRB,0.17010E+02_JPRB,0.22295E+02_JPRB /)  
+KB(:, 4,14,15) = (/ &
+ & 0.23065E+02_JPRB,0.17707E+02_JPRB,0.16417E+02_JPRB,0.16757E+02_JPRB,0.22015E+02_JPRB /)  
+KB(:, 5,14,15) = (/ &
+ & 0.22894E+02_JPRB,0.17515E+02_JPRB,0.16163E+02_JPRB,0.16504E+02_JPRB,0.21733E+02_JPRB /)  
+KB(:, 1,15,15) = (/ &
+ & 0.24991E+02_JPRB,0.19505E+02_JPRB,0.18411E+02_JPRB,0.18638E+02_JPRB,0.24057E+02_JPRB /)  
+KB(:, 2,15,15) = (/ &
+ & 0.24920E+02_JPRB,0.19349E+02_JPRB,0.18180E+02_JPRB,0.18374E+02_JPRB,0.23810E+02_JPRB /)  
+KB(:, 3,15,15) = (/ &
+ & 0.24797E+02_JPRB,0.19155E+02_JPRB,0.17917E+02_JPRB,0.18103E+02_JPRB,0.23536E+02_JPRB /)  
+KB(:, 4,15,15) = (/ &
+ & 0.24619E+02_JPRB,0.18942E+02_JPRB,0.17624E+02_JPRB,0.17814E+02_JPRB,0.23238E+02_JPRB /)  
+KB(:, 5,15,15) = (/ &
+ & 0.24389E+02_JPRB,0.18694E+02_JPRB,0.17313E+02_JPRB,0.17524E+02_JPRB,0.22925E+02_JPRB /)  
+KB(:, 1,16,15) = (/ &
+ & 0.26656E+02_JPRB,0.20879E+02_JPRB,0.19716E+02_JPRB,0.19730E+02_JPRB,0.25227E+02_JPRB /)  
+KB(:, 2,16,15) = (/ &
+ & 0.26523E+02_JPRB,0.20660E+02_JPRB,0.19424E+02_JPRB,0.19442E+02_JPRB,0.24961E+02_JPRB /)  
+KB(:, 3,16,15) = (/ &
+ & 0.26348E+02_JPRB,0.20405E+02_JPRB,0.19093E+02_JPRB,0.19135E+02_JPRB,0.24671E+02_JPRB /)  
+KB(:, 4,16,15) = (/ &
+ & 0.26107E+02_JPRB,0.20124E+02_JPRB,0.18741E+02_JPRB,0.18812E+02_JPRB,0.24357E+02_JPRB /)  
+KB(:, 5,16,15) = (/ &
+ & 0.25816E+02_JPRB,0.19816E+02_JPRB,0.18364E+02_JPRB,0.18476E+02_JPRB,0.24001E+02_JPRB /)  
+KB(:, 1,17,15) = (/ &
+ & 0.28242E+02_JPRB,0.22184E+02_JPRB,0.20936E+02_JPRB,0.20769E+02_JPRB,0.26307E+02_JPRB /)  
+KB(:, 2,17,15) = (/ &
+ & 0.28053E+02_JPRB,0.21895E+02_JPRB,0.20570E+02_JPRB,0.20444E+02_JPRB,0.26016E+02_JPRB /)  
+KB(:, 3,17,15) = (/ &
+ & 0.27803E+02_JPRB,0.21584E+02_JPRB,0.20174E+02_JPRB,0.20096E+02_JPRB,0.25702E+02_JPRB /)  
+KB(:, 4,17,15) = (/ &
+ & 0.27499E+02_JPRB,0.21233E+02_JPRB,0.19753E+02_JPRB,0.19726E+02_JPRB,0.25351E+02_JPRB /)  
+KB(:, 5,17,15) = (/ &
+ & 0.27139E+02_JPRB,0.20859E+02_JPRB,0.19319E+02_JPRB,0.19342E+02_JPRB,0.24955E+02_JPRB /)  
+KB(:, 1,18,15) = (/ &
+ & 0.29720E+02_JPRB,0.23411E+02_JPRB,0.22065E+02_JPRB,0.21731E+02_JPRB,0.27280E+02_JPRB /)  
+KB(:, 2,18,15) = (/ &
+ & 0.29480E+02_JPRB,0.23053E+02_JPRB,0.21624E+02_JPRB,0.21360E+02_JPRB,0.26972E+02_JPRB /)  
+KB(:, 3,18,15) = (/ &
+ & 0.29159E+02_JPRB,0.22667E+02_JPRB,0.21156E+02_JPRB,0.20967E+02_JPRB,0.26625E+02_JPRB /)  
+KB(:, 4,18,15) = (/ &
+ & 0.28776E+02_JPRB,0.22248E+02_JPRB,0.20663E+02_JPRB,0.20553E+02_JPRB,0.26229E+02_JPRB /)  
+KB(:, 5,18,15) = (/ &
+ & 0.28340E+02_JPRB,0.21810E+02_JPRB,0.20170E+02_JPRB,0.20119E+02_JPRB,0.25790E+02_JPRB /)  
+KB(:, 1,19,15) = (/ &
+ & 0.31079E+02_JPRB,0.24533E+02_JPRB,0.23084E+02_JPRB,0.22601E+02_JPRB,0.28156E+02_JPRB /)  
+KB(:, 2,19,15) = (/ &
+ & 0.30766E+02_JPRB,0.24108E+02_JPRB,0.22572E+02_JPRB,0.22185E+02_JPRB,0.27815E+02_JPRB /)  
+KB(:, 3,19,15) = (/ &
+ & 0.30376E+02_JPRB,0.23641E+02_JPRB,0.22030E+02_JPRB,0.21741E+02_JPRB,0.27429E+02_JPRB /)  
+KB(:, 4,19,15) = (/ &
+ & 0.29923E+02_JPRB,0.23160E+02_JPRB,0.21471E+02_JPRB,0.21280E+02_JPRB,0.26992E+02_JPRB /)  
+KB(:, 5,19,15) = (/ &
+ & 0.29415E+02_JPRB,0.22660E+02_JPRB,0.20920E+02_JPRB,0.20797E+02_JPRB,0.26511E+02_JPRB /)  
+KB(:, 1,20,15) = (/ &
+ & 0.32290E+02_JPRB,0.25527E+02_JPRB,0.23984E+02_JPRB,0.23373E+02_JPRB,0.28918E+02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART34',1,ZHOOK_HANDLE)
+END SUBROUTINE PART34
+
+
+SUBROUTINE PART35
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART35',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,20,15) = (/ &
+ & 0.31907E+02_JPRB,0.25035E+02_JPRB,0.23397E+02_JPRB,0.22899E+02_JPRB,0.28537E+02_JPRB /)  
+KB(:, 3,20,15) = (/ &
+ & 0.31450E+02_JPRB,0.24496E+02_JPRB,0.22784E+02_JPRB,0.22408E+02_JPRB,0.28112E+02_JPRB /)  
+KB(:, 4,20,15) = (/ &
+ & 0.30926E+02_JPRB,0.23946E+02_JPRB,0.22166E+02_JPRB,0.21898E+02_JPRB,0.27628E+02_JPRB /)  
+KB(:, 5,20,15) = (/ &
+ & 0.30351E+02_JPRB,0.23384E+02_JPRB,0.21559E+02_JPRB,0.21369E+02_JPRB,0.27109E+02_JPRB /)  
+KB(:, 1,21,15) = (/ &
+ & 0.33354E+02_JPRB,0.26397E+02_JPRB,0.24768E+02_JPRB,0.24040E+02_JPRB,0.29575E+02_JPRB /)  
+KB(:, 2,21,15) = (/ &
+ & 0.32901E+02_JPRB,0.25842E+02_JPRB,0.24107E+02_JPRB,0.23511E+02_JPRB,0.29153E+02_JPRB /)  
+KB(:, 3,21,15) = (/ &
+ & 0.32374E+02_JPRB,0.25240E+02_JPRB,0.23426E+02_JPRB,0.22972E+02_JPRB,0.28686E+02_JPRB /)  
+KB(:, 4,21,15) = (/ &
+ & 0.31781E+02_JPRB,0.24624E+02_JPRB,0.22754E+02_JPRB,0.22416E+02_JPRB,0.28162E+02_JPRB /)  
+KB(:, 5,21,15) = (/ &
+ & 0.31147E+02_JPRB,0.24003E+02_JPRB,0.22095E+02_JPRB,0.21845E+02_JPRB,0.27608E+02_JPRB /)  
+KB(:, 1,22,15) = (/ &
+ & 0.34245E+02_JPRB,0.27109E+02_JPRB,0.25388E+02_JPRB,0.24566E+02_JPRB,0.30099E+02_JPRB /)  
+KB(:, 2,22,15) = (/ &
+ & 0.33719E+02_JPRB,0.26481E+02_JPRB,0.24655E+02_JPRB,0.23987E+02_JPRB,0.29635E+02_JPRB /)  
+KB(:, 3,22,15) = (/ &
+ & 0.33121E+02_JPRB,0.25821E+02_JPRB,0.23916E+02_JPRB,0.23403E+02_JPRB,0.29124E+02_JPRB /)  
+KB(:, 4,22,15) = (/ &
+ & 0.32461E+02_JPRB,0.25147E+02_JPRB,0.23196E+02_JPRB,0.22805E+02_JPRB,0.28562E+02_JPRB /)  
+KB(:, 5,22,15) = (/ &
+ & 0.31774E+02_JPRB,0.24482E+02_JPRB,0.22495E+02_JPRB,0.22197E+02_JPRB,0.27979E+02_JPRB /)  
+KB(:, 1,23,15) = (/ &
+ & 0.34979E+02_JPRB,0.27686E+02_JPRB,0.25885E+02_JPRB,0.24985E+02_JPRB,0.30523E+02_JPRB /)  
+KB(:, 2,23,15) = (/ &
+ & 0.34390E+02_JPRB,0.26989E+02_JPRB,0.25088E+02_JPRB,0.24366E+02_JPRB,0.30015E+02_JPRB /)  
+KB(:, 3,23,15) = (/ &
+ & 0.33724E+02_JPRB,0.26279E+02_JPRB,0.24300E+02_JPRB,0.23742E+02_JPRB,0.29464E+02_JPRB /)  
+KB(:, 4,23,15) = (/ &
+ & 0.33013E+02_JPRB,0.25562E+02_JPRB,0.23538E+02_JPRB,0.23108E+02_JPRB,0.28875E+02_JPRB /)  
+KB(:, 5,23,15) = (/ &
+ & 0.32269E+02_JPRB,0.24853E+02_JPRB,0.22796E+02_JPRB,0.22467E+02_JPRB,0.28265E+02_JPRB /)  
+KB(:, 1,24,15) = (/ &
+ & 0.35573E+02_JPRB,0.28136E+02_JPRB,0.26264E+02_JPRB,0.25305E+02_JPRB,0.30849E+02_JPRB /)  
+KB(:, 2,24,15) = (/ &
+ & 0.34922E+02_JPRB,0.27387E+02_JPRB,0.25413E+02_JPRB,0.24653E+02_JPRB,0.30308E+02_JPRB /)  
+KB(:, 3,24,15) = (/ &
+ & 0.34200E+02_JPRB,0.26632E+02_JPRB,0.24587E+02_JPRB,0.23994E+02_JPRB,0.29723E+02_JPRB /)  
+KB(:, 4,24,15) = (/ &
+ & 0.33439E+02_JPRB,0.25872E+02_JPRB,0.23787E+02_JPRB,0.23329E+02_JPRB,0.29105E+02_JPRB /)  
+KB(:, 5,24,15) = (/ &
+ & 0.32647E+02_JPRB,0.25128E+02_JPRB,0.23014E+02_JPRB,0.22661E+02_JPRB,0.28477E+02_JPRB /)  
+KB(:, 1,25,15) = (/ &
+ & 0.36033E+02_JPRB,0.28469E+02_JPRB,0.26533E+02_JPRB,0.25539E+02_JPRB,0.31091E+02_JPRB /)  
+KB(:, 2,25,15) = (/ &
+ & 0.35324E+02_JPRB,0.27679E+02_JPRB,0.25640E+02_JPRB,0.24852E+02_JPRB,0.30512E+02_JPRB /)  
+KB(:, 3,25,15) = (/ &
+ & 0.34555E+02_JPRB,0.26887E+02_JPRB,0.24782E+02_JPRB,0.24167E+02_JPRB,0.29902E+02_JPRB /)  
+KB(:, 4,25,15) = (/ &
+ & 0.33752E+02_JPRB,0.26092E+02_JPRB,0.23953E+02_JPRB,0.23474E+02_JPRB,0.29262E+02_JPRB /)  
+KB(:, 5,25,15) = (/ &
+ & 0.32915E+02_JPRB,0.25319E+02_JPRB,0.23155E+02_JPRB,0.22787E+02_JPRB,0.28617E+02_JPRB /)  
+KB(:, 1,26,15) = (/ &
+ & 0.36371E+02_JPRB,0.28696E+02_JPRB,0.26697E+02_JPRB,0.25688E+02_JPRB,0.31254E+02_JPRB /)  
+KB(:, 2,26,15) = (/ &
+ & 0.35607E+02_JPRB,0.27872E+02_JPRB,0.25775E+02_JPRB,0.24975E+02_JPRB,0.30642E+02_JPRB /)  
+KB(:, 3,26,15) = (/ &
+ & 0.34798E+02_JPRB,0.27047E+02_JPRB,0.24890E+02_JPRB,0.24264E+02_JPRB,0.30007E+02_JPRB /)  
+KB(:, 4,26,15) = (/ &
+ & 0.33956E+02_JPRB,0.26227E+02_JPRB,0.24040E+02_JPRB,0.23549E+02_JPRB,0.29351E+02_JPRB /)  
+KB(:, 5,26,15) = (/ &
+ & 0.33076E+02_JPRB,0.25425E+02_JPRB,0.23222E+02_JPRB,0.22845E+02_JPRB,0.28688E+02_JPRB /)  
+KB(:, 1,27,15) = (/ &
+ & 0.36605E+02_JPRB,0.28839E+02_JPRB,0.26780E+02_JPRB,0.25770E+02_JPRB,0.31349E+02_JPRB /)  
+KB(:, 2,27,15) = (/ &
+ & 0.35796E+02_JPRB,0.27987E+02_JPRB,0.25836E+02_JPRB,0.25037E+02_JPRB,0.30713E+02_JPRB /)  
+KB(:, 3,27,15) = (/ &
+ & 0.34952E+02_JPRB,0.27136E+02_JPRB,0.24934E+02_JPRB,0.24306E+02_JPRB,0.30059E+02_JPRB /)  
+KB(:, 4,27,15) = (/ &
+ & 0.34075E+02_JPRB,0.26294E+02_JPRB,0.24068E+02_JPRB,0.23575E+02_JPRB,0.29392E+02_JPRB /)  
+KB(:, 5,27,15) = (/ &
+ & 0.33166E+02_JPRB,0.25473E+02_JPRB,0.23238E+02_JPRB,0.22856E+02_JPRB,0.28711E+02_JPRB /)  
+KB(:, 1,28,15) = (/ &
+ & 0.36758E+02_JPRB,0.28917E+02_JPRB,0.26804E+02_JPRB,0.25803E+02_JPRB,0.31396E+02_JPRB /)  
+KB(:, 2,28,15) = (/ &
+ & 0.35910E+02_JPRB,0.28037E+02_JPRB,0.25842E+02_JPRB,0.25051E+02_JPRB,0.30739E+02_JPRB /)  
+KB(:, 3,28,15) = (/ &
+ & 0.35033E+02_JPRB,0.27165E+02_JPRB,0.24925E+02_JPRB,0.24304E+02_JPRB,0.30070E+02_JPRB /)  
+KB(:, 4,28,15) = (/ &
+ & 0.34125E+02_JPRB,0.26307E+02_JPRB,0.24049E+02_JPRB,0.23563E+02_JPRB,0.29393E+02_JPRB /)  
+KB(:, 5,28,15) = (/ &
+ & 0.33188E+02_JPRB,0.25468E+02_JPRB,0.23210E+02_JPRB,0.22829E+02_JPRB,0.28695E+02_JPRB /)  
+KB(:, 1,29,15) = (/ &
+ & 0.36829E+02_JPRB,0.28926E+02_JPRB,0.26766E+02_JPRB,0.25785E+02_JPRB,0.31393E+02_JPRB /)  
+KB(:, 2,29,15) = (/ &
+ & 0.35949E+02_JPRB,0.28025E+02_JPRB,0.25792E+02_JPRB,0.25019E+02_JPRB,0.30723E+02_JPRB /)  
+KB(:, 3,29,15) = (/ &
+ & 0.35045E+02_JPRB,0.27141E+02_JPRB,0.24868E+02_JPRB,0.24260E+02_JPRB,0.30042E+02_JPRB /)  
+KB(:, 4,29,15) = (/ &
+ & 0.34114E+02_JPRB,0.26272E+02_JPRB,0.23986E+02_JPRB,0.23509E+02_JPRB,0.29353E+02_JPRB /)  
+KB(:, 5,29,15) = (/ &
+ & 0.33154E+02_JPRB,0.25419E+02_JPRB,0.23142E+02_JPRB,0.22765E+02_JPRB,0.28643E+02_JPRB /)  
+KB(:, 1,30,15) = (/ &
+ & 0.36836E+02_JPRB,0.28884E+02_JPRB,0.26681E+02_JPRB,0.25729E+02_JPRB,0.31353E+02_JPRB /)  
+KB(:, 2,30,15) = (/ &
+ & 0.35935E+02_JPRB,0.27972E+02_JPRB,0.25704E+02_JPRB,0.24955E+02_JPRB,0.30675E+02_JPRB /)  
+KB(:, 3,30,15) = (/ &
+ & 0.35002E+02_JPRB,0.27075E+02_JPRB,0.24775E+02_JPRB,0.24184E+02_JPRB,0.29984E+02_JPRB /)  
+KB(:, 4,30,15) = (/ &
+ & 0.34050E+02_JPRB,0.26196E+02_JPRB,0.23891E+02_JPRB,0.23427E+02_JPRB,0.29283E+02_JPRB /)  
+KB(:, 5,30,15) = (/ &
+ & 0.33076E+02_JPRB,0.25337E+02_JPRB,0.23046E+02_JPRB,0.22676E+02_JPRB,0.28566E+02_JPRB /)  
+KB(:, 1,31,15) = (/ &
+ & 0.36791E+02_JPRB,0.28797E+02_JPRB,0.26557E+02_JPRB,0.25640E+02_JPRB,0.31284E+02_JPRB /)  
+KB(:, 2,31,15) = (/ &
+ & 0.35869E+02_JPRB,0.27877E+02_JPRB,0.25582E+02_JPRB,0.24857E+02_JPRB,0.30596E+02_JPRB /)  
+KB(:, 3,31,15) = (/ &
+ & 0.34914E+02_JPRB,0.26971E+02_JPRB,0.24653E+02_JPRB,0.24083E+02_JPRB,0.29901E+02_JPRB /)  
+KB(:, 4,31,15) = (/ &
+ & 0.33941E+02_JPRB,0.26084E+02_JPRB,0.23767E+02_JPRB,0.23319E+02_JPRB,0.29185E+02_JPRB /)  
+KB(:, 5,31,15) = (/ &
+ & 0.32958E+02_JPRB,0.25224E+02_JPRB,0.22924E+02_JPRB,0.22563E+02_JPRB,0.28464E+02_JPRB /)  
+KB(:, 1,32,15) = (/ &
+ & 0.36704E+02_JPRB,0.28676E+02_JPRB,0.26402E+02_JPRB,0.25521E+02_JPRB,0.31186E+02_JPRB /)  
+KB(:, 2,32,15) = (/ &
+ & 0.35759E+02_JPRB,0.27748E+02_JPRB,0.25429E+02_JPRB,0.24734E+02_JPRB,0.30492E+02_JPRB /)  
+KB(:, 3,32,15) = (/ &
+ & 0.34789E+02_JPRB,0.26839E+02_JPRB,0.24504E+02_JPRB,0.23956E+02_JPRB,0.29792E+02_JPRB /)  
+KB(:, 4,32,15) = (/ &
+ & 0.33799E+02_JPRB,0.25947E+02_JPRB,0.23622E+02_JPRB,0.23189E+02_JPRB,0.29067E+02_JPRB /)  
+KB(:, 5,32,15) = (/ &
+ & 0.32807E+02_JPRB,0.25086E+02_JPRB,0.22780E+02_JPRB,0.22431E+02_JPRB,0.28343E+02_JPRB /)  
+KB(:, 1,33,15) = (/ &
+ & 0.36581E+02_JPRB,0.28529E+02_JPRB,0.26229E+02_JPRB,0.25386E+02_JPRB,0.31076E+02_JPRB /)  
+KB(:, 2,33,15) = (/ &
+ & 0.35618E+02_JPRB,0.27597E+02_JPRB,0.25258E+02_JPRB,0.24592E+02_JPRB,0.30373E+02_JPRB /)  
+KB(:, 3,33,15) = (/ &
+ & 0.34634E+02_JPRB,0.26685E+02_JPRB,0.24337E+02_JPRB,0.23815E+02_JPRB,0.29666E+02_JPRB /)  
+KB(:, 4,33,15) = (/ &
+ & 0.33632E+02_JPRB,0.25791E+02_JPRB,0.23459E+02_JPRB,0.23042E+02_JPRB,0.28931E+02_JPRB /)  
+KB(:, 5,33,15) = (/ &
+ & 0.32632E+02_JPRB,0.24931E+02_JPRB,0.22622E+02_JPRB,0.22288E+02_JPRB,0.28210E+02_JPRB /)  
+KB(:, 1,34,15) = (/ &
+ & 0.36458E+02_JPRB,0.28392E+02_JPRB,0.26072E+02_JPRB,0.25264E+02_JPRB,0.30972E+02_JPRB /)  
+KB(:, 2,34,15) = (/ &
+ & 0.35483E+02_JPRB,0.27459E+02_JPRB,0.25106E+02_JPRB,0.24467E+02_JPRB,0.30265E+02_JPRB /)  
+KB(:, 3,34,15) = (/ &
+ & 0.34486E+02_JPRB,0.26542E+02_JPRB,0.24189E+02_JPRB,0.23688E+02_JPRB,0.29550E+02_JPRB /)  
+KB(:, 4,34,15) = (/ &
+ & 0.33480E+02_JPRB,0.25653E+02_JPRB,0.23315E+02_JPRB,0.22913E+02_JPRB,0.28811E+02_JPRB /)  
+KB(:, 5,34,15) = (/ &
+ & 0.32478E+02_JPRB,0.24793E+02_JPRB,0.22484E+02_JPRB,0.22163E+02_JPRB,0.28094E+02_JPRB /)  
+KB(:, 1,35,15) = (/ &
+ & 0.36414E+02_JPRB,0.28334E+02_JPRB,0.25999E+02_JPRB,0.25206E+02_JPRB,0.30923E+02_JPRB /)  
+KB(:, 2,35,15) = (/ &
+ & 0.35425E+02_JPRB,0.27395E+02_JPRB,0.25033E+02_JPRB,0.24406E+02_JPRB,0.30215E+02_JPRB /)  
+KB(:, 3,35,15) = (/ &
+ & 0.34420E+02_JPRB,0.26476E+02_JPRB,0.24117E+02_JPRB,0.23624E+02_JPRB,0.29493E+02_JPRB /)  
+KB(:, 4,35,15) = (/ &
+ & 0.33407E+02_JPRB,0.25585E+02_JPRB,0.23243E+02_JPRB,0.22849E+02_JPRB,0.28753E+02_JPRB /)  
+KB(:, 5,35,15) = (/ &
+ & 0.32403E+02_JPRB,0.24726E+02_JPRB,0.22415E+02_JPRB,0.22101E+02_JPRB,0.28034E+02_JPRB /)  
+KB(:, 1,36,15) = (/ &
+ & 0.36456E+02_JPRB,0.28365E+02_JPRB,0.26023E+02_JPRB,0.25227E+02_JPRB,0.30947E+02_JPRB /)  
+KB(:, 2,36,15) = (/ &
+ & 0.35465E+02_JPRB,0.27424E+02_JPRB,0.25054E+02_JPRB,0.24425E+02_JPRB,0.30235E+02_JPRB /)  
+KB(:, 3,36,15) = (/ &
+ & 0.34451E+02_JPRB,0.26498E+02_JPRB,0.24134E+02_JPRB,0.23640E+02_JPRB,0.29510E+02_JPRB /)  
+KB(:, 4,36,15) = (/ &
+ & 0.33436E+02_JPRB,0.25606E+02_JPRB,0.23259E+02_JPRB,0.22862E+02_JPRB,0.28768E+02_JPRB /)  
+KB(:, 5,36,15) = (/ &
+ & 0.32427E+02_JPRB,0.24743E+02_JPRB,0.22427E+02_JPRB,0.22112E+02_JPRB,0.28048E+02_JPRB /)  
+KB(:, 1,37,15) = (/ &
+ & 0.36638E+02_JPRB,0.28533E+02_JPRB,0.26191E+02_JPRB,0.25363E+02_JPRB,0.31069E+02_JPRB /)  
+KB(:, 2,37,15) = (/ &
+ & 0.35645E+02_JPRB,0.27585E+02_JPRB,0.25212E+02_JPRB,0.24557E+02_JPRB,0.30356E+02_JPRB /)  
+KB(:, 3,37,15) = (/ &
+ & 0.34632E+02_JPRB,0.26655E+02_JPRB,0.24283E+02_JPRB,0.23768E+02_JPRB,0.29633E+02_JPRB /)  
+KB(:, 4,37,15) = (/ &
+ & 0.33611E+02_JPRB,0.25753E+02_JPRB,0.23398E+02_JPRB,0.22987E+02_JPRB,0.28889E+02_JPRB /)  
+KB(:, 5,37,15) = (/ &
+ & 0.32597E+02_JPRB,0.24885E+02_JPRB,0.22559E+02_JPRB,0.22230E+02_JPRB,0.28165E+02_JPRB /)  
+KB(:, 1,38,15) = (/ &
+ & 0.36818E+02_JPRB,0.28702E+02_JPRB,0.26363E+02_JPRB,0.25503E+02_JPRB,0.31194E+02_JPRB /)  
+KB(:, 2,38,15) = (/ &
+ & 0.35825E+02_JPRB,0.27749E+02_JPRB,0.25373E+02_JPRB,0.24692E+02_JPRB,0.30479E+02_JPRB /)  
+KB(:, 3,38,15) = (/ &
+ & 0.34809E+02_JPRB,0.26811E+02_JPRB,0.24434E+02_JPRB,0.23900E+02_JPRB,0.29757E+02_JPRB /)  
+KB(:, 4,38,15) = (/ &
+ & 0.33789E+02_JPRB,0.25904E+02_JPRB,0.23543E+02_JPRB,0.23114E+02_JPRB,0.29012E+02_JPRB /)  
+KB(:, 5,38,15) = (/ &
+ & 0.32767E+02_JPRB,0.25028E+02_JPRB,0.22694E+02_JPRB,0.22351E+02_JPRB,0.28285E+02_JPRB /)  
+KB(:, 1,39,15) = (/ &
+ & 0.36989E+02_JPRB,0.28865E+02_JPRB,0.26530E+02_JPRB,0.25636E+02_JPRB,0.31312E+02_JPRB /)  
+KB(:, 2,39,15) = (/ &
+ & 0.35999E+02_JPRB,0.27907E+02_JPRB,0.25529E+02_JPRB,0.24823E+02_JPRB,0.30597E+02_JPRB /)  
+KB(:, 3,39,15) = (/ &
+ & 0.34983E+02_JPRB,0.26966E+02_JPRB,0.24583E+02_JPRB,0.24027E+02_JPRB,0.29878E+02_JPRB /)  
+KB(:, 4,39,15) = (/ &
+ & 0.33957E+02_JPRB,0.26048E+02_JPRB,0.23683E+02_JPRB,0.23240E+02_JPRB,0.29134E+02_JPRB /)  
+KB(:, 5,39,15) = (/ &
+ & 0.32935E+02_JPRB,0.25169E+02_JPRB,0.22826E+02_JPRB,0.22468E+02_JPRB,0.28398E+02_JPRB /)  
+KB(:, 1,40,15) = (/ &
+ & 0.37254E+02_JPRB,0.29125E+02_JPRB,0.26800E+02_JPRB,0.25853E+02_JPRB,0.31502E+02_JPRB /)  
+KB(:, 2,40,15) = (/ &
+ & 0.36269E+02_JPRB,0.28159E+02_JPRB,0.25786E+02_JPRB,0.25036E+02_JPRB,0.30787E+02_JPRB /)  
+KB(:, 3,40,15) = (/ &
+ & 0.35253E+02_JPRB,0.27211E+02_JPRB,0.24825E+02_JPRB,0.24233E+02_JPRB,0.30069E+02_JPRB /)  
+KB(:, 4,40,15) = (/ &
+ & 0.34229E+02_JPRB,0.26287E+02_JPRB,0.23913E+02_JPRB,0.23442E+02_JPRB,0.29327E+02_JPRB /)  
+KB(:, 5,40,15) = (/ &
+ & 0.33202E+02_JPRB,0.25396E+02_JPRB,0.23042E+02_JPRB,0.22665E+02_JPRB,0.28587E+02_JPRB /)  
+KB(:, 1,41,15) = (/ &
+ & 0.37526E+02_JPRB,0.29396E+02_JPRB,0.27087E+02_JPRB,0.26081E+02_JPRB,0.31701E+02_JPRB /)  
+KB(:, 2,41,15) = (/ &
+ & 0.36546E+02_JPRB,0.28422E+02_JPRB,0.26056E+02_JPRB,0.25257E+02_JPRB,0.30982E+02_JPRB /)  
+KB(:, 3,41,15) = (/ &
+ & 0.35534E+02_JPRB,0.27467E+02_JPRB,0.25079E+02_JPRB,0.24448E+02_JPRB,0.30265E+02_JPRB /)  
+KB(:, 4,41,15) = (/ &
+ & 0.34510E+02_JPRB,0.26534E+02_JPRB,0.24153E+02_JPRB,0.23654E+02_JPRB,0.29528E+02_JPRB /)  
+KB(:, 5,41,15) = (/ &
+ & 0.33481E+02_JPRB,0.25633E+02_JPRB,0.23271E+02_JPRB,0.22872E+02_JPRB,0.28783E+02_JPRB /)  
+KB(:, 1,42,15) = (/ &
+ & 0.37791E+02_JPRB,0.29665E+02_JPRB,0.27375E+02_JPRB,0.26306E+02_JPRB,0.31897E+02_JPRB /)  
+KB(:, 2,42,15) = (/ &
+ & 0.36818E+02_JPRB,0.28682E+02_JPRB,0.26328E+02_JPRB,0.25479E+02_JPRB,0.31179E+02_JPRB /)  
+KB(:, 3,42,15) = (/ &
+ & 0.35814E+02_JPRB,0.27725E+02_JPRB,0.25336E+02_JPRB,0.24663E+02_JPRB,0.30459E+02_JPRB /)  
+KB(:, 4,42,15) = (/ &
+ & 0.34792E+02_JPRB,0.26784E+02_JPRB,0.24397E+02_JPRB,0.23867E+02_JPRB,0.29730E+02_JPRB /)  
+KB(:, 5,42,15) = (/ &
+ & 0.33761E+02_JPRB,0.25873E+02_JPRB,0.23504E+02_JPRB,0.23079E+02_JPRB,0.28983E+02_JPRB /)  
+KB(:, 1,43,15) = (/ &
+ & 0.38102E+02_JPRB,0.29987E+02_JPRB,0.27726E+02_JPRB,0.26579E+02_JPRB,0.32132E+02_JPRB /)  
+KB(:, 2,43,15) = (/ &
+ & 0.37142E+02_JPRB,0.29000E+02_JPRB,0.26660E+02_JPRB,0.25743E+02_JPRB,0.31410E+02_JPRB /)  
+KB(:, 3,43,15) = (/ &
+ & 0.36146E+02_JPRB,0.28034E+02_JPRB,0.25651E+02_JPRB,0.24927E+02_JPRB,0.30694E+02_JPRB /)  
+KB(:, 4,43,15) = (/ &
+ & 0.35125E+02_JPRB,0.27087E+02_JPRB,0.24694E+02_JPRB,0.24121E+02_JPRB,0.29968E+02_JPRB /)  
+KB(:, 5,43,15) = (/ &
+ & 0.34093E+02_JPRB,0.26161E+02_JPRB,0.23786E+02_JPRB,0.23330E+02_JPRB,0.29223E+02_JPRB /)  
+KB(:, 1,44,15) = (/ &
+ & 0.38433E+02_JPRB,0.30339E+02_JPRB,0.28106E+02_JPRB,0.26874E+02_JPRB,0.32381E+02_JPRB /)  
+KB(:, 2,44,15) = (/ &
+ & 0.37485E+02_JPRB,0.29344E+02_JPRB,0.27023E+02_JPRB,0.26033E+02_JPRB,0.31664E+02_JPRB /)  
+KB(:, 3,44,15) = (/ &
+ & 0.36497E+02_JPRB,0.28368E+02_JPRB,0.25996E+02_JPRB,0.25211E+02_JPRB,0.30945E+02_JPRB /)  
+KB(:, 4,44,15) = (/ &
+ & 0.35483E+02_JPRB,0.27414E+02_JPRB,0.25019E+02_JPRB,0.24397E+02_JPRB,0.30221E+02_JPRB /)  
+KB(:, 5,44,15) = (/ &
+ & 0.34454E+02_JPRB,0.26480E+02_JPRB,0.24095E+02_JPRB,0.23603E+02_JPRB,0.29482E+02_JPRB /)  
+KB(:, 1,45,15) = (/ &
+ & 0.38755E+02_JPRB,0.30690E+02_JPRB,0.28491E+02_JPRB,0.27169E+02_JPRB,0.32624E+02_JPRB /)  
+KB(:, 2,45,15) = (/ &
+ & 0.37819E+02_JPRB,0.29686E+02_JPRB,0.27393E+02_JPRB,0.26324E+02_JPRB,0.31916E+02_JPRB /)  
+KB(:, 3,45,15) = (/ &
+ & 0.36842E+02_JPRB,0.28700E+02_JPRB,0.26343E+02_JPRB,0.25494E+02_JPRB,0.31195E+02_JPRB /)  
+KB(:, 4,45,15) = (/ &
+ & 0.35840E+02_JPRB,0.27743E+02_JPRB,0.25350E+02_JPRB,0.24674E+02_JPRB,0.30470E+02_JPRB /)  
+KB(:, 5,45,15) = (/ &
+ & 0.34814E+02_JPRB,0.26800E+02_JPRB,0.24408E+02_JPRB,0.23874E+02_JPRB,0.29739E+02_JPRB /)  
+KB(:, 1,46,15) = (/ &
+ & 0.39090E+02_JPRB,0.31065E+02_JPRB,0.28908E+02_JPRB,0.27486E+02_JPRB,0.32877E+02_JPRB /)  
+KB(:, 2,46,15) = (/ &
+ & 0.38170E+02_JPRB,0.30050E+02_JPRB,0.27790E+02_JPRB,0.26631E+02_JPRB,0.32180E+02_JPRB /)  
+KB(:, 3,46,15) = (/ &
+ & 0.37208E+02_JPRB,0.29060E+02_JPRB,0.26719E+02_JPRB,0.25793E+02_JPRB,0.31457E+02_JPRB /)  
+KB(:, 4,46,15) = (/ &
+ & 0.36211E+02_JPRB,0.28091E+02_JPRB,0.25705E+02_JPRB,0.24972E+02_JPRB,0.30735E+02_JPRB /)  
+KB(:, 5,46,15) = (/ &
+ & 0.35190E+02_JPRB,0.27143E+02_JPRB,0.24746E+02_JPRB,0.24165E+02_JPRB,0.30011E+02_JPRB /)  
+KB(:, 1,47,15) = (/ &
+ & 0.39451E+02_JPRB,0.31490E+02_JPRB,0.29378E+02_JPRB,0.27842E+02_JPRB,0.33145E+02_JPRB /)  
+KB(:, 2,47,15) = (/ &
+ & 0.38554E+02_JPRB,0.30463E+02_JPRB,0.28238E+02_JPRB,0.26977E+02_JPRB,0.32470E+02_JPRB /)  
+KB(:, 3,47,15) = (/ &
+ & 0.37608E+02_JPRB,0.29464E+02_JPRB,0.27149E+02_JPRB,0.26134E+02_JPRB,0.31753E+02_JPRB /)  
+KB(:, 4,47,15) = (/ &
+ & 0.36624E+02_JPRB,0.28485E+02_JPRB,0.26114E+02_JPRB,0.25307E+02_JPRB,0.31030E+02_JPRB /)  
+KB(:, 5,47,15) = (/ &
+ & 0.35612E+02_JPRB,0.27529E+02_JPRB,0.25131E+02_JPRB,0.24491E+02_JPRB,0.30307E+02_JPRB /)  
+KB(:, 1,48,15) = (/ &
+ & 0.39789E+02_JPRB,0.31912E+02_JPRB,0.29855E+02_JPRB,0.28207E+02_JPRB,0.33402E+02_JPRB /)  
+KB(:, 2,48,15) = (/ &
+ & 0.38929E+02_JPRB,0.30877E+02_JPRB,0.28697E+02_JPRB,0.27328E+02_JPRB,0.32755E+02_JPRB /)  
+KB(:, 3,48,15) = (/ &
+ & 0.38000E+02_JPRB,0.29868E+02_JPRB,0.27588E+02_JPRB,0.26477E+02_JPRB,0.32050E+02_JPRB /)  
+KB(:, 4,48,15) = (/ &
+ & 0.37030E+02_JPRB,0.28879E+02_JPRB,0.26527E+02_JPRB,0.25639E+02_JPRB,0.31322E+02_JPRB /)  
+KB(:, 5,48,15) = (/ &
+ & 0.36027E+02_JPRB,0.27916E+02_JPRB,0.25523E+02_JPRB,0.24819E+02_JPRB,0.30601E+02_JPRB /)  
+KB(:, 1,49,15) = (/ &
+ & 0.40116E+02_JPRB,0.32336E+02_JPRB,0.30332E+02_JPRB,0.28574E+02_JPRB,0.33637E+02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART35',1,ZHOOK_HANDLE)
+END SUBROUTINE PART35
+
+
+SUBROUTINE PART36
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART36',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,49,15) = (/ &
+ & 0.39295E+02_JPRB,0.31299E+02_JPRB,0.29164E+02_JPRB,0.27682E+02_JPRB,0.33028E+02_JPRB /)  
+KB(:, 3,49,15) = (/ &
+ & 0.38385E+02_JPRB,0.30275E+02_JPRB,0.28033E+02_JPRB,0.26821E+02_JPRB,0.32341E+02_JPRB /)  
+KB(:, 4,49,15) = (/ &
+ & 0.37432E+02_JPRB,0.29281E+02_JPRB,0.26949E+02_JPRB,0.25975E+02_JPRB,0.31615E+02_JPRB /)  
+KB(:, 5,49,15) = (/ &
+ & 0.36440E+02_JPRB,0.28306E+02_JPRB,0.25923E+02_JPRB,0.25151E+02_JPRB,0.30893E+02_JPRB /)  
+KB(:, 1,50,15) = (/ &
+ & 0.40414E+02_JPRB,0.32736E+02_JPRB,0.30783E+02_JPRB,0.28924E+02_JPRB,0.33845E+02_JPRB /)  
+KB(:, 2,50,15) = (/ &
+ & 0.39619E+02_JPRB,0.31694E+02_JPRB,0.29608E+02_JPRB,0.28020E+02_JPRB,0.33276E+02_JPRB /)  
+KB(:, 3,50,15) = (/ &
+ & 0.38737E+02_JPRB,0.30661E+02_JPRB,0.28456E+02_JPRB,0.27146E+02_JPRB,0.32609E+02_JPRB /)  
+KB(:, 4,50,15) = (/ &
+ & 0.37800E+02_JPRB,0.29658E+02_JPRB,0.27356E+02_JPRB,0.26296E+02_JPRB,0.31894E+02_JPRB /)  
+KB(:, 5,50,15) = (/ &
+ & 0.36822E+02_JPRB,0.28673E+02_JPRB,0.26306E+02_JPRB,0.25463E+02_JPRB,0.31168E+02_JPRB /)  
+KB(:, 1,51,15) = (/ &
+ & 0.40689E+02_JPRB,0.33123E+02_JPRB,0.31211E+02_JPRB,0.29252E+02_JPRB,0.34023E+02_JPRB /)  
+KB(:, 2,51,15) = (/ &
+ & 0.39919E+02_JPRB,0.32076E+02_JPRB,0.30039E+02_JPRB,0.28350E+02_JPRB,0.33499E+02_JPRB /)  
+KB(:, 3,51,15) = (/ &
+ & 0.39075E+02_JPRB,0.31039E+02_JPRB,0.28875E+02_JPRB,0.27462E+02_JPRB,0.32860E+02_JPRB /)  
+KB(:, 4,51,15) = (/ &
+ & 0.38151E+02_JPRB,0.30023E+02_JPRB,0.27755E+02_JPRB,0.26605E+02_JPRB,0.32160E+02_JPRB /)  
+KB(:, 5,51,15) = (/ &
+ & 0.37189E+02_JPRB,0.29033E+02_JPRB,0.26685E+02_JPRB,0.25765E+02_JPRB,0.31432E+02_JPRB /)  
+KB(:, 1,52,15) = (/ &
+ & 0.40936E+02_JPRB,0.33510E+02_JPRB,0.31640E+02_JPRB,0.29576E+02_JPRB,0.34183E+02_JPRB /)  
+KB(:, 2,52,15) = (/ &
+ & 0.40210E+02_JPRB,0.32459E+02_JPRB,0.30471E+02_JPRB,0.28683E+02_JPRB,0.33706E+02_JPRB /)  
+KB(:, 3,52,15) = (/ &
+ & 0.39397E+02_JPRB,0.31418E+02_JPRB,0.29296E+02_JPRB,0.27784E+02_JPRB,0.33107E+02_JPRB /)  
+KB(:, 4,52,15) = (/ &
+ & 0.38495E+02_JPRB,0.30394E+02_JPRB,0.28160E+02_JPRB,0.26919E+02_JPRB,0.32422E+02_JPRB /)  
+KB(:, 5,52,15) = (/ &
+ & 0.37548E+02_JPRB,0.29397E+02_JPRB,0.27070E+02_JPRB,0.26070E+02_JPRB,0.31697E+02_JPRB /)  
+KB(:, 1,53,15) = (/ &
+ & 0.41161E+02_JPRB,0.33900E+02_JPRB,0.32075E+02_JPRB,0.29895E+02_JPRB,0.34325E+02_JPRB /)  
+KB(:, 2,53,15) = (/ &
+ & 0.40494E+02_JPRB,0.32844E+02_JPRB,0.30901E+02_JPRB,0.29015E+02_JPRB,0.33898E+02_JPRB /)  
+KB(:, 3,53,15) = (/ &
+ & 0.39709E+02_JPRB,0.31802E+02_JPRB,0.29726E+02_JPRB,0.28110E+02_JPRB,0.33339E+02_JPRB /)  
+KB(:, 4,53,15) = (/ &
+ & 0.38833E+02_JPRB,0.30766E+02_JPRB,0.28570E+02_JPRB,0.27234E+02_JPRB,0.32680E+02_JPRB /)  
+KB(:, 5,53,15) = (/ &
+ & 0.37902E+02_JPRB,0.29761E+02_JPRB,0.27465E+02_JPRB,0.26380E+02_JPRB,0.31966E+02_JPRB /)  
+KB(:, 1,54,15) = (/ &
+ & 0.41350E+02_JPRB,0.34259E+02_JPRB,0.32468E+02_JPRB,0.30182E+02_JPRB,0.34433E+02_JPRB /)  
+KB(:, 2,54,15) = (/ &
+ & 0.40740E+02_JPRB,0.33197E+02_JPRB,0.31292E+02_JPRB,0.29316E+02_JPRB,0.34057E+02_JPRB /)  
+KB(:, 3,54,15) = (/ &
+ & 0.39978E+02_JPRB,0.32149E+02_JPRB,0.30122E+02_JPRB,0.28414E+02_JPRB,0.33542E+02_JPRB /)  
+KB(:, 4,54,15) = (/ &
+ & 0.39139E+02_JPRB,0.31111E+02_JPRB,0.28955E+02_JPRB,0.27524E+02_JPRB,0.32911E+02_JPRB /)  
+KB(:, 5,54,15) = (/ &
+ & 0.38222E+02_JPRB,0.30095E+02_JPRB,0.27832E+02_JPRB,0.26664E+02_JPRB,0.32209E+02_JPRB /)  
+KB(:, 1,55,15) = (/ &
+ & 0.41508E+02_JPRB,0.34608E+02_JPRB,0.32849E+02_JPRB,0.30454E+02_JPRB,0.34522E+02_JPRB /)  
+KB(:, 2,55,15) = (/ &
+ & 0.40955E+02_JPRB,0.33539E+02_JPRB,0.31671E+02_JPRB,0.29598E+02_JPRB,0.34194E+02_JPRB /)  
+KB(:, 3,55,15) = (/ &
+ & 0.40232E+02_JPRB,0.32485E+02_JPRB,0.30501E+02_JPRB,0.28707E+02_JPRB,0.33722E+02_JPRB /)  
+KB(:, 4,55,15) = (/ &
+ & 0.39425E+02_JPRB,0.31448E+02_JPRB,0.29326E+02_JPRB,0.27805E+02_JPRB,0.33122E+02_JPRB /)  
+KB(:, 5,55,15) = (/ &
+ & 0.38521E+02_JPRB,0.30419E+02_JPRB,0.28187E+02_JPRB,0.26941E+02_JPRB,0.32441E+02_JPRB /)  
+KB(:, 1,56,15) = (/ &
+ & 0.41645E+02_JPRB,0.34957E+02_JPRB,0.33233E+02_JPRB,0.30720E+02_JPRB,0.34599E+02_JPRB /)  
+KB(:, 2,56,15) = (/ &
+ & 0.41152E+02_JPRB,0.33880E+02_JPRB,0.32050E+02_JPRB,0.29874E+02_JPRB,0.34316E+02_JPRB /)  
+KB(:, 3,56,15) = (/ &
+ & 0.40482E+02_JPRB,0.32823E+02_JPRB,0.30877E+02_JPRB,0.28999E+02_JPRB,0.33890E+02_JPRB /)  
+KB(:, 4,56,15) = (/ &
+ & 0.39696E+02_JPRB,0.31783E+02_JPRB,0.29704E+02_JPRB,0.28093E+02_JPRB,0.33329E+02_JPRB /)  
+KB(:, 5,56,15) = (/ &
+ & 0.38819E+02_JPRB,0.30747E+02_JPRB,0.28547E+02_JPRB,0.27216E+02_JPRB,0.32666E+02_JPRB /)  
+KB(:, 1,57,15) = (/ &
+ & 0.41772E+02_JPRB,0.35313E+02_JPRB,0.33621E+02_JPRB,0.30980E+02_JPRB,0.34653E+02_JPRB /)  
+KB(:, 2,57,15) = (/ &
+ & 0.41335E+02_JPRB,0.34223E+02_JPRB,0.32428E+02_JPRB,0.30152E+02_JPRB,0.34423E+02_JPRB /)  
+KB(:, 3,57,15) = (/ &
+ & 0.40717E+02_JPRB,0.33158E+02_JPRB,0.31249E+02_JPRB,0.29283E+02_JPRB,0.34041E+02_JPRB /)  
+KB(:, 4,57,15) = (/ &
+ & 0.39952E+02_JPRB,0.32113E+02_JPRB,0.30080E+02_JPRB,0.28382E+02_JPRB,0.33523E+02_JPRB /)  
+KB(:, 5,57,15) = (/ &
+ & 0.39110E+02_JPRB,0.31075E+02_JPRB,0.28913E+02_JPRB,0.27492E+02_JPRB,0.32886E+02_JPRB /)  
+KB(:, 1,58,15) = (/ &
+ & 0.41872E+02_JPRB,0.35648E+02_JPRB,0.33990E+02_JPRB,0.31215E+02_JPRB,0.34668E+02_JPRB /)  
+KB(:, 2,58,15) = (/ &
+ & 0.41486E+02_JPRB,0.34551E+02_JPRB,0.32786E+02_JPRB,0.30408E+02_JPRB,0.34507E+02_JPRB /)  
+KB(:, 3,58,15) = (/ &
+ & 0.40923E+02_JPRB,0.33481E+02_JPRB,0.31606E+02_JPRB,0.29553E+02_JPRB,0.34175E+02_JPRB /)  
+KB(:, 4,58,15) = (/ &
+ & 0.40193E+02_JPRB,0.32431E+02_JPRB,0.30438E+02_JPRB,0.28657E+02_JPRB,0.33692E+02_JPRB /)  
+KB(:, 5,58,15) = (/ &
+ & 0.39381E+02_JPRB,0.31393E+02_JPRB,0.29263E+02_JPRB,0.27758E+02_JPRB,0.33088E+02_JPRB /)  
+KB(:, 1,59,15) = (/ &
+ & 0.41905E+02_JPRB,0.35780E+02_JPRB,0.34140E+02_JPRB,0.31306E+02_JPRB,0.34668E+02_JPRB /)  
+KB(:, 2,59,15) = (/ &
+ & 0.41541E+02_JPRB,0.34683E+02_JPRB,0.32931E+02_JPRB,0.30509E+02_JPRB,0.34539E+02_JPRB /)  
+KB(:, 3,59,15) = (/ &
+ & 0.41000E+02_JPRB,0.33610E+02_JPRB,0.31751E+02_JPRB,0.29658E+02_JPRB,0.34225E+02_JPRB /)  
+KB(:, 4,59,15) = (/ &
+ & 0.40289E+02_JPRB,0.32559E+02_JPRB,0.30582E+02_JPRB,0.28769E+02_JPRB,0.33760E+02_JPRB /)  
+KB(:, 5,59,15) = (/ &
+ & 0.39484E+02_JPRB,0.31518E+02_JPRB,0.29405E+02_JPRB,0.27867E+02_JPRB,0.33169E+02_JPRB /)  
+KB(:, 1,13,16) = (/ &
+ & 0.44218E+02_JPRB,0.33168E+02_JPRB,0.27605E+02_JPRB,0.40761E+02_JPRB,0.54348E+02_JPRB /)  
+KB(:, 2,13,16) = (/ &
+ & 0.43915E+02_JPRB,0.32941E+02_JPRB,0.26738E+02_JPRB,0.39342E+02_JPRB,0.52457E+02_JPRB /)  
+KB(:, 3,13,16) = (/ &
+ & 0.43491E+02_JPRB,0.32624E+02_JPRB,0.25861E+02_JPRB,0.38022E+02_JPRB,0.50696E+02_JPRB /)  
+KB(:, 4,13,16) = (/ &
+ & 0.42952E+02_JPRB,0.32220E+02_JPRB,0.25010E+02_JPRB,0.36713E+02_JPRB,0.48951E+02_JPRB /)  
+KB(:, 5,13,16) = (/ &
+ & 0.42305E+02_JPRB,0.31735E+02_JPRB,0.24184E+02_JPRB,0.35417E+02_JPRB,0.47222E+02_JPRB /)  
+KB(:, 1,14,16) = (/ &
+ & 0.50640E+02_JPRB,0.37984E+02_JPRB,0.31138E+02_JPRB,0.45571E+02_JPRB,0.60761E+02_JPRB /)  
+KB(:, 2,14,16) = (/ &
+ & 0.50072E+02_JPRB,0.37558E+02_JPRB,0.30053E+02_JPRB,0.43809E+02_JPRB,0.58413E+02_JPRB /)  
+KB(:, 3,14,16) = (/ &
+ & 0.49384E+02_JPRB,0.37043E+02_JPRB,0.28981E+02_JPRB,0.42162E+02_JPRB,0.56216E+02_JPRB /)  
+KB(:, 4,14,16) = (/ &
+ & 0.48531E+02_JPRB,0.36404E+02_JPRB,0.27924E+02_JPRB,0.40555E+02_JPRB,0.54074E+02_JPRB /)  
+KB(:, 5,14,16) = (/ &
+ & 0.47588E+02_JPRB,0.35696E+02_JPRB,0.26896E+02_JPRB,0.38961E+02_JPRB,0.51948E+02_JPRB /)  
+KB(:, 1,15,16) = (/ &
+ & 0.57280E+02_JPRB,0.42964E+02_JPRB,0.34740E+02_JPRB,0.50323E+02_JPRB,0.67098E+02_JPRB /)  
+KB(:, 2,15,16) = (/ &
+ & 0.56367E+02_JPRB,0.42280E+02_JPRB,0.33407E+02_JPRB,0.48191E+02_JPRB,0.64255E+02_JPRB /)  
+KB(:, 3,15,16) = (/ &
+ & 0.55318E+02_JPRB,0.41493E+02_JPRB,0.32092E+02_JPRB,0.46141E+02_JPRB,0.61520E+02_JPRB /)  
+KB(:, 4,15,16) = (/ &
+ & 0.54108E+02_JPRB,0.40586E+02_JPRB,0.30808E+02_JPRB,0.44198E+02_JPRB,0.58930E+02_JPRB /)  
+KB(:, 5,15,16) = (/ &
+ & 0.52826E+02_JPRB,0.39625E+02_JPRB,0.29570E+02_JPRB,0.42303E+02_JPRB,0.56404E+02_JPRB /)  
+KB(:, 1,16,16) = (/ &
+ & 0.63967E+02_JPRB,0.47979E+02_JPRB,0.38312E+02_JPRB,0.54909E+02_JPRB,0.73213E+02_JPRB /)  
+KB(:, 2,16,16) = (/ &
+ & 0.62626E+02_JPRB,0.46973E+02_JPRB,0.36695E+02_JPRB,0.52345E+02_JPRB,0.69794E+02_JPRB /)  
+KB(:, 3,16,16) = (/ &
+ & 0.61112E+02_JPRB,0.45838E+02_JPRB,0.35123E+02_JPRB,0.49904E+02_JPRB,0.66539E+02_JPRB /)  
+KB(:, 4,16,16) = (/ &
+ & 0.59503E+02_JPRB,0.44632E+02_JPRB,0.33592E+02_JPRB,0.47568E+02_JPRB,0.63425E+02_JPRB /)  
+KB(:, 5,16,16) = (/ &
+ & 0.57855E+02_JPRB,0.43396E+02_JPRB,0.32125E+02_JPRB,0.45372E+02_JPRB,0.60497E+02_JPRB /)  
+KB(:, 1,17,16) = (/ &
+ & 0.70540E+02_JPRB,0.52908E+02_JPRB,0.41791E+02_JPRB,0.59184E+02_JPRB,0.78912E+02_JPRB /)  
+KB(:, 2,17,16) = (/ &
+ & 0.68668E+02_JPRB,0.51504E+02_JPRB,0.39850E+02_JPRB,0.56189E+02_JPRB,0.74919E+02_JPRB /)  
+KB(:, 3,17,16) = (/ &
+ & 0.66662E+02_JPRB,0.50000E+02_JPRB,0.37983E+02_JPRB,0.53339E+02_JPRB,0.71119E+02_JPRB /)  
+KB(:, 4,17,16) = (/ &
+ & 0.64633E+02_JPRB,0.48479E+02_JPRB,0.36199E+02_JPRB,0.50655E+02_JPRB,0.67541E+02_JPRB /)  
+KB(:, 5,17,16) = (/ &
+ & 0.62569E+02_JPRB,0.46932E+02_JPRB,0.34500E+02_JPRB,0.48144E+02_JPRB,0.64192E+02_JPRB /)  
+KB(:, 1,18,16) = (/ &
+ & 0.76762E+02_JPRB,0.57574E+02_JPRB,0.45062E+02_JPRB,0.63079E+02_JPRB,0.84105E+02_JPRB /)  
+KB(:, 2,18,16) = (/ &
+ & 0.74320E+02_JPRB,0.55743E+02_JPRB,0.42789E+02_JPRB,0.59653E+02_JPRB,0.79537E+02_JPRB /)  
+KB(:, 3,18,16) = (/ &
+ & 0.71820E+02_JPRB,0.53869E+02_JPRB,0.40630E+02_JPRB,0.56414E+02_JPRB,0.75219E+02_JPRB /)  
+KB(:, 4,18,16) = (/ &
+ & 0.69367E+02_JPRB,0.52029E+02_JPRB,0.38584E+02_JPRB,0.53391E+02_JPRB,0.71188E+02_JPRB /)  
+KB(:, 5,18,16) = (/ &
+ & 0.66895E+02_JPRB,0.50176E+02_JPRB,0.36663E+02_JPRB,0.50596E+02_JPRB,0.67461E+02_JPRB /)  
+KB(:, 1,19,16) = (/ &
+ & 0.82534E+02_JPRB,0.61903E+02_JPRB,0.48066E+02_JPRB,0.66533E+02_JPRB,0.88711E+02_JPRB /)  
+KB(:, 2,19,16) = (/ &
+ & 0.79500E+02_JPRB,0.59627E+02_JPRB,0.45463E+02_JPRB,0.62698E+02_JPRB,0.83597E+02_JPRB /)  
+KB(:, 3,19,16) = (/ &
+ & 0.76531E+02_JPRB,0.57402E+02_JPRB,0.43003E+02_JPRB,0.59107E+02_JPRB,0.78810E+02_JPRB /)  
+KB(:, 4,19,16) = (/ &
+ & 0.73621E+02_JPRB,0.55219E+02_JPRB,0.40714E+02_JPRB,0.55776E+02_JPRB,0.74368E+02_JPRB /)  
+KB(:, 5,19,16) = (/ &
+ & 0.70758E+02_JPRB,0.53072E+02_JPRB,0.38580E+02_JPRB,0.52720E+02_JPRB,0.70294E+02_JPRB /)  
+KB(:, 1,20,16) = (/ &
+ & 0.87685E+02_JPRB,0.65766E+02_JPRB,0.50694E+02_JPRB,0.69445E+02_JPRB,0.92594E+02_JPRB /)  
+KB(:, 2,20,16) = (/ &
+ & 0.84090E+02_JPRB,0.63070E+02_JPRB,0.47778E+02_JPRB,0.65259E+02_JPRB,0.87012E+02_JPRB /)  
+KB(:, 3,20,16) = (/ &
+ & 0.80661E+02_JPRB,0.60499E+02_JPRB,0.45053E+02_JPRB,0.61350E+02_JPRB,0.81800E+02_JPRB /)  
+KB(:, 4,20,16) = (/ &
+ & 0.77340E+02_JPRB,0.58008E+02_JPRB,0.42537E+02_JPRB,0.57756E+02_JPRB,0.77009E+02_JPRB /)  
+KB(:, 5,20,16) = (/ &
+ & 0.74079E+02_JPRB,0.55564E+02_JPRB,0.40201E+02_JPRB,0.54475E+02_JPRB,0.72633E+02_JPRB /)  
+KB(:, 1,21,16) = (/ &
+ & 0.92165E+02_JPRB,0.69126E+02_JPRB,0.52960E+02_JPRB,0.71872E+02_JPRB,0.95829E+02_JPRB /)  
+KB(:, 2,21,16) = (/ &
+ & 0.88084E+02_JPRB,0.66065E+02_JPRB,0.49750E+02_JPRB,0.67363E+02_JPRB,0.89818E+02_JPRB /)  
+KB(:, 3,21,16) = (/ &
+ & 0.84210E+02_JPRB,0.63159E+02_JPRB,0.46796E+02_JPRB,0.63194E+02_JPRB,0.84259E+02_JPRB /)  
+KB(:, 4,21,16) = (/ &
+ & 0.80508E+02_JPRB,0.60384E+02_JPRB,0.44071E+02_JPRB,0.59388E+02_JPRB,0.79185E+02_JPRB /)  
+KB(:, 5,21,16) = (/ &
+ & 0.76889E+02_JPRB,0.57670E+02_JPRB,0.41555E+02_JPRB,0.55904E+02_JPRB,0.74538E+02_JPRB /)  
+KB(:, 1,22,16) = (/ &
+ & 0.95696E+02_JPRB,0.71774E+02_JPRB,0.54631E+02_JPRB,0.73526E+02_JPRB,0.98034E+02_JPRB /)  
+KB(:, 2,22,16) = (/ &
+ & 0.91190E+02_JPRB,0.68395E+02_JPRB,0.51188E+02_JPRB,0.68768E+02_JPRB,0.91690E+02_JPRB /)  
+KB(:, 3,22,16) = (/ &
+ & 0.86939E+02_JPRB,0.65206E+02_JPRB,0.48040E+02_JPRB,0.64409E+02_JPRB,0.85879E+02_JPRB /)  
+KB(:, 4,22,16) = (/ &
+ & 0.82890E+02_JPRB,0.62171E+02_JPRB,0.45151E+02_JPRB,0.60441E+02_JPRB,0.80589E+02_JPRB /)  
+KB(:, 5,22,16) = (/ &
+ & 0.78983E+02_JPRB,0.59241E+02_JPRB,0.42494E+02_JPRB,0.56811E+02_JPRB,0.75748E+02_JPRB /)  
+KB(:, 1,23,16) = (/ &
+ & 0.98505E+02_JPRB,0.73881E+02_JPRB,0.55897E+02_JPRB,0.74690E+02_JPRB,0.99587E+02_JPRB /)  
+KB(:, 2,23,16) = (/ &
+ & 0.93651E+02_JPRB,0.70240E+02_JPRB,0.52277E+02_JPRB,0.69755E+02_JPRB,0.93007E+02_JPRB /)  
+KB(:, 3,23,16) = (/ &
+ & 0.89065E+02_JPRB,0.66801E+02_JPRB,0.48963E+02_JPRB,0.65256E+02_JPRB,0.87008E+02_JPRB /)  
+KB(:, 4,23,16) = (/ &
+ & 0.84725E+02_JPRB,0.63546E+02_JPRB,0.45949E+02_JPRB,0.61155E+02_JPRB,0.81540E+02_JPRB /)  
+KB(:, 5,23,16) = (/ &
+ & 0.80582E+02_JPRB,0.60440E+02_JPRB,0.43182E+02_JPRB,0.57417E+02_JPRB,0.76556E+02_JPRB /)  
+KB(:, 1,24,16) = (/ &
+ & 0.10064E+03_JPRB,0.75484E+02_JPRB,0.56783E+02_JPRB,0.75422E+02_JPRB,0.10056E+03_JPRB /)  
+KB(:, 2,24,16) = (/ &
+ & 0.95486E+02_JPRB,0.71616E+02_JPRB,0.53021E+02_JPRB,0.70355E+02_JPRB,0.93807E+02_JPRB /)  
+KB(:, 3,24,16) = (/ &
+ & 0.90630E+02_JPRB,0.67975E+02_JPRB,0.49592E+02_JPRB,0.65751E+02_JPRB,0.87668E+02_JPRB /)  
+KB(:, 4,24,16) = (/ &
+ & 0.86059E+02_JPRB,0.64548E+02_JPRB,0.46483E+02_JPRB,0.61565E+02_JPRB,0.82086E+02_JPRB /)  
+KB(:, 5,24,16) = (/ &
+ & 0.81718E+02_JPRB,0.61292E+02_JPRB,0.43631E+02_JPRB,0.57753E+02_JPRB,0.77003E+02_JPRB /)  
+KB(:, 1,25,16) = (/ &
+ & 0.10215E+03_JPRB,0.76618E+02_JPRB,0.57324E+02_JPRB,0.75759E+02_JPRB,0.10101E+03_JPRB /)  
+KB(:, 2,25,16) = (/ &
+ & 0.96743E+02_JPRB,0.72560E+02_JPRB,0.53446E+02_JPRB,0.70607E+02_JPRB,0.94143E+02_JPRB /)  
+KB(:, 3,25,16) = (/ &
+ & 0.91681E+02_JPRB,0.68763E+02_JPRB,0.49955E+02_JPRB,0.65940E+02_JPRB,0.87921E+02_JPRB /)  
+KB(:, 4,25,16) = (/ &
+ & 0.86919E+02_JPRB,0.65192E+02_JPRB,0.46773E+02_JPRB,0.61703E+02_JPRB,0.82270E+02_JPRB /)  
+KB(:, 5,25,16) = (/ &
+ & 0.82440E+02_JPRB,0.61834E+02_JPRB,0.43873E+02_JPRB,0.57842E+02_JPRB,0.77123E+02_JPRB /)  
+KB(:, 1,26,16) = (/ &
+ & 0.10303E+03_JPRB,0.77274E+02_JPRB,0.57519E+02_JPRB,0.75701E+02_JPRB,0.10093E+03_JPRB /)  
+KB(:, 2,26,16) = (/ &
+ & 0.97444E+02_JPRB,0.73085E+02_JPRB,0.53575E+02_JPRB,0.70525E+02_JPRB,0.94033E+02_JPRB /)  
+KB(:, 3,26,16) = (/ &
+ & 0.92222E+02_JPRB,0.69170E+02_JPRB,0.50048E+02_JPRB,0.65828E+02_JPRB,0.87771E+02_JPRB /)  
+KB(:, 4,26,16) = (/ &
+ & 0.87336E+02_JPRB,0.65505E+02_JPRB,0.46824E+02_JPRB,0.61566E+02_JPRB,0.82088E+02_JPRB /)  
+KB(:, 5,26,16) = (/ &
+ & 0.82771E+02_JPRB,0.62082E+02_JPRB,0.43909E+02_JPRB,0.57710E+02_JPRB,0.76947E+02_JPRB /)  
+KB(:, 1,27,16) = (/ &
+ & 0.10345E+03_JPRB,0.77590E+02_JPRB,0.57467E+02_JPRB,0.75392E+02_JPRB,0.10052E+03_JPRB /)  
+KB(:, 2,27,16) = (/ &
+ & 0.97739E+02_JPRB,0.73306E+02_JPRB,0.53511E+02_JPRB,0.70214E+02_JPRB,0.93619E+02_JPRB /)  
+KB(:, 3,27,16) = (/ &
+ & 0.92406E+02_JPRB,0.69307E+02_JPRB,0.49956E+02_JPRB,0.65525E+02_JPRB,0.87366E+02_JPRB /)  
+KB(:, 4,27,16) = (/ &
+ & 0.87439E+02_JPRB,0.65583E+02_JPRB,0.46715E+02_JPRB,0.61255E+02_JPRB,0.81674E+02_JPRB /)  
+KB(:, 5,27,16) = (/ &
+ & 0.82826E+02_JPRB,0.62123E+02_JPRB,0.43807E+02_JPRB,0.57432E+02_JPRB,0.76576E+02_JPRB /)  
+KB(:, 1,28,16) = (/ &
+ & 0.10350E+03_JPRB,0.77625E+02_JPRB,0.57222E+02_JPRB,0.74881E+02_JPRB,0.99841E+02_JPRB /)  
+KB(:, 2,28,16) = (/ &
+ & 0.97691E+02_JPRB,0.73271E+02_JPRB,0.53275E+02_JPRB,0.69730E+02_JPRB,0.92974E+02_JPRB /)  
+KB(:, 3,28,16) = (/ &
+ & 0.92289E+02_JPRB,0.69219E+02_JPRB,0.49719E+02_JPRB,0.65057E+02_JPRB,0.86743E+02_JPRB /)  
+KB(:, 4,28,16) = (/ &
+ & 0.87284E+02_JPRB,0.65466E+02_JPRB,0.46485E+02_JPRB,0.60817E+02_JPRB,0.81090E+02_JPRB /)  
+KB(:, 5,28,16) = (/ &
+ & 0.82640E+02_JPRB,0.61984E+02_JPRB,0.43588E+02_JPRB,0.57042E+02_JPRB,0.76055E+02_JPRB /)  
+KB(:, 1,29,16) = (/ &
+ & 0.10319E+03_JPRB,0.77394E+02_JPRB,0.56799E+02_JPRB,0.74179E+02_JPRB,0.98906E+02_JPRB /)  
+KB(:, 2,29,16) = (/ &
+ & 0.97340E+02_JPRB,0.73008E+02_JPRB,0.52885E+02_JPRB,0.69064E+02_JPRB,0.92086E+02_JPRB /)  
+KB(:, 3,29,16) = (/ &
+ & 0.91909E+02_JPRB,0.68935E+02_JPRB,0.49342E+02_JPRB,0.64439E+02_JPRB,0.85918E+02_JPRB /)  
+KB(:, 4,29,16) = (/ &
+ & 0.86890E+02_JPRB,0.65171E+02_JPRB,0.46144E+02_JPRB,0.60253E+02_JPRB,0.80337E+02_JPRB /)  
+KB(:, 5,29,16) = (/ &
+ & 0.82249E+02_JPRB,0.61690E+02_JPRB,0.43266E+02_JPRB,0.56539E+02_JPRB,0.75385E+02_JPRB /)  
+KB(:, 1,30,16) = (/ &
+ & 0.10264E+03_JPRB,0.76981E+02_JPRB,0.56267E+02_JPRB,0.73352E+02_JPRB,0.97803E+02_JPRB /)  
+KB(:, 2,30,16) = (/ &
+ & 0.96761E+02_JPRB,0.72573E+02_JPRB,0.52390E+02_JPRB,0.68302E+02_JPRB,0.91070E+02_JPRB /)  
+KB(:, 3,30,16) = (/ &
+ & 0.91349E+02_JPRB,0.68515E+02_JPRB,0.48877E+02_JPRB,0.63734E+02_JPRB,0.84978E+02_JPRB /)  
+KB(:, 4,30,16) = (/ &
+ & 0.86346E+02_JPRB,0.64763E+02_JPRB,0.45722E+02_JPRB,0.59615E+02_JPRB,0.79487E+02_JPRB /)  
+KB(:, 5,30,16) = (/ &
+ & 0.81701E+02_JPRB,0.61280E+02_JPRB,0.42874E+02_JPRB,0.55973E+02_JPRB,0.74631E+02_JPRB /)  
+KB(:, 1,31,16) = (/ &
+ & 0.10185E+03_JPRB,0.76389E+02_JPRB,0.55624E+02_JPRB,0.72410E+02_JPRB,0.96547E+02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART36',1,ZHOOK_HANDLE)
+END SUBROUTINE PART36
+
+
+SUBROUTINE PART37
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART37',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,31,16) = (/ &
+ & 0.95999E+02_JPRB,0.72002E+02_JPRB,0.51796E+02_JPRB,0.67443E+02_JPRB,0.89924E+02_JPRB /)  
+KB(:, 3,31,16) = (/ &
+ & 0.90614E+02_JPRB,0.67963E+02_JPRB,0.48327E+02_JPRB,0.62938E+02_JPRB,0.83917E+02_JPRB /)  
+KB(:, 4,31,16) = (/ &
+ & 0.85645E+02_JPRB,0.64237E+02_JPRB,0.45228E+02_JPRB,0.58906E+02_JPRB,0.78542E+02_JPRB /)  
+KB(:, 5,31,16) = (/ &
+ & 0.81007E+02_JPRB,0.60759E+02_JPRB,0.42414E+02_JPRB,0.55328E+02_JPRB,0.73771E+02_JPRB /)  
+KB(:, 1,32,16) = (/ &
+ & 0.10089E+03_JPRB,0.75672E+02_JPRB,0.54904E+02_JPRB,0.71387E+02_JPRB,0.95183E+02_JPRB /)  
+KB(:, 2,32,16) = (/ &
+ & 0.95077E+02_JPRB,0.71310E+02_JPRB,0.51129E+02_JPRB,0.66501E+02_JPRB,0.88668E+02_JPRB /)  
+KB(:, 3,32,16) = (/ &
+ & 0.89743E+02_JPRB,0.67310E+02_JPRB,0.47720E+02_JPRB,0.62089E+02_JPRB,0.82785E+02_JPRB /)  
+KB(:, 4,32,16) = (/ &
+ & 0.84830E+02_JPRB,0.63626E+02_JPRB,0.44676E+02_JPRB,0.58147E+02_JPRB,0.77529E+02_JPRB /)  
+KB(:, 5,32,16) = (/ &
+ & 0.80208E+02_JPRB,0.60160E+02_JPRB,0.41909E+02_JPRB,0.54638E+02_JPRB,0.72851E+02_JPRB /)  
+KB(:, 1,33,16) = (/ &
+ & 0.99806E+02_JPRB,0.74857E+02_JPRB,0.54124E+02_JPRB,0.70307E+02_JPRB,0.93742E+02_JPRB /)  
+KB(:, 2,33,16) = (/ &
+ & 0.94060E+02_JPRB,0.70548E+02_JPRB,0.50418E+02_JPRB,0.65525E+02_JPRB,0.87366E+02_JPRB /)  
+KB(:, 3,33,16) = (/ &
+ & 0.88780E+02_JPRB,0.66588E+02_JPRB,0.47080E+02_JPRB,0.61195E+02_JPRB,0.81594E+02_JPRB /)  
+KB(:, 4,33,16) = (/ &
+ & 0.83926E+02_JPRB,0.62948E+02_JPRB,0.44091E+02_JPRB,0.57369E+02_JPRB,0.76493E+02_JPRB /)  
+KB(:, 5,33,16) = (/ &
+ & 0.79342E+02_JPRB,0.59511E+02_JPRB,0.41372E+02_JPRB,0.53910E+02_JPRB,0.71880E+02_JPRB /)  
+KB(:, 1,34,16) = (/ &
+ & 0.98842E+02_JPRB,0.74134E+02_JPRB,0.53446E+02_JPRB,0.69373E+02_JPRB,0.92498E+02_JPRB /)  
+KB(:, 2,34,16) = (/ &
+ & 0.93169E+02_JPRB,0.69879E+02_JPRB,0.49796E+02_JPRB,0.64672E+02_JPRB,0.86229E+02_JPRB /)  
+KB(:, 3,34,16) = (/ &
+ & 0.87940E+02_JPRB,0.65958E+02_JPRB,0.46525E+02_JPRB,0.60437E+02_JPRB,0.80583E+02_JPRB /)  
+KB(:, 4,34,16) = (/ &
+ & 0.83124E+02_JPRB,0.62347E+02_JPRB,0.43581E+02_JPRB,0.56689E+02_JPRB,0.75585E+02_JPRB /)  
+KB(:, 5,34,16) = (/ &
+ & 0.78566E+02_JPRB,0.58929E+02_JPRB,0.40900E+02_JPRB,0.53287E+02_JPRB,0.71049E+02_JPRB /)  
+KB(:, 1,35,16) = (/ &
+ & 0.98383E+02_JPRB,0.73790E+02_JPRB,0.53104E+02_JPRB,0.68893E+02_JPRB,0.91857E+02_JPRB /)  
+KB(:, 2,35,16) = (/ &
+ & 0.92731E+02_JPRB,0.69551E+02_JPRB,0.49484E+02_JPRB,0.64233E+02_JPRB,0.85643E+02_JPRB /)  
+KB(:, 3,35,16) = (/ &
+ & 0.87537E+02_JPRB,0.65656E+02_JPRB,0.46247E+02_JPRB,0.60050E+02_JPRB,0.80067E+02_JPRB /)  
+KB(:, 4,35,16) = (/ &
+ & 0.82730E+02_JPRB,0.62051E+02_JPRB,0.43325E+02_JPRB,0.56336E+02_JPRB,0.75115E+02_JPRB /)  
+KB(:, 5,35,16) = (/ &
+ & 0.78184E+02_JPRB,0.58642E+02_JPRB,0.40664E+02_JPRB,0.52959E+02_JPRB,0.70611E+02_JPRB /)  
+KB(:, 1,36,16) = (/ &
+ & 0.98510E+02_JPRB,0.73885E+02_JPRB,0.53153E+02_JPRB,0.68921E+02_JPRB,0.91895E+02_JPRB /)  
+KB(:, 2,36,16) = (/ &
+ & 0.92845E+02_JPRB,0.69637E+02_JPRB,0.49525E+02_JPRB,0.64248E+02_JPRB,0.85664E+02_JPRB /)  
+KB(:, 3,36,16) = (/ &
+ & 0.87626E+02_JPRB,0.65723E+02_JPRB,0.46281E+02_JPRB,0.60067E+02_JPRB,0.80090E+02_JPRB /)  
+KB(:, 4,36,16) = (/ &
+ & 0.82805E+02_JPRB,0.62108E+02_JPRB,0.43352E+02_JPRB,0.56351E+02_JPRB,0.75135E+02_JPRB /)  
+KB(:, 5,36,16) = (/ &
+ & 0.78246E+02_JPRB,0.58689E+02_JPRB,0.40687E+02_JPRB,0.52970E+02_JPRB,0.70627E+02_JPRB /)  
+KB(:, 1,37,16) = (/ &
+ & 0.99499E+02_JPRB,0.74626E+02_JPRB,0.53765E+02_JPRB,0.69681E+02_JPRB,0.92907E+02_JPRB /)  
+KB(:, 2,37,16) = (/ &
+ & 0.93737E+02_JPRB,0.70305E+02_JPRB,0.50072E+02_JPRB,0.64938E+02_JPRB,0.86584E+02_JPRB /)  
+KB(:, 3,37,16) = (/ &
+ & 0.88443E+02_JPRB,0.66336E+02_JPRB,0.46765E+02_JPRB,0.60669E+02_JPRB,0.80892E+02_JPRB /)  
+KB(:, 4,37,16) = (/ &
+ & 0.83569E+02_JPRB,0.62680E+02_JPRB,0.43792E+02_JPRB,0.56887E+02_JPRB,0.75849E+02_JPRB /)  
+KB(:, 5,37,16) = (/ &
+ & 0.78959E+02_JPRB,0.59223E+02_JPRB,0.41087E+02_JPRB,0.53464E+02_JPRB,0.71286E+02_JPRB /)  
+KB(:, 1,38,16) = (/ &
+ & 0.10053E+03_JPRB,0.75401E+02_JPRB,0.54401E+02_JPRB,0.70469E+02_JPRB,0.93958E+02_JPRB /)  
+KB(:, 2,38,16) = (/ &
+ & 0.94665E+02_JPRB,0.71001E+02_JPRB,0.50643E+02_JPRB,0.65651E+02_JPRB,0.87535E+02_JPRB /)  
+KB(:, 3,38,16) = (/ &
+ & 0.89287E+02_JPRB,0.66968E+02_JPRB,0.47272E+02_JPRB,0.61298E+02_JPRB,0.81730E+02_JPRB /)  
+KB(:, 4,38,16) = (/ &
+ & 0.84354E+02_JPRB,0.63269E+02_JPRB,0.44250E+02_JPRB,0.57455E+02_JPRB,0.76607E+02_JPRB /)  
+KB(:, 5,38,16) = (/ &
+ & 0.79688E+02_JPRB,0.59770E+02_JPRB,0.41502E+02_JPRB,0.53978E+02_JPRB,0.71970E+02_JPRB /)  
+KB(:, 1,39,16) = (/ &
+ & 0.10152E+03_JPRB,0.76145E+02_JPRB,0.55030E+02_JPRB,0.71266E+02_JPRB,0.95022E+02_JPRB /)  
+KB(:, 2,39,16) = (/ &
+ & 0.95574E+02_JPRB,0.71683E+02_JPRB,0.51208E+02_JPRB,0.66359E+02_JPRB,0.88479E+02_JPRB /)  
+KB(:, 3,39,16) = (/ &
+ & 0.90127E+02_JPRB,0.67598E+02_JPRB,0.47776E+02_JPRB,0.61934E+02_JPRB,0.82579E+02_JPRB /)  
+KB(:, 4,39,16) = (/ &
+ & 0.85122E+02_JPRB,0.63845E+02_JPRB,0.44704E+02_JPRB,0.58015E+02_JPRB,0.77353E+02_JPRB /)  
+KB(:, 5,39,16) = (/ &
+ & 0.80410E+02_JPRB,0.60311E+02_JPRB,0.41916E+02_JPRB,0.54486E+02_JPRB,0.72649E+02_JPRB /)  
+KB(:, 1,40,16) = (/ &
+ & 0.10316E+03_JPRB,0.77371E+02_JPRB,0.56077E+02_JPRB,0.72600E+02_JPRB,0.96800E+02_JPRB /)  
+KB(:, 2,40,16) = (/ &
+ & 0.97060E+02_JPRB,0.72797E+02_JPRB,0.52149E+02_JPRB,0.67558E+02_JPRB,0.90077E+02_JPRB /)  
+KB(:, 3,40,16) = (/ &
+ & 0.91509E+02_JPRB,0.68635E+02_JPRB,0.48618E+02_JPRB,0.63010E+02_JPRB,0.84013E+02_JPRB /)  
+KB(:, 4,40,16) = (/ &
+ & 0.86384E+02_JPRB,0.64791E+02_JPRB,0.45460E+02_JPRB,0.58959E+02_JPRB,0.78612E+02_JPRB /)  
+KB(:, 5,40,16) = (/ &
+ & 0.81600E+02_JPRB,0.61204E+02_JPRB,0.42605E+02_JPRB,0.55349E+02_JPRB,0.73798E+02_JPRB /)  
+KB(:, 1,41,16) = (/ &
+ & 0.10490E+03_JPRB,0.78677E+02_JPRB,0.57202E+02_JPRB,0.74030E+02_JPRB,0.98707E+02_JPRB /)  
+KB(:, 2,41,16) = (/ &
+ & 0.98655E+02_JPRB,0.73994E+02_JPRB,0.53155E+02_JPRB,0.68836E+02_JPRB,0.91782E+02_JPRB /)  
+KB(:, 3,41,16) = (/ &
+ & 0.92964E+02_JPRB,0.69726E+02_JPRB,0.49517E+02_JPRB,0.64156E+02_JPRB,0.85541E+02_JPRB /)  
+KB(:, 4,41,16) = (/ &
+ & 0.87720E+02_JPRB,0.65793E+02_JPRB,0.46275E+02_JPRB,0.59984E+02_JPRB,0.79978E+02_JPRB /)  
+KB(:, 5,41,16) = (/ &
+ & 0.82858E+02_JPRB,0.62147E+02_JPRB,0.43340E+02_JPRB,0.56275E+02_JPRB,0.75033E+02_JPRB /)  
+KB(:, 1,42,16) = (/ &
+ & 0.10666E+03_JPRB,0.79997E+02_JPRB,0.58340E+02_JPRB,0.75485E+02_JPRB,0.10065E+03_JPRB /)  
+KB(:, 2,42,16) = (/ &
+ & 0.10028E+03_JPRB,0.75211E+02_JPRB,0.54189E+02_JPRB,0.70153E+02_JPRB,0.93537E+02_JPRB /)  
+KB(:, 3,42,16) = (/ &
+ & 0.94432E+02_JPRB,0.70827E+02_JPRB,0.50443E+02_JPRB,0.65340E+02_JPRB,0.87121E+02_JPRB /)  
+KB(:, 4,42,16) = (/ &
+ & 0.89075E+02_JPRB,0.66809E+02_JPRB,0.47102E+02_JPRB,0.61032E+02_JPRB,0.81376E+02_JPRB /)  
+KB(:, 5,42,16) = (/ &
+ & 0.84125E+02_JPRB,0.63097E+02_JPRB,0.44086E+02_JPRB,0.57211E+02_JPRB,0.76281E+02_JPRB /)  
+KB(:, 1,43,16) = (/ &
+ & 0.10883E+03_JPRB,0.81624E+02_JPRB,0.59771E+02_JPRB,0.77309E+02_JPRB,0.10308E+03_JPRB /)  
+KB(:, 2,43,16) = (/ &
+ & 0.10228E+03_JPRB,0.76711E+02_JPRB,0.55476E+02_JPRB,0.71797E+02_JPRB,0.95729E+02_JPRB /)  
+KB(:, 3,43,16) = (/ &
+ & 0.96257E+02_JPRB,0.72196E+02_JPRB,0.51599E+02_JPRB,0.66824E+02_JPRB,0.89098E+02_JPRB /)  
+KB(:, 4,43,16) = (/ &
+ & 0.90745E+02_JPRB,0.68062E+02_JPRB,0.48126E+02_JPRB,0.62350E+02_JPRB,0.83134E+02_JPRB /)  
+KB(:, 5,43,16) = (/ &
+ & 0.85682E+02_JPRB,0.64265E+02_JPRB,0.45017E+02_JPRB,0.58380E+02_JPRB,0.77840E+02_JPRB /)  
+KB(:, 1,44,16) = (/ &
+ & 0.11122E+03_JPRB,0.83416E+02_JPRB,0.61378E+02_JPRB,0.79350E+02_JPRB,0.10580E+03_JPRB /)  
+KB(:, 2,44,16) = (/ &
+ & 0.10448E+03_JPRB,0.78362E+02_JPRB,0.56905E+02_JPRB,0.73629E+02_JPRB,0.98171E+02_JPRB /)  
+KB(:, 3,44,16) = (/ &
+ & 0.98280E+02_JPRB,0.73712E+02_JPRB,0.52886E+02_JPRB,0.68474E+02_JPRB,0.91299E+02_JPRB /)  
+KB(:, 4,44,16) = (/ &
+ & 0.92614E+02_JPRB,0.69464E+02_JPRB,0.49277E+02_JPRB,0.63819E+02_JPRB,0.85092E+02_JPRB /)  
+KB(:, 5,44,16) = (/ &
+ & 0.87390E+02_JPRB,0.65546E+02_JPRB,0.46054E+02_JPRB,0.59688E+02_JPRB,0.79585E+02_JPRB /)  
+KB(:, 1,45,16) = (/ &
+ & 0.11367E+03_JPRB,0.85251E+02_JPRB,0.63043E+02_JPRB,0.81458E+02_JPRB,0.10861E+03_JPRB /)  
+KB(:, 2,45,16) = (/ &
+ & 0.10674E+03_JPRB,0.80056E+02_JPRB,0.58377E+02_JPRB,0.75516E+02_JPRB,0.10069E+03_JPRB /)  
+KB(:, 3,45,16) = (/ &
+ & 0.10036E+03_JPRB,0.75271E+02_JPRB,0.54217E+02_JPRB,0.70172E+02_JPRB,0.93562E+02_JPRB /)  
+KB(:, 4,45,16) = (/ &
+ & 0.94507E+02_JPRB,0.70883E+02_JPRB,0.50472E+02_JPRB,0.65352E+02_JPRB,0.87137E+02_JPRB /)  
+KB(:, 5,45,16) = (/ &
+ & 0.89124E+02_JPRB,0.66846E+02_JPRB,0.47119E+02_JPRB,0.61044E+02_JPRB,0.81393E+02_JPRB /)  
+KB(:, 1,46,16) = (/ &
+ & 0.11634E+03_JPRB,0.87256E+02_JPRB,0.64886E+02_JPRB,0.83772E+02_JPRB,0.11170E+03_JPRB /)  
+KB(:, 2,46,16) = (/ &
+ & 0.10921E+03_JPRB,0.81909E+02_JPRB,0.60009E+02_JPRB,0.77600E+02_JPRB,0.10347E+03_JPRB /)  
+KB(:, 3,46,16) = (/ &
+ & 0.10262E+03_JPRB,0.76969E+02_JPRB,0.55682E+02_JPRB,0.72046E+02_JPRB,0.96062E+02_JPRB /)  
+KB(:, 4,46,16) = (/ &
+ & 0.96578E+02_JPRB,0.72436E+02_JPRB,0.51790E+02_JPRB,0.67050E+02_JPRB,0.89399E+02_JPRB /)  
+KB(:, 5,46,16) = (/ &
+ & 0.91036E+02_JPRB,0.68280E+02_JPRB,0.48293E+02_JPRB,0.62556E+02_JPRB,0.83408E+02_JPRB /)  
+KB(:, 1,47,16) = (/ &
+ & 0.11944E+03_JPRB,0.89580E+02_JPRB,0.67039E+02_JPRB,0.86470E+02_JPRB,0.11529E+03_JPRB /)  
+KB(:, 2,47,16) = (/ &
+ & 0.11203E+03_JPRB,0.84025E+02_JPRB,0.61916E+02_JPRB,0.80032E+02_JPRB,0.10671E+03_JPRB /)  
+KB(:, 3,47,16) = (/ &
+ & 0.10523E+03_JPRB,0.78928E+02_JPRB,0.57378E+02_JPRB,0.74229E+02_JPRB,0.98972E+02_JPRB /)  
+KB(:, 4,47,16) = (/ &
+ & 0.98975E+02_JPRB,0.74234E+02_JPRB,0.53317E+02_JPRB,0.69003E+02_JPRB,0.92005E+02_JPRB /)  
+KB(:, 5,47,16) = (/ &
+ & 0.93247E+02_JPRB,0.69938E+02_JPRB,0.49666E+02_JPRB,0.64309E+02_JPRB,0.85745E+02_JPRB /)  
+KB(:, 1,48,16) = (/ &
+ & 0.12267E+03_JPRB,0.92006E+02_JPRB,0.69290E+02_JPRB,0.89280E+02_JPRB,0.11904E+03_JPRB /)  
+KB(:, 2,48,16) = (/ &
+ & 0.11495E+03_JPRB,0.86215E+02_JPRB,0.63917E+02_JPRB,0.82556E+02_JPRB,0.11008E+03_JPRB /)  
+KB(:, 3,48,16) = (/ &
+ & 0.10793E+03_JPRB,0.80951E+02_JPRB,0.59146E+02_JPRB,0.76493E+02_JPRB,0.10199E+03_JPRB /)  
+KB(:, 4,48,16) = (/ &
+ & 0.10147E+03_JPRB,0.76101E+02_JPRB,0.54918E+02_JPRB,0.71050E+02_JPRB,0.94733E+02_JPRB /)  
+KB(:, 5,48,16) = (/ &
+ & 0.95498E+02_JPRB,0.71626E+02_JPRB,0.51095E+02_JPRB,0.66155E+02_JPRB,0.88207E+02_JPRB /)  
+KB(:, 1,49,16) = (/ &
+ & 0.12603E+03_JPRB,0.94521E+02_JPRB,0.71680E+02_JPRB,0.92236E+02_JPRB,0.12298E+03_JPRB /)  
+KB(:, 2,49,16) = (/ &
+ & 0.11801E+03_JPRB,0.88509E+02_JPRB,0.66027E+02_JPRB,0.85192E+02_JPRB,0.11359E+03_JPRB /)  
+KB(:, 3,49,16) = (/ &
+ & 0.11070E+03_JPRB,0.83029E+02_JPRB,0.61003E+02_JPRB,0.78868E+02_JPRB,0.10516E+03_JPRB /)  
+KB(:, 4,49,16) = (/ &
+ & 0.10402E+03_JPRB,0.78016E+02_JPRB,0.56578E+02_JPRB,0.73185E+02_JPRB,0.97580E+02_JPRB /)  
+KB(:, 5,49,16) = (/ &
+ & 0.97847E+02_JPRB,0.73387E+02_JPRB,0.52593E+02_JPRB,0.68075E+02_JPRB,0.90767E+02_JPRB /)  
+KB(:, 1,50,16) = (/ &
+ & 0.12933E+03_JPRB,0.96996E+02_JPRB,0.74078E+02_JPRB,0.95132E+02_JPRB,0.12684E+03_JPRB /)  
+KB(:, 2,50,16) = (/ &
+ & 0.12097E+03_JPRB,0.90726E+02_JPRB,0.68085E+02_JPRB,0.87768E+02_JPRB,0.11702E+03_JPRB /)  
+KB(:, 3,50,16) = (/ &
+ & 0.11343E+03_JPRB,0.85073E+02_JPRB,0.62849E+02_JPRB,0.81185E+02_JPRB,0.10825E+03_JPRB /)  
+KB(:, 4,50,16) = (/ &
+ & 0.10650E+03_JPRB,0.79879E+02_JPRB,0.58193E+02_JPRB,0.75257E+02_JPRB,0.10034E+03_JPRB /)  
+KB(:, 5,50,16) = (/ &
+ & 0.10012E+03_JPRB,0.75094E+02_JPRB,0.54050E+02_JPRB,0.69940E+02_JPRB,0.93253E+02_JPRB /)  
+KB(:, 1,51,16) = (/ &
+ & 0.13262E+03_JPRB,0.99463E+02_JPRB,0.76537E+02_JPRB,0.98089E+02_JPRB,0.13079E+03_JPRB /)  
+KB(:, 2,51,16) = (/ &
+ & 0.12396E+03_JPRB,0.92972E+02_JPRB,0.70180E+02_JPRB,0.90371E+02_JPRB,0.12049E+03_JPRB /)  
+KB(:, 3,51,16) = (/ &
+ & 0.11611E+03_JPRB,0.87085E+02_JPRB,0.64700E+02_JPRB,0.83525E+02_JPRB,0.11137E+03_JPRB /)  
+KB(:, 4,51,16) = (/ &
+ & 0.10897E+03_JPRB,0.81728E+02_JPRB,0.59829E+02_JPRB,0.77356E+02_JPRB,0.10314E+03_JPRB /)  
+KB(:, 5,51,16) = (/ &
+ & 0.10241E+03_JPRB,0.76807E+02_JPRB,0.55526E+02_JPRB,0.71828E+02_JPRB,0.95771E+02_JPRB /)  
+KB(:, 1,52,16) = (/ &
+ & 0.13607E+03_JPRB,0.10205E+03_JPRB,0.79117E+02_JPRB,0.10117E+03_JPRB,0.13489E+03_JPRB /)  
+KB(:, 2,52,16) = (/ &
+ & 0.12703E+03_JPRB,0.95276E+02_JPRB,0.72382E+02_JPRB,0.93082E+02_JPRB,0.12411E+03_JPRB /)  
+KB(:, 3,52,16) = (/ &
+ & 0.11888E+03_JPRB,0.89162E+02_JPRB,0.66631E+02_JPRB,0.85943E+02_JPRB,0.11459E+03_JPRB /)  
+KB(:, 4,52,16) = (/ &
+ & 0.11155E+03_JPRB,0.83666E+02_JPRB,0.61557E+02_JPRB,0.79542E+02_JPRB,0.10606E+03_JPRB /)  
+KB(:, 5,52,16) = (/ &
+ & 0.10475E+03_JPRB,0.78563E+02_JPRB,0.57053E+02_JPRB,0.73794E+02_JPRB,0.98392E+02_JPRB /)  
+KB(:, 1,53,16) = (/ &
+ & 0.13969E+03_JPRB,0.10477E+03_JPRB,0.81852E+02_JPRB,0.10445E+03_JPRB,0.13926E+03_JPRB /)  
+KB(:, 2,53,16) = (/ &
+ & 0.13021E+03_JPRB,0.97660E+02_JPRB,0.74731E+02_JPRB,0.95923E+02_JPRB,0.12790E+03_JPRB /)  
+KB(:, 3,53,16) = (/ &
+ & 0.12178E+03_JPRB,0.91333E+02_JPRB,0.68644E+02_JPRB,0.88461E+02_JPRB,0.11795E+03_JPRB /)  
+KB(:, 4,53,16) = (/ &
+ & 0.11417E+03_JPRB,0.85628E+02_JPRB,0.63346E+02_JPRB,0.81812E+02_JPRB,0.10908E+03_JPRB /)  
+KB(:, 5,53,16) = (/ &
+ & 0.10716E+03_JPRB,0.80376E+02_JPRB,0.58630E+02_JPRB,0.75816E+02_JPRB,0.10109E+03_JPRB /)  
+KB(:, 1,54,16) = (/ &
+ & 0.14312E+03_JPRB,0.10734E+03_JPRB,0.84505E+02_JPRB,0.10757E+03_JPRB,0.14343E+03_JPRB /)  
+KB(:, 2,54,16) = (/ &
+ & 0.13326E+03_JPRB,0.99943E+02_JPRB,0.77008E+02_JPRB,0.98653E+02_JPRB,0.13154E+03_JPRB /)  
+KB(:, 3,54,16) = (/ &
+ & 0.12453E+03_JPRB,0.93400E+02_JPRB,0.70583E+02_JPRB,0.90867E+02_JPRB,0.12116E+03_JPRB /)  
+KB(:, 4,54,16) = (/ &
+ & 0.11663E+03_JPRB,0.87472E+02_JPRB,0.65055E+02_JPRB,0.83971E+02_JPRB,0.11196E+03_JPRB /)  
+KB(:, 5,54,16) = (/ &
+ & 0.10944E+03_JPRB,0.82085E+02_JPRB,0.60143E+02_JPRB,0.77761E+02_JPRB,0.10368E+03_JPRB /)  
+KB(:, 1,55,16) = (/ &
+ & 0.14652E+03_JPRB,0.10989E+03_JPRB,0.87185E+02_JPRB,0.11072E+03_JPRB,0.14762E+03_JPRB /)  
+KB(:, 2,55,16) = (/ &
+ & 0.13631E+03_JPRB,0.10223E+03_JPRB,0.79292E+02_JPRB,0.10139E+03_JPRB,0.13518E+03_JPRB /)  
+KB(:, 3,55,16) = (/ &
+ & 0.12725E+03_JPRB,0.95436E+02_JPRB,0.72534E+02_JPRB,0.93260E+02_JPRB,0.12435E+03_JPRB /)  
+KB(:, 4,55,16) = (/ &
+ & 0.11908E+03_JPRB,0.89315E+02_JPRB,0.66761E+02_JPRB,0.86100E+02_JPRB,0.11480E+03_JPRB /)  
+KB(:, 5,55,16) = (/ &
+ & 0.11172E+03_JPRB,0.83789E+02_JPRB,0.61666E+02_JPRB,0.79683E+02_JPRB,0.10624E+03_JPRB /)  
+KB(:, 1,56,16) = (/ &
+ & 0.15005E+03_JPRB,0.11254E+03_JPRB,0.89964E+02_JPRB,0.11399E+03_JPRB,0.15199E+03_JPRB /)  
+KB(:, 2,56,16) = (/ &
+ & 0.13946E+03_JPRB,0.10459E+03_JPRB,0.81673E+02_JPRB,0.10424E+03_JPRB,0.13899E+03_JPRB /)  
+KB(:, 3,56,16) = (/ &
+ & 0.13002E+03_JPRB,0.97512E+02_JPRB,0.74583E+02_JPRB,0.95730E+02_JPRB,0.12764E+03_JPRB /)  
+KB(:, 4,56,16) = (/ &
+ & 0.12160E+03_JPRB,0.91205E+02_JPRB,0.68519E+02_JPRB,0.88312E+02_JPRB,0.11775E+03_JPRB /)  
+KB(:, 5,56,16) = (/ &
+ & 0.11401E+03_JPRB,0.85509E+02_JPRB,0.63233E+02_JPRB,0.81665E+02_JPRB,0.10889E+03_JPRB /)  
+KB(:, 1,57,16) = (/ &
+ & 0.15367E+03_JPRB,0.11525E+03_JPRB,0.92893E+02_JPRB,0.11745E+03_JPRB,0.15659E+03_JPRB /)  
+KB(:, 2,57,16) = (/ &
+ & 0.14273E+03_JPRB,0.10705E+03_JPRB,0.84201E+02_JPRB,0.10722E+03_JPRB,0.14296E+03_JPRB /)  
+KB(:, 3,57,16) = (/ &
+ & 0.13291E+03_JPRB,0.99681E+02_JPRB,0.76750E+02_JPRB,0.98336E+02_JPRB,0.13111E+03_JPRB /)  
+KB(:, 4,57,16) = (/ &
+ & 0.12423E+03_JPRB,0.93171E+02_JPRB,0.70357E+02_JPRB,0.90589E+02_JPRB,0.12079E+03_JPRB /)  
+KB(:, 5,57,16) = (/ &
+ & 0.11636E+03_JPRB,0.87269E+02_JPRB,0.64859E+02_JPRB,0.83719E+02_JPRB,0.11162E+03_JPRB /)  
+KB(:, 1,58,16) = (/ &
+ & 0.15720E+03_JPRB,0.11790E+03_JPRB,0.95809E+02_JPRB,0.12090E+03_JPRB,0.16121E+03_JPRB /)  
+KB(:, 2,58,16) = (/ &
+ & 0.14594E+03_JPRB,0.10946E+03_JPRB,0.86713E+02_JPRB,0.11017E+03_JPRB,0.14690E+03_JPRB /)  
+KB(:, 3,58,16) = (/ &
+ & 0.13577E+03_JPRB,0.10183E+03_JPRB,0.78898E+02_JPRB,0.10090E+03_JPRB,0.13454E+03_JPRB /)  
+KB(:, 4,58,16) = (/ &
+ & 0.12678E+03_JPRB,0.95087E+02_JPRB,0.72188E+02_JPRB,0.92844E+02_JPRB,0.12379E+03_JPRB /)  
+KB(:, 5,58,16) = (/ &
+ & 0.11865E+03_JPRB,0.88989E+02_JPRB,0.66460E+02_JPRB,0.85728E+02_JPRB,0.11430E+03_JPRB /)  
+KB(:, 1,59,16) = (/ &
+ & 0.15867E+03_JPRB,0.11900E+03_JPRB,0.97023E+02_JPRB,0.12235E+03_JPRB,0.16313E+03_JPRB /)  
+KB(:, 2,59,16) = (/ &
+ & 0.14725E+03_JPRB,0.11044E+03_JPRB,0.87747E+02_JPRB,0.11139E+03_JPRB,0.14852E+03_JPRB /)  
+KB(:, 3,59,16) = (/ &
+ & 0.13696E+03_JPRB,0.10272E+03_JPRB,0.79780E+02_JPRB,0.10196E+03_JPRB,0.13595E+03_JPRB /)  
+KB(:, 4,59,16) = (/ &
+ & 0.12782E+03_JPRB,0.95865E+02_JPRB,0.72946E+02_JPRB,0.93765E+02_JPRB,0.12502E+03_JPRB /)  
+KB(:, 5,59,16) = (/ &
+ & 0.11961E+03_JPRB,0.89706E+02_JPRB,0.67116E+02_JPRB,0.86544E+02_JPRB,0.11539E+03_JPRB /)  
+
+!     -----------------------------------------------------------------
+
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART37',1,ZHOOK_HANDLE)
+END SUBROUTINE PART37
+
+
+SUBROUTINE PART38
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART38',0,ZHOOK_HANDLE)
+
+
+FORREF(:, 1) = (/ 0.110008E-06_JPRB, 0.630912E-06_JPRB, 0.363159E-05_JPRB, 0.616892E-05_JPRB /)
+FORREF(:, 2) = (/ 0.429709E-05_JPRB, 0.789174E-05_JPRB, 0.217416E-04_JPRB, 0.639393E-04_JPRB /)
+FORREF(:, 3) = (/ 0.436283E-04_JPRB, 0.526247E-04_JPRB, 0.116341E-03_JPRB, 0.205616E-03_JPRB /)
+FORREF(:, 4) = (/ 0.215627E-03_JPRB, 0.234522E-03_JPRB, 0.280497E-03_JPRB, 0.838668E-03_JPRB /)
+FORREF(:, 5) = (/ 0.529283E-03_JPRB, 0.620848E-03_JPRB, 0.935561E-03_JPRB, 0.171252E-02_JPRB /)
+FORREF(:, 6) = (/ 0.212267E-02_JPRB, 0.218564E-02_JPRB, 0.222227E-02_JPRB, 0.199650E-02_JPRB /)
+FORREF(:, 7) = (/ 0.291120E-02_JPRB, 0.281168E-02_JPRB, 0.259543E-02_JPRB, 0.210159E-02_JPRB /)
+FORREF(:, 8) = (/ 0.316249E-02_JPRB, 0.310695E-02_JPRB, 0.279501E-02_JPRB, 0.208076E-02_JPRB /)
+FORREF(:, 9) = (/ 0.354993E-02_JPRB, 0.336989E-02_JPRB, 0.298930E-02_JPRB, 0.180424E-02_JPRB /)
+FORREF(:,10) = (/ 0.397729E-02_JPRB, 0.367409E-02_JPRB, 0.328982E-02_JPRB, 0.177807E-02_JPRB /)
+FORREF(:,11) = (/ 0.408831E-02_JPRB, 0.398792E-02_JPRB, 0.352727E-02_JPRB, 0.192470E-02_JPRB /)
+FORREF(:,12) = (/ 0.433926E-02_JPRB, 0.420667E-02_JPRB, 0.383894E-02_JPRB, 0.220836E-02_JPRB /)
+FORREF(:,13) = (/ 0.436397E-02_JPRB, 0.433769E-02_JPRB, 0.425752E-02_JPRB, 0.237343E-02_JPRB /)
+FORREF(:,14) = (/ 0.440525E-02_JPRB, 0.449018E-02_JPRB, 0.451881E-02_JPRB, 0.269169E-02_JPRB /)
+FORREF(:,15) = (/ 0.491350E-02_JPRB, 0.481760E-02_JPRB, 0.475799E-02_JPRB, 0.362666E-02_JPRB /)
+FORREF(:,16) = (/ 0.561641E-02_JPRB, 0.524553E-02_JPRB, 0.512473E-02_JPRB, 0.493802E-02_JPRB /)
+
+!     -----------------------------------------------------------------
+!     The array SELFREF contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+SELFREF(:, 1) = (/ &
+ & 0.115887E-03_JPRB, 0.926537E-04_JPRB, 0.740783E-04_JPRB, 0.592270E-04_JPRB, 0.473530E-04_JPRB, &
+ & 0.378596E-04_JPRB, 0.302694E-04_JPRB, 0.242010E-04_JPRB, 0.193491E-04_JPRB, 0.154700E-04_JPRB /)  
+SELFREF(:, 2) = (/ &
+ & 0.459557E-03_JPRB, 0.381962E-03_JPRB, 0.317469E-03_JPRB, 0.263866E-03_JPRB, 0.219313E-03_JPRB, &
+ & 0.182283E-03_JPRB, 0.151505E-03_JPRB, 0.125924E-03_JPRB, 0.104662E-03_JPRB, 0.869904E-04_JPRB /)  
+SELFREF(:, 3) = (/ &
+ & 0.166821E-02_JPRB, 0.151103E-02_JPRB, 0.136866E-02_JPRB, 0.123970E-02_JPRB, 0.112290E-02_JPRB, &
+ & 0.101710E-02_JPRB, 0.921266E-03_JPRB, 0.834463E-03_JPRB, 0.755839E-03_JPRB, 0.684623E-03_JPRB /)  
+SELFREF(:, 4) = (/ &
+ & 0.460175E-02_JPRB, 0.421372E-02_JPRB, 0.385842E-02_JPRB, 0.353307E-02_JPRB, 0.323516E-02_JPRB, &
+ & 0.296236E-02_JPRB, 0.271257E-02_JPRB, 0.248385E-02_JPRB, 0.227440E-02_JPRB, 0.208262E-02_JPRB /)  
+SELFREF(:, 5) = (/ &
+ & 0.101589E-01_JPRB, 0.924742E-02_JPRB, 0.841772E-02_JPRB, 0.766247E-02_JPRB, 0.697497E-02_JPRB, &
+ & 0.634917E-02_JPRB, 0.577951E-02_JPRB, 0.526096E-02_JPRB, 0.478893E-02_JPRB, 0.435926E-02_JPRB /)  
+SELFREF(:, 6) = (/ &
+ & 0.328043E-01_JPRB, 0.300853E-01_JPRB, 0.275917E-01_JPRB, 0.253048E-01_JPRB, 0.232075E-01_JPRB, &
+ & 0.212839E-01_JPRB, 0.195198E-01_JPRB, 0.179020E-01_JPRB, 0.164182E-01_JPRB, 0.150574E-01_JPRB /)  
+SELFREF(:, 7) = (/ &
+ & 0.405936E-01_JPRB, 0.376032E-01_JPRB, 0.348331E-01_JPRB, 0.322671E-01_JPRB, 0.298901E-01_JPRB, &
+ & 0.276883E-01_JPRB, 0.256486E-01_JPRB, 0.237591E-01_JPRB, 0.220089E-01_JPRB, 0.203876E-01_JPRB /)  
+SELFREF(:, 8) = (/ &
+ & 0.448362E-01_JPRB, 0.413811E-01_JPRB, 0.381923E-01_JPRB, 0.352492E-01_JPRB, 0.325329E-01_JPRB, &
+ & 0.300259E-01_JPRB, 0.277121E-01_JPRB, 0.255766E-01_JPRB, 0.236056E-01_JPRB, 0.217866E-01_JPRB /)  
+SELFREF(:, 9) = (/ &
+ & 0.479741E-01_JPRB, 0.445389E-01_JPRB, 0.413497E-01_JPRB, 0.383889E-01_JPRB, 0.356400E-01_JPRB, &
+ & 0.330880E-01_JPRB, 0.307188E-01_JPRB, 0.285191E-01_JPRB, 0.264770E-01_JPRB, 0.245812E-01_JPRB /)  
+SELFREF(:,10) = (/ &
+ & 0.519308E-01_JPRB, 0.484130E-01_JPRB, 0.451335E-01_JPRB, 0.420761E-01_JPRB, 0.392259E-01_JPRB, &
+ & 0.365687E-01_JPRB, 0.340916E-01_JPRB, 0.317822E-01_JPRB, 0.296293E-01_JPRB, 0.276222E-01_JPRB /)  
+SELFREF(:,11) = (/ &
+ & 0.572039E-01_JPRB, 0.527780E-01_JPRB, 0.486945E-01_JPRB, 0.449270E-01_JPRB, 0.414510E-01_JPRB, &
+ & 0.382439E-01_JPRB, 0.352849E-01_JPRB, 0.325549E-01_JPRB, 0.300361E-01_JPRB, 0.277122E-01_JPRB /)  
+SELFREF(:,12) = (/ &
+ & 0.601046E-01_JPRB, 0.554411E-01_JPRB, 0.511395E-01_JPRB, 0.471716E-01_JPRB, 0.435116E-01_JPRB, &
+ & 0.401356E-01_JPRB, 0.370215E-01_JPRB, 0.341490E-01_JPRB, 0.314994E-01_JPRB, 0.290554E-01_JPRB /)  
+SELFREF(:,13) = (/ &
+ & 0.616595E-01_JPRB, 0.567145E-01_JPRB, 0.521662E-01_JPRB, 0.479826E-01_JPRB, 0.441346E-01_JPRB, &
+ & 0.405951E-01_JPRB, 0.373395E-01_JPRB, 0.343450E-01_JPRB, 0.315906E-01_JPRB, 0.290571E-01_JPRB /)  
+SELFREF(:,14) = (/ &
+ & 0.647916E-01_JPRB, 0.592493E-01_JPRB, 0.541811E-01_JPRB, 0.495465E-01_JPRB, 0.453083E-01_JPRB, &
+ & 0.414326E-01_JPRB, 0.378885E-01_JPRB, 0.346475E-01_JPRB, 0.316837E-01_JPRB, 0.289735E-01_JPRB /)  
+SELFREF(:,15) = (/ &
+ & 0.694231E-01_JPRB, 0.637703E-01_JPRB, 0.585777E-01_JPRB, 0.538079E-01_JPRB, 0.494265E-01_JPRB, &
+ & 0.454019E-01_JPRB, 0.417050E-01_JPRB, 0.383091E-01_JPRB, 0.351897E-01_JPRB, 0.323244E-01_JPRB /)  
+SELFREF(:,16) = (/ &
+ & 0.761764E-01_JPRB, 0.701815E-01_JPRB, 0.646584E-01_JPRB, 0.595700E-01_JPRB, 0.548820E-01_JPRB, &
+ & 0.505629E-01_JPRB, 0.465838E-01_JPRB, 0.429178E-01_JPRB, 0.395403E-01_JPRB, 0.364286E-01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB21:PART38',1,ZHOOK_HANDLE)
+END SUBROUTINE PART38
+
+
+END SUBROUTINE SRTM_KGB21
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb21.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb21.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb21.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_KGB21
+END SUBROUTINE SRTM_KGB21
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb22.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb22.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb22.F90	(revision 1989)
@@ -0,0 +1,5030 @@
+!OCL SCALAR
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif 
+!pgi$r opt=0
+SUBROUTINE SRTM_KGB22
+
+!     Originally by J.Delamere, Atmospheric & Environmental Research.
+!     Revision: 2.4
+!     BAND 16:  7700-8050 cm-1 (low - H2O,O2; high - O2)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     R. Elkhatib 12-10-2005 Split for faster and more robust compilation.
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOESRTA22, ONLY : KA, KB, SELFREF, FORREF, SFLUXREF, RAYL, STRRAT &
+ & , LAYREFFR  
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+
+! KURUCZ
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22',0,ZHOOK_HANDLE)
+
+CALL PART1
+CALL PART2
+CALL PART3
+CALL PART4
+CALL PART5
+CALL PART6
+CALL PART7
+CALL PART8
+CALL PART9
+CALL PART10
+CALL PART11
+CALL PART12
+CALL PART13
+CALL PART14
+CALL PART15
+CALL PART16
+CALL PART17
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22',1,ZHOOK_HANDLE)
+
+!     -----------------------------------------------------------------
+
+CONTAINS
+
+
+SUBROUTINE PART1
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART1',0,ZHOOK_HANDLE)
+
+
+SFLUXREF(:, 1) = (/ &
+ & 3.71641_JPRB    ,3.63190_JPRB    ,3.44795_JPRB    ,3.17936_JPRB    , &
+ & 2.86071_JPRB    ,2.48490_JPRB    ,2.02471_JPRB    ,1.52475_JPRB    , &
+ & 1.03811_JPRB    ,0.113272_JPRB   ,9.37115E-02_JPRB,7.38969E-02_JPRB, &
+ & 5.44713E-02_JPRB,3.45905E-02_JPRB,1.30293E-02_JPRB,1.84198E-03_JPRB /)  
+SFLUXREF(:, 2) = (/ &
+ & 3.73933_JPRB    ,3.60360_JPRB    ,3.43370_JPRB    ,3.19749_JPRB    ,  &
+ & 2.87747_JPRB    ,2.47926_JPRB    ,2.02175_JPRB    ,1.52010_JPRB    , &
+ & 1.03612_JPRB    ,0.113265_JPRB   ,9.37145E-02_JPRB,7.38951E-02_JPRB, &
+ & 5.44714E-02_JPRB,3.45906E-02_JPRB,1.30293E-02_JPRB,1.84198E-03_JPRB /)  
+SFLUXREF(:, 3) = (/ &
+ & 3.73889_JPRB    ,3.60279_JPRB    ,3.43404_JPRB    ,3.20560_JPRB    , &
+ & 2.87367_JPRB    ,2.47515_JPRB    ,2.02412_JPRB    ,1.52315_JPRB    , &
+ & 1.03146_JPRB    ,0.113272_JPRB   ,9.36707E-02_JPRB,7.39080E-02_JPRB, &
+ & 5.44598E-02_JPRB,3.45906E-02_JPRB,1.30293E-02_JPRB,1.84198E-03_JPRB /)  
+SFLUXREF(:, 4) = (/ &
+ & 3.73801_JPRB    ,3.60530_JPRB    ,3.43659_JPRB    ,3.20640_JPRB    , &
+ & 2.87039_JPRB    ,2.47330_JPRB    ,2.02428_JPRB    ,1.52509_JPRB    , &
+ & 1.03037_JPRB    ,0.112553_JPRB   ,9.35352E-02_JPRB,7.39675E-02_JPRB, &
+ & 5.43951E-02_JPRB,3.45669E-02_JPRB,1.30292E-02_JPRB,1.84198E-03_JPRB /)  
+SFLUXREF(:, 5) = (/ &
+ & 3.73809_JPRB    ,3.60996_JPRB    ,3.43602_JPRB    ,3.20364_JPRB    , &
+ & 2.87005_JPRB    ,2.47343_JPRB    ,2.02353_JPRB    ,1.52617_JPRB    , &
+ & 1.03138_JPRB    ,0.111172_JPRB   ,9.29885E-02_JPRB,7.35034E-02_JPRB, &
+ & 5.42427E-02_JPRB,3.45732E-02_JPRB,1.30169E-02_JPRB,1.84550E-03_JPRB /)  
+SFLUXREF(:, 6) = (/ &
+ & 3.73872_JPRB    ,3.62054_JPRB    ,3.42934_JPRB    ,3.20110_JPRB    , &
+ & 2.86886_JPRB    ,2.47379_JPRB    ,2.02237_JPRB    ,1.52754_JPRB    ,  &
+ & 1.03228_JPRB    ,0.111597_JPRB   ,9.12252E-02_JPRB,7.33115E-02_JPRB, &
+ & 5.35600E-02_JPRB,3.45187E-02_JPRB,1.30184E-02_JPRB,1.84551E-03_JPRB /)  
+SFLUXREF(:, 7) = (/ &
+ & 3.73969_JPRB    ,3.65461_JPRB    ,3.40646_JPRB    ,3.19082_JPRB    , &
+ & 2.86919_JPRB    ,2.47289_JPRB    ,2.02312_JPRB    ,1.52629_JPRB    , &
+ & 1.03329_JPRB    ,0.111611_JPRB   ,9.16275E-02_JPRB,7.14731E-02_JPRB, &
+ & 5.31771E-02_JPRB,3.44980E-02_JPRB,1.30190E-02_JPRB,1.84551E-03_JPRB /)  
+SFLUXREF(:, 8) = (/ &
+ & 3.73995_JPRB    ,3.65348_JPRB    ,3.43707_JPRB    ,3.16351_JPRB    , &
+ & 2.87003_JPRB    ,2.47392_JPRB    ,2.02114_JPRB    ,1.52548_JPRB    ,  &
+ & 1.03306_JPRB    ,0.111088_JPRB   ,9.12422E-02_JPRB,7.11146E-02_JPRB, &
+ & 5.31333E-02_JPRB,3.45302E-02_JPRB,1.30209E-02_JPRB,1.84554E-03_JPRB /)  
+SFLUXREF(:, 9) = (/ &
+ & 3.73788_JPRB    ,3.65004_JPRB    ,3.46938_JPRB    ,3.15236_JPRB    , &
+ & 2.86381_JPRB    ,2.47393_JPRB    ,2.01715_JPRB    ,1.52134_JPRB    , &
+ & 1.03163_JPRB    ,0.111259_JPRB   ,9.12948E-02_JPRB,7.09999E-02_JPRB, &
+ & 5.31792E-02_JPRB,3.44955E-02_JPRB,1.30189E-02_JPRB,1.84551E-03_JPRB /)  
+
+!     Rayleigh extinction coefficient at v = 8000 cm-1.
+RAYL = 1.54E-08_JPRB
+
+STRRAT = 0.022708_JPRB
+
+LAYREFFR = 2
+
+!     ------------------------------------------------------------------
+
+!     The array KA contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels> ~100mb, temperatures, and binary
+!     species parameters (see taumol.f for definition).  The first 
+!     index in the array, JS, runs from 1 to 9, and corresponds to 
+!     different values of the binary species parameter.  For instance, 
+!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, 
+!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index
+!     in the array, JT, which runs from 1 to 5, corresponds to different
+!     temperatures.  More specifically, JT = 3 means that the data are for
+!     the reference temperature TREF for this  pressure level, JT = 2 refers
+!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the JPth reference pressure level (see taumol.f for these levels
+!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates
+!     which g-interval the absorption coefficients are for.
+!     -----------------------------------------------------------------
+
+KA(:, 1, 1, 1) = (/ &
+ & 0.14658E-08_JPRB,0.32044E-07_JPRB,0.36289E-07_JPRB,0.38717E-07_JPRB,0.40590E-07_JPRB, &
+ & 0.43330E-07_JPRB,0.46916E-07_JPRB,0.56519E-07_JPRB,0.42446E-07_JPRB /)  
+KA(:, 2, 1, 1) = (/ &
+ & 0.17883E-08_JPRB,0.36129E-07_JPRB,0.40724E-07_JPRB,0.43498E-07_JPRB,0.45371E-07_JPRB, &
+ & 0.47093E-07_JPRB,0.51195E-07_JPRB,0.58562E-07_JPRB,0.44474E-07_JPRB /)  
+KA(:, 3, 1, 1) = (/ &
+ & 0.21286E-08_JPRB,0.46092E-07_JPRB,0.53991E-07_JPRB,0.59439E-07_JPRB,0.63497E-07_JPRB, &
+ & 0.66730E-07_JPRB,0.70296E-07_JPRB,0.83990E-07_JPRB,0.65058E-07_JPRB /)  
+KA(:, 4, 1, 1) = (/ &
+ & 0.24816E-08_JPRB,0.43399E-07_JPRB,0.49167E-07_JPRB,0.52969E-07_JPRB,0.55586E-07_JPRB, &
+ & 0.57260E-07_JPRB,0.58809E-07_JPRB,0.64046E-07_JPRB,0.48780E-07_JPRB /)  
+KA(:, 5, 1, 1) = (/ &
+ & 0.28409E-08_JPRB,0.46683E-07_JPRB,0.53128E-07_JPRB,0.57526E-07_JPRB,0.60605E-07_JPRB, &
+ & 0.62715E-07_JPRB,0.64284E-07_JPRB,0.67579E-07_JPRB,0.52346E-07_JPRB /)  
+KA(:, 1, 2, 1) = (/ &
+ & 0.10965E-08_JPRB,0.24934E-07_JPRB,0.28268E-07_JPRB,0.30156E-07_JPRB,0.31820E-07_JPRB, &
+ & 0.34498E-07_JPRB,0.36563E-07_JPRB,0.46609E-07_JPRB,0.30202E-07_JPRB /)  
+KA(:, 2, 2, 1) = (/ &
+ & 0.13538E-08_JPRB,0.28338E-07_JPRB,0.31923E-07_JPRB,0.34048E-07_JPRB,0.35529E-07_JPRB, &
+ & 0.37136E-07_JPRB,0.41583E-07_JPRB,0.46831E-07_JPRB,0.32817E-07_JPRB /)  
+KA(:, 3, 2, 1) = (/ &
+ & 0.16260E-08_JPRB,0.36648E-07_JPRB,0.42882E-07_JPRB,0.47128E-07_JPRB,0.50288E-07_JPRB, &
+ & 0.52851E-07_JPRB,0.56093E-07_JPRB,0.70511E-07_JPRB,0.48182E-07_JPRB /)  
+KA(:, 4, 2, 1) = (/ &
+ & 0.19102E-08_JPRB,0.39471E-07_JPRB,0.46225E-07_JPRB,0.50974E-07_JPRB,0.54565E-07_JPRB, &
+ & 0.57380E-07_JPRB,0.60079E-07_JPRB,0.67707E-07_JPRB,0.50168E-07_JPRB /)  
+KA(:, 5, 2, 1) = (/ &
+ & 0.22030E-08_JPRB,0.37203E-07_JPRB,0.42234E-07_JPRB,0.45622E-07_JPRB,0.47990E-07_JPRB, &
+ & 0.49546E-07_JPRB,0.50777E-07_JPRB,0.53867E-07_JPRB,0.39769E-07_JPRB /)  
+KA(:, 1, 3, 1) = (/ &
+ & 0.77844E-09_JPRB,0.18777E-07_JPRB,0.21347E-07_JPRB,0.22946E-07_JPRB,0.24368E-07_JPRB, &
+ & 0.25870E-07_JPRB,0.28084E-07_JPRB,0.39197E-07_JPRB,0.20196E-07_JPRB /)  
+KA(:, 2, 3, 1) = (/ &
+ & 0.97891E-09_JPRB,0.21591E-07_JPRB,0.24379E-07_JPRB,0.25974E-07_JPRB,0.27213E-07_JPRB, &
+ & 0.29039E-07_JPRB,0.31487E-07_JPRB,0.37725E-07_JPRB,0.23228E-07_JPRB /)  
+KA(:, 3, 3, 1) = (/ &
+ & 0.11949E-08_JPRB,0.24305E-07_JPRB,0.27342E-07_JPRB,0.29177E-07_JPRB,0.30428E-07_JPRB, &
+ & 0.31562E-07_JPRB,0.34299E-07_JPRB,0.39267E-07_JPRB,0.23943E-07_JPRB /)  
+KA(:, 4, 3, 1) = (/ &
+ & 0.14225E-08_JPRB,0.30991E-07_JPRB,0.36244E-07_JPRB,0.39880E-07_JPRB,0.42596E-07_JPRB, &
+ & 0.44752E-07_JPRB,0.47132E-07_JPRB,0.56253E-07_JPRB,0.37250E-07_JPRB /)  
+KA(:, 5, 3, 1) = (/ &
+ & 0.16586E-08_JPRB,0.29152E-07_JPRB,0.32988E-07_JPRB,0.35508E-07_JPRB,0.37264E-07_JPRB, &
+ & 0.38387E-07_JPRB,0.39417E-07_JPRB,0.42936E-07_JPRB,0.29439E-07_JPRB /)  
+KA(:, 1, 4, 1) = (/ &
+ & 0.53935E-09_JPRB,0.13922E-07_JPRB,0.15779E-07_JPRB,0.16979E-07_JPRB,0.18157E-07_JPRB, &
+ & 0.19199E-07_JPRB,0.22168E-07_JPRB,0.31060E-07_JPRB,0.13772E-07_JPRB /)  
+KA(:, 2, 4, 1) = (/ &
+ & 0.69404E-09_JPRB,0.16220E-07_JPRB,0.18381E-07_JPRB,0.19646E-07_JPRB,0.20841E-07_JPRB, &
+ & 0.22407E-07_JPRB,0.23846E-07_JPRB,0.31992E-07_JPRB,0.15532E-07_JPRB /)  
+KA(:, 3, 4, 1) = (/ &
+ & 0.86327E-09_JPRB,0.18514E-07_JPRB,0.20845E-07_JPRB,0.22209E-07_JPRB,0.23196E-07_JPRB, &
+ & 0.24396E-07_JPRB,0.27026E-07_JPRB,0.31067E-07_JPRB,0.17116E-07_JPRB /)  
+KA(:, 4, 4, 1) = (/ &
+ & 0.10436E-08_JPRB,0.20666E-07_JPRB,0.23248E-07_JPRB,0.24835E-07_JPRB,0.25904E-07_JPRB, &
+ & 0.26757E-07_JPRB,0.28384E-07_JPRB,0.33085E-07_JPRB,0.19320E-07_JPRB /)  
+KA(:, 5, 4, 1) = (/ &
+ & 0.12327E-08_JPRB,0.26056E-07_JPRB,0.30481E-07_JPRB,0.33580E-07_JPRB,0.35908E-07_JPRB, &
+ & 0.37744E-07_JPRB,0.39586E-07_JPRB,0.45434E-07_JPRB,0.29787E-07_JPRB /)  
+KA(:, 1, 5, 1) = (/ &
+ & 0.36905E-09_JPRB,0.10245E-07_JPRB,0.11596E-07_JPRB,0.12576E-07_JPRB,0.13293E-07_JPRB, &
+ & 0.14477E-07_JPRB,0.18355E-07_JPRB,0.25395E-07_JPRB,0.95950E-08_JPRB /)  
+KA(:, 2, 5, 1) = (/ &
+ & 0.48708E-09_JPRB,0.12119E-07_JPRB,0.13746E-07_JPRB,0.14791E-07_JPRB,0.15718E-07_JPRB, &
+ & 0.16646E-07_JPRB,0.18396E-07_JPRB,0.25737E-07_JPRB,0.10793E-07_JPRB /)  
+KA(:, 3, 5, 1) = (/ &
+ & 0.61847E-09_JPRB,0.13998E-07_JPRB,0.15813E-07_JPRB,0.16851E-07_JPRB,0.17722E-07_JPRB, &
+ & 0.19232E-07_JPRB,0.20414E-07_JPRB,0.25223E-07_JPRB,0.12354E-07_JPRB /)  
+KA(:, 4, 5, 1) = (/ &
+ & 0.76052E-09_JPRB,0.15846E-07_JPRB,0.17816E-07_JPRB,0.18991E-07_JPRB,0.19806E-07_JPRB, &
+ & 0.20628E-07_JPRB,0.23016E-07_JPRB,0.25874E-07_JPRB,0.14269E-07_JPRB /)  
+KA(:, 5, 5, 1) = (/ &
+ & 0.91109E-09_JPRB,0.20382E-07_JPRB,0.23823E-07_JPRB,0.26180E-07_JPRB,0.27929E-07_JPRB, &
+ & 0.29345E-07_JPRB,0.31039E-07_JPRB,0.38471E-07_JPRB,0.22626E-07_JPRB /)  
+KA(:, 1, 6, 1) = (/ &
+ & 0.24637E-09_JPRB,0.74144E-08_JPRB,0.83997E-08_JPRB,0.90789E-08_JPRB,0.97769E-08_JPRB, &
+ & 0.11308E-07_JPRB,0.14223E-07_JPRB,0.20837E-07_JPRB,0.66398E-08_JPRB /)  
+KA(:, 2, 6, 1) = (/ &
+ & 0.33527E-09_JPRB,0.89450E-08_JPRB,0.10119E-07_JPRB,0.10892E-07_JPRB,0.11613E-07_JPRB, &
+ & 0.12382E-07_JPRB,0.14900E-07_JPRB,0.20638E-07_JPRB,0.76422E-08_JPRB /)  
+KA(:, 3, 6, 1) = (/ &
+ & 0.43587E-09_JPRB,0.10479E-07_JPRB,0.11902E-07_JPRB,0.12737E-07_JPRB,0.13564E-07_JPRB, &
+ & 0.14416E-07_JPRB,0.15545E-07_JPRB,0.21677E-07_JPRB,0.89455E-08_JPRB /)  
+KA(:, 4, 6, 1) = (/ &
+ & 0.54672E-09_JPRB,0.12017E-07_JPRB,0.13540E-07_JPRB,0.14423E-07_JPRB,0.15090E-07_JPRB, &
+ & 0.16030E-07_JPRB,0.17496E-07_JPRB,0.20678E-07_JPRB,0.10490E-07_JPRB /)  
+KA(:, 5, 6, 1) = (/ &
+ & 0.66579E-09_JPRB,0.13493E-07_JPRB,0.15163E-07_JPRB,0.16178E-07_JPRB,0.16873E-07_JPRB, &
+ & 0.17474E-07_JPRB,0.18852E-07_JPRB,0.21699E-07_JPRB,0.12216E-07_JPRB /)  
+KA(:, 1, 7, 1) = (/ &
+ & 0.16149E-09_JPRB,0.53201E-08_JPRB,0.60079E-08_JPRB,0.65349E-08_JPRB,0.72837E-08_JPRB, &
+ & 0.90792E-08_JPRB,0.11028E-07_JPRB,0.15917E-07_JPRB,0.45574E-08_JPRB /)  
+KA(:, 2, 7, 1) = (/ &
+ & 0.22765E-09_JPRB,0.65457E-08_JPRB,0.74143E-08_JPRB,0.80126E-08_JPRB,0.85152E-08_JPRB, &
+ & 0.94934E-08_JPRB,0.12210E-07_JPRB,0.16917E-07_JPRB,0.54301E-08_JPRB /)  
+KA(:, 3, 7, 1) = (/ &
+ & 0.30418E-09_JPRB,0.77971E-08_JPRB,0.88287E-08_JPRB,0.94927E-08_JPRB,0.10154E-07_JPRB, &
+ & 0.10712E-07_JPRB,0.12099E-07_JPRB,0.16996E-07_JPRB,0.64594E-08_JPRB /)  
+KA(:, 4, 7, 1) = (/ &
+ & 0.38990E-09_JPRB,0.90563E-08_JPRB,0.10243E-07_JPRB,0.10928E-07_JPRB,0.11554E-07_JPRB, &
+ & 0.12512E-07_JPRB,0.13254E-07_JPRB,0.17320E-07_JPRB,0.76835E-08_JPRB /)  
+KA(:, 5, 7, 1) = (/ &
+ & 0.48334E-09_JPRB,0.10307E-07_JPRB,0.11588E-07_JPRB,0.12345E-07_JPRB,0.12884E-07_JPRB, &
+ & 0.13512E-07_JPRB,0.15051E-07_JPRB,0.17108E-07_JPRB,0.90662E-08_JPRB /)  
+KA(:, 1, 8, 1) = (/ &
+ & 0.10442E-09_JPRB,0.37895E-08_JPRB,0.42781E-08_JPRB,0.47285E-08_JPRB,0.55672E-08_JPRB, &
+ & 0.67246E-08_JPRB,0.87615E-08_JPRB,0.12496E-07_JPRB,0.31063E-08_JPRB /)  
+KA(:, 2, 8, 1) = (/ &
+ & 0.15294E-09_JPRB,0.47545E-08_JPRB,0.53771E-08_JPRB,0.58176E-08_JPRB,0.63249E-08_JPRB, &
+ & 0.74935E-08_JPRB,0.93024E-08_JPRB,0.13484E-07_JPRB,0.38514E-08_JPRB /)  
+KA(:, 3, 8, 1) = (/ &
+ & 0.21056E-09_JPRB,0.57727E-08_JPRB,0.65270E-08_JPRB,0.70416E-08_JPRB,0.74786E-08_JPRB, &
+ & 0.80475E-08_JPRB,0.10012E-07_JPRB,0.13784E-07_JPRB,0.46496E-08_JPRB /)  
+KA(:, 4, 8, 1) = (/ &
+ & 0.27636E-09_JPRB,0.67987E-08_JPRB,0.77111E-08_JPRB,0.82983E-08_JPRB,0.87947E-08_JPRB, &
+ & 0.93313E-08_JPRB,0.10204E-07_JPRB,0.14244E-07_JPRB,0.56141E-08_JPRB /)  
+KA(:, 5, 8, 1) = (/ &
+ & 0.34924E-09_JPRB,0.78297E-08_JPRB,0.88319E-08_JPRB,0.94055E-08_JPRB,0.98667E-08_JPRB, &
+ & 0.10620E-07_JPRB,0.11396E-07_JPRB,0.13825E-07_JPRB,0.67139E-08_JPRB /)  
+KA(:, 1, 9, 1) = (/ &
+ & 0.66385E-10_JPRB,0.26743E-08_JPRB,0.30313E-08_JPRB,0.34595E-08_JPRB,0.42156E-08_JPRB, &
+ & 0.50940E-08_JPRB,0.66728E-08_JPRB,0.10021E-07_JPRB,0.20965E-08_JPRB /)  
+KA(:, 2, 9, 1) = (/ &
+ & 0.10109E-09_JPRB,0.34278E-08_JPRB,0.38685E-08_JPRB,0.42217E-08_JPRB,0.47673E-08_JPRB, &
+ & 0.59120E-08_JPRB,0.72992E-08_JPRB,0.10438E-07_JPRB,0.27321E-08_JPRB /)  
+KA(:, 3, 9, 1) = (/ &
+ & 0.14405E-09_JPRB,0.42386E-08_JPRB,0.48029E-08_JPRB,0.51840E-08_JPRB,0.55416E-08_JPRB, &
+ & 0.62759E-08_JPRB,0.79851E-08_JPRB,0.11314E-07_JPRB,0.33332E-08_JPRB /)  
+KA(:, 4, 9, 1) = (/ &
+ & 0.19414E-09_JPRB,0.50774E-08_JPRB,0.57440E-08_JPRB,0.61764E-08_JPRB,0.66005E-08_JPRB, &
+ & 0.69887E-08_JPRB,0.81552E-08_JPRB,0.11319E-07_JPRB,0.40828E-08_JPRB /)  
+KA(:, 5, 9, 1) = (/ &
+ & 0.25056E-09_JPRB,0.59198E-08_JPRB,0.67025E-08_JPRB,0.71627E-08_JPRB,0.76155E-08_JPRB, &
+ & 0.81557E-08_JPRB,0.87035E-08_JPRB,0.11788E-07_JPRB,0.49512E-08_JPRB /)  
+KA(:, 1,10, 1) = (/ &
+ & 0.43147E-10_JPRB,0.19136E-08_JPRB,0.21883E-08_JPRB,0.26153E-08_JPRB,0.31055E-08_JPRB, &
+ & 0.39720E-08_JPRB,0.51107E-08_JPRB,0.84498E-08_JPRB,0.15100E-08_JPRB /)  
+KA(:, 2,10, 1) = (/ &
+ & 0.68069E-10_JPRB,0.25012E-08_JPRB,0.28230E-08_JPRB,0.31278E-08_JPRB,0.37084E-08_JPRB, &
+ & 0.44577E-08_JPRB,0.58316E-08_JPRB,0.82732E-08_JPRB,0.20294E-08_JPRB /)  
+KA(:, 3,10, 1) = (/ &
+ & 0.10013E-09_JPRB,0.31445E-08_JPRB,0.35530E-08_JPRB,0.38466E-08_JPRB,0.41961E-08_JPRB, &
+ & 0.50063E-08_JPRB,0.61960E-08_JPRB,0.89421E-08_JPRB,0.24447E-08_JPRB /)  
+KA(:, 4,10, 1) = (/ &
+ & 0.13837E-09_JPRB,0.38258E-08_JPRB,0.43236E-08_JPRB,0.46732E-08_JPRB,0.49545E-08_JPRB, &
+ & 0.53447E-08_JPRB,0.67172E-08_JPRB,0.92217E-08_JPRB,0.30274E-08_JPRB /)  
+KA(:, 5,10, 1) = (/ &
+ & 0.18212E-09_JPRB,0.45123E-08_JPRB,0.51146E-08_JPRB,0.55026E-08_JPRB,0.58368E-08_JPRB, &
+ & 0.61896E-08_JPRB,0.67974E-08_JPRB,0.94910E-08_JPRB,0.36975E-08_JPRB /)  
+KA(:, 1,11, 1) = (/ &
+ & 0.35238E-10_JPRB,0.15650E-08_JPRB,0.17900E-08_JPRB,0.21398E-08_JPRB,0.25395E-08_JPRB, &
+ & 0.32442E-08_JPRB,0.41684E-08_JPRB,0.68456E-08_JPRB,0.12890E-08_JPRB /)  
+KA(:, 2,11, 1) = (/ &
+ & 0.55588E-10_JPRB,0.20451E-08_JPRB,0.23079E-08_JPRB,0.25570E-08_JPRB,0.30342E-08_JPRB, &
+ & 0.36465E-08_JPRB,0.47717E-08_JPRB,0.67353E-08_JPRB,0.16499E-08_JPRB /)  
+KA(:, 3,11, 1) = (/ &
+ & 0.81825E-10_JPRB,0.25719E-08_JPRB,0.29058E-08_JPRB,0.31458E-08_JPRB,0.34324E-08_JPRB, &
+ & 0.40982E-08_JPRB,0.50669E-08_JPRB,0.73083E-08_JPRB,0.20031E-08_JPRB /)  
+KA(:, 4,11, 1) = (/ &
+ & 0.11311E-09_JPRB,0.31293E-08_JPRB,0.35365E-08_JPRB,0.38229E-08_JPRB,0.40518E-08_JPRB, &
+ & 0.43730E-08_JPRB,0.54993E-08_JPRB,0.75470E-08_JPRB,0.24754E-08_JPRB /)  
+KA(:, 5,11, 1) = (/ &
+ & 0.14891E-09_JPRB,0.36915E-08_JPRB,0.41839E-08_JPRB,0.45010E-08_JPRB,0.47744E-08_JPRB, &
+ & 0.50622E-08_JPRB,0.55621E-08_JPRB,0.77689E-08_JPRB,0.30237E-08_JPRB /)  
+KA(:, 1,12, 1) = (/ &
+ & 0.28851E-10_JPRB,0.12816E-08_JPRB,0.14656E-08_JPRB,0.17508E-08_JPRB,0.20791E-08_JPRB, &
+ & 0.26542E-08_JPRB,0.34061E-08_JPRB,0.55940E-08_JPRB,0.10876E-08_JPRB /)  
+KA(:, 2,12, 1) = (/ &
+ & 0.45511E-10_JPRB,0.16747E-08_JPRB,0.18898E-08_JPRB,0.20935E-08_JPRB,0.24841E-08_JPRB, &
+ & 0.29844E-08_JPRB,0.39040E-08_JPRB,0.54988E-08_JPRB,0.13569E-08_JPRB /)  
+KA(:, 3,12, 1) = (/ &
+ & 0.66972E-10_JPRB,0.21053E-08_JPRB,0.23788E-08_JPRB,0.25750E-08_JPRB,0.28091E-08_JPRB, &
+ & 0.33541E-08_JPRB,0.41474E-08_JPRB,0.59783E-08_JPRB,0.16488E-08_JPRB /)  
+KA(:, 4,12, 1) = (/ &
+ & 0.92606E-10_JPRB,0.25620E-08_JPRB,0.28952E-08_JPRB,0.31304E-08_JPRB,0.33162E-08_JPRB, &
+ & 0.35801E-08_JPRB,0.45003E-08_JPRB,0.61789E-08_JPRB,0.20293E-08_JPRB /)  
+KA(:, 5,12, 1) = (/ &
+ & 0.12192E-09_JPRB,0.30226E-08_JPRB,0.34255E-08_JPRB,0.36843E-08_JPRB,0.39084E-08_JPRB, &
+ & 0.41445E-08_JPRB,0.45524E-08_JPRB,0.63605E-08_JPRB,0.24756E-08_JPRB /)  
+KA(:, 1,13, 1) = (/ &
+ & 0.23621E-10_JPRB,0.10494E-08_JPRB,0.11996E-08_JPRB,0.14331E-08_JPRB,0.17023E-08_JPRB, &
+ & 0.21711E-08_JPRB,0.27844E-08_JPRB,0.45532E-08_JPRB,0.89489E-09_JPRB /)  
+KA(:, 2,13, 1) = (/ &
+ & 0.37261E-10_JPRB,0.13712E-08_JPRB,0.15471E-08_JPRB,0.17138E-08_JPRB,0.20333E-08_JPRB, &
+ & 0.24433E-08_JPRB,0.31958E-08_JPRB,0.44925E-08_JPRB,0.11124E-08_JPRB /)  
+KA(:, 3,13, 1) = (/ &
+ & 0.54831E-10_JPRB,0.17238E-08_JPRB,0.19475E-08_JPRB,0.21082E-08_JPRB,0.23003E-08_JPRB, &
+ & 0.27446E-08_JPRB,0.33959E-08_JPRB,0.48947E-08_JPRB,0.13514E-08_JPRB /)  
+KA(:, 4,13, 1) = (/ &
+ & 0.75799E-10_JPRB,0.20971E-08_JPRB,0.23698E-08_JPRB,0.25624E-08_JPRB,0.27143E-08_JPRB, &
+ & 0.29304E-08_JPRB,0.36822E-08_JPRB,0.50589E-08_JPRB,0.16628E-08_JPRB /)  
+KA(:, 5,13, 1) = (/ &
+ & 0.99820E-10_JPRB,0.24745E-08_JPRB,0.28041E-08_JPRB,0.30159E-08_JPRB,0.31995E-08_JPRB, &
+ & 0.33924E-08_JPRB,0.37279E-08_JPRB,0.52074E-08_JPRB,0.20270E-08_JPRB /)  
+KA(:, 1, 1, 2) = (/ &
+ & 0.13785E-07_JPRB,0.24738E-06_JPRB,0.32984E-06_JPRB,0.38970E-06_JPRB,0.43737E-06_JPRB, &
+ & 0.50889E-06_JPRB,0.56985E-06_JPRB,0.52821E-06_JPRB,0.22857E-06_JPRB /)  
+KA(:, 2, 1, 2) = (/ &
+ & 0.15768E-07_JPRB,0.27583E-06_JPRB,0.36371E-06_JPRB,0.42333E-06_JPRB,0.46175E-06_JPRB, &
+ & 0.50608E-06_JPRB,0.57108E-06_JPRB,0.57199E-06_JPRB,0.21992E-06_JPRB /)  
+KA(:, 3, 1, 2) = (/ &
+ & 0.17740E-07_JPRB,0.31295E-06_JPRB,0.41668E-06_JPRB,0.48111E-06_JPRB,0.52105E-06_JPRB, &
+ & 0.56257E-06_JPRB,0.61638E-06_JPRB,0.64253E-06_JPRB,0.25630E-06_JPRB /)  
+KA(:, 4, 1, 2) = (/ &
+ & 0.19676E-07_JPRB,0.33378E-06_JPRB,0.43874E-06_JPRB,0.50021E-06_JPRB,0.53506E-06_JPRB, &
+ & 0.56909E-06_JPRB,0.60800E-06_JPRB,0.63155E-06_JPRB,0.24206E-06_JPRB /)  
+KA(:, 5, 1, 2) = (/ &
+ & 0.21537E-07_JPRB,0.36160E-06_JPRB,0.47596E-06_JPRB,0.54056E-06_JPRB,0.57557E-06_JPRB, &
+ & 0.60002E-06_JPRB,0.61606E-06_JPRB,0.61827E-06_JPRB,0.25207E-06_JPRB /)  
+KA(:, 1, 2, 2) = (/ &
+ & 0.10621E-07_JPRB,0.19636E-06_JPRB,0.26336E-06_JPRB,0.31062E-06_JPRB,0.35012E-06_JPRB, &
+ & 0.41219E-06_JPRB,0.46827E-06_JPRB,0.42345E-06_JPRB,0.16044E-06_JPRB /)  
+KA(:, 2, 2, 2) = (/ &
+ & 0.12238E-07_JPRB,0.21970E-06_JPRB,0.28920E-06_JPRB,0.33755E-06_JPRB,0.37073E-06_JPRB, &
+ & 0.41004E-06_JPRB,0.46315E-06_JPRB,0.45777E-06_JPRB,0.15877E-06_JPRB /)  
+KA(:, 3, 2, 2) = (/ &
+ & 0.13863E-07_JPRB,0.24955E-06_JPRB,0.33252E-06_JPRB,0.38359E-06_JPRB,0.41679E-06_JPRB, &
+ & 0.45237E-06_JPRB,0.50277E-06_JPRB,0.51752E-06_JPRB,0.18617E-06_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART1',1,ZHOOK_HANDLE)
+END SUBROUTINE PART1
+
+
+SUBROUTINE PART2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART2',0,ZHOOK_HANDLE)
+
+
+KA(:, 4, 2, 2) = (/ &
+ & 0.15467E-07_JPRB,0.27294E-06_JPRB,0.36292E-06_JPRB,0.41560E-06_JPRB,0.44818E-06_JPRB, &
+ & 0.47909E-06_JPRB,0.51811E-06_JPRB,0.54528E-06_JPRB,0.19311E-06_JPRB /)  
+KA(:, 5, 2, 2) = (/ &
+ & 0.17013E-07_JPRB,0.28946E-06_JPRB,0.38040E-06_JPRB,0.43177E-06_JPRB,0.46055E-06_JPRB, &
+ & 0.48627E-06_JPRB,0.50036E-06_JPRB,0.50711E-06_JPRB,0.19056E-06_JPRB /)  
+KA(:, 1, 3, 2) = (/ &
+ & 0.79041E-08_JPRB,0.15193E-06_JPRB,0.20367E-06_JPRB,0.24255E-06_JPRB,0.27584E-06_JPRB, &
+ & 0.33106E-06_JPRB,0.39018E-06_JPRB,0.33367E-06_JPRB,0.10147E-06_JPRB /)  
+KA(:, 2, 3, 2) = (/ &
+ & 0.92256E-08_JPRB,0.17005E-06_JPRB,0.22457E-06_JPRB,0.26442E-06_JPRB,0.29755E-06_JPRB, &
+ & 0.33937E-06_JPRB,0.38659E-06_JPRB,0.36019E-06_JPRB,0.10982E-06_JPRB /)  
+KA(:, 3, 3, 2) = (/ &
+ & 0.10548E-07_JPRB,0.18874E-06_JPRB,0.24827E-06_JPRB,0.28648E-06_JPRB,0.31109E-06_JPRB, &
+ & 0.33996E-06_JPRB,0.38319E-06_JPRB,0.38934E-06_JPRB,0.11953E-06_JPRB /)  
+KA(:, 4, 3, 2) = (/ &
+ & 0.11869E-07_JPRB,0.21314E-06_JPRB,0.28402E-06_JPRB,0.32565E-06_JPRB,0.35249E-06_JPRB, &
+ & 0.38039E-06_JPRB,0.41637E-06_JPRB,0.43423E-06_JPRB,0.13779E-06_JPRB /)  
+KA(:, 5, 3, 2) = (/ &
+ & 0.13170E-07_JPRB,0.22682E-06_JPRB,0.29805E-06_JPRB,0.33849E-06_JPRB,0.36193E-06_JPRB, &
+ & 0.38387E-06_JPRB,0.41078E-06_JPRB,0.42298E-06_JPRB,0.13819E-06_JPRB /)  
+KA(:, 1, 4, 2) = (/ &
+ & 0.57872E-08_JPRB,0.11704E-06_JPRB,0.15599E-06_JPRB,0.19092E-06_JPRB,0.22043E-06_JPRB, &
+ & 0.26778E-06_JPRB,0.30128E-06_JPRB,0.25769E-06_JPRB,0.68111E-07_JPRB /)  
+KA(:, 2, 4, 2) = (/ &
+ & 0.68505E-08_JPRB,0.13037E-06_JPRB,0.17389E-06_JPRB,0.20556E-06_JPRB,0.23194E-06_JPRB, &
+ & 0.27485E-06_JPRB,0.31447E-06_JPRB,0.28139E-06_JPRB,0.78259E-07_JPRB /)  
+KA(:, 3, 4, 2) = (/ &
+ & 0.79353E-08_JPRB,0.14574E-06_JPRB,0.19135E-06_JPRB,0.22328E-06_JPRB,0.24623E-06_JPRB, &
+ & 0.27497E-06_JPRB,0.31125E-06_JPRB,0.30440E-06_JPRB,0.85397E-07_JPRB /)  
+KA(:, 4, 4, 2) = (/ &
+ & 0.90207E-08_JPRB,0.16075E-06_JPRB,0.21140E-06_JPRB,0.24210E-06_JPRB,0.26199E-06_JPRB, &
+ & 0.28412E-06_JPRB,0.31832E-06_JPRB,0.32424E-06_JPRB,0.93374E-07_JPRB /)  
+KA(:, 5, 4, 2) = (/ &
+ & 0.10099E-07_JPRB,0.18068E-06_JPRB,0.24072E-06_JPRB,0.27515E-06_JPRB,0.29704E-06_JPRB, &
+ & 0.31830E-06_JPRB,0.34575E-06_JPRB,0.36301E-06_JPRB,0.10959E-06_JPRB /)  
+KA(:, 1, 5, 2) = (/ &
+ & 0.42071E-08_JPRB,0.88799E-07_JPRB,0.11974E-06_JPRB,0.15503E-06_JPRB,0.18473E-06_JPRB, &
+ & 0.21750E-06_JPRB,0.23111E-06_JPRB,0.19568E-06_JPRB,0.47645E-07_JPRB /)  
+KA(:, 2, 5, 2) = (/ &
+ & 0.50589E-08_JPRB,0.10003E-06_JPRB,0.13353E-06_JPRB,0.15994E-06_JPRB,0.18265E-06_JPRB, &
+ & 0.22030E-06_JPRB,0.25851E-06_JPRB,0.22196E-06_JPRB,0.56400E-07_JPRB /)  
+KA(:, 3, 5, 2) = (/ &
+ & 0.59363E-08_JPRB,0.11183E-06_JPRB,0.14743E-06_JPRB,0.17446E-06_JPRB,0.19617E-06_JPRB, &
+ & 0.22887E-06_JPRB,0.25813E-06_JPRB,0.23893E-06_JPRB,0.62471E-07_JPRB /)  
+KA(:, 4, 5, 2) = (/ &
+ & 0.68265E-08_JPRB,0.12408E-06_JPRB,0.16316E-06_JPRB,0.18879E-06_JPRB,0.20540E-06_JPRB, &
+ & 0.22681E-06_JPRB,0.25640E-06_JPRB,0.25817E-06_JPRB,0.69233E-07_JPRB /)  
+KA(:, 5, 5, 2) = (/ &
+ & 0.77164E-08_JPRB,0.14022E-06_JPRB,0.18715E-06_JPRB,0.21470E-06_JPRB,0.23265E-06_JPRB, &
+ & 0.25223E-06_JPRB,0.27783E-06_JPRB,0.28837E-06_JPRB,0.82855E-07_JPRB /)  
+KA(:, 1, 6, 2) = (/ &
+ & 0.30108E-08_JPRB,0.66997E-07_JPRB,0.92811E-07_JPRB,0.12074E-06_JPRB,0.15295E-06_JPRB, &
+ & 0.17839E-06_JPRB,0.17246E-06_JPRB,0.14892E-06_JPRB,0.33739E-07_JPRB /)  
+KA(:, 2, 6, 2) = (/ &
+ & 0.36900E-08_JPRB,0.76605E-07_JPRB,0.10196E-06_JPRB,0.12672E-06_JPRB,0.14857E-06_JPRB, &
+ & 0.17805E-06_JPRB,0.19825E-06_JPRB,0.16899E-06_JPRB,0.40438E-07_JPRB /)  
+KA(:, 3, 6, 2) = (/ &
+ & 0.43974E-08_JPRB,0.85358E-07_JPRB,0.11411E-06_JPRB,0.13507E-06_JPRB,0.15283E-06_JPRB, &
+ & 0.18257E-06_JPRB,0.21172E-06_JPRB,0.18597E-06_JPRB,0.46134E-07_JPRB /)  
+KA(:, 4, 6, 2) = (/ &
+ & 0.51213E-08_JPRB,0.95538E-07_JPRB,0.12544E-06_JPRB,0.14691E-06_JPRB,0.16455E-06_JPRB, &
+ & 0.18481E-06_JPRB,0.20979E-06_JPRB,0.20070E-06_JPRB,0.51618E-07_JPRB /)  
+KA(:, 5, 6, 2) = (/ &
+ & 0.58500E-08_JPRB,0.10543E-06_JPRB,0.13870E-06_JPRB,0.15918E-06_JPRB,0.17259E-06_JPRB, &
+ & 0.18830E-06_JPRB,0.21165E-06_JPRB,0.21507E-06_JPRB,0.58184E-07_JPRB /)  
+KA(:, 1, 7, 2) = (/ &
+ & 0.21343E-08_JPRB,0.50731E-07_JPRB,0.73677E-07_JPRB,0.95876E-07_JPRB,0.12180E-06_JPRB, &
+ & 0.14539E-06_JPRB,0.12792E-06_JPRB,0.11548E-06_JPRB,0.24049E-07_JPRB /)  
+KA(:, 2, 7, 2) = (/ &
+ & 0.26695E-08_JPRB,0.57886E-07_JPRB,0.78431E-07_JPRB,0.10179E-06_JPRB,0.12404E-06_JPRB, &
+ & 0.14498E-06_JPRB,0.15075E-06_JPRB,0.12789E-06_JPRB,0.28929E-07_JPRB /)  
+KA(:, 3, 7, 2) = (/ &
+ & 0.32350E-08_JPRB,0.65356E-07_JPRB,0.87120E-07_JPRB,0.10537E-06_JPRB,0.12108E-06_JPRB, &
+ & 0.14722E-06_JPRB,0.16980E-06_JPRB,0.14529E-06_JPRB,0.34426E-07_JPRB /)  
+KA(:, 4, 7, 2) = (/ &
+ & 0.38202E-08_JPRB,0.73009E-07_JPRB,0.96634E-07_JPRB,0.11454E-06_JPRB,0.12893E-06_JPRB, &
+ & 0.15239E-06_JPRB,0.17280E-06_JPRB,0.15699E-06_JPRB,0.38936E-07_JPRB /)  
+KA(:, 5, 7, 2) = (/ &
+ & 0.44151E-08_JPRB,0.81203E-07_JPRB,0.10676E-06_JPRB,0.12425E-06_JPRB,0.13576E-06_JPRB, &
+ & 0.15119E-06_JPRB,0.17122E-06_JPRB,0.16974E-06_JPRB,0.43692E-07_JPRB /)  
+KA(:, 1, 8, 2) = (/ &
+ & 0.15010E-08_JPRB,0.38595E-07_JPRB,0.58295E-07_JPRB,0.77729E-07_JPRB,0.98683E-07_JPRB, &
+ & 0.10992E-06_JPRB,0.95145E-07_JPRB,0.92252E-07_JPRB,0.17319E-07_JPRB /)  
+KA(:, 2, 8, 2) = (/ &
+ & 0.19201E-08_JPRB,0.43791E-07_JPRB,0.61750E-07_JPRB,0.79921E-07_JPRB,0.10136E-06_JPRB, &
+ & 0.11894E-06_JPRB,0.11276E-06_JPRB,0.97846E-07_JPRB,0.20720E-07_JPRB /)  
+KA(:, 3, 8, 2) = (/ &
+ & 0.23693E-08_JPRB,0.50071E-07_JPRB,0.66873E-07_JPRB,0.85063E-07_JPRB,0.10052E-06_JPRB, &
+ & 0.11892E-06_JPRB,0.13009E-06_JPRB,0.11045E-06_JPRB,0.25527E-07_JPRB /)  
+KA(:, 4, 8, 2) = (/ &
+ & 0.28395E-08_JPRB,0.55947E-07_JPRB,0.74757E-07_JPRB,0.88934E-07_JPRB,0.10114E-06_JPRB, &
+ & 0.12142E-06_JPRB,0.14341E-06_JPRB,0.12281E-06_JPRB,0.28938E-07_JPRB /)  
+KA(:, 5, 8, 2) = (/ &
+ & 0.33227E-08_JPRB,0.62620E-07_JPRB,0.82343E-07_JPRB,0.96807E-07_JPRB,0.10922E-06_JPRB, &
+ & 0.12542E-06_JPRB,0.14247E-06_JPRB,0.13252E-06_JPRB,0.32804E-07_JPRB /)  
+KA(:, 1, 9, 2) = (/ &
+ & 0.10437E-08_JPRB,0.30107E-07_JPRB,0.47694E-07_JPRB,0.63218E-07_JPRB,0.80199E-07_JPRB, &
+ & 0.81465E-07_JPRB,0.70748E-07_JPRB,0.72461E-07_JPRB,0.12620E-07_JPRB /)  
+KA(:, 2, 9, 2) = (/ &
+ & 0.13691E-08_JPRB,0.33315E-07_JPRB,0.48674E-07_JPRB,0.63756E-07_JPRB,0.81165E-07_JPRB, &
+ & 0.96892E-07_JPRB,0.83814E-07_JPRB,0.76311E-07_JPRB,0.14799E-07_JPRB /)  
+KA(:, 3, 9, 2) = (/ &
+ & 0.17229E-08_JPRB,0.37985E-07_JPRB,0.51777E-07_JPRB,0.67272E-07_JPRB,0.83770E-07_JPRB, &
+ & 0.97220E-07_JPRB,0.98951E-07_JPRB,0.84136E-07_JPRB,0.18369E-07_JPRB /)  
+KA(:, 4, 9, 2) = (/ &
+ & 0.20990E-08_JPRB,0.43091E-07_JPRB,0.57320E-07_JPRB,0.69933E-07_JPRB,0.81214E-07_JPRB, &
+ & 0.98518E-07_JPRB,0.11188E-06_JPRB,0.95453E-07_JPRB,0.21724E-07_JPRB /)  
+KA(:, 5, 9, 2) = (/ &
+ & 0.24895E-08_JPRB,0.48030E-07_JPRB,0.63808E-07_JPRB,0.75595E-07_JPRB,0.85237E-07_JPRB, &
+ & 0.10122E-06_JPRB,0.11598E-06_JPRB,0.10350E-06_JPRB,0.24792E-07_JPRB /)  
+KA(:, 1,10, 2) = (/ &
+ & 0.73565E-09_JPRB,0.23201E-07_JPRB,0.38192E-07_JPRB,0.51890E-07_JPRB,0.66677E-07_JPRB, &
+ & 0.60941E-07_JPRB,0.53794E-07_JPRB,0.57060E-07_JPRB,0.95538E-08_JPRB /)  
+KA(:, 2,10, 2) = (/ &
+ & 0.98838E-09_JPRB,0.25706E-07_JPRB,0.38945E-07_JPRB,0.51950E-07_JPRB,0.65881E-07_JPRB, &
+ & 0.73501E-07_JPRB,0.63459E-07_JPRB,0.61276E-07_JPRB,0.10909E-07_JPRB /)  
+KA(:, 3,10, 2) = (/ &
+ & 0.12675E-08_JPRB,0.29153E-07_JPRB,0.41180E-07_JPRB,0.53354E-07_JPRB,0.67729E-07_JPRB, &
+ & 0.79616E-07_JPRB,0.75117E-07_JPRB,0.65122E-07_JPRB,0.13531E-07_JPRB /)  
+KA(:, 4,10, 2) = (/ &
+ & 0.15675E-08_JPRB,0.33329E-07_JPRB,0.44560E-07_JPRB,0.57066E-07_JPRB,0.67627E-07_JPRB, &
+ & 0.79638E-07_JPRB,0.86678E-07_JPRB,0.73448E-07_JPRB,0.16804E-07_JPRB /)  
+KA(:, 5,10, 2) = (/ &
+ & 0.18817E-08_JPRB,0.37257E-07_JPRB,0.49746E-07_JPRB,0.59306E-07_JPRB,0.67554E-07_JPRB, &
+ & 0.81218E-07_JPRB,0.96337E-07_JPRB,0.82154E-07_JPRB,0.18958E-07_JPRB /)  
+KA(:, 1,11, 2) = (/ &
+ & 0.60140E-09_JPRB,0.19007E-07_JPRB,0.31253E-07_JPRB,0.42433E-07_JPRB,0.54566E-07_JPRB, &
+ & 0.50044E-07_JPRB,0.44177E-07_JPRB,0.46695E-07_JPRB,0.77009E-08_JPRB /)  
+KA(:, 2,11, 2) = (/ &
+ & 0.80782E-09_JPRB,0.21033E-07_JPRB,0.31865E-07_JPRB,0.42505E-07_JPRB,0.53930E-07_JPRB, &
+ & 0.60271E-07_JPRB,0.51969E-07_JPRB,0.49836E-07_JPRB,0.88971E-08_JPRB /)  
+KA(:, 3,11, 2) = (/ &
+ & 0.10365E-08_JPRB,0.23860E-07_JPRB,0.33711E-07_JPRB,0.43668E-07_JPRB,0.55447E-07_JPRB, &
+ & 0.65129E-07_JPRB,0.61514E-07_JPRB,0.53242E-07_JPRB,0.11044E-07_JPRB /)  
+KA(:, 4,11, 2) = (/ &
+ & 0.12819E-08_JPRB,0.27278E-07_JPRB,0.36477E-07_JPRB,0.46671E-07_JPRB,0.55334E-07_JPRB, &
+ & 0.65191E-07_JPRB,0.70955E-07_JPRB,0.60123E-07_JPRB,0.13732E-07_JPRB /)  
+KA(:, 5,11, 2) = (/ &
+ & 0.15394E-08_JPRB,0.30488E-07_JPRB,0.40723E-07_JPRB,0.48551E-07_JPRB,0.55301E-07_JPRB, &
+ & 0.66490E-07_JPRB,0.78877E-07_JPRB,0.67264E-07_JPRB,0.15488E-07_JPRB /)  
+KA(:, 1,12, 2) = (/ &
+ & 0.49234E-09_JPRB,0.15554E-07_JPRB,0.25575E-07_JPRB,0.34616E-07_JPRB,0.44615E-07_JPRB, &
+ & 0.41056E-07_JPRB,0.36097E-07_JPRB,0.38091E-07_JPRB,0.62448E-08_JPRB /)  
+KA(:, 2,12, 2) = (/ &
+ & 0.66141E-09_JPRB,0.17225E-07_JPRB,0.26080E-07_JPRB,0.34787E-07_JPRB,0.44118E-07_JPRB, &
+ & 0.49432E-07_JPRB,0.42531E-07_JPRB,0.40718E-07_JPRB,0.72624E-08_JPRB /)  
+KA(:, 3,12, 2) = (/ &
+ & 0.84839E-09_JPRB,0.19539E-07_JPRB,0.27604E-07_JPRB,0.35754E-07_JPRB,0.45370E-07_JPRB, &
+ & 0.53306E-07_JPRB,0.50418E-07_JPRB,0.43565E-07_JPRB,0.90256E-08_JPRB /)  
+KA(:, 4,12, 2) = (/ &
+ & 0.10495E-08_JPRB,0.22342E-07_JPRB,0.29867E-07_JPRB,0.38196E-07_JPRB,0.45322E-07_JPRB, &
+ & 0.53368E-07_JPRB,0.58112E-07_JPRB,0.49244E-07_JPRB,0.11197E-07_JPRB /)  
+KA(:, 5,12, 2) = (/ &
+ & 0.12604E-08_JPRB,0.24969E-07_JPRB,0.33348E-07_JPRB,0.39742E-07_JPRB,0.45269E-07_JPRB, &
+ & 0.54454E-07_JPRB,0.64580E-07_JPRB,0.55079E-07_JPRB,0.12657E-07_JPRB /)  
+KA(:, 1,13, 2) = (/ &
+ & 0.40306E-09_JPRB,0.12738E-07_JPRB,0.20936E-07_JPRB,0.28312E-07_JPRB,0.36505E-07_JPRB, &
+ & 0.33674E-07_JPRB,0.29525E-07_JPRB,0.31139E-07_JPRB,0.51040E-08_JPRB /)  
+KA(:, 2,13, 2) = (/ &
+ & 0.54151E-09_JPRB,0.14106E-07_JPRB,0.21346E-07_JPRB,0.28471E-07_JPRB,0.36139E-07_JPRB, &
+ & 0.40516E-07_JPRB,0.34830E-07_JPRB,0.33325E-07_JPRB,0.59425E-08_JPRB /)  
+KA(:, 3,13, 2) = (/ &
+ & 0.69468E-09_JPRB,0.15999E-07_JPRB,0.22600E-07_JPRB,0.29268E-07_JPRB,0.37150E-07_JPRB, &
+ & 0.43635E-07_JPRB,0.41297E-07_JPRB,0.35646E-07_JPRB,0.73862E-08_JPRB /)  
+KA(:, 4,13, 2) = (/ &
+ & 0.85913E-09_JPRB,0.18290E-07_JPRB,0.24452E-07_JPRB,0.31282E-07_JPRB,0.37096E-07_JPRB, &
+ & 0.43709E-07_JPRB,0.47585E-07_JPRB,0.40319E-07_JPRB,0.91581E-08_JPRB /)  
+KA(:, 5,13, 2) = (/ &
+ & 0.10319E-08_JPRB,0.20440E-07_JPRB,0.27299E-07_JPRB,0.32532E-07_JPRB,0.37047E-07_JPRB, &
+ & 0.44575E-07_JPRB,0.52880E-07_JPRB,0.45086E-07_JPRB,0.10367E-07_JPRB /)  
+KA(:, 1, 1, 3) = (/ &
+ & 0.77542E-07_JPRB,0.72331E-06_JPRB,0.98561E-06_JPRB,0.11860E-05_JPRB,0.13497E-05_JPRB, &
+ & 0.13448E-05_JPRB,0.13214E-05_JPRB,0.14401E-05_JPRB,0.51217E-06_JPRB /)  
+KA(:, 2, 1, 3) = (/ &
+ & 0.83965E-07_JPRB,0.81202E-06_JPRB,0.11096E-05_JPRB,0.13150E-05_JPRB,0.14966E-05_JPRB, &
+ & 0.14837E-05_JPRB,0.13715E-05_JPRB,0.14446E-05_JPRB,0.53558E-06_JPRB /)  
+KA(:, 3, 1, 3) = (/ &
+ & 0.89893E-07_JPRB,0.91147E-06_JPRB,0.12494E-05_JPRB,0.14817E-05_JPRB,0.16581E-05_JPRB, &
+ & 0.16379E-05_JPRB,0.14913E-05_JPRB,0.13540E-05_JPRB,0.57527E-06_JPRB /)  
+KA(:, 4, 1, 3) = (/ &
+ & 0.95336E-07_JPRB,0.98977E-06_JPRB,0.13580E-05_JPRB,0.16044E-05_JPRB,0.17602E-05_JPRB, &
+ & 0.17289E-05_JPRB,0.15601E-05_JPRB,0.13435E-05_JPRB,0.60153E-06_JPRB /)  
+KA(:, 5, 1, 3) = (/ &
+ & 0.10024E-06_JPRB,0.10817E-05_JPRB,0.14820E-05_JPRB,0.17354E-05_JPRB,0.18806E-05_JPRB, &
+ & 0.18468E-05_JPRB,0.16817E-05_JPRB,0.14550E-05_JPRB,0.63092E-06_JPRB /)  
+KA(:, 1, 2, 3) = (/ &
+ & 0.61222E-07_JPRB,0.57382E-06_JPRB,0.78272E-06_JPRB,0.94950E-06_JPRB,0.10796E-05_JPRB, &
+ & 0.10829E-05_JPRB,0.10794E-05_JPRB,0.12292E-05_JPRB,0.35440E-06_JPRB /)  
+KA(:, 2, 2, 3) = (/ &
+ & 0.66652E-07_JPRB,0.64604E-06_JPRB,0.88511E-06_JPRB,0.10523E-05_JPRB,0.12028E-05_JPRB, &
+ & 0.11924E-05_JPRB,0.11103E-05_JPRB,0.11987E-05_JPRB,0.38232E-06_JPRB /)  
+KA(:, 3, 2, 3) = (/ &
+ & 0.71672E-07_JPRB,0.73084E-06_JPRB,0.10012E-05_JPRB,0.11880E-05_JPRB,0.13384E-05_JPRB, &
+ & 0.13220E-05_JPRB,0.12030E-05_JPRB,0.11381E-05_JPRB,0.43262E-06_JPRB /)  
+KA(:, 4, 2, 3) = (/ &
+ & 0.76301E-07_JPRB,0.80259E-06_JPRB,0.11033E-05_JPRB,0.13071E-05_JPRB,0.14343E-05_JPRB, &
+ & 0.14171E-05_JPRB,0.12785E-05_JPRB,0.11080E-05_JPRB,0.46030E-06_JPRB /)  
+KA(:, 5, 2, 3) = (/ &
+ & 0.80500E-07_JPRB,0.87105E-06_JPRB,0.11939E-05_JPRB,0.14005E-05_JPRB,0.15153E-05_JPRB, &
+ & 0.14864E-05_JPRB,0.13529E-05_JPRB,0.11688E-05_JPRB,0.48117E-06_JPRB /)  
+KA(:, 1, 3, 3) = (/ &
+ & 0.47304E-07_JPRB,0.44051E-06_JPRB,0.60584E-06_JPRB,0.74769E-06_JPRB,0.84468E-06_JPRB, &
+ & 0.85077E-06_JPRB,0.85665E-06_JPRB,0.10494E-05_JPRB,0.24668E-06_JPRB /)  
+KA(:, 2, 3, 3) = (/ &
+ & 0.51943E-07_JPRB,0.50181E-06_JPRB,0.68762E-06_JPRB,0.82034E-06_JPRB,0.93657E-06_JPRB, &
+ & 0.92789E-06_JPRB,0.88766E-06_JPRB,0.99297E-06_JPRB,0.26836E-06_JPRB /)  
+KA(:, 3, 3, 3) = (/ &
+ & 0.56252E-07_JPRB,0.56363E-06_JPRB,0.77259E-06_JPRB,0.91469E-06_JPRB,0.10403E-05_JPRB, &
+ & 0.10243E-05_JPRB,0.93713E-06_JPRB,0.99098E-06_JPRB,0.29882E-06_JPRB /)  
+KA(:, 4, 3, 3) = (/ &
+ & 0.60224E-07_JPRB,0.63130E-06_JPRB,0.86724E-06_JPRB,0.10288E-05_JPRB,0.11344E-05_JPRB, &
+ & 0.11222E-05_JPRB,0.10162E-05_JPRB,0.91320E-06_JPRB,0.33854E-06_JPRB /)  
+KA(:, 5, 3, 3) = (/ &
+ & 0.63868E-07_JPRB,0.68673E-06_JPRB,0.94084E-06_JPRB,0.11069E-05_JPRB,0.12001E-05_JPRB, &
+ & 0.11819E-05_JPRB,0.10625E-05_JPRB,0.91639E-06_JPRB,0.36042E-06_JPRB /)  
+KA(:, 1, 4, 3) = (/ &
+ & 0.36151E-07_JPRB,0.33292E-06_JPRB,0.46957E-06_JPRB,0.57176E-06_JPRB,0.64965E-06_JPRB, &
+ & 0.66578E-06_JPRB,0.71030E-06_JPRB,0.90686E-06_JPRB,0.17407E-06_JPRB /)  
+KA(:, 2, 4, 3) = (/ &
+ & 0.40107E-07_JPRB,0.38424E-06_JPRB,0.52571E-06_JPRB,0.63554E-06_JPRB,0.72553E-06_JPRB, &
+ & 0.72856E-06_JPRB,0.72697E-06_JPRB,0.84339E-06_JPRB,0.19253E-06_JPRB /)  
+KA(:, 3, 4, 3) = (/ &
+ & 0.43816E-07_JPRB,0.43401E-06_JPRB,0.59546E-06_JPRB,0.70644E-06_JPRB,0.80752E-06_JPRB, &
+ & 0.79519E-06_JPRB,0.74520E-06_JPRB,0.81506E-06_JPRB,0.21830E-06_JPRB /)  
+KA(:, 4, 4, 3) = (/ &
+ & 0.47242E-07_JPRB,0.48695E-06_JPRB,0.66577E-06_JPRB,0.78531E-06_JPRB,0.87970E-06_JPRB, &
+ & 0.86799E-06_JPRB,0.78705E-06_JPRB,0.76812E-06_JPRB,0.24161E-06_JPRB /)  
+KA(:, 5, 4, 3) = (/ &
+ & 0.50394E-07_JPRB,0.54183E-06_JPRB,0.74240E-06_JPRB,0.87572E-06_JPRB,0.95669E-06_JPRB, &
+ & 0.94640E-06_JPRB,0.85379E-06_JPRB,0.74722E-06_JPRB,0.28102E-06_JPRB /)  
+KA(:, 1, 5, 3) = (/ &
+ & 0.27462E-07_JPRB,0.25134E-06_JPRB,0.35698E-06_JPRB,0.43146E-06_JPRB,0.48552E-06_JPRB, &
+ & 0.53177E-06_JPRB,0.62976E-06_JPRB,0.75904E-06_JPRB,0.12452E-06_JPRB /)  
+KA(:, 2, 5, 3) = (/ &
+ & 0.30835E-07_JPRB,0.29261E-06_JPRB,0.40164E-06_JPRB,0.49701E-06_JPRB,0.56250E-06_JPRB, &
+ & 0.56722E-06_JPRB,0.57761E-06_JPRB,0.72004E-06_JPRB,0.13996E-06_JPRB /)  
+KA(:, 3, 5, 3) = (/ &
+ & 0.33997E-07_JPRB,0.33394E-06_JPRB,0.45684E-06_JPRB,0.54380E-06_JPRB,0.62140E-06_JPRB, &
+ & 0.61241E-06_JPRB,0.60037E-06_JPRB,0.67265E-06_JPRB,0.16106E-06_JPRB /)  
+KA(:, 4, 5, 3) = (/ &
+ & 0.36946E-07_JPRB,0.37590E-06_JPRB,0.51390E-06_JPRB,0.60628E-06_JPRB,0.69027E-06_JPRB, &
+ & 0.67692E-06_JPRB,0.62237E-06_JPRB,0.67035E-06_JPRB,0.18128E-06_JPRB /)  
+KA(:, 5, 5, 3) = (/ &
+ & 0.39670E-07_JPRB,0.42211E-06_JPRB,0.57710E-06_JPRB,0.68190E-06_JPRB,0.75209E-06_JPRB, &
+ & 0.74450E-06_JPRB,0.67496E-06_JPRB,0.61709E-06_JPRB,0.21416E-06_JPRB /)  
+KA(:, 1, 6, 3) = (/ &
+ & 0.20602E-07_JPRB,0.18703E-06_JPRB,0.26972E-06_JPRB,0.33456E-06_JPRB,0.36532E-06_JPRB, &
+ & 0.42767E-06_JPRB,0.56721E-06_JPRB,0.66482E-06_JPRB,0.87936E-07_JPRB /)  
+KA(:, 2, 6, 3) = (/ &
+ & 0.23484E-07_JPRB,0.21971E-06_JPRB,0.30953E-06_JPRB,0.37643E-06_JPRB,0.42627E-06_JPRB, &
+ & 0.44517E-06_JPRB,0.48560E-06_JPRB,0.61604E-06_JPRB,0.10185E-06_JPRB /)  
+KA(:, 3, 6, 3) = (/ &
+ & 0.26181E-07_JPRB,0.25382E-06_JPRB,0.34607E-06_JPRB,0.41971E-06_JPRB,0.47851E-06_JPRB, &
+ & 0.48129E-06_JPRB,0.48156E-06_JPRB,0.56916E-06_JPRB,0.11864E-06_JPRB /)  
+KA(:, 4, 6, 3) = (/ &
+ & 0.28705E-07_JPRB,0.28735E-06_JPRB,0.39181E-06_JPRB,0.46499E-06_JPRB,0.52971E-06_JPRB, &
+ & 0.52262E-06_JPRB,0.49397E-06_JPRB,0.54792E-06_JPRB,0.13605E-06_JPRB /)  
+KA(:, 5, 6, 3) = (/ &
+ & 0.31065E-07_JPRB,0.32265E-06_JPRB,0.43948E-06_JPRB,0.51712E-06_JPRB,0.58131E-06_JPRB, &
+ & 0.57275E-06_JPRB,0.52154E-06_JPRB,0.53300E-06_JPRB,0.15326E-06_JPRB /)  
+KA(:, 1, 7, 3) = (/ &
+ & 0.15315E-07_JPRB,0.13867E-06_JPRB,0.20497E-06_JPRB,0.25791E-06_JPRB,0.28251E-06_JPRB, &
+ & 0.36209E-06_JPRB,0.48615E-06_JPRB,0.57617E-06_JPRB,0.62083E-07_JPRB /)  
+KA(:, 2, 7, 3) = (/ &
+ & 0.17770E-07_JPRB,0.16467E-06_JPRB,0.23430E-06_JPRB,0.28445E-06_JPRB,0.31749E-06_JPRB, &
+ & 0.35373E-06_JPRB,0.43530E-06_JPRB,0.51750E-06_JPRB,0.74598E-07_JPRB /)  
+KA(:, 3, 7, 3) = (/ &
+ & 0.20071E-07_JPRB,0.19194E-06_JPRB,0.26349E-06_JPRB,0.32575E-06_JPRB,0.37090E-06_JPRB, &
+ & 0.37391E-06_JPRB,0.38838E-06_JPRB,0.49613E-06_JPRB,0.88392E-07_JPRB /)  
+KA(:, 4, 7, 3) = (/ &
+ & 0.22230E-07_JPRB,0.21953E-06_JPRB,0.29840E-06_JPRB,0.35680E-06_JPRB,0.40841E-06_JPRB, &
+ & 0.40516E-06_JPRB,0.40513E-06_JPRB,0.45518E-06_JPRB,0.10149E-06_JPRB /)  
+KA(:, 5, 7, 3) = (/ &
+ & 0.24244E-07_JPRB,0.24730E-06_JPRB,0.33583E-06_JPRB,0.39740E-06_JPRB,0.45364E-06_JPRB, &
+ & 0.44496E-06_JPRB,0.41471E-06_JPRB,0.45022E-06_JPRB,0.11554E-06_JPRB /)  
+KA(:, 1, 8, 3) = (/ &
+ & 0.11318E-07_JPRB,0.10309E-06_JPRB,0.15679E-06_JPRB,0.19765E-06_JPRB,0.22300E-06_JPRB, &
+ & 0.30242E-06_JPRB,0.40824E-06_JPRB,0.49442E-06_JPRB,0.44061E-07_JPRB /)  
+KA(:, 2, 8, 3) = (/ &
+ & 0.13358E-07_JPRB,0.12273E-06_JPRB,0.17705E-06_JPRB,0.22062E-06_JPRB,0.24115E-06_JPRB, &
+ & 0.28999E-06_JPRB,0.39012E-06_JPRB,0.45451E-06_JPRB,0.54847E-07_JPRB /)  
+KA(:, 3, 8, 3) = (/ &
+ & 0.15323E-07_JPRB,0.14448E-06_JPRB,0.20316E-06_JPRB,0.24566E-06_JPRB,0.27787E-06_JPRB, &
+ & 0.29655E-06_JPRB,0.33237E-06_JPRB,0.41480E-06_JPRB,0.64157E-07_JPRB /)  
+KA(:, 4, 8, 3) = (/ &
+ & 0.17158E-07_JPRB,0.16673E-06_JPRB,0.22673E-06_JPRB,0.27760E-06_JPRB,0.31491E-06_JPRB, &
+ & 0.31778E-06_JPRB,0.31818E-06_JPRB,0.38422E-06_JPRB,0.75698E-07_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART2',1,ZHOOK_HANDLE)
+END SUBROUTINE PART2
+
+
+SUBROUTINE PART3
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART3',0,ZHOOK_HANDLE)
+
+
+KA(:, 5, 8, 3) = (/ &
+ & 0.18880E-07_JPRB,0.18905E-06_JPRB,0.25711E-06_JPRB,0.30558E-06_JPRB,0.34820E-06_JPRB, &
+ & 0.34226E-06_JPRB,0.32757E-06_JPRB,0.36903E-06_JPRB,0.87559E-07_JPRB /)  
+KA(:, 1, 9, 3) = (/ &
+ & 0.83060E-08_JPRB,0.76710E-07_JPRB,0.11565E-06_JPRB,0.14764E-06_JPRB,0.17329E-06_JPRB, &
+ & 0.25783E-06_JPRB,0.35957E-06_JPRB,0.41243E-06_JPRB,0.31797E-07_JPRB /)  
+KA(:, 2, 9, 3) = (/ &
+ & 0.99651E-08_JPRB,0.91242E-07_JPRB,0.13632E-06_JPRB,0.17065E-06_JPRB,0.18967E-06_JPRB, &
+ & 0.24393E-06_JPRB,0.32914E-06_JPRB,0.39160E-06_JPRB,0.39225E-07_JPRB /)  
+KA(:, 3, 9, 3) = (/ &
+ & 0.11621E-07_JPRB,0.10845E-06_JPRB,0.15426E-06_JPRB,0.18813E-06_JPRB,0.20803E-06_JPRB, &
+ & 0.23565E-06_JPRB,0.29600E-06_JPRB,0.35083E-06_JPRB,0.47417E-07_JPRB /)  
+KA(:, 4, 9, 3) = (/ &
+ & 0.13182E-07_JPRB,0.12617E-06_JPRB,0.17363E-06_JPRB,0.21434E-06_JPRB,0.24338E-06_JPRB, &
+ & 0.24767E-06_JPRB,0.26174E-06_JPRB,0.33967E-06_JPRB,0.56851E-07_JPRB /)  
+KA(:, 5, 9, 3) = (/ &
+ & 0.14647E-07_JPRB,0.14462E-06_JPRB,0.19609E-06_JPRB,0.23554E-06_JPRB,0.26966E-06_JPRB, &
+ & 0.27000E-06_JPRB,0.26860E-06_JPRB,0.30941E-06_JPRB,0.65848E-07_JPRB /)  
+KA(:, 1,10, 3) = (/ &
+ & 0.61513E-08_JPRB,0.59201E-07_JPRB,0.89564E-07_JPRB,0.11096E-06_JPRB,0.13963E-06_JPRB, &
+ & 0.22868E-06_JPRB,0.30519E-06_JPRB,0.34949E-06_JPRB,0.23910E-07_JPRB /)  
+KA(:, 2,10, 3) = (/ &
+ & 0.74969E-08_JPRB,0.68921E-07_JPRB,0.10513E-06_JPRB,0.13256E-06_JPRB,0.14959E-06_JPRB, &
+ & 0.20339E-06_JPRB,0.27500E-06_JPRB,0.33281E-06_JPRB,0.28611E-07_JPRB /)  
+KA(:, 3,10, 3) = (/ &
+ & 0.88625E-08_JPRB,0.82016E-07_JPRB,0.11818E-06_JPRB,0.14725E-06_JPRB,0.16097E-06_JPRB, &
+ & 0.19608E-06_JPRB,0.26185E-06_JPRB,0.30530E-06_JPRB,0.35935E-07_JPRB /)  
+KA(:, 4,10, 3) = (/ &
+ & 0.10184E-07_JPRB,0.96432E-07_JPRB,0.13542E-06_JPRB,0.16348E-06_JPRB,0.18477E-06_JPRB, &
+ & 0.19886E-06_JPRB,0.22449E-06_JPRB,0.27787E-06_JPRB,0.42133E-07_JPRB /)  
+KA(:, 5,10, 3) = (/ &
+ & 0.11421E-07_JPRB,0.11117E-06_JPRB,0.15107E-06_JPRB,0.18528E-06_JPRB,0.21005E-06_JPRB, &
+ & 0.21209E-06_JPRB,0.21257E-06_JPRB,0.25796E-06_JPRB,0.49988E-07_JPRB /)  
+KA(:, 1,11, 3) = (/ &
+ & 0.50310E-08_JPRB,0.48563E-07_JPRB,0.73473E-07_JPRB,0.91094E-07_JPRB,0.11455E-06_JPRB, &
+ & 0.18734E-06_JPRB,0.24995E-06_JPRB,0.28620E-06_JPRB,0.19440E-07_JPRB /)  
+KA(:, 2,11, 3) = (/ &
+ & 0.61304E-08_JPRB,0.56532E-07_JPRB,0.86340E-07_JPRB,0.10878E-06_JPRB,0.12244E-06_JPRB, &
+ & 0.16646E-06_JPRB,0.22541E-06_JPRB,0.27316E-06_JPRB,0.23338E-07_JPRB /)  
+KA(:, 3,11, 3) = (/ &
+ & 0.72491E-08_JPRB,0.67226E-07_JPRB,0.96798E-07_JPRB,0.12061E-06_JPRB,0.13181E-06_JPRB, &
+ & 0.16043E-06_JPRB,0.21436E-06_JPRB,0.24928E-06_JPRB,0.29352E-07_JPRB /)  
+KA(:, 4,11, 3) = (/ &
+ & 0.83326E-08_JPRB,0.78998E-07_JPRB,0.11085E-06_JPRB,0.13391E-06_JPRB,0.15135E-06_JPRB, &
+ & 0.16281E-06_JPRB,0.18360E-06_JPRB,0.22741E-06_JPRB,0.34425E-07_JPRB /)  
+KA(:, 5,11, 3) = (/ &
+ & 0.93458E-08_JPRB,0.91055E-07_JPRB,0.12364E-06_JPRB,0.15181E-06_JPRB,0.17196E-06_JPRB, &
+ & 0.17367E-06_JPRB,0.17400E-06_JPRB,0.21108E-06_JPRB,0.40855E-07_JPRB /)  
+KA(:, 1,12, 3) = (/ &
+ & 0.41189E-08_JPRB,0.39856E-07_JPRB,0.60140E-07_JPRB,0.74963E-07_JPRB,0.94012E-07_JPRB, &
+ & 0.15333E-06_JPRB,0.20441E-06_JPRB,0.23474E-06_JPRB,0.15853E-07_JPRB /)  
+KA(:, 2,12, 3) = (/ &
+ & 0.50193E-08_JPRB,0.46348E-07_JPRB,0.70855E-07_JPRB,0.89301E-07_JPRB,0.10040E-06_JPRB, &
+ & 0.13626E-06_JPRB,0.18429E-06_JPRB,0.22399E-06_JPRB,0.19078E-07_JPRB /)  
+KA(:, 3,12, 3) = (/ &
+ & 0.59344E-08_JPRB,0.55100E-07_JPRB,0.79255E-07_JPRB,0.98783E-07_JPRB,0.10799E-06_JPRB, &
+ & 0.13125E-06_JPRB,0.17544E-06_JPRB,0.20357E-06_JPRB,0.24013E-07_JPRB /)  
+KA(:, 4,12, 3) = (/ &
+ & 0.68228E-08_JPRB,0.64743E-07_JPRB,0.90843E-07_JPRB,0.10971E-06_JPRB,0.12396E-06_JPRB, &
+ & 0.13321E-06_JPRB,0.15026E-06_JPRB,0.18611E-06_JPRB,0.28198E-07_JPRB /)  
+KA(:, 5,12, 3) = (/ &
+ & 0.76512E-08_JPRB,0.74591E-07_JPRB,0.10123E-06_JPRB,0.12433E-06_JPRB,0.14085E-06_JPRB, &
+ & 0.14222E-06_JPRB,0.14246E-06_JPRB,0.17276E-06_JPRB,0.33441E-07_JPRB /)  
+KA(:, 1,13, 3) = (/ &
+ & 0.33724E-08_JPRB,0.32680E-07_JPRB,0.49222E-07_JPRB,0.61513E-07_JPRB,0.77133E-07_JPRB, &
+ & 0.12555E-06_JPRB,0.16713E-06_JPRB,0.19233E-06_JPRB,0.12966E-07_JPRB /)  
+KA(:, 2,13, 3) = (/ &
+ & 0.41100E-08_JPRB,0.37987E-07_JPRB,0.58121E-07_JPRB,0.73233E-07_JPRB,0.82218E-07_JPRB, &
+ & 0.11156E-06_JPRB,0.15077E-06_JPRB,0.18269E-06_JPRB,0.15614E-07_JPRB /)  
+KA(:, 3,13, 3) = (/ &
+ & 0.48589E-08_JPRB,0.45157E-07_JPRB,0.64912E-07_JPRB,0.80902E-07_JPRB,0.88466E-07_JPRB, &
+ & 0.10747E-06_JPRB,0.14360E-06_JPRB,0.16616E-06_JPRB,0.19653E-07_JPRB /)  
+KA(:, 4,13, 3) = (/ &
+ & 0.55845E-08_JPRB,0.53032E-07_JPRB,0.74357E-07_JPRB,0.89835E-07_JPRB,0.10150E-06_JPRB, &
+ & 0.10902E-06_JPRB,0.12309E-06_JPRB,0.15231E-06_JPRB,0.23083E-07_JPRB /)  
+KA(:, 5,13, 3) = (/ &
+ & 0.62642E-08_JPRB,0.61086E-07_JPRB,0.82886E-07_JPRB,0.10172E-06_JPRB,0.11529E-06_JPRB, &
+ & 0.11645E-06_JPRB,0.11667E-06_JPRB,0.14140E-06_JPRB,0.27368E-07_JPRB /)  
+KA(:, 1, 1, 4) = (/ &
+ & 0.38523E-06_JPRB,0.18405E-05_JPRB,0.24561E-05_JPRB,0.26688E-05_JPRB,0.26627E-05_JPRB, &
+ & 0.26678E-05_JPRB,0.26221E-05_JPRB,0.23434E-05_JPRB,0.10243E-05_JPRB /)  
+KA(:, 2, 1, 4) = (/ &
+ & 0.41258E-06_JPRB,0.20340E-05_JPRB,0.26799E-05_JPRB,0.29289E-05_JPRB,0.29138E-05_JPRB, &
+ & 0.29293E-05_JPRB,0.29106E-05_JPRB,0.25138E-05_JPRB,0.11179E-05_JPRB /)  
+KA(:, 3, 1, 4) = (/ &
+ & 0.43826E-06_JPRB,0.22391E-05_JPRB,0.29055E-05_JPRB,0.31733E-05_JPRB,0.31848E-05_JPRB, &
+ & 0.32210E-05_JPRB,0.31726E-05_JPRB,0.29277E-05_JPRB,0.13122E-05_JPRB /)  
+KA(:, 4, 1, 4) = (/ &
+ & 0.46214E-06_JPRB,0.24098E-05_JPRB,0.30735E-05_JPRB,0.33543E-05_JPRB,0.34157E-05_JPRB, &
+ & 0.34436E-05_JPRB,0.34008E-05_JPRB,0.32157E-05_JPRB,0.14111E-05_JPRB /)  
+KA(:, 5, 1, 4) = (/ &
+ & 0.48360E-06_JPRB,0.25684E-05_JPRB,0.32470E-05_JPRB,0.35527E-05_JPRB,0.36650E-05_JPRB, &
+ & 0.37054E-05_JPRB,0.36463E-05_JPRB,0.35130E-05_JPRB,0.16128E-05_JPRB /)  
+KA(:, 1, 2, 4) = (/ &
+ & 0.30632E-06_JPRB,0.14811E-05_JPRB,0.19813E-05_JPRB,0.21525E-05_JPRB,0.21480E-05_JPRB, &
+ & 0.21651E-05_JPRB,0.21352E-05_JPRB,0.19097E-05_JPRB,0.76078E-06_JPRB /)  
+KA(:, 2, 2, 4) = (/ &
+ & 0.32924E-06_JPRB,0.16454E-05_JPRB,0.21736E-05_JPRB,0.23701E-05_JPRB,0.23496E-05_JPRB, &
+ & 0.23721E-05_JPRB,0.23664E-05_JPRB,0.20501E-05_JPRB,0.85884E-06_JPRB /)  
+KA(:, 3, 2, 4) = (/ &
+ & 0.35084E-06_JPRB,0.18164E-05_JPRB,0.23625E-05_JPRB,0.25754E-05_JPRB,0.25799E-05_JPRB, &
+ & 0.26089E-05_JPRB,0.25758E-05_JPRB,0.23569E-05_JPRB,0.98156E-06_JPRB /)  
+KA(:, 4, 2, 4) = (/ &
+ & 0.37092E-06_JPRB,0.19724E-05_JPRB,0.25182E-05_JPRB,0.27461E-05_JPRB,0.27987E-05_JPRB, &
+ & 0.28122E-05_JPRB,0.27766E-05_JPRB,0.26535E-05_JPRB,0.11297E-05_JPRB /)  
+KA(:, 5, 2, 4) = (/ &
+ & 0.38936E-06_JPRB,0.20952E-05_JPRB,0.26519E-05_JPRB,0.29005E-05_JPRB,0.29889E-05_JPRB, &
+ & 0.30120E-05_JPRB,0.29564E-05_JPRB,0.28641E-05_JPRB,0.12488E-05_JPRB /)  
+KA(:, 1, 3, 4) = (/ &
+ & 0.23924E-06_JPRB,0.11590E-05_JPRB,0.15536E-05_JPRB,0.16834E-05_JPRB,0.16891E-05_JPRB, &
+ & 0.17668E-05_JPRB,0.16904E-05_JPRB,0.15951E-05_JPRB,0.52632E-06_JPRB /)  
+KA(:, 2, 3, 4) = (/ &
+ & 0.25864E-06_JPRB,0.12971E-05_JPRB,0.17221E-05_JPRB,0.18731E-05_JPRB,0.18563E-05_JPRB, &
+ & 0.18804E-05_JPRB,0.18628E-05_JPRB,0.16576E-05_JPRB,0.62738E-06_JPRB /)  
+KA(:, 3, 3, 4) = (/ &
+ & 0.27696E-06_JPRB,0.14325E-05_JPRB,0.18710E-05_JPRB,0.20345E-05_JPRB,0.20276E-05_JPRB, &
+ & 0.20548E-05_JPRB,0.20259E-05_JPRB,0.17837E-05_JPRB,0.70461E-06_JPRB /)  
+KA(:, 4, 3, 4) = (/ &
+ & 0.29413E-06_JPRB,0.15757E-05_JPRB,0.20191E-05_JPRB,0.22050E-05_JPRB,0.22319E-05_JPRB, &
+ & 0.22354E-05_JPRB,0.22195E-05_JPRB,0.20885E-05_JPRB,0.84521E-06_JPRB /)  
+KA(:, 5, 3, 4) = (/ &
+ & 0.31013E-06_JPRB,0.16829E-05_JPRB,0.21333E-05_JPRB,0.23274E-05_JPRB,0.23871E-05_JPRB, &
+ & 0.23939E-05_JPRB,0.23475E-05_JPRB,0.22805E-05_JPRB,0.93762E-06_JPRB /)  
+KA(:, 1, 4, 4) = (/ &
+ & 0.18537E-06_JPRB,0.89469E-06_JPRB,0.11953E-05_JPRB,0.13099E-05_JPRB,0.13271E-05_JPRB, &
+ & 0.13910E-05_JPRB,0.13233E-05_JPRB,0.12842E-05_JPRB,0.37595E-06_JPRB /)  
+KA(:, 2, 4, 4) = (/ &
+ & 0.20178E-06_JPRB,0.10096E-05_JPRB,0.13476E-05_JPRB,0.14636E-05_JPRB,0.14567E-05_JPRB, &
+ & 0.14730E-05_JPRB,0.14642E-05_JPRB,0.13131E-05_JPRB,0.45273E-06_JPRB /)  
+KA(:, 3, 4, 4) = (/ &
+ & 0.21732E-06_JPRB,0.11251E-05_JPRB,0.14779E-05_JPRB,0.16107E-05_JPRB,0.15945E-05_JPRB, &
+ & 0.16194E-05_JPRB,0.16016E-05_JPRB,0.14026E-05_JPRB,0.52023E-06_JPRB /)  
+KA(:, 4, 4, 4) = (/ &
+ & 0.23198E-06_JPRB,0.12348E-05_JPRB,0.15955E-05_JPRB,0.17391E-05_JPRB,0.17432E-05_JPRB, &
+ & 0.17515E-05_JPRB,0.17226E-05_JPRB,0.15707E-05_JPRB,0.60921E-06_JPRB /)  
+KA(:, 5, 4, 4) = (/ &
+ & 0.24566E-06_JPRB,0.13471E-05_JPRB,0.17138E-05_JPRB,0.18677E-05_JPRB,0.19071E-05_JPRB, &
+ & 0.19021E-05_JPRB,0.18647E-05_JPRB,0.18054E-05_JPRB,0.72437E-06_JPRB /)  
+KA(:, 1, 5, 4) = (/ &
+ & 0.14315E-06_JPRB,0.68654E-06_JPRB,0.91703E-06_JPRB,0.10136E-05_JPRB,0.10640E-05_JPRB, &
+ & 0.10899E-05_JPRB,0.10066E-05_JPRB,0.10387E-05_JPRB,0.27115E-06_JPRB /)  
+KA(:, 2, 5, 4) = (/ &
+ & 0.15693E-06_JPRB,0.78124E-06_JPRB,0.10460E-05_JPRB,0.11319E-05_JPRB,0.11350E-05_JPRB, &
+ & 0.11836E-05_JPRB,0.11463E-05_JPRB,0.10954E-05_JPRB,0.33462E-06_JPRB /)  
+KA(:, 3, 5, 4) = (/ &
+ & 0.17013E-06_JPRB,0.87619E-06_JPRB,0.11607E-05_JPRB,0.12633E-05_JPRB,0.12502E-05_JPRB, &
+ & 0.12683E-05_JPRB,0.12476E-05_JPRB,0.11184E-05_JPRB,0.38421E-06_JPRB /)  
+KA(:, 4, 5, 4) = (/ &
+ & 0.18255E-06_JPRB,0.96990E-06_JPRB,0.12617E-05_JPRB,0.13726E-05_JPRB,0.13641E-05_JPRB, &
+ & 0.13787E-05_JPRB,0.13521E-05_JPRB,0.11952E-05_JPRB,0.45446E-06_JPRB /)  
+KA(:, 5, 5, 4) = (/ &
+ & 0.19427E-06_JPRB,0.10668E-05_JPRB,0.13642E-05_JPRB,0.14869E-05_JPRB,0.15021E-05_JPRB, &
+ & 0.14945E-05_JPRB,0.14801E-05_JPRB,0.13920E-05_JPRB,0.54371E-06_JPRB /)  
+KA(:, 1, 6, 4) = (/ &
+ & 0.10978E-06_JPRB,0.52395E-06_JPRB,0.69476E-06_JPRB,0.76850E-06_JPRB,0.83675E-06_JPRB, &
+ & 0.86491E-06_JPRB,0.77625E-06_JPRB,0.85871E-06_JPRB,0.19533E-06_JPRB /)  
+KA(:, 2, 6, 4) = (/ &
+ & 0.12132E-06_JPRB,0.59825E-06_JPRB,0.79672E-06_JPRB,0.87685E-06_JPRB,0.88945E-06_JPRB, &
+ & 0.93176E-06_JPRB,0.88241E-06_JPRB,0.87959E-06_JPRB,0.24185E-06_JPRB /)  
+KA(:, 3, 6, 4) = (/ &
+ & 0.13245E-06_JPRB,0.67730E-06_JPRB,0.90458E-06_JPRB,0.97978E-06_JPRB,0.97457E-06_JPRB, &
+ & 0.98659E-06_JPRB,0.98199E-06_JPRB,0.88654E-06_JPRB,0.28188E-06_JPRB /)  
+KA(:, 4, 6, 4) = (/ &
+ & 0.14304E-06_JPRB,0.75520E-06_JPRB,0.99285E-06_JPRB,0.10803E-05_JPRB,0.10647E-05_JPRB, &
+ & 0.10764E-05_JPRB,0.10623E-05_JPRB,0.93315E-06_JPRB,0.33738E-06_JPRB /)  
+KA(:, 5, 6, 4) = (/ &
+ & 0.15298E-06_JPRB,0.83133E-06_JPRB,0.10714E-05_JPRB,0.11654E-05_JPRB,0.11612E-05_JPRB, &
+ & 0.11628E-05_JPRB,0.11409E-05_JPRB,0.10211E-05_JPRB,0.39343E-06_JPRB /)  
+KA(:, 1, 7, 4) = (/ &
+ & 0.83795E-07_JPRB,0.39583E-06_JPRB,0.52221E-06_JPRB,0.57623E-06_JPRB,0.66801E-06_JPRB, &
+ & 0.68350E-06_JPRB,0.61427E-06_JPRB,0.74508E-06_JPRB,0.14027E-06_JPRB /)  
+KA(:, 2, 7, 4) = (/ &
+ & 0.93456E-07_JPRB,0.45651E-06_JPRB,0.60707E-06_JPRB,0.67267E-06_JPRB,0.70886E-06_JPRB, &
+ & 0.72875E-06_JPRB,0.66655E-06_JPRB,0.70837E-06_JPRB,0.17333E-06_JPRB /)  
+KA(:, 3, 7, 4) = (/ &
+ & 0.10278E-06_JPRB,0.52065E-06_JPRB,0.69548E-06_JPRB,0.75346E-06_JPRB,0.75243E-06_JPRB, &
+ & 0.79752E-06_JPRB,0.76130E-06_JPRB,0.73768E-06_JPRB,0.20746E-06_JPRB /)  
+KA(:, 4, 7, 4) = (/ &
+ & 0.11172E-06_JPRB,0.58539E-06_JPRB,0.77614E-06_JPRB,0.84147E-06_JPRB,0.82956E-06_JPRB, &
+ & 0.83892E-06_JPRB,0.81830E-06_JPRB,0.74649E-06_JPRB,0.24711E-06_JPRB /)  
+KA(:, 5, 7, 4) = (/ &
+ & 0.12020E-06_JPRB,0.64890E-06_JPRB,0.84430E-06_JPRB,0.91375E-06_JPRB,0.90365E-06_JPRB, &
+ & 0.91211E-06_JPRB,0.89073E-06_JPRB,0.78796E-06_JPRB,0.29290E-06_JPRB /)  
+KA(:, 1, 8, 4) = (/ &
+ & 0.63771E-07_JPRB,0.29724E-06_JPRB,0.38901E-06_JPRB,0.42952E-06_JPRB,0.53569E-06_JPRB, &
+ & 0.52739E-06_JPRB,0.51421E-06_JPRB,0.65416E-06_JPRB,0.10106E-06_JPRB /)  
+KA(:, 2, 8, 4) = (/ &
+ & 0.71835E-07_JPRB,0.34855E-06_JPRB,0.45895E-06_JPRB,0.50927E-06_JPRB,0.55878E-06_JPRB, &
+ & 0.57413E-06_JPRB,0.51386E-06_JPRB,0.58703E-06_JPRB,0.12396E-06_JPRB /)  
+KA(:, 3, 8, 4) = (/ &
+ & 0.79626E-07_JPRB,0.39836E-06_JPRB,0.52930E-06_JPRB,0.58238E-06_JPRB,0.59321E-06_JPRB, &
+ & 0.61917E-06_JPRB,0.58275E-06_JPRB,0.59574E-06_JPRB,0.15556E-06_JPRB /)  
+KA(:, 4, 8, 4) = (/ &
+ & 0.87141E-07_JPRB,0.45236E-06_JPRB,0.60287E-06_JPRB,0.64978E-06_JPRB,0.64621E-06_JPRB, &
+ & 0.65548E-06_JPRB,0.65037E-06_JPRB,0.59243E-06_JPRB,0.18170E-06_JPRB /)  
+KA(:, 5, 8, 4) = (/ &
+ & 0.94308E-07_JPRB,0.50478E-06_JPRB,0.66216E-06_JPRB,0.71791E-06_JPRB,0.70542E-06_JPRB, &
+ & 0.71265E-06_JPRB,0.70440E-06_JPRB,0.61750E-06_JPRB,0.21806E-06_JPRB /)  
+KA(:, 1, 9, 4) = (/ &
+ & 0.48334E-07_JPRB,0.22150E-06_JPRB,0.29066E-06_JPRB,0.32650E-06_JPRB,0.41774E-06_JPRB, &
+ & 0.40737E-06_JPRB,0.44502E-06_JPRB,0.56524E-06_JPRB,0.72879E-07_JPRB /)  
+KA(:, 2, 9, 4) = (/ &
+ & 0.54994E-07_JPRB,0.26340E-06_JPRB,0.34441E-06_JPRB,0.38160E-06_JPRB,0.44410E-06_JPRB, &
+ & 0.45746E-06_JPRB,0.41390E-06_JPRB,0.50482E-06_JPRB,0.89924E-07_JPRB /)  
+KA(:, 3, 9, 4) = (/ &
+ & 0.61501E-07_JPRB,0.30416E-06_JPRB,0.40299E-06_JPRB,0.44693E-06_JPRB,0.47253E-06_JPRB, &
+ & 0.48623E-06_JPRB,0.44624E-06_JPRB,0.47646E-06_JPRB,0.11220E-06_JPRB /)  
+KA(:, 4, 9, 4) = (/ &
+ & 0.67792E-07_JPRB,0.34758E-06_JPRB,0.46191E-06_JPRB,0.50102E-06_JPRB,0.50055E-06_JPRB, &
+ & 0.52975E-06_JPRB,0.50335E-06_JPRB,0.48665E-06_JPRB,0.13456E-06_JPRB /)  
+KA(:, 5, 9, 4) = (/ &
+ & 0.73830E-07_JPRB,0.39095E-06_JPRB,0.51738E-06_JPRB,0.55894E-06_JPRB,0.55048E-06_JPRB, &
+ & 0.55492E-06_JPRB,0.54317E-06_JPRB,0.49144E-06_JPRB,0.16088E-06_JPRB /)  
+KA(:, 1,10, 4) = (/ &
+ & 0.36931E-07_JPRB,0.16614E-06_JPRB,0.21895E-06_JPRB,0.26116E-06_JPRB,0.33023E-06_JPRB, &
+ & 0.31438E-06_JPRB,0.35810E-06_JPRB,0.46819E-06_JPRB,0.53649E-07_JPRB /)  
+KA(:, 2,10, 4) = (/ &
+ & 0.42386E-07_JPRB,0.20028E-06_JPRB,0.26120E-06_JPRB,0.28858E-06_JPRB,0.36090E-06_JPRB, &
+ & 0.35506E-06_JPRB,0.34639E-06_JPRB,0.43640E-06_JPRB,0.66551E-07_JPRB /)  
+KA(:, 3,10, 4) = (/ &
+ & 0.47801E-07_JPRB,0.23474E-06_JPRB,0.30842E-06_JPRB,0.34242E-06_JPRB,0.37552E-06_JPRB, &
+ & 0.38348E-06_JPRB,0.34637E-06_JPRB,0.39519E-06_JPRB,0.81897E-07_JPRB /)  
+KA(:, 4,10, 4) = (/ &
+ & 0.53030E-07_JPRB,0.26856E-06_JPRB,0.35532E-06_JPRB,0.39019E-06_JPRB,0.39727E-06_JPRB, &
+ & 0.41391E-06_JPRB,0.38815E-06_JPRB,0.39845E-06_JPRB,0.10316E-06_JPRB /)  
+KA(:, 5,10, 4) = (/ &
+ & 0.58073E-07_JPRB,0.30468E-06_JPRB,0.40415E-06_JPRB,0.43508E-06_JPRB,0.43212E-06_JPRB, &
+ & 0.43860E-06_JPRB,0.43462E-06_JPRB,0.39513E-06_JPRB,0.12065E-06_JPRB /)  
+KA(:, 1,11, 4) = (/ &
+ & 0.30210E-07_JPRB,0.13672E-06_JPRB,0.18028E-06_JPRB,0.21388E-06_JPRB,0.27067E-06_JPRB, &
+ & 0.25748E-06_JPRB,0.29347E-06_JPRB,0.38486E-06_JPRB,0.43992E-07_JPRB /)  
+KA(:, 2,11, 4) = (/ &
+ & 0.34676E-07_JPRB,0.16480E-06_JPRB,0.21447E-06_JPRB,0.23703E-06_JPRB,0.29658E-06_JPRB, &
+ & 0.29189E-06_JPRB,0.28346E-06_JPRB,0.35425E-06_JPRB,0.54558E-07_JPRB /)  
+KA(:, 3,11, 4) = (/ &
+ & 0.39112E-07_JPRB,0.19301E-06_JPRB,0.25343E-06_JPRB,0.28112E-06_JPRB,0.30767E-06_JPRB, &
+ & 0.31424E-06_JPRB,0.28354E-06_JPRB,0.32323E-06_JPRB,0.67060E-07_JPRB /)  
+KA(:, 4,11, 4) = (/ &
+ & 0.43392E-07_JPRB,0.22069E-06_JPRB,0.29158E-06_JPRB,0.31987E-06_JPRB,0.32514E-06_JPRB, &
+ & 0.33920E-06_JPRB,0.31782E-06_JPRB,0.32572E-06_JPRB,0.84444E-07_JPRB /)  
+KA(:, 5,11, 4) = (/ &
+ & 0.47520E-07_JPRB,0.25011E-06_JPRB,0.33134E-06_JPRB,0.35641E-06_JPRB,0.35390E-06_JPRB, &
+ & 0.35921E-06_JPRB,0.35594E-06_JPRB,0.32298E-06_JPRB,0.98845E-07_JPRB /)  
+KA(:, 1,12, 4) = (/ &
+ & 0.24733E-07_JPRB,0.11230E-06_JPRB,0.14856E-06_JPRB,0.17472E-06_JPRB,0.22197E-06_JPRB, &
+ & 0.21118E-06_JPRB,0.24122E-06_JPRB,0.31477E-06_JPRB,0.36119E-07_JPRB /)  
+KA(:, 2,12, 4) = (/ &
+ & 0.28389E-07_JPRB,0.13551E-06_JPRB,0.17612E-06_JPRB,0.19468E-06_JPRB,0.24363E-06_JPRB, &
+ & 0.23963E-06_JPRB,0.23290E-06_JPRB,0.28830E-06_JPRB,0.44709E-07_JPRB /)  
+KA(:, 3,12, 4) = (/ &
+ & 0.32017E-07_JPRB,0.15859E-06_JPRB,0.20791E-06_JPRB,0.23074E-06_JPRB,0.25230E-06_JPRB, &
+ & 0.25771E-06_JPRB,0.23238E-06_JPRB,0.26334E-06_JPRB,0.54941E-07_JPRB /)  
+KA(:, 4,12, 4) = (/ &
+ & 0.35526E-07_JPRB,0.18123E-06_JPRB,0.23912E-06_JPRB,0.26228E-06_JPRB,0.26637E-06_JPRB, &
+ & 0.27804E-06_JPRB,0.26039E-06_JPRB,0.26652E-06_JPRB,0.69162E-07_JPRB /)  
+KA(:, 5,12, 4) = (/ &
+ & 0.38912E-07_JPRB,0.20524E-06_JPRB,0.27165E-06_JPRB,0.29207E-06_JPRB,0.28991E-06_JPRB, &
+ & 0.29419E-06_JPRB,0.29154E-06_JPRB,0.26412E-06_JPRB,0.80995E-07_JPRB /)  
+KA(:, 1,13, 4) = (/ &
+ & 0.20250E-07_JPRB,0.92231E-07_JPRB,0.12203E-06_JPRB,0.14275E-06_JPRB,0.18179E-06_JPRB, &
+ & 0.17279E-06_JPRB,0.19796E-06_JPRB,0.25817E-06_JPRB,0.29574E-07_JPRB /)  
+KA(:, 2,13, 4) = (/ &
+ & 0.23243E-07_JPRB,0.11133E-06_JPRB,0.14442E-06_JPRB,0.15980E-06_JPRB,0.20001E-06_JPRB, &
+ & 0.19638E-06_JPRB,0.19075E-06_JPRB,0.23541E-06_JPRB,0.36618E-07_JPRB /)  
+KA(:, 3,13, 4) = (/ &
+ & 0.26215E-07_JPRB,0.13018E-06_JPRB,0.17053E-06_JPRB,0.18925E-06_JPRB,0.20654E-06_JPRB, &
+ & 0.21104E-06_JPRB,0.19040E-06_JPRB,0.21495E-06_JPRB,0.44987E-07_JPRB /)  
+KA(:, 4,13, 4) = (/ &
+ & 0.29082E-07_JPRB,0.14865E-06_JPRB,0.19601E-06_JPRB,0.21490E-06_JPRB,0.21820E-06_JPRB, &
+ & 0.22779E-06_JPRB,0.21313E-06_JPRB,0.21809E-06_JPRB,0.56635E-07_JPRB /)  
+KA(:, 5,13, 4) = (/ &
+ & 0.31856E-07_JPRB,0.16826E-06_JPRB,0.22260E-06_JPRB,0.23930E-06_JPRB,0.23753E-06_JPRB, &
+ & 0.24098E-06_JPRB,0.23875E-06_JPRB,0.21605E-06_JPRB,0.66316E-07_JPRB /)  
+KA(:, 1, 1, 5) = (/ &
+ & 0.17059E-05_JPRB,0.38862E-05_JPRB,0.46330E-05_JPRB,0.51258E-05_JPRB,0.53516E-05_JPRB, &
+ & 0.52890E-05_JPRB,0.49050E-05_JPRB,0.49561E-05_JPRB,0.24914E-05_JPRB /)  
+KA(:, 2, 1, 5) = (/ &
+ & 0.17702E-05_JPRB,0.41613E-05_JPRB,0.49979E-05_JPRB,0.55352E-05_JPRB,0.58535E-05_JPRB, &
+ & 0.58620E-05_JPRB,0.55540E-05_JPRB,0.53944E-05_JPRB,0.30111E-05_JPRB /)  
+KA(:, 3, 1, 5) = (/ &
+ & 0.18268E-05_JPRB,0.44218E-05_JPRB,0.53631E-05_JPRB,0.59894E-05_JPRB,0.63892E-05_JPRB, &
+ & 0.64888E-05_JPRB,0.63488E-05_JPRB,0.59957E-05_JPRB,0.35253E-05_JPRB /)  
+KA(:, 4, 1, 5) = (/ &
+ & 0.18763E-05_JPRB,0.46467E-05_JPRB,0.56969E-05_JPRB,0.64112E-05_JPRB,0.68701E-05_JPRB, &
+ & 0.70687E-05_JPRB,0.69575E-05_JPRB,0.65330E-05_JPRB,0.40117E-05_JPRB /)  
+KA(:, 5, 1, 5) = (/ &
+ & 0.19168E-05_JPRB,0.48702E-05_JPRB,0.60413E-05_JPRB,0.68595E-05_JPRB,0.73828E-05_JPRB, &
+ & 0.76555E-05_JPRB,0.76620E-05_JPRB,0.72236E-05_JPRB,0.44814E-05_JPRB /)  
+KA(:, 1, 2, 5) = (/ &
+ & 0.13807E-05_JPRB,0.32052E-05_JPRB,0.37981E-05_JPRB,0.41868E-05_JPRB,0.43666E-05_JPRB, &
+ & 0.42966E-05_JPRB,0.39397E-05_JPRB,0.40523E-05_JPRB,0.19972E-05_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART3',1,ZHOOK_HANDLE)
+END SUBROUTINE PART3
+
+
+SUBROUTINE PART4
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART4',0,ZHOOK_HANDLE)
+
+
+KA(:, 2, 2, 5) = (/ &
+ & 0.14355E-05_JPRB,0.34375E-05_JPRB,0.40968E-05_JPRB,0.45345E-05_JPRB,0.47869E-05_JPRB, &
+ & 0.47900E-05_JPRB,0.45121E-05_JPRB,0.44176E-05_JPRB,0.23759E-05_JPRB /)  
+KA(:, 3, 2, 5) = (/ &
+ & 0.14839E-05_JPRB,0.36628E-05_JPRB,0.44128E-05_JPRB,0.49223E-05_JPRB,0.52399E-05_JPRB, &
+ & 0.53302E-05_JPRB,0.51982E-05_JPRB,0.49130E-05_JPRB,0.28052E-05_JPRB /)  
+KA(:, 4, 2, 5) = (/ &
+ & 0.15261E-05_JPRB,0.38551E-05_JPRB,0.47116E-05_JPRB,0.52947E-05_JPRB,0.56758E-05_JPRB, &
+ & 0.58601E-05_JPRB,0.57606E-05_JPRB,0.54224E-05_JPRB,0.31665E-05_JPRB /)  
+KA(:, 5, 2, 5) = (/ &
+ & 0.15621E-05_JPRB,0.40345E-05_JPRB,0.49797E-05_JPRB,0.56344E-05_JPRB,0.60672E-05_JPRB, &
+ & 0.63079E-05_JPRB,0.63076E-05_JPRB,0.59671E-05_JPRB,0.35368E-05_JPRB /)  
+KA(:, 1, 3, 5) = (/ &
+ & 0.11048E-05_JPRB,0.25908E-05_JPRB,0.30458E-05_JPRB,0.33480E-05_JPRB,0.34767E-05_JPRB, &
+ & 0.33444E-05_JPRB,0.30982E-05_JPRB,0.31520E-05_JPRB,0.14943E-05_JPRB /)  
+KA(:, 2, 3, 5) = (/ &
+ & 0.11526E-05_JPRB,0.27857E-05_JPRB,0.32915E-05_JPRB,0.36364E-05_JPRB,0.38272E-05_JPRB, &
+ & 0.38169E-05_JPRB,0.35492E-05_JPRB,0.35141E-05_JPRB,0.17575E-05_JPRB /)  
+KA(:, 3, 3, 5) = (/ &
+ & 0.11948E-05_JPRB,0.29688E-05_JPRB,0.35427E-05_JPRB,0.39401E-05_JPRB,0.41747E-05_JPRB, &
+ & 0.42239E-05_JPRB,0.40766E-05_JPRB,0.39111E-05_JPRB,0.20688E-05_JPRB /)  
+KA(:, 4, 3, 5) = (/ &
+ & 0.12319E-05_JPRB,0.31426E-05_JPRB,0.38135E-05_JPRB,0.42625E-05_JPRB,0.45635E-05_JPRB, &
+ & 0.47062E-05_JPRB,0.46027E-05_JPRB,0.43389E-05_JPRB,0.23873E-05_JPRB /)  
+KA(:, 5, 3, 5) = (/ &
+ & 0.12642E-05_JPRB,0.32923E-05_JPRB,0.40402E-05_JPRB,0.45497E-05_JPRB,0.48934E-05_JPRB, &
+ & 0.50814E-05_JPRB,0.50577E-05_JPRB,0.47614E-05_JPRB,0.26860E-05_JPRB /)  
+KA(:, 1, 4, 5) = (/ &
+ & 0.87810E-06_JPRB,0.20726E-05_JPRB,0.24188E-05_JPRB,0.26498E-05_JPRB,0.27201E-05_JPRB, &
+ & 0.25966E-05_JPRB,0.24215E-05_JPRB,0.25596E-05_JPRB,0.10910E-05_JPRB /)  
+KA(:, 2, 4, 5) = (/ &
+ & 0.92113E-06_JPRB,0.22378E-05_JPRB,0.26243E-05_JPRB,0.28859E-05_JPRB,0.30228E-05_JPRB, &
+ & 0.29855E-05_JPRB,0.27257E-05_JPRB,0.28497E-05_JPRB,0.12952E-05_JPRB /)  
+KA(:, 3, 4, 5) = (/ &
+ & 0.95847E-06_JPRB,0.23927E-05_JPRB,0.28323E-05_JPRB,0.31308E-05_JPRB,0.33238E-05_JPRB, &
+ & 0.33287E-05_JPRB,0.31597E-05_JPRB,0.31032E-05_JPRB,0.15368E-05_JPRB /)  
+KA(:, 4, 4, 5) = (/ &
+ & 0.99115E-06_JPRB,0.25350E-05_JPRB,0.30423E-05_JPRB,0.33883E-05_JPRB,0.36085E-05_JPRB, &
+ & 0.36829E-05_JPRB,0.35850E-05_JPRB,0.33993E-05_JPRB,0.17502E-05_JPRB /)  
+KA(:, 5, 4, 5) = (/ &
+ & 0.10199E-05_JPRB,0.26768E-05_JPRB,0.32656E-05_JPRB,0.36641E-05_JPRB,0.39303E-05_JPRB, &
+ & 0.40820E-05_JPRB,0.40444E-05_JPRB,0.38038E-05_JPRB,0.20588E-05_JPRB /)  
+KA(:, 1, 5, 5) = (/ &
+ & 0.69521E-06_JPRB,0.16480E-05_JPRB,0.19136E-05_JPRB,0.20758E-05_JPRB,0.21053E-05_JPRB, &
+ & 0.19983E-05_JPRB,0.19384E-05_JPRB,0.21119E-05_JPRB,0.79759E-06_JPRB /)  
+KA(:, 2, 5, 5) = (/ &
+ & 0.73399E-06_JPRB,0.17885E-05_JPRB,0.20863E-05_JPRB,0.22802E-05_JPRB,0.23681E-05_JPRB, &
+ & 0.23078E-05_JPRB,0.21093E-05_JPRB,0.21684E-05_JPRB,0.95048E-06_JPRB /)  
+KA(:, 3, 5, 5) = (/ &
+ & 0.76704E-06_JPRB,0.19210E-05_JPRB,0.22551E-05_JPRB,0.24823E-05_JPRB,0.26201E-05_JPRB, &
+ & 0.26181E-05_JPRB,0.24369E-05_JPRB,0.24387E-05_JPRB,0.11396E-05_JPRB /)  
+KA(:, 4, 5, 5) = (/ &
+ & 0.79598E-06_JPRB,0.20422E-05_JPRB,0.24305E-05_JPRB,0.26936E-05_JPRB,0.28610E-05_JPRB, &
+ & 0.28938E-05_JPRB,0.28032E-05_JPRB,0.26848E-05_JPRB,0.13054E-05_JPRB /)  
+KA(:, 5, 5, 5) = (/ &
+ & 0.82146E-06_JPRB,0.21630E-05_JPRB,0.26149E-05_JPRB,0.29202E-05_JPRB,0.31281E-05_JPRB, &
+ & 0.32364E-05_JPRB,0.31639E-05_JPRB,0.29903E-05_JPRB,0.15503E-05_JPRB /)  
+KA(:, 1, 6, 5) = (/ &
+ & 0.54790E-06_JPRB,0.12968E-05_JPRB,0.14998E-05_JPRB,0.16199E-05_JPRB,0.16168E-05_JPRB, &
+ & 0.15151E-05_JPRB,0.14932E-05_JPRB,0.16380E-05_JPRB,0.58437E-06_JPRB /)  
+KA(:, 2, 6, 5) = (/ &
+ & 0.58180E-06_JPRB,0.14204E-05_JPRB,0.16474E-05_JPRB,0.17877E-05_JPRB,0.18382E-05_JPRB, &
+ & 0.17645E-05_JPRB,0.16359E-05_JPRB,0.17414E-05_JPRB,0.70191E-06_JPRB /)  
+KA(:, 3, 6, 5) = (/ &
+ & 0.61169E-06_JPRB,0.15332E-05_JPRB,0.17837E-05_JPRB,0.19554E-05_JPRB,0.20462E-05_JPRB, &
+ & 0.20343E-05_JPRB,0.18483E-05_JPRB,0.19670E-05_JPRB,0.83824E-06_JPRB /)  
+KA(:, 4, 6, 5) = (/ &
+ & 0.63729E-06_JPRB,0.16375E-05_JPRB,0.19280E-05_JPRB,0.21247E-05_JPRB,0.22559E-05_JPRB, &
+ & 0.22588E-05_JPRB,0.21468E-05_JPRB,0.21190E-05_JPRB,0.96829E-06_JPRB /)  
+KA(:, 5, 6, 5) = (/ &
+ & 0.65987E-06_JPRB,0.17326E-05_JPRB,0.20710E-05_JPRB,0.23017E-05_JPRB,0.24525E-05_JPRB, &
+ & 0.25042E-05_JPRB,0.24377E-05_JPRB,0.23029E-05_JPRB,0.11330E-05_JPRB /)  
+KA(:, 1, 7, 5) = (/ &
+ & 0.43067E-06_JPRB,0.10147E-05_JPRB,0.11663E-05_JPRB,0.12622E-05_JPRB,0.12316E-05_JPRB, &
+ & 0.11186E-05_JPRB,0.12227E-05_JPRB,0.12153E-05_JPRB,0.41960E-06_JPRB /)  
+KA(:, 2, 7, 5) = (/ &
+ & 0.45965E-06_JPRB,0.11216E-05_JPRB,0.12929E-05_JPRB,0.13935E-05_JPRB,0.14129E-05_JPRB, &
+ & 0.13426E-05_JPRB,0.12944E-05_JPRB,0.14463E-05_JPRB,0.51416E-06_JPRB /)  
+KA(:, 3, 7, 5) = (/ &
+ & 0.48636E-06_JPRB,0.12186E-05_JPRB,0.14109E-05_JPRB,0.15331E-05_JPRB,0.15936E-05_JPRB, &
+ & 0.15473E-05_JPRB,0.14164E-05_JPRB,0.14707E-05_JPRB,0.61314E-06_JPRB /)  
+KA(:, 4, 7, 5) = (/ &
+ & 0.50928E-06_JPRB,0.13071E-05_JPRB,0.15237E-05_JPRB,0.16740E-05_JPRB,0.17644E-05_JPRB, &
+ & 0.17562E-05_JPRB,0.16373E-05_JPRB,0.16431E-05_JPRB,0.72862E-06_JPRB /)  
+KA(:, 5, 7, 5) = (/ &
+ & 0.52919E-06_JPRB,0.13890E-05_JPRB,0.16443E-05_JPRB,0.18186E-05_JPRB,0.19296E-05_JPRB, &
+ & 0.19451E-05_JPRB,0.18786E-05_JPRB,0.17942E-05_JPRB,0.84235E-06_JPRB /)  
+KA(:, 1, 8, 5) = (/ &
+ & 0.33792E-06_JPRB,0.78856E-06_JPRB,0.90464E-06_JPRB,0.98317E-06_JPRB,0.92848E-06_JPRB, &
+ & 0.86387E-06_JPRB,0.95438E-06_JPRB,0.90887E-06_JPRB,0.29529E-06_JPRB /)  
+KA(:, 2, 8, 5) = (/ &
+ & 0.36263E-06_JPRB,0.88071E-06_JPRB,0.10121E-05_JPRB,0.10878E-05_JPRB,0.10817E-05_JPRB, &
+ & 0.10133E-05_JPRB,0.10031E-05_JPRB,0.11161E-05_JPRB,0.37413E-06_JPRB /)  
+KA(:, 3, 8, 5) = (/ &
+ & 0.38563E-06_JPRB,0.96560E-06_JPRB,0.11116E-05_JPRB,0.12011E-05_JPRB,0.12324E-05_JPRB, &
+ & 0.11848E-05_JPRB,0.10927E-05_JPRB,0.11776E-05_JPRB,0.44987E-06_JPRB /)  
+KA(:, 4, 8, 5) = (/ &
+ & 0.40622E-06_JPRB,0.10407E-05_JPRB,0.12047E-05_JPRB,0.13138E-05_JPRB,0.13745E-05_JPRB, &
+ & 0.13598E-05_JPRB,0.12356E-05_JPRB,0.13203E-05_JPRB,0.54288E-06_JPRB /)  
+KA(:, 5, 8, 5) = (/ &
+ & 0.42386E-06_JPRB,0.11111E-05_JPRB,0.13019E-05_JPRB,0.14302E-05_JPRB,0.15146E-05_JPRB, &
+ & 0.15112E-05_JPRB,0.14255E-05_JPRB,0.14090E-05_JPRB,0.62729E-06_JPRB /)  
+KA(:, 1, 9, 5) = (/ &
+ & 0.26432E-06_JPRB,0.60726E-06_JPRB,0.70036E-06_JPRB,0.76229E-06_JPRB,0.71577E-06_JPRB, &
+ & 0.69749E-06_JPRB,0.70164E-06_JPRB,0.72668E-06_JPRB,0.20659E-06_JPRB /)  
+KA(:, 2, 9, 5) = (/ &
+ & 0.28549E-06_JPRB,0.68848E-06_JPRB,0.78705E-06_JPRB,0.84862E-06_JPRB,0.82241E-06_JPRB, &
+ & 0.74707E-06_JPRB,0.82519E-06_JPRB,0.82938E-06_JPRB,0.27449E-06_JPRB /)  
+KA(:, 3, 9, 5) = (/ &
+ & 0.30511E-06_JPRB,0.76168E-06_JPRB,0.87199E-06_JPRB,0.93359E-06_JPRB,0.94531E-06_JPRB, &
+ & 0.89794E-06_JPRB,0.85947E-06_JPRB,0.97111E-06_JPRB,0.33410E-06_JPRB /)  
+KA(:, 4, 9, 5) = (/ &
+ & 0.32329E-06_JPRB,0.82660E-06_JPRB,0.95163E-06_JPRB,0.10287E-05_JPRB,0.10680E-05_JPRB, &
+ & 0.10381E-05_JPRB,0.94558E-06_JPRB,0.98374E-06_JPRB,0.39896E-06_JPRB /)  
+KA(:, 5, 9, 5) = (/ &
+ & 0.33897E-06_JPRB,0.88614E-06_JPRB,0.10276E-05_JPRB,0.11239E-05_JPRB,0.11817E-05_JPRB, &
+ & 0.11723E-05_JPRB,0.10892E-05_JPRB,0.10943E-05_JPRB,0.47438E-06_JPRB /)  
+KA(:, 1,10, 5) = (/ &
+ & 0.20748E-06_JPRB,0.47023E-06_JPRB,0.54165E-06_JPRB,0.58159E-06_JPRB,0.54422E-06_JPRB, &
+ & 0.55116E-06_JPRB,0.57712E-06_JPRB,0.60571E-06_JPRB,0.14752E-06_JPRB /)  
+KA(:, 2,10, 5) = (/ &
+ & 0.22561E-06_JPRB,0.54027E-06_JPRB,0.61555E-06_JPRB,0.66550E-06_JPRB,0.62550E-06_JPRB, &
+ & 0.58306E-06_JPRB,0.64781E-06_JPRB,0.63365E-06_JPRB,0.19821E-06_JPRB /)  
+KA(:, 3,10, 5) = (/ &
+ & 0.24219E-06_JPRB,0.60251E-06_JPRB,0.68703E-06_JPRB,0.73412E-06_JPRB,0.72965E-06_JPRB, &
+ & 0.68255E-06_JPRB,0.67291E-06_JPRB,0.76422E-06_JPRB,0.24874E-06_JPRB /)  
+KA(:, 4,10, 5) = (/ &
+ & 0.25766E-06_JPRB,0.65861E-06_JPRB,0.75375E-06_JPRB,0.81214E-06_JPRB,0.83171E-06_JPRB, &
+ & 0.80129E-06_JPRB,0.73385E-06_JPRB,0.78864E-06_JPRB,0.29867E-06_JPRB /)  
+KA(:, 5,10, 5) = (/ &
+ & 0.27157E-06_JPRB,0.70870E-06_JPRB,0.81638E-06_JPRB,0.88593E-06_JPRB,0.92651E-06_JPRB, &
+ & 0.91449E-06_JPRB,0.83048E-06_JPRB,0.88651E-06_JPRB,0.36087E-06_JPRB /)  
+KA(:, 1,11, 5) = (/ &
+ & 0.16984E-06_JPRB,0.38981E-06_JPRB,0.44742E-06_JPRB,0.48022E-06_JPRB,0.44950E-06_JPRB, &
+ & 0.45173E-06_JPRB,0.47333E-06_JPRB,0.50203E-06_JPRB,0.12166E-06_JPRB /)  
+KA(:, 2,11, 5) = (/ &
+ & 0.18466E-06_JPRB,0.44753E-06_JPRB,0.50754E-06_JPRB,0.54744E-06_JPRB,0.51342E-06_JPRB, &
+ & 0.47893E-06_JPRB,0.53296E-06_JPRB,0.51992E-06_JPRB,0.16283E-06_JPRB /)  
+KA(:, 3,11, 5) = (/ &
+ & 0.19826E-06_JPRB,0.49803E-06_JPRB,0.56578E-06_JPRB,0.60333E-06_JPRB,0.60031E-06_JPRB, &
+ & 0.56085E-06_JPRB,0.55152E-06_JPRB,0.63442E-06_JPRB,0.20412E-06_JPRB /)  
+KA(:, 4,11, 5) = (/ &
+ & 0.21087E-06_JPRB,0.54349E-06_JPRB,0.62058E-06_JPRB,0.66722E-06_JPRB,0.68339E-06_JPRB, &
+ & 0.65819E-06_JPRB,0.60140E-06_JPRB,0.64555E-06_JPRB,0.24501E-06_JPRB /)  
+KA(:, 5,11, 5) = (/ &
+ & 0.22228E-06_JPRB,0.58430E-06_JPRB,0.67139E-06_JPRB,0.72733E-06_JPRB,0.76067E-06_JPRB, &
+ & 0.75025E-06_JPRB,0.68133E-06_JPRB,0.72307E-06_JPRB,0.29566E-06_JPRB /)  
+KA(:, 1,12, 5) = (/ &
+ & 0.13908E-06_JPRB,0.32322E-06_JPRB,0.36926E-06_JPRB,0.39668E-06_JPRB,0.37094E-06_JPRB, &
+ & 0.37104E-06_JPRB,0.38736E-06_JPRB,0.41059E-06_JPRB,0.10018E-06_JPRB /)  
+KA(:, 2,12, 5) = (/ &
+ & 0.15119E-06_JPRB,0.37037E-06_JPRB,0.41804E-06_JPRB,0.44988E-06_JPRB,0.42138E-06_JPRB, &
+ & 0.39334E-06_JPRB,0.43800E-06_JPRB,0.42649E-06_JPRB,0.13384E-06_JPRB /)  
+KA(:, 3,12, 5) = (/ &
+ & 0.16232E-06_JPRB,0.41107E-06_JPRB,0.46554E-06_JPRB,0.49568E-06_JPRB,0.49349E-06_JPRB, &
+ & 0.46062E-06_JPRB,0.45205E-06_JPRB,0.52165E-06_JPRB,0.16749E-06_JPRB /)  
+KA(:, 4,12, 5) = (/ &
+ & 0.17268E-06_JPRB,0.44802E-06_JPRB,0.51028E-06_JPRB,0.54757E-06_JPRB,0.56096E-06_JPRB, &
+ & 0.54041E-06_JPRB,0.49303E-06_JPRB,0.52723E-06_JPRB,0.20095E-06_JPRB /)  
+KA(:, 5,12, 5) = (/ &
+ & 0.18199E-06_JPRB,0.48092E-06_JPRB,0.55149E-06_JPRB,0.59694E-06_JPRB,0.62405E-06_JPRB, &
+ & 0.61534E-06_JPRB,0.55851E-06_JPRB,0.58926E-06_JPRB,0.24228E-06_JPRB /)  
+KA(:, 1,13, 5) = (/ &
+ & 0.11387E-06_JPRB,0.26741E-06_JPRB,0.30441E-06_JPRB,0.32687E-06_JPRB,0.30479E-06_JPRB, &
+ & 0.30477E-06_JPRB,0.31768E-06_JPRB,0.33316E-06_JPRB,0.82090E-07_JPRB /)  
+KA(:, 2,13, 5) = (/ &
+ & 0.12381E-06_JPRB,0.30579E-06_JPRB,0.34391E-06_JPRB,0.36935E-06_JPRB,0.34578E-06_JPRB, &
+ & 0.32317E-06_JPRB,0.35995E-06_JPRB,0.35099E-06_JPRB,0.10981E-06_JPRB /)  
+KA(:, 3,13, 5) = (/ &
+ & 0.13290E-06_JPRB,0.33871E-06_JPRB,0.38265E-06_JPRB,0.40672E-06_JPRB,0.40511E-06_JPRB, &
+ & 0.37796E-06_JPRB,0.36986E-06_JPRB,0.42813E-06_JPRB,0.13721E-06_JPRB /)  
+KA(:, 4,13, 5) = (/ &
+ & 0.14135E-06_JPRB,0.36878E-06_JPRB,0.41898E-06_JPRB,0.44916E-06_JPRB,0.46012E-06_JPRB, &
+ & 0.44348E-06_JPRB,0.40383E-06_JPRB,0.43087E-06_JPRB,0.16460E-06_JPRB /)  
+KA(:, 5,13, 5) = (/ &
+ & 0.14898E-06_JPRB,0.39524E-06_JPRB,0.45245E-06_JPRB,0.48939E-06_JPRB,0.51148E-06_JPRB, &
+ & 0.50420E-06_JPRB,0.45753E-06_JPRB,0.48088E-06_JPRB,0.19843E-06_JPRB /)  
+KA(:, 1, 1, 6) = (/ &
+ & 0.49835E-05_JPRB,0.73512E-05_JPRB,0.88016E-05_JPRB,0.97115E-05_JPRB,0.10342E-04_JPRB, &
+ & 0.10688E-04_JPRB,0.10747E-04_JPRB,0.97587E-05_JPRB,0.57353E-05_JPRB /)  
+KA(:, 2, 1, 6) = (/ &
+ & 0.49823E-05_JPRB,0.77944E-05_JPRB,0.95403E-05_JPRB,0.10739E-04_JPRB,0.11522E-04_JPRB, &
+ & 0.11974E-04_JPRB,0.12019E-04_JPRB,0.11200E-04_JPRB,0.69362E-05_JPRB /)  
+KA(:, 3, 1, 6) = (/ &
+ & 0.49638E-05_JPRB,0.82513E-05_JPRB,0.10343E-04_JPRB,0.11836E-04_JPRB,0.12804E-04_JPRB, &
+ & 0.13375E-04_JPRB,0.13427E-04_JPRB,0.12807E-04_JPRB,0.83325E-05_JPRB /)  
+KA(:, 4, 1, 6) = (/ &
+ & 0.49300E-05_JPRB,0.87230E-05_JPRB,0.11131E-04_JPRB,0.12834E-04_JPRB,0.13980E-04_JPRB, &
+ & 0.14660E-04_JPRB,0.14790E-04_JPRB,0.14186E-04_JPRB,0.94893E-05_JPRB /)  
+KA(:, 5, 1, 6) = (/ &
+ & 0.48886E-05_JPRB,0.92046E-05_JPRB,0.11933E-04_JPRB,0.13885E-04_JPRB,0.15255E-04_JPRB, &
+ & 0.16071E-04_JPRB,0.16239E-04_JPRB,0.15605E-04_JPRB,0.10917E-04_JPRB /)  
+KA(:, 1, 2, 6) = (/ &
+ & 0.41174E-05_JPRB,0.62362E-05_JPRB,0.73897E-05_JPRB,0.81161E-05_JPRB,0.86061E-05_JPRB, &
+ & 0.88364E-05_JPRB,0.89272E-05_JPRB,0.81534E-05_JPRB,0.45187E-05_JPRB /)  
+KA(:, 2, 2, 6) = (/ &
+ & 0.41154E-05_JPRB,0.66112E-05_JPRB,0.80274E-05_JPRB,0.90030E-05_JPRB,0.96264E-05_JPRB, &
+ & 0.99529E-05_JPRB,0.10004E-04_JPRB,0.93836E-05_JPRB,0.55300E-05_JPRB /)  
+KA(:, 3, 2, 6) = (/ &
+ & 0.40999E-05_JPRB,0.69972E-05_JPRB,0.87232E-05_JPRB,0.99464E-05_JPRB,0.10738E-04_JPRB, &
+ & 0.11186E-04_JPRB,0.11235E-04_JPRB,0.10760E-04_JPRB,0.66656E-05_JPRB /)  
+KA(:, 4, 2, 6) = (/ &
+ & 0.40728E-05_JPRB,0.73933E-05_JPRB,0.94032E-05_JPRB,0.10842E-04_JPRB,0.11807E-04_JPRB, &
+ & 0.12371E-04_JPRB,0.12495E-04_JPRB,0.12016E-04_JPRB,0.78073E-05_JPRB /)  
+KA(:, 5, 2, 6) = (/ &
+ & 0.40371E-05_JPRB,0.77954E-05_JPRB,0.10060E-04_JPRB,0.11710E-04_JPRB,0.12855E-04_JPRB, &
+ & 0.13529E-04_JPRB,0.13658E-04_JPRB,0.13169E-04_JPRB,0.88462E-05_JPRB /)  
+KA(:, 1, 3, 6) = (/ &
+ & 0.33911E-05_JPRB,0.51807E-05_JPRB,0.60524E-05_JPRB,0.65745E-05_JPRB,0.69209E-05_JPRB, &
+ & 0.70496E-05_JPRB,0.71376E-05_JPRB,0.64864E-05_JPRB,0.34232E-05_JPRB /)  
+KA(:, 2, 3, 6) = (/ &
+ & 0.33916E-05_JPRB,0.54910E-05_JPRB,0.65875E-05_JPRB,0.73243E-05_JPRB,0.77878E-05_JPRB, &
+ & 0.79847E-05_JPRB,0.80332E-05_JPRB,0.75309E-05_JPRB,0.42228E-05_JPRB /)  
+KA(:, 3, 3, 6) = (/ &
+ & 0.33813E-05_JPRB,0.58057E-05_JPRB,0.71503E-05_JPRB,0.80869E-05_JPRB,0.86798E-05_JPRB, &
+ & 0.89845E-05_JPRB,0.90042E-05_JPRB,0.85938E-05_JPRB,0.50519E-05_JPRB /)  
+KA(:, 4, 3, 6) = (/ &
+ & 0.33618E-05_JPRB,0.61503E-05_JPRB,0.77470E-05_JPRB,0.88947E-05_JPRB,0.96421E-05_JPRB, &
+ & 0.10056E-04_JPRB,0.10131E-04_JPRB,0.97836E-05_JPRB,0.60817E-05_JPRB /)  
+KA(:, 5, 3, 6) = (/ &
+ & 0.33346E-05_JPRB,0.64834E-05_JPRB,0.82992E-05_JPRB,0.96266E-05_JPRB,0.10527E-04_JPRB, &
+ & 0.11042E-04_JPRB,0.11154E-04_JPRB,0.10788E-04_JPRB,0.69208E-05_JPRB /)  
+KA(:, 1, 4, 6) = (/ &
+ & 0.27862E-05_JPRB,0.42534E-05_JPRB,0.48987E-05_JPRB,0.52435E-05_JPRB,0.54733E-05_JPRB, &
+ & 0.55364E-05_JPRB,0.55872E-05_JPRB,0.49226E-05_JPRB,0.25436E-05_JPRB /)  
+KA(:, 2, 4, 6) = (/ &
+ & 0.27893E-05_JPRB,0.45093E-05_JPRB,0.53394E-05_JPRB,0.58691E-05_JPRB,0.61855E-05_JPRB, &
+ & 0.63070E-05_JPRB,0.63399E-05_JPRB,0.58599E-05_JPRB,0.31726E-05_JPRB /)  
+KA(:, 3, 4, 6) = (/ &
+ & 0.27843E-05_JPRB,0.47714E-05_JPRB,0.58075E-05_JPRB,0.65048E-05_JPRB,0.69158E-05_JPRB, &
+ & 0.71341E-05_JPRB,0.71529E-05_JPRB,0.67578E-05_JPRB,0.38485E-05_JPRB /)  
+KA(:, 4, 4, 6) = (/ &
+ & 0.27713E-05_JPRB,0.50491E-05_JPRB,0.62824E-05_JPRB,0.71451E-05_JPRB,0.76931E-05_JPRB, &
+ & 0.79968E-05_JPRB,0.80403E-05_JPRB,0.77391E-05_JPRB,0.46093E-05_JPRB /)  
+KA(:, 5, 4, 6) = (/ &
+ & 0.27517E-05_JPRB,0.53526E-05_JPRB,0.67897E-05_JPRB,0.78357E-05_JPRB,0.85357E-05_JPRB, &
+ & 0.89260E-05_JPRB,0.90160E-05_JPRB,0.87287E-05_JPRB,0.54226E-05_JPRB /)  
+KA(:, 1, 5, 6) = (/ &
+ & 0.22852E-05_JPRB,0.34704E-05_JPRB,0.39351E-05_JPRB,0.41626E-05_JPRB,0.42797E-05_JPRB, &
+ & 0.43078E-05_JPRB,0.42289E-05_JPRB,0.36572E-05_JPRB,0.18725E-05_JPRB /)  
+KA(:, 2, 5, 6) = (/ &
+ & 0.22904E-05_JPRB,0.36828E-05_JPRB,0.42969E-05_JPRB,0.46636E-05_JPRB,0.48818E-05_JPRB, &
+ & 0.49227E-05_JPRB,0.49640E-05_JPRB,0.45776E-05_JPRB,0.23620E-05_JPRB /)  
+KA(:, 3, 5, 6) = (/ &
+ & 0.22883E-05_JPRB,0.38995E-05_JPRB,0.46830E-05_JPRB,0.51887E-05_JPRB,0.54814E-05_JPRB, &
+ & 0.56039E-05_JPRB,0.56350E-05_JPRB,0.52624E-05_JPRB,0.29139E-05_JPRB /)  
+KA(:, 4, 5, 6) = (/ &
+ & 0.22808E-05_JPRB,0.41317E-05_JPRB,0.50763E-05_JPRB,0.57196E-05_JPRB,0.61208E-05_JPRB, &
+ & 0.63389E-05_JPRB,0.63549E-05_JPRB,0.60859E-05_JPRB,0.35219E-05_JPRB /)  
+KA(:, 5, 5, 6) = (/ &
+ & 0.22671E-05_JPRB,0.43851E-05_JPRB,0.54991E-05_JPRB,0.62948E-05_JPRB,0.68249E-05_JPRB, &
+ & 0.71098E-05_JPRB,0.71755E-05_JPRB,0.69558E-05_JPRB,0.41900E-05_JPRB /)  
+KA(:, 1, 6, 6) = (/ &
+ & 0.18699E-05_JPRB,0.28114E-05_JPRB,0.31400E-05_JPRB,0.32683E-05_JPRB,0.33153E-05_JPRB, &
+ & 0.33008E-05_JPRB,0.31920E-05_JPRB,0.27860E-05_JPRB,0.13420E-05_JPRB /)  
+KA(:, 2, 6, 6) = (/ &
+ & 0.18773E-05_JPRB,0.29859E-05_JPRB,0.34309E-05_JPRB,0.36695E-05_JPRB,0.38007E-05_JPRB, &
+ & 0.38091E-05_JPRB,0.38180E-05_JPRB,0.34314E-05_JPRB,0.17179E-05_JPRB /)  
+KA(:, 3, 6, 6) = (/ &
+ & 0.18783E-05_JPRB,0.31642E-05_JPRB,0.37448E-05_JPRB,0.40997E-05_JPRB,0.43019E-05_JPRB, &
+ & 0.43546E-05_JPRB,0.43740E-05_JPRB,0.40084E-05_JPRB,0.21605E-05_JPRB /)  
+KA(:, 4, 6, 6) = (/ &
+ & 0.18743E-05_JPRB,0.33566E-05_JPRB,0.40684E-05_JPRB,0.45371E-05_JPRB,0.48151E-05_JPRB, &
+ & 0.49624E-05_JPRB,0.49624E-05_JPRB,0.47228E-05_JPRB,0.26431E-05_JPRB /)  
+KA(:, 5, 6, 6) = (/ &
+ & 0.18657E-05_JPRB,0.35541E-05_JPRB,0.43955E-05_JPRB,0.49826E-05_JPRB,0.53649E-05_JPRB, &
+ & 0.55694E-05_JPRB,0.55990E-05_JPRB,0.54328E-05_JPRB,0.31359E-05_JPRB /)  
+KA(:, 1, 7, 6) = (/ &
+ & 0.15270E-05_JPRB,0.22681E-05_JPRB,0.24953E-05_JPRB,0.25538E-05_JPRB,0.25397E-05_JPRB, &
+ & 0.25315E-05_JPRB,0.23299E-05_JPRB,0.21035E-05_JPRB,0.95748E-06_JPRB /)  
+KA(:, 2, 7, 6) = (/ &
+ & 0.15365E-05_JPRB,0.24113E-05_JPRB,0.27304E-05_JPRB,0.28767E-05_JPRB,0.29339E-05_JPRB, &
+ & 0.29290E-05_JPRB,0.28728E-05_JPRB,0.24852E-05_JPRB,0.12383E-05_JPRB /)  
+KA(:, 3, 7, 6) = (/ &
+ & 0.15398E-05_JPRB,0.25576E-05_JPRB,0.29821E-05_JPRB,0.32226E-05_JPRB,0.33508E-05_JPRB, &
+ & 0.33584E-05_JPRB,0.33733E-05_JPRB,0.31044E-05_JPRB,0.15900E-05_JPRB /)  
+KA(:, 4, 7, 6) = (/ &
+ & 0.15385E-05_JPRB,0.27150E-05_JPRB,0.32458E-05_JPRB,0.35802E-05_JPRB,0.37697E-05_JPRB, &
+ & 0.38500E-05_JPRB,0.38510E-05_JPRB,0.36169E-05_JPRB,0.19605E-05_JPRB /)  
+KA(:, 5, 7, 6) = (/ &
+ & 0.15336E-05_JPRB,0.28792E-05_JPRB,0.35139E-05_JPRB,0.39460E-05_JPRB,0.42149E-05_JPRB, &
+ & 0.43622E-05_JPRB,0.43664E-05_JPRB,0.42187E-05_JPRB,0.23523E-05_JPRB /)  
+KA(:, 1, 8, 6) = (/ &
+ & 0.12444E-05_JPRB,0.18266E-05_JPRB,0.19784E-05_JPRB,0.19900E-05_JPRB,0.19390E-05_JPRB, &
+ & 0.19235E-05_JPRB,0.17231E-05_JPRB,0.16995E-05_JPRB,0.68590E-06_JPRB /)  
+KA(:, 2, 8, 6) = (/ &
+ & 0.12557E-05_JPRB,0.19427E-05_JPRB,0.21667E-05_JPRB,0.22465E-05_JPRB,0.22625E-05_JPRB, &
+ & 0.22377E-05_JPRB,0.21596E-05_JPRB,0.18759E-05_JPRB,0.89490E-06_JPRB /)  
+KA(:, 3, 8, 6) = (/ &
+ & 0.12608E-05_JPRB,0.20627E-05_JPRB,0.23694E-05_JPRB,0.25224E-05_JPRB,0.25961E-05_JPRB, &
+ & 0.25892E-05_JPRB,0.25887E-05_JPRB,0.23400E-05_JPRB,0.11490E-05_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART4',1,ZHOOK_HANDLE)
+END SUBROUTINE PART4
+
+
+SUBROUTINE PART5
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART5',0,ZHOOK_HANDLE)
+
+
+KA(:, 4, 8, 6) = (/ &
+ & 0.12616E-05_JPRB,0.21916E-05_JPRB,0.25816E-05_JPRB,0.28156E-05_JPRB,0.29418E-05_JPRB, &
+ & 0.29759E-05_JPRB,0.29788E-05_JPRB,0.27379E-05_JPRB,0.14416E-05_JPRB /)  
+KA(:, 5, 8, 6) = (/ &
+ & 0.12590E-05_JPRB,0.23261E-05_JPRB,0.28013E-05_JPRB,0.31131E-05_JPRB,0.32990E-05_JPRB, &
+ & 0.33976E-05_JPRB,0.33946E-05_JPRB,0.32600E-05_JPRB,0.17529E-05_JPRB /)  
+KA(:, 1, 9, 6) = (/ &
+ & 0.10123E-05_JPRB,0.14681E-05_JPRB,0.15612E-05_JPRB,0.15411E-05_JPRB,0.14778E-05_JPRB, &
+ & 0.14343E-05_JPRB,0.12992E-05_JPRB,0.13172E-05_JPRB,0.49290E-06_JPRB /)  
+KA(:, 2, 9, 6) = (/ &
+ & 0.10245E-05_JPRB,0.15617E-05_JPRB,0.17149E-05_JPRB,0.17499E-05_JPRB,0.17312E-05_JPRB, &
+ & 0.17144E-05_JPRB,0.15772E-05_JPRB,0.14382E-05_JPRB,0.63132E-06_JPRB /)  
+KA(:, 3, 9, 6) = (/ &
+ & 0.10311E-05_JPRB,0.16600E-05_JPRB,0.18786E-05_JPRB,0.19738E-05_JPRB,0.20017E-05_JPRB, &
+ & 0.19859E-05_JPRB,0.19416E-05_JPRB,0.17139E-05_JPRB,0.82278E-06_JPRB /)  
+KA(:, 4, 9, 6) = (/ &
+ & 0.10334E-05_JPRB,0.17639E-05_JPRB,0.20493E-05_JPRB,0.22069E-05_JPRB,0.22845E-05_JPRB, &
+ & 0.22769E-05_JPRB,0.22855E-05_JPRB,0.21115E-05_JPRB,0.10531E-05_JPRB /)  
+KA(:, 5, 9, 6) = (/ &
+ & 0.10328E-05_JPRB,0.18738E-05_JPRB,0.22265E-05_JPRB,0.24495E-05_JPRB,0.25737E-05_JPRB, &
+ & 0.26232E-05_JPRB,0.26173E-05_JPRB,0.24699E-05_JPRB,0.12950E-05_JPRB /)  
+KA(:, 1,10, 6) = (/ &
+ & 0.82261E-06_JPRB,0.11811E-05_JPRB,0.12403E-05_JPRB,0.12060E-05_JPRB,0.11493E-05_JPRB, &
+ & 0.10907E-05_JPRB,0.98035E-06_JPRB,0.10980E-05_JPRB,0.37316E-06_JPRB /)  
+KA(:, 2,10, 6) = (/ &
+ & 0.83528E-06_JPRB,0.12595E-05_JPRB,0.13646E-05_JPRB,0.13745E-05_JPRB,0.13365E-05_JPRB, &
+ & 0.13172E-05_JPRB,0.11846E-05_JPRB,0.11491E-05_JPRB,0.46158E-06_JPRB /)  
+KA(:, 3,10, 6) = (/ &
+ & 0.84255E-06_JPRB,0.13392E-05_JPRB,0.14968E-05_JPRB,0.15528E-05_JPRB,0.15573E-05_JPRB, &
+ & 0.15339E-05_JPRB,0.14802E-05_JPRB,0.12811E-05_JPRB,0.60300E-06_JPRB /)  
+KA(:, 4,10, 6) = (/ &
+ & 0.84587E-06_JPRB,0.14245E-05_JPRB,0.16355E-05_JPRB,0.17381E-05_JPRB,0.17835E-05_JPRB, &
+ & 0.17693E-05_JPRB,0.17683E-05_JPRB,0.16097E-05_JPRB,0.77730E-06_JPRB /)  
+KA(:, 5,10, 6) = (/ &
+ & 0.84627E-06_JPRB,0.15137E-05_JPRB,0.17779E-05_JPRB,0.19378E-05_JPRB,0.20192E-05_JPRB, &
+ & 0.20387E-05_JPRB,0.20340E-05_JPRB,0.18636E-05_JPRB,0.96863E-06_JPRB /)  
+KA(:, 1,11, 6) = (/ &
+ & 0.67388E-06_JPRB,0.97942E-06_JPRB,0.10286E-05_JPRB,0.10023E-05_JPRB,0.95317E-06_JPRB, &
+ & 0.90847E-06_JPRB,0.81776E-06_JPRB,0.89345E-06_JPRB,0.30408E-06_JPRB /)  
+KA(:, 2,11, 6) = (/ &
+ & 0.68407E-06_JPRB,0.10438E-05_JPRB,0.11334E-05_JPRB,0.11425E-05_JPRB,0.11096E-05_JPRB, &
+ & 0.10886E-05_JPRB,0.98240E-06_JPRB,0.94798E-06_JPRB,0.38086E-06_JPRB /)  
+KA(:, 3,11, 6) = (/ &
+ & 0.69000E-06_JPRB,0.11106E-05_JPRB,0.12435E-05_JPRB,0.12890E-05_JPRB,0.12895E-05_JPRB, &
+ & 0.12679E-05_JPRB,0.12202E-05_JPRB,0.10522E-05_JPRB,0.49623E-06_JPRB /)  
+KA(:, 4,11, 6) = (/ &
+ & 0.69276E-06_JPRB,0.11824E-05_JPRB,0.13564E-05_JPRB,0.14402E-05_JPRB,0.14763E-05_JPRB, &
+ & 0.14628E-05_JPRB,0.14599E-05_JPRB,0.13328E-05_JPRB,0.63979E-06_JPRB /)  
+KA(:, 5,11, 6) = (/ &
+ & 0.69302E-06_JPRB,0.12555E-05_JPRB,0.14740E-05_JPRB,0.16049E-05_JPRB,0.16694E-05_JPRB, &
+ & 0.16839E-05_JPRB,0.16772E-05_JPRB,0.15421E-05_JPRB,0.79514E-06_JPRB /)  
+KA(:, 1,12, 6) = (/ &
+ & 0.55214E-06_JPRB,0.81079E-06_JPRB,0.85249E-06_JPRB,0.83175E-06_JPRB,0.78783E-06_JPRB, &
+ & 0.75281E-06_JPRB,0.67567E-06_JPRB,0.74075E-06_JPRB,0.24910E-06_JPRB /)  
+KA(:, 2,12, 6) = (/ &
+ & 0.56029E-06_JPRB,0.86391E-06_JPRB,0.94032E-06_JPRB,0.94758E-06_JPRB,0.91883E-06_JPRB, &
+ & 0.89834E-06_JPRB,0.81189E-06_JPRB,0.77883E-06_JPRB,0.31399E-06_JPRB /)  
+KA(:, 3,12, 6) = (/ &
+ & 0.56504E-06_JPRB,0.92066E-06_JPRB,0.10308E-05_JPRB,0.10667E-05_JPRB,0.10655E-05_JPRB, &
+ & 0.10460E-05_JPRB,0.10067E-05_JPRB,0.87150E-06_JPRB,0.40815E-06_JPRB /)  
+KA(:, 4,12, 6) = (/ &
+ & 0.56721E-06_JPRB,0.97985E-06_JPRB,0.11224E-05_JPRB,0.11915E-05_JPRB,0.12197E-05_JPRB, &
+ & 0.12063E-05_JPRB,0.12014E-05_JPRB,0.10950E-05_JPRB,0.52630E-06_JPRB /)  
+KA(:, 5,12, 6) = (/ &
+ & 0.56742E-06_JPRB,0.10399E-05_JPRB,0.12195E-05_JPRB,0.13255E-05_JPRB,0.13771E-05_JPRB, &
+ & 0.13876E-05_JPRB,0.13807E-05_JPRB,0.12724E-05_JPRB,0.65264E-06_JPRB /)  
+KA(:, 1,13, 6) = (/ &
+ & 0.45223E-06_JPRB,0.67006E-06_JPRB,0.70582E-06_JPRB,0.68873E-06_JPRB,0.65038E-06_JPRB, &
+ & 0.62084E-06_JPRB,0.55442E-06_JPRB,0.60996E-06_JPRB,0.20428E-06_JPRB /)  
+KA(:, 2,13, 6) = (/ &
+ & 0.45880E-06_JPRB,0.71490E-06_JPRB,0.77859E-06_JPRB,0.78376E-06_JPRB,0.75834E-06_JPRB, &
+ & 0.73987E-06_JPRB,0.66959E-06_JPRB,0.63711E-06_JPRB,0.25817E-06_JPRB /)  
+KA(:, 3,13, 6) = (/ &
+ & 0.46276E-06_JPRB,0.76231E-06_JPRB,0.85214E-06_JPRB,0.88098E-06_JPRB,0.87867E-06_JPRB, &
+ & 0.86188E-06_JPRB,0.83033E-06_JPRB,0.72166E-06_JPRB,0.33548E-06_JPRB /)  
+KA(:, 4,13, 6) = (/ &
+ & 0.46442E-06_JPRB,0.81043E-06_JPRB,0.92714E-06_JPRB,0.98329E-06_JPRB,0.10050E-05_JPRB, &
+ & 0.99247E-06_JPRB,0.98770E-06_JPRB,0.89931E-06_JPRB,0.43220E-06_JPRB /)  
+KA(:, 5,13, 6) = (/ &
+ & 0.46456E-06_JPRB,0.86048E-06_JPRB,0.10065E-05_JPRB,0.10920E-05_JPRB,0.11333E-05_JPRB, &
+ & 0.11411E-05_JPRB,0.11342E-05_JPRB,0.10473E-05_JPRB,0.53527E-06_JPRB /)  
+KA(:, 1, 1, 7) = (/ &
+ & 0.12335E-04_JPRB,0.15987E-04_JPRB,0.18565E-04_JPRB,0.20406E-04_JPRB,0.21636E-04_JPRB, &
+ & 0.22077E-04_JPRB,0.21364E-04_JPRB,0.19544E-04_JPRB,0.14733E-04_JPRB /)  
+KA(:, 2, 1, 7) = (/ &
+ & 0.12351E-04_JPRB,0.17014E-04_JPRB,0.20216E-04_JPRB,0.22480E-04_JPRB,0.24098E-04_JPRB, &
+ & 0.24791E-04_JPRB,0.24379E-04_JPRB,0.22600E-04_JPRB,0.17292E-04_JPRB /)  
+KA(:, 3, 1, 7) = (/ &
+ & 0.12364E-04_JPRB,0.18152E-04_JPRB,0.21907E-04_JPRB,0.24643E-04_JPRB,0.26659E-04_JPRB, &
+ & 0.27630E-04_JPRB,0.27512E-04_JPRB,0.25730E-04_JPRB,0.20236E-04_JPRB /)  
+KA(:, 4, 1, 7) = (/ &
+ & 0.12365E-04_JPRB,0.19320E-04_JPRB,0.23679E-04_JPRB,0.26885E-04_JPRB,0.29225E-04_JPRB, &
+ & 0.30430E-04_JPRB,0.30461E-04_JPRB,0.28726E-04_JPRB,0.23208E-04_JPRB /)  
+KA(:, 5, 1, 7) = (/ &
+ & 0.12355E-04_JPRB,0.20495E-04_JPRB,0.25505E-04_JPRB,0.29189E-04_JPRB,0.31816E-04_JPRB, &
+ & 0.33308E-04_JPRB,0.33478E-04_JPRB,0.31898E-04_JPRB,0.26469E-04_JPRB /)  
+KA(:, 1, 2, 7) = (/ &
+ & 0.10350E-04_JPRB,0.13753E-04_JPRB,0.16101E-04_JPRB,0.17726E-04_JPRB,0.18733E-04_JPRB, &
+ & 0.19034E-04_JPRB,0.18319E-04_JPRB,0.16594E-04_JPRB,0.11961E-04_JPRB /)  
+KA(:, 2, 2, 7) = (/ &
+ & 0.10365E-04_JPRB,0.14706E-04_JPRB,0.17542E-04_JPRB,0.19561E-04_JPRB,0.20895E-04_JPRB, &
+ & 0.21420E-04_JPRB,0.21012E-04_JPRB,0.19409E-04_JPRB,0.14130E-04_JPRB /)  
+KA(:, 3, 2, 7) = (/ &
+ & 0.10364E-04_JPRB,0.15733E-04_JPRB,0.19081E-04_JPRB,0.21505E-04_JPRB,0.23181E-04_JPRB, &
+ & 0.23958E-04_JPRB,0.23844E-04_JPRB,0.22334E-04_JPRB,0.16750E-04_JPRB /)  
+KA(:, 4, 2, 7) = (/ &
+ & 0.10354E-04_JPRB,0.16759E-04_JPRB,0.20670E-04_JPRB,0.23471E-04_JPRB,0.25440E-04_JPRB, &
+ & 0.26474E-04_JPRB,0.26560E-04_JPRB,0.25188E-04_JPRB,0.19386E-04_JPRB /)  
+KA(:, 5, 2, 7) = (/ &
+ & 0.10329E-04_JPRB,0.17823E-04_JPRB,0.22292E-04_JPRB,0.25488E-04_JPRB,0.27703E-04_JPRB, &
+ & 0.28957E-04_JPRB,0.29205E-04_JPRB,0.27936E-04_JPRB,0.22026E-04_JPRB /)  
+KA(:, 1, 3, 7) = (/ &
+ & 0.86408E-05_JPRB,0.11607E-04_JPRB,0.13624E-04_JPRB,0.14928E-04_JPRB,0.15622E-04_JPRB, &
+ & 0.15768E-04_JPRB,0.15034E-04_JPRB,0.13540E-04_JPRB,0.91950E-05_JPRB /)  
+KA(:, 2, 3, 7) = (/ &
+ & 0.86478E-05_JPRB,0.12463E-04_JPRB,0.14889E-04_JPRB,0.16508E-04_JPRB,0.17482E-04_JPRB, &
+ & 0.17819E-04_JPRB,0.17439E-04_JPRB,0.15994E-04_JPRB,0.11026E-04_JPRB /)  
+KA(:, 3, 3, 7) = (/ &
+ & 0.86444E-05_JPRB,0.13354E-04_JPRB,0.16234E-04_JPRB,0.18159E-04_JPRB,0.19394E-04_JPRB, &
+ & 0.19962E-04_JPRB,0.19837E-04_JPRB,0.18485E-04_JPRB,0.13087E-04_JPRB /)  
+KA(:, 4, 3, 7) = (/ &
+ & 0.86273E-05_JPRB,0.14262E-04_JPRB,0.17647E-04_JPRB,0.19921E-04_JPRB,0.21457E-04_JPRB, &
+ & 0.22290E-04_JPRB,0.22338E-04_JPRB,0.21203E-04_JPRB,0.15397E-04_JPRB /)  
+KA(:, 5, 3, 7) = (/ &
+ & 0.85960E-05_JPRB,0.15200E-04_JPRB,0.19031E-04_JPRB,0.21649E-04_JPRB,0.23415E-04_JPRB, &
+ & 0.24453E-04_JPRB,0.24660E-04_JPRB,0.23666E-04_JPRB,0.17582E-04_JPRB /)  
+KA(:, 1, 4, 7) = (/ &
+ & 0.71803E-05_JPRB,0.97101E-05_JPRB,0.11373E-04_JPRB,0.12321E-04_JPRB,0.12789E-04_JPRB, &
+ & 0.12803E-04_JPRB,0.12062E-04_JPRB,0.10784E-04_JPRB,0.69624E-05_JPRB /)  
+KA(:, 2, 4, 7) = (/ &
+ & 0.71855E-05_JPRB,0.10459E-04_JPRB,0.12456E-04_JPRB,0.13673E-04_JPRB,0.14371E-04_JPRB, &
+ & 0.14569E-04_JPRB,0.14153E-04_JPRB,0.12788E-04_JPRB,0.84564E-05_JPRB /)  
+KA(:, 3, 4, 7) = (/ &
+ & 0.71795E-05_JPRB,0.11229E-04_JPRB,0.13608E-04_JPRB,0.15091E-04_JPRB,0.16013E-04_JPRB, &
+ & 0.16409E-04_JPRB,0.16232E-04_JPRB,0.15085E-04_JPRB,0.10120E-04_JPRB /)  
+KA(:, 4, 4, 7) = (/ &
+ & 0.71584E-05_JPRB,0.12023E-04_JPRB,0.14800E-04_JPRB,0.16568E-04_JPRB,0.17732E-04_JPRB, &
+ & 0.18336E-04_JPRB,0.18317E-04_JPRB,0.17347E-04_JPRB,0.11917E-04_JPRB /)  
+KA(:, 5, 4, 7) = (/ &
+ & 0.71267E-05_JPRB,0.12845E-04_JPRB,0.16058E-04_JPRB,0.18162E-04_JPRB,0.19580E-04_JPRB, &
+ & 0.20399E-04_JPRB,0.20543E-04_JPRB,0.19767E-04_JPRB,0.13958E-04_JPRB /)  
+KA(:, 1, 5, 7) = (/ &
+ & 0.59442E-05_JPRB,0.80861E-05_JPRB,0.93878E-05_JPRB,0.10066E-04_JPRB,0.10362E-04_JPRB, &
+ & 0.10281E-04_JPRB,0.95734E-05_JPRB,0.84778E-05_JPRB,0.52204E-05_JPRB /)  
+KA(:, 2, 5, 7) = (/ &
+ & 0.59498E-05_JPRB,0.87281E-05_JPRB,0.10301E-04_JPRB,0.11210E-04_JPRB,0.11702E-04_JPRB, &
+ & 0.11782E-04_JPRB,0.11315E-04_JPRB,0.10068E-04_JPRB,0.64302E-05_JPRB /)  
+KA(:, 3, 5, 7) = (/ &
+ & 0.59430E-05_JPRB,0.93925E-05_JPRB,0.11277E-04_JPRB,0.12419E-04_JPRB,0.13099E-04_JPRB, &
+ & 0.13351E-04_JPRB,0.13104E-04_JPRB,0.12095E-04_JPRB,0.77633E-05_JPRB /)  
+KA(:, 4, 5, 7) = (/ &
+ & 0.59217E-05_JPRB,0.10078E-04_JPRB,0.12288E-04_JPRB,0.13686E-04_JPRB,0.14573E-04_JPRB, &
+ & 0.14994E-04_JPRB,0.14908E-04_JPRB,0.14023E-04_JPRB,0.92337E-05_JPRB /)  
+KA(:, 5, 5, 7) = (/ &
+ & 0.58935E-05_JPRB,0.10789E-04_JPRB,0.13390E-04_JPRB,0.15066E-04_JPRB,0.16172E-04_JPRB, &
+ & 0.16788E-04_JPRB,0.16832E-04_JPRB,0.16140E-04_JPRB,0.10913E-04_JPRB /)  
+KA(:, 1, 6, 7) = (/ &
+ & 0.49077E-05_JPRB,0.66672E-05_JPRB,0.76412E-05_JPRB,0.81181E-05_JPRB,0.82831E-05_JPRB, &
+ & 0.81137E-05_JPRB,0.74381E-05_JPRB,0.64600E-05_JPRB,0.38540E-05_JPRB /)  
+KA(:, 2, 6, 7) = (/ &
+ & 0.49136E-05_JPRB,0.72093E-05_JPRB,0.84100E-05_JPRB,0.90761E-05_JPRB,0.94026E-05_JPRB, &
+ & 0.93849E-05_JPRB,0.88761E-05_JPRB,0.77852E-05_JPRB,0.48097E-05_JPRB /)  
+KA(:, 3, 6, 7) = (/ &
+ & 0.49088E-05_JPRB,0.77732E-05_JPRB,0.92304E-05_JPRB,0.10089E-04_JPRB,0.10581E-04_JPRB, &
+ & 0.10707E-04_JPRB,0.10412E-04_JPRB,0.94217E-05_JPRB,0.58741E-05_JPRB /)  
+KA(:, 4, 6, 7) = (/ &
+ & 0.48919E-05_JPRB,0.83551E-05_JPRB,0.10086E-04_JPRB,0.11166E-04_JPRB,0.11831E-04_JPRB, &
+ & 0.12095E-04_JPRB,0.11941E-04_JPRB,0.11106E-04_JPRB,0.70559E-05_JPRB /)  
+KA(:, 5, 6, 7) = (/ &
+ & 0.48652E-05_JPRB,0.89412E-05_JPRB,0.10983E-04_JPRB,0.12289E-04_JPRB,0.13118E-04_JPRB, &
+ & 0.13538E-04_JPRB,0.13477E-04_JPRB,0.12811E-04_JPRB,0.83378E-05_JPRB /)  
+KA(:, 1, 7, 7) = (/ &
+ & 0.40428E-05_JPRB,0.54588E-05_JPRB,0.61687E-05_JPRB,0.64926E-05_JPRB,0.65568E-05_JPRB, &
+ & 0.63259E-05_JPRB,0.56948E-05_JPRB,0.49607E-05_JPRB,0.28237E-05_JPRB /)  
+KA(:, 2, 7, 7) = (/ &
+ & 0.40484E-05_JPRB,0.59019E-05_JPRB,0.68052E-05_JPRB,0.72891E-05_JPRB,0.74881E-05_JPRB, &
+ & 0.73951E-05_JPRB,0.68736E-05_JPRB,0.59771E-05_JPRB,0.35700E-05_JPRB /)  
+KA(:, 3, 7, 7) = (/ &
+ & 0.40443E-05_JPRB,0.63719E-05_JPRB,0.74936E-05_JPRB,0.81309E-05_JPRB,0.84699E-05_JPRB, &
+ & 0.84975E-05_JPRB,0.81643E-05_JPRB,0.72224E-05_JPRB,0.43995E-05_JPRB /)  
+KA(:, 4, 7, 7) = (/ &
+ & 0.40304E-05_JPRB,0.68636E-05_JPRB,0.82100E-05_JPRB,0.90329E-05_JPRB,0.95142E-05_JPRB, &
+ & 0.96616E-05_JPRB,0.94576E-05_JPRB,0.86932E-05_JPRB,0.53385E-05_JPRB /)  
+KA(:, 5, 7, 7) = (/ &
+ & 0.40097E-05_JPRB,0.73587E-05_JPRB,0.89665E-05_JPRB,0.99825E-05_JPRB,0.10592E-04_JPRB, &
+ & 0.10860E-04_JPRB,0.10751E-04_JPRB,0.10114E-04_JPRB,0.63905E-05_JPRB /)  
+KA(:, 1, 8, 7) = (/ &
+ & 0.33247E-05_JPRB,0.44437E-05_JPRB,0.49476E-05_JPRB,0.51623E-05_JPRB,0.51521E-05_JPRB, &
+ & 0.48927E-05_JPRB,0.43130E-05_JPRB,0.36508E-05_JPRB,0.20433E-05_JPRB /)  
+KA(:, 2, 8, 7) = (/ &
+ & 0.33302E-05_JPRB,0.48035E-05_JPRB,0.54757E-05_JPRB,0.58129E-05_JPRB,0.59219E-05_JPRB, &
+ & 0.57796E-05_JPRB,0.52788E-05_JPRB,0.45081E-05_JPRB,0.26233E-05_JPRB /)  
+KA(:, 3, 8, 7) = (/ &
+ & 0.33275E-05_JPRB,0.51944E-05_JPRB,0.60436E-05_JPRB,0.65119E-05_JPRB,0.67329E-05_JPRB, &
+ & 0.66992E-05_JPRB,0.63336E-05_JPRB,0.54989E-05_JPRB,0.32839E-05_JPRB /)  
+KA(:, 4, 8, 7) = (/ &
+ & 0.33167E-05_JPRB,0.56042E-05_JPRB,0.66425E-05_JPRB,0.72606E-05_JPRB,0.75965E-05_JPRB, &
+ & 0.76619E-05_JPRB,0.74319E-05_JPRB,0.66922E-05_JPRB,0.40228E-05_JPRB /)  
+KA(:, 5, 8, 7) = (/ &
+ & 0.33014E-05_JPRB,0.60212E-05_JPRB,0.72748E-05_JPRB,0.80496E-05_JPRB,0.84940E-05_JPRB, &
+ & 0.86532E-05_JPRB,0.85181E-05_JPRB,0.78992E-05_JPRB,0.48672E-05_JPRB /)  
+KA(:, 1, 9, 7) = (/ &
+ & 0.27310E-05_JPRB,0.35992E-05_JPRB,0.39468E-05_JPRB,0.40831E-05_JPRB,0.40161E-05_JPRB, &
+ & 0.37266E-05_JPRB,0.32070E-05_JPRB,0.27591E-05_JPRB,0.14628E-05_JPRB /)  
+KA(:, 2, 9, 7) = (/ &
+ & 0.27361E-05_JPRB,0.38904E-05_JPRB,0.43781E-05_JPRB,0.46075E-05_JPRB,0.46475E-05_JPRB, &
+ & 0.44710E-05_JPRB,0.39993E-05_JPRB,0.33922E-05_JPRB,0.19203E-05_JPRB /)  
+KA(:, 3, 9, 7) = (/ &
+ & 0.27349E-05_JPRB,0.42103E-05_JPRB,0.48448E-05_JPRB,0.51814E-05_JPRB,0.53150E-05_JPRB, &
+ & 0.52403E-05_JPRB,0.48712E-05_JPRB,0.41669E-05_JPRB,0.24268E-05_JPRB /)  
+KA(:, 4, 9, 7) = (/ &
+ & 0.27270E-05_JPRB,0.45504E-05_JPRB,0.53414E-05_JPRB,0.57970E-05_JPRB,0.60255E-05_JPRB, &
+ & 0.60359E-05_JPRB,0.57915E-05_JPRB,0.51016E-05_JPRB,0.30070E-05_JPRB /)  
+KA(:, 5, 9, 7) = (/ &
+ & 0.27146E-05_JPRB,0.48994E-05_JPRB,0.58660E-05_JPRB,0.64467E-05_JPRB,0.67684E-05_JPRB, &
+ & 0.68529E-05_JPRB,0.66981E-05_JPRB,0.61431E-05_JPRB,0.36677E-05_JPRB /)  
+KA(:, 1,10, 7) = (/ &
+ & 0.22419E-05_JPRB,0.29237E-05_JPRB,0.31619E-05_JPRB,0.32419E-05_JPRB,0.31445E-05_JPRB, &
+ & 0.28618E-05_JPRB,0.23945E-05_JPRB,0.20454E-05_JPRB,0.10493E-05_JPRB /)  
+KA(:, 2,10, 7) = (/ &
+ & 0.22458E-05_JPRB,0.31578E-05_JPRB,0.35134E-05_JPRB,0.36703E-05_JPRB,0.36665E-05_JPRB, &
+ & 0.34835E-05_JPRB,0.30593E-05_JPRB,0.25559E-05_JPRB,0.14125E-05_JPRB /)  
+KA(:, 3,10, 7) = (/ &
+ & 0.22450E-05_JPRB,0.34192E-05_JPRB,0.38967E-05_JPRB,0.41378E-05_JPRB,0.42160E-05_JPRB, &
+ & 0.41184E-05_JPRB,0.37724E-05_JPRB,0.31954E-05_JPRB,0.18099E-05_JPRB /)  
+KA(:, 4,10, 7) = (/ &
+ & 0.22393E-05_JPRB,0.36988E-05_JPRB,0.43039E-05_JPRB,0.46449E-05_JPRB,0.48027E-05_JPRB, &
+ & 0.47756E-05_JPRB,0.45281E-05_JPRB,0.39284E-05_JPRB,0.22652E-05_JPRB /)  
+KA(:, 5,10, 7) = (/ &
+ & 0.22295E-05_JPRB,0.39888E-05_JPRB,0.47391E-05_JPRB,0.51827E-05_JPRB,0.54135E-05_JPRB, &
+ & 0.54517E-05_JPRB,0.52919E-05_JPRB,0.47894E-05_JPRB,0.27859E-05_JPRB /)  
+KA(:, 1,11, 7) = (/ &
+ & 0.18412E-05_JPRB,0.24512E-05_JPRB,0.26550E-05_JPRB,0.27210E-05_JPRB,0.26438E-05_JPRB, &
+ & 0.24068E-05_JPRB,0.20134E-05_JPRB,0.16980E-05_JPRB,0.87310E-06_JPRB /)  
+KA(:, 2,11, 7) = (/ &
+ & 0.18429E-05_JPRB,0.26525E-05_JPRB,0.29507E-05_JPRB,0.30835E-05_JPRB,0.30829E-05_JPRB, &
+ & 0.29354E-05_JPRB,0.25810E-05_JPRB,0.21539E-05_JPRB,0.11715E-05_JPRB /)  
+KA(:, 3,11, 7) = (/ &
+ & 0.18405E-05_JPRB,0.28725E-05_JPRB,0.32735E-05_JPRB,0.34815E-05_JPRB,0.35507E-05_JPRB, &
+ & 0.34733E-05_JPRB,0.31901E-05_JPRB,0.26957E-05_JPRB,0.15018E-05_JPRB /)  
+KA(:, 4,11, 7) = (/ &
+ & 0.18348E-05_JPRB,0.31060E-05_JPRB,0.36191E-05_JPRB,0.39123E-05_JPRB,0.40426E-05_JPRB, &
+ & 0.40206E-05_JPRB,0.38184E-05_JPRB,0.33125E-05_JPRB,0.18804E-05_JPRB /)  
+KA(:, 5,11, 7) = (/ &
+ & 0.18263E-05_JPRB,0.33539E-05_JPRB,0.39862E-05_JPRB,0.43590E-05_JPRB,0.45516E-05_JPRB, &
+ & 0.45841E-05_JPRB,0.44525E-05_JPRB,0.40371E-05_JPRB,0.23130E-05_JPRB /)  
+KA(:, 1,12, 7) = (/ &
+ & 0.15111E-05_JPRB,0.20512E-05_JPRB,0.22220E-05_JPRB,0.22783E-05_JPRB,0.22181E-05_JPRB, &
+ & 0.20219E-05_JPRB,0.16992E-05_JPRB,0.14085E-05_JPRB,0.72438E-06_JPRB /)  
+KA(:, 2,12, 7) = (/ &
+ & 0.15111E-05_JPRB,0.22209E-05_JPRB,0.24719E-05_JPRB,0.25841E-05_JPRB,0.25877E-05_JPRB, &
+ & 0.24700E-05_JPRB,0.21742E-05_JPRB,0.18087E-05_JPRB,0.96963E-06_JPRB /)  
+KA(:, 3,12, 7) = (/ &
+ & 0.15082E-05_JPRB,0.24051E-05_JPRB,0.27419E-05_JPRB,0.29223E-05_JPRB,0.29832E-05_JPRB, &
+ & 0.29201E-05_JPRB,0.26833E-05_JPRB,0.22609E-05_JPRB,0.12444E-05_JPRB /)  
+KA(:, 4,12, 7) = (/ &
+ & 0.15029E-05_JPRB,0.26018E-05_JPRB,0.30364E-05_JPRB,0.32843E-05_JPRB,0.33933E-05_JPRB, &
+ & 0.33730E-05_JPRB,0.32057E-05_JPRB,0.27875E-05_JPRB,0.15571E-05_JPRB /)  
+KA(:, 5,12, 7) = (/ &
+ & 0.14954E-05_JPRB,0.28127E-05_JPRB,0.33443E-05_JPRB,0.36551E-05_JPRB,0.38145E-05_JPRB, &
+ & 0.38425E-05_JPRB,0.37317E-05_JPRB,0.33866E-05_JPRB,0.19133E-05_JPRB /)  
+KA(:, 1,13, 7) = (/ &
+ & 0.12390E-05_JPRB,0.17127E-05_JPRB,0.18553E-05_JPRB,0.19025E-05_JPRB,0.18568E-05_JPRB, &
+ & 0.16968E-05_JPRB,0.14297E-05_JPRB,0.11813E-05_JPRB,0.59950E-06_JPRB /)  
+KA(:, 2,13, 7) = (/ &
+ & 0.12381E-05_JPRB,0.18537E-05_JPRB,0.20641E-05_JPRB,0.21603E-05_JPRB,0.21689E-05_JPRB, &
+ & 0.20712E-05_JPRB,0.18216E-05_JPRB,0.15132E-05_JPRB,0.80096E-06_JPRB /)  
+KA(:, 3,13, 7) = (/ &
+ & 0.12352E-05_JPRB,0.20080E-05_JPRB,0.22929E-05_JPRB,0.24467E-05_JPRB,0.24992E-05_JPRB, &
+ & 0.24434E-05_JPRB,0.22447E-05_JPRB,0.18839E-05_JPRB,0.10290E-05_JPRB /)  
+KA(:, 4,13, 7) = (/ &
+ & 0.12307E-05_JPRB,0.21754E-05_JPRB,0.25409E-05_JPRB,0.27489E-05_JPRB,0.28366E-05_JPRB, &
+ & 0.28171E-05_JPRB,0.26776E-05_JPRB,0.23303E-05_JPRB,0.12853E-05_JPRB /)  
+KA(:, 5,13, 7) = (/ &
+ & 0.12246E-05_JPRB,0.23532E-05_JPRB,0.27977E-05_JPRB,0.30556E-05_JPRB,0.31857E-05_JPRB, &
+ & 0.32077E-05_JPRB,0.31127E-05_JPRB,0.28260E-05_JPRB,0.15788E-05_JPRB /)  
+KA(:, 1, 1, 8) = (/ &
+ & 0.43566E-04_JPRB,0.45402E-04_JPRB,0.48829E-04_JPRB,0.50194E-04_JPRB,0.49978E-04_JPRB, &
+ & 0.48581E-04_JPRB,0.45902E-04_JPRB,0.40781E-04_JPRB,0.34170E-04_JPRB /)  
+KA(:, 2, 1, 8) = (/ &
+ & 0.43974E-04_JPRB,0.47415E-04_JPRB,0.52012E-04_JPRB,0.54325E-04_JPRB,0.54921E-04_JPRB, &
+ & 0.53975E-04_JPRB,0.51279E-04_JPRB,0.46650E-04_JPRB,0.40945E-04_JPRB /)  
+KA(:, 3, 1, 8) = (/ &
+ & 0.44333E-04_JPRB,0.49545E-04_JPRB,0.55453E-04_JPRB,0.58909E-04_JPRB,0.60094E-04_JPRB, &
+ & 0.59376E-04_JPRB,0.56940E-04_JPRB,0.52843E-04_JPRB,0.48266E-04_JPRB /)  
+KA(:, 4, 1, 8) = (/ &
+ & 0.44647E-04_JPRB,0.51771E-04_JPRB,0.59155E-04_JPRB,0.63607E-04_JPRB,0.65306E-04_JPRB, &
+ & 0.64935E-04_JPRB,0.62961E-04_JPRB,0.59262E-04_JPRB,0.55812E-04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART5',1,ZHOOK_HANDLE)
+END SUBROUTINE PART5
+
+
+SUBROUTINE PART6
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART6',0,ZHOOK_HANDLE)
+
+
+KA(:, 5, 1, 8) = (/ &
+ & 0.44938E-04_JPRB,0.54202E-04_JPRB,0.63063E-04_JPRB,0.68229E-04_JPRB,0.70615E-04_JPRB, &
+ & 0.70683E-04_JPRB,0.69315E-04_JPRB,0.65992E-04_JPRB,0.63855E-04_JPRB /)  
+KA(:, 1, 2, 8) = (/ &
+ & 0.37849E-04_JPRB,0.40606E-04_JPRB,0.43836E-04_JPRB,0.45171E-04_JPRB,0.45318E-04_JPRB, &
+ & 0.44251E-04_JPRB,0.41853E-04_JPRB,0.37247E-04_JPRB,0.29303E-04_JPRB /)  
+KA(:, 2, 2, 8) = (/ &
+ & 0.38202E-04_JPRB,0.42545E-04_JPRB,0.46901E-04_JPRB,0.49156E-04_JPRB,0.50002E-04_JPRB, &
+ & 0.49256E-04_JPRB,0.46845E-04_JPRB,0.42755E-04_JPRB,0.35187E-04_JPRB /)  
+KA(:, 3, 2, 8) = (/ &
+ & 0.38525E-04_JPRB,0.44570E-04_JPRB,0.50219E-04_JPRB,0.53465E-04_JPRB,0.54833E-04_JPRB, &
+ & 0.54348E-04_JPRB,0.52176E-04_JPRB,0.48578E-04_JPRB,0.41697E-04_JPRB /)  
+KA(:, 4, 2, 8) = (/ &
+ & 0.38828E-04_JPRB,0.46787E-04_JPRB,0.53767E-04_JPRB,0.57818E-04_JPRB,0.59705E-04_JPRB, &
+ & 0.59611E-04_JPRB,0.57787E-04_JPRB,0.54523E-04_JPRB,0.48350E-04_JPRB /)  
+KA(:, 5, 2, 8) = (/ &
+ & 0.39076E-04_JPRB,0.49105E-04_JPRB,0.57380E-04_JPRB,0.62144E-04_JPRB,0.64743E-04_JPRB, &
+ & 0.65049E-04_JPRB,0.63700E-04_JPRB,0.60747E-04_JPRB,0.55348E-04_JPRB /)  
+KA(:, 1, 3, 8) = (/ &
+ & 0.32392E-04_JPRB,0.35504E-04_JPRB,0.38232E-04_JPRB,0.39483E-04_JPRB,0.39809E-04_JPRB, &
+ & 0.39031E-04_JPRB,0.36901E-04_JPRB,0.32585E-04_JPRB,0.23735E-04_JPRB /)  
+KA(:, 2, 3, 8) = (/ &
+ & 0.32715E-04_JPRB,0.37303E-04_JPRB,0.41039E-04_JPRB,0.43202E-04_JPRB,0.44102E-04_JPRB, &
+ & 0.43582E-04_JPRB,0.41484E-04_JPRB,0.37593E-04_JPRB,0.28689E-04_JPRB /)  
+KA(:, 3, 3, 8) = (/ &
+ & 0.33011E-04_JPRB,0.39216E-04_JPRB,0.44127E-04_JPRB,0.47180E-04_JPRB,0.48515E-04_JPRB, &
+ & 0.48269E-04_JPRB,0.46352E-04_JPRB,0.42866E-04_JPRB,0.34062E-04_JPRB /)  
+KA(:, 4, 3, 8) = (/ &
+ & 0.33271E-04_JPRB,0.41283E-04_JPRB,0.47451E-04_JPRB,0.51158E-04_JPRB,0.53031E-04_JPRB, &
+ & 0.53191E-04_JPRB,0.51599E-04_JPRB,0.48489E-04_JPRB,0.40122E-04_JPRB /)  
+KA(:, 5, 3, 8) = (/ &
+ & 0.33495E-04_JPRB,0.43439E-04_JPRB,0.50779E-04_JPRB,0.55143E-04_JPRB,0.57687E-04_JPRB, &
+ & 0.58208E-04_JPRB,0.56935E-04_JPRB,0.54138E-04_JPRB,0.46109E-04_JPRB /)  
+KA(:, 1, 4, 8) = (/ &
+ & 0.27415E-04_JPRB,0.30543E-04_JPRB,0.32764E-04_JPRB,0.33940E-04_JPRB,0.34340E-04_JPRB, &
+ & 0.33775E-04_JPRB,0.31812E-04_JPRB,0.27722E-04_JPRB,0.18770E-04_JPRB /)  
+KA(:, 2, 4, 8) = (/ &
+ & 0.27715E-04_JPRB,0.32169E-04_JPRB,0.35304E-04_JPRB,0.37332E-04_JPRB,0.38224E-04_JPRB, &
+ & 0.37868E-04_JPRB,0.35986E-04_JPRB,0.32265E-04_JPRB,0.22928E-04_JPRB /)  
+KA(:, 3, 4, 8) = (/ &
+ & 0.27982E-04_JPRB,0.33932E-04_JPRB,0.38141E-04_JPRB,0.40925E-04_JPRB,0.42223E-04_JPRB, &
+ & 0.42122E-04_JPRB,0.40409E-04_JPRB,0.37026E-04_JPRB,0.27474E-04_JPRB /)  
+KA(:, 4, 4, 8) = (/ &
+ & 0.28215E-04_JPRB,0.35808E-04_JPRB,0.41184E-04_JPRB,0.44532E-04_JPRB,0.46320E-04_JPRB, &
+ & 0.46554E-04_JPRB,0.45091E-04_JPRB,0.41998E-04_JPRB,0.32462E-04_JPRB /)  
+KA(:, 5, 4, 8) = (/ &
+ & 0.28437E-04_JPRB,0.37809E-04_JPRB,0.44202E-04_JPRB,0.48199E-04_JPRB,0.50577E-04_JPRB, &
+ & 0.51211E-04_JPRB,0.50186E-04_JPRB,0.47427E-04_JPRB,0.38088E-04_JPRB /)  
+KA(:, 1, 5, 8) = (/ &
+ & 0.23010E-04_JPRB,0.25978E-04_JPRB,0.27838E-04_JPRB,0.28899E-04_JPRB,0.29286E-04_JPRB, &
+ & 0.28721E-04_JPRB,0.26945E-04_JPRB,0.23196E-04_JPRB,0.14687E-04_JPRB /)  
+KA(:, 2, 5, 8) = (/ &
+ & 0.23283E-04_JPRB,0.27434E-04_JPRB,0.30115E-04_JPRB,0.31931E-04_JPRB,0.32743E-04_JPRB, &
+ & 0.32398E-04_JPRB,0.30674E-04_JPRB,0.27269E-04_JPRB,0.18140E-04_JPRB /)  
+KA(:, 3, 5, 8) = (/ &
+ & 0.23522E-04_JPRB,0.29002E-04_JPRB,0.32686E-04_JPRB,0.35125E-04_JPRB,0.36325E-04_JPRB, &
+ & 0.36232E-04_JPRB,0.34626E-04_JPRB,0.31511E-04_JPRB,0.21987E-04_JPRB /)  
+KA(:, 4, 5, 8) = (/ &
+ & 0.23738E-04_JPRB,0.30687E-04_JPRB,0.35404E-04_JPRB,0.38366E-04_JPRB,0.40013E-04_JPRB, &
+ & 0.40198E-04_JPRB,0.38830E-04_JPRB,0.35973E-04_JPRB,0.26236E-04_JPRB /)  
+KA(:, 5, 5, 8) = (/ &
+ & 0.23936E-04_JPRB,0.32534E-04_JPRB,0.38093E-04_JPRB,0.41748E-04_JPRB,0.43875E-04_JPRB, &
+ & 0.44440E-04_JPRB,0.43519E-04_JPRB,0.40954E-04_JPRB,0.31086E-04_JPRB /)  
+KA(:, 1, 6, 8) = (/ &
+ & 0.19172E-04_JPRB,0.21867E-04_JPRB,0.23409E-04_JPRB,0.24321E-04_JPRB,0.24529E-04_JPRB, &
+ & 0.23927E-04_JPRB,0.22333E-04_JPRB,0.18955E-04_JPRB,0.11218E-04_JPRB /)  
+KA(:, 2, 6, 8) = (/ &
+ & 0.19419E-04_JPRB,0.23150E-04_JPRB,0.25412E-04_JPRB,0.26974E-04_JPRB,0.27574E-04_JPRB, &
+ & 0.27129E-04_JPRB,0.25625E-04_JPRB,0.22590E-04_JPRB,0.14082E-04_JPRB /)  
+KA(:, 3, 6, 8) = (/ &
+ & 0.19636E-04_JPRB,0.24533E-04_JPRB,0.27708E-04_JPRB,0.29785E-04_JPRB,0.30733E-04_JPRB, &
+ & 0.30517E-04_JPRB,0.29114E-04_JPRB,0.26329E-04_JPRB,0.17293E-04_JPRB /)  
+KA(:, 4, 6, 8) = (/ &
+ & 0.19836E-04_JPRB,0.26054E-04_JPRB,0.30093E-04_JPRB,0.32660E-04_JPRB,0.34002E-04_JPRB, &
+ & 0.34049E-04_JPRB,0.32819E-04_JPRB,0.30271E-04_JPRB,0.20869E-04_JPRB /)  
+KA(:, 5, 6, 8) = (/ &
+ & 0.20002E-04_JPRB,0.27734E-04_JPRB,0.32461E-04_JPRB,0.35638E-04_JPRB,0.37355E-04_JPRB, &
+ & 0.37686E-04_JPRB,0.36788E-04_JPRB,0.34519E-04_JPRB,0.24769E-04_JPRB /)  
+KA(:, 1, 7, 8) = (/ &
+ & 0.15886E-04_JPRB,0.18280E-04_JPRB,0.19557E-04_JPRB,0.20235E-04_JPRB,0.20297E-04_JPRB, &
+ & 0.19642E-04_JPRB,0.18202E-04_JPRB,0.15130E-04_JPRB,0.84335E-05_JPRB /)  
+KA(:, 2, 7, 8) = (/ &
+ & 0.16105E-04_JPRB,0.19408E-04_JPRB,0.21322E-04_JPRB,0.22532E-04_JPRB,0.22888E-04_JPRB, &
+ & 0.22409E-04_JPRB,0.21064E-04_JPRB,0.18396E-04_JPRB,0.10766E-04_JPRB /)  
+KA(:, 3, 7, 8) = (/ &
+ & 0.16304E-04_JPRB,0.20629E-04_JPRB,0.23329E-04_JPRB,0.24999E-04_JPRB,0.25612E-04_JPRB, &
+ & 0.25350E-04_JPRB,0.24115E-04_JPRB,0.21685E-04_JPRB,0.13408E-04_JPRB /)  
+KA(:, 4, 7, 8) = (/ &
+ & 0.16482E-04_JPRB,0.21985E-04_JPRB,0.25409E-04_JPRB,0.27506E-04_JPRB,0.28475E-04_JPRB, &
+ & 0.28447E-04_JPRB,0.27347E-04_JPRB,0.25116E-04_JPRB,0.16377E-04_JPRB /)  
+KA(:, 5, 7, 8) = (/ &
+ & 0.16621E-04_JPRB,0.23483E-04_JPRB,0.27507E-04_JPRB,0.30111E-04_JPRB,0.31449E-04_JPRB, &
+ & 0.31651E-04_JPRB,0.30823E-04_JPRB,0.28853E-04_JPRB,0.19647E-04_JPRB /)  
+KA(:, 1, 8, 8) = (/ &
+ & 0.13104E-04_JPRB,0.15202E-04_JPRB,0.16227E-04_JPRB,0.16675E-04_JPRB,0.16618E-04_JPRB, &
+ & 0.15949E-04_JPRB,0.14642E-04_JPRB,0.11862E-04_JPRB,0.62741E-05_JPRB /)  
+KA(:, 2, 8, 8) = (/ &
+ & 0.13296E-04_JPRB,0.16183E-04_JPRB,0.17762E-04_JPRB,0.18645E-04_JPRB,0.18799E-04_JPRB, &
+ & 0.18302E-04_JPRB,0.17108E-04_JPRB,0.14749E-04_JPRB,0.81431E-05_JPRB /)  
+KA(:, 3, 8, 8) = (/ &
+ & 0.13475E-04_JPRB,0.17250E-04_JPRB,0.19501E-04_JPRB,0.20748E-04_JPRB,0.21144E-04_JPRB, &
+ & 0.20825E-04_JPRB,0.19726E-04_JPRB,0.17623E-04_JPRB,0.10291E-04_JPRB /)  
+KA(:, 4, 8, 8) = (/ &
+ & 0.13631E-04_JPRB,0.18462E-04_JPRB,0.21319E-04_JPRB,0.22916E-04_JPRB,0.23622E-04_JPRB, &
+ & 0.23509E-04_JPRB,0.22509E-04_JPRB,0.20604E-04_JPRB,0.12727E-04_JPRB /)  
+KA(:, 5, 8, 8) = (/ &
+ & 0.13752E-04_JPRB,0.19773E-04_JPRB,0.23162E-04_JPRB,0.25182E-04_JPRB,0.26210E-04_JPRB, &
+ & 0.26298E-04_JPRB,0.25526E-04_JPRB,0.23837E-04_JPRB,0.15433E-04_JPRB /)  
+KA(:, 1, 9, 8) = (/ &
+ & 0.10771E-04_JPRB,0.12580E-04_JPRB,0.13349E-04_JPRB,0.13617E-04_JPRB,0.13459E-04_JPRB, &
+ & 0.12816E-04_JPRB,0.11635E-04_JPRB,0.90636E-05_JPRB,0.45849E-05_JPRB /)  
+KA(:, 2, 9, 8) = (/ &
+ & 0.10937E-04_JPRB,0.13431E-04_JPRB,0.14667E-04_JPRB,0.15270E-04_JPRB,0.15289E-04_JPRB, &
+ & 0.14786E-04_JPRB,0.13720E-04_JPRB,0.11614E-04_JPRB,0.60707E-05_JPRB /)  
+KA(:, 3, 9, 8) = (/ &
+ & 0.11095E-04_JPRB,0.14367E-04_JPRB,0.16153E-04_JPRB,0.17055E-04_JPRB,0.17287E-04_JPRB, &
+ & 0.16925E-04_JPRB,0.15948E-04_JPRB,0.14098E-04_JPRB,0.78037E-05_JPRB /)  
+KA(:, 4, 9, 8) = (/ &
+ & 0.11230E-04_JPRB,0.15436E-04_JPRB,0.17715E-04_JPRB,0.18921E-04_JPRB,0.19404E-04_JPRB, &
+ & 0.19208E-04_JPRB,0.18318E-04_JPRB,0.16668E-04_JPRB,0.97810E-05_JPRB /)  
+KA(:, 5, 9, 8) = (/ &
+ & 0.11337E-04_JPRB,0.16572E-04_JPRB,0.19310E-04_JPRB,0.20882E-04_JPRB,0.21623E-04_JPRB, &
+ & 0.21621E-04_JPRB,0.20902E-04_JPRB,0.19439E-04_JPRB,0.11994E-04_JPRB /)  
+KA(:, 1,10, 8) = (/ &
+ & 0.88397E-05_JPRB,0.10407E-04_JPRB,0.10992E-04_JPRB,0.11130E-04_JPRB,0.10914E-04_JPRB, &
+ & 0.10319E-04_JPRB,0.92746E-05_JPRB,0.69230E-05_JPRB,0.33878E-05_JPRB /)  
+KA(:, 2,10, 8) = (/ &
+ & 0.89820E-05_JPRB,0.11148E-04_JPRB,0.12114E-04_JPRB,0.12509E-04_JPRB,0.12455E-04_JPRB, &
+ & 0.11973E-04_JPRB,0.11026E-04_JPRB,0.91303E-05_JPRB,0.45777E-05_JPRB /)  
+KA(:, 3,10, 8) = (/ &
+ & 0.91201E-05_JPRB,0.11975E-04_JPRB,0.13369E-04_JPRB,0.14032E-04_JPRB,0.14150E-04_JPRB, &
+ & 0.13774E-04_JPRB,0.12899E-04_JPRB,0.11289E-04_JPRB,0.59718E-05_JPRB /)  
+KA(:, 4,10, 8) = (/ &
+ & 0.92338E-05_JPRB,0.12910E-04_JPRB,0.14708E-04_JPRB,0.15633E-04_JPRB,0.15947E-04_JPRB, &
+ & 0.15711E-04_JPRB,0.14916E-04_JPRB,0.13483E-04_JPRB,0.75778E-05_JPRB /)  
+KA(:, 5,10, 8) = (/ &
+ & 0.93270E-05_JPRB,0.13899E-04_JPRB,0.16089E-04_JPRB,0.17313E-04_JPRB,0.17838E-04_JPRB, &
+ & 0.17779E-04_JPRB,0.17126E-04_JPRB,0.15852E-04_JPRB,0.93849E-05_JPRB /)  
+KA(:, 1,11, 8) = (/ &
+ & 0.72957E-05_JPRB,0.88518E-05_JPRB,0.94180E-05_JPRB,0.95477E-05_JPRB,0.93627E-05_JPRB, &
+ & 0.88681E-05_JPRB,0.79846E-05_JPRB,0.60665E-05_JPRB,0.28938E-05_JPRB /)  
+KA(:, 2,11, 8) = (/ &
+ & 0.74164E-05_JPRB,0.95244E-05_JPRB,0.10413E-04_JPRB,0.10760E-04_JPRB,0.10725E-04_JPRB, &
+ & 0.10300E-04_JPRB,0.94914E-05_JPRB,0.79265E-05_JPRB,0.39145E-05_JPRB /)  
+KA(:, 3,11, 8) = (/ &
+ & 0.75267E-05_JPRB,0.10290E-04_JPRB,0.11516E-04_JPRB,0.12091E-04_JPRB,0.12186E-04_JPRB, &
+ & 0.11866E-04_JPRB,0.11116E-04_JPRB,0.97843E-05_JPRB,0.51152E-05_JPRB /)  
+KA(:, 4,11, 8) = (/ &
+ & 0.76165E-05_JPRB,0.11127E-04_JPRB,0.12682E-04_JPRB,0.13483E-04_JPRB,0.13746E-04_JPRB, &
+ & 0.13546E-04_JPRB,0.12885E-04_JPRB,0.11704E-04_JPRB,0.64876E-05_JPRB /)  
+KA(:, 5,11, 8) = (/ &
+ & 0.76866E-05_JPRB,0.11972E-04_JPRB,0.13896E-04_JPRB,0.14938E-04_JPRB,0.15405E-04_JPRB, &
+ & 0.15374E-04_JPRB,0.14838E-04_JPRB,0.13790E-04_JPRB,0.80319E-05_JPRB /)  
+KA(:, 1,12, 8) = (/ &
+ & 0.60137E-05_JPRB,0.75193E-05_JPRB,0.80348E-05_JPRB,0.81538E-05_JPRB,0.80064E-05_JPRB, &
+ & 0.75822E-05_JPRB,0.68354E-05_JPRB,0.52502E-05_JPRB,0.24674E-05_JPRB /)  
+KA(:, 2,12, 8) = (/ &
+ & 0.61150E-05_JPRB,0.81325E-05_JPRB,0.89089E-05_JPRB,0.92208E-05_JPRB,0.91831E-05_JPRB, &
+ & 0.88171E-05_JPRB,0.81283E-05_JPRB,0.68396E-05_JPRB,0.33429E-05_JPRB /)  
+KA(:, 3,12, 8) = (/ &
+ & 0.62020E-05_JPRB,0.88113E-05_JPRB,0.98818E-05_JPRB,0.10369E-04_JPRB,0.10440E-04_JPRB, &
+ & 0.10164E-04_JPRB,0.95355E-05_JPRB,0.84372E-05_JPRB,0.43683E-05_JPRB /)  
+KA(:, 4,12, 8) = (/ &
+ & 0.62729E-05_JPRB,0.95382E-05_JPRB,0.10890E-04_JPRB,0.11569E-04_JPRB,0.11793E-04_JPRB, &
+ & 0.11630E-04_JPRB,0.11082E-04_JPRB,0.10108E-04_JPRB,0.55358E-05_JPRB /)  
+KA(:, 5,12, 8) = (/ &
+ & 0.63199E-05_JPRB,0.10271E-04_JPRB,0.11934E-04_JPRB,0.12838E-04_JPRB,0.13254E-04_JPRB, &
+ & 0.13231E-04_JPRB,0.12796E-04_JPRB,0.11934E-04_JPRB,0.68492E-05_JPRB /)  
+KA(:, 1,13, 8) = (/ &
+ & 0.49517E-05_JPRB,0.63774E-05_JPRB,0.68261E-05_JPRB,0.69411E-05_JPRB,0.68151E-05_JPRB, &
+ & 0.64513E-05_JPRB,0.58220E-05_JPRB,0.45056E-05_JPRB,0.20980E-05_JPRB /)  
+KA(:, 2,13, 8) = (/ &
+ & 0.50331E-05_JPRB,0.69207E-05_JPRB,0.75990E-05_JPRB,0.78660E-05_JPRB,0.78231E-05_JPRB, &
+ & 0.75119E-05_JPRB,0.69333E-05_JPRB,0.58688E-05_JPRB,0.28426E-05_JPRB /)  
+KA(:, 3,13, 8) = (/ &
+ & 0.51036E-05_JPRB,0.75155E-05_JPRB,0.84393E-05_JPRB,0.88490E-05_JPRB,0.89047E-05_JPRB, &
+ & 0.86720E-05_JPRB,0.81449E-05_JPRB,0.72410E-05_JPRB,0.37114E-05_JPRB /)  
+KA(:, 4,13, 8) = (/ &
+ & 0.51548E-05_JPRB,0.81445E-05_JPRB,0.93105E-05_JPRB,0.98793E-05_JPRB,0.10078E-04_JPRB, &
+ & 0.99535E-05_JPRB,0.94951E-05_JPRB,0.86973E-05_JPRB,0.47002E-05_JPRB /)  
+KA(:, 5,13, 8) = (/ &
+ & 0.51867E-05_JPRB,0.87857E-05_JPRB,0.10211E-04_JPRB,0.10992E-04_JPRB,0.11352E-04_JPRB, &
+ & 0.11351E-04_JPRB,0.10990E-04_JPRB,0.10277E-04_JPRB,0.58153E-05_JPRB /)  
+KA(:, 1, 1, 9) = (/ &
+ & 0.18292E-03_JPRB,0.16357E-03_JPRB,0.15341E-03_JPRB,0.14585E-03_JPRB,0.13797E-03_JPRB, &
+ & 0.12826E-03_JPRB,0.11477E-03_JPRB,0.99322E-04_JPRB,0.99311E-04_JPRB /)  
+KA(:, 2, 1, 9) = (/ &
+ & 0.18277E-03_JPRB,0.16502E-03_JPRB,0.15805E-03_JPRB,0.15290E-03_JPRB,0.14696E-03_JPRB, &
+ & 0.13850E-03_JPRB,0.12664E-03_JPRB,0.11419E-03_JPRB,0.11887E-03_JPRB /)  
+KA(:, 3, 1, 9) = (/ &
+ & 0.18261E-03_JPRB,0.16694E-03_JPRB,0.16322E-03_JPRB,0.16061E-03_JPRB,0.15658E-03_JPRB, &
+ & 0.14997E-03_JPRB,0.14010E-03_JPRB,0.13154E-03_JPRB,0.14123E-03_JPRB /)  
+KA(:, 4, 1, 9) = (/ &
+ & 0.18244E-03_JPRB,0.16952E-03_JPRB,0.16897E-03_JPRB,0.16909E-03_JPRB,0.16740E-03_JPRB, &
+ & 0.16268E-03_JPRB,0.15556E-03_JPRB,0.15163E-03_JPRB,0.16610E-03_JPRB /)  
+KA(:, 5, 1, 9) = (/ &
+ & 0.18218E-03_JPRB,0.17247E-03_JPRB,0.17521E-03_JPRB,0.17844E-03_JPRB,0.17911E-03_JPRB, &
+ & 0.17696E-03_JPRB,0.17241E-03_JPRB,0.17370E-03_JPRB,0.19290E-03_JPRB /)  
+KA(:, 1, 2, 9) = (/ &
+ & 0.17473E-03_JPRB,0.15735E-03_JPRB,0.14910E-03_JPRB,0.14227E-03_JPRB,0.13471E-03_JPRB, &
+ & 0.12515E-03_JPRB,0.11200E-03_JPRB,0.94986E-04_JPRB,0.89520E-04_JPRB /)  
+KA(:, 2, 2, 9) = (/ &
+ & 0.17467E-03_JPRB,0.15907E-03_JPRB,0.15401E-03_JPRB,0.14953E-03_JPRB,0.14402E-03_JPRB, &
+ & 0.13581E-03_JPRB,0.12401E-03_JPRB,0.10893E-03_JPRB,0.10811E-03_JPRB /)  
+KA(:, 3, 2, 9) = (/ &
+ & 0.17463E-03_JPRB,0.16142E-03_JPRB,0.15942E-03_JPRB,0.15773E-03_JPRB,0.15417E-03_JPRB, &
+ & 0.14769E-03_JPRB,0.13747E-03_JPRB,0.12528E-03_JPRB,0.12924E-03_JPRB /)  
+KA(:, 4, 2, 9) = (/ &
+ & 0.17449E-03_JPRB,0.16426E-03_JPRB,0.16549E-03_JPRB,0.16671E-03_JPRB,0.16541E-03_JPRB, &
+ & 0.16085E-03_JPRB,0.15263E-03_JPRB,0.14389E-03_JPRB,0.15270E-03_JPRB /)  
+KA(:, 5, 2, 9) = (/ &
+ & 0.17439E-03_JPRB,0.16753E-03_JPRB,0.17238E-03_JPRB,0.17658E-03_JPRB,0.17759E-03_JPRB, &
+ & 0.17537E-03_JPRB,0.16910E-03_JPRB,0.16442E-03_JPRB,0.17796E-03_JPRB /)  
+KA(:, 1, 3, 9) = (/ &
+ & 0.16429E-03_JPRB,0.14895E-03_JPRB,0.14201E-03_JPRB,0.13557E-03_JPRB,0.12797E-03_JPRB, &
+ & 0.11829E-03_JPRB,0.10548E-03_JPRB,0.88188E-04_JPRB,0.77280E-04_JPRB /)  
+KA(:, 2, 3, 9) = (/ &
+ & 0.16436E-03_JPRB,0.15092E-03_JPRB,0.14708E-03_JPRB,0.14277E-03_JPRB,0.13731E-03_JPRB, &
+ & 0.12899E-03_JPRB,0.11719E-03_JPRB,0.10108E-03_JPRB,0.94071E-04_JPRB /)  
+KA(:, 3, 3, 9) = (/ &
+ & 0.16438E-03_JPRB,0.15344E-03_JPRB,0.15259E-03_JPRB,0.15105E-03_JPRB,0.14760E-03_JPRB, &
+ & 0.14078E-03_JPRB,0.13037E-03_JPRB,0.11602E-03_JPRB,0.11331E-03_JPRB /)  
+KA(:, 4, 3, 9) = (/ &
+ & 0.16440E-03_JPRB,0.15651E-03_JPRB,0.15877E-03_JPRB,0.16021E-03_JPRB,0.15883E-03_JPRB, &
+ & 0.15394E-03_JPRB,0.14519E-03_JPRB,0.13303E-03_JPRB,0.13463E-03_JPRB /)  
+KA(:, 5, 3, 9) = (/ &
+ & 0.16444E-03_JPRB,0.16001E-03_JPRB,0.16595E-03_JPRB,0.17023E-03_JPRB,0.17105E-03_JPRB, &
+ & 0.16855E-03_JPRB,0.16116E-03_JPRB,0.15159E-03_JPRB,0.15764E-03_JPRB /)  
+KA(:, 1, 4, 9) = (/ &
+ & 0.15195E-03_JPRB,0.13883E-03_JPRB,0.13294E-03_JPRB,0.12699E-03_JPRB,0.11928E-03_JPRB, &
+ & 0.10948E-03_JPRB,0.97355E-04_JPRB,0.80985E-04_JPRB,0.65303E-04_JPRB /)  
+KA(:, 2, 4, 9) = (/ &
+ & 0.15212E-03_JPRB,0.14097E-03_JPRB,0.13802E-03_JPRB,0.13404E-03_JPRB,0.12836E-03_JPRB, &
+ & 0.11996E-03_JPRB,0.10855E-03_JPRB,0.92884E-04_JPRB,0.80285E-04_JPRB /)  
+KA(:, 3, 4, 9) = (/ &
+ & 0.15229E-03_JPRB,0.14364E-03_JPRB,0.14356E-03_JPRB,0.14222E-03_JPRB,0.13844E-03_JPRB, &
+ & 0.13147E-03_JPRB,0.12124E-03_JPRB,0.10661E-03_JPRB,0.97473E-04_JPRB /)  
+KA(:, 4, 4, 9) = (/ &
+ & 0.15247E-03_JPRB,0.14694E-03_JPRB,0.14987E-03_JPRB,0.15132E-03_JPRB,0.14947E-03_JPRB, &
+ & 0.14428E-03_JPRB,0.13562E-03_JPRB,0.12218E-03_JPRB,0.11647E-03_JPRB /)  
+KA(:, 5, 4, 9) = (/ &
+ & 0.15268E-03_JPRB,0.15064E-03_JPRB,0.15719E-03_JPRB,0.16126E-03_JPRB,0.16162E-03_JPRB, &
+ & 0.15869E-03_JPRB,0.15101E-03_JPRB,0.13904E-03_JPRB,0.13733E-03_JPRB /)  
+KA(:, 1, 5, 9) = (/ &
+ & 0.13846E-03_JPRB,0.12761E-03_JPRB,0.12265E-03_JPRB,0.11713E-03_JPRB,0.10945E-03_JPRB, &
+ & 0.10011E-03_JPRB,0.88713E-04_JPRB,0.73647E-04_JPRB,0.54834E-04_JPRB /)  
+KA(:, 2, 5, 9) = (/ &
+ & 0.13872E-03_JPRB,0.12987E-03_JPRB,0.12766E-03_JPRB,0.12392E-03_JPRB,0.11814E-03_JPRB, &
+ & 0.11013E-03_JPRB,0.99375E-04_JPRB,0.84759E-04_JPRB,0.68007E-04_JPRB /)  
+KA(:, 3, 5, 9) = (/ &
+ & 0.13899E-03_JPRB,0.13272E-03_JPRB,0.13319E-03_JPRB,0.13187E-03_JPRB,0.12795E-03_JPRB, &
+ & 0.12108E-03_JPRB,0.11145E-03_JPRB,0.97499E-04_JPRB,0.83096E-04_JPRB /)  
+KA(:, 4, 5, 9) = (/ &
+ & 0.13930E-03_JPRB,0.13617E-03_JPRB,0.13955E-03_JPRB,0.14081E-03_JPRB,0.13862E-03_JPRB, &
+ & 0.13340E-03_JPRB,0.12522E-03_JPRB,0.11183E-03_JPRB,0.99891E-04_JPRB /)  
+KA(:, 5, 5, 9) = (/ &
+ & 0.13961E-03_JPRB,0.13997E-03_JPRB,0.14692E-03_JPRB,0.15049E-03_JPRB,0.15045E-03_JPRB, &
+ & 0.14736E-03_JPRB,0.14024E-03_JPRB,0.12733E-03_JPRB,0.11865E-03_JPRB /)  
+KA(:, 1, 6, 9) = (/ &
+ & 0.12419E-03_JPRB,0.11551E-03_JPRB,0.11132E-03_JPRB,0.10604E-03_JPRB,0.98912E-04_JPRB, &
+ & 0.90174E-04_JPRB,0.79553E-04_JPRB,0.65781E-04_JPRB,0.45228E-04_JPRB /)  
+KA(:, 2, 6, 9) = (/ &
+ & 0.12454E-03_JPRB,0.11786E-03_JPRB,0.11619E-03_JPRB,0.11259E-03_JPRB,0.10704E-03_JPRB, &
+ & 0.99552E-04_JPRB,0.89546E-04_JPRB,0.76061E-04_JPRB,0.56748E-04_JPRB /)  
+KA(:, 3, 6, 9) = (/ &
+ & 0.12490E-03_JPRB,0.12081E-03_JPRB,0.12161E-03_JPRB,0.12024E-03_JPRB,0.11632E-03_JPRB, &
+ & 0.10988E-03_JPRB,0.10081E-03_JPRB,0.87950E-04_JPRB,0.69901E-04_JPRB /)  
+KA(:, 4, 6, 9) = (/ &
+ & 0.12528E-03_JPRB,0.12425E-03_JPRB,0.12796E-03_JPRB,0.12887E-03_JPRB,0.12649E-03_JPRB, &
+ & 0.12150E-03_JPRB,0.11381E-03_JPRB,0.10130E-03_JPRB,0.84575E-04_JPRB /)  
+KA(:, 5, 6, 9) = (/ &
+ & 0.12568E-03_JPRB,0.12811E-03_JPRB,0.13519E-03_JPRB,0.13816E-03_JPRB,0.13780E-03_JPRB, &
+ & 0.13476E-03_JPRB,0.12819E-03_JPRB,0.11553E-03_JPRB,0.10091E-03_JPRB /)  
+KA(:, 1, 7, 9) = (/ &
+ & 0.10978E-03_JPRB,0.10308E-03_JPRB,0.99508E-04_JPRB,0.94571E-04_JPRB,0.88120E-04_JPRB, &
+ & 0.80226E-04_JPRB,0.70492E-04_JPRB,0.57993E-04_JPRB,0.36699E-04_JPRB /)  
+KA(:, 2, 7, 9) = (/ &
+ & 0.11018E-03_JPRB,0.10544E-03_JPRB,0.10415E-03_JPRB,0.10080E-03_JPRB,0.95769E-04_JPRB, &
+ & 0.88865E-04_JPRB,0.79698E-04_JPRB,0.67450E-04_JPRB,0.46683E-04_JPRB /)  
+KA(:, 3, 7, 9) = (/ &
+ & 0.11058E-03_JPRB,0.10837E-03_JPRB,0.10936E-03_JPRB,0.10807E-03_JPRB,0.10453E-03_JPRB, &
+ & 0.98497E-04_JPRB,0.90104E-04_JPRB,0.78443E-04_JPRB,0.58212E-04_JPRB /)  
+KA(:, 4, 7, 9) = (/ &
+ & 0.11104E-03_JPRB,0.11179E-03_JPRB,0.11551E-03_JPRB,0.11629E-03_JPRB,0.11409E-03_JPRB, &
+ & 0.10934E-03_JPRB,0.10217E-03_JPRB,0.90913E-04_JPRB,0.71131E-04_JPRB /)  
+KA(:, 5, 7, 9) = (/ &
+ & 0.11149E-03_JPRB,0.11560E-03_JPRB,0.12257E-03_JPRB,0.12521E-03_JPRB,0.12472E-03_JPRB, &
+ & 0.12180E-03_JPRB,0.11572E-03_JPRB,0.10421E-03_JPRB,0.85542E-04_JPRB /)  
+KA(:, 1, 8, 9) = (/ &
+ & 0.95759E-04_JPRB,0.90773E-04_JPRB,0.87806E-04_JPRB,0.83290E-04_JPRB,0.77515E-04_JPRB, &
+ & 0.70528E-04_JPRB,0.61795E-04_JPRB,0.50465E-04_JPRB,0.29380E-04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART6',1,ZHOOK_HANDLE)
+END SUBROUTINE PART6
+
+
+SUBROUTINE PART7
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART7',0,ZHOOK_HANDLE)
+
+
+KA(:, 2, 8, 9) = (/ &
+ & 0.96189E-04_JPRB,0.93120E-04_JPRB,0.92132E-04_JPRB,0.89103E-04_JPRB,0.84653E-04_JPRB, &
+ & 0.78456E-04_JPRB,0.70159E-04_JPRB,0.59177E-04_JPRB,0.37867E-04_JPRB /)  
+KA(:, 3, 8, 9) = (/ &
+ & 0.96665E-04_JPRB,0.96018E-04_JPRB,0.97008E-04_JPRB,0.95975E-04_JPRB,0.92760E-04_JPRB, &
+ & 0.87379E-04_JPRB,0.79687E-04_JPRB,0.69248E-04_JPRB,0.47855E-04_JPRB /)  
+KA(:, 4, 8, 9) = (/ &
+ & 0.97168E-04_JPRB,0.99322E-04_JPRB,0.10289E-03_JPRB,0.10373E-03_JPRB,0.10169E-03_JPRB, &
+ & 0.97397E-04_JPRB,0.90796E-04_JPRB,0.80805E-04_JPRB,0.59240E-04_JPRB /)  
+KA(:, 5, 8, 9) = (/ &
+ & 0.97641E-04_JPRB,0.10302E-03_JPRB,0.10967E-03_JPRB,0.11218E-03_JPRB,0.11166E-03_JPRB, &
+ & 0.10896E-03_JPRB,0.10343E-03_JPRB,0.93210E-04_JPRB,0.71998E-04_JPRB /)  
+KA(:, 1, 9, 9) = (/ &
+ & 0.82482E-04_JPRB,0.78941E-04_JPRB,0.76398E-04_JPRB,0.72429E-04_JPRB,0.67369E-04_JPRB, &
+ & 0.61188E-04_JPRB,0.53486E-04_JPRB,0.43219E-04_JPRB,0.23144E-04_JPRB /)  
+KA(:, 2, 9, 9) = (/ &
+ & 0.82941E-04_JPRB,0.81194E-04_JPRB,0.80391E-04_JPRB,0.77783E-04_JPRB,0.73924E-04_JPRB, &
+ & 0.68383E-04_JPRB,0.61055E-04_JPRB,0.51145E-04_JPRB,0.30235E-04_JPRB /)  
+KA(:, 3, 9, 9) = (/ &
+ & 0.83462E-04_JPRB,0.83998E-04_JPRB,0.84977E-04_JPRB,0.84161E-04_JPRB,0.81323E-04_JPRB, &
+ & 0.76538E-04_JPRB,0.69739E-04_JPRB,0.60350E-04_JPRB,0.38714E-04_JPRB /)  
+KA(:, 4, 9, 9) = (/ &
+ & 0.83976E-04_JPRB,0.87153E-04_JPRB,0.90583E-04_JPRB,0.91413E-04_JPRB,0.89589E-04_JPRB, &
+ & 0.85741E-04_JPRB,0.79900E-04_JPRB,0.70947E-04_JPRB,0.48553E-04_JPRB /)  
+KA(:, 5, 9, 9) = (/ &
+ & 0.84461E-04_JPRB,0.90734E-04_JPRB,0.96938E-04_JPRB,0.99296E-04_JPRB,0.98864E-04_JPRB, &
+ & 0.96399E-04_JPRB,0.91511E-04_JPRB,0.82490E-04_JPRB,0.59777E-04_JPRB /)  
+KA(:, 1,10, 9) = (/ &
+ & 0.70371E-04_JPRB,0.68110E-04_JPRB,0.65986E-04_JPRB,0.62636E-04_JPRB,0.58303E-04_JPRB, &
+ & 0.52961E-04_JPRB,0.46122E-04_JPRB,0.37036E-04_JPRB,0.18341E-04_JPRB /)  
+KA(:, 2,10, 9) = (/ &
+ & 0.70853E-04_JPRB,0.70288E-04_JPRB,0.69669E-04_JPRB,0.67543E-04_JPRB,0.64271E-04_JPRB, &
+ & 0.59496E-04_JPRB,0.53052E-04_JPRB,0.44224E-04_JPRB,0.24306E-04_JPRB /)  
+KA(:, 3,10, 9) = (/ &
+ & 0.71373E-04_JPRB,0.72956E-04_JPRB,0.74034E-04_JPRB,0.73423E-04_JPRB,0.71076E-04_JPRB, &
+ & 0.66934E-04_JPRB,0.61048E-04_JPRB,0.52623E-04_JPRB,0.31537E-04_JPRB /)  
+KA(:, 4,10, 9) = (/ &
+ & 0.71862E-04_JPRB,0.75946E-04_JPRB,0.79283E-04_JPRB,0.80149E-04_JPRB,0.78712E-04_JPRB, &
+ & 0.75412E-04_JPRB,0.70399E-04_JPRB,0.62323E-04_JPRB,0.40041E-04_JPRB /)  
+KA(:, 5,10, 9) = (/ &
+ & 0.72376E-04_JPRB,0.79405E-04_JPRB,0.85220E-04_JPRB,0.87544E-04_JPRB,0.87332E-04_JPRB, &
+ & 0.85268E-04_JPRB,0.81104E-04_JPRB,0.73085E-04_JPRB,0.49845E-04_JPRB /)  
+KA(:, 1,11, 9) = (/ &
+ & 0.59776E-04_JPRB,0.59155E-04_JPRB,0.57996E-04_JPRB,0.55642E-04_JPRB,0.52323E-04_JPRB, &
+ & 0.47930E-04_JPRB,0.42036E-04_JPRB,0.34179E-04_JPRB,0.16514E-04_JPRB /)  
+KA(:, 2,11, 9) = (/ &
+ & 0.60275E-04_JPRB,0.61436E-04_JPRB,0.61654E-04_JPRB,0.60490E-04_JPRB,0.58055E-04_JPRB, &
+ & 0.54242E-04_JPRB,0.48750E-04_JPRB,0.41144E-04_JPRB,0.21987E-04_JPRB /)  
+KA(:, 3,11, 9) = (/ &
+ & 0.60746E-04_JPRB,0.64075E-04_JPRB,0.66078E-04_JPRB,0.66233E-04_JPRB,0.64629E-04_JPRB, &
+ & 0.61455E-04_JPRB,0.56611E-04_JPRB,0.49290E-04_JPRB,0.28648E-04_JPRB /)  
+KA(:, 4,11, 9) = (/ &
+ & 0.61244E-04_JPRB,0.67066E-04_JPRB,0.71217E-04_JPRB,0.72696E-04_JPRB,0.72050E-04_JPRB, &
+ & 0.69816E-04_JPRB,0.65797E-04_JPRB,0.58590E-04_JPRB,0.36515E-04_JPRB /)  
+KA(:, 5,11, 9) = (/ &
+ & 0.61769E-04_JPRB,0.70693E-04_JPRB,0.76979E-04_JPRB,0.79872E-04_JPRB,0.80561E-04_JPRB, &
+ & 0.79478E-04_JPRB,0.76089E-04_JPRB,0.68898E-04_JPRB,0.45628E-04_JPRB /)  
+KA(:, 1,12, 9) = (/ &
+ & 0.50518E-04_JPRB,0.51187E-04_JPRB,0.50822E-04_JPRB,0.49284E-04_JPRB,0.46769E-04_JPRB, &
+ & 0.43097E-04_JPRB,0.38110E-04_JPRB,0.31379E-04_JPRB,0.14783E-04_JPRB /)  
+KA(:, 2,12, 9) = (/ &
+ & 0.50964E-04_JPRB,0.53463E-04_JPRB,0.54457E-04_JPRB,0.54020E-04_JPRB,0.52266E-04_JPRB, &
+ & 0.49174E-04_JPRB,0.44595E-04_JPRB,0.38042E-04_JPRB,0.19796E-04_JPRB /)  
+KA(:, 3,12, 9) = (/ &
+ & 0.51421E-04_JPRB,0.56033E-04_JPRB,0.58762E-04_JPRB,0.59481E-04_JPRB,0.58578E-04_JPRB, &
+ & 0.56207E-04_JPRB,0.52260E-04_JPRB,0.45820E-04_JPRB,0.25919E-04_JPRB /)  
+KA(:, 4,12, 9) = (/ &
+ & 0.51920E-04_JPRB,0.59121E-04_JPRB,0.63731E-04_JPRB,0.65674E-04_JPRB,0.65806E-04_JPRB, &
+ & 0.64464E-04_JPRB,0.61120E-04_JPRB,0.54677E-04_JPRB,0.33164E-04_JPRB /)  
+KA(:, 5,12, 9) = (/ &
+ & 0.52396E-04_JPRB,0.62780E-04_JPRB,0.69274E-04_JPRB,0.72637E-04_JPRB,0.74145E-04_JPRB, &
+ & 0.73831E-04_JPRB,0.71039E-04_JPRB,0.64514E-04_JPRB,0.41597E-04_JPRB /)  
+KA(:, 1,13, 9) = (/ &
+ & 0.42486E-04_JPRB,0.44174E-04_JPRB,0.44463E-04_JPRB,0.43555E-04_JPRB,0.41568E-04_JPRB, &
+ & 0.38563E-04_JPRB,0.34384E-04_JPRB,0.28625E-04_JPRB,0.13171E-04_JPRB /)  
+KA(:, 2,13, 9) = (/ &
+ & 0.42904E-04_JPRB,0.46376E-04_JPRB,0.47979E-04_JPRB,0.48065E-04_JPRB,0.46867E-04_JPRB, &
+ & 0.44391E-04_JPRB,0.40615E-04_JPRB,0.34938E-04_JPRB,0.17746E-04_JPRB /)  
+KA(:, 3,13, 9) = (/ &
+ & 0.43349E-04_JPRB,0.48965E-04_JPRB,0.52137E-04_JPRB,0.53262E-04_JPRB,0.52962E-04_JPRB, &
+ & 0.51246E-04_JPRB,0.47996E-04_JPRB,0.42282E-04_JPRB,0.23342E-04_JPRB /)  
+KA(:, 4,13, 9) = (/ &
+ & 0.43790E-04_JPRB,0.52076E-04_JPRB,0.56889E-04_JPRB,0.59186E-04_JPRB,0.60002E-04_JPRB, &
+ & 0.59254E-04_JPRB,0.56460E-04_JPRB,0.50705E-04_JPRB,0.29999E-04_JPRB /)  
+KA(:, 5,13, 9) = (/ &
+ & 0.44254E-04_JPRB,0.55629E-04_JPRB,0.62209E-04_JPRB,0.65993E-04_JPRB,0.68105E-04_JPRB, &
+ & 0.68270E-04_JPRB,0.65941E-04_JPRB,0.60145E-04_JPRB,0.37728E-04_JPRB /)  
+KA(:, 1, 1,10) = (/ &
+ & 0.42864E-03_JPRB,0.37538E-03_JPRB,0.32907E-03_JPRB,0.29701E-03_JPRB,0.26399E-03_JPRB, &
+ & 0.23587E-03_JPRB,0.21519E-03_JPRB,0.20736E-03_JPRB,0.23690E-03_JPRB /)  
+KA(:, 2, 1,10) = (/ &
+ & 0.42770E-03_JPRB,0.37463E-03_JPRB,0.33468E-03_JPRB,0.30443E-03_JPRB,0.27635E-03_JPRB, &
+ & 0.25424E-03_JPRB,0.24068E-03_JPRB,0.24289E-03_JPRB,0.27885E-03_JPRB /)  
+KA(:, 3, 1,10) = (/ &
+ & 0.42742E-03_JPRB,0.37444E-03_JPRB,0.34109E-03_JPRB,0.31378E-03_JPRB,0.29265E-03_JPRB, &
+ & 0.27618E-03_JPRB,0.26729E-03_JPRB,0.27967E-03_JPRB,0.32090E-03_JPRB /)  
+KA(:, 4, 1,10) = (/ &
+ & 0.42756E-03_JPRB,0.37461E-03_JPRB,0.34714E-03_JPRB,0.32647E-03_JPRB,0.30721E-03_JPRB, &
+ & 0.29888E-03_JPRB,0.29503E-03_JPRB,0.31853E-03_JPRB,0.36629E-03_JPRB /)  
+KA(:, 5, 1,10) = (/ &
+ & 0.42817E-03_JPRB,0.37676E-03_JPRB,0.35506E-03_JPRB,0.34027E-03_JPRB,0.32593E-03_JPRB, &
+ & 0.32117E-03_JPRB,0.33159E-03_JPRB,0.36650E-03_JPRB,0.42307E-03_JPRB /)  
+KA(:, 1, 2,10) = (/ &
+ & 0.44647E-03_JPRB,0.39099E-03_JPRB,0.34399E-03_JPRB,0.31315E-03_JPRB,0.27681E-03_JPRB, &
+ & 0.24757E-03_JPRB,0.21977E-03_JPRB,0.20260E-03_JPRB,0.22465E-03_JPRB /)  
+KA(:, 2, 2,10) = (/ &
+ & 0.44675E-03_JPRB,0.39126E-03_JPRB,0.35094E-03_JPRB,0.32069E-03_JPRB,0.29009E-03_JPRB, &
+ & 0.26696E-03_JPRB,0.24338E-03_JPRB,0.23431E-03_JPRB,0.26448E-03_JPRB /)  
+KA(:, 3, 2,10) = (/ &
+ & 0.44728E-03_JPRB,0.39176E-03_JPRB,0.35848E-03_JPRB,0.33002E-03_JPRB,0.30752E-03_JPRB, &
+ & 0.28763E-03_JPRB,0.26835E-03_JPRB,0.26923E-03_JPRB,0.30805E-03_JPRB /)  
+KA(:, 4, 2,10) = (/ &
+ & 0.44805E-03_JPRB,0.39321E-03_JPRB,0.36547E-03_JPRB,0.34473E-03_JPRB,0.32431E-03_JPRB, &
+ & 0.30833E-03_JPRB,0.29659E-03_JPRB,0.31021E-03_JPRB,0.35789E-03_JPRB /)  
+KA(:, 5, 2,10) = (/ &
+ & 0.44833E-03_JPRB,0.39641E-03_JPRB,0.37373E-03_JPRB,0.35955E-03_JPRB,0.34286E-03_JPRB, &
+ & 0.33059E-03_JPRB,0.33253E-03_JPRB,0.36056E-03_JPRB,0.41785E-03_JPRB /)  
+KA(:, 1, 3,10) = (/ &
+ & 0.45575E-03_JPRB,0.39903E-03_JPRB,0.35239E-03_JPRB,0.32061E-03_JPRB,0.28610E-03_JPRB, &
+ & 0.25358E-03_JPRB,0.22160E-03_JPRB,0.19044E-03_JPRB,0.19754E-03_JPRB /)  
+KA(:, 2, 3,10) = (/ &
+ & 0.45658E-03_JPRB,0.39983E-03_JPRB,0.35980E-03_JPRB,0.32984E-03_JPRB,0.29898E-03_JPRB, &
+ & 0.27505E-03_JPRB,0.24328E-03_JPRB,0.21905E-03_JPRB,0.23515E-03_JPRB /)  
+KA(:, 3, 3,10) = (/ &
+ & 0.45737E-03_JPRB,0.40126E-03_JPRB,0.36866E-03_JPRB,0.34025E-03_JPRB,0.31808E-03_JPRB, &
+ & 0.29648E-03_JPRB,0.26565E-03_JPRB,0.25100E-03_JPRB,0.27824E-03_JPRB /)  
+KA(:, 4, 3,10) = (/ &
+ & 0.45822E-03_JPRB,0.40344E-03_JPRB,0.37727E-03_JPRB,0.35639E-03_JPRB,0.33753E-03_JPRB, &
+ & 0.31544E-03_JPRB,0.29107E-03_JPRB,0.29011E-03_JPRB,0.33040E-03_JPRB /)  
+KA(:, 5, 3,10) = (/ &
+ & 0.45803E-03_JPRB,0.40724E-03_JPRB,0.38685E-03_JPRB,0.37303E-03_JPRB,0.35804E-03_JPRB, &
+ & 0.33477E-03_JPRB,0.32542E-03_JPRB,0.34063E-03_JPRB,0.39188E-03_JPRB /)  
+KA(:, 1, 4,10) = (/ &
+ & 0.45696E-03_JPRB,0.40009E-03_JPRB,0.35533E-03_JPRB,0.32134E-03_JPRB,0.28977E-03_JPRB, &
+ & 0.25642E-03_JPRB,0.22005E-03_JPRB,0.17825E-03_JPRB,0.16960E-03_JPRB /)  
+KA(:, 2, 4,10) = (/ &
+ & 0.45799E-03_JPRB,0.40164E-03_JPRB,0.36303E-03_JPRB,0.33235E-03_JPRB,0.30343E-03_JPRB, &
+ & 0.27796E-03_JPRB,0.24341E-03_JPRB,0.20303E-03_JPRB,0.20347E-03_JPRB /)  
+KA(:, 3, 4,10) = (/ &
+ & 0.45889E-03_JPRB,0.40391E-03_JPRB,0.37251E-03_JPRB,0.34409E-03_JPRB,0.32396E-03_JPRB, &
+ & 0.30068E-03_JPRB,0.26403E-03_JPRB,0.23112E-03_JPRB,0.24434E-03_JPRB /)  
+KA(:, 4, 4,10) = (/ &
+ & 0.45955E-03_JPRB,0.40640E-03_JPRB,0.38203E-03_JPRB,0.36158E-03_JPRB,0.34561E-03_JPRB, &
+ & 0.32162E-03_JPRB,0.28613E-03_JPRB,0.26715E-03_JPRB,0.29513E-03_JPRB /)  
+KA(:, 5, 4,10) = (/ &
+ & 0.45899E-03_JPRB,0.41016E-03_JPRB,0.39290E-03_JPRB,0.38024E-03_JPRB,0.36719E-03_JPRB, &
+ & 0.34183E-03_JPRB,0.31736E-03_JPRB,0.31348E-03_JPRB,0.35430E-03_JPRB /)  
+KA(:, 1, 5,10) = (/ &
+ & 0.44860E-03_JPRB,0.39309E-03_JPRB,0.35143E-03_JPRB,0.31765E-03_JPRB,0.28887E-03_JPRB, &
+ & 0.25439E-03_JPRB,0.21652E-03_JPRB,0.16876E-03_JPRB,0.14333E-03_JPRB /)  
+KA(:, 2, 5,10) = (/ &
+ & 0.45003E-03_JPRB,0.39579E-03_JPRB,0.35959E-03_JPRB,0.33075E-03_JPRB,0.30371E-03_JPRB, &
+ & 0.27559E-03_JPRB,0.24058E-03_JPRB,0.19058E-03_JPRB,0.17442E-03_JPRB /)  
+KA(:, 3, 5,10) = (/ &
+ & 0.45146E-03_JPRB,0.39890E-03_JPRB,0.36951E-03_JPRB,0.34437E-03_JPRB,0.32442E-03_JPRB, &
+ & 0.30040E-03_JPRB,0.26223E-03_JPRB,0.21520E-03_JPRB,0.21295E-03_JPRB /)  
+KA(:, 4, 5,10) = (/ &
+ & 0.45218E-03_JPRB,0.40151E-03_JPRB,0.38022E-03_JPRB,0.36228E-03_JPRB,0.34802E-03_JPRB, &
+ & 0.32336E-03_JPRB,0.28327E-03_JPRB,0.24766E-03_JPRB,0.26132E-03_JPRB /)  
+KA(:, 5, 5,10) = (/ &
+ & 0.45207E-03_JPRB,0.40582E-03_JPRB,0.39175E-03_JPRB,0.38293E-03_JPRB,0.37072E-03_JPRB, &
+ & 0.34500E-03_JPRB,0.31037E-03_JPRB,0.29012E-03_JPRB,0.31661E-03_JPRB /)  
+KA(:, 1, 6,10) = (/ &
+ & 0.43374E-03_JPRB,0.38081E-03_JPRB,0.34182E-03_JPRB,0.31060E-03_JPRB,0.28045E-03_JPRB, &
+ & 0.24697E-03_JPRB,0.20889E-03_JPRB,0.16055E-03_JPRB,0.12036E-03_JPRB /)  
+KA(:, 2, 6,10) = (/ &
+ & 0.43531E-03_JPRB,0.38407E-03_JPRB,0.35000E-03_JPRB,0.32358E-03_JPRB,0.29721E-03_JPRB, &
+ & 0.26821E-03_JPRB,0.23298E-03_JPRB,0.18104E-03_JPRB,0.14668E-03_JPRB /)  
+KA(:, 3, 6,10) = (/ &
+ & 0.43706E-03_JPRB,0.38738E-03_JPRB,0.35982E-03_JPRB,0.33840E-03_JPRB,0.31879E-03_JPRB, &
+ & 0.29390E-03_JPRB,0.25605E-03_JPRB,0.20200E-03_JPRB,0.18191E-03_JPRB /)  
+KA(:, 4, 6,10) = (/ &
+ & 0.43807E-03_JPRB,0.39050E-03_JPRB,0.37037E-03_JPRB,0.35740E-03_JPRB,0.34372E-03_JPRB, &
+ & 0.31863E-03_JPRB,0.27734E-03_JPRB,0.23003E-03_JPRB,0.22665E-03_JPRB /)  
+KA(:, 5, 6,10) = (/ &
+ & 0.43877E-03_JPRB,0.39551E-03_JPRB,0.38302E-03_JPRB,0.38004E-03_JPRB,0.36796E-03_JPRB, &
+ & 0.34140E-03_JPRB,0.30328E-03_JPRB,0.26832E-03_JPRB,0.27676E-03_JPRB /)  
+KA(:, 1, 7,10) = (/ &
+ & 0.41256E-03_JPRB,0.36341E-03_JPRB,0.32806E-03_JPRB,0.30023E-03_JPRB,0.26855E-03_JPRB, &
+ & 0.23444E-03_JPRB,0.19788E-03_JPRB,0.15062E-03_JPRB,0.10262E-03_JPRB /)  
+KA(:, 2, 7,10) = (/ &
+ & 0.41482E-03_JPRB,0.36772E-03_JPRB,0.33624E-03_JPRB,0.31297E-03_JPRB,0.28556E-03_JPRB, &
+ & 0.25627E-03_JPRB,0.22127E-03_JPRB,0.17072E-03_JPRB,0.12601E-03_JPRB /)  
+KA(:, 3, 7,10) = (/ &
+ & 0.41718E-03_JPRB,0.37142E-03_JPRB,0.34661E-03_JPRB,0.32744E-03_JPRB,0.30719E-03_JPRB, &
+ & 0.28254E-03_JPRB,0.24553E-03_JPRB,0.19044E-03_JPRB,0.15628E-03_JPRB /)  
+KA(:, 4, 7,10) = (/ &
+ & 0.41872E-03_JPRB,0.37555E-03_JPRB,0.35755E-03_JPRB,0.34713E-03_JPRB,0.33306E-03_JPRB, &
+ & 0.30832E-03_JPRB,0.26791E-03_JPRB,0.21481E-03_JPRB,0.19464E-03_JPRB /)  
+KA(:, 5, 7,10) = (/ &
+ & 0.42048E-03_JPRB,0.38195E-03_JPRB,0.37042E-03_JPRB,0.37076E-03_JPRB,0.35893E-03_JPRB, &
+ & 0.33177E-03_JPRB,0.29351E-03_JPRB,0.24858E-03_JPRB,0.23890E-03_JPRB /)  
+KA(:, 1, 8,10) = (/ &
+ & 0.38528E-03_JPRB,0.34132E-03_JPRB,0.30950E-03_JPRB,0.28435E-03_JPRB,0.25387E-03_JPRB, &
+ & 0.21998E-03_JPRB,0.18381E-03_JPRB,0.13995E-03_JPRB,0.86291E-04_JPRB /)  
+KA(:, 2, 8,10) = (/ &
+ & 0.38813E-03_JPRB,0.34604E-03_JPRB,0.31840E-03_JPRB,0.29716E-03_JPRB,0.26994E-03_JPRB, &
+ & 0.24125E-03_JPRB,0.20696E-03_JPRB,0.15919E-03_JPRB,0.10863E-03_JPRB /)  
+KA(:, 3, 8,10) = (/ &
+ & 0.39073E-03_JPRB,0.35038E-03_JPRB,0.33010E-03_JPRB,0.31128E-03_JPRB,0.29227E-03_JPRB, &
+ & 0.26641E-03_JPRB,0.23195E-03_JPRB,0.17813E-03_JPRB,0.13616E-03_JPRB /)  
+KA(:, 4, 8,10) = (/ &
+ & 0.39281E-03_JPRB,0.35556E-03_JPRB,0.34140E-03_JPRB,0.33132E-03_JPRB,0.31814E-03_JPRB, &
+ & 0.29308E-03_JPRB,0.25493E-03_JPRB,0.20064E-03_JPRB,0.16931E-03_JPRB /)  
+KA(:, 5, 8,10) = (/ &
+ & 0.39565E-03_JPRB,0.36362E-03_JPRB,0.35480E-03_JPRB,0.35632E-03_JPRB,0.34483E-03_JPRB, &
+ & 0.31779E-03_JPRB,0.27994E-03_JPRB,0.23183E-03_JPRB,0.20721E-03_JPRB /)  
+KA(:, 1, 9,10) = (/ &
+ & 0.35353E-03_JPRB,0.31534E-03_JPRB,0.28844E-03_JPRB,0.26382E-03_JPRB,0.23534E-03_JPRB, &
+ & 0.20347E-03_JPRB,0.16850E-03_JPRB,0.12923E-03_JPRB,0.71856E-04_JPRB /)  
+KA(:, 2, 9,10) = (/ &
+ & 0.35704E-03_JPRB,0.32078E-03_JPRB,0.29797E-03_JPRB,0.27689E-03_JPRB,0.25047E-03_JPRB, &
+ & 0.22397E-03_JPRB,0.19066E-03_JPRB,0.14773E-03_JPRB,0.92561E-04_JPRB /)  
+KA(:, 3, 9,10) = (/ &
+ & 0.36000E-03_JPRB,0.32561E-03_JPRB,0.31012E-03_JPRB,0.29082E-03_JPRB,0.27253E-03_JPRB, &
+ & 0.24851E-03_JPRB,0.21457E-03_JPRB,0.16607E-03_JPRB,0.11811E-03_JPRB /)  
+KA(:, 4, 9,10) = (/ &
+ & 0.36298E-03_JPRB,0.33189E-03_JPRB,0.32100E-03_JPRB,0.31077E-03_JPRB,0.29911E-03_JPRB, &
+ & 0.27480E-03_JPRB,0.23785E-03_JPRB,0.18730E-03_JPRB,0.14849E-03_JPRB /)  
+KA(:, 5, 9,10) = (/ &
+ & 0.36645E-03_JPRB,0.34041E-03_JPRB,0.33535E-03_JPRB,0.33583E-03_JPRB,0.32646E-03_JPRB, &
+ & 0.29975E-03_JPRB,0.26277E-03_JPRB,0.21618E-03_JPRB,0.18220E-03_JPRB /)  
+KA(:, 1,10,10) = (/ &
+ & 0.31882E-03_JPRB,0.28657E-03_JPRB,0.26462E-03_JPRB,0.24132E-03_JPRB,0.21534E-03_JPRB, &
+ & 0.18636E-03_JPRB,0.15549E-03_JPRB,0.11817E-03_JPRB,0.60706E-04_JPRB /)  
+KA(:, 2,10,10) = (/ &
+ & 0.32301E-03_JPRB,0.29267E-03_JPRB,0.27519E-03_JPRB,0.25478E-03_JPRB,0.23046E-03_JPRB, &
+ & 0.20560E-03_JPRB,0.17582E-03_JPRB,0.13638E-03_JPRB,0.79531E-04_JPRB /)  
+KA(:, 3,10,10) = (/ &
+ & 0.32639E-03_JPRB,0.29816E-03_JPRB,0.28709E-03_JPRB,0.26927E-03_JPRB,0.25170E-03_JPRB, &
+ & 0.23027E-03_JPRB,0.19794E-03_JPRB,0.15520E-03_JPRB,0.10253E-03_JPRB /)  
+KA(:, 4,10,10) = (/ &
+ & 0.33008E-03_JPRB,0.30559E-03_JPRB,0.29823E-03_JPRB,0.28948E-03_JPRB,0.27786E-03_JPRB, &
+ & 0.25639E-03_JPRB,0.22020E-03_JPRB,0.17621E-03_JPRB,0.13035E-03_JPRB /)  
+KA(:, 5,10,10) = (/ &
+ & 0.33429E-03_JPRB,0.31481E-03_JPRB,0.31383E-03_JPRB,0.31396E-03_JPRB,0.30544E-03_JPRB, &
+ & 0.28143E-03_JPRB,0.24487E-03_JPRB,0.20336E-03_JPRB,0.16246E-03_JPRB /)  
+KA(:, 1,11,10) = (/ &
+ & 0.28433E-03_JPRB,0.25922E-03_JPRB,0.24227E-03_JPRB,0.22327E-03_JPRB,0.20067E-03_JPRB, &
+ & 0.17618E-03_JPRB,0.15050E-03_JPRB,0.11425E-03_JPRB,0.57921E-04_JPRB /)  
+KA(:, 2,11,10) = (/ &
+ & 0.28828E-03_JPRB,0.26532E-03_JPRB,0.25425E-03_JPRB,0.23723E-03_JPRB,0.21797E-03_JPRB, &
+ & 0.19695E-03_JPRB,0.17056E-03_JPRB,0.13252E-03_JPRB,0.76361E-04_JPRB /)  
+KA(:, 3,11,10) = (/ &
+ & 0.29236E-03_JPRB,0.27228E-03_JPRB,0.26588E-03_JPRB,0.25415E-03_JPRB,0.24099E-03_JPRB, &
+ & 0.22135E-03_JPRB,0.19174E-03_JPRB,0.15232E-03_JPRB,0.98360E-04_JPRB /)  
+KA(:, 4,11,10) = (/ &
+ & 0.29717E-03_JPRB,0.28209E-03_JPRB,0.27970E-03_JPRB,0.27650E-03_JPRB,0.26714E-03_JPRB, &
+ & 0.24681E-03_JPRB,0.21371E-03_JPRB,0.17631E-03_JPRB,0.12518E-03_JPRB /)  
+KA(:, 5,11,10) = (/ &
+ & 0.30177E-03_JPRB,0.29180E-03_JPRB,0.29905E-03_JPRB,0.30274E-03_JPRB,0.29362E-03_JPRB, &
+ & 0.27208E-03_JPRB,0.24087E-03_JPRB,0.20461E-03_JPRB,0.15616E-03_JPRB /)  
+KA(:, 1,12,10) = (/ &
+ & 0.24998E-03_JPRB,0.23220E-03_JPRB,0.21962E-03_JPRB,0.20418E-03_JPRB,0.18598E-03_JPRB, &
+ & 0.16635E-03_JPRB,0.14319E-03_JPRB,0.11002E-03_JPRB,0.54657E-04_JPRB /)  
+KA(:, 2,12,10) = (/ &
+ & 0.25422E-03_JPRB,0.23880E-03_JPRB,0.23171E-03_JPRB,0.21907E-03_JPRB,0.20484E-03_JPRB, &
+ & 0.18724E-03_JPRB,0.16371E-03_JPRB,0.12837E-03_JPRB,0.72183E-04_JPRB /)  
+KA(:, 3,12,10) = (/ &
+ & 0.25909E-03_JPRB,0.24827E-03_JPRB,0.24443E-03_JPRB,0.23867E-03_JPRB,0.22868E-03_JPRB, &
+ & 0.21084E-03_JPRB,0.18482E-03_JPRB,0.14974E-03_JPRB,0.93395E-04_JPRB /)  
+KA(:, 4,12,10) = (/ &
+ & 0.26399E-03_JPRB,0.25851E-03_JPRB,0.26208E-03_JPRB,0.26298E-03_JPRB,0.25438E-03_JPRB, &
+ & 0.23482E-03_JPRB,0.20834E-03_JPRB,0.17589E-03_JPRB,0.11924E-03_JPRB /)  
+KA(:, 5,12,10) = (/ &
+ & 0.26914E-03_JPRB,0.26866E-03_JPRB,0.28401E-03_JPRB,0.28945E-03_JPRB,0.28022E-03_JPRB, &
+ & 0.26150E-03_JPRB,0.23750E-03_JPRB,0.20542E-03_JPRB,0.14923E-03_JPRB /)  
+KA(:, 1,13,10) = (/ &
+ & 0.21751E-03_JPRB,0.20608E-03_JPRB,0.19731E-03_JPRB,0.18540E-03_JPRB,0.17208E-03_JPRB, &
+ & 0.15624E-03_JPRB,0.13474E-03_JPRB,0.10527E-03_JPRB,0.50953E-04_JPRB /)  
+KA(:, 2,13,10) = (/ &
+ & 0.22228E-03_JPRB,0.21439E-03_JPRB,0.20968E-03_JPRB,0.20158E-03_JPRB,0.19151E-03_JPRB, &
+ & 0.17720E-03_JPRB,0.15564E-03_JPRB,0.12461E-03_JPRB,0.67516E-04_JPRB /)  
+KA(:, 3,13,10) = (/ &
+ & 0.22727E-03_JPRB,0.22462E-03_JPRB,0.22474E-03_JPRB,0.22318E-03_JPRB,0.21469E-03_JPRB, &
+ & 0.19989E-03_JPRB,0.17790E-03_JPRB,0.14782E-03_JPRB,0.88180E-04_JPRB /)  
+KA(:, 4,13,10) = (/ &
+ & 0.23242E-03_JPRB,0.23488E-03_JPRB,0.24462E-03_JPRB,0.24805E-03_JPRB,0.24003E-03_JPRB, &
+ & 0.22364E-03_JPRB,0.20382E-03_JPRB,0.17470E-03_JPRB,0.11335E-03_JPRB /)  
+KA(:, 5,13,10) = (/ &
+ & 0.23819E-03_JPRB,0.24692E-03_JPRB,0.26797E-03_JPRB,0.27413E-03_JPRB,0.26611E-03_JPRB, &
+ & 0.25207E-03_JPRB,0.23456E-03_JPRB,0.20493E-03_JPRB,0.14302E-03_JPRB /)  
+KA(:, 1, 1,11) = (/ &
+ & 0.54188E-03_JPRB,0.47438E-03_JPRB,0.41220E-03_JPRB,0.36319E-03_JPRB,0.32177E-03_JPRB, &
+ & 0.28178E-03_JPRB,0.26195E-03_JPRB,0.26768E-03_JPRB,0.30988E-03_JPRB /)  
+KA(:, 2, 1,11) = (/ &
+ & 0.53863E-03_JPRB,0.47157E-03_JPRB,0.41235E-03_JPRB,0.37142E-03_JPRB,0.33314E-03_JPRB, &
+ & 0.30667E-03_JPRB,0.29622E-03_JPRB,0.31573E-03_JPRB,0.36594E-03_JPRB /)  
+KA(:, 3, 1,11) = (/ &
+ & 0.53537E-03_JPRB,0.46873E-03_JPRB,0.41881E-03_JPRB,0.37881E-03_JPRB,0.35190E-03_JPRB, &
+ & 0.33275E-03_JPRB,0.33720E-03_JPRB,0.36928E-03_JPRB,0.42810E-03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART7',1,ZHOOK_HANDLE)
+END SUBROUTINE PART7
+
+
+SUBROUTINE PART8
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART8',0,ZHOOK_HANDLE)
+
+
+KA(:, 4, 1,11) = (/ &
+ & 0.53255E-03_JPRB,0.46630E-03_JPRB,0.42443E-03_JPRB,0.38945E-03_JPRB,0.37640E-03_JPRB, &
+ & 0.36424E-03_JPRB,0.38086E-03_JPRB,0.42782E-03_JPRB,0.49486E-03_JPRB /)  
+KA(:, 5, 1,11) = (/ &
+ & 0.53016E-03_JPRB,0.46423E-03_JPRB,0.43029E-03_JPRB,0.40524E-03_JPRB,0.39835E-03_JPRB, &
+ & 0.40134E-03_JPRB,0.42785E-03_JPRB,0.48998E-03_JPRB,0.56469E-03_JPRB /)  
+KA(:, 1, 2,11) = (/ &
+ & 0.58031E-03_JPRB,0.50799E-03_JPRB,0.44209E-03_JPRB,0.39038E-03_JPRB,0.34592E-03_JPRB, &
+ & 0.30091E-03_JPRB,0.27060E-03_JPRB,0.26179E-03_JPRB,0.30262E-03_JPRB /)  
+KA(:, 2, 2,11) = (/ &
+ & 0.57783E-03_JPRB,0.50583E-03_JPRB,0.44303E-03_JPRB,0.40158E-03_JPRB,0.35771E-03_JPRB, &
+ & 0.32458E-03_JPRB,0.30412E-03_JPRB,0.31051E-03_JPRB,0.36041E-03_JPRB /)  
+KA(:, 3, 2,11) = (/ &
+ & 0.57540E-03_JPRB,0.50373E-03_JPRB,0.45070E-03_JPRB,0.41078E-03_JPRB,0.37604E-03_JPRB, &
+ & 0.34973E-03_JPRB,0.34205E-03_JPRB,0.36376E-03_JPRB,0.42111E-03_JPRB /)  
+KA(:, 4, 2,11) = (/ &
+ & 0.57390E-03_JPRB,0.50246E-03_JPRB,0.45850E-03_JPRB,0.42273E-03_JPRB,0.40005E-03_JPRB, &
+ & 0.37925E-03_JPRB,0.38380E-03_JPRB,0.42075E-03_JPRB,0.48570E-03_JPRB /)  
+KA(:, 5, 2,11) = (/ &
+ & 0.57251E-03_JPRB,0.50128E-03_JPRB,0.46686E-03_JPRB,0.44000E-03_JPRB,0.42177E-03_JPRB, &
+ & 0.41338E-03_JPRB,0.42764E-03_JPRB,0.47996E-03_JPRB,0.55489E-03_JPRB /)  
+KA(:, 1, 3,11) = (/ &
+ & 0.61606E-03_JPRB,0.53921E-03_JPRB,0.46963E-03_JPRB,0.41409E-03_JPRB,0.36561E-03_JPRB, &
+ & 0.31888E-03_JPRB,0.27397E-03_JPRB,0.24837E-03_JPRB,0.28056E-03_JPRB /)  
+KA(:, 2, 3,11) = (/ &
+ & 0.61406E-03_JPRB,0.53752E-03_JPRB,0.47091E-03_JPRB,0.42713E-03_JPRB,0.37975E-03_JPRB, &
+ & 0.33844E-03_JPRB,0.30659E-03_JPRB,0.29320E-03_JPRB,0.33782E-03_JPRB /)  
+KA(:, 3, 3,11) = (/ &
+ & 0.61257E-03_JPRB,0.53626E-03_JPRB,0.47829E-03_JPRB,0.43902E-03_JPRB,0.39761E-03_JPRB, &
+ & 0.36364E-03_JPRB,0.34206E-03_JPRB,0.34371E-03_JPRB,0.39648E-03_JPRB /)  
+KA(:, 4, 3,11) = (/ &
+ & 0.61154E-03_JPRB,0.53538E-03_JPRB,0.48822E-03_JPRB,0.45223E-03_JPRB,0.42130E-03_JPRB, &
+ & 0.39347E-03_JPRB,0.37907E-03_JPRB,0.39708E-03_JPRB,0.45765E-03_JPRB /)  
+KA(:, 5, 3,11) = (/ &
+ & 0.61140E-03_JPRB,0.53529E-03_JPRB,0.49797E-03_JPRB,0.47117E-03_JPRB,0.44115E-03_JPRB, &
+ & 0.42497E-03_JPRB,0.41979E-03_JPRB,0.45564E-03_JPRB,0.52659E-03_JPRB /)  
+KA(:, 1, 4,11) = (/ &
+ & 0.64443E-03_JPRB,0.56411E-03_JPRB,0.49232E-03_JPRB,0.43467E-03_JPRB,0.38190E-03_JPRB, &
+ & 0.33277E-03_JPRB,0.27825E-03_JPRB,0.23501E-03_JPRB,0.25182E-03_JPRB /)  
+KA(:, 2, 4,11) = (/ &
+ & 0.64292E-03_JPRB,0.56277E-03_JPRB,0.49409E-03_JPRB,0.44787E-03_JPRB,0.39817E-03_JPRB, &
+ & 0.35161E-03_JPRB,0.30747E-03_JPRB,0.27717E-03_JPRB,0.30629E-03_JPRB /)  
+KA(:, 3, 4,11) = (/ &
+ & 0.64243E-03_JPRB,0.56236E-03_JPRB,0.50119E-03_JPRB,0.46200E-03_JPRB,0.41580E-03_JPRB, &
+ & 0.37809E-03_JPRB,0.34162E-03_JPRB,0.32168E-03_JPRB,0.36251E-03_JPRB /)  
+KA(:, 4, 4,11) = (/ &
+ & 0.64248E-03_JPRB,0.56245E-03_JPRB,0.51257E-03_JPRB,0.47612E-03_JPRB,0.44107E-03_JPRB, &
+ & 0.40610E-03_JPRB,0.37659E-03_JPRB,0.36992E-03_JPRB,0.42339E-03_JPRB /)  
+KA(:, 5, 4,11) = (/ &
+ & 0.64345E-03_JPRB,0.56414E-03_JPRB,0.52333E-03_JPRB,0.49621E-03_JPRB,0.46345E-03_JPRB, &
+ & 0.43530E-03_JPRB,0.41388E-03_JPRB,0.42704E-03_JPRB,0.49356E-03_JPRB /)  
+KA(:, 1, 5,11) = (/ &
+ & 0.66205E-03_JPRB,0.57941E-03_JPRB,0.50732E-03_JPRB,0.44788E-03_JPRB,0.39504E-03_JPRB, &
+ & 0.34261E-03_JPRB,0.28274E-03_JPRB,0.22440E-03_JPRB,0.22048E-03_JPRB /)  
+KA(:, 2, 5,11) = (/ &
+ & 0.66163E-03_JPRB,0.57912E-03_JPRB,0.51033E-03_JPRB,0.46104E-03_JPRB,0.41289E-03_JPRB, &
+ & 0.36220E-03_JPRB,0.30969E-03_JPRB,0.26291E-03_JPRB,0.27073E-03_JPRB /)  
+KA(:, 3, 5,11) = (/ &
+ & 0.66197E-03_JPRB,0.57946E-03_JPRB,0.51799E-03_JPRB,0.47594E-03_JPRB,0.43132E-03_JPRB, &
+ & 0.39012E-03_JPRB,0.34192E-03_JPRB,0.30335E-03_JPRB,0.32369E-03_JPRB /)  
+KA(:, 4, 5,11) = (/ &
+ & 0.66310E-03_JPRB,0.58124E-03_JPRB,0.52962E-03_JPRB,0.49191E-03_JPRB,0.45677E-03_JPRB, &
+ & 0.42022E-03_JPRB,0.37529E-03_JPRB,0.34603E-03_JPRB,0.38247E-03_JPRB /)  
+KA(:, 5, 5,11) = (/ &
+ & 0.66411E-03_JPRB,0.58365E-03_JPRB,0.54225E-03_JPRB,0.51373E-03_JPRB,0.48391E-03_JPRB, &
+ & 0.44802E-03_JPRB,0.41016E-03_JPRB,0.39855E-03_JPRB,0.45388E-03_JPRB /)  
+KA(:, 1, 6,11) = (/ &
+ & 0.66761E-03_JPRB,0.58431E-03_JPRB,0.51405E-03_JPRB,0.45280E-03_JPRB,0.40155E-03_JPRB, &
+ & 0.34610E-03_JPRB,0.28249E-03_JPRB,0.21395E-03_JPRB,0.18888E-03_JPRB /)  
+KA(:, 2, 6,11) = (/ &
+ & 0.66804E-03_JPRB,0.58472E-03_JPRB,0.51807E-03_JPRB,0.46619E-03_JPRB,0.41922E-03_JPRB, &
+ & 0.36797E-03_JPRB,0.30908E-03_JPRB,0.24851E-03_JPRB,0.23408E-03_JPRB /)  
+KA(:, 3, 6,11) = (/ &
+ & 0.66946E-03_JPRB,0.58664E-03_JPRB,0.52673E-03_JPRB,0.48103E-03_JPRB,0.43940E-03_JPRB, &
+ & 0.39605E-03_JPRB,0.34204E-03_JPRB,0.28507E-03_JPRB,0.28224E-03_JPRB /)  
+KA(:, 4, 6,11) = (/ &
+ & 0.67150E-03_JPRB,0.59004E-03_JPRB,0.53959E-03_JPRB,0.49825E-03_JPRB,0.46612E-03_JPRB, &
+ & 0.42814E-03_JPRB,0.37432E-03_JPRB,0.32325E-03_JPRB,0.33817E-03_JPRB /)  
+KA(:, 5, 6,11) = (/ &
+ & 0.67315E-03_JPRB,0.59352E-03_JPRB,0.55351E-03_JPRB,0.52125E-03_JPRB,0.49748E-03_JPRB, &
+ & 0.45943E-03_JPRB,0.40603E-03_JPRB,0.37064E-03_JPRB,0.40786E-03_JPRB /)  
+KA(:, 1, 7,11) = (/ &
+ & 0.65825E-03_JPRB,0.57610E-03_JPRB,0.50973E-03_JPRB,0.44919E-03_JPRB,0.40091E-03_JPRB, &
+ & 0.34393E-03_JPRB,0.27863E-03_JPRB,0.20584E-03_JPRB,0.15896E-03_JPRB /)  
+KA(:, 2, 7,11) = (/ &
+ & 0.66067E-03_JPRB,0.57854E-03_JPRB,0.51604E-03_JPRB,0.46345E-03_JPRB,0.41921E-03_JPRB, &
+ & 0.36628E-03_JPRB,0.30597E-03_JPRB,0.23625E-03_JPRB,0.19866E-03_JPRB /)  
+KA(:, 3, 7,11) = (/ &
+ & 0.66419E-03_JPRB,0.58318E-03_JPRB,0.52599E-03_JPRB,0.48043E-03_JPRB,0.43994E-03_JPRB, &
+ & 0.39562E-03_JPRB,0.33865E-03_JPRB,0.26970E-03_JPRB,0.24286E-03_JPRB /)  
+KA(:, 4, 7,11) = (/ &
+ & 0.66717E-03_JPRB,0.58792E-03_JPRB,0.54016E-03_JPRB,0.49893E-03_JPRB,0.46857E-03_JPRB, &
+ & 0.43005E-03_JPRB,0.37266E-03_JPRB,0.30411E-03_JPRB,0.29541E-03_JPRB /)  
+KA(:, 5, 7,11) = (/ &
+ & 0.67024E-03_JPRB,0.59309E-03_JPRB,0.55482E-03_JPRB,0.52246E-03_JPRB,0.50380E-03_JPRB, &
+ & 0.46446E-03_JPRB,0.40297E-03_JPRB,0.34641E-03_JPRB,0.36121E-03_JPRB /)  
+KA(:, 1, 8,11) = (/ &
+ & 0.63858E-03_JPRB,0.55888E-03_JPRB,0.49736E-03_JPRB,0.43942E-03_JPRB,0.39082E-03_JPRB, &
+ & 0.33512E-03_JPRB,0.27058E-03_JPRB,0.19736E-03_JPRB,0.13589E-03_JPRB /)  
+KA(:, 2, 8,11) = (/ &
+ & 0.64324E-03_JPRB,0.56410E-03_JPRB,0.50530E-03_JPRB,0.45504E-03_JPRB,0.41149E-03_JPRB, &
+ & 0.35701E-03_JPRB,0.29879E-03_JPRB,0.22618E-03_JPRB,0.16884E-03_JPRB /)  
+KA(:, 3, 8,11) = (/ &
+ & 0.64790E-03_JPRB,0.57033E-03_JPRB,0.51640E-03_JPRB,0.47474E-03_JPRB,0.43226E-03_JPRB, &
+ & 0.38846E-03_JPRB,0.33154E-03_JPRB,0.25769E-03_JPRB,0.20679E-03_JPRB /)  
+KA(:, 4, 8,11) = (/ &
+ & 0.65242E-03_JPRB,0.57688E-03_JPRB,0.53191E-03_JPRB,0.49447E-03_JPRB,0.46234E-03_JPRB, &
+ & 0.42468E-03_JPRB,0.36669E-03_JPRB,0.28907E-03_JPRB,0.25449E-03_JPRB /)  
+KA(:, 5, 8,11) = (/ &
+ & 0.65716E-03_JPRB,0.58346E-03_JPRB,0.54799E-03_JPRB,0.51859E-03_JPRB,0.49982E-03_JPRB, &
+ & 0.46218E-03_JPRB,0.39875E-03_JPRB,0.32573E-03_JPRB,0.31655E-03_JPRB /)  
+KA(:, 1, 9,11) = (/ &
+ & 0.61155E-03_JPRB,0.53549E-03_JPRB,0.47878E-03_JPRB,0.42579E-03_JPRB,0.37499E-03_JPRB, &
+ & 0.31961E-03_JPRB,0.25793E-03_JPRB,0.18655E-03_JPRB,0.11490E-03_JPRB /)  
+KA(:, 2, 9,11) = (/ &
+ & 0.61794E-03_JPRB,0.54314E-03_JPRB,0.48878E-03_JPRB,0.44250E-03_JPRB,0.39687E-03_JPRB, &
+ & 0.34151E-03_JPRB,0.28569E-03_JPRB,0.21436E-03_JPRB,0.14511E-03_JPRB /)  
+KA(:, 3, 9,11) = (/ &
+ & 0.62338E-03_JPRB,0.55078E-03_JPRB,0.50083E-03_JPRB,0.46354E-03_JPRB,0.41796E-03_JPRB, &
+ & 0.37306E-03_JPRB,0.31954E-03_JPRB,0.24508E-03_JPRB,0.17854E-03_JPRB /)  
+KA(:, 4, 9,11) = (/ &
+ & 0.62936E-03_JPRB,0.55894E-03_JPRB,0.51722E-03_JPRB,0.48335E-03_JPRB,0.44775E-03_JPRB, &
+ & 0.41130E-03_JPRB,0.35579E-03_JPRB,0.27533E-03_JPRB,0.21988E-03_JPRB /)  
+KA(:, 5, 9,11) = (/ &
+ & 0.63545E-03_JPRB,0.56698E-03_JPRB,0.53473E-03_JPRB,0.50887E-03_JPRB,0.48603E-03_JPRB, &
+ & 0.45259E-03_JPRB,0.39001E-03_JPRB,0.30792E-03_JPRB,0.27464E-03_JPRB /)  
+KA(:, 1,10,11) = (/ &
+ & 0.57726E-03_JPRB,0.50676E-03_JPRB,0.45606E-03_JPRB,0.40779E-03_JPRB,0.35629E-03_JPRB, &
+ & 0.30220E-03_JPRB,0.24273E-03_JPRB,0.17731E-03_JPRB,0.97262E-04_JPRB /)  
+KA(:, 2,10,11) = (/ &
+ & 0.58382E-03_JPRB,0.51548E-03_JPRB,0.46729E-03_JPRB,0.42570E-03_JPRB,0.37915E-03_JPRB, &
+ & 0.32497E-03_JPRB,0.26965E-03_JPRB,0.20381E-03_JPRB,0.12529E-03_JPRB /)  
+KA(:, 3,10,11) = (/ &
+ & 0.59071E-03_JPRB,0.52512E-03_JPRB,0.48044E-03_JPRB,0.44753E-03_JPRB,0.40142E-03_JPRB, &
+ & 0.35504E-03_JPRB,0.30526E-03_JPRB,0.23284E-03_JPRB,0.15783E-03_JPRB /)  
+KA(:, 4,10,11) = (/ &
+ & 0.59829E-03_JPRB,0.53444E-03_JPRB,0.49886E-03_JPRB,0.46810E-03_JPRB,0.43172E-03_JPRB, &
+ & 0.39380E-03_JPRB,0.34313E-03_JPRB,0.26284E-03_JPRB,0.19647E-03_JPRB /)  
+KA(:, 5,10,11) = (/ &
+ & 0.60558E-03_JPRB,0.54444E-03_JPRB,0.51788E-03_JPRB,0.49497E-03_JPRB,0.47022E-03_JPRB, &
+ & 0.43733E-03_JPRB,0.37954E-03_JPRB,0.29404E-03_JPRB,0.24439E-03_JPRB /)  
+KA(:, 1,11,11) = (/ &
+ & 0.53880E-03_JPRB,0.47669E-03_JPRB,0.43422E-03_JPRB,0.39066E-03_JPRB,0.34441E-03_JPRB, &
+ & 0.29300E-03_JPRB,0.23722E-03_JPRB,0.17846E-03_JPRB,0.93053E-04_JPRB /)  
+KA(:, 2,11,11) = (/ &
+ & 0.54672E-03_JPRB,0.48762E-03_JPRB,0.44694E-03_JPRB,0.41155E-03_JPRB,0.36791E-03_JPRB, &
+ & 0.31854E-03_JPRB,0.26663E-03_JPRB,0.20551E-03_JPRB,0.12100E-03_JPRB /)  
+KA(:, 3,11,11) = (/ &
+ & 0.55543E-03_JPRB,0.49853E-03_JPRB,0.46450E-03_JPRB,0.43411E-03_JPRB,0.39364E-03_JPRB, &
+ & 0.35233E-03_JPRB,0.30378E-03_JPRB,0.23442E-03_JPRB,0.15474E-03_JPRB /)  
+KA(:, 4,11,11) = (/ &
+ & 0.56418E-03_JPRB,0.50955E-03_JPRB,0.48543E-03_JPRB,0.45785E-03_JPRB,0.42947E-03_JPRB, &
+ & 0.39274E-03_JPRB,0.34329E-03_JPRB,0.26304E-03_JPRB,0.19545E-03_JPRB /)  
+KA(:, 5,11,11) = (/ &
+ & 0.57281E-03_JPRB,0.52221E-03_JPRB,0.50507E-03_JPRB,0.49044E-03_JPRB,0.47093E-03_JPRB, &
+ & 0.43647E-03_JPRB,0.38057E-03_JPRB,0.29685E-03_JPRB,0.24345E-03_JPRB /)  
+KA(:, 1,12,11) = (/ &
+ & 0.49534E-03_JPRB,0.44336E-03_JPRB,0.40843E-03_JPRB,0.37029E-03_JPRB,0.32924E-03_JPRB, &
+ & 0.28268E-03_JPRB,0.23204E-03_JPRB,0.17692E-03_JPRB,0.89557E-04_JPRB /)  
+KA(:, 2,12,11) = (/ &
+ & 0.50529E-03_JPRB,0.45586E-03_JPRB,0.42428E-03_JPRB,0.39360E-03_JPRB,0.35384E-03_JPRB, &
+ & 0.31099E-03_JPRB,0.26296E-03_JPRB,0.20575E-03_JPRB,0.11779E-03_JPRB /)  
+KA(:, 3,12,11) = (/ &
+ & 0.51591E-03_JPRB,0.46841E-03_JPRB,0.44557E-03_JPRB,0.41710E-03_JPRB,0.38396E-03_JPRB, &
+ & 0.34779E-03_JPRB,0.29981E-03_JPRB,0.23475E-03_JPRB,0.15231E-03_JPRB /)  
+KA(:, 4,12,11) = (/ &
+ & 0.52638E-03_JPRB,0.48189E-03_JPRB,0.46689E-03_JPRB,0.44567E-03_JPRB,0.42354E-03_JPRB, &
+ & 0.38951E-03_JPRB,0.33959E-03_JPRB,0.26406E-03_JPRB,0.19354E-03_JPRB /)  
+KA(:, 5,12,11) = (/ &
+ & 0.53740E-03_JPRB,0.49847E-03_JPRB,0.48961E-03_JPRB,0.48352E-03_JPRB,0.46848E-03_JPRB, &
+ & 0.43322E-03_JPRB,0.37807E-03_JPRB,0.30031E-03_JPRB,0.24179E-03_JPRB /)  
+KA(:, 1,13,11) = (/ &
+ & 0.44967E-03_JPRB,0.40765E-03_JPRB,0.37964E-03_JPRB,0.34767E-03_JPRB,0.31190E-03_JPRB, &
+ & 0.27110E-03_JPRB,0.22687E-03_JPRB,0.17331E-03_JPRB,0.86456E-04_JPRB /)  
+KA(:, 2,13,11) = (/ &
+ & 0.46197E-03_JPRB,0.42196E-03_JPRB,0.40010E-03_JPRB,0.37282E-03_JPRB,0.33881E-03_JPRB, &
+ & 0.30170E-03_JPRB,0.25812E-03_JPRB,0.20314E-03_JPRB,0.11471E-03_JPRB /)  
+KA(:, 3,13,11) = (/ &
+ & 0.47416E-03_JPRB,0.43662E-03_JPRB,0.42347E-03_JPRB,0.39902E-03_JPRB,0.37341E-03_JPRB, &
+ & 0.34073E-03_JPRB,0.29426E-03_JPRB,0.23321E-03_JPRB,0.14921E-03_JPRB /)  
+KA(:, 4,13,11) = (/ &
+ & 0.48670E-03_JPRB,0.45348E-03_JPRB,0.44656E-03_JPRB,0.43321E-03_JPRB,0.41603E-03_JPRB, &
+ & 0.38366E-03_JPRB,0.33328E-03_JPRB,0.26489E-03_JPRB,0.19032E-03_JPRB /)  
+KA(:, 5,13,11) = (/ &
+ & 0.49941E-03_JPRB,0.47298E-03_JPRB,0.47361E-03_JPRB,0.47457E-03_JPRB,0.46263E-03_JPRB, &
+ & 0.42791E-03_JPRB,0.37404E-03_JPRB,0.30319E-03_JPRB,0.23864E-03_JPRB /)  
+KA(:, 1, 1,12) = (/ &
+ & 0.67194E-03_JPRB,0.58821E-03_JPRB,0.50483E-03_JPRB,0.44022E-03_JPRB,0.39428E-03_JPRB, &
+ & 0.35001E-03_JPRB,0.32802E-03_JPRB,0.34712E-03_JPRB,0.40424E-03_JPRB /)  
+KA(:, 2, 1,12) = (/ &
+ & 0.66779E-03_JPRB,0.58462E-03_JPRB,0.50560E-03_JPRB,0.45370E-03_JPRB,0.41018E-03_JPRB, &
+ & 0.37788E-03_JPRB,0.37804E-03_JPRB,0.41641E-03_JPRB,0.48433E-03_JPRB /)  
+KA(:, 3, 1,12) = (/ &
+ & 0.66375E-03_JPRB,0.58112E-03_JPRB,0.50831E-03_JPRB,0.46547E-03_JPRB,0.43045E-03_JPRB, &
+ & 0.42028E-03_JPRB,0.43766E-03_JPRB,0.49681E-03_JPRB,0.57585E-03_JPRB /)  
+KA(:, 4, 1,12) = (/ &
+ & 0.65976E-03_JPRB,0.57768E-03_JPRB,0.51951E-03_JPRB,0.47941E-03_JPRB,0.45883E-03_JPRB, &
+ & 0.47280E-03_JPRB,0.50926E-03_JPRB,0.58385E-03_JPRB,0.67578E-03_JPRB /)  
+KA(:, 5, 1,12) = (/ &
+ & 0.65493E-03_JPRB,0.57349E-03_JPRB,0.52976E-03_JPRB,0.49649E-03_JPRB,0.49872E-03_JPRB, &
+ & 0.52477E-03_JPRB,0.58910E-03_JPRB,0.67477E-03_JPRB,0.78177E-03_JPRB /)  
+KA(:, 1, 2,12) = (/ &
+ & 0.74429E-03_JPRB,0.65147E-03_JPRB,0.55958E-03_JPRB,0.48439E-03_JPRB,0.43163E-03_JPRB, &
+ & 0.37450E-03_JPRB,0.34047E-03_JPRB,0.34702E-03_JPRB,0.40780E-03_JPRB /)  
+KA(:, 2, 2,12) = (/ &
+ & 0.73897E-03_JPRB,0.64685E-03_JPRB,0.56004E-03_JPRB,0.49710E-03_JPRB,0.44831E-03_JPRB, &
+ & 0.39986E-03_JPRB,0.38897E-03_JPRB,0.41601E-03_JPRB,0.48800E-03_JPRB /)  
+KA(:, 3, 2,12) = (/ &
+ & 0.73423E-03_JPRB,0.64274E-03_JPRB,0.56120E-03_JPRB,0.51084E-03_JPRB,0.46668E-03_JPRB, &
+ & 0.44211E-03_JPRB,0.44391E-03_JPRB,0.49187E-03_JPRB,0.57573E-03_JPRB /)  
+KA(:, 4, 2,12) = (/ &
+ & 0.72906E-03_JPRB,0.63825E-03_JPRB,0.57090E-03_JPRB,0.52414E-03_JPRB,0.49429E-03_JPRB, &
+ & 0.48962E-03_JPRB,0.50615E-03_JPRB,0.57487E-03_JPRB,0.67078E-03_JPRB /)  
+KA(:, 5, 2,12) = (/ &
+ & 0.72487E-03_JPRB,0.63461E-03_JPRB,0.58043E-03_JPRB,0.54078E-03_JPRB,0.53373E-03_JPRB, &
+ & 0.54010E-03_JPRB,0.58187E-03_JPRB,0.66737E-03_JPRB,0.77655E-03_JPRB /)  
+KA(:, 1, 3,12) = (/ &
+ & 0.81958E-03_JPRB,0.71735E-03_JPRB,0.61664E-03_JPRB,0.53266E-03_JPRB,0.46619E-03_JPRB, &
+ & 0.39818E-03_JPRB,0.35035E-03_JPRB,0.33455E-03_JPRB,0.39417E-03_JPRB /)  
+KA(:, 2, 3,12) = (/ &
+ & 0.81517E-03_JPRB,0.71349E-03_JPRB,0.61778E-03_JPRB,0.54292E-03_JPRB,0.48245E-03_JPRB, &
+ & 0.42187E-03_JPRB,0.39187E-03_JPRB,0.40203E-03_JPRB,0.47500E-03_JPRB /)  
+KA(:, 3, 3,12) = (/ &
+ & 0.81131E-03_JPRB,0.71014E-03_JPRB,0.61887E-03_JPRB,0.55563E-03_JPRB,0.49928E-03_JPRB, &
+ & 0.45852E-03_JPRB,0.44599E-03_JPRB,0.47656E-03_JPRB,0.56304E-03_JPRB /)  
+KA(:, 4, 3,12) = (/ &
+ & 0.80684E-03_JPRB,0.70624E-03_JPRB,0.62502E-03_JPRB,0.56854E-03_JPRB,0.52516E-03_JPRB, &
+ & 0.50282E-03_JPRB,0.50405E-03_JPRB,0.55674E-03_JPRB,0.65701E-03_JPRB /)  
+KA(:, 5, 3,12) = (/ &
+ & 0.80277E-03_JPRB,0.70271E-03_JPRB,0.63387E-03_JPRB,0.58439E-03_JPRB,0.56394E-03_JPRB, &
+ & 0.54984E-03_JPRB,0.57036E-03_JPRB,0.64435E-03_JPRB,0.75883E-03_JPRB /)  
+KA(:, 1, 4,12) = (/ &
+ & 0.88962E-03_JPRB,0.77859E-03_JPRB,0.66931E-03_JPRB,0.57740E-03_JPRB,0.50138E-03_JPRB, &
+ & 0.42396E-03_JPRB,0.36076E-03_JPRB,0.31901E-03_JPRB,0.36723E-03_JPRB /)  
+KA(:, 2, 4,12) = (/ &
+ & 0.88665E-03_JPRB,0.77601E-03_JPRB,0.67190E-03_JPRB,0.58651E-03_JPRB,0.51766E-03_JPRB, &
+ & 0.44641E-03_JPRB,0.39755E-03_JPRB,0.38137E-03_JPRB,0.44921E-03_JPRB /)  
+KA(:, 3, 4,12) = (/ &
+ & 0.88362E-03_JPRB,0.77338E-03_JPRB,0.67394E-03_JPRB,0.60034E-03_JPRB,0.53406E-03_JPRB, &
+ & 0.47716E-03_JPRB,0.44855E-03_JPRB,0.45695E-03_JPRB,0.53953E-03_JPRB /)  
+KA(:, 4, 4,12) = (/ &
+ & 0.87936E-03_JPRB,0.76967E-03_JPRB,0.67789E-03_JPRB,0.61530E-03_JPRB,0.55605E-03_JPRB, &
+ & 0.52026E-03_JPRB,0.50535E-03_JPRB,0.53746E-03_JPRB,0.63432E-03_JPRB /)  
+KA(:, 5, 4,12) = (/ &
+ & 0.87542E-03_JPRB,0.76625E-03_JPRB,0.68901E-03_JPRB,0.63085E-03_JPRB,0.59283E-03_JPRB, &
+ & 0.56499E-03_JPRB,0.56855E-03_JPRB,0.62330E-03_JPRB,0.73477E-03_JPRB /)  
+KA(:, 1, 5,12) = (/ &
+ & 0.95206E-03_JPRB,0.83319E-03_JPRB,0.71670E-03_JPRB,0.61887E-03_JPRB,0.53098E-03_JPRB, &
+ & 0.45065E-03_JPRB,0.37161E-03_JPRB,0.30790E-03_JPRB,0.33661E-03_JPRB /)  
+KA(:, 2, 5,12) = (/ &
+ & 0.95024E-03_JPRB,0.83163E-03_JPRB,0.72052E-03_JPRB,0.62686E-03_JPRB,0.54899E-03_JPRB, &
+ & 0.47363E-03_JPRB,0.40570E-03_JPRB,0.36303E-03_JPRB,0.41611E-03_JPRB /)  
+KA(:, 3, 5,12) = (/ &
+ & 0.94830E-03_JPRB,0.82995E-03_JPRB,0.72350E-03_JPRB,0.64294E-03_JPRB,0.56882E-03_JPRB, &
+ & 0.49923E-03_JPRB,0.45370E-03_JPRB,0.43446E-03_JPRB,0.50740E-03_JPRB /)  
+KA(:, 4, 5,12) = (/ &
+ & 0.94590E-03_JPRB,0.82788E-03_JPRB,0.72796E-03_JPRB,0.66075E-03_JPRB,0.59106E-03_JPRB, &
+ & 0.53960E-03_JPRB,0.50922E-03_JPRB,0.51449E-03_JPRB,0.60347E-03_JPRB /)  
+KA(:, 5, 5,12) = (/ &
+ & 0.94431E-03_JPRB,0.82652E-03_JPRB,0.73985E-03_JPRB,0.67685E-03_JPRB,0.62406E-03_JPRB, &
+ & 0.58535E-03_JPRB,0.56960E-03_JPRB,0.60003E-03_JPRB,0.70205E-03_JPRB /)  
+KA(:, 1, 6,12) = (/ &
+ & 0.10063E-02_JPRB,0.88067E-03_JPRB,0.75816E-03_JPRB,0.65590E-03_JPRB,0.55704E-03_JPRB, &
+ & 0.47312E-03_JPRB,0.38218E-03_JPRB,0.29812E-03_JPRB,0.29923E-03_JPRB /)  
+KA(:, 2, 6,12) = (/ &
+ & 0.10075E-02_JPRB,0.88171E-03_JPRB,0.76490E-03_JPRB,0.66447E-03_JPRB,0.57639E-03_JPRB, &
+ & 0.49685E-03_JPRB,0.41345E-03_JPRB,0.34724E-03_JPRB,0.37557E-03_JPRB /)  
+KA(:, 3, 6,12) = (/ &
+ & 0.10072E-02_JPRB,0.88152E-03_JPRB,0.76915E-03_JPRB,0.68176E-03_JPRB,0.59750E-03_JPRB, &
+ & 0.52339E-03_JPRB,0.45689E-03_JPRB,0.41130E-03_JPRB,0.46505E-03_JPRB /)  
+KA(:, 4, 6,12) = (/ &
+ & 0.10060E-02_JPRB,0.88049E-03_JPRB,0.77394E-03_JPRB,0.69974E-03_JPRB,0.62189E-03_JPRB, &
+ & 0.55958E-03_JPRB,0.51188E-03_JPRB,0.48580E-03_JPRB,0.55924E-03_JPRB /)  
+KA(:, 5, 6,12) = (/ &
+ & 0.10051E-02_JPRB,0.87967E-03_JPRB,0.78569E-03_JPRB,0.71720E-03_JPRB,0.65527E-03_JPRB, &
+ & 0.60501E-03_JPRB,0.57082E-03_JPRB,0.56756E-03_JPRB,0.65737E-03_JPRB /)  
+KA(:, 1, 7,12) = (/ &
+ & 0.10487E-02_JPRB,0.91773E-03_JPRB,0.79062E-03_JPRB,0.68516E-03_JPRB,0.57878E-03_JPRB, &
+ & 0.49035E-03_JPRB,0.39066E-03_JPRB,0.28990E-03_JPRB,0.26192E-03_JPRB /)  
+KA(:, 2, 7,12) = (/ &
+ & 0.10509E-02_JPRB,0.91972E-03_JPRB,0.79894E-03_JPRB,0.69452E-03_JPRB,0.59953E-03_JPRB, &
+ & 0.51487E-03_JPRB,0.42128E-03_JPRB,0.33451E-03_JPRB,0.33284E-03_JPRB /)  
+KA(:, 3, 7,12) = (/ &
+ & 0.10507E-02_JPRB,0.91957E-03_JPRB,0.80398E-03_JPRB,0.71157E-03_JPRB,0.62221E-03_JPRB, &
+ & 0.54150E-03_JPRB,0.46197E-03_JPRB,0.39208E-03_JPRB,0.41685E-03_JPRB /)  
+KA(:, 4, 7,12) = (/ &
+ & 0.10509E-02_JPRB,0.91973E-03_JPRB,0.80950E-03_JPRB,0.73042E-03_JPRB,0.64659E-03_JPRB, &
+ & 0.57916E-03_JPRB,0.51360E-03_JPRB,0.46065E-03_JPRB,0.50813E-03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART8',1,ZHOOK_HANDLE)
+END SUBROUTINE PART8
+
+
+SUBROUTINE PART9
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART9',0,ZHOOK_HANDLE)
+
+
+KA(:, 5, 7,12) = (/ &
+ & 0.10509E-02_JPRB,0.91978E-03_JPRB,0.82196E-03_JPRB,0.75027E-03_JPRB,0.67740E-03_JPRB, &
+ & 0.62606E-03_JPRB,0.57168E-03_JPRB,0.53418E-03_JPRB,0.60461E-03_JPRB /)  
+KA(:, 1, 8,12) = (/ &
+ & 0.10710E-02_JPRB,0.93729E-03_JPRB,0.80929E-03_JPRB,0.70366E-03_JPRB,0.59621E-03_JPRB, &
+ & 0.50074E-03_JPRB,0.39602E-03_JPRB,0.28309E-03_JPRB,0.22630E-03_JPRB /)  
+KA(:, 2, 8,12) = (/ &
+ & 0.10749E-02_JPRB,0.94069E-03_JPRB,0.82032E-03_JPRB,0.71447E-03_JPRB,0.61694E-03_JPRB, &
+ & 0.52833E-03_JPRB,0.42406E-03_JPRB,0.32400E-03_JPRB,0.29100E-03_JPRB /)  
+KA(:, 3, 8,12) = (/ &
+ & 0.10773E-02_JPRB,0.94281E-03_JPRB,0.82736E-03_JPRB,0.73051E-03_JPRB,0.64296E-03_JPRB, &
+ & 0.55298E-03_JPRB,0.46605E-03_JPRB,0.37591E-03_JPRB,0.36869E-03_JPRB /)  
+KA(:, 4, 8,12) = (/ &
+ & 0.10796E-02_JPRB,0.94487E-03_JPRB,0.83459E-03_JPRB,0.75111E-03_JPRB,0.66786E-03_JPRB, &
+ & 0.59048E-03_JPRB,0.51603E-03_JPRB,0.43920E-03_JPRB,0.45502E-03_JPRB /)  
+KA(:, 5, 8,12) = (/ &
+ & 0.10814E-02_JPRB,0.94726E-03_JPRB,0.84809E-03_JPRB,0.77185E-03_JPRB,0.69811E-03_JPRB, &
+ & 0.64090E-03_JPRB,0.57338E-03_JPRB,0.50692E-03_JPRB,0.54643E-03_JPRB /)  
+KA(:, 1, 9,12) = (/ &
+ & 0.10730E-02_JPRB,0.93903E-03_JPRB,0.81373E-03_JPRB,0.70878E-03_JPRB,0.60523E-03_JPRB, &
+ & 0.50463E-03_JPRB,0.39690E-03_JPRB,0.27640E-03_JPRB,0.19492E-03_JPRB /)  
+KA(:, 2, 9,12) = (/ &
+ & 0.10796E-02_JPRB,0.94482E-03_JPRB,0.82740E-03_JPRB,0.72216E-03_JPRB,0.62667E-03_JPRB, &
+ & 0.53533E-03_JPRB,0.42406E-03_JPRB,0.31368E-03_JPRB,0.25100E-03_JPRB /)  
+KA(:, 3, 9,12) = (/ &
+ & 0.10853E-02_JPRB,0.94982E-03_JPRB,0.83742E-03_JPRB,0.73904E-03_JPRB,0.65592E-03_JPRB, &
+ & 0.56092E-03_JPRB,0.46365E-03_JPRB,0.36183E-03_JPRB,0.32022E-03_JPRB /)  
+KA(:, 4, 9,12) = (/ &
+ & 0.10900E-02_JPRB,0.95441E-03_JPRB,0.84774E-03_JPRB,0.76272E-03_JPRB,0.68162E-03_JPRB, &
+ & 0.59735E-03_JPRB,0.51414E-03_JPRB,0.41927E-03_JPRB,0.39972E-03_JPRB /)  
+KA(:, 5, 9,12) = (/ &
+ & 0.10952E-02_JPRB,0.96081E-03_JPRB,0.86364E-03_JPRB,0.78596E-03_JPRB,0.71341E-03_JPRB, &
+ & 0.64539E-03_JPRB,0.57286E-03_JPRB,0.48249E-03_JPRB,0.48653E-03_JPRB /)  
+KA(:, 1,10,12) = (/ &
+ & 0.10558E-02_JPRB,0.92391E-03_JPRB,0.80426E-03_JPRB,0.70294E-03_JPRB,0.60555E-03_JPRB, &
+ & 0.50218E-03_JPRB,0.39384E-03_JPRB,0.27052E-03_JPRB,0.17175E-03_JPRB /)  
+KA(:, 2,10,12) = (/ &
+ & 0.10672E-02_JPRB,0.93391E-03_JPRB,0.82187E-03_JPRB,0.72055E-03_JPRB,0.62861E-03_JPRB, &
+ & 0.53517E-03_JPRB,0.42394E-03_JPRB,0.30520E-03_JPRB,0.22066E-03_JPRB /)  
+KA(:, 3,10,12) = (/ &
+ & 0.10767E-02_JPRB,0.94234E-03_JPRB,0.83636E-03_JPRB,0.73971E-03_JPRB,0.66074E-03_JPRB, &
+ & 0.56459E-03_JPRB,0.46058E-03_JPRB,0.35232E-03_JPRB,0.28101E-03_JPRB /)  
+KA(:, 4,10,12) = (/ &
+ & 0.10858E-02_JPRB,0.95208E-03_JPRB,0.85075E-03_JPRB,0.76653E-03_JPRB,0.68963E-03_JPRB, &
+ & 0.60125E-03_JPRB,0.51089E-03_JPRB,0.40664E-03_JPRB,0.35284E-03_JPRB /)  
+KA(:, 5,10,12) = (/ &
+ & 0.10953E-02_JPRB,0.96285E-03_JPRB,0.86971E-03_JPRB,0.79369E-03_JPRB,0.72347E-03_JPRB, &
+ & 0.65043E-03_JPRB,0.57028E-03_JPRB,0.46529E-03_JPRB,0.43428E-03_JPRB /)  
+KA(:, 1,11,12) = (/ &
+ & 0.10314E-02_JPRB,0.90258E-03_JPRB,0.79467E-03_JPRB,0.69943E-03_JPRB,0.60546E-03_JPRB, &
+ & 0.50625E-03_JPRB,0.39977E-03_JPRB,0.27736E-03_JPRB,0.16855E-03_JPRB /)  
+KA(:, 2,11,12) = (/ &
+ & 0.10451E-02_JPRB,0.91471E-03_JPRB,0.81404E-03_JPRB,0.71994E-03_JPRB,0.63569E-03_JPRB, &
+ & 0.54231E-03_JPRB,0.43348E-03_JPRB,0.31480E-03_JPRB,0.21751E-03_JPRB /)  
+KA(:, 3,11,12) = (/ &
+ & 0.10591E-02_JPRB,0.92888E-03_JPRB,0.83171E-03_JPRB,0.74582E-03_JPRB,0.67129E-03_JPRB, &
+ & 0.57545E-03_JPRB,0.47649E-03_JPRB,0.36327E-03_JPRB,0.27482E-03_JPRB /)  
+KA(:, 4,11,12) = (/ &
+ & 0.10732E-02_JPRB,0.94400E-03_JPRB,0.85133E-03_JPRB,0.77904E-03_JPRB,0.70324E-03_JPRB, &
+ & 0.62021E-03_JPRB,0.53030E-03_JPRB,0.41771E-03_JPRB,0.34284E-03_JPRB /)  
+KA(:, 5,11,12) = (/ &
+ & 0.10880E-02_JPRB,0.96010E-03_JPRB,0.87843E-03_JPRB,0.80902E-03_JPRB,0.74479E-03_JPRB, &
+ & 0.67711E-03_JPRB,0.59146E-03_JPRB,0.47518E-03_JPRB,0.42405E-03_JPRB /)  
+KA(:, 1,12,12) = (/ &
+ & 0.99800E-03_JPRB,0.87344E-03_JPRB,0.77838E-03_JPRB,0.69077E-03_JPRB,0.60021E-03_JPRB, &
+ & 0.50540E-03_JPRB,0.40237E-03_JPRB,0.28326E-03_JPRB,0.16340E-03_JPRB /)  
+KA(:, 2,12,12) = (/ &
+ & 0.10163E-02_JPRB,0.89149E-03_JPRB,0.80050E-03_JPRB,0.71513E-03_JPRB,0.63616E-03_JPRB, &
+ & 0.54455E-03_JPRB,0.44056E-03_JPRB,0.32235E-03_JPRB,0.21276E-03_JPRB /)  
+KA(:, 3,12,12) = (/ &
+ & 0.10345E-02_JPRB,0.91067E-03_JPRB,0.82237E-03_JPRB,0.74899E-03_JPRB,0.67503E-03_JPRB, &
+ & 0.58381E-03_JPRB,0.48916E-03_JPRB,0.37171E-03_JPRB,0.26817E-03_JPRB /)  
+KA(:, 4,12,12) = (/ &
+ & 0.10541E-02_JPRB,0.93146E-03_JPRB,0.84943E-03_JPRB,0.78581E-03_JPRB,0.71327E-03_JPRB, &
+ & 0.63724E-03_JPRB,0.54703E-03_JPRB,0.42621E-03_JPRB,0.33361E-03_JPRB /)  
+KA(:, 5,12,12) = (/ &
+ & 0.10724E-02_JPRB,0.95127E-03_JPRB,0.88178E-03_JPRB,0.82065E-03_JPRB,0.76248E-03_JPRB, &
+ & 0.70028E-03_JPRB,0.60892E-03_JPRB,0.48179E-03_JPRB,0.41458E-03_JPRB /)  
+KA(:, 1,13,12) = (/ &
+ & 0.95912E-03_JPRB,0.84178E-03_JPRB,0.75778E-03_JPRB,0.67765E-03_JPRB,0.59123E-03_JPRB, &
+ & 0.50112E-03_JPRB,0.40170E-03_JPRB,0.28784E-03_JPRB,0.15761E-03_JPRB /)  
+KA(:, 2,13,12) = (/ &
+ & 0.98187E-03_JPRB,0.86541E-03_JPRB,0.78344E-03_JPRB,0.70851E-03_JPRB,0.63200E-03_JPRB, &
+ & 0.54351E-03_JPRB,0.44541E-03_JPRB,0.32864E-03_JPRB,0.20682E-03_JPRB /)  
+KA(:, 3,13,12) = (/ &
+ & 0.10063E-02_JPRB,0.89078E-03_JPRB,0.81111E-03_JPRB,0.74766E-03_JPRB,0.67473E-03_JPRB, &
+ & 0.58963E-03_JPRB,0.49872E-03_JPRB,0.37736E-03_JPRB,0.26208E-03_JPRB /)  
+KA(:, 4,13,12) = (/ &
+ & 0.10299E-02_JPRB,0.91565E-03_JPRB,0.84455E-03_JPRB,0.78769E-03_JPRB,0.71894E-03_JPRB, &
+ & 0.65012E-03_JPRB,0.55995E-03_JPRB,0.43170E-03_JPRB,0.32660E-03_JPRB /)  
+KA(:, 5,13,12) = (/ &
+ & 0.10525E-02_JPRB,0.93912E-03_JPRB,0.88061E-03_JPRB,0.82863E-03_JPRB,0.77810E-03_JPRB, &
+ & 0.71766E-03_JPRB,0.62330E-03_JPRB,0.48589E-03_JPRB,0.40661E-03_JPRB /)  
+KA(:, 1, 1,13) = (/ &
+ & 0.84224E-03_JPRB,0.73740E-03_JPRB,0.63257E-03_JPRB,0.54853E-03_JPRB,0.48911E-03_JPRB, &
+ & 0.46139E-03_JPRB,0.45309E-03_JPRB,0.51018E-03_JPRB,0.59300E-03_JPRB /)  
+KA(:, 2, 1,13) = (/ &
+ & 0.83841E-03_JPRB,0.73411E-03_JPRB,0.62983E-03_JPRB,0.55802E-03_JPRB,0.51855E-03_JPRB, &
+ & 0.50261E-03_JPRB,0.52209E-03_JPRB,0.59394E-03_JPRB,0.69158E-03_JPRB /)  
+KA(:, 3, 1,13) = (/ &
+ & 0.83593E-03_JPRB,0.73202E-03_JPRB,0.62914E-03_JPRB,0.58596E-03_JPRB,0.54957E-03_JPRB, &
+ & 0.55151E-03_JPRB,0.60969E-03_JPRB,0.69097E-03_JPRB,0.80707E-03_JPRB /)  
+KA(:, 4, 1,13) = (/ &
+ & 0.83246E-03_JPRB,0.72902E-03_JPRB,0.63274E-03_JPRB,0.60961E-03_JPRB,0.59022E-03_JPRB, &
+ & 0.61063E-03_JPRB,0.70961E-03_JPRB,0.80207E-03_JPRB,0.93855E-03_JPRB /)  
+KA(:, 5, 1,13) = (/ &
+ & 0.82958E-03_JPRB,0.72654E-03_JPRB,0.65011E-03_JPRB,0.63711E-03_JPRB,0.63941E-03_JPRB, &
+ & 0.69313E-03_JPRB,0.82070E-03_JPRB,0.92941E-03_JPRB,0.10860E-02_JPRB /)  
+KA(:, 1, 2,13) = (/ &
+ & 0.94737E-03_JPRB,0.82928E-03_JPRB,0.71121E-03_JPRB,0.61292E-03_JPRB,0.53888E-03_JPRB, &
+ & 0.49608E-03_JPRB,0.46449E-03_JPRB,0.50895E-03_JPRB,0.59638E-03_JPRB /)  
+KA(:, 2, 2,13) = (/ &
+ & 0.94309E-03_JPRB,0.82559E-03_JPRB,0.70809E-03_JPRB,0.61981E-03_JPRB,0.56880E-03_JPRB, &
+ & 0.53738E-03_JPRB,0.52906E-03_JPRB,0.59714E-03_JPRB,0.70098E-03_JPRB /)  
+KA(:, 3, 2,13) = (/ &
+ & 0.93813E-03_JPRB,0.82131E-03_JPRB,0.70667E-03_JPRB,0.64442E-03_JPRB,0.60095E-03_JPRB, &
+ & 0.58581E-03_JPRB,0.62140E-03_JPRB,0.70455E-03_JPRB,0.83109E-03_JPRB /)  
+KA(:, 4, 2,13) = (/ &
+ & 0.93357E-03_JPRB,0.81735E-03_JPRB,0.70879E-03_JPRB,0.66885E-03_JPRB,0.63704E-03_JPRB, &
+ & 0.64975E-03_JPRB,0.73250E-03_JPRB,0.82836E-03_JPRB,0.97995E-03_JPRB /)  
+KA(:, 5, 2,13) = (/ &
+ & 0.92926E-03_JPRB,0.81362E-03_JPRB,0.72487E-03_JPRB,0.69759E-03_JPRB,0.68443E-03_JPRB, &
+ & 0.72989E-03_JPRB,0.85114E-03_JPRB,0.96045E-03_JPRB,0.11390E-02_JPRB /)  
+KA(:, 1, 3,13) = (/ &
+ & 0.10589E-02_JPRB,0.92685E-03_JPRB,0.79478E-03_JPRB,0.68185E-03_JPRB,0.58961E-03_JPRB, &
+ & 0.52592E-03_JPRB,0.47382E-03_JPRB,0.49304E-03_JPRB,0.58474E-03_JPRB /)  
+KA(:, 2, 3,13) = (/ &
+ & 0.10532E-02_JPRB,0.92189E-03_JPRB,0.79057E-03_JPRB,0.68536E-03_JPRB,0.61794E-03_JPRB, &
+ & 0.56535E-03_JPRB,0.53040E-03_JPRB,0.57934E-03_JPRB,0.68761E-03_JPRB /)  
+KA(:, 3, 3,13) = (/ &
+ & 0.10466E-02_JPRB,0.91613E-03_JPRB,0.78805E-03_JPRB,0.70517E-03_JPRB,0.65240E-03_JPRB, &
+ & 0.61071E-03_JPRB,0.61067E-03_JPRB,0.68776E-03_JPRB,0.81827E-03_JPRB /)  
+KA(:, 4, 3,13) = (/ &
+ & 0.10406E-02_JPRB,0.91088E-03_JPRB,0.78949E-03_JPRB,0.73011E-03_JPRB,0.68643E-03_JPRB, &
+ & 0.67486E-03_JPRB,0.72316E-03_JPRB,0.82048E-03_JPRB,0.97591E-03_JPRB /)  
+KA(:, 5, 3,13) = (/ &
+ & 0.10350E-02_JPRB,0.90609E-03_JPRB,0.80184E-03_JPRB,0.75651E-03_JPRB,0.73102E-03_JPRB, &
+ & 0.75672E-03_JPRB,0.85035E-03_JPRB,0.96398E-03_JPRB,0.11483E-02_JPRB /)  
+KA(:, 1, 4,13) = (/ &
+ & 0.11788E-02_JPRB,0.10317E-02_JPRB,0.88462E-03_JPRB,0.75562E-03_JPRB,0.64370E-03_JPRB, &
+ & 0.55868E-03_JPRB,0.48899E-03_JPRB,0.48008E-03_JPRB,0.57112E-03_JPRB /)  
+KA(:, 2, 4,13) = (/ &
+ & 0.11725E-02_JPRB,0.10263E-02_JPRB,0.87998E-03_JPRB,0.75781E-03_JPRB,0.66989E-03_JPRB, &
+ & 0.59814E-03_JPRB,0.54177E-03_JPRB,0.56164E-03_JPRB,0.66999E-03_JPRB /)  
+KA(:, 3, 4,13) = (/ &
+ & 0.11654E-02_JPRB,0.10201E-02_JPRB,0.87720E-03_JPRB,0.76990E-03_JPRB,0.70381E-03_JPRB, &
+ & 0.63928E-03_JPRB,0.60787E-03_JPRB,0.66447E-03_JPRB,0.79300E-03_JPRB /)  
+KA(:, 4, 4,13) = (/ &
+ & 0.11592E-02_JPRB,0.10147E-02_JPRB,0.87854E-03_JPRB,0.79340E-03_JPRB,0.73787E-03_JPRB, &
+ & 0.69602E-03_JPRB,0.70539E-03_JPRB,0.79266E-03_JPRB,0.94522E-03_JPRB /)  
+KA(:, 5, 4,13) = (/ &
+ & 0.11532E-02_JPRB,0.10094E-02_JPRB,0.88452E-03_JPRB,0.81797E-03_JPRB,0.78065E-03_JPRB, &
+ & 0.77762E-03_JPRB,0.82734E-03_JPRB,0.94053E-03_JPRB,0.11199E-02_JPRB /)  
+KA(:, 1, 5,13) = (/ &
+ & 0.13090E-02_JPRB,0.11455E-02_JPRB,0.98213E-03_JPRB,0.83571E-03_JPRB,0.70447E-03_JPRB, &
+ & 0.59736E-03_JPRB,0.51100E-03_JPRB,0.46541E-03_JPRB,0.54756E-03_JPRB /)  
+KA(:, 2, 5,13) = (/ &
+ & 0.13011E-02_JPRB,0.11387E-02_JPRB,0.97633E-03_JPRB,0.83818E-03_JPRB,0.72563E-03_JPRB, &
+ & 0.63146E-03_JPRB,0.56040E-03_JPRB,0.54671E-03_JPRB,0.65045E-03_JPRB /)  
+KA(:, 3, 5,13) = (/ &
+ & 0.12919E-02_JPRB,0.11307E-02_JPRB,0.97249E-03_JPRB,0.84355E-03_JPRB,0.75615E-03_JPRB, &
+ & 0.67456E-03_JPRB,0.62106E-03_JPRB,0.64503E-03_JPRB,0.77294E-03_JPRB /)  
+KA(:, 4, 5,13) = (/ &
+ & 0.12834E-02_JPRB,0.11233E-02_JPRB,0.97228E-03_JPRB,0.86290E-03_JPRB,0.79001E-03_JPRB, &
+ & 0.72644E-03_JPRB,0.70406E-03_JPRB,0.76742E-03_JPRB,0.92034E-03_JPRB /)  
+KA(:, 5, 5,13) = (/ &
+ & 0.12754E-02_JPRB,0.11163E-02_JPRB,0.97447E-03_JPRB,0.88787E-03_JPRB,0.82956E-03_JPRB, &
+ & 0.80041E-03_JPRB,0.81433E-03_JPRB,0.91302E-03_JPRB,0.10923E-02_JPRB /)  
+KA(:, 1, 6,13) = (/ &
+ & 0.14384E-02_JPRB,0.12588E-02_JPRB,0.10791E-02_JPRB,0.91745E-03_JPRB,0.77222E-03_JPRB, &
+ & 0.63777E-03_JPRB,0.53552E-03_JPRB,0.44917E-03_JPRB,0.50804E-03_JPRB /)  
+KA(:, 2, 6,13) = (/ &
+ & 0.14296E-02_JPRB,0.12511E-02_JPRB,0.10726E-02_JPRB,0.92106E-03_JPRB,0.78721E-03_JPRB, &
+ & 0.67056E-03_JPRB,0.58135E-03_JPRB,0.52600E-03_JPRB,0.61657E-03_JPRB /)  
+KA(:, 3, 6,13) = (/ &
+ & 0.14197E-02_JPRB,0.12425E-02_JPRB,0.10687E-02_JPRB,0.92311E-03_JPRB,0.81466E-03_JPRB, &
+ & 0.70925E-03_JPRB,0.63651E-03_JPRB,0.62263E-03_JPRB,0.74116E-03_JPRB /)  
+KA(:, 4, 6,13) = (/ &
+ & 0.14113E-02_JPRB,0.12351E-02_JPRB,0.10686E-02_JPRB,0.93888E-03_JPRB,0.84557E-03_JPRB, &
+ & 0.75721E-03_JPRB,0.71295E-03_JPRB,0.74435E-03_JPRB,0.88914E-03_JPRB /)  
+KA(:, 5, 6,13) = (/ &
+ & 0.14033E-02_JPRB,0.12282E-02_JPRB,0.10694E-02_JPRB,0.96147E-03_JPRB,0.87768E-03_JPRB, &
+ & 0.82519E-03_JPRB,0.81219E-03_JPRB,0.88552E-03_JPRB,0.10599E-02_JPRB /)  
+KA(:, 1, 7,13) = (/ &
+ & 0.15646E-02_JPRB,0.13692E-02_JPRB,0.11737E-02_JPRB,0.99670E-03_JPRB,0.83910E-03_JPRB, &
+ & 0.68337E-03_JPRB,0.56133E-03_JPRB,0.43784E-03_JPRB,0.46053E-03_JPRB /)  
+KA(:, 2, 7,13) = (/ &
+ & 0.15575E-02_JPRB,0.13630E-02_JPRB,0.11685E-02_JPRB,0.10035E-02_JPRB,0.85062E-03_JPRB, &
+ & 0.71436E-03_JPRB,0.60284E-03_JPRB,0.50378E-03_JPRB,0.56665E-03_JPRB /)  
+KA(:, 3, 7,13) = (/ &
+ & 0.15495E-02_JPRB,0.13560E-02_JPRB,0.11666E-02_JPRB,0.10059E-02_JPRB,0.87670E-03_JPRB, &
+ & 0.74963E-03_JPRB,0.65339E-03_JPRB,0.59583E-03_JPRB,0.69467E-03_JPRB /)  
+KA(:, 4, 7,13) = (/ &
+ & 0.15420E-02_JPRB,0.13494E-02_JPRB,0.11678E-02_JPRB,0.10189E-02_JPRB,0.90417E-03_JPRB, &
+ & 0.79237E-03_JPRB,0.72265E-03_JPRB,0.71412E-03_JPRB,0.84581E-03_JPRB /)  
+KA(:, 5, 7,13) = (/ &
+ & 0.15345E-02_JPRB,0.13429E-02_JPRB,0.11695E-02_JPRB,0.10414E-02_JPRB,0.93588E-03_JPRB, &
+ & 0.84978E-03_JPRB,0.81799E-03_JPRB,0.85682E-03_JPRB,0.10184E-02_JPRB /)  
+KA(:, 1, 8,13) = (/ &
+ & 0.16856E-02_JPRB,0.14750E-02_JPRB,0.12645E-02_JPRB,0.10725E-02_JPRB,0.90201E-03_JPRB, &
+ & 0.73159E-03_JPRB,0.58478E-03_JPRB,0.43268E-03_JPRB,0.41101E-03_JPRB /)  
+KA(:, 2, 8,13) = (/ &
+ & 0.16806E-02_JPRB,0.14706E-02_JPRB,0.12609E-02_JPRB,0.10836E-02_JPRB,0.91363E-03_JPRB, &
+ & 0.76033E-03_JPRB,0.62810E-03_JPRB,0.48786E-03_JPRB,0.51346E-03_JPRB /)  
+KA(:, 3, 8,13) = (/ &
+ & 0.16744E-02_JPRB,0.14652E-02_JPRB,0.12612E-02_JPRB,0.10887E-02_JPRB,0.93599E-03_JPRB, &
+ & 0.79815E-03_JPRB,0.66916E-03_JPRB,0.56926E-03_JPRB,0.63978E-03_JPRB /)  
+KA(:, 4, 8,13) = (/ &
+ & 0.16684E-02_JPRB,0.14601E-02_JPRB,0.12641E-02_JPRB,0.11000E-02_JPRB,0.96490E-03_JPRB, &
+ & 0.83543E-03_JPRB,0.73243E-03_JPRB,0.67845E-03_JPRB,0.78892E-03_JPRB /)  
+KA(:, 5, 8,13) = (/ &
+ & 0.16618E-02_JPRB,0.14543E-02_JPRB,0.12671E-02_JPRB,0.11238E-02_JPRB,0.99451E-03_JPRB, &
+ & 0.88426E-03_JPRB,0.81935E-03_JPRB,0.81741E-03_JPRB,0.96330E-03_JPRB /)  
+KA(:, 1, 9,13) = (/ &
+ & 0.17934E-02_JPRB,0.15694E-02_JPRB,0.13453E-02_JPRB,0.11410E-02_JPRB,0.95885E-03_JPRB, &
+ & 0.77818E-03_JPRB,0.60653E-03_JPRB,0.43079E-03_JPRB,0.36156E-03_JPRB /)  
+KA(:, 2, 9,13) = (/ &
+ & 0.17902E-02_JPRB,0.15666E-02_JPRB,0.13435E-02_JPRB,0.11557E-02_JPRB,0.97291E-03_JPRB, &
+ & 0.80328E-03_JPRB,0.65101E-03_JPRB,0.47930E-03_JPRB,0.45791E-03_JPRB /)  
+KA(:, 3, 9,13) = (/ &
+ & 0.17870E-02_JPRB,0.15637E-02_JPRB,0.13465E-02_JPRB,0.11644E-02_JPRB,0.99290E-03_JPRB, &
+ & 0.84365E-03_JPRB,0.69043E-03_JPRB,0.54887E-03_JPRB,0.58027E-03_JPRB /)  
+KA(:, 4, 9,13) = (/ &
+ & 0.17836E-02_JPRB,0.15608E-02_JPRB,0.13520E-02_JPRB,0.11761E-02_JPRB,0.10245E-02_JPRB, &
+ & 0.87956E-03_JPRB,0.74487E-03_JPRB,0.64626E-03_JPRB,0.72649E-03_JPRB /)  
+KA(:, 5, 9,13) = (/ &
+ & 0.17784E-02_JPRB,0.15563E-02_JPRB,0.13567E-02_JPRB,0.11994E-02_JPRB,0.10543E-02_JPRB, &
+ & 0.92517E-03_JPRB,0.82194E-03_JPRB,0.77306E-03_JPRB,0.89652E-03_JPRB /)  
+KA(:, 1,10,13) = (/ &
+ & 0.18870E-02_JPRB,0.16513E-02_JPRB,0.14155E-02_JPRB,0.12026E-02_JPRB,0.10094E-02_JPRB, &
+ & 0.82157E-03_JPRB,0.62812E-03_JPRB,0.43279E-03_JPRB,0.32100E-03_JPRB /)  
+KA(:, 2,10,13) = (/ &
+ & 0.18874E-02_JPRB,0.16516E-02_JPRB,0.14168E-02_JPRB,0.12199E-02_JPRB,0.10267E-02_JPRB, &
+ & 0.84527E-03_JPRB,0.67192E-03_JPRB,0.47951E-03_JPRB,0.41207E-03_JPRB /)  
+KA(:, 3,10,13) = (/ &
+ & 0.18869E-02_JPRB,0.16512E-02_JPRB,0.14226E-02_JPRB,0.12326E-02_JPRB,0.10456E-02_JPRB, &
+ & 0.88603E-03_JPRB,0.71450E-03_JPRB,0.53998E-03_JPRB,0.52708E-03_JPRB /)  
+KA(:, 4,10,13) = (/ &
+ & 0.18844E-02_JPRB,0.16490E-02_JPRB,0.14297E-02_JPRB,0.12452E-02_JPRB,0.10784E-02_JPRB, &
+ & 0.92565E-03_JPRB,0.76291E-03_JPRB,0.62910E-03_JPRB,0.66842E-03_JPRB /)  
+KA(:, 5,10,13) = (/ &
+ & 0.18812E-02_JPRB,0.16463E-02_JPRB,0.14369E-02_JPRB,0.12677E-02_JPRB,0.11133E-02_JPRB, &
+ & 0.96733E-03_JPRB,0.83676E-03_JPRB,0.74378E-03_JPRB,0.83514E-03_JPRB /)  
+KA(:, 1,11,13) = (/ &
+ & 0.19652E-02_JPRB,0.17197E-02_JPRB,0.14741E-02_JPRB,0.12638E-02_JPRB,0.10628E-02_JPRB, &
+ & 0.86832E-03_JPRB,0.66314E-03_JPRB,0.45418E-03_JPRB,0.32052E-03_JPRB /)  
+KA(:, 2,11,13) = (/ &
+ & 0.19706E-02_JPRB,0.17244E-02_JPRB,0.14828E-02_JPRB,0.12836E-02_JPRB,0.10826E-02_JPRB, &
+ & 0.89693E-03_JPRB,0.71120E-03_JPRB,0.50274E-03_JPRB,0.41269E-03_JPRB /)  
+KA(:, 3,11,13) = (/ &
+ & 0.19727E-02_JPRB,0.17263E-02_JPRB,0.14935E-02_JPRB,0.12979E-02_JPRB,0.11060E-02_JPRB, &
+ & 0.94341E-03_JPRB,0.75411E-03_JPRB,0.56772E-03_JPRB,0.53374E-03_JPRB /)  
+KA(:, 4,11,13) = (/ &
+ & 0.19726E-02_JPRB,0.17262E-02_JPRB,0.15047E-02_JPRB,0.13132E-02_JPRB,0.11439E-02_JPRB, &
+ & 0.98450E-03_JPRB,0.80814E-03_JPRB,0.66163E-03_JPRB,0.68012E-03_JPRB /)  
+KA(:, 5,11,13) = (/ &
+ & 0.19717E-02_JPRB,0.17254E-02_JPRB,0.15111E-02_JPRB,0.13415E-02_JPRB,0.11812E-02_JPRB, &
+ & 0.10302E-02_JPRB,0.88976E-03_JPRB,0.77856E-03_JPRB,0.85217E-03_JPRB /)  
+KA(:, 1,12,13) = (/ &
+ & 0.20238E-02_JPRB,0.17709E-02_JPRB,0.15209E-02_JPRB,0.13140E-02_JPRB,0.11103E-02_JPRB, &
+ & 0.90805E-03_JPRB,0.69487E-03_JPRB,0.47365E-03_JPRB,0.32170E-03_JPRB /)  
+KA(:, 2,12,13) = (/ &
+ & 0.20339E-02_JPRB,0.17798E-02_JPRB,0.15376E-02_JPRB,0.13369E-02_JPRB,0.11339E-02_JPRB, &
+ & 0.94414E-03_JPRB,0.74487E-03_JPRB,0.52470E-03_JPRB,0.41340E-03_JPRB /)  
+KA(:, 3,12,13) = (/ &
+ & 0.20400E-02_JPRB,0.17851E-02_JPRB,0.15537E-02_JPRB,0.13538E-02_JPRB,0.11634E-02_JPRB, &
+ & 0.99316E-03_JPRB,0.79139E-03_JPRB,0.59483E-03_JPRB,0.53800E-03_JPRB /)  
+KA(:, 4,12,13) = (/ &
+ & 0.20440E-02_JPRB,0.17887E-02_JPRB,0.15672E-02_JPRB,0.13751E-02_JPRB,0.12054E-02_JPRB, &
+ & 0.10358E-02_JPRB,0.85239E-03_JPRB,0.69118E-03_JPRB,0.69062E-03_JPRB /)  
+KA(:, 5,12,13) = (/ &
+ & 0.20478E-02_JPRB,0.17920E-02_JPRB,0.15770E-02_JPRB,0.14084E-02_JPRB,0.12434E-02_JPRB, &
+ & 0.10883E-02_JPRB,0.94102E-03_JPRB,0.81111E-03_JPRB,0.86624E-03_JPRB /)  
+KA(:, 1,13,13) = (/ &
+ & 0.20618E-02_JPRB,0.18042E-02_JPRB,0.15564E-02_JPRB,0.13520E-02_JPRB,0.11495E-02_JPRB, &
+ & 0.94146E-03_JPRB,0.72197E-03_JPRB,0.49143E-03_JPRB,0.32080E-03_JPRB /)  
+KA(:, 2,13,13) = (/ &
+ & 0.20769E-02_JPRB,0.18174E-02_JPRB,0.15793E-02_JPRB,0.13781E-02_JPRB,0.11781E-02_JPRB, &
+ & 0.98504E-03_JPRB,0.77410E-03_JPRB,0.54584E-03_JPRB,0.41409E-03_JPRB /)  
+KA(:, 3,13,13) = (/ &
+ & 0.20884E-02_JPRB,0.18274E-02_JPRB,0.16007E-02_JPRB,0.14008E-02_JPRB,0.12152E-02_JPRB, &
+ & 0.10359E-02_JPRB,0.82528E-03_JPRB,0.62085E-03_JPRB,0.53970E-03_JPRB /)  
+KA(:, 4,13,13) = (/ &
+ & 0.21000E-02_JPRB,0.18376E-02_JPRB,0.16180E-02_JPRB,0.14292E-02_JPRB,0.12615E-02_JPRB, &
+ & 0.10817E-02_JPRB,0.89457E-03_JPRB,0.71909E-03_JPRB,0.69474E-03_JPRB /)  
+KA(:, 5,13,13) = (/ &
+ & 0.21077E-02_JPRB,0.18456E-02_JPRB,0.16335E-02_JPRB,0.14673E-02_JPRB,0.12995E-02_JPRB, &
+ & 0.11413E-02_JPRB,0.98821E-03_JPRB,0.84127E-03_JPRB,0.87402E-03_JPRB /)  
+KA(:, 1, 1,14) = (/ &
+ & 0.11199E-02_JPRB,0.98039E-03_JPRB,0.84084E-03_JPRB,0.70943E-03_JPRB,0.63603E-03_JPRB, &
+ & 0.60649E-03_JPRB,0.68312E-03_JPRB,0.76350E-03_JPRB,0.90110E-03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART9',1,ZHOOK_HANDLE)
+END SUBROUTINE PART9
+
+
+SUBROUTINE PART10
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART10',0,ZHOOK_HANDLE)
+
+
+KA(:, 2, 1,14) = (/ &
+ & 0.11157E-02_JPRB,0.97670E-03_JPRB,0.83773E-03_JPRB,0.72395E-03_JPRB,0.68641E-03_JPRB, &
+ & 0.69858E-03_JPRB,0.81907E-03_JPRB,0.92056E-03_JPRB,0.10823E-02_JPRB /)  
+KA(:, 3, 1,14) = (/ &
+ & 0.11108E-02_JPRB,0.97243E-03_JPRB,0.83426E-03_JPRB,0.74791E-03_JPRB,0.75340E-03_JPRB, &
+ & 0.82026E-03_JPRB,0.97233E-03_JPRB,0.10968E-02_JPRB,0.12857E-02_JPRB /)  
+KA(:, 4, 1,14) = (/ &
+ & 0.11077E-02_JPRB,0.96981E-03_JPRB,0.83196E-03_JPRB,0.80006E-03_JPRB,0.82593E-03_JPRB, &
+ & 0.96481E-03_JPRB,0.11451E-02_JPRB,0.12942E-02_JPRB,0.15153E-02_JPRB /)  
+KA(:, 5, 1,14) = (/ &
+ & 0.11057E-02_JPRB,0.96811E-03_JPRB,0.83287E-03_JPRB,0.85771E-03_JPRB,0.92243E-03_JPRB, &
+ & 0.11291E-02_JPRB,0.13401E-02_JPRB,0.15139E-02_JPRB,0.17730E-02_JPRB /)  
+KA(:, 1, 2,14) = (/ &
+ & 0.12618E-02_JPRB,0.11045E-02_JPRB,0.94731E-03_JPRB,0.80059E-03_JPRB,0.70460E-03_JPRB, &
+ & 0.66164E-03_JPRB,0.71798E-03_JPRB,0.80280E-03_JPRB,0.96182E-03_JPRB /)  
+KA(:, 2, 2,14) = (/ &
+ & 0.12573E-02_JPRB,0.11007E-02_JPRB,0.94415E-03_JPRB,0.81463E-03_JPRB,0.74844E-03_JPRB, &
+ & 0.74157E-03_JPRB,0.85097E-03_JPRB,0.95625E-03_JPRB,0.11395E-02_JPRB /)  
+KA(:, 3, 2,14) = (/ &
+ & 0.12537E-02_JPRB,0.10976E-02_JPRB,0.94166E-03_JPRB,0.83421E-03_JPRB,0.81760E-03_JPRB, &
+ & 0.85124E-03_JPRB,0.10029E-02_JPRB,0.11319E-02_JPRB,0.13421E-02_JPRB /)  
+KA(:, 4, 2,14) = (/ &
+ & 0.12517E-02_JPRB,0.10959E-02_JPRB,0.94019E-03_JPRB,0.88029E-03_JPRB,0.88890E-03_JPRB, &
+ & 0.98937E-03_JPRB,0.11747E-02_JPRB,0.13301E-02_JPRB,0.15715E-02_JPRB /)  
+KA(:, 5, 2,14) = (/ &
+ & 0.12484E-02_JPRB,0.10932E-02_JPRB,0.93873E-03_JPRB,0.93946E-03_JPRB,0.97784E-03_JPRB, &
+ & 0.11555E-02_JPRB,0.13735E-02_JPRB,0.15606E-02_JPRB,0.18367E-02_JPRB /)  
+KA(:, 1, 3,14) = (/ &
+ & 0.14334E-02_JPRB,0.12547E-02_JPRB,0.10760E-02_JPRB,0.90369E-03_JPRB,0.78163E-03_JPRB, &
+ & 0.71064E-03_JPRB,0.72074E-03_JPRB,0.81006E-03_JPRB,0.97636E-03_JPRB /)  
+KA(:, 2, 3,14) = (/ &
+ & 0.14266E-02_JPRB,0.12488E-02_JPRB,0.10711E-02_JPRB,0.91657E-03_JPRB,0.81392E-03_JPRB, &
+ & 0.78379E-03_JPRB,0.85758E-03_JPRB,0.96540E-03_JPRB,0.11622E-02_JPRB /)  
+KA(:, 3, 3,14) = (/ &
+ & 0.14223E-02_JPRB,0.12452E-02_JPRB,0.10680E-02_JPRB,0.93146E-03_JPRB,0.87510E-03_JPRB, &
+ & 0.87756E-03_JPRB,0.10059E-02_JPRB,0.11359E-02_JPRB,0.13619E-02_JPRB /)  
+KA(:, 4, 3,14) = (/ &
+ & 0.14175E-02_JPRB,0.12411E-02_JPRB,0.10646E-02_JPRB,0.96483E-03_JPRB,0.94572E-03_JPRB, &
+ & 0.99384E-03_JPRB,0.11710E-02_JPRB,0.13256E-02_JPRB,0.15838E-02_JPRB /)  
+KA(:, 5, 3,14) = (/ &
+ & 0.14120E-02_JPRB,0.12363E-02_JPRB,0.10614E-02_JPRB,0.10223E-02_JPRB,0.10225E-02_JPRB, &
+ & 0.11461E-02_JPRB,0.13616E-02_JPRB,0.15455E-02_JPRB,0.18394E-02_JPRB /)  
+KA(:, 1, 4,14) = (/ &
+ & 0.16334E-02_JPRB,0.14296E-02_JPRB,0.12259E-02_JPRB,0.10262E-02_JPRB,0.87529E-03_JPRB, &
+ & 0.76396E-03_JPRB,0.72119E-03_JPRB,0.79306E-03_JPRB,0.95651E-03_JPRB /)  
+KA(:, 2, 4,14) = (/ &
+ & 0.16232E-02_JPRB,0.14208E-02_JPRB,0.12185E-02_JPRB,0.10348E-02_JPRB,0.89367E-03_JPRB, &
+ & 0.83199E-03_JPRB,0.84657E-03_JPRB,0.95561E-03_JPRB,0.11474E-02_JPRB /)  
+KA(:, 3, 4,14) = (/ &
+ & 0.16152E-02_JPRB,0.14140E-02_JPRB,0.12127E-02_JPRB,0.10485E-02_JPRB,0.94236E-03_JPRB, &
+ & 0.91572E-03_JPRB,0.99902E-03_JPRB,0.11299E-02_JPRB,0.13583E-02_JPRB /)  
+KA(:, 4, 4,14) = (/ &
+ & 0.16069E-02_JPRB,0.14067E-02_JPRB,0.12065E-02_JPRB,0.10685E-02_JPRB,0.10126E-02_JPRB, &
+ & 0.10172E-02_JPRB,0.11639E-02_JPRB,0.13179E-02_JPRB,0.15822E-02_JPRB /)  
+KA(:, 5, 4,14) = (/ &
+ & 0.15986E-02_JPRB,0.13996E-02_JPRB,0.12009E-02_JPRB,0.11161E-02_JPRB,0.10822E-02_JPRB, &
+ & 0.11448E-02_JPRB,0.13482E-02_JPRB,0.15289E-02_JPRB,0.18307E-02_JPRB /)  
+KA(:, 1, 5,14) = (/ &
+ & 0.18523E-02_JPRB,0.16211E-02_JPRB,0.13900E-02_JPRB,0.11617E-02_JPRB,0.98609E-03_JPRB, &
+ & 0.83071E-03_JPRB,0.73506E-03_JPRB,0.77421E-03_JPRB,0.93359E-03_JPRB /)  
+KA(:, 2, 5,14) = (/ &
+ & 0.18399E-02_JPRB,0.16104E-02_JPRB,0.13808E-02_JPRB,0.11680E-02_JPRB,0.99824E-03_JPRB, &
+ & 0.89112E-03_JPRB,0.84383E-03_JPRB,0.93250E-03_JPRB,0.11210E-02_JPRB /)  
+KA(:, 3, 5,14) = (/ &
+ & 0.18296E-02_JPRB,0.16015E-02_JPRB,0.13734E-02_JPRB,0.11806E-02_JPRB,0.10315E-02_JPRB, &
+ & 0.96812E-03_JPRB,0.98130E-03_JPRB,0.11095E-02_JPRB,0.13275E-02_JPRB /)  
+KA(:, 4, 5,14) = (/ &
+ & 0.18179E-02_JPRB,0.15913E-02_JPRB,0.13647E-02_JPRB,0.11924E-02_JPRB,0.10905E-02_JPRB, &
+ & 0.10578E-02_JPRB,0.11513E-02_JPRB,0.13088E-02_JPRB,0.15638E-02_JPRB /)  
+KA(:, 5, 5,14) = (/ &
+ & 0.18067E-02_JPRB,0.15816E-02_JPRB,0.13575E-02_JPRB,0.12252E-02_JPRB,0.11627E-02_JPRB, &
+ & 0.11690E-02_JPRB,0.13357E-02_JPRB,0.15168E-02_JPRB,0.18162E-02_JPRB /)  
+KA(:, 1, 6,14) = (/ &
+ & 0.20925E-02_JPRB,0.18312E-02_JPRB,0.15700E-02_JPRB,0.13095E-02_JPRB,0.11041E-02_JPRB, &
+ & 0.91669E-03_JPRB,0.76437E-03_JPRB,0.75155E-03_JPRB,0.90862E-03_JPRB /)  
+KA(:, 2, 6,14) = (/ &
+ & 0.20749E-02_JPRB,0.18159E-02_JPRB,0.15569E-02_JPRB,0.13117E-02_JPRB,0.11170E-02_JPRB, &
+ & 0.95740E-03_JPRB,0.85349E-03_JPRB,0.90211E-03_JPRB,0.10843E-02_JPRB /)  
+KA(:, 3, 6,14) = (/ &
+ & 0.20605E-02_JPRB,0.18034E-02_JPRB,0.15463E-02_JPRB,0.13221E-02_JPRB,0.11384E-02_JPRB, &
+ & 0.10293E-02_JPRB,0.97333E-03_JPRB,0.10765E-02_JPRB,0.12853E-02_JPRB /)  
+KA(:, 4, 6,14) = (/ &
+ & 0.20459E-02_JPRB,0.17907E-02_JPRB,0.15355E-02_JPRB,0.13321E-02_JPRB,0.11878E-02_JPRB, &
+ & 0.11138E-02_JPRB,0.11236E-02_JPRB,0.12716E-02_JPRB,0.15170E-02_JPRB /)  
+KA(:, 5, 6,14) = (/ &
+ & 0.20310E-02_JPRB,0.17778E-02_JPRB,0.15259E-02_JPRB,0.13542E-02_JPRB,0.12517E-02_JPRB, &
+ & 0.12095E-02_JPRB,0.13081E-02_JPRB,0.14898E-02_JPRB,0.17755E-02_JPRB /)  
+KA(:, 1, 7,14) = (/ &
+ & 0.23595E-02_JPRB,0.20648E-02_JPRB,0.17701E-02_JPRB,0.14754E-02_JPRB,0.12323E-02_JPRB, &
+ & 0.10132E-02_JPRB,0.80835E-03_JPRB,0.73377E-03_JPRB,0.88458E-03_JPRB /)  
+KA(:, 2, 7,14) = (/ &
+ & 0.23333E-02_JPRB,0.20420E-02_JPRB,0.17506E-02_JPRB,0.14700E-02_JPRB,0.12449E-02_JPRB, &
+ & 0.10427E-02_JPRB,0.88482E-03_JPRB,0.87865E-03_JPRB,0.10548E-02_JPRB /)  
+KA(:, 3, 7,14) = (/ &
+ & 0.23118E-02_JPRB,0.20232E-02_JPRB,0.17345E-02_JPRB,0.14754E-02_JPRB,0.12581E-02_JPRB, &
+ & 0.11040E-02_JPRB,0.98425E-03_JPRB,0.10425E-02_JPRB,0.12451E-02_JPRB /)  
+KA(:, 4, 7,14) = (/ &
+ & 0.22911E-02_JPRB,0.20052E-02_JPRB,0.17193E-02_JPRB,0.14831E-02_JPRB,0.12996E-02_JPRB, &
+ & 0.11778E-02_JPRB,0.11137E-02_JPRB,0.12310E-02_JPRB,0.14656E-02_JPRB /)  
+KA(:, 5, 7,14) = (/ &
+ & 0.22715E-02_JPRB,0.19881E-02_JPRB,0.17061E-02_JPRB,0.14949E-02_JPRB,0.13595E-02_JPRB, &
+ & 0.12702E-02_JPRB,0.12792E-02_JPRB,0.14480E-02_JPRB,0.17220E-02_JPRB /)  
+KA(:, 1, 8,14) = (/ &
+ & 0.26465E-02_JPRB,0.23159E-02_JPRB,0.19853E-02_JPRB,0.16547E-02_JPRB,0.13704E-02_JPRB, &
+ & 0.11161E-02_JPRB,0.87227E-03_JPRB,0.72579E-03_JPRB,0.85316E-03_JPRB /)  
+KA(:, 2, 8,14) = (/ &
+ & 0.26139E-02_JPRB,0.22874E-02_JPRB,0.19609E-02_JPRB,0.16420E-02_JPRB,0.13837E-02_JPRB, &
+ & 0.11377E-02_JPRB,0.93183E-03_JPRB,0.85926E-03_JPRB,0.10245E-02_JPRB /)  
+KA(:, 3, 8,14) = (/ &
+ & 0.25857E-02_JPRB,0.22628E-02_JPRB,0.19400E-02_JPRB,0.16425E-02_JPRB,0.13917E-02_JPRB, &
+ & 0.11859E-02_JPRB,0.10228E-02_JPRB,0.10157E-02_JPRB,0.12103E-02_JPRB /)  
+KA(:, 4, 8,14) = (/ &
+ & 0.25573E-02_JPRB,0.22380E-02_JPRB,0.19187E-02_JPRB,0.16463E-02_JPRB,0.14196E-02_JPRB, &
+ & 0.12582E-02_JPRB,0.11286E-02_JPRB,0.11958E-02_JPRB,0.14229E-02_JPRB /)  
+KA(:, 5, 8,14) = (/ &
+ & 0.25310E-02_JPRB,0.22151E-02_JPRB,0.19006E-02_JPRB,0.16478E-02_JPRB,0.14771E-02_JPRB, &
+ & 0.13382E-02_JPRB,0.12711E-02_JPRB,0.14043E-02_JPRB,0.16688E-02_JPRB /)  
+KA(:, 1, 9,14) = (/ &
+ & 0.29437E-02_JPRB,0.25759E-02_JPRB,0.22081E-02_JPRB,0.18403E-02_JPRB,0.15126E-02_JPRB, &
+ & 0.12266E-02_JPRB,0.94502E-03_JPRB,0.72553E-03_JPRB,0.80872E-03_JPRB /)  
+KA(:, 2, 9,14) = (/ &
+ & 0.29059E-02_JPRB,0.25428E-02_JPRB,0.21798E-02_JPRB,0.18221E-02_JPRB,0.15299E-02_JPRB, &
+ & 0.12446E-02_JPRB,0.99114E-03_JPRB,0.84495E-03_JPRB,0.98123E-03_JPRB /)  
+KA(:, 3, 9,14) = (/ &
+ & 0.28735E-02_JPRB,0.25146E-02_JPRB,0.21557E-02_JPRB,0.18193E-02_JPRB,0.15373E-02_JPRB, &
+ & 0.12770E-02_JPRB,0.10730E-02_JPRB,0.99151E-03_JPRB,0.11701E-02_JPRB /)  
+KA(:, 4, 9,14) = (/ &
+ & 0.28399E-02_JPRB,0.24853E-02_JPRB,0.21306E-02_JPRB,0.18209E-02_JPRB,0.15526E-02_JPRB, &
+ & 0.13434E-02_JPRB,0.11682E-02_JPRB,0.11617E-02_JPRB,0.13773E-02_JPRB /)  
+KA(:, 5, 9,14) = (/ &
+ & 0.28070E-02_JPRB,0.24565E-02_JPRB,0.21073E-02_JPRB,0.18175E-02_JPRB,0.15973E-02_JPRB, &
+ & 0.14179E-02_JPRB,0.12830E-02_JPRB,0.13638E-02_JPRB,0.16173E-02_JPRB /)  
+KA(:, 1,10,14) = (/ &
+ & 0.32399E-02_JPRB,0.28350E-02_JPRB,0.24302E-02_JPRB,0.20252E-02_JPRB,0.16589E-02_JPRB, &
+ & 0.13407E-02_JPRB,0.10274E-02_JPRB,0.73986E-03_JPRB,0.76203E-03_JPRB /)  
+KA(:, 2,10,14) = (/ &
+ & 0.31965E-02_JPRB,0.27971E-02_JPRB,0.23977E-02_JPRB,0.20029E-02_JPRB,0.16776E-02_JPRB, &
+ & 0.13600E-02_JPRB,0.10652E-02_JPRB,0.84551E-03_JPRB,0.93841E-03_JPRB /)  
+KA(:, 3,10,14) = (/ &
+ & 0.31601E-02_JPRB,0.27653E-02_JPRB,0.23707E-02_JPRB,0.19975E-02_JPRB,0.16883E-02_JPRB, &
+ & 0.13843E-02_JPRB,0.11385E-02_JPRB,0.98230E-03_JPRB,0.11352E-02_JPRB /)  
+KA(:, 4,10,14) = (/ &
+ & 0.31230E-02_JPRB,0.27329E-02_JPRB,0.23428E-02_JPRB,0.19986E-02_JPRB,0.16986E-02_JPRB, &
+ & 0.14381E-02_JPRB,0.12318E-02_JPRB,0.11431E-02_JPRB,0.13466E-02_JPRB /)  
+KA(:, 5,10,14) = (/ &
+ & 0.30838E-02_JPRB,0.26986E-02_JPRB,0.23157E-02_JPRB,0.19957E-02_JPRB,0.17285E-02_JPRB, &
+ & 0.15111E-02_JPRB,0.13270E-02_JPRB,0.13396E-02_JPRB,0.15853E-02_JPRB /)  
+KA(:, 1,11,14) = (/ &
+ & 0.35110E-02_JPRB,0.30722E-02_JPRB,0.26335E-02_JPRB,0.21948E-02_JPRB,0.18129E-02_JPRB, &
+ & 0.14641E-02_JPRB,0.11256E-02_JPRB,0.79561E-03_JPRB,0.78300E-03_JPRB /)  
+KA(:, 2,11,14) = (/ &
+ & 0.34682E-02_JPRB,0.30349E-02_JPRB,0.26015E-02_JPRB,0.21788E-02_JPRB,0.18300E-02_JPRB, &
+ & 0.14846E-02_JPRB,0.11655E-02_JPRB,0.90541E-03_JPRB,0.97352E-03_JPRB /)  
+KA(:, 3,11,14) = (/ &
+ & 0.34263E-02_JPRB,0.29982E-02_JPRB,0.25700E-02_JPRB,0.21750E-02_JPRB,0.18411E-02_JPRB, &
+ & 0.15104E-02_JPRB,0.12444E-02_JPRB,0.10462E-02_JPRB,0.11863E-02_JPRB /)  
+KA(:, 4,11,14) = (/ &
+ & 0.33817E-02_JPRB,0.29592E-02_JPRB,0.25369E-02_JPRB,0.21760E-02_JPRB,0.18525E-02_JPRB, &
+ & 0.15666E-02_JPRB,0.13382E-02_JPRB,0.12088E-02_JPRB,0.14124E-02_JPRB /)  
+KA(:, 5,11,14) = (/ &
+ & 0.33351E-02_JPRB,0.29184E-02_JPRB,0.25088E-02_JPRB,0.21673E-02_JPRB,0.18858E-02_JPRB, &
+ & 0.16404E-02_JPRB,0.14339E-02_JPRB,0.14160E-02_JPRB,0.16713E-02_JPRB /)  
+KA(:, 1,12,14) = (/ &
+ & 0.37813E-02_JPRB,0.33087E-02_JPRB,0.28362E-02_JPRB,0.23654E-02_JPRB,0.19642E-02_JPRB, &
+ & 0.15868E-02_JPRB,0.12220E-02_JPRB,0.85134E-03_JPRB,0.79810E-03_JPRB /)  
+KA(:, 2,12,14) = (/ &
+ & 0.37337E-02_JPRB,0.32671E-02_JPRB,0.28006E-02_JPRB,0.23535E-02_JPRB,0.19812E-02_JPRB, &
+ & 0.16073E-02_JPRB,0.12646E-02_JPRB,0.96230E-03_JPRB,0.10021E-02_JPRB /)  
+KA(:, 3,12,14) = (/ &
+ & 0.36838E-02_JPRB,0.32235E-02_JPRB,0.27633E-02_JPRB,0.23494E-02_JPRB,0.19898E-02_JPRB, &
+ & 0.16363E-02_JPRB,0.13472E-02_JPRB,0.11056E-02_JPRB,0.12297E-02_JPRB /)  
+KA(:, 4,12,14) = (/ &
+ & 0.36315E-02_JPRB,0.31778E-02_JPRB,0.27268E-02_JPRB,0.23457E-02_JPRB,0.20010E-02_JPRB, &
+ & 0.16953E-02_JPRB,0.14396E-02_JPRB,0.12736E-02_JPRB,0.14737E-02_JPRB /)  
+KA(:, 5,12,14) = (/ &
+ & 0.35780E-02_JPRB,0.31310E-02_JPRB,0.26962E-02_JPRB,0.23324E-02_JPRB,0.20383E-02_JPRB, &
+ & 0.17680E-02_JPRB,0.15379E-02_JPRB,0.14913E-02_JPRB,0.17515E-02_JPRB /)  
+KA(:, 1,13,14) = (/ &
+ & 0.40401E-02_JPRB,0.35352E-02_JPRB,0.30303E-02_JPRB,0.25331E-02_JPRB,0.21125E-02_JPRB, &
+ & 0.17061E-02_JPRB,0.13144E-02_JPRB,0.90469E-03_JPRB,0.81129E-03_JPRB /)  
+KA(:, 2,13,14) = (/ &
+ & 0.39897E-02_JPRB,0.34912E-02_JPRB,0.29926E-02_JPRB,0.25245E-02_JPRB,0.21272E-02_JPRB, &
+ & 0.17273E-02_JPRB,0.13608E-02_JPRB,0.10148E-02_JPRB,0.10248E-02_JPRB /)  
+KA(:, 3,13,14) = (/ &
+ & 0.39313E-02_JPRB,0.34401E-02_JPRB,0.29487E-02_JPRB,0.25178E-02_JPRB,0.21303E-02_JPRB, &
+ & 0.17587E-02_JPRB,0.14454E-02_JPRB,0.11592E-02_JPRB,0.12656E-02_JPRB /)  
+KA(:, 4,13,14) = (/ &
+ & 0.38694E-02_JPRB,0.33859E-02_JPRB,0.29093E-02_JPRB,0.25068E-02_JPRB,0.21412E-02_JPRB, &
+ & 0.18203E-02_JPRB,0.15361E-02_JPRB,0.13357E-02_JPRB,0.15298E-02_JPRB /)  
+KA(:, 5,13,14) = (/ &
+ & 0.38109E-02_JPRB,0.33347E-02_JPRB,0.28761E-02_JPRB,0.24907E-02_JPRB,0.21821E-02_JPRB, &
+ & 0.18916E-02_JPRB,0.16371E-02_JPRB,0.15629E-02_JPRB,0.18275E-02_JPRB /)  
+KA(:, 1, 1,15) = (/ &
+ & 0.15071E-02_JPRB,0.13191E-02_JPRB,0.11311E-02_JPRB,0.94313E-03_JPRB,0.82178E-03_JPRB, &
+ & 0.90230E-03_JPRB,0.10652E-02_JPRB,0.11879E-02_JPRB,0.14045E-02_JPRB /)  
+KA(:, 2, 1,15) = (/ &
+ & 0.15053E-02_JPRB,0.13176E-02_JPRB,0.11298E-02_JPRB,0.94210E-03_JPRB,0.87562E-03_JPRB, &
+ & 0.10432E-02_JPRB,0.12302E-02_JPRB,0.13664E-02_JPRB,0.16201E-02_JPRB /)  
+KA(:, 3, 1,15) = (/ &
+ & 0.15019E-02_JPRB,0.13147E-02_JPRB,0.11275E-02_JPRB,0.94187E-03_JPRB,0.97652E-03_JPRB, &
+ & 0.12093E-02_JPRB,0.14252E-02_JPRB,0.15816E-02_JPRB,0.18766E-02_JPRB /)  
+KA(:, 4, 1,15) = (/ &
+ & 0.14976E-02_JPRB,0.13109E-02_JPRB,0.11243E-02_JPRB,0.96063E-03_JPRB,0.11391E-02_JPRB, &
+ & 0.14106E-02_JPRB,0.16622E-02_JPRB,0.18446E-02_JPRB,0.21889E-02_JPRB /)  
+KA(:, 5, 1,15) = (/ &
+ & 0.14918E-02_JPRB,0.13060E-02_JPRB,0.11201E-02_JPRB,0.10256E-02_JPRB,0.13135E-02_JPRB, &
+ & 0.16256E-02_JPRB,0.19138E-02_JPRB,0.21174E-02_JPRB,0.25177E-02_JPRB /)  
+KA(:, 1, 2,15) = (/ &
+ & 0.17368E-02_JPRB,0.15199E-02_JPRB,0.13031E-02_JPRB,0.10865E-02_JPRB,0.93589E-03_JPRB, &
+ & 0.95913E-03_JPRB,0.11327E-02_JPRB,0.12643E-02_JPRB,0.15179E-02_JPRB /)  
+KA(:, 2, 2,15) = (/ &
+ & 0.17347E-02_JPRB,0.15183E-02_JPRB,0.13018E-02_JPRB,0.10853E-02_JPRB,0.98162E-03_JPRB, &
+ & 0.11204E-02_JPRB,0.13214E-02_JPRB,0.14695E-02_JPRB,0.17719E-02_JPRB /)  
+KA(:, 3, 2,15) = (/ &
+ & 0.17301E-02_JPRB,0.15143E-02_JPRB,0.12982E-02_JPRB,0.10867E-02_JPRB,0.10624E-02_JPRB, &
+ & 0.13058E-02_JPRB,0.15388E-02_JPRB,0.17088E-02_JPRB,0.20640E-02_JPRB /)  
+KA(:, 4, 2,15) = (/ &
+ & 0.17235E-02_JPRB,0.15085E-02_JPRB,0.12935E-02_JPRB,0.11059E-02_JPRB,0.12337E-02_JPRB, &
+ & 0.15285E-02_JPRB,0.18009E-02_JPRB,0.19982E-02_JPRB,0.24152E-02_JPRB /)  
+KA(:, 5, 2,15) = (/ &
+ & 0.17181E-02_JPRB,0.15038E-02_JPRB,0.12895E-02_JPRB,0.11598E-02_JPRB,0.14379E-02_JPRB, &
+ & 0.17807E-02_JPRB,0.20976E-02_JPRB,0.23230E-02_JPRB,0.28132E-02_JPRB /)  
+KA(:, 1, 3,15) = (/ &
+ & 0.19949E-02_JPRB,0.17458E-02_JPRB,0.14967E-02_JPRB,0.12475E-02_JPRB,0.10641E-02_JPRB, &
+ & 0.10100E-02_JPRB,0.11774E-02_JPRB,0.13116E-02_JPRB,0.16051E-02_JPRB /)  
+KA(:, 2, 3,15) = (/ &
+ & 0.19910E-02_JPRB,0.17424E-02_JPRB,0.14939E-02_JPRB,0.12453E-02_JPRB,0.11049E-02_JPRB, &
+ & 0.11564E-02_JPRB,0.13657E-02_JPRB,0.15222E-02_JPRB,0.18601E-02_JPRB /)  
+KA(:, 3, 3,15) = (/ &
+ & 0.19848E-02_JPRB,0.17370E-02_JPRB,0.14892E-02_JPRB,0.12476E-02_JPRB,0.11571E-02_JPRB, &
+ & 0.13573E-02_JPRB,0.16014E-02_JPRB,0.17817E-02_JPRB,0.21839E-02_JPRB /)  
+KA(:, 4, 3,15) = (/ &
+ & 0.19813E-02_JPRB,0.17340E-02_JPRB,0.14867E-02_JPRB,0.12671E-02_JPRB,0.12941E-02_JPRB, &
+ & 0.15954E-02_JPRB,0.18821E-02_JPRB,0.20919E-02_JPRB,0.25670E-02_JPRB /)  
+KA(:, 5, 3,15) = (/ &
+ & 0.19771E-02_JPRB,0.17304E-02_JPRB,0.14836E-02_JPRB,0.13013E-02_JPRB,0.15091E-02_JPRB, &
+ & 0.18697E-02_JPRB,0.22058E-02_JPRB,0.24525E-02_JPRB,0.30084E-02_JPRB /)  
+KA(:, 1, 4,15) = (/ &
+ & 0.23002E-02_JPRB,0.20126E-02_JPRB,0.17253E-02_JPRB,0.14382E-02_JPRB,0.12005E-02_JPRB, &
+ & 0.10932E-02_JPRB,0.12228E-02_JPRB,0.13639E-02_JPRB,0.16798E-02_JPRB /)  
+KA(:, 2, 4,15) = (/ &
+ & 0.22929E-02_JPRB,0.20065E-02_JPRB,0.17201E-02_JPRB,0.14337E-02_JPRB,0.12491E-02_JPRB, &
+ & 0.11967E-02_JPRB,0.14046E-02_JPRB,0.15632E-02_JPRB,0.19322E-02_JPRB /)  
+KA(:, 3, 4,15) = (/ &
+ & 0.22828E-02_JPRB,0.19977E-02_JPRB,0.17127E-02_JPRB,0.14287E-02_JPRB,0.12914E-02_JPRB, &
+ & 0.13860E-02_JPRB,0.16360E-02_JPRB,0.18240E-02_JPRB,0.22487E-02_JPRB /)  
+KA(:, 4, 4,15) = (/ &
+ & 0.22757E-02_JPRB,0.19915E-02_JPRB,0.17074E-02_JPRB,0.14457E-02_JPRB,0.13800E-02_JPRB, &
+ & 0.16339E-02_JPRB,0.19297E-02_JPRB,0.21519E-02_JPRB,0.26493E-02_JPRB /)  
+KA(:, 5, 4,15) = (/ &
+ & 0.22684E-02_JPRB,0.19852E-02_JPRB,0.17019E-02_JPRB,0.14754E-02_JPRB,0.15614E-02_JPRB, &
+ & 0.19242E-02_JPRB,0.22727E-02_JPRB,0.25341E-02_JPRB,0.31196E-02_JPRB /)  
+KA(:, 1, 5,15) = (/ &
+ & 0.26562E-02_JPRB,0.23246E-02_JPRB,0.19929E-02_JPRB,0.16611E-02_JPRB,0.13598E-02_JPRB, &
+ & 0.11996E-02_JPRB,0.12698E-02_JPRB,0.14174E-02_JPRB,0.17501E-02_JPRB /)  
+KA(:, 2, 5,15) = (/ &
+ & 0.26415E-02_JPRB,0.23116E-02_JPRB,0.19818E-02_JPRB,0.16521E-02_JPRB,0.14129E-02_JPRB, &
+ & 0.12866E-02_JPRB,0.14524E-02_JPRB,0.16197E-02_JPRB,0.20022E-02_JPRB /)  
+KA(:, 3, 5,15) = (/ &
+ & 0.26277E-02_JPRB,0.22994E-02_JPRB,0.19710E-02_JPRB,0.16428E-02_JPRB,0.14513E-02_JPRB, &
+ & 0.14339E-02_JPRB,0.16856E-02_JPRB,0.18777E-02_JPRB,0.23236E-02_JPRB /)  
+KA(:, 4, 5,15) = (/ &
+ & 0.26179E-02_JPRB,0.22909E-02_JPRB,0.19639E-02_JPRB,0.16526E-02_JPRB,0.15154E-02_JPRB, &
+ & 0.16607E-02_JPRB,0.19618E-02_JPRB,0.21909E-02_JPRB,0.27021E-02_JPRB /)  
+KA(:, 5, 5,15) = (/ &
+ & 0.26074E-02_JPRB,0.22818E-02_JPRB,0.19561E-02_JPRB,0.16780E-02_JPRB,0.16497E-02_JPRB, &
+ & 0.19592E-02_JPRB,0.23163E-02_JPRB,0.25915E-02_JPRB,0.31846E-02_JPRB /)  
+KA(:, 1, 6,15) = (/ &
+ & 0.30676E-02_JPRB,0.26845E-02_JPRB,0.23014E-02_JPRB,0.19182E-02_JPRB,0.15508E-02_JPRB, &
+ & 0.13265E-02_JPRB,0.13165E-02_JPRB,0.14712E-02_JPRB,0.18123E-02_JPRB /)  
+KA(:, 2, 6,15) = (/ &
+ & 0.30472E-02_JPRB,0.26667E-02_JPRB,0.22862E-02_JPRB,0.19057E-02_JPRB,0.15947E-02_JPRB, &
+ & 0.14067E-02_JPRB,0.15004E-02_JPRB,0.16750E-02_JPRB,0.20695E-02_JPRB /)  
+KA(:, 3, 6,15) = (/ &
+ & 0.30255E-02_JPRB,0.26477E-02_JPRB,0.22705E-02_JPRB,0.18926E-02_JPRB,0.16408E-02_JPRB, &
+ & 0.15149E-02_JPRB,0.17276E-02_JPRB,0.19275E-02_JPRB,0.23847E-02_JPRB /)  
+KA(:, 4, 6,15) = (/ &
+ & 0.30083E-02_JPRB,0.26326E-02_JPRB,0.22569E-02_JPRB,0.18906E-02_JPRB,0.16765E-02_JPRB, &
+ & 0.17066E-02_JPRB,0.20035E-02_JPRB,0.22386E-02_JPRB,0.27616E-02_JPRB /)  
+KA(:, 5, 6,15) = (/ &
+ & 0.29915E-02_JPRB,0.26179E-02_JPRB,0.22443E-02_JPRB,0.19114E-02_JPRB,0.17836E-02_JPRB, &
+ & 0.19800E-02_JPRB,0.23411E-02_JPRB,0.26194E-02_JPRB,0.32234E-02_JPRB /)  
+KA(:, 1, 7,15) = (/ &
+ & 0.35311E-02_JPRB,0.30900E-02_JPRB,0.26490E-02_JPRB,0.22082E-02_JPRB,0.17722E-02_JPRB, &
+ & 0.14850E-02_JPRB,0.13781E-02_JPRB,0.15158E-02_JPRB,0.18578E-02_JPRB /)  
+KA(:, 2, 7,15) = (/ &
+ & 0.35031E-02_JPRB,0.30656E-02_JPRB,0.26281E-02_JPRB,0.21907E-02_JPRB,0.18048E-02_JPRB, &
+ & 0.15528E-02_JPRB,0.15481E-02_JPRB,0.17322E-02_JPRB,0.21307E-02_JPRB /)  
+KA(:, 3, 7,15) = (/ &
+ & 0.34762E-02_JPRB,0.30421E-02_JPRB,0.26077E-02_JPRB,0.21737E-02_JPRB,0.18550E-02_JPRB, &
+ & 0.16362E-02_JPRB,0.17771E-02_JPRB,0.19863E-02_JPRB,0.24506E-02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART10',1,ZHOOK_HANDLE)
+END SUBROUTINE PART10
+
+
+SUBROUTINE PART11
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART11',0,ZHOOK_HANDLE)
+
+
+KA(:, 4, 7,15) = (/ &
+ & 0.34506E-02_JPRB,0.30197E-02_JPRB,0.25888E-02_JPRB,0.21628E-02_JPRB,0.18864E-02_JPRB, &
+ & 0.17891E-02_JPRB,0.20527E-02_JPRB,0.22948E-02_JPRB,0.28308E-02_JPRB /)  
+KA(:, 5, 7,15) = (/ &
+ & 0.34242E-02_JPRB,0.29966E-02_JPRB,0.25690E-02_JPRB,0.21752E-02_JPRB,0.19463E-02_JPRB, &
+ & 0.20224E-02_JPRB,0.23798E-02_JPRB,0.26659E-02_JPRB,0.32785E-02_JPRB /)  
+KA(:, 1, 8,15) = (/ &
+ & 0.40545E-02_JPRB,0.35480E-02_JPRB,0.30415E-02_JPRB,0.25348E-02_JPRB,0.20284E-02_JPRB, &
+ & 0.16698E-02_JPRB,0.14585E-02_JPRB,0.15473E-02_JPRB,0.18938E-02_JPRB /)  
+KA(:, 2, 8,15) = (/ &
+ & 0.40094E-02_JPRB,0.35086E-02_JPRB,0.30078E-02_JPRB,0.25070E-02_JPRB,0.20421E-02_JPRB, &
+ & 0.17325E-02_JPRB,0.16159E-02_JPRB,0.17783E-02_JPRB,0.21732E-02_JPRB /)  
+KA(:, 3, 8,15) = (/ &
+ & 0.39679E-02_JPRB,0.34723E-02_JPRB,0.29772E-02_JPRB,0.24816E-02_JPRB,0.20882E-02_JPRB, &
+ & 0.17972E-02_JPRB,0.18217E-02_JPRB,0.20430E-02_JPRB,0.25042E-02_JPRB /)  
+KA(:, 4, 8,15) = (/ &
+ & 0.39321E-02_JPRB,0.34411E-02_JPRB,0.29500E-02_JPRB,0.24630E-02_JPRB,0.21284E-02_JPRB, &
+ & 0.19080E-02_JPRB,0.21043E-02_JPRB,0.23586E-02_JPRB,0.28966E-02_JPRB /)  
+KA(:, 5, 8,15) = (/ &
+ & 0.38953E-02_JPRB,0.34088E-02_JPRB,0.29224E-02_JPRB,0.24683E-02_JPRB,0.21576E-02_JPRB, &
+ & 0.21070E-02_JPRB,0.24382E-02_JPRB,0.27335E-02_JPRB,0.33549E-02_JPRB /)  
+KA(:, 1, 9,15) = (/ &
+ & 0.46508E-02_JPRB,0.40697E-02_JPRB,0.34886E-02_JPRB,0.29075E-02_JPRB,0.23264E-02_JPRB, &
+ & 0.18591E-02_JPRB,0.15578E-02_JPRB,0.15738E-02_JPRB,0.19224E-02_JPRB /)  
+KA(:, 2, 9,15) = (/ &
+ & 0.45823E-02_JPRB,0.40098E-02_JPRB,0.34374E-02_JPRB,0.28649E-02_JPRB,0.23092E-02_JPRB, &
+ & 0.19366E-02_JPRB,0.17051E-02_JPRB,0.18133E-02_JPRB,0.22104E-02_JPRB /)  
+KA(:, 3, 9,15) = (/ &
+ & 0.45166E-02_JPRB,0.39524E-02_JPRB,0.33880E-02_JPRB,0.28238E-02_JPRB,0.23394E-02_JPRB, &
+ & 0.19917E-02_JPRB,0.18843E-02_JPRB,0.20815E-02_JPRB,0.25365E-02_JPRB /)  
+KA(:, 4, 9,15) = (/ &
+ & 0.44602E-02_JPRB,0.39031E-02_JPRB,0.33460E-02_JPRB,0.27890E-02_JPRB,0.23856E-02_JPRB, &
+ & 0.20682E-02_JPRB,0.21419E-02_JPRB,0.24093E-02_JPRB,0.29396E-02_JPRB /)  
+KA(:, 5, 9,15) = (/ &
+ & 0.44050E-02_JPRB,0.38549E-02_JPRB,0.33047E-02_JPRB,0.27817E-02_JPRB,0.24123E-02_JPRB, &
+ & 0.22258E-02_JPRB,0.24850E-02_JPRB,0.27956E-02_JPRB,0.34119E-02_JPRB /)  
+KA(:, 1,10,15) = (/ &
+ & 0.53098E-02_JPRB,0.46463E-02_JPRB,0.39828E-02_JPRB,0.33194E-02_JPRB,0.26559E-02_JPRB, &
+ & 0.20766E-02_JPRB,0.16840E-02_JPRB,0.16129E-02_JPRB,0.19635E-02_JPRB /)  
+KA(:, 2,10,15) = (/ &
+ & 0.52134E-02_JPRB,0.45620E-02_JPRB,0.39106E-02_JPRB,0.32592E-02_JPRB,0.26145E-02_JPRB, &
+ & 0.21601E-02_JPRB,0.18269E-02_JPRB,0.18690E-02_JPRB,0.22681E-02_JPRB /)  
+KA(:, 3,10,15) = (/ &
+ & 0.51182E-02_JPRB,0.44788E-02_JPRB,0.38392E-02_JPRB,0.31998E-02_JPRB,0.26226E-02_JPRB, &
+ & 0.22138E-02_JPRB,0.19824E-02_JPRB,0.21416E-02_JPRB,0.25956E-02_JPRB /)  
+KA(:, 4,10,15) = (/ &
+ & 0.50344E-02_JPRB,0.44054E-02_JPRB,0.37765E-02_JPRB,0.31477E-02_JPRB,0.26616E-02_JPRB, &
+ & 0.22709E-02_JPRB,0.22099E-02_JPRB,0.24682E-02_JPRB,0.29962E-02_JPRB /)  
+KA(:, 5,10,15) = (/ &
+ & 0.49550E-02_JPRB,0.43361E-02_JPRB,0.37172E-02_JPRB,0.31183E-02_JPRB,0.26883E-02_JPRB, &
+ & 0.23873E-02_JPRB,0.25425E-02_JPRB,0.28708E-02_JPRB,0.34790E-02_JPRB /)  
+KA(:, 1,11,15) = (/ &
+ & 0.59619E-02_JPRB,0.52169E-02_JPRB,0.44719E-02_JPRB,0.37267E-02_JPRB,0.29817E-02_JPRB, &
+ & 0.23525E-02_JPRB,0.18854E-02_JPRB,0.17723E-02_JPRB,0.21445E-02_JPRB /)  
+KA(:, 2,11,15) = (/ &
+ & 0.58318E-02_JPRB,0.51031E-02_JPRB,0.43744E-02_JPRB,0.36457E-02_JPRB,0.29351E-02_JPRB, &
+ & 0.24253E-02_JPRB,0.20278E-02_JPRB,0.20449E-02_JPRB,0.24715E-02_JPRB /)  
+KA(:, 3,11,15) = (/ &
+ & 0.57112E-02_JPRB,0.49976E-02_JPRB,0.42840E-02_JPRB,0.35704E-02_JPRB,0.29381E-02_JPRB, &
+ & 0.24724E-02_JPRB,0.21871E-02_JPRB,0.23372E-02_JPRB,0.28231E-02_JPRB /)  
+KA(:, 4,11,15) = (/ &
+ & 0.56008E-02_JPRB,0.49010E-02_JPRB,0.42013E-02_JPRB,0.35025E-02_JPRB,0.29677E-02_JPRB, &
+ & 0.25269E-02_JPRB,0.24222E-02_JPRB,0.27009E-02_JPRB,0.32614E-02_JPRB /)  
+KA(:, 5,11,15) = (/ &
+ & 0.54961E-02_JPRB,0.48096E-02_JPRB,0.41230E-02_JPRB,0.34666E-02_JPRB,0.29811E-02_JPRB, &
+ & 0.26438E-02_JPRB,0.27691E-02_JPRB,0.31324E-02_JPRB,0.37747E-02_JPRB /)  
+KA(:, 1,12,15) = (/ &
+ & 0.66218E-02_JPRB,0.57942E-02_JPRB,0.49667E-02_JPRB,0.41391E-02_JPRB,0.33116E-02_JPRB, &
+ & 0.26382E-02_JPRB,0.20922E-02_JPRB,0.19344E-02_JPRB,0.23267E-02_JPRB /)  
+KA(:, 2,12,15) = (/ &
+ & 0.64584E-02_JPRB,0.56513E-02_JPRB,0.48443E-02_JPRB,0.40372E-02_JPRB,0.32618E-02_JPRB, &
+ & 0.26974E-02_JPRB,0.22343E-02_JPRB,0.22270E-02_JPRB,0.26783E-02_JPRB /)  
+KA(:, 3,12,15) = (/ &
+ & 0.63097E-02_JPRB,0.55213E-02_JPRB,0.47331E-02_JPRB,0.39445E-02_JPRB,0.32599E-02_JPRB, &
+ & 0.27357E-02_JPRB,0.23983E-02_JPRB,0.25418E-02_JPRB,0.30577E-02_JPRB /)  
+KA(:, 4,12,15) = (/ &
+ & 0.61694E-02_JPRB,0.53986E-02_JPRB,0.46278E-02_JPRB,0.38631E-02_JPRB,0.32772E-02_JPRB, &
+ & 0.27857E-02_JPRB,0.26412E-02_JPRB,0.29352E-02_JPRB,0.35233E-02_JPRB /)  
+KA(:, 5,12,15) = (/ &
+ & 0.60360E-02_JPRB,0.52820E-02_JPRB,0.45279E-02_JPRB,0.38177E-02_JPRB,0.32735E-02_JPRB, &
+ & 0.29011E-02_JPRB,0.29998E-02_JPRB,0.33948E-02_JPRB,0.40685E-02_JPRB /)  
+KA(:, 1,13,15) = (/ &
+ & 0.72856E-02_JPRB,0.63751E-02_JPRB,0.54646E-02_JPRB,0.45539E-02_JPRB,0.36434E-02_JPRB, &
+ & 0.29246E-02_JPRB,0.23024E-02_JPRB,0.20968E-02_JPRB,0.25004E-02_JPRB /)  
+KA(:, 2,13,15) = (/ &
+ & 0.70792E-02_JPRB,0.61945E-02_JPRB,0.53099E-02_JPRB,0.44252E-02_JPRB,0.35875E-02_JPRB, &
+ & 0.29681E-02_JPRB,0.24397E-02_JPRB,0.24073E-02_JPRB,0.28787E-02_JPRB /)  
+KA(:, 3,13,15) = (/ &
+ & 0.68966E-02_JPRB,0.60348E-02_JPRB,0.51733E-02_JPRB,0.43112E-02_JPRB,0.35811E-02_JPRB, &
+ & 0.29976E-02_JPRB,0.26071E-02_JPRB,0.27479E-02_JPRB,0.32886E-02_JPRB /)  
+KA(:, 4,13,15) = (/ &
+ & 0.67258E-02_JPRB,0.58855E-02_JPRB,0.50451E-02_JPRB,0.42204E-02_JPRB,0.35830E-02_JPRB, &
+ & 0.30400E-02_JPRB,0.28573E-02_JPRB,0.31625E-02_JPRB,0.37791E-02_JPRB /)  
+KA(:, 5,13,15) = (/ &
+ & 0.65607E-02_JPRB,0.57411E-02_JPRB,0.49214E-02_JPRB,0.41617E-02_JPRB,0.35593E-02_JPRB, &
+ & 0.31530E-02_JPRB,0.32258E-02_JPRB,0.36487E-02_JPRB,0.43508E-02_JPRB /)  
+KA(:, 1, 1,16) = (/ &
+ & 0.16712E-02_JPRB,0.14631E-02_JPRB,0.12550E-02_JPRB,0.10468E-02_JPRB,0.92082E-03_JPRB, &
+ & 0.11371E-02_JPRB,0.13321E-02_JPRB,0.14544E-02_JPRB,0.17472E-02_JPRB /)  
+KA(:, 2, 1,16) = (/ &
+ & 0.16787E-02_JPRB,0.14701E-02_JPRB,0.12615E-02_JPRB,0.10530E-02_JPRB,0.10440E-02_JPRB, &
+ & 0.12893E-02_JPRB,0.15114E-02_JPRB,0.16524E-02_JPRB,0.19826E-02_JPRB /)  
+KA(:, 3, 1,16) = (/ &
+ & 0.16875E-02_JPRB,0.14779E-02_JPRB,0.12683E-02_JPRB,0.10588E-02_JPRB,0.11676E-02_JPRB, &
+ & 0.14424E-02_JPRB,0.16914E-02_JPRB,0.18523E-02_JPRB,0.22202E-02_JPRB /)  
+KA(:, 4, 1,16) = (/ &
+ & 0.16926E-02_JPRB,0.14826E-02_JPRB,0.12725E-02_JPRB,0.10626E-02_JPRB,0.12909E-02_JPRB, &
+ & 0.15950E-02_JPRB,0.18720E-02_JPRB,0.20532E-02_JPRB,0.24579E-02_JPRB /)  
+KA(:, 5, 1,16) = (/ &
+ & 0.16942E-02_JPRB,0.14841E-02_JPRB,0.12739E-02_JPRB,0.11419E-02_JPRB,0.15149E-02_JPRB, &
+ & 0.18796E-02_JPRB,0.22246E-02_JPRB,0.24968E-02_JPRB,0.29379E-02_JPRB /)  
+KA(:, 1, 2,16) = (/ &
+ & 0.19607E-02_JPRB,0.17158E-02_JPRB,0.14714E-02_JPRB,0.12274E-02_JPRB,0.10440E-02_JPRB, &
+ & 0.12890E-02_JPRB,0.15097E-02_JPRB,0.16471E-02_JPRB,0.20285E-02_JPRB /)  
+KA(:, 2, 2,16) = (/ &
+ & 0.19666E-02_JPRB,0.17216E-02_JPRB,0.14767E-02_JPRB,0.12314E-02_JPRB,0.11872E-02_JPRB, &
+ & 0.14659E-02_JPRB,0.17177E-02_JPRB,0.18761E-02_JPRB,0.23077E-02_JPRB /)  
+KA(:, 3, 2,16) = (/ &
+ & 0.19740E-02_JPRB,0.17284E-02_JPRB,0.14830E-02_JPRB,0.12374E-02_JPRB,0.13301E-02_JPRB, &
+ & 0.16429E-02_JPRB,0.19255E-02_JPRB,0.21058E-02_JPRB,0.25866E-02_JPRB /)  
+KA(:, 4, 2,16) = (/ &
+ & 0.19796E-02_JPRB,0.17334E-02_JPRB,0.14872E-02_JPRB,0.12416E-02_JPRB,0.14717E-02_JPRB, &
+ & 0.18182E-02_JPRB,0.21321E-02_JPRB,0.23342E-02_JPRB,0.28637E-02_JPRB /)  
+KA(:, 5, 2,16) = (/ &
+ & 0.19818E-02_JPRB,0.17354E-02_JPRB,0.14891E-02_JPRB,0.12544E-02_JPRB,0.16318E-02_JPRB, &
+ & 0.20217E-02_JPRB,0.23832E-02_JPRB,0.26470E-02_JPRB,0.31951E-02_JPRB /)  
+KA(:, 1, 3,16) = (/ &
+ & 0.23039E-02_JPRB,0.20168E-02_JPRB,0.17292E-02_JPRB,0.14410E-02_JPRB,0.11614E-02_JPRB, &
+ & 0.14213E-02_JPRB,0.16646E-02_JPRB,0.18149E-02_JPRB,0.22923E-02_JPRB /)  
+KA(:, 2, 3,16) = (/ &
+ & 0.23064E-02_JPRB,0.20187E-02_JPRB,0.17311E-02_JPRB,0.14440E-02_JPRB,0.13190E-02_JPRB, &
+ & 0.16288E-02_JPRB,0.19083E-02_JPRB,0.20825E-02_JPRB,0.26267E-02_JPRB /)  
+KA(:, 3, 3,16) = (/ &
+ & 0.23119E-02_JPRB,0.20237E-02_JPRB,0.17351E-02_JPRB,0.14470E-02_JPRB,0.14864E-02_JPRB, &
+ & 0.18354E-02_JPRB,0.21515E-02_JPRB,0.23501E-02_JPRB,0.29596E-02_JPRB /)  
+KA(:, 4, 3,16) = (/ &
+ & 0.23154E-02_JPRB,0.20269E-02_JPRB,0.17385E-02_JPRB,0.14496E-02_JPRB,0.16513E-02_JPRB, &
+ & 0.20395E-02_JPRB,0.23915E-02_JPRB,0.26154E-02_JPRB,0.32883E-02_JPRB /)  
+KA(:, 5, 3,16) = (/ &
+ & 0.23212E-02_JPRB,0.20321E-02_JPRB,0.17430E-02_JPRB,0.14536E-02_JPRB,0.18129E-02_JPRB, &
+ & 0.22398E-02_JPRB,0.26272E-02_JPRB,0.28760E-02_JPRB,0.36101E-02_JPRB /)  
+KA(:, 1, 4,16) = (/ &
+ & 0.27129E-02_JPRB,0.23736E-02_JPRB,0.20348E-02_JPRB,0.16965E-02_JPRB,0.13577E-02_JPRB, &
+ & 0.15487E-02_JPRB,0.18138E-02_JPRB,0.19776E-02_JPRB,0.25289E-02_JPRB /)  
+KA(:, 2, 4,16) = (/ &
+ & 0.27133E-02_JPRB,0.23745E-02_JPRB,0.20358E-02_JPRB,0.16966E-02_JPRB,0.14516E-02_JPRB, &
+ & 0.17925E-02_JPRB,0.21002E-02_JPRB,0.22917E-02_JPRB,0.29262E-02_JPRB /)  
+KA(:, 3, 4,16) = (/ &
+ & 0.27155E-02_JPRB,0.23766E-02_JPRB,0.20379E-02_JPRB,0.16990E-02_JPRB,0.16483E-02_JPRB, &
+ & 0.20360E-02_JPRB,0.23858E-02_JPRB,0.26061E-02_JPRB,0.33224E-02_JPRB /)  
+KA(:, 4, 4,16) = (/ &
+ & 0.27175E-02_JPRB,0.23784E-02_JPRB,0.20394E-02_JPRB,0.17007E-02_JPRB,0.18426E-02_JPRB, &
+ & 0.22757E-02_JPRB,0.26681E-02_JPRB,0.29171E-02_JPRB,0.37132E-02_JPRB /)  
+KA(:, 5, 4,16) = (/ &
+ & 0.27186E-02_JPRB,0.23796E-02_JPRB,0.20406E-02_JPRB,0.17019E-02_JPRB,0.20320E-02_JPRB, &
+ & 0.25101E-02_JPRB,0.29443E-02_JPRB,0.32220E-02_JPRB,0.40947E-02_JPRB /)  
+KA(:, 1, 5,16) = (/ &
+ & 0.32119E-02_JPRB,0.28114E-02_JPRB,0.24099E-02_JPRB,0.20078E-02_JPRB,0.16065E-02_JPRB, &
+ & 0.16767E-02_JPRB,0.19643E-02_JPRB,0.21431E-02_JPRB,0.27523E-02_JPRB /)  
+KA(:, 2, 5,16) = (/ &
+ & 0.32085E-02_JPRB,0.28077E-02_JPRB,0.24069E-02_JPRB,0.20064E-02_JPRB,0.16195E-02_JPRB, &
+ & 0.19633E-02_JPRB,0.23007E-02_JPRB,0.25120E-02_JPRB,0.32215E-02_JPRB /)  
+KA(:, 3, 5,16) = (/ &
+ & 0.32085E-02_JPRB,0.28078E-02_JPRB,0.24068E-02_JPRB,0.20061E-02_JPRB,0.18214E-02_JPRB, &
+ & 0.22501E-02_JPRB,0.26375E-02_JPRB,0.28827E-02_JPRB,0.36897E-02_JPRB /)  
+KA(:, 4, 5,16) = (/ &
+ & 0.32059E-02_JPRB,0.28056E-02_JPRB,0.24053E-02_JPRB,0.20050E-02_JPRB,0.20501E-02_JPRB, &
+ & 0.25321E-02_JPRB,0.29699E-02_JPRB,0.32491E-02_JPRB,0.41521E-02_JPRB /)  
+KA(:, 5, 5,16) = (/ &
+ & 0.31984E-02_JPRB,0.27990E-02_JPRB,0.23997E-02_JPRB,0.20000E-02_JPRB,0.22727E-02_JPRB, &
+ & 0.28084E-02_JPRB,0.32949E-02_JPRB,0.36079E-02_JPRB,0.46028E-02_JPRB /)  
+KA(:, 1, 6,16) = (/ &
+ & 0.38076E-02_JPRB,0.33317E-02_JPRB,0.28559E-02_JPRB,0.23799E-02_JPRB,0.19041E-02_JPRB, &
+ & 0.17889E-02_JPRB,0.20969E-02_JPRB,0.22903E-02_JPRB,0.29420E-02_JPRB /)  
+KA(:, 2, 6,16) = (/ &
+ & 0.37964E-02_JPRB,0.33220E-02_JPRB,0.28476E-02_JPRB,0.23732E-02_JPRB,0.18989E-02_JPRB, &
+ & 0.21234E-02_JPRB,0.24900E-02_JPRB,0.27226E-02_JPRB,0.34908E-02_JPRB /)  
+KA(:, 3, 6,16) = (/ &
+ & 0.37877E-02_JPRB,0.33145E-02_JPRB,0.28416E-02_JPRB,0.23683E-02_JPRB,0.19985E-02_JPRB, &
+ & 0.24600E-02_JPRB,0.28851E-02_JPRB,0.31576E-02_JPRB,0.40421E-02_JPRB /)  
+KA(:, 4, 6,16) = (/ &
+ & 0.37785E-02_JPRB,0.33065E-02_JPRB,0.28344E-02_JPRB,0.23627E-02_JPRB,0.22594E-02_JPRB, &
+ & 0.27919E-02_JPRB,0.32761E-02_JPRB,0.35889E-02_JPRB,0.45855E-02_JPRB /)  
+KA(:, 5, 6,16) = (/ &
+ & 0.37630E-02_JPRB,0.32929E-02_JPRB,0.28229E-02_JPRB,0.23532E-02_JPRB,0.25213E-02_JPRB, &
+ & 0.31161E-02_JPRB,0.36579E-02_JPRB,0.40115E-02_JPRB,0.51155E-02_JPRB /)  
+KA(:, 1, 7,16) = (/ &
+ & 0.45014E-02_JPRB,0.39388E-02_JPRB,0.33762E-02_JPRB,0.28135E-02_JPRB,0.22509E-02_JPRB, &
+ & 0.18859E-02_JPRB,0.22117E-02_JPRB,0.24208E-02_JPRB,0.31038E-02_JPRB /)  
+KA(:, 2, 7,16) = (/ &
+ & 0.44788E-02_JPRB,0.39190E-02_JPRB,0.33593E-02_JPRB,0.27996E-02_JPRB,0.22399E-02_JPRB, &
+ & 0.22735E-02_JPRB,0.26677E-02_JPRB,0.29222E-02_JPRB,0.37394E-02_JPRB /)  
+KA(:, 3, 7,16) = (/ &
+ & 0.44593E-02_JPRB,0.39020E-02_JPRB,0.33439E-02_JPRB,0.27867E-02_JPRB,0.22518E-02_JPRB, &
+ & 0.26648E-02_JPRB,0.31283E-02_JPRB,0.34304E-02_JPRB,0.43806E-02_JPRB /)  
+KA(:, 4, 7,16) = (/ &
+ & 0.44374E-02_JPRB,0.38829E-02_JPRB,0.33284E-02_JPRB,0.27732E-02_JPRB,0.24705E-02_JPRB, &
+ & 0.30533E-02_JPRB,0.35850E-02_JPRB,0.39361E-02_JPRB,0.50160E-02_JPRB /)  
+KA(:, 5, 7,16) = (/ &
+ & 0.44113E-02_JPRB,0.38601E-02_JPRB,0.33089E-02_JPRB,0.27567E-02_JPRB,0.27756E-02_JPRB, &
+ & 0.34321E-02_JPRB,0.40324E-02_JPRB,0.44314E-02_JPRB,0.56359E-02_JPRB /)  
+KA(:, 1, 8,16) = (/ &
+ & 0.53031E-02_JPRB,0.46403E-02_JPRB,0.39774E-02_JPRB,0.33149E-02_JPRB,0.26520E-02_JPRB, &
+ & 0.20316E-02_JPRB,0.23080E-02_JPRB,0.25314E-02_JPRB,0.32334E-02_JPRB /)  
+KA(:, 2, 8,16) = (/ &
+ & 0.52648E-02_JPRB,0.46067E-02_JPRB,0.39487E-02_JPRB,0.32907E-02_JPRB,0.26325E-02_JPRB, &
+ & 0.24096E-02_JPRB,0.28298E-02_JPRB,0.31081E-02_JPRB,0.39611E-02_JPRB /)  
+KA(:, 3, 8,16) = (/ &
+ & 0.52246E-02_JPRB,0.45716E-02_JPRB,0.39189E-02_JPRB,0.32659E-02_JPRB,0.26125E-02_JPRB, &
+ & 0.28611E-02_JPRB,0.33614E-02_JPRB,0.36958E-02_JPRB,0.47006E-02_JPRB /)  
+KA(:, 4, 8,16) = (/ &
+ & 0.51821E-02_JPRB,0.45344E-02_JPRB,0.38868E-02_JPRB,0.32390E-02_JPRB,0.27289E-02_JPRB, &
+ & 0.33103E-02_JPRB,0.38912E-02_JPRB,0.42829E-02_JPRB,0.54355E-02_JPRB /)  
+KA(:, 5, 8,16) = (/ &
+ & 0.51356E-02_JPRB,0.44938E-02_JPRB,0.38520E-02_JPRB,0.32108E-02_JPRB,0.30299E-02_JPRB, &
+ & 0.37493E-02_JPRB,0.44090E-02_JPRB,0.48604E-02_JPRB,0.61537E-02_JPRB /)  
+KA(:, 1, 9,16) = (/ &
+ & 0.62116E-02_JPRB,0.54352E-02_JPRB,0.46587E-02_JPRB,0.38825E-02_JPRB,0.31060E-02_JPRB, &
+ & 0.23296E-02_JPRB,0.23830E-02_JPRB,0.26152E-02_JPRB,0.33400E-02_JPRB /)  
+KA(:, 2, 9,16) = (/ &
+ & 0.61510E-02_JPRB,0.53822E-02_JPRB,0.46134E-02_JPRB,0.38445E-02_JPRB,0.30756E-02_JPRB, &
+ & 0.25421E-02_JPRB,0.29622E-02_JPRB,0.32625E-02_JPRB,0.41372E-02_JPRB /)  
+KA(:, 3, 9,16) = (/ &
+ & 0.60862E-02_JPRB,0.53255E-02_JPRB,0.45651E-02_JPRB,0.38044E-02_JPRB,0.30427E-02_JPRB, &
+ & 0.30332E-02_JPRB,0.35680E-02_JPRB,0.39355E-02_JPRB,0.49777E-02_JPRB /)  
+KA(:, 4, 9,16) = (/ &
+ & 0.60169E-02_JPRB,0.52649E-02_JPRB,0.45129E-02_JPRB,0.37608E-02_JPRB,0.30629E-02_JPRB, &
+ & 0.35468E-02_JPRB,0.41747E-02_JPRB,0.46107E-02_JPRB,0.58172E-02_JPRB /)  
+KA(:, 5, 9,16) = (/ &
+ & 0.59428E-02_JPRB,0.52001E-02_JPRB,0.44573E-02_JPRB,0.37148E-02_JPRB,0.33039E-02_JPRB, &
+ & 0.40510E-02_JPRB,0.47683E-02_JPRB,0.52747E-02_JPRB,0.66403E-02_JPRB /)  
+KA(:, 1,10,16) = (/ &
+ & 0.72226E-02_JPRB,0.63198E-02_JPRB,0.54170E-02_JPRB,0.45138E-02_JPRB,0.36111E-02_JPRB, &
+ & 0.27087E-02_JPRB,0.25246E-02_JPRB,0.27733E-02_JPRB,0.35348E-02_JPRB /)  
+KA(:, 2,10,16) = (/ &
+ & 0.71308E-02_JPRB,0.62395E-02_JPRB,0.53482E-02_JPRB,0.44569E-02_JPRB,0.35656E-02_JPRB, &
+ & 0.27737E-02_JPRB,0.31148E-02_JPRB,0.34380E-02_JPRB,0.43453E-02_JPRB /)  
+KA(:, 3,10,16) = (/ &
+ & 0.70337E-02_JPRB,0.61546E-02_JPRB,0.52755E-02_JPRB,0.43963E-02_JPRB,0.35178E-02_JPRB, &
+ & 0.32195E-02_JPRB,0.37898E-02_JPRB,0.41956E-02_JPRB,0.52718E-02_JPRB /)  
+KA(:, 4,10,16) = (/ &
+ & 0.69308E-02_JPRB,0.60645E-02_JPRB,0.51982E-02_JPRB,0.43312E-02_JPRB,0.34725E-02_JPRB, &
+ & 0.37977E-02_JPRB,0.44773E-02_JPRB,0.49627E-02_JPRB,0.62190E-02_JPRB /)  
+KA(:, 5,10,16) = (/ &
+ & 0.68213E-02_JPRB,0.59687E-02_JPRB,0.51162E-02_JPRB,0.42630E-02_JPRB,0.36577E-02_JPRB, &
+ & 0.43690E-02_JPRB,0.51523E-02_JPRB,0.57195E-02_JPRB,0.71486E-02_JPRB /)  
+KA(:, 1,11,16) = (/ &
+ & 0.82729E-02_JPRB,0.72388E-02_JPRB,0.62047E-02_JPRB,0.51704E-02_JPRB,0.41364E-02_JPRB, &
+ & 0.31022E-02_JPRB,0.29450E-02_JPRB,0.32481E-02_JPRB,0.41092E-02_JPRB /)  
+KA(:, 2,11,16) = (/ &
+ & 0.81377E-02_JPRB,0.71207E-02_JPRB,0.61034E-02_JPRB,0.50862E-02_JPRB,0.40694E-02_JPRB, &
+ & 0.32023E-02_JPRB,0.35972E-02_JPRB,0.39817E-02_JPRB,0.50045E-02_JPRB /)  
+KA(:, 3,11,16) = (/ &
+ & 0.79927E-02_JPRB,0.69937E-02_JPRB,0.59945E-02_JPRB,0.49955E-02_JPRB,0.39980E-02_JPRB, &
+ & 0.36849E-02_JPRB,0.43305E-02_JPRB,0.48162E-02_JPRB,0.60016E-02_JPRB /)  
+KA(:, 4,11,16) = (/ &
+ & 0.78435E-02_JPRB,0.68631E-02_JPRB,0.58827E-02_JPRB,0.49014E-02_JPRB,0.39530E-02_JPRB, &
+ & 0.43152E-02_JPRB,0.50942E-02_JPRB,0.56750E-02_JPRB,0.70494E-02_JPRB /)  
+KA(:, 5,11,16) = (/ &
+ & 0.76868E-02_JPRB,0.67260E-02_JPRB,0.57653E-02_JPRB,0.48045E-02_JPRB,0.41698E-02_JPRB, &
+ & 0.49442E-02_JPRB,0.58408E-02_JPRB,0.65151E-02_JPRB,0.80731E-02_JPRB /)  
+KA(:, 1,12,16) = (/ &
+ & 0.93677E-02_JPRB,0.81967E-02_JPRB,0.70258E-02_JPRB,0.58546E-02_JPRB,0.46837E-02_JPRB, &
+ & 0.35124E-02_JPRB,0.33991E-02_JPRB,0.37659E-02_JPRB,0.47255E-02_JPRB /)  
+KA(:, 2,12,16) = (/ &
+ & 0.91725E-02_JPRB,0.80259E-02_JPRB,0.68794E-02_JPRB,0.57329E-02_JPRB,0.45871E-02_JPRB, &
+ & 0.36555E-02_JPRB,0.41158E-02_JPRB,0.45739E-02_JPRB,0.57058E-02_JPRB /)  
+KA(:, 3,12,16) = (/ &
+ & 0.89743E-02_JPRB,0.78526E-02_JPRB,0.67312E-02_JPRB,0.56083E-02_JPRB,0.44874E-02_JPRB, &
+ & 0.41738E-02_JPRB,0.49000E-02_JPRB,0.54681E-02_JPRB,0.67707E-02_JPRB /)  
+KA(:, 4,12,16) = (/ &
+ & 0.87651E-02_JPRB,0.76695E-02_JPRB,0.65740E-02_JPRB,0.54780E-02_JPRB,0.44541E-02_JPRB, &
+ & 0.48422E-02_JPRB,0.57276E-02_JPRB,0.64103E-02_JPRB,0.78928E-02_JPRB /)  
+KA(:, 5,12,16) = (/ &
+ & 0.85557E-02_JPRB,0.74863E-02_JPRB,0.64169E-02_JPRB,0.53471E-02_JPRB,0.46965E-02_JPRB, &
+ & 0.55261E-02_JPRB,0.65398E-02_JPRB,0.73300E-02_JPRB,0.90026E-02_JPRB /)  
+KA(:, 1,13,16) = (/ &
+ & 0.10484E-01_JPRB,0.91737E-02_JPRB,0.78632E-02_JPRB,0.65525E-02_JPRB,0.52420E-02_JPRB, &
+ & 0.39330E-02_JPRB,0.38753E-02_JPRB,0.43130E-02_JPRB,0.53655E-02_JPRB /)  
+KA(:, 2,13,16) = (/ &
+ & 0.10212E-01_JPRB,0.89352E-02_JPRB,0.76588E-02_JPRB,0.63823E-02_JPRB,0.51063E-02_JPRB, &
+ & 0.41214E-02_JPRB,0.46538E-02_JPRB,0.51962E-02_JPRB,0.64287E-02_JPRB /)  
+KA(:, 3,13,16) = (/ &
+ & 0.99472E-02_JPRB,0.87039E-02_JPRB,0.74620E-02_JPRB,0.62164E-02_JPRB,0.49733E-02_JPRB, &
+ & 0.46683E-02_JPRB,0.54886E-02_JPRB,0.61482E-02_JPRB,0.75590E-02_JPRB /)  
+KA(:, 4,13,16) = (/ &
+ & 0.96776E-02_JPRB,0.84679E-02_JPRB,0.72583E-02_JPRB,0.60495E-02_JPRB,0.49611E-02_JPRB, &
+ & 0.53643E-02_JPRB,0.63558E-02_JPRB,0.71458E-02_JPRB,0.87290E-02_JPRB /)  
+KA(:, 5,13,16) = (/ &
+ & 0.94084E-02_JPRB,0.82324E-02_JPRB,0.70564E-02_JPRB,0.58807E-02_JPRB,0.52210E-02_JPRB, &
+ & 0.60971E-02_JPRB,0.72271E-02_JPRB,0.81397E-02_JPRB,0.99102E-02_JPRB /)  
+  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART11',1,ZHOOK_HANDLE)
+END SUBROUTINE PART11
+
+
+SUBROUTINE PART12
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART12',0,ZHOOK_HANDLE)
+
+
+!     -----------------------------------------------------------------
+!     The array KB contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels < ~100mb and temperatures. The first 
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this pressure 
+!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for
+!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  
+!     The second index, JP, runs from 13 to 59 and refers to the JPth
+!     reference pressure level (see taumol.f for the value of these
+!     pressure levels in mb).  The third index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+!     -----------------------------------------------------------------
+
+KB(:,13, 1) = (/ &
+ & 0.33062E-11_JPRB,0.42306E-11_JPRB,0.53172E-11_JPRB,0.65673E-11_JPRB,0.78335E-11_JPRB /)  
+KB(:,14, 1) = (/ &
+ & 0.27467E-11_JPRB,0.35252E-11_JPRB,0.44160E-11_JPRB,0.54171E-11_JPRB,0.64630E-11_JPRB /)  
+KB(:,15, 1) = (/ &
+ & 0.23431E-11_JPRB,0.29962E-11_JPRB,0.37507E-11_JPRB,0.46179E-11_JPRB,0.54790E-11_JPRB /)  
+KB(:,16, 1) = (/ &
+ & 0.20178E-11_JPRB,0.25698E-11_JPRB,0.32330E-11_JPRB,0.40024E-11_JPRB,0.46899E-11_JPRB /)  
+KB(:,17, 1) = (/ &
+ & 0.17389E-11_JPRB,0.22126E-11_JPRB,0.27864E-11_JPRB,0.34615E-11_JPRB,0.40184E-11_JPRB /)  
+KB(:,18, 1) = (/ &
+ & 0.15164E-11_JPRB,0.19304E-11_JPRB,0.24263E-11_JPRB,0.29918E-11_JPRB,0.34734E-11_JPRB /)  
+KB(:,19, 1) = (/ &
+ & 0.13194E-11_JPRB,0.16684E-11_JPRB,0.20851E-11_JPRB,0.25471E-11_JPRB,0.29992E-11_JPRB /)  
+KB(:,20, 1) = (/ &
+ & 0.11345E-11_JPRB,0.14317E-11_JPRB,0.17813E-11_JPRB,0.21686E-11_JPRB,0.25523E-11_JPRB /)  
+KB(:,21, 1) = (/ &
+ & 0.97614E-12_JPRB,0.12233E-11_JPRB,0.15124E-11_JPRB,0.18436E-11_JPRB,0.21624E-11_JPRB /)  
+KB(:,22, 1) = (/ &
+ & 0.84972E-12_JPRB,0.10604E-11_JPRB,0.13001E-11_JPRB,0.15853E-11_JPRB,0.18511E-11_JPRB /)  
+KB(:,23, 1) = (/ &
+ & 0.73919E-12_JPRB,0.91863E-12_JPRB,0.11179E-11_JPRB,0.13612E-11_JPRB,0.15791E-11_JPRB /)  
+KB(:,24, 1) = (/ &
+ & 0.63952E-12_JPRB,0.79203E-12_JPRB,0.96272E-12_JPRB,0.11643E-11_JPRB,0.13384E-11_JPRB /)  
+KB(:,25, 1) = (/ &
+ & 0.55198E-12_JPRB,0.68176E-12_JPRB,0.82782E-12_JPRB,0.99347E-12_JPRB,0.11342E-11_JPRB /)  
+KB(:,26, 1) = (/ &
+ & 0.47648E-12_JPRB,0.58395E-12_JPRB,0.71214E-12_JPRB,0.84565E-12_JPRB,0.96146E-12_JPRB /)  
+KB(:,27, 1) = (/ &
+ & 0.41185E-12_JPRB,0.50403E-12_JPRB,0.61156E-12_JPRB,0.71539E-12_JPRB,0.81410E-12_JPRB /)  
+KB(:,28, 1) = (/ &
+ & 0.35568E-12_JPRB,0.43404E-12_JPRB,0.52441E-12_JPRB,0.60652E-12_JPRB,0.68860E-12_JPRB /)  
+KB(:,29, 1) = (/ &
+ & 0.30863E-12_JPRB,0.37487E-12_JPRB,0.45120E-12_JPRB,0.51591E-12_JPRB,0.58367E-12_JPRB /)  
+KB(:,30, 1) = (/ &
+ & 0.26804E-12_JPRB,0.32390E-12_JPRB,0.38615E-12_JPRB,0.43956E-12_JPRB,0.49890E-12_JPRB /)  
+KB(:,31, 1) = (/ &
+ & 0.23316E-12_JPRB,0.28106E-12_JPRB,0.33068E-12_JPRB,0.37478E-12_JPRB,0.42377E-12_JPRB /)  
+KB(:,32, 1) = (/ &
+ & 0.20255E-12_JPRB,0.24397E-12_JPRB,0.28293E-12_JPRB,0.31878E-12_JPRB,0.36224E-12_JPRB /)  
+KB(:,33, 1) = (/ &
+ & 0.17541E-12_JPRB,0.21018E-12_JPRB,0.24052E-12_JPRB,0.27083E-12_JPRB,0.30963E-12_JPRB /)  
+KB(:,34, 1) = (/ &
+ & 0.15014E-12_JPRB,0.17890E-12_JPRB,0.20293E-12_JPRB,0.23058E-12_JPRB,0.26131E-12_JPRB /)  
+KB(:,35, 1) = (/ &
+ & 0.12610E-12_JPRB,0.14972E-12_JPRB,0.16906E-12_JPRB,0.19250E-12_JPRB,0.21752E-12_JPRB /)  
+KB(:,36, 1) = (/ &
+ & 0.10365E-12_JPRB,0.12301E-12_JPRB,0.13878E-12_JPRB,0.15810E-12_JPRB,0.17856E-12_JPRB /)  
+KB(:,37, 1) = (/ &
+ & 0.82572E-13_JPRB,0.98388E-13_JPRB,0.11143E-12_JPRB,0.12645E-12_JPRB,0.14343E-12_JPRB /)  
+KB(:,38, 1) = (/ &
+ & 0.65632E-13_JPRB,0.78531E-13_JPRB,0.89359E-13_JPRB,0.10135E-12_JPRB,0.11495E-12_JPRB /)  
+KB(:,39, 1) = (/ &
+ & 0.52174E-13_JPRB,0.62607E-13_JPRB,0.71650E-13_JPRB,0.80738E-13_JPRB,0.92112E-13_JPRB /)  
+KB(:,40, 1) = (/ &
+ & 0.40434E-13_JPRB,0.48683E-13_JPRB,0.56479E-13_JPRB,0.63806E-13_JPRB,0.72155E-13_JPRB /)  
+KB(:,41, 1) = (/ &
+ & 0.31179E-13_JPRB,0.37691E-13_JPRB,0.44339E-13_JPRB,0.50247E-13_JPRB,0.56982E-13_JPRB /)  
+KB(:,42, 1) = (/ &
+ & 0.24040E-13_JPRB,0.29161E-13_JPRB,0.34731E-13_JPRB,0.39467E-13_JPRB,0.44922E-13_JPRB /)  
+KB(:,43, 1) = (/ &
+ & 0.18259E-13_JPRB,0.22185E-13_JPRB,0.26753E-13_JPRB,0.30617E-13_JPRB,0.34721E-13_JPRB /)  
+KB(:,44, 1) = (/ &
+ & 0.13667E-13_JPRB,0.16662E-13_JPRB,0.20308E-13_JPRB,0.23577E-13_JPRB,0.26865E-13_JPRB /)  
+KB(:,45, 1) = (/ &
+ & 0.10182E-13_JPRB,0.12571E-13_JPRB,0.15345E-13_JPRB,0.18028E-13_JPRB,0.20725E-13_JPRB /)  
+KB(:,46, 1) = (/ &
+ & 0.75196E-14_JPRB,0.94092E-14_JPRB,0.11475E-13_JPRB,0.13704E-13_JPRB,0.15878E-13_JPRB /)  
+KB(:,47, 1) = (/ &
+ & 0.54721E-14_JPRB,0.69523E-14_JPRB,0.85280E-14_JPRB,0.10311E-13_JPRB,0.11952E-13_JPRB /)  
+KB(:,48, 1) = (/ &
+ & 0.39619E-14_JPRB,0.50439E-14_JPRB,0.62896E-14_JPRB,0.77193E-14_JPRB,0.89282E-14_JPRB /)  
+KB(:,49, 1) = (/ &
+ & 0.28508E-14_JPRB,0.36419E-14_JPRB,0.46044E-14_JPRB,0.57276E-14_JPRB,0.66866E-14_JPRB /)  
+KB(:,50, 1) = (/ &
+ & 0.20973E-14_JPRB,0.26588E-14_JPRB,0.33754E-14_JPRB,0.42404E-14_JPRB,0.50338E-14_JPRB /)  
+KB(:,51, 1) = (/ &
+ & 0.15010E-14_JPRB,0.19461E-14_JPRB,0.24807E-14_JPRB,0.31095E-14_JPRB,0.37789E-14_JPRB /)  
+KB(:,52, 1) = (/ &
+ & 0.10686E-14_JPRB,0.14205E-14_JPRB,0.18164E-14_JPRB,0.22651E-14_JPRB,0.27790E-14_JPRB /)  
+KB(:,53, 1) = (/ &
+ & 0.75469E-15_JPRB,0.10279E-14_JPRB,0.13211E-14_JPRB,0.16657E-14_JPRB,0.20344E-14_JPRB /)  
+KB(:,54, 1) = (/ &
+ & 0.53837E-15_JPRB,0.75440E-15_JPRB,0.97064E-15_JPRB,0.12260E-14_JPRB,0.15156E-14_JPRB /)  
+KB(:,55, 1) = (/ &
+ & 0.38620E-15_JPRB,0.54750E-15_JPRB,0.71223E-15_JPRB,0.90921E-15_JPRB,0.11265E-14_JPRB /)  
+KB(:,56, 1) = (/ &
+ & 0.27852E-15_JPRB,0.39135E-15_JPRB,0.51858E-15_JPRB,0.66760E-15_JPRB,0.83486E-15_JPRB /)  
+KB(:,57, 1) = (/ &
+ & 0.20280E-15_JPRB,0.27940E-15_JPRB,0.37558E-15_JPRB,0.48656E-15_JPRB,0.61658E-15_JPRB /)  
+KB(:,58, 1) = (/ &
+ & 0.14586E-15_JPRB,0.19788E-15_JPRB,0.27273E-15_JPRB,0.35391E-15_JPRB,0.45250E-15_JPRB /)  
+KB(:,59, 1) = (/ &
+ & 0.11164E-15_JPRB,0.15082E-15_JPRB,0.20804E-15_JPRB,0.27081E-15_JPRB,0.49339E-15_JPRB /)  
+KB(:,13, 2) = (/ &
+ & 0.15800E-10_JPRB,0.20781E-10_JPRB,0.26154E-10_JPRB,0.31936E-10_JPRB,0.38062E-10_JPRB /)  
+KB(:,14, 2) = (/ &
+ & 0.13333E-10_JPRB,0.17459E-10_JPRB,0.21881E-10_JPRB,0.26666E-10_JPRB,0.31696E-10_JPRB /)  
+KB(:,15, 2) = (/ &
+ & 0.11381E-10_JPRB,0.14784E-10_JPRB,0.18449E-10_JPRB,0.22397E-10_JPRB,0.26533E-10_JPRB /)  
+KB(:,16, 2) = (/ &
+ & 0.97593E-11_JPRB,0.12591E-10_JPRB,0.15641E-10_JPRB,0.18845E-10_JPRB,0.22503E-10_JPRB /)  
+KB(:,17, 2) = (/ &
+ & 0.83473E-11_JPRB,0.10709E-10_JPRB,0.13261E-10_JPRB,0.15857E-10_JPRB,0.19052E-10_JPRB /)  
+KB(:,18, 2) = (/ &
+ & 0.71523E-11_JPRB,0.91255E-11_JPRB,0.11229E-10_JPRB,0.13436E-10_JPRB,0.16145E-10_JPRB /)  
+KB(:,19, 2) = (/ &
+ & 0.60777E-11_JPRB,0.77489E-11_JPRB,0.94796E-11_JPRB,0.11415E-10_JPRB,0.13591E-10_JPRB /)  
+KB(:,20, 2) = (/ &
+ & 0.51693E-11_JPRB,0.65609E-11_JPRB,0.80124E-11_JPRB,0.96944E-11_JPRB,0.11427E-10_JPRB /)  
+KB(:,21, 2) = (/ &
+ & 0.43931E-11_JPRB,0.55492E-11_JPRB,0.67698E-11_JPRB,0.81825E-11_JPRB,0.95836E-11_JPRB /)  
+KB(:,22, 2) = (/ &
+ & 0.37967E-11_JPRB,0.47515E-11_JPRB,0.57759E-11_JPRB,0.69676E-11_JPRB,0.81090E-11_JPRB /)  
+KB(:,23, 2) = (/ &
+ & 0.32747E-11_JPRB,0.40830E-11_JPRB,0.49616E-11_JPRB,0.59280E-11_JPRB,0.68614E-11_JPRB /)  
+KB(:,24, 2) = (/ &
+ & 0.28215E-11_JPRB,0.34976E-11_JPRB,0.42532E-11_JPRB,0.50228E-11_JPRB,0.57971E-11_JPRB /)  
+KB(:,25, 2) = (/ &
+ & 0.24334E-11_JPRB,0.29960E-11_JPRB,0.36396E-11_JPRB,0.42606E-11_JPRB,0.49056E-11_JPRB /)  
+KB(:,26, 2) = (/ &
+ & 0.21117E-11_JPRB,0.25752E-11_JPRB,0.31134E-11_JPRB,0.36244E-11_JPRB,0.41489E-11_JPRB /)  
+KB(:,27, 2) = (/ &
+ & 0.18253E-11_JPRB,0.22243E-11_JPRB,0.26576E-11_JPRB,0.30793E-11_JPRB,0.35048E-11_JPRB /)  
+KB(:,28, 2) = (/ &
+ & 0.15682E-11_JPRB,0.19141E-11_JPRB,0.22636E-11_JPRB,0.26109E-11_JPRB,0.29589E-11_JPRB /)  
+KB(:,29, 2) = (/ &
+ & 0.13535E-11_JPRB,0.16466E-11_JPRB,0.19296E-11_JPRB,0.22145E-11_JPRB,0.25005E-11_JPRB /)  
+KB(:,30, 2) = (/ &
+ & 0.11709E-11_JPRB,0.14136E-11_JPRB,0.16432E-11_JPRB,0.18792E-11_JPRB,0.21240E-11_JPRB /)  
+KB(:,31, 2) = (/ &
+ & 0.10216E-11_JPRB,0.12142E-11_JPRB,0.14045E-11_JPRB,0.15978E-11_JPRB,0.18001E-11_JPRB /)  
+KB(:,32, 2) = (/ &
+ & 0.88417E-12_JPRB,0.10400E-11_JPRB,0.11973E-11_JPRB,0.13566E-11_JPRB,0.15303E-11_JPRB /)  
+KB(:,33, 2) = (/ &
+ & 0.76210E-12_JPRB,0.89004E-12_JPRB,0.10199E-11_JPRB,0.11509E-11_JPRB,0.12984E-11_JPRB /)  
+KB(:,34, 2) = (/ &
+ & 0.64910E-12_JPRB,0.75460E-12_JPRB,0.86122E-12_JPRB,0.97227E-12_JPRB,0.10908E-11_JPRB /)  
+KB(:,35, 2) = (/ &
+ & 0.54374E-12_JPRB,0.63015E-12_JPRB,0.71745E-12_JPRB,0.80944E-12_JPRB,0.90628E-12_JPRB /)  
+KB(:,36, 2) = (/ &
+ & 0.44718E-12_JPRB,0.51791E-12_JPRB,0.58946E-12_JPRB,0.66527E-12_JPRB,0.74411E-12_JPRB /)  
+KB(:,37, 2) = (/ &
+ & 0.35793E-12_JPRB,0.41591E-12_JPRB,0.47443E-12_JPRB,0.53549E-12_JPRB,0.60041E-12_JPRB /)  
+KB(:,38, 2) = (/ &
+ & 0.28618E-12_JPRB,0.33345E-12_JPRB,0.38124E-12_JPRB,0.43139E-12_JPRB,0.48394E-12_JPRB /)  
+KB(:,39, 2) = (/ &
+ & 0.22858E-12_JPRB,0.26729E-12_JPRB,0.30628E-12_JPRB,0.34554E-12_JPRB,0.38998E-12_JPRB /)  
+KB(:,40, 2) = (/ &
+ & 0.17867E-12_JPRB,0.21032E-12_JPRB,0.24207E-12_JPRB,0.27407E-12_JPRB,0.30925E-12_JPRB /)  
+KB(:,41, 2) = (/ &
+ & 0.13875E-12_JPRB,0.16498E-12_JPRB,0.19072E-12_JPRB,0.21688E-12_JPRB,0.24410E-12_JPRB /)  
+KB(:,42, 2) = (/ &
+ & 0.10714E-12_JPRB,0.12915E-12_JPRB,0.14999E-12_JPRB,0.17156E-12_JPRB,0.19364E-12_JPRB /)  
+KB(:,43, 2) = (/ &
+ & 0.81856E-13_JPRB,0.99592E-13_JPRB,0.11661E-12_JPRB,0.13414E-12_JPRB,0.15145E-12_JPRB /)  
+KB(:,44, 2) = (/ &
+ & 0.62221E-13_JPRB,0.75886E-13_JPRB,0.90106E-13_JPRB,0.10425E-12_JPRB,0.11838E-12_JPRB /)  
+KB(:,45, 2) = (/ &
+ & 0.47139E-13_JPRB,0.57421E-13_JPRB,0.69401E-13_JPRB,0.80830E-13_JPRB,0.92462E-13_JPRB /)  
+KB(:,46, 2) = (/ &
+ & 0.35469E-13_JPRB,0.43603E-13_JPRB,0.52913E-13_JPRB,0.62345E-13_JPRB,0.71769E-13_JPRB /)  
+KB(:,47, 2) = (/ &
+ & 0.26308E-13_JPRB,0.32606E-13_JPRB,0.39610E-13_JPRB,0.47505E-13_JPRB,0.55354E-13_JPRB /)  
+KB(:,48, 2) = (/ &
+ & 0.19388E-13_JPRB,0.24430E-13_JPRB,0.29903E-13_JPRB,0.35902E-13_JPRB,0.42540E-13_JPRB /)  
+KB(:,49, 2) = (/ &
+ & 0.14144E-13_JPRB,0.18180E-13_JPRB,0.22467E-13_JPRB,0.26985E-13_JPRB,0.32471E-13_JPRB /)  
+KB(:,50, 2) = (/ &
+ & 0.10280E-13_JPRB,0.13471E-13_JPRB,0.16900E-13_JPRB,0.20465E-13_JPRB,0.24665E-13_JPRB /)  
+KB(:,51, 2) = (/ &
+ & 0.74898E-14_JPRB,0.99392E-14_JPRB,0.12674E-13_JPRB,0.15571E-13_JPRB,0.18663E-13_JPRB /)  
+KB(:,52, 2) = (/ &
+ & 0.54214E-14_JPRB,0.72917E-14_JPRB,0.94517E-14_JPRB,0.11816E-13_JPRB,0.14256E-13_JPRB /)  
+KB(:,53, 2) = (/ &
+ & 0.38970E-14_JPRB,0.53165E-14_JPRB,0.69989E-14_JPRB,0.88828E-14_JPRB,0.10862E-13_JPRB /)  
+KB(:,54, 2) = (/ &
+ & 0.27972E-14_JPRB,0.38775E-14_JPRB,0.51927E-14_JPRB,0.66775E-14_JPRB,0.82659E-14_JPRB /)  
+KB(:,55, 2) = (/ &
+ & 0.19962E-14_JPRB,0.28257E-14_JPRB,0.38491E-14_JPRB,0.50059E-14_JPRB,0.62864E-14_JPRB /)  
+KB(:,56, 2) = (/ &
+ & 0.14049E-14_JPRB,0.20447E-14_JPRB,0.28389E-14_JPRB,0.37444E-14_JPRB,0.47474E-14_JPRB /)  
+KB(:,57, 2) = (/ &
+ & 0.97467E-15_JPRB,0.14635E-14_JPRB,0.20787E-14_JPRB,0.27878E-14_JPRB,0.35737E-14_JPRB /)  
+KB(:,58, 2) = (/ &
+ & 0.67770E-15_JPRB,0.10398E-14_JPRB,0.15169E-14_JPRB,0.20739E-14_JPRB,0.26951E-14_JPRB /)  
+KB(:,59, 2) = (/ &
+ & 0.50857E-15_JPRB,0.79496E-15_JPRB,0.11749E-14_JPRB,0.16262E-14_JPRB,0.21270E-14_JPRB /)  
+KB(:,13, 3) = (/ &
+ & 0.93671E-10_JPRB,0.11591E-09_JPRB,0.13715E-09_JPRB,0.15779E-09_JPRB,0.17870E-09_JPRB /)  
+KB(:,14, 3) = (/ &
+ & 0.78883E-10_JPRB,0.96971E-10_JPRB,0.11437E-09_JPRB,0.13160E-09_JPRB,0.14863E-09_JPRB /)  
+KB(:,15, 3) = (/ &
+ & 0.66900E-10_JPRB,0.81568E-10_JPRB,0.96052E-10_JPRB,0.11028E-09_JPRB,0.12439E-09_JPRB /)  
+KB(:,16, 3) = (/ &
+ & 0.56737E-10_JPRB,0.68853E-10_JPRB,0.80870E-10_JPRB,0.92769E-10_JPRB,0.10422E-09_JPRB /)  
+KB(:,17, 3) = (/ &
+ & 0.48148E-10_JPRB,0.58209E-10_JPRB,0.68168E-10_JPRB,0.78006E-10_JPRB,0.87308E-10_JPRB /)  
+KB(:,18, 3) = (/ &
+ & 0.40874E-10_JPRB,0.49268E-10_JPRB,0.57591E-10_JPRB,0.65627E-10_JPRB,0.73296E-10_JPRB /)  
+KB(:,19, 3) = (/ &
+ & 0.34619E-10_JPRB,0.41578E-10_JPRB,0.48414E-10_JPRB,0.55049E-10_JPRB,0.61235E-10_JPRB /)  
+KB(:,20, 3) = (/ &
+ & 0.29370E-10_JPRB,0.35034E-10_JPRB,0.40682E-10_JPRB,0.46014E-10_JPRB,0.51115E-10_JPRB /)  
+KB(:,21, 3) = (/ &
+ & 0.24821E-10_JPRB,0.29490E-10_JPRB,0.34141E-10_JPRB,0.38423E-10_JPRB,0.42621E-10_JPRB /)  
+KB(:,22, 3) = (/ &
+ & 0.21204E-10_JPRB,0.25041E-10_JPRB,0.28846E-10_JPRB,0.32305E-10_JPRB,0.35757E-10_JPRB /)  
+KB(:,23, 3) = (/ &
+ & 0.18107E-10_JPRB,0.21244E-10_JPRB,0.24304E-10_JPRB,0.27144E-10_JPRB,0.30005E-10_JPRB /)  
+KB(:,24, 3) = (/ &
+ & 0.15432E-10_JPRB,0.18015E-10_JPRB,0.20470E-10_JPRB,0.22803E-10_JPRB,0.25180E-10_JPRB /)  
+KB(:,25, 3) = (/ &
+ & 0.13155E-10_JPRB,0.15266E-10_JPRB,0.17234E-10_JPRB,0.19170E-10_JPRB,0.21096E-10_JPRB /)  
+KB(:,26, 3) = (/ &
+ & 0.11220E-10_JPRB,0.12944E-10_JPRB,0.14527E-10_JPRB,0.16132E-10_JPRB,0.17690E-10_JPRB /)  
+KB(:,27, 3) = (/ &
+ & 0.95562E-11_JPRB,0.10942E-10_JPRB,0.12242E-10_JPRB,0.13560E-10_JPRB,0.14820E-10_JPRB /)  
+KB(:,28, 3) = (/ &
+ & 0.81359E-11_JPRB,0.92394E-11_JPRB,0.10309E-10_JPRB,0.11386E-10_JPRB,0.12407E-10_JPRB /)  
+KB(:,29, 3) = (/ &
+ & 0.69193E-11_JPRB,0.78077E-11_JPRB,0.87009E-11_JPRB,0.95682E-11_JPRB,0.10386E-10_JPRB /)  
+KB(:,30, 3) = (/ &
+ & 0.58737E-11_JPRB,0.65956E-11_JPRB,0.73381E-11_JPRB,0.80325E-11_JPRB,0.87147E-11_JPRB /)  
+KB(:,31, 3) = (/ &
+ & 0.49782E-11_JPRB,0.55816E-11_JPRB,0.61826E-11_JPRB,0.67463E-11_JPRB,0.73000E-11_JPRB /)  
+KB(:,32, 3) = (/ &
+ & 0.42202E-11_JPRB,0.47232E-11_JPRB,0.52043E-11_JPRB,0.56623E-11_JPRB,0.61016E-11_JPRB /)  
+KB(:,33, 3) = (/ &
+ & 0.35744E-11_JPRB,0.39897E-11_JPRB,0.43757E-11_JPRB,0.47465E-11_JPRB,0.50931E-11_JPRB /)  
+KB(:,34, 3) = (/ &
+ & 0.30127E-11_JPRB,0.33496E-11_JPRB,0.36630E-11_JPRB,0.39738E-11_JPRB,0.42413E-11_JPRB /)  
+KB(:,35, 3) = (/ &
+ & 0.25098E-11_JPRB,0.27837E-11_JPRB,0.30393E-11_JPRB,0.32916E-11_JPRB,0.35093E-11_JPRB /)  
+KB(:,36, 3) = (/ &
+ & 0.20644E-11_JPRB,0.22886E-11_JPRB,0.24982E-11_JPRB,0.27043E-11_JPRB,0.28833E-11_JPRB /)  
+KB(:,37, 3) = (/ &
+ & 0.16684E-11_JPRB,0.18536E-11_JPRB,0.20259E-11_JPRB,0.21979E-11_JPRB,0.23456E-11_JPRB /)  
+KB(:,38, 3) = (/ &
+ & 0.13466E-11_JPRB,0.14996E-11_JPRB,0.16425E-11_JPRB,0.17834E-11_JPRB,0.19065E-11_JPRB /)  
+KB(:,39, 3) = (/ &
+ & 0.10861E-11_JPRB,0.12130E-11_JPRB,0.13309E-11_JPRB,0.14440E-11_JPRB,0.15498E-11_JPRB /)  
+KB(:,40, 3) = (/ &
+ & 0.86498E-12_JPRB,0.96921E-12_JPRB,0.10678E-11_JPRB,0.11601E-11_JPRB,0.12509E-11_JPRB /)  
+KB(:,41, 3) = (/ &
+ & 0.68788E-12_JPRB,0.77191E-12_JPRB,0.85472E-12_JPRB,0.93133E-12_JPRB,0.10084E-11_JPRB /)  
+KB(:,42, 3) = (/ &
+ & 0.54661E-12_JPRB,0.61437E-12_JPRB,0.68360E-12_JPRB,0.74699E-12_JPRB,0.81088E-12_JPRB /)  
+KB(:,43, 3) = (/ &
+ & 0.42920E-12_JPRB,0.48515E-12_JPRB,0.54174E-12_JPRB,0.59564E-12_JPRB,0.64658E-12_JPRB /)  
+KB(:,44, 3) = (/ &
+ & 0.33491E-12_JPRB,0.38198E-12_JPRB,0.42756E-12_JPRB,0.47274E-12_JPRB,0.51490E-12_JPRB /)  
+KB(:,45, 3) = (/ &
+ & 0.26072E-12_JPRB,0.29981E-12_JPRB,0.33699E-12_JPRB,0.37442E-12_JPRB,0.40968E-12_JPRB /)  
+KB(:,46, 3) = (/ &
+ & 0.20167E-12_JPRB,0.23370E-12_JPRB,0.26473E-12_JPRB,0.29535E-12_JPRB,0.32495E-12_JPRB /)  
+KB(:,47, 3) = (/ &
+ & 0.15427E-12_JPRB,0.18070E-12_JPRB,0.20644E-12_JPRB,0.23129E-12_JPRB,0.25612E-12_JPRB /)  
+KB(:,48, 3) = (/ &
+ & 0.11746E-12_JPRB,0.13905E-12_JPRB,0.16032E-12_JPRB,0.18088E-12_JPRB,0.20125E-12_JPRB /)  
+KB(:,49, 3) = (/ &
+ & 0.88976E-13_JPRB,0.10661E-12_JPRB,0.12415E-12_JPRB,0.14128E-12_JPRB,0.15777E-12_JPRB /)  
+KB(:,50, 3) = (/ &
+ & 0.67378E-13_JPRB,0.81791E-13_JPRB,0.96162E-13_JPRB,0.11029E-12_JPRB,0.12384E-12_JPRB /)  
+KB(:,51, 3) = (/ &
+ & 0.50786E-13_JPRB,0.62576E-13_JPRB,0.74348E-13_JPRB,0.85995E-13_JPRB,0.97345E-13_JPRB /)  
+KB(:,52, 3) = (/ &
+ & 0.37951E-13_JPRB,0.47645E-13_JPRB,0.57250E-13_JPRB,0.66805E-13_JPRB,0.76257E-13_JPRB /)  
+KB(:,53, 3) = (/ &
+ & 0.28159E-13_JPRB,0.36102E-13_JPRB,0.43964E-13_JPRB,0.51774E-13_JPRB,0.59583E-13_JPRB /)  
+KB(:,54, 3) = (/ &
+ & 0.21004E-13_JPRB,0.27366E-13_JPRB,0.33776E-13_JPRB,0.40177E-13_JPRB,0.46583E-13_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART12',1,ZHOOK_HANDLE)
+END SUBROUTINE PART12
+
+
+SUBROUTINE PART13
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART13',0,ZHOOK_HANDLE)
+
+
+KB(:,55, 3) = (/ &
+ & 0.15637E-13_JPRB,0.20632E-13_JPRB,0.25941E-13_JPRB,0.31184E-13_JPRB,0.36409E-13_JPRB /)  
+KB(:,56, 3) = (/ &
+ & 0.11581E-13_JPRB,0.15522E-13_JPRB,0.19844E-13_JPRB,0.24130E-13_JPRB,0.28399E-13_JPRB /)  
+KB(:,57, 3) = (/ &
+ & 0.85125E-14_JPRB,0.11631E-13_JPRB,0.15093E-13_JPRB,0.18610E-13_JPRB,0.22102E-13_JPRB /)  
+KB(:,58, 3) = (/ &
+ & 0.62435E-14_JPRB,0.87193E-14_JPRB,0.11437E-13_JPRB,0.14347E-13_JPRB,0.17208E-13_JPRB /)  
+KB(:,59, 3) = (/ &
+ & 0.48886E-14_JPRB,0.68810E-14_JPRB,0.90777E-14_JPRB,0.11450E-13_JPRB,0.13800E-13_JPRB /)  
+KB(:,13, 4) = (/ &
+ & 0.49769E-09_JPRB,0.57573E-09_JPRB,0.65456E-09_JPRB,0.73233E-09_JPRB,0.81030E-09_JPRB /)  
+KB(:,14, 4) = (/ &
+ & 0.41687E-09_JPRB,0.48070E-09_JPRB,0.54629E-09_JPRB,0.61156E-09_JPRB,0.67509E-09_JPRB /)  
+KB(:,15, 4) = (/ &
+ & 0.35004E-09_JPRB,0.40346E-09_JPRB,0.45778E-09_JPRB,0.51155E-09_JPRB,0.56442E-09_JPRB /)  
+KB(:,16, 4) = (/ &
+ & 0.29428E-09_JPRB,0.33893E-09_JPRB,0.38370E-09_JPRB,0.42831E-09_JPRB,0.47172E-09_JPRB /)  
+KB(:,17, 4) = (/ &
+ & 0.24736E-09_JPRB,0.28447E-09_JPRB,0.32184E-09_JPRB,0.35882E-09_JPRB,0.39576E-09_JPRB /)  
+KB(:,18, 4) = (/ &
+ & 0.20799E-09_JPRB,0.23913E-09_JPRB,0.26980E-09_JPRB,0.30118E-09_JPRB,0.33239E-09_JPRB /)  
+KB(:,19, 4) = (/ &
+ & 0.17474E-09_JPRB,0.20037E-09_JPRB,0.22650E-09_JPRB,0.25275E-09_JPRB,0.27848E-09_JPRB /)  
+KB(:,20, 4) = (/ &
+ & 0.14678E-09_JPRB,0.16826E-09_JPRB,0.19015E-09_JPRB,0.21182E-09_JPRB,0.23321E-09_JPRB /)  
+KB(:,21, 4) = (/ &
+ & 0.12329E-09_JPRB,0.14137E-09_JPRB,0.15951E-09_JPRB,0.17762E-09_JPRB,0.19539E-09_JPRB /)  
+KB(:,22, 4) = (/ &
+ & 0.10475E-09_JPRB,0.11989E-09_JPRB,0.13488E-09_JPRB,0.14993E-09_JPRB,0.16481E-09_JPRB /)  
+KB(:,23, 4) = (/ &
+ & 0.89090E-10_JPRB,0.10156E-09_JPRB,0.11416E-09_JPRB,0.12661E-09_JPRB,0.13928E-09_JPRB /)  
+KB(:,24, 4) = (/ &
+ & 0.75648E-10_JPRB,0.86094E-10_JPRB,0.96530E-10_JPRB,0.10692E-09_JPRB,0.11716E-09_JPRB /)  
+KB(:,25, 4) = (/ &
+ & 0.64419E-10_JPRB,0.73036E-10_JPRB,0.81659E-10_JPRB,0.90142E-10_JPRB,0.98524E-10_JPRB /)  
+KB(:,26, 4) = (/ &
+ & 0.54857E-10_JPRB,0.61972E-10_JPRB,0.69147E-10_JPRB,0.76125E-10_JPRB,0.82778E-10_JPRB /)  
+KB(:,27, 4) = (/ &
+ & 0.46656E-10_JPRB,0.52591E-10_JPRB,0.58413E-10_JPRB,0.64168E-10_JPRB,0.69451E-10_JPRB /)  
+KB(:,28, 4) = (/ &
+ & 0.39665E-10_JPRB,0.44561E-10_JPRB,0.49317E-10_JPRB,0.53971E-10_JPRB,0.58228E-10_JPRB /)  
+KB(:,29, 4) = (/ &
+ & 0.33755E-10_JPRB,0.37736E-10_JPRB,0.41652E-10_JPRB,0.45382E-10_JPRB,0.48825E-10_JPRB /)  
+KB(:,30, 4) = (/ &
+ & 0.28671E-10_JPRB,0.31949E-10_JPRB,0.35144E-10_JPRB,0.38141E-10_JPRB,0.41003E-10_JPRB /)  
+KB(:,31, 4) = (/ &
+ & 0.24360E-10_JPRB,0.27027E-10_JPRB,0.29632E-10_JPRB,0.32038E-10_JPRB,0.34391E-10_JPRB /)  
+KB(:,32, 4) = (/ &
+ & 0.20671E-10_JPRB,0.22852E-10_JPRB,0.24963E-10_JPRB,0.26903E-10_JPRB,0.28818E-10_JPRB /)  
+KB(:,33, 4) = (/ &
+ & 0.17515E-10_JPRB,0.19306E-10_JPRB,0.20998E-10_JPRB,0.22562E-10_JPRB,0.24113E-10_JPRB /)  
+KB(:,34, 4) = (/ &
+ & 0.14755E-10_JPRB,0.16223E-10_JPRB,0.17588E-10_JPRB,0.18905E-10_JPRB,0.20105E-10_JPRB /)  
+KB(:,35, 4) = (/ &
+ & 0.12305E-10_JPRB,0.13505E-10_JPRB,0.14616E-10_JPRB,0.15703E-10_JPRB,0.16661E-10_JPRB /)  
+KB(:,36, 4) = (/ &
+ & 0.10152E-10_JPRB,0.11132E-10_JPRB,0.12046E-10_JPRB,0.12938E-10_JPRB,0.13718E-10_JPRB /)  
+KB(:,37, 4) = (/ &
+ & 0.82437E-11_JPRB,0.90546E-11_JPRB,0.98101E-11_JPRB,0.10549E-10_JPRB,0.11200E-10_JPRB /)  
+KB(:,38, 4) = (/ &
+ & 0.66891E-11_JPRB,0.73572E-11_JPRB,0.79832E-11_JPRB,0.85923E-11_JPRB,0.91388E-11_JPRB /)  
+KB(:,39, 4) = (/ &
+ & 0.54271E-11_JPRB,0.59789E-11_JPRB,0.64946E-11_JPRB,0.69804E-11_JPRB,0.74536E-11_JPRB /)  
+KB(:,40, 4) = (/ &
+ & 0.43504E-11_JPRB,0.48077E-11_JPRB,0.52359E-11_JPRB,0.56420E-11_JPRB,0.60390E-11_JPRB /)  
+KB(:,41, 4) = (/ &
+ & 0.34805E-11_JPRB,0.38570E-11_JPRB,0.42158E-11_JPRB,0.45532E-11_JPRB,0.48856E-11_JPRB /)  
+KB(:,42, 4) = (/ &
+ & 0.27817E-11_JPRB,0.30896E-11_JPRB,0.33906E-11_JPRB,0.36712E-11_JPRB,0.39504E-11_JPRB /)  
+KB(:,43, 4) = (/ &
+ & 0.22059E-11_JPRB,0.24603E-11_JPRB,0.27112E-11_JPRB,0.29449E-11_JPRB,0.31673E-11_JPRB /)  
+KB(:,44, 4) = (/ &
+ & 0.17407E-11_JPRB,0.19508E-11_JPRB,0.21593E-11_JPRB,0.23549E-11_JPRB,0.25394E-11_JPRB /)  
+KB(:,45, 4) = (/ &
+ & 0.13717E-11_JPRB,0.15444E-11_JPRB,0.17149E-11_JPRB,0.18808E-11_JPRB,0.20349E-11_JPRB /)  
+KB(:,46, 4) = (/ &
+ & 0.10758E-11_JPRB,0.12178E-11_JPRB,0.13582E-11_JPRB,0.14973E-11_JPRB,0.16264E-11_JPRB /)  
+KB(:,47, 4) = (/ &
+ & 0.83623E-12_JPRB,0.95326E-12_JPRB,0.10692E-11_JPRB,0.11850E-11_JPRB,0.12934E-11_JPRB /)  
+KB(:,48, 4) = (/ &
+ & 0.64811E-12_JPRB,0.74426E-12_JPRB,0.84002E-12_JPRB,0.93446E-12_JPRB,0.10270E-11_JPRB /)  
+KB(:,49, 4) = (/ &
+ & 0.50093E-12_JPRB,0.57976E-12_JPRB,0.65824E-12_JPRB,0.73652E-12_JPRB,0.81364E-12_JPRB /)  
+KB(:,50, 4) = (/ &
+ & 0.38740E-12_JPRB,0.45167E-12_JPRB,0.51620E-12_JPRB,0.58084E-12_JPRB,0.64495E-12_JPRB /)  
+KB(:,51, 4) = (/ &
+ & 0.29910E-12_JPRB,0.35149E-12_JPRB,0.40454E-12_JPRB,0.45768E-12_JPRB,0.51010E-12_JPRB /)  
+KB(:,52, 4) = (/ &
+ & 0.23004E-12_JPRB,0.27291E-12_JPRB,0.31637E-12_JPRB,0.35993E-12_JPRB,0.40313E-12_JPRB /)  
+KB(:,53, 4) = (/ &
+ & 0.17654E-12_JPRB,0.21129E-12_JPRB,0.24667E-12_JPRB,0.28251E-12_JPRB,0.31798E-12_JPRB /)  
+KB(:,54, 4) = (/ &
+ & 0.13566E-12_JPRB,0.16388E-12_JPRB,0.19277E-12_JPRB,0.22203E-12_JPRB,0.25140E-12_JPRB /)  
+KB(:,55, 4) = (/ &
+ & 0.10414E-12_JPRB,0.12705E-12_JPRB,0.15062E-12_JPRB,0.17458E-12_JPRB,0.19863E-12_JPRB /)  
+KB(:,56, 4) = (/ &
+ & 0.79695E-13_JPRB,0.98154E-13_JPRB,0.11737E-12_JPRB,0.13696E-12_JPRB,0.15674E-12_JPRB /)  
+KB(:,57, 4) = (/ &
+ & 0.60735E-13_JPRB,0.75667E-13_JPRB,0.91265E-13_JPRB,0.10718E-12_JPRB,0.12346E-12_JPRB /)  
+KB(:,58, 4) = (/ &
+ & 0.46331E-13_JPRB,0.58316E-13_JPRB,0.71018E-13_JPRB,0.83950E-13_JPRB,0.97215E-13_JPRB /)  
+KB(:,59, 4) = (/ &
+ & 0.36896E-13_JPRB,0.46643E-13_JPRB,0.57036E-13_JPRB,0.67613E-13_JPRB,0.78545E-13_JPRB /)  
+KB(:,13, 5) = (/ &
+ & 0.26254E-08_JPRB,0.28627E-08_JPRB,0.30909E-08_JPRB,0.33000E-08_JPRB,0.34892E-08_JPRB /)  
+KB(:,14, 5) = (/ &
+ & 0.21830E-08_JPRB,0.23794E-08_JPRB,0.25635E-08_JPRB,0.27354E-08_JPRB,0.28987E-08_JPRB /)  
+KB(:,15, 5) = (/ &
+ & 0.18164E-08_JPRB,0.19772E-08_JPRB,0.21299E-08_JPRB,0.22819E-08_JPRB,0.24177E-08_JPRB /)  
+KB(:,16, 5) = (/ &
+ & 0.15141E-08_JPRB,0.16500E-08_JPRB,0.17819E-08_JPRB,0.19057E-08_JPRB,0.20139E-08_JPRB /)  
+KB(:,17, 5) = (/ &
+ & 0.12644E-08_JPRB,0.13791E-08_JPRB,0.14854E-08_JPRB,0.15868E-08_JPRB,0.16779E-08_JPRB /)  
+KB(:,18, 5) = (/ &
+ & 0.10569E-08_JPRB,0.11490E-08_JPRB,0.12387E-08_JPRB,0.13249E-08_JPRB,0.14004E-08_JPRB /)  
+KB(:,19, 5) = (/ &
+ & 0.88077E-09_JPRB,0.95771E-09_JPRB,0.10342E-08_JPRB,0.11045E-08_JPRB,0.11654E-08_JPRB /)  
+KB(:,20, 5) = (/ &
+ & 0.73433E-09_JPRB,0.79954E-09_JPRB,0.86343E-09_JPRB,0.92049E-09_JPRB,0.97111E-09_JPRB /)  
+KB(:,21, 5) = (/ &
+ & 0.61317E-09_JPRB,0.66751E-09_JPRB,0.72065E-09_JPRB,0.76613E-09_JPRB,0.80891E-09_JPRB /)  
+KB(:,22, 5) = (/ &
+ & 0.51519E-09_JPRB,0.56066E-09_JPRB,0.60290E-09_JPRB,0.64113E-09_JPRB,0.67719E-09_JPRB /)  
+KB(:,23, 5) = (/ &
+ & 0.43331E-09_JPRB,0.47103E-09_JPRB,0.50532E-09_JPRB,0.53747E-09_JPRB,0.56589E-09_JPRB /)  
+KB(:,24, 5) = (/ &
+ & 0.36478E-09_JPRB,0.39531E-09_JPRB,0.42421E-09_JPRB,0.45023E-09_JPRB,0.47333E-09_JPRB /)  
+KB(:,25, 5) = (/ &
+ & 0.30661E-09_JPRB,0.33249E-09_JPRB,0.35642E-09_JPRB,0.37711E-09_JPRB,0.39645E-09_JPRB /)  
+KB(:,26, 5) = (/ &
+ & 0.25851E-09_JPRB,0.28030E-09_JPRB,0.29893E-09_JPRB,0.31621E-09_JPRB,0.33249E-09_JPRB /)  
+KB(:,27, 5) = (/ &
+ & 0.21849E-09_JPRB,0.23581E-09_JPRB,0.25124E-09_JPRB,0.26548E-09_JPRB,0.27889E-09_JPRB /)  
+KB(:,28, 5) = (/ &
+ & 0.18476E-09_JPRB,0.19866E-09_JPRB,0.21115E-09_JPRB,0.22285E-09_JPRB,0.23419E-09_JPRB /)  
+KB(:,29, 5) = (/ &
+ & 0.15608E-09_JPRB,0.16725E-09_JPRB,0.17764E-09_JPRB,0.18744E-09_JPRB,0.19627E-09_JPRB /)  
+KB(:,30, 5) = (/ &
+ & 0.13180E-09_JPRB,0.14084E-09_JPRB,0.14944E-09_JPRB,0.15734E-09_JPRB,0.16419E-09_JPRB /)  
+KB(:,31, 5) = (/ &
+ & 0.11122E-09_JPRB,0.11878E-09_JPRB,0.12548E-09_JPRB,0.13183E-09_JPRB,0.13690E-09_JPRB /)  
+KB(:,32, 5) = (/ &
+ & 0.93806E-10_JPRB,0.99909E-10_JPRB,0.10547E-09_JPRB,0.11013E-09_JPRB,0.11393E-09_JPRB /)  
+KB(:,33, 5) = (/ &
+ & 0.79057E-10_JPRB,0.83869E-10_JPRB,0.88337E-10_JPRB,0.91833E-10_JPRB,0.94728E-10_JPRB /)  
+KB(:,34, 5) = (/ &
+ & 0.66383E-10_JPRB,0.70216E-10_JPRB,0.73644E-10_JPRB,0.76467E-10_JPRB,0.78589E-10_JPRB /)  
+KB(:,35, 5) = (/ &
+ & 0.55303E-10_JPRB,0.58435E-10_JPRB,0.61122E-10_JPRB,0.63317E-10_JPRB,0.64984E-10_JPRB /)  
+KB(:,36, 5) = (/ &
+ & 0.45788E-10_JPRB,0.48318E-10_JPRB,0.50463E-10_JPRB,0.52237E-10_JPRB,0.53589E-10_JPRB /)  
+KB(:,37, 5) = (/ &
+ & 0.37517E-10_JPRB,0.39593E-10_JPRB,0.41407E-10_JPRB,0.42883E-10_JPRB,0.44012E-10_JPRB /)  
+KB(:,38, 5) = (/ &
+ & 0.30717E-10_JPRB,0.32436E-10_JPRB,0.33950E-10_JPRB,0.35197E-10_JPRB,0.36146E-10_JPRB /)  
+KB(:,39, 5) = (/ &
+ & 0.25129E-10_JPRB,0.26560E-10_JPRB,0.27827E-10_JPRB,0.28835E-10_JPRB,0.29676E-10_JPRB /)  
+KB(:,40, 5) = (/ &
+ & 0.20420E-10_JPRB,0.21620E-10_JPRB,0.22699E-10_JPRB,0.23564E-10_JPRB,0.24290E-10_JPRB /)  
+KB(:,41, 5) = (/ &
+ & 0.16561E-10_JPRB,0.17583E-10_JPRB,0.18496E-10_JPRB,0.19245E-10_JPRB,0.19868E-10_JPRB /)  
+KB(:,42, 5) = (/ &
+ & 0.13418E-10_JPRB,0.14291E-10_JPRB,0.15059E-10_JPRB,0.15706E-10_JPRB,0.16243E-10_JPRB /)  
+KB(:,43, 5) = (/ &
+ & 0.10810E-10_JPRB,0.11562E-10_JPRB,0.12210E-10_JPRB,0.12774E-10_JPRB,0.13223E-10_JPRB /)  
+KB(:,44, 5) = (/ &
+ & 0.86843E-11_JPRB,0.93265E-11_JPRB,0.98789E-11_JPRB,0.10369E-10_JPRB,0.10770E-10_JPRB /)  
+KB(:,45, 5) = (/ &
+ & 0.69593E-11_JPRB,0.75111E-11_JPRB,0.79891E-11_JPRB,0.84084E-11_JPRB,0.87638E-11_JPRB /)  
+KB(:,46, 5) = (/ &
+ & 0.55576E-11_JPRB,0.60308E-11_JPRB,0.64400E-11_JPRB,0.68030E-11_JPRB,0.71149E-11_JPRB /)  
+KB(:,47, 5) = (/ &
+ & 0.44097E-11_JPRB,0.48155E-11_JPRB,0.51709E-11_JPRB,0.54794E-11_JPRB,0.57570E-11_JPRB /)  
+KB(:,48, 5) = (/ &
+ & 0.34877E-11_JPRB,0.38384E-11_JPRB,0.41433E-11_JPRB,0.44120E-11_JPRB,0.46521E-11_JPRB /)  
+KB(:,49, 5) = (/ &
+ & 0.27512E-11_JPRB,0.30491E-11_JPRB,0.33123E-11_JPRB,0.35456E-11_JPRB,0.37509E-11_JPRB /)  
+KB(:,50, 5) = (/ &
+ & 0.21734E-11_JPRB,0.24185E-11_JPRB,0.26481E-11_JPRB,0.28485E-11_JPRB,0.30236E-11_JPRB /)  
+KB(:,51, 5) = (/ &
+ & 0.17150E-11_JPRB,0.19185E-11_JPRB,0.21147E-11_JPRB,0.22857E-11_JPRB,0.24371E-11_JPRB /)  
+KB(:,52, 5) = (/ &
+ & 0.13499E-11_JPRB,0.15196E-11_JPRB,0.16853E-11_JPRB,0.18315E-11_JPRB,0.19613E-11_JPRB /)  
+KB(:,53, 5) = (/ &
+ & 0.10590E-11_JPRB,0.11989E-11_JPRB,0.13374E-11_JPRB,0.14641E-11_JPRB,0.15756E-11_JPRB /)  
+KB(:,54, 5) = (/ &
+ & 0.83182E-12_JPRB,0.94832E-12_JPRB,0.10625E-11_JPRB,0.11713E-11_JPRB,0.12669E-11_JPRB /)  
+KB(:,55, 5) = (/ &
+ & 0.65257E-12_JPRB,0.74992E-12_JPRB,0.84445E-12_JPRB,0.93664E-12_JPRB,0.10175E-11_JPRB /)  
+KB(:,56, 5) = (/ &
+ & 0.51109E-12_JPRB,0.59162E-12_JPRB,0.67030E-12_JPRB,0.74706E-12_JPRB,0.81634E-12_JPRB /)  
+KB(:,57, 5) = (/ &
+ & 0.39868E-12_JPRB,0.46532E-12_JPRB,0.53042E-12_JPRB,0.59449E-12_JPRB,0.65374E-12_JPRB /)  
+KB(:,58, 5) = (/ &
+ & 0.31062E-12_JPRB,0.36629E-12_JPRB,0.42009E-12_JPRB,0.47298E-12_JPRB,0.52357E-12_JPRB /)  
+KB(:,59, 5) = (/ &
+ & 0.24996E-12_JPRB,0.29597E-12_JPRB,0.34052E-12_JPRB,0.38403E-12_JPRB,0.42584E-12_JPRB /)  
+KB(:,13, 6) = (/ &
+ & 0.10275E-07_JPRB,0.10425E-07_JPRB,0.10505E-07_JPRB,0.10571E-07_JPRB,0.10619E-07_JPRB /)  
+KB(:,14, 6) = (/ &
+ & 0.84309E-08_JPRB,0.85528E-08_JPRB,0.86280E-08_JPRB,0.86935E-08_JPRB,0.87236E-08_JPRB /)  
+KB(:,15, 6) = (/ &
+ & 0.69259E-08_JPRB,0.70218E-08_JPRB,0.71031E-08_JPRB,0.71419E-08_JPRB,0.71430E-08_JPRB /)  
+KB(:,16, 6) = (/ &
+ & 0.56933E-08_JPRB,0.57765E-08_JPRB,0.58298E-08_JPRB,0.58527E-08_JPRB,0.58704E-08_JPRB /)  
+KB(:,17, 6) = (/ &
+ & 0.46880E-08_JPRB,0.47555E-08_JPRB,0.47985E-08_JPRB,0.48270E-08_JPRB,0.48471E-08_JPRB /)  
+KB(:,18, 6) = (/ &
+ & 0.38628E-08_JPRB,0.39183E-08_JPRB,0.39591E-08_JPRB,0.39923E-08_JPRB,0.40106E-08_JPRB /)  
+KB(:,19, 6) = (/ &
+ & 0.31833E-08_JPRB,0.32370E-08_JPRB,0.32750E-08_JPRB,0.32992E-08_JPRB,0.33139E-08_JPRB /)  
+KB(:,20, 6) = (/ &
+ & 0.26315E-08_JPRB,0.26765E-08_JPRB,0.27033E-08_JPRB,0.27208E-08_JPRB,0.27412E-08_JPRB /)  
+KB(:,21, 6) = (/ &
+ & 0.21768E-08_JPRB,0.22074E-08_JPRB,0.22281E-08_JPRB,0.22492E-08_JPRB,0.22648E-08_JPRB /)  
+KB(:,22, 6) = (/ &
+ & 0.17970E-08_JPRB,0.18204E-08_JPRB,0.18421E-08_JPRB,0.18603E-08_JPRB,0.18697E-08_JPRB /)  
+KB(:,23, 6) = (/ &
+ & 0.14828E-08_JPRB,0.15043E-08_JPRB,0.15235E-08_JPRB,0.15373E-08_JPRB,0.15469E-08_JPRB /)  
+KB(:,24, 6) = (/ &
+ & 0.12265E-08_JPRB,0.12457E-08_JPRB,0.12602E-08_JPRB,0.12704E-08_JPRB,0.12795E-08_JPRB /)  
+KB(:,25, 6) = (/ &
+ & 0.10153E-08_JPRB,0.10303E-08_JPRB,0.10406E-08_JPRB,0.10511E-08_JPRB,0.10591E-08_JPRB /)  
+KB(:,26, 6) = (/ &
+ & 0.84067E-09_JPRB,0.85220E-09_JPRB,0.86139E-09_JPRB,0.87145E-09_JPRB,0.87606E-09_JPRB /)  
+KB(:,27, 6) = (/ &
+ & 0.69556E-09_JPRB,0.70441E-09_JPRB,0.71396E-09_JPRB,0.72098E-09_JPRB,0.72486E-09_JPRB /)  
+KB(:,28, 6) = (/ &
+ & 0.57505E-09_JPRB,0.58326E-09_JPRB,0.59186E-09_JPRB,0.59662E-09_JPRB,0.60056E-09_JPRB /)  
+KB(:,29, 6) = (/ &
+ & 0.47621E-09_JPRB,0.48459E-09_JPRB,0.49079E-09_JPRB,0.49432E-09_JPRB,0.49717E-09_JPRB /)  
+KB(:,30, 6) = (/ &
+ & 0.39513E-09_JPRB,0.40232E-09_JPRB,0.40640E-09_JPRB,0.40995E-09_JPRB,0.41263E-09_JPRB /)  
+KB(:,31, 6) = (/ &
+ & 0.32890E-09_JPRB,0.33390E-09_JPRB,0.33797E-09_JPRB,0.34036E-09_JPRB,0.34440E-09_JPRB /)  
+KB(:,32, 6) = (/ &
+ & 0.27372E-09_JPRB,0.27757E-09_JPRB,0.28057E-09_JPRB,0.28360E-09_JPRB,0.28668E-09_JPRB /)  
+KB(:,33, 6) = (/ &
+ & 0.22771E-09_JPRB,0.23074E-09_JPRB,0.23349E-09_JPRB,0.23595E-09_JPRB,0.23797E-09_JPRB /)  
+KB(:,34, 6) = (/ &
+ & 0.18899E-09_JPRB,0.19179E-09_JPRB,0.19391E-09_JPRB,0.19591E-09_JPRB,0.19720E-09_JPRB /)  
+KB(:,35, 6) = (/ &
+ & 0.15677E-09_JPRB,0.15897E-09_JPRB,0.16075E-09_JPRB,0.16219E-09_JPRB,0.16318E-09_JPRB /)  
+KB(:,36, 6) = (/ &
+ & 0.12972E-09_JPRB,0.13147E-09_JPRB,0.13291E-09_JPRB,0.13412E-09_JPRB,0.13484E-09_JPRB /)  
+KB(:,37, 6) = (/ &
+ & 0.10704E-09_JPRB,0.10855E-09_JPRB,0.10970E-09_JPRB,0.11065E-09_JPRB,0.11129E-09_JPRB /)  
+KB(:,38, 6) = (/ &
+ & 0.88219E-10_JPRB,0.89571E-10_JPRB,0.90489E-10_JPRB,0.91263E-10_JPRB,0.91821E-10_JPRB /)  
+KB(:,39, 6) = (/ &
+ & 0.72709E-10_JPRB,0.73884E-10_JPRB,0.74615E-10_JPRB,0.75144E-10_JPRB,0.75719E-10_JPRB /)  
+KB(:,40, 6) = (/ &
+ & 0.59779E-10_JPRB,0.60793E-10_JPRB,0.61424E-10_JPRB,0.61873E-10_JPRB,0.62379E-10_JPRB /)  
+KB(:,41, 6) = (/ &
+ & 0.49104E-10_JPRB,0.49999E-10_JPRB,0.50541E-10_JPRB,0.50924E-10_JPRB,0.51369E-10_JPRB /)  
+KB(:,42, 6) = (/ &
+ & 0.40324E-10_JPRB,0.41079E-10_JPRB,0.41584E-10_JPRB,0.41914E-10_JPRB,0.42279E-10_JPRB /)  
+KB(:,43, 6) = (/ &
+ & 0.33050E-10_JPRB,0.33695E-10_JPRB,0.34173E-10_JPRB,0.34462E-10_JPRB,0.34716E-10_JPRB /)  
+KB(:,44, 6) = (/ &
+ & 0.27054E-10_JPRB,0.27604E-10_JPRB,0.28056E-10_JPRB,0.28313E-10_JPRB,0.28542E-10_JPRB /)  
+KB(:,45, 6) = (/ &
+ & 0.22112E-10_JPRB,0.22613E-10_JPRB,0.23018E-10_JPRB,0.23255E-10_JPRB,0.23441E-10_JPRB /)  
+KB(:,46, 6) = (/ &
+ & 0.18060E-10_JPRB,0.18501E-10_JPRB,0.18867E-10_JPRB,0.19082E-10_JPRB,0.19252E-10_JPRB /)  
+KB(:,47, 6) = (/ &
+ & 0.14722E-10_JPRB,0.15111E-10_JPRB,0.15432E-10_JPRB,0.15658E-10_JPRB,0.15802E-10_JPRB /)  
+KB(:,48, 6) = (/ &
+ & 0.11985E-10_JPRB,0.12318E-10_JPRB,0.12624E-10_JPRB,0.12826E-10_JPRB,0.12965E-10_JPRB /)  
+KB(:,49, 6) = (/ &
+ & 0.97421E-11_JPRB,0.10040E-10_JPRB,0.10306E-10_JPRB,0.10499E-10_JPRB,0.10630E-10_JPRB /)  
+KB(:,50, 6) = (/ &
+ & 0.79055E-11_JPRB,0.81823E-11_JPRB,0.84121E-11_JPRB,0.85902E-11_JPRB,0.87163E-11_JPRB /)  
+KB(:,51, 6) = (/ &
+ & 0.64164E-11_JPRB,0.66612E-11_JPRB,0.68621E-11_JPRB,0.70240E-11_JPRB,0.71428E-11_JPRB /)  
+KB(:,52, 6) = (/ &
+ & 0.51935E-11_JPRB,0.54159E-11_JPRB,0.55861E-11_JPRB,0.57406E-11_JPRB,0.58465E-11_JPRB /)  
+KB(:,53, 6) = (/ &
+ & 0.42017E-11_JPRB,0.43985E-11_JPRB,0.45525E-11_JPRB,0.46862E-11_JPRB,0.47817E-11_JPRB /)  
+KB(:,54, 6) = (/ &
+ & 0.33953E-11_JPRB,0.35701E-11_JPRB,0.37080E-11_JPRB,0.38204E-11_JPRB,0.39118E-11_JPRB /)  
+KB(:,55, 6) = (/ &
+ & 0.27420E-11_JPRB,0.28948E-11_JPRB,0.30166E-11_JPRB,0.31148E-11_JPRB,0.31981E-11_JPRB /)  
+KB(:,56, 6) = (/ &
+ & 0.22097E-11_JPRB,0.23440E-11_JPRB,0.24518E-11_JPRB,0.25378E-11_JPRB,0.26122E-11_JPRB /)  
+KB(:,57, 6) = (/ &
+ & 0.17765E-11_JPRB,0.18968E-11_JPRB,0.19913E-11_JPRB,0.20659E-11_JPRB,0.21319E-11_JPRB /)  
+KB(:,58, 6) = (/ &
+ & 0.14264E-11_JPRB,0.15324E-11_JPRB,0.16166E-11_JPRB,0.16816E-11_JPRB,0.17374E-11_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART13',1,ZHOOK_HANDLE)
+END SUBROUTINE PART13
+
+
+SUBROUTINE PART14
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART14',0,ZHOOK_HANDLE)
+
+
+KB(:,59, 6) = (/ &
+ & 0.11621E-11_JPRB,0.12515E-11_JPRB,0.13230E-11_JPRB,0.13773E-11_JPRB,0.14240E-11_JPRB /)  
+KB(:,13, 7) = (/ &
+ & 0.28079E-07_JPRB,0.28035E-07_JPRB,0.27949E-07_JPRB,0.27835E-07_JPRB,0.27661E-07_JPRB /)  
+KB(:,14, 7) = (/ &
+ & 0.23041E-07_JPRB,0.22982E-07_JPRB,0.22914E-07_JPRB,0.22814E-07_JPRB,0.22653E-07_JPRB /)  
+KB(:,15, 7) = (/ &
+ & 0.18899E-07_JPRB,0.18860E-07_JPRB,0.18790E-07_JPRB,0.18675E-07_JPRB,0.18596E-07_JPRB /)  
+KB(:,16, 7) = (/ &
+ & 0.15489E-07_JPRB,0.15457E-07_JPRB,0.15389E-07_JPRB,0.15337E-07_JPRB,0.15329E-07_JPRB /)  
+KB(:,17, 7) = (/ &
+ & 0.12699E-07_JPRB,0.12665E-07_JPRB,0.12634E-07_JPRB,0.12640E-07_JPRB,0.12612E-07_JPRB /)  
+KB(:,18, 7) = (/ &
+ & 0.10409E-07_JPRB,0.10397E-07_JPRB,0.10401E-07_JPRB,0.10391E-07_JPRB,0.10368E-07_JPRB /)  
+KB(:,19, 7) = (/ &
+ & 0.85482E-08_JPRB,0.85403E-08_JPRB,0.85408E-08_JPRB,0.85379E-08_JPRB,0.85325E-08_JPRB /)  
+KB(:,20, 7) = (/ &
+ & 0.70183E-08_JPRB,0.70212E-08_JPRB,0.70225E-08_JPRB,0.70232E-08_JPRB,0.70243E-08_JPRB /)  
+KB(:,21, 7) = (/ &
+ & 0.57704E-08_JPRB,0.57836E-08_JPRB,0.57919E-08_JPRB,0.57990E-08_JPRB,0.58135E-08_JPRB /)  
+KB(:,22, 7) = (/ &
+ & 0.47522E-08_JPRB,0.47673E-08_JPRB,0.47834E-08_JPRB,0.48084E-08_JPRB,0.48239E-08_JPRB /)  
+KB(:,23, 7) = (/ &
+ & 0.39186E-08_JPRB,0.39439E-08_JPRB,0.39679E-08_JPRB,0.39863E-08_JPRB,0.40063E-08_JPRB /)  
+KB(:,24, 7) = (/ &
+ & 0.32407E-08_JPRB,0.32645E-08_JPRB,0.32840E-08_JPRB,0.33039E-08_JPRB,0.33353E-08_JPRB /)  
+KB(:,25, 7) = (/ &
+ & 0.26846E-08_JPRB,0.27012E-08_JPRB,0.27199E-08_JPRB,0.27477E-08_JPRB,0.27761E-08_JPRB /)  
+KB(:,26, 7) = (/ &
+ & 0.22196E-08_JPRB,0.22367E-08_JPRB,0.22646E-08_JPRB,0.22896E-08_JPRB,0.23141E-08_JPRB /)  
+KB(:,27, 7) = (/ &
+ & 0.18370E-08_JPRB,0.18616E-08_JPRB,0.18864E-08_JPRB,0.19087E-08_JPRB,0.19319E-08_JPRB /)  
+KB(:,28, 7) = (/ &
+ & 0.15259E-08_JPRB,0.15495E-08_JPRB,0.15695E-08_JPRB,0.15912E-08_JPRB,0.16152E-08_JPRB /)  
+KB(:,29, 7) = (/ &
+ & 0.12717E-08_JPRB,0.12907E-08_JPRB,0.13087E-08_JPRB,0.13304E-08_JPRB,0.13523E-08_JPRB /)  
+KB(:,30, 7) = (/ &
+ & 0.10599E-08_JPRB,0.10765E-08_JPRB,0.10939E-08_JPRB,0.11139E-08_JPRB,0.11374E-08_JPRB /)  
+KB(:,31, 7) = (/ &
+ & 0.88411E-09_JPRB,0.89833E-09_JPRB,0.91628E-09_JPRB,0.93662E-09_JPRB,0.95540E-09_JPRB /)  
+KB(:,32, 7) = (/ &
+ & 0.73723E-09_JPRB,0.75198E-09_JPRB,0.77042E-09_JPRB,0.78608E-09_JPRB,0.80601E-09_JPRB /)  
+KB(:,33, 7) = (/ &
+ & 0.61511E-09_JPRB,0.63161E-09_JPRB,0.64646E-09_JPRB,0.66232E-09_JPRB,0.68095E-09_JPRB /)  
+KB(:,34, 7) = (/ &
+ & 0.51621E-09_JPRB,0.53001E-09_JPRB,0.54332E-09_JPRB,0.55986E-09_JPRB,0.57326E-09_JPRB /)  
+KB(:,35, 7) = (/ &
+ & 0.43217E-09_JPRB,0.44439E-09_JPRB,0.45713E-09_JPRB,0.47103E-09_JPRB,0.48242E-09_JPRB /)  
+KB(:,36, 7) = (/ &
+ & 0.36090E-09_JPRB,0.37166E-09_JPRB,0.38311E-09_JPRB,0.39461E-09_JPRB,0.40545E-09_JPRB /)  
+KB(:,37, 7) = (/ &
+ & 0.29990E-09_JPRB,0.30916E-09_JPRB,0.31937E-09_JPRB,0.32943E-09_JPRB,0.34038E-09_JPRB /)  
+KB(:,38, 7) = (/ &
+ & 0.24927E-09_JPRB,0.25737E-09_JPRB,0.26638E-09_JPRB,0.27543E-09_JPRB,0.28596E-09_JPRB /)  
+KB(:,39, 7) = (/ &
+ & 0.20718E-09_JPRB,0.21434E-09_JPRB,0.22203E-09_JPRB,0.23026E-09_JPRB,0.23966E-09_JPRB /)  
+KB(:,40, 7) = (/ &
+ & 0.17122E-09_JPRB,0.17745E-09_JPRB,0.18425E-09_JPRB,0.19138E-09_JPRB,0.19937E-09_JPRB /)  
+KB(:,41, 7) = (/ &
+ & 0.14145E-09_JPRB,0.14673E-09_JPRB,0.15273E-09_JPRB,0.15885E-09_JPRB,0.16544E-09_JPRB /)  
+KB(:,42, 7) = (/ &
+ & 0.11673E-09_JPRB,0.12130E-09_JPRB,0.12626E-09_JPRB,0.13156E-09_JPRB,0.13718E-09_JPRB /)  
+KB(:,43, 7) = (/ &
+ & 0.95979E-10_JPRB,0.99773E-10_JPRB,0.10407E-09_JPRB,0.10848E-09_JPRB,0.11289E-09_JPRB /)  
+KB(:,44, 7) = (/ &
+ & 0.78684E-10_JPRB,0.81894E-10_JPRB,0.85476E-10_JPRB,0.89249E-10_JPRB,0.92971E-10_JPRB /)  
+KB(:,45, 7) = (/ &
+ & 0.64482E-10_JPRB,0.67161E-10_JPRB,0.70163E-10_JPRB,0.73315E-10_JPRB,0.76486E-10_JPRB /)  
+KB(:,46, 7) = (/ &
+ & 0.52720E-10_JPRB,0.54998E-10_JPRB,0.57509E-10_JPRB,0.60128E-10_JPRB,0.62787E-10_JPRB /)  
+KB(:,47, 7) = (/ &
+ & 0.42902E-10_JPRB,0.44887E-10_JPRB,0.46948E-10_JPRB,0.49098E-10_JPRB,0.51392E-10_JPRB /)  
+KB(:,48, 7) = (/ &
+ & 0.34914E-10_JPRB,0.36612E-10_JPRB,0.38268E-10_JPRB,0.40114E-10_JPRB,0.41998E-10_JPRB /)  
+KB(:,49, 7) = (/ &
+ & 0.28363E-10_JPRB,0.29830E-10_JPRB,0.31160E-10_JPRB,0.32712E-10_JPRB,0.34278E-10_JPRB /)  
+KB(:,50, 7) = (/ &
+ & 0.23044E-10_JPRB,0.24298E-10_JPRB,0.25411E-10_JPRB,0.26663E-10_JPRB,0.27956E-10_JPRB /)  
+KB(:,51, 7) = (/ &
+ & 0.18719E-10_JPRB,0.19762E-10_JPRB,0.20717E-10_JPRB,0.21748E-10_JPRB,0.22834E-10_JPRB /)  
+KB(:,52, 7) = (/ &
+ & 0.15214E-10_JPRB,0.16060E-10_JPRB,0.16882E-10_JPRB,0.17722E-10_JPRB,0.18609E-10_JPRB /)  
+KB(:,53, 7) = (/ &
+ & 0.12339E-10_JPRB,0.13039E-10_JPRB,0.13738E-10_JPRB,0.14413E-10_JPRB,0.15144E-10_JPRB /)  
+KB(:,54, 7) = (/ &
+ & 0.10028E-10_JPRB,0.10589E-10_JPRB,0.11176E-10_JPRB,0.11743E-10_JPRB,0.12340E-10_JPRB /)  
+KB(:,55, 7) = (/ &
+ & 0.81332E-11_JPRB,0.85988E-11_JPRB,0.90904E-11_JPRB,0.95545E-11_JPRB,0.10057E-10_JPRB /)  
+KB(:,56, 7) = (/ &
+ & 0.66047E-11_JPRB,0.69777E-11_JPRB,0.73796E-11_JPRB,0.77755E-11_JPRB,0.81880E-11_JPRB /)  
+KB(:,57, 7) = (/ &
+ & 0.53536E-11_JPRB,0.56554E-11_JPRB,0.59940E-11_JPRB,0.63232E-11_JPRB,0.66612E-11_JPRB /)  
+KB(:,58, 7) = (/ &
+ & 0.43329E-11_JPRB,0.45903E-11_JPRB,0.48661E-11_JPRB,0.51412E-11_JPRB,0.54200E-11_JPRB /)  
+KB(:,59, 7) = (/ &
+ & 0.35522E-11_JPRB,0.37646E-11_JPRB,0.39940E-11_JPRB,0.42211E-11_JPRB,0.44525E-11_JPRB /)  
+KB(:,13, 8) = (/ &
+ & 0.11230E-06_JPRB,0.11409E-06_JPRB,0.11566E-06_JPRB,0.11672E-06_JPRB,0.11734E-06_JPRB /)  
+KB(:,14, 8) = (/ &
+ & 0.92428E-07_JPRB,0.93878E-07_JPRB,0.95014E-07_JPRB,0.95711E-07_JPRB,0.96110E-07_JPRB /)  
+KB(:,15, 8) = (/ &
+ & 0.76021E-07_JPRB,0.77148E-07_JPRB,0.77913E-07_JPRB,0.78505E-07_JPRB,0.78756E-07_JPRB /)  
+KB(:,16, 8) = (/ &
+ & 0.62512E-07_JPRB,0.63402E-07_JPRB,0.63979E-07_JPRB,0.64292E-07_JPRB,0.64352E-07_JPRB /)  
+KB(:,17, 8) = (/ &
+ & 0.51480E-07_JPRB,0.52099E-07_JPRB,0.52465E-07_JPRB,0.52634E-07_JPRB,0.52753E-07_JPRB /)  
+KB(:,18, 8) = (/ &
+ & 0.42336E-07_JPRB,0.42773E-07_JPRB,0.43015E-07_JPRB,0.43145E-07_JPRB,0.43290E-07_JPRB /)  
+KB(:,19, 8) = (/ &
+ & 0.34820E-07_JPRB,0.35138E-07_JPRB,0.35326E-07_JPRB,0.35465E-07_JPRB,0.35546E-07_JPRB /)  
+KB(:,20, 8) = (/ &
+ & 0.28634E-07_JPRB,0.28882E-07_JPRB,0.29099E-07_JPRB,0.29190E-07_JPRB,0.29248E-07_JPRB /)  
+KB(:,21, 8) = (/ &
+ & 0.23527E-07_JPRB,0.23767E-07_JPRB,0.23879E-07_JPRB,0.24001E-07_JPRB,0.24136E-07_JPRB /)  
+KB(:,22, 8) = (/ &
+ & 0.19380E-07_JPRB,0.19526E-07_JPRB,0.19668E-07_JPRB,0.19823E-07_JPRB,0.20000E-07_JPRB /)  
+KB(:,23, 8) = (/ &
+ & 0.15955E-07_JPRB,0.16103E-07_JPRB,0.16252E-07_JPRB,0.16425E-07_JPRB,0.16561E-07_JPRB /)  
+KB(:,24, 8) = (/ &
+ & 0.13163E-07_JPRB,0.13294E-07_JPRB,0.13466E-07_JPRB,0.13609E-07_JPRB,0.13701E-07_JPRB /)  
+KB(:,25, 8) = (/ &
+ & 0.10863E-07_JPRB,0.11029E-07_JPRB,0.11155E-07_JPRB,0.11256E-07_JPRB,0.11368E-07_JPRB /)  
+KB(:,26, 8) = (/ &
+ & 0.90043E-08_JPRB,0.91173E-08_JPRB,0.92226E-08_JPRB,0.93261E-08_JPRB,0.94322E-08_JPRB /)  
+KB(:,27, 8) = (/ &
+ & 0.74604E-08_JPRB,0.75548E-08_JPRB,0.76410E-08_JPRB,0.77390E-08_JPRB,0.78488E-08_JPRB /)  
+KB(:,28, 8) = (/ &
+ & 0.61944E-08_JPRB,0.62754E-08_JPRB,0.63658E-08_JPRB,0.64728E-08_JPRB,0.65523E-08_JPRB /)  
+KB(:,29, 8) = (/ &
+ & 0.51553E-08_JPRB,0.52390E-08_JPRB,0.53444E-08_JPRB,0.54244E-08_JPRB,0.55104E-08_JPRB /)  
+KB(:,30, 8) = (/ &
+ & 0.43022E-08_JPRB,0.44056E-08_JPRB,0.44906E-08_JPRB,0.45753E-08_JPRB,0.46815E-08_JPRB /)  
+KB(:,31, 8) = (/ &
+ & 0.36260E-08_JPRB,0.37147E-08_JPRB,0.37854E-08_JPRB,0.38857E-08_JPRB,0.39725E-08_JPRB /)  
+KB(:,32, 8) = (/ &
+ & 0.30574E-08_JPRB,0.31222E-08_JPRB,0.32149E-08_JPRB,0.32959E-08_JPRB,0.33679E-08_JPRB /)  
+KB(:,33, 8) = (/ &
+ & 0.25690E-08_JPRB,0.26475E-08_JPRB,0.27306E-08_JPRB,0.27942E-08_JPRB,0.28607E-08_JPRB /)  
+KB(:,34, 8) = (/ &
+ & 0.21739E-08_JPRB,0.22522E-08_JPRB,0.23131E-08_JPRB,0.23724E-08_JPRB,0.24398E-08_JPRB /)  
+KB(:,35, 8) = (/ &
+ & 0.18403E-08_JPRB,0.19033E-08_JPRB,0.19580E-08_JPRB,0.20191E-08_JPRB,0.20792E-08_JPRB /)  
+KB(:,36, 8) = (/ &
+ & 0.15538E-08_JPRB,0.16068E-08_JPRB,0.16535E-08_JPRB,0.17159E-08_JPRB,0.17681E-08_JPRB /)  
+KB(:,37, 8) = (/ &
+ & 0.13002E-08_JPRB,0.13483E-08_JPRB,0.13923E-08_JPRB,0.14493E-08_JPRB,0.14927E-08_JPRB /)  
+KB(:,38, 8) = (/ &
+ & 0.10893E-08_JPRB,0.11319E-08_JPRB,0.11765E-08_JPRB,0.12253E-08_JPRB,0.12624E-08_JPRB /)  
+KB(:,39, 8) = (/ &
+ & 0.91348E-09_JPRB,0.95067E-09_JPRB,0.99134E-09_JPRB,0.10293E-08_JPRB,0.10668E-08_JPRB /)  
+KB(:,40, 8) = (/ &
+ & 0.76170E-09_JPRB,0.79404E-09_JPRB,0.82953E-09_JPRB,0.86548E-09_JPRB,0.90041E-09_JPRB /)  
+KB(:,41, 8) = (/ &
+ & 0.63292E-09_JPRB,0.66170E-09_JPRB,0.69363E-09_JPRB,0.72573E-09_JPRB,0.75710E-09_JPRB /)  
+KB(:,42, 8) = (/ &
+ & 0.52609E-09_JPRB,0.55120E-09_JPRB,0.57974E-09_JPRB,0.60803E-09_JPRB,0.63636E-09_JPRB /)  
+KB(:,43, 8) = (/ &
+ & 0.43444E-09_JPRB,0.45674E-09_JPRB,0.48206E-09_JPRB,0.50747E-09_JPRB,0.53053E-09_JPRB /)  
+KB(:,44, 8) = (/ &
+ & 0.35755E-09_JPRB,0.37758E-09_JPRB,0.39965E-09_JPRB,0.42169E-09_JPRB,0.44276E-09_JPRB /)  
+KB(:,45, 8) = (/ &
+ & 0.29410E-09_JPRB,0.31126E-09_JPRB,0.33079E-09_JPRB,0.35014E-09_JPRB,0.36874E-09_JPRB /)  
+KB(:,46, 8) = (/ &
+ & 0.24113E-09_JPRB,0.25605E-09_JPRB,0.27273E-09_JPRB,0.28962E-09_JPRB,0.30646E-09_JPRB /)  
+KB(:,47, 8) = (/ &
+ & 0.19675E-09_JPRB,0.20937E-09_JPRB,0.22390E-09_JPRB,0.23865E-09_JPRB,0.25330E-09_JPRB /)  
+KB(:,48, 8) = (/ &
+ & 0.16029E-09_JPRB,0.17125E-09_JPRB,0.18339E-09_JPRB,0.19620E-09_JPRB,0.20918E-09_JPRB /)  
+KB(:,49, 8) = (/ &
+ & 0.13018E-09_JPRB,0.13961E-09_JPRB,0.15020E-09_JPRB,0.16108E-09_JPRB,0.17231E-09_JPRB /)  
+KB(:,50, 8) = (/ &
+ & 0.10559E-09_JPRB,0.11394E-09_JPRB,0.12271E-09_JPRB,0.13208E-09_JPRB,0.14200E-09_JPRB /)  
+KB(:,51, 8) = (/ &
+ & 0.85569E-10_JPRB,0.92775E-10_JPRB,0.10011E-09_JPRB,0.10818E-09_JPRB,0.11665E-09_JPRB /)  
+KB(:,52, 8) = (/ &
+ & 0.69342E-10_JPRB,0.75341E-10_JPRB,0.81596E-10_JPRB,0.88527E-10_JPRB,0.95876E-10_JPRB /)  
+KB(:,53, 8) = (/ &
+ & 0.56003E-10_JPRB,0.61203E-10_JPRB,0.66389E-10_JPRB,0.72376E-10_JPRB,0.78642E-10_JPRB /)  
+KB(:,54, 8) = (/ &
+ & 0.45380E-10_JPRB,0.49599E-10_JPRB,0.54006E-10_JPRB,0.59069E-10_JPRB,0.64380E-10_JPRB /)  
+KB(:,55, 8) = (/ &
+ & 0.36637E-10_JPRB,0.40078E-10_JPRB,0.43990E-10_JPRB,0.48279E-10_JPRB,0.52815E-10_JPRB /)  
+KB(:,56, 8) = (/ &
+ & 0.29596E-10_JPRB,0.32455E-10_JPRB,0.35694E-10_JPRB,0.39315E-10_JPRB,0.43169E-10_JPRB /)  
+KB(:,57, 8) = (/ &
+ & 0.23911E-10_JPRB,0.26268E-10_JPRB,0.28916E-10_JPRB,0.31929E-10_JPRB,0.35182E-10_JPRB /)  
+KB(:,58, 8) = (/ &
+ & 0.19299E-10_JPRB,0.21198E-10_JPRB,0.23407E-10_JPRB,0.25936E-10_JPRB,0.28689E-10_JPRB /)  
+KB(:,59, 8) = (/ &
+ & 0.15839E-10_JPRB,0.17448E-10_JPRB,0.19334E-10_JPRB,0.21469E-10_JPRB,0.23829E-10_JPRB /)  
+KB(:,13, 9) = (/ &
+ & 0.96471E-06_JPRB,0.97408E-06_JPRB,0.98436E-06_JPRB,0.99439E-06_JPRB,0.10050E-05_JPRB /)  
+KB(:,14, 9) = (/ &
+ & 0.80904E-06_JPRB,0.81838E-06_JPRB,0.82742E-06_JPRB,0.83703E-06_JPRB,0.84742E-06_JPRB /)  
+KB(:,15, 9) = (/ &
+ & 0.67733E-06_JPRB,0.68563E-06_JPRB,0.69403E-06_JPRB,0.70345E-06_JPRB,0.71287E-06_JPRB /)  
+KB(:,16, 9) = (/ &
+ & 0.56582E-06_JPRB,0.57313E-06_JPRB,0.58159E-06_JPRB,0.59012E-06_JPRB,0.59880E-06_JPRB /)  
+KB(:,17, 9) = (/ &
+ & 0.47164E-06_JPRB,0.47892E-06_JPRB,0.48671E-06_JPRB,0.49436E-06_JPRB,0.50258E-06_JPRB /)  
+KB(:,18, 9) = (/ &
+ & 0.39308E-06_JPRB,0.39992E-06_JPRB,0.40685E-06_JPRB,0.41415E-06_JPRB,0.42143E-06_JPRB /)  
+KB(:,19, 9) = (/ &
+ & 0.32764E-06_JPRB,0.33370E-06_JPRB,0.34000E-06_JPRB,0.34660E-06_JPRB,0.35294E-06_JPRB /)  
+KB(:,20, 9) = (/ &
+ & 0.27304E-06_JPRB,0.27855E-06_JPRB,0.28433E-06_JPRB,0.29002E-06_JPRB,0.29550E-06_JPRB /)  
+KB(:,21, 9) = (/ &
+ & 0.22762E-06_JPRB,0.23263E-06_JPRB,0.23776E-06_JPRB,0.24264E-06_JPRB,0.24751E-06_JPRB /)  
+KB(:,22, 9) = (/ &
+ & 0.19016E-06_JPRB,0.19467E-06_JPRB,0.19902E-06_JPRB,0.20331E-06_JPRB,0.20743E-06_JPRB /)  
+KB(:,23, 9) = (/ &
+ & 0.15902E-06_JPRB,0.16285E-06_JPRB,0.16664E-06_JPRB,0.17032E-06_JPRB,0.17381E-06_JPRB /)  
+KB(:,24, 9) = (/ &
+ & 0.13300E-06_JPRB,0.13639E-06_JPRB,0.13965E-06_JPRB,0.14271E-06_JPRB,0.14575E-06_JPRB /)  
+KB(:,25, 9) = (/ &
+ & 0.11136E-06_JPRB,0.11428E-06_JPRB,0.11705E-06_JPRB,0.11966E-06_JPRB,0.12234E-06_JPRB /)  
+KB(:,26, 9) = (/ &
+ & 0.93355E-07_JPRB,0.95870E-07_JPRB,0.98179E-07_JPRB,0.10046E-06_JPRB,0.10295E-06_JPRB /)  
+KB(:,27, 9) = (/ &
+ & 0.78546E-07_JPRB,0.80656E-07_JPRB,0.82694E-07_JPRB,0.84793E-07_JPRB,0.87129E-07_JPRB /)  
+KB(:,28, 9) = (/ &
+ & 0.65991E-07_JPRB,0.67786E-07_JPRB,0.69602E-07_JPRB,0.71624E-07_JPRB,0.74063E-07_JPRB /)  
+KB(:,29, 9) = (/ &
+ & 0.55459E-07_JPRB,0.56995E-07_JPRB,0.58695E-07_JPRB,0.60741E-07_JPRB,0.63281E-07_JPRB /)  
+KB(:,30, 9) = (/ &
+ & 0.46750E-07_JPRB,0.48054E-07_JPRB,0.49703E-07_JPRB,0.51793E-07_JPRB,0.54403E-07_JPRB /)  
+KB(:,31, 9) = (/ &
+ & 0.39452E-07_JPRB,0.40727E-07_JPRB,0.42319E-07_JPRB,0.44486E-07_JPRB,0.47323E-07_JPRB /)  
+KB(:,32, 9) = (/ &
+ & 0.33473E-07_JPRB,0.34884E-07_JPRB,0.36502E-07_JPRB,0.38781E-07_JPRB,0.41735E-07_JPRB /)  
+KB(:,33, 9) = (/ &
+ & 0.28581E-07_JPRB,0.30008E-07_JPRB,0.31748E-07_JPRB,0.34217E-07_JPRB,0.37511E-07_JPRB /)  
+KB(:,34, 9) = (/ &
+ & 0.24450E-07_JPRB,0.25951E-07_JPRB,0.27867E-07_JPRB,0.30565E-07_JPRB,0.34125E-07_JPRB /)  
+KB(:,35, 9) = (/ &
+ & 0.20942E-07_JPRB,0.22554E-07_JPRB,0.24574E-07_JPRB,0.27409E-07_JPRB,0.31159E-07_JPRB /)  
+KB(:,36, 9) = (/ &
+ & 0.18081E-07_JPRB,0.19648E-07_JPRB,0.21657E-07_JPRB,0.24573E-07_JPRB,0.28429E-07_JPRB /)  
+KB(:,37, 9) = (/ &
+ & 0.15436E-07_JPRB,0.16978E-07_JPRB,0.19037E-07_JPRB,0.21710E-07_JPRB,0.25509E-07_JPRB /)  
+KB(:,38, 9) = (/ &
+ & 0.13187E-07_JPRB,0.14690E-07_JPRB,0.16738E-07_JPRB,0.19257E-07_JPRB,0.22992E-07_JPRB /)  
+KB(:,39, 9) = (/ &
+ & 0.11282E-07_JPRB,0.12751E-07_JPRB,0.14794E-07_JPRB,0.17292E-07_JPRB,0.20852E-07_JPRB /)  
+KB(:,40, 9) = (/ &
+ & 0.96293E-08_JPRB,0.10973E-07_JPRB,0.12917E-07_JPRB,0.15272E-07_JPRB,0.18582E-07_JPRB /)  
+KB(:,41, 9) = (/ &
+ & 0.81770E-08_JPRB,0.94352E-08_JPRB,0.11220E-07_JPRB,0.13516E-07_JPRB,0.16546E-07_JPRB /)  
+KB(:,42, 9) = (/ &
+ & 0.69323E-08_JPRB,0.80750E-08_JPRB,0.97479E-08_JPRB,0.11964E-07_JPRB,0.14736E-07_JPRB /)  
+KB(:,43, 9) = (/ &
+ & 0.58312E-08_JPRB,0.68571E-08_JPRB,0.83595E-08_JPRB,0.10414E-07_JPRB,0.12928E-07_JPRB /)  
+KB(:,44, 9) = (/ &
+ & 0.48754E-08_JPRB,0.58128E-08_JPRB,0.71504E-08_JPRB,0.90270E-08_JPRB,0.11362E-07_JPRB /)  
+KB(:,45, 9) = (/ &
+ & 0.40522E-08_JPRB,0.48841E-08_JPRB,0.60765E-08_JPRB,0.77697E-08_JPRB,0.99439E-08_JPRB /)  
+KB(:,46, 9) = (/ &
+ & 0.33429E-08_JPRB,0.40820E-08_JPRB,0.51038E-08_JPRB,0.66237E-08_JPRB,0.86427E-08_JPRB /)  
+KB(:,47, 9) = (/ &
+ & 0.27297E-08_JPRB,0.33571E-08_JPRB,0.42806E-08_JPRB,0.55863E-08_JPRB,0.73605E-08_JPRB /)  
+KB(:,48, 9) = (/ &
+ & 0.22143E-08_JPRB,0.27445E-08_JPRB,0.35414E-08_JPRB,0.46711E-08_JPRB,0.62204E-08_JPRB /)  
+KB(:,49, 9) = (/ &
+ & 0.18030E-08_JPRB,0.22208E-08_JPRB,0.28995E-08_JPRB,0.38639E-08_JPRB,0.52216E-08_JPRB /)  
+KB(:,50, 9) = (/ &
+ & 0.14670E-08_JPRB,0.18085E-08_JPRB,0.23853E-08_JPRB,0.32522E-08_JPRB,0.44284E-08_JPRB /)  
+KB(:,51, 9) = (/ &
+ & 0.11873E-08_JPRB,0.14637E-08_JPRB,0.19592E-08_JPRB,0.27073E-08_JPRB,0.37306E-08_JPRB /)  
+KB(:,52, 9) = (/ &
+ & 0.96876E-09_JPRB,0.11883E-08_JPRB,0.15881E-08_JPRB,0.22316E-08_JPRB,0.31252E-08_JPRB /)  
+KB(:,53, 9) = (/ &
+ & 0.79526E-09_JPRB,0.95443E-09_JPRB,0.12843E-08_JPRB,0.18180E-08_JPRB,0.25992E-08_JPRB /)  
+KB(:,54, 9) = (/ &
+ & 0.65045E-09_JPRB,0.77197E-09_JPRB,0.10500E-08_JPRB,0.14963E-08_JPRB,0.21953E-08_JPRB /)  
+KB(:,55, 9) = (/ &
+ & 0.53001E-09_JPRB,0.62144E-09_JPRB,0.84441E-09_JPRB,0.12265E-08_JPRB,0.18415E-08_JPRB /)  
+KB(:,56, 9) = (/ &
+ & 0.43274E-09_JPRB,0.50433E-09_JPRB,0.67633E-09_JPRB,0.10051E-08_JPRB,0.15294E-08_JPRB /)  
+KB(:,57, 9) = (/ &
+ & 0.35151E-09_JPRB,0.40652E-09_JPRB,0.53819E-09_JPRB,0.80840E-09_JPRB,0.12530E-08_JPRB /)  
+KB(:,58, 9) = (/ &
+ & 0.28511E-09_JPRB,0.33047E-09_JPRB,0.42809E-09_JPRB,0.65584E-09_JPRB,0.10383E-08_JPRB /)  
+KB(:,59, 9) = (/ &
+ & 0.23557E-09_JPRB,0.27695E-09_JPRB,0.36588E-09_JPRB,0.57468E-09_JPRB,0.92796E-09_JPRB /)  
+KB(:,13,10) = (/ &
+ & 0.49379E-05_JPRB,0.50469E-05_JPRB,0.51595E-05_JPRB,0.52778E-05_JPRB,0.54099E-05_JPRB /)  
+KB(:,14,10) = (/ &
+ & 0.42812E-05_JPRB,0.43888E-05_JPRB,0.45022E-05_JPRB,0.46302E-05_JPRB,0.47669E-05_JPRB /)  
+KB(:,15,10) = (/ &
+ & 0.36929E-05_JPRB,0.37965E-05_JPRB,0.39164E-05_JPRB,0.40454E-05_JPRB,0.41827E-05_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART14',1,ZHOOK_HANDLE)
+END SUBROUTINE PART14
+
+
+SUBROUTINE PART15
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART15',0,ZHOOK_HANDLE)
+
+
+KB(:,16,10) = (/ &
+ & 0.31721E-05_JPRB,0.32791E-05_JPRB,0.33975E-05_JPRB,0.35246E-05_JPRB,0.36634E-05_JPRB /)  
+KB(:,17,10) = (/ &
+ & 0.27212E-05_JPRB,0.28264E-05_JPRB,0.29414E-05_JPRB,0.30666E-05_JPRB,0.32085E-05_JPRB /)  
+KB(:,18,10) = (/ &
+ & 0.23339E-05_JPRB,0.24330E-05_JPRB,0.25438E-05_JPRB,0.26711E-05_JPRB,0.28184E-05_JPRB /)  
+KB(:,19,10) = (/ &
+ & 0.19987E-05_JPRB,0.20932E-05_JPRB,0.22036E-05_JPRB,0.23332E-05_JPRB,0.24834E-05_JPRB /)  
+KB(:,20,10) = (/ &
+ & 0.17132E-05_JPRB,0.18061E-05_JPRB,0.19176E-05_JPRB,0.20491E-05_JPRB,0.21989E-05_JPRB /)  
+KB(:,21,10) = (/ &
+ & 0.14710E-05_JPRB,0.15640E-05_JPRB,0.16759E-05_JPRB,0.18061E-05_JPRB,0.19600E-05_JPRB /)  
+KB(:,22,10) = (/ &
+ & 0.12737E-05_JPRB,0.13668E-05_JPRB,0.14788E-05_JPRB,0.16132E-05_JPRB,0.17763E-05_JPRB /)  
+KB(:,23,10) = (/ &
+ & 0.11088E-05_JPRB,0.12015E-05_JPRB,0.13166E-05_JPRB,0.14583E-05_JPRB,0.16304E-05_JPRB /)  
+KB(:,24,10) = (/ &
+ & 0.97145E-06_JPRB,0.10662E-05_JPRB,0.11867E-05_JPRB,0.13370E-05_JPRB,0.15170E-05_JPRB /)  
+KB(:,25,10) = (/ &
+ & 0.85857E-06_JPRB,0.95791E-06_JPRB,0.10855E-05_JPRB,0.12438E-05_JPRB,0.14327E-05_JPRB /)  
+KB(:,26,10) = (/ &
+ & 0.76914E-06_JPRB,0.87488E-06_JPRB,0.10107E-05_JPRB,0.11782E-05_JPRB,0.13762E-05_JPRB /)  
+KB(:,27,10) = (/ &
+ & 0.69709E-06_JPRB,0.81000E-06_JPRB,0.95427E-06_JPRB,0.11311E-05_JPRB,0.13395E-05_JPRB /)  
+KB(:,28,10) = (/ &
+ & 0.64352E-06_JPRB,0.76453E-06_JPRB,0.91846E-06_JPRB,0.11047E-05_JPRB,0.13225E-05_JPRB /)  
+KB(:,29,10) = (/ &
+ & 0.60601E-06_JPRB,0.73668E-06_JPRB,0.90033E-06_JPRB,0.10967E-05_JPRB,0.13241E-05_JPRB /)  
+KB(:,30,10) = (/ &
+ & 0.58144E-06_JPRB,0.72277E-06_JPRB,0.89681E-06_JPRB,0.11031E-05_JPRB,0.13400E-05_JPRB /)  
+KB(:,31,10) = (/ &
+ & 0.57013E-06_JPRB,0.72161E-06_JPRB,0.90691E-06_JPRB,0.11230E-05_JPRB,0.13684E-05_JPRB /)  
+KB(:,32,10) = (/ &
+ & 0.57021E-06_JPRB,0.73098E-06_JPRB,0.92629E-06_JPRB,0.11521E-05_JPRB,0.14071E-05_JPRB /)  
+KB(:,33,10) = (/ &
+ & 0.58025E-06_JPRB,0.75106E-06_JPRB,0.95601E-06_JPRB,0.11909E-05_JPRB,0.14530E-05_JPRB /)  
+KB(:,34,10) = (/ &
+ & 0.59352E-06_JPRB,0.77298E-06_JPRB,0.98581E-06_JPRB,0.12280E-05_JPRB,0.14964E-05_JPRB /)  
+KB(:,35,10) = (/ &
+ & 0.59731E-06_JPRB,0.78147E-06_JPRB,0.99919E-06_JPRB,0.12457E-05_JPRB,0.15176E-05_JPRB /)  
+KB(:,36,10) = (/ &
+ & 0.58516E-06_JPRB,0.77138E-06_JPRB,0.99076E-06_JPRB,0.12378E-05_JPRB,0.15105E-05_JPRB /)  
+KB(:,37,10) = (/ &
+ & 0.55140E-06_JPRB,0.73346E-06_JPRB,0.94817E-06_JPRB,0.11937E-05_JPRB,0.14631E-05_JPRB /)  
+KB(:,38,10) = (/ &
+ & 0.51916E-06_JPRB,0.69705E-06_JPRB,0.90723E-06_JPRB,0.11496E-05_JPRB,0.14156E-05_JPRB /)  
+KB(:,39,10) = (/ &
+ & 0.48960E-06_JPRB,0.66318E-06_JPRB,0.86863E-06_JPRB,0.11068E-05_JPRB,0.13701E-05_JPRB /)  
+KB(:,40,10) = (/ &
+ & 0.44595E-06_JPRB,0.61209E-06_JPRB,0.81011E-06_JPRB,0.10412E-05_JPRB,0.12987E-05_JPRB /)  
+KB(:,41,10) = (/ &
+ & 0.40399E-06_JPRB,0.56185E-06_JPRB,0.75199E-06_JPRB,0.97449E-06_JPRB,0.12265E-05_JPRB /)  
+KB(:,42,10) = (/ &
+ & 0.36503E-06_JPRB,0.51494E-06_JPRB,0.69685E-06_JPRB,0.91108E-06_JPRB,0.11565E-05_JPRB /)  
+KB(:,43,10) = (/ &
+ & 0.32174E-06_JPRB,0.46170E-06_JPRB,0.63377E-06_JPRB,0.83820E-06_JPRB,0.10749E-05_JPRB /)  
+KB(:,44,10) = (/ &
+ & 0.27930E-06_JPRB,0.40829E-06_JPRB,0.56968E-06_JPRB,0.76331E-06_JPRB,0.98961E-06_JPRB /)  
+KB(:,45,10) = (/ &
+ & 0.24096E-06_JPRB,0.35938E-06_JPRB,0.50997E-06_JPRB,0.69291E-06_JPRB,0.90837E-06_JPRB /)  
+KB(:,46,10) = (/ &
+ & 0.20431E-06_JPRB,0.31166E-06_JPRB,0.45096E-06_JPRB,0.62224E-06_JPRB,0.82595E-06_JPRB /)  
+KB(:,47,10) = (/ &
+ & 0.16816E-06_JPRB,0.26359E-06_JPRB,0.38972E-06_JPRB,0.54827E-06_JPRB,0.73938E-06_JPRB /)  
+KB(:,48,10) = (/ &
+ & 0.13670E-06_JPRB,0.22070E-06_JPRB,0.33435E-06_JPRB,0.47996E-06_JPRB,0.65830E-06_JPRB /)  
+KB(:,49,10) = (/ &
+ & 0.10953E-06_JPRB,0.18282E-06_JPRB,0.28430E-06_JPRB,0.41725E-06_JPRB,0.58243E-06_JPRB /)  
+KB(:,50,10) = (/ &
+ & 0.88267E-07_JPRB,0.15143E-06_JPRB,0.24199E-06_JPRB,0.36271E-06_JPRB,0.51595E-06_JPRB /)  
+KB(:,51,10) = (/ &
+ & 0.70298E-07_JPRB,0.12484E-06_JPRB,0.20511E-06_JPRB,0.31462E-06_JPRB,0.45605E-06_JPRB /)  
+KB(:,52,10) = (/ &
+ & 0.55131E-07_JPRB,0.10217E-06_JPRB,0.17234E-06_JPRB,0.27088E-06_JPRB,0.40072E-06_JPRB /)  
+KB(:,53,10) = (/ &
+ & 0.43153E-07_JPRB,0.82195E-07_JPRB,0.14318E-06_JPRB,0.23139E-06_JPRB,0.34955E-06_JPRB /)  
+KB(:,54,10) = (/ &
+ & 0.33903E-07_JPRB,0.66466E-07_JPRB,0.12020E-06_JPRB,0.19856E-06_JPRB,0.30630E-06_JPRB /)  
+KB(:,55,10) = (/ &
+ & 0.26416E-07_JPRB,0.53605E-07_JPRB,0.10034E-06_JPRB,0.17017E-06_JPRB,0.26833E-06_JPRB /)  
+KB(:,56,10) = (/ &
+ & 0.20206E-07_JPRB,0.42611E-07_JPRB,0.82928E-07_JPRB,0.14532E-06_JPRB,0.23365E-06_JPRB /)  
+KB(:,57,10) = (/ &
+ & 0.15310E-07_JPRB,0.33413E-07_JPRB,0.67820E-07_JPRB,0.12262E-06_JPRB,0.20213E-06_JPRB /)  
+KB(:,58,10) = (/ &
+ & 0.11722E-07_JPRB,0.26420E-07_JPRB,0.55414E-07_JPRB,0.10347E-06_JPRB,0.17567E-06_JPRB /)  
+KB(:,59,10) = (/ &
+ & 0.10312E-07_JPRB,0.23851E-07_JPRB,0.50918E-07_JPRB,0.96421E-07_JPRB,0.16547E-06_JPRB /)  
+KB(:,13,11) = (/ &
+ & 0.10213E-04_JPRB,0.10492E-04_JPRB,0.10768E-04_JPRB,0.11052E-04_JPRB,0.11341E-04_JPRB /)  
+KB(:,14,11) = (/ &
+ & 0.92065E-05_JPRB,0.95170E-05_JPRB,0.98374E-05_JPRB,0.10166E-04_JPRB,0.10515E-04_JPRB /)  
+KB(:,15,11) = (/ &
+ & 0.82447E-05_JPRB,0.85845E-05_JPRB,0.89388E-05_JPRB,0.93243E-05_JPRB,0.97313E-05_JPRB /)  
+KB(:,16,11) = (/ &
+ & 0.73562E-05_JPRB,0.77204E-05_JPRB,0.81177E-05_JPRB,0.85472E-05_JPRB,0.89941E-05_JPRB /)  
+KB(:,17,11) = (/ &
+ & 0.65534E-05_JPRB,0.69440E-05_JPRB,0.73753E-05_JPRB,0.78408E-05_JPRB,0.83202E-05_JPRB /)  
+KB(:,18,11) = (/ &
+ & 0.58421E-05_JPRB,0.62603E-05_JPRB,0.67231E-05_JPRB,0.72105E-05_JPRB,0.77276E-05_JPRB /)  
+KB(:,19,11) = (/ &
+ & 0.52249E-05_JPRB,0.56681E-05_JPRB,0.61484E-05_JPRB,0.66668E-05_JPRB,0.72285E-05_JPRB /)  
+KB(:,20,11) = (/ &
+ & 0.47032E-05_JPRB,0.51617E-05_JPRB,0.56660E-05_JPRB,0.62226E-05_JPRB,0.68302E-05_JPRB /)  
+KB(:,21,11) = (/ &
+ & 0.42601E-05_JPRB,0.47338E-05_JPRB,0.52698E-05_JPRB,0.58670E-05_JPRB,0.65065E-05_JPRB /)  
+KB(:,22,11) = (/ &
+ & 0.39167E-05_JPRB,0.44205E-05_JPRB,0.49953E-05_JPRB,0.56267E-05_JPRB,0.62956E-05_JPRB /)  
+KB(:,23,11) = (/ &
+ & 0.36499E-05_JPRB,0.41883E-05_JPRB,0.47965E-05_JPRB,0.54568E-05_JPRB,0.61529E-05_JPRB /)  
+KB(:,24,11) = (/ &
+ & 0.34565E-05_JPRB,0.40283E-05_JPRB,0.46653E-05_JPRB,0.53526E-05_JPRB,0.60723E-05_JPRB /)  
+KB(:,25,11) = (/ &
+ & 0.33292E-05_JPRB,0.39315E-05_JPRB,0.45958E-05_JPRB,0.53082E-05_JPRB,0.60473E-05_JPRB /)  
+KB(:,26,11) = (/ &
+ & 0.32653E-05_JPRB,0.38970E-05_JPRB,0.45879E-05_JPRB,0.53204E-05_JPRB,0.60776E-05_JPRB /)  
+KB(:,27,11) = (/ &
+ & 0.32497E-05_JPRB,0.39083E-05_JPRB,0.46221E-05_JPRB,0.53722E-05_JPRB,0.61437E-05_JPRB /)  
+KB(:,28,11) = (/ &
+ & 0.32741E-05_JPRB,0.39580E-05_JPRB,0.46902E-05_JPRB,0.54541E-05_JPRB,0.62354E-05_JPRB /)  
+KB(:,29,11) = (/ &
+ & 0.33369E-05_JPRB,0.40429E-05_JPRB,0.47902E-05_JPRB,0.55664E-05_JPRB,0.63553E-05_JPRB /)  
+KB(:,30,11) = (/ &
+ & 0.34283E-05_JPRB,0.41504E-05_JPRB,0.49124E-05_JPRB,0.56972E-05_JPRB,0.64922E-05_JPRB /)  
+KB(:,31,11) = (/ &
+ & 0.35444E-05_JPRB,0.42823E-05_JPRB,0.50547E-05_JPRB,0.58477E-05_JPRB,0.66477E-05_JPRB /)  
+KB(:,32,11) = (/ &
+ & 0.36801E-05_JPRB,0.44317E-05_JPRB,0.52138E-05_JPRB,0.60136E-05_JPRB,0.68176E-05_JPRB /)  
+KB(:,33,11) = (/ &
+ & 0.38318E-05_JPRB,0.45951E-05_JPRB,0.53855E-05_JPRB,0.61901E-05_JPRB,0.69963E-05_JPRB /)  
+KB(:,34,11) = (/ &
+ & 0.39692E-05_JPRB,0.47416E-05_JPRB,0.55387E-05_JPRB,0.63463E-05_JPRB,0.71529E-05_JPRB /)  
+KB(:,35,11) = (/ &
+ & 0.40413E-05_JPRB,0.48197E-05_JPRB,0.56200E-05_JPRB,0.64302E-05_JPRB,0.72378E-05_JPRB /)  
+KB(:,36,11) = (/ &
+ & 0.40356E-05_JPRB,0.48162E-05_JPRB,0.56178E-05_JPRB,0.64290E-05_JPRB,0.72385E-05_JPRB /)  
+KB(:,37,11) = (/ &
+ & 0.39181E-05_JPRB,0.46953E-05_JPRB,0.54967E-05_JPRB,0.63083E-05_JPRB,0.71198E-05_JPRB /)  
+KB(:,38,11) = (/ &
+ & 0.37977E-05_JPRB,0.45715E-05_JPRB,0.53704E-05_JPRB,0.61820E-05_JPRB,0.69964E-05_JPRB /)  
+KB(:,39,11) = (/ &
+ & 0.36811E-05_JPRB,0.44507E-05_JPRB,0.52481E-05_JPRB,0.60593E-05_JPRB,0.68739E-05_JPRB /)  
+KB(:,40,11) = (/ &
+ & 0.34909E-05_JPRB,0.42522E-05_JPRB,0.50444E-05_JPRB,0.58543E-05_JPRB,0.66697E-05_JPRB /)  
+KB(:,41,11) = (/ &
+ & 0.32953E-05_JPRB,0.40465E-05_JPRB,0.48326E-05_JPRB,0.56401E-05_JPRB,0.64551E-05_JPRB /)  
+KB(:,42,11) = (/ &
+ & 0.31040E-05_JPRB,0.38444E-05_JPRB,0.46230E-05_JPRB,0.54267E-05_JPRB,0.62419E-05_JPRB /)  
+KB(:,43,11) = (/ &
+ & 0.28773E-05_JPRB,0.36028E-05_JPRB,0.43716E-05_JPRB,0.51693E-05_JPRB,0.59825E-05_JPRB /)  
+KB(:,44,11) = (/ &
+ & 0.26404E-05_JPRB,0.33480E-05_JPRB,0.41036E-05_JPRB,0.48939E-05_JPRB,0.57034E-05_JPRB /)  
+KB(:,45,11) = (/ &
+ & 0.24120E-05_JPRB,0.30991E-05_JPRB,0.38405E-05_JPRB,0.46208E-05_JPRB,0.54260E-05_JPRB /)  
+KB(:,46,11) = (/ &
+ & 0.21786E-05_JPRB,0.28418E-05_JPRB,0.35659E-05_JPRB,0.43343E-05_JPRB,0.51318E-05_JPRB /)  
+KB(:,47,11) = (/ &
+ & 0.19311E-05_JPRB,0.25641E-05_JPRB,0.32660E-05_JPRB,0.40180E-05_JPRB,0.48060E-05_JPRB /)  
+KB(:,48,11) = (/ &
+ & 0.16967E-05_JPRB,0.22980E-05_JPRB,0.29746E-05_JPRB,0.37093E-05_JPRB,0.44842E-05_JPRB /)  
+KB(:,49,11) = (/ &
+ & 0.14774E-05_JPRB,0.20448E-05_JPRB,0.26926E-05_JPRB,0.34064E-05_JPRB,0.41668E-05_JPRB /)  
+KB(:,50,11) = (/ &
+ & 0.12873E-05_JPRB,0.18193E-05_JPRB,0.24384E-05_JPRB,0.31296E-05_JPRB,0.38742E-05_JPRB /)  
+KB(:,51,11) = (/ &
+ & 0.11146E-05_JPRB,0.16126E-05_JPRB,0.22020E-05_JPRB,0.28686E-05_JPRB,0.35959E-05_JPRB /)  
+KB(:,52,11) = (/ &
+ & 0.95604E-06_JPRB,0.14200E-05_JPRB,0.19761E-05_JPRB,0.26163E-05_JPRB,0.33236E-05_JPRB /)  
+KB(:,53,11) = (/ &
+ & 0.80966E-06_JPRB,0.12381E-05_JPRB,0.17610E-05_JPRB,0.23732E-05_JPRB,0.30580E-05_JPRB /)  
+KB(:,54,11) = (/ &
+ & 0.68766E-06_JPRB,0.10830E-05_JPRB,0.15763E-05_JPRB,0.21583E-05_JPRB,0.28207E-05_JPRB /)  
+KB(:,55,11) = (/ &
+ & 0.58212E-06_JPRB,0.94518E-06_JPRB,0.14071E-05_JPRB,0.19616E-05_JPRB,0.26001E-05_JPRB /)  
+KB(:,56,11) = (/ &
+ & 0.48769E-06_JPRB,0.81784E-06_JPRB,0.12480E-05_JPRB,0.17754E-05_JPRB,0.23872E-05_JPRB /)  
+KB(:,57,11) = (/ &
+ & 0.40334E-06_JPRB,0.70099E-06_JPRB,0.10993E-05_JPRB,0.15960E-05_JPRB,0.21818E-05_JPRB /)  
+KB(:,58,11) = (/ &
+ & 0.33254E-06_JPRB,0.59979E-06_JPRB,0.96749E-06_JPRB,0.14348E-05_JPRB,0.19961E-05_JPRB /)  
+KB(:,59,11) = (/ &
+ & 0.30667E-06_JPRB,0.56182E-06_JPRB,0.91722E-06_JPRB,0.13728E-05_JPRB,0.19233E-05_JPRB /)  
+KB(:,13,12) = (/ &
+ & 0.21780E-04_JPRB,0.22297E-04_JPRB,0.22851E-04_JPRB,0.23387E-04_JPRB,0.23897E-04_JPRB /)  
+KB(:,14,12) = (/ &
+ & 0.20875E-04_JPRB,0.21531E-04_JPRB,0.22189E-04_JPRB,0.22823E-04_JPRB,0.23424E-04_JPRB /)  
+KB(:,15,12) = (/ &
+ & 0.19941E-04_JPRB,0.20728E-04_JPRB,0.21492E-04_JPRB,0.22225E-04_JPRB,0.22948E-04_JPRB /)  
+KB(:,16,12) = (/ &
+ & 0.19013E-04_JPRB,0.19918E-04_JPRB,0.20796E-04_JPRB,0.21654E-04_JPRB,0.22503E-04_JPRB /)  
+KB(:,17,12) = (/ &
+ & 0.18129E-04_JPRB,0.19150E-04_JPRB,0.20149E-04_JPRB,0.21144E-04_JPRB,0.22094E-04_JPRB /)  
+KB(:,18,12) = (/ &
+ & 0.17308E-04_JPRB,0.18451E-04_JPRB,0.19578E-04_JPRB,0.20689E-04_JPRB,0.21728E-04_JPRB /)  
+KB(:,19,12) = (/ &
+ & 0.16581E-04_JPRB,0.17835E-04_JPRB,0.19087E-04_JPRB,0.20285E-04_JPRB,0.21402E-04_JPRB /)  
+KB(:,20,12) = (/ &
+ & 0.15978E-04_JPRB,0.17349E-04_JPRB,0.18704E-04_JPRB,0.19972E-04_JPRB,0.21143E-04_JPRB /)  
+KB(:,21,12) = (/ &
+ & 0.15496E-04_JPRB,0.16976E-04_JPRB,0.18403E-04_JPRB,0.19724E-04_JPRB,0.20952E-04_JPRB /)  
+KB(:,22,12) = (/ &
+ & 0.15240E-04_JPRB,0.16798E-04_JPRB,0.18272E-04_JPRB,0.19635E-04_JPRB,0.20901E-04_JPRB /)  
+KB(:,23,12) = (/ &
+ & 0.15105E-04_JPRB,0.16716E-04_JPRB,0.18220E-04_JPRB,0.19617E-04_JPRB,0.20916E-04_JPRB /)  
+KB(:,24,12) = (/ &
+ & 0.15076E-04_JPRB,0.16719E-04_JPRB,0.18249E-04_JPRB,0.19672E-04_JPRB,0.20991E-04_JPRB /)  
+KB(:,25,12) = (/ &
+ & 0.15141E-04_JPRB,0.16802E-04_JPRB,0.18352E-04_JPRB,0.19786E-04_JPRB,0.21116E-04_JPRB /)  
+KB(:,26,12) = (/ &
+ & 0.15306E-04_JPRB,0.16974E-04_JPRB,0.18529E-04_JPRB,0.19965E-04_JPRB,0.21296E-04_JPRB /)  
+KB(:,27,12) = (/ &
+ & 0.15522E-04_JPRB,0.17192E-04_JPRB,0.18747E-04_JPRB,0.20182E-04_JPRB,0.21501E-04_JPRB /)  
+KB(:,28,12) = (/ &
+ & 0.15784E-04_JPRB,0.17449E-04_JPRB,0.18996E-04_JPRB,0.20419E-04_JPRB,0.21733E-04_JPRB /)  
+KB(:,29,12) = (/ &
+ & 0.16090E-04_JPRB,0.17744E-04_JPRB,0.19276E-04_JPRB,0.20687E-04_JPRB,0.21987E-04_JPRB /)  
+KB(:,30,12) = (/ &
+ & 0.16419E-04_JPRB,0.18062E-04_JPRB,0.19575E-04_JPRB,0.20970E-04_JPRB,0.22248E-04_JPRB /)  
+KB(:,31,12) = (/ &
+ & 0.16777E-04_JPRB,0.18399E-04_JPRB,0.19892E-04_JPRB,0.21268E-04_JPRB,0.22521E-04_JPRB /)  
+KB(:,32,12) = (/ &
+ & 0.17152E-04_JPRB,0.18750E-04_JPRB,0.20222E-04_JPRB,0.21573E-04_JPRB,0.22802E-04_JPRB /)  
+KB(:,33,12) = (/ &
+ & 0.17537E-04_JPRB,0.19109E-04_JPRB,0.20556E-04_JPRB,0.21883E-04_JPRB,0.23082E-04_JPRB /)  
+KB(:,34,12) = (/ &
+ & 0.17871E-04_JPRB,0.19418E-04_JPRB,0.20844E-04_JPRB,0.22147E-04_JPRB,0.23322E-04_JPRB /)  
+KB(:,35,12) = (/ &
+ & 0.18052E-04_JPRB,0.19587E-04_JPRB,0.21002E-04_JPRB,0.22291E-04_JPRB,0.23455E-04_JPRB /)  
+KB(:,36,12) = (/ &
+ & 0.18063E-04_JPRB,0.19601E-04_JPRB,0.21016E-04_JPRB,0.22306E-04_JPRB,0.23468E-04_JPRB /)  
+KB(:,37,12) = (/ &
+ & 0.17833E-04_JPRB,0.19389E-04_JPRB,0.20824E-04_JPRB,0.22132E-04_JPRB,0.23314E-04_JPRB /)  
+KB(:,38,12) = (/ &
+ & 0.17587E-04_JPRB,0.19167E-04_JPRB,0.20623E-04_JPRB,0.21950E-04_JPRB,0.23152E-04_JPRB /)  
+KB(:,39,12) = (/ &
+ & 0.17343E-04_JPRB,0.18945E-04_JPRB,0.20418E-04_JPRB,0.21765E-04_JPRB,0.22984E-04_JPRB /)  
+KB(:,40,12) = (/ &
+ & 0.16926E-04_JPRB,0.18563E-04_JPRB,0.20065E-04_JPRB,0.21446E-04_JPRB,0.22697E-04_JPRB /)  
+KB(:,41,12) = (/ &
+ & 0.16478E-04_JPRB,0.18152E-04_JPRB,0.19687E-04_JPRB,0.21101E-04_JPRB,0.22388E-04_JPRB /)  
+KB(:,42,12) = (/ &
+ & 0.16023E-04_JPRB,0.17729E-04_JPRB,0.19301E-04_JPRB,0.20748E-04_JPRB,0.22068E-04_JPRB /)  
+KB(:,43,12) = (/ &
+ & 0.15458E-04_JPRB,0.17203E-04_JPRB,0.18821E-04_JPRB,0.20305E-04_JPRB,0.21667E-04_JPRB /)  
+KB(:,44,12) = (/ &
+ & 0.14831E-04_JPRB,0.16623E-04_JPRB,0.18287E-04_JPRB,0.19814E-04_JPRB,0.21219E-04_JPRB /)  
+KB(:,45,12) = (/ &
+ & 0.14192E-04_JPRB,0.16029E-04_JPRB,0.17735E-04_JPRB,0.19308E-04_JPRB,0.20757E-04_JPRB /)  
+KB(:,46,12) = (/ &
+ & 0.13493E-04_JPRB,0.15380E-04_JPRB,0.17134E-04_JPRB,0.18756E-04_JPRB,0.20247E-04_JPRB /)  
+KB(:,47,12) = (/ &
+ & 0.12693E-04_JPRB,0.14634E-04_JPRB,0.16440E-04_JPRB,0.18118E-04_JPRB,0.19661E-04_JPRB /)  
+KB(:,48,12) = (/ &
+ & 0.11878E-04_JPRB,0.13868E-04_JPRB,0.15729E-04_JPRB,0.17458E-04_JPRB,0.19054E-04_JPRB /)  
+KB(:,49,12) = (/ &
+ & 0.11052E-04_JPRB,0.13077E-04_JPRB,0.14993E-04_JPRB,0.16776E-04_JPRB,0.18429E-04_JPRB /)  
+KB(:,50,12) = (/ &
+ & 0.10274E-04_JPRB,0.12322E-04_JPRB,0.14286E-04_JPRB,0.16119E-04_JPRB,0.17820E-04_JPRB /)  
+KB(:,51,12) = (/ &
+ & 0.95165E-05_JPRB,0.11577E-04_JPRB,0.13581E-04_JPRB,0.15463E-04_JPRB,0.17211E-04_JPRB /)  
+KB(:,52,12) = (/ &
+ & 0.87654E-05_JPRB,0.10825E-04_JPRB,0.12859E-04_JPRB,0.14791E-04_JPRB,0.16589E-04_JPRB /)  
+KB(:,53,12) = (/ &
+ & 0.80213E-05_JPRB,0.10071E-04_JPRB,0.12124E-04_JPRB,0.14102E-04_JPRB,0.15949E-04_JPRB /)  
+KB(:,54,12) = (/ &
+ & 0.73473E-05_JPRB,0.93776E-05_JPRB,0.11439E-04_JPRB,0.13452E-04_JPRB,0.15344E-04_JPRB /)  
+KB(:,55,12) = (/ &
+ & 0.67127E-05_JPRB,0.87188E-05_JPRB,0.10780E-04_JPRB,0.12816E-04_JPRB,0.14751E-04_JPRB /)  
+KB(:,56,12) = (/ &
+ & 0.60935E-05_JPRB,0.80668E-05_JPRB,0.10118E-04_JPRB,0.12169E-04_JPRB,0.14148E-04_JPRB /)  
+KB(:,57,12) = (/ &
+ & 0.54908E-05_JPRB,0.74223E-05_JPRB,0.94571E-05_JPRB,0.11517E-04_JPRB,0.13528E-04_JPRB /)  
+KB(:,58,12) = (/ &
+ & 0.49372E-05_JPRB,0.68201E-05_JPRB,0.88324E-05_JPRB,0.10894E-04_JPRB,0.12926E-04_JPRB /)  
+KB(:,59,12) = (/ &
+ & 0.47213E-05_JPRB,0.65842E-05_JPRB,0.85835E-05_JPRB,0.10644E-04_JPRB,0.12683E-04_JPRB /)  
+KB(:,13,13) = (/ &
+ & 0.46820E-04_JPRB,0.47158E-04_JPRB,0.47420E-04_JPRB,0.47688E-04_JPRB,0.47860E-04_JPRB /)  
+KB(:,14,13) = (/ &
+ & 0.47343E-04_JPRB,0.47824E-04_JPRB,0.48275E-04_JPRB,0.48677E-04_JPRB,0.48937E-04_JPRB /)  
+KB(:,15,13) = (/ &
+ & 0.47643E-04_JPRB,0.48345E-04_JPRB,0.48980E-04_JPRB,0.49469E-04_JPRB,0.49813E-04_JPRB /)  
+KB(:,16,13) = (/ &
+ & 0.47844E-04_JPRB,0.48762E-04_JPRB,0.49536E-04_JPRB,0.50120E-04_JPRB,0.50548E-04_JPRB /)  
+KB(:,17,13) = (/ &
+ & 0.47956E-04_JPRB,0.49079E-04_JPRB,0.49982E-04_JPRB,0.50640E-04_JPRB,0.51155E-04_JPRB /)  
+KB(:,18,13) = (/ &
+ & 0.48046E-04_JPRB,0.49334E-04_JPRB,0.50343E-04_JPRB,0.51068E-04_JPRB,0.51673E-04_JPRB /)  
+KB(:,19,13) = (/ &
+ & 0.48132E-04_JPRB,0.49550E-04_JPRB,0.50630E-04_JPRB,0.51453E-04_JPRB,0.52124E-04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART15',1,ZHOOK_HANDLE)
+END SUBROUTINE PART15
+
+
+SUBROUTINE PART16
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART16',0,ZHOOK_HANDLE)
+
+
+KB(:,20,13) = (/ &
+ & 0.48262E-04_JPRB,0.49765E-04_JPRB,0.50907E-04_JPRB,0.51808E-04_JPRB,0.52533E-04_JPRB /)  
+KB(:,21,13) = (/ &
+ & 0.48402E-04_JPRB,0.49959E-04_JPRB,0.51170E-04_JPRB,0.52136E-04_JPRB,0.52894E-04_JPRB /)  
+KB(:,22,13) = (/ &
+ & 0.48671E-04_JPRB,0.50243E-04_JPRB,0.51485E-04_JPRB,0.52481E-04_JPRB,0.53256E-04_JPRB /)  
+KB(:,23,13) = (/ &
+ & 0.48954E-04_JPRB,0.50544E-04_JPRB,0.51806E-04_JPRB,0.52811E-04_JPRB,0.53587E-04_JPRB /)  
+KB(:,24,13) = (/ &
+ & 0.49272E-04_JPRB,0.50858E-04_JPRB,0.52128E-04_JPRB,0.53125E-04_JPRB,0.53892E-04_JPRB /)  
+KB(:,25,13) = (/ &
+ & 0.49616E-04_JPRB,0.51186E-04_JPRB,0.52450E-04_JPRB,0.53425E-04_JPRB,0.54174E-04_JPRB /)  
+KB(:,26,13) = (/ &
+ & 0.50001E-04_JPRB,0.51551E-04_JPRB,0.52773E-04_JPRB,0.53723E-04_JPRB,0.54445E-04_JPRB /)  
+KB(:,27,13) = (/ &
+ & 0.50406E-04_JPRB,0.51904E-04_JPRB,0.53086E-04_JPRB,0.54001E-04_JPRB,0.54687E-04_JPRB /)  
+KB(:,28,13) = (/ &
+ & 0.50802E-04_JPRB,0.52248E-04_JPRB,0.53391E-04_JPRB,0.54260E-04_JPRB,0.54906E-04_JPRB /)  
+KB(:,29,13) = (/ &
+ & 0.51204E-04_JPRB,0.52593E-04_JPRB,0.53683E-04_JPRB,0.54507E-04_JPRB,0.55109E-04_JPRB /)  
+KB(:,30,13) = (/ &
+ & 0.51608E-04_JPRB,0.52928E-04_JPRB,0.53956E-04_JPRB,0.54730E-04_JPRB,0.55285E-04_JPRB /)  
+KB(:,31,13) = (/ &
+ & 0.51993E-04_JPRB,0.53249E-04_JPRB,0.54213E-04_JPRB,0.54939E-04_JPRB,0.55442E-04_JPRB /)  
+KB(:,32,13) = (/ &
+ & 0.52364E-04_JPRB,0.53549E-04_JPRB,0.54461E-04_JPRB,0.55127E-04_JPRB,0.55583E-04_JPRB /)  
+KB(:,33,13) = (/ &
+ & 0.52722E-04_JPRB,0.53841E-04_JPRB,0.54688E-04_JPRB,0.55301E-04_JPRB,0.55705E-04_JPRB /)  
+KB(:,34,13) = (/ &
+ & 0.53018E-04_JPRB,0.54074E-04_JPRB,0.54867E-04_JPRB,0.55434E-04_JPRB,0.55799E-04_JPRB /)  
+KB(:,35,13) = (/ &
+ & 0.53187E-04_JPRB,0.54211E-04_JPRB,0.54980E-04_JPRB,0.55515E-04_JPRB,0.55855E-04_JPRB /)  
+KB(:,36,13) = (/ &
+ & 0.53222E-04_JPRB,0.54242E-04_JPRB,0.55009E-04_JPRB,0.55544E-04_JPRB,0.55878E-04_JPRB /)  
+KB(:,37,13) = (/ &
+ & 0.53077E-04_JPRB,0.54137E-04_JPRB,0.54934E-04_JPRB,0.55495E-04_JPRB,0.55862E-04_JPRB /)  
+KB(:,38,13) = (/ &
+ & 0.52907E-04_JPRB,0.54013E-04_JPRB,0.54850E-04_JPRB,0.55445E-04_JPRB,0.55837E-04_JPRB /)  
+KB(:,39,13) = (/ &
+ & 0.52736E-04_JPRB,0.53884E-04_JPRB,0.54754E-04_JPRB,0.55383E-04_JPRB,0.55805E-04_JPRB /)  
+KB(:,40,13) = (/ &
+ & 0.52415E-04_JPRB,0.53638E-04_JPRB,0.54576E-04_JPRB,0.55258E-04_JPRB,0.55727E-04_JPRB /)  
+KB(:,41,13) = (/ &
+ & 0.52053E-04_JPRB,0.53364E-04_JPRB,0.54368E-04_JPRB,0.55117E-04_JPRB,0.55636E-04_JPRB /)  
+KB(:,42,13) = (/ &
+ & 0.51661E-04_JPRB,0.53061E-04_JPRB,0.54142E-04_JPRB,0.54952E-04_JPRB,0.55527E-04_JPRB /)  
+KB(:,43,13) = (/ &
+ & 0.51150E-04_JPRB,0.52667E-04_JPRB,0.53836E-04_JPRB,0.54732E-04_JPRB,0.55377E-04_JPRB /)  
+KB(:,44,13) = (/ &
+ & 0.50559E-04_JPRB,0.52194E-04_JPRB,0.53480E-04_JPRB,0.54465E-04_JPRB,0.55186E-04_JPRB /)  
+KB(:,45,13) = (/ &
+ & 0.49921E-04_JPRB,0.51684E-04_JPRB,0.53086E-04_JPRB,0.54162E-04_JPRB,0.54971E-04_JPRB /)  
+KB(:,46,13) = (/ &
+ & 0.49197E-04_JPRB,0.51093E-04_JPRB,0.52628E-04_JPRB,0.53809E-04_JPRB,0.54714E-04_JPRB /)  
+KB(:,47,13) = (/ &
+ & 0.48328E-04_JPRB,0.50372E-04_JPRB,0.52058E-04_JPRB,0.53374E-04_JPRB,0.54380E-04_JPRB /)  
+KB(:,48,13) = (/ &
+ & 0.47381E-04_JPRB,0.49603E-04_JPRB,0.51420E-04_JPRB,0.52887E-04_JPRB,0.54013E-04_JPRB /)  
+KB(:,49,13) = (/ &
+ & 0.46342E-04_JPRB,0.48755E-04_JPRB,0.50735E-04_JPRB,0.52347E-04_JPRB,0.53594E-04_JPRB /)  
+KB(:,50,13) = (/ &
+ & 0.45266E-04_JPRB,0.47911E-04_JPRB,0.50033E-04_JPRB,0.51782E-04_JPRB,0.53163E-04_JPRB /)  
+KB(:,51,13) = (/ &
+ & 0.44139E-04_JPRB,0.47021E-04_JPRB,0.49310E-04_JPRB,0.51184E-04_JPRB,0.52699E-04_JPRB /)  
+KB(:,52,13) = (/ &
+ & 0.42930E-04_JPRB,0.46044E-04_JPRB,0.48523E-04_JPRB,0.50540E-04_JPRB,0.52191E-04_JPRB /)  
+KB(:,53,13) = (/ &
+ & 0.41632E-04_JPRB,0.44983E-04_JPRB,0.47688E-04_JPRB,0.49847E-04_JPRB,0.51629E-04_JPRB /)  
+KB(:,54,13) = (/ &
+ & 0.40359E-04_JPRB,0.43928E-04_JPRB,0.46843E-04_JPRB,0.49172E-04_JPRB,0.51075E-04_JPRB /)  
+KB(:,55,13) = (/ &
+ & 0.39074E-04_JPRB,0.42858E-04_JPRB,0.45984E-04_JPRB,0.48480E-04_JPRB,0.50508E-04_JPRB /)  
+KB(:,56,13) = (/ &
+ & 0.37728E-04_JPRB,0.41722E-04_JPRB,0.45056E-04_JPRB,0.47740E-04_JPRB,0.49900E-04_JPRB /)  
+KB(:,57,13) = (/ &
+ & 0.36320E-04_JPRB,0.40515E-04_JPRB,0.44055E-04_JPRB,0.46942E-04_JPRB,0.49258E-04_JPRB /)  
+KB(:,58,13) = (/ &
+ & 0.34927E-04_JPRB,0.39308E-04_JPRB,0.43052E-04_JPRB,0.46141E-04_JPRB,0.48596E-04_JPRB /)  
+KB(:,59,13) = (/ &
+ & 0.34349E-04_JPRB,0.38808E-04_JPRB,0.42631E-04_JPRB,0.45802E-04_JPRB,0.48325E-04_JPRB /)  
+KB(:,13,14) = (/ &
+ & 0.91739E-04_JPRB,0.90588E-04_JPRB,0.89270E-04_JPRB,0.87862E-04_JPRB,0.86541E-04_JPRB /)  
+KB(:,14,14) = (/ &
+ & 0.97111E-04_JPRB,0.95879E-04_JPRB,0.94382E-04_JPRB,0.92799E-04_JPRB,0.91344E-04_JPRB /)  
+KB(:,15,14) = (/ &
+ & 0.10201E-03_JPRB,0.10059E-03_JPRB,0.98963E-04_JPRB,0.97297E-04_JPRB,0.95661E-04_JPRB /)  
+KB(:,16,14) = (/ &
+ & 0.10632E-03_JPRB,0.10477E-03_JPRB,0.10303E-03_JPRB,0.10127E-03_JPRB,0.99489E-04_JPRB /)  
+KB(:,17,14) = (/ &
+ & 0.11011E-03_JPRB,0.10842E-03_JPRB,0.10659E-03_JPRB,0.10474E-03_JPRB,0.10285E-03_JPRB /)  
+KB(:,18,14) = (/ &
+ & 0.11338E-03_JPRB,0.11158E-03_JPRB,0.10968E-03_JPRB,0.10773E-03_JPRB,0.10569E-03_JPRB /)  
+KB(:,19,14) = (/ &
+ & 0.11615E-03_JPRB,0.11428E-03_JPRB,0.11231E-03_JPRB,0.11026E-03_JPRB,0.10810E-03_JPRB /)  
+KB(:,20,14) = (/ &
+ & 0.11847E-03_JPRB,0.11653E-03_JPRB,0.11450E-03_JPRB,0.11235E-03_JPRB,0.11005E-03_JPRB /)  
+KB(:,21,14) = (/ &
+ & 0.12039E-03_JPRB,0.11839E-03_JPRB,0.11628E-03_JPRB,0.11404E-03_JPRB,0.11166E-03_JPRB /)  
+KB(:,22,14) = (/ &
+ & 0.12185E-03_JPRB,0.11978E-03_JPRB,0.11759E-03_JPRB,0.11525E-03_JPRB,0.11275E-03_JPRB /)  
+KB(:,23,14) = (/ &
+ & 0.12298E-03_JPRB,0.12085E-03_JPRB,0.11858E-03_JPRB,0.11615E-03_JPRB,0.11356E-03_JPRB /)  
+KB(:,24,14) = (/ &
+ & 0.12384E-03_JPRB,0.12163E-03_JPRB,0.11927E-03_JPRB,0.11676E-03_JPRB,0.11410E-03_JPRB /)  
+KB(:,25,14) = (/ &
+ & 0.12445E-03_JPRB,0.12216E-03_JPRB,0.11972E-03_JPRB,0.11712E-03_JPRB,0.11440E-03_JPRB /)  
+KB(:,26,14) = (/ &
+ & 0.12480E-03_JPRB,0.12244E-03_JPRB,0.11993E-03_JPRB,0.11725E-03_JPRB,0.11449E-03_JPRB /)  
+KB(:,27,14) = (/ &
+ & 0.12497E-03_JPRB,0.12254E-03_JPRB,0.11997E-03_JPRB,0.11723E-03_JPRB,0.11442E-03_JPRB /)  
+KB(:,28,14) = (/ &
+ & 0.12498E-03_JPRB,0.12249E-03_JPRB,0.11986E-03_JPRB,0.11707E-03_JPRB,0.11425E-03_JPRB /)  
+KB(:,29,14) = (/ &
+ & 0.12486E-03_JPRB,0.12231E-03_JPRB,0.11961E-03_JPRB,0.11677E-03_JPRB,0.11393E-03_JPRB /)  
+KB(:,30,14) = (/ &
+ & 0.12462E-03_JPRB,0.12202E-03_JPRB,0.11925E-03_JPRB,0.11640E-03_JPRB,0.11355E-03_JPRB /)  
+KB(:,31,14) = (/ &
+ & 0.12428E-03_JPRB,0.12163E-03_JPRB,0.11882E-03_JPRB,0.11594E-03_JPRB,0.11310E-03_JPRB /)  
+KB(:,32,14) = (/ &
+ & 0.12387E-03_JPRB,0.12116E-03_JPRB,0.11831E-03_JPRB,0.11542E-03_JPRB,0.11260E-03_JPRB /)  
+KB(:,33,14) = (/ &
+ & 0.12338E-03_JPRB,0.12061E-03_JPRB,0.11773E-03_JPRB,0.11485E-03_JPRB,0.11205E-03_JPRB /)  
+KB(:,34,14) = (/ &
+ & 0.12293E-03_JPRB,0.12013E-03_JPRB,0.11722E-03_JPRB,0.11434E-03_JPRB,0.11156E-03_JPRB /)  
+KB(:,35,14) = (/ &
+ & 0.12271E-03_JPRB,0.11987E-03_JPRB,0.11696E-03_JPRB,0.11408E-03_JPRB,0.11132E-03_JPRB /)  
+KB(:,36,14) = (/ &
+ & 0.12276E-03_JPRB,0.11992E-03_JPRB,0.11700E-03_JPRB,0.11412E-03_JPRB,0.11135E-03_JPRB /)  
+KB(:,37,14) = (/ &
+ & 0.12321E-03_JPRB,0.12039E-03_JPRB,0.11748E-03_JPRB,0.11457E-03_JPRB,0.11178E-03_JPRB /)  
+KB(:,38,14) = (/ &
+ & 0.12368E-03_JPRB,0.12086E-03_JPRB,0.11795E-03_JPRB,0.11504E-03_JPRB,0.11223E-03_JPRB /)  
+KB(:,39,14) = (/ &
+ & 0.12412E-03_JPRB,0.12132E-03_JPRB,0.11841E-03_JPRB,0.11549E-03_JPRB,0.11266E-03_JPRB /)  
+KB(:,40,14) = (/ &
+ & 0.12481E-03_JPRB,0.12205E-03_JPRB,0.11917E-03_JPRB,0.11624E-03_JPRB,0.11338E-03_JPRB /)  
+KB(:,41,14) = (/ &
+ & 0.12552E-03_JPRB,0.12282E-03_JPRB,0.11995E-03_JPRB,0.11701E-03_JPRB,0.11413E-03_JPRB /)  
+KB(:,42,14) = (/ &
+ & 0.12624E-03_JPRB,0.12356E-03_JPRB,0.12073E-03_JPRB,0.11779E-03_JPRB,0.11489E-03_JPRB /)  
+KB(:,43,14) = (/ &
+ & 0.12708E-03_JPRB,0.12444E-03_JPRB,0.12166E-03_JPRB,0.11873E-03_JPRB,0.11581E-03_JPRB /)  
+KB(:,44,14) = (/ &
+ & 0.12796E-03_JPRB,0.12537E-03_JPRB,0.12263E-03_JPRB,0.11974E-03_JPRB,0.11681E-03_JPRB /)  
+KB(:,45,14) = (/ &
+ & 0.12882E-03_JPRB,0.12627E-03_JPRB,0.12360E-03_JPRB,0.12075E-03_JPRB,0.11782E-03_JPRB /)  
+KB(:,46,14) = (/ &
+ & 0.12968E-03_JPRB,0.12723E-03_JPRB,0.12459E-03_JPRB,0.12181E-03_JPRB,0.11889E-03_JPRB /)  
+KB(:,47,14) = (/ &
+ & 0.13062E-03_JPRB,0.12827E-03_JPRB,0.12567E-03_JPRB,0.12295E-03_JPRB,0.12008E-03_JPRB /)  
+KB(:,48,14) = (/ &
+ & 0.13150E-03_JPRB,0.12926E-03_JPRB,0.12675E-03_JPRB,0.12408E-03_JPRB,0.12126E-03_JPRB /)  
+KB(:,49,14) = (/ &
+ & 0.13233E-03_JPRB,0.13021E-03_JPRB,0.12780E-03_JPRB,0.12517E-03_JPRB,0.12242E-03_JPRB /)  
+KB(:,50,14) = (/ &
+ & 0.13307E-03_JPRB,0.13105E-03_JPRB,0.12874E-03_JPRB,0.12618E-03_JPRB,0.12349E-03_JPRB /)  
+KB(:,51,14) = (/ &
+ & 0.13374E-03_JPRB,0.13183E-03_JPRB,0.12963E-03_JPRB,0.12715E-03_JPRB,0.12449E-03_JPRB /)  
+KB(:,52,14) = (/ &
+ & 0.13431E-03_JPRB,0.13255E-03_JPRB,0.13046E-03_JPRB,0.12807E-03_JPRB,0.12548E-03_JPRB /)  
+KB(:,53,14) = (/ &
+ & 0.13479E-03_JPRB,0.13325E-03_JPRB,0.13127E-03_JPRB,0.12898E-03_JPRB,0.12645E-03_JPRB /)  
+KB(:,54,14) = (/ &
+ & 0.13511E-03_JPRB,0.13385E-03_JPRB,0.13196E-03_JPRB,0.12979E-03_JPRB,0.12732E-03_JPRB /)  
+KB(:,55,14) = (/ &
+ & 0.13533E-03_JPRB,0.13436E-03_JPRB,0.13261E-03_JPRB,0.13052E-03_JPRB,0.12814E-03_JPRB /)  
+KB(:,56,14) = (/ &
+ & 0.13543E-03_JPRB,0.13477E-03_JPRB,0.13321E-03_JPRB,0.13121E-03_JPRB,0.12893E-03_JPRB /)  
+KB(:,57,14) = (/ &
+ & 0.13540E-03_JPRB,0.13509E-03_JPRB,0.13379E-03_JPRB,0.13190E-03_JPRB,0.12969E-03_JPRB /)  
+KB(:,58,14) = (/ &
+ & 0.13520E-03_JPRB,0.13532E-03_JPRB,0.13428E-03_JPRB,0.13250E-03_JPRB,0.13039E-03_JPRB /)  
+KB(:,59,14) = (/ &
+ & 0.13510E-03_JPRB,0.13536E-03_JPRB,0.13445E-03_JPRB,0.13273E-03_JPRB,0.13066E-03_JPRB /)  
+KB(:,13,15) = (/ &
+ & 0.16545E-03_JPRB,0.16076E-03_JPRB,0.15662E-03_JPRB,0.15273E-03_JPRB,0.14899E-03_JPRB /)  
+KB(:,14,15) = (/ &
+ & 0.17968E-03_JPRB,0.17402E-03_JPRB,0.16899E-03_JPRB,0.16434E-03_JPRB,0.15984E-03_JPRB /)  
+KB(:,15,15) = (/ &
+ & 0.19299E-03_JPRB,0.18634E-03_JPRB,0.18041E-03_JPRB,0.17491E-03_JPRB,0.16965E-03_JPRB /)  
+KB(:,16,15) = (/ &
+ & 0.20519E-03_JPRB,0.19756E-03_JPRB,0.19072E-03_JPRB,0.18435E-03_JPRB,0.17834E-03_JPRB /)  
+KB(:,17,15) = (/ &
+ & 0.21616E-03_JPRB,0.20753E-03_JPRB,0.19981E-03_JPRB,0.19268E-03_JPRB,0.18599E-03_JPRB /)  
+KB(:,18,15) = (/ &
+ & 0.22578E-03_JPRB,0.21627E-03_JPRB,0.20768E-03_JPRB,0.19983E-03_JPRB,0.19254E-03_JPRB /)  
+KB(:,19,15) = (/ &
+ & 0.23404E-03_JPRB,0.22371E-03_JPRB,0.21439E-03_JPRB,0.20593E-03_JPRB,0.19813E-03_JPRB /)  
+KB(:,20,15) = (/ &
+ & 0.24079E-03_JPRB,0.22975E-03_JPRB,0.21986E-03_JPRB,0.21084E-03_JPRB,0.20261E-03_JPRB /)  
+KB(:,21,15) = (/ &
+ & 0.24629E-03_JPRB,0.23467E-03_JPRB,0.22423E-03_JPRB,0.21475E-03_JPRB,0.20622E-03_JPRB /)  
+KB(:,22,15) = (/ &
+ & 0.24979E-03_JPRB,0.23775E-03_JPRB,0.22702E-03_JPRB,0.21724E-03_JPRB,0.20849E-03_JPRB /)  
+KB(:,23,15) = (/ &
+ & 0.25216E-03_JPRB,0.23989E-03_JPRB,0.22890E-03_JPRB,0.21892E-03_JPRB,0.21005E-03_JPRB /)  
+KB(:,24,15) = (/ &
+ & 0.25355E-03_JPRB,0.24109E-03_JPRB,0.22997E-03_JPRB,0.21990E-03_JPRB,0.21094E-03_JPRB /)  
+KB(:,25,15) = (/ &
+ & 0.25401E-03_JPRB,0.24151E-03_JPRB,0.23030E-03_JPRB,0.22024E-03_JPRB,0.21125E-03_JPRB /)  
+KB(:,26,15) = (/ &
+ & 0.25359E-03_JPRB,0.24114E-03_JPRB,0.22993E-03_JPRB,0.21995E-03_JPRB,0.21097E-03_JPRB /)  
+KB(:,27,15) = (/ &
+ & 0.25262E-03_JPRB,0.24030E-03_JPRB,0.22913E-03_JPRB,0.21926E-03_JPRB,0.21037E-03_JPRB /)  
+KB(:,28,15) = (/ &
+ & 0.25126E-03_JPRB,0.23904E-03_JPRB,0.22801E-03_JPRB,0.21831E-03_JPRB,0.20948E-03_JPRB /)  
+KB(:,29,15) = (/ &
+ & 0.24948E-03_JPRB,0.23745E-03_JPRB,0.22663E-03_JPRB,0.21704E-03_JPRB,0.20834E-03_JPRB /)  
+KB(:,30,15) = (/ &
+ & 0.24748E-03_JPRB,0.23558E-03_JPRB,0.22502E-03_JPRB,0.21558E-03_JPRB,0.20699E-03_JPRB /)  
+KB(:,31,15) = (/ &
+ & 0.24521E-03_JPRB,0.23353E-03_JPRB,0.22323E-03_JPRB,0.21394E-03_JPRB,0.20549E-03_JPRB /)  
+KB(:,32,15) = (/ &
+ & 0.24273E-03_JPRB,0.23132E-03_JPRB,0.22129E-03_JPRB,0.21221E-03_JPRB,0.20387E-03_JPRB /)  
+KB(:,33,15) = (/ &
+ & 0.24020E-03_JPRB,0.22911E-03_JPRB,0.21929E-03_JPRB,0.21039E-03_JPRB,0.20217E-03_JPRB /)  
+KB(:,34,15) = (/ &
+ & 0.23799E-03_JPRB,0.22719E-03_JPRB,0.21754E-03_JPRB,0.20880E-03_JPRB,0.20071E-03_JPRB /)  
+KB(:,35,15) = (/ &
+ & 0.23687E-03_JPRB,0.22619E-03_JPRB,0.21668E-03_JPRB,0.20798E-03_JPRB,0.19994E-03_JPRB /)  
+KB(:,36,15) = (/ &
+ & 0.23693E-03_JPRB,0.22624E-03_JPRB,0.21673E-03_JPRB,0.20802E-03_JPRB,0.19997E-03_JPRB /)  
+KB(:,37,15) = (/ &
+ & 0.23866E-03_JPRB,0.22780E-03_JPRB,0.21810E-03_JPRB,0.20930E-03_JPRB,0.20116E-03_JPRB /)  
+KB(:,38,15) = (/ &
+ & 0.24049E-03_JPRB,0.22941E-03_JPRB,0.21958E-03_JPRB,0.21064E-03_JPRB,0.20240E-03_JPRB /)  
+KB(:,39,15) = (/ &
+ & 0.24235E-03_JPRB,0.23100E-03_JPRB,0.22101E-03_JPRB,0.21195E-03_JPRB,0.20362E-03_JPRB /)  
+KB(:,40,15) = (/ &
+ & 0.24544E-03_JPRB,0.23374E-03_JPRB,0.22344E-03_JPRB,0.21416E-03_JPRB,0.20567E-03_JPRB /)  
+KB(:,41,15) = (/ &
+ & 0.24874E-03_JPRB,0.23671E-03_JPRB,0.22606E-03_JPRB,0.21653E-03_JPRB,0.20786E-03_JPRB /)  
+KB(:,42,15) = (/ &
+ & 0.25214E-03_JPRB,0.23974E-03_JPRB,0.22874E-03_JPRB,0.21892E-03_JPRB,0.21007E-03_JPRB /)  
+KB(:,43,15) = (/ &
+ & 0.25633E-03_JPRB,0.24355E-03_JPRB,0.23207E-03_JPRB,0.22195E-03_JPRB,0.21281E-03_JPRB /)  
+KB(:,44,15) = (/ &
+ & 0.26108E-03_JPRB,0.24779E-03_JPRB,0.23584E-03_JPRB,0.22529E-03_JPRB,0.21581E-03_JPRB /)  
+KB(:,45,15) = (/ &
+ & 0.26596E-03_JPRB,0.25216E-03_JPRB,0.23977E-03_JPRB,0.22875E-03_JPRB,0.21897E-03_JPRB /)  
+KB(:,46,15) = (/ &
+ & 0.27137E-03_JPRB,0.25699E-03_JPRB,0.24413E-03_JPRB,0.23258E-03_JPRB,0.22240E-03_JPRB /)  
+KB(:,47,15) = (/ &
+ & 0.27767E-03_JPRB,0.26264E-03_JPRB,0.24919E-03_JPRB,0.23707E-03_JPRB,0.22639E-03_JPRB /)  
+KB(:,48,15) = (/ &
+ & 0.28422E-03_JPRB,0.26851E-03_JPRB,0.25443E-03_JPRB,0.24179E-03_JPRB,0.23054E-03_JPRB /)  
+KB(:,49,15) = (/ &
+ & 0.29109E-03_JPRB,0.27465E-03_JPRB,0.25993E-03_JPRB,0.24676E-03_JPRB,0.23489E-03_JPRB /)  
+KB(:,50,15) = (/ &
+ & 0.29784E-03_JPRB,0.28066E-03_JPRB,0.26532E-03_JPRB,0.25156E-03_JPRB,0.23921E-03_JPRB /)  
+KB(:,51,15) = (/ &
+ & 0.30464E-03_JPRB,0.28674E-03_JPRB,0.27072E-03_JPRB,0.25642E-03_JPRB,0.24358E-03_JPRB /)  
+KB(:,52,15) = (/ &
+ & 0.31175E-03_JPRB,0.29305E-03_JPRB,0.27640E-03_JPRB,0.26149E-03_JPRB,0.24813E-03_JPRB /)  
+KB(:,53,15) = (/ &
+ & 0.31921E-03_JPRB,0.29964E-03_JPRB,0.28229E-03_JPRB,0.26674E-03_JPRB,0.25282E-03_JPRB /)  
+KB(:,54,15) = (/ &
+ & 0.32632E-03_JPRB,0.30596E-03_JPRB,0.28789E-03_JPRB,0.27174E-03_JPRB,0.25731E-03_JPRB /)  
+KB(:,55,15) = (/ &
+ & 0.33342E-03_JPRB,0.31218E-03_JPRB,0.29344E-03_JPRB,0.27674E-03_JPRB,0.26179E-03_JPRB /)  
+KB(:,56,15) = (/ &
+ & 0.34053E-03_JPRB,0.31870E-03_JPRB,0.29920E-03_JPRB,0.28191E-03_JPRB,0.26637E-03_JPRB /)  
+KB(:,57,15) = (/ &
+ & 0.34801E-03_JPRB,0.32554E-03_JPRB,0.30518E-03_JPRB,0.28726E-03_JPRB,0.27114E-03_JPRB /)  
+KB(:,58,15) = (/ &
+ & 0.35537E-03_JPRB,0.33214E-03_JPRB,0.31109E-03_JPRB,0.29248E-03_JPRB,0.27588E-03_JPRB /)  
+KB(:,59,15) = (/ &
+ & 0.35841E-03_JPRB,0.33487E-03_JPRB,0.31352E-03_JPRB,0.29463E-03_JPRB,0.27781E-03_JPRB /)  
+KB(:,13,16) = (/ &
+ & 0.23817E-03_JPRB,0.23193E-03_JPRB,0.22589E-03_JPRB,0.21979E-03_JPRB,0.21365E-03_JPRB /)  
+KB(:,14,16) = (/ &
+ & 0.26266E-03_JPRB,0.25442E-03_JPRB,0.24663E-03_JPRB,0.23897E-03_JPRB,0.23152E-03_JPRB /)  
+KB(:,15,16) = (/ &
+ & 0.28586E-03_JPRB,0.27559E-03_JPRB,0.26587E-03_JPRB,0.25663E-03_JPRB,0.24800E-03_JPRB /)  
+KB(:,16,16) = (/ &
+ & 0.30726E-03_JPRB,0.29496E-03_JPRB,0.28337E-03_JPRB,0.27251E-03_JPRB,0.26278E-03_JPRB /)  
+KB(:,17,16) = (/ &
+ & 0.32665E-03_JPRB,0.31224E-03_JPRB,0.29895E-03_JPRB,0.28665E-03_JPRB,0.27581E-03_JPRB /)  
+KB(:,18,16) = (/ &
+ & 0.34367E-03_JPRB,0.32749E-03_JPRB,0.31249E-03_JPRB,0.29896E-03_JPRB,0.28707E-03_JPRB /)  
+KB(:,19,16) = (/ &
+ & 0.35833E-03_JPRB,0.34046E-03_JPRB,0.32413E-03_JPRB,0.30949E-03_JPRB,0.29662E-03_JPRB /)  
+KB(:,20,16) = (/ &
+ & 0.37032E-03_JPRB,0.35107E-03_JPRB,0.33355E-03_JPRB,0.31795E-03_JPRB,0.30443E-03_JPRB /)  
+KB(:,21,16) = (/ &
+ & 0.38004E-03_JPRB,0.35962E-03_JPRB,0.34106E-03_JPRB,0.32482E-03_JPRB,0.31071E-03_JPRB /)  
+KB(:,22,16) = (/ &
+ & 0.38628E-03_JPRB,0.36502E-03_JPRB,0.34582E-03_JPRB,0.32929E-03_JPRB,0.31473E-03_JPRB /)  
+KB(:,23,16) = (/ &
+ & 0.39046E-03_JPRB,0.36870E-03_JPRB,0.34902E-03_JPRB,0.33239E-03_JPRB,0.31753E-03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART16',1,ZHOOK_HANDLE)
+END SUBROUTINE PART16
+
+
+SUBROUTINE PART17
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART17',0,ZHOOK_HANDLE)
+
+
+KB(:,24,16) = (/ &
+ & 0.39290E-03_JPRB,0.37079E-03_JPRB,0.35085E-03_JPRB,0.33417E-03_JPRB,0.31909E-03_JPRB /)  
+KB(:,25,16) = (/ &
+ & 0.39368E-03_JPRB,0.37132E-03_JPRB,0.35155E-03_JPRB,0.33489E-03_JPRB,0.31974E-03_JPRB /)  
+KB(:,26,16) = (/ &
+ & 0.39288E-03_JPRB,0.37052E-03_JPRB,0.35111E-03_JPRB,0.33452E-03_JPRB,0.31938E-03_JPRB /)  
+KB(:,27,16) = (/ &
+ & 0.39120E-03_JPRB,0.36896E-03_JPRB,0.34999E-03_JPRB,0.33347E-03_JPRB,0.31836E-03_JPRB /)  
+KB(:,28,16) = (/ &
+ & 0.38862E-03_JPRB,0.36669E-03_JPRB,0.34828E-03_JPRB,0.33189E-03_JPRB,0.31693E-03_JPRB /)  
+KB(:,29,16) = (/ &
+ & 0.38540E-03_JPRB,0.36396E-03_JPRB,0.34596E-03_JPRB,0.32975E-03_JPRB,0.31502E-03_JPRB /)  
+KB(:,30,16) = (/ &
+ & 0.38165E-03_JPRB,0.36095E-03_JPRB,0.34333E-03_JPRB,0.32738E-03_JPRB,0.31277E-03_JPRB /)  
+KB(:,31,16) = (/ &
+ & 0.37756E-03_JPRB,0.35762E-03_JPRB,0.34034E-03_JPRB,0.32467E-03_JPRB,0.31030E-03_JPRB /)  
+KB(:,32,16) = (/ &
+ & 0.37323E-03_JPRB,0.35410E-03_JPRB,0.33709E-03_JPRB,0.32164E-03_JPRB,0.30764E-03_JPRB /)  
+KB(:,33,16) = (/ &
+ & 0.36881E-03_JPRB,0.35033E-03_JPRB,0.33368E-03_JPRB,0.31855E-03_JPRB,0.30481E-03_JPRB /)  
+KB(:,34,16) = (/ &
+ & 0.36518E-03_JPRB,0.34710E-03_JPRB,0.33080E-03_JPRB,0.31589E-03_JPRB,0.30241E-03_JPRB /)  
+KB(:,35,16) = (/ &
+ & 0.36331E-03_JPRB,0.34548E-03_JPRB,0.32924E-03_JPRB,0.31455E-03_JPRB,0.30119E-03_JPRB /)  
+KB(:,36,16) = (/ &
+ & 0.36345E-03_JPRB,0.34559E-03_JPRB,0.32934E-03_JPRB,0.31463E-03_JPRB,0.30125E-03_JPRB /)  
+KB(:,37,16) = (/ &
+ & 0.36636E-03_JPRB,0.34821E-03_JPRB,0.33175E-03_JPRB,0.31676E-03_JPRB,0.30324E-03_JPRB /)  
+KB(:,38,16) = (/ &
+ & 0.36948E-03_JPRB,0.35092E-03_JPRB,0.33423E-03_JPRB,0.31902E-03_JPRB,0.30527E-03_JPRB /)  
+KB(:,39,16) = (/ &
+ & 0.37259E-03_JPRB,0.35368E-03_JPRB,0.33668E-03_JPRB,0.32128E-03_JPRB,0.30727E-03_JPRB /)  
+KB(:,40,16) = (/ &
+ & 0.37795E-03_JPRB,0.35829E-03_JPRB,0.34085E-03_JPRB,0.32505E-03_JPRB,0.31069E-03_JPRB /)  
+KB(:,41,16) = (/ &
+ & 0.38379E-03_JPRB,0.36312E-03_JPRB,0.34529E-03_JPRB,0.32908E-03_JPRB,0.31437E-03_JPRB /)  
+KB(:,42,16) = (/ &
+ & 0.38990E-03_JPRB,0.36819E-03_JPRB,0.34980E-03_JPRB,0.33322E-03_JPRB,0.31806E-03_JPRB /)  
+KB(:,43,16) = (/ &
+ & 0.39755E-03_JPRB,0.37469E-03_JPRB,0.35548E-03_JPRB,0.33833E-03_JPRB,0.32274E-03_JPRB /)  
+KB(:,44,16) = (/ &
+ & 0.40604E-03_JPRB,0.38206E-03_JPRB,0.36178E-03_JPRB,0.34404E-03_JPRB,0.32793E-03_JPRB /)  
+KB(:,45,16) = (/ &
+ & 0.41497E-03_JPRB,0.38998E-03_JPRB,0.36828E-03_JPRB,0.34986E-03_JPRB,0.33329E-03_JPRB /)  
+KB(:,46,16) = (/ &
+ & 0.42497E-03_JPRB,0.39871E-03_JPRB,0.37566E-03_JPRB,0.35633E-03_JPRB,0.33909E-03_JPRB /)  
+KB(:,47,16) = (/ &
+ & 0.43684E-03_JPRB,0.40880E-03_JPRB,0.38451E-03_JPRB,0.36380E-03_JPRB,0.34586E-03_JPRB /)  
+KB(:,48,16) = (/ &
+ & 0.44932E-03_JPRB,0.41960E-03_JPRB,0.39404E-03_JPRB,0.37171E-03_JPRB,0.35286E-03_JPRB /)  
+KB(:,49,16) = (/ &
+ & 0.46270E-03_JPRB,0.43113E-03_JPRB,0.40397E-03_JPRB,0.38027E-03_JPRB,0.36021E-03_JPRB /)  
+KB(:,50,16) = (/ &
+ & 0.47605E-03_JPRB,0.44249E-03_JPRB,0.41370E-03_JPRB,0.38887E-03_JPRB,0.36733E-03_JPRB /)  
+KB(:,51,16) = (/ &
+ & 0.48981E-03_JPRB,0.45414E-03_JPRB,0.42376E-03_JPRB,0.39765E-03_JPRB,0.37477E-03_JPRB /)  
+KB(:,52,16) = (/ &
+ & 0.50430E-03_JPRB,0.46661E-03_JPRB,0.43437E-03_JPRB,0.40673E-03_JPRB,0.38268E-03_JPRB /)  
+KB(:,53,16) = (/ &
+ & 0.51980E-03_JPRB,0.47970E-03_JPRB,0.44558E-03_JPRB,0.41639E-03_JPRB,0.39115E-03_JPRB /)  
+KB(:,54,16) = (/ &
+ & 0.53506E-03_JPRB,0.49244E-03_JPRB,0.45647E-03_JPRB,0.42564E-03_JPRB,0.39926E-03_JPRB /)  
+KB(:,55,16) = (/ &
+ & 0.55131E-03_JPRB,0.50528E-03_JPRB,0.46739E-03_JPRB,0.43505E-03_JPRB,0.40730E-03_JPRB /)  
+KB(:,56,16) = (/ &
+ & 0.56909E-03_JPRB,0.51883E-03_JPRB,0.47884E-03_JPRB,0.44497E-03_JPRB,0.41571E-03_JPRB /)  
+KB(:,57,16) = (/ &
+ & 0.58824E-03_JPRB,0.53334E-03_JPRB,0.49097E-03_JPRB,0.45523E-03_JPRB,0.42457E-03_JPRB /)  
+KB(:,58,16) = (/ &
+ & 0.60745E-03_JPRB,0.54837E-03_JPRB,0.50301E-03_JPRB,0.46546E-03_JPRB,0.43352E-03_JPRB /)  
+KB(:,59,16) = (/ &
+ & 0.61557E-03_JPRB,0.55493E-03_JPRB,0.50805E-03_JPRB,0.46962E-03_JPRB,0.43716E-03_JPRB /)  
+
+!     -----------------------------------------------------------------
+
+FORREF(:, 1) = (/ 0.351362E-07_JPRB, 0.341136E-07_JPRB, 0.181317E-06_JPRB /)
+FORREF(:, 2) = (/ 0.109648E-06_JPRB, 0.344240E-06_JPRB, 0.139709E-05_JPRB /)
+FORREF(:, 3) = (/ 0.374823E-06_JPRB, 0.103424E-05_JPRB, 0.188717E-05_JPRB /)
+FORREF(:, 4) = (/ 0.580041E-06_JPRB, 0.116876E-05_JPRB, 0.121183E-05_JPRB /)
+FORREF(:, 5) = (/ 0.115608E-05_JPRB, 0.148110E-05_JPRB, 0.836083E-06_JPRB /)
+FORREF(:, 6) = (/ 0.181460E-05_JPRB, 0.133313E-05_JPRB, 0.500167E-06_JPRB /)
+FORREF(:, 7) = (/ 0.199096E-05_JPRB, 0.115276E-05_JPRB, 0.432994E-06_JPRB /)
+FORREF(:, 8) = (/ 0.183730E-05_JPRB, 0.122260E-05_JPRB, 0.433248E-06_JPRB /)
+FORREF(:, 9) = (/ 0.198386E-05_JPRB, 0.100130E-05_JPRB, 0.269712E-06_JPRB /)
+FORREF(:,10) = (/ 0.276382E-05_JPRB, 0.749215E-06_JPRB, 0.236919E-06_JPRB /)
+FORREF(:,11) = (/ 0.298202E-05_JPRB, 0.629688E-06_JPRB, 0.228388E-06_JPRB /)
+FORREF(:,12) = (/ 0.364604E-05_JPRB, 0.455336E-06_JPRB, 0.206130E-06_JPRB /)
+FORREF(:,13) = (/ 0.373339E-05_JPRB, 0.245210E-06_JPRB, 0.201987E-06_JPRB /)
+FORREF(:,14) = (/ 0.480378E-05_JPRB, 0.177591E-06_JPRB, 0.171458E-06_JPRB /)
+FORREF(:,15) = (/ 0.521700E-05_JPRB, 0.203358E-06_JPRB, 0.189559E-06_JPRB /)
+FORREF(:,16) = (/ 0.542717E-05_JPRB, 0.219022E-06_JPRB, 0.218271E-06_JPRB /)
+
+!     -----------------------------------------------------------------
+!     The array SELFREF contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+SELFREF(:, 1) = (/ &
+ & 0.538526E-04_JPRB, 0.464603E-04_JPRB, 0.400828E-04_JPRB, 0.345807E-04_JPRB, 0.298339E-04_JPRB, &
+ & 0.257386E-04_JPRB, 0.222055E-04_JPRB, 0.191574E-04_JPRB, 0.165277E-04_JPRB, 0.142590E-04_JPRB /)  
+SELFREF(:, 2) = (/ &
+ & 0.162409E-03_JPRB, 0.128347E-03_JPRB, 0.101430E-03_JPRB, 0.801571E-04_JPRB, 0.633460E-04_JPRB, &
+ & 0.500607E-04_JPRB, 0.395616E-04_JPRB, 0.312645E-04_JPRB, 0.247075E-04_JPRB, 0.195257E-04_JPRB /)  
+SELFREF(:, 3) = (/ &
+ & 0.262882E-03_JPRB, 0.212793E-03_JPRB, 0.172247E-03_JPRB, 0.139427E-03_JPRB, 0.112860E-03_JPRB, &
+ & 0.913557E-04_JPRB, 0.739487E-04_JPRB, 0.598584E-04_JPRB, 0.484529E-04_JPRB, 0.392206E-04_JPRB /)  
+SELFREF(:, 4) = (/ &
+ & 0.242873E-03_JPRB, 0.204225E-03_JPRB, 0.171726E-03_JPRB, 0.144399E-03_JPRB, 0.121421E-03_JPRB, &
+ & 0.102099E-03_JPRB, 0.858516E-04_JPRB, 0.721899E-04_JPRB, 0.607022E-04_JPRB, 0.510426E-04_JPRB /)  
+SELFREF(:, 5) = (/ &
+ & 0.235614E-03_JPRB, 0.207814E-03_JPRB, 0.183293E-03_JPRB, 0.161666E-03_JPRB, 0.142591E-03_JPRB, &
+ & 0.125766E-03_JPRB, 0.110927E-03_JPRB, 0.978381E-04_JPRB, 0.862939E-04_JPRB, 0.761119E-04_JPRB /)  
+SELFREF(:, 6) = (/ &
+ & 0.205508E-03_JPRB, 0.190174E-03_JPRB, 0.175985E-03_JPRB, 0.162854E-03_JPRB, 0.150702E-03_JPRB, &
+ & 0.139458E-03_JPRB, 0.129052E-03_JPRB, 0.119423E-03_JPRB, 0.110513E-03_JPRB, 0.102267E-03_JPRB /)  
+SELFREF(:, 7) = (/ &
+ & 0.185027E-03_JPRB, 0.175148E-03_JPRB, 0.165796E-03_JPRB, 0.156944E-03_JPRB, 0.148565E-03_JPRB, &
+ & 0.140633E-03_JPRB, 0.133124E-03_JPRB, 0.126016E-03_JPRB, 0.119288E-03_JPRB, 0.112919E-03_JPRB /)  
+SELFREF(:, 8) = (/ &
+ & 0.192634E-03_JPRB, 0.180192E-03_JPRB, 0.168554E-03_JPRB, 0.157668E-03_JPRB, 0.147484E-03_JPRB, &
+ & 0.137959E-03_JPRB, 0.129048E-03_JPRB, 0.120713E-03_JPRB, 0.112917E-03_JPRB, 0.105624E-03_JPRB /)  
+SELFREF(:, 9) = (/ &
+ & 0.161632E-03_JPRB, 0.155919E-03_JPRB, 0.150408E-03_JPRB, 0.145092E-03_JPRB, 0.139963E-03_JPRB, &
+ & 0.135016E-03_JPRB, 0.130244E-03_JPRB, 0.125640E-03_JPRB, 0.121199E-03_JPRB, 0.116915E-03_JPRB /)  
+SELFREF(:,10) = (/ &
+ & 0.120880E-03_JPRB, 0.125265E-03_JPRB, 0.129810E-03_JPRB, 0.134520E-03_JPRB, 0.139400E-03_JPRB, &
+ & 0.144458E-03_JPRB, 0.149699E-03_JPRB, 0.155130E-03_JPRB, 0.160758E-03_JPRB, 0.166591E-03_JPRB /)  
+SELFREF(:,11) = (/ &
+ & 0.104705E-03_JPRB, 0.111761E-03_JPRB, 0.119291E-03_JPRB, 0.127330E-03_JPRB, 0.135910E-03_JPRB, &
+ & 0.145068E-03_JPRB, 0.154843E-03_JPRB, 0.165277E-03_JPRB, 0.176414E-03_JPRB, 0.188302E-03_JPRB /)  
+SELFREF(:,12) = (/ &
+ & 0.846335E-04_JPRB, 0.951236E-04_JPRB, 0.106914E-03_JPRB, 0.120166E-03_JPRB, 0.135060E-03_JPRB, &
+ & 0.151800E-03_JPRB, 0.170616E-03_JPRB, 0.191763E-03_JPRB, 0.215532E-03_JPRB, 0.242246E-03_JPRB /)  
+SELFREF(:,13) = (/ &
+ & 0.669754E-04_JPRB, 0.781902E-04_JPRB, 0.912829E-04_JPRB, 0.106568E-03_JPRB, 0.124413E-03_JPRB, &
+ & 0.145245E-03_JPRB, 0.169566E-03_JPRB, 0.197959E-03_JPRB, 0.231107E-03_JPRB, 0.269805E-03_JPRB /)  
+SELFREF(:,14) = (/ &
+ & 0.597091E-04_JPRB, 0.722265E-04_JPRB, 0.873679E-04_JPRB, 0.105684E-03_JPRB, 0.127839E-03_JPRB, &
+ & 0.154639E-03_JPRB, 0.187057E-03_JPRB, 0.226272E-03_JPRB, 0.273707E-03_JPRB, 0.331087E-03_JPRB /)  
+SELFREF(:,15) = (/ &
+ & 0.640410E-04_JPRB, 0.771879E-04_JPRB, 0.930338E-04_JPRB, 0.112133E-03_JPRB, 0.135152E-03_JPRB, &
+ & 0.162897E-03_JPRB, 0.196338E-03_JPRB, 0.236644E-03_JPRB, 0.285225E-03_JPRB, 0.343778E-03_JPRB /)  
+SELFREF(:,16) = (/ &
+ & 0.666420E-04_JPRB, 0.801056E-04_JPRB, 0.962892E-04_JPRB, 0.115742E-03_JPRB, 0.139126E-03_JPRB, &
+ & 0.167233E-03_JPRB, 0.201019E-03_JPRB, 0.241630E-03_JPRB, 0.290446E-03_JPRB, 0.349125E-03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB22:PART17',1,ZHOOK_HANDLE)
+END SUBROUTINE PART17
+
+
+END SUBROUTINE SRTM_KGB22
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb22.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb22.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb22.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_KGB22
+END SUBROUTINE SRTM_KGB22
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb23.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb23.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb23.F90	(revision 1989)
@@ -0,0 +1,559 @@
+!OCL SCALAR
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif 
+SUBROUTINE SRTM_KGB23
+
+!     Originally by J.Delamere, Atmospheric & Environmental Research.
+!     Revision: 2.4
+!     BAND 16:  8050-12850 cm-1 (low - H2O; high - nothing)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOESRTA23, ONLY : KA, SELFREF, FORREF, SFLUXREF, RAYL &
+ & , GIVFAC, LAYREFFR  
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+
+! KURUCZ
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB23',0,ZHOOK_HANDLE)
+SFLUXREF = (/ &
+ & 53.2101_JPRB , 51.4143_JPRB, 49.3348_JPRB, 45.4612_JPRB    , &
+ & 40.8294_JPRB , 35.1801_JPRB, 28.6947_JPRB, 21.5751_JPRB    , &
+ & 14.6388_JPRB , 1.59111_JPRB, 1.31860_JPRB, 1.04018_JPRB    , &
+ & 0.762140_JPRB,0.484214_JPRB,0.182275_JPRB, 2.54948E-02_JPRB /)  
+
+!     Rayleigh extinction coefficient at all v 
+RAYL = (/ &
+ & 5.94837E-08_JPRB,5.70593E-08_JPRB,6.27845E-08_JPRB,5.56602E-08_JPRB, &
+ & 5.25571E-08_JPRB,4.73388E-08_JPRB,4.17466E-08_JPRB,3.98097E-08_JPRB, &
+ & 4.00786E-08_JPRB,3.67478E-08_JPRB,3.45186E-08_JPRB,3.46156E-08_JPRB, &
+ & 3.32155E-08_JPRB,3.23642E-08_JPRB,2.72590E-08_JPRB,2.96813E-08_JPRB /)  
+
+!     Average Giver et al. correction factor for this band.
+GIVFAC = 1.029_JPRB
+
+LAYREFFR = 6
+
+!     ------------------------------------------------------------------
+
+!     The array KA contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels> ~100mb, temperatures, and binary
+!     species parameters (see taumol.f for definition).  The first 
+!     index in the array, JS, runs from 1 to 9, and corresponds to 
+!     different values of the binary species parameter.  For instance, 
+!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, 
+!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index
+!     in the array, JT, which runs from 1 to 5, corresponds to different
+!     temperatures.  More specifically, JT = 3 means that the data are for
+!     the reference temperature TREF for this  pressure level, JT = 2 refers
+!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the JPth reference pressure level (see taumol.f for these levels
+!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates
+!     which g-interval the absorption coefficients are for.
+!     -----------------------------------------------------------------
+
+KA(:, 1, 1) = (/ &
+ & 0.33078E-07_JPRB,0.34034E-07_JPRB,0.35124E-07_JPRB,0.34187E-07_JPRB,0.34744E-07_JPRB /)  
+KA(:, 2, 1) = (/ &
+ & 0.25544E-07_JPRB,0.25873E-07_JPRB,0.26742E-07_JPRB,0.27512E-07_JPRB,0.27504E-07_JPRB /)  
+KA(:, 3, 1) = (/ &
+ & 0.18549E-07_JPRB,0.19611E-07_JPRB,0.20840E-07_JPRB,0.22548E-07_JPRB,0.23069E-07_JPRB /)  
+KA(:, 4, 1) = (/ &
+ & 0.28794E-07_JPRB,0.30837E-07_JPRB,0.32679E-07_JPRB,0.34307E-07_JPRB,0.36901E-07_JPRB /)  
+KA(:, 5, 1) = (/ &
+ & 0.36776E-07_JPRB,0.39144E-07_JPRB,0.41300E-07_JPRB,0.43264E-07_JPRB,0.46626E-07_JPRB /)  
+KA(:, 6, 1) = (/ &
+ & 0.59710E-07_JPRB,0.62941E-07_JPRB,0.65500E-07_JPRB,0.67353E-07_JPRB,0.68774E-07_JPRB /)  
+KA(:, 7, 1) = (/ &
+ & 0.12143E-06_JPRB,0.12932E-06_JPRB,0.13250E-06_JPRB,0.13526E-06_JPRB,0.13849E-06_JPRB /)  
+KA(:, 8, 1) = (/ &
+ & 0.12531E-06_JPRB,0.13241E-06_JPRB,0.13939E-06_JPRB,0.14705E-06_JPRB,0.15465E-06_JPRB /)  
+KA(:, 9, 1) = (/ &
+ & 0.20209E-06_JPRB,0.21134E-06_JPRB,0.22163E-06_JPRB,0.23098E-06_JPRB,0.24004E-06_JPRB /)  
+KA(:,10, 1) = (/ &
+ & 0.10750E-05_JPRB,0.11204E-05_JPRB,0.11575E-05_JPRB,0.11923E-05_JPRB,0.12227E-05_JPRB /)  
+KA(:,11, 1) = (/ &
+ & 0.27782E-05_JPRB,0.28204E-05_JPRB,0.28406E-05_JPRB,0.28380E-05_JPRB,0.28440E-05_JPRB /)  
+KA(:,12, 1) = (/ &
+ & 0.38510E-05_JPRB,0.39934E-05_JPRB,0.40697E-05_JPRB,0.41102E-05_JPRB,0.41571E-05_JPRB /)  
+KA(:,13, 1) = (/ &
+ & 0.43157E-05_JPRB,0.44488E-05_JPRB,0.45799E-05_JPRB,0.46585E-05_JPRB,0.47223E-05_JPRB /)  
+KA(:, 1, 2) = (/ &
+ & 0.84637E-06_JPRB,0.86989E-06_JPRB,0.90697E-06_JPRB,0.90000E-06_JPRB,0.91373E-06_JPRB /)  
+KA(:, 2, 2) = (/ &
+ & 0.67062E-06_JPRB,0.68649E-06_JPRB,0.72334E-06_JPRB,0.73645E-06_JPRB,0.72978E-06_JPRB /)  
+KA(:, 3, 2) = (/ &
+ & 0.52317E-06_JPRB,0.53924E-06_JPRB,0.55425E-06_JPRB,0.58347E-06_JPRB,0.57813E-06_JPRB /)  
+KA(:, 4, 2) = (/ &
+ & 0.39868E-06_JPRB,0.41431E-06_JPRB,0.42761E-06_JPRB,0.43892E-06_JPRB,0.45982E-06_JPRB /)  
+KA(:, 5, 2) = (/ &
+ & 0.32074E-06_JPRB,0.33452E-06_JPRB,0.34754E-06_JPRB,0.35582E-06_JPRB,0.37378E-06_JPRB /)  
+KA(:, 6, 2) = (/ &
+ & 0.42465E-06_JPRB,0.44058E-06_JPRB,0.45605E-06_JPRB,0.47192E-06_JPRB,0.48493E-06_JPRB /)  
+KA(:, 7, 2) = (/ &
+ & 0.47581E-06_JPRB,0.50000E-06_JPRB,0.52487E-06_JPRB,0.54192E-06_JPRB,0.55955E-06_JPRB /)  
+KA(:, 8, 2) = (/ &
+ & 0.10592E-05_JPRB,0.11093E-05_JPRB,0.11483E-05_JPRB,0.11923E-05_JPRB,0.12169E-05_JPRB /)  
+KA(:, 9, 2) = (/ &
+ & 0.50835E-05_JPRB,0.51710E-05_JPRB,0.52329E-05_JPRB,0.52644E-05_JPRB,0.52818E-05_JPRB /)  
+KA(:,10, 2) = (/ &
+ & 0.77867E-05_JPRB,0.82156E-05_JPRB,0.86002E-05_JPRB,0.89664E-05_JPRB,0.92394E-05_JPRB /)  
+KA(:,11, 2) = (/ &
+ & 0.89031E-05_JPRB,0.93573E-05_JPRB,0.97686E-05_JPRB,0.10236E-04_JPRB,0.10591E-04_JPRB /)  
+KA(:,12, 2) = (/ &
+ & 0.98068E-05_JPRB,0.10238E-04_JPRB,0.10700E-04_JPRB,0.11108E-04_JPRB,0.11471E-04_JPRB /)  
+KA(:,13, 2) = (/ &
+ & 0.11145E-04_JPRB,0.11697E-04_JPRB,0.12123E-04_JPRB,0.12482E-04_JPRB,0.12856E-04_JPRB /)  
+KA(:, 1, 3) = (/ &
+ & 0.66049E-05_JPRB,0.67547E-05_JPRB,0.70104E-05_JPRB,0.69745E-05_JPRB,0.70687E-05_JPRB /)  
+KA(:, 2, 3) = (/ &
+ & 0.54104E-05_JPRB,0.55245E-05_JPRB,0.57623E-05_JPRB,0.58532E-05_JPRB,0.58099E-05_JPRB /)  
+KA(:, 3, 3) = (/ &
+ & 0.43608E-05_JPRB,0.44784E-05_JPRB,0.45778E-05_JPRB,0.47665E-05_JPRB,0.47295E-05_JPRB /)  
+KA(:, 4, 3) = (/ &
+ & 0.35399E-05_JPRB,0.36454E-05_JPRB,0.37356E-05_JPRB,0.38107E-05_JPRB,0.39586E-05_JPRB /)  
+KA(:, 5, 3) = (/ &
+ & 0.28576E-05_JPRB,0.29552E-05_JPRB,0.30325E-05_JPRB,0.31028E-05_JPRB,0.32276E-05_JPRB /)  
+KA(:, 6, 3) = (/ &
+ & 0.21017E-05_JPRB,0.21836E-05_JPRB,0.22554E-05_JPRB,0.23121E-05_JPRB,0.23486E-05_JPRB /)  
+KA(:, 7, 3) = (/ &
+ & 0.19384E-05_JPRB,0.19914E-05_JPRB,0.20428E-05_JPRB,0.20879E-05_JPRB,0.21191E-05_JPRB /)  
+KA(:, 8, 3) = (/ &
+ & 0.32672E-05_JPRB,0.33753E-05_JPRB,0.34694E-05_JPRB,0.35273E-05_JPRB,0.35984E-05_JPRB /)  
+KA(:, 9, 3) = (/ &
+ & 0.82257E-05_JPRB,0.84975E-05_JPRB,0.86969E-05_JPRB,0.88995E-05_JPRB,0.90123E-05_JPRB /)  
+KA(:,10, 3) = (/ &
+ & 0.35363E-04_JPRB,0.36204E-04_JPRB,0.36916E-04_JPRB,0.37708E-04_JPRB,0.38294E-04_JPRB /)  
+KA(:,11, 3) = (/ &
+ & 0.48837E-04_JPRB,0.50952E-04_JPRB,0.52710E-04_JPRB,0.54347E-04_JPRB,0.55976E-04_JPRB /)  
+KA(:,12, 3) = (/ &
+ & 0.56059E-04_JPRB,0.58301E-04_JPRB,0.60100E-04_JPRB,0.61776E-04_JPRB,0.63179E-04_JPRB /)  
+KA(:,13, 3) = (/ &
+ & 0.57871E-04_JPRB,0.59505E-04_JPRB,0.60930E-04_JPRB,0.62289E-04_JPRB,0.63278E-04_JPRB /)  
+KA(:, 1, 4) = (/ &
+ & 0.27624E-04_JPRB,0.28017E-04_JPRB,0.29078E-04_JPRB,0.28567E-04_JPRB,0.28724E-04_JPRB /)  
+KA(:, 2, 4) = (/ &
+ & 0.23107E-04_JPRB,0.23464E-04_JPRB,0.24357E-04_JPRB,0.24519E-04_JPRB,0.24024E-04_JPRB /)  
+KA(:, 3, 4) = (/ &
+ & 0.19113E-04_JPRB,0.19400E-04_JPRB,0.19615E-04_JPRB,0.20420E-04_JPRB,0.19962E-04_JPRB /)  
+KA(:, 4, 4) = (/ &
+ & 0.15873E-04_JPRB,0.16138E-04_JPRB,0.16349E-04_JPRB,0.16528E-04_JPRB,0.17176E-04_JPRB /)  
+KA(:, 5, 4) = (/ &
+ & 0.13198E-04_JPRB,0.13437E-04_JPRB,0.13641E-04_JPRB,0.13810E-04_JPRB,0.14393E-04_JPRB /)  
+KA(:, 6, 4) = (/ &
+ & 0.10951E-04_JPRB,0.11172E-04_JPRB,0.11352E-04_JPRB,0.11506E-04_JPRB,0.11631E-04_JPRB /)  
+KA(:, 7, 4) = (/ &
+ & 0.86121E-05_JPRB,0.88300E-05_JPRB,0.90149E-05_JPRB,0.91565E-05_JPRB,0.92594E-05_JPRB /)  
+KA(:, 8, 4) = (/ &
+ & 0.71478E-05_JPRB,0.72918E-05_JPRB,0.74035E-05_JPRB,0.74959E-05_JPRB,0.75566E-05_JPRB /)  
+KA(:, 9, 4) = (/ &
+ & 0.16458E-04_JPRB,0.17092E-04_JPRB,0.17686E-04_JPRB,0.17967E-04_JPRB,0.18273E-04_JPRB /)  
+KA(:,10, 4) = (/ &
+ & 0.47953E-04_JPRB,0.49663E-04_JPRB,0.51524E-04_JPRB,0.52800E-04_JPRB,0.54192E-04_JPRB /)  
+KA(:,11, 4) = (/ &
+ & 0.94263E-04_JPRB,0.95557E-04_JPRB,0.96513E-04_JPRB,0.97430E-04_JPRB,0.97733E-04_JPRB /)  
+KA(:,12, 4) = (/ &
+ & 0.12087E-03_JPRB,0.12152E-03_JPRB,0.12240E-03_JPRB,0.12318E-03_JPRB,0.12403E-03_JPRB /)  
+KA(:,13, 4) = (/ &
+ & 0.12781E-03_JPRB,0.12897E-03_JPRB,0.13049E-03_JPRB,0.13171E-03_JPRB,0.13337E-03_JPRB /)  
+KA(:, 1, 5) = (/ &
+ & 0.82859E-04_JPRB,0.84817E-04_JPRB,0.89056E-04_JPRB,0.88057E-04_JPRB,0.89410E-04_JPRB /)  
+KA(:, 2, 5) = (/ &
+ & 0.70937E-04_JPRB,0.72685E-04_JPRB,0.76796E-04_JPRB,0.77955E-04_JPRB,0.76735E-04_JPRB /)  
+KA(:, 3, 5) = (/ &
+ & 0.59876E-04_JPRB,0.61448E-04_JPRB,0.62837E-04_JPRB,0.66293E-04_JPRB,0.64996E-04_JPRB /)  
+KA(:, 4, 5) = (/ &
+ & 0.50598E-04_JPRB,0.52054E-04_JPRB,0.53293E-04_JPRB,0.54332E-04_JPRB,0.57333E-04_JPRB /)  
+KA(:, 5, 5) = (/ &
+ & 0.42742E-04_JPRB,0.44035E-04_JPRB,0.45164E-04_JPRB,0.46134E-04_JPRB,0.48935E-04_JPRB /)  
+KA(:, 6, 5) = (/ &
+ & 0.35769E-04_JPRB,0.36975E-04_JPRB,0.38038E-04_JPRB,0.38917E-04_JPRB,0.39681E-04_JPRB /)  
+KA(:, 7, 5) = (/ &
+ & 0.29747E-04_JPRB,0.30824E-04_JPRB,0.31756E-04_JPRB,0.32589E-04_JPRB,0.33314E-04_JPRB /)  
+KA(:, 8, 5) = (/ &
+ & 0.21994E-04_JPRB,0.22945E-04_JPRB,0.23786E-04_JPRB,0.24517E-04_JPRB,0.25155E-04_JPRB /)  
+KA(:, 9, 5) = (/ &
+ & 0.22298E-04_JPRB,0.22688E-04_JPRB,0.23127E-04_JPRB,0.23803E-04_JPRB,0.24335E-04_JPRB /)  
+KA(:,10, 5) = (/ &
+ & 0.88898E-04_JPRB,0.91280E-04_JPRB,0.93333E-04_JPRB,0.95224E-04_JPRB,0.96298E-04_JPRB /)  
+KA(:,11, 5) = (/ &
+ & 0.12299E-03_JPRB,0.12407E-03_JPRB,0.12536E-03_JPRB,0.12642E-03_JPRB,0.12813E-03_JPRB /)  
+KA(:,12, 5) = (/ &
+ & 0.14539E-03_JPRB,0.14851E-03_JPRB,0.15022E-03_JPRB,0.15157E-03_JPRB,0.15204E-03_JPRB /)  
+KA(:,13, 5) = (/ &
+ & 0.15949E-03_JPRB,0.16239E-03_JPRB,0.16467E-03_JPRB,0.16667E-03_JPRB,0.16801E-03_JPRB /)  
+KA(:, 1, 6) = (/ &
+ & 0.25339E-03_JPRB,0.25995E-03_JPRB,0.27170E-03_JPRB,0.26963E-03_JPRB,0.27413E-03_JPRB /)  
+KA(:, 2, 6) = (/ &
+ & 0.21908E-03_JPRB,0.22404E-03_JPRB,0.23522E-03_JPRB,0.23902E-03_JPRB,0.23717E-03_JPRB /)  
+KA(:, 3, 6) = (/ &
+ & 0.18611E-03_JPRB,0.19076E-03_JPRB,0.19518E-03_JPRB,0.20503E-03_JPRB,0.20222E-03_JPRB /)  
+KA(:, 4, 6) = (/ &
+ & 0.15769E-03_JPRB,0.16210E-03_JPRB,0.16597E-03_JPRB,0.16948E-03_JPRB,0.17817E-03_JPRB /)  
+KA(:, 5, 6) = (/ &
+ & 0.13402E-03_JPRB,0.13792E-03_JPRB,0.14153E-03_JPRB,0.14434E-03_JPRB,0.15267E-03_JPRB /)  
+KA(:, 6, 6) = (/ &
+ & 0.11390E-03_JPRB,0.11743E-03_JPRB,0.12065E-03_JPRB,0.12316E-03_JPRB,0.12543E-03_JPRB /)  
+KA(:, 7, 6) = (/ &
+ & 0.96417E-04_JPRB,0.99612E-04_JPRB,0.10233E-03_JPRB,0.10453E-03_JPRB,0.10652E-03_JPRB /)  
+KA(:, 8, 6) = (/ &
+ & 0.81395E-04_JPRB,0.84205E-04_JPRB,0.86346E-04_JPRB,0.88406E-04_JPRB,0.90122E-04_JPRB /)  
+KA(:, 9, 6) = (/ &
+ & 0.47776E-04_JPRB,0.48971E-04_JPRB,0.49736E-04_JPRB,0.49917E-04_JPRB,0.50289E-04_JPRB /)  
+KA(:,10, 6) = (/ &
+ & 0.10698E-03_JPRB,0.10815E-03_JPRB,0.10817E-03_JPRB,0.10799E-03_JPRB,0.10851E-03_JPRB /)  
+KA(:,11, 6) = (/ &
+ & 0.20220E-03_JPRB,0.20727E-03_JPRB,0.21241E-03_JPRB,0.21675E-03_JPRB,0.21989E-03_JPRB /)  
+KA(:,12, 6) = (/ &
+ & 0.23474E-03_JPRB,0.23601E-03_JPRB,0.23974E-03_JPRB,0.24383E-03_JPRB,0.24876E-03_JPRB /)  
+KA(:,13, 6) = (/ &
+ & 0.23410E-03_JPRB,0.23809E-03_JPRB,0.24185E-03_JPRB,0.24554E-03_JPRB,0.24952E-03_JPRB /)  
+KA(:, 1, 7) = (/ &
+ & 0.67024E-03_JPRB,0.68026E-03_JPRB,0.70419E-03_JPRB,0.70159E-03_JPRB,0.71089E-03_JPRB /)  
+KA(:, 2, 7) = (/ &
+ & 0.58729E-03_JPRB,0.59778E-03_JPRB,0.62097E-03_JPRB,0.62912E-03_JPRB,0.62423E-03_JPRB /)  
+KA(:, 3, 7) = (/ &
+ & 0.50967E-03_JPRB,0.51900E-03_JPRB,0.52765E-03_JPRB,0.54794E-03_JPRB,0.54266E-03_JPRB /)  
+KA(:, 4, 7) = (/ &
+ & 0.44167E-03_JPRB,0.45006E-03_JPRB,0.45793E-03_JPRB,0.46469E-03_JPRB,0.48335E-03_JPRB /)  
+KA(:, 5, 7) = (/ &
+ & 0.38096E-03_JPRB,0.38881E-03_JPRB,0.39576E-03_JPRB,0.40259E-03_JPRB,0.42086E-03_JPRB /)  
+KA(:, 6, 7) = (/ &
+ & 0.32818E-03_JPRB,0.33539E-03_JPRB,0.34192E-03_JPRB,0.34829E-03_JPRB,0.35405E-03_JPRB /)  
+KA(:, 7, 7) = (/ &
+ & 0.28259E-03_JPRB,0.28946E-03_JPRB,0.29584E-03_JPRB,0.30203E-03_JPRB,0.30742E-03_JPRB /)  
+KA(:, 8, 7) = (/ &
+ & 0.24273E-03_JPRB,0.24912E-03_JPRB,0.25546E-03_JPRB,0.26110E-03_JPRB,0.26607E-03_JPRB /)  
+KA(:, 9, 7) = (/ &
+ & 0.19937E-03_JPRB,0.20653E-03_JPRB,0.21314E-03_JPRB,0.21968E-03_JPRB,0.22520E-03_JPRB /)  
+KA(:,10, 7) = (/ &
+ & 0.13306E-03_JPRB,0.13331E-03_JPRB,0.13393E-03_JPRB,0.13538E-03_JPRB,0.13616E-03_JPRB /)  
+KA(:,11, 7) = (/ &
+ & 0.16236E-03_JPRB,0.16154E-03_JPRB,0.16187E-03_JPRB,0.16113E-03_JPRB,0.16209E-03_JPRB /)  
+KA(:,12, 7) = (/ &
+ & 0.17872E-03_JPRB,0.18355E-03_JPRB,0.18612E-03_JPRB,0.18792E-03_JPRB,0.18745E-03_JPRB /)  
+KA(:,13, 7) = (/ &
+ & 0.18970E-03_JPRB,0.19384E-03_JPRB,0.19773E-03_JPRB,0.20261E-03_JPRB,0.20377E-03_JPRB /)  
+KA(:, 1, 8) = (/ &
+ & 0.18130E-02_JPRB,0.18305E-02_JPRB,0.18716E-02_JPRB,0.18655E-02_JPRB,0.18814E-02_JPRB /)  
+KA(:, 2, 8) = (/ &
+ & 0.16420E-02_JPRB,0.16600E-02_JPRB,0.17006E-02_JPRB,0.17156E-02_JPRB,0.17108E-02_JPRB /)  
+KA(:, 3, 8) = (/ &
+ & 0.14687E-02_JPRB,0.14870E-02_JPRB,0.15042E-02_JPRB,0.15423E-02_JPRB,0.15376E-02_JPRB /)  
+KA(:, 4, 8) = (/ &
+ & 0.13068E-02_JPRB,0.13248E-02_JPRB,0.13421E-02_JPRB,0.13592E-02_JPRB,0.13960E-02_JPRB /)  
+KA(:, 5, 8) = (/ &
+ & 0.11574E-02_JPRB,0.11753E-02_JPRB,0.11928E-02_JPRB,0.12097E-02_JPRB,0.12467E-02_JPRB /)  
+KA(:, 6, 8) = (/ &
+ & 0.10167E-02_JPRB,0.10342E-02_JPRB,0.10515E-02_JPRB,0.10681E-02_JPRB,0.10840E-02_JPRB /)  
+KA(:, 7, 8) = (/ &
+ & 0.88992E-03_JPRB,0.90662E-03_JPRB,0.92299E-03_JPRB,0.93844E-03_JPRB,0.95347E-03_JPRB /)  
+KA(:, 8, 8) = (/ &
+ & 0.78445E-03_JPRB,0.80031E-03_JPRB,0.81639E-03_JPRB,0.83131E-03_JPRB,0.84631E-03_JPRB /)  
+KA(:, 9, 8) = (/ &
+ & 0.69812E-03_JPRB,0.71312E-03_JPRB,0.72801E-03_JPRB,0.74222E-03_JPRB,0.75605E-03_JPRB /)  
+KA(:,10, 8) = (/ &
+ & 0.32521E-03_JPRB,0.33835E-03_JPRB,0.35194E-03_JPRB,0.36381E-03_JPRB,0.37594E-03_JPRB /)  
+KA(:,11, 8) = (/ &
+ & 0.31406E-03_JPRB,0.32013E-03_JPRB,0.32456E-03_JPRB,0.33261E-03_JPRB,0.33741E-03_JPRB /)  
+KA(:,12, 8) = (/ &
+ & 0.28132E-03_JPRB,0.28732E-03_JPRB,0.29674E-03_JPRB,0.30509E-03_JPRB,0.31393E-03_JPRB /)  
+KA(:,13, 8) = (/ &
+ & 0.25704E-03_JPRB,0.26316E-03_JPRB,0.27195E-03_JPRB,0.27732E-03_JPRB,0.28905E-03_JPRB /)  
+KA(:, 1, 9) = (/ &
+ & 0.67370E-02_JPRB,0.67873E-02_JPRB,0.68896E-02_JPRB,0.68819E-02_JPRB,0.69268E-02_JPRB /)  
+KA(:, 2, 9) = (/ &
+ & 0.63111E-02_JPRB,0.63622E-02_JPRB,0.64623E-02_JPRB,0.65060E-02_JPRB,0.65027E-02_JPRB /)  
+KA(:, 3, 9) = (/ &
+ & 0.58834E-02_JPRB,0.59361E-02_JPRB,0.59858E-02_JPRB,0.60811E-02_JPRB,0.60806E-02_JPRB /)  
+KA(:, 4, 9) = (/ &
+ & 0.54753E-02_JPRB,0.55309E-02_JPRB,0.55823E-02_JPRB,0.56306E-02_JPRB,0.57229E-02_JPRB /)  
+KA(:, 5, 9) = (/ &
+ & 0.50781E-02_JPRB,0.51373E-02_JPRB,0.51895E-02_JPRB,0.52391E-02_JPRB,0.53328E-02_JPRB /)  
+KA(:, 6, 9) = (/ &
+ & 0.46791E-02_JPRB,0.47408E-02_JPRB,0.47949E-02_JPRB,0.48470E-02_JPRB,0.48993E-02_JPRB /)  
+KA(:, 7, 9) = (/ &
+ & 0.42724E-02_JPRB,0.43381E-02_JPRB,0.43951E-02_JPRB,0.44503E-02_JPRB,0.45061E-02_JPRB /)  
+KA(:, 8, 9) = (/ &
+ & 0.38568E-02_JPRB,0.39254E-02_JPRB,0.39848E-02_JPRB,0.40431E-02_JPRB,0.41005E-02_JPRB /)  
+KA(:, 9, 9) = (/ &
+ & 0.35657E-02_JPRB,0.36362E-02_JPRB,0.36994E-02_JPRB,0.37608E-02_JPRB,0.38215E-02_JPRB /)  
+KA(:,10, 9) = (/ &
+ & 0.33774E-02_JPRB,0.34501E-02_JPRB,0.35171E-02_JPRB,0.35811E-02_JPRB,0.36450E-02_JPRB /)  
+KA(:,11, 9) = (/ &
+ & 0.23923E-02_JPRB,0.24623E-02_JPRB,0.25263E-02_JPRB,0.25890E-02_JPRB,0.26517E-02_JPRB /)  
+KA(:,12, 9) = (/ &
+ & 0.16959E-02_JPRB,0.17542E-02_JPRB,0.18077E-02_JPRB,0.18614E-02_JPRB,0.19187E-02_JPRB /)  
+KA(:,13, 9) = (/ &
+ & 0.11732E-02_JPRB,0.12232E-02_JPRB,0.12712E-02_JPRB,0.13221E-02_JPRB,0.13677E-02_JPRB /)  
+KA(:, 1,10) = (/ &
+ & 0.19604E-01_JPRB,0.19698E-01_JPRB,0.19938E-01_JPRB,0.19854E-01_JPRB,0.19950E-01_JPRB /)  
+KA(:, 2,10) = (/ &
+ & 0.18714E-01_JPRB,0.18803E-01_JPRB,0.19035E-01_JPRB,0.19131E-01_JPRB,0.19102E-01_JPRB /)  
+KA(:, 3,10) = (/ &
+ & 0.17676E-01_JPRB,0.17785E-01_JPRB,0.17904E-01_JPRB,0.18189E-01_JPRB,0.18156E-01_JPRB /)  
+KA(:, 4,10) = (/ &
+ & 0.16662E-01_JPRB,0.16773E-01_JPRB,0.16908E-01_JPRB,0.17056E-01_JPRB,0.17303E-01_JPRB /)  
+KA(:, 5,10) = (/ &
+ & 0.15655E-01_JPRB,0.15775E-01_JPRB,0.15942E-01_JPRB,0.16103E-01_JPRB,0.16359E-01_JPRB /)  
+KA(:, 6,10) = (/ &
+ & 0.14694E-01_JPRB,0.14838E-01_JPRB,0.15029E-01_JPRB,0.15200E-01_JPRB,0.15320E-01_JPRB /)  
+KA(:, 7,10) = (/ &
+ & 0.13797E-01_JPRB,0.13959E-01_JPRB,0.14174E-01_JPRB,0.14350E-01_JPRB,0.14471E-01_JPRB /)  
+KA(:, 8,10) = (/ &
+ & 0.12902E-01_JPRB,0.13089E-01_JPRB,0.13313E-01_JPRB,0.13489E-01_JPRB,0.13626E-01_JPRB /)  
+KA(:, 9,10) = (/ &
+ & 0.11897E-01_JPRB,0.12105E-01_JPRB,0.12333E-01_JPRB,0.12512E-01_JPRB,0.12656E-01_JPRB /)  
+KA(:,10,10) = (/ &
+ & 0.11834E-01_JPRB,0.12072E-01_JPRB,0.12331E-01_JPRB,0.12548E-01_JPRB,0.12721E-01_JPRB /)  
+KA(:,11,10) = (/ &
+ & 0.11416E-01_JPRB,0.11699E-01_JPRB,0.11968E-01_JPRB,0.12141E-01_JPRB,0.12311E-01_JPRB /)  
+KA(:,12,10) = (/ &
+ & 0.10776E-01_JPRB,0.11070E-01_JPRB,0.11309E-01_JPRB,0.11507E-01_JPRB,0.11702E-01_JPRB /)  
+KA(:,13,10) = (/ &
+ & 0.99577E-02_JPRB,0.10263E-01_JPRB,0.10492E-01_JPRB,0.10719E-01_JPRB,0.10951E-01_JPRB /)  
+KA(:, 1,11) = (/ &
+ & 0.29783E-01_JPRB,0.29883E-01_JPRB,0.30210E-01_JPRB,0.30141E-01_JPRB,0.30248E-01_JPRB /)  
+KA(:, 2,11) = (/ &
+ & 0.28562E-01_JPRB,0.28743E-01_JPRB,0.29186E-01_JPRB,0.29339E-01_JPRB,0.29258E-01_JPRB /)  
+KA(:, 3,11) = (/ &
+ & 0.27212E-01_JPRB,0.27429E-01_JPRB,0.27654E-01_JPRB,0.28083E-01_JPRB,0.28023E-01_JPRB /)  
+KA(:, 4,11) = (/ &
+ & 0.25949E-01_JPRB,0.26197E-01_JPRB,0.26424E-01_JPRB,0.26623E-01_JPRB,0.27069E-01_JPRB /)  
+KA(:, 5,11) = (/ &
+ & 0.24686E-01_JPRB,0.24942E-01_JPRB,0.25176E-01_JPRB,0.25403E-01_JPRB,0.25908E-01_JPRB /)  
+KA(:, 6,11) = (/ &
+ & 0.23430E-01_JPRB,0.23686E-01_JPRB,0.23923E-01_JPRB,0.24158E-01_JPRB,0.24433E-01_JPRB /)  
+KA(:, 7,11) = (/ &
+ & 0.22171E-01_JPRB,0.22424E-01_JPRB,0.22653E-01_JPRB,0.22909E-01_JPRB,0.23203E-01_JPRB /)  
+KA(:, 8,11) = (/ &
+ & 0.20928E-01_JPRB,0.21171E-01_JPRB,0.21407E-01_JPRB,0.21699E-01_JPRB,0.22018E-01_JPRB /)  
+KA(:, 9,11) = (/ &
+ & 0.19076E-01_JPRB,0.19320E-01_JPRB,0.19548E-01_JPRB,0.19858E-01_JPRB,0.20150E-01_JPRB /)  
+KA(:,10,11) = (/ &
+ & 0.19537E-01_JPRB,0.19788E-01_JPRB,0.20064E-01_JPRB,0.20391E-01_JPRB,0.20843E-01_JPRB /)  
+KA(:,11,11) = (/ &
+ & 0.19137E-01_JPRB,0.19444E-01_JPRB,0.19793E-01_JPRB,0.20268E-01_JPRB,0.20695E-01_JPRB /)  
+KA(:,12,11) = (/ &
+ & 0.18393E-01_JPRB,0.18715E-01_JPRB,0.19143E-01_JPRB,0.19652E-01_JPRB,0.20037E-01_JPRB /)  
+KA(:,13,11) = (/ &
+ & 0.17255E-01_JPRB,0.17680E-01_JPRB,0.18170E-01_JPRB,0.18641E-01_JPRB,0.19010E-01_JPRB /)  
+KA(:, 1,12) = (/ &
+ & 0.46641E-01_JPRB,0.46796E-01_JPRB,0.47107E-01_JPRB,0.46977E-01_JPRB,0.47093E-01_JPRB /)  
+KA(:, 2,12) = (/ &
+ & 0.46819E-01_JPRB,0.46956E-01_JPRB,0.47337E-01_JPRB,0.47426E-01_JPRB,0.47339E-01_JPRB /)  
+KA(:, 3,12) = (/ &
+ & 0.46276E-01_JPRB,0.46366E-01_JPRB,0.46462E-01_JPRB,0.46935E-01_JPRB,0.46862E-01_JPRB /)  
+KA(:, 4,12) = (/ &
+ & 0.44986E-01_JPRB,0.45103E-01_JPRB,0.45287E-01_JPRB,0.45535E-01_JPRB,0.46152E-01_JPRB /)  
+KA(:, 5,12) = (/ &
+ & 0.43367E-01_JPRB,0.43552E-01_JPRB,0.43761E-01_JPRB,0.44035E-01_JPRB,0.44674E-01_JPRB /)  
+KA(:, 6,12) = (/ &
+ & 0.41584E-01_JPRB,0.41793E-01_JPRB,0.42020E-01_JPRB,0.42344E-01_JPRB,0.42701E-01_JPRB /)  
+KA(:, 7,12) = (/ &
+ & 0.39785E-01_JPRB,0.40007E-01_JPRB,0.40269E-01_JPRB,0.40635E-01_JPRB,0.41003E-01_JPRB /)  
+KA(:, 8,12) = (/ &
+ & 0.37918E-01_JPRB,0.38155E-01_JPRB,0.38468E-01_JPRB,0.38839E-01_JPRB,0.39210E-01_JPRB /)  
+KA(:, 9,12) = (/ &
+ & 0.35060E-01_JPRB,0.35328E-01_JPRB,0.35698E-01_JPRB,0.36105E-01_JPRB,0.36551E-01_JPRB /)  
+KA(:,10,12) = (/ &
+ & 0.35216E-01_JPRB,0.35547E-01_JPRB,0.35872E-01_JPRB,0.36327E-01_JPRB,0.36542E-01_JPRB /)  
+KA(:,11,12) = (/ &
+ & 0.35158E-01_JPRB,0.35374E-01_JPRB,0.35869E-01_JPRB,0.36242E-01_JPRB,0.36691E-01_JPRB /)  
+KA(:,12,12) = (/ &
+ & 0.34264E-01_JPRB,0.34598E-01_JPRB,0.35106E-01_JPRB,0.35505E-01_JPRB,0.36021E-01_JPRB /)  
+KA(:,13,12) = (/ &
+ & 0.32716E-01_JPRB,0.33195E-01_JPRB,0.33830E-01_JPRB,0.34228E-01_JPRB,0.34925E-01_JPRB /)  
+KA(:, 1,13) = (/ &
+ & 0.76084E-01_JPRB,0.76052E-01_JPRB,0.76051E-01_JPRB,0.75851E-01_JPRB,0.75753E-01_JPRB /)  
+KA(:, 2,13) = (/ &
+ & 0.79580E-01_JPRB,0.79564E-01_JPRB,0.79664E-01_JPRB,0.79619E-01_JPRB,0.79414E-01_JPRB /)  
+KA(:, 3,13) = (/ &
+ & 0.82218E-01_JPRB,0.82302E-01_JPRB,0.82367E-01_JPRB,0.82543E-01_JPRB,0.82246E-01_JPRB /)  
+KA(:, 4,13) = (/ &
+ & 0.83613E-01_JPRB,0.83740E-01_JPRB,0.83824E-01_JPRB,0.83866E-01_JPRB,0.84103E-01_JPRB /)  
+KA(:, 5,13) = (/ &
+ & 0.83913E-01_JPRB,0.84123E-01_JPRB,0.84289E-01_JPRB,0.84403E-01_JPRB,0.84840E-01_JPRB /)  
+KA(:, 6,13) = (/ &
+ & 0.83159E-01_JPRB,0.83442E-01_JPRB,0.83718E-01_JPRB,0.83891E-01_JPRB,0.83993E-01_JPRB /)  
+KA(:, 7,13) = (/ &
+ & 0.81401E-01_JPRB,0.81826E-01_JPRB,0.82202E-01_JPRB,0.82451E-01_JPRB,0.82656E-01_JPRB /)  
+KA(:, 8,13) = (/ &
+ & 0.78949E-01_JPRB,0.79505E-01_JPRB,0.79978E-01_JPRB,0.80351E-01_JPRB,0.80690E-01_JPRB /)  
+KA(:, 9,13) = (/ &
+ & 0.76002E-01_JPRB,0.76671E-01_JPRB,0.77279E-01_JPRB,0.77752E-01_JPRB,0.78257E-01_JPRB /)  
+KA(:,10,13) = (/ &
+ & 0.69777E-01_JPRB,0.70425E-01_JPRB,0.71054E-01_JPRB,0.71706E-01_JPRB,0.72167E-01_JPRB /)  
+KA(:,11,13) = (/ &
+ & 0.72929E-01_JPRB,0.73732E-01_JPRB,0.74323E-01_JPRB,0.75246E-01_JPRB,0.75786E-01_JPRB /)  
+KA(:,12,13) = (/ &
+ & 0.73007E-01_JPRB,0.74429E-01_JPRB,0.74922E-01_JPRB,0.75916E-01_JPRB,0.76947E-01_JPRB /)  
+KA(:,13,13) = (/ &
+ & 0.71376E-01_JPRB,0.72507E-01_JPRB,0.73710E-01_JPRB,0.74716E-01_JPRB,0.75702E-01_JPRB /)  
+KA(:, 1,14) = (/ &
+ & 0.12585E+00_JPRB,0.12569E+00_JPRB,0.12576E+00_JPRB,0.12571E+00_JPRB,0.12570E+00_JPRB /)  
+KA(:, 2,14) = (/ &
+ & 0.13868E+00_JPRB,0.13853E+00_JPRB,0.13849E+00_JPRB,0.13824E+00_JPRB,0.13803E+00_JPRB /)  
+KA(:, 3,14) = (/ &
+ & 0.15142E+00_JPRB,0.15135E+00_JPRB,0.15112E+00_JPRB,0.15093E+00_JPRB,0.15074E+00_JPRB /)  
+KA(:, 4,14) = (/ &
+ & 0.16359E+00_JPRB,0.16359E+00_JPRB,0.16339E+00_JPRB,0.16311E+00_JPRB,0.16285E+00_JPRB /)  
+KA(:, 5,14) = (/ &
+ & 0.17462E+00_JPRB,0.17472E+00_JPRB,0.17456E+00_JPRB,0.17421E+00_JPRB,0.17393E+00_JPRB /)  
+KA(:, 6,14) = (/ &
+ & 0.18403E+00_JPRB,0.18447E+00_JPRB,0.18450E+00_JPRB,0.18424E+00_JPRB,0.18395E+00_JPRB /)  
+KA(:, 7,14) = (/ &
+ & 0.19179E+00_JPRB,0.19239E+00_JPRB,0.19256E+00_JPRB,0.19253E+00_JPRB,0.19252E+00_JPRB /)  
+KA(:, 8,14) = (/ &
+ & 0.19772E+00_JPRB,0.19863E+00_JPRB,0.19901E+00_JPRB,0.19923E+00_JPRB,0.19947E+00_JPRB /)  
+KA(:, 9,14) = (/ &
+ & 0.20154E+00_JPRB,0.20279E+00_JPRB,0.20355E+00_JPRB,0.20417E+00_JPRB,0.20473E+00_JPRB /)  
+KA(:,10,14) = (/ &
+ & 0.18853E+00_JPRB,0.19028E+00_JPRB,0.19160E+00_JPRB,0.19253E+00_JPRB,0.19393E+00_JPRB /)  
+KA(:,11,14) = (/ &
+ & 0.18013E+00_JPRB,0.18167E+00_JPRB,0.18320E+00_JPRB,0.18375E+00_JPRB,0.18507E+00_JPRB /)  
+KA(:,12,14) = (/ &
+ & 0.19011E+00_JPRB,0.19027E+00_JPRB,0.19283E+00_JPRB,0.19402E+00_JPRB,0.19478E+00_JPRB /)  
+KA(:,13,14) = (/ &
+ & 0.19594E+00_JPRB,0.19738E+00_JPRB,0.19911E+00_JPRB,0.20124E+00_JPRB,0.20282E+00_JPRB /)  
+KA(:, 1,15) = (/ &
+ & 0.22369E+00_JPRB,0.22259E+00_JPRB,0.22155E+00_JPRB,0.22059E+00_JPRB,0.21997E+00_JPRB /)  
+KA(:, 2,15) = (/ &
+ & 0.25602E+00_JPRB,0.25478E+00_JPRB,0.25377E+00_JPRB,0.25306E+00_JPRB,0.25237E+00_JPRB /)  
+KA(:, 3,15) = (/ &
+ & 0.29258E+00_JPRB,0.29107E+00_JPRB,0.28998E+00_JPRB,0.28920E+00_JPRB,0.28830E+00_JPRB /)  
+KA(:, 4,15) = (/ &
+ & 0.33067E+00_JPRB,0.32888E+00_JPRB,0.32753E+00_JPRB,0.32646E+00_JPRB,0.32566E+00_JPRB /)  
+KA(:, 5,15) = (/ &
+ & 0.37114E+00_JPRB,0.36880E+00_JPRB,0.36713E+00_JPRB,0.36598E+00_JPRB,0.36499E+00_JPRB /)  
+KA(:, 6,15) = (/ &
+ & 0.41494E+00_JPRB,0.41167E+00_JPRB,0.40935E+00_JPRB,0.40779E+00_JPRB,0.40636E+00_JPRB /)  
+KA(:, 7,15) = (/ &
+ & 0.46115E+00_JPRB,0.45729E+00_JPRB,0.45455E+00_JPRB,0.45230E+00_JPRB,0.45004E+00_JPRB /)  
+KA(:, 8,15) = (/ &
+ & 0.50906E+00_JPRB,0.50463E+00_JPRB,0.50137E+00_JPRB,0.49843E+00_JPRB,0.49550E+00_JPRB /)  
+KA(:, 9,15) = (/ &
+ & 0.55829E+00_JPRB,0.55330E+00_JPRB,0.54936E+00_JPRB,0.54557E+00_JPRB,0.54168E+00_JPRB /)  
+KA(:,10,15) = (/ &
+ & 0.60814E+00_JPRB,0.60274E+00_JPRB,0.59806E+00_JPRB,0.59326E+00_JPRB,0.58833E+00_JPRB /)  
+KA(:,11,15) = (/ &
+ & 0.62954E+00_JPRB,0.62588E+00_JPRB,0.62076E+00_JPRB,0.61665E+00_JPRB,0.61184E+00_JPRB /)  
+KA(:,12,15) = (/ &
+ & 0.62585E+00_JPRB,0.62437E+00_JPRB,0.61807E+00_JPRB,0.61303E+00_JPRB,0.60869E+00_JPRB /)  
+KA(:,13,15) = (/ &
+ & 0.64856E+00_JPRB,0.64505E+00_JPRB,0.63861E+00_JPRB,0.63277E+00_JPRB,0.62702E+00_JPRB /)  
+KA(:, 1,16) = (/ &
+ & 0.33327E+00_JPRB,0.33385E+00_JPRB,0.33538E+00_JPRB,0.33638E+00_JPRB,0.33736E+00_JPRB /)  
+KA(:, 2,16) = (/ &
+ & 0.40916E+00_JPRB,0.40842E+00_JPRB,0.40848E+00_JPRB,0.40865E+00_JPRB,0.40854E+00_JPRB /)  
+KA(:, 3,16) = (/ &
+ & 0.50099E+00_JPRB,0.49888E+00_JPRB,0.49727E+00_JPRB,0.49588E+00_JPRB,0.49422E+00_JPRB /)  
+KA(:, 4,16) = (/ &
+ & 0.60389E+00_JPRB,0.60029E+00_JPRB,0.59704E+00_JPRB,0.59367E+00_JPRB,0.59071E+00_JPRB /)  
+KA(:, 5,16) = (/ &
+ & 0.71868E+00_JPRB,0.71337E+00_JPRB,0.70835E+00_JPRB,0.70318E+00_JPRB,0.69852E+00_JPRB /)  
+KA(:, 6,16) = (/ &
+ & 0.84815E+00_JPRB,0.84138E+00_JPRB,0.83446E+00_JPRB,0.82728E+00_JPRB,0.82023E+00_JPRB /)  
+KA(:, 7,16) = (/ &
+ & 0.99512E+00_JPRB,0.98644E+00_JPRB,0.97698E+00_JPRB,0.96695E+00_JPRB,0.95712E+00_JPRB /)  
+KA(:, 8,16) = (/ &
+ & 0.11606E+01_JPRB,0.11485E+01_JPRB,0.11354E+01_JPRB,0.11218E+01_JPRB,0.11077E+01_JPRB /)  
+KA(:, 9,16) = (/ &
+ & 0.13444E+01_JPRB,0.13282E+01_JPRB,0.13102E+01_JPRB,0.12917E+01_JPRB,0.12735E+01_JPRB /)  
+KA(:,10,16) = (/ &
+ & 0.15423E+01_JPRB,0.15207E+01_JPRB,0.14970E+01_JPRB,0.14733E+01_JPRB,0.14494E+01_JPRB /)  
+KA(:,11,16) = (/ &
+ & 0.17462E+01_JPRB,0.17138E+01_JPRB,0.16827E+01_JPRB,0.16518E+01_JPRB,0.16199E+01_JPRB /)  
+KA(:,12,16) = (/ &
+ & 0.19577E+01_JPRB,0.19145E+01_JPRB,0.18728E+01_JPRB,0.18320E+01_JPRB,0.17910E+01_JPRB /)  
+KA(:,13,16) = (/ &
+ & 0.21716E+01_JPRB,0.21171E+01_JPRB,0.20639E+01_JPRB,0.20113E+01_JPRB,0.19587E+01_JPRB /)  
+  
+!     -----------------------------------------------------------------
+
+FORREF(:, 1) = (/ 0.315770E-07_JPRB, 0.671978E-07_JPRB, 0.440649E-06_JPRB /)
+FORREF(:, 2) = (/ 0.313674E-06_JPRB, 0.285252E-06_JPRB, 0.421024E-05_JPRB /)
+FORREF(:, 3) = (/ 0.135818E-05_JPRB, 0.145071E-05_JPRB, 0.611285E-05_JPRB /)
+FORREF(:, 4) = (/ 0.534065E-05_JPRB, 0.586268E-05_JPRB, 0.933970E-05_JPRB /)
+FORREF(:, 5) = (/ 0.964007E-05_JPRB, 0.107110E-04_JPRB, 0.104486E-04_JPRB /)
+FORREF(:, 6) = (/ 0.302775E-04_JPRB, 0.357530E-04_JPRB, 0.340724E-04_JPRB /)
+FORREF(:, 7) = (/ 0.102437E-03_JPRB, 0.108475E-03_JPRB, 0.105245E-03_JPRB /)
+FORREF(:, 8) = (/ 0.146054E-03_JPRB, 0.141490E-03_JPRB, 0.133071E-03_JPRB /)
+FORREF(:, 9) = (/ 0.163978E-03_JPRB, 0.150208E-03_JPRB, 0.142864E-03_JPRB /)
+FORREF(:,10) = (/ 0.220412E-03_JPRB, 0.182943E-03_JPRB, 0.150941E-03_JPRB /)
+FORREF(:,11) = (/ 0.228877E-03_JPRB, 0.197679E-03_JPRB, 0.163220E-03_JPRB /)
+FORREF(:,12) = (/ 0.234177E-03_JPRB, 0.217734E-03_JPRB, 0.185038E-03_JPRB /)
+FORREF(:,13) = (/ 0.257187E-03_JPRB, 0.241570E-03_JPRB, 0.221178E-03_JPRB /)
+FORREF(:,14) = (/ 0.272455E-03_JPRB, 0.270637E-03_JPRB, 0.256269E-03_JPRB /)
+FORREF(:,15) = (/ 0.339445E-03_JPRB, 0.300268E-03_JPRB, 0.286574E-03_JPRB /)
+FORREF(:,16) = (/ 0.338841E-03_JPRB, 0.355428E-03_JPRB, 0.353794E-03_JPRB /)
+
+!     -----------------------------------------------------------------
+!     The array SELFREF contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+SELFREF(:, 1) = (/ &
+ & 0.100945E-04_JPRB, 0.801113E-05_JPRB, 0.635771E-05_JPRB, 0.504554E-05_JPRB, 0.400419E-05_JPRB, &
+ & 0.317777E-05_JPRB, 0.252191E-05_JPRB, 0.200141E-05_JPRB, 0.158834E-05_JPRB, 0.126052E-05_JPRB /)  
+SELFREF(:, 2) = (/ &
+ & 0.107573E-04_JPRB, 0.999809E-05_JPRB, 0.929245E-05_JPRB, 0.863661E-05_JPRB, 0.802706E-05_JPRB, &
+ & 0.746053E-05_JPRB, 0.693399E-05_JPRB, 0.644460E-05_JPRB, 0.598976E-05_JPRB, 0.556702E-05_JPRB /)  
+SELFREF(:, 3) = (/ &
+ & 0.350389E-04_JPRB, 0.319234E-04_JPRB, 0.290850E-04_JPRB, 0.264989E-04_JPRB, 0.241428E-04_JPRB, &
+ & 0.219962E-04_JPRB, 0.200404E-04_JPRB, 0.182586E-04_JPRB, 0.166351E-04_JPRB, 0.151560E-04_JPRB /)  
+SELFREF(:, 4) = (/ &
+ & 0.122993E-03_JPRB, 0.110885E-03_JPRB, 0.999691E-04_JPRB, 0.901277E-04_JPRB, 0.812551E-04_JPRB, &
+ & 0.732559E-04_JPRB, 0.660443E-04_JPRB, 0.595426E-04_JPRB, 0.536809E-04_JPRB, 0.483963E-04_JPRB /)  
+SELFREF(:, 5) = (/ &
+ & 0.206434E-03_JPRB, 0.187435E-03_JPRB, 0.170185E-03_JPRB, 0.154522E-03_JPRB, 0.140301E-03_JPRB, &
+ & 0.127388E-03_JPRB, 0.115664E-03_JPRB, 0.105019E-03_JPRB, 0.953540E-04_JPRB, 0.865783E-04_JPRB /)  
+SELFREF(:, 6) = (/ &
+ & 0.590645E-03_JPRB, 0.533109E-03_JPRB, 0.481177E-03_JPRB, 0.434305E-03_JPRB, 0.391998E-03_JPRB, &
+ & 0.353812E-03_JPRB, 0.319346E-03_JPRB, 0.288238E-03_JPRB, 0.260160E-03_JPRB, 0.234817E-03_JPRB /)  
+SELFREF(:, 7) = (/ &
+ & 0.163029E-02_JPRB, 0.148773E-02_JPRB, 0.135763E-02_JPRB, 0.123891E-02_JPRB, 0.113057E-02_JPRB, &
+ & 0.103170E-02_JPRB, 0.941483E-03_JPRB, 0.859153E-03_JPRB, 0.784023E-03_JPRB, 0.715462E-03_JPRB /)  
+SELFREF(:, 8) = (/ &
+ & 0.204528E-02_JPRB, 0.189258E-02_JPRB, 0.175128E-02_JPRB, 0.162053E-02_JPRB, 0.149954E-02_JPRB, &
+ & 0.138758E-02_JPRB, 0.128398E-02_JPRB, 0.118812E-02_JPRB, 0.109941E-02_JPRB, 0.101733E-02_JPRB /)  
+SELFREF(:, 9) = (/ &
+ & 0.210589E-02_JPRB, 0.197078E-02_JPRB, 0.184434E-02_JPRB, 0.172601E-02_JPRB, 0.161528E-02_JPRB, &
+ & 0.151164E-02_JPRB, 0.141466E-02_JPRB, 0.132390E-02_JPRB, 0.123896E-02_JPRB, 0.115947E-02_JPRB /)  
+SELFREF(:,10) = (/ &
+ & 0.245098E-02_JPRB, 0.233745E-02_JPRB, 0.222918E-02_JPRB, 0.212592E-02_JPRB, 0.202745E-02_JPRB, &
+ & 0.193353E-02_JPRB, 0.184397E-02_JPRB, 0.175856E-02_JPRB, 0.167710E-02_JPRB, 0.159941E-02_JPRB /)  
+SELFREF(:,11) = (/ &
+ & 0.267460E-02_JPRB, 0.253325E-02_JPRB, 0.239936E-02_JPRB, 0.227255E-02_JPRB, 0.215244E-02_JPRB, &
+ & 0.203868E-02_JPRB, 0.193093E-02_JPRB, 0.182888E-02_JPRB, 0.173222E-02_JPRB, 0.164067E-02_JPRB /)  
+SELFREF(:,12) = (/ &
+ & 0.304510E-02_JPRB, 0.283919E-02_JPRB, 0.264720E-02_JPRB, 0.246820E-02_JPRB, 0.230130E-02_JPRB, &
+ & 0.214568E-02_JPRB, 0.200059E-02_JPRB, 0.186531E-02_JPRB, 0.173918E-02_JPRB, 0.162157E-02_JPRB /)  
+SELFREF(:,13) = (/ &
+ & 0.338445E-02_JPRB, 0.314719E-02_JPRB, 0.292655E-02_JPRB, 0.272139E-02_JPRB, 0.253060E-02_JPRB, &
+ & 0.235319E-02_JPRB, 0.218822E-02_JPRB, 0.203482E-02_JPRB, 0.189217E-02_JPRB, 0.175952E-02_JPRB /)  
+SELFREF(:,14) = (/ &
+ & 0.388649E-02_JPRB, 0.357018E-02_JPRB, 0.327961E-02_JPRB, 0.301269E-02_JPRB, 0.276750E-02_JPRB, &
+ & 0.254226E-02_JPRB, 0.233535E-02_JPRB, 0.214528E-02_JPRB, 0.197068E-02_JPRB, 0.181029E-02_JPRB /)  
+SELFREF(:,15) = (/ &
+ & 0.412547E-02_JPRB, 0.387413E-02_JPRB, 0.363810E-02_JPRB, 0.341646E-02_JPRB, 0.320831E-02_JPRB, &
+ & 0.301285E-02_JPRB, 0.282930E-02_JPRB, 0.265693E-02_JPRB, 0.249506E-02_JPRB, 0.234305E-02_JPRB /)  
+SELFREF(:,16) = (/ &
+ & 0.534327E-02_JPRB, 0.482967E-02_JPRB, 0.436544E-02_JPRB, 0.394583E-02_JPRB, 0.356655E-02_JPRB, &
+ & 0.322373E-02_JPRB, 0.291387E-02_JPRB, 0.263378E-02_JPRB, 0.238062E-02_JPRB, 0.215179E-02_JPRB /)  
+     
+!     -----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB23',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_KGB23
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb23.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb23.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb23.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_KGB23
+END SUBROUTINE SRTM_KGB23
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb24.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb24.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb24.F90	(revision 1989)
@@ -0,0 +1,5092 @@
+!OCL SCALAR
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif 
+!pgi$r opt=0
+SUBROUTINE SRTM_KGB24
+
+!     Originally by J.Delamere, Atmospheric & Environmental Research.
+!     Revision: 2.4
+!     BAND 24: 12850-16000 cm-1 (low - H2O,O2; high - O2)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     R. Elkhatib 12-10-2005 Split for faster and more robust compilation.
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOESRTA24, ONLY : KA, KB, SELFREF, FORREF, SFLUXREF, RAYLA, RAYLB &
+ & , ABSO3A, ABSO3B, STRRAT, LAYREFFR  
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+
+! KURUCZ
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24',0,ZHOOK_HANDLE)
+
+CALL PART1
+CALL PART2
+CALL PART3
+CALL PART4
+CALL PART5
+CALL PART6
+CALL PART7
+CALL PART8
+CALL PART9
+CALL PART10
+CALL PART11
+CALL PART12
+CALL PART13
+CALL PART14
+CALL PART15
+CALL PART16
+CALL PART17
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24',1,ZHOOK_HANDLE)
+
+!     -----------------------------------------------------------------
+
+CONTAINS
+
+
+SUBROUTINE PART1
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART1',0,ZHOOK_HANDLE)
+
+
+SFLUXREF(:,1) = (/ &
+ & 34.3610_JPRB , 33.1240_JPRB, 31.3948_JPRB, 28.7248_JPRB, &
+ & 24.7884_JPRB , 21.4892_JPRB, 17.3972_JPRB, 13.7928_JPRB, &
+ & 9.54462_JPRB , 1.05002_JPRB,0.867332_JPRB,0.685753_JPRB, &
+ & 0.504718_JPRB,0.323112_JPRB,0.122183_JPRB, 1.70288E-02_JPRB /)  
+SFLUXREF(:,2) = (/ &
+ & 34.2367_JPRB , 32.4327_JPRB, 30.0863_JPRB, 28.2085_JPRB,  &
+ & 25.6533_JPRB , 22.3412_JPRB, 18.3112_JPRB, 13.8521_JPRB, &
+ & 9.51035_JPRB , 1.04138_JPRB,0.863493_JPRB,0.682790_JPRB, &
+ & 0.504721_JPRB,0.323102_JPRB,0.122193_JPRB, 1.70288E-02_JPRB /)  
+SFLUXREF(:,3) = (/ &
+ & 34.1883_JPRB , 32.2479_JPRB, 30.2650_JPRB, 28.2914_JPRB, &
+ & 25.6626_JPRB , 22.3163_JPRB, 18.3327_JPRB, 13.8508_JPRB, &
+ & 9.49190_JPRB , 1.03672_JPRB,0.858272_JPRB,0.681485_JPRB, &
+ & 0.501363_JPRB,0.323110_JPRB,0.122183_JPRB, 1.70288E-02_JPRB /)  
+SFLUXREF(:,4) = (/ &
+ & 34.1365_JPRB , 32.2316_JPRB, 30.3325_JPRB, 28.3305_JPRB, &
+ & 25.6420_JPRB , 22.3223_JPRB, 18.3411_JPRB, 13.8471_JPRB, &
+ & 9.47492_JPRB , 1.03376_JPRB,0.855380_JPRB,0.679085_JPRB, &
+ & 0.497998_JPRB,0.323053_JPRB,0.122183_JPRB, 1.70288E-02_JPRB /)  
+SFLUXREF(:,5) = (/ &
+ & 34.0460_JPRB , 32.2795_JPRB, 30.4147_JPRB, 28.3123_JPRB, &
+ & 25.6438_JPRB , 22.3238_JPRB, 18.3441_JPRB, 13.8528_JPRB, &
+ & 9.45222_JPRB , 1.03058_JPRB,0.854037_JPRB,0.675554_JPRB, &
+ & 0.498344_JPRB,0.320072_JPRB,0.122193_JPRB, 1.70288E-02_JPRB /)  
+SFLUXREF(:,6) = (/ &
+ & 33.9909_JPRB , 32.3127_JPRB, 30.4854_JPRB, 28.3005_JPRB, &
+ & 25.6310_JPRB , 22.3294_JPRB, 18.3459_JPRB, 13.8488_JPRB, &
+ & 9.43336_JPRB , 1.02901_JPRB,0.852728_JPRB,0.672322_JPRB, &
+ & 0.498056_JPRB,0.317753_JPRB,0.122183_JPRB, 1.70288E-02_JPRB /)  
+SFLUXREF(:,7) = (/ &
+ & 33.9225_JPRB , 32.4097_JPRB, 30.5125_JPRB, 28.2810_JPRB, &
+ & 25.6387_JPRB , 22.3080_JPRB, 18.3715_JPRB, 13.8248_JPRB, &
+ & 9.41834_JPRB , 1.02735_JPRB,0.850807_JPRB,0.671379_JPRB, &
+ & 0.496975_JPRB,0.317158_JPRB,0.119297_JPRB, 1.70207E-02_JPRB /)  
+SFLUXREF(:,8) = (/ &
+ & 33.8940_JPRB , 32.4951_JPRB, 30.5494_JPRB, 28.2788_JPRB, &
+ & 25.5975_JPRB , 22.3225_JPRB, 18.3358_JPRB, 13.8199_JPRB, &
+ & 9.40283_JPRB , 1.02751_JPRB,0.850729_JPRB,0.670152_JPRB, &
+ & 0.494294_JPRB,0.315829_JPRB,0.116195_JPRB, 1.64138E-02_JPRB /)  
+SFLUXREF(:,9) = (/ &
+ & 34.6501_JPRB , 32.6690_JPRB, 30.2872_JPRB, 28.0955_JPRB, &
+ & 25.4662_JPRB , 22.1446_JPRB, 18.2754_JPRB, 13.7573_JPRB, &
+ & 9.36645_JPRB , 1.02356_JPRB,0.847154_JPRB,0.668519_JPRB, &
+ & 0.489186_JPRB,0.313790_JPRB,0.117074_JPRB, 1.60943E-02_JPRB /)  
+
+!     Rayleigh extinction coefficient at all v
+RAYLA(:,1) = (/ &
+ & 1.28405E-07_JPRB,1.45501E-07_JPRB,1.67272E-07_JPRB,1.94856E-07_JPRB, &
+ & 2.15248E-07_JPRB,2.34920E-07_JPRB,2.48558E-07_JPRB,1.80004E-07_JPRB, &
+ & 1.46504E-07_JPRB,1.31355E-07_JPRB,1.33562E-07_JPRB,1.35618E-07_JPRB, &
+ & 1.22412E-07_JPRB,1.19842E-07_JPRB,1.19924E-07_JPRB,1.20264E-07_JPRB /)  
+RAYLA(:,2) = (/ &
+ & 1.41622E-07_JPRB,1.93436E-07_JPRB,2.25057E-07_JPRB,2.01025E-07_JPRB, &
+ & 1.85138E-07_JPRB,1.72672E-07_JPRB,1.64771E-07_JPRB,1.59312E-07_JPRB, &
+ & 1.44961E-07_JPRB,1.37448E-07_JPRB,1.37506E-07_JPRB,1.38081E-07_JPRB, &
+ & 1.22432E-07_JPRB,1.19844E-07_JPRB,1.19921E-07_JPRB,1.20287E-07_JPRB /)  
+RAYLA(:,3) = (/ &
+ & 1.45382E-07_JPRB,1.97020E-07_JPRB,2.22781E-07_JPRB,1.96062E-07_JPRB, &
+ & 1.83495E-07_JPRB,1.72495E-07_JPRB,1.64910E-07_JPRB,1.58797E-07_JPRB, &
+ & 1.46208E-07_JPRB,1.42274E-07_JPRB,1.40445E-07_JPRB,1.39496E-07_JPRB, &
+ & 1.26940E-07_JPRB,1.19844E-07_JPRB,1.19921E-07_JPRB,1.20287E-07_JPRB /)  
+RAYLA(:,4) = (/ &
+ & 1.48247E-07_JPRB,1.99958E-07_JPRB,2.18048E-07_JPRB,1.93896E-07_JPRB, &
+ & 1.83125E-07_JPRB,1.73244E-07_JPRB,1.64320E-07_JPRB,1.58298E-07_JPRB, &
+ & 1.48428E-07_JPRB,1.44769E-07_JPRB,1.43704E-07_JPRB,1.38498E-07_JPRB, &
+ & 1.31732E-07_JPRB,1.22299E-07_JPRB,1.19921E-07_JPRB,1.20287E-07_JPRB /)  
+RAYLA(:,5) = (/ &
+ & 1.51343E-07_JPRB,1.99621E-07_JPRB,2.14563E-07_JPRB,1.93824E-07_JPRB, &
+ & 1.82992E-07_JPRB,1.73143E-07_JPRB,1.64587E-07_JPRB,1.57355E-07_JPRB, &
+ & 1.51198E-07_JPRB,1.46373E-07_JPRB,1.45438E-07_JPRB,1.38095E-07_JPRB, &
+ & 1.35026E-07_JPRB,1.27504E-07_JPRB,1.19921E-07_JPRB,1.20287E-07_JPRB /)  
+RAYLA(:,6) = (/ &
+ & 1.54462E-07_JPRB,1.97610E-07_JPRB,2.11992E-07_JPRB,1.93831E-07_JPRB, &
+ & 1.83900E-07_JPRB,1.73125E-07_JPRB,1.64093E-07_JPRB,1.57651E-07_JPRB, &
+ & 1.53158E-07_JPRB,1.46843E-07_JPRB,1.44733E-07_JPRB,1.40611E-07_JPRB, &
+ & 1.37320E-07_JPRB,1.33932E-07_JPRB,1.20423E-07_JPRB,1.20287E-07_JPRB /)  
+RAYLA(:,7) = (/ &
+ & 1.59068E-07_JPRB,1.92757E-07_JPRB,2.09865E-07_JPRB,1.95132E-07_JPRB, &
+ & 1.83641E-07_JPRB,1.73778E-07_JPRB,1.63215E-07_JPRB,1.59462E-07_JPRB, &
+ & 1.54331E-07_JPRB,1.46177E-07_JPRB,1.45819E-07_JPRB,1.43177E-07_JPRB, &
+ & 1.39797E-07_JPRB,1.36780E-07_JPRB,1.33385E-07_JPRB,1.20287E-07_JPRB /)  
+RAYLA(:,8) = (/ &
+ & 1.62066E-07_JPRB,1.87529E-07_JPRB,2.07191E-07_JPRB,1.97788E-07_JPRB, &
+ & 1.84920E-07_JPRB,1.72951E-07_JPRB,1.65450E-07_JPRB,1.60344E-07_JPRB, &
+ & 1.54403E-07_JPRB,1.47679E-07_JPRB,1.47287E-07_JPRB,1.44951E-07_JPRB, &
+ & 1.42517E-07_JPRB,1.41107E-07_JPRB,1.48688E-07_JPRB,1.51127E-07_JPRB /)  
+RAYLA(:,9) = (/ &
+ & 1.19177E-07_JPRB,1.86522E-07_JPRB,2.20324E-07_JPRB,2.13543E-07_JPRB, &
+ & 1.92198E-07_JPRB,1.81641E-07_JPRB,1.70092E-07_JPRB,1.65072E-07_JPRB, &
+ & 1.59804E-07_JPRB,1.56745E-07_JPRB,1.51235E-07_JPRB,1.51400E-07_JPRB, &
+ & 1.49635E-07_JPRB,1.48056E-07_JPRB,1.49046E-07_JPRB,1.51010E-07_JPRB /)  
+
+RAYLB = (/ &
+ & 1.23766E-07_JPRB,1.40524E-07_JPRB,1.61610E-07_JPRB,1.83232E-07_JPRB, &
+ & 2.02951E-07_JPRB,2.21367E-07_JPRB,2.38367E-07_JPRB,2.53019E-07_JPRB, &
+ & 2.12202E-07_JPRB,1.36977E-07_JPRB,1.39118E-07_JPRB,1.37097E-07_JPRB, &
+ & 1.33223E-07_JPRB,1.38695E-07_JPRB,1.19868E-07_JPRB,1.20062E-07_JPRB /)  
+
+ABSO3A = (/ &
+ & 8.03067E-02_JPRB,0.180926_JPRB   ,0.227484_JPRB   ,0.168015_JPRB   , &
+ & 0.138284_JPRB   ,0.114537_JPRB   ,9.50114E-02_JPRB,8.06816E-02_JPRB, &
+ & 6.76406E-02_JPRB,5.69802E-02_JPRB,5.63283E-02_JPRB,4.57592E-02_JPRB, &
+ & 4.21862E-02_JPRB,3.47949E-02_JPRB,2.65731E-02_JPRB,2.67628E-02_JPRB /)  
+
+ABSO3B = (/ &
+ & 2.94848E-02_JPRB,4.33642E-02_JPRB,6.70197E-02_JPRB,0.104990_JPRB   , &
+ & 0.156180_JPRB   ,0.214638_JPRB   ,0.266281_JPRB   ,0.317941_JPRB   , &
+ & 0.355327_JPRB   ,0.371241_JPRB   ,0.374396_JPRB   ,0.326847_JPRB   , &
+ & 0.126497_JPRB   ,6.95264E-02_JPRB,2.58175E-02_JPRB,2.52862E-02_JPRB /)  
+
+STRRAT = 0.124692_JPRB
+
+LAYREFFR = 1
+
+!     ------------------------------------------------------------------
+
+!     The array KA contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels> ~100mb, temperatures, and binary
+!     species parameters (see taumol.f for definition).  The first 
+!     index in the array, JS, runs from 1 to 9, and corresponds to 
+!     different values of the binary species parameter.  For instance, 
+!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, 
+!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index
+!     in the array, JT, which runs from 1 to 5, corresponds to different
+!     temperatures.  More specifically, JT = 3 means that the data are for
+!     the reference temperature TREF for this  pressure level, JT = 2 refers
+!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the JPth reference pressure level (see taumol.f for these levels
+!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates
+!     which g-interval the absorption coefficients are for.
+!     -----------------------------------------------------------------
+
+KA(:, 1, 1, 1) = (/ &
+ & 0.73110E-09_JPRB,0.95257E-08_JPRB,0.84454E-08_JPRB,0.69367E-08_JPRB,0.55267E-08_JPRB, &
+ & 0.41107E-08_JPRB,0.32800E-08_JPRB,0.33548E-08_JPRB,0.22111E-08_JPRB /)  
+KA(:, 2, 1, 1) = (/ &
+ & 0.71850E-09_JPRB,0.98856E-08_JPRB,0.88084E-08_JPRB,0.72442E-08_JPRB,0.57586E-08_JPRB, &
+ & 0.43475E-08_JPRB,0.34021E-08_JPRB,0.32425E-08_JPRB,0.21911E-08_JPRB /)  
+KA(:, 3, 1, 1) = (/ &
+ & 0.57048E-09_JPRB,0.11944E-07_JPRB,0.10693E-07_JPRB,0.91787E-08_JPRB,0.75423E-08_JPRB, &
+ & 0.56949E-08_JPRB,0.43124E-08_JPRB,0.42335E-08_JPRB,0.57788E-08_JPRB /)  
+KA(:, 4, 1, 1) = (/ &
+ & 0.45283E-09_JPRB,0.10517E-07_JPRB,0.93142E-08_JPRB,0.77267E-08_JPRB,0.61927E-08_JPRB, &
+ & 0.47485E-08_JPRB,0.34557E-08_JPRB,0.32691E-08_JPRB,0.21836E-08_JPRB /)  
+KA(:, 5, 1, 1) = (/ &
+ & 0.40037E-09_JPRB,0.10599E-07_JPRB,0.93529E-08_JPRB,0.78411E-08_JPRB,0.63421E-08_JPRB, &
+ & 0.49082E-08_JPRB,0.36312E-08_JPRB,0.32874E-08_JPRB,0.21861E-08_JPRB /)  
+KA(:, 1, 2, 1) = (/ &
+ & 0.77671E-09_JPRB,0.11163E-07_JPRB,0.95032E-08_JPRB,0.79805E-08_JPRB,0.60721E-08_JPRB, &
+ & 0.45440E-08_JPRB,0.31263E-08_JPRB,0.28631E-08_JPRB,0.19430E-08_JPRB /)  
+KA(:, 2, 2, 1) = (/ &
+ & 0.85527E-09_JPRB,0.11271E-07_JPRB,0.97269E-08_JPRB,0.82280E-08_JPRB,0.62706E-08_JPRB, &
+ & 0.47926E-08_JPRB,0.32802E-08_JPRB,0.28152E-08_JPRB,0.19155E-08_JPRB /)  
+KA(:, 3, 2, 1) = (/ &
+ & 0.85773E-09_JPRB,0.13292E-07_JPRB,0.11943E-07_JPRB,0.10177E-07_JPRB,0.81637E-08_JPRB, &
+ & 0.62054E-08_JPRB,0.44045E-08_JPRB,0.35504E-08_JPRB,0.48274E-08_JPRB /)  
+KA(:, 4, 2, 1) = (/ &
+ & 0.76956E-09_JPRB,0.13343E-07_JPRB,0.12140E-07_JPRB,0.10403E-07_JPRB,0.83916E-08_JPRB, &
+ & 0.64414E-08_JPRB,0.46212E-08_JPRB,0.36611E-08_JPRB,0.46523E-08_JPRB /)  
+KA(:, 5, 2, 1) = (/ &
+ & 0.53187E-09_JPRB,0.11759E-07_JPRB,0.10564E-07_JPRB,0.89416E-08_JPRB,0.69566E-08_JPRB, &
+ & 0.54336E-08_JPRB,0.36797E-08_JPRB,0.28238E-08_JPRB,0.18838E-08_JPRB /)  
+KA(:, 1, 3, 1) = (/ &
+ & 0.99065E-09_JPRB,0.13223E-07_JPRB,0.11222E-07_JPRB,0.94282E-08_JPRB,0.74664E-08_JPRB, &
+ & 0.54084E-08_JPRB,0.35205E-08_JPRB,0.24806E-08_JPRB,0.20205E-08_JPRB /)  
+KA(:, 2, 3, 1) = (/ &
+ & 0.98793E-09_JPRB,0.13673E-07_JPRB,0.11444E-07_JPRB,0.96735E-08_JPRB,0.76364E-08_JPRB, &
+ & 0.55809E-08_JPRB,0.37259E-08_JPRB,0.25419E-08_JPRB,0.20086E-08_JPRB /)  
+KA(:, 3, 3, 1) = (/ &
+ & 0.10274E-08_JPRB,0.14243E-07_JPRB,0.12051E-07_JPRB,0.10168E-07_JPRB,0.80110E-08_JPRB, &
+ & 0.59129E-08_JPRB,0.38720E-08_JPRB,0.26806E-08_JPRB,0.19959E-08_JPRB /)  
+KA(:, 4, 3, 1) = (/ &
+ & 0.10879E-08_JPRB,0.15991E-07_JPRB,0.14290E-07_JPRB,0.12193E-07_JPRB,0.99943E-08_JPRB, &
+ & 0.76411E-08_JPRB,0.49949E-08_JPRB,0.32117E-08_JPRB,0.45196E-08_JPRB /)  
+KA(:, 5, 3, 1) = (/ &
+ & 0.10733E-08_JPRB,0.14460E-07_JPRB,0.12483E-07_JPRB,0.10703E-07_JPRB,0.84924E-08_JPRB, &
+ & 0.62896E-08_JPRB,0.42753E-08_JPRB,0.27408E-08_JPRB,0.19679E-08_JPRB /)  
+KA(:, 1, 4, 1) = (/ &
+ & 0.11948E-08_JPRB,0.15804E-07_JPRB,0.13423E-07_JPRB,0.10964E-07_JPRB,0.86345E-08_JPRB, &
+ & 0.61421E-08_JPRB,0.39130E-08_JPRB,0.24271E-08_JPRB,0.26282E-08_JPRB /)  
+KA(:, 2, 4, 1) = (/ &
+ & 0.12796E-08_JPRB,0.16985E-07_JPRB,0.14121E-07_JPRB,0.11784E-07_JPRB,0.93415E-08_JPRB, &
+ & 0.67310E-08_JPRB,0.43124E-08_JPRB,0.25170E-08_JPRB,0.26033E-08_JPRB /)  
+KA(:, 3, 4, 1) = (/ &
+ & 0.12903E-08_JPRB,0.17863E-07_JPRB,0.14703E-07_JPRB,0.12387E-07_JPRB,0.99243E-08_JPRB, &
+ & 0.72283E-08_JPRB,0.46892E-08_JPRB,0.26092E-08_JPRB,0.25739E-08_JPRB /)  
+KA(:, 4, 4, 1) = (/ &
+ & 0.13030E-08_JPRB,0.17982E-07_JPRB,0.14488E-07_JPRB,0.12389E-07_JPRB,0.10284E-07_JPRB, &
+ & 0.76192E-08_JPRB,0.50049E-08_JPRB,0.27184E-08_JPRB,0.25450E-08_JPRB /)  
+KA(:, 5, 4, 1) = (/ &
+ & 0.13295E-08_JPRB,0.20084E-07_JPRB,0.17213E-07_JPRB,0.15086E-07_JPRB,0.12255E-07_JPRB, &
+ & 0.93192E-08_JPRB,0.61747E-08_JPRB,0.34151E-08_JPRB,0.50409E-08_JPRB /)  
+KA(:, 1, 5, 1) = (/ &
+ & 0.14930E-08_JPRB,0.19740E-07_JPRB,0.16353E-07_JPRB,0.13382E-07_JPRB,0.10370E-07_JPRB, &
+ & 0.76167E-08_JPRB,0.46913E-08_JPRB,0.23740E-08_JPRB,0.37254E-08_JPRB /)  
+KA(:, 2, 5, 1) = (/ &
+ & 0.15750E-08_JPRB,0.20826E-07_JPRB,0.17352E-07_JPRB,0.14080E-07_JPRB,0.11109E-07_JPRB, &
+ & 0.82293E-08_JPRB,0.51142E-08_JPRB,0.25900E-08_JPRB,0.36977E-08_JPRB /)  
+KA(:, 3, 5, 1) = (/ &
+ & 0.16427E-08_JPRB,0.22313E-07_JPRB,0.18005E-07_JPRB,0.14545E-07_JPRB,0.11545E-07_JPRB, &
+ & 0.85987E-08_JPRB,0.53849E-08_JPRB,0.27523E-08_JPRB,0.36628E-08_JPRB /)  
+KA(:, 4, 5, 1) = (/ &
+ & 0.17106E-08_JPRB,0.23821E-07_JPRB,0.18882E-07_JPRB,0.15226E-07_JPRB,0.12313E-07_JPRB, &
+ & 0.92367E-08_JPRB,0.58646E-08_JPRB,0.29020E-08_JPRB,0.36336E-08_JPRB /)  
+KA(:, 5, 5, 1) = (/ &
+ & 0.17465E-08_JPRB,0.26750E-07_JPRB,0.22103E-07_JPRB,0.18690E-07_JPRB,0.15320E-07_JPRB, &
+ & 0.11508E-07_JPRB,0.77281E-08_JPRB,0.34929E-08_JPRB,0.69801E-08_JPRB /)  
+KA(:, 1, 6, 1) = (/ &
+ & 0.17561E-08_JPRB,0.17298E-07_JPRB,0.18888E-07_JPRB,0.16164E-07_JPRB,0.12676E-07_JPRB, &
+ & 0.91128E-08_JPRB,0.57292E-08_JPRB,0.25945E-08_JPRB,0.52718E-08_JPRB /)  
+KA(:, 2, 6, 1) = (/ &
+ & 0.19997E-08_JPRB,0.20866E-07_JPRB,0.20612E-07_JPRB,0.17467E-07_JPRB,0.13431E-07_JPRB, &
+ & 0.96178E-08_JPRB,0.60009E-08_JPRB,0.28959E-08_JPRB,0.52609E-08_JPRB /)  
+KA(:, 3, 6, 1) = (/ &
+ & 0.21808E-08_JPRB,0.24689E-07_JPRB,0.22590E-07_JPRB,0.18672E-07_JPRB,0.14573E-07_JPRB, &
+ & 0.10599E-07_JPRB,0.66802E-08_JPRB,0.31104E-08_JPRB,0.52649E-08_JPRB /)  
+KA(:, 4, 6, 1) = (/ &
+ & 0.22321E-08_JPRB,0.28043E-07_JPRB,0.23802E-07_JPRB,0.19473E-07_JPRB,0.15182E-07_JPRB, &
+ & 0.11372E-07_JPRB,0.73223E-08_JPRB,0.34820E-08_JPRB,0.52977E-08_JPRB /)  
+KA(:, 5, 6, 1) = (/ &
+ & 0.23033E-08_JPRB,0.30784E-07_JPRB,0.25188E-07_JPRB,0.20376E-07_JPRB,0.16019E-07_JPRB, &
+ & 0.12009E-07_JPRB,0.77933E-08_JPRB,0.37322E-08_JPRB,0.52777E-08_JPRB /)  
+KA(:, 1, 7, 1) = (/ &
+ & 0.22679E-08_JPRB,0.13507E-07_JPRB,0.20320E-07_JPRB,0.19549E-07_JPRB,0.15905E-07_JPRB, &
+ & 0.11277E-07_JPRB,0.68710E-08_JPRB,0.29328E-08_JPRB,0.79703E-08_JPRB /)  
+KA(:, 2, 7, 1) = (/ &
+ & 0.25718E-08_JPRB,0.16957E-07_JPRB,0.24375E-07_JPRB,0.21175E-07_JPRB,0.17080E-07_JPRB, &
+ & 0.12233E-07_JPRB,0.77114E-08_JPRB,0.34113E-08_JPRB,0.79963E-08_JPRB /)  
+KA(:, 3, 7, 1) = (/ &
+ & 0.27598E-08_JPRB,0.19896E-07_JPRB,0.28092E-07_JPRB,0.23059E-07_JPRB,0.18272E-07_JPRB, &
+ & 0.13117E-07_JPRB,0.84449E-08_JPRB,0.37817E-08_JPRB,0.79824E-08_JPRB /)  
+KA(:, 4, 7, 1) = (/ &
+ & 0.28979E-08_JPRB,0.22997E-07_JPRB,0.29556E-07_JPRB,0.24211E-07_JPRB,0.19134E-07_JPRB, &
+ & 0.13799E-07_JPRB,0.90980E-08_JPRB,0.41849E-08_JPRB,0.79622E-08_JPRB /)  
+KA(:, 5, 7, 1) = (/ &
+ & 0.31158E-08_JPRB,0.26193E-07_JPRB,0.32426E-07_JPRB,0.25685E-07_JPRB,0.19970E-07_JPRB, &
+ & 0.14504E-07_JPRB,0.96379E-08_JPRB,0.45034E-08_JPRB,0.78914E-08_JPRB /)  
+KA(:, 1, 8, 1) = (/ &
+ & 0.27286E-08_JPRB,0.10085E-07_JPRB,0.15014E-07_JPRB,0.19090E-07_JPRB,0.19831E-07_JPRB, &
+ & 0.15054E-07_JPRB,0.91059E-08_JPRB,0.39324E-08_JPRB,0.14155E-07_JPRB /)  
+KA(:, 2, 8, 1) = (/ &
+ & 0.30146E-08_JPRB,0.12680E-07_JPRB,0.19259E-07_JPRB,0.23896E-07_JPRB,0.21584E-07_JPRB, &
+ & 0.16217E-07_JPRB,0.99712E-08_JPRB,0.44108E-08_JPRB,0.14243E-07_JPRB /)  
+KA(:, 3, 8, 1) = (/ &
+ & 0.35571E-08_JPRB,0.15989E-07_JPRB,0.23328E-07_JPRB,0.28003E-07_JPRB,0.22999E-07_JPRB, &
+ & 0.17316E-07_JPRB,0.10856E-07_JPRB,0.49279E-08_JPRB,0.13770E-07_JPRB /)  
+KA(:, 4, 8, 1) = (/ &
+ & 0.40065E-08_JPRB,0.19481E-07_JPRB,0.27247E-07_JPRB,0.30922E-07_JPRB,0.24592E-07_JPRB, &
+ & 0.18005E-07_JPRB,0.11331E-07_JPRB,0.53242E-08_JPRB,0.13758E-07_JPRB /)  
+KA(:, 5, 8, 1) = (/ &
+ & 0.44047E-08_JPRB,0.23368E-07_JPRB,0.31337E-07_JPRB,0.33478E-07_JPRB,0.26467E-07_JPRB, &
+ & 0.19093E-07_JPRB,0.12194E-07_JPRB,0.56088E-08_JPRB,0.13665E-07_JPRB /)  
+KA(:, 1, 9, 1) = (/ &
+ & 0.32692E-08_JPRB,0.79127E-08_JPRB,0.11108E-07_JPRB,0.13962E-07_JPRB,0.15949E-07_JPRB, &
+ & 0.18125E-07_JPRB,0.12367E-07_JPRB,0.53666E-08_JPRB,0.28048E-07_JPRB /)  
+KA(:, 2, 9, 1) = (/ &
+ & 0.39872E-08_JPRB,0.10056E-07_JPRB,0.14185E-07_JPRB,0.17838E-07_JPRB,0.20262E-07_JPRB, &
+ & 0.19824E-07_JPRB,0.13459E-07_JPRB,0.59111E-08_JPRB,0.29491E-07_JPRB /)  
+KA(:, 3, 9, 1) = (/ &
+ & 0.46117E-08_JPRB,0.12472E-07_JPRB,0.17902E-07_JPRB,0.22130E-07_JPRB,0.25362E-07_JPRB, &
+ & 0.21745E-07_JPRB,0.14226E-07_JPRB,0.62741E-08_JPRB,0.30373E-07_JPRB /)  
+KA(:, 4, 9, 1) = (/ &
+ & 0.52024E-08_JPRB,0.15275E-07_JPRB,0.21923E-07_JPRB,0.27295E-07_JPRB,0.30210E-07_JPRB, &
+ & 0.23240E-07_JPRB,0.15087E-07_JPRB,0.66869E-08_JPRB,0.31196E-07_JPRB /)  
+KA(:, 5, 9, 1) = (/ &
+ & 0.56198E-08_JPRB,0.17975E-07_JPRB,0.26684E-07_JPRB,0.30762E-07_JPRB,0.34012E-07_JPRB, &
+ & 0.25509E-07_JPRB,0.16208E-07_JPRB,0.72951E-08_JPRB,0.31583E-07_JPRB /)  
+KA(:, 1,10, 1) = (/ &
+ & 0.48178E-08_JPRB,0.70531E-08_JPRB,0.93321E-08_JPRB,0.10834E-07_JPRB,0.12386E-07_JPRB, &
+ & 0.13718E-07_JPRB,0.14795E-07_JPRB,0.73464E-08_JPRB,0.35934E-07_JPRB /)  
+KA(:, 2,10, 1) = (/ &
+ & 0.55752E-08_JPRB,0.86985E-08_JPRB,0.11492E-07_JPRB,0.13823E-07_JPRB,0.15291E-07_JPRB, &
+ & 0.17278E-07_JPRB,0.18153E-07_JPRB,0.81439E-08_JPRB,0.37177E-07_JPRB /)  
+KA(:, 3,10, 1) = (/ &
+ & 0.63274E-08_JPRB,0.10735E-07_JPRB,0.13985E-07_JPRB,0.17136E-07_JPRB,0.19303E-07_JPRB, &
+ & 0.20940E-07_JPRB,0.20044E-07_JPRB,0.88008E-08_JPRB,0.38431E-07_JPRB /)  
+KA(:, 4,10, 1) = (/ &
+ & 0.70007E-08_JPRB,0.12858E-07_JPRB,0.17195E-07_JPRB,0.20946E-07_JPRB,0.23543E-07_JPRB, &
+ & 0.25732E-07_JPRB,0.21748E-07_JPRB,0.95846E-08_JPRB,0.39768E-07_JPRB /)  
+KA(:, 5,10, 1) = (/ &
+ & 0.75858E-08_JPRB,0.15576E-07_JPRB,0.20803E-07_JPRB,0.25331E-07_JPRB,0.28222E-07_JPRB, &
+ & 0.30974E-07_JPRB,0.23346E-07_JPRB,0.10532E-07_JPRB,0.41126E-07_JPRB /)  
+KA(:, 1,11, 1) = (/ &
+ & 0.71066E-08_JPRB,0.91105E-08_JPRB,0.91823E-08_JPRB,0.10078E-07_JPRB,0.11080E-07_JPRB, &
+ & 0.11808E-07_JPRB,0.12592E-07_JPRB,0.10585E-07_JPRB,0.36646E-07_JPRB /)  
+KA(:, 2,11, 1) = (/ &
+ & 0.75651E-08_JPRB,0.10196E-07_JPRB,0.11288E-07_JPRB,0.12341E-07_JPRB,0.13264E-07_JPRB, &
+ & 0.14635E-07_JPRB,0.15304E-07_JPRB,0.12113E-07_JPRB,0.37821E-07_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART1',1,ZHOOK_HANDLE)
+END SUBROUTINE PART1
+
+
+SUBROUTINE PART2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART2',0,ZHOOK_HANDLE)
+
+
+KA(:, 3,11, 1) = (/ &
+ & 0.84521E-08_JPRB,0.11641E-07_JPRB,0.13494E-07_JPRB,0.15134E-07_JPRB,0.16494E-07_JPRB, &
+ & 0.17667E-07_JPRB,0.18637E-07_JPRB,0.13998E-07_JPRB,0.39151E-07_JPRB /)  
+KA(:, 4,11, 1) = (/ &
+ & 0.96535E-08_JPRB,0.13091E-07_JPRB,0.16210E-07_JPRB,0.18132E-07_JPRB,0.20108E-07_JPRB, &
+ & 0.21506E-07_JPRB,0.22578E-07_JPRB,0.15372E-07_JPRB,0.40534E-07_JPRB /)  
+KA(:, 5,11, 1) = (/ &
+ & 0.10866E-07_JPRB,0.15259E-07_JPRB,0.19222E-07_JPRB,0.21816E-07_JPRB,0.23808E-07_JPRB, &
+ & 0.25779E-07_JPRB,0.26640E-07_JPRB,0.16560E-07_JPRB,0.41783E-07_JPRB /)  
+KA(:, 1,12, 1) = (/ &
+ & 0.80834E-08_JPRB,0.10420E-07_JPRB,0.92387E-08_JPRB,0.95448E-08_JPRB,0.10004E-07_JPRB, &
+ & 0.10210E-07_JPRB,0.10715E-07_JPRB,0.12956E-07_JPRB,0.37307E-07_JPRB /)  
+KA(:, 2,12, 1) = (/ &
+ & 0.93300E-08_JPRB,0.11721E-07_JPRB,0.10935E-07_JPRB,0.11240E-07_JPRB,0.12099E-07_JPRB, &
+ & 0.12529E-07_JPRB,0.12978E-07_JPRB,0.14968E-07_JPRB,0.38619E-07_JPRB /)  
+KA(:, 3,12, 1) = (/ &
+ & 0.10509E-07_JPRB,0.12830E-07_JPRB,0.12793E-07_JPRB,0.13649E-07_JPRB,0.14634E-07_JPRB, &
+ & 0.15024E-07_JPRB,0.15635E-07_JPRB,0.17087E-07_JPRB,0.40001E-07_JPRB /)  
+KA(:, 4,12, 1) = (/ &
+ & 0.11973E-07_JPRB,0.14173E-07_JPRB,0.14811E-07_JPRB,0.16236E-07_JPRB,0.17652E-07_JPRB, &
+ & 0.18139E-07_JPRB,0.18897E-07_JPRB,0.19167E-07_JPRB,0.41426E-07_JPRB /)  
+KA(:, 5,12, 1) = (/ &
+ & 0.13412E-07_JPRB,0.16145E-07_JPRB,0.17438E-07_JPRB,0.18946E-07_JPRB,0.20873E-07_JPRB, &
+ & 0.21649E-07_JPRB,0.22446E-07_JPRB,0.20222E-07_JPRB,0.42866E-07_JPRB /)  
+KA(:, 1,13, 1) = (/ &
+ & 0.96752E-08_JPRB,0.12525E-07_JPRB,0.10944E-07_JPRB,0.96402E-08_JPRB,0.92613E-08_JPRB, &
+ & 0.89183E-08_JPRB,0.91757E-08_JPRB,0.10962E-07_JPRB,0.37700E-07_JPRB /)  
+KA(:, 2,13, 1) = (/ &
+ & 0.10573E-07_JPRB,0.14013E-07_JPRB,0.12095E-07_JPRB,0.11243E-07_JPRB,0.11108E-07_JPRB, &
+ & 0.10880E-07_JPRB,0.11099E-07_JPRB,0.12700E-07_JPRB,0.39054E-07_JPRB /)  
+KA(:, 3,13, 1) = (/ &
+ & 0.12096E-07_JPRB,0.15476E-07_JPRB,0.13719E-07_JPRB,0.13357E-07_JPRB,0.13060E-07_JPRB, &
+ & 0.13122E-07_JPRB,0.13232E-07_JPRB,0.14320E-07_JPRB,0.40767E-07_JPRB /)  
+KA(:, 4,13, 1) = (/ &
+ & 0.13461E-07_JPRB,0.16674E-07_JPRB,0.15454E-07_JPRB,0.15611E-07_JPRB,0.15616E-07_JPRB, &
+ & 0.15505E-07_JPRB,0.16233E-07_JPRB,0.16510E-07_JPRB,0.42192E-07_JPRB /)  
+KA(:, 5,13, 1) = (/ &
+ & 0.14863E-07_JPRB,0.17307E-07_JPRB,0.17245E-07_JPRB,0.18041E-07_JPRB,0.18314E-07_JPRB, &
+ & 0.18445E-07_JPRB,0.19222E-07_JPRB,0.18635E-07_JPRB,0.43353E-07_JPRB /)  
+KA(:, 1, 1, 2) = (/ &
+ & 0.11698E-08_JPRB,0.30848E-07_JPRB,0.36454E-07_JPRB,0.38710E-07_JPRB,0.45901E-07_JPRB, &
+ & 0.55227E-07_JPRB,0.66976E-07_JPRB,0.88407E-07_JPRB,0.23422E-07_JPRB /)  
+KA(:, 2, 1, 2) = (/ &
+ & 0.11855E-08_JPRB,0.31924E-07_JPRB,0.37139E-07_JPRB,0.40576E-07_JPRB,0.48515E-07_JPRB, &
+ & 0.57453E-07_JPRB,0.68267E-07_JPRB,0.87661E-07_JPRB,0.23548E-07_JPRB /)  
+KA(:, 3, 1, 2) = (/ &
+ & 0.14595E-08_JPRB,0.39594E-07_JPRB,0.49562E-07_JPRB,0.62806E-07_JPRB,0.77187E-07_JPRB, &
+ & 0.93412E-07_JPRB,0.11204E-06_JPRB,0.13944E-06_JPRB,0.36327E-07_JPRB /)  
+KA(:, 4, 1, 2) = (/ &
+ & 0.16033E-08_JPRB,0.32903E-07_JPRB,0.39616E-07_JPRB,0.43600E-07_JPRB,0.51878E-07_JPRB, &
+ & 0.61189E-07_JPRB,0.71838E-07_JPRB,0.88579E-07_JPRB,0.23754E-07_JPRB /)  
+KA(:, 5, 1, 2) = (/ &
+ & 0.16713E-08_JPRB,0.33816E-07_JPRB,0.40271E-07_JPRB,0.44761E-07_JPRB,0.53112E-07_JPRB, &
+ & 0.62817E-07_JPRB,0.73214E-07_JPRB,0.89918E-07_JPRB,0.23712E-07_JPRB /)  
+KA(:, 1, 2, 2) = (/ &
+ & 0.14413E-08_JPRB,0.29542E-07_JPRB,0.33672E-07_JPRB,0.38233E-07_JPRB,0.38429E-07_JPRB, &
+ & 0.45175E-07_JPRB,0.55138E-07_JPRB,0.73579E-07_JPRB,0.25050E-07_JPRB /)  
+KA(:, 2, 2, 2) = (/ &
+ & 0.13819E-08_JPRB,0.33839E-07_JPRB,0.35660E-07_JPRB,0.39637E-07_JPRB,0.40862E-07_JPRB, &
+ & 0.47496E-07_JPRB,0.56716E-07_JPRB,0.72256E-07_JPRB,0.25722E-07_JPRB /)  
+KA(:, 3, 2, 2) = (/ &
+ & 0.14034E-08_JPRB,0.38888E-07_JPRB,0.49224E-07_JPRB,0.54694E-07_JPRB,0.64529E-07_JPRB, &
+ & 0.76758E-07_JPRB,0.91615E-07_JPRB,0.11521E-06_JPRB,0.39473E-07_JPRB /)  
+KA(:, 4, 2, 2) = (/ &
+ & 0.15427E-08_JPRB,0.40736E-07_JPRB,0.49562E-07_JPRB,0.55626E-07_JPRB,0.65520E-07_JPRB, &
+ & 0.77421E-07_JPRB,0.92434E-07_JPRB,0.11487E-06_JPRB,0.39089E-07_JPRB /)  
+KA(:, 5, 2, 2) = (/ &
+ & 0.19146E-08_JPRB,0.37020E-07_JPRB,0.37998E-07_JPRB,0.40828E-07_JPRB,0.46417E-07_JPRB, &
+ & 0.52511E-07_JPRB,0.60306E-07_JPRB,0.73583E-07_JPRB,0.26882E-07_JPRB /)  
+KA(:, 1, 3, 2) = (/ &
+ & 0.16720E-08_JPRB,0.23360E-07_JPRB,0.34106E-07_JPRB,0.35883E-07_JPRB,0.37371E-07_JPRB, &
+ & 0.37719E-07_JPRB,0.44564E-07_JPRB,0.59521E-07_JPRB,0.60171E-07_JPRB /)  
+KA(:, 2, 3, 2) = (/ &
+ & 0.17699E-08_JPRB,0.26546E-07_JPRB,0.36000E-07_JPRB,0.36846E-07_JPRB,0.38381E-07_JPRB, &
+ & 0.39667E-07_JPRB,0.46368E-07_JPRB,0.60306E-07_JPRB,0.60604E-07_JPRB /)  
+KA(:, 3, 3, 2) = (/ &
+ & 0.18009E-08_JPRB,0.29450E-07_JPRB,0.37614E-07_JPRB,0.38630E-07_JPRB,0.39041E-07_JPRB, &
+ & 0.41600E-07_JPRB,0.48142E-07_JPRB,0.59638E-07_JPRB,0.61274E-07_JPRB /)  
+KA(:, 4, 3, 2) = (/ &
+ & 0.18222E-08_JPRB,0.39219E-07_JPRB,0.48109E-07_JPRB,0.53485E-07_JPRB,0.57150E-07_JPRB, &
+ & 0.64444E-07_JPRB,0.75574E-07_JPRB,0.94813E-07_JPRB,0.76759E-07_JPRB /)  
+KA(:, 5, 3, 2) = (/ &
+ & 0.18210E-08_JPRB,0.34020E-07_JPRB,0.40366E-07_JPRB,0.41710E-07_JPRB,0.42164E-07_JPRB, &
+ & 0.45001E-07_JPRB,0.49878E-07_JPRB,0.60009E-07_JPRB,0.61481E-07_JPRB /)  
+KA(:, 1, 4, 2) = (/ &
+ & 0.21152E-08_JPRB,0.23706E-07_JPRB,0.29784E-07_JPRB,0.35302E-07_JPRB,0.35282E-07_JPRB, &
+ & 0.34361E-07_JPRB,0.35938E-07_JPRB,0.47065E-07_JPRB,0.17050E-06_JPRB /)  
+KA(:, 2, 4, 2) = (/ &
+ & 0.22014E-08_JPRB,0.24318E-07_JPRB,0.33239E-07_JPRB,0.37390E-07_JPRB,0.36975E-07_JPRB, &
+ & 0.35774E-07_JPRB,0.38207E-07_JPRB,0.49025E-07_JPRB,0.17312E-06_JPRB /)  
+KA(:, 3, 4, 2) = (/ &
+ & 0.21940E-08_JPRB,0.26005E-07_JPRB,0.37067E-07_JPRB,0.38353E-07_JPRB,0.38894E-07_JPRB, &
+ & 0.37527E-07_JPRB,0.40105E-07_JPRB,0.50082E-07_JPRB,0.17777E-06_JPRB /)  
+KA(:, 4, 4, 2) = (/ &
+ & 0.23140E-08_JPRB,0.28378E-07_JPRB,0.41743E-07_JPRB,0.40523E-07_JPRB,0.40492E-07_JPRB, &
+ & 0.38652E-07_JPRB,0.40876E-07_JPRB,0.49640E-07_JPRB,0.18336E-06_JPRB /)  
+KA(:, 5, 4, 2) = (/ &
+ & 0.23213E-08_JPRB,0.34154E-07_JPRB,0.50461E-07_JPRB,0.52357E-07_JPRB,0.54187E-07_JPRB, &
+ & 0.57113E-07_JPRB,0.62843E-07_JPRB,0.77605E-07_JPRB,0.21695E-06_JPRB /)  
+KA(:, 1, 5, 2) = (/ &
+ & 0.26738E-08_JPRB,0.26329E-07_JPRB,0.23971E-07_JPRB,0.31112E-07_JPRB,0.35671E-07_JPRB, &
+ & 0.34087E-07_JPRB,0.29799E-07_JPRB,0.37789E-07_JPRB,0.52514E-06_JPRB /)  
+KA(:, 2, 5, 2) = (/ &
+ & 0.25455E-08_JPRB,0.28564E-07_JPRB,0.26376E-07_JPRB,0.34876E-07_JPRB,0.38195E-07_JPRB, &
+ & 0.36126E-07_JPRB,0.31889E-07_JPRB,0.38787E-07_JPRB,0.53894E-06_JPRB /)  
+KA(:, 3, 5, 2) = (/ &
+ & 0.27955E-08_JPRB,0.30168E-07_JPRB,0.29598E-07_JPRB,0.39256E-07_JPRB,0.39488E-07_JPRB, &
+ & 0.38121E-07_JPRB,0.34110E-07_JPRB,0.40225E-07_JPRB,0.55617E-06_JPRB /)  
+KA(:, 4, 5, 2) = (/ &
+ & 0.30518E-08_JPRB,0.31696E-07_JPRB,0.32642E-07_JPRB,0.43581E-07_JPRB,0.40810E-07_JPRB, &
+ & 0.38887E-07_JPRB,0.35568E-07_JPRB,0.41837E-07_JPRB,0.57141E-06_JPRB /)  
+KA(:, 5, 5, 2) = (/ &
+ & 0.29545E-08_JPRB,0.34626E-07_JPRB,0.42873E-07_JPRB,0.52742E-07_JPRB,0.53043E-07_JPRB, &
+ & 0.52428E-07_JPRB,0.54304E-07_JPRB,0.64247E-07_JPRB,0.63906E-06_JPRB /)  
+KA(:, 1, 6, 2) = (/ &
+ & 0.30127E-08_JPRB,0.42606E-07_JPRB,0.28980E-07_JPRB,0.24923E-07_JPRB,0.29265E-07_JPRB, &
+ & 0.34534E-07_JPRB,0.31090E-07_JPRB,0.30814E-07_JPRB,0.12844E-05_JPRB /)  
+KA(:, 2, 6, 2) = (/ &
+ & 0.33504E-08_JPRB,0.42102E-07_JPRB,0.30491E-07_JPRB,0.27666E-07_JPRB,0.33477E-07_JPRB, &
+ & 0.35643E-07_JPRB,0.33324E-07_JPRB,0.31448E-07_JPRB,0.13231E-05_JPRB /)  
+KA(:, 3, 6, 2) = (/ &
+ & 0.37714E-08_JPRB,0.40516E-07_JPRB,0.32080E-07_JPRB,0.30623E-07_JPRB,0.37391E-07_JPRB, &
+ & 0.37255E-07_JPRB,0.35144E-07_JPRB,0.32296E-07_JPRB,0.13598E-05_JPRB /)  
+KA(:, 4, 6, 2) = (/ &
+ & 0.40809E-08_JPRB,0.41419E-07_JPRB,0.33638E-07_JPRB,0.33756E-07_JPRB,0.41072E-07_JPRB, &
+ & 0.38814E-07_JPRB,0.36264E-07_JPRB,0.33664E-07_JPRB,0.13955E-05_JPRB /)  
+KA(:, 5, 6, 2) = (/ &
+ & 0.38112E-08_JPRB,0.42764E-07_JPRB,0.35694E-07_JPRB,0.36747E-07_JPRB,0.45193E-07_JPRB, &
+ & 0.40460E-07_JPRB,0.37371E-07_JPRB,0.35107E-07_JPRB,0.14282E-05_JPRB /)  
+KA(:, 1, 7, 2) = (/ &
+ & 0.36577E-08_JPRB,0.64857E-07_JPRB,0.37268E-07_JPRB,0.28977E-07_JPRB,0.24480E-07_JPRB, &
+ & 0.26864E-07_JPRB,0.30486E-07_JPRB,0.25122E-07_JPRB,0.20521E-05_JPRB /)  
+KA(:, 2, 7, 2) = (/ &
+ & 0.39427E-08_JPRB,0.65731E-07_JPRB,0.37248E-07_JPRB,0.30585E-07_JPRB,0.26773E-07_JPRB, &
+ & 0.30114E-07_JPRB,0.31576E-07_JPRB,0.26187E-07_JPRB,0.21480E-05_JPRB /)  
+KA(:, 3, 7, 2) = (/ &
+ & 0.43811E-08_JPRB,0.66809E-07_JPRB,0.38170E-07_JPRB,0.32043E-07_JPRB,0.28837E-07_JPRB, &
+ & 0.34005E-07_JPRB,0.32765E-07_JPRB,0.27322E-07_JPRB,0.22122E-05_JPRB /)  
+KA(:, 4, 7, 2) = (/ &
+ & 0.46591E-08_JPRB,0.68244E-07_JPRB,0.41020E-07_JPRB,0.34183E-07_JPRB,0.31347E-07_JPRB, &
+ & 0.37946E-07_JPRB,0.34473E-07_JPRB,0.28264E-07_JPRB,0.22876E-05_JPRB /)  
+KA(:, 5, 7, 2) = (/ &
+ & 0.51635E-08_JPRB,0.69768E-07_JPRB,0.42241E-07_JPRB,0.36125E-07_JPRB,0.34689E-07_JPRB, &
+ & 0.41422E-07_JPRB,0.36208E-07_JPRB,0.29319E-07_JPRB,0.23528E-05_JPRB /)  
+KA(:, 1, 8, 2) = (/ &
+ & 0.48063E-08_JPRB,0.99492E-07_JPRB,0.67977E-07_JPRB,0.40583E-07_JPRB,0.27462E-07_JPRB, &
+ & 0.23261E-07_JPRB,0.24790E-07_JPRB,0.24175E-07_JPRB,0.34404E-05_JPRB /)  
+KA(:, 2, 8, 2) = (/ &
+ & 0.46794E-08_JPRB,0.10207E-06_JPRB,0.68838E-07_JPRB,0.41170E-07_JPRB,0.30068E-07_JPRB, &
+ & 0.24536E-07_JPRB,0.27696E-07_JPRB,0.25318E-07_JPRB,0.35579E-05_JPRB /)  
+KA(:, 3, 8, 2) = (/ &
+ & 0.51560E-08_JPRB,0.10436E-06_JPRB,0.69782E-07_JPRB,0.42105E-07_JPRB,0.32065E-07_JPRB, &
+ & 0.26776E-07_JPRB,0.30613E-07_JPRB,0.26859E-07_JPRB,0.36807E-05_JPRB /)  
+KA(:, 4, 8, 2) = (/ &
+ & 0.59944E-08_JPRB,0.10484E-06_JPRB,0.71027E-07_JPRB,0.44319E-07_JPRB,0.34843E-07_JPRB, &
+ & 0.29788E-07_JPRB,0.33876E-07_JPRB,0.28922E-07_JPRB,0.37740E-05_JPRB /)  
+KA(:, 5, 8, 2) = (/ &
+ & 0.64682E-08_JPRB,0.10541E-06_JPRB,0.71736E-07_JPRB,0.46124E-07_JPRB,0.36934E-07_JPRB, &
+ & 0.32173E-07_JPRB,0.36502E-07_JPRB,0.30991E-07_JPRB,0.38805E-05_JPRB /)  
+KA(:, 1, 9, 2) = (/ &
+ & 0.56433E-08_JPRB,0.13757E-06_JPRB,0.10641E-06_JPRB,0.72870E-07_JPRB,0.43453E-07_JPRB, &
+ & 0.25530E-07_JPRB,0.19778E-07_JPRB,0.25383E-07_JPRB,0.95912E-05_JPRB /)  
+KA(:, 2, 9, 2) = (/ &
+ & 0.61882E-08_JPRB,0.14041E-06_JPRB,0.11046E-06_JPRB,0.75424E-07_JPRB,0.44204E-07_JPRB, &
+ & 0.28513E-07_JPRB,0.22344E-07_JPRB,0.27258E-07_JPRB,0.98257E-05_JPRB /)  
+KA(:, 3, 9, 2) = (/ &
+ & 0.68724E-08_JPRB,0.14355E-06_JPRB,0.11272E-06_JPRB,0.76977E-07_JPRB,0.44934E-07_JPRB, &
+ & 0.30972E-07_JPRB,0.24609E-07_JPRB,0.29074E-07_JPRB,0.10035E-04_JPRB /)  
+KA(:, 4, 9, 2) = (/ &
+ & 0.75288E-08_JPRB,0.14628E-06_JPRB,0.11397E-06_JPRB,0.77508E-07_JPRB,0.45913E-07_JPRB, &
+ & 0.33498E-07_JPRB,0.27308E-07_JPRB,0.31237E-07_JPRB,0.10206E-04_JPRB /)  
+KA(:, 5, 9, 2) = (/ &
+ & 0.82361E-08_JPRB,0.14989E-06_JPRB,0.11575E-06_JPRB,0.78052E-07_JPRB,0.47282E-07_JPRB, &
+ & 0.34986E-07_JPRB,0.29571E-07_JPRB,0.31933E-07_JPRB,0.10332E-04_JPRB /)  
+KA(:, 1,10, 2) = (/ &
+ & 0.80705E-08_JPRB,0.18916E-06_JPRB,0.16332E-06_JPRB,0.12182E-06_JPRB,0.80167E-07_JPRB, &
+ & 0.44659E-07_JPRB,0.24027E-07_JPRB,0.20514E-07_JPRB,0.18076E-04_JPRB /)  
+KA(:, 2,10, 2) = (/ &
+ & 0.86522E-08_JPRB,0.19825E-06_JPRB,0.16839E-06_JPRB,0.12817E-06_JPRB,0.85984E-07_JPRB, &
+ & 0.48117E-07_JPRB,0.24937E-07_JPRB,0.22855E-07_JPRB,0.18392E-04_JPRB /)  
+KA(:, 3,10, 2) = (/ &
+ & 0.93838E-08_JPRB,0.20474E-06_JPRB,0.17472E-06_JPRB,0.13185E-06_JPRB,0.89897E-07_JPRB, &
+ & 0.50484E-07_JPRB,0.27069E-07_JPRB,0.24729E-07_JPRB,0.18827E-04_JPRB /)  
+KA(:, 4,10, 2) = (/ &
+ & 0.10442E-07_JPRB,0.21110E-06_JPRB,0.17958E-06_JPRB,0.13546E-06_JPRB,0.92462E-07_JPRB, &
+ & 0.51368E-07_JPRB,0.29958E-07_JPRB,0.26382E-07_JPRB,0.19325E-04_JPRB /)  
+KA(:, 5,10, 2) = (/ &
+ & 0.11203E-07_JPRB,0.21676E-06_JPRB,0.18359E-06_JPRB,0.14012E-06_JPRB,0.94090E-07_JPRB, &
+ & 0.51431E-07_JPRB,0.32637E-07_JPRB,0.27900E-07_JPRB,0.19654E-04_JPRB /)  
+KA(:, 1,11, 2) = (/ &
+ & 0.10898E-07_JPRB,0.20490E-06_JPRB,0.23352E-06_JPRB,0.18592E-06_JPRB,0.13108E-06_JPRB, &
+ & 0.82594E-07_JPRB,0.41478E-07_JPRB,0.20359E-07_JPRB,0.24656E-04_JPRB /)  
+KA(:, 2,11, 2) = (/ &
+ & 0.12100E-07_JPRB,0.21595E-06_JPRB,0.24259E-06_JPRB,0.19598E-06_JPRB,0.14307E-06_JPRB, &
+ & 0.90287E-07_JPRB,0.44897E-07_JPRB,0.21400E-07_JPRB,0.25439E-04_JPRB /)  
+KA(:, 3,11, 2) = (/ &
+ & 0.12997E-07_JPRB,0.22559E-06_JPRB,0.25028E-06_JPRB,0.20624E-06_JPRB,0.15074E-06_JPRB, &
+ & 0.95763E-07_JPRB,0.46972E-07_JPRB,0.22656E-07_JPRB,0.26128E-04_JPRB /)  
+KA(:, 4,11, 2) = (/ &
+ & 0.12774E-07_JPRB,0.23494E-06_JPRB,0.26130E-06_JPRB,0.21398E-06_JPRB,0.15730E-06_JPRB, &
+ & 0.98985E-07_JPRB,0.48309E-07_JPRB,0.24026E-07_JPRB,0.26834E-04_JPRB /)  
+KA(:, 5,11, 2) = (/ &
+ & 0.13184E-07_JPRB,0.24219E-06_JPRB,0.26811E-06_JPRB,0.22059E-06_JPRB,0.16314E-06_JPRB, &
+ & 0.10271E-06_JPRB,0.49802E-07_JPRB,0.25441E-07_JPRB,0.27644E-04_JPRB /)  
+KA(:, 1,12, 2) = (/ &
+ & 0.11394E-07_JPRB,0.19172E-06_JPRB,0.27076E-06_JPRB,0.23579E-06_JPRB,0.17648E-06_JPRB, &
+ & 0.11366E-06_JPRB,0.56463E-07_JPRB,0.20869E-07_JPRB,0.27151E-04_JPRB /)  
+KA(:, 2,12, 2) = (/ &
+ & 0.12908E-07_JPRB,0.20309E-06_JPRB,0.28462E-06_JPRB,0.24753E-06_JPRB,0.18719E-06_JPRB, &
+ & 0.12033E-06_JPRB,0.60157E-07_JPRB,0.21646E-07_JPRB,0.27962E-04_JPRB /)  
+KA(:, 3,12, 2) = (/ &
+ & 0.13752E-07_JPRB,0.21619E-06_JPRB,0.29476E-06_JPRB,0.25594E-06_JPRB,0.19641E-06_JPRB, &
+ & 0.12734E-06_JPRB,0.64272E-07_JPRB,0.22557E-07_JPRB,0.28912E-04_JPRB /)  
+KA(:, 4,12, 2) = (/ &
+ & 0.14906E-07_JPRB,0.22665E-06_JPRB,0.30298E-06_JPRB,0.26272E-06_JPRB,0.20331E-06_JPRB, &
+ & 0.13316E-06_JPRB,0.68243E-07_JPRB,0.23417E-07_JPRB,0.29816E-04_JPRB /)  
+KA(:, 5,12, 2) = (/ &
+ & 0.15969E-07_JPRB,0.23477E-06_JPRB,0.31068E-06_JPRB,0.27029E-06_JPRB,0.20850E-06_JPRB, &
+ & 0.13902E-06_JPRB,0.71857E-07_JPRB,0.25264E-07_JPRB,0.30765E-04_JPRB /)  
+KA(:, 1,13, 2) = (/ &
+ & 0.13593E-07_JPRB,0.19801E-06_JPRB,0.26490E-06_JPRB,0.27826E-06_JPRB,0.22531E-06_JPRB, &
+ & 0.15112E-06_JPRB,0.78691E-07_JPRB,0.27273E-07_JPRB,0.28055E-04_JPRB /)  
+KA(:, 2,13, 2) = (/ &
+ & 0.15426E-07_JPRB,0.20839E-06_JPRB,0.27732E-06_JPRB,0.28785E-06_JPRB,0.23371E-06_JPRB, &
+ & 0.16027E-06_JPRB,0.86131E-07_JPRB,0.29011E-07_JPRB,0.29165E-04_JPRB /)  
+KA(:, 3,13, 2) = (/ &
+ & 0.16638E-07_JPRB,0.21808E-06_JPRB,0.28896E-06_JPRB,0.29666E-06_JPRB,0.24201E-06_JPRB, &
+ & 0.16845E-06_JPRB,0.91791E-07_JPRB,0.30670E-07_JPRB,0.30372E-04_JPRB /)  
+KA(:, 4,13, 2) = (/ &
+ & 0.17929E-07_JPRB,0.22577E-06_JPRB,0.29798E-06_JPRB,0.30533E-06_JPRB,0.24895E-06_JPRB, &
+ & 0.17573E-06_JPRB,0.96085E-07_JPRB,0.31360E-07_JPRB,0.31437E-04_JPRB /)  
+KA(:, 5,13, 2) = (/ &
+ & 0.18861E-07_JPRB,0.23397E-06_JPRB,0.30715E-06_JPRB,0.31382E-06_JPRB,0.25665E-06_JPRB, &
+ & 0.18246E-06_JPRB,0.10017E-06_JPRB,0.32454E-07_JPRB,0.32266E-04_JPRB /)  
+KA(:, 1, 1, 3) = (/ &
+ & 0.39751E-08_JPRB,0.10094E-06_JPRB,0.20247E-06_JPRB,0.30028E-06_JPRB,0.39102E-06_JPRB, &
+ & 0.48711E-06_JPRB,0.59106E-06_JPRB,0.72709E-06_JPRB,0.20885E-06_JPRB /)  
+KA(:, 2, 1, 3) = (/ &
+ & 0.43080E-08_JPRB,0.10546E-06_JPRB,0.20982E-06_JPRB,0.31135E-06_JPRB,0.40303E-06_JPRB, &
+ & 0.49632E-06_JPRB,0.59855E-06_JPRB,0.74477E-06_JPRB,0.21012E-06_JPRB /)  
+KA(:, 3, 1, 3) = (/ &
+ & 0.42986E-08_JPRB,0.15269E-06_JPRB,0.29890E-06_JPRB,0.43493E-06_JPRB,0.56429E-06_JPRB, &
+ & 0.69336E-06_JPRB,0.83181E-06_JPRB,0.10423E-05_JPRB,0.36557E-06_JPRB /)  
+KA(:, 4, 1, 3) = (/ &
+ & 0.43554E-08_JPRB,0.11271E-06_JPRB,0.22069E-06_JPRB,0.32651E-06_JPRB,0.42391E-06_JPRB, &
+ & 0.51393E-06_JPRB,0.61294E-06_JPRB,0.75229E-06_JPRB,0.20945E-06_JPRB /)  
+KA(:, 5, 1, 3) = (/ &
+ & 0.45047E-08_JPRB,0.11576E-06_JPRB,0.22657E-06_JPRB,0.33173E-06_JPRB,0.43142E-06_JPRB, &
+ & 0.52151E-06_JPRB,0.61871E-06_JPRB,0.74980E-06_JPRB,0.20891E-06_JPRB /)  
+KA(:, 1, 2, 3) = (/ &
+ & 0.46065E-08_JPRB,0.81519E-07_JPRB,0.15960E-06_JPRB,0.23610E-06_JPRB,0.31656E-06_JPRB, &
+ & 0.39839E-06_JPRB,0.48591E-06_JPRB,0.60182E-06_JPRB,0.18230E-06_JPRB /)  
+KA(:, 2, 2, 3) = (/ &
+ & 0.46837E-08_JPRB,0.82106E-07_JPRB,0.16429E-06_JPRB,0.24471E-06_JPRB,0.32626E-06_JPRB, &
+ & 0.40531E-06_JPRB,0.49330E-06_JPRB,0.61810E-06_JPRB,0.18355E-06_JPRB /)  
+KA(:, 3, 2, 3) = (/ &
+ & 0.50163E-08_JPRB,0.12328E-06_JPRB,0.23602E-06_JPRB,0.35332E-06_JPRB,0.46387E-06_JPRB, &
+ & 0.57515E-06_JPRB,0.69445E-06_JPRB,0.88167E-06_JPRB,0.30546E-06_JPRB /)  
+KA(:, 4, 2, 3) = (/ &
+ & 0.49809E-08_JPRB,0.12454E-06_JPRB,0.23839E-06_JPRB,0.35429E-06_JPRB,0.46515E-06_JPRB, &
+ & 0.57491E-06_JPRB,0.69031E-06_JPRB,0.86630E-06_JPRB,0.29807E-06_JPRB /)  
+KA(:, 5, 2, 3) = (/ &
+ & 0.51988E-08_JPRB,0.91291E-07_JPRB,0.17869E-06_JPRB,0.26485E-06_JPRB,0.34907E-06_JPRB, &
+ & 0.42509E-06_JPRB,0.50894E-06_JPRB,0.62361E-06_JPRB,0.18234E-06_JPRB /)  
+KA(:, 1, 3, 3) = (/ &
+ & 0.51916E-08_JPRB,0.88867E-07_JPRB,0.12220E-06_JPRB,0.18411E-06_JPRB,0.24720E-06_JPRB, &
+ & 0.32303E-06_JPRB,0.39526E-06_JPRB,0.49595E-06_JPRB,0.27125E-06_JPRB /)  
+KA(:, 2, 3, 3) = (/ &
+ & 0.56319E-08_JPRB,0.87189E-07_JPRB,0.12678E-06_JPRB,0.19176E-06_JPRB,0.25624E-06_JPRB, &
+ & 0.32740E-06_JPRB,0.40564E-06_JPRB,0.50601E-06_JPRB,0.28010E-06_JPRB /)  
+KA(:, 3, 3, 3) = (/ &
+ & 0.59026E-08_JPRB,0.86017E-07_JPRB,0.13043E-06_JPRB,0.19649E-06_JPRB,0.26497E-06_JPRB, &
+ & 0.33305E-06_JPRB,0.40679E-06_JPRB,0.51963E-06_JPRB,0.28660E-06_JPRB /)  
+KA(:, 4, 3, 3) = (/ &
+ & 0.59909E-08_JPRB,0.10759E-06_JPRB,0.18790E-06_JPRB,0.28104E-06_JPRB,0.37702E-06_JPRB, &
+ & 0.47222E-06_JPRB,0.57322E-06_JPRB,0.72906E-06_JPRB,0.37657E-06_JPRB /)  
+KA(:, 5, 3, 3) = (/ &
+ & 0.64422E-08_JPRB,0.89472E-07_JPRB,0.13687E-06_JPRB,0.20453E-06_JPRB,0.27802E-06_JPRB, &
+ & 0.34266E-06_JPRB,0.41565E-06_JPRB,0.51746E-06_JPRB,0.29675E-06_JPRB /)  
+KA(:, 1, 4, 3) = (/ &
+ & 0.62298E-08_JPRB,0.99509E-07_JPRB,0.10306E-06_JPRB,0.14232E-06_JPRB,0.19390E-06_JPRB, &
+ & 0.25435E-06_JPRB,0.31764E-06_JPRB,0.40578E-06_JPRB,0.49031E-06_JPRB /)  
+KA(:, 2, 4, 3) = (/ &
+ & 0.68419E-08_JPRB,0.10415E-06_JPRB,0.10349E-06_JPRB,0.14672E-06_JPRB,0.19860E-06_JPRB, &
+ & 0.26012E-06_JPRB,0.32720E-06_JPRB,0.41327E-06_JPRB,0.51522E-06_JPRB /)  
+KA(:, 3, 4, 3) = (/ &
+ & 0.71418E-08_JPRB,0.10626E-06_JPRB,0.10522E-06_JPRB,0.15175E-06_JPRB,0.20471E-06_JPRB, &
+ & 0.26435E-06_JPRB,0.33148E-06_JPRB,0.42294E-06_JPRB,0.53456E-06_JPRB /)  
+KA(:, 4, 4, 3) = (/ &
+ & 0.72470E-08_JPRB,0.10891E-06_JPRB,0.10648E-06_JPRB,0.15457E-06_JPRB,0.21007E-06_JPRB, &
+ & 0.26937E-06_JPRB,0.33376E-06_JPRB,0.42939E-06_JPRB,0.55207E-06_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART2',1,ZHOOK_HANDLE)
+END SUBROUTINE PART2
+
+
+SUBROUTINE PART3
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART3',0,ZHOOK_HANDLE)
+
+
+KA(:, 5, 4, 3) = (/ &
+ & 0.77585E-08_JPRB,0.12954E-06_JPRB,0.14999E-06_JPRB,0.22224E-06_JPRB,0.29994E-06_JPRB, &
+ & 0.38053E-06_JPRB,0.47027E-06_JPRB,0.60032E-06_JPRB,0.76592E-06_JPRB /)  
+KA(:, 1, 5, 3) = (/ &
+ & 0.68852E-08_JPRB,0.11288E-06_JPRB,0.11969E-06_JPRB,0.11689E-06_JPRB,0.14994E-06_JPRB, &
+ & 0.19637E-06_JPRB,0.25309E-06_JPRB,0.33018E-06_JPRB,0.84551E-06_JPRB /)  
+KA(:, 2, 5, 3) = (/ &
+ & 0.75119E-08_JPRB,0.11838E-06_JPRB,0.12255E-06_JPRB,0.11926E-06_JPRB,0.15341E-06_JPRB, &
+ & 0.20169E-06_JPRB,0.26231E-06_JPRB,0.33745E-06_JPRB,0.85714E-06_JPRB /)  
+KA(:, 3, 5, 3) = (/ &
+ & 0.84416E-08_JPRB,0.12128E-06_JPRB,0.12324E-06_JPRB,0.12015E-06_JPRB,0.15812E-06_JPRB, &
+ & 0.20463E-06_JPRB,0.26808E-06_JPRB,0.34461E-06_JPRB,0.86734E-06_JPRB /)  
+KA(:, 4, 5, 3) = (/ &
+ & 0.92293E-08_JPRB,0.12493E-06_JPRB,0.12330E-06_JPRB,0.12093E-06_JPRB,0.16146E-06_JPRB, &
+ & 0.20899E-06_JPRB,0.26904E-06_JPRB,0.35101E-06_JPRB,0.88204E-06_JPRB /)  
+KA(:, 5, 5, 3) = (/ &
+ & 0.10279E-07_JPRB,0.14631E-06_JPRB,0.14078E-06_JPRB,0.17511E-06_JPRB,0.23546E-06_JPRB, &
+ & 0.30442E-06_JPRB,0.38374E-06_JPRB,0.50000E-06_JPRB,0.10431E-05_JPRB /)  
+KA(:, 1, 6, 3) = (/ &
+ & 0.51921E-08_JPRB,0.14437E-06_JPRB,0.12917E-06_JPRB,0.11673E-06_JPRB,0.12444E-06_JPRB, &
+ & 0.14966E-06_JPRB,0.19338E-06_JPRB,0.26674E-06_JPRB,0.16987E-05_JPRB /)  
+KA(:, 2, 6, 3) = (/ &
+ & 0.69052E-08_JPRB,0.14822E-06_JPRB,0.13564E-06_JPRB,0.12080E-06_JPRB,0.12884E-06_JPRB, &
+ & 0.15616E-06_JPRB,0.20083E-06_JPRB,0.27373E-06_JPRB,0.17147E-05_JPRB /)  
+KA(:, 3, 6, 3) = (/ &
+ & 0.93932E-08_JPRB,0.15309E-06_JPRB,0.13785E-06_JPRB,0.12361E-06_JPRB,0.12904E-06_JPRB, &
+ & 0.16004E-06_JPRB,0.20790E-06_JPRB,0.27928E-06_JPRB,0.17384E-05_JPRB /)  
+KA(:, 4, 6, 3) = (/ &
+ & 0.10364E-07_JPRB,0.15577E-06_JPRB,0.14281E-06_JPRB,0.12445E-06_JPRB,0.13032E-06_JPRB, &
+ & 0.16178E-06_JPRB,0.21225E-06_JPRB,0.28499E-06_JPRB,0.17733E-05_JPRB /)  
+KA(:, 5, 6, 3) = (/ &
+ & 0.10950E-07_JPRB,0.15768E-06_JPRB,0.14728E-06_JPRB,0.12674E-06_JPRB,0.12961E-06_JPRB, &
+ & 0.16455E-06_JPRB,0.21080E-06_JPRB,0.28744E-06_JPRB,0.17869E-05_JPRB /)  
+KA(:, 1, 7, 3) = (/ &
+ & 0.51527E-08_JPRB,0.13331E-06_JPRB,0.15220E-06_JPRB,0.13781E-06_JPRB,0.11791E-06_JPRB, &
+ & 0.12291E-06_JPRB,0.14839E-06_JPRB,0.21430E-06_JPRB,0.45802E-05_JPRB /)  
+KA(:, 2, 7, 3) = (/ &
+ & 0.52409E-08_JPRB,0.14109E-06_JPRB,0.15809E-06_JPRB,0.14393E-06_JPRB,0.12362E-06_JPRB, &
+ & 0.12831E-06_JPRB,0.15572E-06_JPRB,0.22059E-06_JPRB,0.46088E-05_JPRB /)  
+KA(:, 3, 7, 3) = (/ &
+ & 0.66901E-08_JPRB,0.14833E-06_JPRB,0.16524E-06_JPRB,0.14893E-06_JPRB,0.12670E-06_JPRB, &
+ & 0.13152E-06_JPRB,0.16110E-06_JPRB,0.22404E-06_JPRB,0.46200E-05_JPRB /)  
+KA(:, 4, 7, 3) = (/ &
+ & 0.90836E-08_JPRB,0.15267E-06_JPRB,0.17113E-06_JPRB,0.15541E-06_JPRB,0.12966E-06_JPRB, &
+ & 0.13240E-06_JPRB,0.16410E-06_JPRB,0.22868E-06_JPRB,0.45999E-05_JPRB /)  
+KA(:, 5, 7, 3) = (/ &
+ & 0.11721E-07_JPRB,0.15605E-06_JPRB,0.17580E-06_JPRB,0.16064E-06_JPRB,0.13194E-06_JPRB, &
+ & 0.13127E-06_JPRB,0.16676E-06_JPRB,0.23245E-06_JPRB,0.46103E-05_JPRB /)  
+KA(:, 1, 8, 3) = (/ &
+ & 0.53770E-08_JPRB,0.12906E-06_JPRB,0.19117E-06_JPRB,0.16928E-06_JPRB,0.14454E-06_JPRB, &
+ & 0.11318E-06_JPRB,0.12091E-06_JPRB,0.16771E-06_JPRB,0.10838E-04_JPRB /)  
+KA(:, 2, 8, 3) = (/ &
+ & 0.71217E-08_JPRB,0.13171E-06_JPRB,0.20115E-06_JPRB,0.17525E-06_JPRB,0.15189E-06_JPRB, &
+ & 0.11980E-06_JPRB,0.12589E-06_JPRB,0.17247E-06_JPRB,0.10844E-04_JPRB /)  
+KA(:, 3, 8, 3) = (/ &
+ & 0.76051E-08_JPRB,0.13463E-06_JPRB,0.20837E-06_JPRB,0.18092E-06_JPRB,0.15831E-06_JPRB, &
+ & 0.12491E-06_JPRB,0.12782E-06_JPRB,0.17568E-06_JPRB,0.10855E-04_JPRB /)  
+KA(:, 4, 8, 3) = (/ &
+ & 0.87276E-08_JPRB,0.14002E-06_JPRB,0.21488E-06_JPRB,0.18616E-06_JPRB,0.16272E-06_JPRB, &
+ & 0.12991E-06_JPRB,0.13139E-06_JPRB,0.17775E-06_JPRB,0.10873E-04_JPRB /)  
+KA(:, 5, 8, 3) = (/ &
+ & 0.98102E-08_JPRB,0.14390E-06_JPRB,0.21715E-06_JPRB,0.19383E-06_JPRB,0.16843E-06_JPRB, &
+ & 0.13102E-06_JPRB,0.13320E-06_JPRB,0.18001E-06_JPRB,0.10883E-04_JPRB /)  
+KA(:, 1, 9, 3) = (/ &
+ & 0.78846E-08_JPRB,0.14921E-06_JPRB,0.16266E-06_JPRB,0.21810E-06_JPRB,0.17257E-06_JPRB, &
+ & 0.13914E-06_JPRB,0.10621E-06_JPRB,0.13009E-06_JPRB,0.22193E-04_JPRB /)  
+KA(:, 2, 9, 3) = (/ &
+ & 0.87670E-08_JPRB,0.15667E-06_JPRB,0.17179E-06_JPRB,0.22870E-06_JPRB,0.18453E-06_JPRB, &
+ & 0.14806E-06_JPRB,0.11198E-06_JPRB,0.13228E-06_JPRB,0.22470E-04_JPRB /)  
+KA(:, 3, 9, 3) = (/ &
+ & 0.94042E-08_JPRB,0.16331E-06_JPRB,0.17929E-06_JPRB,0.23732E-06_JPRB,0.19309E-06_JPRB, &
+ & 0.15669E-06_JPRB,0.11769E-06_JPRB,0.13462E-06_JPRB,0.22759E-04_JPRB /)  
+KA(:, 4, 9, 3) = (/ &
+ & 0.10052E-07_JPRB,0.16738E-06_JPRB,0.18654E-06_JPRB,0.24428E-06_JPRB,0.19714E-06_JPRB, &
+ & 0.16469E-06_JPRB,0.12194E-06_JPRB,0.13694E-06_JPRB,0.23037E-04_JPRB /)  
+KA(:, 5, 9, 3) = (/ &
+ & 0.99609E-08_JPRB,0.16974E-06_JPRB,0.19096E-06_JPRB,0.25212E-06_JPRB,0.20604E-06_JPRB, &
+ & 0.17005E-06_JPRB,0.12529E-06_JPRB,0.13965E-06_JPRB,0.23331E-04_JPRB /)  
+KA(:, 1,10, 3) = (/ &
+ & 0.10600E-07_JPRB,0.19194E-06_JPRB,0.19694E-06_JPRB,0.19228E-06_JPRB,0.23306E-06_JPRB, &
+ & 0.18017E-06_JPRB,0.13563E-06_JPRB,0.11106E-06_JPRB,0.57833E-04_JPRB /)  
+KA(:, 2,10, 3) = (/ &
+ & 0.11513E-07_JPRB,0.19670E-06_JPRB,0.20600E-06_JPRB,0.20153E-06_JPRB,0.24712E-06_JPRB, &
+ & 0.19420E-06_JPRB,0.14374E-06_JPRB,0.11223E-06_JPRB,0.59252E-04_JPRB /)  
+KA(:, 3,10, 3) = (/ &
+ & 0.12267E-07_JPRB,0.20052E-06_JPRB,0.21125E-06_JPRB,0.21502E-06_JPRB,0.25879E-06_JPRB, &
+ & 0.20809E-06_JPRB,0.15257E-06_JPRB,0.11412E-06_JPRB,0.60474E-04_JPRB /)  
+KA(:, 4,10, 3) = (/ &
+ & 0.11377E-07_JPRB,0.20485E-06_JPRB,0.21479E-06_JPRB,0.22527E-06_JPRB,0.26884E-06_JPRB, &
+ & 0.21723E-06_JPRB,0.15872E-06_JPRB,0.11733E-06_JPRB,0.61380E-04_JPRB /)  
+KA(:, 5,10, 3) = (/ &
+ & 0.12141E-07_JPRB,0.20611E-06_JPRB,0.22439E-06_JPRB,0.22986E-06_JPRB,0.27411E-06_JPRB, &
+ & 0.22402E-06_JPRB,0.16342E-06_JPRB,0.11916E-06_JPRB,0.62353E-04_JPRB /)  
+KA(:, 1,11, 3) = (/ &
+ & 0.12251E-07_JPRB,0.29022E-06_JPRB,0.24496E-06_JPRB,0.24059E-06_JPRB,0.21631E-06_JPRB, &
+ & 0.23923E-06_JPRB,0.16597E-06_JPRB,0.10842E-06_JPRB,0.80074E-04_JPRB /)  
+KA(:, 2,11, 3) = (/ &
+ & 0.12224E-07_JPRB,0.29680E-06_JPRB,0.25368E-06_JPRB,0.24691E-06_JPRB,0.22294E-06_JPRB, &
+ & 0.24912E-06_JPRB,0.17747E-06_JPRB,0.10969E-06_JPRB,0.81125E-04_JPRB /)  
+KA(:, 3,11, 3) = (/ &
+ & 0.14264E-07_JPRB,0.29886E-06_JPRB,0.26040E-06_JPRB,0.25256E-06_JPRB,0.23184E-06_JPRB, &
+ & 0.25957E-06_JPRB,0.18845E-06_JPRB,0.11123E-06_JPRB,0.82960E-04_JPRB /)  
+KA(:, 4,11, 3) = (/ &
+ & 0.16608E-07_JPRB,0.30056E-06_JPRB,0.26198E-06_JPRB,0.25724E-06_JPRB,0.23897E-06_JPRB, &
+ & 0.26977E-06_JPRB,0.19716E-06_JPRB,0.11521E-06_JPRB,0.84911E-04_JPRB /)  
+KA(:, 5,11, 3) = (/ &
+ & 0.18982E-07_JPRB,0.30200E-06_JPRB,0.26559E-06_JPRB,0.26090E-06_JPRB,0.24427E-06_JPRB, &
+ & 0.27763E-06_JPRB,0.20825E-06_JPRB,0.11858E-06_JPRB,0.86586E-04_JPRB /)  
+KA(:, 1,12, 3) = (/ &
+ & 0.16186E-07_JPRB,0.36864E-06_JPRB,0.27735E-06_JPRB,0.24475E-06_JPRB,0.23659E-06_JPRB, &
+ & 0.20178E-06_JPRB,0.20651E-06_JPRB,0.11504E-06_JPRB,0.90323E-04_JPRB /)  
+KA(:, 2,12, 3) = (/ &
+ & 0.16900E-07_JPRB,0.36903E-06_JPRB,0.27865E-06_JPRB,0.25015E-06_JPRB,0.24279E-06_JPRB, &
+ & 0.21379E-06_JPRB,0.22149E-06_JPRB,0.12739E-06_JPRB,0.92788E-04_JPRB /)  
+KA(:, 3,12, 3) = (/ &
+ & 0.18900E-07_JPRB,0.36546E-06_JPRB,0.28369E-06_JPRB,0.25919E-06_JPRB,0.24650E-06_JPRB, &
+ & 0.22349E-06_JPRB,0.23741E-06_JPRB,0.13455E-06_JPRB,0.94381E-04_JPRB /)  
+KA(:, 4,12, 3) = (/ &
+ & 0.24666E-07_JPRB,0.36289E-06_JPRB,0.28992E-06_JPRB,0.26755E-06_JPRB,0.25261E-06_JPRB, &
+ & 0.23012E-06_JPRB,0.24862E-06_JPRB,0.14012E-06_JPRB,0.95689E-04_JPRB /)  
+KA(:, 5,12, 3) = (/ &
+ & 0.28047E-07_JPRB,0.36144E-06_JPRB,0.29439E-06_JPRB,0.27280E-06_JPRB,0.25910E-06_JPRB, &
+ & 0.23527E-06_JPRB,0.25804E-06_JPRB,0.14441E-06_JPRB,0.97273E-04_JPRB /)  
+KA(:, 1,13, 3) = (/ &
+ & 0.27099E-07_JPRB,0.42452E-06_JPRB,0.36469E-06_JPRB,0.28012E-06_JPRB,0.24206E-06_JPRB, &
+ & 0.21452E-06_JPRB,0.19737E-06_JPRB,0.12552E-06_JPRB,0.93221E-04_JPRB /)  
+KA(:, 2,13, 3) = (/ &
+ & 0.30641E-07_JPRB,0.42348E-06_JPRB,0.36821E-06_JPRB,0.29049E-06_JPRB,0.25191E-06_JPRB, &
+ & 0.22447E-06_JPRB,0.20459E-06_JPRB,0.13174E-06_JPRB,0.95326E-04_JPRB /)  
+KA(:, 3,13, 3) = (/ &
+ & 0.31538E-07_JPRB,0.42218E-06_JPRB,0.36978E-06_JPRB,0.29801E-06_JPRB,0.26042E-06_JPRB, &
+ & 0.23413E-06_JPRB,0.21354E-06_JPRB,0.13999E-06_JPRB,0.97244E-04_JPRB /)  
+KA(:, 4,13, 3) = (/ &
+ & 0.33087E-07_JPRB,0.42233E-06_JPRB,0.36980E-06_JPRB,0.30223E-06_JPRB,0.26697E-06_JPRB, &
+ & 0.24077E-06_JPRB,0.22289E-06_JPRB,0.14849E-06_JPRB,0.99282E-04_JPRB /)  
+KA(:, 5,13, 3) = (/ &
+ & 0.35771E-07_JPRB,0.42124E-06_JPRB,0.36949E-06_JPRB,0.30814E-06_JPRB,0.27423E-06_JPRB, &
+ & 0.24510E-06_JPRB,0.22998E-06_JPRB,0.15431E-06_JPRB,0.10189E-03_JPRB /)  
+KA(:, 1, 1, 4) = (/ &
+ & 0.60599E-08_JPRB,0.49839E-06_JPRB,0.90796E-06_JPRB,0.12825E-05_JPRB,0.16387E-05_JPRB, &
+ & 0.20000E-05_JPRB,0.24097E-05_JPRB,0.30198E-05_JPRB,0.14012E-05_JPRB /)  
+KA(:, 2, 1, 4) = (/ &
+ & 0.57361E-08_JPRB,0.51373E-06_JPRB,0.93344E-06_JPRB,0.13150E-05_JPRB,0.16776E-05_JPRB, &
+ & 0.20412E-05_JPRB,0.24476E-05_JPRB,0.30155E-05_JPRB,0.14079E-05_JPRB /)  
+KA(:, 3, 1, 4) = (/ &
+ & 0.61895E-08_JPRB,0.64074E-06_JPRB,0.11706E-05_JPRB,0.16523E-05_JPRB,0.21138E-05_JPRB, &
+ & 0.25765E-05_JPRB,0.30714E-05_JPRB,0.37148E-05_JPRB,0.20046E-05_JPRB /)  
+KA(:, 4, 1, 4) = (/ &
+ & 0.63590E-08_JPRB,0.53918E-06_JPRB,0.97233E-06_JPRB,0.13614E-05_JPRB,0.17274E-05_JPRB, &
+ & 0.21018E-05_JPRB,0.24992E-05_JPRB,0.30391E-05_JPRB,0.14106E-05_JPRB /)  
+KA(:, 5, 1, 4) = (/ &
+ & 0.66907E-08_JPRB,0.54769E-06_JPRB,0.98459E-06_JPRB,0.13756E-05_JPRB,0.17428E-05_JPRB, &
+ & 0.21216E-05_JPRB,0.25190E-05_JPRB,0.30528E-05_JPRB,0.14057E-05_JPRB /)  
+KA(:, 1, 2, 4) = (/ &
+ & 0.63247E-08_JPRB,0.40976E-06_JPRB,0.75743E-06_JPRB,0.10729E-05_JPRB,0.13776E-05_JPRB, &
+ & 0.16847E-05_JPRB,0.20386E-05_JPRB,0.25923E-05_JPRB,0.11016E-05_JPRB /)  
+KA(:, 2, 2, 4) = (/ &
+ & 0.71971E-08_JPRB,0.42277E-06_JPRB,0.77866E-06_JPRB,0.11006E-05_JPRB,0.14075E-05_JPRB, &
+ & 0.17208E-05_JPRB,0.20689E-05_JPRB,0.25842E-05_JPRB,0.11093E-05_JPRB /)  
+KA(:, 3, 2, 4) = (/ &
+ & 0.68862E-08_JPRB,0.54111E-06_JPRB,0.99924E-06_JPRB,0.14135E-05_JPRB,0.18137E-05_JPRB, &
+ & 0.22190E-05_JPRB,0.26613E-05_JPRB,0.32636E-05_JPRB,0.16377E-05_JPRB /)  
+KA(:, 4, 2, 4) = (/ &
+ & 0.74570E-08_JPRB,0.54374E-06_JPRB,0.10016E-05_JPRB,0.14142E-05_JPRB,0.18118E-05_JPRB, &
+ & 0.22093E-05_JPRB,0.26451E-05_JPRB,0.32306E-05_JPRB,0.16062E-05_JPRB /)  
+KA(:, 5, 2, 4) = (/ &
+ & 0.76975E-08_JPRB,0.44890E-06_JPRB,0.82016E-06_JPRB,0.11488E-05_JPRB,0.14591E-05_JPRB, &
+ & 0.17814E-05_JPRB,0.21241E-05_JPRB,0.26089E-05_JPRB,0.11145E-05_JPRB /)  
+KA(:, 1, 3, 4) = (/ &
+ & 0.83656E-08_JPRB,0.31311E-06_JPRB,0.61949E-06_JPRB,0.88176E-06_JPRB,0.11379E-05_JPRB, &
+ & 0.13977E-05_JPRB,0.17043E-05_JPRB,0.22078E-05_JPRB,0.73836E-06_JPRB /)  
+KA(:, 2, 3, 4) = (/ &
+ & 0.85171E-08_JPRB,0.32573E-06_JPRB,0.63573E-06_JPRB,0.90517E-06_JPRB,0.11641E-05_JPRB, &
+ & 0.14286E-05_JPRB,0.17247E-05_JPRB,0.21938E-05_JPRB,0.74285E-06_JPRB /)  
+KA(:, 3, 3, 4) = (/ &
+ & 0.78702E-08_JPRB,0.33673E-06_JPRB,0.64948E-06_JPRB,0.92347E-06_JPRB,0.11844E-05_JPRB, &
+ & 0.14525E-05_JPRB,0.17473E-05_JPRB,0.21823E-05_JPRB,0.74417E-06_JPRB /)  
+KA(:, 4, 3, 4) = (/ &
+ & 0.88135E-08_JPRB,0.44484E-06_JPRB,0.84006E-06_JPRB,0.11924E-05_JPRB,0.15326E-05_JPRB, &
+ & 0.18766E-05_JPRB,0.22592E-05_JPRB,0.27980E-05_JPRB,0.11629E-05_JPRB /)  
+KA(:, 5, 3, 4) = (/ &
+ & 0.83594E-08_JPRB,0.34852E-06_JPRB,0.67171E-06_JPRB,0.94786E-06_JPRB,0.12080E-05_JPRB, &
+ & 0.14818E-05_JPRB,0.17721E-05_JPRB,0.22017E-05_JPRB,0.74162E-06_JPRB /)  
+KA(:, 1, 4, 4) = (/ &
+ & 0.82233E-08_JPRB,0.22714E-06_JPRB,0.49574E-06_JPRB,0.71618E-06_JPRB,0.92897E-06_JPRB, &
+ & 0.11522E-05_JPRB,0.14150E-05_JPRB,0.18749E-05_JPRB,0.10829E-05_JPRB /)  
+KA(:, 2, 4, 4) = (/ &
+ & 0.90906E-08_JPRB,0.23281E-06_JPRB,0.51082E-06_JPRB,0.73615E-06_JPRB,0.95322E-06_JPRB, &
+ & 0.11749E-05_JPRB,0.14287E-05_JPRB,0.18456E-05_JPRB,0.10964E-05_JPRB /)  
+KA(:, 3, 4, 4) = (/ &
+ & 0.10403E-07_JPRB,0.23873E-06_JPRB,0.52083E-06_JPRB,0.75142E-06_JPRB,0.97057E-06_JPRB, &
+ & 0.11959E-05_JPRB,0.14456E-05_JPRB,0.18299E-05_JPRB,0.11024E-05_JPRB /)  
+KA(:, 4, 4, 4) = (/ &
+ & 0.11681E-07_JPRB,0.24287E-06_JPRB,0.52982E-06_JPRB,0.76518E-06_JPRB,0.98418E-06_JPRB, &
+ & 0.12105E-05_JPRB,0.14593E-05_JPRB,0.18314E-05_JPRB,0.11002E-05_JPRB /)  
+KA(:, 5, 4, 4) = (/ &
+ & 0.11781E-07_JPRB,0.32919E-06_JPRB,0.69041E-06_JPRB,0.99008E-06_JPRB,0.12781E-05_JPRB, &
+ & 0.15684E-05_JPRB,0.18900E-05_JPRB,0.23626E-05_JPRB,0.11507E-05_JPRB /)  
+KA(:, 1, 5, 4) = (/ &
+ & 0.10746E-07_JPRB,0.16960E-06_JPRB,0.36271E-06_JPRB,0.57393E-06_JPRB,0.75088E-06_JPRB, &
+ & 0.94078E-06_JPRB,0.11700E-05_JPRB,0.15610E-05_JPRB,0.23060E-05_JPRB /)  
+KA(:, 2, 5, 4) = (/ &
+ & 0.12322E-07_JPRB,0.17145E-06_JPRB,0.37466E-06_JPRB,0.58975E-06_JPRB,0.77156E-06_JPRB, &
+ & 0.96051E-06_JPRB,0.11773E-05_JPRB,0.15431E-05_JPRB,0.23550E-05_JPRB /)  
+KA(:, 3, 5, 4) = (/ &
+ & 0.12362E-07_JPRB,0.17491E-06_JPRB,0.38517E-06_JPRB,0.60273E-06_JPRB,0.78779E-06_JPRB, &
+ & 0.97831E-06_JPRB,0.11895E-05_JPRB,0.15264E-05_JPRB,0.23946E-05_JPRB /)  
+KA(:, 4, 5, 4) = (/ &
+ & 0.11932E-07_JPRB,0.17603E-06_JPRB,0.39310E-06_JPRB,0.61276E-06_JPRB,0.80198E-06_JPRB, &
+ & 0.99168E-06_JPRB,0.12014E-05_JPRB,0.15209E-05_JPRB,0.24122E-05_JPRB /)  
+KA(:, 5, 5, 4) = (/ &
+ & 0.12827E-07_JPRB,0.23797E-06_JPRB,0.54915E-06_JPRB,0.81314E-06_JPRB,0.10605E-05_JPRB, &
+ & 0.13079E-05_JPRB,0.15848E-05_JPRB,0.19982E-05_JPRB,0.26265E-05_JPRB /)  
+KA(:, 1, 6, 4) = (/ &
+ & 0.16887E-07_JPRB,0.16918E-06_JPRB,0.26182E-06_JPRB,0.43955E-06_JPRB,0.59876E-06_JPRB, &
+ & 0.76220E-06_JPRB,0.96205E-06_JPRB,0.12977E-05_JPRB,0.30196E-05_JPRB /)  
+KA(:, 2, 6, 4) = (/ &
+ & 0.16463E-07_JPRB,0.17256E-06_JPRB,0.26723E-06_JPRB,0.45266E-06_JPRB,0.61330E-06_JPRB, &
+ & 0.77949E-06_JPRB,0.96881E-06_JPRB,0.12938E-05_JPRB,0.31027E-05_JPRB /)  
+KA(:, 3, 6, 4) = (/ &
+ & 0.14297E-07_JPRB,0.17174E-06_JPRB,0.27626E-06_JPRB,0.46141E-06_JPRB,0.62873E-06_JPRB, &
+ & 0.79335E-06_JPRB,0.97523E-06_JPRB,0.12716E-05_JPRB,0.31487E-05_JPRB /)  
+KA(:, 4, 6, 4) = (/ &
+ & 0.15984E-07_JPRB,0.17093E-06_JPRB,0.27951E-06_JPRB,0.46972E-06_JPRB,0.64062E-06_JPRB, &
+ & 0.80616E-06_JPRB,0.98183E-06_JPRB,0.12602E-05_JPRB,0.31591E-05_JPRB /)  
+KA(:, 5, 6, 4) = (/ &
+ & 0.17832E-07_JPRB,0.17197E-06_JPRB,0.28124E-06_JPRB,0.47610E-06_JPRB,0.64900E-06_JPRB, &
+ & 0.81537E-06_JPRB,0.99403E-06_JPRB,0.12613E-05_JPRB,0.32001E-05_JPRB /)  
+KA(:, 1, 7, 4) = (/ &
+ & 0.19543E-07_JPRB,0.20424E-06_JPRB,0.20827E-06_JPRB,0.30613E-06_JPRB,0.46038E-06_JPRB, &
+ & 0.61052E-06_JPRB,0.78796E-06_JPRB,0.10769E-05_JPRB,0.53495E-05_JPRB /)  
+KA(:, 2, 7, 4) = (/ &
+ & 0.21943E-07_JPRB,0.20486E-06_JPRB,0.21292E-06_JPRB,0.31650E-06_JPRB,0.47369E-06_JPRB, &
+ & 0.62546E-06_JPRB,0.78997E-06_JPRB,0.10696E-05_JPRB,0.53612E-05_JPRB /)  
+KA(:, 3, 7, 4) = (/ &
+ & 0.23096E-07_JPRB,0.20519E-06_JPRB,0.21260E-06_JPRB,0.32419E-06_JPRB,0.48522E-06_JPRB, &
+ & 0.63494E-06_JPRB,0.79556E-06_JPRB,0.10562E-05_JPRB,0.54125E-05_JPRB /)  
+KA(:, 4, 7, 4) = (/ &
+ & 0.23811E-07_JPRB,0.20761E-06_JPRB,0.21334E-06_JPRB,0.32752E-06_JPRB,0.49467E-06_JPRB, &
+ & 0.64456E-06_JPRB,0.80411E-06_JPRB,0.10435E-05_JPRB,0.54920E-05_JPRB /)  
+KA(:, 5, 7, 4) = (/ &
+ & 0.23502E-07_JPRB,0.20918E-06_JPRB,0.21430E-06_JPRB,0.32878E-06_JPRB,0.50037E-06_JPRB, &
+ & 0.65413E-06_JPRB,0.80879E-06_JPRB,0.10409E-05_JPRB,0.55076E-05_JPRB /)  
+KA(:, 1, 8, 4) = (/ &
+ & 0.28818E-07_JPRB,0.26386E-06_JPRB,0.23322E-06_JPRB,0.23394E-06_JPRB,0.31766E-06_JPRB, &
+ & 0.47372E-06_JPRB,0.64268E-06_JPRB,0.89272E-06_JPRB,0.10691E-04_JPRB /)  
+KA(:, 2, 8, 4) = (/ &
+ & 0.30094E-07_JPRB,0.27235E-06_JPRB,0.23524E-06_JPRB,0.24245E-06_JPRB,0.32636E-06_JPRB, &
+ & 0.48411E-06_JPRB,0.63773E-06_JPRB,0.88040E-06_JPRB,0.10770E-04_JPRB /)  
+KA(:, 3, 8, 4) = (/ &
+ & 0.32474E-07_JPRB,0.27799E-06_JPRB,0.23717E-06_JPRB,0.24789E-06_JPRB,0.33554E-06_JPRB, &
+ & 0.49304E-06_JPRB,0.64255E-06_JPRB,0.87788E-06_JPRB,0.10799E-04_JPRB /)  
+KA(:, 4, 8, 4) = (/ &
+ & 0.33631E-07_JPRB,0.28020E-06_JPRB,0.23819E-06_JPRB,0.25000E-06_JPRB,0.34187E-06_JPRB, &
+ & 0.49874E-06_JPRB,0.64803E-06_JPRB,0.86373E-06_JPRB,0.10824E-04_JPRB /)  
+KA(:, 5, 8, 4) = (/ &
+ & 0.34597E-07_JPRB,0.28107E-06_JPRB,0.24266E-06_JPRB,0.24933E-06_JPRB,0.34607E-06_JPRB, &
+ & 0.50692E-06_JPRB,0.65081E-06_JPRB,0.85686E-06_JPRB,0.10819E-04_JPRB /)  
+KA(:, 1, 9, 4) = (/ &
+ & 0.37049E-07_JPRB,0.33070E-06_JPRB,0.32147E-06_JPRB,0.25828E-06_JPRB,0.24460E-06_JPRB, &
+ & 0.33057E-06_JPRB,0.51182E-06_JPRB,0.72970E-06_JPRB,0.32667E-04_JPRB /)  
+KA(:, 2, 9, 4) = (/ &
+ & 0.39634E-07_JPRB,0.34282E-06_JPRB,0.32875E-06_JPRB,0.26785E-06_JPRB,0.25757E-06_JPRB, &
+ & 0.33579E-06_JPRB,0.50462E-06_JPRB,0.72240E-06_JPRB,0.32638E-04_JPRB /)  
+KA(:, 3, 9, 4) = (/ &
+ & 0.42012E-07_JPRB,0.34998E-06_JPRB,0.33495E-06_JPRB,0.27514E-06_JPRB,0.26581E-06_JPRB, &
+ & 0.33988E-06_JPRB,0.50360E-06_JPRB,0.72105E-06_JPRB,0.32828E-04_JPRB /)  
+KA(:, 4, 9, 4) = (/ &
+ & 0.43216E-07_JPRB,0.35061E-06_JPRB,0.33953E-06_JPRB,0.28140E-06_JPRB,0.27172E-06_JPRB, &
+ & 0.34266E-06_JPRB,0.50914E-06_JPRB,0.70829E-06_JPRB,0.32970E-04_JPRB /)  
+KA(:, 5, 9, 4) = (/ &
+ & 0.43838E-07_JPRB,0.35447E-06_JPRB,0.34674E-06_JPRB,0.28252E-06_JPRB,0.27122E-06_JPRB, &
+ & 0.34740E-06_JPRB,0.51058E-06_JPRB,0.70194E-06_JPRB,0.33023E-04_JPRB /)  
+KA(:, 1,10, 4) = (/ &
+ & 0.46492E-07_JPRB,0.34673E-06_JPRB,0.43959E-06_JPRB,0.39620E-06_JPRB,0.30969E-06_JPRB, &
+ & 0.25359E-06_JPRB,0.35579E-06_JPRB,0.58999E-06_JPRB,0.75308E-04_JPRB /)  
+KA(:, 2,10, 4) = (/ &
+ & 0.51642E-07_JPRB,0.35814E-06_JPRB,0.45251E-06_JPRB,0.40694E-06_JPRB,0.31643E-06_JPRB, &
+ & 0.25658E-06_JPRB,0.34700E-06_JPRB,0.58340E-06_JPRB,0.75445E-04_JPRB /)  
+KA(:, 3,10, 4) = (/ &
+ & 0.55139E-07_JPRB,0.36959E-06_JPRB,0.46273E-06_JPRB,0.41592E-06_JPRB,0.32168E-06_JPRB, &
+ & 0.26320E-06_JPRB,0.34598E-06_JPRB,0.57972E-06_JPRB,0.75796E-04_JPRB /)  
+KA(:, 4,10, 4) = (/ &
+ & 0.58094E-07_JPRB,0.37731E-06_JPRB,0.47160E-06_JPRB,0.41969E-06_JPRB,0.32536E-06_JPRB, &
+ & 0.27186E-06_JPRB,0.34692E-06_JPRB,0.57173E-06_JPRB,0.76680E-04_JPRB /)  
+KA(:, 5,10, 4) = (/ &
+ & 0.62665E-07_JPRB,0.38529E-06_JPRB,0.47122E-06_JPRB,0.42322E-06_JPRB,0.32990E-06_JPRB, &
+ & 0.28125E-06_JPRB,0.34920E-06_JPRB,0.56204E-06_JPRB,0.77515E-04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART3',1,ZHOOK_HANDLE)
+END SUBROUTINE PART3
+
+
+SUBROUTINE PART4
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART4',0,ZHOOK_HANDLE)
+
+
+KA(:, 1,11, 4) = (/ &
+ & 0.71997E-07_JPRB,0.39039E-06_JPRB,0.48930E-06_JPRB,0.52037E-06_JPRB,0.44835E-06_JPRB, &
+ & 0.32920E-06_JPRB,0.25424E-06_JPRB,0.45719E-06_JPRB,0.97599E-04_JPRB /)  
+KA(:, 2,11, 4) = (/ &
+ & 0.84174E-07_JPRB,0.39220E-06_JPRB,0.49753E-06_JPRB,0.53466E-06_JPRB,0.46035E-06_JPRB, &
+ & 0.34028E-06_JPRB,0.25580E-06_JPRB,0.44804E-06_JPRB,0.98017E-04_JPRB /)  
+KA(:, 3,11, 4) = (/ &
+ & 0.88241E-07_JPRB,0.39809E-06_JPRB,0.50514E-06_JPRB,0.54464E-06_JPRB,0.47069E-06_JPRB, &
+ & 0.34919E-06_JPRB,0.25830E-06_JPRB,0.44783E-06_JPRB,0.97609E-04_JPRB /)  
+KA(:, 4,11, 4) = (/ &
+ & 0.93462E-07_JPRB,0.40271E-06_JPRB,0.51216E-06_JPRB,0.55531E-06_JPRB,0.48178E-06_JPRB, &
+ & 0.35530E-06_JPRB,0.26505E-06_JPRB,0.43524E-06_JPRB,0.97099E-04_JPRB /)  
+KA(:, 5,11, 4) = (/ &
+ & 0.96966E-07_JPRB,0.40660E-06_JPRB,0.51682E-06_JPRB,0.56367E-06_JPRB,0.48662E-06_JPRB, &
+ & 0.35706E-06_JPRB,0.26903E-06_JPRB,0.42986E-06_JPRB,0.97653E-04_JPRB /)  
+KA(:, 1,12, 4) = (/ &
+ & 0.99102E-07_JPRB,0.42179E-06_JPRB,0.46920E-06_JPRB,0.54974E-06_JPRB,0.50699E-06_JPRB, &
+ & 0.41543E-06_JPRB,0.26692E-06_JPRB,0.34287E-06_JPRB,0.10692E-03_JPRB /)  
+KA(:, 2,12, 4) = (/ &
+ & 0.10220E-06_JPRB,0.42343E-06_JPRB,0.48263E-06_JPRB,0.56179E-06_JPRB,0.52088E-06_JPRB, &
+ & 0.42826E-06_JPRB,0.27416E-06_JPRB,0.32165E-06_JPRB,0.10849E-03_JPRB /)  
+KA(:, 3,12, 4) = (/ &
+ & 0.10736E-06_JPRB,0.42994E-06_JPRB,0.49237E-06_JPRB,0.56848E-06_JPRB,0.53837E-06_JPRB, &
+ & 0.43862E-06_JPRB,0.28070E-06_JPRB,0.31402E-06_JPRB,0.10890E-03_JPRB /)  
+KA(:, 4,12, 4) = (/ &
+ & 0.10535E-06_JPRB,0.42853E-06_JPRB,0.49830E-06_JPRB,0.57259E-06_JPRB,0.55337E-06_JPRB, &
+ & 0.45117E-06_JPRB,0.28964E-06_JPRB,0.30229E-06_JPRB,0.11005E-03_JPRB /)  
+KA(:, 5,12, 4) = (/ &
+ & 0.10635E-06_JPRB,0.42826E-06_JPRB,0.50038E-06_JPRB,0.57688E-06_JPRB,0.56182E-06_JPRB, &
+ & 0.45862E-06_JPRB,0.29473E-06_JPRB,0.29904E-06_JPRB,0.11056E-03_JPRB /)  
+KA(:, 1,13, 4) = (/ &
+ & 0.11521E-06_JPRB,0.43118E-06_JPRB,0.49222E-06_JPRB,0.52624E-06_JPRB,0.55771E-06_JPRB, &
+ & 0.47186E-06_JPRB,0.32691E-06_JPRB,0.24833E-06_JPRB,0.10886E-03_JPRB /)  
+KA(:, 2,13, 4) = (/ &
+ & 0.11730E-06_JPRB,0.43904E-06_JPRB,0.49350E-06_JPRB,0.54164E-06_JPRB,0.56845E-06_JPRB, &
+ & 0.49098E-06_JPRB,0.34261E-06_JPRB,0.23938E-06_JPRB,0.11077E-03_JPRB /)  
+KA(:, 3,13, 4) = (/ &
+ & 0.11952E-06_JPRB,0.44327E-06_JPRB,0.50284E-06_JPRB,0.55816E-06_JPRB,0.58198E-06_JPRB, &
+ & 0.50372E-06_JPRB,0.35861E-06_JPRB,0.22850E-06_JPRB,0.11296E-03_JPRB /)  
+KA(:, 4,13, 4) = (/ &
+ & 0.11965E-06_JPRB,0.44664E-06_JPRB,0.51058E-06_JPRB,0.56661E-06_JPRB,0.59093E-06_JPRB, &
+ & 0.51146E-06_JPRB,0.36596E-06_JPRB,0.22349E-06_JPRB,0.11560E-03_JPRB /)  
+KA(:, 5,13, 4) = (/ &
+ & 0.12171E-06_JPRB,0.45566E-06_JPRB,0.52364E-06_JPRB,0.57439E-06_JPRB,0.59010E-06_JPRB, &
+ & 0.52011E-06_JPRB,0.37200E-06_JPRB,0.22417E-06_JPRB,0.11598E-03_JPRB /)  
+KA(:, 1, 1, 5) = (/ &
+ & 0.64393E-08_JPRB,0.14477E-05_JPRB,0.26383E-05_JPRB,0.37578E-05_JPRB,0.48497E-05_JPRB, &
+ & 0.58771E-05_JPRB,0.69748E-05_JPRB,0.83337E-05_JPRB,0.52972E-05_JPRB /)  
+KA(:, 2, 1, 5) = (/ &
+ & 0.74788E-08_JPRB,0.14813E-05_JPRB,0.26820E-05_JPRB,0.38123E-05_JPRB,0.49043E-05_JPRB, &
+ & 0.59719E-05_JPRB,0.70794E-05_JPRB,0.84777E-05_JPRB,0.53686E-05_JPRB /)  
+KA(:, 3, 1, 5) = (/ &
+ & 0.70698E-08_JPRB,0.17381E-05_JPRB,0.31521E-05_JPRB,0.44815E-05_JPRB,0.57370E-05_JPRB, &
+ & 0.69696E-05_JPRB,0.82426E-05_JPRB,0.98195E-05_JPRB,0.67445E-05_JPRB /)  
+KA(:, 4, 1, 5) = (/ &
+ & 0.75728E-08_JPRB,0.15363E-05_JPRB,0.27544E-05_JPRB,0.38956E-05_JPRB,0.49855E-05_JPRB, &
+ & 0.60556E-05_JPRB,0.72284E-05_JPRB,0.86770E-05_JPRB,0.54442E-05_JPRB /)  
+KA(:, 5, 1, 5) = (/ &
+ & 0.72646E-08_JPRB,0.15573E-05_JPRB,0.27840E-05_JPRB,0.39266E-05_JPRB,0.50091E-05_JPRB, &
+ & 0.60781E-05_JPRB,0.72327E-05_JPRB,0.87344E-05_JPRB,0.54537E-05_JPRB /)  
+KA(:, 1, 2, 5) = (/ &
+ & 0.91682E-08_JPRB,0.12471E-05_JPRB,0.22727E-05_JPRB,0.32462E-05_JPRB,0.42007E-05_JPRB, &
+ & 0.51012E-05_JPRB,0.60761E-05_JPRB,0.73379E-05_JPRB,0.44448E-05_JPRB /)  
+KA(:, 2, 2, 5) = (/ &
+ & 0.78841E-08_JPRB,0.12745E-05_JPRB,0.23098E-05_JPRB,0.32938E-05_JPRB,0.42384E-05_JPRB, &
+ & 0.51817E-05_JPRB,0.61658E-05_JPRB,0.74615E-05_JPRB,0.44925E-05_JPRB /)  
+KA(:, 3, 2, 5) = (/ &
+ & 0.88457E-08_JPRB,0.15305E-05_JPRB,0.27824E-05_JPRB,0.39573E-05_JPRB,0.50820E-05_JPRB, &
+ & 0.61863E-05_JPRB,0.73547E-05_JPRB,0.88186E-05_JPRB,0.58192E-05_JPRB /)  
+KA(:, 4, 2, 5) = (/ &
+ & 0.81699E-08_JPRB,0.15379E-05_JPRB,0.27884E-05_JPRB,0.39554E-05_JPRB,0.50640E-05_JPRB, &
+ & 0.61598E-05_JPRB,0.73260E-05_JPRB,0.88047E-05_JPRB,0.57596E-05_JPRB /)  
+KA(:, 5, 2, 5) = (/ &
+ & 0.81267E-08_JPRB,0.13345E-05_JPRB,0.23941E-05_JPRB,0.33760E-05_JPRB,0.43121E-05_JPRB, &
+ & 0.52406E-05_JPRB,0.62663E-05_JPRB,0.76657E-05_JPRB,0.45393E-05_JPRB /)  
+KA(:, 1, 3, 5) = (/ &
+ & 0.91717E-08_JPRB,0.10541E-05_JPRB,0.19313E-05_JPRB,0.27682E-05_JPRB,0.35915E-05_JPRB, &
+ & 0.43666E-05_JPRB,0.52222E-05_JPRB,0.63759E-05_JPRB,0.36110E-05_JPRB /)  
+KA(:, 2, 3, 5) = (/ &
+ & 0.10331E-07_JPRB,0.10789E-05_JPRB,0.19645E-05_JPRB,0.28075E-05_JPRB,0.36240E-05_JPRB, &
+ & 0.44392E-05_JPRB,0.52990E-05_JPRB,0.64883E-05_JPRB,0.36530E-05_JPRB /)  
+KA(:, 3, 3, 5) = (/ &
+ & 0.12324E-07_JPRB,0.10988E-05_JPRB,0.19944E-05_JPRB,0.28363E-05_JPRB,0.36532E-05_JPRB, &
+ & 0.44650E-05_JPRB,0.53622E-05_JPRB,0.65761E-05_JPRB,0.36791E-05_JPRB /)  
+KA(:, 4, 3, 5) = (/ &
+ & 0.11596E-07_JPRB,0.13389E-05_JPRB,0.24365E-05_JPRB,0.34597E-05_JPRB,0.44354E-05_JPRB, &
+ & 0.54167E-05_JPRB,0.64681E-05_JPRB,0.78697E-05_JPRB,0.48568E-05_JPRB /)  
+KA(:, 5, 3, 5) = (/ &
+ & 0.11476E-07_JPRB,0.11282E-05_JPRB,0.20370E-05_JPRB,0.28768E-05_JPRB,0.36785E-05_JPRB, &
+ & 0.44764E-05_JPRB,0.53828E-05_JPRB,0.66660E-05_JPRB,0.36841E-05_JPRB /)  
+KA(:, 1, 4, 5) = (/ &
+ & 0.12942E-07_JPRB,0.87057E-06_JPRB,0.16185E-05_JPRB,0.23328E-05_JPRB,0.30327E-05_JPRB, &
+ & 0.36939E-05_JPRB,0.44351E-05_JPRB,0.54720E-05_JPRB,0.21271E-05_JPRB /)  
+KA(:, 2, 4, 5) = (/ &
+ & 0.12911E-07_JPRB,0.89351E-06_JPRB,0.16491E-05_JPRB,0.23657E-05_JPRB,0.30660E-05_JPRB, &
+ & 0.37589E-05_JPRB,0.45049E-05_JPRB,0.55808E-05_JPRB,0.21315E-05_JPRB /)  
+KA(:, 3, 4, 5) = (/ &
+ & 0.11919E-07_JPRB,0.91285E-06_JPRB,0.16762E-05_JPRB,0.23907E-05_JPRB,0.30911E-05_JPRB, &
+ & 0.37889E-05_JPRB,0.45584E-05_JPRB,0.56554E-05_JPRB,0.21302E-05_JPRB /)  
+KA(:, 4, 4, 5) = (/ &
+ & 0.12644E-07_JPRB,0.92680E-06_JPRB,0.16966E-05_JPRB,0.24115E-05_JPRB,0.31023E-05_JPRB, &
+ & 0.37973E-05_JPRB,0.46002E-05_JPRB,0.57029E-05_JPRB,0.21090E-05_JPRB /)  
+KA(:, 5, 4, 5) = (/ &
+ & 0.14252E-07_JPRB,0.11501E-05_JPRB,0.21042E-05_JPRB,0.29827E-05_JPRB,0.38200E-05_JPRB, &
+ & 0.46680E-05_JPRB,0.55977E-05_JPRB,0.69211E-05_JPRB,0.32123E-05_JPRB /)  
+KA(:, 1, 5, 5) = (/ &
+ & 0.14457E-07_JPRB,0.68848E-06_JPRB,0.13403E-05_JPRB,0.19448E-05_JPRB,0.25364E-05_JPRB, &
+ & 0.30956E-05_JPRB,0.37236E-05_JPRB,0.46561E-05_JPRB,0.23476E-05_JPRB /)  
+KA(:, 2, 5, 5) = (/ &
+ & 0.13664E-07_JPRB,0.70724E-06_JPRB,0.13666E-05_JPRB,0.19744E-05_JPRB,0.25701E-05_JPRB, &
+ & 0.31515E-05_JPRB,0.37903E-05_JPRB,0.47386E-05_JPRB,0.23292E-05_JPRB /)  
+KA(:, 3, 5, 5) = (/ &
+ & 0.16363E-07_JPRB,0.72382E-06_JPRB,0.13894E-05_JPRB,0.19966E-05_JPRB,0.25908E-05_JPRB, &
+ & 0.31942E-05_JPRB,0.38380E-05_JPRB,0.48063E-05_JPRB,0.23210E-05_JPRB /)  
+KA(:, 4, 5, 5) = (/ &
+ & 0.18854E-07_JPRB,0.73645E-06_JPRB,0.14075E-05_JPRB,0.20143E-05_JPRB,0.25995E-05_JPRB, &
+ & 0.31924E-05_JPRB,0.38751E-05_JPRB,0.48509E-05_JPRB,0.23084E-05_JPRB /)  
+KA(:, 5, 5, 5) = (/ &
+ & 0.19502E-07_JPRB,0.95711E-06_JPRB,0.17948E-05_JPRB,0.25536E-05_JPRB,0.32756E-05_JPRB, &
+ & 0.40127E-05_JPRB,0.48356E-05_JPRB,0.60502E-05_JPRB,0.26522E-05_JPRB /)  
+KA(:, 1, 6, 5) = (/ &
+ & 0.20265E-07_JPRB,0.45716E-06_JPRB,0.10840E-05_JPRB,0.16034E-05_JPRB,0.20999E-05_JPRB, &
+ & 0.25681E-05_JPRB,0.30977E-05_JPRB,0.39107E-05_JPRB,0.52450E-05_JPRB /)  
+KA(:, 2, 6, 5) = (/ &
+ & 0.21598E-07_JPRB,0.47132E-06_JPRB,0.11079E-05_JPRB,0.16263E-05_JPRB,0.21396E-05_JPRB, &
+ & 0.26164E-05_JPRB,0.31577E-05_JPRB,0.39701E-05_JPRB,0.52182E-05_JPRB /)  
+KA(:, 3, 6, 5) = (/ &
+ & 0.24575E-07_JPRB,0.48601E-06_JPRB,0.11257E-05_JPRB,0.16486E-05_JPRB,0.21513E-05_JPRB, &
+ & 0.26585E-05_JPRB,0.32022E-05_JPRB,0.40354E-05_JPRB,0.51968E-05_JPRB /)  
+KA(:, 4, 6, 5) = (/ &
+ & 0.24397E-07_JPRB,0.49804E-06_JPRB,0.11416E-05_JPRB,0.16645E-05_JPRB,0.21605E-05_JPRB, &
+ & 0.26639E-05_JPRB,0.32353E-05_JPRB,0.40822E-05_JPRB,0.51575E-05_JPRB /)  
+KA(:, 5, 6, 5) = (/ &
+ & 0.24456E-07_JPRB,0.50499E-06_JPRB,0.11522E-05_JPRB,0.16738E-05_JPRB,0.21632E-05_JPRB, &
+ & 0.26629E-05_JPRB,0.32463E-05_JPRB,0.41051E-05_JPRB,0.51085E-05_JPRB /)  
+KA(:, 1, 7, 5) = (/ &
+ & 0.28039E-07_JPRB,0.29800E-06_JPRB,0.81783E-06_JPRB,0.13008E-05_JPRB,0.17226E-05_JPRB, &
+ & 0.21163E-05_JPRB,0.25578E-05_JPRB,0.32519E-05_JPRB,0.82307E-05_JPRB /)  
+KA(:, 2, 7, 5) = (/ &
+ & 0.29388E-07_JPRB,0.30492E-06_JPRB,0.83771E-06_JPRB,0.13192E-05_JPRB,0.17591E-05_JPRB, &
+ & 0.21563E-05_JPRB,0.26128E-05_JPRB,0.33130E-05_JPRB,0.81908E-05_JPRB /)  
+KA(:, 3, 7, 5) = (/ &
+ & 0.29556E-07_JPRB,0.30866E-06_JPRB,0.85444E-06_JPRB,0.13376E-05_JPRB,0.17722E-05_JPRB, &
+ & 0.21943E-05_JPRB,0.26541E-05_JPRB,0.33584E-05_JPRB,0.81819E-05_JPRB /)  
+KA(:, 4, 7, 5) = (/ &
+ & 0.26709E-07_JPRB,0.30951E-06_JPRB,0.86739E-06_JPRB,0.13505E-05_JPRB,0.17805E-05_JPRB, &
+ & 0.22093E-05_JPRB,0.26812E-05_JPRB,0.34009E-05_JPRB,0.81017E-05_JPRB /)  
+KA(:, 5, 7, 5) = (/ &
+ & 0.27877E-07_JPRB,0.31158E-06_JPRB,0.87645E-06_JPRB,0.13597E-05_JPRB,0.17817E-05_JPRB, &
+ & 0.22083E-05_JPRB,0.26996E-05_JPRB,0.34240E-05_JPRB,0.80774E-05_JPRB /)  
+KA(:, 1, 8, 5) = (/ &
+ & 0.34498E-07_JPRB,0.30504E-06_JPRB,0.50025E-06_JPRB,0.99104E-06_JPRB,0.13907E-05_JPRB, &
+ & 0.17284E-05_JPRB,0.20950E-05_JPRB,0.26875E-05_JPRB,0.12492E-04_JPRB /)  
+KA(:, 2, 8, 5) = (/ &
+ & 0.34468E-07_JPRB,0.31253E-06_JPRB,0.51376E-06_JPRB,0.10029E-05_JPRB,0.14233E-05_JPRB, &
+ & 0.17665E-05_JPRB,0.21486E-05_JPRB,0.27439E-05_JPRB,0.12811E-04_JPRB /)  
+KA(:, 3, 8, 5) = (/ &
+ & 0.33481E-07_JPRB,0.31885E-06_JPRB,0.52532E-06_JPRB,0.10176E-05_JPRB,0.14361E-05_JPRB, &
+ & 0.18000E-05_JPRB,0.21864E-05_JPRB,0.27713E-05_JPRB,0.12979E-04_JPRB /)  
+KA(:, 4, 8, 5) = (/ &
+ & 0.35023E-07_JPRB,0.32212E-06_JPRB,0.53171E-06_JPRB,0.10292E-05_JPRB,0.14414E-05_JPRB, &
+ & 0.18222E-05_JPRB,0.22113E-05_JPRB,0.28111E-05_JPRB,0.13061E-04_JPRB /)  
+KA(:, 5, 8, 5) = (/ &
+ & 0.38480E-07_JPRB,0.32386E-06_JPRB,0.53818E-06_JPRB,0.10355E-05_JPRB,0.14400E-05_JPRB, &
+ & 0.18162E-05_JPRB,0.22298E-05_JPRB,0.28367E-05_JPRB,0.13100E-04_JPRB /)  
+KA(:, 1, 9, 5) = (/ &
+ & 0.41152E-07_JPRB,0.31870E-06_JPRB,0.36402E-06_JPRB,0.61613E-06_JPRB,0.10619E-05_JPRB, &
+ & 0.13940E-05_JPRB,0.17098E-05_JPRB,0.22173E-05_JPRB,0.27198E-04_JPRB /)  
+KA(:, 2, 9, 5) = (/ &
+ & 0.47020E-07_JPRB,0.31765E-06_JPRB,0.37312E-06_JPRB,0.61961E-06_JPRB,0.10763E-05_JPRB, &
+ & 0.14273E-05_JPRB,0.17555E-05_JPRB,0.22573E-05_JPRB,0.28218E-04_JPRB /)  
+KA(:, 3, 9, 5) = (/ &
+ & 0.48171E-07_JPRB,0.31526E-06_JPRB,0.38468E-06_JPRB,0.62540E-06_JPRB,0.10803E-05_JPRB, &
+ & 0.14543E-05_JPRB,0.17919E-05_JPRB,0.22822E-05_JPRB,0.28600E-04_JPRB /)  
+KA(:, 4, 9, 5) = (/ &
+ & 0.52826E-07_JPRB,0.32481E-06_JPRB,0.38733E-06_JPRB,0.62721E-06_JPRB,0.10854E-05_JPRB, &
+ & 0.14750E-05_JPRB,0.18124E-05_JPRB,0.23140E-05_JPRB,0.29051E-04_JPRB /)  
+KA(:, 5, 9, 5) = (/ &
+ & 0.56456E-07_JPRB,0.32727E-06_JPRB,0.38424E-06_JPRB,0.63178E-06_JPRB,0.10853E-05_JPRB, &
+ & 0.14692E-05_JPRB,0.18309E-05_JPRB,0.23369E-05_JPRB,0.29958E-04_JPRB /)  
+KA(:, 1,10, 5) = (/ &
+ & 0.62033E-07_JPRB,0.45418E-06_JPRB,0.43247E-06_JPRB,0.44775E-06_JPRB,0.62834E-06_JPRB, &
+ & 0.10534E-05_JPRB,0.13865E-05_JPRB,0.18301E-05_JPRB,0.47779E-04_JPRB /)  
+KA(:, 2,10, 5) = (/ &
+ & 0.66259E-07_JPRB,0.45321E-06_JPRB,0.43983E-06_JPRB,0.45223E-06_JPRB,0.63440E-06_JPRB, &
+ & 0.10746E-05_JPRB,0.14253E-05_JPRB,0.18534E-05_JPRB,0.48468E-04_JPRB /)  
+KA(:, 3,10, 5) = (/ &
+ & 0.78966E-07_JPRB,0.45246E-06_JPRB,0.44780E-06_JPRB,0.45868E-06_JPRB,0.63026E-06_JPRB, &
+ & 0.10842E-05_JPRB,0.14519E-05_JPRB,0.18794E-05_JPRB,0.49251E-04_JPRB /)  
+KA(:, 4,10, 5) = (/ &
+ & 0.87881E-07_JPRB,0.44642E-06_JPRB,0.45426E-06_JPRB,0.46583E-06_JPRB,0.63116E-06_JPRB, &
+ & 0.10925E-05_JPRB,0.14710E-05_JPRB,0.18965E-05_JPRB,0.49742E-04_JPRB /)  
+KA(:, 5,10, 5) = (/ &
+ & 0.92572E-07_JPRB,0.44310E-06_JPRB,0.45326E-06_JPRB,0.47005E-06_JPRB,0.63094E-06_JPRB, &
+ & 0.10763E-05_JPRB,0.14843E-05_JPRB,0.19214E-05_JPRB,0.50457E-04_JPRB /)  
+KA(:, 1,11, 5) = (/ &
+ & 0.10522E-06_JPRB,0.58600E-06_JPRB,0.57473E-06_JPRB,0.52150E-06_JPRB,0.51202E-06_JPRB, &
+ & 0.62383E-06_JPRB,0.10987E-05_JPRB,0.15032E-05_JPRB,0.50557E-04_JPRB /)  
+KA(:, 2,11, 5) = (/ &
+ & 0.98332E-07_JPRB,0.58669E-06_JPRB,0.57910E-06_JPRB,0.52997E-06_JPRB,0.52591E-06_JPRB, &
+ & 0.62992E-06_JPRB,0.11144E-05_JPRB,0.15271E-05_JPRB,0.52915E-04_JPRB /)  
+KA(:, 3,11, 5) = (/ &
+ & 0.10383E-06_JPRB,0.58976E-06_JPRB,0.58650E-06_JPRB,0.53573E-06_JPRB,0.53394E-06_JPRB, &
+ & 0.63743E-06_JPRB,0.11251E-05_JPRB,0.15415E-05_JPRB,0.55206E-04_JPRB /)  
+KA(:, 4,11, 5) = (/ &
+ & 0.10626E-06_JPRB,0.58622E-06_JPRB,0.58747E-06_JPRB,0.53868E-06_JPRB,0.53891E-06_JPRB, &
+ & 0.62645E-06_JPRB,0.11296E-05_JPRB,0.15628E-05_JPRB,0.58020E-04_JPRB /)  
+KA(:, 5,11, 5) = (/ &
+ & 0.10795E-06_JPRB,0.57800E-06_JPRB,0.58664E-06_JPRB,0.53883E-06_JPRB,0.54784E-06_JPRB, &
+ & 0.62145E-06_JPRB,0.11279E-05_JPRB,0.15782E-05_JPRB,0.60369E-04_JPRB /)  
+KA(:, 1,12, 5) = (/ &
+ & 0.11905E-06_JPRB,0.60759E-06_JPRB,0.68611E-06_JPRB,0.59318E-06_JPRB,0.53805E-06_JPRB, &
+ & 0.44962E-06_JPRB,0.74828E-06_JPRB,0.12279E-05_JPRB,0.57098E-04_JPRB /)  
+KA(:, 2,12, 5) = (/ &
+ & 0.12660E-06_JPRB,0.61695E-06_JPRB,0.68094E-06_JPRB,0.60079E-06_JPRB,0.55064E-06_JPRB, &
+ & 0.44953E-06_JPRB,0.74858E-06_JPRB,0.12489E-05_JPRB,0.55969E-04_JPRB /)  
+KA(:, 3,12, 5) = (/ &
+ & 0.12824E-06_JPRB,0.61561E-06_JPRB,0.67586E-06_JPRB,0.61662E-06_JPRB,0.55533E-06_JPRB, &
+ & 0.46796E-06_JPRB,0.74406E-06_JPRB,0.12615E-05_JPRB,0.57249E-04_JPRB /)  
+KA(:, 4,12, 5) = (/ &
+ & 0.12834E-06_JPRB,0.62554E-06_JPRB,0.67923E-06_JPRB,0.62343E-06_JPRB,0.55964E-06_JPRB, &
+ & 0.48091E-06_JPRB,0.73622E-06_JPRB,0.12795E-05_JPRB,0.58462E-04_JPRB /)  
+KA(:, 5,12, 5) = (/ &
+ & 0.13022E-06_JPRB,0.63206E-06_JPRB,0.68726E-06_JPRB,0.62663E-06_JPRB,0.56231E-06_JPRB, &
+ & 0.48008E-06_JPRB,0.72942E-06_JPRB,0.12885E-05_JPRB,0.57642E-04_JPRB /)  
+KA(:, 1,13, 5) = (/ &
+ & 0.15325E-06_JPRB,0.60909E-06_JPRB,0.76952E-06_JPRB,0.71232E-06_JPRB,0.57983E-06_JPRB, &
+ & 0.50489E-06_JPRB,0.48627E-06_JPRB,0.99183E-06_JPRB,0.58778E-04_JPRB /)  
+KA(:, 2,13, 5) = (/ &
+ & 0.15519E-06_JPRB,0.62152E-06_JPRB,0.78639E-06_JPRB,0.71888E-06_JPRB,0.59866E-06_JPRB, &
+ & 0.50930E-06_JPRB,0.48247E-06_JPRB,0.10069E-05_JPRB,0.57959E-04_JPRB /)  
+KA(:, 3,13, 5) = (/ &
+ & 0.17242E-06_JPRB,0.64099E-06_JPRB,0.78686E-06_JPRB,0.71502E-06_JPRB,0.60678E-06_JPRB, &
+ & 0.51633E-06_JPRB,0.47220E-06_JPRB,0.10180E-05_JPRB,0.56844E-04_JPRB /)  
+KA(:, 4,13, 5) = (/ &
+ & 0.18585E-06_JPRB,0.65002E-06_JPRB,0.78368E-06_JPRB,0.71421E-06_JPRB,0.61538E-06_JPRB, &
+ & 0.52650E-06_JPRB,0.46857E-06_JPRB,0.10263E-05_JPRB,0.55757E-04_JPRB /)  
+KA(:, 5,13, 5) = (/ &
+ & 0.19235E-06_JPRB,0.64166E-06_JPRB,0.76203E-06_JPRB,0.70622E-06_JPRB,0.61837E-06_JPRB, &
+ & 0.53042E-06_JPRB,0.45529E-06_JPRB,0.10275E-05_JPRB,0.55475E-04_JPRB /)  
+KA(:, 1, 1, 6) = (/ &
+ & 0.95617E-08_JPRB,0.36774E-05_JPRB,0.65849E-05_JPRB,0.92221E-05_JPRB,0.11700E-04_JPRB, &
+ & 0.14161E-04_JPRB,0.16732E-04_JPRB,0.20350E-04_JPRB,0.14554E-04_JPRB /)  
+KA(:, 2, 1, 6) = (/ &
+ & 0.93327E-08_JPRB,0.37537E-05_JPRB,0.66916E-05_JPRB,0.93495E-05_JPRB,0.11842E-04_JPRB, &
+ & 0.14289E-04_JPRB,0.16848E-04_JPRB,0.20318E-04_JPRB,0.14747E-04_JPRB /)  
+KA(:, 3, 1, 6) = (/ &
+ & 0.98298E-08_JPRB,0.41944E-05_JPRB,0.75022E-05_JPRB,0.10503E-04_JPRB,0.13381E-04_JPRB, &
+ & 0.16104E-04_JPRB,0.19004E-04_JPRB,0.22601E-04_JPRB,0.17337E-04_JPRB /)  
+KA(:, 4, 1, 6) = (/ &
+ & 0.92318E-08_JPRB,0.38872E-05_JPRB,0.68816E-05_JPRB,0.95784E-05_JPRB,0.12112E-04_JPRB, &
+ & 0.14510E-04_JPRB,0.17052E-04_JPRB,0.20522E-04_JPRB,0.14967E-04_JPRB /)  
+KA(:, 5, 1, 6) = (/ &
+ & 0.98053E-08_JPRB,0.39438E-05_JPRB,0.69574E-05_JPRB,0.96665E-05_JPRB,0.12218E-04_JPRB, &
+ & 0.14607E-04_JPRB,0.17135E-04_JPRB,0.20557E-04_JPRB,0.15005E-04_JPRB /)  
+KA(:, 1, 2, 6) = (/ &
+ & 0.99669E-08_JPRB,0.32456E-05_JPRB,0.58216E-05_JPRB,0.81575E-05_JPRB,0.10349E-04_JPRB, &
+ & 0.12573E-04_JPRB,0.14901E-04_JPRB,0.18163E-04_JPRB,0.12615E-04_JPRB /)  
+KA(:, 2, 2, 6) = (/ &
+ & 0.12231E-07_JPRB,0.33138E-05_JPRB,0.59221E-05_JPRB,0.82752E-05_JPRB,0.10501E-04_JPRB, &
+ & 0.12666E-04_JPRB,0.15004E-04_JPRB,0.18147E-04_JPRB,0.12797E-04_JPRB /)  
+KA(:, 3, 2, 6) = (/ &
+ & 0.10745E-07_JPRB,0.37581E-05_JPRB,0.67327E-05_JPRB,0.94426E-05_JPRB,0.12044E-04_JPRB, &
+ & 0.14533E-04_JPRB,0.17181E-04_JPRB,0.20503E-04_JPRB,0.15464E-04_JPRB /)  
+KA(:, 4, 2, 6) = (/ &
+ & 0.11723E-07_JPRB,0.37897E-05_JPRB,0.67581E-05_JPRB,0.94584E-05_JPRB,0.12035E-04_JPRB, &
+ & 0.14508E-04_JPRB,0.17115E-04_JPRB,0.20450E-04_JPRB,0.15378E-04_JPRB /)  
+KA(:, 5, 2, 6) = (/ &
+ & 0.10775E-07_JPRB,0.34864E-05_JPRB,0.61478E-05_JPRB,0.85479E-05_JPRB,0.10823E-04_JPRB, &
+ & 0.12985E-04_JPRB,0.15273E-04_JPRB,0.18381E-04_JPRB,0.12972E-04_JPRB /)  
+KA(:, 1, 3, 6) = (/ &
+ & 0.12159E-07_JPRB,0.28311E-05_JPRB,0.50923E-05_JPRB,0.71433E-05_JPRB,0.90735E-05_JPRB, &
+ & 0.11042E-04_JPRB,0.13160E-04_JPRB,0.16141E-04_JPRB,0.10790E-04_JPRB /)  
+KA(:, 2, 3, 6) = (/ &
+ & 0.11403E-07_JPRB,0.28950E-05_JPRB,0.51829E-05_JPRB,0.72481E-05_JPRB,0.92149E-05_JPRB, &
+ & 0.11135E-04_JPRB,0.13267E-04_JPRB,0.16084E-04_JPRB,0.10912E-04_JPRB /)  
+KA(:, 3, 3, 6) = (/ &
+ & 0.12436E-07_JPRB,0.29531E-05_JPRB,0.52642E-05_JPRB,0.73461E-05_JPRB,0.93337E-05_JPRB, &
+ & 0.11250E-04_JPRB,0.13358E-04_JPRB,0.16208E-04_JPRB,0.10995E-04_JPRB /)  
+KA(:, 4, 3, 6) = (/ &
+ & 0.14856E-07_JPRB,0.33723E-05_JPRB,0.60342E-05_JPRB,0.84579E-05_JPRB,0.10776E-04_JPRB, &
+ & 0.13025E-04_JPRB,0.15434E-04_JPRB,0.18466E-04_JPRB,0.13550E-04_JPRB /)  
+KA(:, 5, 3, 6) = (/ &
+ & 0.16537E-07_JPRB,0.30506E-05_JPRB,0.53821E-05_JPRB,0.74897E-05_JPRB,0.94861E-05_JPRB, &
+ & 0.11421E-04_JPRB,0.13503E-04_JPRB,0.16308E-04_JPRB,0.11045E-04_JPRB /)  
+KA(:, 1, 4, 6) = (/ &
+ & 0.13114E-07_JPRB,0.24467E-05_JPRB,0.44159E-05_JPRB,0.61941E-05_JPRB,0.78845E-05_JPRB, &
+ & 0.96031E-05_JPRB,0.11513E-04_JPRB,0.14234E-04_JPRB,0.89642E-05_JPRB /)  
+KA(:, 2, 4, 6) = (/ &
+ & 0.15028E-07_JPRB,0.25040E-05_JPRB,0.44954E-05_JPRB,0.62931E-05_JPRB,0.80050E-05_JPRB, &
+ & 0.97056E-05_JPRB,0.11618E-04_JPRB,0.14175E-04_JPRB,0.90802E-05_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART4',1,ZHOOK_HANDLE)
+END SUBROUTINE PART4
+
+
+SUBROUTINE PART5
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART5',0,ZHOOK_HANDLE)
+
+
+KA(:, 3, 4, 6) = (/ &
+ & 0.18213E-07_JPRB,0.25556E-05_JPRB,0.45678E-05_JPRB,0.63789E-05_JPRB,0.81071E-05_JPRB, &
+ & 0.98077E-05_JPRB,0.11694E-04_JPRB,0.14301E-04_JPRB,0.91538E-05_JPRB /)  
+KA(:, 4, 4, 6) = (/ &
+ & 0.19097E-07_JPRB,0.26037E-05_JPRB,0.46288E-05_JPRB,0.64476E-05_JPRB,0.81897E-05_JPRB, &
+ & 0.98941E-05_JPRB,0.11740E-04_JPRB,0.14344E-04_JPRB,0.91968E-05_JPRB /)  
+KA(:, 5, 4, 6) = (/ &
+ & 0.18014E-07_JPRB,0.29993E-05_JPRB,0.53622E-05_JPRB,0.75209E-05_JPRB,0.95686E-05_JPRB, &
+ & 0.11571E-04_JPRB,0.13783E-04_JPRB,0.16522E-04_JPRB,0.11644E-04_JPRB /)  
+KA(:, 1, 5, 6) = (/ &
+ & 0.21237E-07_JPRB,0.20921E-05_JPRB,0.37961E-05_JPRB,0.53264E-05_JPRB,0.67905E-05_JPRB, &
+ & 0.82846E-05_JPRB,0.99803E-05_JPRB,0.12512E-04_JPRB,0.44075E-05_JPRB /)  
+KA(:, 2, 5, 6) = (/ &
+ & 0.23885E-07_JPRB,0.21444E-05_JPRB,0.38676E-05_JPRB,0.54146E-05_JPRB,0.68931E-05_JPRB, &
+ & 0.83832E-05_JPRB,0.10077E-04_JPRB,0.12417E-04_JPRB,0.44982E-05_JPRB /)  
+KA(:, 3, 5, 6) = (/ &
+ & 0.20851E-07_JPRB,0.21906E-05_JPRB,0.39301E-05_JPRB,0.54900E-05_JPRB,0.69833E-05_JPRB, &
+ & 0.84513E-05_JPRB,0.10145E-04_JPRB,0.12513E-04_JPRB,0.45299E-05_JPRB /)  
+KA(:, 4, 5, 6) = (/ &
+ & 0.22487E-07_JPRB,0.22322E-05_JPRB,0.39843E-05_JPRB,0.55506E-05_JPRB,0.70502E-05_JPRB, &
+ & 0.85357E-05_JPRB,0.10189E-04_JPRB,0.12546E-04_JPRB,0.45220E-05_JPRB /)  
+KA(:, 5, 5, 6) = (/ &
+ & 0.23015E-07_JPRB,0.26442E-05_JPRB,0.47363E-05_JPRB,0.66520E-05_JPRB,0.84676E-05_JPRB, &
+ & 0.10272E-04_JPRB,0.12268E-04_JPRB,0.14801E-04_JPRB,0.72945E-05_JPRB /)  
+KA(:, 1, 6, 6) = (/ &
+ & 0.22693E-07_JPRB,0.17592E-05_JPRB,0.32289E-05_JPRB,0.45327E-05_JPRB,0.57876E-05_JPRB, &
+ & 0.70822E-05_JPRB,0.85643E-05_JPRB,0.10966E-04_JPRB,0.53375E-05_JPRB /)  
+KA(:, 2, 6, 6) = (/ &
+ & 0.22407E-07_JPRB,0.18081E-05_JPRB,0.32912E-05_JPRB,0.46136E-05_JPRB,0.58716E-05_JPRB, &
+ & 0.71710E-05_JPRB,0.86530E-05_JPRB,0.10805E-04_JPRB,0.53845E-05_JPRB /)  
+KA(:, 3, 6, 6) = (/ &
+ & 0.22705E-07_JPRB,0.18504E-05_JPRB,0.33475E-05_JPRB,0.46786E-05_JPRB,0.59585E-05_JPRB, &
+ & 0.72252E-05_JPRB,0.87123E-05_JPRB,0.10876E-04_JPRB,0.53808E-05_JPRB /)  
+KA(:, 4, 6, 6) = (/ &
+ & 0.23941E-07_JPRB,0.18862E-05_JPRB,0.33938E-05_JPRB,0.47325E-05_JPRB,0.60159E-05_JPRB, &
+ & 0.72910E-05_JPRB,0.87573E-05_JPRB,0.10893E-04_JPRB,0.53357E-05_JPRB /)  
+KA(:, 5, 6, 6) = (/ &
+ & 0.27004E-07_JPRB,0.19136E-05_JPRB,0.34294E-05_JPRB,0.47766E-05_JPRB,0.60573E-05_JPRB, &
+ & 0.73309E-05_JPRB,0.87892E-05_JPRB,0.10892E-04_JPRB,0.52484E-05_JPRB /)  
+KA(:, 1, 7, 6) = (/ &
+ & 0.27131E-07_JPRB,0.14236E-05_JPRB,0.27128E-05_JPRB,0.38203E-05_JPRB,0.48870E-05_JPRB, &
+ & 0.59983E-05_JPRB,0.72827E-05_JPRB,0.94729E-05_JPRB,0.86942E-05_JPRB /)  
+KA(:, 2, 7, 6) = (/ &
+ & 0.26214E-07_JPRB,0.14673E-05_JPRB,0.27677E-05_JPRB,0.38940E-05_JPRB,0.49627E-05_JPRB, &
+ & 0.60727E-05_JPRB,0.73587E-05_JPRB,0.93332E-05_JPRB,0.87651E-05_JPRB /)  
+KA(:, 3, 7, 6) = (/ &
+ & 0.29249E-07_JPRB,0.15085E-05_JPRB,0.28175E-05_JPRB,0.39503E-05_JPRB,0.50362E-05_JPRB, &
+ & 0.61230E-05_JPRB,0.74095E-05_JPRB,0.93608E-05_JPRB,0.87497E-05_JPRB /)  
+KA(:, 4, 7, 6) = (/ &
+ & 0.35846E-07_JPRB,0.15423E-05_JPRB,0.28570E-05_JPRB,0.39988E-05_JPRB,0.50875E-05_JPRB, &
+ & 0.61709E-05_JPRB,0.74491E-05_JPRB,0.93691E-05_JPRB,0.88300E-05_JPRB /)  
+KA(:, 5, 7, 6) = (/ &
+ & 0.36255E-07_JPRB,0.15665E-05_JPRB,0.28868E-05_JPRB,0.40378E-05_JPRB,0.51248E-05_JPRB, &
+ & 0.62083E-05_JPRB,0.74689E-05_JPRB,0.93597E-05_JPRB,0.88065E-05_JPRB /)  
+KA(:, 1, 8, 6) = (/ &
+ & 0.37619E-07_JPRB,0.92017E-06_JPRB,0.22295E-05_JPRB,0.31821E-05_JPRB,0.40883E-05_JPRB, &
+ & 0.50331E-05_JPRB,0.61447E-05_JPRB,0.80461E-05_JPRB,0.15512E-04_JPRB /)  
+KA(:, 2, 8, 6) = (/ &
+ & 0.43015E-07_JPRB,0.95048E-06_JPRB,0.22782E-05_JPRB,0.32493E-05_JPRB,0.41585E-05_JPRB, &
+ & 0.50968E-05_JPRB,0.61995E-05_JPRB,0.80232E-05_JPRB,0.15472E-04_JPRB /)  
+KA(:, 3, 8, 6) = (/ &
+ & 0.47635E-07_JPRB,0.97934E-06_JPRB,0.23207E-05_JPRB,0.33002E-05_JPRB,0.42181E-05_JPRB, &
+ & 0.51430E-05_JPRB,0.62468E-05_JPRB,0.79821E-05_JPRB,0.15652E-04_JPRB /)  
+KA(:, 4, 8, 6) = (/ &
+ & 0.48140E-07_JPRB,0.10026E-05_JPRB,0.23582E-05_JPRB,0.33416E-05_JPRB,0.42650E-05_JPRB, &
+ & 0.51734E-05_JPRB,0.62779E-05_JPRB,0.79833E-05_JPRB,0.15762E-04_JPRB /)  
+KA(:, 5, 8, 6) = (/ &
+ & 0.45231E-07_JPRB,0.10212E-05_JPRB,0.23819E-05_JPRB,0.33754E-05_JPRB,0.42991E-05_JPRB, &
+ & 0.52146E-05_JPRB,0.62945E-05_JPRB,0.79701E-05_JPRB,0.15840E-04_JPRB /)  
+KA(:, 1, 9, 6) = (/ &
+ & 0.48601E-07_JPRB,0.49350E-06_JPRB,0.16585E-05_JPRB,0.26009E-05_JPRB,0.33796E-05_JPRB, &
+ & 0.41888E-05_JPRB,0.51434E-05_JPRB,0.67867E-05_JPRB,0.26875E-04_JPRB /)  
+KA(:, 2, 9, 6) = (/ &
+ & 0.49825E-07_JPRB,0.51680E-06_JPRB,0.16935E-05_JPRB,0.26607E-05_JPRB,0.34457E-05_JPRB, &
+ & 0.42434E-05_JPRB,0.51839E-05_JPRB,0.68587E-05_JPRB,0.27475E-04_JPRB /)  
+KA(:, 3, 9, 6) = (/ &
+ & 0.52843E-07_JPRB,0.53573E-06_JPRB,0.17199E-05_JPRB,0.27038E-05_JPRB,0.35027E-05_JPRB, &
+ & 0.42858E-05_JPRB,0.52233E-05_JPRB,0.67410E-05_JPRB,0.28097E-04_JPRB /)  
+KA(:, 4, 9, 6) = (/ &
+ & 0.49841E-07_JPRB,0.54248E-06_JPRB,0.17493E-05_JPRB,0.27418E-05_JPRB,0.35427E-05_JPRB, &
+ & 0.43127E-05_JPRB,0.52517E-05_JPRB,0.67418E-05_JPRB,0.28632E-04_JPRB /)  
+KA(:, 5, 9, 6) = (/ &
+ & 0.50649E-07_JPRB,0.54940E-06_JPRB,0.17700E-05_JPRB,0.27695E-05_JPRB,0.35712E-05_JPRB, &
+ & 0.43482E-05_JPRB,0.52645E-05_JPRB,0.67282E-05_JPRB,0.28662E-04_JPRB /)  
+KA(:, 1,10, 6) = (/ &
+ & 0.82685E-07_JPRB,0.54022E-06_JPRB,0.87761E-06_JPRB,0.18752E-05_JPRB,0.27293E-05_JPRB, &
+ & 0.34506E-05_JPRB,0.42821E-05_JPRB,0.56501E-05_JPRB,0.44067E-04_JPRB /)  
+KA(:, 2,10, 6) = (/ &
+ & 0.87011E-07_JPRB,0.54017E-06_JPRB,0.89732E-06_JPRB,0.19208E-05_JPRB,0.27945E-05_JPRB, &
+ & 0.35005E-05_JPRB,0.43124E-05_JPRB,0.57881E-05_JPRB,0.45858E-04_JPRB /)  
+KA(:, 3,10, 6) = (/ &
+ & 0.79909E-07_JPRB,0.55355E-06_JPRB,0.90995E-06_JPRB,0.19451E-05_JPRB,0.28460E-05_JPRB, &
+ & 0.35425E-05_JPRB,0.43438E-05_JPRB,0.56593E-05_JPRB,0.45805E-04_JPRB /)  
+KA(:, 4,10, 6) = (/ &
+ & 0.75533E-07_JPRB,0.55705E-06_JPRB,0.92147E-06_JPRB,0.19661E-05_JPRB,0.28785E-05_JPRB, &
+ & 0.35628E-05_JPRB,0.43635E-05_JPRB,0.56526E-05_JPRB,0.46295E-04_JPRB /)  
+KA(:, 5,10, 6) = (/ &
+ & 0.76631E-07_JPRB,0.55159E-06_JPRB,0.93362E-06_JPRB,0.19832E-05_JPRB,0.29003E-05_JPRB, &
+ & 0.35965E-05_JPRB,0.43731E-05_JPRB,0.56385E-05_JPRB,0.46720E-04_JPRB /)  
+KA(:, 1,11, 6) = (/ &
+ & 0.11164E-06_JPRB,0.57710E-06_JPRB,0.71279E-06_JPRB,0.10003E-05_JPRB,0.19253E-05_JPRB, &
+ & 0.28027E-05_JPRB,0.35523E-05_JPRB,0.47607E-05_JPRB,0.51144E-04_JPRB /)  
+KA(:, 2,11, 6) = (/ &
+ & 0.11484E-06_JPRB,0.58649E-06_JPRB,0.71918E-06_JPRB,0.10167E-05_JPRB,0.19538E-05_JPRB, &
+ & 0.28431E-05_JPRB,0.35713E-05_JPRB,0.48333E-05_JPRB,0.49887E-04_JPRB /)  
+KA(:, 3,11, 6) = (/ &
+ & 0.11442E-06_JPRB,0.58483E-06_JPRB,0.70503E-06_JPRB,0.10320E-05_JPRB,0.19684E-05_JPRB, &
+ & 0.28674E-05_JPRB,0.35911E-05_JPRB,0.47191E-05_JPRB,0.50222E-04_JPRB /)  
+KA(:, 4,11, 6) = (/ &
+ & 0.11737E-06_JPRB,0.58895E-06_JPRB,0.70242E-06_JPRB,0.10442E-05_JPRB,0.19738E-05_JPRB, &
+ & 0.28962E-05_JPRB,0.36035E-05_JPRB,0.47045E-05_JPRB,0.48754E-04_JPRB /)  
+KA(:, 5,11, 6) = (/ &
+ & 0.12314E-06_JPRB,0.59299E-06_JPRB,0.70874E-06_JPRB,0.10470E-05_JPRB,0.19736E-05_JPRB, &
+ & 0.29100E-05_JPRB,0.36075E-05_JPRB,0.46813E-05_JPRB,0.45986E-04_JPRB /)  
+KA(:, 1,12, 6) = (/ &
+ & 0.14446E-06_JPRB,0.57459E-06_JPRB,0.72800E-06_JPRB,0.69912E-06_JPRB,0.11693E-05_JPRB, &
+ & 0.21457E-05_JPRB,0.29151E-05_JPRB,0.39683E-05_JPRB,0.42970E-04_JPRB /)  
+KA(:, 2,12, 6) = (/ &
+ & 0.14738E-06_JPRB,0.58568E-06_JPRB,0.75374E-06_JPRB,0.69814E-06_JPRB,0.11797E-05_JPRB, &
+ & 0.21759E-05_JPRB,0.29287E-05_JPRB,0.39942E-05_JPRB,0.41434E-04_JPRB /)  
+KA(:, 3,12, 6) = (/ &
+ & 0.15006E-06_JPRB,0.60144E-06_JPRB,0.75420E-06_JPRB,0.70559E-06_JPRB,0.11849E-05_JPRB, &
+ & 0.21718E-05_JPRB,0.29383E-05_JPRB,0.39185E-05_JPRB,0.42909E-04_JPRB /)  
+KA(:, 4,12, 6) = (/ &
+ & 0.15745E-06_JPRB,0.60776E-06_JPRB,0.75984E-06_JPRB,0.71270E-06_JPRB,0.11804E-05_JPRB, &
+ & 0.21578E-05_JPRB,0.29477E-05_JPRB,0.38939E-05_JPRB,0.41761E-04_JPRB /)  
+KA(:, 5,12, 6) = (/ &
+ & 0.16583E-06_JPRB,0.62207E-06_JPRB,0.74591E-06_JPRB,0.69746E-06_JPRB,0.11751E-05_JPRB, &
+ & 0.21552E-05_JPRB,0.29514E-05_JPRB,0.38695E-05_JPRB,0.45252E-04_JPRB /)  
+KA(:, 1,13, 6) = (/ &
+ & 0.18492E-06_JPRB,0.65841E-06_JPRB,0.74904E-06_JPRB,0.82698E-06_JPRB,0.69790E-06_JPRB, &
+ & 0.13356E-05_JPRB,0.23333E-05_JPRB,0.33010E-05_JPRB,0.43502E-04_JPRB /)  
+KA(:, 2,13, 6) = (/ &
+ & 0.18447E-06_JPRB,0.66115E-06_JPRB,0.74200E-06_JPRB,0.80748E-06_JPRB,0.68676E-06_JPRB, &
+ & 0.13419E-05_JPRB,0.23369E-05_JPRB,0.32873E-05_JPRB,0.44908E-04_JPRB /)  
+KA(:, 3,13, 6) = (/ &
+ & 0.20107E-06_JPRB,0.65387E-06_JPRB,0.73155E-06_JPRB,0.79291E-06_JPRB,0.67848E-06_JPRB, &
+ & 0.13368E-05_JPRB,0.23434E-05_JPRB,0.32337E-05_JPRB,0.47417E-04_JPRB /)  
+KA(:, 4,13, 6) = (/ &
+ & 0.20493E-06_JPRB,0.66191E-06_JPRB,0.72707E-06_JPRB,0.79839E-06_JPRB,0.67208E-06_JPRB, &
+ & 0.13273E-05_JPRB,0.23466E-05_JPRB,0.32075E-05_JPRB,0.48703E-04_JPRB /)  
+KA(:, 5,13, 6) = (/ &
+ & 0.20003E-06_JPRB,0.66753E-06_JPRB,0.73390E-06_JPRB,0.79794E-06_JPRB,0.66936E-06_JPRB, &
+ & 0.13150E-05_JPRB,0.23558E-05_JPRB,0.31828E-05_JPRB,0.50012E-04_JPRB /)  
+KA(:, 1, 1, 7) = (/ &
+ & 0.45955E-07_JPRB,0.96988E-05_JPRB,0.16766E-04_JPRB,0.23073E-04_JPRB,0.28829E-04_JPRB, &
+ & 0.34350E-04_JPRB,0.39744E-04_JPRB,0.45071E-04_JPRB,0.36783E-04_JPRB /)  
+KA(:, 2, 1, 7) = (/ &
+ & 0.57268E-07_JPRB,0.98413E-05_JPRB,0.16970E-04_JPRB,0.23311E-04_JPRB,0.29149E-04_JPRB, &
+ & 0.34726E-04_JPRB,0.40229E-04_JPRB,0.45682E-04_JPRB,0.37190E-04_JPRB /)  
+KA(:, 3, 1, 7) = (/ &
+ & 0.70060E-07_JPRB,0.10517E-04_JPRB,0.18168E-04_JPRB,0.24965E-04_JPRB,0.31264E-04_JPRB, &
+ & 0.37439E-04_JPRB,0.43299E-04_JPRB,0.49335E-04_JPRB,0.41254E-04_JPRB /)  
+KA(:, 4, 1, 7) = (/ &
+ & 0.84370E-07_JPRB,0.10120E-04_JPRB,0.17302E-04_JPRB,0.23633E-04_JPRB,0.29544E-04_JPRB, &
+ & 0.35368E-04_JPRB,0.40885E-04_JPRB,0.46535E-04_JPRB,0.37819E-04_JPRB /)  
+KA(:, 5, 1, 7) = (/ &
+ & 0.97346E-07_JPRB,0.10254E-04_JPRB,0.17458E-04_JPRB,0.23773E-04_JPRB,0.29672E-04_JPRB, &
+ & 0.35542E-04_JPRB,0.41140E-04_JPRB,0.46864E-04_JPRB,0.38054E-04_JPRB /)  
+KA(:, 1, 2, 7) = (/ &
+ & 0.27937E-07_JPRB,0.87332E-05_JPRB,0.15102E-04_JPRB,0.20785E-04_JPRB,0.26002E-04_JPRB, &
+ & 0.30993E-04_JPRB,0.35918E-04_JPRB,0.41124E-04_JPRB,0.32692E-04_JPRB /)  
+KA(:, 2, 2, 7) = (/ &
+ & 0.34502E-07_JPRB,0.88655E-05_JPRB,0.15279E-04_JPRB,0.20992E-04_JPRB,0.26281E-04_JPRB, &
+ & 0.31393E-04_JPRB,0.36363E-04_JPRB,0.41768E-04_JPRB,0.33047E-04_JPRB /)  
+KA(:, 3, 2, 7) = (/ &
+ & 0.45243E-07_JPRB,0.95567E-05_JPRB,0.16535E-04_JPRB,0.22740E-04_JPRB,0.28503E-04_JPRB, &
+ & 0.34161E-04_JPRB,0.39521E-04_JPRB,0.45509E-04_JPRB,0.37184E-04_JPRB /)  
+KA(:, 4, 2, 7) = (/ &
+ & 0.56029E-07_JPRB,0.96404E-05_JPRB,0.16599E-04_JPRB,0.22759E-04_JPRB,0.28526E-04_JPRB, &
+ & 0.34207E-04_JPRB,0.39586E-04_JPRB,0.45601E-04_JPRB,0.37152E-04_JPRB /)  
+KA(:, 5, 2, 7) = (/ &
+ & 0.67453E-07_JPRB,0.92372E-05_JPRB,0.15744E-04_JPRB,0.21435E-04_JPRB,0.26769E-04_JPRB, &
+ & 0.32085E-04_JPRB,0.37228E-04_JPRB,0.42908E-04_JPRB,0.33841E-04_JPRB /)  
+KA(:, 1, 3, 7) = (/ &
+ & 0.21909E-07_JPRB,0.77821E-05_JPRB,0.13457E-04_JPRB,0.18525E-04_JPRB,0.23194E-04_JPRB, &
+ & 0.27662E-04_JPRB,0.32086E-04_JPRB,0.37089E-04_JPRB,0.28700E-04_JPRB /)  
+KA(:, 2, 3, 7) = (/ &
+ & 0.25816E-07_JPRB,0.78998E-05_JPRB,0.13627E-04_JPRB,0.18723E-04_JPRB,0.23459E-04_JPRB, &
+ & 0.28049E-04_JPRB,0.32494E-04_JPRB,0.37775E-04_JPRB,0.29060E-04_JPRB /)  
+KA(:, 3, 3, 7) = (/ &
+ & 0.28009E-07_JPRB,0.80177E-05_JPRB,0.13778E-04_JPRB,0.18883E-04_JPRB,0.23652E-04_JPRB, &
+ & 0.28348E-04_JPRB,0.32831E-04_JPRB,0.38183E-04_JPRB,0.29363E-04_JPRB /)  
+KA(:, 4, 3, 7) = (/ &
+ & 0.32250E-07_JPRB,0.87000E-05_JPRB,0.14997E-04_JPRB,0.20591E-04_JPRB,0.25858E-04_JPRB, &
+ & 0.30984E-04_JPRB,0.35855E-04_JPRB,0.41716E-04_JPRB,0.33352E-04_JPRB /)  
+KA(:, 5, 3, 7) = (/ &
+ & 0.38565E-07_JPRB,0.82442E-05_JPRB,0.14048E-04_JPRB,0.19147E-04_JPRB,0.23963E-04_JPRB, &
+ & 0.28712E-04_JPRB,0.33322E-04_JPRB,0.38841E-04_JPRB,0.29827E-04_JPRB /)  
+KA(:, 1, 4, 7) = (/ &
+ & 0.27845E-07_JPRB,0.68782E-05_JPRB,0.11887E-04_JPRB,0.16370E-04_JPRB,0.20522E-04_JPRB, &
+ & 0.24507E-04_JPRB,0.28445E-04_JPRB,0.33146E-04_JPRB,0.25091E-04_JPRB /)  
+KA(:, 2, 4, 7) = (/ &
+ & 0.30162E-07_JPRB,0.69860E-05_JPRB,0.12053E-04_JPRB,0.16569E-04_JPRB,0.20786E-04_JPRB, &
+ & 0.24863E-04_JPRB,0.28833E-04_JPRB,0.33823E-04_JPRB,0.25439E-04_JPRB /)  
+KA(:, 3, 4, 7) = (/ &
+ & 0.31547E-07_JPRB,0.70934E-05_JPRB,0.12196E-04_JPRB,0.16734E-04_JPRB,0.20984E-04_JPRB, &
+ & 0.25140E-04_JPRB,0.29167E-04_JPRB,0.34188E-04_JPRB,0.25743E-04_JPRB /)  
+KA(:, 4, 4, 7) = (/ &
+ & 0.30733E-07_JPRB,0.72009E-05_JPRB,0.12319E-04_JPRB,0.16870E-04_JPRB,0.21150E-04_JPRB, &
+ & 0.25350E-04_JPRB,0.29432E-04_JPRB,0.34551E-04_JPRB,0.26011E-04_JPRB /)  
+KA(:, 5, 4, 7) = (/ &
+ & 0.33104E-07_JPRB,0.78742E-05_JPRB,0.13511E-04_JPRB,0.18536E-04_JPRB,0.23314E-04_JPRB, &
+ & 0.27934E-04_JPRB,0.32284E-04_JPRB,0.37983E-04_JPRB,0.29911E-04_JPRB /)  
+KA(:, 1, 5, 7) = (/ &
+ & 0.31453E-07_JPRB,0.60344E-05_JPRB,0.10431E-04_JPRB,0.14360E-04_JPRB,0.18025E-04_JPRB, &
+ & 0.21556E-04_JPRB,0.25057E-04_JPRB,0.29352E-04_JPRB,0.21244E-04_JPRB /)  
+KA(:, 2, 5, 7) = (/ &
+ & 0.32645E-07_JPRB,0.61373E-05_JPRB,0.10589E-04_JPRB,0.14561E-04_JPRB,0.18288E-04_JPRB, &
+ & 0.21896E-04_JPRB,0.25427E-04_JPRB,0.30041E-04_JPRB,0.21582E-04_JPRB /)  
+KA(:, 3, 5, 7) = (/ &
+ & 0.36285E-07_JPRB,0.62371E-05_JPRB,0.10724E-04_JPRB,0.14730E-04_JPRB,0.18494E-04_JPRB, &
+ & 0.22175E-04_JPRB,0.25749E-04_JPRB,0.30401E-04_JPRB,0.21875E-04_JPRB /)  
+KA(:, 4, 5, 7) = (/ &
+ & 0.35840E-07_JPRB,0.63361E-05_JPRB,0.10841E-04_JPRB,0.14872E-04_JPRB,0.18672E-04_JPRB, &
+ & 0.22386E-04_JPRB,0.26001E-04_JPRB,0.30772E-04_JPRB,0.22136E-04_JPRB /)  
+KA(:, 5, 5, 7) = (/ &
+ & 0.34391E-07_JPRB,0.70384E-05_JPRB,0.12100E-04_JPRB,0.16639E-04_JPRB,0.20967E-04_JPRB, &
+ & 0.25106E-04_JPRB,0.29033E-04_JPRB,0.34382E-04_JPRB,0.26458E-04_JPRB /)  
+KA(:, 1, 6, 7) = (/ &
+ & 0.38317E-07_JPRB,0.52554E-05_JPRB,0.90847E-05_JPRB,0.12506E-04_JPRB,0.15706E-04_JPRB, &
+ & 0.18802E-04_JPRB,0.21926E-04_JPRB,0.25721E-04_JPRB,0.82786E-05_JPRB /)  
+KA(:, 2, 6, 7) = (/ &
+ & 0.42993E-07_JPRB,0.53521E-05_JPRB,0.92425E-05_JPRB,0.12708E-04_JPRB,0.15965E-04_JPRB, &
+ & 0.19131E-04_JPRB,0.22269E-04_JPRB,0.26449E-04_JPRB,0.85145E-05_JPRB /)  
+KA(:, 3, 6, 7) = (/ &
+ & 0.43612E-07_JPRB,0.54474E-05_JPRB,0.93707E-05_JPRB,0.12875E-04_JPRB,0.16176E-04_JPRB, &
+ & 0.19407E-04_JPRB,0.22575E-04_JPRB,0.26830E-04_JPRB,0.87594E-05_JPRB /)  
+KA(:, 4, 6, 7) = (/ &
+ & 0.42757E-07_JPRB,0.55405E-05_JPRB,0.94823E-05_JPRB,0.13019E-04_JPRB,0.16363E-04_JPRB, &
+ & 0.19625E-04_JPRB,0.22815E-04_JPRB,0.27200E-04_JPRB,0.90170E-05_JPRB /)  
+KA(:, 5, 6, 7) = (/ &
+ & 0.43664E-07_JPRB,0.56274E-05_JPRB,0.95923E-05_JPRB,0.13140E-04_JPRB,0.16520E-04_JPRB, &
+ & 0.19797E-04_JPRB,0.22995E-04_JPRB,0.27528E-04_JPRB,0.91836E-05_JPRB /)  
+KA(:, 1, 7, 7) = (/ &
+ & 0.39995E-07_JPRB,0.45414E-05_JPRB,0.78502E-05_JPRB,0.10801E-04_JPRB,0.13562E-04_JPRB, &
+ & 0.16248E-04_JPRB,0.19009E-04_JPRB,0.22439E-04_JPRB,0.93804E-05_JPRB /)  
+KA(:, 2, 7, 7) = (/ &
+ & 0.43614E-07_JPRB,0.46331E-05_JPRB,0.80059E-05_JPRB,0.11000E-04_JPRB,0.13813E-04_JPRB, &
+ & 0.16577E-04_JPRB,0.19346E-04_JPRB,0.23103E-04_JPRB,0.95334E-05_JPRB /)  
+KA(:, 3, 7, 7) = (/ &
+ & 0.45687E-07_JPRB,0.47201E-05_JPRB,0.81316E-05_JPRB,0.11167E-04_JPRB,0.14031E-04_JPRB, &
+ & 0.16844E-04_JPRB,0.19646E-04_JPRB,0.23513E-04_JPRB,0.96503E-05_JPRB /)  
+KA(:, 4, 7, 7) = (/ &
+ & 0.48386E-07_JPRB,0.48081E-05_JPRB,0.82413E-05_JPRB,0.11310E-04_JPRB,0.14223E-04_JPRB, &
+ & 0.17063E-04_JPRB,0.19885E-04_JPRB,0.23881E-04_JPRB,0.95360E-05_JPRB /)  
+KA(:, 5, 7, 7) = (/ &
+ & 0.54287E-07_JPRB,0.48899E-05_JPRB,0.83473E-05_JPRB,0.11434E-04_JPRB,0.14383E-04_JPRB, &
+ & 0.17240E-04_JPRB,0.20064E-04_JPRB,0.24201E-04_JPRB,0.94267E-05_JPRB /)  
+KA(:, 1, 8, 7) = (/ &
+ & 0.45720E-07_JPRB,0.38685E-05_JPRB,0.67269E-05_JPRB,0.92537E-05_JPRB,0.11613E-04_JPRB, &
+ & 0.13930E-04_JPRB,0.16333E-04_JPRB,0.19500E-04_JPRB,0.15537E-04_JPRB /)  
+KA(:, 2, 8, 7) = (/ &
+ & 0.46817E-07_JPRB,0.39568E-05_JPRB,0.68775E-05_JPRB,0.94493E-05_JPRB,0.11857E-04_JPRB, &
+ & 0.14250E-04_JPRB,0.16679E-04_JPRB,0.19983E-04_JPRB,0.15822E-04_JPRB /)  
+KA(:, 3, 8, 7) = (/ &
+ & 0.48700E-07_JPRB,0.40362E-05_JPRB,0.70012E-05_JPRB,0.96148E-05_JPRB,0.12076E-04_JPRB, &
+ & 0.14508E-04_JPRB,0.16969E-04_JPRB,0.20440E-04_JPRB,0.15878E-04_JPRB /)  
+KA(:, 4, 8, 7) = (/ &
+ & 0.54460E-07_JPRB,0.41199E-05_JPRB,0.71098E-05_JPRB,0.97580E-05_JPRB,0.12268E-04_JPRB, &
+ & 0.14725E-04_JPRB,0.17206E-04_JPRB,0.20805E-04_JPRB,0.16014E-04_JPRB /)  
+KA(:, 5, 8, 7) = (/ &
+ & 0.59565E-07_JPRB,0.42000E-05_JPRB,0.72128E-05_JPRB,0.98789E-05_JPRB,0.12424E-04_JPRB, &
+ & 0.14896E-04_JPRB,0.17382E-04_JPRB,0.21113E-04_JPRB,0.15894E-04_JPRB /)  
+KA(:, 1, 9, 7) = (/ &
+ & 0.60502E-07_JPRB,0.31758E-05_JPRB,0.57011E-05_JPRB,0.78602E-05_JPRB,0.98646E-05_JPRB, &
+ & 0.11842E-04_JPRB,0.13914E-04_JPRB,0.16812E-04_JPRB,0.32738E-04_JPRB /)  
+KA(:, 2, 9, 7) = (/ &
+ & 0.61920E-07_JPRB,0.32583E-05_JPRB,0.58474E-05_JPRB,0.80501E-05_JPRB,0.10097E-04_JPRB, &
+ & 0.12150E-04_JPRB,0.14260E-04_JPRB,0.17128E-04_JPRB,0.32707E-04_JPRB /)  
+KA(:, 3, 9, 7) = (/ &
+ & 0.66102E-07_JPRB,0.33410E-05_JPRB,0.59686E-05_JPRB,0.82148E-05_JPRB,0.10310E-04_JPRB, &
+ & 0.12398E-04_JPRB,0.14542E-04_JPRB,0.17650E-04_JPRB,0.33629E-04_JPRB /)  
+KA(:, 4, 9, 7) = (/ &
+ & 0.86168E-07_JPRB,0.34261E-05_JPRB,0.60763E-05_JPRB,0.83539E-05_JPRB,0.10496E-04_JPRB, &
+ & 0.12604E-04_JPRB,0.14773E-04_JPRB,0.17994E-04_JPRB,0.33878E-04_JPRB /)  
+KA(:, 5, 9, 7) = (/ &
+ & 0.91586E-07_JPRB,0.35057E-05_JPRB,0.61764E-05_JPRB,0.84703E-05_JPRB,0.10646E-04_JPRB, &
+ & 0.12765E-04_JPRB,0.14939E-04_JPRB,0.18282E-04_JPRB,0.33645E-04_JPRB /)  
+KA(:, 1,10, 7) = (/ &
+ & 0.96997E-07_JPRB,0.19211E-05_JPRB,0.47098E-05_JPRB,0.66155E-05_JPRB,0.83225E-05_JPRB, &
+ & 0.10005E-04_JPRB,0.11773E-04_JPRB,0.14404E-04_JPRB,0.53631E-04_JPRB /)  
+KA(:, 2,10, 7) = (/ &
+ & 0.96064E-07_JPRB,0.20141E-05_JPRB,0.48491E-05_JPRB,0.67941E-05_JPRB,0.85382E-05_JPRB, &
+ & 0.10290E-04_JPRB,0.12102E-04_JPRB,0.14626E-04_JPRB,0.54289E-04_JPRB /)  
+KA(:, 3,10, 7) = (/ &
+ & 0.10431E-06_JPRB,0.20834E-05_JPRB,0.49690E-05_JPRB,0.69520E-05_JPRB,0.87398E-05_JPRB, &
+ & 0.10520E-04_JPRB,0.12369E-04_JPRB,0.15124E-04_JPRB,0.55603E-04_JPRB /)  
+KA(:, 4,10, 7) = (/ &
+ & 0.11432E-06_JPRB,0.21653E-05_JPRB,0.50755E-05_JPRB,0.70852E-05_JPRB,0.89148E-05_JPRB, &
+ & 0.10714E-04_JPRB,0.12591E-04_JPRB,0.15457E-04_JPRB,0.56630E-04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART5',1,ZHOOK_HANDLE)
+END SUBROUTINE PART5
+
+
+SUBROUTINE PART6
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART6',0,ZHOOK_HANDLE)
+
+
+KA(:, 5,10, 7) = (/ &
+ & 0.11074E-06_JPRB,0.22480E-05_JPRB,0.51732E-05_JPRB,0.71951E-05_JPRB,0.90530E-05_JPRB, &
+ & 0.10860E-04_JPRB,0.12745E-04_JPRB,0.15721E-04_JPRB,0.54963E-04_JPRB /)  
+KA(:, 1,11, 7) = (/ &
+ & 0.15854E-06_JPRB,0.91297E-06_JPRB,0.32555E-05_JPRB,0.55113E-05_JPRB,0.70464E-05_JPRB, &
+ & 0.85121E-05_JPRB,0.10027E-04_JPRB,0.12303E-04_JPRB,0.52607E-04_JPRB /)  
+KA(:, 2,11, 7) = (/ &
+ & 0.16751E-06_JPRB,0.96634E-06_JPRB,0.33790E-05_JPRB,0.56722E-05_JPRB,0.72351E-05_JPRB, &
+ & 0.87519E-05_JPRB,0.10311E-04_JPRB,0.12547E-04_JPRB,0.52883E-04_JPRB /)  
+KA(:, 3,11, 7) = (/ &
+ & 0.16741E-06_JPRB,0.10318E-05_JPRB,0.35064E-05_JPRB,0.58058E-05_JPRB,0.74099E-05_JPRB, &
+ & 0.89413E-05_JPRB,0.10546E-04_JPRB,0.12998E-04_JPRB,0.52407E-04_JPRB /)  
+KA(:, 4,11, 7) = (/ &
+ & 0.16708E-06_JPRB,0.10925E-05_JPRB,0.36064E-05_JPRB,0.59145E-05_JPRB,0.75531E-05_JPRB, &
+ & 0.90996E-05_JPRB,0.10715E-04_JPRB,0.13285E-04_JPRB,0.53203E-04_JPRB /)  
+KA(:, 5,11, 7) = (/ &
+ & 0.16578E-06_JPRB,0.11490E-05_JPRB,0.36852E-05_JPRB,0.60104E-05_JPRB,0.76652E-05_JPRB, &
+ & 0.92182E-05_JPRB,0.10838E-04_JPRB,0.13496E-04_JPRB,0.54467E-04_JPRB /)  
+KA(:, 1,12, 7) = (/ &
+ & 0.17287E-06_JPRB,0.67222E-06_JPRB,0.20177E-05_JPRB,0.42045E-05_JPRB,0.58863E-05_JPRB, &
+ & 0.71911E-05_JPRB,0.84904E-05_JPRB,0.10467E-04_JPRB,0.53824E-04_JPRB /)  
+KA(:, 2,12, 7) = (/ &
+ & 0.17534E-06_JPRB,0.66930E-06_JPRB,0.20902E-05_JPRB,0.43510E-05_JPRB,0.60518E-05_JPRB, &
+ & 0.73834E-05_JPRB,0.87285E-05_JPRB,0.10723E-04_JPRB,0.57713E-04_JPRB /)  
+KA(:, 3,12, 7) = (/ &
+ & 0.19862E-06_JPRB,0.69271E-06_JPRB,0.21807E-05_JPRB,0.44473E-05_JPRB,0.61938E-05_JPRB, &
+ & 0.75395E-05_JPRB,0.89230E-05_JPRB,0.11082E-04_JPRB,0.58727E-04_JPRB /)  
+KA(:, 4,12, 7) = (/ &
+ & 0.20481E-06_JPRB,0.70155E-06_JPRB,0.22437E-05_JPRB,0.45330E-05_JPRB,0.63072E-05_JPRB, &
+ & 0.76639E-05_JPRB,0.90515E-05_JPRB,0.11316E-04_JPRB,0.62478E-04_JPRB /)  
+KA(:, 5,12, 7) = (/ &
+ & 0.22362E-06_JPRB,0.66686E-06_JPRB,0.23107E-05_JPRB,0.46277E-05_JPRB,0.64004E-05_JPRB, &
+ & 0.77560E-05_JPRB,0.91460E-05_JPRB,0.11480E-04_JPRB,0.61459E-04_JPRB /)  
+KA(:, 1,13, 7) = (/ &
+ & 0.24394E-06_JPRB,0.78850E-06_JPRB,0.10005E-05_JPRB,0.25869E-05_JPRB,0.46671E-05_JPRB, &
+ & 0.60110E-05_JPRB,0.71462E-05_JPRB,0.88357E-05_JPRB,0.59707E-04_JPRB /)  
+KA(:, 2,13, 7) = (/ &
+ & 0.25387E-06_JPRB,0.77656E-06_JPRB,0.10565E-05_JPRB,0.27093E-05_JPRB,0.48105E-05_JPRB, &
+ & 0.61610E-05_JPRB,0.73436E-05_JPRB,0.90989E-05_JPRB,0.60151E-04_JPRB /)  
+KA(:, 3,13, 7) = (/ &
+ & 0.22260E-06_JPRB,0.76604E-06_JPRB,0.11188E-05_JPRB,0.28168E-05_JPRB,0.49259E-05_JPRB, &
+ & 0.62864E-05_JPRB,0.74912E-05_JPRB,0.93777E-05_JPRB,0.58560E-04_JPRB /)  
+KA(:, 4,13, 7) = (/ &
+ & 0.22499E-06_JPRB,0.75979E-06_JPRB,0.11746E-05_JPRB,0.28869E-05_JPRB,0.50154E-05_JPRB, &
+ & 0.63819E-05_JPRB,0.75933E-05_JPRB,0.95633E-05_JPRB,0.61656E-04_JPRB /)  
+KA(:, 5,13, 7) = (/ &
+ & 0.22527E-06_JPRB,0.74699E-06_JPRB,0.12195E-05_JPRB,0.29526E-05_JPRB,0.50915E-05_JPRB, &
+ & 0.64528E-05_JPRB,0.76669E-05_JPRB,0.96909E-05_JPRB,0.60588E-04_JPRB /)  
+KA(:, 1, 1, 8) = (/ &
+ & 0.29788E-05_JPRB,0.29380E-04_JPRB,0.47103E-04_JPRB,0.62484E-04_JPRB,0.75923E-04_JPRB, &
+ & 0.86945E-04_JPRB,0.96459E-04_JPRB,0.10727E-03_JPRB,0.95715E-04_JPRB /)  
+KA(:, 2, 1, 8) = (/ &
+ & 0.31829E-05_JPRB,0.29542E-04_JPRB,0.47406E-04_JPRB,0.62987E-04_JPRB,0.76500E-04_JPRB, &
+ & 0.87575E-04_JPRB,0.97244E-04_JPRB,0.10847E-03_JPRB,0.96769E-04_JPRB /)  
+KA(:, 3, 1, 8) = (/ &
+ & 0.34017E-05_JPRB,0.30451E-04_JPRB,0.49181E-04_JPRB,0.65673E-04_JPRB,0.79848E-04_JPRB, &
+ & 0.91475E-04_JPRB,0.10206E-03_JPRB,0.11418E-03_JPRB,0.10339E-03_JPRB /)  
+KA(:, 4, 1, 8) = (/ &
+ & 0.36204E-05_JPRB,0.29858E-04_JPRB,0.47964E-04_JPRB,0.63849E-04_JPRB,0.77416E-04_JPRB, &
+ & 0.88495E-04_JPRB,0.98624E-04_JPRB,0.11030E-03_JPRB,0.98665E-04_JPRB /)  
+KA(:, 5, 1, 8) = (/ &
+ & 0.38336E-05_JPRB,0.30032E-04_JPRB,0.48176E-04_JPRB,0.64174E-04_JPRB,0.77743E-04_JPRB, &
+ & 0.88899E-04_JPRB,0.99219E-04_JPRB,0.11117E-03_JPRB,0.99410E-04_JPRB /)  
+KA(:, 1, 2, 8) = (/ &
+ & 0.24422E-05_JPRB,0.27039E-04_JPRB,0.43472E-04_JPRB,0.57657E-04_JPRB,0.69985E-04_JPRB, &
+ & 0.80297E-04_JPRB,0.89716E-04_JPRB,0.10091E-03_JPRB,0.87814E-04_JPRB /)  
+KA(:, 2, 2, 8) = (/ &
+ & 0.26194E-05_JPRB,0.27224E-04_JPRB,0.43834E-04_JPRB,0.58227E-04_JPRB,0.70564E-04_JPRB, &
+ & 0.80899E-04_JPRB,0.90555E-04_JPRB,0.10201E-03_JPRB,0.88900E-04_JPRB /)  
+KA(:, 3, 2, 8) = (/ &
+ & 0.28026E-05_JPRB,0.28185E-04_JPRB,0.45675E-04_JPRB,0.60941E-04_JPRB,0.73932E-04_JPRB, &
+ & 0.84933E-04_JPRB,0.95539E-04_JPRB,0.10795E-03_JPRB,0.95932E-04_JPRB /)  
+KA(:, 4, 2, 8) = (/ &
+ & 0.29807E-05_JPRB,0.28297E-04_JPRB,0.45818E-04_JPRB,0.61151E-04_JPRB,0.74119E-04_JPRB, &
+ & 0.85132E-04_JPRB,0.95905E-04_JPRB,0.10857E-03_JPRB,0.96316E-04_JPRB /)  
+KA(:, 5, 2, 8) = (/ &
+ & 0.31559E-05_JPRB,0.27777E-04_JPRB,0.44649E-04_JPRB,0.59431E-04_JPRB,0.71821E-04_JPRB, &
+ & 0.82324E-04_JPRB,0.92537E-04_JPRB,0.10487E-03_JPRB,0.91446E-04_JPRB /)  
+KA(:, 1, 3, 8) = (/ &
+ & 0.19527E-05_JPRB,0.24728E-04_JPRB,0.39864E-04_JPRB,0.52777E-04_JPRB,0.63893E-04_JPRB, &
+ & 0.73441E-04_JPRB,0.82582E-04_JPRB,0.93968E-04_JPRB,0.79571E-04_JPRB /)  
+KA(:, 2, 3, 8) = (/ &
+ & 0.21028E-05_JPRB,0.24948E-04_JPRB,0.40273E-04_JPRB,0.53366E-04_JPRB,0.64472E-04_JPRB, &
+ & 0.74070E-04_JPRB,0.83496E-04_JPRB,0.95166E-04_JPRB,0.80711E-04_JPRB /)  
+KA(:, 3, 3, 8) = (/ &
+ & 0.22571E-05_JPRB,0.25146E-04_JPRB,0.40613E-04_JPRB,0.53873E-04_JPRB,0.64998E-04_JPRB, &
+ & 0.74638E-04_JPRB,0.84298E-04_JPRB,0.96249E-04_JPRB,0.81670E-04_JPRB /)  
+KA(:, 4, 3, 8) = (/ &
+ & 0.24052E-05_JPRB,0.26082E-04_JPRB,0.42367E-04_JPRB,0.56407E-04_JPRB,0.68204E-04_JPRB, &
+ & 0.78600E-04_JPRB,0.89199E-04_JPRB,0.10217E-03_JPRB,0.88502E-04_JPRB /)  
+KA(:, 5, 3, 8) = (/ &
+ & 0.25493E-05_JPRB,0.25521E-04_JPRB,0.41156E-04_JPRB,0.54597E-04_JPRB,0.65795E-04_JPRB, &
+ & 0.75610E-04_JPRB,0.85600E-04_JPRB,0.98234E-04_JPRB,0.83132E-04_JPRB /)  
+KA(:, 1, 4, 8) = (/ &
+ & 0.15249E-05_JPRB,0.22458E-04_JPRB,0.36230E-04_JPRB,0.47832E-04_JPRB,0.57788E-04_JPRB, &
+ & 0.66572E-04_JPRB,0.75267E-04_JPRB,0.86613E-04_JPRB,0.71765E-04_JPRB /)  
+KA(:, 2, 4, 8) = (/ &
+ & 0.16472E-05_JPRB,0.22706E-04_JPRB,0.36674E-04_JPRB,0.48420E-04_JPRB,0.58373E-04_JPRB, &
+ & 0.67233E-04_JPRB,0.76205E-04_JPRB,0.87918E-04_JPRB,0.72872E-04_JPRB /)  
+KA(:, 3, 4, 8) = (/ &
+ & 0.17727E-05_JPRB,0.22924E-04_JPRB,0.37041E-04_JPRB,0.48925E-04_JPRB,0.58917E-04_JPRB, &
+ & 0.67822E-04_JPRB,0.77056E-04_JPRB,0.89127E-04_JPRB,0.73812E-04_JPRB /)  
+KA(:, 4, 4, 8) = (/ &
+ & 0.18979E-05_JPRB,0.23116E-04_JPRB,0.37363E-04_JPRB,0.49353E-04_JPRB,0.59386E-04_JPRB, &
+ & 0.68373E-04_JPRB,0.77816E-04_JPRB,0.90208E-04_JPRB,0.74597E-04_JPRB /)  
+KA(:, 5, 4, 8) = (/ &
+ & 0.20187E-05_JPRB,0.24032E-04_JPRB,0.39090E-04_JPRB,0.51784E-04_JPRB,0.62486E-04_JPRB, &
+ & 0.72274E-04_JPRB,0.82652E-04_JPRB,0.95944E-04_JPRB,0.81360E-04_JPRB /)  
+KA(:, 1, 5, 8) = (/ &
+ & 0.11616E-05_JPRB,0.20230E-04_JPRB,0.32593E-04_JPRB,0.43015E-04_JPRB,0.51913E-04_JPRB, &
+ & 0.59885E-04_JPRB,0.68041E-04_JPRB,0.79091E-04_JPRB,0.64237E-04_JPRB /)  
+KA(:, 2, 5, 8) = (/ &
+ & 0.12634E-05_JPRB,0.20493E-04_JPRB,0.33052E-04_JPRB,0.43575E-04_JPRB,0.52485E-04_JPRB, &
+ & 0.60579E-04_JPRB,0.68993E-04_JPRB,0.80447E-04_JPRB,0.65308E-04_JPRB /)  
+KA(:, 3, 5, 8) = (/ &
+ & 0.13665E-05_JPRB,0.20722E-04_JPRB,0.33449E-04_JPRB,0.44078E-04_JPRB,0.53031E-04_JPRB, &
+ & 0.61206E-04_JPRB,0.69878E-04_JPRB,0.81712E-04_JPRB,0.66219E-04_JPRB /)  
+KA(:, 4, 5, 8) = (/ &
+ & 0.14654E-05_JPRB,0.20926E-04_JPRB,0.33806E-04_JPRB,0.44507E-04_JPRB,0.53511E-04_JPRB, &
+ & 0.61775E-04_JPRB,0.70644E-04_JPRB,0.82800E-04_JPRB,0.67010E-04_JPRB /)  
+KA(:, 5, 5, 8) = (/ &
+ & 0.15654E-05_JPRB,0.21919E-04_JPRB,0.35683E-04_JPRB,0.47135E-04_JPRB,0.56892E-04_JPRB, &
+ & 0.66014E-04_JPRB,0.75901E-04_JPRB,0.88948E-04_JPRB,0.74367E-04_JPRB /)  
+KA(:, 1, 6, 8) = (/ &
+ & 0.85477E-06_JPRB,0.18056E-04_JPRB,0.29058E-04_JPRB,0.38374E-04_JPRB,0.46318E-04_JPRB, &
+ & 0.53503E-04_JPRB,0.60983E-04_JPRB,0.71567E-04_JPRB,0.55220E-04_JPRB /)  
+KA(:, 2, 6, 8) = (/ &
+ & 0.93399E-06_JPRB,0.18333E-04_JPRB,0.29518E-04_JPRB,0.38924E-04_JPRB,0.46903E-04_JPRB, &
+ & 0.54228E-04_JPRB,0.61990E-04_JPRB,0.72960E-04_JPRB,0.56327E-04_JPRB /)  
+KA(:, 3, 6, 8) = (/ &
+ & 0.10173E-05_JPRB,0.18568E-04_JPRB,0.29940E-04_JPRB,0.39430E-04_JPRB,0.47457E-04_JPRB, &
+ & 0.54891E-04_JPRB,0.62912E-04_JPRB,0.74219E-04_JPRB,0.57262E-04_JPRB /)  
+KA(:, 4, 6, 8) = (/ &
+ & 0.10990E-05_JPRB,0.18773E-04_JPRB,0.30321E-04_JPRB,0.39858E-04_JPRB,0.47937E-04_JPRB, &
+ & 0.55463E-04_JPRB,0.63685E-04_JPRB,0.75339E-04_JPRB,0.58060E-04_JPRB /)  
+KA(:, 5, 6, 8) = (/ &
+ & 0.11736E-05_JPRB,0.18980E-04_JPRB,0.30632E-04_JPRB,0.40210E-04_JPRB,0.48338E-04_JPRB, &
+ & 0.55952E-04_JPRB,0.64349E-04_JPRB,0.76243E-04_JPRB,0.58787E-04_JPRB /)  
+KA(:, 1, 7, 8) = (/ &
+ & 0.60315E-06_JPRB,0.15982E-04_JPRB,0.25725E-04_JPRB,0.33991E-04_JPRB,0.41066E-04_JPRB, &
+ & 0.47516E-04_JPRB,0.54302E-04_JPRB,0.64196E-04_JPRB,0.19175E-04_JPRB /)  
+KA(:, 2, 7, 8) = (/ &
+ & 0.66792E-06_JPRB,0.16270E-04_JPRB,0.26184E-04_JPRB,0.34534E-04_JPRB,0.41673E-04_JPRB, &
+ & 0.48253E-04_JPRB,0.55322E-04_JPRB,0.65617E-04_JPRB,0.20214E-04_JPRB /)  
+KA(:, 3, 7, 8) = (/ &
+ & 0.72908E-06_JPRB,0.16517E-04_JPRB,0.26616E-04_JPRB,0.35037E-04_JPRB,0.42229E-04_JPRB, &
+ & 0.48924E-04_JPRB,0.56239E-04_JPRB,0.66903E-04_JPRB,0.21171E-04_JPRB /)  
+KA(:, 4, 7, 8) = (/ &
+ & 0.78570E-06_JPRB,0.16735E-04_JPRB,0.27002E-04_JPRB,0.35463E-04_JPRB,0.42700E-04_JPRB, &
+ & 0.49504E-04_JPRB,0.57015E-04_JPRB,0.68011E-04_JPRB,0.22118E-04_JPRB /)  
+KA(:, 5, 7, 8) = (/ &
+ & 0.83832E-06_JPRB,0.16948E-04_JPRB,0.27325E-04_JPRB,0.35815E-04_JPRB,0.43102E-04_JPRB, &
+ & 0.50003E-04_JPRB,0.57693E-04_JPRB,0.68917E-04_JPRB,0.22989E-04_JPRB /)  
+KA(:, 1, 8, 8) = (/ &
+ & 0.37835E-06_JPRB,0.14042E-04_JPRB,0.22619E-04_JPRB,0.29906E-04_JPRB,0.36184E-04_JPRB, &
+ & 0.41943E-04_JPRB,0.48058E-04_JPRB,0.57159E-04_JPRB,0.15030E-04_JPRB /)  
+KA(:, 2, 8, 8) = (/ &
+ & 0.42400E-06_JPRB,0.14336E-04_JPRB,0.23076E-04_JPRB,0.30441E-04_JPRB,0.36790E-04_JPRB, &
+ & 0.42677E-04_JPRB,0.49055E-04_JPRB,0.58574E-04_JPRB,0.15267E-04_JPRB /)  
+KA(:, 3, 8, 8) = (/ &
+ & 0.47003E-06_JPRB,0.14598E-04_JPRB,0.23503E-04_JPRB,0.30926E-04_JPRB,0.37338E-04_JPRB, &
+ & 0.43345E-04_JPRB,0.49944E-04_JPRB,0.59871E-04_JPRB,0.15168E-04_JPRB /)  
+KA(:, 4, 8, 8) = (/ &
+ & 0.50983E-06_JPRB,0.14832E-04_JPRB,0.23887E-04_JPRB,0.31342E-04_JPRB,0.37806E-04_JPRB, &
+ & 0.43932E-04_JPRB,0.50714E-04_JPRB,0.60954E-04_JPRB,0.15479E-04_JPRB /)  
+KA(:, 5, 8, 8) = (/ &
+ & 0.55238E-06_JPRB,0.15050E-04_JPRB,0.24211E-04_JPRB,0.31698E-04_JPRB,0.38215E-04_JPRB, &
+ & 0.44447E-04_JPRB,0.51404E-04_JPRB,0.61843E-04_JPRB,0.15864E-04_JPRB /)  
+KA(:, 1, 9, 8) = (/ &
+ & 0.20614E-06_JPRB,0.12247E-04_JPRB,0.19755E-04_JPRB,0.26136E-04_JPRB,0.31671E-04_JPRB, &
+ & 0.36795E-04_JPRB,0.42267E-04_JPRB,0.50480E-04_JPRB,0.31415E-04_JPRB /)  
+KA(:, 2, 9, 8) = (/ &
+ & 0.22820E-06_JPRB,0.12543E-04_JPRB,0.20203E-04_JPRB,0.26660E-04_JPRB,0.32273E-04_JPRB, &
+ & 0.37518E-04_JPRB,0.43228E-04_JPRB,0.51895E-04_JPRB,0.32257E-04_JPRB /)  
+KA(:, 3, 9, 8) = (/ &
+ & 0.25381E-06_JPRB,0.12814E-04_JPRB,0.20621E-04_JPRB,0.27129E-04_JPRB,0.32814E-04_JPRB, &
+ & 0.38186E-04_JPRB,0.44095E-04_JPRB,0.53151E-04_JPRB,0.31766E-04_JPRB /)  
+KA(:, 4, 9, 8) = (/ &
+ & 0.26266E-06_JPRB,0.13056E-04_JPRB,0.20991E-04_JPRB,0.27538E-04_JPRB,0.33285E-04_JPRB, &
+ & 0.38781E-04_JPRB,0.44859E-04_JPRB,0.54214E-04_JPRB,0.32184E-04_JPRB /)  
+KA(:, 5, 9, 8) = (/ &
+ & 0.28878E-06_JPRB,0.13277E-04_JPRB,0.21308E-04_JPRB,0.27899E-04_JPRB,0.33704E-04_JPRB, &
+ & 0.39313E-04_JPRB,0.45556E-04_JPRB,0.55111E-04_JPRB,0.32436E-04_JPRB /)  
+KA(:, 1,10, 8) = (/ &
+ & 0.12421E-06_JPRB,0.10598E-04_JPRB,0.17170E-04_JPRB,0.22745E-04_JPRB,0.27597E-04_JPRB, &
+ & 0.32129E-04_JPRB,0.37024E-04_JPRB,0.44410E-04_JPRB,0.36288E-04_JPRB /)  
+KA(:, 2,10, 8) = (/ &
+ & 0.11833E-06_JPRB,0.10888E-04_JPRB,0.17606E-04_JPRB,0.23251E-04_JPRB,0.28191E-04_JPRB, &
+ & 0.32843E-04_JPRB,0.37957E-04_JPRB,0.45757E-04_JPRB,0.36706E-04_JPRB /)  
+KA(:, 3,10, 8) = (/ &
+ & 0.11564E-06_JPRB,0.11153E-04_JPRB,0.18009E-04_JPRB,0.23706E-04_JPRB,0.28726E-04_JPRB, &
+ & 0.33507E-04_JPRB,0.38804E-04_JPRB,0.46971E-04_JPRB,0.39285E-04_JPRB /)  
+KA(:, 4,10, 8) = (/ &
+ & 0.11888E-06_JPRB,0.11400E-04_JPRB,0.18364E-04_JPRB,0.24104E-04_JPRB,0.29196E-04_JPRB, &
+ & 0.34101E-04_JPRB,0.39555E-04_JPRB,0.47996E-04_JPRB,0.37765E-04_JPRB /)  
+KA(:, 5,10, 8) = (/ &
+ & 0.13250E-06_JPRB,0.11625E-04_JPRB,0.18671E-04_JPRB,0.24463E-04_JPRB,0.29622E-04_JPRB, &
+ & 0.34646E-04_JPRB,0.40249E-04_JPRB,0.48876E-04_JPRB,0.41184E-04_JPRB /)  
+KA(:, 1,11, 8) = (/ &
+ & 0.17958E-06_JPRB,0.90757E-05_JPRB,0.15007E-04_JPRB,0.19889E-04_JPRB,0.24154E-04_JPRB, &
+ & 0.28187E-04_JPRB,0.32636E-04_JPRB,0.39437E-04_JPRB,0.34162E-04_JPRB /)  
+KA(:, 2,11, 8) = (/ &
+ & 0.18139E-06_JPRB,0.93666E-05_JPRB,0.15418E-04_JPRB,0.20361E-04_JPRB,0.24716E-04_JPRB, &
+ & 0.28864E-04_JPRB,0.33507E-04_JPRB,0.40680E-04_JPRB,0.35787E-04_JPRB /)  
+KA(:, 3,11, 8) = (/ &
+ & 0.18275E-06_JPRB,0.96291E-05_JPRB,0.15787E-04_JPRB,0.20786E-04_JPRB,0.25221E-04_JPRB, &
+ & 0.29495E-04_JPRB,0.34295E-04_JPRB,0.41765E-04_JPRB,0.33878E-04_JPRB /)  
+KA(:, 4,11, 8) = (/ &
+ & 0.18574E-06_JPRB,0.98743E-05_JPRB,0.16117E-04_JPRB,0.21165E-04_JPRB,0.25673E-04_JPRB, &
+ & 0.30069E-04_JPRB,0.35015E-04_JPRB,0.42686E-04_JPRB,0.32841E-04_JPRB /)  
+KA(:, 5,11, 8) = (/ &
+ & 0.20082E-06_JPRB,0.10102E-04_JPRB,0.16409E-04_JPRB,0.21512E-04_JPRB,0.26096E-04_JPRB, &
+ & 0.30600E-04_JPRB,0.35678E-04_JPRB,0.43526E-04_JPRB,0.33904E-04_JPRB /)  
+KA(:, 1,12, 8) = (/ &
+ & 0.23860E-06_JPRB,0.72127E-05_JPRB,0.13015E-04_JPRB,0.17297E-04_JPRB,0.21033E-04_JPRB, &
+ & 0.24600E-04_JPRB,0.28604E-04_JPRB,0.34818E-04_JPRB,0.40933E-04_JPRB /)  
+KA(:, 2,12, 8) = (/ &
+ & 0.23391E-06_JPRB,0.75352E-05_JPRB,0.13408E-04_JPRB,0.17740E-04_JPRB,0.21564E-04_JPRB, &
+ & 0.25251E-04_JPRB,0.29426E-04_JPRB,0.35947E-04_JPRB,0.39399E-04_JPRB /)  
+KA(:, 3,12, 8) = (/ &
+ & 0.24701E-06_JPRB,0.78057E-05_JPRB,0.13760E-04_JPRB,0.18144E-04_JPRB,0.22045E-04_JPRB, &
+ & 0.25844E-04_JPRB,0.30162E-04_JPRB,0.36924E-04_JPRB,0.38294E-04_JPRB /)  
+KA(:, 4,12, 8) = (/ &
+ & 0.26761E-06_JPRB,0.80774E-05_JPRB,0.14071E-04_JPRB,0.18509E-04_JPRB,0.22485E-04_JPRB, &
+ & 0.26399E-04_JPRB,0.30850E-04_JPRB,0.37793E-04_JPRB,0.37310E-04_JPRB /)  
+KA(:, 5,12, 8) = (/ &
+ & 0.23665E-06_JPRB,0.83711E-05_JPRB,0.14360E-04_JPRB,0.18850E-04_JPRB,0.22903E-04_JPRB, &
+ & 0.26918E-04_JPRB,0.31485E-04_JPRB,0.38601E-04_JPRB,0.34593E-04_JPRB /)  
+KA(:, 1,13, 8) = (/ &
+ & 0.27521E-06_JPRB,0.50755E-05_JPRB,0.11059E-04_JPRB,0.14942E-04_JPRB,0.18221E-04_JPRB, &
+ & 0.21366E-04_JPRB,0.24941E-04_JPRB,0.30569E-04_JPRB,0.35909E-04_JPRB /)  
+KA(:, 2,13, 8) = (/ &
+ & 0.25317E-06_JPRB,0.53749E-05_JPRB,0.11450E-04_JPRB,0.15364E-04_JPRB,0.18725E-04_JPRB, &
+ & 0.21982E-04_JPRB,0.25707E-04_JPRB,0.31598E-04_JPRB,0.37411E-04_JPRB /)  
+KA(:, 3,13, 8) = (/ &
+ & 0.23895E-06_JPRB,0.56684E-05_JPRB,0.11800E-04_JPRB,0.15745E-04_JPRB,0.19182E-04_JPRB, &
+ & 0.22548E-04_JPRB,0.26403E-04_JPRB,0.32490E-04_JPRB,0.35715E-04_JPRB /)  
+KA(:, 4,13, 8) = (/ &
+ & 0.23323E-06_JPRB,0.59219E-05_JPRB,0.12110E-04_JPRB,0.16104E-04_JPRB,0.19621E-04_JPRB, &
+ & 0.23090E-04_JPRB,0.27069E-04_JPRB,0.33309E-04_JPRB,0.26489E-04_JPRB /)  
+KA(:, 5,13, 8) = (/ &
+ & 0.23115E-06_JPRB,0.61949E-05_JPRB,0.12408E-04_JPRB,0.16438E-04_JPRB,0.20031E-04_JPRB, &
+ & 0.23602E-04_JPRB,0.27683E-04_JPRB,0.34068E-04_JPRB,0.26612E-04_JPRB /)  
+KA(:, 1, 1, 9) = (/ &
+ & 0.91507E-04_JPRB,0.14710E-03_JPRB,0.19128E-03_JPRB,0.22605E-03_JPRB,0.25532E-03_JPRB, &
+ & 0.28077E-03_JPRB,0.30345E-03_JPRB,0.32646E-03_JPRB,0.30807E-03_JPRB /)  
+KA(:, 2, 1, 9) = (/ &
+ & 0.91242E-04_JPRB,0.14642E-03_JPRB,0.19074E-03_JPRB,0.22564E-03_JPRB,0.25500E-03_JPRB, &
+ & 0.28086E-03_JPRB,0.30369E-03_JPRB,0.32690E-03_JPRB,0.30957E-03_JPRB /)  
+KA(:, 3, 1, 9) = (/ &
+ & 0.90877E-04_JPRB,0.14692E-03_JPRB,0.19251E-03_JPRB,0.22869E-03_JPRB,0.25946E-03_JPRB, &
+ & 0.28682E-03_JPRB,0.31087E-03_JPRB,0.33538E-03_JPRB,0.32011E-03_JPRB /)  
+KA(:, 4, 1, 9) = (/ &
+ & 0.90459E-04_JPRB,0.14494E-03_JPRB,0.18943E-03_JPRB,0.22459E-03_JPRB,0.25465E-03_JPRB, &
+ & 0.28114E-03_JPRB,0.30414E-03_JPRB,0.32755E-03_JPRB,0.31196E-03_JPRB /)  
+KA(:, 5, 1, 9) = (/ &
+ & 0.89993E-04_JPRB,0.14416E-03_JPRB,0.18875E-03_JPRB,0.22408E-03_JPRB,0.25453E-03_JPRB, &
+ & 0.28137E-03_JPRB,0.30449E-03_JPRB,0.32780E-03_JPRB,0.31307E-03_JPRB /)  
+KA(:, 1, 2, 9) = (/ &
+ & 0.77262E-04_JPRB,0.13432E-03_JPRB,0.17769E-03_JPRB,0.21240E-03_JPRB,0.24204E-03_JPRB, &
+ & 0.26866E-03_JPRB,0.29235E-03_JPRB,0.31628E-03_JPRB,0.29582E-03_JPRB /)  
+KA(:, 2, 2, 9) = (/ &
+ & 0.77061E-04_JPRB,0.13375E-03_JPRB,0.17727E-03_JPRB,0.21210E-03_JPRB,0.24206E-03_JPRB, &
+ & 0.26905E-03_JPRB,0.29288E-03_JPRB,0.31707E-03_JPRB,0.29754E-03_JPRB /)  
+KA(:, 3, 2, 9) = (/ &
+ & 0.76803E-04_JPRB,0.13443E-03_JPRB,0.17926E-03_JPRB,0.21557E-03_JPRB,0.24713E-03_JPRB, &
+ & 0.27557E-03_JPRB,0.30072E-03_JPRB,0.32610E-03_JPRB,0.30880E-03_JPRB /)  
+KA(:, 4, 2, 9) = (/ &
+ & 0.76502E-04_JPRB,0.13372E-03_JPRB,0.17855E-03_JPRB,0.21503E-03_JPRB,0.24689E-03_JPRB, &
+ & 0.27560E-03_JPRB,0.30084E-03_JPRB,0.32601E-03_JPRB,0.30963E-03_JPRB /)  
+KA(:, 5, 2, 9) = (/ &
+ & 0.76149E-04_JPRB,0.13198E-03_JPRB,0.17568E-03_JPRB,0.21133E-03_JPRB,0.24254E-03_JPRB, &
+ & 0.27051E-03_JPRB,0.29485E-03_JPRB,0.31890E-03_JPRB,0.30223E-03_JPRB /)  
+KA(:, 1, 3, 9) = (/ &
+ & 0.65103E-04_JPRB,0.12258E-03_JPRB,0.16452E-03_JPRB,0.19865E-03_JPRB,0.22866E-03_JPRB, &
+ & 0.25591E-03_JPRB,0.28055E-03_JPRB,0.30511E-03_JPRB,0.28178E-03_JPRB /)  
+KA(:, 2, 3, 9) = (/ &
+ & 0.64961E-04_JPRB,0.12216E-03_JPRB,0.16424E-03_JPRB,0.19863E-03_JPRB,0.22903E-03_JPRB, &
+ & 0.25664E-03_JPRB,0.28152E-03_JPRB,0.30626E-03_JPRB,0.28379E-03_JPRB /)  
+KA(:, 3, 3, 9) = (/ &
+ & 0.64796E-04_JPRB,0.12170E-03_JPRB,0.16393E-03_JPRB,0.19861E-03_JPRB,0.22948E-03_JPRB, &
+ & 0.25740E-03_JPRB,0.28253E-03_JPRB,0.30727E-03_JPRB,0.28578E-03_JPRB /)  
+KA(:, 4, 3, 9) = (/ &
+ & 0.64583E-04_JPRB,0.12248E-03_JPRB,0.16600E-03_JPRB,0.20227E-03_JPRB,0.23481E-03_JPRB, &
+ & 0.26421E-03_JPRB,0.29055E-03_JPRB,0.31636E-03_JPRB,0.29736E-03_JPRB /)  
+KA(:, 5, 3, 9) = (/ &
+ & 0.64341E-04_JPRB,0.12081E-03_JPRB,0.16325E-03_JPRB,0.19869E-03_JPRB,0.23043E-03_JPRB, &
+ & 0.25903E-03_JPRB,0.28445E-03_JPRB,0.30920E-03_JPRB,0.28976E-03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART6',1,ZHOOK_HANDLE)
+END SUBROUTINE PART6
+
+
+SUBROUTINE PART7
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART7',0,ZHOOK_HANDLE)
+
+
+KA(:, 1, 4, 9) = (/ &
+ & 0.54784E-04_JPRB,0.11174E-03_JPRB,0.15188E-03_JPRB,0.18523E-03_JPRB,0.21503E-03_JPRB, &
+ & 0.24239E-03_JPRB,0.26770E-03_JPRB,0.29311E-03_JPRB,0.26685E-03_JPRB /)  
+KA(:, 2, 4, 9) = (/ &
+ & 0.54700E-04_JPRB,0.11144E-03_JPRB,0.15177E-03_JPRB,0.18550E-03_JPRB,0.21578E-03_JPRB, &
+ & 0.24348E-03_JPRB,0.26903E-03_JPRB,0.29466E-03_JPRB,0.26928E-03_JPRB /)  
+KA(:, 3, 4, 9) = (/ &
+ & 0.54592E-04_JPRB,0.11111E-03_JPRB,0.15167E-03_JPRB,0.18578E-03_JPRB,0.21655E-03_JPRB, &
+ & 0.24456E-03_JPRB,0.27029E-03_JPRB,0.29609E-03_JPRB,0.27162E-03_JPRB /)  
+KA(:, 4, 4, 9) = (/ &
+ & 0.54457E-04_JPRB,0.11078E-03_JPRB,0.15152E-03_JPRB,0.18607E-03_JPRB,0.21728E-03_JPRB, &
+ & 0.24565E-03_JPRB,0.27151E-03_JPRB,0.29746E-03_JPRB,0.27399E-03_JPRB /)  
+KA(:, 5, 4, 9) = (/ &
+ & 0.54312E-04_JPRB,0.11162E-03_JPRB,0.15369E-03_JPRB,0.18993E-03_JPRB,0.22281E-03_JPRB, &
+ & 0.25263E-03_JPRB,0.27972E-03_JPRB,0.30664E-03_JPRB,0.28593E-03_JPRB /)  
+KA(:, 1, 5, 9) = (/ &
+ & 0.46088E-04_JPRB,0.10164E-03_JPRB,0.13985E-03_JPRB,0.17192E-03_JPRB,0.20105E-03_JPRB, &
+ & 0.22810E-03_JPRB,0.25365E-03_JPRB,0.28019E-03_JPRB,0.25169E-03_JPRB /)  
+KA(:, 2, 5, 9) = (/ &
+ & 0.46037E-04_JPRB,0.10150E-03_JPRB,0.13996E-03_JPRB,0.17251E-03_JPRB,0.20208E-03_JPRB, &
+ & 0.22949E-03_JPRB,0.25532E-03_JPRB,0.28211E-03_JPRB,0.25438E-03_JPRB /)  
+KA(:, 3, 5, 9) = (/ &
+ & 0.45971E-04_JPRB,0.10129E-03_JPRB,0.14008E-03_JPRB,0.17302E-03_JPRB,0.20310E-03_JPRB, &
+ & 0.23085E-03_JPRB,0.25690E-03_JPRB,0.28385E-03_JPRB,0.25702E-03_JPRB /)  
+KA(:, 4, 5, 9) = (/ &
+ & 0.45890E-04_JPRB,0.10111E-03_JPRB,0.14015E-03_JPRB,0.17355E-03_JPRB,0.20405E-03_JPRB, &
+ & 0.23221E-03_JPRB,0.25843E-03_JPRB,0.28547E-03_JPRB,0.25970E-03_JPRB /)  
+KA(:, 5, 5, 9) = (/ &
+ & 0.45808E-04_JPRB,0.10210E-03_JPRB,0.14263E-03_JPRB,0.17783E-03_JPRB,0.21010E-03_JPRB, &
+ & 0.23994E-03_JPRB,0.26750E-03_JPRB,0.29545E-03_JPRB,0.27288E-03_JPRB /)  
+KA(:, 1, 6, 9) = (/ &
+ & 0.38759E-04_JPRB,0.92287E-04_JPRB,0.12830E-03_JPRB,0.15873E-03_JPRB,0.18673E-03_JPRB, &
+ & 0.21305E-03_JPRB,0.23858E-03_JPRB,0.26603E-03_JPRB,0.23576E-03_JPRB /)  
+KA(:, 2, 6, 9) = (/ &
+ & 0.38742E-04_JPRB,0.92285E-04_JPRB,0.12860E-03_JPRB,0.15956E-03_JPRB,0.18804E-03_JPRB, &
+ & 0.21479E-03_JPRB,0.24061E-03_JPRB,0.26833E-03_JPRB,0.23876E-03_JPRB /)  
+KA(:, 3, 6, 9) = (/ &
+ & 0.38716E-04_JPRB,0.92248E-04_JPRB,0.12890E-03_JPRB,0.16031E-03_JPRB,0.18934E-03_JPRB, &
+ & 0.21647E-03_JPRB,0.24252E-03_JPRB,0.27042E-03_JPRB,0.24167E-03_JPRB /)  
+KA(:, 4, 6, 9) = (/ &
+ & 0.38672E-04_JPRB,0.92189E-04_JPRB,0.12914E-03_JPRB,0.16108E-03_JPRB,0.19055E-03_JPRB, &
+ & 0.21815E-03_JPRB,0.24441E-03_JPRB,0.27232E-03_JPRB,0.24468E-03_JPRB /)  
+KA(:, 5, 6, 9) = (/ &
+ & 0.38631E-04_JPRB,0.92110E-04_JPRB,0.12940E-03_JPRB,0.16181E-03_JPRB,0.19180E-03_JPRB, &
+ & 0.21982E-03_JPRB,0.24634E-03_JPRB,0.27420E-03_JPRB,0.24778E-03_JPRB /)  
+KA(:, 1, 7, 9) = (/ &
+ & 0.32524E-04_JPRB,0.83578E-04_JPRB,0.11715E-03_JPRB,0.14581E-03_JPRB,0.17242E-03_JPRB, &
+ & 0.19778E-03_JPRB,0.22289E-03_JPRB,0.25099E-03_JPRB,0.21544E-03_JPRB /)  
+KA(:, 2, 7, 9) = (/ &
+ & 0.32544E-04_JPRB,0.83724E-04_JPRB,0.11765E-03_JPRB,0.14685E-03_JPRB,0.17402E-03_JPRB, &
+ & 0.19984E-03_JPRB,0.22531E-03_JPRB,0.25360E-03_JPRB,0.21897E-03_JPRB /)  
+KA(:, 3, 7, 9) = (/ &
+ & 0.32541E-04_JPRB,0.83837E-04_JPRB,0.11812E-03_JPRB,0.14785E-03_JPRB,0.17560E-03_JPRB, &
+ & 0.20184E-03_JPRB,0.22764E-03_JPRB,0.25604E-03_JPRB,0.22234E-03_JPRB /)  
+KA(:, 4, 7, 9) = (/ &
+ & 0.32522E-04_JPRB,0.83911E-04_JPRB,0.11855E-03_JPRB,0.14886E-03_JPRB,0.17710E-03_JPRB, &
+ & 0.20381E-03_JPRB,0.22989E-03_JPRB,0.25831E-03_JPRB,0.22586E-03_JPRB /)  
+KA(:, 5, 7, 9) = (/ &
+ & 0.32511E-04_JPRB,0.83972E-04_JPRB,0.11899E-03_JPRB,0.14985E-03_JPRB,0.17863E-03_JPRB, &
+ & 0.20577E-03_JPRB,0.23212E-03_JPRB,0.26056E-03_JPRB,0.22930E-03_JPRB /)  
+KA(:, 1, 8, 9) = (/ &
+ & 0.27162E-04_JPRB,0.75477E-04_JPRB,0.10657E-03_JPRB,0.13337E-03_JPRB,0.15848E-03_JPRB, &
+ & 0.18267E-03_JPRB,0.20707E-03_JPRB,0.23532E-03_JPRB,0.10685E-03_JPRB /)  
+KA(:, 2, 8, 9) = (/ &
+ & 0.27219E-04_JPRB,0.75747E-04_JPRB,0.10724E-03_JPRB,0.13464E-03_JPRB,0.16036E-03_JPRB, &
+ & 0.18507E-03_JPRB,0.20988E-03_JPRB,0.23834E-03_JPRB,0.11049E-03_JPRB /)  
+KA(:, 3, 8, 9) = (/ &
+ & 0.27240E-04_JPRB,0.75981E-04_JPRB,0.10788E-03_JPRB,0.13591E-03_JPRB,0.16217E-03_JPRB, &
+ & 0.18731E-03_JPRB,0.21250E-03_JPRB,0.24115E-03_JPRB,0.11463E-03_JPRB /)  
+KA(:, 4, 8, 9) = (/ &
+ & 0.27241E-04_JPRB,0.76175E-04_JPRB,0.10851E-03_JPRB,0.13715E-03_JPRB,0.16392E-03_JPRB, &
+ & 0.18952E-03_JPRB,0.21504E-03_JPRB,0.24375E-03_JPRB,0.11830E-03_JPRB /)  
+KA(:, 5, 8, 9) = (/ &
+ & 0.27254E-04_JPRB,0.76338E-04_JPRB,0.10913E-03_JPRB,0.13836E-03_JPRB,0.16569E-03_JPRB, &
+ & 0.19172E-03_JPRB,0.21755E-03_JPRB,0.24638E-03_JPRB,0.12227E-03_JPRB /)  
+KA(:, 1, 9, 9) = (/ &
+ & 0.22546E-04_JPRB,0.67903E-04_JPRB,0.96628E-04_JPRB,0.12150E-03_JPRB,0.14489E-03_JPRB, &
+ & 0.16757E-03_JPRB,0.19095E-03_JPRB,0.21913E-03_JPRB,0.25626E-04_JPRB /)  
+KA(:, 2, 9, 9) = (/ &
+ & 0.22635E-04_JPRB,0.68268E-04_JPRB,0.97460E-04_JPRB,0.12301E-03_JPRB,0.14702E-03_JPRB, &
+ & 0.17028E-03_JPRB,0.19411E-03_JPRB,0.22260E-03_JPRB,0.25839E-04_JPRB /)  
+KA(:, 3, 9, 9) = (/ &
+ & 0.22685E-04_JPRB,0.68616E-04_JPRB,0.98277E-04_JPRB,0.12450E-03_JPRB,0.14909E-03_JPRB, &
+ & 0.17284E-03_JPRB,0.19709E-03_JPRB,0.22578E-03_JPRB,0.27443E-04_JPRB /)  
+KA(:, 4, 9, 9) = (/ &
+ & 0.22709E-04_JPRB,0.68929E-04_JPRB,0.99095E-04_JPRB,0.12593E-03_JPRB,0.15108E-03_JPRB, &
+ & 0.17530E-03_JPRB,0.19995E-03_JPRB,0.22878E-03_JPRB,0.28531E-04_JPRB /)  
+KA(:, 5, 9, 9) = (/ &
+ & 0.22740E-04_JPRB,0.69227E-04_JPRB,0.99896E-04_JPRB,0.12734E-03_JPRB,0.15306E-03_JPRB, &
+ & 0.17777E-03_JPRB,0.20277E-03_JPRB,0.23170E-03_JPRB,0.28894E-04_JPRB /)  
+KA(:, 1,10, 9) = (/ &
+ & 0.18403E-04_JPRB,0.60856E-04_JPRB,0.87340E-04_JPRB,0.11017E-03_JPRB,0.13174E-03_JPRB, &
+ & 0.15284E-03_JPRB,0.17492E-03_JPRB,0.20267E-03_JPRB,0.31931E-04_JPRB /)  
+KA(:, 2,10, 9) = (/ &
+ & 0.18527E-04_JPRB,0.61329E-04_JPRB,0.88371E-04_JPRB,0.11191E-03_JPRB,0.13412E-03_JPRB, &
+ & 0.15579E-03_JPRB,0.17838E-03_JPRB,0.20650E-03_JPRB,0.29084E-04_JPRB /)  
+KA(:, 3,10, 9) = (/ &
+ & 0.18600E-04_JPRB,0.61796E-04_JPRB,0.89354E-04_JPRB,0.11363E-03_JPRB,0.13643E-03_JPRB, &
+ & 0.15861E-03_JPRB,0.18170E-03_JPRB,0.21009E-03_JPRB,0.27893E-04_JPRB /)  
+KA(:, 4,10, 9) = (/ &
+ & 0.18642E-04_JPRB,0.62226E-04_JPRB,0.90339E-04_JPRB,0.11526E-03_JPRB,0.13867E-03_JPRB, &
+ & 0.16137E-03_JPRB,0.18486E-03_JPRB,0.21346E-03_JPRB,0.33895E-04_JPRB /)  
+KA(:, 5,10, 9) = (/ &
+ & 0.18688E-04_JPRB,0.62651E-04_JPRB,0.91302E-04_JPRB,0.11690E-03_JPRB,0.14093E-03_JPRB, &
+ & 0.16416E-03_JPRB,0.18804E-03_JPRB,0.21676E-03_JPRB,0.31724E-04_JPRB /)  
+KA(:, 1,11, 9) = (/ &
+ & 0.14636E-04_JPRB,0.54588E-04_JPRB,0.79114E-04_JPRB,0.10030E-03_JPRB,0.12035E-03_JPRB, &
+ & 0.14003E-03_JPRB,0.16089E-03_JPRB,0.18797E-03_JPRB,0.24886E-04_JPRB /)  
+KA(:, 2,11, 9) = (/ &
+ & 0.14721E-04_JPRB,0.55182E-04_JPRB,0.80295E-04_JPRB,0.10221E-03_JPRB,0.12288E-03_JPRB, &
+ & 0.14315E-03_JPRB,0.16455E-03_JPRB,0.19200E-03_JPRB,0.28280E-04_JPRB /)  
+KA(:, 3,11, 9) = (/ &
+ & 0.14784E-04_JPRB,0.55751E-04_JPRB,0.81465E-04_JPRB,0.10405E-03_JPRB,0.12535E-03_JPRB, &
+ & 0.14614E-03_JPRB,0.16802E-03_JPRB,0.19578E-03_JPRB,0.31405E-04_JPRB /)  
+KA(:, 4,11, 9) = (/ &
+ & 0.14831E-04_JPRB,0.56293E-04_JPRB,0.82611E-04_JPRB,0.10589E-03_JPRB,0.12782E-03_JPRB, &
+ & 0.14918E-03_JPRB,0.17147E-03_JPRB,0.19942E-03_JPRB,0.34684E-04_JPRB /)  
+KA(:, 5,11, 9) = (/ &
+ & 0.14856E-04_JPRB,0.56829E-04_JPRB,0.83754E-04_JPRB,0.10776E-03_JPRB,0.13034E-03_JPRB, &
+ & 0.15225E-03_JPRB,0.17499E-03_JPRB,0.20312E-03_JPRB,0.30970E-04_JPRB /)  
+KA(:, 1,12, 9) = (/ &
+ & 0.11572E-04_JPRB,0.48876E-04_JPRB,0.71553E-04_JPRB,0.91191E-04_JPRB,0.10973E-03_JPRB, &
+ & 0.12799E-03_JPRB,0.14756E-03_JPRB,0.17351E-03_JPRB,0.30682E-04_JPRB /)  
+KA(:, 2,12, 9) = (/ &
+ & 0.11642E-04_JPRB,0.49592E-04_JPRB,0.72882E-04_JPRB,0.93233E-04_JPRB,0.11240E-03_JPRB, &
+ & 0.13124E-03_JPRB,0.15132E-03_JPRB,0.17770E-03_JPRB,0.31240E-04_JPRB /)  
+KA(:, 3,12, 9) = (/ &
+ & 0.11629E-04_JPRB,0.50261E-04_JPRB,0.74205E-04_JPRB,0.95210E-04_JPRB,0.11505E-03_JPRB, &
+ & 0.13447E-03_JPRB,0.15502E-03_JPRB,0.18170E-03_JPRB,0.31943E-04_JPRB /)  
+KA(:, 4,12, 9) = (/ &
+ & 0.11633E-04_JPRB,0.50925E-04_JPRB,0.75501E-04_JPRB,0.97246E-04_JPRB,0.11773E-03_JPRB, &
+ & 0.13775E-03_JPRB,0.15878E-03_JPRB,0.18567E-03_JPRB,0.23441E-04_JPRB /)  
+KA(:, 5,12, 9) = (/ &
+ & 0.11677E-04_JPRB,0.51560E-04_JPRB,0.76851E-04_JPRB,0.99310E-04_JPRB,0.12044E-03_JPRB, &
+ & 0.14103E-03_JPRB,0.16255E-03_JPRB,0.18968E-03_JPRB,0.23249E-04_JPRB /)  
+KA(:, 1,13, 9) = (/ &
+ & 0.88185E-05_JPRB,0.43709E-04_JPRB,0.64627E-04_JPRB,0.82824E-04_JPRB,0.99889E-04_JPRB, &
+ & 0.11672E-03_JPRB,0.13488E-03_JPRB,0.15952E-03_JPRB,0.30903E-04_JPRB /)  
+KA(:, 2,13, 9) = (/ &
+ & 0.88986E-05_JPRB,0.44515E-04_JPRB,0.66093E-04_JPRB,0.84980E-04_JPRB,0.10270E-03_JPRB, &
+ & 0.12016E-03_JPRB,0.13885E-03_JPRB,0.16386E-03_JPRB,0.25840E-04_JPRB /)  
+KA(:, 3,13, 9) = (/ &
+ & 0.89568E-05_JPRB,0.45280E-04_JPRB,0.67556E-04_JPRB,0.87134E-04_JPRB,0.10555E-03_JPRB, &
+ & 0.12361E-03_JPRB,0.14282E-03_JPRB,0.16813E-03_JPRB,0.26878E-04_JPRB /)  
+KA(:, 4,13, 9) = (/ &
+ & 0.89829E-05_JPRB,0.46045E-04_JPRB,0.69040E-04_JPRB,0.89346E-04_JPRB,0.10842E-03_JPRB, &
+ & 0.12710E-03_JPRB,0.14682E-03_JPRB,0.17243E-03_JPRB,0.28852E-04_JPRB /)  
+KA(:, 5,13, 9) = (/ &
+ & 0.90413E-05_JPRB,0.46787E-04_JPRB,0.70568E-04_JPRB,0.91561E-04_JPRB,0.11129E-03_JPRB, &
+ & 0.13056E-03_JPRB,0.15080E-03_JPRB,0.17669E-03_JPRB,0.28623E-04_JPRB /)  
+KA(:, 1, 1,10) = (/ &
+ & 0.44112E-03_JPRB,0.47423E-03_JPRB,0.54876E-03_JPRB,0.61567E-03_JPRB,0.66971E-03_JPRB, &
+ & 0.71699E-03_JPRB,0.76347E-03_JPRB,0.77814E-03_JPRB,0.77298E-03_JPRB /)  
+KA(:, 2, 1,10) = (/ &
+ & 0.43794E-03_JPRB,0.47285E-03_JPRB,0.54643E-03_JPRB,0.61370E-03_JPRB,0.66959E-03_JPRB, &
+ & 0.71530E-03_JPRB,0.76226E-03_JPRB,0.77693E-03_JPRB,0.76966E-03_JPRB /)  
+KA(:, 3, 1,10) = (/ &
+ & 0.43480E-03_JPRB,0.47183E-03_JPRB,0.54721E-03_JPRB,0.61831E-03_JPRB,0.67726E-03_JPRB, &
+ & 0.72423E-03_JPRB,0.77288E-03_JPRB,0.78901E-03_JPRB,0.78603E-03_JPRB /)  
+KA(:, 4, 1,10) = (/ &
+ & 0.43220E-03_JPRB,0.46825E-03_JPRB,0.54213E-03_JPRB,0.61349E-03_JPRB,0.66880E-03_JPRB, &
+ & 0.71215E-03_JPRB,0.75938E-03_JPRB,0.77341E-03_JPRB,0.76775E-03_JPRB /)  
+KA(:, 5, 1,10) = (/ &
+ & 0.42987E-03_JPRB,0.46597E-03_JPRB,0.54025E-03_JPRB,0.61237E-03_JPRB,0.66800E-03_JPRB, &
+ & 0.70968E-03_JPRB,0.75599E-03_JPRB,0.77132E-03_JPRB,0.76754E-03_JPRB /)  
+KA(:, 1, 2,10) = (/ &
+ & 0.37934E-03_JPRB,0.43540E-03_JPRB,0.51852E-03_JPRB,0.59327E-03_JPRB,0.65919E-03_JPRB, &
+ & 0.71028E-03_JPRB,0.75523E-03_JPRB,0.78660E-03_JPRB,0.77018E-03_JPRB /)  
+KA(:, 2, 2,10) = (/ &
+ & 0.37616E-03_JPRB,0.43418E-03_JPRB,0.51743E-03_JPRB,0.59232E-03_JPRB,0.65869E-03_JPRB, &
+ & 0.70879E-03_JPRB,0.75385E-03_JPRB,0.78506E-03_JPRB,0.76914E-03_JPRB /)  
+KA(:, 3, 2,10) = (/ &
+ & 0.37285E-03_JPRB,0.43338E-03_JPRB,0.51992E-03_JPRB,0.59796E-03_JPRB,0.66588E-03_JPRB, &
+ & 0.71863E-03_JPRB,0.76525E-03_JPRB,0.79746E-03_JPRB,0.78726E-03_JPRB /)  
+KA(:, 4, 2,10) = (/ &
+ & 0.36993E-03_JPRB,0.43092E-03_JPRB,0.51858E-03_JPRB,0.59729E-03_JPRB,0.66425E-03_JPRB, &
+ & 0.71582E-03_JPRB,0.76129E-03_JPRB,0.79428E-03_JPRB,0.78557E-03_JPRB /)  
+KA(:, 5, 2,10) = (/ &
+ & 0.36795E-03_JPRB,0.42667E-03_JPRB,0.51498E-03_JPRB,0.59125E-03_JPRB,0.65451E-03_JPRB, &
+ & 0.70295E-03_JPRB,0.74646E-03_JPRB,0.77706E-03_JPRB,0.76846E-03_JPRB /)  
+KA(:, 1, 3,10) = (/ &
+ & 0.32398E-03_JPRB,0.39840E-03_JPRB,0.48910E-03_JPRB,0.57202E-03_JPRB,0.64247E-03_JPRB, &
+ & 0.69920E-03_JPRB,0.74272E-03_JPRB,0.78560E-03_JPRB,0.76158E-03_JPRB /)  
+KA(:, 2, 3,10) = (/ &
+ & 0.32107E-03_JPRB,0.39683E-03_JPRB,0.48877E-03_JPRB,0.57106E-03_JPRB,0.64200E-03_JPRB, &
+ & 0.69780E-03_JPRB,0.74068E-03_JPRB,0.78389E-03_JPRB,0.76255E-03_JPRB /)  
+KA(:, 3, 3,10) = (/ &
+ & 0.31808E-03_JPRB,0.39502E-03_JPRB,0.48851E-03_JPRB,0.57104E-03_JPRB,0.64052E-03_JPRB, &
+ & 0.69677E-03_JPRB,0.73846E-03_JPRB,0.78156E-03_JPRB,0.76341E-03_JPRB /)  
+KA(:, 4, 3,10) = (/ &
+ & 0.31534E-03_JPRB,0.39419E-03_JPRB,0.49223E-03_JPRB,0.57621E-03_JPRB,0.64746E-03_JPRB, &
+ & 0.70569E-03_JPRB,0.74986E-03_JPRB,0.79350E-03_JPRB,0.78192E-03_JPRB /)  
+KA(:, 5, 3,10) = (/ &
+ & 0.31343E-03_JPRB,0.39031E-03_JPRB,0.48789E-03_JPRB,0.56911E-03_JPRB,0.63804E-03_JPRB, &
+ & 0.69322E-03_JPRB,0.73529E-03_JPRB,0.77554E-03_JPRB,0.76249E-03_JPRB /)  
+KA(:, 1, 4,10) = (/ &
+ & 0.27516E-03_JPRB,0.36405E-03_JPRB,0.46107E-03_JPRB,0.54790E-03_JPRB,0.62253E-03_JPRB, &
+ & 0.68384E-03_JPRB,0.73057E-03_JPRB,0.77856E-03_JPRB,0.74793E-03_JPRB /)  
+KA(:, 2, 4,10) = (/ &
+ & 0.27272E-03_JPRB,0.36262E-03_JPRB,0.46080E-03_JPRB,0.54700E-03_JPRB,0.62201E-03_JPRB, &
+ & 0.68300E-03_JPRB,0.72976E-03_JPRB,0.77591E-03_JPRB,0.74919E-03_JPRB /)  
+KA(:, 3, 4,10) = (/ &
+ & 0.26991E-03_JPRB,0.36139E-03_JPRB,0.46064E-03_JPRB,0.54673E-03_JPRB,0.62063E-03_JPRB, &
+ & 0.68269E-03_JPRB,0.72862E-03_JPRB,0.77298E-03_JPRB,0.75070E-03_JPRB /)  
+KA(:, 4, 4,10) = (/ &
+ & 0.26757E-03_JPRB,0.35993E-03_JPRB,0.46053E-03_JPRB,0.54625E-03_JPRB,0.61982E-03_JPRB, &
+ & 0.68167E-03_JPRB,0.72799E-03_JPRB,0.77005E-03_JPRB,0.75046E-03_JPRB /)  
+KA(:, 5, 4,10) = (/ &
+ & 0.26556E-03_JPRB,0.36025E-03_JPRB,0.46433E-03_JPRB,0.55132E-03_JPRB,0.62683E-03_JPRB, &
+ & 0.69143E-03_JPRB,0.74137E-03_JPRB,0.78366E-03_JPRB,0.76845E-03_JPRB /)  
+KA(:, 1, 5,10) = (/ &
+ & 0.23277E-03_JPRB,0.33279E-03_JPRB,0.43313E-03_JPRB,0.52236E-03_JPRB,0.59970E-03_JPRB, &
+ & 0.66464E-03_JPRB,0.71686E-03_JPRB,0.76626E-03_JPRB,0.72457E-03_JPRB /)  
+KA(:, 2, 5,10) = (/ &
+ & 0.23078E-03_JPRB,0.33167E-03_JPRB,0.43303E-03_JPRB,0.52181E-03_JPRB,0.60054E-03_JPRB, &
+ & 0.66529E-03_JPRB,0.71807E-03_JPRB,0.76458E-03_JPRB,0.72852E-03_JPRB /)  
+KA(:, 3, 5,10) = (/ &
+ & 0.22839E-03_JPRB,0.33111E-03_JPRB,0.43245E-03_JPRB,0.52229E-03_JPRB,0.60068E-03_JPRB, &
+ & 0.66640E-03_JPRB,0.71880E-03_JPRB,0.76367E-03_JPRB,0.73165E-03_JPRB /)  
+KA(:, 4, 5,10) = (/ &
+ & 0.22634E-03_JPRB,0.33010E-03_JPRB,0.43234E-03_JPRB,0.52220E-03_JPRB,0.60179E-03_JPRB, &
+ & 0.66699E-03_JPRB,0.71996E-03_JPRB,0.76305E-03_JPRB,0.73316E-03_JPRB /)  
+KA(:, 5, 5,10) = (/ &
+ & 0.22442E-03_JPRB,0.33158E-03_JPRB,0.43680E-03_JPRB,0.52864E-03_JPRB,0.61018E-03_JPRB, &
+ & 0.67770E-03_JPRB,0.73371E-03_JPRB,0.78031E-03_JPRB,0.75138E-03_JPRB /)  
+KA(:, 1, 6,10) = (/ &
+ & 0.19685E-03_JPRB,0.30442E-03_JPRB,0.40547E-03_JPRB,0.49610E-03_JPRB,0.57453E-03_JPRB, &
+ & 0.64299E-03_JPRB,0.69899E-03_JPRB,0.74954E-03_JPRB,0.69460E-03_JPRB /)  
+KA(:, 2, 6,10) = (/ &
+ & 0.19517E-03_JPRB,0.30338E-03_JPRB,0.40585E-03_JPRB,0.49683E-03_JPRB,0.57671E-03_JPRB, &
+ & 0.64425E-03_JPRB,0.70130E-03_JPRB,0.75004E-03_JPRB,0.70036E-03_JPRB /)  
+KA(:, 3, 6,10) = (/ &
+ & 0.19324E-03_JPRB,0.30268E-03_JPRB,0.40573E-03_JPRB,0.49834E-03_JPRB,0.57803E-03_JPRB, &
+ & 0.64627E-03_JPRB,0.70310E-03_JPRB,0.75130E-03_JPRB,0.70596E-03_JPRB /)  
+KA(:, 4, 6,10) = (/ &
+ & 0.19132E-03_JPRB,0.30224E-03_JPRB,0.40644E-03_JPRB,0.49947E-03_JPRB,0.58014E-03_JPRB, &
+ & 0.64741E-03_JPRB,0.70472E-03_JPRB,0.75293E-03_JPRB,0.70917E-03_JPRB /)  
+KA(:, 5, 6,10) = (/ &
+ & 0.18952E-03_JPRB,0.30177E-03_JPRB,0.40672E-03_JPRB,0.50101E-03_JPRB,0.58137E-03_JPRB, &
+ & 0.64847E-03_JPRB,0.70602E-03_JPRB,0.75537E-03_JPRB,0.71121E-03_JPRB /)  
+KA(:, 1, 7,10) = (/ &
+ & 0.16684E-03_JPRB,0.27825E-03_JPRB,0.37860E-03_JPRB,0.46883E-03_JPRB,0.54680E-03_JPRB, &
+ & 0.61510E-03_JPRB,0.67386E-03_JPRB,0.72824E-03_JPRB,0.66391E-03_JPRB /)  
+KA(:, 2, 7,10) = (/ &
+ & 0.16553E-03_JPRB,0.27719E-03_JPRB,0.37963E-03_JPRB,0.47077E-03_JPRB,0.54985E-03_JPRB, &
+ & 0.61768E-03_JPRB,0.67717E-03_JPRB,0.73093E-03_JPRB,0.67156E-03_JPRB /)  
+KA(:, 3, 7,10) = (/ &
+ & 0.16397E-03_JPRB,0.27663E-03_JPRB,0.38054E-03_JPRB,0.47308E-03_JPRB,0.55166E-03_JPRB, &
+ & 0.62067E-03_JPRB,0.67975E-03_JPRB,0.73342E-03_JPRB,0.67787E-03_JPRB /)  
+KA(:, 4, 7,10) = (/ &
+ & 0.16246E-03_JPRB,0.27634E-03_JPRB,0.38198E-03_JPRB,0.47489E-03_JPRB,0.55414E-03_JPRB, &
+ & 0.62280E-03_JPRB,0.68232E-03_JPRB,0.73600E-03_JPRB,0.68175E-03_JPRB /)  
+KA(:, 5, 7,10) = (/ &
+ & 0.16089E-03_JPRB,0.27624E-03_JPRB,0.38314E-03_JPRB,0.47665E-03_JPRB,0.55585E-03_JPRB, &
+ & 0.62443E-03_JPRB,0.68436E-03_JPRB,0.73852E-03_JPRB,0.68559E-03_JPRB /)  
+KA(:, 1, 8,10) = (/ &
+ & 0.14215E-03_JPRB,0.25407E-03_JPRB,0.35215E-03_JPRB,0.43863E-03_JPRB,0.51443E-03_JPRB, &
+ & 0.58154E-03_JPRB,0.64180E-03_JPRB,0.70004E-03_JPRB,0.62276E-03_JPRB /)  
+KA(:, 2, 8,10) = (/ &
+ & 0.14104E-03_JPRB,0.25332E-03_JPRB,0.35394E-03_JPRB,0.44179E-03_JPRB,0.51810E-03_JPRB, &
+ & 0.58508E-03_JPRB,0.64584E-03_JPRB,0.70407E-03_JPRB,0.63285E-03_JPRB /)  
+KA(:, 3, 8,10) = (/ &
+ & 0.13977E-03_JPRB,0.25313E-03_JPRB,0.35560E-03_JPRB,0.44458E-03_JPRB,0.52101E-03_JPRB, &
+ & 0.58953E-03_JPRB,0.65037E-03_JPRB,0.70785E-03_JPRB,0.64108E-03_JPRB /)  
+KA(:, 4, 8,10) = (/ &
+ & 0.13869E-03_JPRB,0.25332E-03_JPRB,0.35744E-03_JPRB,0.44722E-03_JPRB,0.52464E-03_JPRB, &
+ & 0.59336E-03_JPRB,0.65468E-03_JPRB,0.71201E-03_JPRB,0.64611E-03_JPRB /)  
+KA(:, 5, 8,10) = (/ &
+ & 0.13742E-03_JPRB,0.25367E-03_JPRB,0.35927E-03_JPRB,0.44959E-03_JPRB,0.52752E-03_JPRB, &
+ & 0.59656E-03_JPRB,0.65824E-03_JPRB,0.71554E-03_JPRB,0.65066E-03_JPRB /)  
+KA(:, 1, 9,10) = (/ &
+ & 0.12109E-03_JPRB,0.23210E-03_JPRB,0.32446E-03_JPRB,0.40715E-03_JPRB,0.48065E-03_JPRB, &
+ & 0.54715E-03_JPRB,0.60775E-03_JPRB,0.66825E-03_JPRB,0.18336E-04_JPRB /)  
+KA(:, 2, 9,10) = (/ &
+ & 0.12018E-03_JPRB,0.23207E-03_JPRB,0.32699E-03_JPRB,0.41058E-03_JPRB,0.48505E-03_JPRB, &
+ & 0.55180E-03_JPRB,0.61323E-03_JPRB,0.67309E-03_JPRB,0.24327E-04_JPRB /)  
+KA(:, 3, 9,10) = (/ &
+ & 0.11917E-03_JPRB,0.23229E-03_JPRB,0.32956E-03_JPRB,0.41390E-03_JPRB,0.48910E-03_JPRB, &
+ & 0.55710E-03_JPRB,0.61911E-03_JPRB,0.67851E-03_JPRB,0.23065E-04_JPRB /)  
+KA(:, 4, 9,10) = (/ &
+ & 0.11843E-03_JPRB,0.23292E-03_JPRB,0.33197E-03_JPRB,0.41764E-03_JPRB,0.49354E-03_JPRB, &
+ & 0.56238E-03_JPRB,0.62497E-03_JPRB,0.68395E-03_JPRB,0.23680E-04_JPRB /)  
+KA(:, 5, 9,10) = (/ &
+ & 0.11748E-03_JPRB,0.23365E-03_JPRB,0.33458E-03_JPRB,0.42109E-03_JPRB,0.49774E-03_JPRB, &
+ & 0.56667E-03_JPRB,0.62987E-03_JPRB,0.68909E-03_JPRB,0.25905E-04_JPRB /)  
+KA(:, 1,10,10) = (/ &
+ & 0.10273E-03_JPRB,0.21204E-03_JPRB,0.29794E-03_JPRB,0.37761E-03_JPRB,0.44937E-03_JPRB, &
+ & 0.51495E-03_JPRB,0.57567E-03_JPRB,0.63761E-03_JPRB,0.19724E-04_JPRB /)  
+KA(:, 2,10,10) = (/ &
+ & 0.10190E-03_JPRB,0.21272E-03_JPRB,0.30059E-03_JPRB,0.38150E-03_JPRB,0.45434E-03_JPRB, &
+ & 0.52089E-03_JPRB,0.58270E-03_JPRB,0.64346E-03_JPRB,0.24197E-04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART7',1,ZHOOK_HANDLE)
+END SUBROUTINE PART7
+
+
+SUBROUTINE PART8
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART8',0,ZHOOK_HANDLE)
+
+
+KA(:, 3,10,10) = (/ &
+ & 0.10112E-03_JPRB,0.21334E-03_JPRB,0.30377E-03_JPRB,0.38507E-03_JPRB,0.45917E-03_JPRB, &
+ & 0.52739E-03_JPRB,0.58976E-03_JPRB,0.64941E-03_JPRB,0.34326E-04_JPRB /)  
+KA(:, 4,10,10) = (/ &
+ & 0.10061E-03_JPRB,0.21443E-03_JPRB,0.30659E-03_JPRB,0.38965E-03_JPRB,0.46453E-03_JPRB, &
+ & 0.53354E-03_JPRB,0.59675E-03_JPRB,0.65639E-03_JPRB,0.33702E-04_JPRB /)  
+KA(:, 5,10,10) = (/ &
+ & 0.99890E-04_JPRB,0.21543E-03_JPRB,0.30998E-03_JPRB,0.39375E-03_JPRB,0.46925E-03_JPRB, &
+ & 0.53804E-03_JPRB,0.60223E-03_JPRB,0.66255E-03_JPRB,0.31412E-04_JPRB /)  
+KA(:, 1,11,10) = (/ &
+ & 0.86338E-04_JPRB,0.19398E-03_JPRB,0.27516E-03_JPRB,0.35204E-03_JPRB,0.42116E-03_JPRB, &
+ & 0.48556E-03_JPRB,0.54615E-03_JPRB,0.60927E-03_JPRB,0.19945E-04_JPRB /)  
+KA(:, 2,11,10) = (/ &
+ & 0.85730E-04_JPRB,0.19502E-03_JPRB,0.27834E-03_JPRB,0.35636E-03_JPRB,0.42792E-03_JPRB, &
+ & 0.49403E-03_JPRB,0.55597E-03_JPRB,0.61737E-03_JPRB,0.90093E-05_JPRB /)  
+KA(:, 3,11,10) = (/ &
+ & 0.85275E-04_JPRB,0.19618E-03_JPRB,0.28168E-03_JPRB,0.36165E-03_JPRB,0.43438E-03_JPRB, &
+ & 0.50224E-03_JPRB,0.56492E-03_JPRB,0.62614E-03_JPRB,0.37496E-04_JPRB /)  
+KA(:, 4,11,10) = (/ &
+ & 0.84865E-04_JPRB,0.19761E-03_JPRB,0.28526E-03_JPRB,0.36657E-03_JPRB,0.44042E-03_JPRB, &
+ & 0.50863E-03_JPRB,0.57263E-03_JPRB,0.63413E-03_JPRB,0.15044E-04_JPRB /)  
+KA(:, 5,11,10) = (/ &
+ & 0.84443E-04_JPRB,0.19914E-03_JPRB,0.28886E-03_JPRB,0.37069E-03_JPRB,0.44492E-03_JPRB, &
+ & 0.51377E-03_JPRB,0.57803E-03_JPRB,0.63993E-03_JPRB,0.48683E-04_JPRB /)  
+KA(:, 1,12,10) = (/ &
+ & 0.72237E-04_JPRB,0.17794E-03_JPRB,0.25491E-03_JPRB,0.32737E-03_JPRB,0.39376E-03_JPRB, &
+ & 0.45690E-03_JPRB,0.51684E-03_JPRB,0.58057E-03_JPRB,0.10800E-04_JPRB /)  
+KA(:, 2,12,10) = (/ &
+ & 0.71846E-04_JPRB,0.17916E-03_JPRB,0.25896E-03_JPRB,0.33355E-03_JPRB,0.40234E-03_JPRB, &
+ & 0.46708E-03_JPRB,0.52856E-03_JPRB,0.59174E-03_JPRB,0.37304E-04_JPRB /)  
+KA(:, 3,12,10) = (/ &
+ & 0.71641E-04_JPRB,0.18095E-03_JPRB,0.26291E-03_JPRB,0.34013E-03_JPRB,0.41022E-03_JPRB, &
+ & 0.47645E-03_JPRB,0.53911E-03_JPRB,0.60240E-03_JPRB,0.20066E-04_JPRB /)  
+KA(:, 4,12,10) = (/ &
+ & 0.71337E-04_JPRB,0.18255E-03_JPRB,0.26698E-03_JPRB,0.34557E-03_JPRB,0.41722E-03_JPRB, &
+ & 0.48390E-03_JPRB,0.54753E-03_JPRB,0.61134E-03_JPRB,0.20267E-04_JPRB /)  
+KA(:, 5,12,10) = (/ &
+ & 0.71187E-04_JPRB,0.18456E-03_JPRB,0.27032E-03_JPRB,0.35012E-03_JPRB,0.42265E-03_JPRB, &
+ & 0.49079E-03_JPRB,0.55462E-03_JPRB,0.61760E-03_JPRB,0.29175E-04_JPRB /)  
+KA(:, 1,13,10) = (/ &
+ & 0.60308E-04_JPRB,0.16344E-03_JPRB,0.23674E-03_JPRB,0.30451E-03_JPRB,0.36859E-03_JPRB, &
+ & 0.42973E-03_JPRB,0.48896E-03_JPRB,0.55265E-03_JPRB,0.35870E-04_JPRB /)  
+KA(:, 2,13,10) = (/ &
+ & 0.60075E-04_JPRB,0.16518E-03_JPRB,0.24182E-03_JPRB,0.31202E-03_JPRB,0.37817E-03_JPRB, &
+ & 0.44097E-03_JPRB,0.50163E-03_JPRB,0.56563E-03_JPRB,0.24717E-04_JPRB /)  
+KA(:, 3,13,10) = (/ &
+ & 0.59963E-04_JPRB,0.16736E-03_JPRB,0.24636E-03_JPRB,0.31956E-03_JPRB,0.38717E-03_JPRB, &
+ & 0.45122E-03_JPRB,0.51282E-03_JPRB,0.57786E-03_JPRB,0.24967E-04_JPRB /)  
+KA(:, 4,13,10) = (/ &
+ & 0.59808E-04_JPRB,0.16950E-03_JPRB,0.25081E-03_JPRB,0.32559E-03_JPRB,0.39488E-03_JPRB, &
+ & 0.45992E-03_JPRB,0.52243E-03_JPRB,0.58716E-03_JPRB,0.25073E-04_JPRB /)  
+KA(:, 5,13,10) = (/ &
+ & 0.59738E-04_JPRB,0.17182E-03_JPRB,0.25430E-03_JPRB,0.33121E-03_JPRB,0.40220E-03_JPRB, &
+ & 0.46925E-03_JPRB,0.53224E-03_JPRB,0.59573E-03_JPRB,0.14031E-04_JPRB /)  
+KA(:, 1, 1,11) = (/ &
+ & 0.79109E-03_JPRB,0.77354E-03_JPRB,0.84795E-03_JPRB,0.91837E-03_JPRB,0.98287E-03_JPRB, &
+ & 0.10467E-02_JPRB,0.10876E-02_JPRB,0.10899E-02_JPRB,0.10918E-02_JPRB /)  
+KA(:, 2, 1,11) = (/ &
+ & 0.79035E-03_JPRB,0.76999E-03_JPRB,0.84502E-03_JPRB,0.91315E-03_JPRB,0.97569E-03_JPRB, &
+ & 0.10420E-02_JPRB,0.10843E-02_JPRB,0.10840E-02_JPRB,0.10904E-02_JPRB /)  
+KA(:, 3, 1,11) = (/ &
+ & 0.79094E-03_JPRB,0.76969E-03_JPRB,0.84501E-03_JPRB,0.91212E-03_JPRB,0.97616E-03_JPRB, &
+ & 0.10502E-02_JPRB,0.10978E-02_JPRB,0.10968E-02_JPRB,0.11098E-02_JPRB /)  
+KA(:, 4, 1,11) = (/ &
+ & 0.79012E-03_JPRB,0.76698E-03_JPRB,0.84052E-03_JPRB,0.90224E-03_JPRB,0.96448E-03_JPRB, &
+ & 0.10367E-02_JPRB,0.10810E-02_JPRB,0.10798E-02_JPRB,0.10838E-02_JPRB /)  
+KA(:, 5, 1,11) = (/ &
+ & 0.78840E-03_JPRB,0.76416E-03_JPRB,0.83816E-03_JPRB,0.89971E-03_JPRB,0.96199E-03_JPRB, &
+ & 0.10344E-02_JPRB,0.10796E-02_JPRB,0.10773E-02_JPRB,0.10800E-02_JPRB /)  
+KA(:, 1, 2,11) = (/ &
+ & 0.69789E-03_JPRB,0.72093E-03_JPRB,0.81475E-03_JPRB,0.89922E-03_JPRB,0.96655E-03_JPRB, &
+ & 0.10286E-02_JPRB,0.10852E-02_JPRB,0.10968E-02_JPRB,0.10998E-02_JPRB /)  
+KA(:, 2, 2,11) = (/ &
+ & 0.69799E-03_JPRB,0.71831E-03_JPRB,0.81026E-03_JPRB,0.89390E-03_JPRB,0.96162E-03_JPRB, &
+ & 0.10278E-02_JPRB,0.10853E-02_JPRB,0.10953E-02_JPRB,0.10980E-02_JPRB /)  
+KA(:, 3, 2,11) = (/ &
+ & 0.69849E-03_JPRB,0.71872E-03_JPRB,0.81039E-03_JPRB,0.89368E-03_JPRB,0.96713E-03_JPRB, &
+ & 0.10387E-02_JPRB,0.11003E-02_JPRB,0.11139E-02_JPRB,0.11199E-02_JPRB /)  
+KA(:, 4, 2,11) = (/ &
+ & 0.69786E-03_JPRB,0.71702E-03_JPRB,0.80831E-03_JPRB,0.88926E-03_JPRB,0.96426E-03_JPRB, &
+ & 0.10353E-02_JPRB,0.10976E-02_JPRB,0.11107E-02_JPRB,0.11152E-02_JPRB /)  
+KA(:, 5, 2,11) = (/ &
+ & 0.69639E-03_JPRB,0.71420E-03_JPRB,0.80246E-03_JPRB,0.88289E-03_JPRB,0.95515E-03_JPRB, &
+ & 0.10226E-02_JPRB,0.10812E-02_JPRB,0.10915E-02_JPRB,0.10904E-02_JPRB /)  
+KA(:, 1, 3,11) = (/ &
+ & 0.60717E-03_JPRB,0.66595E-03_JPRB,0.77916E-03_JPRB,0.87509E-03_JPRB,0.95372E-03_JPRB, &
+ & 0.10167E-02_JPRB,0.10820E-02_JPRB,0.11070E-02_JPRB,0.11005E-02_JPRB /)  
+KA(:, 2, 3,11) = (/ &
+ & 0.60740E-03_JPRB,0.66447E-03_JPRB,0.77425E-03_JPRB,0.87078E-03_JPRB,0.95087E-03_JPRB, &
+ & 0.10164E-02_JPRB,0.10820E-02_JPRB,0.11070E-02_JPRB,0.10996E-02_JPRB /)  
+KA(:, 3, 3,11) = (/ &
+ & 0.60743E-03_JPRB,0.66421E-03_JPRB,0.77076E-03_JPRB,0.86668E-03_JPRB,0.94936E-03_JPRB, &
+ & 0.10146E-02_JPRB,0.10809E-02_JPRB,0.11066E-02_JPRB,0.10979E-02_JPRB /)  
+KA(:, 4, 3,11) = (/ &
+ & 0.60721E-03_JPRB,0.66487E-03_JPRB,0.77207E-03_JPRB,0.87093E-03_JPRB,0.95679E-03_JPRB, &
+ & 0.10247E-02_JPRB,0.10950E-02_JPRB,0.11248E-02_JPRB,0.11171E-02_JPRB /)  
+KA(:, 5, 3,11) = (/ &
+ & 0.60632E-03_JPRB,0.66259E-03_JPRB,0.76645E-03_JPRB,0.86469E-03_JPRB,0.94611E-03_JPRB, &
+ & 0.10116E-02_JPRB,0.10778E-02_JPRB,0.11040E-02_JPRB,0.10953E-02_JPRB /)  
+KA(:, 1, 4,11) = (/ &
+ & 0.52196E-03_JPRB,0.61309E-03_JPRB,0.74127E-03_JPRB,0.84825E-03_JPRB,0.93805E-03_JPRB, &
+ & 0.10078E-02_JPRB,0.10732E-02_JPRB,0.11156E-02_JPRB,0.10964E-02_JPRB /)  
+KA(:, 2, 4,11) = (/ &
+ & 0.52205E-03_JPRB,0.61209E-03_JPRB,0.73709E-03_JPRB,0.84586E-03_JPRB,0.93585E-03_JPRB, &
+ & 0.10074E-02_JPRB,0.10727E-02_JPRB,0.11168E-02_JPRB,0.10976E-02_JPRB /)  
+KA(:, 3, 4,11) = (/ &
+ & 0.52218E-03_JPRB,0.61175E-03_JPRB,0.73426E-03_JPRB,0.84316E-03_JPRB,0.93485E-03_JPRB, &
+ & 0.10055E-02_JPRB,0.10718E-02_JPRB,0.11162E-02_JPRB,0.10985E-02_JPRB /)  
+KA(:, 4, 4,11) = (/ &
+ & 0.52176E-03_JPRB,0.61131E-03_JPRB,0.73315E-03_JPRB,0.84162E-03_JPRB,0.93319E-03_JPRB, &
+ & 0.10035E-02_JPRB,0.10709E-02_JPRB,0.11149E-02_JPRB,0.11000E-02_JPRB /)  
+KA(:, 5, 4,11) = (/ &
+ & 0.52100E-03_JPRB,0.61215E-03_JPRB,0.73639E-03_JPRB,0.84868E-03_JPRB,0.94102E-03_JPRB, &
+ & 0.10132E-02_JPRB,0.10822E-02_JPRB,0.11303E-02_JPRB,0.11192E-02_JPRB /)  
+KA(:, 1, 5,11) = (/ &
+ & 0.44537E-03_JPRB,0.56415E-03_JPRB,0.70334E-03_JPRB,0.81986E-03_JPRB,0.91737E-03_JPRB, &
+ & 0.99505E-03_JPRB,0.10590E-02_JPRB,0.11155E-02_JPRB,0.10855E-02_JPRB /)  
+KA(:, 2, 5,11) = (/ &
+ & 0.44499E-03_JPRB,0.56304E-03_JPRB,0.70021E-03_JPRB,0.81824E-03_JPRB,0.91496E-03_JPRB, &
+ & 0.99465E-03_JPRB,0.10577E-02_JPRB,0.11163E-02_JPRB,0.10886E-02_JPRB /)  
+KA(:, 3, 5,11) = (/ &
+ & 0.44481E-03_JPRB,0.56231E-03_JPRB,0.69884E-03_JPRB,0.81557E-03_JPRB,0.91387E-03_JPRB, &
+ & 0.99269E-03_JPRB,0.10566E-02_JPRB,0.11154E-02_JPRB,0.10925E-02_JPRB /)  
+KA(:, 4, 5,11) = (/ &
+ & 0.44459E-03_JPRB,0.56155E-03_JPRB,0.69827E-03_JPRB,0.81462E-03_JPRB,0.91145E-03_JPRB, &
+ & 0.99105E-03_JPRB,0.10558E-02_JPRB,0.11141E-02_JPRB,0.10950E-02_JPRB /)  
+KA(:, 5, 5,11) = (/ &
+ & 0.44401E-03_JPRB,0.56266E-03_JPRB,0.70342E-03_JPRB,0.82262E-03_JPRB,0.92017E-03_JPRB, &
+ & 0.10017E-02_JPRB,0.10686E-02_JPRB,0.11300E-02_JPRB,0.11166E-02_JPRB /)  
+KA(:, 1, 6,11) = (/ &
+ & 0.37714E-03_JPRB,0.51787E-03_JPRB,0.66544E-03_JPRB,0.78793E-03_JPRB,0.89178E-03_JPRB, &
+ & 0.97506E-03_JPRB,0.10421E-02_JPRB,0.11072E-02_JPRB,0.10679E-02_JPRB /)  
+KA(:, 2, 6,11) = (/ &
+ & 0.37645E-03_JPRB,0.51719E-03_JPRB,0.66329E-03_JPRB,0.78619E-03_JPRB,0.88946E-03_JPRB, &
+ & 0.97613E-03_JPRB,0.10421E-02_JPRB,0.11076E-02_JPRB,0.10727E-02_JPRB /)  
+KA(:, 3, 6,11) = (/ &
+ & 0.37621E-03_JPRB,0.51663E-03_JPRB,0.66248E-03_JPRB,0.78421E-03_JPRB,0.88840E-03_JPRB, &
+ & 0.97530E-03_JPRB,0.10423E-02_JPRB,0.11074E-02_JPRB,0.10773E-02_JPRB /)  
+KA(:, 4, 6,11) = (/ &
+ & 0.37625E-03_JPRB,0.51591E-03_JPRB,0.66198E-03_JPRB,0.78342E-03_JPRB,0.88665E-03_JPRB, &
+ & 0.97510E-03_JPRB,0.10427E-02_JPRB,0.11065E-02_JPRB,0.10807E-02_JPRB /)  
+KA(:, 5, 6,11) = (/ &
+ & 0.37578E-03_JPRB,0.51583E-03_JPRB,0.66231E-03_JPRB,0.78322E-03_JPRB,0.88597E-03_JPRB, &
+ & 0.97458E-03_JPRB,0.10416E-02_JPRB,0.11045E-02_JPRB,0.10828E-02_JPRB /)  
+KA(:, 1, 7,11) = (/ &
+ & 0.31849E-03_JPRB,0.47598E-03_JPRB,0.62784E-03_JPRB,0.75245E-03_JPRB,0.86097E-03_JPRB, &
+ & 0.95037E-03_JPRB,0.10228E-02_JPRB,0.10907E-02_JPRB,0.10381E-02_JPRB /)  
+KA(:, 2, 7,11) = (/ &
+ & 0.31748E-03_JPRB,0.47565E-03_JPRB,0.62625E-03_JPRB,0.75127E-03_JPRB,0.86016E-03_JPRB, &
+ & 0.95292E-03_JPRB,0.10249E-02_JPRB,0.10924E-02_JPRB,0.10446E-02_JPRB /)  
+KA(:, 3, 7,11) = (/ &
+ & 0.31709E-03_JPRB,0.47527E-03_JPRB,0.62527E-03_JPRB,0.75044E-03_JPRB,0.86086E-03_JPRB, &
+ & 0.95398E-03_JPRB,0.10272E-02_JPRB,0.10943E-02_JPRB,0.10513E-02_JPRB /)  
+KA(:, 4, 7,11) = (/ &
+ & 0.31690E-03_JPRB,0.47506E-03_JPRB,0.62534E-03_JPRB,0.75023E-03_JPRB,0.86098E-03_JPRB, &
+ & 0.95576E-03_JPRB,0.10298E-02_JPRB,0.10956E-02_JPRB,0.10570E-02_JPRB /)  
+KA(:, 5, 7,11) = (/ &
+ & 0.31661E-03_JPRB,0.47556E-03_JPRB,0.62564E-03_JPRB,0.75129E-03_JPRB,0.86194E-03_JPRB, &
+ & 0.95752E-03_JPRB,0.10312E-02_JPRB,0.10967E-02_JPRB,0.10605E-02_JPRB /)  
+KA(:, 1, 8,11) = (/ &
+ & 0.26920E-03_JPRB,0.43740E-03_JPRB,0.58907E-03_JPRB,0.71604E-03_JPRB,0.82585E-03_JPRB, &
+ & 0.92017E-03_JPRB,0.99828E-03_JPRB,0.10677E-02_JPRB,0.99191E-03_JPRB /)  
+KA(:, 2, 8,11) = (/ &
+ & 0.26802E-03_JPRB,0.43738E-03_JPRB,0.58846E-03_JPRB,0.71590E-03_JPRB,0.82753E-03_JPRB, &
+ & 0.92484E-03_JPRB,0.10036E-02_JPRB,0.10726E-02_JPRB,0.10010E-02_JPRB /)  
+KA(:, 3, 8,11) = (/ &
+ & 0.26738E-03_JPRB,0.43742E-03_JPRB,0.58827E-03_JPRB,0.71679E-03_JPRB,0.83051E-03_JPRB, &
+ & 0.92821E-03_JPRB,0.10079E-02_JPRB,0.10772E-02_JPRB,0.10102E-02_JPRB /)  
+KA(:, 4, 8,11) = (/ &
+ & 0.26701E-03_JPRB,0.43751E-03_JPRB,0.58933E-03_JPRB,0.71793E-03_JPRB,0.83304E-03_JPRB, &
+ & 0.93190E-03_JPRB,0.10124E-02_JPRB,0.10810E-02_JPRB,0.10188E-02_JPRB /)  
+KA(:, 5, 8,11) = (/ &
+ & 0.26686E-03_JPRB,0.43824E-03_JPRB,0.58999E-03_JPRB,0.72050E-03_JPRB,0.83607E-03_JPRB, &
+ & 0.93581E-03_JPRB,0.10160E-02_JPRB,0.10848E-02_JPRB,0.10263E-02_JPRB /)  
+KA(:, 1, 9,11) = (/ &
+ & 0.22904E-03_JPRB,0.40123E-03_JPRB,0.55115E-03_JPRB,0.67712E-03_JPRB,0.78732E-03_JPRB, &
+ & 0.88313E-03_JPRB,0.96568E-03_JPRB,0.10387E-02_JPRB,0.14403E-04_JPRB /)  
+KA(:, 2, 9,11) = (/ &
+ & 0.22775E-03_JPRB,0.40129E-03_JPRB,0.55155E-03_JPRB,0.67918E-03_JPRB,0.79168E-03_JPRB, &
+ & 0.89045E-03_JPRB,0.97356E-03_JPRB,0.10468E-02_JPRB,0.17396E-04_JPRB /)  
+KA(:, 3, 9,11) = (/ &
+ & 0.22691E-03_JPRB,0.40187E-03_JPRB,0.55239E-03_JPRB,0.68238E-03_JPRB,0.79664E-03_JPRB, &
+ & 0.89641E-03_JPRB,0.98013E-03_JPRB,0.10538E-02_JPRB,0.17983E-04_JPRB /)  
+KA(:, 4, 9,11) = (/ &
+ & 0.22637E-03_JPRB,0.40220E-03_JPRB,0.55452E-03_JPRB,0.68525E-03_JPRB,0.80145E-03_JPRB, &
+ & 0.90223E-03_JPRB,0.98673E-03_JPRB,0.10599E-02_JPRB,0.14884E-04_JPRB /)  
+KA(:, 5, 9,11) = (/ &
+ & 0.22595E-03_JPRB,0.40316E-03_JPRB,0.55613E-03_JPRB,0.68950E-03_JPRB,0.80623E-03_JPRB, &
+ & 0.90849E-03_JPRB,0.99244E-03_JPRB,0.10655E-02_JPRB,0.19485E-04_JPRB /)  
+KA(:, 1,10,11) = (/ &
+ & 0.19610E-03_JPRB,0.36707E-03_JPRB,0.51305E-03_JPRB,0.63612E-03_JPRB,0.74337E-03_JPRB, &
+ & 0.83875E-03_JPRB,0.92458E-03_JPRB,0.10007E-02_JPRB,0.30583E-04_JPRB /)  
+KA(:, 2,10,11) = (/ &
+ & 0.19499E-03_JPRB,0.36759E-03_JPRB,0.51501E-03_JPRB,0.64066E-03_JPRB,0.75082E-03_JPRB, &
+ & 0.84853E-03_JPRB,0.93443E-03_JPRB,0.10117E-02_JPRB,0.20484E-04_JPRB /)  
+KA(:, 3,10,11) = (/ &
+ & 0.19427E-03_JPRB,0.36886E-03_JPRB,0.51745E-03_JPRB,0.64625E-03_JPRB,0.75815E-03_JPRB, &
+ & 0.85733E-03_JPRB,0.94303E-03_JPRB,0.10217E-02_JPRB,0.20784E-04_JPRB /)  
+KA(:, 4,10,11) = (/ &
+ & 0.19367E-03_JPRB,0.36958E-03_JPRB,0.52106E-03_JPRB,0.65093E-03_JPRB,0.76545E-03_JPRB, &
+ & 0.86571E-03_JPRB,0.95244E-03_JPRB,0.10301E-02_JPRB,0.30511E-04_JPRB /)  
+KA(:, 5,10,11) = (/ &
+ & 0.19319E-03_JPRB,0.37098E-03_JPRB,0.52409E-03_JPRB,0.65675E-03_JPRB,0.77258E-03_JPRB, &
+ & 0.87491E-03_JPRB,0.96110E-03_JPRB,0.10378E-02_JPRB,0.19883E-04_JPRB /)  
+KA(:, 1,11,11) = (/ &
+ & 0.16767E-03_JPRB,0.33624E-03_JPRB,0.47635E-03_JPRB,0.59543E-03_JPRB,0.70301E-03_JPRB, &
+ & 0.79872E-03_JPRB,0.88652E-03_JPRB,0.96550E-03_JPRB,0.27483E-04_JPRB /)  
+KA(:, 2,11,11) = (/ &
+ & 0.16687E-03_JPRB,0.33764E-03_JPRB,0.48055E-03_JPRB,0.60283E-03_JPRB,0.71186E-03_JPRB, &
+ & 0.80978E-03_JPRB,0.89673E-03_JPRB,0.97758E-03_JPRB,0.20639E-04_JPRB /)  
+KA(:, 3,11,11) = (/ &
+ & 0.16664E-03_JPRB,0.33942E-03_JPRB,0.48524E-03_JPRB,0.60962E-03_JPRB,0.72075E-03_JPRB, &
+ & 0.81953E-03_JPRB,0.90753E-03_JPRB,0.98729E-03_JPRB,0.27689E-04_JPRB /)  
+KA(:, 4,11,11) = (/ &
+ & 0.16611E-03_JPRB,0.34104E-03_JPRB,0.48994E-03_JPRB,0.61708E-03_JPRB,0.72992E-03_JPRB, &
+ & 0.83047E-03_JPRB,0.91898E-03_JPRB,0.99769E-03_JPRB,0.13719E-04_JPRB /)  
+KA(:, 5,11,11) = (/ &
+ & 0.16596E-03_JPRB,0.34313E-03_JPRB,0.49467E-03_JPRB,0.62538E-03_JPRB,0.73960E-03_JPRB, &
+ & 0.84171E-03_JPRB,0.92999E-03_JPRB,0.10075E-02_JPRB,0.27137E-04_JPRB /)  
+KA(:, 1,12,11) = (/ &
+ & 0.14282E-03_JPRB,0.30890E-03_JPRB,0.44183E-03_JPRB,0.55831E-03_JPRB,0.66503E-03_JPRB, &
+ & 0.76077E-03_JPRB,0.84890E-03_JPRB,0.93128E-03_JPRB,0.21228E-04_JPRB /)  
+KA(:, 2,12,11) = (/ &
+ & 0.14255E-03_JPRB,0.31125E-03_JPRB,0.44731E-03_JPRB,0.56685E-03_JPRB,0.67491E-03_JPRB, &
+ & 0.77277E-03_JPRB,0.86092E-03_JPRB,0.94274E-03_JPRB,0.32331E-04_JPRB /)  
+KA(:, 3,12,11) = (/ &
+ & 0.14244E-03_JPRB,0.31334E-03_JPRB,0.45354E-03_JPRB,0.57479E-03_JPRB,0.68552E-03_JPRB, &
+ & 0.78420E-03_JPRB,0.87396E-03_JPRB,0.95434E-03_JPRB,0.19978E-06_JPRB /)  
+KA(:, 4,12,11) = (/ &
+ & 0.14239E-03_JPRB,0.31614E-03_JPRB,0.45984E-03_JPRB,0.58419E-03_JPRB,0.69607E-03_JPRB, &
+ & 0.79750E-03_JPRB,0.88765E-03_JPRB,0.96637E-03_JPRB,0.21475E-04_JPRB /)  
+KA(:, 5,12,11) = (/ &
+ & 0.14252E-03_JPRB,0.31876E-03_JPRB,0.46658E-03_JPRB,0.59385E-03_JPRB,0.70775E-03_JPRB, &
+ & 0.80986E-03_JPRB,0.90037E-03_JPRB,0.97814E-03_JPRB,0.21476E-04_JPRB /)  
+KA(:, 1,13,11) = (/ &
+ & 0.12125E-03_JPRB,0.28444E-03_JPRB,0.41080E-03_JPRB,0.52444E-03_JPRB,0.62932E-03_JPRB, &
+ & 0.72481E-03_JPRB,0.81245E-03_JPRB,0.89716E-03_JPRB,0.27405E-04_JPRB /)  
+KA(:, 2,13,11) = (/ &
+ & 0.12138E-03_JPRB,0.28788E-03_JPRB,0.41712E-03_JPRB,0.53396E-03_JPRB,0.64078E-03_JPRB, &
+ & 0.73819E-03_JPRB,0.82737E-03_JPRB,0.91020E-03_JPRB,0.13699E-04_JPRB /)  
+KA(:, 3,13,11) = (/ &
+ & 0.12142E-03_JPRB,0.29086E-03_JPRB,0.42441E-03_JPRB,0.54338E-03_JPRB,0.65260E-03_JPRB, &
+ & 0.75224E-03_JPRB,0.84352E-03_JPRB,0.92398E-03_JPRB,0.13820E-04_JPRB /)  
+KA(:, 4,13,11) = (/ &
+ & 0.12174E-03_JPRB,0.29430E-03_JPRB,0.43176E-03_JPRB,0.55440E-03_JPRB,0.66546E-03_JPRB, &
+ & 0.76738E-03_JPRB,0.85914E-03_JPRB,0.93821E-03_JPRB,0.26505E-06_JPRB /)  
+KA(:, 5,13,11) = (/ &
+ & 0.12197E-03_JPRB,0.29750E-03_JPRB,0.43989E-03_JPRB,0.56500E-03_JPRB,0.67844E-03_JPRB, &
+ & 0.78071E-03_JPRB,0.87280E-03_JPRB,0.95108E-03_JPRB,0.33764E-06_JPRB /)  
+KA(:, 1, 1,12) = (/ &
+ & 0.15537E-02_JPRB,0.13818E-02_JPRB,0.14273E-02_JPRB,0.15055E-02_JPRB,0.15786E-02_JPRB, &
+ & 0.16339E-02_JPRB,0.16467E-02_JPRB,0.15800E-02_JPRB,0.16050E-02_JPRB /)  
+KA(:, 2, 1,12) = (/ &
+ & 0.15485E-02_JPRB,0.13765E-02_JPRB,0.14181E-02_JPRB,0.14978E-02_JPRB,0.15727E-02_JPRB, &
+ & 0.16256E-02_JPRB,0.16371E-02_JPRB,0.15728E-02_JPRB,0.16005E-02_JPRB /)  
+KA(:, 3, 1,12) = (/ &
+ & 0.15437E-02_JPRB,0.13722E-02_JPRB,0.14122E-02_JPRB,0.14971E-02_JPRB,0.15752E-02_JPRB, &
+ & 0.16261E-02_JPRB,0.16396E-02_JPRB,0.15797E-02_JPRB,0.16209E-02_JPRB /)  
+KA(:, 4, 1,12) = (/ &
+ & 0.15424E-02_JPRB,0.13691E-02_JPRB,0.14015E-02_JPRB,0.14839E-02_JPRB,0.15593E-02_JPRB, &
+ & 0.16040E-02_JPRB,0.16150E-02_JPRB,0.15487E-02_JPRB,0.15957E-02_JPRB /)  
+KA(:, 5, 1,12) = (/ &
+ & 0.15425E-02_JPRB,0.13681E-02_JPRB,0.13961E-02_JPRB,0.14766E-02_JPRB,0.15502E-02_JPRB, &
+ & 0.15943E-02_JPRB,0.16046E-02_JPRB,0.15376E-02_JPRB,0.15923E-02_JPRB /)  
+KA(:, 1, 2,12) = (/ &
+ & 0.14274E-02_JPRB,0.13101E-02_JPRB,0.13901E-02_JPRB,0.14665E-02_JPRB,0.15597E-02_JPRB, &
+ & 0.16365E-02_JPRB,0.16682E-02_JPRB,0.16286E-02_JPRB,0.16381E-02_JPRB /)  
+KA(:, 2, 2,12) = (/ &
+ & 0.14223E-02_JPRB,0.13039E-02_JPRB,0.13828E-02_JPRB,0.14629E-02_JPRB,0.15522E-02_JPRB, &
+ & 0.16256E-02_JPRB,0.16567E-02_JPRB,0.16183E-02_JPRB,0.16362E-02_JPRB /)  
+KA(:, 3, 2,12) = (/ &
+ & 0.14195E-02_JPRB,0.12999E-02_JPRB,0.13791E-02_JPRB,0.14641E-02_JPRB,0.15538E-02_JPRB, &
+ & 0.16259E-02_JPRB,0.16605E-02_JPRB,0.16235E-02_JPRB,0.16585E-02_JPRB /)  
+KA(:, 4, 2,12) = (/ &
+ & 0.14181E-02_JPRB,0.12958E-02_JPRB,0.13726E-02_JPRB,0.14576E-02_JPRB,0.15447E-02_JPRB, &
+ & 0.16149E-02_JPRB,0.16487E-02_JPRB,0.16101E-02_JPRB,0.16540E-02_JPRB /)  
+KA(:, 5, 2,12) = (/ &
+ & 0.14191E-02_JPRB,0.12933E-02_JPRB,0.13650E-02_JPRB,0.14448E-02_JPRB,0.15270E-02_JPRB, &
+ & 0.15959E-02_JPRB,0.16273E-02_JPRB,0.15850E-02_JPRB,0.16279E-02_JPRB /)  
+KA(:, 1, 3,12) = (/ &
+ & 0.12975E-02_JPRB,0.12495E-02_JPRB,0.13516E-02_JPRB,0.14440E-02_JPRB,0.15390E-02_JPRB, &
+ & 0.16298E-02_JPRB,0.16807E-02_JPRB,0.16634E-02_JPRB,0.16697E-02_JPRB /)  
+KA(:, 2, 3,12) = (/ &
+ & 0.12938E-02_JPRB,0.12434E-02_JPRB,0.13457E-02_JPRB,0.14406E-02_JPRB,0.15301E-02_JPRB, &
+ & 0.16196E-02_JPRB,0.16709E-02_JPRB,0.16534E-02_JPRB,0.16671E-02_JPRB /)  
+KA(:, 3, 3,12) = (/ &
+ & 0.12920E-02_JPRB,0.12378E-02_JPRB,0.13412E-02_JPRB,0.14340E-02_JPRB,0.15221E-02_JPRB, &
+ & 0.16094E-02_JPRB,0.16610E-02_JPRB,0.16426E-02_JPRB,0.16655E-02_JPRB /)  
+KA(:, 4, 3,12) = (/ &
+ & 0.12905E-02_JPRB,0.12343E-02_JPRB,0.13399E-02_JPRB,0.14335E-02_JPRB,0.15224E-02_JPRB, &
+ & 0.16137E-02_JPRB,0.16692E-02_JPRB,0.16519E-02_JPRB,0.16891E-02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART8',1,ZHOOK_HANDLE)
+END SUBROUTINE PART8
+
+
+SUBROUTINE PART9
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART9',0,ZHOOK_HANDLE)
+
+
+KA(:, 5, 3,12) = (/ &
+ & 0.12916E-02_JPRB,0.12305E-02_JPRB,0.13333E-02_JPRB,0.14197E-02_JPRB,0.15049E-02_JPRB, &
+ & 0.15945E-02_JPRB,0.16481E-02_JPRB,0.16282E-02_JPRB,0.16593E-02_JPRB /)  
+KA(:, 1, 4,12) = (/ &
+ & 0.11586E-02_JPRB,0.11791E-02_JPRB,0.13059E-02_JPRB,0.14246E-02_JPRB,0.15191E-02_JPRB, &
+ & 0.16155E-02_JPRB,0.16888E-02_JPRB,0.16884E-02_JPRB,0.16900E-02_JPRB /)  
+KA(:, 2, 4,12) = (/ &
+ & 0.11563E-02_JPRB,0.11735E-02_JPRB,0.13020E-02_JPRB,0.14191E-02_JPRB,0.15117E-02_JPRB, &
+ & 0.16067E-02_JPRB,0.16804E-02_JPRB,0.16804E-02_JPRB,0.16885E-02_JPRB /)  
+KA(:, 3, 4,12) = (/ &
+ & 0.11547E-02_JPRB,0.11684E-02_JPRB,0.12989E-02_JPRB,0.14121E-02_JPRB,0.15049E-02_JPRB, &
+ & 0.15986E-02_JPRB,0.16736E-02_JPRB,0.16742E-02_JPRB,0.16864E-02_JPRB /)  
+KA(:, 4, 4,12) = (/ &
+ & 0.11549E-02_JPRB,0.11640E-02_JPRB,0.12947E-02_JPRB,0.14053E-02_JPRB,0.14971E-02_JPRB, &
+ & 0.15940E-02_JPRB,0.16690E-02_JPRB,0.16701E-02_JPRB,0.16826E-02_JPRB /)  
+KA(:, 5, 4,12) = (/ &
+ & 0.11568E-02_JPRB,0.11629E-02_JPRB,0.12947E-02_JPRB,0.14048E-02_JPRB,0.15017E-02_JPRB, &
+ & 0.16054E-02_JPRB,0.16836E-02_JPRB,0.16886E-02_JPRB,0.17044E-02_JPRB /)  
+KA(:, 1, 5,12) = (/ &
+ & 0.10197E-02_JPRB,0.11002E-02_JPRB,0.12563E-02_JPRB,0.13948E-02_JPRB,0.15048E-02_JPRB, &
+ & 0.16026E-02_JPRB,0.16898E-02_JPRB,0.17082E-02_JPRB,0.17013E-02_JPRB /)  
+KA(:, 2, 5,12) = (/ &
+ & 0.10187E-02_JPRB,0.10963E-02_JPRB,0.12532E-02_JPRB,0.13909E-02_JPRB,0.14993E-02_JPRB, &
+ & 0.15953E-02_JPRB,0.16843E-02_JPRB,0.17040E-02_JPRB,0.16991E-02_JPRB /)  
+KA(:, 3, 5,12) = (/ &
+ & 0.10179E-02_JPRB,0.10925E-02_JPRB,0.12502E-02_JPRB,0.13858E-02_JPRB,0.14932E-02_JPRB, &
+ & 0.15900E-02_JPRB,0.16803E-02_JPRB,0.17019E-02_JPRB,0.16952E-02_JPRB /)  
+KA(:, 4, 5,12) = (/ &
+ & 0.10188E-02_JPRB,0.10896E-02_JPRB,0.12461E-02_JPRB,0.13806E-02_JPRB,0.14878E-02_JPRB, &
+ & 0.15873E-02_JPRB,0.16767E-02_JPRB,0.17001E-02_JPRB,0.16925E-02_JPRB /)  
+KA(:, 5, 5,12) = (/ &
+ & 0.10211E-02_JPRB,0.10901E-02_JPRB,0.12464E-02_JPRB,0.13834E-02_JPRB,0.14970E-02_JPRB, &
+ & 0.16026E-02_JPRB,0.16952E-02_JPRB,0.17210E-02_JPRB,0.17180E-02_JPRB /)  
+KA(:, 1, 6,12) = (/ &
+ & 0.88455E-03_JPRB,0.10185E-02_JPRB,0.12021E-02_JPRB,0.13605E-02_JPRB,0.14894E-02_JPRB, &
+ & 0.15922E-02_JPRB,0.16870E-02_JPRB,0.17277E-02_JPRB,0.17006E-02_JPRB /)  
+KA(:, 2, 6,12) = (/ &
+ & 0.88487E-03_JPRB,0.10158E-02_JPRB,0.12001E-02_JPRB,0.13587E-02_JPRB,0.14854E-02_JPRB, &
+ & 0.15856E-02_JPRB,0.16819E-02_JPRB,0.17253E-02_JPRB,0.17001E-02_JPRB /)  
+KA(:, 3, 6,12) = (/ &
+ & 0.88512E-03_JPRB,0.10136E-02_JPRB,0.11981E-02_JPRB,0.13544E-02_JPRB,0.14820E-02_JPRB, &
+ & 0.15811E-02_JPRB,0.16785E-02_JPRB,0.17233E-02_JPRB,0.16989E-02_JPRB /)  
+KA(:, 4, 6,12) = (/ &
+ & 0.88698E-03_JPRB,0.10127E-02_JPRB,0.11948E-02_JPRB,0.13505E-02_JPRB,0.14784E-02_JPRB, &
+ & 0.15789E-02_JPRB,0.16749E-02_JPRB,0.17211E-02_JPRB,0.16988E-02_JPRB /)  
+KA(:, 5, 6,12) = (/ &
+ & 0.88923E-03_JPRB,0.10128E-02_JPRB,0.11919E-02_JPRB,0.13468E-02_JPRB,0.14756E-02_JPRB, &
+ & 0.15764E-02_JPRB,0.16734E-02_JPRB,0.17190E-02_JPRB,0.16990E-02_JPRB /)  
+KA(:, 1, 7,12) = (/ &
+ & 0.75937E-03_JPRB,0.93876E-03_JPRB,0.11443E-02_JPRB,0.13228E-02_JPRB,0.14681E-02_JPRB, &
+ & 0.15807E-02_JPRB,0.16771E-02_JPRB,0.17403E-02_JPRB,0.16920E-02_JPRB /)  
+KA(:, 2, 7,12) = (/ &
+ & 0.75998E-03_JPRB,0.93770E-03_JPRB,0.11447E-02_JPRB,0.13222E-02_JPRB,0.14656E-02_JPRB, &
+ & 0.15751E-02_JPRB,0.16722E-02_JPRB,0.17374E-02_JPRB,0.16943E-02_JPRB /)  
+KA(:, 3, 7,12) = (/ &
+ & 0.76057E-03_JPRB,0.93698E-03_JPRB,0.11442E-02_JPRB,0.13192E-02_JPRB,0.14630E-02_JPRB, &
+ & 0.15711E-02_JPRB,0.16684E-02_JPRB,0.17351E-02_JPRB,0.16966E-02_JPRB /)  
+KA(:, 4, 7,12) = (/ &
+ & 0.76306E-03_JPRB,0.93700E-03_JPRB,0.11417E-02_JPRB,0.13175E-02_JPRB,0.14605E-02_JPRB, &
+ & 0.15679E-02_JPRB,0.16649E-02_JPRB,0.17327E-02_JPRB,0.16998E-02_JPRB /)  
+KA(:, 5, 7,12) = (/ &
+ & 0.76563E-03_JPRB,0.93740E-03_JPRB,0.11401E-02_JPRB,0.13155E-02_JPRB,0.14583E-02_JPRB, &
+ & 0.15655E-02_JPRB,0.16637E-02_JPRB,0.17306E-02_JPRB,0.17045E-02_JPRB /)  
+KA(:, 1, 8,12) = (/ &
+ & 0.64586E-03_JPRB,0.86421E-03_JPRB,0.10884E-02_JPRB,0.12806E-02_JPRB,0.14383E-02_JPRB, &
+ & 0.15636E-02_JPRB,0.16605E-02_JPRB,0.17434E-02_JPRB,0.16711E-02_JPRB /)  
+KA(:, 2, 8,12) = (/ &
+ & 0.64665E-03_JPRB,0.86473E-03_JPRB,0.10896E-02_JPRB,0.12820E-02_JPRB,0.14363E-02_JPRB, &
+ & 0.15592E-02_JPRB,0.16561E-02_JPRB,0.17403E-02_JPRB,0.16771E-02_JPRB /)  
+KA(:, 3, 8,12) = (/ &
+ & 0.64816E-03_JPRB,0.86506E-03_JPRB,0.10903E-02_JPRB,0.12802E-02_JPRB,0.14357E-02_JPRB, &
+ & 0.15554E-02_JPRB,0.16529E-02_JPRB,0.17367E-02_JPRB,0.16846E-02_JPRB /)  
+KA(:, 4, 8,12) = (/ &
+ & 0.65115E-03_JPRB,0.86561E-03_JPRB,0.10893E-02_JPRB,0.12797E-02_JPRB,0.14336E-02_JPRB, &
+ & 0.15533E-02_JPRB,0.16505E-02_JPRB,0.17349E-02_JPRB,0.16920E-02_JPRB /)  
+KA(:, 5, 8,12) = (/ &
+ & 0.65335E-03_JPRB,0.86692E-03_JPRB,0.10897E-02_JPRB,0.12788E-02_JPRB,0.14323E-02_JPRB, &
+ & 0.15519E-02_JPRB,0.16494E-02_JPRB,0.17328E-02_JPRB,0.17005E-02_JPRB /)  
+KA(:, 1, 9,12) = (/ &
+ & 0.54495E-03_JPRB,0.79374E-03_JPRB,0.10331E-02_JPRB,0.12325E-02_JPRB,0.13999E-02_JPRB, &
+ & 0.15343E-02_JPRB,0.16359E-02_JPRB,0.17304E-02_JPRB,0.88289E-03_JPRB /)  
+KA(:, 2, 9,12) = (/ &
+ & 0.54631E-03_JPRB,0.79621E-03_JPRB,0.10351E-02_JPRB,0.12356E-02_JPRB,0.13999E-02_JPRB, &
+ & 0.15332E-02_JPRB,0.16343E-02_JPRB,0.17287E-02_JPRB,0.90009E-03_JPRB /)  
+KA(:, 3, 9,12) = (/ &
+ & 0.54838E-03_JPRB,0.79738E-03_JPRB,0.10366E-02_JPRB,0.12358E-02_JPRB,0.14008E-02_JPRB, &
+ & 0.15312E-02_JPRB,0.16325E-02_JPRB,0.17267E-02_JPRB,0.91715E-03_JPRB /)  
+KA(:, 4, 9,12) = (/ &
+ & 0.55103E-03_JPRB,0.79925E-03_JPRB,0.10373E-02_JPRB,0.12370E-02_JPRB,0.14003E-02_JPRB, &
+ & 0.15313E-02_JPRB,0.16317E-02_JPRB,0.17265E-02_JPRB,0.93948E-03_JPRB /)  
+KA(:, 5, 9,12) = (/ &
+ & 0.55358E-03_JPRB,0.80158E-03_JPRB,0.10391E-02_JPRB,0.12370E-02_JPRB,0.14008E-02_JPRB, &
+ & 0.15320E-02_JPRB,0.16328E-02_JPRB,0.17271E-02_JPRB,0.97099E-03_JPRB /)  
+KA(:, 1,10,12) = (/ &
+ & 0.45828E-03_JPRB,0.73128E-03_JPRB,0.97725E-03_JPRB,0.11801E-02_JPRB,0.13541E-02_JPRB, &
+ & 0.14966E-02_JPRB,0.16059E-02_JPRB,0.17081E-02_JPRB,0.25261E-04_JPRB /)  
+KA(:, 2,10,12) = (/ &
+ & 0.45994E-03_JPRB,0.73433E-03_JPRB,0.98047E-03_JPRB,0.11852E-02_JPRB,0.13571E-02_JPRB, &
+ & 0.14993E-02_JPRB,0.16071E-02_JPRB,0.17093E-02_JPRB,0.32778E-04_JPRB /)  
+KA(:, 3,10,12) = (/ &
+ & 0.46172E-03_JPRB,0.73698E-03_JPRB,0.98332E-03_JPRB,0.11877E-02_JPRB,0.13607E-02_JPRB, &
+ & 0.15001E-02_JPRB,0.16089E-02_JPRB,0.17098E-02_JPRB,0.30108E-04_JPRB /)  
+KA(:, 4,10,12) = (/ &
+ & 0.46419E-03_JPRB,0.73967E-03_JPRB,0.98568E-03_JPRB,0.11903E-02_JPRB,0.13620E-02_JPRB, &
+ & 0.15042E-02_JPRB,0.16117E-02_JPRB,0.17131E-02_JPRB,0.14814E-04_JPRB /)  
+KA(:, 5,10,12) = (/ &
+ & 0.46710E-03_JPRB,0.74287E-03_JPRB,0.98852E-03_JPRB,0.11927E-02_JPRB,0.13653E-02_JPRB, &
+ & 0.15080E-02_JPRB,0.16153E-02_JPRB,0.17174E-02_JPRB,0.18206E-04_JPRB /)  
+KA(:, 1,11,12) = (/ &
+ & 0.38711E-03_JPRB,0.67660E-03_JPRB,0.92352E-03_JPRB,0.11285E-02_JPRB,0.13042E-02_JPRB, &
+ & 0.14533E-02_JPRB,0.15680E-02_JPRB,0.16768E-02_JPRB,0.35375E-04_JPRB /)  
+KA(:, 2,11,12) = (/ &
+ & 0.38827E-03_JPRB,0.68076E-03_JPRB,0.92811E-03_JPRB,0.11355E-02_JPRB,0.13110E-02_JPRB, &
+ & 0.14578E-02_JPRB,0.15732E-02_JPRB,0.16802E-02_JPRB,0.17785E-04_JPRB /)  
+KA(:, 3,11,12) = (/ &
+ & 0.39017E-03_JPRB,0.68339E-03_JPRB,0.93243E-03_JPRB,0.11404E-02_JPRB,0.13179E-02_JPRB, &
+ & 0.14648E-02_JPRB,0.15809E-02_JPRB,0.16870E-02_JPRB,0.17310E-04_JPRB /)  
+KA(:, 4,11,12) = (/ &
+ & 0.39259E-03_JPRB,0.68706E-03_JPRB,0.93609E-03_JPRB,0.11451E-02_JPRB,0.13243E-02_JPRB, &
+ & 0.14746E-02_JPRB,0.15892E-02_JPRB,0.16958E-02_JPRB,0.17795E-04_JPRB /)  
+KA(:, 5,11,12) = (/ &
+ & 0.39544E-03_JPRB,0.69011E-03_JPRB,0.94016E-03_JPRB,0.11496E-02_JPRB,0.13318E-02_JPRB, &
+ & 0.14825E-02_JPRB,0.15980E-02_JPRB,0.17052E-02_JPRB,0.87581E-05_JPRB /)  
+KA(:, 1,12,12) = (/ &
+ & 0.32882E-03_JPRB,0.62658E-03_JPRB,0.87124E-03_JPRB,0.10770E-02_JPRB,0.12526E-02_JPRB, &
+ & 0.14042E-02_JPRB,0.15246E-02_JPRB,0.16367E-02_JPRB,0.13823E-04_JPRB /)  
+KA(:, 2,12,12) = (/ &
+ & 0.33008E-03_JPRB,0.63068E-03_JPRB,0.87790E-03_JPRB,0.10857E-02_JPRB,0.12638E-02_JPRB, &
+ & 0.14155E-02_JPRB,0.15376E-02_JPRB,0.16473E-02_JPRB,0.27356E-04_JPRB /)  
+KA(:, 3,12,12) = (/ &
+ & 0.33191E-03_JPRB,0.63479E-03_JPRB,0.88401E-03_JPRB,0.10939E-02_JPRB,0.12749E-02_JPRB, &
+ & 0.14298E-02_JPRB,0.15521E-02_JPRB,0.16615E-02_JPRB,0.26924E-04_JPRB /)  
+KA(:, 4,12,12) = (/ &
+ & 0.33384E-03_JPRB,0.63914E-03_JPRB,0.88945E-03_JPRB,0.11023E-02_JPRB,0.12871E-02_JPRB, &
+ & 0.14439E-02_JPRB,0.15651E-02_JPRB,0.16755E-02_JPRB,0.13486E-04_JPRB /)  
+KA(:, 5,12,12) = (/ &
+ & 0.33630E-03_JPRB,0.64288E-03_JPRB,0.89554E-03_JPRB,0.11106E-02_JPRB,0.12985E-02_JPRB, &
+ & 0.14567E-02_JPRB,0.15792E-02_JPRB,0.16910E-02_JPRB,0.54470E-04_JPRB /)  
+KA(:, 1,13,12) = (/ &
+ & 0.28179E-03_JPRB,0.58039E-03_JPRB,0.82131E-03_JPRB,0.10258E-02_JPRB,0.12001E-02_JPRB, &
+ & 0.13522E-02_JPRB,0.14762E-02_JPRB,0.15892E-02_JPRB,0.17365E-04_JPRB /)  
+KA(:, 2,13,12) = (/ &
+ & 0.28322E-03_JPRB,0.58517E-03_JPRB,0.83048E-03_JPRB,0.10376E-02_JPRB,0.12180E-02_JPRB, &
+ & 0.13721E-02_JPRB,0.14980E-02_JPRB,0.16092E-02_JPRB,0.19167E-10_JPRB /)  
+KA(:, 3,13,12) = (/ &
+ & 0.28449E-03_JPRB,0.59004E-03_JPRB,0.83867E-03_JPRB,0.10495E-02_JPRB,0.12349E-02_JPRB, &
+ & 0.13937E-02_JPRB,0.15189E-02_JPRB,0.16302E-02_JPRB,0.17686E-04_JPRB /)  
+KA(:, 4,13,12) = (/ &
+ & 0.28623E-03_JPRB,0.59506E-03_JPRB,0.84661E-03_JPRB,0.10616E-02_JPRB,0.12511E-02_JPRB, &
+ & 0.14124E-02_JPRB,0.15380E-02_JPRB,0.16505E-02_JPRB,0.27174E-10_JPRB /)  
+KA(:, 5,13,12) = (/ &
+ & 0.28834E-03_JPRB,0.60000E-03_JPRB,0.85510E-03_JPRB,0.10735E-02_JPRB,0.12664E-02_JPRB, &
+ & 0.14298E-02_JPRB,0.15583E-02_JPRB,0.16724E-02_JPRB,0.30930E-10_JPRB /)  
+KA(:, 1, 1,13) = (/ &
+ & 0.39229E-02_JPRB,0.34326E-02_JPRB,0.30162E-02_JPRB,0.28699E-02_JPRB,0.28381E-02_JPRB, &
+ & 0.27734E-02_JPRB,0.26260E-02_JPRB,0.23062E-02_JPRB,0.25522E-02_JPRB /)  
+KA(:, 2, 1,13) = (/ &
+ & 0.39213E-02_JPRB,0.34310E-02_JPRB,0.30108E-02_JPRB,0.28565E-02_JPRB,0.28216E-02_JPRB, &
+ & 0.27552E-02_JPRB,0.26075E-02_JPRB,0.22956E-02_JPRB,0.25296E-02_JPRB /)  
+KA(:, 3, 1,13) = (/ &
+ & 0.39180E-02_JPRB,0.34283E-02_JPRB,0.30095E-02_JPRB,0.28490E-02_JPRB,0.28140E-02_JPRB, &
+ & 0.27516E-02_JPRB,0.26057E-02_JPRB,0.23031E-02_JPRB,0.25320E-02_JPRB /)  
+KA(:, 4, 1,13) = (/ &
+ & 0.39161E-02_JPRB,0.34265E-02_JPRB,0.30039E-02_JPRB,0.28320E-02_JPRB,0.27864E-02_JPRB, &
+ & 0.27263E-02_JPRB,0.25779E-02_JPRB,0.22767E-02_JPRB,0.24834E-02_JPRB /)  
+KA(:, 5, 1,13) = (/ &
+ & 0.39129E-02_JPRB,0.34239E-02_JPRB,0.29985E-02_JPRB,0.28202E-02_JPRB,0.27725E-02_JPRB, &
+ & 0.27107E-02_JPRB,0.25647E-02_JPRB,0.22654E-02_JPRB,0.24632E-02_JPRB /)  
+KA(:, 1, 2,13) = (/ &
+ & 0.35717E-02_JPRB,0.31250E-02_JPRB,0.28583E-02_JPRB,0.28716E-02_JPRB,0.28885E-02_JPRB, &
+ & 0.28569E-02_JPRB,0.27419E-02_JPRB,0.24528E-02_JPRB,0.26589E-02_JPRB /)  
+KA(:, 2, 2,13) = (/ &
+ & 0.35704E-02_JPRB,0.31241E-02_JPRB,0.28509E-02_JPRB,0.28521E-02_JPRB,0.28717E-02_JPRB, &
+ & 0.28411E-02_JPRB,0.27277E-02_JPRB,0.24440E-02_JPRB,0.26352E-02_JPRB /)  
+KA(:, 3, 2,13) = (/ &
+ & 0.35692E-02_JPRB,0.31228E-02_JPRB,0.28479E-02_JPRB,0.28438E-02_JPRB,0.28636E-02_JPRB, &
+ & 0.28419E-02_JPRB,0.27327E-02_JPRB,0.24542E-02_JPRB,0.26382E-02_JPRB /)  
+KA(:, 4, 2,13) = (/ &
+ & 0.35651E-02_JPRB,0.31194E-02_JPRB,0.28382E-02_JPRB,0.28288E-02_JPRB,0.28472E-02_JPRB, &
+ & 0.28288E-02_JPRB,0.27211E-02_JPRB,0.24428E-02_JPRB,0.26140E-02_JPRB /)  
+KA(:, 5, 2,13) = (/ &
+ & 0.35614E-02_JPRB,0.31162E-02_JPRB,0.28280E-02_JPRB,0.28080E-02_JPRB,0.28270E-02_JPRB, &
+ & 0.28018E-02_JPRB,0.26919E-02_JPRB,0.24122E-02_JPRB,0.25721E-02_JPRB /)  
+KA(:, 1, 3,13) = (/ &
+ & 0.32370E-02_JPRB,0.28408E-02_JPRB,0.27429E-02_JPRB,0.28459E-02_JPRB,0.29107E-02_JPRB, &
+ & 0.29163E-02_JPRB,0.28452E-02_JPRB,0.26013E-02_JPRB,0.27589E-02_JPRB /)  
+KA(:, 2, 3,13) = (/ &
+ & 0.32378E-02_JPRB,0.28409E-02_JPRB,0.27346E-02_JPRB,0.28282E-02_JPRB,0.28967E-02_JPRB, &
+ & 0.29036E-02_JPRB,0.28357E-02_JPRB,0.25912E-02_JPRB,0.27381E-02_JPRB /)  
+KA(:, 3, 3,13) = (/ &
+ & 0.32344E-02_JPRB,0.28366E-02_JPRB,0.27224E-02_JPRB,0.28159E-02_JPRB,0.28824E-02_JPRB, &
+ & 0.28940E-02_JPRB,0.28268E-02_JPRB,0.25801E-02_JPRB,0.27164E-02_JPRB /)  
+KA(:, 4, 3,13) = (/ &
+ & 0.32328E-02_JPRB,0.28349E-02_JPRB,0.27139E-02_JPRB,0.28071E-02_JPRB,0.28820E-02_JPRB, &
+ & 0.28985E-02_JPRB,0.28328E-02_JPRB,0.25870E-02_JPRB,0.27280E-02_JPRB /)  
+KA(:, 5, 3,13) = (/ &
+ & 0.32337E-02_JPRB,0.28348E-02_JPRB,0.27027E-02_JPRB,0.27877E-02_JPRB,0.28613E-02_JPRB, &
+ & 0.28723E-02_JPRB,0.28004E-02_JPRB,0.25498E-02_JPRB,0.26848E-02_JPRB /)  
+KA(:, 1, 4,13) = (/ &
+ & 0.29442E-02_JPRB,0.26158E-02_JPRB,0.26686E-02_JPRB,0.28002E-02_JPRB,0.29074E-02_JPRB, &
+ & 0.29569E-02_JPRB,0.29354E-02_JPRB,0.27381E-02_JPRB,0.28491E-02_JPRB /)  
+KA(:, 2, 4,13) = (/ &
+ & 0.29416E-02_JPRB,0.26110E-02_JPRB,0.26570E-02_JPRB,0.27866E-02_JPRB,0.28959E-02_JPRB, &
+ & 0.29477E-02_JPRB,0.29295E-02_JPRB,0.27262E-02_JPRB,0.28287E-02_JPRB /)  
+KA(:, 3, 4,13) = (/ &
+ & 0.29392E-02_JPRB,0.26064E-02_JPRB,0.26421E-02_JPRB,0.27765E-02_JPRB,0.28845E-02_JPRB, &
+ & 0.29406E-02_JPRB,0.29202E-02_JPRB,0.27107E-02_JPRB,0.28099E-02_JPRB /)  
+KA(:, 4, 4,13) = (/ &
+ & 0.29406E-02_JPRB,0.26055E-02_JPRB,0.26309E-02_JPRB,0.27645E-02_JPRB,0.28769E-02_JPRB, &
+ & 0.29312E-02_JPRB,0.29057E-02_JPRB,0.26928E-02_JPRB,0.27972E-02_JPRB /)  
+KA(:, 5, 4,13) = (/ &
+ & 0.29379E-02_JPRB,0.26016E-02_JPRB,0.26230E-02_JPRB,0.27605E-02_JPRB,0.28772E-02_JPRB, &
+ & 0.29338E-02_JPRB,0.29114E-02_JPRB,0.26956E-02_JPRB,0.28225E-02_JPRB /)  
+KA(:, 1, 5,13) = (/ &
+ & 0.26861E-02_JPRB,0.24510E-02_JPRB,0.26014E-02_JPRB,0.27478E-02_JPRB,0.28811E-02_JPRB, &
+ & 0.29878E-02_JPRB,0.30091E-02_JPRB,0.28610E-02_JPRB,0.29320E-02_JPRB /)  
+KA(:, 2, 5,13) = (/ &
+ & 0.26822E-02_JPRB,0.24426E-02_JPRB,0.25898E-02_JPRB,0.27369E-02_JPRB,0.28725E-02_JPRB, &
+ & 0.29815E-02_JPRB,0.30039E-02_JPRB,0.28485E-02_JPRB,0.29157E-02_JPRB /)  
+KA(:, 3, 5,13) = (/ &
+ & 0.26829E-02_JPRB,0.24377E-02_JPRB,0.25766E-02_JPRB,0.27289E-02_JPRB,0.28648E-02_JPRB, &
+ & 0.29741E-02_JPRB,0.29940E-02_JPRB,0.28292E-02_JPRB,0.29014E-02_JPRB /)  
+KA(:, 4, 5,13) = (/ &
+ & 0.26816E-02_JPRB,0.24329E-02_JPRB,0.25674E-02_JPRB,0.27192E-02_JPRB,0.28602E-02_JPRB, &
+ & 0.29643E-02_JPRB,0.29808E-02_JPRB,0.28105E-02_JPRB,0.28911E-02_JPRB /)  
+KA(:, 5, 5,13) = (/ &
+ & 0.26776E-02_JPRB,0.24242E-02_JPRB,0.25584E-02_JPRB,0.27174E-02_JPRB,0.28631E-02_JPRB, &
+ & 0.29690E-02_JPRB,0.29916E-02_JPRB,0.28176E-02_JPRB,0.29253E-02_JPRB /)  
+KA(:, 1, 6,13) = (/ &
+ & 0.24590E-02_JPRB,0.23376E-02_JPRB,0.25355E-02_JPRB,0.26945E-02_JPRB,0.28553E-02_JPRB, &
+ & 0.29996E-02_JPRB,0.30574E-02_JPRB,0.29544E-02_JPRB,0.30033E-02_JPRB /)  
+KA(:, 2, 6,13) = (/ &
+ & 0.24565E-02_JPRB,0.23281E-02_JPRB,0.25242E-02_JPRB,0.26862E-02_JPRB,0.28495E-02_JPRB, &
+ & 0.29966E-02_JPRB,0.30559E-02_JPRB,0.29459E-02_JPRB,0.29901E-02_JPRB /)  
+KA(:, 3, 6,13) = (/ &
+ & 0.24594E-02_JPRB,0.23224E-02_JPRB,0.25135E-02_JPRB,0.26796E-02_JPRB,0.28441E-02_JPRB, &
+ & 0.29914E-02_JPRB,0.30494E-02_JPRB,0.29315E-02_JPRB,0.29796E-02_JPRB /)  
+KA(:, 4, 6,13) = (/ &
+ & 0.24561E-02_JPRB,0.23120E-02_JPRB,0.25070E-02_JPRB,0.26723E-02_JPRB,0.28398E-02_JPRB, &
+ & 0.29830E-02_JPRB,0.30431E-02_JPRB,0.29165E-02_JPRB,0.29718E-02_JPRB /)  
+KA(:, 5, 6,13) = (/ &
+ & 0.24544E-02_JPRB,0.23009E-02_JPRB,0.24971E-02_JPRB,0.26678E-02_JPRB,0.28335E-02_JPRB, &
+ & 0.29758E-02_JPRB,0.30342E-02_JPRB,0.29019E-02_JPRB,0.29654E-02_JPRB /)  
+KA(:, 1, 7,13) = (/ &
+ & 0.22277E-02_JPRB,0.22296E-02_JPRB,0.24669E-02_JPRB,0.26497E-02_JPRB,0.28285E-02_JPRB, &
+ & 0.29885E-02_JPRB,0.30855E-02_JPRB,0.30292E-02_JPRB,0.30616E-02_JPRB /)  
+KA(:, 2, 7,13) = (/ &
+ & 0.22293E-02_JPRB,0.22219E-02_JPRB,0.24569E-02_JPRB,0.26437E-02_JPRB,0.28247E-02_JPRB, &
+ & 0.29924E-02_JPRB,0.30879E-02_JPRB,0.30266E-02_JPRB,0.30510E-02_JPRB /)  
+KA(:, 3, 7,13) = (/ &
+ & 0.22351E-02_JPRB,0.22176E-02_JPRB,0.24495E-02_JPRB,0.26382E-02_JPRB,0.28222E-02_JPRB, &
+ & 0.29913E-02_JPRB,0.30877E-02_JPRB,0.30175E-02_JPRB,0.30415E-02_JPRB /)  
+KA(:, 4, 7,13) = (/ &
+ & 0.22344E-02_JPRB,0.22079E-02_JPRB,0.24453E-02_JPRB,0.26324E-02_JPRB,0.28192E-02_JPRB, &
+ & 0.29887E-02_JPRB,0.30862E-02_JPRB,0.30074E-02_JPRB,0.30342E-02_JPRB /)  
+KA(:, 5, 7,13) = (/ &
+ & 0.22361E-02_JPRB,0.21982E-02_JPRB,0.24378E-02_JPRB,0.26291E-02_JPRB,0.28143E-02_JPRB, &
+ & 0.29850E-02_JPRB,0.30822E-02_JPRB,0.29969E-02_JPRB,0.30270E-02_JPRB /)  
+KA(:, 1, 8,13) = (/ &
+ & 0.19878E-02_JPRB,0.21080E-02_JPRB,0.23886E-02_JPRB,0.26087E-02_JPRB,0.27952E-02_JPRB, &
+ & 0.29676E-02_JPRB,0.31003E-02_JPRB,0.30904E-02_JPRB,0.31018E-02_JPRB /)  
+KA(:, 2, 8,13) = (/ &
+ & 0.19936E-02_JPRB,0.21034E-02_JPRB,0.23825E-02_JPRB,0.26049E-02_JPRB,0.27978E-02_JPRB, &
+ & 0.29755E-02_JPRB,0.31107E-02_JPRB,0.30954E-02_JPRB,0.30940E-02_JPRB /)  
+KA(:, 3, 8,13) = (/ &
+ & 0.20012E-02_JPRB,0.21016E-02_JPRB,0.23778E-02_JPRB,0.26010E-02_JPRB,0.27982E-02_JPRB, &
+ & 0.29815E-02_JPRB,0.31166E-02_JPRB,0.30929E-02_JPRB,0.30865E-02_JPRB /)  
+KA(:, 4, 8,13) = (/ &
+ & 0.20034E-02_JPRB,0.20960E-02_JPRB,0.23764E-02_JPRB,0.25979E-02_JPRB,0.27992E-02_JPRB, &
+ & 0.29823E-02_JPRB,0.31192E-02_JPRB,0.30868E-02_JPRB,0.30812E-02_JPRB /)  
+KA(:, 5, 8,13) = (/ &
+ & 0.20095E-02_JPRB,0.20891E-02_JPRB,0.23711E-02_JPRB,0.25960E-02_JPRB,0.27964E-02_JPRB, &
+ & 0.29828E-02_JPRB,0.31181E-02_JPRB,0.30806E-02_JPRB,0.30733E-02_JPRB /)  
+KA(:, 1, 9,13) = (/ &
+ & 0.17523E-02_JPRB,0.19789E-02_JPRB,0.23024E-02_JPRB,0.25572E-02_JPRB,0.27629E-02_JPRB, &
+ & 0.29479E-02_JPRB,0.31085E-02_JPRB,0.31444E-02_JPRB,0.30417E-02_JPRB /)  
+KA(:, 2, 9,13) = (/ &
+ & 0.17607E-02_JPRB,0.19777E-02_JPRB,0.23013E-02_JPRB,0.25587E-02_JPRB,0.27691E-02_JPRB, &
+ & 0.29613E-02_JPRB,0.31227E-02_JPRB,0.31535E-02_JPRB,0.30346E-02_JPRB /)  
+KA(:, 3, 9,13) = (/ &
+ & 0.17693E-02_JPRB,0.19800E-02_JPRB,0.23011E-02_JPRB,0.25605E-02_JPRB,0.27739E-02_JPRB, &
+ & 0.29714E-02_JPRB,0.31329E-02_JPRB,0.31549E-02_JPRB,0.30299E-02_JPRB /)  
+KA(:, 4, 9,13) = (/ &
+ & 0.17751E-02_JPRB,0.19773E-02_JPRB,0.23025E-02_JPRB,0.25606E-02_JPRB,0.27770E-02_JPRB, &
+ & 0.29770E-02_JPRB,0.31405E-02_JPRB,0.31532E-02_JPRB,0.30280E-02_JPRB /)  
+KA(:, 5, 9,13) = (/ &
+ & 0.17845E-02_JPRB,0.19738E-02_JPRB,0.23006E-02_JPRB,0.25633E-02_JPRB,0.27766E-02_JPRB, &
+ & 0.29802E-02_JPRB,0.31452E-02_JPRB,0.31517E-02_JPRB,0.30317E-02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART9',1,ZHOOK_HANDLE)
+END SUBROUTINE PART9
+
+
+SUBROUTINE PART10
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART10',0,ZHOOK_HANDLE)
+
+
+KA(:, 1,10,13) = (/ &
+ & 0.15244E-02_JPRB,0.18437E-02_JPRB,0.22100E-02_JPRB,0.24972E-02_JPRB,0.27331E-02_JPRB, &
+ & 0.29304E-02_JPRB,0.31059E-02_JPRB,0.31844E-02_JPRB,0.23817E-04_JPRB /)  
+KA(:, 2,10,13) = (/ &
+ & 0.15360E-02_JPRB,0.18467E-02_JPRB,0.22145E-02_JPRB,0.25068E-02_JPRB,0.27437E-02_JPRB, &
+ & 0.29473E-02_JPRB,0.31260E-02_JPRB,0.31986E-02_JPRB,0.12454E-04_JPRB /)  
+KA(:, 3,10,13) = (/ &
+ & 0.15476E-02_JPRB,0.18512E-02_JPRB,0.22181E-02_JPRB,0.25119E-02_JPRB,0.27538E-02_JPRB, &
+ & 0.29593E-02_JPRB,0.31389E-02_JPRB,0.32042E-02_JPRB,0.30814E-04_JPRB /)  
+KA(:, 4,10,13) = (/ &
+ & 0.15571E-02_JPRB,0.18528E-02_JPRB,0.22235E-02_JPRB,0.25174E-02_JPRB,0.27591E-02_JPRB, &
+ & 0.29666E-02_JPRB,0.31497E-02_JPRB,0.32063E-02_JPRB,0.11698E-04_JPRB /)  
+KA(:, 5,10,13) = (/ &
+ & 0.15695E-02_JPRB,0.18534E-02_JPRB,0.22262E-02_JPRB,0.25236E-02_JPRB,0.27611E-02_JPRB, &
+ & 0.29733E-02_JPRB,0.31600E-02_JPRB,0.32093E-02_JPRB,0.22330E-04_JPRB /)  
+KA(:, 1,11,13) = (/ &
+ & 0.13188E-02_JPRB,0.17123E-02_JPRB,0.21150E-02_JPRB,0.24398E-02_JPRB,0.27060E-02_JPRB, &
+ & 0.29190E-02_JPRB,0.31061E-02_JPRB,0.32197E-02_JPRB,0.11689E-04_JPRB /)  
+KA(:, 2,11,13) = (/ &
+ & 0.13341E-02_JPRB,0.17189E-02_JPRB,0.21240E-02_JPRB,0.24532E-02_JPRB,0.27222E-02_JPRB, &
+ & 0.29371E-02_JPRB,0.31262E-02_JPRB,0.32338E-02_JPRB,0.11845E-04_JPRB /)  
+KA(:, 3,11,13) = (/ &
+ & 0.13447E-02_JPRB,0.17274E-02_JPRB,0.21339E-02_JPRB,0.24651E-02_JPRB,0.27343E-02_JPRB, &
+ & 0.29498E-02_JPRB,0.31430E-02_JPRB,0.32440E-02_JPRB,0.24255E-04_JPRB /)  
+KA(:, 4,11,13) = (/ &
+ & 0.13578E-02_JPRB,0.17324E-02_JPRB,0.21454E-02_JPRB,0.24765E-02_JPRB,0.27400E-02_JPRB, &
+ & 0.29585E-02_JPRB,0.31579E-02_JPRB,0.32502E-02_JPRB,0.35648E-04_JPRB /)  
+KA(:, 5,11,13) = (/ &
+ & 0.13715E-02_JPRB,0.17394E-02_JPRB,0.21518E-02_JPRB,0.24842E-02_JPRB,0.27436E-02_JPRB, &
+ & 0.29689E-02_JPRB,0.31719E-02_JPRB,0.32570E-02_JPRB,0.48216E-04_JPRB /)  
+KA(:, 1,12,13) = (/ &
+ & 0.11367E-02_JPRB,0.15942E-02_JPRB,0.20255E-02_JPRB,0.23827E-02_JPRB,0.26757E-02_JPRB, &
+ & 0.29001E-02_JPRB,0.30944E-02_JPRB,0.32386E-02_JPRB,0.48616E-12_JPRB /)  
+KA(:, 2,12,13) = (/ &
+ & 0.11495E-02_JPRB,0.16057E-02_JPRB,0.20405E-02_JPRB,0.24019E-02_JPRB,0.26965E-02_JPRB, &
+ & 0.29177E-02_JPRB,0.31160E-02_JPRB,0.32553E-02_JPRB,0.63803E-12_JPRB /)  
+KA(:, 3,12,13) = (/ &
+ & 0.11626E-02_JPRB,0.16147E-02_JPRB,0.20558E-02_JPRB,0.24193E-02_JPRB,0.27102E-02_JPRB, &
+ & 0.29330E-02_JPRB,0.31363E-02_JPRB,0.32673E-02_JPRB,0.18451E-04_JPRB /)  
+KA(:, 4,12,13) = (/ &
+ & 0.11784E-02_JPRB,0.16224E-02_JPRB,0.20681E-02_JPRB,0.24334E-02_JPRB,0.27187E-02_JPRB, &
+ & 0.29473E-02_JPRB,0.31560E-02_JPRB,0.32789E-02_JPRB,0.93725E-12_JPRB /)  
+KA(:, 5,12,13) = (/ &
+ & 0.11935E-02_JPRB,0.16327E-02_JPRB,0.20790E-02_JPRB,0.24438E-02_JPRB,0.27275E-02_JPRB, &
+ & 0.29614E-02_JPRB,0.31756E-02_JPRB,0.32901E-02_JPRB,0.36773E-04_JPRB /)  
+KA(:, 1,13,13) = (/ &
+ & 0.97386E-03_JPRB,0.14865E-02_JPRB,0.19422E-02_JPRB,0.23265E-02_JPRB,0.26377E-02_JPRB, &
+ & 0.28742E-02_JPRB,0.30758E-02_JPRB,0.32440E-02_JPRB,0.42838E-12_JPRB /)  
+KA(:, 2,13,13) = (/ &
+ & 0.98704E-03_JPRB,0.15018E-02_JPRB,0.19617E-02_JPRB,0.23518E-02_JPRB,0.26608E-02_JPRB, &
+ & 0.28955E-02_JPRB,0.31025E-02_JPRB,0.32660E-02_JPRB,0.54956E-12_JPRB /)  
+KA(:, 3,13,13) = (/ &
+ & 0.10034E-02_JPRB,0.15127E-02_JPRB,0.19822E-02_JPRB,0.23722E-02_JPRB,0.26791E-02_JPRB, &
+ & 0.29131E-02_JPRB,0.31272E-02_JPRB,0.32827E-02_JPRB,0.68281E-12_JPRB /)  
+KA(:, 4,13,13) = (/ &
+ & 0.10185E-02_JPRB,0.15248E-02_JPRB,0.19990E-02_JPRB,0.23896E-02_JPRB,0.26942E-02_JPRB, &
+ & 0.29331E-02_JPRB,0.31525E-02_JPRB,0.33003E-02_JPRB,0.47348E-04_JPRB /)  
+KA(:, 5,13,13) = (/ &
+ & 0.10353E-02_JPRB,0.15370E-02_JPRB,0.20122E-02_JPRB,0.24032E-02_JPRB,0.27096E-02_JPRB, &
+ & 0.29526E-02_JPRB,0.31774E-02_JPRB,0.33154E-02_JPRB,0.94094E-12_JPRB /)  
+KA(:, 1, 1,14) = (/ &
+ & 0.11127E-01_JPRB,0.97365E-02_JPRB,0.83450E-02_JPRB,0.69546E-02_JPRB,0.57518E-02_JPRB, &
+ & 0.48972E-02_JPRB,0.42517E-02_JPRB,0.34771E-02_JPRB,0.44616E-02_JPRB /)  
+KA(:, 2, 1,14) = (/ &
+ & 0.11168E-01_JPRB,0.97719E-02_JPRB,0.83762E-02_JPRB,0.69801E-02_JPRB,0.57613E-02_JPRB, &
+ & 0.48914E-02_JPRB,0.42324E-02_JPRB,0.34356E-02_JPRB,0.44183E-02_JPRB /)  
+KA(:, 3, 1,14) = (/ &
+ & 0.11206E-01_JPRB,0.98061E-02_JPRB,0.84051E-02_JPRB,0.70040E-02_JPRB,0.57786E-02_JPRB, &
+ & 0.48973E-02_JPRB,0.42300E-02_JPRB,0.34167E-02_JPRB,0.44088E-02_JPRB /)  
+KA(:, 4, 1,14) = (/ &
+ & 0.11230E-01_JPRB,0.98265E-02_JPRB,0.84228E-02_JPRB,0.70190E-02_JPRB,0.57794E-02_JPRB, &
+ & 0.48702E-02_JPRB,0.41927E-02_JPRB,0.33658E-02_JPRB,0.43365E-02_JPRB /)  
+KA(:, 5, 1,14) = (/ &
+ & 0.11247E-01_JPRB,0.98411E-02_JPRB,0.84348E-02_JPRB,0.70292E-02_JPRB,0.57800E-02_JPRB, &
+ & 0.48600E-02_JPRB,0.41735E-02_JPRB,0.33367E-02_JPRB,0.43003E-02_JPRB /)  
+KA(:, 1, 2,14) = (/ &
+ & 0.11360E-01_JPRB,0.99403E-02_JPRB,0.85204E-02_JPRB,0.71449E-02_JPRB,0.60754E-02_JPRB, &
+ & 0.53678E-02_JPRB,0.47333E-02_JPRB,0.38804E-02_JPRB,0.48459E-02_JPRB /)  
+KA(:, 2, 2,14) = (/ &
+ & 0.11402E-01_JPRB,0.99768E-02_JPRB,0.85517E-02_JPRB,0.71687E-02_JPRB,0.60816E-02_JPRB, &
+ & 0.53522E-02_JPRB,0.47062E-02_JPRB,0.38343E-02_JPRB,0.48034E-02_JPRB /)  
+KA(:, 3, 2,14) = (/ &
+ & 0.11432E-01_JPRB,0.10003E-01_JPRB,0.85744E-02_JPRB,0.71872E-02_JPRB,0.60934E-02_JPRB, &
+ & 0.53498E-02_JPRB,0.46968E-02_JPRB,0.38177E-02_JPRB,0.48004E-02_JPRB /)  
+KA(:, 4, 2,14) = (/ &
+ & 0.11460E-01_JPRB,0.10028E-01_JPRB,0.85956E-02_JPRB,0.72000E-02_JPRB,0.60909E-02_JPRB, &
+ & 0.53282E-02_JPRB,0.46686E-02_JPRB,0.37852E-02_JPRB,0.47598E-02_JPRB /)  
+KA(:, 5, 2,14) = (/ &
+ & 0.11484E-01_JPRB,0.10049E-01_JPRB,0.86132E-02_JPRB,0.72108E-02_JPRB,0.60794E-02_JPRB, &
+ & 0.52951E-02_JPRB,0.46284E-02_JPRB,0.37347E-02_JPRB,0.46895E-02_JPRB /)  
+KA(:, 1, 3,14) = (/ &
+ & 0.11375E-01_JPRB,0.99535E-02_JPRB,0.85318E-02_JPRB,0.72748E-02_JPRB,0.63965E-02_JPRB, &
+ & 0.58374E-02_JPRB,0.52215E-02_JPRB,0.43002E-02_JPRB,0.52258E-02_JPRB /)  
+KA(:, 2, 3,14) = (/ &
+ & 0.11412E-01_JPRB,0.99855E-02_JPRB,0.85592E-02_JPRB,0.72909E-02_JPRB,0.63926E-02_JPRB, &
+ & 0.58142E-02_JPRB,0.51838E-02_JPRB,0.42530E-02_JPRB,0.51857E-02_JPRB /)  
+KA(:, 3, 3,14) = (/ &
+ & 0.11451E-01_JPRB,0.10019E-01_JPRB,0.85873E-02_JPRB,0.73027E-02_JPRB,0.63856E-02_JPRB, &
+ & 0.57886E-02_JPRB,0.51485E-02_JPRB,0.42153E-02_JPRB,0.51479E-02_JPRB /)  
+KA(:, 4, 3,14) = (/ &
+ & 0.11483E-01_JPRB,0.10047E-01_JPRB,0.86122E-02_JPRB,0.73190E-02_JPRB,0.63840E-02_JPRB, &
+ & 0.57742E-02_JPRB,0.51342E-02_JPRB,0.42027E-02_JPRB,0.51482E-02_JPRB /)  
+KA(:, 5, 3,14) = (/ &
+ & 0.11512E-01_JPRB,0.10073E-01_JPRB,0.86339E-02_JPRB,0.73301E-02_JPRB,0.63706E-02_JPRB, &
+ & 0.57344E-02_JPRB,0.50899E-02_JPRB,0.41496E-02_JPRB,0.50782E-02_JPRB /)  
+KA(:, 1, 4,14) = (/ &
+ & 0.11149E-01_JPRB,0.97560E-02_JPRB,0.83906E-02_JPRB,0.73568E-02_JPRB,0.67050E-02_JPRB, &
+ & 0.62789E-02_JPRB,0.56809E-02_JPRB,0.47244E-02_JPRB,0.55742E-02_JPRB /)  
+KA(:, 2, 4,14) = (/ &
+ & 0.11201E-01_JPRB,0.98016E-02_JPRB,0.84237E-02_JPRB,0.73684E-02_JPRB,0.66927E-02_JPRB, &
+ & 0.62506E-02_JPRB,0.56398E-02_JPRB,0.46775E-02_JPRB,0.55381E-02_JPRB /)  
+KA(:, 3, 4,14) = (/ &
+ & 0.11250E-01_JPRB,0.98437E-02_JPRB,0.84576E-02_JPRB,0.73794E-02_JPRB,0.66793E-02_JPRB, &
+ & 0.62192E-02_JPRB,0.56018E-02_JPRB,0.46402E-02_JPRB,0.55028E-02_JPRB /)  
+KA(:, 4, 4,14) = (/ &
+ & 0.11293E-01_JPRB,0.98814E-02_JPRB,0.84883E-02_JPRB,0.73928E-02_JPRB,0.66658E-02_JPRB, &
+ & 0.61879E-02_JPRB,0.55699E-02_JPRB,0.46073E-02_JPRB,0.54669E-02_JPRB /)  
+KA(:, 5, 4,14) = (/ &
+ & 0.11341E-01_JPRB,0.99237E-02_JPRB,0.85206E-02_JPRB,0.74085E-02_JPRB,0.66636E-02_JPRB, &
+ & 0.61710E-02_JPRB,0.55548E-02_JPRB,0.45934E-02_JPRB,0.54646E-02_JPRB /)  
+KA(:, 1, 5,14) = (/ &
+ & 0.10704E-01_JPRB,0.93660E-02_JPRB,0.81568E-02_JPRB,0.74021E-02_JPRB,0.69945E-02_JPRB, &
+ & 0.66654E-02_JPRB,0.61172E-02_JPRB,0.51470E-02_JPRB,0.58967E-02_JPRB /)  
+KA(:, 2, 5,14) = (/ &
+ & 0.10771E-01_JPRB,0.94250E-02_JPRB,0.81953E-02_JPRB,0.74101E-02_JPRB,0.69769E-02_JPRB, &
+ & 0.66347E-02_JPRB,0.60743E-02_JPRB,0.50992E-02_JPRB,0.58616E-02_JPRB /)  
+KA(:, 3, 5,14) = (/ &
+ & 0.10834E-01_JPRB,0.94795E-02_JPRB,0.82348E-02_JPRB,0.74202E-02_JPRB,0.69586E-02_JPRB, &
+ & 0.66047E-02_JPRB,0.60376E-02_JPRB,0.50623E-02_JPRB,0.58279E-02_JPRB /)  
+KA(:, 4, 5,14) = (/ &
+ & 0.10899E-01_JPRB,0.95365E-02_JPRB,0.82726E-02_JPRB,0.74343E-02_JPRB,0.69400E-02_JPRB, &
+ & 0.65760E-02_JPRB,0.60076E-02_JPRB,0.50289E-02_JPRB,0.57953E-02_JPRB /)  
+KA(:, 5, 5,14) = (/ &
+ & 0.10965E-01_JPRB,0.95941E-02_JPRB,0.83123E-02_JPRB,0.74464E-02_JPRB,0.69292E-02_JPRB, &
+ & 0.65626E-02_JPRB,0.59940E-02_JPRB,0.50178E-02_JPRB,0.57938E-02_JPRB /)  
+KA(:, 1, 6,14) = (/ &
+ & 0.10078E-01_JPRB,0.88178E-02_JPRB,0.78666E-02_JPRB,0.74112E-02_JPRB,0.72308E-02_JPRB, &
+ & 0.70100E-02_JPRB,0.65312E-02_JPRB,0.55779E-02_JPRB,0.62140E-02_JPRB /)  
+KA(:, 2, 6,14) = (/ &
+ & 0.10161E-01_JPRB,0.88906E-02_JPRB,0.79113E-02_JPRB,0.74185E-02_JPRB,0.72160E-02_JPRB, &
+ & 0.69843E-02_JPRB,0.64888E-02_JPRB,0.55247E-02_JPRB,0.61818E-02_JPRB /)  
+KA(:, 3, 6,14) = (/ &
+ & 0.10243E-01_JPRB,0.89616E-02_JPRB,0.79583E-02_JPRB,0.74318E-02_JPRB,0.71999E-02_JPRB, &
+ & 0.69579E-02_JPRB,0.64523E-02_JPRB,0.54833E-02_JPRB,0.61492E-02_JPRB /)  
+KA(:, 4, 6,14) = (/ &
+ & 0.10327E-01_JPRB,0.90374E-02_JPRB,0.79989E-02_JPRB,0.74443E-02_JPRB,0.71832E-02_JPRB, &
+ & 0.69350E-02_JPRB,0.64210E-02_JPRB,0.54479E-02_JPRB,0.61172E-02_JPRB /)  
+KA(:, 5, 6,14) = (/ &
+ & 0.10409E-01_JPRB,0.91075E-02_JPRB,0.80421E-02_JPRB,0.74489E-02_JPRB,0.71645E-02_JPRB, &
+ & 0.69118E-02_JPRB,0.63952E-02_JPRB,0.54129E-02_JPRB,0.60849E-02_JPRB /)  
+KA(:, 1, 7,14) = (/ &
+ & 0.93799E-02_JPRB,0.82246E-02_JPRB,0.75645E-02_JPRB,0.73983E-02_JPRB,0.74124E-02_JPRB, &
+ & 0.73054E-02_JPRB,0.69103E-02_JPRB,0.59986E-02_JPRB,0.65205E-02_JPRB /)  
+KA(:, 2, 7,14) = (/ &
+ & 0.94746E-02_JPRB,0.83048E-02_JPRB,0.76105E-02_JPRB,0.74041E-02_JPRB,0.74008E-02_JPRB, &
+ & 0.72835E-02_JPRB,0.68745E-02_JPRB,0.59435E-02_JPRB,0.64911E-02_JPRB /)  
+KA(:, 3, 7,14) = (/ &
+ & 0.95665E-02_JPRB,0.83814E-02_JPRB,0.76560E-02_JPRB,0.74150E-02_JPRB,0.73885E-02_JPRB, &
+ & 0.72645E-02_JPRB,0.68399E-02_JPRB,0.59000E-02_JPRB,0.64612E-02_JPRB /)  
+KA(:, 4, 7,14) = (/ &
+ & 0.96610E-02_JPRB,0.84615E-02_JPRB,0.76953E-02_JPRB,0.74218E-02_JPRB,0.73786E-02_JPRB, &
+ & 0.72467E-02_JPRB,0.68110E-02_JPRB,0.58618E-02_JPRB,0.64309E-02_JPRB /)  
+KA(:, 5, 7,14) = (/ &
+ & 0.97576E-02_JPRB,0.85445E-02_JPRB,0.77428E-02_JPRB,0.74271E-02_JPRB,0.73666E-02_JPRB, &
+ & 0.72295E-02_JPRB,0.67856E-02_JPRB,0.58248E-02_JPRB,0.64018E-02_JPRB /)  
+KA(:, 1, 8,14) = (/ &
+ & 0.86695E-02_JPRB,0.76539E-02_JPRB,0.72832E-02_JPRB,0.73811E-02_JPRB,0.75539E-02_JPRB, &
+ & 0.75395E-02_JPRB,0.72391E-02_JPRB,0.63979E-02_JPRB,0.68067E-02_JPRB /)  
+KA(:, 2, 8,14) = (/ &
+ & 0.87714E-02_JPRB,0.77350E-02_JPRB,0.73260E-02_JPRB,0.73889E-02_JPRB,0.75481E-02_JPRB, &
+ & 0.75307E-02_JPRB,0.72059E-02_JPRB,0.63386E-02_JPRB,0.67797E-02_JPRB /)  
+KA(:, 3, 8,14) = (/ &
+ & 0.88648E-02_JPRB,0.78065E-02_JPRB,0.73635E-02_JPRB,0.73928E-02_JPRB,0.75428E-02_JPRB, &
+ & 0.75176E-02_JPRB,0.71786E-02_JPRB,0.62948E-02_JPRB,0.67512E-02_JPRB /)  
+KA(:, 4, 8,14) = (/ &
+ & 0.89696E-02_JPRB,0.78903E-02_JPRB,0.74008E-02_JPRB,0.73947E-02_JPRB,0.75364E-02_JPRB, &
+ & 0.75091E-02_JPRB,0.71562E-02_JPRB,0.62573E-02_JPRB,0.67249E-02_JPRB /)  
+KA(:, 5, 8,14) = (/ &
+ & 0.90827E-02_JPRB,0.79827E-02_JPRB,0.74524E-02_JPRB,0.74004E-02_JPRB,0.75307E-02_JPRB, &
+ & 0.75004E-02_JPRB,0.71406E-02_JPRB,0.62196E-02_JPRB,0.66995E-02_JPRB /)  
+KA(:, 1, 9,14) = (/ &
+ & 0.79522E-02_JPRB,0.71197E-02_JPRB,0.70358E-02_JPRB,0.73522E-02_JPRB,0.76328E-02_JPRB, &
+ & 0.77097E-02_JPRB,0.75175E-02_JPRB,0.67703E-02_JPRB,0.70524E-02_JPRB /)  
+KA(:, 2, 9,14) = (/ &
+ & 0.80598E-02_JPRB,0.71969E-02_JPRB,0.70715E-02_JPRB,0.73653E-02_JPRB,0.76374E-02_JPRB, &
+ & 0.77113E-02_JPRB,0.74908E-02_JPRB,0.67151E-02_JPRB,0.70338E-02_JPRB /)  
+KA(:, 3, 9,14) = (/ &
+ & 0.81632E-02_JPRB,0.72678E-02_JPRB,0.71027E-02_JPRB,0.73712E-02_JPRB,0.76458E-02_JPRB, &
+ & 0.77123E-02_JPRB,0.74742E-02_JPRB,0.66728E-02_JPRB,0.70182E-02_JPRB /)  
+KA(:, 4, 9,14) = (/ &
+ & 0.82823E-02_JPRB,0.73561E-02_JPRB,0.71392E-02_JPRB,0.73768E-02_JPRB,0.76576E-02_JPRB, &
+ & 0.77143E-02_JPRB,0.74622E-02_JPRB,0.66357E-02_JPRB,0.69991E-02_JPRB /)  
+KA(:, 5, 9,14) = (/ &
+ & 0.84105E-02_JPRB,0.74558E-02_JPRB,0.71910E-02_JPRB,0.73874E-02_JPRB,0.76648E-02_JPRB, &
+ & 0.77180E-02_JPRB,0.74509E-02_JPRB,0.65977E-02_JPRB,0.69736E-02_JPRB /)  
+KA(:, 1,10,14) = (/ &
+ & 0.72630E-02_JPRB,0.66377E-02_JPRB,0.68373E-02_JPRB,0.72984E-02_JPRB,0.76509E-02_JPRB, &
+ & 0.78294E-02_JPRB,0.77460E-02_JPRB,0.71207E-02_JPRB,0.20344E-04_JPRB /)  
+KA(:, 2,10,14) = (/ &
+ & 0.73671E-02_JPRB,0.67055E-02_JPRB,0.68587E-02_JPRB,0.73198E-02_JPRB,0.76710E-02_JPRB, &
+ & 0.78437E-02_JPRB,0.77323E-02_JPRB,0.70655E-02_JPRB,0.20564E-04_JPRB /)  
+KA(:, 3,10,14) = (/ &
+ & 0.74810E-02_JPRB,0.67793E-02_JPRB,0.68858E-02_JPRB,0.73353E-02_JPRB,0.76947E-02_JPRB, &
+ & 0.78590E-02_JPRB,0.77307E-02_JPRB,0.70272E-02_JPRB,0.37563E-05_JPRB /)  
+KA(:, 4,10,14) = (/ &
+ & 0.76171E-02_JPRB,0.68754E-02_JPRB,0.69230E-02_JPRB,0.73502E-02_JPRB,0.77241E-02_JPRB, &
+ & 0.78765E-02_JPRB,0.77271E-02_JPRB,0.69915E-02_JPRB,0.47236E-05_JPRB /)  
+KA(:, 5,10,14) = (/ &
+ & 0.77608E-02_JPRB,0.69811E-02_JPRB,0.69732E-02_JPRB,0.73676E-02_JPRB,0.77455E-02_JPRB, &
+ & 0.78941E-02_JPRB,0.77236E-02_JPRB,0.69531E-02_JPRB,0.26047E-04_JPRB /)  
+KA(:, 1,11,14) = (/ &
+ & 0.66493E-02_JPRB,0.62366E-02_JPRB,0.66807E-02_JPRB,0.72344E-02_JPRB,0.76404E-02_JPRB, &
+ & 0.79217E-02_JPRB,0.79405E-02_JPRB,0.74097E-02_JPRB,0.00000E+00_JPRB /)  
+KA(:, 2,11,14) = (/ &
+ & 0.67616E-02_JPRB,0.63044E-02_JPRB,0.67053E-02_JPRB,0.72656E-02_JPRB,0.76819E-02_JPRB, &
+ & 0.79515E-02_JPRB,0.79506E-02_JPRB,0.73718E-02_JPRB,0.18408E-04_JPRB /)  
+KA(:, 3,11,14) = (/ &
+ & 0.69005E-02_JPRB,0.63894E-02_JPRB,0.67349E-02_JPRB,0.72931E-02_JPRB,0.77291E-02_JPRB, &
+ & 0.79845E-02_JPRB,0.79576E-02_JPRB,0.73388E-02_JPRB,0.37607E-04_JPRB /)  
+KA(:, 4,11,14) = (/ &
+ & 0.70530E-02_JPRB,0.64912E-02_JPRB,0.67712E-02_JPRB,0.73223E-02_JPRB,0.77726E-02_JPRB, &
+ & 0.80170E-02_JPRB,0.79618E-02_JPRB,0.73054E-02_JPRB,0.56367E-04_JPRB /)  
+KA(:, 5,11,14) = (/ &
+ & 0.72039E-02_JPRB,0.65911E-02_JPRB,0.68118E-02_JPRB,0.73572E-02_JPRB,0.78096E-02_JPRB, &
+ & 0.80477E-02_JPRB,0.79648E-02_JPRB,0.72708E-02_JPRB,0.00000E+00_JPRB /)  
+KA(:, 1,12,14) = (/ &
+ & 0.60858E-02_JPRB,0.58916E-02_JPRB,0.65335E-02_JPRB,0.71525E-02_JPRB,0.76284E-02_JPRB, &
+ & 0.80006E-02_JPRB,0.81294E-02_JPRB,0.76675E-02_JPRB,0.58588E-04_JPRB /)  
+KA(:, 2,12,14) = (/ &
+ & 0.62191E-02_JPRB,0.59612E-02_JPRB,0.65675E-02_JPRB,0.71998E-02_JPRB,0.76898E-02_JPRB, &
+ & 0.80500E-02_JPRB,0.81534E-02_JPRB,0.76479E-02_JPRB,0.00000E+00_JPRB /)  
+KA(:, 3,12,14) = (/ &
+ & 0.63725E-02_JPRB,0.60546E-02_JPRB,0.66095E-02_JPRB,0.72445E-02_JPRB,0.77558E-02_JPRB, &
+ & 0.80973E-02_JPRB,0.81695E-02_JPRB,0.76255E-02_JPRB,0.29841E-04_JPRB /)  
+KA(:, 4,12,14) = (/ &
+ & 0.65241E-02_JPRB,0.61494E-02_JPRB,0.66519E-02_JPRB,0.72916E-02_JPRB,0.78126E-02_JPRB, &
+ & 0.81445E-02_JPRB,0.81839E-02_JPRB,0.75955E-02_JPRB,0.00000E+00_JPRB /)  
+KA(:, 5,12,14) = (/ &
+ & 0.66908E-02_JPRB,0.62534E-02_JPRB,0.66904E-02_JPRB,0.73429E-02_JPRB,0.78615E-02_JPRB, &
+ & 0.81879E-02_JPRB,0.81898E-02_JPRB,0.75652E-02_JPRB,0.00000E+00_JPRB /)  
+KA(:, 1,13,14) = (/ &
+ & 0.55891E-02_JPRB,0.56116E-02_JPRB,0.63936E-02_JPRB,0.70621E-02_JPRB,0.76241E-02_JPRB, &
+ & 0.80837E-02_JPRB,0.82964E-02_JPRB,0.79007E-02_JPRB,0.00000E+00_JPRB /)  
+KA(:, 2,13,14) = (/ &
+ & 0.57354E-02_JPRB,0.56825E-02_JPRB,0.64439E-02_JPRB,0.71280E-02_JPRB,0.77039E-02_JPRB, &
+ & 0.81460E-02_JPRB,0.83322E-02_JPRB,0.78896E-02_JPRB,0.38090E-04_JPRB /)  
+KA(:, 3,13,14) = (/ &
+ & 0.58847E-02_JPRB,0.57651E-02_JPRB,0.64971E-02_JPRB,0.71963E-02_JPRB,0.77792E-02_JPRB, &
+ & 0.82047E-02_JPRB,0.83632E-02_JPRB,0.78746E-02_JPRB,0.00000E+00_JPRB /)  
+KA(:, 4,13,14) = (/ &
+ & 0.60503E-02_JPRB,0.58579E-02_JPRB,0.65448E-02_JPRB,0.72663E-02_JPRB,0.78467E-02_JPRB, &
+ & 0.82617E-02_JPRB,0.83886E-02_JPRB,0.78555E-02_JPRB,0.00000E+00_JPRB /)  
+KA(:, 5,13,14) = (/ &
+ & 0.62326E-02_JPRB,0.59678E-02_JPRB,0.65939E-02_JPRB,0.73313E-02_JPRB,0.79071E-02_JPRB, &
+ & 0.83133E-02_JPRB,0.83975E-02_JPRB,0.78294E-02_JPRB,0.00000E+00_JPRB /)  
+KA(:, 1, 1,15) = (/ &
+ & 0.22784E-01_JPRB,0.19937E-01_JPRB,0.17089E-01_JPRB,0.14240E-01_JPRB,0.11393E-01_JPRB, &
+ & 0.85439E-02_JPRB,0.62360E-02_JPRB,0.50515E-02_JPRB,0.76952E-02_JPRB /)  
+KA(:, 2, 1,15) = (/ &
+ & 0.22781E-01_JPRB,0.19933E-01_JPRB,0.17085E-01_JPRB,0.14238E-01_JPRB,0.11390E-01_JPRB, &
+ & 0.85426E-02_JPRB,0.62118E-02_JPRB,0.49990E-02_JPRB,0.75953E-02_JPRB /)  
+KA(:, 3, 1,15) = (/ &
+ & 0.22781E-01_JPRB,0.19934E-01_JPRB,0.17086E-01_JPRB,0.14239E-01_JPRB,0.11390E-01_JPRB, &
+ & 0.85428E-02_JPRB,0.62149E-02_JPRB,0.49913E-02_JPRB,0.75531E-02_JPRB /)  
+KA(:, 4, 1,15) = (/ &
+ & 0.22807E-01_JPRB,0.19955E-01_JPRB,0.17104E-01_JPRB,0.14253E-01_JPRB,0.11403E-01_JPRB, &
+ & 0.85521E-02_JPRB,0.61662E-02_JPRB,0.48921E-02_JPRB,0.74213E-02_JPRB /)  
+KA(:, 5, 1,15) = (/ &
+ & 0.22846E-01_JPRB,0.19991E-01_JPRB,0.17134E-01_JPRB,0.14278E-01_JPRB,0.11422E-01_JPRB, &
+ & 0.85672E-02_JPRB,0.61477E-02_JPRB,0.48442E-02_JPRB,0.73437E-02_JPRB /)  
+KA(:, 1, 2,15) = (/ &
+ & 0.25963E-01_JPRB,0.22716E-01_JPRB,0.19471E-01_JPRB,0.16227E-01_JPRB,0.12981E-01_JPRB, &
+ & 0.97432E-02_JPRB,0.72799E-02_JPRB,0.58913E-02_JPRB,0.89930E-02_JPRB /)  
+KA(:, 2, 2,15) = (/ &
+ & 0.25957E-01_JPRB,0.22712E-01_JPRB,0.19468E-01_JPRB,0.16223E-01_JPRB,0.12978E-01_JPRB, &
+ & 0.97376E-02_JPRB,0.72409E-02_JPRB,0.58243E-02_JPRB,0.88738E-02_JPRB /)  
+KA(:, 3, 2,15) = (/ &
+ & 0.25967E-01_JPRB,0.22721E-01_JPRB,0.19475E-01_JPRB,0.16229E-01_JPRB,0.12984E-01_JPRB, &
+ & 0.97376E-02_JPRB,0.72294E-02_JPRB,0.57970E-02_JPRB,0.88082E-02_JPRB /)  
+KA(:, 4, 2,15) = (/ &
+ & 0.25991E-01_JPRB,0.22741E-01_JPRB,0.19493E-01_JPRB,0.16243E-01_JPRB,0.12995E-01_JPRB, &
+ & 0.97464E-02_JPRB,0.71939E-02_JPRB,0.57194E-02_JPRB,0.86974E-02_JPRB /)  
+KA(:, 5, 2,15) = (/ &
+ & 0.26012E-01_JPRB,0.22759E-01_JPRB,0.19508E-01_JPRB,0.16256E-01_JPRB,0.13005E-01_JPRB, &
+ & 0.97539E-02_JPRB,0.71378E-02_JPRB,0.56167E-02_JPRB,0.85506E-02_JPRB /)  
+KA(:, 1, 3,15) = (/ &
+ & 0.29273E-01_JPRB,0.25614E-01_JPRB,0.21954E-01_JPRB,0.18296E-01_JPRB,0.14638E-01_JPRB, &
+ & 0.11059E-01_JPRB,0.84536E-02_JPRB,0.68488E-02_JPRB,0.10453E-01_JPRB /)  
+KA(:, 2, 3,15) = (/ &
+ & 0.29273E-01_JPRB,0.25613E-01_JPRB,0.21954E-01_JPRB,0.18296E-01_JPRB,0.14636E-01_JPRB, &
+ & 0.11040E-01_JPRB,0.84006E-02_JPRB,0.67671E-02_JPRB,0.10308E-01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART10',1,ZHOOK_HANDLE)
+END SUBROUTINE PART10
+
+
+SUBROUTINE PART11
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART11',0,ZHOOK_HANDLE)
+
+
+KA(:, 3, 3,15) = (/ &
+ & 0.29281E-01_JPRB,0.25620E-01_JPRB,0.21957E-01_JPRB,0.18299E-01_JPRB,0.14639E-01_JPRB, &
+ & 0.11029E-01_JPRB,0.83532E-02_JPRB,0.66803E-02_JPRB,0.10170E-01_JPRB /)  
+KA(:, 4, 3,15) = (/ &
+ & 0.29284E-01_JPRB,0.25622E-01_JPRB,0.21963E-01_JPRB,0.18303E-01_JPRB,0.14642E-01_JPRB, &
+ & 0.11027E-01_JPRB,0.83265E-02_JPRB,0.66328E-02_JPRB,0.10072E-01_JPRB /)  
+KA(:, 5, 3,15) = (/ &
+ & 0.29273E-01_JPRB,0.25615E-01_JPRB,0.21955E-01_JPRB,0.18297E-01_JPRB,0.14636E-01_JPRB, &
+ & 0.11016E-01_JPRB,0.82524E-02_JPRB,0.65141E-02_JPRB,0.98927E-02_JPRB /)  
+KA(:, 1, 4,15) = (/ &
+ & 0.32689E-01_JPRB,0.28601E-01_JPRB,0.24517E-01_JPRB,0.20431E-01_JPRB,0.16343E-01_JPRB, &
+ & 0.12498E-01_JPRB,0.97860E-02_JPRB,0.79359E-02_JPRB,0.11964E-01_JPRB /)  
+KA(:, 2, 4,15) = (/ &
+ & 0.32673E-01_JPRB,0.28590E-01_JPRB,0.24505E-01_JPRB,0.20420E-01_JPRB,0.16336E-01_JPRB, &
+ & 0.12462E-01_JPRB,0.97090E-02_JPRB,0.78356E-02_JPRB,0.11793E-01_JPRB /)  
+KA(:, 3, 4,15) = (/ &
+ & 0.32657E-01_JPRB,0.28575E-01_JPRB,0.24494E-01_JPRB,0.20410E-01_JPRB,0.16330E-01_JPRB, &
+ & 0.12434E-01_JPRB,0.96384E-02_JPRB,0.77321E-02_JPRB,0.11625E-01_JPRB /)  
+KA(:, 4, 4,15) = (/ &
+ & 0.32631E-01_JPRB,0.28553E-01_JPRB,0.24473E-01_JPRB,0.20396E-01_JPRB,0.16316E-01_JPRB, &
+ & 0.12404E-01_JPRB,0.95671E-02_JPRB,0.76286E-02_JPRB,0.11457E-01_JPRB /)  
+KA(:, 5, 4,15) = (/ &
+ & 0.32595E-01_JPRB,0.28521E-01_JPRB,0.24445E-01_JPRB,0.20372E-01_JPRB,0.16297E-01_JPRB, &
+ & 0.12376E-01_JPRB,0.95137E-02_JPRB,0.75694E-02_JPRB,0.11318E-01_JPRB /)  
+KA(:, 1, 5,15) = (/ &
+ & 0.36129E-01_JPRB,0.31613E-01_JPRB,0.27097E-01_JPRB,0.22582E-01_JPRB,0.18065E-01_JPRB, &
+ & 0.14059E-01_JPRB,0.11253E-01_JPRB,0.91497E-02_JPRB,0.13513E-01_JPRB /)  
+KA(:, 2, 5,15) = (/ &
+ & 0.36091E-01_JPRB,0.31580E-01_JPRB,0.27068E-01_JPRB,0.22557E-01_JPRB,0.18046E-01_JPRB, &
+ & 0.13996E-01_JPRB,0.11159E-01_JPRB,0.90273E-02_JPRB,0.13314E-01_JPRB /)  
+KA(:, 3, 5,15) = (/ &
+ & 0.36050E-01_JPRB,0.31543E-01_JPRB,0.27038E-01_JPRB,0.22530E-01_JPRB,0.18025E-01_JPRB, &
+ & 0.13938E-01_JPRB,0.11057E-01_JPRB,0.89022E-02_JPRB,0.13117E-01_JPRB /)  
+KA(:, 4, 5,15) = (/ &
+ & 0.35994E-01_JPRB,0.31496E-01_JPRB,0.26994E-01_JPRB,0.22495E-01_JPRB,0.17996E-01_JPRB, &
+ & 0.13877E-01_JPRB,0.10953E-01_JPRB,0.87755E-02_JPRB,0.12914E-01_JPRB /)  
+KA(:, 5, 5,15) = (/ &
+ & 0.35944E-01_JPRB,0.31450E-01_JPRB,0.26957E-01_JPRB,0.22466E-01_JPRB,0.17973E-01_JPRB, &
+ & 0.13819E-01_JPRB,0.10863E-01_JPRB,0.86942E-02_JPRB,0.12744E-01_JPRB /)  
+KA(:, 1, 6,15) = (/ &
+ & 0.39506E-01_JPRB,0.34566E-01_JPRB,0.29627E-01_JPRB,0.24691E-01_JPRB,0.19819E-01_JPRB, &
+ & 0.15734E-01_JPRB,0.12852E-01_JPRB,0.10482E-01_JPRB,0.15100E-01_JPRB /)  
+KA(:, 2, 6,15) = (/ &
+ & 0.39438E-01_JPRB,0.34510E-01_JPRB,0.29581E-01_JPRB,0.24651E-01_JPRB,0.19767E-01_JPRB, &
+ & 0.15626E-01_JPRB,0.12723E-01_JPRB,0.10339E-01_JPRB,0.14869E-01_JPRB /)  
+KA(:, 3, 6,15) = (/ &
+ & 0.39363E-01_JPRB,0.34443E-01_JPRB,0.29524E-01_JPRB,0.24601E-01_JPRB,0.19714E-01_JPRB, &
+ & 0.15531E-01_JPRB,0.12593E-01_JPRB,0.10189E-01_JPRB,0.14636E-01_JPRB /)  
+KA(:, 4, 6,15) = (/ &
+ & 0.39295E-01_JPRB,0.34380E-01_JPRB,0.29468E-01_JPRB,0.24559E-01_JPRB,0.19663E-01_JPRB, &
+ & 0.15432E-01_JPRB,0.12453E-01_JPRB,0.10038E-01_JPRB,0.14402E-01_JPRB /)  
+KA(:, 5, 6,15) = (/ &
+ & 0.39232E-01_JPRB,0.34326E-01_JPRB,0.29423E-01_JPRB,0.24518E-01_JPRB,0.19622E-01_JPRB, &
+ & 0.15336E-01_JPRB,0.12308E-01_JPRB,0.98939E-02_JPRB,0.14172E-01_JPRB /)  
+KA(:, 1, 7,15) = (/ &
+ & 0.42642E-01_JPRB,0.37314E-01_JPRB,0.31983E-01_JPRB,0.26652E-01_JPRB,0.21609E-01_JPRB, &
+ & 0.17542E-01_JPRB,0.14584E-01_JPRB,0.11924E-01_JPRB,0.16714E-01_JPRB /)  
+KA(:, 2, 7,15) = (/ &
+ & 0.42588E-01_JPRB,0.37267E-01_JPRB,0.31942E-01_JPRB,0.26620E-01_JPRB,0.21537E-01_JPRB, &
+ & 0.17385E-01_JPRB,0.14405E-01_JPRB,0.11750E-01_JPRB,0.16453E-01_JPRB /)  
+KA(:, 3, 7,15) = (/ &
+ & 0.42519E-01_JPRB,0.37203E-01_JPRB,0.31888E-01_JPRB,0.26575E-01_JPRB,0.21450E-01_JPRB, &
+ & 0.17237E-01_JPRB,0.14233E-01_JPRB,0.11569E-01_JPRB,0.16190E-01_JPRB /)  
+KA(:, 4, 7,15) = (/ &
+ & 0.42450E-01_JPRB,0.37145E-01_JPRB,0.31837E-01_JPRB,0.26531E-01_JPRB,0.21364E-01_JPRB, &
+ & 0.17089E-01_JPRB,0.14051E-01_JPRB,0.11390E-01_JPRB,0.15924E-01_JPRB /)  
+KA(:, 5, 7,15) = (/ &
+ & 0.42372E-01_JPRB,0.37075E-01_JPRB,0.31780E-01_JPRB,0.26482E-01_JPRB,0.21293E-01_JPRB, &
+ & 0.16947E-01_JPRB,0.13866E-01_JPRB,0.11216E-01_JPRB,0.15662E-01_JPRB /)  
+KA(:, 1, 8,15) = (/ &
+ & 0.45438E-01_JPRB,0.39757E-01_JPRB,0.34077E-01_JPRB,0.28427E-01_JPRB,0.23418E-01_JPRB, &
+ & 0.19456E-01_JPRB,0.16427E-01_JPRB,0.13456E-01_JPRB,0.18359E-01_JPRB /)  
+KA(:, 2, 8,15) = (/ &
+ & 0.45420E-01_JPRB,0.39742E-01_JPRB,0.34065E-01_JPRB,0.28396E-01_JPRB,0.23308E-01_JPRB, &
+ & 0.19242E-01_JPRB,0.16196E-01_JPRB,0.13253E-01_JPRB,0.18076E-01_JPRB /)  
+KA(:, 3, 8,15) = (/ &
+ & 0.45404E-01_JPRB,0.39728E-01_JPRB,0.34054E-01_JPRB,0.28379E-01_JPRB,0.23190E-01_JPRB, &
+ & 0.19044E-01_JPRB,0.15968E-01_JPRB,0.13036E-01_JPRB,0.17789E-01_JPRB /)  
+KA(:, 4, 8,15) = (/ &
+ & 0.45355E-01_JPRB,0.39684E-01_JPRB,0.34015E-01_JPRB,0.28348E-01_JPRB,0.23074E-01_JPRB, &
+ & 0.18841E-01_JPRB,0.15735E-01_JPRB,0.12818E-01_JPRB,0.17487E-01_JPRB /)  
+KA(:, 5, 8,15) = (/ &
+ & 0.45268E-01_JPRB,0.39604E-01_JPRB,0.33951E-01_JPRB,0.28294E-01_JPRB,0.22964E-01_JPRB, &
+ & 0.18639E-01_JPRB,0.15495E-01_JPRB,0.12608E-01_JPRB,0.17187E-01_JPRB /)  
+KA(:, 1, 9,15) = (/ &
+ & 0.47828E-01_JPRB,0.41848E-01_JPRB,0.35870E-01_JPRB,0.30096E-01_JPRB,0.25238E-01_JPRB, &
+ & 0.21453E-01_JPRB,0.18348E-01_JPRB,0.15048E-01_JPRB,0.20030E-01_JPRB /)  
+KA(:, 2, 9,15) = (/ &
+ & 0.47883E-01_JPRB,0.41899E-01_JPRB,0.35911E-01_JPRB,0.30061E-01_JPRB,0.25102E-01_JPRB, &
+ & 0.21178E-01_JPRB,0.18071E-01_JPRB,0.14812E-01_JPRB,0.19720E-01_JPRB /)  
+KA(:, 3, 9,15) = (/ &
+ & 0.47917E-01_JPRB,0.41930E-01_JPRB,0.35941E-01_JPRB,0.30033E-01_JPRB,0.24934E-01_JPRB, &
+ & 0.20917E-01_JPRB,0.17786E-01_JPRB,0.14566E-01_JPRB,0.19396E-01_JPRB /)  
+KA(:, 4, 9,15) = (/ &
+ & 0.47914E-01_JPRB,0.41927E-01_JPRB,0.35936E-01_JPRB,0.29997E-01_JPRB,0.24771E-01_JPRB, &
+ & 0.20657E-01_JPRB,0.17491E-01_JPRB,0.14311E-01_JPRB,0.19056E-01_JPRB /)  
+KA(:, 5, 9,15) = (/ &
+ & 0.47853E-01_JPRB,0.41872E-01_JPRB,0.35889E-01_JPRB,0.29935E-01_JPRB,0.24616E-01_JPRB, &
+ & 0.20393E-01_JPRB,0.17196E-01_JPRB,0.14061E-01_JPRB,0.18721E-01_JPRB /)  
+KA(:, 1,10,15) = (/ &
+ & 0.49786E-01_JPRB,0.43562E-01_JPRB,0.37346E-01_JPRB,0.31673E-01_JPRB,0.27058E-01_JPRB, &
+ & 0.23446E-01_JPRB,0.20298E-01_JPRB,0.16634E-01_JPRB,0.20401E-01_JPRB /)  
+KA(:, 2,10,15) = (/ &
+ & 0.49957E-01_JPRB,0.43713E-01_JPRB,0.37470E-01_JPRB,0.31624E-01_JPRB,0.26879E-01_JPRB, &
+ & 0.23121E-01_JPRB,0.19962E-01_JPRB,0.16379E-01_JPRB,0.19980E-01_JPRB /)  
+KA(:, 3,10,15) = (/ &
+ & 0.50073E-01_JPRB,0.43811E-01_JPRB,0.37553E-01_JPRB,0.31591E-01_JPRB,0.26668E-01_JPRB, &
+ & 0.22810E-01_JPRB,0.19616E-01_JPRB,0.16101E-01_JPRB,0.19150E-01_JPRB /)  
+KA(:, 4,10,15) = (/ &
+ & 0.50104E-01_JPRB,0.43839E-01_JPRB,0.37576E-01_JPRB,0.31542E-01_JPRB,0.26451E-01_JPRB, &
+ & 0.22487E-01_JPRB,0.19263E-01_JPRB,0.15810E-01_JPRB,0.18309E-01_JPRB /)  
+KA(:, 5,10,15) = (/ &
+ & 0.50083E-01_JPRB,0.43821E-01_JPRB,0.37560E-01_JPRB,0.31463E-01_JPRB,0.26247E-01_JPRB, &
+ & 0.22153E-01_JPRB,0.18906E-01_JPRB,0.15516E-01_JPRB,0.17790E-01_JPRB /)  
+KA(:, 1,11,15) = (/ &
+ & 0.51449E-01_JPRB,0.45016E-01_JPRB,0.38642E-01_JPRB,0.33136E-01_JPRB,0.28759E-01_JPRB, &
+ & 0.25254E-01_JPRB,0.22053E-01_JPRB,0.18120E-01_JPRB,0.53897E-02_JPRB /)  
+KA(:, 2,11,15) = (/ &
+ & 0.51718E-01_JPRB,0.45255E-01_JPRB,0.38815E-01_JPRB,0.33090E-01_JPRB,0.28517E-01_JPRB, &
+ & 0.24894E-01_JPRB,0.21659E-01_JPRB,0.17825E-01_JPRB,0.47196E-02_JPRB /)  
+KA(:, 3,11,15) = (/ &
+ & 0.51885E-01_JPRB,0.45397E-01_JPRB,0.38919E-01_JPRB,0.33034E-01_JPRB,0.28248E-01_JPRB, &
+ & 0.24520E-01_JPRB,0.21252E-01_JPRB,0.17499E-01_JPRB,0.36639E-02_JPRB /)  
+KA(:, 4,11,15) = (/ &
+ & 0.51965E-01_JPRB,0.45468E-01_JPRB,0.38969E-01_JPRB,0.32946E-01_JPRB,0.27987E-01_JPRB, &
+ & 0.24125E-01_JPRB,0.20834E-01_JPRB,0.17164E-01_JPRB,0.30436E-02_JPRB /)  
+KA(:, 5,11,15) = (/ &
+ & 0.52007E-01_JPRB,0.45508E-01_JPRB,0.39008E-01_JPRB,0.32828E-01_JPRB,0.27732E-01_JPRB, &
+ & 0.23720E-01_JPRB,0.20415E-01_JPRB,0.16822E-01_JPRB,0.23024E-02_JPRB /)  
+KA(:, 1,12,15) = (/ &
+ & 0.52772E-01_JPRB,0.46179E-01_JPRB,0.39786E-01_JPRB,0.34518E-01_JPRB,0.30341E-01_JPRB, &
+ & 0.26996E-01_JPRB,0.23719E-01_JPRB,0.19625E-01_JPRB,0.00000E+00_JPRB /)  
+KA(:, 2,12,15) = (/ &
+ & 0.53131E-01_JPRB,0.46489E-01_JPRB,0.39976E-01_JPRB,0.34451E-01_JPRB,0.30050E-01_JPRB, &
+ & 0.26583E-01_JPRB,0.23271E-01_JPRB,0.19259E-01_JPRB,0.79250E-04_JPRB /)  
+KA(:, 3,12,15) = (/ &
+ & 0.53372E-01_JPRB,0.46707E-01_JPRB,0.40090E-01_JPRB,0.34369E-01_JPRB,0.29734E-01_JPRB, &
+ & 0.26140E-01_JPRB,0.22802E-01_JPRB,0.18870E-01_JPRB,0.00000E+00_JPRB /)  
+KA(:, 4,12,15) = (/ &
+ & 0.53549E-01_JPRB,0.46855E-01_JPRB,0.40175E-01_JPRB,0.34238E-01_JPRB,0.29424E-01_JPRB, &
+ & 0.25661E-01_JPRB,0.22318E-01_JPRB,0.18486E-01_JPRB,0.00000E+00_JPRB /)  
+KA(:, 5,12,15) = (/ &
+ & 0.53641E-01_JPRB,0.46944E-01_JPRB,0.40238E-01_JPRB,0.34087E-01_JPRB,0.29108E-01_JPRB, &
+ & 0.25184E-01_JPRB,0.21836E-01_JPRB,0.18091E-01_JPRB,0.00000E+00_JPRB /)  
+KA(:, 1,13,15) = (/ &
+ & 0.53794E-01_JPRB,0.47070E-01_JPRB,0.40802E-01_JPRB,0.35804E-01_JPRB,0.31808E-01_JPRB, &
+ & 0.28611E-01_JPRB,0.25317E-01_JPRB,0.21103E-01_JPRB,0.00000E+00_JPRB /)  
+KA(:, 2,13,15) = (/ &
+ & 0.54248E-01_JPRB,0.47468E-01_JPRB,0.40994E-01_JPRB,0.35717E-01_JPRB,0.31468E-01_JPRB, &
+ & 0.28147E-01_JPRB,0.24800E-01_JPRB,0.20666E-01_JPRB,0.99549E-04_JPRB /)  
+KA(:, 3,13,15) = (/ &
+ & 0.54616E-01_JPRB,0.47795E-01_JPRB,0.41127E-01_JPRB,0.35591E-01_JPRB,0.31112E-01_JPRB, &
+ & 0.27634E-01_JPRB,0.24251E-01_JPRB,0.20223E-01_JPRB,0.00000E+00_JPRB /)  
+KA(:, 4,13,15) = (/ &
+ & 0.54881E-01_JPRB,0.48017E-01_JPRB,0.41234E-01_JPRB,0.35410E-01_JPRB,0.30749E-01_JPRB, &
+ & 0.27090E-01_JPRB,0.23692E-01_JPRB,0.19766E-01_JPRB,0.00000E+00_JPRB /)  
+KA(:, 5,13,15) = (/ &
+ & 0.55030E-01_JPRB,0.48150E-01_JPRB,0.41295E-01_JPRB,0.35229E-01_JPRB,0.30369E-01_JPRB, &
+ & 0.26544E-01_JPRB,0.23150E-01_JPRB,0.19313E-01_JPRB,0.00000E+00_JPRB /)  
+KA(:, 1, 1,16) = (/ &
+ & 0.31412E-01_JPRB,0.27484E-01_JPRB,0.23556E-01_JPRB,0.19630E-01_JPRB,0.15703E-01_JPRB, &
+ & 0.11777E-01_JPRB,0.78503E-02_JPRB,0.63859E-02_JPRB,0.10546E-01_JPRB /)  
+KA(:, 2, 1,16) = (/ &
+ & 0.31306E-01_JPRB,0.27393E-01_JPRB,0.23480E-01_JPRB,0.19566E-01_JPRB,0.15652E-01_JPRB, &
+ & 0.11737E-01_JPRB,0.78244E-02_JPRB,0.64039E-02_JPRB,0.10543E-01_JPRB /)  
+KA(:, 3, 1,16) = (/ &
+ & 0.31189E-01_JPRB,0.27291E-01_JPRB,0.23390E-01_JPRB,0.19492E-01_JPRB,0.15594E-01_JPRB, &
+ & 0.11694E-01_JPRB,0.77949E-02_JPRB,0.65607E-02_JPRB,0.10621E-01_JPRB /)  
+KA(:, 4, 1,16) = (/ &
+ & 0.31060E-01_JPRB,0.27175E-01_JPRB,0.23293E-01_JPRB,0.19412E-01_JPRB,0.15526E-01_JPRB, &
+ & 0.11645E-01_JPRB,0.77621E-02_JPRB,0.64197E-02_JPRB,0.10470E-01_JPRB /)  
+KA(:, 5, 1,16) = (/ &
+ & 0.30934E-01_JPRB,0.27069E-01_JPRB,0.23201E-01_JPRB,0.19334E-01_JPRB,0.15466E-01_JPRB, &
+ & 0.11599E-01_JPRB,0.77309E-02_JPRB,0.64181E-02_JPRB,0.10407E-01_JPRB /)  
+KA(:, 1, 2,16) = (/ &
+ & 0.37345E-01_JPRB,0.32673E-01_JPRB,0.28007E-01_JPRB,0.23341E-01_JPRB,0.18670E-01_JPRB, &
+ & 0.14002E-01_JPRB,0.93330E-02_JPRB,0.76035E-02_JPRB,0.12759E-01_JPRB /)  
+KA(:, 2, 2,16) = (/ &
+ & 0.37160E-01_JPRB,0.32513E-01_JPRB,0.27871E-01_JPRB,0.23225E-01_JPRB,0.18579E-01_JPRB, &
+ & 0.13933E-01_JPRB,0.92868E-02_JPRB,0.75902E-02_JPRB,0.12702E-01_JPRB /)  
+KA(:, 3, 2,16) = (/ &
+ & 0.36977E-01_JPRB,0.32353E-01_JPRB,0.27732E-01_JPRB,0.23111E-01_JPRB,0.18487E-01_JPRB, &
+ & 0.13864E-01_JPRB,0.92415E-02_JPRB,0.77168E-02_JPRB,0.12729E-01_JPRB /)  
+KA(:, 4, 2,16) = (/ &
+ & 0.36807E-01_JPRB,0.32204E-01_JPRB,0.27602E-01_JPRB,0.23002E-01_JPRB,0.18402E-01_JPRB, &
+ & 0.13798E-01_JPRB,0.91981E-02_JPRB,0.77023E-02_JPRB,0.12641E-01_JPRB /)  
+KA(:, 5, 2,16) = (/ &
+ & 0.36620E-01_JPRB,0.32046E-01_JPRB,0.27465E-01_JPRB,0.22887E-01_JPRB,0.18309E-01_JPRB, &
+ & 0.13731E-01_JPRB,0.91527E-02_JPRB,0.75684E-02_JPRB,0.12457E-01_JPRB /)  
+KA(:, 1, 3,16) = (/ &
+ & 0.44232E-01_JPRB,0.38700E-01_JPRB,0.33173E-01_JPRB,0.27644E-01_JPRB,0.22114E-01_JPRB, &
+ & 0.16581E-01_JPRB,0.11054E-01_JPRB,0.91028E-02_JPRB,0.15510E-01_JPRB /)  
+KA(:, 2, 3,16) = (/ &
+ & 0.43957E-01_JPRB,0.38463E-01_JPRB,0.32969E-01_JPRB,0.27474E-01_JPRB,0.21977E-01_JPRB, &
+ & 0.16483E-01_JPRB,0.10987E-01_JPRB,0.90298E-02_JPRB,0.15354E-01_JPRB /)  
+KA(:, 3, 3,16) = (/ &
+ & 0.43680E-01_JPRB,0.38217E-01_JPRB,0.32756E-01_JPRB,0.27297E-01_JPRB,0.21838E-01_JPRB, &
+ & 0.16376E-01_JPRB,0.10918E-01_JPRB,0.89896E-02_JPRB,0.15195E-01_JPRB /)  
+KA(:, 4, 3,16) = (/ &
+ & 0.43409E-01_JPRB,0.37982E-01_JPRB,0.32556E-01_JPRB,0.27128E-01_JPRB,0.21703E-01_JPRB, &
+ & 0.16277E-01_JPRB,0.10849E-01_JPRB,0.90630E-02_JPRB,0.15090E-01_JPRB /)  
+KA(:, 5, 3,16) = (/ &
+ & 0.43148E-01_JPRB,0.37757E-01_JPRB,0.32362E-01_JPRB,0.26967E-01_JPRB,0.21574E-01_JPRB, &
+ & 0.16179E-01_JPRB,0.10784E-01_JPRB,0.89323E-02_JPRB,0.14861E-01_JPRB /)  
+KA(:, 1, 4,16) = (/ &
+ & 0.52173E-01_JPRB,0.45650E-01_JPRB,0.39129E-01_JPRB,0.32609E-01_JPRB,0.26084E-01_JPRB, &
+ & 0.19564E-01_JPRB,0.13063E-01_JPRB,0.10928E-01_JPRB,0.18665E-01_JPRB /)  
+KA(:, 2, 4,16) = (/ &
+ & 0.51767E-01_JPRB,0.45298E-01_JPRB,0.38824E-01_JPRB,0.32358E-01_JPRB,0.25882E-01_JPRB, &
+ & 0.19411E-01_JPRB,0.12948E-01_JPRB,0.10795E-01_JPRB,0.18386E-01_JPRB /)  
+KA(:, 3, 4,16) = (/ &
+ & 0.51358E-01_JPRB,0.44935E-01_JPRB,0.38514E-01_JPRB,0.32093E-01_JPRB,0.25677E-01_JPRB, &
+ & 0.19255E-01_JPRB,0.12843E-01_JPRB,0.10694E-01_JPRB,0.18120E-01_JPRB /)  
+KA(:, 4, 4,16) = (/ &
+ & 0.50955E-01_JPRB,0.44587E-01_JPRB,0.38218E-01_JPRB,0.31847E-01_JPRB,0.25475E-01_JPRB, &
+ & 0.19107E-01_JPRB,0.12737E-01_JPRB,0.10607E-01_JPRB,0.17851E-01_JPRB /)  
+KA(:, 5, 4,16) = (/ &
+ & 0.50544E-01_JPRB,0.44227E-01_JPRB,0.37909E-01_JPRB,0.31588E-01_JPRB,0.25270E-01_JPRB, &
+ & 0.18952E-01_JPRB,0.12634E-01_JPRB,0.10599E-01_JPRB,0.17618E-01_JPRB /)  
+KA(:, 1, 5,16) = (/ &
+ & 0.61214E-01_JPRB,0.53565E-01_JPRB,0.45917E-01_JPRB,0.38262E-01_JPRB,0.30607E-01_JPRB, &
+ & 0.22954E-01_JPRB,0.15462E-01_JPRB,0.13125E-01_JPRB,0.22278E-01_JPRB /)  
+KA(:, 2, 5,16) = (/ &
+ & 0.60651E-01_JPRB,0.53068E-01_JPRB,0.45484E-01_JPRB,0.37903E-01_JPRB,0.30322E-01_JPRB, &
+ & 0.22741E-01_JPRB,0.15244E-01_JPRB,0.12927E-01_JPRB,0.21870E-01_JPRB /)  
+KA(:, 3, 5,16) = (/ &
+ & 0.60040E-01_JPRB,0.52533E-01_JPRB,0.45028E-01_JPRB,0.37524E-01_JPRB,0.30019E-01_JPRB, &
+ & 0.22514E-01_JPRB,0.15074E-01_JPRB,0.12758E-01_JPRB,0.21465E-01_JPRB /)  
+KA(:, 4, 5,16) = (/ &
+ & 0.59437E-01_JPRB,0.52006E-01_JPRB,0.44573E-01_JPRB,0.37145E-01_JPRB,0.29715E-01_JPRB, &
+ & 0.22286E-01_JPRB,0.14911E-01_JPRB,0.12602E-01_JPRB,0.21062E-01_JPRB /)  
+KA(:, 5, 5,16) = (/ &
+ & 0.58809E-01_JPRB,0.51461E-01_JPRB,0.44106E-01_JPRB,0.36755E-01_JPRB,0.29405E-01_JPRB, &
+ & 0.22053E-01_JPRB,0.14746E-01_JPRB,0.12499E-01_JPRB,0.20685E-01_JPRB /)  
+KA(:, 1, 6,16) = (/ &
+ & 0.71375E-01_JPRB,0.62451E-01_JPRB,0.53529E-01_JPRB,0.44607E-01_JPRB,0.35687E-01_JPRB, &
+ & 0.26759E-01_JPRB,0.18273E-01_JPRB,0.15758E-01_JPRB,0.26378E-01_JPRB /)  
+KA(:, 2, 6,16) = (/ &
+ & 0.70571E-01_JPRB,0.61748E-01_JPRB,0.52933E-01_JPRB,0.44107E-01_JPRB,0.35285E-01_JPRB, &
+ & 0.26462E-01_JPRB,0.17959E-01_JPRB,0.15470E-01_JPRB,0.25822E-01_JPRB /)  
+KA(:, 3, 6,16) = (/ &
+ & 0.69734E-01_JPRB,0.61022E-01_JPRB,0.52301E-01_JPRB,0.43583E-01_JPRB,0.34867E-01_JPRB, &
+ & 0.26147E-01_JPRB,0.17660E-01_JPRB,0.15207E-01_JPRB,0.25265E-01_JPRB /)  
+KA(:, 4, 6,16) = (/ &
+ & 0.68870E-01_JPRB,0.60256E-01_JPRB,0.51654E-01_JPRB,0.43043E-01_JPRB,0.34432E-01_JPRB, &
+ & 0.25826E-01_JPRB,0.17391E-01_JPRB,0.14968E-01_JPRB,0.24710E-01_JPRB /)  
+KA(:, 5, 6,16) = (/ &
+ & 0.67988E-01_JPRB,0.59482E-01_JPRB,0.50988E-01_JPRB,0.42488E-01_JPRB,0.33987E-01_JPRB, &
+ & 0.25491E-01_JPRB,0.17159E-01_JPRB,0.14740E-01_JPRB,0.24148E-01_JPRB /)  
+KA(:, 1, 7,16) = (/ &
+ & 0.82705E-01_JPRB,0.72369E-01_JPRB,0.62031E-01_JPRB,0.51694E-01_JPRB,0.41353E-01_JPRB, &
+ & 0.31012E-01_JPRB,0.21511E-01_JPRB,0.18843E-01_JPRB,0.31008E-01_JPRB /)  
+KA(:, 2, 7,16) = (/ &
+ & 0.81487E-01_JPRB,0.71304E-01_JPRB,0.61113E-01_JPRB,0.50924E-01_JPRB,0.40740E-01_JPRB, &
+ & 0.30554E-01_JPRB,0.21074E-01_JPRB,0.18457E-01_JPRB,0.30235E-01_JPRB /)  
+KA(:, 3, 7,16) = (/ &
+ & 0.80318E-01_JPRB,0.70281E-01_JPRB,0.60235E-01_JPRB,0.50200E-01_JPRB,0.40157E-01_JPRB, &
+ & 0.30117E-01_JPRB,0.20636E-01_JPRB,0.18102E-01_JPRB,0.29494E-01_JPRB /)  
+KA(:, 4, 7,16) = (/ &
+ & 0.79154E-01_JPRB,0.69255E-01_JPRB,0.59365E-01_JPRB,0.49470E-01_JPRB,0.39576E-01_JPRB, &
+ & 0.29680E-01_JPRB,0.20228E-01_JPRB,0.17748E-01_JPRB,0.28759E-01_JPRB /)  
+KA(:, 5, 7,16) = (/ &
+ & 0.77937E-01_JPRB,0.68190E-01_JPRB,0.58450E-01_JPRB,0.48707E-01_JPRB,0.38965E-01_JPRB, &
+ & 0.29223E-01_JPRB,0.19858E-01_JPRB,0.17406E-01_JPRB,0.28017E-01_JPRB /)  
+KA(:, 1, 8,16) = (/ &
+ & 0.95173E-01_JPRB,0.83270E-01_JPRB,0.71377E-01_JPRB,0.59480E-01_JPRB,0.47582E-01_JPRB, &
+ & 0.35684E-01_JPRB,0.25169E-01_JPRB,0.22449E-01_JPRB,0.36274E-01_JPRB /)  
+KA(:, 2, 8,16) = (/ &
+ & 0.93409E-01_JPRB,0.81740E-01_JPRB,0.70058E-01_JPRB,0.58384E-01_JPRB,0.46709E-01_JPRB, &
+ & 0.35028E-01_JPRB,0.24581E-01_JPRB,0.21893E-01_JPRB,0.35207E-01_JPRB /)  
+KA(:, 3, 8,16) = (/ &
+ & 0.91737E-01_JPRB,0.80263E-01_JPRB,0.68796E-01_JPRB,0.57330E-01_JPRB,0.45863E-01_JPRB, &
+ & 0.34396E-01_JPRB,0.23987E-01_JPRB,0.21409E-01_JPRB,0.34174E-01_JPRB /)  
+KA(:, 4, 8,16) = (/ &
+ & 0.90113E-01_JPRB,0.78852E-01_JPRB,0.67585E-01_JPRB,0.56324E-01_JPRB,0.45060E-01_JPRB, &
+ & 0.33794E-01_JPRB,0.23415E-01_JPRB,0.20940E-01_JPRB,0.33185E-01_JPRB /)  
+KA(:, 5, 8,16) = (/ &
+ & 0.88500E-01_JPRB,0.77445E-01_JPRB,0.66378E-01_JPRB,0.55317E-01_JPRB,0.44252E-01_JPRB, &
+ & 0.33190E-01_JPRB,0.22890E-01_JPRB,0.20471E-01_JPRB,0.32236E-01_JPRB /)  
+KA(:, 1, 9,16) = (/ &
+ & 0.10878E+00_JPRB,0.95186E-01_JPRB,0.81587E-01_JPRB,0.67986E-01_JPRB,0.54386E-01_JPRB, &
+ & 0.40792E-01_JPRB,0.29314E-01_JPRB,0.26669E-01_JPRB,0.42265E-01_JPRB /)  
+KA(:, 2, 9,16) = (/ &
+ & 0.10631E+00_JPRB,0.93021E-01_JPRB,0.79732E-01_JPRB,0.66444E-01_JPRB,0.53150E-01_JPRB, &
+ & 0.39864E-01_JPRB,0.28508E-01_JPRB,0.25873E-01_JPRB,0.40792E-01_JPRB /)  
+KA(:, 3, 9,16) = (/ &
+ & 0.10400E+00_JPRB,0.91002E-01_JPRB,0.78003E-01_JPRB,0.64997E-01_JPRB,0.51997E-01_JPRB, &
+ & 0.39001E-01_JPRB,0.27707E-01_JPRB,0.25186E-01_JPRB,0.39383E-01_JPRB /)  
+KA(:, 4, 9,16) = (/ &
+ & 0.10173E+00_JPRB,0.89018E-01_JPRB,0.76292E-01_JPRB,0.63582E-01_JPRB,0.50863E-01_JPRB, &
+ & 0.38144E-01_JPRB,0.26926E-01_JPRB,0.24532E-01_JPRB,0.38084E-01_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART11',1,ZHOOK_HANDLE)
+END SUBROUTINE PART11
+
+
+SUBROUTINE PART12
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART12',0,ZHOOK_HANDLE)
+
+
+KA(:, 5, 9,16) = (/ &
+ & 0.99555E-01_JPRB,0.87113E-01_JPRB,0.74666E-01_JPRB,0.62221E-01_JPRB,0.49774E-01_JPRB, &
+ & 0.37334E-01_JPRB,0.26211E-01_JPRB,0.23902E-01_JPRB,0.36825E-01_JPRB /)  
+KA(:, 1,10,16) = (/ &
+ & 0.12320E+00_JPRB,0.10779E+00_JPRB,0.92400E-01_JPRB,0.76993E-01_JPRB,0.61601E-01_JPRB, &
+ & 0.46197E-01_JPRB,0.33879E-01_JPRB,0.31475E-01_JPRB,0.48792E-01_JPRB /)  
+KA(:, 2,10,16) = (/ &
+ & 0.11986E+00_JPRB,0.10487E+00_JPRB,0.89890E-01_JPRB,0.74910E-01_JPRB,0.59927E-01_JPRB, &
+ & 0.44946E-01_JPRB,0.32786E-01_JPRB,0.30373E-01_JPRB,0.46838E-01_JPRB /)  
+KA(:, 3,10,16) = (/ &
+ & 0.11671E+00_JPRB,0.10212E+00_JPRB,0.87531E-01_JPRB,0.72938E-01_JPRB,0.58350E-01_JPRB, &
+ & 0.43767E-01_JPRB,0.31728E-01_JPRB,0.29415E-01_JPRB,0.45011E-01_JPRB /)  
+KA(:, 4,10,16) = (/ &
+ & 0.11373E+00_JPRB,0.99514E-01_JPRB,0.85291E-01_JPRB,0.71084E-01_JPRB,0.56859E-01_JPRB, &
+ & 0.42648E-01_JPRB,0.30712E-01_JPRB,0.28518E-01_JPRB,0.43306E-01_JPRB /)  
+KA(:, 5,10,16) = (/ &
+ & 0.11086E+00_JPRB,0.97005E-01_JPRB,0.83130E-01_JPRB,0.69287E-01_JPRB,0.55428E-01_JPRB, &
+ & 0.41573E-01_JPRB,0.29748E-01_JPRB,0.27669E-01_JPRB,0.41673E-01_JPRB /)  
+KA(:, 1,11,16) = (/ &
+ & 0.13635E+00_JPRB,0.11930E+00_JPRB,0.10226E+00_JPRB,0.85213E-01_JPRB,0.68170E-01_JPRB, &
+ & 0.51126E-01_JPRB,0.38257E-01_JPRB,0.36212E-01_JPRB,0.54706E-01_JPRB /)  
+KA(:, 2,11,16) = (/ &
+ & 0.13203E+00_JPRB,0.11554E+00_JPRB,0.99030E-01_JPRB,0.82523E-01_JPRB,0.66019E-01_JPRB, &
+ & 0.49513E-01_JPRB,0.36799E-01_JPRB,0.34833E-01_JPRB,0.52312E-01_JPRB /)  
+KA(:, 3,11,16) = (/ &
+ & 0.12805E+00_JPRB,0.11203E+00_JPRB,0.96022E-01_JPRB,0.80023E-01_JPRB,0.64019E-01_JPRB, &
+ & 0.48015E-01_JPRB,0.35435E-01_JPRB,0.33591E-01_JPRB,0.50057E-01_JPRB /)  
+KA(:, 4,11,16) = (/ &
+ & 0.12432E+00_JPRB,0.10877E+00_JPRB,0.93237E-01_JPRB,0.77695E-01_JPRB,0.62158E-01_JPRB, &
+ & 0.46618E-01_JPRB,0.34181E-01_JPRB,0.32427E-01_JPRB,0.47918E-01_JPRB /)  
+KA(:, 5,11,16) = (/ &
+ & 0.12077E+00_JPRB,0.10567E+00_JPRB,0.90572E-01_JPRB,0.75471E-01_JPRB,0.60381E-01_JPRB, &
+ & 0.45284E-01_JPRB,0.32973E-01_JPRB,0.31331E-01_JPRB,0.45895E-01_JPRB /)  
+KA(:, 1,12,16) = (/ &
+ & 0.14909E+00_JPRB,0.13045E+00_JPRB,0.11182E+00_JPRB,0.93176E-01_JPRB,0.74537E-01_JPRB, &
+ & 0.55927E-01_JPRB,0.42736E-01_JPRB,0.41194E-01_JPRB,0.43864E-01_JPRB /)  
+KA(:, 2,12,16) = (/ &
+ & 0.14380E+00_JPRB,0.12582E+00_JPRB,0.10785E+00_JPRB,0.89883E-01_JPRB,0.71900E-01_JPRB, &
+ & 0.53925E-01_JPRB,0.40874E-01_JPRB,0.39509E-01_JPRB,0.34410E-01_JPRB /)  
+KA(:, 3,12,16) = (/ &
+ & 0.13887E+00_JPRB,0.12152E+00_JPRB,0.10414E+00_JPRB,0.86796E-01_JPRB,0.69431E-01_JPRB, &
+ & 0.52073E-01_JPRB,0.39165E-01_JPRB,0.37950E-01_JPRB,0.27228E-01_JPRB /)  
+KA(:, 4,12,16) = (/ &
+ & 0.13436E+00_JPRB,0.11758E+00_JPRB,0.10078E+00_JPRB,0.83978E-01_JPRB,0.67186E-01_JPRB, &
+ & 0.50383E-01_JPRB,0.37599E-01_JPRB,0.36473E-01_JPRB,0.23165E-01_JPRB /)  
+KA(:, 5,12,16) = (/ &
+ & 0.13007E+00_JPRB,0.11382E+00_JPRB,0.97560E-01_JPRB,0.81293E-01_JPRB,0.65042E-01_JPRB, &
+ & 0.48775E-01_JPRB,0.36131E-01_JPRB,0.35083E-01_JPRB,0.14412E-01_JPRB /)  
+KA(:, 1,13,16) = (/ &
+ & 0.16113E+00_JPRB,0.14100E+00_JPRB,0.12085E+00_JPRB,0.10071E+00_JPRB,0.80563E-01_JPRB, &
+ & 0.60580E-01_JPRB,0.47246E-01_JPRB,0.46365E-01_JPRB,0.26456E-01_JPRB /)  
+KA(:, 2,13,16) = (/ &
+ & 0.15486E+00_JPRB,0.13550E+00_JPRB,0.11616E+00_JPRB,0.96791E-01_JPRB,0.77431E-01_JPRB, &
+ & 0.58082E-01_JPRB,0.44915E-01_JPRB,0.44314E-01_JPRB,0.19340E-01_JPRB /)  
+KA(:, 3,13,16) = (/ &
+ & 0.14906E+00_JPRB,0.13042E+00_JPRB,0.11179E+00_JPRB,0.93156E-01_JPRB,0.74526E-01_JPRB, &
+ & 0.55893E-01_JPRB,0.42831E-01_JPRB,0.42380E-01_JPRB,0.11993E-01_JPRB /)  
+KA(:, 4,13,16) = (/ &
+ & 0.14369E+00_JPRB,0.12574E+00_JPRB,0.10777E+00_JPRB,0.89817E-01_JPRB,0.71849E-01_JPRB, &
+ & 0.53884E-01_JPRB,0.40915E-01_JPRB,0.40556E-01_JPRB,0.50486E-02_JPRB /)  
+KA(:, 5,13,16) = (/ &
+ & 0.13868E+00_JPRB,0.12134E+00_JPRB,0.10400E+00_JPRB,0.86669E-01_JPRB,0.69338E-01_JPRB, &
+ & 0.52006E-01_JPRB,0.39136E-01_JPRB,0.38851E-01_JPRB,0.00000E+00_JPRB /)  
+  
+!     -----------------------------------------------------------------
+!     The array KB contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels < ~100mb and temperatures. The first 
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this pressure 
+!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for
+!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  
+!     The second index, JP, runs from 13 to 59 and refers to the JPth
+!     reference pressure level (see taumol.f for the value of these
+!     pressure levels in mb).  The third index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+!     -----------------------------------------------------------------
+
+KB(:,13, 1) = (/ &
+ & 0.12158E-08_JPRB,0.13238E-08_JPRB,0.15146E-08_JPRB,0.16862E-08_JPRB,0.18609E-08_JPRB /)  
+KB(:,14, 1) = (/ &
+ & 0.16931E-08_JPRB,0.20047E-08_JPRB,0.23006E-08_JPRB,0.25636E-08_JPRB,0.28912E-08_JPRB /)  
+KB(:,15, 1) = (/ &
+ & 0.31521E-08_JPRB,0.36963E-08_JPRB,0.41550E-08_JPRB,0.46365E-08_JPRB,0.50834E-08_JPRB /)  
+KB(:,16, 1) = (/ &
+ & 0.46152E-08_JPRB,0.50173E-08_JPRB,0.55381E-08_JPRB,0.60748E-08_JPRB,0.66355E-08_JPRB /)  
+KB(:,17, 1) = (/ &
+ & 0.62662E-08_JPRB,0.67518E-08_JPRB,0.71765E-08_JPRB,0.80302E-08_JPRB,0.89056E-08_JPRB /)  
+KB(:,18, 1) = (/ &
+ & 0.81764E-08_JPRB,0.91818E-08_JPRB,0.10385E-07_JPRB,0.11708E-07_JPRB,0.12536E-07_JPRB /)  
+KB(:,19, 1) = (/ &
+ & 0.12946E-07_JPRB,0.13631E-07_JPRB,0.14453E-07_JPRB,0.15133E-07_JPRB,0.15911E-07_JPRB /)  
+KB(:,20, 1) = (/ &
+ & 0.15868E-07_JPRB,0.16654E-07_JPRB,0.17281E-07_JPRB,0.17857E-07_JPRB,0.18383E-07_JPRB /)  
+KB(:,21, 1) = (/ &
+ & 0.18151E-07_JPRB,0.19056E-07_JPRB,0.20057E-07_JPRB,0.20708E-07_JPRB,0.21229E-07_JPRB /)  
+KB(:,22, 1) = (/ &
+ & 0.20234E-07_JPRB,0.21482E-07_JPRB,0.22599E-07_JPRB,0.23778E-07_JPRB,0.25115E-07_JPRB /)  
+KB(:,23, 1) = (/ &
+ & 0.23827E-07_JPRB,0.25405E-07_JPRB,0.26545E-07_JPRB,0.27716E-07_JPRB,0.28422E-07_JPRB /)  
+KB(:,24, 1) = (/ &
+ & 0.27638E-07_JPRB,0.28518E-07_JPRB,0.29101E-07_JPRB,0.29639E-07_JPRB,0.30077E-07_JPRB /)  
+KB(:,25, 1) = (/ &
+ & 0.28942E-07_JPRB,0.29436E-07_JPRB,0.29831E-07_JPRB,0.30066E-07_JPRB,0.30242E-07_JPRB /)  
+KB(:,26, 1) = (/ &
+ & 0.28774E-07_JPRB,0.29004E-07_JPRB,0.29272E-07_JPRB,0.29431E-07_JPRB,0.29616E-07_JPRB /)  
+KB(:,27, 1) = (/ &
+ & 0.27317E-07_JPRB,0.27462E-07_JPRB,0.27698E-07_JPRB,0.27835E-07_JPRB,0.27843E-07_JPRB /)  
+KB(:,28, 1) = (/ &
+ & 0.25463E-07_JPRB,0.25523E-07_JPRB,0.25678E-07_JPRB,0.25658E-07_JPRB,0.25687E-07_JPRB /)  
+KB(:,29, 1) = (/ &
+ & 0.22603E-07_JPRB,0.22672E-07_JPRB,0.22704E-07_JPRB,0.22668E-07_JPRB,0.22698E-07_JPRB /)  
+KB(:,30, 1) = (/ &
+ & 0.19657E-07_JPRB,0.19747E-07_JPRB,0.19687E-07_JPRB,0.19659E-07_JPRB,0.19680E-07_JPRB /)  
+KB(:,31, 1) = (/ &
+ & 0.16553E-07_JPRB,0.16571E-07_JPRB,0.16522E-07_JPRB,0.16545E-07_JPRB,0.16563E-07_JPRB /)  
+KB(:,32, 1) = (/ &
+ & 0.13867E-07_JPRB,0.13795E-07_JPRB,0.13808E-07_JPRB,0.13815E-07_JPRB,0.13799E-07_JPRB /)  
+KB(:,33, 1) = (/ &
+ & 0.11414E-07_JPRB,0.11409E-07_JPRB,0.11395E-07_JPRB,0.11384E-07_JPRB,0.11416E-07_JPRB /)  
+KB(:,34, 1) = (/ &
+ & 0.95639E-08_JPRB,0.95514E-08_JPRB,0.95251E-08_JPRB,0.95607E-08_JPRB,0.95767E-08_JPRB /)  
+KB(:,35, 1) = (/ &
+ & 0.80018E-08_JPRB,0.79882E-08_JPRB,0.79720E-08_JPRB,0.79934E-08_JPRB,0.79942E-08_JPRB /)  
+KB(:,36, 1) = (/ &
+ & 0.67279E-08_JPRB,0.67135E-08_JPRB,0.67089E-08_JPRB,0.67131E-08_JPRB,0.67290E-08_JPRB /)  
+KB(:,37, 1) = (/ &
+ & 0.57292E-08_JPRB,0.57278E-08_JPRB,0.57247E-08_JPRB,0.57298E-08_JPRB,0.57269E-08_JPRB /)  
+KB(:,38, 1) = (/ &
+ & 0.48406E-08_JPRB,0.48461E-08_JPRB,0.48394E-08_JPRB,0.48468E-08_JPRB,0.48401E-08_JPRB /)  
+KB(:,39, 1) = (/ &
+ & 0.40368E-08_JPRB,0.40419E-08_JPRB,0.40353E-08_JPRB,0.40432E-08_JPRB,0.40267E-08_JPRB /)  
+KB(:,40, 1) = (/ &
+ & 0.34875E-08_JPRB,0.34931E-08_JPRB,0.34872E-08_JPRB,0.34940E-08_JPRB,0.34782E-08_JPRB /)  
+KB(:,41, 1) = (/ &
+ & 0.30195E-08_JPRB,0.30243E-08_JPRB,0.30129E-08_JPRB,0.30148E-08_JPRB,0.30016E-08_JPRB /)  
+KB(:,42, 1) = (/ &
+ & 0.25993E-08_JPRB,0.25924E-08_JPRB,0.25861E-08_JPRB,0.25841E-08_JPRB,0.25734E-08_JPRB /)  
+KB(:,43, 1) = (/ &
+ & 0.22290E-08_JPRB,0.22166E-08_JPRB,0.22080E-08_JPRB,0.22067E-08_JPRB,0.21992E-08_JPRB /)  
+KB(:,44, 1) = (/ &
+ & 0.18916E-08_JPRB,0.18847E-08_JPRB,0.18733E-08_JPRB,0.18685E-08_JPRB,0.18685E-08_JPRB /)  
+KB(:,45, 1) = (/ &
+ & 0.15840E-08_JPRB,0.15787E-08_JPRB,0.15719E-08_JPRB,0.15641E-08_JPRB,0.15644E-08_JPRB /)  
+KB(:,46, 1) = (/ &
+ & 0.13197E-08_JPRB,0.13138E-08_JPRB,0.13098E-08_JPRB,0.13024E-08_JPRB,0.13049E-08_JPRB /)  
+KB(:,47, 1) = (/ &
+ & 0.11052E-08_JPRB,0.11003E-08_JPRB,0.10954E-08_JPRB,0.10927E-08_JPRB,0.10941E-08_JPRB /)  
+KB(:,48, 1) = (/ &
+ & 0.91115E-09_JPRB,0.90837E-09_JPRB,0.90520E-09_JPRB,0.90009E-09_JPRB,0.90047E-09_JPRB /)  
+KB(:,49, 1) = (/ &
+ & 0.73101E-09_JPRB,0.73246E-09_JPRB,0.73006E-09_JPRB,0.72687E-09_JPRB,0.72508E-09_JPRB /)  
+KB(:,50, 1) = (/ &
+ & 0.60565E-09_JPRB,0.60526E-09_JPRB,0.60121E-09_JPRB,0.60117E-09_JPRB,0.60056E-09_JPRB /)  
+KB(:,51, 1) = (/ &
+ & 0.50736E-09_JPRB,0.50750E-09_JPRB,0.50421E-09_JPRB,0.50378E-09_JPRB,0.50259E-09_JPRB /)  
+KB(:,52, 1) = (/ &
+ & 0.41843E-09_JPRB,0.41856E-09_JPRB,0.41499E-09_JPRB,0.41535E-09_JPRB,0.41353E-09_JPRB /)  
+KB(:,53, 1) = (/ &
+ & 0.33766E-09_JPRB,0.33794E-09_JPRB,0.33511E-09_JPRB,0.33405E-09_JPRB,0.33405E-09_JPRB /)  
+KB(:,54, 1) = (/ &
+ & 0.29473E-09_JPRB,0.29448E-09_JPRB,0.29284E-09_JPRB,0.29146E-09_JPRB,0.29053E-09_JPRB /)  
+KB(:,55, 1) = (/ &
+ & 0.26948E-09_JPRB,0.27034E-09_JPRB,0.27016E-09_JPRB,0.26799E-09_JPRB,0.26580E-09_JPRB /)  
+KB(:,56, 1) = (/ &
+ & 0.24773E-09_JPRB,0.24784E-09_JPRB,0.24734E-09_JPRB,0.24436E-09_JPRB,0.24377E-09_JPRB /)  
+KB(:,57, 1) = (/ &
+ & 0.22707E-09_JPRB,0.22765E-09_JPRB,0.22683E-09_JPRB,0.22503E-09_JPRB,0.22447E-09_JPRB /)  
+KB(:,58, 1) = (/ &
+ & 0.21180E-09_JPRB,0.21264E-09_JPRB,0.21254E-09_JPRB,0.21338E-09_JPRB,0.21089E-09_JPRB /)  
+KB(:,59, 1) = (/ &
+ & 0.22898E-09_JPRB,0.23089E-09_JPRB,0.23471E-09_JPRB,0.23606E-09_JPRB,0.23388E-09_JPRB /)  
+KB(:,13, 2) = (/ &
+ & 0.18001E-08_JPRB,0.19945E-08_JPRB,0.21612E-08_JPRB,0.23316E-08_JPRB,0.25983E-08_JPRB /)  
+KB(:,14, 2) = (/ &
+ & 0.39853E-08_JPRB,0.42632E-08_JPRB,0.44602E-08_JPRB,0.46784E-08_JPRB,0.48071E-08_JPRB /)  
+KB(:,15, 2) = (/ &
+ & 0.60848E-08_JPRB,0.61494E-08_JPRB,0.61069E-08_JPRB,0.61295E-08_JPRB,0.65707E-08_JPRB /)  
+KB(:,16, 2) = (/ &
+ & 0.75494E-08_JPRB,0.85999E-08_JPRB,0.91057E-08_JPRB,0.10175E-07_JPRB,0.10943E-07_JPRB /)  
+KB(:,17, 2) = (/ &
+ & 0.12037E-07_JPRB,0.12753E-07_JPRB,0.13314E-07_JPRB,0.13239E-07_JPRB,0.13306E-07_JPRB /)  
+KB(:,18, 2) = (/ &
+ & 0.15519E-07_JPRB,0.15517E-07_JPRB,0.15097E-07_JPRB,0.14435E-07_JPRB,0.13983E-07_JPRB /)  
+KB(:,19, 2) = (/ &
+ & 0.16420E-07_JPRB,0.17025E-07_JPRB,0.17639E-07_JPRB,0.17633E-07_JPRB,0.17513E-07_JPRB /)  
+KB(:,20, 2) = (/ &
+ & 0.18021E-07_JPRB,0.19301E-07_JPRB,0.20621E-07_JPRB,0.22238E-07_JPRB,0.23351E-07_JPRB /)  
+KB(:,21, 2) = (/ &
+ & 0.22378E-07_JPRB,0.23582E-07_JPRB,0.24409E-07_JPRB,0.24915E-07_JPRB,0.25516E-07_JPRB /)  
+KB(:,22, 2) = (/ &
+ & 0.24712E-07_JPRB,0.24864E-07_JPRB,0.24556E-07_JPRB,0.23953E-07_JPRB,0.23424E-07_JPRB /)  
+KB(:,23, 2) = (/ &
+ & 0.22545E-07_JPRB,0.22002E-07_JPRB,0.21325E-07_JPRB,0.20492E-07_JPRB,0.20022E-07_JPRB /)  
+KB(:,24, 2) = (/ &
+ & 0.18798E-07_JPRB,0.18566E-07_JPRB,0.18366E-07_JPRB,0.18099E-07_JPRB,0.17971E-07_JPRB /)  
+KB(:,25, 2) = (/ &
+ & 0.16773E-07_JPRB,0.16803E-07_JPRB,0.16541E-07_JPRB,0.16450E-07_JPRB,0.16482E-07_JPRB /)  
+KB(:,26, 2) = (/ &
+ & 0.15222E-07_JPRB,0.15398E-07_JPRB,0.15177E-07_JPRB,0.15147E-07_JPRB,0.14951E-07_JPRB /)  
+KB(:,27, 2) = (/ &
+ & 0.13792E-07_JPRB,0.13944E-07_JPRB,0.13534E-07_JPRB,0.13546E-07_JPRB,0.13516E-07_JPRB /)  
+KB(:,28, 2) = (/ &
+ & 0.12157E-07_JPRB,0.12221E-07_JPRB,0.11930E-07_JPRB,0.12115E-07_JPRB,0.12027E-07_JPRB /)  
+KB(:,29, 2) = (/ &
+ & 0.10487E-07_JPRB,0.10393E-07_JPRB,0.10366E-07_JPRB,0.10455E-07_JPRB,0.10269E-07_JPRB /)  
+KB(:,30, 2) = (/ &
+ & 0.90084E-08_JPRB,0.88590E-08_JPRB,0.90055E-08_JPRB,0.88655E-08_JPRB,0.87392E-08_JPRB /)  
+KB(:,31, 2) = (/ &
+ & 0.74765E-08_JPRB,0.74889E-08_JPRB,0.73915E-08_JPRB,0.73289E-08_JPRB,0.72219E-08_JPRB /)  
+KB(:,32, 2) = (/ &
+ & 0.62311E-08_JPRB,0.62461E-08_JPRB,0.61378E-08_JPRB,0.59795E-08_JPRB,0.60309E-08_JPRB /)  
+KB(:,33, 2) = (/ &
+ & 0.51421E-08_JPRB,0.50519E-08_JPRB,0.50031E-08_JPRB,0.49630E-08_JPRB,0.49489E-08_JPRB /)  
+KB(:,34, 2) = (/ &
+ & 0.42880E-08_JPRB,0.42042E-08_JPRB,0.41366E-08_JPRB,0.41198E-08_JPRB,0.41265E-08_JPRB /)  
+KB(:,35, 2) = (/ &
+ & 0.35718E-08_JPRB,0.34728E-08_JPRB,0.34599E-08_JPRB,0.34385E-08_JPRB,0.34695E-08_JPRB /)  
+KB(:,36, 2) = (/ &
+ & 0.29713E-08_JPRB,0.29023E-08_JPRB,0.28707E-08_JPRB,0.28790E-08_JPRB,0.28873E-08_JPRB /)  
+KB(:,37, 2) = (/ &
+ & 0.25246E-08_JPRB,0.24463E-08_JPRB,0.24323E-08_JPRB,0.24308E-08_JPRB,0.24753E-08_JPRB /)  
+KB(:,38, 2) = (/ &
+ & 0.21159E-08_JPRB,0.20527E-08_JPRB,0.20532E-08_JPRB,0.20325E-08_JPRB,0.20615E-08_JPRB /)  
+KB(:,39, 2) = (/ &
+ & 0.17631E-08_JPRB,0.17097E-08_JPRB,0.17043E-08_JPRB,0.16987E-08_JPRB,0.17298E-08_JPRB /)  
+KB(:,40, 2) = (/ &
+ & 0.15260E-08_JPRB,0.14757E-08_JPRB,0.14566E-08_JPRB,0.14513E-08_JPRB,0.14651E-08_JPRB /)  
+KB(:,41, 2) = (/ &
+ & 0.13009E-08_JPRB,0.12457E-08_JPRB,0.12523E-08_JPRB,0.12490E-08_JPRB,0.12671E-08_JPRB /)  
+KB(:,42, 2) = (/ &
+ & 0.10990E-08_JPRB,0.10789E-08_JPRB,0.10741E-08_JPRB,0.10762E-08_JPRB,0.10873E-08_JPRB /)  
+KB(:,43, 2) = (/ &
+ & 0.94313E-09_JPRB,0.92236E-09_JPRB,0.92369E-09_JPRB,0.91495E-09_JPRB,0.92405E-09_JPRB /)  
+KB(:,44, 2) = (/ &
+ & 0.80746E-09_JPRB,0.78453E-09_JPRB,0.77646E-09_JPRB,0.77477E-09_JPRB,0.77888E-09_JPRB /)  
+KB(:,45, 2) = (/ &
+ & 0.67944E-09_JPRB,0.66381E-09_JPRB,0.65747E-09_JPRB,0.65286E-09_JPRB,0.65668E-09_JPRB /)  
+KB(:,46, 2) = (/ &
+ & 0.56677E-09_JPRB,0.55682E-09_JPRB,0.54825E-09_JPRB,0.54623E-09_JPRB,0.54843E-09_JPRB /)  
+KB(:,47, 2) = (/ &
+ & 0.47375E-09_JPRB,0.47120E-09_JPRB,0.45836E-09_JPRB,0.45709E-09_JPRB,0.45689E-09_JPRB /)  
+KB(:,48, 2) = (/ &
+ & 0.39797E-09_JPRB,0.39204E-09_JPRB,0.37735E-09_JPRB,0.37505E-09_JPRB,0.37687E-09_JPRB /)  
+KB(:,49, 2) = (/ &
+ & 0.32772E-09_JPRB,0.31857E-09_JPRB,0.30808E-09_JPRB,0.30232E-09_JPRB,0.30140E-09_JPRB /)  
+KB(:,50, 2) = (/ &
+ & 0.27300E-09_JPRB,0.26581E-09_JPRB,0.26125E-09_JPRB,0.24922E-09_JPRB,0.25029E-09_JPRB /)  
+KB(:,51, 2) = (/ &
+ & 0.23073E-09_JPRB,0.22159E-09_JPRB,0.21979E-09_JPRB,0.20969E-09_JPRB,0.21117E-09_JPRB /)  
+KB(:,52, 2) = (/ &
+ & 0.18868E-09_JPRB,0.18466E-09_JPRB,0.18517E-09_JPRB,0.17470E-09_JPRB,0.17469E-09_JPRB /)  
+KB(:,53, 2) = (/ &
+ & 0.15290E-09_JPRB,0.14970E-09_JPRB,0.15032E-09_JPRB,0.14201E-09_JPRB,0.14053E-09_JPRB /)  
+KB(:,54, 2) = (/ &
+ & 0.13616E-09_JPRB,0.13340E-09_JPRB,0.13256E-09_JPRB,0.12713E-09_JPRB,0.12621E-09_JPRB /)  
+KB(:,55, 2) = (/ &
+ & 0.12605E-09_JPRB,0.12524E-09_JPRB,0.12106E-09_JPRB,0.11994E-09_JPRB,0.11735E-09_JPRB /)  
+KB(:,56, 2) = (/ &
+ & 0.11625E-09_JPRB,0.11350E-09_JPRB,0.11287E-09_JPRB,0.11534E-09_JPRB,0.10942E-09_JPRB /)  
+KB(:,57, 2) = (/ &
+ & 0.10168E-09_JPRB,0.10628E-09_JPRB,0.10684E-09_JPRB,0.10799E-09_JPRB,0.10313E-09_JPRB /)  
+KB(:,58, 2) = (/ &
+ & 0.92659E-10_JPRB,0.10050E-09_JPRB,0.10168E-09_JPRB,0.97877E-10_JPRB,0.97971E-10_JPRB /)  
+KB(:,59, 2) = (/ &
+ & 0.10198E-09_JPRB,0.11632E-09_JPRB,0.11127E-09_JPRB,0.10947E-09_JPRB,0.11000E-09_JPRB /)  
+KB(:,13, 3) = (/ &
+ & 0.33788E-08_JPRB,0.38685E-08_JPRB,0.40059E-08_JPRB,0.41301E-08_JPRB,0.43316E-08_JPRB /)  
+KB(:,14, 3) = (/ &
+ & 0.54022E-08_JPRB,0.55644E-08_JPRB,0.55814E-08_JPRB,0.55195E-08_JPRB,0.57708E-08_JPRB /)  
+KB(:,15, 3) = (/ &
+ & 0.95769E-08_JPRB,0.10205E-07_JPRB,0.12445E-07_JPRB,0.13419E-07_JPRB,0.13357E-07_JPRB /)  
+KB(:,16, 3) = (/ &
+ & 0.17233E-07_JPRB,0.16177E-07_JPRB,0.16092E-07_JPRB,0.15590E-07_JPRB,0.15068E-07_JPRB /)  
+KB(:,17, 3) = (/ &
+ & 0.19731E-07_JPRB,0.19947E-07_JPRB,0.20278E-07_JPRB,0.20235E-07_JPRB,0.20699E-07_JPRB /)  
+KB(:,18, 3) = (/ &
+ & 0.23168E-07_JPRB,0.23970E-07_JPRB,0.25507E-07_JPRB,0.27034E-07_JPRB,0.29135E-07_JPRB /)  
+KB(:,19, 3) = (/ &
+ & 0.33749E-07_JPRB,0.35374E-07_JPRB,0.37333E-07_JPRB,0.38730E-07_JPRB,0.39816E-07_JPRB /)  
+KB(:,20, 3) = (/ &
+ & 0.39844E-07_JPRB,0.39698E-07_JPRB,0.39651E-07_JPRB,0.38618E-07_JPRB,0.37699E-07_JPRB /)  
+KB(:,21, 3) = (/ &
+ & 0.37013E-07_JPRB,0.35923E-07_JPRB,0.35560E-07_JPRB,0.35217E-07_JPRB,0.34594E-07_JPRB /)  
+KB(:,22, 3) = (/ &
+ & 0.32381E-07_JPRB,0.31844E-07_JPRB,0.32272E-07_JPRB,0.32430E-07_JPRB,0.31922E-07_JPRB /)  
+KB(:,23, 3) = (/ &
+ & 0.29924E-07_JPRB,0.29834E-07_JPRB,0.30537E-07_JPRB,0.30494E-07_JPRB,0.30313E-07_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART12',1,ZHOOK_HANDLE)
+END SUBROUTINE PART12
+
+
+SUBROUTINE PART13
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART13',0,ZHOOK_HANDLE)
+
+
+KB(:,24, 3) = (/ &
+ & 0.27849E-07_JPRB,0.28147E-07_JPRB,0.29005E-07_JPRB,0.29081E-07_JPRB,0.28673E-07_JPRB /)  
+KB(:,25, 3) = (/ &
+ & 0.25534E-07_JPRB,0.25854E-07_JPRB,0.26978E-07_JPRB,0.27173E-07_JPRB,0.27116E-07_JPRB /)  
+KB(:,26, 3) = (/ &
+ & 0.23413E-07_JPRB,0.24124E-07_JPRB,0.25341E-07_JPRB,0.25322E-07_JPRB,0.25266E-07_JPRB /)  
+KB(:,27, 3) = (/ &
+ & 0.21218E-07_JPRB,0.22105E-07_JPRB,0.23470E-07_JPRB,0.23280E-07_JPRB,0.23250E-07_JPRB /)  
+KB(:,28, 3) = (/ &
+ & 0.19002E-07_JPRB,0.20309E-07_JPRB,0.21106E-07_JPRB,0.20908E-07_JPRB,0.21199E-07_JPRB /)  
+KB(:,29, 3) = (/ &
+ & 0.16901E-07_JPRB,0.18244E-07_JPRB,0.18426E-07_JPRB,0.18398E-07_JPRB,0.18708E-07_JPRB /)  
+KB(:,30, 3) = (/ &
+ & 0.15065E-07_JPRB,0.15814E-07_JPRB,0.15711E-07_JPRB,0.16012E-07_JPRB,0.16145E-07_JPRB /)  
+KB(:,31, 3) = (/ &
+ & 0.13100E-07_JPRB,0.13194E-07_JPRB,0.13385E-07_JPRB,0.13455E-07_JPRB,0.13435E-07_JPRB /)  
+KB(:,32, 3) = (/ &
+ & 0.10972E-07_JPRB,0.10986E-07_JPRB,0.11085E-07_JPRB,0.11182E-07_JPRB,0.11030E-07_JPRB /)  
+KB(:,33, 3) = (/ &
+ & 0.90750E-08_JPRB,0.90832E-08_JPRB,0.91769E-08_JPRB,0.89877E-08_JPRB,0.89513E-08_JPRB /)  
+KB(:,34, 3) = (/ &
+ & 0.75008E-08_JPRB,0.76569E-08_JPRB,0.76237E-08_JPRB,0.74547E-08_JPRB,0.74719E-08_JPRB /)  
+KB(:,35, 3) = (/ &
+ & 0.63063E-08_JPRB,0.64050E-08_JPRB,0.62067E-08_JPRB,0.61836E-08_JPRB,0.61775E-08_JPRB /)  
+KB(:,36, 3) = (/ &
+ & 0.53250E-08_JPRB,0.52712E-08_JPRB,0.52454E-08_JPRB,0.51153E-08_JPRB,0.51657E-08_JPRB /)  
+KB(:,37, 3) = (/ &
+ & 0.45450E-08_JPRB,0.45358E-08_JPRB,0.44274E-08_JPRB,0.43893E-08_JPRB,0.43616E-08_JPRB /)  
+KB(:,38, 3) = (/ &
+ & 0.38039E-08_JPRB,0.38254E-08_JPRB,0.37172E-08_JPRB,0.37203E-08_JPRB,0.37278E-08_JPRB /)  
+KB(:,39, 3) = (/ &
+ & 0.31821E-08_JPRB,0.31632E-08_JPRB,0.30774E-08_JPRB,0.30626E-08_JPRB,0.30979E-08_JPRB /)  
+KB(:,40, 3) = (/ &
+ & 0.27339E-08_JPRB,0.27443E-08_JPRB,0.26754E-08_JPRB,0.26505E-08_JPRB,0.27022E-08_JPRB /)  
+KB(:,41, 3) = (/ &
+ & 0.23939E-08_JPRB,0.24228E-08_JPRB,0.23415E-08_JPRB,0.23287E-08_JPRB,0.23327E-08_JPRB /)  
+KB(:,42, 3) = (/ &
+ & 0.20895E-08_JPRB,0.20874E-08_JPRB,0.20298E-08_JPRB,0.20180E-08_JPRB,0.19876E-08_JPRB /)  
+KB(:,43, 3) = (/ &
+ & 0.17869E-08_JPRB,0.17800E-08_JPRB,0.17392E-08_JPRB,0.17376E-08_JPRB,0.16927E-08_JPRB /)  
+KB(:,44, 3) = (/ &
+ & 0.15169E-08_JPRB,0.15335E-08_JPRB,0.14778E-08_JPRB,0.14668E-08_JPRB,0.14407E-08_JPRB /)  
+KB(:,45, 3) = (/ &
+ & 0.12692E-08_JPRB,0.12902E-08_JPRB,0.12439E-08_JPRB,0.12324E-08_JPRB,0.11996E-08_JPRB /)  
+KB(:,46, 3) = (/ &
+ & 0.10611E-08_JPRB,0.10656E-08_JPRB,0.10472E-08_JPRB,0.10282E-08_JPRB,0.10015E-08_JPRB /)  
+KB(:,47, 3) = (/ &
+ & 0.90394E-09_JPRB,0.88143E-09_JPRB,0.87958E-09_JPRB,0.84984E-09_JPRB,0.85121E-09_JPRB /)  
+KB(:,48, 3) = (/ &
+ & 0.73451E-09_JPRB,0.71978E-09_JPRB,0.73014E-09_JPRB,0.70436E-09_JPRB,0.69840E-09_JPRB /)  
+KB(:,49, 3) = (/ &
+ & 0.58678E-09_JPRB,0.58259E-09_JPRB,0.58316E-09_JPRB,0.55960E-09_JPRB,0.56079E-09_JPRB /)  
+KB(:,50, 3) = (/ &
+ & 0.48502E-09_JPRB,0.47984E-09_JPRB,0.48693E-09_JPRB,0.47265E-09_JPRB,0.46016E-09_JPRB /)  
+KB(:,51, 3) = (/ &
+ & 0.40704E-09_JPRB,0.40367E-09_JPRB,0.41046E-09_JPRB,0.39764E-09_JPRB,0.38714E-09_JPRB /)  
+KB(:,52, 3) = (/ &
+ & 0.33771E-09_JPRB,0.33070E-09_JPRB,0.32984E-09_JPRB,0.33231E-09_JPRB,0.32299E-09_JPRB /)  
+KB(:,53, 3) = (/ &
+ & 0.27062E-09_JPRB,0.27028E-09_JPRB,0.26516E-09_JPRB,0.26816E-09_JPRB,0.25661E-09_JPRB /)  
+KB(:,54, 3) = (/ &
+ & 0.23501E-09_JPRB,0.23579E-09_JPRB,0.23460E-09_JPRB,0.23532E-09_JPRB,0.22777E-09_JPRB /)  
+KB(:,55, 3) = (/ &
+ & 0.20561E-09_JPRB,0.21843E-09_JPRB,0.22171E-09_JPRB,0.22358E-09_JPRB,0.21702E-09_JPRB /)  
+KB(:,56, 3) = (/ &
+ & 0.18557E-09_JPRB,0.20864E-09_JPRB,0.21196E-09_JPRB,0.20646E-09_JPRB,0.20759E-09_JPRB /)  
+KB(:,57, 3) = (/ &
+ & 0.17099E-09_JPRB,0.19489E-09_JPRB,0.19486E-09_JPRB,0.19102E-09_JPRB,0.19124E-09_JPRB /)  
+KB(:,58, 3) = (/ &
+ & 0.16535E-09_JPRB,0.16955E-09_JPRB,0.18769E-09_JPRB,0.18586E-09_JPRB,0.18358E-09_JPRB /)  
+KB(:,59, 3) = (/ &
+ & 0.18472E-09_JPRB,0.17614E-09_JPRB,0.20835E-09_JPRB,0.19900E-09_JPRB,0.17587E-09_JPRB /)  
+KB(:,13, 4) = (/ &
+ & 0.14276E-07_JPRB,0.14530E-07_JPRB,0.14762E-07_JPRB,0.14823E-07_JPRB,0.15070E-07_JPRB /)  
+KB(:,14, 4) = (/ &
+ & 0.22710E-07_JPRB,0.23419E-07_JPRB,0.26577E-07_JPRB,0.28008E-07_JPRB,0.28298E-07_JPRB /)  
+KB(:,15, 4) = (/ &
+ & 0.40218E-07_JPRB,0.40306E-07_JPRB,0.38786E-07_JPRB,0.38421E-07_JPRB,0.37982E-07_JPRB /)  
+KB(:,16, 4) = (/ &
+ & 0.46010E-07_JPRB,0.46709E-07_JPRB,0.48658E-07_JPRB,0.49166E-07_JPRB,0.49018E-07_JPRB /)  
+KB(:,17, 4) = (/ &
+ & 0.57896E-07_JPRB,0.59606E-07_JPRB,0.62582E-07_JPRB,0.65981E-07_JPRB,0.66467E-07_JPRB /)  
+KB(:,18, 4) = (/ &
+ & 0.74731E-07_JPRB,0.75116E-07_JPRB,0.75181E-07_JPRB,0.74922E-07_JPRB,0.73535E-07_JPRB /)  
+KB(:,19, 4) = (/ &
+ & 0.76222E-07_JPRB,0.73788E-07_JPRB,0.71345E-07_JPRB,0.70864E-07_JPRB,0.69839E-07_JPRB /)  
+KB(:,20, 4) = (/ &
+ & 0.69638E-07_JPRB,0.67680E-07_JPRB,0.66694E-07_JPRB,0.67021E-07_JPRB,0.67066E-07_JPRB /)  
+KB(:,21, 4) = (/ &
+ & 0.65779E-07_JPRB,0.64200E-07_JPRB,0.63508E-07_JPRB,0.64106E-07_JPRB,0.64461E-07_JPRB /)  
+KB(:,22, 4) = (/ &
+ & 0.61488E-07_JPRB,0.60248E-07_JPRB,0.59719E-07_JPRB,0.60704E-07_JPRB,0.61392E-07_JPRB /)  
+KB(:,23, 4) = (/ &
+ & 0.56738E-07_JPRB,0.55143E-07_JPRB,0.55071E-07_JPRB,0.56796E-07_JPRB,0.58031E-07_JPRB /)  
+KB(:,24, 4) = (/ &
+ & 0.53299E-07_JPRB,0.52091E-07_JPRB,0.52308E-07_JPRB,0.54157E-07_JPRB,0.55094E-07_JPRB /)  
+KB(:,25, 4) = (/ &
+ & 0.49763E-07_JPRB,0.48954E-07_JPRB,0.49068E-07_JPRB,0.51533E-07_JPRB,0.52367E-07_JPRB /)  
+KB(:,26, 4) = (/ &
+ & 0.46006E-07_JPRB,0.45410E-07_JPRB,0.45860E-07_JPRB,0.48840E-07_JPRB,0.49788E-07_JPRB /)  
+KB(:,27, 4) = (/ &
+ & 0.42208E-07_JPRB,0.41876E-07_JPRB,0.43006E-07_JPRB,0.46350E-07_JPRB,0.47032E-07_JPRB /)  
+KB(:,28, 4) = (/ &
+ & 0.38508E-07_JPRB,0.38430E-07_JPRB,0.40481E-07_JPRB,0.43465E-07_JPRB,0.43170E-07_JPRB /)  
+KB(:,29, 4) = (/ &
+ & 0.33913E-07_JPRB,0.34466E-07_JPRB,0.37202E-07_JPRB,0.38288E-07_JPRB,0.38327E-07_JPRB /)  
+KB(:,30, 4) = (/ &
+ & 0.29454E-07_JPRB,0.30842E-07_JPRB,0.33204E-07_JPRB,0.33354E-07_JPRB,0.33727E-07_JPRB /)  
+KB(:,31, 4) = (/ &
+ & 0.25253E-07_JPRB,0.27183E-07_JPRB,0.28228E-07_JPRB,0.27946E-07_JPRB,0.28495E-07_JPRB /)  
+KB(:,32, 4) = (/ &
+ & 0.21784E-07_JPRB,0.23351E-07_JPRB,0.23372E-07_JPRB,0.23449E-07_JPRB,0.23246E-07_JPRB /)  
+KB(:,33, 4) = (/ &
+ & 0.18910E-07_JPRB,0.19134E-07_JPRB,0.18984E-07_JPRB,0.19294E-07_JPRB,0.18955E-07_JPRB /)  
+KB(:,34, 4) = (/ &
+ & 0.15933E-07_JPRB,0.15755E-07_JPRB,0.16059E-07_JPRB,0.15913E-07_JPRB,0.15386E-07_JPRB /)  
+KB(:,35, 4) = (/ &
+ & 0.13356E-07_JPRB,0.13247E-07_JPRB,0.13429E-07_JPRB,0.13202E-07_JPRB,0.12675E-07_JPRB /)  
+KB(:,36, 4) = (/ &
+ & 0.11207E-07_JPRB,0.11196E-07_JPRB,0.11048E-07_JPRB,0.10870E-07_JPRB,0.10431E-07_JPRB /)  
+KB(:,37, 4) = (/ &
+ & 0.95811E-08_JPRB,0.94647E-08_JPRB,0.93875E-08_JPRB,0.90968E-08_JPRB,0.88553E-08_JPRB /)  
+KB(:,38, 4) = (/ &
+ & 0.81243E-08_JPRB,0.80255E-08_JPRB,0.78559E-08_JPRB,0.75538E-08_JPRB,0.74057E-08_JPRB /)  
+KB(:,39, 4) = (/ &
+ & 0.66871E-08_JPRB,0.66553E-08_JPRB,0.65003E-08_JPRB,0.62809E-08_JPRB,0.60862E-08_JPRB /)  
+KB(:,40, 4) = (/ &
+ & 0.58254E-08_JPRB,0.57657E-08_JPRB,0.56185E-08_JPRB,0.54242E-08_JPRB,0.52135E-08_JPRB /)  
+KB(:,41, 4) = (/ &
+ & 0.50967E-08_JPRB,0.50027E-08_JPRB,0.48304E-08_JPRB,0.46813E-08_JPRB,0.44864E-08_JPRB /)  
+KB(:,42, 4) = (/ &
+ & 0.43731E-08_JPRB,0.43157E-08_JPRB,0.41432E-08_JPRB,0.39968E-08_JPRB,0.38854E-08_JPRB /)  
+KB(:,43, 4) = (/ &
+ & 0.37430E-08_JPRB,0.37088E-08_JPRB,0.35491E-08_JPRB,0.34012E-08_JPRB,0.33022E-08_JPRB /)  
+KB(:,44, 4) = (/ &
+ & 0.32207E-08_JPRB,0.31034E-08_JPRB,0.30690E-08_JPRB,0.29015E-08_JPRB,0.27644E-08_JPRB /)  
+KB(:,45, 4) = (/ &
+ & 0.27111E-08_JPRB,0.25582E-08_JPRB,0.26092E-08_JPRB,0.24352E-08_JPRB,0.23234E-08_JPRB /)  
+KB(:,46, 4) = (/ &
+ & 0.22675E-08_JPRB,0.21455E-08_JPRB,0.21930E-08_JPRB,0.20490E-08_JPRB,0.19277E-08_JPRB /)  
+KB(:,47, 4) = (/ &
+ & 0.18722E-08_JPRB,0.18163E-08_JPRB,0.18222E-08_JPRB,0.17256E-08_JPRB,0.16025E-08_JPRB /)  
+KB(:,48, 4) = (/ &
+ & 0.15670E-08_JPRB,0.15133E-08_JPRB,0.14751E-08_JPRB,0.14433E-08_JPRB,0.13269E-08_JPRB /)  
+KB(:,49, 4) = (/ &
+ & 0.12576E-08_JPRB,0.12106E-08_JPRB,0.11779E-08_JPRB,0.11664E-08_JPRB,0.10722E-08_JPRB /)  
+KB(:,50, 4) = (/ &
+ & 0.10308E-08_JPRB,0.10019E-08_JPRB,0.98151E-09_JPRB,0.96758E-09_JPRB,0.89739E-09_JPRB /)  
+KB(:,51, 4) = (/ &
+ & 0.84050E-09_JPRB,0.85047E-09_JPRB,0.83131E-09_JPRB,0.81346E-09_JPRB,0.77303E-09_JPRB /)  
+KB(:,52, 4) = (/ &
+ & 0.67669E-09_JPRB,0.70190E-09_JPRB,0.68695E-09_JPRB,0.66858E-09_JPRB,0.63719E-09_JPRB /)  
+KB(:,53, 4) = (/ &
+ & 0.52755E-09_JPRB,0.56097E-09_JPRB,0.54716E-09_JPRB,0.53877E-09_JPRB,0.51047E-09_JPRB /)  
+KB(:,54, 4) = (/ &
+ & 0.44864E-09_JPRB,0.48984E-09_JPRB,0.48831E-09_JPRB,0.46728E-09_JPRB,0.45462E-09_JPRB /)  
+KB(:,55, 4) = (/ &
+ & 0.40938E-09_JPRB,0.45501E-09_JPRB,0.45212E-09_JPRB,0.43586E-09_JPRB,0.42245E-09_JPRB /)  
+KB(:,56, 4) = (/ &
+ & 0.38293E-09_JPRB,0.40217E-09_JPRB,0.41760E-09_JPRB,0.39645E-09_JPRB,0.38652E-09_JPRB /)  
+KB(:,57, 4) = (/ &
+ & 0.35808E-09_JPRB,0.34306E-09_JPRB,0.38440E-09_JPRB,0.37442E-09_JPRB,0.33472E-09_JPRB /)  
+KB(:,58, 4) = (/ &
+ & 0.33278E-09_JPRB,0.31839E-09_JPRB,0.35327E-09_JPRB,0.33061E-09_JPRB,0.29093E-09_JPRB /)  
+KB(:,59, 4) = (/ &
+ & 0.32589E-09_JPRB,0.30766E-09_JPRB,0.30185E-09_JPRB,0.35182E-09_JPRB,0.34474E-09_JPRB /)  
+KB(:,13, 5) = (/ &
+ & 0.19090E-07_JPRB,0.19323E-07_JPRB,0.21491E-07_JPRB,0.23162E-07_JPRB,0.23970E-07_JPRB /)  
+KB(:,14, 5) = (/ &
+ & 0.37888E-07_JPRB,0.37108E-07_JPRB,0.33727E-07_JPRB,0.34146E-07_JPRB,0.33930E-07_JPRB /)  
+KB(:,15, 5) = (/ &
+ & 0.46395E-07_JPRB,0.47265E-07_JPRB,0.48201E-07_JPRB,0.50512E-07_JPRB,0.51101E-07_JPRB /)  
+KB(:,16, 5) = (/ &
+ & 0.60743E-07_JPRB,0.64371E-07_JPRB,0.67862E-07_JPRB,0.71479E-07_JPRB,0.74200E-07_JPRB /)  
+KB(:,17, 5) = (/ &
+ & 0.79052E-07_JPRB,0.79011E-07_JPRB,0.77558E-07_JPRB,0.75900E-07_JPRB,0.76450E-07_JPRB /)  
+KB(:,18, 5) = (/ &
+ & 0.75325E-07_JPRB,0.74009E-07_JPRB,0.72866E-07_JPRB,0.72803E-07_JPRB,0.73869E-07_JPRB /)  
+KB(:,19, 5) = (/ &
+ & 0.74009E-07_JPRB,0.74054E-07_JPRB,0.73970E-07_JPRB,0.73800E-07_JPRB,0.75638E-07_JPRB /)  
+KB(:,20, 5) = (/ &
+ & 0.73077E-07_JPRB,0.73306E-07_JPRB,0.72248E-07_JPRB,0.73120E-07_JPRB,0.74630E-07_JPRB /)  
+KB(:,21, 5) = (/ &
+ & 0.68928E-07_JPRB,0.70100E-07_JPRB,0.69203E-07_JPRB,0.69478E-07_JPRB,0.71860E-07_JPRB /)  
+KB(:,22, 5) = (/ &
+ & 0.65324E-07_JPRB,0.66570E-07_JPRB,0.66457E-07_JPRB,0.66345E-07_JPRB,0.68314E-07_JPRB /)  
+KB(:,23, 5) = (/ &
+ & 0.62411E-07_JPRB,0.63996E-07_JPRB,0.63443E-07_JPRB,0.63576E-07_JPRB,0.65766E-07_JPRB /)  
+KB(:,24, 5) = (/ &
+ & 0.60058E-07_JPRB,0.60956E-07_JPRB,0.60176E-07_JPRB,0.60222E-07_JPRB,0.63287E-07_JPRB /)  
+KB(:,25, 5) = (/ &
+ & 0.57223E-07_JPRB,0.58225E-07_JPRB,0.58348E-07_JPRB,0.58584E-07_JPRB,0.61933E-07_JPRB /)  
+KB(:,26, 5) = (/ &
+ & 0.55089E-07_JPRB,0.55723E-07_JPRB,0.55839E-07_JPRB,0.56337E-07_JPRB,0.60335E-07_JPRB /)  
+KB(:,27, 5) = (/ &
+ & 0.52294E-07_JPRB,0.51745E-07_JPRB,0.52750E-07_JPRB,0.52701E-07_JPRB,0.57676E-07_JPRB /)  
+KB(:,28, 5) = (/ &
+ & 0.48915E-07_JPRB,0.48234E-07_JPRB,0.48708E-07_JPRB,0.49873E-07_JPRB,0.54442E-07_JPRB /)  
+KB(:,29, 5) = (/ &
+ & 0.43357E-07_JPRB,0.43230E-07_JPRB,0.43679E-07_JPRB,0.47285E-07_JPRB,0.49519E-07_JPRB /)  
+KB(:,30, 5) = (/ &
+ & 0.37379E-07_JPRB,0.38427E-07_JPRB,0.39703E-07_JPRB,0.43492E-07_JPRB,0.43278E-07_JPRB /)  
+KB(:,31, 5) = (/ &
+ & 0.31354E-07_JPRB,0.32238E-07_JPRB,0.35376E-07_JPRB,0.37358E-07_JPRB,0.37130E-07_JPRB /)  
+KB(:,32, 5) = (/ &
+ & 0.26553E-07_JPRB,0.27801E-07_JPRB,0.30978E-07_JPRB,0.30698E-07_JPRB,0.31234E-07_JPRB /)  
+KB(:,33, 5) = (/ &
+ & 0.21542E-07_JPRB,0.24274E-07_JPRB,0.24944E-07_JPRB,0.25194E-07_JPRB,0.25415E-07_JPRB /)  
+KB(:,34, 5) = (/ &
+ & 0.19097E-07_JPRB,0.20582E-07_JPRB,0.20324E-07_JPRB,0.21006E-07_JPRB,0.20944E-07_JPRB /)  
+KB(:,35, 5) = (/ &
+ & 0.16377E-07_JPRB,0.16881E-07_JPRB,0.16957E-07_JPRB,0.16743E-07_JPRB,0.16958E-07_JPRB /)  
+KB(:,36, 5) = (/ &
+ & 0.13727E-07_JPRB,0.13834E-07_JPRB,0.13766E-07_JPRB,0.13776E-07_JPRB,0.13546E-07_JPRB /)  
+KB(:,37, 5) = (/ &
+ & 0.11550E-07_JPRB,0.11601E-07_JPRB,0.11757E-07_JPRB,0.11723E-07_JPRB,0.11413E-07_JPRB /)  
+KB(:,38, 5) = (/ &
+ & 0.98076E-08_JPRB,0.96320E-08_JPRB,0.10028E-07_JPRB,0.98197E-08_JPRB,0.91408E-08_JPRB /)  
+KB(:,39, 5) = (/ &
+ & 0.80861E-08_JPRB,0.80113E-08_JPRB,0.81586E-08_JPRB,0.80121E-08_JPRB,0.75021E-08_JPRB /)  
+KB(:,40, 5) = (/ &
+ & 0.70348E-08_JPRB,0.69980E-08_JPRB,0.71058E-08_JPRB,0.69171E-08_JPRB,0.64103E-08_JPRB /)  
+KB(:,41, 5) = (/ &
+ & 0.61395E-08_JPRB,0.60379E-08_JPRB,0.61651E-08_JPRB,0.59006E-08_JPRB,0.54433E-08_JPRB /)  
+KB(:,42, 5) = (/ &
+ & 0.51740E-08_JPRB,0.51391E-08_JPRB,0.53717E-08_JPRB,0.50506E-08_JPRB,0.46901E-08_JPRB /)  
+KB(:,43, 5) = (/ &
+ & 0.44374E-08_JPRB,0.44002E-08_JPRB,0.45405E-08_JPRB,0.42888E-08_JPRB,0.39390E-08_JPRB /)  
+KB(:,44, 5) = (/ &
+ & 0.36635E-08_JPRB,0.37555E-08_JPRB,0.37320E-08_JPRB,0.35598E-08_JPRB,0.33280E-08_JPRB /)  
+KB(:,45, 5) = (/ &
+ & 0.30833E-08_JPRB,0.31320E-08_JPRB,0.30264E-08_JPRB,0.29827E-08_JPRB,0.28298E-08_JPRB /)  
+KB(:,46, 5) = (/ &
+ & 0.25366E-08_JPRB,0.26077E-08_JPRB,0.24905E-08_JPRB,0.24281E-08_JPRB,0.22727E-08_JPRB /)  
+KB(:,47, 5) = (/ &
+ & 0.20576E-08_JPRB,0.22029E-08_JPRB,0.20905E-08_JPRB,0.21040E-08_JPRB,0.19027E-08_JPRB /)  
+KB(:,48, 5) = (/ &
+ & 0.16047E-08_JPRB,0.18190E-08_JPRB,0.17008E-08_JPRB,0.17298E-08_JPRB,0.16059E-08_JPRB /)  
+KB(:,49, 5) = (/ &
+ & 0.12276E-08_JPRB,0.14135E-08_JPRB,0.13565E-08_JPRB,0.13704E-08_JPRB,0.13029E-08_JPRB /)  
+KB(:,50, 5) = (/ &
+ & 0.98291E-09_JPRB,0.11837E-08_JPRB,0.11000E-08_JPRB,0.11342E-08_JPRB,0.10621E-08_JPRB /)  
+KB(:,51, 5) = (/ &
+ & 0.79374E-09_JPRB,0.97756E-09_JPRB,0.90252E-09_JPRB,0.90527E-09_JPRB,0.86815E-09_JPRB /)  
+KB(:,52, 5) = (/ &
+ & 0.64781E-09_JPRB,0.78454E-09_JPRB,0.75690E-09_JPRB,0.74124E-09_JPRB,0.73195E-09_JPRB /)  
+KB(:,53, 5) = (/ &
+ & 0.51536E-09_JPRB,0.61158E-09_JPRB,0.60936E-09_JPRB,0.59007E-09_JPRB,0.58458E-09_JPRB /)  
+KB(:,54, 5) = (/ &
+ & 0.46178E-09_JPRB,0.51944E-09_JPRB,0.52167E-09_JPRB,0.53965E-09_JPRB,0.50524E-09_JPRB /)  
+KB(:,55, 5) = (/ &
+ & 0.44467E-09_JPRB,0.42857E-09_JPRB,0.50799E-09_JPRB,0.47528E-09_JPRB,0.43900E-09_JPRB /)  
+KB(:,56, 5) = (/ &
+ & 0.39667E-09_JPRB,0.37862E-09_JPRB,0.45808E-09_JPRB,0.43270E-09_JPRB,0.38817E-09_JPRB /)  
+KB(:,57, 5) = (/ &
+ & 0.35926E-09_JPRB,0.35410E-09_JPRB,0.38962E-09_JPRB,0.37502E-09_JPRB,0.40935E-09_JPRB /)  
+KB(:,58, 5) = (/ &
+ & 0.31517E-09_JPRB,0.32964E-09_JPRB,0.29323E-09_JPRB,0.39945E-09_JPRB,0.40389E-09_JPRB /)  
+KB(:,59, 5) = (/ &
+ & 0.36198E-09_JPRB,0.38633E-09_JPRB,0.41096E-09_JPRB,0.53914E-09_JPRB,0.57631E-09_JPRB /)  
+KB(:,13, 6) = (/ &
+ & 0.23095E-07_JPRB,0.23025E-07_JPRB,0.25126E-07_JPRB,0.25618E-07_JPRB,0.24969E-07_JPRB /)  
+KB(:,14, 6) = (/ &
+ & 0.31573E-07_JPRB,0.32360E-07_JPRB,0.33220E-07_JPRB,0.32611E-07_JPRB,0.32150E-07_JPRB /)  
+KB(:,15, 6) = (/ &
+ & 0.45219E-07_JPRB,0.45787E-07_JPRB,0.47088E-07_JPRB,0.49543E-07_JPRB,0.54072E-07_JPRB /)  
+KB(:,16, 6) = (/ &
+ & 0.65293E-07_JPRB,0.67448E-07_JPRB,0.64557E-07_JPRB,0.63976E-07_JPRB,0.64905E-07_JPRB /)  
+KB(:,17, 6) = (/ &
+ & 0.64862E-07_JPRB,0.63259E-07_JPRB,0.62851E-07_JPRB,0.62500E-07_JPRB,0.63112E-07_JPRB /)  
+KB(:,18, 6) = (/ &
+ & 0.61849E-07_JPRB,0.62108E-07_JPRB,0.60565E-07_JPRB,0.60920E-07_JPRB,0.61810E-07_JPRB /)  
+KB(:,19, 6) = (/ &
+ & 0.63930E-07_JPRB,0.63195E-07_JPRB,0.62478E-07_JPRB,0.62282E-07_JPRB,0.62250E-07_JPRB /)  
+KB(:,20, 6) = (/ &
+ & 0.60100E-07_JPRB,0.60269E-07_JPRB,0.59919E-07_JPRB,0.57578E-07_JPRB,0.57933E-07_JPRB /)  
+KB(:,21, 6) = (/ &
+ & 0.56465E-07_JPRB,0.56674E-07_JPRB,0.56992E-07_JPRB,0.55969E-07_JPRB,0.54719E-07_JPRB /)  
+KB(:,22, 6) = (/ &
+ & 0.54280E-07_JPRB,0.53760E-07_JPRB,0.52615E-07_JPRB,0.52261E-07_JPRB,0.51523E-07_JPRB /)  
+KB(:,23, 6) = (/ &
+ & 0.49921E-07_JPRB,0.49472E-07_JPRB,0.49168E-07_JPRB,0.47959E-07_JPRB,0.47449E-07_JPRB /)  
+KB(:,24, 6) = (/ &
+ & 0.45803E-07_JPRB,0.46271E-07_JPRB,0.46322E-07_JPRB,0.46536E-07_JPRB,0.46494E-07_JPRB /)  
+KB(:,25, 6) = (/ &
+ & 0.43723E-07_JPRB,0.44225E-07_JPRB,0.44324E-07_JPRB,0.43726E-07_JPRB,0.43579E-07_JPRB /)  
+KB(:,26, 6) = (/ &
+ & 0.41617E-07_JPRB,0.42588E-07_JPRB,0.42306E-07_JPRB,0.41086E-07_JPRB,0.41943E-07_JPRB /)  
+KB(:,27, 6) = (/ &
+ & 0.38855E-07_JPRB,0.40231E-07_JPRB,0.39090E-07_JPRB,0.39461E-07_JPRB,0.39072E-07_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART13',1,ZHOOK_HANDLE)
+END SUBROUTINE PART13
+
+
+SUBROUTINE PART14
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART14',0,ZHOOK_HANDLE)
+
+
+KB(:,28, 6) = (/ &
+ & 0.35912E-07_JPRB,0.36691E-07_JPRB,0.35670E-07_JPRB,0.35644E-07_JPRB,0.38295E-07_JPRB /)  
+KB(:,29, 6) = (/ &
+ & 0.33357E-07_JPRB,0.33134E-07_JPRB,0.32394E-07_JPRB,0.32909E-07_JPRB,0.36234E-07_JPRB /)  
+KB(:,30, 6) = (/ &
+ & 0.30529E-07_JPRB,0.29196E-07_JPRB,0.29147E-07_JPRB,0.30292E-07_JPRB,0.33912E-07_JPRB /)  
+KB(:,31, 6) = (/ &
+ & 0.27228E-07_JPRB,0.27081E-07_JPRB,0.26630E-07_JPRB,0.30010E-07_JPRB,0.28781E-07_JPRB /)  
+KB(:,32, 6) = (/ &
+ & 0.24109E-07_JPRB,0.24388E-07_JPRB,0.25546E-07_JPRB,0.26823E-07_JPRB,0.26681E-07_JPRB /)  
+KB(:,33, 6) = (/ &
+ & 0.21402E-07_JPRB,0.22303E-07_JPRB,0.24668E-07_JPRB,0.24556E-07_JPRB,0.24369E-07_JPRB /)  
+KB(:,34, 6) = (/ &
+ & 0.18136E-07_JPRB,0.20944E-07_JPRB,0.21211E-07_JPRB,0.21286E-07_JPRB,0.21648E-07_JPRB /)  
+KB(:,35, 6) = (/ &
+ & 0.16306E-07_JPRB,0.17531E-07_JPRB,0.17744E-07_JPRB,0.18061E-07_JPRB,0.18282E-07_JPRB /)  
+KB(:,36, 6) = (/ &
+ & 0.13873E-07_JPRB,0.14963E-07_JPRB,0.15398E-07_JPRB,0.15527E-07_JPRB,0.15391E-07_JPRB /)  
+KB(:,37, 6) = (/ &
+ & 0.11948E-07_JPRB,0.12614E-07_JPRB,0.12946E-07_JPRB,0.12916E-07_JPRB,0.13085E-07_JPRB /)  
+KB(:,38, 6) = (/ &
+ & 0.98235E-08_JPRB,0.10612E-07_JPRB,0.10029E-07_JPRB,0.10618E-07_JPRB,0.10860E-07_JPRB /)  
+KB(:,39, 6) = (/ &
+ & 0.81514E-08_JPRB,0.84716E-08_JPRB,0.81123E-08_JPRB,0.83644E-08_JPRB,0.81668E-08_JPRB /)  
+KB(:,40, 6) = (/ &
+ & 0.68179E-08_JPRB,0.69030E-08_JPRB,0.69393E-08_JPRB,0.69969E-08_JPRB,0.71027E-08_JPRB /)  
+KB(:,41, 6) = (/ &
+ & 0.59350E-08_JPRB,0.60668E-08_JPRB,0.59026E-08_JPRB,0.60181E-08_JPRB,0.60779E-08_JPRB /)  
+KB(:,42, 6) = (/ &
+ & 0.51181E-08_JPRB,0.52127E-08_JPRB,0.48788E-08_JPRB,0.51397E-08_JPRB,0.50230E-08_JPRB /)  
+KB(:,43, 6) = (/ &
+ & 0.42653E-08_JPRB,0.44600E-08_JPRB,0.41100E-08_JPRB,0.44735E-08_JPRB,0.42607E-08_JPRB /)  
+KB(:,44, 6) = (/ &
+ & 0.34724E-08_JPRB,0.37628E-08_JPRB,0.35340E-08_JPRB,0.38309E-08_JPRB,0.36188E-08_JPRB /)  
+KB(:,45, 6) = (/ &
+ & 0.27994E-08_JPRB,0.31690E-08_JPRB,0.28599E-08_JPRB,0.30290E-08_JPRB,0.27730E-08_JPRB /)  
+KB(:,46, 6) = (/ &
+ & 0.22089E-08_JPRB,0.25761E-08_JPRB,0.23856E-08_JPRB,0.24874E-08_JPRB,0.23603E-08_JPRB /)  
+KB(:,47, 6) = (/ &
+ & 0.18078E-08_JPRB,0.20304E-08_JPRB,0.19457E-08_JPRB,0.19366E-08_JPRB,0.19286E-08_JPRB /)  
+KB(:,48, 6) = (/ &
+ & 0.14716E-08_JPRB,0.15703E-08_JPRB,0.17393E-08_JPRB,0.14836E-08_JPRB,0.15316E-08_JPRB /)  
+KB(:,49, 6) = (/ &
+ & 0.11334E-08_JPRB,0.12901E-08_JPRB,0.13556E-08_JPRB,0.11610E-08_JPRB,0.11617E-08_JPRB /)  
+KB(:,50, 6) = (/ &
+ & 0.90881E-09_JPRB,0.10323E-08_JPRB,0.11378E-08_JPRB,0.95509E-09_JPRB,0.96291E-09_JPRB /)  
+KB(:,51, 6) = (/ &
+ & 0.76751E-09_JPRB,0.81710E-09_JPRB,0.97432E-09_JPRB,0.82408E-09_JPRB,0.81205E-09_JPRB /)  
+KB(:,52, 6) = (/ &
+ & 0.62668E-09_JPRB,0.66223E-09_JPRB,0.76870E-09_JPRB,0.68347E-09_JPRB,0.65771E-09_JPRB /)  
+KB(:,53, 6) = (/ &
+ & 0.50547E-09_JPRB,0.49991E-09_JPRB,0.61494E-09_JPRB,0.55640E-09_JPRB,0.52803E-09_JPRB /)  
+KB(:,54, 6) = (/ &
+ & 0.42841E-09_JPRB,0.42678E-09_JPRB,0.51796E-09_JPRB,0.46340E-09_JPRB,0.44830E-09_JPRB /)  
+KB(:,55, 6) = (/ &
+ & 0.40234E-09_JPRB,0.40065E-09_JPRB,0.45944E-09_JPRB,0.42252E-09_JPRB,0.44365E-09_JPRB /)  
+KB(:,56, 6) = (/ &
+ & 0.36764E-09_JPRB,0.35937E-09_JPRB,0.36570E-09_JPRB,0.44631E-09_JPRB,0.45684E-09_JPRB /)  
+KB(:,57, 6) = (/ &
+ & 0.33321E-09_JPRB,0.29808E-09_JPRB,0.31056E-09_JPRB,0.44585E-09_JPRB,0.41122E-09_JPRB /)  
+KB(:,58, 6) = (/ &
+ & 0.31198E-09_JPRB,0.29542E-09_JPRB,0.33327E-09_JPRB,0.43871E-09_JPRB,0.45291E-09_JPRB /)  
+KB(:,59, 6) = (/ &
+ & 0.38710E-09_JPRB,0.42412E-09_JPRB,0.44197E-09_JPRB,0.49964E-09_JPRB,0.70387E-09_JPRB /)  
+KB(:,13, 7) = (/ &
+ & 0.30377E-07_JPRB,0.31586E-07_JPRB,0.27647E-07_JPRB,0.27937E-07_JPRB,0.28036E-07_JPRB /)  
+KB(:,14, 7) = (/ &
+ & 0.37766E-07_JPRB,0.39819E-07_JPRB,0.39822E-07_JPRB,0.40069E-07_JPRB,0.42091E-07_JPRB /)  
+KB(:,15, 7) = (/ &
+ & 0.57996E-07_JPRB,0.64474E-07_JPRB,0.69368E-07_JPRB,0.70909E-07_JPRB,0.70748E-07_JPRB /)  
+KB(:,16, 7) = (/ &
+ & 0.73220E-07_JPRB,0.70124E-07_JPRB,0.69135E-07_JPRB,0.68058E-07_JPRB,0.66524E-07_JPRB /)  
+KB(:,17, 7) = (/ &
+ & 0.66529E-07_JPRB,0.66306E-07_JPRB,0.63797E-07_JPRB,0.63551E-07_JPRB,0.63462E-07_JPRB /)  
+KB(:,18, 7) = (/ &
+ & 0.66492E-07_JPRB,0.65156E-07_JPRB,0.66323E-07_JPRB,0.64485E-07_JPRB,0.63285E-07_JPRB /)  
+KB(:,19, 7) = (/ &
+ & 0.62980E-07_JPRB,0.62900E-07_JPRB,0.62718E-07_JPRB,0.61114E-07_JPRB,0.59765E-07_JPRB /)  
+KB(:,20, 7) = (/ &
+ & 0.59754E-07_JPRB,0.58066E-07_JPRB,0.59540E-07_JPRB,0.58926E-07_JPRB,0.57835E-07_JPRB /)  
+KB(:,21, 7) = (/ &
+ & 0.57368E-07_JPRB,0.55161E-07_JPRB,0.55685E-07_JPRB,0.55360E-07_JPRB,0.53982E-07_JPRB /)  
+KB(:,22, 7) = (/ &
+ & 0.51435E-07_JPRB,0.49998E-07_JPRB,0.50952E-07_JPRB,0.50442E-07_JPRB,0.49717E-07_JPRB /)  
+KB(:,23, 7) = (/ &
+ & 0.47663E-07_JPRB,0.46845E-07_JPRB,0.47849E-07_JPRB,0.48876E-07_JPRB,0.48885E-07_JPRB /)  
+KB(:,24, 7) = (/ &
+ & 0.47926E-07_JPRB,0.45619E-07_JPRB,0.45793E-07_JPRB,0.46467E-07_JPRB,0.45938E-07_JPRB /)  
+KB(:,25, 7) = (/ &
+ & 0.44687E-07_JPRB,0.43904E-07_JPRB,0.44284E-07_JPRB,0.44176E-07_JPRB,0.45520E-07_JPRB /)  
+KB(:,26, 7) = (/ &
+ & 0.42751E-07_JPRB,0.41938E-07_JPRB,0.42889E-07_JPRB,0.42927E-07_JPRB,0.43868E-07_JPRB /)  
+KB(:,27, 7) = (/ &
+ & 0.40180E-07_JPRB,0.40529E-07_JPRB,0.40621E-07_JPRB,0.40949E-07_JPRB,0.41005E-07_JPRB /)  
+KB(:,28, 7) = (/ &
+ & 0.35890E-07_JPRB,0.36716E-07_JPRB,0.37875E-07_JPRB,0.38308E-07_JPRB,0.37626E-07_JPRB /)  
+KB(:,29, 7) = (/ &
+ & 0.31499E-07_JPRB,0.33284E-07_JPRB,0.32725E-07_JPRB,0.32493E-07_JPRB,0.35018E-07_JPRB /)  
+KB(:,30, 7) = (/ &
+ & 0.29364E-07_JPRB,0.28675E-07_JPRB,0.28942E-07_JPRB,0.28761E-07_JPRB,0.33960E-07_JPRB /)  
+KB(:,31, 7) = (/ &
+ & 0.25558E-07_JPRB,0.23679E-07_JPRB,0.24292E-07_JPRB,0.26053E-07_JPRB,0.29211E-07_JPRB /)  
+KB(:,32, 7) = (/ &
+ & 0.20860E-07_JPRB,0.21491E-07_JPRB,0.20910E-07_JPRB,0.25598E-07_JPRB,0.24209E-07_JPRB /)  
+KB(:,33, 7) = (/ &
+ & 0.18874E-07_JPRB,0.18554E-07_JPRB,0.21206E-07_JPRB,0.20708E-07_JPRB,0.21100E-07_JPRB /)  
+KB(:,34, 7) = (/ &
+ & 0.18632E-07_JPRB,0.18625E-07_JPRB,0.20707E-07_JPRB,0.19570E-07_JPRB,0.18956E-07_JPRB /)  
+KB(:,35, 7) = (/ &
+ & 0.15958E-07_JPRB,0.19141E-07_JPRB,0.19004E-07_JPRB,0.19249E-07_JPRB,0.17793E-07_JPRB /)  
+KB(:,36, 7) = (/ &
+ & 0.14552E-07_JPRB,0.16561E-07_JPRB,0.16607E-07_JPRB,0.16784E-07_JPRB,0.16326E-07_JPRB /)  
+KB(:,37, 7) = (/ &
+ & 0.13127E-07_JPRB,0.14300E-07_JPRB,0.14021E-07_JPRB,0.14385E-07_JPRB,0.13328E-07_JPRB /)  
+KB(:,38, 7) = (/ &
+ & 0.11514E-07_JPRB,0.12356E-07_JPRB,0.12677E-07_JPRB,0.12181E-07_JPRB,0.11774E-07_JPRB /)  
+KB(:,39, 7) = (/ &
+ & 0.93434E-08_JPRB,0.10196E-07_JPRB,0.10605E-07_JPRB,0.10201E-07_JPRB,0.10584E-07_JPRB /)  
+KB(:,40, 7) = (/ &
+ & 0.81790E-08_JPRB,0.89000E-08_JPRB,0.85315E-08_JPRB,0.89663E-08_JPRB,0.91635E-08_JPRB /)  
+KB(:,41, 7) = (/ &
+ & 0.65541E-08_JPRB,0.74884E-08_JPRB,0.72364E-08_JPRB,0.72692E-08_JPRB,0.75649E-08_JPRB /)  
+KB(:,42, 7) = (/ &
+ & 0.54665E-08_JPRB,0.61796E-08_JPRB,0.61564E-08_JPRB,0.61304E-08_JPRB,0.64285E-08_JPRB /)  
+KB(:,43, 7) = (/ &
+ & 0.43531E-08_JPRB,0.47798E-08_JPRB,0.51393E-08_JPRB,0.49135E-08_JPRB,0.53520E-08_JPRB /)  
+KB(:,44, 7) = (/ &
+ & 0.35872E-08_JPRB,0.38233E-08_JPRB,0.42659E-08_JPRB,0.39384E-08_JPRB,0.44541E-08_JPRB /)  
+KB(:,45, 7) = (/ &
+ & 0.28156E-08_JPRB,0.32775E-08_JPRB,0.36262E-08_JPRB,0.32518E-08_JPRB,0.36805E-08_JPRB /)  
+KB(:,46, 7) = (/ &
+ & 0.23879E-08_JPRB,0.26299E-08_JPRB,0.28972E-08_JPRB,0.27379E-08_JPRB,0.30333E-08_JPRB /)  
+KB(:,47, 7) = (/ &
+ & 0.19282E-08_JPRB,0.22066E-08_JPRB,0.23812E-08_JPRB,0.23512E-08_JPRB,0.23794E-08_JPRB /)  
+KB(:,48, 7) = (/ &
+ & 0.15092E-08_JPRB,0.18255E-08_JPRB,0.17414E-08_JPRB,0.19322E-08_JPRB,0.19399E-08_JPRB /)  
+KB(:,49, 7) = (/ &
+ & 0.11905E-08_JPRB,0.13964E-08_JPRB,0.14306E-08_JPRB,0.14791E-08_JPRB,0.14939E-08_JPRB /)  
+KB(:,50, 7) = (/ &
+ & 0.98537E-09_JPRB,0.10687E-08_JPRB,0.11753E-08_JPRB,0.11334E-08_JPRB,0.13178E-08_JPRB /)  
+KB(:,51, 7) = (/ &
+ & 0.84255E-09_JPRB,0.88069E-09_JPRB,0.95073E-09_JPRB,0.92632E-09_JPRB,0.10457E-08_JPRB /)  
+KB(:,52, 7) = (/ &
+ & 0.68238E-09_JPRB,0.70376E-09_JPRB,0.74795E-09_JPRB,0.75152E-09_JPRB,0.78131E-09_JPRB /)  
+KB(:,53, 7) = (/ &
+ & 0.56271E-09_JPRB,0.58527E-09_JPRB,0.61397E-09_JPRB,0.56343E-09_JPRB,0.61138E-09_JPRB /)  
+KB(:,54, 7) = (/ &
+ & 0.52493E-09_JPRB,0.46040E-09_JPRB,0.53769E-09_JPRB,0.51459E-09_JPRB,0.52912E-09_JPRB /)  
+KB(:,55, 7) = (/ &
+ & 0.40372E-09_JPRB,0.38720E-09_JPRB,0.40004E-09_JPRB,0.56294E-09_JPRB,0.55844E-09_JPRB /)  
+KB(:,56, 7) = (/ &
+ & 0.37372E-09_JPRB,0.35358E-09_JPRB,0.39920E-09_JPRB,0.52819E-09_JPRB,0.50147E-09_JPRB /)  
+KB(:,57, 7) = (/ &
+ & 0.31149E-09_JPRB,0.39454E-09_JPRB,0.38951E-09_JPRB,0.52086E-09_JPRB,0.54542E-09_JPRB /)  
+KB(:,58, 7) = (/ &
+ & 0.30564E-09_JPRB,0.36251E-09_JPRB,0.38551E-09_JPRB,0.43845E-09_JPRB,0.61772E-09_JPRB /)  
+KB(:,59, 7) = (/ &
+ & 0.46934E-09_JPRB,0.57639E-09_JPRB,0.58591E-09_JPRB,0.63021E-09_JPRB,0.71158E-09_JPRB /)  
+KB(:,13, 8) = (/ &
+ & 0.34320E-07_JPRB,0.31607E-07_JPRB,0.29840E-07_JPRB,0.29114E-07_JPRB,0.28831E-07_JPRB /)  
+KB(:,14, 8) = (/ &
+ & 0.38157E-07_JPRB,0.37907E-07_JPRB,0.40351E-07_JPRB,0.45015E-07_JPRB,0.44786E-07_JPRB /)  
+KB(:,15, 8) = (/ &
+ & 0.71231E-07_JPRB,0.71647E-07_JPRB,0.71034E-07_JPRB,0.71647E-07_JPRB,0.71755E-07_JPRB /)  
+KB(:,16, 8) = (/ &
+ & 0.72049E-07_JPRB,0.69075E-07_JPRB,0.67707E-07_JPRB,0.67019E-07_JPRB,0.66780E-07_JPRB /)  
+KB(:,17, 8) = (/ &
+ & 0.69751E-07_JPRB,0.66211E-07_JPRB,0.66017E-07_JPRB,0.63095E-07_JPRB,0.63343E-07_JPRB /)  
+KB(:,18, 8) = (/ &
+ & 0.67728E-07_JPRB,0.66581E-07_JPRB,0.64787E-07_JPRB,0.62981E-07_JPRB,0.62245E-07_JPRB /)  
+KB(:,19, 8) = (/ &
+ & 0.65864E-07_JPRB,0.63789E-07_JPRB,0.62712E-07_JPRB,0.62065E-07_JPRB,0.61005E-07_JPRB /)  
+KB(:,20, 8) = (/ &
+ & 0.61816E-07_JPRB,0.63755E-07_JPRB,0.63424E-07_JPRB,0.61945E-07_JPRB,0.58720E-07_JPRB /)  
+KB(:,21, 8) = (/ &
+ & 0.59112E-07_JPRB,0.58061E-07_JPRB,0.57019E-07_JPRB,0.54795E-07_JPRB,0.56069E-07_JPRB /)  
+KB(:,22, 8) = (/ &
+ & 0.56217E-07_JPRB,0.53887E-07_JPRB,0.54812E-07_JPRB,0.52500E-07_JPRB,0.53303E-07_JPRB /)  
+KB(:,23, 8) = (/ &
+ & 0.54428E-07_JPRB,0.52930E-07_JPRB,0.53278E-07_JPRB,0.52797E-07_JPRB,0.51840E-07_JPRB /)  
+KB(:,24, 8) = (/ &
+ & 0.51236E-07_JPRB,0.52532E-07_JPRB,0.53348E-07_JPRB,0.51715E-07_JPRB,0.53224E-07_JPRB /)  
+KB(:,25, 8) = (/ &
+ & 0.49989E-07_JPRB,0.50872E-07_JPRB,0.49932E-07_JPRB,0.52702E-07_JPRB,0.51493E-07_JPRB /)  
+KB(:,26, 8) = (/ &
+ & 0.49845E-07_JPRB,0.48733E-07_JPRB,0.48348E-07_JPRB,0.51346E-07_JPRB,0.51109E-07_JPRB /)  
+KB(:,27, 8) = (/ &
+ & 0.43883E-07_JPRB,0.43853E-07_JPRB,0.46523E-07_JPRB,0.47281E-07_JPRB,0.47292E-07_JPRB /)  
+KB(:,28, 8) = (/ &
+ & 0.41424E-07_JPRB,0.42057E-07_JPRB,0.43773E-07_JPRB,0.43422E-07_JPRB,0.41438E-07_JPRB /)  
+KB(:,29, 8) = (/ &
+ & 0.37736E-07_JPRB,0.34915E-07_JPRB,0.37971E-07_JPRB,0.38437E-07_JPRB,0.38122E-07_JPRB /)  
+KB(:,30, 8) = (/ &
+ & 0.30209E-07_JPRB,0.32936E-07_JPRB,0.31853E-07_JPRB,0.30285E-07_JPRB,0.31746E-07_JPRB /)  
+KB(:,31, 8) = (/ &
+ & 0.25886E-07_JPRB,0.26990E-07_JPRB,0.27039E-07_JPRB,0.26019E-07_JPRB,0.34246E-07_JPRB /)  
+KB(:,32, 8) = (/ &
+ & 0.24750E-07_JPRB,0.20653E-07_JPRB,0.21921E-07_JPRB,0.25087E-07_JPRB,0.25874E-07_JPRB /)  
+KB(:,33, 8) = (/ &
+ & 0.19410E-07_JPRB,0.18820E-07_JPRB,0.18768E-07_JPRB,0.23223E-07_JPRB,0.20942E-07_JPRB /)  
+KB(:,34, 8) = (/ &
+ & 0.16037E-07_JPRB,0.16060E-07_JPRB,0.19012E-07_JPRB,0.17686E-07_JPRB,0.18319E-07_JPRB /)  
+KB(:,35, 8) = (/ &
+ & 0.16085E-07_JPRB,0.15072E-07_JPRB,0.16472E-07_JPRB,0.15719E-07_JPRB,0.16406E-07_JPRB /)  
+KB(:,36, 8) = (/ &
+ & 0.15014E-07_JPRB,0.17144E-07_JPRB,0.16353E-07_JPRB,0.15223E-07_JPRB,0.14884E-07_JPRB /)  
+KB(:,37, 8) = (/ &
+ & 0.12909E-07_JPRB,0.15628E-07_JPRB,0.16086E-07_JPRB,0.15318E-07_JPRB,0.15605E-07_JPRB /)  
+KB(:,38, 8) = (/ &
+ & 0.11803E-07_JPRB,0.12970E-07_JPRB,0.13587E-07_JPRB,0.13257E-07_JPRB,0.13920E-07_JPRB /)  
+KB(:,39, 8) = (/ &
+ & 0.10299E-07_JPRB,0.10951E-07_JPRB,0.11006E-07_JPRB,0.11507E-07_JPRB,0.10553E-07_JPRB /)  
+KB(:,40, 8) = (/ &
+ & 0.87605E-08_JPRB,0.10094E-07_JPRB,0.10641E-07_JPRB,0.94199E-08_JPRB,0.97115E-08_JPRB /)  
+KB(:,41, 8) = (/ &
+ & 0.69747E-08_JPRB,0.82105E-08_JPRB,0.93516E-08_JPRB,0.90234E-08_JPRB,0.91657E-08_JPRB /)  
+KB(:,42, 8) = (/ &
+ & 0.60201E-08_JPRB,0.73523E-08_JPRB,0.76249E-08_JPRB,0.76962E-08_JPRB,0.80489E-08_JPRB /)  
+KB(:,43, 8) = (/ &
+ & 0.50249E-08_JPRB,0.64035E-08_JPRB,0.62997E-08_JPRB,0.63745E-08_JPRB,0.65773E-08_JPRB /)  
+KB(:,44, 8) = (/ &
+ & 0.43021E-08_JPRB,0.55682E-08_JPRB,0.52391E-08_JPRB,0.55432E-08_JPRB,0.53417E-08_JPRB /)  
+KB(:,45, 8) = (/ &
+ & 0.34659E-08_JPRB,0.41011E-08_JPRB,0.41998E-08_JPRB,0.45328E-08_JPRB,0.45452E-08_JPRB /)  
+KB(:,46, 8) = (/ &
+ & 0.26629E-08_JPRB,0.30573E-08_JPRB,0.34050E-08_JPRB,0.36018E-08_JPRB,0.38146E-08_JPRB /)  
+KB(:,47, 8) = (/ &
+ & 0.20352E-08_JPRB,0.25120E-08_JPRB,0.29668E-08_JPRB,0.27818E-08_JPRB,0.34015E-08_JPRB /)  
+KB(:,48, 8) = (/ &
+ & 0.16537E-08_JPRB,0.17568E-08_JPRB,0.23894E-08_JPRB,0.22154E-08_JPRB,0.25802E-08_JPRB /)  
+KB(:,49, 8) = (/ &
+ & 0.13981E-08_JPRB,0.14349E-08_JPRB,0.17246E-08_JPRB,0.17767E-08_JPRB,0.19090E-08_JPRB /)  
+KB(:,50, 8) = (/ &
+ & 0.10918E-08_JPRB,0.11356E-08_JPRB,0.12258E-08_JPRB,0.14996E-08_JPRB,0.12493E-08_JPRB /)  
+KB(:,51, 8) = (/ &
+ & 0.96204E-09_JPRB,0.88786E-09_JPRB,0.10061E-08_JPRB,0.12415E-08_JPRB,0.10774E-08_JPRB /)  
+KB(:,52, 8) = (/ &
+ & 0.79848E-09_JPRB,0.70289E-09_JPRB,0.84515E-09_JPRB,0.10143E-08_JPRB,0.85552E-09_JPRB /)  
+KB(:,53, 8) = (/ &
+ & 0.60435E-09_JPRB,0.54746E-09_JPRB,0.63806E-09_JPRB,0.74615E-09_JPRB,0.64507E-09_JPRB /)  
+KB(:,54, 8) = (/ &
+ & 0.47378E-09_JPRB,0.48059E-09_JPRB,0.54886E-09_JPRB,0.73215E-09_JPRB,0.65721E-09_JPRB /)  
+KB(:,55, 8) = (/ &
+ & 0.45346E-09_JPRB,0.46291E-09_JPRB,0.55380E-09_JPRB,0.67829E-09_JPRB,0.56756E-09_JPRB /)  
+KB(:,56, 8) = (/ &
+ & 0.43938E-09_JPRB,0.46043E-09_JPRB,0.50980E-09_JPRB,0.62685E-09_JPRB,0.70094E-09_JPRB /)  
+KB(:,57, 8) = (/ &
+ & 0.42587E-09_JPRB,0.43184E-09_JPRB,0.47819E-09_JPRB,0.57152E-09_JPRB,0.76528E-09_JPRB /)  
+KB(:,58, 8) = (/ &
+ & 0.47403E-09_JPRB,0.46387E-09_JPRB,0.50904E-09_JPRB,0.58886E-09_JPRB,0.70162E-09_JPRB /)  
+KB(:,59, 8) = (/ &
+ & 0.54448E-09_JPRB,0.50172E-09_JPRB,0.65155E-09_JPRB,0.65748E-09_JPRB,0.98321E-09_JPRB /)  
+KB(:,13, 9) = (/ &
+ & 0.10995E-05_JPRB,0.11095E-05_JPRB,0.11168E-05_JPRB,0.11200E-05_JPRB,0.11274E-05_JPRB /)  
+KB(:,14, 9) = (/ &
+ & 0.73340E-06_JPRB,0.73567E-06_JPRB,0.73740E-06_JPRB,0.73330E-06_JPRB,0.73919E-06_JPRB /)  
+KB(:,15, 9) = (/ &
+ & 0.32510E-06_JPRB,0.31252E-06_JPRB,0.30243E-06_JPRB,0.29146E-06_JPRB,0.28830E-06_JPRB /)  
+KB(:,16, 9) = (/ &
+ & 0.61567E-07_JPRB,0.60590E-07_JPRB,0.61057E-07_JPRB,0.58821E-07_JPRB,0.58536E-07_JPRB /)  
+KB(:,17, 9) = (/ &
+ & 0.60009E-07_JPRB,0.60924E-07_JPRB,0.61205E-07_JPRB,0.63591E-07_JPRB,0.59950E-07_JPRB /)  
+KB(:,18, 9) = (/ &
+ & 0.61458E-07_JPRB,0.61692E-07_JPRB,0.60339E-07_JPRB,0.59878E-07_JPRB,0.58575E-07_JPRB /)  
+KB(:,19, 9) = (/ &
+ & 0.57878E-07_JPRB,0.60299E-07_JPRB,0.60236E-07_JPRB,0.59512E-07_JPRB,0.58126E-07_JPRB /)  
+KB(:,20, 9) = (/ &
+ & 0.58329E-07_JPRB,0.57451E-07_JPRB,0.54760E-07_JPRB,0.57082E-07_JPRB,0.56805E-07_JPRB /)  
+KB(:,21, 9) = (/ &
+ & 0.53092E-07_JPRB,0.51700E-07_JPRB,0.51833E-07_JPRB,0.52853E-07_JPRB,0.52467E-07_JPRB /)  
+KB(:,22, 9) = (/ &
+ & 0.47591E-07_JPRB,0.51357E-07_JPRB,0.49075E-07_JPRB,0.53548E-07_JPRB,0.55924E-07_JPRB /)  
+KB(:,23, 9) = (/ &
+ & 0.49724E-07_JPRB,0.51803E-07_JPRB,0.51793E-07_JPRB,0.49922E-07_JPRB,0.52665E-07_JPRB /)  
+KB(:,24, 9) = (/ &
+ & 0.47737E-07_JPRB,0.49279E-07_JPRB,0.51207E-07_JPRB,0.49000E-07_JPRB,0.51613E-07_JPRB /)  
+KB(:,25, 9) = (/ &
+ & 0.49014E-07_JPRB,0.50174E-07_JPRB,0.54886E-07_JPRB,0.47520E-07_JPRB,0.49798E-07_JPRB /)  
+KB(:,26, 9) = (/ &
+ & 0.42783E-07_JPRB,0.51200E-07_JPRB,0.50600E-07_JPRB,0.47620E-07_JPRB,0.43709E-07_JPRB /)  
+KB(:,27, 9) = (/ &
+ & 0.42685E-07_JPRB,0.50611E-07_JPRB,0.42800E-07_JPRB,0.43026E-07_JPRB,0.46518E-07_JPRB /)  
+KB(:,28, 9) = (/ &
+ & 0.40023E-07_JPRB,0.44433E-07_JPRB,0.38380E-07_JPRB,0.40945E-07_JPRB,0.42005E-07_JPRB /)  
+KB(:,29, 9) = (/ &
+ & 0.34641E-07_JPRB,0.38943E-07_JPRB,0.36153E-07_JPRB,0.36773E-07_JPRB,0.32051E-07_JPRB /)  
+KB(:,30, 9) = (/ &
+ & 0.31936E-07_JPRB,0.28774E-07_JPRB,0.32629E-07_JPRB,0.32074E-07_JPRB,0.31547E-07_JPRB /)  
+KB(:,31, 9) = (/ &
+ & 0.25468E-07_JPRB,0.25946E-07_JPRB,0.23671E-07_JPRB,0.23770E-07_JPRB,0.28704E-07_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART14',1,ZHOOK_HANDLE)
+END SUBROUTINE PART14
+
+
+SUBROUTINE PART15
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART15',0,ZHOOK_HANDLE)
+
+
+KB(:,32, 9) = (/ &
+ & 0.18317E-07_JPRB,0.22069E-07_JPRB,0.20055E-07_JPRB,0.21665E-07_JPRB,0.25653E-07_JPRB /)  
+KB(:,33, 9) = (/ &
+ & 0.18319E-07_JPRB,0.17920E-07_JPRB,0.16523E-07_JPRB,0.20049E-07_JPRB,0.19951E-07_JPRB /)  
+KB(:,34, 9) = (/ &
+ & 0.15127E-07_JPRB,0.13546E-07_JPRB,0.16257E-07_JPRB,0.16818E-07_JPRB,0.15661E-07_JPRB /)  
+KB(:,35, 9) = (/ &
+ & 0.12192E-07_JPRB,0.13829E-07_JPRB,0.15792E-07_JPRB,0.15440E-07_JPRB,0.14596E-07_JPRB /)  
+KB(:,36, 9) = (/ &
+ & 0.11593E-07_JPRB,0.10509E-07_JPRB,0.13211E-07_JPRB,0.13026E-07_JPRB,0.13917E-07_JPRB /)  
+KB(:,37, 9) = (/ &
+ & 0.12302E-07_JPRB,0.13196E-07_JPRB,0.12558E-07_JPRB,0.11760E-07_JPRB,0.12490E-07_JPRB /)  
+KB(:,38, 9) = (/ &
+ & 0.10116E-07_JPRB,0.12498E-07_JPRB,0.12546E-07_JPRB,0.12890E-07_JPRB,0.12908E-07_JPRB /)  
+KB(:,39, 9) = (/ &
+ & 0.88258E-08_JPRB,0.10400E-07_JPRB,0.11293E-07_JPRB,0.11361E-07_JPRB,0.11468E-07_JPRB /)  
+KB(:,40, 9) = (/ &
+ & 0.70753E-08_JPRB,0.81481E-08_JPRB,0.94292E-08_JPRB,0.10943E-07_JPRB,0.90300E-08_JPRB /)  
+KB(:,41, 9) = (/ &
+ & 0.71994E-08_JPRB,0.84394E-08_JPRB,0.89108E-08_JPRB,0.89407E-08_JPRB,0.87875E-08_JPRB /)  
+KB(:,42, 9) = (/ &
+ & 0.55536E-08_JPRB,0.66846E-08_JPRB,0.83965E-08_JPRB,0.80560E-08_JPRB,0.79305E-08_JPRB /)  
+KB(:,43, 9) = (/ &
+ & 0.50223E-08_JPRB,0.59958E-08_JPRB,0.69583E-08_JPRB,0.70648E-08_JPRB,0.76990E-08_JPRB /)  
+KB(:,44, 9) = (/ &
+ & 0.40990E-08_JPRB,0.43884E-08_JPRB,0.50706E-08_JPRB,0.56081E-08_JPRB,0.62414E-08_JPRB /)  
+KB(:,45, 9) = (/ &
+ & 0.35590E-08_JPRB,0.38731E-08_JPRB,0.41923E-08_JPRB,0.44278E-08_JPRB,0.44950E-08_JPRB /)  
+KB(:,46, 9) = (/ &
+ & 0.26814E-08_JPRB,0.33691E-08_JPRB,0.34101E-08_JPRB,0.34324E-08_JPRB,0.35321E-08_JPRB /)  
+KB(:,47, 9) = (/ &
+ & 0.21424E-08_JPRB,0.21249E-08_JPRB,0.27532E-08_JPRB,0.28475E-08_JPRB,0.25748E-08_JPRB /)  
+KB(:,48, 9) = (/ &
+ & 0.16514E-08_JPRB,0.18931E-08_JPRB,0.22507E-08_JPRB,0.22575E-08_JPRB,0.21238E-08_JPRB /)  
+KB(:,49, 9) = (/ &
+ & 0.12235E-08_JPRB,0.12503E-08_JPRB,0.16643E-08_JPRB,0.16742E-08_JPRB,0.16438E-08_JPRB /)  
+KB(:,50, 9) = (/ &
+ & 0.11340E-08_JPRB,0.11248E-08_JPRB,0.13120E-08_JPRB,0.13854E-08_JPRB,0.13503E-08_JPRB /)  
+KB(:,51, 9) = (/ &
+ & 0.79176E-09_JPRB,0.91681E-09_JPRB,0.99908E-09_JPRB,0.13532E-08_JPRB,0.10405E-08_JPRB /)  
+KB(:,52, 9) = (/ &
+ & 0.64785E-09_JPRB,0.57185E-09_JPRB,0.84784E-09_JPRB,0.90912E-09_JPRB,0.87721E-09_JPRB /)  
+KB(:,53, 9) = (/ &
+ & 0.51330E-09_JPRB,0.43209E-09_JPRB,0.61659E-09_JPRB,0.79798E-09_JPRB,0.65017E-09_JPRB /)  
+KB(:,54, 9) = (/ &
+ & 0.40227E-09_JPRB,0.45562E-09_JPRB,0.54691E-09_JPRB,0.63160E-09_JPRB,0.62902E-09_JPRB /)  
+KB(:,55, 9) = (/ &
+ & 0.44280E-09_JPRB,0.43833E-09_JPRB,0.48132E-09_JPRB,0.55748E-09_JPRB,0.72672E-09_JPRB /)  
+KB(:,56, 9) = (/ &
+ & 0.33767E-09_JPRB,0.43448E-09_JPRB,0.42774E-09_JPRB,0.52401E-09_JPRB,0.66273E-09_JPRB /)  
+KB(:,57, 9) = (/ &
+ & 0.40113E-09_JPRB,0.38794E-09_JPRB,0.46286E-09_JPRB,0.57261E-09_JPRB,0.60773E-09_JPRB /)  
+KB(:,58, 9) = (/ &
+ & 0.36624E-09_JPRB,0.52965E-09_JPRB,0.49530E-09_JPRB,0.54114E-09_JPRB,0.65708E-09_JPRB /)  
+KB(:,59, 9) = (/ &
+ & 0.52598E-09_JPRB,0.55940E-09_JPRB,0.70094E-09_JPRB,0.71749E-09_JPRB,0.81086E-09_JPRB /)  
+KB(:,13,10) = (/ &
+ & 0.75197E-05_JPRB,0.74908E-05_JPRB,0.74768E-05_JPRB,0.74579E-05_JPRB,0.74485E-05_JPRB /)  
+KB(:,14,10) = (/ &
+ & 0.62427E-05_JPRB,0.62400E-05_JPRB,0.62314E-05_JPRB,0.62357E-05_JPRB,0.62230E-05_JPRB /)  
+KB(:,15,10) = (/ &
+ & 0.51235E-05_JPRB,0.51220E-05_JPRB,0.51270E-05_JPRB,0.51388E-05_JPRB,0.51377E-05_JPRB /)  
+KB(:,16,10) = (/ &
+ & 0.36653E-05_JPRB,0.36812E-05_JPRB,0.36844E-05_JPRB,0.36893E-05_JPRB,0.37175E-05_JPRB /)  
+KB(:,17,10) = (/ &
+ & 0.10067E-05_JPRB,0.10571E-05_JPRB,0.10948E-05_JPRB,0.11331E-05_JPRB,0.11791E-05_JPRB /)  
+KB(:,18,10) = (/ &
+ & 0.37963E-07_JPRB,0.35028E-07_JPRB,0.38085E-07_JPRB,0.36252E-07_JPRB,0.39741E-07_JPRB /)  
+KB(:,19,10) = (/ &
+ & 0.58861E-07_JPRB,0.39909E-07_JPRB,0.43872E-07_JPRB,0.52963E-07_JPRB,0.37762E-07_JPRB /)  
+KB(:,20,10) = (/ &
+ & 0.65438E-07_JPRB,0.43429E-07_JPRB,0.52709E-07_JPRB,0.35811E-07_JPRB,0.59833E-07_JPRB /)  
+KB(:,21,10) = (/ &
+ & 0.50452E-07_JPRB,0.50995E-07_JPRB,0.40371E-07_JPRB,0.51145E-07_JPRB,0.52725E-07_JPRB /)  
+KB(:,22,10) = (/ &
+ & 0.42139E-07_JPRB,0.45011E-07_JPRB,0.61867E-07_JPRB,0.41292E-07_JPRB,0.37916E-07_JPRB /)  
+KB(:,23,10) = (/ &
+ & 0.30176E-07_JPRB,0.29856E-07_JPRB,0.39637E-07_JPRB,0.38957E-07_JPRB,0.64896E-07_JPRB /)  
+KB(:,24,10) = (/ &
+ & 0.36010E-07_JPRB,0.42155E-07_JPRB,0.32787E-07_JPRB,0.46750E-07_JPRB,0.46940E-07_JPRB /)  
+KB(:,25,10) = (/ &
+ & 0.34802E-07_JPRB,0.41607E-07_JPRB,0.40854E-07_JPRB,0.61643E-07_JPRB,0.53762E-07_JPRB /)  
+KB(:,26,10) = (/ &
+ & 0.41295E-07_JPRB,0.39697E-07_JPRB,0.46005E-07_JPRB,0.46334E-07_JPRB,0.53334E-07_JPRB /)  
+KB(:,27,10) = (/ &
+ & 0.61711E-07_JPRB,0.29641E-07_JPRB,0.51823E-07_JPRB,0.42625E-07_JPRB,0.36336E-07_JPRB /)  
+KB(:,28,10) = (/ &
+ & 0.45196E-07_JPRB,0.56637E-07_JPRB,0.31716E-07_JPRB,0.38569E-07_JPRB,0.45693E-07_JPRB /)  
+KB(:,29,10) = (/ &
+ & 0.47349E-07_JPRB,0.38492E-07_JPRB,0.26330E-07_JPRB,0.30953E-07_JPRB,0.33330E-07_JPRB /)  
+KB(:,30,10) = (/ &
+ & 0.20700E-07_JPRB,0.24999E-07_JPRB,0.19626E-07_JPRB,0.33645E-07_JPRB,0.21883E-07_JPRB /)  
+KB(:,31,10) = (/ &
+ & 0.31879E-07_JPRB,0.26245E-07_JPRB,0.28697E-07_JPRB,0.26867E-07_JPRB,0.26801E-07_JPRB /)  
+KB(:,32,10) = (/ &
+ & 0.29616E-07_JPRB,0.18927E-07_JPRB,0.18903E-07_JPRB,0.14917E-07_JPRB,0.25602E-07_JPRB /)  
+KB(:,33,10) = (/ &
+ & 0.22437E-07_JPRB,0.26260E-07_JPRB,0.17262E-07_JPRB,0.13354E-07_JPRB,0.18413E-07_JPRB /)  
+KB(:,34,10) = (/ &
+ & 0.15957E-07_JPRB,0.11226E-07_JPRB,0.16852E-07_JPRB,0.11987E-07_JPRB,0.14358E-07_JPRB /)  
+KB(:,35,10) = (/ &
+ & 0.11233E-07_JPRB,0.90736E-08_JPRB,0.13960E-07_JPRB,0.76472E-08_JPRB,0.11733E-07_JPRB /)  
+KB(:,36,10) = (/ &
+ & 0.13919E-07_JPRB,0.10081E-07_JPRB,0.10035E-07_JPRB,0.10345E-07_JPRB,0.10622E-07_JPRB /)  
+KB(:,37,10) = (/ &
+ & 0.76780E-08_JPRB,0.12331E-07_JPRB,0.10794E-07_JPRB,0.16023E-07_JPRB,0.11524E-07_JPRB /)  
+KB(:,38,10) = (/ &
+ & 0.65416E-08_JPRB,0.97484E-08_JPRB,0.12132E-07_JPRB,0.10472E-07_JPRB,0.11363E-07_JPRB /)  
+KB(:,39,10) = (/ &
+ & 0.78511E-08_JPRB,0.70392E-08_JPRB,0.91444E-08_JPRB,0.84352E-08_JPRB,0.95946E-08_JPRB /)  
+KB(:,40,10) = (/ &
+ & 0.81878E-08_JPRB,0.94957E-08_JPRB,0.84996E-08_JPRB,0.11246E-07_JPRB,0.13024E-07_JPRB /)  
+KB(:,41,10) = (/ &
+ & 0.65901E-08_JPRB,0.80717E-08_JPRB,0.78357E-08_JPRB,0.67309E-08_JPRB,0.85966E-08_JPRB /)  
+KB(:,42,10) = (/ &
+ & 0.64210E-08_JPRB,0.59979E-08_JPRB,0.56936E-08_JPRB,0.70018E-08_JPRB,0.70433E-08_JPRB /)  
+KB(:,43,10) = (/ &
+ & 0.40388E-08_JPRB,0.71452E-08_JPRB,0.63548E-08_JPRB,0.84902E-08_JPRB,0.75828E-08_JPRB /)  
+KB(:,44,10) = (/ &
+ & 0.39142E-08_JPRB,0.55915E-08_JPRB,0.49863E-08_JPRB,0.52254E-08_JPRB,0.62790E-08_JPRB /)  
+KB(:,45,10) = (/ &
+ & 0.42931E-08_JPRB,0.31608E-08_JPRB,0.46572E-08_JPRB,0.47490E-08_JPRB,0.59912E-08_JPRB /)  
+KB(:,46,10) = (/ &
+ & 0.38722E-08_JPRB,0.16146E-08_JPRB,0.40010E-08_JPRB,0.24242E-08_JPRB,0.45711E-08_JPRB /)  
+KB(:,47,10) = (/ &
+ & 0.14942E-08_JPRB,0.28671E-08_JPRB,0.27168E-08_JPRB,0.40090E-08_JPRB,0.42343E-08_JPRB /)  
+KB(:,48,10) = (/ &
+ & 0.11911E-08_JPRB,0.13582E-08_JPRB,0.26580E-08_JPRB,0.29275E-08_JPRB,0.17855E-08_JPRB /)  
+KB(:,49,10) = (/ &
+ & 0.14130E-08_JPRB,0.10553E-08_JPRB,0.10543E-08_JPRB,0.11428E-08_JPRB,0.14141E-08_JPRB /)  
+KB(:,50,10) = (/ &
+ & 0.12182E-08_JPRB,0.14973E-08_JPRB,0.13182E-08_JPRB,0.84197E-09_JPRB,0.12115E-08_JPRB /)  
+KB(:,51,10) = (/ &
+ & 0.81227E-09_JPRB,0.90496E-09_JPRB,0.77903E-09_JPRB,0.83007E-09_JPRB,0.86051E-09_JPRB /)  
+KB(:,52,10) = (/ &
+ & 0.96715E-09_JPRB,0.52504E-09_JPRB,0.42702E-09_JPRB,0.99435E-09_JPRB,0.91829E-09_JPRB /)  
+KB(:,53,10) = (/ &
+ & 0.37232E-09_JPRB,0.22359E-09_JPRB,0.89279E-09_JPRB,0.85173E-09_JPRB,0.51790E-09_JPRB /)  
+KB(:,54,10) = (/ &
+ & 0.34402E-09_JPRB,0.40116E-09_JPRB,0.54696E-09_JPRB,0.50848E-09_JPRB,0.53123E-09_JPRB /)  
+KB(:,55,10) = (/ &
+ & 0.66100E-09_JPRB,0.65370E-09_JPRB,0.58427E-09_JPRB,0.74840E-09_JPRB,0.49778E-09_JPRB /)  
+KB(:,56,10) = (/ &
+ & 0.43138E-09_JPRB,0.39155E-09_JPRB,0.52944E-09_JPRB,0.58374E-09_JPRB,0.77481E-09_JPRB /)  
+KB(:,57,10) = (/ &
+ & 0.48190E-09_JPRB,0.37726E-09_JPRB,0.54783E-09_JPRB,0.43462E-09_JPRB,0.46295E-09_JPRB /)  
+KB(:,58,10) = (/ &
+ & 0.42276E-09_JPRB,0.62831E-09_JPRB,0.68493E-09_JPRB,0.49089E-09_JPRB,0.43799E-09_JPRB /)  
+KB(:,59,10) = (/ &
+ & 0.37023E-09_JPRB,0.90764E-09_JPRB,0.36527E-09_JPRB,0.99235E-09_JPRB,0.10719E-08_JPRB /)  
+KB(:,13,11) = (/ &
+ & 0.15119E-04_JPRB,0.15135E-04_JPRB,0.15140E-04_JPRB,0.15181E-04_JPRB,0.15209E-04_JPRB /)  
+KB(:,14,11) = (/ &
+ & 0.12807E-04_JPRB,0.12837E-04_JPRB,0.12873E-04_JPRB,0.12938E-04_JPRB,0.12999E-04_JPRB /)  
+KB(:,15,11) = (/ &
+ & 0.10789E-04_JPRB,0.10839E-04_JPRB,0.10921E-04_JPRB,0.10986E-04_JPRB,0.11078E-04_JPRB /)  
+KB(:,16,11) = (/ &
+ & 0.90472E-05_JPRB,0.91077E-05_JPRB,0.91930E-05_JPRB,0.92812E-05_JPRB,0.93959E-05_JPRB /)  
+KB(:,17,11) = (/ &
+ & 0.74085E-05_JPRB,0.75116E-05_JPRB,0.76103E-05_JPRB,0.77238E-05_JPRB,0.78364E-05_JPRB /)  
+KB(:,18,11) = (/ &
+ & 0.47863E-05_JPRB,0.49607E-05_JPRB,0.51634E-05_JPRB,0.53824E-05_JPRB,0.55724E-05_JPRB /)  
+KB(:,19,11) = (/ &
+ & 0.17849E-05_JPRB,0.19797E-05_JPRB,0.21641E-05_JPRB,0.23597E-05_JPRB,0.26015E-05_JPRB /)  
+KB(:,20,11) = (/ &
+ & 0.14011E-06_JPRB,0.26424E-06_JPRB,0.39902E-06_JPRB,0.56382E-06_JPRB,0.75666E-06_JPRB /)  
+KB(:,21,11) = (/ &
+ & 0.32681E-07_JPRB,0.30855E-07_JPRB,0.23688E-07_JPRB,0.28954E-07_JPRB,0.30262E-07_JPRB /)  
+KB(:,22,11) = (/ &
+ & 0.39000E-07_JPRB,0.34641E-07_JPRB,0.36220E-07_JPRB,0.29230E-07_JPRB,0.25365E-07_JPRB /)  
+KB(:,23,11) = (/ &
+ & 0.39936E-07_JPRB,0.40586E-07_JPRB,0.26460E-07_JPRB,0.13886E-07_JPRB,0.18108E-07_JPRB /)  
+KB(:,24,11) = (/ &
+ & 0.34546E-07_JPRB,0.30818E-07_JPRB,0.33243E-07_JPRB,0.31408E-07_JPRB,0.37755E-07_JPRB /)  
+KB(:,25,11) = (/ &
+ & 0.36078E-07_JPRB,0.45586E-07_JPRB,0.18117E-07_JPRB,0.20176E-07_JPRB,0.46256E-07_JPRB /)  
+KB(:,26,11) = (/ &
+ & 0.61382E-07_JPRB,0.31185E-07_JPRB,0.38578E-07_JPRB,0.18908E-07_JPRB,0.43919E-07_JPRB /)  
+KB(:,27,11) = (/ &
+ & 0.37585E-07_JPRB,0.28323E-07_JPRB,0.45638E-07_JPRB,0.34261E-07_JPRB,0.26227E-07_JPRB /)  
+KB(:,28,11) = (/ &
+ & 0.41226E-07_JPRB,0.24793E-07_JPRB,0.23296E-07_JPRB,0.20952E-07_JPRB,0.27899E-07_JPRB /)  
+KB(:,29,11) = (/ &
+ & 0.21318E-07_JPRB,0.23768E-07_JPRB,0.39220E-07_JPRB,0.28896E-07_JPRB,0.15703E-07_JPRB /)  
+KB(:,30,11) = (/ &
+ & 0.25522E-07_JPRB,0.29485E-07_JPRB,0.39326E-07_JPRB,0.29293E-07_JPRB,0.36529E-07_JPRB /)  
+KB(:,31,11) = (/ &
+ & 0.14494E-07_JPRB,0.25417E-07_JPRB,0.13732E-07_JPRB,0.97827E-08_JPRB,0.20014E-07_JPRB /)  
+KB(:,32,11) = (/ &
+ & 0.14101E-07_JPRB,0.26239E-07_JPRB,0.22312E-07_JPRB,0.10163E-07_JPRB,0.17547E-07_JPRB /)  
+KB(:,33,11) = (/ &
+ & 0.17347E-07_JPRB,0.17261E-07_JPRB,0.13014E-07_JPRB,0.21130E-07_JPRB,0.31576E-08_JPRB /)  
+KB(:,34,11) = (/ &
+ & 0.11923E-07_JPRB,0.13818E-07_JPRB,0.14692E-07_JPRB,0.14120E-07_JPRB,0.12000E-07_JPRB /)  
+KB(:,35,11) = (/ &
+ & 0.86917E-08_JPRB,0.10083E-07_JPRB,0.11872E-07_JPRB,0.58578E-08_JPRB,0.13194E-07_JPRB /)  
+KB(:,36,11) = (/ &
+ & 0.74538E-08_JPRB,0.94606E-08_JPRB,0.85633E-08_JPRB,0.15394E-07_JPRB,0.81997E-08_JPRB /)  
+KB(:,37,11) = (/ &
+ & 0.59982E-08_JPRB,0.58805E-08_JPRB,0.92255E-08_JPRB,0.69472E-08_JPRB,0.63632E-08_JPRB /)  
+KB(:,38,11) = (/ &
+ & 0.75481E-08_JPRB,0.82094E-08_JPRB,0.10405E-07_JPRB,0.62921E-08_JPRB,0.70021E-08_JPRB /)  
+KB(:,39,11) = (/ &
+ & 0.65770E-08_JPRB,0.73715E-08_JPRB,0.70899E-08_JPRB,0.49884E-08_JPRB,0.73567E-08_JPRB /)  
+KB(:,40,11) = (/ &
+ & 0.62200E-08_JPRB,0.79227E-08_JPRB,0.65710E-08_JPRB,0.35793E-08_JPRB,0.48653E-08_JPRB /)  
+KB(:,41,11) = (/ &
+ & 0.67810E-08_JPRB,0.64933E-08_JPRB,0.26651E-08_JPRB,0.71067E-08_JPRB,0.42136E-08_JPRB /)  
+KB(:,42,11) = (/ &
+ & 0.32351E-08_JPRB,0.79993E-08_JPRB,0.25727E-08_JPRB,0.70581E-08_JPRB,0.58932E-08_JPRB /)  
+KB(:,43,11) = (/ &
+ & 0.54331E-08_JPRB,0.21653E-08_JPRB,0.69372E-08_JPRB,0.30142E-08_JPRB,0.23071E-07_JPRB /)  
+KB(:,44,11) = (/ &
+ & 0.26834E-08_JPRB,0.43047E-08_JPRB,0.44246E-08_JPRB,0.29474E-08_JPRB,0.52315E-07_JPRB /)  
+KB(:,45,11) = (/ &
+ & 0.22521E-08_JPRB,0.21920E-08_JPRB,0.35952E-08_JPRB,0.29799E-08_JPRB,0.81164E-07_JPRB /)  
+KB(:,46,11) = (/ &
+ & 0.28580E-08_JPRB,0.12605E-08_JPRB,0.64390E-09_JPRB,0.24255E-07_JPRB,0.96879E-07_JPRB /)  
+KB(:,47,11) = (/ &
+ & 0.13005E-08_JPRB,0.17967E-08_JPRB,0.21618E-08_JPRB,0.30225E-07_JPRB,0.10319E-06_JPRB /)  
+KB(:,48,11) = (/ &
+ & 0.13676E-08_JPRB,0.96043E-09_JPRB,0.14275E-08_JPRB,0.39735E-07_JPRB,0.11261E-06_JPRB /)  
+KB(:,49,11) = (/ &
+ & 0.79619E-09_JPRB,0.85338E-09_JPRB,0.14300E-08_JPRB,0.51821E-07_JPRB,0.12169E-06_JPRB /)  
+KB(:,50,11) = (/ &
+ & 0.49284E-09_JPRB,0.21801E-09_JPRB,0.75017E-08_JPRB,0.50308E-07_JPRB,0.11953E-06_JPRB /)  
+KB(:,51,11) = (/ &
+ & 0.51956E-09_JPRB,0.59927E-09_JPRB,0.87276E-08_JPRB,0.45028E-07_JPRB,0.11141E-06_JPRB /)  
+KB(:,52,11) = (/ &
+ & 0.35814E-09_JPRB,0.78982E-09_JPRB,0.10205E-07_JPRB,0.45574E-07_JPRB,0.10332E-06_JPRB /)  
+KB(:,53,11) = (/ &
+ & 0.69729E-09_JPRB,0.23757E-09_JPRB,0.11741E-07_JPRB,0.45086E-07_JPRB,0.98023E-07_JPRB /)  
+KB(:,54,11) = (/ &
+ & 0.38203E-09_JPRB,0.28792E-09_JPRB,0.72239E-08_JPRB,0.35770E-07_JPRB,0.80771E-07_JPRB /)  
+KB(:,55,11) = (/ &
+ & 0.33870E-09_JPRB,0.39698E-09_JPRB,0.15883E-08_JPRB,0.22568E-07_JPRB,0.61465E-07_JPRB /)  
+KB(:,56,11) = (/ &
+ & 0.50424E-09_JPRB,0.25383E-09_JPRB,0.46226E-09_JPRB,0.12214E-07_JPRB,0.43776E-07_JPRB /)  
+KB(:,57,11) = (/ &
+ & 0.18824E-09_JPRB,0.14340E-09_JPRB,0.96547E-10_JPRB,0.36771E-08_JPRB,0.28437E-07_JPRB /)  
+KB(:,58,11) = (/ &
+ & 0.53960E-09_JPRB,0.71198E-09_JPRB,0.40290E-09_JPRB,0.38600E-09_JPRB,0.14449E-07_JPRB /)  
+KB(:,59,11) = (/ &
+ & 0.64570E-09_JPRB,0.80856E-09_JPRB,0.54439E-09_JPRB,0.66021E-09_JPRB,0.28306E-09_JPRB /)  
+KB(:,13,12) = (/ &
+ & 0.35137E-04_JPRB,0.35315E-04_JPRB,0.35473E-04_JPRB,0.35691E-04_JPRB,0.35953E-04_JPRB /)  
+KB(:,14,12) = (/ &
+ & 0.30387E-04_JPRB,0.30535E-04_JPRB,0.30693E-04_JPRB,0.30906E-04_JPRB,0.31121E-04_JPRB /)  
+KB(:,15,12) = (/ &
+ & 0.26404E-04_JPRB,0.26560E-04_JPRB,0.26776E-04_JPRB,0.26963E-04_JPRB,0.27157E-04_JPRB /)  
+KB(:,16,12) = (/ &
+ & 0.22908E-04_JPRB,0.23161E-04_JPRB,0.23420E-04_JPRB,0.23636E-04_JPRB,0.23864E-04_JPRB /)  
+KB(:,17,12) = (/ &
+ & 0.19849E-04_JPRB,0.20170E-04_JPRB,0.20453E-04_JPRB,0.20723E-04_JPRB,0.21011E-04_JPRB /)  
+KB(:,18,12) = (/ &
+ & 0.17158E-04_JPRB,0.17516E-04_JPRB,0.17820E-04_JPRB,0.18149E-04_JPRB,0.18467E-04_JPRB /)  
+KB(:,19,12) = (/ &
+ & 0.14706E-04_JPRB,0.15074E-04_JPRB,0.15426E-04_JPRB,0.15809E-04_JPRB,0.16128E-04_JPRB /)  
+KB(:,20,12) = (/ &
+ & 0.12200E-04_JPRB,0.12654E-04_JPRB,0.13122E-04_JPRB,0.13561E-04_JPRB,0.13942E-04_JPRB /)  
+KB(:,21,12) = (/ &
+ & 0.88744E-05_JPRB,0.95294E-05_JPRB,0.10194E-04_JPRB,0.10811E-04_JPRB,0.11447E-04_JPRB /)  
+KB(:,22,12) = (/ &
+ & 0.63063E-05_JPRB,0.69160E-05_JPRB,0.75170E-05_JPRB,0.81696E-05_JPRB,0.87829E-05_JPRB /)  
+KB(:,23,12) = (/ &
+ & 0.42549E-05_JPRB,0.48576E-05_JPRB,0.54224E-05_JPRB,0.60649E-05_JPRB,0.65852E-05_JPRB /)  
+KB(:,24,12) = (/ &
+ & 0.26155E-05_JPRB,0.31537E-05_JPRB,0.36816E-05_JPRB,0.42795E-05_JPRB,0.47356E-05_JPRB /)  
+KB(:,25,12) = (/ &
+ & 0.14576E-05_JPRB,0.18762E-05_JPRB,0.23875E-05_JPRB,0.29308E-05_JPRB,0.33846E-05_JPRB /)  
+KB(:,26,12) = (/ &
+ & 0.67369E-06_JPRB,0.10096E-05_JPRB,0.14730E-05_JPRB,0.19592E-05_JPRB,0.24356E-05_JPRB /)  
+KB(:,27,12) = (/ &
+ & 0.27240E-06_JPRB,0.59733E-06_JPRB,0.98553E-06_JPRB,0.13968E-05_JPRB,0.18466E-05_JPRB /)  
+KB(:,28,12) = (/ &
+ & 0.81179E-07_JPRB,0.35063E-06_JPRB,0.74692E-06_JPRB,0.11081E-05_JPRB,0.15613E-05_JPRB /)  
+KB(:,29,12) = (/ &
+ & 0.94800E-07_JPRB,0.40513E-06_JPRB,0.73547E-06_JPRB,0.10914E-05_JPRB,0.16188E-05_JPRB /)  
+KB(:,30,12) = (/ &
+ & 0.19045E-06_JPRB,0.51192E-06_JPRB,0.80594E-06_JPRB,0.12694E-05_JPRB,0.16954E-05_JPRB /)  
+KB(:,31,12) = (/ &
+ & 0.38493E-06_JPRB,0.71230E-06_JPRB,0.11392E-05_JPRB,0.15875E-05_JPRB,0.20565E-05_JPRB /)  
+KB(:,32,12) = (/ &
+ & 0.61444E-06_JPRB,0.97779E-06_JPRB,0.14257E-05_JPRB,0.18883E-05_JPRB,0.26649E-05_JPRB /)  
+KB(:,33,12) = (/ &
+ & 0.84230E-06_JPRB,0.12390E-05_JPRB,0.17304E-05_JPRB,0.23322E-05_JPRB,0.32859E-05_JPRB /)  
+KB(:,34,12) = (/ &
+ & 0.10458E-05_JPRB,0.14709E-05_JPRB,0.19634E-05_JPRB,0.28004E-05_JPRB,0.37724E-05_JPRB /)  
+KB(:,35,12) = (/ &
+ & 0.11901E-05_JPRB,0.16306E-05_JPRB,0.22411E-05_JPRB,0.31089E-05_JPRB,0.41007E-05_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART15',1,ZHOOK_HANDLE)
+END SUBROUTINE PART15
+
+
+SUBROUTINE PART16
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART16',0,ZHOOK_HANDLE)
+
+
+KB(:,36,12) = (/ &
+ & 0.12859E-05_JPRB,0.17604E-05_JPRB,0.24414E-05_JPRB,0.32964E-05_JPRB,0.43267E-05_JPRB /)  
+KB(:,37,12) = (/ &
+ & 0.13015E-05_JPRB,0.17577E-05_JPRB,0.24562E-05_JPRB,0.33117E-05_JPRB,0.43238E-05_JPRB /)  
+KB(:,38,12) = (/ &
+ & 0.13522E-05_JPRB,0.18247E-05_JPRB,0.25116E-05_JPRB,0.33483E-05_JPRB,0.43352E-05_JPRB /)  
+KB(:,39,12) = (/ &
+ & 0.14322E-05_JPRB,0.19336E-05_JPRB,0.26107E-05_JPRB,0.34258E-05_JPRB,0.44158E-05_JPRB /)  
+KB(:,40,12) = (/ &
+ & 0.14006E-05_JPRB,0.18728E-05_JPRB,0.25304E-05_JPRB,0.33179E-05_JPRB,0.42738E-05_JPRB /)  
+KB(:,41,12) = (/ &
+ & 0.13551E-05_JPRB,0.18012E-05_JPRB,0.24357E-05_JPRB,0.32084E-05_JPRB,0.41141E-05_JPRB /)  
+KB(:,42,12) = (/ &
+ & 0.13297E-05_JPRB,0.17512E-05_JPRB,0.23561E-05_JPRB,0.30946E-05_JPRB,0.39665E-05_JPRB /)  
+KB(:,43,12) = (/ &
+ & 0.12687E-05_JPRB,0.16768E-05_JPRB,0.22464E-05_JPRB,0.29540E-05_JPRB,0.37527E-05_JPRB /)  
+KB(:,44,12) = (/ &
+ & 0.12099E-05_JPRB,0.15968E-05_JPRB,0.21385E-05_JPRB,0.28006E-05_JPRB,0.35240E-05_JPRB /)  
+KB(:,45,12) = (/ &
+ & 0.11534E-05_JPRB,0.15243E-05_JPRB,0.20279E-05_JPRB,0.26581E-05_JPRB,0.33062E-05_JPRB /)  
+KB(:,46,12) = (/ &
+ & 0.10898E-05_JPRB,0.14434E-05_JPRB,0.19097E-05_JPRB,0.24739E-05_JPRB,0.30807E-05_JPRB /)  
+KB(:,47,12) = (/ &
+ & 0.10111E-05_JPRB,0.13412E-05_JPRB,0.17607E-05_JPRB,0.22724E-05_JPRB,0.28391E-05_JPRB /)  
+KB(:,48,12) = (/ &
+ & 0.92540E-06_JPRB,0.12447E-05_JPRB,0.16295E-05_JPRB,0.20863E-05_JPRB,0.26097E-05_JPRB /)  
+KB(:,49,12) = (/ &
+ & 0.84684E-06_JPRB,0.11506E-05_JPRB,0.15141E-05_JPRB,0.19160E-05_JPRB,0.23957E-05_JPRB /)  
+KB(:,50,12) = (/ &
+ & 0.76391E-06_JPRB,0.10519E-05_JPRB,0.13910E-05_JPRB,0.17635E-05_JPRB,0.22060E-05_JPRB /)  
+KB(:,51,12) = (/ &
+ & 0.68139E-06_JPRB,0.95640E-06_JPRB,0.12771E-05_JPRB,0.16252E-05_JPRB,0.20363E-05_JPRB /)  
+KB(:,52,12) = (/ &
+ & 0.60392E-06_JPRB,0.86706E-06_JPRB,0.11671E-05_JPRB,0.14940E-05_JPRB,0.18793E-05_JPRB /)  
+KB(:,53,12) = (/ &
+ & 0.53856E-06_JPRB,0.78259E-06_JPRB,0.10620E-05_JPRB,0.13737E-05_JPRB,0.17330E-05_JPRB /)  
+KB(:,54,12) = (/ &
+ & 0.46919E-06_JPRB,0.69589E-06_JPRB,0.96582E-06_JPRB,0.12666E-05_JPRB,0.16070E-05_JPRB /)  
+KB(:,55,12) = (/ &
+ & 0.40013E-06_JPRB,0.61215E-06_JPRB,0.87450E-06_JPRB,0.11663E-05_JPRB,0.14929E-05_JPRB /)  
+KB(:,56,12) = (/ &
+ & 0.33987E-06_JPRB,0.53286E-06_JPRB,0.78520E-06_JPRB,0.10697E-05_JPRB,0.13857E-05_JPRB /)  
+KB(:,57,12) = (/ &
+ & 0.28415E-06_JPRB,0.45936E-06_JPRB,0.69784E-06_JPRB,0.97544E-06_JPRB,0.12829E-05_JPRB /)  
+KB(:,58,12) = (/ &
+ & 0.23457E-06_JPRB,0.39019E-06_JPRB,0.61528E-06_JPRB,0.88439E-06_JPRB,0.11866E-05_JPRB /)  
+KB(:,59,12) = (/ &
+ & 0.19576E-06_JPRB,0.34385E-06_JPRB,0.56055E-06_JPRB,0.82347E-06_JPRB,0.11274E-05_JPRB /)  
+KB(:,13,13) = (/ &
+ & 0.12143E-03_JPRB,0.12308E-03_JPRB,0.12512E-03_JPRB,0.12699E-03_JPRB,0.12910E-03_JPRB /)  
+KB(:,14,13) = (/ &
+ & 0.10385E-03_JPRB,0.10569E-03_JPRB,0.10770E-03_JPRB,0.10972E-03_JPRB,0.11214E-03_JPRB /)  
+KB(:,15,13) = (/ &
+ & 0.88944E-04_JPRB,0.90837E-04_JPRB,0.92688E-04_JPRB,0.94910E-04_JPRB,0.97472E-04_JPRB /)  
+KB(:,16,13) = (/ &
+ & 0.76542E-04_JPRB,0.78268E-04_JPRB,0.80179E-04_JPRB,0.82469E-04_JPRB,0.84734E-04_JPRB /)  
+KB(:,17,13) = (/ &
+ & 0.66332E-04_JPRB,0.67885E-04_JPRB,0.69742E-04_JPRB,0.71831E-04_JPRB,0.74034E-04_JPRB /)  
+KB(:,18,13) = (/ &
+ & 0.57811E-04_JPRB,0.59251E-04_JPRB,0.61096E-04_JPRB,0.62954E-04_JPRB,0.65175E-04_JPRB /)  
+KB(:,19,13) = (/ &
+ & 0.50669E-04_JPRB,0.52124E-04_JPRB,0.53790E-04_JPRB,0.55608E-04_JPRB,0.57861E-04_JPRB /)  
+KB(:,20,13) = (/ &
+ & 0.44810E-04_JPRB,0.46258E-04_JPRB,0.47774E-04_JPRB,0.49573E-04_JPRB,0.51715E-04_JPRB /)  
+KB(:,21,13) = (/ &
+ & 0.40009E-04_JPRB,0.41361E-04_JPRB,0.42755E-04_JPRB,0.44560E-04_JPRB,0.46559E-04_JPRB /)  
+KB(:,22,13) = (/ &
+ & 0.36116E-04_JPRB,0.37297E-04_JPRB,0.38718E-04_JPRB,0.40472E-04_JPRB,0.42441E-04_JPRB /)  
+KB(:,23,13) = (/ &
+ & 0.32736E-04_JPRB,0.33861E-04_JPRB,0.35361E-04_JPRB,0.37075E-04_JPRB,0.39134E-04_JPRB /)  
+KB(:,24,13) = (/ &
+ & 0.29883E-04_JPRB,0.31056E-04_JPRB,0.32552E-04_JPRB,0.34296E-04_JPRB,0.36499E-04_JPRB /)  
+KB(:,25,13) = (/ &
+ & 0.27373E-04_JPRB,0.28693E-04_JPRB,0.30179E-04_JPRB,0.32033E-04_JPRB,0.34358E-04_JPRB /)  
+KB(:,26,13) = (/ &
+ & 0.25273E-04_JPRB,0.26749E-04_JPRB,0.28306E-04_JPRB,0.30341E-04_JPRB,0.32793E-04_JPRB /)  
+KB(:,27,13) = (/ &
+ & 0.23652E-04_JPRB,0.25175E-04_JPRB,0.26905E-04_JPRB,0.29145E-04_JPRB,0.31814E-04_JPRB /)  
+KB(:,28,13) = (/ &
+ & 0.22453E-04_JPRB,0.24077E-04_JPRB,0.26031E-04_JPRB,0.28419E-04_JPRB,0.31259E-04_JPRB /)  
+KB(:,29,13) = (/ &
+ & 0.21794E-04_JPRB,0.23553E-04_JPRB,0.25672E-04_JPRB,0.28266E-04_JPRB,0.31243E-04_JPRB /)  
+KB(:,30,13) = (/ &
+ & 0.21501E-04_JPRB,0.23414E-04_JPRB,0.25687E-04_JPRB,0.28389E-04_JPRB,0.31547E-04_JPRB /)  
+KB(:,31,13) = (/ &
+ & 0.21532E-04_JPRB,0.23577E-04_JPRB,0.25947E-04_JPRB,0.28793E-04_JPRB,0.32070E-04_JPRB /)  
+KB(:,32,13) = (/ &
+ & 0.21702E-04_JPRB,0.23850E-04_JPRB,0.26365E-04_JPRB,0.29337E-04_JPRB,0.32730E-04_JPRB /)  
+KB(:,33,13) = (/ &
+ & 0.21999E-04_JPRB,0.24243E-04_JPRB,0.26895E-04_JPRB,0.29970E-04_JPRB,0.33492E-04_JPRB /)  
+KB(:,34,13) = (/ &
+ & 0.22272E-04_JPRB,0.24615E-04_JPRB,0.27365E-04_JPRB,0.30535E-04_JPRB,0.34149E-04_JPRB /)  
+KB(:,35,13) = (/ &
+ & 0.22408E-04_JPRB,0.24786E-04_JPRB,0.27609E-04_JPRB,0.30838E-04_JPRB,0.34518E-04_JPRB /)  
+KB(:,36,13) = (/ &
+ & 0.22324E-04_JPRB,0.24717E-04_JPRB,0.27535E-04_JPRB,0.30781E-04_JPRB,0.34466E-04_JPRB /)  
+KB(:,37,13) = (/ &
+ & 0.21914E-04_JPRB,0.24278E-04_JPRB,0.27037E-04_JPRB,0.30223E-04_JPRB,0.33847E-04_JPRB /)  
+KB(:,38,13) = (/ &
+ & 0.21518E-04_JPRB,0.23846E-04_JPRB,0.26529E-04_JPRB,0.29664E-04_JPRB,0.33219E-04_JPRB /)  
+KB(:,39,13) = (/ &
+ & 0.21138E-04_JPRB,0.23443E-04_JPRB,0.26064E-04_JPRB,0.29132E-04_JPRB,0.32628E-04_JPRB /)  
+KB(:,40,13) = (/ &
+ & 0.20535E-04_JPRB,0.22813E-04_JPRB,0.25328E-04_JPRB,0.28289E-04_JPRB,0.31682E-04_JPRB /)  
+KB(:,41,13) = (/ &
+ & 0.19918E-04_JPRB,0.22174E-04_JPRB,0.24598E-04_JPRB,0.27447E-04_JPRB,0.30722E-04_JPRB /)  
+KB(:,42,13) = (/ &
+ & 0.19309E-04_JPRB,0.21550E-04_JPRB,0.23909E-04_JPRB,0.26639E-04_JPRB,0.29801E-04_JPRB /)  
+KB(:,43,13) = (/ &
+ & 0.18566E-04_JPRB,0.20812E-04_JPRB,0.23112E-04_JPRB,0.25700E-04_JPRB,0.28732E-04_JPRB /)  
+KB(:,44,13) = (/ &
+ & 0.17767E-04_JPRB,0.20035E-04_JPRB,0.22299E-04_JPRB,0.24756E-04_JPRB,0.27639E-04_JPRB /)  
+KB(:,45,13) = (/ &
+ & 0.16962E-04_JPRB,0.19260E-04_JPRB,0.21500E-04_JPRB,0.23864E-04_JPRB,0.26597E-04_JPRB /)  
+KB(:,46,13) = (/ &
+ & 0.16086E-04_JPRB,0.18421E-04_JPRB,0.20671E-04_JPRB,0.22972E-04_JPRB,0.25545E-04_JPRB /)  
+KB(:,47,13) = (/ &
+ & 0.15115E-04_JPRB,0.17481E-04_JPRB,0.19766E-04_JPRB,0.22019E-04_JPRB,0.24442E-04_JPRB /)  
+KB(:,48,13) = (/ &
+ & 0.14158E-04_JPRB,0.16526E-04_JPRB,0.18843E-04_JPRB,0.21088E-04_JPRB,0.23419E-04_JPRB /)  
+KB(:,49,13) = (/ &
+ & 0.13195E-04_JPRB,0.15552E-04_JPRB,0.17911E-04_JPRB,0.20179E-04_JPRB,0.22454E-04_JPRB /)  
+KB(:,50,13) = (/ &
+ & 0.12314E-04_JPRB,0.14653E-04_JPRB,0.17032E-04_JPRB,0.19326E-04_JPRB,0.21576E-04_JPRB /)  
+KB(:,51,13) = (/ &
+ & 0.11480E-04_JPRB,0.13788E-04_JPRB,0.16154E-04_JPRB,0.18484E-04_JPRB,0.20739E-04_JPRB /)  
+KB(:,52,13) = (/ &
+ & 0.10629E-04_JPRB,0.12922E-04_JPRB,0.15279E-04_JPRB,0.17642E-04_JPRB,0.19921E-04_JPRB /)  
+KB(:,53,13) = (/ &
+ & 0.97710E-05_JPRB,0.12082E-04_JPRB,0.14410E-04_JPRB,0.16788E-04_JPRB,0.19091E-04_JPRB /)  
+KB(:,54,13) = (/ &
+ & 0.90074E-05_JPRB,0.11316E-04_JPRB,0.13617E-04_JPRB,0.15981E-04_JPRB,0.18321E-04_JPRB /)  
+KB(:,55,13) = (/ &
+ & 0.83042E-05_JPRB,0.10569E-04_JPRB,0.12859E-04_JPRB,0.15214E-04_JPRB,0.17581E-04_JPRB /)  
+KB(:,56,13) = (/ &
+ & 0.76202E-05_JPRB,0.98296E-05_JPRB,0.12125E-04_JPRB,0.14457E-04_JPRB,0.16835E-04_JPRB /)  
+KB(:,57,13) = (/ &
+ & 0.69561E-05_JPRB,0.91024E-05_JPRB,0.11398E-04_JPRB,0.13700E-04_JPRB,0.16068E-04_JPRB /)  
+KB(:,58,13) = (/ &
+ & 0.63426E-05_JPRB,0.84347E-05_JPRB,0.10695E-04_JPRB,0.12984E-04_JPRB,0.15340E-04_JPRB /)  
+KB(:,59,13) = (/ &
+ & 0.61056E-05_JPRB,0.81719E-05_JPRB,0.10410E-04_JPRB,0.12698E-04_JPRB,0.15054E-04_JPRB /)  
+KB(:,13,14) = (/ &
+ & 0.69692E-03_JPRB,0.71516E-03_JPRB,0.73378E-03_JPRB,0.75443E-03_JPRB,0.77716E-03_JPRB /)  
+KB(:,14,14) = (/ &
+ & 0.64436E-03_JPRB,0.66211E-03_JPRB,0.68199E-03_JPRB,0.70460E-03_JPRB,0.72891E-03_JPRB /)  
+KB(:,15,14) = (/ &
+ & 0.59775E-03_JPRB,0.61618E-03_JPRB,0.63785E-03_JPRB,0.66198E-03_JPRB,0.68803E-03_JPRB /)  
+KB(:,16,14) = (/ &
+ & 0.55668E-03_JPRB,0.57752E-03_JPRB,0.60052E-03_JPRB,0.62615E-03_JPRB,0.65391E-03_JPRB /)  
+KB(:,17,14) = (/ &
+ & 0.52104E-03_JPRB,0.54458E-03_JPRB,0.56934E-03_JPRB,0.59627E-03_JPRB,0.62539E-03_JPRB /)  
+KB(:,18,14) = (/ &
+ & 0.49086E-03_JPRB,0.51685E-03_JPRB,0.54337E-03_JPRB,0.57147E-03_JPRB,0.60182E-03_JPRB /)  
+KB(:,19,14) = (/ &
+ & 0.46544E-03_JPRB,0.49373E-03_JPRB,0.52192E-03_JPRB,0.55124E-03_JPRB,0.58277E-03_JPRB /)  
+KB(:,20,14) = (/ &
+ & 0.44496E-03_JPRB,0.47526E-03_JPRB,0.50494E-03_JPRB,0.53564E-03_JPRB,0.56857E-03_JPRB /)  
+KB(:,21,14) = (/ &
+ & 0.42855E-03_JPRB,0.46070E-03_JPRB,0.49202E-03_JPRB,0.52375E-03_JPRB,0.55795E-03_JPRB /)  
+KB(:,22,14) = (/ &
+ & 0.41783E-03_JPRB,0.45160E-03_JPRB,0.48421E-03_JPRB,0.51739E-03_JPRB,0.55269E-03_JPRB /)  
+KB(:,23,14) = (/ &
+ & 0.41085E-03_JPRB,0.44564E-03_JPRB,0.47947E-03_JPRB,0.51389E-03_JPRB,0.55016E-03_JPRB /)  
+KB(:,24,14) = (/ &
+ & 0.40699E-03_JPRB,0.44263E-03_JPRB,0.47766E-03_JPRB,0.51290E-03_JPRB,0.55008E-03_JPRB /)  
+KB(:,25,14) = (/ &
+ & 0.40592E-03_JPRB,0.44215E-03_JPRB,0.47812E-03_JPRB,0.51419E-03_JPRB,0.55216E-03_JPRB /)  
+KB(:,26,14) = (/ &
+ & 0.40741E-03_JPRB,0.44425E-03_JPRB,0.48085E-03_JPRB,0.51770E-03_JPRB,0.55654E-03_JPRB /)  
+KB(:,27,14) = (/ &
+ & 0.41074E-03_JPRB,0.44811E-03_JPRB,0.48506E-03_JPRB,0.52264E-03_JPRB,0.56211E-03_JPRB /)  
+KB(:,28,14) = (/ &
+ & 0.41538E-03_JPRB,0.45333E-03_JPRB,0.49042E-03_JPRB,0.52868E-03_JPRB,0.56877E-03_JPRB /)  
+KB(:,29,14) = (/ &
+ & 0.42139E-03_JPRB,0.45956E-03_JPRB,0.49700E-03_JPRB,0.53588E-03_JPRB,0.57647E-03_JPRB /)  
+KB(:,30,14) = (/ &
+ & 0.42836E-03_JPRB,0.46659E-03_JPRB,0.50435E-03_JPRB,0.54377E-03_JPRB,0.58489E-03_JPRB /)  
+KB(:,31,14) = (/ &
+ & 0.43618E-03_JPRB,0.47431E-03_JPRB,0.51248E-03_JPRB,0.55256E-03_JPRB,0.59401E-03_JPRB /)  
+KB(:,32,14) = (/ &
+ & 0.44466E-03_JPRB,0.48256E-03_JPRB,0.52138E-03_JPRB,0.56187E-03_JPRB,0.60364E-03_JPRB /)  
+KB(:,33,14) = (/ &
+ & 0.45349E-03_JPRB,0.49137E-03_JPRB,0.53076E-03_JPRB,0.57166E-03_JPRB,0.61359E-03_JPRB /)  
+KB(:,34,14) = (/ &
+ & 0.46108E-03_JPRB,0.49922E-03_JPRB,0.53902E-03_JPRB,0.58028E-03_JPRB,0.62237E-03_JPRB /)  
+KB(:,35,14) = (/ &
+ & 0.46528E-03_JPRB,0.50354E-03_JPRB,0.54368E-03_JPRB,0.58501E-03_JPRB,0.62724E-03_JPRB /)  
+KB(:,36,14) = (/ &
+ & 0.46539E-03_JPRB,0.50375E-03_JPRB,0.54391E-03_JPRB,0.58538E-03_JPRB,0.62763E-03_JPRB /)  
+KB(:,37,14) = (/ &
+ & 0.45984E-03_JPRB,0.49817E-03_JPRB,0.53806E-03_JPRB,0.57948E-03_JPRB,0.62153E-03_JPRB /)  
+KB(:,38,14) = (/ &
+ & 0.45408E-03_JPRB,0.49229E-03_JPRB,0.53205E-03_JPRB,0.57322E-03_JPRB,0.61533E-03_JPRB /)  
+KB(:,39,14) = (/ &
+ & 0.44837E-03_JPRB,0.48652E-03_JPRB,0.52604E-03_JPRB,0.56712E-03_JPRB,0.60916E-03_JPRB /)  
+KB(:,40,14) = (/ &
+ & 0.43865E-03_JPRB,0.47705E-03_JPRB,0.51607E-03_JPRB,0.55678E-03_JPRB,0.59870E-03_JPRB /)  
+KB(:,41,14) = (/ &
+ & 0.42850E-03_JPRB,0.46708E-03_JPRB,0.50578E-03_JPRB,0.54611E-03_JPRB,0.58790E-03_JPRB /)  
+KB(:,42,14) = (/ &
+ & 0.41832E-03_JPRB,0.45718E-03_JPRB,0.49552E-03_JPRB,0.53551E-03_JPRB,0.57688E-03_JPRB /)  
+KB(:,43,14) = (/ &
+ & 0.40611E-03_JPRB,0.44501E-03_JPRB,0.48328E-03_JPRB,0.52271E-03_JPRB,0.56375E-03_JPRB /)  
+KB(:,44,14) = (/ &
+ & 0.39281E-03_JPRB,0.43169E-03_JPRB,0.47025E-03_JPRB,0.50904E-03_JPRB,0.54960E-03_JPRB /)  
+KB(:,45,14) = (/ &
+ & 0.37939E-03_JPRB,0.41841E-03_JPRB,0.45722E-03_JPRB,0.49565E-03_JPRB,0.53564E-03_JPRB /)  
+KB(:,46,14) = (/ &
+ & 0.36481E-03_JPRB,0.40443E-03_JPRB,0.44334E-03_JPRB,0.48171E-03_JPRB,0.52104E-03_JPRB /)  
+KB(:,47,14) = (/ &
+ & 0.34813E-03_JPRB,0.38867E-03_JPRB,0.42754E-03_JPRB,0.46626E-03_JPRB,0.50489E-03_JPRB /)  
+KB(:,48,14) = (/ &
+ & 0.33101E-03_JPRB,0.37257E-03_JPRB,0.41188E-03_JPRB,0.45078E-03_JPRB,0.48906E-03_JPRB /)  
+KB(:,49,14) = (/ &
+ & 0.31369E-03_JPRB,0.35613E-03_JPRB,0.39621E-03_JPRB,0.43508E-03_JPRB,0.47354E-03_JPRB /)  
+KB(:,50,14) = (/ &
+ & 0.29739E-03_JPRB,0.34030E-03_JPRB,0.38132E-03_JPRB,0.42035E-03_JPRB,0.45918E-03_JPRB /)  
+KB(:,51,14) = (/ &
+ & 0.28140E-03_JPRB,0.32461E-03_JPRB,0.36662E-03_JPRB,0.40619E-03_JPRB,0.44511E-03_JPRB /)  
+KB(:,52,14) = (/ &
+ & 0.26563E-03_JPRB,0.30898E-03_JPRB,0.35161E-03_JPRB,0.39193E-03_JPRB,0.43080E-03_JPRB /)  
+KB(:,53,14) = (/ &
+ & 0.24997E-03_JPRB,0.29311E-03_JPRB,0.33618E-03_JPRB,0.37741E-03_JPRB,0.41655E-03_JPRB /)  
+KB(:,54,14) = (/ &
+ & 0.23534E-03_JPRB,0.27846E-03_JPRB,0.32175E-03_JPRB,0.36391E-03_JPRB,0.40359E-03_JPRB /)  
+KB(:,55,14) = (/ &
+ & 0.22140E-03_JPRB,0.26468E-03_JPRB,0.30799E-03_JPRB,0.35062E-03_JPRB,0.39107E-03_JPRB /)  
+KB(:,56,14) = (/ &
+ & 0.20748E-03_JPRB,0.25097E-03_JPRB,0.29409E-03_JPRB,0.33714E-03_JPRB,0.37835E-03_JPRB /)  
+KB(:,57,14) = (/ &
+ & 0.19363E-03_JPRB,0.23702E-03_JPRB,0.28013E-03_JPRB,0.32339E-03_JPRB,0.36545E-03_JPRB /)  
+KB(:,58,14) = (/ &
+ & 0.18066E-03_JPRB,0.22379E-03_JPRB,0.26710E-03_JPRB,0.31040E-03_JPRB,0.35295E-03_JPRB /)  
+KB(:,59,14) = (/ &
+ & 0.17550E-03_JPRB,0.21855E-03_JPRB,0.26188E-03_JPRB,0.30515E-03_JPRB,0.34793E-03_JPRB /)  
+KB(:,13,15) = (/ &
+ & 0.67077E-02_JPRB,0.67643E-02_JPRB,0.68102E-02_JPRB,0.68432E-02_JPRB,0.68617E-02_JPRB /)  
+KB(:,14,15) = (/ &
+ & 0.68112E-02_JPRB,0.68842E-02_JPRB,0.69413E-02_JPRB,0.69806E-02_JPRB,0.70063E-02_JPRB /)  
+KB(:,15,15) = (/ &
+ & 0.68961E-02_JPRB,0.69833E-02_JPRB,0.70488E-02_JPRB,0.70965E-02_JPRB,0.71269E-02_JPRB /)  
+KB(:,16,15) = (/ &
+ & 0.69706E-02_JPRB,0.70648E-02_JPRB,0.71387E-02_JPRB,0.71925E-02_JPRB,0.72279E-02_JPRB /)  
+KB(:,17,15) = (/ &
+ & 0.70342E-02_JPRB,0.71339E-02_JPRB,0.72130E-02_JPRB,0.72737E-02_JPRB,0.73138E-02_JPRB /)  
+KB(:,18,15) = (/ &
+ & 0.70890E-02_JPRB,0.71933E-02_JPRB,0.72776E-02_JPRB,0.73426E-02_JPRB,0.73856E-02_JPRB /)  
+KB(:,19,15) = (/ &
+ & 0.71380E-02_JPRB,0.72441E-02_JPRB,0.73326E-02_JPRB,0.74006E-02_JPRB,0.74464E-02_JPRB /)  
+KB(:,20,15) = (/ &
+ & 0.71838E-02_JPRB,0.72907E-02_JPRB,0.73816E-02_JPRB,0.74514E-02_JPRB,0.74969E-02_JPRB /)  
+KB(:,21,15) = (/ &
+ & 0.72239E-02_JPRB,0.73326E-02_JPRB,0.74235E-02_JPRB,0.74941E-02_JPRB,0.75405E-02_JPRB /)  
+KB(:,22,15) = (/ &
+ & 0.72699E-02_JPRB,0.73767E-02_JPRB,0.74650E-02_JPRB,0.75340E-02_JPRB,0.75785E-02_JPRB /)  
+KB(:,23,15) = (/ &
+ & 0.73111E-02_JPRB,0.74172E-02_JPRB,0.75033E-02_JPRB,0.75687E-02_JPRB,0.76113E-02_JPRB /)  
+KB(:,24,15) = (/ &
+ & 0.73510E-02_JPRB,0.74537E-02_JPRB,0.75371E-02_JPRB,0.76008E-02_JPRB,0.76395E-02_JPRB /)  
+KB(:,25,15) = (/ &
+ & 0.73875E-02_JPRB,0.74885E-02_JPRB,0.75684E-02_JPRB,0.76282E-02_JPRB,0.76634E-02_JPRB /)  
+KB(:,26,15) = (/ &
+ & 0.74256E-02_JPRB,0.75226E-02_JPRB,0.75985E-02_JPRB,0.76530E-02_JPRB,0.76835E-02_JPRB /)  
+KB(:,27,15) = (/ &
+ & 0.74605E-02_JPRB,0.75517E-02_JPRB,0.76248E-02_JPRB,0.76742E-02_JPRB,0.77008E-02_JPRB /)  
+KB(:,28,15) = (/ &
+ & 0.74927E-02_JPRB,0.75800E-02_JPRB,0.76483E-02_JPRB,0.76927E-02_JPRB,0.77139E-02_JPRB /)  
+KB(:,29,15) = (/ &
+ & 0.75244E-02_JPRB,0.76057E-02_JPRB,0.76690E-02_JPRB,0.77086E-02_JPRB,0.77249E-02_JPRB /)  
+KB(:,30,15) = (/ &
+ & 0.75518E-02_JPRB,0.76303E-02_JPRB,0.76877E-02_JPRB,0.77209E-02_JPRB,0.77334E-02_JPRB /)  
+KB(:,31,15) = (/ &
+ & 0.75781E-02_JPRB,0.76519E-02_JPRB,0.77036E-02_JPRB,0.77320E-02_JPRB,0.77395E-02_JPRB /)  
+KB(:,32,15) = (/ &
+ & 0.76025E-02_JPRB,0.76727E-02_JPRB,0.77178E-02_JPRB,0.77409E-02_JPRB,0.77439E-02_JPRB /)  
+KB(:,33,15) = (/ &
+ & 0.76266E-02_JPRB,0.76908E-02_JPRB,0.77289E-02_JPRB,0.77461E-02_JPRB,0.77464E-02_JPRB /)  
+KB(:,34,15) = (/ &
+ & 0.76450E-02_JPRB,0.77038E-02_JPRB,0.77387E-02_JPRB,0.77507E-02_JPRB,0.77465E-02_JPRB /)  
+KB(:,35,15) = (/ &
+ & 0.76558E-02_JPRB,0.77117E-02_JPRB,0.77433E-02_JPRB,0.77536E-02_JPRB,0.77475E-02_JPRB /)  
+KB(:,36,15) = (/ &
+ & 0.76587E-02_JPRB,0.77150E-02_JPRB,0.77452E-02_JPRB,0.77564E-02_JPRB,0.77495E-02_JPRB /)  
+KB(:,37,15) = (/ &
+ & 0.76522E-02_JPRB,0.77109E-02_JPRB,0.77439E-02_JPRB,0.77579E-02_JPRB,0.77534E-02_JPRB /)  
+KB(:,38,15) = (/ &
+ & 0.76429E-02_JPRB,0.77056E-02_JPRB,0.77426E-02_JPRB,0.77582E-02_JPRB,0.77560E-02_JPRB /)  
+KB(:,39,15) = (/ &
+ & 0.76339E-02_JPRB,0.76993E-02_JPRB,0.77402E-02_JPRB,0.77587E-02_JPRB,0.77588E-02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART16',1,ZHOOK_HANDLE)
+END SUBROUTINE PART16
+
+
+SUBROUTINE PART17
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART17',0,ZHOOK_HANDLE)
+
+
+KB(:,40,15) = (/ &
+ & 0.76166E-02_JPRB,0.76865E-02_JPRB,0.77335E-02_JPRB,0.77564E-02_JPRB,0.77613E-02_JPRB /)  
+KB(:,41,15) = (/ &
+ & 0.75961E-02_JPRB,0.76706E-02_JPRB,0.77239E-02_JPRB,0.77534E-02_JPRB,0.77621E-02_JPRB /)  
+KB(:,42,15) = (/ &
+ & 0.75752E-02_JPRB,0.76537E-02_JPRB,0.77143E-02_JPRB,0.77487E-02_JPRB,0.77622E-02_JPRB /)  
+KB(:,43,15) = (/ &
+ & 0.75459E-02_JPRB,0.76317E-02_JPRB,0.76988E-02_JPRB,0.77406E-02_JPRB,0.77602E-02_JPRB /)  
+KB(:,44,15) = (/ &
+ & 0.75134E-02_JPRB,0.76061E-02_JPRB,0.76788E-02_JPRB,0.77299E-02_JPRB,0.77567E-02_JPRB /)  
+KB(:,45,15) = (/ &
+ & 0.74772E-02_JPRB,0.75773E-02_JPRB,0.76562E-02_JPRB,0.77161E-02_JPRB,0.77502E-02_JPRB /)  
+KB(:,46,15) = (/ &
+ & 0.74372E-02_JPRB,0.75438E-02_JPRB,0.76298E-02_JPRB,0.76975E-02_JPRB,0.77405E-02_JPRB /)  
+KB(:,47,15) = (/ &
+ & 0.73875E-02_JPRB,0.75032E-02_JPRB,0.75980E-02_JPRB,0.76724E-02_JPRB,0.77261E-02_JPRB /)  
+KB(:,48,15) = (/ &
+ & 0.73358E-02_JPRB,0.74597E-02_JPRB,0.75632E-02_JPRB,0.76453E-02_JPRB,0.77080E-02_JPRB /)  
+KB(:,49,15) = (/ &
+ & 0.72811E-02_JPRB,0.74117E-02_JPRB,0.75238E-02_JPRB,0.76147E-02_JPRB,0.76865E-02_JPRB /)  
+KB(:,50,15) = (/ &
+ & 0.72248E-02_JPRB,0.73656E-02_JPRB,0.74842E-02_JPRB,0.75831E-02_JPRB,0.76614E-02_JPRB /)  
+KB(:,51,15) = (/ &
+ & 0.71662E-02_JPRB,0.73174E-02_JPRB,0.74427E-02_JPRB,0.75493E-02_JPRB,0.76342E-02_JPRB /)  
+KB(:,52,15) = (/ &
+ & 0.71006E-02_JPRB,0.72655E-02_JPRB,0.73997E-02_JPRB,0.75133E-02_JPRB,0.76064E-02_JPRB /)  
+KB(:,53,15) = (/ &
+ & 0.70300E-02_JPRB,0.72101E-02_JPRB,0.73531E-02_JPRB,0.74734E-02_JPRB,0.75745E-02_JPRB /)  
+KB(:,54,15) = (/ &
+ & 0.69596E-02_JPRB,0.71548E-02_JPRB,0.73082E-02_JPRB,0.74357E-02_JPRB,0.75431E-02_JPRB /)  
+KB(:,55,15) = (/ &
+ & 0.68873E-02_JPRB,0.70968E-02_JPRB,0.72620E-02_JPRB,0.73967E-02_JPRB,0.75110E-02_JPRB /)  
+KB(:,56,15) = (/ &
+ & 0.68089E-02_JPRB,0.70345E-02_JPRB,0.72141E-02_JPRB,0.73575E-02_JPRB,0.74766E-02_JPRB /)  
+KB(:,57,15) = (/ &
+ & 0.67241E-02_JPRB,0.69678E-02_JPRB,0.71623E-02_JPRB,0.73141E-02_JPRB,0.74401E-02_JPRB /)  
+KB(:,58,15) = (/ &
+ & 0.66371E-02_JPRB,0.69009E-02_JPRB,0.71063E-02_JPRB,0.72699E-02_JPRB,0.74044E-02_JPRB /)  
+KB(:,59,15) = (/ &
+ & 0.66009E-02_JPRB,0.68723E-02_JPRB,0.70852E-02_JPRB,0.72532E-02_JPRB,0.73888E-02_JPRB /)  
+KB(:,13,16) = (/ &
+ & 0.20091E-01_JPRB,0.19310E-01_JPRB,0.18586E-01_JPRB,0.17917E-01_JPRB,0.17293E-01_JPRB /)  
+KB(:,14,16) = (/ &
+ & 0.21405E-01_JPRB,0.20507E-01_JPRB,0.19679E-01_JPRB,0.18912E-01_JPRB,0.18201E-01_JPRB /)  
+KB(:,15,16) = (/ &
+ & 0.22567E-01_JPRB,0.21555E-01_JPRB,0.20633E-01_JPRB,0.19775E-01_JPRB,0.18992E-01_JPRB /)  
+KB(:,16,16) = (/ &
+ & 0.23562E-01_JPRB,0.22456E-01_JPRB,0.21445E-01_JPRB,0.20508E-01_JPRB,0.19661E-01_JPRB /)  
+KB(:,17,16) = (/ &
+ & 0.24411E-01_JPRB,0.23217E-01_JPRB,0.22126E-01_JPRB,0.21126E-01_JPRB,0.20220E-01_JPRB /)  
+KB(:,18,16) = (/ &
+ & 0.25116E-01_JPRB,0.23847E-01_JPRB,0.22688E-01_JPRB,0.21635E-01_JPRB,0.20680E-01_JPRB /)  
+KB(:,19,16) = (/ &
+ & 0.25693E-01_JPRB,0.24361E-01_JPRB,0.23149E-01_JPRB,0.22047E-01_JPRB,0.21053E-01_JPRB /)  
+KB(:,20,16) = (/ &
+ & 0.26126E-01_JPRB,0.24747E-01_JPRB,0.23489E-01_JPRB,0.22355E-01_JPRB,0.21332E-01_JPRB /)  
+KB(:,21,16) = (/ &
+ & 0.26457E-01_JPRB,0.25034E-01_JPRB,0.23751E-01_JPRB,0.22588E-01_JPRB,0.21537E-01_JPRB /)  
+KB(:,22,16) = (/ &
+ & 0.26586E-01_JPRB,0.25153E-01_JPRB,0.23857E-01_JPRB,0.22677E-01_JPRB,0.21621E-01_JPRB /)  
+KB(:,23,16) = (/ &
+ & 0.26640E-01_JPRB,0.25191E-01_JPRB,0.23890E-01_JPRB,0.22706E-01_JPRB,0.21649E-01_JPRB /)  
+KB(:,24,16) = (/ &
+ & 0.26616E-01_JPRB,0.25160E-01_JPRB,0.23861E-01_JPRB,0.22680E-01_JPRB,0.21622E-01_JPRB /)  
+KB(:,25,16) = (/ &
+ & 0.26518E-01_JPRB,0.25075E-01_JPRB,0.23777E-01_JPRB,0.22603E-01_JPRB,0.21555E-01_JPRB /)  
+KB(:,26,16) = (/ &
+ & 0.26348E-01_JPRB,0.24922E-01_JPRB,0.23637E-01_JPRB,0.22478E-01_JPRB,0.21437E-01_JPRB /)  
+KB(:,27,16) = (/ &
+ & 0.26138E-01_JPRB,0.24737E-01_JPRB,0.23465E-01_JPRB,0.22328E-01_JPRB,0.21299E-01_JPRB /)  
+KB(:,28,16) = (/ &
+ & 0.25904E-01_JPRB,0.24526E-01_JPRB,0.23272E-01_JPRB,0.22156E-01_JPRB,0.21140E-01_JPRB /)  
+KB(:,29,16) = (/ &
+ & 0.25645E-01_JPRB,0.24289E-01_JPRB,0.23059E-01_JPRB,0.21960E-01_JPRB,0.20965E-01_JPRB /)  
+KB(:,30,16) = (/ &
+ & 0.25364E-01_JPRB,0.24034E-01_JPRB,0.22831E-01_JPRB,0.21758E-01_JPRB,0.20776E-01_JPRB /)  
+KB(:,31,16) = (/ &
+ & 0.25075E-01_JPRB,0.23766E-01_JPRB,0.22595E-01_JPRB,0.21541E-01_JPRB,0.20581E-01_JPRB /)  
+KB(:,32,16) = (/ &
+ & 0.24769E-01_JPRB,0.23490E-01_JPRB,0.22348E-01_JPRB,0.21316E-01_JPRB,0.20377E-01_JPRB /)  
+KB(:,33,16) = (/ &
+ & 0.24460E-01_JPRB,0.23211E-01_JPRB,0.22098E-01_JPRB,0.21090E-01_JPRB,0.20170E-01_JPRB /)  
+KB(:,34,16) = (/ &
+ & 0.24193E-01_JPRB,0.22975E-01_JPRB,0.21887E-01_JPRB,0.20894E-01_JPRB,0.19994E-01_JPRB /)  
+KB(:,35,16) = (/ &
+ & 0.24050E-01_JPRB,0.22849E-01_JPRB,0.21770E-01_JPRB,0.20789E-01_JPRB,0.19901E-01_JPRB /)  
+KB(:,36,16) = (/ &
+ & 0.24043E-01_JPRB,0.22842E-01_JPRB,0.21764E-01_JPRB,0.20784E-01_JPRB,0.19894E-01_JPRB /)  
+KB(:,37,16) = (/ &
+ & 0.24229E-01_JPRB,0.23006E-01_JPRB,0.21915E-01_JPRB,0.20918E-01_JPRB,0.20018E-01_JPRB /)  
+KB(:,38,16) = (/ &
+ & 0.24421E-01_JPRB,0.23180E-01_JPRB,0.22070E-01_JPRB,0.21062E-01_JPRB,0.20144E-01_JPRB /)  
+KB(:,39,16) = (/ &
+ & 0.24617E-01_JPRB,0.23352E-01_JPRB,0.22226E-01_JPRB,0.21205E-01_JPRB,0.20274E-01_JPRB /)  
+KB(:,40,16) = (/ &
+ & 0.24953E-01_JPRB,0.23654E-01_JPRB,0.22496E-01_JPRB,0.21449E-01_JPRB,0.20495E-01_JPRB /)  
+KB(:,41,16) = (/ &
+ & 0.25312E-01_JPRB,0.23980E-01_JPRB,0.22786E-01_JPRB,0.21712E-01_JPRB,0.20738E-01_JPRB /)  
+KB(:,42,16) = (/ &
+ & 0.25679E-01_JPRB,0.24315E-01_JPRB,0.23082E-01_JPRB,0.21982E-01_JPRB,0.20981E-01_JPRB /)  
+KB(:,43,16) = (/ &
+ & 0.26140E-01_JPRB,0.24730E-01_JPRB,0.23454E-01_JPRB,0.22317E-01_JPRB,0.21287E-01_JPRB /)  
+KB(:,44,16) = (/ &
+ & 0.26653E-01_JPRB,0.25200E-01_JPRB,0.23871E-01_JPRB,0.22691E-01_JPRB,0.21628E-01_JPRB /)  
+KB(:,45,16) = (/ &
+ & 0.27190E-01_JPRB,0.25674E-01_JPRB,0.24311E-01_JPRB,0.23078E-01_JPRB,0.21977E-01_JPRB /)  
+KB(:,46,16) = (/ &
+ & 0.27783E-01_JPRB,0.26205E-01_JPRB,0.24787E-01_JPRB,0.23504E-01_JPRB,0.22362E-01_JPRB /)  
+KB(:,47,16) = (/ &
+ & 0.28471E-01_JPRB,0.26819E-01_JPRB,0.25343E-01_JPRB,0.24006E-01_JPRB,0.22809E-01_JPRB /)  
+KB(:,48,16) = (/ &
+ & 0.29185E-01_JPRB,0.27464E-01_JPRB,0.25918E-01_JPRB,0.24532E-01_JPRB,0.23275E-01_JPRB /)  
+KB(:,49,16) = (/ &
+ & 0.29935E-01_JPRB,0.28138E-01_JPRB,0.26520E-01_JPRB,0.25074E-01_JPRB,0.23762E-01_JPRB /)  
+KB(:,50,16) = (/ &
+ & 0.30661E-01_JPRB,0.28793E-01_JPRB,0.27111E-01_JPRB,0.25603E-01_JPRB,0.24243E-01_JPRB /)  
+KB(:,51,16) = (/ &
+ & 0.31401E-01_JPRB,0.29455E-01_JPRB,0.27706E-01_JPRB,0.26135E-01_JPRB,0.24726E-01_JPRB /)  
+KB(:,52,16) = (/ &
+ & 0.32182E-01_JPRB,0.30140E-01_JPRB,0.28322E-01_JPRB,0.26686E-01_JPRB,0.25224E-01_JPRB /)  
+KB(:,53,16) = (/ &
+ & 0.33002E-01_JPRB,0.30856E-01_JPRB,0.28966E-01_JPRB,0.27268E-01_JPRB,0.25738E-01_JPRB /)  
+KB(:,54,16) = (/ &
+ & 0.33792E-01_JPRB,0.31541E-01_JPRB,0.29577E-01_JPRB,0.27816E-01_JPRB,0.26234E-01_JPRB /)  
+KB(:,55,16) = (/ &
+ & 0.34581E-01_JPRB,0.32233E-01_JPRB,0.30182E-01_JPRB,0.28363E-01_JPRB,0.26721E-01_JPRB /)  
+KB(:,56,16) = (/ &
+ & 0.35416E-01_JPRB,0.32947E-01_JPRB,0.30807E-01_JPRB,0.28926E-01_JPRB,0.27227E-01_JPRB /)  
+KB(:,57,16) = (/ &
+ & 0.36291E-01_JPRB,0.33701E-01_JPRB,0.31460E-01_JPRB,0.29510E-01_JPRB,0.27750E-01_JPRB /)  
+KB(:,58,16) = (/ &
+ & 0.37161E-01_JPRB,0.34436E-01_JPRB,0.32106E-01_JPRB,0.30077E-01_JPRB,0.28264E-01_JPRB /)  
+KB(:,59,16) = (/ &
+ & 0.37521E-01_JPRB,0.34750E-01_JPRB,0.32373E-01_JPRB,0.30309E-01_JPRB,0.28477E-01_JPRB /)  
+
+!     -----------------------------------------------------------------
+
+FORREF(:, 1) = (/ 0.515619E-08_JPRB, 0.131078E-06_JPRB, 0.349038E-06_JPRB /)
+FORREF(:, 2) = (/ 0.329605E-07_JPRB, 0.430497E-06_JPRB, 0.458569E-05_JPRB /)
+FORREF(:, 3) = (/ 0.188244E-06_JPRB, 0.792931E-06_JPRB, 0.267176E-05_JPRB /)
+FORREF(:, 4) = (/ 0.611237E-06_JPRB, 0.798868E-06_JPRB, 0.411583E-06_JPRB /)
+FORREF(:, 5) = (/ 0.111903E-05_JPRB, 0.914895E-06_JPRB, 0.444828E-06_JPRB /)
+FORREF(:, 6) = (/ 0.235399E-05_JPRB, 0.269099E-05_JPRB, 0.739855E-06_JPRB /)
+FORREF(:, 7) = (/ 0.400131E-05_JPRB, 0.378135E-05_JPRB, 0.231265E-06_JPRB /)
+FORREF(:, 8) = (/ 0.464257E-05_JPRB, 0.371927E-05_JPRB, 0.460611E-06_JPRB /)
+FORREF(:, 9) = (/ 0.476792E-05_JPRB, 0.311841E-05_JPRB, 0.934811E-06_JPRB /)
+FORREF(:,10) = (/ 0.555683E-05_JPRB, 0.238129E-05_JPRB, 0.400334E-07_JPRB /)
+FORREF(:,11) = (/ 0.569068E-05_JPRB, 0.196039E-05_JPRB, 0.374476E-07_JPRB /)
+FORREF(:,12) = (/ 0.554154E-05_JPRB, 0.131724E-05_JPRB, 0.399720E-07_JPRB /)
+FORREF(:,13) = (/ 0.462684E-05_JPRB, 0.238826E-07_JPRB, 0.325793E-07_JPRB /)
+FORREF(:,14) = (/ 0.808644E-06_JPRB, 0.105126E-11_JPRB, 0.148691E-07_JPRB /)
+FORREF(:,15) = (/ 0.865024E-12_JPRB, 0.822434E-12_JPRB, 0.825756E-12_JPRB /)
+FORREF(:,16) = (/ 0.945747E-12_JPRB, 0.802065E-12_JPRB, 0.724732E-12_JPRB /)
+
+!     -----------------------------------------------------------------
+!     The array SELFREF contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+SELFREF(:, 1) = (/ &
+ & 0.637755E-05_JPRB, 0.403921E-05_JPRB, 0.255823E-05_JPRB, 0.162025E-05_JPRB, 0.102618E-05_JPRB, &
+ & 0.649930E-06_JPRB, 0.411632E-06_JPRB, 0.260707E-06_JPRB, 0.165118E-06_JPRB, 0.104577E-06_JPRB /)  
+SELFREF(:, 2) = (/ &
+ & 0.180887E-04_JPRB, 0.108890E-04_JPRB, 0.655493E-05_JPRB, 0.394592E-05_JPRB, 0.237536E-05_JPRB, &
+ & 0.142991E-05_JPRB, 0.860774E-06_JPRB, 0.518167E-06_JPRB, 0.311925E-06_JPRB, 0.187772E-06_JPRB /)  
+SELFREF(:, 3) = (/ &
+ & 0.212261E-04_JPRB, 0.150697E-04_JPRB, 0.106989E-04_JPRB, 0.759581E-05_JPRB, 0.539274E-05_JPRB, &
+ & 0.382864E-05_JPRB, 0.271819E-05_JPRB, 0.192981E-05_JPRB, 0.137009E-05_JPRB, 0.972711E-06_JPRB /)  
+SELFREF(:, 4) = (/ &
+ & 0.132497E-04_JPRB, 0.118071E-04_JPRB, 0.105216E-04_JPRB, 0.937599E-05_JPRB, 0.835516E-05_JPRB, &
+ & 0.744547E-05_JPRB, 0.663482E-05_JPRB, 0.591243E-05_JPRB, 0.526870E-05_JPRB, 0.469506E-05_JPRB /)  
+SELFREF(:, 5) = (/ &
+ & 0.124069E-04_JPRB, 0.120785E-04_JPRB, 0.117589E-04_JPRB, 0.114477E-04_JPRB, 0.111447E-04_JPRB, &
+ & 0.108498E-04_JPRB, 0.105626E-04_JPRB, 0.102831E-04_JPRB, 0.100109E-04_JPRB, 0.974601E-05_JPRB /)  
+SELFREF(:, 6) = (/ &
+ & 0.411994E-04_JPRB, 0.372560E-04_JPRB, 0.336901E-04_JPRB, 0.304654E-04_JPRB, 0.275494E-04_JPRB, &
+ & 0.249126E-04_JPRB, 0.225281E-04_JPRB, 0.203718E-04_JPRB, 0.184219E-04_JPRB, 0.166587E-04_JPRB /)  
+SELFREF(:, 7) = (/ &
+ & 0.537376E-04_JPRB, 0.501002E-04_JPRB, 0.467090E-04_JPRB, 0.435473E-04_JPRB, 0.405996E-04_JPRB, &
+ & 0.378515E-04_JPRB, 0.352893E-04_JPRB, 0.329006E-04_JPRB, 0.306736E-04_JPRB, 0.285974E-04_JPRB /)  
+SELFREF(:, 8) = (/ &
+ & 0.494279E-04_JPRB, 0.475365E-04_JPRB, 0.457175E-04_JPRB, 0.439681E-04_JPRB, 0.422857E-04_JPRB, &
+ & 0.406676E-04_JPRB, 0.391114E-04_JPRB, 0.376148E-04_JPRB, 0.361755E-04_JPRB, 0.347912E-04_JPRB /)  
+SELFREF(:, 9) = (/ &
+ & 0.377444E-04_JPRB, 0.378199E-04_JPRB, 0.378956E-04_JPRB, 0.379715E-04_JPRB, 0.380475E-04_JPRB, &
+ & 0.381236E-04_JPRB, 0.381999E-04_JPRB, 0.382763E-04_JPRB, 0.383529E-04_JPRB, 0.384297E-04_JPRB /)  
+SELFREF(:,10) = (/ &
+ & 0.245916E-04_JPRB, 0.267183E-04_JPRB, 0.290289E-04_JPRB, 0.315394E-04_JPRB, 0.342669E-04_JPRB, &
+ & 0.372304E-04_JPRB, 0.404501E-04_JPRB, 0.439483E-04_JPRB, 0.477490E-04_JPRB, 0.518784E-04_JPRB /)  
+SELFREF(:,11) = (/ &
+ & 0.186528E-04_JPRB, 0.211417E-04_JPRB, 0.239628E-04_JPRB, 0.271603E-04_JPRB, 0.307845E-04_JPRB, &
+ & 0.348923E-04_JPRB, 0.395482E-04_JPRB, 0.448254E-04_JPRB, 0.508068E-04_JPRB, 0.575863E-04_JPRB /)  
+SELFREF(:,12) = (/ &
+ & 0.109896E-04_JPRB, 0.133794E-04_JPRB, 0.162890E-04_JPRB, 0.198312E-04_JPRB, 0.241438E-04_JPRB, &
+ & 0.293942E-04_JPRB, 0.357864E-04_JPRB, 0.435686E-04_JPRB, 0.530432E-04_JPRB, 0.645781E-04_JPRB /)  
+SELFREF(:,13) = (/ &
+ & 0.183885E-06_JPRB, 0.391019E-06_JPRB, 0.831472E-06_JPRB, 0.176806E-05_JPRB, 0.375966E-05_JPRB, &
+ & 0.799463E-05_JPRB, 0.170000E-04_JPRB, 0.361492E-04_JPRB, 0.768686E-04_JPRB, 0.163455E-03_JPRB /)  
+SELFREF(:,14) = (/ &
+ & 0.466057E-07_JPRB, 0.937419E-07_JPRB, 0.188551E-06_JPRB, 0.379248E-06_JPRB, 0.762813E-06_JPRB, &
+ & 0.153431E-05_JPRB, 0.308608E-05_JPRB, 0.620729E-05_JPRB, 0.124852E-04_JPRB, 0.251126E-04_JPRB /)  
+SELFREF(:,15) = (/ &
+ & 0.248961E-06_JPRB, 0.216780E-06_JPRB, 0.188758E-06_JPRB, 0.164358E-06_JPRB, 0.143113E-06_JPRB, &
+ & 0.124613E-06_JPRB, 0.108505E-06_JPRB, 0.944795E-07_JPRB, 0.822667E-07_JPRB, 0.716326E-07_JPRB /)  
+SELFREF(:,16) = (/ &
+ & 0.252246E-06_JPRB, 0.220335E-06_JPRB, 0.192462E-06_JPRB, 0.168114E-06_JPRB, 0.146847E-06_JPRB, &
+ & 0.128270E-06_JPRB, 0.112043E-06_JPRB, 0.978688E-07_JPRB, 0.854878E-07_JPRB, 0.746731E-07_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB24:PART17',1,ZHOOK_HANDLE)
+END SUBROUTINE PART17
+
+
+END SUBROUTINE SRTM_KGB24
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb24.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb24.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb24.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_KGB24
+END SUBROUTINE SRTM_KGB24
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb25.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb25.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb25.F90	(revision 1989)
@@ -0,0 +1,493 @@
+!OCL SCALAR
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif 
+SUBROUTINE SRTM_KGB25
+
+!     Originally by J.Delamere, Atmospheric & Environmental Research.
+!     Revision: 2.4
+!     BAND 25: 16000-22650 cm-1 (low - H2O; high - nothing)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOESRTA25, ONLY : KA, SFLUXREF, RAYL, ABSO3A, ABSO3B &
+ & , LAYREFFR  
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+
+! KURUCZ
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB25',0,ZHOOK_HANDLE)
+SFLUXREF = (/ &
+ & 42.6858_JPRB , 45.7720_JPRB, 44.9872_JPRB, 45.9662_JPRB    , &
+ & 46.5458_JPRB , 41.6926_JPRB, 32.2893_JPRB, 24.0928_JPRB    , &
+ & 16.7686_JPRB , 1.86048_JPRB, 1.54057_JPRB, 1.23503_JPRB    , &
+ & 0.915085_JPRB,0.590099_JPRB,0.218622_JPRB, 3.21287E-02_JPRB /)  
+
+!     Rayleigh extinction coefficient at v = 2925 cm-1.
+RAYL = (/ &
+ & 9.81132E-07_JPRB,8.25605E-07_JPRB,6.71302E-07_JPRB,5.53556E-07_JPRB,  &
+ & 3.97383E-07_JPRB,3.68206E-07_JPRB,4.42379E-07_JPRB,4.57799E-07_JPRB, &
+ & 4.22683E-07_JPRB,3.87113E-07_JPRB,3.79810E-07_JPRB,3.63192E-07_JPRB, &
+ & 3.51921E-07_JPRB,3.34231E-07_JPRB,3.34294E-07_JPRB,3.32673E-07_JPRB /)  
+     
+ABSO3A = (/ &
+ & 2.32664E-02_JPRB,5.76154E-02_JPRB,0.125389_JPRB,0.250158_JPRB, &
+ & 0.378756_JPRB   ,0.402196_JPRB   ,0.352026_JPRB,0.352036_JPRB, &
+ & 0.386253_JPRB   ,0.414598_JPRB   ,0.420079_JPRB,0.435471_JPRB, &
+ & 0.445487_JPRB   ,0.459549_JPRB   ,0.452920_JPRB,0.456838_JPRB /)  
+
+ABSO3B = (/      &
+ & 1.76917E-02_JPRB,4.64185E-02_JPRB,1.03640E-01_JPRB,0.189469_JPRB, &
+ & 0.303858_JPRB   ,0.400248_JPRB   ,0.447357_JPRB   ,0.470009_JPRB, &
+ & 0.498673_JPRB   ,0.515696_JPRB   ,0.517053_JPRB   ,0.517930_JPRB, &
+ & 0.518345_JPRB   ,0.524952_JPRB   ,0.508244_JPRB   ,0.468981_JPRB /)  
+
+LAYREFFR = 2
+
+!     ------------------------------------------------------------------
+
+!     The array KA contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels> ~100mb, temperatures, and binary
+!     species parameters (see taumol.f for definition).  The first 
+!     index in the array, JS, runs from 1 to 9, and corresponds to 
+!     different values of the binary species parameter.  For instance, 
+!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, 
+!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index
+!     in the array, JT, which runs from 1 to 5, corresponds to different
+!     temperatures.  More specifically, JT = 3 means that the data are for
+!     the reference temperature TREF for this  pressure level, JT = 2 refers
+!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the JPth reference pressure level (see taumol.f for these levels
+!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates
+!     which g-interval the absorption coefficients are for.
+!     -----------------------------------------------------------------
+
+KA(:, 1, 1) = (/ &
+ & 0.16461E-08_JPRB,0.16782E-08_JPRB,0.19339E-08_JPRB,0.17100E-08_JPRB,0.17045E-08_JPRB /)  
+KA(:, 2, 1) = (/ &
+ & 0.28759E-08_JPRB,0.29469E-08_JPRB,0.33789E-08_JPRB,0.34357E-08_JPRB,0.28833E-08_JPRB /)  
+KA(:, 3, 1) = (/ &
+ & 0.55148E-08_JPRB,0.54808E-08_JPRB,0.54190E-08_JPRB,0.68260E-08_JPRB,0.51972E-08_JPRB /)  
+KA(:, 4, 1) = (/ &
+ & 0.95336E-08_JPRB,0.94552E-08_JPRB,0.93001E-08_JPRB,0.90961E-08_JPRB,0.14451E-07_JPRB /)  
+KA(:, 5, 1) = (/ &
+ & 0.14930E-07_JPRB,0.14736E-07_JPRB,0.14432E-07_JPRB,0.14074E-07_JPRB,0.24102E-07_JPRB /)  
+KA(:, 6, 1) = (/ &
+ & 0.22770E-07_JPRB,0.22301E-07_JPRB,0.21778E-07_JPRB,0.21194E-07_JPRB,0.20569E-07_JPRB /)  
+KA(:, 7, 1) = (/ &
+ & 0.34699E-07_JPRB,0.33951E-07_JPRB,0.33124E-07_JPRB,0.32144E-07_JPRB,0.31220E-07_JPRB /)  
+KA(:, 8, 1) = (/ &
+ & 0.62339E-07_JPRB,0.60405E-07_JPRB,0.59548E-07_JPRB,0.58214E-07_JPRB,0.56977E-07_JPRB /)  
+KA(:, 9, 1) = (/ &
+ & 0.17411E-06_JPRB,0.17654E-06_JPRB,0.18315E-06_JPRB,0.18100E-06_JPRB,0.17839E-06_JPRB /)  
+KA(:,10, 1) = (/ &
+ & 0.23526E-06_JPRB,0.22729E-06_JPRB,0.21947E-06_JPRB,0.21188E-06_JPRB,0.20454E-06_JPRB /)  
+KA(:,11, 1) = (/ &
+ & 0.23535E-06_JPRB,0.22737E-06_JPRB,0.21956E-06_JPRB,0.21196E-06_JPRB,0.20461E-06_JPRB /)  
+KA(:,12, 1) = (/ &
+ & 0.23539E-06_JPRB,0.22740E-06_JPRB,0.21959E-06_JPRB,0.21199E-06_JPRB,0.20465E-06_JPRB /)  
+KA(:,13, 1) = (/ &
+ & 0.23543E-06_JPRB,0.22744E-06_JPRB,0.21962E-06_JPRB,0.21202E-06_JPRB,0.20467E-06_JPRB /)  
+KA(:, 1, 2) = (/ &
+ & 0.62912E-08_JPRB,0.61559E-08_JPRB,0.84640E-08_JPRB,0.59240E-08_JPRB,0.58217E-08_JPRB /)  
+KA(:, 2, 2) = (/ &
+ & 0.83749E-08_JPRB,0.80756E-08_JPRB,0.11623E-07_JPRB,0.11272E-07_JPRB,0.73636E-08_JPRB /)  
+KA(:, 3, 2) = (/ &
+ & 0.13304E-07_JPRB,0.12795E-07_JPRB,0.12343E-07_JPRB,0.21235E-07_JPRB,0.11577E-07_JPRB /)  
+KA(:, 4, 2) = (/ &
+ & 0.20704E-07_JPRB,0.19736E-07_JPRB,0.18900E-07_JPRB,0.18228E-07_JPRB,0.31601E-07_JPRB /)  
+KA(:, 5, 2) = (/ &
+ & 0.31149E-07_JPRB,0.29669E-07_JPRB,0.28318E-07_JPRB,0.27101E-07_JPRB,0.49649E-07_JPRB /)  
+KA(:, 6, 2) = (/ &
+ & 0.45713E-07_JPRB,0.43519E-07_JPRB,0.41488E-07_JPRB,0.39918E-07_JPRB,0.38291E-07_JPRB /)  
+KA(:, 7, 2) = (/ &
+ & 0.77265E-07_JPRB,0.73848E-07_JPRB,0.70437E-07_JPRB,0.67945E-07_JPRB,0.66127E-07_JPRB /)  
+KA(:, 8, 2) = (/ &
+ & 0.15754E-06_JPRB,0.15664E-06_JPRB,0.15378E-06_JPRB,0.15027E-06_JPRB,0.14633E-06_JPRB /)  
+KA(:, 9, 2) = (/ &
+ & 0.16439E-06_JPRB,0.14678E-06_JPRB,0.12610E-06_JPRB,0.11532E-06_JPRB,0.10591E-06_JPRB /)  
+KA(:,10, 2) = (/ &
+ & 0.14366E-06_JPRB,0.13506E-06_JPRB,0.12583E-06_JPRB,0.11774E-06_JPRB,0.11011E-06_JPRB /)  
+KA(:,11, 2) = (/ &
+ & 0.14521E-06_JPRB,0.13766E-06_JPRB,0.13072E-06_JPRB,0.12218E-06_JPRB,0.11400E-06_JPRB /)  
+KA(:,12, 2) = (/ &
+ & 0.14524E-06_JPRB,0.13769E-06_JPRB,0.13074E-06_JPRB,0.12241E-06_JPRB,0.11552E-06_JPRB /)  
+KA(:,13, 2) = (/ &
+ & 0.14525E-06_JPRB,0.13770E-06_JPRB,0.13075E-06_JPRB,0.12252E-06_JPRB,0.11553E-06_JPRB /)  
+KA(:, 1, 3) = (/ &
+ & 0.14060E-07_JPRB,0.13587E-07_JPRB,0.24644E-07_JPRB,0.12716E-07_JPRB,0.12367E-07_JPRB /)  
+KA(:, 2, 3) = (/ &
+ & 0.17055E-07_JPRB,0.16577E-07_JPRB,0.32443E-07_JPRB,0.31273E-07_JPRB,0.15381E-07_JPRB /)  
+KA(:, 3, 3) = (/ &
+ & 0.25414E-07_JPRB,0.24672E-07_JPRB,0.23874E-07_JPRB,0.47281E-07_JPRB,0.22346E-07_JPRB /)  
+KA(:, 4, 3) = (/ &
+ & 0.39536E-07_JPRB,0.38124E-07_JPRB,0.36836E-07_JPRB,0.35587E-07_JPRB,0.72260E-07_JPRB /)  
+KA(:, 5, 3) = (/ &
+ & 0.59488E-07_JPRB,0.57630E-07_JPRB,0.55623E-07_JPRB,0.53878E-07_JPRB,0.11230E-06_JPRB /)  
+KA(:, 6, 3) = (/ &
+ & 0.99996E-07_JPRB,0.96206E-07_JPRB,0.93184E-07_JPRB,0.90812E-07_JPRB,0.89206E-07_JPRB /)  
+KA(:, 7, 3) = (/ &
+ & 0.17678E-06_JPRB,0.17554E-06_JPRB,0.17358E-06_JPRB,0.17091E-06_JPRB,0.16830E-06_JPRB /)  
+KA(:, 8, 3) = (/ &
+ & 0.18672E-06_JPRB,0.17850E-06_JPRB,0.16967E-06_JPRB,0.16275E-06_JPRB,0.15875E-06_JPRB /)  
+KA(:, 9, 3) = (/ &
+ & 0.13558E-06_JPRB,0.13493E-06_JPRB,0.13633E-06_JPRB,0.13799E-06_JPRB,0.13932E-06_JPRB /)  
+KA(:,10, 3) = (/ &
+ & 0.18883E-06_JPRB,0.20452E-06_JPRB,0.22206E-06_JPRB,0.24347E-06_JPRB,0.26091E-06_JPRB /)  
+KA(:,11, 3) = (/ &
+ & 0.21296E-06_JPRB,0.23580E-06_JPRB,0.26439E-06_JPRB,0.30148E-06_JPRB,0.34942E-06_JPRB /)  
+KA(:,12, 3) = (/ &
+ & 0.22072E-06_JPRB,0.25535E-06_JPRB,0.28661E-06_JPRB,0.34814E-06_JPRB,0.39337E-06_JPRB /)  
+KA(:,13, 3) = (/ &
+ & 0.22515E-06_JPRB,0.26161E-06_JPRB,0.30833E-06_JPRB,0.36527E-06_JPRB,0.40123E-06_JPRB /)  
+KA(:, 1, 4) = (/ &
+ & 0.32735E-07_JPRB,0.31345E-07_JPRB,0.58846E-07_JPRB,0.28258E-07_JPRB,0.27022E-07_JPRB /)  
+KA(:, 2, 4) = (/ &
+ & 0.37754E-07_JPRB,0.36873E-07_JPRB,0.82776E-07_JPRB,0.80947E-07_JPRB,0.35190E-07_JPRB /)  
+KA(:, 3, 4) = (/ &
+ & 0.76368E-07_JPRB,0.75292E-07_JPRB,0.74075E-07_JPRB,0.10820E-06_JPRB,0.73183E-07_JPRB /)  
+KA(:, 4, 4) = (/ &
+ & 0.16392E-06_JPRB,0.16130E-06_JPRB,0.15926E-06_JPRB,0.15700E-06_JPRB,0.22041E-06_JPRB /)  
+KA(:, 5, 4) = (/ &
+ & 0.29704E-06_JPRB,0.28924E-06_JPRB,0.28301E-06_JPRB,0.27633E-06_JPRB,0.42284E-06_JPRB /)  
+KA(:, 6, 4) = (/ &
+ & 0.48466E-06_JPRB,0.47240E-06_JPRB,0.46143E-06_JPRB,0.45012E-06_JPRB,0.43867E-06_JPRB /)  
+KA(:, 7, 4) = (/ &
+ & 0.71637E-06_JPRB,0.69847E-06_JPRB,0.67384E-06_JPRB,0.65368E-06_JPRB,0.63375E-06_JPRB /)  
+KA(:, 8, 4) = (/ &
+ & 0.11904E-05_JPRB,0.11714E-05_JPRB,0.11524E-05_JPRB,0.11354E-05_JPRB,0.11172E-05_JPRB /)  
+KA(:, 9, 4) = (/ &
+ & 0.21976E-05_JPRB,0.21606E-05_JPRB,0.21332E-05_JPRB,0.20944E-05_JPRB,0.20536E-05_JPRB /)  
+KA(:,10, 4) = (/ &
+ & 0.21713E-05_JPRB,0.21144E-05_JPRB,0.20553E-05_JPRB,0.19901E-05_JPRB,0.19286E-05_JPRB /)  
+KA(:,11, 4) = (/ &
+ & 0.21443E-05_JPRB,0.20785E-05_JPRB,0.20048E-05_JPRB,0.19232E-05_JPRB,0.18295E-05_JPRB /)  
+KA(:,12, 4) = (/ &
+ & 0.21363E-05_JPRB,0.20578E-05_JPRB,0.19811E-05_JPRB,0.18729E-05_JPRB,0.17807E-05_JPRB /)  
+KA(:,13, 4) = (/ &
+ & 0.21319E-05_JPRB,0.20513E-05_JPRB,0.19580E-05_JPRB,0.18546E-05_JPRB,0.17725E-05_JPRB /)  
+KA(:, 1, 5) = (/ &
+ & 0.36050E-07_JPRB,0.36125E-07_JPRB,0.46253E-07_JPRB,0.37280E-07_JPRB,0.37359E-07_JPRB /)  
+KA(:, 2, 5) = (/ &
+ & 0.65102E-07_JPRB,0.64266E-07_JPRB,0.68896E-07_JPRB,0.65925E-07_JPRB,0.61190E-07_JPRB /)  
+KA(:, 3, 5) = (/ &
+ & 0.12173E-06_JPRB,0.11889E-06_JPRB,0.11625E-06_JPRB,0.17574E-06_JPRB,0.10921E-06_JPRB /)  
+KA(:, 4, 5) = (/ &
+ & 0.20555E-06_JPRB,0.19853E-06_JPRB,0.19068E-06_JPRB,0.18313E-06_JPRB,0.30241E-06_JPRB /)  
+KA(:, 5, 5) = (/ &
+ & 0.30900E-06_JPRB,0.29996E-06_JPRB,0.28857E-06_JPRB,0.27772E-06_JPRB,0.51631E-06_JPRB /)  
+KA(:, 6, 5) = (/ &
+ & 0.43774E-06_JPRB,0.42465E-06_JPRB,0.40920E-06_JPRB,0.39315E-06_JPRB,0.37901E-06_JPRB /)  
+KA(:, 7, 5) = (/ &
+ & 0.63869E-06_JPRB,0.61654E-06_JPRB,0.60324E-06_JPRB,0.58966E-06_JPRB,0.57948E-06_JPRB /)  
+KA(:, 8, 5) = (/ &
+ & 0.98362E-06_JPRB,0.96271E-06_JPRB,0.94180E-06_JPRB,0.92206E-06_JPRB,0.91105E-06_JPRB /)  
+KA(:, 9, 5) = (/ &
+ & 0.12061E-05_JPRB,0.11895E-05_JPRB,0.11564E-05_JPRB,0.11296E-05_JPRB,0.11110E-05_JPRB /)  
+KA(:,10, 5) = (/ &
+ & 0.12958E-05_JPRB,0.12694E-05_JPRB,0.12425E-05_JPRB,0.12153E-05_JPRB,0.11880E-05_JPRB /)  
+KA(:,11, 5) = (/ &
+ & 0.12962E-05_JPRB,0.12698E-05_JPRB,0.12429E-05_JPRB,0.12156E-05_JPRB,0.11883E-05_JPRB /)  
+KA(:,12, 5) = (/ &
+ & 0.12964E-05_JPRB,0.12701E-05_JPRB,0.12431E-05_JPRB,0.12158E-05_JPRB,0.11885E-05_JPRB /)  
+KA(:,13, 5) = (/ &
+ & 0.12966E-05_JPRB,0.12702E-05_JPRB,0.12433E-05_JPRB,0.12160E-05_JPRB,0.11886E-05_JPRB /)  
+KA(:, 1, 6) = (/ &
+ & 0.73925E-07_JPRB,0.70231E-07_JPRB,0.21454E-06_JPRB,0.63477E-07_JPRB,0.60912E-07_JPRB /)  
+KA(:, 2, 6) = (/ &
+ & 0.67794E-07_JPRB,0.65807E-07_JPRB,0.13854E-06_JPRB,0.13061E-06_JPRB,0.59361E-07_JPRB /)  
+KA(:, 3, 6) = (/ &
+ & 0.98353E-07_JPRB,0.95275E-07_JPRB,0.92426E-07_JPRB,0.15768E-06_JPRB,0.87986E-07_JPRB /)  
+KA(:, 4, 6) = (/ &
+ & 0.15855E-06_JPRB,0.15394E-06_JPRB,0.14948E-06_JPRB,0.14655E-06_JPRB,0.23172E-06_JPRB /)  
+KA(:, 5, 6) = (/ &
+ & 0.27764E-06_JPRB,0.26941E-06_JPRB,0.26299E-06_JPRB,0.25975E-06_JPRB,0.40526E-06_JPRB /)  
+KA(:, 6, 6) = (/ &
+ & 0.45469E-06_JPRB,0.44417E-06_JPRB,0.43276E-06_JPRB,0.42440E-06_JPRB,0.41489E-06_JPRB /)  
+KA(:, 7, 6) = (/ &
+ & 0.71540E-06_JPRB,0.71291E-06_JPRB,0.70656E-06_JPRB,0.69823E-06_JPRB,0.68342E-06_JPRB /)  
+KA(:, 8, 6) = (/ &
+ & 0.79651E-06_JPRB,0.79807E-06_JPRB,0.80621E-06_JPRB,0.80941E-06_JPRB,0.79835E-06_JPRB /)  
+KA(:, 9, 6) = (/ &
+ & 0.18716E-06_JPRB,0.16713E-06_JPRB,0.14725E-06_JPRB,0.13728E-06_JPRB,0.11763E-06_JPRB /)  
+KA(:,10, 6) = (/ &
+ & 0.92638E-07_JPRB,0.86207E-07_JPRB,0.80877E-07_JPRB,0.70432E-07_JPRB,0.64517E-07_JPRB /)  
+KA(:,11, 6) = (/ &
+ & 0.13396E-06_JPRB,0.12820E-06_JPRB,0.12387E-06_JPRB,0.10427E-06_JPRB,0.94091E-07_JPRB /)  
+KA(:,12, 6) = (/ &
+ & 0.14877E-06_JPRB,0.14827E-06_JPRB,0.14350E-06_JPRB,0.12154E-06_JPRB,0.10552E-06_JPRB /)  
+KA(:,13, 6) = (/ &
+ & 0.15437E-06_JPRB,0.15323E-06_JPRB,0.14992E-06_JPRB,0.12715E-06_JPRB,0.10933E-06_JPRB /)  
+KA(:, 1, 7) = (/ &
+ & 0.72717E-06_JPRB,0.70656E-06_JPRB,0.13933E-05_JPRB,0.66449E-06_JPRB,0.64269E-06_JPRB /)  
+KA(:, 2, 7) = (/ &
+ & 0.52595E-06_JPRB,0.50791E-06_JPRB,0.11171E-05_JPRB,0.10538E-05_JPRB,0.45644E-06_JPRB /)  
+KA(:, 3, 7) = (/ &
+ & 0.29919E-06_JPRB,0.29227E-06_JPRB,0.28284E-06_JPRB,0.65215E-06_JPRB,0.26347E-06_JPRB /)  
+KA(:, 4, 7) = (/ &
+ & 0.27961E-06_JPRB,0.27579E-06_JPRB,0.27068E-06_JPRB,0.26343E-06_JPRB,0.41265E-06_JPRB /)  
+KA(:, 5, 7) = (/ &
+ & 0.37031E-06_JPRB,0.36318E-06_JPRB,0.35475E-06_JPRB,0.34488E-06_JPRB,0.53740E-06_JPRB /)  
+KA(:, 6, 7) = (/ &
+ & 0.53195E-06_JPRB,0.52692E-06_JPRB,0.52224E-06_JPRB,0.51934E-06_JPRB,0.51146E-06_JPRB /)  
+KA(:, 7, 7) = (/ &
+ & 0.83043E-06_JPRB,0.84552E-06_JPRB,0.84833E-06_JPRB,0.82800E-06_JPRB,0.80930E-06_JPRB /)  
+KA(:, 8, 7) = (/ &
+ & 0.14910E-05_JPRB,0.15179E-05_JPRB,0.15248E-05_JPRB,0.15091E-05_JPRB,0.14853E-05_JPRB /)  
+KA(:, 9, 7) = (/ &
+ & 0.37340E-05_JPRB,0.37823E-05_JPRB,0.38311E-05_JPRB,0.38453E-05_JPRB,0.38567E-05_JPRB /)  
+KA(:,10, 7) = (/ &
+ & 0.86791E-05_JPRB,0.89697E-05_JPRB,0.92118E-05_JPRB,0.93991E-05_JPRB,0.95564E-05_JPRB /)  
+KA(:,11, 7) = (/ &
+ & 0.11878E-04_JPRB,0.12201E-04_JPRB,0.12588E-04_JPRB,0.12897E-04_JPRB,0.13151E-04_JPRB /)  
+KA(:,12, 7) = (/ &
+ & 0.13192E-04_JPRB,0.13732E-04_JPRB,0.14137E-04_JPRB,0.14465E-04_JPRB,0.14643E-04_JPRB /)  
+KA(:,13, 7) = (/ &
+ & 0.13716E-04_JPRB,0.14229E-04_JPRB,0.14617E-04_JPRB,0.14944E-04_JPRB,0.15182E-04_JPRB /)  
+KA(:, 1, 8) = (/ &
+ & 0.39538E-05_JPRB,0.38949E-05_JPRB,0.56188E-05_JPRB,0.37475E-05_JPRB,0.36648E-05_JPRB /)  
+KA(:, 2, 8) = (/ &
+ & 0.34231E-05_JPRB,0.33633E-05_JPRB,0.51877E-05_JPRB,0.50048E-05_JPRB,0.31425E-05_JPRB /)  
+KA(:, 3, 8) = (/ &
+ & 0.28073E-05_JPRB,0.27497E-05_JPRB,0.26875E-05_JPRB,0.44405E-05_JPRB,0.25492E-05_JPRB /)  
+KA(:, 4, 8) = (/ &
+ & 0.19229E-05_JPRB,0.18818E-05_JPRB,0.18382E-05_JPRB,0.17896E-05_JPRB,0.33073E-05_JPRB /)  
+KA(:, 5, 8) = (/ &
+ & 0.11453E-05_JPRB,0.11293E-05_JPRB,0.11095E-05_JPRB,0.10866E-05_JPRB,0.19344E-05_JPRB /)  
+KA(:, 6, 8) = (/ &
+ & 0.14565E-05_JPRB,0.14517E-05_JPRB,0.14369E-05_JPRB,0.14141E-05_JPRB,0.13944E-05_JPRB /)  
+KA(:, 7, 8) = (/ &
+ & 0.23228E-05_JPRB,0.22753E-05_JPRB,0.22395E-05_JPRB,0.22124E-05_JPRB,0.21731E-05_JPRB /)  
+KA(:, 8, 8) = (/ &
+ & 0.34877E-05_JPRB,0.34362E-05_JPRB,0.33796E-05_JPRB,0.33389E-05_JPRB,0.32924E-05_JPRB /)  
+KA(:, 9, 8) = (/ &
+ & 0.63448E-05_JPRB,0.63701E-05_JPRB,0.63619E-05_JPRB,0.62632E-05_JPRB,0.61645E-05_JPRB /)  
+KA(:,10, 8) = (/ &
+ & 0.12155E-04_JPRB,0.11880E-04_JPRB,0.11762E-04_JPRB,0.11759E-04_JPRB,0.11651E-04_JPRB /)  
+KA(:,11, 8) = (/ &
+ & 0.14093E-04_JPRB,0.13835E-04_JPRB,0.13547E-04_JPRB,0.13205E-04_JPRB,0.12690E-04_JPRB /)  
+KA(:,12, 8) = (/ &
+ & 0.14428E-04_JPRB,0.14056E-04_JPRB,0.13932E-04_JPRB,0.13396E-04_JPRB,0.12885E-04_JPRB /)  
+KA(:,13, 8) = (/ &
+ & 0.15229E-04_JPRB,0.14534E-04_JPRB,0.13849E-04_JPRB,0.13292E-04_JPRB,0.12704E-04_JPRB /)  
+KA(:, 1, 9) = (/ &
+ & 0.19250E-04_JPRB,0.19148E-04_JPRB,0.21702E-04_JPRB,0.18906E-04_JPRB,0.18761E-04_JPRB /)  
+KA(:, 2, 9) = (/ &
+ & 0.18132E-04_JPRB,0.18040E-04_JPRB,0.20884E-04_JPRB,0.20523E-04_JPRB,0.17656E-04_JPRB /)  
+KA(:, 3, 9) = (/ &
+ & 0.16928E-04_JPRB,0.16843E-04_JPRB,0.16742E-04_JPRB,0.19715E-04_JPRB,0.16470E-04_JPRB /)  
+KA(:, 4, 9) = (/ &
+ & 0.15526E-04_JPRB,0.15463E-04_JPRB,0.15377E-04_JPRB,0.15268E-04_JPRB,0.18367E-04_JPRB /)  
+KA(:, 5, 9) = (/ &
+ & 0.13545E-04_JPRB,0.13511E-04_JPRB,0.13455E-04_JPRB,0.13362E-04_JPRB,0.16722E-04_JPRB /)  
+KA(:, 6, 9) = (/ &
+ & 0.97183E-05_JPRB,0.97218E-05_JPRB,0.97084E-05_JPRB,0.96717E-05_JPRB,0.96030E-05_JPRB /)  
+KA(:, 7, 9) = (/ &
+ & 0.50307E-05_JPRB,0.50984E-05_JPRB,0.51628E-05_JPRB,0.52093E-05_JPRB,0.52354E-05_JPRB /)  
+KA(:, 8, 9) = (/ &
+ & 0.45837E-05_JPRB,0.45939E-05_JPRB,0.45938E-05_JPRB,0.45639E-05_JPRB,0.45109E-05_JPRB /)  
+KA(:, 9, 9) = (/ &
+ & 0.12254E-04_JPRB,0.12319E-04_JPRB,0.12397E-04_JPRB,0.12584E-04_JPRB,0.12620E-04_JPRB /)  
+KA(:,10, 9) = (/ &
+ & 0.21545E-04_JPRB,0.21836E-04_JPRB,0.21718E-04_JPRB,0.21511E-04_JPRB,0.21211E-04_JPRB /)  
+KA(:,11, 9) = (/ &
+ & 0.20079E-04_JPRB,0.19539E-04_JPRB,0.18859E-04_JPRB,0.18393E-04_JPRB,0.18181E-04_JPRB /)  
+KA(:,12, 9) = (/ &
+ & 0.17115E-04_JPRB,0.16357E-04_JPRB,0.15410E-04_JPRB,0.15220E-04_JPRB,0.15207E-04_JPRB /)  
+KA(:,13, 9) = (/ &
+ & 0.14935E-04_JPRB,0.14679E-04_JPRB,0.14593E-04_JPRB,0.14448E-04_JPRB,0.14436E-04_JPRB /)  
+KA(:, 1,10) = (/ &
+ & 0.53569E-04_JPRB,0.53042E-04_JPRB,0.55454E-04_JPRB,0.52098E-04_JPRB,0.51678E-04_JPRB /)  
+KA(:, 2,10) = (/ &
+ & 0.52196E-04_JPRB,0.51739E-04_JPRB,0.54777E-04_JPRB,0.54075E-04_JPRB,0.50624E-04_JPRB /)  
+KA(:, 3,10) = (/ &
+ & 0.50339E-04_JPRB,0.50046E-04_JPRB,0.49769E-04_JPRB,0.53168E-04_JPRB,0.49370E-04_JPRB /)  
+KA(:, 4,10) = (/ &
+ & 0.48505E-04_JPRB,0.48316E-04_JPRB,0.48143E-04_JPRB,0.47993E-04_JPRB,0.51621E-04_JPRB /)  
+KA(:, 5,10) = (/ &
+ & 0.46313E-04_JPRB,0.46267E-04_JPRB,0.46119E-04_JPRB,0.46064E-04_JPRB,0.50279E-04_JPRB /)  
+KA(:, 6,10) = (/ &
+ & 0.42662E-04_JPRB,0.42818E-04_JPRB,0.42935E-04_JPRB,0.43007E-04_JPRB,0.43099E-04_JPRB /)  
+KA(:, 7,10) = (/ &
+ & 0.35762E-04_JPRB,0.36149E-04_JPRB,0.36450E-04_JPRB,0.36639E-04_JPRB,0.36887E-04_JPRB /)  
+KA(:, 8,10) = (/ &
+ & 0.13516E-05_JPRB,0.18607E-05_JPRB,0.23061E-05_JPRB,0.27339E-05_JPRB,0.36516E-05_JPRB /)  
+KA(:, 9,10) = (/ &
+ & 0.36432E-05_JPRB,0.40739E-05_JPRB,0.43830E-05_JPRB,0.41136E-05_JPRB,0.43128E-05_JPRB /)  
+KA(:,10,10) = (/ &
+ & 0.62049E-05_JPRB,0.69116E-05_JPRB,0.73244E-05_JPRB,0.65087E-05_JPRB,0.78951E-05_JPRB /)  
+KA(:,11,10) = (/ &
+ & 0.32156E-05_JPRB,0.38834E-05_JPRB,0.41231E-05_JPRB,0.43386E-05_JPRB,0.43405E-05_JPRB /)  
+KA(:,12,10) = (/ &
+ & 0.22152E-05_JPRB,0.26754E-05_JPRB,0.31971E-05_JPRB,0.34911E-05_JPRB,0.37935E-05_JPRB /)  
+KA(:,13,10) = (/ &
+ & 0.19792E-05_JPRB,0.26543E-05_JPRB,0.31511E-05_JPRB,0.34597E-05_JPRB,0.40624E-05_JPRB /)  
+KA(:, 1,11) = (/ &
+ & 0.75384E-04_JPRB,0.75103E-04_JPRB,0.77406E-04_JPRB,0.74222E-04_JPRB,0.73734E-04_JPRB /)  
+KA(:, 2,11) = (/ &
+ & 0.75458E-04_JPRB,0.75244E-04_JPRB,0.77778E-04_JPRB,0.77018E-04_JPRB,0.73942E-04_JPRB /)  
+KA(:, 3,11) = (/ &
+ & 0.75023E-04_JPRB,0.74844E-04_JPRB,0.74477E-04_JPRB,0.77271E-04_JPRB,0.73633E-04_JPRB /)  
+KA(:, 4,11) = (/ &
+ & 0.73633E-04_JPRB,0.73539E-04_JPRB,0.73257E-04_JPRB,0.72934E-04_JPRB,0.76232E-04_JPRB /)  
+KA(:, 5,11) = (/ &
+ & 0.71348E-04_JPRB,0.71322E-04_JPRB,0.71227E-04_JPRB,0.71069E-04_JPRB,0.75258E-04_JPRB /)  
+KA(:, 6,11) = (/ &
+ & 0.67784E-04_JPRB,0.67873E-04_JPRB,0.67974E-04_JPRB,0.67924E-04_JPRB,0.67903E-04_JPRB /)  
+KA(:, 7,11) = (/ &
+ & 0.61855E-04_JPRB,0.61922E-04_JPRB,0.61973E-04_JPRB,0.62206E-04_JPRB,0.62496E-04_JPRB /)  
+KA(:, 8,11) = (/ &
+ & 0.36622E-04_JPRB,0.37413E-04_JPRB,0.38740E-04_JPRB,0.40550E-04_JPRB,0.41833E-04_JPRB /)  
+KA(:, 9,11) = (/ &
+ & 0.28544E-05_JPRB,0.28831E-05_JPRB,0.31445E-05_JPRB,0.32900E-05_JPRB,0.27967E-05_JPRB /)  
+KA(:,10,11) = (/ &
+ & 0.53755E-05_JPRB,0.42123E-05_JPRB,0.51154E-05_JPRB,0.63481E-05_JPRB,0.54219E-05_JPRB /)  
+KA(:,11,11) = (/ &
+ & 0.12605E-05_JPRB,0.14078E-05_JPRB,0.19167E-05_JPRB,0.23729E-05_JPRB,0.30161E-05_JPRB /)  
+KA(:,12,11) = (/ &
+ & 0.11370E-05_JPRB,0.91524E-06_JPRB,0.11150E-05_JPRB,0.14746E-05_JPRB,0.20128E-05_JPRB /)  
+KA(:,13,11) = (/ &
+ & 0.10511E-05_JPRB,0.10014E-05_JPRB,0.11405E-05_JPRB,0.13852E-05_JPRB,0.15576E-05_JPRB /)  
+KA(:, 1,12) = (/ &
+ & 0.11184E-03_JPRB,0.11117E-03_JPRB,0.11327E-03_JPRB,0.10989E-03_JPRB,0.10910E-03_JPRB /)  
+KA(:, 2,12) = (/ &
+ & 0.11379E-03_JPRB,0.11322E-03_JPRB,0.11555E-03_JPRB,0.11462E-03_JPRB,0.11135E-03_JPRB /)  
+KA(:, 3,12) = (/ &
+ & 0.11508E-03_JPRB,0.11459E-03_JPRB,0.11421E-03_JPRB,0.11671E-03_JPRB,0.11339E-03_JPRB /)  
+KA(:, 4,12) = (/ &
+ & 0.11596E-03_JPRB,0.11563E-03_JPRB,0.11538E-03_JPRB,0.11511E-03_JPRB,0.11770E-03_JPRB /)  
+KA(:, 5,12) = (/ &
+ & 0.11597E-03_JPRB,0.11581E-03_JPRB,0.11569E-03_JPRB,0.11553E-03_JPRB,0.11890E-03_JPRB /)  
+KA(:, 6,12) = (/ &
+ & 0.11443E-03_JPRB,0.11445E-03_JPRB,0.11443E-03_JPRB,0.11443E-03_JPRB,0.11438E-03_JPRB /)  
+KA(:, 7,12) = (/ &
+ & 0.10852E-03_JPRB,0.10888E-03_JPRB,0.10912E-03_JPRB,0.10934E-03_JPRB,0.10942E-03_JPRB /)  
+KA(:, 8,12) = (/ &
+ & 0.93194E-04_JPRB,0.94766E-04_JPRB,0.95355E-04_JPRB,0.95090E-04_JPRB,0.94926E-04_JPRB /)  
+KA(:, 9,12) = (/ &
+ & 0.11836E-05_JPRB,0.16115E-05_JPRB,0.12883E-05_JPRB,0.14202E-05_JPRB,0.16541E-05_JPRB /)  
+KA(:,10,12) = (/ &
+ & 0.18748E-05_JPRB,0.34401E-05_JPRB,0.39984E-05_JPRB,0.44576E-05_JPRB,0.33683E-05_JPRB /)  
+KA(:,11,12) = (/ &
+ & 0.29890E-06_JPRB,0.48741E-06_JPRB,0.66276E-06_JPRB,0.99698E-06_JPRB,0.19230E-05_JPRB /)  
+KA(:,12,12) = (/ &
+ & 0.15034E-06_JPRB,0.39966E-06_JPRB,0.56523E-06_JPRB,0.70494E-06_JPRB,0.10046E-05_JPRB /)  
+KA(:,13,12) = (/ &
+ & 0.15016E-06_JPRB,0.25751E-06_JPRB,0.48928E-06_JPRB,0.63534E-06_JPRB,0.93575E-06_JPRB /)  
+KA(:, 1,13) = (/ &
+ & 0.17305E-03_JPRB,0.17234E-03_JPRB,0.17389E-03_JPRB,0.17055E-03_JPRB,0.16974E-03_JPRB /)  
+KA(:, 2,13) = (/ &
+ & 0.18170E-03_JPRB,0.18075E-03_JPRB,0.18265E-03_JPRB,0.18138E-03_JPRB,0.17772E-03_JPRB /)  
+KA(:, 3,13) = (/ &
+ & 0.18990E-03_JPRB,0.18892E-03_JPRB,0.18776E-03_JPRB,0.18950E-03_JPRB,0.18494E-03_JPRB /)  
+KA(:, 4,13) = (/ &
+ & 0.19649E-03_JPRB,0.19552E-03_JPRB,0.19424E-03_JPRB,0.19281E-03_JPRB,0.19464E-03_JPRB /)  
+KA(:, 5,13) = (/ &
+ & 0.20197E-03_JPRB,0.20109E-03_JPRB,0.19993E-03_JPRB,0.19856E-03_JPRB,0.20092E-03_JPRB /)  
+KA(:, 6,13) = (/ &
+ & 0.20595E-03_JPRB,0.20549E-03_JPRB,0.20452E-03_JPRB,0.20331E-03_JPRB,0.20199E-03_JPRB /)  
+KA(:, 7,13) = (/ &
+ & 0.20703E-03_JPRB,0.20710E-03_JPRB,0.20649E-03_JPRB,0.20552E-03_JPRB,0.20428E-03_JPRB /)  
+KA(:, 8,13) = (/ &
+ & 0.19874E-03_JPRB,0.19767E-03_JPRB,0.19696E-03_JPRB,0.19655E-03_JPRB,0.19591E-03_JPRB /)  
+KA(:, 9,13) = (/ &
+ & 0.20434E-04_JPRB,0.23398E-04_JPRB,0.27400E-04_JPRB,0.32409E-04_JPRB,0.38451E-04_JPRB /)  
+KA(:,10,13) = (/ &
+ & 0.18617E-05_JPRB,0.99513E-06_JPRB,0.10554E-05_JPRB,0.16516E-05_JPRB,0.37792E-05_JPRB /)  
+KA(:,11,13) = (/ &
+ & 0.12517E-06_JPRB,0.29518E-06_JPRB,0.77058E-06_JPRB,0.11660E-05_JPRB,0.15349E-05_JPRB /)  
+KA(:,12,13) = (/ &
+ & 0.12734E-06_JPRB,0.36524E-06_JPRB,0.66699E-06_JPRB,0.10362E-05_JPRB,0.14158E-05_JPRB /)  
+KA(:,13,13) = (/ &
+ & 0.12431E-06_JPRB,0.39389E-06_JPRB,0.67331E-06_JPRB,0.10292E-05_JPRB,0.14448E-05_JPRB /)  
+KA(:, 1,14) = (/ &
+ & 0.29365E-03_JPRB,0.29046E-03_JPRB,0.29008E-03_JPRB,0.28509E-03_JPRB,0.28286E-03_JPRB /)  
+KA(:, 2,14) = (/ &
+ & 0.31990E-03_JPRB,0.31668E-03_JPRB,0.31617E-03_JPRB,0.31332E-03_JPRB,0.30885E-03_JPRB /)  
+KA(:, 3,14) = (/ &
+ & 0.34787E-03_JPRB,0.34432E-03_JPRB,0.34112E-03_JPRB,0.34052E-03_JPRB,0.33589E-03_JPRB /)  
+KA(:, 4,14) = (/ &
+ & 0.37401E-03_JPRB,0.37027E-03_JPRB,0.36696E-03_JPRB,0.36394E-03_JPRB,0.36355E-03_JPRB /)  
+KA(:, 5,14) = (/ &
+ & 0.39840E-03_JPRB,0.39446E-03_JPRB,0.39082E-03_JPRB,0.38763E-03_JPRB,0.38760E-03_JPRB /)  
+KA(:, 6,14) = (/ &
+ & 0.42165E-03_JPRB,0.41729E-03_JPRB,0.41335E-03_JPRB,0.41006E-03_JPRB,0.40721E-03_JPRB /)  
+KA(:, 7,14) = (/ &
+ & 0.44257E-03_JPRB,0.43782E-03_JPRB,0.43364E-03_JPRB,0.43014E-03_JPRB,0.42736E-03_JPRB /)  
+KA(:, 8,14) = (/ &
+ & 0.45299E-03_JPRB,0.44953E-03_JPRB,0.44586E-03_JPRB,0.44260E-03_JPRB,0.44006E-03_JPRB /)  
+KA(:, 9,14) = (/ &
+ & 0.40190E-03_JPRB,0.39751E-03_JPRB,0.39238E-03_JPRB,0.38812E-03_JPRB,0.38612E-03_JPRB /)  
+KA(:,10,14) = (/ &
+ & 0.64278E-05_JPRB,0.18248E-05_JPRB,0.16996E-05_JPRB,0.31086E-06_JPRB,0.16836E-06_JPRB /)  
+KA(:,11,14) = (/ &
+ & 0.14350E-05_JPRB,0.94778E-06_JPRB,0.41349E-06_JPRB,0.20817E-06_JPRB,0.20238E-06_JPRB /)  
+KA(:,12,14) = (/ &
+ & 0.16805E-05_JPRB,0.15323E-05_JPRB,0.62348E-06_JPRB,0.99743E-07_JPRB,0.12977E-06_JPRB /)  
+KA(:,13,14) = (/ &
+ & 0.16858E-05_JPRB,0.17103E-05_JPRB,0.80574E-06_JPRB,0.15825E-06_JPRB,0.15032E-06_JPRB /)  
+KA(:, 1,15) = (/ &
+ & 0.52181E-03_JPRB,0.51578E-03_JPRB,0.51251E-03_JPRB,0.50356E-03_JPRB,0.49731E-03_JPRB /)  
+KA(:, 2,15) = (/ &
+ & 0.59491E-03_JPRB,0.58822E-03_JPRB,0.58413E-03_JPRB,0.57646E-03_JPRB,0.56692E-03_JPRB /)  
+KA(:, 3,15) = (/ &
+ & 0.67653E-03_JPRB,0.66881E-03_JPRB,0.66126E-03_JPRB,0.65540E-03_JPRB,0.64461E-03_JPRB /)  
+KA(:, 4,15) = (/ &
+ & 0.76388E-03_JPRB,0.75456E-03_JPRB,0.74556E-03_JPRB,0.73649E-03_JPRB,0.72840E-03_JPRB /)  
+KA(:, 5,15) = (/ &
+ & 0.85507E-03_JPRB,0.84417E-03_JPRB,0.83378E-03_JPRB,0.82338E-03_JPRB,0.81349E-03_JPRB /)  
+KA(:, 6,15) = (/ &
+ & 0.95034E-03_JPRB,0.93798E-03_JPRB,0.92553E-03_JPRB,0.91287E-03_JPRB,0.89957E-03_JPRB /)  
+KA(:, 7,15) = (/ &
+ & 0.10496E-02_JPRB,0.10352E-02_JPRB,0.10206E-02_JPRB,0.10054E-02_JPRB,0.98958E-03_JPRB /)  
+KA(:, 8,15) = (/ &
+ & 0.11507E-02_JPRB,0.11337E-02_JPRB,0.11169E-02_JPRB,0.10991E-02_JPRB,0.10806E-02_JPRB /)  
+KA(:, 9,15) = (/ &
+ & 0.12408E-02_JPRB,0.12207E-02_JPRB,0.11996E-02_JPRB,0.11773E-02_JPRB,0.11531E-02_JPRB /)  
+KA(:,10,15) = (/ &
+ & 0.12042E-03_JPRB,0.11501E-03_JPRB,0.11424E-03_JPRB,0.11450E-03_JPRB,0.13219E-03_JPRB /)  
+KA(:,11,15) = (/ &
+ & 0.68914E-06_JPRB,0.83960E-06_JPRB,0.74591E-06_JPRB,0.18660E-05_JPRB,0.32503E-05_JPRB /)  
+KA(:,12,15) = (/ &
+ & 0.35963E-07_JPRB,0.46256E-06_JPRB,0.56223E-06_JPRB,0.98816E-06_JPRB,0.92366E-06_JPRB /)  
+KA(:,13,15) = (/ &
+ & 0.36605E-07_JPRB,0.56591E-06_JPRB,0.84008E-06_JPRB,0.86042E-06_JPRB,0.68452E-06_JPRB /)  
+KA(:, 1,16) = (/ &
+ & 0.76517E-03_JPRB,0.75944E-03_JPRB,0.76010E-03_JPRB,0.76100E-03_JPRB,0.76498E-03_JPRB /)  
+KA(:, 2,16) = (/ &
+ & 0.92375E-03_JPRB,0.91357E-03_JPRB,0.90997E-03_JPRB,0.90997E-03_JPRB,0.90993E-03_JPRB /)  
+KA(:, 3,16) = (/ &
+ & 0.11142E-02_JPRB,0.10974E-02_JPRB,0.10835E-02_JPRB,0.10789E-02_JPRB,0.10748E-02_JPRB /)  
+KA(:, 4,16) = (/ &
+ & 0.13278E-02_JPRB,0.13025E-02_JPRB,0.12802E-02_JPRB,0.12631E-02_JPRB,0.12539E-02_JPRB /)  
+KA(:, 5,16) = (/ &
+ & 0.15712E-02_JPRB,0.15343E-02_JPRB,0.15017E-02_JPRB,0.14713E-02_JPRB,0.14497E-02_JPRB /)  
+KA(:, 6,16) = (/ &
+ & 0.18525E-02_JPRB,0.17982E-02_JPRB,0.17525E-02_JPRB,0.17101E-02_JPRB,0.16714E-02_JPRB /)  
+KA(:, 7,16) = (/ &
+ & 0.21731E-02_JPRB,0.20986E-02_JPRB,0.20340E-02_JPRB,0.19757E-02_JPRB,0.19210E-02_JPRB /)  
+KA(:, 8,16) = (/ &
+ & 0.25325E-02_JPRB,0.24346E-02_JPRB,0.23473E-02_JPRB,0.22687E-02_JPRB,0.21950E-02_JPRB /)  
+KA(:, 9,16) = (/ &
+ & 0.29269E-02_JPRB,0.28006E-02_JPRB,0.26863E-02_JPRB,0.25805E-02_JPRB,0.24878E-02_JPRB /)  
+KA(:,10,16) = (/ &
+ & 0.29442E-02_JPRB,0.27008E-02_JPRB,0.23913E-02_JPRB,0.21437E-02_JPRB,0.18865E-02_JPRB /)  
+KA(:,11,16) = (/ &
+ & 0.23220E-05_JPRB,0.22310E-04_JPRB,0.48349E-04_JPRB,0.67183E-04_JPRB,0.88908E-04_JPRB /)  
+KA(:,12,16) = (/ &
+ & 0.22857E-05_JPRB,0.11848E-04_JPRB,0.42066E-04_JPRB,0.67613E-04_JPRB,0.86033E-04_JPRB /)  
+KA(:,13,16) = (/ &
+ & 0.22823E-05_JPRB,0.69105E-05_JPRB,0.36212E-04_JPRB,0.66247E-04_JPRB,0.85488E-04_JPRB /)  
+  
+!     -----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB25',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_KGB25
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb25.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb25.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb25.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_KGB25
+END SUBROUTINE SRTM_KGB25
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb26.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb26.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb26.F90	(revision 1989)
@@ -0,0 +1,43 @@
+!OCL SCALAR
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif 
+SUBROUTINE SRTM_KGB26
+
+!     Originally by J.Delamere, Atmospheric & Environmental Research.
+!     Revision: 2.4
+!     BAND 26:  22650-29000 cm-1 (low - nothing; high - nothing)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOESRTA26, ONLY : SFLUXREF, RAYL 
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+
+! KURUCZ
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB26',0,ZHOOK_HANDLE)
+SFLUXREF = (/ &
+ !  &     129.462_JPRB, 15*_ZERO_ /)
+ & 29.0079_JPRB,  28.4088_JPRB,     20.3099_JPRB,  13.0283_JPRB &
+ & ,  11.8619_JPRB,  9.95840_JPRB,     6.68696_JPRB,  5.38987_JPRB &
+ & ,  3.49829_JPRB, 0.407693_JPRB,    0.299027_JPRB, 0.236827_JPRB &
+ & , 0.188502_JPRB, 0.163489_JPRB, 4.64335E-02_JPRB, 2.72662E-03_JPRB /)  
+
+!     Rayleigh extinction coefficient at all v 
+RAYL = (/ &
+ & 1.21263E-06_JPRB,1.43428E-06_JPRB,1.67677E-06_JPRB,1.93255E-06_JPRB &
+ & , 2.19177E-06_JPRB,2.44195E-06_JPRB,2.66926E-06_JPRB,2.85990E-06_JPRB &
+ & , 3.00380E-06_JPRB,3.06996E-06_JPRB,3.08184E-06_JPRB,3.09172E-06_JPRB &
+ & , 3.09938E-06_JPRB,3.10456E-06_JPRB,3.10727E-06_JPRB,3.10818E-06_JPRB /)  
+
+!     ------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB26',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_KGB26
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb26.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb26.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb26.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_KGB26
+END SUBROUTINE SRTM_KGB26
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb27.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb27.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb27.F90	(revision 1989)
@@ -0,0 +1,2007 @@
+!OCL SCALAR
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif 
+SUBROUTINE SRTM_KGB27
+
+!     Originally by J.Delamere, Atmospheric & Environmental Research.
+!     Revision: 2.4
+!     BAND 16: 29000-38000 cm-1 (low - O3; high - O3)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOESRTA27, ONLY : KA, KB, SFLUXREF, RAYL, SCALEKUR &
+ & , LAYREFFR  
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+
+! KURUCZ
+!     The following values were obtained using the "low resolution"
+!     version of the Kurucz solar source function.  For unknown reasons,
+!     the total irradiance in this band differs from the corresponding
+!     total in the "high-resolution" version of the Kurucz function.
+!     Therefore, below these values are scaled by the factor SCALEKUR.
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB27',0,ZHOOK_HANDLE)
+SFLUXREF = (/ &
+ & 14.0526_JPRB    , 11.4794_JPRB    , 8.72590_JPRB    , 5.56966_JPRB    , &
+ & 3.80927_JPRB    , 1.57690_JPRB    , 1.15099_JPRB    , 1.10012_JPRB    , &
+ & 0.658212_JPRB   , 5.86859E-02_JPRB, 5.56186E-02_JPRB, 4.68040E-02_JPRB, &
+ & 3.64897E-02_JPRB, 3.58053E-02_JPRB, 1.38130E-02_JPRB, 1.90193E-03_JPRB /)  
+
+!     Rayleigh extinction coefficient at v = 2925 cm-1.
+RAYL = (/ &
+ & 3.44534E-06_JPRB,4.14480E-06_JPRB,4.95069E-06_JPRB,5.81204E-06_JPRB, &
+ & 6.69748E-06_JPRB,7.56488E-06_JPRB,8.36344E-06_JPRB,9.04135E-06_JPRB, &
+ & 9.58324E-06_JPRB,9.81542E-06_JPRB,9.75119E-06_JPRB,9.74533E-06_JPRB, &
+ & 9.74139E-06_JPRB,9.73525E-06_JPRB,9.73577E-06_JPRB,9.73618E-06_JPRB /)  
+
+SCALEKUR = 50.15_JPRB/48.37_JPRB
+
+LAYREFFR = 32
+
+!     ------------------------------------------------------------------
+
+!     The array KA contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels> ~100mb, temperatures, and binary
+!     species parameters (see taumol.f for definition).  The first 
+!     index in the array, JS, runs from 1 to 9, and corresponds to 
+!     different values of the binary species parameter.  For instance, 
+!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, 
+!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index
+!     in the array, JT, which runs from 1 to 5, corresponds to different
+!     temperatures.  More specifically, JT = 3 means that the data are for
+!     the reference temperature TREF for this  pressure level, JT = 2 refers
+!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the JPth reference pressure level (see taumol.f for these levels
+!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates
+!     which g-interval the absorption coefficients are for.
+!     -----------------------------------------------------------------
+
+KA(:, 1, 1) = (/ &
+ & 0.22907E+00_JPRB,0.25625E+00_JPRB,0.28779E+00_JPRB,0.32376E+00_JPRB,0.36426E+00_JPRB /)  
+KA(:, 2, 1) = (/ &
+ & 0.21913E+00_JPRB,0.24445E+00_JPRB,0.27422E+00_JPRB,0.30832E+00_JPRB,0.34694E+00_JPRB /)  
+KA(:, 3, 1) = (/ &
+ & 0.20602E+00_JPRB,0.22864E+00_JPRB,0.25574E+00_JPRB,0.28721E+00_JPRB,0.32310E+00_JPRB /)  
+KA(:, 4, 1) = (/ &
+ & 0.19379E+00_JPRB,0.21352E+00_JPRB,0.23771E+00_JPRB,0.26643E+00_JPRB,0.29940E+00_JPRB /)  
+KA(:, 5, 1) = (/ &
+ & 0.18369E+00_JPRB,0.20061E+00_JPRB,0.22200E+00_JPRB,0.24786E+00_JPRB,0.27816E+00_JPRB /)  
+KA(:, 6, 1) = (/ &
+ & 0.17517E+00_JPRB,0.18920E+00_JPRB,0.20771E+00_JPRB,0.23069E+00_JPRB,0.25817E+00_JPRB /)  
+KA(:, 7, 1) = (/ &
+ & 0.16888E+00_JPRB,0.17988E+00_JPRB,0.19559E+00_JPRB,0.21577E+00_JPRB,0.24042E+00_JPRB /)  
+KA(:, 8, 1) = (/ &
+ & 0.16442E+00_JPRB,0.17273E+00_JPRB,0.18565E+00_JPRB,0.20315E+00_JPRB,0.22512E+00_JPRB /)  
+KA(:, 9, 1) = (/ &
+ & 0.16159E+00_JPRB,0.16738E+00_JPRB,0.17752E+00_JPRB,0.19242E+00_JPRB,0.21179E+00_JPRB /)  
+KA(:,10, 1) = (/ &
+ & 0.16037E+00_JPRB,0.16402E+00_JPRB,0.17204E+00_JPRB,0.18463E+00_JPRB,0.20183E+00_JPRB /)  
+KA(:,11, 1) = (/ &
+ & 0.16036E+00_JPRB,0.16399E+00_JPRB,0.17198E+00_JPRB,0.18455E+00_JPRB,0.20173E+00_JPRB /)  
+KA(:,12, 1) = (/ &
+ & 0.16036E+00_JPRB,0.16399E+00_JPRB,0.17198E+00_JPRB,0.18455E+00_JPRB,0.20173E+00_JPRB /)  
+KA(:,13, 1) = (/ &
+ & 0.16036E+00_JPRB,0.16399E+00_JPRB,0.17198E+00_JPRB,0.18455E+00_JPRB,0.20173E+00_JPRB /)  
+KA(:, 1, 2) = (/ &
+ & 0.20716E+01_JPRB,0.21925E+01_JPRB,0.23327E+01_JPRB,0.24921E+01_JPRB,0.26726E+01_JPRB /)  
+KA(:, 2, 2) = (/ &
+ & 0.20272E+01_JPRB,0.21401E+01_JPRB,0.22723E+01_JPRB,0.24238E+01_JPRB,0.25950E+01_JPRB /)  
+KA(:, 3, 2) = (/ &
+ & 0.19684E+01_JPRB,0.20697E+01_JPRB,0.21902E+01_JPRB,0.23301E+01_JPRB,0.24892E+01_JPRB /)  
+KA(:, 4, 2) = (/ &
+ & 0.19133E+01_JPRB,0.20021E+01_JPRB,0.21101E+01_JPRB,0.22375E+01_JPRB,0.23842E+01_JPRB /)  
+KA(:, 5, 2) = (/ &
+ & 0.18673E+01_JPRB,0.19441E+01_JPRB,0.20400E+01_JPRB,0.21553E+01_JPRB,0.22898E+01_JPRB /)  
+KA(:, 6, 2) = (/ &
+ & 0.18277E+01_JPRB,0.18925E+01_JPRB,0.19760E+01_JPRB,0.20788E+01_JPRB,0.22009E+01_JPRB /)  
+KA(:, 7, 2) = (/ &
+ & 0.17963E+01_JPRB,0.18497E+01_JPRB,0.19214E+01_JPRB,0.20121E+01_JPRB,0.21222E+01_JPRB /)  
+KA(:, 8, 2) = (/ &
+ & 0.17749E+01_JPRB,0.18156E+01_JPRB,0.18763E+01_JPRB,0.19555E+01_JPRB,0.20540E+01_JPRB /)  
+KA(:, 9, 2) = (/ &
+ & 0.17600E+01_JPRB,0.17885E+01_JPRB,0.18388E+01_JPRB,0.19071E+01_JPRB,0.19943E+01_JPRB /)  
+KA(:,10, 2) = (/ &
+ & 0.17526E+01_JPRB,0.17729E+01_JPRB,0.18121E+01_JPRB,0.18716E+01_JPRB,0.19496E+01_JPRB /)  
+KA(:,11, 2) = (/ &
+ & 0.17525E+01_JPRB,0.17727E+01_JPRB,0.18119E+01_JPRB,0.18712E+01_JPRB,0.19491E+01_JPRB /)  
+KA(:,12, 2) = (/ &
+ & 0.17525E+01_JPRB,0.17727E+01_JPRB,0.18119E+01_JPRB,0.18712E+01_JPRB,0.19491E+01_JPRB /)  
+KA(:,13, 2) = (/ &
+ & 0.17525E+01_JPRB,0.17727E+01_JPRB,0.18119E+01_JPRB,0.18712E+01_JPRB,0.19491E+01_JPRB /)  
+KA(:, 1, 3) = (/ &
+ & 0.12189E+02_JPRB,0.12619E+02_JPRB,0.13110E+02_JPRB,0.13663E+02_JPRB,0.14275E+02_JPRB /)  
+KA(:, 2, 3) = (/ &
+ & 0.12030E+02_JPRB,0.12434E+02_JPRB,0.12899E+02_JPRB,0.13427E+02_JPRB,0.14015E+02_JPRB /)  
+KA(:, 3, 3) = (/ &
+ & 0.11816E+02_JPRB,0.12183E+02_JPRB,0.12611E+02_JPRB,0.13101E+02_JPRB,0.13653E+02_JPRB /)  
+KA(:, 4, 3) = (/ &
+ & 0.11611E+02_JPRB,0.11938E+02_JPRB,0.12327E+02_JPRB,0.12777E+02_JPRB,0.13289E+02_JPRB /)  
+KA(:, 5, 3) = (/ &
+ & 0.11437E+02_JPRB,0.11726E+02_JPRB,0.12076E+02_JPRB,0.12488E+02_JPRB,0.12961E+02_JPRB /)  
+KA(:, 6, 3) = (/ &
+ & 0.11284E+02_JPRB,0.11533E+02_JPRB,0.11843E+02_JPRB,0.12215E+02_JPRB,0.12649E+02_JPRB /)  
+KA(:, 7, 3) = (/ &
+ & 0.11160E+02_JPRB,0.11370E+02_JPRB,0.11641E+02_JPRB,0.11975E+02_JPRB,0.12370E+02_JPRB /)  
+KA(:, 8, 3) = (/ &
+ & 0.11063E+02_JPRB,0.11237E+02_JPRB,0.11471E+02_JPRB,0.11768E+02_JPRB,0.12126E+02_JPRB /)  
+KA(:, 9, 3) = (/ &
+ & 0.10990E+02_JPRB,0.11129E+02_JPRB,0.11327E+02_JPRB,0.11588E+02_JPRB,0.11910E+02_JPRB /)  
+KA(:,10, 3) = (/ &
+ & 0.10945E+02_JPRB,0.11053E+02_JPRB,0.11223E+02_JPRB,0.11454E+02_JPRB,0.11746E+02_JPRB /)  
+KA(:,11, 3) = (/ &
+ & 0.10945E+02_JPRB,0.11052E+02_JPRB,0.11222E+02_JPRB,0.11452E+02_JPRB,0.11744E+02_JPRB /)  
+KA(:,12, 3) = (/ &
+ & 0.10945E+02_JPRB,0.11052E+02_JPRB,0.11222E+02_JPRB,0.11452E+02_JPRB,0.11744E+02_JPRB /)  
+KA(:,13, 3) = (/ &
+ & 0.10945E+02_JPRB,0.11052E+02_JPRB,0.11222E+02_JPRB,0.11452E+02_JPRB,0.11744E+02_JPRB /)  
+KA(:, 1, 4) = (/ &
+ & 0.55057E+02_JPRB,0.56143E+02_JPRB,0.57364E+02_JPRB,0.58719E+02_JPRB,0.60208E+02_JPRB /)  
+KA(:, 2, 4) = (/ &
+ & 0.54647E+02_JPRB,0.55677E+02_JPRB,0.56842E+02_JPRB,0.58142E+02_JPRB,0.59575E+02_JPRB /)  
+KA(:, 3, 4) = (/ &
+ & 0.54090E+02_JPRB,0.55039E+02_JPRB,0.56123E+02_JPRB,0.57342E+02_JPRB,0.58694E+02_JPRB /)  
+KA(:, 4, 4) = (/ &
+ & 0.53548E+02_JPRB,0.54410E+02_JPRB,0.55408E+02_JPRB,0.56539E+02_JPRB,0.57805E+02_JPRB /)  
+KA(:, 5, 4) = (/ &
+ & 0.53074E+02_JPRB,0.53853E+02_JPRB,0.54766E+02_JPRB,0.55813E+02_JPRB,0.56995E+02_JPRB /)  
+KA(:, 6, 4) = (/ &
+ & 0.52644E+02_JPRB,0.53336E+02_JPRB,0.54162E+02_JPRB,0.55123E+02_JPRB,0.56218E+02_JPRB /)  
+KA(:, 7, 4) = (/ &
+ & 0.52279E+02_JPRB,0.52887E+02_JPRB,0.53629E+02_JPRB,0.54505E+02_JPRB,0.55516E+02_JPRB /)  
+KA(:, 8, 4) = (/ &
+ & 0.51979E+02_JPRB,0.52507E+02_JPRB,0.53168E+02_JPRB,0.53965E+02_JPRB,0.54895E+02_JPRB /)  
+KA(:, 9, 4) = (/ &
+ & 0.51734E+02_JPRB,0.52183E+02_JPRB,0.52767E+02_JPRB,0.53485E+02_JPRB,0.54337E+02_JPRB /)  
+KA(:,10, 4) = (/ &
+ & 0.51565E+02_JPRB,0.51948E+02_JPRB,0.52467E+02_JPRB,0.53120E+02_JPRB,0.53907E+02_JPRB /)  
+KA(:,11, 4) = (/ &
+ & 0.51563E+02_JPRB,0.51946E+02_JPRB,0.52464E+02_JPRB,0.53116E+02_JPRB,0.53902E+02_JPRB /)  
+KA(:,12, 4) = (/ &
+ & 0.51563E+02_JPRB,0.51946E+02_JPRB,0.52464E+02_JPRB,0.53116E+02_JPRB,0.53902E+02_JPRB /)  
+KA(:,13, 4) = (/ &
+ & 0.51563E+02_JPRB,0.51946E+02_JPRB,0.52464E+02_JPRB,0.53116E+02_JPRB,0.53902E+02_JPRB /)  
+KA(:, 1, 5) = (/ &
+ & 0.17794E+03_JPRB,0.17973E+03_JPRB,0.18164E+03_JPRB,0.18366E+03_JPRB,0.18581E+03_JPRB /)  
+KA(:, 2, 5) = (/ &
+ & 0.17724E+03_JPRB,0.17898E+03_JPRB,0.18083E+03_JPRB,0.18281E+03_JPRB,0.18491E+03_JPRB /)  
+KA(:, 3, 5) = (/ &
+ & 0.17624E+03_JPRB,0.17791E+03_JPRB,0.17970E+03_JPRB,0.18160E+03_JPRB,0.18363E+03_JPRB /)  
+KA(:, 4, 5) = (/ &
+ & 0.17523E+03_JPRB,0.17682E+03_JPRB,0.17853E+03_JPRB,0.18036E+03_JPRB,0.18231E+03_JPRB /)  
+KA(:, 5, 5) = (/ &
+ & 0.17429E+03_JPRB,0.17581E+03_JPRB,0.17744E+03_JPRB,0.17920E+03_JPRB,0.18107E+03_JPRB /)  
+KA(:, 6, 5) = (/ &
+ & 0.17338E+03_JPRB,0.17482E+03_JPRB,0.17638E+03_JPRB,0.17805E+03_JPRB,0.17985E+03_JPRB /)  
+KA(:, 7, 5) = (/ &
+ & 0.17253E+03_JPRB,0.17390E+03_JPRB,0.17539E+03_JPRB,0.17699E+03_JPRB,0.17871E+03_JPRB /)  
+KA(:, 8, 5) = (/ &
+ & 0.17177E+03_JPRB,0.17307E+03_JPRB,0.17448E+03_JPRB,0.17601E+03_JPRB,0.17767E+03_JPRB /)  
+KA(:, 9, 5) = (/ &
+ & 0.17107E+03_JPRB,0.17230E+03_JPRB,0.17364E+03_JPRB,0.17511E+03_JPRB,0.17669E+03_JPRB /)  
+KA(:,10, 5) = (/ &
+ & 0.17052E+03_JPRB,0.17169E+03_JPRB,0.17298E+03_JPRB,0.17438E+03_JPRB,0.17591E+03_JPRB /)  
+KA(:,11, 5) = (/ &
+ & 0.17051E+03_JPRB,0.17168E+03_JPRB,0.17297E+03_JPRB,0.17437E+03_JPRB,0.17590E+03_JPRB /)  
+KA(:,12, 5) = (/ &
+ & 0.17051E+03_JPRB,0.17168E+03_JPRB,0.17297E+03_JPRB,0.17437E+03_JPRB,0.17590E+03_JPRB /)  
+KA(:,13, 5) = (/ &
+ & 0.17051E+03_JPRB,0.17168E+03_JPRB,0.17297E+03_JPRB,0.17437E+03_JPRB,0.17590E+03_JPRB /)  
+KA(:, 1, 6) = (/ &
+ & 0.37680E+05_JPRB,0.36801E+05_JPRB,0.36011E+05_JPRB,0.35298E+05_JPRB,0.34715E+05_JPRB /)  
+KA(:, 2, 6) = (/ &
+ & 0.39286E+03_JPRB,0.39463E+03_JPRB,0.39616E+03_JPRB,0.39748E+03_JPRB,0.39858E+03_JPRB /)  
+KA(:, 3, 6) = (/ &
+ & 0.39169E+03_JPRB,0.39359E+03_JPRB,0.39526E+03_JPRB,0.39671E+03_JPRB,0.39794E+03_JPRB /)  
+KA(:, 4, 6) = (/ &
+ & 0.39034E+03_JPRB,0.39239E+03_JPRB,0.39421E+03_JPRB,0.39580E+03_JPRB,0.39717E+03_JPRB /)  
+KA(:, 5, 6) = (/ &
+ & 0.38895E+03_JPRB,0.39113E+03_JPRB,0.39309E+03_JPRB,0.39483E+03_JPRB,0.39634E+03_JPRB /)  
+KA(:, 6, 6) = (/ &
+ & 0.38742E+03_JPRB,0.38975E+03_JPRB,0.39185E+03_JPRB,0.39373E+03_JPRB,0.39539E+03_JPRB /)  
+KA(:, 7, 6) = (/ &
+ & 0.38585E+03_JPRB,0.38832E+03_JPRB,0.39056E+03_JPRB,0.39258E+03_JPRB,0.39438E+03_JPRB /)  
+KA(:, 8, 6) = (/ &
+ & 0.38426E+03_JPRB,0.38686E+03_JPRB,0.38924E+03_JPRB,0.39140E+03_JPRB,0.39333E+03_JPRB /)  
+KA(:, 9, 6) = (/ &
+ & 0.38264E+03_JPRB,0.38538E+03_JPRB,0.38789E+03_JPRB,0.39017E+03_JPRB,0.39223E+03_JPRB /)  
+KA(:,10, 6) = (/ &
+ & 0.38123E+03_JPRB,0.38408E+03_JPRB,0.38670E+03_JPRB,0.38909E+03_JPRB,0.39126E+03_JPRB /)  
+KA(:,11, 6) = (/ &
+ & 0.38122E+03_JPRB,0.38406E+03_JPRB,0.38668E+03_JPRB,0.38908E+03_JPRB,0.39125E+03_JPRB /)  
+KA(:,12, 6) = (/ &
+ & 0.38122E+03_JPRB,0.38406E+03_JPRB,0.38668E+03_JPRB,0.38908E+03_JPRB,0.39125E+03_JPRB /)  
+KA(:,13, 6) = (/ &
+ & 0.38122E+03_JPRB,0.38406E+03_JPRB,0.38668E+03_JPRB,0.38908E+03_JPRB,0.39125E+03_JPRB /)  
+KA(:, 1, 7) = (/ &
+ & 0.18202E+07_JPRB,0.17771E+07_JPRB,0.17382E+07_JPRB,0.17034E+07_JPRB,0.16716E+07_JPRB /)  
+KA(:, 2, 7) = (/ &
+ & 0.63027E+03_JPRB,0.63194E+03_JPRB,0.63388E+03_JPRB,0.63607E+03_JPRB,0.63849E+03_JPRB /)  
+KA(:, 3, 7) = (/ &
+ & 0.62938E+03_JPRB,0.63090E+03_JPRB,0.63268E+03_JPRB,0.63472E+03_JPRB,0.63701E+03_JPRB /)  
+KA(:, 4, 7) = (/ &
+ & 0.62853E+03_JPRB,0.62989E+03_JPRB,0.63150E+03_JPRB,0.63337E+03_JPRB,0.63550E+03_JPRB /)  
+KA(:, 5, 7) = (/ &
+ & 0.62781E+03_JPRB,0.62901E+03_JPRB,0.63046E+03_JPRB,0.63217E+03_JPRB,0.63413E+03_JPRB /)  
+KA(:, 6, 7) = (/ &
+ & 0.62717E+03_JPRB,0.62821E+03_JPRB,0.62950E+03_JPRB,0.63104E+03_JPRB,0.63283E+03_JPRB /)  
+KA(:, 7, 7) = (/ &
+ & 0.62666E+03_JPRB,0.62753E+03_JPRB,0.62867E+03_JPRB,0.63005E+03_JPRB,0.63168E+03_JPRB /)  
+KA(:, 8, 7) = (/ &
+ & 0.62627E+03_JPRB,0.62698E+03_JPRB,0.62795E+03_JPRB,0.62919E+03_JPRB,0.63067E+03_JPRB /)  
+KA(:, 9, 7) = (/ &
+ & 0.62600E+03_JPRB,0.62653E+03_JPRB,0.62735E+03_JPRB,0.62844E+03_JPRB,0.62978E+03_JPRB /)  
+KA(:,10, 7) = (/ &
+ & 0.62583E+03_JPRB,0.62624E+03_JPRB,0.62692E+03_JPRB,0.62788E+03_JPRB,0.62910E+03_JPRB /)  
+KA(:,11, 7) = (/ &
+ & 0.62583E+03_JPRB,0.62623E+03_JPRB,0.62691E+03_JPRB,0.62787E+03_JPRB,0.62909E+03_JPRB /)  
+KA(:,12, 7) = (/ &
+ & 0.62583E+03_JPRB,0.62623E+03_JPRB,0.62691E+03_JPRB,0.62787E+03_JPRB,0.62909E+03_JPRB /)  
+KA(:,13, 7) = (/ &
+ & 0.62583E+03_JPRB,0.62623E+03_JPRB,0.62691E+03_JPRB,0.62787E+03_JPRB,0.62909E+03_JPRB /)  
+KA(:, 1, 8) = (/ &
+ & 0.55488E+07_JPRB,0.54180E+07_JPRB,0.53005E+07_JPRB,0.51943E+07_JPRB,0.50978E+07_JPRB /)  
+KA(:, 2, 8) = (/ &
+ & 0.82143E+03_JPRB,0.82232E+03_JPRB,0.82327E+03_JPRB,0.82429E+03_JPRB,0.82541E+03_JPRB /)  
+KA(:, 3, 8) = (/ &
+ & 0.82092E+03_JPRB,0.82177E+03_JPRB,0.82269E+03_JPRB,0.82366E+03_JPRB,0.82472E+03_JPRB /)  
+KA(:, 4, 8) = (/ &
+ & 0.82041E+03_JPRB,0.82121E+03_JPRB,0.82209E+03_JPRB,0.82303E+03_JPRB,0.82402E+03_JPRB /)  
+KA(:, 5, 8) = (/ &
+ & 0.81996E+03_JPRB,0.82070E+03_JPRB,0.82152E+03_JPRB,0.82243E+03_JPRB,0.82339E+03_JPRB /)  
+KA(:, 6, 8) = (/ &
+ & 0.81952E+03_JPRB,0.82021E+03_JPRB,0.82098E+03_JPRB,0.82184E+03_JPRB,0.82277E+03_JPRB /)  
+KA(:, 7, 8) = (/ &
+ & 0.81917E+03_JPRB,0.81977E+03_JPRB,0.82048E+03_JPRB,0.82129E+03_JPRB,0.82218E+03_JPRB /)  
+KA(:, 8, 8) = (/ &
+ & 0.81881E+03_JPRB,0.81938E+03_JPRB,0.82004E+03_JPRB,0.82080E+03_JPRB,0.82163E+03_JPRB /)  
+KA(:, 9, 8) = (/ &
+ & 0.81846E+03_JPRB,0.81906E+03_JPRB,0.81965E+03_JPRB,0.82035E+03_JPRB,0.82114E+03_JPRB /)  
+KA(:,10, 8) = (/ &
+ & 0.81821E+03_JPRB,0.81877E+03_JPRB,0.81934E+03_JPRB,0.82000E+03_JPRB,0.82074E+03_JPRB /)  
+KA(:,11, 8) = (/ &
+ & 0.81821E+03_JPRB,0.81877E+03_JPRB,0.81934E+03_JPRB,0.81999E+03_JPRB,0.82074E+03_JPRB /)  
+KA(:,12, 8) = (/ &
+ & 0.81821E+03_JPRB,0.81877E+03_JPRB,0.81934E+03_JPRB,0.81999E+03_JPRB,0.82074E+03_JPRB /)  
+KA(:,13, 8) = (/ &
+ & 0.81821E+03_JPRB,0.81877E+03_JPRB,0.81935E+03_JPRB,0.81999E+03_JPRB,0.82074E+03_JPRB /)  
+KA(:, 1, 9) = (/ &
+ & 0.10204E+08_JPRB,0.99477E+07_JPRB,0.97209E+07_JPRB,0.95103E+07_JPRB,0.92960E+07_JPRB /)  
+KA(:, 2, 9) = (/ &
+ & 0.95102E+03_JPRB,0.95144E+03_JPRB,0.95133E+03_JPRB,0.95066E+03_JPRB,0.94964E+03_JPRB /)  
+KA(:, 3, 9) = (/ &
+ & 0.95048E+03_JPRB,0.95118E+03_JPRB,0.95136E+03_JPRB,0.95103E+03_JPRB,0.95020E+03_JPRB /)  
+KA(:, 4, 9) = (/ &
+ & 0.94969E+03_JPRB,0.95077E+03_JPRB,0.95126E+03_JPRB,0.95124E+03_JPRB,0.95074E+03_JPRB /)  
+KA(:, 5, 9) = (/ &
+ & 0.94872E+03_JPRB,0.95015E+03_JPRB,0.95101E+03_JPRB,0.95129E+03_JPRB,0.95105E+03_JPRB /)  
+KA(:, 6, 9) = (/ &
+ & 0.94752E+03_JPRB,0.94929E+03_JPRB,0.95052E+03_JPRB,0.95116E+03_JPRB,0.95126E+03_JPRB /)  
+KA(:, 7, 9) = (/ &
+ & 0.94612E+03_JPRB,0.94825E+03_JPRB,0.94981E+03_JPRB,0.95083E+03_JPRB,0.95126E+03_JPRB /)  
+KA(:, 8, 9) = (/ &
+ & 0.94461E+03_JPRB,0.94704E+03_JPRB,0.94894E+03_JPRB,0.95029E+03_JPRB,0.95107E+03_JPRB /)  
+KA(:, 9, 9) = (/ &
+ & 0.94291E+03_JPRB,0.94567E+03_JPRB,0.94791E+03_JPRB,0.94957E+03_JPRB,0.95069E+03_JPRB /)  
+KA(:,10, 9) = (/ &
+ & 0.94135E+03_JPRB,0.94441E+03_JPRB,0.94689E+03_JPRB,0.94884E+03_JPRB,0.95022E+03_JPRB /)  
+KA(:,11, 9) = (/ &
+ & 0.94133E+03_JPRB,0.94440E+03_JPRB,0.94688E+03_JPRB,0.94883E+03_JPRB,0.95021E+03_JPRB /)  
+KA(:,12, 9) = (/ &
+ & 0.94133E+03_JPRB,0.94438E+03_JPRB,0.94688E+03_JPRB,0.94883E+03_JPRB,0.95021E+03_JPRB /)  
+KA(:,13, 9) = (/ &
+ & 0.94133E+03_JPRB,0.94438E+03_JPRB,0.94687E+03_JPRB,0.94883E+03_JPRB,0.95021E+03_JPRB /)  
+KA(:, 1,10) = (/ &
+ & 0.12764E+08_JPRB,0.12408E+08_JPRB,0.12012E+08_JPRB,0.11438E+08_JPRB,0.11217E+08_JPRB /)  
+KA(:, 2,10) = (/ &
+ & 0.99589E+03_JPRB,0.99493E+03_JPRB,0.99263E+03_JPRB,0.98974E+03_JPRB,0.98742E+03_JPRB /)  
+KA(:, 3,10) = (/ &
+ & 0.99532E+03_JPRB,0.99571E+03_JPRB,0.99447E+03_JPRB,0.99207E+03_JPRB,0.98779E+03_JPRB /)  
+KA(:, 4,10) = (/ &
+ & 0.99446E+03_JPRB,0.99559E+03_JPRB,0.99536E+03_JPRB,0.99386E+03_JPRB,0.99088E+03_JPRB /)  
+KA(:, 5,10) = (/ &
+ & 0.99288E+03_JPRB,0.99493E+03_JPRB,0.99558E+03_JPRB,0.99487E+03_JPRB,0.99336E+03_JPRB /)  
+KA(:, 6,10) = (/ &
+ & 0.99069E+03_JPRB,0.99366E+03_JPRB,0.99519E+03_JPRB,0.99534E+03_JPRB,0.99428E+03_JPRB /)  
+KA(:, 7,10) = (/ &
+ & 0.98811E+03_JPRB,0.99191E+03_JPRB,0.99430E+03_JPRB,0.99510E+03_JPRB,0.99504E+03_JPRB /)  
+KA(:, 8,10) = (/ &
+ & 0.98531E+03_JPRB,0.98996E+03_JPRB,0.99300E+03_JPRB,0.99479E+03_JPRB,0.99513E+03_JPRB /)  
+KA(:, 9,10) = (/ &
+ & 0.98264E+03_JPRB,0.98737E+03_JPRB,0.99138E+03_JPRB,0.99390E+03_JPRB,0.99503E+03_JPRB /)  
+KA(:,10,10) = (/ &
+ & 0.98010E+03_JPRB,0.98517E+03_JPRB,0.98974E+03_JPRB,0.99281E+03_JPRB,0.99470E+03_JPRB /)  
+KA(:,11,10) = (/ &
+ & 0.98010E+03_JPRB,0.98509E+03_JPRB,0.98985E+03_JPRB,0.99280E+03_JPRB,0.99468E+03_JPRB /)  
+KA(:,12,10) = (/ &
+ & 0.98035E+03_JPRB,0.98524E+03_JPRB,0.98973E+03_JPRB,0.99279E+03_JPRB,0.99468E+03_JPRB /)  
+KA(:,13,10) = (/ &
+ & 0.98012E+03_JPRB,0.98526E+03_JPRB,0.98973E+03_JPRB,0.99279E+03_JPRB,0.99468E+03_JPRB /)  
+KA(:, 1,11) = (/ &
+ & 0.12266E+08_JPRB,0.12000E+08_JPRB,0.11724E+08_JPRB,0.11828E+08_JPRB,0.11523E+08_JPRB /)  
+KA(:, 2,11) = (/ &
+ & 0.10001E+04_JPRB,0.99984E+03_JPRB,0.99745E+03_JPRB,0.99535E+03_JPRB,0.98599E+03_JPRB /)  
+KA(:, 3,11) = (/ &
+ & 0.99963E+03_JPRB,0.99927E+03_JPRB,0.99848E+03_JPRB,0.99596E+03_JPRB,0.99390E+03_JPRB /)  
+KA(:, 4,11) = (/ &
+ & 0.99904E+03_JPRB,0.99942E+03_JPRB,0.99870E+03_JPRB,0.99747E+03_JPRB,0.99542E+03_JPRB /)  
+KA(:, 5,11) = (/ &
+ & 0.99826E+03_JPRB,0.99927E+03_JPRB,0.99919E+03_JPRB,0.99821E+03_JPRB,0.99627E+03_JPRB /)  
+KA(:, 6,11) = (/ &
+ & 0.99730E+03_JPRB,0.99882E+03_JPRB,0.99938E+03_JPRB,0.99902E+03_JPRB,0.99764E+03_JPRB /)  
+KA(:, 7,11) = (/ &
+ & 0.99551E+03_JPRB,0.99810E+03_JPRB,0.99919E+03_JPRB,0.99961E+03_JPRB,0.99863E+03_JPRB /)  
+KA(:, 8,11) = (/ &
+ & 0.99324E+03_JPRB,0.99688E+03_JPRB,0.99871E+03_JPRB,0.99940E+03_JPRB,0.99942E+03_JPRB /)  
+KA(:, 9,11) = (/ &
+ & 0.99058E+03_JPRB,0.99489E+03_JPRB,0.99773E+03_JPRB,0.99912E+03_JPRB,0.99954E+03_JPRB /)  
+KA(:,10,11) = (/ &
+ & 0.98802E+03_JPRB,0.99297E+03_JPRB,0.99656E+03_JPRB,0.99861E+03_JPRB,0.99937E+03_JPRB /)  
+KA(:,11,11) = (/ &
+ & 0.98800E+03_JPRB,0.99310E+03_JPRB,0.99655E+03_JPRB,0.99860E+03_JPRB,0.99936E+03_JPRB /)  
+KA(:,12,11) = (/ &
+ & 0.98771E+03_JPRB,0.99296E+03_JPRB,0.99669E+03_JPRB,0.99859E+03_JPRB,0.99936E+03_JPRB /)  
+KA(:,13,11) = (/ &
+ & 0.98800E+03_JPRB,0.99296E+03_JPRB,0.99655E+03_JPRB,0.99859E+03_JPRB,0.99936E+03_JPRB /)  
+KA(:, 1,12) = (/ &
+ & 0.12503E+08_JPRB,0.11946E+08_JPRB,0.11557E+08_JPRB,0.11503E+08_JPRB,0.11901E+08_JPRB /)  
+KA(:, 2,12) = (/ &
+ & 0.10015E+04_JPRB,0.10004E+04_JPRB,0.99932E+03_JPRB,0.99373E+03_JPRB,0.98591E+03_JPRB /)  
+KA(:, 3,12) = (/ &
+ & 0.10024E+04_JPRB,0.10021E+04_JPRB,0.10003E+04_JPRB,0.99817E+03_JPRB,0.99146E+03_JPRB /)  
+KA(:, 4,12) = (/ &
+ & 0.10022E+04_JPRB,0.10027E+04_JPRB,0.10021E+04_JPRB,0.99956E+03_JPRB,0.99610E+03_JPRB /)  
+KA(:, 5,12) = (/ &
+ & 0.10024E+04_JPRB,0.10024E+04_JPRB,0.10028E+04_JPRB,0.10015E+04_JPRB,0.99826E+03_JPRB /)  
+KA(:, 6,12) = (/ &
+ & 0.10017E+04_JPRB,0.10025E+04_JPRB,0.10025E+04_JPRB,0.10023E+04_JPRB,0.10008E+04_JPRB /)  
+KA(:, 7,12) = (/ &
+ & 0.10005E+04_JPRB,0.10020E+04_JPRB,0.10028E+04_JPRB,0.10028E+04_JPRB,0.10019E+04_JPRB /)  
+KA(:, 8,12) = (/ &
+ & 0.10000E+04_JPRB,0.10010E+04_JPRB,0.10024E+04_JPRB,0.10029E+04_JPRB,0.10023E+04_JPRB /)  
+KA(:, 9,12) = (/ &
+ & 0.99906E+03_JPRB,0.10004E+04_JPRB,0.10018E+04_JPRB,0.10029E+04_JPRB,0.10028E+04_JPRB /)  
+KA(:,10,12) = (/ &
+ & 0.99791E+03_JPRB,0.99989E+03_JPRB,0.10010E+04_JPRB,0.10024E+04_JPRB,0.10031E+04_JPRB /)  
+KA(:,11,12) = (/ &
+ & 0.99769E+03_JPRB,0.99967E+03_JPRB,0.10008E+04_JPRB,0.10024E+04_JPRB,0.10029E+04_JPRB /)  
+KA(:,12,12) = (/ &
+ & 0.99787E+03_JPRB,0.99985E+03_JPRB,0.10008E+04_JPRB,0.10025E+04_JPRB,0.10029E+04_JPRB /)  
+KA(:,13,12) = (/ &
+ & 0.99768E+03_JPRB,0.99984E+03_JPRB,0.10012E+04_JPRB,0.10026E+04_JPRB,0.10029E+04_JPRB /)  
+KA(:, 1,13) = (/ &
+ & 0.12359E+08_JPRB,0.12469E+08_JPRB,0.12868E+08_JPRB,0.12776E+08_JPRB,0.12590E+08_JPRB /)  
+KA(:, 2,13) = (/ &
+ & 0.10045E+04_JPRB,0.10033E+04_JPRB,0.99840E+03_JPRB,0.99184E+03_JPRB,0.98861E+03_JPRB /)  
+KA(:, 3,13) = (/ &
+ & 0.10050E+04_JPRB,0.10041E+04_JPRB,0.10024E+04_JPRB,0.99701E+03_JPRB,0.99083E+03_JPRB /)  
+KA(:, 4,13) = (/ &
+ & 0.10053E+04_JPRB,0.10043E+04_JPRB,0.10035E+04_JPRB,0.10017E+04_JPRB,0.99538E+03_JPRB /)  
+KA(:, 5,13) = (/ &
+ & 0.10048E+04_JPRB,0.10056E+04_JPRB,0.10038E+04_JPRB,0.10026E+04_JPRB,0.10008E+04_JPRB /)  
+KA(:, 6,13) = (/ &
+ & 0.10042E+04_JPRB,0.10054E+04_JPRB,0.10054E+04_JPRB,0.10039E+04_JPRB,0.10017E+04_JPRB /)  
+KA(:, 7,13) = (/ &
+ & 0.10029E+04_JPRB,0.10046E+04_JPRB,0.10055E+04_JPRB,0.10046E+04_JPRB,0.10033E+04_JPRB /)  
+KA(:, 8,13) = (/ &
+ & 0.10002E+04_JPRB,0.10039E+04_JPRB,0.10051E+04_JPRB,0.10054E+04_JPRB,0.10046E+04_JPRB /)  
+KA(:, 9,13) = (/ &
+ & 0.99825E+03_JPRB,0.10019E+04_JPRB,0.10043E+04_JPRB,0.10051E+04_JPRB,0.10052E+04_JPRB /)  
+KA(:,10,13) = (/ &
+ & 0.99595E+03_JPRB,0.99983E+03_JPRB,0.10034E+04_JPRB,0.10050E+04_JPRB,0.10051E+04_JPRB /)  
+KA(:,11,13) = (/ &
+ & 0.99621E+03_JPRB,0.99979E+03_JPRB,0.10034E+04_JPRB,0.10050E+04_JPRB,0.10054E+04_JPRB /)  
+KA(:,12,13) = (/ &
+ & 0.99597E+03_JPRB,0.99979E+03_JPRB,0.10031E+04_JPRB,0.10047E+04_JPRB,0.10054E+04_JPRB /)  
+KA(:,13,13) = (/ &
+ & 0.99623E+03_JPRB,0.99978E+03_JPRB,0.10031E+04_JPRB,0.10047E+04_JPRB,0.10054E+04_JPRB /)  
+KA(:, 1,14) = (/ &
+ & 0.13636E+08_JPRB,0.13818E+08_JPRB,0.13518E+08_JPRB,0.13266E+08_JPRB,0.13048E+08_JPRB /)  
+KA(:, 2,14) = (/ &
+ & 0.10049E+04_JPRB,0.99946E+03_JPRB,0.99774E+03_JPRB,0.99774E+03_JPRB,0.99771E+03_JPRB /)  
+KA(:, 3,14) = (/ &
+ & 0.10051E+04_JPRB,0.10068E+04_JPRB,0.10007E+04_JPRB,0.99775E+03_JPRB,0.99778E+03_JPRB /)  
+KA(:, 4,14) = (/ &
+ & 0.10071E+04_JPRB,0.10061E+04_JPRB,0.10050E+04_JPRB,0.10005E+04_JPRB,0.99776E+03_JPRB /)  
+KA(:, 5,14) = (/ &
+ & 0.10067E+04_JPRB,0.10072E+04_JPRB,0.10061E+04_JPRB,0.10044E+04_JPRB,0.99972E+03_JPRB /)  
+KA(:, 6,14) = (/ &
+ & 0.10049E+04_JPRB,0.10070E+04_JPRB,0.10074E+04_JPRB,0.10057E+04_JPRB,0.10037E+04_JPRB /)  
+KA(:, 7,14) = (/ &
+ & 0.10033E+04_JPRB,0.10063E+04_JPRB,0.10072E+04_JPRB,0.10067E+04_JPRB,0.10050E+04_JPRB /)  
+KA(:, 8,14) = (/ &
+ & 0.10025E+04_JPRB,0.10048E+04_JPRB,0.10068E+04_JPRB,0.10071E+04_JPRB,0.10062E+04_JPRB /)  
+KA(:, 9,14) = (/ &
+ & 0.99880E+03_JPRB,0.10031E+04_JPRB,0.10060E+04_JPRB,0.10071E+04_JPRB,0.10069E+04_JPRB /)  
+KA(:,10,14) = (/ &
+ & 0.99610E+03_JPRB,0.10023E+04_JPRB,0.10047E+04_JPRB,0.10067E+04_JPRB,0.10072E+04_JPRB /)  
+KA(:,11,14) = (/ &
+ & 0.99601E+03_JPRB,0.10023E+04_JPRB,0.10047E+04_JPRB,0.10067E+04_JPRB,0.10072E+04_JPRB /)  
+KA(:,12,14) = (/ &
+ & 0.99598E+03_JPRB,0.10023E+04_JPRB,0.10051E+04_JPRB,0.10067E+04_JPRB,0.10076E+04_JPRB /)  
+KA(:,13,14) = (/ &
+ & 0.99596E+03_JPRB,0.10027E+04_JPRB,0.10047E+04_JPRB,0.10067E+04_JPRB,0.10072E+04_JPRB /)  
+KA(:, 1,15) = (/ &
+ & 0.14285E+08_JPRB,0.13947E+08_JPRB,0.13644E+08_JPRB,0.13317E+08_JPRB,0.13015E+08_JPRB /)  
+KA(:, 2,15) = (/ &
+ & 0.99932E+03_JPRB,0.10011E+04_JPRB,0.10018E+04_JPRB,0.10007E+04_JPRB,0.99706E+03_JPRB /)  
+KA(:, 3,15) = (/ &
+ & 0.10097E+04_JPRB,0.99743E+03_JPRB,0.10015E+04_JPRB,0.10018E+04_JPRB,0.99920E+03_JPRB /)  
+KA(:, 4,15) = (/ &
+ & 0.10099E+04_JPRB,0.10076E+04_JPRB,0.10030E+04_JPRB,0.10017E+04_JPRB,0.10013E+04_JPRB /)  
+KA(:, 5,15) = (/ &
+ & 0.10075E+04_JPRB,0.10079E+04_JPRB,0.10073E+04_JPRB,0.10035E+04_JPRB,0.10018E+04_JPRB /)  
+KA(:, 6,15) = (/ &
+ & 0.10068E+04_JPRB,0.10088E+04_JPRB,0.10068E+04_JPRB,0.10090E+04_JPRB,0.10033E+04_JPRB /)  
+KA(:, 7,15) = (/ &
+ & 0.10057E+04_JPRB,0.10073E+04_JPRB,0.10090E+04_JPRB,0.10087E+04_JPRB,0.10062E+04_JPRB /)  
+KA(:, 8,15) = (/ &
+ & 0.10010E+04_JPRB,0.10054E+04_JPRB,0.10076E+04_JPRB,0.10079E+04_JPRB,0.10072E+04_JPRB /)  
+KA(:, 9,15) = (/ &
+ & 0.99853E+03_JPRB,0.10054E+04_JPRB,0.10071E+04_JPRB,0.10079E+04_JPRB,0.10078E+04_JPRB /)  
+KA(:,10,15) = (/ &
+ & 0.99742E+03_JPRB,0.10007E+04_JPRB,0.10064E+04_JPRB,0.10076E+04_JPRB,0.10080E+04_JPRB /)  
+KA(:,11,15) = (/ &
+ & 0.99635E+03_JPRB,0.10006E+04_JPRB,0.10064E+04_JPRB,0.10087E+04_JPRB,0.10090E+04_JPRB /)  
+KA(:,12,15) = (/ &
+ & 0.99635E+03_JPRB,0.10006E+04_JPRB,0.10064E+04_JPRB,0.10087E+04_JPRB,0.10069E+04_JPRB /)  
+KA(:,13,15) = (/ &
+ & 0.99635E+03_JPRB,0.99960E+03_JPRB,0.10064E+04_JPRB,0.10076E+04_JPRB,0.10080E+04_JPRB /)  
+KA(:, 1,16) = (/ &
+ & 0.14326E+08_JPRB,0.13988E+08_JPRB,0.13684E+08_JPRB,0.13409E+08_JPRB,0.13021E+08_JPRB /)  
+KA(:, 2,16) = (/ &
+ & 0.10008E+04_JPRB,0.10027E+04_JPRB,0.10036E+04_JPRB,0.10037E+04_JPRB,0.99673E+03_JPRB /)  
+KA(:, 3,16) = (/ &
+ & 0.99286E+03_JPRB,0.10016E+04_JPRB,0.10031E+04_JPRB,0.10038E+04_JPRB,0.10035E+04_JPRB /)  
+KA(:, 4,16) = (/ &
+ & 0.99278E+03_JPRB,0.10078E+04_JPRB,0.10023E+04_JPRB,0.10035E+04_JPRB,0.10038E+04_JPRB /)  
+KA(:, 5,16) = (/ &
+ & 0.10074E+04_JPRB,0.10079E+04_JPRB,0.10075E+04_JPRB,0.10028E+04_JPRB,0.10037E+04_JPRB /)  
+KA(:, 6,16) = (/ &
+ & 0.10069E+04_JPRB,0.10002E+04_JPRB,0.10079E+04_JPRB,0.99212E+03_JPRB,0.10032E+04_JPRB /)  
+KA(:, 7,16) = (/ &
+ & 0.10060E+04_JPRB,0.10072E+04_JPRB,0.10004E+04_JPRB,0.10003E+04_JPRB,0.10063E+04_JPRB /)  
+KA(:, 8,16) = (/ &
+ & 0.10009E+04_JPRB,0.10066E+04_JPRB,0.10075E+04_JPRB,0.10080E+04_JPRB,0.10074E+04_JPRB /)  
+KA(:, 9,16) = (/ &
+ & 0.99860E+03_JPRB,0.10057E+04_JPRB,0.10071E+04_JPRB,0.10078E+04_JPRB,0.10079E+04_JPRB /)  
+KA(:,10,16) = (/ &
+ & 0.98908E+03_JPRB,0.10006E+04_JPRB,0.10065E+04_JPRB,0.10075E+04_JPRB,0.10080E+04_JPRB /)  
+KA(:,11,16) = (/ &
+ & 0.99644E+03_JPRB,0.10006E+04_JPRB,0.10065E+04_JPRB,0.10000E+04_JPRB,0.10005E+04_JPRB /)  
+KA(:,12,16) = (/ &
+ & 0.99644E+03_JPRB,0.10006E+04_JPRB,0.10065E+04_JPRB,0.10000E+04_JPRB,0.10080E+04_JPRB /)  
+KA(:,13,16) = (/ &
+ & 0.99644E+03_JPRB,0.10006E+04_JPRB,0.10065E+04_JPRB,0.10075E+04_JPRB,0.10080E+04_JPRB /)  
+  
+!     -----------------------------------------------------------------
+!     The array KB contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels < ~100mb and temperatures. The first 
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this pressure 
+!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for
+!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  
+!     The second index, JP, runs from 13 to 59 and refers to the JPth
+!     reference pressure level (see taumol.f for the value of these
+!     pressure levels in mb).  The third index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+!     -----------------------------------------------------------------
+  
+KB(:,13, 1) = (/ &
+ & 0.16036E+00_JPRB,0.16399E+00_JPRB,0.17198E+00_JPRB,0.18455E+00_JPRB,0.20173E+00_JPRB /)  
+KB(:,14, 1) = (/ &
+ & 0.16050E+00_JPRB,0.16454E+00_JPRB,0.17292E+00_JPRB,0.18592E+00_JPRB,0.20351E+00_JPRB /)  
+KB(:,15, 1) = (/ &
+ & 0.16071E+00_JPRB,0.16519E+00_JPRB,0.17400E+00_JPRB,0.18750E+00_JPRB,0.20554E+00_JPRB /)  
+KB(:,16, 1) = (/ &
+ & 0.16098E+00_JPRB,0.16593E+00_JPRB,0.17517E+00_JPRB,0.18921E+00_JPRB,0.20772E+00_JPRB /)  
+KB(:,17, 1) = (/ &
+ & 0.16129E+00_JPRB,0.16670E+00_JPRB,0.17642E+00_JPRB,0.19093E+00_JPRB,0.20991E+00_JPRB /)  
+KB(:,18, 1) = (/ &
+ & 0.16164E+00_JPRB,0.16750E+00_JPRB,0.17771E+00_JPRB,0.19267E+00_JPRB,0.21211E+00_JPRB /)  
+KB(:,19, 1) = (/ &
+ & 0.16203E+00_JPRB,0.16832E+00_JPRB,0.17901E+00_JPRB,0.19443E+00_JPRB,0.21431E+00_JPRB /)  
+KB(:,20, 1) = (/ &
+ & 0.16255E+00_JPRB,0.16934E+00_JPRB,0.18059E+00_JPRB,0.19653E+00_JPRB,0.21694E+00_JPRB /)  
+KB(:,21, 1) = (/ &
+ & 0.16313E+00_JPRB,0.17044E+00_JPRB,0.18225E+00_JPRB,0.19873E+00_JPRB,0.21967E+00_JPRB /)  
+KB(:,22, 1) = (/ &
+ & 0.16416E+00_JPRB,0.17227E+00_JPRB,0.18498E+00_JPRB,0.20229E+00_JPRB,0.22406E+00_JPRB /)  
+KB(:,23, 1) = (/ &
+ & 0.16539E+00_JPRB,0.17431E+00_JPRB,0.18796E+00_JPRB,0.20612E+00_JPRB,0.22875E+00_JPRB /)  
+KB(:,24, 1) = (/ &
+ & 0.16684E+00_JPRB,0.17666E+00_JPRB,0.19125E+00_JPRB,0.21032E+00_JPRB,0.23385E+00_JPRB /)  
+KB(:,25, 1) = (/ &
+ & 0.16856E+00_JPRB,0.17939E+00_JPRB,0.19493E+00_JPRB,0.21495E+00_JPRB,0.23943E+00_JPRB /)  
+KB(:,26, 1) = (/ &
+ & 0.17067E+00_JPRB,0.18260E+00_JPRB,0.19919E+00_JPRB,0.22024E+00_JPRB,0.24578E+00_JPRB /)  
+KB(:,27, 1) = (/ &
+ & 0.17306E+00_JPRB,0.18613E+00_JPRB,0.20377E+00_JPRB,0.22588E+00_JPRB,0.25248E+00_JPRB /)  
+KB(:,28, 1) = (/ &
+ & 0.17570E+00_JPRB,0.18994E+00_JPRB,0.20865E+00_JPRB,0.23184E+00_JPRB,0.25952E+00_JPRB /)  
+KB(:,29, 1) = (/ &
+ & 0.17882E+00_JPRB,0.19417E+00_JPRB,0.21399E+00_JPRB,0.23828E+00_JPRB,0.26708E+00_JPRB /)  
+KB(:,30, 1) = (/ &
+ & 0.18223E+00_JPRB,0.19870E+00_JPRB,0.21964E+00_JPRB,0.24505E+00_JPRB,0.27492E+00_JPRB /)  
+KB(:,31, 1) = (/ &
+ & 0.18602E+00_JPRB,0.20364E+00_JPRB,0.22572E+00_JPRB,0.25229E+00_JPRB,0.28325E+00_JPRB /)  
+KB(:,32, 1) = (/ &
+ & 0.19018E+00_JPRB,0.20895E+00_JPRB,0.23219E+00_JPRB,0.25994E+00_JPRB,0.29200E+00_JPRB /)  
+KB(:,33, 1) = (/ &
+ & 0.19466E+00_JPRB,0.21461E+00_JPRB,0.23902E+00_JPRB,0.26795E+00_JPRB,0.30114E+00_JPRB /)  
+KB(:,34, 1) = (/ &
+ & 0.19880E+00_JPRB,0.21976E+00_JPRB,0.24520E+00_JPRB,0.27509E+00_JPRB,0.30932E+00_JPRB /)  
+KB(:,35, 1) = (/ &
+ & 0.20129E+00_JPRB,0.22283E+00_JPRB,0.24886E+00_JPRB,0.27931E+00_JPRB,0.31412E+00_JPRB /)  
+KB(:,36, 1) = (/ &
+ & 0.20170E+00_JPRB,0.22334E+00_JPRB,0.24946E+00_JPRB,0.28000E+00_JPRB,0.31492E+00_JPRB /)  
+KB(:,37, 1) = (/ &
+ & 0.19920E+00_JPRB,0.22026E+00_JPRB,0.24579E+00_JPRB,0.27578E+00_JPRB,0.31010E+00_JPRB /)  
+KB(:,38, 1) = (/ &
+ & 0.19662E+00_JPRB,0.21706E+00_JPRB,0.24197E+00_JPRB,0.27135E+00_JPRB,0.30504E+00_JPRB /)  
+KB(:,39, 1) = (/ &
+ & 0.19414E+00_JPRB,0.21396E+00_JPRB,0.23824E+00_JPRB,0.26704E+00_JPRB,0.30010E+00_JPRB /)  
+KB(:,40, 1) = (/ &
+ & 0.19003E+00_JPRB,0.20877E+00_JPRB,0.23197E+00_JPRB,0.25968E+00_JPRB,0.29171E+00_JPRB /)  
+KB(:,41, 1) = (/ &
+ & 0.18597E+00_JPRB,0.20357E+00_JPRB,0.22564E+00_JPRB,0.25219E+00_JPRB,0.28314E+00_JPRB /)  
+KB(:,42, 1) = (/ &
+ & 0.18220E+00_JPRB,0.19865E+00_JPRB,0.21958E+00_JPRB,0.24498E+00_JPRB,0.27484E+00_JPRB /)  
+KB(:,43, 1) = (/ &
+ & 0.17798E+00_JPRB,0.19304E+00_JPRB,0.21257E+00_JPRB,0.23657E+00_JPRB,0.26510E+00_JPRB /)  
+KB(:,44, 1) = (/ &
+ & 0.17397E+00_JPRB,0.18746E+00_JPRB,0.20548E+00_JPRB,0.22798E+00_JPRB,0.25496E+00_JPRB /)  
+KB(:,45, 1) = (/ &
+ & 0.17053E+00_JPRB,0.18239E+00_JPRB,0.19890E+00_JPRB,0.21989E+00_JPRB,0.24535E+00_JPRB /)  
+KB(:,46, 1) = (/ &
+ & 0.16739E+00_JPRB,0.17754E+00_JPRB,0.19245E+00_JPRB,0.21183E+00_JPRB,0.23568E+00_JPRB /)  
+KB(:,47, 1) = (/ &
+ & 0.16454E+00_JPRB,0.17292E+00_JPRB,0.18592E+00_JPRB,0.20351E+00_JPRB,0.22556E+00_JPRB /)  
+KB(:,48, 1) = (/ &
+ & 0.16239E+00_JPRB,0.16903E+00_JPRB,0.18011E+00_JPRB,0.19590E+00_JPRB,0.21615E+00_JPRB /)  
+KB(:,49, 1) = (/ &
+ & 0.16095E+00_JPRB,0.16584E+00_JPRB,0.17504E+00_JPRB,0.18902E+00_JPRB,0.20747E+00_JPRB /)  
+KB(:,50, 1) = (/ &
+ & 0.16025E+00_JPRB,0.16348E+00_JPRB,0.17109E+00_JPRB,0.18322E+00_JPRB,0.20000E+00_JPRB /)  
+KB(:,51, 1) = (/ &
+ & 0.16021E+00_JPRB,0.16179E+00_JPRB,0.16781E+00_JPRB,0.17821E+00_JPRB,0.19335E+00_JPRB /)  
+KB(:,52, 1) = (/ &
+ & 0.16078E+00_JPRB,0.16068E+00_JPRB,0.16511E+00_JPRB,0.17387E+00_JPRB,0.18731E+00_JPRB /)  
+KB(:,53, 1) = (/ &
+ & 0.16197E+00_JPRB,0.16018E+00_JPRB,0.16299E+00_JPRB,0.17017E+00_JPRB,0.18186E+00_JPRB /)  
+KB(:,54, 1) = (/ &
+ & 0.16362E+00_JPRB,0.16026E+00_JPRB,0.16155E+00_JPRB,0.16729E+00_JPRB,0.17738E+00_JPRB /)  
+KB(:,55, 1) = (/ &
+ & 0.16570E+00_JPRB,0.16083E+00_JPRB,0.16064E+00_JPRB,0.16498E+00_JPRB,0.17365E+00_JPRB /)  
+KB(:,56, 1) = (/ &
+ & 0.16825E+00_JPRB,0.16187E+00_JPRB,0.16020E+00_JPRB,0.16311E+00_JPRB,0.17041E+00_JPRB /)  
+KB(:,57, 1) = (/ &
+ & 0.17129E+00_JPRB,0.16340E+00_JPRB,0.16023E+00_JPRB,0.16169E+00_JPRB,0.16761E+00_JPRB /)  
+KB(:,58, 1) = (/ &
+ & 0.17462E+00_JPRB,0.16529E+00_JPRB,0.16069E+00_JPRB,0.16077E+00_JPRB,0.16535E+00_JPRB /)  
+KB(:,59, 1) = (/ &
+ & 0.17607E+00_JPRB,0.16617E+00_JPRB,0.16100E+00_JPRB,0.16051E+00_JPRB,0.16456E+00_JPRB /)  
+KB(:,13, 2) = (/ &
+ & 0.17525E+01_JPRB,0.17727E+01_JPRB,0.18119E+01_JPRB,0.18712E+01_JPRB,0.19491E+01_JPRB /)  
+KB(:,14, 2) = (/ &
+ & 0.17536E+01_JPRB,0.17755E+01_JPRB,0.18165E+01_JPRB,0.18775E+01_JPRB,0.19571E+01_JPRB /)  
+KB(:,15, 2) = (/ &
+ & 0.17549E+01_JPRB,0.17787E+01_JPRB,0.18219E+01_JPRB,0.18847E+01_JPRB,0.19662E+01_JPRB /)  
+KB(:,16, 2) = (/ &
+ & 0.17565E+01_JPRB,0.17819E+01_JPRB,0.18278E+01_JPRB,0.18925E+01_JPRB,0.19761E+01_JPRB /)  
+KB(:,17, 2) = (/ &
+ & 0.17583E+01_JPRB,0.17850E+01_JPRB,0.18336E+01_JPRB,0.19003E+01_JPRB,0.19859E+01_JPRB /)  
+KB(:,18, 2) = (/ &
+ & 0.17603E+01_JPRB,0.17891E+01_JPRB,0.18396E+01_JPRB,0.19082E+01_JPRB,0.19957E+01_JPRB /)  
+KB(:,19, 2) = (/ &
+ & 0.17624E+01_JPRB,0.17934E+01_JPRB,0.18457E+01_JPRB,0.19162E+01_JPRB,0.20056E+01_JPRB /)  
+KB(:,20, 2) = (/ &
+ & 0.17652E+01_JPRB,0.17986E+01_JPRB,0.18530E+01_JPRB,0.19257E+01_JPRB,0.20174E+01_JPRB /)  
+KB(:,21, 2) = (/ &
+ & 0.17683E+01_JPRB,0.18042E+01_JPRB,0.18607E+01_JPRB,0.19356E+01_JPRB,0.20296E+01_JPRB /)  
+KB(:,22, 2) = (/ &
+ & 0.17736E+01_JPRB,0.18133E+01_JPRB,0.18732E+01_JPRB,0.19516E+01_JPRB,0.20492E+01_JPRB /)  
+KB(:,23, 2) = (/ &
+ & 0.17796E+01_JPRB,0.18234E+01_JPRB,0.18868E+01_JPRB,0.19689E+01_JPRB,0.20702E+01_JPRB /)  
+KB(:,24, 2) = (/ &
+ & 0.17857E+01_JPRB,0.18347E+01_JPRB,0.19018E+01_JPRB,0.19877E+01_JPRB,0.20929E+01_JPRB /)  
+KB(:,25, 2) = (/ &
+ & 0.17946E+01_JPRB,0.18475E+01_JPRB,0.19185E+01_JPRB,0.20085E+01_JPRB,0.21178E+01_JPRB /)  
+KB(:,26, 2) = (/ &
+ & 0.18053E+01_JPRB,0.18623E+01_JPRB,0.19377E+01_JPRB,0.20322E+01_JPRB,0.21460E+01_JPRB /)  
+KB(:,27, 2) = (/ &
+ & 0.18172E+01_JPRB,0.18785E+01_JPRB,0.19583E+01_JPRB,0.20574E+01_JPRB,0.21757E+01_JPRB /)  
+KB(:,28, 2) = (/ &
+ & 0.18303E+01_JPRB,0.18959E+01_JPRB,0.19802E+01_JPRB,0.20839E+01_JPRB,0.22069E+01_JPRB /)  
+KB(:,29, 2) = (/ &
+ & 0.18448E+01_JPRB,0.19150E+01_JPRB,0.20042E+01_JPRB,0.21126E+01_JPRB,0.22404E+01_JPRB /)  
+KB(:,30, 2) = (/ &
+ & 0.18606E+01_JPRB,0.19355E+01_JPRB,0.20295E+01_JPRB,0.21428E+01_JPRB,0.22754E+01_JPRB /)  
+KB(:,31, 2) = (/ &
+ & 0.18780E+01_JPRB,0.19577E+01_JPRB,0.20566E+01_JPRB,0.21749E+01_JPRB,0.23125E+01_JPRB /)  
+KB(:,32, 2) = (/ &
+ & 0.18969E+01_JPRB,0.19816E+01_JPRB,0.20855E+01_JPRB,0.22088E+01_JPRB,0.23514E+01_JPRB /)  
+KB(:,33, 2) = (/ &
+ & 0.19172E+01_JPRB,0.20069E+01_JPRB,0.21160E+01_JPRB,0.22443E+01_JPRB,0.23920E+01_JPRB /)  
+KB(:,34, 2) = (/ &
+ & 0.19359E+01_JPRB,0.20300E+01_JPRB,0.21434E+01_JPRB,0.22762E+01_JPRB,0.24282E+01_JPRB /)  
+KB(:,35, 2) = (/ &
+ & 0.19471E+01_JPRB,0.20437E+01_JPRB,0.21597E+01_JPRB,0.22949E+01_JPRB,0.24495E+01_JPRB /)  
+KB(:,36, 2) = (/ &
+ & 0.19490E+01_JPRB,0.20460E+01_JPRB,0.21624E+01_JPRB,0.22980E+01_JPRB,0.24530E+01_JPRB /)  
+KB(:,37, 2) = (/ &
+ & 0.19377E+01_JPRB,0.20322E+01_JPRB,0.21461E+01_JPRB,0.22792E+01_JPRB,0.24317E+01_JPRB /)  
+KB(:,38, 2) = (/ &
+ & 0.19261E+01_JPRB,0.20179E+01_JPRB,0.21291E+01_JPRB,0.22595E+01_JPRB,0.24093E+01_JPRB /)  
+KB(:,39, 2) = (/ &
+ & 0.19149E+01_JPRB,0.20040E+01_JPRB,0.21125E+01_JPRB,0.22402E+01_JPRB,0.23873E+01_JPRB /)  
+KB(:,40, 2) = (/ &
+ & 0.18963E+01_JPRB,0.19807E+01_JPRB,0.20845E+01_JPRB,0.22076E+01_JPRB,0.23501E+01_JPRB /)  
+KB(:,41, 2) = (/ &
+ & 0.18778E+01_JPRB,0.19574E+01_JPRB,0.20563E+01_JPRB,0.21745E+01_JPRB,0.23120E+01_JPRB /)  
+KB(:,42, 2) = (/ &
+ & 0.18604E+01_JPRB,0.19352E+01_JPRB,0.20292E+01_JPRB,0.21425E+01_JPRB,0.22750E+01_JPRB /)  
+KB(:,43, 2) = (/ &
+ & 0.18409E+01_JPRB,0.19099E+01_JPRB,0.19978E+01_JPRB,0.21050E+01_JPRB,0.22315E+01_JPRB /)  
+KB(:,44, 2) = (/ &
+ & 0.18217E+01_JPRB,0.18845E+01_JPRB,0.19660E+01_JPRB,0.20667E+01_JPRB,0.21867E+01_JPRB /)  
+KB(:,45, 2) = (/ &
+ & 0.18046E+01_JPRB,0.18613E+01_JPRB,0.19364E+01_JPRB,0.20306E+01_JPRB,0.21441E+01_JPRB /)  
+KB(:,46, 2) = (/ &
+ & 0.17886E+01_JPRB,0.18389E+01_JPRB,0.19072E+01_JPRB,0.19945E+01_JPRB,0.21011E+01_JPRB /)  
+KB(:,47, 2) = (/ &
+ & 0.17755E+01_JPRB,0.18165E+01_JPRB,0.18775E+01_JPRB,0.19571E+01_JPRB,0.20559E+01_JPRB /)  
+KB(:,48, 2) = (/ &
+ & 0.17644E+01_JPRB,0.17970E+01_JPRB,0.18508E+01_JPRB,0.19228E+01_JPRB,0.20139E+01_JPRB /)  
+KB(:,49, 2) = (/ &
+ & 0.17563E+01_JPRB,0.17816E+01_JPRB,0.18271E+01_JPRB,0.18916E+01_JPRB,0.19749E+01_JPRB /)  
+KB(:,50, 2) = (/ &
+ & 0.17517E+01_JPRB,0.17702E+01_JPRB,0.18074E+01_JPRB,0.18651E+01_JPRB,0.19413E+01_JPRB /)  
+KB(:,51, 2) = (/ &
+ & 0.17504E+01_JPRB,0.17611E+01_JPRB,0.17908E+01_JPRB,0.18420E+01_JPRB,0.19113E+01_JPRB /)  
+KB(:,52, 2) = (/ &
+ & 0.17523E+01_JPRB,0.17547E+01_JPRB,0.17783E+01_JPRB,0.18212E+01_JPRB,0.18839E+01_JPRB /)  
+KB(:,53, 2) = (/ &
+ & 0.17566E+01_JPRB,0.17510E+01_JPRB,0.17675E+01_JPRB,0.18028E+01_JPRB,0.18589E+01_JPRB /)  
+KB(:,54, 2) = (/ &
+ & 0.17623E+01_JPRB,0.17507E+01_JPRB,0.17598E+01_JPRB,0.17881E+01_JPRB,0.18381E+01_JPRB /)  
+KB(:,55, 2) = (/ &
+ & 0.17691E+01_JPRB,0.17524E+01_JPRB,0.17544E+01_JPRB,0.17777E+01_JPRB,0.18201E+01_JPRB /)  
+KB(:,56, 2) = (/ &
+ & 0.17776E+01_JPRB,0.17562E+01_JPRB,0.17512E+01_JPRB,0.17682E+01_JPRB,0.18040E+01_JPRB /)  
+KB(:,57, 2) = (/ &
+ & 0.17881E+01_JPRB,0.17616E+01_JPRB,0.17505E+01_JPRB,0.17606E+01_JPRB,0.17897E+01_JPRB /)  
+KB(:,58, 2) = (/ &
+ & 0.17996E+01_JPRB,0.17678E+01_JPRB,0.17520E+01_JPRB,0.17552E+01_JPRB,0.17794E+01_JPRB /)  
+KB(:,59, 2) = (/ &
+ & 0.18045E+01_JPRB,0.17707E+01_JPRB,0.17530E+01_JPRB,0.17536E+01_JPRB,0.17756E+01_JPRB /)  
+KB(:,13, 3) = (/ &
+ & 0.10945E+02_JPRB,0.11052E+02_JPRB,0.11222E+02_JPRB,0.11452E+02_JPRB,0.11744E+02_JPRB /)  
+KB(:,14, 3) = (/ &
+ & 0.10952E+02_JPRB,0.11065E+02_JPRB,0.11240E+02_JPRB,0.11476E+02_JPRB,0.11774E+02_JPRB /)  
+KB(:,15, 3) = (/ &
+ & 0.10961E+02_JPRB,0.11080E+02_JPRB,0.11261E+02_JPRB,0.11503E+02_JPRB,0.11807E+02_JPRB /)  
+KB(:,16, 3) = (/ &
+ & 0.10971E+02_JPRB,0.11097E+02_JPRB,0.11284E+02_JPRB,0.11533E+02_JPRB,0.11844E+02_JPRB /)  
+KB(:,17, 3) = (/ &
+ & 0.10981E+02_JPRB,0.11115E+02_JPRB,0.11307E+02_JPRB,0.11562E+02_JPRB,0.11879E+02_JPRB /)  
+KB(:,18, 3) = (/ &
+ & 0.10992E+02_JPRB,0.11132E+02_JPRB,0.11331E+02_JPRB,0.11592E+02_JPRB,0.11915E+02_JPRB /)  
+KB(:,19, 3) = (/ &
+ & 0.11003E+02_JPRB,0.11149E+02_JPRB,0.11354E+02_JPRB,0.11622E+02_JPRB,0.11951E+02_JPRB /)  
+KB(:,20, 3) = (/ &
+ & 0.11017E+02_JPRB,0.11170E+02_JPRB,0.11382E+02_JPRB,0.11657E+02_JPRB,0.11994E+02_JPRB /)  
+KB(:,21, 3) = (/ &
+ & 0.11031E+02_JPRB,0.11192E+02_JPRB,0.11412E+02_JPRB,0.11694E+02_JPRB,0.12038E+02_JPRB /)  
+KB(:,22, 3) = (/ &
+ & 0.11056E+02_JPRB,0.11228E+02_JPRB,0.11460E+02_JPRB,0.11754E+02_JPRB,0.12109E+02_JPRB /)  
+KB(:,23, 3) = (/ &
+ & 0.11085E+02_JPRB,0.11267E+02_JPRB,0.11511E+02_JPRB,0.11817E+02_JPRB,0.12184E+02_JPRB /)  
+KB(:,24, 3) = (/ &
+ & 0.11118E+02_JPRB,0.11312E+02_JPRB,0.11568E+02_JPRB,0.11886E+02_JPRB,0.12266E+02_JPRB /)  
+KB(:,25, 3) = (/ &
+ & 0.11154E+02_JPRB,0.11361E+02_JPRB,0.11630E+02_JPRB,0.11962E+02_JPRB,0.12354E+02_JPRB /)  
+KB(:,26, 3) = (/ &
+ & 0.11196E+02_JPRB,0.11418E+02_JPRB,0.11702E+02_JPRB,0.12048E+02_JPRB,0.12455E+02_JPRB /)  
+KB(:,27, 3) = (/ &
+ & 0.11243E+02_JPRB,0.11480E+02_JPRB,0.11778E+02_JPRB,0.12138E+02_JPRB,0.12560E+02_JPRB /)  
+KB(:,28, 3) = (/ &
+ & 0.11294E+02_JPRB,0.11545E+02_JPRB,0.11859E+02_JPRB,0.12234E+02_JPRB,0.12670E+02_JPRB /)  
+KB(:,29, 3) = (/ &
+ & 0.11351E+02_JPRB,0.11617E+02_JPRB,0.11946E+02_JPRB,0.12336E+02_JPRB,0.12788E+02_JPRB /)  
+KB(:,30, 3) = (/ &
+ & 0.11411E+02_JPRB,0.11694E+02_JPRB,0.12038E+02_JPRB,0.12443E+02_JPRB,0.12910E+02_JPRB /)  
+KB(:,31, 3) = (/ &
+ & 0.11478E+02_JPRB,0.11776E+02_JPRB,0.12136E+02_JPRB,0.12557E+02_JPRB,0.13040E+02_JPRB /)  
+KB(:,32, 3) = (/ &
+ & 0.11549E+02_JPRB,0.11864E+02_JPRB,0.12239E+02_JPRB,0.12677E+02_JPRB,0.13175E+02_JPRB /)  
+KB(:,33, 3) = (/ &
+ & 0.11626E+02_JPRB,0.11956E+02_JPRB,0.12348E+02_JPRB,0.12801E+02_JPRB,0.13316E+02_JPRB /)  
+KB(:,34, 3) = (/ &
+ & 0.11695E+02_JPRB,0.12040E+02_JPRB,0.12446E+02_JPRB,0.12913E+02_JPRB,0.13442E+02_JPRB /)  
+KB(:,35, 3) = (/ &
+ & 0.11737E+02_JPRB,0.12089E+02_JPRB,0.12503E+02_JPRB,0.12979E+02_JPRB,0.13515E+02_JPRB /)  
+KB(:,36, 3) = (/ &
+ & 0.11744E+02_JPRB,0.12098E+02_JPRB,0.12513E+02_JPRB,0.12989E+02_JPRB,0.13528E+02_JPRB /)  
+KB(:,37, 3) = (/ &
+ & 0.11702E+02_JPRB,0.12048E+02_JPRB,0.12455E+02_JPRB,0.12924E+02_JPRB,0.13454E+02_JPRB /)  
+KB(:,38, 3) = (/ &
+ & 0.11659E+02_JPRB,0.11996E+02_JPRB,0.12395E+02_JPRB,0.12855E+02_JPRB,0.13376E+02_JPRB /)  
+KB(:,39, 3) = (/ &
+ & 0.11617E+02_JPRB,0.11946E+02_JPRB,0.12336E+02_JPRB,0.12787E+02_JPRB,0.13300E+02_JPRB /)  
+KB(:,40, 3) = (/ &
+ & 0.11547E+02_JPRB,0.11861E+02_JPRB,0.12236E+02_JPRB,0.12673E+02_JPRB,0.13171E+02_JPRB /)  
+KB(:,41, 3) = (/ &
+ & 0.11477E+02_JPRB,0.11775E+02_JPRB,0.12134E+02_JPRB,0.12555E+02_JPRB,0.13038E+02_JPRB /)  
+KB(:,42, 3) = (/ &
+ & 0.11411E+02_JPRB,0.11693E+02_JPRB,0.12037E+02_JPRB,0.12442E+02_JPRB,0.12909E+02_JPRB /)  
+KB(:,43, 3) = (/ &
+ & 0.11335E+02_JPRB,0.11598E+02_JPRB,0.11923E+02_JPRB,0.12309E+02_JPRB,0.12757E+02_JPRB /)  
+KB(:,44, 3) = (/ &
+ & 0.11261E+02_JPRB,0.11503E+02_JPRB,0.11807E+02_JPRB,0.12172E+02_JPRB,0.12599E+02_JPRB /)  
+KB(:,45, 3) = (/ &
+ & 0.11193E+02_JPRB,0.11414E+02_JPRB,0.11697E+02_JPRB,0.12042E+02_JPRB,0.12448E+02_JPRB /)  
+KB(:,46, 3) = (/ &
+ & 0.11129E+02_JPRB,0.11328E+02_JPRB,0.11588E+02_JPRB,0.11911E+02_JPRB,0.12295E+02_JPRB /)  
+KB(:,47, 3) = (/ &
+ & 0.11065E+02_JPRB,0.11240E+02_JPRB,0.11476E+02_JPRB,0.11774E+02_JPRB,0.12133E+02_JPRB /)  
+KB(:,48, 3) = (/ &
+ & 0.11012E+02_JPRB,0.11163E+02_JPRB,0.11374E+02_JPRB,0.11647E+02_JPRB,0.11981E+02_JPRB /)  
+KB(:,49, 3) = (/ &
+ & 0.10969E+02_JPRB,0.11095E+02_JPRB,0.11282E+02_JPRB,0.11530E+02_JPRB,0.11839E+02_JPRB /)  
+KB(:,50, 3) = (/ &
+ & 0.10938E+02_JPRB,0.11040E+02_JPRB,0.11204E+02_JPRB,0.11429E+02_JPRB,0.11715E+02_JPRB /)  
+KB(:,51, 3) = (/ &
+ & 0.10916E+02_JPRB,0.10996E+02_JPRB,0.11138E+02_JPRB,0.11340E+02_JPRB,0.11604E+02_JPRB /)  
+KB(:,52, 3) = (/ &
+ & 0.10900E+02_JPRB,0.10960E+02_JPRB,0.11079E+02_JPRB,0.11259E+02_JPRB,0.11500E+02_JPRB /)  
+KB(:,53, 3) = (/ &
+ & 0.10894E+02_JPRB,0.10932E+02_JPRB,0.11028E+02_JPRB,0.11186E+02_JPRB,0.11405E+02_JPRB /)  
+KB(:,54, 3) = (/ &
+ & 0.10895E+02_JPRB,0.10912E+02_JPRB,0.10989E+02_JPRB,0.11127E+02_JPRB,0.11325E+02_JPRB /)  
+KB(:,55, 3) = (/ &
+ & 0.10903E+02_JPRB,0.10900E+02_JPRB,0.10958E+02_JPRB,0.11075E+02_JPRB,0.11255E+02_JPRB /)  
+KB(:,56, 3) = (/ &
+ & 0.10921E+02_JPRB,0.10894E+02_JPRB,0.10933E+02_JPRB,0.11031E+02_JPRB,0.11191E+02_JPRB /)  
+KB(:,57, 3) = (/ &
+ & 0.10944E+02_JPRB,0.10894E+02_JPRB,0.10914E+02_JPRB,0.10993E+02_JPRB,0.11134E+02_JPRB /)  
+KB(:,58, 3) = (/ &
+ & 0.10972E+02_JPRB,0.10901E+02_JPRB,0.10902E+02_JPRB,0.10963E+02_JPRB,0.11084E+02_JPRB /)  
+KB(:,59, 3) = (/ &
+ & 0.10984E+02_JPRB,0.10906E+02_JPRB,0.10898E+02_JPRB,0.10952E+02_JPRB,0.11066E+02_JPRB /)  
+KB(:,13, 4) = (/ &
+ & 0.51563E+02_JPRB,0.51946E+02_JPRB,0.52464E+02_JPRB,0.53116E+02_JPRB,0.53902E+02_JPRB /)  
+KB(:,14, 4) = (/ &
+ & 0.51593E+02_JPRB,0.51987E+02_JPRB,0.52517E+02_JPRB,0.53182E+02_JPRB,0.53980E+02_JPRB /)  
+KB(:,15, 4) = (/ &
+ & 0.51626E+02_JPRB,0.52035E+02_JPRB,0.52579E+02_JPRB,0.53256E+02_JPRB,0.54069E+02_JPRB /)  
+KB(:,16, 4) = (/ &
+ & 0.51664E+02_JPRB,0.52087E+02_JPRB,0.52644E+02_JPRB,0.53337E+02_JPRB,0.54163E+02_JPRB /)  
+KB(:,17, 4) = (/ &
+ & 0.51701E+02_JPRB,0.52138E+02_JPRB,0.52710E+02_JPRB,0.53416E+02_JPRB,0.54257E+02_JPRB /)  
+KB(:,18, 4) = (/ &
+ & 0.51740E+02_JPRB,0.52191E+02_JPRB,0.52776E+02_JPRB,0.53496E+02_JPRB,0.54351E+02_JPRB /)  
+KB(:,19, 4) = (/ &
+ & 0.51779E+02_JPRB,0.52244E+02_JPRB,0.52843E+02_JPRB,0.53576E+02_JPRB,0.54444E+02_JPRB /)  
+KB(:,20, 4) = (/ &
+ & 0.51827E+02_JPRB,0.52307E+02_JPRB,0.52922E+02_JPRB,0.53671E+02_JPRB,0.54555E+02_JPRB /)  
+KB(:,21, 4) = (/ &
+ & 0.51877E+02_JPRB,0.52373E+02_JPRB,0.53004E+02_JPRB,0.53770E+02_JPRB,0.54669E+02_JPRB /)  
+KB(:,22, 4) = (/ &
+ & 0.51959E+02_JPRB,0.52481E+02_JPRB,0.53136E+02_JPRB,0.53927E+02_JPRB,0.54851E+02_JPRB /)  
+KB(:,23, 4) = (/ &
+ & 0.52049E+02_JPRB,0.52596E+02_JPRB,0.53278E+02_JPRB,0.54094E+02_JPRB,0.55044E+02_JPRB /)  
+KB(:,24, 4) = (/ &
+ & 0.52148E+02_JPRB,0.52723E+02_JPRB,0.53431E+02_JPRB,0.54274E+02_JPRB,0.55252E+02_JPRB /)  
+KB(:,25, 4) = (/ &
+ & 0.52259E+02_JPRB,0.52862E+02_JPRB,0.53599E+02_JPRB,0.54471E+02_JPRB,0.55477E+02_JPRB /)  
+KB(:,26, 4) = (/ &
+ & 0.52387E+02_JPRB,0.53022E+02_JPRB,0.53790E+02_JPRB,0.54693E+02_JPRB,0.55730E+02_JPRB /)  
+KB(:,27, 4) = (/ &
+ & 0.52525E+02_JPRB,0.53191E+02_JPRB,0.53992E+02_JPRB,0.54926E+02_JPRB,0.55995E+02_JPRB /)  
+KB(:,28, 4) = (/ &
+ & 0.52672E+02_JPRB,0.53371E+02_JPRB,0.54203E+02_JPRB,0.55170E+02_JPRB,0.56271E+02_JPRB /)  
+KB(:,29, 4) = (/ &
+ & 0.52833E+02_JPRB,0.53565E+02_JPRB,0.54430E+02_JPRB,0.55430E+02_JPRB,0.56565E+02_JPRB /)  
+KB(:,30, 4) = (/ &
+ & 0.53003E+02_JPRB,0.53768E+02_JPRB,0.54668E+02_JPRB,0.55702E+02_JPRB,0.56870E+02_JPRB /)  
+KB(:,31, 4) = (/ &
+ & 0.53186E+02_JPRB,0.53986E+02_JPRB,0.54920E+02_JPRB,0.55988E+02_JPRB,0.57190E+02_JPRB /)  
+KB(:,32, 4) = (/ &
+ & 0.53381E+02_JPRB,0.54216E+02_JPRB,0.55184E+02_JPRB,0.56287E+02_JPRB,0.57525E+02_JPRB /)  
+KB(:,33, 4) = (/ &
+ & 0.53587E+02_JPRB,0.54457E+02_JPRB,0.55460E+02_JPRB,0.56599E+02_JPRB,0.57871E+02_JPRB /)  
+KB(:,34, 4) = (/ &
+ & 0.53773E+02_JPRB,0.54673E+02_JPRB,0.55707E+02_JPRB,0.56876E+02_JPRB,0.58179E+02_JPRB /)  
+KB(:,35, 4) = (/ &
+ & 0.53883E+02_JPRB,0.54800E+02_JPRB,0.55852E+02_JPRB,0.57039E+02_JPRB,0.58359E+02_JPRB /)  
+KB(:,36, 4) = (/ &
+ & 0.53901E+02_JPRB,0.54822E+02_JPRB,0.55876E+02_JPRB,0.57066E+02_JPRB,0.58389E+02_JPRB /)  
+KB(:,37, 4) = (/ &
+ & 0.53791E+02_JPRB,0.54694E+02_JPRB,0.55731E+02_JPRB,0.56903E+02_JPRB,0.58208E+02_JPRB /)  
+KB(:,38, 4) = (/ &
+ & 0.53676E+02_JPRB,0.54560E+02_JPRB,0.55578E+02_JPRB,0.56731E+02_JPRB,0.58018E+02_JPRB /)  
+KB(:,39, 4) = (/ &
+ & 0.53563E+02_JPRB,0.54429E+02_JPRB,0.55429E+02_JPRB,0.56563E+02_JPRB,0.57832E+02_JPRB /)  
+KB(:,40, 4) = (/ &
+ & 0.53375E+02_JPRB,0.54208E+02_JPRB,0.55175E+02_JPRB,0.56277E+02_JPRB,0.57513E+02_JPRB /)  
+KB(:,41, 4) = (/ &
+ & 0.53184E+02_JPRB,0.53983E+02_JPRB,0.54916E+02_JPRB,0.55984E+02_JPRB,0.57186E+02_JPRB /)  
+KB(:,42, 4) = (/ &
+ & 0.53001E+02_JPRB,0.53766E+02_JPRB,0.54665E+02_JPRB,0.55699E+02_JPRB,0.56866E+02_JPRB /)  
+KB(:,43, 4) = (/ &
+ & 0.52790E+02_JPRB,0.53513E+02_JPRB,0.54370E+02_JPRB,0.55362E+02_JPRB,0.56488E+02_JPRB /)  
+KB(:,44, 4) = (/ &
+ & 0.52577E+02_JPRB,0.53254E+02_JPRB,0.54066E+02_JPRB,0.55012E+02_JPRB,0.56093E+02_JPRB /)  
+KB(:,45, 4) = (/ &
+ & 0.52379E+02_JPRB,0.53011E+02_JPRB,0.53777E+02_JPRB,0.54678E+02_JPRB,0.55713E+02_JPRB /)  
+KB(:,46, 4) = (/ &
+ & 0.52184E+02_JPRB,0.52768E+02_JPRB,0.53486E+02_JPRB,0.54339E+02_JPRB,0.55326E+02_JPRB /)  
+KB(:,47, 4) = (/ &
+ & 0.51987E+02_JPRB,0.52517E+02_JPRB,0.53182E+02_JPRB,0.53980E+02_JPRB,0.54913E+02_JPRB /)  
+KB(:,48, 4) = (/ &
+ & 0.51812E+02_JPRB,0.52288E+02_JPRB,0.52898E+02_JPRB,0.53643E+02_JPRB,0.54522E+02_JPRB /)  
+KB(:,49, 4) = (/ &
+ & 0.51659E+02_JPRB,0.52081E+02_JPRB,0.52637E+02_JPRB,0.53327E+02_JPRB,0.54152E+02_JPRB /)  
+KB(:,50, 4) = (/ &
+ & 0.51535E+02_JPRB,0.51906E+02_JPRB,0.52412E+02_JPRB,0.53052E+02_JPRB,0.53826E+02_JPRB /)  
+KB(:,51, 4) = (/ &
+ & 0.51433E+02_JPRB,0.51755E+02_JPRB,0.52211E+02_JPRB,0.52802E+02_JPRB,0.53527E+02_JPRB /)  
+KB(:,52, 4) = (/ &
+ & 0.51349E+02_JPRB,0.51622E+02_JPRB,0.52029E+02_JPRB,0.52571E+02_JPRB,0.53247E+02_JPRB /)  
+KB(:,53, 4) = (/ &
+ & 0.51285E+02_JPRB,0.51507E+02_JPRB,0.51865E+02_JPRB,0.52358E+02_JPRB,0.52985E+02_JPRB /)  
+KB(:,54, 4) = (/ &
+ & 0.51240E+02_JPRB,0.51417E+02_JPRB,0.51730E+02_JPRB,0.52178E+02_JPRB,0.52760E+02_JPRB /)  
+KB(:,55, 4) = (/ &
+ & 0.51211E+02_JPRB,0.51346E+02_JPRB,0.51615E+02_JPRB,0.52020E+02_JPRB,0.52559E+02_JPRB /)  
+KB(:,56, 4) = (/ &
+ & 0.51194E+02_JPRB,0.51288E+02_JPRB,0.51514E+02_JPRB,0.51875E+02_JPRB,0.52371E+02_JPRB /)  
+KB(:,57, 4) = (/ &
+ & 0.51190E+02_JPRB,0.51245E+02_JPRB,0.51426E+02_JPRB,0.51746E+02_JPRB,0.52198E+02_JPRB /)  
+KB(:,58, 4) = (/ &
+ & 0.51200E+02_JPRB,0.51216E+02_JPRB,0.51357E+02_JPRB,0.51635E+02_JPRB,0.52046E+02_JPRB /)  
+KB(:,59, 4) = (/ &
+ & 0.51207E+02_JPRB,0.51207E+02_JPRB,0.51333E+02_JPRB,0.51594E+02_JPRB,0.51989E+02_JPRB /)  
+KB(:,13, 5) = (/ &
+ & 0.17051E+03_JPRB,0.17168E+03_JPRB,0.17297E+03_JPRB,0.17437E+03_JPRB,0.17590E+03_JPRB /)  
+KB(:,14, 5) = (/ &
+ & 0.17061E+03_JPRB,0.17179E+03_JPRB,0.17309E+03_JPRB,0.17451E+03_JPRB,0.17604E+03_JPRB /)  
+KB(:,15, 5) = (/ &
+ & 0.17073E+03_JPRB,0.17192E+03_JPRB,0.17323E+03_JPRB,0.17466E+03_JPRB,0.17621E+03_JPRB /)  
+KB(:,16, 5) = (/ &
+ & 0.17085E+03_JPRB,0.17205E+03_JPRB,0.17338E+03_JPRB,0.17482E+03_JPRB,0.17638E+03_JPRB /)  
+KB(:,17, 5) = (/ &
+ & 0.17097E+03_JPRB,0.17218E+03_JPRB,0.17352E+03_JPRB,0.17497E+03_JPRB,0.17655E+03_JPRB /)  
+KB(:,18, 5) = (/ &
+ & 0.17109E+03_JPRB,0.17232E+03_JPRB,0.17366E+03_JPRB,0.17513E+03_JPRB,0.17671E+03_JPRB /)  
+KB(:,19, 5) = (/ &
+ & 0.17121E+03_JPRB,0.17245E+03_JPRB,0.17381E+03_JPRB,0.17528E+03_JPRB,0.17688E+03_JPRB /)  
+KB(:,20, 5) = (/ &
+ & 0.17134E+03_JPRB,0.17260E+03_JPRB,0.17397E+03_JPRB,0.17547E+03_JPRB,0.17708E+03_JPRB /)  
+KB(:,21, 5) = (/ &
+ & 0.17149E+03_JPRB,0.17276E+03_JPRB,0.17415E+03_JPRB,0.17565E+03_JPRB,0.17728E+03_JPRB /)  
+KB(:,22, 5) = (/ &
+ & 0.17172E+03_JPRB,0.17301E+03_JPRB,0.17442E+03_JPRB,0.17594E+03_JPRB,0.17759E+03_JPRB /)  
+KB(:,23, 5) = (/ &
+ & 0.17195E+03_JPRB,0.17327E+03_JPRB,0.17470E+03_JPRB,0.17625E+03_JPRB,0.17792E+03_JPRB /)  
+KB(:,24, 5) = (/ &
+ & 0.17221E+03_JPRB,0.17355E+03_JPRB,0.17500E+03_JPRB,0.17658E+03_JPRB,0.17827E+03_JPRB /)  
+KB(:,25, 5) = (/ &
+ & 0.17248E+03_JPRB,0.17385E+03_JPRB,0.17533E+03_JPRB,0.17693E+03_JPRB,0.17865E+03_JPRB /)  
+KB(:,26, 5) = (/ &
+ & 0.17279E+03_JPRB,0.17418E+03_JPRB,0.17569E+03_JPRB,0.17732E+03_JPRB,0.17906E+03_JPRB /)  
+KB(:,27, 5) = (/ &
+ & 0.17311E+03_JPRB,0.17453E+03_JPRB,0.17606E+03_JPRB,0.17772E+03_JPRB,0.17949E+03_JPRB /)  
+KB(:,28, 5) = (/ &
+ & 0.17344E+03_JPRB,0.17488E+03_JPRB,0.17645E+03_JPRB,0.17813E+03_JPRB,0.17994E+03_JPRB /)  
+KB(:,29, 5) = (/ &
+ & 0.17379E+03_JPRB,0.17526E+03_JPRB,0.17686E+03_JPRB,0.17857E+03_JPRB,0.18040E+03_JPRB /)  
+KB(:,30, 5) = (/ &
+ & 0.17414E+03_JPRB,0.17565E+03_JPRB,0.17727E+03_JPRB,0.17902E+03_JPRB,0.18088E+03_JPRB /)  
+KB(:,31, 5) = (/ &
+ & 0.17452E+03_JPRB,0.17605E+03_JPRB,0.17771E+03_JPRB,0.17948E+03_JPRB,0.18137E+03_JPRB /)  
+KB(:,32, 5) = (/ &
+ & 0.17491E+03_JPRB,0.17647E+03_JPRB,0.17816E+03_JPRB,0.17996E+03_JPRB,0.18188E+03_JPRB /)  
+KB(:,33, 5) = (/ &
+ & 0.17531E+03_JPRB,0.17690E+03_JPRB,0.17862E+03_JPRB,0.18045E+03_JPRB,0.18241E+03_JPRB /)  
+KB(:,34, 5) = (/ &
+ & 0.17566E+03_JPRB,0.17728E+03_JPRB,0.17903E+03_JPRB,0.18089E+03_JPRB,0.18287E+03_JPRB /)  
+KB(:,35, 5) = (/ &
+ & 0.17586E+03_JPRB,0.17750E+03_JPRB,0.17926E+03_JPRB,0.18114E+03_JPRB,0.18313E+03_JPRB /)  
+KB(:,36, 5) = (/ &
+ & 0.17590E+03_JPRB,0.17754E+03_JPRB,0.17930E+03_JPRB,0.18118E+03_JPRB,0.18318E+03_JPRB /)  
+KB(:,37, 5) = (/ &
+ & 0.17569E+03_JPRB,0.17732E+03_JPRB,0.17906E+03_JPRB,0.18093E+03_JPRB,0.18291E+03_JPRB /)  
+KB(:,38, 5) = (/ &
+ & 0.17547E+03_JPRB,0.17708E+03_JPRB,0.17881E+03_JPRB,0.18066E+03_JPRB,0.18263E+03_JPRB /)  
+KB(:,39, 5) = (/ &
+ & 0.17526E+03_JPRB,0.17685E+03_JPRB,0.17857E+03_JPRB,0.18040E+03_JPRB,0.18235E+03_JPRB /)  
+KB(:,40, 5) = (/ &
+ & 0.17489E+03_JPRB,0.17646E+03_JPRB,0.17814E+03_JPRB,0.17995E+03_JPRB,0.18187E+03_JPRB /)  
+KB(:,41, 5) = (/ &
+ & 0.17451E+03_JPRB,0.17605E+03_JPRB,0.17770E+03_JPRB,0.17948E+03_JPRB,0.18137E+03_JPRB /)  
+KB(:,42, 5) = (/ &
+ & 0.17414E+03_JPRB,0.17565E+03_JPRB,0.17727E+03_JPRB,0.17901E+03_JPRB,0.18087E+03_JPRB /)  
+KB(:,43, 5) = (/ &
+ & 0.17369E+03_JPRB,0.17516E+03_JPRB,0.17675E+03_JPRB,0.17846E+03_JPRB,0.18028E+03_JPRB /)  
+KB(:,44, 5) = (/ &
+ & 0.17323E+03_JPRB,0.17465E+03_JPRB,0.17620E+03_JPRB,0.17787E+03_JPRB,0.17965E+03_JPRB /)  
+KB(:,45, 5) = (/ &
+ & 0.17277E+03_JPRB,0.17416E+03_JPRB,0.17567E+03_JPRB,0.17729E+03_JPRB,0.17904E+03_JPRB /)  
+KB(:,46, 5) = (/ &
+ & 0.17230E+03_JPRB,0.17365E+03_JPRB,0.17511E+03_JPRB,0.17669E+03_JPRB,0.17840E+03_JPRB /)  
+KB(:,47, 5) = (/ &
+ & 0.17179E+03_JPRB,0.17309E+03_JPRB,0.17451E+03_JPRB,0.17604E+03_JPRB,0.17770E+03_JPRB /)  
+KB(:,48, 5) = (/ &
+ & 0.17130E+03_JPRB,0.17255E+03_JPRB,0.17392E+03_JPRB,0.17541E+03_JPRB,0.17702E+03_JPRB /)  
+KB(:,49, 5) = (/ &
+ & 0.17083E+03_JPRB,0.17204E+03_JPRB,0.17336E+03_JPRB,0.17480E+03_JPRB,0.17636E+03_JPRB /)  
+KB(:,50, 5) = (/ &
+ & 0.17041E+03_JPRB,0.17157E+03_JPRB,0.17285E+03_JPRB,0.17424E+03_JPRB,0.17576E+03_JPRB /)  
+KB(:,51, 5) = (/ &
+ & 0.17002E+03_JPRB,0.17113E+03_JPRB,0.17237E+03_JPRB,0.17372E+03_JPRB,0.17519E+03_JPRB /)  
+KB(:,52, 5) = (/ &
+ & 0.16964E+03_JPRB,0.17071E+03_JPRB,0.17190E+03_JPRB,0.17321E+03_JPRB,0.17464E+03_JPRB /)  
+KB(:,53, 5) = (/ &
+ & 0.16927E+03_JPRB,0.17031E+03_JPRB,0.17145E+03_JPRB,0.17272E+03_JPRB,0.17411E+03_JPRB /)  
+KB(:,54, 5) = (/ &
+ & 0.16896E+03_JPRB,0.16995E+03_JPRB,0.17106E+03_JPRB,0.17228E+03_JPRB,0.17363E+03_JPRB /)  
+KB(:,55, 5) = (/ &
+ & 0.16866E+03_JPRB,0.16962E+03_JPRB,0.17069E+03_JPRB,0.17188E+03_JPRB,0.17318E+03_JPRB /)  
+KB(:,56, 5) = (/ &
+ & 0.16839E+03_JPRB,0.16930E+03_JPRB,0.17033E+03_JPRB,0.17148E+03_JPRB,0.17275E+03_JPRB /)  
+KB(:,57, 5) = (/ &
+ & 0.16812E+03_JPRB,0.16899E+03_JPRB,0.16999E+03_JPRB,0.17110E+03_JPRB,0.17233E+03_JPRB /)  
+KB(:,58, 5) = (/ &
+ & 0.16788E+03_JPRB,0.16871E+03_JPRB,0.16968E+03_JPRB,0.17075E+03_JPRB,0.17195E+03_JPRB /)  
+KB(:,59, 5) = (/ &
+ & 0.16779E+03_JPRB,0.16861E+03_JPRB,0.16955E+03_JPRB,0.17062E+03_JPRB,0.17180E+03_JPRB /)  
+KB(:,13, 6) = (/ &
+ & 0.38122E+03_JPRB,0.38406E+03_JPRB,0.38668E+03_JPRB,0.38908E+03_JPRB,0.39125E+03_JPRB /)  
+KB(:,14, 6) = (/ &
+ & 0.38148E+03_JPRB,0.38431E+03_JPRB,0.38691E+03_JPRB,0.38929E+03_JPRB,0.39144E+03_JPRB /)  
+KB(:,15, 6) = (/ &
+ & 0.38178E+03_JPRB,0.38458E+03_JPRB,0.38716E+03_JPRB,0.38951E+03_JPRB,0.39164E+03_JPRB /)  
+KB(:,16, 6) = (/ &
+ & 0.38209E+03_JPRB,0.38487E+03_JPRB,0.38742E+03_JPRB,0.38975E+03_JPRB,0.39186E+03_JPRB /)  
+KB(:,17, 6) = (/ &
+ & 0.38239E+03_JPRB,0.38514E+03_JPRB,0.38767E+03_JPRB,0.38998E+03_JPRB,0.39206E+03_JPRB /)  
+KB(:,18, 6) = (/ &
+ & 0.38268E+03_JPRB,0.38541E+03_JPRB,0.38792E+03_JPRB,0.39020E+03_JPRB,0.39226E+03_JPRB /)  
+KB(:,19, 6) = (/ &
+ & 0.38297E+03_JPRB,0.38568E+03_JPRB,0.38816E+03_JPRB,0.39042E+03_JPRB,0.39246E+03_JPRB /)  
+KB(:,20, 6) = (/ &
+ & 0.38330E+03_JPRB,0.38598E+03_JPRB,0.38844E+03_JPRB,0.39067E+03_JPRB,0.39268E+03_JPRB /)  
+KB(:,21, 6) = (/ &
+ & 0.38363E+03_JPRB,0.38629E+03_JPRB,0.38872E+03_JPRB,0.39092E+03_JPRB,0.39291E+03_JPRB /)  
+KB(:,22, 6) = (/ &
+ & 0.38414E+03_JPRB,0.38675E+03_JPRB,0.38914E+03_JPRB,0.39131E+03_JPRB,0.39325E+03_JPRB /)  
+KB(:,23, 6) = (/ &
+ & 0.38466E+03_JPRB,0.38723E+03_JPRB,0.38958E+03_JPRB,0.39170E+03_JPRB,0.39360E+03_JPRB /)  
+KB(:,24, 6) = (/ &
+ & 0.38520E+03_JPRB,0.38772E+03_JPRB,0.39002E+03_JPRB,0.39210E+03_JPRB,0.39395E+03_JPRB /)  
+KB(:,25, 6) = (/ &
+ & 0.38575E+03_JPRB,0.38823E+03_JPRB,0.39048E+03_JPRB,0.39251E+03_JPRB,0.39432E+03_JPRB /)  
+KB(:,26, 6) = (/ &
+ & 0.38635E+03_JPRB,0.38877E+03_JPRB,0.39098E+03_JPRB,0.39295E+03_JPRB,0.39470E+03_JPRB /)  
+KB(:,27, 6) = (/ &
+ & 0.38694E+03_JPRB,0.38932E+03_JPRB,0.39146E+03_JPRB,0.39339E+03_JPRB,0.39509E+03_JPRB /)  
+KB(:,28, 6) = (/ &
+ & 0.38753E+03_JPRB,0.38985E+03_JPRB,0.39194E+03_JPRB,0.39381E+03_JPRB,0.39546E+03_JPRB /)  
+KB(:,29, 6) = (/ &
+ & 0.38813E+03_JPRB,0.39039E+03_JPRB,0.39243E+03_JPRB,0.39424E+03_JPRB,0.39583E+03_JPRB /)  
+KB(:,30, 6) = (/ &
+ & 0.38871E+03_JPRB,0.39092E+03_JPRB,0.39290E+03_JPRB,0.39466E+03_JPRB,0.39620E+03_JPRB /)  
+KB(:,31, 6) = (/ &
+ & 0.38930E+03_JPRB,0.39145E+03_JPRB,0.39338E+03_JPRB,0.39508E+03_JPRB,0.39655E+03_JPRB /)  
+KB(:,32, 6) = (/ &
+ & 0.38988E+03_JPRB,0.39197E+03_JPRB,0.39384E+03_JPRB,0.39548E+03_JPRB,0.39690E+03_JPRB /)  
+KB(:,33, 6) = (/ &
+ & 0.39045E+03_JPRB,0.39248E+03_JPRB,0.39429E+03_JPRB,0.39587E+03_JPRB,0.39723E+03_JPRB /)  
+KB(:,34, 6) = (/ &
+ & 0.39093E+03_JPRB,0.39291E+03_JPRB,0.39467E+03_JPRB,0.39620E+03_JPRB,0.39751E+03_JPRB /)  
+KB(:,35, 6) = (/ &
+ & 0.39120E+03_JPRB,0.39316E+03_JPRB,0.39488E+03_JPRB,0.39639E+03_JPRB,0.39766E+03_JPRB /)  
+KB(:,36, 6) = (/ &
+ & 0.39125E+03_JPRB,0.39320E+03_JPRB,0.39492E+03_JPRB,0.39642E+03_JPRB,0.39769E+03_JPRB /)  
+KB(:,37, 6) = (/ &
+ & 0.39098E+03_JPRB,0.39295E+03_JPRB,0.39471E+03_JPRB,0.39623E+03_JPRB,0.39754E+03_JPRB /)  
+KB(:,38, 6) = (/ &
+ & 0.39068E+03_JPRB,0.39269E+03_JPRB,0.39447E+03_JPRB,0.39603E+03_JPRB,0.39737E+03_JPRB /)  
+KB(:,39, 6) = (/ &
+ & 0.39039E+03_JPRB,0.39243E+03_JPRB,0.39424E+03_JPRB,0.39583E+03_JPRB,0.39720E+03_JPRB /)  
+KB(:,40, 6) = (/ &
+ & 0.38986E+03_JPRB,0.39196E+03_JPRB,0.39382E+03_JPRB,0.39547E+03_JPRB,0.39689E+03_JPRB /)  
+KB(:,41, 6) = (/ &
+ & 0.38929E+03_JPRB,0.39144E+03_JPRB,0.39337E+03_JPRB,0.39507E+03_JPRB,0.39655E+03_JPRB /)  
+KB(:,42, 6) = (/ &
+ & 0.38871E+03_JPRB,0.39092E+03_JPRB,0.39290E+03_JPRB,0.39466E+03_JPRB,0.39619E+03_JPRB /)  
+KB(:,43, 6) = (/ &
+ & 0.38797E+03_JPRB,0.39025E+03_JPRB,0.39230E+03_JPRB,0.39413E+03_JPRB,0.39574E+03_JPRB /)  
+KB(:,44, 6) = (/ &
+ & 0.38715E+03_JPRB,0.38951E+03_JPRB,0.39164E+03_JPRB,0.39354E+03_JPRB,0.39522E+03_JPRB /)  
+KB(:,45, 6) = (/ &
+ & 0.38631E+03_JPRB,0.38874E+03_JPRB,0.39094E+03_JPRB,0.39292E+03_JPRB,0.39468E+03_JPRB /)  
+KB(:,46, 6) = (/ &
+ & 0.38538E+03_JPRB,0.38789E+03_JPRB,0.39018E+03_JPRB,0.39224E+03_JPRB,0.39407E+03_JPRB /)  
+KB(:,47, 6) = (/ &
+ & 0.38431E+03_JPRB,0.38691E+03_JPRB,0.38929E+03_JPRB,0.39144E+03_JPRB,0.39336E+03_JPRB /)  
+KB(:,48, 6) = (/ &
+ & 0.38320E+03_JPRB,0.38589E+03_JPRB,0.38836E+03_JPRB,0.39060E+03_JPRB,0.39262E+03_JPRB /)  
+KB(:,49, 6) = (/ &
+ & 0.38206E+03_JPRB,0.38484E+03_JPRB,0.38739E+03_JPRB,0.38972E+03_JPRB,0.39183E+03_JPRB /)  
+KB(:,50, 6) = (/ &
+ & 0.38095E+03_JPRB,0.38382E+03_JPRB,0.38646E+03_JPRB,0.38887E+03_JPRB,0.39106E+03_JPRB /)  
+KB(:,51, 6) = (/ &
+ & 0.37985E+03_JPRB,0.38279E+03_JPRB,0.38552E+03_JPRB,0.38802E+03_JPRB,0.39029E+03_JPRB /)  
+KB(:,52, 6) = (/ &
+ & 0.37873E+03_JPRB,0.38175E+03_JPRB,0.38455E+03_JPRB,0.38713E+03_JPRB,0.38949E+03_JPRB /)  
+KB(:,53, 6) = (/ &
+ & 0.37762E+03_JPRB,0.38067E+03_JPRB,0.38355E+03_JPRB,0.38621E+03_JPRB,0.38865E+03_JPRB /)  
+KB(:,54, 6) = (/ &
+ & 0.37661E+03_JPRB,0.37965E+03_JPRB,0.38261E+03_JPRB,0.38535E+03_JPRB,0.38786E+03_JPRB /)  
+KB(:,55, 6) = (/ &
+ & 0.37559E+03_JPRB,0.37867E+03_JPRB,0.38169E+03_JPRB,0.38450E+03_JPRB,0.38708E+03_JPRB /)  
+KB(:,56, 6) = (/ &
+ & 0.37459E+03_JPRB,0.37768E+03_JPRB,0.38074E+03_JPRB,0.38362E+03_JPRB,0.38628E+03_JPRB /)  
+KB(:,57, 6) = (/ &
+ & 0.37353E+03_JPRB,0.37673E+03_JPRB,0.37977E+03_JPRB,0.38272E+03_JPRB,0.38545E+03_JPRB /)  
+KB(:,58, 6) = (/ &
+ & 0.37251E+03_JPRB,0.37577E+03_JPRB,0.37885E+03_JPRB,0.38185E+03_JPRB,0.38465E+03_JPRB /)  
+KB(:,59, 6) = (/ &
+ & 0.37212E+03_JPRB,0.37539E+03_JPRB,0.37847E+03_JPRB,0.38150E+03_JPRB,0.38432E+03_JPRB /)  
+KB(:,13, 7) = (/ &
+ & 0.62583E+03_JPRB,0.62623E+03_JPRB,0.62691E+03_JPRB,0.62787E+03_JPRB,0.62909E+03_JPRB /)  
+KB(:,14, 7) = (/ &
+ & 0.62586E+03_JPRB,0.62628E+03_JPRB,0.62699E+03_JPRB,0.62797E+03_JPRB,0.62921E+03_JPRB /)  
+KB(:,15, 7) = (/ &
+ & 0.62589E+03_JPRB,0.62634E+03_JPRB,0.62708E+03_JPRB,0.62809E+03_JPRB,0.62935E+03_JPRB /)  
+KB(:,16, 7) = (/ &
+ & 0.62593E+03_JPRB,0.62640E+03_JPRB,0.62717E+03_JPRB,0.62821E+03_JPRB,0.62950E+03_JPRB /)  
+KB(:,17, 7) = (/ &
+ & 0.62597E+03_JPRB,0.62647E+03_JPRB,0.62727E+03_JPRB,0.62833E+03_JPRB,0.62965E+03_JPRB /)  
+KB(:,18, 7) = (/ &
+ & 0.62601E+03_JPRB,0.62654E+03_JPRB,0.62737E+03_JPRB,0.62846E+03_JPRB,0.62980E+03_JPRB /)  
+KB(:,19, 7) = (/ &
+ & 0.62605E+03_JPRB,0.62661E+03_JPRB,0.62746E+03_JPRB,0.62858E+03_JPRB,0.62995E+03_JPRB /)  
+KB(:,20, 7) = (/ &
+ & 0.62610E+03_JPRB,0.62670E+03_JPRB,0.62758E+03_JPRB,0.62873E+03_JPRB,0.63012E+03_JPRB /)  
+KB(:,21, 7) = (/ &
+ & 0.62615E+03_JPRB,0.62679E+03_JPRB,0.62770E+03_JPRB,0.62888E+03_JPRB,0.63031E+03_JPRB /)  
+KB(:,22, 7) = (/ &
+ & 0.62625E+03_JPRB,0.62694E+03_JPRB,0.62790E+03_JPRB,0.62913E+03_JPRB,0.63060E+03_JPRB /)  
+KB(:,23, 7) = (/ &
+ & 0.62636E+03_JPRB,0.62710E+03_JPRB,0.62812E+03_JPRB,0.62939E+03_JPRB,0.63091E+03_JPRB /)  
+KB(:,24, 7) = (/ &
+ & 0.62648E+03_JPRB,0.62729E+03_JPRB,0.62835E+03_JPRB,0.62968E+03_JPRB,0.63125E+03_JPRB /)  
+KB(:,25, 7) = (/ &
+ & 0.62663E+03_JPRB,0.62749E+03_JPRB,0.62861E+03_JPRB,0.62999E+03_JPRB,0.63162E+03_JPRB /)  
+KB(:,26, 7) = (/ &
+ & 0.62681E+03_JPRB,0.62773E+03_JPRB,0.62891E+03_JPRB,0.63035E+03_JPRB,0.63203E+03_JPRB /)  
+KB(:,27, 7) = (/ &
+ & 0.62700E+03_JPRB,0.62799E+03_JPRB,0.62923E+03_JPRB,0.63072E+03_JPRB,0.63247E+03_JPRB /)  
+KB(:,28, 7) = (/ &
+ & 0.62721E+03_JPRB,0.62826E+03_JPRB,0.62956E+03_JPRB,0.63112E+03_JPRB,0.63292E+03_JPRB /)  
+KB(:,29, 7) = (/ &
+ & 0.62745E+03_JPRB,0.62856E+03_JPRB,0.62993E+03_JPRB,0.63154E+03_JPRB,0.63341E+03_JPRB /)  
+KB(:,30, 7) = (/ &
+ & 0.62770E+03_JPRB,0.62888E+03_JPRB,0.63031E+03_JPRB,0.63198E+03_JPRB,0.63392E+03_JPRB /)  
+KB(:,31, 7) = (/ &
+ & 0.62798E+03_JPRB,0.62922E+03_JPRB,0.63071E+03_JPRB,0.63245E+03_JPRB,0.63446E+03_JPRB /)  
+KB(:,32, 7) = (/ &
+ & 0.62828E+03_JPRB,0.62958E+03_JPRB,0.63114E+03_JPRB,0.63295E+03_JPRB,0.63503E+03_JPRB /)  
+KB(:,33, 7) = (/ &
+ & 0.62860E+03_JPRB,0.62997E+03_JPRB,0.63159E+03_JPRB,0.63347E+03_JPRB,0.63562E+03_JPRB /)  
+KB(:,34, 7) = (/ &
+ & 0.62889E+03_JPRB,0.63031E+03_JPRB,0.63199E+03_JPRB,0.63393E+03_JPRB,0.63614E+03_JPRB /)  
+KB(:,35, 7) = (/ &
+ & 0.62906E+03_JPRB,0.63052E+03_JPRB,0.63223E+03_JPRB,0.63421E+03_JPRB,0.63644E+03_JPRB /)  
+KB(:,36, 7) = (/ &
+ & 0.62909E+03_JPRB,0.63055E+03_JPRB,0.63227E+03_JPRB,0.63425E+03_JPRB,0.63649E+03_JPRB /)  
+KB(:,37, 7) = (/ &
+ & 0.62891E+03_JPRB,0.63035E+03_JPRB,0.63203E+03_JPRB,0.63397E+03_JPRB,0.63619E+03_JPRB /)  
+KB(:,38, 7) = (/ &
+ & 0.62873E+03_JPRB,0.63013E+03_JPRB,0.63178E+03_JPRB,0.63369E+03_JPRB,0.63586E+03_JPRB /)  
+KB(:,39, 7) = (/ &
+ & 0.62856E+03_JPRB,0.62992E+03_JPRB,0.63154E+03_JPRB,0.63341E+03_JPRB,0.63555E+03_JPRB /)  
+KB(:,40, 7) = (/ &
+ & 0.62827E+03_JPRB,0.62957E+03_JPRB,0.63113E+03_JPRB,0.63293E+03_JPRB,0.63501E+03_JPRB /)  
+KB(:,41, 7) = (/ &
+ & 0.62798E+03_JPRB,0.62922E+03_JPRB,0.63071E+03_JPRB,0.63245E+03_JPRB,0.63445E+03_JPRB /)  
+KB(:,42, 7) = (/ &
+ & 0.62770E+03_JPRB,0.62887E+03_JPRB,0.63030E+03_JPRB,0.63198E+03_JPRB,0.63391E+03_JPRB /)  
+KB(:,43, 7) = (/ &
+ & 0.62739E+03_JPRB,0.62848E+03_JPRB,0.62983E+03_JPRB,0.63143E+03_JPRB,0.63328E+03_JPRB /)  
+KB(:,44, 7) = (/ &
+ & 0.62708E+03_JPRB,0.62808E+03_JPRB,0.62935E+03_JPRB,0.63086E+03_JPRB,0.63263E+03_JPRB /)  
+KB(:,45, 7) = (/ &
+ & 0.62679E+03_JPRB,0.62771E+03_JPRB,0.62889E+03_JPRB,0.63032E+03_JPRB,0.63200E+03_JPRB /)  
+KB(:,46, 7) = (/ &
+ & 0.62653E+03_JPRB,0.62735E+03_JPRB,0.62844E+03_JPRB,0.62978E+03_JPRB,0.63137E+03_JPRB /)  
+KB(:,47, 7) = (/ &
+ & 0.62629E+03_JPRB,0.62699E+03_JPRB,0.62797E+03_JPRB,0.62921E+03_JPRB,0.63070E+03_JPRB /)  
+KB(:,48, 7) = (/ &
+ & 0.62608E+03_JPRB,0.62667E+03_JPRB,0.62755E+03_JPRB,0.62868E+03_JPRB,0.63007E+03_JPRB /)  
+KB(:,49, 7) = (/ &
+ & 0.62592E+03_JPRB,0.62640E+03_JPRB,0.62716E+03_JPRB,0.62820E+03_JPRB,0.62948E+03_JPRB /)  
+KB(:,50, 7) = (/ &
+ & 0.62580E+03_JPRB,0.62619E+03_JPRB,0.62684E+03_JPRB,0.62778E+03_JPRB,0.62897E+03_JPRB /)  
+KB(:,51, 7) = (/ &
+ & 0.62580E+03_JPRB,0.62602E+03_JPRB,0.62657E+03_JPRB,0.62741E+03_JPRB,0.62850E+03_JPRB /)  
+KB(:,52, 7) = (/ &
+ & 0.62578E+03_JPRB,0.62589E+03_JPRB,0.62633E+03_JPRB,0.62707E+03_JPRB,0.62807E+03_JPRB /)  
+KB(:,53, 7) = (/ &
+ & 0.62574E+03_JPRB,0.62578E+03_JPRB,0.62614E+03_JPRB,0.62677E+03_JPRB,0.62768E+03_JPRB /)  
+KB(:,54, 7) = (/ &
+ & 0.62576E+03_JPRB,0.62580E+03_JPRB,0.62600E+03_JPRB,0.62652E+03_JPRB,0.62734E+03_JPRB /)  
+KB(:,55, 7) = (/ &
+ & 0.62585E+03_JPRB,0.62578E+03_JPRB,0.62588E+03_JPRB,0.62632E+03_JPRB,0.62705E+03_JPRB /)  
+KB(:,56, 7) = (/ &
+ & 0.62587E+03_JPRB,0.62576E+03_JPRB,0.62579E+03_JPRB,0.62615E+03_JPRB,0.62678E+03_JPRB /)  
+KB(:,57, 7) = (/ &
+ & 0.62591E+03_JPRB,0.62574E+03_JPRB,0.62580E+03_JPRB,0.62601E+03_JPRB,0.62655E+03_JPRB /)  
+KB(:,58, 7) = (/ &
+ & 0.62591E+03_JPRB,0.62583E+03_JPRB,0.62578E+03_JPRB,0.62590E+03_JPRB,0.62636E+03_JPRB /)  
+KB(:,59, 7) = (/ &
+ & 0.62590E+03_JPRB,0.62586E+03_JPRB,0.62578E+03_JPRB,0.62586E+03_JPRB,0.62628E+03_JPRB /)  
+KB(:,13, 8) = (/ &
+ & 0.81821E+03_JPRB,0.81877E+03_JPRB,0.81935E+03_JPRB,0.81999E+03_JPRB,0.82074E+03_JPRB /)  
+KB(:,14, 8) = (/ &
+ & 0.81826E+03_JPRB,0.81882E+03_JPRB,0.81939E+03_JPRB,0.82006E+03_JPRB,0.82081E+03_JPRB /)  
+KB(:,15, 8) = (/ &
+ & 0.81831E+03_JPRB,0.81888E+03_JPRB,0.81946E+03_JPRB,0.82012E+03_JPRB,0.82089E+03_JPRB /)  
+KB(:,16, 8) = (/ &
+ & 0.81836E+03_JPRB,0.81895E+03_JPRB,0.81952E+03_JPRB,0.82021E+03_JPRB,0.82098E+03_JPRB /)  
+KB(:,17, 8) = (/ &
+ & 0.81842E+03_JPRB,0.81901E+03_JPRB,0.81959E+03_JPRB,0.82028E+03_JPRB,0.82106E+03_JPRB /)  
+KB(:,18, 8) = (/ &
+ & 0.81847E+03_JPRB,0.81907E+03_JPRB,0.81965E+03_JPRB,0.82036E+03_JPRB,0.82116E+03_JPRB /)  
+KB(:,19, 8) = (/ &
+ & 0.81853E+03_JPRB,0.81913E+03_JPRB,0.81972E+03_JPRB,0.82043E+03_JPRB,0.82123E+03_JPRB /)  
+KB(:,20, 8) = (/ &
+ & 0.81860E+03_JPRB,0.81919E+03_JPRB,0.81980E+03_JPRB,0.82052E+03_JPRB,0.82133E+03_JPRB /)  
+KB(:,21, 8) = (/ &
+ & 0.81868E+03_JPRB,0.81925E+03_JPRB,0.81988E+03_JPRB,0.82061E+03_JPRB,0.82143E+03_JPRB /)  
+KB(:,22, 8) = (/ &
+ & 0.81879E+03_JPRB,0.81936E+03_JPRB,0.82001E+03_JPRB,0.82076E+03_JPRB,0.82160E+03_JPRB /)  
+KB(:,23, 8) = (/ &
+ & 0.81889E+03_JPRB,0.81947E+03_JPRB,0.82015E+03_JPRB,0.82091E+03_JPRB,0.82177E+03_JPRB /)  
+KB(:,24, 8) = (/ &
+ & 0.81902E+03_JPRB,0.81960E+03_JPRB,0.82030E+03_JPRB,0.82108E+03_JPRB,0.82195E+03_JPRB /)  
+KB(:,25, 8) = (/ &
+ & 0.81914E+03_JPRB,0.81974E+03_JPRB,0.82046E+03_JPRB,0.82126E+03_JPRB,0.82214E+03_JPRB /)  
+KB(:,26, 8) = (/ &
+ & 0.81927E+03_JPRB,0.81990E+03_JPRB,0.82063E+03_JPRB,0.82145E+03_JPRB,0.82236E+03_JPRB /)  
+KB(:,27, 8) = (/ &
+ & 0.81941E+03_JPRB,0.82006E+03_JPRB,0.82082E+03_JPRB,0.82166E+03_JPRB,0.82258E+03_JPRB /)  
+KB(:,28, 8) = (/ &
+ & 0.81957E+03_JPRB,0.82024E+03_JPRB,0.82101E+03_JPRB,0.82188E+03_JPRB,0.82281E+03_JPRB /)  
+KB(:,29, 8) = (/ &
+ & 0.81971E+03_JPRB,0.82042E+03_JPRB,0.82122E+03_JPRB,0.82210E+03_JPRB,0.82305E+03_JPRB /)  
+KB(:,30, 8) = (/ &
+ & 0.81988E+03_JPRB,0.82061E+03_JPRB,0.82143E+03_JPRB,0.82233E+03_JPRB,0.82330E+03_JPRB /)  
+KB(:,31, 8) = (/ &
+ & 0.82006E+03_JPRB,0.82081E+03_JPRB,0.82166E+03_JPRB,0.82258E+03_JPRB,0.82355E+03_JPRB /)  
+KB(:,32, 8) = (/ &
+ & 0.82025E+03_JPRB,0.82103E+03_JPRB,0.82189E+03_JPRB,0.82283E+03_JPRB,0.82380E+03_JPRB /)  
+KB(:,33, 8) = (/ &
+ & 0.82044E+03_JPRB,0.82124E+03_JPRB,0.82213E+03_JPRB,0.82308E+03_JPRB,0.82408E+03_JPRB /)  
+KB(:,34, 8) = (/ &
+ & 0.82062E+03_JPRB,0.82144E+03_JPRB,0.82234E+03_JPRB,0.82330E+03_JPRB,0.82432E+03_JPRB /)  
+KB(:,35, 8) = (/ &
+ & 0.82072E+03_JPRB,0.82155E+03_JPRB,0.82246E+03_JPRB,0.82342E+03_JPRB,0.82446E+03_JPRB /)  
+KB(:,36, 8) = (/ &
+ & 0.82074E+03_JPRB,0.82157E+03_JPRB,0.82248E+03_JPRB,0.82345E+03_JPRB,0.82448E+03_JPRB /)  
+KB(:,37, 8) = (/ &
+ & 0.82063E+03_JPRB,0.82146E+03_JPRB,0.82236E+03_JPRB,0.82332E+03_JPRB,0.82434E+03_JPRB /)  
+KB(:,38, 8) = (/ &
+ & 0.82053E+03_JPRB,0.82134E+03_JPRB,0.82223E+03_JPRB,0.82319E+03_JPRB,0.82419E+03_JPRB /)  
+KB(:,39, 8) = (/ &
+ & 0.82042E+03_JPRB,0.82122E+03_JPRB,0.82210E+03_JPRB,0.82305E+03_JPRB,0.82405E+03_JPRB /)  
+KB(:,40, 8) = (/ &
+ & 0.82024E+03_JPRB,0.82102E+03_JPRB,0.82188E+03_JPRB,0.82282E+03_JPRB,0.82380E+03_JPRB /)  
+KB(:,41, 8) = (/ &
+ & 0.82006E+03_JPRB,0.82081E+03_JPRB,0.82165E+03_JPRB,0.82257E+03_JPRB,0.82354E+03_JPRB /)  
+KB(:,42, 8) = (/ &
+ & 0.81988E+03_JPRB,0.82061E+03_JPRB,0.82143E+03_JPRB,0.82233E+03_JPRB,0.82329E+03_JPRB /)  
+KB(:,43, 8) = (/ &
+ & 0.81967E+03_JPRB,0.82037E+03_JPRB,0.82117E+03_JPRB,0.82204E+03_JPRB,0.82299E+03_JPRB /)  
+KB(:,44, 8) = (/ &
+ & 0.81946E+03_JPRB,0.82013E+03_JPRB,0.82089E+03_JPRB,0.82174E+03_JPRB,0.82267E+03_JPRB /)  
+KB(:,45, 8) = (/ &
+ & 0.81926E+03_JPRB,0.81989E+03_JPRB,0.82062E+03_JPRB,0.82144E+03_JPRB,0.82234E+03_JPRB /)  
+KB(:,46, 8) = (/ &
+ & 0.81907E+03_JPRB,0.81965E+03_JPRB,0.82034E+03_JPRB,0.82114E+03_JPRB,0.82201E+03_JPRB /)  
+KB(:,47, 8) = (/ &
+ & 0.81882E+03_JPRB,0.81939E+03_JPRB,0.82006E+03_JPRB,0.82081E+03_JPRB,0.82165E+03_JPRB /)  
+KB(:,48, 8) = (/ &
+ & 0.81858E+03_JPRB,0.81917E+03_JPRB,0.81978E+03_JPRB,0.82050E+03_JPRB,0.82130E+03_JPRB /)  
+KB(:,49, 8) = (/ &
+ & 0.81836E+03_JPRB,0.81894E+03_JPRB,0.81953E+03_JPRB,0.82019E+03_JPRB,0.82097E+03_JPRB /)  
+KB(:,50, 8) = (/ &
+ & 0.81817E+03_JPRB,0.81871E+03_JPRB,0.81929E+03_JPRB,0.81993E+03_JPRB,0.82067E+03_JPRB /)  
+KB(:,51, 8) = (/ &
+ & 0.81790E+03_JPRB,0.81850E+03_JPRB,0.81910E+03_JPRB,0.81967E+03_JPRB,0.82039E+03_JPRB /)  
+KB(:,52, 8) = (/ &
+ & 0.81779E+03_JPRB,0.81830E+03_JPRB,0.81888E+03_JPRB,0.81945E+03_JPRB,0.82012E+03_JPRB /)  
+KB(:,53, 8) = (/ &
+ & 0.81766E+03_JPRB,0.81812E+03_JPRB,0.81866E+03_JPRB,0.81924E+03_JPRB,0.81986E+03_JPRB /)  
+KB(:,54, 8) = (/ &
+ & 0.81744E+03_JPRB,0.81785E+03_JPRB,0.81846E+03_JPRB,0.81906E+03_JPRB,0.81964E+03_JPRB /)  
+KB(:,55, 8) = (/ &
+ & 0.81733E+03_JPRB,0.81777E+03_JPRB,0.81829E+03_JPRB,0.81886E+03_JPRB,0.81944E+03_JPRB /)  
+KB(:,56, 8) = (/ &
+ & 0.81741E+03_JPRB,0.81767E+03_JPRB,0.81813E+03_JPRB,0.81867E+03_JPRB,0.81925E+03_JPRB /)  
+KB(:,57, 8) = (/ &
+ & 0.81785E+03_JPRB,0.81749E+03_JPRB,0.81788E+03_JPRB,0.81848E+03_JPRB,0.81908E+03_JPRB /)  
+KB(:,58, 8) = (/ &
+ & 0.81817E+03_JPRB,0.81731E+03_JPRB,0.81779E+03_JPRB,0.81832E+03_JPRB,0.81889E+03_JPRB /)  
+KB(:,59, 8) = (/ &
+ & 0.81824E+03_JPRB,0.81736E+03_JPRB,0.81776E+03_JPRB,0.81826E+03_JPRB,0.81883E+03_JPRB /)  
+KB(:,13, 9) = (/ &
+ & 0.94133E+03_JPRB,0.94438E+03_JPRB,0.94687E+03_JPRB,0.94883E+03_JPRB,0.95021E+03_JPRB /)  
+KB(:,14, 9) = (/ &
+ & 0.94163E+03_JPRB,0.94463E+03_JPRB,0.94708E+03_JPRB,0.94898E+03_JPRB,0.95031E+03_JPRB /)  
+KB(:,15, 9) = (/ &
+ & 0.94195E+03_JPRB,0.94490E+03_JPRB,0.94731E+03_JPRB,0.94914E+03_JPRB,0.95042E+03_JPRB /)  
+KB(:,16, 9) = (/ &
+ & 0.94229E+03_JPRB,0.94518E+03_JPRB,0.94753E+03_JPRB,0.94930E+03_JPRB,0.95052E+03_JPRB /)  
+KB(:,17, 9) = (/ &
+ & 0.94262E+03_JPRB,0.94544E+03_JPRB,0.94774E+03_JPRB,0.94946E+03_JPRB,0.95061E+03_JPRB /)  
+KB(:,18, 9) = (/ &
+ & 0.94293E+03_JPRB,0.94570E+03_JPRB,0.94795E+03_JPRB,0.94960E+03_JPRB,0.95069E+03_JPRB /)  
+KB(:,19, 9) = (/ &
+ & 0.94323E+03_JPRB,0.94595E+03_JPRB,0.94814E+03_JPRB,0.94974E+03_JPRB,0.95078E+03_JPRB /)  
+KB(:,20, 9) = (/ &
+ & 0.94357E+03_JPRB,0.94624E+03_JPRB,0.94835E+03_JPRB,0.94989E+03_JPRB,0.95087E+03_JPRB /)  
+KB(:,21, 9) = (/ &
+ & 0.94393E+03_JPRB,0.94654E+03_JPRB,0.94857E+03_JPRB,0.95003E+03_JPRB,0.95096E+03_JPRB /)  
+KB(:,22, 9) = (/ &
+ & 0.94445E+03_JPRB,0.94695E+03_JPRB,0.94888E+03_JPRB,0.95025E+03_JPRB,0.95105E+03_JPRB /)  
+KB(:,23, 9) = (/ &
+ & 0.94499E+03_JPRB,0.94737E+03_JPRB,0.94919E+03_JPRB,0.95045E+03_JPRB,0.95113E+03_JPRB /)  
+KB(:,24, 9) = (/ &
+ & 0.94549E+03_JPRB,0.94778E+03_JPRB,0.94948E+03_JPRB,0.95063E+03_JPRB,0.95120E+03_JPRB /)  
+KB(:,25, 9) = (/ &
+ & 0.94602E+03_JPRB,0.94819E+03_JPRB,0.94978E+03_JPRB,0.95082E+03_JPRB,0.95125E+03_JPRB /)  
+KB(:,26, 9) = (/ &
+ & 0.94658E+03_JPRB,0.94861E+03_JPRB,0.95006E+03_JPRB,0.95096E+03_JPRB,0.95127E+03_JPRB /)  
+KB(:,27, 9) = (/ &
+ & 0.94710E+03_JPRB,0.94900E+03_JPRB,0.95033E+03_JPRB,0.95109E+03_JPRB,0.95126E+03_JPRB /)  
+KB(:,28, 9) = (/ &
+ & 0.94759E+03_JPRB,0.94937E+03_JPRB,0.95056E+03_JPRB,0.95118E+03_JPRB,0.95123E+03_JPRB /)  
+KB(:,29, 9) = (/ &
+ & 0.94811E+03_JPRB,0.94973E+03_JPRB,0.95077E+03_JPRB,0.95124E+03_JPRB,0.95116E+03_JPRB /)  
+KB(:,30, 9) = (/ &
+ & 0.94856E+03_JPRB,0.95003E+03_JPRB,0.95095E+03_JPRB,0.95127E+03_JPRB,0.95105E+03_JPRB /)  
+KB(:,31, 9) = (/ &
+ & 0.94901E+03_JPRB,0.95032E+03_JPRB,0.95108E+03_JPRB,0.95127E+03_JPRB,0.95090E+03_JPRB /)  
+KB(:,32, 9) = (/ &
+ & 0.94939E+03_JPRB,0.95057E+03_JPRB,0.95118E+03_JPRB,0.95121E+03_JPRB,0.95071E+03_JPRB /)  
+KB(:,33, 9) = (/ &
+ & 0.94975E+03_JPRB,0.95079E+03_JPRB,0.95125E+03_JPRB,0.95115E+03_JPRB,0.95050E+03_JPRB /)  
+KB(:,34, 9) = (/ &
+ & 0.95004E+03_JPRB,0.95095E+03_JPRB,0.95128E+03_JPRB,0.95105E+03_JPRB,0.95030E+03_JPRB /)  
+KB(:,35, 9) = (/ &
+ & 0.95020E+03_JPRB,0.95102E+03_JPRB,0.95127E+03_JPRB,0.95098E+03_JPRB,0.95016E+03_JPRB /)  
+KB(:,36, 9) = (/ &
+ & 0.95021E+03_JPRB,0.95103E+03_JPRB,0.95127E+03_JPRB,0.95096E+03_JPRB,0.95023E+03_JPRB /)  
+KB(:,37, 9) = (/ &
+ & 0.95006E+03_JPRB,0.95096E+03_JPRB,0.95127E+03_JPRB,0.95104E+03_JPRB,0.95027E+03_JPRB /)  
+KB(:,38, 9) = (/ &
+ & 0.94990E+03_JPRB,0.95087E+03_JPRB,0.95126E+03_JPRB,0.95110E+03_JPRB,0.95040E+03_JPRB /)  
+KB(:,39, 9) = (/ &
+ & 0.94972E+03_JPRB,0.95077E+03_JPRB,0.95124E+03_JPRB,0.95117E+03_JPRB,0.95053E+03_JPRB /)  
+KB(:,40, 9) = (/ &
+ & 0.94939E+03_JPRB,0.95057E+03_JPRB,0.95118E+03_JPRB,0.95123E+03_JPRB,0.95072E+03_JPRB /)  
+KB(:,41, 9) = (/ &
+ & 0.94899E+03_JPRB,0.95032E+03_JPRB,0.95108E+03_JPRB,0.95127E+03_JPRB,0.95090E+03_JPRB /)  
+KB(:,42, 9) = (/ &
+ & 0.94856E+03_JPRB,0.95004E+03_JPRB,0.95094E+03_JPRB,0.95127E+03_JPRB,0.95105E+03_JPRB /)  
+KB(:,43, 9) = (/ &
+ & 0.94799E+03_JPRB,0.94963E+03_JPRB,0.95073E+03_JPRB,0.95123E+03_JPRB,0.95118E+03_JPRB /)  
+KB(:,44, 9) = (/ &
+ & 0.94729E+03_JPRB,0.94914E+03_JPRB,0.95041E+03_JPRB,0.95112E+03_JPRB,0.95126E+03_JPRB /)  
+KB(:,45, 9) = (/ &
+ & 0.94655E+03_JPRB,0.94858E+03_JPRB,0.95004E+03_JPRB,0.95095E+03_JPRB,0.95127E+03_JPRB /)  
+KB(:,46, 9) = (/ &
+ & 0.94568E+03_JPRB,0.94792E+03_JPRB,0.94958E+03_JPRB,0.95070E+03_JPRB,0.95122E+03_JPRB /)  
+KB(:,47, 9) = (/ &
+ & 0.94463E+03_JPRB,0.94708E+03_JPRB,0.94898E+03_JPRB,0.95031E+03_JPRB,0.95108E+03_JPRB /)  
+KB(:,48, 9) = (/ &
+ & 0.94348E+03_JPRB,0.94616E+03_JPRB,0.94829E+03_JPRB,0.94984E+03_JPRB,0.95084E+03_JPRB /)  
+KB(:,49, 9) = (/ &
+ & 0.94226E+03_JPRB,0.94515E+03_JPRB,0.94748E+03_JPRB,0.94928E+03_JPRB,0.95051E+03_JPRB /)  
+KB(:,50, 9) = (/ &
+ & 0.94103E+03_JPRB,0.94413E+03_JPRB,0.94669E+03_JPRB,0.94868E+03_JPRB,0.95011E+03_JPRB /)  
+KB(:,51, 9) = (/ &
+ & 0.93978E+03_JPRB,0.94307E+03_JPRB,0.94580E+03_JPRB,0.94802E+03_JPRB,0.94965E+03_JPRB /)  
+KB(:,52, 9) = (/ &
+ & 0.93828E+03_JPRB,0.94192E+03_JPRB,0.94488E+03_JPRB,0.94728E+03_JPRB,0.94912E+03_JPRB /)  
+KB(:,53, 9) = (/ &
+ & 0.93678E+03_JPRB,0.94072E+03_JPRB,0.94388E+03_JPRB,0.94646E+03_JPRB,0.94851E+03_JPRB /)  
+KB(:,54, 9) = (/ &
+ & 0.93537E+03_JPRB,0.93955E+03_JPRB,0.94287E+03_JPRB,0.94565E+03_JPRB,0.94789E+03_JPRB /)  
+KB(:,55, 9) = (/ &
+ & 0.93380E+03_JPRB,0.93820E+03_JPRB,0.94186E+03_JPRB,0.94483E+03_JPRB,0.94722E+03_JPRB /)  
+KB(:,56, 9) = (/ &
+ & 0.93205E+03_JPRB,0.93688E+03_JPRB,0.94080E+03_JPRB,0.94394E+03_JPRB,0.94652E+03_JPRB /)  
+KB(:,57, 9) = (/ &
+ & 0.92997E+03_JPRB,0.93554E+03_JPRB,0.93969E+03_JPRB,0.94299E+03_JPRB,0.94574E+03_JPRB /)  
+KB(:,58, 9) = (/ &
+ & 0.92808E+03_JPRB,0.93414E+03_JPRB,0.93844E+03_JPRB,0.94204E+03_JPRB,0.94498E+03_JPRB /)  
+KB(:,59, 9) = (/ &
+ & 0.92793E+03_JPRB,0.93341E+03_JPRB,0.93792E+03_JPRB,0.94165E+03_JPRB,0.94465E+03_JPRB /)  
+KB(:,13,10) = (/ &
+ & 0.98036E+03_JPRB,0.98526E+03_JPRB,0.98973E+03_JPRB,0.99279E+03_JPRB,0.99468E+03_JPRB /)  
+KB(:,14,10) = (/ &
+ & 0.98067E+03_JPRB,0.98568E+03_JPRB,0.99005E+03_JPRB,0.99301E+03_JPRB,0.99477E+03_JPRB /)  
+KB(:,15,10) = (/ &
+ & 0.98125E+03_JPRB,0.98614E+03_JPRB,0.99040E+03_JPRB,0.99324E+03_JPRB,0.99485E+03_JPRB /)  
+KB(:,16,10) = (/ &
+ & 0.98185E+03_JPRB,0.98662E+03_JPRB,0.99076E+03_JPRB,0.99348E+03_JPRB,0.99493E+03_JPRB /)  
+KB(:,17,10) = (/ &
+ & 0.98242E+03_JPRB,0.98721E+03_JPRB,0.99109E+03_JPRB,0.99369E+03_JPRB,0.99498E+03_JPRB /)  
+KB(:,18,10) = (/ &
+ & 0.98296E+03_JPRB,0.98755E+03_JPRB,0.99141E+03_JPRB,0.99390E+03_JPRB,0.99502E+03_JPRB /)  
+KB(:,19,10) = (/ &
+ & 0.98350E+03_JPRB,0.98800E+03_JPRB,0.99172E+03_JPRB,0.99408E+03_JPRB,0.99505E+03_JPRB /)  
+KB(:,20,10) = (/ &
+ & 0.98411E+03_JPRB,0.98852E+03_JPRB,0.99205E+03_JPRB,0.99428E+03_JPRB,0.99507E+03_JPRB /)  
+KB(:,21,10) = (/ &
+ & 0.98464E+03_JPRB,0.98894E+03_JPRB,0.99238E+03_JPRB,0.99447E+03_JPRB,0.99496E+03_JPRB /)  
+KB(:,22,10) = (/ &
+ & 0.98547E+03_JPRB,0.98983E+03_JPRB,0.99286E+03_JPRB,0.99470E+03_JPRB,0.99509E+03_JPRB /)  
+KB(:,23,10) = (/ &
+ & 0.98617E+03_JPRB,0.99062E+03_JPRB,0.99331E+03_JPRB,0.99487E+03_JPRB,0.99508E+03_JPRB /)  
+KB(:,24,10) = (/ &
+ & 0.98718E+03_JPRB,0.99115E+03_JPRB,0.99373E+03_JPRB,0.99499E+03_JPRB,0.99503E+03_JPRB /)  
+KB(:,25,10) = (/ &
+ & 0.98813E+03_JPRB,0.99180E+03_JPRB,0.99413E+03_JPRB,0.99494E+03_JPRB,0.99492E+03_JPRB /)  
+KB(:,26,10) = (/ &
+ & 0.98918E+03_JPRB,0.99244E+03_JPRB,0.99450E+03_JPRB,0.99508E+03_JPRB,0.99475E+03_JPRB /)  
+KB(:,27,10) = (/ &
+ & 0.99010E+03_JPRB,0.99304E+03_JPRB,0.99478E+03_JPRB,0.99509E+03_JPRB,0.99499E+03_JPRB /)  
+KB(:,28,10) = (/ &
+ & 0.99090E+03_JPRB,0.99357E+03_JPRB,0.99495E+03_JPRB,0.99505E+03_JPRB,0.99433E+03_JPRB /)  
+KB(:,29,10) = (/ &
+ & 0.99167E+03_JPRB,0.99393E+03_JPRB,0.99505E+03_JPRB,0.99495E+03_JPRB,0.99385E+03_JPRB /)  
+KB(:,30,10) = (/ &
+ & 0.99249E+03_JPRB,0.99447E+03_JPRB,0.99508E+03_JPRB,0.99477E+03_JPRB,0.99348E+03_JPRB /)  
+KB(:,31,10) = (/ &
+ & 0.99290E+03_JPRB,0.99477E+03_JPRB,0.99509E+03_JPRB,0.99452E+03_JPRB,0.99326E+03_JPRB /)  
+KB(:,32,10) = (/ &
+ & 0.99360E+03_JPRB,0.99496E+03_JPRB,0.99505E+03_JPRB,0.99419E+03_JPRB,0.99287E+03_JPRB /)  
+KB(:,33,10) = (/ &
+ & 0.99410E+03_JPRB,0.99506E+03_JPRB,0.99493E+03_JPRB,0.99381E+03_JPRB,0.99210E+03_JPRB /)  
+KB(:,34,10) = (/ &
+ & 0.99447E+03_JPRB,0.99508E+03_JPRB,0.99465E+03_JPRB,0.99347E+03_JPRB,0.99121E+03_JPRB /)  
+KB(:,35,10) = (/ &
+ & 0.99453E+03_JPRB,0.99509E+03_JPRB,0.99465E+03_JPRB,0.99330E+03_JPRB,0.99083E+03_JPRB /)  
+KB(:,36,10) = (/ &
+ & 0.99467E+03_JPRB,0.99509E+03_JPRB,0.99463E+03_JPRB,0.99327E+03_JPRB,0.98992E+03_JPRB /)  
+KB(:,37,10) = (/ &
+ & 0.99451E+03_JPRB,0.99508E+03_JPRB,0.99475E+03_JPRB,0.99344E+03_JPRB,0.99124E+03_JPRB /)  
+KB(:,38,10) = (/ &
+ & 0.99429E+03_JPRB,0.99507E+03_JPRB,0.99486E+03_JPRB,0.99365E+03_JPRB,0.99174E+03_JPRB /)  
+KB(:,39,10) = (/ &
+ & 0.99405E+03_JPRB,0.99505E+03_JPRB,0.99495E+03_JPRB,0.99373E+03_JPRB,0.99219E+03_JPRB /)  
+KB(:,40,10) = (/ &
+ & 0.99347E+03_JPRB,0.99496E+03_JPRB,0.99505E+03_JPRB,0.99420E+03_JPRB,0.99289E+03_JPRB /)  
+KB(:,41,10) = (/ &
+ & 0.99302E+03_JPRB,0.99477E+03_JPRB,0.99509E+03_JPRB,0.99452E+03_JPRB,0.99315E+03_JPRB /)  
+KB(:,42,10) = (/ &
+ & 0.99237E+03_JPRB,0.99435E+03_JPRB,0.99508E+03_JPRB,0.99477E+03_JPRB,0.99348E+03_JPRB /)  
+KB(:,43,10) = (/ &
+ & 0.99148E+03_JPRB,0.99394E+03_JPRB,0.99491E+03_JPRB,0.99498E+03_JPRB,0.99395E+03_JPRB /)  
+KB(:,44,10) = (/ &
+ & 0.99040E+03_JPRB,0.99324E+03_JPRB,0.99485E+03_JPRB,0.99508E+03_JPRB,0.99453E+03_JPRB /)  
+KB(:,45,10) = (/ &
+ & 0.98910E+03_JPRB,0.99241E+03_JPRB,0.99449E+03_JPRB,0.99508E+03_JPRB,0.99476E+03_JPRB /)  
+KB(:,46,10) = (/ &
+ & 0.98735E+03_JPRB,0.99138E+03_JPRB,0.99388E+03_JPRB,0.99490E+03_JPRB,0.99500E+03_JPRB /)  
+KB(:,47,10) = (/ &
+ & 0.98565E+03_JPRB,0.99006E+03_JPRB,0.99301E+03_JPRB,0.99477E+03_JPRB,0.99509E+03_JPRB /)  
+KB(:,48,10) = (/ &
+ & 0.98383E+03_JPRB,0.98834E+03_JPRB,0.99196E+03_JPRB,0.99423E+03_JPRB,0.99507E+03_JPRB /)  
+KB(:,49,10) = (/ &
+ & 0.98174E+03_JPRB,0.98651E+03_JPRB,0.99073E+03_JPRB,0.99346E+03_JPRB,0.99492E+03_JPRB /)  
+KB(:,50,10) = (/ &
+ & 0.97955E+03_JPRB,0.98480E+03_JPRB,0.98924E+03_JPRB,0.99257E+03_JPRB,0.99470E+03_JPRB /)  
+KB(:,51,10) = (/ &
+ & 0.97755E+03_JPRB,0.98298E+03_JPRB,0.98767E+03_JPRB,0.99154E+03_JPRB,0.99399E+03_JPRB /)  
+KB(:,52,10) = (/ &
+ & 0.97554E+03_JPRB,0.98111E+03_JPRB,0.98597E+03_JPRB,0.99036E+03_JPRB,0.99323E+03_JPRB /)  
+KB(:,53,10) = (/ &
+ & 0.97320E+03_JPRB,0.97892E+03_JPRB,0.98413E+03_JPRB,0.98888E+03_JPRB,0.99232E+03_JPRB /)  
+KB(:,54,10) = (/ &
+ & 0.97086E+03_JPRB,0.97720E+03_JPRB,0.98263E+03_JPRB,0.98733E+03_JPRB,0.99135E+03_JPRB /)  
+KB(:,55,10) = (/ &
+ & 0.96881E+03_JPRB,0.97539E+03_JPRB,0.98096E+03_JPRB,0.98583E+03_JPRB,0.99029E+03_JPRB /)  
+KB(:,56,10) = (/ &
+ & 0.96735E+03_JPRB,0.97336E+03_JPRB,0.97906E+03_JPRB,0.98435E+03_JPRB,0.98900E+03_JPRB /)  
+KB(:,57,10) = (/ &
+ & 0.96407E+03_JPRB,0.97115E+03_JPRB,0.97740E+03_JPRB,0.98282E+03_JPRB,0.98752E+03_JPRB /)  
+KB(:,58,10) = (/ &
+ & 0.96154E+03_JPRB,0.96893E+03_JPRB,0.97574E+03_JPRB,0.98129E+03_JPRB,0.98611E+03_JPRB /)  
+KB(:,59,10) = (/ &
+ & 0.95571E+03_JPRB,0.96861E+03_JPRB,0.97503E+03_JPRB,0.98063E+03_JPRB,0.98557E+03_JPRB /)  
+KB(:,13,11) = (/ &
+ & 0.98771E+03_JPRB,0.99296E+03_JPRB,0.99655E+03_JPRB,0.99859E+03_JPRB,0.99936E+03_JPRB /)  
+KB(:,14,11) = (/ &
+ & 0.98850E+03_JPRB,0.99335E+03_JPRB,0.99679E+03_JPRB,0.99871E+03_JPRB,0.99939E+03_JPRB /)  
+KB(:,15,11) = (/ &
+ & 0.98905E+03_JPRB,0.99377E+03_JPRB,0.99705E+03_JPRB,0.99882E+03_JPRB,0.99942E+03_JPRB /)  
+KB(:,16,11) = (/ &
+ & 0.98962E+03_JPRB,0.99419E+03_JPRB,0.99730E+03_JPRB,0.99893E+03_JPRB,0.99945E+03_JPRB /)  
+KB(:,17,11) = (/ &
+ & 0.99016E+03_JPRB,0.99444E+03_JPRB,0.99754E+03_JPRB,0.99903E+03_JPRB,0.99947E+03_JPRB /)  
+KB(:,18,11) = (/ &
+ & 0.99067E+03_JPRB,0.99497E+03_JPRB,0.99775E+03_JPRB,0.99911E+03_JPRB,0.99948E+03_JPRB /)  
+KB(:,19,11) = (/ &
+ & 0.99117E+03_JPRB,0.99532E+03_JPRB,0.99795E+03_JPRB,0.99918E+03_JPRB,0.99949E+03_JPRB /)  
+KB(:,20,11) = (/ &
+ & 0.99173E+03_JPRB,0.99572E+03_JPRB,0.99816E+03_JPRB,0.99924E+03_JPRB,0.99949E+03_JPRB /)  
+KB(:,21,11) = (/ &
+ & 0.99228E+03_JPRB,0.99610E+03_JPRB,0.99835E+03_JPRB,0.99929E+03_JPRB,0.99946E+03_JPRB /)  
+KB(:,22,11) = (/ &
+ & 0.99309E+03_JPRB,0.99663E+03_JPRB,0.99862E+03_JPRB,0.99936E+03_JPRB,0.99953E+03_JPRB /)  
+KB(:,23,11) = (/ &
+ & 0.99388E+03_JPRB,0.99698E+03_JPRB,0.99900E+03_JPRB,0.99942E+03_JPRB,0.99925E+03_JPRB /)  
+KB(:,24,11) = (/ &
+ & 0.99466E+03_JPRB,0.99758E+03_JPRB,0.99904E+03_JPRB,0.99947E+03_JPRB,0.99905E+03_JPRB /)  
+KB(:,25,11) = (/ &
+ & 0.99542E+03_JPRB,0.99800E+03_JPRB,0.99919E+03_JPRB,0.99963E+03_JPRB,0.99878E+03_JPRB /)  
+KB(:,26,11) = (/ &
+ & 0.99618E+03_JPRB,0.99839E+03_JPRB,0.99930E+03_JPRB,0.99945E+03_JPRB,0.99847E+03_JPRB /)  
+KB(:,27,11) = (/ &
+ & 0.99683E+03_JPRB,0.99872E+03_JPRB,0.99939E+03_JPRB,0.99934E+03_JPRB,0.99751E+03_JPRB /)  
+KB(:,28,11) = (/ &
+ & 0.99741E+03_JPRB,0.99897E+03_JPRB,0.99946E+03_JPRB,0.99913E+03_JPRB,0.99749E+03_JPRB /)  
+KB(:,29,11) = (/ &
+ & 0.99792E+03_JPRB,0.99917E+03_JPRB,0.99949E+03_JPRB,0.99884E+03_JPRB,0.99707E+03_JPRB /)  
+KB(:,30,11) = (/ &
+ & 0.99821E+03_JPRB,0.99929E+03_JPRB,0.99946E+03_JPRB,0.99850E+03_JPRB,0.99637E+03_JPRB /)  
+KB(:,31,11) = (/ &
+ & 0.99871E+03_JPRB,0.99938E+03_JPRB,0.99949E+03_JPRB,0.99810E+03_JPRB,0.99532E+03_JPRB /)  
+KB(:,32,11) = (/ &
+ & 0.99899E+03_JPRB,0.99961E+03_JPRB,0.99926E+03_JPRB,0.99761E+03_JPRB,0.99460E+03_JPRB /)  
+KB(:,33,11) = (/ &
+ & 0.99918E+03_JPRB,0.99949E+03_JPRB,0.99880E+03_JPRB,0.99700E+03_JPRB,0.99413E+03_JPRB /)  
+KB(:,34,11) = (/ &
+ & 0.99929E+03_JPRB,0.99946E+03_JPRB,0.99850E+03_JPRB,0.99635E+03_JPRB,0.99329E+03_JPRB /)  
+KB(:,35,11) = (/ &
+ & 0.99934E+03_JPRB,0.99941E+03_JPRB,0.99830E+03_JPRB,0.99590E+03_JPRB,0.99292E+03_JPRB /)  
+KB(:,36,11) = (/ &
+ & 0.99935E+03_JPRB,0.99940E+03_JPRB,0.99826E+03_JPRB,0.99583E+03_JPRB,0.99287E+03_JPRB /)  
+KB(:,37,11) = (/ &
+ & 0.99930E+03_JPRB,0.99946E+03_JPRB,0.99846E+03_JPRB,0.99628E+03_JPRB,0.99327E+03_JPRB /)  
+KB(:,38,11) = (/ &
+ & 0.99924E+03_JPRB,0.99949E+03_JPRB,0.99866E+03_JPRB,0.99670E+03_JPRB,0.99350E+03_JPRB /)  
+KB(:,39,11) = (/ &
+ & 0.99917E+03_JPRB,0.99949E+03_JPRB,0.99899E+03_JPRB,0.99707E+03_JPRB,0.99451E+03_JPRB /)  
+KB(:,40,11) = (/ &
+ & 0.99898E+03_JPRB,0.99946E+03_JPRB,0.99913E+03_JPRB,0.99777E+03_JPRB,0.99505E+03_JPRB /)  
+KB(:,41,11) = (/ &
+ & 0.99871E+03_JPRB,0.99939E+03_JPRB,0.99935E+03_JPRB,0.99810E+03_JPRB,0.99546E+03_JPRB /)  
+KB(:,42,11) = (/ &
+ & 0.99835E+03_JPRB,0.99929E+03_JPRB,0.99947E+03_JPRB,0.99851E+03_JPRB,0.99637E+03_JPRB /)  
+KB(:,43,11) = (/ &
+ & 0.99780E+03_JPRB,0.99913E+03_JPRB,0.99949E+03_JPRB,0.99893E+03_JPRB,0.99722E+03_JPRB /)  
+KB(:,44,11) = (/ &
+ & 0.99704E+03_JPRB,0.99882E+03_JPRB,0.99942E+03_JPRB,0.99928E+03_JPRB,0.99778E+03_JPRB /)  
+KB(:,45,11) = (/ &
+ & 0.99613E+03_JPRB,0.99837E+03_JPRB,0.99930E+03_JPRB,0.99947E+03_JPRB,0.99849E+03_JPRB /)  
+KB(:,46,11) = (/ &
+ & 0.99492E+03_JPRB,0.99787E+03_JPRB,0.99911E+03_JPRB,0.99949E+03_JPRB,0.99897E+03_JPRB /)  
+KB(:,47,11) = (/ &
+ & 0.99335E+03_JPRB,0.99679E+03_JPRB,0.99871E+03_JPRB,0.99939E+03_JPRB,0.99936E+03_JPRB /)  
+KB(:,48,11) = (/ &
+ & 0.99156E+03_JPRB,0.99560E+03_JPRB,0.99810E+03_JPRB,0.99923E+03_JPRB,0.99951E+03_JPRB /)  
+KB(:,49,11) = (/ &
+ & 0.98955E+03_JPRB,0.99414E+03_JPRB,0.99727E+03_JPRB,0.99894E+03_JPRB,0.99946E+03_JPRB /)  
+KB(:,50,11) = (/ &
+ & 0.98749E+03_JPRB,0.99256E+03_JPRB,0.99630E+03_JPRB,0.99847E+03_JPRB,0.99918E+03_JPRB /)  
+KB(:,51,11) = (/ &
+ & 0.98496E+03_JPRB,0.99085E+03_JPRB,0.99509E+03_JPRB,0.99784E+03_JPRB,0.99916E+03_JPRB /)  
+KB(:,52,11) = (/ &
+ & 0.98304E+03_JPRB,0.98897E+03_JPRB,0.99370E+03_JPRB,0.99701E+03_JPRB,0.99883E+03_JPRB /)  
+KB(:,53,11) = (/ &
+ & 0.98104E+03_JPRB,0.98693E+03_JPRB,0.99213E+03_JPRB,0.99600E+03_JPRB,0.99833E+03_JPRB /)  
+KB(:,54,11) = (/ &
+ & 0.97906E+03_JPRB,0.98440E+03_JPRB,0.99053E+03_JPRB,0.99485E+03_JPRB,0.99771E+03_JPRB /)  
+KB(:,55,11) = (/ &
+ & 0.97789E+03_JPRB,0.98286E+03_JPRB,0.98886E+03_JPRB,0.99361E+03_JPRB,0.99696E+03_JPRB /)  
+KB(:,56,11) = (/ &
+ & 0.97514E+03_JPRB,0.98117E+03_JPRB,0.98708E+03_JPRB,0.99224E+03_JPRB,0.99622E+03_JPRB /)  
+KB(:,57,11) = (/ &
+ & 0.97242E+03_JPRB,0.97945E+03_JPRB,0.98472E+03_JPRB,0.99072E+03_JPRB,0.99500E+03_JPRB /)  
+KB(:,58,11) = (/ &
+ & 0.96969E+03_JPRB,0.97814E+03_JPRB,0.98316E+03_JPRB,0.98916E+03_JPRB,0.99384E+03_JPRB /)  
+KB(:,59,11) = (/ &
+ & 0.96859E+03_JPRB,0.97725E+03_JPRB,0.98261E+03_JPRB,0.98851E+03_JPRB,0.99335E+03_JPRB /)  
+KB(:,13,12) = (/ &
+ & 0.99768E+03_JPRB,0.99984E+03_JPRB,0.10010E+04_JPRB,0.10024E+04_JPRB,0.10029E+04_JPRB /)  
+KB(:,14,12) = (/ &
+ & 0.99795E+03_JPRB,0.99992E+03_JPRB,0.10011E+04_JPRB,0.10025E+04_JPRB,0.10029E+04_JPRB /)  
+KB(:,15,12) = (/ &
+ & 0.99880E+03_JPRB,0.99996E+03_JPRB,0.10013E+04_JPRB,0.10026E+04_JPRB,0.10031E+04_JPRB /)  
+KB(:,16,12) = (/ &
+ & 0.99852E+03_JPRB,0.10003E+04_JPRB,0.10015E+04_JPRB,0.10028E+04_JPRB,0.10029E+04_JPRB /)  
+KB(:,17,12) = (/ &
+ & 0.99876E+03_JPRB,0.10000E+04_JPRB,0.10016E+04_JPRB,0.10027E+04_JPRB,0.10029E+04_JPRB /)  
+KB(:,18,12) = (/ &
+ & 0.99898E+03_JPRB,0.10001E+04_JPRB,0.10018E+04_JPRB,0.10028E+04_JPRB,0.10028E+04_JPRB /)  
+KB(:,19,12) = (/ &
+ & 0.99918E+03_JPRB,0.10003E+04_JPRB,0.10021E+04_JPRB,0.10028E+04_JPRB,0.10028E+04_JPRB /)  
+KB(:,20,12) = (/ &
+ & 0.99940E+03_JPRB,0.10005E+04_JPRB,0.10026E+04_JPRB,0.10029E+04_JPRB,0.10031E+04_JPRB /)  
+KB(:,21,12) = (/ &
+ & 0.99959E+03_JPRB,0.10007E+04_JPRB,0.10022E+04_JPRB,0.10029E+04_JPRB,0.10026E+04_JPRB /)  
+KB(:,22,12) = (/ &
+ & 0.99984E+03_JPRB,0.10010E+04_JPRB,0.10024E+04_JPRB,0.10030E+04_JPRB,0.10023E+04_JPRB /)  
+KB(:,23,12) = (/ &
+ & 0.99996E+03_JPRB,0.10013E+04_JPRB,0.10024E+04_JPRB,0.10029E+04_JPRB,0.10025E+04_JPRB /)  
+KB(:,24,12) = (/ &
+ & 0.10000E+04_JPRB,0.10016E+04_JPRB,0.10029E+04_JPRB,0.10029E+04_JPRB,0.10023E+04_JPRB /)  
+KB(:,25,12) = (/ &
+ & 0.10003E+04_JPRB,0.10023E+04_JPRB,0.10029E+04_JPRB,0.10026E+04_JPRB,0.10019E+04_JPRB /)  
+KB(:,26,12) = (/ &
+ & 0.10007E+04_JPRB,0.10022E+04_JPRB,0.10029E+04_JPRB,0.10026E+04_JPRB,0.10015E+04_JPRB /)  
+KB(:,27,12) = (/ &
+ & 0.10012E+04_JPRB,0.10025E+04_JPRB,0.10031E+04_JPRB,0.10024E+04_JPRB,0.10010E+04_JPRB /)  
+KB(:,28,12) = (/ &
+ & 0.10015E+04_JPRB,0.10027E+04_JPRB,0.10029E+04_JPRB,0.10022E+04_JPRB,0.10005E+04_JPRB /)  
+KB(:,29,12) = (/ &
+ & 0.10019E+04_JPRB,0.10028E+04_JPRB,0.10028E+04_JPRB,0.10019E+04_JPRB,0.99992E+03_JPRB /)  
+KB(:,30,12) = (/ &
+ & 0.10022E+04_JPRB,0.10029E+04_JPRB,0.10026E+04_JPRB,0.10017E+04_JPRB,0.99965E+03_JPRB /)  
+KB(:,31,12) = (/ &
+ & 0.10025E+04_JPRB,0.10030E+04_JPRB,0.10022E+04_JPRB,0.10011E+04_JPRB,0.99843E+03_JPRB /)  
+KB(:,32,12) = (/ &
+ & 0.10027E+04_JPRB,0.10029E+04_JPRB,0.10020E+04_JPRB,0.10007E+04_JPRB,0.99748E+03_JPRB /)  
+KB(:,33,12) = (/ &
+ & 0.10029E+04_JPRB,0.10028E+04_JPRB,0.10021E+04_JPRB,0.10000E+04_JPRB,0.99658E+03_JPRB /)  
+KB(:,34,12) = (/ &
+ & 0.10031E+04_JPRB,0.10026E+04_JPRB,0.10017E+04_JPRB,0.99945E+03_JPRB,0.99563E+03_JPRB /)  
+KB(:,35,12) = (/ &
+ & 0.10030E+04_JPRB,0.10025E+04_JPRB,0.10031E+04_JPRB,0.99888E+03_JPRB,0.99496E+03_JPRB /)  
+KB(:,36,12) = (/ &
+ & 0.10030E+04_JPRB,0.10025E+04_JPRB,0.10020E+04_JPRB,0.99880E+03_JPRB,0.99482E+03_JPRB /)  
+KB(:,37,12) = (/ &
+ & 0.10029E+04_JPRB,0.10026E+04_JPRB,0.10015E+04_JPRB,0.99939E+03_JPRB,0.99547E+03_JPRB /)  
+KB(:,38,12) = (/ &
+ & 0.10029E+04_JPRB,0.10027E+04_JPRB,0.10017E+04_JPRB,0.99958E+03_JPRB,0.99634E+03_JPRB /)  
+KB(:,39,12) = (/ &
+ & 0.10028E+04_JPRB,0.10028E+04_JPRB,0.10017E+04_JPRB,0.99993E+03_JPRB,0.99613E+03_JPRB /)  
+KB(:,40,12) = (/ &
+ & 0.10027E+04_JPRB,0.10029E+04_JPRB,0.10022E+04_JPRB,0.10003E+04_JPRB,0.99696E+03_JPRB /)  
+KB(:,41,12) = (/ &
+ & 0.10027E+04_JPRB,0.10029E+04_JPRB,0.10024E+04_JPRB,0.10013E+04_JPRB,0.99857E+03_JPRB /)  
+KB(:,42,12) = (/ &
+ & 0.10022E+04_JPRB,0.10029E+04_JPRB,0.10028E+04_JPRB,0.10021E+04_JPRB,0.99929E+03_JPRB /)  
+KB(:,43,12) = (/ &
+ & 0.10018E+04_JPRB,0.10028E+04_JPRB,0.10028E+04_JPRB,0.10020E+04_JPRB,0.10001E+04_JPRB /)  
+KB(:,44,12) = (/ &
+ & 0.10013E+04_JPRB,0.10026E+04_JPRB,0.10029E+04_JPRB,0.10023E+04_JPRB,0.10016E+04_JPRB /)  
+KB(:,45,12) = (/ &
+ & 0.10007E+04_JPRB,0.10022E+04_JPRB,0.10029E+04_JPRB,0.10026E+04_JPRB,0.10015E+04_JPRB /)  
+KB(:,46,12) = (/ &
+ & 0.10014E+04_JPRB,0.10016E+04_JPRB,0.10028E+04_JPRB,0.10028E+04_JPRB,0.10020E+04_JPRB /)  
+KB(:,47,12) = (/ &
+ & 0.99993E+03_JPRB,0.10012E+04_JPRB,0.10025E+04_JPRB,0.10029E+04_JPRB,0.10024E+04_JPRB /)  
+KB(:,48,12) = (/ &
+ & 0.99937E+03_JPRB,0.10005E+04_JPRB,0.10022E+04_JPRB,0.10029E+04_JPRB,0.10027E+04_JPRB /)  
+KB(:,49,12) = (/ &
+ & 0.99853E+03_JPRB,0.10002E+04_JPRB,0.10015E+04_JPRB,0.10026E+04_JPRB,0.10029E+04_JPRB /)  
+KB(:,50,12) = (/ &
+ & 0.99741E+03_JPRB,0.99993E+03_JPRB,0.10008E+04_JPRB,0.10023E+04_JPRB,0.10029E+04_JPRB /)  
+KB(:,51,12) = (/ &
+ & 0.99665E+03_JPRB,0.99912E+03_JPRB,0.10002E+04_JPRB,0.10018E+04_JPRB,0.10028E+04_JPRB /)  
+KB(:,52,12) = (/ &
+ & 0.99385E+03_JPRB,0.99826E+03_JPRB,0.10000E+04_JPRB,0.10013E+04_JPRB,0.10025E+04_JPRB /)  
+KB(:,53,12) = (/ &
+ & 0.99099E+03_JPRB,0.99714E+03_JPRB,0.99965E+03_JPRB,0.10007E+04_JPRB,0.10022E+04_JPRB /)  
+KB(:,54,12) = (/ &
+ & 0.98826E+03_JPRB,0.99612E+03_JPRB,0.99903E+03_JPRB,0.10002E+04_JPRB,0.10018E+04_JPRB /)  
+KB(:,55,12) = (/ &
+ & 0.98397E+03_JPRB,0.99379E+03_JPRB,0.99822E+03_JPRB,0.10000E+04_JPRB,0.10013E+04_JPRB /)  
+KB(:,56,12) = (/ &
+ & 0.98006E+03_JPRB,0.99120E+03_JPRB,0.99722E+03_JPRB,0.99969E+03_JPRB,0.10006E+04_JPRB /)  
+KB(:,57,12) = (/ &
+ & 0.97631E+03_JPRB,0.98840E+03_JPRB,0.99624E+03_JPRB,0.99911E+03_JPRB,0.10002E+04_JPRB /)  
+KB(:,58,12) = (/ &
+ & 0.97279E+03_JPRB,0.98508E+03_JPRB,0.99422E+03_JPRB,0.99838E+03_JPRB,0.10001E+04_JPRB /)  
+KB(:,59,12) = (/ &
+ & 0.97171E+03_JPRB,0.98327E+03_JPRB,0.99315E+03_JPRB,0.99818E+03_JPRB,0.99997E+03_JPRB /)  
+KB(:,13,13) = (/ &
+ & 0.99623E+03_JPRB,0.99978E+03_JPRB,0.10034E+04_JPRB,0.10050E+04_JPRB,0.10054E+04_JPRB /)  
+KB(:,14,13) = (/ &
+ & 0.99674E+03_JPRB,0.10002E+04_JPRB,0.10034E+04_JPRB,0.10050E+04_JPRB,0.10053E+04_JPRB /)  
+KB(:,15,13) = (/ &
+ & 0.99652E+03_JPRB,0.10007E+04_JPRB,0.10036E+04_JPRB,0.10051E+04_JPRB,0.10051E+04_JPRB /)  
+KB(:,16,13) = (/ &
+ & 0.99785E+03_JPRB,0.10007E+04_JPRB,0.10039E+04_JPRB,0.10049E+04_JPRB,0.10053E+04_JPRB /)  
+KB(:,17,13) = (/ &
+ & 0.99816E+03_JPRB,0.10017E+04_JPRB,0.10043E+04_JPRB,0.10052E+04_JPRB,0.10052E+04_JPRB /)  
+KB(:,18,13) = (/ &
+ & 0.99792E+03_JPRB,0.10021E+04_JPRB,0.10042E+04_JPRB,0.10053E+04_JPRB,0.10051E+04_JPRB /)  
+KB(:,19,13) = (/ &
+ & 0.99826E+03_JPRB,0.10023E+04_JPRB,0.10042E+04_JPRB,0.10053E+04_JPRB,0.10051E+04_JPRB /)  
+KB(:,20,13) = (/ &
+ & 0.99869E+03_JPRB,0.10028E+04_JPRB,0.10038E+04_JPRB,0.10053E+04_JPRB,0.10044E+04_JPRB /)  
+KB(:,21,13) = (/ &
+ & 0.99914E+03_JPRB,0.10028E+04_JPRB,0.10048E+04_JPRB,0.10054E+04_JPRB,0.10048E+04_JPRB /)  
+KB(:,22,13) = (/ &
+ & 0.99989E+03_JPRB,0.10035E+04_JPRB,0.10050E+04_JPRB,0.10053E+04_JPRB,0.10046E+04_JPRB /)  
+KB(:,23,13) = (/ &
+ & 0.10011E+04_JPRB,0.10037E+04_JPRB,0.10051E+04_JPRB,0.10053E+04_JPRB,0.10041E+04_JPRB /)  
+KB(:,24,13) = (/ &
+ & 0.10018E+04_JPRB,0.10041E+04_JPRB,0.10050E+04_JPRB,0.10052E+04_JPRB,0.10037E+04_JPRB /)  
+KB(:,25,13) = (/ &
+ & 0.10026E+04_JPRB,0.10040E+04_JPRB,0.10056E+04_JPRB,0.10050E+04_JPRB,0.10036E+04_JPRB /)  
+KB(:,26,13) = (/ &
+ & 0.10031E+04_JPRB,0.10048E+04_JPRB,0.10054E+04_JPRB,0.10050E+04_JPRB,0.10030E+04_JPRB /)  
+KB(:,27,13) = (/ &
+ & 0.10047E+04_JPRB,0.10050E+04_JPRB,0.10051E+04_JPRB,0.10045E+04_JPRB,0.10025E+04_JPRB /)  
+KB(:,28,13) = (/ &
+ & 0.10039E+04_JPRB,0.10052E+04_JPRB,0.10052E+04_JPRB,0.10041E+04_JPRB,0.10018E+04_JPRB /)  
+KB(:,29,13) = (/ &
+ & 0.10044E+04_JPRB,0.10053E+04_JPRB,0.10051E+04_JPRB,0.10037E+04_JPRB,0.10011E+04_JPRB /)  
+KB(:,30,13) = (/ &
+ & 0.10048E+04_JPRB,0.10054E+04_JPRB,0.10048E+04_JPRB,0.10029E+04_JPRB,0.99977E+03_JPRB /)  
+KB(:,31,13) = (/ &
+ & 0.10050E+04_JPRB,0.10053E+04_JPRB,0.10045E+04_JPRB,0.10025E+04_JPRB,0.99968E+03_JPRB /)  
+KB(:,32,13) = (/ &
+ & 0.10052E+04_JPRB,0.10050E+04_JPRB,0.10041E+04_JPRB,0.10015E+04_JPRB,0.99880E+03_JPRB /)  
+KB(:,33,13) = (/ &
+ & 0.10053E+04_JPRB,0.10050E+04_JPRB,0.10033E+04_JPRB,0.10008E+04_JPRB,0.99675E+03_JPRB /)  
+KB(:,34,13) = (/ &
+ & 0.10051E+04_JPRB,0.10048E+04_JPRB,0.10028E+04_JPRB,0.10000E+04_JPRB,0.99529E+03_JPRB /)  
+KB(:,35,13) = (/ &
+ & 0.10054E+04_JPRB,0.10047E+04_JPRB,0.10003E+04_JPRB,0.99992E+03_JPRB,0.99481E+03_JPRB /)  
+KB(:,36,13) = (/ &
+ & 0.10054E+04_JPRB,0.10046E+04_JPRB,0.10017E+04_JPRB,0.99987E+03_JPRB,0.99445E+03_JPRB /)  
+KB(:,37,13) = (/ &
+ & 0.10054E+04_JPRB,0.10048E+04_JPRB,0.10030E+04_JPRB,0.99995E+03_JPRB,0.99517E+03_JPRB /)  
+KB(:,38,13) = (/ &
+ & 0.10054E+04_JPRB,0.10049E+04_JPRB,0.10034E+04_JPRB,0.10006E+04_JPRB,0.99603E+03_JPRB /)  
+KB(:,39,13) = (/ &
+ & 0.10053E+04_JPRB,0.10051E+04_JPRB,0.10037E+04_JPRB,0.10011E+04_JPRB,0.99693E+03_JPRB /)  
+KB(:,40,13) = (/ &
+ & 0.10052E+04_JPRB,0.10052E+04_JPRB,0.10041E+04_JPRB,0.10018E+04_JPRB,0.99860E+03_JPRB /)  
+KB(:,41,13) = (/ &
+ & 0.10048E+04_JPRB,0.10053E+04_JPRB,0.10045E+04_JPRB,0.10023E+04_JPRB,0.99951E+03_JPRB /)  
+KB(:,42,13) = (/ &
+ & 0.10048E+04_JPRB,0.10054E+04_JPRB,0.10046E+04_JPRB,0.10024E+04_JPRB,0.10003E+04_JPRB /)  
+KB(:,43,13) = (/ &
+ & 0.10043E+04_JPRB,0.10053E+04_JPRB,0.10051E+04_JPRB,0.10038E+04_JPRB,0.10013E+04_JPRB /)  
+KB(:,44,13) = (/ &
+ & 0.10036E+04_JPRB,0.10051E+04_JPRB,0.10053E+04_JPRB,0.10044E+04_JPRB,0.10012E+04_JPRB /)  
+KB(:,45,13) = (/ &
+ & 0.10028E+04_JPRB,0.10048E+04_JPRB,0.10054E+04_JPRB,0.10048E+04_JPRB,0.10031E+04_JPRB /)  
+KB(:,46,13) = (/ &
+ & 0.10008E+04_JPRB,0.10042E+04_JPRB,0.10053E+04_JPRB,0.10052E+04_JPRB,0.10038E+04_JPRB /)  
+KB(:,47,13) = (/ &
+ & 0.10002E+04_JPRB,0.10039E+04_JPRB,0.10050E+04_JPRB,0.10053E+04_JPRB,0.10045E+04_JPRB /)  
+KB(:,48,13) = (/ &
+ & 0.99859E+03_JPRB,0.10025E+04_JPRB,0.10043E+04_JPRB,0.10054E+04_JPRB,0.10050E+04_JPRB /)  
+KB(:,49,13) = (/ &
+ & 0.99776E+03_JPRB,0.10009E+04_JPRB,0.10041E+04_JPRB,0.10052E+04_JPRB,0.10053E+04_JPRB /)  
+KB(:,50,13) = (/ &
+ & 0.99565E+03_JPRB,0.99944E+03_JPRB,0.10034E+04_JPRB,0.10049E+04_JPRB,0.10054E+04_JPRB /)  
+KB(:,51,13) = (/ &
+ & 0.99271E+03_JPRB,0.99811E+03_JPRB,0.10022E+04_JPRB,0.10043E+04_JPRB,0.10053E+04_JPRB /)  
+KB(:,52,13) = (/ &
+ & 0.99056E+03_JPRB,0.99717E+03_JPRB,0.10006E+04_JPRB,0.10036E+04_JPRB,0.10051E+04_JPRB /)  
+KB(:,53,13) = (/ &
+ & 0.98830E+03_JPRB,0.99502E+03_JPRB,0.99909E+03_JPRB,0.10028E+04_JPRB,0.10048E+04_JPRB /)  
+KB(:,54,13) = (/ &
+ & 0.98610E+03_JPRB,0.99275E+03_JPRB,0.99821E+03_JPRB,0.10021E+04_JPRB,0.10042E+04_JPRB /)  
+KB(:,55,13) = (/ &
+ & 0.98386E+03_JPRB,0.99045E+03_JPRB,0.99729E+03_JPRB,0.10008E+04_JPRB,0.10038E+04_JPRB /)  
+KB(:,56,13) = (/ &
+ & 0.98150E+03_JPRB,0.98846E+03_JPRB,0.99517E+03_JPRB,0.99919E+03_JPRB,0.10028E+04_JPRB /)  
+KB(:,57,13) = (/ &
+ & 0.97902E+03_JPRB,0.98636E+03_JPRB,0.99303E+03_JPRB,0.99832E+03_JPRB,0.10022E+04_JPRB /)  
+KB(:,58,13) = (/ &
+ & 0.97656E+03_JPRB,0.98426E+03_JPRB,0.99079E+03_JPRB,0.99735E+03_JPRB,0.10008E+04_JPRB /)  
+KB(:,59,13) = (/ &
+ & 0.97503E+03_JPRB,0.98337E+03_JPRB,0.99004E+03_JPRB,0.99647E+03_JPRB,0.10002E+04_JPRB /)  
+KB(:,13,14) = (/ &
+ & 0.99596E+03_JPRB,0.10023E+04_JPRB,0.10047E+04_JPRB,0.10067E+04_JPRB,0.10072E+04_JPRB /)  
+KB(:,14,14) = (/ &
+ & 0.99625E+03_JPRB,0.10024E+04_JPRB,0.10052E+04_JPRB,0.10068E+04_JPRB,0.10071E+04_JPRB /)  
+KB(:,15,14) = (/ &
+ & 0.99662E+03_JPRB,0.10025E+04_JPRB,0.10054E+04_JPRB,0.10069E+04_JPRB,0.10071E+04_JPRB /)  
+KB(:,16,14) = (/ &
+ & 0.99703E+03_JPRB,0.10026E+04_JPRB,0.10056E+04_JPRB,0.10070E+04_JPRB,0.10070E+04_JPRB /)  
+KB(:,17,14) = (/ &
+ & 0.99784E+03_JPRB,0.10032E+04_JPRB,0.10054E+04_JPRB,0.10071E+04_JPRB,0.10070E+04_JPRB /)  
+KB(:,18,14) = (/ &
+ & 0.99947E+03_JPRB,0.10032E+04_JPRB,0.10060E+04_JPRB,0.10071E+04_JPRB,0.10069E+04_JPRB /)  
+KB(:,19,14) = (/ &
+ & 0.10001E+04_JPRB,0.10036E+04_JPRB,0.10062E+04_JPRB,0.10071E+04_JPRB,0.10068E+04_JPRB /)  
+KB(:,20,14) = (/ &
+ & 0.10009E+04_JPRB,0.10037E+04_JPRB,0.10064E+04_JPRB,0.10076E+04_JPRB,0.10067E+04_JPRB /)  
+KB(:,21,14) = (/ &
+ & 0.10015E+04_JPRB,0.10046E+04_JPRB,0.10065E+04_JPRB,0.10072E+04_JPRB,0.10065E+04_JPRB /)  
+KB(:,22,14) = (/ &
+ & 0.10023E+04_JPRB,0.10047E+04_JPRB,0.10068E+04_JPRB,0.10071E+04_JPRB,0.10063E+04_JPRB /)  
+KB(:,23,14) = (/ &
+ & 0.10021E+04_JPRB,0.10055E+04_JPRB,0.10069E+04_JPRB,0.10071E+04_JPRB,0.10060E+04_JPRB /)  
+KB(:,24,14) = (/ &
+ & 0.10028E+04_JPRB,0.10059E+04_JPRB,0.10071E+04_JPRB,0.10069E+04_JPRB,0.10057E+04_JPRB /)  
+KB(:,25,14) = (/ &
+ & 0.10033E+04_JPRB,0.10062E+04_JPRB,0.10068E+04_JPRB,0.10068E+04_JPRB,0.10052E+04_JPRB /)  
+KB(:,26,14) = (/ &
+ & 0.10043E+04_JPRB,0.10066E+04_JPRB,0.10072E+04_JPRB,0.10061E+04_JPRB,0.10047E+04_JPRB /)  
+KB(:,27,14) = (/ &
+ & 0.10033E+04_JPRB,0.10068E+04_JPRB,0.10071E+04_JPRB,0.10062E+04_JPRB,0.10042E+04_JPRB /)  
+KB(:,28,14) = (/ &
+ & 0.10057E+04_JPRB,0.10070E+04_JPRB,0.10070E+04_JPRB,0.10058E+04_JPRB,0.10036E+04_JPRB /)  
+KB(:,29,14) = (/ &
+ & 0.10062E+04_JPRB,0.10075E+04_JPRB,0.10068E+04_JPRB,0.10053E+04_JPRB,0.10030E+04_JPRB /)  
+KB(:,30,14) = (/ &
+ & 0.10065E+04_JPRB,0.10072E+04_JPRB,0.10069E+04_JPRB,0.10048E+04_JPRB,0.10022E+04_JPRB /)  
+KB(:,31,14) = (/ &
+ & 0.10068E+04_JPRB,0.10071E+04_JPRB,0.10062E+04_JPRB,0.10042E+04_JPRB,0.10014E+04_JPRB /)  
+KB(:,32,14) = (/ &
+ & 0.10070E+04_JPRB,0.10070E+04_JPRB,0.10058E+04_JPRB,0.10035E+04_JPRB,0.99925E+03_JPRB /)  
+KB(:,33,14) = (/ &
+ & 0.10071E+04_JPRB,0.10068E+04_JPRB,0.10053E+04_JPRB,0.10029E+04_JPRB,0.99808E+03_JPRB /)  
+KB(:,34,14) = (/ &
+ & 0.10072E+04_JPRB,0.10065E+04_JPRB,0.10048E+04_JPRB,0.10021E+04_JPRB,0.99788E+03_JPRB /)  
+KB(:,35,14) = (/ &
+ & 0.10072E+04_JPRB,0.10064E+04_JPRB,0.10045E+04_JPRB,0.10016E+04_JPRB,0.99700E+03_JPRB /)  
+KB(:,36,14) = (/ &
+ & 0.10072E+04_JPRB,0.10063E+04_JPRB,0.10044E+04_JPRB,0.10015E+04_JPRB,0.99731E+03_JPRB /)  
+KB(:,37,14) = (/ &
+ & 0.10072E+04_JPRB,0.10065E+04_JPRB,0.10047E+04_JPRB,0.10021E+04_JPRB,0.99778E+03_JPRB /)  
+KB(:,38,14) = (/ &
+ & 0.10072E+04_JPRB,0.10067E+04_JPRB,0.10050E+04_JPRB,0.10026E+04_JPRB,0.99820E+03_JPRB /)  
+KB(:,39,14) = (/ &
+ & 0.10071E+04_JPRB,0.10068E+04_JPRB,0.10053E+04_JPRB,0.10030E+04_JPRB,0.99855E+03_JPRB /)  
+KB(:,40,14) = (/ &
+ & 0.10070E+04_JPRB,0.10070E+04_JPRB,0.10058E+04_JPRB,0.10036E+04_JPRB,0.99965E+03_JPRB /)  
+KB(:,41,14) = (/ &
+ & 0.10068E+04_JPRB,0.10071E+04_JPRB,0.10062E+04_JPRB,0.10042E+04_JPRB,0.10010E+04_JPRB /)  
+KB(:,42,14) = (/ &
+ & 0.10065E+04_JPRB,0.10072E+04_JPRB,0.10065E+04_JPRB,0.10048E+04_JPRB,0.10022E+04_JPRB /)  
+KB(:,43,14) = (/ &
+ & 0.10061E+04_JPRB,0.10071E+04_JPRB,0.10069E+04_JPRB,0.10055E+04_JPRB,0.10031E+04_JPRB /)  
+KB(:,44,14) = (/ &
+ & 0.10054E+04_JPRB,0.10069E+04_JPRB,0.10071E+04_JPRB,0.10061E+04_JPRB,0.10039E+04_JPRB /)  
+KB(:,45,14) = (/ &
+ & 0.10046E+04_JPRB,0.10066E+04_JPRB,0.10072E+04_JPRB,0.10065E+04_JPRB,0.10048E+04_JPRB /)  
+KB(:,46,14) = (/ &
+ & 0.10023E+04_JPRB,0.10060E+04_JPRB,0.10075E+04_JPRB,0.10069E+04_JPRB,0.10055E+04_JPRB /)  
+KB(:,47,14) = (/ &
+ & 0.10024E+04_JPRB,0.10044E+04_JPRB,0.10068E+04_JPRB,0.10071E+04_JPRB,0.10062E+04_JPRB /)  
+KB(:,48,14) = (/ &
+ & 0.10006E+04_JPRB,0.10039E+04_JPRB,0.10063E+04_JPRB,0.10072E+04_JPRB,0.10067E+04_JPRB /)  
+KB(:,49,14) = (/ &
+ & 0.99705E+03_JPRB,0.10026E+04_JPRB,0.10052E+04_JPRB,0.10070E+04_JPRB,0.10070E+04_JPRB /)  
+KB(:,50,14) = (/ &
+ & 0.99574E+03_JPRB,0.10014E+04_JPRB,0.10040E+04_JPRB,0.10066E+04_JPRB,0.10072E+04_JPRB /)  
+KB(:,51,14) = (/ &
+ & 0.99447E+03_JPRB,0.99966E+03_JPRB,0.10033E+04_JPRB,0.10065E+04_JPRB,0.10071E+04_JPRB /)  
+KB(:,52,14) = (/ &
+ & 0.99299E+03_JPRB,0.99670E+03_JPRB,0.10025E+04_JPRB,0.10054E+04_JPRB,0.10069E+04_JPRB /)  
+KB(:,53,14) = (/ &
+ & 0.99138E+03_JPRB,0.99552E+03_JPRB,0.10013E+04_JPRB,0.10044E+04_JPRB,0.10065E+04_JPRB /)  
+KB(:,54,14) = (/ &
+ & 0.98979E+03_JPRB,0.99462E+03_JPRB,0.99874E+03_JPRB,0.10030E+04_JPRB,0.10060E+04_JPRB /)  
+KB(:,55,14) = (/ &
+ & 0.98814E+03_JPRB,0.99291E+03_JPRB,0.99630E+03_JPRB,0.10029E+04_JPRB,0.10050E+04_JPRB /)  
+KB(:,56,14) = (/ &
+ & 0.98639E+03_JPRB,0.99150E+03_JPRB,0.99562E+03_JPRB,0.10014E+04_JPRB,0.10045E+04_JPRB /)  
+KB(:,57,14) = (/ &
+ & 0.98454E+03_JPRB,0.98998E+03_JPRB,0.99438E+03_JPRB,0.99904E+03_JPRB,0.10032E+04_JPRB /)  
+KB(:,58,14) = (/ &
+ & 0.98268E+03_JPRB,0.98844E+03_JPRB,0.99315E+03_JPRB,0.99688E+03_JPRB,0.10025E+04_JPRB /)  
+KB(:,59,14) = (/ &
+ & 0.98190E+03_JPRB,0.98779E+03_JPRB,0.99262E+03_JPRB,0.99638E+03_JPRB,0.10024E+04_JPRB /)  
+KB(:,13,15) = (/ &
+ & 0.99739E+03_JPRB,0.10017E+04_JPRB,0.10064E+04_JPRB,0.10076E+04_JPRB,0.10080E+04_JPRB /)  
+KB(:,14,15) = (/ &
+ & 0.99781E+03_JPRB,0.10021E+04_JPRB,0.10065E+04_JPRB,0.10077E+04_JPRB,0.10090E+04_JPRB /)  
+KB(:,15,15) = (/ &
+ & 0.99827E+03_JPRB,0.10029E+04_JPRB,0.10067E+04_JPRB,0.10077E+04_JPRB,0.10079E+04_JPRB /)  
+KB(:,16,15) = (/ &
+ & 0.99875E+03_JPRB,0.10040E+04_JPRB,0.10068E+04_JPRB,0.10078E+04_JPRB,0.10089E+04_JPRB /)  
+KB(:,17,15) = (/ &
+ & 0.99816E+03_JPRB,0.10041E+04_JPRB,0.10080E+04_JPRB,0.10079E+04_JPRB,0.10078E+04_JPRB /)  
+KB(:,18,15) = (/ &
+ & 0.99861E+03_JPRB,0.10065E+04_JPRB,0.10071E+04_JPRB,0.10090E+04_JPRB,0.10078E+04_JPRB /)  
+KB(:,19,15) = (/ &
+ & 0.10001E+04_JPRB,0.10056E+04_JPRB,0.10072E+04_JPRB,0.10079E+04_JPRB,0.10077E+04_JPRB /)  
+KB(:,20,15) = (/ &
+ & 0.99952E+03_JPRB,0.10059E+04_JPRB,0.10074E+04_JPRB,0.10090E+04_JPRB,0.10087E+04_JPRB /)  
+KB(:,21,15) = (/ &
+ & 0.10000E+04_JPRB,0.10061E+04_JPRB,0.10085E+04_JPRB,0.10080E+04_JPRB,0.10085E+04_JPRB /)  
+KB(:,22,15) = (/ &
+ & 0.10012E+04_JPRB,0.10064E+04_JPRB,0.10076E+04_JPRB,0.10090E+04_JPRB,0.10073E+04_JPRB /)  
+KB(:,23,15) = (/ &
+ & 0.10032E+04_JPRB,0.10067E+04_JPRB,0.10088E+04_JPRB,0.10079E+04_JPRB,0.10070E+04_JPRB /)  
+KB(:,24,15) = (/ &
+ & 0.10052E+04_JPRB,0.10070E+04_JPRB,0.10079E+04_JPRB,0.10089E+04_JPRB,0.10067E+04_JPRB /)  
+KB(:,25,15) = (/ &
+ & 0.10057E+04_JPRB,0.10083E+04_JPRB,0.10079E+04_JPRB,0.10098E+04_JPRB,0.10062E+04_JPRB /)  
+KB(:,26,15) = (/ &
+ & 0.10061E+04_JPRB,0.10085E+04_JPRB,0.10080E+04_JPRB,0.10075E+04_JPRB,0.10068E+04_JPRB /)  
+KB(:,27,15) = (/ &
+ & 0.10066E+04_JPRB,0.10087E+04_JPRB,0.10111E+04_JPRB,0.10072E+04_JPRB,0.10051E+04_JPRB /)  
+KB(:,28,15) = (/ &
+ & 0.10069E+04_JPRB,0.10089E+04_JPRB,0.10079E+04_JPRB,0.10068E+04_JPRB,0.10054E+04_JPRB /)  
+KB(:,29,15) = (/ &
+ & 0.10072E+04_JPRB,0.10069E+04_JPRB,0.10077E+04_JPRB,0.10063E+04_JPRB,0.10034E+04_JPRB /)  
+KB(:,30,15) = (/ &
+ & 0.10075E+04_JPRB,0.10111E+04_JPRB,0.10075E+04_JPRB,0.10068E+04_JPRB,0.10088E+04_JPRB /)  
+KB(:,31,15) = (/ &
+ & 0.10077E+04_JPRB,0.10080E+04_JPRB,0.10072E+04_JPRB,0.10061E+04_JPRB,0.10007E+04_JPRB /)  
+KB(:,32,15) = (/ &
+ & 0.10078E+04_JPRB,0.10089E+04_JPRB,0.10068E+04_JPRB,0.10043E+04_JPRB,0.10013E+04_JPRB /)  
+KB(:,33,15) = (/ &
+ & 0.10079E+04_JPRB,0.10077E+04_JPRB,0.10063E+04_JPRB,0.10044E+04_JPRB,0.10009E+04_JPRB /)  
+KB(:,34,15) = (/ &
+ & 0.10090E+04_JPRB,0.10075E+04_JPRB,0.10058E+04_JPRB,0.10025E+04_JPRB,0.10002E+04_JPRB /)  
+KB(:,35,15) = (/ &
+ & 0.10080E+04_JPRB,0.10073E+04_JPRB,0.10054E+04_JPRB,0.10021E+04_JPRB,0.99972E+03_JPRB /)  
+KB(:,36,15) = (/ &
+ & 0.10090E+04_JPRB,0.10073E+04_JPRB,0.10054E+04_JPRB,0.10020E+04_JPRB,0.99964E+03_JPRB /)  
+KB(:,37,15) = (/ &
+ & 0.10080E+04_JPRB,0.10075E+04_JPRB,0.10057E+04_JPRB,0.10024E+04_JPRB,0.10001E+04_JPRB /)  
+KB(:,38,15) = (/ &
+ & 0.10090E+04_JPRB,0.10076E+04_JPRB,0.10060E+04_JPRB,0.10040E+04_JPRB,0.10006E+04_JPRB /)  
+KB(:,39,15) = (/ &
+ & 0.10079E+04_JPRB,0.10077E+04_JPRB,0.10063E+04_JPRB,0.10034E+04_JPRB,0.10010E+04_JPRB /)  
+KB(:,40,15) = (/ &
+ & 0.10089E+04_JPRB,0.10089E+04_JPRB,0.10068E+04_JPRB,0.10054E+04_JPRB,0.10014E+04_JPRB /)  
+KB(:,41,15) = (/ &
+ & 0.10087E+04_JPRB,0.10090E+04_JPRB,0.10082E+04_JPRB,0.10051E+04_JPRB,0.10018E+04_JPRB /)  
+KB(:,42,15) = (/ &
+ & 0.10085E+04_JPRB,0.10090E+04_JPRB,0.10075E+04_JPRB,0.10058E+04_JPRB,0.10025E+04_JPRB /)  
+KB(:,43,15) = (/ &
+ & 0.10071E+04_JPRB,0.10079E+04_JPRB,0.10078E+04_JPRB,0.10086E+04_JPRB,0.10037E+04_JPRB /)  
+KB(:,44,15) = (/ &
+ & 0.10067E+04_JPRB,0.10088E+04_JPRB,0.10079E+04_JPRB,0.10071E+04_JPRB,0.10048E+04_JPRB /)  
+KB(:,45,15) = (/ &
+ & 0.10061E+04_JPRB,0.10075E+04_JPRB,0.10090E+04_JPRB,0.10096E+04_JPRB,0.10057E+04_JPRB /)  
+KB(:,46,15) = (/ &
+ & 0.10054E+04_JPRB,0.10071E+04_JPRB,0.10068E+04_JPRB,0.10078E+04_JPRB,0.10065E+04_JPRB /)  
+KB(:,47,15) = (/ &
+ & 0.10020E+04_JPRB,0.10065E+04_JPRB,0.10087E+04_JPRB,0.10079E+04_JPRB,0.10093E+04_JPRB /)  
+KB(:,48,15) = (/ &
+ & 0.99938E+03_JPRB,0.10058E+04_JPRB,0.10073E+04_JPRB,0.10079E+04_JPRB,0.10087E+04_JPRB /)  
+KB(:,49,15) = (/ &
+ & 0.99869E+03_JPRB,0.10038E+04_JPRB,0.10079E+04_JPRB,0.10099E+04_JPRB,0.10089E+04_JPRB /)  
+KB(:,50,15) = (/ &
+ & 0.99593E+03_JPRB,0.10003E+04_JPRB,0.10062E+04_JPRB,0.10075E+04_JPRB,0.10090E+04_JPRB /)  
+KB(:,51,15) = (/ &
+ & 0.99417E+03_JPRB,0.99877E+03_JPRB,0.10055E+04_JPRB,0.10061E+04_JPRB,0.10090E+04_JPRB /)  
+KB(:,52,15) = (/ &
+ & 0.99334E+03_JPRB,0.99717E+03_JPRB,0.10030E+04_JPRB,0.10077E+04_JPRB,0.10077E+04_JPRB /)  
+KB(:,53,15) = (/ &
+ & 0.99034E+03_JPRB,0.99548E+03_JPRB,0.99989E+03_JPRB,0.10071E+04_JPRB,0.10085E+04_JPRB /)  
+KB(:,54,15) = (/ &
+ & 0.98844E+03_JPRB,0.99385E+03_JPRB,0.99849E+03_JPRB,0.10064E+04_JPRB,0.10081E+04_JPRB /)  
+KB(:,55,15) = (/ &
+ & 0.98654E+03_JPRB,0.99323E+03_JPRB,0.99708E+03_JPRB,0.10005E+04_JPRB,0.10066E+04_JPRB /)  
+KB(:,56,15) = (/ &
+ & 0.98558E+03_JPRB,0.99048E+03_JPRB,0.99560E+03_JPRB,0.99999E+03_JPRB,0.10071E+04_JPRB /)  
+KB(:,57,15) = (/ &
+ & 0.98349E+03_JPRB,0.98867E+03_JPRB,0.99404E+03_JPRB,0.99866E+03_JPRB,0.10054E+04_JPRB /)  
+KB(:,58,15) = (/ &
+ & 0.98039E+03_JPRB,0.98688E+03_JPRB,0.99250E+03_JPRB,0.99837E+03_JPRB,0.10028E+04_JPRB /)  
+KB(:,59,15) = (/ &
+ & 0.97954E+03_JPRB,0.98614E+03_JPRB,0.99186E+03_JPRB,0.99679E+03_JPRB,0.10019E+04_JPRB /)  
+KB(:,13,16) = (/ &
+ & 0.98905E+03_JPRB,0.99319E+03_JPRB,0.10065E+04_JPRB,0.10075E+04_JPRB,0.10080E+04_JPRB /)  
+KB(:,14,16) = (/ &
+ & 0.98947E+03_JPRB,0.10009E+04_JPRB,0.10067E+04_JPRB,0.10076E+04_JPRB,0.10005E+04_JPRB /)  
+KB(:,15,16) = (/ &
+ & 0.98993E+03_JPRB,0.10052E+04_JPRB,0.10068E+04_JPRB,0.10076E+04_JPRB,0.10080E+04_JPRB /)  
+KB(:,16,16) = (/ &
+ & 0.99040E+03_JPRB,0.10054E+04_JPRB,0.10069E+04_JPRB,0.10077E+04_JPRB,0.10005E+04_JPRB /)  
+KB(:,17,16) = (/ &
+ & 0.99823E+03_JPRB,0.10056E+04_JPRB,0.99955E+03_JPRB,0.10078E+04_JPRB,0.10080E+04_JPRB /)  
+KB(:,18,16) = (/ &
+ & 0.99867E+03_JPRB,0.99832E+03_JPRB,0.10071E+04_JPRB,0.10003E+04_JPRB,0.10079E+04_JPRB /)  
+KB(:,19,16) = (/ &
+ & 0.99168E+03_JPRB,0.10059E+04_JPRB,0.10072E+04_JPRB,0.10078E+04_JPRB,0.10079E+04_JPRB /)  
+KB(:,20,16) = (/ &
+ & 0.99955E+03_JPRB,0.10061E+04_JPRB,0.10073E+04_JPRB,0.99297E+03_JPRB,0.10003E+04_JPRB /)  
+KB(:,21,16) = (/ &
+ & 0.10000E+04_JPRB,0.10063E+04_JPRB,0.99994E+03_JPRB,0.10079E+04_JPRB,0.10002E+04_JPRB /)  
+KB(:,22,16) = (/ &
+ & 0.10007E+04_JPRB,0.10066E+04_JPRB,0.10075E+04_JPRB,0.10005E+04_JPRB,0.10075E+04_JPRB /)  
+KB(:,23,16) = (/ &
+ & 0.10052E+04_JPRB,0.10068E+04_JPRB,0.10002E+04_JPRB,0.10080E+04_JPRB,0.10072E+04_JPRB /)  
+KB(:,24,16) = (/ &
+ & 0.10056E+04_JPRB,0.10070E+04_JPRB,0.10078E+04_JPRB,0.10005E+04_JPRB,0.10068E+04_JPRB /)  
+KB(:,25,16) = (/ &
+ & 0.10060E+04_JPRB,0.99977E+03_JPRB,0.10079E+04_JPRB,0.99294E+03_JPRB,0.10064E+04_JPRB /)  
+KB(:,26,16) = (/ &
+ & 0.10064E+04_JPRB,0.99996E+03_JPRB,0.10080E+04_JPRB,0.10077E+04_JPRB,0.99839E+03_JPRB /)  
+KB(:,27,16) = (/ &
+ & 0.10067E+04_JPRB,0.10001E+04_JPRB,0.98561E+03_JPRB,0.10074E+04_JPRB,0.10052E+04_JPRB /)  
+KB(:,28,16) = (/ &
+ & 0.10069E+04_JPRB,0.10003E+04_JPRB,0.10080E+04_JPRB,0.10070E+04_JPRB,0.99700E+03_JPRB /)  
+KB(:,29,16) = (/ &
+ & 0.10072E+04_JPRB,0.10078E+04_JPRB,0.10079E+04_JPRB,0.10065E+04_JPRB,0.10036E+04_JPRB /)  
+KB(:,30,16) = (/ &
+ & 0.10074E+04_JPRB,0.98555E+03_JPRB,0.10002E+04_JPRB,0.99845E+03_JPRB,0.95900E+03_JPRB /)  
+KB(:,31,16) = (/ &
+ & 0.10076E+04_JPRB,0.10080E+04_JPRB,0.10074E+04_JPRB,0.99776E+03_JPRB,0.10037E+04_JPRB /)  
+KB(:,32,16) = (/ &
+ & 0.10077E+04_JPRB,0.10005E+04_JPRB,0.10070E+04_JPRB,0.10044E+04_JPRB,0.10038E+04_JPRB /)  
+KB(:,33,16) = (/ &
+ & 0.10079E+04_JPRB,0.10079E+04_JPRB,0.10064E+04_JPRB,0.99602E+03_JPRB,0.10038E+04_JPRB /)  
+KB(:,34,16) = (/ &
+ & 0.10005E+04_JPRB,0.10077E+04_JPRB,0.10059E+04_JPRB,0.10036E+04_JPRB,0.10037E+04_JPRB /)  
+KB(:,35,16) = (/ &
+ & 0.10080E+04_JPRB,0.10075E+04_JPRB,0.10055E+04_JPRB,0.10037E+04_JPRB,0.10036E+04_JPRB /)  
+KB(:,36,16) = (/ &
+ & 0.10005E+04_JPRB,0.10075E+04_JPRB,0.10055E+04_JPRB,0.10037E+04_JPRB,0.10036E+04_JPRB /)  
+KB(:,37,16) = (/ &
+ & 0.10080E+04_JPRB,0.10077E+04_JPRB,0.10058E+04_JPRB,0.10037E+04_JPRB,0.10037E+04_JPRB /)  
+KB(:,38,16) = (/ &
+ & 0.10004E+04_JPRB,0.10078E+04_JPRB,0.10062E+04_JPRB,0.99569E+03_JPRB,0.10037E+04_JPRB /)  
+KB(:,39,16) = (/ &
+ & 0.10078E+04_JPRB,0.10079E+04_JPRB,0.10065E+04_JPRB,0.10036E+04_JPRB,0.10038E+04_JPRB /)  
+KB(:,40,16) = (/ &
+ & 0.10003E+04_JPRB,0.10005E+04_JPRB,0.10070E+04_JPRB,0.99698E+03_JPRB,0.10038E+04_JPRB /)  
+KB(:,41,16) = (/ &
+ & 0.10001E+04_JPRB,0.10005E+04_JPRB,0.99992E+03_JPRB,0.10052E+04_JPRB,0.10037E+04_JPRB /)  
+KB(:,42,16) = (/ &
+ & 0.99994E+03_JPRB,0.10005E+04_JPRB,0.10077E+04_JPRB,0.10059E+04_JPRB,0.10036E+04_JPRB /)  
+KB(:,43,16) = (/ &
+ & 0.10071E+04_JPRB,0.10078E+04_JPRB,0.10079E+04_JPRB,0.99172E+03_JPRB,0.10038E+04_JPRB /)  
+KB(:,44,16) = (/ &
+ & 0.10068E+04_JPRB,0.10002E+04_JPRB,0.10080E+04_JPRB,0.10072E+04_JPRB,0.10049E+04_JPRB /)  
+KB(:,45,16) = (/ &
+ & 0.10063E+04_JPRB,0.10074E+04_JPRB,0.10005E+04_JPRB,0.99276E+03_JPRB,0.10059E+04_JPRB /)  
+KB(:,46,16) = (/ &
+ & 0.10057E+04_JPRB,0.10071E+04_JPRB,0.10078E+04_JPRB,0.10079E+04_JPRB,0.10067E+04_JPRB /)  
+KB(:,47,16) = (/ &
+ & 0.10009E+04_JPRB,0.10067E+04_JPRB,0.10001E+04_JPRB,0.10080E+04_JPRB,0.99247E+03_JPRB /)  
+KB(:,48,16) = (/ &
+ & 0.99941E+03_JPRB,0.10061E+04_JPRB,0.10073E+04_JPRB,0.10079E+04_JPRB,0.10004E+04_JPRB /)  
+KB(:,49,16) = (/ &
+ & 0.99034E+03_JPRB,0.10054E+04_JPRB,0.99943E+03_JPRB,0.99276E+03_JPRB,0.10005E+04_JPRB /)  
+KB(:,50,16) = (/ &
+ & 0.99601E+03_JPRB,0.10003E+04_JPRB,0.10064E+04_JPRB,0.10074E+04_JPRB,0.10005E+04_JPRB /)  
+KB(:,51,16) = (/ &
+ & 0.99422E+03_JPRB,0.99882E+03_JPRB,0.10058E+04_JPRB,0.10071E+04_JPRB,0.10003E+04_JPRB /)  
+KB(:,52,16) = (/ &
+ & 0.98496E+03_JPRB,0.99726E+03_JPRB,0.10013E+04_JPRB,0.99930E+03_JPRB,0.10076E+04_JPRB /)  
+KB(:,53,16) = (/ &
+ & 0.99030E+03_JPRB,0.99555E+03_JPRB,0.99990E+03_JPRB,0.99882E+03_JPRB,0.99991E+03_JPRB /)  
+KB(:,54,16) = (/ &
+ & 0.98836E+03_JPRB,0.98653E+03_JPRB,0.99856E+03_JPRB,0.99827E+03_JPRB,0.99962E+03_JPRB /)  
+KB(:,55,16) = (/ &
+ & 0.98643E+03_JPRB,0.98485E+03_JPRB,0.99716E+03_JPRB,0.10012E+04_JPRB,0.10067E+04_JPRB /)  
+KB(:,56,16) = (/ &
+ & 0.97714E+03_JPRB,0.99044E+03_JPRB,0.99567E+03_JPRB,0.99999E+03_JPRB,0.99885E+03_JPRB /)  
+KB(:,57,16) = (/ &
+ & 0.97511E+03_JPRB,0.98860E+03_JPRB,0.99409E+03_JPRB,0.99872E+03_JPRB,0.10058E+04_JPRB /)  
+KB(:,58,16) = (/ &
+ & 0.98036E+03_JPRB,0.98678E+03_JPRB,0.99251E+03_JPRB,0.99003E+03_JPRB,0.10052E+04_JPRB /)  
+KB(:,59,16) = (/ &
+ & 0.97953E+03_JPRB,0.98603E+03_JPRB,0.99185E+03_JPRB,0.99687E+03_JPRB,0.10009E+04_JPRB /)  
+     
+!     -----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB27',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_KGB27
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb27.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb27.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb27.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_KGB27
+END SUBROUTINE SRTM_KGB27
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb28.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb28.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb28.F90	(revision 1989)
@@ -0,0 +1,11189 @@
+!OCL SCALAR
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif 
+!pgi$r opt=0
+SUBROUTINE SRTM_KGB28
+
+!     Originally by J.Delamere, Atmospheric & Environmental Research.
+!     Revision: 2.4
+!     BAND 28: 38000-50000 cm-1 (low - O3,O2; high - O3,O2)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+!     R. Elkhatib 12-10-2005 Split for faster and more robust compilation.
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOESRTA28, ONLY : KA, KB, SFLUXREF, RAYL, STRRAT &
+ & , LAYREFFR  
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+
+! KURUCZ
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28',0,ZHOOK_HANDLE)
+
+CALL PART1
+CALL PART2
+CALL PART3
+CALL PART4
+CALL PART5
+CALL PART6
+CALL PART7
+CALL PART8
+CALL PART9
+CALL PART10
+CALL PART11
+CALL PART12
+CALL PART13
+CALL PART14
+CALL PART15
+CALL PART16
+CALL PART17
+CALL PART18
+CALL PART19
+CALL PART20
+CALL PART21
+CALL PART22
+CALL PART23
+CALL PART24
+CALL PART25
+CALL PART26
+CALL PART27
+CALL PART28
+CALL PART29
+CALL PART30
+CALL PART31
+CALL PART32
+CALL PART33
+CALL PART34
+CALL PART35
+CALL PART36
+CALL PART37
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28',1,ZHOOK_HANDLE)
+
+!     -----------------------------------------------------------------
+
+CONTAINS
+
+
+SUBROUTINE PART1
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART1',0,ZHOOK_HANDLE)
+
+
+SFLUXREF(:,1) = (/ &
+ & 1.06156_JPRB    , 0.599910_JPRB   , 0.422462_JPRB   , 0.400077_JPRB   , &
+ & 0.282221_JPRB   , 0.187893_JPRB   , 6.77357E-02_JPRB, 3.04572E-02_JPRB, &
+ & 2.00442E-02_JPRB, 2.30786E-03_JPRB, 2.08824E-03_JPRB, 1.42604E-03_JPRB, &
+ & 9.67384E-04_JPRB, 6.35362E-04_JPRB, 1.47727E-04_JPRB, 6.87639E-06_JPRB /)  
+SFLUXREF(:,2) = (/ &
+ & 1.07598_JPRB    , 0.585099_JPRB   , 0.422852_JPRB   , 0.400077_JPRB   , &
+ & 0.282221_JPRB   , 0.187893_JPRB   , 6.69686E-02_JPRB, 3.09070E-02_JPRB, &
+ & 2.02400E-02_JPRB, 2.47760E-03_JPRB, 1.89411E-03_JPRB, 1.41122E-03_JPRB, &
+ & 1.12449E-03_JPRB, 5.73505E-04_JPRB, 2.04160E-04_JPRB, 1.58371E-05_JPRB /)  
+SFLUXREF(:,3) = (/ &
+ & 0.461647_JPRB   , 0.406113_JPRB   , 0.332506_JPRB   , 0.307508_JPRB   , &
+ & 0.211167_JPRB   , 0.235457_JPRB   , 0.495886_JPRB   , 0.363921_JPRB   , &
+ & 0.192700_JPRB   , 2.04678E-02_JPRB, 1.55407E-02_JPRB, 1.03882E-02_JPRB, &
+ & 1.10778E-02_JPRB, 1.00504E-02_JPRB, 4.93497E-03_JPRB, 5.73410E-04_JPRB /)  
+SFLUXREF(:,4) = (/ &
+ & 0.132669_JPRB   , 0.175058_JPRB   , 0.359263_JPRB   , 0.388142_JPRB   , &
+ & 0.350359_JPRB   , 0.475892_JPRB   , 0.489593_JPRB   , 0.408437_JPRB   , &
+ & 0.221049_JPRB   , 1.94514E-02_JPRB, 1.54848E-02_JPRB, 1.44999E-02_JPRB, &
+ & 1.44568E-02_JPRB, 1.00527E-02_JPRB, 4.95897E-03_JPRB, 5.73327E-04_JPRB /)  
+SFLUXREF(:,5) = (/ &
+ & 7.54800E-02_JPRB, 0.232246_JPRB   , 0.359263_JPRB   , 0.388142_JPRB   , &
+ & 0.350359_JPRB   , 0.426317_JPRB   , 0.493485_JPRB   , 0.432016_JPRB   , &
+ & 0.239203_JPRB   , 1.74951E-02_JPRB, 1.74477E-02_JPRB, 1.83566E-02_JPRB, &
+ & 1.44818E-02_JPRB, 1.01048E-02_JPRB, 4.97487E-03_JPRB, 5.66831E-04_JPRB /)  
+
+!     Rayleigh extinction coefficient at v = ????? cm-1.
+RAYL = 2.02E-05_JPRB
+
+STRRAT = 6.67029E-07_JPRB
+
+LAYREFFR = 58
+
+!     ------------------------------------------------------------------
+
+!     The array KA contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels> ~100mb, temperatures, and binary
+!     species parameters (see taumol.f for definition).  The first 
+!     index in the array, JS, runs from 1 to 9, and corresponds to 
+!     different values of the binary species parameter.  For instance, 
+!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, 
+!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index
+!     in the array, JT, which runs from 1 to 5, corresponds to different
+!     temperatures.  More specifically, JT = 3 means that the data are for
+!     the reference temperature TREF for this  pressure level, JT = 2 refers
+!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the JPth reference pressure level (see taumol.f for these levels
+!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates
+!     which g-interval the absorption coefficients are for.
+!     -----------------------------------------------------------------
+
+KA(:, 1, 1, 1) = (/ &
+ & 0.46447E+02_JPRB,0.18001E+03_JPRB,0.31338E+03_JPRB,0.44652E+03_JPRB,0.54636E+03_JPRB, &
+ & 0.54173E+03_JPRB,0.45707E+03_JPRB,0.27363E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 2, 1, 1) = (/ &
+ & 0.45270E+02_JPRB,0.17886E+03_JPRB,0.31225E+03_JPRB,0.44541E+03_JPRB,0.54177E+03_JPRB, &
+ & 0.53436E+03_JPRB,0.44932E+03_JPRB,0.26748E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 3, 1, 1) = (/ &
+ & 0.44214E+02_JPRB,0.17776E+03_JPRB,0.31115E+03_JPRB,0.44427E+03_JPRB,0.53733E+03_JPRB, &
+ & 0.52756E+03_JPRB,0.44224E+03_JPRB,0.26195E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 4, 1, 1) = (/ &
+ & 0.43259E+02_JPRB,0.17673E+03_JPRB,0.31005E+03_JPRB,0.44305E+03_JPRB,0.53298E+03_JPRB, &
+ & 0.52129E+03_JPRB,0.43574E+03_JPRB,0.25696E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 5, 1, 1) = (/ &
+ & 0.42393E+02_JPRB,0.17575E+03_JPRB,0.30896E+03_JPRB,0.44173E+03_JPRB,0.52883E+03_JPRB, &
+ & 0.51548E+03_JPRB,0.42976E+03_JPRB,0.25242E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 1, 2, 1) = (/ &
+ & 0.42908E+02_JPRB,0.17695E+03_JPRB,0.31077E+03_JPRB,0.44434E+03_JPRB,0.53161E+03_JPRB, &
+ & 0.51895E+03_JPRB,0.43332E+03_JPRB,0.25512E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 2, 2, 1) = (/ &
+ & 0.41899E+02_JPRB,0.17596E+03_JPRB,0.30980E+03_JPRB,0.44336E+03_JPRB,0.52686E+03_JPRB, &
+ & 0.51213E+03_JPRB,0.42632E+03_JPRB,0.24984E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 3, 2, 1) = (/ &
+ & 0.40995E+02_JPRB,0.17502E+03_JPRB,0.30884E+03_JPRB,0.44232E+03_JPRB,0.52230E+03_JPRB, &
+ & 0.50592E+03_JPRB,0.41995E+03_JPRB,0.24511E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 4, 2, 1) = (/ &
+ & 0.40181E+02_JPRB,0.17412E+03_JPRB,0.30788E+03_JPRB,0.44119E+03_JPRB,0.51785E+03_JPRB, &
+ & 0.50025E+03_JPRB,0.41414E+03_JPRB,0.24085E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 5, 2, 1) = (/ &
+ & 0.39443E+02_JPRB,0.17326E+03_JPRB,0.30691E+03_JPRB,0.43992E+03_JPRB,0.51364E+03_JPRB, &
+ & 0.49503E+03_JPRB,0.40882E+03_JPRB,0.23699E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 1, 3, 1) = (/ &
+ & 0.40126E+02_JPRB,0.17457E+03_JPRB,0.30876E+03_JPRB,0.44248E+03_JPRB,0.51755E+03_JPRB, &
+ & 0.49986E+03_JPRB,0.41375E+03_JPRB,0.24056E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 2, 3, 1) = (/ &
+ & 0.39240E+02_JPRB,0.17370E+03_JPRB,0.30792E+03_JPRB,0.44146E+03_JPRB,0.51254E+03_JPRB, &
+ & 0.49358E+03_JPRB,0.40735E+03_JPRB,0.23593E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 3, 3, 1) = (/ &
+ & 0.38450E+02_JPRB,0.17288E+03_JPRB,0.30708E+03_JPRB,0.44031E+03_JPRB,0.50793E+03_JPRB, &
+ & 0.48786E+03_JPRB,0.40155E+03_JPRB,0.23179E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 4, 3, 1) = (/ &
+ & 0.37740E+02_JPRB,0.17210E+03_JPRB,0.30624E+03_JPRB,0.43908E+03_JPRB,0.50368E+03_JPRB, &
+ & 0.48264E+03_JPRB,0.39629E+03_JPRB,0.22808E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 5, 3, 1) = (/ &
+ & 0.37099E+02_JPRB,0.17134E+03_JPRB,0.30539E+03_JPRB,0.43781E+03_JPRB,0.49975E+03_JPRB, &
+ & 0.47787E+03_JPRB,0.39149E+03_JPRB,0.22473E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 1, 4, 1) = (/ &
+ & 0.37818E+02_JPRB,0.17258E+03_JPRB,0.30708E+03_JPRB,0.43967E+03_JPRB,0.50412E+03_JPRB, &
+ & 0.48321E+03_JPRB,0.39687E+03_JPRB,0.22848E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 2, 4, 1) = (/ &
+ & 0.37034E+02_JPRB,0.17183E+03_JPRB,0.30636E+03_JPRB,0.43833E+03_JPRB,0.49935E+03_JPRB, &
+ & 0.47738E+03_JPRB,0.39100E+03_JPRB,0.22439E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 3, 4, 1) = (/ &
+ & 0.36338E+02_JPRB,0.17111E+03_JPRB,0.30564E+03_JPRB,0.43700E+03_JPRB,0.49496E+03_JPRB, &
+ & 0.47212E+03_JPRB,0.38572E+03_JPRB,0.22075E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 4, 4, 1) = (/ &
+ & 0.35716E+02_JPRB,0.17043E+03_JPRB,0.30491E+03_JPRB,0.43569E+03_JPRB,0.49094E+03_JPRB, &
+ & 0.46732E+03_JPRB,0.38094E+03_JPRB,0.21749E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 5, 4, 1) = (/ &
+ & 0.35156E+02_JPRB,0.16977E+03_JPRB,0.30416E+03_JPRB,0.43437E+03_JPRB,0.48726E+03_JPRB, &
+ & 0.46294E+03_JPRB,0.37660E+03_JPRB,0.21456E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 1, 5, 1) = (/ &
+ & 0.35857E+02_JPRB,0.17089E+03_JPRB,0.30563E+03_JPRB,0.43619E+03_JPRB,0.49186E+03_JPRB, &
+ & 0.46841E+03_JPRB,0.38202E+03_JPRB,0.21822E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 2, 5, 1) = (/ &
+ & 0.35163E+02_JPRB,0.17023E+03_JPRB,0.30502E+03_JPRB,0.43478E+03_JPRB,0.48731E+03_JPRB, &
+ & 0.46300E+03_JPRB,0.37666E+03_JPRB,0.21460E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 3, 5, 1) = (/ &
+ & 0.34550E+02_JPRB,0.16961E+03_JPRB,0.30441E+03_JPRB,0.43332E+03_JPRB,0.48321E+03_JPRB, &
+ & 0.45813E+03_JPRB,0.37186E+03_JPRB,0.21139E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 4, 5, 1) = (/ &
+ & 0.34004E+02_JPRB,0.16902E+03_JPRB,0.30378E+03_JPRB,0.43194E+03_JPRB,0.47950E+03_JPRB, &
+ & 0.45375E+03_JPRB,0.36755E+03_JPRB,0.20853E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 5, 5, 1) = (/ &
+ & 0.33514E+02_JPRB,0.16844E+03_JPRB,0.30312E+03_JPRB,0.43058E+03_JPRB,0.47611E+03_JPRB, &
+ & 0.44977E+03_JPRB,0.36365E+03_JPRB,0.20597E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 1, 6, 1) = (/ &
+ & 0.34212E+02_JPRB,0.16946E+03_JPRB,0.30440E+03_JPRB,0.43247E+03_JPRB,0.48092E+03_JPRB, &
+ & 0.45542E+03_JPRB,0.36920E+03_JPRB,0.20962E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 2, 6, 1) = (/ &
+ & 0.33595E+02_JPRB,0.16889E+03_JPRB,0.30389E+03_JPRB,0.43093E+03_JPRB,0.47667E+03_JPRB, &
+ & 0.45043E+03_JPRB,0.36430E+03_JPRB,0.20639E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 3, 6, 1) = (/ &
+ & 0.33052E+02_JPRB,0.16835E+03_JPRB,0.30337E+03_JPRB,0.42946E+03_JPRB,0.47287E+03_JPRB, &
+ & 0.44599E+03_JPRB,0.35993E+03_JPRB,0.20355E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 4, 6, 1) = (/ &
+ & 0.32571E+02_JPRB,0.16784E+03_JPRB,0.30283E+03_JPRB,0.42807E+03_JPRB,0.46947E+03_JPRB, &
+ & 0.44201E+03_JPRB,0.35602E+03_JPRB,0.20103E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 5, 6, 1) = (/ &
+ & 0.32141E+02_JPRB,0.16733E+03_JPRB,0.30227E+03_JPRB,0.42674E+03_JPRB,0.46640E+03_JPRB, &
+ & 0.43842E+03_JPRB,0.35250E+03_JPRB,0.19879E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 1, 7, 1) = (/ &
+ & 0.32812E+02_JPRB,0.16823E+03_JPRB,0.30334E+03_JPRB,0.42859E+03_JPRB,0.47118E+03_JPRB, &
+ & 0.44401E+03_JPRB,0.35799E+03_JPRB,0.20230E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 2, 7, 1) = (/ &
+ & 0.32263E+02_JPRB,0.16774E+03_JPRB,0.30291E+03_JPRB,0.42708E+03_JPRB,0.46727E+03_JPRB, &
+ & 0.43944E+03_JPRB,0.35350E+03_JPRB,0.19942E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 3, 7, 1) = (/ &
+ & 0.31782E+02_JPRB,0.16728E+03_JPRB,0.30248E+03_JPRB,0.42558E+03_JPRB,0.46381E+03_JPRB, &
+ & 0.43539E+03_JPRB,0.34954E+03_JPRB,0.19691E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 4, 7, 1) = (/ &
+ & 0.31357E+02_JPRB,0.16683E+03_JPRB,0.30203E+03_JPRB,0.42413E+03_JPRB,0.46069E+03_JPRB, &
+ & 0.43177E+03_JPRB,0.34599E+03_JPRB,0.19468E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 5, 7, 1) = (/ &
+ & 0.30980E+02_JPRB,0.16640E+03_JPRB,0.30154E+03_JPRB,0.42276E+03_JPRB,0.45787E+03_JPRB, &
+ & 0.42852E+03_JPRB,0.34280E+03_JPRB,0.19271E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 1, 8, 1) = (/ &
+ & 0.31614E+02_JPRB,0.16716E+03_JPRB,0.30239E+03_JPRB,0.42473E+03_JPRB,0.46259E+03_JPRB, &
+ & 0.43397E+03_JPRB,0.34814E+03_JPRB,0.19603E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 2, 8, 1) = (/ &
+ & 0.31125E+02_JPRB,0.16674E+03_JPRB,0.30206E+03_JPRB,0.42311E+03_JPRB,0.45896E+03_JPRB, &
+ & 0.42978E+03_JPRB,0.34403E+03_JPRB,0.19347E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 3, 8, 1) = (/ &
+ & 0.30699E+02_JPRB,0.16635E+03_JPRB,0.30170E+03_JPRB,0.42163E+03_JPRB,0.45573E+03_JPRB, &
+ & 0.42608E+03_JPRB,0.34039E+03_JPRB,0.19124E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 4, 8, 1) = (/ &
+ & 0.30325E+02_JPRB,0.16597E+03_JPRB,0.30133E+03_JPRB,0.42027E+03_JPRB,0.45286E+03_JPRB, &
+ & 0.42281E+03_JPRB,0.33716E+03_JPRB,0.18928E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 5, 8, 1) = (/ &
+ & 0.29993E+02_JPRB,0.16559E+03_JPRB,0.30092E+03_JPRB,0.41901E+03_JPRB,0.45030E+03_JPRB, &
+ & 0.41988E+03_JPRB,0.33427E+03_JPRB,0.18755E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 1, 9, 1) = (/ &
+ & 0.30594E+02_JPRB,0.16624E+03_JPRB,0.30156E+03_JPRB,0.42087E+03_JPRB,0.45493E+03_JPRB, &
+ & 0.42517E+03_JPRB,0.33949E+03_JPRB,0.19069E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 2, 9, 1) = (/ &
+ & 0.30158E+02_JPRB,0.16589E+03_JPRB,0.30131E+03_JPRB,0.41937E+03_JPRB,0.45157E+03_JPRB, &
+ & 0.42134E+03_JPRB,0.33570E+03_JPRB,0.18841E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 3, 9, 1) = (/ &
+ & 0.29780E+02_JPRB,0.16556E+03_JPRB,0.30103E+03_JPRB,0.41800E+03_JPRB,0.44864E+03_JPRB, &
+ & 0.41799E+03_JPRB,0.33239E+03_JPRB,0.18643E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 4, 9, 1) = (/ &
+ & 0.29450E+02_JPRB,0.16523E+03_JPRB,0.30072E+03_JPRB,0.41674E+03_JPRB,0.44606E+03_JPRB, &
+ & 0.41504E+03_JPRB,0.32946E+03_JPRB,0.18471E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 5, 9, 1) = (/ &
+ & 0.29159E+02_JPRB,0.16491E+03_JPRB,0.30039E+03_JPRB,0.41557E+03_JPRB,0.44377E+03_JPRB, &
+ & 0.41242E+03_JPRB,0.32686E+03_JPRB,0.18318E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 1,10, 1) = (/ &
+ & 0.29691E+02_JPRB,0.16541E+03_JPRB,0.30081E+03_JPRB,0.41722E+03_JPRB,0.44795E+03_JPRB, &
+ & 0.41720E+03_JPRB,0.33160E+03_JPRB,0.18597E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 2,10, 1) = (/ &
+ & 0.29307E+02_JPRB,0.16512E+03_JPRB,0.30063E+03_JPRB,0.41581E+03_JPRB,0.44493E+03_JPRB, &
+ & 0.41375E+03_JPRB,0.32818E+03_JPRB,0.18396E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 3,10, 1) = (/ &
+ & 0.28975E+02_JPRB,0.16485E+03_JPRB,0.30042E+03_JPRB,0.41454E+03_JPRB,0.44231E+03_JPRB, &
+ & 0.41076E+03_JPRB,0.32520E+03_JPRB,0.18222E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 4,10, 1) = (/ &
+ & 0.28687E+02_JPRB,0.16458E+03_JPRB,0.30018E+03_JPRB,0.41340E+03_JPRB,0.44002E+03_JPRB, &
+ & 0.40814E+03_JPRB,0.32259E+03_JPRB,0.18071E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 5,10, 1) = (/ &
+ & 0.28434E+02_JPRB,0.16431E+03_JPRB,0.29989E+03_JPRB,0.41235E+03_JPRB,0.43799E+03_JPRB, &
+ & 0.40583E+03_JPRB,0.32028E+03_JPRB,0.17939E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 1,11, 1) = (/ &
+ & 0.28760E+02_JPRB,0.16459E+03_JPRB,0.30010E+03_JPRB,0.41321E+03_JPRB,0.44060E+03_JPRB, &
+ & 0.40880E+03_JPRB,0.32325E+03_JPRB,0.18109E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 2,11, 1) = (/ &
+ & 0.28444E+02_JPRB,0.16436E+03_JPRB,0.29997E+03_JPRB,0.41200E+03_JPRB,0.43807E+03_JPRB, &
+ & 0.40592E+03_JPRB,0.32038E+03_JPRB,0.17944E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 3,11, 1) = (/ &
+ & 0.28173E+02_JPRB,0.16414E+03_JPRB,0.29981E+03_JPRB,0.41092E+03_JPRB,0.43587E+03_JPRB, &
+ & 0.40342E+03_JPRB,0.31788E+03_JPRB,0.17802E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 4,11, 1) = (/ &
+ & 0.27937E+02_JPRB,0.16392E+03_JPRB,0.29960E+03_JPRB,0.40994E+03_JPRB,0.43395E+03_JPRB, &
+ & 0.40124E+03_JPRB,0.31570E+03_JPRB,0.17679E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 5,11, 1) = (/ &
+ & 0.27730E+02_JPRB,0.16369E+03_JPRB,0.29936E+03_JPRB,0.40905E+03_JPRB,0.43224E+03_JPRB, &
+ & 0.39931E+03_JPRB,0.31377E+03_JPRB,0.17571E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 1,12, 1) = (/ &
+ & 0.27995E+02_JPRB,0.16391E+03_JPRB,0.29951E+03_JPRB,0.40970E+03_JPRB,0.43443E+03_JPRB, &
+ & 0.40178E+03_JPRB,0.31624E+03_JPRB,0.17709E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 2,12, 1) = (/ &
+ & 0.27737E+02_JPRB,0.16374E+03_JPRB,0.29943E+03_JPRB,0.40869E+03_JPRB,0.43230E+03_JPRB, &
+ & 0.39938E+03_JPRB,0.31384E+03_JPRB,0.17574E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 3,12, 1) = (/ &
+ & 0.27515E+02_JPRB,0.16356E+03_JPRB,0.29930E+03_JPRB,0.40779E+03_JPRB,0.43046E+03_JPRB, &
+ & 0.39730E+03_JPRB,0.31176E+03_JPRB,0.17458E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 4,12, 1) = (/ &
+ & 0.27322E+02_JPRB,0.16338E+03_JPRB,0.29913E+03_JPRB,0.40697E+03_JPRB,0.42883E+03_JPRB, &
+ & 0.39548E+03_JPRB,0.30994E+03_JPRB,0.17357E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 5,12, 1) = (/ &
+ & 0.27152E+02_JPRB,0.16318E+03_JPRB,0.29892E+03_JPRB,0.40622E+03_JPRB,0.42740E+03_JPRB, &
+ & 0.39387E+03_JPRB,0.30834E+03_JPRB,0.17268E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 1,13, 1) = (/ &
+ & 0.27369E+02_JPRB,0.16336E+03_JPRB,0.29903E+03_JPRB,0.40671E+03_JPRB,0.42924E+03_JPRB, &
+ & 0.39593E+03_JPRB,0.31039E+03_JPRB,0.17382E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 2,13, 1) = (/ &
+ & 0.27158E+02_JPRB,0.16323E+03_JPRB,0.29898E+03_JPRB,0.40587E+03_JPRB,0.42745E+03_JPRB, &
+ & 0.39393E+03_JPRB,0.30840E+03_JPRB,0.17271E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 3,13, 1) = (/ &
+ & 0.26976E+02_JPRB,0.16309E+03_JPRB,0.29889E+03_JPRB,0.40513E+03_JPRB,0.42590E+03_JPRB, &
+ & 0.39221E+03_JPRB,0.30667E+03_JPRB,0.17176E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 4,13, 1) = (/ &
+ & 0.26818E+02_JPRB,0.16293E+03_JPRB,0.29875E+03_JPRB,0.40445E+03_JPRB,0.42455E+03_JPRB, &
+ & 0.39070E+03_JPRB,0.30516E+03_JPRB,0.17093E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 5,13, 1) = (/ &
+ & 0.26679E+02_JPRB,0.16276E+03_JPRB,0.29855E+03_JPRB,0.40381E+03_JPRB,0.42335E+03_JPRB, &
+ & 0.38937E+03_JPRB,0.30384E+03_JPRB,0.17021E+03_JPRB,0.35000E+02_JPRB /)  
+KA(:, 1, 1, 2) = (/ &
+ & 0.17271E+03_JPRB,0.27646E+03_JPRB,0.38039E+03_JPRB,0.48420E+03_JPRB,0.56932E+03_JPRB, &
+ & 0.57534E+03_JPRB,0.47873E+03_JPRB,0.28147E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 2, 1, 2) = (/ &
+ & 0.16834E+03_JPRB,0.27246E+03_JPRB,0.37678E+03_JPRB,0.48091E+03_JPRB,0.56471E+03_JPRB, &
+ & 0.56734E+03_JPRB,0.47005E+03_JPRB,0.27593E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 3, 1, 2) = (/ &
+ & 0.16441E+03_JPRB,0.26883E+03_JPRB,0.37341E+03_JPRB,0.47777E+03_JPRB,0.56037E+03_JPRB, &
+ & 0.56003E+03_JPRB,0.46210E+03_JPRB,0.27096E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 4, 1, 2) = (/ &
+ & 0.16086E+03_JPRB,0.26548E+03_JPRB,0.37025E+03_JPRB,0.47479E+03_JPRB,0.55629E+03_JPRB, &
+ & 0.55327E+03_JPRB,0.45481E+03_JPRB,0.26647E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 5, 1, 2) = (/ &
+ & 0.15764E+03_JPRB,0.26237E+03_JPRB,0.36725E+03_JPRB,0.47195E+03_JPRB,0.55235E+03_JPRB, &
+ & 0.54701E+03_JPRB,0.44810E+03_JPRB,0.26239E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 1, 2, 2) = (/ &
+ & 0.15955E+03_JPRB,0.26500E+03_JPRB,0.37067E+03_JPRB,0.47595E+03_JPRB,0.55480E+03_JPRB, &
+ & 0.55074E+03_JPRB,0.45210E+03_JPRB,0.26482E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 2, 2, 2) = (/ &
+ & 0.15580E+03_JPRB,0.26157E+03_JPRB,0.36756E+03_JPRB,0.47303E+03_JPRB,0.55028E+03_JPRB, &
+ & 0.54339E+03_JPRB,0.44423E+03_JPRB,0.26007E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 3, 2, 2) = (/ &
+ & 0.15244E+03_JPRB,0.25844E+03_JPRB,0.36465E+03_JPRB,0.47023E+03_JPRB,0.54619E+03_JPRB, &
+ & 0.53664E+03_JPRB,0.43708E+03_JPRB,0.25581E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 4, 2, 2) = (/ &
+ & 0.14941E+03_JPRB,0.25556E+03_JPRB,0.36191E+03_JPRB,0.46753E+03_JPRB,0.54253E+03_JPRB, &
+ & 0.53041E+03_JPRB,0.43052E+03_JPRB,0.25198E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 5, 2, 2) = (/ &
+ & 0.14667E+03_JPRB,0.25289E+03_JPRB,0.35930E+03_JPRB,0.46494E+03_JPRB,0.53908E+03_JPRB, &
+ & 0.52470E+03_JPRB,0.42448E+03_JPRB,0.24851E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 1, 3, 2) = (/ &
+ & 0.14921E+03_JPRB,0.25601E+03_JPRB,0.36308E+03_JPRB,0.46872E+03_JPRB,0.54234E+03_JPRB, &
+ & 0.52999E+03_JPRB,0.43007E+03_JPRB,0.25172E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 2, 3, 2) = (/ &
+ & 0.14591E+03_JPRB,0.25301E+03_JPRB,0.36036E+03_JPRB,0.46599E+03_JPRB,0.53834E+03_JPRB, &
+ & 0.52313E+03_JPRB,0.42280E+03_JPRB,0.24755E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 3, 3, 2) = (/ &
+ & 0.14297E+03_JPRB,0.25028E+03_JPRB,0.35782E+03_JPRB,0.46350E+03_JPRB,0.53459E+03_JPRB, &
+ & 0.51696E+03_JPRB,0.41619E+03_JPRB,0.24383E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 4, 3, 2) = (/ &
+ & 0.14033E+03_JPRB,0.24777E+03_JPRB,0.35542E+03_JPRB,0.46116E+03_JPRB,0.53100E+03_JPRB, &
+ & 0.51122E+03_JPRB,0.41016E+03_JPRB,0.24049E+03_JPRB,0.71840E+02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART1',1,ZHOOK_HANDLE)
+END SUBROUTINE PART1
+
+
+SUBROUTINE PART2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART2',0,ZHOOK_HANDLE)
+
+
+KA(:, 5, 3, 2) = (/ &
+ & 0.13795E+03_JPRB,0.24544E+03_JPRB,0.35313E+03_JPRB,0.45882E+03_JPRB,0.52751E+03_JPRB, &
+ & 0.50591E+03_JPRB,0.40463E+03_JPRB,0.23747E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 1, 4, 2) = (/ &
+ & 0.14062E+03_JPRB,0.24856E+03_JPRB,0.35678E+03_JPRB,0.46260E+03_JPRB,0.53137E+03_JPRB, &
+ & 0.51186E+03_JPRB,0.41082E+03_JPRB,0.24086E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 2, 4, 2) = (/ &
+ & 0.13771E+03_JPRB,0.24592E+03_JPRB,0.35440E+03_JPRB,0.46020E+03_JPRB,0.52732E+03_JPRB, &
+ & 0.50537E+03_JPRB,0.40407E+03_JPRB,0.23717E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 3, 4, 2) = (/ &
+ & 0.13512E+03_JPRB,0.24353E+03_JPRB,0.35219E+03_JPRB,0.45796E+03_JPRB,0.52348E+03_JPRB, &
+ & 0.49954E+03_JPRB,0.39798E+03_JPRB,0.23389E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 4, 4, 2) = (/ &
+ & 0.13281E+03_JPRB,0.24133E+03_JPRB,0.35008E+03_JPRB,0.45583E+03_JPRB,0.51985E+03_JPRB, &
+ & 0.49431E+03_JPRB,0.39246E+03_JPRB,0.23096E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 5, 4, 2) = (/ &
+ & 0.13073E+03_JPRB,0.23928E+03_JPRB,0.34807E+03_JPRB,0.45378E+03_JPRB,0.51643E+03_JPRB, &
+ & 0.48957E+03_JPRB,0.38745E+03_JPRB,0.22833E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 1, 5, 2) = (/ &
+ & 0.13333E+03_JPRB,0.24222E+03_JPRB,0.35141E+03_JPRB,0.45702E+03_JPRB,0.52057E+03_JPRB, &
+ & 0.49550E+03_JPRB,0.39372E+03_JPRB,0.23163E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 2, 5, 2) = (/ &
+ & 0.13075E+03_JPRB,0.23990E+03_JPRB,0.34934E+03_JPRB,0.45476E+03_JPRB,0.51651E+03_JPRB, &
+ & 0.48963E+03_JPRB,0.38752E+03_JPRB,0.22836E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 3, 5, 2) = (/ &
+ & 0.12847E+03_JPRB,0.23780E+03_JPRB,0.34741E+03_JPRB,0.45266E+03_JPRB,0.51271E+03_JPRB, &
+ & 0.48438E+03_JPRB,0.38196E+03_JPRB,0.22548E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 4, 5, 2) = (/ &
+ & 0.12644E+03_JPRB,0.23588E+03_JPRB,0.34557E+03_JPRB,0.45066E+03_JPRB,0.50911E+03_JPRB, &
+ & 0.47962E+03_JPRB,0.37696E+03_JPRB,0.22291E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 5, 5, 2) = (/ &
+ & 0.12462E+03_JPRB,0.23409E+03_JPRB,0.34381E+03_JPRB,0.44874E+03_JPRB,0.50570E+03_JPRB, &
+ & 0.47526E+03_JPRB,0.37245E+03_JPRB,0.22060E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 1, 6, 2) = (/ &
+ & 0.12722E+03_JPRB,0.23690E+03_JPRB,0.34688E+03_JPRB,0.45177E+03_JPRB,0.51032E+03_JPRB, &
+ & 0.48144E+03_JPRB,0.37887E+03_JPRB,0.22389E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 2, 6, 2) = (/ &
+ & 0.12492E+03_JPRB,0.23485E+03_JPRB,0.34508E+03_JPRB,0.44967E+03_JPRB,0.50620E+03_JPRB, &
+ & 0.47598E+03_JPRB,0.37319E+03_JPRB,0.22098E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 3, 6, 2) = (/ &
+ & 0.12290E+03_JPRB,0.23301E+03_JPRB,0.34340E+03_JPRB,0.44769E+03_JPRB,0.50242E+03_JPRB, &
+ & 0.47108E+03_JPRB,0.36815E+03_JPRB,0.21843E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 4, 6, 2) = (/ &
+ & 0.12111E+03_JPRB,0.23132E+03_JPRB,0.34180E+03_JPRB,0.44582E+03_JPRB,0.49894E+03_JPRB, &
+ & 0.46668E+03_JPRB,0.36363E+03_JPRB,0.21616E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 5, 6, 2) = (/ &
+ & 0.11952E+03_JPRB,0.22976E+03_JPRB,0.34026E+03_JPRB,0.44407E+03_JPRB,0.49574E+03_JPRB, &
+ & 0.46270E+03_JPRB,0.35956E+03_JPRB,0.21414E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 1, 7, 2) = (/ &
+ & 0.12201E+03_JPRB,0.23235E+03_JPRB,0.34300E+03_JPRB,0.44700E+03_JPRB,0.50054E+03_JPRB, &
+ & 0.46889E+03_JPRB,0.36590E+03_JPRB,0.21730E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 2, 7, 2) = (/ &
+ & 0.11997E+03_JPRB,0.23055E+03_JPRB,0.34145E+03_JPRB,0.44492E+03_JPRB,0.49657E+03_JPRB, &
+ & 0.46383E+03_JPRB,0.36071E+03_JPRB,0.21471E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 3, 7, 2) = (/ &
+ & 0.11818E+03_JPRB,0.22894E+03_JPRB,0.33999E+03_JPRB,0.44309E+03_JPRB,0.49292E+03_JPRB, &
+ & 0.45934E+03_JPRB,0.35613E+03_JPRB,0.21245E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 4, 7, 2) = (/ &
+ & 0.11660E+03_JPRB,0.22746E+03_JPRB,0.33859E+03_JPRB,0.44146E+03_JPRB,0.48959E+03_JPRB, &
+ & 0.45533E+03_JPRB,0.35208E+03_JPRB,0.21045E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 5, 7, 2) = (/ &
+ & 0.11520E+03_JPRB,0.22609E+03_JPRB,0.33724E+03_JPRB,0.43996E+03_JPRB,0.48657E+03_JPRB, &
+ & 0.45175E+03_JPRB,0.34847E+03_JPRB,0.20867E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 1, 8, 2) = (/ &
+ & 0.11756E+03_JPRB,0.22844E+03_JPRB,0.33965E+03_JPRB,0.44261E+03_JPRB,0.49147E+03_JPRB, &
+ & 0.45776E+03_JPRB,0.35454E+03_JPRB,0.21166E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 2, 8, 2) = (/ &
+ & 0.11574E+03_JPRB,0.22687E+03_JPRB,0.33830E+03_JPRB,0.44082E+03_JPRB,0.48767E+03_JPRB, &
+ & 0.45313E+03_JPRB,0.34986E+03_JPRB,0.20936E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 3, 8, 2) = (/ &
+ & 0.11415E+03_JPRB,0.22546E+03_JPRB,0.33704E+03_JPRB,0.43915E+03_JPRB,0.48429E+03_JPRB, &
+ & 0.44908E+03_JPRB,0.34579E+03_JPRB,0.20735E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 4, 8, 2) = (/ &
+ & 0.11276E+03_JPRB,0.22417E+03_JPRB,0.33584E+03_JPRB,0.43758E+03_JPRB,0.48126E+03_JPRB, &
+ & 0.44549E+03_JPRB,0.34220E+03_JPRB,0.20559E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 5, 8, 2) = (/ &
+ & 0.11153E+03_JPRB,0.22298E+03_JPRB,0.33466E+03_JPRB,0.43617E+03_JPRB,0.47855E+03_JPRB, &
+ & 0.44228E+03_JPRB,0.33902E+03_JPRB,0.20403E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 1, 9, 2) = (/ &
+ & 0.11376E+03_JPRB,0.22510E+03_JPRB,0.33674E+03_JPRB,0.43882E+03_JPRB,0.48336E+03_JPRB, &
+ & 0.44807E+03_JPRB,0.34479E+03_JPRB,0.20686E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 2, 9, 2) = (/ &
+ & 0.11214E+03_JPRB,0.22372E+03_JPRB,0.33559E+03_JPRB,0.43706E+03_JPRB,0.47989E+03_JPRB, &
+ & 0.44388E+03_JPRB,0.34060E+03_JPRB,0.20480E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 3, 9, 2) = (/ &
+ & 0.11074E+03_JPRB,0.22250E+03_JPRB,0.33451E+03_JPRB,0.43547E+03_JPRB,0.47679E+03_JPRB, &
+ & 0.44020E+03_JPRB,0.33697E+03_JPRB,0.20303E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 4, 9, 2) = (/ &
+ & 0.10951E+03_JPRB,0.22138E+03_JPRB,0.33348E+03_JPRB,0.43404E+03_JPRB,0.47404E+03_JPRB, &
+ & 0.43694E+03_JPRB,0.33379E+03_JPRB,0.20147E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 5, 9, 2) = (/ &
+ & 0.10843E+03_JPRB,0.22034E+03_JPRB,0.33246E+03_JPRB,0.43277E+03_JPRB,0.47159E+03_JPRB, &
+ & 0.43405E+03_JPRB,0.33096E+03_JPRB,0.20010E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 1,10, 2) = (/ &
+ & 0.11041E+03_JPRB,0.22214E+03_JPRB,0.33414E+03_JPRB,0.43517E+03_JPRB,0.47604E+03_JPRB, &
+ & 0.43932E+03_JPRB,0.33611E+03_JPRB,0.20261E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 2,10, 2) = (/ &
+ & 0.10898E+03_JPRB,0.22095E+03_JPRB,0.33317E+03_JPRB,0.43358E+03_JPRB,0.47283E+03_JPRB, &
+ & 0.43552E+03_JPRB,0.33239E+03_JPRB,0.20080E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 3,10, 2) = (/ &
+ & 0.10774E+03_JPRB,0.21989E+03_JPRB,0.33226E+03_JPRB,0.43213E+03_JPRB,0.47002E+03_JPRB, &
+ & 0.43222E+03_JPRB,0.32917E+03_JPRB,0.19924E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 4,10, 2) = (/ &
+ & 0.10667E+03_JPRB,0.21893E+03_JPRB,0.33139E+03_JPRB,0.43083E+03_JPRB,0.46753E+03_JPRB, &
+ & 0.42932E+03_JPRB,0.32634E+03_JPRB,0.19788E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 5,10, 2) = (/ &
+ & 0.10573E+03_JPRB,0.21803E+03_JPRB,0.33053E+03_JPRB,0.42965E+03_JPRB,0.46532E+03_JPRB, &
+ & 0.42677E+03_JPRB,0.32386E+03_JPRB,0.19669E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 1,11, 2) = (/ &
+ & 0.10694E+03_JPRB,0.21911E+03_JPRB,0.33152E+03_JPRB,0.43127E+03_JPRB,0.46816E+03_JPRB, &
+ & 0.43005E+03_JPRB,0.32706E+03_JPRB,0.19822E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 2,11, 2) = (/ &
+ & 0.10577E+03_JPRB,0.21815E+03_JPRB,0.33074E+03_JPRB,0.42984E+03_JPRB,0.46541E+03_JPRB, &
+ & 0.42687E+03_JPRB,0.32396E+03_JPRB,0.19674E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 3,11, 2) = (/ &
+ & 0.10476E+03_JPRB,0.21728E+03_JPRB,0.33000E+03_JPRB,0.42855E+03_JPRB,0.46301E+03_JPRB, &
+ & 0.42411E+03_JPRB,0.32130E+03_JPRB,0.19546E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 4,11, 2) = (/ &
+ & 0.10388E+03_JPRB,0.21649E+03_JPRB,0.32928E+03_JPRB,0.42741E+03_JPRB,0.46089E+03_JPRB, &
+ & 0.42169E+03_JPRB,0.31897E+03_JPRB,0.19435E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 5,11, 2) = (/ &
+ & 0.10311E+03_JPRB,0.21575E+03_JPRB,0.32855E+03_JPRB,0.42639E+03_JPRB,0.45902E+03_JPRB, &
+ & 0.41954E+03_JPRB,0.31692E+03_JPRB,0.19338E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 1,12, 2) = (/ &
+ & 0.10410E+03_JPRB,0.21663E+03_JPRB,0.32937E+03_JPRB,0.42778E+03_JPRB,0.46141E+03_JPRB, &
+ & 0.42229E+03_JPRB,0.31955E+03_JPRB,0.19463E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 2,12, 2) = (/ &
+ & 0.10314E+03_JPRB,0.21585E+03_JPRB,0.32875E+03_JPRB,0.42654E+03_JPRB,0.45909E+03_JPRB, &
+ & 0.41961E+03_JPRB,0.31700E+03_JPRB,0.19341E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 3,12, 2) = (/ &
+ & 0.10231E+03_JPRB,0.21515E+03_JPRB,0.32815E+03_JPRB,0.42544E+03_JPRB,0.45707E+03_JPRB, &
+ & 0.41729E+03_JPRB,0.31480E+03_JPRB,0.19236E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 4,12, 2) = (/ &
+ & 0.10159E+03_JPRB,0.21449E+03_JPRB,0.32754E+03_JPRB,0.42445E+03_JPRB,0.45532E+03_JPRB, &
+ & 0.41526E+03_JPRB,0.31288E+03_JPRB,0.19145E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 5,12, 2) = (/ &
+ & 0.10096E+03_JPRB,0.21387E+03_JPRB,0.32692E+03_JPRB,0.42356E+03_JPRB,0.45377E+03_JPRB, &
+ & 0.41347E+03_JPRB,0.31119E+03_JPRB,0.19066E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 1,13, 2) = (/ &
+ & 0.10177E+03_JPRB,0.21460E+03_JPRB,0.32761E+03_JPRB,0.42475E+03_JPRB,0.45575E+03_JPRB, &
+ & 0.41576E+03_JPRB,0.31335E+03_JPRB,0.19168E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 2,13, 2) = (/ &
+ & 0.10099E+03_JPRB,0.21397E+03_JPRB,0.32712E+03_JPRB,0.42368E+03_JPRB,0.45383E+03_JPRB, &
+ & 0.41353E+03_JPRB,0.31125E+03_JPRB,0.19068E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 3,13, 2) = (/ &
+ & 0.10031E+03_JPRB,0.21340E+03_JPRB,0.32663E+03_JPRB,0.42272E+03_JPRB,0.45216E+03_JPRB, &
+ & 0.41160E+03_JPRB,0.30943E+03_JPRB,0.18983E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 4,13, 2) = (/ &
+ & 0.99720E+02_JPRB,0.21286E+03_JPRB,0.32612E+03_JPRB,0.42187E+03_JPRB,0.45071E+03_JPRB, &
+ & 0.40991E+03_JPRB,0.30785E+03_JPRB,0.18908E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 5,13, 2) = (/ &
+ & 0.99204E+02_JPRB,0.21233E+03_JPRB,0.32558E+03_JPRB,0.42112E+03_JPRB,0.44942E+03_JPRB, &
+ & 0.40842E+03_JPRB,0.30646E+03_JPRB,0.18843E+03_JPRB,0.71840E+02_JPRB /)  
+KA(:, 1, 1, 3) = (/ &
+ & 0.44909E+03_JPRB,0.47445E+03_JPRB,0.49981E+03_JPRB,0.52556E+03_JPRB,0.59352E+03_JPRB, &
+ & 0.63011E+03_JPRB,0.50440E+03_JPRB,0.31793E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 2, 1, 3) = (/ &
+ & 0.43771E+03_JPRB,0.46449E+03_JPRB,0.49128E+03_JPRB,0.51852E+03_JPRB,0.58982E+03_JPRB, &
+ & 0.62155E+03_JPRB,0.49364E+03_JPRB,0.31383E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 3, 1, 3) = (/ &
+ & 0.42749E+03_JPRB,0.45555E+03_JPRB,0.48362E+03_JPRB,0.51220E+03_JPRB,0.58623E+03_JPRB, &
+ & 0.61324E+03_JPRB,0.48379E+03_JPRB,0.31014E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 4, 1, 3) = (/ &
+ & 0.41826E+03_JPRB,0.44748E+03_JPRB,0.47670E+03_JPRB,0.50650E+03_JPRB,0.58281E+03_JPRB, &
+ & 0.60555E+03_JPRB,0.47483E+03_JPRB,0.30681E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 5, 1, 3) = (/ &
+ & 0.40989E+03_JPRB,0.44015E+03_JPRB,0.47042E+03_JPRB,0.50132E+03_JPRB,0.57944E+03_JPRB, &
+ & 0.59846E+03_JPRB,0.46657E+03_JPRB,0.30379E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 1, 2, 3) = (/ &
+ & 0.41487E+03_JPRB,0.44451E+03_JPRB,0.47415E+03_JPRB,0.50447E+03_JPRB,0.58410E+03_JPRB, &
+ & 0.60269E+03_JPRB,0.47150E+03_JPRB,0.30559E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 2, 2, 3) = (/ &
+ & 0.40511E+03_JPRB,0.43597E+03_JPRB,0.46683E+03_JPRB,0.49854E+03_JPRB,0.58056E+03_JPRB, &
+ & 0.59434E+03_JPRB,0.46181E+03_JPRB,0.30207E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 3, 2, 3) = (/ &
+ & 0.39637E+03_JPRB,0.42832E+03_JPRB,0.46028E+03_JPRB,0.49326E+03_JPRB,0.57701E+03_JPRB, &
+ & 0.58648E+03_JPRB,0.45298E+03_JPRB,0.29892E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 4, 2, 3) = (/ &
+ & 0.38850E+03_JPRB,0.42143E+03_JPRB,0.45437E+03_JPRB,0.48855E+03_JPRB,0.57350E+03_JPRB, &
+ & 0.57914E+03_JPRB,0.44500E+03_JPRB,0.29608E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 5, 2, 3) = (/ &
+ & 0.38136E+03_JPRB,0.41519E+03_JPRB,0.44902E+03_JPRB,0.48433E+03_JPRB,0.57004E+03_JPRB, &
+ & 0.57245E+03_JPRB,0.43774E+03_JPRB,0.29351E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 1, 3, 3) = (/ &
+ & 0.38797E+03_JPRB,0.42097E+03_JPRB,0.45397E+03_JPRB,0.48897E+03_JPRB,0.57508E+03_JPRB, &
+ & 0.57865E+03_JPRB,0.44446E+03_JPRB,0.29589E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 2, 3, 3) = (/ &
+ & 0.37940E+03_JPRB,0.41348E+03_JPRB,0.44755E+03_JPRB,0.48416E+03_JPRB,0.57138E+03_JPRB, &
+ & 0.57059E+03_JPRB,0.43573E+03_JPRB,0.29280E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 3, 3, 3) = (/ &
+ & 0.37176E+03_JPRB,0.40679E+03_JPRB,0.44182E+03_JPRB,0.47985E+03_JPRB,0.56781E+03_JPRB, &
+ & 0.56324E+03_JPRB,0.42791E+03_JPRB,0.29005E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 4, 3, 3) = (/ &
+ & 0.36490E+03_JPRB,0.40078E+03_JPRB,0.43667E+03_JPRB,0.47599E+03_JPRB,0.56436E+03_JPRB, &
+ & 0.55656E+03_JPRB,0.42088E+03_JPRB,0.28757E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 5, 3, 3) = (/ &
+ & 0.35870E+03_JPRB,0.39536E+03_JPRB,0.43202E+03_JPRB,0.47253E+03_JPRB,0.56109E+03_JPRB, &
+ & 0.55041E+03_JPRB,0.41448E+03_JPRB,0.28534E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 1, 4, 3) = (/ &
+ & 0.36565E+03_JPRB,0.40144E+03_JPRB,0.43723E+03_JPRB,0.47759E+03_JPRB,0.56581E+03_JPRB, &
+ & 0.55729E+03_JPRB,0.42164E+03_JPRB,0.28784E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 2, 4, 3) = (/ &
+ & 0.35808E+03_JPRB,0.39482E+03_JPRB,0.43155E+03_JPRB,0.47386E+03_JPRB,0.56215E+03_JPRB, &
+ & 0.54978E+03_JPRB,0.41381E+03_JPRB,0.28511E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 3, 4, 3) = (/ &
+ & 0.35135E+03_JPRB,0.38893E+03_JPRB,0.42651E+03_JPRB,0.47052E+03_JPRB,0.55875E+03_JPRB, &
+ & 0.54295E+03_JPRB,0.40683E+03_JPRB,0.28269E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 4, 4, 3) = (/ &
+ & 0.34533E+03_JPRB,0.38366E+03_JPRB,0.42199E+03_JPRB,0.46746E+03_JPRB,0.55555E+03_JPRB, &
+ & 0.53669E+03_JPRB,0.40055E+03_JPRB,0.28052E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 5, 4, 3) = (/ &
+ & 0.33991E+03_JPRB,0.37892E+03_JPRB,0.41793E+03_JPRB,0.46467E+03_JPRB,0.55244E+03_JPRB, &
+ & 0.53093E+03_JPRB,0.39488E+03_JPRB,0.27856E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 1, 5, 3) = (/ &
+ & 0.34669E+03_JPRB,0.38485E+03_JPRB,0.42301E+03_JPRB,0.46943E+03_JPRB,0.55667E+03_JPRB, &
+ & 0.53812E+03_JPRB,0.40197E+03_JPRB,0.28101E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 2, 5, 3) = (/ &
+ & 0.33999E+03_JPRB,0.37899E+03_JPRB,0.41799E+03_JPRB,0.46662E+03_JPRB,0.55311E+03_JPRB, &
+ & 0.53101E+03_JPRB,0.39496E+03_JPRB,0.27859E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 3, 5, 3) = (/ &
+ & 0.33406E+03_JPRB,0.37380E+03_JPRB,0.41354E+03_JPRB,0.46416E+03_JPRB,0.54976E+03_JPRB, &
+ & 0.52459E+03_JPRB,0.38873E+03_JPRB,0.27645E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 4, 5, 3) = (/ &
+ & 0.32878E+03_JPRB,0.36918E+03_JPRB,0.40958E+03_JPRB,0.46185E+03_JPRB,0.54671E+03_JPRB, &
+ & 0.51881E+03_JPRB,0.38326E+03_JPRB,0.27455E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 5, 5, 3) = (/ &
+ & 0.32404E+03_JPRB,0.36503E+03_JPRB,0.40603E+03_JPRB,0.45969E+03_JPRB,0.54395E+03_JPRB, &
+ & 0.51356E+03_JPRB,0.37844E+03_JPRB,0.27284E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 1, 6, 3) = (/ &
+ & 0.33079E+03_JPRB,0.37094E+03_JPRB,0.41109E+03_JPRB,0.46395E+03_JPRB,0.54790E+03_JPRB, &
+ & 0.52101E+03_JPRB,0.38534E+03_JPRB,0.27527E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 2, 6, 3) = (/ &
+ & 0.32482E+03_JPRB,0.36572E+03_JPRB,0.40662E+03_JPRB,0.46188E+03_JPRB,0.54448E+03_JPRB, &
+ & 0.51443E+03_JPRB,0.37923E+03_JPRB,0.27312E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 3, 6, 3) = (/ &
+ & 0.31958E+03_JPRB,0.36113E+03_JPRB,0.40268E+03_JPRB,0.45998E+03_JPRB,0.54143E+03_JPRB, &
+ & 0.50857E+03_JPRB,0.37397E+03_JPRB,0.27123E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 4, 6, 3) = (/ &
+ & 0.31492E+03_JPRB,0.35705E+03_JPRB,0.39919E+03_JPRB,0.45816E+03_JPRB,0.53866E+03_JPRB, &
+ & 0.50335E+03_JPRB,0.36939E+03_JPRB,0.26955E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 5, 6, 3) = (/ &
+ & 0.31076E+03_JPRB,0.35342E+03_JPRB,0.39607E+03_JPRB,0.45638E+03_JPRB,0.53611E+03_JPRB, &
+ & 0.49868E+03_JPRB,0.36537E+03_JPRB,0.26805E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 1, 7, 3) = (/ &
+ & 0.31725E+03_JPRB,0.35910E+03_JPRB,0.40094E+03_JPRB,0.45992E+03_JPRB,0.53978E+03_JPRB, &
+ & 0.50597E+03_JPRB,0.37168E+03_JPRB,0.27039E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 2, 7, 3) = (/ &
+ & 0.31194E+03_JPRB,0.35445E+03_JPRB,0.39695E+03_JPRB,0.45835E+03_JPRB,0.53664E+03_JPRB, &
+ & 0.50000E+03_JPRB,0.36650E+03_JPRB,0.26848E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 3, 7, 3) = (/ &
+ & 0.30729E+03_JPRB,0.35038E+03_JPRB,0.39347E+03_JPRB,0.45686E+03_JPRB,0.53383E+03_JPRB, &
+ & 0.49465E+03_JPRB,0.36205E+03_JPRB,0.26680E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 4, 7, 3) = (/ &
+ & 0.30318E+03_JPRB,0.34679E+03_JPRB,0.39040E+03_JPRB,0.45536E+03_JPRB,0.53125E+03_JPRB, &
+ & 0.48979E+03_JPRB,0.35818E+03_JPRB,0.26532E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 5, 7, 3) = (/ &
+ & 0.29953E+03_JPRB,0.34359E+03_JPRB,0.38767E+03_JPRB,0.45383E+03_JPRB,0.52882E+03_JPRB, &
+ & 0.48543E+03_JPRB,0.35479E+03_JPRB,0.26401E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 1, 8, 3) = (/ &
+ & 0.30567E+03_JPRB,0.34896E+03_JPRB,0.39226E+03_JPRB,0.45673E+03_JPRB,0.53243E+03_JPRB, &
+ & 0.49274E+03_JPRB,0.36052E+03_JPRB,0.26622E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 2, 8, 3) = (/ &
+ & 0.30094E+03_JPRB,0.34482E+03_JPRB,0.38872E+03_JPRB,0.45541E+03_JPRB,0.52945E+03_JPRB, &
+ & 0.48711E+03_JPRB,0.35609E+03_JPRB,0.26451E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 3, 8, 3) = (/ &
+ & 0.29682E+03_JPRB,0.34122E+03_JPRB,0.38564E+03_JPRB,0.45413E+03_JPRB,0.52674E+03_JPRB, &
+ & 0.48217E+03_JPRB,0.35231E+03_JPRB,0.26303E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 4, 8, 3) = (/ &
+ & 0.29320E+03_JPRB,0.33805E+03_JPRB,0.38294E+03_JPRB,0.45285E+03_JPRB,0.52426E+03_JPRB, &
+ & 0.47779E+03_JPRB,0.34904E+03_JPRB,0.26172E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 5, 8, 3) = (/ &
+ & 0.29000E+03_JPRB,0.33525E+03_JPRB,0.38055E+03_JPRB,0.45152E+03_JPRB,0.52191E+03_JPRB, &
+ & 0.47388E+03_JPRB,0.34618E+03_JPRB,0.26057E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 1, 9, 3) = (/ &
+ & 0.29581E+03_JPRB,0.34033E+03_JPRB,0.38489E+03_JPRB,0.45387E+03_JPRB,0.52555E+03_JPRB, &
+ & 0.48095E+03_JPRB,0.35139E+03_JPRB,0.26266E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 2, 9, 3) = (/ &
+ & 0.29159E+03_JPRB,0.33664E+03_JPRB,0.38173E+03_JPRB,0.45277E+03_JPRB,0.52268E+03_JPRB, &
+ & 0.47582E+03_JPRB,0.34759E+03_JPRB,0.26114E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 3, 9, 3) = (/ &
+ & 0.28794E+03_JPRB,0.33344E+03_JPRB,0.37901E+03_JPRB,0.45167E+03_JPRB,0.52008E+03_JPRB, &
+ & 0.47135E+03_JPRB,0.34436E+03_JPRB,0.25982E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 4, 9, 3) = (/ &
+ & 0.28475E+03_JPRB,0.33065E+03_JPRB,0.37663E+03_JPRB,0.45055E+03_JPRB,0.51765E+03_JPRB, &
+ & 0.46738E+03_JPRB,0.34157E+03_JPRB,0.25867E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 5, 9, 3) = (/ &
+ & 0.28193E+03_JPRB,0.32819E+03_JPRB,0.37453E+03_JPRB,0.44937E+03_JPRB,0.51538E+03_JPRB, &
+ & 0.46382E+03_JPRB,0.33916E+03_JPRB,0.25766E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 1,10, 3) = (/ &
+ & 0.28708E+03_JPRB,0.33269E+03_JPRB,0.37836E+03_JPRB,0.45121E+03_JPRB,0.51885E+03_JPRB, &
+ & 0.47029E+03_JPRB,0.34361E+03_JPRB,0.25951E+03_JPRB,0.17829E+03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART2',1,ZHOOK_HANDLE)
+END SUBROUTINE PART2
+
+
+SUBROUTINE PART3
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART3',0,ZHOOK_HANDLE)
+
+
+KA(:, 2,10, 3) = (/ &
+ & 0.28336E+03_JPRB,0.32944E+03_JPRB,0.37559E+03_JPRB,0.45027E+03_JPRB,0.51611E+03_JPRB, &
+ & 0.46563E+03_JPRB,0.34037E+03_JPRB,0.25817E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 3,10, 3) = (/ &
+ & 0.28016E+03_JPRB,0.32664E+03_JPRB,0.37320E+03_JPRB,0.44932E+03_JPRB,0.51361E+03_JPRB, &
+ & 0.46153E+03_JPRB,0.33765E+03_JPRB,0.25702E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 4,10, 3) = (/ &
+ & 0.27737E+03_JPRB,0.32420E+03_JPRB,0.37112E+03_JPRB,0.44835E+03_JPRB,0.51133E+03_JPRB, &
+ & 0.45793E+03_JPRB,0.33532E+03_JPRB,0.25601E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 5,10, 3) = (/ &
+ & 0.27492E+03_JPRB,0.32206E+03_JPRB,0.36930E+03_JPRB,0.44735E+03_JPRB,0.50922E+03_JPRB, &
+ & 0.45473E+03_JPRB,0.33330E+03_JPRB,0.25513E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 1,11, 3) = (/ &
+ & 0.27807E+03_JPRB,0.32481E+03_JPRB,0.37164E+03_JPRB,0.44842E+03_JPRB,0.51141E+03_JPRB, &
+ & 0.45884E+03_JPRB,0.33590E+03_JPRB,0.25627E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 2,11, 3) = (/ &
+ & 0.27502E+03_JPRB,0.32214E+03_JPRB,0.36937E+03_JPRB,0.44764E+03_JPRB,0.50894E+03_JPRB, &
+ & 0.45486E+03_JPRB,0.33338E+03_JPRB,0.25517E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 3,11, 3) = (/ &
+ & 0.27240E+03_JPRB,0.31985E+03_JPRB,0.36742E+03_JPRB,0.44685E+03_JPRB,0.50671E+03_JPRB, &
+ & 0.45139E+03_JPRB,0.33123E+03_JPRB,0.25422E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 4,11, 3) = (/ &
+ & 0.27012E+03_JPRB,0.31785E+03_JPRB,0.36572E+03_JPRB,0.44602E+03_JPRB,0.50464E+03_JPRB, &
+ & 0.44836E+03_JPRB,0.32939E+03_JPRB,0.25340E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 5,11, 3) = (/ &
+ & 0.26811E+03_JPRB,0.31610E+03_JPRB,0.36422E+03_JPRB,0.44514E+03_JPRB,0.50273E+03_JPRB, &
+ & 0.44569E+03_JPRB,0.32779E+03_JPRB,0.25268E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 1,12, 3) = (/ &
+ & 0.27068E+03_JPRB,0.31834E+03_JPRB,0.36613E+03_JPRB,0.44605E+03_JPRB,0.50476E+03_JPRB, &
+ & 0.44911E+03_JPRB,0.32983E+03_JPRB,0.25360E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 2,12, 3) = (/ &
+ & 0.26818E+03_JPRB,0.31616E+03_JPRB,0.36428E+03_JPRB,0.44539E+03_JPRB,0.50255E+03_JPRB, &
+ & 0.44579E+03_JPRB,0.32784E+03_JPRB,0.25270E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 3,12, 3) = (/ &
+ & 0.26603E+03_JPRB,0.31428E+03_JPRB,0.36268E+03_JPRB,0.44471E+03_JPRB,0.50054E+03_JPRB, &
+ & 0.44293E+03_JPRB,0.32614E+03_JPRB,0.25193E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 4,12, 3) = (/ &
+ & 0.26417E+03_JPRB,0.31264E+03_JPRB,0.36129E+03_JPRB,0.44399E+03_JPRB,0.49874E+03_JPRB, &
+ & 0.44043E+03_JPRB,0.32468E+03_JPRB,0.25125E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 5,12, 3) = (/ &
+ & 0.26252E+03_JPRB,0.31121E+03_JPRB,0.36005E+03_JPRB,0.44322E+03_JPRB,0.49710E+03_JPRB, &
+ & 0.43824E+03_JPRB,0.32341E+03_JPRB,0.25066E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 1,13, 3) = (/ &
+ & 0.26463E+03_JPRB,0.31305E+03_JPRB,0.36163E+03_JPRB,0.44400E+03_JPRB,0.49889E+03_JPRB, &
+ & 0.44105E+03_JPRB,0.32504E+03_JPRB,0.25142E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 2,13, 3) = (/ &
+ & 0.26258E+03_JPRB,0.31126E+03_JPRB,0.36010E+03_JPRB,0.44348E+03_JPRB,0.49698E+03_JPRB, &
+ & 0.43831E+03_JPRB,0.32345E+03_JPRB,0.25068E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 3,13, 3) = (/ &
+ & 0.26082E+03_JPRB,0.30972E+03_JPRB,0.35880E+03_JPRB,0.44291E+03_JPRB,0.49519E+03_JPRB, &
+ & 0.43595E+03_JPRB,0.32210E+03_JPRB,0.25005E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 4,13, 3) = (/ &
+ & 0.25929E+03_JPRB,0.30838E+03_JPRB,0.35766E+03_JPRB,0.44229E+03_JPRB,0.49360E+03_JPRB, &
+ & 0.43388E+03_JPRB,0.32093E+03_JPRB,0.24950E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 5,13, 3) = (/ &
+ & 0.25795E+03_JPRB,0.30721E+03_JPRB,0.35666E+03_JPRB,0.44160E+03_JPRB,0.49217E+03_JPRB, &
+ & 0.43204E+03_JPRB,0.31991E+03_JPRB,0.24901E+03_JPRB,0.17829E+03_JPRB /)  
+KA(:, 1, 1, 4) = (/ &
+ & 0.86913E+03_JPRB,0.80389E+03_JPRB,0.73864E+03_JPRB,0.67339E+03_JPRB,0.62239E+03_JPRB, &
+ & 0.67741E+03_JPRB,0.51596E+03_JPRB,0.43641E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 2, 1, 4) = (/ &
+ & 0.84711E+03_JPRB,0.78462E+03_JPRB,0.72212E+03_JPRB,0.65963E+03_JPRB,0.61530E+03_JPRB, &
+ & 0.66963E+03_JPRB,0.50564E+03_JPRB,0.43387E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 3, 1, 4) = (/ &
+ & 0.82734E+03_JPRB,0.76731E+03_JPRB,0.70729E+03_JPRB,0.64727E+03_JPRB,0.60932E+03_JPRB, &
+ & 0.66251E+03_JPRB,0.49688E+03_JPRB,0.43160E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 4, 1, 4) = (/ &
+ & 0.80948E+03_JPRB,0.75169E+03_JPRB,0.69390E+03_JPRB,0.63611E+03_JPRB,0.60420E+03_JPRB, &
+ & 0.65531E+03_JPRB,0.48930E+03_JPRB,0.42954E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 5, 1, 4) = (/ &
+ & 0.79327E+03_JPRB,0.73751E+03_JPRB,0.68174E+03_JPRB,0.62598E+03_JPRB,0.59980E+03_JPRB, &
+ & 0.64776E+03_JPRB,0.48275E+03_JPRB,0.42767E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 1, 2, 4) = (/ &
+ & 0.80291E+03_JPRB,0.74594E+03_JPRB,0.68897E+03_JPRB,0.63200E+03_JPRB,0.60547E+03_JPRB, &
+ & 0.65273E+03_JPRB,0.48660E+03_JPRB,0.42878E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 2, 2, 4) = (/ &
+ & 0.78403E+03_JPRB,0.72942E+03_JPRB,0.67481E+03_JPRB,0.62020E+03_JPRB,0.60133E+03_JPRB, &
+ & 0.64384E+03_JPRB,0.47915E+03_JPRB,0.42661E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 3, 2, 4) = (/ &
+ & 0.76711E+03_JPRB,0.71462E+03_JPRB,0.66212E+03_JPRB,0.60962E+03_JPRB,0.59788E+03_JPRB, &
+ & 0.63506E+03_JPRB,0.47284E+03_JPRB,0.42466E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 4, 2, 4) = (/ &
+ & 0.75187E+03_JPRB,0.70128E+03_JPRB,0.65069E+03_JPRB,0.60010E+03_JPRB,0.59472E+03_JPRB, &
+ & 0.62679E+03_JPRB,0.46742E+03_JPRB,0.42291E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 5, 2, 4) = (/ &
+ & 0.73807E+03_JPRB,0.68920E+03_JPRB,0.64034E+03_JPRB,0.59147E+03_JPRB,0.59165E+03_JPRB, &
+ & 0.61864E+03_JPRB,0.46272E+03_JPRB,0.42132E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 1, 3, 4) = (/ &
+ & 0.75084E+03_JPRB,0.70038E+03_JPRB,0.64992E+03_JPRB,0.59946E+03_JPRB,0.59732E+03_JPRB, &
+ & 0.62621E+03_JPRB,0.46707E+03_JPRB,0.42279E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 2, 3, 4) = (/ &
+ & 0.73427E+03_JPRB,0.68588E+03_JPRB,0.63749E+03_JPRB,0.58910E+03_JPRB,0.59435E+03_JPRB, &
+ & 0.61627E+03_JPRB,0.46147E+03_JPRB,0.42088E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 3, 3, 4) = (/ &
+ & 0.71948E+03_JPRB,0.67294E+03_JPRB,0.62640E+03_JPRB,0.57986E+03_JPRB,0.59145E+03_JPRB, &
+ & 0.60690E+03_JPRB,0.45675E+03_JPRB,0.41918E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 4, 3, 4) = (/ &
+ & 0.70620E+03_JPRB,0.66132E+03_JPRB,0.61644E+03_JPRB,0.57156E+03_JPRB,0.58863E+03_JPRB, &
+ & 0.59842E+03_JPRB,0.45269E+03_JPRB,0.41765E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 5, 3, 4) = (/ &
+ & 0.69421E+03_JPRB,0.65083E+03_JPRB,0.60744E+03_JPRB,0.56406E+03_JPRB,0.58580E+03_JPRB, &
+ & 0.59032E+03_JPRB,0.44923E+03_JPRB,0.41627E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 1, 4, 4) = (/ &
+ & 0.70765E+03_JPRB,0.66259E+03_JPRB,0.61753E+03_JPRB,0.57246E+03_JPRB,0.59114E+03_JPRB, &
+ & 0.59936E+03_JPRB,0.45313E+03_JPRB,0.41781E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 2, 4, 4) = (/ &
+ & 0.69300E+03_JPRB,0.64977E+03_JPRB,0.60654E+03_JPRB,0.56330E+03_JPRB,0.58834E+03_JPRB, &
+ & 0.58949E+03_JPRB,0.44892E+03_JPRB,0.41613E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 3, 4, 4) = (/ &
+ & 0.67997E+03_JPRB,0.63837E+03_JPRB,0.59677E+03_JPRB,0.55516E+03_JPRB,0.58563E+03_JPRB, &
+ & 0.58057E+03_JPRB,0.44538E+03_JPRB,0.41463E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 4, 4, 4) = (/ &
+ & 0.66833E+03_JPRB,0.62818E+03_JPRB,0.58803E+03_JPRB,0.54788E+03_JPRB,0.58292E+03_JPRB, &
+ & 0.57257E+03_JPRB,0.44238E+03_JPRB,0.41329E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 5, 4, 4) = (/ &
+ & 0.65784E+03_JPRB,0.61901E+03_JPRB,0.58017E+03_JPRB,0.54133E+03_JPRB,0.58031E+03_JPRB, &
+ & 0.56522E+03_JPRB,0.43982E+03_JPRB,0.41208E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 1, 5, 4) = (/ &
+ & 0.67096E+03_JPRB,0.63048E+03_JPRB,0.59001E+03_JPRB,0.54953E+03_JPRB,0.58521E+03_JPRB, &
+ & 0.57438E+03_JPRB,0.44304E+03_JPRB,0.41359E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 2, 5, 4) = (/ &
+ & 0.65799E+03_JPRB,0.61913E+03_JPRB,0.58028E+03_JPRB,0.54142E+03_JPRB,0.58256E+03_JPRB, &
+ & 0.56532E+03_JPRB,0.43984E+03_JPRB,0.41210E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 3, 5, 4) = (/ &
+ & 0.64651E+03_JPRB,0.60909E+03_JPRB,0.57167E+03_JPRB,0.53427E+03_JPRB,0.57997E+03_JPRB, &
+ & 0.55705E+03_JPRB,0.43718E+03_JPRB,0.41077E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 4, 5, 4) = (/ &
+ & 0.63629E+03_JPRB,0.60015E+03_JPRB,0.56401E+03_JPRB,0.52793E+03_JPRB,0.57742E+03_JPRB, &
+ & 0.54959E+03_JPRB,0.43482E+03_JPRB,0.40960E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 5, 5, 4) = (/ &
+ & 0.62713E+03_JPRB,0.59213E+03_JPRB,0.55713E+03_JPRB,0.52227E+03_JPRB,0.57480E+03_JPRB, &
+ & 0.54282E+03_JPRB,0.43271E+03_JPRB,0.40854E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 1, 6, 4) = (/ &
+ & 0.64019E+03_JPRB,0.60356E+03_JPRB,0.56693E+03_JPRB,0.53034E+03_JPRB,0.57955E+03_JPRB, &
+ & 0.55244E+03_JPRB,0.43572E+03_JPRB,0.41005E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 2, 6, 4) = (/ &
+ & 0.62864E+03_JPRB,0.59346E+03_JPRB,0.55827E+03_JPRB,0.52321E+03_JPRB,0.57700E+03_JPRB, &
+ & 0.54395E+03_JPRB,0.43306E+03_JPRB,0.40872E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 3, 6, 4) = (/ &
+ & 0.61849E+03_JPRB,0.58457E+03_JPRB,0.55065E+03_JPRB,0.51703E+03_JPRB,0.57439E+03_JPRB, &
+ & 0.53634E+03_JPRB,0.43072E+03_JPRB,0.40755E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 4, 6, 4) = (/ &
+ & 0.60948E+03_JPRB,0.57669E+03_JPRB,0.54390E+03_JPRB,0.51158E+03_JPRB,0.57170E+03_JPRB, &
+ & 0.52946E+03_JPRB,0.42865E+03_JPRB,0.40651E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 5, 6, 4) = (/ &
+ & 0.60143E+03_JPRB,0.56965E+03_JPRB,0.53786E+03_JPRB,0.50675E+03_JPRB,0.56897E+03_JPRB, &
+ & 0.52321E+03_JPRB,0.42679E+03_JPRB,0.40558E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 1, 7, 4) = (/ &
+ & 0.61399E+03_JPRB,0.58064E+03_JPRB,0.54728E+03_JPRB,0.51440E+03_JPRB,0.57380E+03_JPRB, &
+ & 0.53292E+03_JPRB,0.42969E+03_JPRB,0.40703E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 2, 7, 4) = (/ &
+ & 0.60371E+03_JPRB,0.57164E+03_JPRB,0.53957E+03_JPRB,0.50828E+03_JPRB,0.57103E+03_JPRB, &
+ & 0.52498E+03_JPRB,0.42732E+03_JPRB,0.40585E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 3, 7, 4) = (/ &
+ & 0.59471E+03_JPRB,0.56376E+03_JPRB,0.53282E+03_JPRB,0.50302E+03_JPRB,0.56836E+03_JPRB, &
+ & 0.51802E+03_JPRB,0.42525E+03_JPRB,0.40481E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 4, 7, 4) = (/ &
+ & 0.58676E+03_JPRB,0.55681E+03_JPRB,0.52686E+03_JPRB,0.49842E+03_JPRB,0.56580E+03_JPRB, &
+ & 0.51197E+03_JPRB,0.42342E+03_JPRB,0.40389E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 5, 7, 4) = (/ &
+ & 0.57970E+03_JPRB,0.55063E+03_JPRB,0.52156E+03_JPRB,0.49437E+03_JPRB,0.56333E+03_JPRB, &
+ & 0.50656E+03_JPRB,0.42179E+03_JPRB,0.40308E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 1, 8, 4) = (/ &
+ & 0.59158E+03_JPRB,0.56102E+03_JPRB,0.53047E+03_JPRB,0.50136E+03_JPRB,0.56762E+03_JPRB, &
+ & 0.51564E+03_JPRB,0.42452E+03_JPRB,0.40445E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 2, 8, 4) = (/ &
+ & 0.58242E+03_JPRB,0.55301E+03_JPRB,0.52360E+03_JPRB,0.49623E+03_JPRB,0.56499E+03_JPRB, &
+ & 0.50866E+03_JPRB,0.42242E+03_JPRB,0.40339E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 3, 8, 4) = (/ &
+ & 0.57445E+03_JPRB,0.54604E+03_JPRB,0.51762E+03_JPRB,0.49188E+03_JPRB,0.56245E+03_JPRB, &
+ & 0.50238E+03_JPRB,0.42058E+03_JPRB,0.40248E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 4, 8, 4) = (/ &
+ & 0.56745E+03_JPRB,0.53991E+03_JPRB,0.51237E+03_JPRB,0.48811E+03_JPRB,0.55998E+03_JPRB, &
+ & 0.49675E+03_JPRB,0.41897E+03_JPRB,0.40167E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 5, 8, 4) = (/ &
+ & 0.56125E+03_JPRB,0.53448E+03_JPRB,0.50772E+03_JPRB,0.48477E+03_JPRB,0.55757E+03_JPRB, &
+ & 0.49178E+03_JPRB,0.41754E+03_JPRB,0.40096E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 1, 9, 4) = (/ &
+ & 0.57249E+03_JPRB,0.54432E+03_JPRB,0.51615E+03_JPRB,0.49103E+03_JPRB,0.56159E+03_JPRB, &
+ & 0.50080E+03_JPRB,0.42013E+03_JPRB,0.40225E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 2, 9, 4) = (/ &
+ & 0.56432E+03_JPRB,0.53718E+03_JPRB,0.51003E+03_JPRB,0.48678E+03_JPRB,0.55899E+03_JPRB, &
+ & 0.49424E+03_JPRB,0.41825E+03_JPRB,0.40131E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 3, 9, 4) = (/ &
+ & 0.55726E+03_JPRB,0.53099E+03_JPRB,0.50473E+03_JPRB,0.48321E+03_JPRB,0.55650E+03_JPRB, &
+ & 0.48858E+03_JPRB,0.41662E+03_JPRB,0.40050E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 4, 9, 4) = (/ &
+ & 0.55108E+03_JPRB,0.52559E+03_JPRB,0.50010E+03_JPRB,0.48011E+03_JPRB,0.55416E+03_JPRB, &
+ & 0.48367E+03_JPRB,0.41520E+03_JPRB,0.39978E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 5, 9, 4) = (/ &
+ & 0.54564E+03_JPRB,0.52083E+03_JPRB,0.49601E+03_JPRB,0.47737E+03_JPRB,0.55194E+03_JPRB, &
+ & 0.47938E+03_JPRB,0.41394E+03_JPRB,0.39916E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 1,10, 4) = (/ &
+ & 0.55559E+03_JPRB,0.52954E+03_JPRB,0.50348E+03_JPRB,0.48256E+03_JPRB,0.55544E+03_JPRB, &
+ & 0.48725E+03_JPRB,0.41624E+03_JPRB,0.40030E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 2,10, 4) = (/ &
+ & 0.54839E+03_JPRB,0.52324E+03_JPRB,0.49808E+03_JPRB,0.47910E+03_JPRB,0.55295E+03_JPRB, &
+ & 0.48155E+03_JPRB,0.41458E+03_JPRB,0.39948E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 3,10, 4) = (/ &
+ & 0.54220E+03_JPRB,0.51781E+03_JPRB,0.49343E+03_JPRB,0.47621E+03_JPRB,0.55067E+03_JPRB, &
+ & 0.47667E+03_JPRB,0.41315E+03_JPRB,0.39876E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 4,10, 4) = (/ &
+ & 0.53680E+03_JPRB,0.51310E+03_JPRB,0.48939E+03_JPRB,0.47371E+03_JPRB,0.54855E+03_JPRB, &
+ & 0.47238E+03_JPRB,0.41191E+03_JPRB,0.39814E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 5,10, 4) = (/ &
+ & 0.53207E+03_JPRB,0.50895E+03_JPRB,0.48584E+03_JPRB,0.47148E+03_JPRB,0.54655E+03_JPRB, &
+ & 0.46857E+03_JPRB,0.41082E+03_JPRB,0.39760E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 1,11, 4) = (/ &
+ & 0.53816E+03_JPRB,0.51428E+03_JPRB,0.49041E+03_JPRB,0.47455E+03_JPRB,0.54857E+03_JPRB, &
+ & 0.47346E+03_JPRB,0.41222E+03_JPRB,0.39830E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 2,11, 4) = (/ &
+ & 0.53226E+03_JPRB,0.50912E+03_JPRB,0.48598E+03_JPRB,0.47200E+03_JPRB,0.54640E+03_JPRB, &
+ & 0.46874E+03_JPRB,0.41086E+03_JPRB,0.39762E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 3,11, 4) = (/ &
+ & 0.52718E+03_JPRB,0.50468E+03_JPRB,0.48217E+03_JPRB,0.46982E+03_JPRB,0.54436E+03_JPRB, &
+ & 0.46486E+03_JPRB,0.40969E+03_JPRB,0.39703E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 4,11, 4) = (/ &
+ & 0.52277E+03_JPRB,0.50081E+03_JPRB,0.47886E+03_JPRB,0.46790E+03_JPRB,0.54248E+03_JPRB, &
+ & 0.46109E+03_JPRB,0.40868E+03_JPRB,0.39652E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 5,11, 4) = (/ &
+ & 0.51889E+03_JPRB,0.49742E+03_JPRB,0.47595E+03_JPRB,0.46618E+03_JPRB,0.54076E+03_JPRB, &
+ & 0.45793E+03_JPRB,0.40778E+03_JPRB,0.39608E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 1,12, 4) = (/ &
+ & 0.52385E+03_JPRB,0.50177E+03_JPRB,0.47968E+03_JPRB,0.46863E+03_JPRB,0.54244E+03_JPRB, &
+ & 0.46202E+03_JPRB,0.40893E+03_JPRB,0.39665E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 2,12, 4) = (/ &
+ & 0.51902E+03_JPRB,0.49754E+03_JPRB,0.47606E+03_JPRB,0.46673E+03_JPRB,0.54050E+03_JPRB, &
+ & 0.45805E+03_JPRB,0.40782E+03_JPRB,0.39609E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 3,12, 4) = (/ &
+ & 0.51487E+03_JPRB,0.49390E+03_JPRB,0.47294E+03_JPRB,0.46509E+03_JPRB,0.53868E+03_JPRB, &
+ & 0.45465E+03_JPRB,0.40686E+03_JPRB,0.39561E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 4,12, 4) = (/ &
+ & 0.51125E+03_JPRB,0.49074E+03_JPRB,0.47022E+03_JPRB,0.46362E+03_JPRB,0.53703E+03_JPRB, &
+ & 0.45171E+03_JPRB,0.40602E+03_JPRB,0.39520E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 5,12, 4) = (/ &
+ & 0.50807E+03_JPRB,0.48796E+03_JPRB,0.46784E+03_JPRB,0.46227E+03_JPRB,0.53558E+03_JPRB, &
+ & 0.44916E+03_JPRB,0.40529E+03_JPRB,0.39483E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 1,13, 4) = (/ &
+ & 0.51214E+03_JPRB,0.49152E+03_JPRB,0.47089E+03_JPRB,0.46425E+03_JPRB,0.53698E+03_JPRB, &
+ & 0.45243E+03_JPRB,0.40623E+03_JPRB,0.39530E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 2,13, 4) = (/ &
+ & 0.50819E+03_JPRB,0.48806E+03_JPRB,0.46793E+03_JPRB,0.46281E+03_JPRB,0.53522E+03_JPRB, &
+ & 0.44925E+03_JPRB,0.40532E+03_JPRB,0.39485E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 3,13, 4) = (/ &
+ & 0.50478E+03_JPRB,0.48508E+03_JPRB,0.46537E+03_JPRB,0.46157E+03_JPRB,0.53378E+03_JPRB, &
+ & 0.44654E+03_JPRB,0.40453E+03_JPRB,0.39445E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 4,13, 4) = (/ &
+ & 0.50182E+03_JPRB,0.48249E+03_JPRB,0.46315E+03_JPRB,0.46044E+03_JPRB,0.53251E+03_JPRB, &
+ & 0.44422E+03_JPRB,0.40385E+03_JPRB,0.39411E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 5,13, 4) = (/ &
+ & 0.49922E+03_JPRB,0.48021E+03_JPRB,0.46120E+03_JPRB,0.45936E+03_JPRB,0.53137E+03_JPRB, &
+ & 0.44221E+03_JPRB,0.40325E+03_JPRB,0.39381E+03_JPRB,0.38437E+03_JPRB /)  
+KA(:, 1, 1, 5) = (/ &
+ & 0.13243E+04_JPRB,0.11799E+04_JPRB,0.10354E+04_JPRB,0.89093E+03_JPRB,0.74647E+03_JPRB, &
+ & 0.71044E+03_JPRB,0.61021E+03_JPRB,0.64069E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 2, 1, 5) = (/ &
+ & 0.12908E+04_JPRB,0.11505E+04_JPRB,0.10102E+04_JPRB,0.86996E+03_JPRB,0.72969E+03_JPRB, &
+ & 0.70292E+03_JPRB,0.60750E+03_JPRB,0.63934E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 3, 1, 5) = (/ &
+ & 0.12606E+04_JPRB,0.11241E+04_JPRB,0.98763E+03_JPRB,0.85113E+03_JPRB,0.71463E+03_JPRB, &
+ & 0.69451E+03_JPRB,0.60507E+03_JPRB,0.63812E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 4, 1, 5) = (/ &
+ & 0.12334E+04_JPRB,0.11003E+04_JPRB,0.96722E+03_JPRB,0.83412E+03_JPRB,0.70102E+03_JPRB, &
+ & 0.68564E+03_JPRB,0.60287E+03_JPRB,0.63703E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 5, 1, 5) = (/ &
+ & 0.12087E+04_JPRB,0.10787E+04_JPRB,0.94870E+03_JPRB,0.81869E+03_JPRB,0.68867E+03_JPRB, &
+ & 0.67724E+03_JPRB,0.60088E+03_JPRB,0.63603E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 1, 2, 5) = (/ &
+ & 0.12234E+04_JPRB,0.10916E+04_JPRB,0.95972E+03_JPRB,0.82787E+03_JPRB,0.69602E+03_JPRB, &
+ & 0.68345E+03_JPRB,0.60207E+03_JPRB,0.63662E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 2, 2, 5) = (/ &
+ & 0.11946E+04_JPRB,0.10664E+04_JPRB,0.93814E+03_JPRB,0.80988E+03_JPRB,0.68163E+03_JPRB, &
+ & 0.67225E+03_JPRB,0.59975E+03_JPRB,0.63546E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 3, 2, 5) = (/ &
+ & 0.11689E+04_JPRB,0.10438E+04_JPRB,0.91881E+03_JPRB,0.79377E+03_JPRB,0.66882E+03_JPRB, &
+ & 0.66165E+03_JPRB,0.59767E+03_JPRB,0.63442E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 4, 2, 5) = (/ &
+ & 0.11456E+04_JPRB,0.10235E+04_JPRB,0.90139E+03_JPRB,0.77926E+03_JPRB,0.65759E+03_JPRB, &
+ & 0.65058E+03_JPRB,0.59579E+03_JPRB,0.63348E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 5, 2, 5) = (/ &
+ & 0.11246E+04_JPRB,0.10051E+04_JPRB,0.88561E+03_JPRB,0.76611E+03_JPRB,0.64778E+03_JPRB, &
+ & 0.64016E+03_JPRB,0.59410E+03_JPRB,0.63264E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 1, 3, 5) = (/ &
+ & 0.11441E+04_JPRB,0.10221E+04_JPRB,0.90021E+03_JPRB,0.77828E+03_JPRB,0.65728E+03_JPRB, &
+ & 0.64981E+03_JPRB,0.59567E+03_JPRB,0.63342E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 2, 3, 5) = (/ &
+ & 0.11188E+04_JPRB,0.10001E+04_JPRB,0.88128E+03_JPRB,0.76250E+03_JPRB,0.64582E+03_JPRB, &
+ & 0.63739E+03_JPRB,0.59363E+03_JPRB,0.63240E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 3, 3, 5) = (/ &
+ & 0.10963E+04_JPRB,0.98033E+03_JPRB,0.86437E+03_JPRB,0.74841E+03_JPRB,0.63611E+03_JPRB, &
+ & 0.62581E+03_JPRB,0.59181E+03_JPRB,0.63149E+03_JPRB,0.67118E+03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART3',1,ZHOOK_HANDLE)
+END SUBROUTINE PART3
+
+
+SUBROUTINE PART4
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART4',0,ZHOOK_HANDLE)
+
+
+KA(:, 4, 3, 5) = (/ &
+ & 0.10761E+04_JPRB,0.96263E+03_JPRB,0.84920E+03_JPRB,0.73577E+03_JPRB,0.62780E+03_JPRB, &
+ & 0.61513E+03_JPRB,0.59018E+03_JPRB,0.63068E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 5, 3, 5) = (/ &
+ & 0.10578E+04_JPRB,0.94664E+03_JPRB,0.83549E+03_JPRB,0.72435E+03_JPRB,0.62066E+03_JPRB, &
+ & 0.60588E+03_JPRB,0.58871E+03_JPRB,0.62994E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 1, 4, 5) = (/ &
+ & 0.10783E+04_JPRB,0.96456E+03_JPRB,0.85086E+03_JPRB,0.73715E+03_JPRB,0.62971E+03_JPRB, &
+ & 0.61628E+03_JPRB,0.59036E+03_JPRB,0.63077E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 2, 4, 5) = (/ &
+ & 0.10559E+04_JPRB,0.94502E+03_JPRB,0.83411E+03_JPRB,0.72319E+03_JPRB,0.62145E+03_JPRB, &
+ & 0.60490E+03_JPRB,0.58856E+03_JPRB,0.62987E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 3, 4, 5) = (/ &
+ & 0.10361E+04_JPRB,0.92766E+03_JPRB,0.81923E+03_JPRB,0.71079E+03_JPRB,0.61457E+03_JPRB, &
+ & 0.59452E+03_JPRB,0.58696E+03_JPRB,0.62907E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 4, 4, 5) = (/ &
+ & 0.10183E+04_JPRB,0.91213E+03_JPRB,0.80591E+03_JPRB,0.69970E+03_JPRB,0.60876E+03_JPRB, &
+ & 0.58559E+03_JPRB,0.58552E+03_JPRB,0.62835E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 5, 4, 5) = (/ &
+ & 0.10024E+04_JPRB,0.89816E+03_JPRB,0.79394E+03_JPRB,0.68972E+03_JPRB,0.60374E+03_JPRB, &
+ & 0.57800E+03_JPRB,0.58424E+03_JPRB,0.62771E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 1, 5, 5) = (/ &
+ & 0.10224E+04_JPRB,0.91564E+03_JPRB,0.80892E+03_JPRB,0.70221E+03_JPRB,0.61144E+03_JPRB, &
+ & 0.58757E+03_JPRB,0.58585E+03_JPRB,0.62851E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 2, 5, 5) = (/ &
+ & 0.10026E+04_JPRB,0.89835E+03_JPRB,0.79410E+03_JPRB,0.68985E+03_JPRB,0.60588E+03_JPRB, &
+ & 0.57810E+03_JPRB,0.58425E+03_JPRB,0.62772E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 3, 5, 5) = (/ &
+ & 0.98511E+03_JPRB,0.88305E+03_JPRB,0.78099E+03_JPRB,0.67893E+03_JPRB,0.60138E+03_JPRB, &
+ & 0.57034E+03_JPRB,0.58284E+03_JPRB,0.62701E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 4, 5, 5) = (/ &
+ & 0.96954E+03_JPRB,0.86942E+03_JPRB,0.76931E+03_JPRB,0.66919E+03_JPRB,0.59759E+03_JPRB, &
+ & 0.56378E+03_JPRB,0.58159E+03_JPRB,0.62638E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 5, 5, 5) = (/ &
+ & 0.95557E+03_JPRB,0.85720E+03_JPRB,0.75883E+03_JPRB,0.66046E+03_JPRB,0.59436E+03_JPRB, &
+ & 0.55823E+03_JPRB,0.58046E+03_JPRB,0.62582E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 1, 6, 5) = (/ &
+ & 0.97547E+03_JPRB,0.87461E+03_JPRB,0.77376E+03_JPRB,0.67290E+03_JPRB,0.60045E+03_JPRB, &
+ & 0.56624E+03_JPRB,0.58207E+03_JPRB,0.62662E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 2, 6, 5) = (/ &
+ & 0.95788E+03_JPRB,0.85922E+03_JPRB,0.76057E+03_JPRB,0.66191E+03_JPRB,0.59710E+03_JPRB, &
+ & 0.55912E+03_JPRB,0.58065E+03_JPRB,0.62591E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 3, 6, 5) = (/ &
+ & 0.94241E+03_JPRB,0.84568E+03_JPRB,0.74896E+03_JPRB,0.65223E+03_JPRB,0.59434E+03_JPRB, &
+ & 0.55328E+03_JPRB,0.57940E+03_JPRB,0.62529E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 4, 6, 5) = (/ &
+ & 0.92868E+03_JPRB,0.83367E+03_JPRB,0.73866E+03_JPRB,0.64365E+03_JPRB,0.59182E+03_JPRB, &
+ & 0.54839E+03_JPRB,0.57829E+03_JPRB,0.62473E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 5, 6, 5) = (/ &
+ & 0.91642E+03_JPRB,0.82295E+03_JPRB,0.72947E+03_JPRB,0.63599E+03_JPRB,0.58948E+03_JPRB, &
+ & 0.54428E+03_JPRB,0.57730E+03_JPRB,0.62424E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 1, 7, 5) = (/ &
+ & 0.93556E+03_JPRB,0.83969E+03_JPRB,0.74382E+03_JPRB,0.64795E+03_JPRB,0.59420E+03_JPRB, &
+ & 0.55081E+03_JPRB,0.57885E+03_JPRB,0.62501E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 2, 7, 5) = (/ &
+ & 0.91989E+03_JPRB,0.82598E+03_JPRB,0.73207E+03_JPRB,0.63816E+03_JPRB,0.59179E+03_JPRB, &
+ & 0.54542E+03_JPRB,0.57758E+03_JPRB,0.62438E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 3, 7, 5) = (/ &
+ & 0.90618E+03_JPRB,0.81398E+03_JPRB,0.72179E+03_JPRB,0.62959E+03_JPRB,0.58955E+03_JPRB, &
+ & 0.54102E+03_JPRB,0.57648E+03_JPRB,0.62383E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 4, 7, 5) = (/ &
+ & 0.89407E+03_JPRB,0.80339E+03_JPRB,0.71271E+03_JPRB,0.62202E+03_JPRB,0.58737E+03_JPRB, &
+ & 0.53729E+03_JPRB,0.57550E+03_JPRB,0.62334E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 5, 7, 5) = (/ &
+ & 0.88331E+03_JPRB,0.79397E+03_JPRB,0.70463E+03_JPRB,0.61530E+03_JPRB,0.58524E+03_JPRB, &
+ & 0.53413E+03_JPRB,0.57463E+03_JPRB,0.62290E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 1, 8, 5) = (/ &
+ & 0.90140E+03_JPRB,0.80981E+03_JPRB,0.71821E+03_JPRB,0.62661E+03_JPRB,0.58941E+03_JPRB, &
+ & 0.53953E+03_JPRB,0.57609E+03_JPRB,0.62363E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 2, 8, 5) = (/ &
+ & 0.88745E+03_JPRB,0.79760E+03_JPRB,0.70774E+03_JPRB,0.61789E+03_JPRB,0.58727E+03_JPRB, &
+ & 0.53533E+03_JPRB,0.57497E+03_JPRB,0.62307E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 3, 8, 5) = (/ &
+ & 0.87531E+03_JPRB,0.78697E+03_JPRB,0.69863E+03_JPRB,0.61030E+03_JPRB,0.58522E+03_JPRB, &
+ & 0.53203E+03_JPRB,0.57399E+03_JPRB,0.62258E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 4, 8, 5) = (/ &
+ & 0.86464E+03_JPRB,0.77763E+03_JPRB,0.69063E+03_JPRB,0.60363E+03_JPRB,0.58317E+03_JPRB, &
+ & 0.52938E+03_JPRB,0.57313E+03_JPRB,0.62215E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 5, 8, 5) = (/ &
+ & 0.85519E+03_JPRB,0.76937E+03_JPRB,0.68354E+03_JPRB,0.59772E+03_JPRB,0.58120E+03_JPRB, &
+ & 0.52712E+03_JPRB,0.57236E+03_JPRB,0.62177E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 1, 9, 5) = (/ &
+ & 0.87232E+03_JPRB,0.78435E+03_JPRB,0.69639E+03_JPRB,0.60843E+03_JPRB,0.58508E+03_JPRB, &
+ & 0.53128E+03_JPRB,0.57375E+03_JPRB,0.62246E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 2, 9, 5) = (/ &
+ & 0.85988E+03_JPRB,0.77347E+03_JPRB,0.68706E+03_JPRB,0.60065E+03_JPRB,0.58302E+03_JPRB, &
+ & 0.52823E+03_JPRB,0.57274E+03_JPRB,0.62196E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 3, 9, 5) = (/ &
+ & 0.84911E+03_JPRB,0.76405E+03_JPRB,0.67898E+03_JPRB,0.59392E+03_JPRB,0.58102E+03_JPRB, &
+ & 0.52572E+03_JPRB,0.57187E+03_JPRB,0.62153E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 4, 9, 5) = (/ &
+ & 0.83970E+03_JPRB,0.75581E+03_JPRB,0.67193E+03_JPRB,0.58804E+03_JPRB,0.57906E+03_JPRB, &
+ & 0.52364E+03_JPRB,0.57111E+03_JPRB,0.62115E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 5, 9, 5) = (/ &
+ & 0.83140E+03_JPRB,0.74855E+03_JPRB,0.66571E+03_JPRB,0.58286E+03_JPRB,0.57713E+03_JPRB, &
+ & 0.52190E+03_JPRB,0.57045E+03_JPRB,0.62081E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 1,10, 5) = (/ &
+ & 0.84657E+03_JPRB,0.76183E+03_JPRB,0.67708E+03_JPRB,0.59234E+03_JPRB,0.58061E+03_JPRB, &
+ & 0.52515E+03_JPRB,0.57167E+03_JPRB,0.62142E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 2,10, 5) = (/ &
+ & 0.83560E+03_JPRB,0.75223E+03_JPRB,0.66886E+03_JPRB,0.58548E+03_JPRB,0.57865E+03_JPRB, &
+ & 0.52276E+03_JPRB,0.57078E+03_JPRB,0.62098E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 3,10, 5) = (/ &
+ & 0.82616E+03_JPRB,0.74397E+03_JPRB,0.66177E+03_JPRB,0.57958E+03_JPRB,0.57663E+03_JPRB, &
+ & 0.52085E+03_JPRB,0.57002E+03_JPRB,0.62060E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 4,10, 5) = (/ &
+ & 0.81794E+03_JPRB,0.73678E+03_JPRB,0.65561E+03_JPRB,0.57444E+03_JPRB,0.57466E+03_JPRB, &
+ & 0.51933E+03_JPRB,0.56936E+03_JPRB,0.62027E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 5,10, 5) = (/ &
+ & 0.81073E+03_JPRB,0.73047E+03_JPRB,0.65020E+03_JPRB,0.56994E+03_JPRB,0.57276E+03_JPRB, &
+ & 0.51811E+03_JPRB,0.56878E+03_JPRB,0.61998E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 1,11, 5) = (/ &
+ & 0.82001E+03_JPRB,0.73859E+03_JPRB,0.65716E+03_JPRB,0.57574E+03_JPRB,0.57531E+03_JPRB, &
+ & 0.51970E+03_JPRB,0.56953E+03_JPRB,0.62035E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 2,11, 5) = (/ &
+ & 0.81102E+03_JPRB,0.73072E+03_JPRB,0.65042E+03_JPRB,0.57012E+03_JPRB,0.57326E+03_JPRB, &
+ & 0.51814E+03_JPRB,0.56880E+03_JPRB,0.61999E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 3,11, 5) = (/ &
+ & 0.80328E+03_JPRB,0.72395E+03_JPRB,0.64462E+03_JPRB,0.56528E+03_JPRB,0.57135E+03_JPRB, &
+ & 0.51670E+03_JPRB,0.56818E+03_JPRB,0.61968E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 4,11, 5) = (/ &
+ & 0.79655E+03_JPRB,0.71806E+03_JPRB,0.63957E+03_JPRB,0.56108E+03_JPRB,0.56956E+03_JPRB, &
+ & 0.51595E+03_JPRB,0.56763E+03_JPRB,0.61941E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 5,11, 5) = (/ &
+ & 0.79064E+03_JPRB,0.71289E+03_JPRB,0.63514E+03_JPRB,0.55738E+03_JPRB,0.56781E+03_JPRB, &
+ & 0.51517E+03_JPRB,0.56716E+03_JPRB,0.61917E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 1,12, 5) = (/ &
+ & 0.79821E+03_JPRB,0.71951E+03_JPRB,0.64081E+03_JPRB,0.56211E+03_JPRB,0.57002E+03_JPRB, &
+ & 0.51613E+03_JPRB,0.56777E+03_JPRB,0.61947E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 2,12, 5) = (/ &
+ & 0.79085E+03_JPRB,0.71307E+03_JPRB,0.63529E+03_JPRB,0.55751E+03_JPRB,0.56813E+03_JPRB, &
+ & 0.51519E+03_JPRB,0.56717E+03_JPRB,0.61918E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 3,12, 5) = (/ &
+ & 0.78452E+03_JPRB,0.70753E+03_JPRB,0.63054E+03_JPRB,0.55355E+03_JPRB,0.56648E+03_JPRB, &
+ & 0.51441E+03_JPRB,0.56666E+03_JPRB,0.61892E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 4,12, 5) = (/ &
+ & 0.77901E+03_JPRB,0.70271E+03_JPRB,0.62641E+03_JPRB,0.55011E+03_JPRB,0.56489E+03_JPRB, &
+ & 0.51374E+03_JPRB,0.56622E+03_JPRB,0.61870E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 5,12, 5) = (/ &
+ & 0.77417E+03_JPRB,0.69847E+03_JPRB,0.62278E+03_JPRB,0.54708E+03_JPRB,0.56325E+03_JPRB, &
+ & 0.51315E+03_JPRB,0.56583E+03_JPRB,0.61850E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 1,13, 5) = (/ &
+ & 0.78036E+03_JPRB,0.70389E+03_JPRB,0.62743E+03_JPRB,0.55096E+03_JPRB,0.56495E+03_JPRB, &
+ & 0.51390E+03_JPRB,0.56633E+03_JPRB,0.61875E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 2,13, 5) = (/ &
+ & 0.77434E+03_JPRB,0.69862E+03_JPRB,0.62291E+03_JPRB,0.54719E+03_JPRB,0.56343E+03_JPRB, &
+ & 0.51318E+03_JPRB,0.56584E+03_JPRB,0.61851E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 3,13, 5) = (/ &
+ & 0.76915E+03_JPRB,0.69408E+03_JPRB,0.61902E+03_JPRB,0.54395E+03_JPRB,0.56189E+03_JPRB, &
+ & 0.51255E+03_JPRB,0.56542E+03_JPRB,0.61830E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 4,13, 5) = (/ &
+ & 0.76464E+03_JPRB,0.69014E+03_JPRB,0.61563E+03_JPRB,0.54113E+03_JPRB,0.56027E+03_JPRB, &
+ & 0.51200E+03_JPRB,0.56506E+03_JPRB,0.61812E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 5,13, 5) = (/ &
+ & 0.76068E+03_JPRB,0.68667E+03_JPRB,0.61266E+03_JPRB,0.53865E+03_JPRB,0.55865E+03_JPRB, &
+ & 0.51152E+03_JPRB,0.56474E+03_JPRB,0.61796E+03_JPRB,0.67118E+03_JPRB /)  
+KA(:, 1, 1, 6) = (/ &
+ & 0.16832E+04_JPRB,0.14832E+04_JPRB,0.12833E+04_JPRB,0.10834E+04_JPRB,0.88343E+03_JPRB, &
+ & 0.73047E+03_JPRB,0.75923E+03_JPRB,0.85568E+03_JPRB,0.94989E+03_JPRB /)  
+KA(:, 2, 1, 6) = (/ &
+ & 0.16405E+04_JPRB,0.14459E+04_JPRB,0.12513E+04_JPRB,0.10567E+04_JPRB,0.86211E+03_JPRB, &
+ & 0.72257E+03_JPRB,0.75791E+03_JPRB,0.85457E+03_JPRB,0.94915E+03_JPRB /)  
+KA(:, 3, 1, 6) = (/ &
+ & 0.16022E+04_JPRB,0.14124E+04_JPRB,0.12226E+04_JPRB,0.10328E+04_JPRB,0.84296E+03_JPRB, &
+ & 0.71182E+03_JPRB,0.75643E+03_JPRB,0.85315E+03_JPRB,0.94805E+03_JPRB /)  
+KA(:, 4, 1, 6) = (/ &
+ & 0.15677E+04_JPRB,0.13822E+04_JPRB,0.11967E+04_JPRB,0.10112E+04_JPRB,0.82566E+03_JPRB, &
+ & 0.70003E+03_JPRB,0.75475E+03_JPRB,0.85145E+03_JPRB,0.94659E+03_JPRB /)  
+KA(:, 5, 1, 6) = (/ &
+ & 0.15363E+04_JPRB,0.13547E+04_JPRB,0.11731E+04_JPRB,0.99155E+03_JPRB,0.80997E+03_JPRB, &
+ & 0.68802E+03_JPRB,0.75277E+03_JPRB,0.84941E+03_JPRB,0.94478E+03_JPRB /)  
+KA(:, 1, 2, 6) = (/ &
+ & 0.15549E+04_JPRB,0.13710E+04_JPRB,0.11871E+04_JPRB,0.10032E+04_JPRB,0.81930E+03_JPRB, &
+ & 0.69644E+03_JPRB,0.75599E+03_JPRB,0.85402E+03_JPRB,0.95009E+03_JPRB /)  
+KA(:, 2, 2, 6) = (/ &
+ & 0.15184E+04_JPRB,0.13390E+04_JPRB,0.11597E+04_JPRB,0.98036E+03_JPRB,0.80102E+03_JPRB, &
+ & 0.68214E+03_JPRB,0.75486E+03_JPRB,0.85308E+03_JPRB,0.94950E+03_JPRB /)  
+KA(:, 3, 2, 6) = (/ &
+ & 0.14856E+04_JPRB,0.13104E+04_JPRB,0.11351E+04_JPRB,0.95988E+03_JPRB,0.78464E+03_JPRB, &
+ & 0.67032E+03_JPRB,0.75359E+03_JPRB,0.85186E+03_JPRB,0.94855E+03_JPRB /)  
+KA(:, 4, 2, 6) = (/ &
+ & 0.14561E+04_JPRB,0.12845E+04_JPRB,0.11130E+04_JPRB,0.94143E+03_JPRB,0.76988E+03_JPRB, &
+ & 0.66240E+03_JPRB,0.75215E+03_JPRB,0.85037E+03_JPRB,0.94724E+03_JPRB /)  
+KA(:, 5, 2, 6) = (/ &
+ & 0.14294E+04_JPRB,0.12611E+04_JPRB,0.10929E+04_JPRB,0.92472E+03_JPRB,0.75651E+03_JPRB, &
+ & 0.65660E+03_JPRB,0.75042E+03_JPRB,0.84857E+03_JPRB,0.94557E+03_JPRB /)  
+KA(:, 1, 3, 6) = (/ &
+ & 0.14541E+04_JPRB,0.12828E+04_JPRB,0.11115E+04_JPRB,0.94019E+03_JPRB,0.76889E+03_JPRB, &
+ & 0.66226E+03_JPRB,0.75340E+03_JPRB,0.85268E+03_JPRB,0.95029E+03_JPRB /)  
+KA(:, 2, 3, 6) = (/ &
+ & 0.14220E+04_JPRB,0.12547E+04_JPRB,0.10874E+04_JPRB,0.92013E+03_JPRB,0.75284E+03_JPRB, &
+ & 0.65611E+03_JPRB,0.75249E+03_JPRB,0.85200E+03_JPRB,0.94990E+03_JPRB /)  
+KA(:, 3, 3, 6) = (/ &
+ & 0.13934E+04_JPRB,0.12297E+04_JPRB,0.10659E+04_JPRB,0.90223E+03_JPRB,0.73852E+03_JPRB, &
+ & 0.65222E+03_JPRB,0.75143E+03_JPRB,0.85101E+03_JPRB,0.94916E+03_JPRB /)  
+KA(:, 4, 3, 6) = (/ &
+ & 0.13676E+04_JPRB,0.12071E+04_JPRB,0.10467E+04_JPRB,0.88615E+03_JPRB,0.72566E+03_JPRB, &
+ & 0.64945E+03_JPRB,0.75024E+03_JPRB,0.84977E+03_JPRB,0.94807E+03_JPRB /)  
+KA(:, 5, 3, 6) = (/ &
+ & 0.13444E+04_JPRB,0.11868E+04_JPRB,0.10292E+04_JPRB,0.87164E+03_JPRB,0.71405E+03_JPRB, &
+ & 0.64733E+03_JPRB,0.74880E+03_JPRB,0.84822E+03_JPRB,0.94662E+03_JPRB /)  
+KA(:, 1, 4, 6) = (/ &
+ & 0.13705E+04_JPRB,0.12096E+04_JPRB,0.10488E+04_JPRB,0.88791E+03_JPRB,0.72707E+03_JPRB, &
+ & 0.64976E+03_JPRB,0.75119E+03_JPRB,0.85151E+03_JPRB,0.95037E+03_JPRB /)  
+KA(:, 2, 4, 6) = (/ &
+ & 0.13421E+04_JPRB,0.11848E+04_JPRB,0.10275E+04_JPRB,0.87017E+03_JPRB,0.71287E+03_JPRB, &
+ & 0.64785E+03_JPRB,0.75047E+03_JPRB,0.85104E+03_JPRB,0.95019E+03_JPRB /)  
+KA(:, 3, 4, 6) = (/ &
+ & 0.13169E+04_JPRB,0.11627E+04_JPRB,0.10086E+04_JPRB,0.85441E+03_JPRB,0.70026E+03_JPRB, &
+ & 0.64696E+03_JPRB,0.74964E+03_JPRB,0.85031E+03_JPRB,0.94968E+03_JPRB /)  
+KA(:, 4, 4, 6) = (/ &
+ & 0.12943E+04_JPRB,0.11430E+04_JPRB,0.99164E+03_JPRB,0.84031E+03_JPRB,0.68898E+03_JPRB, &
+ & 0.64601E+03_JPRB,0.74865E+03_JPRB,0.84930E+03_JPRB,0.94882E+03_JPRB /)  
+KA(:, 5, 4, 6) = (/ &
+ & 0.12740E+04_JPRB,0.11252E+04_JPRB,0.97642E+03_JPRB,0.82763E+03_JPRB,0.67884E+03_JPRB, &
+ & 0.64496E+03_JPRB,0.74747E+03_JPRB,0.84802E+03_JPRB,0.94760E+03_JPRB /)  
+KA(:, 1, 5, 6) = (/ &
+ & 0.12994E+04_JPRB,0.11474E+04_JPRB,0.99546E+03_JPRB,0.84350E+03_JPRB,0.69153E+03_JPRB, &
+ & 0.64599E+03_JPRB,0.74922E+03_JPRB,0.85040E+03_JPRB,0.95032E+03_JPRB /)  
+KA(:, 2, 5, 6) = (/ &
+ & 0.12743E+04_JPRB,0.11254E+04_JPRB,0.97662E+03_JPRB,0.82780E+03_JPRB,0.67897E+03_JPRB, &
+ & 0.64529E+03_JPRB,0.74869E+03_JPRB,0.85015E+03_JPRB,0.95034E+03_JPRB /)  
+KA(:, 3, 5, 6) = (/ &
+ & 0.12521E+04_JPRB,0.11060E+04_JPRB,0.95996E+03_JPRB,0.81391E+03_JPRB,0.66786E+03_JPRB, &
+ & 0.64458E+03_JPRB,0.74805E+03_JPRB,0.84965E+03_JPRB,0.95004E+03_JPRB /)  
+KA(:, 4, 5, 6) = (/ &
+ & 0.12323E+04_JPRB,0.10887E+04_JPRB,0.94511E+03_JPRB,0.80154E+03_JPRB,0.65797E+03_JPRB, &
+ & 0.64380E+03_JPRB,0.74727E+03_JPRB,0.84886E+03_JPRB,0.94940E+03_JPRB /)  
+KA(:, 5, 5, 6) = (/ &
+ & 0.12145E+04_JPRB,0.10732E+04_JPRB,0.93180E+03_JPRB,0.79045E+03_JPRB,0.64909E+03_JPRB, &
+ & 0.64294E+03_JPRB,0.74629E+03_JPRB,0.84781E+03_JPRB,0.94841E+03_JPRB /)  
+KA(:, 1, 6, 6) = (/ &
+ & 0.12398E+04_JPRB,0.10953E+04_JPRB,0.95077E+03_JPRB,0.80625E+03_JPRB,0.66174E+03_JPRB, &
+ & 0.64362E+03_JPRB,0.74747E+03_JPRB,0.84935E+03_JPRB,0.95014E+03_JPRB /)  
+KA(:, 2, 6, 6) = (/ &
+ & 0.12174E+04_JPRB,0.10757E+04_JPRB,0.93400E+03_JPRB,0.79228E+03_JPRB,0.65056E+03_JPRB, &
+ & 0.64308E+03_JPRB,0.74712E+03_JPRB,0.84932E+03_JPRB,0.95036E+03_JPRB /)  
+KA(:, 3, 6, 6) = (/ &
+ & 0.11978E+04_JPRB,0.10585E+04_JPRB,0.91925E+03_JPRB,0.77999E+03_JPRB,0.64087E+03_JPRB, &
+ & 0.64253E+03_JPRB,0.74666E+03_JPRB,0.84902E+03_JPRB,0.95027E+03_JPRB /)  
+KA(:, 4, 6, 6) = (/ &
+ & 0.11803E+04_JPRB,0.10432E+04_JPRB,0.90616E+03_JPRB,0.76908E+03_JPRB,0.63262E+03_JPRB, &
+ & 0.64192E+03_JPRB,0.74606E+03_JPRB,0.84847E+03_JPRB,0.94985E+03_JPRB /)  
+KA(:, 5, 6, 6) = (/ &
+ & 0.11647E+04_JPRB,0.10296E+04_JPRB,0.89448E+03_JPRB,0.75935E+03_JPRB,0.62549E+03_JPRB, &
+ & 0.64122E+03_JPRB,0.74529E+03_JPRB,0.84763E+03_JPRB,0.94909E+03_JPRB /)  
+KA(:, 1, 7, 6) = (/ &
+ & 0.11891E+04_JPRB,0.10509E+04_JPRB,0.91272E+03_JPRB,0.77455E+03_JPRB,0.63693E+03_JPRB, &
+ & 0.64154E+03_JPRB,0.74584E+03_JPRB,0.84830E+03_JPRB,0.94975E+03_JPRB /)  
+KA(:, 2, 7, 6) = (/ &
+ & 0.11692E+04_JPRB,0.10335E+04_JPRB,0.89779E+03_JPRB,0.76210E+03_JPRB,0.62795E+03_JPRB, &
+ & 0.64115E+03_JPRB,0.74575E+03_JPRB,0.84848E+03_JPRB,0.95025E+03_JPRB /)  
+KA(:, 3, 7, 6) = (/ &
+ & 0.11517E+04_JPRB,0.10182E+04_JPRB,0.88471E+03_JPRB,0.75121E+03_JPRB,0.62051E+03_JPRB, &
+ & 0.64074E+03_JPRB,0.74542E+03_JPRB,0.84840E+03_JPRB,0.95037E+03_JPRB /)  
+KA(:, 4, 7, 6) = (/ &
+ & 0.11363E+04_JPRB,0.10048E+04_JPRB,0.87317E+03_JPRB,0.74159E+03_JPRB,0.61432E+03_JPRB, &
+ & 0.64028E+03_JPRB,0.74499E+03_JPRB,0.84806E+03_JPRB,0.95015E+03_JPRB /)  
+KA(:, 5, 7, 6) = (/ &
+ & 0.11227E+04_JPRB,0.99279E+03_JPRB,0.86291E+03_JPRB,0.73304E+03_JPRB,0.60908E+03_JPRB, &
+ & 0.63974E+03_JPRB,0.74440E+03_JPRB,0.84744E+03_JPRB,0.94961E+03_JPRB /)  
+KA(:, 1, 8, 6) = (/ &
+ & 0.11457E+04_JPRB,0.10129E+04_JPRB,0.88017E+03_JPRB,0.74742E+03_JPRB,0.61848E+03_JPRB, &
+ & 0.63968E+03_JPRB,0.74433E+03_JPRB,0.84725E+03_JPRB,0.94927E+03_JPRB /)  
+KA(:, 2, 8, 6) = (/ &
+ & 0.11279E+04_JPRB,0.99740E+03_JPRB,0.86687E+03_JPRB,0.73633E+03_JPRB,0.61183E+03_JPRB, &
+ & 0.63944E+03_JPRB,0.74439E+03_JPRB,0.84765E+03_JPRB,0.94999E+03_JPRB /)  
+KA(:, 3, 8, 6) = (/ &
+ & 0.11125E+04_JPRB,0.98389E+03_JPRB,0.85529E+03_JPRB,0.72668E+03_JPRB,0.60652E+03_JPRB, &
+ & 0.63917E+03_JPRB,0.74428E+03_JPRB,0.84777E+03_JPRB,0.95034E+03_JPRB /)  
+KA(:, 4, 8, 6) = (/ &
+ & 0.10989E+04_JPRB,0.97202E+03_JPRB,0.84512E+03_JPRB,0.71821E+03_JPRB,0.60224E+03_JPRB, &
+ & 0.63885E+03_JPRB,0.74401E+03_JPRB,0.84763E+03_JPRB,0.95032E+03_JPRB /)  
+KA(:, 5, 8, 6) = (/ &
+ & 0.10869E+04_JPRB,0.96152E+03_JPRB,0.83611E+03_JPRB,0.71070E+03_JPRB,0.59867E+03_JPRB, &
+ & 0.63844E+03_JPRB,0.74359E+03_JPRB,0.84721E+03_JPRB,0.94997E+03_JPRB /)  
+KA(:, 1, 9, 6) = (/ &
+ & 0.11087E+04_JPRB,0.98057E+03_JPRB,0.85244E+03_JPRB,0.72431E+03_JPRB,0.60583E+03_JPRB, &
+ & 0.63802E+03_JPRB,0.74290E+03_JPRB,0.84619E+03_JPRB,0.94868E+03_JPRB /)  
+KA(:, 2, 9, 6) = (/ &
+ & 0.10929E+04_JPRB,0.96673E+03_JPRB,0.84058E+03_JPRB,0.71443E+03_JPRB,0.60128E+03_JPRB, &
+ & 0.63792E+03_JPRB,0.74318E+03_JPRB,0.84681E+03_JPRB,0.94962E+03_JPRB /)  
+KA(:, 3, 9, 6) = (/ &
+ & 0.10792E+04_JPRB,0.95475E+03_JPRB,0.83031E+03_JPRB,0.70587E+03_JPRB,0.59784E+03_JPRB, &
+ & 0.63778E+03_JPRB,0.74323E+03_JPRB,0.84713E+03_JPRB,0.95019E+03_JPRB /)  
+KA(:, 4, 9, 6) = (/ &
+ & 0.10672E+04_JPRB,0.94429E+03_JPRB,0.82134E+03_JPRB,0.69840E+03_JPRB,0.59517E+03_JPRB, &
+ & 0.63759E+03_JPRB,0.74313E+03_JPRB,0.84718E+03_JPRB,0.95037E+03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART4',1,ZHOOK_HANDLE)
+END SUBROUTINE PART4
+
+
+SUBROUTINE PART5
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART5',0,ZHOOK_HANDLE)
+
+
+KA(:, 5, 9, 6) = (/ &
+ & 0.10567E+04_JPRB,0.93506E+03_JPRB,0.81344E+03_JPRB,0.69181E+03_JPRB,0.59278E+03_JPRB, &
+ & 0.63730E+03_JPRB,0.74285E+03_JPRB,0.84695E+03_JPRB,0.95021E+03_JPRB /)  
+KA(:, 1,10, 6) = (/ &
+ & 0.10760E+04_JPRB,0.95193E+03_JPRB,0.82790E+03_JPRB,0.70386E+03_JPRB,0.59768E+03_JPRB, &
+ & 0.63651E+03_JPRB,0.74157E+03_JPRB,0.84519E+03_JPRB,0.94809E+03_JPRB /)  
+KA(:, 2,10, 6) = (/ &
+ & 0.10620E+04_JPRB,0.93974E+03_JPRB,0.81744E+03_JPRB,0.69515E+03_JPRB,0.59477E+03_JPRB, &
+ & 0.63656E+03_JPRB,0.74203E+03_JPRB,0.84600E+03_JPRB,0.94921E+03_JPRB /)  
+KA(:, 3,10, 6) = (/ &
+ & 0.10500E+04_JPRB,0.92923E+03_JPRB,0.80844E+03_JPRB,0.68764E+03_JPRB,0.59242E+03_JPRB, &
+ & 0.63654E+03_JPRB,0.74226E+03_JPRB,0.84650E+03_JPRB,0.94996E+03_JPRB /)  
+KA(:, 4,10, 6) = (/ &
+ & 0.10396E+04_JPRB,0.92010E+03_JPRB,0.80061E+03_JPRB,0.68112E+03_JPRB,0.59042E+03_JPRB, &
+ & 0.63645E+03_JPRB,0.74230E+03_JPRB,0.84672E+03_JPRB,0.95033E+03_JPRB /)  
+KA(:, 5,10, 6) = (/ &
+ & 0.10304E+04_JPRB,0.91207E+03_JPRB,0.79373E+03_JPRB,0.67539E+03_JPRB,0.58849E+03_JPRB, &
+ & 0.63628E+03_JPRB,0.74216E+03_JPRB,0.84665E+03_JPRB,0.95033E+03_JPRB /)  
+KA(:, 1,11, 6) = (/ &
+ & 0.10422E+04_JPRB,0.92239E+03_JPRB,0.80258E+03_JPRB,0.68276E+03_JPRB,0.59118E+03_JPRB, &
+ & 0.63525E+03_JPRB,0.74065E+03_JPRB,0.84470E+03_JPRB,0.94808E+03_JPRB /)  
+KA(:, 2,11, 6) = (/ &
+ & 0.10308E+04_JPRB,0.91240E+03_JPRB,0.79401E+03_JPRB,0.67562E+03_JPRB,0.58920E+03_JPRB, &
+ & 0.63540E+03_JPRB,0.74118E+03_JPRB,0.84554E+03_JPRB,0.94920E+03_JPRB /)  
+KA(:, 3,11, 6) = (/ &
+ & 0.10210E+04_JPRB,0.90379E+03_JPRB,0.78663E+03_JPRB,0.66947E+03_JPRB,0.58737E+03_JPRB, &
+ & 0.63545E+03_JPRB,0.74147E+03_JPRB,0.84609E+03_JPRB,0.94995E+03_JPRB /)  
+KA(:, 4,11, 6) = (/ &
+ & 0.10124E+04_JPRB,0.89631E+03_JPRB,0.78022E+03_JPRB,0.66413E+03_JPRB,0.58569E+03_JPRB, &
+ & 0.63543E+03_JPRB,0.74156E+03_JPRB,0.84634E+03_JPRB,0.95033E+03_JPRB /)  
+KA(:, 5,11, 6) = (/ &
+ & 0.10049E+04_JPRB,0.88974E+03_JPRB,0.77458E+03_JPRB,0.65943E+03_JPRB,0.58398E+03_JPRB, &
+ & 0.63532E+03_JPRB,0.74146E+03_JPRB,0.84628E+03_JPRB,0.95033E+03_JPRB /)  
+KA(:, 1,12, 6) = (/ &
+ & 0.10145E+04_JPRB,0.89815E+03_JPRB,0.78180E+03_JPRB,0.66544E+03_JPRB,0.58616E+03_JPRB, &
+ & 0.63421E+03_JPRB,0.73990E+03_JPRB,0.84430E+03_JPRB,0.94808E+03_JPRB /)  
+KA(:, 2,12, 6) = (/ &
+ & 0.10052E+04_JPRB,0.88997E+03_JPRB,0.77478E+03_JPRB,0.65960E+03_JPRB,0.58451E+03_JPRB, &
+ & 0.63444E+03_JPRB,0.74048E+03_JPRB,0.84518E+03_JPRB,0.94921E+03_JPRB /)  
+KA(:, 3,12, 6) = (/ &
+ & 0.99710E+03_JPRB,0.88292E+03_JPRB,0.76874E+03_JPRB,0.65457E+03_JPRB,0.58265E+03_JPRB, &
+ & 0.63457E+03_JPRB,0.74082E+03_JPRB,0.84574E+03_JPRB,0.94995E+03_JPRB /)  
+KA(:, 4,12, 6) = (/ &
+ & 0.99010E+03_JPRB,0.87679E+03_JPRB,0.76349E+03_JPRB,0.65019E+03_JPRB,0.58054E+03_JPRB, &
+ & 0.63460E+03_JPRB,0.74095E+03_JPRB,0.84600E+03_JPRB,0.95033E+03_JPRB /)  
+KA(:, 5,12, 6) = (/ &
+ & 0.98395E+03_JPRB,0.87141E+03_JPRB,0.75888E+03_JPRB,0.64634E+03_JPRB,0.57844E+03_JPRB, &
+ & 0.63453E+03_JPRB,0.74089E+03_JPRB,0.84598E+03_JPRB,0.95033E+03_JPRB /)  
+KA(:, 1,13, 6) = (/ &
+ & 0.99182E+03_JPRB,0.87830E+03_JPRB,0.76478E+03_JPRB,0.65127E+03_JPRB,0.58122E+03_JPRB, &
+ & 0.63336E+03_JPRB,0.73928E+03_JPRB,0.84397E+03_JPRB,0.94808E+03_JPRB /)  
+KA(:, 2,13, 6) = (/ &
+ & 0.98416E+03_JPRB,0.87160E+03_JPRB,0.75904E+03_JPRB,0.64648E+03_JPRB,0.57888E+03_JPRB, &
+ & 0.63366E+03_JPRB,0.73991E+03_JPRB,0.84487E+03_JPRB,0.94921E+03_JPRB /)  
+KA(:, 3,13, 6) = (/ &
+ & 0.97757E+03_JPRB,0.86583E+03_JPRB,0.75410E+03_JPRB,0.64236E+03_JPRB,0.57650E+03_JPRB, &
+ & 0.63384E+03_JPRB,0.74029E+03_JPRB,0.84546E+03_JPRB,0.94996E+03_JPRB /)  
+KA(:, 4,13, 6) = (/ &
+ & 0.97184E+03_JPRB,0.86082E+03_JPRB,0.74980E+03_JPRB,0.63878E+03_JPRB,0.57428E+03_JPRB, &
+ & 0.63391E+03_JPRB,0.74045E+03_JPRB,0.84574E+03_JPRB,0.95033E+03_JPRB /)  
+KA(:, 5,13, 6) = (/ &
+ & 0.96680E+03_JPRB,0.85641E+03_JPRB,0.74602E+03_JPRB,0.63563E+03_JPRB,0.57218E+03_JPRB, &
+ & 0.63388E+03_JPRB,0.74043E+03_JPRB,0.84574E+03_JPRB,0.95033E+03_JPRB /)  
+KA(:, 1, 1, 7) = (/ &
+ & 0.18845E+04_JPRB,0.16548E+04_JPRB,0.14251E+04_JPRB,0.11953E+04_JPRB,0.96557E+03_JPRB, &
+ & 0.74301E+03_JPRB,0.82697E+03_JPRB,0.94964E+03_JPRB,0.10740E+04_JPRB /)  
+KA(:, 2, 1, 7) = (/ &
+ & 0.18367E+04_JPRB,0.16130E+04_JPRB,0.13892E+04_JPRB,0.11655E+04_JPRB,0.94169E+03_JPRB, &
+ & 0.73101E+03_JPRB,0.82533E+03_JPRB,0.94833E+03_JPRB,0.10730E+04_JPRB /)  
+KA(:, 3, 1, 7) = (/ &
+ & 0.17938E+04_JPRB,0.15755E+04_JPRB,0.13571E+04_JPRB,0.11387E+04_JPRB,0.92025E+03_JPRB, &
+ & 0.71894E+03_JPRB,0.82353E+03_JPRB,0.94679E+03_JPRB,0.10715E+04_JPRB /)  
+KA(:, 4, 1, 7) = (/ &
+ & 0.17551E+04_JPRB,0.15416E+04_JPRB,0.13280E+04_JPRB,0.11145E+04_JPRB,0.90089E+03_JPRB, &
+ & 0.70691E+03_JPRB,0.82149E+03_JPRB,0.94487E+03_JPRB,0.10696E+04_JPRB /)  
+KA(:, 5, 1, 7) = (/ &
+ & 0.17200E+04_JPRB,0.15108E+04_JPRB,0.13017E+04_JPRB,0.10925E+04_JPRB,0.88332E+03_JPRB, &
+ & 0.69946E+03_JPRB,0.81920E+03_JPRB,0.94260E+03_JPRB,0.10672E+04_JPRB /)  
+KA(:, 1, 2, 7) = (/ &
+ & 0.17409E+04_JPRB,0.15291E+04_JPRB,0.13174E+04_JPRB,0.11056E+04_JPRB,0.89377E+03_JPRB, &
+ & 0.70556E+03_JPRB,0.82545E+03_JPRB,0.94918E+03_JPRB,0.10743E+04_JPRB /)  
+KA(:, 2, 2, 7) = (/ &
+ & 0.16999E+04_JPRB,0.14933E+04_JPRB,0.12867E+04_JPRB,0.10800E+04_JPRB,0.87329E+03_JPRB, &
+ & 0.70177E+03_JPRB,0.82404E+03_JPRB,0.94806E+03_JPRB,0.10734E+04_JPRB /)  
+KA(:, 3, 2, 7) = (/ &
+ & 0.16632E+04_JPRB,0.14612E+04_JPRB,0.12591E+04_JPRB,0.10571E+04_JPRB,0.85495E+03_JPRB, &
+ & 0.69985E+03_JPRB,0.82245E+03_JPRB,0.94668E+03_JPRB,0.10721E+04_JPRB /)  
+KA(:, 4, 2, 7) = (/ &
+ & 0.16302E+04_JPRB,0.14323E+04_JPRB,0.12344E+04_JPRB,0.10364E+04_JPRB,0.83842E+03_JPRB, &
+ & 0.69778E+03_JPRB,0.82061E+03_JPRB,0.94495E+03_JPRB,0.10705E+04_JPRB /)  
+KA(:, 5, 2, 7) = (/ &
+ & 0.16003E+04_JPRB,0.14061E+04_JPRB,0.12119E+04_JPRB,0.10177E+04_JPRB,0.82345E+03_JPRB, &
+ & 0.69549E+03_JPRB,0.81853E+03_JPRB,0.94286E+03_JPRB,0.10683E+04_JPRB /)  
+KA(:, 1, 3, 7) = (/ &
+ & 0.16280E+04_JPRB,0.14303E+04_JPRB,0.12327E+04_JPRB,0.10350E+04_JPRB,0.83731E+03_JPRB, &
+ & 0.70164E+03_JPRB,0.82440E+03_JPRB,0.94900E+03_JPRB,0.10748E+04_JPRB /)  
+KA(:, 2, 3, 7) = (/ &
+ & 0.15920E+04_JPRB,0.13989E+04_JPRB,0.12057E+04_JPRB,0.10126E+04_JPRB,0.81934E+03_JPRB, &
+ & 0.70016E+03_JPRB,0.82323E+03_JPRB,0.94804E+03_JPRB,0.10740E+04_JPRB /)  
+KA(:, 3, 3, 7) = (/ &
+ & 0.15600E+04_JPRB,0.13708E+04_JPRB,0.11817E+04_JPRB,0.99252E+03_JPRB,0.80330E+03_JPRB, &
+ & 0.69850E+03_JPRB,0.82187E+03_JPRB,0.94688E+03_JPRB,0.10730E+04_JPRB /)  
+KA(:, 4, 3, 7) = (/ &
+ & 0.15312E+04_JPRB,0.13457E+04_JPRB,0.11601E+04_JPRB,0.97452E+03_JPRB,0.78890E+03_JPRB, &
+ & 0.69669E+03_JPRB,0.82029E+03_JPRB,0.94542E+03_JPRB,0.10716E+04_JPRB /)  
+KA(:, 5, 3, 7) = (/ &
+ & 0.15052E+04_JPRB,0.13229E+04_JPRB,0.11406E+04_JPRB,0.95827E+03_JPRB,0.77590E+03_JPRB, &
+ & 0.69468E+03_JPRB,0.81844E+03_JPRB,0.94358E+03_JPRB,0.10697E+04_JPRB /)  
+KA(:, 1, 4, 7) = (/ &
+ & 0.15343E+04_JPRB,0.13484E+04_JPRB,0.11625E+04_JPRB,0.97650E+03_JPRB,0.79047E+03_JPRB, &
+ & 0.70005E+03_JPRB,0.82352E+03_JPRB,0.94883E+03_JPRB,0.10751E+04_JPRB /)  
+KA(:, 2, 4, 7) = (/ &
+ & 0.15026E+04_JPRB,0.13206E+04_JPRB,0.11386E+04_JPRB,0.95663E+03_JPRB,0.77458E+03_JPRB, &
+ & 0.69884E+03_JPRB,0.82260E+03_JPRB,0.94808E+03_JPRB,0.10745E+04_JPRB /)  
+KA(:, 3, 4, 7) = (/ &
+ & 0.14743E+04_JPRB,0.12959E+04_JPRB,0.11175E+04_JPRB,0.93898E+03_JPRB,0.76046E+03_JPRB, &
+ & 0.69743E+03_JPRB,0.82145E+03_JPRB,0.94711E+03_JPRB,0.10737E+04_JPRB /)  
+KA(:, 4, 4, 7) = (/ &
+ & 0.14491E+04_JPRB,0.12738E+04_JPRB,0.10985E+04_JPRB,0.92319E+03_JPRB,0.74783E+03_JPRB, &
+ & 0.69586E+03_JPRB,0.82010E+03_JPRB,0.94588E+03_JPRB,0.10725E+04_JPRB /)  
+KA(:, 5, 4, 7) = (/ &
+ & 0.14263E+04_JPRB,0.12539E+04_JPRB,0.10815E+04_JPRB,0.90900E+03_JPRB,0.73646E+03_JPRB, &
+ & 0.69412E+03_JPRB,0.81852E+03_JPRB,0.94430E+03_JPRB,0.10710E+04_JPRB /)  
+KA(:, 1, 5, 7) = (/ &
+ & 0.14548E+04_JPRB,0.12788E+04_JPRB,0.11028E+04_JPRB,0.92676E+03_JPRB,0.75068E+03_JPRB, &
+ & 0.69862E+03_JPRB,0.82271E+03_JPRB,0.94860E+03_JPRB,0.10753E+04_JPRB /)  
+KA(:, 2, 5, 7) = (/ &
+ & 0.14266E+04_JPRB,0.12542E+04_JPRB,0.10817E+04_JPRB,0.90918E+03_JPRB,0.73662E+03_JPRB, &
+ & 0.69765E+03_JPRB,0.82202E+03_JPRB,0.94804E+03_JPRB,0.10749E+04_JPRB /)  
+KA(:, 3, 5, 7) = (/ &
+ & 0.14018E+04_JPRB,0.12324E+04_JPRB,0.10630E+04_JPRB,0.89363E+03_JPRB,0.72418E+03_JPRB, &
+ & 0.69649E+03_JPRB,0.82110E+03_JPRB,0.94729E+03_JPRB,0.10743E+04_JPRB /)  
+KA(:, 4, 5, 7) = (/ &
+ & 0.13796E+04_JPRB,0.12130E+04_JPRB,0.10464E+04_JPRB,0.87978E+03_JPRB,0.71309E+03_JPRB, &
+ & 0.69515E+03_JPRB,0.81992E+03_JPRB,0.94623E+03_JPRB,0.10733E+04_JPRB /)  
+KA(:, 5, 5, 7) = (/ &
+ & 0.13597E+04_JPRB,0.11956E+04_JPRB,0.10315E+04_JPRB,0.86737E+03_JPRB,0.70315E+03_JPRB, &
+ & 0.69363E+03_JPRB,0.81858E+03_JPRB,0.94492E+03_JPRB,0.10720E+04_JPRB /)  
+KA(:, 1, 6, 7) = (/ &
+ & 0.13881E+04_JPRB,0.12204E+04_JPRB,0.10528E+04_JPRB,0.88506E+03_JPRB,0.71732E+03_JPRB, &
+ & 0.69732E+03_JPRB,0.82195E+03_JPRB,0.94833E+03_JPRB,0.10753E+04_JPRB /)  
+KA(:, 2, 6, 7) = (/ &
+ & 0.13630E+04_JPRB,0.11985E+04_JPRB,0.10340E+04_JPRB,0.86942E+03_JPRB,0.70480E+03_JPRB, &
+ & 0.69661E+03_JPRB,0.82150E+03_JPRB,0.94796E+03_JPRB,0.10752E+04_JPRB /)  
+KA(:, 3, 6, 7) = (/ &
+ & 0.13410E+04_JPRB,0.11792E+04_JPRB,0.10175E+04_JPRB,0.85565E+03_JPRB,0.69378E+03_JPRB, &
+ & 0.69568E+03_JPRB,0.82079E+03_JPRB,0.94739E+03_JPRB,0.10747E+04_JPRB /)  
+KA(:, 4, 6, 7) = (/ &
+ & 0.13215E+04_JPRB,0.11622E+04_JPRB,0.10028E+04_JPRB,0.84344E+03_JPRB,0.68401E+03_JPRB, &
+ & 0.69456E+03_JPRB,0.81984E+03_JPRB,0.94655E+03_JPRB,0.10740E+04_JPRB /)  
+KA(:, 5, 6, 7) = (/ &
+ & 0.13040E+04_JPRB,0.11469E+04_JPRB,0.98973E+03_JPRB,0.83254E+03_JPRB,0.67529E+03_JPRB, &
+ & 0.69326E+03_JPRB,0.81868E+03_JPRB,0.94544E+03_JPRB,0.10729E+04_JPRB /)  
+KA(:, 1, 7, 7) = (/ &
+ & 0.13313E+04_JPRB,0.11707E+04_JPRB,0.10101E+04_JPRB,0.84956E+03_JPRB,0.68891E+03_JPRB, &
+ & 0.69611E+03_JPRB,0.82122E+03_JPRB,0.94800E+03_JPRB,0.10754E+04_JPRB /)  
+KA(:, 2, 7, 7) = (/ &
+ & 0.13090E+04_JPRB,0.11512E+04_JPRB,0.99343E+03_JPRB,0.83562E+03_JPRB,0.67776E+03_JPRB, &
+ & 0.69564E+03_JPRB,0.82091E+03_JPRB,0.94785E+03_JPRB,0.10753E+04_JPRB /)  
+KA(:, 3, 7, 7) = (/ &
+ & 0.12894E+04_JPRB,0.11341E+04_JPRB,0.97879E+03_JPRB,0.82342E+03_JPRB,0.66800E+03_JPRB, &
+ & 0.69494E+03_JPRB,0.82048E+03_JPRB,0.94742E+03_JPRB,0.10750E+04_JPRB /)  
+KA(:, 4, 7, 7) = (/ &
+ & 0.12722E+04_JPRB,0.11191E+04_JPRB,0.96587E+03_JPRB,0.81266E+03_JPRB,0.65938E+03_JPRB, &
+ & 0.69403E+03_JPRB,0.81973E+03_JPRB,0.94677E+03_JPRB,0.10745E+04_JPRB /)  
+KA(:, 5, 7, 7) = (/ &
+ & 0.12569E+04_JPRB,0.11057E+04_JPRB,0.95438E+03_JPRB,0.80308E+03_JPRB,0.65172E+03_JPRB, &
+ & 0.69293E+03_JPRB,0.81874E+03_JPRB,0.94587E+03_JPRB,0.10736E+04_JPRB /)  
+KA(:, 1, 8, 7) = (/ &
+ & 0.12827E+04_JPRB,0.11282E+04_JPRB,0.97371E+03_JPRB,0.81918E+03_JPRB,0.66460E+03_JPRB, &
+ & 0.69497E+03_JPRB,0.82050E+03_JPRB,0.94762E+03_JPRB,0.10753E+04_JPRB /)  
+KA(:, 2, 8, 7) = (/ &
+ & 0.12628E+04_JPRB,0.11108E+04_JPRB,0.95881E+03_JPRB,0.80678E+03_JPRB,0.65467E+03_JPRB, &
+ & 0.69473E+03_JPRB,0.82044E+03_JPRB,0.94765E+03_JPRB,0.10754E+04_JPRB /)  
+KA(:, 3, 8, 7) = (/ &
+ & 0.12455E+04_JPRB,0.10957E+04_JPRB,0.94585E+03_JPRB,0.79597E+03_JPRB,0.64602E+03_JPRB, &
+ & 0.69425E+03_JPRB,0.82014E+03_JPRB,0.94746E+03_JPRB,0.10752E+04_JPRB /)  
+KA(:, 4, 8, 7) = (/ &
+ & 0.12303E+04_JPRB,0.10824E+04_JPRB,0.93446E+03_JPRB,0.78648E+03_JPRB,0.63843E+03_JPRB, &
+ & 0.69354E+03_JPRB,0.81959E+03_JPRB,0.94691E+03_JPRB,0.10748E+04_JPRB /)  
+KA(:, 5, 8, 7) = (/ &
+ & 0.12169E+04_JPRB,0.10706E+04_JPRB,0.92437E+03_JPRB,0.77807E+03_JPRB,0.63171E+03_JPRB, &
+ & 0.69262E+03_JPRB,0.81878E+03_JPRB,0.94618E+03_JPRB,0.10741E+04_JPRB /)  
+KA(:, 1, 9, 7) = (/ &
+ & 0.12413E+04_JPRB,0.10920E+04_JPRB,0.94266E+03_JPRB,0.79331E+03_JPRB,0.64390E+03_JPRB, &
+ & 0.69387E+03_JPRB,0.81977E+03_JPRB,0.94713E+03_JPRB,0.10750E+04_JPRB /)  
+KA(:, 2, 9, 7) = (/ &
+ & 0.12236E+04_JPRB,0.10765E+04_JPRB,0.92938E+03_JPRB,0.78225E+03_JPRB,0.63504E+03_JPRB, &
+ & 0.69385E+03_JPRB,0.81989E+03_JPRB,0.94741E+03_JPRB,0.10753E+04_JPRB /)  
+KA(:, 3, 9, 7) = (/ &
+ & 0.12082E+04_JPRB,0.10631E+04_JPRB,0.91789E+03_JPRB,0.77267E+03_JPRB,0.62738E+03_JPRB, &
+ & 0.69359E+03_JPRB,0.81979E+03_JPRB,0.94732E+03_JPRB,0.10754E+04_JPRB /)  
+KA(:, 4, 9, 7) = (/ &
+ & 0.11949E+04_JPRB,0.10514E+04_JPRB,0.90785E+03_JPRB,0.76430E+03_JPRB,0.62068E+03_JPRB, &
+ & 0.69307E+03_JPRB,0.81942E+03_JPRB,0.94698E+03_JPRB,0.10751E+04_JPRB /)  
+KA(:, 5, 9, 7) = (/ &
+ & 0.11831E+04_JPRB,0.10410E+04_JPRB,0.89899E+03_JPRB,0.75692E+03_JPRB,0.61500E+03_JPRB, &
+ & 0.69235E+03_JPRB,0.81879E+03_JPRB,0.94641E+03_JPRB,0.10746E+04_JPRB /)  
+KA(:, 1,10, 7) = (/ &
+ & 0.12046E+04_JPRB,0.10599E+04_JPRB,0.91518E+03_JPRB,0.77041E+03_JPRB,0.62557E+03_JPRB, &
+ & 0.69285E+03_JPRB,0.81909E+03_JPRB,0.94663E+03_JPRB,0.10746E+04_JPRB /)  
+KA(:, 2,10, 7) = (/ &
+ & 0.11890E+04_JPRB,0.10463E+04_JPRB,0.90347E+03_JPRB,0.76066E+03_JPRB,0.61799E+03_JPRB, &
+ & 0.69301E+03_JPRB,0.81937E+03_JPRB,0.94709E+03_JPRB,0.10752E+04_JPRB /)  
+KA(:, 3,10, 7) = (/ &
+ & 0.11756E+04_JPRB,0.10345E+04_JPRB,0.89339E+03_JPRB,0.75225E+03_JPRB,0.61189E+03_JPRB, &
+ & 0.69293E+03_JPRB,0.81942E+03_JPRB,0.94719E+03_JPRB,0.10754E+04_JPRB /)  
+KA(:, 4,10, 7) = (/ &
+ & 0.11639E+04_JPRB,0.10243E+04_JPRB,0.88463E+03_JPRB,0.74495E+03_JPRB,0.60683E+03_JPRB, &
+ & 0.69260E+03_JPRB,0.81922E+03_JPRB,0.94698E+03_JPRB,0.10753E+04_JPRB /)  
+KA(:, 5,10, 7) = (/ &
+ & 0.11536E+04_JPRB,0.10153E+04_JPRB,0.87693E+03_JPRB,0.73853E+03_JPRB,0.60268E+03_JPRB, &
+ & 0.69203E+03_JPRB,0.81871E+03_JPRB,0.94653E+03_JPRB,0.10749E+04_JPRB /)  
+KA(:, 1,11, 7) = (/ &
+ & 0.11668E+04_JPRB,0.10268E+04_JPRB,0.88684E+03_JPRB,0.74678E+03_JPRB,0.60837E+03_JPRB, &
+ & 0.69208E+03_JPRB,0.81864E+03_JPRB,0.94642E+03_JPRB,0.10746E+04_JPRB /)  
+KA(:, 2,11, 7) = (/ &
+ & 0.11540E+04_JPRB,0.10157E+04_JPRB,0.87724E+03_JPRB,0.73879E+03_JPRB,0.60335E+03_JPRB, &
+ & 0.69229E+03_JPRB,0.81896E+03_JPRB,0.94691E+03_JPRB,0.10752E+04_JPRB /)  
+KA(:, 3,11, 7) = (/ &
+ & 0.11430E+04_JPRB,0.10060E+04_JPRB,0.86898E+03_JPRB,0.73191E+03_JPRB,0.59939E+03_JPRB, &
+ & 0.69226E+03_JPRB,0.81904E+03_JPRB,0.94700E+03_JPRB,0.10754E+04_JPRB /)  
+KA(:, 4,11, 7) = (/ &
+ & 0.11335E+04_JPRB,0.99764E+03_JPRB,0.86180E+03_JPRB,0.72592E+03_JPRB,0.59585E+03_JPRB, &
+ & 0.69198E+03_JPRB,0.81884E+03_JPRB,0.94679E+03_JPRB,0.10753E+04_JPRB /)  
+KA(:, 5,11, 7) = (/ &
+ & 0.11251E+04_JPRB,0.99028E+03_JPRB,0.85549E+03_JPRB,0.72067E+03_JPRB,0.59286E+03_JPRB, &
+ & 0.69146E+03_JPRB,0.81839E+03_JPRB,0.94639E+03_JPRB,0.10749E+04_JPRB /)  
+KA(:, 1,12, 7) = (/ &
+ & 0.11358E+04_JPRB,0.99970E+03_JPRB,0.86357E+03_JPRB,0.72739E+03_JPRB,0.59707E+03_JPRB, &
+ & 0.69145E+03_JPRB,0.81829E+03_JPRB,0.94626E+03_JPRB,0.10746E+04_JPRB /)  
+KA(:, 2,12, 7) = (/ &
+ & 0.11253E+04_JPRB,0.99054E+03_JPRB,0.85571E+03_JPRB,0.72085E+03_JPRB,0.59339E+03_JPRB, &
+ & 0.69172E+03_JPRB,0.81863E+03_JPRB,0.94675E+03_JPRB,0.10752E+04_JPRB /)  
+KA(:, 3,12, 7) = (/ &
+ & 0.11163E+04_JPRB,0.98265E+03_JPRB,0.84895E+03_JPRB,0.71521E+03_JPRB,0.59030E+03_JPRB, &
+ & 0.69172E+03_JPRB,0.81873E+03_JPRB,0.94686E+03_JPRB,0.10754E+04_JPRB /)  
+KA(:, 4,12, 7) = (/ &
+ & 0.11085E+04_JPRB,0.97579E+03_JPRB,0.84307E+03_JPRB,0.71031E+03_JPRB,0.58782E+03_JPRB, &
+ & 0.69148E+03_JPRB,0.81855E+03_JPRB,0.94672E+03_JPRB,0.10753E+04_JPRB /)  
+KA(:, 5,12, 7) = (/ &
+ & 0.11016E+04_JPRB,0.96977E+03_JPRB,0.83790E+03_JPRB,0.70601E+03_JPRB,0.58538E+03_JPRB, &
+ & 0.69099E+03_JPRB,0.81812E+03_JPRB,0.94628E+03_JPRB,0.10749E+04_JPRB /)  
+KA(:, 1,13, 7) = (/ &
+ & 0.11104E+04_JPRB,0.97748E+03_JPRB,0.84452E+03_JPRB,0.71152E+03_JPRB,0.58852E+03_JPRB, &
+ & 0.69093E+03_JPRB,0.81799E+03_JPRB,0.94612E+03_JPRB,0.10746E+04_JPRB /)  
+KA(:, 2,13, 7) = (/ &
+ & 0.11018E+04_JPRB,0.96998E+03_JPRB,0.83809E+03_JPRB,0.70616E+03_JPRB,0.58570E+03_JPRB, &
+ & 0.69123E+03_JPRB,0.81841E+03_JPRB,0.94664E+03_JPRB,0.10752E+04_JPRB /)  
+KA(:, 3,13, 7) = (/ &
+ & 0.10945E+04_JPRB,0.96352E+03_JPRB,0.83255E+03_JPRB,0.70155E+03_JPRB,0.58307E+03_JPRB, &
+ & 0.69128E+03_JPRB,0.81849E+03_JPRB,0.94675E+03_JPRB,0.10754E+04_JPRB /)  
+KA(:, 4,13, 7) = (/ &
+ & 0.10880E+04_JPRB,0.95790E+03_JPRB,0.82774E+03_JPRB,0.69753E+03_JPRB,0.58045E+03_JPRB, &
+ & 0.69107E+03_JPRB,0.81832E+03_JPRB,0.94657E+03_JPRB,0.10753E+04_JPRB /)  
+KA(:, 5,13, 7) = (/ &
+ & 0.10824E+04_JPRB,0.95297E+03_JPRB,0.82351E+03_JPRB,0.69401E+03_JPRB,0.57806E+03_JPRB, &
+ & 0.69061E+03_JPRB,0.81788E+03_JPRB,0.94614E+03_JPRB,0.10749E+04_JPRB /)  
+KA(:, 1, 1, 8) = (/ &
+ & 0.19433E+04_JPRB,0.17047E+04_JPRB,0.14661E+04_JPRB,0.12275E+04_JPRB,0.98902E+03_JPRB, &
+ & 0.75120E+03_JPRB,0.85754E+03_JPRB,0.98845E+03_JPRB,0.11206E+04_JPRB /)  
+KA(:, 2, 1, 8) = (/ &
+ & 0.18941E+04_JPRB,0.16616E+04_JPRB,0.14292E+04_JPRB,0.11968E+04_JPRB,0.96439E+03_JPRB, &
+ & 0.73548E+03_JPRB,0.85594E+03_JPRB,0.98707E+03_JPRB,0.11193E+04_JPRB /)  
+KA(:, 3, 1, 8) = (/ &
+ & 0.18499E+04_JPRB,0.16229E+04_JPRB,0.13960E+04_JPRB,0.11691E+04_JPRB,0.94229E+03_JPRB, &
+ & 0.72448E+03_JPRB,0.85413E+03_JPRB,0.98549E+03_JPRB,0.11177E+04_JPRB /)  
+KA(:, 4, 1, 8) = (/ &
+ & 0.18099E+04_JPRB,0.15880E+04_JPRB,0.13661E+04_JPRB,0.11442E+04_JPRB,0.92233E+03_JPRB, &
+ & 0.72225E+03_JPRB,0.85214E+03_JPRB,0.98373E+03_JPRB,0.11158E+04_JPRB /)  
+KA(:, 5, 1, 8) = (/ &
+ & 0.17737E+04_JPRB,0.15563E+04_JPRB,0.13389E+04_JPRB,0.11215E+04_JPRB,0.90421E+03_JPRB, &
+ & 0.72001E+03_JPRB,0.85005E+03_JPRB,0.98175E+03_JPRB,0.11138E+04_JPRB /)  
+KA(:, 1, 2, 8) = (/ &
+ & 0.17953E+04_JPRB,0.15751E+04_JPRB,0.13551E+04_JPRB,0.11350E+04_JPRB,0.91499E+03_JPRB, &
+ & 0.72569E+03_JPRB,0.85649E+03_JPRB,0.98821E+03_JPRB,0.11210E+04_JPRB /)  
+KA(:, 2, 2, 8) = (/ &
+ & 0.17530E+04_JPRB,0.15382E+04_JPRB,0.13234E+04_JPRB,0.11086E+04_JPRB,0.89388E+03_JPRB, &
+ & 0.72424E+03_JPRB,0.85509E+03_JPRB,0.98698E+03_JPRB,0.11198E+04_JPRB /)  
+KA(:, 3, 2, 8) = (/ &
+ & 0.17152E+04_JPRB,0.15051E+04_JPRB,0.12950E+04_JPRB,0.10850E+04_JPRB,0.87497E+03_JPRB, &
+ & 0.72267E+03_JPRB,0.85348E+03_JPRB,0.98553E+03_JPRB,0.11184E+04_JPRB /)  
+KA(:, 4, 2, 8) = (/ &
+ & 0.16811E+04_JPRB,0.14753E+04_JPRB,0.12695E+04_JPRB,0.10637E+04_JPRB,0.85793E+03_JPRB, &
+ & 0.72084E+03_JPRB,0.85163E+03_JPRB,0.98389E+03_JPRB,0.11166E+04_JPRB /)  
+KA(:, 5, 2, 8) = (/ &
+ & 0.16502E+04_JPRB,0.14483E+04_JPRB,0.12463E+04_JPRB,0.10444E+04_JPRB,0.84250E+03_JPRB, &
+ & 0.71877E+03_JPRB,0.84969E+03_JPRB,0.98204E+03_JPRB,0.11147E+04_JPRB /)  
+KA(:, 1, 3, 8) = (/ &
+ & 0.16788E+04_JPRB,0.14733E+04_JPRB,0.12678E+04_JPRB,0.10623E+04_JPRB,0.85679E+03_JPRB, &
+ & 0.72434E+03_JPRB,0.85588E+03_JPRB,0.98822E+03_JPRB,0.11216E+04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART5',1,ZHOOK_HANDLE)
+END SUBROUTINE PART5
+
+
+SUBROUTINE PART6
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART6',0,ZHOOK_HANDLE)
+
+
+KA(:, 2, 3, 8) = (/ &
+ & 0.16418E+04_JPRB,0.14409E+04_JPRB,0.12400E+04_JPRB,0.10391E+04_JPRB,0.83827E+03_JPRB, &
+ & 0.72306E+03_JPRB,0.85466E+03_JPRB,0.98716E+03_JPRB,0.11206E+04_JPRB /)  
+KA(:, 3, 3, 8) = (/ &
+ & 0.16087E+04_JPRB,0.14119E+04_JPRB,0.12152E+04_JPRB,0.10184E+04_JPRB,0.82172E+03_JPRB, &
+ & 0.72165E+03_JPRB,0.85327E+03_JPRB,0.98590E+03_JPRB,0.11193E+04_JPRB /)  
+KA(:, 4, 3, 8) = (/ &
+ & 0.15790E+04_JPRB,0.13859E+04_JPRB,0.11929E+04_JPRB,0.99988E+03_JPRB,0.80688E+03_JPRB, &
+ & 0.72007E+03_JPRB,0.85161E+03_JPRB,0.98438E+03_JPRB,0.11177E+04_JPRB /)  
+KA(:, 5, 3, 8) = (/ &
+ & 0.15522E+04_JPRB,0.13625E+04_JPRB,0.11728E+04_JPRB,0.98311E+03_JPRB,0.79349E+03_JPRB, &
+ & 0.71824E+03_JPRB,0.84982E+03_JPRB,0.98270E+03_JPRB,0.11159E+04_JPRB /)  
+KA(:, 1, 4, 8) = (/ &
+ & 0.15823E+04_JPRB,0.13888E+04_JPRB,0.11953E+04_JPRB,0.10019E+04_JPRB,0.80851E+03_JPRB, &
+ & 0.72326E+03_JPRB,0.85540E+03_JPRB,0.98823E+03_JPRB,0.11221E+04_JPRB /)  
+KA(:, 2, 4, 8) = (/ &
+ & 0.15495E+04_JPRB,0.13601E+04_JPRB,0.11708E+04_JPRB,0.98142E+03_JPRB,0.79213E+03_JPRB, &
+ & 0.72214E+03_JPRB,0.85436E+03_JPRB,0.98737E+03_JPRB,0.11213E+04_JPRB /)  
+KA(:, 3, 4, 8) = (/ &
+ & 0.15204E+04_JPRB,0.13346E+04_JPRB,0.11489E+04_JPRB,0.96322E+03_JPRB,0.77758E+03_JPRB, &
+ & 0.72091E+03_JPRB,0.85317E+03_JPRB,0.98628E+03_JPRB,0.11202E+04_JPRB /)  
+KA(:, 4, 4, 8) = (/ &
+ & 0.14943E+04_JPRB,0.13118E+04_JPRB,0.11294E+04_JPRB,0.94694E+03_JPRB,0.76455E+03_JPRB, &
+ & 0.71952E+03_JPRB,0.85175E+03_JPRB,0.98496E+03_JPRB,0.11188E+04_JPRB /)  
+KA(:, 5, 4, 8) = (/ &
+ & 0.14709E+04_JPRB,0.12913E+04_JPRB,0.11118E+04_JPRB,0.93229E+03_JPRB,0.75284E+03_JPRB, &
+ & 0.71792E+03_JPRB,0.85010E+03_JPRB,0.98342E+03_JPRB,0.11171E+04_JPRB /)  
+KA(:, 1, 5, 8) = (/ &
+ & 0.15002E+04_JPRB,0.13170E+04_JPRB,0.11338E+04_JPRB,0.95063E+03_JPRB,0.76749E+03_JPRB, &
+ & 0.72234E+03_JPRB,0.85495E+03_JPRB,0.98821E+03_JPRB,0.11224E+04_JPRB /)  
+KA(:, 2, 5, 8) = (/ &
+ & 0.14712E+04_JPRB,0.12916E+04_JPRB,0.11120E+04_JPRB,0.93250E+03_JPRB,0.75300E+03_JPRB, &
+ & 0.72139E+03_JPRB,0.85409E+03_JPRB,0.98753E+03_JPRB,0.11218E+04_JPRB /)  
+KA(:, 3, 5, 8) = (/ &
+ & 0.14456E+04_JPRB,0.12692E+04_JPRB,0.10928E+04_JPRB,0.91647E+03_JPRB,0.74017E+03_JPRB, &
+ & 0.72031E+03_JPRB,0.85307E+03_JPRB,0.98657E+03_JPRB,0.11209E+04_JPRB /)  
+KA(:, 4, 5, 8) = (/ &
+ & 0.14227E+04_JPRB,0.12492E+04_JPRB,0.10757E+04_JPRB,0.90219E+03_JPRB,0.72875E+03_JPRB, &
+ & 0.71909E+03_JPRB,0.85186E+03_JPRB,0.98546E+03_JPRB,0.11197E+04_JPRB /)  
+KA(:, 5, 5, 8) = (/ &
+ & 0.14022E+04_JPRB,0.12312E+04_JPRB,0.10603E+04_JPRB,0.88937E+03_JPRB,0.71851E+03_JPRB, &
+ & 0.71769E+03_JPRB,0.85037E+03_JPRB,0.98406E+03_JPRB,0.11182E+04_JPRB /)  
+KA(:, 1, 6, 8) = (/ &
+ & 0.14314E+04_JPRB,0.12568E+04_JPRB,0.10822E+04_JPRB,0.90763E+03_JPRB,0.73310E+03_JPRB, &
+ & 0.72155E+03_JPRB,0.85452E+03_JPRB,0.98813E+03_JPRB,0.11226E+04_JPRB /)  
+KA(:, 2, 6, 8) = (/ &
+ & 0.14056E+04_JPRB,0.12342E+04_JPRB,0.10628E+04_JPRB,0.89150E+03_JPRB,0.72020E+03_JPRB, &
+ & 0.72077E+03_JPRB,0.85386E+03_JPRB,0.98765E+03_JPRB,0.11222E+04_JPRB /)  
+KA(:, 3, 6, 8) = (/ &
+ & 0.13829E+04_JPRB,0.12143E+04_JPRB,0.10458E+04_JPRB,0.87730E+03_JPRB,0.70887E+03_JPRB, &
+ & 0.71986E+03_JPRB,0.85300E+03_JPRB,0.98688E+03_JPRB,0.11215E+04_JPRB /)  
+KA(:, 4, 6, 8) = (/ &
+ & 0.13627E+04_JPRB,0.11967E+04_JPRB,0.10307E+04_JPRB,0.86473E+03_JPRB,0.69880E+03_JPRB, &
+ & 0.71879E+03_JPRB,0.85197E+03_JPRB,0.98590E+03_JPRB,0.11205E+04_JPRB /)  
+KA(:, 5, 6, 8) = (/ &
+ & 0.13448E+04_JPRB,0.11810E+04_JPRB,0.10172E+04_JPRB,0.85348E+03_JPRB,0.68979E+03_JPRB, &
+ & 0.71757E+03_JPRB,0.85073E+03_JPRB,0.98469E+03_JPRB,0.11192E+04_JPRB /)  
+KA(:, 1, 7, 8) = (/ &
+ & 0.13728E+04_JPRB,0.12055E+04_JPRB,0.10383E+04_JPRB,0.87102E+03_JPRB,0.70382E+03_JPRB, &
+ & 0.72081E+03_JPRB,0.85410E+03_JPRB,0.98799E+03_JPRB,0.11227E+04_JPRB /)  
+KA(:, 2, 7, 8) = (/ &
+ & 0.13499E+04_JPRB,0.11854E+04_JPRB,0.10210E+04_JPRB,0.85666E+03_JPRB,0.69233E+03_JPRB, &
+ & 0.72022E+03_JPRB,0.85362E+03_JPRB,0.98768E+03_JPRB,0.11225E+04_JPRB /)  
+KA(:, 3, 7, 8) = (/ &
+ & 0.13297E+04_JPRB,0.11678E+04_JPRB,0.10059E+04_JPRB,0.84408E+03_JPRB,0.68228E+03_JPRB, &
+ & 0.71945E+03_JPRB,0.85293E+03_JPRB,0.98711E+03_JPRB,0.11220E+04_JPRB /)  
+KA(:, 4, 7, 8) = (/ &
+ & 0.13120E+04_JPRB,0.11523E+04_JPRB,0.99261E+03_JPRB,0.83298E+03_JPRB,0.67339E+03_JPRB, &
+ & 0.71854E+03_JPRB,0.85205E+03_JPRB,0.98632E+03_JPRB,0.11212E+04_JPRB /)  
+KA(:, 5, 7, 8) = (/ &
+ & 0.12962E+04_JPRB,0.11384E+04_JPRB,0.98077E+03_JPRB,0.82312E+03_JPRB,0.66550E+03_JPRB, &
+ & 0.71746E+03_JPRB,0.85098E+03_JPRB,0.98523E+03_JPRB,0.11200E+04_JPRB /)  
+KA(:, 1, 8, 8) = (/ &
+ & 0.13227E+04_JPRB,0.11617E+04_JPRB,0.10007E+04_JPRB,0.83971E+03_JPRB,0.67877E+03_JPRB, &
+ & 0.72007E+03_JPRB,0.85366E+03_JPRB,0.98779E+03_JPRB,0.11227E+04_JPRB /)  
+KA(:, 2, 8, 8) = (/ &
+ & 0.13022E+04_JPRB,0.11438E+04_JPRB,0.98533E+03_JPRB,0.82690E+03_JPRB,0.66854E+03_JPRB, &
+ & 0.71969E+03_JPRB,0.85334E+03_JPRB,0.98763E+03_JPRB,0.11227E+04_JPRB /)  
+KA(:, 3, 8, 8) = (/ &
+ & 0.12844E+04_JPRB,0.11282E+04_JPRB,0.97196E+03_JPRB,0.81577E+03_JPRB,0.65963E+03_JPRB, &
+ & 0.71908E+03_JPRB,0.85283E+03_JPRB,0.98717E+03_JPRB,0.11223E+04_JPRB /)  
+KA(:, 4, 8, 8) = (/ &
+ & 0.12688E+04_JPRB,0.11145E+04_JPRB,0.96023E+03_JPRB,0.80599E+03_JPRB,0.65182E+03_JPRB, &
+ & 0.71830E+03_JPRB,0.85210E+03_JPRB,0.98659E+03_JPRB,0.11217E+04_JPRB /)  
+KA(:, 5, 8, 8) = (/ &
+ & 0.12549E+04_JPRB,0.11024E+04_JPRB,0.94982E+03_JPRB,0.79733E+03_JPRB,0.64488E+03_JPRB, &
+ & 0.71736E+03_JPRB,0.85118E+03_JPRB,0.98569E+03_JPRB,0.11208E+04_JPRB /)  
+KA(:, 1, 9, 8) = (/ &
+ & 0.12800E+04_JPRB,0.11244E+04_JPRB,0.96868E+03_JPRB,0.81302E+03_JPRB,0.65744E+03_JPRB, &
+ & 0.71936E+03_JPRB,0.85323E+03_JPRB,0.98761E+03_JPRB,0.11226E+04_JPRB /)  
+KA(:, 2, 9, 8) = (/ &
+ & 0.12618E+04_JPRB,0.11084E+04_JPRB,0.95498E+03_JPRB,0.80161E+03_JPRB,0.64832E+03_JPRB, &
+ & 0.71916E+03_JPRB,0.85306E+03_JPRB,0.98751E+03_JPRB,0.11227E+04_JPRB /)  
+KA(:, 3, 9, 8) = (/ &
+ & 0.12460E+04_JPRB,0.10945E+04_JPRB,0.94313E+03_JPRB,0.79175E+03_JPRB,0.64042E+03_JPRB, &
+ & 0.71874E+03_JPRB,0.85269E+03_JPRB,0.98731E+03_JPRB,0.11226E+04_JPRB /)  
+KA(:, 4, 9, 8) = (/ &
+ & 0.12322E+04_JPRB,0.10825E+04_JPRB,0.93277E+03_JPRB,0.78311E+03_JPRB,0.63351E+03_JPRB, &
+ & 0.71809E+03_JPRB,0.85213E+03_JPRB,0.98681E+03_JPRB,0.11221E+04_JPRB /)  
+KA(:, 5, 9, 8) = (/ &
+ & 0.12200E+04_JPRB,0.10718E+04_JPRB,0.92365E+03_JPRB,0.77552E+03_JPRB,0.62743E+03_JPRB, &
+ & 0.71728E+03_JPRB,0.85134E+03_JPRB,0.98607E+03_JPRB,0.11214E+04_JPRB /)  
+KA(:, 1,10, 8) = (/ &
+ & 0.12423E+04_JPRB,0.10913E+04_JPRB,0.94034E+03_JPRB,0.78942E+03_JPRB,0.63856E+03_JPRB, &
+ & 0.71867E+03_JPRB,0.85279E+03_JPRB,0.98738E+03_JPRB,0.11225E+04_JPRB /)  
+KA(:, 2,10, 8) = (/ &
+ & 0.12262E+04_JPRB,0.10772E+04_JPRB,0.92827E+03_JPRB,0.77936E+03_JPRB,0.63052E+03_JPRB, &
+ & 0.71863E+03_JPRB,0.85274E+03_JPRB,0.98738E+03_JPRB,0.11227E+04_JPRB /)  
+KA(:, 3,10, 8) = (/ &
+ & 0.12123E+04_JPRB,0.10651E+04_JPRB,0.91788E+03_JPRB,0.77071E+03_JPRB,0.62359E+03_JPRB, &
+ & 0.71835E+03_JPRB,0.85251E+03_JPRB,0.98725E+03_JPRB,0.11227E+04_JPRB /)  
+KA(:, 4,10, 8) = (/ &
+ & 0.12002E+04_JPRB,0.10545E+04_JPRB,0.90884E+03_JPRB,0.76317E+03_JPRB,0.61756E+03_JPRB, &
+ & 0.71785E+03_JPRB,0.85203E+03_JPRB,0.98691E+03_JPRB,0.11224E+04_JPRB /)  
+KA(:, 5,10, 8) = (/ &
+ & 0.11897E+04_JPRB,0.10453E+04_JPRB,0.90090E+03_JPRB,0.75655E+03_JPRB,0.61227E+03_JPRB, &
+ & 0.71716E+03_JPRB,0.85141E+03_JPRB,0.98631E+03_JPRB,0.11218E+04_JPRB /)  
+KA(:, 1,11, 8) = (/ &
+ & 0.12033E+04_JPRB,0.10572E+04_JPRB,0.91110E+03_JPRB,0.76506E+03_JPRB,0.61908E+03_JPRB, &
+ & 0.71809E+03_JPRB,0.85242E+03_JPRB,0.98721E+03_JPRB,0.11225E+04_JPRB /)  
+KA(:, 2,11, 8) = (/ &
+ & 0.11901E+04_JPRB,0.10456E+04_JPRB,0.90123E+03_JPRB,0.75682E+03_JPRB,0.61248E+03_JPRB, &
+ & 0.71809E+03_JPRB,0.85240E+03_JPRB,0.98723E+03_JPRB,0.11226E+04_JPRB /)  
+KA(:, 3,11, 8) = (/ &
+ & 0.11788E+04_JPRB,0.10357E+04_JPRB,0.89271E+03_JPRB,0.74972E+03_JPRB,0.60692E+03_JPRB, &
+ & 0.71785E+03_JPRB,0.85217E+03_JPRB,0.98712E+03_JPRB,0.11227E+04_JPRB /)  
+KA(:, 4,11, 8) = (/ &
+ & 0.11689E+04_JPRB,0.10271E+04_JPRB,0.88529E+03_JPRB,0.74355E+03_JPRB,0.60253E+03_JPRB, &
+ & 0.71738E+03_JPRB,0.85177E+03_JPRB,0.98681E+03_JPRB,0.11224E+04_JPRB /)  
+KA(:, 5,11, 8) = (/ &
+ & 0.11602E+04_JPRB,0.10195E+04_JPRB,0.87880E+03_JPRB,0.73813E+03_JPRB,0.59855E+03_JPRB, &
+ & 0.71672E+03_JPRB,0.85114E+03_JPRB,0.98618E+03_JPRB,0.11218E+04_JPRB /)  
+KA(:, 1,12, 8) = (/ &
+ & 0.11713E+04_JPRB,0.10292E+04_JPRB,0.88712E+03_JPRB,0.74507E+03_JPRB,0.60379E+03_JPRB, &
+ & 0.71766E+03_JPRB,0.85212E+03_JPRB,0.98706E+03_JPRB,0.11225E+04_JPRB /)  
+KA(:, 2,12, 8) = (/ &
+ & 0.11605E+04_JPRB,0.10197E+04_JPRB,0.87902E+03_JPRB,0.73833E+03_JPRB,0.59891E+03_JPRB, &
+ & 0.71764E+03_JPRB,0.85212E+03_JPRB,0.98710E+03_JPRB,0.11227E+04_JPRB /)  
+KA(:, 3,12, 8) = (/ &
+ & 0.11512E+04_JPRB,0.10116E+04_JPRB,0.87205E+03_JPRB,0.73251E+03_JPRB,0.59502E+03_JPRB, &
+ & 0.71744E+03_JPRB,0.85192E+03_JPRB,0.98700E+03_JPRB,0.11227E+04_JPRB /)  
+KA(:, 4,12, 8) = (/ &
+ & 0.11431E+04_JPRB,0.10045E+04_JPRB,0.86598E+03_JPRB,0.72746E+03_JPRB,0.59151E+03_JPRB, &
+ & 0.71699E+03_JPRB,0.85153E+03_JPRB,0.98663E+03_JPRB,0.11224E+04_JPRB /)  
+KA(:, 5,12, 8) = (/ &
+ & 0.11360E+04_JPRB,0.99832E+03_JPRB,0.86067E+03_JPRB,0.72302E+03_JPRB,0.58868E+03_JPRB, &
+ & 0.71636E+03_JPRB,0.85092E+03_JPRB,0.98606E+03_JPRB,0.11218E+04_JPRB /)  
+KA(:, 1,13, 8) = (/ &
+ & 0.11451E+04_JPRB,0.10063E+04_JPRB,0.86748E+03_JPRB,0.72871E+03_JPRB,0.59258E+03_JPRB, &
+ & 0.71726E+03_JPRB,0.85187E+03_JPRB,0.98696E+03_JPRB,0.11225E+04_JPRB /)  
+KA(:, 2,13, 8) = (/ &
+ & 0.11363E+04_JPRB,0.99855E+03_JPRB,0.86085E+03_JPRB,0.72320E+03_JPRB,0.58896E+03_JPRB, &
+ & 0.71729E+03_JPRB,0.85183E+03_JPRB,0.98699E+03_JPRB,0.11227E+04_JPRB /)  
+KA(:, 3,13, 8) = (/ &
+ & 0.11287E+04_JPRB,0.99189E+03_JPRB,0.85515E+03_JPRB,0.71842E+03_JPRB,0.58585E+03_JPRB, &
+ & 0.71710E+03_JPRB,0.85169E+03_JPRB,0.98691E+03_JPRB,0.11227E+04_JPRB /)  
+KA(:, 4,13, 8) = (/ &
+ & 0.11220E+04_JPRB,0.98609E+03_JPRB,0.85017E+03_JPRB,0.71429E+03_JPRB,0.58380E+03_JPRB, &
+ & 0.71668E+03_JPRB,0.85133E+03_JPRB,0.98660E+03_JPRB,0.11224E+04_JPRB /)  
+KA(:, 5,13, 8) = (/ &
+ & 0.11162E+04_JPRB,0.98101E+03_JPRB,0.84582E+03_JPRB,0.71065E+03_JPRB,0.58234E+03_JPRB, &
+ & 0.71606E+03_JPRB,0.85074E+03_JPRB,0.98601E+03_JPRB,0.11218E+04_JPRB /)  
+KA(:, 1, 1, 9) = (/ &
+ & 0.19571E+04_JPRB,0.17167E+04_JPRB,0.14761E+04_JPRB,0.12357E+04_JPRB,0.99528E+03_JPRB, &
+ & 0.75488E+03_JPRB,0.87315E+03_JPRB,0.10086E+04_JPRB,0.11441E+04_JPRB /)  
+KA(:, 2, 1, 9) = (/ &
+ & 0.19076E+04_JPRB,0.16733E+04_JPRB,0.14390E+04_JPRB,0.12047E+04_JPRB,0.97044E+03_JPRB, &
+ & 0.73841E+03_JPRB,0.87146E+03_JPRB,0.10070E+04_JPRB,0.11425E+04_JPRB /)  
+KA(:, 3, 1, 9) = (/ &
+ & 0.18630E+04_JPRB,0.16343E+04_JPRB,0.14056E+04_JPRB,0.11769E+04_JPRB,0.94822E+03_JPRB, &
+ & 0.73460E+03_JPRB,0.86967E+03_JPRB,0.10052E+04_JPRB,0.11407E+04_JPRB /)  
+KA(:, 4, 1, 9) = (/ &
+ & 0.18229E+04_JPRB,0.15991E+04_JPRB,0.13754E+04_JPRB,0.11517E+04_JPRB,0.92811E+03_JPRB, &
+ & 0.73269E+03_JPRB,0.86788E+03_JPRB,0.10033E+04_JPRB,0.11387E+04_JPRB /)  
+KA(:, 5, 1, 9) = (/ &
+ & 0.17864E+04_JPRB,0.15672E+04_JPRB,0.13481E+04_JPRB,0.11289E+04_JPRB,0.90984E+03_JPRB, &
+ & 0.73091E+03_JPRB,0.86616E+03_JPRB,0.10016E+04_JPRB,0.11368E+04_JPRB /)  
+KA(:, 1, 2, 9) = (/ &
+ & 0.18080E+04_JPRB,0.15862E+04_JPRB,0.13643E+04_JPRB,0.11425E+04_JPRB,0.92072E+03_JPRB, &
+ & 0.73694E+03_JPRB,0.87246E+03_JPRB,0.10086E+04_JPRB,0.11448E+04_JPRB /)  
+KA(:, 2, 2, 9) = (/ &
+ & 0.17655E+04_JPRB,0.15491E+04_JPRB,0.13324E+04_JPRB,0.11159E+04_JPRB,0.89943E+03_JPRB, &
+ & 0.73525E+03_JPRB,0.87092E+03_JPRB,0.10070E+04_JPRB,0.11432E+04_JPRB /)  
+KA(:, 3, 2, 9) = (/ &
+ & 0.17274E+04_JPRB,0.15157E+04_JPRB,0.13039E+04_JPRB,0.10921E+04_JPRB,0.88039E+03_JPRB, &
+ & 0.73343E+03_JPRB,0.86922E+03_JPRB,0.10053E+04_JPRB,0.11415E+04_JPRB /)  
+KA(:, 4, 2, 9) = (/ &
+ & 0.16931E+04_JPRB,0.14856E+04_JPRB,0.12781E+04_JPRB,0.10706E+04_JPRB,0.86326E+03_JPRB, &
+ & 0.73166E+03_JPRB,0.86752E+03_JPRB,0.10036E+04_JPRB,0.11395E+04_JPRB /)  
+KA(:, 5, 2, 9) = (/ &
+ & 0.16621E+04_JPRB,0.14584E+04_JPRB,0.12549E+04_JPRB,0.10512E+04_JPRB,0.84768E+03_JPRB, &
+ & 0.73000E+03_JPRB,0.86583E+03_JPRB,0.10018E+04_JPRB,0.11376E+04_JPRB /)  
+KA(:, 1, 3, 9) = (/ &
+ & 0.16908E+04_JPRB,0.14837E+04_JPRB,0.12764E+04_JPRB,0.10692E+04_JPRB,0.86209E+03_JPRB, &
+ & 0.73591E+03_JPRB,0.87213E+03_JPRB,0.10088E+04_JPRB,0.11456E+04_JPRB /)  
+KA(:, 2, 3, 9) = (/ &
+ & 0.16535E+04_JPRB,0.14509E+04_JPRB,0.12484E+04_JPRB,0.10459E+04_JPRB,0.84339E+03_JPRB, &
+ & 0.73450E+03_JPRB,0.87080E+03_JPRB,0.10075E+04_JPRB,0.11442E+04_JPRB /)  
+KA(:, 3, 3, 9) = (/ &
+ & 0.16202E+04_JPRB,0.14218E+04_JPRB,0.12234E+04_JPRB,0.10251E+04_JPRB,0.82680E+03_JPRB, &
+ & 0.73291E+03_JPRB,0.86926E+03_JPRB,0.10059E+04_JPRB,0.11426E+04_JPRB /)  
+KA(:, 4, 3, 9) = (/ &
+ & 0.15902E+04_JPRB,0.13956E+04_JPRB,0.12011E+04_JPRB,0.10064E+04_JPRB,0.81183E+03_JPRB, &
+ & 0.73120E+03_JPRB,0.86761E+03_JPRB,0.10042E+04_JPRB,0.11407E+04_JPRB /)  
+KA(:, 5, 3, 9) = (/ &
+ & 0.15632E+04_JPRB,0.13720E+04_JPRB,0.11808E+04_JPRB,0.98952E+03_JPRB,0.79832E+03_JPRB, &
+ & 0.72957E+03_JPRB,0.86594E+03_JPRB,0.10024E+04_JPRB,0.11387E+04_JPRB /)  
+KA(:, 1, 4, 9) = (/ &
+ & 0.15935E+04_JPRB,0.13985E+04_JPRB,0.12035E+04_JPRB,0.10084E+04_JPRB,0.81344E+03_JPRB, &
+ & 0.73513E+03_JPRB,0.87195E+03_JPRB,0.10092E+04_JPRB,0.11463E+04_JPRB /)  
+KA(:, 2, 4, 9) = (/ &
+ & 0.15605E+04_JPRB,0.13697E+04_JPRB,0.11787E+04_JPRB,0.98782E+03_JPRB,0.79694E+03_JPRB, &
+ & 0.73394E+03_JPRB,0.87080E+03_JPRB,0.10079E+04_JPRB,0.11451E+04_JPRB /)  
+KA(:, 3, 4, 9) = (/ &
+ & 0.15313E+04_JPRB,0.13439E+04_JPRB,0.11567E+04_JPRB,0.96950E+03_JPRB,0.78229E+03_JPRB, &
+ & 0.73257E+03_JPRB,0.86942E+03_JPRB,0.10065E+04_JPRB,0.11436E+04_JPRB /)  
+KA(:, 4, 4, 9) = (/ &
+ & 0.15050E+04_JPRB,0.13210E+04_JPRB,0.11371E+04_JPRB,0.95308E+03_JPRB,0.76922E+03_JPRB, &
+ & 0.73104E+03_JPRB,0.86787E+03_JPRB,0.10049E+04_JPRB,0.11419E+04_JPRB /)  
+KA(:, 5, 4, 9) = (/ &
+ & 0.14814E+04_JPRB,0.13003E+04_JPRB,0.11193E+04_JPRB,0.93833E+03_JPRB,0.75745E+03_JPRB, &
+ & 0.72946E+03_JPRB,0.86622E+03_JPRB,0.10032E+04_JPRB,0.11400E+04_JPRB /)  
+KA(:, 1, 5, 9) = (/ &
+ & 0.15109E+04_JPRB,0.13262E+04_JPRB,0.11415E+04_JPRB,0.95685E+03_JPRB,0.77217E+03_JPRB, &
+ & 0.73443E+03_JPRB,0.87177E+03_JPRB,0.10094E+04_JPRB,0.11470E+04_JPRB /)  
+KA(:, 2, 5, 9) = (/ &
+ & 0.14817E+04_JPRB,0.13007E+04_JPRB,0.11196E+04_JPRB,0.93852E+03_JPRB,0.75755E+03_JPRB, &
+ & 0.73343E+03_JPRB,0.87078E+03_JPRB,0.10083E+04_JPRB,0.11459E+04_JPRB /)  
+KA(:, 3, 5, 9) = (/ &
+ & 0.14559E+04_JPRB,0.12780E+04_JPRB,0.11003E+04_JPRB,0.92240E+03_JPRB,0.74463E+03_JPRB, &
+ & 0.73229E+03_JPRB,0.86958E+03_JPRB,0.10071E+04_JPRB,0.11446E+04_JPRB /)  
+KA(:, 4, 5, 9) = (/ &
+ & 0.14329E+04_JPRB,0.12579E+04_JPRB,0.10829E+04_JPRB,0.90802E+03_JPRB,0.73310E+03_JPRB, &
+ & 0.73095E+03_JPRB,0.86817E+03_JPRB,0.10056E+04_JPRB,0.11430E+04_JPRB /)  
+KA(:, 5, 5, 9) = (/ &
+ & 0.14122E+04_JPRB,0.12398E+04_JPRB,0.10675E+04_JPRB,0.89511E+03_JPRB,0.72281E+03_JPRB, &
+ & 0.72946E+03_JPRB,0.86664E+03_JPRB,0.10039E+04_JPRB,0.11412E+04_JPRB /)  
+KA(:, 1, 6, 9) = (/ &
+ & 0.14417E+04_JPRB,0.12655E+04_JPRB,0.10896E+04_JPRB,0.91348E+03_JPRB,0.73747E+03_JPRB, &
+ & 0.73386E+03_JPRB,0.87165E+03_JPRB,0.10096E+04_JPRB,0.11475E+04_JPRB /)  
+KA(:, 2, 6, 9) = (/ &
+ & 0.14156E+04_JPRB,0.12429E+04_JPRB,0.10700E+04_JPRB,0.89725E+03_JPRB,0.72457E+03_JPRB, &
+ & 0.73304E+03_JPRB,0.87078E+03_JPRB,0.10087E+04_JPRB,0.11466E+04_JPRB /)  
+KA(:, 3, 6, 9) = (/ &
+ & 0.13928E+04_JPRB,0.12228E+04_JPRB,0.10529E+04_JPRB,0.88300E+03_JPRB,0.71308E+03_JPRB, &
+ & 0.73207E+03_JPRB,0.86977E+03_JPRB,0.10076E+04_JPRB,0.11455E+04_JPRB /)  
+KA(:, 4, 6, 9) = (/ &
+ & 0.13725E+04_JPRB,0.12051E+04_JPRB,0.10377E+04_JPRB,0.87029E+03_JPRB,0.70290E+03_JPRB, &
+ & 0.73093E+03_JPRB,0.86853E+03_JPRB,0.10063E+04_JPRB,0.11441E+04_JPRB /)  
+KA(:, 5, 6, 9) = (/ &
+ & 0.13544E+04_JPRB,0.11892E+04_JPRB,0.10241E+04_JPRB,0.85897E+03_JPRB,0.69390E+03_JPRB, &
+ & 0.72961E+03_JPRB,0.86706E+03_JPRB,0.10048E+04_JPRB,0.11424E+04_JPRB /)  
+KA(:, 1, 7, 9) = (/ &
+ & 0.13826E+04_JPRB,0.12140E+04_JPRB,0.10453E+04_JPRB,0.87664E+03_JPRB,0.70803E+03_JPRB, &
+ & 0.73339E+03_JPRB,0.87155E+03_JPRB,0.10098E+04_JPRB,0.11480E+04_JPRB /)  
+KA(:, 2, 7, 9) = (/ &
+ & 0.13594E+04_JPRB,0.11937E+04_JPRB,0.10279E+04_JPRB,0.86216E+03_JPRB,0.69645E+03_JPRB, &
+ & 0.73269E+03_JPRB,0.87079E+03_JPRB,0.10090E+04_JPRB,0.11472E+04_JPRB /)  
+KA(:, 3, 7, 9) = (/ &
+ & 0.13392E+04_JPRB,0.11759E+04_JPRB,0.10127E+04_JPRB,0.84953E+03_JPRB,0.68632E+03_JPRB, &
+ & 0.73188E+03_JPRB,0.86990E+03_JPRB,0.10081E+04_JPRB,0.11462E+04_JPRB /)  
+KA(:, 4, 7, 9) = (/ &
+ & 0.13213E+04_JPRB,0.11603E+04_JPRB,0.99928E+03_JPRB,0.83829E+03_JPRB,0.67737E+03_JPRB, &
+ & 0.73090E+03_JPRB,0.86884E+03_JPRB,0.10069E+04_JPRB,0.11450E+04_JPRB /)  
+KA(:, 5, 7, 9) = (/ &
+ & 0.13054E+04_JPRB,0.11464E+04_JPRB,0.98739E+03_JPRB,0.82837E+03_JPRB,0.66946E+03_JPRB, &
+ & 0.72975E+03_JPRB,0.86756E+03_JPRB,0.10055E+04_JPRB,0.11435E+04_JPRB /)  
+KA(:, 1, 8, 9) = (/ &
+ & 0.13322E+04_JPRB,0.11698E+04_JPRB,0.10074E+04_JPRB,0.84511E+03_JPRB,0.68280E+03_JPRB, &
+ & 0.73302E+03_JPRB,0.87145E+03_JPRB,0.10099E+04_JPRB,0.11483E+04_JPRB /)  
+KA(:, 2, 8, 9) = (/ &
+ & 0.13116E+04_JPRB,0.11517E+04_JPRB,0.99199E+03_JPRB,0.83221E+03_JPRB,0.67250E+03_JPRB, &
+ & 0.73244E+03_JPRB,0.87079E+03_JPRB,0.10093E+04_JPRB,0.11477E+04_JPRB /)  
+KA(:, 3, 8, 9) = (/ &
+ & 0.12937E+04_JPRB,0.11360E+04_JPRB,0.97848E+03_JPRB,0.82097E+03_JPRB,0.66349E+03_JPRB, &
+ & 0.73170E+03_JPRB,0.87002E+03_JPRB,0.10085E+04_JPRB,0.11469E+04_JPRB /)  
+KA(:, 4, 8, 9) = (/ &
+ & 0.12778E+04_JPRB,0.11223E+04_JPRB,0.96666E+03_JPRB,0.81113E+03_JPRB,0.65562E+03_JPRB, &
+ & 0.73087E+03_JPRB,0.86909E+03_JPRB,0.10075E+04_JPRB,0.11458E+04_JPRB /)  
+KA(:, 5, 8, 9) = (/ &
+ & 0.12639E+04_JPRB,0.11101E+04_JPRB,0.95620E+03_JPRB,0.80244E+03_JPRB,0.64865E+03_JPRB, &
+ & 0.72985E+03_JPRB,0.86796E+03_JPRB,0.10062E+04_JPRB,0.11444E+04_JPRB /)  
+KA(:, 1, 9, 9) = (/ &
+ & 0.12892E+04_JPRB,0.11322E+04_JPRB,0.97520E+03_JPRB,0.81821E+03_JPRB,0.66134E+03_JPRB, &
+ & 0.73274E+03_JPRB,0.87135E+03_JPRB,0.10099E+04_JPRB,0.11485E+04_JPRB /)  
+KA(:, 2, 9, 9) = (/ &
+ & 0.12708E+04_JPRB,0.11161E+04_JPRB,0.96140E+03_JPRB,0.80674E+03_JPRB,0.65213E+03_JPRB, &
+ & 0.73213E+03_JPRB,0.87079E+03_JPRB,0.10095E+04_JPRB,0.11481E+04_JPRB /)  
+KA(:, 3, 9, 9) = (/ &
+ & 0.12548E+04_JPRB,0.11022E+04_JPRB,0.94949E+03_JPRB,0.79681E+03_JPRB,0.64421E+03_JPRB, &
+ & 0.73152E+03_JPRB,0.87011E+03_JPRB,0.10088E+04_JPRB,0.11474E+04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART6',1,ZHOOK_HANDLE)
+END SUBROUTINE PART6
+
+
+SUBROUTINE PART7
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART7',0,ZHOOK_HANDLE)
+
+
+KA(:, 4, 9, 9) = (/ &
+ & 0.12410E+04_JPRB,0.10900E+04_JPRB,0.93905E+03_JPRB,0.78808E+03_JPRB,0.63726E+03_JPRB, &
+ & 0.73083E+03_JPRB,0.86928E+03_JPRB,0.10079E+04_JPRB,0.11464E+04_JPRB /)  
+KA(:, 5, 9, 9) = (/ &
+ & 0.12287E+04_JPRB,0.10793E+04_JPRB,0.92981E+03_JPRB,0.78042E+03_JPRB,0.63106E+03_JPRB, &
+ & 0.72995E+03_JPRB,0.86831E+03_JPRB,0.10068E+04_JPRB,0.11452E+04_JPRB /)  
+KA(:, 1,10, 9) = (/ &
+ & 0.12511E+04_JPRB,0.10989E+04_JPRB,0.94665E+03_JPRB,0.79449E+03_JPRB,0.64227E+03_JPRB, &
+ & 0.73248E+03_JPRB,0.87121E+03_JPRB,0.10099E+04_JPRB,0.11487E+04_JPRB /)  
+KA(:, 2,10, 9) = (/ &
+ & 0.12350E+04_JPRB,0.10848E+04_JPRB,0.93449E+03_JPRB,0.78435E+03_JPRB,0.63416E+03_JPRB, &
+ & 0.73188E+03_JPRB,0.87073E+03_JPRB,0.10095E+04_JPRB,0.11483E+04_JPRB /)  
+KA(:, 3,10, 9) = (/ &
+ & 0.12209E+04_JPRB,0.10725E+04_JPRB,0.92407E+03_JPRB,0.77565E+03_JPRB,0.62724E+03_JPRB, &
+ & 0.73132E+03_JPRB,0.87012E+03_JPRB,0.10091E+04_JPRB,0.11477E+04_JPRB /)  
+KA(:, 4,10, 9) = (/ &
+ & 0.12088E+04_JPRB,0.10618E+04_JPRB,0.91493E+03_JPRB,0.76801E+03_JPRB,0.62113E+03_JPRB, &
+ & 0.73072E+03_JPRB,0.86943E+03_JPRB,0.10082E+04_JPRB,0.11469E+04_JPRB /)  
+KA(:, 5,10, 9) = (/ &
+ & 0.11981E+04_JPRB,0.10526E+04_JPRB,0.90691E+03_JPRB,0.76134E+03_JPRB,0.61583E+03_JPRB, &
+ & 0.72997E+03_JPRB,0.86853E+03_JPRB,0.10072E+04_JPRB,0.11458E+04_JPRB /)  
+KA(:, 1,11, 9) = (/ &
+ & 0.12119E+04_JPRB,0.10646E+04_JPRB,0.91723E+03_JPRB,0.76995E+03_JPRB,0.62265E+03_JPRB, &
+ & 0.73201E+03_JPRB,0.87093E+03_JPRB,0.10098E+04_JPRB,0.11487E+04_JPRB /)  
+KA(:, 2,11, 9) = (/ &
+ & 0.11986E+04_JPRB,0.10529E+04_JPRB,0.90727E+03_JPRB,0.76161E+03_JPRB,0.61603E+03_JPRB, &
+ & 0.73147E+03_JPRB,0.87046E+03_JPRB,0.10094E+04_JPRB,0.11483E+04_JPRB /)  
+KA(:, 3,11, 9) = (/ &
+ & 0.11871E+04_JPRB,0.10429E+04_JPRB,0.89865E+03_JPRB,0.75449E+03_JPRB,0.61031E+03_JPRB, &
+ & 0.73094E+03_JPRB,0.86988E+03_JPRB,0.10088E+04_JPRB,0.11477E+04_JPRB /)  
+KA(:, 4,11, 9) = (/ &
+ & 0.11772E+04_JPRB,0.10342E+04_JPRB,0.89122E+03_JPRB,0.74824E+03_JPRB,0.60537E+03_JPRB, &
+ & 0.73035E+03_JPRB,0.86918E+03_JPRB,0.10081E+04_JPRB,0.11469E+04_JPRB /)  
+KA(:, 5,11, 9) = (/ &
+ & 0.11684E+04_JPRB,0.10265E+04_JPRB,0.88467E+03_JPRB,0.74278E+03_JPRB,0.60127E+03_JPRB, &
+ & 0.72963E+03_JPRB,0.86831E+03_JPRB,0.10071E+04_JPRB,0.11458E+04_JPRB /)  
+KA(:, 1,12, 9) = (/ &
+ & 0.11796E+04_JPRB,0.10363E+04_JPRB,0.89308E+03_JPRB,0.74980E+03_JPRB,0.60664E+03_JPRB, &
+ & 0.73158E+03_JPRB,0.87066E+03_JPRB,0.10097E+04_JPRB,0.11487E+04_JPRB /)  
+KA(:, 2,12, 9) = (/ &
+ & 0.11688E+04_JPRB,0.10268E+04_JPRB,0.88492E+03_JPRB,0.74297E+03_JPRB,0.60173E+03_JPRB, &
+ & 0.73111E+03_JPRB,0.87023E+03_JPRB,0.10093E+04_JPRB,0.11483E+04_JPRB /)  
+KA(:, 3,12, 9) = (/ &
+ & 0.11594E+04_JPRB,0.10186E+04_JPRB,0.87787E+03_JPRB,0.73715E+03_JPRB,0.59711E+03_JPRB, &
+ & 0.73061E+03_JPRB,0.86968E+03_JPRB,0.10088E+04_JPRB,0.11478E+04_JPRB /)  
+KA(:, 4,12, 9) = (/ &
+ & 0.11512E+04_JPRB,0.10115E+04_JPRB,0.87180E+03_JPRB,0.73203E+03_JPRB,0.59373E+03_JPRB, &
+ & 0.73004E+03_JPRB,0.86900E+03_JPRB,0.10080E+04_JPRB,0.11469E+04_JPRB /)  
+KA(:, 5,12, 9) = (/ &
+ & 0.11441E+04_JPRB,0.10053E+04_JPRB,0.86640E+03_JPRB,0.72756E+03_JPRB,0.59149E+03_JPRB, &
+ & 0.72934E+03_JPRB,0.86813E+03_JPRB,0.10070E+04_JPRB,0.11458E+04_JPRB /)  
+KA(:, 1,13, 9) = (/ &
+ & 0.11533E+04_JPRB,0.10132E+04_JPRB,0.87330E+03_JPRB,0.73334E+03_JPRB,0.59476E+03_JPRB, &
+ & 0.73130E+03_JPRB,0.87046E+03_JPRB,0.10096E+04_JPRB,0.11487E+04_JPRB /)  
+KA(:, 2,13, 9) = (/ &
+ & 0.11444E+04_JPRB,0.10055E+04_JPRB,0.86659E+03_JPRB,0.72770E+03_JPRB,0.59240E+03_JPRB, &
+ & 0.73084E+03_JPRB,0.87005E+03_JPRB,0.10092E+04_JPRB,0.11483E+04_JPRB /)  
+KA(:, 3,13, 9) = (/ &
+ & 0.11367E+04_JPRB,0.99882E+03_JPRB,0.86084E+03_JPRB,0.72297E+03_JPRB,0.59186E+03_JPRB, &
+ & 0.73036E+03_JPRB,0.86950E+03_JPRB,0.10087E+04_JPRB,0.11478E+04_JPRB /)  
+KA(:, 4,13, 9) = (/ &
+ & 0.11300E+04_JPRB,0.99294E+03_JPRB,0.85585E+03_JPRB,0.71880E+03_JPRB,0.59143E+03_JPRB, &
+ & 0.72979E+03_JPRB,0.86883E+03_JPRB,0.10079E+04_JPRB,0.11469E+04_JPRB /)  
+KA(:, 5,13, 9) = (/ &
+ & 0.11242E+04_JPRB,0.98788E+03_JPRB,0.85146E+03_JPRB,0.71512E+03_JPRB,0.59082E+03_JPRB, &
+ & 0.72910E+03_JPRB,0.86797E+03_JPRB,0.10069E+04_JPRB,0.11459E+04_JPRB /)  
+KA(:, 1, 1,10) = (/ &
+ & 0.19609E+04_JPRB,0.17196E+04_JPRB,0.14787E+04_JPRB,0.12373E+04_JPRB,0.99636E+03_JPRB, &
+ & 0.75577E+03_JPRB,0.88158E+03_JPRB,0.10175E+04_JPRB,0.11538E+04_JPRB /)  
+KA(:, 2, 1,10) = (/ &
+ & 0.19102E+04_JPRB,0.16765E+04_JPRB,0.14403E+04_JPRB,0.12063E+04_JPRB,0.97232E+03_JPRB, &
+ & 0.74406E+03_JPRB,0.87986E+03_JPRB,0.10152E+04_JPRB,0.11513E+04_JPRB /)  
+KA(:, 3, 1,10) = (/ &
+ & 0.18658E+04_JPRB,0.16364E+04_JPRB,0.14075E+04_JPRB,0.11783E+04_JPRB,0.94916E+03_JPRB, &
+ & 0.74249E+03_JPRB,0.87815E+03_JPRB,0.10135E+04_JPRB,0.11491E+04_JPRB /)  
+KA(:, 4, 1,10) = (/ &
+ & 0.18250E+04_JPRB,0.16014E+04_JPRB,0.13778E+04_JPRB,0.11533E+04_JPRB,0.92945E+03_JPRB, &
+ & 0.74050E+03_JPRB,0.87640E+03_JPRB,0.10114E+04_JPRB,0.11477E+04_JPRB /)  
+KA(:, 5, 1,10) = (/ &
+ & 0.17888E+04_JPRB,0.15692E+04_JPRB,0.13504E+04_JPRB,0.11313E+04_JPRB,0.91134E+03_JPRB, &
+ & 0.73837E+03_JPRB,0.87432E+03_JPRB,0.10096E+04_JPRB,0.11467E+04_JPRB /)  
+KA(:, 1, 2,10) = (/ &
+ & 0.18108E+04_JPRB,0.15879E+04_JPRB,0.13673E+04_JPRB,0.11437E+04_JPRB,0.92213E+03_JPRB, &
+ & 0.74428E+03_JPRB,0.88077E+03_JPRB,0.10175E+04_JPRB,0.11547E+04_JPRB /)  
+KA(:, 2, 2,10) = (/ &
+ & 0.17684E+04_JPRB,0.15508E+04_JPRB,0.13352E+04_JPRB,0.11178E+04_JPRB,0.90099E+03_JPRB, &
+ & 0.74265E+03_JPRB,0.87920E+03_JPRB,0.10158E+04_JPRB,0.11521E+04_JPRB /)  
+KA(:, 3, 2,10) = (/ &
+ & 0.17293E+04_JPRB,0.15183E+04_JPRB,0.13063E+04_JPRB,0.10931E+04_JPRB,0.88199E+03_JPRB, &
+ & 0.74117E+03_JPRB,0.87755E+03_JPRB,0.10136E+04_JPRB,0.11500E+04_JPRB /)  
+KA(:, 4, 2,10) = (/ &
+ & 0.16960E+04_JPRB,0.14887E+04_JPRB,0.12799E+04_JPRB,0.10727E+04_JPRB,0.86433E+03_JPRB, &
+ & 0.73957E+03_JPRB,0.87577E+03_JPRB,0.10116E+04_JPRB,0.11482E+04_JPRB /)  
+KA(:, 5, 2,10) = (/ &
+ & 0.16637E+04_JPRB,0.14607E+04_JPRB,0.12562E+04_JPRB,0.10527E+04_JPRB,0.84877E+03_JPRB, &
+ & 0.73748E+03_JPRB,0.87409E+03_JPRB,0.10096E+04_JPRB,0.11470E+04_JPRB /)  
+KA(:, 1, 3,10) = (/ &
+ & 0.16939E+04_JPRB,0.14847E+04_JPRB,0.12786E+04_JPRB,0.10705E+04_JPRB,0.86372E+03_JPRB, &
+ & 0.74343E+03_JPRB,0.88064E+03_JPRB,0.10178E+04_JPRB,0.11559E+04_JPRB /)  
+KA(:, 2, 3,10) = (/ &
+ & 0.16557E+04_JPRB,0.14542E+04_JPRB,0.12503E+04_JPRB,0.10478E+04_JPRB,0.84533E+03_JPRB, &
+ & 0.74182E+03_JPRB,0.87906E+03_JPRB,0.10163E+04_JPRB,0.11537E+04_JPRB /)  
+KA(:, 3, 3,10) = (/ &
+ & 0.16218E+04_JPRB,0.14239E+04_JPRB,0.12249E+04_JPRB,0.10266E+04_JPRB,0.82819E+03_JPRB, &
+ & 0.74031E+03_JPRB,0.87730E+03_JPRB,0.10137E+04_JPRB,0.11513E+04_JPRB /)  
+KA(:, 4, 3,10) = (/ &
+ & 0.15929E+04_JPRB,0.13992E+04_JPRB,0.12027E+04_JPRB,0.10077E+04_JPRB,0.81299E+03_JPRB, &
+ & 0.73896E+03_JPRB,0.87590E+03_JPRB,0.10123E+04_JPRB,0.11493E+04_JPRB /)  
+KA(:, 5, 3,10) = (/ &
+ & 0.15654E+04_JPRB,0.13740E+04_JPRB,0.11824E+04_JPRB,0.99136E+03_JPRB,0.79933E+03_JPRB, &
+ & 0.73740E+03_JPRB,0.87406E+03_JPRB,0.10104E+04_JPRB,0.11477E+04_JPRB /)  
+KA(:, 1, 4,10) = (/ &
+ & 0.15959E+04_JPRB,0.14010E+04_JPRB,0.12054E+04_JPRB,0.10100E+04_JPRB,0.81522E+03_JPRB, &
+ & 0.74271E+03_JPRB,0.88040E+03_JPRB,0.10180E+04_JPRB,0.11570E+04_JPRB /)  
+KA(:, 2, 4,10) = (/ &
+ & 0.15637E+04_JPRB,0.13710E+04_JPRB,0.11804E+04_JPRB,0.98920E+03_JPRB,0.79803E+03_JPRB, &
+ & 0.74139E+03_JPRB,0.87903E+03_JPRB,0.10168E+04_JPRB,0.11552E+04_JPRB /)  
+KA(:, 3, 4,10) = (/ &
+ & 0.15330E+04_JPRB,0.13459E+04_JPRB,0.11594E+04_JPRB,0.97120E+03_JPRB,0.78314E+03_JPRB, &
+ & 0.74000E+03_JPRB,0.87753E+03_JPRB,0.10151E+04_JPRB,0.11528E+04_JPRB /)  
+KA(:, 4, 4,10) = (/ &
+ & 0.15077E+04_JPRB,0.13229E+04_JPRB,0.11386E+04_JPRB,0.95486E+03_JPRB,0.77029E+03_JPRB, &
+ & 0.73854E+03_JPRB,0.87600E+03_JPRB,0.10131E+04_JPRB,0.11506E+04_JPRB /)  
+KA(:, 5, 4,10) = (/ &
+ & 0.14835E+04_JPRB,0.13025E+04_JPRB,0.11209E+04_JPRB,0.94000E+03_JPRB,0.75786E+03_JPRB, &
+ & 0.73717E+03_JPRB,0.87438E+03_JPRB,0.10111E+04_JPRB,0.11486E+04_JPRB /)  
+KA(:, 1, 5,10) = (/ &
+ & 0.15126E+04_JPRB,0.13285E+04_JPRB,0.11431E+04_JPRB,0.95745E+03_JPRB,0.77284E+03_JPRB, &
+ & 0.74220E+03_JPRB,0.88024E+03_JPRB,0.10187E+04_JPRB,0.11578E+04_JPRB /)  
+KA(:, 2, 5,10) = (/ &
+ & 0.14829E+04_JPRB,0.13024E+04_JPRB,0.11209E+04_JPRB,0.94020E+03_JPRB,0.75863E+03_JPRB, &
+ & 0.74099E+03_JPRB,0.87909E+03_JPRB,0.10174E+04_JPRB,0.11564E+04_JPRB /)  
+KA(:, 3, 5,10) = (/ &
+ & 0.14582E+04_JPRB,0.12806E+04_JPRB,0.11014E+04_JPRB,0.92377E+03_JPRB,0.74596E+03_JPRB, &
+ & 0.73960E+03_JPRB,0.87772E+03_JPRB,0.10159E+04_JPRB,0.11544E+04_JPRB /)  
+KA(:, 4, 5,10) = (/ &
+ & 0.14345E+04_JPRB,0.12594E+04_JPRB,0.10847E+04_JPRB,0.90887E+03_JPRB,0.73410E+03_JPRB, &
+ & 0.73828E+03_JPRB,0.87622E+03_JPRB,0.10139E+04_JPRB,0.11518E+04_JPRB /)  
+KA(:, 5, 5,10) = (/ &
+ & 0.14140E+04_JPRB,0.12418E+04_JPRB,0.10683E+04_JPRB,0.89661E+03_JPRB,0.72364E+03_JPRB, &
+ & 0.73696E+03_JPRB,0.87469E+03_JPRB,0.10119E+04_JPRB,0.11501E+04_JPRB /)  
+KA(:, 1, 6,10) = (/ &
+ & 0.14435E+04_JPRB,0.12676E+04_JPRB,0.10914E+04_JPRB,0.91493E+03_JPRB,0.73889E+03_JPRB, &
+ & 0.74179E+03_JPRB,0.88024E+03_JPRB,0.10190E+04_JPRB,0.11586E+04_JPRB /)  
+KA(:, 2, 6,10) = (/ &
+ & 0.14184E+04_JPRB,0.12443E+04_JPRB,0.10722E+04_JPRB,0.89834E+03_JPRB,0.72535E+03_JPRB, &
+ & 0.74069E+03_JPRB,0.87922E+03_JPRB,0.10178E+04_JPRB,0.11574E+04_JPRB /)  
+KA(:, 3, 6,10) = (/ &
+ & 0.13949E+04_JPRB,0.12245E+04_JPRB,0.10548E+04_JPRB,0.88411E+03_JPRB,0.71441E+03_JPRB, &
+ & 0.73951E+03_JPRB,0.87792E+03_JPRB,0.10164E+04_JPRB,0.11554E+04_JPRB /)  
+KA(:, 4, 6,10) = (/ &
+ & 0.13745E+04_JPRB,0.12070E+04_JPRB,0.10388E+04_JPRB,0.87157E+03_JPRB,0.70381E+03_JPRB, &
+ & 0.73817E+03_JPRB,0.87654E+03_JPRB,0.10150E+04_JPRB,0.11533E+04_JPRB /)  
+KA(:, 5, 6,10) = (/ &
+ & 0.13558E+04_JPRB,0.11909E+04_JPRB,0.10253E+04_JPRB,0.86039E+03_JPRB,0.69505E+03_JPRB, &
+ & 0.73669E+03_JPRB,0.87508E+03_JPRB,0.10128E+04_JPRB,0.11510E+04_JPRB /)  
+KA(:, 1, 7,10) = (/ &
+ & 0.13849E+04_JPRB,0.12154E+04_JPRB,0.10465E+04_JPRB,0.87809E+03_JPRB,0.70922E+03_JPRB, &
+ & 0.74150E+03_JPRB,0.88017E+03_JPRB,0.10197E+04_JPRB,0.11599E+04_JPRB /)  
+KA(:, 2, 7,10) = (/ &
+ & 0.13622E+04_JPRB,0.11954E+04_JPRB,0.10296E+04_JPRB,0.86328E+03_JPRB,0.69750E+03_JPRB, &
+ & 0.74031E+03_JPRB,0.87926E+03_JPRB,0.10184E+04_JPRB,0.11581E+04_JPRB /)  
+KA(:, 3, 7,10) = (/ &
+ & 0.13407E+04_JPRB,0.11775E+04_JPRB,0.10144E+04_JPRB,0.85098E+03_JPRB,0.68710E+03_JPRB, &
+ & 0.73933E+03_JPRB,0.87824E+03_JPRB,0.10171E+04_JPRB,0.11568E+04_JPRB /)  
+KA(:, 4, 7,10) = (/ &
+ & 0.13234E+04_JPRB,0.11620E+04_JPRB,0.10006E+04_JPRB,0.83940E+03_JPRB,0.67808E+03_JPRB, &
+ & 0.73818E+03_JPRB,0.87693E+03_JPRB,0.10157E+04_JPRB,0.11549E+04_JPRB /)  
+KA(:, 5, 7,10) = (/ &
+ & 0.13077E+04_JPRB,0.11481E+04_JPRB,0.98850E+03_JPRB,0.82952E+03_JPRB,0.66976E+03_JPRB, &
+ & 0.73685E+03_JPRB,0.87533E+03_JPRB,0.10140E+04_JPRB,0.11525E+04_JPRB /)  
+KA(:, 1, 8,10) = (/ &
+ & 0.13336E+04_JPRB,0.11711E+04_JPRB,0.10088E+04_JPRB,0.84626E+03_JPRB,0.68382E+03_JPRB, &
+ & 0.74131E+03_JPRB,0.88025E+03_JPRB,0.10205E+04_JPRB,0.11609E+04_JPRB /)  
+KA(:, 2, 8,10) = (/ &
+ & 0.13133E+04_JPRB,0.11535E+04_JPRB,0.99382E+03_JPRB,0.83328E+03_JPRB,0.67355E+03_JPRB, &
+ & 0.73954E+03_JPRB,0.87931E+03_JPRB,0.10187E+04_JPRB,0.11591E+04_JPRB /)  
+KA(:, 3, 8,10) = (/ &
+ & 0.12952E+04_JPRB,0.11377E+04_JPRB,0.97980E+03_JPRB,0.82257E+03_JPRB,0.66450E+03_JPRB, &
+ & 0.73910E+03_JPRB,0.87831E+03_JPRB,0.10177E+04_JPRB,0.11576E+04_JPRB /)  
+KA(:, 4, 8,10) = (/ &
+ & 0.12798E+04_JPRB,0.11238E+04_JPRB,0.96848E+03_JPRB,0.81189E+03_JPRB,0.65672E+03_JPRB, &
+ & 0.73820E+03_JPRB,0.87729E+03_JPRB,0.10162E+04_JPRB,0.11560E+04_JPRB /)  
+KA(:, 5, 8,10) = (/ &
+ & 0.12652E+04_JPRB,0.11115E+04_JPRB,0.95739E+03_JPRB,0.80373E+03_JPRB,0.64938E+03_JPRB, &
+ & 0.73712E+03_JPRB,0.87584E+03_JPRB,0.10149E+04_JPRB,0.11541E+04_JPRB /)  
+KA(:, 1, 9,10) = (/ &
+ & 0.12921E+04_JPRB,0.11338E+04_JPRB,0.97649E+03_JPRB,0.81965E+03_JPRB,0.66193E+03_JPRB, &
+ & 0.74117E+03_JPRB,0.88056E+03_JPRB,0.10212E+04_JPRB,0.11621E+04_JPRB /)  
+KA(:, 2, 9,10) = (/ &
+ & 0.12725E+04_JPRB,0.11175E+04_JPRB,0.96294E+03_JPRB,0.80792E+03_JPRB,0.65314E+03_JPRB, &
+ & 0.74018E+03_JPRB,0.87944E+03_JPRB,0.10196E+04_JPRB,0.11602E+04_JPRB /)  
+KA(:, 3, 9,10) = (/ &
+ & 0.12569E+04_JPRB,0.11032E+04_JPRB,0.95038E+03_JPRB,0.79825E+03_JPRB,0.64471E+03_JPRB, &
+ & 0.73910E+03_JPRB,0.87852E+03_JPRB,0.10181E+04_JPRB,0.11585E+04_JPRB /)  
+KA(:, 4, 9,10) = (/ &
+ & 0.12428E+04_JPRB,0.10914E+04_JPRB,0.94028E+03_JPRB,0.78940E+03_JPRB,0.63769E+03_JPRB, &
+ & 0.73816E+03_JPRB,0.87758E+03_JPRB,0.10170E+04_JPRB,0.11569E+04_JPRB /)  
+KA(:, 5, 9,10) = (/ &
+ & 0.12310E+04_JPRB,0.10815E+04_JPRB,0.93149E+03_JPRB,0.78151E+03_JPRB,0.63218E+03_JPRB, &
+ & 0.73726E+03_JPRB,0.87637E+03_JPRB,0.10156E+04_JPRB,0.11553E+04_JPRB /)  
+KA(:, 1,10,10) = (/ &
+ & 0.12531E+04_JPRB,0.11009E+04_JPRB,0.94808E+03_JPRB,0.79569E+03_JPRB,0.64353E+03_JPRB, &
+ & 0.74092E+03_JPRB,0.88101E+03_JPRB,0.10222E+04_JPRB,0.11631E+04_JPRB /)  
+KA(:, 2,10,10) = (/ &
+ & 0.12357E+04_JPRB,0.10861E+04_JPRB,0.93599E+03_JPRB,0.78490E+03_JPRB,0.63564E+03_JPRB, &
+ & 0.74008E+03_JPRB,0.87961E+03_JPRB,0.10203E+04_JPRB,0.11613E+04_JPRB /)  
+KA(:, 3,10,10) = (/ &
+ & 0.12227E+04_JPRB,0.10738E+04_JPRB,0.92501E+03_JPRB,0.77680E+03_JPRB,0.62842E+03_JPRB, &
+ & 0.73914E+03_JPRB,0.87860E+03_JPRB,0.10179E+04_JPRB,0.11592E+04_JPRB /)  
+KA(:, 4,10,10) = (/ &
+ & 0.12109E+04_JPRB,0.10632E+04_JPRB,0.91605E+03_JPRB,0.76920E+03_JPRB,0.62177E+03_JPRB, &
+ & 0.73819E+03_JPRB,0.87758E+03_JPRB,0.10174E+04_JPRB,0.11577E+04_JPRB /)  
+KA(:, 5,10,10) = (/ &
+ & 0.11998E+04_JPRB,0.10537E+04_JPRB,0.90813E+03_JPRB,0.76232E+03_JPRB,0.61616E+03_JPRB, &
+ & 0.73732E+03_JPRB,0.87676E+03_JPRB,0.10162E+04_JPRB,0.11563E+04_JPRB /)  
+KA(:, 1,11,10) = (/ &
+ & 0.12137E+04_JPRB,0.10654E+04_JPRB,0.91884E+03_JPRB,0.77105E+03_JPRB,0.62358E+03_JPRB, &
+ & 0.74042E+03_JPRB,0.88057E+03_JPRB,0.10221E+04_JPRB,0.11630E+04_JPRB /)  
+KA(:, 2,11,10) = (/ &
+ & 0.11999E+04_JPRB,0.10545E+04_JPRB,0.90854E+03_JPRB,0.76253E+03_JPRB,0.61715E+03_JPRB, &
+ & 0.73961E+03_JPRB,0.87932E+03_JPRB,0.10201E+04_JPRB,0.11611E+04_JPRB /)  
+KA(:, 3,11,10) = (/ &
+ & 0.11890E+04_JPRB,0.10445E+04_JPRB,0.90019E+03_JPRB,0.75537E+03_JPRB,0.61109E+03_JPRB, &
+ & 0.73864E+03_JPRB,0.87832E+03_JPRB,0.10186E+04_JPRB,0.11592E+04_JPRB /)  
+KA(:, 4,11,10) = (/ &
+ & 0.11789E+04_JPRB,0.10359E+04_JPRB,0.89280E+03_JPRB,0.74928E+03_JPRB,0.60622E+03_JPRB, &
+ & 0.73779E+03_JPRB,0.87747E+03_JPRB,0.10172E+04_JPRB,0.11577E+04_JPRB /)  
+KA(:, 5,11,10) = (/ &
+ & 0.11709E+04_JPRB,0.10287E+04_JPRB,0.88607E+03_JPRB,0.74401E+03_JPRB,0.60247E+03_JPRB, &
+ & 0.73688E+03_JPRB,0.87644E+03_JPRB,0.10160E+04_JPRB,0.11563E+04_JPRB /)  
+KA(:, 1,12,10) = (/ &
+ & 0.11820E+04_JPRB,0.10383E+04_JPRB,0.89456E+03_JPRB,0.75081E+03_JPRB,0.60714E+03_JPRB, &
+ & 0.74001E+03_JPRB,0.88049E+03_JPRB,0.10220E+04_JPRB,0.11631E+04_JPRB /)  
+KA(:, 2,12,10) = (/ &
+ & 0.11713E+04_JPRB,0.10290E+04_JPRB,0.88623E+03_JPRB,0.74407E+03_JPRB,0.60058E+03_JPRB, &
+ & 0.73921E+03_JPRB,0.87901E+03_JPRB,0.10201E+04_JPRB,0.11611E+04_JPRB /)  
+KA(:, 3,12,10) = (/ &
+ & 0.11605E+04_JPRB,0.10200E+04_JPRB,0.87951E+03_JPRB,0.73788E+03_JPRB,0.59769E+03_JPRB, &
+ & 0.73835E+03_JPRB,0.87808E+03_JPRB,0.10182E+04_JPRB,0.11591E+04_JPRB /)  
+KA(:, 4,12,10) = (/ &
+ & 0.11533E+04_JPRB,0.10132E+04_JPRB,0.87284E+03_JPRB,0.73305E+03_JPRB,0.59795E+03_JPRB, &
+ & 0.73753E+03_JPRB,0.87718E+03_JPRB,0.10171E+04_JPRB,0.11577E+04_JPRB /)  
+KA(:, 5,12,10) = (/ &
+ & 0.11467E+04_JPRB,0.10071E+04_JPRB,0.86739E+03_JPRB,0.72890E+03_JPRB,0.59711E+03_JPRB, &
+ & 0.73664E+03_JPRB,0.87623E+03_JPRB,0.10159E+04_JPRB,0.11563E+04_JPRB /)  
+KA(:, 1,13,10) = (/ &
+ & 0.11553E+04_JPRB,0.10149E+04_JPRB,0.87419E+03_JPRB,0.73470E+03_JPRB,0.59975E+03_JPRB, &
+ & 0.73968E+03_JPRB,0.88029E+03_JPRB,0.10219E+04_JPRB,0.11630E+04_JPRB /)  
+KA(:, 2,13,10) = (/ &
+ & 0.11455E+04_JPRB,0.10072E+04_JPRB,0.86782E+03_JPRB,0.72873E+03_JPRB,0.59921E+03_JPRB, &
+ & 0.73889E+03_JPRB,0.87889E+03_JPRB,0.10200E+04_JPRB,0.11611E+04_JPRB /)  
+KA(:, 3,13,10) = (/ &
+ & 0.11380E+04_JPRB,0.10000E+04_JPRB,0.86190E+03_JPRB,0.72452E+03_JPRB,0.59831E+03_JPRB, &
+ & 0.73799E+03_JPRB,0.87789E+03_JPRB,0.10182E+04_JPRB,0.11592E+04_JPRB /)  
+KA(:, 4,13,10) = (/ &
+ & 0.11318E+04_JPRB,0.99472E+03_JPRB,0.85697E+03_JPRB,0.71950E+03_JPRB,0.59744E+03_JPRB, &
+ & 0.73726E+03_JPRB,0.87708E+03_JPRB,0.10170E+04_JPRB,0.11577E+04_JPRB /)  
+KA(:, 5,13,10) = (/ &
+ & 0.11253E+04_JPRB,0.98825E+03_JPRB,0.85273E+03_JPRB,0.71635E+03_JPRB,0.59683E+03_JPRB, &
+ & 0.73639E+03_JPRB,0.87606E+03_JPRB,0.10160E+04_JPRB,0.11562E+04_JPRB /)  
+KA(:, 1, 1,11) = (/ &
+ & 0.19598E+04_JPRB,0.17186E+04_JPRB,0.14777E+04_JPRB,0.12380E+04_JPRB,0.99729E+03_JPRB, &
+ & 0.75567E+03_JPRB,0.88469E+03_JPRB,0.10202E+04_JPRB,0.11560E+04_JPRB /)  
+KA(:, 2, 1,11) = (/ &
+ & 0.19102E+04_JPRB,0.16743E+04_JPRB,0.14414E+04_JPRB,0.12066E+04_JPRB,0.97117E+03_JPRB, &
+ & 0.74679E+03_JPRB,0.88252E+03_JPRB,0.10178E+04_JPRB,0.11544E+04_JPRB /)  
+KA(:, 3, 1,11) = (/ &
+ & 0.18656E+04_JPRB,0.16383E+04_JPRB,0.14073E+04_JPRB,0.11791E+04_JPRB,0.94951E+03_JPRB, &
+ & 0.74505E+03_JPRB,0.88029E+03_JPRB,0.10159E+04_JPRB,0.11530E+04_JPRB /)  
+KA(:, 4, 1,11) = (/ &
+ & 0.18261E+04_JPRB,0.16025E+04_JPRB,0.13782E+04_JPRB,0.11540E+04_JPRB,0.92917E+03_JPRB, &
+ & 0.74299E+03_JPRB,0.87816E+03_JPRB,0.10141E+04_JPRB,0.11522E+04_JPRB /)  
+KA(:, 5, 1,11) = (/ &
+ & 0.17888E+04_JPRB,0.15710E+04_JPRB,0.13500E+04_JPRB,0.11298E+04_JPRB,0.91140E+03_JPRB, &
+ & 0.74109E+03_JPRB,0.87588E+03_JPRB,0.10122E+04_JPRB,0.11510E+04_JPRB /)  
+KA(:, 1, 2,11) = (/ &
+ & 0.18117E+04_JPRB,0.15887E+04_JPRB,0.13651E+04_JPRB,0.11459E+04_JPRB,0.92177E+03_JPRB, &
+ & 0.74731E+03_JPRB,0.88412E+03_JPRB,0.10203E+04_JPRB,0.11568E+04_JPRB /)  
+KA(:, 2, 2,11) = (/ &
+ & 0.17673E+04_JPRB,0.15512E+04_JPRB,0.13335E+04_JPRB,0.11174E+04_JPRB,0.90028E+03_JPRB, &
+ & 0.74546E+03_JPRB,0.88203E+03_JPRB,0.10179E+04_JPRB,0.11551E+04_JPRB /)  
+KA(:, 3, 2,11) = (/ &
+ & 0.17317E+04_JPRB,0.15193E+04_JPRB,0.13050E+04_JPRB,0.10955E+04_JPRB,0.88112E+03_JPRB, &
+ & 0.74378E+03_JPRB,0.87978E+03_JPRB,0.10161E+04_JPRB,0.11535E+04_JPRB /)  
+KA(:, 4, 2,11) = (/ &
+ & 0.16956E+04_JPRB,0.14873E+04_JPRB,0.12805E+04_JPRB,0.10729E+04_JPRB,0.86470E+03_JPRB, &
+ & 0.74189E+03_JPRB,0.87768E+03_JPRB,0.10142E+04_JPRB,0.11524E+04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART7',1,ZHOOK_HANDLE)
+END SUBROUTINE PART7
+
+
+SUBROUTINE PART8
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART8',0,ZHOOK_HANDLE)
+
+
+KA(:, 5, 2,11) = (/ &
+ & 0.16657E+04_JPRB,0.14596E+04_JPRB,0.12568E+04_JPRB,0.10531E+04_JPRB,0.84904E+03_JPRB, &
+ & 0.73979E+03_JPRB,0.87528E+03_JPRB,0.10122E+04_JPRB,0.11511E+04_JPRB /)  
+KA(:, 1, 3,11) = (/ &
+ & 0.16927E+04_JPRB,0.14859E+04_JPRB,0.12782E+04_JPRB,0.10724E+04_JPRB,0.86335E+03_JPRB, &
+ & 0.74646E+03_JPRB,0.88392E+03_JPRB,0.10211E+04_JPRB,0.11579E+04_JPRB /)  
+KA(:, 2, 3,11) = (/ &
+ & 0.16581E+04_JPRB,0.14524E+04_JPRB,0.12540E+04_JPRB,0.10466E+04_JPRB,0.84448E+03_JPRB, &
+ & 0.74471E+03_JPRB,0.88205E+03_JPRB,0.10189E+04_JPRB,0.11562E+04_JPRB /)  
+KA(:, 3, 3,11) = (/ &
+ & 0.16261E+04_JPRB,0.14229E+04_JPRB,0.12269E+04_JPRB,0.10264E+04_JPRB,0.82790E+03_JPRB, &
+ & 0.74305E+03_JPRB,0.87988E+03_JPRB,0.10167E+04_JPRB,0.11544E+04_JPRB /)  
+KA(:, 4, 3,11) = (/ &
+ & 0.15929E+04_JPRB,0.13986E+04_JPRB,0.12038E+04_JPRB,0.10084E+04_JPRB,0.81266E+03_JPRB, &
+ & 0.74160E+03_JPRB,0.87767E+03_JPRB,0.10148E+04_JPRB,0.11530E+04_JPRB /)  
+KA(:, 5, 3,11) = (/ &
+ & 0.15661E+04_JPRB,0.13746E+04_JPRB,0.11837E+04_JPRB,0.99103E+03_JPRB,0.79967E+03_JPRB, &
+ & 0.73929E+03_JPRB,0.87586E+03_JPRB,0.10132E+04_JPRB,0.11521E+04_JPRB /)  
+KA(:, 1, 4,11) = (/ &
+ & 0.15973E+04_JPRB,0.14004E+04_JPRB,0.12065E+04_JPRB,0.10106E+04_JPRB,0.81385E+03_JPRB, &
+ & 0.74599E+03_JPRB,0.88404E+03_JPRB,0.10218E+04_JPRB,0.11590E+04_JPRB /)  
+KA(:, 2, 4,11) = (/ &
+ & 0.15637E+04_JPRB,0.13722E+04_JPRB,0.11812E+04_JPRB,0.98900E+03_JPRB,0.79856E+03_JPRB, &
+ & 0.74428E+03_JPRB,0.88217E+03_JPRB,0.10197E+04_JPRB,0.11572E+04_JPRB /)  
+KA(:, 3, 4,11) = (/ &
+ & 0.15340E+04_JPRB,0.13469E+04_JPRB,0.11576E+04_JPRB,0.97012E+03_JPRB,0.78412E+03_JPRB, &
+ & 0.74257E+03_JPRB,0.88022E+03_JPRB,0.10176E+04_JPRB,0.11556E+04_JPRB /)  
+KA(:, 4, 4,11) = (/ &
+ & 0.15085E+04_JPRB,0.13226E+04_JPRB,0.11393E+04_JPRB,0.95486E+03_JPRB,0.76980E+03_JPRB, &
+ & 0.74114E+03_JPRB,0.87815E+03_JPRB,0.10155E+04_JPRB,0.11538E+04_JPRB /)  
+KA(:, 5, 4,11) = (/ &
+ & 0.14836E+04_JPRB,0.13020E+04_JPRB,0.11212E+04_JPRB,0.93957E+03_JPRB,0.75824E+03_JPRB, &
+ & 0.73939E+03_JPRB,0.87630E+03_JPRB,0.10138E+04_JPRB,0.11526E+04_JPRB /)  
+KA(:, 1, 5,11) = (/ &
+ & 0.15143E+04_JPRB,0.13286E+04_JPRB,0.11431E+04_JPRB,0.95847E+03_JPRB,0.77403E+03_JPRB, &
+ & 0.74572E+03_JPRB,0.88418E+03_JPRB,0.10223E+04_JPRB,0.11603E+04_JPRB /)  
+KA(:, 2, 5,11) = (/ &
+ & 0.14842E+04_JPRB,0.13025E+04_JPRB,0.11230E+04_JPRB,0.94028E+03_JPRB,0.75881E+03_JPRB, &
+ & 0.74405E+03_JPRB,0.88254E+03_JPRB,0.10205E+04_JPRB,0.11584E+04_JPRB /)  
+KA(:, 3, 5,11) = (/ &
+ & 0.14577E+04_JPRB,0.12799E+04_JPRB,0.11020E+04_JPRB,0.92340E+03_JPRB,0.74531E+03_JPRB, &
+ & 0.74244E+03_JPRB,0.88060E+03_JPRB,0.10185E+04_JPRB,0.11566E+04_JPRB /)  
+KA(:, 4, 5,11) = (/ &
+ & 0.14365E+04_JPRB,0.12603E+04_JPRB,0.10859E+04_JPRB,0.90939E+03_JPRB,0.73467E+03_JPRB, &
+ & 0.74090E+03_JPRB,0.87865E+03_JPRB,0.10164E+04_JPRB,0.11549E+04_JPRB /)  
+KA(:, 5, 5,11) = (/ &
+ & 0.14147E+04_JPRB,0.12422E+04_JPRB,0.10695E+04_JPRB,0.89657E+03_JPRB,0.72409E+03_JPRB, &
+ & 0.73938E+03_JPRB,0.87659E+03_JPRB,0.10145E+04_JPRB,0.11530E+04_JPRB /)  
+KA(:, 1, 6,11) = (/ &
+ & 0.14426E+04_JPRB,0.12686E+04_JPRB,0.10911E+04_JPRB,0.91528E+03_JPRB,0.73914E+03_JPRB, &
+ & 0.74563E+03_JPRB,0.88436E+03_JPRB,0.10228E+04_JPRB,0.11615E+04_JPRB /)  
+KA(:, 2, 6,11) = (/ &
+ & 0.14171E+04_JPRB,0.12457E+04_JPRB,0.10728E+04_JPRB,0.89861E+03_JPRB,0.72517E+03_JPRB, &
+ & 0.74402E+03_JPRB,0.88280E+03_JPRB,0.10215E+04_JPRB,0.11596E+04_JPRB /)  
+KA(:, 3, 6,11) = (/ &
+ & 0.13943E+04_JPRB,0.12252E+04_JPRB,0.10539E+04_JPRB,0.88362E+03_JPRB,0.71333E+03_JPRB, &
+ & 0.74243E+03_JPRB,0.88117E+03_JPRB,0.10194E+04_JPRB,0.11577E+04_JPRB /)  
+KA(:, 4, 6,11) = (/ &
+ & 0.13749E+04_JPRB,0.12056E+04_JPRB,0.10405E+04_JPRB,0.87188E+03_JPRB,0.70449E+03_JPRB, &
+ & 0.74089E+03_JPRB,0.87923E+03_JPRB,0.10173E+04_JPRB,0.11560E+04_JPRB /)  
+KA(:, 5, 6,11) = (/ &
+ & 0.13580E+04_JPRB,0.11907E+04_JPRB,0.10258E+04_JPRB,0.85998E+03_JPRB,0.69473E+03_JPRB, &
+ & 0.73937E+03_JPRB,0.87727E+03_JPRB,0.10154E+04_JPRB,0.11543E+04_JPRB /)  
+KA(:, 1, 7,11) = (/ &
+ & 0.13844E+04_JPRB,0.12166E+04_JPRB,0.10469E+04_JPRB,0.87815E+03_JPRB,0.70873E+03_JPRB, &
+ & 0.74560E+03_JPRB,0.88449E+03_JPRB,0.10233E+04_JPRB,0.11626E+04_JPRB /)  
+KA(:, 2, 7,11) = (/ &
+ & 0.13610E+04_JPRB,0.11962E+04_JPRB,0.10291E+04_JPRB,0.86318E+03_JPRB,0.69730E+03_JPRB, &
+ & 0.74409E+03_JPRB,0.88322E+03_JPRB,0.10221E+04_JPRB,0.11608E+04_JPRB /)  
+KA(:, 3, 7,11) = (/ &
+ & 0.13413E+04_JPRB,0.11786E+04_JPRB,0.10145E+04_JPRB,0.85031E+03_JPRB,0.68760E+03_JPRB, &
+ & 0.74253E+03_JPRB,0.88154E+03_JPRB,0.10203E+04_JPRB,0.11589E+04_JPRB /)  
+KA(:, 4, 7,11) = (/ &
+ & 0.13235E+04_JPRB,0.11630E+04_JPRB,0.10007E+04_JPRB,0.84004E+03_JPRB,0.67864E+03_JPRB, &
+ & 0.74101E+03_JPRB,0.87982E+03_JPRB,0.10185E+04_JPRB,0.11572E+04_JPRB /)  
+KA(:, 5, 7,11) = (/ &
+ & 0.13063E+04_JPRB,0.11482E+04_JPRB,0.98932E+03_JPRB,0.82998E+03_JPRB,0.67037E+03_JPRB, &
+ & 0.73955E+03_JPRB,0.87796E+03_JPRB,0.10167E+04_JPRB,0.11554E+04_JPRB /)  
+KA(:, 1, 8,11) = (/ &
+ & 0.13361E+04_JPRB,0.11714E+04_JPRB,0.10092E+04_JPRB,0.84627E+03_JPRB,0.68340E+03_JPRB, &
+ & 0.74540E+03_JPRB,0.88457E+03_JPRB,0.10236E+04_JPRB,0.11638E+04_JPRB /)  
+KA(:, 2, 8,11) = (/ &
+ & 0.13143E+04_JPRB,0.11537E+04_JPRB,0.99295E+03_JPRB,0.83355E+03_JPRB,0.67330E+03_JPRB, &
+ & 0.74420E+03_JPRB,0.88339E+03_JPRB,0.10225E+04_JPRB,0.11619E+04_JPRB /)  
+KA(:, 3, 8,11) = (/ &
+ & 0.12952E+04_JPRB,0.11377E+04_JPRB,0.98075E+03_JPRB,0.82213E+03_JPRB,0.66496E+03_JPRB, &
+ & 0.74271E+03_JPRB,0.88199E+03_JPRB,0.10211E+04_JPRB,0.11601E+04_JPRB /)  
+KA(:, 4, 8,11) = (/ &
+ & 0.12808E+04_JPRB,0.11242E+04_JPRB,0.96858E+03_JPRB,0.81350E+03_JPRB,0.65663E+03_JPRB, &
+ & 0.74121E+03_JPRB,0.88037E+03_JPRB,0.10192E+04_JPRB,0.11582E+04_JPRB /)  
+KA(:, 5, 8,11) = (/ &
+ & 0.12664E+04_JPRB,0.11113E+04_JPRB,0.95757E+03_JPRB,0.80317E+03_JPRB,0.64978E+03_JPRB, &
+ & 0.73975E+03_JPRB,0.87862E+03_JPRB,0.10173E+04_JPRB,0.11564E+04_JPRB /)  
+KA(:, 1, 9,11) = (/ &
+ & 0.12911E+04_JPRB,0.11331E+04_JPRB,0.97754E+03_JPRB,0.81972E+03_JPRB,0.66210E+03_JPRB, &
+ & 0.74501E+03_JPRB,0.88462E+03_JPRB,0.10244E+04_JPRB,0.11652E+04_JPRB /)  
+KA(:, 2, 9,11) = (/ &
+ & 0.12743E+04_JPRB,0.11193E+04_JPRB,0.96288E+03_JPRB,0.80865E+03_JPRB,0.65325E+03_JPRB, &
+ & 0.74437E+03_JPRB,0.88360E+03_JPRB,0.10230E+04_JPRB,0.11629E+04_JPRB /)  
+KA(:, 3, 9,11) = (/ &
+ & 0.12573E+04_JPRB,0.11051E+04_JPRB,0.95155E+03_JPRB,0.79729E+03_JPRB,0.64451E+03_JPRB, &
+ & 0.74294E+03_JPRB,0.88237E+03_JPRB,0.10218E+04_JPRB,0.11610E+04_JPRB /)  
+KA(:, 4, 9,11) = (/ &
+ & 0.12441E+04_JPRB,0.10920E+04_JPRB,0.94089E+03_JPRB,0.78911E+03_JPRB,0.63797E+03_JPRB, &
+ & 0.74148E+03_JPRB,0.88091E+03_JPRB,0.10202E+04_JPRB,0.11593E+04_JPRB /)  
+KA(:, 5, 9,11) = (/ &
+ & 0.12297E+04_JPRB,0.10813E+04_JPRB,0.93127E+03_JPRB,0.78127E+03_JPRB,0.63265E+03_JPRB, &
+ & 0.74003E+03_JPRB,0.87926E+03_JPRB,0.10184E+04_JPRB,0.11573E+04_JPRB /)  
+KA(:, 1,10,11) = (/ &
+ & 0.12530E+04_JPRB,0.11001E+04_JPRB,0.94821E+03_JPRB,0.79486E+03_JPRB,0.64277E+03_JPRB, &
+ & 0.74454E+03_JPRB,0.88447E+03_JPRB,0.10249E+04_JPRB,0.11664E+04_JPRB /)  
+KA(:, 2,10,11) = (/ &
+ & 0.12387E+04_JPRB,0.10865E+04_JPRB,0.93685E+03_JPRB,0.78643E+03_JPRB,0.63425E+03_JPRB, &
+ & 0.74423E+03_JPRB,0.88371E+03_JPRB,0.10234E+04_JPRB,0.11637E+04_JPRB /)  
+KA(:, 3,10,11) = (/ &
+ & 0.12243E+04_JPRB,0.10744E+04_JPRB,0.92585E+03_JPRB,0.77676E+03_JPRB,0.62740E+03_JPRB, &
+ & 0.74307E+03_JPRB,0.88260E+03_JPRB,0.10221E+04_JPRB,0.11620E+04_JPRB /)  
+KA(:, 4,10,11) = (/ &
+ & 0.12107E+04_JPRB,0.10640E+04_JPRB,0.91623E+03_JPRB,0.76957E+03_JPRB,0.62235E+03_JPRB, &
+ & 0.74168E+03_JPRB,0.88129E+03_JPRB,0.10208E+04_JPRB,0.11602E+04_JPRB /)  
+KA(:, 5,10,11) = (/ &
+ & 0.12010E+04_JPRB,0.10536E+04_JPRB,0.90891E+03_JPRB,0.76248E+03_JPRB,0.61761E+03_JPRB, &
+ & 0.74025E+03_JPRB,0.87965E+03_JPRB,0.10191E+04_JPRB,0.11583E+04_JPRB /)  
+KA(:, 1,11,11) = (/ &
+ & 0.12140E+04_JPRB,0.10672E+04_JPRB,0.91852E+03_JPRB,0.77048E+03_JPRB,0.62320E+03_JPRB, &
+ & 0.74401E+03_JPRB,0.88413E+03_JPRB,0.10249E+04_JPRB,0.11664E+04_JPRB /)  
+KA(:, 2,11,11) = (/ &
+ & 0.12007E+04_JPRB,0.10549E+04_JPRB,0.90904E+03_JPRB,0.76333E+03_JPRB,0.61635E+03_JPRB, &
+ & 0.74367E+03_JPRB,0.88337E+03_JPRB,0.10233E+04_JPRB,0.11639E+04_JPRB /)  
+KA(:, 3,11,11) = (/ &
+ & 0.11891E+04_JPRB,0.10458E+04_JPRB,0.90055E+03_JPRB,0.75543E+03_JPRB,0.61123E+03_JPRB, &
+ & 0.74262E+03_JPRB,0.88229E+03_JPRB,0.10219E+04_JPRB,0.11620E+04_JPRB /)  
+KA(:, 4,11,11) = (/ &
+ & 0.11794E+04_JPRB,0.10371E+04_JPRB,0.89190E+03_JPRB,0.74912E+03_JPRB,0.60572E+03_JPRB, &
+ & 0.74128E+03_JPRB,0.88110E+03_JPRB,0.10207E+04_JPRB,0.11602E+04_JPRB /)  
+KA(:, 5,11,11) = (/ &
+ & 0.11697E+04_JPRB,0.10285E+04_JPRB,0.88631E+03_JPRB,0.74374E+03_JPRB,0.60062E+03_JPRB, &
+ & 0.73987E+03_JPRB,0.87958E+03_JPRB,0.10191E+04_JPRB,0.11583E+04_JPRB /)  
+KA(:, 1,12,11) = (/ &
+ & 0.11829E+04_JPRB,0.10373E+04_JPRB,0.89433E+03_JPRB,0.75107E+03_JPRB,0.60775E+03_JPRB, &
+ & 0.74357E+03_JPRB,0.88385E+03_JPRB,0.10247E+04_JPRB,0.11664E+04_JPRB /)  
+KA(:, 2,12,11) = (/ &
+ & 0.11707E+04_JPRB,0.10276E+04_JPRB,0.88712E+03_JPRB,0.74426E+03_JPRB,0.60163E+03_JPRB, &
+ & 0.74327E+03_JPRB,0.88309E+03_JPRB,0.10231E+04_JPRB,0.11639E+04_JPRB /)  
+KA(:, 3,12,11) = (/ &
+ & 0.11629E+04_JPRB,0.10211E+04_JPRB,0.88018E+03_JPRB,0.73831E+03_JPRB,0.60184E+03_JPRB, &
+ & 0.74224E+03_JPRB,0.88203E+03_JPRB,0.10219E+04_JPRB,0.11620E+04_JPRB /)  
+KA(:, 4,12,11) = (/ &
+ & 0.11538E+04_JPRB,0.10126E+04_JPRB,0.87253E+03_JPRB,0.73377E+03_JPRB,0.60080E+03_JPRB, &
+ & 0.74101E+03_JPRB,0.88067E+03_JPRB,0.10205E+04_JPRB,0.11602E+04_JPRB /)  
+KA(:, 5,12,11) = (/ &
+ & 0.11449E+04_JPRB,0.10062E+04_JPRB,0.86764E+03_JPRB,0.72842E+03_JPRB,0.59975E+03_JPRB, &
+ & 0.73955E+03_JPRB,0.87926E+03_JPRB,0.10190E+04_JPRB,0.11583E+04_JPRB /)  
+KA(:, 1,13,11) = (/ &
+ & 0.11561E+04_JPRB,0.10152E+04_JPRB,0.87509E+03_JPRB,0.73383E+03_JPRB,0.60253E+03_JPRB, &
+ & 0.74321E+03_JPRB,0.88362E+03_JPRB,0.10246E+04_JPRB,0.11664E+04_JPRB /)  
+KA(:, 2,13,11) = (/ &
+ & 0.11468E+04_JPRB,0.10069E+04_JPRB,0.86783E+03_JPRB,0.72921E+03_JPRB,0.60211E+03_JPRB, &
+ & 0.74294E+03_JPRB,0.88286E+03_JPRB,0.10230E+04_JPRB,0.11639E+04_JPRB /)  
+KA(:, 3,13,11) = (/ &
+ & 0.11390E+04_JPRB,0.10001E+04_JPRB,0.86301E+03_JPRB,0.72323E+03_JPRB,0.60140E+03_JPRB, &
+ & 0.74194E+03_JPRB,0.88181E+03_JPRB,0.10218E+04_JPRB,0.11621E+04_JPRB /)  
+KA(:, 4,13,11) = (/ &
+ & 0.11313E+04_JPRB,0.99361E+03_JPRB,0.85706E+03_JPRB,0.72032E+03_JPRB,0.60042E+03_JPRB, &
+ & 0.74065E+03_JPRB,0.88048E+03_JPRB,0.10204E+04_JPRB,0.11602E+04_JPRB /)  
+KA(:, 5,13,11) = (/ &
+ & 0.11266E+04_JPRB,0.99042E+03_JPRB,0.85257E+03_JPRB,0.71548E+03_JPRB,0.59931E+03_JPRB, &
+ & 0.73930E+03_JPRB,0.87908E+03_JPRB,0.10187E+04_JPRB,0.11583E+04_JPRB /)  
+KA(:, 1, 1,12) = (/ &
+ & 0.19596E+04_JPRB,0.17200E+04_JPRB,0.14802E+04_JPRB,0.12370E+04_JPRB,0.99641E+03_JPRB, &
+ & 0.75556E+03_JPRB,0.88658E+03_JPRB,0.10236E+04_JPRB,0.11622E+04_JPRB /)  
+KA(:, 2, 1,12) = (/ &
+ & 0.19107E+04_JPRB,0.16797E+04_JPRB,0.14463E+04_JPRB,0.12083E+04_JPRB,0.97440E+03_JPRB, &
+ & 0.74935E+03_JPRB,0.88455E+03_JPRB,0.10223E+04_JPRB,0.11611E+04_JPRB /)  
+KA(:, 3, 1,12) = (/ &
+ & 0.18687E+04_JPRB,0.16368E+04_JPRB,0.14091E+04_JPRB,0.11809E+04_JPRB,0.95100E+03_JPRB, &
+ & 0.74626E+03_JPRB,0.88278E+03_JPRB,0.10214E+04_JPRB,0.11600E+04_JPRB /)  
+KA(:, 4, 1,12) = (/ &
+ & 0.18274E+04_JPRB,0.15998E+04_JPRB,0.13805E+04_JPRB,0.11544E+04_JPRB,0.92955E+03_JPRB, &
+ & 0.74432E+03_JPRB,0.88029E+03_JPRB,0.10193E+04_JPRB,0.11572E+04_JPRB /)  
+KA(:, 5, 1,12) = (/ &
+ & 0.17908E+04_JPRB,0.15685E+04_JPRB,0.13492E+04_JPRB,0.11303E+04_JPRB,0.91228E+03_JPRB, &
+ & 0.74183E+03_JPRB,0.87814E+03_JPRB,0.10165E+04_JPRB,0.11551E+04_JPRB /)  
+KA(:, 1, 2,12) = (/ &
+ & 0.18091E+04_JPRB,0.15890E+04_JPRB,0.13701E+04_JPRB,0.11447E+04_JPRB,0.92240E+03_JPRB, &
+ & 0.75031E+03_JPRB,0.88580E+03_JPRB,0.10236E+04_JPRB,0.11628E+04_JPRB /)  
+KA(:, 2, 2,12) = (/ &
+ & 0.17702E+04_JPRB,0.15507E+04_JPRB,0.13346E+04_JPRB,0.11179E+04_JPRB,0.90072E+03_JPRB, &
+ & 0.74790E+03_JPRB,0.88384E+03_JPRB,0.10222E+04_JPRB,0.11616E+04_JPRB /)  
+KA(:, 3, 2,12) = (/ &
+ & 0.17282E+04_JPRB,0.15159E+04_JPRB,0.13066E+04_JPRB,0.10967E+04_JPRB,0.88274E+03_JPRB, &
+ & 0.74530E+03_JPRB,0.88241E+03_JPRB,0.10213E+04_JPRB,0.11606E+04_JPRB /)  
+KA(:, 4, 2,12) = (/ &
+ & 0.16964E+04_JPRB,0.14887E+04_JPRB,0.12816E+04_JPRB,0.10711E+04_JPRB,0.86387E+03_JPRB, &
+ & 0.74308E+03_JPRB,0.88064E+03_JPRB,0.10199E+04_JPRB,0.11593E+04_JPRB /)  
+KA(:, 5, 2,12) = (/ &
+ & 0.16664E+04_JPRB,0.14634E+04_JPRB,0.12570E+04_JPRB,0.10541E+04_JPRB,0.84878E+03_JPRB, &
+ & 0.74105E+03_JPRB,0.87802E+03_JPRB,0.10170E+04_JPRB,0.11559E+04_JPRB /)  
+KA(:, 1, 3,12) = (/ &
+ & 0.16969E+04_JPRB,0.14893E+04_JPRB,0.12806E+04_JPRB,0.10686E+04_JPRB,0.86200E+03_JPRB, &
+ & 0.74953E+03_JPRB,0.88586E+03_JPRB,0.10239E+04_JPRB,0.11637E+04_JPRB /)  
+KA(:, 2, 3,12) = (/ &
+ & 0.16530E+04_JPRB,0.14535E+04_JPRB,0.12505E+04_JPRB,0.10502E+04_JPRB,0.84485E+03_JPRB, &
+ & 0.74734E+03_JPRB,0.88380E+03_JPRB,0.10224E+04_JPRB,0.11623E+04_JPRB /)  
+KA(:, 3, 3,12) = (/ &
+ & 0.16258E+04_JPRB,0.14316E+04_JPRB,0.12308E+04_JPRB,0.10274E+04_JPRB,0.82737E+03_JPRB, &
+ & 0.74498E+03_JPRB,0.88220E+03_JPRB,0.10214E+04_JPRB,0.11612E+04_JPRB /)  
+KA(:, 4, 3,12) = (/ &
+ & 0.15947E+04_JPRB,0.13987E+04_JPRB,0.12036E+04_JPRB,0.10100E+04_JPRB,0.81398E+03_JPRB, &
+ & 0.74250E+03_JPRB,0.88073E+03_JPRB,0.10203E+04_JPRB,0.11601E+04_JPRB /)  
+KA(:, 5, 3,12) = (/ &
+ & 0.15659E+04_JPRB,0.13745E+04_JPRB,0.11827E+04_JPRB,0.99357E+03_JPRB,0.79945E+03_JPRB, &
+ & 0.74072E+03_JPRB,0.87844E+03_JPRB,0.10192E+04_JPRB,0.11574E+04_JPRB /)  
+KA(:, 1, 4,12) = (/ &
+ & 0.15993E+04_JPRB,0.14029E+04_JPRB,0.12034E+04_JPRB,0.10105E+04_JPRB,0.81494E+03_JPRB, &
+ & 0.74898E+03_JPRB,0.88604E+03_JPRB,0.10246E+04_JPRB,0.11648E+04_JPRB /)  
+KA(:, 2, 4,12) = (/ &
+ & 0.15603E+04_JPRB,0.13717E+04_JPRB,0.11803E+04_JPRB,0.99158E+03_JPRB,0.79797E+03_JPRB, &
+ & 0.74702E+03_JPRB,0.88413E+03_JPRB,0.10230E+04_JPRB,0.11631E+04_JPRB /)  
+KA(:, 3, 4,12) = (/ &
+ & 0.15363E+04_JPRB,0.13460E+04_JPRB,0.11581E+04_JPRB,0.97158E+03_JPRB,0.78286E+03_JPRB, &
+ & 0.74488E+03_JPRB,0.88249E+03_JPRB,0.10215E+04_JPRB,0.11618E+04_JPRB /)  
+KA(:, 4, 4,12) = (/ &
+ & 0.15069E+04_JPRB,0.13248E+04_JPRB,0.11397E+04_JPRB,0.95515E+03_JPRB,0.77185E+03_JPRB, &
+ & 0.74259E+03_JPRB,0.88086E+03_JPRB,0.10207E+04_JPRB,0.11608E+04_JPRB /)  
+KA(:, 5, 4,12) = (/ &
+ & 0.14842E+04_JPRB,0.13030E+04_JPRB,0.11201E+04_JPRB,0.94205E+03_JPRB,0.75928E+03_JPRB, &
+ & 0.74072E+03_JPRB,0.87912E+03_JPRB,0.10193E+04_JPRB,0.11593E+04_JPRB /)  
+KA(:, 1, 5,12) = (/ &
+ & 0.15161E+04_JPRB,0.13293E+04_JPRB,0.11434E+04_JPRB,0.96071E+03_JPRB,0.77366E+03_JPRB, &
+ & 0.74856E+03_JPRB,0.88634E+03_JPRB,0.10256E+04_JPRB,0.11660E+04_JPRB /)  
+KA(:, 2, 5,12) = (/ &
+ & 0.14862E+04_JPRB,0.13039E+04_JPRB,0.11202E+04_JPRB,0.93927E+03_JPRB,0.75808E+03_JPRB, &
+ & 0.74678E+03_JPRB,0.88432E+03_JPRB,0.10237E+04_JPRB,0.11641E+04_JPRB /)  
+KA(:, 3, 5,12) = (/ &
+ & 0.14569E+04_JPRB,0.12812E+04_JPRB,0.11040E+04_JPRB,0.92477E+03_JPRB,0.74608E+03_JPRB, &
+ & 0.74483E+03_JPRB,0.88267E+03_JPRB,0.10221E+04_JPRB,0.11626E+04_JPRB /)  
+KA(:, 4, 5,12) = (/ &
+ & 0.14370E+04_JPRB,0.12601E+04_JPRB,0.10866E+04_JPRB,0.91322E+03_JPRB,0.73546E+03_JPRB, &
+ & 0.74282E+03_JPRB,0.88106E+03_JPRB,0.10210E+04_JPRB,0.11614E+04_JPRB /)  
+KA(:, 5, 5,12) = (/ &
+ & 0.14157E+04_JPRB,0.12432E+04_JPRB,0.10692E+04_JPRB,0.89766E+03_JPRB,0.72371E+03_JPRB, &
+ & 0.74075E+03_JPRB,0.87977E+03_JPRB,0.10201E+04_JPRB,0.11604E+04_JPRB /)  
+KA(:, 1, 6,12) = (/ &
+ & 0.14446E+04_JPRB,0.12668E+04_JPRB,0.10902E+04_JPRB,0.91458E+03_JPRB,0.73853E+03_JPRB, &
+ & 0.74800E+03_JPRB,0.88683E+03_JPRB,0.10267E+04_JPRB,0.11674E+04_JPRB /)  
+KA(:, 2, 6,12) = (/ &
+ & 0.14180E+04_JPRB,0.12442E+04_JPRB,0.10729E+04_JPRB,0.90054E+03_JPRB,0.72712E+03_JPRB, &
+ & 0.74664E+03_JPRB,0.88490E+03_JPRB,0.10243E+04_JPRB,0.11653E+04_JPRB /)  
+KA(:, 3, 6,12) = (/ &
+ & 0.13970E+04_JPRB,0.12338E+04_JPRB,0.10562E+04_JPRB,0.88644E+03_JPRB,0.71466E+03_JPRB, &
+ & 0.74490E+03_JPRB,0.88299E+03_JPRB,0.10228E+04_JPRB,0.11635E+04_JPRB /)  
+KA(:, 4, 6,12) = (/ &
+ & 0.13772E+04_JPRB,0.12092E+04_JPRB,0.10403E+04_JPRB,0.87191E+03_JPRB,0.70566E+03_JPRB, &
+ & 0.74297E+03_JPRB,0.88145E+03_JPRB,0.10214E+04_JPRB,0.11622E+04_JPRB /)  
+KA(:, 5, 6,12) = (/ &
+ & 0.13536E+04_JPRB,0.11933E+04_JPRB,0.10279E+04_JPRB,0.85985E+03_JPRB,0.69532E+03_JPRB, &
+ & 0.74091E+03_JPRB,0.88002E+03_JPRB,0.10207E+04_JPRB,0.11611E+04_JPRB /)  
+KA(:, 1, 7,12) = (/ &
+ & 0.13872E+04_JPRB,0.12173E+04_JPRB,0.10473E+04_JPRB,0.87779E+03_JPRB,0.70929E+03_JPRB, &
+ & 0.74753E+03_JPRB,0.88739E+03_JPRB,0.10279E+04_JPRB,0.11686E+04_JPRB /)  
+KA(:, 2, 7,12) = (/ &
+ & 0.13614E+04_JPRB,0.11960E+04_JPRB,0.10302E+04_JPRB,0.86342E+03_JPRB,0.69779E+03_JPRB, &
+ & 0.74649E+03_JPRB,0.88535E+03_JPRB,0.10254E+04_JPRB,0.11666E+04_JPRB /)  
+KA(:, 3, 7,12) = (/ &
+ & 0.13423E+04_JPRB,0.11779E+04_JPRB,0.10152E+04_JPRB,0.85120E+03_JPRB,0.68669E+03_JPRB, &
+ & 0.74500E+03_JPRB,0.88364E+03_JPRB,0.10236E+04_JPRB,0.11646E+04_JPRB /)  
+KA(:, 4, 7,12) = (/ &
+ & 0.13222E+04_JPRB,0.11614E+04_JPRB,0.10027E+04_JPRB,0.84138E+03_JPRB,0.67980E+03_JPRB, &
+ & 0.74324E+03_JPRB,0.88194E+03_JPRB,0.10219E+04_JPRB,0.11628E+04_JPRB /)  
+KA(:, 5, 7,12) = (/ &
+ & 0.13077E+04_JPRB,0.11487E+04_JPRB,0.98870E+03_JPRB,0.82923E+03_JPRB,0.67117E+03_JPRB, &
+ & 0.74131E+03_JPRB,0.88052E+03_JPRB,0.10200E+04_JPRB,0.11617E+04_JPRB /)  
+KA(:, 1, 8,12) = (/ &
+ & 0.13318E+04_JPRB,0.11751E+04_JPRB,0.10116E+04_JPRB,0.84760E+03_JPRB,0.68552E+03_JPRB, &
+ & 0.74755E+03_JPRB,0.88764E+03_JPRB,0.10284E+04_JPRB,0.11697E+04_JPRB /)  
+KA(:, 2, 8,12) = (/ &
+ & 0.13123E+04_JPRB,0.11533E+04_JPRB,0.99316E+03_JPRB,0.83364E+03_JPRB,0.67452E+03_JPRB, &
+ & 0.74634E+03_JPRB,0.88623E+03_JPRB,0.10267E+04_JPRB,0.11679E+04_JPRB /)  
+KA(:, 3, 8,12) = (/ &
+ & 0.12963E+04_JPRB,0.11395E+04_JPRB,0.98036E+03_JPRB,0.82206E+03_JPRB,0.66378E+03_JPRB, &
+ & 0.74528E+03_JPRB,0.88422E+03_JPRB,0.10245E+04_JPRB,0.11657E+04_JPRB /)  
+KA(:, 4, 8,12) = (/ &
+ & 0.12799E+04_JPRB,0.11235E+04_JPRB,0.96838E+03_JPRB,0.81175E+03_JPRB,0.65688E+03_JPRB, &
+ & 0.74350E+03_JPRB,0.88249E+03_JPRB,0.10227E+04_JPRB,0.11639E+04_JPRB /)  
+KA(:, 5, 8,12) = (/ &
+ & 0.12649E+04_JPRB,0.11128E+04_JPRB,0.95762E+03_JPRB,0.80323E+03_JPRB,0.64917E+03_JPRB, &
+ & 0.74172E+03_JPRB,0.88089E+03_JPRB,0.10213E+04_JPRB,0.11624E+04_JPRB /)  
+KA(:, 1, 9,12) = (/ &
+ & 0.12892E+04_JPRB,0.11353E+04_JPRB,0.97529E+03_JPRB,0.81997E+03_JPRB,0.66439E+03_JPRB, &
+ & 0.74689E+03_JPRB,0.88774E+03_JPRB,0.10288E+04_JPRB,0.11703E+04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART8',1,ZHOOK_HANDLE)
+END SUBROUTINE PART8
+
+
+SUBROUTINE PART9
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART9',0,ZHOOK_HANDLE)
+
+
+KA(:, 2, 9,12) = (/ &
+ & 0.12710E+04_JPRB,0.11179E+04_JPRB,0.96230E+03_JPRB,0.80757E+03_JPRB,0.65174E+03_JPRB, &
+ & 0.74606E+03_JPRB,0.88671E+03_JPRB,0.10277E+04_JPRB,0.11691E+04_JPRB /)  
+KA(:, 3, 9,12) = (/ &
+ & 0.12556E+04_JPRB,0.11026E+04_JPRB,0.95506E+03_JPRB,0.79904E+03_JPRB,0.64512E+03_JPRB, &
+ & 0.74525E+03_JPRB,0.88489E+03_JPRB,0.10254E+04_JPRB,0.11669E+04_JPRB /)  
+KA(:, 4, 9,12) = (/ &
+ & 0.12434E+04_JPRB,0.10930E+04_JPRB,0.94625E+03_JPRB,0.79326E+03_JPRB,0.63956E+03_JPRB, &
+ & 0.74375E+03_JPRB,0.88308E+03_JPRB,0.10236E+04_JPRB,0.11649E+04_JPRB /)  
+KA(:, 5, 9,12) = (/ &
+ & 0.12362E+04_JPRB,0.10807E+04_JPRB,0.93519E+03_JPRB,0.78318E+03_JPRB,0.63176E+03_JPRB, &
+ & 0.74222E+03_JPRB,0.88144E+03_JPRB,0.10218E+04_JPRB,0.11632E+04_JPRB /)  
+KA(:, 1,10,12) = (/ &
+ & 0.12560E+04_JPRB,0.11008E+04_JPRB,0.94819E+03_JPRB,0.79713E+03_JPRB,0.64289E+03_JPRB, &
+ & 0.74662E+03_JPRB,0.88790E+03_JPRB,0.10293E+04_JPRB,0.11710E+04_JPRB /)  
+KA(:, 2,10,12) = (/ &
+ & 0.12370E+04_JPRB,0.10868E+04_JPRB,0.93614E+03_JPRB,0.78750E+03_JPRB,0.63591E+03_JPRB, &
+ & 0.74589E+03_JPRB,0.88689E+03_JPRB,0.10281E+04_JPRB,0.11697E+04_JPRB /)  
+KA(:, 3,10,12) = (/ &
+ & 0.12228E+04_JPRB,0.10745E+04_JPRB,0.92565E+03_JPRB,0.77586E+03_JPRB,0.63013E+03_JPRB, &
+ & 0.74525E+03_JPRB,0.88546E+03_JPRB,0.10265E+04_JPRB,0.11680E+04_JPRB /)  
+KA(:, 4,10,12) = (/ &
+ & 0.12130E+04_JPRB,0.10629E+04_JPRB,0.91805E+03_JPRB,0.77218E+03_JPRB,0.62214E+03_JPRB, &
+ & 0.74398E+03_JPRB,0.88360E+03_JPRB,0.10243E+04_JPRB,0.11659E+04_JPRB /)  
+KA(:, 5,10,12) = (/ &
+ & 0.11990E+04_JPRB,0.10561E+04_JPRB,0.90990E+03_JPRB,0.76234E+03_JPRB,0.61782E+03_JPRB, &
+ & 0.74238E+03_JPRB,0.88192E+03_JPRB,0.10225E+04_JPRB,0.11640E+04_JPRB /)  
+KA(:, 1,11,12) = (/ &
+ & 0.12160E+04_JPRB,0.10660E+04_JPRB,0.91756E+03_JPRB,0.77092E+03_JPRB,0.62410E+03_JPRB, &
+ & 0.74614E+03_JPRB,0.88758E+03_JPRB,0.10288E+04_JPRB,0.11712E+04_JPRB /)  
+KA(:, 2,11,12) = (/ &
+ & 0.12001E+04_JPRB,0.10573E+04_JPRB,0.90897E+03_JPRB,0.76187E+03_JPRB,0.61778E+03_JPRB, &
+ & 0.74563E+03_JPRB,0.88659E+03_JPRB,0.10280E+04_JPRB,0.11697E+04_JPRB /)  
+KA(:, 3,11,12) = (/ &
+ & 0.11883E+04_JPRB,0.10436E+04_JPRB,0.89901E+03_JPRB,0.75711E+03_JPRB,0.61087E+03_JPRB, &
+ & 0.74468E+03_JPRB,0.88519E+03_JPRB,0.10264E+04_JPRB,0.11680E+04_JPRB /)  
+KA(:, 4,11,12) = (/ &
+ & 0.11791E+04_JPRB,0.10338E+04_JPRB,0.89462E+03_JPRB,0.74974E+03_JPRB,0.60740E+03_JPRB, &
+ & 0.74372E+03_JPRB,0.88322E+03_JPRB,0.10242E+04_JPRB,0.11659E+04_JPRB /)  
+KA(:, 5,11,12) = (/ &
+ & 0.11736E+04_JPRB,0.10284E+04_JPRB,0.88610E+03_JPRB,0.74386E+03_JPRB,0.60256E+03_JPRB, &
+ & 0.74204E+03_JPRB,0.88156E+03_JPRB,0.10223E+04_JPRB,0.11640E+04_JPRB /)  
+KA(:, 1,12,12) = (/ &
+ & 0.11783E+04_JPRB,0.10408E+04_JPRB,0.89462E+03_JPRB,0.75034E+03_JPRB,0.60838E+03_JPRB, &
+ & 0.74575E+03_JPRB,0.88732E+03_JPRB,0.10288E+04_JPRB,0.11710E+04_JPRB /)  
+KA(:, 2,12,12) = (/ &
+ & 0.11693E+04_JPRB,0.10333E+04_JPRB,0.88486E+03_JPRB,0.74467E+03_JPRB,0.60420E+03_JPRB, &
+ & 0.74514E+03_JPRB,0.88635E+03_JPRB,0.10279E+04_JPRB,0.11697E+04_JPRB /)  
+KA(:, 3,12,12) = (/ &
+ & 0.11597E+04_JPRB,0.10197E+04_JPRB,0.87845E+03_JPRB,0.73901E+03_JPRB,0.60371E+03_JPRB, &
+ & 0.74440E+03_JPRB,0.88495E+03_JPRB,0.10263E+04_JPRB,0.11680E+04_JPRB /)  
+KA(:, 4,12,12) = (/ &
+ & 0.11554E+04_JPRB,0.10154E+04_JPRB,0.87390E+03_JPRB,0.73209E+03_JPRB,0.60310E+03_JPRB, &
+ & 0.74343E+03_JPRB,0.88312E+03_JPRB,0.10241E+04_JPRB,0.11659E+04_JPRB /)  
+KA(:, 5,12,12) = (/ &
+ & 0.11463E+04_JPRB,0.10081E+04_JPRB,0.86768E+03_JPRB,0.73113E+03_JPRB,0.60226E+03_JPRB, &
+ & 0.74178E+03_JPRB,0.88148E+03_JPRB,0.10222E+04_JPRB,0.11640E+04_JPRB /)  
+KA(:, 1,13,12) = (/ &
+ & 0.11576E+04_JPRB,0.10172E+04_JPRB,0.87697E+03_JPRB,0.73496E+03_JPRB,0.60442E+03_JPRB, &
+ & 0.74542E+03_JPRB,0.88710E+03_JPRB,0.10287E+04_JPRB,0.11710E+04_JPRB /)  
+KA(:, 2,13,12) = (/ &
+ & 0.11489E+04_JPRB,0.10121E+04_JPRB,0.86787E+03_JPRB,0.73038E+03_JPRB,0.60369E+03_JPRB, &
+ & 0.74483E+03_JPRB,0.88615E+03_JPRB,0.10278E+04_JPRB,0.11697E+04_JPRB /)  
+KA(:, 3,13,12) = (/ &
+ & 0.11408E+04_JPRB,0.10003E+04_JPRB,0.86069E+03_JPRB,0.72468E+03_JPRB,0.60332E+03_JPRB, &
+ & 0.74398E+03_JPRB,0.88477E+03_JPRB,0.10262E+04_JPRB,0.11679E+04_JPRB /)  
+KA(:, 4,13,12) = (/ &
+ & 0.11353E+04_JPRB,0.99812E+03_JPRB,0.85805E+03_JPRB,0.72010E+03_JPRB,0.60276E+03_JPRB, &
+ & 0.74301E+03_JPRB,0.88294E+03_JPRB,0.10240E+04_JPRB,0.11659E+04_JPRB /)  
+KA(:, 5,13,12) = (/ &
+ & 0.11276E+04_JPRB,0.99093E+03_JPRB,0.85424E+03_JPRB,0.71851E+03_JPRB,0.60186E+03_JPRB, &
+ & 0.74137E+03_JPRB,0.88131E+03_JPRB,0.10223E+04_JPRB,0.11640E+04_JPRB /)  
+KA(:, 1, 1,13) = (/ &
+ & 0.19698E+04_JPRB,0.17183E+04_JPRB,0.14812E+04_JPRB,0.12476E+04_JPRB,0.10057E+04_JPRB, &
+ & 0.76142E+03_JPRB,0.89076E+03_JPRB,0.10305E+04_JPRB,0.11701E+04_JPRB /)  
+KA(:, 2, 1,13) = (/ &
+ & 0.19138E+04_JPRB,0.16790E+04_JPRB,0.14471E+04_JPRB,0.12079E+04_JPRB,0.97024E+03_JPRB, &
+ & 0.74958E+03_JPRB,0.88854E+03_JPRB,0.10281E+04_JPRB,0.11676E+04_JPRB /)  
+KA(:, 3, 1,13) = (/ &
+ & 0.18656E+04_JPRB,0.16362E+04_JPRB,0.14072E+04_JPRB,0.11764E+04_JPRB,0.95368E+03_JPRB, &
+ & 0.74756E+03_JPRB,0.88578E+03_JPRB,0.10247E+04_JPRB,0.11642E+04_JPRB /)  
+KA(:, 4, 1,13) = (/ &
+ & 0.18274E+04_JPRB,0.16076E+04_JPRB,0.13744E+04_JPRB,0.11522E+04_JPRB,0.93101E+03_JPRB, &
+ & 0.74489E+03_JPRB,0.88368E+03_JPRB,0.10224E+04_JPRB,0.11624E+04_JPRB /)  
+KA(:, 5, 1,13) = (/ &
+ & 0.18123E+04_JPRB,0.15711E+04_JPRB,0.13539E+04_JPRB,0.11391E+04_JPRB,0.91271E+03_JPRB, &
+ & 0.74309E+03_JPRB,0.88194E+03_JPRB,0.10210E+04_JPRB,0.11601E+04_JPRB /)  
+KA(:, 1, 2,13) = (/ &
+ & 0.18136E+04_JPRB,0.16074E+04_JPRB,0.13682E+04_JPRB,0.11455E+04_JPRB,0.92152E+03_JPRB, &
+ & 0.75090E+03_JPRB,0.89044E+03_JPRB,0.10309E+04_JPRB,0.11711E+04_JPRB /)  
+KA(:, 2, 2,13) = (/ &
+ & 0.17663E+04_JPRB,0.15639E+04_JPRB,0.13412E+04_JPRB,0.11338E+04_JPRB,0.90565E+03_JPRB, &
+ & 0.74892E+03_JPRB,0.88842E+03_JPRB,0.10286E+04_JPRB,0.11690E+04_JPRB /)  
+KA(:, 3, 2,13) = (/ &
+ & 0.17473E+04_JPRB,0.15168E+04_JPRB,0.13179E+04_JPRB,0.10933E+04_JPRB,0.88564E+03_JPRB, &
+ & 0.74657E+03_JPRB,0.88587E+03_JPRB,0.10277E+04_JPRB,0.11659E+04_JPRB /)  
+KA(:, 4, 2,13) = (/ &
+ & 0.16935E+04_JPRB,0.14940E+04_JPRB,0.12866E+04_JPRB,0.10771E+04_JPRB,0.86513E+03_JPRB, &
+ & 0.74388E+03_JPRB,0.88292E+03_JPRB,0.10226E+04_JPRB,0.11621E+04_JPRB /)  
+KA(:, 5, 2,13) = (/ &
+ & 0.16796E+04_JPRB,0.14587E+04_JPRB,0.12610E+04_JPRB,0.10625E+04_JPRB,0.85051E+03_JPRB, &
+ & 0.74222E+03_JPRB,0.88187E+03_JPRB,0.10215E+04_JPRB,0.11614E+04_JPRB /)  
+KA(:, 1, 3,13) = (/ &
+ & 0.16915E+04_JPRB,0.14853E+04_JPRB,0.12759E+04_JPRB,0.10742E+04_JPRB,0.87078E+03_JPRB, &
+ & 0.75040E+03_JPRB,0.89056E+03_JPRB,0.10314E+04_JPRB,0.11723E+04_JPRB /)  
+KA(:, 2, 3,13) = (/ &
+ & 0.16685E+04_JPRB,0.14695E+04_JPRB,0.12569E+04_JPRB,0.10522E+04_JPRB,0.84369E+03_JPRB, &
+ & 0.74849E+03_JPRB,0.88875E+03_JPRB,0.10295E+04_JPRB,0.11702E+04_JPRB /)  
+KA(:, 3, 3,13) = (/ &
+ & 0.16315E+04_JPRB,0.14234E+04_JPRB,0.12207E+04_JPRB,0.10278E+04_JPRB,0.83542E+03_JPRB, &
+ & 0.74665E+03_JPRB,0.88665E+03_JPRB,0.10272E+04_JPRB,0.11677E+04_JPRB /)  
+KA(:, 4, 3,13) = (/ &
+ & 0.15936E+04_JPRB,0.13973E+04_JPRB,0.11983E+04_JPRB,0.10068E+04_JPRB,0.81253E+03_JPRB, &
+ & 0.74392E+03_JPRB,0.88383E+03_JPRB,0.10241E+04_JPRB,0.11643E+04_JPRB /)  
+KA(:, 5, 3,13) = (/ &
+ & 0.15704E+04_JPRB,0.13749E+04_JPRB,0.11794E+04_JPRB,0.99081E+03_JPRB,0.79887E+03_JPRB, &
+ & 0.74214E+03_JPRB,0.88216E+03_JPRB,0.10204E+04_JPRB,0.11625E+04_JPRB /)  
+KA(:, 1, 4,13) = (/ &
+ & 0.16005E+04_JPRB,0.14146E+04_JPRB,0.12141E+04_JPRB,0.10096E+04_JPRB,0.81830E+03_JPRB, &
+ & 0.74981E+03_JPRB,0.89073E+03_JPRB,0.10323E+04_JPRB,0.11736E+04_JPRB /)  
+KA(:, 2, 4,13) = (/ &
+ & 0.15697E+04_JPRB,0.13709E+04_JPRB,0.11792E+04_JPRB,0.98706E+03_JPRB,0.80274E+03_JPRB, &
+ & 0.74843E+03_JPRB,0.88917E+03_JPRB,0.10304E+04_JPRB,0.11716E+04_JPRB /)  
+KA(:, 3, 4,13) = (/ &
+ & 0.15342E+04_JPRB,0.13528E+04_JPRB,0.11633E+04_JPRB,0.97494E+03_JPRB,0.78298E+03_JPRB, &
+ & 0.74655E+03_JPRB,0.88714E+03_JPRB,0.10283E+04_JPRB,0.11694E+04_JPRB /)  
+KA(:, 4, 4,13) = (/ &
+ & 0.15079E+04_JPRB,0.13273E+04_JPRB,0.11368E+04_JPRB,0.95326E+03_JPRB,0.76898E+03_JPRB, &
+ & 0.74477E+03_JPRB,0.88522E+03_JPRB,0.10258E+04_JPRB,0.11666E+04_JPRB /)  
+KA(:, 5, 4,13) = (/ &
+ & 0.14904E+04_JPRB,0.13050E+04_JPRB,0.11274E+04_JPRB,0.94133E+03_JPRB,0.75918E+03_JPRB, &
+ & 0.74185E+03_JPRB,0.88236E+03_JPRB,0.10229E+04_JPRB,0.11634E+04_JPRB /)  
+KA(:, 1, 5,13) = (/ &
+ & 0.15223E+04_JPRB,0.13292E+04_JPRB,0.11458E+04_JPRB,0.96632E+03_JPRB,0.77253E+03_JPRB, &
+ & 0.74931E+03_JPRB,0.89080E+03_JPRB,0.10327E+04_JPRB,0.11744E+04_JPRB /)  
+KA(:, 2, 5,13) = (/ &
+ & 0.14887E+04_JPRB,0.13100E+04_JPRB,0.11308E+04_JPRB,0.95564E+03_JPRB,0.76318E+03_JPRB, &
+ & 0.74814E+03_JPRB,0.88953E+03_JPRB,0.10311E+04_JPRB,0.11728E+04_JPRB /)  
+KA(:, 3, 5,13) = (/ &
+ & 0.14666E+04_JPRB,0.12805E+04_JPRB,0.10990E+04_JPRB,0.92585E+03_JPRB,0.74527E+03_JPRB, &
+ & 0.74662E+03_JPRB,0.88788E+03_JPRB,0.10293E+04_JPRB,0.11708E+04_JPRB /)  
+KA(:, 4, 5,13) = (/ &
+ & 0.14380E+04_JPRB,0.12615E+04_JPRB,0.10805E+04_JPRB,0.91192E+03_JPRB,0.73306E+03_JPRB, &
+ & 0.74471E+03_JPRB,0.88594E+03_JPRB,0.10272E+04_JPRB,0.11684E+04_JPRB /)  
+KA(:, 5, 5,13) = (/ &
+ & 0.14117E+04_JPRB,0.12389E+04_JPRB,0.10707E+04_JPRB,0.89863E+03_JPRB,0.72872E+03_JPRB, &
+ & 0.74254E+03_JPRB,0.88356E+03_JPRB,0.10243E+04_JPRB,0.11652E+04_JPRB /)  
+KA(:, 1, 6,13) = (/ &
+ & 0.14428E+04_JPRB,0.12661E+04_JPRB,0.10990E+04_JPRB,0.91605E+03_JPRB,0.74645E+03_JPRB, &
+ & 0.74914E+03_JPRB,0.89068E+03_JPRB,0.10327E+04_JPRB,0.11747E+04_JPRB /)  
+KA(:, 2, 6,13) = (/ &
+ & 0.14277E+04_JPRB,0.12454E+04_JPRB,0.10670E+04_JPRB,0.90364E+03_JPRB,0.72758E+03_JPRB, &
+ & 0.74802E+03_JPRB,0.88983E+03_JPRB,0.10318E+04_JPRB,0.11738E+04_JPRB /)  
+KA(:, 3, 6,13) = (/ &
+ & 0.14072E+04_JPRB,0.12244E+04_JPRB,0.10539E+04_JPRB,0.88576E+03_JPRB,0.71342E+03_JPRB, &
+ & 0.74674E+03_JPRB,0.88844E+03_JPRB,0.10303E+04_JPRB,0.11723E+04_JPRB /)  
+KA(:, 4, 6,13) = (/ &
+ & 0.13764E+04_JPRB,0.12101E+04_JPRB,0.10371E+04_JPRB,0.87173E+03_JPRB,0.70565E+03_JPRB, &
+ & 0.74519E+03_JPRB,0.88672E+03_JPRB,0.10284E+04_JPRB,0.11700E+04_JPRB /)  
+KA(:, 5, 6,13) = (/ &
+ & 0.13559E+04_JPRB,0.11928E+04_JPRB,0.10275E+04_JPRB,0.87202E+03_JPRB,0.69916E+03_JPRB, &
+ & 0.74337E+03_JPRB,0.88468E+03_JPRB,0.10257E+04_JPRB,0.11677E+04_JPRB /)  
+KA(:, 1, 7,13) = (/ &
+ & 0.13816E+04_JPRB,0.12181E+04_JPRB,0.10498E+04_JPRB,0.87727E+03_JPRB,0.70862E+03_JPRB, &
+ & 0.74879E+03_JPRB,0.89032E+03_JPRB,0.10324E+04_JPRB,0.11748E+04_JPRB /)  
+KA(:, 2, 7,13) = (/ &
+ & 0.13746E+04_JPRB,0.12007E+04_JPRB,0.10368E+04_JPRB,0.86700E+03_JPRB,0.69742E+03_JPRB, &
+ & 0.74791E+03_JPRB,0.88998E+03_JPRB,0.10322E+04_JPRB,0.11745E+04_JPRB /)  
+KA(:, 3, 7,13) = (/ &
+ & 0.13471E+04_JPRB,0.11822E+04_JPRB,0.10118E+04_JPRB,0.85187E+03_JPRB,0.69076E+03_JPRB, &
+ & 0.74684E+03_JPRB,0.88891E+03_JPRB,0.10311E+04_JPRB,0.11732E+04_JPRB /)  
+KA(:, 4, 7,13) = (/ &
+ & 0.13306E+04_JPRB,0.11625E+04_JPRB,0.10055E+04_JPRB,0.83687E+03_JPRB,0.67946E+03_JPRB, &
+ & 0.74564E+03_JPRB,0.88741E+03_JPRB,0.10294E+04_JPRB,0.11714E+04_JPRB /)  
+KA(:, 5, 7,13) = (/ &
+ & 0.13072E+04_JPRB,0.11462E+04_JPRB,0.98997E+03_JPRB,0.82975E+03_JPRB,0.67148E+03_JPRB, &
+ & 0.74390E+03_JPRB,0.88544E+03_JPRB,0.10275E+04_JPRB,0.11691E+04_JPRB /)  
+KA(:, 1, 8,13) = (/ &
+ & 0.13342E+04_JPRB,0.11738E+04_JPRB,0.10072E+04_JPRB,0.84777E+03_JPRB,0.68336E+03_JPRB, &
+ & 0.74810E+03_JPRB,0.89032E+03_JPRB,0.10328E+04_JPRB,0.11753E+04_JPRB /)  
+KA(:, 2, 8,13) = (/ &
+ & 0.13170E+04_JPRB,0.11565E+04_JPRB,0.99551E+03_JPRB,0.83812E+03_JPRB,0.67873E+03_JPRB, &
+ & 0.74767E+03_JPRB,0.88984E+03_JPRB,0.10325E+04_JPRB,0.11747E+04_JPRB /)  
+KA(:, 3, 8,13) = (/ &
+ & 0.12961E+04_JPRB,0.11348E+04_JPRB,0.98531E+03_JPRB,0.82142E+03_JPRB,0.66767E+03_JPRB, &
+ & 0.74660E+03_JPRB,0.88923E+03_JPRB,0.10317E+04_JPRB,0.11741E+04_JPRB /)  
+KA(:, 4, 8,13) = (/ &
+ & 0.12863E+04_JPRB,0.11324E+04_JPRB,0.96704E+03_JPRB,0.81553E+03_JPRB,0.65703E+03_JPRB, &
+ & 0.74590E+03_JPRB,0.88815E+03_JPRB,0.10305E+04_JPRB,0.11725E+04_JPRB /)  
+KA(:, 5, 8,13) = (/ &
+ & 0.12689E+04_JPRB,0.11113E+04_JPRB,0.96142E+03_JPRB,0.81188E+03_JPRB,0.65150E+03_JPRB, &
+ & 0.74435E+03_JPRB,0.88637E+03_JPRB,0.10284E+04_JPRB,0.11705E+04_JPRB /)  
+KA(:, 1, 9,13) = (/ &
+ & 0.12929E+04_JPRB,0.11420E+04_JPRB,0.97941E+03_JPRB,0.82358E+03_JPRB,0.66259E+03_JPRB, &
+ & 0.74862E+03_JPRB,0.89046E+03_JPRB,0.10332E+04_JPRB,0.11761E+04_JPRB /)  
+KA(:, 2, 9,13) = (/ &
+ & 0.12739E+04_JPRB,0.11222E+04_JPRB,0.96918E+03_JPRB,0.81141E+03_JPRB,0.65436E+03_JPRB, &
+ & 0.74747E+03_JPRB,0.88962E+03_JPRB,0.10323E+04_JPRB,0.11749E+04_JPRB /)  
+KA(:, 3, 9,13) = (/ &
+ & 0.12674E+04_JPRB,0.11070E+04_JPRB,0.94554E+03_JPRB,0.79811E+03_JPRB,0.64989E+03_JPRB, &
+ & 0.74671E+03_JPRB,0.88937E+03_JPRB,0.10320E+04_JPRB,0.11746E+04_JPRB /)  
+KA(:, 4, 9,13) = (/ &
+ & 0.12536E+04_JPRB,0.10974E+04_JPRB,0.93180E+03_JPRB,0.78881E+03_JPRB,0.64048E+03_JPRB, &
+ & 0.74596E+03_JPRB,0.88846E+03_JPRB,0.10310E+04_JPRB,0.11735E+04_JPRB /)  
+KA(:, 5, 9,13) = (/ &
+ & 0.12304E+04_JPRB,0.10931E+04_JPRB,0.92897E+03_JPRB,0.78158E+03_JPRB,0.63657E+03_JPRB, &
+ & 0.74461E+03_JPRB,0.88706E+03_JPRB,0.10294E+04_JPRB,0.11717E+04_JPRB /)  
+KA(:, 1,10,13) = (/ &
+ & 0.12516E+04_JPRB,0.11039E+04_JPRB,0.96641E+03_JPRB,0.80204E+03_JPRB,0.64728E+03_JPRB, &
+ & 0.74871E+03_JPRB,0.89043E+03_JPRB,0.10331E+04_JPRB,0.11761E+04_JPRB /)  
+KA(:, 2,10,13) = (/ &
+ & 0.12445E+04_JPRB,0.10951E+04_JPRB,0.94205E+03_JPRB,0.78296E+03_JPRB,0.63684E+03_JPRB, &
+ & 0.74738E+03_JPRB,0.88974E+03_JPRB,0.10326E+04_JPRB,0.11754E+04_JPRB /)  
+KA(:, 3,10,13) = (/ &
+ & 0.12212E+04_JPRB,0.10830E+04_JPRB,0.92907E+03_JPRB,0.78344E+03_JPRB,0.62583E+03_JPRB, &
+ & 0.74649E+03_JPRB,0.88924E+03_JPRB,0.10320E+04_JPRB,0.11747E+04_JPRB /)  
+KA(:, 4,10,13) = (/ &
+ & 0.12116E+04_JPRB,0.10675E+04_JPRB,0.91424E+03_JPRB,0.76668E+03_JPRB,0.62374E+03_JPRB, &
+ & 0.74589E+03_JPRB,0.88889E+03_JPRB,0.10314E+04_JPRB,0.11741E+04_JPRB /)  
+KA(:, 5,10,13) = (/ &
+ & 0.12052E+04_JPRB,0.10532E+04_JPRB,0.90488E+03_JPRB,0.76246E+03_JPRB,0.61399E+03_JPRB, &
+ & 0.74500E+03_JPRB,0.88754E+03_JPRB,0.10301E+04_JPRB,0.11727E+04_JPRB /)  
+KA(:, 1,11,13) = (/ &
+ & 0.12119E+04_JPRB,0.10670E+04_JPRB,0.92549E+03_JPRB,0.77292E+03_JPRB,0.62469E+03_JPRB, &
+ & 0.74822E+03_JPRB,0.89015E+03_JPRB,0.10331E+04_JPRB,0.11759E+04_JPRB /)  
+KA(:, 2,11,13) = (/ &
+ & 0.12040E+04_JPRB,0.10529E+04_JPRB,0.90947E+03_JPRB,0.76631E+03_JPRB,0.61756E+03_JPRB, &
+ & 0.74680E+03_JPRB,0.88950E+03_JPRB,0.10325E+04_JPRB,0.11754E+04_JPRB /)  
+KA(:, 3,11,13) = (/ &
+ & 0.11932E+04_JPRB,0.10470E+04_JPRB,0.90374E+03_JPRB,0.75316E+03_JPRB,0.61137E+03_JPRB, &
+ & 0.74625E+03_JPRB,0.88901E+03_JPRB,0.10319E+04_JPRB,0.11747E+04_JPRB /)  
+KA(:, 4,11,13) = (/ &
+ & 0.11901E+04_JPRB,0.10395E+04_JPRB,0.89205E+03_JPRB,0.75483E+03_JPRB,0.60707E+03_JPRB, &
+ & 0.74529E+03_JPRB,0.88868E+03_JPRB,0.10313E+04_JPRB,0.11742E+04_JPRB /)  
+KA(:, 5,11,13) = (/ &
+ & 0.11740E+04_JPRB,0.10262E+04_JPRB,0.88782E+03_JPRB,0.74555E+03_JPRB,0.60321E+03_JPRB, &
+ & 0.74456E+03_JPRB,0.88735E+03_JPRB,0.10302E+04_JPRB,0.11727E+04_JPRB /)  
+KA(:, 1,12,13) = (/ &
+ & 0.11952E+04_JPRB,0.10387E+04_JPRB,0.90464E+03_JPRB,0.75031E+03_JPRB,0.60579E+03_JPRB, &
+ & 0.74809E+03_JPRB,0.88993E+03_JPRB,0.10330E+04_JPRB,0.11761E+04_JPRB /)  
+KA(:, 2,12,13) = (/ &
+ & 0.11767E+04_JPRB,0.10280E+04_JPRB,0.89305E+03_JPRB,0.74295E+03_JPRB,0.60520E+03_JPRB, &
+ & 0.74658E+03_JPRB,0.88930E+03_JPRB,0.10324E+04_JPRB,0.11754E+04_JPRB /)  
+KA(:, 3,12,13) = (/ &
+ & 0.11638E+04_JPRB,0.10252E+04_JPRB,0.88200E+03_JPRB,0.74209E+03_JPRB,0.60448E+03_JPRB, &
+ & 0.74580E+03_JPRB,0.88883E+03_JPRB,0.10318E+04_JPRB,0.11747E+04_JPRB /)  
+KA(:, 4,12,13) = (/ &
+ & 0.11608E+04_JPRB,0.10182E+04_JPRB,0.87717E+03_JPRB,0.73339E+03_JPRB,0.60384E+03_JPRB, &
+ & 0.74474E+03_JPRB,0.88834E+03_JPRB,0.10314E+04_JPRB,0.11742E+04_JPRB /)  
+KA(:, 5,12,13) = (/ &
+ & 0.11455E+04_JPRB,0.10085E+04_JPRB,0.86868E+03_JPRB,0.72782E+03_JPRB,0.60261E+03_JPRB, &
+ & 0.74417E+03_JPRB,0.88752E+03_JPRB,0.10299E+04_JPRB,0.11727E+04_JPRB /)  
+KA(:, 1,13,13) = (/ &
+ & 0.11538E+04_JPRB,0.10104E+04_JPRB,0.87836E+03_JPRB,0.74181E+03_JPRB,0.60545E+03_JPRB, &
+ & 0.74747E+03_JPRB,0.88975E+03_JPRB,0.10329E+04_JPRB,0.11763E+04_JPRB /)  
+KA(:, 2,13,13) = (/ &
+ & 0.11412E+04_JPRB,0.10013E+04_JPRB,0.88484E+03_JPRB,0.73153E+03_JPRB,0.60489E+03_JPRB, &
+ & 0.74629E+03_JPRB,0.88914E+03_JPRB,0.10323E+04_JPRB,0.11754E+04_JPRB /)  
+KA(:, 3,13,13) = (/ &
+ & 0.11370E+04_JPRB,0.10022E+04_JPRB,0.86246E+03_JPRB,0.73215E+03_JPRB,0.60419E+03_JPRB, &
+ & 0.74569E+03_JPRB,0.88867E+03_JPRB,0.10317E+04_JPRB,0.11747E+04_JPRB /)  
+KA(:, 4,13,13) = (/ &
+ & 0.11288E+04_JPRB,0.99109E+03_JPRB,0.86549E+03_JPRB,0.72280E+03_JPRB,0.60356E+03_JPRB, &
+ & 0.74480E+03_JPRB,0.88820E+03_JPRB,0.10312E+04_JPRB,0.11742E+04_JPRB /)  
+KA(:, 5,13,13) = (/ &
+ & 0.11445E+04_JPRB,0.99099E+03_JPRB,0.85129E+03_JPRB,0.71952E+03_JPRB,0.60234E+03_JPRB, &
+ & 0.74410E+03_JPRB,0.88705E+03_JPRB,0.10299E+04_JPRB,0.11727E+04_JPRB /)  
+KA(:, 1, 1,14) = (/ &
+ & 0.20185E+04_JPRB,0.18044E+04_JPRB,0.14758E+04_JPRB,0.13047E+04_JPRB,0.10029E+04_JPRB, &
+ & 0.77460E+03_JPRB,0.89226E+03_JPRB,0.10322E+04_JPRB,0.11721E+04_JPRB /)  
+KA(:, 2, 1,14) = (/ &
+ & 0.19173E+04_JPRB,0.17154E+04_JPRB,0.14467E+04_JPRB,0.12101E+04_JPRB,0.99594E+03_JPRB, &
+ & 0.75026E+03_JPRB,0.88974E+03_JPRB,0.10295E+04_JPRB,0.11713E+04_JPRB /)  
+KA(:, 3, 1,14) = (/ &
+ & 0.19468E+04_JPRB,0.16851E+04_JPRB,0.14136E+04_JPRB,0.12474E+04_JPRB,0.94959E+03_JPRB, &
+ & 0.74773E+03_JPRB,0.88696E+03_JPRB,0.10271E+04_JPRB,0.11663E+04_JPRB /)  
+KA(:, 4, 1,14) = (/ &
+ & 0.18423E+04_JPRB,0.16214E+04_JPRB,0.13991E+04_JPRB,0.11633E+04_JPRB,0.94698E+03_JPRB, &
+ & 0.74507E+03_JPRB,0.88457E+03_JPRB,0.10239E+04_JPRB,0.11632E+04_JPRB /)  
+KA(:, 5, 1,14) = (/ &
+ & 0.17538E+04_JPRB,0.16376E+04_JPRB,0.13645E+04_JPRB,0.11303E+04_JPRB,0.98877E+03_JPRB, &
+ & 0.74430E+03_JPRB,0.88372E+03_JPRB,0.10232E+04_JPRB,0.11626E+04_JPRB /)  
+KA(:, 1, 2,14) = (/ &
+ & 0.18551E+04_JPRB,0.16163E+04_JPRB,0.13640E+04_JPRB,0.12440E+04_JPRB,0.97095E+03_JPRB, &
+ & 0.75153E+03_JPRB,0.89202E+03_JPRB,0.10323E+04_JPRB,0.11731E+04_JPRB /)  
+KA(:, 2, 2,14) = (/ &
+ & 0.18136E+04_JPRB,0.16209E+04_JPRB,0.13887E+04_JPRB,0.11127E+04_JPRB,0.90845E+03_JPRB, &
+ & 0.74936E+03_JPRB,0.88974E+03_JPRB,0.10301E+04_JPRB,0.11702E+04_JPRB /)  
+KA(:, 3, 2,14) = (/ &
+ & 0.17918E+04_JPRB,0.15931E+04_JPRB,0.13282E+04_JPRB,0.11266E+04_JPRB,0.93052E+03_JPRB, &
+ & 0.74732E+03_JPRB,0.88725E+03_JPRB,0.10243E+04_JPRB,0.11672E+04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART9',1,ZHOOK_HANDLE)
+END SUBROUTINE PART9
+
+
+SUBROUTINE PART10
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART10',0,ZHOOK_HANDLE)
+
+
+KA(:, 4, 2,14) = (/ &
+ & 0.17507E+04_JPRB,0.14791E+04_JPRB,0.12865E+04_JPRB,0.10818E+04_JPRB,0.87901E+03_JPRB, &
+ & 0.74478E+03_JPRB,0.88467E+03_JPRB,0.10246E+04_JPRB,0.11645E+04_JPRB /)  
+KA(:, 5, 2,14) = (/ &
+ & 0.16872E+04_JPRB,0.14818E+04_JPRB,0.12871E+04_JPRB,0.10513E+04_JPRB,0.88744E+03_JPRB, &
+ & 0.74325E+03_JPRB,0.88337E+03_JPRB,0.10230E+04_JPRB,0.11625E+04_JPRB /)  
+KA(:, 1, 3,14) = (/ &
+ & 0.16919E+04_JPRB,0.15533E+04_JPRB,0.13337E+04_JPRB,0.10831E+04_JPRB,0.86308E+03_JPRB, &
+ & 0.75085E+03_JPRB,0.89217E+03_JPRB,0.10333E+04_JPRB,0.11744E+04_JPRB /)  
+KA(:, 2, 3,14) = (/ &
+ & 0.17034E+04_JPRB,0.15495E+04_JPRB,0.12643E+04_JPRB,0.11407E+04_JPRB,0.84365E+03_JPRB, &
+ & 0.74929E+03_JPRB,0.89025E+03_JPRB,0.10312E+04_JPRB,0.11722E+04_JPRB /)  
+KA(:, 3, 3,14) = (/ &
+ & 0.16844E+04_JPRB,0.14282E+04_JPRB,0.12585E+04_JPRB,0.10790E+04_JPRB,0.84114E+03_JPRB, &
+ & 0.74691E+03_JPRB,0.88785E+03_JPRB,0.10286E+04_JPRB,0.11700E+04_JPRB /)  
+KA(:, 4, 3,14) = (/ &
+ & 0.16791E+04_JPRB,0.14180E+04_JPRB,0.12209E+04_JPRB,0.10441E+04_JPRB,0.85899E+03_JPRB, &
+ & 0.74519E+03_JPRB,0.88544E+03_JPRB,0.10259E+04_JPRB,0.11667E+04_JPRB /)  
+KA(:, 5, 3,14) = (/ &
+ & 0.16063E+04_JPRB,0.13774E+04_JPRB,0.12181E+04_JPRB,0.10006E+04_JPRB,0.82020E+03_JPRB, &
+ & 0.74245E+03_JPRB,0.88287E+03_JPRB,0.10231E+04_JPRB,0.11633E+04_JPRB /)  
+KA(:, 1, 4,14) = (/ &
+ & 0.15960E+04_JPRB,0.13846E+04_JPRB,0.12078E+04_JPRB,0.10284E+04_JPRB,0.81079E+03_JPRB, &
+ & 0.75078E+03_JPRB,0.89233E+03_JPRB,0.10336E+04_JPRB,0.11751E+04_JPRB /)  
+KA(:, 2, 4,14) = (/ &
+ & 0.16237E+04_JPRB,0.13919E+04_JPRB,0.11906E+04_JPRB,0.10115E+04_JPRB,0.83009E+03_JPRB, &
+ & 0.74909E+03_JPRB,0.89076E+03_JPRB,0.10322E+04_JPRB,0.11737E+04_JPRB /)  
+KA(:, 3, 4,14) = (/ &
+ & 0.16136E+04_JPRB,0.13698E+04_JPRB,0.12046E+04_JPRB,0.98839E+03_JPRB,0.80997E+03_JPRB, &
+ & 0.74745E+03_JPRB,0.88871E+03_JPRB,0.10300E+04_JPRB,0.11712E+04_JPRB /)  
+KA(:, 4, 4,14) = (/ &
+ & 0.15739E+04_JPRB,0.13753E+04_JPRB,0.11394E+04_JPRB,0.97871E+03_JPRB,0.77029E+03_JPRB, &
+ & 0.74770E+03_JPRB,0.88627E+03_JPRB,0.10279E+04_JPRB,0.11682E+04_JPRB /)  
+KA(:, 5, 4,14) = (/ &
+ & 0.14863E+04_JPRB,0.13334E+04_JPRB,0.11445E+04_JPRB,0.95775E+03_JPRB,0.78998E+03_JPRB, &
+ & 0.74317E+03_JPRB,0.88387E+03_JPRB,0.10246E+04_JPRB,0.11653E+04_JPRB /)  
+KA(:, 1, 5,14) = (/ &
+ & 0.15101E+04_JPRB,0.14006E+04_JPRB,0.11513E+04_JPRB,0.96783E+03_JPRB,0.79581E+03_JPRB, &
+ & 0.75045E+03_JPRB,0.89239E+03_JPRB,0.10340E+04_JPRB,0.11759E+04_JPRB /)  
+KA(:, 2, 5,14) = (/ &
+ & 0.15461E+04_JPRB,0.13003E+04_JPRB,0.11685E+04_JPRB,0.92112E+03_JPRB,0.77517E+03_JPRB, &
+ & 0.74927E+03_JPRB,0.89114E+03_JPRB,0.10330E+04_JPRB,0.11749E+04_JPRB /)  
+KA(:, 3, 5,14) = (/ &
+ & 0.14676E+04_JPRB,0.12966E+04_JPRB,0.11042E+04_JPRB,0.93875E+03_JPRB,0.79645E+03_JPRB, &
+ & 0.74772E+03_JPRB,0.88943E+03_JPRB,0.10311E+04_JPRB,0.11729E+04_JPRB /)  
+KA(:, 4, 5,14) = (/ &
+ & 0.14571E+04_JPRB,0.12955E+04_JPRB,0.11734E+04_JPRB,0.89731E+03_JPRB,0.76986E+03_JPRB, &
+ & 0.74578E+03_JPRB,0.88723E+03_JPRB,0.10287E+04_JPRB,0.11702E+04_JPRB /)  
+KA(:, 5, 5,14) = (/ &
+ & 0.14311E+04_JPRB,0.13054E+04_JPRB,0.10738E+04_JPRB,0.10079E+04_JPRB,0.72704E+03_JPRB, &
+ & 0.74437E+03_JPRB,0.88461E+03_JPRB,0.10260E+04_JPRB,0.11675E+04_JPRB /)  
+KA(:, 1, 6,14) = (/ &
+ & 0.14715E+04_JPRB,0.12798E+04_JPRB,0.11182E+04_JPRB,0.92160E+03_JPRB,0.75379E+03_JPRB, &
+ & 0.75023E+03_JPRB,0.89251E+03_JPRB,0.10348E+04_JPRB,0.11771E+04_JPRB /)  
+KA(:, 2, 6,14) = (/ &
+ & 0.14479E+04_JPRB,0.12414E+04_JPRB,0.11222E+04_JPRB,0.91289E+03_JPRB,0.75013E+03_JPRB, &
+ & 0.74921E+03_JPRB,0.89141E+03_JPRB,0.10336E+04_JPRB,0.11758E+04_JPRB /)  
+KA(:, 3, 6,14) = (/ &
+ & 0.14270E+04_JPRB,0.12651E+04_JPRB,0.10793E+04_JPRB,0.91215E+03_JPRB,0.74649E+03_JPRB, &
+ & 0.74796E+03_JPRB,0.89005E+03_JPRB,0.10321E+04_JPRB,0.11739E+04_JPRB /)  
+KA(:, 4, 6,14) = (/ &
+ & 0.14058E+04_JPRB,0.12702E+04_JPRB,0.11005E+04_JPRB,0.93809E+03_JPRB,0.69854E+03_JPRB, &
+ & 0.74632E+03_JPRB,0.88820E+03_JPRB,0.10301E+04_JPRB,0.11720E+04_JPRB /)  
+KA(:, 5, 6,14) = (/ &
+ & 0.14048E+04_JPRB,0.12100E+04_JPRB,0.10413E+04_JPRB,0.84934E+03_JPRB,0.69794E+03_JPRB, &
+ & 0.74429E+03_JPRB,0.88588E+03_JPRB,0.10284E+04_JPRB,0.11701E+04_JPRB /)  
+KA(:, 1, 7,14) = (/ &
+ & 0.14325E+04_JPRB,0.12413E+04_JPRB,0.10595E+04_JPRB,0.88906E+03_JPRB,0.71717E+03_JPRB, &
+ & 0.75037E+03_JPRB,0.89273E+03_JPRB,0.10353E+04_JPRB,0.11779E+04_JPRB /)  
+KA(:, 2, 7,14) = (/ &
+ & 0.13620E+04_JPRB,0.12089E+04_JPRB,0.10598E+04_JPRB,0.89550E+03_JPRB,0.73134E+03_JPRB, &
+ & 0.74911E+03_JPRB,0.89161E+03_JPRB,0.10341E+04_JPRB,0.11766E+04_JPRB /)  
+KA(:, 3, 7,14) = (/ &
+ & 0.13346E+04_JPRB,0.12111E+04_JPRB,0.10262E+04_JPRB,0.84775E+03_JPRB,0.68161E+03_JPRB, &
+ & 0.74811E+03_JPRB,0.89050E+03_JPRB,0.10329E+04_JPRB,0.11753E+04_JPRB /)  
+KA(:, 4, 7,14) = (/ &
+ & 0.13132E+04_JPRB,0.11998E+04_JPRB,0.99757E+03_JPRB,0.86083E+03_JPRB,0.70251E+03_JPRB, &
+ & 0.74653E+03_JPRB,0.88899E+03_JPRB,0.10312E+04_JPRB,0.11735E+04_JPRB /)  
+KA(:, 5, 7,14) = (/ &
+ & 0.13232E+04_JPRB,0.11634E+04_JPRB,0.10230E+04_JPRB,0.84353E+03_JPRB,0.68339E+03_JPRB, &
+ & 0.74500E+03_JPRB,0.88698E+03_JPRB,0.10287E+04_JPRB,0.11709E+04_JPRB /)  
+KA(:, 1, 8,14) = (/ &
+ & 0.13366E+04_JPRB,0.11630E+04_JPRB,0.10188E+04_JPRB,0.86405E+03_JPRB,0.71800E+03_JPRB, &
+ & 0.75008E+03_JPRB,0.89285E+03_JPRB,0.10357E+04_JPRB,0.11785E+04_JPRB /)  
+KA(:, 2, 8,14) = (/ &
+ & 0.13647E+04_JPRB,0.11518E+04_JPRB,0.10110E+04_JPRB,0.84719E+03_JPRB,0.67819E+03_JPRB, &
+ & 0.74911E+03_JPRB,0.89187E+03_JPRB,0.10343E+04_JPRB,0.11777E+04_JPRB /)  
+KA(:, 3, 8,14) = (/ &
+ & 0.13128E+04_JPRB,0.11472E+04_JPRB,0.99038E+03_JPRB,0.82656E+03_JPRB,0.66483E+03_JPRB, &
+ & 0.74815E+03_JPRB,0.89080E+03_JPRB,0.10335E+04_JPRB,0.11761E+04_JPRB /)  
+KA(:, 4, 8,14) = (/ &
+ & 0.12817E+04_JPRB,0.11127E+04_JPRB,0.10092E+04_JPRB,0.82047E+03_JPRB,0.65442E+03_JPRB, &
+ & 0.74685E+03_JPRB,0.88933E+03_JPRB,0.10318E+04_JPRB,0.11746E+04_JPRB /)  
+KA(:, 5, 8,14) = (/ &
+ & 0.13162E+04_JPRB,0.11356E+04_JPRB,0.98305E+03_JPRB,0.84668E+03_JPRB,0.66544E+03_JPRB, &
+ & 0.74558E+03_JPRB,0.88790E+03_JPRB,0.10302E+04_JPRB,0.11725E+04_JPRB /)  
+KA(:, 1, 9,14) = (/ &
+ & 0.13174E+04_JPRB,0.11399E+04_JPRB,0.97696E+03_JPRB,0.84117E+03_JPRB,0.66145E+03_JPRB, &
+ & 0.75011E+03_JPRB,0.89307E+03_JPRB,0.10362E+04_JPRB,0.11789E+04_JPRB /)  
+KA(:, 2, 9,14) = (/ &
+ & 0.13196E+04_JPRB,0.11310E+04_JPRB,0.99094E+03_JPRB,0.80674E+03_JPRB,0.67265E+03_JPRB, &
+ & 0.74915E+03_JPRB,0.89213E+03_JPRB,0.10351E+04_JPRB,0.11781E+04_JPRB /)  
+KA(:, 3, 9,14) = (/ &
+ & 0.12950E+04_JPRB,0.10983E+04_JPRB,0.10229E+04_JPRB,0.86051E+03_JPRB,0.66007E+03_JPRB, &
+ & 0.74819E+03_JPRB,0.89107E+03_JPRB,0.10339E+04_JPRB,0.11768E+04_JPRB /)  
+KA(:, 4, 9,14) = (/ &
+ & 0.12605E+04_JPRB,0.10785E+04_JPRB,0.10061E+04_JPRB,0.79531E+03_JPRB,0.63414E+03_JPRB, &
+ & 0.74728E+03_JPRB,0.89004E+03_JPRB,0.10328E+04_JPRB,0.11756E+04_JPRB /)  
+KA(:, 5, 9,14) = (/ &
+ & 0.12553E+04_JPRB,0.10628E+04_JPRB,0.94908E+03_JPRB,0.82074E+03_JPRB,0.64983E+03_JPRB, &
+ & 0.74606E+03_JPRB,0.88866E+03_JPRB,0.10313E+04_JPRB,0.11739E+04_JPRB /)  
+KA(:, 1,10,14) = (/ &
+ & 0.13413E+04_JPRB,0.11632E+04_JPRB,0.10048E+04_JPRB,0.80476E+03_JPRB,0.65189E+03_JPRB, &
+ & 0.75022E+03_JPRB,0.89354E+03_JPRB,0.10369E+04_JPRB,0.11806E+04_JPRB /)  
+KA(:, 2,10,14) = (/ &
+ & 0.12838E+04_JPRB,0.11017E+04_JPRB,0.10173E+04_JPRB,0.85213E+03_JPRB,0.64367E+03_JPRB, &
+ & 0.74909E+03_JPRB,0.89223E+03_JPRB,0.10354E+04_JPRB,0.11786E+04_JPRB /)  
+KA(:, 3,10,14) = (/ &
+ & 0.12657E+04_JPRB,0.11229E+04_JPRB,0.92134E+03_JPRB,0.80214E+03_JPRB,0.64195E+03_JPRB, &
+ & 0.74870E+03_JPRB,0.89159E+03_JPRB,0.10344E+04_JPRB,0.11778E+04_JPRB /)  
+KA(:, 4,10,14) = (/ &
+ & 0.12310E+04_JPRB,0.10594E+04_JPRB,0.92792E+03_JPRB,0.78251E+03_JPRB,0.62401E+03_JPRB, &
+ & 0.74734E+03_JPRB,0.89003E+03_JPRB,0.10332E+04_JPRB,0.11762E+04_JPRB /)  
+KA(:, 5,10,14) = (/ &
+ & 0.12088E+04_JPRB,0.10663E+04_JPRB,0.92275E+03_JPRB,0.77707E+03_JPRB,0.64354E+03_JPRB, &
+ & 0.74634E+03_JPRB,0.88914E+03_JPRB,0.10320E+04_JPRB,0.11748E+04_JPRB /)  
+KA(:, 1,11,14) = (/ &
+ & 0.12205E+04_JPRB,0.10982E+04_JPRB,0.93349E+03_JPRB,0.79899E+03_JPRB,0.64961E+03_JPRB, &
+ & 0.74981E+03_JPRB,0.89329E+03_JPRB,0.10368E+04_JPRB,0.11803E+04_JPRB /)  
+KA(:, 2,11,14) = (/ &
+ & 0.12266E+04_JPRB,0.10977E+04_JPRB,0.90836E+03_JPRB,0.76723E+03_JPRB,0.61851E+03_JPRB, &
+ & 0.74871E+03_JPRB,0.89199E+03_JPRB,0.10353E+04_JPRB,0.11786E+04_JPRB /)  
+KA(:, 3,11,14) = (/ &
+ & 0.11876E+04_JPRB,0.10750E+04_JPRB,0.92258E+03_JPRB,0.76849E+03_JPRB,0.61349E+03_JPRB, &
+ & 0.74902E+03_JPRB,0.89163E+03_JPRB,0.10343E+04_JPRB,0.11775E+04_JPRB /)  
+KA(:, 4,11,14) = (/ &
+ & 0.12363E+04_JPRB,0.10327E+04_JPRB,0.91965E+03_JPRB,0.74736E+03_JPRB,0.60206E+03_JPRB, &
+ & 0.74703E+03_JPRB,0.88982E+03_JPRB,0.10331E+04_JPRB,0.11762E+04_JPRB /)  
+KA(:, 5,11,14) = (/ &
+ & 0.11827E+04_JPRB,0.10266E+04_JPRB,0.89018E+03_JPRB,0.76668E+03_JPRB,0.60360E+03_JPRB, &
+ & 0.74604E+03_JPRB,0.88895E+03_JPRB,0.10316E+04_JPRB,0.11748E+04_JPRB /)  
+KA(:, 1,12,14) = (/ &
+ & 0.11808E+04_JPRB,0.10792E+04_JPRB,0.88334E+03_JPRB,0.76947E+03_JPRB,0.60663E+03_JPRB, &
+ & 0.74904E+03_JPRB,0.89307E+03_JPRB,0.10367E+04_JPRB,0.11803E+04_JPRB /)  
+KA(:, 2,12,14) = (/ &
+ & 0.12120E+04_JPRB,0.10402E+04_JPRB,0.92096E+03_JPRB,0.78880E+03_JPRB,0.60609E+03_JPRB, &
+ & 0.74841E+03_JPRB,0.89179E+03_JPRB,0.10352E+04_JPRB,0.11786E+04_JPRB /)  
+KA(:, 3,12,14) = (/ &
+ & 0.12016E+04_JPRB,0.10899E+04_JPRB,0.90018E+03_JPRB,0.73017E+03_JPRB,0.60527E+03_JPRB, &
+ & 0.75028E+03_JPRB,0.89119E+03_JPRB,0.10342E+04_JPRB,0.11778E+04_JPRB /)  
+KA(:, 4,12,14) = (/ &
+ & 0.11901E+04_JPRB,0.10101E+04_JPRB,0.88929E+03_JPRB,0.75342E+03_JPRB,0.60426E+03_JPRB, &
+ & 0.74677E+03_JPRB,0.88991E+03_JPRB,0.10327E+04_JPRB,0.11762E+04_JPRB /)  
+KA(:, 5,12,14) = (/ &
+ & 0.12404E+04_JPRB,0.10285E+04_JPRB,0.87283E+03_JPRB,0.77029E+03_JPRB,0.60316E+03_JPRB, &
+ & 0.74579E+03_JPRB,0.88852E+03_JPRB,0.10318E+04_JPRB,0.11748E+04_JPRB /)  
+KA(:, 1,13,14) = (/ &
+ & 0.11819E+04_JPRB,0.10465E+04_JPRB,0.87588E+03_JPRB,0.72550E+03_JPRB,0.60649E+03_JPRB, &
+ & 0.74922E+03_JPRB,0.89289E+03_JPRB,0.10366E+04_JPRB,0.11799E+04_JPRB /)  
+KA(:, 2,13,14) = (/ &
+ & 0.11759E+04_JPRB,0.10245E+04_JPRB,0.86816E+03_JPRB,0.77411E+03_JPRB,0.60565E+03_JPRB, &
+ & 0.74816E+03_JPRB,0.89163E+03_JPRB,0.10351E+04_JPRB,0.11786E+04_JPRB /)  
+KA(:, 3,13,14) = (/ &
+ & 0.11354E+04_JPRB,0.10124E+04_JPRB,0.96299E+03_JPRB,0.72358E+03_JPRB,0.60486E+03_JPRB, &
+ & 0.74851E+03_JPRB,0.89156E+03_JPRB,0.10341E+04_JPRB,0.11778E+04_JPRB /)  
+KA(:, 4,13,14) = (/ &
+ & 0.11811E+04_JPRB,0.10736E+04_JPRB,0.85638E+03_JPRB,0.74549E+03_JPRB,0.60366E+03_JPRB, &
+ & 0.74655E+03_JPRB,0.88977E+03_JPRB,0.10330E+04_JPRB,0.11762E+04_JPRB /)  
+KA(:, 5,13,14) = (/ &
+ & 0.11332E+04_JPRB,0.99282E+03_JPRB,0.87259E+03_JPRB,0.77082E+03_JPRB,0.60280E+03_JPRB, &
+ & 0.74559E+03_JPRB,0.88865E+03_JPRB,0.10317E+04_JPRB,0.11748E+04_JPRB /)  
+KA(:, 1, 1,15) = (/ &
+ & 0.19847E+04_JPRB,0.16615E+04_JPRB,0.16299E+04_JPRB,0.11466E+04_JPRB,0.10123E+04_JPRB, &
+ & 0.72871E+03_JPRB,0.89405E+03_JPRB,0.10334E+04_JPRB,0.11734E+04_JPRB /)  
+KA(:, 2, 1,15) = (/ &
+ & 0.18867E+04_JPRB,0.16470E+04_JPRB,0.14051E+04_JPRB,0.12848E+04_JPRB,0.91870E+03_JPRB, &
+ & 0.75104E+03_JPRB,0.89013E+03_JPRB,0.10307E+04_JPRB,0.11650E+04_JPRB /)  
+KA(:, 3, 1,15) = (/ &
+ & 0.17405E+04_JPRB,0.16240E+04_JPRB,0.14364E+04_JPRB,0.10773E+04_JPRB,0.10008E+04_JPRB, &
+ & 0.74790E+03_JPRB,0.89023E+03_JPRB,0.10382E+04_JPRB,0.11720E+04_JPRB /)  
+KA(:, 4, 1,15) = (/ &
+ & 0.19099E+04_JPRB,0.16930E+04_JPRB,0.14454E+04_JPRB,0.12410E+04_JPRB,0.95925E+03_JPRB, &
+ & 0.74605E+03_JPRB,0.88544E+03_JPRB,0.10248E+04_JPRB,0.11651E+04_JPRB /)  
+KA(:, 5, 1,15) = (/ &
+ & 0.19738E+04_JPRB,0.13892E+04_JPRB,0.14377E+04_JPRB,0.12129E+04_JPRB,0.77083E+03_JPRB, &
+ & 0.74496E+03_JPRB,0.88458E+03_JPRB,0.10242E+04_JPRB,0.11638E+04_JPRB /)  
+KA(:, 1, 2,15) = (/ &
+ & 0.18788E+04_JPRB,0.15414E+04_JPRB,0.14391E+04_JPRB,0.94831E+03_JPRB,0.88384E+03_JPRB, &
+ & 0.75320E+03_JPRB,0.89399E+03_JPRB,0.10340E+04_JPRB,0.11746E+04_JPRB /)  
+KA(:, 2, 2,15) = (/ &
+ & 0.16660E+04_JPRB,0.14507E+04_JPRB,0.12145E+04_JPRB,0.11753E+04_JPRB,0.91977E+03_JPRB, &
+ & 0.75003E+03_JPRB,0.89113E+03_JPRB,0.10308E+04_JPRB,0.11712E+04_JPRB /)  
+KA(:, 3, 2,15) = (/ &
+ & 0.15746E+04_JPRB,0.14551E+04_JPRB,0.13375E+04_JPRB,0.10698E+04_JPRB,0.76931E+03_JPRB, &
+ & 0.74657E+03_JPRB,0.88729E+03_JPRB,0.10267E+04_JPRB,0.11695E+04_JPRB /)  
+KA(:, 4, 2,15) = (/ &
+ & 0.16772E+04_JPRB,0.16415E+04_JPRB,0.13391E+04_JPRB,0.10287E+04_JPRB,0.88207E+03_JPRB, &
+ & 0.74593E+03_JPRB,0.88530E+03_JPRB,0.10252E+04_JPRB,0.11661E+04_JPRB /)  
+KA(:, 5, 2,15) = (/ &
+ & 0.16581E+04_JPRB,0.15452E+04_JPRB,0.12479E+04_JPRB,0.10067E+04_JPRB,0.83698E+03_JPRB, &
+ & 0.74419E+03_JPRB,0.88279E+03_JPRB,0.10234E+04_JPRB,0.11634E+04_JPRB /)  
+KA(:, 1, 3,15) = (/ &
+ & 0.17888E+04_JPRB,0.13395E+04_JPRB,0.12224E+04_JPRB,0.11479E+04_JPRB,0.91734E+03_JPRB, &
+ & 0.75291E+03_JPRB,0.89358E+03_JPRB,0.10348E+04_JPRB,0.11761E+04_JPRB /)  
+KA(:, 2, 3,15) = (/ &
+ & 0.16146E+04_JPRB,0.11805E+04_JPRB,0.12709E+04_JPRB,0.85911E+03_JPRB,0.90210E+03_JPRB, &
+ & 0.75028E+03_JPRB,0.89203E+03_JPRB,0.10324E+04_JPRB,0.11734E+04_JPRB /)  
+KA(:, 3, 3,15) = (/ &
+ & 0.14717E+04_JPRB,0.15353E+04_JPRB,0.12224E+04_JPRB,0.96001E+03_JPRB,0.77554E+03_JPRB, &
+ & 0.74753E+03_JPRB,0.88823E+03_JPRB,0.10297E+04_JPRB,0.11678E+04_JPRB /)  
+KA(:, 4, 3,15) = (/ &
+ & 0.15479E+04_JPRB,0.14535E+04_JPRB,0.11756E+04_JPRB,0.99609E+03_JPRB,0.71892E+03_JPRB, &
+ & 0.74634E+03_JPRB,0.88703E+03_JPRB,0.10366E+04_JPRB,0.11684E+04_JPRB /)  
+KA(:, 5, 3,15) = (/ &
+ & 0.15155E+04_JPRB,0.14515E+04_JPRB,0.11733E+04_JPRB,0.10638E+04_JPRB,0.80510E+03_JPRB, &
+ & 0.74461E+03_JPRB,0.88580E+03_JPRB,0.10240E+04_JPRB,0.11652E+04_JPRB /)  
+KA(:, 1, 4,15) = (/ &
+ & 0.15848E+04_JPRB,0.14083E+04_JPRB,0.12006E+04_JPRB,0.10439E+04_JPRB,0.81336E+03_JPRB, &
+ & 0.75201E+03_JPRB,0.89444E+03_JPRB,0.10363E+04_JPRB,0.11781E+04_JPRB /)  
+KA(:, 2, 4,15) = (/ &
+ & 0.13736E+04_JPRB,0.13760E+04_JPRB,0.12165E+04_JPRB,0.94289E+03_JPRB,0.75006E+03_JPRB, &
+ & 0.75167E+03_JPRB,0.89210E+03_JPRB,0.10337E+04_JPRB,0.11753E+04_JPRB /)  
+KA(:, 3, 4,15) = (/ &
+ & 0.14353E+04_JPRB,0.13702E+04_JPRB,0.10217E+04_JPRB,0.10119E+04_JPRB,0.72585E+03_JPRB, &
+ & 0.74883E+03_JPRB,0.88956E+03_JPRB,0.10325E+04_JPRB,0.11731E+04_JPRB /)  
+KA(:, 4, 4,15) = (/ &
+ & 0.14295E+04_JPRB,0.12548E+04_JPRB,0.12198E+04_JPRB,0.96945E+03_JPRB,0.84557E+03_JPRB, &
+ & 0.73846E+03_JPRB,0.88641E+03_JPRB,0.10258E+04_JPRB,0.11703E+04_JPRB /)  
+KA(:, 5, 4,15) = (/ &
+ & 0.15742E+04_JPRB,0.13268E+04_JPRB,0.10395E+04_JPRB,0.90301E+03_JPRB,0.67604E+03_JPRB, &
+ & 0.74473E+03_JPRB,0.88569E+03_JPRB,0.10266E+04_JPRB,0.11676E+04_JPRB /)  
+KA(:, 1, 5,15) = (/ &
+ & 0.15038E+04_JPRB,0.11787E+04_JPRB,0.11191E+04_JPRB,0.96573E+03_JPRB,0.74364E+03_JPRB, &
+ & 0.75161E+03_JPRB,0.89373E+03_JPRB,0.10358E+04_JPRB,0.11780E+04_JPRB /)  
+KA(:, 2, 5,15) = (/ &
+ & 0.12972E+04_JPRB,0.14157E+04_JPRB,0.10073E+04_JPRB,0.10120E+04_JPRB,0.78829E+03_JPRB, &
+ & 0.75051E+03_JPRB,0.89254E+03_JPRB,0.10346E+04_JPRB,0.11785E+04_JPRB /)  
+KA(:, 3, 5,15) = (/ &
+ & 0.15562E+04_JPRB,0.12980E+04_JPRB,0.11053E+04_JPRB,0.96784E+03_JPRB,0.68156E+03_JPRB, &
+ & 0.74938E+03_JPRB,0.89063E+03_JPRB,0.10325E+04_JPRB,0.11743E+04_JPRB /)  
+KA(:, 4, 5,15) = (/ &
+ & 0.15203E+04_JPRB,0.12953E+04_JPRB,0.96757E+03_JPRB,0.95061E+03_JPRB,0.68480E+03_JPRB, &
+ & 0.74750E+03_JPRB,0.88780E+03_JPRB,0.10293E+04_JPRB,0.11708E+04_JPRB /)  
+KA(:, 5, 5,15) = (/ &
+ & 0.14730E+04_JPRB,0.11456E+04_JPRB,0.11151E+04_JPRB,0.68408E+03_JPRB,0.76176E+03_JPRB, &
+ & 0.75307E+03_JPRB,0.89322E+03_JPRB,0.10317E+04_JPRB,0.11682E+04_JPRB /)  
+KA(:, 1, 6,15) = (/ &
+ & 0.15240E+04_JPRB,0.12794E+04_JPRB,0.10826E+04_JPRB,0.93131E+03_JPRB,0.69525E+03_JPRB, &
+ & 0.75122E+03_JPRB,0.89364E+03_JPRB,0.10361E+04_JPRB,0.11785E+04_JPRB /)  
+KA(:, 2, 6,15) = (/ &
+ & 0.13735E+04_JPRB,0.12837E+04_JPRB,0.10725E+04_JPRB,0.91616E+03_JPRB,0.69548E+03_JPRB, &
+ & 0.75041E+03_JPRB,0.89279E+03_JPRB,0.10360E+04_JPRB,0.11776E+04_JPRB /)  
+KA(:, 3, 6,15) = (/ &
+ & 0.14287E+04_JPRB,0.11366E+04_JPRB,0.10240E+04_JPRB,0.87529E+03_JPRB,0.70795E+03_JPRB, &
+ & 0.75034E+03_JPRB,0.89142E+03_JPRB,0.10337E+04_JPRB,0.11759E+04_JPRB /)  
+KA(:, 4, 6,15) = (/ &
+ & 0.12768E+04_JPRB,0.11078E+04_JPRB,0.98805E+03_JPRB,0.76254E+03_JPRB,0.77383E+03_JPRB, &
+ & 0.74782E+03_JPRB,0.88921E+03_JPRB,0.10312E+04_JPRB,0.11732E+04_JPRB /)  
+KA(:, 5, 6,15) = (/ &
+ & 0.13045E+04_JPRB,0.12087E+04_JPRB,0.10585E+04_JPRB,0.89185E+03_JPRB,0.69378E+03_JPRB, &
+ & 0.74461E+03_JPRB,0.88618E+03_JPRB,0.10253E+04_JPRB,0.11684E+04_JPRB /)  
+KA(:, 1, 7,15) = (/ &
+ & 0.13068E+04_JPRB,0.11778E+04_JPRB,0.10485E+04_JPRB,0.87245E+03_JPRB,0.70237E+03_JPRB, &
+ & 0.75029E+03_JPRB,0.89358E+03_JPRB,0.10363E+04_JPRB,0.11790E+04_JPRB /)  
+KA(:, 2, 7,15) = (/ &
+ & 0.13988E+04_JPRB,0.11525E+04_JPRB,0.98924E+03_JPRB,0.83779E+03_JPRB,0.64617E+03_JPRB, &
+ & 0.75022E+03_JPRB,0.89357E+03_JPRB,0.10355E+04_JPRB,0.11782E+04_JPRB /)  
+KA(:, 3, 7,15) = (/ &
+ & 0.14294E+04_JPRB,0.11695E+04_JPRB,0.10182E+04_JPRB,0.91196E+03_JPRB,0.69696E+03_JPRB, &
+ & 0.74932E+03_JPRB,0.89330E+03_JPRB,0.10353E+04_JPRB,0.11780E+04_JPRB /)  
+KA(:, 4, 7,15) = (/ &
+ & 0.14082E+04_JPRB,0.10640E+04_JPRB,0.10540E+04_JPRB,0.79295E+03_JPRB,0.62688E+03_JPRB, &
+ & 0.74789E+03_JPRB,0.89097E+03_JPRB,0.10327E+04_JPRB,0.11750E+04_JPRB /)  
+KA(:, 5, 7,15) = (/ &
+ & 0.13514E+04_JPRB,0.12038E+04_JPRB,0.10012E+04_JPRB,0.83544E+03_JPRB,0.67927E+03_JPRB, &
+ & 0.74629E+03_JPRB,0.88843E+03_JPRB,0.10298E+04_JPRB,0.11718E+04_JPRB /)  
+KA(:, 1, 8,15) = (/ &
+ & 0.14761E+04_JPRB,0.12412E+04_JPRB,0.10429E+04_JPRB,0.84370E+03_JPRB,0.62388E+03_JPRB, &
+ & 0.75133E+03_JPRB,0.89371E+03_JPRB,0.10367E+04_JPRB,0.11796E+04_JPRB /)  
+KA(:, 2, 8,15) = (/ &
+ & 0.12119E+04_JPRB,0.11409E+04_JPRB,0.10121E+04_JPRB,0.85755E+03_JPRB,0.70976E+03_JPRB, &
+ & 0.74998E+03_JPRB,0.89216E+03_JPRB,0.10357E+04_JPRB,0.11786E+04_JPRB /)  
+KA(:, 3, 8,15) = (/ &
+ & 0.12581E+04_JPRB,0.11663E+04_JPRB,0.10198E+04_JPRB,0.88649E+03_JPRB,0.69509E+03_JPRB, &
+ & 0.74932E+03_JPRB,0.89355E+03_JPRB,0.10350E+04_JPRB,0.11787E+04_JPRB /)  
+KA(:, 4, 8,15) = (/ &
+ & 0.12478E+04_JPRB,0.12066E+04_JPRB,0.87201E+03_JPRB,0.84155E+03_JPRB,0.70223E+03_JPRB, &
+ & 0.74886E+03_JPRB,0.89098E+03_JPRB,0.10337E+04_JPRB,0.11764E+04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART10',1,ZHOOK_HANDLE)
+END SUBROUTINE PART10
+
+
+SUBROUTINE PART11
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART11',0,ZHOOK_HANDLE)
+
+
+KA(:, 5, 8,15) = (/ &
+ & 0.12322E+04_JPRB,0.11048E+04_JPRB,0.93070E+03_JPRB,0.68296E+03_JPRB,0.66022E+03_JPRB, &
+ & 0.74776E+03_JPRB,0.88972E+03_JPRB,0.10315E+04_JPRB,0.11748E+04_JPRB /)  
+KA(:, 1, 9,15) = (/ &
+ & 0.13164E+04_JPRB,0.12093E+04_JPRB,0.10729E+04_JPRB,0.80022E+03_JPRB,0.68605E+03_JPRB, &
+ & 0.75075E+03_JPRB,0.89396E+03_JPRB,0.10372E+04_JPRB,0.11804E+04_JPRB /)  
+KA(:, 2, 9,15) = (/ &
+ & 0.12738E+04_JPRB,0.11851E+04_JPRB,0.88381E+03_JPRB,0.85846E+03_JPRB,0.65813E+03_JPRB, &
+ & 0.74985E+03_JPRB,0.89295E+03_JPRB,0.10369E+04_JPRB,0.11792E+04_JPRB /)  
+KA(:, 3, 9,15) = (/ &
+ & 0.12657E+04_JPRB,0.12031E+04_JPRB,0.79849E+03_JPRB,0.64636E+03_JPRB,0.60824E+03_JPRB, &
+ & 0.74924E+03_JPRB,0.89227E+03_JPRB,0.10353E+04_JPRB,0.11783E+04_JPRB /)  
+KA(:, 4, 9,15) = (/ &
+ & 0.12866E+04_JPRB,0.11531E+04_JPRB,0.85958E+03_JPRB,0.76890E+03_JPRB,0.66204E+03_JPRB, &
+ & 0.74965E+03_JPRB,0.89143E+03_JPRB,0.10344E+04_JPRB,0.11773E+04_JPRB /)  
+KA(:, 5, 9,15) = (/ &
+ & 0.11604E+04_JPRB,0.11730E+04_JPRB,0.87009E+03_JPRB,0.73148E+03_JPRB,0.58106E+03_JPRB, &
+ & 0.74723E+03_JPRB,0.88998E+03_JPRB,0.10327E+04_JPRB,0.11755E+04_JPRB /)  
+KA(:, 1,10,15) = (/ &
+ & 0.11188E+04_JPRB,0.99215E+03_JPRB,0.73460E+03_JPRB,0.83046E+03_JPRB,0.68844E+03_JPRB, &
+ & 0.75085E+03_JPRB,0.89429E+03_JPRB,0.10377E+04_JPRB,0.11803E+04_JPRB /)  
+KA(:, 2,10,15) = (/ &
+ & 0.12059E+04_JPRB,0.10804E+04_JPRB,0.70761E+03_JPRB,0.65712E+03_JPRB,0.66535E+03_JPRB, &
+ & 0.74980E+03_JPRB,0.89311E+03_JPRB,0.10364E+04_JPRB,0.11807E+04_JPRB /)  
+KA(:, 3,10,15) = (/ &
+ & 0.11817E+04_JPRB,0.10195E+04_JPRB,0.95365E+03_JPRB,0.71601E+03_JPRB,0.59959E+03_JPRB, &
+ & 0.74791E+03_JPRB,0.89228E+03_JPRB,0.10355E+04_JPRB,0.11778E+04_JPRB /)  
+KA(:, 4,10,15) = (/ &
+ & 0.11350E+04_JPRB,0.11533E+04_JPRB,0.91058E+03_JPRB,0.81845E+03_JPRB,0.64874E+03_JPRB, &
+ & 0.74908E+03_JPRB,0.89233E+03_JPRB,0.10356E+04_JPRB,0.11779E+04_JPRB /)  
+KA(:, 5,10,15) = (/ &
+ & 0.12000E+04_JPRB,0.10896E+04_JPRB,0.93671E+03_JPRB,0.81314E+03_JPRB,0.60750E+03_JPRB, &
+ & 0.74754E+03_JPRB,0.89053E+03_JPRB,0.10335E+04_JPRB,0.11765E+04_JPRB /)  
+KA(:, 1,11,15) = (/ &
+ & 0.12887E+04_JPRB,0.10795E+04_JPRB,0.92507E+03_JPRB,0.76020E+03_JPRB,0.61621E+03_JPRB, &
+ & 0.75046E+03_JPRB,0.89404E+03_JPRB,0.10376E+04_JPRB,0.11812E+04_JPRB /)  
+KA(:, 2,11,15) = (/ &
+ & 0.11864E+04_JPRB,0.99352E+03_JPRB,0.96688E+03_JPRB,0.81999E+03_JPRB,0.65449E+03_JPRB, &
+ & 0.74944E+03_JPRB,0.89287E+03_JPRB,0.10363E+04_JPRB,0.11797E+04_JPRB /)  
+KA(:, 3,11,15) = (/ &
+ & 0.11946E+04_JPRB,0.10069E+04_JPRB,0.91904E+03_JPRB,0.81170E+03_JPRB,0.65606E+03_JPRB, &
+ & 0.74582E+03_JPRB,0.89066E+03_JPRB,0.10354E+04_JPRB,0.11787E+04_JPRB /)  
+KA(:, 4,11,15) = (/ &
+ & 0.10269E+04_JPRB,0.10463E+04_JPRB,0.82697E+03_JPRB,0.81731E+03_JPRB,0.61185E+03_JPRB, &
+ & 0.74876E+03_JPRB,0.89142E+03_JPRB,0.10347E+04_JPRB,0.11779E+04_JPRB /)  
+KA(:, 5,11,15) = (/ &
+ & 0.11483E+04_JPRB,0.10490E+04_JPRB,0.91718E+03_JPRB,0.72295E+03_JPRB,0.60510E+03_JPRB, &
+ & 0.74783E+03_JPRB,0.89173E+03_JPRB,0.10334E+04_JPRB,0.11765E+04_JPRB /)  
+KA(:, 1,12,15) = (/ &
+ & 0.12157E+04_JPRB,0.94948E+03_JPRB,0.89441E+03_JPRB,0.76380E+03_JPRB,0.60866E+03_JPRB, &
+ & 0.75013E+03_JPRB,0.89382E+03_JPRB,0.10375E+04_JPRB,0.11812E+04_JPRB /)  
+KA(:, 2,12,15) = (/ &
+ & 0.10470E+04_JPRB,0.10059E+04_JPRB,0.83704E+03_JPRB,0.70161E+03_JPRB,0.60721E+03_JPRB, &
+ & 0.74914E+03_JPRB,0.89267E+03_JPRB,0.10370E+04_JPRB,0.11807E+04_JPRB /)  
+KA(:, 3,12,15) = (/ &
+ & 0.10541E+04_JPRB,0.86865E+03_JPRB,0.86614E+03_JPRB,0.79420E+03_JPRB,0.60576E+03_JPRB, &
+ & 0.74144E+03_JPRB,0.89117E+03_JPRB,0.10353E+04_JPRB,0.11778E+04_JPRB /)  
+KA(:, 4,12,15) = (/ &
+ & 0.11152E+04_JPRB,0.10946E+04_JPRB,0.91200E+03_JPRB,0.75719E+03_JPRB,0.60459E+03_JPRB, &
+ & 0.74791E+03_JPRB,0.89124E+03_JPRB,0.10346E+04_JPRB,0.11788E+04_JPRB /)  
+KA(:, 5,12,15) = (/ &
+ & 0.10232E+04_JPRB,0.97767E+03_JPRB,0.95862E+03_JPRB,0.62268E+03_JPRB,0.60382E+03_JPRB, &
+ & 0.74758E+03_JPRB,0.88947E+03_JPRB,0.10333E+04_JPRB,0.11765E+04_JPRB /)  
+KA(:, 1,13,15) = (/ &
+ & 0.11027E+04_JPRB,0.93786E+03_JPRB,0.84040E+03_JPRB,0.77686E+03_JPRB,0.60858E+03_JPRB, &
+ & 0.74987E+03_JPRB,0.89364E+03_JPRB,0.10374E+04_JPRB,0.11812E+04_JPRB /)  
+KA(:, 2,13,15) = (/ &
+ & 0.10816E+04_JPRB,0.10747E+04_JPRB,0.88690E+03_JPRB,0.66213E+03_JPRB,0.60670E+03_JPRB, &
+ & 0.74889E+03_JPRB,0.89251E+03_JPRB,0.10369E+04_JPRB,0.11797E+04_JPRB /)  
+KA(:, 3,13,15) = (/ &
+ & 0.11963E+04_JPRB,0.98701E+03_JPRB,0.69767E+03_JPRB,0.73646E+03_JPRB,0.60528E+03_JPRB, &
+ & 0.74531E+03_JPRB,0.88962E+03_JPRB,0.10352E+04_JPRB,0.11778E+04_JPRB /)  
+KA(:, 4,13,15) = (/ &
+ & 0.10530E+04_JPRB,0.78530E+03_JPRB,0.91477E+03_JPRB,0.71026E+03_JPRB,0.60430E+03_JPRB, &
+ & 0.74770E+03_JPRB,0.89110E+03_JPRB,0.10345E+04_JPRB,0.11779E+04_JPRB /)  
+KA(:, 5,13,15) = (/ &
+ & 0.11409E+04_JPRB,0.10574E+04_JPRB,0.83207E+03_JPRB,0.61034E+03_JPRB,0.60355E+03_JPRB, &
+ & 0.74679E+03_JPRB,0.89073E+03_JPRB,0.10333E+04_JPRB,0.11765E+04_JPRB /)  
+KA(:, 1, 1,16) = (/ &
+ & 0.34848E+03_JPRB,0.49670E+03_JPRB,0.29569E+03_JPRB,0.31627E+03_JPRB,0.46514E+03_JPRB, &
+ & 0.42834E+03_JPRB,0.88848E+03_JPRB,0.10335E+04_JPRB,0.11735E+04_JPRB /)  
+KA(:, 2, 1,16) = (/ &
+ & 0.18044E+04_JPRB,0.87518E+03_JPRB,0.11930E+04_JPRB,0.45580E+03_JPRB,0.83690E+03_JPRB, &
+ & 0.74631E+03_JPRB,0.89022E+03_JPRB,0.10242E+04_JPRB,0.11632E+04_JPRB /)  
+KA(:, 3, 1,16) = (/ &
+ & 0.11196E+04_JPRB,0.73658E+03_JPRB,0.10480E+04_JPRB,0.53695E+03_JPRB,0.39566E+03_JPRB, &
+ & 0.74377E+03_JPRB,0.86775E+03_JPRB,0.94144E+03_JPRB,0.11277E+04_JPRB /)  
+KA(:, 4, 1,16) = (/ &
+ & 0.72013E+03_JPRB,0.40040E+03_JPRB,0.39030E+03_JPRB,0.31401E+03_JPRB,0.31498E+03_JPRB, &
+ & 0.74613E+03_JPRB,0.88553E+03_JPRB,0.10249E+04_JPRB,0.11579E+04_JPRB /)  
+KA(:, 5, 1,16) = (/ &
+ & 0.34789E+03_JPRB,0.14911E+04_JPRB,0.33003E+03_JPRB,0.29522E+03_JPRB,0.31385E+03_JPRB, &
+ & 0.74516E+03_JPRB,0.88480E+03_JPRB,0.10244E+04_JPRB,0.11641E+04_JPRB /)  
+KA(:, 1, 2,16) = (/ &
+ & 0.41247E+03_JPRB,0.81197E+03_JPRB,0.68322E+03_JPRB,0.50855E+03_JPRB,0.24076E+03_JPRB, &
+ & 0.74851E+03_JPRB,0.88842E+03_JPRB,0.10341E+04_JPRB,0.11748E+04_JPRB /)  
+KA(:, 2, 2,16) = (/ &
+ & 0.16209E+04_JPRB,0.56884E+03_JPRB,0.94156E+03_JPRB,0.29182E+03_JPRB,0.46039E+03_JPRB, &
+ & 0.75011E+03_JPRB,0.88557E+03_JPRB,0.10309E+04_JPRB,0.11714E+04_JPRB /)  
+KA(:, 3, 2,16) = (/ &
+ & 0.11534E+04_JPRB,0.51443E+03_JPRB,0.23941E+03_JPRB,0.44358E+03_JPRB,0.58779E+03_JPRB, &
+ & 0.74720E+03_JPRB,0.88237E+03_JPRB,0.10275E+04_JPRB,0.11547E+04_JPRB /)  
+KA(:, 4, 2,16) = (/ &
+ & 0.78193E+03_JPRB,0.30585E+03_JPRB,0.42670E+03_JPRB,0.10365E+04_JPRB,0.43225E+03_JPRB, &
+ & 0.74126E+03_JPRB,0.88535E+03_JPRB,0.10253E+04_JPRB,0.11588E+04_JPRB /)  
+KA(:, 5, 2,16) = (/ &
+ & 0.67509E+03_JPRB,0.40574E+03_JPRB,0.57252E+03_JPRB,0.10353E+04_JPRB,0.15564E+03_JPRB, &
+ & 0.73954E+03_JPRB,0.88360E+03_JPRB,0.10236E+04_JPRB,0.11636E+04_JPRB /)  
+KA(:, 1, 3,16) = (/ &
+ & 0.91257E+03_JPRB,0.11144E+04_JPRB,0.54685E+03_JPRB,0.19037E+03_JPRB,0.25900E+03_JPRB, &
+ & 0.74823E+03_JPRB,0.89369E+03_JPRB,0.10350E+04_JPRB,0.11762E+04_JPRB /)  
+KA(:, 2, 3,16) = (/ &
+ & 0.67162E+03_JPRB,0.10092E+04_JPRB,0.40983E+03_JPRB,0.37826E+03_JPRB,0.42702E+03_JPRB, &
+ & 0.75035E+03_JPRB,0.88647E+03_JPRB,0.10325E+04_JPRB,0.11736E+04_JPRB /)  
+KA(:, 3, 3,16) = (/ &
+ & 0.94657E+03_JPRB,0.26107E+03_JPRB,0.43567E+03_JPRB,0.41065E+03_JPRB,0.70838E+03_JPRB, &
+ & 0.74760E+03_JPRB,0.88832E+03_JPRB,0.10233E+04_JPRB,0.11698E+04_JPRB /)  
+KA(:, 4, 3,16) = (/ &
+ & 0.10618E+03_JPRB,0.45040E+03_JPRB,0.10291E+04_JPRB,0.30237E+03_JPRB,0.57813E+03_JPRB, &
+ & 0.73277E+03_JPRB,0.87582E+03_JPRB,0.95203E+03_JPRB,0.11472E+04_JPRB /)  
+KA(:, 5, 3,16) = (/ &
+ & 0.96551E+03_JPRB,0.68706E+03_JPRB,0.56500E+03_JPRB,0.14865E+03_JPRB,0.35532E+03_JPRB, &
+ & 0.73527E+03_JPRB,0.86908E+03_JPRB,0.10241E+04_JPRB,0.11579E+04_JPRB /)  
+KA(:, 1, 4,16) = (/ &
+ & 0.13211E+04_JPRB,0.11050E+04_JPRB,0.91067E+03_JPRB,0.34788E+03_JPRB,0.76485E+03_JPRB, &
+ & 0.75213E+03_JPRB,0.88892E+03_JPRB,0.10299E+04_JPRB,0.11709E+04_JPRB /)  
+KA(:, 2, 4,16) = (/ &
+ & 0.15543E+04_JPRB,0.92211E+03_JPRB,0.72798E+03_JPRB,0.86839E+03_JPRB,0.36802E+03_JPRB, &
+ & 0.74223E+03_JPRB,0.89219E+03_JPRB,0.10338E+04_JPRB,0.11754E+04_JPRB /)  
+KA(:, 3, 4,16) = (/ &
+ & 0.53676E+03_JPRB,0.46363E+03_JPRB,0.10941E+04_JPRB,0.19958E+03_JPRB,0.68767E+03_JPRB, &
+ & 0.74416E+03_JPRB,0.88965E+03_JPRB,0.10195E+04_JPRB,0.11658E+04_JPRB /)  
+KA(:, 4, 4,16) = (/ &
+ & 0.66992E+03_JPRB,0.61007E+03_JPRB,0.50612E+03_JPRB,0.34999E+03_JPRB,0.19685E+03_JPRB, &
+ & 0.74139E+03_JPRB,0.88155E+03_JPRB,0.10274E+04_JPRB,0.11555E+04_JPRB /)  
+KA(:, 5, 4,16) = (/ &
+ & 0.55226E+03_JPRB,0.42689E+03_JPRB,0.10712E+04_JPRB,0.69959E+03_JPRB,0.69105E+03_JPRB, &
+ & 0.73534E+03_JPRB,0.87452E+03_JPRB,0.10137E+04_JPRB,0.11529E+04_JPRB /)  
+KA(:, 1, 5,16) = (/ &
+ & 0.11854E+04_JPRB,0.90025E+03_JPRB,0.10734E+04_JPRB,0.36732E+03_JPRB,0.51551E+03_JPRB, &
+ & 0.75181E+03_JPRB,0.89397E+03_JPRB,0.10361E+04_JPRB,0.11783E+04_JPRB /)  
+KA(:, 2, 5,16) = (/ &
+ & 0.13933E+04_JPRB,0.23882E+03_JPRB,0.71015E+03_JPRB,0.29765E+03_JPRB,0.88507E+02_JPRB, &
+ & 0.75060E+03_JPRB,0.89266E+03_JPRB,0.10347E+04_JPRB,0.11637E+04_JPRB /)  
+KA(:, 3, 5,16) = (/ &
+ & 0.30783E+03_JPRB,0.72533E+03_JPRB,0.99782E+03_JPRB,0.22581E+03_JPRB,0.21957E+03_JPRB, &
+ & 0.74471E+03_JPRB,0.89072E+03_JPRB,0.10326E+04_JPRB,0.11744E+04_JPRB /)  
+KA(:, 4, 5,16) = (/ &
+ & 0.12756E+03_JPRB,0.23797E+03_JPRB,0.16871E+03_JPRB,0.60625E+03_JPRB,0.35893E+03_JPRB, &
+ & 0.73811E+03_JPRB,0.88789E+03_JPRB,0.10294E+04_JPRB,0.11709E+04_JPRB /)  
+KA(:, 5, 5,16) = (/ &
+ & 0.67577E+03_JPRB,0.67606E+03_JPRB,0.57612E+03_JPRB,0.15439E+03_JPRB,0.22922E+03_JPRB, &
+ & 0.66526E+03_JPRB,0.82593E+03_JPRB,0.98621E+03_JPRB,0.11543E+04_JPRB /)  
+KA(:, 1, 6,16) = (/ &
+ & 0.35294E+03_JPRB,0.92951E+03_JPRB,0.39404E+03_JPRB,0.59466E+03_JPRB,0.46365E+03_JPRB, &
+ & 0.75155E+03_JPRB,0.89403E+03_JPRB,0.10365E+04_JPRB,0.11790E+04_JPRB /)  
+KA(:, 2, 6,16) = (/ &
+ & 0.83494E+03_JPRB,0.91972E+03_JPRB,0.83351E+02_JPRB,0.26459E+03_JPRB,0.33053E+03_JPRB, &
+ & 0.75056E+03_JPRB,0.89298E+03_JPRB,0.10296E+04_JPRB,0.11778E+04_JPRB /)  
+KA(:, 3, 6,16) = (/ &
+ & 0.77495E+02_JPRB,0.67358E+03_JPRB,0.71470E+03_JPRB,0.28985E+03_JPRB,0.12695E+03_JPRB, &
+ & 0.74093E+03_JPRB,0.89153E+03_JPRB,0.10338E+04_JPRB,0.11761E+04_JPRB /)  
+KA(:, 4, 6,16) = (/ &
+ & 0.12524E+04_JPRB,0.52300E+03_JPRB,0.17321E+03_JPRB,0.31958E+03_JPRB,0.15643E+03_JPRB, &
+ & 0.74316E+03_JPRB,0.88930E+03_JPRB,0.10313E+04_JPRB,0.11733E+04_JPRB /)  
+KA(:, 5, 6,16) = (/ &
+ & 0.79880E+03_JPRB,0.54259E+03_JPRB,0.31909E+03_JPRB,0.47791E+03_JPRB,0.45938E+03_JPRB, &
+ & 0.74468E+03_JPRB,0.88626E+03_JPRB,0.10278E+04_JPRB,0.11499E+04_JPRB /)  
+KA(:, 1, 7,16) = (/ &
+ & 0.10078E+04_JPRB,0.83081E+03_JPRB,0.68047E+03_JPRB,0.68284E+03_JPRB,0.57904E+03_JPRB, &
+ & 0.75128E+03_JPRB,0.89403E+03_JPRB,0.10368E+04_JPRB,0.11795E+04_JPRB /)  
+KA(:, 2, 7,16) = (/ &
+ & 0.67323E+03_JPRB,0.10228E+04_JPRB,0.49758E+03_JPRB,0.33578E+03_JPRB,0.38746E+03_JPRB, &
+ & 0.75047E+03_JPRB,0.88822E+03_JPRB,0.10359E+04_JPRB,0.11786E+04_JPRB /)  
+KA(:, 3, 7,16) = (/ &
+ & 0.60358E+03_JPRB,0.41876E+03_JPRB,0.74942E+03_JPRB,0.38757E+03_JPRB,0.61092E+03_JPRB, &
+ & 0.74943E+03_JPRB,0.88213E+03_JPRB,0.10289E+04_JPRB,0.11707E+04_JPRB /)  
+KA(:, 4, 7,16) = (/ &
+ & 0.69109E+03_JPRB,0.11040E+04_JPRB,0.46705E+03_JPRB,0.74628E+03_JPRB,0.47483E+03_JPRB, &
+ & 0.74797E+03_JPRB,0.88542E+03_JPRB,0.10328E+04_JPRB,0.11752E+04_JPRB /)  
+KA(:, 5, 7,16) = (/ &
+ & 0.68277E+03_JPRB,0.46564E+03_JPRB,0.19228E+03_JPRB,0.48854E+03_JPRB,0.28304E+03_JPRB, &
+ & 0.74163E+03_JPRB,0.88289E+03_JPRB,0.10299E+04_JPRB,0.11719E+04_JPRB /)  
+KA(:, 1, 8,16) = (/ &
+ & 0.26685E+03_JPRB,0.60532E+03_JPRB,0.51009E+03_JPRB,0.40907E+03_JPRB,0.39126E+03_JPRB, &
+ & 0.74682E+03_JPRB,0.89396E+03_JPRB,0.10369E+04_JPRB,0.11799E+04_JPRB /)  
+KA(:, 2, 8,16) = (/ &
+ & 0.94869E+03_JPRB,0.11471E+04_JPRB,0.44706E+03_JPRB,0.23151E+03_JPRB,0.93532E+02_JPRB, &
+ & 0.75035E+03_JPRB,0.89331E+03_JPRB,0.10363E+04_JPRB,0.11727E+04_JPRB /)  
+KA(:, 3, 8,16) = (/ &
+ & 0.11588E+04_JPRB,0.74588E+03_JPRB,0.28311E+03_JPRB,0.27864E+03_JPRB,0.32853E+03_JPRB, &
+ & 0.74950E+03_JPRB,0.88246E+03_JPRB,0.10352E+04_JPRB,0.11716E+04_JPRB /)  
+KA(:, 4, 8,16) = (/ &
+ & 0.11874E+04_JPRB,0.47456E+03_JPRB,0.83368E+03_JPRB,0.31591E+03_JPRB,0.30274E+03_JPRB, &
+ & 0.74421E+03_JPRB,0.89109E+03_JPRB,0.10338E+04_JPRB,0.11765E+04_JPRB /)  
+KA(:, 5, 8,16) = (/ &
+ & 0.45710E+03_JPRB,0.66086E+03_JPRB,0.55863E+03_JPRB,0.58037E+03_JPRB,0.20569E+03_JPRB, &
+ & 0.73836E+03_JPRB,0.88417E+03_JPRB,0.10316E+04_JPRB,0.11675E+04_JPRB /)  
+KA(:, 1, 9,16) = (/ &
+ & 0.55233E+03_JPRB,0.18269E+03_JPRB,0.18991E+03_JPRB,0.35964E+03_JPRB,0.38998E+03_JPRB, &
+ & 0.75089E+03_JPRB,0.89415E+03_JPRB,0.10374E+04_JPRB,0.11807E+04_JPRB /)  
+KA(:, 2, 9,16) = (/ &
+ & 0.31819E+03_JPRB,0.14904E+03_JPRB,0.79703E+03_JPRB,0.32317E+03_JPRB,0.20679E+03_JPRB, &
+ & 0.75021E+03_JPRB,0.89337E+03_JPRB,0.10308E+04_JPRB,0.11797E+04_JPRB /)  
+KA(:, 3, 9,16) = (/ &
+ & 0.16059E+03_JPRB,0.37409E+03_JPRB,0.62337E+03_JPRB,0.62951E+03_JPRB,0.47662E+03_JPRB, &
+ & 0.74953E+03_JPRB,0.89262E+03_JPRB,0.10357E+04_JPRB,0.11788E+04_JPRB /)  
+KA(:, 4, 9,16) = (/ &
+ & 0.15191E+03_JPRB,0.63681E+03_JPRB,0.25601E+03_JPRB,0.65772E+03_JPRB,0.38994E+03_JPRB, &
+ & 0.74029E+03_JPRB,0.89158E+03_JPRB,0.10346E+04_JPRB,0.11775E+04_JPRB /)  
+KA(:, 5, 9,16) = (/ &
+ & 0.10392E+04_JPRB,0.33629E+03_JPRB,0.90538E+03_JPRB,0.33435E+03_JPRB,0.46694E+03_JPRB, &
+ & 0.74731E+03_JPRB,0.89008E+03_JPRB,0.10329E+04_JPRB,0.11756E+04_JPRB /)  
+KA(:, 1,10,16) = (/ &
+ & 0.43161E+03_JPRB,0.53194E+03_JPRB,0.82168E+03_JPRB,0.11050E+03_JPRB,0.32159E+02_JPRB, &
+ & 0.75101E+03_JPRB,0.89450E+03_JPRB,0.10380E+04_JPRB,0.11815E+04_JPRB /)  
+KA(:, 2,10,16) = (/ &
+ & 0.23362E+03_JPRB,0.50697E+03_JPRB,0.75913E+03_JPRB,0.37965E+03_JPRB,0.15877E+03_JPRB, &
+ & 0.75002E+03_JPRB,0.89333E+03_JPRB,0.10366E+04_JPRB,0.11734E+04_JPRB /)  
+KA(:, 3,10,16) = (/ &
+ & 0.66577E+03_JPRB,0.22676E+03_JPRB,0.63752E+03_JPRB,0.50488E+03_JPRB,0.52339E+03_JPRB, &
+ & 0.74947E+03_JPRB,0.88778E+03_JPRB,0.10360E+04_JPRB,0.11793E+04_JPRB /)  
+KA(:, 4,10,16) = (/ &
+ & 0.12040E+04_JPRB,0.37222E+03_JPRB,0.71269E+03_JPRB,0.68368E+02_JPRB,0.31445E+03_JPRB, &
+ & 0.74453E+03_JPRB,0.88691E+03_JPRB,0.10293E+04_JPRB,0.11782E+04_JPRB /)  
+KA(:, 5,10,16) = (/ &
+ & 0.85334E+03_JPRB,0.50951E+03_JPRB,0.43397E+03_JPRB,0.11861E+03_JPRB,0.15074E+03_JPRB, &
+ & 0.74764E+03_JPRB,0.89065E+03_JPRB,0.10337E+04_JPRB,0.11767E+04_JPRB /)  
+KA(:, 1,11,16) = (/ &
+ & 0.45853E+03_JPRB,0.29024E+03_JPRB,0.38275E+03_JPRB,0.26130E+03_JPRB,0.12124E+03_JPRB, &
+ & 0.75062E+03_JPRB,0.89424E+03_JPRB,0.10379E+04_JPRB,0.11815E+04_JPRB /)  
+KA(:, 2,11,16) = (/ &
+ & 0.66691E+03_JPRB,0.55656E+03_JPRB,0.39879E+03_JPRB,0.16526E+03_JPRB,0.24675E+03_JPRB, &
+ & 0.74965E+03_JPRB,0.89309E+03_JPRB,0.10365E+04_JPRB,0.11800E+04_JPRB /)  
+KA(:, 3,11,16) = (/ &
+ & 0.10239E+04_JPRB,0.60930E+03_JPRB,0.22001E+03_JPRB,0.10914E+03_JPRB,0.22748E+03_JPRB, &
+ & 0.74913E+03_JPRB,0.89251E+03_JPRB,0.10359E+04_JPRB,0.11793E+04_JPRB /)  
+KA(:, 4,11,16) = (/ &
+ & 0.80567E+03_JPRB,0.90344E+03_JPRB,0.77356E+03_JPRB,0.12489E+03_JPRB,0.55902E+03_JPRB, &
+ & 0.74421E+03_JPRB,0.89165E+03_JPRB,0.10349E+04_JPRB,0.11782E+04_JPRB /)  
+KA(:, 5,11,16) = (/ &
+ & 0.80619E+03_JPRB,0.87963E+03_JPRB,0.47254E+03_JPRB,0.39261E+03_JPRB,0.59752E+03_JPRB, &
+ & 0.74319E+03_JPRB,0.88056E+03_JPRB,0.10336E+04_JPRB,0.11767E+04_JPRB /)  
+KA(:, 1,12,16) = (/ &
+ & 0.54479E+03_JPRB,0.73809E+03_JPRB,0.74534E+03_JPRB,0.30870E+03_JPRB,0.60893E+03_JPRB, &
+ & 0.75030E+03_JPRB,0.89402E+03_JPRB,0.10378E+04_JPRB,0.11815E+04_JPRB /)  
+KA(:, 2,12,16) = (/ &
+ & 0.10600E+04_JPRB,0.76559E+03_JPRB,0.34957E+03_JPRB,0.18602E+03_JPRB,0.60736E+03_JPRB, &
+ & 0.74935E+03_JPRB,0.89289E+03_JPRB,0.10307E+04_JPRB,0.11734E+04_JPRB /)  
+KA(:, 3,12,16) = (/ &
+ & 0.10515E+04_JPRB,0.60079E+03_JPRB,0.43472E+03_JPRB,0.33220E+03_JPRB,0.60582E+03_JPRB, &
+ & 0.74885E+03_JPRB,0.89233E+03_JPRB,0.10358E+04_JPRB,0.11793E+04_JPRB /)  
+KA(:, 4,12,16) = (/ &
+ & 0.32670E+03_JPRB,0.23075E+03_JPRB,0.13581E+03_JPRB,0.17106E+03_JPRB,0.60474E+03_JPRB, &
+ & 0.74811E+03_JPRB,0.89148E+03_JPRB,0.10348E+04_JPRB,0.11717E+04_JPRB /)  
+KA(:, 5,12,16) = (/ &
+ & 0.20371E+03_JPRB,0.68798E+03_JPRB,0.91592E+02_JPRB,0.60316E+03_JPRB,0.60390E+03_JPRB, &
+ & 0.74294E+03_JPRB,0.89029E+03_JPRB,0.10335E+04_JPRB,0.11767E+04_JPRB /)  
+KA(:, 1,13,16) = (/ &
+ & 0.85988E+03_JPRB,0.94717E+03_JPRB,0.84544E+03_JPRB,0.31415E+03_JPRB,0.60500E+03_JPRB, &
+ & 0.75003E+03_JPRB,0.89385E+03_JPRB,0.10377E+04_JPRB,0.11815E+04_JPRB /)  
+KA(:, 2,13,16) = (/ &
+ & 0.10379E+04_JPRB,0.11189E+03_JPRB,0.20733E+03_JPRB,0.17410E+03_JPRB,0.60685E+03_JPRB, &
+ & 0.74910E+03_JPRB,0.89272E+03_JPRB,0.10306E+04_JPRB,0.11800E+04_JPRB /)  
+KA(:, 3,13,16) = (/ &
+ & 0.70206E+03_JPRB,0.77801E+03_JPRB,0.11974E+03_JPRB,0.34591E+03_JPRB,0.60534E+03_JPRB, &
+ & 0.74861E+03_JPRB,0.89217E+03_JPRB,0.10357E+04_JPRB,0.11793E+04_JPRB /)  
+KA(:, 4,13,16) = (/ &
+ & 0.69165E+03_JPRB,0.93369E+03_JPRB,0.16190E+03_JPRB,0.16396E+03_JPRB,0.60445E+03_JPRB, &
+ & 0.74789E+03_JPRB,0.89133E+03_JPRB,0.10348E+04_JPRB,0.11782E+04_JPRB /)  
+KA(:, 5,13,16) = (/ &
+ & 0.20016E+03_JPRB,0.25832E+03_JPRB,0.57797E+03_JPRB,0.24270E+03_JPRB,0.60363E+03_JPRB, &
+ & 0.74689E+03_JPRB,0.88521E+03_JPRB,0.10334E+04_JPRB,0.11767E+04_JPRB /)  
+  
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART11',1,ZHOOK_HANDLE)
+END SUBROUTINE PART11
+
+
+SUBROUTINE PART12
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART12',0,ZHOOK_HANDLE)
+
+
+!     -----------------------------------------------------------------
+!     The array KB contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels < ~100mb and temperatures. The first 
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this pressure 
+!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for
+!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  
+!     The second index, JP, runs from 13 to 59 and refers to the JPth
+!     reference pressure level (see taumol.f for the value of these
+!     pressure levels in mb).  The third index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+!     -----------------------------------------------------------------
+
+KB(:, 1,13, 1) = (/ &
+ & 0.27369E+02_JPRB,0.29903E+03_JPRB,0.42924E+03_JPRB,0.31039E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,13, 1) = (/ &
+ & 0.27158E+02_JPRB,0.29898E+03_JPRB,0.42745E+03_JPRB,0.30840E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,13, 1) = (/ &
+ & 0.26976E+02_JPRB,0.29889E+03_JPRB,0.42590E+03_JPRB,0.30668E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,13, 1) = (/ &
+ & 0.26818E+02_JPRB,0.29875E+03_JPRB,0.42455E+03_JPRB,0.30517E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,13, 1) = (/ &
+ & 0.26679E+02_JPRB,0.29855E+03_JPRB,0.42335E+03_JPRB,0.30384E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,14, 1) = (/ &
+ & 0.26840E+02_JPRB,0.29863E+03_JPRB,0.42474E+03_JPRB,0.30538E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,14, 1) = (/ &
+ & 0.26669E+02_JPRB,0.29862E+03_JPRB,0.42327E+03_JPRB,0.30375E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,14, 1) = (/ &
+ & 0.26522E+02_JPRB,0.29854E+03_JPRB,0.42199E+03_JPRB,0.30234E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,14, 1) = (/ &
+ & 0.26394E+02_JPRB,0.29842E+03_JPRB,0.42088E+03_JPRB,0.30111E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,14, 1) = (/ &
+ & 0.26282E+02_JPRB,0.29824E+03_JPRB,0.41990E+03_JPRB,0.30002E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,15, 1) = (/ &
+ & 0.26408E+02_JPRB,0.29831E+03_JPRB,0.42100E+03_JPRB,0.30124E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,15, 1) = (/ &
+ & 0.26271E+02_JPRB,0.29832E+03_JPRB,0.41980E+03_JPRB,0.29991E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,15, 1) = (/ &
+ & 0.26152E+02_JPRB,0.29826E+03_JPRB,0.41876E+03_JPRB,0.29877E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,15, 1) = (/ &
+ & 0.26049E+02_JPRB,0.29814E+03_JPRB,0.41785E+03_JPRB,0.29776E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,15, 1) = (/ &
+ & 0.25958E+02_JPRB,0.29797E+03_JPRB,0.41705E+03_JPRB,0.29688E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,16, 1) = (/ &
+ & 0.26057E+02_JPRB,0.29806E+03_JPRB,0.41793E+03_JPRB,0.29784E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,16, 1) = (/ &
+ & 0.25946E+02_JPRB,0.29807E+03_JPRB,0.41695E+03_JPRB,0.29676E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,16, 1) = (/ &
+ & 0.25851E+02_JPRB,0.29803E+03_JPRB,0.41610E+03_JPRB,0.29583E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,16, 1) = (/ &
+ & 0.25767E+02_JPRB,0.29792E+03_JPRB,0.41536E+03_JPRB,0.29502E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,16, 1) = (/ &
+ & 0.25694E+02_JPRB,0.29776E+03_JPRB,0.41470E+03_JPRB,0.29430E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,17, 1) = (/ &
+ & 0.25772E+02_JPRB,0.29785E+03_JPRB,0.41540E+03_JPRB,0.29506E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,17, 1) = (/ &
+ & 0.25683E+02_JPRB,0.29787E+03_JPRB,0.41460E+03_JPRB,0.29419E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,17, 1) = (/ &
+ & 0.25606E+02_JPRB,0.29784E+03_JPRB,0.41391E+03_JPRB,0.29343E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,17, 1) = (/ &
+ & 0.25538E+02_JPRB,0.29774E+03_JPRB,0.41331E+03_JPRB,0.29277E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,17, 1) = (/ &
+ & 0.25479E+02_JPRB,0.29758E+03_JPRB,0.41278E+03_JPRB,0.29219E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,18, 1) = (/ &
+ & 0.25541E+02_JPRB,0.29768E+03_JPRB,0.41334E+03_JPRB,0.29280E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,18, 1) = (/ &
+ & 0.25469E+02_JPRB,0.29772E+03_JPRB,0.41269E+03_JPRB,0.29209E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,18, 1) = (/ &
+ & 0.25407E+02_JPRB,0.29768E+03_JPRB,0.41213E+03_JPRB,0.29147E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,18, 1) = (/ &
+ & 0.25353E+02_JPRB,0.29758E+03_JPRB,0.41163E+03_JPRB,0.29094E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,18, 1) = (/ &
+ & 0.25305E+02_JPRB,0.29743E+03_JPRB,0.41120E+03_JPRB,0.29046E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,19, 1) = (/ &
+ & 0.25354E+02_JPRB,0.29755E+03_JPRB,0.41165E+03_JPRB,0.29095E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,19, 1) = (/ &
+ & 0.25296E+02_JPRB,0.29758E+03_JPRB,0.41112E+03_JPRB,0.29037E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,19, 1) = (/ &
+ & 0.25245E+02_JPRB,0.29755E+03_JPRB,0.41067E+03_JPRB,0.28988E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,19, 1) = (/ &
+ & 0.25201E+02_JPRB,0.29746E+03_JPRB,0.41027E+03_JPRB,0.28944E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,19, 1) = (/ &
+ & 0.25163E+02_JPRB,0.29730E+03_JPRB,0.40991E+03_JPRB,0.28905E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,20, 1) = (/ &
+ & 0.25201E+02_JPRB,0.29744E+03_JPRB,0.41026E+03_JPRB,0.28943E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,20, 1) = (/ &
+ & 0.25154E+02_JPRB,0.29748E+03_JPRB,0.40984E+03_JPRB,0.28897E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,20, 1) = (/ &
+ & 0.25113E+02_JPRB,0.29745E+03_JPRB,0.40947E+03_JPRB,0.28856E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,20, 1) = (/ &
+ & 0.25078E+02_JPRB,0.29735E+03_JPRB,0.40914E+03_JPRB,0.28821E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,20, 1) = (/ &
+ & 0.25047E+02_JPRB,0.29719E+03_JPRB,0.40886E+03_JPRB,0.28790E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,21, 1) = (/ &
+ & 0.25076E+02_JPRB,0.29736E+03_JPRB,0.40913E+03_JPRB,0.28819E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,21, 1) = (/ &
+ & 0.25039E+02_JPRB,0.29739E+03_JPRB,0.40879E+03_JPRB,0.28782E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,21, 1) = (/ &
+ & 0.25006E+02_JPRB,0.29736E+03_JPRB,0.40849E+03_JPRB,0.28749E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,21, 1) = (/ &
+ & 0.24978E+02_JPRB,0.29726E+03_JPRB,0.40823E+03_JPRB,0.28722E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,21, 1) = (/ &
+ & 0.24952E+02_JPRB,0.29710E+03_JPRB,0.40800E+03_JPRB,0.28695E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,22, 1) = (/ &
+ & 0.24973E+02_JPRB,0.29729E+03_JPRB,0.40819E+03_JPRB,0.28717E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,22, 1) = (/ &
+ & 0.24944E+02_JPRB,0.29732E+03_JPRB,0.40792E+03_JPRB,0.28687E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,22, 1) = (/ &
+ & 0.24917E+02_JPRB,0.29728E+03_JPRB,0.40768E+03_JPRB,0.28661E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,22, 1) = (/ &
+ & 0.24895E+02_JPRB,0.29717E+03_JPRB,0.40747E+03_JPRB,0.28638E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,22, 1) = (/ &
+ & 0.24874E+02_JPRB,0.29700E+03_JPRB,0.40728E+03_JPRB,0.28618E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,23, 1) = (/ &
+ & 0.24890E+02_JPRB,0.29724E+03_JPRB,0.40743E+03_JPRB,0.28634E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,23, 1) = (/ &
+ & 0.24866E+02_JPRB,0.29726E+03_JPRB,0.40721E+03_JPRB,0.28610E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,23, 1) = (/ &
+ & 0.24846E+02_JPRB,0.29721E+03_JPRB,0.40702E+03_JPRB,0.28589E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,23, 1) = (/ &
+ & 0.24827E+02_JPRB,0.29710E+03_JPRB,0.40685E+03_JPRB,0.28571E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,23, 1) = (/ &
+ & 0.24811E+02_JPRB,0.29692E+03_JPRB,0.40671E+03_JPRB,0.28554E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,24, 1) = (/ &
+ & 0.24823E+02_JPRB,0.29721E+03_JPRB,0.40681E+03_JPRB,0.28566E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,24, 1) = (/ &
+ & 0.24804E+02_JPRB,0.29721E+03_JPRB,0.40664E+03_JPRB,0.28547E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,24, 1) = (/ &
+ & 0.24787E+02_JPRB,0.29715E+03_JPRB,0.40649E+03_JPRB,0.28530E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,24, 1) = (/ &
+ & 0.24773E+02_JPRB,0.29703E+03_JPRB,0.40635E+03_JPRB,0.28516E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,24, 1) = (/ &
+ & 0.24760E+02_JPRB,0.29684E+03_JPRB,0.40623E+03_JPRB,0.28503E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,25, 1) = (/ &
+ & 0.24769E+02_JPRB,0.29717E+03_JPRB,0.40631E+03_JPRB,0.28511E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,25, 1) = (/ &
+ & 0.24753E+02_JPRB,0.29717E+03_JPRB,0.40618E+03_JPRB,0.28496E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,25, 1) = (/ &
+ & 0.24740E+02_JPRB,0.29710E+03_JPRB,0.40606E+03_JPRB,0.28483E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,25, 1) = (/ &
+ & 0.24729E+02_JPRB,0.29696E+03_JPRB,0.40595E+03_JPRB,0.28472E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,25, 1) = (/ &
+ & 0.24718E+02_JPRB,0.29676E+03_JPRB,0.40585E+03_JPRB,0.28462E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,26, 1) = (/ &
+ & 0.24724E+02_JPRB,0.29715E+03_JPRB,0.40591E+03_JPRB,0.28467E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,26, 1) = (/ &
+ & 0.24712E+02_JPRB,0.29713E+03_JPRB,0.40580E+03_JPRB,0.28456E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,26, 1) = (/ &
+ & 0.24702E+02_JPRB,0.29704E+03_JPRB,0.40570E+03_JPRB,0.28445E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,26, 1) = (/ &
+ & 0.24693E+02_JPRB,0.29689E+03_JPRB,0.40562E+03_JPRB,0.28435E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,26, 1) = (/ &
+ & 0.24684E+02_JPRB,0.29668E+03_JPRB,0.40554E+03_JPRB,0.28427E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,27, 1) = (/ &
+ & 0.24689E+02_JPRB,0.29713E+03_JPRB,0.40558E+03_JPRB,0.28431E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,27, 1) = (/ &
+ & 0.24679E+02_JPRB,0.29709E+03_JPRB,0.40550E+03_JPRB,0.28422E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,27, 1) = (/ &
+ & 0.24671E+02_JPRB,0.29699E+03_JPRB,0.40542E+03_JPRB,0.28423E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,27, 1) = (/ &
+ & 0.24664E+02_JPRB,0.29683E+03_JPRB,0.40535E+03_JPRB,0.28405E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,27, 1) = (/ &
+ & 0.24657E+02_JPRB,0.29660E+03_JPRB,0.40529E+03_JPRB,0.28399E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,28, 1) = (/ &
+ & 0.24660E+02_JPRB,0.29710E+03_JPRB,0.40532E+03_JPRB,0.28404E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,28, 1) = (/ &
+ & 0.24653E+02_JPRB,0.29706E+03_JPRB,0.40525E+03_JPRB,0.28395E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,28, 1) = (/ &
+ & 0.24646E+02_JPRB,0.29694E+03_JPRB,0.40519E+03_JPRB,0.28389E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,28, 1) = (/ &
+ & 0.24640E+02_JPRB,0.29676E+03_JPRB,0.40514E+03_JPRB,0.28383E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,28, 1) = (/ &
+ & 0.24635E+02_JPRB,0.29651E+03_JPRB,0.40509E+03_JPRB,0.28376E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,29, 1) = (/ &
+ & 0.24637E+02_JPRB,0.29708E+03_JPRB,0.40511E+03_JPRB,0.28380E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,29, 1) = (/ &
+ & 0.24631E+02_JPRB,0.29702E+03_JPRB,0.40505E+03_JPRB,0.28374E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,29, 1) = (/ &
+ & 0.24626E+02_JPRB,0.29689E+03_JPRB,0.40500E+03_JPRB,0.28368E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,29, 1) = (/ &
+ & 0.24621E+02_JPRB,0.29669E+03_JPRB,0.40496E+03_JPRB,0.28364E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,29, 1) = (/ &
+ & 0.24617E+02_JPRB,0.29643E+03_JPRB,0.40492E+03_JPRB,0.28359E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,30, 1) = (/ &
+ & 0.24619E+02_JPRB,0.29706E+03_JPRB,0.40494E+03_JPRB,0.28360E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,30, 1) = (/ &
+ & 0.24614E+02_JPRB,0.29698E+03_JPRB,0.40489E+03_JPRB,0.28355E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,30, 1) = (/ &
+ & 0.24610E+02_JPRB,0.29683E+03_JPRB,0.40485E+03_JPRB,0.28351E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,30, 1) = (/ &
+ & 0.24606E+02_JPRB,0.29662E+03_JPRB,0.40482E+03_JPRB,0.28347E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,30, 1) = (/ &
+ & 0.24603E+02_JPRB,0.29634E+03_JPRB,0.40479E+03_JPRB,0.28344E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,31, 1) = (/ &
+ & 0.24604E+02_JPRB,0.29704E+03_JPRB,0.40480E+03_JPRB,0.28345E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,31, 1) = (/ &
+ & 0.24600E+02_JPRB,0.29694E+03_JPRB,0.40477E+03_JPRB,0.28341E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,31, 1) = (/ &
+ & 0.24597E+02_JPRB,0.29678E+03_JPRB,0.40473E+03_JPRB,0.28338E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,31, 1) = (/ &
+ & 0.24594E+02_JPRB,0.29655E+03_JPRB,0.40471E+03_JPRB,0.28336E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,31, 1) = (/ &
+ & 0.24591E+02_JPRB,0.29625E+03_JPRB,0.40468E+03_JPRB,0.28332E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,32, 1) = (/ &
+ & 0.24592E+02_JPRB,0.29701E+03_JPRB,0.40469E+03_JPRB,0.28333E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,32, 1) = (/ &
+ & 0.24589E+02_JPRB,0.29689E+03_JPRB,0.40466E+03_JPRB,0.28330E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,32, 1) = (/ &
+ & 0.24586E+02_JPRB,0.29672E+03_JPRB,0.40464E+03_JPRB,0.28328E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,32, 1) = (/ &
+ & 0.24584E+02_JPRB,0.29647E+03_JPRB,0.40461E+03_JPRB,0.28324E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,32, 1) = (/ &
+ & 0.24582E+02_JPRB,0.29615E+03_JPRB,0.40459E+03_JPRB,0.28325E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,33, 1) = (/ &
+ & 0.24582E+02_JPRB,0.29698E+03_JPRB,0.40460E+03_JPRB,0.28323E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,33, 1) = (/ &
+ & 0.24580E+02_JPRB,0.29685E+03_JPRB,0.40458E+03_JPRB,0.28321E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,33, 1) = (/ &
+ & 0.24578E+02_JPRB,0.29665E+03_JPRB,0.40456E+03_JPRB,0.28318E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,33, 1) = (/ &
+ & 0.24576E+02_JPRB,0.29639E+03_JPRB,0.40454E+03_JPRB,0.28317E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,33, 1) = (/ &
+ & 0.24574E+02_JPRB,0.29605E+03_JPRB,0.40452E+03_JPRB,0.28315E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,34, 1) = (/ &
+ & 0.24574E+02_JPRB,0.29695E+03_JPRB,0.40453E+03_JPRB,0.28315E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,34, 1) = (/ &
+ & 0.24572E+02_JPRB,0.29680E+03_JPRB,0.40451E+03_JPRB,0.28313E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,34, 1) = (/ &
+ & 0.24571E+02_JPRB,0.29659E+03_JPRB,0.40449E+03_JPRB,0.28312E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,34, 1) = (/ &
+ & 0.24569E+02_JPRB,0.29631E+03_JPRB,0.40448E+03_JPRB,0.28310E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,34, 1) = (/ &
+ & 0.24568E+02_JPRB,0.29596E+03_JPRB,0.40447E+03_JPRB,0.28308E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,35, 1) = (/ &
+ & 0.24568E+02_JPRB,0.29693E+03_JPRB,0.40447E+03_JPRB,0.28309E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,35, 1) = (/ &
+ & 0.24567E+02_JPRB,0.29678E+03_JPRB,0.40446E+03_JPRB,0.28308E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,35, 1) = (/ &
+ & 0.24565E+02_JPRB,0.29656E+03_JPRB,0.40444E+03_JPRB,0.28306E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,35, 1) = (/ &
+ & 0.24564E+02_JPRB,0.29627E+03_JPRB,0.40443E+03_JPRB,0.28305E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,35, 1) = (/ &
+ & 0.24563E+02_JPRB,0.29590E+03_JPRB,0.40442E+03_JPRB,0.28304E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,36, 1) = (/ &
+ & 0.24563E+02_JPRB,0.29692E+03_JPRB,0.40443E+03_JPRB,0.28305E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,36, 1) = (/ &
+ & 0.24562E+02_JPRB,0.29677E+03_JPRB,0.40442E+03_JPRB,0.28304E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,36, 1) = (/ &
+ & 0.24561E+02_JPRB,0.29655E+03_JPRB,0.40440E+03_JPRB,0.28301E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,36, 1) = (/ &
+ & 0.24560E+02_JPRB,0.29626E+03_JPRB,0.40440E+03_JPRB,0.28302E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,36, 1) = (/ &
+ & 0.24559E+02_JPRB,0.29589E+03_JPRB,0.40439E+03_JPRB,0.28301E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,37, 1) = (/ &
+ & 0.24560E+02_JPRB,0.29693E+03_JPRB,0.40439E+03_JPRB,0.28301E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,37, 1) = (/ &
+ & 0.24559E+02_JPRB,0.29679E+03_JPRB,0.40438E+03_JPRB,0.28299E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,37, 1) = (/ &
+ & 0.24558E+02_JPRB,0.29658E+03_JPRB,0.40437E+03_JPRB,0.28299E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,37, 1) = (/ &
+ & 0.24557E+02_JPRB,0.29630E+03_JPRB,0.40437E+03_JPRB,0.28297E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,37, 1) = (/ &
+ & 0.24556E+02_JPRB,0.29594E+03_JPRB,0.40436E+03_JPRB,0.28297E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,38, 1) = (/ &
+ & 0.24557E+02_JPRB,0.29695E+03_JPRB,0.40436E+03_JPRB,0.28297E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,38, 1) = (/ &
+ & 0.24556E+02_JPRB,0.29681E+03_JPRB,0.40436E+03_JPRB,0.28296E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,38, 1) = (/ &
+ & 0.24555E+02_JPRB,0.29661E+03_JPRB,0.40435E+03_JPRB,0.28297E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,38, 1) = (/ &
+ & 0.24554E+02_JPRB,0.29634E+03_JPRB,0.40434E+03_JPRB,0.28296E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,38, 1) = (/ &
+ & 0.24554E+02_JPRB,0.29599E+03_JPRB,0.40434E+03_JPRB,0.28294E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,39, 1) = (/ &
+ & 0.24554E+02_JPRB,0.29696E+03_JPRB,0.40434E+03_JPRB,0.28295E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,39, 1) = (/ &
+ & 0.24553E+02_JPRB,0.29683E+03_JPRB,0.40433E+03_JPRB,0.28294E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,39, 1) = (/ &
+ & 0.24553E+02_JPRB,0.29664E+03_JPRB,0.40433E+03_JPRB,0.28293E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,39, 1) = (/ &
+ & 0.24552E+02_JPRB,0.29638E+03_JPRB,0.40432E+03_JPRB,0.28292E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,39, 1) = (/ &
+ & 0.24552E+02_JPRB,0.29604E+03_JPRB,0.40432E+03_JPRB,0.28292E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,40, 1) = (/ &
+ & 0.24552E+02_JPRB,0.29698E+03_JPRB,0.40432E+03_JPRB,0.28292E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,40, 1) = (/ &
+ & 0.24551E+02_JPRB,0.29687E+03_JPRB,0.40432E+03_JPRB,0.28293E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,40, 1) = (/ &
+ & 0.24551E+02_JPRB,0.29669E+03_JPRB,0.40431E+03_JPRB,0.28292E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,40, 1) = (/ &
+ & 0.24550E+02_JPRB,0.29645E+03_JPRB,0.40431E+03_JPRB,0.28291E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,40, 1) = (/ &
+ & 0.24550E+02_JPRB,0.29613E+03_JPRB,0.40430E+03_JPRB,0.28291E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,41, 1) = (/ &
+ & 0.24550E+02_JPRB,0.29699E+03_JPRB,0.40431E+03_JPRB,0.28290E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,41, 1) = (/ &
+ & 0.24550E+02_JPRB,0.29690E+03_JPRB,0.40430E+03_JPRB,0.28291E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,41, 1) = (/ &
+ & 0.24549E+02_JPRB,0.29674E+03_JPRB,0.40430E+03_JPRB,0.28289E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,41, 1) = (/ &
+ & 0.24549E+02_JPRB,0.29651E+03_JPRB,0.40429E+03_JPRB,0.28290E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,41, 1) = (/ &
+ & 0.24549E+02_JPRB,0.29622E+03_JPRB,0.40429E+03_JPRB,0.28289E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,42, 1) = (/ &
+ & 0.24549E+02_JPRB,0.29700E+03_JPRB,0.40429E+03_JPRB,0.28289E+03_JPRB,0.35000E+02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART12',1,ZHOOK_HANDLE)
+END SUBROUTINE PART12
+
+
+SUBROUTINE PART13
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART13',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,42, 1) = (/ &
+ & 0.24549E+02_JPRB,0.29693E+03_JPRB,0.40429E+03_JPRB,0.28289E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,42, 1) = (/ &
+ & 0.24548E+02_JPRB,0.29679E+03_JPRB,0.40429E+03_JPRB,0.28289E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,42, 1) = (/ &
+ & 0.24548E+02_JPRB,0.29658E+03_JPRB,0.40428E+03_JPRB,0.28289E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,42, 1) = (/ &
+ & 0.24547E+02_JPRB,0.29630E+03_JPRB,0.40428E+03_JPRB,0.28288E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,43, 1) = (/ &
+ & 0.24548E+02_JPRB,0.29701E+03_JPRB,0.40428E+03_JPRB,0.28288E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,43, 1) = (/ &
+ & 0.24547E+02_JPRB,0.29696E+03_JPRB,0.40428E+03_JPRB,0.28288E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,43, 1) = (/ &
+ & 0.24547E+02_JPRB,0.29684E+03_JPRB,0.40428E+03_JPRB,0.28288E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,43, 1) = (/ &
+ & 0.24547E+02_JPRB,0.29665E+03_JPRB,0.40427E+03_JPRB,0.28288E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,43, 1) = (/ &
+ & 0.24547E+02_JPRB,0.29639E+03_JPRB,0.40427E+03_JPRB,0.28288E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,44, 1) = (/ &
+ & 0.24547E+02_JPRB,0.29702E+03_JPRB,0.40427E+03_JPRB,0.28287E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,44, 1) = (/ &
+ & 0.24547E+02_JPRB,0.29698E+03_JPRB,0.40427E+03_JPRB,0.28287E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,44, 1) = (/ &
+ & 0.24546E+02_JPRB,0.29688E+03_JPRB,0.40427E+03_JPRB,0.28287E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,44, 1) = (/ &
+ & 0.24546E+02_JPRB,0.29672E+03_JPRB,0.40427E+03_JPRB,0.28287E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,44, 1) = (/ &
+ & 0.24546E+02_JPRB,0.29649E+03_JPRB,0.40426E+03_JPRB,0.28286E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,45, 1) = (/ &
+ & 0.24546E+02_JPRB,0.29701E+03_JPRB,0.40427E+03_JPRB,0.28287E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,45, 1) = (/ &
+ & 0.24546E+02_JPRB,0.29700E+03_JPRB,0.40426E+03_JPRB,0.28287E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,45, 1) = (/ &
+ & 0.24546E+02_JPRB,0.29692E+03_JPRB,0.40426E+03_JPRB,0.28286E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,45, 1) = (/ &
+ & 0.24545E+02_JPRB,0.29678E+03_JPRB,0.40426E+03_JPRB,0.28286E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,45, 1) = (/ &
+ & 0.24545E+02_JPRB,0.29657E+03_JPRB,0.40426E+03_JPRB,0.28286E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,46, 1) = (/ &
+ & 0.24545E+02_JPRB,0.29699E+03_JPRB,0.40426E+03_JPRB,0.28287E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,46, 1) = (/ &
+ & 0.24545E+02_JPRB,0.29701E+03_JPRB,0.40426E+03_JPRB,0.28285E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,46, 1) = (/ &
+ & 0.24545E+02_JPRB,0.29696E+03_JPRB,0.40426E+03_JPRB,0.28286E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,46, 1) = (/ &
+ & 0.24545E+02_JPRB,0.29684E+03_JPRB,0.40425E+03_JPRB,0.28285E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,46, 1) = (/ &
+ & 0.24545E+02_JPRB,0.29665E+03_JPRB,0.40425E+03_JPRB,0.28285E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,47, 1) = (/ &
+ & 0.24545E+02_JPRB,0.29696E+03_JPRB,0.40425E+03_JPRB,0.28285E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,47, 1) = (/ &
+ & 0.24545E+02_JPRB,0.29701E+03_JPRB,0.40425E+03_JPRB,0.28286E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,47, 1) = (/ &
+ & 0.24544E+02_JPRB,0.29699E+03_JPRB,0.40425E+03_JPRB,0.28285E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,47, 1) = (/ &
+ & 0.24544E+02_JPRB,0.29690E+03_JPRB,0.40425E+03_JPRB,0.28285E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,47, 1) = (/ &
+ & 0.24544E+02_JPRB,0.29674E+03_JPRB,0.40425E+03_JPRB,0.28286E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,48, 1) = (/ &
+ & 0.24544E+02_JPRB,0.29691E+03_JPRB,0.40425E+03_JPRB,0.28286E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,48, 1) = (/ &
+ & 0.24544E+02_JPRB,0.29700E+03_JPRB,0.40425E+03_JPRB,0.28285E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,48, 1) = (/ &
+ & 0.24544E+02_JPRB,0.29701E+03_JPRB,0.40425E+03_JPRB,0.28284E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,48, 1) = (/ &
+ & 0.24544E+02_JPRB,0.29694E+03_JPRB,0.40425E+03_JPRB,0.28285E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,48, 1) = (/ &
+ & 0.24544E+02_JPRB,0.29681E+03_JPRB,0.40425E+03_JPRB,0.28284E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,49, 1) = (/ &
+ & 0.24544E+02_JPRB,0.29685E+03_JPRB,0.40425E+03_JPRB,0.28284E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,49, 1) = (/ &
+ & 0.24544E+02_JPRB,0.29698E+03_JPRB,0.40425E+03_JPRB,0.28284E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,49, 1) = (/ &
+ & 0.24544E+02_JPRB,0.29701E+03_JPRB,0.40424E+03_JPRB,0.28284E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,49, 1) = (/ &
+ & 0.24544E+02_JPRB,0.29697E+03_JPRB,0.40424E+03_JPRB,0.28285E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,49, 1) = (/ &
+ & 0.24544E+02_JPRB,0.29687E+03_JPRB,0.40424E+03_JPRB,0.28284E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,50, 1) = (/ &
+ & 0.24544E+02_JPRB,0.29678E+03_JPRB,0.40424E+03_JPRB,0.28284E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,50, 1) = (/ &
+ & 0.24544E+02_JPRB,0.29694E+03_JPRB,0.40424E+03_JPRB,0.28284E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,50, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29701E+03_JPRB,0.40424E+03_JPRB,0.28284E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,50, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29700E+03_JPRB,0.40424E+03_JPRB,0.28284E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,50, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29692E+03_JPRB,0.40424E+03_JPRB,0.28284E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,51, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29670E+03_JPRB,0.40424E+03_JPRB,0.28284E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,51, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29689E+03_JPRB,0.40424E+03_JPRB,0.28284E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,51, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29699E+03_JPRB,0.40424E+03_JPRB,0.28284E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,51, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29701E+03_JPRB,0.40424E+03_JPRB,0.28284E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,51, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29695E+03_JPRB,0.40424E+03_JPRB,0.28284E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,52, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29660E+03_JPRB,0.40424E+03_JPRB,0.28283E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,52, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29684E+03_JPRB,0.40424E+03_JPRB,0.28283E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,52, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29697E+03_JPRB,0.40424E+03_JPRB,0.28283E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,52, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29701E+03_JPRB,0.40424E+03_JPRB,0.28283E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,52, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29698E+03_JPRB,0.40424E+03_JPRB,0.28283E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,53, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29648E+03_JPRB,0.40424E+03_JPRB,0.28283E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,53, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29676E+03_JPRB,0.40424E+03_JPRB,0.28283E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,53, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29693E+03_JPRB,0.40424E+03_JPRB,0.28284E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,53, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29701E+03_JPRB,0.40424E+03_JPRB,0.28283E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,53, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29700E+03_JPRB,0.40424E+03_JPRB,0.28284E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,54, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29635E+03_JPRB,0.40424E+03_JPRB,0.28283E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,54, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29668E+03_JPRB,0.40424E+03_JPRB,0.28284E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,54, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29688E+03_JPRB,0.40424E+03_JPRB,0.28283E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,54, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29699E+03_JPRB,0.40423E+03_JPRB,0.28283E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,54, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29701E+03_JPRB,0.40423E+03_JPRB,0.28285E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,55, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29622E+03_JPRB,0.40424E+03_JPRB,0.28285E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,55, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29659E+03_JPRB,0.40423E+03_JPRB,0.28283E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,55, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29683E+03_JPRB,0.40423E+03_JPRB,0.28284E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,55, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29696E+03_JPRB,0.40423E+03_JPRB,0.28283E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,55, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29701E+03_JPRB,0.40423E+03_JPRB,0.28283E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,56, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29607E+03_JPRB,0.40423E+03_JPRB,0.28283E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,56, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29649E+03_JPRB,0.40423E+03_JPRB,0.28283E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,56, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29676E+03_JPRB,0.40423E+03_JPRB,0.28283E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,56, 1) = (/ &
+ & 0.24542E+02_JPRB,0.29693E+03_JPRB,0.40423E+03_JPRB,0.28282E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,56, 1) = (/ &
+ & 0.24542E+02_JPRB,0.29700E+03_JPRB,0.40423E+03_JPRB,0.28283E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,57, 1) = (/ &
+ & 0.24543E+02_JPRB,0.29591E+03_JPRB,0.40423E+03_JPRB,0.28283E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,57, 1) = (/ &
+ & 0.24542E+02_JPRB,0.29637E+03_JPRB,0.40423E+03_JPRB,0.28283E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,57, 1) = (/ &
+ & 0.24542E+02_JPRB,0.29669E+03_JPRB,0.40423E+03_JPRB,0.28283E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,57, 1) = (/ &
+ & 0.24542E+02_JPRB,0.29689E+03_JPRB,0.40423E+03_JPRB,0.28283E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,57, 1) = (/ &
+ & 0.24542E+02_JPRB,0.29699E+03_JPRB,0.40423E+03_JPRB,0.28283E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,58, 1) = (/ &
+ & 0.24542E+02_JPRB,0.29574E+03_JPRB,0.40423E+03_JPRB,0.28282E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,58, 1) = (/ &
+ & 0.24542E+02_JPRB,0.29624E+03_JPRB,0.40423E+03_JPRB,0.28282E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,58, 1) = (/ &
+ & 0.24542E+02_JPRB,0.29660E+03_JPRB,0.40423E+03_JPRB,0.28283E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,58, 1) = (/ &
+ & 0.24542E+02_JPRB,0.29684E+03_JPRB,0.40423E+03_JPRB,0.28284E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,58, 1) = (/ &
+ & 0.24542E+02_JPRB,0.29697E+03_JPRB,0.40423E+03_JPRB,0.28282E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,59, 1) = (/ &
+ & 0.24542E+02_JPRB,0.29566E+03_JPRB,0.40423E+03_JPRB,0.28283E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 2,59, 1) = (/ &
+ & 0.24542E+02_JPRB,0.29619E+03_JPRB,0.40423E+03_JPRB,0.28282E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 3,59, 1) = (/ &
+ & 0.24542E+02_JPRB,0.29657E+03_JPRB,0.40423E+03_JPRB,0.28283E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 4,59, 1) = (/ &
+ & 0.24542E+02_JPRB,0.29682E+03_JPRB,0.40423E+03_JPRB,0.28283E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 5,59, 1) = (/ &
+ & 0.24542E+02_JPRB,0.29696E+03_JPRB,0.40423E+03_JPRB,0.28283E+03_JPRB,0.35000E+02_JPRB /)  
+KB(:, 1,13, 2) = (/ &
+ & 0.10177E+03_JPRB,0.32761E+03_JPRB,0.45575E+03_JPRB,0.31335E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,13, 2) = (/ &
+ & 0.10099E+03_JPRB,0.32713E+03_JPRB,0.45383E+03_JPRB,0.31125E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,13, 2) = (/ &
+ & 0.10031E+03_JPRB,0.32663E+03_JPRB,0.45216E+03_JPRB,0.30943E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,13, 2) = (/ &
+ & 0.99721E+02_JPRB,0.32612E+03_JPRB,0.45071E+03_JPRB,0.30785E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,13, 2) = (/ &
+ & 0.99204E+02_JPRB,0.32558E+03_JPRB,0.44942E+03_JPRB,0.30646E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,14, 2) = (/ &
+ & 0.99803E+02_JPRB,0.32613E+03_JPRB,0.45091E+03_JPRB,0.30807E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,14, 2) = (/ &
+ & 0.99169E+02_JPRB,0.32574E+03_JPRB,0.44934E+03_JPRB,0.30636E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,14, 2) = (/ &
+ & 0.98622E+02_JPRB,0.32534E+03_JPRB,0.44797E+03_JPRB,0.30489E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,14, 2) = (/ &
+ & 0.98146E+02_JPRB,0.32491E+03_JPRB,0.44677E+03_JPRB,0.30362E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,14, 2) = (/ &
+ & 0.97728E+02_JPRB,0.32444E+03_JPRB,0.44571E+03_JPRB,0.30248E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,15, 2) = (/ &
+ & 0.98198E+02_JPRB,0.32493E+03_JPRB,0.44690E+03_JPRB,0.30375E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,15, 2) = (/ &
+ & 0.97687E+02_JPRB,0.32462E+03_JPRB,0.44560E+03_JPRB,0.30237E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,15, 2) = (/ &
+ & 0.97245E+02_JPRB,0.32429E+03_JPRB,0.44448E+03_JPRB,0.30119E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,15, 2) = (/ &
+ & 0.96861E+02_JPRB,0.32392E+03_JPRB,0.44350E+03_JPRB,0.30014E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,15, 2) = (/ &
+ & 0.96523E+02_JPRB,0.32350E+03_JPRB,0.44263E+03_JPRB,0.29923E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,16, 2) = (/ &
+ & 0.96892E+02_JPRB,0.32395E+03_JPRB,0.44358E+03_JPRB,0.30023E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,16, 2) = (/ &
+ & 0.96480E+02_JPRB,0.32371E+03_JPRB,0.44252E+03_JPRB,0.29912E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,16, 2) = (/ &
+ & 0.96125E+02_JPRB,0.32343E+03_JPRB,0.44161E+03_JPRB,0.29817E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,16, 2) = (/ &
+ & 0.95814E+02_JPRB,0.32311E+03_JPRB,0.44081E+03_JPRB,0.29733E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,16, 2) = (/ &
+ & 0.95541E+02_JPRB,0.32273E+03_JPRB,0.44010E+03_JPRB,0.29661E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,17, 2) = (/ &
+ & 0.95833E+02_JPRB,0.32316E+03_JPRB,0.44086E+03_JPRB,0.29737E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,17, 2) = (/ &
+ & 0.95501E+02_JPRB,0.32297E+03_JPRB,0.44000E+03_JPRB,0.29648E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,17, 2) = (/ &
+ & 0.95214E+02_JPRB,0.32274E+03_JPRB,0.43925E+03_JPRB,0.29569E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,17, 2) = (/ &
+ & 0.94964E+02_JPRB,0.32245E+03_JPRB,0.43860E+03_JPRB,0.29502E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,17, 2) = (/ &
+ & 0.94743E+02_JPRB,0.32210E+03_JPRB,0.43803E+03_JPRB,0.29442E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,18, 2) = (/ &
+ & 0.94974E+02_JPRB,0.32251E+03_JPRB,0.43863E+03_JPRB,0.29504E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,18, 2) = (/ &
+ & 0.94707E+02_JPRB,0.32236E+03_JPRB,0.43793E+03_JPRB,0.29432E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,18, 2) = (/ &
+ & 0.94475E+02_JPRB,0.32217E+03_JPRB,0.43733E+03_JPRB,0.29369E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,18, 2) = (/ &
+ & 0.94272E+02_JPRB,0.32191E+03_JPRB,0.43680E+03_JPRB,0.29315E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,18, 2) = (/ &
+ & 0.94094E+02_JPRB,0.32158E+03_JPRB,0.43633E+03_JPRB,0.29267E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,19, 2) = (/ &
+ & 0.94277E+02_JPRB,0.32199E+03_JPRB,0.43681E+03_JPRB,0.29316E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,19, 2) = (/ &
+ & 0.94061E+02_JPRB,0.32187E+03_JPRB,0.43624E+03_JPRB,0.29258E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,19, 2) = (/ &
+ & 0.93874E+02_JPRB,0.32170E+03_JPRB,0.43575E+03_JPRB,0.29207E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,19, 2) = (/ &
+ & 0.93711E+02_JPRB,0.32146E+03_JPRB,0.43532E+03_JPRB,0.29164E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,19, 2) = (/ &
+ & 0.93566E+02_JPRB,0.32115E+03_JPRB,0.43494E+03_JPRB,0.29125E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,20, 2) = (/ &
+ & 0.93708E+02_JPRB,0.32157E+03_JPRB,0.43531E+03_JPRB,0.29163E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,20, 2) = (/ &
+ & 0.93534E+02_JPRB,0.32147E+03_JPRB,0.43485E+03_JPRB,0.29117E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,20, 2) = (/ &
+ & 0.93383E+02_JPRB,0.32132E+03_JPRB,0.43445E+03_JPRB,0.29076E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,20, 2) = (/ &
+ & 0.93251E+02_JPRB,0.32109E+03_JPRB,0.43411E+03_JPRB,0.29041E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,20, 2) = (/ &
+ & 0.93135E+02_JPRB,0.32079E+03_JPRB,0.43380E+03_JPRB,0.29010E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,21, 2) = (/ &
+ & 0.93246E+02_JPRB,0.32122E+03_JPRB,0.43409E+03_JPRB,0.29040E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,21, 2) = (/ &
+ & 0.93106E+02_JPRB,0.32114E+03_JPRB,0.43372E+03_JPRB,0.29003E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,21, 2) = (/ &
+ & 0.92985E+02_JPRB,0.32100E+03_JPRB,0.43340E+03_JPRB,0.28970E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,21, 2) = (/ &
+ & 0.92878E+02_JPRB,0.32079E+03_JPRB,0.43311E+03_JPRB,0.28941E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,21, 2) = (/ &
+ & 0.92784E+02_JPRB,0.32049E+03_JPRB,0.43286E+03_JPRB,0.28917E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,22, 2) = (/ &
+ & 0.92863E+02_JPRB,0.32094E+03_JPRB,0.43307E+03_JPRB,0.28938E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,22, 2) = (/ &
+ & 0.92751E+02_JPRB,0.32087E+03_JPRB,0.43278E+03_JPRB,0.28908E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,22, 2) = (/ &
+ & 0.92655E+02_JPRB,0.32073E+03_JPRB,0.43252E+03_JPRB,0.28882E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,22, 2) = (/ &
+ & 0.92569E+02_JPRB,0.32051E+03_JPRB,0.43229E+03_JPRB,0.28860E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,22, 2) = (/ &
+ & 0.92494E+02_JPRB,0.32022E+03_JPRB,0.43209E+03_JPRB,0.28840E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,23, 2) = (/ &
+ & 0.92553E+02_JPRB,0.32072E+03_JPRB,0.43225E+03_JPRB,0.28855E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,23, 2) = (/ &
+ & 0.92465E+02_JPRB,0.32064E+03_JPRB,0.43201E+03_JPRB,0.28832E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,23, 2) = (/ &
+ & 0.92387E+02_JPRB,0.32050E+03_JPRB,0.43180E+03_JPRB,0.28811E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,23, 2) = (/ &
+ & 0.92319E+02_JPRB,0.32029E+03_JPRB,0.43162E+03_JPRB,0.28793E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,23, 2) = (/ &
+ & 0.92259E+02_JPRB,0.31998E+03_JPRB,0.43146E+03_JPRB,0.28778E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,24, 2) = (/ &
+ & 0.92303E+02_JPRB,0.32053E+03_JPRB,0.43158E+03_JPRB,0.28789E+03_JPRB,0.71839E+02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART13',1,ZHOOK_HANDLE)
+END SUBROUTINE PART13
+
+
+SUBROUTINE PART14
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART14',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,24, 2) = (/ &
+ & 0.92233E+02_JPRB,0.32046E+03_JPRB,0.43139E+03_JPRB,0.28770E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,24, 2) = (/ &
+ & 0.92171E+02_JPRB,0.32031E+03_JPRB,0.43122E+03_JPRB,0.28754E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,24, 2) = (/ &
+ & 0.92117E+02_JPRB,0.32009E+03_JPRB,0.43108E+03_JPRB,0.28740E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,24, 2) = (/ &
+ & 0.92068E+02_JPRB,0.31978E+03_JPRB,0.43095E+03_JPRB,0.28727E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,25, 2) = (/ &
+ & 0.92101E+02_JPRB,0.32038E+03_JPRB,0.43103E+03_JPRB,0.28736E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,25, 2) = (/ &
+ & 0.92045E+02_JPRB,0.32030E+03_JPRB,0.43088E+03_JPRB,0.28721E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,25, 2) = (/ &
+ & 0.91996E+02_JPRB,0.32015E+03_JPRB,0.43075E+03_JPRB,0.28708E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,25, 2) = (/ &
+ & 0.91952E+02_JPRB,0.31991E+03_JPRB,0.43064E+03_JPRB,0.28696E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,25, 2) = (/ &
+ & 0.91914E+02_JPRB,0.31959E+03_JPRB,0.43053E+03_JPRB,0.28684E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,26, 2) = (/ &
+ & 0.91937E+02_JPRB,0.32025E+03_JPRB,0.43059E+03_JPRB,0.28693E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,26, 2) = (/ &
+ & 0.91892E+02_JPRB,0.32016E+03_JPRB,0.43047E+03_JPRB,0.28680E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,26, 2) = (/ &
+ & 0.91853E+02_JPRB,0.32000E+03_JPRB,0.43037E+03_JPRB,0.28670E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,26, 2) = (/ &
+ & 0.91819E+02_JPRB,0.31975E+03_JPRB,0.43028E+03_JPRB,0.28661E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,26, 2) = (/ &
+ & 0.91788E+02_JPRB,0.31942E+03_JPRB,0.43019E+03_JPRB,0.28653E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,27, 2) = (/ &
+ & 0.91805E+02_JPRB,0.32015E+03_JPRB,0.43024E+03_JPRB,0.28658E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,27, 2) = (/ &
+ & 0.91770E+02_JPRB,0.32005E+03_JPRB,0.43014E+03_JPRB,0.28648E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,27, 2) = (/ &
+ & 0.91738E+02_JPRB,0.31986E+03_JPRB,0.43006E+03_JPRB,0.28630E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,27, 2) = (/ &
+ & 0.91711E+02_JPRB,0.31960E+03_JPRB,0.42998E+03_JPRB,0.28633E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,27, 2) = (/ &
+ & 0.91687E+02_JPRB,0.31925E+03_JPRB,0.42992E+03_JPRB,0.28626E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,28, 2) = (/ &
+ & 0.91698E+02_JPRB,0.32005E+03_JPRB,0.42995E+03_JPRB,0.28628E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,28, 2) = (/ &
+ & 0.91670E+02_JPRB,0.31994E+03_JPRB,0.42987E+03_JPRB,0.28622E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,28, 2) = (/ &
+ & 0.91646E+02_JPRB,0.31974E+03_JPRB,0.42981E+03_JPRB,0.28615E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,28, 2) = (/ &
+ & 0.91624E+02_JPRB,0.31946E+03_JPRB,0.42975E+03_JPRB,0.28609E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,28, 2) = (/ &
+ & 0.91604E+02_JPRB,0.31910E+03_JPRB,0.42970E+03_JPRB,0.28605E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,29, 2) = (/ &
+ & 0.91613E+02_JPRB,0.31997E+03_JPRB,0.42972E+03_JPRB,0.28605E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,29, 2) = (/ &
+ & 0.91591E+02_JPRB,0.31984E+03_JPRB,0.42966E+03_JPRB,0.28600E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,29, 2) = (/ &
+ & 0.91571E+02_JPRB,0.31963E+03_JPRB,0.42960E+03_JPRB,0.28595E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,29, 2) = (/ &
+ & 0.91554E+02_JPRB,0.31933E+03_JPRB,0.42956E+03_JPRB,0.28590E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,29, 2) = (/ &
+ & 0.91538E+02_JPRB,0.31895E+03_JPRB,0.42952E+03_JPRB,0.28586E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,30, 2) = (/ &
+ & 0.91544E+02_JPRB,0.31990E+03_JPRB,0.42953E+03_JPRB,0.28589E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,30, 2) = (/ &
+ & 0.91526E+02_JPRB,0.31975E+03_JPRB,0.42948E+03_JPRB,0.28584E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,30, 2) = (/ &
+ & 0.91511E+02_JPRB,0.31952E+03_JPRB,0.42944E+03_JPRB,0.28580E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,30, 2) = (/ &
+ & 0.91497E+02_JPRB,0.31920E+03_JPRB,0.42940E+03_JPRB,0.28577E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,30, 2) = (/ &
+ & 0.91484E+02_JPRB,0.31880E+03_JPRB,0.42937E+03_JPRB,0.28573E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,31, 2) = (/ &
+ & 0.91488E+02_JPRB,0.31983E+03_JPRB,0.42938E+03_JPRB,0.28574E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,31, 2) = (/ &
+ & 0.91474E+02_JPRB,0.31966E+03_JPRB,0.42934E+03_JPRB,0.28571E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,31, 2) = (/ &
+ & 0.91462E+02_JPRB,0.31941E+03_JPRB,0.42931E+03_JPRB,0.28567E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,31, 2) = (/ &
+ & 0.91451E+02_JPRB,0.31908E+03_JPRB,0.42928E+03_JPRB,0.28564E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,31, 2) = (/ &
+ & 0.91441E+02_JPRB,0.31866E+03_JPRB,0.42925E+03_JPRB,0.28562E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,32, 2) = (/ &
+ & 0.91443E+02_JPRB,0.31976E+03_JPRB,0.42926E+03_JPRB,0.28562E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,32, 2) = (/ &
+ & 0.91432E+02_JPRB,0.31958E+03_JPRB,0.42923E+03_JPRB,0.28559E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,32, 2) = (/ &
+ & 0.91423E+02_JPRB,0.31930E+03_JPRB,0.42920E+03_JPRB,0.28557E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,32, 2) = (/ &
+ & 0.91414E+02_JPRB,0.31895E+03_JPRB,0.42918E+03_JPRB,0.28555E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,32, 2) = (/ &
+ & 0.91406E+02_JPRB,0.31851E+03_JPRB,0.42916E+03_JPRB,0.28551E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,33, 2) = (/ &
+ & 0.91407E+02_JPRB,0.31970E+03_JPRB,0.42916E+03_JPRB,0.28553E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,33, 2) = (/ &
+ & 0.91399E+02_JPRB,0.31949E+03_JPRB,0.42914E+03_JPRB,0.28551E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,33, 2) = (/ &
+ & 0.91391E+02_JPRB,0.31920E+03_JPRB,0.42912E+03_JPRB,0.28549E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,33, 2) = (/ &
+ & 0.91384E+02_JPRB,0.31882E+03_JPRB,0.42910E+03_JPRB,0.28547E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,33, 2) = (/ &
+ & 0.91378E+02_JPRB,0.31837E+03_JPRB,0.42908E+03_JPRB,0.28546E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,34, 2) = (/ &
+ & 0.91379E+02_JPRB,0.31964E+03_JPRB,0.42908E+03_JPRB,0.28546E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,34, 2) = (/ &
+ & 0.91372E+02_JPRB,0.31941E+03_JPRB,0.42906E+03_JPRB,0.28544E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,34, 2) = (/ &
+ & 0.91365E+02_JPRB,0.31910E+03_JPRB,0.42905E+03_JPRB,0.28542E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,34, 2) = (/ &
+ & 0.91360E+02_JPRB,0.31871E+03_JPRB,0.42903E+03_JPRB,0.28541E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,34, 2) = (/ &
+ & 0.91355E+02_JPRB,0.31824E+03_JPRB,0.42902E+03_JPRB,0.28540E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,35, 2) = (/ &
+ & 0.91356E+02_JPRB,0.31960E+03_JPRB,0.42902E+03_JPRB,0.28539E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,35, 2) = (/ &
+ & 0.91350E+02_JPRB,0.31936E+03_JPRB,0.42901E+03_JPRB,0.28538E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,35, 2) = (/ &
+ & 0.91345E+02_JPRB,0.31904E+03_JPRB,0.42899E+03_JPRB,0.28537E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,35, 2) = (/ &
+ & 0.91341E+02_JPRB,0.31863E+03_JPRB,0.42898E+03_JPRB,0.28535E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,35, 2) = (/ &
+ & 0.91337E+02_JPRB,0.31816E+03_JPRB,0.42897E+03_JPRB,0.28535E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,36, 2) = (/ &
+ & 0.91338E+02_JPRB,0.31958E+03_JPRB,0.42897E+03_JPRB,0.28535E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,36, 2) = (/ &
+ & 0.91334E+02_JPRB,0.31934E+03_JPRB,0.42896E+03_JPRB,0.28533E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,36, 2) = (/ &
+ & 0.91330E+02_JPRB,0.31902E+03_JPRB,0.42895E+03_JPRB,0.28533E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,36, 2) = (/ &
+ & 0.91326E+02_JPRB,0.31862E+03_JPRB,0.42894E+03_JPRB,0.28530E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,36, 2) = (/ &
+ & 0.91323E+02_JPRB,0.31814E+03_JPRB,0.42893E+03_JPRB,0.28530E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,37, 2) = (/ &
+ & 0.91324E+02_JPRB,0.31959E+03_JPRB,0.42894E+03_JPRB,0.28531E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,37, 2) = (/ &
+ & 0.91320E+02_JPRB,0.31937E+03_JPRB,0.42893E+03_JPRB,0.28530E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,37, 2) = (/ &
+ & 0.91317E+02_JPRB,0.31906E+03_JPRB,0.42892E+03_JPRB,0.28529E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,37, 2) = (/ &
+ & 0.91314E+02_JPRB,0.31866E+03_JPRB,0.42891E+03_JPRB,0.28529E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,37, 2) = (/ &
+ & 0.91311E+02_JPRB,0.31819E+03_JPRB,0.42890E+03_JPRB,0.28527E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,38, 2) = (/ &
+ & 0.91313E+02_JPRB,0.31961E+03_JPRB,0.42890E+03_JPRB,0.28528E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,38, 2) = (/ &
+ & 0.91310E+02_JPRB,0.31939E+03_JPRB,0.42890E+03_JPRB,0.28528E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,38, 2) = (/ &
+ & 0.91307E+02_JPRB,0.31910E+03_JPRB,0.42889E+03_JPRB,0.28526E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,38, 2) = (/ &
+ & 0.91304E+02_JPRB,0.31871E+03_JPRB,0.42888E+03_JPRB,0.28525E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,38, 2) = (/ &
+ & 0.91302E+02_JPRB,0.31826E+03_JPRB,0.42888E+03_JPRB,0.28525E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,39, 2) = (/ &
+ & 0.91303E+02_JPRB,0.31962E+03_JPRB,0.42888E+03_JPRB,0.28525E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,39, 2) = (/ &
+ & 0.91301E+02_JPRB,0.31942E+03_JPRB,0.42887E+03_JPRB,0.28525E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,39, 2) = (/ &
+ & 0.91298E+02_JPRB,0.31914E+03_JPRB,0.42886E+03_JPRB,0.28525E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,39, 2) = (/ &
+ & 0.91296E+02_JPRB,0.31877E+03_JPRB,0.42886E+03_JPRB,0.28524E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,39, 2) = (/ &
+ & 0.91294E+02_JPRB,0.31832E+03_JPRB,0.42885E+03_JPRB,0.28523E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,40, 2) = (/ &
+ & 0.91296E+02_JPRB,0.31965E+03_JPRB,0.42886E+03_JPRB,0.28524E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,40, 2) = (/ &
+ & 0.91293E+02_JPRB,0.31947E+03_JPRB,0.42885E+03_JPRB,0.28522E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,40, 2) = (/ &
+ & 0.91292E+02_JPRB,0.31921E+03_JPRB,0.42885E+03_JPRB,0.28522E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,40, 2) = (/ &
+ & 0.91290E+02_JPRB,0.31886E+03_JPRB,0.42884E+03_JPRB,0.28522E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,40, 2) = (/ &
+ & 0.91288E+02_JPRB,0.31843E+03_JPRB,0.42884E+03_JPRB,0.28521E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,41, 2) = (/ &
+ & 0.91289E+02_JPRB,0.31968E+03_JPRB,0.42884E+03_JPRB,0.28523E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,41, 2) = (/ &
+ & 0.91288E+02_JPRB,0.31952E+03_JPRB,0.42884E+03_JPRB,0.28521E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,41, 2) = (/ &
+ & 0.91286E+02_JPRB,0.31928E+03_JPRB,0.42883E+03_JPRB,0.28522E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,41, 2) = (/ &
+ & 0.91284E+02_JPRB,0.31895E+03_JPRB,0.42883E+03_JPRB,0.28521E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,41, 2) = (/ &
+ & 0.91283E+02_JPRB,0.31854E+03_JPRB,0.42882E+03_JPRB,0.28521E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,42, 2) = (/ &
+ & 0.91284E+02_JPRB,0.31970E+03_JPRB,0.42883E+03_JPRB,0.28521E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,42, 2) = (/ &
+ & 0.91283E+02_JPRB,0.31957E+03_JPRB,0.42882E+03_JPRB,0.28521E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,42, 2) = (/ &
+ & 0.91281E+02_JPRB,0.31934E+03_JPRB,0.42882E+03_JPRB,0.28520E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,42, 2) = (/ &
+ & 0.91280E+02_JPRB,0.31904E+03_JPRB,0.42882E+03_JPRB,0.28519E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,42, 2) = (/ &
+ & 0.91279E+02_JPRB,0.31865E+03_JPRB,0.42881E+03_JPRB,0.28520E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,43, 2) = (/ &
+ & 0.91280E+02_JPRB,0.31972E+03_JPRB,0.42882E+03_JPRB,0.28520E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,43, 2) = (/ &
+ & 0.91279E+02_JPRB,0.31961E+03_JPRB,0.42881E+03_JPRB,0.28520E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,43, 2) = (/ &
+ & 0.91277E+02_JPRB,0.31942E+03_JPRB,0.42881E+03_JPRB,0.28519E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,43, 2) = (/ &
+ & 0.91276E+02_JPRB,0.31914E+03_JPRB,0.42881E+03_JPRB,0.28518E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,43, 2) = (/ &
+ & 0.91275E+02_JPRB,0.31878E+03_JPRB,0.42880E+03_JPRB,0.28518E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,44, 2) = (/ &
+ & 0.91276E+02_JPRB,0.31974E+03_JPRB,0.42881E+03_JPRB,0.28519E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,44, 2) = (/ &
+ & 0.91275E+02_JPRB,0.31966E+03_JPRB,0.42880E+03_JPRB,0.28519E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,44, 2) = (/ &
+ & 0.91274E+02_JPRB,0.31949E+03_JPRB,0.42880E+03_JPRB,0.28518E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,44, 2) = (/ &
+ & 0.91273E+02_JPRB,0.31924E+03_JPRB,0.42880E+03_JPRB,0.28518E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,44, 2) = (/ &
+ & 0.91273E+02_JPRB,0.31890E+03_JPRB,0.42880E+03_JPRB,0.28518E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,45, 2) = (/ &
+ & 0.91274E+02_JPRB,0.31974E+03_JPRB,0.42880E+03_JPRB,0.28518E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,45, 2) = (/ &
+ & 0.91273E+02_JPRB,0.31969E+03_JPRB,0.42880E+03_JPRB,0.28517E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,45, 2) = (/ &
+ & 0.91272E+02_JPRB,0.31955E+03_JPRB,0.42879E+03_JPRB,0.28518E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,45, 2) = (/ &
+ & 0.91271E+02_JPRB,0.31933E+03_JPRB,0.42879E+03_JPRB,0.28517E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,45, 2) = (/ &
+ & 0.91270E+02_JPRB,0.31903E+03_JPRB,0.42879E+03_JPRB,0.28517E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,46, 2) = (/ &
+ & 0.91271E+02_JPRB,0.31974E+03_JPRB,0.42879E+03_JPRB,0.28516E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,46, 2) = (/ &
+ & 0.91270E+02_JPRB,0.31972E+03_JPRB,0.42879E+03_JPRB,0.28517E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,46, 2) = (/ &
+ & 0.91270E+02_JPRB,0.31961E+03_JPRB,0.42879E+03_JPRB,0.28517E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,46, 2) = (/ &
+ & 0.91269E+02_JPRB,0.31942E+03_JPRB,0.42879E+03_JPRB,0.28517E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,46, 2) = (/ &
+ & 0.91268E+02_JPRB,0.31914E+03_JPRB,0.42878E+03_JPRB,0.28516E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,47, 2) = (/ &
+ & 0.91269E+02_JPRB,0.31973E+03_JPRB,0.42879E+03_JPRB,0.28517E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,47, 2) = (/ &
+ & 0.91268E+02_JPRB,0.31974E+03_JPRB,0.42878E+03_JPRB,0.28516E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,47, 2) = (/ &
+ & 0.91268E+02_JPRB,0.31966E+03_JPRB,0.42878E+03_JPRB,0.28516E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,47, 2) = (/ &
+ & 0.91267E+02_JPRB,0.31951E+03_JPRB,0.42878E+03_JPRB,0.28516E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,47, 2) = (/ &
+ & 0.91267E+02_JPRB,0.31926E+03_JPRB,0.42878E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,48, 2) = (/ &
+ & 0.91267E+02_JPRB,0.31970E+03_JPRB,0.42878E+03_JPRB,0.28516E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,48, 2) = (/ &
+ & 0.91267E+02_JPRB,0.31974E+03_JPRB,0.42878E+03_JPRB,0.28516E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,48, 2) = (/ &
+ & 0.91266E+02_JPRB,0.31970E+03_JPRB,0.42878E+03_JPRB,0.28517E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,48, 2) = (/ &
+ & 0.91266E+02_JPRB,0.31958E+03_JPRB,0.42878E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,48, 2) = (/ &
+ & 0.91265E+02_JPRB,0.31937E+03_JPRB,0.42878E+03_JPRB,0.28516E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,49, 2) = (/ &
+ & 0.91266E+02_JPRB,0.31966E+03_JPRB,0.42878E+03_JPRB,0.28516E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,49, 2) = (/ &
+ & 0.91265E+02_JPRB,0.31973E+03_JPRB,0.42878E+03_JPRB,0.28516E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,49, 2) = (/ &
+ & 0.91265E+02_JPRB,0.31973E+03_JPRB,0.42877E+03_JPRB,0.28516E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,49, 2) = (/ &
+ & 0.91265E+02_JPRB,0.31964E+03_JPRB,0.42878E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,49, 2) = (/ &
+ & 0.91264E+02_JPRB,0.31946E+03_JPRB,0.42877E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,50, 2) = (/ &
+ & 0.91265E+02_JPRB,0.31962E+03_JPRB,0.42877E+03_JPRB,0.28516E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,50, 2) = (/ &
+ & 0.91264E+02_JPRB,0.31972E+03_JPRB,0.42877E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,50, 2) = (/ &
+ & 0.91264E+02_JPRB,0.31974E+03_JPRB,0.42877E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,50, 2) = (/ &
+ & 0.91264E+02_JPRB,0.31968E+03_JPRB,0.42877E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,50, 2) = (/ &
+ & 0.91263E+02_JPRB,0.31954E+03_JPRB,0.42877E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,51, 2) = (/ &
+ & 0.91264E+02_JPRB,0.31958E+03_JPRB,0.42877E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,51, 2) = (/ &
+ & 0.91263E+02_JPRB,0.31969E+03_JPRB,0.42877E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,51, 2) = (/ &
+ & 0.91263E+02_JPRB,0.31974E+03_JPRB,0.42877E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,51, 2) = (/ &
+ & 0.91263E+02_JPRB,0.31971E+03_JPRB,0.42877E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,51, 2) = (/ &
+ & 0.91262E+02_JPRB,0.31960E+03_JPRB,0.42877E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,52, 2) = (/ &
+ & 0.91263E+02_JPRB,0.31953E+03_JPRB,0.42877E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,52, 2) = (/ &
+ & 0.91263E+02_JPRB,0.31965E+03_JPRB,0.42877E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,52, 2) = (/ &
+ & 0.91262E+02_JPRB,0.31973E+03_JPRB,0.42877E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,52, 2) = (/ &
+ & 0.91262E+02_JPRB,0.31973E+03_JPRB,0.42877E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,52, 2) = (/ &
+ & 0.91262E+02_JPRB,0.31965E+03_JPRB,0.42877E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,53, 2) = (/ &
+ & 0.91262E+02_JPRB,0.31948E+03_JPRB,0.42877E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART14',1,ZHOOK_HANDLE)
+END SUBROUTINE PART14
+
+
+SUBROUTINE PART15
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART15',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,53, 2) = (/ &
+ & 0.91262E+02_JPRB,0.31961E+03_JPRB,0.42877E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,53, 2) = (/ &
+ & 0.91262E+02_JPRB,0.31971E+03_JPRB,0.42877E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,53, 2) = (/ &
+ & 0.91261E+02_JPRB,0.31974E+03_JPRB,0.42876E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,53, 2) = (/ &
+ & 0.91261E+02_JPRB,0.31969E+03_JPRB,0.42876E+03_JPRB,0.28514E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,54, 2) = (/ &
+ & 0.91262E+02_JPRB,0.31942E+03_JPRB,0.42877E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,54, 2) = (/ &
+ & 0.91261E+02_JPRB,0.31957E+03_JPRB,0.42877E+03_JPRB,0.28514E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,54, 2) = (/ &
+ & 0.91261E+02_JPRB,0.31968E+03_JPRB,0.42876E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,54, 2) = (/ &
+ & 0.91261E+02_JPRB,0.31973E+03_JPRB,0.42876E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,54, 2) = (/ &
+ & 0.91261E+02_JPRB,0.31971E+03_JPRB,0.42876E+03_JPRB,0.28513E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,55, 2) = (/ &
+ & 0.91261E+02_JPRB,0.31937E+03_JPRB,0.42876E+03_JPRB,0.28513E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,55, 2) = (/ &
+ & 0.91261E+02_JPRB,0.31953E+03_JPRB,0.42876E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,55, 2) = (/ &
+ & 0.91261E+02_JPRB,0.31965E+03_JPRB,0.42876E+03_JPRB,0.28513E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,55, 2) = (/ &
+ & 0.91261E+02_JPRB,0.31973E+03_JPRB,0.42876E+03_JPRB,0.28514E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,55, 2) = (/ &
+ & 0.91260E+02_JPRB,0.31973E+03_JPRB,0.42876E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,56, 2) = (/ &
+ & 0.91261E+02_JPRB,0.31932E+03_JPRB,0.42876E+03_JPRB,0.28514E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,56, 2) = (/ &
+ & 0.91260E+02_JPRB,0.31947E+03_JPRB,0.42876E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,56, 2) = (/ &
+ & 0.91260E+02_JPRB,0.31961E+03_JPRB,0.42876E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,56, 2) = (/ &
+ & 0.91260E+02_JPRB,0.31971E+03_JPRB,0.42876E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,56, 2) = (/ &
+ & 0.91260E+02_JPRB,0.31974E+03_JPRB,0.42876E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,57, 2) = (/ &
+ & 0.91260E+02_JPRB,0.31927E+03_JPRB,0.42876E+03_JPRB,0.28514E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,57, 2) = (/ &
+ & 0.91260E+02_JPRB,0.31943E+03_JPRB,0.42876E+03_JPRB,0.28514E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,57, 2) = (/ &
+ & 0.91260E+02_JPRB,0.31957E+03_JPRB,0.42876E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,57, 2) = (/ &
+ & 0.91260E+02_JPRB,0.31968E+03_JPRB,0.42876E+03_JPRB,0.28514E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,57, 2) = (/ &
+ & 0.91260E+02_JPRB,0.31974E+03_JPRB,0.42876E+03_JPRB,0.28514E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,58, 2) = (/ &
+ & 0.91260E+02_JPRB,0.31922E+03_JPRB,0.42876E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,58, 2) = (/ &
+ & 0.91260E+02_JPRB,0.31938E+03_JPRB,0.42876E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,58, 2) = (/ &
+ & 0.91260E+02_JPRB,0.31953E+03_JPRB,0.42876E+03_JPRB,0.28514E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,58, 2) = (/ &
+ & 0.91260E+02_JPRB,0.31965E+03_JPRB,0.42876E+03_JPRB,0.28513E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,58, 2) = (/ &
+ & 0.91260E+02_JPRB,0.31973E+03_JPRB,0.42876E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,59, 2) = (/ &
+ & 0.91260E+02_JPRB,0.31920E+03_JPRB,0.42876E+03_JPRB,0.28514E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 2,59, 2) = (/ &
+ & 0.91260E+02_JPRB,0.31936E+03_JPRB,0.42876E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 3,59, 2) = (/ &
+ & 0.91259E+02_JPRB,0.31952E+03_JPRB,0.42876E+03_JPRB,0.28515E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 4,59, 2) = (/ &
+ & 0.91259E+02_JPRB,0.31964E+03_JPRB,0.42876E+03_JPRB,0.28514E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 5,59, 2) = (/ &
+ & 0.91259E+02_JPRB,0.31972E+03_JPRB,0.42876E+03_JPRB,0.28514E+03_JPRB,0.71839E+02_JPRB /)  
+KB(:, 1,13, 3) = (/ &
+ & 0.26463E+03_JPRB,0.36163E+03_JPRB,0.49889E+03_JPRB,0.32504E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,13, 3) = (/ &
+ & 0.26258E+03_JPRB,0.36010E+03_JPRB,0.49695E+03_JPRB,0.32345E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,13, 3) = (/ &
+ & 0.26083E+03_JPRB,0.35879E+03_JPRB,0.49519E+03_JPRB,0.32209E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,13, 3) = (/ &
+ & 0.25930E+03_JPRB,0.35766E+03_JPRB,0.49360E+03_JPRB,0.32093E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,13, 3) = (/ &
+ & 0.25795E+03_JPRB,0.35666E+03_JPRB,0.49217E+03_JPRB,0.31991E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,14, 3) = (/ &
+ & 0.25951E+03_JPRB,0.35782E+03_JPRB,0.49358E+03_JPRB,0.32109E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,14, 3) = (/ &
+ & 0.25786E+03_JPRB,0.35659E+03_JPRB,0.49191E+03_JPRB,0.31984E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,14, 3) = (/ &
+ & 0.25644E+03_JPRB,0.35554E+03_JPRB,0.49043E+03_JPRB,0.31877E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,14, 3) = (/ &
+ & 0.25520E+03_JPRB,0.35461E+03_JPRB,0.48912E+03_JPRB,0.31784E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,14, 3) = (/ &
+ & 0.25411E+03_JPRB,0.35381E+03_JPRB,0.48795E+03_JPRB,0.31704E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,15, 3) = (/ &
+ & 0.25534E+03_JPRB,0.35471E+03_JPRB,0.48908E+03_JPRB,0.31794E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,15, 3) = (/ &
+ & 0.25401E+03_JPRB,0.35373E+03_JPRB,0.48771E+03_JPRB,0.31695E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,15, 3) = (/ &
+ & 0.25286E+03_JPRB,0.35287E+03_JPRB,0.48651E+03_JPRB,0.31610E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,15, 3) = (/ &
+ & 0.25186E+03_JPRB,0.35213E+03_JPRB,0.48543E+03_JPRB,0.31537E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,15, 3) = (/ &
+ & 0.25098E+03_JPRB,0.35147E+03_JPRB,0.48447E+03_JPRB,0.31472E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,16, 3) = (/ &
+ & 0.25194E+03_JPRB,0.35219E+03_JPRB,0.48538E+03_JPRB,0.31543E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,16, 3) = (/ &
+ & 0.25087E+03_JPRB,0.35140E+03_JPRB,0.48427E+03_JPRB,0.31463E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,16, 3) = (/ &
+ & 0.24994E+03_JPRB,0.35071E+03_JPRB,0.48328E+03_JPRB,0.31395E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,16, 3) = (/ &
+ & 0.24914E+03_JPRB,0.35011E+03_JPRB,0.48239E+03_JPRB,0.31337E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,16, 3) = (/ &
+ & 0.24843E+03_JPRB,0.34958E+03_JPRB,0.48159E+03_JPRB,0.31282E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,17, 3) = (/ &
+ & 0.24919E+03_JPRB,0.35014E+03_JPRB,0.48236E+03_JPRB,0.31341E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,17, 3) = (/ &
+ & 0.24832E+03_JPRB,0.34950E+03_JPRB,0.48145E+03_JPRB,0.31278E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,17, 3) = (/ &
+ & 0.24758E+03_JPRB,0.34895E+03_JPRB,0.48063E+03_JPRB,0.31225E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,17, 3) = (/ &
+ & 0.24693E+03_JPRB,0.34847E+03_JPRB,0.47989E+03_JPRB,0.31178E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,17, 3) = (/ &
+ & 0.24635E+03_JPRB,0.34804E+03_JPRB,0.47924E+03_JPRB,0.31137E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,18, 3) = (/ &
+ & 0.24695E+03_JPRB,0.34848E+03_JPRB,0.47988E+03_JPRB,0.31180E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,18, 3) = (/ &
+ & 0.24626E+03_JPRB,0.34797E+03_JPRB,0.47913E+03_JPRB,0.31130E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,18, 3) = (/ &
+ & 0.24565E+03_JPRB,0.34752E+03_JPRB,0.47845E+03_JPRB,0.31086E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,18, 3) = (/ &
+ & 0.24513E+03_JPRB,0.34713E+03_JPRB,0.47784E+03_JPRB,0.31048E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,18, 3) = (/ &
+ & 0.24466E+03_JPRB,0.34679E+03_JPRB,0.47731E+03_JPRB,0.31015E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,19, 3) = (/ &
+ & 0.24514E+03_JPRB,0.34714E+03_JPRB,0.47784E+03_JPRB,0.31049E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,19, 3) = (/ &
+ & 0.24458E+03_JPRB,0.34672E+03_JPRB,0.47721E+03_JPRB,0.31009E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,19, 3) = (/ &
+ & 0.24409E+03_JPRB,0.34636E+03_JPRB,0.47665E+03_JPRB,0.30974E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,19, 3) = (/ &
+ & 0.24367E+03_JPRB,0.34605E+03_JPRB,0.47616E+03_JPRB,0.30943E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,19, 3) = (/ &
+ & 0.24329E+03_JPRB,0.34577E+03_JPRB,0.47573E+03_JPRB,0.30916E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,20, 3) = (/ &
+ & 0.24366E+03_JPRB,0.34604E+03_JPRB,0.47615E+03_JPRB,0.30943E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,20, 3) = (/ &
+ & 0.24321E+03_JPRB,0.34571E+03_JPRB,0.47563E+03_JPRB,0.30910E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,20, 3) = (/ &
+ & 0.24282E+03_JPRB,0.34542E+03_JPRB,0.47518E+03_JPRB,0.30882E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,20, 3) = (/ &
+ & 0.24247E+03_JPRB,0.34516E+03_JPRB,0.47478E+03_JPRB,0.30857E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,20, 3) = (/ &
+ & 0.24217E+03_JPRB,0.34494E+03_JPRB,0.47443E+03_JPRB,0.30835E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,21, 3) = (/ &
+ & 0.24246E+03_JPRB,0.34515E+03_JPRB,0.47476E+03_JPRB,0.30856E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,21, 3) = (/ &
+ & 0.24210E+03_JPRB,0.34488E+03_JPRB,0.47434E+03_JPRB,0.30830E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,21, 3) = (/ &
+ & 0.24178E+03_JPRB,0.34465E+03_JPRB,0.47397E+03_JPRB,0.30807E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,21, 3) = (/ &
+ & 0.24150E+03_JPRB,0.34444E+03_JPRB,0.47364E+03_JPRB,0.30787E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,21, 3) = (/ &
+ & 0.24126E+03_JPRB,0.34426E+03_JPRB,0.47341E+03_JPRB,0.30769E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,22, 3) = (/ &
+ & 0.24146E+03_JPRB,0.34441E+03_JPRB,0.47360E+03_JPRB,0.30784E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,22, 3) = (/ &
+ & 0.24117E+03_JPRB,0.34420E+03_JPRB,0.47327E+03_JPRB,0.30763E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,22, 3) = (/ &
+ & 0.24092E+03_JPRB,0.34401E+03_JPRB,0.47296E+03_JPRB,0.30745E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,22, 3) = (/ &
+ & 0.24070E+03_JPRB,0.34385E+03_JPRB,0.47270E+03_JPRB,0.30729E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,22, 3) = (/ &
+ & 0.24050E+03_JPRB,0.34370E+03_JPRB,0.47246E+03_JPRB,0.30715E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,23, 3) = (/ &
+ & 0.24066E+03_JPRB,0.34382E+03_JPRB,0.47265E+03_JPRB,0.30726E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,23, 3) = (/ &
+ & 0.24043E+03_JPRB,0.34365E+03_JPRB,0.47237E+03_JPRB,0.30709E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,23, 3) = (/ &
+ & 0.24023E+03_JPRB,0.34350E+03_JPRB,0.47213E+03_JPRB,0.30695E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,23, 3) = (/ &
+ & 0.24005E+03_JPRB,0.34336E+03_JPRB,0.47191E+03_JPRB,0.30682E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,23, 3) = (/ &
+ & 0.23989E+03_JPRB,0.34325E+03_JPRB,0.47173E+03_JPRB,0.30671E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,24, 3) = (/ &
+ & 0.24001E+03_JPRB,0.34333E+03_JPRB,0.47187E+03_JPRB,0.30679E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,24, 3) = (/ &
+ & 0.23982E+03_JPRB,0.34320E+03_JPRB,0.47164E+03_JPRB,0.30666E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,24, 3) = (/ &
+ & 0.23966E+03_JPRB,0.34308E+03_JPRB,0.47145E+03_JPRB,0.30654E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,24, 3) = (/ &
+ & 0.23952E+03_JPRB,0.34297E+03_JPRB,0.47128E+03_JPRB,0.30644E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,24, 3) = (/ &
+ & 0.23940E+03_JPRB,0.34288E+03_JPRB,0.47113E+03_JPRB,0.30635E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,25, 3) = (/ &
+ & 0.23948E+03_JPRB,0.34294E+03_JPRB,0.47124E+03_JPRB,0.30641E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,25, 3) = (/ &
+ & 0.23934E+03_JPRB,0.34284E+03_JPRB,0.47105E+03_JPRB,0.30631E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,25, 3) = (/ &
+ & 0.23921E+03_JPRB,0.34274E+03_JPRB,0.47089E+03_JPRB,0.30622E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,25, 3) = (/ &
+ & 0.23910E+03_JPRB,0.34266E+03_JPRB,0.47075E+03_JPRB,0.30613E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,25, 3) = (/ &
+ & 0.23900E+03_JPRB,0.34258E+03_JPRB,0.47063E+03_JPRB,0.30606E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,26, 3) = (/ &
+ & 0.23906E+03_JPRB,0.34263E+03_JPRB,0.47070E+03_JPRB,0.30610E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,26, 3) = (/ &
+ & 0.23894E+03_JPRB,0.34254E+03_JPRB,0.47056E+03_JPRB,0.30602E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,26, 3) = (/ &
+ & 0.23884E+03_JPRB,0.34247E+03_JPRB,0.47044E+03_JPRB,0.30595E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,26, 3) = (/ &
+ & 0.23875E+03_JPRB,0.34240E+03_JPRB,0.47033E+03_JPRB,0.30588E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,26, 3) = (/ &
+ & 0.23867E+03_JPRB,0.34234E+03_JPRB,0.47023E+03_JPRB,0.30583E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,27, 3) = (/ &
+ & 0.23871E+03_JPRB,0.34237E+03_JPRB,0.47028E+03_JPRB,0.30586E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,27, 3) = (/ &
+ & 0.23862E+03_JPRB,0.34230E+03_JPRB,0.47017E+03_JPRB,0.30579E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,27, 3) = (/ &
+ & 0.23854E+03_JPRB,0.34225E+03_JPRB,0.47007E+03_JPRB,0.30573E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,27, 3) = (/ &
+ & 0.23847E+03_JPRB,0.34219E+03_JPRB,0.46998E+03_JPRB,0.30568E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,27, 3) = (/ &
+ & 0.23840E+03_JPRB,0.34214E+03_JPRB,0.46990E+03_JPRB,0.30564E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,28, 3) = (/ &
+ & 0.23844E+03_JPRB,0.34217E+03_JPRB,0.46994E+03_JPRB,0.30566E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,28, 3) = (/ &
+ & 0.23836E+03_JPRB,0.34211E+03_JPRB,0.46985E+03_JPRB,0.30561E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,28, 3) = (/ &
+ & 0.23830E+03_JPRB,0.34207E+03_JPRB,0.46977E+03_JPRB,0.30556E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,28, 3) = (/ &
+ & 0.23824E+03_JPRB,0.34202E+03_JPRB,0.46970E+03_JPRB,0.30552E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,28, 3) = (/ &
+ & 0.23819E+03_JPRB,0.34198E+03_JPRB,0.46964E+03_JPRB,0.30548E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,29, 3) = (/ &
+ & 0.23821E+03_JPRB,0.34200E+03_JPRB,0.46966E+03_JPRB,0.30550E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,29, 3) = (/ &
+ & 0.23815E+03_JPRB,0.34196E+03_JPRB,0.46959E+03_JPRB,0.30546E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,29, 3) = (/ &
+ & 0.23810E+03_JPRB,0.34192E+03_JPRB,0.46953E+03_JPRB,0.30542E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,29, 3) = (/ &
+ & 0.23806E+03_JPRB,0.34189E+03_JPRB,0.46948E+03_JPRB,0.30539E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,29, 3) = (/ &
+ & 0.23802E+03_JPRB,0.34185E+03_JPRB,0.46942E+03_JPRB,0.30536E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,30, 3) = (/ &
+ & 0.23803E+03_JPRB,0.34187E+03_JPRB,0.46944E+03_JPRB,0.30537E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,30, 3) = (/ &
+ & 0.23799E+03_JPRB,0.34184E+03_JPRB,0.46939E+03_JPRB,0.30533E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,30, 3) = (/ &
+ & 0.23795E+03_JPRB,0.34180E+03_JPRB,0.46934E+03_JPRB,0.30531E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,30, 3) = (/ &
+ & 0.23791E+03_JPRB,0.34178E+03_JPRB,0.46929E+03_JPRB,0.30528E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,30, 3) = (/ &
+ & 0.23788E+03_JPRB,0.34175E+03_JPRB,0.46925E+03_JPRB,0.30526E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,31, 3) = (/ &
+ & 0.23789E+03_JPRB,0.34176E+03_JPRB,0.46926E+03_JPRB,0.30526E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,31, 3) = (/ &
+ & 0.23785E+03_JPRB,0.34173E+03_JPRB,0.46922E+03_JPRB,0.30524E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,31, 3) = (/ &
+ & 0.23782E+03_JPRB,0.34171E+03_JPRB,0.46918E+03_JPRB,0.30521E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,31, 3) = (/ &
+ & 0.23779E+03_JPRB,0.34169E+03_JPRB,0.46914E+03_JPRB,0.30519E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,31, 3) = (/ &
+ & 0.23777E+03_JPRB,0.34167E+03_JPRB,0.46911E+03_JPRB,0.30518E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,32, 3) = (/ &
+ & 0.23777E+03_JPRB,0.34168E+03_JPRB,0.46912E+03_JPRB,0.30518E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,32, 3) = (/ &
+ & 0.23774E+03_JPRB,0.34166E+03_JPRB,0.46908E+03_JPRB,0.30516E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,32, 3) = (/ &
+ & 0.23772E+03_JPRB,0.34163E+03_JPRB,0.46905E+03_JPRB,0.30514E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,32, 3) = (/ &
+ & 0.23770E+03_JPRB,0.34162E+03_JPRB,0.46902E+03_JPRB,0.30512E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,32, 3) = (/ &
+ & 0.23767E+03_JPRB,0.34160E+03_JPRB,0.46900E+03_JPRB,0.30511E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,33, 3) = (/ &
+ & 0.23768E+03_JPRB,0.34161E+03_JPRB,0.46900E+03_JPRB,0.30511E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,33, 3) = (/ &
+ & 0.23766E+03_JPRB,0.34159E+03_JPRB,0.46897E+03_JPRB,0.30510E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,33, 3) = (/ &
+ & 0.23764E+03_JPRB,0.34157E+03_JPRB,0.46895E+03_JPRB,0.30508E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,33, 3) = (/ &
+ & 0.23762E+03_JPRB,0.34156E+03_JPRB,0.46893E+03_JPRB,0.30507E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,33, 3) = (/ &
+ & 0.23760E+03_JPRB,0.34154E+03_JPRB,0.46891E+03_JPRB,0.30506E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,34, 3) = (/ &
+ & 0.23760E+03_JPRB,0.34155E+03_JPRB,0.46891E+03_JPRB,0.30506E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,34, 3) = (/ &
+ & 0.23759E+03_JPRB,0.34154E+03_JPRB,0.46889E+03_JPRB,0.30505E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,34, 3) = (/ &
+ & 0.23757E+03_JPRB,0.34152E+03_JPRB,0.46887E+03_JPRB,0.30503E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,34, 3) = (/ &
+ & 0.23756E+03_JPRB,0.34151E+03_JPRB,0.46885E+03_JPRB,0.30502E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,34, 3) = (/ &
+ & 0.23754E+03_JPRB,0.34150E+03_JPRB,0.46883E+03_JPRB,0.30501E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,35, 3) = (/ &
+ & 0.23755E+03_JPRB,0.34151E+03_JPRB,0.46884E+03_JPRB,0.30502E+03_JPRB,0.17829E+03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART15',1,ZHOOK_HANDLE)
+END SUBROUTINE PART15
+
+
+SUBROUTINE PART16
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART16',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,35, 3) = (/ &
+ & 0.23753E+03_JPRB,0.34150E+03_JPRB,0.46882E+03_JPRB,0.30501E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,35, 3) = (/ &
+ & 0.23752E+03_JPRB,0.34148E+03_JPRB,0.46880E+03_JPRB,0.30500E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,35, 3) = (/ &
+ & 0.23751E+03_JPRB,0.34147E+03_JPRB,0.46879E+03_JPRB,0.30499E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,35, 3) = (/ &
+ & 0.23750E+03_JPRB,0.34146E+03_JPRB,0.46878E+03_JPRB,0.30498E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,36, 3) = (/ &
+ & 0.23750E+03_JPRB,0.34147E+03_JPRB,0.46878E+03_JPRB,0.30498E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,36, 3) = (/ &
+ & 0.23749E+03_JPRB,0.34146E+03_JPRB,0.46877E+03_JPRB,0.30497E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,36, 3) = (/ &
+ & 0.23748E+03_JPRB,0.34145E+03_JPRB,0.46875E+03_JPRB,0.30497E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,36, 3) = (/ &
+ & 0.23747E+03_JPRB,0.34144E+03_JPRB,0.46874E+03_JPRB,0.30496E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,36, 3) = (/ &
+ & 0.23746E+03_JPRB,0.34144E+03_JPRB,0.46873E+03_JPRB,0.30495E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,37, 3) = (/ &
+ & 0.23746E+03_JPRB,0.34145E+03_JPRB,0.46874E+03_JPRB,0.30496E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,37, 3) = (/ &
+ & 0.23745E+03_JPRB,0.34144E+03_JPRB,0.46872E+03_JPRB,0.30495E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,37, 3) = (/ &
+ & 0.23744E+03_JPRB,0.34143E+03_JPRB,0.46871E+03_JPRB,0.30494E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,37, 3) = (/ &
+ & 0.23744E+03_JPRB,0.34142E+03_JPRB,0.46870E+03_JPRB,0.30494E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,37, 3) = (/ &
+ & 0.23743E+03_JPRB,0.34141E+03_JPRB,0.46869E+03_JPRB,0.30493E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,38, 3) = (/ &
+ & 0.23743E+03_JPRB,0.34143E+03_JPRB,0.46870E+03_JPRB,0.30493E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,38, 3) = (/ &
+ & 0.23742E+03_JPRB,0.34142E+03_JPRB,0.46869E+03_JPRB,0.30493E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,38, 3) = (/ &
+ & 0.23742E+03_JPRB,0.34141E+03_JPRB,0.46868E+03_JPRB,0.30492E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,38, 3) = (/ &
+ & 0.23741E+03_JPRB,0.34140E+03_JPRB,0.46867E+03_JPRB,0.30492E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,38, 3) = (/ &
+ & 0.23740E+03_JPRB,0.34140E+03_JPRB,0.46866E+03_JPRB,0.30491E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,39, 3) = (/ &
+ & 0.23741E+03_JPRB,0.34141E+03_JPRB,0.46867E+03_JPRB,0.30492E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,39, 3) = (/ &
+ & 0.23740E+03_JPRB,0.34140E+03_JPRB,0.46866E+03_JPRB,0.30491E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,39, 3) = (/ &
+ & 0.23739E+03_JPRB,0.34139E+03_JPRB,0.46865E+03_JPRB,0.30491E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,39, 3) = (/ &
+ & 0.23739E+03_JPRB,0.34139E+03_JPRB,0.46865E+03_JPRB,0.30490E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,39, 3) = (/ &
+ & 0.23738E+03_JPRB,0.34138E+03_JPRB,0.46864E+03_JPRB,0.30490E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,40, 3) = (/ &
+ & 0.23739E+03_JPRB,0.34139E+03_JPRB,0.46864E+03_JPRB,0.30490E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,40, 3) = (/ &
+ & 0.23738E+03_JPRB,0.34139E+03_JPRB,0.46864E+03_JPRB,0.30490E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,40, 3) = (/ &
+ & 0.23738E+03_JPRB,0.34138E+03_JPRB,0.46863E+03_JPRB,0.30489E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,40, 3) = (/ &
+ & 0.23737E+03_JPRB,0.34138E+03_JPRB,0.46862E+03_JPRB,0.30489E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,40, 3) = (/ &
+ & 0.23737E+03_JPRB,0.34137E+03_JPRB,0.46862E+03_JPRB,0.30489E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,41, 3) = (/ &
+ & 0.23737E+03_JPRB,0.34138E+03_JPRB,0.46862E+03_JPRB,0.30489E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,41, 3) = (/ &
+ & 0.23737E+03_JPRB,0.34138E+03_JPRB,0.46862E+03_JPRB,0.30489E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,41, 3) = (/ &
+ & 0.23736E+03_JPRB,0.34137E+03_JPRB,0.46861E+03_JPRB,0.30488E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,41, 3) = (/ &
+ & 0.23736E+03_JPRB,0.34137E+03_JPRB,0.46861E+03_JPRB,0.30488E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,41, 3) = (/ &
+ & 0.23736E+03_JPRB,0.34136E+03_JPRB,0.46860E+03_JPRB,0.30488E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,42, 3) = (/ &
+ & 0.23736E+03_JPRB,0.34137E+03_JPRB,0.46861E+03_JPRB,0.30488E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,42, 3) = (/ &
+ & 0.23735E+03_JPRB,0.34137E+03_JPRB,0.46860E+03_JPRB,0.30488E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,42, 3) = (/ &
+ & 0.23735E+03_JPRB,0.34136E+03_JPRB,0.46860E+03_JPRB,0.30488E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,42, 3) = (/ &
+ & 0.23735E+03_JPRB,0.34136E+03_JPRB,0.46859E+03_JPRB,0.30487E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,42, 3) = (/ &
+ & 0.23734E+03_JPRB,0.34135E+03_JPRB,0.46859E+03_JPRB,0.30487E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,43, 3) = (/ &
+ & 0.23735E+03_JPRB,0.34136E+03_JPRB,0.46859E+03_JPRB,0.30487E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,43, 3) = (/ &
+ & 0.23734E+03_JPRB,0.34136E+03_JPRB,0.46859E+03_JPRB,0.30487E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,43, 3) = (/ &
+ & 0.23734E+03_JPRB,0.34136E+03_JPRB,0.46858E+03_JPRB,0.30487E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,43, 3) = (/ &
+ & 0.23734E+03_JPRB,0.34135E+03_JPRB,0.46858E+03_JPRB,0.30487E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,43, 3) = (/ &
+ & 0.23734E+03_JPRB,0.34135E+03_JPRB,0.46858E+03_JPRB,0.30486E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,44, 3) = (/ &
+ & 0.23734E+03_JPRB,0.34136E+03_JPRB,0.46858E+03_JPRB,0.30487E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,44, 3) = (/ &
+ & 0.23734E+03_JPRB,0.34135E+03_JPRB,0.46858E+03_JPRB,0.30486E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,44, 3) = (/ &
+ & 0.23733E+03_JPRB,0.34135E+03_JPRB,0.46857E+03_JPRB,0.30486E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,44, 3) = (/ &
+ & 0.23733E+03_JPRB,0.34135E+03_JPRB,0.46857E+03_JPRB,0.30486E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,44, 3) = (/ &
+ & 0.23733E+03_JPRB,0.34134E+03_JPRB,0.46857E+03_JPRB,0.30486E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,45, 3) = (/ &
+ & 0.23733E+03_JPRB,0.34135E+03_JPRB,0.46857E+03_JPRB,0.30486E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,45, 3) = (/ &
+ & 0.23733E+03_JPRB,0.34135E+03_JPRB,0.46857E+03_JPRB,0.30486E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,45, 3) = (/ &
+ & 0.23733E+03_JPRB,0.34135E+03_JPRB,0.46857E+03_JPRB,0.30486E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,45, 3) = (/ &
+ & 0.23732E+03_JPRB,0.34134E+03_JPRB,0.46856E+03_JPRB,0.30486E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,45, 3) = (/ &
+ & 0.23732E+03_JPRB,0.34134E+03_JPRB,0.46856E+03_JPRB,0.30486E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,46, 3) = (/ &
+ & 0.23732E+03_JPRB,0.34135E+03_JPRB,0.46856E+03_JPRB,0.30486E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,46, 3) = (/ &
+ & 0.23732E+03_JPRB,0.34134E+03_JPRB,0.46856E+03_JPRB,0.30486E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,46, 3) = (/ &
+ & 0.23732E+03_JPRB,0.34134E+03_JPRB,0.46856E+03_JPRB,0.30485E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,46, 3) = (/ &
+ & 0.23732E+03_JPRB,0.34134E+03_JPRB,0.46856E+03_JPRB,0.30485E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,46, 3) = (/ &
+ & 0.23732E+03_JPRB,0.34134E+03_JPRB,0.46856E+03_JPRB,0.30485E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,47, 3) = (/ &
+ & 0.23732E+03_JPRB,0.34135E+03_JPRB,0.46856E+03_JPRB,0.30485E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,47, 3) = (/ &
+ & 0.23732E+03_JPRB,0.34134E+03_JPRB,0.46856E+03_JPRB,0.30485E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,47, 3) = (/ &
+ & 0.23732E+03_JPRB,0.34134E+03_JPRB,0.46855E+03_JPRB,0.30485E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,47, 3) = (/ &
+ & 0.23731E+03_JPRB,0.34134E+03_JPRB,0.46855E+03_JPRB,0.30485E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,47, 3) = (/ &
+ & 0.23731E+03_JPRB,0.34133E+03_JPRB,0.46855E+03_JPRB,0.30485E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,48, 3) = (/ &
+ & 0.23731E+03_JPRB,0.34135E+03_JPRB,0.46855E+03_JPRB,0.30485E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,48, 3) = (/ &
+ & 0.23731E+03_JPRB,0.34134E+03_JPRB,0.46855E+03_JPRB,0.30485E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,48, 3) = (/ &
+ & 0.23731E+03_JPRB,0.34134E+03_JPRB,0.46855E+03_JPRB,0.30485E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,48, 3) = (/ &
+ & 0.23731E+03_JPRB,0.34134E+03_JPRB,0.46855E+03_JPRB,0.30485E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,48, 3) = (/ &
+ & 0.23731E+03_JPRB,0.34133E+03_JPRB,0.46855E+03_JPRB,0.30485E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,49, 3) = (/ &
+ & 0.23731E+03_JPRB,0.34135E+03_JPRB,0.46855E+03_JPRB,0.30485E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,49, 3) = (/ &
+ & 0.23731E+03_JPRB,0.34134E+03_JPRB,0.46855E+03_JPRB,0.30485E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,49, 3) = (/ &
+ & 0.23731E+03_JPRB,0.34133E+03_JPRB,0.46854E+03_JPRB,0.30485E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,49, 3) = (/ &
+ & 0.23731E+03_JPRB,0.34133E+03_JPRB,0.46854E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,49, 3) = (/ &
+ & 0.23731E+03_JPRB,0.34133E+03_JPRB,0.46854E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,50, 3) = (/ &
+ & 0.23731E+03_JPRB,0.34136E+03_JPRB,0.46854E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,50, 3) = (/ &
+ & 0.23731E+03_JPRB,0.34134E+03_JPRB,0.46854E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,50, 3) = (/ &
+ & 0.23731E+03_JPRB,0.34133E+03_JPRB,0.46854E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,50, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34133E+03_JPRB,0.46854E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,50, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34133E+03_JPRB,0.46854E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,51, 3) = (/ &
+ & 0.23731E+03_JPRB,0.34136E+03_JPRB,0.46854E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,51, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34134E+03_JPRB,0.46854E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,51, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34133E+03_JPRB,0.46854E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,51, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34133E+03_JPRB,0.46854E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,51, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34133E+03_JPRB,0.46854E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,52, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34136E+03_JPRB,0.46852E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,52, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34135E+03_JPRB,0.46854E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,52, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34133E+03_JPRB,0.46854E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,52, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34132E+03_JPRB,0.46854E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,52, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34133E+03_JPRB,0.46853E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,53, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34137E+03_JPRB,0.46851E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,53, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34135E+03_JPRB,0.46853E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,53, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34134E+03_JPRB,0.46853E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,53, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34133E+03_JPRB,0.46853E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,53, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34133E+03_JPRB,0.46853E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,54, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34137E+03_JPRB,0.46849E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,54, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34136E+03_JPRB,0.46852E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,54, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34134E+03_JPRB,0.46853E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,54, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34133E+03_JPRB,0.46853E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,54, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34132E+03_JPRB,0.46853E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,55, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34138E+03_JPRB,0.46847E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,55, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34136E+03_JPRB,0.46852E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,55, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34134E+03_JPRB,0.46853E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,55, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34133E+03_JPRB,0.46853E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,55, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34132E+03_JPRB,0.46853E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,56, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34139E+03_JPRB,0.46844E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,56, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34137E+03_JPRB,0.46850E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,56, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34135E+03_JPRB,0.46853E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,56, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34133E+03_JPRB,0.46853E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,56, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34133E+03_JPRB,0.46853E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,57, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34140E+03_JPRB,0.46840E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,57, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34137E+03_JPRB,0.46849E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,57, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34135E+03_JPRB,0.46852E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,57, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34134E+03_JPRB,0.46853E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,57, 3) = (/ &
+ & 0.23729E+03_JPRB,0.34132E+03_JPRB,0.46853E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,58, 3) = (/ &
+ & 0.23730E+03_JPRB,0.34140E+03_JPRB,0.46837E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,58, 3) = (/ &
+ & 0.23729E+03_JPRB,0.34138E+03_JPRB,0.46847E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,58, 3) = (/ &
+ & 0.23729E+03_JPRB,0.34136E+03_JPRB,0.46851E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,58, 3) = (/ &
+ & 0.23729E+03_JPRB,0.34134E+03_JPRB,0.46853E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,58, 3) = (/ &
+ & 0.23729E+03_JPRB,0.34133E+03_JPRB,0.46853E+03_JPRB,0.30483E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,59, 3) = (/ &
+ & 0.23729E+03_JPRB,0.34141E+03_JPRB,0.46835E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 2,59, 3) = (/ &
+ & 0.23729E+03_JPRB,0.34138E+03_JPRB,0.46846E+03_JPRB,0.30484E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 3,59, 3) = (/ &
+ & 0.23729E+03_JPRB,0.34136E+03_JPRB,0.46851E+03_JPRB,0.30483E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 4,59, 3) = (/ &
+ & 0.23729E+03_JPRB,0.34134E+03_JPRB,0.46853E+03_JPRB,0.30483E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 5,59, 3) = (/ &
+ & 0.23729E+03_JPRB,0.34133E+03_JPRB,0.46853E+03_JPRB,0.30483E+03_JPRB,0.17829E+03_JPRB /)  
+KB(:, 1,13, 4) = (/ &
+ & 0.51214E+03_JPRB,0.47089E+03_JPRB,0.53698E+03_JPRB,0.40623E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,13, 4) = (/ &
+ & 0.50819E+03_JPRB,0.46793E+03_JPRB,0.53525E+03_JPRB,0.40532E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,13, 4) = (/ &
+ & 0.50478E+03_JPRB,0.46537E+03_JPRB,0.53379E+03_JPRB,0.40453E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,13, 4) = (/ &
+ & 0.50182E+03_JPRB,0.46315E+03_JPRB,0.53251E+03_JPRB,0.40385E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,13, 4) = (/ &
+ & 0.49922E+03_JPRB,0.46120E+03_JPRB,0.53137E+03_JPRB,0.40325E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,14, 4) = (/ &
+ & 0.50224E+03_JPRB,0.46346E+03_JPRB,0.53224E+03_JPRB,0.40395E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,14, 4) = (/ &
+ & 0.49905E+03_JPRB,0.46107E+03_JPRB,0.53090E+03_JPRB,0.40321E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,14, 4) = (/ &
+ & 0.49629E+03_JPRB,0.45901E+03_JPRB,0.52974E+03_JPRB,0.40258E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,14, 4) = (/ &
+ & 0.49390E+03_JPRB,0.45721E+03_JPRB,0.52871E+03_JPRB,0.40203E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,14, 4) = (/ &
+ & 0.49179E+03_JPRB,0.45563E+03_JPRB,0.52774E+03_JPRB,0.40154E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,15, 4) = (/ &
+ & 0.49416E+03_JPRB,0.45741E+03_JPRB,0.52835E+03_JPRB,0.40209E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,15, 4) = (/ &
+ & 0.49159E+03_JPRB,0.45548E+03_JPRB,0.52725E+03_JPRB,0.40149E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,15, 4) = (/ &
+ & 0.48937E+03_JPRB,0.45381E+03_JPRB,0.52626E+03_JPRB,0.40098E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,15, 4) = (/ &
+ & 0.48743E+03_JPRB,0.45236E+03_JPRB,0.52534E+03_JPRB,0.40054E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,15, 4) = (/ &
+ & 0.48573E+03_JPRB,0.45108E+03_JPRB,0.52448E+03_JPRB,0.40015E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,16, 4) = (/ &
+ & 0.48759E+03_JPRB,0.45248E+03_JPRB,0.52492E+03_JPRB,0.40057E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,16, 4) = (/ &
+ & 0.48552E+03_JPRB,0.45092E+03_JPRB,0.52397E+03_JPRB,0.40010E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,16, 4) = (/ &
+ & 0.48373E+03_JPRB,0.44958E+03_JPRB,0.52310E+03_JPRB,0.39968E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,16, 4) = (/ &
+ & 0.48216E+03_JPRB,0.44841E+03_JPRB,0.52232E+03_JPRB,0.39932E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,16, 4) = (/ &
+ & 0.48079E+03_JPRB,0.44738E+03_JPRB,0.52159E+03_JPRB,0.39901E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,17, 4) = (/ &
+ & 0.48226E+03_JPRB,0.44848E+03_JPRB,0.52188E+03_JPRB,0.39935E+03_JPRB,0.38437E+03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART16',1,ZHOOK_HANDLE)
+END SUBROUTINE PART16
+
+
+SUBROUTINE PART17
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART17',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,17, 4) = (/ &
+ & 0.48059E+03_JPRB,0.44723E+03_JPRB,0.52110E+03_JPRB,0.39896E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,17, 4) = (/ &
+ & 0.47915E+03_JPRB,0.44615E+03_JPRB,0.52038E+03_JPRB,0.39863E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,17, 4) = (/ &
+ & 0.47788E+03_JPRB,0.44520E+03_JPRB,0.51974E+03_JPRB,0.39834E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,17, 4) = (/ &
+ & 0.47677E+03_JPRB,0.44437E+03_JPRB,0.51913E+03_JPRB,0.39808E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,18, 4) = (/ &
+ & 0.47794E+03_JPRB,0.44524E+03_JPRB,0.51928E+03_JPRB,0.39835E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,18, 4) = (/ &
+ & 0.47659E+03_JPRB,0.44423E+03_JPRB,0.51865E+03_JPRB,0.39804E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,18, 4) = (/ &
+ & 0.47542E+03_JPRB,0.44336E+03_JPRB,0.51808E+03_JPRB,0.39777E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,18, 4) = (/ &
+ & 0.47441E+03_JPRB,0.44259E+03_JPRB,0.51755E+03_JPRB,0.39754E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,18, 4) = (/ &
+ & 0.47351E+03_JPRB,0.44192E+03_JPRB,0.51705E+03_JPRB,0.39733E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,19, 4) = (/ &
+ & 0.47443E+03_JPRB,0.44261E+03_JPRB,0.51710E+03_JPRB,0.39754E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,19, 4) = (/ &
+ & 0.47334E+03_JPRB,0.44179E+03_JPRB,0.51660E+03_JPRB,0.39729E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,19, 4) = (/ &
+ & 0.47240E+03_JPRB,0.44109E+03_JPRB,0.51615E+03_JPRB,0.39708E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,19, 4) = (/ &
+ & 0.47158E+03_JPRB,0.44047E+03_JPRB,0.51573E+03_JPRB,0.39689E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,19, 4) = (/ &
+ & 0.47085E+03_JPRB,0.43993E+03_JPRB,0.51533E+03_JPRB,0.39672E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,20, 4) = (/ &
+ & 0.47156E+03_JPRB,0.44046E+03_JPRB,0.51527E+03_JPRB,0.39688E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,20, 4) = (/ &
+ & 0.47069E+03_JPRB,0.43980E+03_JPRB,0.51490E+03_JPRB,0.39668E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,20, 4) = (/ &
+ & 0.46993E+03_JPRB,0.43924E+03_JPRB,0.51455E+03_JPRB,0.39651E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,20, 4) = (/ &
+ & 0.46927E+03_JPRB,0.43874E+03_JPRB,0.51422E+03_JPRB,0.39635E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,20, 4) = (/ &
+ & 0.46868E+03_JPRB,0.43830E+03_JPRB,0.51389E+03_JPRB,0.39622E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,21, 4) = (/ &
+ & 0.46924E+03_JPRB,0.43872E+03_JPRB,0.51377E+03_JPRB,0.39635E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,21, 4) = (/ &
+ & 0.46853E+03_JPRB,0.43819E+03_JPRB,0.51350E+03_JPRB,0.39619E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,21, 4) = (/ &
+ & 0.46792E+03_JPRB,0.43773E+03_JPRB,0.51323E+03_JPRB,0.39604E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,21, 4) = (/ &
+ & 0.46739E+03_JPRB,0.43733E+03_JPRB,0.51296E+03_JPRB,0.39592E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,21, 4) = (/ &
+ & 0.46692E+03_JPRB,0.43697E+03_JPRB,0.51263E+03_JPRB,0.39581E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,22, 4) = (/ &
+ & 0.46731E+03_JPRB,0.43727E+03_JPRB,0.51254E+03_JPRB,0.39590E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,22, 4) = (/ &
+ & 0.46675E+03_JPRB,0.43685E+03_JPRB,0.51231E+03_JPRB,0.39577E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,22, 4) = (/ &
+ & 0.46626E+03_JPRB,0.43648E+03_JPRB,0.51212E+03_JPRB,0.39566E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,22, 4) = (/ &
+ & 0.46584E+03_JPRB,0.43616E+03_JPRB,0.51190E+03_JPRB,0.39556E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,22, 4) = (/ &
+ & 0.46546E+03_JPRB,0.43588E+03_JPRB,0.51168E+03_JPRB,0.39548E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,23, 4) = (/ &
+ & 0.46575E+03_JPRB,0.43610E+03_JPRB,0.51153E+03_JPRB,0.39554E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,23, 4) = (/ &
+ & 0.46531E+03_JPRB,0.43577E+03_JPRB,0.51138E+03_JPRB,0.39544E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,23, 4) = (/ &
+ & 0.46492E+03_JPRB,0.43548E+03_JPRB,0.51122E+03_JPRB,0.39535E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,23, 4) = (/ &
+ & 0.46458E+03_JPRB,0.43522E+03_JPRB,0.51104E+03_JPRB,0.39527E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,23, 4) = (/ &
+ & 0.46427E+03_JPRB,0.43499E+03_JPRB,0.51086E+03_JPRB,0.39520E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,24, 4) = (/ &
+ & 0.46450E+03_JPRB,0.43516E+03_JPRB,0.51071E+03_JPRB,0.39525E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,24, 4) = (/ &
+ & 0.46414E+03_JPRB,0.43489E+03_JPRB,0.51060E+03_JPRB,0.39517E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,24, 4) = (/ &
+ & 0.46383E+03_JPRB,0.43466E+03_JPRB,0.51047E+03_JPRB,0.39510E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,24, 4) = (/ &
+ & 0.46356E+03_JPRB,0.43445E+03_JPRB,0.51033E+03_JPRB,0.39504E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,24, 4) = (/ &
+ & 0.46331E+03_JPRB,0.43427E+03_JPRB,0.51019E+03_JPRB,0.39498E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,25, 4) = (/ &
+ & 0.46348E+03_JPRB,0.43439E+03_JPRB,0.51003E+03_JPRB,0.39502E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,25, 4) = (/ &
+ & 0.46319E+03_JPRB,0.43418E+03_JPRB,0.50997E+03_JPRB,0.39496E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,25, 4) = (/ &
+ & 0.46295E+03_JPRB,0.43400E+03_JPRB,0.50987E+03_JPRB,0.39490E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,25, 4) = (/ &
+ & 0.46273E+03_JPRB,0.43383E+03_JPRB,0.50976E+03_JPRB,0.39485E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,25, 4) = (/ &
+ & 0.46254E+03_JPRB,0.43369E+03_JPRB,0.50965E+03_JPRB,0.39480E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,26, 4) = (/ &
+ & 0.46265E+03_JPRB,0.43378E+03_JPRB,0.50951E+03_JPRB,0.39483E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,26, 4) = (/ &
+ & 0.46243E+03_JPRB,0.43361E+03_JPRB,0.50946E+03_JPRB,0.39478E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,26, 4) = (/ &
+ & 0.46223E+03_JPRB,0.43346E+03_JPRB,0.50938E+03_JPRB,0.39473E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,26, 4) = (/ &
+ & 0.46206E+03_JPRB,0.43333E+03_JPRB,0.50930E+03_JPRB,0.39469E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,26, 4) = (/ &
+ & 0.46190E+03_JPRB,0.43321E+03_JPRB,0.50921E+03_JPRB,0.39466E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,27, 4) = (/ &
+ & 0.46199E+03_JPRB,0.43328E+03_JPRB,0.50908E+03_JPRB,0.39468E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,27, 4) = (/ &
+ & 0.46181E+03_JPRB,0.43314E+03_JPRB,0.50904E+03_JPRB,0.39464E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,27, 4) = (/ &
+ & 0.46165E+03_JPRB,0.43303E+03_JPRB,0.50899E+03_JPRB,0.39460E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,27, 4) = (/ &
+ & 0.46152E+03_JPRB,0.43292E+03_JPRB,0.50892E+03_JPRB,0.39457E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,27, 4) = (/ &
+ & 0.46139E+03_JPRB,0.43283E+03_JPRB,0.50885E+03_JPRB,0.39454E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,28, 4) = (/ &
+ & 0.46145E+03_JPRB,0.43288E+03_JPRB,0.50873E+03_JPRB,0.39455E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,28, 4) = (/ &
+ & 0.46131E+03_JPRB,0.43277E+03_JPRB,0.50871E+03_JPRB,0.39452E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,28, 4) = (/ &
+ & 0.46119E+03_JPRB,0.43268E+03_JPRB,0.50867E+03_JPRB,0.39449E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,28, 4) = (/ &
+ & 0.46108E+03_JPRB,0.43259E+03_JPRB,0.50862E+03_JPRB,0.39447E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,28, 4) = (/ &
+ & 0.46098E+03_JPRB,0.43252E+03_JPRB,0.50856E+03_JPRB,0.39445E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,29, 4) = (/ &
+ & 0.46102E+03_JPRB,0.43255E+03_JPRB,0.50845E+03_JPRB,0.39445E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,29, 4) = (/ &
+ & 0.46091E+03_JPRB,0.43247E+03_JPRB,0.50844E+03_JPRB,0.39443E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,29, 4) = (/ &
+ & 0.46081E+03_JPRB,0.43239E+03_JPRB,0.50842E+03_JPRB,0.39441E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,29, 4) = (/ &
+ & 0.46072E+03_JPRB,0.43233E+03_JPRB,0.50837E+03_JPRB,0.39439E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,29, 4) = (/ &
+ & 0.46064E+03_JPRB,0.43227E+03_JPRB,0.50832E+03_JPRB,0.39437E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,30, 4) = (/ &
+ & 0.46067E+03_JPRB,0.43229E+03_JPRB,0.50823E+03_JPRB,0.39437E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,30, 4) = (/ &
+ & 0.46058E+03_JPRB,0.43223E+03_JPRB,0.50823E+03_JPRB,0.39435E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,30, 4) = (/ &
+ & 0.46051E+03_JPRB,0.43217E+03_JPRB,0.50821E+03_JPRB,0.39434E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,30, 4) = (/ &
+ & 0.46044E+03_JPRB,0.43211E+03_JPRB,0.50818E+03_JPRB,0.39432E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,30, 4) = (/ &
+ & 0.46037E+03_JPRB,0.43207E+03_JPRB,0.50813E+03_JPRB,0.39431E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,31, 4) = (/ &
+ & 0.46039E+03_JPRB,0.43208E+03_JPRB,0.50805E+03_JPRB,0.39431E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,31, 4) = (/ &
+ & 0.46032E+03_JPRB,0.43203E+03_JPRB,0.50805E+03_JPRB,0.39429E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,31, 4) = (/ &
+ & 0.46026E+03_JPRB,0.43198E+03_JPRB,0.50804E+03_JPRB,0.39428E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,31, 4) = (/ &
+ & 0.46021E+03_JPRB,0.43194E+03_JPRB,0.50801E+03_JPRB,0.39427E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,31, 4) = (/ &
+ & 0.46016E+03_JPRB,0.43190E+03_JPRB,0.50797E+03_JPRB,0.39426E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,32, 4) = (/ &
+ & 0.46017E+03_JPRB,0.43191E+03_JPRB,0.50790E+03_JPRB,0.39426E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,32, 4) = (/ &
+ & 0.46011E+03_JPRB,0.43187E+03_JPRB,0.50792E+03_JPRB,0.39425E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,32, 4) = (/ &
+ & 0.46006E+03_JPRB,0.43183E+03_JPRB,0.50791E+03_JPRB,0.39423E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,32, 4) = (/ &
+ & 0.46002E+03_JPRB,0.43180E+03_JPRB,0.50788E+03_JPRB,0.39422E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,32, 4) = (/ &
+ & 0.45998E+03_JPRB,0.43177E+03_JPRB,0.50784E+03_JPRB,0.39421E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,33, 4) = (/ &
+ & 0.45999E+03_JPRB,0.43178E+03_JPRB,0.50779E+03_JPRB,0.39422E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,33, 4) = (/ &
+ & 0.45994E+03_JPRB,0.43174E+03_JPRB,0.50781E+03_JPRB,0.39421E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,33, 4) = (/ &
+ & 0.45990E+03_JPRB,0.43171E+03_JPRB,0.50780E+03_JPRB,0.39420E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,33, 4) = (/ &
+ & 0.45987E+03_JPRB,0.43169E+03_JPRB,0.50777E+03_JPRB,0.39419E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,33, 4) = (/ &
+ & 0.45984E+03_JPRB,0.43166E+03_JPRB,0.50773E+03_JPRB,0.39418E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,34, 4) = (/ &
+ & 0.45984E+03_JPRB,0.43167E+03_JPRB,0.50770E+03_JPRB,0.39418E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,34, 4) = (/ &
+ & 0.45981E+03_JPRB,0.43164E+03_JPRB,0.50772E+03_JPRB,0.39418E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,34, 4) = (/ &
+ & 0.45978E+03_JPRB,0.43162E+03_JPRB,0.50771E+03_JPRB,0.39417E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,34, 4) = (/ &
+ & 0.45975E+03_JPRB,0.43160E+03_JPRB,0.50768E+03_JPRB,0.39416E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,34, 4) = (/ &
+ & 0.45972E+03_JPRB,0.43158E+03_JPRB,0.50764E+03_JPRB,0.39416E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,35, 4) = (/ &
+ & 0.45973E+03_JPRB,0.43158E+03_JPRB,0.50763E+03_JPRB,0.39416E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,35, 4) = (/ &
+ & 0.45970E+03_JPRB,0.43156E+03_JPRB,0.50764E+03_JPRB,0.39415E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,35, 4) = (/ &
+ & 0.45968E+03_JPRB,0.43154E+03_JPRB,0.50764E+03_JPRB,0.39414E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,35, 4) = (/ &
+ & 0.45965E+03_JPRB,0.43153E+03_JPRB,0.50761E+03_JPRB,0.39414E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,35, 4) = (/ &
+ & 0.45963E+03_JPRB,0.43151E+03_JPRB,0.50757E+03_JPRB,0.39413E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,36, 4) = (/ &
+ & 0.45964E+03_JPRB,0.43152E+03_JPRB,0.50757E+03_JPRB,0.39414E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,36, 4) = (/ &
+ & 0.45962E+03_JPRB,0.43150E+03_JPRB,0.50758E+03_JPRB,0.39413E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,36, 4) = (/ &
+ & 0.45960E+03_JPRB,0.43148E+03_JPRB,0.50758E+03_JPRB,0.39413E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,36, 4) = (/ &
+ & 0.45958E+03_JPRB,0.43147E+03_JPRB,0.50756E+03_JPRB,0.39412E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,36, 4) = (/ &
+ & 0.45956E+03_JPRB,0.43146E+03_JPRB,0.50752E+03_JPRB,0.39412E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,37, 4) = (/ &
+ & 0.45957E+03_JPRB,0.43146E+03_JPRB,0.50751E+03_JPRB,0.39412E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,37, 4) = (/ &
+ & 0.45955E+03_JPRB,0.43145E+03_JPRB,0.50753E+03_JPRB,0.39412E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,37, 4) = (/ &
+ & 0.45953E+03_JPRB,0.43144E+03_JPRB,0.50754E+03_JPRB,0.39411E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,37, 4) = (/ &
+ & 0.45952E+03_JPRB,0.43142E+03_JPRB,0.50752E+03_JPRB,0.39411E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,37, 4) = (/ &
+ & 0.45950E+03_JPRB,0.43141E+03_JPRB,0.50748E+03_JPRB,0.39411E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,38, 4) = (/ &
+ & 0.45951E+03_JPRB,0.43142E+03_JPRB,0.50746E+03_JPRB,0.39411E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,38, 4) = (/ &
+ & 0.45950E+03_JPRB,0.43141E+03_JPRB,0.50749E+03_JPRB,0.39410E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,38, 4) = (/ &
+ & 0.45948E+03_JPRB,0.43140E+03_JPRB,0.50750E+03_JPRB,0.39410E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,38, 4) = (/ &
+ & 0.45947E+03_JPRB,0.43139E+03_JPRB,0.50749E+03_JPRB,0.39410E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,38, 4) = (/ &
+ & 0.45946E+03_JPRB,0.43138E+03_JPRB,0.50745E+03_JPRB,0.39409E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,39, 4) = (/ &
+ & 0.45946E+03_JPRB,0.43138E+03_JPRB,0.50742E+03_JPRB,0.39410E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,39, 4) = (/ &
+ & 0.45945E+03_JPRB,0.43137E+03_JPRB,0.50746E+03_JPRB,0.39409E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,39, 4) = (/ &
+ & 0.45944E+03_JPRB,0.43137E+03_JPRB,0.50747E+03_JPRB,0.39409E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,39, 4) = (/ &
+ & 0.45943E+03_JPRB,0.43136E+03_JPRB,0.50746E+03_JPRB,0.39409E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,39, 4) = (/ &
+ & 0.45942E+03_JPRB,0.43135E+03_JPRB,0.50743E+03_JPRB,0.39409E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,40, 4) = (/ &
+ & 0.45943E+03_JPRB,0.43136E+03_JPRB,0.50738E+03_JPRB,0.39409E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,40, 4) = (/ &
+ & 0.45941E+03_JPRB,0.43135E+03_JPRB,0.50742E+03_JPRB,0.39408E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,40, 4) = (/ &
+ & 0.45940E+03_JPRB,0.43134E+03_JPRB,0.50744E+03_JPRB,0.39408E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,40, 4) = (/ &
+ & 0.45940E+03_JPRB,0.43133E+03_JPRB,0.50744E+03_JPRB,0.39408E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,40, 4) = (/ &
+ & 0.45939E+03_JPRB,0.43133E+03_JPRB,0.50742E+03_JPRB,0.39408E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,41, 4) = (/ &
+ & 0.45939E+03_JPRB,0.43133E+03_JPRB,0.50734E+03_JPRB,0.39408E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,41, 4) = (/ &
+ & 0.45938E+03_JPRB,0.43133E+03_JPRB,0.50739E+03_JPRB,0.39408E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,41, 4) = (/ &
+ & 0.45938E+03_JPRB,0.43132E+03_JPRB,0.50742E+03_JPRB,0.39408E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,41, 4) = (/ &
+ & 0.45937E+03_JPRB,0.43131E+03_JPRB,0.50742E+03_JPRB,0.39407E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,41, 4) = (/ &
+ & 0.45936E+03_JPRB,0.43131E+03_JPRB,0.50741E+03_JPRB,0.39407E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,42, 4) = (/ &
+ & 0.45937E+03_JPRB,0.43131E+03_JPRB,0.50731E+03_JPRB,0.39407E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,42, 4) = (/ &
+ & 0.45936E+03_JPRB,0.43131E+03_JPRB,0.50736E+03_JPRB,0.39407E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,42, 4) = (/ &
+ & 0.45935E+03_JPRB,0.43130E+03_JPRB,0.50739E+03_JPRB,0.39407E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,42, 4) = (/ &
+ & 0.45935E+03_JPRB,0.43130E+03_JPRB,0.50741E+03_JPRB,0.39407E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,42, 4) = (/ &
+ & 0.45934E+03_JPRB,0.43129E+03_JPRB,0.50740E+03_JPRB,0.39407E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,43, 4) = (/ &
+ & 0.45935E+03_JPRB,0.43130E+03_JPRB,0.50727E+03_JPRB,0.39407E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,43, 4) = (/ &
+ & 0.45934E+03_JPRB,0.43129E+03_JPRB,0.50733E+03_JPRB,0.39407E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,43, 4) = (/ &
+ & 0.45933E+03_JPRB,0.43129E+03_JPRB,0.50737E+03_JPRB,0.39407E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,43, 4) = (/ &
+ & 0.45933E+03_JPRB,0.43128E+03_JPRB,0.50739E+03_JPRB,0.39406E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,43, 4) = (/ &
+ & 0.45932E+03_JPRB,0.43128E+03_JPRB,0.50739E+03_JPRB,0.39406E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,44, 4) = (/ &
+ & 0.45933E+03_JPRB,0.43128E+03_JPRB,0.50723E+03_JPRB,0.39406E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,44, 4) = (/ &
+ & 0.45932E+03_JPRB,0.43128E+03_JPRB,0.50730E+03_JPRB,0.39406E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,44, 4) = (/ &
+ & 0.45932E+03_JPRB,0.43128E+03_JPRB,0.50735E+03_JPRB,0.39406E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,44, 4) = (/ &
+ & 0.45931E+03_JPRB,0.43127E+03_JPRB,0.50737E+03_JPRB,0.39406E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,44, 4) = (/ &
+ & 0.45931E+03_JPRB,0.43127E+03_JPRB,0.50738E+03_JPRB,0.39406E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,45, 4) = (/ &
+ & 0.45931E+03_JPRB,0.43127E+03_JPRB,0.50718E+03_JPRB,0.39406E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,45, 4) = (/ &
+ & 0.45931E+03_JPRB,0.43127E+03_JPRB,0.50727E+03_JPRB,0.39406E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,45, 4) = (/ &
+ & 0.45930E+03_JPRB,0.43127E+03_JPRB,0.50732E+03_JPRB,0.39406E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,45, 4) = (/ &
+ & 0.45930E+03_JPRB,0.43126E+03_JPRB,0.50736E+03_JPRB,0.39406E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,45, 4) = (/ &
+ & 0.45930E+03_JPRB,0.43126E+03_JPRB,0.50737E+03_JPRB,0.39406E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,46, 4) = (/ &
+ & 0.45930E+03_JPRB,0.43126E+03_JPRB,0.50714E+03_JPRB,0.39406E+03_JPRB,0.38437E+03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART17',1,ZHOOK_HANDLE)
+END SUBROUTINE PART17
+
+
+SUBROUTINE PART18
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART18',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,46, 4) = (/ &
+ & 0.45930E+03_JPRB,0.43126E+03_JPRB,0.50723E+03_JPRB,0.39406E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,46, 4) = (/ &
+ & 0.45929E+03_JPRB,0.43126E+03_JPRB,0.50730E+03_JPRB,0.39406E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,46, 4) = (/ &
+ & 0.45929E+03_JPRB,0.43125E+03_JPRB,0.50734E+03_JPRB,0.39406E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,46, 4) = (/ &
+ & 0.45929E+03_JPRB,0.43125E+03_JPRB,0.50736E+03_JPRB,0.39406E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,47, 4) = (/ &
+ & 0.45929E+03_JPRB,0.43126E+03_JPRB,0.50708E+03_JPRB,0.39406E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,47, 4) = (/ &
+ & 0.45929E+03_JPRB,0.43125E+03_JPRB,0.50719E+03_JPRB,0.39406E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,47, 4) = (/ &
+ & 0.45928E+03_JPRB,0.43125E+03_JPRB,0.50727E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,47, 4) = (/ &
+ & 0.45928E+03_JPRB,0.43125E+03_JPRB,0.50732E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,47, 4) = (/ &
+ & 0.45928E+03_JPRB,0.43125E+03_JPRB,0.50735E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,48, 4) = (/ &
+ & 0.45928E+03_JPRB,0.43125E+03_JPRB,0.50701E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,48, 4) = (/ &
+ & 0.45928E+03_JPRB,0.43125E+03_JPRB,0.50714E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,48, 4) = (/ &
+ & 0.45928E+03_JPRB,0.43124E+03_JPRB,0.50723E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,48, 4) = (/ &
+ & 0.45927E+03_JPRB,0.43124E+03_JPRB,0.50729E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,48, 4) = (/ &
+ & 0.45927E+03_JPRB,0.43124E+03_JPRB,0.50733E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,49, 4) = (/ &
+ & 0.45928E+03_JPRB,0.43124E+03_JPRB,0.50694E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,49, 4) = (/ &
+ & 0.45927E+03_JPRB,0.43124E+03_JPRB,0.50709E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,49, 4) = (/ &
+ & 0.45927E+03_JPRB,0.43124E+03_JPRB,0.50720E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,49, 4) = (/ &
+ & 0.45927E+03_JPRB,0.43124E+03_JPRB,0.50727E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,49, 4) = (/ &
+ & 0.45927E+03_JPRB,0.43124E+03_JPRB,0.50732E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,50, 4) = (/ &
+ & 0.45927E+03_JPRB,0.43124E+03_JPRB,0.50686E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,50, 4) = (/ &
+ & 0.45927E+03_JPRB,0.43124E+03_JPRB,0.50704E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,50, 4) = (/ &
+ & 0.45927E+03_JPRB,0.43124E+03_JPRB,0.50716E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,50, 4) = (/ &
+ & 0.45926E+03_JPRB,0.43123E+03_JPRB,0.50724E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,50, 4) = (/ &
+ & 0.45926E+03_JPRB,0.43123E+03_JPRB,0.50730E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,51, 4) = (/ &
+ & 0.45926E+03_JPRB,0.43124E+03_JPRB,0.50679E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,51, 4) = (/ &
+ & 0.45926E+03_JPRB,0.43123E+03_JPRB,0.50697E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,51, 4) = (/ &
+ & 0.45926E+03_JPRB,0.43123E+03_JPRB,0.50711E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,51, 4) = (/ &
+ & 0.45926E+03_JPRB,0.43123E+03_JPRB,0.50721E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,51, 4) = (/ &
+ & 0.45926E+03_JPRB,0.43123E+03_JPRB,0.50728E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,52, 4) = (/ &
+ & 0.45926E+03_JPRB,0.43123E+03_JPRB,0.50671E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,52, 4) = (/ &
+ & 0.45926E+03_JPRB,0.43123E+03_JPRB,0.50691E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,52, 4) = (/ &
+ & 0.45926E+03_JPRB,0.43123E+03_JPRB,0.50707E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,52, 4) = (/ &
+ & 0.45926E+03_JPRB,0.43123E+03_JPRB,0.50718E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,52, 4) = (/ &
+ & 0.45925E+03_JPRB,0.43123E+03_JPRB,0.50725E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,53, 4) = (/ &
+ & 0.45926E+03_JPRB,0.43123E+03_JPRB,0.50663E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,53, 4) = (/ &
+ & 0.45926E+03_JPRB,0.43123E+03_JPRB,0.50684E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,53, 4) = (/ &
+ & 0.45925E+03_JPRB,0.43123E+03_JPRB,0.50701E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,53, 4) = (/ &
+ & 0.45925E+03_JPRB,0.43123E+03_JPRB,0.50714E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,53, 4) = (/ &
+ & 0.45925E+03_JPRB,0.43123E+03_JPRB,0.50722E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,54, 4) = (/ &
+ & 0.45925E+03_JPRB,0.43123E+03_JPRB,0.50655E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,54, 4) = (/ &
+ & 0.45925E+03_JPRB,0.43123E+03_JPRB,0.50677E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,54, 4) = (/ &
+ & 0.45925E+03_JPRB,0.43123E+03_JPRB,0.50696E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,54, 4) = (/ &
+ & 0.45925E+03_JPRB,0.43122E+03_JPRB,0.50710E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,54, 4) = (/ &
+ & 0.45925E+03_JPRB,0.43122E+03_JPRB,0.50720E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,55, 4) = (/ &
+ & 0.45925E+03_JPRB,0.43123E+03_JPRB,0.50647E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,55, 4) = (/ &
+ & 0.45925E+03_JPRB,0.43122E+03_JPRB,0.50670E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,55, 4) = (/ &
+ & 0.45925E+03_JPRB,0.43122E+03_JPRB,0.50690E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,55, 4) = (/ &
+ & 0.45925E+03_JPRB,0.43122E+03_JPRB,0.50706E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,55, 4) = (/ &
+ & 0.45925E+03_JPRB,0.43122E+03_JPRB,0.50717E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,56, 4) = (/ &
+ & 0.45925E+03_JPRB,0.43122E+03_JPRB,0.50640E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,56, 4) = (/ &
+ & 0.45925E+03_JPRB,0.43122E+03_JPRB,0.50663E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,56, 4) = (/ &
+ & 0.45925E+03_JPRB,0.43122E+03_JPRB,0.50683E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,56, 4) = (/ &
+ & 0.45925E+03_JPRB,0.43122E+03_JPRB,0.50701E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,56, 4) = (/ &
+ & 0.45925E+03_JPRB,0.43122E+03_JPRB,0.50714E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,57, 4) = (/ &
+ & 0.45925E+03_JPRB,0.43122E+03_JPRB,0.50632E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,57, 4) = (/ &
+ & 0.45925E+03_JPRB,0.43122E+03_JPRB,0.50656E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,57, 4) = (/ &
+ & 0.45925E+03_JPRB,0.43122E+03_JPRB,0.50677E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,57, 4) = (/ &
+ & 0.45925E+03_JPRB,0.43122E+03_JPRB,0.50696E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,57, 4) = (/ &
+ & 0.45924E+03_JPRB,0.43122E+03_JPRB,0.50710E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,58, 4) = (/ &
+ & 0.45925E+03_JPRB,0.43122E+03_JPRB,0.50624E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,58, 4) = (/ &
+ & 0.45925E+03_JPRB,0.43122E+03_JPRB,0.50648E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,58, 4) = (/ &
+ & 0.45924E+03_JPRB,0.43122E+03_JPRB,0.50671E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,58, 4) = (/ &
+ & 0.45924E+03_JPRB,0.43122E+03_JPRB,0.50690E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,58, 4) = (/ &
+ & 0.45924E+03_JPRB,0.43122E+03_JPRB,0.50706E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,59, 4) = (/ &
+ & 0.45924E+03_JPRB,0.43122E+03_JPRB,0.50622E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 2,59, 4) = (/ &
+ & 0.45924E+03_JPRB,0.43122E+03_JPRB,0.50645E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 3,59, 4) = (/ &
+ & 0.45924E+03_JPRB,0.43122E+03_JPRB,0.50668E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 4,59, 4) = (/ &
+ & 0.45924E+03_JPRB,0.43122E+03_JPRB,0.50688E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 5,59, 4) = (/ &
+ & 0.45924E+03_JPRB,0.43122E+03_JPRB,0.50704E+03_JPRB,0.39405E+03_JPRB,0.38437E+03_JPRB /)  
+KB(:, 1,13, 5) = (/ &
+ & 0.78037E+03_JPRB,0.62743E+03_JPRB,0.56495E+03_JPRB,0.56633E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,13, 5) = (/ &
+ & 0.77434E+03_JPRB,0.62291E+03_JPRB,0.56343E+03_JPRB,0.56584E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,13, 5) = (/ &
+ & 0.76915E+03_JPRB,0.61902E+03_JPRB,0.56189E+03_JPRB,0.56542E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,13, 5) = (/ &
+ & 0.76464E+03_JPRB,0.61563E+03_JPRB,0.56027E+03_JPRB,0.56506E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,13, 5) = (/ &
+ & 0.76068E+03_JPRB,0.61266E+03_JPRB,0.55865E+03_JPRB,0.56474E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,14, 5) = (/ &
+ & 0.76527E+03_JPRB,0.61611E+03_JPRB,0.56011E+03_JPRB,0.56511E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,14, 5) = (/ &
+ & 0.76041E+03_JPRB,0.61246E+03_JPRB,0.55859E+03_JPRB,0.56472E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,14, 5) = (/ &
+ & 0.75622E+03_JPRB,0.60932E+03_JPRB,0.55696E+03_JPRB,0.56438E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,14, 5) = (/ &
+ & 0.75257E+03_JPRB,0.60658E+03_JPRB,0.55539E+03_JPRB,0.56408E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,14, 5) = (/ &
+ & 0.74936E+03_JPRB,0.60417E+03_JPRB,0.55391E+03_JPRB,0.56383E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,15, 5) = (/ &
+ & 0.75296E+03_JPRB,0.60688E+03_JPRB,0.55521E+03_JPRB,0.56412E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,15, 5) = (/ &
+ & 0.74904E+03_JPRB,0.60394E+03_JPRB,0.55372E+03_JPRB,0.56380E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,15, 5) = (/ &
+ & 0.74566E+03_JPRB,0.60140E+03_JPRB,0.55235E+03_JPRB,0.56353E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,15, 5) = (/ &
+ & 0.74271E+03_JPRB,0.59919E+03_JPRB,0.55103E+03_JPRB,0.56329E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,15, 5) = (/ &
+ & 0.74012E+03_JPRB,0.59724E+03_JPRB,0.54977E+03_JPRB,0.56308E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,16, 5) = (/ &
+ & 0.74295E+03_JPRB,0.59937E+03_JPRB,0.55079E+03_JPRB,0.56331E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,16, 5) = (/ &
+ & 0.73979E+03_JPRB,0.59700E+03_JPRB,0.54953E+03_JPRB,0.56305E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,16, 5) = (/ &
+ & 0.73707E+03_JPRB,0.59495E+03_JPRB,0.54828E+03_JPRB,0.56283E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,16, 5) = (/ &
+ & 0.73469E+03_JPRB,0.59317E+03_JPRB,0.54708E+03_JPRB,0.56264E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,16, 5) = (/ &
+ & 0.73259E+03_JPRB,0.59160E+03_JPRB,0.54600E+03_JPRB,0.56247E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,17, 5) = (/ &
+ & 0.73483E+03_JPRB,0.59328E+03_JPRB,0.54695E+03_JPRB,0.56265E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,17, 5) = (/ &
+ & 0.73229E+03_JPRB,0.59137E+03_JPRB,0.54572E+03_JPRB,0.56245E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,17, 5) = (/ &
+ & 0.73009E+03_JPRB,0.58972E+03_JPRB,0.54462E+03_JPRB,0.56227E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,17, 5) = (/ &
+ & 0.72817E+03_JPRB,0.58828E+03_JPRB,0.54366E+03_JPRB,0.56212E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,17, 5) = (/ &
+ & 0.72647E+03_JPRB,0.58701E+03_JPRB,0.54281E+03_JPRB,0.56198E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,18, 5) = (/ &
+ & 0.72825E+03_JPRB,0.58834E+03_JPRB,0.54354E+03_JPRB,0.56212E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,18, 5) = (/ &
+ & 0.72619E+03_JPRB,0.58680E+03_JPRB,0.54253E+03_JPRB,0.56196E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,18, 5) = (/ &
+ & 0.72442E+03_JPRB,0.58547E+03_JPRB,0.54166E+03_JPRB,0.56181E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,18, 5) = (/ &
+ & 0.72286E+03_JPRB,0.58430E+03_JPRB,0.54091E+03_JPRB,0.56169E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,18, 5) = (/ &
+ & 0.72150E+03_JPRB,0.58328E+03_JPRB,0.54024E+03_JPRB,0.56158E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,19, 5) = (/ &
+ & 0.72290E+03_JPRB,0.58433E+03_JPRB,0.54075E+03_JPRB,0.56169E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,19, 5) = (/ &
+ & 0.72124E+03_JPRB,0.58309E+03_JPRB,0.53996E+03_JPRB,0.56156E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,19, 5) = (/ &
+ & 0.71981E+03_JPRB,0.58201E+03_JPRB,0.53928E+03_JPRB,0.56144E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,19, 5) = (/ &
+ & 0.71856E+03_JPRB,0.58107E+03_JPRB,0.53868E+03_JPRB,0.56134E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,19, 5) = (/ &
+ & 0.71745E+03_JPRB,0.58024E+03_JPRB,0.53816E+03_JPRB,0.56125E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,20, 5) = (/ &
+ & 0.71853E+03_JPRB,0.58105E+03_JPRB,0.53849E+03_JPRB,0.56134E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,20, 5) = (/ &
+ & 0.71720E+03_JPRB,0.58006E+03_JPRB,0.53788E+03_JPRB,0.56123E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,20, 5) = (/ &
+ & 0.71605E+03_JPRB,0.57919E+03_JPRB,0.53734E+03_JPRB,0.56114E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,20, 5) = (/ &
+ & 0.71504E+03_JPRB,0.57843E+03_JPRB,0.53687E+03_JPRB,0.56106E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,20, 5) = (/ &
+ & 0.71414E+03_JPRB,0.57776E+03_JPRB,0.53643E+03_JPRB,0.56098E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,21, 5) = (/ &
+ & 0.71499E+03_JPRB,0.57840E+03_JPRB,0.53667E+03_JPRB,0.56105E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,21, 5) = (/ &
+ & 0.71392E+03_JPRB,0.57759E+03_JPRB,0.53620E+03_JPRB,0.56097E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,21, 5) = (/ &
+ & 0.71299E+03_JPRB,0.57690E+03_JPRB,0.53578E+03_JPRB,0.56089E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,21, 5) = (/ &
+ & 0.71217E+03_JPRB,0.57628E+03_JPRB,0.53541E+03_JPRB,0.56083E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,21, 5) = (/ &
+ & 0.71145E+03_JPRB,0.57574E+03_JPRB,0.53506E+03_JPRB,0.56077E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,22, 5) = (/ &
+ & 0.71206E+03_JPRB,0.57620E+03_JPRB,0.53519E+03_JPRB,0.56082E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,22, 5) = (/ &
+ & 0.71120E+03_JPRB,0.57555E+03_JPRB,0.53482E+03_JPRB,0.56075E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,22, 5) = (/ &
+ & 0.71046E+03_JPRB,0.57500E+03_JPRB,0.53450E+03_JPRB,0.56069E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,22, 5) = (/ &
+ & 0.70981E+03_JPRB,0.57451E+03_JPRB,0.53420E+03_JPRB,0.56064E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,22, 5) = (/ &
+ & 0.70923E+03_JPRB,0.57408E+03_JPRB,0.53390E+03_JPRB,0.56059E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,23, 5) = (/ &
+ & 0.70968E+03_JPRB,0.57442E+03_JPRB,0.53396E+03_JPRB,0.56063E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,23, 5) = (/ &
+ & 0.70900E+03_JPRB,0.57391E+03_JPRB,0.53367E+03_JPRB,0.56057E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,23, 5) = (/ &
+ & 0.70841E+03_JPRB,0.57346E+03_JPRB,0.53341E+03_JPRB,0.56052E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,23, 5) = (/ &
+ & 0.70789E+03_JPRB,0.57307E+03_JPRB,0.53316E+03_JPRB,0.56048E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,23, 5) = (/ &
+ & 0.70743E+03_JPRB,0.57272E+03_JPRB,0.53290E+03_JPRB,0.56044E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,24, 5) = (/ &
+ & 0.70776E+03_JPRB,0.57298E+03_JPRB,0.53293E+03_JPRB,0.56047E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,24, 5) = (/ &
+ & 0.70722E+03_JPRB,0.57257E+03_JPRB,0.53269E+03_JPRB,0.56043E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,24, 5) = (/ &
+ & 0.70675E+03_JPRB,0.57222E+03_JPRB,0.53248E+03_JPRB,0.56039E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,24, 5) = (/ &
+ & 0.70633E+03_JPRB,0.57190E+03_JPRB,0.53228E+03_JPRB,0.56036E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,24, 5) = (/ &
+ & 0.70596E+03_JPRB,0.57163E+03_JPRB,0.53207E+03_JPRB,0.56033E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,25, 5) = (/ &
+ & 0.70621E+03_JPRB,0.57181E+03_JPRB,0.53206E+03_JPRB,0.56035E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,25, 5) = (/ &
+ & 0.70578E+03_JPRB,0.57149E+03_JPRB,0.53188E+03_JPRB,0.56031E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,25, 5) = (/ &
+ & 0.70541E+03_JPRB,0.57121E+03_JPRB,0.53172E+03_JPRB,0.56028E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,25, 5) = (/ &
+ & 0.70507E+03_JPRB,0.57096E+03_JPRB,0.53156E+03_JPRB,0.56025E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,25, 5) = (/ &
+ & 0.70478E+03_JPRB,0.57074E+03_JPRB,0.53138E+03_JPRB,0.56023E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,26, 5) = (/ &
+ & 0.70496E+03_JPRB,0.57087E+03_JPRB,0.53135E+03_JPRB,0.56024E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,26, 5) = (/ &
+ & 0.70461E+03_JPRB,0.57061E+03_JPRB,0.53122E+03_JPRB,0.56022E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,26, 5) = (/ &
+ & 0.70432E+03_JPRB,0.57039E+03_JPRB,0.53110E+03_JPRB,0.56019E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,26, 5) = (/ &
+ & 0.70405E+03_JPRB,0.57019E+03_JPRB,0.53097E+03_JPRB,0.56017E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,26, 5) = (/ &
+ & 0.70382E+03_JPRB,0.57001E+03_JPRB,0.53082E+03_JPRB,0.56015E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,27, 5) = (/ &
+ & 0.70394E+03_JPRB,0.57011E+03_JPRB,0.53077E+03_JPRB,0.56016E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,27, 5) = (/ &
+ & 0.70367E+03_JPRB,0.56991E+03_JPRB,0.53069E+03_JPRB,0.56014E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,27, 5) = (/ &
+ & 0.70343E+03_JPRB,0.56973E+03_JPRB,0.53060E+03_JPRB,0.56012E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,27, 5) = (/ &
+ & 0.70322E+03_JPRB,0.56957E+03_JPRB,0.53049E+03_JPRB,0.56010E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,27, 5) = (/ &
+ & 0.70304E+03_JPRB,0.56943E+03_JPRB,0.53036E+03_JPRB,0.56009E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,28, 5) = (/ &
+ & 0.70313E+03_JPRB,0.56950E+03_JPRB,0.53032E+03_JPRB,0.56010E+03_JPRB,0.67117E+03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART18',1,ZHOOK_HANDLE)
+END SUBROUTINE PART18
+
+
+SUBROUTINE PART19
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART19',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,28, 5) = (/ &
+ & 0.70291E+03_JPRB,0.56934E+03_JPRB,0.53026E+03_JPRB,0.56008E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,28, 5) = (/ &
+ & 0.70272E+03_JPRB,0.56920E+03_JPRB,0.53019E+03_JPRB,0.56006E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,28, 5) = (/ &
+ & 0.70256E+03_JPRB,0.56907E+03_JPRB,0.53010E+03_JPRB,0.56005E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,28, 5) = (/ &
+ & 0.70241E+03_JPRB,0.56896E+03_JPRB,0.52998E+03_JPRB,0.56004E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,29, 5) = (/ &
+ & 0.70247E+03_JPRB,0.56901E+03_JPRB,0.52995E+03_JPRB,0.56004E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,29, 5) = (/ &
+ & 0.70230E+03_JPRB,0.56888E+03_JPRB,0.52991E+03_JPRB,0.56003E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,29, 5) = (/ &
+ & 0.70215E+03_JPRB,0.56877E+03_JPRB,0.52985E+03_JPRB,0.56002E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,29, 5) = (/ &
+ & 0.70202E+03_JPRB,0.56867E+03_JPRB,0.52978E+03_JPRB,0.56001E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,29, 5) = (/ &
+ & 0.70190E+03_JPRB,0.56858E+03_JPRB,0.52967E+03_JPRB,0.56000E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,30, 5) = (/ &
+ & 0.70194E+03_JPRB,0.56861E+03_JPRB,0.52966E+03_JPRB,0.56000E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,30, 5) = (/ &
+ & 0.70181E+03_JPRB,0.56851E+03_JPRB,0.52963E+03_JPRB,0.55999E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,30, 5) = (/ &
+ & 0.70169E+03_JPRB,0.56842E+03_JPRB,0.52958E+03_JPRB,0.55998E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,30, 5) = (/ &
+ & 0.70158E+03_JPRB,0.56834E+03_JPRB,0.52951E+03_JPRB,0.55997E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,30, 5) = (/ &
+ & 0.70149E+03_JPRB,0.56827E+03_JPRB,0.52941E+03_JPRB,0.55996E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,31, 5) = (/ &
+ & 0.70151E+03_JPRB,0.56829E+03_JPRB,0.52942E+03_JPRB,0.55997E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,31, 5) = (/ &
+ & 0.70141E+03_JPRB,0.56821E+03_JPRB,0.52941E+03_JPRB,0.55996E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,31, 5) = (/ &
+ & 0.70131E+03_JPRB,0.56814E+03_JPRB,0.52936E+03_JPRB,0.55995E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,31, 5) = (/ &
+ & 0.70123E+03_JPRB,0.56807E+03_JPRB,0.52930E+03_JPRB,0.55994E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,31, 5) = (/ &
+ & 0.70115E+03_JPRB,0.56802E+03_JPRB,0.52920E+03_JPRB,0.55994E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,32, 5) = (/ &
+ & 0.70117E+03_JPRB,0.56803E+03_JPRB,0.52924E+03_JPRB,0.55994E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,32, 5) = (/ &
+ & 0.70109E+03_JPRB,0.56797E+03_JPRB,0.52922E+03_JPRB,0.55993E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,32, 5) = (/ &
+ & 0.70101E+03_JPRB,0.56791E+03_JPRB,0.52919E+03_JPRB,0.55993E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,32, 5) = (/ &
+ & 0.70094E+03_JPRB,0.56786E+03_JPRB,0.52912E+03_JPRB,0.55992E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,32, 5) = (/ &
+ & 0.70088E+03_JPRB,0.56782E+03_JPRB,0.52902E+03_JPRB,0.55992E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,33, 5) = (/ &
+ & 0.70090E+03_JPRB,0.56782E+03_JPRB,0.52908E+03_JPRB,0.55992E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,33, 5) = (/ &
+ & 0.70083E+03_JPRB,0.56777E+03_JPRB,0.52907E+03_JPRB,0.55991E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,33, 5) = (/ &
+ & 0.70077E+03_JPRB,0.56773E+03_JPRB,0.52904E+03_JPRB,0.55991E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,33, 5) = (/ &
+ & 0.70072E+03_JPRB,0.56769E+03_JPRB,0.52897E+03_JPRB,0.55990E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,33, 5) = (/ &
+ & 0.70067E+03_JPRB,0.56765E+03_JPRB,0.52887E+03_JPRB,0.55990E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,34, 5) = (/ &
+ & 0.70068E+03_JPRB,0.56766E+03_JPRB,0.52896E+03_JPRB,0.55990E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,34, 5) = (/ &
+ & 0.70062E+03_JPRB,0.56762E+03_JPRB,0.52895E+03_JPRB,0.55989E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,34, 5) = (/ &
+ & 0.70057E+03_JPRB,0.56758E+03_JPRB,0.52892E+03_JPRB,0.55989E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,34, 5) = (/ &
+ & 0.70053E+03_JPRB,0.56755E+03_JPRB,0.52885E+03_JPRB,0.55989E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,34, 5) = (/ &
+ & 0.70049E+03_JPRB,0.56752E+03_JPRB,0.52874E+03_JPRB,0.55988E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,35, 5) = (/ &
+ & 0.70050E+03_JPRB,0.56753E+03_JPRB,0.52886E+03_JPRB,0.55988E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,35, 5) = (/ &
+ & 0.70046E+03_JPRB,0.56750E+03_JPRB,0.52885E+03_JPRB,0.55988E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,35, 5) = (/ &
+ & 0.70042E+03_JPRB,0.56747E+03_JPRB,0.52883E+03_JPRB,0.55988E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,35, 5) = (/ &
+ & 0.70039E+03_JPRB,0.56744E+03_JPRB,0.52876E+03_JPRB,0.55988E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,35, 5) = (/ &
+ & 0.70035E+03_JPRB,0.56742E+03_JPRB,0.52864E+03_JPRB,0.55987E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,36, 5) = (/ &
+ & 0.70037E+03_JPRB,0.56743E+03_JPRB,0.52877E+03_JPRB,0.55987E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,36, 5) = (/ &
+ & 0.70033E+03_JPRB,0.56740E+03_JPRB,0.52878E+03_JPRB,0.55987E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,36, 5) = (/ &
+ & 0.70030E+03_JPRB,0.56738E+03_JPRB,0.52875E+03_JPRB,0.55987E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,36, 5) = (/ &
+ & 0.70027E+03_JPRB,0.56736E+03_JPRB,0.52869E+03_JPRB,0.55987E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,36, 5) = (/ &
+ & 0.70025E+03_JPRB,0.56734E+03_JPRB,0.52857E+03_JPRB,0.55986E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,37, 5) = (/ &
+ & 0.70026E+03_JPRB,0.56735E+03_JPRB,0.52870E+03_JPRB,0.55986E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,37, 5) = (/ &
+ & 0.70023E+03_JPRB,0.56733E+03_JPRB,0.52872E+03_JPRB,0.55986E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,37, 5) = (/ &
+ & 0.70020E+03_JPRB,0.56731E+03_JPRB,0.52870E+03_JPRB,0.55986E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,37, 5) = (/ &
+ & 0.70018E+03_JPRB,0.56729E+03_JPRB,0.52864E+03_JPRB,0.55986E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,37, 5) = (/ &
+ & 0.70016E+03_JPRB,0.56727E+03_JPRB,0.52854E+03_JPRB,0.55986E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,38, 5) = (/ &
+ & 0.70017E+03_JPRB,0.56728E+03_JPRB,0.52864E+03_JPRB,0.55986E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,38, 5) = (/ &
+ & 0.70015E+03_JPRB,0.56726E+03_JPRB,0.52866E+03_JPRB,0.55986E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,38, 5) = (/ &
+ & 0.70012E+03_JPRB,0.56725E+03_JPRB,0.52866E+03_JPRB,0.55985E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,38, 5) = (/ &
+ & 0.70010E+03_JPRB,0.56723E+03_JPRB,0.52860E+03_JPRB,0.55985E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,38, 5) = (/ &
+ & 0.70009E+03_JPRB,0.56722E+03_JPRB,0.52852E+03_JPRB,0.55985E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,39, 5) = (/ &
+ & 0.70010E+03_JPRB,0.56723E+03_JPRB,0.52860E+03_JPRB,0.55985E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,39, 5) = (/ &
+ & 0.70008E+03_JPRB,0.56721E+03_JPRB,0.52862E+03_JPRB,0.55985E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,39, 5) = (/ &
+ & 0.70006E+03_JPRB,0.56720E+03_JPRB,0.52861E+03_JPRB,0.55985E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,39, 5) = (/ &
+ & 0.70004E+03_JPRB,0.56719E+03_JPRB,0.52858E+03_JPRB,0.55985E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,39, 5) = (/ &
+ & 0.70003E+03_JPRB,0.56717E+03_JPRB,0.52850E+03_JPRB,0.55985E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,40, 5) = (/ &
+ & 0.70004E+03_JPRB,0.56718E+03_JPRB,0.52855E+03_JPRB,0.55985E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,40, 5) = (/ &
+ & 0.70002E+03_JPRB,0.56717E+03_JPRB,0.52858E+03_JPRB,0.55985E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,40, 5) = (/ &
+ & 0.70001E+03_JPRB,0.56716E+03_JPRB,0.52859E+03_JPRB,0.55984E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,40, 5) = (/ &
+ & 0.69999E+03_JPRB,0.56715E+03_JPRB,0.52856E+03_JPRB,0.55984E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,40, 5) = (/ &
+ & 0.69998E+03_JPRB,0.56714E+03_JPRB,0.52849E+03_JPRB,0.55984E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,41, 5) = (/ &
+ & 0.69999E+03_JPRB,0.56715E+03_JPRB,0.52850E+03_JPRB,0.55984E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,41, 5) = (/ &
+ & 0.69998E+03_JPRB,0.56714E+03_JPRB,0.52854E+03_JPRB,0.55984E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,41, 5) = (/ &
+ & 0.69996E+03_JPRB,0.56713E+03_JPRB,0.52856E+03_JPRB,0.55984E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,41, 5) = (/ &
+ & 0.69995E+03_JPRB,0.56712E+03_JPRB,0.52854E+03_JPRB,0.55984E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,41, 5) = (/ &
+ & 0.69994E+03_JPRB,0.56711E+03_JPRB,0.52848E+03_JPRB,0.55984E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,42, 5) = (/ &
+ & 0.69995E+03_JPRB,0.56712E+03_JPRB,0.52846E+03_JPRB,0.55984E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,42, 5) = (/ &
+ & 0.69994E+03_JPRB,0.56711E+03_JPRB,0.52851E+03_JPRB,0.55984E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,42, 5) = (/ &
+ & 0.69993E+03_JPRB,0.56710E+03_JPRB,0.52853E+03_JPRB,0.55984E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,42, 5) = (/ &
+ & 0.69992E+03_JPRB,0.56709E+03_JPRB,0.52853E+03_JPRB,0.55984E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,42, 5) = (/ &
+ & 0.69991E+03_JPRB,0.56709E+03_JPRB,0.52848E+03_JPRB,0.55984E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,43, 5) = (/ &
+ & 0.69992E+03_JPRB,0.56709E+03_JPRB,0.52843E+03_JPRB,0.55984E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,43, 5) = (/ &
+ & 0.69991E+03_JPRB,0.56708E+03_JPRB,0.52848E+03_JPRB,0.55984E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,43, 5) = (/ &
+ & 0.69990E+03_JPRB,0.56708E+03_JPRB,0.52851E+03_JPRB,0.55984E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,43, 5) = (/ &
+ & 0.69989E+03_JPRB,0.56707E+03_JPRB,0.52851E+03_JPRB,0.55984E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,43, 5) = (/ &
+ & 0.69988E+03_JPRB,0.56707E+03_JPRB,0.52848E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,44, 5) = (/ &
+ & 0.69989E+03_JPRB,0.56707E+03_JPRB,0.52838E+03_JPRB,0.55984E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,44, 5) = (/ &
+ & 0.69988E+03_JPRB,0.56707E+03_JPRB,0.52844E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,44, 5) = (/ &
+ & 0.69988E+03_JPRB,0.56706E+03_JPRB,0.52848E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,44, 5) = (/ &
+ & 0.69987E+03_JPRB,0.56705E+03_JPRB,0.52850E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,44, 5) = (/ &
+ & 0.69986E+03_JPRB,0.56705E+03_JPRB,0.52849E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,45, 5) = (/ &
+ & 0.69987E+03_JPRB,0.56706E+03_JPRB,0.52834E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,45, 5) = (/ &
+ & 0.69986E+03_JPRB,0.56705E+03_JPRB,0.52841E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,45, 5) = (/ &
+ & 0.69986E+03_JPRB,0.56704E+03_JPRB,0.52846E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,45, 5) = (/ &
+ & 0.69985E+03_JPRB,0.56704E+03_JPRB,0.52848E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,45, 5) = (/ &
+ & 0.69984E+03_JPRB,0.56704E+03_JPRB,0.52848E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,46, 5) = (/ &
+ & 0.69985E+03_JPRB,0.56704E+03_JPRB,0.52830E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,46, 5) = (/ &
+ & 0.69984E+03_JPRB,0.56704E+03_JPRB,0.52837E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,46, 5) = (/ &
+ & 0.69984E+03_JPRB,0.56703E+03_JPRB,0.52843E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,46, 5) = (/ &
+ & 0.69983E+03_JPRB,0.56703E+03_JPRB,0.52847E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,46, 5) = (/ &
+ & 0.69983E+03_JPRB,0.56703E+03_JPRB,0.52848E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,47, 5) = (/ &
+ & 0.69984E+03_JPRB,0.56703E+03_JPRB,0.52826E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,47, 5) = (/ &
+ & 0.69983E+03_JPRB,0.56703E+03_JPRB,0.52834E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,47, 5) = (/ &
+ & 0.69982E+03_JPRB,0.56702E+03_JPRB,0.52840E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,47, 5) = (/ &
+ & 0.69982E+03_JPRB,0.56702E+03_JPRB,0.52845E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,47, 5) = (/ &
+ & 0.69982E+03_JPRB,0.56702E+03_JPRB,0.52847E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,48, 5) = (/ &
+ & 0.69982E+03_JPRB,0.56702E+03_JPRB,0.52821E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,48, 5) = (/ &
+ & 0.69982E+03_JPRB,0.56702E+03_JPRB,0.52830E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,48, 5) = (/ &
+ & 0.69981E+03_JPRB,0.56701E+03_JPRB,0.52837E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,48, 5) = (/ &
+ & 0.69981E+03_JPRB,0.56701E+03_JPRB,0.52842E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,48, 5) = (/ &
+ & 0.69981E+03_JPRB,0.56701E+03_JPRB,0.52845E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,49, 5) = (/ &
+ & 0.69981E+03_JPRB,0.56701E+03_JPRB,0.52817E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,49, 5) = (/ &
+ & 0.69981E+03_JPRB,0.56701E+03_JPRB,0.52825E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,49, 5) = (/ &
+ & 0.69980E+03_JPRB,0.56701E+03_JPRB,0.52833E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,49, 5) = (/ &
+ & 0.69980E+03_JPRB,0.56700E+03_JPRB,0.52840E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,49, 5) = (/ &
+ & 0.69980E+03_JPRB,0.56700E+03_JPRB,0.52844E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,50, 5) = (/ &
+ & 0.69980E+03_JPRB,0.56701E+03_JPRB,0.52812E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,50, 5) = (/ &
+ & 0.69980E+03_JPRB,0.56700E+03_JPRB,0.52821E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,50, 5) = (/ &
+ & 0.69980E+03_JPRB,0.56700E+03_JPRB,0.52830E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,50, 5) = (/ &
+ & 0.69979E+03_JPRB,0.56700E+03_JPRB,0.52837E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,50, 5) = (/ &
+ & 0.69979E+03_JPRB,0.56700E+03_JPRB,0.52842E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,51, 5) = (/ &
+ & 0.69979E+03_JPRB,0.56700E+03_JPRB,0.52807E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,51, 5) = (/ &
+ & 0.69979E+03_JPRB,0.56700E+03_JPRB,0.52818E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,51, 5) = (/ &
+ & 0.69979E+03_JPRB,0.56699E+03_JPRB,0.52827E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,51, 5) = (/ &
+ & 0.69979E+03_JPRB,0.56699E+03_JPRB,0.52834E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,51, 5) = (/ &
+ & 0.69978E+03_JPRB,0.56699E+03_JPRB,0.52841E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,52, 5) = (/ &
+ & 0.69979E+03_JPRB,0.56699E+03_JPRB,0.52802E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,52, 5) = (/ &
+ & 0.69979E+03_JPRB,0.56699E+03_JPRB,0.52814E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,52, 5) = (/ &
+ & 0.69978E+03_JPRB,0.56699E+03_JPRB,0.52823E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,52, 5) = (/ &
+ & 0.69978E+03_JPRB,0.56699E+03_JPRB,0.52831E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,52, 5) = (/ &
+ & 0.69978E+03_JPRB,0.56699E+03_JPRB,0.52838E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,53, 5) = (/ &
+ & 0.69978E+03_JPRB,0.56699E+03_JPRB,0.52798E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,53, 5) = (/ &
+ & 0.69978E+03_JPRB,0.56699E+03_JPRB,0.52809E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,53, 5) = (/ &
+ & 0.69978E+03_JPRB,0.56699E+03_JPRB,0.52820E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,53, 5) = (/ &
+ & 0.69978E+03_JPRB,0.56699E+03_JPRB,0.52828E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,53, 5) = (/ &
+ & 0.69977E+03_JPRB,0.56698E+03_JPRB,0.52836E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,54, 5) = (/ &
+ & 0.69978E+03_JPRB,0.56699E+03_JPRB,0.52794E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,54, 5) = (/ &
+ & 0.69978E+03_JPRB,0.56699E+03_JPRB,0.52804E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,54, 5) = (/ &
+ & 0.69977E+03_JPRB,0.56698E+03_JPRB,0.52816E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,54, 5) = (/ &
+ & 0.69977E+03_JPRB,0.56698E+03_JPRB,0.52825E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,54, 5) = (/ &
+ & 0.69977E+03_JPRB,0.56698E+03_JPRB,0.52833E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,55, 5) = (/ &
+ & 0.69977E+03_JPRB,0.56698E+03_JPRB,0.52790E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,55, 5) = (/ &
+ & 0.69977E+03_JPRB,0.56698E+03_JPRB,0.52801E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,55, 5) = (/ &
+ & 0.69977E+03_JPRB,0.56698E+03_JPRB,0.52812E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,55, 5) = (/ &
+ & 0.69977E+03_JPRB,0.56698E+03_JPRB,0.52822E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,55, 5) = (/ &
+ & 0.69977E+03_JPRB,0.56698E+03_JPRB,0.52830E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,56, 5) = (/ &
+ & 0.69977E+03_JPRB,0.56698E+03_JPRB,0.52786E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,56, 5) = (/ &
+ & 0.69977E+03_JPRB,0.56698E+03_JPRB,0.52797E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,56, 5) = (/ &
+ & 0.69977E+03_JPRB,0.56698E+03_JPRB,0.52808E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,56, 5) = (/ &
+ & 0.69977E+03_JPRB,0.56698E+03_JPRB,0.52819E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,56, 5) = (/ &
+ & 0.69977E+03_JPRB,0.56698E+03_JPRB,0.52827E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,57, 5) = (/ &
+ & 0.69977E+03_JPRB,0.56698E+03_JPRB,0.52781E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART19',1,ZHOOK_HANDLE)
+END SUBROUTINE PART19
+
+
+SUBROUTINE PART20
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART20',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,57, 5) = (/ &
+ & 0.69977E+03_JPRB,0.56698E+03_JPRB,0.52794E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,57, 5) = (/ &
+ & 0.69977E+03_JPRB,0.56698E+03_JPRB,0.52805E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,57, 5) = (/ &
+ & 0.69976E+03_JPRB,0.56698E+03_JPRB,0.52815E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,57, 5) = (/ &
+ & 0.69976E+03_JPRB,0.56698E+03_JPRB,0.52825E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,58, 5) = (/ &
+ & 0.69977E+03_JPRB,0.56698E+03_JPRB,0.52777E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,58, 5) = (/ &
+ & 0.69976E+03_JPRB,0.56698E+03_JPRB,0.52790E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,58, 5) = (/ &
+ & 0.69976E+03_JPRB,0.56698E+03_JPRB,0.52801E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,58, 5) = (/ &
+ & 0.69976E+03_JPRB,0.56698E+03_JPRB,0.52812E+03_JPRB,0.55982E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,58, 5) = (/ &
+ & 0.69976E+03_JPRB,0.56697E+03_JPRB,0.52822E+03_JPRB,0.55982E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,59, 5) = (/ &
+ & 0.69976E+03_JPRB,0.56698E+03_JPRB,0.52775E+03_JPRB,0.55983E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 2,59, 5) = (/ &
+ & 0.69976E+03_JPRB,0.56698E+03_JPRB,0.52788E+03_JPRB,0.55982E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 3,59, 5) = (/ &
+ & 0.69976E+03_JPRB,0.56697E+03_JPRB,0.52801E+03_JPRB,0.55982E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 4,59, 5) = (/ &
+ & 0.69976E+03_JPRB,0.56697E+03_JPRB,0.52811E+03_JPRB,0.55982E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 5,59, 5) = (/ &
+ & 0.69976E+03_JPRB,0.56697E+03_JPRB,0.52821E+03_JPRB,0.55982E+03_JPRB,0.67117E+03_JPRB /)  
+KB(:, 1,13, 6) = (/ &
+ & 0.99182E+03_JPRB,0.76479E+03_JPRB,0.58123E+03_JPRB,0.73928E+03_JPRB,0.94808E+03_JPRB /)  
+KB(:, 2,13, 6) = (/ &
+ & 0.98417E+03_JPRB,0.75904E+03_JPRB,0.57888E+03_JPRB,0.73991E+03_JPRB,0.94920E+03_JPRB /)  
+KB(:, 3,13, 6) = (/ &
+ & 0.97757E+03_JPRB,0.75410E+03_JPRB,0.57650E+03_JPRB,0.74029E+03_JPRB,0.94995E+03_JPRB /)  
+KB(:, 4,13, 6) = (/ &
+ & 0.97184E+03_JPRB,0.74980E+03_JPRB,0.57428E+03_JPRB,0.74046E+03_JPRB,0.95033E+03_JPRB /)  
+KB(:, 5,13, 6) = (/ &
+ & 0.96680E+03_JPRB,0.74602E+03_JPRB,0.57217E+03_JPRB,0.74043E+03_JPRB,0.95033E+03_JPRB /)  
+KB(:, 1,14, 6) = (/ &
+ & 0.97264E+03_JPRB,0.75040E+03_JPRB,0.57482E+03_JPRB,0.73884E+03_JPRB,0.94820E+03_JPRB /)  
+KB(:, 2,14, 6) = (/ &
+ & 0.96646E+03_JPRB,0.74576E+03_JPRB,0.57229E+03_JPRB,0.73949E+03_JPRB,0.94928E+03_JPRB /)  
+KB(:, 3,14, 6) = (/ &
+ & 0.96113E+03_JPRB,0.74177E+03_JPRB,0.57016E+03_JPRB,0.73988E+03_JPRB,0.95000E+03_JPRB /)  
+KB(:, 4,14, 6) = (/ &
+ & 0.95649E+03_JPRB,0.73829E+03_JPRB,0.56822E+03_JPRB,0.74006E+03_JPRB,0.95035E+03_JPRB /)  
+KB(:, 5,14, 6) = (/ &
+ & 0.95242E+03_JPRB,0.73523E+03_JPRB,0.56635E+03_JPRB,0.74003E+03_JPRB,0.95032E+03_JPRB /)  
+KB(:, 1,15, 6) = (/ &
+ & 0.95700E+03_JPRB,0.73867E+03_JPRB,0.56844E+03_JPRB,0.73851E+03_JPRB,0.94832E+03_JPRB /)  
+KB(:, 2,15, 6) = (/ &
+ & 0.95201E+03_JPRB,0.73493E+03_JPRB,0.56632E+03_JPRB,0.73916E+03_JPRB,0.94937E+03_JPRB /)  
+KB(:, 3,15, 6) = (/ &
+ & 0.94772E+03_JPRB,0.73170E+03_JPRB,0.56426E+03_JPRB,0.73956E+03_JPRB,0.95005E+03_JPRB /)  
+KB(:, 4,15, 6) = (/ &
+ & 0.94397E+03_JPRB,0.72889E+03_JPRB,0.56242E+03_JPRB,0.73973E+03_JPRB,0.95035E+03_JPRB /)  
+KB(:, 5,15, 6) = (/ &
+ & 0.94067E+03_JPRB,0.72642E+03_JPRB,0.56076E+03_JPRB,0.73970E+03_JPRB,0.95029E+03_JPRB /)  
+KB(:, 1,16, 6) = (/ &
+ & 0.94427E+03_JPRB,0.72912E+03_JPRB,0.56257E+03_JPRB,0.73826E+03_JPRB,0.94846E+03_JPRB /)  
+KB(:, 2,16, 6) = (/ &
+ & 0.94026E+03_JPRB,0.72611E+03_JPRB,0.56064E+03_JPRB,0.73891E+03_JPRB,0.94946E+03_JPRB /)  
+KB(:, 3,16, 6) = (/ &
+ & 0.93679E+03_JPRB,0.72351E+03_JPRB,0.55906E+03_JPRB,0.73929E+03_JPRB,0.95011E+03_JPRB /)  
+KB(:, 4,16, 6) = (/ &
+ & 0.93377E+03_JPRB,0.72124E+03_JPRB,0.55770E+03_JPRB,0.73948E+03_JPRB,0.95036E+03_JPRB /)  
+KB(:, 5,16, 6) = (/ &
+ & 0.93110E+03_JPRB,0.71925E+03_JPRB,0.55641E+03_JPRB,0.73943E+03_JPRB,0.95027E+03_JPRB /)  
+KB(:, 1,17, 6) = (/ &
+ & 0.93395E+03_JPRB,0.72138E+03_JPRB,0.55755E+03_JPRB,0.73807E+03_JPRB,0.94857E+03_JPRB /)  
+KB(:, 2,17, 6) = (/ &
+ & 0.93072E+03_JPRB,0.71896E+03_JPRB,0.55622E+03_JPRB,0.73871E+03_JPRB,0.94955E+03_JPRB /)  
+KB(:, 3,17, 6) = (/ &
+ & 0.92792E+03_JPRB,0.71686E+03_JPRB,0.55497E+03_JPRB,0.73909E+03_JPRB,0.95015E+03_JPRB /)  
+KB(:, 4,17, 6) = (/ &
+ & 0.92548E+03_JPRB,0.71503E+03_JPRB,0.55372E+03_JPRB,0.73925E+03_JPRB,0.95038E+03_JPRB /)  
+KB(:, 5,17, 6) = (/ &
+ & 0.92333E+03_JPRB,0.71341E+03_JPRB,0.55252E+03_JPRB,0.73921E+03_JPRB,0.95024E+03_JPRB /)  
+KB(:, 1,18, 6) = (/ &
+ & 0.92558E+03_JPRB,0.71510E+03_JPRB,0.55360E+03_JPRB,0.73792E+03_JPRB,0.94869E+03_JPRB /)  
+KB(:, 2,18, 6) = (/ &
+ & 0.92297E+03_JPRB,0.71315E+03_JPRB,0.55237E+03_JPRB,0.73856E+03_JPRB,0.94963E+03_JPRB /)  
+KB(:, 3,18, 6) = (/ &
+ & 0.92072E+03_JPRB,0.71146E+03_JPRB,0.55114E+03_JPRB,0.73892E+03_JPRB,0.95019E+03_JPRB /)  
+KB(:, 4,18, 6) = (/ &
+ & 0.91874E+03_JPRB,0.70998E+03_JPRB,0.55001E+03_JPRB,0.73908E+03_JPRB,0.95037E+03_JPRB /)  
+KB(:, 5,18, 6) = (/ &
+ & 0.91700E+03_JPRB,0.70867E+03_JPRB,0.54903E+03_JPRB,0.73903E+03_JPRB,0.95021E+03_JPRB /)  
+KB(:, 1,19, 6) = (/ &
+ & 0.91879E+03_JPRB,0.71001E+03_JPRB,0.55004E+03_JPRB,0.73782E+03_JPRB,0.94880E+03_JPRB /)  
+KB(:, 2,19, 6) = (/ &
+ & 0.91668E+03_JPRB,0.70843E+03_JPRB,0.54889E+03_JPRB,0.73844E+03_JPRB,0.94970E+03_JPRB /)  
+KB(:, 3,19, 6) = (/ &
+ & 0.91486E+03_JPRB,0.70706E+03_JPRB,0.54830E+03_JPRB,0.73880E+03_JPRB,0.95023E+03_JPRB /)  
+KB(:, 4,19, 6) = (/ &
+ & 0.91327E+03_JPRB,0.70587E+03_JPRB,0.54705E+03_JPRB,0.73894E+03_JPRB,0.95037E+03_JPRB /)  
+KB(:, 5,19, 6) = (/ &
+ & 0.91186E+03_JPRB,0.70481E+03_JPRB,0.54615E+03_JPRB,0.73887E+03_JPRB,0.95019E+03_JPRB /)  
+KB(:, 1,20, 6) = (/ &
+ & 0.91324E+03_JPRB,0.70585E+03_JPRB,0.54718E+03_JPRB,0.73776E+03_JPRB,0.94893E+03_JPRB /)  
+KB(:, 2,20, 6) = (/ &
+ & 0.91155E+03_JPRB,0.70458E+03_JPRB,0.54599E+03_JPRB,0.73835E+03_JPRB,0.94979E+03_JPRB /)  
+KB(:, 3,20, 6) = (/ &
+ & 0.91008E+03_JPRB,0.70348E+03_JPRB,0.54519E+03_JPRB,0.73870E+03_JPRB,0.95026E+03_JPRB /)  
+KB(:, 4,20, 6) = (/ &
+ & 0.90879E+03_JPRB,0.70251E+03_JPRB,0.54450E+03_JPRB,0.73882E+03_JPRB,0.95036E+03_JPRB /)  
+KB(:, 5,20, 6) = (/ &
+ & 0.90766E+03_JPRB,0.70166E+03_JPRB,0.54390E+03_JPRB,0.73874E+03_JPRB,0.95013E+03_JPRB /)  
+KB(:, 1,21, 6) = (/ &
+ & 0.90874E+03_JPRB,0.70247E+03_JPRB,0.54444E+03_JPRB,0.73773E+03_JPRB,0.94905E+03_JPRB /)  
+KB(:, 2,21, 6) = (/ &
+ & 0.90737E+03_JPRB,0.70145E+03_JPRB,0.54370E+03_JPRB,0.73831E+03_JPRB,0.94986E+03_JPRB /)  
+KB(:, 3,21, 6) = (/ &
+ & 0.90619E+03_JPRB,0.70056E+03_JPRB,0.54308E+03_JPRB,0.73862E+03_JPRB,0.95029E+03_JPRB /)  
+KB(:, 4,21, 6) = (/ &
+ & 0.90515E+03_JPRB,0.69978E+03_JPRB,0.54255E+03_JPRB,0.73872E+03_JPRB,0.95035E+03_JPRB /)  
+KB(:, 5,21, 6) = (/ &
+ & 0.90424E+03_JPRB,0.69910E+03_JPRB,0.54208E+03_JPRB,0.73862E+03_JPRB,0.95008E+03_JPRB /)  
+KB(:, 1,22, 6) = (/ &
+ & 0.90500E+03_JPRB,0.69967E+03_JPRB,0.54240E+03_JPRB,0.73776E+03_JPRB,0.94923E+03_JPRB /)  
+KB(:, 2,22, 6) = (/ &
+ & 0.90392E+03_JPRB,0.69886E+03_JPRB,0.54185E+03_JPRB,0.73829E+03_JPRB,0.94997E+03_JPRB /)  
+KB(:, 3,22, 6) = (/ &
+ & 0.90297E+03_JPRB,0.69815E+03_JPRB,0.54138E+03_JPRB,0.73857E+03_JPRB,0.95033E+03_JPRB /)  
+KB(:, 4,22, 6) = (/ &
+ & 0.90215E+03_JPRB,0.69753E+03_JPRB,0.54099E+03_JPRB,0.73864E+03_JPRB,0.95033E+03_JPRB /)  
+KB(:, 5,22, 6) = (/ &
+ & 0.90141E+03_JPRB,0.69698E+03_JPRB,0.54066E+03_JPRB,0.73851E+03_JPRB,0.94999E+03_JPRB /)  
+KB(:, 1,23, 6) = (/ &
+ & 0.90199E+03_JPRB,0.69741E+03_JPRB,0.54083E+03_JPRB,0.73780E+03_JPRB,0.94940E+03_JPRB /)  
+KB(:, 2,23, 6) = (/ &
+ & 0.90112E+03_JPRB,0.69676E+03_JPRB,0.54044E+03_JPRB,0.73828E+03_JPRB,0.95007E+03_JPRB /)  
+KB(:, 3,23, 6) = (/ &
+ & 0.90037E+03_JPRB,0.69620E+03_JPRB,0.54010E+03_JPRB,0.73854E+03_JPRB,0.95036E+03_JPRB /)  
+KB(:, 4,23, 6) = (/ &
+ & 0.89971E+03_JPRB,0.69570E+03_JPRB,0.53983E+03_JPRB,0.73858E+03_JPRB,0.95029E+03_JPRB /)  
+KB(:, 5,23, 6) = (/ &
+ & 0.89912E+03_JPRB,0.69526E+03_JPRB,0.53959E+03_JPRB,0.73840E+03_JPRB,0.94989E+03_JPRB /)  
+KB(:, 1,24, 6) = (/ &
+ & 0.89955E+03_JPRB,0.69558E+03_JPRB,0.53965E+03_JPRB,0.73787E+03_JPRB,0.94957E+03_JPRB /)  
+KB(:, 2,24, 6) = (/ &
+ & 0.89886E+03_JPRB,0.69507E+03_JPRB,0.53937E+03_JPRB,0.73829E+03_JPRB,0.95016E+03_JPRB /)  
+KB(:, 3,24, 6) = (/ &
+ & 0.89826E+03_JPRB,0.69461E+03_JPRB,0.53914E+03_JPRB,0.73851E+03_JPRB,0.95038E+03_JPRB /)  
+KB(:, 4,24, 6) = (/ &
+ & 0.89773E+03_JPRB,0.69422E+03_JPRB,0.53895E+03_JPRB,0.73850E+03_JPRB,0.95023E+03_JPRB /)  
+KB(:, 5,24, 6) = (/ &
+ & 0.89726E+03_JPRB,0.69387E+03_JPRB,0.53876E+03_JPRB,0.73829E+03_JPRB,0.94977E+03_JPRB /)  
+KB(:, 1,25, 6) = (/ &
+ & 0.89758E+03_JPRB,0.69410E+03_JPRB,0.53876E+03_JPRB,0.73792E+03_JPRB,0.94973E+03_JPRB /)  
+KB(:, 2,25, 6) = (/ &
+ & 0.89703E+03_JPRB,0.69369E+03_JPRB,0.53857E+03_JPRB,0.73831E+03_JPRB,0.95024E+03_JPRB /)  
+KB(:, 3,25, 6) = (/ &
+ & 0.89655E+03_JPRB,0.69333E+03_JPRB,0.53841E+03_JPRB,0.73848E+03_JPRB,0.95037E+03_JPRB /)  
+KB(:, 4,25, 6) = (/ &
+ & 0.89613E+03_JPRB,0.69302E+03_JPRB,0.53826E+03_JPRB,0.73843E+03_JPRB,0.95016E+03_JPRB /)  
+KB(:, 5,25, 6) = (/ &
+ & 0.89576E+03_JPRB,0.69273E+03_JPRB,0.53811E+03_JPRB,0.73818E+03_JPRB,0.94963E+03_JPRB /)  
+KB(:, 1,26, 6) = (/ &
+ & 0.89598E+03_JPRB,0.69290E+03_JPRB,0.53808E+03_JPRB,0.73799E+03_JPRB,0.94987E+03_JPRB /)  
+KB(:, 2,26, 6) = (/ &
+ & 0.89555E+03_JPRB,0.69258E+03_JPRB,0.53794E+03_JPRB,0.73834E+03_JPRB,0.95030E+03_JPRB /)  
+KB(:, 3,26, 6) = (/ &
+ & 0.89517E+03_JPRB,0.69229E+03_JPRB,0.53782E+03_JPRB,0.73845E+03_JPRB,0.95035E+03_JPRB /)  
+KB(:, 4,26, 6) = (/ &
+ & 0.89483E+03_JPRB,0.69204E+03_JPRB,0.53770E+03_JPRB,0.73836E+03_JPRB,0.95007E+03_JPRB /)  
+KB(:, 5,26, 6) = (/ &
+ & 0.89453E+03_JPRB,0.69182E+03_JPRB,0.53759E+03_JPRB,0.73806E+03_JPRB,0.94946E+03_JPRB /)  
+KB(:, 1,27, 6) = (/ &
+ & 0.89469E+03_JPRB,0.69194E+03_JPRB,0.53754E+03_JPRB,0.73806E+03_JPRB,0.95001E+03_JPRB /)  
+KB(:, 2,27, 6) = (/ &
+ & 0.89435E+03_JPRB,0.69168E+03_JPRB,0.53744E+03_JPRB,0.73835E+03_JPRB,0.95034E+03_JPRB /)  
+KB(:, 3,27, 6) = (/ &
+ & 0.89405E+03_JPRB,0.69145E+03_JPRB,0.53736E+03_JPRB,0.73843E+03_JPRB,0.95031E+03_JPRB /)  
+KB(:, 4,27, 6) = (/ &
+ & 0.89378E+03_JPRB,0.69125E+03_JPRB,0.53727E+03_JPRB,0.73828E+03_JPRB,0.94995E+03_JPRB /)  
+KB(:, 5,27, 6) = (/ &
+ & 0.89354E+03_JPRB,0.69107E+03_JPRB,0.53717E+03_JPRB,0.73792E+03_JPRB,0.94926E+03_JPRB /)  
+KB(:, 1,28, 6) = (/ &
+ & 0.89366E+03_JPRB,0.69116E+03_JPRB,0.53711E+03_JPRB,0.73814E+03_JPRB,0.95012E+03_JPRB /)  
+KB(:, 2,28, 6) = (/ &
+ & 0.89338E+03_JPRB,0.69096E+03_JPRB,0.53705E+03_JPRB,0.73836E+03_JPRB,0.95037E+03_JPRB /)  
+KB(:, 3,28, 6) = (/ &
+ & 0.89314E+03_JPRB,0.69078E+03_JPRB,0.53699E+03_JPRB,0.73838E+03_JPRB,0.95026E+03_JPRB /)  
+KB(:, 4,28, 6) = (/ &
+ & 0.89293E+03_JPRB,0.69062E+03_JPRB,0.53692E+03_JPRB,0.73819E+03_JPRB,0.94982E+03_JPRB /)  
+KB(:, 5,28, 6) = (/ &
+ & 0.89274E+03_JPRB,0.69047E+03_JPRB,0.53684E+03_JPRB,0.73778E+03_JPRB,0.94904E+03_JPRB /)  
+KB(:, 1,29, 6) = (/ &
+ & 0.89282E+03_JPRB,0.69053E+03_JPRB,0.53678E+03_JPRB,0.73818E+03_JPRB,0.95022E+03_JPRB /)  
+KB(:, 2,29, 6) = (/ &
+ & 0.89261E+03_JPRB,0.69037E+03_JPRB,0.53674E+03_JPRB,0.73837E+03_JPRB,0.95037E+03_JPRB /)  
+KB(:, 3,29, 6) = (/ &
+ & 0.89241E+03_JPRB,0.69023E+03_JPRB,0.53670E+03_JPRB,0.73834E+03_JPRB,0.95018E+03_JPRB /)  
+KB(:, 4,29, 6) = (/ &
+ & 0.89224E+03_JPRB,0.69010E+03_JPRB,0.53663E+03_JPRB,0.73810E+03_JPRB,0.94966E+03_JPRB /)  
+KB(:, 5,29, 6) = (/ &
+ & 0.89209E+03_JPRB,0.68999E+03_JPRB,0.53656E+03_JPRB,0.73762E+03_JPRB,0.94880E+03_JPRB /)  
+KB(:, 1,30, 6) = (/ &
+ & 0.89215E+03_JPRB,0.69003E+03_JPRB,0.53652E+03_JPRB,0.73823E+03_JPRB,0.95029E+03_JPRB /)  
+KB(:, 2,30, 6) = (/ &
+ & 0.89198E+03_JPRB,0.68990E+03_JPRB,0.53650E+03_JPRB,0.73836E+03_JPRB,0.95035E+03_JPRB /)  
+KB(:, 3,30, 6) = (/ &
+ & 0.89183E+03_JPRB,0.68979E+03_JPRB,0.53646E+03_JPRB,0.73828E+03_JPRB,0.95008E+03_JPRB /)  
+KB(:, 4,30, 6) = (/ &
+ & 0.89169E+03_JPRB,0.68969E+03_JPRB,0.53641E+03_JPRB,0.73798E+03_JPRB,0.94948E+03_JPRB /)  
+KB(:, 5,30, 6) = (/ &
+ & 0.89157E+03_JPRB,0.68960E+03_JPRB,0.53634E+03_JPRB,0.73744E+03_JPRB,0.94852E+03_JPRB /)  
+KB(:, 1,31, 6) = (/ &
+ & 0.89161E+03_JPRB,0.68962E+03_JPRB,0.53631E+03_JPRB,0.73827E+03_JPRB,0.95034E+03_JPRB /)  
+KB(:, 2,31, 6) = (/ &
+ & 0.89147E+03_JPRB,0.68952E+03_JPRB,0.53629E+03_JPRB,0.73835E+03_JPRB,0.95031E+03_JPRB /)  
+KB(:, 3,31, 6) = (/ &
+ & 0.89135E+03_JPRB,0.68943E+03_JPRB,0.53627E+03_JPRB,0.73821E+03_JPRB,0.94996E+03_JPRB /)  
+KB(:, 4,31, 6) = (/ &
+ & 0.89124E+03_JPRB,0.68935E+03_JPRB,0.53622E+03_JPRB,0.73786E+03_JPRB,0.94927E+03_JPRB /)  
+KB(:, 5,31, 6) = (/ &
+ & 0.89115E+03_JPRB,0.68928E+03_JPRB,0.53615E+03_JPRB,0.73725E+03_JPRB,0.94822E+03_JPRB /)  
+KB(:, 1,32, 6) = (/ &
+ & 0.89117E+03_JPRB,0.68930E+03_JPRB,0.53614E+03_JPRB,0.73830E+03_JPRB,0.95037E+03_JPRB /)  
+KB(:, 2,32, 6) = (/ &
+ & 0.89106E+03_JPRB,0.68922E+03_JPRB,0.53614E+03_JPRB,0.73833E+03_JPRB,0.95025E+03_JPRB /)  
+KB(:, 3,32, 6) = (/ &
+ & 0.89097E+03_JPRB,0.68914E+03_JPRB,0.53611E+03_JPRB,0.73813E+03_JPRB,0.94981E+03_JPRB /)  
+KB(:, 4,32, 6) = (/ &
+ & 0.89088E+03_JPRB,0.68908E+03_JPRB,0.53608E+03_JPRB,0.73772E+03_JPRB,0.94903E+03_JPRB /)  
+KB(:, 5,32, 6) = (/ &
+ & 0.89081E+03_JPRB,0.68902E+03_JPRB,0.53600E+03_JPRB,0.73703E+03_JPRB,0.94789E+03_JPRB /)  
+KB(:, 1,33, 6) = (/ &
+ & 0.89082E+03_JPRB,0.68903E+03_JPRB,0.53602E+03_JPRB,0.73832E+03_JPRB,0.95037E+03_JPRB /)  
+KB(:, 2,33, 6) = (/ &
+ & 0.89073E+03_JPRB,0.68897E+03_JPRB,0.53601E+03_JPRB,0.73829E+03_JPRB,0.95017E+03_JPRB /)  
+KB(:, 3,33, 6) = (/ &
+ & 0.89066E+03_JPRB,0.68891E+03_JPRB,0.53599E+03_JPRB,0.73804E+03_JPRB,0.94964E+03_JPRB /)  
+KB(:, 4,33, 6) = (/ &
+ & 0.89059E+03_JPRB,0.68886E+03_JPRB,0.53595E+03_JPRB,0.73756E+03_JPRB,0.94877E+03_JPRB /)  
+KB(:, 5,33, 6) = (/ &
+ & 0.89053E+03_JPRB,0.68882E+03_JPRB,0.53586E+03_JPRB,0.73678E+03_JPRB,0.94753E+03_JPRB /)  
+KB(:, 1,34, 6) = (/ &
+ & 0.89054E+03_JPRB,0.68882E+03_JPRB,0.53592E+03_JPRB,0.73832E+03_JPRB,0.95035E+03_JPRB /)  
+KB(:, 2,34, 6) = (/ &
+ & 0.89047E+03_JPRB,0.68877E+03_JPRB,0.53592E+03_JPRB,0.73824E+03_JPRB,0.95008E+03_JPRB /)  
+KB(:, 3,34, 6) = (/ &
+ & 0.89041E+03_JPRB,0.68873E+03_JPRB,0.53589E+03_JPRB,0.73795E+03_JPRB,0.94947E+03_JPRB /)  
+KB(:, 4,34, 6) = (/ &
+ & 0.89036E+03_JPRB,0.68869E+03_JPRB,0.53584E+03_JPRB,0.73741E+03_JPRB,0.94852E+03_JPRB /)  
+KB(:, 5,34, 6) = (/ &
+ & 0.89031E+03_JPRB,0.68865E+03_JPRB,0.53575E+03_JPRB,0.73655E+03_JPRB,0.94719E+03_JPRB /)  
+KB(:, 1,35, 6) = (/ &
+ & 0.89032E+03_JPRB,0.68866E+03_JPRB,0.53584E+03_JPRB,0.73832E+03_JPRB,0.95034E+03_JPRB /)  
+KB(:, 2,35, 6) = (/ &
+ & 0.89027E+03_JPRB,0.68862E+03_JPRB,0.53584E+03_JPRB,0.73821E+03_JPRB,0.95002E+03_JPRB /)  
+KB(:, 3,35, 6) = (/ &
+ & 0.89022E+03_JPRB,0.68858E+03_JPRB,0.53581E+03_JPRB,0.73788E+03_JPRB,0.94937E+03_JPRB /)  
+KB(:, 4,35, 6) = (/ &
+ & 0.89017E+03_JPRB,0.68855E+03_JPRB,0.53576E+03_JPRB,0.73731E+03_JPRB,0.94836E+03_JPRB /)  
+KB(:, 5,35, 6) = (/ &
+ & 0.89013E+03_JPRB,0.68852E+03_JPRB,0.53567E+03_JPRB,0.73640E+03_JPRB,0.94700E+03_JPRB /)  
+KB(:, 1,36, 6) = (/ &
+ & 0.89015E+03_JPRB,0.68853E+03_JPRB,0.53577E+03_JPRB,0.73831E+03_JPRB,0.95033E+03_JPRB /)  
+KB(:, 2,36, 6) = (/ &
+ & 0.89010E+03_JPRB,0.68849E+03_JPRB,0.53577E+03_JPRB,0.73820E+03_JPRB,0.95001E+03_JPRB /)  
+KB(:, 3,36, 6) = (/ &
+ & 0.89006E+03_JPRB,0.68846E+03_JPRB,0.53575E+03_JPRB,0.73787E+03_JPRB,0.94935E+03_JPRB /)  
+KB(:, 4,36, 6) = (/ &
+ & 0.89003E+03_JPRB,0.68844E+03_JPRB,0.53570E+03_JPRB,0.73729E+03_JPRB,0.94834E+03_JPRB /)  
+KB(:, 5,36, 6) = (/ &
+ & 0.88999E+03_JPRB,0.68841E+03_JPRB,0.53561E+03_JPRB,0.73637E+03_JPRB,0.94696E+03_JPRB /)  
+KB(:, 1,37, 6) = (/ &
+ & 0.89001E+03_JPRB,0.68843E+03_JPRB,0.53571E+03_JPRB,0.73831E+03_JPRB,0.95036E+03_JPRB /)  
+KB(:, 2,37, 6) = (/ &
+ & 0.88997E+03_JPRB,0.68840E+03_JPRB,0.53572E+03_JPRB,0.73823E+03_JPRB,0.95007E+03_JPRB /)  
+KB(:, 3,37, 6) = (/ &
+ & 0.88994E+03_JPRB,0.68837E+03_JPRB,0.53570E+03_JPRB,0.73792E+03_JPRB,0.94946E+03_JPRB /)  
+KB(:, 4,37, 6) = (/ &
+ & 0.88991E+03_JPRB,0.68835E+03_JPRB,0.53566E+03_JPRB,0.73738E+03_JPRB,0.94849E+03_JPRB /)  
+KB(:, 5,37, 6) = (/ &
+ & 0.88988E+03_JPRB,0.68833E+03_JPRB,0.53557E+03_JPRB,0.73651E+03_JPRB,0.94716E+03_JPRB /)  
+KB(:, 1,38, 6) = (/ &
+ & 0.88990E+03_JPRB,0.68834E+03_JPRB,0.53566E+03_JPRB,0.73830E+03_JPRB,0.95036E+03_JPRB /)  
+KB(:, 2,38, 6) = (/ &
+ & 0.88987E+03_JPRB,0.68832E+03_JPRB,0.53568E+03_JPRB,0.73825E+03_JPRB,0.95013E+03_JPRB /)  
+KB(:, 3,38, 6) = (/ &
+ & 0.88984E+03_JPRB,0.68830E+03_JPRB,0.53566E+03_JPRB,0.73798E+03_JPRB,0.94957E+03_JPRB /)  
+KB(:, 4,38, 6) = (/ &
+ & 0.88982E+03_JPRB,0.68828E+03_JPRB,0.53563E+03_JPRB,0.73747E+03_JPRB,0.94865E+03_JPRB /)  
+KB(:, 5,38, 6) = (/ &
+ & 0.88979E+03_JPRB,0.68826E+03_JPRB,0.53555E+03_JPRB,0.73665E+03_JPRB,0.94737E+03_JPRB /)  
+KB(:, 1,39, 6) = (/ &
+ & 0.88981E+03_JPRB,0.68827E+03_JPRB,0.53562E+03_JPRB,0.73829E+03_JPRB,0.95037E+03_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART20',1,ZHOOK_HANDLE)
+END SUBROUTINE PART20
+
+
+SUBROUTINE PART21
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART21',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,39, 6) = (/ &
+ & 0.88978E+03_JPRB,0.68825E+03_JPRB,0.53564E+03_JPRB,0.73826E+03_JPRB,0.95018E+03_JPRB /)  
+KB(:, 3,39, 6) = (/ &
+ & 0.88976E+03_JPRB,0.68824E+03_JPRB,0.53563E+03_JPRB,0.73803E+03_JPRB,0.94966E+03_JPRB /)  
+KB(:, 4,39, 6) = (/ &
+ & 0.88974E+03_JPRB,0.68822E+03_JPRB,0.53560E+03_JPRB,0.73755E+03_JPRB,0.94880E+03_JPRB /)  
+KB(:, 5,39, 6) = (/ &
+ & 0.88972E+03_JPRB,0.68821E+03_JPRB,0.53553E+03_JPRB,0.73679E+03_JPRB,0.94757E+03_JPRB /)  
+KB(:, 1,40, 6) = (/ &
+ & 0.88973E+03_JPRB,0.68822E+03_JPRB,0.53558E+03_JPRB,0.73826E+03_JPRB,0.95037E+03_JPRB /)  
+KB(:, 2,40, 6) = (/ &
+ & 0.88971E+03_JPRB,0.68820E+03_JPRB,0.53561E+03_JPRB,0.73829E+03_JPRB,0.95026E+03_JPRB /)  
+KB(:, 3,40, 6) = (/ &
+ & 0.88969E+03_JPRB,0.68819E+03_JPRB,0.53561E+03_JPRB,0.73810E+03_JPRB,0.94982E+03_JPRB /)  
+KB(:, 4,40, 6) = (/ &
+ & 0.88967E+03_JPRB,0.68817E+03_JPRB,0.53559E+03_JPRB,0.73769E+03_JPRB,0.94904E+03_JPRB /)  
+KB(:, 5,40, 6) = (/ &
+ & 0.88966E+03_JPRB,0.68816E+03_JPRB,0.53553E+03_JPRB,0.73700E+03_JPRB,0.94790E+03_JPRB /)  
+KB(:, 1,41, 6) = (/ &
+ & 0.88967E+03_JPRB,0.68817E+03_JPRB,0.53555E+03_JPRB,0.73822E+03_JPRB,0.95035E+03_JPRB /)  
+KB(:, 2,41, 6) = (/ &
+ & 0.88965E+03_JPRB,0.68816E+03_JPRB,0.53558E+03_JPRB,0.73830E+03_JPRB,0.95031E+03_JPRB /)  
+KB(:, 3,41, 6) = (/ &
+ & 0.88964E+03_JPRB,0.68815E+03_JPRB,0.53559E+03_JPRB,0.73817E+03_JPRB,0.94996E+03_JPRB /)  
+KB(:, 4,41, 6) = (/ &
+ & 0.88962E+03_JPRB,0.68813E+03_JPRB,0.53558E+03_JPRB,0.73782E+03_JPRB,0.94927E+03_JPRB /)  
+KB(:, 5,41, 6) = (/ &
+ & 0.88961E+03_JPRB,0.68812E+03_JPRB,0.53553E+03_JPRB,0.73722E+03_JPRB,0.94822E+03_JPRB /)  
+KB(:, 1,42, 6) = (/ &
+ & 0.88962E+03_JPRB,0.68813E+03_JPRB,0.53551E+03_JPRB,0.73816E+03_JPRB,0.95029E+03_JPRB /)  
+KB(:, 2,42, 6) = (/ &
+ & 0.88960E+03_JPRB,0.68812E+03_JPRB,0.53555E+03_JPRB,0.73830E+03_JPRB,0.95035E+03_JPRB /)  
+KB(:, 3,42, 6) = (/ &
+ & 0.88959E+03_JPRB,0.68811E+03_JPRB,0.53557E+03_JPRB,0.73822E+03_JPRB,0.95008E+03_JPRB /)  
+KB(:, 4,42, 6) = (/ &
+ & 0.88958E+03_JPRB,0.68810E+03_JPRB,0.53556E+03_JPRB,0.73793E+03_JPRB,0.94948E+03_JPRB /)  
+KB(:, 5,42, 6) = (/ &
+ & 0.88957E+03_JPRB,0.68809E+03_JPRB,0.53553E+03_JPRB,0.73739E+03_JPRB,0.94853E+03_JPRB /)  
+KB(:, 1,43, 6) = (/ &
+ & 0.88958E+03_JPRB,0.68810E+03_JPRB,0.53547E+03_JPRB,0.73807E+03_JPRB,0.95020E+03_JPRB /)  
+KB(:, 2,43, 6) = (/ &
+ & 0.88957E+03_JPRB,0.68809E+03_JPRB,0.53552E+03_JPRB,0.73828E+03_JPRB,0.95037E+03_JPRB /)  
+KB(:, 3,43, 6) = (/ &
+ & 0.88955E+03_JPRB,0.68808E+03_JPRB,0.53555E+03_JPRB,0.73826E+03_JPRB,0.95020E+03_JPRB /)  
+KB(:, 4,43, 6) = (/ &
+ & 0.88954E+03_JPRB,0.68808E+03_JPRB,0.53555E+03_JPRB,0.73804E+03_JPRB,0.94970E+03_JPRB /)  
+KB(:, 5,43, 6) = (/ &
+ & 0.88953E+03_JPRB,0.68807E+03_JPRB,0.53553E+03_JPRB,0.73758E+03_JPRB,0.94886E+03_JPRB /)  
+KB(:, 1,44, 6) = (/ &
+ & 0.88954E+03_JPRB,0.68808E+03_JPRB,0.53544E+03_JPRB,0.73795E+03_JPRB,0.95005E+03_JPRB /)  
+KB(:, 2,44, 6) = (/ &
+ & 0.88953E+03_JPRB,0.68807E+03_JPRB,0.53549E+03_JPRB,0.73823E+03_JPRB,0.95035E+03_JPRB /)  
+KB(:, 3,44, 6) = (/ &
+ & 0.88952E+03_JPRB,0.68806E+03_JPRB,0.53553E+03_JPRB,0.73829E+03_JPRB,0.95030E+03_JPRB /)  
+KB(:, 4,44, 6) = (/ &
+ & 0.88951E+03_JPRB,0.68805E+03_JPRB,0.53554E+03_JPRB,0.73815E+03_JPRB,0.94991E+03_JPRB /)  
+KB(:, 5,44, 6) = (/ &
+ & 0.88951E+03_JPRB,0.68805E+03_JPRB,0.53553E+03_JPRB,0.73776E+03_JPRB,0.94919E+03_JPRB /)  
+KB(:, 1,45, 6) = (/ &
+ & 0.88952E+03_JPRB,0.68806E+03_JPRB,0.53540E+03_JPRB,0.73782E+03_JPRB,0.94987E+03_JPRB /)  
+KB(:, 2,45, 6) = (/ &
+ & 0.88951E+03_JPRB,0.68805E+03_JPRB,0.53547E+03_JPRB,0.73816E+03_JPRB,0.95030E+03_JPRB /)  
+KB(:, 3,45, 6) = (/ &
+ & 0.88950E+03_JPRB,0.68804E+03_JPRB,0.53551E+03_JPRB,0.73830E+03_JPRB,0.95035E+03_JPRB /)  
+KB(:, 4,45, 6) = (/ &
+ & 0.88949E+03_JPRB,0.68804E+03_JPRB,0.53553E+03_JPRB,0.73821E+03_JPRB,0.95008E+03_JPRB /)  
+KB(:, 5,45, 6) = (/ &
+ & 0.88948E+03_JPRB,0.68803E+03_JPRB,0.53553E+03_JPRB,0.73792E+03_JPRB,0.94947E+03_JPRB /)  
+KB(:, 1,46, 6) = (/ &
+ & 0.88949E+03_JPRB,0.68804E+03_JPRB,0.53537E+03_JPRB,0.73763E+03_JPRB,0.94962E+03_JPRB /)  
+KB(:, 2,46, 6) = (/ &
+ & 0.88948E+03_JPRB,0.68803E+03_JPRB,0.53544E+03_JPRB,0.73806E+03_JPRB,0.95019E+03_JPRB /)  
+KB(:, 3,46, 6) = (/ &
+ & 0.88948E+03_JPRB,0.68803E+03_JPRB,0.53549E+03_JPRB,0.73827E+03_JPRB,0.95037E+03_JPRB /)  
+KB(:, 4,46, 6) = (/ &
+ & 0.88947E+03_JPRB,0.68802E+03_JPRB,0.53552E+03_JPRB,0.73827E+03_JPRB,0.95021E+03_JPRB /)  
+KB(:, 5,46, 6) = (/ &
+ & 0.88946E+03_JPRB,0.68802E+03_JPRB,0.53552E+03_JPRB,0.73805E+03_JPRB,0.94973E+03_JPRB /)  
+KB(:, 1,47, 6) = (/ &
+ & 0.88947E+03_JPRB,0.68802E+03_JPRB,0.53531E+03_JPRB,0.73737E+03_JPRB,0.94929E+03_JPRB /)  
+KB(:, 2,47, 6) = (/ &
+ & 0.88947E+03_JPRB,0.68802E+03_JPRB,0.53539E+03_JPRB,0.73792E+03_JPRB,0.95000E+03_JPRB /)  
+KB(:, 3,47, 6) = (/ &
+ & 0.88946E+03_JPRB,0.68801E+03_JPRB,0.53546E+03_JPRB,0.73821E+03_JPRB,0.95034E+03_JPRB /)  
+KB(:, 4,47, 6) = (/ &
+ & 0.88945E+03_JPRB,0.68801E+03_JPRB,0.53550E+03_JPRB,0.73829E+03_JPRB,0.95032E+03_JPRB /)  
+KB(:, 5,47, 6) = (/ &
+ & 0.88945E+03_JPRB,0.68800E+03_JPRB,0.53551E+03_JPRB,0.73816E+03_JPRB,0.94996E+03_JPRB /)  
+KB(:, 1,48, 6) = (/ &
+ & 0.88946E+03_JPRB,0.68801E+03_JPRB,0.53528E+03_JPRB,0.73708E+03_JPRB,0.94889E+03_JPRB /)  
+KB(:, 2,48, 6) = (/ &
+ & 0.88945E+03_JPRB,0.68801E+03_JPRB,0.53536E+03_JPRB,0.73773E+03_JPRB,0.94976E+03_JPRB /)  
+KB(:, 3,48, 6) = (/ &
+ & 0.88944E+03_JPRB,0.68800E+03_JPRB,0.53543E+03_JPRB,0.73812E+03_JPRB,0.95025E+03_JPRB /)  
+KB(:, 4,48, 6) = (/ &
+ & 0.88944E+03_JPRB,0.68800E+03_JPRB,0.53548E+03_JPRB,0.73829E+03_JPRB,0.95037E+03_JPRB /)  
+KB(:, 5,48, 6) = (/ &
+ & 0.88944E+03_JPRB,0.68800E+03_JPRB,0.53551E+03_JPRB,0.73824E+03_JPRB,0.95014E+03_JPRB /)  
+KB(:, 1,49, 6) = (/ &
+ & 0.88944E+03_JPRB,0.68800E+03_JPRB,0.53524E+03_JPRB,0.73674E+03_JPRB,0.94844E+03_JPRB /)  
+KB(:, 2,49, 6) = (/ &
+ & 0.88944E+03_JPRB,0.68800E+03_JPRB,0.53533E+03_JPRB,0.73750E+03_JPRB,0.94945E+03_JPRB /)  
+KB(:, 3,49, 6) = (/ &
+ & 0.88943E+03_JPRB,0.68799E+03_JPRB,0.53540E+03_JPRB,0.73799E+03_JPRB,0.95016E+03_JPRB /)  
+KB(:, 4,49, 6) = (/ &
+ & 0.88943E+03_JPRB,0.68799E+03_JPRB,0.53546E+03_JPRB,0.73825E+03_JPRB,0.95036E+03_JPRB /)  
+KB(:, 5,49, 6) = (/ &
+ & 0.88942E+03_JPRB,0.68799E+03_JPRB,0.53549E+03_JPRB,0.73828E+03_JPRB,0.95027E+03_JPRB /)  
+KB(:, 1,50, 6) = (/ &
+ & 0.88943E+03_JPRB,0.68799E+03_JPRB,0.53521E+03_JPRB,0.73638E+03_JPRB,0.94796E+03_JPRB /)  
+KB(:, 2,50, 6) = (/ &
+ & 0.88943E+03_JPRB,0.68799E+03_JPRB,0.53529E+03_JPRB,0.73724E+03_JPRB,0.94911E+03_JPRB /)  
+KB(:, 3,50, 6) = (/ &
+ & 0.88942E+03_JPRB,0.68798E+03_JPRB,0.53537E+03_JPRB,0.73783E+03_JPRB,0.94990E+03_JPRB /)  
+KB(:, 4,50, 6) = (/ &
+ & 0.88942E+03_JPRB,0.68798E+03_JPRB,0.53544E+03_JPRB,0.73817E+03_JPRB,0.95031E+03_JPRB /)  
+KB(:, 5,50, 6) = (/ &
+ & 0.88942E+03_JPRB,0.68798E+03_JPRB,0.53548E+03_JPRB,0.73829E+03_JPRB,0.95034E+03_JPRB /)  
+KB(:, 1,51, 6) = (/ &
+ & 0.88942E+03_JPRB,0.68798E+03_JPRB,0.53518E+03_JPRB,0.73600E+03_JPRB,0.94745E+03_JPRB /)  
+KB(:, 2,51, 6) = (/ &
+ & 0.88942E+03_JPRB,0.68798E+03_JPRB,0.53525E+03_JPRB,0.73696E+03_JPRB,0.94873E+03_JPRB /)  
+KB(:, 3,51, 6) = (/ &
+ & 0.88941E+03_JPRB,0.68798E+03_JPRB,0.53533E+03_JPRB,0.73765E+03_JPRB,0.94966E+03_JPRB /)  
+KB(:, 4,51, 6) = (/ &
+ & 0.88941E+03_JPRB,0.68798E+03_JPRB,0.53541E+03_JPRB,0.73807E+03_JPRB,0.95020E+03_JPRB /)  
+KB(:, 5,51, 6) = (/ &
+ & 0.88941E+03_JPRB,0.68797E+03_JPRB,0.53546E+03_JPRB,0.73827E+03_JPRB,0.95037E+03_JPRB /)  
+KB(:, 1,52, 6) = (/ &
+ & 0.88941E+03_JPRB,0.68798E+03_JPRB,0.53513E+03_JPRB,0.73556E+03_JPRB,0.94688E+03_JPRB /)  
+KB(:, 2,52, 6) = (/ &
+ & 0.88941E+03_JPRB,0.68798E+03_JPRB,0.53522E+03_JPRB,0.73664E+03_JPRB,0.94831E+03_JPRB /)  
+KB(:, 3,52, 6) = (/ &
+ & 0.88941E+03_JPRB,0.68797E+03_JPRB,0.53531E+03_JPRB,0.73743E+03_JPRB,0.94936E+03_JPRB /)  
+KB(:, 4,52, 6) = (/ &
+ & 0.88940E+03_JPRB,0.68797E+03_JPRB,0.53538E+03_JPRB,0.73795E+03_JPRB,0.95005E+03_JPRB /)  
+KB(:, 5,52, 6) = (/ &
+ & 0.88940E+03_JPRB,0.68797E+03_JPRB,0.53545E+03_JPRB,0.73822E+03_JPRB,0.95036E+03_JPRB /)  
+KB(:, 1,53, 6) = (/ &
+ & 0.88941E+03_JPRB,0.68797E+03_JPRB,0.53507E+03_JPRB,0.73509E+03_JPRB,0.94627E+03_JPRB /)  
+KB(:, 2,53, 6) = (/ &
+ & 0.88940E+03_JPRB,0.68797E+03_JPRB,0.53519E+03_JPRB,0.73629E+03_JPRB,0.94784E+03_JPRB /)  
+KB(:, 3,53, 6) = (/ &
+ & 0.88940E+03_JPRB,0.68797E+03_JPRB,0.53527E+03_JPRB,0.73717E+03_JPRB,0.94902E+03_JPRB /)  
+KB(:, 4,53, 6) = (/ &
+ & 0.88940E+03_JPRB,0.68797E+03_JPRB,0.53535E+03_JPRB,0.73779E+03_JPRB,0.94984E+03_JPRB /)  
+KB(:, 5,53, 6) = (/ &
+ & 0.88940E+03_JPRB,0.68797E+03_JPRB,0.53542E+03_JPRB,0.73815E+03_JPRB,0.95029E+03_JPRB /)  
+KB(:, 1,54, 6) = (/ &
+ & 0.88940E+03_JPRB,0.68797E+03_JPRB,0.53502E+03_JPRB,0.73463E+03_JPRB,0.94566E+03_JPRB /)  
+KB(:, 2,54, 6) = (/ &
+ & 0.88940E+03_JPRB,0.68797E+03_JPRB,0.53516E+03_JPRB,0.73592E+03_JPRB,0.94735E+03_JPRB /)  
+KB(:, 3,54, 6) = (/ &
+ & 0.88940E+03_JPRB,0.68796E+03_JPRB,0.53524E+03_JPRB,0.73691E+03_JPRB,0.94866E+03_JPRB /)  
+KB(:, 4,54, 6) = (/ &
+ & 0.88939E+03_JPRB,0.68796E+03_JPRB,0.53533E+03_JPRB,0.73761E+03_JPRB,0.94961E+03_JPRB /)  
+KB(:, 5,54, 6) = (/ &
+ & 0.88939E+03_JPRB,0.68796E+03_JPRB,0.53539E+03_JPRB,0.73805E+03_JPRB,0.95018E+03_JPRB /)  
+KB(:, 1,55, 6) = (/ &
+ & 0.88940E+03_JPRB,0.68796E+03_JPRB,0.53495E+03_JPRB,0.73415E+03_JPRB,0.94503E+03_JPRB /)  
+KB(:, 2,55, 6) = (/ &
+ & 0.88939E+03_JPRB,0.68796E+03_JPRB,0.53513E+03_JPRB,0.73554E+03_JPRB,0.94685E+03_JPRB /)  
+KB(:, 3,55, 6) = (/ &
+ & 0.88939E+03_JPRB,0.68796E+03_JPRB,0.53521E+03_JPRB,0.73662E+03_JPRB,0.94828E+03_JPRB /)  
+KB(:, 4,55, 6) = (/ &
+ & 0.88939E+03_JPRB,0.68796E+03_JPRB,0.53530E+03_JPRB,0.73742E+03_JPRB,0.94934E+03_JPRB /)  
+KB(:, 5,55, 6) = (/ &
+ & 0.88939E+03_JPRB,0.68796E+03_JPRB,0.53537E+03_JPRB,0.73794E+03_JPRB,0.95004E+03_JPRB /)  
+KB(:, 1,56, 6) = (/ &
+ & 0.88939E+03_JPRB,0.68796E+03_JPRB,0.53489E+03_JPRB,0.73364E+03_JPRB,0.94437E+03_JPRB /)  
+KB(:, 2,56, 6) = (/ &
+ & 0.88939E+03_JPRB,0.68796E+03_JPRB,0.53507E+03_JPRB,0.73512E+03_JPRB,0.94631E+03_JPRB /)  
+KB(:, 3,56, 6) = (/ &
+ & 0.88939E+03_JPRB,0.68796E+03_JPRB,0.53519E+03_JPRB,0.73631E+03_JPRB,0.94787E+03_JPRB /)  
+KB(:, 4,56, 6) = (/ &
+ & 0.88939E+03_JPRB,0.68796E+03_JPRB,0.53527E+03_JPRB,0.73719E+03_JPRB,0.94904E+03_JPRB /)  
+KB(:, 5,56, 6) = (/ &
+ & 0.88938E+03_JPRB,0.68796E+03_JPRB,0.53535E+03_JPRB,0.73780E+03_JPRB,0.94987E+03_JPRB /)  
+KB(:, 1,57, 6) = (/ &
+ & 0.88939E+03_JPRB,0.68796E+03_JPRB,0.53481E+03_JPRB,0.73310E+03_JPRB,0.94366E+03_JPRB /)  
+KB(:, 2,57, 6) = (/ &
+ & 0.88939E+03_JPRB,0.68796E+03_JPRB,0.53502E+03_JPRB,0.73469E+03_JPRB,0.94573E+03_JPRB /)  
+KB(:, 3,57, 6) = (/ &
+ & 0.88938E+03_JPRB,0.68796E+03_JPRB,0.53516E+03_JPRB,0.73597E+03_JPRB,0.94741E+03_JPRB /)  
+KB(:, 4,57, 6) = (/ &
+ & 0.88938E+03_JPRB,0.68796E+03_JPRB,0.53524E+03_JPRB,0.73694E+03_JPRB,0.94871E+03_JPRB /)  
+KB(:, 5,57, 6) = (/ &
+ & 0.88938E+03_JPRB,0.68795E+03_JPRB,0.53532E+03_JPRB,0.73764E+03_JPRB,0.94964E+03_JPRB /)  
+KB(:, 1,58, 6) = (/ &
+ & 0.88938E+03_JPRB,0.68796E+03_JPRB,0.53474E+03_JPRB,0.73255E+03_JPRB,0.94296E+03_JPRB /)  
+KB(:, 2,58, 6) = (/ &
+ & 0.88938E+03_JPRB,0.68796E+03_JPRB,0.53496E+03_JPRB,0.73423E+03_JPRB,0.94515E+03_JPRB /)  
+KB(:, 3,58, 6) = (/ &
+ & 0.88938E+03_JPRB,0.68795E+03_JPRB,0.53512E+03_JPRB,0.73561E+03_JPRB,0.94695E+03_JPRB /)  
+KB(:, 4,58, 6) = (/ &
+ & 0.88938E+03_JPRB,0.68795E+03_JPRB,0.53522E+03_JPRB,0.73667E+03_JPRB,0.94836E+03_JPRB /)  
+KB(:, 5,58, 6) = (/ &
+ & 0.88938E+03_JPRB,0.68795E+03_JPRB,0.53530E+03_JPRB,0.73745E+03_JPRB,0.94939E+03_JPRB /)  
+KB(:, 1,59, 6) = (/ &
+ & 0.88938E+03_JPRB,0.68795E+03_JPRB,0.53470E+03_JPRB,0.73233E+03_JPRB,0.94266E+03_JPRB /)  
+KB(:, 2,59, 6) = (/ &
+ & 0.88938E+03_JPRB,0.68795E+03_JPRB,0.53494E+03_JPRB,0.73405E+03_JPRB,0.94490E+03_JPRB /)  
+KB(:, 3,59, 6) = (/ &
+ & 0.88938E+03_JPRB,0.68795E+03_JPRB,0.53510E+03_JPRB,0.73546E+03_JPRB,0.94675E+03_JPRB /)  
+KB(:, 4,59, 6) = (/ &
+ & 0.88938E+03_JPRB,0.68795E+03_JPRB,0.53521E+03_JPRB,0.73657E+03_JPRB,0.94820E+03_JPRB /)  
+KB(:, 5,59, 6) = (/ &
+ & 0.88938E+03_JPRB,0.68795E+03_JPRB,0.53529E+03_JPRB,0.73737E+03_JPRB,0.94929E+03_JPRB /)  
+KB(:, 1,13, 7) = (/ &
+ & 0.11104E+04_JPRB,0.84453E+03_JPRB,0.58852E+03_JPRB,0.81799E+03_JPRB,0.10746E+04_JPRB /)  
+KB(:, 2,13, 7) = (/ &
+ & 0.11019E+04_JPRB,0.83810E+03_JPRB,0.58572E+03_JPRB,0.81836E+03_JPRB,0.10752E+04_JPRB /)  
+KB(:, 3,13, 7) = (/ &
+ & 0.10945E+04_JPRB,0.83257E+03_JPRB,0.58306E+03_JPRB,0.81848E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 4,13, 7) = (/ &
+ & 0.10881E+04_JPRB,0.82775E+03_JPRB,0.58047E+03_JPRB,0.81831E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 5,13, 7) = (/ &
+ & 0.10824E+04_JPRB,0.82352E+03_JPRB,0.57809E+03_JPRB,0.81788E+03_JPRB,0.10749E+04_JPRB /)  
+KB(:, 1,14, 7) = (/ &
+ & 0.10890E+04_JPRB,0.82842E+03_JPRB,0.58087E+03_JPRB,0.81780E+03_JPRB,0.10747E+04_JPRB /)  
+KB(:, 2,14, 7) = (/ &
+ & 0.10820E+04_JPRB,0.82323E+03_JPRB,0.57803E+03_JPRB,0.81816E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 3,14, 7) = (/ &
+ & 0.10761E+04_JPRB,0.81875E+03_JPRB,0.57524E+03_JPRB,0.81827E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 4,14, 7) = (/ &
+ & 0.10709E+04_JPRB,0.81486E+03_JPRB,0.57281E+03_JPRB,0.81809E+03_JPRB,0.10752E+04_JPRB /)  
+KB(:, 5,14, 7) = (/ &
+ & 0.10663E+04_JPRB,0.81144E+03_JPRB,0.57087E+03_JPRB,0.81766E+03_JPRB,0.10748E+04_JPRB /)  
+KB(:, 1,15, 7) = (/ &
+ & 0.10714E+04_JPRB,0.81529E+03_JPRB,0.57324E+03_JPRB,0.81765E+03_JPRB,0.10748E+04_JPRB /)  
+KB(:, 2,15, 7) = (/ &
+ & 0.10659E+04_JPRB,0.81110E+03_JPRB,0.57094E+03_JPRB,0.81800E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 3,15, 7) = (/ &
+ & 0.10611E+04_JPRB,0.80749E+03_JPRB,0.56926E+03_JPRB,0.81809E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 4,15, 7) = (/ &
+ & 0.10569E+04_JPRB,0.80434E+03_JPRB,0.56791E+03_JPRB,0.81790E+03_JPRB,0.10752E+04_JPRB /)  
+KB(:, 5,15, 7) = (/ &
+ & 0.10532E+04_JPRB,0.80157E+03_JPRB,0.56672E+03_JPRB,0.81746E+03_JPRB,0.10748E+04_JPRB /)  
+KB(:, 1,16, 7) = (/ &
+ & 0.10572E+04_JPRB,0.80460E+03_JPRB,0.56822E+03_JPRB,0.81755E+03_JPRB,0.10748E+04_JPRB /)  
+KB(:, 2,16, 7) = (/ &
+ & 0.10527E+04_JPRB,0.80122E+03_JPRB,0.56701E+03_JPRB,0.81788E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 3,16, 7) = (/ &
+ & 0.10488E+04_JPRB,0.79831E+03_JPRB,0.56599E+03_JPRB,0.81796E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 4,16, 7) = (/ &
+ & 0.10454E+04_JPRB,0.79577E+03_JPRB,0.56505E+03_JPRB,0.81773E+03_JPRB,0.10752E+04_JPRB /)  
+KB(:, 5,16, 7) = (/ &
+ & 0.10425E+04_JPRB,0.79354E+03_JPRB,0.56418E+03_JPRB,0.81728E+03_JPRB,0.10747E+04_JPRB /)  
+KB(:, 1,17, 7) = (/ &
+ & 0.10456E+04_JPRB,0.79593E+03_JPRB,0.56540E+03_JPRB,0.81747E+03_JPRB,0.10749E+04_JPRB /)  
+KB(:, 2,17, 7) = (/ &
+ & 0.10420E+04_JPRB,0.79321E+03_JPRB,0.56464E+03_JPRB,0.81778E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 3,17, 7) = (/ &
+ & 0.10389E+04_JPRB,0.79086E+03_JPRB,0.56406E+03_JPRB,0.81783E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 4,17, 7) = (/ &
+ & 0.10362E+04_JPRB,0.78881E+03_JPRB,0.56355E+03_JPRB,0.81761E+03_JPRB,0.10751E+04_JPRB /)  
+KB(:, 5,17, 7) = (/ &
+ & 0.10337E+04_JPRB,0.78701E+03_JPRB,0.56298E+03_JPRB,0.81712E+03_JPRB,0.10746E+04_JPRB /)  
+KB(:, 1,18, 7) = (/ &
+ & 0.10363E+04_JPRB,0.78890E+03_JPRB,0.56372E+03_JPRB,0.81741E+03_JPRB,0.10750E+04_JPRB /)  
+KB(:, 2,18, 7) = (/ &
+ & 0.10334E+04_JPRB,0.78671E+03_JPRB,0.56351E+03_JPRB,0.81771E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 3,18, 7) = (/ &
+ & 0.10308E+04_JPRB,0.78481E+03_JPRB,0.56335E+03_JPRB,0.81775E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 4,18, 7) = (/ &
+ & 0.10286E+04_JPRB,0.78316E+03_JPRB,0.56306E+03_JPRB,0.81749E+03_JPRB,0.10751E+04_JPRB /)  
+KB(:, 5,18, 7) = (/ &
+ & 0.10267E+04_JPRB,0.78170E+03_JPRB,0.56253E+03_JPRB,0.81698E+03_JPRB,0.10746E+04_JPRB /)  
+KB(:, 1,19, 7) = (/ &
+ & 0.10287E+04_JPRB,0.78319E+03_JPRB,0.56306E+03_JPRB,0.81737E+03_JPRB,0.10751E+04_JPRB /)  
+KB(:, 2,19, 7) = (/ &
+ & 0.10263E+04_JPRB,0.78143E+03_JPRB,0.56317E+03_JPRB,0.81766E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 3,19, 7) = (/ &
+ & 0.10243E+04_JPRB,0.77990E+03_JPRB,0.56256E+03_JPRB,0.81764E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 4,19, 7) = (/ &
+ & 0.10225E+04_JPRB,0.77856E+03_JPRB,0.56270E+03_JPRB,0.81737E+03_JPRB,0.10751E+04_JPRB /)  
+KB(:, 5,19, 7) = (/ &
+ & 0.10209E+04_JPRB,0.77738E+03_JPRB,0.56230E+03_JPRB,0.81685E+03_JPRB,0.10745E+04_JPRB /)  
+KB(:, 1,20, 7) = (/ &
+ & 0.10225E+04_JPRB,0.77853E+03_JPRB,0.56258E+03_JPRB,0.81735E+03_JPRB,0.10751E+04_JPRB /)  
+KB(:, 2,20, 7) = (/ &
+ & 0.10206E+04_JPRB,0.77711E+03_JPRB,0.56304E+03_JPRB,0.81761E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 3,20, 7) = (/ &
+ & 0.10189E+04_JPRB,0.77589E+03_JPRB,0.56295E+03_JPRB,0.81757E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 4,20, 7) = (/ &
+ & 0.10175E+04_JPRB,0.77480E+03_JPRB,0.56264E+03_JPRB,0.81728E+03_JPRB,0.10750E+04_JPRB /)  
+KB(:, 5,20, 7) = (/ &
+ & 0.10162E+04_JPRB,0.77385E+03_JPRB,0.56211E+03_JPRB,0.81672E+03_JPRB,0.10744E+04_JPRB /)  
+KB(:, 1,21, 7) = (/ &
+ & 0.10174E+04_JPRB,0.77475E+03_JPRB,0.56279E+03_JPRB,0.81734E+03_JPRB,0.10752E+04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART21',1,ZHOOK_HANDLE)
+END SUBROUTINE PART21
+
+
+SUBROUTINE PART22
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART22',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,21, 7) = (/ &
+ & 0.10159E+04_JPRB,0.77361E+03_JPRB,0.56292E+03_JPRB,0.81756E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 3,21, 7) = (/ &
+ & 0.10146E+04_JPRB,0.77262E+03_JPRB,0.56281E+03_JPRB,0.81751E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 4,21, 7) = (/ &
+ & 0.10134E+04_JPRB,0.77175E+03_JPRB,0.56248E+03_JPRB,0.81718E+03_JPRB,0.10750E+04_JPRB /)  
+KB(:, 5,21, 7) = (/ &
+ & 0.10124E+04_JPRB,0.77098E+03_JPRB,0.56193E+03_JPRB,0.81661E+03_JPRB,0.10743E+04_JPRB /)  
+KB(:, 1,22, 7) = (/ &
+ & 0.10132E+04_JPRB,0.77163E+03_JPRB,0.56273E+03_JPRB,0.81736E+03_JPRB,0.10752E+04_JPRB /)  
+KB(:, 2,22, 7) = (/ &
+ & 0.10120E+04_JPRB,0.77071E+03_JPRB,0.56281E+03_JPRB,0.81753E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 3,22, 7) = (/ &
+ & 0.10110E+04_JPRB,0.76992E+03_JPRB,0.56267E+03_JPRB,0.81743E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 4,22, 7) = (/ &
+ & 0.10100E+04_JPRB,0.76922E+03_JPRB,0.56230E+03_JPRB,0.81706E+03_JPRB,0.10749E+04_JPRB /)  
+KB(:, 5,22, 7) = (/ &
+ & 0.10092E+04_JPRB,0.76860E+03_JPRB,0.56172E+03_JPRB,0.81643E+03_JPRB,0.10742E+04_JPRB /)  
+KB(:, 1,23, 7) = (/ &
+ & 0.10099E+04_JPRB,0.76909E+03_JPRB,0.56267E+03_JPRB,0.81738E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 2,23, 7) = (/ &
+ & 0.10089E+04_JPRB,0.76836E+03_JPRB,0.56273E+03_JPRB,0.81751E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 3,23, 7) = (/ &
+ & 0.10080E+04_JPRB,0.76773E+03_JPRB,0.56254E+03_JPRB,0.81734E+03_JPRB,0.10752E+04_JPRB /)  
+KB(:, 4,23, 7) = (/ &
+ & 0.10073E+04_JPRB,0.76717E+03_JPRB,0.56214E+03_JPRB,0.81691E+03_JPRB,0.10748E+04_JPRB /)  
+KB(:, 5,23, 7) = (/ &
+ & 0.10067E+04_JPRB,0.76668E+03_JPRB,0.56152E+03_JPRB,0.81625E+03_JPRB,0.10740E+04_JPRB /)  
+KB(:, 1,24, 7) = (/ &
+ & 0.10071E+04_JPRB,0.76704E+03_JPRB,0.56263E+03_JPRB,0.81739E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 2,24, 7) = (/ &
+ & 0.10064E+04_JPRB,0.76647E+03_JPRB,0.56264E+03_JPRB,0.81747E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 3,24, 7) = (/ &
+ & 0.10057E+04_JPRB,0.76596E+03_JPRB,0.56242E+03_JPRB,0.81725E+03_JPRB,0.10751E+04_JPRB /)  
+KB(:, 4,24, 7) = (/ &
+ & 0.10051E+04_JPRB,0.76551E+03_JPRB,0.56198E+03_JPRB,0.81678E+03_JPRB,0.10746E+04_JPRB /)  
+KB(:, 5,24, 7) = (/ &
+ & 0.10046E+04_JPRB,0.76512E+03_JPRB,0.56132E+03_JPRB,0.81606E+03_JPRB,0.10738E+04_JPRB /)  
+KB(:, 1,25, 7) = (/ &
+ & 0.10049E+04_JPRB,0.76538E+03_JPRB,0.56260E+03_JPRB,0.81741E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 2,25, 7) = (/ &
+ & 0.10043E+04_JPRB,0.76492E+03_JPRB,0.56256E+03_JPRB,0.81742E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 3,25, 7) = (/ &
+ & 0.10038E+04_JPRB,0.76453E+03_JPRB,0.56229E+03_JPRB,0.81717E+03_JPRB,0.10750E+04_JPRB /)  
+KB(:, 4,25, 7) = (/ &
+ & 0.10033E+04_JPRB,0.76417E+03_JPRB,0.56181E+03_JPRB,0.81663E+03_JPRB,0.10745E+04_JPRB /)  
+KB(:, 5,25, 7) = (/ &
+ & 0.10029E+04_JPRB,0.76385E+03_JPRB,0.56111E+03_JPRB,0.81585E+03_JPRB,0.10736E+04_JPRB /)  
+KB(:, 1,26, 7) = (/ &
+ & 0.10031E+04_JPRB,0.76404E+03_JPRB,0.56257E+03_JPRB,0.81743E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 2,26, 7) = (/ &
+ & 0.10026E+04_JPRB,0.76368E+03_JPRB,0.56248E+03_JPRB,0.81736E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 3,26, 7) = (/ &
+ & 0.10022E+04_JPRB,0.76336E+03_JPRB,0.56216E+03_JPRB,0.81707E+03_JPRB,0.10749E+04_JPRB /)  
+KB(:, 4,26, 7) = (/ &
+ & 0.10018E+04_JPRB,0.76308E+03_JPRB,0.56163E+03_JPRB,0.81645E+03_JPRB,0.10743E+04_JPRB /)  
+KB(:, 5,26, 7) = (/ &
+ & 0.10015E+04_JPRB,0.76282E+03_JPRB,0.56088E+03_JPRB,0.81561E+03_JPRB,0.10734E+04_JPRB /)  
+KB(:, 1,27, 7) = (/ &
+ & 0.10017E+04_JPRB,0.76296E+03_JPRB,0.56253E+03_JPRB,0.81743E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 2,27, 7) = (/ &
+ & 0.10013E+04_JPRB,0.76268E+03_JPRB,0.56239E+03_JPRB,0.81730E+03_JPRB,0.10752E+04_JPRB /)  
+KB(:, 3,27, 7) = (/ &
+ & 0.10010E+04_JPRB,0.76242E+03_JPRB,0.56202E+03_JPRB,0.81696E+03_JPRB,0.10748E+04_JPRB /)  
+KB(:, 4,27, 7) = (/ &
+ & 0.10007E+04_JPRB,0.76220E+03_JPRB,0.56144E+03_JPRB,0.81630E+03_JPRB,0.10741E+04_JPRB /)  
+KB(:, 5,27, 7) = (/ &
+ & 0.10004E+04_JPRB,0.76200E+03_JPRB,0.56064E+03_JPRB,0.81536E+03_JPRB,0.10731E+04_JPRB /)  
+KB(:, 1,28, 7) = (/ &
+ & 0.10005E+04_JPRB,0.76209E+03_JPRB,0.56249E+03_JPRB,0.81738E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 2,28, 7) = (/ &
+ & 0.10002E+04_JPRB,0.76186E+03_JPRB,0.56229E+03_JPRB,0.81724E+03_JPRB,0.10752E+04_JPRB /)  
+KB(:, 3,28, 7) = (/ &
+ & 0.99995E+03_JPRB,0.76166E+03_JPRB,0.56188E+03_JPRB,0.81687E+03_JPRB,0.10747E+04_JPRB /)  
+KB(:, 4,28, 7) = (/ &
+ & 0.99971E+03_JPRB,0.76148E+03_JPRB,0.56124E+03_JPRB,0.81607E+03_JPRB,0.10739E+04_JPRB /)  
+KB(:, 5,28, 7) = (/ &
+ & 0.99950E+03_JPRB,0.76132E+03_JPRB,0.56040E+03_JPRB,0.81510E+03_JPRB,0.10728E+04_JPRB /)  
+KB(:, 1,29, 7) = (/ &
+ & 0.99960E+03_JPRB,0.76139E+03_JPRB,0.56244E+03_JPRB,0.81739E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 2,29, 7) = (/ &
+ & 0.99935E+03_JPRB,0.76121E+03_JPRB,0.56219E+03_JPRB,0.81712E+03_JPRB,0.10751E+04_JPRB /)  
+KB(:, 3,29, 7) = (/ &
+ & 0.99914E+03_JPRB,0.76105E+03_JPRB,0.56172E+03_JPRB,0.81663E+03_JPRB,0.10745E+04_JPRB /)  
+KB(:, 4,29, 7) = (/ &
+ & 0.99895E+03_JPRB,0.76091E+03_JPRB,0.56103E+03_JPRB,0.81584E+03_JPRB,0.10737E+04_JPRB /)  
+KB(:, 5,29, 7) = (/ &
+ & 0.99878E+03_JPRB,0.76078E+03_JPRB,0.56014E+03_JPRB,0.81482E+03_JPRB,0.10725E+04_JPRB /)  
+KB(:, 1,30, 7) = (/ &
+ & 0.99885E+03_JPRB,0.76083E+03_JPRB,0.56238E+03_JPRB,0.81733E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 2,30, 7) = (/ &
+ & 0.99865E+03_JPRB,0.76069E+03_JPRB,0.56207E+03_JPRB,0.81703E+03_JPRB,0.10750E+04_JPRB /)  
+KB(:, 3,30, 7) = (/ &
+ & 0.99848E+03_JPRB,0.76055E+03_JPRB,0.56155E+03_JPRB,0.81643E+03_JPRB,0.10743E+04_JPRB /)  
+KB(:, 4,30, 7) = (/ &
+ & 0.99833E+03_JPRB,0.76044E+03_JPRB,0.56081E+03_JPRB,0.81561E+03_JPRB,0.10734E+04_JPRB /)  
+KB(:, 5,30, 7) = (/ &
+ & 0.99819E+03_JPRB,0.76034E+03_JPRB,0.55986E+03_JPRB,0.81451E+03_JPRB,0.10721E+04_JPRB /)  
+KB(:, 1,31, 7) = (/ &
+ & 0.99824E+03_JPRB,0.76037E+03_JPRB,0.56231E+03_JPRB,0.81727E+03_JPRB,0.10752E+04_JPRB /)  
+KB(:, 2,31, 7) = (/ &
+ & 0.99808E+03_JPRB,0.76026E+03_JPRB,0.56195E+03_JPRB,0.81690E+03_JPRB,0.10748E+04_JPRB /)  
+KB(:, 3,31, 7) = (/ &
+ & 0.99794E+03_JPRB,0.76015E+03_JPRB,0.56137E+03_JPRB,0.81625E+03_JPRB,0.10741E+04_JPRB /)  
+KB(:, 4,31, 7) = (/ &
+ & 0.99782E+03_JPRB,0.76006E+03_JPRB,0.56058E+03_JPRB,0.81535E+03_JPRB,0.10731E+04_JPRB /)  
+KB(:, 5,31, 7) = (/ &
+ & 0.99772E+03_JPRB,0.75998E+03_JPRB,0.55958E+03_JPRB,0.81419E+03_JPRB,0.10717E+04_JPRB /)  
+KB(:, 1,32, 7) = (/ &
+ & 0.99774E+03_JPRB,0.76000E+03_JPRB,0.56222E+03_JPRB,0.81719E+03_JPRB,0.10752E+04_JPRB /)  
+KB(:, 2,32, 7) = (/ &
+ & 0.99763E+03_JPRB,0.75991E+03_JPRB,0.56181E+03_JPRB,0.81675E+03_JPRB,0.10747E+04_JPRB /)  
+KB(:, 3,32, 7) = (/ &
+ & 0.99752E+03_JPRB,0.75984E+03_JPRB,0.56117E+03_JPRB,0.81604E+03_JPRB,0.10739E+04_JPRB /)  
+KB(:, 4,32, 7) = (/ &
+ & 0.99742E+03_JPRB,0.75976E+03_JPRB,0.56033E+03_JPRB,0.81507E+03_JPRB,0.10728E+04_JPRB /)  
+KB(:, 5,32, 7) = (/ &
+ & 0.99733E+03_JPRB,0.75970E+03_JPRB,0.55927E+03_JPRB,0.81384E+03_JPRB,0.10713E+04_JPRB /)  
+KB(:, 1,33, 7) = (/ &
+ & 0.99735E+03_JPRB,0.75971E+03_JPRB,0.56212E+03_JPRB,0.81709E+03_JPRB,0.10751E+04_JPRB /)  
+KB(:, 2,33, 7) = (/ &
+ & 0.99725E+03_JPRB,0.75964E+03_JPRB,0.56165E+03_JPRB,0.81658E+03_JPRB,0.10745E+04_JPRB /)  
+KB(:, 3,33, 7) = (/ &
+ & 0.99717E+03_JPRB,0.75957E+03_JPRB,0.56096E+03_JPRB,0.81581E+03_JPRB,0.10736E+04_JPRB /)  
+KB(:, 4,33, 7) = (/ &
+ & 0.99709E+03_JPRB,0.75952E+03_JPRB,0.56006E+03_JPRB,0.81477E+03_JPRB,0.10724E+04_JPRB /)  
+KB(:, 5,33, 7) = (/ &
+ & 0.99703E+03_JPRB,0.75946E+03_JPRB,0.55896E+03_JPRB,0.81347E+03_JPRB,0.10709E+04_JPRB /)  
+KB(:, 1,34, 7) = (/ &
+ & 0.99704E+03_JPRB,0.75947E+03_JPRB,0.56203E+03_JPRB,0.81702E+03_JPRB,0.10750E+04_JPRB /)  
+KB(:, 2,34, 7) = (/ &
+ & 0.99696E+03_JPRB,0.75942E+03_JPRB,0.56151E+03_JPRB,0.81642E+03_JPRB,0.10743E+04_JPRB /)  
+KB(:, 3,34, 7) = (/ &
+ & 0.99689E+03_JPRB,0.75937E+03_JPRB,0.56077E+03_JPRB,0.81558E+03_JPRB,0.10734E+04_JPRB /)  
+KB(:, 4,34, 7) = (/ &
+ & 0.99683E+03_JPRB,0.75932E+03_JPRB,0.55982E+03_JPRB,0.81449E+03_JPRB,0.10721E+04_JPRB /)  
+KB(:, 5,34, 7) = (/ &
+ & 0.99678E+03_JPRB,0.75928E+03_JPRB,0.55868E+03_JPRB,0.81314E+03_JPRB,0.10704E+04_JPRB /)  
+KB(:, 1,35, 7) = (/ &
+ & 0.99679E+03_JPRB,0.75929E+03_JPRB,0.56197E+03_JPRB,0.81693E+03_JPRB,0.10749E+04_JPRB /)  
+KB(:, 2,35, 7) = (/ &
+ & 0.99673E+03_JPRB,0.75925E+03_JPRB,0.56142E+03_JPRB,0.81633E+03_JPRB,0.10742E+04_JPRB /)  
+KB(:, 3,35, 7) = (/ &
+ & 0.99667E+03_JPRB,0.75920E+03_JPRB,0.56065E+03_JPRB,0.81545E+03_JPRB,0.10733E+04_JPRB /)  
+KB(:, 4,35, 7) = (/ &
+ & 0.99663E+03_JPRB,0.75916E+03_JPRB,0.55968E+03_JPRB,0.81434E+03_JPRB,0.10719E+04_JPRB /)  
+KB(:, 5,35, 7) = (/ &
+ & 0.99658E+03_JPRB,0.75913E+03_JPRB,0.55851E+03_JPRB,0.81294E+03_JPRB,0.10702E+04_JPRB /)  
+KB(:, 1,36, 7) = (/ &
+ & 0.99660E+03_JPRB,0.75914E+03_JPRB,0.56195E+03_JPRB,0.81692E+03_JPRB,0.10749E+04_JPRB /)  
+KB(:, 2,36, 7) = (/ &
+ & 0.99655E+03_JPRB,0.75911E+03_JPRB,0.56140E+03_JPRB,0.81631E+03_JPRB,0.10742E+04_JPRB /)  
+KB(:, 3,36, 7) = (/ &
+ & 0.99650E+03_JPRB,0.75907E+03_JPRB,0.56063E+03_JPRB,0.81543E+03_JPRB,0.10732E+04_JPRB /)  
+KB(:, 4,36, 7) = (/ &
+ & 0.99646E+03_JPRB,0.75904E+03_JPRB,0.55965E+03_JPRB,0.81430E+03_JPRB,0.10719E+04_JPRB /)  
+KB(:, 5,36, 7) = (/ &
+ & 0.99642E+03_JPRB,0.75901E+03_JPRB,0.55848E+03_JPRB,0.81290E+03_JPRB,0.10702E+04_JPRB /)  
+KB(:, 1,37, 7) = (/ &
+ & 0.99645E+03_JPRB,0.75903E+03_JPRB,0.56200E+03_JPRB,0.81697E+03_JPRB,0.10749E+04_JPRB /)  
+KB(:, 2,37, 7) = (/ &
+ & 0.99640E+03_JPRB,0.75900E+03_JPRB,0.56148E+03_JPRB,0.81640E+03_JPRB,0.10743E+04_JPRB /)  
+KB(:, 3,37, 7) = (/ &
+ & 0.99636E+03_JPRB,0.75897E+03_JPRB,0.56074E+03_JPRB,0.81556E+03_JPRB,0.10734E+04_JPRB /)  
+KB(:, 4,37, 7) = (/ &
+ & 0.99633E+03_JPRB,0.75894E+03_JPRB,0.55979E+03_JPRB,0.81446E+03_JPRB,0.10721E+04_JPRB /)  
+KB(:, 5,37, 7) = (/ &
+ & 0.99630E+03_JPRB,0.75892E+03_JPRB,0.55864E+03_JPRB,0.81313E+03_JPRB,0.10704E+04_JPRB /)  
+KB(:, 1,38, 7) = (/ &
+ & 0.99632E+03_JPRB,0.75894E+03_JPRB,0.56206E+03_JPRB,0.81703E+03_JPRB,0.10750E+04_JPRB /)  
+KB(:, 2,38, 7) = (/ &
+ & 0.99628E+03_JPRB,0.75891E+03_JPRB,0.56157E+03_JPRB,0.81650E+03_JPRB,0.10744E+04_JPRB /)  
+KB(:, 3,38, 7) = (/ &
+ & 0.99625E+03_JPRB,0.75889E+03_JPRB,0.56085E+03_JPRB,0.81569E+03_JPRB,0.10735E+04_JPRB /)  
+KB(:, 4,38, 7) = (/ &
+ & 0.99623E+03_JPRB,0.75887E+03_JPRB,0.55993E+03_JPRB,0.81464E+03_JPRB,0.10723E+04_JPRB /)  
+KB(:, 5,38, 7) = (/ &
+ & 0.99620E+03_JPRB,0.75885E+03_JPRB,0.55881E+03_JPRB,0.81331E+03_JPRB,0.10707E+04_JPRB /)  
+KB(:, 1,39, 7) = (/ &
+ & 0.99622E+03_JPRB,0.75886E+03_JPRB,0.56210E+03_JPRB,0.81708E+03_JPRB,0.10751E+04_JPRB /)  
+KB(:, 2,39, 7) = (/ &
+ & 0.99619E+03_JPRB,0.75884E+03_JPRB,0.56164E+03_JPRB,0.81666E+03_JPRB,0.10745E+04_JPRB /)  
+KB(:, 3,39, 7) = (/ &
+ & 0.99617E+03_JPRB,0.75882E+03_JPRB,0.56096E+03_JPRB,0.81582E+03_JPRB,0.10737E+04_JPRB /)  
+KB(:, 4,39, 7) = (/ &
+ & 0.99614E+03_JPRB,0.75880E+03_JPRB,0.56007E+03_JPRB,0.81479E+03_JPRB,0.10725E+04_JPRB /)  
+KB(:, 5,39, 7) = (/ &
+ & 0.99612E+03_JPRB,0.75878E+03_JPRB,0.55897E+03_JPRB,0.81351E+03_JPRB,0.10709E+04_JPRB /)  
+KB(:, 1,40, 7) = (/ &
+ & 0.99613E+03_JPRB,0.75880E+03_JPRB,0.56218E+03_JPRB,0.81716E+03_JPRB,0.10752E+04_JPRB /)  
+KB(:, 2,40, 7) = (/ &
+ & 0.99611E+03_JPRB,0.75878E+03_JPRB,0.56177E+03_JPRB,0.81672E+03_JPRB,0.10747E+04_JPRB /)  
+KB(:, 3,40, 7) = (/ &
+ & 0.99609E+03_JPRB,0.75876E+03_JPRB,0.56114E+03_JPRB,0.81603E+03_JPRB,0.10739E+04_JPRB /)  
+KB(:, 4,40, 7) = (/ &
+ & 0.99607E+03_JPRB,0.75875E+03_JPRB,0.56030E+03_JPRB,0.81506E+03_JPRB,0.10728E+04_JPRB /)  
+KB(:, 5,40, 7) = (/ &
+ & 0.99605E+03_JPRB,0.75874E+03_JPRB,0.55925E+03_JPRB,0.81383E+03_JPRB,0.10713E+04_JPRB /)  
+KB(:, 1,41, 7) = (/ &
+ & 0.99606E+03_JPRB,0.75874E+03_JPRB,0.56225E+03_JPRB,0.81724E+03_JPRB,0.10752E+04_JPRB /)  
+KB(:, 2,41, 7) = (/ &
+ & 0.99604E+03_JPRB,0.75873E+03_JPRB,0.56189E+03_JPRB,0.81688E+03_JPRB,0.10748E+04_JPRB /)  
+KB(:, 3,41, 7) = (/ &
+ & 0.99602E+03_JPRB,0.75871E+03_JPRB,0.56132E+03_JPRB,0.81623E+03_JPRB,0.10741E+04_JPRB /)  
+KB(:, 4,41, 7) = (/ &
+ & 0.99601E+03_JPRB,0.75870E+03_JPRB,0.56053E+03_JPRB,0.81532E+03_JPRB,0.10731E+04_JPRB /)  
+KB(:, 5,41, 7) = (/ &
+ & 0.99600E+03_JPRB,0.75869E+03_JPRB,0.55954E+03_JPRB,0.81416E+03_JPRB,0.10717E+04_JPRB /)  
+KB(:, 1,42, 7) = (/ &
+ & 0.99601E+03_JPRB,0.75870E+03_JPRB,0.56231E+03_JPRB,0.81730E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 2,42, 7) = (/ &
+ & 0.99599E+03_JPRB,0.75869E+03_JPRB,0.56200E+03_JPRB,0.81698E+03_JPRB,0.10750E+04_JPRB /)  
+KB(:, 3,42, 7) = (/ &
+ & 0.99597E+03_JPRB,0.75868E+03_JPRB,0.56149E+03_JPRB,0.81641E+03_JPRB,0.10743E+04_JPRB /)  
+KB(:, 4,42, 7) = (/ &
+ & 0.99596E+03_JPRB,0.75867E+03_JPRB,0.56075E+03_JPRB,0.81559E+03_JPRB,0.10734E+04_JPRB /)  
+KB(:, 5,42, 7) = (/ &
+ & 0.99595E+03_JPRB,0.75866E+03_JPRB,0.55981E+03_JPRB,0.81449E+03_JPRB,0.10721E+04_JPRB /)  
+KB(:, 1,43, 7) = (/ &
+ & 0.99596E+03_JPRB,0.75867E+03_JPRB,0.56235E+03_JPRB,0.81734E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 2,43, 7) = (/ &
+ & 0.99595E+03_JPRB,0.75866E+03_JPRB,0.56212E+03_JPRB,0.81712E+03_JPRB,0.10751E+04_JPRB /)  
+KB(:, 3,43, 7) = (/ &
+ & 0.99594E+03_JPRB,0.75865E+03_JPRB,0.56167E+03_JPRB,0.81662E+03_JPRB,0.10746E+04_JPRB /)  
+KB(:, 4,43, 7) = (/ &
+ & 0.99592E+03_JPRB,0.75864E+03_JPRB,0.56100E+03_JPRB,0.81588E+03_JPRB,0.10737E+04_JPRB /)  
+KB(:, 5,43, 7) = (/ &
+ & 0.99591E+03_JPRB,0.75863E+03_JPRB,0.56012E+03_JPRB,0.81487E+03_JPRB,0.10726E+04_JPRB /)  
+KB(:, 1,44, 7) = (/ &
+ & 0.99592E+03_JPRB,0.75864E+03_JPRB,0.56237E+03_JPRB,0.81736E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 2,44, 7) = (/ &
+ & 0.99591E+03_JPRB,0.75863E+03_JPRB,0.56222E+03_JPRB,0.81722E+03_JPRB,0.10752E+04_JPRB /)  
+KB(:, 3,44, 7) = (/ &
+ & 0.99591E+03_JPRB,0.75862E+03_JPRB,0.56184E+03_JPRB,0.81680E+03_JPRB,0.10748E+04_JPRB /)  
+KB(:, 4,44, 7) = (/ &
+ & 0.99589E+03_JPRB,0.75861E+03_JPRB,0.56125E+03_JPRB,0.81614E+03_JPRB,0.10741E+04_JPRB /)  
+KB(:, 5,44, 7) = (/ &
+ & 0.99588E+03_JPRB,0.75861E+03_JPRB,0.56044E+03_JPRB,0.81523E+03_JPRB,0.10730E+04_JPRB /)  
+KB(:, 1,45, 7) = (/ &
+ & 0.99589E+03_JPRB,0.75861E+03_JPRB,0.56237E+03_JPRB,0.81733E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 2,45, 7) = (/ &
+ & 0.99588E+03_JPRB,0.75861E+03_JPRB,0.56230E+03_JPRB,0.81729E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 3,45, 7) = (/ &
+ & 0.99587E+03_JPRB,0.75860E+03_JPRB,0.56199E+03_JPRB,0.81699E+03_JPRB,0.10750E+04_JPRB /)  
+KB(:, 4,45, 7) = (/ &
+ & 0.99586E+03_JPRB,0.75859E+03_JPRB,0.56147E+03_JPRB,0.81641E+03_JPRB,0.10743E+04_JPRB /)  
+KB(:, 5,45, 7) = (/ &
+ & 0.99585E+03_JPRB,0.75859E+03_JPRB,0.56074E+03_JPRB,0.81557E+03_JPRB,0.10734E+04_JPRB /)  
+KB(:, 1,46, 7) = (/ &
+ & 0.99586E+03_JPRB,0.75859E+03_JPRB,0.56233E+03_JPRB,0.81728E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 2,46, 7) = (/ &
+ & 0.99585E+03_JPRB,0.75859E+03_JPRB,0.56235E+03_JPRB,0.81734E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 3,46, 7) = (/ &
+ & 0.99585E+03_JPRB,0.75858E+03_JPRB,0.56213E+03_JPRB,0.81712E+03_JPRB,0.10751E+04_JPRB /)  
+KB(:, 4,46, 7) = (/ &
+ & 0.99584E+03_JPRB,0.75858E+03_JPRB,0.56169E+03_JPRB,0.81663E+03_JPRB,0.10746E+04_JPRB /)  
+KB(:, 5,46, 7) = (/ &
+ & 0.99583E+03_JPRB,0.75858E+03_JPRB,0.56103E+03_JPRB,0.81590E+03_JPRB,0.10738E+04_JPRB /)  
+KB(:, 1,47, 7) = (/ &
+ & 0.99585E+03_JPRB,0.75858E+03_JPRB,0.56226E+03_JPRB,0.81718E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 2,47, 7) = (/ &
+ & 0.99583E+03_JPRB,0.75857E+03_JPRB,0.56237E+03_JPRB,0.81736E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 3,47, 7) = (/ &
+ & 0.99583E+03_JPRB,0.75857E+03_JPRB,0.56224E+03_JPRB,0.81723E+03_JPRB,0.10752E+04_JPRB /)  
+KB(:, 4,47, 7) = (/ &
+ & 0.99582E+03_JPRB,0.75856E+03_JPRB,0.56189E+03_JPRB,0.81686E+03_JPRB,0.10748E+04_JPRB /)  
+KB(:, 5,47, 7) = (/ &
+ & 0.99581E+03_JPRB,0.75856E+03_JPRB,0.56132E+03_JPRB,0.81626E+03_JPRB,0.10741E+04_JPRB /)  
+KB(:, 1,48, 7) = (/ &
+ & 0.99582E+03_JPRB,0.75856E+03_JPRB,0.56215E+03_JPRB,0.81703E+03_JPRB,0.10751E+04_JPRB /)  
+KB(:, 2,48, 7) = (/ &
+ & 0.99582E+03_JPRB,0.75856E+03_JPRB,0.56235E+03_JPRB,0.81732E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 3,48, 7) = (/ &
+ & 0.99581E+03_JPRB,0.75855E+03_JPRB,0.56232E+03_JPRB,0.81733E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 4,48, 7) = (/ &
+ & 0.99580E+03_JPRB,0.75855E+03_JPRB,0.56206E+03_JPRB,0.81704E+03_JPRB,0.10750E+04_JPRB /)  
+KB(:, 5,48, 7) = (/ &
+ & 0.99580E+03_JPRB,0.75855E+03_JPRB,0.56157E+03_JPRB,0.81651E+03_JPRB,0.10744E+04_JPRB /)  
+KB(:, 1,49, 7) = (/ &
+ & 0.99581E+03_JPRB,0.75855E+03_JPRB,0.56199E+03_JPRB,0.81684E+03_JPRB,0.10748E+04_JPRB /)  
+KB(:, 2,49, 7) = (/ &
+ & 0.99580E+03_JPRB,0.75855E+03_JPRB,0.56230E+03_JPRB,0.81724E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 3,49, 7) = (/ &
+ & 0.99580E+03_JPRB,0.75854E+03_JPRB,0.56236E+03_JPRB,0.81736E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 4,49, 7) = (/ &
+ & 0.99579E+03_JPRB,0.75854E+03_JPRB,0.56219E+03_JPRB,0.81718E+03_JPRB,0.10752E+04_JPRB /)  
+KB(:, 5,49, 7) = (/ &
+ & 0.99579E+03_JPRB,0.75854E+03_JPRB,0.56179E+03_JPRB,0.81678E+03_JPRB,0.10747E+04_JPRB /)  
+KB(:, 1,50, 7) = (/ &
+ & 0.99579E+03_JPRB,0.75854E+03_JPRB,0.56180E+03_JPRB,0.81662E+03_JPRB,0.10745E+04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART22',1,ZHOOK_HANDLE)
+END SUBROUTINE PART22
+
+
+SUBROUTINE PART23
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART23',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,50, 7) = (/ &
+ & 0.99579E+03_JPRB,0.75854E+03_JPRB,0.56221E+03_JPRB,0.81713E+03_JPRB,0.10752E+04_JPRB /)  
+KB(:, 3,50, 7) = (/ &
+ & 0.99579E+03_JPRB,0.75854E+03_JPRB,0.56237E+03_JPRB,0.81735E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 4,50, 7) = (/ &
+ & 0.99579E+03_JPRB,0.75854E+03_JPRB,0.56228E+03_JPRB,0.81728E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 5,50, 7) = (/ &
+ & 0.99578E+03_JPRB,0.75853E+03_JPRB,0.56197E+03_JPRB,0.81695E+03_JPRB,0.10749E+04_JPRB /)  
+KB(:, 1,51, 7) = (/ &
+ & 0.99578E+03_JPRB,0.75853E+03_JPRB,0.56158E+03_JPRB,0.81637E+03_JPRB,0.10741E+04_JPRB /)  
+KB(:, 2,51, 7) = (/ &
+ & 0.99578E+03_JPRB,0.75853E+03_JPRB,0.56209E+03_JPRB,0.81697E+03_JPRB,0.10750E+04_JPRB /)  
+KB(:, 3,51, 7) = (/ &
+ & 0.99578E+03_JPRB,0.75853E+03_JPRB,0.56234E+03_JPRB,0.81729E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 4,51, 7) = (/ &
+ & 0.99578E+03_JPRB,0.75853E+03_JPRB,0.56234E+03_JPRB,0.81734E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 5,51, 7) = (/ &
+ & 0.99577E+03_JPRB,0.75852E+03_JPRB,0.56211E+03_JPRB,0.81712E+03_JPRB,0.10751E+04_JPRB /)  
+KB(:, 1,52, 7) = (/ &
+ & 0.99577E+03_JPRB,0.75853E+03_JPRB,0.56131E+03_JPRB,0.81608E+03_JPRB,0.10737E+04_JPRB /)  
+KB(:, 2,52, 7) = (/ &
+ & 0.99577E+03_JPRB,0.75852E+03_JPRB,0.56194E+03_JPRB,0.81678E+03_JPRB,0.10748E+04_JPRB /)  
+KB(:, 3,52, 7) = (/ &
+ & 0.99577E+03_JPRB,0.75852E+03_JPRB,0.56228E+03_JPRB,0.81721E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 4,52, 7) = (/ &
+ & 0.99577E+03_JPRB,0.75852E+03_JPRB,0.56237E+03_JPRB,0.81738E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 5,52, 7) = (/ &
+ & 0.99576E+03_JPRB,0.75852E+03_JPRB,0.56222E+03_JPRB,0.81722E+03_JPRB,0.10752E+04_JPRB /)  
+KB(:, 1,53, 7) = (/ &
+ & 0.99577E+03_JPRB,0.75852E+03_JPRB,0.56102E+03_JPRB,0.81574E+03_JPRB,0.10731E+04_JPRB /)  
+KB(:, 2,53, 7) = (/ &
+ & 0.99576E+03_JPRB,0.75852E+03_JPRB,0.56174E+03_JPRB,0.81656E+03_JPRB,0.10744E+04_JPRB /)  
+KB(:, 3,53, 7) = (/ &
+ & 0.99576E+03_JPRB,0.75852E+03_JPRB,0.56218E+03_JPRB,0.81709E+03_JPRB,0.10752E+04_JPRB /)  
+KB(:, 4,53, 7) = (/ &
+ & 0.99576E+03_JPRB,0.75851E+03_JPRB,0.56236E+03_JPRB,0.81734E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 5,53, 7) = (/ &
+ & 0.99576E+03_JPRB,0.75852E+03_JPRB,0.56230E+03_JPRB,0.81736E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 1,54, 7) = (/ &
+ & 0.99576E+03_JPRB,0.75852E+03_JPRB,0.56072E+03_JPRB,0.81536E+03_JPRB,0.10726E+04_JPRB /)  
+KB(:, 2,54, 7) = (/ &
+ & 0.99576E+03_JPRB,0.75851E+03_JPRB,0.56153E+03_JPRB,0.81633E+03_JPRB,0.10740E+04_JPRB /)  
+KB(:, 3,54, 7) = (/ &
+ & 0.99575E+03_JPRB,0.75851E+03_JPRB,0.56207E+03_JPRB,0.81694E+03_JPRB,0.10750E+04_JPRB /)  
+KB(:, 4,54, 7) = (/ &
+ & 0.99575E+03_JPRB,0.75851E+03_JPRB,0.56233E+03_JPRB,0.81728E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 5,54, 7) = (/ &
+ & 0.99576E+03_JPRB,0.75851E+03_JPRB,0.56235E+03_JPRB,0.81734E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 1,55, 7) = (/ &
+ & 0.99575E+03_JPRB,0.75851E+03_JPRB,0.56039E+03_JPRB,0.81495E+03_JPRB,0.10720E+04_JPRB /)  
+KB(:, 2,55, 7) = (/ &
+ & 0.99575E+03_JPRB,0.75851E+03_JPRB,0.56128E+03_JPRB,0.81606E+03_JPRB,0.10736E+04_JPRB /)  
+KB(:, 3,55, 7) = (/ &
+ & 0.99575E+03_JPRB,0.75851E+03_JPRB,0.56193E+03_JPRB,0.81677E+03_JPRB,0.10747E+04_JPRB /)  
+KB(:, 4,55, 7) = (/ &
+ & 0.99575E+03_JPRB,0.75851E+03_JPRB,0.56227E+03_JPRB,0.81720E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 5,55, 7) = (/ &
+ & 0.99575E+03_JPRB,0.75851E+03_JPRB,0.56237E+03_JPRB,0.81736E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 1,56, 7) = (/ &
+ & 0.99575E+03_JPRB,0.75851E+03_JPRB,0.56002E+03_JPRB,0.81448E+03_JPRB,0.10713E+04_JPRB /)  
+KB(:, 2,56, 7) = (/ &
+ & 0.99575E+03_JPRB,0.75851E+03_JPRB,0.56104E+03_JPRB,0.81576E+03_JPRB,0.10732E+04_JPRB /)  
+KB(:, 3,56, 7) = (/ &
+ & 0.99575E+03_JPRB,0.75851E+03_JPRB,0.56175E+03_JPRB,0.81659E+03_JPRB,0.10744E+04_JPRB /)  
+KB(:, 4,56, 7) = (/ &
+ & 0.99574E+03_JPRB,0.75850E+03_JPRB,0.56219E+03_JPRB,0.81709E+03_JPRB,0.10752E+04_JPRB /)  
+KB(:, 5,56, 7) = (/ &
+ & 0.99574E+03_JPRB,0.75850E+03_JPRB,0.56236E+03_JPRB,0.81734E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 1,57, 7) = (/ &
+ & 0.99575E+03_JPRB,0.75851E+03_JPRB,0.55963E+03_JPRB,0.81395E+03_JPRB,0.10705E+04_JPRB /)  
+KB(:, 2,57, 7) = (/ &
+ & 0.99574E+03_JPRB,0.75850E+03_JPRB,0.56076E+03_JPRB,0.81540E+03_JPRB,0.10727E+04_JPRB /)  
+KB(:, 3,57, 7) = (/ &
+ & 0.99574E+03_JPRB,0.75850E+03_JPRB,0.56157E+03_JPRB,0.81635E+03_JPRB,0.10741E+04_JPRB /)  
+KB(:, 4,57, 7) = (/ &
+ & 0.99574E+03_JPRB,0.75850E+03_JPRB,0.56208E+03_JPRB,0.81696E+03_JPRB,0.10750E+04_JPRB /)  
+KB(:, 5,57, 7) = (/ &
+ & 0.99574E+03_JPRB,0.75850E+03_JPRB,0.56234E+03_JPRB,0.81729E+03_JPRB,0.10754E+04_JPRB /)  
+KB(:, 1,58, 7) = (/ &
+ & 0.99575E+03_JPRB,0.75850E+03_JPRB,0.55922E+03_JPRB,0.81340E+03_JPRB,0.10697E+04_JPRB /)  
+KB(:, 2,58, 7) = (/ &
+ & 0.99574E+03_JPRB,0.75850E+03_JPRB,0.56044E+03_JPRB,0.81503E+03_JPRB,0.10721E+04_JPRB /)  
+KB(:, 3,58, 7) = (/ &
+ & 0.99574E+03_JPRB,0.75851E+03_JPRB,0.56134E+03_JPRB,0.81611E+03_JPRB,0.10737E+04_JPRB /)  
+KB(:, 4,58, 7) = (/ &
+ & 0.99574E+03_JPRB,0.75851E+03_JPRB,0.56195E+03_JPRB,0.81681E+03_JPRB,0.10748E+04_JPRB /)  
+KB(:, 5,58, 7) = (/ &
+ & 0.99574E+03_JPRB,0.75850E+03_JPRB,0.56228E+03_JPRB,0.81722E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 1,59, 7) = (/ &
+ & 0.99575E+03_JPRB,0.75850E+03_JPRB,0.55905E+03_JPRB,0.81317E+03_JPRB,0.10694E+04_JPRB /)  
+KB(:, 2,59, 7) = (/ &
+ & 0.99574E+03_JPRB,0.75850E+03_JPRB,0.56032E+03_JPRB,0.81485E+03_JPRB,0.10718E+04_JPRB /)  
+KB(:, 3,59, 7) = (/ &
+ & 0.99574E+03_JPRB,0.75850E+03_JPRB,0.56125E+03_JPRB,0.81601E+03_JPRB,0.10735E+04_JPRB /)  
+KB(:, 4,59, 7) = (/ &
+ & 0.99574E+03_JPRB,0.75850E+03_JPRB,0.56189E+03_JPRB,0.81673E+03_JPRB,0.10747E+04_JPRB /)  
+KB(:, 5,59, 7) = (/ &
+ & 0.99573E+03_JPRB,0.75850E+03_JPRB,0.56225E+03_JPRB,0.81718E+03_JPRB,0.10753E+04_JPRB /)  
+KB(:, 1,13, 8) = (/ &
+ & 0.11451E+04_JPRB,0.86748E+03_JPRB,0.59259E+03_JPRB,0.85187E+03_JPRB,0.11225E+04_JPRB /)  
+KB(:, 2,13, 8) = (/ &
+ & 0.11363E+04_JPRB,0.86085E+03_JPRB,0.58896E+03_JPRB,0.85188E+03_JPRB,0.11226E+04_JPRB /)  
+KB(:, 3,13, 8) = (/ &
+ & 0.11286E+04_JPRB,0.85515E+03_JPRB,0.58586E+03_JPRB,0.85170E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 4,13, 8) = (/ &
+ & 0.11220E+04_JPRB,0.85016E+03_JPRB,0.58378E+03_JPRB,0.85132E+03_JPRB,0.11224E+04_JPRB /)  
+KB(:, 5,13, 8) = (/ &
+ & 0.11162E+04_JPRB,0.84582E+03_JPRB,0.58229E+03_JPRB,0.85074E+03_JPRB,0.11218E+04_JPRB /)  
+KB(:, 1,14, 8) = (/ &
+ & 0.11230E+04_JPRB,0.85087E+03_JPRB,0.58392E+03_JPRB,0.85168E+03_JPRB,0.11225E+04_JPRB /)  
+KB(:, 2,14, 8) = (/ &
+ & 0.11158E+04_JPRB,0.84552E+03_JPRB,0.58280E+03_JPRB,0.85169E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 3,14, 8) = (/ &
+ & 0.11097E+04_JPRB,0.84090E+03_JPRB,0.58233E+03_JPRB,0.85151E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 4,14, 8) = (/ &
+ & 0.11043E+04_JPRB,0.83689E+03_JPRB,0.58194E+03_JPRB,0.85113E+03_JPRB,0.11223E+04_JPRB /)  
+KB(:, 5,14, 8) = (/ &
+ & 0.10996E+04_JPRB,0.83336E+03_JPRB,0.58140E+03_JPRB,0.85052E+03_JPRB,0.11217E+04_JPRB /)  
+KB(:, 1,15, 8) = (/ &
+ & 0.11049E+04_JPRB,0.83731E+03_JPRB,0.58207E+03_JPRB,0.85153E+03_JPRB,0.11225E+04_JPRB /)  
+KB(:, 2,15, 8) = (/ &
+ & 0.10991E+04_JPRB,0.83301E+03_JPRB,0.58217E+03_JPRB,0.85153E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 3,15, 8) = (/ &
+ & 0.10942E+04_JPRB,0.82928E+03_JPRB,0.58200E+03_JPRB,0.85134E+03_JPRB,0.11226E+04_JPRB /)  
+KB(:, 4,15, 8) = (/ &
+ & 0.10899E+04_JPRB,0.82605E+03_JPRB,0.58161E+03_JPRB,0.85094E+03_JPRB,0.11223E+04_JPRB /)  
+KB(:, 5,15, 8) = (/ &
+ & 0.10860E+04_JPRB,0.82320E+03_JPRB,0.58108E+03_JPRB,0.85034E+03_JPRB,0.11216E+04_JPRB /)  
+KB(:, 1,16, 8) = (/ &
+ & 0.10902E+04_JPRB,0.82630E+03_JPRB,0.58181E+03_JPRB,0.85141E+03_JPRB,0.11225E+04_JPRB /)  
+KB(:, 2,16, 8) = (/ &
+ & 0.10856E+04_JPRB,0.82283E+03_JPRB,0.58190E+03_JPRB,0.85139E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 3,16, 8) = (/ &
+ & 0.10816E+04_JPRB,0.81983E+03_JPRB,0.58172E+03_JPRB,0.85119E+03_JPRB,0.11226E+04_JPRB /)  
+KB(:, 4,16, 8) = (/ &
+ & 0.10781E+04_JPRB,0.81721E+03_JPRB,0.58133E+03_JPRB,0.85078E+03_JPRB,0.11222E+04_JPRB /)  
+KB(:, 5,16, 8) = (/ &
+ & 0.10750E+04_JPRB,0.81491E+03_JPRB,0.58080E+03_JPRB,0.85015E+03_JPRB,0.11215E+04_JPRB /)  
+KB(:, 1,17, 8) = (/ &
+ & 0.10783E+04_JPRB,0.81738E+03_JPRB,0.58160E+03_JPRB,0.85131E+03_JPRB,0.11225E+04_JPRB /)  
+KB(:, 2,17, 8) = (/ &
+ & 0.10746E+04_JPRB,0.81457E+03_JPRB,0.58168E+03_JPRB,0.85129E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 3,17, 8) = (/ &
+ & 0.10713E+04_JPRB,0.81215E+03_JPRB,0.58149E+03_JPRB,0.85108E+03_JPRB,0.11226E+04_JPRB /)  
+KB(:, 4,17, 8) = (/ &
+ & 0.10685E+04_JPRB,0.81004E+03_JPRB,0.58109E+03_JPRB,0.85064E+03_JPRB,0.11222E+04_JPRB /)  
+KB(:, 5,17, 8) = (/ &
+ & 0.10660E+04_JPRB,0.80818E+03_JPRB,0.58056E+03_JPRB,0.85000E+03_JPRB,0.11214E+04_JPRB /)  
+KB(:, 1,18, 8) = (/ &
+ & 0.10686E+04_JPRB,0.81013E+03_JPRB,0.58144E+03_JPRB,0.85124E+03_JPRB,0.11225E+04_JPRB /)  
+KB(:, 2,18, 8) = (/ &
+ & 0.10656E+04_JPRB,0.80786E+03_JPRB,0.58150E+03_JPRB,0.85119E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 3,18, 8) = (/ &
+ & 0.10630E+04_JPRB,0.80591E+03_JPRB,0.58129E+03_JPRB,0.85095E+03_JPRB,0.11226E+04_JPRB /)  
+KB(:, 4,18, 8) = (/ &
+ & 0.10607E+04_JPRB,0.80419E+03_JPRB,0.58089E+03_JPRB,0.85052E+03_JPRB,0.11221E+04_JPRB /)  
+KB(:, 5,18, 8) = (/ &
+ & 0.10587E+04_JPRB,0.80269E+03_JPRB,0.58036E+03_JPRB,0.84984E+03_JPRB,0.11213E+04_JPRB /)  
+KB(:, 1,19, 8) = (/ &
+ & 0.10608E+04_JPRB,0.80424E+03_JPRB,0.58130E+03_JPRB,0.85117E+03_JPRB,0.11226E+04_JPRB /)  
+KB(:, 2,19, 8) = (/ &
+ & 0.10584E+04_JPRB,0.80242E+03_JPRB,0.58135E+03_JPRB,0.85109E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 3,19, 8) = (/ &
+ & 0.10562E+04_JPRB,0.80084E+03_JPRB,0.58113E+03_JPRB,0.85087E+03_JPRB,0.11225E+04_JPRB /)  
+KB(:, 4,19, 8) = (/ &
+ & 0.10544E+04_JPRB,0.79946E+03_JPRB,0.58072E+03_JPRB,0.85040E+03_JPRB,0.11220E+04_JPRB /)  
+KB(:, 5,19, 8) = (/ &
+ & 0.10528E+04_JPRB,0.79825E+03_JPRB,0.58019E+03_JPRB,0.84971E+03_JPRB,0.11212E+04_JPRB /)  
+KB(:, 1,20, 8) = (/ &
+ & 0.10544E+04_JPRB,0.79943E+03_JPRB,0.58120E+03_JPRB,0.85111E+03_JPRB,0.11226E+04_JPRB /)  
+KB(:, 2,20, 8) = (/ &
+ & 0.10524E+04_JPRB,0.79797E+03_JPRB,0.58122E+03_JPRB,0.85103E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 3,20, 8) = (/ &
+ & 0.10507E+04_JPRB,0.79669E+03_JPRB,0.58098E+03_JPRB,0.85078E+03_JPRB,0.11225E+04_JPRB /)  
+KB(:, 4,20, 8) = (/ &
+ & 0.10492E+04_JPRB,0.79558E+03_JPRB,0.58056E+03_JPRB,0.85028E+03_JPRB,0.11220E+04_JPRB /)  
+KB(:, 5,20, 8) = (/ &
+ & 0.10479E+04_JPRB,0.79460E+03_JPRB,0.58002E+03_JPRB,0.84958E+03_JPRB,0.11211E+04_JPRB /)  
+KB(:, 1,21, 8) = (/ &
+ & 0.10492E+04_JPRB,0.79553E+03_JPRB,0.58112E+03_JPRB,0.85107E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 2,21, 8) = (/ &
+ & 0.10476E+04_JPRB,0.79436E+03_JPRB,0.58112E+03_JPRB,0.85096E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 3,21, 8) = (/ &
+ & 0.10462E+04_JPRB,0.79334E+03_JPRB,0.58085E+03_JPRB,0.85069E+03_JPRB,0.11224E+04_JPRB /)  
+KB(:, 4,21, 8) = (/ &
+ & 0.10450E+04_JPRB,0.79243E+03_JPRB,0.58042E+03_JPRB,0.85021E+03_JPRB,0.11219E+04_JPRB /)  
+KB(:, 5,21, 8) = (/ &
+ & 0.10440E+04_JPRB,0.79165E+03_JPRB,0.57987E+03_JPRB,0.84945E+03_JPRB,0.11210E+04_JPRB /)  
+KB(:, 1,22, 8) = (/ &
+ & 0.10449E+04_JPRB,0.79230E+03_JPRB,0.58106E+03_JPRB,0.85103E+03_JPRB,0.11226E+04_JPRB /)  
+KB(:, 2,22, 8) = (/ &
+ & 0.10436E+04_JPRB,0.79136E+03_JPRB,0.58100E+03_JPRB,0.85090E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 3,22, 8) = (/ &
+ & 0.10425E+04_JPRB,0.79054E+03_JPRB,0.58071E+03_JPRB,0.85058E+03_JPRB,0.11224E+04_JPRB /)  
+KB(:, 4,22, 8) = (/ &
+ & 0.10416E+04_JPRB,0.78983E+03_JPRB,0.58026E+03_JPRB,0.85002E+03_JPRB,0.11217E+04_JPRB /)  
+KB(:, 5,22, 8) = (/ &
+ & 0.10407E+04_JPRB,0.78921E+03_JPRB,0.57969E+03_JPRB,0.84925E+03_JPRB,0.11208E+04_JPRB /)  
+KB(:, 1,23, 8) = (/ &
+ & 0.10414E+04_JPRB,0.78969E+03_JPRB,0.58100E+03_JPRB,0.85099E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 2,23, 8) = (/ &
+ & 0.10404E+04_JPRB,0.78894E+03_JPRB,0.58090E+03_JPRB,0.85083E+03_JPRB,0.11226E+04_JPRB /)  
+KB(:, 3,23, 8) = (/ &
+ & 0.10395E+04_JPRB,0.78829E+03_JPRB,0.58058E+03_JPRB,0.85047E+03_JPRB,0.11223E+04_JPRB /)  
+KB(:, 4,23, 8) = (/ &
+ & 0.10387E+04_JPRB,0.78772E+03_JPRB,0.58011E+03_JPRB,0.84989E+03_JPRB,0.11216E+04_JPRB /)  
+KB(:, 5,23, 8) = (/ &
+ & 0.10381E+04_JPRB,0.78721E+03_JPRB,0.57952E+03_JPRB,0.84905E+03_JPRB,0.11206E+04_JPRB /)  
+KB(:, 1,24, 8) = (/ &
+ & 0.10386E+04_JPRB,0.78759E+03_JPRB,0.58095E+03_JPRB,0.85095E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 2,24, 8) = (/ &
+ & 0.10378E+04_JPRB,0.78698E+03_JPRB,0.58081E+03_JPRB,0.85075E+03_JPRB,0.11226E+04_JPRB /)  
+KB(:, 3,24, 8) = (/ &
+ & 0.10371E+04_JPRB,0.78646E+03_JPRB,0.58046E+03_JPRB,0.85035E+03_JPRB,0.11222E+04_JPRB /)  
+KB(:, 4,24, 8) = (/ &
+ & 0.10365E+04_JPRB,0.78601E+03_JPRB,0.57995E+03_JPRB,0.84971E+03_JPRB,0.11214E+04_JPRB /)  
+KB(:, 5,24, 8) = (/ &
+ & 0.10359E+04_JPRB,0.78561E+03_JPRB,0.57934E+03_JPRB,0.84885E+03_JPRB,0.11203E+04_JPRB /)  
+KB(:, 1,25, 8) = (/ &
+ & 0.10363E+04_JPRB,0.78588E+03_JPRB,0.58090E+03_JPRB,0.85090E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 2,25, 8) = (/ &
+ & 0.10357E+04_JPRB,0.78541E+03_JPRB,0.58070E+03_JPRB,0.85067E+03_JPRB,0.11225E+04_JPRB /)  
+KB(:, 3,25, 8) = (/ &
+ & 0.10351E+04_JPRB,0.78498E+03_JPRB,0.58032E+03_JPRB,0.85020E+03_JPRB,0.11220E+04_JPRB /)  
+KB(:, 4,25, 8) = (/ &
+ & 0.10346E+04_JPRB,0.78461E+03_JPRB,0.57980E+03_JPRB,0.84953E+03_JPRB,0.11212E+04_JPRB /)  
+KB(:, 5,25, 8) = (/ &
+ & 0.10342E+04_JPRB,0.78430E+03_JPRB,0.57916E+03_JPRB,0.84863E+03_JPRB,0.11201E+04_JPRB /)  
+KB(:, 1,26, 8) = (/ &
+ & 0.10345E+04_JPRB,0.78450E+03_JPRB,0.58084E+03_JPRB,0.85084E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 2,26, 8) = (/ &
+ & 0.10339E+04_JPRB,0.78411E+03_JPRB,0.58059E+03_JPRB,0.85057E+03_JPRB,0.11224E+04_JPRB /)  
+KB(:, 3,26, 8) = (/ &
+ & 0.10335E+04_JPRB,0.78378E+03_JPRB,0.58018E+03_JPRB,0.85004E+03_JPRB,0.11219E+04_JPRB /)  
+KB(:, 4,26, 8) = (/ &
+ & 0.10331E+04_JPRB,0.78349E+03_JPRB,0.57964E+03_JPRB,0.84934E+03_JPRB,0.11210E+04_JPRB /)  
+KB(:, 5,26, 8) = (/ &
+ & 0.10328E+04_JPRB,0.78323E+03_JPRB,0.57897E+03_JPRB,0.84838E+03_JPRB,0.11198E+04_JPRB /)  
+KB(:, 1,27, 8) = (/ &
+ & 0.10329E+04_JPRB,0.78338E+03_JPRB,0.58078E+03_JPRB,0.85078E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 2,27, 8) = (/ &
+ & 0.10326E+04_JPRB,0.78307E+03_JPRB,0.58048E+03_JPRB,0.85045E+03_JPRB,0.11223E+04_JPRB /)  
+KB(:, 3,27, 8) = (/ &
+ & 0.10322E+04_JPRB,0.78282E+03_JPRB,0.58003E+03_JPRB,0.84982E+03_JPRB,0.11217E+04_JPRB /)  
+KB(:, 4,27, 8) = (/ &
+ & 0.10319E+04_JPRB,0.78258E+03_JPRB,0.57947E+03_JPRB,0.84907E+03_JPRB,0.11207E+04_JPRB /)  
+KB(:, 5,27, 8) = (/ &
+ & 0.10316E+04_JPRB,0.78237E+03_JPRB,0.57877E+03_JPRB,0.84811E+03_JPRB,0.11194E+04_JPRB /)  
+KB(:, 1,28, 8) = (/ &
+ & 0.10318E+04_JPRB,0.78248E+03_JPRB,0.58069E+03_JPRB,0.85072E+03_JPRB,0.11226E+04_JPRB /)  
+KB(:, 2,28, 8) = (/ &
+ & 0.10314E+04_JPRB,0.78225E+03_JPRB,0.58037E+03_JPRB,0.85030E+03_JPRB,0.11222E+04_JPRB /)  
+KB(:, 3,28, 8) = (/ &
+ & 0.10312E+04_JPRB,0.78205E+03_JPRB,0.57989E+03_JPRB,0.84960E+03_JPRB,0.11215E+04_JPRB /)  
+KB(:, 4,28, 8) = (/ &
+ & 0.10309E+04_JPRB,0.78185E+03_JPRB,0.57929E+03_JPRB,0.84888E+03_JPRB,0.11204E+04_JPRB /)  
+KB(:, 5,28, 8) = (/ &
+ & 0.10307E+04_JPRB,0.78168E+03_JPRB,0.57856E+03_JPRB,0.84784E+03_JPRB,0.11191E+04_JPRB /)  
+KB(:, 1,29, 8) = (/ &
+ & 0.10308E+04_JPRB,0.78175E+03_JPRB,0.58061E+03_JPRB,0.85062E+03_JPRB,0.11225E+04_JPRB /)  
+KB(:, 2,29, 8) = (/ &
+ & 0.10305E+04_JPRB,0.78157E+03_JPRB,0.58024E+03_JPRB,0.85019E+03_JPRB,0.11221E+04_JPRB /)  
+KB(:, 3,29, 8) = (/ &
+ & 0.10303E+04_JPRB,0.78140E+03_JPRB,0.57974E+03_JPRB,0.84950E+03_JPRB,0.11213E+04_JPRB /)  
+KB(:, 4,29, 8) = (/ &
+ & 0.10301E+04_JPRB,0.78126E+03_JPRB,0.57911E+03_JPRB,0.84863E+03_JPRB,0.11201E+04_JPRB /)  
+KB(:, 5,29, 8) = (/ &
+ & 0.10300E+04_JPRB,0.78112E+03_JPRB,0.57834E+03_JPRB,0.84752E+03_JPRB,0.11188E+04_JPRB /)  
+KB(:, 1,30, 8) = (/ &
+ & 0.10300E+04_JPRB,0.78117E+03_JPRB,0.58052E+03_JPRB,0.85055E+03_JPRB,0.11224E+04_JPRB /)  
+KB(:, 2,30, 8) = (/ &
+ & 0.10298E+04_JPRB,0.78102E+03_JPRB,0.58011E+03_JPRB,0.85001E+03_JPRB,0.11219E+04_JPRB /)  
+KB(:, 3,30, 8) = (/ &
+ & 0.10296E+04_JPRB,0.78089E+03_JPRB,0.57958E+03_JPRB,0.84932E+03_JPRB,0.11210E+04_JPRB /)  
+KB(:, 4,30, 8) = (/ &
+ & 0.10295E+04_JPRB,0.78077E+03_JPRB,0.57892E+03_JPRB,0.84838E+03_JPRB,0.11198E+04_JPRB /)  
+KB(:, 5,30, 8) = (/ &
+ & 0.10294E+04_JPRB,0.78066E+03_JPRB,0.57811E+03_JPRB,0.84720E+03_JPRB,0.11184E+04_JPRB /)  
+KB(:, 1,31, 8) = (/ &
+ & 0.10294E+04_JPRB,0.78070E+03_JPRB,0.58042E+03_JPRB,0.85041E+03_JPRB,0.11223E+04_JPRB /)  
+KB(:, 2,31, 8) = (/ &
+ & 0.10292E+04_JPRB,0.78058E+03_JPRB,0.57998E+03_JPRB,0.84985E+03_JPRB,0.11217E+04_JPRB /)  
+KB(:, 3,31, 8) = (/ &
+ & 0.10291E+04_JPRB,0.78049E+03_JPRB,0.57941E+03_JPRB,0.84908E+03_JPRB,0.11207E+04_JPRB /)  
+KB(:, 4,31, 8) = (/ &
+ & 0.10290E+04_JPRB,0.78039E+03_JPRB,0.57872E+03_JPRB,0.84808E+03_JPRB,0.11195E+04_JPRB /)  
+KB(:, 5,31, 8) = (/ &
+ & 0.10289E+04_JPRB,0.78030E+03_JPRB,0.57786E+03_JPRB,0.84686E+03_JPRB,0.11179E+04_JPRB /)  
+KB(:, 1,32, 8) = (/ &
+ & 0.10289E+04_JPRB,0.78033E+03_JPRB,0.58031E+03_JPRB,0.85030E+03_JPRB,0.11222E+04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART23',1,ZHOOK_HANDLE)
+END SUBROUTINE PART23
+
+
+SUBROUTINE PART24
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART24',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,32, 8) = (/ &
+ & 0.10288E+04_JPRB,0.78024E+03_JPRB,0.57984E+03_JPRB,0.84967E+03_JPRB,0.11215E+04_JPRB /)  
+KB(:, 3,32, 8) = (/ &
+ & 0.10287E+04_JPRB,0.78016E+03_JPRB,0.57924E+03_JPRB,0.84884E+03_JPRB,0.11204E+04_JPRB /)  
+KB(:, 4,32, 8) = (/ &
+ & 0.10286E+04_JPRB,0.78009E+03_JPRB,0.57851E+03_JPRB,0.84778E+03_JPRB,0.11191E+04_JPRB /)  
+KB(:, 5,32, 8) = (/ &
+ & 0.10285E+04_JPRB,0.78000E+03_JPRB,0.57759E+03_JPRB,0.84651E+03_JPRB,0.11175E+04_JPRB /)  
+KB(:, 1,33, 8) = (/ &
+ & 0.10285E+04_JPRB,0.78003E+03_JPRB,0.58019E+03_JPRB,0.85016E+03_JPRB,0.11220E+04_JPRB /)  
+KB(:, 2,33, 8) = (/ &
+ & 0.10284E+04_JPRB,0.77995E+03_JPRB,0.57968E+03_JPRB,0.84947E+03_JPRB,0.11212E+04_JPRB /)  
+KB(:, 3,33, 8) = (/ &
+ & 0.10283E+04_JPRB,0.77988E+03_JPRB,0.57905E+03_JPRB,0.84858E+03_JPRB,0.11201E+04_JPRB /)  
+KB(:, 4,33, 8) = (/ &
+ & 0.10282E+04_JPRB,0.77982E+03_JPRB,0.57829E+03_JPRB,0.84747E+03_JPRB,0.11187E+04_JPRB /)  
+KB(:, 5,33, 8) = (/ &
+ & 0.10282E+04_JPRB,0.77978E+03_JPRB,0.57730E+03_JPRB,0.84615E+03_JPRB,0.11170E+04_JPRB /)  
+KB(:, 1,34, 8) = (/ &
+ & 0.10282E+04_JPRB,0.77978E+03_JPRB,0.58008E+03_JPRB,0.84998E+03_JPRB,0.11219E+04_JPRB /)  
+KB(:, 2,34, 8) = (/ &
+ & 0.10281E+04_JPRB,0.77972E+03_JPRB,0.57954E+03_JPRB,0.84930E+03_JPRB,0.11210E+04_JPRB /)  
+KB(:, 3,34, 8) = (/ &
+ & 0.10280E+04_JPRB,0.77967E+03_JPRB,0.57889E+03_JPRB,0.84836E+03_JPRB,0.11198E+04_JPRB /)  
+KB(:, 4,34, 8) = (/ &
+ & 0.10280E+04_JPRB,0.77962E+03_JPRB,0.57808E+03_JPRB,0.84718E+03_JPRB,0.11184E+04_JPRB /)  
+KB(:, 5,34, 8) = (/ &
+ & 0.10279E+04_JPRB,0.77958E+03_JPRB,0.57705E+03_JPRB,0.84582E+03_JPRB,0.11166E+04_JPRB /)  
+KB(:, 1,35, 8) = (/ &
+ & 0.10279E+04_JPRB,0.77958E+03_JPRB,0.58001E+03_JPRB,0.84995E+03_JPRB,0.11218E+04_JPRB /)  
+KB(:, 2,35, 8) = (/ &
+ & 0.10278E+04_JPRB,0.77953E+03_JPRB,0.57946E+03_JPRB,0.84916E+03_JPRB,0.11209E+04_JPRB /)  
+KB(:, 3,35, 8) = (/ &
+ & 0.10278E+04_JPRB,0.77951E+03_JPRB,0.57880E+03_JPRB,0.84823E+03_JPRB,0.11196E+04_JPRB /)  
+KB(:, 4,35, 8) = (/ &
+ & 0.10277E+04_JPRB,0.77946E+03_JPRB,0.57796E+03_JPRB,0.84701E+03_JPRB,0.11181E+04_JPRB /)  
+KB(:, 5,35, 8) = (/ &
+ & 0.10277E+04_JPRB,0.77943E+03_JPRB,0.57689E+03_JPRB,0.84563E+03_JPRB,0.11163E+04_JPRB /)  
+KB(:, 1,36, 8) = (/ &
+ & 0.10277E+04_JPRB,0.77944E+03_JPRB,0.58000E+03_JPRB,0.84992E+03_JPRB,0.11218E+04_JPRB /)  
+KB(:, 2,36, 8) = (/ &
+ & 0.10277E+04_JPRB,0.77940E+03_JPRB,0.57944E+03_JPRB,0.84917E+03_JPRB,0.11208E+04_JPRB /)  
+KB(:, 3,36, 8) = (/ &
+ & 0.10276E+04_JPRB,0.77936E+03_JPRB,0.57877E+03_JPRB,0.84819E+03_JPRB,0.11196E+04_JPRB /)  
+KB(:, 4,36, 8) = (/ &
+ & 0.10276E+04_JPRB,0.77933E+03_JPRB,0.57793E+03_JPRB,0.84697E+03_JPRB,0.11181E+04_JPRB /)  
+KB(:, 5,36, 8) = (/ &
+ & 0.10275E+04_JPRB,0.77931E+03_JPRB,0.57686E+03_JPRB,0.84561E+03_JPRB,0.11162E+04_JPRB /)  
+KB(:, 1,37, 8) = (/ &
+ & 0.10275E+04_JPRB,0.77932E+03_JPRB,0.58006E+03_JPRB,0.85002E+03_JPRB,0.11219E+04_JPRB /)  
+KB(:, 2,37, 8) = (/ &
+ & 0.10275E+04_JPRB,0.77929E+03_JPRB,0.57952E+03_JPRB,0.84927E+03_JPRB,0.11210E+04_JPRB /)  
+KB(:, 3,37, 8) = (/ &
+ & 0.10275E+04_JPRB,0.77926E+03_JPRB,0.57886E+03_JPRB,0.84832E+03_JPRB,0.11198E+04_JPRB /)  
+KB(:, 4,37, 8) = (/ &
+ & 0.10274E+04_JPRB,0.77924E+03_JPRB,0.57805E+03_JPRB,0.84715E+03_JPRB,0.11183E+04_JPRB /)  
+KB(:, 5,37, 8) = (/ &
+ & 0.10274E+04_JPRB,0.77921E+03_JPRB,0.57701E+03_JPRB,0.84575E+03_JPRB,0.11165E+04_JPRB /)  
+KB(:, 1,38, 8) = (/ &
+ & 0.10274E+04_JPRB,0.77922E+03_JPRB,0.58012E+03_JPRB,0.85009E+03_JPRB,0.11220E+04_JPRB /)  
+KB(:, 2,38, 8) = (/ &
+ & 0.10274E+04_JPRB,0.77920E+03_JPRB,0.57959E+03_JPRB,0.84938E+03_JPRB,0.11211E+04_JPRB /)  
+KB(:, 3,38, 8) = (/ &
+ & 0.10274E+04_JPRB,0.77918E+03_JPRB,0.57896E+03_JPRB,0.84848E+03_JPRB,0.11200E+04_JPRB /)  
+KB(:, 4,38, 8) = (/ &
+ & 0.10273E+04_JPRB,0.77915E+03_JPRB,0.57818E+03_JPRB,0.84731E+03_JPRB,0.11185E+04_JPRB /)  
+KB(:, 5,38, 8) = (/ &
+ & 0.10273E+04_JPRB,0.77912E+03_JPRB,0.57716E+03_JPRB,0.84599E+03_JPRB,0.11168E+04_JPRB /)  
+KB(:, 1,39, 8) = (/ &
+ & 0.10273E+04_JPRB,0.77914E+03_JPRB,0.58018E+03_JPRB,0.85016E+03_JPRB,0.11221E+04_JPRB /)  
+KB(:, 2,39, 8) = (/ &
+ & 0.10273E+04_JPRB,0.77912E+03_JPRB,0.57968E+03_JPRB,0.84939E+03_JPRB,0.11213E+04_JPRB /)  
+KB(:, 3,39, 8) = (/ &
+ & 0.10273E+04_JPRB,0.77911E+03_JPRB,0.57905E+03_JPRB,0.84861E+03_JPRB,0.11201E+04_JPRB /)  
+KB(:, 4,39, 8) = (/ &
+ & 0.10272E+04_JPRB,0.77910E+03_JPRB,0.57829E+03_JPRB,0.84750E+03_JPRB,0.11187E+04_JPRB /)  
+KB(:, 5,39, 8) = (/ &
+ & 0.10272E+04_JPRB,0.77907E+03_JPRB,0.57732E+03_JPRB,0.84617E+03_JPRB,0.11171E+04_JPRB /)  
+KB(:, 1,40, 8) = (/ &
+ & 0.10272E+04_JPRB,0.77908E+03_JPRB,0.58028E+03_JPRB,0.85029E+03_JPRB,0.11222E+04_JPRB /)  
+KB(:, 2,40, 8) = (/ &
+ & 0.10272E+04_JPRB,0.77906E+03_JPRB,0.57981E+03_JPRB,0.84968E+03_JPRB,0.11215E+04_JPRB /)  
+KB(:, 3,40, 8) = (/ &
+ & 0.10272E+04_JPRB,0.77904E+03_JPRB,0.57922E+03_JPRB,0.84885E+03_JPRB,0.11204E+04_JPRB /)  
+KB(:, 4,40, 8) = (/ &
+ & 0.10272E+04_JPRB,0.77904E+03_JPRB,0.57849E+03_JPRB,0.84779E+03_JPRB,0.11191E+04_JPRB /)  
+KB(:, 5,40, 8) = (/ &
+ & 0.10272E+04_JPRB,0.77901E+03_JPRB,0.57757E+03_JPRB,0.84651E+03_JPRB,0.11176E+04_JPRB /)  
+KB(:, 1,41, 8) = (/ &
+ & 0.10272E+04_JPRB,0.77903E+03_JPRB,0.58037E+03_JPRB,0.85041E+03_JPRB,0.11224E+04_JPRB /)  
+KB(:, 2,41, 8) = (/ &
+ & 0.10272E+04_JPRB,0.77902E+03_JPRB,0.57994E+03_JPRB,0.84983E+03_JPRB,0.11217E+04_JPRB /)  
+KB(:, 3,41, 8) = (/ &
+ & 0.10271E+04_JPRB,0.77900E+03_JPRB,0.57937E+03_JPRB,0.84906E+03_JPRB,0.11207E+04_JPRB /)  
+KB(:, 4,41, 8) = (/ &
+ & 0.10271E+04_JPRB,0.77898E+03_JPRB,0.57870E+03_JPRB,0.84808E+03_JPRB,0.11195E+04_JPRB /)  
+KB(:, 5,41, 8) = (/ &
+ & 0.10271E+04_JPRB,0.77898E+03_JPRB,0.57782E+03_JPRB,0.84685E+03_JPRB,0.11180E+04_JPRB /)  
+KB(:, 1,42, 8) = (/ &
+ & 0.10271E+04_JPRB,0.77900E+03_JPRB,0.58046E+03_JPRB,0.85051E+03_JPRB,0.11225E+04_JPRB /)  
+KB(:, 2,42, 8) = (/ &
+ & 0.10271E+04_JPRB,0.77898E+03_JPRB,0.58006E+03_JPRB,0.85002E+03_JPRB,0.11219E+04_JPRB /)  
+KB(:, 3,42, 8) = (/ &
+ & 0.10271E+04_JPRB,0.77896E+03_JPRB,0.57953E+03_JPRB,0.84930E+03_JPRB,0.11210E+04_JPRB /)  
+KB(:, 4,42, 8) = (/ &
+ & 0.10271E+04_JPRB,0.77895E+03_JPRB,0.57888E+03_JPRB,0.84835E+03_JPRB,0.11198E+04_JPRB /)  
+KB(:, 5,42, 8) = (/ &
+ & 0.10270E+04_JPRB,0.77894E+03_JPRB,0.57806E+03_JPRB,0.84718E+03_JPRB,0.11184E+04_JPRB /)  
+KB(:, 1,43, 8) = (/ &
+ & 0.10271E+04_JPRB,0.77895E+03_JPRB,0.58056E+03_JPRB,0.85062E+03_JPRB,0.11226E+04_JPRB /)  
+KB(:, 2,43, 8) = (/ &
+ & 0.10270E+04_JPRB,0.77895E+03_JPRB,0.58020E+03_JPRB,0.85017E+03_JPRB,0.11221E+04_JPRB /)  
+KB(:, 3,43, 8) = (/ &
+ & 0.10270E+04_JPRB,0.77892E+03_JPRB,0.57970E+03_JPRB,0.84954E+03_JPRB,0.11213E+04_JPRB /)  
+KB(:, 4,43, 8) = (/ &
+ & 0.10270E+04_JPRB,0.77892E+03_JPRB,0.57909E+03_JPRB,0.84866E+03_JPRB,0.11202E+04_JPRB /)  
+KB(:, 5,43, 8) = (/ &
+ & 0.10270E+04_JPRB,0.77891E+03_JPRB,0.57834E+03_JPRB,0.84756E+03_JPRB,0.11188E+04_JPRB /)  
+KB(:, 1,44, 8) = (/ &
+ & 0.10270E+04_JPRB,0.77892E+03_JPRB,0.58064E+03_JPRB,0.85071E+03_JPRB,0.11226E+04_JPRB /)  
+KB(:, 2,44, 8) = (/ &
+ & 0.10270E+04_JPRB,0.77891E+03_JPRB,0.58034E+03_JPRB,0.85036E+03_JPRB,0.11223E+04_JPRB /)  
+KB(:, 3,44, 8) = (/ &
+ & 0.10270E+04_JPRB,0.77891E+03_JPRB,0.57988E+03_JPRB,0.84979E+03_JPRB,0.11216E+04_JPRB /)  
+KB(:, 4,44, 8) = (/ &
+ & 0.10270E+04_JPRB,0.77890E+03_JPRB,0.57931E+03_JPRB,0.84899E+03_JPRB,0.11206E+04_JPRB /)  
+KB(:, 5,44, 8) = (/ &
+ & 0.10270E+04_JPRB,0.77888E+03_JPRB,0.57861E+03_JPRB,0.84797E+03_JPRB,0.11193E+04_JPRB /)  
+KB(:, 1,45, 8) = (/ &
+ & 0.10270E+04_JPRB,0.77889E+03_JPRB,0.58069E+03_JPRB,0.85078E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 2,45, 8) = (/ &
+ & 0.10270E+04_JPRB,0.77888E+03_JPRB,0.58047E+03_JPRB,0.85051E+03_JPRB,0.11224E+04_JPRB /)  
+KB(:, 3,45, 8) = (/ &
+ & 0.10270E+04_JPRB,0.77888E+03_JPRB,0.58005E+03_JPRB,0.84999E+03_JPRB,0.11219E+04_JPRB /)  
+KB(:, 4,45, 8) = (/ &
+ & 0.10270E+04_JPRB,0.77888E+03_JPRB,0.57952E+03_JPRB,0.84927E+03_JPRB,0.11210E+04_JPRB /)  
+KB(:, 5,45, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77886E+03_JPRB,0.57890E+03_JPRB,0.84837E+03_JPRB,0.11198E+04_JPRB /)  
+KB(:, 1,46, 8) = (/ &
+ & 0.10270E+04_JPRB,0.77887E+03_JPRB,0.58072E+03_JPRB,0.85082E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 2,46, 8) = (/ &
+ & 0.10270E+04_JPRB,0.77886E+03_JPRB,0.58056E+03_JPRB,0.85063E+03_JPRB,0.11226E+04_JPRB /)  
+KB(:, 3,46, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77886E+03_JPRB,0.58022E+03_JPRB,0.85021E+03_JPRB,0.11221E+04_JPRB /)  
+KB(:, 4,46, 8) = (/ &
+ & 0.10270E+04_JPRB,0.77885E+03_JPRB,0.57972E+03_JPRB,0.84957E+03_JPRB,0.11213E+04_JPRB /)  
+KB(:, 5,46, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77884E+03_JPRB,0.57911E+03_JPRB,0.84871E+03_JPRB,0.11203E+04_JPRB /)  
+KB(:, 1,47, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77885E+03_JPRB,0.58070E+03_JPRB,0.85086E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 2,47, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77886E+03_JPRB,0.58066E+03_JPRB,0.85073E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 3,47, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77885E+03_JPRB,0.58037E+03_JPRB,0.85041E+03_JPRB,0.11223E+04_JPRB /)  
+KB(:, 4,47, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77884E+03_JPRB,0.57993E+03_JPRB,0.84985E+03_JPRB,0.11217E+04_JPRB /)  
+KB(:, 5,47, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77883E+03_JPRB,0.57937E+03_JPRB,0.84903E+03_JPRB,0.11207E+04_JPRB /)  
+KB(:, 1,48, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77884E+03_JPRB,0.58064E+03_JPRB,0.85086E+03_JPRB,0.11226E+04_JPRB /)  
+KB(:, 2,48, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77883E+03_JPRB,0.58071E+03_JPRB,0.85080E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 3,48, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77883E+03_JPRB,0.58051E+03_JPRB,0.85055E+03_JPRB,0.11225E+04_JPRB /)  
+KB(:, 4,48, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77883E+03_JPRB,0.58013E+03_JPRB,0.85010E+03_JPRB,0.11220E+04_JPRB /)  
+KB(:, 5,48, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77883E+03_JPRB,0.57961E+03_JPRB,0.84941E+03_JPRB,0.11212E+04_JPRB /)  
+KB(:, 1,49, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77884E+03_JPRB,0.58054E+03_JPRB,0.85082E+03_JPRB,0.11225E+04_JPRB /)  
+KB(:, 2,49, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77882E+03_JPRB,0.58072E+03_JPRB,0.85085E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 3,49, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77883E+03_JPRB,0.58061E+03_JPRB,0.85068E+03_JPRB,0.11226E+04_JPRB /)  
+KB(:, 4,49, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77882E+03_JPRB,0.58029E+03_JPRB,0.85032E+03_JPRB,0.11222E+04_JPRB /)  
+KB(:, 5,49, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77881E+03_JPRB,0.57983E+03_JPRB,0.84969E+03_JPRB,0.11215E+04_JPRB /)  
+KB(:, 1,50, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77883E+03_JPRB,0.58042E+03_JPRB,0.85074E+03_JPRB,0.11224E+04_JPRB /)  
+KB(:, 2,50, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77881E+03_JPRB,0.58068E+03_JPRB,0.85085E+03_JPRB,0.11226E+04_JPRB /)  
+KB(:, 3,50, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77882E+03_JPRB,0.58069E+03_JPRB,0.85077E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 4,50, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77880E+03_JPRB,0.58043E+03_JPRB,0.85048E+03_JPRB,0.11224E+04_JPRB /)  
+KB(:, 5,50, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77880E+03_JPRB,0.58002E+03_JPRB,0.84997E+03_JPRB,0.11218E+04_JPRB /)  
+KB(:, 1,51, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77881E+03_JPRB,0.58027E+03_JPRB,0.85064E+03_JPRB,0.11224E+04_JPRB /)  
+KB(:, 2,51, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77882E+03_JPRB,0.58061E+03_JPRB,0.85085E+03_JPRB,0.11226E+04_JPRB /)  
+KB(:, 3,51, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77880E+03_JPRB,0.58071E+03_JPRB,0.85082E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 4,51, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77880E+03_JPRB,0.58055E+03_JPRB,0.85061E+03_JPRB,0.11226E+04_JPRB /)  
+KB(:, 5,51, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77881E+03_JPRB,0.58020E+03_JPRB,0.85015E+03_JPRB,0.11221E+04_JPRB /)  
+KB(:, 1,52, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77880E+03_JPRB,0.58011E+03_JPRB,0.85051E+03_JPRB,0.11222E+04_JPRB /)  
+KB(:, 2,52, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77880E+03_JPRB,0.58051E+03_JPRB,0.85080E+03_JPRB,0.11225E+04_JPRB /)  
+KB(:, 3,52, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77880E+03_JPRB,0.58071E+03_JPRB,0.85085E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 4,52, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77879E+03_JPRB,0.58064E+03_JPRB,0.85068E+03_JPRB,0.11226E+04_JPRB /)  
+KB(:, 5,52, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77879E+03_JPRB,0.58034E+03_JPRB,0.85037E+03_JPRB,0.11223E+04_JPRB /)  
+KB(:, 1,53, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77880E+03_JPRB,0.57994E+03_JPRB,0.85036E+03_JPRB,0.11220E+04_JPRB /)  
+KB(:, 2,53, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77879E+03_JPRB,0.58038E+03_JPRB,0.85072E+03_JPRB,0.11224E+04_JPRB /)  
+KB(:, 3,53, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77879E+03_JPRB,0.58066E+03_JPRB,0.85087E+03_JPRB,0.11226E+04_JPRB /)  
+KB(:, 4,53, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77880E+03_JPRB,0.58069E+03_JPRB,0.85078E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 5,53, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77878E+03_JPRB,0.58047E+03_JPRB,0.85044E+03_JPRB,0.11225E+04_JPRB /)  
+KB(:, 1,54, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77879E+03_JPRB,0.57977E+03_JPRB,0.85022E+03_JPRB,0.11219E+04_JPRB /)  
+KB(:, 2,54, 8) = (/ &
+ & 0.10269E+04_JPRB,0.77879E+03_JPRB,0.58026E+03_JPRB,0.85061E+03_JPRB,0.11223E+04_JPRB /)  
+KB(:, 3,54, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77881E+03_JPRB,0.58060E+03_JPRB,0.85084E+03_JPRB,0.11226E+04_JPRB /)  
+KB(:, 4,54, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77879E+03_JPRB,0.58072E+03_JPRB,0.85083E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 5,54, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77878E+03_JPRB,0.58058E+03_JPRB,0.85063E+03_JPRB,0.11226E+04_JPRB /)  
+KB(:, 1,55, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77879E+03_JPRB,0.57962E+03_JPRB,0.85008E+03_JPRB,0.11217E+04_JPRB /)  
+KB(:, 2,55, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77878E+03_JPRB,0.58011E+03_JPRB,0.85050E+03_JPRB,0.11222E+04_JPRB /)  
+KB(:, 3,55, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77879E+03_JPRB,0.58050E+03_JPRB,0.85080E+03_JPRB,0.11225E+04_JPRB /)  
+KB(:, 4,55, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77880E+03_JPRB,0.58071E+03_JPRB,0.85085E+03_JPRB,0.11226E+04_JPRB /)  
+KB(:, 5,55, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77878E+03_JPRB,0.58064E+03_JPRB,0.85072E+03_JPRB,0.11226E+04_JPRB /)  
+KB(:, 1,56, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77878E+03_JPRB,0.57945E+03_JPRB,0.84993E+03_JPRB,0.11216E+04_JPRB /)  
+KB(:, 2,56, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77877E+03_JPRB,0.57995E+03_JPRB,0.85037E+03_JPRB,0.11220E+04_JPRB /)  
+KB(:, 3,56, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77877E+03_JPRB,0.58039E+03_JPRB,0.85071E+03_JPRB,0.11224E+04_JPRB /)  
+KB(:, 4,56, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77878E+03_JPRB,0.58067E+03_JPRB,0.85086E+03_JPRB,0.11226E+04_JPRB /)  
+KB(:, 5,56, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77878E+03_JPRB,0.58069E+03_JPRB,0.85078E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 1,57, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77879E+03_JPRB,0.57927E+03_JPRB,0.84978E+03_JPRB,0.11215E+04_JPRB /)  
+KB(:, 2,57, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77878E+03_JPRB,0.57979E+03_JPRB,0.85024E+03_JPRB,0.11219E+04_JPRB /)  
+KB(:, 3,57, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77878E+03_JPRB,0.58025E+03_JPRB,0.85063E+03_JPRB,0.11223E+04_JPRB /)  
+KB(:, 4,57, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77878E+03_JPRB,0.58060E+03_JPRB,0.85084E+03_JPRB,0.11226E+04_JPRB /)  
+KB(:, 5,57, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77878E+03_JPRB,0.58071E+03_JPRB,0.85083E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 1,58, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77878E+03_JPRB,0.57911E+03_JPRB,0.84962E+03_JPRB,0.11212E+04_JPRB /)  
+KB(:, 2,58, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77878E+03_JPRB,0.57964E+03_JPRB,0.85010E+03_JPRB,0.11218E+04_JPRB /)  
+KB(:, 3,58, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77877E+03_JPRB,0.58013E+03_JPRB,0.85053E+03_JPRB,0.11222E+04_JPRB /)  
+KB(:, 4,58, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77877E+03_JPRB,0.58052E+03_JPRB,0.85080E+03_JPRB,0.11225E+04_JPRB /)  
+KB(:, 5,58, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77879E+03_JPRB,0.58071E+03_JPRB,0.85085E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 1,59, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77878E+03_JPRB,0.57904E+03_JPRB,0.84955E+03_JPRB,0.11212E+04_JPRB /)  
+KB(:, 2,59, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77877E+03_JPRB,0.57958E+03_JPRB,0.85006E+03_JPRB,0.11217E+04_JPRB /)  
+KB(:, 3,59, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77877E+03_JPRB,0.58007E+03_JPRB,0.85048E+03_JPRB,0.11222E+04_JPRB /)  
+KB(:, 4,59, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77878E+03_JPRB,0.58048E+03_JPRB,0.85078E+03_JPRB,0.11225E+04_JPRB /)  
+KB(:, 5,59, 8) = (/ &
+ & 0.10268E+04_JPRB,0.77877E+03_JPRB,0.58070E+03_JPRB,0.85086E+03_JPRB,0.11227E+04_JPRB /)  
+KB(:, 1,13, 9) = (/ &
+ & 0.11533E+04_JPRB,0.87327E+03_JPRB,0.59473E+03_JPRB,0.87046E+03_JPRB,0.11487E+04_JPRB /)  
+KB(:, 2,13, 9) = (/ &
+ & 0.11444E+04_JPRB,0.86660E+03_JPRB,0.59240E+03_JPRB,0.87005E+03_JPRB,0.11483E+04_JPRB /)  
+KB(:, 3,13, 9) = (/ &
+ & 0.11367E+04_JPRB,0.86090E+03_JPRB,0.59185E+03_JPRB,0.86950E+03_JPRB,0.11478E+04_JPRB /)  
+KB(:, 4,13, 9) = (/ &
+ & 0.11301E+04_JPRB,0.85587E+03_JPRB,0.59143E+03_JPRB,0.86883E+03_JPRB,0.11469E+04_JPRB /)  
+KB(:, 5,13, 9) = (/ &
+ & 0.11242E+04_JPRB,0.85148E+03_JPRB,0.59084E+03_JPRB,0.86797E+03_JPRB,0.11458E+04_JPRB /)  
+KB(:, 1,14, 9) = (/ &
+ & 0.11310E+04_JPRB,0.85656E+03_JPRB,0.59238E+03_JPRB,0.87026E+03_JPRB,0.11487E+04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART24',1,ZHOOK_HANDLE)
+END SUBROUTINE PART24
+
+
+SUBROUTINE PART25
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART25',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,14, 9) = (/ &
+ & 0.11238E+04_JPRB,0.85118E+03_JPRB,0.59190E+03_JPRB,0.86988E+03_JPRB,0.11483E+04_JPRB /)  
+KB(:, 3,14, 9) = (/ &
+ & 0.11176E+04_JPRB,0.84654E+03_JPRB,0.59149E+03_JPRB,0.86931E+03_JPRB,0.11477E+04_JPRB /)  
+KB(:, 4,14, 9) = (/ &
+ & 0.11122E+04_JPRB,0.84248E+03_JPRB,0.59105E+03_JPRB,0.86863E+03_JPRB,0.11468E+04_JPRB /)  
+KB(:, 5,14, 9) = (/ &
+ & 0.11074E+04_JPRB,0.83890E+03_JPRB,0.59046E+03_JPRB,0.86777E+03_JPRB,0.11457E+04_JPRB /)  
+KB(:, 1,15, 9) = (/ &
+ & 0.11128E+04_JPRB,0.84292E+03_JPRB,0.59202E+03_JPRB,0.87009E+03_JPRB,0.11486E+04_JPRB /)  
+KB(:, 2,15, 9) = (/ &
+ & 0.11070E+04_JPRB,0.83857E+03_JPRB,0.59157E+03_JPRB,0.86969E+03_JPRB,0.11482E+04_JPRB /)  
+KB(:, 3,15, 9) = (/ &
+ & 0.11020E+04_JPRB,0.83480E+03_JPRB,0.59118E+03_JPRB,0.86913E+03_JPRB,0.11476E+04_JPRB /)  
+KB(:, 4,15, 9) = (/ &
+ & 0.10976E+04_JPRB,0.83151E+03_JPRB,0.59076E+03_JPRB,0.86843E+03_JPRB,0.11467E+04_JPRB /)  
+KB(:, 5,15, 9) = (/ &
+ & 0.10938E+04_JPRB,0.82865E+03_JPRB,0.59015E+03_JPRB,0.86756E+03_JPRB,0.11457E+04_JPRB /)  
+KB(:, 1,16, 9) = (/ &
+ & 0.10980E+04_JPRB,0.83182E+03_JPRB,0.59172E+03_JPRB,0.86994E+03_JPRB,0.11486E+04_JPRB /)  
+KB(:, 2,16, 9) = (/ &
+ & 0.10933E+04_JPRB,0.82831E+03_JPRB,0.59129E+03_JPRB,0.86966E+03_JPRB,0.11482E+04_JPRB /)  
+KB(:, 3,16, 9) = (/ &
+ & 0.10893E+04_JPRB,0.82527E+03_JPRB,0.59092E+03_JPRB,0.86898E+03_JPRB,0.11475E+04_JPRB /)  
+KB(:, 4,16, 9) = (/ &
+ & 0.10858E+04_JPRB,0.82261E+03_JPRB,0.59049E+03_JPRB,0.86826E+03_JPRB,0.11466E+04_JPRB /)  
+KB(:, 5,16, 9) = (/ &
+ & 0.10827E+04_JPRB,0.82037E+03_JPRB,0.58989E+03_JPRB,0.86738E+03_JPRB,0.11455E+04_JPRB /)  
+KB(:, 1,17, 9) = (/ &
+ & 0.10860E+04_JPRB,0.82280E+03_JPRB,0.59147E+03_JPRB,0.86983E+03_JPRB,0.11485E+04_JPRB /)  
+KB(:, 2,17, 9) = (/ &
+ & 0.10822E+04_JPRB,0.81997E+03_JPRB,0.59107E+03_JPRB,0.86941E+03_JPRB,0.11481E+04_JPRB /)  
+KB(:, 3,17, 9) = (/ &
+ & 0.10790E+04_JPRB,0.81753E+03_JPRB,0.59070E+03_JPRB,0.86883E+03_JPRB,0.11474E+04_JPRB /)  
+KB(:, 4,17, 9) = (/ &
+ & 0.10761E+04_JPRB,0.81539E+03_JPRB,0.59027E+03_JPRB,0.86811E+03_JPRB,0.11465E+04_JPRB /)  
+KB(:, 5,17, 9) = (/ &
+ & 0.10736E+04_JPRB,0.81353E+03_JPRB,0.58965E+03_JPRB,0.86721E+03_JPRB,0.11454E+04_JPRB /)  
+KB(:, 1,18, 9) = (/ &
+ & 0.10762E+04_JPRB,0.81555E+03_JPRB,0.59126E+03_JPRB,0.86969E+03_JPRB,0.11485E+04_JPRB /)  
+KB(:, 2,18, 9) = (/ &
+ & 0.10732E+04_JPRB,0.81322E+03_JPRB,0.59088E+03_JPRB,0.86928E+03_JPRB,0.11481E+04_JPRB /)  
+KB(:, 3,18, 9) = (/ &
+ & 0.10706E+04_JPRB,0.81128E+03_JPRB,0.59052E+03_JPRB,0.86870E+03_JPRB,0.11474E+04_JPRB /)  
+KB(:, 4,18, 9) = (/ &
+ & 0.10683E+04_JPRB,0.80956E+03_JPRB,0.59008E+03_JPRB,0.86800E+03_JPRB,0.11464E+04_JPRB /)  
+KB(:, 5,18, 9) = (/ &
+ & 0.10663E+04_JPRB,0.80808E+03_JPRB,0.58945E+03_JPRB,0.86705E+03_JPRB,0.11452E+04_JPRB /)  
+KB(:, 1,19, 9) = (/ &
+ & 0.10684E+04_JPRB,0.80963E+03_JPRB,0.59108E+03_JPRB,0.86962E+03_JPRB,0.11485E+04_JPRB /)  
+KB(:, 2,19, 9) = (/ &
+ & 0.10659E+04_JPRB,0.80774E+03_JPRB,0.59072E+03_JPRB,0.86917E+03_JPRB,0.11480E+04_JPRB /)  
+KB(:, 3,19, 9) = (/ &
+ & 0.10638E+04_JPRB,0.80613E+03_JPRB,0.59038E+03_JPRB,0.86858E+03_JPRB,0.11473E+04_JPRB /)  
+KB(:, 4,19, 9) = (/ &
+ & 0.10619E+04_JPRB,0.80481E+03_JPRB,0.58991E+03_JPRB,0.86784E+03_JPRB,0.11463E+04_JPRB /)  
+KB(:, 5,19, 9) = (/ &
+ & 0.10603E+04_JPRB,0.80353E+03_JPRB,0.58926E+03_JPRB,0.86690E+03_JPRB,0.11451E+04_JPRB /)  
+KB(:, 1,20, 9) = (/ &
+ & 0.10619E+04_JPRB,0.80474E+03_JPRB,0.59092E+03_JPRB,0.86952E+03_JPRB,0.11484E+04_JPRB /)  
+KB(:, 2,20, 9) = (/ &
+ & 0.10599E+04_JPRB,0.80326E+03_JPRB,0.59057E+03_JPRB,0.86907E+03_JPRB,0.11479E+04_JPRB /)  
+KB(:, 3,20, 9) = (/ &
+ & 0.10582E+04_JPRB,0.80198E+03_JPRB,0.59022E+03_JPRB,0.86845E+03_JPRB,0.11472E+04_JPRB /)  
+KB(:, 4,20, 9) = (/ &
+ & 0.10567E+04_JPRB,0.80089E+03_JPRB,0.58976E+03_JPRB,0.86771E+03_JPRB,0.11462E+04_JPRB /)  
+KB(:, 5,20, 9) = (/ &
+ & 0.10554E+04_JPRB,0.79986E+03_JPRB,0.58910E+03_JPRB,0.86674E+03_JPRB,0.11449E+04_JPRB /)  
+KB(:, 1,21, 9) = (/ &
+ & 0.10567E+04_JPRB,0.80080E+03_JPRB,0.59079E+03_JPRB,0.86945E+03_JPRB,0.11483E+04_JPRB /)  
+KB(:, 2,21, 9) = (/ &
+ & 0.10550E+04_JPRB,0.79960E+03_JPRB,0.59045E+03_JPRB,0.86897E+03_JPRB,0.11478E+04_JPRB /)  
+KB(:, 3,21, 9) = (/ &
+ & 0.10537E+04_JPRB,0.79858E+03_JPRB,0.59010E+03_JPRB,0.86836E+03_JPRB,0.11471E+04_JPRB /)  
+KB(:, 4,21, 9) = (/ &
+ & 0.10525E+04_JPRB,0.79770E+03_JPRB,0.58962E+03_JPRB,0.86752E+03_JPRB,0.11460E+04_JPRB /)  
+KB(:, 5,21, 9) = (/ &
+ & 0.10514E+04_JPRB,0.79685E+03_JPRB,0.58893E+03_JPRB,0.86654E+03_JPRB,0.11447E+04_JPRB /)  
+KB(:, 1,22, 9) = (/ &
+ & 0.10523E+04_JPRB,0.79754E+03_JPRB,0.59066E+03_JPRB,0.86933E+03_JPRB,0.11483E+04_JPRB /)  
+KB(:, 2,22, 9) = (/ &
+ & 0.10510E+04_JPRB,0.79661E+03_JPRB,0.59033E+03_JPRB,0.86884E+03_JPRB,0.11477E+04_JPRB /)  
+KB(:, 3,22, 9) = (/ &
+ & 0.10500E+04_JPRB,0.79577E+03_JPRB,0.58997E+03_JPRB,0.86819E+03_JPRB,0.11469E+04_JPRB /)  
+KB(:, 4,22, 9) = (/ &
+ & 0.10490E+04_JPRB,0.79506E+03_JPRB,0.58945E+03_JPRB,0.86737E+03_JPRB,0.11458E+04_JPRB /)  
+KB(:, 5,22, 9) = (/ &
+ & 0.10482E+04_JPRB,0.79443E+03_JPRB,0.58872E+03_JPRB,0.86635E+03_JPRB,0.11444E+04_JPRB /)  
+KB(:, 1,23, 9) = (/ &
+ & 0.10488E+04_JPRB,0.79491E+03_JPRB,0.59053E+03_JPRB,0.86922E+03_JPRB,0.11482E+04_JPRB /)  
+KB(:, 2,23, 9) = (/ &
+ & 0.10478E+04_JPRB,0.79417E+03_JPRB,0.59023E+03_JPRB,0.86872E+03_JPRB,0.11476E+04_JPRB /)  
+KB(:, 3,23, 9) = (/ &
+ & 0.10469E+04_JPRB,0.79351E+03_JPRB,0.58983E+03_JPRB,0.86802E+03_JPRB,0.11467E+04_JPRB /)  
+KB(:, 4,23, 9) = (/ &
+ & 0.10461E+04_JPRB,0.79293E+03_JPRB,0.58929E+03_JPRB,0.86717E+03_JPRB,0.11456E+04_JPRB /)  
+KB(:, 5,23, 9) = (/ &
+ & 0.10455E+04_JPRB,0.79241E+03_JPRB,0.58851E+03_JPRB,0.86610E+03_JPRB,0.11442E+04_JPRB /)  
+KB(:, 1,24, 9) = (/ &
+ & 0.10460E+04_JPRB,0.79285E+03_JPRB,0.59042E+03_JPRB,0.86910E+03_JPRB,0.11481E+04_JPRB /)  
+KB(:, 2,24, 9) = (/ &
+ & 0.10452E+04_JPRB,0.79220E+03_JPRB,0.59009E+03_JPRB,0.86856E+03_JPRB,0.11474E+04_JPRB /)  
+KB(:, 3,24, 9) = (/ &
+ & 0.10445E+04_JPRB,0.79170E+03_JPRB,0.58968E+03_JPRB,0.86785E+03_JPRB,0.11465E+04_JPRB /)  
+KB(:, 4,24, 9) = (/ &
+ & 0.10439E+04_JPRB,0.79123E+03_JPRB,0.58911E+03_JPRB,0.86698E+03_JPRB,0.11453E+04_JPRB /)  
+KB(:, 5,24, 9) = (/ &
+ & 0.10433E+04_JPRB,0.79086E+03_JPRB,0.58830E+03_JPRB,0.86584E+03_JPRB,0.11439E+04_JPRB /)  
+KB(:, 1,25, 9) = (/ &
+ & 0.10438E+04_JPRB,0.79109E+03_JPRB,0.59032E+03_JPRB,0.86899E+03_JPRB,0.11480E+04_JPRB /)  
+KB(:, 2,25, 9) = (/ &
+ & 0.10430E+04_JPRB,0.79059E+03_JPRB,0.58999E+03_JPRB,0.86841E+03_JPRB,0.11473E+04_JPRB /)  
+KB(:, 3,25, 9) = (/ &
+ & 0.10425E+04_JPRB,0.79018E+03_JPRB,0.58955E+03_JPRB,0.86768E+03_JPRB,0.11463E+04_JPRB /)  
+KB(:, 4,25, 9) = (/ &
+ & 0.10420E+04_JPRB,0.78985E+03_JPRB,0.58893E+03_JPRB,0.86674E+03_JPRB,0.11450E+04_JPRB /)  
+KB(:, 5,25, 9) = (/ &
+ & 0.10416E+04_JPRB,0.78947E+03_JPRB,0.58810E+03_JPRB,0.86557E+03_JPRB,0.11436E+04_JPRB /)  
+KB(:, 1,26, 9) = (/ &
+ & 0.10418E+04_JPRB,0.78966E+03_JPRB,0.59022E+03_JPRB,0.86886E+03_JPRB,0.11478E+04_JPRB /)  
+KB(:, 2,26, 9) = (/ &
+ & 0.10414E+04_JPRB,0.78932E+03_JPRB,0.58989E+03_JPRB,0.86824E+03_JPRB,0.11471E+04_JPRB /)  
+KB(:, 3,26, 9) = (/ &
+ & 0.10409E+04_JPRB,0.78898E+03_JPRB,0.58940E+03_JPRB,0.86743E+03_JPRB,0.11460E+04_JPRB /)  
+KB(:, 4,26, 9) = (/ &
+ & 0.10405E+04_JPRB,0.78870E+03_JPRB,0.58873E+03_JPRB,0.86647E+03_JPRB,0.11447E+04_JPRB /)  
+KB(:, 5,26, 9) = (/ &
+ & 0.10401E+04_JPRB,0.78842E+03_JPRB,0.58782E+03_JPRB,0.86527E+03_JPRB,0.11432E+04_JPRB /)  
+KB(:, 1,27, 9) = (/ &
+ & 0.10403E+04_JPRB,0.78855E+03_JPRB,0.59012E+03_JPRB,0.86872E+03_JPRB,0.11477E+04_JPRB /)  
+KB(:, 2,27, 9) = (/ &
+ & 0.10399E+04_JPRB,0.78827E+03_JPRB,0.58977E+03_JPRB,0.86806E+03_JPRB,0.11468E+04_JPRB /)  
+KB(:, 3,27, 9) = (/ &
+ & 0.10396E+04_JPRB,0.78799E+03_JPRB,0.58924E+03_JPRB,0.86723E+03_JPRB,0.11458E+04_JPRB /)  
+KB(:, 4,27, 9) = (/ &
+ & 0.10392E+04_JPRB,0.78776E+03_JPRB,0.58850E+03_JPRB,0.86619E+03_JPRB,0.11444E+04_JPRB /)  
+KB(:, 5,27, 9) = (/ &
+ & 0.10390E+04_JPRB,0.78757E+03_JPRB,0.58756E+03_JPRB,0.86495E+03_JPRB,0.11428E+04_JPRB /)  
+KB(:, 1,28, 9) = (/ &
+ & 0.10391E+04_JPRB,0.78770E+03_JPRB,0.59002E+03_JPRB,0.86856E+03_JPRB,0.11475E+04_JPRB /)  
+KB(:, 2,28, 9) = (/ &
+ & 0.10388E+04_JPRB,0.78747E+03_JPRB,0.58964E+03_JPRB,0.86790E+03_JPRB,0.11466E+04_JPRB /)  
+KB(:, 3,28, 9) = (/ &
+ & 0.10385E+04_JPRB,0.78719E+03_JPRB,0.58908E+03_JPRB,0.86701E+03_JPRB,0.11455E+04_JPRB /)  
+KB(:, 4,28, 9) = (/ &
+ & 0.10383E+04_JPRB,0.78704E+03_JPRB,0.58829E+03_JPRB,0.86590E+03_JPRB,0.11440E+04_JPRB /)  
+KB(:, 5,28, 9) = (/ &
+ & 0.10381E+04_JPRB,0.78687E+03_JPRB,0.58729E+03_JPRB,0.86461E+03_JPRB,0.11423E+04_JPRB /)  
+KB(:, 1,29, 9) = (/ &
+ & 0.10382E+04_JPRB,0.78694E+03_JPRB,0.58994E+03_JPRB,0.86841E+03_JPRB,0.11473E+04_JPRB /)  
+KB(:, 2,29, 9) = (/ &
+ & 0.10379E+04_JPRB,0.78677E+03_JPRB,0.58950E+03_JPRB,0.86767E+03_JPRB,0.11463E+04_JPRB /)  
+KB(:, 3,29, 9) = (/ &
+ & 0.10377E+04_JPRB,0.78658E+03_JPRB,0.58888E+03_JPRB,0.86674E+03_JPRB,0.11451E+04_JPRB /)  
+KB(:, 4,29, 9) = (/ &
+ & 0.10375E+04_JPRB,0.78645E+03_JPRB,0.58805E+03_JPRB,0.86559E+03_JPRB,0.11436E+04_JPRB /)  
+KB(:, 5,29, 9) = (/ &
+ & 0.10374E+04_JPRB,0.78628E+03_JPRB,0.58702E+03_JPRB,0.86429E+03_JPRB,0.11419E+04_JPRB /)  
+KB(:, 1,30, 9) = (/ &
+ & 0.10373E+04_JPRB,0.78632E+03_JPRB,0.58983E+03_JPRB,0.86822E+03_JPRB,0.11471E+04_JPRB /)  
+KB(:, 2,30, 9) = (/ &
+ & 0.10371E+04_JPRB,0.78619E+03_JPRB,0.58935E+03_JPRB,0.86746E+03_JPRB,0.11460E+04_JPRB /)  
+KB(:, 3,30, 9) = (/ &
+ & 0.10370E+04_JPRB,0.78613E+03_JPRB,0.58869E+03_JPRB,0.86647E+03_JPRB,0.11448E+04_JPRB /)  
+KB(:, 4,30, 9) = (/ &
+ & 0.10369E+04_JPRB,0.78594E+03_JPRB,0.58779E+03_JPRB,0.86529E+03_JPRB,0.11432E+04_JPRB /)  
+KB(:, 5,30, 9) = (/ &
+ & 0.10367E+04_JPRB,0.78585E+03_JPRB,0.58673E+03_JPRB,0.86393E+03_JPRB,0.11414E+04_JPRB /)  
+KB(:, 1,31, 9) = (/ &
+ & 0.10367E+04_JPRB,0.78588E+03_JPRB,0.58971E+03_JPRB,0.86804E+03_JPRB,0.11468E+04_JPRB /)  
+KB(:, 2,31, 9) = (/ &
+ & 0.10365E+04_JPRB,0.78574E+03_JPRB,0.58919E+03_JPRB,0.86720E+03_JPRB,0.11457E+04_JPRB /)  
+KB(:, 3,31, 9) = (/ &
+ & 0.10364E+04_JPRB,0.78562E+03_JPRB,0.58847E+03_JPRB,0.86618E+03_JPRB,0.11443E+04_JPRB /)  
+KB(:, 4,31, 9) = (/ &
+ & 0.10363E+04_JPRB,0.78557E+03_JPRB,0.58752E+03_JPRB,0.86495E+03_JPRB,0.11427E+04_JPRB /)  
+KB(:, 5,31, 9) = (/ &
+ & 0.10362E+04_JPRB,0.78546E+03_JPRB,0.58644E+03_JPRB,0.86356E+03_JPRB,0.11409E+04_JPRB /)  
+KB(:, 1,32, 9) = (/ &
+ & 0.10362E+04_JPRB,0.78556E+03_JPRB,0.58958E+03_JPRB,0.86784E+03_JPRB,0.11466E+04_JPRB /)  
+KB(:, 2,32, 9) = (/ &
+ & 0.10361E+04_JPRB,0.78539E+03_JPRB,0.58901E+03_JPRB,0.86697E+03_JPRB,0.11454E+04_JPRB /)  
+KB(:, 3,32, 9) = (/ &
+ & 0.10360E+04_JPRB,0.78539E+03_JPRB,0.58824E+03_JPRB,0.86587E+03_JPRB,0.11440E+04_JPRB /)  
+KB(:, 4,32, 9) = (/ &
+ & 0.10359E+04_JPRB,0.78525E+03_JPRB,0.58724E+03_JPRB,0.86459E+03_JPRB,0.11423E+04_JPRB /)  
+KB(:, 5,32, 9) = (/ &
+ & 0.10358E+04_JPRB,0.78516E+03_JPRB,0.58615E+03_JPRB,0.86318E+03_JPRB,0.11404E+04_JPRB /)  
+KB(:, 1,33, 9) = (/ &
+ & 0.10358E+04_JPRB,0.78520E+03_JPRB,0.58945E+03_JPRB,0.86763E+03_JPRB,0.11463E+04_JPRB /)  
+KB(:, 2,33, 9) = (/ &
+ & 0.10357E+04_JPRB,0.78510E+03_JPRB,0.58883E+03_JPRB,0.86670E+03_JPRB,0.11450E+04_JPRB /)  
+KB(:, 3,33, 9) = (/ &
+ & 0.10356E+04_JPRB,0.78504E+03_JPRB,0.58799E+03_JPRB,0.86554E+03_JPRB,0.11435E+04_JPRB /)  
+KB(:, 4,33, 9) = (/ &
+ & 0.10356E+04_JPRB,0.78500E+03_JPRB,0.58695E+03_JPRB,0.86422E+03_JPRB,0.11418E+04_JPRB /)  
+KB(:, 5,33, 9) = (/ &
+ & 0.10355E+04_JPRB,0.78493E+03_JPRB,0.58586E+03_JPRB,0.86281E+03_JPRB,0.11399E+04_JPRB /)  
+KB(:, 1,34, 9) = (/ &
+ & 0.10355E+04_JPRB,0.78495E+03_JPRB,0.58932E+03_JPRB,0.86743E+03_JPRB,0.11460E+04_JPRB /)  
+KB(:, 2,34, 9) = (/ &
+ & 0.10354E+04_JPRB,0.78487E+03_JPRB,0.58865E+03_JPRB,0.86644E+03_JPRB,0.11447E+04_JPRB /)  
+KB(:, 3,34, 9) = (/ &
+ & 0.10354E+04_JPRB,0.78485E+03_JPRB,0.58776E+03_JPRB,0.86524E+03_JPRB,0.11432E+04_JPRB /)  
+KB(:, 4,34, 9) = (/ &
+ & 0.10353E+04_JPRB,0.78479E+03_JPRB,0.58670E+03_JPRB,0.86390E+03_JPRB,0.11414E+04_JPRB /)  
+KB(:, 5,34, 9) = (/ &
+ & 0.10352E+04_JPRB,0.78474E+03_JPRB,0.58560E+03_JPRB,0.86249E+03_JPRB,0.11395E+04_JPRB /)  
+KB(:, 1,35, 9) = (/ &
+ & 0.10352E+04_JPRB,0.78478E+03_JPRB,0.58924E+03_JPRB,0.86731E+03_JPRB,0.11459E+04_JPRB /)  
+KB(:, 2,35, 9) = (/ &
+ & 0.10352E+04_JPRB,0.78472E+03_JPRB,0.58855E+03_JPRB,0.86632E+03_JPRB,0.11445E+04_JPRB /)  
+KB(:, 3,35, 9) = (/ &
+ & 0.10351E+04_JPRB,0.78465E+03_JPRB,0.58761E+03_JPRB,0.86508E+03_JPRB,0.11430E+04_JPRB /)  
+KB(:, 4,35, 9) = (/ &
+ & 0.10350E+04_JPRB,0.78465E+03_JPRB,0.58655E+03_JPRB,0.86369E+03_JPRB,0.11412E+04_JPRB /)  
+KB(:, 5,35, 9) = (/ &
+ & 0.10350E+04_JPRB,0.78456E+03_JPRB,0.58545E+03_JPRB,0.86237E+03_JPRB,0.11393E+04_JPRB /)  
+KB(:, 1,36, 9) = (/ &
+ & 0.10350E+04_JPRB,0.78465E+03_JPRB,0.58922E+03_JPRB,0.86729E+03_JPRB,0.11458E+04_JPRB /)  
+KB(:, 2,36, 9) = (/ &
+ & 0.10350E+04_JPRB,0.78456E+03_JPRB,0.58852E+03_JPRB,0.86627E+03_JPRB,0.11445E+04_JPRB /)  
+KB(:, 3,36, 9) = (/ &
+ & 0.10350E+04_JPRB,0.78452E+03_JPRB,0.58759E+03_JPRB,0.86505E+03_JPRB,0.11429E+04_JPRB /)  
+KB(:, 4,36, 9) = (/ &
+ & 0.10349E+04_JPRB,0.78450E+03_JPRB,0.58651E+03_JPRB,0.86369E+03_JPRB,0.11411E+04_JPRB /)  
+KB(:, 5,36, 9) = (/ &
+ & 0.10348E+04_JPRB,0.78444E+03_JPRB,0.58544E+03_JPRB,0.86227E+03_JPRB,0.11392E+04_JPRB /)  
+KB(:, 1,37, 9) = (/ &
+ & 0.10349E+04_JPRB,0.78446E+03_JPRB,0.58930E+03_JPRB,0.86738E+03_JPRB,0.11460E+04_JPRB /)  
+KB(:, 2,37, 9) = (/ &
+ & 0.10348E+04_JPRB,0.78444E+03_JPRB,0.58863E+03_JPRB,0.86642E+03_JPRB,0.11447E+04_JPRB /)  
+KB(:, 3,37, 9) = (/ &
+ & 0.10348E+04_JPRB,0.78441E+03_JPRB,0.58773E+03_JPRB,0.86522E+03_JPRB,0.11432E+04_JPRB /)  
+KB(:, 4,37, 9) = (/ &
+ & 0.10348E+04_JPRB,0.78439E+03_JPRB,0.58667E+03_JPRB,0.86387E+03_JPRB,0.11414E+04_JPRB /)  
+KB(:, 5,37, 9) = (/ &
+ & 0.10347E+04_JPRB,0.78436E+03_JPRB,0.58559E+03_JPRB,0.86245E+03_JPRB,0.11394E+04_JPRB /)  
+KB(:, 1,38, 9) = (/ &
+ & 0.10348E+04_JPRB,0.78440E+03_JPRB,0.58936E+03_JPRB,0.86753E+03_JPRB,0.11462E+04_JPRB /)  
+KB(:, 2,38, 9) = (/ &
+ & 0.10347E+04_JPRB,0.78434E+03_JPRB,0.58873E+03_JPRB,0.86658E+03_JPRB,0.11449E+04_JPRB /)  
+KB(:, 3,38, 9) = (/ &
+ & 0.10347E+04_JPRB,0.78432E+03_JPRB,0.58786E+03_JPRB,0.86537E+03_JPRB,0.11434E+04_JPRB /)  
+KB(:, 4,38, 9) = (/ &
+ & 0.10346E+04_JPRB,0.78431E+03_JPRB,0.58681E+03_JPRB,0.86407E+03_JPRB,0.11416E+04_JPRB /)  
+KB(:, 5,38, 9) = (/ &
+ & 0.10347E+04_JPRB,0.78428E+03_JPRB,0.58573E+03_JPRB,0.86265E+03_JPRB,0.11397E+04_JPRB /)  
+KB(:, 1,39, 9) = (/ &
+ & 0.10347E+04_JPRB,0.78431E+03_JPRB,0.58943E+03_JPRB,0.86764E+03_JPRB,0.11463E+04_JPRB /)  
+KB(:, 2,39, 9) = (/ &
+ & 0.10346E+04_JPRB,0.78431E+03_JPRB,0.58882E+03_JPRB,0.86672E+03_JPRB,0.11451E+04_JPRB /)  
+KB(:, 3,39, 9) = (/ &
+ & 0.10346E+04_JPRB,0.78424E+03_JPRB,0.58800E+03_JPRB,0.86557E+03_JPRB,0.11436E+04_JPRB /)  
+KB(:, 4,39, 9) = (/ &
+ & 0.10346E+04_JPRB,0.78421E+03_JPRB,0.58697E+03_JPRB,0.86426E+03_JPRB,0.11419E+04_JPRB /)  
+KB(:, 5,39, 9) = (/ &
+ & 0.10346E+04_JPRB,0.78429E+03_JPRB,0.58587E+03_JPRB,0.86284E+03_JPRB,0.11400E+04_JPRB /)  
+KB(:, 1,40, 9) = (/ &
+ & 0.10346E+04_JPRB,0.78426E+03_JPRB,0.58957E+03_JPRB,0.86785E+03_JPRB,0.11466E+04_JPRB /)  
+KB(:, 2,40, 9) = (/ &
+ & 0.10345E+04_JPRB,0.78427E+03_JPRB,0.58899E+03_JPRB,0.86697E+03_JPRB,0.11454E+04_JPRB /)  
+KB(:, 3,40, 9) = (/ &
+ & 0.10345E+04_JPRB,0.78422E+03_JPRB,0.58822E+03_JPRB,0.86585E+03_JPRB,0.11440E+04_JPRB /)  
+KB(:, 4,40, 9) = (/ &
+ & 0.10345E+04_JPRB,0.78421E+03_JPRB,0.58723E+03_JPRB,0.86460E+03_JPRB,0.11423E+04_JPRB /)  
+KB(:, 5,40, 9) = (/ &
+ & 0.10344E+04_JPRB,0.78416E+03_JPRB,0.58614E+03_JPRB,0.86319E+03_JPRB,0.11403E+04_JPRB /)  
+KB(:, 1,41, 9) = (/ &
+ & 0.10345E+04_JPRB,0.78421E+03_JPRB,0.58967E+03_JPRB,0.86804E+03_JPRB,0.11468E+04_JPRB /)  
+KB(:, 2,41, 9) = (/ &
+ & 0.10345E+04_JPRB,0.78418E+03_JPRB,0.58916E+03_JPRB,0.86720E+03_JPRB,0.11457E+04_JPRB /)  
+KB(:, 3,41, 9) = (/ &
+ & 0.10344E+04_JPRB,0.78415E+03_JPRB,0.58844E+03_JPRB,0.86618E+03_JPRB,0.11444E+04_JPRB /)  
+KB(:, 4,41, 9) = (/ &
+ & 0.10344E+04_JPRB,0.78413E+03_JPRB,0.58748E+03_JPRB,0.86492E+03_JPRB,0.11428E+04_JPRB /)  
+KB(:, 5,41, 9) = (/ &
+ & 0.10344E+04_JPRB,0.78411E+03_JPRB,0.58642E+03_JPRB,0.86355E+03_JPRB,0.11409E+04_JPRB /)  
+KB(:, 1,42, 9) = (/ &
+ & 0.10345E+04_JPRB,0.78414E+03_JPRB,0.58976E+03_JPRB,0.86830E+03_JPRB,0.11471E+04_JPRB /)  
+KB(:, 2,42, 9) = (/ &
+ & 0.10344E+04_JPRB,0.78417E+03_JPRB,0.58930E+03_JPRB,0.86744E+03_JPRB,0.11460E+04_JPRB /)  
+KB(:, 3,42, 9) = (/ &
+ & 0.10344E+04_JPRB,0.78411E+03_JPRB,0.58863E+03_JPRB,0.86645E+03_JPRB,0.11448E+04_JPRB /)  
+KB(:, 4,42, 9) = (/ &
+ & 0.10344E+04_JPRB,0.78409E+03_JPRB,0.58775E+03_JPRB,0.86525E+03_JPRB,0.11432E+04_JPRB /)  
+KB(:, 5,42, 9) = (/ &
+ & 0.10344E+04_JPRB,0.78408E+03_JPRB,0.58670E+03_JPRB,0.86391E+03_JPRB,0.11414E+04_JPRB /)  
+KB(:, 1,43, 9) = (/ &
+ & 0.10344E+04_JPRB,0.78410E+03_JPRB,0.58987E+03_JPRB,0.86842E+03_JPRB,0.11473E+04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART25',1,ZHOOK_HANDLE)
+END SUBROUTINE PART25
+
+
+SUBROUTINE PART26
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART26',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,43, 9) = (/ &
+ & 0.10344E+04_JPRB,0.78408E+03_JPRB,0.58947E+03_JPRB,0.86769E+03_JPRB,0.11464E+04_JPRB /)  
+KB(:, 3,43, 9) = (/ &
+ & 0.10344E+04_JPRB,0.78409E+03_JPRB,0.58887E+03_JPRB,0.86678E+03_JPRB,0.11452E+04_JPRB /)  
+KB(:, 4,43, 9) = (/ &
+ & 0.10344E+04_JPRB,0.78410E+03_JPRB,0.58806E+03_JPRB,0.86567E+03_JPRB,0.11437E+04_JPRB /)  
+KB(:, 5,43, 9) = (/ &
+ & 0.10343E+04_JPRB,0.78406E+03_JPRB,0.58704E+03_JPRB,0.86435E+03_JPRB,0.11420E+04_JPRB /)  
+KB(:, 1,44, 9) = (/ &
+ & 0.10344E+04_JPRB,0.78409E+03_JPRB,0.58998E+03_JPRB,0.86862E+03_JPRB,0.11476E+04_JPRB /)  
+KB(:, 2,44, 9) = (/ &
+ & 0.10343E+04_JPRB,0.78407E+03_JPRB,0.58962E+03_JPRB,0.86796E+03_JPRB,0.11467E+04_JPRB /)  
+KB(:, 3,44, 9) = (/ &
+ & 0.10343E+04_JPRB,0.78406E+03_JPRB,0.58910E+03_JPRB,0.86711E+03_JPRB,0.11456E+04_JPRB /)  
+KB(:, 4,44, 9) = (/ &
+ & 0.10343E+04_JPRB,0.78403E+03_JPRB,0.58835E+03_JPRB,0.86607E+03_JPRB,0.11442E+04_JPRB /)  
+KB(:, 5,44, 9) = (/ &
+ & 0.10343E+04_JPRB,0.78403E+03_JPRB,0.58738E+03_JPRB,0.86483E+03_JPRB,0.11426E+04_JPRB /)  
+KB(:, 1,45, 9) = (/ &
+ & 0.10343E+04_JPRB,0.78404E+03_JPRB,0.59009E+03_JPRB,0.86881E+03_JPRB,0.11478E+04_JPRB /)  
+KB(:, 2,45, 9) = (/ &
+ & 0.10343E+04_JPRB,0.78405E+03_JPRB,0.58975E+03_JPRB,0.86821E+03_JPRB,0.11471E+04_JPRB /)  
+KB(:, 3,45, 9) = (/ &
+ & 0.10343E+04_JPRB,0.78404E+03_JPRB,0.58930E+03_JPRB,0.86741E+03_JPRB,0.11460E+04_JPRB /)  
+KB(:, 4,45, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78400E+03_JPRB,0.58862E+03_JPRB,0.86644E+03_JPRB,0.11447E+04_JPRB /)  
+KB(:, 5,45, 9) = (/ &
+ & 0.10343E+04_JPRB,0.78402E+03_JPRB,0.58769E+03_JPRB,0.86520E+03_JPRB,0.11432E+04_JPRB /)  
+KB(:, 1,46, 9) = (/ &
+ & 0.10343E+04_JPRB,0.78403E+03_JPRB,0.59019E+03_JPRB,0.86899E+03_JPRB,0.11481E+04_JPRB /)  
+KB(:, 2,46, 9) = (/ &
+ & 0.10343E+04_JPRB,0.78403E+03_JPRB,0.58989E+03_JPRB,0.86845E+03_JPRB,0.11474E+04_JPRB /)  
+KB(:, 3,46, 9) = (/ &
+ & 0.10343E+04_JPRB,0.78403E+03_JPRB,0.58947E+03_JPRB,0.86773E+03_JPRB,0.11464E+04_JPRB /)  
+KB(:, 4,46, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78401E+03_JPRB,0.58890E+03_JPRB,0.86681E+03_JPRB,0.11452E+04_JPRB /)  
+KB(:, 5,46, 9) = (/ &
+ & 0.10343E+04_JPRB,0.78405E+03_JPRB,0.58808E+03_JPRB,0.86568E+03_JPRB,0.11438E+04_JPRB /)  
+KB(:, 1,47, 9) = (/ &
+ & 0.10343E+04_JPRB,0.78401E+03_JPRB,0.59032E+03_JPRB,0.86917E+03_JPRB,0.11483E+04_JPRB /)  
+KB(:, 2,47, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78398E+03_JPRB,0.59001E+03_JPRB,0.86868E+03_JPRB,0.11477E+04_JPRB /)  
+KB(:, 3,47, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78398E+03_JPRB,0.58967E+03_JPRB,0.86807E+03_JPRB,0.11468E+04_JPRB /)  
+KB(:, 4,47, 9) = (/ &
+ & 0.10343E+04_JPRB,0.78397E+03_JPRB,0.58916E+03_JPRB,0.86720E+03_JPRB,0.11457E+04_JPRB /)  
+KB(:, 5,47, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78399E+03_JPRB,0.58844E+03_JPRB,0.86618E+03_JPRB,0.11444E+04_JPRB /)  
+KB(:, 1,48, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78399E+03_JPRB,0.59046E+03_JPRB,0.86932E+03_JPRB,0.11485E+04_JPRB /)  
+KB(:, 2,48, 9) = (/ &
+ & 0.10343E+04_JPRB,0.78398E+03_JPRB,0.59013E+03_JPRB,0.86890E+03_JPRB,0.11480E+04_JPRB /)  
+KB(:, 3,48, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78402E+03_JPRB,0.58982E+03_JPRB,0.86829E+03_JPRB,0.11472E+04_JPRB /)  
+KB(:, 4,48, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78396E+03_JPRB,0.58938E+03_JPRB,0.86756E+03_JPRB,0.11462E+04_JPRB /)  
+KB(:, 5,48, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78400E+03_JPRB,0.58875E+03_JPRB,0.86661E+03_JPRB,0.11449E+04_JPRB /)  
+KB(:, 1,49, 9) = (/ &
+ & 0.10343E+04_JPRB,0.78402E+03_JPRB,0.59060E+03_JPRB,0.86945E+03_JPRB,0.11486E+04_JPRB /)  
+KB(:, 2,49, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78398E+03_JPRB,0.59025E+03_JPRB,0.86908E+03_JPRB,0.11482E+04_JPRB /)  
+KB(:, 3,49, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78399E+03_JPRB,0.58995E+03_JPRB,0.86856E+03_JPRB,0.11475E+04_JPRB /)  
+KB(:, 4,49, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78399E+03_JPRB,0.58958E+03_JPRB,0.86790E+03_JPRB,0.11466E+04_JPRB /)  
+KB(:, 5,49, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78398E+03_JPRB,0.58903E+03_JPRB,0.86700E+03_JPRB,0.11455E+04_JPRB /)  
+KB(:, 1,50, 9) = (/ &
+ & 0.10343E+04_JPRB,0.78395E+03_JPRB,0.59074E+03_JPRB,0.86956E+03_JPRB,0.11487E+04_JPRB /)  
+KB(:, 2,50, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78399E+03_JPRB,0.59038E+03_JPRB,0.86924E+03_JPRB,0.11483E+04_JPRB /)  
+KB(:, 3,50, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78394E+03_JPRB,0.59006E+03_JPRB,0.86878E+03_JPRB,0.11478E+04_JPRB /)  
+KB(:, 4,50, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78399E+03_JPRB,0.58974E+03_JPRB,0.86817E+03_JPRB,0.11470E+04_JPRB /)  
+KB(:, 5,50, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78395E+03_JPRB,0.58927E+03_JPRB,0.86736E+03_JPRB,0.11460E+04_JPRB /)  
+KB(:, 1,51, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78399E+03_JPRB,0.59088E+03_JPRB,0.86965E+03_JPRB,0.11488E+04_JPRB /)  
+KB(:, 2,51, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78393E+03_JPRB,0.59051E+03_JPRB,0.86937E+03_JPRB,0.11485E+04_JPRB /)  
+KB(:, 3,51, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78400E+03_JPRB,0.59018E+03_JPRB,0.86897E+03_JPRB,0.11480E+04_JPRB /)  
+KB(:, 4,51, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78396E+03_JPRB,0.58987E+03_JPRB,0.86840E+03_JPRB,0.11473E+04_JPRB /)  
+KB(:, 5,51, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78396E+03_JPRB,0.58946E+03_JPRB,0.86768E+03_JPRB,0.11464E+04_JPRB /)  
+KB(:, 1,52, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78395E+03_JPRB,0.59100E+03_JPRB,0.86971E+03_JPRB,0.11490E+04_JPRB /)  
+KB(:, 2,52, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78394E+03_JPRB,0.59064E+03_JPRB,0.86949E+03_JPRB,0.11486E+04_JPRB /)  
+KB(:, 3,52, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78395E+03_JPRB,0.59029E+03_JPRB,0.86915E+03_JPRB,0.11482E+04_JPRB /)  
+KB(:, 4,52, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78394E+03_JPRB,0.58998E+03_JPRB,0.86864E+03_JPRB,0.11476E+04_JPRB /)  
+KB(:, 5,52, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78395E+03_JPRB,0.58963E+03_JPRB,0.86796E+03_JPRB,0.11468E+04_JPRB /)  
+KB(:, 1,53, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78397E+03_JPRB,0.59111E+03_JPRB,0.86975E+03_JPRB,0.11490E+04_JPRB /)  
+KB(:, 2,53, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78394E+03_JPRB,0.59078E+03_JPRB,0.86960E+03_JPRB,0.11488E+04_JPRB /)  
+KB(:, 3,53, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78396E+03_JPRB,0.59041E+03_JPRB,0.86926E+03_JPRB,0.11484E+04_JPRB /)  
+KB(:, 4,53, 9) = (/ &
+ & 0.10341E+04_JPRB,0.78393E+03_JPRB,0.59010E+03_JPRB,0.86884E+03_JPRB,0.11479E+04_JPRB /)  
+KB(:, 5,53, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78395E+03_JPRB,0.58977E+03_JPRB,0.86822E+03_JPRB,0.11471E+04_JPRB /)  
+KB(:, 1,54, 9) = (/ &
+ & 0.10343E+04_JPRB,0.78394E+03_JPRB,0.59121E+03_JPRB,0.86979E+03_JPRB,0.11491E+04_JPRB /)  
+KB(:, 2,54, 9) = (/ &
+ & 0.10341E+04_JPRB,0.78399E+03_JPRB,0.59088E+03_JPRB,0.86966E+03_JPRB,0.11489E+04_JPRB /)  
+KB(:, 3,54, 9) = (/ &
+ & 0.10341E+04_JPRB,0.78394E+03_JPRB,0.59052E+03_JPRB,0.86939E+03_JPRB,0.11485E+04_JPRB /)  
+KB(:, 4,54, 9) = (/ &
+ & 0.10341E+04_JPRB,0.78394E+03_JPRB,0.59020E+03_JPRB,0.86900E+03_JPRB,0.11481E+04_JPRB /)  
+KB(:, 5,54, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78395E+03_JPRB,0.58987E+03_JPRB,0.86845E+03_JPRB,0.11474E+04_JPRB /)  
+KB(:, 1,55, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78396E+03_JPRB,0.59130E+03_JPRB,0.86983E+03_JPRB,0.11491E+04_JPRB /)  
+KB(:, 2,55, 9) = (/ &
+ & 0.10341E+04_JPRB,0.78393E+03_JPRB,0.59100E+03_JPRB,0.86971E+03_JPRB,0.11490E+04_JPRB /)  
+KB(:, 3,55, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78393E+03_JPRB,0.59065E+03_JPRB,0.86949E+03_JPRB,0.11486E+04_JPRB /)  
+KB(:, 4,55, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78395E+03_JPRB,0.59029E+03_JPRB,0.86914E+03_JPRB,0.11483E+04_JPRB /)  
+KB(:, 5,55, 9) = (/ &
+ & 0.10341E+04_JPRB,0.78393E+03_JPRB,0.59000E+03_JPRB,0.86864E+03_JPRB,0.11477E+04_JPRB /)  
+KB(:, 1,56, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78393E+03_JPRB,0.59137E+03_JPRB,0.86987E+03_JPRB,0.11492E+04_JPRB /)  
+KB(:, 2,56, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78395E+03_JPRB,0.59111E+03_JPRB,0.86975E+03_JPRB,0.11490E+04_JPRB /)  
+KB(:, 3,56, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78392E+03_JPRB,0.59077E+03_JPRB,0.86958E+03_JPRB,0.11488E+04_JPRB /)  
+KB(:, 4,56, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78393E+03_JPRB,0.59040E+03_JPRB,0.86926E+03_JPRB,0.11484E+04_JPRB /)  
+KB(:, 5,56, 9) = (/ &
+ & 0.10341E+04_JPRB,0.78393E+03_JPRB,0.59009E+03_JPRB,0.86883E+03_JPRB,0.11479E+04_JPRB /)  
+KB(:, 1,57, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78396E+03_JPRB,0.59143E+03_JPRB,0.86993E+03_JPRB,0.11492E+04_JPRB /)  
+KB(:, 2,57, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78392E+03_JPRB,0.59122E+03_JPRB,0.86979E+03_JPRB,0.11491E+04_JPRB /)  
+KB(:, 3,57, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78392E+03_JPRB,0.59089E+03_JPRB,0.86966E+03_JPRB,0.11489E+04_JPRB /)  
+KB(:, 4,57, 9) = (/ &
+ & 0.10341E+04_JPRB,0.78395E+03_JPRB,0.59052E+03_JPRB,0.86938E+03_JPRB,0.11485E+04_JPRB /)  
+KB(:, 5,57, 9) = (/ &
+ & 0.10341E+04_JPRB,0.78393E+03_JPRB,0.59018E+03_JPRB,0.86897E+03_JPRB,0.11481E+04_JPRB /)  
+KB(:, 1,58, 9) = (/ &
+ & 0.10341E+04_JPRB,0.78395E+03_JPRB,0.59147E+03_JPRB,0.86996E+03_JPRB,0.11493E+04_JPRB /)  
+KB(:, 2,58, 9) = (/ &
+ & 0.10341E+04_JPRB,0.78397E+03_JPRB,0.59129E+03_JPRB,0.86982E+03_JPRB,0.11491E+04_JPRB /)  
+KB(:, 3,58, 9) = (/ &
+ & 0.10341E+04_JPRB,0.78393E+03_JPRB,0.59099E+03_JPRB,0.86970E+03_JPRB,0.11489E+04_JPRB /)  
+KB(:, 4,58, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78397E+03_JPRB,0.59063E+03_JPRB,0.86948E+03_JPRB,0.11486E+04_JPRB /)  
+KB(:, 5,58, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78390E+03_JPRB,0.59028E+03_JPRB,0.86913E+03_JPRB,0.11482E+04_JPRB /)  
+KB(:, 1,59, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78393E+03_JPRB,0.59148E+03_JPRB,0.86998E+03_JPRB,0.11494E+04_JPRB /)  
+KB(:, 2,59, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78396E+03_JPRB,0.59132E+03_JPRB,0.86982E+03_JPRB,0.11492E+04_JPRB /)  
+KB(:, 3,59, 9) = (/ &
+ & 0.10342E+04_JPRB,0.78393E+03_JPRB,0.59103E+03_JPRB,0.86972E+03_JPRB,0.11490E+04_JPRB /)  
+KB(:, 4,59, 9) = (/ &
+ & 0.10341E+04_JPRB,0.78394E+03_JPRB,0.59067E+03_JPRB,0.86951E+03_JPRB,0.11487E+04_JPRB /)  
+KB(:, 5,59, 9) = (/ &
+ & 0.10341E+04_JPRB,0.78397E+03_JPRB,0.59032E+03_JPRB,0.86918E+03_JPRB,0.11483E+04_JPRB /)  
+KB(:, 1,13,10) = (/ &
+ & 0.11544E+04_JPRB,0.87486E+03_JPRB,0.59975E+03_JPRB,0.88029E+03_JPRB,0.11631E+04_JPRB /)  
+KB(:, 2,13,10) = (/ &
+ & 0.11458E+04_JPRB,0.86752E+03_JPRB,0.59921E+03_JPRB,0.87889E+03_JPRB,0.11611E+04_JPRB /)  
+KB(:, 3,13,10) = (/ &
+ & 0.11380E+04_JPRB,0.86177E+03_JPRB,0.59836E+03_JPRB,0.87789E+03_JPRB,0.11592E+04_JPRB /)  
+KB(:, 4,13,10) = (/ &
+ & 0.11310E+04_JPRB,0.85697E+03_JPRB,0.59745E+03_JPRB,0.87697E+03_JPRB,0.11577E+04_JPRB /)  
+KB(:, 5,13,10) = (/ &
+ & 0.11259E+04_JPRB,0.85279E+03_JPRB,0.59663E+03_JPRB,0.87606E+03_JPRB,0.11564E+04_JPRB /)  
+KB(:, 1,14,10) = (/ &
+ & 0.11329E+04_JPRB,0.85757E+03_JPRB,0.59935E+03_JPRB,0.88000E+03_JPRB,0.11630E+04_JPRB /)  
+KB(:, 2,14,10) = (/ &
+ & 0.11257E+04_JPRB,0.85228E+03_JPRB,0.59878E+03_JPRB,0.87841E+03_JPRB,0.11609E+04_JPRB /)  
+KB(:, 3,14,10) = (/ &
+ & 0.11201E+04_JPRB,0.84731E+03_JPRB,0.59797E+03_JPRB,0.87766E+03_JPRB,0.11591E+04_JPRB /)  
+KB(:, 4,14,10) = (/ &
+ & 0.11140E+04_JPRB,0.84389E+03_JPRB,0.59731E+03_JPRB,0.87707E+03_JPRB,0.11577E+04_JPRB /)  
+KB(:, 5,14,10) = (/ &
+ & 0.11094E+04_JPRB,0.84001E+03_JPRB,0.59642E+03_JPRB,0.87571E+03_JPRB,0.11561E+04_JPRB /)  
+KB(:, 1,15,10) = (/ &
+ & 0.11142E+04_JPRB,0.84370E+03_JPRB,0.59900E+03_JPRB,0.87973E+03_JPRB,0.11627E+04_JPRB /)  
+KB(:, 2,15,10) = (/ &
+ & 0.11097E+04_JPRB,0.84029E+03_JPRB,0.59841E+03_JPRB,0.87827E+03_JPRB,0.11607E+04_JPRB /)  
+KB(:, 3,15,10) = (/ &
+ & 0.11039E+04_JPRB,0.83570E+03_JPRB,0.59763E+03_JPRB,0.87745E+03_JPRB,0.11587E+04_JPRB /)  
+KB(:, 4,15,10) = (/ &
+ & 0.10995E+04_JPRB,0.83295E+03_JPRB,0.59685E+03_JPRB,0.87664E+03_JPRB,0.11574E+04_JPRB /)  
+KB(:, 5,15,10) = (/ &
+ & 0.10956E+04_JPRB,0.82966E+03_JPRB,0.59611E+03_JPRB,0.87548E+03_JPRB,0.11555E+04_JPRB /)  
+KB(:, 1,16,10) = (/ &
+ & 0.11006E+04_JPRB,0.83290E+03_JPRB,0.59871E+03_JPRB,0.87947E+03_JPRB,0.11625E+04_JPRB /)  
+KB(:, 2,16,10) = (/ &
+ & 0.10967E+04_JPRB,0.82960E+03_JPRB,0.59809E+03_JPRB,0.87696E+03_JPRB,0.11605E+04_JPRB /)  
+KB(:, 3,16,10) = (/ &
+ & 0.10908E+04_JPRB,0.82627E+03_JPRB,0.59735E+03_JPRB,0.87716E+03_JPRB,0.11587E+04_JPRB /)  
+KB(:, 4,16,10) = (/ &
+ & 0.10878E+04_JPRB,0.82496E+03_JPRB,0.59665E+03_JPRB,0.87645E+03_JPRB,0.11573E+04_JPRB /)  
+KB(:, 5,16,10) = (/ &
+ & 0.10846E+04_JPRB,0.82140E+03_JPRB,0.59584E+03_JPRB,0.87537E+03_JPRB,0.11556E+04_JPRB /)  
+KB(:, 1,17,10) = (/ &
+ & 0.10872E+04_JPRB,0.82399E+03_JPRB,0.59847E+03_JPRB,0.87912E+03_JPRB,0.11623E+04_JPRB /)  
+KB(:, 2,17,10) = (/ &
+ & 0.10836E+04_JPRB,0.82137E+03_JPRB,0.59782E+03_JPRB,0.87785E+03_JPRB,0.11604E+04_JPRB /)  
+KB(:, 3,17,10) = (/ &
+ & 0.10806E+04_JPRB,0.81903E+03_JPRB,0.59710E+03_JPRB,0.87700E+03_JPRB,0.11586E+04_JPRB /)  
+KB(:, 4,17,10) = (/ &
+ & 0.10781E+04_JPRB,0.81649E+03_JPRB,0.59641E+03_JPRB,0.87627E+03_JPRB,0.11571E+04_JPRB /)  
+KB(:, 5,17,10) = (/ &
+ & 0.10750E+04_JPRB,0.81461E+03_JPRB,0.59560E+03_JPRB,0.87517E+03_JPRB,0.11554E+04_JPRB /)  
+KB(:, 1,18,10) = (/ &
+ & 0.10783E+04_JPRB,0.81627E+03_JPRB,0.59826E+03_JPRB,0.87902E+03_JPRB,0.11620E+04_JPRB /)  
+KB(:, 2,18,10) = (/ &
+ & 0.10752E+04_JPRB,0.81450E+03_JPRB,0.59759E+03_JPRB,0.87778E+03_JPRB,0.11602E+04_JPRB /)  
+KB(:, 3,18,10) = (/ &
+ & 0.10718E+04_JPRB,0.81284E+03_JPRB,0.59689E+03_JPRB,0.87707E+03_JPRB,0.11584E+04_JPRB /)  
+KB(:, 4,18,10) = (/ &
+ & 0.10695E+04_JPRB,0.81051E+03_JPRB,0.59620E+03_JPRB,0.87578E+03_JPRB,0.11570E+04_JPRB /)  
+KB(:, 5,18,10) = (/ &
+ & 0.10675E+04_JPRB,0.80859E+03_JPRB,0.59539E+03_JPRB,0.87498E+03_JPRB,0.11554E+04_JPRB /)  
+KB(:, 1,19,10) = (/ &
+ & 0.10693E+04_JPRB,0.81014E+03_JPRB,0.59808E+03_JPRB,0.87871E+03_JPRB,0.11618E+04_JPRB /)  
+KB(:, 2,19,10) = (/ &
+ & 0.10674E+04_JPRB,0.80961E+03_JPRB,0.59739E+03_JPRB,0.87763E+03_JPRB,0.11601E+04_JPRB /)  
+KB(:, 3,19,10) = (/ &
+ & 0.10651E+04_JPRB,0.80782E+03_JPRB,0.59664E+03_JPRB,0.87683E+03_JPRB,0.11582E+04_JPRB /)  
+KB(:, 4,19,10) = (/ &
+ & 0.10639E+04_JPRB,0.80562E+03_JPRB,0.59610E+03_JPRB,0.87595E+03_JPRB,0.11569E+04_JPRB /)  
+KB(:, 5,19,10) = (/ &
+ & 0.10620E+04_JPRB,0.80440E+03_JPRB,0.59520E+03_JPRB,0.87481E+03_JPRB,0.11551E+04_JPRB /)  
+KB(:, 1,20,10) = (/ &
+ & 0.10633E+04_JPRB,0.80580E+03_JPRB,0.59791E+03_JPRB,0.87862E+03_JPRB,0.11616E+04_JPRB /)  
+KB(:, 2,20,10) = (/ &
+ & 0.10619E+04_JPRB,0.80442E+03_JPRB,0.59720E+03_JPRB,0.87747E+03_JPRB,0.11598E+04_JPRB /)  
+KB(:, 3,20,10) = (/ &
+ & 0.10607E+04_JPRB,0.80344E+03_JPRB,0.59654E+03_JPRB,0.87680E+03_JPRB,0.11581E+04_JPRB /)  
+KB(:, 4,20,10) = (/ &
+ & 0.10584E+04_JPRB,0.80182E+03_JPRB,0.59585E+03_JPRB,0.87568E+03_JPRB,0.11568E+04_JPRB /)  
+KB(:, 5,20,10) = (/ &
+ & 0.10568E+04_JPRB,0.80142E+03_JPRB,0.59502E+03_JPRB,0.87461E+03_JPRB,0.11549E+04_JPRB /)  
+KB(:, 1,21,10) = (/ &
+ & 0.10577E+04_JPRB,0.80247E+03_JPRB,0.59775E+03_JPRB,0.87831E+03_JPRB,0.11614E+04_JPRB /)  
+KB(:, 2,21,10) = (/ &
+ & 0.10572E+04_JPRB,0.80108E+03_JPRB,0.59703E+03_JPRB,0.87733E+03_JPRB,0.11595E+04_JPRB /)  
+KB(:, 3,21,10) = (/ &
+ & 0.10551E+04_JPRB,0.79955E+03_JPRB,0.59639E+03_JPRB,0.87689E+03_JPRB,0.11579E+04_JPRB /)  
+KB(:, 4,21,10) = (/ &
+ & 0.10548E+04_JPRB,0.79914E+03_JPRB,0.59569E+03_JPRB,0.87563E+03_JPRB,0.11565E+04_JPRB /)  
+KB(:, 5,21,10) = (/ &
+ & 0.10533E+04_JPRB,0.79794E+03_JPRB,0.59484E+03_JPRB,0.87454E+03_JPRB,0.11546E+04_JPRB /)  
+KB(:, 1,22,10) = (/ &
+ & 0.10544E+04_JPRB,0.79901E+03_JPRB,0.59755E+03_JPRB,0.87816E+03_JPRB,0.11610E+04_JPRB /)  
+KB(:, 2,22,10) = (/ &
+ & 0.10524E+04_JPRB,0.79865E+03_JPRB,0.59692E+03_JPRB,0.87715E+03_JPRB,0.11592E+04_JPRB /)  
+KB(:, 3,22,10) = (/ &
+ & 0.10518E+04_JPRB,0.79733E+03_JPRB,0.59621E+03_JPRB,0.87638E+03_JPRB,0.11576E+04_JPRB /)  
+KB(:, 4,22,10) = (/ &
+ & 0.10503E+04_JPRB,0.79602E+03_JPRB,0.59549E+03_JPRB,0.87540E+03_JPRB,0.11562E+04_JPRB /)  
+KB(:, 5,22,10) = (/ &
+ & 0.10497E+04_JPRB,0.79577E+03_JPRB,0.59455E+03_JPRB,0.87415E+03_JPRB,0.11542E+04_JPRB /)  
+KB(:, 1,23,10) = (/ &
+ & 0.10504E+04_JPRB,0.79618E+03_JPRB,0.59736E+03_JPRB,0.87790E+03_JPRB,0.11608E+04_JPRB /)  
+KB(:, 2,23,10) = (/ &
+ & 0.10488E+04_JPRB,0.79542E+03_JPRB,0.59652E+03_JPRB,0.87687E+03_JPRB,0.11588E+04_JPRB /)  
+KB(:, 3,23,10) = (/ &
+ & 0.10489E+04_JPRB,0.79466E+03_JPRB,0.59603E+03_JPRB,0.87619E+03_JPRB,0.11574E+04_JPRB /)  
+KB(:, 4,23,10) = (/ &
+ & 0.10477E+04_JPRB,0.79399E+03_JPRB,0.59528E+03_JPRB,0.87505E+03_JPRB,0.11559E+04_JPRB /)  
+KB(:, 5,23,10) = (/ &
+ & 0.10468E+04_JPRB,0.79357E+03_JPRB,0.59440E+03_JPRB,0.87388E+03_JPRB,0.11537E+04_JPRB /)  
+KB(:, 1,24,10) = (/ &
+ & 0.10475E+04_JPRB,0.79355E+03_JPRB,0.59716E+03_JPRB,0.87766E+03_JPRB,0.11603E+04_JPRB /)  
+KB(:, 2,24,10) = (/ &
+ & 0.10471E+04_JPRB,0.79325E+03_JPRB,0.59650E+03_JPRB,0.87681E+03_JPRB,0.11585E+04_JPRB /)  
+KB(:, 3,24,10) = (/ &
+ & 0.10463E+04_JPRB,0.79243E+03_JPRB,0.59586E+03_JPRB,0.87587E+03_JPRB,0.11571E+04_JPRB /)  
+KB(:, 4,24,10) = (/ &
+ & 0.10454E+04_JPRB,0.79206E+03_JPRB,0.59508E+03_JPRB,0.87468E+03_JPRB,0.11555E+04_JPRB /)  
+KB(:, 5,24,10) = (/ &
+ & 0.10455E+04_JPRB,0.79146E+03_JPRB,0.59426E+03_JPRB,0.87360E+03_JPRB,0.11532E+04_JPRB /)  
+KB(:, 1,25,10) = (/ &
+ & 0.10443E+04_JPRB,0.79222E+03_JPRB,0.59698E+03_JPRB,0.87742E+03_JPRB,0.11598E+04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART26',1,ZHOOK_HANDLE)
+END SUBROUTINE PART26
+
+
+SUBROUTINE PART27
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART27',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,25,10) = (/ &
+ & 0.10446E+04_JPRB,0.79165E+03_JPRB,0.59633E+03_JPRB,0.87696E+03_JPRB,0.11582E+04_JPRB /)  
+KB(:, 3,25,10) = (/ &
+ & 0.10440E+04_JPRB,0.79123E+03_JPRB,0.59567E+03_JPRB,0.87565E+03_JPRB,0.11568E+04_JPRB /)  
+KB(:, 4,25,10) = (/ &
+ & 0.10433E+04_JPRB,0.79106E+03_JPRB,0.59487E+03_JPRB,0.87451E+03_JPRB,0.11551E+04_JPRB /)  
+KB(:, 5,25,10) = (/ &
+ & 0.10423E+04_JPRB,0.79063E+03_JPRB,0.59375E+03_JPRB,0.87329E+03_JPRB,0.11525E+04_JPRB /)  
+KB(:, 1,26,10) = (/ &
+ & 0.10431E+04_JPRB,0.79112E+03_JPRB,0.59671E+03_JPRB,0.87720E+03_JPRB,0.11595E+04_JPRB /)  
+KB(:, 2,26,10) = (/ &
+ & 0.10430E+04_JPRB,0.79016E+03_JPRB,0.59608E+03_JPRB,0.87633E+03_JPRB,0.11579E+04_JPRB /)  
+KB(:, 3,26,10) = (/ &
+ & 0.10422E+04_JPRB,0.78992E+03_JPRB,0.59547E+03_JPRB,0.87551E+03_JPRB,0.11565E+04_JPRB /)  
+KB(:, 4,26,10) = (/ &
+ & 0.10418E+04_JPRB,0.78943E+03_JPRB,0.59456E+03_JPRB,0.87419E+03_JPRB,0.11545E+04_JPRB /)  
+KB(:, 5,26,10) = (/ &
+ & 0.10417E+04_JPRB,0.78966E+03_JPRB,0.59375E+03_JPRB,0.87285E+03_JPRB,0.11523E+04_JPRB /)  
+KB(:, 1,27,10) = (/ &
+ & 0.10421E+04_JPRB,0.78970E+03_JPRB,0.59653E+03_JPRB,0.87700E+03_JPRB,0.11589E+04_JPRB /)  
+KB(:, 2,27,10) = (/ &
+ & 0.10419E+04_JPRB,0.78911E+03_JPRB,0.59591E+03_JPRB,0.87623E+03_JPRB,0.11575E+04_JPRB /)  
+KB(:, 3,27,10) = (/ &
+ & 0.10414E+04_JPRB,0.78914E+03_JPRB,0.59527E+03_JPRB,0.87524E+03_JPRB,0.11555E+04_JPRB /)  
+KB(:, 4,27,10) = (/ &
+ & 0.10412E+04_JPRB,0.78891E+03_JPRB,0.59440E+03_JPRB,0.87398E+03_JPRB,0.11540E+04_JPRB /)  
+KB(:, 5,27,10) = (/ &
+ & 0.10400E+04_JPRB,0.78850E+03_JPRB,0.59354E+03_JPRB,0.87262E+03_JPRB,0.11516E+04_JPRB /)  
+KB(:, 1,28,10) = (/ &
+ & 0.10402E+04_JPRB,0.78860E+03_JPRB,0.59644E+03_JPRB,0.87682E+03_JPRB,0.11586E+04_JPRB /)  
+KB(:, 2,28,10) = (/ &
+ & 0.10405E+04_JPRB,0.78788E+03_JPRB,0.59574E+03_JPRB,0.87579E+03_JPRB,0.11571E+04_JPRB /)  
+KB(:, 3,28,10) = (/ &
+ & 0.10403E+04_JPRB,0.78855E+03_JPRB,0.59498E+03_JPRB,0.87473E+03_JPRB,0.11552E+04_JPRB /)  
+KB(:, 4,28,10) = (/ &
+ & 0.10397E+04_JPRB,0.78826E+03_JPRB,0.59417E+03_JPRB,0.87377E+03_JPRB,0.11534E+04_JPRB /)  
+KB(:, 5,28,10) = (/ &
+ & 0.10396E+04_JPRB,0.78810E+03_JPRB,0.59333E+03_JPRB,0.87227E+03_JPRB,0.11511E+04_JPRB /)  
+KB(:, 1,29,10) = (/ &
+ & 0.10391E+04_JPRB,0.78797E+03_JPRB,0.59612E+03_JPRB,0.87685E+03_JPRB,0.11584E+04_JPRB /)  
+KB(:, 2,29,10) = (/ &
+ & 0.10393E+04_JPRB,0.78808E+03_JPRB,0.59562E+03_JPRB,0.87577E+03_JPRB,0.11569E+04_JPRB /)  
+KB(:, 3,29,10) = (/ &
+ & 0.10401E+04_JPRB,0.78791E+03_JPRB,0.59476E+03_JPRB,0.87463E+03_JPRB,0.11550E+04_JPRB /)  
+KB(:, 4,29,10) = (/ &
+ & 0.10388E+04_JPRB,0.78727E+03_JPRB,0.59387E+03_JPRB,0.87332E+03_JPRB,0.11526E+04_JPRB /)  
+KB(:, 5,29,10) = (/ &
+ & 0.10383E+04_JPRB,0.78753E+03_JPRB,0.59306E+03_JPRB,0.87189E+03_JPRB,0.11504E+04_JPRB /)  
+KB(:, 1,30,10) = (/ &
+ & 0.10398E+04_JPRB,0.78748E+03_JPRB,0.59603E+03_JPRB,0.87643E+03_JPRB,0.11579E+04_JPRB /)  
+KB(:, 2,30,10) = (/ &
+ & 0.10387E+04_JPRB,0.78733E+03_JPRB,0.59550E+03_JPRB,0.87550E+03_JPRB,0.11567E+04_JPRB /)  
+KB(:, 3,30,10) = (/ &
+ & 0.10384E+04_JPRB,0.78700E+03_JPRB,0.59460E+03_JPRB,0.87431E+03_JPRB,0.11543E+04_JPRB /)  
+KB(:, 4,30,10) = (/ &
+ & 0.10381E+04_JPRB,0.78738E+03_JPRB,0.59372E+03_JPRB,0.87275E+03_JPRB,0.11522E+04_JPRB /)  
+KB(:, 5,30,10) = (/ &
+ & 0.10382E+04_JPRB,0.78707E+03_JPRB,0.59292E+03_JPRB,0.87137E+03_JPRB,0.11500E+04_JPRB /)  
+KB(:, 1,31,10) = (/ &
+ & 0.10388E+04_JPRB,0.78740E+03_JPRB,0.59593E+03_JPRB,0.87621E+03_JPRB,0.11575E+04_JPRB /)  
+KB(:, 2,31,10) = (/ &
+ & 0.10385E+04_JPRB,0.78757E+03_JPRB,0.59522E+03_JPRB,0.87522E+03_JPRB,0.11561E+04_JPRB /)  
+KB(:, 3,31,10) = (/ &
+ & 0.10386E+04_JPRB,0.78718E+03_JPRB,0.59436E+03_JPRB,0.87397E+03_JPRB,0.11540E+04_JPRB /)  
+KB(:, 4,31,10) = (/ &
+ & 0.10377E+04_JPRB,0.78650E+03_JPRB,0.59350E+03_JPRB,0.87250E+03_JPRB,0.11516E+04_JPRB /)  
+KB(:, 5,31,10) = (/ &
+ & 0.10376E+04_JPRB,0.78651E+03_JPRB,0.59269E+03_JPRB,0.87108E+03_JPRB,0.11495E+04_JPRB /)  
+KB(:, 1,32,10) = (/ &
+ & 0.10383E+04_JPRB,0.78682E+03_JPRB,0.59576E+03_JPRB,0.87597E+03_JPRB,0.11572E+04_JPRB /)  
+KB(:, 2,32,10) = (/ &
+ & 0.10383E+04_JPRB,0.78712E+03_JPRB,0.59500E+03_JPRB,0.87480E+03_JPRB,0.11556E+04_JPRB /)  
+KB(:, 3,32,10) = (/ &
+ & 0.10381E+04_JPRB,0.78606E+03_JPRB,0.59405E+03_JPRB,0.87362E+03_JPRB,0.11534E+04_JPRB /)  
+KB(:, 4,32,10) = (/ &
+ & 0.10372E+04_JPRB,0.78628E+03_JPRB,0.59329E+03_JPRB,0.87223E+03_JPRB,0.11510E+04_JPRB /)  
+KB(:, 5,32,10) = (/ &
+ & 0.10377E+04_JPRB,0.78690E+03_JPRB,0.59245E+03_JPRB,0.87068E+03_JPRB,0.11490E+04_JPRB /)  
+KB(:, 1,33,10) = (/ &
+ & 0.10380E+04_JPRB,0.78593E+03_JPRB,0.59549E+03_JPRB,0.87572E+03_JPRB,0.11567E+04_JPRB /)  
+KB(:, 2,33,10) = (/ &
+ & 0.10375E+04_JPRB,0.78654E+03_JPRB,0.59477E+03_JPRB,0.87458E+03_JPRB,0.11551E+04_JPRB /)  
+KB(:, 3,33,10) = (/ &
+ & 0.10374E+04_JPRB,0.78686E+03_JPRB,0.59389E+03_JPRB,0.87337E+03_JPRB,0.11527E+04_JPRB /)  
+KB(:, 4,33,10) = (/ &
+ & 0.10366E+04_JPRB,0.78593E+03_JPRB,0.59308E+03_JPRB,0.87194E+03_JPRB,0.11506E+04_JPRB /)  
+KB(:, 5,33,10) = (/ &
+ & 0.10369E+04_JPRB,0.78626E+03_JPRB,0.59219E+03_JPRB,0.87038E+03_JPRB,0.11486E+04_JPRB /)  
+KB(:, 1,34,10) = (/ &
+ & 0.10373E+04_JPRB,0.78657E+03_JPRB,0.59539E+03_JPRB,0.87559E+03_JPRB,0.11565E+04_JPRB /)  
+KB(:, 2,34,10) = (/ &
+ & 0.10370E+04_JPRB,0.78641E+03_JPRB,0.59464E+03_JPRB,0.87429E+03_JPRB,0.11546E+04_JPRB /)  
+KB(:, 3,34,10) = (/ &
+ & 0.10370E+04_JPRB,0.78587E+03_JPRB,0.59369E+03_JPRB,0.87295E+03_JPRB,0.11522E+04_JPRB /)  
+KB(:, 4,34,10) = (/ &
+ & 0.10371E+04_JPRB,0.78562E+03_JPRB,0.59289E+03_JPRB,0.87146E+03_JPRB,0.11500E+04_JPRB /)  
+KB(:, 5,34,10) = (/ &
+ & 0.10372E+04_JPRB,0.78597E+03_JPRB,0.59202E+03_JPRB,0.86991E+03_JPRB,0.11482E+04_JPRB /)  
+KB(:, 1,35,10) = (/ &
+ & 0.10364E+04_JPRB,0.78559E+03_JPRB,0.59529E+03_JPRB,0.87523E+03_JPRB,0.11563E+04_JPRB /)  
+KB(:, 2,35,10) = (/ &
+ & 0.10362E+04_JPRB,0.78545E+03_JPRB,0.59445E+03_JPRB,0.87400E+03_JPRB,0.11543E+04_JPRB /)  
+KB(:, 3,35,10) = (/ &
+ & 0.10372E+04_JPRB,0.78599E+03_JPRB,0.59365E+03_JPRB,0.87265E+03_JPRB,0.11519E+04_JPRB /)  
+KB(:, 4,35,10) = (/ &
+ & 0.10370E+04_JPRB,0.78527E+03_JPRB,0.59278E+03_JPRB,0.87136E+03_JPRB,0.11496E+04_JPRB /)  
+KB(:, 5,35,10) = (/ &
+ & 0.10363E+04_JPRB,0.78582E+03_JPRB,0.59179E+03_JPRB,0.86905E+03_JPRB,0.11477E+04_JPRB /)  
+KB(:, 1,36,10) = (/ &
+ & 0.10368E+04_JPRB,0.78515E+03_JPRB,0.59520E+03_JPRB,0.87532E+03_JPRB,0.11563E+04_JPRB /)  
+KB(:, 2,36,10) = (/ &
+ & 0.10358E+04_JPRB,0.78589E+03_JPRB,0.59443E+03_JPRB,0.87419E+03_JPRB,0.11542E+04_JPRB /)  
+KB(:, 3,36,10) = (/ &
+ & 0.10361E+04_JPRB,0.78556E+03_JPRB,0.59355E+03_JPRB,0.87273E+03_JPRB,0.11517E+04_JPRB /)  
+KB(:, 4,36,10) = (/ &
+ & 0.10361E+04_JPRB,0.78543E+03_JPRB,0.59275E+03_JPRB,0.87122E+03_JPRB,0.11497E+04_JPRB /)  
+KB(:, 5,36,10) = (/ &
+ & 0.10368E+04_JPRB,0.78570E+03_JPRB,0.59176E+03_JPRB,0.86999E+03_JPRB,0.11477E+04_JPRB /)  
+KB(:, 1,37,10) = (/ &
+ & 0.10363E+04_JPRB,0.78591E+03_JPRB,0.59537E+03_JPRB,0.87546E+03_JPRB,0.11565E+04_JPRB /)  
+KB(:, 2,37,10) = (/ &
+ & 0.10360E+04_JPRB,0.78548E+03_JPRB,0.59454E+03_JPRB,0.87425E+03_JPRB,0.11545E+04_JPRB /)  
+KB(:, 3,37,10) = (/ &
+ & 0.10362E+04_JPRB,0.78546E+03_JPRB,0.59366E+03_JPRB,0.87291E+03_JPRB,0.11521E+04_JPRB /)  
+KB(:, 4,37,10) = (/ &
+ & 0.10364E+04_JPRB,0.78543E+03_JPRB,0.59286E+03_JPRB,0.87142E+03_JPRB,0.11500E+04_JPRB /)  
+KB(:, 5,37,10) = (/ &
+ & 0.10360E+04_JPRB,0.78560E+03_JPRB,0.59177E+03_JPRB,0.86987E+03_JPRB,0.11482E+04_JPRB /)  
+KB(:, 1,38,10) = (/ &
+ & 0.10362E+04_JPRB,0.78542E+03_JPRB,0.59547E+03_JPRB,0.87560E+03_JPRB,0.11567E+04_JPRB /)  
+KB(:, 2,38,10) = (/ &
+ & 0.10357E+04_JPRB,0.78588E+03_JPRB,0.59466E+03_JPRB,0.87433E+03_JPRB,0.11549E+04_JPRB /)  
+KB(:, 3,38,10) = (/ &
+ & 0.10370E+04_JPRB,0.78605E+03_JPRB,0.59385E+03_JPRB,0.87310E+03_JPRB,0.11524E+04_JPRB /)  
+KB(:, 4,38,10) = (/ &
+ & 0.10362E+04_JPRB,0.78574E+03_JPRB,0.59297E+03_JPRB,0.87186E+03_JPRB,0.11501E+04_JPRB /)  
+KB(:, 5,38,10) = (/ &
+ & 0.10364E+04_JPRB,0.78533E+03_JPRB,0.59199E+03_JPRB,0.87009E+03_JPRB,0.11482E+04_JPRB /)  
+KB(:, 1,39,10) = (/ &
+ & 0.10359E+04_JPRB,0.78514E+03_JPRB,0.59557E+03_JPRB,0.87574E+03_JPRB,0.11567E+04_JPRB /)  
+KB(:, 2,39,10) = (/ &
+ & 0.10371E+04_JPRB,0.78541E+03_JPRB,0.59478E+03_JPRB,0.87461E+03_JPRB,0.11552E+04_JPRB /)  
+KB(:, 3,39,10) = (/ &
+ & 0.10366E+04_JPRB,0.78569E+03_JPRB,0.59382E+03_JPRB,0.87329E+03_JPRB,0.11528E+04_JPRB /)  
+KB(:, 4,39,10) = (/ &
+ & 0.10359E+04_JPRB,0.78528E+03_JPRB,0.59308E+03_JPRB,0.87198E+03_JPRB,0.11506E+04_JPRB /)  
+KB(:, 5,39,10) = (/ &
+ & 0.10356E+04_JPRB,0.78487E+03_JPRB,0.59220E+03_JPRB,0.87042E+03_JPRB,0.11486E+04_JPRB /)  
+KB(:, 1,40,10) = (/ &
+ & 0.10357E+04_JPRB,0.78518E+03_JPRB,0.59566E+03_JPRB,0.87586E+03_JPRB,0.11569E+04_JPRB /)  
+KB(:, 2,40,10) = (/ &
+ & 0.10357E+04_JPRB,0.78506E+03_JPRB,0.59498E+03_JPRB,0.87480E+03_JPRB,0.11555E+04_JPRB /)  
+KB(:, 3,40,10) = (/ &
+ & 0.10366E+04_JPRB,0.78504E+03_JPRB,0.59396E+03_JPRB,0.87362E+03_JPRB,0.11534E+04_JPRB /)  
+KB(:, 4,40,10) = (/ &
+ & 0.10363E+04_JPRB,0.78503E+03_JPRB,0.59319E+03_JPRB,0.87212E+03_JPRB,0.11511E+04_JPRB /)  
+KB(:, 5,40,10) = (/ &
+ & 0.10363E+04_JPRB,0.78540E+03_JPRB,0.59243E+03_JPRB,0.87078E+03_JPRB,0.11490E+04_JPRB /)  
+KB(:, 1,41,10) = (/ &
+ & 0.10363E+04_JPRB,0.78503E+03_JPRB,0.59590E+03_JPRB,0.87608E+03_JPRB,0.11576E+04_JPRB /)  
+KB(:, 2,41,10) = (/ &
+ & 0.10356E+04_JPRB,0.78491E+03_JPRB,0.59519E+03_JPRB,0.87520E+03_JPRB,0.11561E+04_JPRB /)  
+KB(:, 3,41,10) = (/ &
+ & 0.10364E+04_JPRB,0.78558E+03_JPRB,0.59433E+03_JPRB,0.87384E+03_JPRB,0.11540E+04_JPRB /)  
+KB(:, 4,41,10) = (/ &
+ & 0.10357E+04_JPRB,0.78518E+03_JPRB,0.59354E+03_JPRB,0.87259E+03_JPRB,0.11516E+04_JPRB /)  
+KB(:, 5,41,10) = (/ &
+ & 0.10360E+04_JPRB,0.78526E+03_JPRB,0.59259E+03_JPRB,0.87107E+03_JPRB,0.11495E+04_JPRB /)  
+KB(:, 1,42,10) = (/ &
+ & 0.10360E+04_JPRB,0.78488E+03_JPRB,0.59605E+03_JPRB,0.87553E+03_JPRB,0.11576E+04_JPRB /)  
+KB(:, 2,42,10) = (/ &
+ & 0.10363E+04_JPRB,0.78507E+03_JPRB,0.59538E+03_JPRB,0.87537E+03_JPRB,0.11565E+04_JPRB /)  
+KB(:, 3,42,10) = (/ &
+ & 0.10362E+04_JPRB,0.78535E+03_JPRB,0.59456E+03_JPRB,0.87429E+03_JPRB,0.11545E+04_JPRB /)  
+KB(:, 4,42,10) = (/ &
+ & 0.10361E+04_JPRB,0.78514E+03_JPRB,0.59368E+03_JPRB,0.87295E+03_JPRB,0.11522E+04_JPRB /)  
+KB(:, 5,42,10) = (/ &
+ & 0.10360E+04_JPRB,0.78523E+03_JPRB,0.59281E+03_JPRB,0.87146E+03_JPRB,0.11502E+04_JPRB /)  
+KB(:, 1,43,10) = (/ &
+ & 0.10359E+04_JPRB,0.78504E+03_JPRB,0.59624E+03_JPRB,0.87675E+03_JPRB,0.11584E+04_JPRB /)  
+KB(:, 2,43,10) = (/ &
+ & 0.10355E+04_JPRB,0.78552E+03_JPRB,0.59568E+03_JPRB,0.87580E+03_JPRB,0.11570E+04_JPRB /)  
+KB(:, 3,43,10) = (/ &
+ & 0.10354E+04_JPRB,0.78512E+03_JPRB,0.59483E+03_JPRB,0.87469E+03_JPRB,0.11553E+04_JPRB /)  
+KB(:, 4,43,10) = (/ &
+ & 0.10354E+04_JPRB,0.78569E+03_JPRB,0.59395E+03_JPRB,0.87316E+03_JPRB,0.11531E+04_JPRB /)  
+KB(:, 5,43,10) = (/ &
+ & 0.10359E+04_JPRB,0.78598E+03_JPRB,0.59313E+03_JPRB,0.87186E+03_JPRB,0.11507E+04_JPRB /)  
+KB(:, 1,44,10) = (/ &
+ & 0.10359E+04_JPRB,0.78521E+03_JPRB,0.59645E+03_JPRB,0.87700E+03_JPRB,0.11590E+04_JPRB /)  
+KB(:, 2,44,10) = (/ &
+ & 0.10361E+04_JPRB,0.78510E+03_JPRB,0.59583E+03_JPRB,0.87611E+03_JPRB,0.11574E+04_JPRB /)  
+KB(:, 3,44,10) = (/ &
+ & 0.10368E+04_JPRB,0.78519E+03_JPRB,0.59511E+03_JPRB,0.87509E+03_JPRB,0.11561E+04_JPRB /)  
+KB(:, 4,44,10) = (/ &
+ & 0.10360E+04_JPRB,0.78508E+03_JPRB,0.59424E+03_JPRB,0.87372E+03_JPRB,0.11538E+04_JPRB /)  
+KB(:, 5,44,10) = (/ &
+ & 0.10356E+04_JPRB,0.78537E+03_JPRB,0.59339E+03_JPRB,0.87213E+03_JPRB,0.11514E+04_JPRB /)  
+KB(:, 1,45,10) = (/ &
+ & 0.10357E+04_JPRB,0.78557E+03_JPRB,0.59666E+03_JPRB,0.87715E+03_JPRB,0.11597E+04_JPRB /)  
+KB(:, 2,45,10) = (/ &
+ & 0.10356E+04_JPRB,0.78527E+03_JPRB,0.59604E+03_JPRB,0.87639E+03_JPRB,0.11579E+04_JPRB /)  
+KB(:, 3,45,10) = (/ &
+ & 0.10360E+04_JPRB,0.78546E+03_JPRB,0.59537E+03_JPRB,0.87547E+03_JPRB,0.11565E+04_JPRB /)  
+KB(:, 4,45,10) = (/ &
+ & 0.10361E+04_JPRB,0.78506E+03_JPRB,0.59454E+03_JPRB,0.87427E+03_JPRB,0.11544E+04_JPRB /)  
+KB(:, 5,45,10) = (/ &
+ & 0.10353E+04_JPRB,0.78535E+03_JPRB,0.59366E+03_JPRB,0.87293E+03_JPRB,0.11520E+04_JPRB /)  
+KB(:, 1,46,10) = (/ &
+ & 0.10358E+04_JPRB,0.78506E+03_JPRB,0.59691E+03_JPRB,0.87749E+03_JPRB,0.11602E+04_JPRB /)  
+KB(:, 2,46,10) = (/ &
+ & 0.10353E+04_JPRB,0.78486E+03_JPRB,0.59626E+03_JPRB,0.87678E+03_JPRB,0.11584E+04_JPRB /)  
+KB(:, 3,46,10) = (/ &
+ & 0.10353E+04_JPRB,0.78495E+03_JPRB,0.59563E+03_JPRB,0.87572E+03_JPRB,0.11570E+04_JPRB /)  
+KB(:, 4,46,10) = (/ &
+ & 0.10363E+04_JPRB,0.78534E+03_JPRB,0.59478E+03_JPRB,0.87473E+03_JPRB,0.11554E+04_JPRB /)  
+KB(:, 5,46,10) = (/ &
+ & 0.10355E+04_JPRB,0.78455E+03_JPRB,0.59398E+03_JPRB,0.87342E+03_JPRB,0.11530E+04_JPRB /)  
+KB(:, 1,47,10) = (/ &
+ & 0.10357E+04_JPRB,0.78544E+03_JPRB,0.59719E+03_JPRB,0.87795E+03_JPRB,0.11609E+04_JPRB /)  
+KB(:, 2,47,10) = (/ &
+ & 0.10355E+04_JPRB,0.78533E+03_JPRB,0.59651E+03_JPRB,0.87696E+03_JPRB,0.11589E+04_JPRB /)  
+KB(:, 3,47,10) = (/ &
+ & 0.10358E+04_JPRB,0.78543E+03_JPRB,0.59590E+03_JPRB,0.87576E+03_JPRB,0.11576E+04_JPRB /)  
+KB(:, 4,47,10) = (/ &
+ & 0.10351E+04_JPRB,0.78562E+03_JPRB,0.59519E+03_JPRB,0.87521E+03_JPRB,0.11561E+04_JPRB /)  
+KB(:, 5,47,10) = (/ &
+ & 0.10359E+04_JPRB,0.78571E+03_JPRB,0.59433E+03_JPRB,0.87385E+03_JPRB,0.11540E+04_JPRB /)  
+KB(:, 1,48,10) = (/ &
+ & 0.10363E+04_JPRB,0.78513E+03_JPRB,0.59744E+03_JPRB,0.87846E+03_JPRB,0.11618E+04_JPRB /)  
+KB(:, 2,48,10) = (/ &
+ & 0.10360E+04_JPRB,0.78532E+03_JPRB,0.59677E+03_JPRB,0.87730E+03_JPRB,0.11598E+04_JPRB /)  
+KB(:, 3,48,10) = (/ &
+ & 0.10365E+04_JPRB,0.78483E+03_JPRB,0.59614E+03_JPRB,0.87707E+03_JPRB,0.11581E+04_JPRB /)  
+KB(:, 4,48,10) = (/ &
+ & 0.10355E+04_JPRB,0.78521E+03_JPRB,0.59549E+03_JPRB,0.87564E+03_JPRB,0.11567E+04_JPRB /)  
+KB(:, 5,48,10) = (/ &
+ & 0.10355E+04_JPRB,0.78531E+03_JPRB,0.59469E+03_JPRB,0.87448E+03_JPRB,0.11550E+04_JPRB /)  
+KB(:, 1,49,10) = (/ &
+ & 0.10351E+04_JPRB,0.78492E+03_JPRB,0.59768E+03_JPRB,0.87902E+03_JPRB,0.11625E+04_JPRB /)  
+KB(:, 2,49,10) = (/ &
+ & 0.10355E+04_JPRB,0.78541E+03_JPRB,0.59705E+03_JPRB,0.87772E+03_JPRB,0.11606E+04_JPRB /)  
+KB(:, 3,49,10) = (/ &
+ & 0.10352E+04_JPRB,0.78472E+03_JPRB,0.59639E+03_JPRB,0.87682E+03_JPRB,0.11587E+04_JPRB /)  
+KB(:, 4,49,10) = (/ &
+ & 0.10356E+04_JPRB,0.78511E+03_JPRB,0.59577E+03_JPRB,0.87591E+03_JPRB,0.11574E+04_JPRB /)  
+KB(:, 5,49,10) = (/ &
+ & 0.10352E+04_JPRB,0.78501E+03_JPRB,0.59510E+03_JPRB,0.87498E+03_JPRB,0.11558E+04_JPRB /)  
+KB(:, 1,50,10) = (/ &
+ & 0.10361E+04_JPRB,0.78540E+03_JPRB,0.59770E+03_JPRB,0.87956E+03_JPRB,0.11633E+04_JPRB /)  
+KB(:, 2,50,10) = (/ &
+ & 0.10357E+04_JPRB,0.78530E+03_JPRB,0.59731E+03_JPRB,0.87817E+03_JPRB,0.11612E+04_JPRB /)  
+KB(:, 3,50,10) = (/ &
+ & 0.10365E+04_JPRB,0.78510E+03_JPRB,0.59662E+03_JPRB,0.87710E+03_JPRB,0.11596E+04_JPRB /)  
+KB(:, 4,50,10) = (/ &
+ & 0.10365E+04_JPRB,0.78510E+03_JPRB,0.59601E+03_JPRB,0.87645E+03_JPRB,0.11578E+04_JPRB /)  
+KB(:, 5,50,10) = (/ &
+ & 0.10352E+04_JPRB,0.78588E+03_JPRB,0.59525E+03_JPRB,0.87541E+03_JPRB,0.11564E+04_JPRB /)  
+KB(:, 1,51,10) = (/ &
+ & 0.10356E+04_JPRB,0.78490E+03_JPRB,0.59781E+03_JPRB,0.88010E+03_JPRB,0.11639E+04_JPRB /)  
+KB(:, 2,51,10) = (/ &
+ & 0.10356E+04_JPRB,0.78539E+03_JPRB,0.59751E+03_JPRB,0.87866E+03_JPRB,0.11620E+04_JPRB /)  
+KB(:, 3,51,10) = (/ &
+ & 0.10359E+04_JPRB,0.78461E+03_JPRB,0.59687E+03_JPRB,0.87744E+03_JPRB,0.11601E+04_JPRB /)  
+KB(:, 4,51,10) = (/ &
+ & 0.10352E+04_JPRB,0.78519E+03_JPRB,0.59623E+03_JPRB,0.87674E+03_JPRB,0.11583E+04_JPRB /)  
+KB(:, 5,51,10) = (/ &
+ & 0.10356E+04_JPRB,0.78470E+03_JPRB,0.59552E+03_JPRB,0.87578E+03_JPRB,0.11569E+04_JPRB /)  
+KB(:, 1,52,10) = (/ &
+ & 0.10352E+04_JPRB,0.78509E+03_JPRB,0.59800E+03_JPRB,0.88094E+03_JPRB,0.11643E+04_JPRB /)  
+KB(:, 2,52,10) = (/ &
+ & 0.10355E+04_JPRB,0.78528E+03_JPRB,0.59763E+03_JPRB,0.87918E+03_JPRB,0.11627E+04_JPRB /)  
+KB(:, 3,52,10) = (/ &
+ & 0.10361E+04_JPRB,0.78479E+03_JPRB,0.59712E+03_JPRB,0.87762E+03_JPRB,0.11608E+04_JPRB /)  
+KB(:, 4,52,10) = (/ &
+ & 0.10358E+04_JPRB,0.78528E+03_JPRB,0.59645E+03_JPRB,0.87678E+03_JPRB,0.11589E+04_JPRB /)  
+KB(:, 5,52,10) = (/ &
+ & 0.10355E+04_JPRB,0.78528E+03_JPRB,0.59584E+03_JPRB,0.87612E+03_JPRB,0.11573E+04_JPRB /)  
+KB(:, 1,53,10) = (/ &
+ & 0.10357E+04_JPRB,0.78528E+03_JPRB,0.59832E+03_JPRB,0.88148E+03_JPRB,0.11650E+04_JPRB /)  
+KB(:, 2,53,10) = (/ &
+ & 0.10357E+04_JPRB,0.78596E+03_JPRB,0.59772E+03_JPRB,0.87969E+03_JPRB,0.11634E+04_JPRB /)  
+KB(:, 3,53,10) = (/ &
+ & 0.10361E+04_JPRB,0.78547E+03_JPRB,0.59737E+03_JPRB,0.87830E+03_JPRB,0.11614E+04_JPRB /)  
+KB(:, 4,53,10) = (/ &
+ & 0.10362E+04_JPRB,0.78537E+03_JPRB,0.59668E+03_JPRB,0.87707E+03_JPRB,0.11596E+04_JPRB /)  
+KB(:, 5,53,10) = (/ &
+ & 0.10356E+04_JPRB,0.78498E+03_JPRB,0.59606E+03_JPRB,0.87642E+03_JPRB,0.11578E+04_JPRB /)  
+KB(:, 1,54,10) = (/ &
+ & 0.10351E+04_JPRB,0.78567E+03_JPRB,0.59851E+03_JPRB,0.88199E+03_JPRB,0.11656E+04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART27',1,ZHOOK_HANDLE)
+END SUBROUTINE PART27
+
+
+SUBROUTINE PART28
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART28',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,54,10) = (/ &
+ & 0.10366E+04_JPRB,0.78518E+03_JPRB,0.59776E+03_JPRB,0.88021E+03_JPRB,0.11638E+04_JPRB /)  
+KB(:, 3,54,10) = (/ &
+ & 0.10364E+04_JPRB,0.78478E+03_JPRB,0.59753E+03_JPRB,0.87875E+03_JPRB,0.11621E+04_JPRB /)  
+KB(:, 4,54,10) = (/ &
+ & 0.10356E+04_JPRB,0.78498E+03_JPRB,0.59692E+03_JPRB,0.87751E+03_JPRB,0.11602E+04_JPRB /)  
+KB(:, 5,54,10) = (/ &
+ & 0.10362E+04_JPRB,0.78527E+03_JPRB,0.59627E+03_JPRB,0.87657E+03_JPRB,0.11584E+04_JPRB /)  
+KB(:, 1,55,10) = (/ &
+ & 0.10355E+04_JPRB,0.78488E+03_JPRB,0.59876E+03_JPRB,0.88250E+03_JPRB,0.11663E+04_JPRB /)  
+KB(:, 2,55,10) = (/ &
+ & 0.10362E+04_JPRB,0.78527E+03_JPRB,0.59801E+03_JPRB,0.88087E+03_JPRB,0.11643E+04_JPRB /)  
+KB(:, 3,55,10) = (/ &
+ & 0.10356E+04_JPRB,0.78507E+03_JPRB,0.59764E+03_JPRB,0.87920E+03_JPRB,0.11628E+04_JPRB /)  
+KB(:, 4,55,10) = (/ &
+ & 0.10353E+04_JPRB,0.78488E+03_JPRB,0.59714E+03_JPRB,0.87787E+03_JPRB,0.11606E+04_JPRB /)  
+KB(:, 5,55,10) = (/ &
+ & 0.10356E+04_JPRB,0.78488E+03_JPRB,0.59639E+03_JPRB,0.87691E+03_JPRB,0.11585E+04_JPRB /)  
+KB(:, 1,56,10) = (/ &
+ & 0.10353E+04_JPRB,0.78537E+03_JPRB,0.59904E+03_JPRB,0.88318E+03_JPRB,0.11672E+04_JPRB /)  
+KB(:, 2,56,10) = (/ &
+ & 0.10354E+04_JPRB,0.78497E+03_JPRB,0.59830E+03_JPRB,0.88144E+03_JPRB,0.11649E+04_JPRB /)  
+KB(:, 3,56,10) = (/ &
+ & 0.10361E+04_JPRB,0.78536E+03_JPRB,0.59771E+03_JPRB,0.87966E+03_JPRB,0.11634E+04_JPRB /)  
+KB(:, 4,56,10) = (/ &
+ & 0.10357E+04_JPRB,0.78497E+03_JPRB,0.59736E+03_JPRB,0.87826E+03_JPRB,0.11615E+04_JPRB /)  
+KB(:, 5,56,10) = (/ &
+ & 0.10353E+04_JPRB,0.78478E+03_JPRB,0.59667E+03_JPRB,0.87705E+03_JPRB,0.11595E+04_JPRB /)  
+KB(:, 1,57,10) = (/ &
+ & 0.10358E+04_JPRB,0.78458E+03_JPRB,0.59927E+03_JPRB,0.88350E+03_JPRB,0.11679E+04_JPRB /)  
+KB(:, 2,57,10) = (/ &
+ & 0.10352E+04_JPRB,0.78536E+03_JPRB,0.59840E+03_JPRB,0.88193E+03_JPRB,0.11656E+04_JPRB /)  
+KB(:, 3,57,10) = (/ &
+ & 0.10352E+04_JPRB,0.78526E+03_JPRB,0.59782E+03_JPRB,0.88003E+03_JPRB,0.11638E+04_JPRB /)  
+KB(:, 4,57,10) = (/ &
+ & 0.10358E+04_JPRB,0.78497E+03_JPRB,0.59751E+03_JPRB,0.87869E+03_JPRB,0.11622E+04_JPRB /)  
+KB(:, 5,57,10) = (/ &
+ & 0.10360E+04_JPRB,0.78497E+03_JPRB,0.59689E+03_JPRB,0.87746E+03_JPRB,0.11601E+04_JPRB /)  
+KB(:, 1,58,10) = (/ &
+ & 0.10358E+04_JPRB,0.78468E+03_JPRB,0.59969E+03_JPRB,0.88402E+03_JPRB,0.11685E+04_JPRB /)  
+KB(:, 2,58,10) = (/ &
+ & 0.10357E+04_JPRB,0.78458E+03_JPRB,0.59873E+03_JPRB,0.88241E+03_JPRB,0.11662E+04_JPRB /)  
+KB(:, 3,58,10) = (/ &
+ & 0.10358E+04_JPRB,0.78526E+03_JPRB,0.59797E+03_JPRB,0.88085E+03_JPRB,0.11642E+04_JPRB /)  
+KB(:, 4,58,10) = (/ &
+ & 0.10356E+04_JPRB,0.78487E+03_JPRB,0.59762E+03_JPRB,0.87912E+03_JPRB,0.11626E+04_JPRB /)  
+KB(:, 5,58,10) = (/ &
+ & 0.10357E+04_JPRB,0.78565E+03_JPRB,0.59710E+03_JPRB,0.87769E+03_JPRB,0.11608E+04_JPRB /)  
+KB(:, 1,59,10) = (/ &
+ & 0.10360E+04_JPRB,0.78507E+03_JPRB,0.59979E+03_JPRB,0.88416E+03_JPRB,0.11687E+04_JPRB /)  
+KB(:, 2,59,10) = (/ &
+ & 0.10357E+04_JPRB,0.78477E+03_JPRB,0.59879E+03_JPRB,0.88260E+03_JPRB,0.11665E+04_JPRB /)  
+KB(:, 3,59,10) = (/ &
+ & 0.10350E+04_JPRB,0.78526E+03_JPRB,0.59804E+03_JPRB,0.88100E+03_JPRB,0.11644E+04_JPRB /)  
+KB(:, 4,59,10) = (/ &
+ & 0.10357E+04_JPRB,0.78467E+03_JPRB,0.59773E+03_JPRB,0.87930E+03_JPRB,0.11629E+04_JPRB /)  
+KB(:, 5,59,10) = (/ &
+ & 0.10358E+04_JPRB,0.78457E+03_JPRB,0.59718E+03_JPRB,0.87783E+03_JPRB,0.11609E+04_JPRB /)  
+KB(:, 1,13,11) = (/ &
+ & 0.11563E+04_JPRB,0.87491E+03_JPRB,0.60253E+03_JPRB,0.88362E+03_JPRB,0.11664E+04_JPRB /)  
+KB(:, 2,13,11) = (/ &
+ & 0.11454E+04_JPRB,0.86861E+03_JPRB,0.60211E+03_JPRB,0.88300E+03_JPRB,0.11639E+04_JPRB /)  
+KB(:, 3,13,11) = (/ &
+ & 0.11392E+04_JPRB,0.86181E+03_JPRB,0.60140E+03_JPRB,0.88181E+03_JPRB,0.11620E+04_JPRB /)  
+KB(:, 4,13,11) = (/ &
+ & 0.11315E+04_JPRB,0.85680E+03_JPRB,0.60042E+03_JPRB,0.88057E+03_JPRB,0.11602E+04_JPRB /)  
+KB(:, 5,13,11) = (/ &
+ & 0.11273E+04_JPRB,0.85330E+03_JPRB,0.59929E+03_JPRB,0.87908E+03_JPRB,0.11581E+04_JPRB /)  
+KB(:, 1,14,11) = (/ &
+ & 0.11333E+04_JPRB,0.85776E+03_JPRB,0.60215E+03_JPRB,0.88338E+03_JPRB,0.11660E+04_JPRB /)  
+KB(:, 2,14,11) = (/ &
+ & 0.11256E+04_JPRB,0.85211E+03_JPRB,0.60176E+03_JPRB,0.88258E+03_JPRB,0.11637E+04_JPRB /)  
+KB(:, 3,14,11) = (/ &
+ & 0.11185E+04_JPRB,0.84809E+03_JPRB,0.60101E+03_JPRB,0.88154E+03_JPRB,0.11618E+04_JPRB /)  
+KB(:, 4,14,11) = (/ &
+ & 0.11137E+04_JPRB,0.84328E+03_JPRB,0.59992E+03_JPRB,0.87989E+03_JPRB,0.11599E+04_JPRB /)  
+KB(:, 5,14,11) = (/ &
+ & 0.11092E+04_JPRB,0.83997E+03_JPRB,0.59898E+03_JPRB,0.87879E+03_JPRB,0.11581E+04_JPRB /)  
+KB(:, 1,15,11) = (/ &
+ & 0.11149E+04_JPRB,0.84435E+03_JPRB,0.60192E+03_JPRB,0.88317E+03_JPRB,0.11660E+04_JPRB /)  
+KB(:, 2,15,11) = (/ &
+ & 0.11071E+04_JPRB,0.83899E+03_JPRB,0.60145E+03_JPRB,0.88233E+03_JPRB,0.11635E+04_JPRB /)  
+KB(:, 3,15,11) = (/ &
+ & 0.11058E+04_JPRB,0.83612E+03_JPRB,0.60066E+03_JPRB,0.88128E+03_JPRB,0.11617E+04_JPRB /)  
+KB(:, 4,15,11) = (/ &
+ & 0.10996E+04_JPRB,0.83410E+03_JPRB,0.59965E+03_JPRB,0.88002E+03_JPRB,0.11599E+04_JPRB /)  
+KB(:, 5,15,11) = (/ &
+ & 0.10957E+04_JPRB,0.83022E+03_JPRB,0.59863E+03_JPRB,0.87850E+03_JPRB,0.11578E+04_JPRB /)  
+KB(:, 1,16,11) = (/ &
+ & 0.10993E+04_JPRB,0.83361E+03_JPRB,0.60157E+03_JPRB,0.88298E+03_JPRB,0.11657E+04_JPRB /)  
+KB(:, 2,16,11) = (/ &
+ & 0.10933E+04_JPRB,0.82961E+03_JPRB,0.60127E+03_JPRB,0.88210E+03_JPRB,0.11633E+04_JPRB /)  
+KB(:, 3,16,11) = (/ &
+ & 0.10924E+04_JPRB,0.82745E+03_JPRB,0.60035E+03_JPRB,0.88104E+03_JPRB,0.11615E+04_JPRB /)  
+KB(:, 4,16,11) = (/ &
+ & 0.10885E+04_JPRB,0.82319E+03_JPRB,0.59934E+03_JPRB,0.87977E+03_JPRB,0.11597E+04_JPRB /)  
+KB(:, 5,16,11) = (/ &
+ & 0.10838E+04_JPRB,0.82062E+03_JPRB,0.59823E+03_JPRB,0.87823E+03_JPRB,0.11577E+04_JPRB /)  
+KB(:, 1,17,11) = (/ &
+ & 0.10881E+04_JPRB,0.82385E+03_JPRB,0.60135E+03_JPRB,0.88282E+03_JPRB,0.11656E+04_JPRB /)  
+KB(:, 2,17,11) = (/ &
+ & 0.10840E+04_JPRB,0.82201E+03_JPRB,0.60094E+03_JPRB,0.88190E+03_JPRB,0.11631E+04_JPRB /)  
+KB(:, 3,17,11) = (/ &
+ & 0.10809E+04_JPRB,0.81908E+03_JPRB,0.60007E+03_JPRB,0.88083E+03_JPRB,0.11613E+04_JPRB /)  
+KB(:, 4,17,11) = (/ &
+ & 0.10772E+04_JPRB,0.81792E+03_JPRB,0.59907E+03_JPRB,0.87953E+03_JPRB,0.11595E+04_JPRB /)  
+KB(:, 5,17,11) = (/ &
+ & 0.10760E+04_JPRB,0.81580E+03_JPRB,0.59806E+03_JPRB,0.87798E+03_JPRB,0.11575E+04_JPRB /)  
+KB(:, 1,18,11) = (/ &
+ & 0.10780E+04_JPRB,0.81679E+03_JPRB,0.60116E+03_JPRB,0.88267E+03_JPRB,0.11653E+04_JPRB /)  
+KB(:, 2,18,11) = (/ &
+ & 0.10749E+04_JPRB,0.81512E+03_JPRB,0.60072E+03_JPRB,0.88171E+03_JPRB,0.11629E+04_JPRB /)  
+KB(:, 3,18,11) = (/ &
+ & 0.10728E+04_JPRB,0.81180E+03_JPRB,0.59983E+03_JPRB,0.88050E+03_JPRB,0.11611E+04_JPRB /)  
+KB(:, 4,18,11) = (/ &
+ & 0.10707E+04_JPRB,0.81081E+03_JPRB,0.59883E+03_JPRB,0.87944E+03_JPRB,0.11593E+04_JPRB /)  
+KB(:, 5,18,11) = (/ &
+ & 0.10678E+04_JPRB,0.80905E+03_JPRB,0.59782E+03_JPRB,0.87775E+03_JPRB,0.11574E+04_JPRB /)  
+KB(:, 1,19,11) = (/ &
+ & 0.10696E+04_JPRB,0.81122E+03_JPRB,0.60101E+03_JPRB,0.88252E+03_JPRB,0.11649E+04_JPRB /)  
+KB(:, 2,19,11) = (/ &
+ & 0.10692E+04_JPRB,0.80792E+03_JPRB,0.60053E+03_JPRB,0.88155E+03_JPRB,0.11625E+04_JPRB /)  
+KB(:, 3,19,11) = (/ &
+ & 0.10653E+04_JPRB,0.80791E+03_JPRB,0.59962E+03_JPRB,0.88058E+03_JPRB,0.11609E+04_JPRB /)  
+KB(:, 4,19,11) = (/ &
+ & 0.10635E+04_JPRB,0.80651E+03_JPRB,0.59853E+03_JPRB,0.87910E+03_JPRB,0.11591E+04_JPRB /)  
+KB(:, 5,19,11) = (/ &
+ & 0.10626E+04_JPRB,0.80552E+03_JPRB,0.59761E+03_JPRB,0.87753E+03_JPRB,0.11572E+04_JPRB /)  
+KB(:, 1,20,11) = (/ &
+ & 0.10638E+04_JPRB,0.80613E+03_JPRB,0.60096E+03_JPRB,0.88236E+03_JPRB,0.11646E+04_JPRB /)  
+KB(:, 2,20,11) = (/ &
+ & 0.10623E+04_JPRB,0.80416E+03_JPRB,0.60035E+03_JPRB,0.88137E+03_JPRB,0.11625E+04_JPRB /)  
+KB(:, 3,20,11) = (/ &
+ & 0.10590E+04_JPRB,0.80264E+03_JPRB,0.59950E+03_JPRB,0.88013E+03_JPRB,0.11607E+04_JPRB /)  
+KB(:, 4,20,11) = (/ &
+ & 0.10603E+04_JPRB,0.80308E+03_JPRB,0.59841E+03_JPRB,0.87915E+03_JPRB,0.11587E+04_JPRB /)  
+KB(:, 5,20,11) = (/ &
+ & 0.10573E+04_JPRB,0.80101E+03_JPRB,0.59740E+03_JPRB,0.87729E+03_JPRB,0.11568E+04_JPRB /)  
+KB(:, 1,21,11) = (/ &
+ & 0.10580E+04_JPRB,0.80255E+03_JPRB,0.60075E+03_JPRB,0.88233E+03_JPRB,0.11643E+04_JPRB /)  
+KB(:, 2,21,11) = (/ &
+ & 0.10580E+04_JPRB,0.80172E+03_JPRB,0.60017E+03_JPRB,0.88121E+03_JPRB,0.11623E+04_JPRB /)  
+KB(:, 3,21,11) = (/ &
+ & 0.10551E+04_JPRB,0.80129E+03_JPRB,0.59922E+03_JPRB,0.87954E+03_JPRB,0.11605E+04_JPRB /)  
+KB(:, 4,21,11) = (/ &
+ & 0.10544E+04_JPRB,0.79894E+03_JPRB,0.59822E+03_JPRB,0.87866E+03_JPRB,0.11586E+04_JPRB /)  
+KB(:, 5,21,11) = (/ &
+ & 0.10531E+04_JPRB,0.79850E+03_JPRB,0.59721E+03_JPRB,0.87693E+03_JPRB,0.11568E+04_JPRB /)  
+KB(:, 1,22,11) = (/ &
+ & 0.10535E+04_JPRB,0.79809E+03_JPRB,0.60064E+03_JPRB,0.88198E+03_JPRB,0.11639E+04_JPRB /)  
+KB(:, 2,22,11) = (/ &
+ & 0.10534E+04_JPRB,0.79679E+03_JPRB,0.59986E+03_JPRB,0.88098E+03_JPRB,0.11619E+04_JPRB /)  
+KB(:, 3,22,11) = (/ &
+ & 0.10517E+04_JPRB,0.79764E+03_JPRB,0.59897E+03_JPRB,0.87993E+03_JPRB,0.11602E+04_JPRB /)  
+KB(:, 4,22,11) = (/ &
+ & 0.10510E+04_JPRB,0.79739E+03_JPRB,0.59797E+03_JPRB,0.87835E+03_JPRB,0.11582E+04_JPRB /)  
+KB(:, 5,22,11) = (/ &
+ & 0.10492E+04_JPRB,0.79579E+03_JPRB,0.59697E+03_JPRB,0.87672E+03_JPRB,0.11565E+04_JPRB /)  
+KB(:, 1,23,11) = (/ &
+ & 0.10516E+04_JPRB,0.79606E+03_JPRB,0.60095E+03_JPRB,0.88176E+03_JPRB,0.11633E+04_JPRB /)  
+KB(:, 2,23,11) = (/ &
+ & 0.10497E+04_JPRB,0.79542E+03_JPRB,0.59972E+03_JPRB,0.88074E+03_JPRB,0.11616E+04_JPRB /)  
+KB(:, 3,23,11) = (/ &
+ & 0.10482E+04_JPRB,0.79453E+03_JPRB,0.59873E+03_JPRB,0.87952E+03_JPRB,0.11598E+04_JPRB /)  
+KB(:, 4,23,11) = (/ &
+ & 0.10486E+04_JPRB,0.79431E+03_JPRB,0.59782E+03_JPRB,0.87802E+03_JPRB,0.11579E+04_JPRB /)  
+KB(:, 5,23,11) = (/ &
+ & 0.10473E+04_JPRB,0.79522E+03_JPRB,0.59672E+03_JPRB,0.87637E+03_JPRB,0.11562E+04_JPRB /)  
+KB(:, 1,24,11) = (/ &
+ & 0.10467E+04_JPRB,0.79476E+03_JPRB,0.60034E+03_JPRB,0.88154E+03_JPRB,0.11630E+04_JPRB /)  
+KB(:, 2,24,11) = (/ &
+ & 0.10461E+04_JPRB,0.79357E+03_JPRB,0.59948E+03_JPRB,0.88049E+03_JPRB,0.11613E+04_JPRB /)  
+KB(:, 3,24,11) = (/ &
+ & 0.10460E+04_JPRB,0.79280E+03_JPRB,0.59849E+03_JPRB,0.87921E+03_JPRB,0.11596E+04_JPRB /)  
+KB(:, 4,24,11) = (/ &
+ & 0.10457E+04_JPRB,0.79222E+03_JPRB,0.59749E+03_JPRB,0.87768E+03_JPRB,0.11575E+04_JPRB /)  
+KB(:, 5,24,11) = (/ &
+ & 0.10450E+04_JPRB,0.79193E+03_JPRB,0.59639E+03_JPRB,0.87600E+03_JPRB,0.11558E+04_JPRB /)  
+KB(:, 1,25,11) = (/ &
+ & 0.10463E+04_JPRB,0.79209E+03_JPRB,0.60015E+03_JPRB,0.88131E+03_JPRB,0.11626E+04_JPRB /)  
+KB(:, 2,25,11) = (/ &
+ & 0.10455E+04_JPRB,0.79185E+03_JPRB,0.59924E+03_JPRB,0.87983E+03_JPRB,0.11609E+04_JPRB /)  
+KB(:, 3,25,11) = (/ &
+ & 0.10450E+04_JPRB,0.79214E+03_JPRB,0.59824E+03_JPRB,0.87889E+03_JPRB,0.11590E+04_JPRB /)  
+KB(:, 4,25,11) = (/ &
+ & 0.10445E+04_JPRB,0.79118E+03_JPRB,0.59725E+03_JPRB,0.87732E+03_JPRB,0.11571E+04_JPRB /)  
+KB(:, 5,25,11) = (/ &
+ & 0.10428E+04_JPRB,0.79168E+03_JPRB,0.59624E+03_JPRB,0.87561E+03_JPRB,0.11555E+04_JPRB /)  
+KB(:, 1,26,11) = (/ &
+ & 0.10437E+04_JPRB,0.79093E+03_JPRB,0.59993E+03_JPRB,0.88106E+03_JPRB,0.11624E+04_JPRB /)  
+KB(:, 2,26,11) = (/ &
+ & 0.10430E+04_JPRB,0.79091E+03_JPRB,0.59898E+03_JPRB,0.87993E+03_JPRB,0.11605E+04_JPRB /)  
+KB(:, 3,26,11) = (/ &
+ & 0.10430E+04_JPRB,0.79069E+03_JPRB,0.59808E+03_JPRB,0.87852E+03_JPRB,0.11586E+04_JPRB /)  
+KB(:, 4,26,11) = (/ &
+ & 0.10425E+04_JPRB,0.79087E+03_JPRB,0.59699E+03_JPRB,0.87692E+03_JPRB,0.11569E+04_JPRB /)  
+KB(:, 5,26,11) = (/ &
+ & 0.10414E+04_JPRB,0.78954E+03_JPRB,0.59598E+03_JPRB,0.87517E+03_JPRB,0.11547E+04_JPRB /)  
+KB(:, 1,27,11) = (/ &
+ & 0.10423E+04_JPRB,0.79028E+03_JPRB,0.59970E+03_JPRB,0.88080E+03_JPRB,0.11616E+04_JPRB /)  
+KB(:, 2,27,11) = (/ &
+ & 0.10415E+04_JPRB,0.78939E+03_JPRB,0.59872E+03_JPRB,0.87961E+03_JPRB,0.11600E+04_JPRB /)  
+KB(:, 3,27,11) = (/ &
+ & 0.10419E+04_JPRB,0.78972E+03_JPRB,0.59773E+03_JPRB,0.87814E+03_JPRB,0.11581E+04_JPRB /)  
+KB(:, 4,27,11) = (/ &
+ & 0.10405E+04_JPRB,0.78901E+03_JPRB,0.59673E+03_JPRB,0.87651E+03_JPRB,0.11564E+04_JPRB /)  
+KB(:, 5,27,11) = (/ &
+ & 0.10410E+04_JPRB,0.78880E+03_JPRB,0.59572E+03_JPRB,0.87471E+03_JPRB,0.11546E+04_JPRB /)  
+KB(:, 1,28,11) = (/ &
+ & 0.10411E+04_JPRB,0.78831E+03_JPRB,0.59945E+03_JPRB,0.88052E+03_JPRB,0.11614E+04_JPRB /)  
+KB(:, 2,28,11) = (/ &
+ & 0.10402E+04_JPRB,0.78866E+03_JPRB,0.59846E+03_JPRB,0.87954E+03_JPRB,0.11596E+04_JPRB /)  
+KB(:, 3,28,11) = (/ &
+ & 0.10401E+04_JPRB,0.78798E+03_JPRB,0.59747E+03_JPRB,0.87776E+03_JPRB,0.11577E+04_JPRB /)  
+KB(:, 4,28,11) = (/ &
+ & 0.10407E+04_JPRB,0.78779E+03_JPRB,0.59647E+03_JPRB,0.87596E+03_JPRB,0.11560E+04_JPRB /)  
+KB(:, 5,28,11) = (/ &
+ & 0.10407E+04_JPRB,0.78751E+03_JPRB,0.59548E+03_JPRB,0.87425E+03_JPRB,0.11542E+04_JPRB /)  
+KB(:, 1,29,11) = (/ &
+ & 0.10408E+04_JPRB,0.78876E+03_JPRB,0.59920E+03_JPRB,0.87983E+03_JPRB,0.11608E+04_JPRB /)  
+KB(:, 2,29,11) = (/ &
+ & 0.10408E+04_JPRB,0.78834E+03_JPRB,0.59820E+03_JPRB,0.87891E+03_JPRB,0.11591E+04_JPRB /)  
+KB(:, 3,29,11) = (/ &
+ & 0.10387E+04_JPRB,0.78864E+03_JPRB,0.59721E+03_JPRB,0.87735E+03_JPRB,0.11572E+04_JPRB /)  
+KB(:, 4,29,11) = (/ &
+ & 0.10384E+04_JPRB,0.78778E+03_JPRB,0.59621E+03_JPRB,0.87578E+03_JPRB,0.11555E+04_JPRB /)  
+KB(:, 5,29,11) = (/ &
+ & 0.10412E+04_JPRB,0.78824E+03_JPRB,0.59524E+03_JPRB,0.87368E+03_JPRB,0.11538E+04_JPRB /)  
+KB(:, 1,30,11) = (/ &
+ & 0.10383E+04_JPRB,0.78758E+03_JPRB,0.59894E+03_JPRB,0.87992E+03_JPRB,0.11605E+04_JPRB /)  
+KB(:, 2,30,11) = (/ &
+ & 0.10390E+04_JPRB,0.78755E+03_JPRB,0.59785E+03_JPRB,0.87840E+03_JPRB,0.11584E+04_JPRB /)  
+KB(:, 3,30,11) = (/ &
+ & 0.10391E+04_JPRB,0.78813E+03_JPRB,0.59695E+03_JPRB,0.87693E+03_JPRB,0.11568E+04_JPRB /)  
+KB(:, 4,30,11) = (/ &
+ & 0.10384E+04_JPRB,0.78683E+03_JPRB,0.59594E+03_JPRB,0.87519E+03_JPRB,0.11551E+04_JPRB /)  
+KB(:, 5,30,11) = (/ &
+ & 0.10388E+04_JPRB,0.78660E+03_JPRB,0.59501E+03_JPRB,0.87341E+03_JPRB,0.11534E+04_JPRB /)  
+KB(:, 1,31,11) = (/ &
+ & 0.10376E+04_JPRB,0.78640E+03_JPRB,0.59867E+03_JPRB,0.87959E+03_JPRB,0.11601E+04_JPRB /)  
+KB(:, 2,31,11) = (/ &
+ & 0.10381E+04_JPRB,0.78687E+03_JPRB,0.59768E+03_JPRB,0.87813E+03_JPRB,0.11581E+04_JPRB /)  
+KB(:, 3,31,11) = (/ &
+ & 0.10369E+04_JPRB,0.78736E+03_JPRB,0.59668E+03_JPRB,0.87650E+03_JPRB,0.11564E+04_JPRB /)  
+KB(:, 4,31,11) = (/ &
+ & 0.10380E+04_JPRB,0.78738E+03_JPRB,0.59577E+03_JPRB,0.87483E+03_JPRB,0.11546E+04_JPRB /)  
+KB(:, 5,31,11) = (/ &
+ & 0.10391E+04_JPRB,0.78671E+03_JPRB,0.59479E+03_JPRB,0.87299E+03_JPRB,0.11532E+04_JPRB /)  
+KB(:, 1,32,11) = (/ &
+ & 0.10371E+04_JPRB,0.78531E+03_JPRB,0.59840E+03_JPRB,0.87936E+03_JPRB,0.11596E+04_JPRB /)  
+KB(:, 2,32,11) = (/ &
+ & 0.10383E+04_JPRB,0.78734E+03_JPRB,0.59742E+03_JPRB,0.87771E+03_JPRB,0.11576E+04_JPRB /)  
+KB(:, 3,32,11) = (/ &
+ & 0.10363E+04_JPRB,0.78691E+03_JPRB,0.59641E+03_JPRB,0.87605E+03_JPRB,0.11559E+04_JPRB /)  
+KB(:, 4,32,11) = (/ &
+ & 0.10373E+04_JPRB,0.78648E+03_JPRB,0.59543E+03_JPRB,0.87420E+03_JPRB,0.11542E+04_JPRB /)  
+KB(:, 5,32,11) = (/ &
+ & 0.10376E+04_JPRB,0.78617E+03_JPRB,0.59455E+03_JPRB,0.87256E+03_JPRB,0.11529E+04_JPRB /)  
+KB(:, 1,33,11) = (/ &
+ & 0.10366E+04_JPRB,0.78725E+03_JPRB,0.59814E+03_JPRB,0.87885E+03_JPRB,0.11591E+04_JPRB /)  
+KB(:, 2,33,11) = (/ &
+ & 0.10366E+04_JPRB,0.78694E+03_JPRB,0.59715E+03_JPRB,0.87729E+03_JPRB,0.11572E+04_JPRB /)  
+KB(:, 3,33,11) = (/ &
+ & 0.10365E+04_JPRB,0.78534E+03_JPRB,0.59614E+03_JPRB,0.87545E+03_JPRB,0.11555E+04_JPRB /)  
+KB(:, 4,33,11) = (/ &
+ & 0.10377E+04_JPRB,0.78705E+03_JPRB,0.59518E+03_JPRB,0.87362E+03_JPRB,0.11536E+04_JPRB /)  
+KB(:, 5,33,11) = (/ &
+ & 0.10381E+04_JPRB,0.78546E+03_JPRB,0.59428E+03_JPRB,0.87201E+03_JPRB,0.11526E+04_JPRB /)  
+KB(:, 1,34,11) = (/ &
+ & 0.10370E+04_JPRB,0.78547E+03_JPRB,0.59791E+03_JPRB,0.87837E+03_JPRB,0.11586E+04_JPRB /)  
+KB(:, 2,34,11) = (/ &
+ & 0.10369E+04_JPRB,0.78635E+03_JPRB,0.59683E+03_JPRB,0.87691E+03_JPRB,0.11568E+04_JPRB /)  
+KB(:, 3,34,11) = (/ &
+ & 0.10373E+04_JPRB,0.78607E+03_JPRB,0.59591E+03_JPRB,0.87516E+03_JPRB,0.11551E+04_JPRB /)  
+KB(:, 4,34,11) = (/ &
+ & 0.10371E+04_JPRB,0.78696E+03_JPRB,0.59498E+03_JPRB,0.87338E+03_JPRB,0.11534E+04_JPRB /)  
+KB(:, 5,34,11) = (/ &
+ & 0.10366E+04_JPRB,0.78538E+03_JPRB,0.59374E+03_JPRB,0.87179E+03_JPRB,0.11524E+04_JPRB /)  
+KB(:, 1,35,11) = (/ &
+ & 0.10371E+04_JPRB,0.78681E+03_JPRB,0.59778E+03_JPRB,0.87830E+03_JPRB,0.11583E+04_JPRB /)  
+KB(:, 2,35,11) = (/ &
+ & 0.10367E+04_JPRB,0.78665E+03_JPRB,0.59678E+03_JPRB,0.87669E+03_JPRB,0.11566E+04_JPRB /)  
+KB(:, 3,35,11) = (/ &
+ & 0.10363E+04_JPRB,0.78613E+03_JPRB,0.59569E+03_JPRB,0.87491E+03_JPRB,0.11549E+04_JPRB /)  
+KB(:, 4,35,11) = (/ &
+ & 0.10364E+04_JPRB,0.78668E+03_JPRB,0.59487E+03_JPRB,0.87304E+03_JPRB,0.11533E+04_JPRB /)  
+KB(:, 5,35,11) = (/ &
+ & 0.10370E+04_JPRB,0.78641E+03_JPRB,0.59363E+03_JPRB,0.87159E+03_JPRB,0.11523E+04_JPRB /)  
+KB(:, 1,36,11) = (/ &
+ & 0.10366E+04_JPRB,0.78595E+03_JPRB,0.59775E+03_JPRB,0.87827E+03_JPRB,0.11583E+04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART28',1,ZHOOK_HANDLE)
+END SUBROUTINE PART28
+
+
+SUBROUTINE PART29
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART29',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,36,11) = (/ &
+ & 0.10367E+04_JPRB,0.78568E+03_JPRB,0.59676E+03_JPRB,0.87652E+03_JPRB,0.11565E+04_JPRB /)  
+KB(:, 3,36,11) = (/ &
+ & 0.10363E+04_JPRB,0.78600E+03_JPRB,0.59575E+03_JPRB,0.87487E+03_JPRB,0.11548E+04_JPRB /)  
+KB(:, 4,36,11) = (/ &
+ & 0.10370E+04_JPRB,0.78596E+03_JPRB,0.59503E+03_JPRB,0.87314E+03_JPRB,0.11533E+04_JPRB /)  
+KB(:, 5,36,11) = (/ &
+ & 0.10356E+04_JPRB,0.78546E+03_JPRB,0.59359E+03_JPRB,0.87116E+03_JPRB,0.11523E+04_JPRB /)  
+KB(:, 1,37,11) = (/ &
+ & 0.10367E+04_JPRB,0.78524E+03_JPRB,0.59788E+03_JPRB,0.87847E+03_JPRB,0.11586E+04_JPRB /)  
+KB(:, 2,37,11) = (/ &
+ & 0.10373E+04_JPRB,0.78580E+03_JPRB,0.59689E+03_JPRB,0.87687E+03_JPRB,0.11567E+04_JPRB /)  
+KB(:, 3,37,11) = (/ &
+ & 0.10369E+04_JPRB,0.78554E+03_JPRB,0.59588E+03_JPRB,0.87512E+03_JPRB,0.11550E+04_JPRB /)  
+KB(:, 4,37,11) = (/ &
+ & 0.10372E+04_JPRB,0.78551E+03_JPRB,0.59495E+03_JPRB,0.87335E+03_JPRB,0.11534E+04_JPRB /)  
+KB(:, 5,37,11) = (/ &
+ & 0.10364E+04_JPRB,0.78631E+03_JPRB,0.59378E+03_JPRB,0.87175E+03_JPRB,0.11524E+04_JPRB /)  
+KB(:, 1,38,11) = (/ &
+ & 0.10372E+04_JPRB,0.78574E+03_JPRB,0.59801E+03_JPRB,0.87867E+03_JPRB,0.11588E+04_JPRB /)  
+KB(:, 2,38,11) = (/ &
+ & 0.10364E+04_JPRB,0.78476E+03_JPRB,0.59702E+03_JPRB,0.87710E+03_JPRB,0.11570E+04_JPRB /)  
+KB(:, 3,38,11) = (/ &
+ & 0.10351E+04_JPRB,0.78521E+03_JPRB,0.59593E+03_JPRB,0.87537E+03_JPRB,0.11553E+04_JPRB /)  
+KB(:, 4,38,11) = (/ &
+ & 0.10362E+04_JPRB,0.78507E+03_JPRB,0.59507E+03_JPRB,0.87344E+03_JPRB,0.11536E+04_JPRB /)  
+KB(:, 5,38,11) = (/ &
+ & 0.10371E+04_JPRB,0.78635E+03_JPRB,0.59400E+03_JPRB,0.87197E+03_JPRB,0.11525E+04_JPRB /)  
+KB(:, 1,39,11) = (/ &
+ & 0.10359E+04_JPRB,0.78601E+03_JPRB,0.59815E+03_JPRB,0.87888E+03_JPRB,0.11591E+04_JPRB /)  
+KB(:, 2,39,11) = (/ &
+ & 0.10375E+04_JPRB,0.78669E+03_JPRB,0.59716E+03_JPRB,0.87732E+03_JPRB,0.11572E+04_JPRB /)  
+KB(:, 3,39,11) = (/ &
+ & 0.10350E+04_JPRB,0.78597E+03_JPRB,0.59615E+03_JPRB,0.87562E+03_JPRB,0.11555E+04_JPRB /)  
+KB(:, 4,39,11) = (/ &
+ & 0.10366E+04_JPRB,0.78524E+03_JPRB,0.59519E+03_JPRB,0.87365E+03_JPRB,0.11538E+04_JPRB /)  
+KB(:, 5,39,11) = (/ &
+ & 0.10373E+04_JPRB,0.78605E+03_JPRB,0.59422E+03_JPRB,0.87205E+03_JPRB,0.11526E+04_JPRB /)  
+KB(:, 1,40,11) = (/ &
+ & 0.10361E+04_JPRB,0.78559E+03_JPRB,0.59838E+03_JPRB,0.87949E+03_JPRB,0.11596E+04_JPRB /)  
+KB(:, 2,40,11) = (/ &
+ & 0.10364E+04_JPRB,0.78533E+03_JPRB,0.59740E+03_JPRB,0.87771E+03_JPRB,0.11576E+04_JPRB /)  
+KB(:, 3,40,11) = (/ &
+ & 0.10357E+04_JPRB,0.78567E+03_JPRB,0.59640E+03_JPRB,0.87605E+03_JPRB,0.11559E+04_JPRB /)  
+KB(:, 4,40,11) = (/ &
+ & 0.10354E+04_JPRB,0.78518E+03_JPRB,0.59541E+03_JPRB,0.87434E+03_JPRB,0.11542E+04_JPRB /)  
+KB(:, 5,40,11) = (/ &
+ & 0.10361E+04_JPRB,0.78553E+03_JPRB,0.59453E+03_JPRB,0.87244E+03_JPRB,0.11529E+04_JPRB /)  
+KB(:, 1,41,11) = (/ &
+ & 0.10352E+04_JPRB,0.78554E+03_JPRB,0.59863E+03_JPRB,0.87958E+03_JPRB,0.11601E+04_JPRB /)  
+KB(:, 2,41,11) = (/ &
+ & 0.10361E+04_JPRB,0.78611E+03_JPRB,0.59765E+03_JPRB,0.87811E+03_JPRB,0.11581E+04_JPRB /)  
+KB(:, 3,41,11) = (/ &
+ & 0.10357E+04_JPRB,0.78586E+03_JPRB,0.59665E+03_JPRB,0.87648E+03_JPRB,0.11564E+04_JPRB /)  
+KB(:, 4,41,11) = (/ &
+ & 0.10369E+04_JPRB,0.78632E+03_JPRB,0.59556E+03_JPRB,0.87469E+03_JPRB,0.11547E+04_JPRB /)  
+KB(:, 5,41,11) = (/ &
+ & 0.10372E+04_JPRB,0.78631E+03_JPRB,0.59476E+03_JPRB,0.87298E+03_JPRB,0.11532E+04_JPRB /)  
+KB(:, 1,42,11) = (/ &
+ & 0.10352E+04_JPRB,0.78620E+03_JPRB,0.59889E+03_JPRB,0.87990E+03_JPRB,0.11605E+04_JPRB /)  
+KB(:, 2,42,11) = (/ &
+ & 0.10362E+04_JPRB,0.78666E+03_JPRB,0.59790E+03_JPRB,0.87851E+03_JPRB,0.11586E+04_JPRB /)  
+KB(:, 3,42,11) = (/ &
+ & 0.10358E+04_JPRB,0.78476E+03_JPRB,0.59691E+03_JPRB,0.87691E+03_JPRB,0.11568E+04_JPRB /)  
+KB(:, 4,42,11) = (/ &
+ & 0.10367E+04_JPRB,0.78534E+03_JPRB,0.59590E+03_JPRB,0.87517E+03_JPRB,0.11551E+04_JPRB /)  
+KB(:, 5,42,11) = (/ &
+ & 0.10374E+04_JPRB,0.78497E+03_JPRB,0.59497E+03_JPRB,0.87339E+03_JPRB,0.11533E+04_JPRB /)  
+KB(:, 1,43,11) = (/ &
+ & 0.10357E+04_JPRB,0.78569E+03_JPRB,0.59919E+03_JPRB,0.88014E+03_JPRB,0.11611E+04_JPRB /)  
+KB(:, 2,43,11) = (/ &
+ & 0.10384E+04_JPRB,0.78603E+03_JPRB,0.59811E+03_JPRB,0.87910E+03_JPRB,0.11592E+04_JPRB /)  
+KB(:, 3,43,11) = (/ &
+ & 0.10376E+04_JPRB,0.78685E+03_JPRB,0.59731E+03_JPRB,0.87742E+03_JPRB,0.11573E+04_JPRB /)  
+KB(:, 4,43,11) = (/ &
+ & 0.10368E+04_JPRB,0.78484E+03_JPRB,0.59612E+03_JPRB,0.87573E+03_JPRB,0.11555E+04_JPRB /)  
+KB(:, 5,43,11) = (/ &
+ & 0.10371E+04_JPRB,0.78612E+03_JPRB,0.59525E+03_JPRB,0.87389E+03_JPRB,0.11539E+04_JPRB /)  
+KB(:, 1,44,11) = (/ &
+ & 0.10362E+04_JPRB,0.78531E+03_JPRB,0.59952E+03_JPRB,0.88052E+03_JPRB,0.11615E+04_JPRB /)  
+KB(:, 2,44,11) = (/ &
+ & 0.10357E+04_JPRB,0.78506E+03_JPRB,0.59854E+03_JPRB,0.87945E+03_JPRB,0.11599E+04_JPRB /)  
+KB(:, 3,44,11) = (/ &
+ & 0.10347E+04_JPRB,0.78494E+03_JPRB,0.59755E+03_JPRB,0.87796E+03_JPRB,0.11576E+04_JPRB /)  
+KB(:, 4,44,11) = (/ &
+ & 0.10360E+04_JPRB,0.78599E+03_JPRB,0.59655E+03_JPRB,0.87632E+03_JPRB,0.11562E+04_JPRB /)  
+KB(:, 5,44,11) = (/ &
+ & 0.10364E+04_JPRB,0.78610E+03_JPRB,0.59556E+03_JPRB,0.87451E+03_JPRB,0.11545E+04_JPRB /)  
+KB(:, 1,45,11) = (/ &
+ & 0.10355E+04_JPRB,0.78552E+03_JPRB,0.59982E+03_JPRB,0.88100E+03_JPRB,0.11621E+04_JPRB /)  
+KB(:, 2,45,11) = (/ &
+ & 0.10357E+04_JPRB,0.78527E+03_JPRB,0.59887E+03_JPRB,0.87975E+03_JPRB,0.11605E+04_JPRB /)  
+KB(:, 3,45,11) = (/ &
+ & 0.10358E+04_JPRB,0.78432E+03_JPRB,0.59788E+03_JPRB,0.87848E+03_JPRB,0.11586E+04_JPRB /)  
+KB(:, 4,45,11) = (/ &
+ & 0.10358E+04_JPRB,0.78597E+03_JPRB,0.59689E+03_JPRB,0.87689E+03_JPRB,0.11568E+04_JPRB /)  
+KB(:, 5,45,11) = (/ &
+ & 0.10353E+04_JPRB,0.78525E+03_JPRB,0.59589E+03_JPRB,0.87514E+03_JPRB,0.11551E+04_JPRB /)  
+KB(:, 1,46,11) = (/ &
+ & 0.10358E+04_JPRB,0.78503E+03_JPRB,0.60010E+03_JPRB,0.88136E+03_JPRB,0.11629E+04_JPRB /)  
+KB(:, 2,46,11) = (/ &
+ & 0.10366E+04_JPRB,0.78667E+03_JPRB,0.59923E+03_JPRB,0.88004E+03_JPRB,0.11611E+04_JPRB /)  
+KB(:, 3,46,11) = (/ &
+ & 0.10372E+04_JPRB,0.78560E+03_JPRB,0.59824E+03_JPRB,0.87915E+03_JPRB,0.11593E+04_JPRB /)  
+KB(:, 4,46,11) = (/ &
+ & 0.10348E+04_JPRB,0.78513E+03_JPRB,0.59725E+03_JPRB,0.87748E+03_JPRB,0.11574E+04_JPRB /)  
+KB(:, 5,46,11) = (/ &
+ & 0.10372E+04_JPRB,0.78595E+03_JPRB,0.59625E+03_JPRB,0.87592E+03_JPRB,0.11557E+04_JPRB /)  
+KB(:, 1,47,11) = (/ &
+ & 0.10352E+04_JPRB,0.78466E+03_JPRB,0.60059E+03_JPRB,0.88175E+03_JPRB,0.11637E+04_JPRB /)  
+KB(:, 2,47,11) = (/ &
+ & 0.10362E+04_JPRB,0.78477E+03_JPRB,0.59970E+03_JPRB,0.88075E+03_JPRB,0.11618E+04_JPRB /)  
+KB(:, 3,47,11) = (/ &
+ & 0.10362E+04_JPRB,0.78559E+03_JPRB,0.59863E+03_JPRB,0.87958E+03_JPRB,0.11601E+04_JPRB /)  
+KB(:, 4,47,11) = (/ &
+ & 0.10356E+04_JPRB,0.78476E+03_JPRB,0.59765E+03_JPRB,0.87812E+03_JPRB,0.11581E+04_JPRB /)  
+KB(:, 5,47,11) = (/ &
+ & 0.10361E+04_JPRB,0.78428E+03_JPRB,0.59665E+03_JPRB,0.87649E+03_JPRB,0.11564E+04_JPRB /)  
+KB(:, 1,48,11) = (/ &
+ & 0.10354E+04_JPRB,0.78500E+03_JPRB,0.60042E+03_JPRB,0.88214E+03_JPRB,0.11645E+04_JPRB /)  
+KB(:, 2,48,11) = (/ &
+ & 0.10348E+04_JPRB,0.78582E+03_JPRB,0.59995E+03_JPRB,0.88117E+03_JPRB,0.11625E+04_JPRB /)  
+KB(:, 3,48,11) = (/ &
+ & 0.10353E+04_JPRB,0.78569E+03_JPRB,0.59903E+03_JPRB,0.87942E+03_JPRB,0.11608E+04_JPRB /)  
+KB(:, 4,48,11) = (/ &
+ & 0.10359E+04_JPRB,0.78569E+03_JPRB,0.59804E+03_JPRB,0.87873E+03_JPRB,0.11589E+04_JPRB /)  
+KB(:, 5,48,11) = (/ &
+ & 0.10354E+04_JPRB,0.78509E+03_JPRB,0.59705E+03_JPRB,0.87716E+03_JPRB,0.11570E+04_JPRB /)  
+KB(:, 1,49,11) = (/ &
+ & 0.10362E+04_JPRB,0.78463E+03_JPRB,0.60042E+03_JPRB,0.88242E+03_JPRB,0.11657E+04_JPRB /)  
+KB(:, 2,49,11) = (/ &
+ & 0.10367E+04_JPRB,0.78580E+03_JPRB,0.60023E+03_JPRB,0.88156E+03_JPRB,0.11633E+04_JPRB /)  
+KB(:, 3,49,11) = (/ &
+ & 0.10373E+04_JPRB,0.78533E+03_JPRB,0.59942E+03_JPRB,0.88054E+03_JPRB,0.11615E+04_JPRB /)  
+KB(:, 4,49,11) = (/ &
+ & 0.10373E+04_JPRB,0.78462E+03_JPRB,0.59844E+03_JPRB,0.87918E+03_JPRB,0.11595E+04_JPRB /)  
+KB(:, 5,49,11) = (/ &
+ & 0.10370E+04_JPRB,0.78532E+03_JPRB,0.59736E+03_JPRB,0.87781E+03_JPRB,0.11578E+04_JPRB /)  
+KB(:, 1,50,11) = (/ &
+ & 0.10356E+04_JPRB,0.78474E+03_JPRB,0.60056E+03_JPRB,0.88267E+03_JPRB,0.11666E+04_JPRB /)  
+KB(:, 2,50,11) = (/ &
+ & 0.10370E+04_JPRB,0.78497E+03_JPRB,0.60046E+03_JPRB,0.88192E+03_JPRB,0.11642E+04_JPRB /)  
+KB(:, 3,50,11) = (/ &
+ & 0.10348E+04_JPRB,0.78508E+03_JPRB,0.59977E+03_JPRB,0.88094E+03_JPRB,0.11634E+04_JPRB /)  
+KB(:, 4,50,11) = (/ &
+ & 0.10352E+04_JPRB,0.78473E+03_JPRB,0.59881E+03_JPRB,0.87954E+03_JPRB,0.11604E+04_JPRB /)  
+KB(:, 5,50,11) = (/ &
+ & 0.10360E+04_JPRB,0.78437E+03_JPRB,0.59782E+03_JPRB,0.87840E+03_JPRB,0.11585E+04_JPRB /)  
+KB(:, 1,51,11) = (/ &
+ & 0.10365E+04_JPRB,0.78532E+03_JPRB,0.60054E+03_JPRB,0.88306E+03_JPRB,0.11674E+04_JPRB /)  
+KB(:, 2,51,11) = (/ &
+ & 0.10360E+04_JPRB,0.78555E+03_JPRB,0.60046E+03_JPRB,0.88226E+03_JPRB,0.11651E+04_JPRB /)  
+KB(:, 3,51,11) = (/ &
+ & 0.10359E+04_JPRB,0.78508E+03_JPRB,0.60006E+03_JPRB,0.88131E+03_JPRB,0.11628E+04_JPRB /)  
+KB(:, 4,51,11) = (/ &
+ & 0.10359E+04_JPRB,0.78554E+03_JPRB,0.59917E+03_JPRB,0.88011E+03_JPRB,0.11610E+04_JPRB /)  
+KB(:, 5,51,11) = (/ &
+ & 0.10363E+04_JPRB,0.78507E+03_JPRB,0.59818E+03_JPRB,0.87894E+03_JPRB,0.11592E+04_JPRB /)  
+KB(:, 1,52,11) = (/ &
+ & 0.10357E+04_JPRB,0.78531E+03_JPRB,0.60048E+03_JPRB,0.88333E+03_JPRB,0.11687E+04_JPRB /)  
+KB(:, 2,52,11) = (/ &
+ & 0.10368E+04_JPRB,0.78554E+03_JPRB,0.60053E+03_JPRB,0.88249E+03_JPRB,0.11660E+04_JPRB /)  
+KB(:, 3,52,11) = (/ &
+ & 0.10362E+04_JPRB,0.78601E+03_JPRB,0.60037E+03_JPRB,0.88166E+03_JPRB,0.11635E+04_JPRB /)  
+KB(:, 4,52,11) = (/ &
+ & 0.10354E+04_JPRB,0.78507E+03_JPRB,0.59952E+03_JPRB,0.88066E+03_JPRB,0.11617E+04_JPRB /)  
+KB(:, 5,52,11) = (/ &
+ & 0.10363E+04_JPRB,0.78565E+03_JPRB,0.59854E+03_JPRB,0.87959E+03_JPRB,0.11599E+04_JPRB /)  
+KB(:, 1,53,11) = (/ &
+ & 0.10366E+04_JPRB,0.78460E+03_JPRB,0.60030E+03_JPRB,0.88415E+03_JPRB,0.11699E+04_JPRB /)  
+KB(:, 2,53,11) = (/ &
+ & 0.10366E+04_JPRB,0.78400E+03_JPRB,0.60056E+03_JPRB,0.88262E+03_JPRB,0.11668E+04_JPRB /)  
+KB(:, 3,53,11) = (/ &
+ & 0.10358E+04_JPRB,0.78459E+03_JPRB,0.60039E+03_JPRB,0.88202E+03_JPRB,0.11644E+04_JPRB /)  
+KB(:, 4,53,11) = (/ &
+ & 0.10348E+04_JPRB,0.78471E+03_JPRB,0.59985E+03_JPRB,0.88104E+03_JPRB,0.11623E+04_JPRB /)  
+KB(:, 5,53,11) = (/ &
+ & 0.10366E+04_JPRB,0.78577E+03_JPRB,0.59891E+03_JPRB,0.87992E+03_JPRB,0.11606E+04_JPRB /)  
+KB(:, 1,54,11) = (/ &
+ & 0.10355E+04_JPRB,0.78471E+03_JPRB,0.60033E+03_JPRB,0.88501E+03_JPRB,0.11708E+04_JPRB /)  
+KB(:, 2,54,11) = (/ &
+ & 0.10360E+04_JPRB,0.78494E+03_JPRB,0.60053E+03_JPRB,0.88313E+03_JPRB,0.11678E+04_JPRB /)  
+KB(:, 3,54,11) = (/ &
+ & 0.10360E+04_JPRB,0.78671E+03_JPRB,0.60047E+03_JPRB,0.88230E+03_JPRB,0.11652E+04_JPRB /)  
+KB(:, 4,54,11) = (/ &
+ & 0.10355E+04_JPRB,0.78588E+03_JPRB,0.60010E+03_JPRB,0.88137E+03_JPRB,0.11629E+04_JPRB /)  
+KB(:, 5,54,11) = (/ &
+ & 0.10357E+04_JPRB,0.78517E+03_JPRB,0.59924E+03_JPRB,0.88032E+03_JPRB,0.11612E+04_JPRB /)  
+KB(:, 1,55,11) = (/ &
+ & 0.10357E+04_JPRB,0.78506E+03_JPRB,0.60035E+03_JPRB,0.88567E+03_JPRB,0.11714E+04_JPRB /)  
+KB(:, 2,55,11) = (/ &
+ & 0.10357E+04_JPRB,0.78518E+03_JPRB,0.60047E+03_JPRB,0.88349E+03_JPRB,0.11688E+04_JPRB /)  
+KB(:, 3,55,11) = (/ &
+ & 0.10361E+04_JPRB,0.78517E+03_JPRB,0.60053E+03_JPRB,0.88250E+03_JPRB,0.11660E+04_JPRB /)  
+KB(:, 4,55,11) = (/ &
+ & 0.10357E+04_JPRB,0.78529E+03_JPRB,0.60029E+03_JPRB,0.88168E+03_JPRB,0.11636E+04_JPRB /)  
+KB(:, 5,55,11) = (/ &
+ & 0.10360E+04_JPRB,0.78529E+03_JPRB,0.59954E+03_JPRB,0.88068E+03_JPRB,0.11617E+04_JPRB /)  
+KB(:, 1,56,11) = (/ &
+ & 0.10361E+04_JPRB,0.78494E+03_JPRB,0.60049E+03_JPRB,0.88607E+03_JPRB,0.11718E+04_JPRB /)  
+KB(:, 2,56,11) = (/ &
+ & 0.10360E+04_JPRB,0.78482E+03_JPRB,0.60030E+03_JPRB,0.88410E+03_JPRB,0.11698E+04_JPRB /)  
+KB(:, 3,56,11) = (/ &
+ & 0.10354E+04_JPRB,0.78493E+03_JPRB,0.60056E+03_JPRB,0.88273E+03_JPRB,0.11667E+04_JPRB /)  
+KB(:, 4,56,11) = (/ &
+ & 0.10357E+04_JPRB,0.78552E+03_JPRB,0.60038E+03_JPRB,0.88199E+03_JPRB,0.11645E+04_JPRB /)  
+KB(:, 5,56,11) = (/ &
+ & 0.10357E+04_JPRB,0.78517E+03_JPRB,0.59983E+03_JPRB,0.88101E+03_JPRB,0.11624E+04_JPRB /)  
+KB(:, 1,57,11) = (/ &
+ & 0.10357E+04_JPRB,0.78588E+03_JPRB,0.60099E+03_JPRB,0.88686E+03_JPRB,0.11725E+04_JPRB /)  
+KB(:, 2,57,11) = (/ &
+ & 0.10366E+04_JPRB,0.78458E+03_JPRB,0.60033E+03_JPRB,0.88491E+03_JPRB,0.11707E+04_JPRB /)  
+KB(:, 3,57,11) = (/ &
+ & 0.10366E+04_JPRB,0.78481E+03_JPRB,0.60053E+03_JPRB,0.88335E+03_JPRB,0.11676E+04_JPRB /)  
+KB(:, 4,57,11) = (/ &
+ & 0.10358E+04_JPRB,0.78611E+03_JPRB,0.60046E+03_JPRB,0.88227E+03_JPRB,0.11650E+04_JPRB /)  
+KB(:, 5,57,11) = (/ &
+ & 0.10355E+04_JPRB,0.78599E+03_JPRB,0.60008E+03_JPRB,0.88133E+03_JPRB,0.11630E+04_JPRB /)  
+KB(:, 1,58,11) = (/ &
+ & 0.10363E+04_JPRB,0.78576E+03_JPRB,0.60143E+03_JPRB,0.88764E+03_JPRB,0.11733E+04_JPRB /)  
+KB(:, 2,58,11) = (/ &
+ & 0.10354E+04_JPRB,0.78611E+03_JPRB,0.60042E+03_JPRB,0.88557E+03_JPRB,0.11713E+04_JPRB /)  
+KB(:, 3,58,11) = (/ &
+ & 0.10363E+04_JPRB,0.78576E+03_JPRB,0.60048E+03_JPRB,0.88329E+03_JPRB,0.11686E+04_JPRB /)  
+KB(:, 4,58,11) = (/ &
+ & 0.10364E+04_JPRB,0.78505E+03_JPRB,0.60052E+03_JPRB,0.88247E+03_JPRB,0.11659E+04_JPRB /)  
+KB(:, 5,58,11) = (/ &
+ & 0.10357E+04_JPRB,0.78552E+03_JPRB,0.60026E+03_JPRB,0.88163E+03_JPRB,0.11633E+04_JPRB /)  
+KB(:, 1,59,11) = (/ &
+ & 0.10354E+04_JPRB,0.78634E+03_JPRB,0.60176E+03_JPRB,0.88797E+03_JPRB,0.11736E+04_JPRB /)  
+KB(:, 2,59,11) = (/ &
+ & 0.10350E+04_JPRB,0.78505E+03_JPRB,0.60038E+03_JPRB,0.88577E+03_JPRB,0.11715E+04_JPRB /)  
+KB(:, 3,59,11) = (/ &
+ & 0.10360E+04_JPRB,0.78469E+03_JPRB,0.60046E+03_JPRB,0.88358E+03_JPRB,0.11703E+04_JPRB /)  
+KB(:, 4,59,11) = (/ &
+ & 0.10357E+04_JPRB,0.78493E+03_JPRB,0.60045E+03_JPRB,0.88254E+03_JPRB,0.11662E+04_JPRB /)  
+KB(:, 5,59,11) = (/ &
+ & 0.10366E+04_JPRB,0.78516E+03_JPRB,0.60041E+03_JPRB,0.88174E+03_JPRB,0.11637E+04_JPRB /)  
+KB(:, 1,13,12) = (/ &
+ & 0.11535E+04_JPRB,0.87955E+03_JPRB,0.60434E+03_JPRB,0.88744E+03_JPRB,0.11710E+04_JPRB /)  
+KB(:, 2,13,12) = (/ &
+ & 0.11485E+04_JPRB,0.86886E+03_JPRB,0.60369E+03_JPRB,0.88598E+03_JPRB,0.11697E+04_JPRB /)  
+KB(:, 3,13,12) = (/ &
+ & 0.11395E+04_JPRB,0.86441E+03_JPRB,0.60332E+03_JPRB,0.88477E+03_JPRB,0.11680E+04_JPRB /)  
+KB(:, 4,13,12) = (/ &
+ & 0.11350E+04_JPRB,0.86216E+03_JPRB,0.60276E+03_JPRB,0.88294E+03_JPRB,0.11659E+04_JPRB /)  
+KB(:, 5,13,12) = (/ &
+ & 0.11237E+04_JPRB,0.85514E+03_JPRB,0.60186E+03_JPRB,0.88131E+03_JPRB,0.11640E+04_JPRB /)  
+KB(:, 1,14,12) = (/ &
+ & 0.11312E+04_JPRB,0.85960E+03_JPRB,0.60391E+03_JPRB,0.88683E+03_JPRB,0.11708E+04_JPRB /)  
+KB(:, 2,14,12) = (/ &
+ & 0.11248E+04_JPRB,0.85192E+03_JPRB,0.60329E+03_JPRB,0.88591E+03_JPRB,0.11696E+04_JPRB /)  
+KB(:, 3,14,12) = (/ &
+ & 0.11210E+04_JPRB,0.84824E+03_JPRB,0.60297E+03_JPRB,0.88444E+03_JPRB,0.11678E+04_JPRB /)  
+KB(:, 4,14,12) = (/ &
+ & 0.11139E+04_JPRB,0.84322E+03_JPRB,0.60241E+03_JPRB,0.88264E+03_JPRB,0.11657E+04_JPRB /)  
+KB(:, 5,14,12) = (/ &
+ & 0.11123E+04_JPRB,0.84158E+03_JPRB,0.60150E+03_JPRB,0.88104E+03_JPRB,0.11639E+04_JPRB /)  
+KB(:, 1,15,12) = (/ &
+ & 0.11159E+04_JPRB,0.84414E+03_JPRB,0.60344E+03_JPRB,0.88657E+03_JPRB,0.11715E+04_JPRB /)  
+KB(:, 2,15,12) = (/ &
+ & 0.11106E+04_JPRB,0.84043E+03_JPRB,0.60296E+03_JPRB,0.88568E+03_JPRB,0.11695E+04_JPRB /)  
+KB(:, 3,15,12) = (/ &
+ & 0.11018E+04_JPRB,0.83588E+03_JPRB,0.60268E+03_JPRB,0.88413E+03_JPRB,0.11676E+04_JPRB /)  
+KB(:, 4,15,12) = (/ &
+ & 0.10976E+04_JPRB,0.83213E+03_JPRB,0.60210E+03_JPRB,0.88235E+03_JPRB,0.11655E+04_JPRB /)  
+KB(:, 5,15,12) = (/ &
+ & 0.10965E+04_JPRB,0.83273E+03_JPRB,0.60128E+03_JPRB,0.88077E+03_JPRB,0.11639E+04_JPRB /)  
+KB(:, 1,16,12) = (/ &
+ & 0.11003E+04_JPRB,0.83414E+03_JPRB,0.60325E+03_JPRB,0.88634E+03_JPRB,0.11705E+04_JPRB /)  
+KB(:, 2,16,12) = (/ &
+ & 0.10991E+04_JPRB,0.82921E+03_JPRB,0.60259E+03_JPRB,0.88546E+03_JPRB,0.11694E+04_JPRB /)  
+KB(:, 3,16,12) = (/ &
+ & 0.10955E+04_JPRB,0.82665E+03_JPRB,0.60243E+03_JPRB,0.88384E+03_JPRB,0.11674E+04_JPRB /)  
+KB(:, 4,16,12) = (/ &
+ & 0.10851E+04_JPRB,0.82401E+03_JPRB,0.60183E+03_JPRB,0.88207E+03_JPRB,0.11653E+04_JPRB /)  
+KB(:, 5,16,12) = (/ &
+ & 0.10849E+04_JPRB,0.82356E+03_JPRB,0.60085E+03_JPRB,0.88053E+03_JPRB,0.11635E+04_JPRB /)  
+KB(:, 1,17,12) = (/ &
+ & 0.10876E+04_JPRB,0.82527E+03_JPRB,0.60299E+03_JPRB,0.88614E+03_JPRB,0.11702E+04_JPRB /)  
+KB(:, 2,17,12) = (/ &
+ & 0.10859E+04_JPRB,0.82135E+03_JPRB,0.60250E+03_JPRB,0.88526E+03_JPRB,0.11692E+04_JPRB /)  
+KB(:, 3,17,12) = (/ &
+ & 0.10841E+04_JPRB,0.81891E+03_JPRB,0.60222E+03_JPRB,0.88356E+03_JPRB,0.11671E+04_JPRB /)  
+KB(:, 4,17,12) = (/ &
+ & 0.10784E+04_JPRB,0.81708E+03_JPRB,0.60159E+03_JPRB,0.88183E+03_JPRB,0.11651E+04_JPRB /)  
+KB(:, 5,17,12) = (/ &
+ & 0.10763E+04_JPRB,0.81350E+03_JPRB,0.60170E+03_JPRB,0.88030E+03_JPRB,0.11634E+04_JPRB /)  
+KB(:, 1,18,12) = (/ &
+ & 0.10781E+04_JPRB,0.81748E+03_JPRB,0.60276E+03_JPRB,0.88597E+03_JPRB,0.11700E+04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART29',1,ZHOOK_HANDLE)
+END SUBROUTINE PART29
+
+
+SUBROUTINE PART30
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART30',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,18,12) = (/ &
+ & 0.10771E+04_JPRB,0.81396E+03_JPRB,0.60232E+03_JPRB,0.88573E+03_JPRB,0.11691E+04_JPRB /)  
+KB(:, 3,18,12) = (/ &
+ & 0.10718E+04_JPRB,0.81415E+03_JPRB,0.60204E+03_JPRB,0.88331E+03_JPRB,0.11669E+04_JPRB /)  
+KB(:, 4,18,12) = (/ &
+ & 0.10689E+04_JPRB,0.81027E+03_JPRB,0.60137E+03_JPRB,0.88144E+03_JPRB,0.11649E+04_JPRB /)  
+KB(:, 5,18,12) = (/ &
+ & 0.10691E+04_JPRB,0.80937E+03_JPRB,0.60029E+03_JPRB,0.88009E+03_JPRB,0.11632E+04_JPRB /)  
+KB(:, 1,19,12) = (/ &
+ & 0.10732E+04_JPRB,0.81093E+03_JPRB,0.60257E+03_JPRB,0.88582E+03_JPRB,0.11702E+04_JPRB /)  
+KB(:, 2,19,12) = (/ &
+ & 0.10665E+04_JPRB,0.81093E+03_JPRB,0.60218E+03_JPRB,0.88486E+03_JPRB,0.11689E+04_JPRB /)  
+KB(:, 3,19,12) = (/ &
+ & 0.10668E+04_JPRB,0.80596E+03_JPRB,0.60188E+03_JPRB,0.88291E+03_JPRB,0.11667E+04_JPRB /)  
+KB(:, 4,19,12) = (/ &
+ & 0.10625E+04_JPRB,0.80871E+03_JPRB,0.60129E+03_JPRB,0.88139E+03_JPRB,0.11647E+04_JPRB /)  
+KB(:, 5,19,12) = (/ &
+ & 0.10641E+04_JPRB,0.80549E+03_JPRB,0.60005E+03_JPRB,0.87990E+03_JPRB,0.11631E+04_JPRB /)  
+KB(:, 1,20,12) = (/ &
+ & 0.10655E+04_JPRB,0.80608E+03_JPRB,0.60228E+03_JPRB,0.88568E+03_JPRB,0.11700E+04_JPRB /)  
+KB(:, 2,20,12) = (/ &
+ & 0.10621E+04_JPRB,0.80582E+03_JPRB,0.60205E+03_JPRB,0.88462E+03_JPRB,0.11686E+04_JPRB /)  
+KB(:, 3,20,12) = (/ &
+ & 0.10596E+04_JPRB,0.80439E+03_JPRB,0.60161E+03_JPRB,0.88282E+03_JPRB,0.11664E+04_JPRB /)  
+KB(:, 4,20,12) = (/ &
+ & 0.10569E+04_JPRB,0.80052E+03_JPRB,0.60133E+03_JPRB,0.88084E+03_JPRB,0.11645E+04_JPRB /)  
+KB(:, 5,20,12) = (/ &
+ & 0.10576E+04_JPRB,0.80029E+03_JPRB,0.59980E+03_JPRB,0.87969E+03_JPRB,0.11629E+04_JPRB /)  
+KB(:, 1,21,12) = (/ &
+ & 0.10601E+04_JPRB,0.80047E+03_JPRB,0.60235E+03_JPRB,0.88539E+03_JPRB,0.11699E+04_JPRB /)  
+KB(:, 2,21,12) = (/ &
+ & 0.10553E+04_JPRB,0.80126E+03_JPRB,0.60195E+03_JPRB,0.88437E+03_JPRB,0.11684E+04_JPRB /)  
+KB(:, 3,21,12) = (/ &
+ & 0.10581E+04_JPRB,0.79916E+03_JPRB,0.60159E+03_JPRB,0.88257E+03_JPRB,0.11662E+04_JPRB /)  
+KB(:, 4,21,12) = (/ &
+ & 0.10523E+04_JPRB,0.79871E+03_JPRB,0.60090E+03_JPRB,0.88096E+03_JPRB,0.11643E+04_JPRB /)  
+KB(:, 5,21,12) = (/ &
+ & 0.10536E+04_JPRB,0.79852E+03_JPRB,0.59957E+03_JPRB,0.87950E+03_JPRB,0.11627E+04_JPRB /)  
+KB(:, 1,22,12) = (/ &
+ & 0.10543E+04_JPRB,0.79995E+03_JPRB,0.60207E+03_JPRB,0.88538E+03_JPRB,0.11697E+04_JPRB /)  
+KB(:, 2,22,12) = (/ &
+ & 0.10531E+04_JPRB,0.79794E+03_JPRB,0.60195E+03_JPRB,0.88401E+03_JPRB,0.11680E+04_JPRB /)  
+KB(:, 3,22,12) = (/ &
+ & 0.10510E+04_JPRB,0.79590E+03_JPRB,0.60141E+03_JPRB,0.88205E+03_JPRB,0.11658E+04_JPRB /)  
+KB(:, 4,22,12) = (/ &
+ & 0.10516E+04_JPRB,0.79518E+03_JPRB,0.60121E+03_JPRB,0.88065E+03_JPRB,0.11640E+04_JPRB /)  
+KB(:, 5,22,12) = (/ &
+ & 0.10507E+04_JPRB,0.79514E+03_JPRB,0.59925E+03_JPRB,0.87922E+03_JPRB,0.11625E+04_JPRB /)  
+KB(:, 1,23,12) = (/ &
+ & 0.10496E+04_JPRB,0.79686E+03_JPRB,0.60138E+03_JPRB,0.88518E+03_JPRB,0.11695E+04_JPRB /)  
+KB(:, 2,23,12) = (/ &
+ & 0.10500E+04_JPRB,0.79504E+03_JPRB,0.60174E+03_JPRB,0.88363E+03_JPRB,0.11675E+04_JPRB /)  
+KB(:, 3,23,12) = (/ &
+ & 0.10497E+04_JPRB,0.79559E+03_JPRB,0.60122E+03_JPRB,0.88187E+03_JPRB,0.11654E+04_JPRB /)  
+KB(:, 4,23,12) = (/ &
+ & 0.10478E+04_JPRB,0.79456E+03_JPRB,0.60013E+03_JPRB,0.88034E+03_JPRB,0.11637E+04_JPRB /)  
+KB(:, 5,23,12) = (/ &
+ & 0.10481E+04_JPRB,0.79269E+03_JPRB,0.59893E+03_JPRB,0.87894E+03_JPRB,0.11623E+04_JPRB /)  
+KB(:, 1,24,12) = (/ &
+ & 0.10504E+04_JPRB,0.79322E+03_JPRB,0.60186E+03_JPRB,0.88494E+03_JPRB,0.11692E+04_JPRB /)  
+KB(:, 2,24,12) = (/ &
+ & 0.10474E+04_JPRB,0.79292E+03_JPRB,0.60174E+03_JPRB,0.88325E+03_JPRB,0.11671E+04_JPRB /)  
+KB(:, 3,24,12) = (/ &
+ & 0.10457E+04_JPRB,0.79315E+03_JPRB,0.60103E+03_JPRB,0.88153E+03_JPRB,0.11648E+04_JPRB /)  
+KB(:, 4,24,12) = (/ &
+ & 0.10462E+04_JPRB,0.79329E+03_JPRB,0.59996E+03_JPRB,0.88003E+03_JPRB,0.11633E+04_JPRB /)  
+KB(:, 5,24,12) = (/ &
+ & 0.10477E+04_JPRB,0.79348E+03_JPRB,0.59860E+03_JPRB,0.87867E+03_JPRB,0.11620E+04_JPRB /)  
+KB(:, 1,25,12) = (/ &
+ & 0.10437E+04_JPRB,0.79315E+03_JPRB,0.60179E+03_JPRB,0.88497E+03_JPRB,0.11688E+04_JPRB /)  
+KB(:, 2,25,12) = (/ &
+ & 0.10446E+04_JPRB,0.79177E+03_JPRB,0.60151E+03_JPRB,0.88285E+03_JPRB,0.11666E+04_JPRB /)  
+KB(:, 3,25,12) = (/ &
+ & 0.10443E+04_JPRB,0.79105E+03_JPRB,0.60081E+03_JPRB,0.88119E+03_JPRB,0.11647E+04_JPRB /)  
+KB(:, 4,25,12) = (/ &
+ & 0.10440E+04_JPRB,0.79204E+03_JPRB,0.59965E+03_JPRB,0.87971E+03_JPRB,0.11630E+04_JPRB /)  
+KB(:, 5,25,12) = (/ &
+ & 0.10441E+04_JPRB,0.79141E+03_JPRB,0.59825E+03_JPRB,0.87840E+03_JPRB,0.11618E+04_JPRB /)  
+KB(:, 1,26,12) = (/ &
+ & 0.10444E+04_JPRB,0.79040E+03_JPRB,0.60171E+03_JPRB,0.88422E+03_JPRB,0.11681E+04_JPRB /)  
+KB(:, 2,26,12) = (/ &
+ & 0.10415E+04_JPRB,0.78987E+03_JPRB,0.60136E+03_JPRB,0.88243E+03_JPRB,0.11661E+04_JPRB /)  
+KB(:, 3,26,12) = (/ &
+ & 0.10417E+04_JPRB,0.79014E+03_JPRB,0.60043E+03_JPRB,0.88082E+03_JPRB,0.11642E+04_JPRB /)  
+KB(:, 4,26,12) = (/ &
+ & 0.10442E+04_JPRB,0.78985E+03_JPRB,0.59932E+03_JPRB,0.87937E+03_JPRB,0.11625E+04_JPRB /)  
+KB(:, 5,26,12) = (/ &
+ & 0.10421E+04_JPRB,0.79004E+03_JPRB,0.59787E+03_JPRB,0.87814E+03_JPRB,0.11615E+04_JPRB /)  
+KB(:, 1,27,12) = (/ &
+ & 0.10431E+04_JPRB,0.78868E+03_JPRB,0.60163E+03_JPRB,0.88378E+03_JPRB,0.11678E+04_JPRB /)  
+KB(:, 2,27,12) = (/ &
+ & 0.10423E+04_JPRB,0.79138E+03_JPRB,0.60118E+03_JPRB,0.88201E+03_JPRB,0.11657E+04_JPRB /)  
+KB(:, 3,27,12) = (/ &
+ & 0.10404E+04_JPRB,0.78916E+03_JPRB,0.60037E+03_JPRB,0.88046E+03_JPRB,0.11638E+04_JPRB /)  
+KB(:, 4,27,12) = (/ &
+ & 0.10405E+04_JPRB,0.78893E+03_JPRB,0.59897E+03_JPRB,0.87905E+03_JPRB,0.11624E+04_JPRB /)  
+KB(:, 5,27,12) = (/ &
+ & 0.10396E+04_JPRB,0.78917E+03_JPRB,0.59748E+03_JPRB,0.87790E+03_JPRB,0.11613E+04_JPRB /)  
+KB(:, 1,28,12) = (/ &
+ & 0.10409E+04_JPRB,0.79152E+03_JPRB,0.60155E+03_JPRB,0.88334E+03_JPRB,0.11673E+04_JPRB /)  
+KB(:, 2,28,12) = (/ &
+ & 0.10439E+04_JPRB,0.78963E+03_JPRB,0.60099E+03_JPRB,0.88127E+03_JPRB,0.11652E+04_JPRB /)  
+KB(:, 3,28,12) = (/ &
+ & 0.10423E+04_JPRB,0.78823E+03_JPRB,0.60006E+03_JPRB,0.88010E+03_JPRB,0.11635E+04_JPRB /)  
+KB(:, 4,28,12) = (/ &
+ & 0.10442E+04_JPRB,0.78834E+03_JPRB,0.59861E+03_JPRB,0.87873E+03_JPRB,0.11621E+04_JPRB /)  
+KB(:, 5,28,12) = (/ &
+ & 0.10392E+04_JPRB,0.79042E+03_JPRB,0.59708E+03_JPRB,0.87768E+03_JPRB,0.11610E+04_JPRB /)  
+KB(:, 1,29,12) = (/ &
+ & 0.10405E+04_JPRB,0.79019E+03_JPRB,0.60167E+03_JPRB,0.88289E+03_JPRB,0.11667E+04_JPRB /)  
+KB(:, 2,29,12) = (/ &
+ & 0.10432E+04_JPRB,0.78865E+03_JPRB,0.60111E+03_JPRB,0.88122E+03_JPRB,0.11647E+04_JPRB /)  
+KB(:, 3,29,12) = (/ &
+ & 0.10406E+04_JPRB,0.78834E+03_JPRB,0.59962E+03_JPRB,0.87974E+03_JPRB,0.11631E+04_JPRB /)  
+KB(:, 4,29,12) = (/ &
+ & 0.10397E+04_JPRB,0.78909E+03_JPRB,0.59824E+03_JPRB,0.87826E+03_JPRB,0.11618E+04_JPRB /)  
+KB(:, 5,29,12) = (/ &
+ & 0.10387E+04_JPRB,0.78925E+03_JPRB,0.59665E+03_JPRB,0.87746E+03_JPRB,0.11608E+04_JPRB /)  
+KB(:, 1,30,12) = (/ &
+ & 0.10411E+04_JPRB,0.78840E+03_JPRB,0.60130E+03_JPRB,0.88244E+03_JPRB,0.11662E+04_JPRB /)  
+KB(:, 2,30,12) = (/ &
+ & 0.10395E+04_JPRB,0.79020E+03_JPRB,0.60051E+03_JPRB,0.88083E+03_JPRB,0.11643E+04_JPRB /)  
+KB(:, 3,30,12) = (/ &
+ & 0.10384E+04_JPRB,0.78543E+03_JPRB,0.59928E+03_JPRB,0.87938E+03_JPRB,0.11627E+04_JPRB /)  
+KB(:, 4,30,12) = (/ &
+ & 0.10394E+04_JPRB,0.78756E+03_JPRB,0.59785E+03_JPRB,0.87814E+03_JPRB,0.11615E+04_JPRB /)  
+KB(:, 5,30,12) = (/ &
+ & 0.10383E+04_JPRB,0.78820E+03_JPRB,0.59620E+03_JPRB,0.87743E+03_JPRB,0.11605E+04_JPRB /)  
+KB(:, 1,31,12) = (/ &
+ & 0.10385E+04_JPRB,0.78703E+03_JPRB,0.60113E+03_JPRB,0.88199E+03_JPRB,0.11657E+04_JPRB /)  
+KB(:, 2,31,12) = (/ &
+ & 0.10401E+04_JPRB,0.79050E+03_JPRB,0.60021E+03_JPRB,0.88045E+03_JPRB,0.11639E+04_JPRB /)  
+KB(:, 3,31,12) = (/ &
+ & 0.10412E+04_JPRB,0.78681E+03_JPRB,0.59892E+03_JPRB,0.87903E+03_JPRB,0.11624E+04_JPRB /)  
+KB(:, 4,31,12) = (/ &
+ & 0.10385E+04_JPRB,0.78582E+03_JPRB,0.59732E+03_JPRB,0.87772E+03_JPRB,0.11613E+04_JPRB /)  
+KB(:, 5,31,12) = (/ &
+ & 0.10372E+04_JPRB,0.78947E+03_JPRB,0.59573E+03_JPRB,0.87705E+03_JPRB,0.11602E+04_JPRB /)  
+KB(:, 1,32,12) = (/ &
+ & 0.10378E+04_JPRB,0.78710E+03_JPRB,0.60105E+03_JPRB,0.88140E+03_JPRB,0.11652E+04_JPRB /)  
+KB(:, 2,32,12) = (/ &
+ & 0.10375E+04_JPRB,0.78506E+03_JPRB,0.59989E+03_JPRB,0.88006E+03_JPRB,0.11634E+04_JPRB /)  
+KB(:, 3,32,12) = (/ &
+ & 0.10409E+04_JPRB,0.78648E+03_JPRB,0.59855E+03_JPRB,0.87869E+03_JPRB,0.11621E+04_JPRB /)  
+KB(:, 4,32,12) = (/ &
+ & 0.10389E+04_JPRB,0.78640E+03_JPRB,0.59701E+03_JPRB,0.87765E+03_JPRB,0.11610E+04_JPRB /)  
+KB(:, 5,32,12) = (/ &
+ & 0.10378E+04_JPRB,0.78589E+03_JPRB,0.59527E+03_JPRB,0.87675E+03_JPRB,0.11598E+04_JPRB /)  
+KB(:, 1,33,12) = (/ &
+ & 0.10380E+04_JPRB,0.78620E+03_JPRB,0.60093E+03_JPRB,0.88116E+03_JPRB,0.11647E+04_JPRB /)  
+KB(:, 2,33,12) = (/ &
+ & 0.10383E+04_JPRB,0.78582E+03_JPRB,0.59966E+03_JPRB,0.87968E+03_JPRB,0.11631E+04_JPRB /)  
+KB(:, 3,33,12) = (/ &
+ & 0.10388E+04_JPRB,0.78740E+03_JPRB,0.59816E+03_JPRB,0.87838E+03_JPRB,0.11618E+04_JPRB /)  
+KB(:, 4,33,12) = (/ &
+ & 0.10367E+04_JPRB,0.78734E+03_JPRB,0.59657E+03_JPRB,0.87743E+03_JPRB,0.11608E+04_JPRB /)  
+KB(:, 5,33,12) = (/ &
+ & 0.10382E+04_JPRB,0.78803E+03_JPRB,0.59484E+03_JPRB,0.87630E+03_JPRB,0.11592E+04_JPRB /)  
+KB(:, 1,34,12) = (/ &
+ & 0.10390E+04_JPRB,0.78774E+03_JPRB,0.60058E+03_JPRB,0.88098E+03_JPRB,0.11643E+04_JPRB /)  
+KB(:, 2,34,12) = (/ &
+ & 0.10374E+04_JPRB,0.78664E+03_JPRB,0.59936E+03_JPRB,0.87936E+03_JPRB,0.11627E+04_JPRB /)  
+KB(:, 3,34,12) = (/ &
+ & 0.10352E+04_JPRB,0.78733E+03_JPRB,0.59781E+03_JPRB,0.87813E+03_JPRB,0.11615E+04_JPRB /)  
+KB(:, 4,34,12) = (/ &
+ & 0.10386E+04_JPRB,0.78609E+03_JPRB,0.59617E+03_JPRB,0.87742E+03_JPRB,0.11605E+04_JPRB /)  
+KB(:, 5,34,12) = (/ &
+ & 0.10400E+04_JPRB,0.78709E+03_JPRB,0.59476E+03_JPRB,0.87581E+03_JPRB,0.11592E+04_JPRB /)  
+KB(:, 1,35,12) = (/ &
+ & 0.10374E+04_JPRB,0.78486E+03_JPRB,0.60032E+03_JPRB,0.88061E+03_JPRB,0.11641E+04_JPRB /)  
+KB(:, 2,35,12) = (/ &
+ & 0.10385E+04_JPRB,0.78482E+03_JPRB,0.59906E+03_JPRB,0.87918E+03_JPRB,0.11626E+04_JPRB /)  
+KB(:, 3,35,12) = (/ &
+ & 0.10371E+04_JPRB,0.78627E+03_JPRB,0.59760E+03_JPRB,0.87799E+03_JPRB,0.11614E+04_JPRB /)  
+KB(:, 4,35,12) = (/ &
+ & 0.10378E+04_JPRB,0.78697E+03_JPRB,0.59593E+03_JPRB,0.87715E+03_JPRB,0.11604E+04_JPRB /)  
+KB(:, 5,35,12) = (/ &
+ & 0.10370E+04_JPRB,0.78545E+03_JPRB,0.59500E+03_JPRB,0.87549E+03_JPRB,0.11592E+04_JPRB /)  
+KB(:, 1,36,12) = (/ &
+ & 0.10362E+04_JPRB,0.78845E+03_JPRB,0.60029E+03_JPRB,0.88058E+03_JPRB,0.11640E+04_JPRB /)  
+KB(:, 2,36,12) = (/ &
+ & 0.10379E+04_JPRB,0.78676E+03_JPRB,0.59903E+03_JPRB,0.87915E+03_JPRB,0.11625E+04_JPRB /)  
+KB(:, 3,36,12) = (/ &
+ & 0.10369E+04_JPRB,0.78598E+03_JPRB,0.59768E+03_JPRB,0.87797E+03_JPRB,0.11614E+04_JPRB /)  
+KB(:, 4,36,12) = (/ &
+ & 0.10369E+04_JPRB,0.78595E+03_JPRB,0.59566E+03_JPRB,0.87713E+03_JPRB,0.11604E+04_JPRB /)  
+KB(:, 5,36,12) = (/ &
+ & 0.10368E+04_JPRB,0.78548E+03_JPRB,0.59464E+03_JPRB,0.87594E+03_JPRB,0.11600E+04_JPRB /)  
+KB(:, 1,37,12) = (/ &
+ & 0.10374E+04_JPRB,0.78579E+03_JPRB,0.60055E+03_JPRB,0.88077E+03_JPRB,0.11642E+04_JPRB /)  
+KB(:, 2,37,12) = (/ &
+ & 0.10362E+04_JPRB,0.78844E+03_JPRB,0.59921E+03_JPRB,0.87933E+03_JPRB,0.11627E+04_JPRB /)  
+KB(:, 3,37,12) = (/ &
+ & 0.10360E+04_JPRB,0.78603E+03_JPRB,0.59777E+03_JPRB,0.87810E+03_JPRB,0.11615E+04_JPRB /)  
+KB(:, 4,37,12) = (/ &
+ & 0.10367E+04_JPRB,0.78734E+03_JPRB,0.59623E+03_JPRB,0.87723E+03_JPRB,0.11605E+04_JPRB /)  
+KB(:, 5,37,12) = (/ &
+ & 0.10361E+04_JPRB,0.78702E+03_JPRB,0.59474E+03_JPRB,0.87592E+03_JPRB,0.11587E+04_JPRB /)  
+KB(:, 1,38,12) = (/ &
+ & 0.10367E+04_JPRB,0.78778E+03_JPRB,0.60058E+03_JPRB,0.88098E+03_JPRB,0.11645E+04_JPRB /)  
+KB(:, 2,38,12) = (/ &
+ & 0.10387E+04_JPRB,0.78865E+03_JPRB,0.59939E+03_JPRB,0.87952E+03_JPRB,0.11629E+04_JPRB /)  
+KB(:, 3,38,12) = (/ &
+ & 0.10363E+04_JPRB,0.78758E+03_JPRB,0.59820E+03_JPRB,0.87825E+03_JPRB,0.11617E+04_JPRB /)  
+KB(:, 4,38,12) = (/ &
+ & 0.10372E+04_JPRB,0.78786E+03_JPRB,0.59636E+03_JPRB,0.87717E+03_JPRB,0.11609E+04_JPRB /)  
+KB(:, 5,38,12) = (/ &
+ & 0.10362E+04_JPRB,0.78470E+03_JPRB,0.59485E+03_JPRB,0.87657E+03_JPRB,0.11589E+04_JPRB /)  
+KB(:, 1,39,12) = (/ &
+ & 0.10374E+04_JPRB,0.78680E+03_JPRB,0.60094E+03_JPRB,0.88119E+03_JPRB,0.11647E+04_JPRB /)  
+KB(:, 2,39,12) = (/ &
+ & 0.10352E+04_JPRB,0.78618E+03_JPRB,0.60014E+03_JPRB,0.87971E+03_JPRB,0.11631E+04_JPRB /)  
+KB(:, 3,39,12) = (/ &
+ & 0.10401E+04_JPRB,0.78497E+03_JPRB,0.59818E+03_JPRB,0.87840E+03_JPRB,0.11618E+04_JPRB /)  
+KB(:, 4,39,12) = (/ &
+ & 0.10369E+04_JPRB,0.78868E+03_JPRB,0.59660E+03_JPRB,0.87744E+03_JPRB,0.11608E+04_JPRB /)  
+KB(:, 5,39,12) = (/ &
+ & 0.10353E+04_JPRB,0.78494E+03_JPRB,0.59497E+03_JPRB,0.87635E+03_JPRB,0.11593E+04_JPRB /)  
+KB(:, 1,40,12) = (/ &
+ & 0.10385E+04_JPRB,0.78584E+03_JPRB,0.60091E+03_JPRB,0.88123E+03_JPRB,0.11652E+04_JPRB /)  
+KB(:, 2,40,12) = (/ &
+ & 0.10387E+04_JPRB,0.78568E+03_JPRB,0.59987E+03_JPRB,0.88006E+03_JPRB,0.11635E+04_JPRB /)  
+KB(:, 3,40,12) = (/ &
+ & 0.10371E+04_JPRB,0.78626E+03_JPRB,0.59853E+03_JPRB,0.87869E+03_JPRB,0.11621E+04_JPRB /)  
+KB(:, 4,40,12) = (/ &
+ & 0.10386E+04_JPRB,0.78684E+03_JPRB,0.59700E+03_JPRB,0.87748E+03_JPRB,0.11610E+04_JPRB /)  
+KB(:, 5,40,12) = (/ &
+ & 0.10362E+04_JPRB,0.78503E+03_JPRB,0.59526E+03_JPRB,0.87692E+03_JPRB,0.11598E+04_JPRB /)  
+KB(:, 1,41,12) = (/ &
+ & 0.10384E+04_JPRB,0.78504E+03_JPRB,0.60109E+03_JPRB,0.88198E+03_JPRB,0.11657E+04_JPRB /)  
+KB(:, 2,41,12) = (/ &
+ & 0.10360E+04_JPRB,0.78533E+03_JPRB,0.60017E+03_JPRB,0.88043E+03_JPRB,0.11639E+04_JPRB /)  
+KB(:, 3,41,12) = (/ &
+ & 0.10374E+04_JPRB,0.78412E+03_JPRB,0.59889E+03_JPRB,0.87902E+03_JPRB,0.11624E+04_JPRB /)  
+KB(:, 4,41,12) = (/ &
+ & 0.10350E+04_JPRB,0.78545E+03_JPRB,0.59741E+03_JPRB,0.87788E+03_JPRB,0.11613E+04_JPRB /)  
+KB(:, 5,41,12) = (/ &
+ & 0.10385E+04_JPRB,0.78529E+03_JPRB,0.59570E+03_JPRB,0.87704E+03_JPRB,0.11607E+04_JPRB /)  
+KB(:, 1,42,12) = (/ &
+ & 0.10370E+04_JPRB,0.78560E+03_JPRB,0.60125E+03_JPRB,0.88242E+03_JPRB,0.11662E+04_JPRB /)  
+KB(:, 2,42,12) = (/ &
+ & 0.10383E+04_JPRB,0.78469E+03_JPRB,0.60057E+03_JPRB,0.88081E+03_JPRB,0.11643E+04_JPRB /)  
+KB(:, 3,42,12) = (/ &
+ & 0.10368E+04_JPRB,0.78617E+03_JPRB,0.59924E+03_JPRB,0.87937E+03_JPRB,0.11627E+04_JPRB /)  
+KB(:, 4,42,12) = (/ &
+ & 0.10362E+04_JPRB,0.78586E+03_JPRB,0.59780E+03_JPRB,0.87813E+03_JPRB,0.11615E+04_JPRB /)  
+KB(:, 5,42,12) = (/ &
+ & 0.10350E+04_JPRB,0.78958E+03_JPRB,0.59616E+03_JPRB,0.87725E+03_JPRB,0.11605E+04_JPRB /)  
+KB(:, 1,43,12) = (/ &
+ & 0.10375E+04_JPRB,0.78586E+03_JPRB,0.60140E+03_JPRB,0.88280E+03_JPRB,0.11669E+04_JPRB /)  
+KB(:, 2,43,12) = (/ &
+ & 0.10344E+04_JPRB,0.78615E+03_JPRB,0.60088E+03_JPRB,0.88112E+03_JPRB,0.11651E+04_JPRB /)  
+KB(:, 3,43,12) = (/ &
+ & 0.10344E+04_JPRB,0.78345E+03_JPRB,0.59953E+03_JPRB,0.87980E+03_JPRB,0.11632E+04_JPRB /)  
+KB(:, 4,43,12) = (/ &
+ & 0.10347E+04_JPRB,0.78777E+03_JPRB,0.59827E+03_JPRB,0.87847E+03_JPRB,0.11619E+04_JPRB /)  
+KB(:, 5,43,12) = (/ &
+ & 0.10355E+04_JPRB,0.78627E+03_JPRB,0.59681E+03_JPRB,0.87766E+03_JPRB,0.11609E+04_JPRB /)  
+KB(:, 1,44,12) = (/ &
+ & 0.10355E+04_JPRB,0.78449E+03_JPRB,0.60162E+03_JPRB,0.88358E+03_JPRB,0.11676E+04_JPRB /)  
+KB(:, 2,44,12) = (/ &
+ & 0.10359E+04_JPRB,0.78627E+03_JPRB,0.60103E+03_JPRB,0.88182E+03_JPRB,0.11655E+04_JPRB /)  
+KB(:, 3,44,12) = (/ &
+ & 0.10377E+04_JPRB,0.78715E+03_JPRB,0.60005E+03_JPRB,0.88029E+03_JPRB,0.11637E+04_JPRB /)  
+KB(:, 4,44,12) = (/ &
+ & 0.10378E+04_JPRB,0.78625E+03_JPRB,0.59875E+03_JPRB,0.87890E+03_JPRB,0.11623E+04_JPRB /)  
+KB(:, 5,44,12) = (/ &
+ & 0.10374E+04_JPRB,0.78401E+03_JPRB,0.59725E+03_JPRB,0.87779E+03_JPRB,0.11612E+04_JPRB /)  
+KB(:, 1,45,12) = (/ &
+ & 0.10390E+04_JPRB,0.78655E+03_JPRB,0.60158E+03_JPRB,0.88419E+03_JPRB,0.11684E+04_JPRB /)  
+KB(:, 2,45,12) = (/ &
+ & 0.10396E+04_JPRB,0.78684E+03_JPRB,0.60124E+03_JPRB,0.88239E+03_JPRB,0.11662E+04_JPRB /)  
+KB(:, 3,45,12) = (/ &
+ & 0.10355E+04_JPRB,0.78758E+03_JPRB,0.60044E+03_JPRB,0.88079E+03_JPRB,0.11643E+04_JPRB /)  
+KB(:, 4,45,12) = (/ &
+ & 0.10368E+04_JPRB,0.78548E+03_JPRB,0.59922E+03_JPRB,0.87935E+03_JPRB,0.11627E+04_JPRB /)  
+KB(:, 5,45,12) = (/ &
+ & 0.10360E+04_JPRB,0.78578E+03_JPRB,0.59778E+03_JPRB,0.87811E+03_JPRB,0.11615E+04_JPRB /)  
+KB(:, 1,46,12) = (/ &
+ & 0.10390E+04_JPRB,0.78534E+03_JPRB,0.60165E+03_JPRB,0.88476E+03_JPRB,0.11691E+04_JPRB /)  
+KB(:, 2,46,12) = (/ &
+ & 0.10368E+04_JPRB,0.78339E+03_JPRB,0.60141E+03_JPRB,0.88303E+03_JPRB,0.11669E+04_JPRB /)  
+KB(:, 3,46,12) = (/ &
+ & 0.10364E+04_JPRB,0.78696E+03_JPRB,0.60079E+03_JPRB,0.88117E+03_JPRB,0.11649E+04_JPRB /)  
+KB(:, 4,46,12) = (/ &
+ & 0.10407E+04_JPRB,0.78666E+03_JPRB,0.59968E+03_JPRB,0.87985E+03_JPRB,0.11632E+04_JPRB /)  
+KB(:, 5,46,12) = (/ &
+ & 0.10344E+04_JPRB,0.78501E+03_JPRB,0.59832E+03_JPRB,0.87835E+03_JPRB,0.11619E+04_JPRB /)  
+KB(:, 1,47,12) = (/ &
+ & 0.10372E+04_JPRB,0.78547E+03_JPRB,0.60140E+03_JPRB,0.88518E+03_JPRB,0.11696E+04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART30',1,ZHOOK_HANDLE)
+END SUBROUTINE PART30
+
+
+SUBROUTINE PART31
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART31',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,47,12) = (/ &
+ & 0.10368E+04_JPRB,0.78740E+03_JPRB,0.60142E+03_JPRB,0.88376E+03_JPRB,0.11678E+04_JPRB /)  
+KB(:, 3,47,12) = (/ &
+ & 0.10360E+04_JPRB,0.78411E+03_JPRB,0.60109E+03_JPRB,0.88198E+03_JPRB,0.11657E+04_JPRB /)  
+KB(:, 4,47,12) = (/ &
+ & 0.10358E+04_JPRB,0.78709E+03_JPRB,0.60017E+03_JPRB,0.88044E+03_JPRB,0.11639E+04_JPRB /)  
+KB(:, 5,47,12) = (/ &
+ & 0.10354E+04_JPRB,0.78664E+03_JPRB,0.59889E+03_JPRB,0.87902E+03_JPRB,0.11624E+04_JPRB /)  
+KB(:, 1,48,12) = (/ &
+ & 0.10362E+04_JPRB,0.78680E+03_JPRB,0.60195E+03_JPRB,0.88548E+03_JPRB,0.11701E+04_JPRB /)  
+KB(:, 2,48,12) = (/ &
+ & 0.10362E+04_JPRB,0.78545E+03_JPRB,0.60161E+03_JPRB,0.88447E+03_JPRB,0.11687E+04_JPRB /)  
+KB(:, 3,48,12) = (/ &
+ & 0.10378E+04_JPRB,0.78604E+03_JPRB,0.60144E+03_JPRB,0.88268E+03_JPRB,0.11665E+04_JPRB /)  
+KB(:, 4,48,12) = (/ &
+ & 0.10382E+04_JPRB,0.78544E+03_JPRB,0.60061E+03_JPRB,0.88104E+03_JPRB,0.11646E+04_JPRB /)  
+KB(:, 5,48,12) = (/ &
+ & 0.10364E+04_JPRB,0.78424E+03_JPRB,0.59943E+03_JPRB,0.87957E+03_JPRB,0.11630E+04_JPRB /)  
+KB(:, 1,49,12) = (/ &
+ & 0.10370E+04_JPRB,0.78693E+03_JPRB,0.60225E+03_JPRB,0.88600E+03_JPRB,0.11705E+04_JPRB /)  
+KB(:, 2,49,12) = (/ &
+ & 0.10356E+04_JPRB,0.78469E+03_JPRB,0.60169E+03_JPRB,0.88499E+03_JPRB,0.11694E+04_JPRB /)  
+KB(:, 3,49,12) = (/ &
+ & 0.10350E+04_JPRB,0.78588E+03_JPRB,0.60148E+03_JPRB,0.88340E+03_JPRB,0.11674E+04_JPRB /)  
+KB(:, 4,49,12) = (/ &
+ & 0.10352E+04_JPRB,0.78677E+03_JPRB,0.60095E+03_JPRB,0.88166E+03_JPRB,0.11653E+04_JPRB /)  
+KB(:, 5,49,12) = (/ &
+ & 0.10356E+04_JPRB,0.78647E+03_JPRB,0.59993E+03_JPRB,0.88015E+03_JPRB,0.11636E+04_JPRB /)  
+KB(:, 1,50,12) = (/ &
+ & 0.10356E+04_JPRB,0.78558E+03_JPRB,0.60226E+03_JPRB,0.88620E+03_JPRB,0.11712E+04_JPRB /)  
+KB(:, 2,50,12) = (/ &
+ & 0.10346E+04_JPRB,0.78796E+03_JPRB,0.60171E+03_JPRB,0.88533E+03_JPRB,0.11698E+04_JPRB /)  
+KB(:, 3,50,12) = (/ &
+ & 0.10366E+04_JPRB,0.78751E+03_JPRB,0.60168E+03_JPRB,0.88408E+03_JPRB,0.11667E+04_JPRB /)  
+KB(:, 4,50,12) = (/ &
+ & 0.10366E+04_JPRB,0.78646E+03_JPRB,0.60132E+03_JPRB,0.88229E+03_JPRB,0.11661E+04_JPRB /)  
+KB(:, 5,50,12) = (/ &
+ & 0.10393E+04_JPRB,0.78616E+03_JPRB,0.60083E+03_JPRB,0.88070E+03_JPRB,0.11642E+04_JPRB /)  
+KB(:, 1,51,12) = (/ &
+ & 0.10356E+04_JPRB,0.78468E+03_JPRB,0.60241E+03_JPRB,0.88644E+03_JPRB,0.11719E+04_JPRB /)  
+KB(:, 2,51,12) = (/ &
+ & 0.10368E+04_JPRB,0.78423E+03_JPRB,0.60203E+03_JPRB,0.88559E+03_JPRB,0.11702E+04_JPRB /)  
+KB(:, 3,51,12) = (/ &
+ & 0.10356E+04_JPRB,0.78586E+03_JPRB,0.60163E+03_JPRB,0.88469E+03_JPRB,0.11690E+04_JPRB /)  
+KB(:, 4,51,12) = (/ &
+ & 0.10358E+04_JPRB,0.78601E+03_JPRB,0.60139E+03_JPRB,0.88294E+03_JPRB,0.11668E+04_JPRB /)  
+KB(:, 5,51,12) = (/ &
+ & 0.10379E+04_JPRB,0.78646E+03_JPRB,0.60074E+03_JPRB,0.88126E+03_JPRB,0.11648E+04_JPRB /)  
+KB(:, 1,52,12) = (/ &
+ & 0.10383E+04_JPRB,0.78512E+03_JPRB,0.60257E+03_JPRB,0.88672E+03_JPRB,0.11727E+04_JPRB /)  
+KB(:, 2,52,12) = (/ &
+ & 0.10350E+04_JPRB,0.78646E+03_JPRB,0.60217E+03_JPRB,0.88594E+03_JPRB,0.11707E+04_JPRB /)  
+KB(:, 3,52,12) = (/ &
+ & 0.10358E+04_JPRB,0.78466E+03_JPRB,0.60160E+03_JPRB,0.88510E+03_JPRB,0.11695E+04_JPRB /)  
+KB(:, 4,52,12) = (/ &
+ & 0.10356E+04_JPRB,0.78511E+03_JPRB,0.60151E+03_JPRB,0.88359E+03_JPRB,0.11676E+04_JPRB /)  
+KB(:, 5,52,12) = (/ &
+ & 0.10365E+04_JPRB,0.78541E+03_JPRB,0.60103E+03_JPRB,0.88167E+03_JPRB,0.11655E+04_JPRB /)  
+KB(:, 1,53,12) = (/ &
+ & 0.10352E+04_JPRB,0.78496E+03_JPRB,0.60273E+03_JPRB,0.88710E+03_JPRB,0.11735E+04_JPRB /)  
+KB(:, 2,53,12) = (/ &
+ & 0.10359E+04_JPRB,0.78600E+03_JPRB,0.60229E+03_JPRB,0.88628E+03_JPRB,0.11714E+04_JPRB /)  
+KB(:, 3,53,12) = (/ &
+ & 0.10369E+04_JPRB,0.78526E+03_JPRB,0.60188E+03_JPRB,0.88540E+03_JPRB,0.11699E+04_JPRB /)  
+KB(:, 4,53,12) = (/ &
+ & 0.10383E+04_JPRB,0.78660E+03_JPRB,0.60159E+03_JPRB,0.88425E+03_JPRB,0.11685E+04_JPRB /)  
+KB(:, 5,53,12) = (/ &
+ & 0.10373E+04_JPRB,0.78555E+03_JPRB,0.60126E+03_JPRB,0.88246E+03_JPRB,0.11663E+04_JPRB /)  
+KB(:, 1,54,12) = (/ &
+ & 0.10367E+04_JPRB,0.78451E+03_JPRB,0.60297E+03_JPRB,0.88752E+03_JPRB,0.11746E+04_JPRB /)  
+KB(:, 2,54,12) = (/ &
+ & 0.10355E+04_JPRB,0.78600E+03_JPRB,0.60244E+03_JPRB,0.88648E+03_JPRB,0.11721E+04_JPRB /)  
+KB(:, 3,54,12) = (/ &
+ & 0.10348E+04_JPRB,0.78301E+03_JPRB,0.60206E+03_JPRB,0.88564E+03_JPRB,0.11703E+04_JPRB /)  
+KB(:, 4,54,12) = (/ &
+ & 0.10395E+04_JPRB,0.78629E+03_JPRB,0.60165E+03_JPRB,0.88477E+03_JPRB,0.11691E+04_JPRB /)  
+KB(:, 5,54,12) = (/ &
+ & 0.10361E+04_JPRB,0.78420E+03_JPRB,0.60141E+03_JPRB,0.88305E+03_JPRB,0.11670E+04_JPRB /)  
+KB(:, 1,55,12) = (/ &
+ & 0.10361E+04_JPRB,0.78555E+03_JPRB,0.60296E+03_JPRB,0.88822E+03_JPRB,0.11760E+04_JPRB /)  
+KB(:, 2,55,12) = (/ &
+ & 0.10355E+04_JPRB,0.78495E+03_JPRB,0.60258E+03_JPRB,0.88674E+03_JPRB,0.11727E+04_JPRB /)  
+KB(:, 3,55,12) = (/ &
+ & 0.10349E+04_JPRB,0.78525E+03_JPRB,0.60217E+03_JPRB,0.88596E+03_JPRB,0.11709E+04_JPRB /)  
+KB(:, 4,55,12) = (/ &
+ & 0.10361E+04_JPRB,0.78465E+03_JPRB,0.60184E+03_JPRB,0.88512E+03_JPRB,0.11696E+04_JPRB /)  
+KB(:, 5,55,12) = (/ &
+ & 0.10363E+04_JPRB,0.78599E+03_JPRB,0.60163E+03_JPRB,0.88363E+03_JPRB,0.11677E+04_JPRB /)  
+KB(:, 1,56,12) = (/ &
+ & 0.10361E+04_JPRB,0.78599E+03_JPRB,0.60309E+03_JPRB,0.88918E+03_JPRB,0.11774E+04_JPRB /)  
+KB(:, 2,56,12) = (/ &
+ & 0.10391E+04_JPRB,0.78674E+03_JPRB,0.60272E+03_JPRB,0.88707E+03_JPRB,0.11734E+04_JPRB /)  
+KB(:, 3,56,12) = (/ &
+ & 0.10363E+04_JPRB,0.78584E+03_JPRB,0.60228E+03_JPRB,0.88626E+03_JPRB,0.11716E+04_JPRB /)  
+KB(:, 4,56,12) = (/ &
+ & 0.10369E+04_JPRB,0.78509E+03_JPRB,0.60186E+03_JPRB,0.88538E+03_JPRB,0.11695E+04_JPRB /)  
+KB(:, 5,56,12) = (/ &
+ & 0.10363E+04_JPRB,0.78554E+03_JPRB,0.60158E+03_JPRB,0.88421E+03_JPRB,0.11682E+04_JPRB /)  
+KB(:, 1,57,12) = (/ &
+ & 0.10381E+04_JPRB,0.78509E+03_JPRB,0.60327E+03_JPRB,0.89026E+03_JPRB,0.11789E+04_JPRB /)  
+KB(:, 2,57,12) = (/ &
+ & 0.10344E+04_JPRB,0.78852E+03_JPRB,0.60284E+03_JPRB,0.88747E+03_JPRB,0.11744E+04_JPRB /)  
+KB(:, 3,57,12) = (/ &
+ & 0.10369E+04_JPRB,0.78509E+03_JPRB,0.60242E+03_JPRB,0.88612E+03_JPRB,0.11720E+04_JPRB /)  
+KB(:, 4,57,12) = (/ &
+ & 0.10393E+04_JPRB,0.78330E+03_JPRB,0.60216E+03_JPRB,0.88561E+03_JPRB,0.11703E+04_JPRB /)  
+KB(:, 5,57,12) = (/ &
+ & 0.10365E+04_JPRB,0.78494E+03_JPRB,0.60164E+03_JPRB,0.88472E+03_JPRB,0.11688E+04_JPRB /)  
+KB(:, 1,58,12) = (/ &
+ & 0.10353E+04_JPRB,0.78509E+03_JPRB,0.60357E+03_JPRB,0.89125E+03_JPRB,0.11802E+04_JPRB /)  
+KB(:, 2,58,12) = (/ &
+ & 0.10371E+04_JPRB,0.78524E+03_JPRB,0.60283E+03_JPRB,0.88807E+03_JPRB,0.11757E+04_JPRB /)  
+KB(:, 3,58,12) = (/ &
+ & 0.10365E+04_JPRB,0.78718E+03_JPRB,0.60278E+03_JPRB,0.88669E+03_JPRB,0.11726E+04_JPRB /)  
+KB(:, 4,58,12) = (/ &
+ & 0.10349E+04_JPRB,0.78673E+03_JPRB,0.60216E+03_JPRB,0.88590E+03_JPRB,0.11708E+04_JPRB /)  
+KB(:, 5,58,12) = (/ &
+ & 0.10365E+04_JPRB,0.78389E+03_JPRB,0.60170E+03_JPRB,0.88506E+03_JPRB,0.11695E+04_JPRB /)  
+KB(:, 1,59,12) = (/ &
+ & 0.10365E+04_JPRB,0.78390E+03_JPRB,0.60373E+03_JPRB,0.89165E+03_JPRB,0.11808E+04_JPRB /)  
+KB(:, 2,59,12) = (/ &
+ & 0.10369E+04_JPRB,0.78479E+03_JPRB,0.60298E+03_JPRB,0.88840E+03_JPRB,0.11763E+04_JPRB /)  
+KB(:, 3,59,12) = (/ &
+ & 0.10357E+04_JPRB,0.78703E+03_JPRB,0.60261E+03_JPRB,0.88680E+03_JPRB,0.11713E+04_JPRB /)  
+KB(:, 4,59,12) = (/ &
+ & 0.10363E+04_JPRB,0.78509E+03_JPRB,0.60219E+03_JPRB,0.88602E+03_JPRB,0.11708E+04_JPRB /)  
+KB(:, 5,59,12) = (/ &
+ & 0.10365E+04_JPRB,0.78479E+03_JPRB,0.60174E+03_JPRB,0.88517E+03_JPRB,0.11696E+04_JPRB /)  
+KB(:, 1,13,13) = (/ &
+ & 0.11661E+04_JPRB,0.87073E+03_JPRB,0.60556E+03_JPRB,0.88929E+03_JPRB,0.11761E+04_JPRB /)  
+KB(:, 2,13,13) = (/ &
+ & 0.11527E+04_JPRB,0.87014E+03_JPRB,0.60489E+03_JPRB,0.88914E+03_JPRB,0.11754E+04_JPRB /)  
+KB(:, 3,13,13) = (/ &
+ & 0.11423E+04_JPRB,0.85968E+03_JPRB,0.60419E+03_JPRB,0.88867E+03_JPRB,0.11747E+04_JPRB /)  
+KB(:, 4,13,13) = (/ &
+ & 0.11371E+04_JPRB,0.85890E+03_JPRB,0.60344E+03_JPRB,0.88820E+03_JPRB,0.11742E+04_JPRB /)  
+KB(:, 5,13,13) = (/ &
+ & 0.11390E+04_JPRB,0.85008E+03_JPRB,0.60234E+03_JPRB,0.88705E+03_JPRB,0.11727E+04_JPRB /)  
+KB(:, 1,14,13) = (/ &
+ & 0.11362E+04_JPRB,0.85805E+03_JPRB,0.60511E+03_JPRB,0.88957E+03_JPRB,0.11761E+04_JPRB /)  
+KB(:, 2,14,13) = (/ &
+ & 0.11276E+04_JPRB,0.85398E+03_JPRB,0.60448E+03_JPRB,0.88893E+03_JPRB,0.11753E+04_JPRB /)  
+KB(:, 3,14,13) = (/ &
+ & 0.11208E+04_JPRB,0.84888E+03_JPRB,0.60397E+03_JPRB,0.88854E+03_JPRB,0.11747E+04_JPRB /)  
+KB(:, 4,14,13) = (/ &
+ & 0.11194E+04_JPRB,0.85006E+03_JPRB,0.60305E+03_JPRB,0.88823E+03_JPRB,0.11740E+04_JPRB /)  
+KB(:, 5,14,13) = (/ &
+ & 0.11083E+04_JPRB,0.84212E+03_JPRB,0.60191E+03_JPRB,0.88682E+03_JPRB,0.11725E+04_JPRB /)  
+KB(:, 1,15,13) = (/ &
+ & 0.11142E+04_JPRB,0.84766E+03_JPRB,0.60488E+03_JPRB,0.88941E+03_JPRB,0.11748E+04_JPRB /)  
+KB(:, 2,15,13) = (/ &
+ & 0.11176E+04_JPRB,0.84112E+03_JPRB,0.60414E+03_JPRB,0.88873E+03_JPRB,0.11752E+04_JPRB /)  
+KB(:, 3,15,13) = (/ &
+ & 0.11051E+04_JPRB,0.84191E+03_JPRB,0.60348E+03_JPRB,0.88843E+03_JPRB,0.11747E+04_JPRB /)  
+KB(:, 4,15,13) = (/ &
+ & 0.11036E+04_JPRB,0.83753E+03_JPRB,0.60270E+03_JPRB,0.88781E+03_JPRB,0.11739E+04_JPRB /)  
+KB(:, 5,15,13) = (/ &
+ & 0.10935E+04_JPRB,0.82883E+03_JPRB,0.60139E+03_JPRB,0.88658E+03_JPRB,0.11723E+04_JPRB /)  
+KB(:, 1,16,13) = (/ &
+ & 0.11074E+04_JPRB,0.83456E+03_JPRB,0.60440E+03_JPRB,0.88927E+03_JPRB,0.11760E+04_JPRB /)  
+KB(:, 2,16,13) = (/ &
+ & 0.11018E+04_JPRB,0.83298E+03_JPRB,0.60385E+03_JPRB,0.88856E+03_JPRB,0.11751E+04_JPRB /)  
+KB(:, 3,16,13) = (/ &
+ & 0.10859E+04_JPRB,0.83101E+03_JPRB,0.60319E+03_JPRB,0.88832E+03_JPRB,0.11747E+04_JPRB /)  
+KB(:, 4,16,13) = (/ &
+ & 0.10925E+04_JPRB,0.82836E+03_JPRB,0.60254E+03_JPRB,0.88762E+03_JPRB,0.11738E+04_JPRB /)  
+KB(:, 5,16,13) = (/ &
+ & 0.10900E+04_JPRB,0.82283E+03_JPRB,0.60124E+03_JPRB,0.88636E+03_JPRB,0.11721E+04_JPRB /)  
+KB(:, 1,17,13) = (/ &
+ & 0.10953E+04_JPRB,0.82596E+03_JPRB,0.60413E+03_JPRB,0.88915E+03_JPRB,0.11759E+04_JPRB /)  
+KB(:, 2,17,13) = (/ &
+ & 0.10864E+04_JPRB,0.82504E+03_JPRB,0.60360E+03_JPRB,0.88842E+03_JPRB,0.11750E+04_JPRB /)  
+KB(:, 3,17,13) = (/ &
+ & 0.10812E+04_JPRB,0.81898E+03_JPRB,0.60295E+03_JPRB,0.88822E+03_JPRB,0.11746E+04_JPRB /)  
+KB(:, 4,17,13) = (/ &
+ & 0.10806E+04_JPRB,0.81706E+03_JPRB,0.60242E+03_JPRB,0.88745E+03_JPRB,0.11736E+04_JPRB /)  
+KB(:, 5,17,13) = (/ &
+ & 0.10764E+04_JPRB,0.81771E+03_JPRB,0.59943E+03_JPRB,0.88638E+03_JPRB,0.11722E+04_JPRB /)  
+KB(:, 1,18,13) = (/ &
+ & 0.10787E+04_JPRB,0.82265E+03_JPRB,0.60390E+03_JPRB,0.88903E+03_JPRB,0.11759E+04_JPRB /)  
+KB(:, 2,18,13) = (/ &
+ & 0.10743E+04_JPRB,0.81466E+03_JPRB,0.60339E+03_JPRB,0.88738E+03_JPRB,0.11749E+04_JPRB /)  
+KB(:, 3,18,13) = (/ &
+ & 0.10792E+04_JPRB,0.81648E+03_JPRB,0.60273E+03_JPRB,0.88812E+03_JPRB,0.11749E+04_JPRB /)  
+KB(:, 4,18,13) = (/ &
+ & 0.10724E+04_JPRB,0.81516E+03_JPRB,0.60185E+03_JPRB,0.88728E+03_JPRB,0.11735E+04_JPRB /)  
+KB(:, 5,18,13) = (/ &
+ & 0.10737E+04_JPRB,0.81301E+03_JPRB,0.60092E+03_JPRB,0.88618E+03_JPRB,0.11717E+04_JPRB /)  
+KB(:, 1,19,13) = (/ &
+ & 0.10778E+04_JPRB,0.81646E+03_JPRB,0.60388E+03_JPRB,0.88893E+03_JPRB,0.11758E+04_JPRB /)  
+KB(:, 2,19,13) = (/ &
+ & 0.10709E+04_JPRB,0.81021E+03_JPRB,0.60321E+03_JPRB,0.88822E+03_JPRB,0.11748E+04_JPRB /)  
+KB(:, 3,19,13) = (/ &
+ & 0.10651E+04_JPRB,0.80945E+03_JPRB,0.60254E+03_JPRB,0.88803E+03_JPRB,0.11745E+04_JPRB /)  
+KB(:, 4,19,13) = (/ &
+ & 0.10677E+04_JPRB,0.80743E+03_JPRB,0.60147E+03_JPRB,0.88735E+03_JPRB,0.11733E+04_JPRB /)  
+KB(:, 5,19,13) = (/ &
+ & 0.10575E+04_JPRB,0.80245E+03_JPRB,0.60072E+03_JPRB,0.88575E+03_JPRB,0.11721E+04_JPRB /)  
+KB(:, 1,20,13) = (/ &
+ & 0.10622E+04_JPRB,0.81096E+03_JPRB,0.60356E+03_JPRB,0.88881E+03_JPRB,0.11757E+04_JPRB /)  
+KB(:, 2,20,13) = (/ &
+ & 0.10607E+04_JPRB,0.80739E+03_JPRB,0.60305E+03_JPRB,0.88816E+03_JPRB,0.11748E+04_JPRB /)  
+KB(:, 3,20,13) = (/ &
+ & 0.10623E+04_JPRB,0.80381E+03_JPRB,0.60252E+03_JPRB,0.88792E+03_JPRB,0.11744E+04_JPRB /)  
+KB(:, 4,20,13) = (/ &
+ & 0.10570E+04_JPRB,0.80456E+03_JPRB,0.60093E+03_JPRB,0.88695E+03_JPRB,0.11731E+04_JPRB /)  
+KB(:, 5,20,13) = (/ &
+ & 0.10628E+04_JPRB,0.80481E+03_JPRB,0.60051E+03_JPRB,0.88554E+03_JPRB,0.11713E+04_JPRB /)  
+KB(:, 1,21,13) = (/ &
+ & 0.10564E+04_JPRB,0.80721E+03_JPRB,0.60326E+03_JPRB,0.88869E+03_JPRB,0.11756E+04_JPRB /)  
+KB(:, 2,21,13) = (/ &
+ & 0.10630E+04_JPRB,0.79813E+03_JPRB,0.60290E+03_JPRB,0.88813E+03_JPRB,0.11748E+04_JPRB /)  
+KB(:, 3,21,13) = (/ &
+ & 0.10553E+04_JPRB,0.80228E+03_JPRB,0.60219E+03_JPRB,0.88781E+03_JPRB,0.11743E+04_JPRB /)  
+KB(:, 4,21,13) = (/ &
+ & 0.10544E+04_JPRB,0.79888E+03_JPRB,0.60136E+03_JPRB,0.88677E+03_JPRB,0.11729E+04_JPRB /)  
+KB(:, 5,21,13) = (/ &
+ & 0.10596E+04_JPRB,0.81049E+03_JPRB,0.60032E+03_JPRB,0.88532E+03_JPRB,0.11710E+04_JPRB /)  
+KB(:, 1,22,13) = (/ &
+ & 0.10550E+04_JPRB,0.80310E+03_JPRB,0.60326E+03_JPRB,0.88850E+03_JPRB,0.11754E+04_JPRB /)  
+KB(:, 2,22,13) = (/ &
+ & 0.10516E+04_JPRB,0.80380E+03_JPRB,0.60256E+03_JPRB,0.88810E+03_JPRB,0.11747E+04_JPRB /)  
+KB(:, 3,22,13) = (/ &
+ & 0.10562E+04_JPRB,0.80152E+03_JPRB,0.60229E+03_JPRB,0.88764E+03_JPRB,0.11741E+04_JPRB /)  
+KB(:, 4,22,13) = (/ &
+ & 0.10509E+04_JPRB,0.80224E+03_JPRB,0.60002E+03_JPRB,0.88651E+03_JPRB,0.11726E+04_JPRB /)  
+KB(:, 5,22,13) = (/ &
+ & 0.10563E+04_JPRB,0.79871E+03_JPRB,0.59990E+03_JPRB,0.88500E+03_JPRB,0.11706E+04_JPRB /)  
+KB(:, 1,23,13) = (/ &
+ & 0.10567E+04_JPRB,0.79860E+03_JPRB,0.60326E+03_JPRB,0.88832E+03_JPRB,0.11752E+04_JPRB /)  
+KB(:, 2,23,13) = (/ &
+ & 0.10532E+04_JPRB,0.79557E+03_JPRB,0.60254E+03_JPRB,0.88806E+03_JPRB,0.11747E+04_JPRB /)  
+KB(:, 3,23,13) = (/ &
+ & 0.10534E+04_JPRB,0.79512E+03_JPRB,0.60237E+03_JPRB,0.88744E+03_JPRB,0.11739E+04_JPRB /)  
+KB(:, 4,23,13) = (/ &
+ & 0.10472E+04_JPRB,0.79721E+03_JPRB,0.60072E+03_JPRB,0.88622E+03_JPRB,0.11723E+04_JPRB /)  
+KB(:, 5,23,13) = (/ &
+ & 0.10509E+04_JPRB,0.79423E+03_JPRB,0.59964E+03_JPRB,0.88466E+03_JPRB,0.11702E+04_JPRB /)  
+KB(:, 1,24,13) = (/ &
+ & 0.10549E+04_JPRB,0.79502E+03_JPRB,0.60296E+03_JPRB,0.88817E+03_JPRB,0.11750E+04_JPRB /)  
+KB(:, 2,24,13) = (/ &
+ & 0.10498E+04_JPRB,0.80428E+03_JPRB,0.60221E+03_JPRB,0.88799E+03_JPRB,0.11746E+04_JPRB /)  
+KB(:, 3,24,13) = (/ &
+ & 0.10553E+04_JPRB,0.79369E+03_JPRB,0.60149E+03_JPRB,0.88721E+03_JPRB,0.11736E+04_JPRB /)  
+KB(:, 4,24,13) = (/ &
+ & 0.10517E+04_JPRB,0.79240E+03_JPRB,0.60048E+03_JPRB,0.88592E+03_JPRB,0.11719E+04_JPRB /)  
+KB(:, 5,24,13) = (/ &
+ & 0.10493E+04_JPRB,0.79281E+03_JPRB,0.59936E+03_JPRB,0.88429E+03_JPRB,0.11697E+04_JPRB /)  
+KB(:, 1,25,13) = (/ &
+ & 0.10472E+04_JPRB,0.79884E+03_JPRB,0.60281E+03_JPRB,0.88760E+03_JPRB,0.11748E+04_JPRB /)  
+KB(:, 2,25,13) = (/ &
+ & 0.10433E+04_JPRB,0.79261E+03_JPRB,0.60217E+03_JPRB,0.88787E+03_JPRB,0.11745E+04_JPRB /)  
+KB(:, 3,25,13) = (/ &
+ & 0.10495E+04_JPRB,0.79568E+03_JPRB,0.60138E+03_JPRB,0.88696E+03_JPRB,0.11733E+04_JPRB /)  
+KB(:, 4,25,13) = (/ &
+ & 0.10412E+04_JPRB,0.79264E+03_JPRB,0.60023E+03_JPRB,0.88559E+03_JPRB,0.11715E+04_JPRB /)  
+KB(:, 5,25,13) = (/ &
+ & 0.10432E+04_JPRB,0.79682E+03_JPRB,0.59908E+03_JPRB,0.88390E+03_JPRB,0.11692E+04_JPRB /)  
+KB(:, 1,26,13) = (/ &
+ & 0.10426E+04_JPRB,0.79538E+03_JPRB,0.60266E+03_JPRB,0.88804E+03_JPRB,0.11748E+04_JPRB /)  
+KB(:, 2,26,13) = (/ &
+ & 0.10459E+04_JPRB,0.79909E+03_JPRB,0.60196E+03_JPRB,0.88771E+03_JPRB,0.11743E+04_JPRB /)  
+KB(:, 3,26,13) = (/ &
+ & 0.10455E+04_JPRB,0.79078E+03_JPRB,0.60113E+03_JPRB,0.88666E+03_JPRB,0.11729E+04_JPRB /)  
+KB(:, 4,26,13) = (/ &
+ & 0.10380E+04_JPRB,0.79069E+03_JPRB,0.60011E+03_JPRB,0.88521E+03_JPRB,0.11710E+04_JPRB /)  
+KB(:, 5,26,13) = (/ &
+ & 0.10428E+04_JPRB,0.79124E+03_JPRB,0.59892E+03_JPRB,0.88345E+03_JPRB,0.11686E+04_JPRB /)  
+KB(:, 1,27,13) = (/ &
+ & 0.10409E+04_JPRB,0.79057E+03_JPRB,0.60249E+03_JPRB,0.88802E+03_JPRB,0.11747E+04_JPRB /)  
+KB(:, 2,27,13) = (/ &
+ & 0.10432E+04_JPRB,0.78863E+03_JPRB,0.60172E+03_JPRB,0.88750E+03_JPRB,0.11740E+04_JPRB /)  
+KB(:, 3,27,13) = (/ &
+ & 0.10404E+04_JPRB,0.79041E+03_JPRB,0.60057E+03_JPRB,0.88634E+03_JPRB,0.11728E+04_JPRB /)  
+KB(:, 4,27,13) = (/ &
+ & 0.10425E+04_JPRB,0.78854E+03_JPRB,0.59967E+03_JPRB,0.88481E+03_JPRB,0.11704E+04_JPRB /)  
+KB(:, 5,27,13) = (/ &
+ & 0.10492E+04_JPRB,0.78874E+03_JPRB,0.59843E+03_JPRB,0.88297E+03_JPRB,0.11680E+04_JPRB /)  
+KB(:, 1,28,13) = (/ &
+ & 0.10434E+04_JPRB,0.79273E+03_JPRB,0.60231E+03_JPRB,0.88820E+03_JPRB,0.11747E+04_JPRB /)  
+KB(:, 2,28,13) = (/ &
+ & 0.10472E+04_JPRB,0.78799E+03_JPRB,0.60162E+03_JPRB,0.88726E+03_JPRB,0.11737E+04_JPRB /)  
+KB(:, 3,28,13) = (/ &
+ & 0.10366E+04_JPRB,0.79125E+03_JPRB,0.60032E+03_JPRB,0.88600E+03_JPRB,0.11720E+04_JPRB /)  
+KB(:, 4,28,13) = (/ &
+ & 0.10345E+04_JPRB,0.78841E+03_JPRB,0.59938E+03_JPRB,0.88440E+03_JPRB,0.11699E+04_JPRB /)  
+KB(:, 5,28,13) = (/ &
+ & 0.10534E+04_JPRB,0.78866E+03_JPRB,0.59808E+03_JPRB,0.88245E+03_JPRB,0.11673E+04_JPRB /)  
+KB(:, 1,29,13) = (/ &
+ & 0.10524E+04_JPRB,0.78934E+03_JPRB,0.60181E+03_JPRB,0.88786E+03_JPRB,0.11745E+04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART31',1,ZHOOK_HANDLE)
+END SUBROUTINE PART31
+
+
+SUBROUTINE PART32
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART32',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,29,13) = (/ &
+ & 0.10481E+04_JPRB,0.78588E+03_JPRB,0.60321E+03_JPRB,0.88698E+03_JPRB,0.11734E+04_JPRB /)  
+KB(:, 3,29,13) = (/ &
+ & 0.10466E+04_JPRB,0.79266E+03_JPRB,0.60021E+03_JPRB,0.88562E+03_JPRB,0.11715E+04_JPRB /)  
+KB(:, 4,29,13) = (/ &
+ & 0.10466E+04_JPRB,0.79965E+03_JPRB,0.59906E+03_JPRB,0.88395E+03_JPRB,0.11693E+04_JPRB /)  
+KB(:, 5,29,13) = (/ &
+ & 0.10459E+04_JPRB,0.78993E+03_JPRB,0.59799E+03_JPRB,0.88185E+03_JPRB,0.11668E+04_JPRB /)  
+KB(:, 1,30,13) = (/ &
+ & 0.10360E+04_JPRB,0.78916E+03_JPRB,0.60191E+03_JPRB,0.88770E+03_JPRB,0.11743E+04_JPRB /)  
+KB(:, 2,30,13) = (/ &
+ & 0.10409E+04_JPRB,0.78411E+03_JPRB,0.60093E+03_JPRB,0.88667E+03_JPRB,0.11729E+04_JPRB /)  
+KB(:, 3,30,13) = (/ &
+ & 0.10391E+04_JPRB,0.79193E+03_JPRB,0.59993E+03_JPRB,0.88546E+03_JPRB,0.11710E+04_JPRB /)  
+KB(:, 4,30,13) = (/ &
+ & 0.10409E+04_JPRB,0.78876E+03_JPRB,0.59874E+03_JPRB,0.88348E+03_JPRB,0.11687E+04_JPRB /)  
+KB(:, 5,30,13) = (/ &
+ & 0.10396E+04_JPRB,0.78722E+03_JPRB,0.59722E+03_JPRB,0.88117E+03_JPRB,0.11665E+04_JPRB /)  
+KB(:, 1,31,13) = (/ &
+ & 0.10394E+04_JPRB,0.79419E+03_JPRB,0.60167E+03_JPRB,0.88749E+03_JPRB,0.11740E+04_JPRB /)  
+KB(:, 2,31,13) = (/ &
+ & 0.10363E+04_JPRB,0.79203E+03_JPRB,0.60068E+03_JPRB,0.88633E+03_JPRB,0.11725E+04_JPRB /)  
+KB(:, 3,31,13) = (/ &
+ & 0.10437E+04_JPRB,0.78663E+03_JPRB,0.59963E+03_JPRB,0.88481E+03_JPRB,0.11705E+04_JPRB /)  
+KB(:, 4,31,13) = (/ &
+ & 0.10406E+04_JPRB,0.79000E+03_JPRB,0.59839E+03_JPRB,0.88297E+03_JPRB,0.11680E+04_JPRB /)  
+KB(:, 5,31,13) = (/ &
+ & 0.10413E+04_JPRB,0.79093E+03_JPRB,0.59674E+03_JPRB,0.88044E+03_JPRB,0.11650E+04_JPRB /)  
+KB(:, 1,32,13) = (/ &
+ & 0.10440E+04_JPRB,0.79014E+03_JPRB,0.60327E+03_JPRB,0.88723E+03_JPRB,0.11737E+04_JPRB /)  
+KB(:, 2,32,13) = (/ &
+ & 0.10391E+04_JPRB,0.79106E+03_JPRB,0.60042E+03_JPRB,0.88596E+03_JPRB,0.11720E+04_JPRB /)  
+KB(:, 3,32,13) = (/ &
+ & 0.10467E+04_JPRB,0.78955E+03_JPRB,0.59932E+03_JPRB,0.88436E+03_JPRB,0.11699E+04_JPRB /)  
+KB(:, 4,32,13) = (/ &
+ & 0.10407E+04_JPRB,0.79722E+03_JPRB,0.59818E+03_JPRB,0.88241E+03_JPRB,0.11673E+04_JPRB /)  
+KB(:, 5,32,13) = (/ &
+ & 0.10382E+04_JPRB,0.78961E+03_JPRB,0.59626E+03_JPRB,0.87980E+03_JPRB,0.11639E+04_JPRB /)  
+KB(:, 1,33,13) = (/ &
+ & 0.10522E+04_JPRB,0.78494E+03_JPRB,0.60081E+03_JPRB,0.88693E+03_JPRB,0.11733E+04_JPRB /)  
+KB(:, 2,33,13) = (/ &
+ & 0.10373E+04_JPRB,0.79220E+03_JPRB,0.59999E+03_JPRB,0.88557E+03_JPRB,0.11715E+04_JPRB /)  
+KB(:, 3,33,13) = (/ &
+ & 0.10359E+04_JPRB,0.78622E+03_JPRB,0.59900E+03_JPRB,0.88389E+03_JPRB,0.11695E+04_JPRB /)  
+KB(:, 4,33,13) = (/ &
+ & 0.10377E+04_JPRB,0.78474E+03_JPRB,0.59760E+03_JPRB,0.88177E+03_JPRB,0.11667E+04_JPRB /)  
+KB(:, 5,33,13) = (/ &
+ & 0.10406E+04_JPRB,0.78876E+03_JPRB,0.59580E+03_JPRB,0.87933E+03_JPRB,0.11633E+04_JPRB /)  
+KB(:, 1,34,13) = (/ &
+ & 0.10360E+04_JPRB,0.79366E+03_JPRB,0.60074E+03_JPRB,0.88666E+03_JPRB,0.11729E+04_JPRB /)  
+KB(:, 2,34,13) = (/ &
+ & 0.10445E+04_JPRB,0.78362E+03_JPRB,0.59974E+03_JPRB,0.88521E+03_JPRB,0.11710E+04_JPRB /)  
+KB(:, 3,34,13) = (/ &
+ & 0.10445E+04_JPRB,0.78784E+03_JPRB,0.59871E+03_JPRB,0.88346E+03_JPRB,0.11687E+04_JPRB /)  
+KB(:, 4,34,13) = (/ &
+ & 0.10420E+04_JPRB,0.78840E+03_JPRB,0.59718E+03_JPRB,0.88091E+03_JPRB,0.11665E+04_JPRB /)  
+KB(:, 5,34,13) = (/ &
+ & 0.10384E+04_JPRB,0.79182E+03_JPRB,0.59540E+03_JPRB,0.87927E+03_JPRB,0.11620E+04_JPRB /)  
+KB(:, 1,35,13) = (/ &
+ & 0.10422E+04_JPRB,0.79326E+03_JPRB,0.60077E+03_JPRB,0.88648E+03_JPRB,0.11727E+04_JPRB /)  
+KB(:, 2,35,13) = (/ &
+ & 0.10360E+04_JPRB,0.79158E+03_JPRB,0.59975E+03_JPRB,0.88500E+03_JPRB,0.11707E+04_JPRB /)  
+KB(:, 3,35,13) = (/ &
+ & 0.10370E+04_JPRB,0.78869E+03_JPRB,0.59854E+03_JPRB,0.88320E+03_JPRB,0.11683E+04_JPRB /)  
+KB(:, 4,35,13) = (/ &
+ & 0.10364E+04_JPRB,0.79354E+03_JPRB,0.59694E+03_JPRB,0.88077E+03_JPRB,0.11651E+04_JPRB /)  
+KB(:, 5,35,13) = (/ &
+ & 0.10369E+04_JPRB,0.78943E+03_JPRB,0.59473E+03_JPRB,0.87892E+03_JPRB,0.11616E+04_JPRB /)  
+KB(:, 1,36,13) = (/ &
+ & 0.10401E+04_JPRB,0.78191E+03_JPRB,0.60075E+03_JPRB,0.88645E+03_JPRB,0.11727E+04_JPRB /)  
+KB(:, 2,36,13) = (/ &
+ & 0.10371E+04_JPRB,0.78614E+03_JPRB,0.59972E+03_JPRB,0.88519E+03_JPRB,0.11707E+04_JPRB /)  
+KB(:, 3,36,13) = (/ &
+ & 0.10392E+04_JPRB,0.78550E+03_JPRB,0.59835E+03_JPRB,0.88339E+03_JPRB,0.11683E+04_JPRB /)  
+KB(:, 4,36,13) = (/ &
+ & 0.10378E+04_JPRB,0.78649E+03_JPRB,0.59690E+03_JPRB,0.88071E+03_JPRB,0.11650E+04_JPRB /)  
+KB(:, 5,36,13) = (/ &
+ & 0.10389E+04_JPRB,0.79012E+03_JPRB,0.59516E+03_JPRB,0.87821E+03_JPRB,0.11604E+04_JPRB /)  
+KB(:, 1,37,13) = (/ &
+ & 0.10397E+04_JPRB,0.78790E+03_JPRB,0.60071E+03_JPRB,0.88662E+03_JPRB,0.11729E+04_JPRB /)  
+KB(:, 2,37,13) = (/ &
+ & 0.10413E+04_JPRB,0.78135E+03_JPRB,0.59986E+03_JPRB,0.88540E+03_JPRB,0.11710E+04_JPRB /)  
+KB(:, 3,37,13) = (/ &
+ & 0.10434E+04_JPRB,0.78885E+03_JPRB,0.59867E+03_JPRB,0.88341E+03_JPRB,0.11686E+04_JPRB /)  
+KB(:, 4,37,13) = (/ &
+ & 0.10382E+04_JPRB,0.79636E+03_JPRB,0.59698E+03_JPRB,0.88108E+03_JPRB,0.11655E+04_JPRB /)  
+KB(:, 5,37,13) = (/ &
+ & 0.10369E+04_JPRB,0.78656E+03_JPRB,0.59536E+03_JPRB,0.87879E+03_JPRB,0.11626E+04_JPRB /)  
+KB(:, 1,38,13) = (/ &
+ & 0.10433E+04_JPRB,0.78475E+03_JPRB,0.60099E+03_JPRB,0.88680E+03_JPRB,0.11731E+04_JPRB /)  
+KB(:, 2,38,13) = (/ &
+ & 0.10422E+04_JPRB,0.78187E+03_JPRB,0.60001E+03_JPRB,0.88539E+03_JPRB,0.11713E+04_JPRB /)  
+KB(:, 3,38,13) = (/ &
+ & 0.10376E+04_JPRB,0.78470E+03_JPRB,0.59854E+03_JPRB,0.88368E+03_JPRB,0.11690E+04_JPRB /)  
+KB(:, 4,38,13) = (/ &
+ & 0.10379E+04_JPRB,0.78467E+03_JPRB,0.59739E+03_JPRB,0.88147E+03_JPRB,0.11660E+04_JPRB /)  
+KB(:, 5,38,13) = (/ &
+ & 0.10346E+04_JPRB,0.79279E+03_JPRB,0.59559E+03_JPRB,0.87849E+03_JPRB,0.11631E+04_JPRB /)  
+KB(:, 1,39,13) = (/ &
+ & 0.10564E+04_JPRB,0.79016E+03_JPRB,0.60113E+03_JPRB,0.88696E+03_JPRB,0.11734E+04_JPRB /)  
+KB(:, 2,39,13) = (/ &
+ & 0.10405E+04_JPRB,0.78139E+03_JPRB,0.59938E+03_JPRB,0.88561E+03_JPRB,0.11715E+04_JPRB /)  
+KB(:, 3,39,13) = (/ &
+ & 0.10386E+04_JPRB,0.79256E+03_JPRB,0.59902E+03_JPRB,0.88393E+03_JPRB,0.11693E+04_JPRB /)  
+KB(:, 4,39,13) = (/ &
+ & 0.10351E+04_JPRB,0.78501E+03_JPRB,0.59779E+03_JPRB,0.88184E+03_JPRB,0.11668E+04_JPRB /)  
+KB(:, 5,39,13) = (/ &
+ & 0.10353E+04_JPRB,0.78561E+03_JPRB,0.59583E+03_JPRB,0.87937E+03_JPRB,0.11634E+04_JPRB /)  
+KB(:, 1,40,13) = (/ &
+ & 0.10351E+04_JPRB,0.78501E+03_JPRB,0.60325E+03_JPRB,0.88723E+03_JPRB,0.11737E+04_JPRB /)  
+KB(:, 2,40,13) = (/ &
+ & 0.10332E+04_JPRB,0.78519E+03_JPRB,0.60040E+03_JPRB,0.88596E+03_JPRB,0.11720E+04_JPRB /)  
+KB(:, 3,40,13) = (/ &
+ & 0.10393E+04_JPRB,0.78843E+03_JPRB,0.59931E+03_JPRB,0.88436E+03_JPRB,0.11699E+04_JPRB /)  
+KB(:, 4,40,13) = (/ &
+ & 0.10339E+04_JPRB,0.78821E+03_JPRB,0.59801E+03_JPRB,0.88242E+03_JPRB,0.11676E+04_JPRB /)  
+KB(:, 5,40,13) = (/ &
+ & 0.10476E+04_JPRB,0.78616E+03_JPRB,0.59626E+03_JPRB,0.87958E+03_JPRB,0.11639E+04_JPRB /)  
+KB(:, 1,41,13) = (/ &
+ & 0.10420E+04_JPRB,0.78658E+03_JPRB,0.60226E+03_JPRB,0.88748E+03_JPRB,0.11740E+04_JPRB /)  
+KB(:, 2,41,13) = (/ &
+ & 0.10471E+04_JPRB,0.78433E+03_JPRB,0.60065E+03_JPRB,0.88632E+03_JPRB,0.11725E+04_JPRB /)  
+KB(:, 3,41,13) = (/ &
+ & 0.10385E+04_JPRB,0.78777E+03_JPRB,0.59960E+03_JPRB,0.88480E+03_JPRB,0.11705E+04_JPRB /)  
+KB(:, 4,41,13) = (/ &
+ & 0.10374E+04_JPRB,0.79305E+03_JPRB,0.59837E+03_JPRB,0.88319E+03_JPRB,0.11680E+04_JPRB /)  
+KB(:, 5,41,13) = (/ &
+ & 0.10341E+04_JPRB,0.79121E+03_JPRB,0.59671E+03_JPRB,0.88067E+03_JPRB,0.11641E+04_JPRB /)  
+KB(:, 1,42,13) = (/ &
+ & 0.10427E+04_JPRB,0.78654E+03_JPRB,0.60202E+03_JPRB,0.88768E+03_JPRB,0.11743E+04_JPRB /)  
+KB(:, 2,42,13) = (/ &
+ & 0.10376E+04_JPRB,0.78774E+03_JPRB,0.60073E+03_JPRB,0.88666E+03_JPRB,0.11730E+04_JPRB /)  
+KB(:, 3,42,13) = (/ &
+ & 0.10387E+04_JPRB,0.78631E+03_JPRB,0.59989E+03_JPRB,0.88522E+03_JPRB,0.11710E+04_JPRB /)  
+KB(:, 4,42,13) = (/ &
+ & 0.10432E+04_JPRB,0.79240E+03_JPRB,0.59870E+03_JPRB,0.88347E+03_JPRB,0.11690E+04_JPRB /)  
+KB(:, 5,42,13) = (/ &
+ & 0.10408E+04_JPRB,0.78283E+03_JPRB,0.59718E+03_JPRB,0.88116E+03_JPRB,0.11677E+04_JPRB /)  
+KB(:, 1,43,13) = (/ &
+ & 0.10384E+04_JPRB,0.78732E+03_JPRB,0.60211E+03_JPRB,0.88787E+03_JPRB,0.11746E+04_JPRB /)  
+KB(:, 2,43,13) = (/ &
+ & 0.10392E+04_JPRB,0.79483E+03_JPRB,0.60103E+03_JPRB,0.88703E+03_JPRB,0.11735E+04_JPRB /)  
+KB(:, 3,43,13) = (/ &
+ & 0.10435E+04_JPRB,0.79279E+03_JPRB,0.60022E+03_JPRB,0.88570E+03_JPRB,0.11717E+04_JPRB /)  
+KB(:, 4,43,13) = (/ &
+ & 0.10453E+04_JPRB,0.78261E+03_JPRB,0.59909E+03_JPRB,0.88405E+03_JPRB,0.11698E+04_JPRB /)  
+KB(:, 5,43,13) = (/ &
+ & 0.10349E+04_JPRB,0.78239E+03_JPRB,0.59773E+03_JPRB,0.88200E+03_JPRB,0.11670E+04_JPRB /)  
+KB(:, 1,44,13) = (/ &
+ & 0.10376E+04_JPRB,0.78973E+03_JPRB,0.60218E+03_JPRB,0.88797E+03_JPRB,0.11747E+04_JPRB /)  
+KB(:, 2,44,13) = (/ &
+ & 0.10357E+04_JPRB,0.79073E+03_JPRB,0.60154E+03_JPRB,0.88738E+03_JPRB,0.11742E+04_JPRB /)  
+KB(:, 3,44,13) = (/ &
+ & 0.10381E+04_JPRB,0.78584E+03_JPRB,0.60056E+03_JPRB,0.88619E+03_JPRB,0.11723E+04_JPRB /)  
+KB(:, 4,44,13) = (/ &
+ & 0.10410E+04_JPRB,0.78726E+03_JPRB,0.59965E+03_JPRB,0.88464E+03_JPRB,0.11703E+04_JPRB /)  
+KB(:, 5,44,13) = (/ &
+ & 0.10370E+04_JPRB,0.78461E+03_JPRB,0.59824E+03_JPRB,0.88299E+03_JPRB,0.11677E+04_JPRB /)  
+KB(:, 1,45,13) = (/ &
+ & 0.10383E+04_JPRB,0.78177E+03_JPRB,0.60254E+03_JPRB,0.88799E+03_JPRB,0.11748E+04_JPRB /)  
+KB(:, 2,45,13) = (/ &
+ & 0.10337E+04_JPRB,0.78400E+03_JPRB,0.60200E+03_JPRB,0.88790E+03_JPRB,0.11743E+04_JPRB /)  
+KB(:, 3,45,13) = (/ &
+ & 0.10407E+04_JPRB,0.78928E+03_JPRB,0.60087E+03_JPRB,0.88664E+03_JPRB,0.11732E+04_JPRB /)  
+KB(:, 4,45,13) = (/ &
+ & 0.10410E+04_JPRB,0.79578E+03_JPRB,0.59987E+03_JPRB,0.88519E+03_JPRB,0.11713E+04_JPRB /)  
+KB(:, 5,45,13) = (/ &
+ & 0.10369E+04_JPRB,0.78337E+03_JPRB,0.59884E+03_JPRB,0.88344E+03_JPRB,0.11687E+04_JPRB /)  
+KB(:, 1,46,13) = (/ &
+ & 0.10415E+04_JPRB,0.79090E+03_JPRB,0.60272E+03_JPRB,0.88805E+03_JPRB,0.11749E+04_JPRB /)  
+KB(:, 2,46,13) = (/ &
+ & 0.10332E+04_JPRB,0.79374E+03_JPRB,0.60213E+03_JPRB,0.88788E+03_JPRB,0.11746E+04_JPRB /)  
+KB(:, 3,46,13) = (/ &
+ & 0.10495E+04_JPRB,0.78743E+03_JPRB,0.60122E+03_JPRB,0.88707E+03_JPRB,0.11738E+04_JPRB /)  
+KB(:, 4,46,13) = (/ &
+ & 0.10359E+04_JPRB,0.78275E+03_JPRB,0.60025E+03_JPRB,0.88575E+03_JPRB,0.11717E+04_JPRB /)  
+KB(:, 5,46,13) = (/ &
+ & 0.10407E+04_JPRB,0.79210E+03_JPRB,0.59913E+03_JPRB,0.88411E+03_JPRB,0.11695E+04_JPRB /)  
+KB(:, 1,47,13) = (/ &
+ & 0.10396E+04_JPRB,0.78478E+03_JPRB,0.60291E+03_JPRB,0.88833E+03_JPRB,0.11753E+04_JPRB /)  
+KB(:, 2,47,13) = (/ &
+ & 0.10391E+04_JPRB,0.78254E+03_JPRB,0.60239E+03_JPRB,0.88798E+03_JPRB,0.11747E+04_JPRB /)  
+KB(:, 3,47,13) = (/ &
+ & 0.10358E+04_JPRB,0.79087E+03_JPRB,0.60194E+03_JPRB,0.88748E+03_JPRB,0.11740E+04_JPRB /)  
+KB(:, 4,47,13) = (/ &
+ & 0.10382E+04_JPRB,0.78212E+03_JPRB,0.60065E+03_JPRB,0.88632E+03_JPRB,0.11725E+04_JPRB /)  
+KB(:, 5,47,13) = (/ &
+ & 0.10417E+04_JPRB,0.78639E+03_JPRB,0.59976E+03_JPRB,0.88480E+03_JPRB,0.11705E+04_JPRB /)  
+KB(:, 1,48,13) = (/ &
+ & 0.10401E+04_JPRB,0.78456E+03_JPRB,0.60307E+03_JPRB,0.88865E+03_JPRB,0.11757E+04_JPRB /)  
+KB(:, 2,48,13) = (/ &
+ & 0.10385E+04_JPRB,0.78639E+03_JPRB,0.60262E+03_JPRB,0.88799E+03_JPRB,0.11748E+04_JPRB /)  
+KB(:, 3,48,13) = (/ &
+ & 0.10377E+04_JPRB,0.78374E+03_JPRB,0.60183E+03_JPRB,0.88778E+03_JPRB,0.11745E+04_JPRB /)  
+KB(:, 4,48,13) = (/ &
+ & 0.10347E+04_JPRB,0.78455E+03_JPRB,0.60102E+03_JPRB,0.88707E+03_JPRB,0.11732E+04_JPRB /)  
+KB(:, 5,48,13) = (/ &
+ & 0.10420E+04_JPRB,0.79085E+03_JPRB,0.60005E+03_JPRB,0.88545E+03_JPRB,0.11713E+04_JPRB /)  
+KB(:, 1,49,13) = (/ &
+ & 0.10372E+04_JPRB,0.78740E+03_JPRB,0.60317E+03_JPRB,0.88862E+03_JPRB,0.11760E+04_JPRB /)  
+KB(:, 2,49,13) = (/ &
+ & 0.10417E+04_JPRB,0.78862E+03_JPRB,0.60282E+03_JPRB,0.88818E+03_JPRB,0.11751E+04_JPRB /)  
+KB(:, 3,49,13) = (/ &
+ & 0.10345E+04_JPRB,0.78780E+03_JPRB,0.60227E+03_JPRB,0.88818E+03_JPRB,0.11747E+04_JPRB /)  
+KB(:, 4,49,13) = (/ &
+ & 0.10406E+04_JPRB,0.78617E+03_JPRB,0.60221E+03_JPRB,0.88729E+03_JPRB,0.11738E+04_JPRB /)  
+KB(:, 5,49,13) = (/ &
+ & 0.10382E+04_JPRB,0.79023E+03_JPRB,0.60061E+03_JPRB,0.88605E+03_JPRB,0.11721E+04_JPRB /)  
+KB(:, 1,50,13) = (/ &
+ & 0.10347E+04_JPRB,0.79207E+03_JPRB,0.60367E+03_JPRB,0.88900E+03_JPRB,0.11761E+04_JPRB /)  
+KB(:, 2,50,13) = (/ &
+ & 0.10350E+04_JPRB,0.78739E+03_JPRB,0.60298E+03_JPRB,0.88872E+03_JPRB,0.11755E+04_JPRB /)  
+KB(:, 3,50,13) = (/ &
+ & 0.10353E+04_JPRB,0.78433E+03_JPRB,0.60234E+03_JPRB,0.88799E+03_JPRB,0.11744E+04_JPRB /)  
+KB(:, 4,50,13) = (/ &
+ & 0.10489E+04_JPRB,0.79267E+03_JPRB,0.60164E+03_JPRB,0.88763E+03_JPRB,0.11743E+04_JPRB /)  
+KB(:, 5,50,13) = (/ &
+ & 0.10406E+04_JPRB,0.78514E+03_JPRB,0.60019E+03_JPRB,0.88656E+03_JPRB,0.11728E+04_JPRB /)  
+KB(:, 1,51,13) = (/ &
+ & 0.10345E+04_JPRB,0.78799E+03_JPRB,0.60398E+03_JPRB,0.88932E+03_JPRB,0.11765E+04_JPRB /)  
+KB(:, 2,51,13) = (/ &
+ & 0.10401E+04_JPRB,0.78697E+03_JPRB,0.60314E+03_JPRB,0.88874E+03_JPRB,0.11758E+04_JPRB /)  
+KB(:, 3,51,13) = (/ &
+ & 0.10366E+04_JPRB,0.78656E+03_JPRB,0.60285E+03_JPRB,0.88803E+03_JPRB,0.11749E+04_JPRB /)  
+KB(:, 4,51,13) = (/ &
+ & 0.10374E+04_JPRB,0.78473E+03_JPRB,0.60240E+03_JPRB,0.88809E+03_JPRB,0.11746E+04_JPRB /)  
+KB(:, 5,51,13) = (/ &
+ & 0.10390E+04_JPRB,0.78920E+03_JPRB,0.60116E+03_JPRB,0.88701E+03_JPRB,0.11734E+04_JPRB /)  
+KB(:, 1,52,13) = (/ &
+ & 0.10369E+04_JPRB,0.78758E+03_JPRB,0.60425E+03_JPRB,0.88974E+03_JPRB,0.11770E+04_JPRB /)  
+KB(:, 2,52,13) = (/ &
+ & 0.10369E+04_JPRB,0.78229E+03_JPRB,0.60357E+03_JPRB,0.88889E+03_JPRB,0.11760E+04_JPRB /)  
+KB(:, 3,52,13) = (/ &
+ & 0.10371E+04_JPRB,0.78737E+03_JPRB,0.60287E+03_JPRB,0.88826E+03_JPRB,0.11752E+04_JPRB /)  
+KB(:, 4,52,13) = (/ &
+ & 0.10414E+04_JPRB,0.78574E+03_JPRB,0.60234E+03_JPRB,0.88797E+03_JPRB,0.11747E+04_JPRB /)  
+KB(:, 5,52,13) = (/ &
+ & 0.10377E+04_JPRB,0.78696E+03_JPRB,0.60170E+03_JPRB,0.88739E+03_JPRB,0.11739E+04_JPRB /)  
+KB(:, 1,53,13) = (/ &
+ & 0.10446E+04_JPRB,0.78533E+03_JPRB,0.60451E+03_JPRB,0.89022E+03_JPRB,0.11778E+04_JPRB /)  
+KB(:, 2,53,13) = (/ &
+ & 0.10366E+04_JPRB,0.78675E+03_JPRB,0.60391E+03_JPRB,0.88907E+03_JPRB,0.11762E+04_JPRB /)  
+KB(:, 3,53,13) = (/ &
+ & 0.10339E+04_JPRB,0.78472E+03_JPRB,0.60302E+03_JPRB,0.88857E+03_JPRB,0.11756E+04_JPRB /)  
+KB(:, 4,53,13) = (/ &
+ & 0.10347E+04_JPRB,0.78858E+03_JPRB,0.60271E+03_JPRB,0.88799E+03_JPRB,0.11748E+04_JPRB /)  
+KB(:, 5,53,13) = (/ &
+ & 0.10414E+04_JPRB,0.78370E+03_JPRB,0.60188E+03_JPRB,0.88770E+03_JPRB,0.11743E+04_JPRB /)  
+KB(:, 1,54,13) = (/ &
+ & 0.10366E+04_JPRB,0.78980E+03_JPRB,0.60463E+03_JPRB,0.89072E+03_JPRB,0.11788E+04_JPRB /)  
+KB(:, 2,54,13) = (/ &
+ & 0.10376E+04_JPRB,0.78289E+03_JPRB,0.60402E+03_JPRB,0.88939E+03_JPRB,0.11765E+04_JPRB /)  
+KB(:, 3,54,13) = (/ &
+ & 0.10387E+04_JPRB,0.78695E+03_JPRB,0.60318E+03_JPRB,0.88877E+03_JPRB,0.11759E+04_JPRB /)  
+KB(:, 4,54,13) = (/ &
+ & 0.10435E+04_JPRB,0.78370E+03_JPRB,0.60273E+03_JPRB,0.88806E+03_JPRB,0.11749E+04_JPRB /)  
+KB(:, 5,54,13) = (/ &
+ & 0.10492E+04_JPRB,0.79000E+03_JPRB,0.60214E+03_JPRB,0.88789E+03_JPRB,0.11746E+04_JPRB /)  
+KB(:, 1,55,13) = (/ &
+ & 0.10395E+04_JPRB,0.78654E+03_JPRB,0.60524E+03_JPRB,0.89136E+03_JPRB,0.11799E+04_JPRB /)  
+KB(:, 2,55,13) = (/ &
+ & 0.10379E+04_JPRB,0.78553E+03_JPRB,0.60426E+03_JPRB,0.88977E+03_JPRB,0.11770E+04_JPRB /)  
+KB(:, 3,55,13) = (/ &
+ & 0.10376E+04_JPRB,0.78959E+03_JPRB,0.60343E+03_JPRB,0.88890E+03_JPRB,0.11757E+04_JPRB /)  
+KB(:, 4,55,13) = (/ &
+ & 0.10360E+04_JPRB,0.78634E+03_JPRB,0.60272E+03_JPRB,0.88828E+03_JPRB,0.11752E+04_JPRB /)  
+KB(:, 5,55,13) = (/ &
+ & 0.10355E+04_JPRB,0.78796E+03_JPRB,0.60219E+03_JPRB,0.88821E+03_JPRB,0.11747E+04_JPRB /)  
+KB(:, 1,56,13) = (/ &
+ & 0.10500E+04_JPRB,0.78471E+03_JPRB,0.60540E+03_JPRB,0.89210E+03_JPRB,0.11812E+04_JPRB /)  
+KB(:, 2,56,13) = (/ &
+ & 0.10441E+04_JPRB,0.78735E+03_JPRB,0.60449E+03_JPRB,0.89019E+03_JPRB,0.11777E+04_JPRB /)  
+KB(:, 3,56,13) = (/ &
+ & 0.10382E+04_JPRB,0.78755E+03_JPRB,0.60374E+03_JPRB,0.88905E+03_JPRB,0.11759E+04_JPRB /)  
+KB(:, 4,56,13) = (/ &
+ & 0.10470E+04_JPRB,0.78715E+03_JPRB,0.60301E+03_JPRB,0.88855E+03_JPRB,0.11756E+04_JPRB /)  
+KB(:, 5,56,13) = (/ &
+ & 0.10358E+04_JPRB,0.78674E+03_JPRB,0.60270E+03_JPRB,0.88799E+03_JPRB,0.11748E+04_JPRB /)  
+KB(:, 1,57,13) = (/ &
+ & 0.10339E+04_JPRB,0.78715E+03_JPRB,0.60588E+03_JPRB,0.89295E+03_JPRB,0.11828E+04_JPRB /)  
+KB(:, 2,57,13) = (/ &
+ & 0.10441E+04_JPRB,0.78267E+03_JPRB,0.60475E+03_JPRB,0.89065E+03_JPRB,0.11787E+04_JPRB /)  
+KB(:, 3,57,13) = (/ &
+ & 0.10435E+04_JPRB,0.78938E+03_JPRB,0.60399E+03_JPRB,0.88934E+03_JPRB,0.11765E+04_JPRB /)  
+KB(:, 4,57,13) = (/ &
+ & 0.10392E+04_JPRB,0.79203E+03_JPRB,0.60300E+03_JPRB,0.88875E+03_JPRB,0.11758E+04_JPRB /)  
+KB(:, 5,57,13) = (/ &
+ & 0.10360E+04_JPRB,0.78491E+03_JPRB,0.60271E+03_JPRB,0.88827E+03_JPRB,0.11749E+04_JPRB /)  
+KB(:, 1,58,13) = (/ &
+ & 0.10392E+04_JPRB,0.78430E+03_JPRB,0.60601E+03_JPRB,0.89398E+03_JPRB,0.11847E+04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART32',1,ZHOOK_HANDLE)
+END SUBROUTINE PART32
+
+
+SUBROUTINE PART33
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART33',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,58,13) = (/ &
+ & 0.10363E+04_JPRB,0.78694E+03_JPRB,0.60503E+03_JPRB,0.89124E+03_JPRB,0.11797E+04_JPRB /)  
+KB(:, 3,58,13) = (/ &
+ & 0.10360E+04_JPRB,0.78084E+03_JPRB,0.60391E+03_JPRB,0.88970E+03_JPRB,0.11769E+04_JPRB /)  
+KB(:, 4,58,13) = (/ &
+ & 0.10459E+04_JPRB,0.78267E+03_JPRB,0.60338E+03_JPRB,0.88888E+03_JPRB,0.11757E+04_JPRB /)  
+KB(:, 5,58,13) = (/ &
+ & 0.10368E+04_JPRB,0.79101E+03_JPRB,0.60285E+03_JPRB,0.88823E+03_JPRB,0.11752E+04_JPRB /)  
+KB(:, 1,59,13) = (/ &
+ & 0.10403E+04_JPRB,0.78613E+03_JPRB,0.60612E+03_JPRB,0.89444E+03_JPRB,0.11849E+04_JPRB /)  
+KB(:, 2,59,13) = (/ &
+ & 0.10349E+04_JPRB,0.78531E+03_JPRB,0.60514E+03_JPRB,0.89150E+03_JPRB,0.11802E+04_JPRB /)  
+KB(:, 3,59,13) = (/ &
+ & 0.10360E+04_JPRB,0.78470E+03_JPRB,0.60447E+03_JPRB,0.88985E+03_JPRB,0.11771E+04_JPRB /)  
+KB(:, 4,59,13) = (/ &
+ & 0.10411E+04_JPRB,0.78531E+03_JPRB,0.60349E+03_JPRB,0.88892E+03_JPRB,0.11761E+04_JPRB /)  
+KB(:, 5,59,13) = (/ &
+ & 0.10355E+04_JPRB,0.78795E+03_JPRB,0.60275E+03_JPRB,0.88833E+03_JPRB,0.11753E+04_JPRB /)  
+KB(:, 1,13,14) = (/ &
+ & 0.12194E+04_JPRB,0.91192E+03_JPRB,0.60649E+03_JPRB,0.89289E+03_JPRB,0.11803E+04_JPRB /)  
+KB(:, 2,13,14) = (/ &
+ & 0.11340E+04_JPRB,0.93388E+03_JPRB,0.60565E+03_JPRB,0.89163E+03_JPRB,0.11786E+04_JPRB /)  
+KB(:, 3,13,14) = (/ &
+ & 0.11287E+04_JPRB,0.93154E+03_JPRB,0.60510E+03_JPRB,0.89077E+03_JPRB,0.11775E+04_JPRB /)  
+KB(:, 4,13,14) = (/ &
+ & 0.11571E+04_JPRB,0.89198E+03_JPRB,0.60383E+03_JPRB,0.88977E+03_JPRB,0.11762E+04_JPRB /)  
+KB(:, 5,13,14) = (/ &
+ & 0.11232E+04_JPRB,0.85932E+03_JPRB,0.60280E+03_JPRB,0.88865E+03_JPRB,0.11748E+04_JPRB /)  
+KB(:, 1,14,14) = (/ &
+ & 0.11313E+04_JPRB,0.85574E+03_JPRB,0.60604E+03_JPRB,0.89259E+03_JPRB,0.11800E+04_JPRB /)  
+KB(:, 2,14,14) = (/ &
+ & 0.11392E+04_JPRB,0.85278E+03_JPRB,0.60523E+03_JPRB,0.89143E+03_JPRB,0.11785E+04_JPRB /)  
+KB(:, 3,14,14) = (/ &
+ & 0.11402E+04_JPRB,0.86846E+03_JPRB,0.60420E+03_JPRB,0.89055E+03_JPRB,0.11774E+04_JPRB /)  
+KB(:, 4,14,14) = (/ &
+ & 0.11058E+04_JPRB,0.85128E+03_JPRB,0.60339E+03_JPRB,0.88920E+03_JPRB,0.11761E+04_JPRB /)  
+KB(:, 5,14,14) = (/ &
+ & 0.11286E+04_JPRB,0.84325E+03_JPRB,0.60241E+03_JPRB,0.88842E+03_JPRB,0.11746E+04_JPRB /)  
+KB(:, 1,15,14) = (/ &
+ & 0.11349E+04_JPRB,0.84417E+03_JPRB,0.60541E+03_JPRB,0.89231E+03_JPRB,0.11798E+04_JPRB /)  
+KB(:, 2,15,14) = (/ &
+ & 0.11015E+04_JPRB,0.88045E+03_JPRB,0.60487E+03_JPRB,0.89125E+03_JPRB,0.11784E+04_JPRB /)  
+KB(:, 3,15,14) = (/ &
+ & 0.11261E+04_JPRB,0.83776E+03_JPRB,0.60408E+03_JPRB,0.89034E+03_JPRB,0.11772E+04_JPRB /)  
+KB(:, 4,15,14) = (/ &
+ & 0.10962E+04_JPRB,0.86597E+03_JPRB,0.60302E+03_JPRB,0.88937E+03_JPRB,0.11760E+04_JPRB /)  
+KB(:, 5,15,14) = (/ &
+ & 0.10995E+04_JPRB,0.86095E+03_JPRB,0.60207E+03_JPRB,0.88855E+03_JPRB,0.11740E+04_JPRB /)  
+KB(:, 1,16,14) = (/ &
+ & 0.11556E+04_JPRB,0.89943E+03_JPRB,0.60533E+03_JPRB,0.89241E+03_JPRB,0.11796E+04_JPRB /)  
+KB(:, 2,16,14) = (/ &
+ & 0.10928E+04_JPRB,0.87845E+03_JPRB,0.60456E+03_JPRB,0.89108E+03_JPRB,0.11783E+04_JPRB /)  
+KB(:, 3,16,14) = (/ &
+ & 0.11526E+04_JPRB,0.84568E+03_JPRB,0.60375E+03_JPRB,0.89014E+03_JPRB,0.11771E+04_JPRB /)  
+KB(:, 4,16,14) = (/ &
+ & 0.11224E+04_JPRB,0.82958E+03_JPRB,0.60245E+03_JPRB,0.88919E+03_JPRB,0.11758E+04_JPRB /)  
+KB(:, 5,16,14) = (/ &
+ & 0.11104E+04_JPRB,0.83492E+03_JPRB,0.60177E+03_JPRB,0.88796E+03_JPRB,0.11747E+04_JPRB /)  
+KB(:, 1,17,14) = (/ &
+ & 0.11093E+04_JPRB,0.86391E+03_JPRB,0.60505E+03_JPRB,0.89183E+03_JPRB,0.11794E+04_JPRB /)  
+KB(:, 2,17,14) = (/ &
+ & 0.10879E+04_JPRB,0.83992E+03_JPRB,0.60455E+03_JPRB,0.89093E+03_JPRB,0.11782E+04_JPRB /)  
+KB(:, 3,17,14) = (/ &
+ & 0.11180E+04_JPRB,0.83675E+03_JPRB,0.60345E+03_JPRB,0.88997E+03_JPRB,0.11769E+04_JPRB /)  
+KB(:, 4,17,14) = (/ &
+ & 0.11203E+04_JPRB,0.81299E+03_JPRB,0.60195E+03_JPRB,0.88902E+03_JPRB,0.11757E+04_JPRB /)  
+KB(:, 5,17,14) = (/ &
+ & 0.10902E+04_JPRB,0.84755E+03_JPRB,0.60151E+03_JPRB,0.88739E+03_JPRB,0.11736E+04_JPRB /)  
+KB(:, 1,18,14) = (/ &
+ & 0.10889E+04_JPRB,0.82171E+03_JPRB,0.60482E+03_JPRB,0.89199E+03_JPRB,0.11792E+04_JPRB /)  
+KB(:, 2,18,14) = (/ &
+ & 0.10836E+04_JPRB,0.85518E+03_JPRB,0.60408E+03_JPRB,0.89079E+03_JPRB,0.11781E+04_JPRB /)  
+KB(:, 3,18,14) = (/ &
+ & 0.10919E+04_JPRB,0.82437E+03_JPRB,0.60318E+03_JPRB,0.88981E+03_JPRB,0.11763E+04_JPRB /)  
+KB(:, 4,18,14) = (/ &
+ & 0.11143E+04_JPRB,0.86811E+03_JPRB,0.60223E+03_JPRB,0.88886E+03_JPRB,0.11755E+04_JPRB /)  
+KB(:, 5,18,14) = (/ &
+ & 0.10618E+04_JPRB,0.80694E+03_JPRB,0.60104E+03_JPRB,0.88718E+03_JPRB,0.11738E+04_JPRB /)  
+KB(:, 1,19,14) = (/ &
+ & 0.10700E+04_JPRB,0.81179E+03_JPRB,0.60437E+03_JPRB,0.89145E+03_JPRB,0.11790E+04_JPRB /)  
+KB(:, 2,19,14) = (/ &
+ & 0.11096E+04_JPRB,0.84185E+03_JPRB,0.60389E+03_JPRB,0.89066E+03_JPRB,0.11785E+04_JPRB /)  
+KB(:, 3,19,14) = (/ &
+ & 0.10919E+04_JPRB,0.82575E+03_JPRB,0.60295E+03_JPRB,0.89004E+03_JPRB,0.11767E+04_JPRB /)  
+KB(:, 4,19,14) = (/ &
+ & 0.10874E+04_JPRB,0.81974E+03_JPRB,0.60205E+03_JPRB,0.88835E+03_JPRB,0.11754E+04_JPRB /)  
+KB(:, 5,19,14) = (/ &
+ & 0.11077E+04_JPRB,0.86723E+03_JPRB,0.60084E+03_JPRB,0.88734E+03_JPRB,0.11727E+04_JPRB /)  
+KB(:, 1,20,14) = (/ &
+ & 0.10813E+04_JPRB,0.82037E+03_JPRB,0.60443E+03_JPRB,0.89128E+03_JPRB,0.11789E+04_JPRB /)  
+KB(:, 2,20,14) = (/ &
+ & 0.10944E+04_JPRB,0.83718E+03_JPRB,0.60369E+03_JPRB,0.89052E+03_JPRB,0.11778E+04_JPRB /)  
+KB(:, 3,20,14) = (/ &
+ & 0.10922E+04_JPRB,0.81527E+03_JPRB,0.60248E+03_JPRB,0.88953E+03_JPRB,0.11765E+04_JPRB /)  
+KB(:, 4,20,14) = (/ &
+ & 0.10962E+04_JPRB,0.82815E+03_JPRB,0.60188E+03_JPRB,0.88854E+03_JPRB,0.11752E+04_JPRB /)  
+KB(:, 5,20,14) = (/ &
+ & 0.10768E+04_JPRB,0.81150E+03_JPRB,0.60064E+03_JPRB,0.88711E+03_JPRB,0.11734E+04_JPRB /)  
+KB(:, 1,21,14) = (/ &
+ & 0.10919E+04_JPRB,0.79941E+03_JPRB,0.60426E+03_JPRB,0.89114E+03_JPRB,0.11787E+04_JPRB /)  
+KB(:, 2,21,14) = (/ &
+ & 0.10481E+04_JPRB,0.83111E+03_JPRB,0.60351E+03_JPRB,0.89037E+03_JPRB,0.11777E+04_JPRB /)  
+KB(:, 3,21,14) = (/ &
+ & 0.10716E+04_JPRB,0.81475E+03_JPRB,0.60253E+03_JPRB,0.88975E+03_JPRB,0.11764E+04_JPRB /)  
+KB(:, 4,21,14) = (/ &
+ & 0.11197E+04_JPRB,0.80344E+03_JPRB,0.60123E+03_JPRB,0.88837E+03_JPRB,0.11750E+04_JPRB /)  
+KB(:, 5,21,14) = (/ &
+ & 0.10436E+04_JPRB,0.80977E+03_JPRB,0.60045E+03_JPRB,0.88688E+03_JPRB,0.11731E+04_JPRB /)  
+KB(:, 1,22,14) = (/ &
+ & 0.11028E+04_JPRB,0.82019E+03_JPRB,0.60406E+03_JPRB,0.89099E+03_JPRB,0.11785E+04_JPRB /)  
+KB(:, 2,22,14) = (/ &
+ & 0.10664E+04_JPRB,0.84127E+03_JPRB,0.60327E+03_JPRB,0.89089E+03_JPRB,0.11775E+04_JPRB /)  
+KB(:, 3,22,14) = (/ &
+ & 0.10764E+04_JPRB,0.83101E+03_JPRB,0.60182E+03_JPRB,0.88920E+03_JPRB,0.11762E+04_JPRB /)  
+KB(:, 4,22,14) = (/ &
+ & 0.10955E+04_JPRB,0.82928E+03_JPRB,0.60175E+03_JPRB,0.88811E+03_JPRB,0.11747E+04_JPRB /)  
+KB(:, 5,22,14) = (/ &
+ & 0.10429E+04_JPRB,0.82150E+03_JPRB,0.60042E+03_JPRB,0.88653E+03_JPRB,0.11726E+04_JPRB /)  
+KB(:, 1,23,14) = (/ &
+ & 0.10449E+04_JPRB,0.79677E+03_JPRB,0.60363E+03_JPRB,0.89084E+03_JPRB,0.11784E+04_JPRB /)  
+KB(:, 2,23,14) = (/ &
+ & 0.10443E+04_JPRB,0.81477E+03_JPRB,0.60352E+03_JPRB,0.88994E+03_JPRB,0.11772E+04_JPRB /)  
+KB(:, 3,23,14) = (/ &
+ & 0.10490E+04_JPRB,0.84026E+03_JPRB,0.60112E+03_JPRB,0.88900E+03_JPRB,0.11759E+04_JPRB /)  
+KB(:, 4,23,14) = (/ &
+ & 0.10652E+04_JPRB,0.80737E+03_JPRB,0.60128E+03_JPRB,0.88783E+03_JPRB,0.11744E+04_JPRB /)  
+KB(:, 5,23,14) = (/ &
+ & 0.10777E+04_JPRB,0.80975E+03_JPRB,0.60014E+03_JPRB,0.88615E+03_JPRB,0.11722E+04_JPRB /)  
+KB(:, 1,24,14) = (/ &
+ & 0.10587E+04_JPRB,0.83370E+03_JPRB,0.60369E+03_JPRB,0.89067E+03_JPRB,0.11782E+04_JPRB /)  
+KB(:, 2,24,14) = (/ &
+ & 0.10413E+04_JPRB,0.79049E+03_JPRB,0.60278E+03_JPRB,0.88972E+03_JPRB,0.11769E+04_JPRB /)  
+KB(:, 3,24,14) = (/ &
+ & 0.10508E+04_JPRB,0.83928E+03_JPRB,0.60192E+03_JPRB,0.88879E+03_JPRB,0.11757E+04_JPRB /)  
+KB(:, 4,24,14) = (/ &
+ & 0.10667E+04_JPRB,0.80304E+03_JPRB,0.60105E+03_JPRB,0.88752E+03_JPRB,0.11740E+04_JPRB /)  
+KB(:, 5,24,14) = (/ &
+ & 0.10776E+04_JPRB,0.78685E+03_JPRB,0.59985E+03_JPRB,0.88574E+03_JPRB,0.11716E+04_JPRB /)  
+KB(:, 1,25,14) = (/ &
+ & 0.10559E+04_JPRB,0.78648E+03_JPRB,0.60348E+03_JPRB,0.89048E+03_JPRB,0.11779E+04_JPRB /)  
+KB(:, 2,25,14) = (/ &
+ & 0.10600E+04_JPRB,0.81980E+03_JPRB,0.60253E+03_JPRB,0.88951E+03_JPRB,0.11766E+04_JPRB /)  
+KB(:, 3,25,14) = (/ &
+ & 0.10484E+04_JPRB,0.79331E+03_JPRB,0.60149E+03_JPRB,0.88854E+03_JPRB,0.11754E+04_JPRB /)  
+KB(:, 4,25,14) = (/ &
+ & 0.11000E+04_JPRB,0.80548E+03_JPRB,0.60080E+03_JPRB,0.88717E+03_JPRB,0.11735E+04_JPRB /)  
+KB(:, 5,25,14) = (/ &
+ & 0.11165E+04_JPRB,0.79968E+03_JPRB,0.59952E+03_JPRB,0.88528E+03_JPRB,0.11711E+04_JPRB /)  
+KB(:, 1,26,14) = (/ &
+ & 0.10604E+04_JPRB,0.79570E+03_JPRB,0.60325E+03_JPRB,0.89026E+03_JPRB,0.11777E+04_JPRB /)  
+KB(:, 2,26,14) = (/ &
+ & 0.10870E+04_JPRB,0.78311E+03_JPRB,0.60230E+03_JPRB,0.88929E+03_JPRB,0.11764E+04_JPRB /)  
+KB(:, 3,26,14) = (/ &
+ & 0.10476E+04_JPRB,0.79338E+03_JPRB,0.60128E+03_JPRB,0.88826E+03_JPRB,0.11750E+04_JPRB /)  
+KB(:, 4,26,14) = (/ &
+ & 0.10459E+04_JPRB,0.80175E+03_JPRB,0.60027E+03_JPRB,0.88677E+03_JPRB,0.11730E+04_JPRB /)  
+KB(:, 5,26,14) = (/ &
+ & 0.10485E+04_JPRB,0.81112E+03_JPRB,0.59892E+03_JPRB,0.88476E+03_JPRB,0.11704E+04_JPRB /)  
+KB(:, 1,27,14) = (/ &
+ & 0.10458E+04_JPRB,0.79457E+03_JPRB,0.60301E+03_JPRB,0.89001E+03_JPRB,0.11773E+04_JPRB /)  
+KB(:, 2,27,14) = (/ &
+ & 0.10576E+04_JPRB,0.79170E+03_JPRB,0.60208E+03_JPRB,0.88906E+03_JPRB,0.11761E+04_JPRB /)  
+KB(:, 3,27,14) = (/ &
+ & 0.10632E+04_JPRB,0.79464E+03_JPRB,0.60130E+03_JPRB,0.88794E+03_JPRB,0.11741E+04_JPRB /)  
+KB(:, 4,27,14) = (/ &
+ & 0.10506E+04_JPRB,0.80916E+03_JPRB,0.60021E+03_JPRB,0.88633E+03_JPRB,0.11725E+04_JPRB /)  
+KB(:, 5,27,14) = (/ &
+ & 0.10406E+04_JPRB,0.79035E+03_JPRB,0.59878E+03_JPRB,0.88422E+03_JPRB,0.11697E+04_JPRB /)  
+KB(:, 1,28,14) = (/ &
+ & 0.10390E+04_JPRB,0.79142E+03_JPRB,0.60274E+03_JPRB,0.88940E+03_JPRB,0.11770E+04_JPRB /)  
+KB(:, 2,28,14) = (/ &
+ & 0.10793E+04_JPRB,0.84664E+03_JPRB,0.60165E+03_JPRB,0.88883E+03_JPRB,0.11758E+04_JPRB /)  
+KB(:, 3,28,14) = (/ &
+ & 0.10389E+04_JPRB,0.81244E+03_JPRB,0.60106E+03_JPRB,0.88760E+03_JPRB,0.11741E+04_JPRB /)  
+KB(:, 4,28,14) = (/ &
+ & 0.10910E+04_JPRB,0.82250E+03_JPRB,0.59988E+03_JPRB,0.88586E+03_JPRB,0.11718E+04_JPRB /)  
+KB(:, 5,28,14) = (/ &
+ & 0.10984E+04_JPRB,0.79766E+03_JPRB,0.59863E+03_JPRB,0.88510E+03_JPRB,0.11689E+04_JPRB /)  
+KB(:, 1,29,14) = (/ &
+ & 0.10453E+04_JPRB,0.79421E+03_JPRB,0.60249E+03_JPRB,0.88988E+03_JPRB,0.11767E+04_JPRB /)  
+KB(:, 2,29,14) = (/ &
+ & 0.10759E+04_JPRB,0.85231E+03_JPRB,0.59780E+03_JPRB,0.88856E+03_JPRB,0.11754E+04_JPRB /)  
+KB(:, 3,29,14) = (/ &
+ & 0.10355E+04_JPRB,0.83260E+03_JPRB,0.60079E+03_JPRB,0.88721E+03_JPRB,0.11736E+04_JPRB /)  
+KB(:, 4,29,14) = (/ &
+ & 0.10260E+04_JPRB,0.78313E+03_JPRB,0.59953E+03_JPRB,0.88535E+03_JPRB,0.11712E+04_JPRB /)  
+KB(:, 5,29,14) = (/ &
+ & 0.10495E+04_JPRB,0.79101E+03_JPRB,0.59751E+03_JPRB,0.88309E+03_JPRB,0.11682E+04_JPRB /)  
+KB(:, 1,30,14) = (/ &
+ & 0.10479E+04_JPRB,0.78753E+03_JPRB,0.60225E+03_JPRB,0.88928E+03_JPRB,0.11764E+04_JPRB /)  
+KB(:, 2,30,14) = (/ &
+ & 0.10451E+04_JPRB,0.80563E+03_JPRB,0.60150E+03_JPRB,0.88827E+03_JPRB,0.11750E+04_JPRB /)  
+KB(:, 3,30,14) = (/ &
+ & 0.10758E+04_JPRB,0.79525E+03_JPRB,0.60050E+03_JPRB,0.88643E+03_JPRB,0.11731E+04_JPRB /)  
+KB(:, 4,30,14) = (/ &
+ & 0.10781E+04_JPRB,0.79929E+03_JPRB,0.59916E+03_JPRB,0.88480E+03_JPRB,0.11705E+04_JPRB /)  
+KB(:, 5,30,14) = (/ &
+ & 0.10459E+04_JPRB,0.81358E+03_JPRB,0.59790E+03_JPRB,0.88220E+03_JPRB,0.11665E+04_JPRB /)  
+KB(:, 1,31,14) = (/ &
+ & 0.10607E+04_JPRB,0.80146E+03_JPRB,0.60204E+03_JPRB,0.88905E+03_JPRB,0.11761E+04_JPRB /)  
+KB(:, 2,31,14) = (/ &
+ & 0.10395E+04_JPRB,0.78822E+03_JPRB,0.60127E+03_JPRB,0.88793E+03_JPRB,0.11746E+04_JPRB /)  
+KB(:, 3,31,14) = (/ &
+ & 0.10321E+04_JPRB,0.80923E+03_JPRB,0.60018E+03_JPRB,0.88632E+03_JPRB,0.11725E+04_JPRB /)  
+KB(:, 4,31,14) = (/ &
+ & 0.11042E+04_JPRB,0.80049E+03_JPRB,0.59875E+03_JPRB,0.88457E+03_JPRB,0.11697E+04_JPRB /)  
+KB(:, 5,31,14) = (/ &
+ & 0.10581E+04_JPRB,0.80105E+03_JPRB,0.59750E+03_JPRB,0.88200E+03_JPRB,0.11672E+04_JPRB /)  
+KB(:, 1,32,14) = (/ &
+ & 0.10889E+04_JPRB,0.84488E+03_JPRB,0.59867E+03_JPRB,0.88880E+03_JPRB,0.11757E+04_JPRB /)  
+KB(:, 2,32,14) = (/ &
+ & 0.10428E+04_JPRB,0.79586E+03_JPRB,0.60101E+03_JPRB,0.88756E+03_JPRB,0.11741E+04_JPRB /)  
+KB(:, 3,32,14) = (/ &
+ & 0.10671E+04_JPRB,0.82487E+03_JPRB,0.59984E+03_JPRB,0.88582E+03_JPRB,0.11718E+04_JPRB /)  
+KB(:, 4,32,14) = (/ &
+ & 0.10426E+04_JPRB,0.83726E+03_JPRB,0.59809E+03_JPRB,0.88469E+03_JPRB,0.11694E+04_JPRB /)  
+KB(:, 5,32,14) = (/ &
+ & 0.10522E+04_JPRB,0.80937E+03_JPRB,0.59684E+03_JPRB,0.88175E+03_JPRB,0.11659E+04_JPRB /)  
+KB(:, 1,33,14) = (/ &
+ & 0.10391E+04_JPRB,0.79980E+03_JPRB,0.60166E+03_JPRB,0.88852E+03_JPRB,0.11754E+04_JPRB /)  
+KB(:, 2,33,14) = (/ &
+ & 0.10719E+04_JPRB,0.78917E+03_JPRB,0.60073E+03_JPRB,0.88751E+03_JPRB,0.11736E+04_JPRB /)  
+KB(:, 3,33,14) = (/ &
+ & 0.10389E+04_JPRB,0.82235E+03_JPRB,0.59947E+03_JPRB,0.88564E+03_JPRB,0.11706E+04_JPRB /)  
+KB(:, 4,33,14) = (/ &
+ & 0.10819E+04_JPRB,0.81877E+03_JPRB,0.59794E+03_JPRB,0.88337E+03_JPRB,0.11676E+04_JPRB /)  
+KB(:, 5,33,14) = (/ &
+ & 0.10266E+04_JPRB,0.78772E+03_JPRB,0.59642E+03_JPRB,0.88112E+03_JPRB,0.11651E+04_JPRB /)  
+KB(:, 1,34,14) = (/ &
+ & 0.10675E+04_JPRB,0.78932E+03_JPRB,0.60147E+03_JPRB,0.88789E+03_JPRB,0.11750E+04_JPRB /)  
+KB(:, 2,34,14) = (/ &
+ & 0.10375E+04_JPRB,0.79310E+03_JPRB,0.60047E+03_JPRB,0.88677E+03_JPRB,0.11731E+04_JPRB /)  
+KB(:, 3,34,14) = (/ &
+ & 0.10378E+04_JPRB,0.82372E+03_JPRB,0.59913E+03_JPRB,0.88478E+03_JPRB,0.11704E+04_JPRB /)  
+KB(:, 4,34,14) = (/ &
+ & 0.10677E+04_JPRB,0.78757E+03_JPRB,0.59836E+03_JPRB,0.88254E+03_JPRB,0.11660E+04_JPRB /)  
+KB(:, 5,34,14) = (/ &
+ & 0.10419E+04_JPRB,0.77666E+03_JPRB,0.59604E+03_JPRB,0.87984E+03_JPRB,0.11644E+04_JPRB /)  
+KB(:, 1,35,14) = (/ &
+ & 0.10613E+04_JPRB,0.80031E+03_JPRB,0.60136E+03_JPRB,0.88808E+03_JPRB,0.11748E+04_JPRB /)  
+KB(:, 2,35,14) = (/ &
+ & 0.11118E+04_JPRB,0.80250E+03_JPRB,0.60031E+03_JPRB,0.88654E+03_JPRB,0.11732E+04_JPRB /)  
+KB(:, 3,35,14) = (/ &
+ & 0.10759E+04_JPRB,0.83185E+03_JPRB,0.59892E+03_JPRB,0.88448E+03_JPRB,0.11701E+04_JPRB /)  
+KB(:, 4,35,14) = (/ &
+ & 0.11049E+04_JPRB,0.77622E+03_JPRB,0.59743E+03_JPRB,0.88477E+03_JPRB,0.11680E+04_JPRB /)  
+KB(:, 5,35,14) = (/ &
+ & 0.10459E+04_JPRB,0.78322E+03_JPRB,0.59581E+03_JPRB,0.87986E+03_JPRB,0.11634E+04_JPRB /)  
+KB(:, 1,36,14) = (/ &
+ & 0.10396E+04_JPRB,0.79026E+03_JPRB,0.60134E+03_JPRB,0.88805E+03_JPRB,0.11748E+04_JPRB /)  
+KB(:, 2,36,14) = (/ &
+ & 0.10471E+04_JPRB,0.80778E+03_JPRB,0.60028E+03_JPRB,0.88614E+03_JPRB,0.11727E+04_JPRB /)  
+KB(:, 3,36,14) = (/ &
+ & 0.10450E+04_JPRB,0.79912E+03_JPRB,0.59889E+03_JPRB,0.88407E+03_JPRB,0.11700E+04_JPRB /)  
+KB(:, 4,36,14) = (/ &
+ & 0.10626E+04_JPRB,0.80803E+03_JPRB,0.59740E+03_JPRB,0.88257E+03_JPRB,0.11756E+04_JPRB /)  
+KB(:, 5,36,14) = (/ &
+ & 0.10609E+04_JPRB,0.81056E+03_JPRB,0.59577E+03_JPRB,0.87981E+03_JPRB,0.11634E+04_JPRB /)  
+KB(:, 1,37,14) = (/ &
+ & 0.10479E+04_JPRB,0.79014E+03_JPRB,0.60145E+03_JPRB,0.88822E+03_JPRB,0.11750E+04_JPRB /)  
+KB(:, 2,37,14) = (/ &
+ & 0.10744E+04_JPRB,0.81437E+03_JPRB,0.60044E+03_JPRB,0.88637E+03_JPRB,0.11730E+04_JPRB /)  
+KB(:, 3,37,14) = (/ &
+ & 0.10335E+04_JPRB,0.79550E+03_JPRB,0.59909E+03_JPRB,0.88473E+03_JPRB,0.11704E+04_JPRB /)  
+KB(:, 4,37,14) = (/ &
+ & 0.10410E+04_JPRB,0.77504E+03_JPRB,0.59808E+03_JPRB,0.88321E+03_JPRB,0.11674E+04_JPRB /)  
+KB(:, 5,37,14) = (/ &
+ & 0.10557E+04_JPRB,0.79226E+03_JPRB,0.59599E+03_JPRB,0.88014E+03_JPRB,0.11643E+04_JPRB /)  
+KB(:, 1,38,14) = (/ &
+ & 0.10418E+04_JPRB,0.80249E+03_JPRB,0.60156E+03_JPRB,0.88838E+03_JPRB,0.11752E+04_JPRB /)  
+KB(:, 2,38,14) = (/ &
+ & 0.10220E+04_JPRB,0.82577E+03_JPRB,0.60060E+03_JPRB,0.88697E+03_JPRB,0.11733E+04_JPRB /)  
+KB(:, 3,38,14) = (/ &
+ & 0.10502E+04_JPRB,0.80915E+03_JPRB,0.59929E+03_JPRB,0.88503E+03_JPRB,0.11708E+04_JPRB /)  
+KB(:, 4,38,14) = (/ &
+ & 0.10497E+04_JPRB,0.81774E+03_JPRB,0.59826E+03_JPRB,0.88277E+03_JPRB,0.11673E+04_JPRB /)  
+KB(:, 5,38,14) = (/ &
+ & 0.10771E+04_JPRB,0.81134E+03_JPRB,0.59623E+03_JPRB,0.88049E+03_JPRB,0.11648E+04_JPRB /)  
+KB(:, 1,39,14) = (/ &
+ & 0.10165E+04_JPRB,0.77782E+03_JPRB,0.60118E+03_JPRB,0.88854E+03_JPRB,0.11754E+04_JPRB /)  
+KB(:, 2,39,14) = (/ &
+ & 0.10531E+04_JPRB,0.80302E+03_JPRB,0.60075E+03_JPRB,0.88719E+03_JPRB,0.11736E+04_JPRB /)  
+KB(:, 3,39,14) = (/ &
+ & 0.10758E+04_JPRB,0.78257E+03_JPRB,0.59949E+03_JPRB,0.88533E+03_JPRB,0.11712E+04_JPRB /)  
+KB(:, 4,39,14) = (/ &
+ & 0.10568E+04_JPRB,0.79852E+03_JPRB,0.59772E+03_JPRB,0.88307E+03_JPRB,0.11677E+04_JPRB /)  
+KB(:, 5,39,14) = (/ &
+ & 0.11120E+04_JPRB,0.79275E+03_JPRB,0.59645E+03_JPRB,0.88083E+03_JPRB,0.11652E+04_JPRB /)  
+KB(:, 1,40,14) = (/ &
+ & 0.10416E+04_JPRB,0.79660E+03_JPRB,0.59890E+03_JPRB,0.88879E+03_JPRB,0.11758E+04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART33',1,ZHOOK_HANDLE)
+END SUBROUTINE PART33
+
+
+SUBROUTINE PART34
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART34',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,40,14) = (/ &
+ & 0.10391E+04_JPRB,0.79051E+03_JPRB,0.60100E+03_JPRB,0.88756E+03_JPRB,0.11741E+04_JPRB /)  
+KB(:, 3,40,14) = (/ &
+ & 0.10420E+04_JPRB,0.78155E+03_JPRB,0.59983E+03_JPRB,0.88583E+03_JPRB,0.11718E+04_JPRB /)  
+KB(:, 4,40,14) = (/ &
+ & 0.10496E+04_JPRB,0.79527E+03_JPRB,0.59833E+03_JPRB,0.88434E+03_JPRB,0.11689E+04_JPRB /)  
+KB(:, 5,40,14) = (/ &
+ & 0.10264E+04_JPRB,0.78919E+03_JPRB,0.59684E+03_JPRB,0.88140E+03_JPRB,0.11660E+04_JPRB /)  
+KB(:, 1,41,14) = (/ &
+ & 0.10689E+04_JPRB,0.80516E+03_JPRB,0.60103E+03_JPRB,0.88904E+03_JPRB,0.11761E+04_JPRB /)  
+KB(:, 2,41,14) = (/ &
+ & 0.10416E+04_JPRB,0.82239E+03_JPRB,0.60124E+03_JPRB,0.88792E+03_JPRB,0.11746E+04_JPRB /)  
+KB(:, 3,41,14) = (/ &
+ & 0.10563E+04_JPRB,0.81535E+03_JPRB,0.60016E+03_JPRB,0.88632E+03_JPRB,0.11725E+04_JPRB /)  
+KB(:, 4,41,14) = (/ &
+ & 0.10676E+04_JPRB,0.82044E+03_JPRB,0.59873E+03_JPRB,0.88421E+03_JPRB,0.11697E+04_JPRB /)  
+KB(:, 5,41,14) = (/ &
+ & 0.10596E+04_JPRB,0.78372E+03_JPRB,0.59724E+03_JPRB,0.88164E+03_JPRB,0.11672E+04_JPRB /)  
+KB(:, 1,42,14) = (/ &
+ & 0.10655E+04_JPRB,0.80320E+03_JPRB,0.60196E+03_JPRB,0.88927E+03_JPRB,0.11764E+04_JPRB /)  
+KB(:, 2,42,14) = (/ &
+ & 0.10714E+04_JPRB,0.78435E+03_JPRB,0.60147E+03_JPRB,0.88825E+03_JPRB,0.11750E+04_JPRB /)  
+KB(:, 3,42,14) = (/ &
+ & 0.10516E+04_JPRB,0.79392E+03_JPRB,0.60071E+03_JPRB,0.88678E+03_JPRB,0.11731E+04_JPRB /)  
+KB(:, 4,42,14) = (/ &
+ & 0.10516E+04_JPRB,0.77763E+03_JPRB,0.59913E+03_JPRB,0.88479E+03_JPRB,0.11700E+04_JPRB /)  
+KB(:, 5,42,14) = (/ &
+ & 0.10486E+04_JPRB,0.79390E+03_JPRB,0.59811E+03_JPRB,0.88255E+03_JPRB,0.11641E+04_JPRB /)  
+KB(:, 1,43,14) = (/ &
+ & 0.10979E+04_JPRB,0.83796E+03_JPRB,0.60248E+03_JPRB,0.88955E+03_JPRB,0.11768E+04_JPRB /)  
+KB(:, 2,43,14) = (/ &
+ & 0.11147E+04_JPRB,0.76548E+03_JPRB,0.60171E+03_JPRB,0.88861E+03_JPRB,0.11750E+04_JPRB /)  
+KB(:, 3,43,14) = (/ &
+ & 0.10326E+04_JPRB,0.79357E+03_JPRB,0.60081E+03_JPRB,0.88729E+03_JPRB,0.11738E+04_JPRB /)  
+KB(:, 4,43,14) = (/ &
+ & 0.10439E+04_JPRB,0.86155E+03_JPRB,0.59958E+03_JPRB,0.88546E+03_JPRB,0.11709E+04_JPRB /)  
+KB(:, 5,43,14) = (/ &
+ & 0.10945E+04_JPRB,0.81749E+03_JPRB,0.59781E+03_JPRB,0.88321E+03_JPRB,0.11679E+04_JPRB /)  
+KB(:, 1,44,14) = (/ &
+ & 0.10684E+04_JPRB,0.83027E+03_JPRB,0.60306E+03_JPRB,0.88988E+03_JPRB,0.11772E+04_JPRB /)  
+KB(:, 2,44,14) = (/ &
+ & 0.10549E+04_JPRB,0.78589E+03_JPRB,0.60194E+03_JPRB,0.88895E+03_JPRB,0.11755E+04_JPRB /)  
+KB(:, 3,44,14) = (/ &
+ & 0.10654E+04_JPRB,0.79705E+03_JPRB,0.60140E+03_JPRB,0.88779E+03_JPRB,0.11744E+04_JPRB /)  
+KB(:, 4,44,14) = (/ &
+ & 0.10595E+04_JPRB,0.79130E+03_JPRB,0.59979E+03_JPRB,0.88614E+03_JPRB,0.11722E+04_JPRB /)  
+KB(:, 5,44,14) = (/ &
+ & 0.10477E+04_JPRB,0.80597E+03_JPRB,0.59858E+03_JPRB,0.88363E+03_JPRB,0.11704E+04_JPRB /)  
+KB(:, 1,45,14) = (/ &
+ & 0.10873E+04_JPRB,0.79417E+03_JPRB,0.60313E+03_JPRB,0.89023E+03_JPRB,0.11777E+04_JPRB /)  
+KB(:, 2,45,14) = (/ &
+ & 0.10616E+04_JPRB,0.78299E+03_JPRB,0.60195E+03_JPRB,0.88889E+03_JPRB,0.11764E+04_JPRB /)  
+KB(:, 3,45,14) = (/ &
+ & 0.10452E+04_JPRB,0.80979E+03_JPRB,0.60145E+03_JPRB,0.88823E+03_JPRB,0.11745E+04_JPRB /)  
+KB(:, 4,45,14) = (/ &
+ & 0.10957E+04_JPRB,0.80372E+03_JPRB,0.60045E+03_JPRB,0.88675E+03_JPRB,0.11726E+04_JPRB /)  
+KB(:, 5,45,14) = (/ &
+ & 0.10725E+04_JPRB,0.79223E+03_JPRB,0.59886E+03_JPRB,0.88476E+03_JPRB,0.11704E+04_JPRB /)  
+KB(:, 1,46,14) = (/ &
+ & 0.10477E+04_JPRB,0.79958E+03_JPRB,0.60344E+03_JPRB,0.89054E+03_JPRB,0.11781E+04_JPRB /)  
+KB(:, 2,46,14) = (/ &
+ & 0.10873E+04_JPRB,0.80021E+03_JPRB,0.60251E+03_JPRB,0.88958E+03_JPRB,0.11768E+04_JPRB /)  
+KB(:, 3,46,14) = (/ &
+ & 0.10228E+04_JPRB,0.78903E+03_JPRB,0.60173E+03_JPRB,0.88864E+03_JPRB,0.11751E+04_JPRB /)  
+KB(:, 4,46,14) = (/ &
+ & 0.10295E+04_JPRB,0.83052E+03_JPRB,0.60085E+03_JPRB,0.88734E+03_JPRB,0.11738E+04_JPRB /)  
+KB(:, 5,46,14) = (/ &
+ & 0.10527E+04_JPRB,0.80434E+03_JPRB,0.59963E+03_JPRB,0.88553E+03_JPRB,0.11714E+04_JPRB /)  
+KB(:, 1,47,14) = (/ &
+ & 0.10317E+04_JPRB,0.78934E+03_JPRB,0.60373E+03_JPRB,0.89119E+03_JPRB,0.11785E+04_JPRB /)  
+KB(:, 2,47,14) = (/ &
+ & 0.10325E+04_JPRB,0.79125E+03_JPRB,0.60291E+03_JPRB,0.88999E+03_JPRB,0.11778E+04_JPRB /)  
+KB(:, 3,47,14) = (/ &
+ & 0.10417E+04_JPRB,0.79891E+03_JPRB,0.60152E+03_JPRB,0.88904E+03_JPRB,0.11761E+04_JPRB /)  
+KB(:, 4,47,14) = (/ &
+ & 0.10561E+04_JPRB,0.78901E+03_JPRB,0.60124E+03_JPRB,0.88793E+03_JPRB,0.11746E+04_JPRB /)  
+KB(:, 5,47,14) = (/ &
+ & 0.10468E+04_JPRB,0.79347E+03_JPRB,0.59991E+03_JPRB,0.88632E+03_JPRB,0.11725E+04_JPRB /)  
+KB(:, 1,48,14) = (/ &
+ & 0.10540E+04_JPRB,0.78901E+03_JPRB,0.60401E+03_JPRB,0.89113E+03_JPRB,0.11789E+04_JPRB /)  
+KB(:, 2,48,14) = (/ &
+ & 0.10320E+04_JPRB,0.80975E+03_JPRB,0.60327E+03_JPRB,0.89037E+03_JPRB,0.11779E+04_JPRB /)  
+KB(:, 3,48,14) = (/ &
+ & 0.10535E+04_JPRB,0.79283E+03_JPRB,0.60233E+03_JPRB,0.88940E+03_JPRB,0.11766E+04_JPRB /)  
+KB(:, 4,48,14) = (/ &
+ & 0.10485E+04_JPRB,0.81102E+03_JPRB,0.60158E+03_JPRB,0.88807E+03_JPRB,0.11753E+04_JPRB /)  
+KB(:, 5,48,14) = (/ &
+ & 0.10337E+04_JPRB,0.82793E+03_JPRB,0.60064E+03_JPRB,0.88703E+03_JPRB,0.11734E+04_JPRB /)  
+KB(:, 1,49,14) = (/ &
+ & 0.10304E+04_JPRB,0.83177E+03_JPRB,0.60454E+03_JPRB,0.89164E+03_JPRB,0.11796E+04_JPRB /)  
+KB(:, 2,49,14) = (/ &
+ & 0.10417E+04_JPRB,0.78580E+03_JPRB,0.60359E+03_JPRB,0.89069E+03_JPRB,0.11783E+04_JPRB /)  
+KB(:, 3,49,14) = (/ &
+ & 0.10725E+04_JPRB,0.82186E+03_JPRB,0.60271E+03_JPRB,0.88942E+03_JPRB,0.11771E+04_JPRB /)  
+KB(:, 4,49,14) = (/ &
+ & 0.10362E+04_JPRB,0.80207E+03_JPRB,0.60065E+03_JPRB,0.88885E+03_JPRB,0.11758E+04_JPRB /)  
+KB(:, 5,49,14) = (/ &
+ & 0.10383E+04_JPRB,0.79856E+03_JPRB,0.60081E+03_JPRB,0.88765E+03_JPRB,0.11743E+04_JPRB /)  
+KB(:, 1,50,14) = (/ &
+ & 0.10581E+04_JPRB,0.78356E+03_JPRB,0.60457E+03_JPRB,0.89226E+03_JPRB,0.11805E+04_JPRB /)  
+KB(:, 2,50,14) = (/ &
+ & 0.10447E+04_JPRB,0.80207E+03_JPRB,0.60385E+03_JPRB,0.89058E+03_JPRB,0.11786E+04_JPRB /)  
+KB(:, 3,50,14) = (/ &
+ & 0.10788E+04_JPRB,0.82154E+03_JPRB,0.60308E+03_JPRB,0.89017E+03_JPRB,0.11776E+04_JPRB /)  
+KB(:, 4,50,14) = (/ &
+ & 0.10695E+04_JPRB,0.79696E+03_JPRB,0.60214E+03_JPRB,0.88920E+03_JPRB,0.11763E+04_JPRB /)  
+KB(:, 5,50,14) = (/ &
+ & 0.10859E+04_JPRB,0.79983E+03_JPRB,0.60140E+03_JPRB,0.88816E+03_JPRB,0.11749E+04_JPRB /)  
+KB(:, 1,51,14) = (/ &
+ & 0.10459E+04_JPRB,0.79632E+03_JPRB,0.60498E+03_JPRB,0.89284E+03_JPRB,0.11812E+04_JPRB /)  
+KB(:, 2,51,14) = (/ &
+ & 0.10371E+04_JPRB,0.78419E+03_JPRB,0.60411E+03_JPRB,0.89166E+03_JPRB,0.11796E+04_JPRB /)  
+KB(:, 3,51,14) = (/ &
+ & 0.10657E+04_JPRB,0.82185E+03_JPRB,0.60315E+03_JPRB,0.89049E+03_JPRB,0.11780E+04_JPRB /)  
+KB(:, 4,51,14) = (/ &
+ & 0.10396E+04_JPRB,0.78418E+03_JPRB,0.60197E+03_JPRB,0.88917E+03_JPRB,0.11768E+04_JPRB /)  
+KB(:, 5,51,14) = (/ &
+ & 0.10354E+04_JPRB,0.78290E+03_JPRB,0.60169E+03_JPRB,0.88859E+03_JPRB,0.11755E+04_JPRB /)  
+KB(:, 1,52,14) = (/ &
+ & 0.10434E+04_JPRB,0.78546E+03_JPRB,0.60574E+03_JPRB,0.89370E+03_JPRB,0.11824E+04_JPRB /)  
+KB(:, 2,52,14) = (/ &
+ & 0.10665E+04_JPRB,0.78610E+03_JPRB,0.60413E+03_JPRB,0.89180E+03_JPRB,0.11798E+04_JPRB /)  
+KB(:, 3,52,14) = (/ &
+ & 0.10821E+04_JPRB,0.78641E+03_JPRB,0.60367E+03_JPRB,0.89113E+03_JPRB,0.11784E+04_JPRB /)  
+KB(:, 4,52,14) = (/ &
+ & 0.10514E+04_JPRB,0.79279E+03_JPRB,0.60282E+03_JPRB,0.88989E+03_JPRB,0.11772E+04_JPRB /)  
+KB(:, 5,52,14) = (/ &
+ & 0.10408E+04_JPRB,0.77939E+03_JPRB,0.60170E+03_JPRB,0.88895E+03_JPRB,0.11760E+04_JPRB /)  
+KB(:, 1,53,14) = (/ &
+ & 0.10497E+04_JPRB,0.80875E+03_JPRB,0.60601E+03_JPRB,0.89382E+03_JPRB,0.11825E+04_JPRB /)  
+KB(:, 2,53,14) = (/ &
+ & 0.10514E+04_JPRB,0.81226E+03_JPRB,0.60441E+03_JPRB,0.89243E+03_JPRB,0.11807E+04_JPRB /)  
+KB(:, 3,53,14) = (/ &
+ & 0.11137E+04_JPRB,0.80237E+03_JPRB,0.60392E+03_JPRB,0.89101E+03_JPRB,0.11787E+04_JPRB /)  
+KB(:, 4,53,14) = (/ &
+ & 0.10661E+04_JPRB,0.79885E+03_JPRB,0.60292E+03_JPRB,0.89026E+03_JPRB,0.11777E+04_JPRB /)  
+KB(:, 5,53,14) = (/ &
+ & 0.10324E+04_JPRB,0.82343E+03_JPRB,0.60222E+03_JPRB,0.88929E+03_JPRB,0.11764E+04_JPRB /)  
+KB(:, 1,54,14) = (/ &
+ & 0.10594E+04_JPRB,0.86492E+03_JPRB,0.60646E+03_JPRB,0.89428E+03_JPRB,0.11831E+04_JPRB /)  
+KB(:, 2,54,14) = (/ &
+ & 0.10303E+04_JPRB,0.85949E+03_JPRB,0.60506E+03_JPRB,0.89294E+03_JPRB,0.11813E+04_JPRB /)  
+KB(:, 3,54,14) = (/ &
+ & 0.10905E+04_JPRB,0.84800E+03_JPRB,0.60416E+03_JPRB,0.89138E+03_JPRB,0.11793E+04_JPRB /)  
+KB(:, 4,54,14) = (/ &
+ & 0.10438E+04_JPRB,0.78736E+03_JPRB,0.60344E+03_JPRB,0.89055E+03_JPRB,0.11781E+04_JPRB /)  
+KB(:, 5,54,14) = (/ &
+ & 0.10324E+04_JPRB,0.83619E+03_JPRB,0.60252E+03_JPRB,0.88959E+03_JPRB,0.11768E+04_JPRB /)  
+KB(:, 1,55,14) = (/ &
+ & 0.10463E+04_JPRB,0.78385E+03_JPRB,0.60663E+03_JPRB,0.89475E+03_JPRB,0.11838E+04_JPRB /)  
+KB(:, 2,55,14) = (/ &
+ & 0.10543E+04_JPRB,0.79119E+03_JPRB,0.60552E+03_JPRB,0.89337E+03_JPRB,0.11824E+04_JPRB /)  
+KB(:, 3,55,14) = (/ &
+ & 0.10391E+04_JPRB,0.80395E+03_JPRB,0.60439E+03_JPRB,0.89183E+03_JPRB,0.11799E+04_JPRB /)  
+KB(:, 4,55,14) = (/ &
+ & 0.10421E+04_JPRB,0.79916E+03_JPRB,0.60368E+03_JPRB,0.89078E+03_JPRB,0.11784E+04_JPRB /)  
+KB(:, 5,55,14) = (/ &
+ & 0.10909E+04_JPRB,0.78448E+03_JPRB,0.60284E+03_JPRB,0.88955E+03_JPRB,0.11777E+04_JPRB /)  
+KB(:, 1,56,14) = (/ &
+ & 0.10143E+04_JPRB,0.81481E+03_JPRB,0.60727E+03_JPRB,0.89531E+03_JPRB,0.11848E+04_JPRB /)  
+KB(:, 2,56,14) = (/ &
+ & 0.10240E+04_JPRB,0.81034E+03_JPRB,0.60598E+03_JPRB,0.89378E+03_JPRB,0.11825E+04_JPRB /)  
+KB(:, 3,56,14) = (/ &
+ & 0.10324E+04_JPRB,0.78927E+03_JPRB,0.60463E+03_JPRB,0.89238E+03_JPRB,0.11806E+04_JPRB /)  
+KB(:, 4,56,14) = (/ &
+ & 0.10273E+04_JPRB,0.78959E+03_JPRB,0.60390E+03_JPRB,0.89099E+03_JPRB,0.11787E+04_JPRB /)  
+KB(:, 5,56,14) = (/ &
+ & 0.10404E+04_JPRB,0.80937E+03_JPRB,0.60290E+03_JPRB,0.89024E+03_JPRB,0.11777E+04_JPRB /)  
+KB(:, 1,57,14) = (/ &
+ & 0.10408E+04_JPRB,0.79150E+03_JPRB,0.60742E+03_JPRB,0.89593E+03_JPRB,0.11860E+04_JPRB /)  
+KB(:, 2,57,14) = (/ &
+ & 0.10640E+04_JPRB,0.82150E+03_JPRB,0.60641E+03_JPRB,0.89422E+03_JPRB,0.11831E+04_JPRB /)  
+KB(:, 3,57,14) = (/ &
+ & 0.10551E+04_JPRB,0.79661E+03_JPRB,0.60501E+03_JPRB,0.89288E+03_JPRB,0.11813E+04_JPRB /)  
+KB(:, 4,57,14) = (/ &
+ & 0.10817E+04_JPRB,0.79118E+03_JPRB,0.60413E+03_JPRB,0.89133E+03_JPRB,0.11792E+04_JPRB /)  
+KB(:, 5,57,14) = (/ &
+ & 0.10370E+04_JPRB,0.79629E+03_JPRB,0.60341E+03_JPRB,0.89015E+03_JPRB,0.11781E+04_JPRB /)  
+KB(:, 1,58,14) = (/ &
+ & 0.10442E+04_JPRB,0.84033E+03_JPRB,0.60809E+03_JPRB,0.89672E+03_JPRB,0.11869E+04_JPRB /)  
+KB(:, 2,58,14) = (/ &
+ & 0.10934E+04_JPRB,0.79820E+03_JPRB,0.60680E+03_JPRB,0.89466E+03_JPRB,0.11837E+04_JPRB /)  
+KB(:, 3,58,14) = (/ &
+ & 0.10657E+04_JPRB,0.80043E+03_JPRB,0.60544E+03_JPRB,0.89329E+03_JPRB,0.11818E+04_JPRB /)  
+KB(:, 4,58,14) = (/ &
+ & 0.10223E+04_JPRB,0.78480E+03_JPRB,0.60435E+03_JPRB,0.89175E+03_JPRB,0.11798E+04_JPRB /)  
+KB(:, 5,58,14) = (/ &
+ & 0.10438E+04_JPRB,0.81735E+03_JPRB,0.60364E+03_JPRB,0.89074E+03_JPRB,0.11789E+04_JPRB /)  
+KB(:, 1,59,14) = (/ &
+ & 0.10513E+04_JPRB,0.80331E+03_JPRB,0.60826E+03_JPRB,0.89709E+03_JPRB,0.11883E+04_JPRB /)  
+KB(:, 2,59,14) = (/ &
+ & 0.10429E+04_JPRB,0.81799E+03_JPRB,0.60696E+03_JPRB,0.89486E+03_JPRB,0.11840E+04_JPRB /)  
+KB(:, 3,59,14) = (/ &
+ & 0.10400E+04_JPRB,0.80905E+03_JPRB,0.60537E+03_JPRB,0.89345E+03_JPRB,0.11830E+04_JPRB /)  
+KB(:, 4,59,14) = (/ &
+ & 0.10488E+04_JPRB,0.79628E+03_JPRB,0.60443E+03_JPRB,0.89194E+03_JPRB,0.11800E+04_JPRB /)  
+KB(:, 5,59,14) = (/ &
+ & 0.10795E+04_JPRB,0.78415E+03_JPRB,0.60372E+03_JPRB,0.89082E+03_JPRB,0.11785E+04_JPRB /)  
+KB(:, 1,13,15) = (/ &
+ & 0.98934E+03_JPRB,0.75572E+03_JPRB,0.60810E+03_JPRB,0.89364E+03_JPRB,0.11812E+04_JPRB /)  
+KB(:, 2,13,15) = (/ &
+ & 0.12809E+04_JPRB,0.72091E+03_JPRB,0.60670E+03_JPRB,0.89251E+03_JPRB,0.11797E+04_JPRB /)  
+KB(:, 3,13,15) = (/ &
+ & 0.11704E+04_JPRB,0.77844E+03_JPRB,0.60529E+03_JPRB,0.89171E+03_JPRB,0.11787E+04_JPRB /)  
+KB(:, 4,13,15) = (/ &
+ & 0.11159E+04_JPRB,0.83495E+03_JPRB,0.60430E+03_JPRB,0.89110E+03_JPRB,0.11779E+04_JPRB /)  
+KB(:, 5,13,15) = (/ &
+ & 0.11939E+04_JPRB,0.93553E+03_JPRB,0.60355E+03_JPRB,0.89003E+03_JPRB,0.11765E+04_JPRB /)  
+KB(:, 1,14,15) = (/ &
+ & 0.11963E+04_JPRB,0.95315E+03_JPRB,0.60753E+03_JPRB,0.89338E+03_JPRB,0.11810E+04_JPRB /)  
+KB(:, 2,14,15) = (/ &
+ & 0.11729E+04_JPRB,0.92141E+03_JPRB,0.60616E+03_JPRB,0.89229E+03_JPRB,0.11796E+04_JPRB /)  
+KB(:, 3,14,15) = (/ &
+ & 0.11471E+04_JPRB,0.85602E+03_JPRB,0.60478E+03_JPRB,0.89154E+03_JPRB,0.11786E+04_JPRB /)  
+KB(:, 4,14,15) = (/ &
+ & 0.11824E+04_JPRB,0.88196E+03_JPRB,0.60401E+03_JPRB,0.89091E+03_JPRB,0.11778E+04_JPRB /)  
+KB(:, 5,14,15) = (/ &
+ & 0.11271E+04_JPRB,0.87462E+03_JPRB,0.60324E+03_JPRB,0.89075E+03_JPRB,0.11763E+04_JPRB /)  
+KB(:, 1,15,15) = (/ &
+ & 0.10604E+04_JPRB,0.90519E+03_JPRB,0.60703E+03_JPRB,0.89409E+03_JPRB,0.11809E+04_JPRB /)  
+KB(:, 2,15,15) = (/ &
+ & 0.11577E+04_JPRB,0.75557E+03_JPRB,0.60568E+03_JPRB,0.89209E+03_JPRB,0.11795E+04_JPRB /)  
+KB(:, 3,15,15) = (/ &
+ & 0.11406E+04_JPRB,0.81803E+03_JPRB,0.60438E+03_JPRB,0.89138E+03_JPRB,0.11785E+04_JPRB /)  
+KB(:, 4,15,15) = (/ &
+ & 0.11847E+04_JPRB,0.71960E+03_JPRB,0.60376E+03_JPRB,0.89073E+03_JPRB,0.11790E+04_JPRB /)  
+KB(:, 5,15,15) = (/ &
+ & 0.11179E+04_JPRB,0.81112E+03_JPRB,0.60296E+03_JPRB,0.88859E+03_JPRB,0.11787E+04_JPRB /)  
+KB(:, 1,16,15) = (/ &
+ & 0.10356E+04_JPRB,0.71983E+03_JPRB,0.60659E+03_JPRB,0.89194E+03_JPRB,0.11820E+04_JPRB /)  
+KB(:, 2,16,15) = (/ &
+ & 0.11364E+04_JPRB,0.76870E+03_JPRB,0.60526E+03_JPRB,0.89190E+03_JPRB,0.11794E+04_JPRB /)  
+KB(:, 3,16,15) = (/ &
+ & 0.96034E+03_JPRB,0.83277E+03_JPRB,0.60407E+03_JPRB,0.89124E+03_JPRB,0.11785E+04_JPRB /)  
+KB(:, 4,16,15) = (/ &
+ & 0.10077E+04_JPRB,0.87988E+03_JPRB,0.60354E+03_JPRB,0.89055E+03_JPRB,0.11776E+04_JPRB /)  
+KB(:, 5,16,15) = (/ &
+ & 0.10422E+04_JPRB,0.83397E+03_JPRB,0.60335E+03_JPRB,0.88931E+03_JPRB,0.11759E+04_JPRB /)  
+KB(:, 1,17,15) = (/ &
+ & 0.10091E+04_JPRB,0.77782E+03_JPRB,0.60621E+03_JPRB,0.89269E+03_JPRB,0.11805E+04_JPRB /)  
+KB(:, 2,17,15) = (/ &
+ & 0.11716E+04_JPRB,0.80971E+03_JPRB,0.60425E+03_JPRB,0.89175E+03_JPRB,0.11793E+04_JPRB /)  
+KB(:, 3,17,15) = (/ &
+ & 0.10550E+04_JPRB,0.78786E+03_JPRB,0.60385E+03_JPRB,0.89112E+03_JPRB,0.11784E+04_JPRB /)  
+KB(:, 4,17,15) = (/ &
+ & 0.99990E+03_JPRB,0.88096E+03_JPRB,0.60335E+03_JPRB,0.89039E+03_JPRB,0.11774E+04_JPRB /)  
+KB(:, 5,17,15) = (/ &
+ & 0.11263E+04_JPRB,0.73127E+03_JPRB,0.60311E+03_JPRB,0.88908E+03_JPRB,0.11770E+04_JPRB /)  
+KB(:, 1,18,15) = (/ &
+ & 0.11151E+04_JPRB,0.85991E+03_JPRB,0.60588E+03_JPRB,0.89155E+03_JPRB,0.11804E+04_JPRB /)  
+KB(:, 2,18,15) = (/ &
+ & 0.10413E+04_JPRB,0.70815E+03_JPRB,0.60458E+03_JPRB,0.89161E+03_JPRB,0.11791E+04_JPRB /)  
+KB(:, 3,18,15) = (/ &
+ & 0.11058E+04_JPRB,0.82037E+03_JPRB,0.60370E+03_JPRB,0.89101E+03_JPRB,0.11783E+04_JPRB /)  
+KB(:, 4,18,15) = (/ &
+ & 0.10134E+04_JPRB,0.64109E+03_JPRB,0.60383E+03_JPRB,0.89024E+03_JPRB,0.11786E+04_JPRB /)  
+KB(:, 5,18,15) = (/ &
+ & 0.11497E+04_JPRB,0.88170E+03_JPRB,0.60224E+03_JPRB,0.88981E+03_JPRB,0.11767E+04_JPRB /)  
+KB(:, 1,19,15) = (/ &
+ & 0.10261E+04_JPRB,0.82130E+03_JPRB,0.60625E+03_JPRB,0.89236E+03_JPRB,0.11802E+04_JPRB /)  
+KB(:, 2,19,15) = (/ &
+ & 0.10077E+04_JPRB,0.78017E+03_JPRB,0.60431E+03_JPRB,0.89148E+03_JPRB,0.11778E+04_JPRB /)  
+KB(:, 3,19,15) = (/ &
+ & 0.10505E+04_JPRB,0.75163E+03_JPRB,0.60422E+03_JPRB,0.88995E+03_JPRB,0.11782E+04_JPRB /)  
+KB(:, 4,19,15) = (/ &
+ & 0.10498E+04_JPRB,0.84163E+03_JPRB,0.60302E+03_JPRB,0.89009E+03_JPRB,0.11772E+04_JPRB /)  
+KB(:, 5,19,15) = (/ &
+ & 0.94853E+03_JPRB,0.71012E+03_JPRB,0.60269E+03_JPRB,0.88958E+03_JPRB,0.11765E+04_JPRB /)  
+KB(:, 1,20,15) = (/ &
+ & 0.11198E+04_JPRB,0.83291E+03_JPRB,0.60532E+03_JPRB,0.89221E+03_JPRB,0.11814E+04_JPRB /)  
+KB(:, 2,20,15) = (/ &
+ & 0.10146E+04_JPRB,0.70988E+03_JPRB,0.60473E+03_JPRB,0.89136E+03_JPRB,0.11789E+04_JPRB /)  
+KB(:, 3,20,15) = (/ &
+ & 0.98440E+03_JPRB,0.83872E+03_JPRB,0.60345E+03_JPRB,0.89080E+03_JPRB,0.11781E+04_JPRB /)  
+KB(:, 4,20,15) = (/ &
+ & 0.10595E+04_JPRB,0.75621E+03_JPRB,0.60286E+03_JPRB,0.88992E+03_JPRB,0.11770E+04_JPRB /)  
+KB(:, 5,20,15) = (/ &
+ & 0.10274E+04_JPRB,0.81836E+03_JPRB,0.60247E+03_JPRB,0.88836E+03_JPRB,0.11749E+04_JPRB /)  
+KB(:, 1,21,15) = (/ &
+ & 0.10788E+04_JPRB,0.78645E+03_JPRB,0.60506E+03_JPRB,0.89207E+03_JPRB,0.11799E+04_JPRB /)  
+KB(:, 2,21,15) = (/ &
+ & 0.10852E+04_JPRB,0.74295E+03_JPRB,0.60386E+03_JPRB,0.89125E+03_JPRB,0.11788E+04_JPRB /)  
+KB(:, 3,21,15) = (/ &
+ & 0.10428E+04_JPRB,0.82396E+03_JPRB,0.60333E+03_JPRB,0.88973E+03_JPRB,0.11780E+04_JPRB /)  
+KB(:, 4,21,15) = (/ &
+ & 0.10018E+04_JPRB,0.87387E+03_JPRB,0.60336E+03_JPRB,0.89071E+03_JPRB,0.11768E+04_JPRB /)  
+KB(:, 5,21,15) = (/ &
+ & 0.11155E+04_JPRB,0.79293E+03_JPRB,0.60225E+03_JPRB,0.88809E+03_JPRB,0.11746E+04_JPRB /)  
+KB(:, 1,22,15) = (/ &
+ & 0.10301E+04_JPRB,0.79445E+03_JPRB,0.60539E+03_JPRB,0.89186E+03_JPRB,0.11797E+04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART34',1,ZHOOK_HANDLE)
+END SUBROUTINE PART34
+
+
+SUBROUTINE PART35
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART35',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,22,15) = (/ &
+ & 0.11174E+04_JPRB,0.68851E+03_JPRB,0.60364E+03_JPRB,0.88919E+03_JPRB,0.11787E+04_JPRB /)  
+KB(:, 3,22,15) = (/ &
+ & 0.10845E+04_JPRB,0.72821E+03_JPRB,0.60320E+03_JPRB,0.89053E+03_JPRB,0.11779E+04_JPRB /)  
+KB(:, 4,22,15) = (/ &
+ & 0.94182E+03_JPRB,0.74129E+03_JPRB,0.60185E+03_JPRB,0.88948E+03_JPRB,0.11777E+04_JPRB /)  
+KB(:, 5,22,15) = (/ &
+ & 0.11256E+04_JPRB,0.74069E+03_JPRB,0.60323E+03_JPRB,0.88766E+03_JPRB,0.11740E+04_JPRB /)  
+KB(:, 1,23,15) = (/ &
+ & 0.11218E+04_JPRB,0.85968E+03_JPRB,0.60443E+03_JPRB,0.89167E+03_JPRB,0.11795E+04_JPRB /)  
+KB(:, 2,23,15) = (/ &
+ & 0.10449E+04_JPRB,0.80739E+03_JPRB,0.60218E+03_JPRB,0.89100E+03_JPRB,0.11785E+04_JPRB /)  
+KB(:, 3,23,15) = (/ &
+ & 0.11277E+04_JPRB,0.69098E+03_JPRB,0.60306E+03_JPRB,0.89036E+03_JPRB,0.11777E+04_JPRB /)  
+KB(:, 4,23,15) = (/ &
+ & 0.10580E+04_JPRB,0.81384E+03_JPRB,0.60228E+03_JPRB,0.88919E+03_JPRB,0.11761E+04_JPRB /)  
+KB(:, 5,23,15) = (/ &
+ & 0.10279E+04_JPRB,0.82530E+03_JPRB,0.60094E+03_JPRB,0.88718E+03_JPRB,0.11734E+04_JPRB /)  
+KB(:, 1,24,15) = (/ &
+ & 0.10227E+04_JPRB,0.68179E+03_JPRB,0.60412E+03_JPRB,0.89149E+03_JPRB,0.11792E+04_JPRB /)  
+KB(:, 2,24,15) = (/ &
+ & 0.11518E+04_JPRB,0.80624E+03_JPRB,0.60338E+03_JPRB,0.89088E+03_JPRB,0.11784E+04_JPRB /)  
+KB(:, 3,24,15) = (/ &
+ & 0.10788E+04_JPRB,0.70820E+03_JPRB,0.60290E+03_JPRB,0.89016E+03_JPRB,0.11787E+04_JPRB /)  
+KB(:, 4,24,15) = (/ &
+ & 0.10466E+04_JPRB,0.82233E+03_JPRB,0.60268E+03_JPRB,0.88884E+03_JPRB,0.11757E+04_JPRB /)  
+KB(:, 5,24,15) = (/ &
+ & 0.10066E+04_JPRB,0.82618E+03_JPRB,0.60057E+03_JPRB,0.88665E+03_JPRB,0.11740E+04_JPRB /)  
+KB(:, 1,25,15) = (/ &
+ & 0.10780E+04_JPRB,0.80937E+03_JPRB,0.60386E+03_JPRB,0.89131E+03_JPRB,0.11790E+04_JPRB /)  
+KB(:, 2,25,15) = (/ &
+ & 0.10199E+04_JPRB,0.81059E+03_JPRB,0.60327E+03_JPRB,0.89075E+03_JPRB,0.11782E+04_JPRB /)  
+KB(:, 3,25,15) = (/ &
+ & 0.11207E+04_JPRB,0.80162E+03_JPRB,0.60338E+03_JPRB,0.88992E+03_JPRB,0.11771E+04_JPRB /)  
+KB(:, 4,25,15) = (/ &
+ & 0.97495E+03_JPRB,0.78589E+03_JPRB,0.60305E+03_JPRB,0.88845E+03_JPRB,0.11751E+04_JPRB /)  
+KB(:, 5,25,15) = (/ &
+ & 0.95428E+03_JPRB,0.80945E+03_JPRB,0.60015E+03_JPRB,0.88605E+03_JPRB,0.11720E+04_JPRB /)  
+KB(:, 1,26,15) = (/ &
+ & 0.10862E+04_JPRB,0.78235E+03_JPRB,0.60361E+03_JPRB,0.89115E+03_JPRB,0.11801E+04_JPRB /)  
+KB(:, 2,26,15) = (/ &
+ & 0.91581E+03_JPRB,0.82546E+03_JPRB,0.60381E+03_JPRB,0.89059E+03_JPRB,0.11780E+04_JPRB /)  
+KB(:, 3,26,15) = (/ &
+ & 0.10920E+04_JPRB,0.84813E+03_JPRB,0.60253E+03_JPRB,0.88964E+03_JPRB,0.11767E+04_JPRB /)  
+KB(:, 4,26,15) = (/ &
+ & 0.11174E+04_JPRB,0.83078E+03_JPRB,0.60207E+03_JPRB,0.88892E+03_JPRB,0.11745E+04_JPRB /)  
+KB(:, 5,26,15) = (/ &
+ & 0.11159E+04_JPRB,0.75128E+03_JPRB,0.59967E+03_JPRB,0.88536E+03_JPRB,0.11723E+04_JPRB /)  
+KB(:, 1,27,15) = (/ &
+ & 0.10835E+04_JPRB,0.80424E+03_JPRB,0.60343E+03_JPRB,0.89101E+03_JPRB,0.11786E+04_JPRB /)  
+KB(:, 2,27,15) = (/ &
+ & 0.10910E+04_JPRB,0.86525E+03_JPRB,0.60302E+03_JPRB,0.89041E+03_JPRB,0.11778E+04_JPRB /)  
+KB(:, 3,27,15) = (/ &
+ & 0.10210E+04_JPRB,0.77642E+03_JPRB,0.60231E+03_JPRB,0.89027E+03_JPRB,0.11763E+04_JPRB /)  
+KB(:, 4,27,15) = (/ &
+ & 0.10645E+04_JPRB,0.80598E+03_JPRB,0.60105E+03_JPRB,0.88742E+03_JPRB,0.11751E+04_JPRB /)  
+KB(:, 5,27,15) = (/ &
+ & 0.10451E+04_JPRB,0.82023E+03_JPRB,0.59981E+03_JPRB,0.88559E+03_JPRB,0.11701E+04_JPRB /)  
+KB(:, 1,28,15) = (/ &
+ & 0.10856E+04_JPRB,0.83991E+03_JPRB,0.60332E+03_JPRB,0.89088E+03_JPRB,0.11784E+04_JPRB /)  
+KB(:, 2,28,15) = (/ &
+ & 0.93268E+03_JPRB,0.70779E+03_JPRB,0.60288E+03_JPRB,0.89019E+03_JPRB,0.11788E+04_JPRB /)  
+KB(:, 3,28,15) = (/ &
+ & 0.11243E+04_JPRB,0.76544E+03_JPRB,0.60205E+03_JPRB,0.88894E+03_JPRB,0.11758E+04_JPRB /)  
+KB(:, 4,28,15) = (/ &
+ & 0.10096E+04_JPRB,0.72189E+03_JPRB,0.60064E+03_JPRB,0.88682E+03_JPRB,0.11730E+04_JPRB /)  
+KB(:, 5,28,15) = (/ &
+ & 0.88490E+03_JPRB,0.83821E+03_JPRB,0.59801E+03_JPRB,0.88198E+03_JPRB,0.11692E+04_JPRB /)  
+KB(:, 1,29,15) = (/ &
+ & 0.10218E+04_JPRB,0.78897E+03_JPRB,0.60322E+03_JPRB,0.88978E+03_JPRB,0.11783E+04_JPRB /)  
+KB(:, 2,29,15) = (/ &
+ & 0.97223E+03_JPRB,0.70803E+03_JPRB,0.60270E+03_JPRB,0.88994E+03_JPRB,0.11772E+04_JPRB /)  
+KB(:, 3,29,15) = (/ &
+ & 0.10729E+04_JPRB,0.71638E+03_JPRB,0.60175E+03_JPRB,0.88850E+03_JPRB,0.11752E+04_JPRB /)  
+KB(:, 4,29,15) = (/ &
+ & 0.10369E+04_JPRB,0.79357E+03_JPRB,0.60017E+03_JPRB,0.88614E+03_JPRB,0.11734E+04_JPRB /)  
+KB(:, 5,29,15) = (/ &
+ & 0.10748E+04_JPRB,0.83591E+03_JPRB,0.59814E+03_JPRB,0.88321E+03_JPRB,0.11671E+04_JPRB /)  
+KB(:, 1,30,15) = (/ &
+ & 0.10681E+04_JPRB,0.78838E+03_JPRB,0.60311E+03_JPRB,0.89058E+03_JPRB,0.11780E+04_JPRB /)  
+KB(:, 2,30,15) = (/ &
+ & 0.10690E+04_JPRB,0.81372E+03_JPRB,0.60250E+03_JPRB,0.88965E+03_JPRB,0.11768E+04_JPRB /)  
+KB(:, 3,30,15) = (/ &
+ & 0.10330E+04_JPRB,0.79065E+03_JPRB,0.60271E+03_JPRB,0.88800E+03_JPRB,0.11759E+04_JPRB /)  
+KB(:, 4,30,15) = (/ &
+ & 0.99812E+03_JPRB,0.80751E+03_JPRB,0.60032E+03_JPRB,0.88541E+03_JPRB,0.11712E+04_JPRB /)  
+KB(:, 5,30,15) = (/ &
+ & 0.10394E+04_JPRB,0.71741E+03_JPRB,0.59705E+03_JPRB,0.88643E+03_JPRB,0.11676E+04_JPRB /)  
+KB(:, 1,31,15) = (/ &
+ & 0.10025E+04_JPRB,0.73187E+03_JPRB,0.60298E+03_JPRB,0.89039E+03_JPRB,0.11778E+04_JPRB /)  
+KB(:, 2,31,15) = (/ &
+ & 0.11099E+04_JPRB,0.74280E+03_JPRB,0.60227E+03_JPRB,0.88930E+03_JPRB,0.11763E+04_JPRB /)  
+KB(:, 3,31,15) = (/ &
+ & 0.10884E+04_JPRB,0.79617E+03_JPRB,0.60102E+03_JPRB,0.88838E+03_JPRB,0.11738E+04_JPRB /)  
+KB(:, 4,31,15) = (/ &
+ & 0.90245E+03_JPRB,0.76637E+03_JPRB,0.59915E+03_JPRB,0.88368E+03_JPRB,0.11701E+04_JPRB /)  
+KB(:, 5,31,15) = (/ &
+ & 0.10031E+04_JPRB,0.78751E+03_JPRB,0.59673E+03_JPRB,0.89640E+03_JPRB,0.11644E+04_JPRB /)  
+KB(:, 1,32,15) = (/ &
+ & 0.87663E+03_JPRB,0.68400E+03_JPRB,0.60283E+03_JPRB,0.89016E+03_JPRB,0.11775E+04_JPRB /)  
+KB(:, 2,32,15) = (/ &
+ & 0.10467E+04_JPRB,0.83071E+03_JPRB,0.60330E+03_JPRB,0.88890E+03_JPRB,0.11758E+04_JPRB /)  
+KB(:, 3,32,15) = (/ &
+ & 0.97045E+03_JPRB,0.72881E+03_JPRB,0.60123E+03_JPRB,0.88677E+03_JPRB,0.11730E+04_JPRB /)  
+KB(:, 4,32,15) = (/ &
+ & 0.11080E+04_JPRB,0.69141E+03_JPRB,0.59860E+03_JPRB,0.88193E+03_JPRB,0.11679E+04_JPRB /)  
+KB(:, 5,32,15) = (/ &
+ & 0.10206E+04_JPRB,0.73037E+03_JPRB,0.59837E+03_JPRB,0.88358E+03_JPRB,0.11726E+04_JPRB /)  
+KB(:, 1,33,15) = (/ &
+ & 0.10520E+04_JPRB,0.78807E+03_JPRB,0.60265E+03_JPRB,0.89086E+03_JPRB,0.11771E+04_JPRB /)  
+KB(:, 2,33,15) = (/ &
+ & 0.98139E+03_JPRB,0.81175E+03_JPRB,0.60169E+03_JPRB,0.88843E+03_JPRB,0.11752E+04_JPRB /)  
+KB(:, 3,33,15) = (/ &
+ & 0.11223E+04_JPRB,0.75994E+03_JPRB,0.60074E+03_JPRB,0.88510E+03_JPRB,0.11720E+04_JPRB /)  
+KB(:, 4,33,15) = (/ &
+ & 0.10271E+04_JPRB,0.75564E+03_JPRB,0.59806E+03_JPRB,0.88218E+03_JPRB,0.11708E+04_JPRB /)  
+KB(:, 5,33,15) = (/ &
+ & 0.10438E+04_JPRB,0.78527E+03_JPRB,0.59677E+03_JPRB,0.88217E+03_JPRB,0.11682E+04_JPRB /)  
+KB(:, 1,34,15) = (/ &
+ & 0.10293E+04_JPRB,0.82175E+03_JPRB,0.60313E+03_JPRB,0.88963E+03_JPRB,0.11768E+04_JPRB /)  
+KB(:, 2,34,15) = (/ &
+ & 0.11086E+04_JPRB,0.80472E+03_JPRB,0.60138E+03_JPRB,0.88797E+03_JPRB,0.11746E+04_JPRB /)  
+KB(:, 3,34,15) = (/ &
+ & 0.10235E+04_JPRB,0.72497E+03_JPRB,0.60029E+03_JPRB,0.88634E+03_JPRB,0.11724E+04_JPRB /)  
+KB(:, 4,34,15) = (/ &
+ & 0.10022E+04_JPRB,0.79360E+03_JPRB,0.59703E+03_JPRB,0.88927E+03_JPRB,0.11777E+04_JPRB /)  
+KB(:, 5,34,15) = (/ &
+ & 0.11107E+04_JPRB,0.84019E+03_JPRB,0.59650E+03_JPRB,0.88082E+03_JPRB,0.11651E+04_JPRB /)  
+KB(:, 1,35,15) = (/ &
+ & 0.10782E+04_JPRB,0.81052E+03_JPRB,0.60236E+03_JPRB,0.89138E+03_JPRB,0.11766E+04_JPRB /)  
+KB(:, 2,35,15) = (/ &
+ & 0.89922E+03_JPRB,0.74859E+03_JPRB,0.60119E+03_JPRB,0.88769E+03_JPRB,0.11729E+04_JPRB /)  
+KB(:, 3,35,15) = (/ &
+ & 0.10088E+04_JPRB,0.71209E+03_JPRB,0.59938E+03_JPRB,0.88499E+03_JPRB,0.11706E+04_JPRB /)  
+KB(:, 4,35,15) = (/ &
+ & 0.96175E+03_JPRB,0.77055E+03_JPRB,0.60072E+03_JPRB,0.87852E+03_JPRB,0.11710E+04_JPRB /)  
+KB(:, 5,35,15) = (/ &
+ & 0.10310E+04_JPRB,0.84426E+03_JPRB,0.59635E+03_JPRB,0.88059E+03_JPRB,0.11648E+04_JPRB /)  
+KB(:, 1,36,15) = (/ &
+ & 0.10188E+04_JPRB,0.85190E+03_JPRB,0.60234E+03_JPRB,0.88943E+03_JPRB,0.11765E+04_JPRB /)  
+KB(:, 2,36,15) = (/ &
+ & 0.10154E+04_JPRB,0.76964E+03_JPRB,0.60245E+03_JPRB,0.88859E+03_JPRB,0.11741E+04_JPRB /)  
+KB(:, 3,36,15) = (/ &
+ & 0.10902E+04_JPRB,0.77130E+03_JPRB,0.59998E+03_JPRB,0.88588E+03_JPRB,0.11705E+04_JPRB /)  
+KB(:, 4,36,15) = (/ &
+ & 0.98172E+03_JPRB,0.79246E+03_JPRB,0.59876E+03_JPRB,0.89371E+03_JPRB,0.11495E+04_JPRB /)  
+KB(:, 5,36,15) = (/ &
+ & 0.10409E+04_JPRB,0.75260E+03_JPRB,0.59632E+03_JPRB,0.88055E+03_JPRB,0.11660E+04_JPRB /)  
+KB(:, 1,37,15) = (/ &
+ & 0.10398E+04_JPRB,0.81024E+03_JPRB,0.60310E+03_JPRB,0.88960E+03_JPRB,0.11767E+04_JPRB /)  
+KB(:, 2,37,15) = (/ &
+ & 0.94253E+03_JPRB,0.72207E+03_JPRB,0.60199E+03_JPRB,0.88792E+03_JPRB,0.11745E+04_JPRB /)  
+KB(:, 3,37,15) = (/ &
+ & 0.11326E+04_JPRB,0.78984E+03_JPRB,0.60024E+03_JPRB,0.88532E+03_JPRB,0.11710E+04_JPRB /)  
+KB(:, 4,37,15) = (/ &
+ & 0.10789E+04_JPRB,0.84320E+03_JPRB,0.59634E+03_JPRB,0.88350E+03_JPRB,0.11688E+04_JPRB /)  
+KB(:, 5,37,15) = (/ &
+ & 0.10084E+04_JPRB,0.82623E+03_JPRB,0.59647E+03_JPRB,0.88078E+03_JPRB,0.11651E+04_JPRB /)  
+KB(:, 1,38,15) = (/ &
+ & 0.99835E+03_JPRB,0.77031E+03_JPRB,0.60321E+03_JPRB,0.88977E+03_JPRB,0.11782E+04_JPRB /)  
+KB(:, 2,38,15) = (/ &
+ & 0.11135E+04_JPRB,0.73046E+03_JPRB,0.60283E+03_JPRB,0.88917E+03_JPRB,0.11749E+04_JPRB /)  
+KB(:, 3,38,15) = (/ &
+ & 0.10419E+04_JPRB,0.72620E+03_JPRB,0.59987E+03_JPRB,0.88669E+03_JPRB,0.11716E+04_JPRB /)  
+KB(:, 4,38,15) = (/ &
+ & 0.10631E+04_JPRB,0.75245E+03_JPRB,0.59721E+03_JPRB,0.88572E+03_JPRB,0.11692E+04_JPRB /)  
+KB(:, 5,38,15) = (/ &
+ & 0.10228E+04_JPRB,0.73209E+03_JPRB,0.59792E+03_JPRB,0.88102E+03_JPRB,0.11654E+04_JPRB /)  
+KB(:, 1,39,15) = (/ &
+ & 0.10910E+04_JPRB,0.86853E+03_JPRB,0.60266E+03_JPRB,0.88992E+03_JPRB,0.11772E+04_JPRB /)  
+KB(:, 2,39,15) = (/ &
+ & 0.10519E+04_JPRB,0.73802E+03_JPRB,0.60236E+03_JPRB,0.88944E+03_JPRB,0.11753E+04_JPRB /)  
+KB(:, 3,39,15) = (/ &
+ & 0.90206E+03_JPRB,0.82442E+03_JPRB,0.60079E+03_JPRB,0.88708E+03_JPRB,0.11721E+04_JPRB /)  
+KB(:, 4,39,15) = (/ &
+ & 0.10954E+04_JPRB,0.83033E+03_JPRB,0.59811E+03_JPRB,0.88319E+03_JPRB,0.11696E+04_JPRB /)  
+KB(:, 5,39,15) = (/ &
+ & 0.92773E+03_JPRB,0.79134E+03_JPRB,0.59808E+03_JPRB,0.88316E+03_JPRB,0.11657E+04_JPRB /)  
+KB(:, 1,40,15) = (/ &
+ & 0.10887E+04_JPRB,0.78119E+03_JPRB,0.60281E+03_JPRB,0.89016E+03_JPRB,0.11775E+04_JPRB /)  
+KB(:, 2,40,15) = (/ &
+ & 0.10361E+04_JPRB,0.78964E+03_JPRB,0.60199E+03_JPRB,0.88890E+03_JPRB,0.11758E+04_JPRB /)  
+KB(:, 3,40,15) = (/ &
+ & 0.10674E+04_JPRB,0.81250E+03_JPRB,0.60058E+03_JPRB,0.88678E+03_JPRB,0.11730E+04_JPRB /)  
+KB(:, 4,40,15) = (/ &
+ & 0.11076E+04_JPRB,0.76250E+03_JPRB,0.59989E+03_JPRB,0.88480E+03_JPRB,0.11679E+04_JPRB /)  
+KB(:, 5,40,15) = (/ &
+ & 0.11154E+04_JPRB,0.83280E+03_JPRB,0.59900E+03_JPRB,0.88168E+03_JPRB,0.11814E+04_JPRB /)  
+KB(:, 1,41,15) = (/ &
+ & 0.10350E+04_JPRB,0.79893E+03_JPRB,0.60296E+03_JPRB,0.89038E+03_JPRB,0.11778E+04_JPRB /)  
+KB(:, 2,41,15) = (/ &
+ & 0.10104E+04_JPRB,0.69640E+03_JPRB,0.60225E+03_JPRB,0.88929E+03_JPRB,0.11763E+04_JPRB /)  
+KB(:, 3,41,15) = (/ &
+ & 0.10193E+04_JPRB,0.78110E+03_JPRB,0.60100E+03_JPRB,0.88741E+03_JPRB,0.11751E+04_JPRB /)  
+KB(:, 4,41,15) = (/ &
+ & 0.10785E+04_JPRB,0.73450E+03_JPRB,0.59977E+03_JPRB,0.88368E+03_JPRB,0.11701E+04_JPRB /)  
+KB(:, 5,41,15) = (/ &
+ & 0.96003E+03_JPRB,0.80480E+03_JPRB,0.59865E+03_JPRB,0.90400E+03_JPRB,0.11833E+04_JPRB /)  
+KB(:, 1,42,15) = (/ &
+ & 0.97569E+03_JPRB,0.77685E+03_JPRB,0.60307E+03_JPRB,0.89056E+03_JPRB,0.11793E+04_JPRB /)  
+KB(:, 2,42,15) = (/ &
+ & 0.98796E+03_JPRB,0.83953E+03_JPRB,0.60247E+03_JPRB,0.88963E+03_JPRB,0.11768E+04_JPRB /)  
+KB(:, 3,42,15) = (/ &
+ & 0.10852E+04_JPRB,0.82427E+03_JPRB,0.60332E+03_JPRB,0.88798E+03_JPRB,0.11746E+04_JPRB /)  
+KB(:, 4,42,15) = (/ &
+ & 0.10360E+04_JPRB,0.83188E+03_JPRB,0.59965E+03_JPRB,0.88636E+03_JPRB,0.11712E+04_JPRB /)  
+KB(:, 5,42,15) = (/ &
+ & 0.10125E+04_JPRB,0.74885E+03_JPRB,0.59702E+03_JPRB,0.88356E+03_JPRB,0.11676E+04_JPRB /)  
+KB(:, 1,43,15) = (/ &
+ & 0.91082E+03_JPRB,0.72514E+03_JPRB,0.60320E+03_JPRB,0.89075E+03_JPRB,0.11796E+04_JPRB /)  
+KB(:, 2,43,15) = (/ &
+ & 0.82029E+03_JPRB,0.80137E+03_JPRB,0.60335E+03_JPRB,0.88998E+03_JPRB,0.11773E+04_JPRB /)  
+KB(:, 3,43,15) = (/ &
+ & 0.11298E+04_JPRB,0.78950E+03_JPRB,0.60243E+03_JPRB,0.88859E+03_JPRB,0.11754E+04_JPRB /)  
+KB(:, 4,43,15) = (/ &
+ & 0.10717E+04_JPRB,0.65904E+03_JPRB,0.60090E+03_JPRB,0.88726E+03_JPRB,0.11724E+04_JPRB /)  
+KB(:, 5,43,15) = (/ &
+ & 0.89290E+03_JPRB,0.78779E+03_JPRB,0.59823E+03_JPRB,0.88240E+03_JPRB,0.11774E+04_JPRB /)  
+KB(:, 1,44,15) = (/ &
+ & 0.10292E+04_JPRB,0.72935E+03_JPRB,0.60266E+03_JPRB,0.89093E+03_JPRB,0.11785E+04_JPRB /)  
+KB(:, 2,44,15) = (/ &
+ & 0.10616E+04_JPRB,0.76323E+03_JPRB,0.60355E+03_JPRB,0.89030E+03_JPRB,0.11790E+04_JPRB /)  
+KB(:, 3,44,15) = (/ &
+ & 0.10058E+04_JPRB,0.82082E+03_JPRB,0.60215E+03_JPRB,0.88915E+03_JPRB,0.11762E+04_JPRB /)  
+KB(:, 4,44,15) = (/ &
+ & 0.96216E+03_JPRB,0.76914E+03_JPRB,0.60084E+03_JPRB,0.88814E+03_JPRB,0.11735E+04_JPRB /)  
+KB(:, 5,44,15) = (/ &
+ & 0.10069E+04_JPRB,0.76998E+03_JPRB,0.59893E+03_JPRB,0.88624E+03_JPRB,0.11672E+04_JPRB /)  
+KB(:, 1,45,15) = (/ &
+ & 0.92082E+03_JPRB,0.79879E+03_JPRB,0.60350E+03_JPRB,0.89110E+03_JPRB,0.11788E+04_JPRB /)  
+KB(:, 2,45,15) = (/ &
+ & 0.96551E+03_JPRB,0.79963E+03_JPRB,0.60307E+03_JPRB,0.89055E+03_JPRB,0.11780E+04_JPRB /)  
+KB(:, 3,45,15) = (/ &
+ & 0.10337E+04_JPRB,0.76320E+03_JPRB,0.60246E+03_JPRB,0.88962E+03_JPRB,0.11768E+04_JPRB /)  
+KB(:, 4,45,15) = (/ &
+ & 0.97219E+03_JPRB,0.72677E+03_JPRB,0.60201E+03_JPRB,0.88795E+03_JPRB,0.11746E+04_JPRB /)  
+KB(:, 5,45,15) = (/ &
+ & 0.10146E+04_JPRB,0.80892E+03_JPRB,0.59962E+03_JPRB,0.88632E+03_JPRB,0.11711E+04_JPRB /)  
+KB(:, 1,46,15) = (/ &
+ & 0.10772E+04_JPRB,0.81655E+03_JPRB,0.60383E+03_JPRB,0.89135E+03_JPRB,0.11792E+04_JPRB /)  
+KB(:, 2,46,15) = (/ &
+ & 0.98671E+03_JPRB,0.73523E+03_JPRB,0.60321E+03_JPRB,0.89077E+03_JPRB,0.11796E+04_JPRB /)  
+KB(:, 3,46,15) = (/ &
+ & 0.10348E+04_JPRB,0.84026E+03_JPRB,0.60272E+03_JPRB,0.89002E+03_JPRB,0.11773E+04_JPRB /)  
+KB(:, 4,46,15) = (/ &
+ & 0.11018E+04_JPRB,0.66661E+03_JPRB,0.60312E+03_JPRB,0.88865E+03_JPRB,0.11755E+04_JPRB /)  
+KB(:, 5,46,15) = (/ &
+ & 0.10012E+04_JPRB,0.71404E+03_JPRB,0.60161E+03_JPRB,0.88639E+03_JPRB,0.11725E+04_JPRB /)  
+KB(:, 1,47,15) = (/ &
+ & 0.10560E+04_JPRB,0.78520E+03_JPRB,0.60429E+03_JPRB,0.89072E+03_JPRB,0.11796E+04_JPRB /)  
+KB(:, 2,47,15) = (/ &
+ & 0.10627E+04_JPRB,0.82754E+03_JPRB,0.60335E+03_JPRB,0.89097E+03_JPRB,0.11773E+04_JPRB /)  
+KB(:, 3,47,15) = (/ &
+ & 0.10705E+04_JPRB,0.76570E+03_JPRB,0.60295E+03_JPRB,0.89038E+03_JPRB,0.11791E+04_JPRB /)  
+KB(:, 4,47,15) = (/ &
+ & 0.11051E+04_JPRB,0.83346E+03_JPRB,0.60225E+03_JPRB,0.89026E+03_JPRB,0.11789E+04_JPRB /)  
+KB(:, 5,47,15) = (/ &
+ & 0.10627E+04_JPRB,0.79957E+03_JPRB,0.60100E+03_JPRB,0.88742E+03_JPRB,0.11738E+04_JPRB /)  
+KB(:, 1,48,15) = (/ &
+ & 0.10526E+04_JPRB,0.83431E+03_JPRB,0.60478E+03_JPRB,0.89205E+03_JPRB,0.11801E+04_JPRB /)  
+KB(:, 2,48,15) = (/ &
+ & 0.11375E+04_JPRB,0.74537E+03_JPRB,0.60363E+03_JPRB,0.89121E+03_JPRB,0.11790E+04_JPRB /)  
+KB(:, 3,48,15) = (/ &
+ & 0.10571E+04_JPRB,0.77077E+03_JPRB,0.60313E+03_JPRB,0.89066E+03_JPRB,0.11782E+04_JPRB /)  
+KB(:, 4,48,15) = (/ &
+ & 0.10694E+04_JPRB,0.73604E+03_JPRB,0.60258E+03_JPRB,0.88981E+03_JPRB,0.11770E+04_JPRB /)  
+KB(:, 5,48,15) = (/ &
+ & 0.11062E+04_JPRB,0.66828E+03_JPRB,0.60158E+03_JPRB,0.88925E+03_JPRB,0.11750E+04_JPRB /)  
+KB(:, 1,49,15) = (/ &
+ & 0.10727E+04_JPRB,0.73859E+03_JPRB,0.60462E+03_JPRB,0.89249E+03_JPRB,0.11807E+04_JPRB /)  
+KB(:, 2,49,15) = (/ &
+ & 0.11006E+04_JPRB,0.84446E+03_JPRB,0.60404E+03_JPRB,0.89152E+03_JPRB,0.11794E+04_JPRB /)  
+KB(:, 3,49,15) = (/ &
+ & 0.96096E+03_JPRB,0.73858E+03_JPRB,0.60393E+03_JPRB,0.89088E+03_JPRB,0.11785E+04_JPRB /)  
+KB(:, 4,49,15) = (/ &
+ & 0.11140E+04_JPRB,0.80464E+03_JPRB,0.60285E+03_JPRB,0.89021E+03_JPRB,0.11776E+04_JPRB /)  
+KB(:, 5,49,15) = (/ &
+ & 0.10928E+04_JPRB,0.75297E+03_JPRB,0.60205E+03_JPRB,0.88996E+03_JPRB,0.11760E+04_JPRB /)  
+KB(:, 1,50,15) = (/ &
+ & 0.10626E+04_JPRB,0.84953E+03_JPRB,0.60572E+03_JPRB,0.89295E+03_JPRB,0.11814E+04_JPRB /)  
+KB(:, 2,50,15) = (/ &
+ & 0.11017E+04_JPRB,0.71824E+03_JPRB,0.60451E+03_JPRB,0.89185E+03_JPRB,0.11811E+04_JPRB /)  
+KB(:, 3,50,15) = (/ &
+ & 0.10336E+04_JPRB,0.71570E+03_JPRB,0.60345E+03_JPRB,0.89107E+03_JPRB,0.11800E+04_JPRB /)  
+KB(:, 4,50,15) = (/ &
+ & 0.95200E+03_JPRB,0.76482E+03_JPRB,0.60304E+03_JPRB,0.89051E+03_JPRB,0.11793E+04_JPRB /)  
+KB(:, 5,50,15) = (/ &
+ & 0.96988E+03_JPRB,0.83512E+03_JPRB,0.60306E+03_JPRB,0.88954E+03_JPRB,0.11767E+04_JPRB /)  
+KB(:, 1,51,15) = (/ &
+ & 0.11017E+04_JPRB,0.77329E+03_JPRB,0.60615E+03_JPRB,0.89371E+03_JPRB,0.11825E+04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART35',1,ZHOOK_HANDLE)
+END SUBROUTINE PART35
+
+
+SUBROUTINE PART36
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART36',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,51,15) = (/ &
+ & 0.10950E+04_JPRB,0.81479E+03_JPRB,0.60496E+03_JPRB,0.89123E+03_JPRB,0.11790E+04_JPRB /)  
+KB(:, 3,51,15) = (/ &
+ & 0.99893E+03_JPRB,0.69452E+03_JPRB,0.60377E+03_JPRB,0.89131E+03_JPRB,0.11791E+04_JPRB /)  
+KB(:, 4,51,15) = (/ &
+ & 0.10704E+04_JPRB,0.82834E+03_JPRB,0.60319E+03_JPRB,0.89074E+03_JPRB,0.11783E+04_JPRB /)  
+KB(:, 5,51,15) = (/ &
+ & 0.10391E+04_JPRB,0.80716E+03_JPRB,0.60333E+03_JPRB,0.89092E+03_JPRB,0.11772E+04_JPRB /)  
+KB(:, 1,52,15) = (/ &
+ & 0.10358E+04_JPRB,0.83681E+03_JPRB,0.60593E+03_JPRB,0.89390E+03_JPRB,0.11828E+04_JPRB /)  
+KB(:, 2,52,15) = (/ &
+ & 0.95423E+03_JPRB,0.78599E+03_JPRB,0.60540E+03_JPRB,0.89262E+03_JPRB,0.11809E+04_JPRB /)  
+KB(:, 3,52,15) = (/ &
+ & 0.98439E+03_JPRB,0.83257E+03_JPRB,0.60417E+03_JPRB,0.89064E+03_JPRB,0.11795E+04_JPRB /)  
+KB(:, 4,52,15) = (/ &
+ & 0.10548E+04_JPRB,0.77074E+03_JPRB,0.60331E+03_JPRB,0.89093E+03_JPRB,0.11786E+04_JPRB /)  
+KB(:, 5,52,15) = (/ &
+ & 0.10358E+04_JPRB,0.81478E+03_JPRB,0.60291E+03_JPRB,0.89030E+03_JPRB,0.11777E+04_JPRB /)  
+KB(:, 1,53,15) = (/ &
+ & 0.96204E+03_JPRB,0.74448E+03_JPRB,0.60716E+03_JPRB,0.89629E+03_JPRB,0.11860E+04_JPRB /)  
+KB(:, 2,53,15) = (/ &
+ & 0.10872E+04_JPRB,0.75126E+03_JPRB,0.60583E+03_JPRB,0.89310E+03_JPRB,0.11816E+04_JPRB /)  
+KB(:, 3,53,15) = (/ &
+ & 0.90617E+03_JPRB,0.75210E+03_JPRB,0.60463E+03_JPRB,0.89194E+03_JPRB,0.11800E+04_JPRB /)  
+KB(:, 4,53,15) = (/ &
+ & 0.97991E+03_JPRB,0.76565E+03_JPRB,0.60352E+03_JPRB,0.89113E+03_JPRB,0.11788E+04_JPRB /)  
+KB(:, 5,53,15) = (/ &
+ & 0.10425E+04_JPRB,0.76988E+03_JPRB,0.60308E+03_JPRB,0.89058E+03_JPRB,0.11793E+04_JPRB /)  
+KB(:, 1,54,15) = (/ &
+ & 0.10112E+04_JPRB,0.55645E+03_JPRB,0.60785E+03_JPRB,0.89766E+03_JPRB,0.11878E+04_JPRB /)  
+KB(:, 2,54,15) = (/ &
+ & 0.10637E+04_JPRB,0.66232E+03_JPRB,0.60623E+03_JPRB,0.89389E+03_JPRB,0.11827E+04_JPRB /)  
+KB(:, 3,54,15) = (/ &
+ & 0.88717E+03_JPRB,0.63014E+03_JPRB,0.60503E+03_JPRB,0.89226E+03_JPRB,0.11804E+04_JPRB /)  
+KB(:, 4,54,15) = (/ &
+ & 0.10369E+04_JPRB,0.84103E+03_JPRB,0.60384E+03_JPRB,0.89232E+03_JPRB,0.11792E+04_JPRB /)  
+KB(:, 5,54,15) = (/ &
+ & 0.10000E+04_JPRB,0.70043E+03_JPRB,0.60321E+03_JPRB,0.89174E+03_JPRB,0.11783E+04_JPRB /)  
+KB(:, 1,55,15) = (/ &
+ & 0.10615E+04_JPRB,0.77920E+03_JPRB,0.60858E+03_JPRB,0.89903E+03_JPRB,0.11896E+04_JPRB /)  
+KB(:, 2,55,15) = (/ &
+ & 0.10425E+04_JPRB,0.78513E+03_JPRB,0.60661E+03_JPRB,0.89494E+03_JPRB,0.11829E+04_JPRB /)  
+KB(:, 3,55,15) = (/ &
+ & 0.10916E+04_JPRB,0.73854E+03_JPRB,0.60542E+03_JPRB,0.89361E+03_JPRB,0.11809E+04_JPRB /)  
+KB(:, 4,55,15) = (/ &
+ & 0.10715E+04_JPRB,0.78936E+03_JPRB,0.60420E+03_JPRB,0.89162E+03_JPRB,0.11795E+04_JPRB /)  
+KB(:, 5,55,15) = (/ &
+ & 0.96091E+03_JPRB,0.82578E+03_JPRB,0.60397E+03_JPRB,0.89094E+03_JPRB,0.11773E+04_JPRB /)  
+KB(:, 1,56,15) = (/ &
+ & 0.10458E+04_JPRB,0.77242E+03_JPRB,0.60942E+03_JPRB,0.90044E+03_JPRB,0.11915E+04_JPRB /)  
+KB(:, 2,56,15) = (/ &
+ & 0.11062E+04_JPRB,0.77581E+03_JPRB,0.60712E+03_JPRB,0.89619E+03_JPRB,0.11859E+04_JPRB /)  
+KB(:, 3,56,15) = (/ &
+ & 0.10883E+04_JPRB,0.80121E+03_JPRB,0.60580E+03_JPRB,0.89306E+03_JPRB,0.11815E+04_JPRB /)  
+KB(:, 4,56,15) = (/ &
+ & 0.10726E+04_JPRB,0.82069E+03_JPRB,0.60459E+03_JPRB,0.89192E+03_JPRB,0.11799E+04_JPRB /)  
+KB(:, 5,56,15) = (/ &
+ & 0.11263E+04_JPRB,0.78597E+03_JPRB,0.60416E+03_JPRB,0.89111E+03_JPRB,0.11788E+04_JPRB /)  
+KB(:, 1,57,15) = (/ &
+ & 0.11095E+04_JPRB,0.76988E+03_JPRB,0.61034E+03_JPRB,0.90190E+03_JPRB,0.11935E+04_JPRB /)  
+KB(:, 2,57,15) = (/ &
+ & 0.97543E+03_JPRB,0.72583E+03_JPRB,0.60777E+03_JPRB,0.89749E+03_JPRB,0.11876E+04_JPRB /)  
+KB(:, 3,57,15) = (/ &
+ & 0.98548E+03_JPRB,0.78597E+03_JPRB,0.60618E+03_JPRB,0.89378E+03_JPRB,0.11826E+04_JPRB /)  
+KB(:, 4,57,15) = (/ &
+ & 0.98213E+03_JPRB,0.81053E+03_JPRB,0.60499E+03_JPRB,0.89222E+03_JPRB,0.11804E+04_JPRB /)  
+KB(:, 5,57,15) = (/ &
+ & 0.10760E+04_JPRB,0.81137E+03_JPRB,0.60380E+03_JPRB,0.89133E+03_JPRB,0.11791E+04_JPRB /)  
+KB(:, 1,58,15) = (/ &
+ & 0.10034E+04_JPRB,0.71059E+03_JPRB,0.61128E+03_JPRB,0.90333E+03_JPRB,0.11954E+04_JPRB /)  
+KB(:, 2,58,15) = (/ &
+ & 0.97431E+03_JPRB,0.80290E+03_JPRB,0.60845E+03_JPRB,0.89878E+03_JPRB,0.11893E+04_JPRB /)  
+KB(:, 3,58,15) = (/ &
+ & 0.95308E+03_JPRB,0.77157E+03_JPRB,0.60654E+03_JPRB,0.89474E+03_JPRB,0.11839E+04_JPRB /)  
+KB(:, 4,58,15) = (/ &
+ & 0.10737E+04_JPRB,0.87404E+03_JPRB,0.60535E+03_JPRB,0.89257E+03_JPRB,0.11808E+04_JPRB /)  
+KB(:, 5,58,15) = (/ &
+ & 0.10626E+04_JPRB,0.67671E+03_JPRB,0.60413E+03_JPRB,0.89157E+03_JPRB,0.11782E+04_JPRB /)  
+KB(:, 1,59,15) = (/ &
+ & 0.98325E+03_JPRB,0.78258E+03_JPRB,0.61167E+03_JPRB,0.90392E+03_JPRB,0.11962E+04_JPRB /)  
+KB(:, 2,59,15) = (/ &
+ & 0.10481E+04_JPRB,0.74785E+03_JPRB,0.60874E+03_JPRB,0.89931E+03_JPRB,0.11900E+04_JPRB /)  
+KB(:, 3,59,15) = (/ &
+ & 0.11151E+04_JPRB,0.73006E+03_JPRB,0.60669E+03_JPRB,0.89518E+03_JPRB,0.11820E+04_JPRB /)  
+KB(:, 4,59,15) = (/ &
+ & 0.10425E+04_JPRB,0.79358E+03_JPRB,0.60550E+03_JPRB,0.89369E+03_JPRB,0.11810E+04_JPRB /)  
+KB(:, 5,59,15) = (/ &
+ & 0.97877E+03_JPRB,0.79866E+03_JPRB,0.60428E+03_JPRB,0.89168E+03_JPRB,0.11796E+04_JPRB /)  
+KB(:, 1,13,16) = (/ &
+ & 0.75523E+03_JPRB,0.86786E+03_JPRB,0.60838E+03_JPRB,0.89385E+03_JPRB,0.11815E+04_JPRB /)  
+KB(:, 2,13,16) = (/ &
+ & 0.10580E+03_JPRB,0.52074E+03_JPRB,0.60685E+03_JPRB,0.89272E+03_JPRB,0.11800E+04_JPRB /)  
+KB(:, 3,13,16) = (/ &
+ & 0.88450E+03_JPRB,0.99478E+02_JPRB,0.60069E+03_JPRB,0.89217E+03_JPRB,0.11793E+04_JPRB /)  
+KB(:, 4,13,16) = (/ &
+ & 0.47883E+03_JPRB,0.85714E+02_JPRB,0.60445E+03_JPRB,0.89133E+03_JPRB,0.11782E+04_JPRB /)  
+KB(:, 5,13,16) = (/ &
+ & 0.30313E+03_JPRB,0.39357E+02_JPRB,0.60363E+03_JPRB,0.89015E+03_JPRB,0.11767E+04_JPRB /)  
+KB(:, 1,14,16) = (/ &
+ & 0.59250E+03_JPRB,0.12538E+03_JPRB,0.60779E+03_JPRB,0.89359E+03_JPRB,0.11813E+04_JPRB /)  
+KB(:, 2,14,16) = (/ &
+ & 0.45021E+03_JPRB,0.30819E+03_JPRB,0.60630E+03_JPRB,0.89255E+03_JPRB,0.11799E+04_JPRB /)  
+KB(:, 3,14,16) = (/ &
+ & 0.38746E+03_JPRB,0.31955E+03_JPRB,0.60482E+03_JPRB,0.89198E+03_JPRB,0.11792E+04_JPRB /)  
+KB(:, 4,14,16) = (/ &
+ & 0.59123E+03_JPRB,0.24014E+03_JPRB,0.60415E+03_JPRB,0.89112E+03_JPRB,0.11781E+04_JPRB /)  
+KB(:, 5,14,16) = (/ &
+ & 0.47780E+03_JPRB,0.41362E+03_JPRB,0.60332E+03_JPRB,0.88306E+03_JPRB,0.11765E+04_JPRB /)  
+KB(:, 1,15,16) = (/ &
+ & 0.10202E+04_JPRB,0.29221E+03_JPRB,0.60727E+03_JPRB,0.88647E+03_JPRB,0.11812E+04_JPRB /)  
+KB(:, 2,15,16) = (/ &
+ & 0.55435E+03_JPRB,0.58788E+03_JPRB,0.60581E+03_JPRB,0.89239E+03_JPRB,0.11799E+04_JPRB /)  
+KB(:, 3,15,16) = (/ &
+ & 0.31413E+03_JPRB,0.75889E+03_JPRB,0.60450E+03_JPRB,0.89181E+03_JPRB,0.11791E+04_JPRB /)  
+KB(:, 4,15,16) = (/ &
+ & 0.41436E+03_JPRB,0.80717E+03_JPRB,0.60389E+03_JPRB,0.89092E+03_JPRB,0.11689E+04_JPRB /)  
+KB(:, 5,15,16) = (/ &
+ & 0.84269E+03_JPRB,0.27451E+03_JPRB,0.60303E+03_JPRB,0.88966E+03_JPRB,0.11582E+04_JPRB /)  
+KB(:, 1,16,16) = (/ &
+ & 0.19456E+03_JPRB,0.24351E+03_JPRB,0.60682E+03_JPRB,0.89311E+03_JPRB,0.11719E+04_JPRB /)  
+KB(:, 2,16,16) = (/ &
+ & 0.43800E+03_JPRB,0.21696E+03_JPRB,0.60538E+03_JPRB,0.89225E+03_JPRB,0.11798E+04_JPRB /)  
+KB(:, 3,16,16) = (/ &
+ & 0.73851E+03_JPRB,0.22888E+03_JPRB,0.60428E+03_JPRB,0.89164E+03_JPRB,0.11790E+04_JPRB /)  
+KB(:, 4,16,16) = (/ &
+ & 0.83650E+03_JPRB,0.13309E+03_JPRB,0.60366E+03_JPRB,0.89073E+03_JPRB,0.11778E+04_JPRB /)  
+KB(:, 5,16,16) = (/ &
+ & 0.65895E+03_JPRB,0.36022E+03_JPRB,0.59813E+03_JPRB,0.88942E+03_JPRB,0.11670E+04_JPRB /)  
+KB(:, 1,17,16) = (/ &
+ & 0.97890E+03_JPRB,0.27257E+03_JPRB,0.60643E+03_JPRB,0.89290E+03_JPRB,0.11808E+04_JPRB /)  
+KB(:, 2,17,16) = (/ &
+ & 0.21678E+03_JPRB,0.36639E+03_JPRB,0.60501E+03_JPRB,0.89213E+03_JPRB,0.11797E+04_JPRB /)  
+KB(:, 3,17,16) = (/ &
+ & 0.36576E+03_JPRB,0.64243E+03_JPRB,0.60409E+03_JPRB,0.89150E+03_JPRB,0.11789E+04_JPRB /)  
+KB(:, 4,17,16) = (/ &
+ & 0.71301E+03_JPRB,0.32666E+03_JPRB,0.60345E+03_JPRB,0.89056E+03_JPRB,0.11777E+04_JPRB /)  
+KB(:, 5,17,16) = (/ &
+ & 0.30605E+03_JPRB,0.68315E+03_JPRB,0.59789E+03_JPRB,0.88918E+03_JPRB,0.11668E+04_JPRB /)  
+KB(:, 1,18,16) = (/ &
+ & 0.52238E+03_JPRB,0.17591E+03_JPRB,0.60609E+03_JPRB,0.89271E+03_JPRB,0.11807E+04_JPRB /)  
+KB(:, 2,18,16) = (/ &
+ & 0.10253E+04_JPRB,0.75807E+03_JPRB,0.60468E+03_JPRB,0.89202E+03_JPRB,0.11797E+04_JPRB /)  
+KB(:, 3,18,16) = (/ &
+ & 0.23095E+03_JPRB,0.31874E+03_JPRB,0.60392E+03_JPRB,0.89136E+03_JPRB,0.11788E+04_JPRB /)  
+KB(:, 4,18,16) = (/ &
+ & 0.55144E+03_JPRB,0.80452E+03_JPRB,0.59863E+03_JPRB,0.89039E+03_JPRB,0.11685E+04_JPRB /)  
+KB(:, 5,18,16) = (/ &
+ & 0.36145E+03_JPRB,0.21165E+03_JPRB,0.60231E+03_JPRB,0.88211E+03_JPRB,0.11666E+04_JPRB /)  
+KB(:, 1,19,16) = (/ &
+ & 0.10124E+04_JPRB,0.51143E+03_JPRB,0.60113E+03_JPRB,0.89253E+03_JPRB,0.11805E+04_JPRB /)  
+KB(:, 2,19,16) = (/ &
+ & 0.54199E+03_JPRB,0.26758E+03_JPRB,0.60439E+03_JPRB,0.89192E+03_JPRB,0.11796E+04_JPRB /)  
+KB(:, 3,19,16) = (/ &
+ & 0.61467E+03_JPRB,0.78253E+03_JPRB,0.59913E+03_JPRB,0.89123E+03_JPRB,0.11787E+04_JPRB /)  
+KB(:, 4,19,16) = (/ &
+ & 0.58906E+03_JPRB,0.74398E+02_JPRB,0.60311E+03_JPRB,0.89023E+03_JPRB,0.11774E+04_JPRB /)  
+KB(:, 5,19,16) = (/ &
+ & 0.98025E+03_JPRB,0.28476E+03_JPRB,0.59747E+03_JPRB,0.88189E+03_JPRB,0.11663E+04_JPRB /)  
+KB(:, 1,20,16) = (/ &
+ & 0.25361E+03_JPRB,0.16739E+03_JPRB,0.60550E+03_JPRB,0.89234E+03_JPRB,0.11712E+04_JPRB /)  
+KB(:, 2,20,16) = (/ &
+ & 0.70227E+03_JPRB,0.71784E+03_JPRB,0.59948E+03_JPRB,0.89182E+03_JPRB,0.11795E+04_JPRB /)  
+KB(:, 3,20,16) = (/ &
+ & 0.89681E+03_JPRB,0.24714E+03_JPRB,0.60364E+03_JPRB,0.89109E+03_JPRB,0.11786E+04_JPRB /)  
+KB(:, 4,20,16) = (/ &
+ & 0.30123E+03_JPRB,0.54911E+03_JPRB,0.60295E+03_JPRB,0.89006E+03_JPRB,0.11772E+04_JPRB /)  
+KB(:, 5,20,16) = (/ &
+ & 0.68301E+03_JPRB,0.36973E+03_JPRB,0.59725E+03_JPRB,0.88846E+03_JPRB,0.11750E+04_JPRB /)  
+KB(:, 1,21,16) = (/ &
+ & 0.25236E+03_JPRB,0.80202E+03_JPRB,0.60523E+03_JPRB,0.89218E+03_JPRB,0.11801E+04_JPRB /)  
+KB(:, 2,21,16) = (/ &
+ & 0.77221E+03_JPRB,0.62834E+03_JPRB,0.60401E+03_JPRB,0.89171E+03_JPRB,0.11794E+04_JPRB /)  
+KB(:, 3,21,16) = (/ &
+ & 0.70626E+03_JPRB,0.20918E+03_JPRB,0.60351E+03_JPRB,0.89096E+03_JPRB,0.11784E+04_JPRB /)  
+KB(:, 4,21,16) = (/ &
+ & 0.16217E+03_JPRB,0.14134E+03_JPRB,0.59816E+03_JPRB,0.88303E+03_JPRB,0.11770E+04_JPRB /)  
+KB(:, 5,21,16) = (/ &
+ & 0.51843E+03_JPRB,0.20259E+03_JPRB,0.59703E+03_JPRB,0.88818E+03_JPRB,0.11747E+04_JPRB /)  
+KB(:, 1,22,16) = (/ &
+ & 0.21890E+03_JPRB,0.24577E+03_JPRB,0.60023E+03_JPRB,0.89209E+03_JPRB,0.11799E+04_JPRB /)  
+KB(:, 2,22,16) = (/ &
+ & 0.30771E+03_JPRB,0.55233E+03_JPRB,0.60388E+03_JPRB,0.89157E+03_JPRB,0.11793E+04_JPRB /)  
+KB(:, 3,22,16) = (/ &
+ & 0.17796E+03_JPRB,0.48432E+03_JPRB,0.60334E+03_JPRB,0.89076E+03_JPRB,0.11782E+04_JPRB /)  
+KB(:, 4,22,16) = (/ &
+ & 0.88899E+03_JPRB,0.36751E+03_JPRB,0.60258E+03_JPRB,0.88960E+03_JPRB,0.11676E+04_JPRB /)  
+KB(:, 5,22,16) = (/ &
+ & 0.37953E+03_JPRB,0.56918E+03_JPRB,0.58746E+03_JPRB,0.88775E+03_JPRB,0.11742E+04_JPRB /)  
+KB(:, 1,23,16) = (/ &
+ & 0.42018E+03_JPRB,0.21434E+03_JPRB,0.60456E+03_JPRB,0.89198E+03_JPRB,0.11798E+04_JPRB /)  
+KB(:, 2,23,16) = (/ &
+ & 0.10252E+04_JPRB,0.32427E+03_JPRB,0.60375E+03_JPRB,0.89142E+03_JPRB,0.11791E+04_JPRB /)  
+KB(:, 3,23,16) = (/ &
+ & 0.25811E+03_JPRB,0.61743E+03_JPRB,0.60318E+03_JPRB,0.89055E+03_JPRB,0.11779E+04_JPRB /)  
+KB(:, 4,23,16) = (/ &
+ & 0.60449E+03_JPRB,0.28100E+03_JPRB,0.60235E+03_JPRB,0.88930E+03_JPRB,0.11762E+04_JPRB /)  
+KB(:, 5,23,16) = (/ &
+ & 0.43495E+03_JPRB,0.18925E+03_JPRB,0.60100E+03_JPRB,0.88727E+03_JPRB,0.11735E+04_JPRB /)  
+KB(:, 1,24,16) = (/ &
+ & 0.68497E+03_JPRB,0.77568E+03_JPRB,0.60423E+03_JPRB,0.89188E+03_JPRB,0.11797E+04_JPRB /)  
+KB(:, 2,24,16) = (/ &
+ & 0.27378E+03_JPRB,0.43332E+03_JPRB,0.60362E+03_JPRB,0.89125E+03_JPRB,0.11789E+04_JPRB /)  
+KB(:, 3,24,16) = (/ &
+ & 0.44258E+03_JPRB,0.48182E+03_JPRB,0.60301E+03_JPRB,0.89032E+03_JPRB,0.11686E+04_JPRB /)  
+KB(:, 4,24,16) = (/ &
+ & 0.38603E+03_JPRB,0.34135E+03_JPRB,0.59747E+03_JPRB,0.88895E+03_JPRB,0.11758E+04_JPRB /)  
+KB(:, 5,24,16) = (/ &
+ & 0.39386E+03_JPRB,0.54222E+03_JPRB,0.60062E+03_JPRB,0.88674E+03_JPRB,0.11638E+04_JPRB /)  
+KB(:, 1,25,16) = (/ &
+ & 0.55482E+03_JPRB,0.53022E+03_JPRB,0.60394E+03_JPRB,0.89175E+03_JPRB,0.11796E+04_JPRB /)  
+KB(:, 2,25,16) = (/ &
+ & 0.90002E+03_JPRB,0.91361E+02_JPRB,0.60348E+03_JPRB,0.89107E+03_JPRB,0.11787E+04_JPRB /)  
+KB(:, 3,25,16) = (/ &
+ & 0.17670E+03_JPRB,0.51744E+03_JPRB,0.59819E+03_JPRB,0.89007E+03_JPRB,0.11773E+04_JPRB /)  
+KB(:, 4,25,16) = (/ &
+ & 0.44153E+03_JPRB,0.41376E+03_JPRB,0.59256E+03_JPRB,0.88854E+03_JPRB,0.11753E+04_JPRB /)  
+KB(:, 5,25,16) = (/ &
+ & 0.24073E+03_JPRB,0.21288E+03_JPRB,0.60020E+03_JPRB,0.88614E+03_JPRB,0.11721E+04_JPRB /)  
+KB(:, 1,26,16) = (/ &
+ & 0.37725E+03_JPRB,0.61445E+03_JPRB,0.60383E+03_JPRB,0.89161E+03_JPRB,0.11703E+04_JPRB /)  
+KB(:, 2,26,16) = (/ &
+ & 0.10269E+04_JPRB,0.42565E+03_JPRB,0.59868E+03_JPRB,0.89085E+03_JPRB,0.11784E+04_JPRB /)  
+KB(:, 3,26,16) = (/ &
+ & 0.49719E+03_JPRB,0.26744E+03_JPRB,0.60261E+03_JPRB,0.88977E+03_JPRB,0.11769E+04_JPRB /)  
+KB(:, 4,26,16) = (/ &
+ & 0.41684E+03_JPRB,0.19443E+03_JPRB,0.59685E+03_JPRB,0.88123E+03_JPRB,0.11746E+04_JPRB /)  
+KB(:, 5,26,16) = (/ &
+ & 0.32855E+03_JPRB,0.57095E+03_JPRB,0.59973E+03_JPRB,0.88545E+03_JPRB,0.11622E+04_JPRB /)  
+KB(:, 1,27,16) = (/ &
+ & 0.60914E+03_JPRB,0.57105E+03_JPRB,0.60371E+03_JPRB,0.89145E+03_JPRB,0.11792E+04_JPRB /)  
+KB(:, 2,27,16) = (/ &
+ & 0.26439E+03_JPRB,0.15182E+03_JPRB,0.60316E+03_JPRB,0.89062E+03_JPRB,0.11781E+04_JPRB /)  
+KB(:, 3,27,16) = (/ &
+ & 0.73685E+03_JPRB,0.69813E+03_JPRB,0.60238E+03_JPRB,0.88259E+03_JPRB,0.11765E+04_JPRB /)  
+KB(:, 4,27,16) = (/ &
+ & 0.64054E+03_JPRB,0.28524E+03_JPRB,0.60110E+03_JPRB,0.88751E+03_JPRB,0.11649E+04_JPRB /)  
+KB(:, 5,27,16) = (/ &
+ & 0.75244E+03_JPRB,0.50359E+03_JPRB,0.59461E+03_JPRB,0.87791E+03_JPRB,0.11702E+04_JPRB /)  
+KB(:, 1,28,16) = (/ &
+ & 0.64046E+03_JPRB,0.15170E+03_JPRB,0.60358E+03_JPRB,0.89127E+03_JPRB,0.11790E+04_JPRB /)  
+KB(:, 2,28,16) = (/ &
+ & 0.70429E+03_JPRB,0.23052E+03_JPRB,0.60299E+03_JPRB,0.89037E+03_JPRB,0.11687E+04_JPRB /)  
+KB(:, 3,28,16) = (/ &
+ & 0.44006E+03_JPRB,0.41240E+03_JPRB,0.60212E+03_JPRB,0.88904E+03_JPRB,0.11760E+04_JPRB /)  
+KB(:, 4,28,16) = (/ &
+ & 0.22398E+03_JPRB,0.59419E+03_JPRB,0.60069E+03_JPRB,0.88691E+03_JPRB,0.11731E+04_JPRB /)  
+KB(:, 5,28,16) = (/ &
+ & 0.55183E+03_JPRB,0.13336E+03_JPRB,0.59871E+03_JPRB,0.87038E+03_JPRB,0.11692E+04_JPRB /)  
+KB(:, 1,29,16) = (/ &
+ & 0.59987E+03_JPRB,0.49106E+03_JPRB,0.60344E+03_JPRB,0.89107E+03_JPRB,0.11787E+04_JPRB /)  
+KB(:, 2,29,16) = (/ &
+ & 0.34384E+03_JPRB,0.96976E+02_JPRB,0.60280E+03_JPRB,0.89009E+03_JPRB,0.11774E+04_JPRB /)  
+KB(:, 3,29,16) = (/ &
+ & 0.54363E+03_JPRB,0.20603E+03_JPRB,0.60181E+03_JPRB,0.88860E+03_JPRB,0.11754E+04_JPRB /)  
+KB(:, 4,29,16) = (/ &
+ & 0.10391E+04_JPRB,0.38775E+03_JPRB,0.60023E+03_JPRB,0.88623E+03_JPRB,0.11632E+04_JPRB /)  
+KB(:, 5,29,16) = (/ &
+ & 0.22377E+03_JPRB,0.17567E+03_JPRB,0.59820E+03_JPRB,0.88324E+03_JPRB,0.11684E+04_JPRB /)  
+KB(:, 1,30,16) = (/ &
+ & 0.63138E+03_JPRB,0.68455E+03_JPRB,0.60329E+03_JPRB,0.89085E+03_JPRB,0.11784E+04_JPRB /)  
+KB(:, 2,30,16) = (/ &
+ & 0.58332E+03_JPRB,0.21199E+03_JPRB,0.60259E+03_JPRB,0.88978E+03_JPRB,0.11770E+04_JPRB /)  
+KB(:, 3,30,16) = (/ &
+ & 0.33555E+03_JPRB,0.46024E+03_JPRB,0.59221E+03_JPRB,0.88809E+03_JPRB,0.11657E+04_JPRB /)  
+KB(:, 4,30,16) = (/ &
+ & 0.44733E+03_JPRB,0.32696E+03_JPRB,0.59512E+03_JPRB,0.88550E+03_JPRB,0.11713E+04_JPRB /)  
+KB(:, 5,30,16) = (/ &
+ & 0.79071E+03_JPRB,0.72043E+03_JPRB,0.59773E+03_JPRB,0.85548E+03_JPRB,0.11586E+04_JPRB /)  
+KB(:, 1,31,16) = (/ &
+ & 0.81471E+03_JPRB,0.68414E+03_JPRB,0.60312E+03_JPRB,0.89060E+03_JPRB,0.11781E+04_JPRB /)  
+KB(:, 2,31,16) = (/ &
+ & 0.44722E+03_JPRB,0.73246E+03_JPRB,0.60235E+03_JPRB,0.88942E+03_JPRB,0.11765E+04_JPRB /)  
+KB(:, 3,31,16) = (/ &
+ & 0.48709E+03_JPRB,0.24210E+03_JPRB,0.60108E+03_JPRB,0.88068E+03_JPRB,0.11739E+04_JPRB /)  
+KB(:, 4,31,16) = (/ &
+ & 0.63873E+03_JPRB,0.56888E+03_JPRB,0.59920E+03_JPRB,0.88472E+03_JPRB,0.11702E+04_JPRB /)  
+KB(:, 5,31,16) = (/ &
+ & 0.72647E+03_JPRB,0.26020E+03_JPRB,0.59739E+03_JPRB,0.78035E+03_JPRB,0.11669E+04_JPRB /)  
+KB(:, 1,32,16) = (/ &
+ & 0.10219E+04_JPRB,0.29652E+03_JPRB,0.60294E+03_JPRB,0.89034E+03_JPRB,0.11777E+04_JPRB /)  
+KB(:, 2,32,16) = (/ &
+ & 0.75833E+03_JPRB,0.13311E+03_JPRB,0.59281E+03_JPRB,0.88900E+03_JPRB,0.11759E+04_JPRB /)  
+KB(:, 3,32,16) = (/ &
+ & 0.54275E+03_JPRB,0.31460E+03_JPRB,0.59602E+03_JPRB,0.88686E+03_JPRB,0.11731E+04_JPRB /)  
+KB(:, 4,32,16) = (/ &
+ & 0.28731E+03_JPRB,0.15124E+03_JPRB,0.59865E+03_JPRB,0.87712E+03_JPRB,0.11692E+04_JPRB /)  
+KB(:, 5,32,16) = (/ &
+ & 0.79004E+03_JPRB,0.63514E+03_JPRB,0.58791E+03_JPRB,0.86135E+03_JPRB,0.11214E+04_JPRB /)  
+KB(:, 1,33,16) = (/ &
+ & 0.42295E+03_JPRB,0.52022E+03_JPRB,0.60275E+03_JPRB,0.88319E+03_JPRB,0.11773E+04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART36',1,ZHOOK_HANDLE)
+END SUBROUTINE PART36
+
+
+SUBROUTINE PART37
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART37',0,ZHOOK_HANDLE)
+
+
+KB(:, 2,33,16) = (/ &
+ & 0.72614E+03_JPRB,0.33266E+03_JPRB,0.60175E+03_JPRB,0.88169E+03_JPRB,0.11753E+04_JPRB /)  
+KB(:, 3,33,16) = (/ &
+ & 0.36703E+03_JPRB,0.22982E+03_JPRB,0.59554E+03_JPRB,0.88614E+03_JPRB,0.11721E+04_JPRB /)  
+KB(:, 4,33,16) = (/ &
+ & 0.23137E+03_JPRB,0.32656E+03_JPRB,0.59813E+03_JPRB,0.88315E+03_JPRB,0.11503E+04_JPRB /)  
+KB(:, 5,33,16) = (/ &
+ & 0.98125E+03_JPRB,0.60471E+03_JPRB,0.59681E+03_JPRB,0.86770E+03_JPRB,0.11478E+04_JPRB /)  
+KB(:, 1,34,16) = (/ &
+ & 0.44676E+03_JPRB,0.16327E+03_JPRB,0.59792E+03_JPRB,0.88976E+03_JPRB,0.11770E+04_JPRB /)  
+KB(:, 2,34,16) = (/ &
+ & 0.27122E+03_JPRB,0.52002E+03_JPRB,0.60144E+03_JPRB,0.88807E+03_JPRB,0.11747E+04_JPRB /)  
+KB(:, 3,34,16) = (/ &
+ & 0.89338E+03_JPRB,0.37487E+03_JPRB,0.59509E+03_JPRB,0.87866E+03_JPRB,0.11622E+04_JPRB /)  
+KB(:, 4,34,16) = (/ &
+ & 0.43071E+03_JPRB,0.56832E+03_JPRB,0.58850E+03_JPRB,0.83509E+03_JPRB,0.10958E+04_JPRB /)  
+KB(:, 5,34,16) = (/ &
+ & 0.20737E+03_JPRB,0.35064E+03_JPRB,0.59655E+03_JPRB,0.88088E+03_JPRB,0.11652E+04_JPRB /)  
+KB(:, 1,35,16) = (/ &
+ & 0.79758E+02_JPRB,0.10278E+03_JPRB,0.60244E+03_JPRB,0.87589E+03_JPRB,0.11767E+04_JPRB /)  
+KB(:, 2,35,16) = (/ &
+ & 0.52637E+03_JPRB,0.56826E+03_JPRB,0.60124E+03_JPRB,0.88778E+03_JPRB,0.11743E+04_JPRB /)  
+KB(:, 3,35,16) = (/ &
+ & 0.43064E+03_JPRB,0.29620E+03_JPRB,0.59943E+03_JPRB,0.88508E+03_JPRB,0.11707E+04_JPRB /)  
+KB(:, 4,35,16) = (/ &
+ & 0.21531E+03_JPRB,0.74954E+03_JPRB,0.57453E+03_JPRB,0.86197E+03_JPRB,0.11223E+04_JPRB /)  
+KB(:, 5,35,16) = (/ &
+ & 0.85323E+03_JPRB,0.27200E+03_JPRB,0.59640E+03_JPRB,0.88066E+03_JPRB,0.11649E+04_JPRB /)  
+KB(:, 1,36,16) = (/ &
+ & 0.99678E+03_JPRB,0.21760E+03_JPRB,0.60242E+03_JPRB,0.88955E+03_JPRB,0.11767E+04_JPRB /)  
+KB(:, 2,36,16) = (/ &
+ & 0.90902E+03_JPRB,0.40496E+03_JPRB,0.59196E+03_JPRB,0.88090E+03_JPRB,0.11742E+04_JPRB /)  
+KB(:, 3,36,16) = (/ &
+ & 0.38273E+03_JPRB,0.60439E+03_JPRB,0.59478E+03_JPRB,0.87820E+03_JPRB,0.11706E+04_JPRB /)  
+KB(:, 4,36,16) = (/ &
+ & 0.84516E+03_JPRB,0.25383E+03_JPRB,0.58829E+03_JPRB,0.79406E+03_JPRB,0.11312E+04_JPRB /)  
+KB(:, 5,36,16) = (/ &
+ & 0.45445E+03_JPRB,0.41700E+03_JPRB,0.59637E+03_JPRB,0.88062E+03_JPRB,0.11559E+04_JPRB /)  
+KB(:, 1,37,16) = (/ &
+ & 0.62987E+03_JPRB,0.44723E+03_JPRB,0.59790E+03_JPRB,0.88973E+03_JPRB,0.11769E+04_JPRB /)  
+KB(:, 2,37,16) = (/ &
+ & 0.80524E+03_JPRB,0.68894E+03_JPRB,0.59677E+03_JPRB,0.88802E+03_JPRB,0.11746E+04_JPRB /)  
+KB(:, 3,37,16) = (/ &
+ & 0.18337E+03_JPRB,0.45323E+03_JPRB,0.59504E+03_JPRB,0.88541E+03_JPRB,0.11712E+04_JPRB /)  
+KB(:, 4,37,16) = (/ &
+ & 0.50224E+03_JPRB,0.16920E+03_JPRB,0.59765E+03_JPRB,0.86220E+03_JPRB,0.11586E+04_JPRB /)  
+KB(:, 5,37,16) = (/ &
+ & 0.85299E+03_JPRB,0.22358E+03_JPRB,0.59652E+03_JPRB,0.88084E+03_JPRB,0.11652E+04_JPRB /)  
+KB(:, 1,38,16) = (/ &
+ & 0.91678E+03_JPRB,0.47738E+03_JPRB,0.59801E+03_JPRB,0.88990E+03_JPRB,0.11681E+04_JPRB /)  
+KB(:, 2,38,16) = (/ &
+ & 0.47033E+03_JPRB,0.39881E+03_JPRB,0.59234E+03_JPRB,0.88147E+03_JPRB,0.11750E+04_JPRB /)  
+KB(:, 3,38,16) = (/ &
+ & 0.69352E+03_JPRB,0.66467E+03_JPRB,0.59993E+03_JPRB,0.87901E+03_JPRB,0.11717E+04_JPRB /)  
+KB(:, 4,38,16) = (/ &
+ & 0.48625E+03_JPRB,0.32628E+03_JPRB,0.59330E+03_JPRB,0.86251E+03_JPRB,0.11590E+04_JPRB /)  
+KB(:, 5,38,16) = (/ &
+ & 0.31087E+03_JPRB,0.44108E+03_JPRB,0.58749E+03_JPRB,0.88107E+03_JPRB,0.11655E+04_JPRB /)  
+KB(:, 1,39,16) = (/ &
+ & 0.35870E+03_JPRB,0.11480E+03_JPRB,0.60275E+03_JPRB,0.89007E+03_JPRB,0.11774E+04_JPRB /)  
+KB(:, 2,39,16) = (/ &
+ & 0.37464E+03_JPRB,0.78547E+03_JPRB,0.59714E+03_JPRB,0.88174E+03_JPRB,0.11754E+04_JPRB /)  
+KB(:, 3,39,16) = (/ &
+ & 0.10123E+04_JPRB,0.30814E+03_JPRB,0.59558E+03_JPRB,0.87940E+03_JPRB,0.11722E+04_JPRB /)  
+KB(:, 4,39,16) = (/ &
+ & 0.17535E+03_JPRB,0.96668E+02_JPRB,0.59817E+03_JPRB,0.88323E+03_JPRB,0.11594E+04_JPRB /)  
+KB(:, 5,39,16) = (/ &
+ & 0.36664E+03_JPRB,0.56187E+03_JPRB,0.58764E+03_JPRB,0.86774E+03_JPRB,0.11658E+04_JPRB /)  
+KB(:, 1,40,16) = (/ &
+ & 0.48620E+03_JPRB,0.57396E+03_JPRB,0.60293E+03_JPRB,0.89033E+03_JPRB,0.11777E+04_JPRB /)  
+KB(:, 2,40,16) = (/ &
+ & 0.94847E+03_JPRB,0.62832E+03_JPRB,0.60206E+03_JPRB,0.88901E+03_JPRB,0.11760E+04_JPRB /)  
+KB(:, 3,40,16) = (/ &
+ & 0.54197E+03_JPRB,0.51352E+03_JPRB,0.60063E+03_JPRB,0.88687E+03_JPRB,0.11731E+04_JPRB /)  
+KB(:, 4,40,16) = (/ &
+ & 0.21519E+03_JPRB,0.61017E+03_JPRB,0.58944E+03_JPRB,0.86354E+03_JPRB,0.11692E+04_JPRB /)  
+KB(:, 5,40,16) = (/ &
+ & 0.27098E+03_JPRB,0.33831E+03_JPRB,0.58331E+03_JPRB,0.88170E+03_JPRB,0.10587E+04_JPRB /)  
+KB(:, 1,41,16) = (/ &
+ & 0.14346E+03_JPRB,0.26582E+03_JPRB,0.60309E+03_JPRB,0.89059E+03_JPRB,0.11781E+04_JPRB /)  
+KB(:, 2,41,16) = (/ &
+ & 0.76510E+03_JPRB,0.70682E+03_JPRB,0.60232E+03_JPRB,0.88941E+03_JPRB,0.11765E+04_JPRB /)  
+KB(:, 3,41,16) = (/ &
+ & 0.62163E+03_JPRB,0.16311E+03_JPRB,0.60105E+03_JPRB,0.88750E+03_JPRB,0.11649E+04_JPRB /)  
+KB(:, 4,41,16) = (/ &
+ & 0.87665E+02_JPRB,0.19331E+03_JPRB,0.59457E+03_JPRB,0.88472E+03_JPRB,0.11703E+04_JPRB /)  
+KB(:, 5,41,16) = (/ &
+ & 0.10041E+04_JPRB,0.44098E+03_JPRB,0.58818E+03_JPRB,0.72606E+03_JPRB,0.10412E+04_JPRB /)  
+KB(:, 1,42,16) = (/ &
+ & 0.66944E+03_JPRB,0.41079E+03_JPRB,0.60325E+03_JPRB,0.89083E+03_JPRB,0.11693E+04_JPRB /)  
+KB(:, 2,42,16) = (/ &
+ & 0.51801E+03_JPRB,0.25976E+03_JPRB,0.60255E+03_JPRB,0.88976E+03_JPRB,0.11770E+04_JPRB /)  
+KB(:, 3,42,16) = (/ &
+ & 0.23111E+03_JPRB,0.27788E+03_JPRB,0.58293E+03_JPRB,0.88808E+03_JPRB,0.11747E+04_JPRB /)  
+KB(:, 4,42,16) = (/ &
+ & 0.44627E+03_JPRB,0.35036E+03_JPRB,0.59971E+03_JPRB,0.87868E+03_JPRB,0.11713E+04_JPRB /)  
+KB(:, 5,42,16) = (/ &
+ & 0.75706E+03_JPRB,0.77924E+03_JPRB,0.59310E+03_JPRB,0.87584E+03_JPRB,0.11676E+04_JPRB /)  
+KB(:, 1,43,16) = (/ &
+ & 0.60566E+03_JPRB,0.10873E+03_JPRB,0.60342E+03_JPRB,0.89110E+03_JPRB,0.11697E+04_JPRB /)  
+KB(:, 2,43,16) = (/ &
+ & 0.92441E+03_JPRB,0.64634E+03_JPRB,0.59816E+03_JPRB,0.89014E+03_JPRB,0.11775E+04_JPRB /)  
+KB(:, 3,43,16) = (/ &
+ & 0.18329E+03_JPRB,0.35035E+03_JPRB,0.59722E+03_JPRB,0.88869E+03_JPRB,0.11755E+04_JPRB /)  
+KB(:, 4,43,16) = (/ &
+ & 0.34266E+03_JPRB,0.17517E+03_JPRB,0.59569E+03_JPRB,0.87957E+03_JPRB,0.11725E+04_JPRB /)  
+KB(:, 5,43,16) = (/ &
+ & 0.92438E+03_JPRB,0.90606E+02_JPRB,0.59829E+03_JPRB,0.88341E+03_JPRB,0.11057E+04_JPRB /)  
+KB(:, 1,44,16) = (/ &
+ & 0.38251E+03_JPRB,0.19934E+03_JPRB,0.60359E+03_JPRB,0.89135E+03_JPRB,0.11791E+04_JPRB /)  
+KB(:, 2,44,16) = (/ &
+ & 0.48609E+03_JPRB,0.71881E+03_JPRB,0.59839E+03_JPRB,0.89050E+03_JPRB,0.11689E+04_JPRB /)  
+KB(:, 3,44,16) = (/ &
+ & 0.54984E+03_JPRB,0.19933E+03_JPRB,0.59759E+03_JPRB,0.88926E+03_JPRB,0.11763E+04_JPRB /)  
+KB(:, 4,44,16) = (/ &
+ & 0.85264E+03_JPRB,0.64027E+03_JPRB,0.60090E+03_JPRB,0.88045E+03_JPRB,0.11736E+04_JPRB /)  
+KB(:, 5,44,16) = (/ &
+ & 0.88451E+03_JPRB,0.49530E+03_JPRB,0.59898E+03_JPRB,0.87082E+03_JPRB,0.11699E+04_JPRB /)  
+KB(:, 1,45,16) = (/ &
+ & 0.66936E+03_JPRB,0.51946E+03_JPRB,0.60373E+03_JPRB,0.89157E+03_JPRB,0.11794E+04_JPRB /)  
+KB(:, 2,45,16) = (/ &
+ & 0.95622E+03_JPRB,0.66442E+03_JPRB,0.60324E+03_JPRB,0.89082E+03_JPRB,0.11784E+04_JPRB /)  
+KB(:, 3,45,16) = (/ &
+ & 0.70122E+03_JPRB,0.25973E+03_JPRB,0.60254E+03_JPRB,0.88974E+03_JPRB,0.11769E+04_JPRB /)  
+KB(:, 4,45,16) = (/ &
+ & 0.13546E+03_JPRB,0.47717E+03_JPRB,0.59679E+03_JPRB,0.88805E+03_JPRB,0.11747E+04_JPRB /)  
+KB(:, 5,45,16) = (/ &
+ & 0.44623E+03_JPRB,0.47716E+03_JPRB,0.59968E+03_JPRB,0.87864E+03_JPRB,0.11712E+04_JPRB /)  
+KB(:, 1,46,16) = (/ &
+ & 0.16734E+03_JPRB,0.11476E+03_JPRB,0.60389E+03_JPRB,0.89176E+03_JPRB,0.11797E+04_JPRB /)  
+KB(:, 2,46,16) = (/ &
+ & 0.41435E+03_JPRB,0.59796E+03_JPRB,0.60344E+03_JPRB,0.89112E+03_JPRB,0.11697E+04_JPRB /)  
+KB(:, 3,46,16) = (/ &
+ & 0.78886E+03_JPRB,0.13892E+03_JPRB,0.60282E+03_JPRB,0.89018E+03_JPRB,0.11775E+04_JPRB /)  
+KB(:, 4,46,16) = (/ &
+ & 0.48606E+03_JPRB,0.76103E+03_JPRB,0.59263E+03_JPRB,0.88876E+03_JPRB,0.11756E+04_JPRB /)  
+KB(:, 5,46,16) = (/ &
+ & 0.77291E+03_JPRB,0.68855E+03_JPRB,0.59113E+03_JPRB,0.88648E+03_JPRB,0.11726E+04_JPRB /)  
+KB(:, 1,47,16) = (/ &
+ & 0.80479E+03_JPRB,0.70064E+03_JPRB,0.60443E+03_JPRB,0.89194E+03_JPRB,0.11799E+04_JPRB /)  
+KB(:, 2,47,16) = (/ &
+ & 0.74901E+03_JPRB,0.35032E+03_JPRB,0.60363E+03_JPRB,0.89142E+03_JPRB,0.11792E+04_JPRB /)  
+KB(:, 3,47,16) = (/ &
+ & 0.62948E+03_JPRB,0.48923E+03_JPRB,0.60309E+03_JPRB,0.89059E+03_JPRB,0.11690E+04_JPRB /)  
+KB(:, 4,47,16) = (/ &
+ & 0.87648E+02_JPRB,0.36239E+03_JPRB,0.60232E+03_JPRB,0.88257E+03_JPRB,0.11584E+04_JPRB /)  
+KB(:, 5,47,16) = (/ &
+ & 0.44621E+03_JPRB,0.42279E+03_JPRB,0.60106E+03_JPRB,0.88751E+03_JPRB,0.11740E+04_JPRB /)  
+KB(:, 1,48,16) = (/ &
+ & 0.39044E+03_JPRB,0.31407E+03_JPRB,0.60497E+03_JPRB,0.89220E+03_JPRB,0.11803E+04_JPRB /)  
+KB(:, 2,48,16) = (/ &
+ & 0.28685E+03_JPRB,0.50131E+03_JPRB,0.60379E+03_JPRB,0.89166E+03_JPRB,0.11795E+04_JPRB /)  
+KB(:, 3,48,16) = (/ &
+ & 0.38246E+03_JPRB,0.70665E+03_JPRB,0.60333E+03_JPRB,0.89096E+03_JPRB,0.11786E+04_JPRB /)  
+KB(:, 4,48,16) = (/ &
+ & 0.47011E+03_JPRB,0.61002E+03_JPRB,0.60267E+03_JPRB,0.88995E+03_JPRB,0.11772E+04_JPRB /)  
+KB(:, 5,48,16) = (/ &
+ & 0.36652E+03_JPRB,0.63417E+03_JPRB,0.60164E+03_JPRB,0.88155E+03_JPRB,0.11751E+04_JPRB /)  
+KB(:, 1,49,16) = (/ &
+ & 0.76492E+03_JPRB,0.96636E+02_JPRB,0.60550E+03_JPRB,0.89270E+03_JPRB,0.11810E+04_JPRB /)  
+KB(:, 2,49,16) = (/ &
+ & 0.23107E+03_JPRB,0.19931E+03_JPRB,0.60416E+03_JPRB,0.89186E+03_JPRB,0.11798E+04_JPRB /)  
+KB(:, 3,49,16) = (/ &
+ & 0.86850E+03_JPRB,0.30199E+03_JPRB,0.59890E+03_JPRB,0.89128E+03_JPRB,0.11790E+04_JPRB /)  
+KB(:, 4,49,16) = (/ &
+ & 0.27091E+03_JPRB,0.22951E+03_JPRB,0.60296E+03_JPRB,0.89040E+03_JPRB,0.11778E+04_JPRB /)  
+KB(:, 5,49,16) = (/ &
+ & 0.45416E+03_JPRB,0.53149E+03_JPRB,0.60212E+03_JPRB,0.88227E+03_JPRB,0.11761E+04_JPRB /)  
+KB(:, 1,50,16) = (/ &
+ & 0.39042E+03_JPRB,0.12079E+03_JPRB,0.60601E+03_JPRB,0.89316E+03_JPRB,0.11816E+04_JPRB /)  
+KB(:, 2,50,16) = (/ &
+ & 0.38245E+03_JPRB,0.73080E+03_JPRB,0.60467E+03_JPRB,0.89201E+03_JPRB,0.11709E+04_JPRB /)  
+KB(:, 3,50,16) = (/ &
+ & 0.19919E+03_JPRB,0.50733E+03_JPRB,0.60370E+03_JPRB,0.89153E+03_JPRB,0.11703E+04_JPRB /)  
+KB(:, 4,50,16) = (/ &
+ & 0.52587E+03_JPRB,0.41673E+03_JPRB,0.60320E+03_JPRB,0.89076E+03_JPRB,0.11693E+04_JPRB /)  
+KB(:, 5,50,16) = (/ &
+ & 0.25497E+03_JPRB,0.90594E+02_JPRB,0.59785E+03_JPRB,0.88966E+03_JPRB,0.11768E+04_JPRB /)  
+KB(:, 1,51,16) = (/ &
+ & 0.35058E+03_JPRB,0.56772E+03_JPRB,0.60650E+03_JPRB,0.89405E+03_JPRB,0.11830E+04_JPRB /)  
+KB(:, 2,51,16) = (/ &
+ & 0.39839E+03_JPRB,0.52545E+03_JPRB,0.60516E+03_JPRB,0.89238E+03_JPRB,0.11806E+04_JPRB /)  
+KB(:, 3,51,16) = (/ &
+ & 0.69319E+03_JPRB,0.65831E+03_JPRB,0.60384E+03_JPRB,0.89174E+03_JPRB,0.11796E+04_JPRB /)  
+KB(:, 4,51,16) = (/ &
+ & 0.66132E+03_JPRB,0.42881E+03_JPRB,0.60341E+03_JPRB,0.89108E+03_JPRB,0.11788E+04_JPRB /)  
+KB(:, 5,51,16) = (/ &
+ & 0.80473E+03_JPRB,0.49524E+03_JPRB,0.59814E+03_JPRB,0.88327E+03_JPRB,0.11775E+04_JPRB /)  
+KB(:, 1,52,16) = (/ &
+ & 0.75693E+03_JPRB,0.32010E+03_JPRB,0.60698E+03_JPRB,0.89551E+03_JPRB,0.11849E+04_JPRB /)  
+KB(:, 2,52,16) = (/ &
+ & 0.98002E+03_JPRB,0.74890E+03_JPRB,0.60565E+03_JPRB,0.89283E+03_JPRB,0.11812E+04_JPRB /)  
+KB(:, 3,52,16) = (/ &
+ & 0.42228E+03_JPRB,0.32613E+03_JPRB,0.60430E+03_JPRB,0.89190E+03_JPRB,0.11799E+04_JPRB /)  
+KB(:, 4,52,16) = (/ &
+ & 0.43025E+03_JPRB,0.70662E+03_JPRB,0.60359E+03_JPRB,0.89136E+03_JPRB,0.11791E+04_JPRB /)  
+KB(:, 5,52,16) = (/ &
+ & 0.81269E+03_JPRB,0.56167E+03_JPRB,0.60303E+03_JPRB,0.89051E+03_JPRB,0.11780E+04_JPRB /)  
+KB(:, 1,53,16) = (/ &
+ & 0.98002E+03_JPRB,0.61603E+03_JPRB,0.60747E+03_JPRB,0.89705E+03_JPRB,0.11870E+04_JPRB /)  
+KB(:, 2,53,16) = (/ &
+ & 0.28683E+03_JPRB,0.42277E+03_JPRB,0.60613E+03_JPRB,0.89328E+03_JPRB,0.11818E+04_JPRB /)  
+KB(:, 3,53,16) = (/ &
+ & 0.45415E+03_JPRB,0.68246E+03_JPRB,0.60479E+03_JPRB,0.89204E+03_JPRB,0.11801E+04_JPRB /)  
+KB(:, 4,53,16) = (/ &
+ & 0.78879E+03_JPRB,0.48920E+03_JPRB,0.60374E+03_JPRB,0.89159E+03_JPRB,0.11794E+04_JPRB /)  
+KB(:, 5,53,16) = (/ &
+ & 0.76488E+03_JPRB,0.14495E+03_JPRB,0.60326E+03_JPRB,0.89085E+03_JPRB,0.11694E+04_JPRB /)  
+KB(:, 1,54,16) = (/ &
+ & 0.67724E+03_JPRB,0.76701E+03_JPRB,0.60808E+03_JPRB,0.89852E+03_JPRB,0.11890E+04_JPRB /)  
+KB(:, 2,54,16) = (/ &
+ & 0.81269E+03_JPRB,0.24762E+03_JPRB,0.60658E+03_JPRB,0.89430E+03_JPRB,0.11833E+04_JPRB /)  
+KB(:, 3,54,16) = (/ &
+ & 0.94813E+03_JPRB,0.63414E+03_JPRB,0.60524E+03_JPRB,0.89246E+03_JPRB,0.11807E+04_JPRB /)  
+KB(:, 4,54,16) = (/ &
+ & 0.49398E+03_JPRB,0.28989E+03_JPRB,0.60390E+03_JPRB,0.88491E+03_JPRB,0.11797E+04_JPRB /)  
+KB(:, 5,54,16) = (/ &
+ & 0.89236E+03_JPRB,0.27781E+03_JPRB,0.60344E+03_JPRB,0.88428E+03_JPRB,0.11788E+04_JPRB /)  
+KB(:, 1,55,16) = (/ &
+ & 0.52586E+03_JPRB,0.77305E+03_JPRB,0.60906E+03_JPRB,0.89999E+03_JPRB,0.11909E+04_JPRB /)  
+KB(:, 2,55,16) = (/ &
+ & 0.54179E+03_JPRB,0.64018E+03_JPRB,0.60701E+03_JPRB,0.89560E+03_JPRB,0.11851E+04_JPRB /)  
+KB(:, 3,55,16) = (/ &
+ & 0.50992E+03_JPRB,0.60394E+03_JPRB,0.60567E+03_JPRB,0.88598E+03_JPRB,0.11812E+04_JPRB /)  
+KB(:, 4,55,16) = (/ &
+ & 0.63740E+03_JPRB,0.44088E+03_JPRB,0.60433E+03_JPRB,0.89191E+03_JPRB,0.11799E+04_JPRB /)  
+KB(:, 5,55,16) = (/ &
+ & 0.49398E+03_JPRB,0.37444E+03_JPRB,0.59895E+03_JPRB,0.89137E+03_JPRB,0.11791E+04_JPRB /)  
+KB(:, 1,56,16) = (/ &
+ & 0.90829E+03_JPRB,0.27177E+03_JPRB,0.61007E+03_JPRB,0.90151E+03_JPRB,0.11929E+04_JPRB /)  
+KB(:, 2,56,16) = (/ &
+ & 0.35854E+03_JPRB,0.24158E+03_JPRB,0.60744E+03_JPRB,0.89694E+03_JPRB,0.11869E+04_JPRB /)  
+KB(:, 3,56,16) = (/ &
+ & 0.59756E+03_JPRB,0.47107E+03_JPRB,0.60610E+03_JPRB,0.89325E+03_JPRB,0.11817E+04_JPRB /)  
+KB(:, 4,56,16) = (/ &
+ & 0.52585E+03_JPRB,0.35632E+03_JPRB,0.60476E+03_JPRB,0.89203E+03_JPRB,0.11801E+04_JPRB /)  
+KB(:, 5,56,16) = (/ &
+ & 0.27886E+03_JPRB,0.24761E+03_JPRB,0.59909E+03_JPRB,0.89157E+03_JPRB,0.11794E+04_JPRB /)  
+KB(:, 1,57,16) = (/ &
+ & 0.34260E+03_JPRB,0.66433E+03_JPRB,0.61112E+03_JPRB,0.90308E+03_JPRB,0.11950E+04_JPRB /)  
+KB(:, 2,57,16) = (/ &
+ & 0.66130E+03_JPRB,0.45295E+03_JPRB,0.60796E+03_JPRB,0.89834E+03_JPRB,0.11887E+04_JPRB /)  
+KB(:, 3,57,16) = (/ &
+ & 0.69317E+03_JPRB,0.42880E+03_JPRB,0.60653E+03_JPRB,0.89415E+03_JPRB,0.11831E+04_JPRB /)  
+KB(:, 4,57,16) = (/ &
+ & 0.27089E+03_JPRB,0.28385E+03_JPRB,0.60519E+03_JPRB,0.89241E+03_JPRB,0.11806E+04_JPRB /)  
+KB(:, 5,57,16) = (/ &
+ & 0.66926E+03_JPRB,0.34424E+03_JPRB,0.60385E+03_JPRB,0.89175E+03_JPRB,0.11797E+04_JPRB /)  
+KB(:, 1,58,16) = (/ &
+ & 0.96406E+03_JPRB,0.25365E+03_JPRB,0.61214E+03_JPRB,0.90462E+03_JPRB,0.11971E+04_JPRB /)  
+KB(:, 2,58,16) = (/ &
+ & 0.31073E+03_JPRB,0.28385E+03_JPRB,0.60888E+03_JPRB,0.89972E+03_JPRB,0.11906E+04_JPRB /)  
+KB(:, 3,58,16) = (/ &
+ & 0.96405E+03_JPRB,0.57374E+03_JPRB,0.60693E+03_JPRB,0.89536E+03_JPRB,0.11848E+04_JPRB /)  
+KB(:, 4,58,16) = (/ &
+ & 0.69316E+03_JPRB,0.13891E+03_JPRB,0.60560E+03_JPRB,0.89278E+03_JPRB,0.11811E+04_JPRB /)  
+KB(:, 5,58,16) = (/ &
+ & 0.59755E+03_JPRB,0.75492E+03_JPRB,0.60426E+03_JPRB,0.89189E+03_JPRB,0.11798E+04_JPRB /)  
+KB(:, 1,59,16) = (/ &
+ & 0.92422E+03_JPRB,0.39860E+03_JPRB,0.61256E+03_JPRB,0.90525E+03_JPRB,0.11979E+04_JPRB /)  
+KB(:, 2,59,16) = (/ &
+ & 0.78877E+03_JPRB,0.42275E+03_JPRB,0.60926E+03_JPRB,0.90029E+03_JPRB,0.11913E+04_JPRB /)  
+KB(:, 3,59,16) = (/ &
+ & 0.35853E+03_JPRB,0.65225E+03_JPRB,0.60710E+03_JPRB,0.89586E+03_JPRB,0.11854E+04_JPRB /)  
+KB(:, 4,59,16) = (/ &
+ & 0.54975E+03_JPRB,0.50730E+03_JPRB,0.60576E+03_JPRB,0.88606E+03_JPRB,0.11813E+04_JPRB /)  
+KB(:, 5,59,16) = (/ &
+ & 0.52585E+03_JPRB,0.62205E+03_JPRB,0.60442E+03_JPRB,0.89194E+03_JPRB,0.11799E+04_JPRB /)  
+
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB28:PART37',1,ZHOOK_HANDLE)
+END SUBROUTINE PART37
+
+
+END SUBROUTINE SRTM_KGB28
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb28.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb28.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb28.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_KGB28
+END SUBROUTINE SRTM_KGB28
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb29.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb29.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb29.F90	(revision 1989)
@@ -0,0 +1,2083 @@
+!OCL SCALAR
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif 
+SUBROUTINE SRTM_KGB29
+
+!     Originally by J.Delamere, Atmospheric & Environmental Research.
+!     Revision: 2.4
+!     BAND 29:   820-2600 cm-1 (low - H2O; high - CO2)
+!     Reformatted for F90 by JJMorcrette, ECMWF
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOESRTA29, ONLY : KA, KB, SELFREF, FORREF, SFLUXREF, RAYL &
+ & , ABSH2O, ABSCO2, LAYREFFR  
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+
+! KURUCZ
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB29',0,ZHOOK_HANDLE)
+SFLUXREF = (/ &
+ & 1.32880_JPRB    , 2.14018_JPRB    , 1.97612_JPRB    , 1.79000_JPRB    , &
+ & 1.51242_JPRB    , 1.22977_JPRB    , 1.06052_JPRB    , 0.800996_JPRB   , &
+ & 0.748053_JPRB   , 8.64369E-02_JPRB, 7.10675E-02_JPRB, 5.62425E-02_JPRB, &
+ & 4.46988E-02_JPRB, 3.07441E-02_JPRB, 1.16728E-02_JPRB, 1.65573E-03_JPRB /)  
+
+ABSCO2 = (/ &
+ & 2.90073E-06_JPRB, 2.12382E-05_JPRB, 1.03032E-04_JPRB, 1.86481E-04_JPRB, &
+ & 4.31997E-04_JPRB, 6.08238E-04_JPRB, 2.17603E-03_JPRB, 4.64479E-02_JPRB, &
+ & 2.96956_JPRB    , 14.9569_JPRB    , 28.4831_JPRB    , 61.3998_JPRB    , &
+ & 164.129_JPRB    , 832.282_JPRB    , 4995.02_JPRB    , 12678.1_JPRB     /)  
+     
+ABSH2O = (/ &
+ & 2.99508E-04_JPRB, 3.95012E-03_JPRB, 1.49316E-02_JPRB, 3.24384E-02_JPRB, &
+ & 6.92879E-02_JPRB, 0.123523_JPRB   , 0.360985_JPRB   , 1.86434_JPRB    , &
+ & 10.38157_JPRB   , 0.214129_JPRB   , 0.213914_JPRB   , 0.212781_JPRB   , &
+ & 0.215562_JPRB   , 0.218087_JPRB   , 0.220918_JPRB   , 0.218546_JPRB    /)  
+     
+!     Rayleigh extinction coefficient at v = 2200 cm-1.
+RAYL = 9.30E-11_JPRB
+
+LAYREFFR = 49
+
+!     ------------------------------------------------------------------
+
+!     The array KA contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels> ~100mb, temperatures, and binary
+!     species parameters (see taumol.f for definition).  The first 
+!     index in the array, JS, runs from 1 to 9, and corresponds to 
+!     different values of the binary species parameter.  For instance, 
+!     JS=1 refers to dry air, JS = 2 corresponds to the paramter value 1/8, 
+!     JS = 3 corresponds to the parameter value 2/8, etc.  The second index
+!     in the array, JT, which runs from 1 to 5, corresponds to different
+!     temperatures.  More specifically, JT = 3 means that the data are for
+!     the reference temperature TREF for this  pressure level, JT = 2 refers
+!     to TREF-15, JT = 1 is for TREF-30, JT = 4 is for TREF+15, and JT = 5
+!     is for TREF+30.  The third index, JP, runs from 1 to 13 and refers
+!     to the JPth reference pressure level (see taumol.f for these levels
+!     in mb).  The fourth index, IG, goes from 1 to 16, and indicates
+!     which g-interval the absorption coefficients are for.
+!     -----------------------------------------------------------------
+
+KA(:, 1, 1) = (/ &
+ & 0.11565E-03_JPRB,0.10123E-03_JPRB,0.90804E-04_JPRB,0.82282E-04_JPRB,0.71083E-04_JPRB /)  
+KA(:, 2, 1) = (/ &
+ & 0.96434E-04_JPRB,0.82830E-04_JPRB,0.72366E-04_JPRB,0.61803E-04_JPRB,0.52497E-04_JPRB /)  
+KA(:, 3, 1) = (/ &
+ & 0.64539E-04_JPRB,0.56659E-04_JPRB,0.46605E-04_JPRB,0.39815E-04_JPRB,0.37118E-04_JPRB /)  
+KA(:, 4, 1) = (/ &
+ & 0.34417E-04_JPRB,0.27113E-04_JPRB,0.25362E-04_JPRB,0.30345E-04_JPRB,0.36275E-04_JPRB /)  
+KA(:, 5, 1) = (/ &
+ & 0.12260E-04_JPRB,0.15856E-04_JPRB,0.20834E-04_JPRB,0.27363E-04_JPRB,0.36114E-04_JPRB /)  
+KA(:, 6, 1) = (/ &
+ & 0.10221E-04_JPRB,0.14598E-04_JPRB,0.19695E-04_JPRB,0.25976E-04_JPRB,0.33702E-04_JPRB /)  
+KA(:, 7, 1) = (/ &
+ & 0.97563E-05_JPRB,0.13809E-04_JPRB,0.20231E-04_JPRB,0.27238E-04_JPRB,0.36110E-04_JPRB /)  
+KA(:, 8, 1) = (/ &
+ & 0.14062E-04_JPRB,0.19587E-04_JPRB,0.27069E-04_JPRB,0.36937E-04_JPRB,0.49415E-04_JPRB /)  
+KA(:, 9, 1) = (/ &
+ & 0.36371E-04_JPRB,0.48122E-04_JPRB,0.61586E-04_JPRB,0.77647E-04_JPRB,0.99897E-04_JPRB /)  
+KA(:,10, 1) = (/ &
+ & 0.99203E-04_JPRB,0.12842E-03_JPRB,0.16588E-03_JPRB,0.20834E-03_JPRB,0.26000E-03_JPRB /)  
+KA(:,11, 1) = (/ &
+ & 0.13233E-03_JPRB,0.17318E-03_JPRB,0.22059E-03_JPRB,0.28904E-03_JPRB,0.36062E-03_JPRB /)  
+KA(:,12, 1) = (/ &
+ & 0.13379E-03_JPRB,0.17484E-03_JPRB,0.23687E-03_JPRB,0.30286E-03_JPRB,0.37504E-03_JPRB /)  
+KA(:,13, 1) = (/ &
+ & 0.11740E-03_JPRB,0.15667E-03_JPRB,0.20962E-03_JPRB,0.26768E-03_JPRB,0.33485E-03_JPRB /)  
+KA(:, 1, 2) = (/ &
+ & 0.10246E-03_JPRB,0.10450E-03_JPRB,0.97383E-04_JPRB,0.96398E-04_JPRB,0.10549E-03_JPRB /)  
+KA(:, 2, 2) = (/ &
+ & 0.10589E-03_JPRB,0.10240E-03_JPRB,0.95801E-04_JPRB,0.98509E-04_JPRB,0.11993E-03_JPRB /)  
+KA(:, 3, 2) = (/ &
+ & 0.94054E-04_JPRB,0.87009E-04_JPRB,0.10941E-03_JPRB,0.13486E-03_JPRB,0.15918E-03_JPRB /)  
+KA(:, 4, 2) = (/ &
+ & 0.11883E-03_JPRB,0.14236E-03_JPRB,0.16636E-03_JPRB,0.18235E-03_JPRB,0.19785E-03_JPRB /)  
+KA(:, 5, 2) = (/ &
+ & 0.17800E-03_JPRB,0.19347E-03_JPRB,0.20977E-03_JPRB,0.22730E-03_JPRB,0.25111E-03_JPRB /)  
+KA(:, 6, 2) = (/ &
+ & 0.22243E-03_JPRB,0.24157E-03_JPRB,0.26567E-03_JPRB,0.28549E-03_JPRB,0.30723E-03_JPRB /)  
+KA(:, 7, 2) = (/ &
+ & 0.29248E-03_JPRB,0.32242E-03_JPRB,0.34635E-03_JPRB,0.37915E-03_JPRB,0.40803E-03_JPRB /)  
+KA(:, 8, 2) = (/ &
+ & 0.43386E-03_JPRB,0.48611E-03_JPRB,0.52681E-03_JPRB,0.56812E-03_JPRB,0.60642E-03_JPRB /)  
+KA(:, 9, 2) = (/ &
+ & 0.89109E-03_JPRB,0.10345E-02_JPRB,0.11794E-02_JPRB,0.13045E-02_JPRB,0.14303E-02_JPRB /)  
+KA(:,10, 2) = (/ &
+ & 0.21538E-02_JPRB,0.24459E-02_JPRB,0.27329E-02_JPRB,0.30932E-02_JPRB,0.35253E-02_JPRB /)  
+KA(:,11, 2) = (/ &
+ & 0.29272E-02_JPRB,0.32676E-02_JPRB,0.36353E-02_JPRB,0.40062E-02_JPRB,0.45441E-02_JPRB /)  
+KA(:,12, 2) = (/ &
+ & 0.30762E-02_JPRB,0.34365E-02_JPRB,0.38146E-02_JPRB,0.41556E-02_JPRB,0.47164E-02_JPRB /)  
+KA(:,13, 2) = (/ &
+ & 0.27808E-02_JPRB,0.31114E-02_JPRB,0.34383E-02_JPRB,0.37954E-02_JPRB,0.42576E-02_JPRB /)  
+KA(:, 1, 3) = (/ &
+ & 0.24042E-03_JPRB,0.32719E-03_JPRB,0.44370E-03_JPRB,0.56836E-03_JPRB,0.70357E-03_JPRB /)  
+KA(:, 2, 3) = (/ &
+ & 0.23303E-03_JPRB,0.31901E-03_JPRB,0.41926E-03_JPRB,0.52400E-03_JPRB,0.62365E-03_JPRB /)  
+KA(:, 3, 3) = (/ &
+ & 0.35050E-03_JPRB,0.42158E-03_JPRB,0.47490E-03_JPRB,0.53390E-03_JPRB,0.60411E-03_JPRB /)  
+KA(:, 4, 3) = (/ &
+ & 0.49954E-03_JPRB,0.53067E-03_JPRB,0.56338E-03_JPRB,0.60859E-03_JPRB,0.66569E-03_JPRB /)  
+KA(:, 5, 3) = (/ &
+ & 0.66908E-03_JPRB,0.69727E-03_JPRB,0.72898E-03_JPRB,0.76756E-03_JPRB,0.80358E-03_JPRB /)  
+KA(:, 6, 3) = (/ &
+ & 0.88634E-03_JPRB,0.92853E-03_JPRB,0.96856E-03_JPRB,0.10101E-02_JPRB,0.10556E-02_JPRB /)  
+KA(:, 7, 3) = (/ &
+ & 0.11659E-02_JPRB,0.12355E-02_JPRB,0.13238E-02_JPRB,0.13889E-02_JPRB,0.14491E-02_JPRB /)  
+KA(:, 8, 3) = (/ &
+ & 0.17485E-02_JPRB,0.18223E-02_JPRB,0.19411E-02_JPRB,0.20705E-02_JPRB,0.22025E-02_JPRB /)  
+KA(:, 9, 3) = (/ &
+ & 0.42442E-02_JPRB,0.43561E-02_JPRB,0.45061E-02_JPRB,0.47505E-02_JPRB,0.50358E-02_JPRB /)  
+KA(:,10, 3) = (/ &
+ & 0.10940E-01_JPRB,0.11499E-01_JPRB,0.11906E-01_JPRB,0.12570E-01_JPRB,0.12803E-01_JPRB /)  
+KA(:,11, 3) = (/ &
+ & 0.14287E-01_JPRB,0.15010E-01_JPRB,0.15581E-01_JPRB,0.16054E-01_JPRB,0.16609E-01_JPRB /)  
+KA(:,12, 3) = (/ &
+ & 0.14856E-01_JPRB,0.15546E-01_JPRB,0.16074E-01_JPRB,0.16478E-01_JPRB,0.17057E-01_JPRB /)  
+KA(:,13, 3) = (/ &
+ & 0.13257E-01_JPRB,0.13834E-01_JPRB,0.14155E-01_JPRB,0.14723E-01_JPRB,0.15095E-01_JPRB /)  
+KA(:, 1, 4) = (/ &
+ & 0.24391E-02_JPRB,0.28720E-02_JPRB,0.33497E-02_JPRB,0.38926E-02_JPRB,0.45054E-02_JPRB /)  
+KA(:, 2, 4) = (/ &
+ & 0.22506E-02_JPRB,0.26004E-02_JPRB,0.30002E-02_JPRB,0.34490E-02_JPRB,0.39579E-02_JPRB /)  
+KA(:, 3, 4) = (/ &
+ & 0.22153E-02_JPRB,0.25711E-02_JPRB,0.29320E-02_JPRB,0.33330E-02_JPRB,0.37728E-02_JPRB /)  
+KA(:, 4, 4) = (/ &
+ & 0.22483E-02_JPRB,0.25445E-02_JPRB,0.28745E-02_JPRB,0.32484E-02_JPRB,0.36554E-02_JPRB /)  
+KA(:, 5, 4) = (/ &
+ & 0.23388E-02_JPRB,0.25985E-02_JPRB,0.28914E-02_JPRB,0.32377E-02_JPRB,0.36113E-02_JPRB /)  
+KA(:, 6, 4) = (/ &
+ & 0.24669E-02_JPRB,0.26579E-02_JPRB,0.28834E-02_JPRB,0.31538E-02_JPRB,0.34593E-02_JPRB /)  
+KA(:, 7, 4) = (/ &
+ & 0.32536E-02_JPRB,0.33413E-02_JPRB,0.34375E-02_JPRB,0.35905E-02_JPRB,0.38010E-02_JPRB /)  
+KA(:, 8, 4) = (/ &
+ & 0.51228E-02_JPRB,0.51967E-02_JPRB,0.52820E-02_JPRB,0.53446E-02_JPRB,0.53797E-02_JPRB /)  
+KA(:, 9, 4) = (/ &
+ & 0.13029E-01_JPRB,0.13065E-01_JPRB,0.12891E-01_JPRB,0.12848E-01_JPRB,0.12777E-01_JPRB /)  
+KA(:,10, 4) = (/ &
+ & 0.29911E-01_JPRB,0.30117E-01_JPRB,0.28340E-01_JPRB,0.27321E-01_JPRB,0.27485E-01_JPRB /)  
+KA(:,11, 4) = (/ &
+ & 0.36663E-01_JPRB,0.36877E-01_JPRB,0.34688E-01_JPRB,0.33004E-01_JPRB,0.32437E-01_JPRB /)  
+KA(:,12, 4) = (/ &
+ & 0.37282E-01_JPRB,0.37775E-01_JPRB,0.34910E-01_JPRB,0.33463E-01_JPRB,0.33074E-01_JPRB /)  
+KA(:,13, 4) = (/ &
+ & 0.33412E-01_JPRB,0.32961E-01_JPRB,0.30323E-01_JPRB,0.29437E-01_JPRB,0.29572E-01_JPRB /)  
+KA(:, 1, 5) = (/ &
+ & 0.20792E-01_JPRB,0.22727E-01_JPRB,0.25207E-01_JPRB,0.27650E-01_JPRB,0.29866E-01_JPRB /)  
+KA(:, 2, 5) = (/ &
+ & 0.17515E-01_JPRB,0.19421E-01_JPRB,0.21509E-01_JPRB,0.23389E-01_JPRB,0.25418E-01_JPRB /)  
+KA(:, 3, 5) = (/ &
+ & 0.14912E-01_JPRB,0.16535E-01_JPRB,0.18159E-01_JPRB,0.19873E-01_JPRB,0.21718E-01_JPRB /)  
+KA(:, 4, 5) = (/ &
+ & 0.13498E-01_JPRB,0.14786E-01_JPRB,0.16253E-01_JPRB,0.17812E-01_JPRB,0.19494E-01_JPRB /)  
+KA(:, 5, 5) = (/ &
+ & 0.12840E-01_JPRB,0.13983E-01_JPRB,0.15257E-01_JPRB,0.16617E-01_JPRB,0.18015E-01_JPRB /)  
+KA(:, 6, 5) = (/ &
+ & 0.12557E-01_JPRB,0.13714E-01_JPRB,0.14939E-01_JPRB,0.16145E-01_JPRB,0.17356E-01_JPRB /)  
+KA(:, 7, 5) = (/ &
+ & 0.11839E-01_JPRB,0.12951E-01_JPRB,0.14090E-01_JPRB,0.15237E-01_JPRB,0.16396E-01_JPRB /)  
+KA(:, 8, 5) = (/ &
+ & 0.13190E-01_JPRB,0.13998E-01_JPRB,0.14783E-01_JPRB,0.15641E-01_JPRB,0.16632E-01_JPRB /)  
+KA(:, 9, 5) = (/ &
+ & 0.24479E-01_JPRB,0.24660E-01_JPRB,0.25206E-01_JPRB,0.25571E-01_JPRB,0.26098E-01_JPRB /)  
+KA(:,10, 5) = (/ &
+ & 0.62373E-01_JPRB,0.60241E-01_JPRB,0.61372E-01_JPRB,0.61530E-01_JPRB,0.60978E-01_JPRB /)  
+KA(:,11, 5) = (/ &
+ & 0.76394E-01_JPRB,0.73727E-01_JPRB,0.74701E-01_JPRB,0.75649E-01_JPRB,0.75608E-01_JPRB /)  
+KA(:,12, 5) = (/ &
+ & 0.76656E-01_JPRB,0.73608E-01_JPRB,0.75610E-01_JPRB,0.76362E-01_JPRB,0.76033E-01_JPRB /)  
+KA(:,13, 5) = (/ &
+ & 0.66025E-01_JPRB,0.64890E-01_JPRB,0.66873E-01_JPRB,0.66992E-01_JPRB,0.66685E-01_JPRB /)  
+KA(:, 1, 6) = (/ &
+ & 0.99799E-01_JPRB,0.10479E+00_JPRB,0.10918E+00_JPRB,0.11347E+00_JPRB,0.11767E+00_JPRB /)  
+KA(:, 2, 6) = (/ &
+ & 0.87946E-01_JPRB,0.91820E-01_JPRB,0.95208E-01_JPRB,0.99071E-01_JPRB,0.10286E+00_JPRB /)  
+KA(:, 3, 6) = (/ &
+ & 0.76753E-01_JPRB,0.80377E-01_JPRB,0.84204E-01_JPRB,0.87924E-01_JPRB,0.91370E-01_JPRB /)  
+KA(:, 4, 6) = (/ &
+ & 0.67002E-01_JPRB,0.70630E-01_JPRB,0.73736E-01_JPRB,0.76764E-01_JPRB,0.79671E-01_JPRB /)  
+KA(:, 5, 6) = (/ &
+ & 0.58933E-01_JPRB,0.61857E-01_JPRB,0.64756E-01_JPRB,0.67323E-01_JPRB,0.69871E-01_JPRB /)  
+KA(:, 6, 6) = (/ &
+ & 0.53143E-01_JPRB,0.55386E-01_JPRB,0.57507E-01_JPRB,0.59715E-01_JPRB,0.62263E-01_JPRB /)  
+KA(:, 7, 6) = (/ &
+ & 0.50856E-01_JPRB,0.52603E-01_JPRB,0.54414E-01_JPRB,0.56230E-01_JPRB,0.58483E-01_JPRB /)  
+KA(:, 8, 6) = (/ &
+ & 0.50528E-01_JPRB,0.52598E-01_JPRB,0.54634E-01_JPRB,0.56710E-01_JPRB,0.58872E-01_JPRB /)  
+KA(:, 9, 6) = (/ &
+ & 0.64616E-01_JPRB,0.65915E-01_JPRB,0.67210E-01_JPRB,0.68742E-01_JPRB,0.70092E-01_JPRB /)  
+KA(:,10, 6) = (/ &
+ & 0.11509E+00_JPRB,0.11448E+00_JPRB,0.11368E+00_JPRB,0.11348E+00_JPRB,0.11401E+00_JPRB /)  
+KA(:,11, 6) = (/ &
+ & 0.14266E+00_JPRB,0.13997E+00_JPRB,0.13810E+00_JPRB,0.13688E+00_JPRB,0.13622E+00_JPRB /)  
+KA(:,12, 6) = (/ &
+ & 0.14464E+00_JPRB,0.14198E+00_JPRB,0.13915E+00_JPRB,0.13789E+00_JPRB,0.13781E+00_JPRB /)  
+KA(:,13, 6) = (/ &
+ & 0.12550E+00_JPRB,0.12328E+00_JPRB,0.12173E+00_JPRB,0.12127E+00_JPRB,0.12078E+00_JPRB /)  
+KA(:, 1, 7) = (/ &
+ & 0.30825E+00_JPRB,0.31119E+00_JPRB,0.31335E+00_JPRB,0.31641E+00_JPRB,0.32024E+00_JPRB /)  
+KA(:, 2, 7) = (/ &
+ & 0.28100E+00_JPRB,0.28660E+00_JPRB,0.29192E+00_JPRB,0.29680E+00_JPRB,0.30014E+00_JPRB /)  
+KA(:, 3, 7) = (/ &
+ & 0.26374E+00_JPRB,0.27129E+00_JPRB,0.27887E+00_JPRB,0.28626E+00_JPRB,0.29478E+00_JPRB /)  
+KA(:, 4, 7) = (/ &
+ & 0.24539E+00_JPRB,0.25325E+00_JPRB,0.26070E+00_JPRB,0.26955E+00_JPRB,0.27794E+00_JPRB /)  
+KA(:, 5, 7) = (/ &
+ & 0.21737E+00_JPRB,0.22642E+00_JPRB,0.23531E+00_JPRB,0.24408E+00_JPRB,0.25322E+00_JPRB /)  
+KA(:, 6, 7) = (/ &
+ & 0.19066E+00_JPRB,0.19913E+00_JPRB,0.20834E+00_JPRB,0.21782E+00_JPRB,0.22698E+00_JPRB /)  
+KA(:, 7, 7) = (/ &
+ & 0.17386E+00_JPRB,0.18325E+00_JPRB,0.19211E+00_JPRB,0.20024E+00_JPRB,0.20881E+00_JPRB /)  
+KA(:, 8, 7) = (/ &
+ & 0.17625E+00_JPRB,0.18236E+00_JPRB,0.18905E+00_JPRB,0.19574E+00_JPRB,0.20193E+00_JPRB /)  
+KA(:, 9, 7) = (/ &
+ & 0.21820E+00_JPRB,0.22416E+00_JPRB,0.22986E+00_JPRB,0.23737E+00_JPRB,0.24518E+00_JPRB /)  
+KA(:,10, 7) = (/ &
+ & 0.33529E+00_JPRB,0.34302E+00_JPRB,0.35397E+00_JPRB,0.36397E+00_JPRB,0.37339E+00_JPRB /)  
+KA(:,11, 7) = (/ &
+ & 0.38474E+00_JPRB,0.39863E+00_JPRB,0.41168E+00_JPRB,0.42115E+00_JPRB,0.42917E+00_JPRB /)  
+KA(:,12, 7) = (/ &
+ & 0.38499E+00_JPRB,0.39580E+00_JPRB,0.40497E+00_JPRB,0.41279E+00_JPRB,0.42045E+00_JPRB /)  
+KA(:,13, 7) = (/ &
+ & 0.34291E+00_JPRB,0.35180E+00_JPRB,0.35970E+00_JPRB,0.36697E+00_JPRB,0.37460E+00_JPRB /)  
+KA(:, 1, 8) = (/ &
+ & 0.87131E+00_JPRB,0.87876E+00_JPRB,0.88509E+00_JPRB,0.89061E+00_JPRB,0.89432E+00_JPRB /)  
+KA(:, 2, 8) = (/ &
+ & 0.78963E+00_JPRB,0.79236E+00_JPRB,0.79978E+00_JPRB,0.80959E+00_JPRB,0.82163E+00_JPRB /)  
+KA(:, 3, 8) = (/ &
+ & 0.82479E+00_JPRB,0.82842E+00_JPRB,0.83069E+00_JPRB,0.83679E+00_JPRB,0.84334E+00_JPRB /)  
+KA(:, 4, 8) = (/ &
+ & 0.90877E+00_JPRB,0.91962E+00_JPRB,0.92466E+00_JPRB,0.93139E+00_JPRB,0.93904E+00_JPRB /)  
+KA(:, 5, 8) = (/ &
+ & 0.97131E+00_JPRB,0.99301E+00_JPRB,0.10095E+01_JPRB,0.10270E+01_JPRB,0.10371E+01_JPRB /)  
+KA(:, 6, 8) = (/ &
+ & 0.96984E+00_JPRB,0.10040E+01_JPRB,0.10393E+01_JPRB,0.10670E+01_JPRB,0.10990E+01_JPRB /)  
+KA(:, 7, 8) = (/ &
+ & 0.95686E+00_JPRB,0.10029E+01_JPRB,0.10449E+01_JPRB,0.10923E+01_JPRB,0.11334E+01_JPRB /)  
+KA(:, 8, 8) = (/ &
+ & 0.97227E+00_JPRB,0.10380E+01_JPRB,0.11014E+01_JPRB,0.11624E+01_JPRB,0.12218E+01_JPRB /)  
+KA(:, 9, 8) = (/ &
+ & 0.12290E+01_JPRB,0.13071E+01_JPRB,0.14005E+01_JPRB,0.15005E+01_JPRB,0.15980E+01_JPRB /)  
+KA(:,10, 8) = (/ &
+ & 0.17996E+01_JPRB,0.19304E+01_JPRB,0.20752E+01_JPRB,0.22219E+01_JPRB,0.23814E+01_JPRB /)  
+KA(:,11, 8) = (/ &
+ & 0.19289E+01_JPRB,0.20656E+01_JPRB,0.22166E+01_JPRB,0.23715E+01_JPRB,0.25386E+01_JPRB /)  
+KA(:,12, 8) = (/ &
+ & 0.18429E+01_JPRB,0.19765E+01_JPRB,0.21175E+01_JPRB,0.22722E+01_JPRB,0.24239E+01_JPRB /)  
+KA(:,13, 8) = (/ &
+ & 0.16420E+01_JPRB,0.17464E+01_JPRB,0.18635E+01_JPRB,0.19773E+01_JPRB,0.21012E+01_JPRB /)  
+KA(:, 1, 9) = (/ &
+ & 0.39892E+01_JPRB,0.40153E+01_JPRB,0.40324E+01_JPRB,0.40465E+01_JPRB,0.40524E+01_JPRB /)  
+KA(:, 2, 9) = (/ &
+ & 0.38871E+01_JPRB,0.39035E+01_JPRB,0.39123E+01_JPRB,0.39056E+01_JPRB,0.38966E+01_JPRB /)  
+KA(:, 3, 9) = (/ &
+ & 0.37883E+01_JPRB,0.37950E+01_JPRB,0.38080E+01_JPRB,0.37991E+01_JPRB,0.37826E+01_JPRB /)  
+KA(:, 4, 9) = (/ &
+ & 0.37778E+01_JPRB,0.37663E+01_JPRB,0.37745E+01_JPRB,0.37709E+01_JPRB,0.37556E+01_JPRB /)  
+KA(:, 5, 9) = (/ &
+ & 0.38757E+01_JPRB,0.38404E+01_JPRB,0.38539E+01_JPRB,0.39228E+01_JPRB,0.39777E+01_JPRB /)  
+KA(:, 6, 9) = (/ &
+ & 0.40990E+01_JPRB,0.41407E+01_JPRB,0.41745E+01_JPRB,0.42258E+01_JPRB,0.42574E+01_JPRB /)  
+KA(:, 7, 9) = (/ &
+ & 0.46288E+01_JPRB,0.46726E+01_JPRB,0.47096E+01_JPRB,0.47165E+01_JPRB,0.47374E+01_JPRB /)  
+KA(:, 8, 9) = (/ &
+ & 0.58432E+01_JPRB,0.58474E+01_JPRB,0.58608E+01_JPRB,0.58935E+01_JPRB,0.59261E+01_JPRB /)  
+KA(:, 9, 9) = (/ &
+ & 0.88685E+01_JPRB,0.88567E+01_JPRB,0.88137E+01_JPRB,0.87653E+01_JPRB,0.87262E+01_JPRB /)  
+KA(:,10, 9) = (/ &
+ & 0.10455E+02_JPRB,0.10242E+02_JPRB,0.10004E+02_JPRB,0.97643E+01_JPRB,0.95067E+01_JPRB /)  
+KA(:,11, 9) = (/ &
+ & 0.10240E+02_JPRB,0.99968E+01_JPRB,0.97347E+01_JPRB,0.94750E+01_JPRB,0.92006E+01_JPRB /)  
+KA(:,12, 9) = (/ &
+ & 0.10401E+02_JPRB,0.10165E+02_JPRB,0.99240E+01_JPRB,0.96656E+01_JPRB,0.94112E+01_JPRB /)  
+KA(:,13, 9) = (/ &
+ & 0.10764E+02_JPRB,0.10580E+02_JPRB,0.10381E+02_JPRB,0.10188E+02_JPRB,0.99802E+01_JPRB /)  
+KA(:, 1,10) = (/ &
+ & 0.10712E+02_JPRB,0.10575E+02_JPRB,0.10581E+02_JPRB,0.10556E+02_JPRB,0.10575E+02_JPRB /)  
+KA(:, 2,10) = (/ &
+ & 0.11144E+02_JPRB,0.11109E+02_JPRB,0.11034E+02_JPRB,0.11107E+02_JPRB,0.11138E+02_JPRB /)  
+KA(:, 3,10) = (/ &
+ & 0.12257E+02_JPRB,0.12112E+02_JPRB,0.11992E+02_JPRB,0.11951E+02_JPRB,0.12031E+02_JPRB /)  
+KA(:, 4,10) = (/ &
+ & 0.13040E+02_JPRB,0.13085E+02_JPRB,0.12882E+02_JPRB,0.12756E+02_JPRB,0.12737E+02_JPRB /)  
+KA(:, 5,10) = (/ &
+ & 0.13809E+02_JPRB,0.13771E+02_JPRB,0.13452E+02_JPRB,0.12567E+02_JPRB,0.12086E+02_JPRB /)  
+KA(:, 6,10) = (/ &
+ & 0.14608E+02_JPRB,0.13942E+02_JPRB,0.13365E+02_JPRB,0.13494E+02_JPRB,0.13762E+02_JPRB /)  
+KA(:, 7,10) = (/ &
+ & 0.14665E+02_JPRB,0.14685E+02_JPRB,0.15121E+02_JPRB,0.15602E+02_JPRB,0.15768E+02_JPRB /)  
+KA(:, 8,10) = (/ &
+ & 0.15612E+02_JPRB,0.16507E+02_JPRB,0.16644E+02_JPRB,0.16706E+02_JPRB,0.16696E+02_JPRB /)  
+KA(:, 9,10) = (/ &
+ & 0.15405E+02_JPRB,0.15874E+02_JPRB,0.16716E+02_JPRB,0.17957E+02_JPRB,0.17859E+02_JPRB /)  
+KA(:,10,10) = (/ &
+ & 0.19406E+00_JPRB,0.17932E+00_JPRB,0.16660E+00_JPRB,0.15558E+00_JPRB,0.14589E+00_JPRB /)  
+KA(:,11,10) = (/ &
+ & 0.27650E+00_JPRB,0.25556E+00_JPRB,0.23727E+00_JPRB,0.22182E+00_JPRB,0.20805E+00_JPRB /)  
+KA(:,12,10) = (/ &
+ & 0.29298E+00_JPRB,0.27044E+00_JPRB,0.25162E+00_JPRB,0.23497E+00_JPRB,0.22076E+00_JPRB /)  
+KA(:,13,10) = (/ &
+ & 0.24883E+00_JPRB,0.22985E+00_JPRB,0.21413E+00_JPRB,0.20012E+00_JPRB,0.18795E+00_JPRB /)  
+KA(:, 1,11) = (/ &
+ & 0.13650E+02_JPRB,0.13767E+02_JPRB,0.13771E+02_JPRB,0.13650E+02_JPRB,0.13663E+02_JPRB /)  
+KA(:, 2,11) = (/ &
+ & 0.15146E+02_JPRB,0.15253E+02_JPRB,0.15272E+02_JPRB,0.15152E+02_JPRB,0.15138E+02_JPRB /)  
+KA(:, 3,11) = (/ &
+ & 0.16834E+02_JPRB,0.17107E+02_JPRB,0.17158E+02_JPRB,0.17187E+02_JPRB,0.17057E+02_JPRB /)  
+KA(:, 4,11) = (/ &
+ & 0.19191E+02_JPRB,0.19144E+02_JPRB,0.19155E+02_JPRB,0.19247E+02_JPRB,0.19292E+02_JPRB /)  
+KA(:, 5,11) = (/ &
+ & 0.20953E+02_JPRB,0.21248E+02_JPRB,0.21186E+02_JPRB,0.21027E+02_JPRB,0.20703E+02_JPRB /)  
+KA(:, 6,11) = (/ &
+ & 0.22592E+02_JPRB,0.22192E+02_JPRB,0.22056E+02_JPRB,0.20972E+02_JPRB,0.19910E+02_JPRB /)  
+KA(:, 7,11) = (/ &
+ & 0.24652E+02_JPRB,0.23679E+02_JPRB,0.22339E+02_JPRB,0.21302E+02_JPRB,0.21697E+02_JPRB /)  
+KA(:, 8,11) = (/ &
+ & 0.22508E+02_JPRB,0.20438E+02_JPRB,0.20163E+02_JPRB,0.20628E+02_JPRB,0.20954E+02_JPRB /)  
+KA(:, 9,11) = (/ &
+ & 0.10264E+02_JPRB,0.85820E+01_JPRB,0.65270E+01_JPRB,0.38883E+01_JPRB,0.27974E+01_JPRB /)  
+KA(:,10,11) = (/ &
+ & 0.19324E+00_JPRB,0.17913E+00_JPRB,0.16619E+00_JPRB,0.15516E+00_JPRB,0.14524E+00_JPRB /)  
+KA(:,11,11) = (/ &
+ & 0.27573E+00_JPRB,0.25425E+00_JPRB,0.23627E+00_JPRB,0.22036E+00_JPRB,0.20639E+00_JPRB /)  
+KA(:,12,11) = (/ &
+ & 0.29224E+00_JPRB,0.26998E+00_JPRB,0.25055E+00_JPRB,0.23380E+00_JPRB,0.21908E+00_JPRB /)  
+KA(:,13,11) = (/ &
+ & 0.24964E+00_JPRB,0.23056E+00_JPRB,0.21391E+00_JPRB,0.19980E+00_JPRB,0.18698E+00_JPRB /)  
+KA(:, 1,12) = (/ &
+ & 0.17721E+02_JPRB,0.17805E+02_JPRB,0.17752E+02_JPRB,0.17857E+02_JPRB,0.17872E+02_JPRB /)  
+KA(:, 2,12) = (/ &
+ & 0.20222E+02_JPRB,0.20161E+02_JPRB,0.20267E+02_JPRB,0.20335E+02_JPRB,0.20254E+02_JPRB /)  
+KA(:, 3,12) = (/ &
+ & 0.23717E+02_JPRB,0.23414E+02_JPRB,0.23571E+02_JPRB,0.23552E+02_JPRB,0.23687E+02_JPRB /)  
+KA(:, 4,12) = (/ &
+ & 0.26876E+02_JPRB,0.26972E+02_JPRB,0.27155E+02_JPRB,0.26947E+02_JPRB,0.27025E+02_JPRB /)  
+KA(:, 5,12) = (/ &
+ & 0.30213E+02_JPRB,0.29978E+02_JPRB,0.30226E+02_JPRB,0.30477E+02_JPRB,0.30329E+02_JPRB /)  
+KA(:, 6,12) = (/ &
+ & 0.33660E+02_JPRB,0.33482E+02_JPRB,0.33159E+02_JPRB,0.32959E+02_JPRB,0.32299E+02_JPRB /)  
+KA(:, 7,12) = (/ &
+ & 0.35893E+02_JPRB,0.35649E+02_JPRB,0.35067E+02_JPRB,0.34565E+02_JPRB,0.32437E+02_JPRB /)  
+KA(:, 8,12) = (/ &
+ & 0.33426E+02_JPRB,0.33323E+02_JPRB,0.31984E+02_JPRB,0.29587E+02_JPRB,0.27505E+02_JPRB /)  
+KA(:, 9,12) = (/ &
+ & 0.46633E-01_JPRB,0.43205E-01_JPRB,0.40562E-01_JPRB,0.38133E-01_JPRB,0.35900E-01_JPRB /)  
+KA(:,10,12) = (/ &
+ & 0.19421E+00_JPRB,0.18024E+00_JPRB,0.16872E+00_JPRB,0.15815E+00_JPRB,0.14837E+00_JPRB /)  
+KA(:,11,12) = (/ &
+ & 0.27315E+00_JPRB,0.25480E+00_JPRB,0.23771E+00_JPRB,0.22191E+00_JPRB,0.20780E+00_JPRB /)  
+KA(:,12,12) = (/ &
+ & 0.29027E+00_JPRB,0.26969E+00_JPRB,0.25017E+00_JPRB,0.23314E+00_JPRB,0.21774E+00_JPRB /)  
+KA(:,13,12) = (/ &
+ & 0.24833E+00_JPRB,0.22943E+00_JPRB,0.21278E+00_JPRB,0.19800E+00_JPRB,0.18543E+00_JPRB /)  
+KA(:, 1,13) = (/ &
+ & 0.29672E+02_JPRB,0.29291E+02_JPRB,0.29191E+02_JPRB,0.29170E+02_JPRB,0.29116E+02_JPRB /)  
+KA(:, 2,13) = (/ &
+ & 0.24713E+02_JPRB,0.24965E+02_JPRB,0.25039E+02_JPRB,0.25355E+02_JPRB,0.25650E+02_JPRB /)  
+KA(:, 3,13) = (/ &
+ & 0.30510E+02_JPRB,0.31166E+02_JPRB,0.30663E+02_JPRB,0.31021E+02_JPRB,0.30901E+02_JPRB /)  
+KA(:, 4,13) = (/ &
+ & 0.38695E+02_JPRB,0.38922E+02_JPRB,0.38741E+02_JPRB,0.39204E+02_JPRB,0.38826E+02_JPRB /)  
+KA(:, 5,13) = (/ &
+ & 0.45118E+02_JPRB,0.44337E+02_JPRB,0.43664E+02_JPRB,0.43267E+02_JPRB,0.43524E+02_JPRB /)  
+KA(:, 6,13) = (/ &
+ & 0.34652E+02_JPRB,0.35182E+02_JPRB,0.35339E+02_JPRB,0.35340E+02_JPRB,0.35899E+02_JPRB /)  
+KA(:, 7,13) = (/ &
+ & 0.18801E+02_JPRB,0.18598E+02_JPRB,0.18855E+02_JPRB,0.18819E+02_JPRB,0.19052E+02_JPRB /)  
+KA(:, 8,13) = (/ &
+ & 0.12297E-01_JPRB,0.11425E-01_JPRB,0.10670E-01_JPRB,0.99994E-02_JPRB,0.94139E-02_JPRB /)  
+KA(:, 9,13) = (/ &
+ & 0.46821E-01_JPRB,0.43361E-01_JPRB,0.40368E-01_JPRB,0.37752E-01_JPRB,0.35493E-01_JPRB /)  
+KA(:,10,13) = (/ &
+ & 0.19817E+00_JPRB,0.18303E+00_JPRB,0.17002E+00_JPRB,0.15883E+00_JPRB,0.14933E+00_JPRB /)  
+KA(:,11,13) = (/ &
+ & 0.28145E+00_JPRB,0.25995E+00_JPRB,0.24181E+00_JPRB,0.22660E+00_JPRB,0.21326E+00_JPRB /)  
+KA(:,12,13) = (/ &
+ & 0.29510E+00_JPRB,0.27294E+00_JPRB,0.25519E+00_JPRB,0.23947E+00_JPRB,0.22551E+00_JPRB /)  
+KA(:,13,13) = (/ &
+ & 0.24830E+00_JPRB,0.23074E+00_JPRB,0.21556E+00_JPRB,0.20226E+00_JPRB,0.19029E+00_JPRB /)  
+KA(:, 1,14) = (/ &
+ & 0.47168E+02_JPRB,0.46890E+02_JPRB,0.46612E+02_JPRB,0.46353E+02_JPRB,0.46088E+02_JPRB /)  
+KA(:, 2,14) = (/ &
+ & 0.47771E+02_JPRB,0.46980E+02_JPRB,0.46445E+02_JPRB,0.45828E+02_JPRB,0.45437E+02_JPRB /)  
+KA(:, 3,14) = (/ &
+ & 0.42946E+02_JPRB,0.42652E+02_JPRB,0.43791E+02_JPRB,0.43237E+02_JPRB,0.44104E+02_JPRB /)  
+KA(:, 4,14) = (/ &
+ & 0.30957E+02_JPRB,0.30098E+02_JPRB,0.30055E+02_JPRB,0.29555E+02_JPRB,0.29902E+02_JPRB /)  
+KA(:, 5,14) = (/ &
+ & 0.28397E+01_JPRB,0.38572E+01_JPRB,0.42906E+01_JPRB,0.47091E+01_JPRB,0.48135E+01_JPRB /)  
+KA(:, 6,14) = (/ &
+ & 0.36978E-02_JPRB,0.34591E-02_JPRB,0.32524E-02_JPRB,0.30649E-02_JPRB,0.29018E-02_JPRB /)  
+KA(:, 7,14) = (/ &
+ & 0.61733E-02_JPRB,0.57589E-02_JPRB,0.53925E-02_JPRB,0.50742E-02_JPRB,0.47835E-02_JPRB /)  
+KA(:, 8,14) = (/ &
+ & 0.12390E-01_JPRB,0.11526E-01_JPRB,0.10766E-01_JPRB,0.10096E-01_JPRB,0.95010E-02_JPRB /)  
+KA(:, 9,14) = (/ &
+ & 0.47105E-01_JPRB,0.43648E-01_JPRB,0.40665E-01_JPRB,0.38054E-01_JPRB,0.35722E-01_JPRB /)  
+KA(:,10,14) = (/ &
+ & 0.19915E+00_JPRB,0.18412E+00_JPRB,0.17099E+00_JPRB,0.15957E+00_JPRB,0.14948E+00_JPRB /)  
+KA(:,11,14) = (/ &
+ & 0.28280E+00_JPRB,0.26124E+00_JPRB,0.24266E+00_JPRB,0.22645E+00_JPRB,0.21214E+00_JPRB /)  
+KA(:,12,14) = (/ &
+ & 0.29891E+00_JPRB,0.27613E+00_JPRB,0.25648E+00_JPRB,0.23927E+00_JPRB,0.22423E+00_JPRB /)  
+KA(:,13,14) = (/ &
+ & 0.25421E+00_JPRB,0.23484E+00_JPRB,0.21809E+00_JPRB,0.20347E+00_JPRB,0.19057E+00_JPRB /)  
+KA(:, 1,15) = (/ &
+ & 0.64994E+02_JPRB,0.64283E+02_JPRB,0.63755E+02_JPRB,0.63407E+02_JPRB,0.63287E+02_JPRB /)  
+KA(:, 2,15) = (/ &
+ & 0.78266E+02_JPRB,0.77364E+02_JPRB,0.76722E+02_JPRB,0.76285E+02_JPRB,0.75992E+02_JPRB /)  
+KA(:, 3,15) = (/ &
+ & 0.41710E+02_JPRB,0.38379E+02_JPRB,0.35076E+02_JPRB,0.35418E+02_JPRB,0.33306E+02_JPRB /)  
+KA(:, 4,15) = (/ &
+ & 0.14170E-02_JPRB,0.13401E-02_JPRB,0.12716E-02_JPRB,0.12073E-02_JPRB,0.11535E-02_JPRB /)  
+KA(:, 5,15) = (/ &
+ & 0.23659E-02_JPRB,0.22261E-02_JPRB,0.21042E-02_JPRB,0.19950E-02_JPRB,0.18970E-02_JPRB /)  
+KA(:, 6,15) = (/ &
+ & 0.37432E-02_JPRB,0.35105E-02_JPRB,0.33006E-02_JPRB,0.31222E-02_JPRB,0.29521E-02_JPRB /)  
+KA(:, 7,15) = (/ &
+ & 0.62408E-02_JPRB,0.58258E-02_JPRB,0.54782E-02_JPRB,0.51594E-02_JPRB,0.48767E-02_JPRB /)  
+KA(:, 8,15) = (/ &
+ & 0.12522E-01_JPRB,0.11652E-01_JPRB,0.10922E-01_JPRB,0.10265E-01_JPRB,0.96672E-02_JPRB /)  
+KA(:, 9,15) = (/ &
+ & 0.47545E-01_JPRB,0.44152E-01_JPRB,0.41251E-01_JPRB,0.38666E-01_JPRB,0.36358E-01_JPRB /)  
+KA(:,10,15) = (/ &
+ & 0.20097E+00_JPRB,0.18592E+00_JPRB,0.17341E+00_JPRB,0.16203E+00_JPRB,0.15235E+00_JPRB /)  
+KA(:,11,15) = (/ &
+ & 0.28499E+00_JPRB,0.26428E+00_JPRB,0.24585E+00_JPRB,0.22980E+00_JPRB,0.21575E+00_JPRB /)  
+KA(:,12,15) = (/ &
+ & 0.30172E+00_JPRB,0.27929E+00_JPRB,0.25980E+00_JPRB,0.24306E+00_JPRB,0.22789E+00_JPRB /)  
+KA(:,13,15) = (/ &
+ & 0.25655E+00_JPRB,0.23731E+00_JPRB,0.22092E+00_JPRB,0.20639E+00_JPRB,0.19367E+00_JPRB /)  
+KA(:, 1,16) = (/ &
+ & 0.80810E+02_JPRB,0.81099E+02_JPRB,0.81190E+02_JPRB,0.81107E+02_JPRB,0.80989E+02_JPRB /)  
+KA(:, 2,16) = (/ &
+ & 0.99319E+02_JPRB,0.99708E+02_JPRB,0.99822E+02_JPRB,0.99871E+02_JPRB,0.99993E+02_JPRB /)  
+KA(:, 3,16) = (/ &
+ & 0.46927E+02_JPRB,0.54316E+02_JPRB,0.57355E+02_JPRB,0.53715E+02_JPRB,0.52802E+02_JPRB /)  
+KA(:, 4,16) = (/ &
+ & 0.12802E-02_JPRB,0.12027E-02_JPRB,0.11386E-02_JPRB,0.10866E-02_JPRB,0.10525E-02_JPRB /)  
+KA(:, 5,16) = (/ &
+ & 0.21675E-02_JPRB,0.20715E-02_JPRB,0.19422E-02_JPRB,0.18402E-02_JPRB,0.17681E-02_JPRB /)  
+KA(:, 6,16) = (/ &
+ & 0.34707E-02_JPRB,0.32796E-02_JPRB,0.30986E-02_JPRB,0.29246E-02_JPRB,0.28034E-02_JPRB /)  
+KA(:, 7,16) = (/ &
+ & 0.58659E-02_JPRB,0.55310E-02_JPRB,0.51820E-02_JPRB,0.48829E-02_JPRB,0.46784E-02_JPRB /)  
+KA(:, 8,16) = (/ &
+ & 0.11875E-01_JPRB,0.11183E-01_JPRB,0.10438E-01_JPRB,0.98038E-02_JPRB,0.93665E-02_JPRB /)  
+KA(:, 9,16) = (/ &
+ & 0.45519E-01_JPRB,0.42850E-01_JPRB,0.39715E-01_JPRB,0.37447E-01_JPRB,0.35369E-01_JPRB /)  
+KA(:,10,16) = (/ &
+ & 0.19392E+00_JPRB,0.18108E+00_JPRB,0.16817E+00_JPRB,0.15883E+00_JPRB,0.14864E+00_JPRB /)  
+KA(:,11,16) = (/ &
+ & 0.27830E+00_JPRB,0.25715E+00_JPRB,0.24100E+00_JPRB,0.22595E+00_JPRB,0.21321E+00_JPRB /)  
+KA(:,12,16) = (/ &
+ & 0.29533E+00_JPRB,0.27422E+00_JPRB,0.25636E+00_JPRB,0.23936E+00_JPRB,0.22658E+00_JPRB /)  
+KA(:,13,16) = (/ &
+ & 0.25310E+00_JPRB,0.23535E+00_JPRB,0.21855E+00_JPRB,0.20552E+00_JPRB,0.19293E+00_JPRB /)  
+  
+!     -----------------------------------------------------------------
+!     The array KB contains absorption coefs at the 16 chosen g-values 
+!     for a range of pressure levels < ~100mb and temperatures. The first 
+!     index in the array, JT, which runs from 1 to 5, corresponds to 
+!     different temperatures.  More specifically, JT = 3 means that the 
+!     data are for the reference temperature TREF for this pressure 
+!     level, JT = 2 refers to the temperature TREF-15, JT = 1 is for
+!     TREF-30, JT = 4 is for TREF+15, and JT = 5 is for TREF+30.  
+!     The second index, JP, runs from 13 to 59 and refers to the JPth
+!     reference pressure level (see taumol.f for the value of these
+!     pressure levels in mb).  The third index, IG, goes from 1 to 16,
+!     and tells us which g-interval the absorption coefficients are for.
+!     -----------------------------------------------------------------
+
+KB(:,13, 1) = (/ &
+ & 0.18379E-05_JPRB,0.23296E-05_JPRB,0.29007E-05_JPRB,0.35902E-05_JPRB,0.43437E-05_JPRB /)  
+KB(:,14, 1) = (/ &
+ & 0.15919E-05_JPRB,0.19832E-05_JPRB,0.24720E-05_JPRB,0.30683E-05_JPRB,0.37253E-05_JPRB /)  
+KB(:,15, 1) = (/ &
+ & 0.13850E-05_JPRB,0.17115E-05_JPRB,0.21225E-05_JPRB,0.26292E-05_JPRB,0.31945E-05_JPRB /)  
+KB(:,16, 1) = (/ &
+ & 0.11896E-05_JPRB,0.14680E-05_JPRB,0.18142E-05_JPRB,0.22537E-05_JPRB,0.27284E-05_JPRB /)  
+KB(:,17, 1) = (/ &
+ & 0.10228E-05_JPRB,0.12597E-05_JPRB,0.15532E-05_JPRB,0.19272E-05_JPRB,0.23163E-05_JPRB /)  
+KB(:,18, 1) = (/ &
+ & 0.88243E-06_JPRB,0.10835E-05_JPRB,0.13316E-05_JPRB,0.16603E-05_JPRB,0.19808E-05_JPRB /)  
+KB(:,19, 1) = (/ &
+ & 0.75677E-06_JPRB,0.92925E-06_JPRB,0.11401E-05_JPRB,0.14107E-05_JPRB,0.16901E-05_JPRB /)  
+KB(:,20, 1) = (/ &
+ & 0.64614E-06_JPRB,0.79361E-06_JPRB,0.97353E-06_JPRB,0.11964E-05_JPRB,0.14414E-05_JPRB /)  
+KB(:,21, 1) = (/ &
+ & 0.55323E-06_JPRB,0.67580E-06_JPRB,0.82647E-06_JPRB,0.10137E-05_JPRB,0.12318E-05_JPRB /)  
+KB(:,22, 1) = (/ &
+ & 0.47719E-06_JPRB,0.58149E-06_JPRB,0.71060E-06_JPRB,0.87005E-06_JPRB,0.10605E-05_JPRB /)  
+KB(:,23, 1) = (/ &
+ & 0.41128E-06_JPRB,0.50080E-06_JPRB,0.61104E-06_JPRB,0.75347E-06_JPRB,0.91200E-06_JPRB /)  
+KB(:,24, 1) = (/ &
+ & 0.35306E-06_JPRB,0.42860E-06_JPRB,0.52320E-06_JPRB,0.65156E-06_JPRB,0.78122E-06_JPRB /)  
+KB(:,25, 1) = (/ &
+ & 0.30363E-06_JPRB,0.36731E-06_JPRB,0.44673E-06_JPRB,0.56097E-06_JPRB,0.66791E-06_JPRB /)  
+KB(:,26, 1) = (/ &
+ & 0.26073E-06_JPRB,0.31537E-06_JPRB,0.38738E-06_JPRB,0.48210E-06_JPRB,0.57382E-06_JPRB /)  
+KB(:,27, 1) = (/ &
+ & 0.22303E-06_JPRB,0.26986E-06_JPRB,0.33628E-06_JPRB,0.41161E-06_JPRB,0.48722E-06_JPRB /)  
+KB(:,28, 1) = (/ &
+ & 0.18954E-06_JPRB,0.22952E-06_JPRB,0.28797E-06_JPRB,0.35166E-06_JPRB,0.41440E-06_JPRB /)  
+KB(:,29, 1) = (/ &
+ & 0.16106E-06_JPRB,0.19430E-06_JPRB,0.24661E-06_JPRB,0.29815E-06_JPRB,0.35151E-06_JPRB /)  
+KB(:,30, 1) = (/ &
+ & 0.13630E-06_JPRB,0.16528E-06_JPRB,0.20922E-06_JPRB,0.25193E-06_JPRB,0.29913E-06_JPRB /)  
+KB(:,31, 1) = (/ &
+ & 0.11504E-06_JPRB,0.14276E-06_JPRB,0.17807E-06_JPRB,0.21482E-06_JPRB,0.25451E-06_JPRB /)  
+KB(:,32, 1) = (/ &
+ & 0.96980E-07_JPRB,0.12215E-06_JPRB,0.15159E-06_JPRB,0.18179E-06_JPRB,0.21515E-06_JPRB /)  
+KB(:,33, 1) = (/ &
+ & 0.81598E-07_JPRB,0.10315E-06_JPRB,0.12730E-06_JPRB,0.15190E-06_JPRB,0.18093E-06_JPRB /)  
+KB(:,34, 1) = (/ &
+ & 0.67700E-07_JPRB,0.85970E-07_JPRB,0.10559E-06_JPRB,0.12608E-06_JPRB,0.15006E-06_JPRB /)  
+KB(:,35, 1) = (/ &
+ & 0.55177E-07_JPRB,0.69519E-07_JPRB,0.85967E-07_JPRB,0.10223E-06_JPRB,0.12147E-06_JPRB /)  
+KB(:,36, 1) = (/ &
+ & 0.43924E-07_JPRB,0.54395E-07_JPRB,0.67998E-07_JPRB,0.81142E-07_JPRB,0.95717E-07_JPRB /)  
+KB(:,37, 1) = (/ &
+ & 0.34469E-07_JPRB,0.41036E-07_JPRB,0.52575E-07_JPRB,0.63117E-07_JPRB,0.74301E-07_JPRB /)  
+KB(:,38, 1) = (/ &
+ & 0.26777E-07_JPRB,0.31734E-07_JPRB,0.40555E-07_JPRB,0.49032E-07_JPRB,0.57653E-07_JPRB /)  
+KB(:,39, 1) = (/ &
+ & 0.20670E-07_JPRB,0.24721E-07_JPRB,0.30685E-07_JPRB,0.37873E-07_JPRB,0.44555E-07_JPRB /)  
+KB(:,40, 1) = (/ &
+ & 0.15860E-07_JPRB,0.19032E-07_JPRB,0.22612E-07_JPRB,0.28845E-07_JPRB,0.34246E-07_JPRB /)  
+KB(:,41, 1) = (/ &
+ & 0.12129E-07_JPRB,0.14603E-07_JPRB,0.17357E-07_JPRB,0.21851E-07_JPRB,0.26346E-07_JPRB /)  
+KB(:,42, 1) = (/ &
+ & 0.92319E-08_JPRB,0.11199E-07_JPRB,0.13365E-07_JPRB,0.16174E-07_JPRB,0.20019E-07_JPRB /)  
+KB(:,43, 1) = (/ &
+ & 0.69289E-08_JPRB,0.84537E-08_JPRB,0.10159E-07_JPRB,0.11992E-07_JPRB,0.14940E-07_JPRB /)  
+KB(:,44, 1) = (/ &
+ & 0.51546E-08_JPRB,0.63380E-08_JPRB,0.76593E-08_JPRB,0.90562E-08_JPRB,0.10716E-07_JPRB /)  
+KB(:,45, 1) = (/ &
+ & 0.38335E-08_JPRB,0.47085E-08_JPRB,0.57219E-08_JPRB,0.68148E-08_JPRB,0.79518E-08_JPRB /)  
+KB(:,46, 1) = (/ &
+ & 0.28583E-08_JPRB,0.34724E-08_JPRB,0.42447E-08_JPRB,0.50888E-08_JPRB,0.59494E-08_JPRB /)  
+KB(:,47, 1) = (/ &
+ & 0.20945E-08_JPRB,0.25418E-08_JPRB,0.31058E-08_JPRB,0.37494E-08_JPRB,0.44274E-08_JPRB /)  
+KB(:,48, 1) = (/ &
+ & 0.15164E-08_JPRB,0.18560E-08_JPRB,0.22628E-08_JPRB,0.27371E-08_JPRB,0.32773E-08_JPRB /)  
+KB(:,49, 1) = (/ &
+ & 0.10916E-08_JPRB,0.13465E-08_JPRB,0.16387E-08_JPRB,0.19740E-08_JPRB,0.23865E-08_JPRB /)  
+KB(:,50, 1) = (/ &
+ & 0.78324E-09_JPRB,0.98361E-09_JPRB,0.11977E-08_JPRB,0.14517E-08_JPRB,0.17457E-08_JPRB /)  
+KB(:,51, 1) = (/ &
+ & 0.57263E-09_JPRB,0.71786E-09_JPRB,0.87689E-09_JPRB,0.10705E-08_JPRB,0.12881E-08_JPRB /)  
+KB(:,52, 1) = (/ &
+ & 0.41574E-09_JPRB,0.51264E-09_JPRB,0.64152E-09_JPRB,0.78315E-09_JPRB,0.94705E-09_JPRB /)  
+KB(:,53, 1) = (/ &
+ & 0.29940E-09_JPRB,0.36836E-09_JPRB,0.45886E-09_JPRB,0.56405E-09_JPRB,0.69166E-09_JPRB /)  
+KB(:,54, 1) = (/ &
+ & 0.22617E-09_JPRB,0.27395E-09_JPRB,0.33754E-09_JPRB,0.42095E-09_JPRB,0.51544E-09_JPRB /)  
+KB(:,55, 1) = (/ &
+ & 0.17483E-09_JPRB,0.20845E-09_JPRB,0.25546E-09_JPRB,0.31817E-09_JPRB,0.39119E-09_JPRB /)  
+KB(:,56, 1) = (/ &
+ & 0.13496E-09_JPRB,0.15930E-09_JPRB,0.19380E-09_JPRB,0.23861E-09_JPRB,0.29770E-09_JPRB /)  
+KB(:,57, 1) = (/ &
+ & 0.10406E-09_JPRB,0.12247E-09_JPRB,0.14749E-09_JPRB,0.18078E-09_JPRB,0.22597E-09_JPRB /)  
+KB(:,58, 1) = (/ &
+ & 0.81345E-10_JPRB,0.94816E-10_JPRB,0.11329E-09_JPRB,0.13832E-09_JPRB,0.17161E-09_JPRB /)  
+KB(:,59, 1) = (/ &
+ & 0.67159E-10_JPRB,0.78312E-10_JPRB,0.94745E-10_JPRB,0.11544E-09_JPRB,0.14442E-09_JPRB /)  
+KB(:,13, 2) = (/ &
+ & 0.16654E-04_JPRB,0.18728E-04_JPRB,0.21238E-04_JPRB,0.24491E-04_JPRB,0.29038E-04_JPRB /)  
+KB(:,14, 2) = (/ &
+ & 0.15636E-04_JPRB,0.17574E-04_JPRB,0.19918E-04_JPRB,0.23671E-04_JPRB,0.27237E-04_JPRB /)  
+KB(:,15, 2) = (/ &
+ & 0.14853E-04_JPRB,0.16629E-04_JPRB,0.19700E-04_JPRB,0.22604E-04_JPRB,0.25586E-04_JPRB /)  
+KB(:,16, 2) = (/ &
+ & 0.13519E-04_JPRB,0.15923E-04_JPRB,0.18289E-04_JPRB,0.20530E-04_JPRB,0.22799E-04_JPRB /)  
+KB(:,17, 2) = (/ &
+ & 0.12411E-04_JPRB,0.14439E-04_JPRB,0.16431E-04_JPRB,0.18235E-04_JPRB,0.20109E-04_JPRB /)  
+KB(:,18, 2) = (/ &
+ & 0.11267E-04_JPRB,0.12880E-04_JPRB,0.14429E-04_JPRB,0.16005E-04_JPRB,0.17538E-04_JPRB /)  
+KB(:,19, 2) = (/ &
+ & 0.10025E-04_JPRB,0.11332E-04_JPRB,0.12550E-04_JPRB,0.13853E-04_JPRB,0.15103E-04_JPRB /)  
+KB(:,20, 2) = (/ &
+ & 0.86342E-05_JPRB,0.97455E-05_JPRB,0.10778E-04_JPRB,0.11898E-04_JPRB,0.12789E-04_JPRB /)  
+KB(:,21, 2) = (/ &
+ & 0.74004E-05_JPRB,0.83107E-05_JPRB,0.91633E-05_JPRB,0.10071E-04_JPRB,0.10674E-04_JPRB /)  
+KB(:,22, 2) = (/ &
+ & 0.63700E-05_JPRB,0.70549E-05_JPRB,0.78271E-05_JPRB,0.85170E-05_JPRB,0.90022E-05_JPRB /)  
+KB(:,23, 2) = (/ &
+ & 0.54404E-05_JPRB,0.60156E-05_JPRB,0.66393E-05_JPRB,0.71320E-05_JPRB,0.75007E-05_JPRB /)  
+KB(:,24, 2) = (/ &
+ & 0.45997E-05_JPRB,0.50718E-05_JPRB,0.55713E-05_JPRB,0.59455E-05_JPRB,0.62118E-05_JPRB /)  
+KB(:,25, 2) = (/ &
+ & 0.38745E-05_JPRB,0.42617E-05_JPRB,0.46479E-05_JPRB,0.49297E-05_JPRB,0.51638E-05_JPRB /)  
+KB(:,26, 2) = (/ &
+ & 0.32488E-05_JPRB,0.35592E-05_JPRB,0.38685E-05_JPRB,0.40759E-05_JPRB,0.43092E-05_JPRB /)  
+KB(:,27, 2) = (/ &
+ & 0.26995E-05_JPRB,0.29601E-05_JPRB,0.32065E-05_JPRB,0.33666E-05_JPRB,0.35609E-05_JPRB /)  
+KB(:,28, 2) = (/ &
+ & 0.22359E-05_JPRB,0.24429E-05_JPRB,0.26408E-05_JPRB,0.27752E-05_JPRB,0.29293E-05_JPRB /)  
+KB(:,29, 2) = (/ &
+ & 0.18487E-05_JPRB,0.20089E-05_JPRB,0.21668E-05_JPRB,0.22793E-05_JPRB,0.24029E-05_JPRB /)  
+KB(:,30, 2) = (/ &
+ & 0.15291E-05_JPRB,0.16589E-05_JPRB,0.17733E-05_JPRB,0.18706E-05_JPRB,0.19584E-05_JPRB /)  
+KB(:,31, 2) = (/ &
+ & 0.12554E-05_JPRB,0.13589E-05_JPRB,0.14436E-05_JPRB,0.15195E-05_JPRB,0.15928E-05_JPRB /)  
+KB(:,32, 2) = (/ &
+ & 0.10248E-05_JPRB,0.11046E-05_JPRB,0.11716E-05_JPRB,0.12288E-05_JPRB,0.12916E-05_JPRB /)  
+KB(:,33, 2) = (/ &
+ & 0.83272E-06_JPRB,0.89120E-06_JPRB,0.95036E-06_JPRB,0.99040E-06_JPRB,0.10409E-05_JPRB /)  
+KB(:,34, 2) = (/ &
+ & 0.67518E-06_JPRB,0.72097E-06_JPRB,0.76854E-06_JPRB,0.80246E-06_JPRB,0.83912E-06_JPRB /)  
+KB(:,35, 2) = (/ &
+ & 0.53577E-06_JPRB,0.57870E-06_JPRB,0.61715E-06_JPRB,0.64987E-06_JPRB,0.67220E-06_JPRB /)  
+KB(:,36, 2) = (/ &
+ & 0.42402E-06_JPRB,0.45825E-06_JPRB,0.49307E-06_JPRB,0.52005E-06_JPRB,0.54029E-06_JPRB /)  
+KB(:,37, 2) = (/ &
+ & 0.33419E-06_JPRB,0.36213E-06_JPRB,0.38911E-06_JPRB,0.41359E-06_JPRB,0.43177E-06_JPRB /)  
+KB(:,38, 2) = (/ &
+ & 0.26240E-06_JPRB,0.28355E-06_JPRB,0.30530E-06_JPRB,0.32881E-06_JPRB,0.34617E-06_JPRB /)  
+KB(:,39, 2) = (/ &
+ & 0.20468E-06_JPRB,0.22245E-06_JPRB,0.23980E-06_JPRB,0.25776E-06_JPRB,0.27424E-06_JPRB /)  
+KB(:,40, 2) = (/ &
+ & 0.16070E-06_JPRB,0.17478E-06_JPRB,0.18856E-06_JPRB,0.20230E-06_JPRB,0.21801E-06_JPRB /)  
+KB(:,41, 2) = (/ &
+ & 0.12583E-06_JPRB,0.13680E-06_JPRB,0.14851E-06_JPRB,0.15917E-06_JPRB,0.17184E-06_JPRB /)  
+KB(:,42, 2) = (/ &
+ & 0.98494E-07_JPRB,0.10639E-06_JPRB,0.11634E-06_JPRB,0.12500E-06_JPRB,0.13490E-06_JPRB /)  
+KB(:,43, 2) = (/ &
+ & 0.75196E-07_JPRB,0.82809E-07_JPRB,0.90095E-07_JPRB,0.97952E-07_JPRB,0.10509E-06_JPRB /)  
+KB(:,44, 2) = (/ &
+ & 0.57305E-07_JPRB,0.63787E-07_JPRB,0.69227E-07_JPRB,0.75635E-07_JPRB,0.81687E-07_JPRB /)  
+KB(:,45, 2) = (/ &
+ & 0.42965E-07_JPRB,0.48245E-07_JPRB,0.53346E-07_JPRB,0.58061E-07_JPRB,0.63120E-07_JPRB /)  
+KB(:,46, 2) = (/ &
+ & 0.31048E-07_JPRB,0.36457E-07_JPRB,0.40514E-07_JPRB,0.44557E-07_JPRB,0.48550E-07_JPRB /)  
+KB(:,47, 2) = (/ &
+ & 0.23094E-07_JPRB,0.26356E-07_JPRB,0.30443E-07_JPRB,0.33954E-07_JPRB,0.36789E-07_JPRB /)  
+KB(:,48, 2) = (/ &
+ & 0.16858E-07_JPRB,0.19402E-07_JPRB,0.22449E-07_JPRB,0.25401E-07_JPRB,0.28254E-07_JPRB /)  
+KB(:,49, 2) = (/ &
+ & 0.11413E-07_JPRB,0.14055E-07_JPRB,0.16046E-07_JPRB,0.18927E-07_JPRB,0.21080E-07_JPRB /)  
+KB(:,50, 2) = (/ &
+ & 0.78650E-08_JPRB,0.99879E-08_JPRB,0.11846E-07_JPRB,0.13654E-07_JPRB,0.15871E-07_JPRB /)  
+KB(:,51, 2) = (/ &
+ & 0.55417E-08_JPRB,0.68977E-08_JPRB,0.87006E-08_JPRB,0.10108E-07_JPRB,0.11829E-07_JPRB /)  
+KB(:,52, 2) = (/ &
+ & 0.39143E-08_JPRB,0.48025E-08_JPRB,0.60180E-08_JPRB,0.73762E-08_JPRB,0.85851E-08_JPRB /)  
+KB(:,53, 2) = (/ &
+ & 0.27637E-08_JPRB,0.33397E-08_JPRB,0.41996E-08_JPRB,0.52787E-08_JPRB,0.62923E-08_JPRB /)  
+KB(:,54, 2) = (/ &
+ & 0.19691E-08_JPRB,0.24529E-08_JPRB,0.30071E-08_JPRB,0.38041E-08_JPRB,0.46981E-08_JPRB /)  
+KB(:,55, 2) = (/ &
+ & 0.13034E-08_JPRB,0.18257E-08_JPRB,0.22359E-08_JPRB,0.28210E-08_JPRB,0.35386E-08_JPRB /)  
+KB(:,56, 2) = (/ &
+ & 0.10026E-08_JPRB,0.13422E-08_JPRB,0.16687E-08_JPRB,0.20793E-08_JPRB,0.26054E-08_JPRB /)  
+KB(:,57, 2) = (/ &
+ & 0.77730E-09_JPRB,0.91190E-09_JPRB,0.12468E-08_JPRB,0.15302E-08_JPRB,0.19418E-08_JPRB /)  
+KB(:,58, 2) = (/ &
+ & 0.60359E-09_JPRB,0.67848E-09_JPRB,0.92414E-09_JPRB,0.11511E-08_JPRB,0.14401E-08_JPRB /)  
+KB(:,59, 2) = (/ &
+ & 0.50441E-09_JPRB,0.56797E-09_JPRB,0.77369E-09_JPRB,0.95612E-09_JPRB,0.11957E-08_JPRB /)  
+KB(:,13, 3) = (/ &
+ & 0.98124E-04_JPRB,0.10149E-03_JPRB,0.10303E-03_JPRB,0.10669E-03_JPRB,0.10870E-03_JPRB /)  
+KB(:,14, 3) = (/ &
+ & 0.88110E-04_JPRB,0.89730E-04_JPRB,0.90679E-04_JPRB,0.91892E-04_JPRB,0.91413E-04_JPRB /)  
+KB(:,15, 3) = (/ &
+ & 0.78555E-04_JPRB,0.78633E-04_JPRB,0.79145E-04_JPRB,0.77689E-04_JPRB,0.77791E-04_JPRB /)  
+KB(:,16, 3) = (/ &
+ & 0.67245E-04_JPRB,0.67743E-04_JPRB,0.66690E-04_JPRB,0.65765E-04_JPRB,0.65950E-04_JPRB /)  
+KB(:,17, 3) = (/ &
+ & 0.57553E-04_JPRB,0.57490E-04_JPRB,0.56012E-04_JPRB,0.55634E-04_JPRB,0.56016E-04_JPRB /)  
+KB(:,18, 3) = (/ &
+ & 0.49729E-04_JPRB,0.48302E-04_JPRB,0.47418E-04_JPRB,0.47262E-04_JPRB,0.47732E-04_JPRB /)  
+KB(:,19, 3) = (/ &
+ & 0.42101E-04_JPRB,0.40906E-04_JPRB,0.40541E-04_JPRB,0.40229E-04_JPRB,0.40671E-04_JPRB /)  
+KB(:,20, 3) = (/ &
+ & 0.35046E-04_JPRB,0.34193E-04_JPRB,0.34032E-04_JPRB,0.33881E-04_JPRB,0.34691E-04_JPRB /)  
+KB(:,21, 3) = (/ &
+ & 0.29192E-04_JPRB,0.28813E-04_JPRB,0.28525E-04_JPRB,0.28485E-04_JPRB,0.29764E-04_JPRB /)  
+KB(:,22, 3) = (/ &
+ & 0.24212E-04_JPRB,0.23970E-04_JPRB,0.23804E-04_JPRB,0.23947E-04_JPRB,0.24310E-04_JPRB /)  
+KB(:,23, 3) = (/ &
+ & 0.20167E-04_JPRB,0.19961E-04_JPRB,0.19837E-04_JPRB,0.20528E-04_JPRB,0.19887E-04_JPRB /)  
+KB(:,24, 3) = (/ &
+ & 0.16817E-04_JPRB,0.16624E-04_JPRB,0.16525E-04_JPRB,0.17263E-04_JPRB,0.16481E-04_JPRB /)  
+KB(:,25, 3) = (/ &
+ & 0.13896E-04_JPRB,0.13806E-04_JPRB,0.13810E-04_JPRB,0.14348E-04_JPRB,0.13634E-04_JPRB /)  
+KB(:,26, 3) = (/ &
+ & 0.11515E-04_JPRB,0.11474E-04_JPRB,0.11553E-04_JPRB,0.11705E-04_JPRB,0.11167E-04_JPRB /)  
+KB(:,27, 3) = (/ &
+ & 0.95004E-05_JPRB,0.94543E-05_JPRB,0.95650E-05_JPRB,0.95316E-05_JPRB,0.91651E-05_JPRB /)  
+KB(:,28, 3) = (/ &
+ & 0.78135E-05_JPRB,0.77862E-05_JPRB,0.78715E-05_JPRB,0.77825E-05_JPRB,0.74877E-05_JPRB /)  
+KB(:,29, 3) = (/ &
+ & 0.63615E-05_JPRB,0.63601E-05_JPRB,0.64198E-05_JPRB,0.63507E-05_JPRB,0.61200E-05_JPRB /)  
+KB(:,30, 3) = (/ &
+ & 0.51738E-05_JPRB,0.51781E-05_JPRB,0.52250E-05_JPRB,0.51709E-05_JPRB,0.50243E-05_JPRB /)  
+KB(:,31, 3) = (/ &
+ & 0.41825E-05_JPRB,0.42240E-05_JPRB,0.42510E-05_JPRB,0.42241E-05_JPRB,0.41058E-05_JPRB /)  
+KB(:,32, 3) = (/ &
+ & 0.34024E-05_JPRB,0.34302E-05_JPRB,0.34514E-05_JPRB,0.34436E-05_JPRB,0.33474E-05_JPRB /)  
+KB(:,33, 3) = (/ &
+ & 0.27510E-05_JPRB,0.27828E-05_JPRB,0.28059E-05_JPRB,0.28125E-05_JPRB,0.27394E-05_JPRB /)  
+KB(:,34, 3) = (/ &
+ & 0.22195E-05_JPRB,0.22517E-05_JPRB,0.22743E-05_JPRB,0.22728E-05_JPRB,0.22254E-05_JPRB /)  
+KB(:,35, 3) = (/ &
+ & 0.18029E-05_JPRB,0.18238E-05_JPRB,0.18432E-05_JPRB,0.18461E-05_JPRB,0.18241E-05_JPRB /)  
+KB(:,36, 3) = (/ &
+ & 0.14477E-05_JPRB,0.14734E-05_JPRB,0.14936E-05_JPRB,0.15116E-05_JPRB,0.14874E-05_JPRB /)  
+KB(:,37, 3) = (/ &
+ & 0.11637E-05_JPRB,0.11929E-05_JPRB,0.12098E-05_JPRB,0.12265E-05_JPRB,0.12076E-05_JPRB /)  
+KB(:,38, 3) = (/ &
+ & 0.93292E-06_JPRB,0.96246E-06_JPRB,0.98169E-06_JPRB,0.99435E-06_JPRB,0.98749E-06_JPRB /)  
+KB(:,39, 3) = (/ &
+ & 0.74927E-06_JPRB,0.76742E-06_JPRB,0.79020E-06_JPRB,0.80604E-06_JPRB,0.81415E-06_JPRB /)  
+KB(:,40, 3) = (/ &
+ & 0.60479E-06_JPRB,0.61743E-06_JPRB,0.63973E-06_JPRB,0.65295E-06_JPRB,0.66261E-06_JPRB /)  
+KB(:,41, 3) = (/ &
+ & 0.48450E-06_JPRB,0.49742E-06_JPRB,0.51366E-06_JPRB,0.52876E-06_JPRB,0.53813E-06_JPRB /)  
+KB(:,42, 3) = (/ &
+ & 0.38298E-06_JPRB,0.40088E-06_JPRB,0.41192E-06_JPRB,0.42651E-06_JPRB,0.43595E-06_JPRB /)  
+KB(:,43, 3) = (/ &
+ & 0.30310E-06_JPRB,0.31905E-06_JPRB,0.32907E-06_JPRB,0.34154E-06_JPRB,0.35007E-06_JPRB /)  
+KB(:,44, 3) = (/ &
+ & 0.23745E-06_JPRB,0.25035E-06_JPRB,0.26224E-06_JPRB,0.27145E-06_JPRB,0.28146E-06_JPRB /)  
+KB(:,45, 3) = (/ &
+ & 0.18653E-06_JPRB,0.19510E-06_JPRB,0.20644E-06_JPRB,0.21510E-06_JPRB,0.22354E-06_JPRB /)  
+KB(:,46, 3) = (/ &
+ & 0.14759E-06_JPRB,0.15322E-06_JPRB,0.16145E-06_JPRB,0.17034E-06_JPRB,0.17744E-06_JPRB /)  
+KB(:,47, 3) = (/ &
+ & 0.11410E-06_JPRB,0.12007E-06_JPRB,0.12507E-06_JPRB,0.13237E-06_JPRB,0.13995E-06_JPRB /)  
+KB(:,48, 3) = (/ &
+ & 0.88327E-07_JPRB,0.93967E-07_JPRB,0.97683E-07_JPRB,0.10257E-06_JPRB,0.10921E-06_JPRB /)  
+KB(:,49, 3) = (/ &
+ & 0.66715E-07_JPRB,0.72172E-07_JPRB,0.76442E-07_JPRB,0.79214E-07_JPRB,0.84006E-07_JPRB /)  
+KB(:,50, 3) = (/ &
+ & 0.51458E-07_JPRB,0.55761E-07_JPRB,0.59239E-07_JPRB,0.62292E-07_JPRB,0.64470E-07_JPRB /)  
+KB(:,51, 3) = (/ &
+ & 0.39957E-07_JPRB,0.42400E-07_JPRB,0.45870E-07_JPRB,0.48592E-07_JPRB,0.50287E-07_JPRB /)  
+KB(:,52, 3) = (/ &
+ & 0.31150E-07_JPRB,0.32725E-07_JPRB,0.35598E-07_JPRB,0.37633E-07_JPRB,0.39607E-07_JPRB /)  
+KB(:,53, 3) = (/ &
+ & 0.23783E-07_JPRB,0.25415E-07_JPRB,0.26634E-07_JPRB,0.28885E-07_JPRB,0.30620E-07_JPRB /)  
+KB(:,54, 3) = (/ &
+ & 0.18531E-07_JPRB,0.19938E-07_JPRB,0.20988E-07_JPRB,0.22678E-07_JPRB,0.23867E-07_JPRB /)  
+KB(:,55, 3) = (/ &
+ & 0.14810E-07_JPRB,0.15772E-07_JPRB,0.16651E-07_JPRB,0.17727E-07_JPRB,0.18861E-07_JPRB /)  
+KB(:,56, 3) = (/ &
+ & 0.11652E-07_JPRB,0.12557E-07_JPRB,0.13319E-07_JPRB,0.13930E-07_JPRB,0.15077E-07_JPRB /)  
+KB(:,57, 3) = (/ &
+ & 0.91523E-08_JPRB,0.99835E-08_JPRB,0.10603E-07_JPRB,0.11081E-07_JPRB,0.11999E-07_JPRB /)  
+KB(:,58, 3) = (/ &
+ & 0.72383E-08_JPRB,0.79060E-08_JPRB,0.84489E-08_JPRB,0.88615E-08_JPRB,0.94456E-08_JPRB /)  
+KB(:,59, 3) = (/ &
+ & 0.60315E-08_JPRB,0.65931E-08_JPRB,0.71001E-08_JPRB,0.74012E-08_JPRB,0.78761E-08_JPRB /)  
+KB(:,13, 4) = (/ &
+ & 0.21882E-03_JPRB,0.20968E-03_JPRB,0.18648E-03_JPRB,0.17505E-03_JPRB,0.17320E-03_JPRB /)  
+KB(:,14, 4) = (/ &
+ & 0.19140E-03_JPRB,0.17026E-03_JPRB,0.15903E-03_JPRB,0.15552E-03_JPRB,0.16009E-03_JPRB /)  
+KB(:,15, 4) = (/ &
+ & 0.16003E-03_JPRB,0.14531E-03_JPRB,0.14007E-03_JPRB,0.14511E-03_JPRB,0.14619E-03_JPRB /)  
+KB(:,16, 4) = (/ &
+ & 0.13387E-03_JPRB,0.12423E-03_JPRB,0.12444E-03_JPRB,0.12743E-03_JPRB,0.12749E-03_JPRB /)  
+KB(:,17, 4) = (/ &
+ & 0.11266E-03_JPRB,0.10780E-03_JPRB,0.11110E-03_JPRB,0.11051E-03_JPRB,0.11075E-03_JPRB /)  
+KB(:,18, 4) = (/ &
+ & 0.96156E-04_JPRB,0.95617E-04_JPRB,0.96775E-04_JPRB,0.96220E-04_JPRB,0.96078E-04_JPRB /)  
+KB(:,19, 4) = (/ &
+ & 0.82712E-04_JPRB,0.82946E-04_JPRB,0.83265E-04_JPRB,0.82827E-04_JPRB,0.82044E-04_JPRB /)  
+KB(:,20, 4) = (/ &
+ & 0.71080E-04_JPRB,0.71167E-04_JPRB,0.71040E-04_JPRB,0.70443E-04_JPRB,0.69069E-04_JPRB /)  
+KB(:,21, 4) = (/ &
+ & 0.60110E-04_JPRB,0.60836E-04_JPRB,0.59994E-04_JPRB,0.58992E-04_JPRB,0.57237E-04_JPRB /)  
+KB(:,22, 4) = (/ &
+ & 0.50688E-04_JPRB,0.51296E-04_JPRB,0.50271E-04_JPRB,0.48889E-04_JPRB,0.48471E-04_JPRB /)  
+KB(:,23, 4) = (/ &
+ & 0.42706E-04_JPRB,0.42628E-04_JPRB,0.41764E-04_JPRB,0.39999E-04_JPRB,0.40893E-04_JPRB /)  
+KB(:,24, 4) = (/ &
+ & 0.35803E-04_JPRB,0.35316E-04_JPRB,0.34535E-04_JPRB,0.33229E-04_JPRB,0.34127E-04_JPRB /)  
+KB(:,25, 4) = (/ &
+ & 0.29906E-04_JPRB,0.29201E-04_JPRB,0.28336E-04_JPRB,0.27455E-04_JPRB,0.28044E-04_JPRB /)  
+KB(:,26, 4) = (/ &
+ & 0.24659E-04_JPRB,0.23926E-04_JPRB,0.23159E-04_JPRB,0.22827E-04_JPRB,0.23266E-04_JPRB /)  
+KB(:,27, 4) = (/ &
+ & 0.20221E-04_JPRB,0.19578E-04_JPRB,0.18838E-04_JPRB,0.18853E-04_JPRB,0.19067E-04_JPRB /)  
+KB(:,28, 4) = (/ &
+ & 0.16345E-04_JPRB,0.15913E-04_JPRB,0.15327E-04_JPRB,0.15412E-04_JPRB,0.15560E-04_JPRB /)  
+KB(:,29, 4) = (/ &
+ & 0.13195E-04_JPRB,0.12870E-04_JPRB,0.12430E-04_JPRB,0.12518E-04_JPRB,0.12639E-04_JPRB /)  
+KB(:,30, 4) = (/ &
+ & 0.10622E-04_JPRB,0.10384E-04_JPRB,0.10068E-04_JPRB,0.10151E-04_JPRB,0.10256E-04_JPRB /)  
+KB(:,31, 4) = (/ &
+ & 0.85785E-05_JPRB,0.83523E-05_JPRB,0.81227E-05_JPRB,0.81998E-05_JPRB,0.83313E-05_JPRB /)  
+KB(:,32, 4) = (/ &
+ & 0.69114E-05_JPRB,0.67093E-05_JPRB,0.65758E-05_JPRB,0.66222E-05_JPRB,0.67679E-05_JPRB /)  
+KB(:,33, 4) = (/ &
+ & 0.55456E-05_JPRB,0.54342E-05_JPRB,0.53229E-05_JPRB,0.53610E-05_JPRB,0.54819E-05_JPRB /)  
+KB(:,34, 4) = (/ &
+ & 0.44461E-05_JPRB,0.43891E-05_JPRB,0.43112E-05_JPRB,0.43632E-05_JPRB,0.44560E-05_JPRB /)  
+KB(:,35, 4) = (/ &
+ & 0.35725E-05_JPRB,0.35192E-05_JPRB,0.34703E-05_JPRB,0.35075E-05_JPRB,0.35919E-05_JPRB /)  
+KB(:,36, 4) = (/ &
+ & 0.28842E-05_JPRB,0.28362E-05_JPRB,0.28143E-05_JPRB,0.28097E-05_JPRB,0.29057E-05_JPRB /)  
+KB(:,37, 4) = (/ &
+ & 0.23374E-05_JPRB,0.22987E-05_JPRB,0.22934E-05_JPRB,0.22812E-05_JPRB,0.23451E-05_JPRB /)  
+KB(:,38, 4) = (/ &
+ & 0.18966E-05_JPRB,0.18679E-05_JPRB,0.18613E-05_JPRB,0.18437E-05_JPRB,0.18894E-05_JPRB /)  
+KB(:,39, 4) = (/ &
+ & 0.15300E-05_JPRB,0.15180E-05_JPRB,0.15096E-05_JPRB,0.14915E-05_JPRB,0.15107E-05_JPRB /)  
+KB(:,40, 4) = (/ &
+ & 0.12426E-05_JPRB,0.12357E-05_JPRB,0.12171E-05_JPRB,0.12170E-05_JPRB,0.12227E-05_JPRB /)  
+KB(:,41, 4) = (/ &
+ & 0.10102E-05_JPRB,0.10077E-05_JPRB,0.98593E-06_JPRB,0.98478E-06_JPRB,0.99213E-06_JPRB /)  
+KB(:,42, 4) = (/ &
+ & 0.82201E-06_JPRB,0.81050E-06_JPRB,0.80313E-06_JPRB,0.80181E-06_JPRB,0.80361E-06_JPRB /)  
+KB(:,43, 4) = (/ &
+ & 0.67318E-06_JPRB,0.65347E-06_JPRB,0.65478E-06_JPRB,0.64360E-06_JPRB,0.64722E-06_JPRB /)  
+KB(:,44, 4) = (/ &
+ & 0.55598E-06_JPRB,0.53355E-06_JPRB,0.52778E-06_JPRB,0.52097E-06_JPRB,0.51997E-06_JPRB /)  
+KB(:,45, 4) = (/ &
+ & 0.46157E-06_JPRB,0.43457E-06_JPRB,0.42412E-06_JPRB,0.42137E-06_JPRB,0.41750E-06_JPRB /)  
+KB(:,46, 4) = (/ &
+ & 0.39156E-06_JPRB,0.35690E-06_JPRB,0.34498E-06_JPRB,0.33995E-06_JPRB,0.33614E-06_JPRB /)  
+KB(:,47, 4) = (/ &
+ & 0.33392E-06_JPRB,0.29746E-06_JPRB,0.28074E-06_JPRB,0.27344E-06_JPRB,0.27079E-06_JPRB /)  
+KB(:,48, 4) = (/ &
+ & 0.27066E-06_JPRB,0.25369E-06_JPRB,0.23115E-06_JPRB,0.22213E-06_JPRB,0.21766E-06_JPRB /)  
+KB(:,49, 4) = (/ &
+ & 0.22198E-06_JPRB,0.21395E-06_JPRB,0.19274E-06_JPRB,0.18040E-06_JPRB,0.17542E-06_JPRB /)  
+KB(:,50, 4) = (/ &
+ & 0.18070E-06_JPRB,0.17367E-06_JPRB,0.16473E-06_JPRB,0.14916E-06_JPRB,0.14306E-06_JPRB /)  
+KB(:,51, 4) = (/ &
+ & 0.14595E-06_JPRB,0.14287E-06_JPRB,0.13847E-06_JPRB,0.12418E-06_JPRB,0.11697E-06_JPRB /)  
+KB(:,52, 4) = (/ &
+ & 0.11819E-06_JPRB,0.11588E-06_JPRB,0.11225E-06_JPRB,0.10604E-06_JPRB,0.96269E-07_JPRB /)  
+KB(:,53, 4) = (/ &
+ & 0.95028E-07_JPRB,0.93094E-07_JPRB,0.91303E-07_JPRB,0.88900E-07_JPRB,0.80262E-07_JPRB /)  
+KB(:,54, 4) = (/ &
+ & 0.77005E-07_JPRB,0.76238E-07_JPRB,0.74228E-07_JPRB,0.72526E-07_JPRB,0.67965E-07_JPRB /)  
+KB(:,55, 4) = (/ &
+ & 0.62979E-07_JPRB,0.62692E-07_JPRB,0.60930E-07_JPRB,0.59579E-07_JPRB,0.57700E-07_JPRB /)  
+KB(:,56, 4) = (/ &
+ & 0.51571E-07_JPRB,0.51196E-07_JPRB,0.50031E-07_JPRB,0.48916E-07_JPRB,0.48127E-07_JPRB /)  
+KB(:,57, 4) = (/ &
+ & 0.42602E-07_JPRB,0.41678E-07_JPRB,0.41006E-07_JPRB,0.39709E-07_JPRB,0.39283E-07_JPRB /)  
+KB(:,58, 4) = (/ &
+ & 0.35155E-07_JPRB,0.34052E-07_JPRB,0.33561E-07_JPRB,0.32395E-07_JPRB,0.32057E-07_JPRB /)  
+KB(:,59, 4) = (/ &
+ & 0.29318E-07_JPRB,0.28516E-07_JPRB,0.28097E-07_JPRB,0.26888E-07_JPRB,0.26840E-07_JPRB /)  
+KB(:,13, 5) = (/ &
+ & 0.43718E-03_JPRB,0.42279E-03_JPRB,0.43200E-03_JPRB,0.42910E-03_JPRB,0.42775E-03_JPRB /)  
+KB(:,14, 5) = (/ &
+ & 0.37902E-03_JPRB,0.38090E-03_JPRB,0.38058E-03_JPRB,0.37637E-03_JPRB,0.36798E-03_JPRB /)  
+KB(:,15, 5) = (/ &
+ & 0.33222E-03_JPRB,0.33597E-03_JPRB,0.33205E-03_JPRB,0.32000E-03_JPRB,0.31310E-03_JPRB /)  
+KB(:,16, 5) = (/ &
+ & 0.28736E-03_JPRB,0.28700E-03_JPRB,0.27853E-03_JPRB,0.26891E-03_JPRB,0.26391E-03_JPRB /)  
+KB(:,17, 5) = (/ &
+ & 0.24534E-03_JPRB,0.24098E-03_JPRB,0.23072E-03_JPRB,0.22519E-03_JPRB,0.22013E-03_JPRB /)  
+KB(:,18, 5) = (/ &
+ & 0.20645E-03_JPRB,0.20019E-03_JPRB,0.19266E-03_JPRB,0.18716E-03_JPRB,0.18139E-03_JPRB /)  
+KB(:,19, 5) = (/ &
+ & 0.17271E-03_JPRB,0.16642E-03_JPRB,0.16064E-03_JPRB,0.15556E-03_JPRB,0.14951E-03_JPRB /)  
+KB(:,20, 5) = (/ &
+ & 0.14266E-03_JPRB,0.13766E-03_JPRB,0.13239E-03_JPRB,0.12767E-03_JPRB,0.12305E-03_JPRB /)  
+KB(:,21, 5) = (/ &
+ & 0.11797E-03_JPRB,0.11256E-03_JPRB,0.10880E-03_JPRB,0.10424E-03_JPRB,0.10062E-03_JPRB /)  
+KB(:,22, 5) = (/ &
+ & 0.97085E-04_JPRB,0.92101E-04_JPRB,0.88420E-04_JPRB,0.85535E-04_JPRB,0.82201E-04_JPRB /)  
+KB(:,23, 5) = (/ &
+ & 0.79380E-04_JPRB,0.75312E-04_JPRB,0.72177E-04_JPRB,0.69710E-04_JPRB,0.66966E-04_JPRB /)  
+KB(:,24, 5) = (/ &
+ & 0.64591E-04_JPRB,0.61520E-04_JPRB,0.58891E-04_JPRB,0.56626E-04_JPRB,0.54603E-04_JPRB /)  
+KB(:,25, 5) = (/ &
+ & 0.52423E-04_JPRB,0.49934E-04_JPRB,0.48122E-04_JPRB,0.46331E-04_JPRB,0.44875E-04_JPRB /)  
+KB(:,26, 5) = (/ &
+ & 0.42528E-04_JPRB,0.40739E-04_JPRB,0.39218E-04_JPRB,0.37806E-04_JPRB,0.36631E-04_JPRB /)  
+KB(:,27, 5) = (/ &
+ & 0.34453E-04_JPRB,0.33104E-04_JPRB,0.32009E-04_JPRB,0.30764E-04_JPRB,0.30000E-04_JPRB /)  
+KB(:,28, 5) = (/ &
+ & 0.28076E-04_JPRB,0.26948E-04_JPRB,0.26097E-04_JPRB,0.25065E-04_JPRB,0.24596E-04_JPRB /)  
+KB(:,29, 5) = (/ &
+ & 0.22814E-04_JPRB,0.21902E-04_JPRB,0.21222E-04_JPRB,0.20350E-04_JPRB,0.20152E-04_JPRB /)  
+KB(:,30, 5) = (/ &
+ & 0.18551E-04_JPRB,0.17731E-04_JPRB,0.17162E-04_JPRB,0.16614E-04_JPRB,0.16461E-04_JPRB /)  
+KB(:,31, 5) = (/ &
+ & 0.15020E-04_JPRB,0.14383E-04_JPRB,0.13922E-04_JPRB,0.13548E-04_JPRB,0.13388E-04_JPRB /)  
+KB(:,32, 5) = (/ &
+ & 0.12091E-04_JPRB,0.11653E-04_JPRB,0.11308E-04_JPRB,0.11033E-04_JPRB,0.10954E-04_JPRB /)  
+KB(:,33, 5) = (/ &
+ & 0.97901E-05_JPRB,0.93570E-05_JPRB,0.91428E-05_JPRB,0.89594E-05_JPRB,0.89614E-05_JPRB /)  
+KB(:,34, 5) = (/ &
+ & 0.79439E-05_JPRB,0.76095E-05_JPRB,0.74365E-05_JPRB,0.73099E-05_JPRB,0.73269E-05_JPRB /)  
+KB(:,35, 5) = (/ &
+ & 0.64505E-05_JPRB,0.62326E-05_JPRB,0.60921E-05_JPRB,0.59939E-05_JPRB,0.59799E-05_JPRB /)  
+KB(:,36, 5) = (/ &
+ & 0.52745E-05_JPRB,0.51017E-05_JPRB,0.49658E-05_JPRB,0.48988E-05_JPRB,0.48773E-05_JPRB /)  
+KB(:,37, 5) = (/ &
+ & 0.43522E-05_JPRB,0.42053E-05_JPRB,0.40681E-05_JPRB,0.40176E-05_JPRB,0.40058E-05_JPRB /)  
+KB(:,38, 5) = (/ &
+ & 0.35676E-05_JPRB,0.34559E-05_JPRB,0.33446E-05_JPRB,0.33017E-05_JPRB,0.32771E-05_JPRB /)  
+KB(:,39, 5) = (/ &
+ & 0.29238E-05_JPRB,0.28445E-05_JPRB,0.27512E-05_JPRB,0.27095E-05_JPRB,0.26825E-05_JPRB /)  
+KB(:,40, 5) = (/ &
+ & 0.23985E-05_JPRB,0.23437E-05_JPRB,0.22756E-05_JPRB,0.22251E-05_JPRB,0.22009E-05_JPRB /)  
+KB(:,41, 5) = (/ &
+ & 0.19763E-05_JPRB,0.19311E-05_JPRB,0.18886E-05_JPRB,0.18370E-05_JPRB,0.18072E-05_JPRB /)  
+KB(:,42, 5) = (/ &
+ & 0.16256E-05_JPRB,0.15918E-05_JPRB,0.15558E-05_JPRB,0.15108E-05_JPRB,0.14861E-05_JPRB /)  
+KB(:,43, 5) = (/ &
+ & 0.13290E-05_JPRB,0.13116E-05_JPRB,0.12833E-05_JPRB,0.12550E-05_JPRB,0.12262E-05_JPRB /)  
+KB(:,44, 5) = (/ &
+ & 0.10777E-05_JPRB,0.10760E-05_JPRB,0.10566E-05_JPRB,0.10365E-05_JPRB,0.10136E-05_JPRB /)  
+KB(:,45, 5) = (/ &
+ & 0.86690E-06_JPRB,0.87981E-06_JPRB,0.87044E-06_JPRB,0.85428E-06_JPRB,0.83627E-06_JPRB /)  
+KB(:,46, 5) = (/ &
+ & 0.68706E-06_JPRB,0.71088E-06_JPRB,0.70939E-06_JPRB,0.70110E-06_JPRB,0.69032E-06_JPRB /)  
+KB(:,47, 5) = (/ &
+ & 0.54665E-06_JPRB,0.56934E-06_JPRB,0.58033E-06_JPRB,0.57830E-06_JPRB,0.57105E-06_JPRB /)  
+KB(:,48, 5) = (/ &
+ & 0.44874E-06_JPRB,0.44653E-06_JPRB,0.46650E-06_JPRB,0.47090E-06_JPRB,0.46732E-06_JPRB /)  
+KB(:,49, 5) = (/ &
+ & 0.36869E-06_JPRB,0.35456E-06_JPRB,0.36842E-06_JPRB,0.37978E-06_JPRB,0.38217E-06_JPRB /)  
+KB(:,50, 5) = (/ &
+ & 0.30489E-06_JPRB,0.29229E-06_JPRB,0.29104E-06_JPRB,0.30430E-06_JPRB,0.31068E-06_JPRB /)  
+KB(:,51, 5) = (/ &
+ & 0.25290E-06_JPRB,0.24012E-06_JPRB,0.23271E-06_JPRB,0.24366E-06_JPRB,0.25149E-06_JPRB /)  
+KB(:,52, 5) = (/ &
+ & 0.21148E-06_JPRB,0.19715E-06_JPRB,0.19121E-06_JPRB,0.19177E-06_JPRB,0.20148E-06_JPRB /)  
+KB(:,53, 5) = (/ &
+ & 0.17334E-06_JPRB,0.16335E-06_JPRB,0.15574E-06_JPRB,0.15266E-06_JPRB,0.15921E-06_JPRB /)  
+KB(:,54, 5) = (/ &
+ & 0.14189E-06_JPRB,0.13650E-06_JPRB,0.12781E-06_JPRB,0.12535E-06_JPRB,0.12749E-06_JPRB /)  
+KB(:,55, 5) = (/ &
+ & 0.11763E-06_JPRB,0.11398E-06_JPRB,0.10627E-06_JPRB,0.10373E-06_JPRB,0.10268E-06_JPRB /)  
+KB(:,56, 5) = (/ &
+ & 0.98316E-07_JPRB,0.94892E-07_JPRB,0.88799E-07_JPRB,0.85036E-07_JPRB,0.83393E-07_JPRB /)  
+KB(:,57, 5) = (/ &
+ & 0.83049E-07_JPRB,0.78499E-07_JPRB,0.74140E-07_JPRB,0.70137E-07_JPRB,0.68774E-07_JPRB /)  
+KB(:,58, 5) = (/ &
+ & 0.71768E-07_JPRB,0.64682E-07_JPRB,0.62012E-07_JPRB,0.58149E-07_JPRB,0.57037E-07_JPRB /)  
+KB(:,59, 5) = (/ &
+ & 0.60166E-07_JPRB,0.54824E-07_JPRB,0.52042E-07_JPRB,0.49198E-07_JPRB,0.47862E-07_JPRB /)  
+KB(:,13, 6) = (/ &
+ & 0.71254E-03_JPRB,0.65708E-03_JPRB,0.60824E-03_JPRB,0.57965E-03_JPRB,0.55389E-03_JPRB /)  
+KB(:,14, 6) = (/ &
+ & 0.58852E-03_JPRB,0.54811E-03_JPRB,0.51125E-03_JPRB,0.48557E-03_JPRB,0.47730E-03_JPRB /)  
+KB(:,15, 6) = (/ &
+ & 0.50599E-03_JPRB,0.46869E-03_JPRB,0.44362E-03_JPRB,0.43503E-03_JPRB,0.43705E-03_JPRB /)  
+KB(:,16, 6) = (/ &
+ & 0.43493E-03_JPRB,0.40996E-03_JPRB,0.39680E-03_JPRB,0.39623E-03_JPRB,0.40784E-03_JPRB /)  
+KB(:,17, 6) = (/ &
+ & 0.38028E-03_JPRB,0.36175E-03_JPRB,0.35696E-03_JPRB,0.36547E-03_JPRB,0.38127E-03_JPRB /)  
+KB(:,18, 6) = (/ &
+ & 0.33113E-03_JPRB,0.32205E-03_JPRB,0.32458E-03_JPRB,0.33502E-03_JPRB,0.35577E-03_JPRB /)  
+KB(:,19, 6) = (/ &
+ & 0.28886E-03_JPRB,0.29134E-03_JPRB,0.29799E-03_JPRB,0.31134E-03_JPRB,0.33676E-03_JPRB /)  
+KB(:,20, 6) = (/ &
+ & 0.25113E-03_JPRB,0.25555E-03_JPRB,0.26535E-03_JPRB,0.28470E-03_JPRB,0.30677E-03_JPRB /)  
+KB(:,21, 6) = (/ &
+ & 0.21640E-03_JPRB,0.22152E-03_JPRB,0.23323E-03_JPRB,0.25467E-03_JPRB,0.27764E-03_JPRB /)  
+KB(:,22, 6) = (/ &
+ & 0.18601E-03_JPRB,0.19217E-03_JPRB,0.20696E-03_JPRB,0.22593E-03_JPRB,0.24729E-03_JPRB /)  
+KB(:,23, 6) = (/ &
+ & 0.15978E-03_JPRB,0.16833E-03_JPRB,0.18229E-03_JPRB,0.19994E-03_JPRB,0.21913E-03_JPRB /)  
+KB(:,24, 6) = (/ &
+ & 0.13748E-03_JPRB,0.14696E-03_JPRB,0.16025E-03_JPRB,0.17620E-03_JPRB,0.19459E-03_JPRB /)  
+KB(:,25, 6) = (/ &
+ & 0.11841E-03_JPRB,0.12828E-03_JPRB,0.13998E-03_JPRB,0.15487E-03_JPRB,0.17174E-03_JPRB /)  
+KB(:,26, 6) = (/ &
+ & 0.10209E-03_JPRB,0.11175E-03_JPRB,0.12193E-03_JPRB,0.13590E-03_JPRB,0.15125E-03_JPRB /)  
+KB(:,27, 6) = (/ &
+ & 0.87003E-04_JPRB,0.95681E-04_JPRB,0.10499E-03_JPRB,0.11744E-03_JPRB,0.13086E-03_JPRB /)  
+KB(:,28, 6) = (/ &
+ & 0.73110E-04_JPRB,0.80653E-04_JPRB,0.89103E-04_JPRB,0.99988E-04_JPRB,0.11120E-03_JPRB /)  
+KB(:,29, 6) = (/ &
+ & 0.60620E-04_JPRB,0.66736E-04_JPRB,0.74222E-04_JPRB,0.82863E-04_JPRB,0.92471E-04_JPRB /)  
+KB(:,30, 6) = (/ &
+ & 0.49831E-04_JPRB,0.54602E-04_JPRB,0.61288E-04_JPRB,0.68281E-04_JPRB,0.75599E-04_JPRB /)  
+KB(:,31, 6) = (/ &
+ & 0.40315E-04_JPRB,0.44435E-04_JPRB,0.49703E-04_JPRB,0.55140E-04_JPRB,0.60140E-04_JPRB /)  
+KB(:,32, 6) = (/ &
+ & 0.32490E-04_JPRB,0.36020E-04_JPRB,0.39894E-04_JPRB,0.44068E-04_JPRB,0.48080E-04_JPRB /)  
+KB(:,33, 6) = (/ &
+ & 0.26085E-04_JPRB,0.29063E-04_JPRB,0.32003E-04_JPRB,0.35074E-04_JPRB,0.38662E-04_JPRB /)  
+KB(:,34, 6) = (/ &
+ & 0.21201E-04_JPRB,0.23256E-04_JPRB,0.25636E-04_JPRB,0.28140E-04_JPRB,0.31273E-04_JPRB /)  
+KB(:,35, 6) = (/ &
+ & 0.17022E-04_JPRB,0.18534E-04_JPRB,0.20322E-04_JPRB,0.22464E-04_JPRB,0.25109E-04_JPRB /)  
+KB(:,36, 6) = (/ &
+ & 0.13427E-04_JPRB,0.14606E-04_JPRB,0.16055E-04_JPRB,0.17783E-04_JPRB,0.19877E-04_JPRB /)  
+KB(:,37, 6) = (/ &
+ & 0.10630E-04_JPRB,0.11559E-04_JPRB,0.12731E-04_JPRB,0.14118E-04_JPRB,0.15831E-04_JPRB /)  
+KB(:,38, 6) = (/ &
+ & 0.84365E-05_JPRB,0.91300E-05_JPRB,0.10077E-04_JPRB,0.11171E-04_JPRB,0.12568E-04_JPRB /)  
+KB(:,39, 6) = (/ &
+ & 0.66762E-05_JPRB,0.71770E-05_JPRB,0.79359E-05_JPRB,0.88044E-05_JPRB,0.99043E-05_JPRB /)  
+KB(:,40, 6) = (/ &
+ & 0.53561E-05_JPRB,0.57216E-05_JPRB,0.63210E-05_JPRB,0.70080E-05_JPRB,0.79213E-05_JPRB /)  
+KB(:,41, 6) = (/ &
+ & 0.42954E-05_JPRB,0.45692E-05_JPRB,0.50356E-05_JPRB,0.56102E-05_JPRB,0.63394E-05_JPRB /)  
+KB(:,42, 6) = (/ &
+ & 0.34409E-05_JPRB,0.36788E-05_JPRB,0.40124E-05_JPRB,0.44898E-05_JPRB,0.50645E-05_JPRB /)  
+KB(:,43, 6) = (/ &
+ & 0.27453E-05_JPRB,0.29361E-05_JPRB,0.31651E-05_JPRB,0.35498E-05_JPRB,0.40058E-05_JPRB /)  
+KB(:,44, 6) = (/ &
+ & 0.21863E-05_JPRB,0.23320E-05_JPRB,0.24965E-05_JPRB,0.27915E-05_JPRB,0.31593E-05_JPRB /)  
+KB(:,45, 6) = (/ &
+ & 0.17409E-05_JPRB,0.18472E-05_JPRB,0.19801E-05_JPRB,0.21812E-05_JPRB,0.24741E-05_JPRB /)  
+KB(:,46, 6) = (/ &
+ & 0.13903E-05_JPRB,0.14639E-05_JPRB,0.15660E-05_JPRB,0.17042E-05_JPRB,0.19243E-05_JPRB /)  
+KB(:,47, 6) = (/ &
+ & 0.11229E-05_JPRB,0.11661E-05_JPRB,0.12377E-05_JPRB,0.13335E-05_JPRB,0.14898E-05_JPRB /)  
+KB(:,48, 6) = (/ &
+ & 0.90528E-06_JPRB,0.92962E-06_JPRB,0.97799E-06_JPRB,0.10483E-05_JPRB,0.11575E-05_JPRB /)  
+KB(:,49, 6) = (/ &
+ & 0.72877E-06_JPRB,0.74278E-06_JPRB,0.77380E-06_JPRB,0.82564E-06_JPRB,0.89736E-06_JPRB /)  
+KB(:,50, 6) = (/ &
+ & 0.59358E-06_JPRB,0.59955E-06_JPRB,0.62170E-06_JPRB,0.65720E-06_JPRB,0.70771E-06_JPRB /)  
+KB(:,51, 6) = (/ &
+ & 0.48783E-06_JPRB,0.48769E-06_JPRB,0.50300E-06_JPRB,0.52655E-06_JPRB,0.56377E-06_JPRB /)  
+KB(:,52, 6) = (/ &
+ & 0.39834E-06_JPRB,0.39922E-06_JPRB,0.40604E-06_JPRB,0.42316E-06_JPRB,0.45057E-06_JPRB /)  
+KB(:,53, 6) = (/ &
+ & 0.33019E-06_JPRB,0.32505E-06_JPRB,0.33011E-06_JPRB,0.33917E-06_JPRB,0.35858E-06_JPRB /)  
+KB(:,54, 6) = (/ &
+ & 0.27829E-06_JPRB,0.26763E-06_JPRB,0.27219E-06_JPRB,0.27714E-06_JPRB,0.29159E-06_JPRB /)  
+KB(:,55, 6) = (/ &
+ & 0.23259E-06_JPRB,0.22250E-06_JPRB,0.22510E-06_JPRB,0.22855E-06_JPRB,0.23937E-06_JPRB /)  
+KB(:,56, 6) = (/ &
+ & 0.19401E-06_JPRB,0.18605E-06_JPRB,0.18566E-06_JPRB,0.18937E-06_JPRB,0.19605E-06_JPRB /)  
+KB(:,57, 6) = (/ &
+ & 0.15908E-06_JPRB,0.15649E-06_JPRB,0.15396E-06_JPRB,0.15754E-06_JPRB,0.16039E-06_JPRB /)  
+KB(:,58, 6) = (/ &
+ & 0.12892E-06_JPRB,0.13132E-06_JPRB,0.12793E-06_JPRB,0.13093E-06_JPRB,0.13273E-06_JPRB /)  
+KB(:,59, 6) = (/ &
+ & 0.11177E-06_JPRB,0.11165E-06_JPRB,0.10875E-06_JPRB,0.11132E-06_JPRB,0.11431E-06_JPRB /)  
+KB(:,13, 7) = (/ &
+ & 0.19357E-02_JPRB,0.20341E-02_JPRB,0.21760E-02_JPRB,0.22982E-02_JPRB,0.24550E-02_JPRB /)  
+KB(:,14, 7) = (/ &
+ & 0.20343E-02_JPRB,0.21709E-02_JPRB,0.23192E-02_JPRB,0.24854E-02_JPRB,0.27026E-02_JPRB /)  
+KB(:,15, 7) = (/ &
+ & 0.21108E-02_JPRB,0.23009E-02_JPRB,0.25488E-02_JPRB,0.28048E-02_JPRB,0.30159E-02_JPRB /)  
+KB(:,16, 7) = (/ &
+ & 0.21016E-02_JPRB,0.23581E-02_JPRB,0.25958E-02_JPRB,0.28093E-02_JPRB,0.29839E-02_JPRB /)  
+KB(:,17, 7) = (/ &
+ & 0.21350E-02_JPRB,0.23722E-02_JPRB,0.25718E-02_JPRB,0.27703E-02_JPRB,0.30036E-02_JPRB /)  
+KB(:,18, 7) = (/ &
+ & 0.21493E-02_JPRB,0.23550E-02_JPRB,0.25593E-02_JPRB,0.27827E-02_JPRB,0.29722E-02_JPRB /)  
+KB(:,19, 7) = (/ &
+ & 0.21677E-02_JPRB,0.23602E-02_JPRB,0.25446E-02_JPRB,0.27267E-02_JPRB,0.29542E-02_JPRB /)  
+KB(:,20, 7) = (/ &
+ & 0.21009E-02_JPRB,0.22669E-02_JPRB,0.24261E-02_JPRB,0.26095E-02_JPRB,0.28436E-02_JPRB /)  
+KB(:,21, 7) = (/ &
+ & 0.19811E-02_JPRB,0.21249E-02_JPRB,0.22790E-02_JPRB,0.24716E-02_JPRB,0.26844E-02_JPRB /)  
+KB(:,22, 7) = (/ &
+ & 0.18393E-02_JPRB,0.19585E-02_JPRB,0.21127E-02_JPRB,0.22962E-02_JPRB,0.25211E-02_JPRB /)  
+KB(:,23, 7) = (/ &
+ & 0.16905E-02_JPRB,0.18032E-02_JPRB,0.19594E-02_JPRB,0.21280E-02_JPRB,0.23466E-02_JPRB /)  
+KB(:,24, 7) = (/ &
+ & 0.15327E-02_JPRB,0.16542E-02_JPRB,0.18047E-02_JPRB,0.19642E-02_JPRB,0.21591E-02_JPRB /)  
+KB(:,25, 7) = (/ &
+ & 0.13831E-02_JPRB,0.14932E-02_JPRB,0.16391E-02_JPRB,0.17921E-02_JPRB,0.19606E-02_JPRB /)  
+KB(:,26, 7) = (/ &
+ & 0.12298E-02_JPRB,0.13325E-02_JPRB,0.14676E-02_JPRB,0.16086E-02_JPRB,0.17628E-02_JPRB /)  
+KB(:,27, 7) = (/ &
+ & 0.10692E-02_JPRB,0.11652E-02_JPRB,0.12858E-02_JPRB,0.14124E-02_JPRB,0.15514E-02_JPRB /)  
+KB(:,28, 7) = (/ &
+ & 0.91706E-03_JPRB,0.10034E-02_JPRB,0.11100E-02_JPRB,0.12231E-02_JPRB,0.13481E-02_JPRB /)  
+KB(:,29, 7) = (/ &
+ & 0.76824E-03_JPRB,0.84492E-03_JPRB,0.93654E-03_JPRB,0.10377E-02_JPRB,0.11448E-02_JPRB /)  
+KB(:,30, 7) = (/ &
+ & 0.63841E-03_JPRB,0.70573E-03_JPRB,0.78553E-03_JPRB,0.87197E-03_JPRB,0.96607E-03_JPRB /)  
+KB(:,31, 7) = (/ &
+ & 0.51979E-03_JPRB,0.58056E-03_JPRB,0.64728E-03_JPRB,0.71891E-03_JPRB,0.80875E-03_JPRB /)  
+KB(:,32, 7) = (/ &
+ & 0.42659E-03_JPRB,0.47686E-03_JPRB,0.53347E-03_JPRB,0.60016E-03_JPRB,0.67592E-03_JPRB /)  
+KB(:,33, 7) = (/ &
+ & 0.34820E-03_JPRB,0.39030E-03_JPRB,0.44004E-03_JPRB,0.49875E-03_JPRB,0.56492E-03_JPRB /)  
+KB(:,34, 7) = (/ &
+ & 0.28753E-03_JPRB,0.32477E-03_JPRB,0.36831E-03_JPRB,0.41989E-03_JPRB,0.47708E-03_JPRB /)  
+KB(:,35, 7) = (/ &
+ & 0.23568E-03_JPRB,0.26716E-03_JPRB,0.30618E-03_JPRB,0.35062E-03_JPRB,0.39934E-03_JPRB /)  
+KB(:,36, 7) = (/ &
+ & 0.19116E-03_JPRB,0.21863E-03_JPRB,0.25180E-03_JPRB,0.28983E-03_JPRB,0.33082E-03_JPRB /)  
+KB(:,37, 7) = (/ &
+ & 0.15437E-03_JPRB,0.17829E-03_JPRB,0.20646E-03_JPRB,0.23900E-03_JPRB,0.27320E-03_JPRB /)  
+KB(:,38, 7) = (/ &
+ & 0.12397E-03_JPRB,0.14462E-03_JPRB,0.16847E-03_JPRB,0.19621E-03_JPRB,0.22528E-03_JPRB /)  
+KB(:,39, 7) = (/ &
+ & 0.98930E-04_JPRB,0.11647E-03_JPRB,0.13711E-03_JPRB,0.16057E-03_JPRB,0.18549E-03_JPRB /)  
+KB(:,40, 7) = (/ &
+ & 0.79845E-04_JPRB,0.94437E-04_JPRB,0.11202E-03_JPRB,0.13217E-03_JPRB,0.15346E-03_JPRB /)  
+KB(:,41, 7) = (/ &
+ & 0.64260E-04_JPRB,0.76439E-04_JPRB,0.91253E-04_JPRB,0.10837E-03_JPRB,0.12691E-03_JPRB /)  
+KB(:,42, 7) = (/ &
+ & 0.51561E-04_JPRB,0.61686E-04_JPRB,0.74044E-04_JPRB,0.88504E-04_JPRB,0.10431E-03_JPRB /)  
+KB(:,43, 7) = (/ &
+ & 0.40906E-04_JPRB,0.49267E-04_JPRB,0.59361E-04_JPRB,0.71417E-04_JPRB,0.84751E-04_JPRB /)  
+KB(:,44, 7) = (/ &
+ & 0.32247E-04_JPRB,0.38955E-04_JPRB,0.47246E-04_JPRB,0.57199E-04_JPRB,0.68540E-04_JPRB /)  
+KB(:,45, 7) = (/ &
+ & 0.25243E-04_JPRB,0.30790E-04_JPRB,0.37490E-04_JPRB,0.45754E-04_JPRB,0.55394E-04_JPRB /)  
+KB(:,46, 7) = (/ &
+ & 0.19604E-04_JPRB,0.24131E-04_JPRB,0.29598E-04_JPRB,0.36431E-04_JPRB,0.44419E-04_JPRB /)  
+KB(:,47, 7) = (/ &
+ & 0.15116E-04_JPRB,0.18785E-04_JPRB,0.23180E-04_JPRB,0.28780E-04_JPRB,0.35381E-04_JPRB /)  
+KB(:,48, 7) = (/ &
+ & 0.11550E-04_JPRB,0.14451E-04_JPRB,0.18039E-04_JPRB,0.22545E-04_JPRB,0.28005E-04_JPRB /)  
+KB(:,49, 7) = (/ &
+ & 0.87452E-05_JPRB,0.10992E-04_JPRB,0.13863E-04_JPRB,0.17498E-04_JPRB,0.21949E-04_JPRB /)  
+KB(:,50, 7) = (/ &
+ & 0.66768E-05_JPRB,0.84974E-05_JPRB,0.10835E-04_JPRB,0.13777E-04_JPRB,0.17448E-04_JPRB /)  
+KB(:,51, 7) = (/ &
+ & 0.51359E-05_JPRB,0.66277E-05_JPRB,0.85196E-05_JPRB,0.10905E-04_JPRB,0.13933E-04_JPRB /)  
+KB(:,52, 7) = (/ &
+ & 0.38737E-05_JPRB,0.51001E-05_JPRB,0.66347E-05_JPRB,0.85842E-05_JPRB,0.11033E-04_JPRB /)  
+KB(:,53, 7) = (/ &
+ & 0.28793E-05_JPRB,0.38820E-05_JPRB,0.50987E-05_JPRB,0.66800E-05_JPRB,0.86846E-05_JPRB /)  
+KB(:,54, 7) = (/ &
+ & 0.22250E-05_JPRB,0.30528E-05_JPRB,0.40721E-05_JPRB,0.53813E-05_JPRB,0.70529E-05_JPRB /)  
+KB(:,55, 7) = (/ &
+ & 0.17548E-05_JPRB,0.24455E-05_JPRB,0.32962E-05_JPRB,0.43877E-05_JPRB,0.58071E-05_JPRB /)  
+KB(:,56, 7) = (/ &
+ & 0.13740E-05_JPRB,0.19413E-05_JPRB,0.26523E-05_JPRB,0.35566E-05_JPRB,0.47512E-05_JPRB /)  
+KB(:,57, 7) = (/ &
+ & 0.10745E-05_JPRB,0.15242E-05_JPRB,0.21190E-05_JPRB,0.28679E-05_JPRB,0.38612E-05_JPRB /)  
+KB(:,58, 7) = (/ &
+ & 0.84271E-06_JPRB,0.12117E-05_JPRB,0.17039E-05_JPRB,0.23246E-05_JPRB,0.31564E-05_JPRB /)  
+KB(:,59, 7) = (/ &
+ & 0.75625E-06_JPRB,0.11002E-05_JPRB,0.15376E-05_JPRB,0.20855E-05_JPRB,0.28548E-05_JPRB /)  
+KB(:,13, 8) = (/ &
+ & 0.41133E-01_JPRB,0.43585E-01_JPRB,0.46448E-01_JPRB,0.50156E-01_JPRB,0.54607E-01_JPRB /)  
+KB(:,14, 8) = (/ &
+ & 0.39162E-01_JPRB,0.41636E-01_JPRB,0.44649E-01_JPRB,0.48118E-01_JPRB,0.52078E-01_JPRB /)  
+KB(:,15, 8) = (/ &
+ & 0.37770E-01_JPRB,0.40048E-01_JPRB,0.43090E-01_JPRB,0.46524E-01_JPRB,0.50698E-01_JPRB /)  
+KB(:,16, 8) = (/ &
+ & 0.35235E-01_JPRB,0.37712E-01_JPRB,0.40429E-01_JPRB,0.44092E-01_JPRB,0.48470E-01_JPRB /)  
+KB(:,17, 8) = (/ &
+ & 0.32748E-01_JPRB,0.35232E-01_JPRB,0.38049E-01_JPRB,0.41536E-01_JPRB,0.45596E-01_JPRB /)  
+KB(:,18, 8) = (/ &
+ & 0.30656E-01_JPRB,0.33078E-01_JPRB,0.36084E-01_JPRB,0.39403E-01_JPRB,0.43319E-01_JPRB /)  
+KB(:,19, 8) = (/ &
+ & 0.28887E-01_JPRB,0.31462E-01_JPRB,0.34348E-01_JPRB,0.37660E-01_JPRB,0.41532E-01_JPRB /)  
+KB(:,20, 8) = (/ &
+ & 0.26521E-01_JPRB,0.29153E-01_JPRB,0.32006E-01_JPRB,0.35368E-01_JPRB,0.39083E-01_JPRB /)  
+KB(:,21, 8) = (/ &
+ & 0.23988E-01_JPRB,0.26537E-01_JPRB,0.29508E-01_JPRB,0.32666E-01_JPRB,0.36356E-01_JPRB /)  
+KB(:,22, 8) = (/ &
+ & 0.21655E-01_JPRB,0.24205E-01_JPRB,0.27193E-01_JPRB,0.30346E-01_JPRB,0.33820E-01_JPRB /)  
+KB(:,23, 8) = (/ &
+ & 0.19724E-01_JPRB,0.22257E-01_JPRB,0.25021E-01_JPRB,0.27997E-01_JPRB,0.31309E-01_JPRB /)  
+KB(:,24, 8) = (/ &
+ & 0.18094E-01_JPRB,0.20464E-01_JPRB,0.23167E-01_JPRB,0.26069E-01_JPRB,0.29357E-01_JPRB /)  
+KB(:,25, 8) = (/ &
+ & 0.16666E-01_JPRB,0.18896E-01_JPRB,0.21422E-01_JPRB,0.24282E-01_JPRB,0.27401E-01_JPRB /)  
+KB(:,26, 8) = (/ &
+ & 0.15252E-01_JPRB,0.17451E-01_JPRB,0.19828E-01_JPRB,0.22565E-01_JPRB,0.25604E-01_JPRB /)  
+KB(:,27, 8) = (/ &
+ & 0.13902E-01_JPRB,0.15940E-01_JPRB,0.18143E-01_JPRB,0.20720E-01_JPRB,0.23727E-01_JPRB /)  
+KB(:,28, 8) = (/ &
+ & 0.12642E-01_JPRB,0.14401E-01_JPRB,0.16467E-01_JPRB,0.18975E-01_JPRB,0.21740E-01_JPRB /)  
+KB(:,29, 8) = (/ &
+ & 0.11177E-01_JPRB,0.12765E-01_JPRB,0.14750E-01_JPRB,0.16957E-01_JPRB,0.19575E-01_JPRB /)  
+KB(:,30, 8) = (/ &
+ & 0.97810E-02_JPRB,0.11281E-01_JPRB,0.13066E-01_JPRB,0.15112E-01_JPRB,0.17581E-01_JPRB /)  
+KB(:,31, 8) = (/ &
+ & 0.84562E-02_JPRB,0.98553E-02_JPRB,0.11427E-01_JPRB,0.13312E-01_JPRB,0.15536E-01_JPRB /)  
+KB(:,32, 8) = (/ &
+ & 0.73434E-02_JPRB,0.85939E-02_JPRB,0.10020E-01_JPRB,0.11770E-01_JPRB,0.13758E-01_JPRB /)  
+KB(:,33, 8) = (/ &
+ & 0.63801E-02_JPRB,0.74957E-02_JPRB,0.87874E-02_JPRB,0.10375E-01_JPRB,0.12145E-01_JPRB /)  
+KB(:,34, 8) = (/ &
+ & 0.56002E-02_JPRB,0.65926E-02_JPRB,0.77964E-02_JPRB,0.92186E-02_JPRB,0.10768E-01_JPRB /)  
+KB(:,35, 8) = (/ &
+ & 0.48489E-02_JPRB,0.57164E-02_JPRB,0.68333E-02_JPRB,0.80886E-02_JPRB,0.94500E-02_JPRB /)  
+KB(:,36, 8) = (/ &
+ & 0.41428E-02_JPRB,0.49220E-02_JPRB,0.58884E-02_JPRB,0.69905E-02_JPRB,0.81862E-02_JPRB /)  
+KB(:,37, 8) = (/ &
+ & 0.34967E-02_JPRB,0.41841E-02_JPRB,0.50244E-02_JPRB,0.59657E-02_JPRB,0.70167E-02_JPRB /)  
+KB(:,38, 8) = (/ &
+ & 0.29333E-02_JPRB,0.35364E-02_JPRB,0.42644E-02_JPRB,0.50719E-02_JPRB,0.59938E-02_JPRB /)  
+KB(:,39, 8) = (/ &
+ & 0.24443E-02_JPRB,0.29647E-02_JPRB,0.35953E-02_JPRB,0.42898E-02_JPRB,0.50972E-02_JPRB /)  
+KB(:,40, 8) = (/ &
+ & 0.20439E-02_JPRB,0.25046E-02_JPRB,0.30512E-02_JPRB,0.36459E-02_JPRB,0.43466E-02_JPRB /)  
+KB(:,41, 8) = (/ &
+ & 0.17068E-02_JPRB,0.21107E-02_JPRB,0.25838E-02_JPRB,0.30959E-02_JPRB,0.36971E-02_JPRB /)  
+KB(:,42, 8) = (/ &
+ & 0.14199E-02_JPRB,0.17705E-02_JPRB,0.21755E-02_JPRB,0.26204E-02_JPRB,0.31356E-02_JPRB /)  
+KB(:,43, 8) = (/ &
+ & 0.11616E-02_JPRB,0.14584E-02_JPRB,0.18069E-02_JPRB,0.21876E-02_JPRB,0.26286E-02_JPRB /)  
+KB(:,44, 8) = (/ &
+ & 0.93807E-03_JPRB,0.11864E-02_JPRB,0.14851E-02_JPRB,0.18080E-02_JPRB,0.21849E-02_JPRB /)  
+KB(:,45, 8) = (/ &
+ & 0.75026E-03_JPRB,0.95460E-03_JPRB,0.12092E-02_JPRB,0.14831E-02_JPRB,0.18037E-02_JPRB /)  
+KB(:,46, 8) = (/ &
+ & 0.59319E-03_JPRB,0.76134E-03_JPRB,0.97292E-03_JPRB,0.12059E-02_JPRB,0.14787E-02_JPRB /)  
+KB(:,47, 8) = (/ &
+ & 0.46546E-03_JPRB,0.60113E-03_JPRB,0.77762E-03_JPRB,0.97379E-03_JPRB,0.12030E-02_JPRB /)  
+KB(:,48, 8) = (/ &
+ & 0.36131E-03_JPRB,0.46999E-03_JPRB,0.61292E-03_JPRB,0.77778E-03_JPRB,0.96667E-03_JPRB /)  
+KB(:,49, 8) = (/ &
+ & 0.27490E-03_JPRB,0.36153E-03_JPRB,0.47561E-03_JPRB,0.61173E-03_JPRB,0.76634E-03_JPRB /)  
+KB(:,50, 8) = (/ &
+ & 0.21403E-03_JPRB,0.28416E-03_JPRB,0.37592E-03_JPRB,0.48994E-03_JPRB,0.61812E-03_JPRB /)  
+KB(:,51, 8) = (/ &
+ & 0.16745E-03_JPRB,0.22425E-03_JPRB,0.29943E-03_JPRB,0.39474E-03_JPRB,0.50310E-03_JPRB /)  
+KB(:,52, 8) = (/ &
+ & 0.12927E-03_JPRB,0.17496E-03_JPRB,0.23541E-03_JPRB,0.31434E-03_JPRB,0.40442E-03_JPRB /)  
+KB(:,53, 8) = (/ &
+ & 0.98512E-04_JPRB,0.13503E-03_JPRB,0.18276E-03_JPRB,0.24681E-03_JPRB,0.32086E-03_JPRB /)  
+KB(:,54, 8) = (/ &
+ & 0.78150E-04_JPRB,0.10819E-03_JPRB,0.14843E-03_JPRB,0.20243E-03_JPRB,0.26646E-03_JPRB /)  
+KB(:,55, 8) = (/ &
+ & 0.63455E-04_JPRB,0.88570E-04_JPRB,0.12297E-03_JPRB,0.17015E-03_JPRB,0.22626E-03_JPRB /)  
+KB(:,56, 8) = (/ &
+ & 0.51095E-04_JPRB,0.72223E-04_JPRB,0.10144E-03_JPRB,0.14188E-03_JPRB,0.19132E-03_JPRB /)  
+KB(:,57, 8) = (/ &
+ & 0.40866E-04_JPRB,0.58631E-04_JPRB,0.83096E-04_JPRB,0.11753E-03_JPRB,0.16055E-03_JPRB /)  
+KB(:,58, 8) = (/ &
+ & 0.32890E-04_JPRB,0.47893E-04_JPRB,0.68644E-04_JPRB,0.98156E-04_JPRB,0.13564E-03_JPRB /)  
+KB(:,59, 8) = (/ &
+ & 0.29702E-04_JPRB,0.43928E-04_JPRB,0.64217E-04_JPRB,0.92621E-04_JPRB,0.12965E-03_JPRB /)  
+KB(:,13, 9) = (/ &
+ & 0.27690E+01_JPRB,0.28644E+01_JPRB,0.29696E+01_JPRB,0.30850E+01_JPRB,0.32162E+01_JPRB /)  
+KB(:,14, 9) = (/ &
+ & 0.23162E+01_JPRB,0.23973E+01_JPRB,0.24876E+01_JPRB,0.25913E+01_JPRB,0.27107E+01_JPRB /)  
+KB(:,15, 9) = (/ &
+ & 0.19377E+01_JPRB,0.20096E+01_JPRB,0.20909E+01_JPRB,0.21846E+01_JPRB,0.22904E+01_JPRB /)  
+KB(:,16, 9) = (/ &
+ & 0.16221E+01_JPRB,0.16854E+01_JPRB,0.17596E+01_JPRB,0.18440E+01_JPRB,0.19374E+01_JPRB /)  
+KB(:,17, 9) = (/ &
+ & 0.13581E+01_JPRB,0.14147E+01_JPRB,0.14813E+01_JPRB,0.15562E+01_JPRB,0.16364E+01_JPRB /)  
+KB(:,18, 9) = (/ &
+ & 0.11494E+01_JPRB,0.11995E+01_JPRB,0.12558E+01_JPRB,0.13168E+01_JPRB,0.13828E+01_JPRB /)  
+KB(:,19, 9) = (/ &
+ & 0.99857E+00_JPRB,0.10422E+01_JPRB,0.10890E+01_JPRB,0.11391E+01_JPRB,0.11917E+01_JPRB /)  
+KB(:,20, 9) = (/ &
+ & 0.86585E+00_JPRB,0.90292E+00_JPRB,0.94341E+00_JPRB,0.98616E+00_JPRB,0.10332E+01_JPRB /)  
+KB(:,21, 9) = (/ &
+ & 0.74752E+00_JPRB,0.77983E+00_JPRB,0.81433E+00_JPRB,0.85283E+00_JPRB,0.89462E+00_JPRB /)  
+KB(:,22, 9) = (/ &
+ & 0.64494E+00_JPRB,0.67286E+00_JPRB,0.70277E+00_JPRB,0.73658E+00_JPRB,0.77352E+00_JPRB /)  
+KB(:,23, 9) = (/ &
+ & 0.55485E+00_JPRB,0.57897E+00_JPRB,0.60654E+00_JPRB,0.63699E+00_JPRB,0.66979E+00_JPRB /)  
+KB(:,24, 9) = (/ &
+ & 0.47664E+00_JPRB,0.49869E+00_JPRB,0.52329E+00_JPRB,0.54973E+00_JPRB,0.57955E+00_JPRB /)  
+KB(:,25, 9) = (/ &
+ & 0.41114E+00_JPRB,0.42988E+00_JPRB,0.45044E+00_JPRB,0.47447E+00_JPRB,0.50163E+00_JPRB /)  
+KB(:,26, 9) = (/ &
+ & 0.35513E+00_JPRB,0.37142E+00_JPRB,0.38942E+00_JPRB,0.41045E+00_JPRB,0.43493E+00_JPRB /)  
+KB(:,27, 9) = (/ &
+ & 0.30546E+00_JPRB,0.31995E+00_JPRB,0.33673E+00_JPRB,0.35597E+00_JPRB,0.37742E+00_JPRB /)  
+KB(:,28, 9) = (/ &
+ & 0.26188E+00_JPRB,0.27552E+00_JPRB,0.29117E+00_JPRB,0.30879E+00_JPRB,0.32839E+00_JPRB /)  
+KB(:,29, 9) = (/ &
+ & 0.22377E+00_JPRB,0.23654E+00_JPRB,0.25102E+00_JPRB,0.26735E+00_JPRB,0.28587E+00_JPRB /)  
+KB(:,30, 9) = (/ &
+ & 0.19129E+00_JPRB,0.20332E+00_JPRB,0.21691E+00_JPRB,0.23233E+00_JPRB,0.24924E+00_JPRB /)  
+KB(:,31, 9) = (/ &
+ & 0.16347E+00_JPRB,0.17463E+00_JPRB,0.18745E+00_JPRB,0.20165E+00_JPRB,0.21712E+00_JPRB /)  
+KB(:,32, 9) = (/ &
+ & 0.14037E+00_JPRB,0.15075E+00_JPRB,0.16282E+00_JPRB,0.17567E+00_JPRB,0.18973E+00_JPRB /)  
+KB(:,33, 9) = (/ &
+ & 0.12095E+00_JPRB,0.13081E+00_JPRB,0.14161E+00_JPRB,0.15337E+00_JPRB,0.16632E+00_JPRB /)  
+KB(:,34, 9) = (/ &
+ & 0.10468E+00_JPRB,0.11371E+00_JPRB,0.12351E+00_JPRB,0.13423E+00_JPRB,0.14632E+00_JPRB /)  
+KB(:,35, 9) = (/ &
+ & 0.90259E-01_JPRB,0.98421E-01_JPRB,0.10717E+00_JPRB,0.11695E+00_JPRB,0.12831E+00_JPRB /)  
+KB(:,36, 9) = (/ &
+ & 0.77272E-01_JPRB,0.84599E-01_JPRB,0.92464E-01_JPRB,0.10140E+00_JPRB,0.11193E+00_JPRB /)  
+KB(:,37, 9) = (/ &
+ & 0.65606E-01_JPRB,0.72029E-01_JPRB,0.79063E-01_JPRB,0.87174E-01_JPRB,0.96643E-01_JPRB /)  
+KB(:,38, 9) = (/ &
+ & 0.55528E-01_JPRB,0.61268E-01_JPRB,0.67613E-01_JPRB,0.74898E-01_JPRB,0.83456E-01_JPRB /)  
+KB(:,39, 9) = (/ &
+ & 0.46985E-01_JPRB,0.52085E-01_JPRB,0.57765E-01_JPRB,0.64303E-01_JPRB,0.72021E-01_JPRB /)  
+KB(:,40, 9) = (/ &
+ & 0.39626E-01_JPRB,0.44094E-01_JPRB,0.49150E-01_JPRB,0.55005E-01_JPRB,0.61884E-01_JPRB /)  
+KB(:,41, 9) = (/ &
+ & 0.33376E-01_JPRB,0.37326E-01_JPRB,0.41783E-01_JPRB,0.46997E-01_JPRB,0.53158E-01_JPRB /)  
+KB(:,42, 9) = (/ &
+ & 0.28074E-01_JPRB,0.31535E-01_JPRB,0.35493E-01_JPRB,0.40112E-01_JPRB,0.45645E-01_JPRB /)  
+KB(:,43, 9) = (/ &
+ & 0.23419E-01_JPRB,0.26419E-01_JPRB,0.29889E-01_JPRB,0.33982E-01_JPRB,0.38867E-01_JPRB /)  
+KB(:,44, 9) = (/ &
+ & 0.19437E-01_JPRB,0.22035E-01_JPRB,0.25042E-01_JPRB,0.28622E-01_JPRB,0.32930E-01_JPRB /)  
+KB(:,45, 9) = (/ &
+ & 0.16083E-01_JPRB,0.18329E-01_JPRB,0.20937E-01_JPRB,0.24027E-01_JPRB,0.27786E-01_JPRB /)  
+KB(:,46, 9) = (/ &
+ & 0.13236E-01_JPRB,0.15146E-01_JPRB,0.17420E-01_JPRB,0.20094E-01_JPRB,0.23328E-01_JPRB /)  
+KB(:,47, 9) = (/ &
+ & 0.10820E-01_JPRB,0.12455E-01_JPRB,0.14377E-01_JPRB,0.16656E-01_JPRB,0.19464E-01_JPRB /)  
+KB(:,48, 9) = (/ &
+ & 0.88043E-02_JPRB,0.10190E-01_JPRB,0.11813E-01_JPRB,0.13745E-01_JPRB,0.16141E-01_JPRB /)  
+KB(:,49, 9) = (/ &
+ & 0.71234E-02_JPRB,0.82775E-02_JPRB,0.96453E-02_JPRB,0.11284E-01_JPRB,0.13310E-01_JPRB /)  
+KB(:,50, 9) = (/ &
+ & 0.58127E-02_JPRB,0.67802E-02_JPRB,0.79379E-02_JPRB,0.93254E-02_JPRB,0.11078E-01_JPRB /)  
+KB(:,51, 9) = (/ &
+ & 0.47494E-02_JPRB,0.55659E-02_JPRB,0.65602E-02_JPRB,0.77407E-02_JPRB,0.92288E-02_JPRB /)  
+KB(:,52, 9) = (/ &
+ & 0.38618E-02_JPRB,0.45424E-02_JPRB,0.53925E-02_JPRB,0.64011E-02_JPRB,0.76645E-02_JPRB /)  
+KB(:,53, 9) = (/ &
+ & 0.31264E-02_JPRB,0.36823E-02_JPRB,0.43952E-02_JPRB,0.52615E-02_JPRB,0.63311E-02_JPRB /)  
+KB(:,54, 9) = (/ &
+ & 0.25794E-02_JPRB,0.30481E-02_JPRB,0.36548E-02_JPRB,0.44037E-02_JPRB,0.53380E-02_JPRB /)  
+KB(:,55, 9) = (/ &
+ & 0.21508E-02_JPRB,0.25472E-02_JPRB,0.30665E-02_JPRB,0.37188E-02_JPRB,0.45472E-02_JPRB /)  
+KB(:,56, 9) = (/ &
+ & 0.17938E-02_JPRB,0.21263E-02_JPRB,0.25713E-02_JPRB,0.31411E-02_JPRB,0.38667E-02_JPRB /)  
+KB(:,57, 9) = (/ &
+ & 0.14949E-02_JPRB,0.17755E-02_JPRB,0.21510E-02_JPRB,0.26439E-02_JPRB,0.32830E-02_JPRB /)  
+KB(:,58, 9) = (/ &
+ & 0.12521E-02_JPRB,0.14938E-02_JPRB,0.18137E-02_JPRB,0.22426E-02_JPRB,0.28028E-02_JPRB /)  
+KB(:,59, 9) = (/ &
+ & 0.11302E-02_JPRB,0.13552E-02_JPRB,0.16582E-02_JPRB,0.20691E-02_JPRB,0.26051E-02_JPRB /)  
+KB(:,13,10) = (/ &
+ & 0.14370E+02_JPRB,0.14649E+02_JPRB,0.14957E+02_JPRB,0.15296E+02_JPRB,0.15663E+02_JPRB /)  
+KB(:,14,10) = (/ &
+ & 0.12178E+02_JPRB,0.12411E+02_JPRB,0.12682E+02_JPRB,0.12978E+02_JPRB,0.13316E+02_JPRB /)  
+KB(:,15,10) = (/ &
+ & 0.10211E+02_JPRB,0.10402E+02_JPRB,0.10625E+02_JPRB,0.10894E+02_JPRB,0.11239E+02_JPRB /)  
+KB(:,16,10) = (/ &
+ & 0.85974E+01_JPRB,0.87539E+01_JPRB,0.89410E+01_JPRB,0.91849E+01_JPRB,0.95108E+01_JPRB /)  
+KB(:,17,10) = (/ &
+ & 0.72440E+01_JPRB,0.73858E+01_JPRB,0.75683E+01_JPRB,0.78199E+01_JPRB,0.81516E+01_JPRB /)  
+KB(:,18,10) = (/ &
+ & 0.59680E+01_JPRB,0.61054E+01_JPRB,0.63108E+01_JPRB,0.66074E+01_JPRB,0.69367E+01_JPRB /)  
+KB(:,19,10) = (/ &
+ & 0.47759E+01_JPRB,0.49000E+01_JPRB,0.51125E+01_JPRB,0.53858E+01_JPRB,0.56972E+01_JPRB /)  
+KB(:,20,10) = (/ &
+ & 0.40682E+01_JPRB,0.42060E+01_JPRB,0.43988E+01_JPRB,0.46035E+01_JPRB,0.48052E+01_JPRB /)  
+KB(:,21,10) = (/ &
+ & 0.35226E+01_JPRB,0.36715E+01_JPRB,0.38357E+01_JPRB,0.40017E+01_JPRB,0.41636E+01_JPRB /)  
+KB(:,22,10) = (/ &
+ & 0.30730E+01_JPRB,0.32059E+01_JPRB,0.33607E+01_JPRB,0.35055E+01_JPRB,0.36621E+01_JPRB /)  
+KB(:,23,10) = (/ &
+ & 0.26688E+01_JPRB,0.27999E+01_JPRB,0.29296E+01_JPRB,0.30668E+01_JPRB,0.32115E+01_JPRB /)  
+KB(:,24,10) = (/ &
+ & 0.23228E+01_JPRB,0.24338E+01_JPRB,0.25510E+01_JPRB,0.26866E+01_JPRB,0.28223E+01_JPRB /)  
+KB(:,25,10) = (/ &
+ & 0.19964E+01_JPRB,0.21083E+01_JPRB,0.22332E+01_JPRB,0.23566E+01_JPRB,0.24845E+01_JPRB /)  
+KB(:,26,10) = (/ &
+ & 0.17097E+01_JPRB,0.18190E+01_JPRB,0.19420E+01_JPRB,0.20663E+01_JPRB,0.21952E+01_JPRB /)  
+KB(:,27,10) = (/ &
+ & 0.14729E+01_JPRB,0.15741E+01_JPRB,0.16825E+01_JPRB,0.17963E+01_JPRB,0.19295E+01_JPRB /)  
+KB(:,28,10) = (/ &
+ & 0.12788E+01_JPRB,0.13609E+01_JPRB,0.14562E+01_JPRB,0.15668E+01_JPRB,0.17032E+01_JPRB /)  
+KB(:,29,10) = (/ &
+ & 0.11113E+01_JPRB,0.11813E+01_JPRB,0.12669E+01_JPRB,0.13763E+01_JPRB,0.15012E+01_JPRB /)  
+KB(:,30,10) = (/ &
+ & 0.96661E+00_JPRB,0.10287E+01_JPRB,0.11081E+01_JPRB,0.12093E+01_JPRB,0.13273E+01_JPRB /)  
+KB(:,31,10) = (/ &
+ & 0.83795E+00_JPRB,0.89792E+00_JPRB,0.97327E+00_JPRB,0.10727E+01_JPRB,0.11828E+01_JPRB /)  
+KB(:,32,10) = (/ &
+ & 0.72634E+00_JPRB,0.78480E+00_JPRB,0.86071E+00_JPRB,0.95503E+00_JPRB,0.10615E+01_JPRB /)  
+KB(:,33,10) = (/ &
+ & 0.63134E+00_JPRB,0.68789E+00_JPRB,0.76628E+00_JPRB,0.85854E+00_JPRB,0.96370E+00_JPRB /)  
+KB(:,34,10) = (/ &
+ & 0.55172E+00_JPRB,0.60863E+00_JPRB,0.68672E+00_JPRB,0.77637E+00_JPRB,0.87664E+00_JPRB /)  
+KB(:,35,10) = (/ &
+ & 0.48039E+00_JPRB,0.53701E+00_JPRB,0.61125E+00_JPRB,0.69795E+00_JPRB,0.79084E+00_JPRB /)  
+KB(:,36,10) = (/ &
+ & 0.41819E+00_JPRB,0.47188E+00_JPRB,0.54096E+00_JPRB,0.62096E+00_JPRB,0.70693E+00_JPRB /)  
+KB(:,37,10) = (/ &
+ & 0.36050E+00_JPRB,0.40906E+00_JPRB,0.47069E+00_JPRB,0.54184E+00_JPRB,0.62144E+00_JPRB /)  
+KB(:,38,10) = (/ &
+ & 0.31156E+00_JPRB,0.35409E+00_JPRB,0.40958E+00_JPRB,0.47371E+00_JPRB,0.54611E+00_JPRB /)  
+KB(:,39,10) = (/ &
+ & 0.26782E+00_JPRB,0.30677E+00_JPRB,0.35645E+00_JPRB,0.41535E+00_JPRB,0.48073E+00_JPRB /)  
+KB(:,40,10) = (/ &
+ & 0.23006E+00_JPRB,0.26273E+00_JPRB,0.30670E+00_JPRB,0.35934E+00_JPRB,0.41871E+00_JPRB /)  
+KB(:,41,10) = (/ &
+ & 0.19681E+00_JPRB,0.22601E+00_JPRB,0.26383E+00_JPRB,0.31041E+00_JPRB,0.36443E+00_JPRB /)  
+KB(:,42,10) = (/ &
+ & 0.16794E+00_JPRB,0.19457E+00_JPRB,0.22757E+00_JPRB,0.26875E+00_JPRB,0.31708E+00_JPRB /)  
+KB(:,43,10) = (/ &
+ & 0.14222E+00_JPRB,0.16606E+00_JPRB,0.19480E+00_JPRB,0.23049E+00_JPRB,0.27422E+00_JPRB /)  
+KB(:,44,10) = (/ &
+ & 0.11907E+00_JPRB,0.14059E+00_JPRB,0.16567E+00_JPRB,0.19741E+00_JPRB,0.23557E+00_JPRB /)  
+KB(:,45,10) = (/ &
+ & 0.99508E-01_JPRB,0.11792E+00_JPRB,0.14029E+00_JPRB,0.16912E+00_JPRB,0.20294E+00_JPRB /)  
+KB(:,46,10) = (/ &
+ & 0.82787E-01_JPRB,0.98729E-01_JPRB,0.11783E+00_JPRB,0.14344E+00_JPRB,0.17433E+00_JPRB /)  
+KB(:,47,10) = (/ &
+ & 0.68205E-01_JPRB,0.81739E-01_JPRB,0.98558E-01_JPRB,0.12017E+00_JPRB,0.14798E+00_JPRB /)  
+KB(:,48,10) = (/ &
+ & 0.55907E-01_JPRB,0.67050E-01_JPRB,0.81465E-01_JPRB,0.10030E+00_JPRB,0.12506E+00_JPRB /)  
+KB(:,49,10) = (/ &
+ & 0.45682E-01_JPRB,0.54871E-01_JPRB,0.66950E-01_JPRB,0.83270E-01_JPRB,0.10500E+00_JPRB /)  
+KB(:,50,10) = (/ &
+ & 0.37515E-01_JPRB,0.45259E-01_JPRB,0.55584E-01_JPRB,0.69475E-01_JPRB,0.88432E-01_JPRB /)  
+KB(:,51,10) = (/ &
+ & 0.31052E-01_JPRB,0.37347E-01_JPRB,0.46136E-01_JPRB,0.58029E-01_JPRB,0.74379E-01_JPRB /)  
+KB(:,52,10) = (/ &
+ & 0.25697E-01_JPRB,0.30758E-01_JPRB,0.38027E-01_JPRB,0.48169E-01_JPRB,0.62340E-01_JPRB /)  
+KB(:,53,10) = (/ &
+ & 0.21053E-01_JPRB,0.25282E-01_JPRB,0.31221E-01_JPRB,0.39765E-01_JPRB,0.52061E-01_JPRB /)  
+KB(:,54,10) = (/ &
+ & 0.17506E-01_JPRB,0.21171E-01_JPRB,0.26181E-01_JPRB,0.33450E-01_JPRB,0.43837E-01_JPRB /)  
+KB(:,55,10) = (/ &
+ & 0.14733E-01_JPRB,0.17912E-01_JPRB,0.22352E-01_JPRB,0.28517E-01_JPRB,0.37310E-01_JPRB /)  
+KB(:,56,10) = (/ &
+ & 0.12382E-01_JPRB,0.15138E-01_JPRB,0.19031E-01_JPRB,0.24337E-01_JPRB,0.31780E-01_JPRB /)  
+KB(:,57,10) = (/ &
+ & 0.10363E-01_JPRB,0.12802E-01_JPRB,0.16188E-01_JPRB,0.20731E-01_JPRB,0.27252E-01_JPRB /)  
+KB(:,58,10) = (/ &
+ & 0.87632E-02_JPRB,0.10863E-01_JPRB,0.13823E-01_JPRB,0.17907E-01_JPRB,0.23570E-01_JPRB /)  
+KB(:,59,10) = (/ &
+ & 0.79477E-02_JPRB,0.99708E-02_JPRB,0.12797E-01_JPRB,0.16832E-01_JPRB,0.22384E-01_JPRB /)  
+KB(:,13,11) = (/ &
+ & 0.27028E+02_JPRB,0.27753E+02_JPRB,0.28483E+02_JPRB,0.29219E+02_JPRB,0.29909E+02_JPRB /)  
+KB(:,14,11) = (/ &
+ & 0.23419E+02_JPRB,0.24025E+02_JPRB,0.24638E+02_JPRB,0.25228E+02_JPRB,0.25789E+02_JPRB /)  
+KB(:,15,11) = (/ &
+ & 0.20150E+02_JPRB,0.20660E+02_JPRB,0.21151E+02_JPRB,0.21642E+02_JPRB,0.22118E+02_JPRB /)  
+KB(:,16,11) = (/ &
+ & 0.17107E+02_JPRB,0.17510E+02_JPRB,0.17925E+02_JPRB,0.18355E+02_JPRB,0.18823E+02_JPRB /)  
+KB(:,17,11) = (/ &
+ & 0.14361E+02_JPRB,0.14686E+02_JPRB,0.15035E+02_JPRB,0.15422E+02_JPRB,0.15903E+02_JPRB /)  
+KB(:,18,11) = (/ &
+ & 0.12138E+02_JPRB,0.12397E+02_JPRB,0.12696E+02_JPRB,0.13058E+02_JPRB,0.13553E+02_JPRB /)  
+KB(:,19,11) = (/ &
+ & 0.10135E+02_JPRB,0.10395E+02_JPRB,0.10708E+02_JPRB,0.11115E+02_JPRB,0.11638E+02_JPRB /)  
+KB(:,20,11) = (/ &
+ & 0.81786E+01_JPRB,0.84190E+01_JPRB,0.87492E+01_JPRB,0.92221E+01_JPRB,0.97673E+01_JPRB /)  
+KB(:,21,11) = (/ &
+ & 0.68203E+01_JPRB,0.70074E+01_JPRB,0.73249E+01_JPRB,0.77062E+01_JPRB,0.81227E+01_JPRB /)  
+KB(:,22,11) = (/ &
+ & 0.58880E+01_JPRB,0.61142E+01_JPRB,0.64089E+01_JPRB,0.67273E+01_JPRB,0.70540E+01_JPRB /)  
+KB(:,23,11) = (/ &
+ & 0.51482E+01_JPRB,0.53972E+01_JPRB,0.56613E+01_JPRB,0.59190E+01_JPRB,0.62039E+01_JPRB /)  
+KB(:,24,11) = (/ &
+ & 0.45460E+01_JPRB,0.47798E+01_JPRB,0.50055E+01_JPRB,0.52340E+01_JPRB,0.54793E+01_JPRB /)  
+KB(:,25,11) = (/ &
+ & 0.40038E+01_JPRB,0.42162E+01_JPRB,0.44356E+01_JPRB,0.46519E+01_JPRB,0.48861E+01_JPRB /)  
+KB(:,26,11) = (/ &
+ & 0.35330E+01_JPRB,0.37282E+01_JPRB,0.39261E+01_JPRB,0.41342E+01_JPRB,0.43614E+01_JPRB /)  
+KB(:,27,11) = (/ &
+ & 0.30918E+01_JPRB,0.32790E+01_JPRB,0.34783E+01_JPRB,0.36774E+01_JPRB,0.38933E+01_JPRB /)  
+KB(:,28,11) = (/ &
+ & 0.27019E+01_JPRB,0.28880E+01_JPRB,0.30842E+01_JPRB,0.32755E+01_JPRB,0.34826E+01_JPRB /)  
+KB(:,29,11) = (/ &
+ & 0.23567E+01_JPRB,0.25399E+01_JPRB,0.27237E+01_JPRB,0.29118E+01_JPRB,0.31184E+01_JPRB /)  
+KB(:,30,11) = (/ &
+ & 0.20673E+01_JPRB,0.22421E+01_JPRB,0.24146E+01_JPRB,0.26001E+01_JPRB,0.28136E+01_JPRB /)  
+KB(:,31,11) = (/ &
+ & 0.18233E+01_JPRB,0.19796E+01_JPRB,0.21491E+01_JPRB,0.23275E+01_JPRB,0.25391E+01_JPRB /)  
+KB(:,32,11) = (/ &
+ & 0.16164E+01_JPRB,0.17629E+01_JPRB,0.19137E+01_JPRB,0.20921E+01_JPRB,0.23020E+01_JPRB /)  
+KB(:,33,11) = (/ &
+ & 0.14325E+01_JPRB,0.15691E+01_JPRB,0.17171E+01_JPRB,0.18965E+01_JPRB,0.20991E+01_JPRB /)  
+KB(:,34,11) = (/ &
+ & 0.12711E+01_JPRB,0.14025E+01_JPRB,0.15514E+01_JPRB,0.17231E+01_JPRB,0.19204E+01_JPRB /)  
+KB(:,35,11) = (/ &
+ & 0.11251E+01_JPRB,0.12478E+01_JPRB,0.13948E+01_JPRB,0.15591E+01_JPRB,0.17428E+01_JPRB /)  
+KB(:,36,11) = (/ &
+ & 0.98734E+00_JPRB,0.11026E+01_JPRB,0.12425E+01_JPRB,0.13991E+01_JPRB,0.15730E+01_JPRB /)  
+KB(:,37,11) = (/ &
+ & 0.85152E+00_JPRB,0.96327E+00_JPRB,0.10911E+01_JPRB,0.12398E+01_JPRB,0.14045E+01_JPRB /)  
+KB(:,38,11) = (/ &
+ & 0.73399E+00_JPRB,0.83942E+00_JPRB,0.95984E+00_JPRB,0.10967E+01_JPRB,0.12526E+01_JPRB /)  
+KB(:,39,11) = (/ &
+ & 0.63468E+00_JPRB,0.73175E+00_JPRB,0.84488E+00_JPRB,0.97279E+00_JPRB,0.11163E+01_JPRB /)  
+KB(:,40,11) = (/ &
+ & 0.54166E+00_JPRB,0.63099E+00_JPRB,0.73459E+00_JPRB,0.85525E+00_JPRB,0.98986E+00_JPRB /)  
+KB(:,41,11) = (/ &
+ & 0.46341E+00_JPRB,0.54185E+00_JPRB,0.63786E+00_JPRB,0.75041E+00_JPRB,0.87557E+00_JPRB /)  
+KB(:,42,11) = (/ &
+ & 0.39710E+00_JPRB,0.46604E+00_JPRB,0.55335E+00_JPRB,0.65788E+00_JPRB,0.77518E+00_JPRB /)  
+KB(:,43,11) = (/ &
+ & 0.33809E+00_JPRB,0.39845E+00_JPRB,0.47656E+00_JPRB,0.56991E+00_JPRB,0.67763E+00_JPRB /)  
+KB(:,44,11) = (/ &
+ & 0.28738E+00_JPRB,0.33811E+00_JPRB,0.40783E+00_JPRB,0.49238E+00_JPRB,0.58805E+00_JPRB /)  
+KB(:,45,11) = (/ &
+ & 0.24372E+00_JPRB,0.28787E+00_JPRB,0.34858E+00_JPRB,0.42338E+00_JPRB,0.51131E+00_JPRB /)  
+KB(:,46,11) = (/ &
+ & 0.20655E+00_JPRB,0.24407E+00_JPRB,0.29751E+00_JPRB,0.36239E+00_JPRB,0.44206E+00_JPRB /)  
+KB(:,47,11) = (/ &
+ & 0.17359E+00_JPRB,0.20653E+00_JPRB,0.25158E+00_JPRB,0.30900E+00_JPRB,0.37888E+00_JPRB /)  
+KB(:,48,11) = (/ &
+ & 0.14508E+00_JPRB,0.17395E+00_JPRB,0.21335E+00_JPRB,0.26232E+00_JPRB,0.32328E+00_JPRB /)  
+KB(:,49,11) = (/ &
+ & 0.12016E+00_JPRB,0.14523E+00_JPRB,0.17928E+00_JPRB,0.22128E+00_JPRB,0.27412E+00_JPRB /)  
+KB(:,50,11) = (/ &
+ & 0.99920E-01_JPRB,0.12218E+00_JPRB,0.15097E+00_JPRB,0.18907E+00_JPRB,0.23575E+00_JPRB /)  
+KB(:,51,11) = (/ &
+ & 0.82909E-01_JPRB,0.10226E+00_JPRB,0.12737E+00_JPRB,0.16132E+00_JPRB,0.20378E+00_JPRB /)  
+KB(:,52,11) = (/ &
+ & 0.68577E-01_JPRB,0.85131E-01_JPRB,0.10673E+00_JPRB,0.13644E+00_JPRB,0.17453E+00_JPRB /)  
+KB(:,53,11) = (/ &
+ & 0.56302E-01_JPRB,0.70491E-01_JPRB,0.88684E-01_JPRB,0.11469E+00_JPRB,0.14786E+00_JPRB /)  
+KB(:,54,11) = (/ &
+ & 0.47171E-01_JPRB,0.59185E-01_JPRB,0.74877E-01_JPRB,0.97387E-01_JPRB,0.12762E+00_JPRB /)  
+KB(:,55,11) = (/ &
+ & 0.40028E-01_JPRB,0.50199E-01_JPRB,0.63960E-01_JPRB,0.83211E-01_JPRB,0.11104E+00_JPRB /)  
+KB(:,56,11) = (/ &
+ & 0.33854E-01_JPRB,0.42508E-01_JPRB,0.54649E-01_JPRB,0.71262E-01_JPRB,0.95596E-01_JPRB /)  
+KB(:,57,11) = (/ &
+ & 0.28590E-01_JPRB,0.36142E-01_JPRB,0.46409E-01_JPRB,0.61269E-01_JPRB,0.82012E-01_JPRB /)  
+KB(:,58,11) = (/ &
+ & 0.24352E-01_JPRB,0.30934E-01_JPRB,0.39697E-01_JPRB,0.52483E-01_JPRB,0.71167E-01_JPRB /)  
+KB(:,59,11) = (/ &
+ & 0.22598E-01_JPRB,0.29152E-01_JPRB,0.37468E-01_JPRB,0.48573E-01_JPRB,0.66434E-01_JPRB /)  
+KB(:,13,12) = (/ &
+ & 0.57172E+02_JPRB,0.59297E+02_JPRB,0.61400E+02_JPRB,0.63512E+02_JPRB,0.65627E+02_JPRB /)  
+KB(:,14,12) = (/ &
+ & 0.50361E+02_JPRB,0.52086E+02_JPRB,0.53828E+02_JPRB,0.55595E+02_JPRB,0.57346E+02_JPRB /)  
+KB(:,15,12) = (/ &
+ & 0.44078E+02_JPRB,0.45453E+02_JPRB,0.46902E+02_JPRB,0.48347E+02_JPRB,0.49789E+02_JPRB /)  
+KB(:,16,12) = (/ &
+ & 0.38395E+02_JPRB,0.39554E+02_JPRB,0.40754E+02_JPRB,0.41955E+02_JPRB,0.43150E+02_JPRB /)  
+KB(:,17,12) = (/ &
+ & 0.33363E+02_JPRB,0.34355E+02_JPRB,0.35352E+02_JPRB,0.36337E+02_JPRB,0.37312E+02_JPRB /)  
+KB(:,18,12) = (/ &
+ & 0.28599E+02_JPRB,0.29463E+02_JPRB,0.30307E+02_JPRB,0.31155E+02_JPRB,0.32043E+02_JPRB /)  
+KB(:,19,12) = (/ &
+ & 0.24284E+02_JPRB,0.24982E+02_JPRB,0.25685E+02_JPRB,0.26424E+02_JPRB,0.27289E+02_JPRB /)  
+KB(:,20,12) = (/ &
+ & 0.20576E+02_JPRB,0.21117E+02_JPRB,0.21693E+02_JPRB,0.22370E+02_JPRB,0.23304E+02_JPRB /)  
+KB(:,21,12) = (/ &
+ & 0.17126E+02_JPRB,0.17629E+02_JPRB,0.18193E+02_JPRB,0.18968E+02_JPRB,0.20012E+02_JPRB /)  
+KB(:,22,12) = (/ &
+ & 0.14084E+02_JPRB,0.14526E+02_JPRB,0.15112E+02_JPRB,0.15986E+02_JPRB,0.17086E+02_JPRB /)  
+KB(:,23,12) = (/ &
+ & 0.11727E+02_JPRB,0.12073E+02_JPRB,0.12663E+02_JPRB,0.13546E+02_JPRB,0.14594E+02_JPRB /)  
+KB(:,24,12) = (/ &
+ & 0.10116E+02_JPRB,0.10483E+02_JPRB,0.11087E+02_JPRB,0.11839E+02_JPRB,0.12630E+02_JPRB /)  
+KB(:,25,12) = (/ &
+ & 0.89362E+01_JPRB,0.93748E+01_JPRB,0.99578E+01_JPRB,0.10576E+02_JPRB,0.11263E+02_JPRB /)  
+KB(:,26,12) = (/ &
+ & 0.79574E+01_JPRB,0.84325E+01_JPRB,0.89960E+01_JPRB,0.95862E+01_JPRB,0.10135E+02_JPRB /)  
+KB(:,27,12) = (/ &
+ & 0.71290E+01_JPRB,0.76343E+01_JPRB,0.81343E+01_JPRB,0.86609E+01_JPRB,0.91441E+01_JPRB /)  
+KB(:,28,12) = (/ &
+ & 0.64441E+01_JPRB,0.69081E+01_JPRB,0.73340E+01_JPRB,0.77892E+01_JPRB,0.82579E+01_JPRB /)  
+KB(:,29,12) = (/ &
+ & 0.57859E+01_JPRB,0.61904E+01_JPRB,0.65762E+01_JPRB,0.69937E+01_JPRB,0.74255E+01_JPRB /)  
+KB(:,30,12) = (/ &
+ & 0.51602E+01_JPRB,0.55338E+01_JPRB,0.58953E+01_JPRB,0.62766E+01_JPRB,0.66823E+01_JPRB /)  
+KB(:,31,12) = (/ &
+ & 0.45943E+01_JPRB,0.49270E+01_JPRB,0.52739E+01_JPRB,0.56298E+01_JPRB,0.60118E+01_JPRB /)  
+KB(:,32,12) = (/ &
+ & 0.40881E+01_JPRB,0.44095E+01_JPRB,0.47450E+01_JPRB,0.50839E+01_JPRB,0.54488E+01_JPRB /)  
+KB(:,33,12) = (/ &
+ & 0.36534E+01_JPRB,0.39549E+01_JPRB,0.42670E+01_JPRB,0.46043E+01_JPRB,0.49743E+01_JPRB /)  
+KB(:,34,12) = (/ &
+ & 0.32874E+01_JPRB,0.35667E+01_JPRB,0.38571E+01_JPRB,0.41872E+01_JPRB,0.45862E+01_JPRB /)  
+KB(:,35,12) = (/ &
+ & 0.29379E+01_JPRB,0.31963E+01_JPRB,0.34845E+01_JPRB,0.38151E+01_JPRB,0.42290E+01_JPRB /)  
+KB(:,36,12) = (/ &
+ & 0.26101E+01_JPRB,0.28628E+01_JPRB,0.31405E+01_JPRB,0.34760E+01_JPRB,0.38927E+01_JPRB /)  
+KB(:,37,12) = (/ &
+ & 0.23047E+01_JPRB,0.25368E+01_JPRB,0.28124E+01_JPRB,0.31292E+01_JPRB,0.35310E+01_JPRB /)  
+KB(:,38,12) = (/ &
+ & 0.20413E+01_JPRB,0.22603E+01_JPRB,0.25129E+01_JPRB,0.28252E+01_JPRB,0.32149E+01_JPRB /)  
+KB(:,39,12) = (/ &
+ & 0.18040E+01_JPRB,0.20133E+01_JPRB,0.22565E+01_JPRB,0.25571E+01_JPRB,0.29423E+01_JPRB /)  
+KB(:,40,12) = (/ &
+ & 0.15898E+01_JPRB,0.17862E+01_JPRB,0.20189E+01_JPRB,0.22992E+01_JPRB,0.26576E+01_JPRB /)  
+KB(:,41,12) = (/ &
+ & 0.14002E+01_JPRB,0.15861E+01_JPRB,0.18008E+01_JPRB,0.20620E+01_JPRB,0.24028E+01_JPRB /)  
+KB(:,42,12) = (/ &
+ & 0.12302E+01_JPRB,0.14049E+01_JPRB,0.16015E+01_JPRB,0.18444E+01_JPRB,0.21658E+01_JPRB /)  
+KB(:,43,12) = (/ &
+ & 0.10668E+01_JPRB,0.12258E+01_JPRB,0.14101E+01_JPRB,0.16347E+01_JPRB,0.19297E+01_JPRB /)  
+KB(:,44,12) = (/ &
+ & 0.91800E+00_JPRB,0.10642E+01_JPRB,0.12324E+01_JPRB,0.14347E+01_JPRB,0.17074E+01_JPRB /)  
+KB(:,45,12) = (/ &
+ & 0.78687E+00_JPRB,0.91967E+00_JPRB,0.10737E+01_JPRB,0.12598E+01_JPRB,0.15049E+01_JPRB /)  
+KB(:,46,12) = (/ &
+ & 0.67148E+00_JPRB,0.79041E+00_JPRB,0.92761E+00_JPRB,0.10973E+01_JPRB,0.13177E+01_JPRB /)  
+KB(:,47,12) = (/ &
+ & 0.57045E+00_JPRB,0.67640E+00_JPRB,0.80034E+00_JPRB,0.94779E+00_JPRB,0.11432E+01_JPRB /)  
+KB(:,48,12) = (/ &
+ & 0.48142E+00_JPRB,0.57646E+00_JPRB,0.68676E+00_JPRB,0.82116E+00_JPRB,0.98898E+00_JPRB /)  
+KB(:,49,12) = (/ &
+ & 0.40194E+00_JPRB,0.48757E+00_JPRB,0.58498E+00_JPRB,0.70838E+00_JPRB,0.85881E+00_JPRB /)  
+KB(:,50,12) = (/ &
+ & 0.34095E+00_JPRB,0.41499E+00_JPRB,0.50425E+00_JPRB,0.61464E+00_JPRB,0.75451E+00_JPRB /)  
+KB(:,51,12) = (/ &
+ & 0.29038E+00_JPRB,0.35608E+00_JPRB,0.43553E+00_JPRB,0.53422E+00_JPRB,0.66315E+00_JPRB /)  
+KB(:,52,12) = (/ &
+ & 0.24615E+00_JPRB,0.30360E+00_JPRB,0.37359E+00_JPRB,0.46378E+00_JPRB,0.57808E+00_JPRB /)  
+KB(:,53,12) = (/ &
+ & 0.20660E+00_JPRB,0.25764E+00_JPRB,0.31993E+00_JPRB,0.39869E+00_JPRB,0.50232E+00_JPRB /)  
+KB(:,54,12) = (/ &
+ & 0.17518E+00_JPRB,0.22280E+00_JPRB,0.27852E+00_JPRB,0.34881E+00_JPRB,0.44243E+00_JPRB /)  
+KB(:,55,12) = (/ &
+ & 0.14906E+00_JPRB,0.19392E+00_JPRB,0.24538E+00_JPRB,0.31045E+00_JPRB,0.39204E+00_JPRB /)  
+KB(:,56,12) = (/ &
+ & 0.12564E+00_JPRB,0.16748E+00_JPRB,0.21535E+00_JPRB,0.27386E+00_JPRB,0.34816E+00_JPRB /)  
+KB(:,57,12) = (/ &
+ & 0.10489E+00_JPRB,0.14334E+00_JPRB,0.18902E+00_JPRB,0.24147E+00_JPRB,0.30976E+00_JPRB /)  
+KB(:,58,12) = (/ &
+ & 0.88415E-01_JPRB,0.12250E+00_JPRB,0.16566E+00_JPRB,0.21499E+00_JPRB,0.27515E+00_JPRB /)  
+KB(:,59,12) = (/ &
+ & 0.80710E-01_JPRB,0.11375E+00_JPRB,0.15629E+00_JPRB,0.20737E+00_JPRB,0.26838E+00_JPRB /)  
+KB(:,13,13) = (/ &
+ & 0.16465E+03_JPRB,0.16298E+03_JPRB,0.16413E+03_JPRB,0.16796E+03_JPRB,0.17425E+03_JPRB /)  
+KB(:,14,13) = (/ &
+ & 0.14134E+03_JPRB,0.14223E+03_JPRB,0.14584E+03_JPRB,0.15183E+03_JPRB,0.15823E+03_JPRB /)  
+KB(:,15,13) = (/ &
+ & 0.12334E+03_JPRB,0.12642E+03_JPRB,0.13170E+03_JPRB,0.13719E+03_JPRB,0.14248E+03_JPRB /)  
+KB(:,16,13) = (/ &
+ & 0.10903E+03_JPRB,0.11350E+03_JPRB,0.11825E+03_JPRB,0.12284E+03_JPRB,0.12720E+03_JPRB /)  
+KB(:,17,13) = (/ &
+ & 0.96744E+02_JPRB,0.10077E+03_JPRB,0.10473E+03_JPRB,0.10856E+03_JPRB,0.11225E+03_JPRB /)  
+KB(:,18,13) = (/ &
+ & 0.85368E+02_JPRB,0.88669E+02_JPRB,0.91934E+02_JPRB,0.95127E+02_JPRB,0.98216E+02_JPRB /)  
+KB(:,19,13) = (/ &
+ & 0.74865E+02_JPRB,0.77560E+02_JPRB,0.80263E+02_JPRB,0.82912E+02_JPRB,0.85499E+02_JPRB /)  
+KB(:,20,13) = (/ &
+ & 0.65304E+02_JPRB,0.67588E+02_JPRB,0.69849E+02_JPRB,0.72099E+02_JPRB,0.74316E+02_JPRB /)  
+KB(:,21,13) = (/ &
+ & 0.56704E+02_JPRB,0.58616E+02_JPRB,0.60541E+02_JPRB,0.62457E+02_JPRB,0.64444E+02_JPRB /)  
+KB(:,22,13) = (/ &
+ & 0.49099E+02_JPRB,0.50788E+02_JPRB,0.52451E+02_JPRB,0.54119E+02_JPRB,0.55970E+02_JPRB /)  
+KB(:,23,13) = (/ &
+ & 0.42076E+02_JPRB,0.43646E+02_JPRB,0.45230E+02_JPRB,0.46888E+02_JPRB,0.48798E+02_JPRB /)  
+KB(:,24,13) = (/ &
+ & 0.35457E+02_JPRB,0.36904E+02_JPRB,0.38447E+02_JPRB,0.40262E+02_JPRB,0.42565E+02_JPRB /)  
+KB(:,25,13) = (/ &
+ & 0.29832E+02_JPRB,0.31036E+02_JPRB,0.32508E+02_JPRB,0.34502E+02_JPRB,0.36979E+02_JPRB /)  
+KB(:,26,13) = (/ &
+ & 0.25205E+02_JPRB,0.26348E+02_JPRB,0.27792E+02_JPRB,0.29788E+02_JPRB,0.32459E+02_JPRB /)  
+KB(:,27,13) = (/ &
+ & 0.21486E+02_JPRB,0.22586E+02_JPRB,0.24162E+02_JPRB,0.26260E+02_JPRB,0.28944E+02_JPRB /)  
+KB(:,28,13) = (/ &
+ & 0.18712E+02_JPRB,0.19693E+02_JPRB,0.21370E+02_JPRB,0.23591E+02_JPRB,0.26158E+02_JPRB /)  
+KB(:,29,13) = (/ &
+ & 0.16630E+02_JPRB,0.17716E+02_JPRB,0.19369E+02_JPRB,0.21565E+02_JPRB,0.24102E+02_JPRB /)  
+KB(:,30,13) = (/ &
+ & 0.14923E+02_JPRB,0.16119E+02_JPRB,0.17783E+02_JPRB,0.19989E+02_JPRB,0.22379E+02_JPRB /)  
+KB(:,31,13) = (/ &
+ & 0.13532E+02_JPRB,0.14853E+02_JPRB,0.16576E+02_JPRB,0.18745E+02_JPRB,0.21084E+02_JPRB /)  
+KB(:,32,13) = (/ &
+ & 0.12453E+02_JPRB,0.13784E+02_JPRB,0.15587E+02_JPRB,0.17718E+02_JPRB,0.20022E+02_JPRB /)  
+KB(:,33,13) = (/ &
+ & 0.11580E+02_JPRB,0.13038E+02_JPRB,0.14851E+02_JPRB,0.16892E+02_JPRB,0.19192E+02_JPRB /)  
+KB(:,34,13) = (/ &
+ & 0.10820E+02_JPRB,0.12376E+02_JPRB,0.14134E+02_JPRB,0.16152E+02_JPRB,0.18402E+02_JPRB /)  
+KB(:,35,13) = (/ &
+ & 0.10116E+02_JPRB,0.11686E+02_JPRB,0.13402E+02_JPRB,0.15346E+02_JPRB,0.17556E+02_JPRB /)  
+KB(:,36,13) = (/ &
+ & 0.93933E+01_JPRB,0.10910E+02_JPRB,0.12572E+02_JPRB,0.14432E+02_JPRB,0.16536E+02_JPRB /)  
+KB(:,37,13) = (/ &
+ & 0.85160E+01_JPRB,0.99755E+01_JPRB,0.11554E+02_JPRB,0.13358E+02_JPRB,0.15350E+02_JPRB /)  
+KB(:,38,13) = (/ &
+ & 0.77505E+01_JPRB,0.91225E+01_JPRB,0.10670E+02_JPRB,0.12380E+02_JPRB,0.14273E+02_JPRB /)  
+KB(:,39,13) = (/ &
+ & 0.70897E+01_JPRB,0.83885E+01_JPRB,0.98694E+01_JPRB,0.11502E+02_JPRB,0.13343E+02_JPRB /)  
+KB(:,40,13) = (/ &
+ & 0.63295E+01_JPRB,0.75506E+01_JPRB,0.89466E+01_JPRB,0.10495E+02_JPRB,0.12287E+02_JPRB /)  
+KB(:,41,13) = (/ &
+ & 0.56302E+01_JPRB,0.67988E+01_JPRB,0.80957E+01_JPRB,0.96013E+01_JPRB,0.11280E+02_JPRB /)  
+KB(:,42,13) = (/ &
+ & 0.50234E+01_JPRB,0.61071E+01_JPRB,0.73389E+01_JPRB,0.87816E+01_JPRB,0.10380E+02_JPRB /)  
+KB(:,43,13) = (/ &
+ & 0.44225E+01_JPRB,0.54282E+01_JPRB,0.65963E+01_JPRB,0.79433E+01_JPRB,0.94666E+01_JPRB /)  
+KB(:,44,13) = (/ &
+ & 0.38558E+01_JPRB,0.47912E+01_JPRB,0.58905E+01_JPRB,0.71478E+01_JPRB,0.86145E+01_JPRB /)  
+KB(:,45,13) = (/ &
+ & 0.33575E+01_JPRB,0.42351E+01_JPRB,0.52475E+01_JPRB,0.64292E+01_JPRB,0.78296E+01_JPRB /)  
+KB(:,46,13) = (/ &
+ & 0.29053E+01_JPRB,0.37074E+01_JPRB,0.46432E+01_JPRB,0.57484E+01_JPRB,0.70674E+01_JPRB /)  
+KB(:,47,13) = (/ &
+ & 0.24706E+01_JPRB,0.31851E+01_JPRB,0.40524E+01_JPRB,0.50837E+01_JPRB,0.62990E+01_JPRB /)  
+KB(:,48,13) = (/ &
+ & 0.20907E+01_JPRB,0.27320E+01_JPRB,0.35232E+01_JPRB,0.44689E+01_JPRB,0.55998E+01_JPRB /)  
+KB(:,49,13) = (/ &
+ & 0.17652E+01_JPRB,0.23397E+01_JPRB,0.30525E+01_JPRB,0.39130E+01_JPRB,0.49641E+01_JPRB /)  
+KB(:,50,13) = (/ &
+ & 0.14980E+01_JPRB,0.19995E+01_JPRB,0.26386E+01_JPRB,0.34309E+01_JPRB,0.43930E+01_JPRB /)  
+KB(:,51,13) = (/ &
+ & 0.12883E+01_JPRB,0.17229E+01_JPRB,0.22808E+01_JPRB,0.30058E+01_JPRB,0.38921E+01_JPRB /)  
+KB(:,52,13) = (/ &
+ & 0.11032E+01_JPRB,0.14878E+01_JPRB,0.19945E+01_JPRB,0.26225E+01_JPRB,0.34327E+01_JPRB /)  
+KB(:,53,13) = (/ &
+ & 0.94256E+00_JPRB,0.12803E+01_JPRB,0.17436E+01_JPRB,0.23095E+01_JPRB,0.30258E+01_JPRB /)  
+KB(:,54,13) = (/ &
+ & 0.80847E+00_JPRB,0.11045E+01_JPRB,0.15250E+01_JPRB,0.20573E+01_JPRB,0.27048E+01_JPRB /)  
+KB(:,55,13) = (/ &
+ & 0.69972E+00_JPRB,0.95008E+00_JPRB,0.13215E+01_JPRB,0.18178E+01_JPRB,0.24326E+01_JPRB /)  
+KB(:,56,13) = (/ &
+ & 0.60659E+00_JPRB,0.81298E+00_JPRB,0.11430E+01_JPRB,0.15925E+01_JPRB,0.21783E+01_JPRB /)  
+KB(:,57,13) = (/ &
+ & 0.52664E+00_JPRB,0.69670E+00_JPRB,0.97998E+00_JPRB,0.13891E+01_JPRB,0.19333E+01_JPRB /)  
+KB(:,58,13) = (/ &
+ & 0.45985E+00_JPRB,0.60682E+00_JPRB,0.84337E+00_JPRB,0.12113E+01_JPRB,0.17188E+01_JPRB /)  
+KB(:,59,13) = (/ &
+ & 0.43853E+00_JPRB,0.57879E+00_JPRB,0.79018E+00_JPRB,0.11130E+01_JPRB,0.16039E+01_JPRB /)  
+KB(:,13,14) = (/ &
+ & 0.86016E+03_JPRB,0.84626E+03_JPRB,0.83228E+03_JPRB,0.81817E+03_JPRB,0.80450E+03_JPRB /)  
+KB(:,14,14) = (/ &
+ & 0.75981E+03_JPRB,0.74663E+03_JPRB,0.73345E+03_JPRB,0.72104E+03_JPRB,0.71224E+03_JPRB /)  
+KB(:,15,14) = (/ &
+ & 0.66201E+03_JPRB,0.64993E+03_JPRB,0.63891E+03_JPRB,0.63210E+03_JPRB,0.62978E+03_JPRB /)  
+KB(:,16,14) = (/ &
+ & 0.57014E+03_JPRB,0.56027E+03_JPRB,0.55466E+03_JPRB,0.55378E+03_JPRB,0.55721E+03_JPRB /)  
+KB(:,17,14) = (/ &
+ & 0.48861E+03_JPRB,0.48354E+03_JPRB,0.48324E+03_JPRB,0.48760E+03_JPRB,0.49602E+03_JPRB /)  
+KB(:,18,14) = (/ &
+ & 0.41987E+03_JPRB,0.41964E+03_JPRB,0.42411E+03_JPRB,0.43291E+03_JPRB,0.44575E+03_JPRB /)  
+KB(:,19,14) = (/ &
+ & 0.36303E+03_JPRB,0.36702E+03_JPRB,0.37556E+03_JPRB,0.38834E+03_JPRB,0.40471E+03_JPRB /)  
+KB(:,20,14) = (/ &
+ & 0.31651E+03_JPRB,0.32421E+03_JPRB,0.33627E+03_JPRB,0.35219E+03_JPRB,0.37072E+03_JPRB /)  
+KB(:,21,14) = (/ &
+ & 0.27867E+03_JPRB,0.28947E+03_JPRB,0.30434E+03_JPRB,0.32131E+03_JPRB,0.33823E+03_JPRB /)  
+KB(:,22,14) = (/ &
+ & 0.24916E+03_JPRB,0.26251E+03_JPRB,0.27768E+03_JPRB,0.29296E+03_JPRB,0.30844E+03_JPRB /)  
+KB(:,23,14) = (/ &
+ & 0.22571E+03_JPRB,0.23932E+03_JPRB,0.25291E+03_JPRB,0.26670E+03_JPRB,0.28069E+03_JPRB /)  
+KB(:,24,14) = (/ &
+ & 0.20503E+03_JPRB,0.21765E+03_JPRB,0.23029E+03_JPRB,0.24291E+03_JPRB,0.25575E+03_JPRB /)  
+KB(:,25,14) = (/ &
+ & 0.18574E+03_JPRB,0.19763E+03_JPRB,0.20960E+03_JPRB,0.22151E+03_JPRB,0.23356E+03_JPRB /)  
+KB(:,26,14) = (/ &
+ & 0.16825E+03_JPRB,0.17945E+03_JPRB,0.19085E+03_JPRB,0.20242E+03_JPRB,0.21406E+03_JPRB /)  
+KB(:,27,14) = (/ &
+ & 0.15254E+03_JPRB,0.16311E+03_JPRB,0.17402E+03_JPRB,0.18521E+03_JPRB,0.19696E+03_JPRB /)  
+KB(:,28,14) = (/ &
+ & 0.13815E+03_JPRB,0.14857E+03_JPRB,0.15913E+03_JPRB,0.17022E+03_JPRB,0.18238E+03_JPRB /)  
+KB(:,29,14) = (/ &
+ & 0.12560E+03_JPRB,0.13571E+03_JPRB,0.14630E+03_JPRB,0.15763E+03_JPRB,0.17019E+03_JPRB /)  
+KB(:,30,14) = (/ &
+ & 0.11497E+03_JPRB,0.12476E+03_JPRB,0.13550E+03_JPRB,0.14719E+03_JPRB,0.16044E+03_JPRB /)  
+KB(:,31,14) = (/ &
+ & 0.10602E+03_JPRB,0.11577E+03_JPRB,0.12671E+03_JPRB,0.13889E+03_JPRB,0.15289E+03_JPRB /)  
+KB(:,32,14) = (/ &
+ & 0.98519E+02_JPRB,0.10855E+03_JPRB,0.11978E+03_JPRB,0.13265E+03_JPRB,0.14744E+03_JPRB /)  
+KB(:,33,14) = (/ &
+ & 0.92517E+02_JPRB,0.10274E+03_JPRB,0.11452E+03_JPRB,0.12822E+03_JPRB,0.14389E+03_JPRB /)  
+KB(:,34,14) = (/ &
+ & 0.87441E+02_JPRB,0.97936E+02_JPRB,0.11044E+03_JPRB,0.12495E+03_JPRB,0.14148E+03_JPRB /)  
+KB(:,35,14) = (/ &
+ & 0.82499E+02_JPRB,0.93333E+02_JPRB,0.10635E+03_JPRB,0.12151E+03_JPRB,0.13874E+03_JPRB /)  
+KB(:,36,14) = (/ &
+ & 0.77442E+02_JPRB,0.88493E+02_JPRB,0.10184E+03_JPRB,0.11740E+03_JPRB,0.13513E+03_JPRB /)  
+KB(:,37,14) = (/ &
+ & 0.71771E+02_JPRB,0.82731E+02_JPRB,0.96032E+02_JPRB,0.11158E+03_JPRB,0.12941E+03_JPRB /)  
+KB(:,38,14) = (/ &
+ & 0.66727E+02_JPRB,0.77610E+02_JPRB,0.90795E+02_JPRB,0.10632E+03_JPRB,0.12415E+03_JPRB /)  
+KB(:,39,14) = (/ &
+ & 0.62339E+02_JPRB,0.73113E+02_JPRB,0.86200E+02_JPRB,0.10167E+03_JPRB,0.11942E+03_JPRB /)  
+KB(:,40,14) = (/ &
+ & 0.57601E+02_JPRB,0.67999E+02_JPRB,0.80724E+02_JPRB,0.95858E+02_JPRB,0.11323E+03_JPRB /)  
+KB(:,41,14) = (/ &
+ & 0.53285E+02_JPRB,0.63203E+02_JPRB,0.75577E+02_JPRB,0.90242E+02_JPRB,0.10726E+03_JPRB /)  
+KB(:,42,14) = (/ &
+ & 0.49392E+02_JPRB,0.58908E+02_JPRB,0.70834E+02_JPRB,0.85045E+02_JPRB,0.10163E+03_JPRB /)  
+KB(:,43,14) = (/ &
+ & 0.45446E+02_JPRB,0.54452E+02_JPRB,0.65751E+02_JPRB,0.79402E+02_JPRB,0.95397E+02_JPRB /)  
+KB(:,44,14) = (/ &
+ & 0.41620E+02_JPRB,0.50184E+02_JPRB,0.60777E+02_JPRB,0.73786E+02_JPRB,0.89076E+02_JPRB /)  
+KB(:,45,14) = (/ &
+ & 0.38059E+02_JPRB,0.46282E+02_JPRB,0.56226E+02_JPRB,0.68539E+02_JPRB,0.83136E+02_JPRB /)  
+KB(:,46,14) = (/ &
+ & 0.34554E+02_JPRB,0.42501E+02_JPRB,0.51829E+02_JPRB,0.63383E+02_JPRB,0.77220E+02_JPRB /)  
+KB(:,47,14) = (/ &
+ & 0.31009E+02_JPRB,0.38610E+02_JPRB,0.47385E+02_JPRB,0.58058E+02_JPRB,0.71080E+02_JPRB /)  
+KB(:,48,14) = (/ &
+ & 0.27715E+02_JPRB,0.34934E+02_JPRB,0.43319E+02_JPRB,0.53190E+02_JPRB,0.65347E+02_JPRB /)  
+KB(:,49,14) = (/ &
+ & 0.24658E+02_JPRB,0.31478E+02_JPRB,0.39500E+02_JPRB,0.48743E+02_JPRB,0.59997E+02_JPRB /)  
+KB(:,50,14) = (/ &
+ & 0.22034E+02_JPRB,0.28437E+02_JPRB,0.36093E+02_JPRB,0.44894E+02_JPRB,0.55346E+02_JPRB /)  
+KB(:,51,14) = (/ &
+ & 0.19684E+02_JPRB,0.25626E+02_JPRB,0.32937E+02_JPRB,0.41385E+02_JPRB,0.51154E+02_JPRB /)  
+KB(:,52,14) = (/ &
+ & 0.17504E+02_JPRB,0.22995E+02_JPRB,0.29925E+02_JPRB,0.38057E+02_JPRB,0.47307E+02_JPRB /)  
+KB(:,53,14) = (/ &
+ & 0.15552E+02_JPRB,0.20544E+02_JPRB,0.27079E+02_JPRB,0.34832E+02_JPRB,0.43722E+02_JPRB /)  
+KB(:,54,14) = (/ &
+ & 0.13886E+02_JPRB,0.18476E+02_JPRB,0.24607E+02_JPRB,0.31966E+02_JPRB,0.40540E+02_JPRB /)  
+KB(:,55,14) = (/ &
+ & 0.12396E+02_JPRB,0.16681E+02_JPRB,0.22385E+02_JPRB,0.29384E+02_JPRB,0.37592E+02_JPRB /)  
+KB(:,56,14) = (/ &
+ & 0.11028E+02_JPRB,0.15006E+02_JPRB,0.20297E+02_JPRB,0.26955E+02_JPRB,0.34780E+02_JPRB /)  
+KB(:,57,14) = (/ &
+ & 0.97493E+01_JPRB,0.13452E+02_JPRB,0.18354E+02_JPRB,0.24644E+02_JPRB,0.32099E+02_JPRB /)  
+KB(:,58,14) = (/ &
+ & 0.86411E+01_JPRB,0.12068E+02_JPRB,0.16627E+02_JPRB,0.22569E+02_JPRB,0.29684E+02_JPRB /)  
+KB(:,59,14) = (/ &
+ & 0.80894E+01_JPRB,0.11449E+02_JPRB,0.15905E+02_JPRB,0.21753E+02_JPRB,0.28728E+02_JPRB /)  
+KB(:,13,15) = (/ &
+ & 0.50046E+04_JPRB,0.50034E+04_JPRB,0.49950E+04_JPRB,0.49781E+04_JPRB,0.49542E+04_JPRB /)  
+KB(:,14,15) = (/ &
+ & 0.51812E+04_JPRB,0.51738E+04_JPRB,0.51582E+04_JPRB,0.51357E+04_JPRB,0.51054E+04_JPRB /)  
+KB(:,15,15) = (/ &
+ & 0.52793E+04_JPRB,0.52645E+04_JPRB,0.52450E+04_JPRB,0.52172E+04_JPRB,0.51836E+04_JPRB /)  
+KB(:,16,15) = (/ &
+ & 0.53001E+04_JPRB,0.52818E+04_JPRB,0.52568E+04_JPRB,0.52274E+04_JPRB,0.51924E+04_JPRB /)  
+KB(:,17,15) = (/ &
+ & 0.52448E+04_JPRB,0.52242E+04_JPRB,0.52004E+04_JPRB,0.51715E+04_JPRB,0.51377E+04_JPRB /)  
+KB(:,18,15) = (/ &
+ & 0.51200E+04_JPRB,0.51031E+04_JPRB,0.50817E+04_JPRB,0.50571E+04_JPRB,0.50308E+04_JPRB /)  
+KB(:,19,15) = (/ &
+ & 0.49389E+04_JPRB,0.49284E+04_JPRB,0.49153E+04_JPRB,0.49007E+04_JPRB,0.48819E+04_JPRB /)  
+KB(:,20,15) = (/ &
+ & 0.47181E+04_JPRB,0.47168E+04_JPRB,0.47163E+04_JPRB,0.47129E+04_JPRB,0.47111E+04_JPRB /)  
+KB(:,21,15) = (/ &
+ & 0.44718E+04_JPRB,0.44865E+04_JPRB,0.44990E+04_JPRB,0.45153E+04_JPRB,0.45403E+04_JPRB /)  
+KB(:,22,15) = (/ &
+ & 0.42192E+04_JPRB,0.42497E+04_JPRB,0.42861E+04_JPRB,0.43316E+04_JPRB,0.43809E+04_JPRB /)  
+KB(:,23,15) = (/ &
+ & 0.39727E+04_JPRB,0.40275E+04_JPRB,0.40936E+04_JPRB,0.41646E+04_JPRB,0.42404E+04_JPRB /)  
+KB(:,24,15) = (/ &
+ & 0.37507E+04_JPRB,0.38336E+04_JPRB,0.39239E+04_JPRB,0.40206E+04_JPRB,0.41209E+04_JPRB /)  
+KB(:,25,15) = (/ &
+ & 0.35606E+04_JPRB,0.36694E+04_JPRB,0.37826E+04_JPRB,0.39026E+04_JPRB,0.40244E+04_JPRB /)  
+KB(:,26,15) = (/ &
+ & 0.34043E+04_JPRB,0.35364E+04_JPRB,0.36731E+04_JPRB,0.38130E+04_JPRB,0.39519E+04_JPRB /)  
+KB(:,27,15) = (/ &
+ & 0.32803E+04_JPRB,0.34346E+04_JPRB,0.35912E+04_JPRB,0.37476E+04_JPRB,0.39014E+04_JPRB /)  
+KB(:,28,15) = (/ &
+ & 0.31876E+04_JPRB,0.33610E+04_JPRB,0.35344E+04_JPRB,0.37042E+04_JPRB,0.38699E+04_JPRB /)  
+KB(:,29,15) = (/ &
+ & 0.31239E+04_JPRB,0.33137E+04_JPRB,0.34995E+04_JPRB,0.36813E+04_JPRB,0.38573E+04_JPRB /)  
+KB(:,30,15) = (/ &
+ & 0.30850E+04_JPRB,0.32872E+04_JPRB,0.34837E+04_JPRB,0.36745E+04_JPRB,0.38591E+04_JPRB /)  
+KB(:,31,15) = (/ &
+ & 0.30674E+04_JPRB,0.32795E+04_JPRB,0.34848E+04_JPRB,0.36826E+04_JPRB,0.38724E+04_JPRB /)  
+KB(:,32,15) = (/ &
+ & 0.30683E+04_JPRB,0.32879E+04_JPRB,0.34990E+04_JPRB,0.37022E+04_JPRB,0.38953E+04_JPRB /)  
+KB(:,33,15) = (/ &
+ & 0.30831E+04_JPRB,0.33087E+04_JPRB,0.35243E+04_JPRB,0.37303E+04_JPRB,0.39250E+04_JPRB /)  
+KB(:,34,15) = (/ &
+ & 0.31017E+04_JPRB,0.33308E+04_JPRB,0.35496E+04_JPRB,0.37580E+04_JPRB,0.39527E+04_JPRB /)  
+KB(:,35,15) = (/ &
+ & 0.31057E+04_JPRB,0.33387E+04_JPRB,0.35601E+04_JPRB,0.37700E+04_JPRB,0.39654E+04_JPRB /)  
+KB(:,36,15) = (/ &
+ & 0.30895E+04_JPRB,0.33260E+04_JPRB,0.35504E+04_JPRB,0.37630E+04_JPRB,0.39606E+04_JPRB /)  
+KB(:,37,15) = (/ &
+ & 0.30400E+04_JPRB,0.32811E+04_JPRB,0.35096E+04_JPRB,0.37263E+04_JPRB,0.39277E+04_JPRB /)  
+KB(:,38,15) = (/ &
+ & 0.29913E+04_JPRB,0.32361E+04_JPRB,0.34690E+04_JPRB,0.36890E+04_JPRB,0.38942E+04_JPRB /)  
+KB(:,39,15) = (/ &
+ & 0.29441E+04_JPRB,0.31926E+04_JPRB,0.34294E+04_JPRB,0.36526E+04_JPRB,0.38612E+04_JPRB /)  
+KB(:,40,15) = (/ &
+ & 0.28722E+04_JPRB,0.31254E+04_JPRB,0.33667E+04_JPRB,0.35943E+04_JPRB,0.38073E+04_JPRB /)  
+KB(:,41,15) = (/ &
+ & 0.27971E+04_JPRB,0.30548E+04_JPRB,0.33004E+04_JPRB,0.35326E+04_JPRB,0.37505E+04_JPRB /)  
+KB(:,42,15) = (/ &
+ & 0.27226E+04_JPRB,0.29837E+04_JPRB,0.32336E+04_JPRB,0.34701E+04_JPRB,0.36925E+04_JPRB /)  
+KB(:,43,15) = (/ &
+ & 0.26332E+04_JPRB,0.28981E+04_JPRB,0.31525E+04_JPRB,0.33944E+04_JPRB,0.36223E+04_JPRB /)  
+KB(:,44,15) = (/ &
+ & 0.25372E+04_JPRB,0.28050E+04_JPRB,0.30643E+04_JPRB,0.33114E+04_JPRB,0.35441E+04_JPRB /)  
+KB(:,45,15) = (/ &
+ & 0.24417E+04_JPRB,0.27113E+04_JPRB,0.29748E+04_JPRB,0.32268E+04_JPRB,0.34651E+04_JPRB /)  
+KB(:,46,15) = (/ &
+ & 0.23395E+04_JPRB,0.26115E+04_JPRB,0.28783E+04_JPRB,0.31351E+04_JPRB,0.33792E+04_JPRB /)  
+KB(:,47,15) = (/ &
+ & 0.22243E+04_JPRB,0.24998E+04_JPRB,0.27694E+04_JPRB,0.30313E+04_JPRB,0.32810E+04_JPRB /)  
+KB(:,48,15) = (/ &
+ & 0.21083E+04_JPRB,0.23877E+04_JPRB,0.26592E+04_JPRB,0.29257E+04_JPRB,0.31803E+04_JPRB /)  
+KB(:,49,15) = (/ &
+ & 0.19925E+04_JPRB,0.22741E+04_JPRB,0.25488E+04_JPRB,0.28180E+04_JPRB,0.30783E+04_JPRB /)  
+KB(:,50,15) = (/ &
+ & 0.18841E+04_JPRB,0.21666E+04_JPRB,0.24447E+04_JPRB,0.27159E+04_JPRB,0.29806E+04_JPRB /)  
+KB(:,51,15) = (/ &
+ & 0.17798E+04_JPRB,0.20618E+04_JPRB,0.23428E+04_JPRB,0.26160E+04_JPRB,0.28839E+04_JPRB /)  
+KB(:,52,15) = (/ &
+ & 0.16762E+04_JPRB,0.19574E+04_JPRB,0.22398E+04_JPRB,0.25156E+04_JPRB,0.27862E+04_JPRB /)  
+KB(:,53,15) = (/ &
+ & 0.15731E+04_JPRB,0.18530E+04_JPRB,0.21358E+04_JPRB,0.24152E+04_JPRB,0.26872E+04_JPRB /)  
+KB(:,54,15) = (/ &
+ & 0.14802E+04_JPRB,0.17581E+04_JPRB,0.20401E+04_JPRB,0.23219E+04_JPRB,0.25956E+04_JPRB /)  
+KB(:,55,15) = (/ &
+ & 0.13915E+04_JPRB,0.16675E+04_JPRB,0.19488E+04_JPRB,0.22318E+04_JPRB,0.25080E+04_JPRB /)  
+KB(:,56,15) = (/ &
+ & 0.13039E+04_JPRB,0.15778E+04_JPRB,0.18577E+04_JPRB,0.21406E+04_JPRB,0.24200E+04_JPRB /)  
+KB(:,57,15) = (/ &
+ & 0.12167E+04_JPRB,0.14890E+04_JPRB,0.17672E+04_JPRB,0.20493E+04_JPRB,0.23313E+04_JPRB /)  
+KB(:,58,15) = (/ &
+ & 0.11349E+04_JPRB,0.14057E+04_JPRB,0.16818E+04_JPRB,0.19631E+04_JPRB,0.22464E+04_JPRB /)  
+KB(:,59,15) = (/ &
+ & 0.11025E+04_JPRB,0.13721E+04_JPRB,0.16476E+04_JPRB,0.19283E+04_JPRB,0.22117E+04_JPRB /)  
+KB(:,13,16) = (/ &
+ & 0.12492E+05_JPRB,0.12602E+05_JPRB,0.12678E+05_JPRB,0.12730E+05_JPRB,0.12749E+05_JPRB /)  
+KB(:,14,16) = (/ &
+ & 0.14696E+05_JPRB,0.14792E+05_JPRB,0.14862E+05_JPRB,0.14890E+05_JPRB,0.14889E+05_JPRB /)  
+KB(:,15,16) = (/ &
+ & 0.17153E+05_JPRB,0.17242E+05_JPRB,0.17275E+05_JPRB,0.17274E+05_JPRB,0.17231E+05_JPRB /)  
+KB(:,16,16) = (/ &
+ & 0.19843E+05_JPRB,0.19894E+05_JPRB,0.19898E+05_JPRB,0.19845E+05_JPRB,0.19747E+05_JPRB /)  
+KB(:,17,16) = (/ &
+ & 0.22727E+05_JPRB,0.22731E+05_JPRB,0.22667E+05_JPRB,0.22551E+05_JPRB,0.22386E+05_JPRB /)  
+KB(:,18,16) = (/ &
+ & 0.25761E+05_JPRB,0.25684E+05_JPRB,0.25544E+05_JPRB,0.25342E+05_JPRB,0.25070E+05_JPRB /)  
+KB(:,19,16) = (/ &
+ & 0.28878E+05_JPRB,0.28701E+05_JPRB,0.28454E+05_JPRB,0.28131E+05_JPRB,0.27759E+05_JPRB /)  
+KB(:,20,16) = (/ &
+ & 0.31981E+05_JPRB,0.31695E+05_JPRB,0.31314E+05_JPRB,0.30871E+05_JPRB,0.30360E+05_JPRB /)  
+KB(:,21,16) = (/ &
+ & 0.35017E+05_JPRB,0.34575E+05_JPRB,0.34064E+05_JPRB,0.33480E+05_JPRB,0.32821E+05_JPRB /)  
+KB(:,22,16) = (/ &
+ & 0.37854E+05_JPRB,0.37264E+05_JPRB,0.36589E+05_JPRB,0.35840E+05_JPRB,0.35046E+05_JPRB /)  
+KB(:,23,16) = (/ &
+ & 0.40473E+05_JPRB,0.39710E+05_JPRB,0.38862E+05_JPRB,0.37967E+05_JPRB,0.37023E+05_JPRB /)  
+KB(:,24,16) = (/ &
+ & 0.42796E+05_JPRB,0.41864E+05_JPRB,0.40869E+05_JPRB,0.39817E+05_JPRB,0.38718E+05_JPRB /)  
+KB(:,25,16) = (/ &
+ & 0.44813E+05_JPRB,0.43719E+05_JPRB,0.42578E+05_JPRB,0.41380E+05_JPRB,0.40143E+05_JPRB /)  
+KB(:,26,16) = (/ &
+ & 0.46504E+05_JPRB,0.45263E+05_JPRB,0.43973E+05_JPRB,0.42641E+05_JPRB,0.41294E+05_JPRB /)  
+KB(:,27,16) = (/ &
+ & 0.47893E+05_JPRB,0.46507E+05_JPRB,0.45087E+05_JPRB,0.43647E+05_JPRB,0.42197E+05_JPRB /)  
+KB(:,28,16) = (/ &
+ & 0.48993E+05_JPRB,0.47480E+05_JPRB,0.45952E+05_JPRB,0.44417E+05_JPRB,0.42878E+05_JPRB /)  
+KB(:,29,16) = (/ &
+ & 0.49823E+05_JPRB,0.48206E+05_JPRB,0.46588E+05_JPRB,0.44969E+05_JPRB,0.43353E+05_JPRB /)  
+KB(:,30,16) = (/ &
+ & 0.50415E+05_JPRB,0.48716E+05_JPRB,0.47025E+05_JPRB,0.45339E+05_JPRB,0.43659E+05_JPRB /)  
+KB(:,31,16) = (/ &
+ & 0.50811E+05_JPRB,0.49042E+05_JPRB,0.47288E+05_JPRB,0.45543E+05_JPRB,0.43813E+05_JPRB /)  
+KB(:,32,16) = (/ &
+ & 0.51032E+05_JPRB,0.49203E+05_JPRB,0.47400E+05_JPRB,0.45610E+05_JPRB,0.43841E+05_JPRB /)  
+KB(:,33,16) = (/ &
+ & 0.51107E+05_JPRB,0.49234E+05_JPRB,0.47393E+05_JPRB,0.45565E+05_JPRB,0.43775E+05_JPRB /)  
+KB(:,34,16) = (/ &
+ & 0.51130E+05_JPRB,0.49228E+05_JPRB,0.47350E+05_JPRB,0.45497E+05_JPRB,0.43688E+05_JPRB /)  
+KB(:,35,16) = (/ &
+ & 0.51256E+05_JPRB,0.49316E+05_JPRB,0.47413E+05_JPRB,0.45540E+05_JPRB,0.43711E+05_JPRB /)  
+KB(:,36,16) = (/ &
+ & 0.51519E+05_JPRB,0.49555E+05_JPRB,0.47626E+05_JPRB,0.45731E+05_JPRB,0.43885E+05_JPRB /)  
+KB(:,37,16) = (/ &
+ & 0.52034E+05_JPRB,0.50041E+05_JPRB,0.48090E+05_JPRB,0.46168E+05_JPRB,0.44302E+05_JPRB /)  
+KB(:,38,16) = (/ &
+ & 0.52529E+05_JPRB,0.50511E+05_JPRB,0.48535E+05_JPRB,0.46595E+05_JPRB,0.44706E+05_JPRB /)  
+KB(:,39,16) = (/ &
+ & 0.52985E+05_JPRB,0.50952E+05_JPRB,0.48954E+05_JPRB,0.46996E+05_JPRB,0.45085E+05_JPRB /)  
+KB(:,40,16) = (/ &
+ & 0.53633E+05_JPRB,0.51575E+05_JPRB,0.49556E+05_JPRB,0.47578E+05_JPRB,0.45648E+05_JPRB /)  
+KB(:,41,16) = (/ &
+ & 0.54289E+05_JPRB,0.52211E+05_JPRB,0.50171E+05_JPRB,0.48171E+05_JPRB,0.46220E+05_JPRB /)  
+KB(:,42,16) = (/ &
+ & 0.54932E+05_JPRB,0.52836E+05_JPRB,0.50778E+05_JPRB,0.48759E+05_JPRB,0.46785E+05_JPRB /)  
+KB(:,43,16) = (/ &
+ & 0.55673E+05_JPRB,0.53569E+05_JPRB,0.51488E+05_JPRB,0.49449E+05_JPRB,0.47456E+05_JPRB /)  
+KB(:,44,16) = (/ &
+ & 0.56461E+05_JPRB,0.54346E+05_JPRB,0.52247E+05_JPRB,0.50190E+05_JPRB,0.48178E+05_JPRB /)  
+KB(:,45,16) = (/ &
+ & 0.57241E+05_JPRB,0.55121E+05_JPRB,0.53007E+05_JPRB,0.50929E+05_JPRB,0.48897E+05_JPRB /)  
+KB(:,46,16) = (/ &
+ & 0.58063E+05_JPRB,0.55933E+05_JPRB,0.53806E+05_JPRB,0.51710E+05_JPRB,0.49656E+05_JPRB /)  
+KB(:,47,16) = (/ &
+ & 0.58978E+05_JPRB,0.56828E+05_JPRB,0.54697E+05_JPRB,0.52582E+05_JPRB,0.50505E+05_JPRB /)  
+KB(:,48,16) = (/ &
+ & 0.59891E+05_JPRB,0.57720E+05_JPRB,0.55586E+05_JPRB,0.53459E+05_JPRB,0.51367E+05_JPRB /)  
+KB(:,49,16) = (/ &
+ & 0.60795E+05_JPRB,0.58621E+05_JPRB,0.56472E+05_JPRB,0.54336E+05_JPRB,0.52224E+05_JPRB /)  
+KB(:,50,16) = (/ &
+ & 0.61639E+05_JPRB,0.59466E+05_JPRB,0.57298E+05_JPRB,0.55162E+05_JPRB,0.53034E+05_JPRB /)  
+KB(:,51,16) = (/ &
+ & 0.62447E+05_JPRB,0.60284E+05_JPRB,0.58110E+05_JPRB,0.55961E+05_JPRB,0.53824E+05_JPRB /)  
+KB(:,52,16) = (/ &
+ & 0.63240E+05_JPRB,0.61098E+05_JPRB,0.58916E+05_JPRB,0.56760E+05_JPRB,0.54612E+05_JPRB /)  
+KB(:,53,16) = (/ &
+ & 0.64030E+05_JPRB,0.61903E+05_JPRB,0.59727E+05_JPRB,0.57558E+05_JPRB,0.55411E+05_JPRB /)  
+KB(:,54,16) = (/ &
+ & 0.64735E+05_JPRB,0.62637E+05_JPRB,0.60471E+05_JPRB,0.58287E+05_JPRB,0.56138E+05_JPRB /)  
+KB(:,55,16) = (/ &
+ & 0.65407E+05_JPRB,0.63332E+05_JPRB,0.61181E+05_JPRB,0.59003E+05_JPRB,0.56834E+05_JPRB /)  
+KB(:,56,16) = (/ &
+ & 0.66069E+05_JPRB,0.64015E+05_JPRB,0.61881E+05_JPRB,0.59702E+05_JPRB,0.57529E+05_JPRB /)  
+KB(:,57,16) = (/ &
+ & 0.66725E+05_JPRB,0.64683E+05_JPRB,0.62576E+05_JPRB,0.60411E+05_JPRB,0.58225E+05_JPRB /)  
+KB(:,58,16) = (/ &
+ & 0.67327E+05_JPRB,0.65315E+05_JPRB,0.63232E+05_JPRB,0.61078E+05_JPRB,0.58891E+05_JPRB /)  
+KB(:,59,16) = (/ &
+ & 0.67577E+05_JPRB,0.65572E+05_JPRB,0.63496E+05_JPRB,0.61349E+05_JPRB,0.59161E+05_JPRB /)  
+
+!     -----------------------------------------------------------------
+
+FORREF(:, 1) = (/ 0.299818E-05_JPRB, 0.209282E-05_JPRB, 0.988353E-04_JPRB, 0.632178E-03_JPRB /)
+FORREF(:, 2) = (/ 0.633648E-05_JPRB, 0.509214E-04_JPRB, 0.650535E-03_JPRB, 0.264019E-02_JPRB /)
+FORREF(:, 3) = (/ 0.636782E-04_JPRB, 0.136577E-03_JPRB, 0.166500E-02_JPRB, 0.750821E-02_JPRB /)
+FORREF(:, 4) = (/ 0.472314E-03_JPRB, 0.988296E-03_JPRB, 0.585751E-02_JPRB, 0.187352E-01_JPRB /)
+FORREF(:, 5) = (/ 0.558635E-02_JPRB, 0.856489E-02_JPRB, 0.157438E-01_JPRB, 0.181471E-01_JPRB /)
+FORREF(:, 6) = (/ 0.217395E-01_JPRB, 0.229156E-01_JPRB, 0.230125E-01_JPRB, 0.143821E-01_JPRB /)
+FORREF(:, 7) = (/ 0.277222E-01_JPRB, 0.299252E-01_JPRB, 0.208929E-01_JPRB, 0.826748E-02_JPRB /)
+FORREF(:, 8) = (/ 0.252119E-01_JPRB, 0.262911E-01_JPRB, 0.187663E-01_JPRB, 0.417110E-02_JPRB /)
+FORREF(:, 9) = (/ 0.304941E-01_JPRB, 0.175545E-01_JPRB, 0.971224E-02_JPRB, 0.142023E-02_JPRB /)
+FORREF(:,10) = (/ 0.327200E-01_JPRB, 0.215788E-01_JPRB, 0.346831E-02_JPRB, 0.157989E-02_JPRB /)
+FORREF(:,11) = (/ 0.324955E-01_JPRB, 0.228571E-01_JPRB, 0.171749E-02_JPRB, 0.226853E-02_JPRB /)
+FORREF(:,12) = (/ 0.326588E-01_JPRB, 0.198544E-01_JPRB, 0.532339E-06_JPRB, 0.279086E-02_JPRB /)
+FORREF(:,13) = (/ 0.345157E-01_JPRB, 0.168679E-01_JPRB, 0.505361E-06_JPRB, 0.276647E-02_JPRB /)
+FORREF(:,14) = (/ 0.448765E-01_JPRB, 0.123791E-02_JPRB, 0.488367E-06_JPRB, 0.122245E-02_JPRB /)
+FORREF(:,15) = (/ 0.486925E-01_JPRB, 0.464371E-06_JPRB, 0.464241E-06_JPRB, 0.753846E-06_JPRB /)
+FORREF(:,16) = (/ 0.530511E-01_JPRB, 0.376234E-06_JPRB, 0.409824E-06_JPRB, 0.470650E-06_JPRB /)
+
+!     -----------------------------------------------------------------
+!     The array SELFREF contains the coefficient of the water vapor
+!     self-continuum (including the energy term).  The first index
+!     refers to temperature in 7.2 degree increments.  For instance,
+!     JT = 1 refers to a temperature of 245.6, JT = 2 refers to 252.8,
+!     etc.  The second index runs over the g-channel (1 to 16).
+
+SELFREF(:, 1) = (/ &
+ & 0.118069E+00_JPRB, 0.713523E-01_JPRB, 0.431199E-01_JPRB, 0.260584E-01_JPRB, 0.157477E-01_JPRB, &
+ & 0.951675E-02_JPRB, 0.575121E-02_JPRB, 0.347560E-02_JPRB, 0.210039E-02_JPRB, 0.126932E-02_JPRB /)  
+SELFREF(:, 2) = (/ &
+ & 0.137081E-01_JPRB, 0.139046E-01_JPRB, 0.141040E-01_JPRB, 0.143061E-01_JPRB, 0.145112E-01_JPRB, &
+ & 0.147193E-01_JPRB, 0.149303E-01_JPRB, 0.151443E-01_JPRB, 0.153614E-01_JPRB, 0.155816E-01_JPRB /)  
+SELFREF(:, 3) = (/ &
+ & 0.166575E-01_JPRB, 0.164916E-01_JPRB, 0.163273E-01_JPRB, 0.161647E-01_JPRB, 0.160037E-01_JPRB, &
+ & 0.158443E-01_JPRB, 0.156864E-01_JPRB, 0.155302E-01_JPRB, 0.153755E-01_JPRB, 0.152224E-01_JPRB /)  
+SELFREF(:, 4) = (/ &
+ & 0.597379E-01_JPRB, 0.509517E-01_JPRB, 0.434579E-01_JPRB, 0.370662E-01_JPRB, 0.316145E-01_JPRB, &
+ & 0.269647E-01_JPRB, 0.229988E-01_JPRB, 0.196162E-01_JPRB, 0.167311E-01_JPRB, 0.142703E-01_JPRB /)  
+SELFREF(:, 5) = (/ &
+ & 0.227517E+00_JPRB, 0.198401E+00_JPRB, 0.173011E+00_JPRB, 0.150870E+00_JPRB, 0.131563E+00_JPRB, &
+ & 0.114726E+00_JPRB, 0.100044E+00_JPRB, 0.872415E-01_JPRB, 0.760769E-01_JPRB, 0.663411E-01_JPRB /)  
+SELFREF(:, 6) = (/ &
+ & 0.453235E+00_JPRB, 0.414848E+00_JPRB, 0.379712E+00_JPRB, 0.347552E+00_JPRB, 0.318116E+00_JPRB, &
+ & 0.291173E+00_JPRB, 0.266512E+00_JPRB, 0.243940E+00_JPRB, 0.223279E+00_JPRB, 0.204368E+00_JPRB /)  
+SELFREF(:, 7) = (/ &
+ & 0.569263E+00_JPRB, 0.516415E+00_JPRB, 0.468473E+00_JPRB, 0.424982E+00_JPRB, 0.385528E+00_JPRB, &
+ & 0.349737E+00_JPRB, 0.317269E+00_JPRB, 0.287815E+00_JPRB, 0.261095E+00_JPRB, 0.236856E+00_JPRB /)  
+SELFREF(:, 8) = (/ &
+ & 0.490314E+00_JPRB, 0.448042E+00_JPRB, 0.409413E+00_JPRB, 0.374116E+00_JPRB, 0.341861E+00_JPRB, &
+ & 0.312387E+00_JPRB, 0.285455E+00_JPRB, 0.260844E+00_JPRB, 0.238355E+00_JPRB, 0.217805E+00_JPRB /)  
+SELFREF(:, 9) = (/ &
+ & 0.258162E+00_JPRB, 0.265085E+00_JPRB, 0.272193E+00_JPRB, 0.279493E+00_JPRB, 0.286988E+00_JPRB, &
+ & 0.294684E+00_JPRB, 0.302586E+00_JPRB, 0.310701E+00_JPRB, 0.319033E+00_JPRB, 0.327588E+00_JPRB /)  
+SELFREF(:,10) = (/ &
+ & 0.332019E+00_JPRB, 0.331902E+00_JPRB, 0.331784E+00_JPRB, 0.331666E+00_JPRB, 0.331549E+00_JPRB, &
+ & 0.331431E+00_JPRB, 0.331314E+00_JPRB, 0.331197E+00_JPRB, 0.331079E+00_JPRB, 0.330962E+00_JPRB /)  
+SELFREF(:,11) = (/ &
+ & 0.357523E+00_JPRB, 0.353154E+00_JPRB, 0.348839E+00_JPRB, 0.344576E+00_JPRB, 0.340366E+00_JPRB, &
+ & 0.336207E+00_JPRB, 0.332099E+00_JPRB, 0.328041E+00_JPRB, 0.324032E+00_JPRB, 0.320073E+00_JPRB /)  
+SELFREF(:,12) = (/ &
+ & 0.294662E+00_JPRB, 0.299043E+00_JPRB, 0.303488E+00_JPRB, 0.308000E+00_JPRB, 0.312579E+00_JPRB, &
+ & 0.317226E+00_JPRB, 0.321941E+00_JPRB, 0.326727E+00_JPRB, 0.331585E+00_JPRB, 0.336514E+00_JPRB /)  
+SELFREF(:,13) = (/ &
+ & 0.227445E+00_JPRB, 0.241545E+00_JPRB, 0.256519E+00_JPRB, 0.272422E+00_JPRB, 0.289311E+00_JPRB, &
+ & 0.307247E+00_JPRB, 0.326294E+00_JPRB, 0.346523E+00_JPRB, 0.368005E+00_JPRB, 0.390820E+00_JPRB /)  
+SELFREF(:,14) = (/ &
+ & 0.616203E-02_JPRB, 0.113523E-01_JPRB, 0.209144E-01_JPRB, 0.385307E-01_JPRB, 0.709852E-01_JPRB, &
+ & 0.130776E+00_JPRB, 0.240929E+00_JPRB, 0.443865E+00_JPRB, 0.817733E+00_JPRB, 0.150651E+01_JPRB /)  
+SELFREF(:,15) = (/ &
+ & 0.279552E-03_JPRB, 0.808472E-03_JPRB, 0.233812E-02_JPRB, 0.676192E-02_JPRB, 0.195557E-01_JPRB, &
+ & 0.565555E-01_JPRB, 0.163560E+00_JPRB, 0.473020E+00_JPRB, 0.136799E+01_JPRB, 0.395626E+01_JPRB /)  
+SELFREF(:,16) = (/ &
+ & 0.261006E-03_JPRB, 0.771043E-03_JPRB, 0.227776E-02_JPRB, 0.672879E-02_JPRB, 0.198777E-01_JPRB, &
+ & 0.587212E-01_JPRB, 0.173470E+00_JPRB, 0.512452E+00_JPRB, 0.151385E+01_JPRB, 0.447209E+01_JPRB /)  
+     
+!     -----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_KGB29',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_KGB29
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb29.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb29.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_kgb29.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SRTM_KGB29
+END SUBROUTINE SRTM_KGB29
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_reftra.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_reftra.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_reftra.F90	(revision 1989)
@@ -0,0 +1,264 @@
+#ifdef RS6K
+@PROCESS HOT NOSTRICT
+#endif
+SUBROUTINE SRTM_REFTRA &
+ & ( KLEV  , KMODTS, &
+ &   LDRTCHK, &
+ &   PGG   , PRMUZ, PTAU , PW, &
+ &   PREF  , PREFD, PTRA , PTRAD &
+ & )  
+  
+!**** *SRTM_REFTRA* - REFLECTIVITY AND TRANSMISSIVITY
+
+!     PURPOSE.
+!     --------
+!           COMPUTES THE REFLECTIVITY AND TRANSMISSIVITY OF A CLEAR OR 
+!     CLOUDY LAYER USING A CHOICE OF VARIOUS APPROXIMATIONS.
+
+!**   INTERFACE.
+!     ----------
+!          *SRTM_REFTRA* IS CALLED BY *SRTM_SPCVRT*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+! INPUTS
+! ------ 
+!      KMODTS  = 1 EDDINGTON (JOSEPH ET AL., 1976)
+!              = 2 PIFM (ZDUNKOWSKI ET AL., 1980)
+!              = 3 DISCRETE ORDINATES (LIOU, 1973)
+!      LDRTCHK = .T. IF CLOUDY
+!              = .F. IF CLEAR-SKY
+!      PGG     = ASSYMETRY FACTOR
+!      PRMUZ   = COSINE SOLAR ZENITH ANGLE
+!      PTAU    = OPTICAL THICKNESS
+!      PW      = SINGLE SCATTERING ALBEDO
+
+! OUTPUTS
+! -------
+!      PREF    : COLLIMATED BEAM REFLECTIVITY
+!      PREFD   : DIFFUSE BEAM REFLECTIVITY 
+!      PTRA    : COLLIMATED BEAM TRANSMISSIVITY
+!      PTRAD   : DIFFUSE BEAM TRANSMISSIVITY
+
+!     METHOD.
+!     -------
+!          STANDARD DELTA-EDDINGTON, P.I.F.M., OR D.O.M. LAYER CALCULATIONS.
+
+!     EXTERNALS.
+!     ----------
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 03-02-27
+!        M.Hamrud   01-Oct-2003      CY28 Cleaning
+!        Mike Iacono, AER, Mar 2004: bug fix 
+
+!     ------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARSRTM , ONLY : JPLAY
+!USE YOESW   , ONLY : NDBUG
+USE YOERDU  , ONLY : REPLOG
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+INTEGER(KIND=JPIM),INTENT(OUT)   :: KMODTS 
+LOGICAL           ,INTENT(IN)    :: LDRTCHK(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PGG(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PRMUZ 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAU(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PW(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(INOUT)   :: PREF(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(INOUT)   :: PREFD(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(INOUT)   :: PTRA(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(INOUT)   :: PTRAD(JPLAY) 
+!     ------------------------------------------------------------------
+
+INTEGER(KIND=JPIM) :: JK
+
+REAL(KIND=JPRB) :: ZA, ZA1, ZA2
+REAL(KIND=JPRB) :: ZBETA, ZDEND, ZDENR, ZDENT
+REAL(KIND=JPRB) :: ZE1, ZE2, ZEM1, ZEM2, ZEMM, ZEP1, ZEP2
+REAL(KIND=JPRB) :: ZG, ZG3, ZGAMMA1, ZGAMMA2, ZGAMMA3, ZGAMMA4, ZGT
+REAL(KIND=JPRB) :: ZR1, ZR2, ZR3, ZR4, ZR5, ZRK, ZRK2, ZRKG, ZRM1, ZRP, ZRP1, ZRPP
+REAL(KIND=JPRB) :: ZSR3, ZT1, ZT2, ZT3, ZT4, ZT5, ZTO1
+REAL(KIND=JPRB) :: ZW, ZWCRIT, ZWO
+REAL(KIND=JPRB) :: ZHOOK_HANDLE,EXP500,ZTEMP
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SRTM_REFTRA',0,ZHOOK_HANDLE)
+EXP500=EXP(500.0_JPRB)
+ZSR3=SQRT(3._JPRB)
+ZWCRIT=0.9995_JPRB
+KMODTS=2
+
+!NDBUG=3
+
+DO JK=1,KLEV
+!  if (NDBUG < 2) then
+!    print 9000,JK,LRTCHK(JK),PTAU(JK),PW(JK),PGG(JK),PRMUZ
+  9000 format(1x,'SRTM_REFTRA:inputs:',I3,L8,4E13.6)
+!  end if
+  IF (.NOT.LDRTCHK(JK)) THEN
+    PREF(JK) =0.0_JPRB
+    PTRA(JK) =1.0_JPRB
+    PREFD(JK)=0.0_JPRB
+    PTRAD(JK)=1.0_JPRB
+!    if (NDBUG < 2) then
+!      print 9001,JL,JK,PREF(JK),PTRA(JK),PREFD(JK),PTRAD(JK)
+    9001  format(1x,'SRTM_REFTRA:not.LRTCKH:',2I3,4F10.6)
+!    end if
+  ELSE
+    ZTO1=PTAU(JK)
+    ZW  =PW(JK)
+    ZG  =PGG(JK)  
+
+!-- GENERAL TWO-STREAM EXPRESSIONS
+
+    ZG3= 3._JPRB * ZG
+    IF (KMODTS == 1) THEN
+      ZGAMMA1= (7._JPRB - ZW * (4._JPRB + ZG3)) * 0.25_JPRB
+      ZGAMMA2=-(1._JPRB - ZW * (4._JPRB - ZG3)) * 0.25_JPRB
+      ZGAMMA3= (2._JPRB - ZG3 * PRMUZ ) * 0.25_JPRB
+    ELSEIF (KMODTS == 2) THEN  
+      ZGAMMA1= (8._JPRB - ZW * (5._JPRB + ZG3)) * 0.25_JPRB
+      ZGAMMA2=  3._JPRB *(ZW * (1._JPRB - ZG )) * 0.25_JPRB
+      ZGAMMA3= (2._JPRB - ZG3 * PRMUZ ) * 0.25_JPRB
+    ELSEIF (KMODTS == 3) THEN  
+      ZGAMMA1= ZSR3 * (2._JPRB - ZW * (1._JPRB + ZG)) * 0.5_JPRB
+      ZGAMMA2= ZSR3 * ZW * (1._JPRB - ZG ) * 0.5_JPRB
+      ZGAMMA3= (1._JPRB - ZSR3 * ZG * PRMUZ ) * 0.5_JPRB
+    ENDIF
+    ZGAMMA4= 1._JPRB - ZGAMMA3
+    
+!-- RECOMPUTE ORIGINAL S.S.A. TO TEST FOR CONSERVATIVE SOLUTION
+    ZWO= ZW / (1._JPRB - (1._JPRB - ZW) * (ZG / (1._JPRB - ZG))**2)
+!   ZTEMP=(1._JPRB - ZG)**2
+!   ZWO= ZW*ZTEMP/ (ZTEMP - (1._JPRB - ZW)*(ZG **2))
+    
+    IF (ZWO >= ZWCRIT) THEN
+!!-- conservative scattering
+
+      ZA  = ZGAMMA1 * PRMUZ 
+      ZA1 = ZA - ZGAMMA3
+      ZGT = ZGAMMA1 * ZTO1
+        
+!-- Homogeneous reflectance and transmittance
+
+! collimated beam
+
+      ZE1 = MIN ( ZTO1 / PRMUZ , 500._JPRB)
+      ZE2 = EXP ( - ZE1 )
+      ZTEMP=1.0_JPRB/(1._JPRB + ZGT)
+      PREF(JK) = (ZGT - ZA1 * (1._JPRB - ZE2)) *ZTEMP
+      PTRA(JK) = 1._JPRB - PREF(JK)
+
+! isotropic incidence
+
+      PREFD(JK) = ZGT *ZTEMP
+      PTRAD(JK) = 1._JPRB - PREFD(JK)        
+
+!      if (NDBUG < 2) then
+!        print 9002,JL,JK,PREF(JK),PTRA(JK),PREFD(JK),PTRAD(JK)
+      9002  format(1x,'SRTM_REFTRA: consrv: LDRTCHK:',2I3,4F10.6)
+!      end if
+
+    ELSE
+
+!-- non-conservative scattering
+
+      ZA1 = ZGAMMA1 * ZGAMMA4 + ZGAMMA2 * ZGAMMA3
+      ZA2 = ZGAMMA1 * ZGAMMA3 + ZGAMMA2 * ZGAMMA4
+!      ZRK = SQRT ( ZGAMMA1**2 - ZGAMMA2**2)
+      ZRK = SQRT ( MAX ( REPLOG, ZGAMMA1**2 - ZGAMMA2**2) )
+      ZRP = ZRK * PRMUZ               
+      ZRP1 = 1._JPRB + ZRP
+      ZRM1 = 1._JPRB - ZRP
+      ZRK2 = 2._JPRB * ZRK
+      ZRPP = 1._JPRB - ZRP*ZRP
+      ZRKG = ZRK + ZGAMMA1
+      ZR1  = ZRM1 * (ZA2 + ZRK * ZGAMMA3)
+      ZR2  = ZRP1 * (ZA2 - ZRK * ZGAMMA3)
+      ZR3  = ZRK2 * (ZGAMMA3 - ZA2 * PRMUZ )
+      ZR4  = ZRPP * ZRKG
+      ZR5  = ZRPP * (ZRK - ZGAMMA1)
+      ZT1  = ZRP1 * (ZA1 + ZRK * ZGAMMA4)
+      ZT2  = ZRM1 * (ZA1 - ZRK * ZGAMMA4)
+      ZT3  = ZRK2 * (ZGAMMA4 + ZA1 * PRMUZ )
+      ZT4  = ZR4
+      ZT5  = ZR5
+      ZBETA = - ZR5 / ZR4
+        
+!-- Homogeneous reflectance and transmittance
+
+      IF(ZRK * ZTO1 > 500._JPRB)THEN
+        ZEP1=EXP500
+      ELSE
+        ZEP1=EXP(ZRK * ZTO1)
+      ENDIF
+      ZEM1=1.0_JPRB/ZEP1
+      IF(ZTO1 > 500._JPRB*PRMUZ)THEN
+        ZEP2=EXP500
+      ELSE
+        ZEP2=EXP(ZTO1 / PRMUZ)
+      ENDIF
+      ZEM2=1.0_JPRB/ZEP2
+
+!     ZE1 = MIN ( ZRK * ZTO1, 500._JPRB)
+!     ZE2 = MIN ( ZTO1 / PRMUZ , 500._JPRB)
+
+!     ZEP1 = EXP( ZE1 )
+!      ZEM1 = EXP(-ZE1 )
+!     ZEM1=1.0_JPRB/ZEP1
+
+!     ZEP2 = EXP( ZE2 )
+!      ZEM2 = EXP(-ZE2 )
+!     ZEM2=1.0_JPRB/ZEP2
+
+! collimated beam
+
+      ZDENR = ZR4*ZEP1 + ZR5*ZEM1
+!- bug noticed by Mike Iacono
+!      PREF(JK) = ZWO * (ZR1*ZEP1 - ZR2*ZEM1 - ZR3*ZEM2) / ZDENR
+      PREF(JK) = ZW  * (ZR1*ZEP1 - ZR2*ZEM1 - ZR3*ZEM2) / ZDENR
+
+      ZDENT = ZT4*ZEP1 + ZT5*ZEM1
+!- bug noticed by Mike Iacono
+!      PTRA(JK) = ZEM2 * (1._JPRB - ZWO * (ZT1*ZEP1 - ZT2*ZEM1 - ZT3*ZEP2) / ZDENT)
+      PTRA(JK) = ZEM2 * (1._JPRB - ZW  * (ZT1*ZEP1 - ZT2*ZEM1 - ZT3*ZEP2) / ZDENT)
+
+! diffuse beam
+
+      ZEMM = ZEM1*ZEM1
+      ZDEND = 1._JPRB / ( (1._JPRB - ZBETA*ZEMM ) * ZRKG)
+      PREFD(JK) =  ZGAMMA2 * (1._JPRB - ZEMM) * ZDEND
+      PTRAD(JK) =  ZRK2*ZEM1*ZDEND
+
+!      if (NDBUG < 2) then        
+!        print 9003,JL,JK,PREF(JK),PTRA(JK),PREFD(JK),PTRAD(JK)
+      9003  format(1x,'SRTM_REFTRA: OMG<1:  LDRTCHK:',2I3,4F10.6)
+!      end if
+    ENDIF
+
+  ENDIF         
+
+ENDDO    
+
+!     ------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_REFTRA',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_REFTRA     
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_reftra.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_reftra.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_reftra.intfb.h	(revision 1989)
@@ -0,0 +1,22 @@
+INTERFACE
+SUBROUTINE SRTM_REFTRA&
+ & ( KLEV , KMODTS,&
+ & LDRTCHK,&
+ & PGG , PRMUZ, PTAU , PW,&
+ & PREF , PREFD, PTRA , PTRAD&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARSRTM , ONLY : JPLAY
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+INTEGER(KIND=JPIM),INTENT(OUT) :: KMODTS
+LOGICAL ,INTENT(IN) :: LDRTCHK(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: PGG(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: PRMUZ
+REAL(KIND=JPRB) ,INTENT(IN) :: PTAU(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: PW(JPLAY)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PREF(JPLAY)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PREFD(JPLAY)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PTRA(JPLAY)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PTRAD(JPLAY)
+END SUBROUTINE SRTM_REFTRA
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_setcoef.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_setcoef.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_setcoef.F90	(revision 1989)
@@ -0,0 +1,256 @@
+SUBROUTINE SRTM_SETCOEF &
+ & ( KLEV    , KNMOL ,&
+ &   PAVEL   , PTAVEL   , PZ      , PTZ     , PTBOUND  ,&
+ &   PCOLDRY , PWKL     ,&
+ &   KLAYTROP, KLAYSWTCH, KLAYLOW ,&
+ &   PCO2MULT, PCOLCH4  , PCOLCO2 , PCOLH2O , PCOLMOL  , PCOLN2O  , PCOLO2 , PCOLO3 ,&
+ &   PFORFAC , PFORFRAC , KINDFOR , PSELFFAC, PSELFFRAC, KINDSELF ,&
+ &   PFAC00  , PFAC01   , PFAC10  , PFAC11  ,&
+ &   KJP     , KJT      , KJT1    &
+ & )  
+
+!     J. Delamere, AER, Inc. (version 2.5, 02/04/01)
+
+!     Modifications:
+!     JJMorcrette 030224   rewritten / adapted to ECMWF F90 system
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     Purpose:  For a given atmosphere, calculate the indices and
+!     fractions related to the pressure and temperature interpolations.
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARSRTM , ONLY : JPLAY
+USE YOESRTWN, ONLY :  PREFLOG, TREF
+!!  USE YOESWN  , ONLY : NDBUG
+                   
+IMPLICIT NONE
+
+!-- Input arguments
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+INTEGER(KIND=JPIM)               :: KNMOL ! Argument NOT used
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PAVEL(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAVEL(JPLAY) 
+REAL(KIND=JPRB)                  :: PZ(0:JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTZ(0:JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTBOUND 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCOLDRY(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PWKL(35,JPLAY) 
+INTEGER(KIND=JPIM),INTENT(OUT)   :: KLAYTROP 
+INTEGER(KIND=JPIM),INTENT(OUT)   :: KLAYSWTCH 
+INTEGER(KIND=JPIM),INTENT(OUT)   :: KLAYLOW 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PCO2MULT(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PCOLCH4(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PCOLCO2(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PCOLH2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PCOLMOL(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PCOLN2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PCOLO2(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PCOLO3(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFORFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFORFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(OUT)   :: KINDFOR(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PSELFFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PSELFFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(OUT)   :: KINDSELF(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFAC11(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(OUT)   :: KJP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(OUT)   :: KJT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(OUT)   :: KJT1(JPLAY) 
+!-- Output arguments
+
+!-- local integers
+
+INTEGER(KIND=JPIM) :: I_NLAYERS, INDBOUND, INDLEV0, JK
+INTEGER(KIND=JPIM) :: JP1
+
+!-- local reals
+
+REAL(KIND=JPRB) :: Z_STPFAC, Z_TBNDFRAC, Z_T0FRAC, Z_PLOG, Z_FP, Z_FT, Z_FT1, Z_WATER, Z_SCALEFAC
+REAL(KIND=JPRB) :: Z_FACTOR, Z_CO2REG, Z_COMPFP
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+
+
+
+IF (LHOOK) CALL DR_HOOK('SRTM_SETCOEF',0,ZHOOK_HANDLE)
+I_NLAYERS = KLEV
+
+Z_STPFAC = 296._JPRB/1013._JPRB
+
+INDBOUND = PTBOUND - 159._JPRB
+Z_TBNDFRAC = PTBOUND - INT(PTBOUND)
+INDLEV0  = PTZ(0) - 159._JPRB
+Z_T0FRAC   = PTZ(0) - INT(PTZ(0))
+
+KLAYTROP  = 0
+KLAYSWTCH = 0
+KLAYLOW   = 0
+
+!IF (NDBUG.LE.3) THEN
+!  print *,'-------- Computed in SETCOEF --------'
+!  print 8990
+8990 format(18x,'  T     PFAC00,    01,    10,    11  PCO2MULT     MOL   &
+ & CH4      CO2      H2O      N2O      O2      O3      SFAC  &
+ & SFRAC    FFAC    FFRAC  ISLF IFOR')  
+!END IF
+
+DO JK = 1, I_NLAYERS
+!        Find the two reference pressures on either side of the
+!        layer pressure.  Store them in JP and JP1.  Store in FP the
+!        fraction of the difference (in ln(pressure)) between these
+!        two values that the layer pressure lies.
+
+  Z_PLOG = LOG(PAVEL(JK))
+  KJP(JK) = INT(36. - 5*(Z_PLOG+0.04))
+  IF (KJP(JK) < 1) THEN
+    KJP(JK) = 1
+  ELSEIF (KJP(JK) > 58) THEN
+    KJP(JK) = 58
+  ENDIF
+  JP1 = KJP(JK) + 1
+  Z_FP = 5. * (PREFLOG(KJP(JK)) - Z_PLOG)
+
+!        Determine, for each reference pressure (JP and JP1), which
+!        reference temperature (these are different for each  
+!        reference pressure) is nearest the layer temperature but does
+!        not exceed it.  Store these indices in JT and JT1, resp.
+!        Store in FT (resp. FT1) the fraction of the way between JT
+!        (JT1) and the next highest reference temperature that the 
+!        layer temperature falls.
+
+  KJT(JK) = INT(3. + (PTAVEL(JK)-TREF(KJP(JK)))/15.)
+  IF (KJT(JK) < 1) THEN
+    KJT(JK) = 1
+  ELSEIF (KJT(JK) > 4) THEN
+    KJT(JK) = 4
+  ENDIF
+  Z_FT = ((PTAVEL(JK)-TREF(KJP(JK)))/15.) - REAL(KJT(JK)-3)
+  KJT1(JK) = INT(3. + (PTAVEL(JK)-TREF(JP1))/15.)
+  IF (KJT1(JK) < 1) THEN
+    KJT1(JK) = 1
+  ELSEIF (KJT1(JK) > 4) THEN
+    KJT1(JK) = 4
+  ENDIF
+  Z_FT1 = ((PTAVEL(JK)-TREF(JP1))/15.) - REAL(KJT1(JK)-3)
+
+  Z_WATER = PWKL(1,JK)/PCOLDRY(JK)
+  Z_SCALEFAC = PAVEL(JK) * Z_STPFAC / PTAVEL(JK)
+
+!        If the pressure is less than ~100mb, perform a different
+!        set of species interpolations.
+
+  IF (Z_PLOG <= 4.56) GO TO 5300
+  KLAYTROP =  KLAYTROP + 1
+  IF (Z_PLOG >= 6.62) KLAYLOW = KLAYLOW + 1
+
+!        Set up factors needed to separately include the water vapor
+!        foreign-continuum in the calculation of absorption coefficient.
+
+  PFORFAC(JK) = Z_SCALEFAC / (1.+Z_WATER)
+  Z_FACTOR = (332.0-PTAVEL(JK))/36.0
+  KINDFOR(JK) = MIN(2, MAX(1, INT(Z_FACTOR)))
+  PFORFRAC(JK) = Z_FACTOR - REAL(KINDFOR(JK))
+
+!        Set up factors needed to separately include the water vapor
+!        self-continuum in the calculation of absorption coefficient.
+
+  PSELFFAC(JK) = Z_WATER * PFORFAC(JK)
+  Z_FACTOR = (PTAVEL(JK)-188.0)/7.2
+  KINDSELF(JK) = MIN(9, MAX(1, INT(Z_FACTOR)-7))
+  PSELFFRAC(JK) = Z_FACTOR - REAL(KINDSELF(JK) + 7)
+
+!        Calculate needed column amounts.
+
+  PCOLH2O(JK) = 1.E-20 * PWKL(1,JK)
+  PCOLCO2(JK) = 1.E-20 * PWKL(2,JK)
+  PCOLO3(JK) = 1.E-20 * PWKL(3,JK)
+!         COLO3(LAY) = 0.
+!         COLO3(LAY) = colo3(lay)/1.16
+  PCOLN2O(JK) = 1.E-20 * PWKL(4,JK)
+  PCOLCH4(JK) = 1.E-20 * PWKL(6,JK)
+  PCOLO2(JK) = 1.E-20 * PWKL(7,JK)
+  PCOLMOL(JK) = 1.E-20 * PCOLDRY(JK) + PCOLH2O(JK)
+!         colco2(lay) = 0.
+!         colo3(lay) = 0.
+!         coln2o(lay) = 0.
+!         colch4(lay) = 0.
+!         colo2(lay) = 0.
+!         colmol(lay) = 0.
+  IF (PCOLCO2(JK) == 0.) PCOLCO2(JK) = 1.E-32 * PCOLDRY(JK)
+  IF (PCOLN2O(JK) == 0.) PCOLN2O(JK) = 1.E-32 * PCOLDRY(JK)
+  IF (PCOLCH4(JK) == 0.) PCOLCH4(JK) = 1.E-32 * PCOLDRY(JK)
+  IF (PCOLO2(JK) == 0.) PCOLO2(JK) = 1.E-32 * PCOLDRY(JK)
+!        Using E = 1334.2 cm-1.
+  Z_CO2REG = 3.55E-24 * PCOLDRY(JK)
+  PCO2MULT(JK)= (PCOLCO2(JK) - Z_CO2REG) * &
+   & 272.63*EXP(-1919.4/PTAVEL(JK))/(8.7604E-4*PTAVEL(JK))  
+  GO TO 5400
+
+!        Above LAYTROP.
+  5300    CONTINUE
+
+!        Set up factors needed to separately include the water vapor
+!        foreign-continuum in the calculation of absorption coefficient.
+
+  PFORFAC(JK) = Z_SCALEFAC / (1.+Z_WATER)
+  Z_FACTOR = (PTAVEL(JK)-188.0)/36.0
+  KINDFOR(JK) = 3
+  PFORFRAC(JK) = Z_FACTOR - 1.0
+
+!        Calculate needed column amounts.
+
+  PCOLH2O(JK) = 1.E-20 * PWKL(1,JK)
+  PCOLCO2(JK) = 1.E-20 * PWKL(2,JK)
+  PCOLO3(JK)  = 1.E-20 * PWKL(3,JK)
+  PCOLN2O(JK) = 1.E-20 * PWKL(4,JK)
+  PCOLCH4(JK) = 1.E-20 * PWKL(6,JK)
+  PCOLO2(JK)  = 1.E-20 * PWKL(7,JK)
+  PCOLMOL(JK) = 1.E-20 * PCOLDRY(JK) + PCOLH2O(JK)
+  IF (PCOLCO2(JK) == 0.) PCOLCO2(JK) = 1.E-32 * PCOLDRY(JK)
+  IF (PCOLN2O(JK) == 0.) PCOLN2O(JK) = 1.E-32 * PCOLDRY(JK)
+  IF (PCOLCH4(JK) == 0.) PCOLCH4(JK) = 1.E-32 * PCOLDRY(JK)
+  IF (PCOLO2(JK) == 0.) PCOLO2(JK)  = 1.E-32 * PCOLDRY(JK)
+  Z_CO2REG = 3.55E-24 * PCOLDRY(JK)
+  PCO2MULT(JK)= (PCOLCO2(JK) - Z_CO2REG) * &
+   & 272.63*EXP(-1919.4/PTAVEL(JK))/(8.7604E-4*PTAVEL(JK))  
+
+  PSELFFAC(JK) =0.0_JPRB
+  PSELFFRAC(JK)=0.0_JPRB
+  KINDSELF(JK) = 0
+
+  5400    CONTINUE
+
+!        We have now isolated the layer ln pressure and temperature,
+!        between two reference pressures and two reference temperatures 
+!        (for each reference pressure).  We multiply the pressure 
+!        fraction FP with the appropriate temperature fractions to get 
+!        the factors that will be needed for the interpolation that yields
+!        the optical depths (performed in routines TAUGBn for band n).
+
+  Z_COMPFP = 1. - Z_FP
+  PFAC10(JK) = Z_COMPFP * Z_FT
+  PFAC00(JK) = Z_COMPFP * (1. - Z_FT)
+  PFAC11(JK) = Z_FP * Z_FT1
+  PFAC01(JK) = Z_FP * (1. - Z_FT1)
+
+!  IF (NDBUG.LE.3) THEN
+!    print 9000,LAY,LAYTROP,JP(LAY),JT(LAY),JT1(LAY),TAVEL(LAY) &
+!      &,FAC00(LAY),FAC01(LAY),FAC10(LAY),FAC11(LAY) &
+!      &,CO2MULT(LAY),COLMOL(LAY),COLCH4(LAY),COLCO2(LAY),COLH2O(LAY) &
+!      &,COLN2O(LAY),COLO2(LAY),COLO3(LAY),SELFFAC(LAY),SELFFRAC(LAY) &
+!      &,FORFAC(LAY),FORFRAC(LAY),INDSELF(LAY),INDFOR(LAY)
+  9000 format(1x,2I3,3I4,F6.1,4F7.2,12E9.2,2I5)
+!  END IF
+
+ENDDO
+
+!----------------------------------------------------------------------- 
+IF (LHOOK) CALL DR_HOOK('SRTM_SETCOEF',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_SETCOEF
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_setcoef.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_setcoef.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_setcoef.intfb.h	(revision 1989)
@@ -0,0 +1,48 @@
+INTERFACE
+SUBROUTINE SRTM_SETCOEF&
+ & ( KLEV , KNMOL ,&
+ & PAVEL , PTAVEL , PZ , PTZ , PTBOUND ,&
+ & PCOLDRY , PWKL ,&
+ & KLAYTROP, KLAYSWTCH, KLAYLOW ,&
+ & PCO2MULT, PCOLCH4 , PCOLCO2 , PCOLH2O , PCOLMOL , PCOLN2O , PCOLO2 , PCOLO3 ,&
+ & PFORFAC , PFORFRAC , KINDFOR , PSELFFAC, PSELFFRAC, KINDSELF ,&
+ & PFAC00 , PFAC01 , PFAC10 , PFAC11 ,&
+ & KJP , KJT , KJT1&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARSRTM , ONLY : JPLAY
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+INTEGER(KIND=JPIM) :: KNMOL
+REAL(KIND=JPRB) ,INTENT(IN) :: PAVEL(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTAVEL(JPLAY)
+REAL(KIND=JPRB) :: PZ(0:JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTZ(0:JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTBOUND
+REAL(KIND=JPRB) ,INTENT(IN) :: PCOLDRY(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: PWKL(35,JPLAY)
+INTEGER(KIND=JPIM),INTENT(OUT) :: KLAYTROP
+INTEGER(KIND=JPIM),INTENT(OUT) :: KLAYSWTCH
+INTEGER(KIND=JPIM),INTENT(OUT) :: KLAYLOW
+REAL(KIND=JPRB) ,INTENT(OUT) :: PCO2MULT(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PCOLCH4(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PCOLCO2(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PCOLH2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PCOLMOL(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PCOLN2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PCOLO2(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PCOLO3(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFORFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFORFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(OUT) :: KINDFOR(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PSELFFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PSELFFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(OUT) :: KINDSELF(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFAC11(JPLAY)
+INTEGER(KIND=JPIM),INTENT(OUT) :: KJP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(OUT) :: KJT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(OUT) :: KJT1(JPLAY)
+END SUBROUTINE SRTM_SETCOEF
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_spcvrt.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_spcvrt.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_spcvrt.F90	(revision 1989)
@@ -0,0 +1,673 @@
+#ifdef RS6K
+@PROCESS HOT NOSTRICT
+#endif
+SUBROUTINE SRTM_SPCVRT &
+ & ( KLEV    , KMOL    , KSW    , PONEMINUS, &
+ &   PAVEL   , PTAVEL   , PZ     , PTZ     , PTBOUND  , PALBD   , PALBP, &
+ &   PFRCL   , PTAUC   , PASYC  , POMGC  , PTAUA   , PASYA   , POMGA , PRMU0, &
+ &   PCOLDRY , PWKL, &
+ &   KLAYTROP, KLAYSWTCH, KLAYLOW ,&
+ &   PCO2MULT, PCOLCH4  , PCOLCO2 , PCOLH2O , PCOLMOL  , PCOLN2O  , PCOLO2 , PCOLO3 ,&
+ &   PFORFAC , PFORFRAC , KINDFOR , PSELFFAC, PSELFFRAC, KINDSELF ,&
+ &   PFAC00  , PFAC01   , PFAC10  , PFAC11 ,&
+ &   KJP     , KJT      , KJT1 ,&
+!-- output arrays 
+ &   PBBFD, PBBFU, PUVFD, PUVFU, PVSFD, PVSFU , PNIFD , PNIFU ,&
+ &   PBBCD, PBBCU, PUVCD, PUVCU, PVSCD, PVSCU , PNICD , PNICU &
+ & )  
+
+!**** *SRTM_SPCVRT* - SPECTRAL LOOP TO COMPUTE THE SHORTWAVE RADIATION FLUXES.
+
+!     PURPOSE.
+!     --------
+
+!          THIS ROUTINE COMPUTES THE TWO-STREAM METHOD OF BARKER
+
+!**   INTERFACE.
+!     ----------
+
+!          *SRTM_SPCVRT* IS CALLED FROM *SRTM_SRTM_224GP*
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!     METHOD.
+!     -------
+
+!     EXTERNALS.
+!     ----------
+
+!          *SWVRTQDR*
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE ECMWF RESEARCH DEPARTMENT
+!        DOCUMENTATION
+!     AUTHOR.
+!     -------
+!        from Howard Barker
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 03-02-27
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARSRTM  , ONLY : JPLAY, JPB1, JPB2, JPGPT
+
+USE YOESRTWN , ONLY : NGC
+USE YOERDI   , ONLY : REPCLC
+
+!USE YOERAD   , ONLY : NSW
+!USE YOERDU   , ONLY : RCDAY
+!USE YOESWN   , ONLY : NTBANDS, NBANDS, NGS, NUV, NVS, RWGT, NDBUG
+
+IMPLICIT NONE
+
+!     ------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KSW 
+INTEGER(KIND=JPIM)               :: KLEV ! UNDETERMINED INTENT
+INTEGER(KIND=JPIM)               :: KMOL ! Argument NOT used
+REAL(KIND=JPRB)                  :: PONEMINUS ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PAVEL(JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)                  :: PTAVEL(JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)                  :: PZ(0:JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)                  :: PTZ(0:JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)                  :: PTBOUND ! Argument NOT used
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PALBD(KSW) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PALBP(KSW) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PFRCL(JPLAY)     ! bottom to top
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAUC(JPLAY,KSW) ! bottom to top
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PASYC(JPLAY,KSW) ! bottom to top
+REAL(KIND=JPRB)   ,INTENT(IN)    :: POMGC(JPLAY,KSW) ! bottom to top
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAUA(JPLAY,KSW) ! bottom to top
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PASYA(JPLAY,KSW) ! bottom to top
+REAL(KIND=JPRB)   ,INTENT(IN)    :: POMGA(JPLAY,KSW) ! bottom to top
+REAL(KIND=JPRB)                  :: PRMU0 ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PCOLDRY(JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)                  :: PWKL(35,JPLAY) ! Argument NOT used
+INTEGER(KIND=JPIM)               :: KLAYTROP ! UNDETERMINED INTENT
+INTEGER(KIND=JPIM)               :: KLAYSWTCH ! Argument NOT used
+INTEGER(KIND=JPIM)               :: KLAYLOW ! Argument NOT used
+REAL(KIND=JPRB)                  :: PCO2MULT(JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)                  :: PCOLCH4(JPLAY) ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PCOLCO2(JPLAY) ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PCOLH2O(JPLAY) ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PCOLMOL(JPLAY) ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PCOLN2O(JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)                  :: PCOLO2(JPLAY) ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PCOLO3(JPLAY) ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PFORFAC(JPLAY) ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PFORFRAC(JPLAY) ! UNDETERMINED INTENT
+INTEGER(KIND=JPIM)               :: KINDFOR(JPLAY) ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PSELFFAC(JPLAY) ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PSELFFRAC(JPLAY) ! UNDETERMINED INTENT
+INTEGER(KIND=JPIM)               :: KINDSELF(JPLAY) ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PFAC00(JPLAY) ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PFAC01(JPLAY) ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PFAC10(JPLAY) ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PFAC11(JPLAY) ! UNDETERMINED INTENT
+INTEGER(KIND=JPIM)               :: KJP(JPLAY) ! UNDETERMINED INTENT
+INTEGER(KIND=JPIM)               :: KJT(JPLAY) ! UNDETERMINED INTENT
+INTEGER(KIND=JPIM)               :: KJT1(JPLAY) ! UNDETERMINED INTENT
+REAL(KIND=JPRB)   ,INTENT(INOUT) :: PBBFD(JPLAY+1) 
+REAL(KIND=JPRB)   ,INTENT(INOUT) :: PBBFU(JPLAY+1) 
+REAL(KIND=JPRB)                  :: PUVFD(JPLAY+1) ! Argument NOT used
+REAL(KIND=JPRB)                  :: PUVFU(JPLAY+1) ! Argument NOT used
+REAL(KIND=JPRB)                  :: PVSFD(JPLAY+1) ! Argument NOT used
+REAL(KIND=JPRB)                  :: PVSFU(JPLAY+1) ! Argument NOT used
+REAL(KIND=JPRB)                  :: PNIFD(JPLAY+1) ! Argument NOT used
+REAL(KIND=JPRB)                  :: PNIFU(JPLAY+1) ! Argument NOT used
+REAL(KIND=JPRB)   ,INTENT(INOUT) :: PBBCD(JPLAY+1) 
+REAL(KIND=JPRB)   ,INTENT(INOUT) :: PBBCU(JPLAY+1) 
+REAL(KIND=JPRB)                  :: PUVCD(JPLAY+1) ! Argument NOT used
+REAL(KIND=JPRB)                  :: PUVCU(JPLAY+1) ! Argument NOT used
+REAL(KIND=JPRB)                  :: PVSCD(JPLAY+1) ! Argument NOT used
+REAL(KIND=JPRB)                  :: PVSCU(JPLAY+1) ! Argument NOT used
+REAL(KIND=JPRB)                  :: PNICD(JPLAY+1) ! Argument NOT used
+REAL(KIND=JPRB)                  :: PNICU(JPLAY+1) ! Argument NOT used
+!     ------------------------------------------------------------------
+
+!              ------------
+
+LOGICAL :: LLRTCHK(JPLAY)
+
+REAL(KIND=JPRB) :: &
+ & ZCLEAR      , ZCLOUD       &
+ & , ZDBT(JPLAY+1) &
+ & , ZGCC(JPLAY)   , ZGCO(JPLAY)     &
+ & , ZOMCC(JPLAY)  , ZOMCO(JPLAY)    &
+ & , ZRDND(JPLAY+1), ZRDNDC(JPLAY+1)&
+ & , ZREF(JPLAY+1) , ZREFC(JPLAY+1) , ZREFO(JPLAY+1)  &
+ & , ZREFD(JPLAY+1), ZREFDC(JPLAY+1), ZREFDO(JPLAY+1) &
+ & , ZRUP(JPLAY+1) , ZRUPD(JPLAY+1) &
+ & , ZRUPC(JPLAY+1), ZRUPDC(JPLAY+1)&
+ & , ZTAUC(JPLAY)  , ZTAUO(JPLAY)    &
+ & , ZTDBT(JPLAY+1) &
+ & , ZTRA(JPLAY+1) , ZTRAC(JPLAY+1) , ZTRAO(JPLAY+1)  &
+ & , ZTRAD(JPLAY+1), ZTRADC(JPLAY+1), ZTRADO(JPLAY+1)   
+REAL(KIND=JPRB) :: &
+ & ZDBTC(JPLAY+1), ZTDBTC(JPLAY+1), ZINCFLX(JPGPT)  &
+ & ,  ZINCF14(14)   , ZINCTOT   
+  
+INTEGER(KIND=JPIM) :: IB1, IB2, IBM, IGT, IKL, IW, JB, JG, JK, I_KMODTS
+
+REAL(KIND=JPRB) :: ZDBTMC, ZDBTMO, ZF, ZINCFLUX, ZWF
+
+!-- Output of SRTM_TAUMOLn routines
+
+REAL(KIND=JPRB) :: ZTAUG(JPLAY,16), ZTAUR(JPLAY,16), ZSFLXZEN(16)
+
+!-- Output of SRTM_VRTQDR routine
+REAL(KIND=JPRB) :: &
+ & ZCD(JPLAY+1,JPGPT), ZCU(JPLAY+1,JPGPT) &
+ & ,  ZFD(JPLAY+1,JPGPT), ZFU(JPLAY+1,JPGPT)  
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+
+#include "srtm_taumol16.intfb.h"
+#include "srtm_taumol17.intfb.h"
+#include "srtm_taumol18.intfb.h"
+#include "srtm_taumol19.intfb.h"
+#include "srtm_taumol20.intfb.h"
+#include "srtm_taumol21.intfb.h"
+#include "srtm_taumol22.intfb.h"
+#include "srtm_taumol23.intfb.h"
+#include "srtm_taumol24.intfb.h"
+#include "srtm_taumol25.intfb.h"
+#include "srtm_taumol26.intfb.h"
+#include "srtm_taumol27.intfb.h"
+#include "srtm_taumol28.intfb.h"
+#include "srtm_taumol29.intfb.h"
+#include "srtm_reftra.intfb.h"
+#include "srtm_vrtqdr.intfb.h"
+!     ------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_SPCVRT',0,ZHOOK_HANDLE)
+
+!-- Two-stream model 1: Eddington, 2: PIFM, Zdunkowski et al., 3: discret ordinates
+! KMODTS is set in SWREFTRA
+!NDBUG=4
+
+IB1=JPB1
+IB2=JPB2
+!print *,'IB1, IB2, KSW, KMOL, KLEV: ', IB1,IB2,KSW,KMOL,KLEV
+
+IW=0
+ZINCFLUX=0.0_JPRB
+ZINCTOT=0.0_JPRB
+
+JB=IB1-1
+DO JB = IB1, IB2
+  IBM = JB-15
+  IGT = NGC(IBM)
+  ZINCF14(IBM)=0.0_JPRB
+
+!  print *,'=== spectral band === JB= ',JB,' ====== i.e. IBM= ',IBM,' with IGT= ',IGT
+        
+!-- for each band, computes the gaseous and Rayleigh optical thickness 
+!  for all g-points within the band
+
+  IF (JB == 16) THEN
+    CALL SRTM_TAUMOL16 &
+     & ( KLEV    ,&
+     &   PFAC00  , PFAC01   , PFAC10   , PFAC11   ,&
+     &   KJP     , KJT      , KJT1     , PONEMINUS,&
+     &   PCOLH2O , PCOLCH4  , PCOLMOL  ,&
+     &   KLAYTROP, PSELFFAC , PSELFFRAC, KINDSELF, PFORFAC  , PFORFRAC, KINDFOR ,&
+     &   ZSFLXZEN, ZTAUG    , ZTAUR    &
+     & )  
+!    print *,'After  SRTM_TAUMOL16'
+
+  ELSEIF (JB == 17) THEN
+    CALL SRTM_TAUMOL17 &
+     & ( KLEV    ,&
+     &   PFAC00  , PFAC01  , PFAC10   , PFAC11 ,&
+     &   KJP     , KJT     , KJT1     , PONEMINUS ,&
+     &   PCOLH2O , PCOLCO2 , PCOLMOL  ,&
+     &   KLAYTROP, PSELFFAC, PSELFFRAC, KINDSELF  , PFORFAC, PFORFRAC, KINDFOR ,&
+     &   ZSFLXZEN, ZTAUG   , ZTAUR    &
+     & )  
+!    print *,'After  SRTM_TAUMOL17'
+
+  ELSEIF (JB == 18) THEN
+    CALL SRTM_TAUMOL18 &
+     & ( KLEV    ,&
+     &   PFAC00  , PFAC01  , PFAC10   , PFAC11 ,&
+     &   KJP     , KJT     , KJT1     , PONEMINUS ,&
+     &   PCOLH2O , PCOLCH4 , PCOLMOL  ,&
+     &   KLAYTROP, PSELFFAC, PSELFFRAC, KINDSELF  , PFORFAC, PFORFRAC, KINDFOR ,&
+     &   ZSFLXZEN, ZTAUG   , ZTAUR    &
+     & )  
+!    print *,'After  SRTM_TAUMOL18'
+
+  ELSEIF (JB == 19) THEN
+    CALL SRTM_TAUMOL19 &
+     & ( KLEV    ,&
+     &   PFAC00  , PFAC01  , PFAC10   , PFAC11 ,&
+     &   KJP     , KJT     , KJT1     , PONEMINUS ,&
+     &   PCOLH2O , PCOLCO2 , PCOLMOL  ,&
+     &   KLAYTROP, PSELFFAC, PSELFFRAC, KINDSELF  , PFORFAC, PFORFRAC, KINDFOR ,&
+     &   ZSFLXZEN, ZTAUG   , ZTAUR    &
+     & )  
+!    print *,'After  SRTM_TAUMOL19'
+
+  ELSEIF (JB == 20) THEN
+    CALL SRTM_TAUMOL20 &
+     & ( KLEV    ,&
+     &   PFAC00  , PFAC01  , PFAC10   , PFAC11 ,&
+     &   KJP     , KJT     , KJT1     , PONEMINUS ,&
+     &   PCOLH2O , PCOLCH4 , PCOLMOL  ,&
+     &   KLAYTROP, PSELFFAC, PSELFFRAC, KINDSELF  , PFORFAC, PFORFRAC, KINDFOR ,&
+     &   ZSFLXZEN, ZTAUG   , ZTAUR    &
+     & )  
+!    print *,'After  SRTM_TAUMOL20'
+
+  ELSEIF (JB == 21) THEN
+    CALL SRTM_TAUMOL21 &
+     & ( KLEV    ,&
+     &   PFAC00  , PFAC01  , PFAC10   , PFAC11 ,&
+     &   KJP     , KJT     , KJT1     , PONEMINUS ,&
+     &   PCOLH2O , PCOLCO2 , PCOLMOL  ,&
+     &   KLAYTROP, PSELFFAC, PSELFFRAC, KINDSELF  , PFORFAC, PFORFRAC, KINDFOR ,&
+     &   ZSFLXZEN, ZTAUG   , ZTAUR    &
+     & )  
+!    print *,'After  SRTM_TAUMOL21'
+
+  ELSEIF (JB == 22) THEN
+    CALL SRTM_TAUMOL22 &
+     & ( KLEV    ,&
+     &   PFAC00  , PFAC01  , PFAC10   , PFAC11 ,&
+     &   KJP     , KJT     , KJT1     , PONEMINUS ,&
+     &   PCOLH2O , PCOLMOL , PCOLO2   ,&
+     &   KLAYTROP, PSELFFAC, PSELFFRAC, KINDSELF  , PFORFAC, PFORFRAC, KINDFOR ,&
+     &   ZSFLXZEN, ZTAUG   , ZTAUR    &
+     & )  
+!    print *,'After  SRTM_TAUMOL22'
+
+  ELSEIF (JB == 23) THEN
+    CALL SRTM_TAUMOL23 &
+     & ( KLEV    ,&
+     &   PFAC00  , PFAC01  , PFAC10   , PFAC11 ,&
+     &   KJP     , KJT     , KJT1     , PONEMINUS ,&
+     &   PCOLH2O , PCOLMOL ,&
+     &   KLAYTROP, PSELFFAC, PSELFFRAC, KINDSELF  , PFORFAC, PFORFRAC, KINDFOR ,&
+     &   ZSFLXZEN, ZTAUG   , ZTAUR    &
+     & )  
+!    print *,'After  SRTM_TAUMOL23'
+
+  ELSEIF (JB == 24) THEN
+    CALL SRTM_TAUMOL24 &
+     & ( KLEV    ,&
+     &   PFAC00  , PFAC01  , PFAC10   , PFAC11 ,&
+     &   KJP     , KJT     , KJT1     , PONEMINUS ,&
+     &   PCOLH2O , PCOLMOL , PCOLO2   , PCOLO3 ,&
+     &   KLAYTROP, PSELFFAC, PSELFFRAC, KINDSELF  , PFORFAC, PFORFRAC, KINDFOR ,&
+     &   ZSFLXZEN, ZTAUG   , ZTAUR    &
+     & )  
+!    print *,'After  SRTM_TAUMOL24'
+
+  ELSEIF (JB == 25) THEN
+!--- visible 16000-22650 cm-1   0.4415 - 0.6250 um
+    CALL SRTM_TAUMOL25 &
+     & ( KLEV     ,&
+     &   PFAC00   , PFAC01  , PFAC10 , PFAC11 ,&
+     &   KJP      , KJT     , KJT1   , PONEMINUS ,&
+     &   PCOLH2O  , PCOLMOL , PCOLO3 ,&
+     &   KLAYTROP ,&
+     &   ZSFLXZEN, ZTAUG   , ZTAUR   &
+     & )  
+!    print *,'After  SRTM_TAUMOL25'
+
+  ELSEIF (JB == 26) THEN
+!--- UV-A 22650-29000 cm-1   0.3448 - 0.4415 um
+    CALL SRTM_TAUMOL26 &
+     & ( KLEV    ,&
+     &   PFAC00  , PFAC01  , PFAC10   , PFAC11 ,&
+     &   KJP     , KJT     , KJT1     , PONEMINUS ,&
+     &   PCOLH2O , PCOLCO2 , PCOLMOL  ,&
+     &   KLAYTROP, PSELFFAC, PSELFFRAC, KINDSELF  , PFORFAC, PFORFRAC, KINDFOR ,&
+     &   ZSFLXZEN, ZTAUG   , ZTAUR    &
+     & )  
+!    print *,'After  SRTM_TAUMOL26'
+
+  ELSEIF (JB == 27) THEN
+!--- UV-B 29000-38000 cm-1   0.2632 - 0.3448 um
+    CALL SRTM_TAUMOL27 &
+     & ( KLEV    ,&
+     &   PFAC00  , PFAC01  , PFAC10   , PFAC11 ,&
+     &   KJP     , KJT     , KJT1     , PONEMINUS ,&
+     &   PCOLMOL , PCOLO3 ,&
+     &   KLAYTROP ,&
+     &   ZSFLXZEN, ZTAUG   , ZTAUR    &
+     & )  
+!    print *,'After  SRTM_TAUMOL27'
+
+  ELSEIF (JB == 28) THEN
+!--- UV-C 38000-50000 cm-1   0.2000 - 0.2632 um
+    CALL SRTM_TAUMOL28 &
+     & ( KLEV    ,&
+     &   PFAC00  , PFAC01  , PFAC10 , PFAC11 ,&
+     &   KJP     , KJT     , KJT1   , PONEMINUS ,&
+     &   PCOLMOL , PCOLO2  , PCOLO3 ,&
+     &   KLAYTROP ,&
+     &   ZSFLXZEN, ZTAUG   , ZTAUR  &
+     & )  
+!    print *,'After  SRTM_TAUMOL28'
+
+  ELSEIF (JB == 29) THEN
+    CALL SRTM_TAUMOL29 &
+     & ( KLEV     ,&
+     &   PFAC00   , PFAC01  , PFAC10   , PFAC11 ,&
+     &   KJP      , KJT     , KJT1     , PONEMINUS ,&
+     &   PCOLH2O  , PCOLCO2 , PCOLMOL  ,&
+     &   KLAYTROP , PSELFFAC, PSELFFRAC, KINDSELF  , PFORFAC, PFORFRAC, KINDFOR ,&
+     &   ZSFLXZEN , ZTAUG   , ZTAUR    &
+     & )  
+!    print *,'After  SRTM_TAUMOL29'
+
+  ENDIF
+
+!  IF (NDBUG.LE.3) THEN
+!    print *,'Incident Solar Flux'
+!    PRINT 9010,(ZSFLXZEN(JG),JG=1,16)
+  9010 format(1x,'SolFlx ',16F8.4)
+!    print *,'Optical thickness for molecular absorption for JB= ',JB 
+!    DO JK=1,KLEV
+!      PRINT 9011,JK,(ZTAUG(JK,JG),JG=1,16)
+  9011  format(1x,'TauGas ',I3,16E9.2)
+!    ENDDO
+!    print *,'Optical thickness for Rayleigh scattering for JB= ',JB 
+!    DO JK=1,KLEV
+!      PRINT 9012,JK,(ZTAUR(JK,JG),JG=1,16)
+  9012  format(1x,'TauRay ',I3,16E9.2)
+!    ENDDO
+!    print *,'Cloud optical properties for JB= ',JB
+!    DO JK=1,KLEV
+!      PRINT 9013,JK,PFRCL(JK),PTAUC(JK,IBM),POMGC(JK,IBM),PASYC(JK,IBM)
+  9013  format(1x,'Cloud optprop ',I3,f8.4,f8.3,2f8.5)
+!    ENDDO
+!  ENDIF
+
+  DO JG=1,IGT
+    IW=IW+1
+
+!    IF (NDBUG.LE.1) THEN
+!      print *,' === JG= ',JG,' === for JB= ',JB,' with IW, IBM, JPLAY, KLEV=',IW,IBM,JPLAY,KLEV
+!    ENDIF
+
+    ZINCFLX(IW) =ZSFLXZEN(JG)*PRMU0
+    ZINCFLUX    =ZINCFLUX+ZSFLXZEN(JG)*PRMU0           
+    ZINCTOT     =ZINCTOT+ZSFLXZEN(JG)
+    ZINCF14(IBM)=ZINCF14(IBM)+ZSFLXZEN(JG)
+
+!-- CALL to compute layer reflectances and transmittances for direct 
+!  and diffuse sources, first clear then cloudy.
+!   Use direct/parallel albedo for direct radiation and diffuse albedo
+!   otherwise.
+
+! ZREFC(JK)  direct albedo for clear
+! ZREFO(JK)  direct albedo for cloud
+! ZREFDC(JK) diffuse albedo for clear
+! ZREFDO(JK) diffuse albedo for cloud
+! ZTRAC(JK)  direct transmittance for clear
+! ZTRAO(JK)  direct transmittance for cloudy
+! ZTRADC(JK) diffuse transmittance for clear
+! ZTRADO(JK) diffuse transmittance for cloudy
+
+! ZREF(JK)   direct reflectance
+! ZREFD(JK)  diffuse reflectance
+! ZTRA(JK)   direct transmittance
+! ZTRAD(JK)  diffuse transmittance
+
+! ZDBTC(JK)  clear direct beam transmittance
+! ZDBTO(JK)  cloudy direct beam transmittance
+! ZDBT(JK)   layer mean direct beam transmittance
+! ZTDBT(JK)  total direct beam transmittance at levels
+
+!-- clear-sky    
+!----- TOA direct beam    
+    ZTDBTC(1)=1._JPRB
+!----- surface values
+    ZDBTC(KLEV+1) =0.0_JPRB
+    ZTRAC(KLEV+1) =0.0_JPRB
+    ZTRADC(KLEV+1)=0.0_JPRB
+    ZREFC(KLEV+1) =PALBP(IBM)
+    ZREFDC(KLEV+1)=PALBD(IBM)
+    ZRUPC(KLEV+1) =PALBP(IBM)
+    ZRUPDC(KLEV+1)=PALBD(IBM)
+           
+!-- total sky    
+!----- TOA direct beam    
+    ZTDBT(1)=1._JPRB
+!----- surface values
+    ZDBT(KLEV+1) =0.0_JPRB
+    ZTRA(KLEV+1) =0.0_JPRB
+    ZTRAD(KLEV+1)=0.0_JPRB
+    ZREF(KLEV+1) =PALBP(IBM)
+    ZREFD(KLEV+1)=PALBD(IBM)
+    ZRUP(KLEV+1) =PALBP(IBM)
+    ZRUPD(KLEV+1)=PALBD(IBM)
+!    if (NDBUG < 2) print *,'SWSPCTRL after 1 with JB,JG,IBM and IW= ',JB,JG,IBM,IW
+    
+    DO JK=1,KLEV
+
+!-- NB: a two-stream calculations from top to bottom, but RRTM_SW quantities 
+!       are given bottom to top (argh!)
+!       Inputs for clouds and aerosols are bottom to top as inputs
+
+      IKL=KLEV+1-JK
+
+!-- clear-sky optical parameters      
+      LLRTCHK(JK)=.TRUE.
+
+!      print 9000,JK,JG,IKL,ZTAUR(IKL,JG),ZTAUG(IKL,JG),PTAUC(IKL,IBM)
+      9000  format(1x,'Cloud quantities ',3I4,3E12.5)
+
+!-- original
+!      ZTAUC(JK)=ZTAUR(IKL,JG)+ZTAUG(IKL,JG)
+!      ZOMCC(JK)=ZTAUR(IKL,JG)/ZTAUC(JK)
+!      ZGCC (JK)=0.0001_JPRB
+
+!-- total sky optical parameters        
+!      ZTAUO(JK)=ZTAUR(IKL,JG)+ZTAUG(IKL,JG)+PTAUC(IKL,IBM)
+!      ZOMCO(JK)=PTAUC(IKL,IBM)*POMGC(IKL,IBM)+ZTAUR(IKL,JG)
+!      ZGCO (JK)=(PTAUC(IKL,IBM)*POMGC(IKL,IBM)*PASYC(IKL,IBM) &
+!        & +ZTAUR(IKL,JG)*0.0001_JPRB)/ZOMCO(JK)
+!      ZOMCO(JK)=ZOMCO(JK)/ZTAUO(JK)
+
+!-- clear-sky optical parameters including aerosols
+      ZTAUC(JK) = ZTAUR(IKL,JG) + ZTAUG(IKL,JG) + PTAUA(IKL,IBM)
+      ZOMCC(JK) = ZTAUR(IKL,JG)*1.0_JPRB + PTAUA(IKL,IBM)*POMGA(IKL,IBM)
+      ZGCC (JK) = PASYA(IKL,IBM)*POMGA(IKL,IBM)*PTAUA(IKL,IBM) / ZOMCC(JK)
+      ZOMCC(JK) = ZOMCC(JK) / ZTAUC(JK)
+
+!-- total sky optical parameters        
+      ZTAUO(JK) = ZTAUR(IKL,JG) + ZTAUG(IKL,JG) + PTAUA(IKL,IBM) + PTAUC(IKL,IBM)
+      ZOMCO(JK) = PTAUA(IKL,IBM)*POMGA(IKL,IBM) + PTAUC(IKL,IBM)*POMGC(IKL,IBM) &
+       & + ZTAUR(IKL,JG)*1.0_JPRB  
+      ZGCO (JK) = (PTAUC(IKL,IBM)*POMGC(IKL,IBM)*PASYC(IKL,IBM)  &
+       & +  PTAUA(IKL,IBM)*POMGA(IKL,IBM)*PASYA(IKL,IBM)) &
+       & /  ZOMCO(JK)  
+      ZOMCO(JK) = ZOMCO(JK) / ZTAUO(JK)
+
+!      if (NDBUG <2) THEN
+!        print 9001,JK,JG,LRTCHK(JK),0.00,ZTAUC(JK),ZOMCC(JK),ZGCC(JK),ZTAUR(IKL,JG),ZTAUG(IKL,JG)
+      9001    format(1x,'clear :',2I3,L4,7(1x,E13.6))
+!        print 9002,JK,JG,LRTCHK(JK),PFRCL(IKL),ZTAUO(JK),ZOMCO(JK),ZGCO(JK) &
+!          &,PTAUC(IKL,IBM),POMGC(IKL,IBM),PASYC(IKL,IBM)
+      9002    format(1x,'total0:',2I3,L4,7(1x,E13.6))
+!      end if
+    ENDDO    
+!    if (NDBUG < 2) print *,'SWSPCTRL after 2'
+
+!-- Delta scaling for clear-sky / aerosol optical quantities
+    DO  JK=1,KLEV
+      ZF=ZGCC(JK)*ZGCC(JK)
+      ZWF=ZOMCC(JK)*ZF
+      ZTAUC(JK)=(1._JPRB-ZWF)*ZTAUC(JK)
+      ZOMCC(JK)=(ZOMCC(JK)-ZWF)/(1.0_JPRB-ZWF)
+      ZGCC (JK)=(ZGCC(JK)-ZF)/(1.0_JPRB-ZF)
+    ENDDO
+   
+    CALL SRTM_REFTRA ( KLEV, I_KMODTS ,&
+     &   LLRTCHK, ZGCC  , PRMU0, ZTAUC , ZOMCC ,&
+     &   ZREFC  , ZREFDC, ZTRAC, ZTRADC )  
+!    if (NDBUG < 2) print *,'SWSPCTR after SWREFTRA for clear-sky'
+    
+!-- Delta scaling for cloudy quantities
+    DO JK=1,KLEV
+      IKL=KLEV+1-JK
+      LLRTCHK(JK)=.FALSE.
+      ZF=ZGCO(JK)*ZGCO(JK)
+      ZWF=ZOMCO(JK)*ZF
+      ZTAUO(JK)=(1._JPRB-ZWF)*ZTAUO(JK)
+      ZOMCO(JK)=(ZOMCO(JK)-ZWF)/(1._JPRB-ZWF)
+      ZGCO (JK)=(ZGCO(JK)-ZF)/(1._JPRB-ZF)
+      LLRTCHK(JK)=(PFRCL(IKL) > REPCLC)
+
+!      if (NDBUG < 2) THEN 
+!        print 9003,JK,LRTCHK(JK),PFRCL(IKL),ZTAUO(JK),ZOMCO(JK),ZGCO(JK) &
+!          &,PTAUC(IKL,IBM),POMGC(IKL,IBM),PASYC(IKL,IBM)
+      9003    format(1x,'totalD:',I3,L4,7(1x,E13.6))
+!      end if
+
+    ENDDO
+!    if (NDBUG < 2) print *,'SWSPCTR after Delta scaling'
+    
+    CALL SRTM_REFTRA ( KLEV, I_KMODTS ,&
+     &   LLRTCHK, ZGCO  , PRMU0, ZTAUO , ZOMCO ,&
+     &   ZREFO , ZREFDO, ZTRAO, ZTRADO )  
+!    if (NDBUG < 2) print *,'SWSPCTR after SWREFTRA for cloudy'
+
+    DO JK=1,KLEV
+
+!-- combine clear and cloudy contributions for total sky
+
+      IKL=KLEV+1-JK 
+      ZCLEAR   = 1.0_JPRB - PFRCL(IKL)
+      ZCLOUD   = PFRCL(IKL)
+
+      ZREF(JK) = ZCLEAR*ZREFC(JK) + ZCLOUD*ZREFO(JK)
+      ZREFD(JK)= ZCLEAR*ZREFDC(JK)+ ZCLOUD*ZREFDO(JK)
+      ZTRA(JK) = ZCLEAR*ZTRAC(JK) + ZCLOUD*ZTRAO(JK)
+      ZTRAD(JK)= ZCLEAR*ZTRADC(JK)+ ZCLOUD*ZTRADO(JK)
+
+!-- direct beam transmittance        
+
+      ZDBTMC     = EXP(-ZTAUC(JK)/PRMU0)
+      ZDBTMO     = EXP(-ZTAUO(JK)/PRMU0)
+      ZDBT(JK)   = ZCLEAR*ZDBTMC+ZCLOUD*ZDBTMO
+      ZTDBT(JK+1)= ZDBT(JK)*ZTDBT(JK)
+        
+!-- clear-sky        
+      ZDBTC(JK)   =ZDBTMC
+      ZTDBTC(JK+1)=ZDBTC(JK)*ZTDBTC(JK)
+
+!      if (NDBUG < 2) print 9200,JK,ZREFC(JK),ZREFDC(JK),ZTRAC(JK),ZTRADC(JK),ZDBTC(JK),ZTDBTC(JK+1)
+!      if (NDBUG < 2) print 9199,JK,ZREF(JK),ZREFD(JK),ZTRA(JK),ZTRAD(JK),ZDBT(JK),ZTDBT(JK+1)
+      9199  format(1x,'Comb total:',I3,6E13.6)
+      9200  format(1x,'Comb clear:',I3,6E13.6)
+
+    ENDDO           
+!    if (NDBUG < 2) print *,'SRTM_SPCVRT after combining clear and cloudy'
+                 
+!-- vertical quadrature producing clear-sky fluxes
+
+!    print *,'SRTM_SPCVRT after 3 before SRTM_VRTQDR clear'
+    
+    CALL SRTM_VRTQDR ( KLEV, IW ,&
+     &   ZREFC, ZREFDC, ZTRAC , ZTRADC ,&
+     &   ZDBTC, ZRDNDC, ZRUPC , ZRUPDC, ZTDBTC ,&
+     &   ZCD  , ZCU   )  
+      
+!    IF (NDBUG < 2) THEN
+!      print *,'SRTM_SPCVRT out of SRTM_VRTQDR for clear IW=',IW  
+!      DO JK=1,KLEV+1
+!        print 9201,JK,ZCD(JK,IW),ZCU(JK,IW)
+    9201    format(1x,'clear-sky contrib to fluxes',I3,2F12.4)
+!      ENDDO      
+!    ENDIF
+
+!-- vertical quadrature producing cloudy fluxes
+
+!    print *,'SRTM_SPCVRT after 4 before SRTM_VRTQDR cloudy'
+    
+    CALL SRTM_VRTQDR ( KLEV, IW ,&
+     &   ZREF , ZREFD , ZTRA , ZTRAD ,&
+     &   ZDBT , ZRDND , ZRUP , ZRUPD , ZTDBT ,&
+     &   ZFD  , ZFU   )  
+ 
+!    IF (NDBUG < 2) THEN     
+!      print *,'SRTM_SPCVRT out of SRTM_VRTQDR for cloudy IW=',IW
+!      DO JK=1,KLEV+1
+!        print 9202,JK,ZFD(JK,IW),ZFU(JK,IW)
+    9202    format(1x,'cloudy sky contrib to fluxes',I3,2F12.4)
+!      ENDDO      
+!    ENDIF
+
+!-- up and down-welling fluxes at levels
+    DO JK=1,KLEV+1
+!-- accumulation of spectral fluxes          
+      PBBFU(JK) = PBBFU(JK) + ZINCFLX(IW)*ZFU(JK,IW)
+      PBBFD(JK) = PBBFD(JK) + ZINCFLX(IW)*ZFD(JK,IW)
+      PBBCU(JK) = PBBCU(JK) + ZINCFLX(IW)*ZCU(JK,IW)
+      PBBCD(JK) = PBBCD(JK) + ZINCFLX(IW)*ZCD(JK,IW)
+
+! to get NIR, visible and UV quantities
+
+!      PBBFU(JK)=PBBFU(JK)+RWGT(IW)*ZFU(JK,IW)
+!      PBBFD(JK)=PBBFD(JK)+RWGT(IW)*ZFD(JK,IW)
+!      PBBCU(JK)=PBBCU(JK)+RWGT(IW)*ZCU(JK,IW)
+!      PBBCD(JK)=PBBCD(JK)+RWGT(IW)*ZCD(JK,IW)
+!      IF (IW <= NUV) THEN
+!        PUVFD(JK)=PUVFD(JK)+RWGT(IW)*ZFD(JK,IW)
+!        PUVFU(JK)=PUVFU(JK)+RWGT(IW)*ZFU(JK,IW)
+!        PUVCD(JK)=PUVCD(JK)+RWGT(IW)*ZCD(JK,IW)
+!        PUVCU(JK)=PUVCU(JK)+RWGT(IW)*ZCU(JK,IW)
+!      ELSE IF (IW == NUV+1 .AND. IW <= NVS) THEN  
+!        PVSFD(JK)=PVSFD(JK)+RWGT(IW)*ZFD(JK,IW)
+!        PVSFU(JK)=PVSFU(JK)+RWGT(IW)*ZFU(JK,IW)
+!        PVSCD(JK)=PVSCD(JK)+RWGT(IW)*ZCD(JK,IW)
+!        PVSCU(JK)=PVSCU(JK)+RWGT(IW)*ZCU(JK,IW)
+!      ELSE IF (IW > NVS) THEN  
+!        PNIFD(JK)=PNIFD(JK)+RWGT(IW)*ZFD(JK,IW)
+!        PNIFU(JK)=PNIFU(JK)+RWGT(IW)*ZFU(JK,IW)
+!        PNICD(JK)=PNICD(JK)+RWGT(IW)*ZCD(JK,IW)
+!        PNICU(JK)=PNICU(JK)+RWGT(IW)*ZCU(JK,IW)
+!      ENDIF  
+!      if (NDBUG < 2) then
+!!      if (JG.EQ.IGT) THEN 
+!          print 9206,JB,JG,JK,IW,PBBCU(JK),PBBCD(JK),PBBFU(JK),PBBFD(JK)
+      9206      format(1x,'fluxes up to:',3I3,I4,6E13.6)       
+!      end if
+    ENDDO
+
+!    if (NDBUG < 2) print *,'SRTM_SPCVRT end of JG=',JG,' for JB=',JB,' i.e. IW=',IW
+  ENDDO             
+!-- end loop on JG
+
+!  print *,' --- JB= ',JB,' with IB1, IB2= ',IB1,IB2
+ENDDO                    
+!-- end loop on JB
+!if (NDBUG < 2) print *,'SRTM_SPCVRT about to come out'
+
+!DO IBM=1,14
+!  print 9301,IBM,ZINCF14(IBM), ZINCTOT, ZINCF14(IBM)/ZINCTOT
+9301 format(1x,'Incident Spectral Flux: ',I3,2E15.8,F12.8)
+!ENDDO
+
+!     ------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_SPCVRT',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_SPCVRT
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_spcvrt.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_spcvrt.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_spcvrt.intfb.h	(revision 1989)
@@ -0,0 +1,79 @@
+INTERFACE
+SUBROUTINE SRTM_SPCVRT&
+ & ( KLEV , KMOL , KSW , PONEMINUS,&
+ & PAVEL , PTAVEL , PZ , PTZ , PTBOUND , PALBD , PALBP,&
+ & PFRCL , PTAUC , PASYC , POMGC , PTAUA , PASYA , POMGA , PRMU0,&
+ & PCOLDRY , PWKL,&
+ & KLAYTROP, KLAYSWTCH, KLAYLOW ,&
+ & PCO2MULT, PCOLCH4 , PCOLCO2 , PCOLH2O , PCOLMOL , PCOLN2O , PCOLO2 , PCOLO3 ,&
+ & PFORFAC , PFORFRAC , KINDFOR , PSELFFAC, PSELFFRAC, KINDSELF ,&
+ & PFAC00 , PFAC01 , PFAC10 , PFAC11 ,&
+ & KJP , KJT , KJT1 ,&
+ & PBBFD, PBBFU, PUVFD, PUVFU, PVSFD, PVSFU , PNIFD , PNIFU ,&
+ & PBBCD, PBBCU, PUVCD, PUVCU, PVSCD, PVSCU , PNICD , PNICU&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARSRTM , ONLY : JPLAY, JPB1, JPB2, JPGPT
+INTEGER(KIND=JPIM),INTENT(IN) :: KSW
+INTEGER(KIND=JPIM) :: KLEV
+INTEGER(KIND=JPIM) :: KMOL
+REAL(KIND=JPRB) :: PONEMINUS
+REAL(KIND=JPRB) :: PAVEL(JPLAY)
+REAL(KIND=JPRB) :: PTAVEL(JPLAY)
+REAL(KIND=JPRB) :: PZ(0:JPLAY)
+REAL(KIND=JPRB) :: PTZ(0:JPLAY)
+REAL(KIND=JPRB) :: PTBOUND
+REAL(KIND=JPRB) ,INTENT(IN) :: PALBD(KSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: PALBP(KSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: PFRCL(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTAUC(JPLAY,KSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: PASYC(JPLAY,KSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: POMGC(JPLAY,KSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTAUA(JPLAY,KSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: PASYA(JPLAY,KSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: POMGA(JPLAY,KSW)
+REAL(KIND=JPRB) :: PRMU0
+REAL(KIND=JPRB) :: PCOLDRY(JPLAY)
+REAL(KIND=JPRB) :: PWKL(35,JPLAY)
+INTEGER(KIND=JPIM) :: KLAYTROP
+INTEGER(KIND=JPIM) :: KLAYSWTCH
+INTEGER(KIND=JPIM) :: KLAYLOW
+REAL(KIND=JPRB) :: PCO2MULT(JPLAY)
+REAL(KIND=JPRB) :: PCOLCH4(JPLAY)
+REAL(KIND=JPRB) :: PCOLCO2(JPLAY)
+REAL(KIND=JPRB) :: PCOLH2O(JPLAY)
+REAL(KIND=JPRB) :: PCOLMOL(JPLAY)
+REAL(KIND=JPRB) :: PCOLN2O(JPLAY)
+REAL(KIND=JPRB) :: PCOLO2(JPLAY)
+REAL(KIND=JPRB) :: PCOLO3(JPLAY)
+REAL(KIND=JPRB) :: PFORFAC(JPLAY)
+REAL(KIND=JPRB) :: PFORFRAC(JPLAY)
+INTEGER(KIND=JPIM) :: KINDFOR(JPLAY)
+REAL(KIND=JPRB) :: PSELFFAC(JPLAY)
+REAL(KIND=JPRB) :: PSELFFRAC(JPLAY)
+INTEGER(KIND=JPIM) :: KINDSELF(JPLAY)
+REAL(KIND=JPRB) :: PFAC00(JPLAY)
+REAL(KIND=JPRB) :: PFAC01(JPLAY)
+REAL(KIND=JPRB) :: PFAC10(JPLAY)
+REAL(KIND=JPRB) :: PFAC11(JPLAY)
+INTEGER(KIND=JPIM) :: KJP(JPLAY)
+INTEGER(KIND=JPIM) :: KJT(JPLAY)
+INTEGER(KIND=JPIM) :: KJT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PBBFD(JPLAY+1)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PBBFU(JPLAY+1)
+REAL(KIND=JPRB) :: PUVFD(JPLAY+1)
+REAL(KIND=JPRB) :: PUVFU(JPLAY+1)
+REAL(KIND=JPRB) :: PVSFD(JPLAY+1)
+REAL(KIND=JPRB) :: PVSFU(JPLAY+1)
+REAL(KIND=JPRB) :: PNIFD(JPLAY+1)
+REAL(KIND=JPRB) :: PNIFU(JPLAY+1)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PBBCD(JPLAY+1)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PBBCU(JPLAY+1)
+REAL(KIND=JPRB) :: PUVCD(JPLAY+1)
+REAL(KIND=JPRB) :: PUVCU(JPLAY+1)
+REAL(KIND=JPRB) :: PVSCD(JPLAY+1)
+REAL(KIND=JPRB) :: PVSCU(JPLAY+1)
+REAL(KIND=JPRB) :: PNICD(JPLAY+1)
+REAL(KIND=JPRB) :: PNICU(JPLAY+1)
+END SUBROUTINE SRTM_SPCVRT
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_spcvrt_mcica.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_spcvrt_mcica.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_spcvrt_mcica.F90	(revision 1989)
@@ -0,0 +1,698 @@
+#ifdef RS6K
+@PROCESS HOT NOSTRICT
+#endif
+SUBROUTINE SRTM_SPCVRT_MCICA &
+ & ( KLEV    , KMOL    , KSW    , KCOLS  , PONEMINUS, &
+ &   PAVEL   , PTAVEL  , PZ     , PTZ    , PTBOUND  , PALBD   , PALBP, &
+ &   PFRCL   , PTAUC   , PASYC  , POMGC  , PTAUA    , PASYA   , POMGA , PRMU0, &
+ &   PCOLDRY , PWKL, &
+ &   KLAYTROP, KLAYSWTCH, KLAYLOW ,&
+ &   PCO2MULT, PCOLCH4  , PCOLCO2 , PCOLH2O , PCOLMOL  , PCOLN2O  , PCOLO2 , PCOLO3 ,&
+ &   PFORFAC , PFORFRAC , KINDFOR , PSELFFAC, PSELFFRAC, KINDSELF ,&
+ &   PFAC00  , PFAC01   , PFAC10  , PFAC11 ,&
+ &   KJP     , KJT      , KJT1 ,&
+!-- output arrays 
+ &   PBBFD, PBBFU, PBBCD, PBBCU )
+
+! &   PBBFD, PBBFU, PUVFD, PUVFU, PVSFD, PVSFU , PNIFD , PNIFU ,&
+! &   PBBCD, PBBCU, PUVCD, PUVCU, PVSCD, PVSCU , PNICD , PNICU &
+! & )  
+
+!**** *SRTM_SPCVRT* - SPECTRAL LOOP TO COMPUTE THE SHORTWAVE RADIATION FLUXES.
+
+!     PURPOSE.
+!     --------
+
+!          THIS ROUTINE COMPUTES THE TWO-STREAM METHOD OF BARKER
+
+!**   INTERFACE.
+!     ----------
+
+!          *SRTM_SPCVRT_MCICA* IS CALLED FROM *SRTM_SRTM_224GP*
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!     METHOD.
+!     -------
+
+!     EXTERNALS.
+!     ----------
+
+!          *SWVRTQDR*
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE ECMWF RESEARCH DEPARTMENT
+!        DOCUMENTATION
+!     AUTHOR.
+!     -------
+!        from Howard Barker
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 03-02-27
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        JJMorcrette   20050110 McICA version
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARSRTM  , ONLY : JPLAY, JPB1, JPB2, JPGPT
+
+USE YOESRTWN , ONLY : NGC
+USE YOERDI   , ONLY : REPCLC
+
+!USE YOERAD   , ONLY : NSW
+!USE YOERDU   , ONLY : RCDAY
+!USE YOESWN   , ONLY : NTBANDS, NBANDS, NGS, NUV, NVS, RWGT, NDBUG
+
+IMPLICIT NONE
+
+!     ------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KSW
+INTEGER(KIND=JPIM),INTENT(IN)    :: KCOLS
+ 
+INTEGER(KIND=JPIM)               :: KLEV ! UNDETERMINED INTENT
+INTEGER(KIND=JPIM)               :: KMOL ! Argument NOT used
+!INTEGER(KIND=JPIM)               :: KPT
+
+REAL(KIND=JPRB)                  :: PONEMINUS ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PAVEL(JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)                  :: PTAVEL(JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)                  :: PZ(0:JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)                  :: PTZ(0:JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)                  :: PTBOUND ! Argument NOT used
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PALBD(KSW) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PALBP(KSW) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PFRCL(KCOLS,JPLAY)  ! bottom to top
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAUC(JPLAY,KCOLS)  ! bottom to top
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PASYC(JPLAY,KCOLS)  ! bottom to top
+REAL(KIND=JPRB)   ,INTENT(IN)    :: POMGC(JPLAY,KCOLS)  ! bottom to top
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAUA(JPLAY,KSW)    ! bottom to top
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PASYA(JPLAY,KSW)    ! bottom to top
+REAL(KIND=JPRB)   ,INTENT(IN)    :: POMGA(JPLAY,KSW)    ! bottom to top
+REAL(KIND=JPRB)                  :: PRMU0 ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PCOLDRY(JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)                  :: PWKL(35,JPLAY) ! Argument NOT used
+INTEGER(KIND=JPIM)               :: KLAYTROP ! UNDETERMINED INTENT
+INTEGER(KIND=JPIM)               :: KLAYSWTCH ! Argument NOT used
+INTEGER(KIND=JPIM)               :: KLAYLOW ! Argument NOT used
+REAL(KIND=JPRB)                  :: PCO2MULT(JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)                  :: PCOLCH4(JPLAY) ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PCOLCO2(JPLAY) ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PCOLH2O(JPLAY) ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PCOLMOL(JPLAY) ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PCOLN2O(JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)                  :: PCOLO2(JPLAY) ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PCOLO3(JPLAY) ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PFORFAC(JPLAY) ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PFORFRAC(JPLAY) ! UNDETERMINED INTENT
+INTEGER(KIND=JPIM)               :: KINDFOR(JPLAY) ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PSELFFAC(JPLAY) ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PSELFFRAC(JPLAY) ! UNDETERMINED INTENT
+INTEGER(KIND=JPIM)               :: KINDSELF(JPLAY) ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PFAC00(JPLAY) ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PFAC01(JPLAY) ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PFAC10(JPLAY) ! UNDETERMINED INTENT
+REAL(KIND=JPRB)                  :: PFAC11(JPLAY) ! UNDETERMINED INTENT
+INTEGER(KIND=JPIM)               :: KJP(JPLAY) ! UNDETERMINED INTENT
+INTEGER(KIND=JPIM)               :: KJT(JPLAY) ! UNDETERMINED INTENT
+INTEGER(KIND=JPIM)               :: KJT1(JPLAY) ! UNDETERMINED INTENT
+REAL(KIND=JPRB)   ,INTENT(INOUT) :: PBBFD(JPLAY+1) 
+REAL(KIND=JPRB)   ,INTENT(INOUT) :: PBBFU(JPLAY+1) 
+!REAL(KIND=JPRB)                  :: PUVFD(JPLAY+1) ! Argument NOT used
+!REAL(KIND=JPRB)                  :: PUVFU(JPLAY+1) ! Argument NOT used
+!REAL(KIND=JPRB)                  :: PVSFD(JPLAY+1) ! Argument NOT used
+!REAL(KIND=JPRB)                  :: PVSFU(JPLAY+1) ! Argument NOT used
+!REAL(KIND=JPRB)                  :: PNIFD(JPLAY+1) ! Argument NOT used
+!REAL(KIND=JPRB)                  :: PNIFU(JPLAY+1) ! Argument NOT used
+REAL(KIND=JPRB)   ,INTENT(INOUT) :: PBBCD(JPLAY+1) 
+REAL(KIND=JPRB)   ,INTENT(INOUT) :: PBBCU(JPLAY+1) 
+!REAL(KIND=JPRB)                  :: PUVCD(JPLAY+1) ! Argument NOT used
+!REAL(KIND=JPRB)                  :: PUVCU(JPLAY+1) ! Argument NOT used
+!REAL(KIND=JPRB)                  :: PVSCD(JPLAY+1) ! Argument NOT used
+!REAL(KIND=JPRB)                  :: PVSCU(JPLAY+1) ! Argument NOT used
+!REAL(KIND=JPRB)                  :: PNICD(JPLAY+1) ! Argument NOT used
+!REAL(KIND=JPRB)                  :: PNICU(JPLAY+1) ! Argument NOT used
+!     ------------------------------------------------------------------
+
+!              ------------
+
+LOGICAL :: LLRTCHK(JPLAY)
+
+REAL(KIND=JPRB) :: &
+ & ZCLEAR      , ZCLOUD       &
+ & , ZDBT(JPLAY+1) &
+ & , ZGCC(JPLAY)   , ZGCO(JPLAY)     &
+ & , ZOMCC(JPLAY)  , ZOMCO(JPLAY)    &
+ & , ZRDND(JPLAY+1), ZRDNDC(JPLAY+1)&
+ & , ZREF(JPLAY+1) , ZREFC(JPLAY+1) , ZREFO(JPLAY+1)  &
+ & , ZREFD(JPLAY+1), ZREFDC(JPLAY+1), ZREFDO(JPLAY+1) &
+ & , ZRUP(JPLAY+1) , ZRUPD(JPLAY+1) &
+ & , ZRUPC(JPLAY+1), ZRUPDC(JPLAY+1)&
+ & , ZTAUC(JPLAY)  , ZTAUO(JPLAY)    &
+ & , ZTDBT(JPLAY+1) &
+ & , ZTRA(JPLAY+1) , ZTRAC(JPLAY+1) , ZTRAO(JPLAY+1)  &
+ & , ZTRAD(JPLAY+1), ZTRADC(JPLAY+1), ZTRADO(JPLAY+1)   
+REAL(KIND=JPRB) :: &
+ & ZDBTC(JPLAY+1), ZTDBTC(JPLAY+1), ZINCFLX(JPGPT)  &
+ & ,  ZINCF14(14)   , ZINCTOT   
+  
+INTEGER(KIND=JPIM) :: IB1, IB2, IBM, IGT, IKL, IW, JB, JG, JK, I_KMODTS
+
+REAL(KIND=JPRB) :: ZARG1, ZARG2, ZDBTMC, ZDBTMO, ZF, ZINCFLUX, ZWF
+
+!-- Output of SRTM_TAUMOLn routines
+
+REAL(KIND=JPRB) :: ZTAUG(JPLAY,16), ZTAUR(JPLAY,16), ZSFLXZEN(16)
+
+!-- Output of SRTM_VRTQDR routine
+REAL(KIND=JPRB) :: &
+ & ZCD(JPLAY+1,JPGPT), ZCU(JPLAY+1,JPGPT) &
+ & ,  ZFD(JPLAY+1,JPGPT), ZFU(JPLAY+1,JPGPT)  
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+
+#include "srtm_taumol16.intfb.h"
+#include "srtm_taumol17.intfb.h"
+#include "srtm_taumol18.intfb.h"
+#include "srtm_taumol19.intfb.h"
+#include "srtm_taumol20.intfb.h"
+#include "srtm_taumol21.intfb.h"
+#include "srtm_taumol22.intfb.h"
+#include "srtm_taumol23.intfb.h"
+#include "srtm_taumol24.intfb.h"
+#include "srtm_taumol25.intfb.h"
+#include "srtm_taumol26.intfb.h"
+#include "srtm_taumol27.intfb.h"
+#include "srtm_taumol28.intfb.h"
+#include "srtm_taumol29.intfb.h"
+#include "srtm_reftra.intfb.h"
+#include "srtm_vrtqdr.intfb.h"
+!     ------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_SPCVRT_MCICA',0,ZHOOK_HANDLE)
+
+!-- Two-stream model 1: Eddington, 2: PIFM, Zdunkowski et al., 3: discret ordinates
+! KMODTS is set in SWREFTRA
+!NDBUG=4
+
+IB1=JPB1
+IB2=JPB2
+!print *,'IB1, IB2, KSW, KMOL, KLEV: ', IB1,IB2,KSW,KMOL,KLEV
+
+IW=0
+ZINCFLUX=0.0_JPRB
+ZINCTOT=0.0_JPRB
+
+JB=IB1-1
+DO JB = IB1, IB2
+  IBM = JB-15
+  IGT = NGC(IBM)
+  ZINCF14(IBM)=0.0_JPRB
+
+!  print *,'=== spectral band === JB= ',JB,' ====== i.e. IBM= ',IBM,' with IGT= ',IGT
+        
+!-- for each band, computes the gaseous and Rayleigh optical thickness 
+!  for all g-points within the band
+
+  IF (JB == 16) THEN
+    CALL SRTM_TAUMOL16 &
+     & ( KLEV    ,&
+     &   PFAC00  , PFAC01   , PFAC10   , PFAC11   ,&
+     &   KJP     , KJT      , KJT1     , PONEMINUS,&
+     &   PCOLH2O , PCOLCH4  , PCOLMOL  ,&
+     &   KLAYTROP, PSELFFAC , PSELFFRAC, KINDSELF, PFORFAC  , PFORFRAC, KINDFOR ,&
+     &   ZSFLXZEN, ZTAUG    , ZTAUR    &
+     & )  
+!    print *,'After  SRTM_TAUMOL16'
+
+  ELSEIF (JB == 17) THEN
+    CALL SRTM_TAUMOL17 &
+     & ( KLEV    ,&
+     &   PFAC00  , PFAC01  , PFAC10   , PFAC11 ,&
+     &   KJP     , KJT     , KJT1     , PONEMINUS ,&
+     &   PCOLH2O , PCOLCO2 , PCOLMOL  ,&
+     &   KLAYTROP, PSELFFAC, PSELFFRAC, KINDSELF  , PFORFAC, PFORFRAC, KINDFOR ,&
+     &   ZSFLXZEN, ZTAUG   , ZTAUR    &
+     & )  
+!    print *,'After  SRTM_TAUMOL17'
+
+  ELSEIF (JB == 18) THEN
+    CALL SRTM_TAUMOL18 &
+     & ( KLEV    ,&
+     &   PFAC00  , PFAC01  , PFAC10   , PFAC11 ,&
+     &   KJP     , KJT     , KJT1     , PONEMINUS ,&
+     &   PCOLH2O , PCOLCH4 , PCOLMOL  ,&
+     &   KLAYTROP, PSELFFAC, PSELFFRAC, KINDSELF  , PFORFAC, PFORFRAC, KINDFOR ,&
+     &   ZSFLXZEN, ZTAUG   , ZTAUR    &
+     & )  
+!    print *,'After  SRTM_TAUMOL18'
+
+  ELSEIF (JB == 19) THEN
+    CALL SRTM_TAUMOL19 &
+     & ( KLEV    ,&
+     &   PFAC00  , PFAC01  , PFAC10   , PFAC11 ,&
+     &   KJP     , KJT     , KJT1     , PONEMINUS ,&
+     &   PCOLH2O , PCOLCO2 , PCOLMOL  ,&
+     &   KLAYTROP, PSELFFAC, PSELFFRAC, KINDSELF  , PFORFAC, PFORFRAC, KINDFOR ,&
+     &   ZSFLXZEN, ZTAUG   , ZTAUR    &
+     & )  
+!    print *,'After  SRTM_TAUMOL19'
+
+  ELSEIF (JB == 20) THEN
+    CALL SRTM_TAUMOL20 &
+     & ( KLEV    ,&
+     &   PFAC00  , PFAC01  , PFAC10   , PFAC11 ,&
+     &   KJP     , KJT     , KJT1     , PONEMINUS ,&
+     &   PCOLH2O , PCOLCH4 , PCOLMOL  ,&
+     &   KLAYTROP, PSELFFAC, PSELFFRAC, KINDSELF  , PFORFAC, PFORFRAC, KINDFOR ,&
+     &   ZSFLXZEN, ZTAUG   , ZTAUR    &
+     & )  
+!    print *,'After  SRTM_TAUMOL20'
+
+  ELSEIF (JB == 21) THEN
+    CALL SRTM_TAUMOL21 &
+     & ( KLEV    ,&
+     &   PFAC00  , PFAC01  , PFAC10   , PFAC11 ,&
+     &   KJP     , KJT     , KJT1     , PONEMINUS ,&
+     &   PCOLH2O , PCOLCO2 , PCOLMOL  ,&
+     &   KLAYTROP, PSELFFAC, PSELFFRAC, KINDSELF  , PFORFAC, PFORFRAC, KINDFOR ,&
+     &   ZSFLXZEN, ZTAUG   , ZTAUR    &
+     & )  
+!    print *,'After  SRTM_TAUMOL21'
+
+  ELSEIF (JB == 22) THEN
+    CALL SRTM_TAUMOL22 &
+     & ( KLEV    ,&
+     &   PFAC00  , PFAC01  , PFAC10   , PFAC11 ,&
+     &   KJP     , KJT     , KJT1     , PONEMINUS ,&
+     &   PCOLH2O , PCOLMOL , PCOLO2   ,&
+     &   KLAYTROP, PSELFFAC, PSELFFRAC, KINDSELF  , PFORFAC, PFORFRAC, KINDFOR ,&
+     &   ZSFLXZEN, ZTAUG   , ZTAUR    &
+     & )  
+!    print *,'After  SRTM_TAUMOL22'
+
+  ELSEIF (JB == 23) THEN
+    CALL SRTM_TAUMOL23 &
+     & ( KLEV    ,&
+     &   PFAC00  , PFAC01  , PFAC10   , PFAC11 ,&
+     &   KJP     , KJT     , KJT1     , PONEMINUS ,&
+     &   PCOLH2O , PCOLMOL ,&
+     &   KLAYTROP, PSELFFAC, PSELFFRAC, KINDSELF  , PFORFAC, PFORFRAC, KINDFOR ,&
+     &   ZSFLXZEN, ZTAUG   , ZTAUR    &
+     & )  
+!    print *,'After  SRTM_TAUMOL23'
+
+  ELSEIF (JB == 24) THEN
+    CALL SRTM_TAUMOL24 &
+     & ( KLEV    ,&
+     &   PFAC00  , PFAC01  , PFAC10   , PFAC11 ,&
+     &   KJP     , KJT     , KJT1     , PONEMINUS ,&
+     &   PCOLH2O , PCOLMOL , PCOLO2   , PCOLO3 ,&
+     &   KLAYTROP, PSELFFAC, PSELFFRAC, KINDSELF  , PFORFAC, PFORFRAC, KINDFOR ,&
+     &   ZSFLXZEN, ZTAUG   , ZTAUR    &
+     & )  
+!    print *,'After  SRTM_TAUMOL24'
+
+  ELSEIF (JB == 25) THEN
+!--- visible 16000-22650 cm-1   0.4415 - 0.6250 um
+    CALL SRTM_TAUMOL25 &
+     & ( KLEV     ,&
+     &   PFAC00   , PFAC01  , PFAC10 , PFAC11 ,&
+     &   KJP      , KJT     , KJT1   , PONEMINUS ,&
+     &   PCOLH2O  , PCOLMOL , PCOLO3 ,&
+     &   KLAYTROP ,&
+     &   ZSFLXZEN, ZTAUG   , ZTAUR   &
+     & )  
+!    print *,'After  SRTM_TAUMOL25'
+
+  ELSEIF (JB == 26) THEN
+!--- UV-A 22650-29000 cm-1   0.3448 - 0.4415 um
+    CALL SRTM_TAUMOL26 &
+     & ( KLEV    ,&
+     &   PFAC00  , PFAC01  , PFAC10   , PFAC11 ,&
+     &   KJP     , KJT     , KJT1     , PONEMINUS ,&
+     &   PCOLH2O , PCOLCO2 , PCOLMOL  ,&
+     &   KLAYTROP, PSELFFAC, PSELFFRAC, KINDSELF  , PFORFAC, PFORFRAC, KINDFOR ,&
+     &   ZSFLXZEN, ZTAUG   , ZTAUR    &
+     & )  
+!    print *,'After  SRTM_TAUMOL26'
+
+  ELSEIF (JB == 27) THEN
+!--- UV-B 29000-38000 cm-1   0.2632 - 0.3448 um
+    CALL SRTM_TAUMOL27 &
+     & ( KLEV    ,&
+     &   PFAC00  , PFAC01  , PFAC10   , PFAC11 ,&
+     &   KJP     , KJT     , KJT1     , PONEMINUS ,&
+     &   PCOLMOL , PCOLO3 ,&
+     &   KLAYTROP ,&
+     &   ZSFLXZEN, ZTAUG   , ZTAUR    &
+     & )  
+!    print *,'After  SRTM_TAUMOL27'
+
+  ELSEIF (JB == 28) THEN
+!--- UV-C 38000-50000 cm-1   0.2000 - 0.2632 um
+    CALL SRTM_TAUMOL28 &
+     & ( KLEV    ,&
+     &   PFAC00  , PFAC01  , PFAC10 , PFAC11 ,&
+     &   KJP     , KJT     , KJT1   , PONEMINUS ,&
+     &   PCOLMOL , PCOLO2  , PCOLO3 ,&
+     &   KLAYTROP ,&
+     &   ZSFLXZEN, ZTAUG   , ZTAUR  &
+     & )  
+!    print *,'After  SRTM_TAUMOL28'
+
+  ELSEIF (JB == 29) THEN
+    CALL SRTM_TAUMOL29 &
+     & ( KLEV     ,&
+     &   PFAC00   , PFAC01  , PFAC10   , PFAC11 ,&
+     &   KJP      , KJT     , KJT1     , PONEMINUS ,&
+     &   PCOLH2O  , PCOLCO2 , PCOLMOL  ,&
+     &   KLAYTROP , PSELFFAC, PSELFFRAC, KINDSELF  , PFORFAC, PFORFRAC, KINDFOR ,&
+     &   ZSFLXZEN , ZTAUG   , ZTAUR    &
+     & )  
+!    print *,'After  SRTM_TAUMOL29'
+
+  ENDIF
+
+!  IF (NDBUG.LE.3) THEN
+!    print *,'Incident Solar Flux'
+!    PRINT 9010,(ZSFLXZEN(JG),JG=1,16)
+  9010 format(1x,'SolFlx ',16F8.4)
+!    print *,'Optical thickness for molecular absorption for JB= ',JB 
+!    DO JK=1,KLEV
+!      PRINT 9011,JK,(ZTAUG(JK,JG),JG=1,16)
+  9011  format(1x,'TauGas ',I3,16E9.2)
+!    ENDDO
+!    print *,'Optical thickness for Rayleigh scattering for JB= ',JB 
+!    DO JK=1,KLEV
+!      PRINT 9012,JK,(ZTAUR(JK,JG),JG=1,16)
+  9012  format(1x,'TauRay ',I3,16E9.2)
+!    ENDDO
+!  ENDIF
+
+  DO JG=1,IGT
+    IW=IW+1
+
+!    IF (NDBUG.LE.1) THEN
+!      print *,' === JG= ',JG,' === for JB= ',JB,' with IW, IBM, JPLAY, KLEV=',IW,IBM,JPLAY,KLEV
+!    ENDIF
+!    IF (NDBUG.LE.3) THEN
+!      print *,'Cloud optical properties for JB= ',JB
+!      DO JK=1,KLEV
+!        PRINT 9013,JK,PFRCL(IW,JK),PTAUC(JK,IW),POMGC(JK,IW),PASYC(JK,IW)
+  9013   format(1x,'Cloud optprop ',I3,f8.4,f8.3,2f8.5)
+!      ENDDO
+!    ENDIF
+
+    ZINCFLX(IW) =ZSFLXZEN(JG)*PRMU0
+    ZINCFLUX    =ZINCFLUX+ZSFLXZEN(JG)*PRMU0           
+    ZINCTOT     =ZINCTOT+ZSFLXZEN(JG)
+    ZINCF14(IBM)=ZINCF14(IBM)+ZSFLXZEN(JG)
+
+!-- CALL to compute layer reflectances and transmittances for direct 
+!  and diffuse sources, first clear then cloudy.
+!   Use direct/parallel albedo for direct radiation and diffuse albedo
+!   otherwise.
+
+! ZREFC(JK)  direct albedo for clear
+! ZREFO(JK)  direct albedo for cloud
+! ZREFDC(JK) diffuse albedo for clear
+! ZREFDO(JK) diffuse albedo for cloud
+! ZTRAC(JK)  direct transmittance for clear
+! ZTRAO(JK)  direct transmittance for cloudy
+! ZTRADC(JK) diffuse transmittance for clear
+! ZTRADO(JK) diffuse transmittance for cloudy
+
+! ZREF(JK)   direct reflectance
+! ZREFD(JK)  diffuse reflectance
+! ZTRA(JK)   direct transmittance
+! ZTRAD(JK)  diffuse transmittance
+
+! ZDBTC(JK)  clear direct beam transmittance
+! ZDBTO(JK)  cloudy direct beam transmittance
+! ZDBT(JK)   layer mean direct beam transmittance
+! ZTDBT(JK)  total direct beam transmittance at levels
+
+!-- clear-sky    
+!----- TOA direct beam    
+    ZTDBTC(1)=1._JPRB
+!----- surface values
+    ZDBTC(KLEV+1) =0.0_JPRB
+    ZTRAC(KLEV+1) =0.0_JPRB
+    ZTRADC(KLEV+1)=0.0_JPRB
+    ZREFC(KLEV+1) =PALBP(IBM)
+    ZREFDC(KLEV+1)=PALBD(IBM)
+    ZRUPC(KLEV+1) =PALBP(IBM)
+    ZRUPDC(KLEV+1)=PALBD(IBM)
+           
+!-- total sky    
+!----- TOA direct beam    
+    ZTDBT(1)=1._JPRB
+!----- surface values
+    ZDBT(KLEV+1) =0.0_JPRB
+    ZTRA(KLEV+1) =0.0_JPRB
+    ZTRAD(KLEV+1)=0.0_JPRB
+    ZREF(KLEV+1) =PALBP(IBM)
+    ZREFD(KLEV+1)=PALBD(IBM)
+    ZRUP(KLEV+1) =PALBP(IBM)
+    ZRUPD(KLEV+1)=PALBD(IBM)
+!    if (NDBUG < 2) print *,'SWSPCTRL after 1 with JB,JG,IBM and IW= ',JB,JG,IBM,IW
+    
+
+!-- NB: a two-stream calculations from top to bottom, but RRTM_SW quantities 
+!       are given bottom to top (argh!)
+!       Inputs for clouds and aerosols are bottom to top as inputs
+
+    DO JK=1,KLEV
+      IKL=KLEV+1-JK
+
+!-- clear-sky optical parameters      
+      LLRTCHK(JK)=.TRUE.
+
+!      print 9000,JK,JG,IKL,ZTAUR(IKL,JG),ZTAUG(IKL,JG),PTAUC(IKL,IW)
+      9000  format(1x,'Cloud quantities ',3I4,3E12.5)
+
+!-- original
+!      ZTAUC(JK)=ZTAUR(IKL,JG)+ZTAUG(IKL,JG)
+!      ZOMCC(JK)=ZTAUR(IKL,JG)/ZTAUC(JK)
+!      ZGCC (JK)=0.0001_JPRB
+
+!-- total sky optical parameters        
+!      ZTAUO(JK)=ZTAUR(IKL,JG)+ZTAUG(IKL,JG)+PTAUC(IKL,IW)
+!      ZOMCO(JK)=PTAUC(IKL,IW)*POMGC(IKL,IW)+ZTAUR(IKL,JG)
+!      ZGCO (JK)=(PTAUC(IKL,IW)*POMGC(IKL,IW)*PASYC(IKL,IW) &
+!        & +ZTAUR(IKL,JG)*0.0001_JPRB)/ZOMCO(JK)
+!      ZOMCO(JK)=ZOMCO(JK)/ZTAUO(JK)
+
+!-- clear-sky optical parameters including aerosols
+      ZTAUC(JK) = ZTAUR(IKL,JG) + ZTAUG(IKL,JG) + PTAUA(IKL,IBM)
+      ZOMCC(JK) = ZTAUR(IKL,JG)*1.0_JPRB + PTAUA(IKL,IBM)*POMGA(IKL,IBM)
+      ZGCC (JK) = PASYA(IKL,IBM)*POMGA(IKL,IBM)*PTAUA(IKL,IBM) / ZOMCC(JK)
+      ZOMCC(JK) = ZOMCC(JK) / ZTAUC(JK)
+
+    ENDDO
+    DO JK=1,KLEV
+      IKL=KLEV+1-JK
+!-- total sky optical parameters        
+      ZTAUO(JK) = ZTAUR(IKL,JG) + ZTAUG(IKL,JG) + PTAUA(IKL,IBM) + PTAUC(IKL,IW)
+      ZOMCO(JK) = PTAUA(IKL,IBM)*POMGA(IKL,IBM) + PTAUC(IKL,IW)*POMGC(IKL,IW) &
+       & + ZTAUR(IKL,JG)*1.0_JPRB  
+      ZGCO (JK) = (PTAUC(IKL,IW)*POMGC(IKL,IW)*PASYC(IKL,IW)  &
+       & +  PTAUA(IKL,IBM)*POMGA(IKL,IBM)*PASYA(IKL,IBM)) &
+       & /  ZOMCO(JK)  
+      ZOMCO(JK) = ZOMCO(JK) / ZTAUO(JK)
+
+!      if (NDBUG <2) THEN
+!        print 9001,JK,JG,LRTCHK(JK),0.00,ZTAUC(JK),ZOMCC(JK),ZGCC(JK),ZTAUR(IKL,JG),ZTAUG(IKL,JG)
+      9001    format(1x,'clear :',2I3,L4,7(1x,E13.6))
+!        print 9002,JK,JG,LRTCHK(JK),PFRCL(IW,IKL),ZTAUO(JK),ZOMCO(JK),ZGCO(JK) &
+!          &,PTAUC(IKL,IW),POMGC(IKL,IW),PASYC(IKL,IW)
+      9002    format(1x,'total0:',2I3,L4,7(1x,E13.6))
+!      end if
+    ENDDO    
+!    if (NDBUG < 2) print *,'SWSPCTRL after 2'
+
+!-- Delta scaling for clear-sky / aerosol optical quantities
+    DO  JK=1,KLEV
+      ZF=ZGCC(JK)*ZGCC(JK)
+      ZWF=ZOMCC(JK)*ZF
+      ZTAUC(JK)=(1._JPRB-ZWF)*ZTAUC(JK)
+      ZOMCC(JK)=(ZOMCC(JK)-ZWF)/(1.0_JPRB-ZWF)
+      ZGCC (JK)=(ZGCC(JK)-ZF)/(1.0_JPRB-ZF)
+    ENDDO
+   
+    CALL SRTM_REFTRA ( KLEV, I_KMODTS ,&
+     &   LLRTCHK, ZGCC  , PRMU0, ZTAUC , ZOMCC ,&
+     &   ZREFC  , ZREFDC, ZTRAC, ZTRADC )  
+!    if (NDBUG < 2) print *,'SWSPCTR after SWREFTRA for clear-sky'
+    
+!-- Delta scaling for cloudy quantities
+    DO JK=1,KLEV
+      IKL=KLEV+1-JK
+      LLRTCHK(JK)=.FALSE.
+      ZF=ZGCO(JK)*ZGCO(JK)
+      ZWF=ZOMCO(JK)*ZF
+      ZTAUO(JK)=(1._JPRB-ZWF)*ZTAUO(JK)
+      ZOMCO(JK)=(ZOMCO(JK)-ZWF)/(1._JPRB-ZWF)
+      ZGCO (JK)=(ZGCO(JK)-ZF)/(1._JPRB-ZF)
+      LLRTCHK(JK)=(PFRCL(IW,IKL) > REPCLC)
+
+!      if (NDBUG < 2) THEN 
+!        print 9003,JK,LRTCHK(JK),PFRCL(IW,IKL),ZTAUO(JK),ZOMCO(JK),ZGCO(JK) &
+!          &,PTAUC(IKL,IW),POMGC(IKL,IW),PASYC(IKL,IW)
+      9003    format(1x,'totalD:',I3,L4,7(1x,E13.6))
+!      end if
+
+    ENDDO
+!    if (NDBUG < 2) print *,'SWSPCTR after Delta scaling'
+    
+    CALL SRTM_REFTRA ( KLEV, I_KMODTS ,&
+     &   LLRTCHK, ZGCO  , PRMU0, ZTAUO , ZOMCO ,&
+     &   ZREFO , ZREFDO, ZTRAO, ZTRADO )  
+!    if (NDBUG < 2) print *,'SWSPCTR after SWREFTRA for cloudy'
+
+    DO JK=1,KLEV
+
+!-- combine clear and cloudy contributions for total sky
+
+      IKL=KLEV+1-JK 
+      ZCLEAR   = 1.0_JPRB - PFRCL(IW,IKL)
+      ZCLOUD   = PFRCL(IW,IKL)
+
+      ZREF(JK) = ZCLEAR*ZREFC(JK) + ZCLOUD*ZREFO(JK)
+      ZREFD(JK)= ZCLEAR*ZREFDC(JK)+ ZCLOUD*ZREFDO(JK)
+      ZTRA(JK) = ZCLEAR*ZTRAC(JK) + ZCLOUD*ZTRAO(JK)
+      ZTRAD(JK)= ZCLEAR*ZTRADC(JK)+ ZCLOUD*ZTRADO(JK)
+
+!-- direct beam transmittance        
+      ZARG1      = MIN( 200._JPRB, ZTAUC(JK)/PRMU0 )
+      ZARG2      = MIN( 200._JPRB, ZTAUO(JK)/PRMU0 )
+!      if (PRMU0 <= 0.05_JPRB ) THEN
+!        print 9198,JB,IW,JK,PRMU0,ZTAUC(JK),ZTAUO(JK),PTAUC(IKL,IW),ZARG1,ZARG2,ZCLEAR,ZCLOUD,ZTDBT(JK),PFRCL(IW,IKL)
+9198    format(1x,'Dbg:',3I4,10E13.6)
+!        print 9198,KPT,JB,IW,JK,ZTAUC(JK),ZTAUO(JK),ZARG1,ZARG2,ZCLEAR,ZCLOUD,ZTDBT(JK),PFRCL(IW,IKL)
+!9198    format(1x,'Dbg:',4I4,9E13.6)
+!      endif
+      ZDBTMC     = EXP(-ZARG1 )
+      ZDBTMO     = EXP(-ZARG2 )
+      ZDBT(JK)   = ZCLEAR*ZDBTMC+ZCLOUD*ZDBTMO
+      ZTDBT(JK+1)= ZDBT(JK)*ZTDBT(JK)
+        
+!-- clear-sky        
+      ZDBTC(JK)   =ZDBTMC
+      ZTDBTC(JK+1)=ZDBTC(JK)*ZTDBTC(JK)
+
+      
+      IF (PRMU0 <= 0.05_JPRB) THEN
+!      if (NDBUG < 2) print 9200,JK,ZREFC(JK),ZREFDC(JK),ZTRAC(JK),ZTRADC(JK),ZDBTC(JK),ZTDBTC(JK+1)
+!      if (NDBUG < 2) print 9199,JK,ZREF(JK),ZREFD(JK),ZTRA(JK),ZTRAD(JK),ZDBT(JK),ZTDBT(JK+1)
+!        print 9200,JK,ZREFC(JK),ZREFDC(JK),ZTRAC(JK),ZTRADC(JK),ZDBTC(JK),ZTDBTC(JK+1),ZCLEAR,ZCLOUD,PRMU0
+!        print 9199,JK,ZREF (JK),ZREFD (JK),ZTRA (JK),ZTRAD (JK),ZDBT (JK),ZTDBT (JK+1),ZTAUC(JK),ZTAUO(JK)
+      ENDIF
+      9199  format(1x,'Comb total:',I3,9E13.6)
+      9200  format(1x,'Comb clear:',I3,9E13.6)
+
+    ENDDO           
+!    if (NDBUG < 2) print *,'SRTM_SPCVRT after combining clear and cloudy'
+                 
+!-- vertical quadrature producing clear-sky fluxes
+
+!    print *,'SRTM_SPCVRT after 3 before SRTM_VRTQDR clear'
+    
+    CALL SRTM_VRTQDR ( KLEV, IW ,&
+     &   ZREFC, ZREFDC, ZTRAC , ZTRADC ,&
+     &   ZDBTC, ZRDNDC, ZRUPC , ZRUPDC, ZTDBTC ,&
+     &   ZCD  , ZCU   )  
+      
+!    IF (NDBUG < 2) THEN
+!      print *,'SRTM_SPCVRT out of SRTM_VRTQDR for clear IW=',IW  
+!      DO JK=1,KLEV+1
+!        print 9201,JK,ZCD(JK,IW),ZCU(JK,IW)
+    9201    format(1x,'clear-sky contrib to fluxes',I3,2F12.4)
+!      ENDDO      
+!    ENDIF
+
+!-- vertical quadrature producing cloudy fluxes
+
+!    print *,'SRTM_SPCVRT after 4 before SRTM_VRTQDR cloudy'
+    
+    CALL SRTM_VRTQDR ( KLEV, IW ,&
+     &   ZREF , ZREFD , ZTRA , ZTRAD ,&
+     &   ZDBT , ZRDND , ZRUP , ZRUPD , ZTDBT ,&
+     &   ZFD  , ZFU   )  
+ 
+!    IF (NDBUG < 2) THEN     
+!      print *,'SRTM_SPCVRT out of SRTM_VRTQDR for cloudy IW=',IW
+!      DO JK=1,KLEV+1
+!        print 9202,JK,ZFD(JK,IW),ZFU(JK,IW)
+    9202    format(1x,'cloudy sky contrib to fluxes',I3,2F12.4)
+!      ENDDO      
+!    ENDIF
+
+!-- up and down-welling fluxes at levels
+    DO JK=1,KLEV+1
+!-- accumulation of spectral fluxes          
+      PBBFU(JK) = PBBFU(JK) + ZINCFLX(IW)*ZFU(JK,IW)
+      PBBFD(JK) = PBBFD(JK) + ZINCFLX(IW)*ZFD(JK,IW)
+      PBBCU(JK) = PBBCU(JK) + ZINCFLX(IW)*ZCU(JK,IW)
+      PBBCD(JK) = PBBCD(JK) + ZINCFLX(IW)*ZCD(JK,IW)
+
+! to get NIR, visible and UV quantities
+
+!      PBBFU(JK)=PBBFU(JK)+RWGT(IW)*ZFU(JK,IW)
+!      PBBFD(JK)=PBBFD(JK)+RWGT(IW)*ZFD(JK,IW)
+!      PBBCU(JK)=PBBCU(JK)+RWGT(IW)*ZCU(JK,IW)
+!      PBBCD(JK)=PBBCD(JK)+RWGT(IW)*ZCD(JK,IW)
+!      IF (IW <= NUV) THEN
+!        PUVFD(JK)=PUVFD(JK)+RWGT(IW)*ZFD(JK,IW)
+!        PUVFU(JK)=PUVFU(JK)+RWGT(IW)*ZFU(JK,IW)
+!        PUVCD(JK)=PUVCD(JK)+RWGT(IW)*ZCD(JK,IW)
+!        PUVCU(JK)=PUVCU(JK)+RWGT(IW)*ZCU(JK,IW)
+!      ELSE IF (IW == NUV+1 .AND. IW <= NVS) THEN  
+!        PVSFD(JK)=PVSFD(JK)+RWGT(IW)*ZFD(JK,IW)
+!        PVSFU(JK)=PVSFU(JK)+RWGT(IW)*ZFU(JK,IW)
+!        PVSCD(JK)=PVSCD(JK)+RWGT(IW)*ZCD(JK,IW)
+!        PVSCU(JK)=PVSCU(JK)+RWGT(IW)*ZCU(JK,IW)
+!      ELSE IF (IW > NVS) THEN  
+!        PNIFD(JK)=PNIFD(JK)+RWGT(IW)*ZFD(JK,IW)
+!        PNIFU(JK)=PNIFU(JK)+RWGT(IW)*ZFU(JK,IW)
+!        PNICD(JK)=PNICD(JK)+RWGT(IW)*ZCD(JK,IW)
+!        PNICU(JK)=PNICU(JK)+RWGT(IW)*ZCU(JK,IW)
+!      ENDIF  
+!      if (NDBUG < 2) then
+!!      if (JG.EQ.IGT) THEN 
+!           print 9206,JB,JG,JK,IW,PBBCU(JK),PBBCD(JK),PBBFU(JK),PBBFD(JK)
+      9206      format(1x,'fluxes up to:',3I3,I4,6E13.6)       
+!      end if
+    ENDDO
+
+!    if (NDBUG < 2) print *,'SRTM_SPCVRT end of JG=',JG,' for JB=',JB,' i.e. IW=',IW
+  ENDDO             
+!-- end loop on JG
+
+!  print *,' --- JB= ',JB,' with IB1, IB2= ',IB1,IB2
+ENDDO                    
+!-- end loop on JB
+!if (NDBUG < 2) print *,'SRTM_SPCVRT about to come out'
+!print *,'SRTM_SPCVRT about to come out'
+
+!DO IBM=1,14
+!  print 9301,IBM,ZINCF14(IBM), ZINCTOT, ZINCF14(IBM)/ZINCTOT
+9301 format(1x,'Incident Spectral Flux: ',I3,2E15.8,F12.8)
+!ENDDO
+
+!     ------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_SPCVRT_MCICA',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_SPCVRT_MCICA
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_spcvrt_mcica.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_spcvrt_mcica.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_spcvrt_mcica.intfb.h	(revision 1989)
@@ -0,0 +1,66 @@
+INTERFACE
+SUBROUTINE SRTM_SPCVRT_MCICA&
+ & ( KLEV , KMOL , KSW , KCOLS , PONEMINUS,&
+ & PAVEL , PTAVEL , PZ , PTZ , PTBOUND , PALBD , PALBP,&
+ & PFRCL , PTAUC , PASYC , POMGC , PTAUA , PASYA , POMGA , PRMU0,&
+ & PCOLDRY , PWKL,&
+ & KLAYTROP, KLAYSWTCH, KLAYLOW ,&
+ & PCO2MULT, PCOLCH4 , PCOLCO2 , PCOLH2O , PCOLMOL , PCOLN2O , PCOLO2 , PCOLO3 ,&
+ & PFORFAC , PFORFRAC , KINDFOR , PSELFFAC, PSELFFRAC, KINDSELF ,&
+ & PFAC00 , PFAC01 , PFAC10 , PFAC11 ,&
+ & KJP , KJT , KJT1 ,&
+ & PBBFD, PBBFU, PBBCD, PBBCU ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARSRTM , ONLY : JPLAY, JPB1, JPB2, JPGPT
+INTEGER(KIND=JPIM),INTENT(IN) :: KSW
+INTEGER(KIND=JPIM),INTENT(IN) :: KCOLS
+INTEGER(KIND=JPIM) :: KLEV
+INTEGER(KIND=JPIM) :: KMOL
+REAL(KIND=JPRB) :: PONEMINUS
+REAL(KIND=JPRB) :: PAVEL(JPLAY)
+REAL(KIND=JPRB) :: PTAVEL(JPLAY)
+REAL(KIND=JPRB) :: PZ(0:JPLAY)
+REAL(KIND=JPRB) :: PTZ(0:JPLAY)
+REAL(KIND=JPRB) :: PTBOUND
+REAL(KIND=JPRB) ,INTENT(IN) :: PALBD(KSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: PALBP(KSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: PFRCL(KCOLS,JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTAUC(JPLAY,KCOLS)
+REAL(KIND=JPRB) ,INTENT(IN) :: PASYC(JPLAY,KCOLS)
+REAL(KIND=JPRB) ,INTENT(IN) :: POMGC(JPLAY,KCOLS)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTAUA(JPLAY,KSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: PASYA(JPLAY,KSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: POMGA(JPLAY,KSW)
+REAL(KIND=JPRB) :: PRMU0
+REAL(KIND=JPRB) :: PCOLDRY(JPLAY)
+REAL(KIND=JPRB) :: PWKL(35,JPLAY)
+INTEGER(KIND=JPIM) :: KLAYTROP
+INTEGER(KIND=JPIM) :: KLAYSWTCH
+INTEGER(KIND=JPIM) :: KLAYLOW
+REAL(KIND=JPRB) :: PCO2MULT(JPLAY)
+REAL(KIND=JPRB) :: PCOLCH4(JPLAY)
+REAL(KIND=JPRB) :: PCOLCO2(JPLAY)
+REAL(KIND=JPRB) :: PCOLH2O(JPLAY)
+REAL(KIND=JPRB) :: PCOLMOL(JPLAY)
+REAL(KIND=JPRB) :: PCOLN2O(JPLAY)
+REAL(KIND=JPRB) :: PCOLO2(JPLAY)
+REAL(KIND=JPRB) :: PCOLO3(JPLAY)
+REAL(KIND=JPRB) :: PFORFAC(JPLAY)
+REAL(KIND=JPRB) :: PFORFRAC(JPLAY)
+INTEGER(KIND=JPIM) :: KINDFOR(JPLAY)
+REAL(KIND=JPRB) :: PSELFFAC(JPLAY)
+REAL(KIND=JPRB) :: PSELFFRAC(JPLAY)
+INTEGER(KIND=JPIM) :: KINDSELF(JPLAY)
+REAL(KIND=JPRB) :: PFAC00(JPLAY)
+REAL(KIND=JPRB) :: PFAC01(JPLAY)
+REAL(KIND=JPRB) :: PFAC10(JPLAY)
+REAL(KIND=JPRB) :: PFAC11(JPLAY)
+INTEGER(KIND=JPIM) :: KJP(JPLAY)
+INTEGER(KIND=JPIM) :: KJT(JPLAY)
+INTEGER(KIND=JPIM) :: KJT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PBBFD(JPLAY+1)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PBBFU(JPLAY+1)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PBBCD(JPLAY+1)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PBBCU(JPLAY+1)
+END SUBROUTINE SRTM_SPCVRT_MCICA
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_srtm_224gp.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_srtm_224gp.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_srtm_224gp.F90	(revision 1989)
@@ -0,0 +1,389 @@
+SUBROUTINE SRTM_SRTM_224GP &
+ & ( KIDIA , KFDIA  , KLON  , KLEV  , KSW , KOVLP ,&
+ &   PAER  , PALBD  , PALBP , PAPH  , PAP ,&
+ &   PTS   , PTH    , PT    ,&
+ &   PQ    , PCCO2  , POZN  , PRMU0 ,&
+ &   PFRCL , PTAUC  , PASYC , POMGC ,&
+ &   PALBT , PFSUX  , PFSUC &
+ & )  
+
+!-- interface to RRTM_SW
+!     JJMorcrette 030225
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARSRTM  , ONLY : JPLAY
+USE YOERDI   , ONLY : RCH4   , RN2O   
+USE YOERAD   , ONLY : NAER
+USE YOESRTAER, ONLY : RSRTAUA, RSRPIZA, RSRASYA
+USE YOMPHY3  , ONLY : RII0
+USE YOMCST   , ONLY : RI0 
+
+IMPLICIT NONE
+
+!-- Input arguments
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLON 
+INTEGER(KIND=JPIM)               :: KLEV! UNDETERMINED INTENT 
+INTEGER(KIND=JPIM)               :: KSW! UNDETERMINED INTENT 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KIDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KOVLP 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PAER(KLON,6,KLEV)    ! top to bottom
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PALBD(KLON,KSW) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PALBP(KLON,KSW) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PAPH(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PAP(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTS(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTH(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PT(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PQ(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCCO2 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: POZN(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PRMU0(KLON)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PFRCL(KLON,KLEV)     ! bottom to top
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAUC(KLON,KSW,KLEV) ! bottom to top
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PASYC(KLON,KSW,KLEV) ! bottom to top
+REAL(KIND=JPRB)   ,INTENT(IN)    :: POMGC(KLON,KSW,KLEV) ! bottom to top
+REAL(KIND=JPRB)                  :: PALBT(KLON,KSW) ! Argument NOT used
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFSUX(KLON,2,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFSUC(KLON,2,KLEV+1) 
+!INTEGER_M :: KMOL, KCLDATM, KNFLAG, KCEFLAG, KIQFLAG, KSTR  
+
+!-- Output arguments
+
+!-----------------------------------------------------------------------
+
+!-- dummy integers
+
+INTEGER(KIND=JPIM) :: ICLDATM, INFLAG, ICEFLAG, I_LIQFLAG, I_NMOL, I_NSTR
+
+INTEGER(KIND=JPIM) :: IK, IMOL, J1, J2, JAE, JL, JK, JSW
+
+!-- dummy reals
+
+REAL(KIND=JPRB) :: Z_PZ(0:JPLAY)   , Z_TZ(0:JPLAY)   , Z_PAVEL(JPLAY)  , Z_TAVEL(JPLAY)
+REAL(KIND=JPRB) :: Z_COLDRY(JPLAY) , Z_COLMOL(JPLAY) , Z_WKL(35,JPLAY)
+REAL(KIND=JPRB) :: Z_CO2MULT(JPLAY), Z_COLCH4(JPLAY) , Z_COLCO2(JPLAY) , Z_COLH2O(JPLAY)
+REAL(KIND=JPRB) :: Z_COLN2O(JPLAY) , Z_COLO2(JPLAY)  , Z_COLO3(JPLAY)
+REAL(KIND=JPRB) :: Z_FORFAC(JPLAY) , Z_FORFRAC(JPLAY), Z_SELFFAC(JPLAY), Z_SELFFRAC(JPLAY)
+REAL(KIND=JPRB) :: Z_FAC00(JPLAY)  , Z_FAC01(JPLAY)  , Z_FAC10(JPLAY)  , Z_FAC11(JPLAY)
+REAL(KIND=JPRB) :: Z_TBOUND        , Z_ONEMINUS    , ZRMU0 , ZADJI0
+REAL(KIND=JPRB) :: ZALBD(KSW)    , ZALBP(KSW)    , ZFRCL(JPLAY)
+REAL(KIND=JPRB) :: ZTAUC(JPLAY,KSW), ZASYC(JPLAY,KSW), ZOMGC(JPLAY,KSW)
+REAL(KIND=JPRB) :: ZTAUA(JPLAY,KSW), ZASYA(JPLAY,KSW), ZOMGA(JPLAY,KSW)
+
+REAL(KIND=JPRB) :: ZBBCD(JPLAY+1), ZBBCU(JPLAY+1), ZBBFD(JPLAY+1), ZBBFU(JPLAY+1)
+REAL(KIND=JPRB) :: ZUVCD(JPLAY+1), ZUVCU(JPLAY+1), ZUVFD(JPLAY+1), ZUVFU(JPLAY+1)
+REAL(KIND=JPRB) :: ZVSCD(JPLAY+1), ZVSCU(JPLAY+1), ZVSFD(JPLAY+1), ZVSFU(JPLAY+1)
+REAL(KIND=JPRB) :: ZNICD(JPLAY+1), ZNICU(JPLAY+1), ZNIFD(JPLAY+1), ZNIFU(JPLAY+1)
+
+INTEGER(KIND=JPIM) :: I_LAYTROP, I_LAYSWTCH, I_LAYLOW
+INTEGER(KIND=JPIM) :: INDFOR(JPLAY), INDSELF(JPLAY)
+INTEGER(KIND=JPIM) :: JP(JPLAY), JT(JPLAY), JT1(JPLAY)
+
+REAL(KIND=JPRB) :: Z_AMD                  ! Effective molecular weight of dry air (g/mol)
+REAL(KIND=JPRB) :: Z_AMW                  ! Molecular weight of water vapor (g/mol)
+REAL(KIND=JPRB) :: Z_AMCO2                ! Molecular weight of carbon dioxide (g/mol)
+REAL(KIND=JPRB) :: Z_AMO                  ! Molecular weight of ozone (g/mol)
+REAL(KIND=JPRB) :: Z_AMCH4                ! Molecular weight of methane (g/mol)
+REAL(KIND=JPRB) :: Z_AMN2O                ! Molecular weight of nitrous oxide (g/mol)
+REAL(KIND=JPRB) :: Z_AMC11                ! Molecular weight of CFC11 (g/mol) - CFCL3
+REAL(KIND=JPRB) :: Z_AMC12                ! Molecular weight of CFC12 (g/mol) - CF2CL2
+REAL(KIND=JPRB) :: Z_AVGDRO               ! Avogadro's number (molecules/mole)
+REAL(KIND=JPRB) :: Z_GRAVIT               ! Gravitational acceleration (cm/sec2)
+REAL(KIND=JPRB) :: Z_AMM
+
+! Atomic weights for conversion from mass to volume mixing ratios; these
+!  are the same values used in ECRT to assure accurate conversion to vmr
+data Z_AMD   /  28.970_JPRB    /
+data Z_AMW   /  18.0154_JPRB   /
+data Z_AMCO2 /  44.011_JPRB    /
+data Z_AMO   /  47.9982_JPRB   /
+data Z_AMCH4 /  16.043_JPRB    /
+data Z_AMN2O /  44.013_JPRB    /
+data Z_AMC11 / 137.3686_JPRB   /
+data Z_AMC12 / 120.9140_JPRB   /
+data Z_AVGDRO/ 6.02214E23_JPRB /
+data Z_GRAVIT/ 9.80665E02_JPRB /
+
+REAL(KIND=JPRB) :: ZCLEAR, ZCLOUD, ZEPSEC, ZTOTCC
+
+INTEGER(KIND=JPIM) :: IOVLP
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+
+#include "srtm_setcoef.intfb.h"
+#include "srtm_spcvrt.intfb.h"
+
+
+!-----------------------------------------------------------------------
+!-- calculate information needed ny the radiative transfer routine 
+
+IF (LHOOK) CALL DR_HOOK('SRTM_SRTM_224GP',0,ZHOOK_HANDLE)
+ZEPSEC  = 1.E-06_JPRB
+Z_ONEMINUS=1.0_JPRB -  ZEPSEC
+ZADJI0 = RII0 / RI0
+!-- overlap: 1=max-ran, 2=maximum, 3=random
+IOVLP=3
+
+!print *,'Entering srtm_srtm_224gp'
+
+ICLDATM = 1
+INFLAG    = 2
+ICEFLAG    = 3
+I_LIQFLAG = 1
+I_NMOL    = 6
+I_NSTR    = 2
+
+DO JL = KIDIA, KFDIA
+  ZRMU0=PRMU0(JL)
+  IF (ZRMU0 > 0.0_JPRB) THEN
+
+!- coefficients related to the cloud optical properties (original RRTM_SW)
+
+!  print *,'just before SRTM_CLDPROP'
+
+!  DO JK=1,KLEV 
+!    CLDFRAC(JK) = PFRCL (JL,JK)
+!    CLDDAT1(JK) = PSCLA1(JL,JK)
+!    CLDDAT2(JK) = PSCLA2(JL,JK)
+!    CLDDAT3(JK) = PSCLA3(JL,JK)
+!    CLDDAT4(JK) = PSCLA4(JL,JK)
+!    DO JMOM=0,16
+!      CLDDATMOM(JMOM,JK)=PSCLMOM(JL,JMOM,JK)
+!    ENDDO
+!    print 9101,JK,CLDFRAC(JK),CLDDAT1(JK),CLDDAT2(JK),CLDDAT3(JK)&
+!    &,CLDDAT4(JK),(CLDDATMOM(JMOM,JK),JMOM=0,NSTR)
+    9101 format(1x,'srtm_srtm_224gp Cld :',I3,f7.4,7E12.5)
+!  ENDDO
+
+!  CALL SRTM_CLDPROP &
+!    &( KLEV, ICLDATM, INFLAG, ICEFLAG, LIQFLAG, NSTR &
+!    &, CLDFRAC, CLDDAT1, CLDDAT2, CLDDAT3, CLDDAT4, CLDDATMOM &
+!    &, TAUCLDORIG, TAUCLOUD, SSACLOUD, XMOM &
+!    &)
+
+!- coefficients for the temperature and pressure dependence of the 
+! molecular absorption coefficients
+
+    DO J1=1,35
+      DO J2=1,KLEV
+        Z_WKL(J1,J2)=0.0_JPRB 
+      ENDDO
+    ENDDO
+
+    Z_TBOUND=PTS(JL)
+    Z_PZ(0) = paph(JL,klev+1)/100._JPRB
+    Z_TZ(0) = pth (JL,klev+1)
+
+    ZCLEAR=1.0_JPRB
+    ZCLOUD=0.0_JPRB
+    ZTOTCC=0.0_JPRB
+    DO JK = 1, KLEV
+      Z_PAVEL(JK) = pap(JL,KLEV-JK+1) /100._JPRB
+      Z_TAVEL(JK) = pt (JL,KLEV-JK+1)
+      Z_PZ(JK)    = paph(JL,KLEV-JK+1)/100._JPRB
+      Z_TZ(JK)    = pth (JL,KLEV-JK+1)
+      Z_WKL(1,JK) = pq(JL,KLEV-JK+1)  *Z_AMD/Z_AMW
+      Z_WKL(2,JK) = pcco2             *Z_AMD/Z_AMCO2
+      Z_WKL(3,JK) = pozn(JL,KLEV-JK+1)*Z_AMD/Z_AMO
+      Z_WKL(4,JK) = rn2o              *Z_AMD/Z_AMN2O
+      Z_WKL(6,JK) = rch4              *Z_AMD/Z_AMCH4
+      Z_AMM = (1-Z_WKL(1,JK))*Z_AMD + Z_WKL(1,JK)*Z_AMW
+      Z_COLDRY(JK) = (Z_PZ(JK-1)-Z_PZ(JK))*1.E3_JPRB*Z_AVGDRO/(Z_GRAVIT*Z_AMM*(1+Z_WKL(1,JK)))
+!    print 9200,JK,PAVEL(JK),TAVEL(JK),(WKL(JA,JK),JA=1,4),WKL(6,JK),COLDRY(JK)
+      9200 format(1x,'SRTM ',I3,2F7.1,6E13.5)
+
+      IF (KOVLP == 1) THEN
+        ZCLEAR=ZCLEAR*(1.0_JPRB-MAX(PFRCL(JL,JK),ZCLOUD)) &
+         & /(1.0_JPRB-MIN(ZCLOUD,1.0_JPRB-ZEPSEC))  
+        ZCLOUD=PFRCL(JL,JK)
+        ZTOTCC=1.0_JPRB-ZCLEAR
+      ELSEIF (KOVLP == 2) THEN
+        ZCLOUD=MAX(ZCLOUD,PFRCL(JL,JK))
+        ZCLEAR=1.0_JPRB-ZCLOUD
+        ZTOTCC=ZCLOUD
+      ELSEIF (KOVLP == 3) THEN
+        ZCLEAR=ZCLEAR*(1.0_JPRB-PFRCL(JL,JK))
+        ZCLOUD=1.0_JPRB-ZCLEAR
+        ZTOTCC=ZCLOUD
+      ENDIF
+
+    ENDDO
+
+!  print *,'ZTOTCC ZCLEAR : ',ZTOTCC,' ',ZCLEAR
+
+    DO IMOL=1,I_NMOL
+      DO JK=1,KLEV
+        Z_WKL(IMOL,JK)=Z_COLDRY(JK)* Z_WKL(IMOL,JK)
+      ENDDO
+    ENDDO
+
+!    IF (ZTOTCC == 0.0_JPRB) THEN
+!      DO JK=1,KLEV
+!        ZFRCL(JK)=0.0_JPRB   
+!      ENDDO
+!    ELSE
+!      DO JK=1,KLEV
+!        ZFRCL(JK)=PFRCL(JL,JK)/ZTOTCC
+!      ENDDO
+!    ENDIF
+
+!  print *,'just before SRTM_SETCOEF'
+
+    ZFRCL(1:KLEV)=PFRCL(JL,1:KLEV)
+    ZCLEAR=0._JPRB
+    ZCLOUD=1._JPRB
+
+    CALL SRTM_SETCOEF &
+     & ( KLEV   , I_NMOL,&
+     & Z_PAVEL  , Z_TAVEL   , Z_PZ     , Z_TZ     , Z_TBOUND,&
+     & Z_COLDRY , Z_WKL,&
+     & I_LAYTROP, I_LAYSWTCH, I_LAYLOW,&
+     & Z_CO2MULT, Z_COLCH4  , Z_COLCO2 , Z_COLH2O , Z_COLMOL  , Z_COLN2O  , Z_COLO2 , Z_COLO3,&
+     & Z_FORFAC , Z_FORFRAC , INDFOR , Z_SELFFAC, Z_SELFFRAC, INDSELF,&
+     & Z_FAC00  , Z_FAC01   , Z_FAC10  , Z_FAC11,&
+     & JP     , JT      , JT1     &
+     & )  
+  
+!  print *,'just after SRTM_SETCOEF'
+
+!- call the radiation transfer routine
+  
+    DO JSW=1,KSW
+      ZALBD(JSW)=PALBD(JL,JSW)
+      ZALBP(JSW)=PALBP(JL,JSW)
+      DO JK=1,KLEV
+        ZTAUC(JK,JSW) = PTAUC(JL,JSW,JK)
+        ZASYC(JK,JSW) = PASYC(JL,JSW,JK)
+        ZOMGC(JK,JSW) = POMGC(JL,JSW,JK)
+!      print 9002,JSW,JK,ZFRCL(JK),ZTAUC(JK,JSW),ZASYC(JK,JSW),ZOMGC(JK,JSW)
+        9002  format(1x,'srtm_224gp ClOPropECmodel ',2I3,f8.4,3E12.5)
+      ENDDO
+    ENDDO
+
+!- mixing of aerosols
+ 
+!  print *,'Aerosol optical properties computations'
+!  DO JSW=1,KSW
+!    print 9012,JSW,(JAE,RSRTAUA(JSW,JAE),RSRPIZA(JSW,JAE),RSRASYA(JSW,JAE),JAE=1,6)
+    9012 format(I3,(/,I3,3E13.5))
+!  ENDDO
+
+!  DO JK=1,KLEV
+!    print 9013,JK,(PAER(JL,JAE,JK),JAE=1,6)
+    9013 format(1x,I3,6E12.5)
+!  ENDDO
+
+    IF (NAER == 0) THEN
+      DO JSW=1,KSW
+        DO JK=1,KLEV
+          ZTAUA(JK,JSW)= 0.0_JPRB
+          ZASYA(JK,JSW)= 0.0_JPRB
+          ZOMGA(JK,JSW)= 1.0_JPRB
+        ENDDO
+      ENDDO
+    ELSE
+      DO JSW=1,KSW
+        DO JK=1,KLEV
+          IK=KLEV+1-JK
+          ZTAUA(JK,JSW)=0.0_JPRB
+          ZASYA(JK,JSW)=0.0_JPRB
+          ZOMGA(JK,JSW)=0.0_JPRB
+          DO JAE=1,6
+            ZTAUA(JK,JSW)=ZTAUA(JK,JSW)+RSRTAUA(JSW,JAE)*PAER(JL,JAE,IK)
+            ZOMGA(JK,JSW)=ZOMGA(JK,JSW)+RSRTAUA(JSW,JAE)*PAER(JL,JAE,IK) &
+             & *RSRPIZA(JSW,JAE)  
+            ZASYA(JK,JSW)=ZASYA(JK,JSW)+RSRTAUA(JSW,JAE)*PAER(JL,JAE,IK) &
+             & *RSRPIZA(JSW,JAE)*RSRASYA(JSW,JAE)  
+          ENDDO
+          IF (ZOMGA(JK,JSW) /= 0.0_JPRB) THEN
+            ZASYA(JK,JSW)=ZASYA(JK,JSW)/ZOMGA(JK,JSW)
+          ENDIF
+          IF (ZTAUA(JK,JSW) /= 0.0_JPRB) THEN
+            ZOMGA(JK,JSW)=ZOMGA(JK,JSW)/ZTAUA(JK,JSW)
+          ENDIF
+!      print 9003,JSW,JK,ZTAUA(JK,JSW),ZOMGA(JK,JSW),ZASYA(JK,JSW)
+9003  format(1x,'Aerosols ',2I3,3F10.4)
+        ENDDO
+      ENDDO
+    ENDIF
+
+    DO JK=1,KLEV+1
+      ZBBCU(JK)=0.0_JPRB
+      ZBBCD(JK)=0.0_JPRB
+      ZBBFU(JK)=0.0_JPRB
+      ZBBFD(JK)=0.0_JPRB
+      ZUVCU(JK)=0.0_JPRB
+      ZUVCD(JK)=0.0_JPRB
+      ZUVFU(JK)=0.0_JPRB
+      ZUVFD(JK)=0.0_JPRB
+      ZVSCU(JK)=0.0_JPRB
+      ZVSCD(JK)=0.0_JPRB
+      ZVSFU(JK)=0.0_JPRB
+      ZVSFD(JK)=0.0_JPRB
+      ZNICU(JK)=0.0_JPRB
+      ZNICD(JK)=0.0_JPRB
+      ZNIFU(JK)=0.0_JPRB
+      ZNIFD(JK)=0.0_JPRB
+    ENDDO
+
+!  print *,'just before calling STRM_SPCVRT for JL=',JL,' and ZRMU0=',ZRMU0
+
+    CALL SRTM_SPCVRT &
+     & ( KLEV   , I_NMOL    , KSW    , Z_ONEMINUS,&
+     & Z_PAVEL  , Z_TAVEL   , Z_PZ     , Z_TZ     , Z_TBOUND  , ZALBD   , ZALBP,&
+     & ZFRCL  , ZTAUC   , ZASYC  , ZOMGC  , ZTAUA   , ZASYA   , ZOMGA , ZRMU0,&
+     & Z_COLDRY , Z_WKL,&
+     & I_LAYTROP, I_LAYSWTCH, I_LAYLOW,&
+     & Z_CO2MULT, Z_COLCH4  , Z_COLCO2 , Z_COLH2O , Z_COLMOL  , Z_COLN2O  , Z_COLO2 , Z_COLO3,&
+     & Z_FORFAC , Z_FORFRAC , INDFOR , Z_SELFFAC, Z_SELFFRAC, INDSELF,&
+     & Z_FAC00  , Z_FAC01   , Z_FAC10  , Z_FAC11,&
+     & JP     , JT      , JT1,&
+     & ZBBFD  , ZBBFU   , ZUVFD  , ZUVFU  , ZVSFD   , ZVSFU   , ZNIFD , ZNIFU,&
+     & ZBBCD  , ZBBCU   , ZUVCD  , ZUVCU  , ZVSCD   , ZVSCU   , ZNICD , ZNICU &
+     & )  
+
+!  print *,'SRTM_SRTM_224GP before potential scaling'
+!    IF (IOVLP == 3) THEN
+!      DO JK=1,KLEV+1
+!!      print 9004,JK,ZBBCU(JK),ZBBCD(JK),ZBBFU(JK),ZBBFD(JK)
+        9004 format(1x,'Clear-sky and total fluxes U & D ',I3,4F10.3)
+!        PFSUC(JL,1,JK)=ZBBCU(JK)
+!        PFSUC(JL,2,JK)=ZBBCD(JK)
+!        PFSUX(JL,1,JK)=ZBBFU(JK)
+!        PFSUX(JL,2,JK)=ZBBFD(JK)
+!      ENDDO
+!    ELSE
+!    print *,'SRTM_SRTM_224GP after potential scaling'
+      DO JK=1,KLEV+1
+        PFSUC(JL,1,JK)=ZADJI0 * ZBBCU(JK)
+        PFSUC(JL,2,JK)=ZADJI0 * ZBBCD(JK)
+        PFSUX(JL,1,JK)=ZADJI0 * ( (1.0_JPRB-ZCLEAR)*ZBBFU(JK)+ZCLEAR*ZBBCU(JK) )
+        PFSUX(JL,2,JK)=ZADJI0 * ( (1.0_JPRB-ZCLEAR)*ZBBFD(JK)+ZCLEAR*ZBBCD(JK) )
+      ENDDO
+!    ENDIF
+
+!  DO JK=1,KLEV+1
+!    print 9005,JK,PFSUC(JL,1,JK),PFSUC(JL,2,JK),PFSUX(JL,1,JK),PFSUX(JL,2,JK)
+    9005 format(1x,'Clear-sky and total fluxes U & D ',I3,4F10.3)
+!  ENDDO
+  
+  ELSE
+    DO JK=1,KLEV+1
+      PFSUC(JL,1,JK)=0.0_JPRB
+      PFSUC(JL,2,JK)=0.0_JPRB
+      PFSUX(JL,1,JK)=0.0_JPRB
+      PFSUX(JL,2,JK)=0.0_JPRB
+    ENDDO
+  ENDIF
+ENDDO
+
+!PRINT *,'OUT OF SRTM_224GP'
+
+!-----------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_SRTM_224GP',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_SRTM_224GP
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_srtm_224gp.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_srtm_224gp.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_srtm_224gp.intfb.h	(revision 1989)
@@ -0,0 +1,38 @@
+INTERFACE
+SUBROUTINE SRTM_SRTM_224GP&
+ & ( KIDIA , KFDIA , KLON , KLEV , KSW , KOVLP ,&
+ & PAER , PALBD , PALBP , PAPH , PAP ,&
+ & PTS , PTH , PT ,&
+ & PQ , PCCO2 , POZN , PRMU0 ,&
+ & PFRCL , PTAUC , PASYC , POMGC ,&
+ & PALBT , PFSUX , PFSUC&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARSRTM , ONLY : JPLAY
+INTEGER(KIND=JPIM),INTENT(IN) :: KLON
+INTEGER(KIND=JPIM) :: KLEV
+INTEGER(KIND=JPIM) :: KSW
+INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KOVLP
+REAL(KIND=JPRB) ,INTENT(IN) :: PAER(KLON,6,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PALBD(KLON,KSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: PALBP(KLON,KSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: PAPH(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PAP(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTS(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTH(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PT(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PQ(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCCO2
+REAL(KIND=JPRB) ,INTENT(IN) :: POZN(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PRMU0(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PFRCL(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTAUC(KLON,KSW,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PASYC(KLON,KSW,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: POMGC(KLON,KSW,KLEV)
+REAL(KIND=JPRB) :: PALBT(KLON,KSW)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFSUX(KLON,2,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFSUC(KLON,2,KLEV+1)
+END SUBROUTINE SRTM_SRTM_224GP
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_srtm_224gp_mcica.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_srtm_224gp_mcica.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_srtm_224gp_mcica.F90	(revision 1989)
@@ -0,0 +1,396 @@
+SUBROUTINE SRTM_SRTM_224GP_MCICA &
+ & ( KIDIA , KFDIA  , KLON  , KLEV  , KSW , KCOLS , KCLDLY ,&
+ &   PAER  , PALBD  , PALBP , PAPH  , PAP , &
+ &   PTS   , PTH    , PT    ,&
+ &   PQ    , PCCO2  , POZN  , PRMU0 ,&
+ &   PFRCL , PTAUC  , PASYC , POMGC ,&
+ &   PFSUX , PFSUC &
+ & )  
+
+!-- interface to RRTM_SW
+!     JJMorcrette 030225
+!     JJMorcrette 20050110  McICA version
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARSRTM  , ONLY : JPLAY
+USE YOERDI   , ONLY : RCH4   , RN2O   
+USE YOERAD   , ONLY : NAER
+USE YOESRTAER, ONLY : RSRTAUA, RSRPIZA, RSRASYA
+USE YOMPHY3  , ONLY : RII0
+USE YOMCST   , ONLY : RI0 
+
+IMPLICIT NONE
+
+!-- Input arguments
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLON 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV
+INTEGER(KIND=JPIM),INTENT(IN)    :: KSW  
+INTEGER(KIND=JPIM),INTENT(IN)    :: KIDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KCOLS
+INTEGER(KIND=JPIM),INTENT(IN)    :: KCLDLY(KCOLS) 
+
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PAER(KLON,6,KLEV)    ! top to bottom
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PALBD(KLON,KSW) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PALBP(KLON,KSW) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PAPH(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PAP(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTS(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTH(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PT(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PQ(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCCO2 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: POZN(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PRMU0(KLON)
+
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PFRCL(KLON,KCOLS,KLEV) ! bottom to top
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAUC(KLON,KCOLS,KLEV) ! bottom to top
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PASYC(KLON,KCOLS,KLEV) ! bottom to top
+REAL(KIND=JPRB)   ,INTENT(IN)    :: POMGC(KLON,KCOLS,KLEV) ! bottom to top
+
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFSUX(KLON,2,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFSUC(KLON,2,KLEV+1) 
+
+!-- Output arguments
+
+!-----------------------------------------------------------------------
+
+!-- dummy integers
+
+INTEGER(KIND=JPIM) :: ICLDATM, INFLAG, ICEFLAG, I_LIQFLAG, ITMOL, I_NSTR
+
+INTEGER(KIND=JPIM) :: IK, IMOL, J1, J2, JAE, JL, JK, JSW
+
+!-- dummy reals
+
+REAL(KIND=JPRB) :: ZPZ(0:JPLAY)   , ZTZ(0:JPLAY)   , ZPAVEL(JPLAY)  , ZTAVEL(JPLAY)
+REAL(KIND=JPRB) :: ZCOLDRY(JPLAY) , ZCOLMOL(JPLAY) , ZWKL(35,JPLAY)
+REAL(KIND=JPRB) :: ZCO2MULT(JPLAY), ZCOLCH4(JPLAY) , ZCOLCO2(JPLAY) , ZCOLH2O(JPLAY)
+REAL(KIND=JPRB) :: ZCOLN2O(JPLAY) , ZCOLO2(JPLAY)  , ZCOLO3(JPLAY)
+REAL(KIND=JPRB) :: ZFORFAC(JPLAY) , ZFORFRAC(JPLAY), ZSELFFAC(JPLAY), ZSELFFRAC(JPLAY)
+REAL(KIND=JPRB) :: ZFAC00(JPLAY)  , ZFAC01(JPLAY)  , ZFAC10(JPLAY)  , ZFAC11(JPLAY)
+REAL(KIND=JPRB) :: ZTBOUND        , ZONEMINUS    , ZRMU0 , ZADJI0
+REAL(KIND=JPRB) :: ZALBD(KSW)    , ZALBP(KSW)    
+
+REAL(KIND=JPRB) :: ZFRCL(KCOLS,JPLAY), ZTAUC(JPLAY,KCOLS), ZASYC(JPLAY,KCOLS), ZOMGC(JPLAY,KCOLS)
+REAL(KIND=JPRB) :: ZTAUA(JPLAY,KSW), ZASYA(JPLAY,KSW), ZOMGA(JPLAY,KSW)
+
+REAL(KIND=JPRB) :: ZBBCD(JPLAY+1), ZBBCU(JPLAY+1), ZBBFD(JPLAY+1), ZBBFU(JPLAY+1)
+!REAL(KIND=JPRB) :: ZUVCD(JPLAY+1), ZUVCU(JPLAY+1), ZUVFD(JPLAY+1), ZUVFU(JPLAY+1)
+!REAL(KIND=JPRB) :: ZVSCD(JPLAY+1), ZVSCU(JPLAY+1), ZVSFD(JPLAY+1), ZVSFU(JPLAY+1)
+!REAL(KIND=JPRB) :: ZNICD(JPLAY+1), ZNICU(JPLAY+1), ZNIFD(JPLAY+1), ZNIFU(JPLAY+1)
+
+INTEGER(KIND=JPIM) :: ILAYTROP, ILAYSWTCH, ILAYLOW
+INTEGER(KIND=JPIM) :: INDFOR(JPLAY), INDSELF(JPLAY)
+INTEGER(KIND=JPIM) :: JP(JPLAY), JT(JPLAY), JT1(JPLAY)
+
+REAL(KIND=JPRB) :: ZAMD                  ! Effective molecular weight of dry air (g/mol)
+REAL(KIND=JPRB) :: ZAMW                  ! Molecular weight of water vapor (g/mol)
+REAL(KIND=JPRB) :: ZAMCO2                ! Molecular weight of carbon dioxide (g/mol)
+REAL(KIND=JPRB) :: ZAMO                  ! Molecular weight of ozone (g/mol)
+REAL(KIND=JPRB) :: ZAMCH4                ! Molecular weight of methane (g/mol)
+REAL(KIND=JPRB) :: ZAMN2O                ! Molecular weight of nitrous oxide (g/mol)
+REAL(KIND=JPRB) :: ZAMC11                ! Molecular weight of CFC11 (g/mol) - CFCL3
+REAL(KIND=JPRB) :: ZAMC12                ! Molecular weight of CFC12 (g/mol) - CF2CL2
+REAL(KIND=JPRB) :: ZAVGDRO               ! Avogadro's number (molecules/mole)
+REAL(KIND=JPRB) :: ZGRAVIT               ! Gravitational acceleration (cm/sec2)
+REAL(KIND=JPRB) :: ZAMM
+
+REAL(KIND=JPRB) :: RAMW                  ! Molecular weight of water vapor (g/mol)
+REAL(KIND=JPRB) :: RAMCO2                ! Molecular weight of carbon dioxide (g/mol)
+REAL(KIND=JPRB) :: RAMO                  ! Molecular weight of ozone (g/mol)
+REAL(KIND=JPRB) :: RAMCH4                ! Molecular weight of methane (g/mol)
+REAL(KIND=JPRB) :: RAMN2O                ! Molecular weight of nitrous oxide (g/mol)
+
+! Atomic weights for conversion from mass to volume mixing ratios; these
+!  are the same values used in ECRT to assure accurate conversion to vmr
+data ZAMD   /  28.970_JPRB    /
+data ZAMW   /  18.0154_JPRB   /
+data ZAMCO2 /  44.011_JPRB    /
+data ZAMO   /  47.9982_JPRB   /
+data ZAMCH4 /  16.043_JPRB    /
+data ZAMN2O /  44.013_JPRB    /
+data ZAMC11 / 137.3686_JPRB   /
+data ZAMC12 / 120.9140_JPRB   /
+data ZAVGDRO/ 6.02214E23_JPRB /
+data ZGRAVIT/ 9.80665E02_JPRB /
+data RAMW   /  0.05550_JPRB   /
+data RAMCO2 /  0.02272_JPRB   /
+data RAMO   /  0.02083_JPRB   /
+data RAMCH4 /  0.06233_JPRB    /
+data RAMN2O /  0.02272_JPRB    /
+
+
+REAL(KIND=JPRB) :: ZCLEAR, ZCLOUD, ZEPSEC, ZTOTCC
+
+INTEGER(KIND=JPIM) :: IOVLP
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+
+#include "srtm_setcoef.intfb.h"
+#include "srtm_spcvrt_mcica.intfb.h"
+
+
+!-----------------------------------------------------------------------
+!-- calculate information needed ny the radiative transfer routine 
+
+IF (LHOOK) CALL DR_HOOK('SRTM_SRTM_224GP_MCICA',0,ZHOOK_HANDLE)
+ZEPSEC  = 1.E-06_JPRB
+ZONEMINUS=1.0_JPRB -  ZEPSEC
+ZADJI0 = RII0 / RI0
+!-- overlap: 1=max-ran, 2=maximum, 3=random
+IOVLP=3
+
+!print *,'Entering srtm_srtm_224gp_mcica'
+
+ICLDATM  = 1
+INFLAG   = 2
+ICEFLAG  = 3
+I_LIQFLAG= 1
+ITMOL    = 6
+I_NSTR   = 2
+
+DO JL = KIDIA, KFDIA
+  ZRMU0=PRMU0(JL)
+  IF (ZRMU0 > 0.0_JPRB) THEN
+
+!- coefficients related to the cloud optical properties (original RRTM_SW)
+
+!  print *,'just before SRTM_CLDPROP'
+
+!  DO JK=1,KLEV 
+!    CLDFRAC(JK) = PFRCL (JL,JK)
+!    CLDDAT1(JK) = PSCLA1(JL,JK)
+!    CLDDAT2(JK) = PSCLA2(JL,JK)
+!    CLDDAT3(JK) = PSCLA3(JL,JK)
+!    CLDDAT4(JK) = PSCLA4(JL,JK)
+!    DO JMOM=0,16
+!      CLDDATMOM(JMOM,JK)=PSCLMOM(JL,JMOM,JK)
+!    ENDDO
+!    print 9101,JK,CLDFRAC(JK),CLDDAT1(JK),CLDDAT2(JK),CLDDAT3(JK)&
+!    &,CLDDAT4(JK),(CLDDATMOM(JMOM,JK),JMOM=0,NSTR)
+    9101 format(1x,'srtm_srtm_224gp Cld :',I3,f7.4,7E12.5)
+!  ENDDO
+
+!  CALL SRTM_CLDPROP &
+!    &( KLEV, ICLDATM, INFLAG, ICEFLAG, LIQFLAG, NSTR &
+!    &, CLDFRAC, CLDDAT1, CLDDAT2, CLDDAT3, CLDDAT4, CLDDATMOM &
+!    &, TAUCLDORIG, TAUCLOUD, SSACLOUD, XMOM &
+!    &)
+
+!- coefficients for the temperature and pressure dependence of the 
+! molecular absorption coefficients
+
+    DO J1=1,35
+      DO J2=1,KLEV
+        ZWKL(J1,J2)=0.0_JPRB 
+      ENDDO
+    ENDDO
+
+    ZTBOUND=PTS(JL)
+    ZPZ(0) = paph(JL,klev+1)*0.01_JPRB
+    ZTZ(0) = pth (JL,klev+1)
+
+    ZCLEAR=1.0_JPRB
+    ZCLOUD=0.0_JPRB
+    ZTOTCC=0.0_JPRB
+    DO JK = 1, KLEV
+      ZPAVEL(JK) = pap(JL,KLEV-JK+1) *0.01_JPRB
+      ZTAVEL(JK) = pt (JL,KLEV-JK+1)
+      ZPZ(JK)    = paph(JL,KLEV-JK+1) *0.01_JPRB
+      ZTZ(JK)    = pth (JL,KLEV-JK+1)
+      ZWKL(1,JK) = pq(JL,KLEV-JK+1)  *ZAMD*RAMW
+      ZWKL(2,JK) = pcco2             *ZAMD*RAMCO2
+      ZWKL(3,JK) = pozn(JL,KLEV-JK+1)*ZAMD*RAMO
+      ZWKL(4,JK) = rn2o              *ZAMD*RAMN2O
+      ZWKL(6,JK) = rch4              *ZAMD*RAMCH4
+      ZAMM = (1-ZWKL(1,JK))*ZAMD + ZWKL(1,JK)*ZAMW
+      ZCOLDRY(JK) = (ZPZ(JK-1)-ZPZ(JK))*1.E3_JPRB*ZAVGDRO/(ZGRAVIT*ZAMM*(1+ZWKL(1,JK)))
+!    print 9200,JK,PAVEL(JK),TAVEL(JK),(WKL(JA,JK),JA=1,4),WKL(6,JK),COLDRY(JK)
+      9200 format(1x,'SRTM ',I3,2F7.1,6E13.5)
+
+
+
+    ENDDO
+
+!  print *,'ZTOTCC ZCLEAR : ',ZTOTCC,' ',ZCLEAR
+
+    DO IMOL=1,ITMOL
+      DO JK=1,KLEV
+        ZWKL(IMOL,JK)=ZCOLDRY(JK)* ZWKL(IMOL,JK)
+      ENDDO
+    ENDDO
+
+!  print *,'just before SRTM_SETCOEF'
+
+    CALL SRTM_SETCOEF &
+     & ( KLEV   , ITMOL,&
+     & ZPAVEL  , ZTAVEL   , ZPZ     , ZTZ     , ZTBOUND,&
+     & ZCOLDRY , ZWKL,&
+     & ILAYTROP, ILAYSWTCH, ILAYLOW,&
+     & ZCO2MULT, ZCOLCH4  , ZCOLCO2 , ZCOLH2O , ZCOLMOL  , ZCOLN2O  , ZCOLO2 , ZCOLO3,&
+     & ZFORFAC , ZFORFRAC , INDFOR  , ZSELFFAC, ZSELFFRAC, INDSELF, &
+     & ZFAC00  , ZFAC01   , ZFAC10  , ZFAC11,&
+     & JP      , JT       , JT1     &
+     & )  
+  
+!  print *,'just after SRTM_SETCOEF'
+
+!- call the radiation transfer routine
+  
+    DO JSW=1,KSW
+      ZALBD(JSW)=PALBD(JL,JSW)
+      ZALBP(JSW)=PALBP(JL,JSW)
+    ENDDO
+
+    DO JSW=1,KCOLS
+      DO JK=1,KLEV        
+        ZFRCL(JSW,JK) = PFRCL(JL,JSW,JK)
+        ZTAUC(JK,JSW) = PTAUC(JL,JSW,JK)
+        ZASYC(JK,JSW) = PASYC(JL,JSW,JK)
+        ZOMGC(JK,JSW) = POMGC(JL,JSW,JK)
+
+!---- security: might have to be moved upstream to radlswr -------
+!        IF(ZTAUC(JK,JSW) == 0._JPRB) ZFRCL(JSW,JK) = 0._JPRB
+!-----------------------------------------------------------------
+
+
+!       IF (ZFRCL(JSW,JK) /= 0._JPRB) THEN
+!          print 9002,JSW,JK,ZFRCL(JSW,JK),ZTAUC(JK,JSW),ZASYC(JK,JSW),ZOMGC(JK,JSW)
+9002      format(1x,'srtm_224gp_McICA ClOPropECmodel ',2I3,f8.4,3E12.5)
+!        ENDIF
+      ENDDO
+    ENDDO
+
+!- mixing of aerosols
+ 
+!  print *,'Aerosol optical properties computations'
+!  DO JSW=1,KSW
+!    print 9012,JSW,(JAE,RSRTAUA(JSW,JAE),RSRPIZA(JSW,JAE),RSRASYA(JSW,JAE),JAE=1,6)
+    9012 format(I3,(/,I3,3E13.5))
+!  ENDDO
+
+!  DO JK=1,KLEV
+!    print 9013,JK,(PAER(JL,JAE,JK),JAE=1,6)
+    9013 format(1x,I3,6E12.5)
+!  ENDDO
+
+    IF (NAER == 0) THEN
+      DO JSW=1,KSW
+        DO JK=1,KLEV
+          ZTAUA(JK,JSW)= 0.0_JPRB
+          ZASYA(JK,JSW)= 0.0_JPRB
+          ZOMGA(JK,JSW)= 1.0_JPRB
+        ENDDO
+      ENDDO
+    ELSE
+      DO JSW=1,KSW
+        DO JK=1,KLEV
+          IK=KLEV+1-JK
+          ZTAUA(JK,JSW)=0.0_JPRB
+          ZASYA(JK,JSW)=0.0_JPRB
+          ZOMGA(JK,JSW)=0.0_JPRB
+          DO JAE=1,6
+            ZTAUA(JK,JSW)=ZTAUA(JK,JSW)+RSRTAUA(JSW,JAE)*PAER(JL,JAE,IK)
+            ZOMGA(JK,JSW)=ZOMGA(JK,JSW)+RSRTAUA(JSW,JAE)*PAER(JL,JAE,IK) &
+             & *RSRPIZA(JSW,JAE)  
+            ZASYA(JK,JSW)=ZASYA(JK,JSW)+RSRTAUA(JSW,JAE)*PAER(JL,JAE,IK) &
+             & *RSRPIZA(JSW,JAE)*RSRASYA(JSW,JAE)  
+          ENDDO
+          IF (ZOMGA(JK,JSW) /= 0.0_JPRB) THEN
+            ZASYA(JK,JSW)=ZASYA(JK,JSW)/ZOMGA(JK,JSW)
+          ENDIF
+          IF (ZTAUA(JK,JSW) /= 0.0_JPRB) THEN
+            ZOMGA(JK,JSW)=ZOMGA(JK,JSW)/ZTAUA(JK,JSW)
+          ENDIF
+!      print 9003,JSW,JK,ZTAUA(JK,JSW),ZOMGA(JK,JSW),ZASYA(JK,JSW)
+9003  format(1x,'Aerosols ',2I3,3F10.4)
+        ENDDO
+      ENDDO
+    ENDIF
+
+    DO JK=1,KLEV+1
+      ZBBCU(JK)=0.0_JPRB
+      ZBBCD(JK)=0.0_JPRB
+      ZBBFU(JK)=0.0_JPRB
+      ZBBFD(JK)=0.0_JPRB
+!      ZUVCU(JK)=0.0_JPRB
+!      ZUVCD(JK)=0.0_JPRB
+!      ZUVFU(JK)=0.0_JPRB
+!      ZUVFD(JK)=0.0_JPRB
+!      ZVSCU(JK)=0.0_JPRB
+!      ZVSCD(JK)=0.0_JPRB
+!      ZVSFU(JK)=0.0_JPRB
+!      ZVSFD(JK)=0.0_JPRB
+!      ZNICU(JK)=0.0_JPRB
+!      ZNICD(JK)=0.0_JPRB
+!      ZNIFU(JK)=0.0_JPRB
+!      ZNIFD(JK)=0.0_JPRB
+    ENDDO
+
+!    print *,'just before calling STRM_SPCVRT for JL=',JL,' and ZRMU0=',ZRMU0
+
+    CALL SRTM_SPCVRT_MCICA &
+     &( KLEV   , ITMOL    , KSW    , KCOLS  , ZONEMINUS,&
+     & ZPAVEL  , ZTAVEL   , ZPZ    , ZTZ    , ZTBOUND , ZALBD   , ZALBP,&
+     & ZFRCL   , ZTAUC    , ZASYC  , ZOMGC  , ZTAUA   , ZASYA   , ZOMGA , ZRMU0,&
+     & ZCOLDRY , ZWKL     ,&
+     & ILAYTROP, ILAYSWTCH, ILAYLOW,&
+     & ZCO2MULT, ZCOLCH4  , ZCOLCO2, ZCOLH2O , ZCOLMOL  , ZCOLN2O, ZCOLO2 , ZCOLO3,&
+     & ZFORFAC , ZFORFRAC , INDFOR , ZSELFFAC, ZSELFFRAC, INDSELF,&
+     & ZFAC00  , ZFAC01   , ZFAC10 , ZFAC11  ,&
+     & JP      , JT       , JT1    ,&
+     & ZBBFD   , ZBBFU    , ZBBCD  , ZBBCU )
+     
+!     & ZBBFD   , ZBBFU    , ZUVFD  , ZUVFU  , ZVSFD   , ZVSFU   , ZNIFD , ZNIFU,&
+!     & ZBBCD   , ZBBCU    , ZUVCD  , ZUVCU  , ZVSCD   , ZVSCU   , ZNICD , ZNICU &
+!     & )  
+
+!  print *,'SRTM_SRTM_224GP before potential scaling'
+!    IF (IOVLP == 3) THEN
+!      DO JK=1,KLEV+1
+!!      print 9004,JK,ZBBCU(JK),ZBBCD(JK),ZBBFU(JK),ZBBFD(JK)
+        9004 format(1x,'Clear-sky and total fluxes U & D ',I3,4F10.3)
+!        PFSUC(JL,1,JK)=ZBBCU(JK)
+!        PFSUC(JL,2,JK)=ZBBCD(JK)
+!        PFSUX(JL,1,JK)=ZBBFU(JK)
+!        PFSUX(JL,2,JK)=ZBBFD(JK)
+!      ENDDO
+!    ELSE
+!    print *,'SRTM_SRTM_224GP after potential scaling'
+      DO JK=1,KLEV+1
+        PFSUC(JL,1,JK)=ZADJI0 * ZBBCU(JK)
+        PFSUC(JL,2,JK)=ZADJI0 * ZBBCD(JK)
+        PFSUX(JL,1,JK)=ZADJI0 * ( (1.0_JPRB-ZCLEAR)*ZBBFU(JK)+ZCLEAR*ZBBCU(JK) )
+        PFSUX(JL,2,JK)=ZADJI0 * ( (1.0_JPRB-ZCLEAR)*ZBBFD(JK)+ZCLEAR*ZBBCD(JK) )
+!-- for testing only
+        PFSUC(JL,1,JK)=ZADJI0 * ZBBCU(JK)
+        PFSUC(JL,2,JK)=ZADJI0 * ZBBCD(JK)
+        PFSUX(JL,1,JK)=ZADJI0 * ZBBFU(JK)
+        PFSUX(JL,2,JK)=ZADJI0 * ZBBFD(JK)
+      ENDDO
+!    ENDIF
+
+!  DO JK=1,KLEV+1
+!    print 9005,JK,PFSUC(JL,1,JK),PFSUC(JL,2,JK),PFSUX(JL,1,JK),PFSUX(JL,2,JK)
+    9005 format(1x,'Clear-sky and total fluxes U & D ',I3,4F10.3)
+!  ENDDO
+  
+  ELSE
+    DO JK=1,KLEV+1
+      PFSUC(JL,1,JK)=0.0_JPRB
+      PFSUC(JL,2,JK)=0.0_JPRB
+      PFSUX(JL,1,JK)=0.0_JPRB
+      PFSUX(JL,2,JK)=0.0_JPRB
+    ENDDO
+  ENDIF
+ENDDO
+
+!PRINT *,'OUT OF SRTM_224GP_MCICA'
+
+!-----------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_SRTM_224GP_MCICA',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_SRTM_224GP_MCICA
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_srtm_224gp_mcica.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_srtm_224gp_mcica.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_srtm_224gp_mcica.intfb.h	(revision 1989)
@@ -0,0 +1,38 @@
+INTERFACE
+SUBROUTINE SRTM_SRTM_224GP_MCICA&
+ & ( KIDIA , KFDIA , KLON , KLEV , KSW , KCOLS , KCLDLY ,&
+ & PAER , PALBD , PALBP , PAPH , PAP ,&
+ & PTS , PTH , PT ,&
+ & PQ , PCCO2 , POZN , PRMU0 ,&
+ & PFRCL , PTAUC , PASYC , POMGC ,&
+ & PFSUX , PFSUC&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARSRTM , ONLY : JPLAY
+INTEGER(KIND=JPIM),INTENT(IN) :: KLON
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+INTEGER(KIND=JPIM),INTENT(IN) :: KSW
+INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KCOLS
+INTEGER(KIND=JPIM),INTENT(IN) :: KCLDLY(KCOLS)
+REAL(KIND=JPRB) ,INTENT(IN) :: PAER(KLON,6,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PALBD(KLON,KSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: PALBP(KLON,KSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: PAPH(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PAP(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTS(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTH(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PT(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PQ(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCCO2
+REAL(KIND=JPRB) ,INTENT(IN) :: POZN(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PRMU0(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PFRCL(KLON,KCOLS,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTAUC(KLON,KCOLS,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PASYC(KLON,KCOLS,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: POMGC(KLON,KCOLS,KLEV)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFSUX(KLON,2,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFSUC(KLON,2,KLEV+1)
+END SUBROUTINE SRTM_SRTM_224GP_MCICA
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol16.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol16.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol16.F90	(revision 1989)
@@ -0,0 +1,169 @@
+SUBROUTINE SRTM_TAUMOL16 &
+ & ( KLEV,&
+ & P_FAC00   , P_FAC01   , P_FAC10   , P_FAC11,&
+ & K_JP      , K_JT      , K_JT1     , P_ONEMINUS,&
+ & P_COLH2O  , P_COLCH4  , P_COLMOL,&
+ & K_LAYTROP , P_SELFFAC , P_SELFFRAC, K_INDSELF , P_FORFAC  , P_FORFRAC, K_INDFOR,&
+ & P_SFLUXZEN, P_TAUG    , P_TAUR    &
+ & )  
+
+!     Written by Eli J. Mlawer, Atmospheric & Environmental Research.
+
+!     BAND 16:  2600-3250 cm-1 (low - H2O,CH4; high - CH4)
+
+! Modifications
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     JJMorcrette 2003-02-24 adapted to ECMWF environment
+
+!      PARAMETER (MG=16, MXLAY=203, NBANDS=14)
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARSRTM  , ONLY : JPLAY, JPG, NG16
+USE YOESRTA16, ONLY : ABSA, ABSB, FORREFC, SELFREFC &
+ & , SFLUXREFC, RAYL &
+ & , LAYREFFR, STRRAT1  
+USE YOESRTWN , ONLY : NSPA, NSPB
+
+IMPLICIT NONE
+
+!-- Output
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_ONEMINUS 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLH2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLCH4(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLMOL(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDSELF(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FORFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FORFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDFOR(JPLAY) 
+
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_SFLUXZEN(JPG) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUG(JPLAY,JPG) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUR(JPLAY,JPG) 
+!- from INTFAC      
+!- from INTIND
+!- from PRECISE             
+!- from PROFDATA             
+!- from SELF             
+INTEGER(KIND=JPIM) :: IG, IND0, IND1, INDS, INDF, JS, I_LAY, I_LAYSOLFR, I_NLAYERS
+
+REAL(KIND=JPRB) :: Z_FAC000, Z_FAC001, Z_FAC010, Z_FAC011, Z_FAC100, Z_FAC101,&
+ & Z_FAC110, Z_FAC111, Z_FS, Z_SPECCOMB, Z_SPECMULT, Z_SPECPARM, &
+ & Z_TAURAY  
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SRTM_TAUMOL16',0,ZHOOK_HANDLE)
+I_NLAYERS = KLEV
+
+!     Compute the optical depth by interpolating in ln(pressure), 
+!     temperature, and appropriate species.  Below LAYTROP, the water
+!     vapor self-continuum is interpolated (in temperature) separately.  
+
+DO I_LAY = 1, K_LAYTROP
+  Z_SPECCOMB = P_COLH2O(I_LAY) + STRRAT1*P_COLCH4(I_LAY)
+  Z_SPECPARM = P_COLH2O(I_LAY)/Z_SPECCOMB 
+  IF (Z_SPECPARM >= P_ONEMINUS) Z_SPECPARM = P_ONEMINUS
+  Z_SPECMULT = 8._JPRB*(Z_SPECPARM)
+  JS = 1 + INT(Z_SPECMULT)
+  Z_FS = MOD(Z_SPECMULT, 1.0_JPRB )
+! Z_FAC000 = (1.0_JPRB - Z_FS) * P_FAC00(I_LAY)
+! Z_FAC010 = (1.0_JPRB - Z_FS) * P_FAC10(I_LAY)
+! Z_FAC100 = Z_FS * P_FAC00(I_LAY)
+! Z_FAC110 = Z_FS * P_FAC10(I_LAY)
+! Z_FAC001 = (1.0_JPRB - Z_FS) * P_FAC01(I_LAY)
+! Z_FAC011 = (1.0_JPRB - Z_FS) * P_FAC11(I_LAY)
+! Z_FAC101 = Z_FS * P_FAC01(I_LAY)
+! Z_FAC111 = Z_FS * P_FAC11(I_LAY)
+  IND0 = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(16) + JS
+  IND1 = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(16) + JS
+  INDS = K_INDSELF(I_LAY)
+  INDF = K_INDFOR(I_LAY)
+  Z_TAURAY = P_COLMOL(I_LAY) * RAYL
+
+!  print 9001,LAY,IND0,IND1,INDS,INDF,FAC000,FAC010,FAC100,FAC110,FAC001,FAC011,FAC101,FAC111 &
+!   &,TAURAY,SELFFAC(LAY),SELFFRAC(LAY),FORFAC(LAY),FORFRAC(LAY)
+  9001 format(1x,'T16 ',5I4,13E12.3)
+
+!  DO IG = 1, NG(16)
+  DO IG = 1, NG16
+    P_TAUG(I_LAY,IG) = Z_SPECCOMB * &
+!    & (Z_FAC000 * ABSA(IND0   ,IG) + &
+!    & Z_FAC100 * ABSA(IND0 +1,IG) + &
+!    & Z_FAC010 * ABSA(IND0 +9,IG) + &
+!    & Z_FAC110 * ABSA(IND0+10,IG) + &
+!    & Z_FAC001 * ABSA(IND1   ,IG) + &
+!    & Z_FAC101 * ABSA(IND1 +1,IG) + &
+!    & Z_FAC011 * ABSA(IND1 +9,IG) + &
+!    & Z_FAC111 * ABSA(IND1+10,IG)) + &
+     & (&
+     & (1. - Z_FS) * ( ABSA(IND0,IG) * P_FAC00(I_LAY) + &
+     &                 ABSA(IND0+9,IG) * P_FAC10(I_LAY) + &
+     &                 ABSA(IND1,IG) * P_FAC01(I_LAY) + &
+     &                 ABSA(IND1+9,IG) * P_FAC11(I_LAY) ) + &
+     & Z_FS        * ( ABSA(IND0+1,IG) * P_FAC00(I_LAY) + &
+     &                 ABSA(IND0+10,IG) * P_FAC10(I_LAY) + &
+     &                 ABSA(IND1+1,IG) * P_FAC01(I_LAY) + &
+     &                 ABSA(IND1+10,IG) * P_FAC11(I_LAY) ) &
+     & ) + &
+     & P_COLH2O(I_LAY) * &
+     & (P_SELFFAC(I_LAY) * (SELFREFC(INDS,IG) + &
+     & P_SELFFRAC(I_LAY) * &
+     & (SELFREFC(INDS+1,IG) - SELFREFC(INDS,IG))) + &
+     & P_FORFAC(I_LAY) * (FORREFC(INDF,IG) + &
+     & P_FORFRAC(I_LAY) * &
+     & (FORREFC(INDF+1,IG) - FORREFC(INDF,IG))))   
+!     &           + TAURAY
+!    SSA(LAY,IG) = TAURAY/TAUG(LAY,IG)
+    P_TAUR(I_LAY,IG) = Z_TAURAY
+!    print 9002,LAY,IG,ABSA(IND0,IG),ABSA(IND0+1,IG),ABSA(IND0+9,IG),ABSA(IND0+10,IG) & 
+!      &, ABSA(IND1,IG),ABSA(IND1+1,IG),ABSA(IND1+9,IG),ABSA(IND1+10,IG) & 
+!      &, SELFREFC(INDS+1,IG),SELFREFC(INDS,IG),FORREFC(INDF+1,IG),FORREFC(INDF,IG)
+    9002 format(1x,'U16 ',2I3,12E12.3)
+  ENDDO
+ENDDO
+
+I_LAYSOLFR = I_NLAYERS
+
+DO I_LAY = K_LAYTROP+1, I_NLAYERS
+  IF (K_JP(I_LAY-1) < LAYREFFR .AND. K_JP(I_LAY) >= LAYREFFR) &
+   & I_LAYSOLFR = I_LAY  
+  IND0 = ((K_JP(I_LAY)-13)*5+(K_JT(I_LAY)-1))*NSPB(16) + 1
+  IND1 = ((K_JP(I_LAY)-12)*5+(K_JT1(I_LAY)-1))*NSPB(16) + 1
+  Z_TAURAY = P_COLMOL(I_LAY) * RAYL
+
+!  DO IG = 1, NG(16)
+  DO IG = 1, NG16
+    P_TAUG(I_LAY,IG) = P_COLCH4(I_LAY) * &
+     & (P_FAC00(I_LAY) * ABSB(IND0  ,IG) + &
+     & P_FAC10(I_LAY) * ABSB(IND0+1,IG) + &
+     & P_FAC01(I_LAY) * ABSB(IND1  ,IG) + &
+     & P_FAC11(I_LAY) * ABSB(IND1+1,IG))   
+!     &           + TAURAY
+!    SSA(LAY,IG) = TAURAY/TAUG(LAY,IG)
+    IF (I_LAY == I_LAYSOLFR) P_SFLUXZEN(IG) = SFLUXREFC(IG) 
+    P_TAUR(I_LAY,IG) = Z_TAURAY  
+  ENDDO
+ENDDO
+
+!DO LAY=1,NLAYERS
+!  print 9003,LAY,(TAUG(LAY,IG),IG=1,NG16)
+9003 format(1x,'O16 ',I3,16E13.5)
+!END DO
+
+!----------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_TAUMOL16',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_TAUMOL16
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol16.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol16.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol16.intfb.h	(revision 1989)
@@ -0,0 +1,35 @@
+INTERFACE
+SUBROUTINE SRTM_TAUMOL16&
+ & ( KLEV,&
+ & P_FAC00 , P_FAC01 , P_FAC10 , P_FAC11,&
+ & K_JP , K_JT , K_JT1 , P_ONEMINUS,&
+ & P_COLH2O , P_COLCH4 , P_COLMOL,&
+ & K_LAYTROP , P_SELFFAC , P_SELFFRAC, K_INDSELF , P_FORFAC , P_FORFRAC, K_INDFOR,&
+ & P_SFLUXZEN, P_TAUG , P_TAUR&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARSRTM , ONLY : JPLAY, JPG, NG16
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_ONEMINUS
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLH2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLCH4(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLMOL(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDSELF(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FORFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FORFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDFOR(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_SFLUXZEN(JPG)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUG(JPLAY,JPG)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUR(JPLAY,JPG)
+END SUBROUTINE SRTM_TAUMOL16
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol17.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol17.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol17.F90	(revision 1989)
@@ -0,0 +1,181 @@
+SUBROUTINE SRTM_TAUMOL17 &
+ & ( KLEV,&
+ & P_FAC00   , P_FAC01  , P_FAC10   , P_FAC11,&
+ & K_JP      , K_JT     , K_JT1     , P_ONEMINUS,&
+ & P_COLH2O  , P_COLCO2 , P_COLMOL,&
+ & K_LAYTROP , P_SELFFAC, P_SELFFRAC, K_INDSELF  , P_FORFAC, P_FORFRAC, K_INDFOR,&
+ & P_SFLUXZEN, P_TAUG   , P_TAUR    &
+ & )  
+
+!     Written by Eli J. Mlawer, Atmospheric & Environmental Research.
+
+!     BAND 17:  3250-4000 cm-1 (low - H2O,CO2; high - H2O,CO2)
+
+! Modifications
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     JJMorcrette 2003-02-24 adapted to ECMWF environment
+
+!      PARAMETER (MG=16, MXLAY=203, NBANDS=14)
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARSRTM  , ONLY : JPLAY, JPG, NG17
+USE YOESRTA17, ONLY : ABSA, ABSB, FORREFC, SELFREFC &
+ & , SFLUXREFC, RAYL &
+ & , LAYREFFR, STRRAT  
+USE YOESRTWN , ONLY : NSPA, NSPB
+
+IMPLICIT NONE
+
+!-- Output
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_ONEMINUS 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLH2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLCO2(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLMOL(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDSELF(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FORFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FORFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDFOR(JPLAY) 
+
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_SFLUXZEN(JPG) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUG(JPLAY,JPG) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUR(JPLAY,JPG) 
+!- from INTFAC      
+!- from INTIND
+!- from PRECISE             
+!- from PROFDATA             
+!- from SELF             
+INTEGER(KIND=JPIM) :: IG, IND0, IND1, INDS, INDF, JS, I_LAY, I_LAYSOLFR, I_NLAYERS
+
+REAL(KIND=JPRB) :: Z_FAC000, Z_FAC001, Z_FAC010, Z_FAC011, Z_FAC100, Z_FAC101,&
+ & Z_FAC110, Z_FAC111, Z_FS, Z_SPECCOMB, Z_SPECMULT, Z_SPECPARM, &
+ & Z_TAURAY  
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SRTM_TAUMOL17',0,ZHOOK_HANDLE)
+I_NLAYERS = KLEV
+
+!     Compute the optical depth by interpolating in ln(pressure), 
+!     temperature, and appropriate species.  Below LAYTROP, the water
+!     vapor self-continuum is interpolated (in temperature) separately.  
+DO I_LAY = 1, K_LAYTROP
+  Z_SPECCOMB = P_COLH2O(I_LAY) + STRRAT*P_COLCO2(I_LAY)
+  Z_SPECPARM = P_COLH2O(I_LAY)/Z_SPECCOMB 
+  IF (Z_SPECPARM >= P_ONEMINUS) Z_SPECPARM = P_ONEMINUS
+  Z_SPECMULT = 8.*(Z_SPECPARM)
+  JS = 1 + INT(Z_SPECMULT)
+  Z_FS = MOD(Z_SPECMULT, 1.0_JPRB )
+! Z_FAC000 = (1. - Z_FS) * P_FAC00(I_LAY)
+! Z_FAC010 = (1. - Z_FS) * P_FAC10(I_LAY)
+! Z_FAC100 = Z_FS * P_FAC00(I_LAY)
+! Z_FAC110 = Z_FS * P_FAC10(I_LAY)
+! Z_FAC001 = (1. - Z_FS) * P_FAC01(I_LAY)
+! Z_FAC011 = (1. - Z_FS) * P_FAC11(I_LAY)
+! Z_FAC101 = Z_FS * P_FAC01(I_LAY)
+! Z_FAC111 = Z_FS * P_FAC11(I_LAY)
+  IND0 = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(17) + JS
+  IND1 = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(17) + JS
+  INDS = K_INDSELF(I_LAY)
+  INDF = K_INDFOR(I_LAY)
+  Z_TAURAY = P_COLMOL(I_LAY) * RAYL
+
+!  DO IG = 1, NG(17)
+  DO IG = 1, NG17
+    P_TAUG(I_LAY,IG) = Z_SPECCOMB * &
+     & (&
+     & (1. - Z_FS) * ( ABSA(IND0,IG) * P_FAC00(I_LAY) + &
+     &                 ABSA(IND0+9,IG) * P_FAC10(I_LAY) + &
+     &                 ABSA(IND1,IG) * P_FAC01(I_LAY) + &
+     &                 ABSA(IND1+9,IG) * P_FAC11(I_LAY) ) + &
+     & Z_FS        * ( ABSA(IND0+1,IG) * P_FAC00(I_LAY) + &
+     &                 ABSA(IND0+10,IG) * P_FAC10(I_LAY) + &
+     &                 ABSA(IND1+1,IG) * P_FAC01(I_LAY) + &
+     &                 ABSA(IND1+10,IG) * P_FAC11(I_LAY) ) &
+     & ) + &
+     & P_COLH2O(I_LAY) * &
+     & (P_SELFFAC(I_LAY) * (SELFREFC(INDS,IG) + &
+     & P_SELFFRAC(I_LAY) * &
+     & (SELFREFC(INDS+1,IG) - SELFREFC(INDS,IG))) + &
+     & P_FORFAC(I_LAY) * (FORREFC(INDF,IG) + &
+     & P_FORFRAC(I_LAY) * &
+     & (FORREFC(INDF+1,IG) - FORREFC(INDF,IG))))   
+!     &           + TAURAY
+!    SSA(LAY,IG) = TAURAY/TAUG(LAY,IG)
+    P_TAUR(I_LAY,IG) = Z_TAURAY
+  ENDDO
+ENDDO
+
+I_LAYSOLFR = I_NLAYERS
+
+DO I_LAY = K_LAYTROP+1, I_NLAYERS
+  IF (K_JP(I_LAY-1) < LAYREFFR .AND. K_JP(I_LAY) >= LAYREFFR) &
+   & I_LAYSOLFR = I_LAY  
+  Z_SPECCOMB = P_COLH2O(I_LAY) + STRRAT*P_COLCO2(I_LAY)
+  Z_SPECPARM = P_COLH2O(I_LAY)/Z_SPECCOMB 
+  IF (Z_SPECPARM >= P_ONEMINUS) Z_SPECPARM = P_ONEMINUS
+  Z_SPECMULT = 4.*(Z_SPECPARM)
+  JS = 1 + INT(Z_SPECMULT)
+  Z_FS = MOD(Z_SPECMULT, 1.0_JPRB )
+! Z_FAC000 = (1. - Z_FS) * P_FAC00(I_LAY)
+! Z_FAC010 = (1. - Z_FS) * P_FAC10(I_LAY)
+! Z_FAC100 = Z_FS * P_FAC00(I_LAY)
+! Z_FAC110 = Z_FS * P_FAC10(I_LAY)
+! Z_FAC001 = (1. - Z_FS) * P_FAC01(I_LAY)
+! Z_FAC011 = (1. - Z_FS) * P_FAC11(I_LAY)
+! Z_FAC101 = Z_FS * P_FAC01(I_LAY)
+! Z_FAC111 = Z_FS * P_FAC11(I_LAY)
+  IND0 = ((K_JP(I_LAY)-13)*5+(K_JT(I_LAY)-1))*NSPB(17) + JS
+  IND1 = ((K_JP(I_LAY)-12)*5+(K_JT1(I_LAY)-1))*NSPB(17) + JS
+  INDF = K_INDFOR(I_LAY)
+  Z_TAURAY = P_COLMOL(I_LAY) * RAYL
+
+!  DO IG = 1, NG(17)
+  DO IG = 1, NG17
+    P_TAUG(I_LAY,IG) = Z_SPECCOMB * &
+!    & (Z_FAC000 * ABSB(IND0,IG) + &
+!    & Z_FAC100 * ABSB(IND0+1,IG) + &
+!    & Z_FAC010 * ABSB(IND0+5,IG) + &
+!    & Z_FAC110 * ABSB(IND0+6,IG) + &
+!    & Z_FAC001 * ABSB(IND1,IG) + &
+!    & Z_FAC101 * ABSB(IND1+1,IG) + &
+!    & Z_FAC011 * ABSB(IND1+5,IG) + &
+!    & Z_FAC111 * ABSB(IND1+6,IG)) + &
+     & (&
+     & (1. - Z_FS) * ( ABSB(IND0,IG) * P_FAC00(I_LAY) + &
+     &                 ABSB(IND0+5,IG) * P_FAC10(I_LAY) + &
+     &                 ABSB(IND1,IG) * P_FAC01(I_LAY) + &
+     &                 ABSB(IND1+5,IG) * P_FAC11(I_LAY) ) + &
+     & Z_FS        * ( ABSB(IND0+1,IG) * P_FAC00(I_LAY) + &
+     &                 ABSB(IND0+6,IG) * P_FAC10(I_LAY) + &
+     &                 ABSB(IND1+1,IG) * P_FAC01(I_LAY) + &
+     &                 ABSB(IND1+6,IG) * P_FAC11(I_LAY) ) &
+     & ) + &
+     & P_COLH2O(I_LAY) * &
+     & P_FORFAC(I_LAY) * (FORREFC(INDF,IG) + &
+     & P_FORFRAC(I_LAY) * &
+     & (FORREFC(INDF+1,IG) - FORREFC(INDF,IG)))   
+!     &           + TAURAY
+!    SSA(LAY,IG) = TAURAY/TAUG(LAY,IG)
+    IF (I_LAY == I_LAYSOLFR) P_SFLUXZEN(IG) = SFLUXREFC(IG,JS) &
+     & + Z_FS * (SFLUXREFC(IG,JS+1) - SFLUXREFC(IG,JS))  
+    P_TAUR(I_LAY,IG) = Z_TAURAY
+  ENDDO
+ENDDO
+
+!-----------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_TAUMOL17',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_TAUMOL17
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol17.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol17.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol17.intfb.h	(revision 1989)
@@ -0,0 +1,35 @@
+INTERFACE
+SUBROUTINE SRTM_TAUMOL17&
+ & ( KLEV,&
+ & P_FAC00 , P_FAC01 , P_FAC10 , P_FAC11,&
+ & K_JP , K_JT , K_JT1 , P_ONEMINUS,&
+ & P_COLH2O , P_COLCO2 , P_COLMOL,&
+ & K_LAYTROP , P_SELFFAC, P_SELFFRAC, K_INDSELF , P_FORFAC, P_FORFRAC, K_INDFOR,&
+ & P_SFLUXZEN, P_TAUG , P_TAUR&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARSRTM , ONLY : JPLAY, JPG, NG17
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_ONEMINUS
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLH2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLCO2(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLMOL(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDSELF(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FORFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FORFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDFOR(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_SFLUXZEN(JPG)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUG(JPLAY,JPG)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUR(JPLAY,JPG)
+END SUBROUTINE SRTM_TAUMOL17
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol18.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol18.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol18.F90	(revision 1989)
@@ -0,0 +1,150 @@
+SUBROUTINE SRTM_TAUMOL18 &
+ & ( KLEV,&
+ & P_FAC00   , P_FAC01  , P_FAC10   , P_FAC11,&
+ & K_JP      , K_JT     , K_JT1     , P_ONEMINUS,&
+ & P_COLH2O  , P_COLCH4 , P_COLMOL,&
+ & K_LAYTROP , P_SELFFAC, P_SELFFRAC, K_INDSELF  , P_FORFAC, P_FORFRAC, K_INDFOR,&
+ & P_SFLUXZEN, P_TAUG   , P_TAUR    &
+ & )  
+
+!     Written by Eli J. Mlawer, Atmospheric & Environmental Research.
+
+!     BAND 18:  4000-4650 cm-1 (low - H2O,CH4; high - CH4)
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARSRTM  , ONLY : JPLAY, JPG, NG18
+USE YOESRTA18, ONLY : ABSA, ABSB, FORREFC, SELFREFC &
+ & , SFLUXREFC, RAYL &
+ & , LAYREFFR, STRRAT  
+USE YOESRTWN , ONLY : NSPA, NSPB
+
+IMPLICIT NONE
+
+!-- Output
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_ONEMINUS 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLH2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLCH4(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLMOL(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDSELF(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FORFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FORFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDFOR(JPLAY)
+ 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_SFLUXZEN(JPG) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUG(JPLAY,JPG) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUR(JPLAY,JPG) 
+!- from INTFAC      
+!- from INTIND
+!- from PRECISE             
+!- from PROFDATA             
+!- from SELF             
+INTEGER(KIND=JPIM) :: IG, IND0, IND1, INDS, INDF, JS, I_LAY, I_LAYSOLFR, I_NLAYERS
+
+REAL(KIND=JPRB) :: Z_FAC000, Z_FAC001, Z_FAC010, Z_FAC011, Z_FAC100, Z_FAC101,&
+ & Z_FAC110, Z_FAC111, Z_FS, Z_SPECCOMB, Z_SPECMULT, Z_SPECPARM, &
+ & Z_TAURAY  
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SRTM_TAUMOL18',0,ZHOOK_HANDLE)
+I_NLAYERS = KLEV
+
+!     Compute the optical depth by interpolating in ln(pressure), 
+!     temperature, and appropriate species.  Below LAYTROP, the water
+!     vapor self-continuum is interpolated (in temperature) separately.  
+
+I_LAYSOLFR = K_LAYTROP
+      
+DO I_LAY = 1, K_LAYTROP
+  IF (K_JP(I_LAY) < LAYREFFR .AND. K_JP(I_LAY+1) >= LAYREFFR) &
+   & I_LAYSOLFR = MIN(I_LAY+1,K_LAYTROP)  
+  Z_SPECCOMB = P_COLH2O(I_LAY) + STRRAT*P_COLCH4(I_LAY)
+  Z_SPECPARM = P_COLH2O(I_LAY)/Z_SPECCOMB 
+  IF (Z_SPECPARM >= P_ONEMINUS) Z_SPECPARM = P_ONEMINUS
+  Z_SPECMULT = 8.*(Z_SPECPARM)
+  JS = 1 + INT(Z_SPECMULT)
+  Z_FS = MOD(Z_SPECMULT, 1.0_JPRB )
+! Z_FAC000 = (1. - Z_FS) * P_FAC00(I_LAY)
+! Z_FAC010 = (1. - Z_FS) * P_FAC10(I_LAY)
+! Z_FAC100 = Z_FS * P_FAC00(I_LAY)
+! Z_FAC110 = Z_FS * P_FAC10(I_LAY)
+! Z_FAC001 = (1. - Z_FS) * P_FAC01(I_LAY)
+! Z_FAC011 = (1. - Z_FS) * P_FAC11(I_LAY)
+! Z_FAC101 = Z_FS * P_FAC01(I_LAY)
+! Z_FAC111 = Z_FS * P_FAC11(I_LAY)
+  IND0 = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(18) + JS
+  IND1 = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(18) + JS
+  INDS = K_INDSELF(I_LAY)
+  INDF = K_INDFOR(I_LAY)
+  Z_TAURAY = P_COLMOL(I_LAY) * RAYL
+
+!  DO IG = 1, NG(18)
+  DO IG = 1, NG18
+    P_TAUG(I_LAY,IG) = Z_SPECCOMB * &
+!    & (Z_FAC000 * ABSA(IND0,IG) + &
+!    & Z_FAC100 * ABSA(IND0+1,IG) + &
+!    & Z_FAC010 * ABSA(IND0+9,IG) + &
+!    & Z_FAC110 * ABSA(IND0+10,IG) + &
+!    & Z_FAC001 * ABSA(IND1,IG) + &
+!    & Z_FAC101 * ABSA(IND1+1,IG) + &
+!    & Z_FAC011 * ABSA(IND1+9,IG) + &
+!    & Z_FAC111 * ABSA(IND1+10,IG)) + &
+     & (&
+     & (1. - Z_FS) * ( ABSA(IND0,IG) * P_FAC00(I_LAY) + &
+     &                 ABSA(IND0+9,IG) * P_FAC10(I_LAY) + &
+     &                 ABSA(IND1,IG) * P_FAC01(I_LAY) + &
+     &                 ABSA(IND1+9,IG) * P_FAC11(I_LAY) ) + &
+     & Z_FS        * ( ABSA(IND0+1,IG) * P_FAC00(I_LAY) + &
+     &                 ABSA(IND0+10,IG) * P_FAC10(I_LAY) + &
+     &                 ABSA(IND1+1,IG) * P_FAC01(I_LAY) + &
+     &                 ABSA(IND1+10,IG) * P_FAC11(I_LAY) ) &
+     & ) + &
+     & P_COLH2O(I_LAY) * &
+     & (P_SELFFAC(I_LAY) * (SELFREFC(INDS,IG) + &
+     & P_SELFFRAC(I_LAY) * &
+     & (SELFREFC(INDS+1,IG) - SELFREFC(INDS,IG))) + &
+     & P_FORFAC(I_LAY) * (FORREFC(INDF,IG) + &
+     & P_FORFRAC(I_LAY) * &
+     & (FORREFC(INDF+1,IG) - FORREFC(INDF,IG))))   
+!     &           + TAURAY
+!    SSA(LAY,IG) = TAURAY/TAUG(LAY,IG)
+    IF (I_LAY == I_LAYSOLFR) P_SFLUXZEN(IG) = SFLUXREFC(IG,JS)  &
+     & + Z_FS * (SFLUXREFC(IG,JS+1) - SFLUXREFC(IG,JS))  
+    P_TAUR(I_LAY,IG) = Z_TAURAY
+  ENDDO
+ENDDO
+
+DO I_LAY = K_LAYTROP+1, I_NLAYERS
+  IND0 = ((K_JP(I_LAY)-13)*5+(K_JT(I_LAY)-1))*NSPB(18) + 1
+  IND1 = ((K_JP(I_LAY)-12)*5+(K_JT1(I_LAY)-1))*NSPB(18) + 1
+  Z_TAURAY = P_COLMOL(I_LAY) * RAYL
+
+!  DO IG = 1, NG(18)
+  DO IG = 1, NG18
+    P_TAUG(I_LAY,IG) = P_COLCH4(I_LAY) * &
+     & (P_FAC00(I_LAY) * ABSB(IND0,IG) + &
+     & P_FAC10(I_LAY) * ABSB(IND0+1,IG) + &
+     & P_FAC01(I_LAY) * ABSB(IND1,IG) +       &
+     & P_FAC11(I_LAY) * ABSB(IND1+1,IG))   
+!     &           + TAURAY
+!    SSA(LAY,IG) = TAURAY/TAUG(LAY,IG)
+    P_TAUR(I_LAY,IG) = Z_TAURAY
+  ENDDO
+ENDDO
+
+!-----------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_TAUMOL18',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_TAUMOL18
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol18.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol18.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol18.intfb.h	(revision 1989)
@@ -0,0 +1,35 @@
+INTERFACE
+SUBROUTINE SRTM_TAUMOL18&
+ & ( KLEV,&
+ & P_FAC00 , P_FAC01 , P_FAC10 , P_FAC11,&
+ & K_JP , K_JT , K_JT1 , P_ONEMINUS,&
+ & P_COLH2O , P_COLCH4 , P_COLMOL,&
+ & K_LAYTROP , P_SELFFAC, P_SELFFRAC, K_INDSELF , P_FORFAC, P_FORFRAC, K_INDFOR,&
+ & P_SFLUXZEN, P_TAUG , P_TAUR&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARSRTM , ONLY : JPLAY, JPG, NG18
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_ONEMINUS
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLH2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLCH4(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLMOL(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDSELF(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FORFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FORFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDFOR(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_SFLUXZEN(JPG)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUG(JPLAY,JPG)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUR(JPLAY,JPG)
+END SUBROUTINE SRTM_TAUMOL18
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol19.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol19.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol19.F90	(revision 1989)
@@ -0,0 +1,157 @@
+SUBROUTINE SRTM_TAUMOL19 &
+ & ( KLEV,&
+ & P_FAC00   , P_FAC01  , P_FAC10   , P_FAC11,&
+ & K_JP      , K_JT     , K_JT1     , P_ONEMINUS,&
+ & P_COLH2O  , P_COLCO2 , P_COLMOL,&
+ & K_LAYTROP , P_SELFFAC, P_SELFFRAC, K_INDSELF  , P_FORFAC, P_FORFRAC, K_INDFOR,&
+ & P_SFLUXZEN, P_TAUG   , P_TAUR    &
+ & )  
+
+!     Written by Eli J. Mlawer, Atmospheric & Environmental Research.
+
+!     BAND 19:  4650-5150 cm-1 (low - H2O,CO2; high - CO2)
+
+! Modifications
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     JJMorcrette 2003-02-24 adapted to ECMWF environment
+
+!      PARAMETER (MG=16, MXLAY=203, NBANDS=14)
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARSRTM  , ONLY : JPLAY, JPG, NG19
+USE YOESRTA19, ONLY : ABSA, ABSB, FORREFC, SELFREFC &
+ & , SFLUXREFC, RAYL &
+ & , LAYREFFR, STRRAT  
+USE YOESRTWN , ONLY : NSPA, NSPB
+
+IMPLICIT NONE
+
+!-- Output
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_ONEMINUS 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLH2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLCO2(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLMOL(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDSELF(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FORFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FORFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDFOR(JPLAY) 
+
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_SFLUXZEN(JPG) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUG(JPLAY,JPG) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUR(JPLAY,JPG) 
+!- from INTFAC      
+!- from INTIND
+!- from PRECISE             
+!- from PROFDATA             
+!- from SELF             
+INTEGER(KIND=JPIM) :: IG, IND0, IND1, INDS, INDF, JS, I_LAY, I_LAYSOLFR, I_NLAYERS
+
+REAL(KIND=JPRB) :: Z_FAC000, Z_FAC001, Z_FAC010, Z_FAC011, Z_FAC100, Z_FAC101,&
+ & Z_FAC110, Z_FAC111, Z_FS, Z_SPECCOMB, Z_SPECMULT, Z_SPECPARM, &
+ & Z_TAURAY  
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SRTM_TAUMOL19',0,ZHOOK_HANDLE)
+I_NLAYERS = KLEV
+
+!     Compute the optical depth by interpolating in ln(pressure), 
+!     temperature, and appropriate species.  Below LAYTROP, the water
+!     vapor self-continuum is interpolated (in temperature) separately.  
+
+I_LAYSOLFR = K_LAYTROP
+      
+DO I_LAY = 1, K_LAYTROP
+  IF (K_JP(I_LAY) < LAYREFFR .AND. K_JP(I_LAY+1) >= LAYREFFR) &
+   & I_LAYSOLFR = MIN(I_LAY+1,K_LAYTROP)  
+  Z_SPECCOMB = P_COLH2O(I_LAY) + STRRAT*P_COLCO2(I_LAY)
+  Z_SPECPARM = P_COLH2O(I_LAY)/Z_SPECCOMB 
+  IF (Z_SPECPARM >= P_ONEMINUS) Z_SPECPARM = P_ONEMINUS
+  Z_SPECMULT = 8.*(Z_SPECPARM)
+  JS = 1 + INT(Z_SPECMULT)
+  Z_FS = MOD(Z_SPECMULT, 1.0_JPRB )
+! Z_FAC000 = (1. - Z_FS) * P_FAC00(I_LAY)
+! Z_FAC010 = (1. - Z_FS) * P_FAC10(I_LAY)
+! Z_FAC100 = Z_FS * P_FAC00(I_LAY)
+! Z_FAC110 = Z_FS * P_FAC10(I_LAY)
+! Z_FAC001 = (1. - Z_FS) * P_FAC01(I_LAY)
+! Z_FAC011 = (1. - Z_FS) * P_FAC11(I_LAY)
+! Z_FAC101 = Z_FS * P_FAC01(I_LAY)
+! Z_FAC111 = Z_FS * P_FAC11(I_LAY)
+  IND0 = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(19) + JS
+  IND1 = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(19) + JS
+  INDS = K_INDSELF(I_LAY)
+  INDF = K_INDFOR(I_LAY)
+  Z_TAURAY = P_COLMOL(I_LAY) * RAYL
+
+!  DO IG = 1, NG(19)
+  DO IG = 1 , NG19
+    P_TAUG(I_LAY,IG) = Z_SPECCOMB * &
+!    & (Z_FAC000 * ABSA(IND0,IG) + &
+!    & Z_FAC100 * ABSA(IND0+1,IG) + &
+!    & Z_FAC010 * ABSA(IND0+9,IG) + &
+!    & Z_FAC110 * ABSA(IND0+10,IG) + &
+!    & Z_FAC001 * ABSA(IND1,IG) + &
+!    & Z_FAC101 * ABSA(IND1+1,IG) + &
+!    & Z_FAC011 * ABSA(IND1+9,IG) + &
+!    & Z_FAC111 * ABSA(IND1+10,IG)) + &
+     & (&
+     & (1. - Z_FS) * ( ABSA(IND0,IG) * P_FAC00(I_LAY) + &
+     &                 ABSA(IND0+9,IG) * P_FAC10(I_LAY) + &
+     &                 ABSA(IND1,IG) * P_FAC01(I_LAY) + &
+     &                 ABSA(IND1+9,IG) * P_FAC11(I_LAY) ) + &
+     & Z_FS        * ( ABSA(IND0+1,IG) * P_FAC00(I_LAY) + &
+     &                 ABSA(IND0+10,IG) * P_FAC10(I_LAY) + &
+     &                 ABSA(IND1+1,IG) * P_FAC01(I_LAY) + &
+     &                 ABSA(IND1+10,IG) * P_FAC11(I_LAY) ) &
+     & ) + &
+     & P_COLH2O(I_LAY) * &
+     & (P_SELFFAC(I_LAY) * (SELFREFC(INDS,IG) + &
+     & P_SELFFRAC(I_LAY) * &
+     & (SELFREFC(INDS+1,IG) - SELFREFC(INDS,IG))) +  &
+     & P_FORFAC(I_LAY) * (FORREFC(INDF,IG) + &
+     & P_FORFRAC(I_LAY) * &
+     & (FORREFC(INDF+1,IG) - FORREFC(INDF,IG))))   
+!     &           + TAURAY
+!    SSA(LAY,IG) = TAURAY/TAUG(LAY,IG)
+    IF (I_LAY == I_LAYSOLFR) P_SFLUXZEN(IG) = SFLUXREFC(IG,JS) &
+     & + Z_FS * (SFLUXREFC(IG,JS+1) - SFLUXREFC(IG,JS))  
+    P_TAUR(I_LAY,IG) = Z_TAURAY   
+  ENDDO
+ENDDO
+
+DO I_LAY = K_LAYTROP+1, I_NLAYERS
+  IND0 = ((K_JP(I_LAY)-13)*5+(K_JT(I_LAY)-1))*NSPB(19) + 1
+  IND1 = ((K_JP(I_LAY)-12)*5+(K_JT1(I_LAY)-1))*NSPB(19) + 1
+  Z_TAURAY = P_COLMOL(I_LAY) * RAYL
+
+!  DO IG = 1, NG(19)
+  DO IG = 1 , NG19
+    P_TAUG(I_LAY,IG) = P_COLCO2(I_LAY) * &
+     & (P_FAC00(I_LAY) * ABSB(IND0,IG) + &
+     & P_FAC10(I_LAY) * ABSB(IND0+1,IG) + &
+     & P_FAC01(I_LAY) * ABSB(IND1,IG) + &
+     & P_FAC11(I_LAY) * ABSB(IND1+1,IG))   
+!     &           + TAURAY
+!    SSA(LAY,IG) = TAURAY/TAUG(LAY,IG) 
+    P_TAUR(I_LAY,IG) = Z_TAURAY   
+  ENDDO
+ENDDO
+
+!-----------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_TAUMOL19',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_TAUMOL19
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol19.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol19.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol19.intfb.h	(revision 1989)
@@ -0,0 +1,35 @@
+INTERFACE
+SUBROUTINE SRTM_TAUMOL19&
+ & ( KLEV,&
+ & P_FAC00 , P_FAC01 , P_FAC10 , P_FAC11,&
+ & K_JP , K_JT , K_JT1 , P_ONEMINUS,&
+ & P_COLH2O , P_COLCO2 , P_COLMOL,&
+ & K_LAYTROP , P_SELFFAC, P_SELFFRAC, K_INDSELF , P_FORFAC, P_FORFRAC, K_INDFOR,&
+ & P_SFLUXZEN, P_TAUG , P_TAUR&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARSRTM , ONLY : JPLAY, JPG, NG19
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_ONEMINUS
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLH2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLCO2(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLMOL(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDSELF(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FORFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FORFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDFOR(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_SFLUXZEN(JPG)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUG(JPLAY,JPG)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUR(JPLAY,JPG)
+END SUBROUTINE SRTM_TAUMOL19
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol20.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol20.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol20.F90	(revision 1989)
@@ -0,0 +1,132 @@
+SUBROUTINE SRTM_TAUMOL20 &
+ & ( KLEV,&
+ & P_FAC00   , P_FAC01  , P_FAC10   , P_FAC11,&
+ & K_JP      , K_JT     , K_JT1     , P_ONEMINUS,&
+ & P_COLH2O  , P_COLCH4 , P_COLMOL,&
+ & K_LAYTROP , P_SELFFAC, P_SELFFRAC, K_INDSELF  , P_FORFAC, P_FORFRAC, K_INDFOR,&
+ & P_SFLUXZEN, P_TAUG   , P_TAUR    &
+ & )  
+
+!     Written by Eli J. Mlawer, Atmospheric & Environmental Research.
+
+!     BAND 20:  5150-6150 cm-1 (low - H2O; high - H2O)
+
+! Modifications
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     JJMorcrette 2003-02-24 adapted to ECMWF environment
+
+!      PARAMETER (MG=16, MXLAY=203, NBANDS=14)
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARSRTM  , ONLY : JPLAY, JPG, NG20
+USE YOESRTA20, ONLY : ABSA, ABSB, FORREFC, SELFREFC &
+ & , SFLUXREFC, ABSCH4C, RAYL &
+ & , LAYREFFR  
+USE YOESRTWN , ONLY : NSPA, NSPB
+
+IMPLICIT NONE
+
+!-- Output
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)                  :: P_ONEMINUS ! Argument NOT used
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLH2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLCH4(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLMOL(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDSELF(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FORFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FORFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDFOR(JPLAY) 
+
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_SFLUXZEN(JPG) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUG(JPLAY,JPG) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUR(JPLAY,JPG) 
+!- from INTFAC      
+!- from INTIND
+!- from PRECISE             
+!- from PROFDATA             
+!- from SELF             
+INTEGER(KIND=JPIM) :: IG, IND0, IND1, INDS, INDF, I_LAY, I_LAYSOLFR, I_NLAYERS
+
+REAL(KIND=JPRB) ::  &
+ & Z_TAURAY  
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SRTM_TAUMOL20',0,ZHOOK_HANDLE)
+I_NLAYERS = KLEV
+
+!     Compute the optical depth by interpolating in ln(pressure), 
+!     temperature, and appropriate species.  Below LAYTROP, the water
+!     vapor self-continuum is interpolated (in temperature) separately.  
+
+I_LAYSOLFR = K_LAYTROP
+
+DO I_LAY = 1, K_LAYTROP
+  IF (K_JP(I_LAY) < LAYREFFR .AND. K_JP(I_LAY+1) >= LAYREFFR) &
+   & I_LAYSOLFR = MIN(I_LAY+1,K_LAYTROP)  
+  IND0 = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(20) + 1
+  IND1 = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(20) + 1
+  INDS = K_INDSELF(I_LAY)
+  INDF = K_INDFOR(I_LAY)
+  Z_TAURAY = P_COLMOL(I_LAY) * RAYL
+
+!  DO IG = 1, NG(20)
+  DO IG = 1 , NG20
+    P_TAUG(I_LAY,IG) = P_COLH2O(I_LAY) * &
+     & ((P_FAC00(I_LAY) * ABSA(IND0,IG) + &
+     & P_FAC10(I_LAY) * ABSA(IND0+1,IG) + &
+     & P_FAC01(I_LAY) * ABSA(IND1,IG) + &
+     & P_FAC11(I_LAY) * ABSA(IND1+1,IG)) + &
+     & P_SELFFAC(I_LAY) * (SELFREFC(INDS,IG) +  &
+     & P_SELFFRAC(I_LAY) * &
+     & (SELFREFC(INDS+1,IG) - SELFREFC(INDS,IG))) + &
+     & P_FORFAC(I_LAY) * (FORREFC(INDF,IG) + &
+     & P_FORFRAC(I_LAY) * &
+     & (FORREFC(INDF+1,IG) - FORREFC(INDF,IG)))) &
+     & + P_COLCH4(I_LAY) * ABSCH4C(IG)  
+!     &           + TAURAY &
+!    SSA(LAY,IG) = TAURAY/TAUG(LAY,IG)
+    P_TAUR(I_LAY,IG) = Z_TAURAY 
+    IF (I_LAY == I_LAYSOLFR) P_SFLUXZEN(IG) = SFLUXREFC(IG) 
+  ENDDO
+ENDDO
+
+DO I_LAY = K_LAYTROP+1, I_NLAYERS
+  IND0 = ((K_JP(I_LAY)-13)*5+(K_JT(I_LAY)-1))*NSPB(20) + 1
+  IND1 = ((K_JP(I_LAY)-12)*5+(K_JT1(I_LAY)-1))*NSPB(20) + 1
+  INDF = K_INDFOR(I_LAY)
+  Z_TAURAY = P_COLMOL(I_LAY) * RAYL
+
+!  DO IG = 1, NG(20)
+  DO IG = 1 , NG20
+    P_TAUG(I_LAY,IG) = P_COLH2O(I_LAY) * &
+     & (P_FAC00(I_LAY) * ABSB(IND0,IG) + &
+     & P_FAC10(I_LAY) * ABSB(IND0+1,IG) + &
+     & P_FAC01(I_LAY) * ABSB(IND1,IG) + &
+     & P_FAC11(I_LAY) * ABSB(IND1+1,IG) + &
+     & P_FORFAC(I_LAY) * (FORREFC(INDF,IG) + &
+     & P_FORFRAC(I_LAY) * &
+     & (FORREFC(INDF+1,IG) - FORREFC(INDF,IG)))) + &
+     & P_COLCH4(I_LAY) * ABSCH4C(IG)  
+!     &           TAURAY + &
+!    SSA(LAY,IG) = TAURAY/TAUG(LAY,IG)
+    P_TAUR(I_LAY,IG) = Z_TAURAY 
+  ENDDO
+ENDDO
+
+!-----------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_TAUMOL20',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_TAUMOL20
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol20.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol20.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol20.intfb.h	(revision 1989)
@@ -0,0 +1,35 @@
+INTERFACE
+SUBROUTINE SRTM_TAUMOL20&
+ & ( KLEV,&
+ & P_FAC00 , P_FAC01 , P_FAC10 , P_FAC11,&
+ & K_JP , K_JT , K_JT1 , P_ONEMINUS,&
+ & P_COLH2O , P_COLCH4 , P_COLMOL,&
+ & K_LAYTROP , P_SELFFAC, P_SELFFRAC, K_INDSELF , P_FORFAC, P_FORFRAC, K_INDFOR,&
+ & P_SFLUXZEN, P_TAUG , P_TAUR&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARSRTM , ONLY : JPLAY, JPG, NG20
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) :: P_ONEMINUS
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLH2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLCH4(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLMOL(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDSELF(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FORFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FORFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDFOR(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_SFLUXZEN(JPG)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUG(JPLAY,JPG)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUR(JPLAY,JPG)
+END SUBROUTINE SRTM_TAUMOL20
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol21.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol21.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol21.F90	(revision 1989)
@@ -0,0 +1,189 @@
+SUBROUTINE SRTM_TAUMOL21 &
+ & ( KLEV,&
+ & P_FAC00   , P_FAC01  , P_FAC10   , P_FAC11,&
+ & K_JP      , K_JT     , K_JT1     , P_ONEMINUS,&
+ & P_COLH2O  , P_COLCO2 , P_COLMOL,&
+ & K_LAYTROP , P_SELFFAC, P_SELFFRAC, K_INDSELF  , P_FORFAC, P_FORFRAC, K_INDFOR,&
+ & P_SFLUXZEN, P_TAUG   , P_TAUR    &
+ & )  
+
+!     Written by Eli J. Mlawer, Atmospheric & Environmental Research.
+
+!     BAND 21:  6150-7700 cm-1 (low - H2O,CO2; high - H2O,CO2)
+
+! Modifications
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     JJMorcrette 2003-02-24 adapted to ECMWF environment
+
+!      PARAMETER (MG=16, MXLAY=203, NBANDS=14)
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARSRTM  , ONLY : JPLAY, JPG, NG21
+USE YOESRTA21, ONLY : ABSA, ABSB, FORREFC, SELFREFC &
+ & , SFLUXREFC, RAYL &
+ & , LAYREFFR, STRRAT  
+USE YOESRTWN , ONLY : NSPA, NSPB
+
+IMPLICIT NONE
+
+!-- Output
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_ONEMINUS 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLH2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLCO2(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLMOL(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDSELF(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FORFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FORFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDFOR(JPLAY) 
+
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_SFLUXZEN(JPG) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUG(JPLAY,JPG) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUR(JPLAY,JPG) 
+!- from INTFAC      
+!- from INTIND
+!- from PRECISE             
+!- from PROFDATA             
+!- from SELF             
+INTEGER(KIND=JPIM) :: IG, IND0, IND1, INDS, INDF, JS, I_LAY, I_LAYSOLFR, I_NLAYERS
+
+REAL(KIND=JPRB) :: Z_FAC000, Z_FAC001, Z_FAC010, Z_FAC011, Z_FAC100, Z_FAC101,&
+ & Z_FAC110, Z_FAC111, Z_FS, Z_SPECCOMB, Z_SPECMULT, Z_SPECPARM, &
+ & Z_TAURAY  
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SRTM_TAUMOL21',0,ZHOOK_HANDLE)
+I_NLAYERS = KLEV
+
+!     Compute the optical depth by interpolating in ln(pressure), 
+!     temperature, and appropriate species.  Below LAYTROP, the water
+!     vapor self-continuum is interpolated (in temperature) separately.  
+I_LAYSOLFR = K_LAYTROP
+      
+DO I_LAY = 1, K_LAYTROP
+  IF (K_JP(I_LAY) < LAYREFFR .AND. K_JP(I_LAY+1) >= LAYREFFR) &
+   & I_LAYSOLFR = MIN(I_LAY+1,K_LAYTROP)  
+  Z_SPECCOMB = P_COLH2O(I_LAY) + STRRAT*P_COLCO2(I_LAY)
+  Z_SPECPARM = P_COLH2O(I_LAY)/Z_SPECCOMB 
+  IF (Z_SPECPARM >= P_ONEMINUS) Z_SPECPARM = P_ONEMINUS
+  Z_SPECMULT = 8.*(Z_SPECPARM)
+  JS = 1 + INT(Z_SPECMULT)
+  Z_FS = MOD(Z_SPECMULT, 1.0_JPRB )
+! Z_FAC000 = (1. - Z_FS) * P_FAC00(I_LAY)
+! Z_FAC010 = (1. - Z_FS) * P_FAC10(I_LAY)
+! Z_FAC100 = Z_FS * P_FAC00(I_LAY)
+! Z_FAC110 = Z_FS * P_FAC10(I_LAY)
+! Z_FAC001 = (1. - Z_FS) * P_FAC01(I_LAY)
+! Z_FAC011 = (1. - Z_FS) * P_FAC11(I_LAY)
+! Z_FAC101 = Z_FS * P_FAC01(I_LAY)
+! Z_FAC111 = Z_FS * P_FAC11(I_LAY)
+  IND0 = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(21) + JS
+  IND1 = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(21) + JS
+  INDS = K_INDSELF(I_LAY)
+  INDF = K_INDFOR(I_LAY)
+  Z_TAURAY = P_COLMOL(I_LAY) * RAYL
+
+!  DO IG = 1, NG(21)
+  DO IG = 1 , NG21
+    P_TAUG(I_LAY,IG) = Z_SPECCOMB * &
+!    & (Z_FAC000 * ABSA(IND0,IG) + &
+!    & Z_FAC100 * ABSA(IND0+1,IG) + &
+!    & Z_FAC010 * ABSA(IND0+9,IG) + &
+!    & Z_FAC110 * ABSA(IND0+10,IG) + &
+!    & Z_FAC001 * ABSA(IND1,IG) + &
+!    & Z_FAC101 * ABSA(IND1+1,IG) + &
+!    & Z_FAC011 * ABSA(IND1+9,IG) + &
+!    & Z_FAC111 * ABSA(IND1+10,IG)) + &
+     & (&
+     & (1. - Z_FS) * ( ABSA(IND0,IG) * P_FAC00(I_LAY) + &
+     &                 ABSA(IND0+9,IG) * P_FAC10(I_LAY) + &
+     &                 ABSA(IND1,IG) * P_FAC01(I_LAY) + &
+     &                 ABSA(IND1+9,IG) * P_FAC11(I_LAY) ) + &
+     & Z_FS        * ( ABSA(IND0+1,IG) * P_FAC00(I_LAY) + &
+     &                 ABSA(IND0+10,IG) * P_FAC10(I_LAY) + &
+     &                 ABSA(IND1+1,IG) * P_FAC01(I_LAY) + &
+     &                 ABSA(IND1+10,IG) * P_FAC11(I_LAY) ) &
+     & ) + &
+     & P_COLH2O(I_LAY) * &
+     & (P_SELFFAC(I_LAY) * (SELFREFC(INDS,IG) + &
+     & P_SELFFRAC(I_LAY) * &
+     & (SELFREFC(INDS+1,IG) - SELFREFC(INDS,IG))) + &
+     & P_FORFAC(I_LAY) * (FORREFC(INDF,IG) + &
+     & P_FORFRAC(I_LAY) * &
+     & (FORREFC(INDF+1,IG) - FORREFC(INDF,IG))))  
+!     &           + TAURAY
+!    SSA(LAY,IG) = TAURAY/TAUG(LAY,IG)
+    IF (I_LAY == I_LAYSOLFR) P_SFLUXZEN(IG) = SFLUXREFC(IG,JS) &
+     & + Z_FS * (SFLUXREFC(IG,JS+1) - SFLUXREFC(IG,JS))  
+    P_TAUR(I_LAY,IG) = Z_TAURAY
+  ENDDO
+ENDDO
+
+DO I_LAY = K_LAYTROP+1, I_NLAYERS
+  Z_SPECCOMB = P_COLH2O(I_LAY) + STRRAT*P_COLCO2(I_LAY)
+  Z_SPECPARM = P_COLH2O(I_LAY)/Z_SPECCOMB 
+  IF (Z_SPECPARM >= P_ONEMINUS) Z_SPECPARM = P_ONEMINUS
+  Z_SPECMULT = 4.*(Z_SPECPARM)
+  JS = 1 + INT(Z_SPECMULT)
+  Z_FS = MOD(Z_SPECMULT, 1.0_JPRB )
+! Z_FAC000 = (1. - Z_FS) * P_FAC00(I_LAY)
+! Z_FAC010 = (1. - Z_FS) * P_FAC10(I_LAY)
+! Z_FAC100 = Z_FS * P_FAC00(I_LAY)
+! Z_FAC110 = Z_FS * P_FAC10(I_LAY)
+! Z_FAC001 = (1. - Z_FS) * P_FAC01(I_LAY)
+! Z_FAC011 = (1. - Z_FS) * P_FAC11(I_LAY)
+! Z_FAC101 = Z_FS * P_FAC01(I_LAY)
+! Z_FAC111 = Z_FS * P_FAC11(I_LAY)
+  IND0 = ((K_JP(I_LAY)-13)*5+(K_JT(I_LAY)-1))*NSPB(21) + JS
+  IND1 = ((K_JP(I_LAY)-12)*5+(K_JT1(I_LAY)-1))*NSPB(21) + JS
+  INDF = K_INDFOR(I_LAY)
+  Z_TAURAY = P_COLMOL(I_LAY) * RAYL
+
+!  DO IG = 1, NG(21)
+  DO IG = 1 , NG21
+    P_TAUG(I_LAY,IG) = Z_SPECCOMB * &
+!    & (Z_FAC000 * ABSB(IND0,IG) + &
+!    & Z_FAC100 * ABSB(IND0+1,IG) + &
+!    & Z_FAC010 * ABSB(IND0+5,IG) + &
+!    & Z_FAC110 * ABSB(IND0+6,IG) + &
+!    & Z_FAC001 * ABSB(IND1,IG) + &
+!    & Z_FAC101 * ABSB(IND1+1,IG) + &
+!    & Z_FAC011 * ABSB(IND1+5,IG) + &
+!    & Z_FAC111 * ABSB(IND1+6,IG)) + &
+     & (&
+     & (1. - Z_FS) * ( ABSB(IND0,IG) * P_FAC00(I_LAY) + &
+     &                 ABSB(IND0+5,IG) * P_FAC10(I_LAY) + &
+     &                 ABSB(IND1,IG) * P_FAC01(I_LAY) + &
+     &                 ABSB(IND1+5,IG) * P_FAC11(I_LAY) ) + &
+     & Z_FS        * ( ABSB(IND0+1,IG) * P_FAC00(I_LAY) + &
+     &                 ABSB(IND0+6,IG) * P_FAC10(I_LAY) + &
+     &                 ABSB(IND1+1,IG) * P_FAC01(I_LAY) + &
+     &                 ABSB(IND1+6,IG) * P_FAC11(I_LAY) ) &
+     & ) + &
+     & P_COLH2O(I_LAY) * &
+     & P_FORFAC(I_LAY) * (FORREFC(INDF,IG) + &
+     & P_FORFRAC(I_LAY) * &
+     & (FORREFC(INDF+1,IG) - FORREFC(INDF,IG)))  
+!     &           + TAURAY 
+!    SSA(LAY,IG) = TAURAY/TAUG(LAY,IG)
+    P_TAUR(I_LAY,IG) = Z_TAURAY
+  ENDDO
+ENDDO
+
+!-----------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_TAUMOL21',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_TAUMOL21
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol21.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol21.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol21.intfb.h	(revision 1989)
@@ -0,0 +1,35 @@
+INTERFACE
+SUBROUTINE SRTM_TAUMOL21&
+ & ( KLEV,&
+ & P_FAC00 , P_FAC01 , P_FAC10 , P_FAC11,&
+ & K_JP , K_JT , K_JT1 , P_ONEMINUS,&
+ & P_COLH2O , P_COLCO2 , P_COLMOL,&
+ & K_LAYTROP , P_SELFFAC, P_SELFFRAC, K_INDSELF , P_FORFAC, P_FORFRAC, K_INDFOR,&
+ & P_SFLUXZEN, P_TAUG , P_TAUR&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARSRTM , ONLY : JPLAY, JPG, NG21
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_ONEMINUS
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLH2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLCO2(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLMOL(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDSELF(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FORFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FORFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDFOR(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_SFLUXZEN(JPG)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUG(JPLAY,JPG)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUR(JPLAY,JPG)
+END SUBROUTINE SRTM_TAUMOL21
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol22.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol22.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol22.F90	(revision 1989)
@@ -0,0 +1,167 @@
+SUBROUTINE SRTM_TAUMOL22 &
+ & ( KLEV,&
+ & P_FAC00   , P_FAC01  , P_FAC10   , P_FAC11,&
+ & K_JP      , K_JT     , K_JT1     , P_ONEMINUS,&
+ & P_COLH2O  , P_COLMOL , P_COLO2,&
+ & K_LAYTROP , P_SELFFAC, P_SELFFRAC, K_INDSELF  , P_FORFAC, P_FORFRAC, K_INDFOR,&
+ & P_SFLUXZEN, P_TAUG   , P_TAUR    &
+ & )  
+
+!     Written by Eli J. Mlawer, Atmospheric & Environmental Research.
+
+!     BAND 22:  7700-8050 cm-1 (low - H2O,O2; high - O2)
+
+! Modifications
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     JJMorcrette 2003-02-24 adapted to ECMWF environment
+
+!      PARAMETER (MG=16, MXLAY=203, NBANDS=14)
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARSRTM  , ONLY : JPLAY, JPG, NG22
+USE YOESRTA22, ONLY : ABSA, ABSB, FORREFC, SELFREFC &
+ & , SFLUXREFC, RAYL &
+ & , LAYREFFR, STRRAT  
+USE YOESRTWN , ONLY : NSPA, NSPB
+
+IMPLICIT NONE
+
+!-- Output
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_ONEMINUS 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLH2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLMOL(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLO2(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDSELF(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FORFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FORFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDFOR(JPLAY) 
+
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_SFLUXZEN(JPG) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUG(JPLAY,JPG) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUR(JPLAY,JPG) 
+!- from INTFAC      
+!- from INTIND
+!- from PRECISE             
+!- from PROFDATA             
+!- from SELF             
+INTEGER(KIND=JPIM) :: IG, IND0, IND1, INDS, INDF, JS, I_LAY, I_LAYSOLFR, I_NLAYERS
+
+REAL(KIND=JPRB) :: Z_FAC000, Z_FAC001, Z_FAC010, Z_FAC011, Z_FAC100, Z_FAC101,&
+ & Z_FAC110, Z_FAC111, Z_FS, Z_SPECCOMB, Z_SPECMULT, Z_SPECPARM, &
+ & Z_TAURAY, Z_O2ADJ , Z_O2CONT  
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SRTM_TAUMOL22',0,ZHOOK_HANDLE)
+I_NLAYERS = KLEV
+
+!     The following factor is the ratio of total O2 band intensity (lines 
+!     and Mate continuum) to O2 band intensity (line only).  It is needed
+!     to adjust the optical depths since the k's include only lines.
+Z_O2ADJ = 1.6_JPRB
+      
+!     Compute the optical depth by interpolating in ln(pressure), 
+!     temperature, and appropriate species.  Below LAYTROP, the water
+!     vapor self-continuum is interpolated (in temperature) separately.  
+
+I_LAYSOLFR = K_LAYTROP
+
+DO I_LAY = 1, K_LAYTROP
+  IF (K_JP(I_LAY) < LAYREFFR .AND. K_JP(I_LAY+1) >= LAYREFFR) &
+   & I_LAYSOLFR = MIN(I_LAY+1,K_LAYTROP)  
+  Z_O2CONT = 4.35e-4*P_COLO2(I_LAY)/(350.0*2.0)
+  Z_SPECCOMB = P_COLH2O(I_LAY) + Z_O2ADJ*STRRAT*P_COLO2(I_LAY)
+  Z_SPECPARM = P_COLH2O(I_LAY)/Z_SPECCOMB 
+  IF (Z_SPECPARM >= P_ONEMINUS) Z_SPECPARM = P_ONEMINUS
+  Z_SPECMULT = 8.*(Z_SPECPARM)
+!         ODADJ = SPECPARM + O2ADJ * (1. - SPECPARM)
+  JS = 1 + INT(Z_SPECMULT)
+  Z_FS = MOD(Z_SPECMULT, 1.0_JPRB )
+! Z_FAC000 = (1. - Z_FS) * P_FAC00(I_LAY)
+! Z_FAC010 = (1. - Z_FS) * P_FAC10(I_LAY)
+! Z_FAC100 = Z_FS * P_FAC00(I_LAY)
+! Z_FAC110 = Z_FS * P_FAC10(I_LAY)
+! Z_FAC001 = (1. - Z_FS) * P_FAC01(I_LAY)
+! Z_FAC011 = (1. - Z_FS) * P_FAC11(I_LAY)
+! Z_FAC101 = Z_FS * P_FAC01(I_LAY)
+! Z_FAC111 = Z_FS * P_FAC11(I_LAY)
+  IND0 = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(22) + JS
+  IND1 = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(22) + JS
+  INDS = K_INDSELF(I_LAY)
+  INDF = K_INDFOR(I_LAY)
+  Z_TAURAY = P_COLMOL(I_LAY) * RAYL
+
+!  DO IG = 1, NG(22)
+  DO IG = 1 , NG22
+    P_TAUG(I_LAY,IG) = Z_SPECCOMB * &
+!    & (Z_FAC000 * ABSA(IND0,IG) + &
+!    & Z_FAC100 * ABSA(IND0+1,IG) + &
+!    & Z_FAC010 * ABSA(IND0+9,IG) + &
+!    & Z_FAC110 * ABSA(IND0+10,IG) + &
+!    & Z_FAC001 * ABSA(IND1,IG) + &
+!    & Z_FAC101 * ABSA(IND1+1,IG) + &
+!    & Z_FAC011 * ABSA(IND1+9,IG) + &
+!    & Z_FAC111 * ABSA(IND1+10,IG)) + &
+     & (&
+     & (1. - Z_FS) * ( ABSA(IND0,IG) * P_FAC00(I_LAY) + &
+     &                 ABSA(IND0+9,IG) * P_FAC10(I_LAY) + &
+     &                 ABSA(IND1,IG) * P_FAC01(I_LAY) + &
+     &                 ABSA(IND1+9,IG) * P_FAC11(I_LAY) ) + &
+     & Z_FS        * ( ABSA(IND0+1,IG) * P_FAC00(I_LAY) + &
+     &                 ABSA(IND0+10,IG) * P_FAC10(I_LAY) + &
+     &                 ABSA(IND1+1,IG) * P_FAC01(I_LAY) + &
+     &                 ABSA(IND1+10,IG) * P_FAC11(I_LAY) ) &
+     & ) + &
+     & P_COLH2O(I_LAY) * &
+     & (P_SELFFAC(I_LAY) * (SELFREFC(INDS,IG) + &
+     & P_SELFFRAC(I_LAY) * &
+     & (SELFREFC(INDS+1,IG) - SELFREFC(INDS,IG))) + &
+     & P_FORFAC(I_LAY) * (FORREFC(INDF,IG) + &
+     & P_FORFRAC(I_LAY) * &
+     & (FORREFC(INDF+1,IG) - FORREFC(INDF,IG)))) &
+     & + Z_O2CONT  
+!     &          + TAURAY
+!    SSA(LAY,IG) = TAURAY/TAUG(LAY,IG)
+    IF (I_LAY == I_LAYSOLFR) P_SFLUXZEN(IG) = SFLUXREFC(IG,JS) &
+     & + Z_FS * (SFLUXREFC(IG,JS+1) - SFLUXREFC(IG,JS))  
+    P_TAUR(I_LAY,IG) = Z_TAURAY
+  ENDDO
+ENDDO
+
+DO I_LAY = K_LAYTROP+1, I_NLAYERS
+  Z_O2CONT = 4.35e-4*P_COLO2(I_LAY)/(350.0*2.0)
+  IND0 = ((K_JP(I_LAY)-13)*5+(K_JT(I_LAY)-1))*NSPB(22) + 1
+  IND1 = ((K_JP(I_LAY)-12)*5+(K_JT1(I_LAY)-1))*NSPB(22) + 1
+  Z_TAURAY = P_COLMOL(I_LAY) * RAYL
+
+!  DO IG = 1, NG(22)
+  DO IG = 1 , NG22
+    P_TAUG(I_LAY,IG) = P_COLO2(I_LAY) * Z_O2ADJ * &
+     & (P_FAC00(I_LAY) * ABSB(IND0,IG) + &
+     & P_FAC10(I_LAY) * ABSB(IND0+1,IG) + &
+     & P_FAC01(I_LAY) * ABSB(IND1,IG) + &
+     & P_FAC11(I_LAY) * ABSB(IND1+1,IG)) + &
+     & Z_O2CONT  
+!     &           + TAURAY
+!    SSA(LAY,IG) = TAURAY/TAUG(LAY,IG)
+    P_TAUR(I_LAY,IG) = Z_TAURAY
+  ENDDO
+ENDDO
+
+!-----------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_TAUMOL22',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_TAUMOL22
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol22.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol22.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol22.intfb.h	(revision 1989)
@@ -0,0 +1,35 @@
+INTERFACE
+SUBROUTINE SRTM_TAUMOL22&
+ & ( KLEV,&
+ & P_FAC00 , P_FAC01 , P_FAC10 , P_FAC11,&
+ & K_JP , K_JT , K_JT1 , P_ONEMINUS,&
+ & P_COLH2O , P_COLMOL , P_COLO2,&
+ & K_LAYTROP , P_SELFFAC, P_SELFFRAC, K_INDSELF , P_FORFAC, P_FORFRAC, K_INDFOR,&
+ & P_SFLUXZEN, P_TAUG , P_TAUR&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARSRTM , ONLY : JPLAY, JPG, NG22
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_ONEMINUS
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLH2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLMOL(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLO2(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDSELF(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FORFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FORFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDFOR(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_SFLUXZEN(JPG)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUG(JPLAY,JPG)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUR(JPLAY,JPG)
+END SUBROUTINE SRTM_TAUMOL22
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol23.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol23.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol23.F90	(revision 1989)
@@ -0,0 +1,117 @@
+SUBROUTINE SRTM_TAUMOL23 &
+ & ( KLEV,&
+ & P_FAC00   , P_FAC01  , P_FAC10   , P_FAC11,&
+ & K_JP      , K_JT     , K_JT1     , P_ONEMINUS,&
+ & P_COLH2O  , P_COLMOL,&
+ & K_LAYTROP , P_SELFFAC, P_SELFFRAC, K_INDSELF  , P_FORFAC, P_FORFRAC, K_INDFOR,&
+ & P_SFLUXZEN, P_TAUG   , P_TAUR    &
+ & )  
+
+!     Written by Eli J. Mlawer, Atmospheric & Environmental Research.
+
+!     BAND 23:  8050-12850 cm-1 (low - H2O; high - nothing)
+
+! Modifications
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     JJMorcrette 2003-02-24 adapted to ECMWF environment
+
+!      PARAMETER (MG=16, MXLAY=203, NBANDS=14)
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARSRTM  , ONLY : JPLAY, JPG, NG23
+USE YOESRTA23, ONLY : ABSA, FORREFC, SELFREFC &
+ & , SFLUXREFC, RAYLC &
+ & , LAYREFFR, GIVFAC   
+USE YOESRTWN , ONLY : NSPA
+
+IMPLICIT NONE
+
+!-- Output
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)                  :: P_ONEMINUS ! Argument NOT used
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLH2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLMOL(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDSELF(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FORFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FORFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDFOR(JPLAY)
+ 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_SFLUXZEN(JPG) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUG(JPLAY,JPG) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUR(JPLAY,JPG) 
+!- from INTFAC      
+!- from INTIND
+!- from PRECISE             
+!- from PROFDATA             
+!- from SELF             
+INTEGER(KIND=JPIM) :: IG, IND0, IND1, INDS, INDF, I_LAY, I_LAYSOLFR, I_NLAYERS
+
+REAL(KIND=JPRB) ::  &
+ & Z_TAURAY  
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SRTM_TAUMOL23',0,ZHOOK_HANDLE)
+I_NLAYERS = KLEV
+
+!     Compute the optical depth by interpolating in ln(pressure), 
+!     temperature, and appropriate species.  Below LAYTROP, the water
+!     vapor self-continuum is interpolated (in temperature) separately.  
+
+I_LAYSOLFR = K_LAYTROP
+
+DO I_LAY = 1, K_LAYTROP
+  IF (K_JP(I_LAY) < LAYREFFR .AND. K_JP(I_LAY+1) >= LAYREFFR) &
+   & I_LAYSOLFR = MIN(I_LAY+1,K_LAYTROP)  
+  IND0 = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(23) + 1
+  IND1 = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(23) + 1
+  INDS = K_INDSELF(I_LAY)
+  INDF = K_INDFOR(I_LAY)
+
+!  DO IG = 1, NG(23)
+  DO IG = 1 , NG23
+    Z_TAURAY = P_COLMOL(I_LAY) * RAYLC(IG)
+    P_TAUG(I_LAY,IG) = P_COLH2O(I_LAY) * &
+     & (GIVFAC * (P_FAC00(I_LAY) * ABSA(IND0,IG) + &
+     & P_FAC10(I_LAY) * ABSA(IND0+1,IG) + &
+     & P_FAC01(I_LAY) * ABSA(IND1,IG) + &
+     & P_FAC11(I_LAY) * ABSA(IND1+1,IG)) + &
+     & P_SELFFAC(I_LAY) * (SELFREFC(INDS,IG) + &
+     & P_SELFFRAC(I_LAY) * &
+     & (SELFREFC(INDS+1,IG) - SELFREFC(INDS,IG))) + &
+     & P_FORFAC(I_LAY) * (FORREFC(INDF,IG) + &
+     & P_FORFRAC(I_LAY) * &
+     & (FORREFC(INDF+1,IG) - FORREFC(INDF,IG))))   
+!     &          + TAURAY
+!    SSA(LAY,IG) = TAURAY/TAUG(LAY,IG)
+    IF (I_LAY == I_LAYSOLFR) P_SFLUXZEN(IG) = SFLUXREFC(IG) 
+    P_TAUR(I_LAY,IG) = Z_TAURAY
+  ENDDO
+ENDDO
+
+DO I_LAY = K_LAYTROP+1, I_NLAYERS
+!  DO IG = 1, NG(23)
+  DO IG = 1 , NG23
+!    TAUG(LAY,IG) = COLMOL(LAY) * RAYLC(IG)
+!    SSA(LAY,IG) = 1.0
+    P_TAUG(I_LAY,IG) = 0.0_JPRB
+    P_TAUR(I_LAY,IG) = P_COLMOL(I_LAY) * RAYLC(IG) 
+  ENDDO
+ENDDO
+
+!-----------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_TAUMOL23',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_TAUMOL23
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol23.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol23.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol23.intfb.h	(revision 1989)
@@ -0,0 +1,34 @@
+INTERFACE
+SUBROUTINE SRTM_TAUMOL23&
+ & ( KLEV,&
+ & P_FAC00 , P_FAC01 , P_FAC10 , P_FAC11,&
+ & K_JP , K_JT , K_JT1 , P_ONEMINUS,&
+ & P_COLH2O , P_COLMOL,&
+ & K_LAYTROP , P_SELFFAC, P_SELFFRAC, K_INDSELF , P_FORFAC, P_FORFRAC, K_INDFOR,&
+ & P_SFLUXZEN, P_TAUG , P_TAUR&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARSRTM , ONLY : JPLAY, JPG, NG23
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) :: P_ONEMINUS
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLH2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLMOL(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDSELF(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FORFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FORFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDFOR(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_SFLUXZEN(JPG)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUG(JPLAY,JPG)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUR(JPLAY,JPG)
+END SUBROUTINE SRTM_TAUMOL23
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol24.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol24.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol24.F90	(revision 1989)
@@ -0,0 +1,161 @@
+SUBROUTINE SRTM_TAUMOL24 &
+ & ( KLEV,&
+ & P_FAC00   , P_FAC01  , P_FAC10   , P_FAC11,&
+ & K_JP      , K_JT     , K_JT1     , P_ONEMINUS,&
+ & P_COLH2O  , P_COLMOL , P_COLO2   , P_COLO3,&
+ & K_LAYTROP , P_SELFFAC, P_SELFFRAC, K_INDSELF  , P_FORFAC, P_FORFRAC, K_INDFOR,&
+ & P_SFLUXZEN, P_TAUG   , P_TAUR    &
+ & )  
+
+!     Written by Eli J. Mlawer, Atmospheric & Environmental Research.
+
+!     BAND 24:  12850-16000 cm-1 (low - H2O,O2; high - O2)
+
+! Modifications
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     JJMorcrette 2003-02-24 adapted to ECMWF environment
+
+!      PARAMETER (MG=16, MXLAY=203, NBANDS=14)
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARSRTM  , ONLY : JPLAY, JPG, NG24
+USE YOESRTA24, ONLY : ABSA, ABSB, FORREFC, SELFREFC &
+ & , SFLUXREFC, ABSO3AC, ABSO3BC, RAYLAC, RAYLBC &
+ & , LAYREFFR, STRRAT  
+USE YOESRTWN , ONLY : NSPA, NSPB
+
+IMPLICIT NONE
+
+!-- Output
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_ONEMINUS 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLH2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLMOL(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLO2(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLO3(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDSELF(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FORFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FORFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDFOR(JPLAY) 
+
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_SFLUXZEN(JPG) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUG(JPLAY,JPG) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUR(JPLAY,JPG) 
+!- from INTFAC      
+!- from INTIND
+!- from PRECISE             
+!- from PROFDATA             
+!- from SELF             
+INTEGER(KIND=JPIM) :: IG, IND0, IND1, INDS, INDF, JS, I_LAY, I_LAYSOLFR, I_NLAYERS
+
+REAL(KIND=JPRB) :: Z_FAC000, Z_FAC001, Z_FAC010, Z_FAC011, Z_FAC100, Z_FAC101,&
+ & Z_FAC110, Z_FAC111, Z_FS, Z_SPECCOMB, Z_SPECMULT, Z_SPECPARM, &
+ & Z_TAURAY  
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SRTM_TAUMOL24',0,ZHOOK_HANDLE)
+I_NLAYERS = KLEV
+
+!     Compute the optical depth by interpolating in ln(pressure), 
+!     temperature, and appropriate species.  Below LAYTROP, the water
+!     vapor self-continuum is interpolated (in temperature) separately.  
+
+I_LAYSOLFR = K_LAYTROP
+
+DO I_LAY = 1, K_LAYTROP
+  IF (K_JP(I_LAY) < LAYREFFR .AND. K_JP(I_LAY+1) >= LAYREFFR) &
+   & I_LAYSOLFR = MIN(I_LAY+1,K_LAYTROP)  
+  Z_SPECCOMB = P_COLH2O(I_LAY) + STRRAT*P_COLO2(I_LAY)
+  Z_SPECPARM = P_COLH2O(I_LAY)/Z_SPECCOMB 
+  IF (Z_SPECPARM >= P_ONEMINUS) Z_SPECPARM = P_ONEMINUS
+  Z_SPECMULT = 8.*(Z_SPECPARM)
+  JS = 1 + INT(Z_SPECMULT)
+  Z_FS = MOD(Z_SPECMULT, 1.0_JPRB )
+! Z_FAC000 = (1. - Z_FS) * P_FAC00(I_LAY)
+! Z_FAC010 = (1. - Z_FS) * P_FAC10(I_LAY)
+! Z_FAC100 = Z_FS * P_FAC00(I_LAY)
+! Z_FAC110 = Z_FS * P_FAC10(I_LAY)
+! Z_FAC001 = (1. - Z_FS) * P_FAC01(I_LAY)
+! Z_FAC011 = (1. - Z_FS) * P_FAC11(I_LAY)
+! Z_FAC101 = Z_FS * P_FAC01(I_LAY)
+! Z_FAC111 = Z_FS * P_FAC11(I_LAY)
+  IND0 = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(24) + JS
+  IND1 = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(24) + JS
+  INDS = K_INDSELF(I_LAY)
+  INDF = K_INDFOR(I_LAY)
+
+!  DO IG = 1, NG(24)
+  DO IG = 1 , NG24
+    Z_TAURAY = P_COLMOL(I_LAY) * (RAYLAC(IG,JS) + &
+     & Z_FS * (RAYLAC(IG,JS+1) - RAYLAC(IG,JS)))  
+    P_TAUG(I_LAY,IG) = Z_SPECCOMB * &
+!    & (Z_FAC000 * ABSA(IND0,IG) + &
+!    & Z_FAC100 * ABSA(IND0+1,IG) + &
+!    & Z_FAC010 * ABSA(IND0+9,IG) + &
+!    & Z_FAC110 * ABSA(IND0+10,IG) + &
+!    & Z_FAC001 * ABSA(IND1,IG) + &
+!    & Z_FAC101 * ABSA(IND1+1,IG) + &
+!    & Z_FAC011 * ABSA(IND1+9,IG) + &
+!    & Z_FAC111 * ABSA(IND1+10,IG)) + &
+     & (&
+     & (1. - Z_FS) * ( ABSA(IND0,IG) * P_FAC00(I_LAY) + &
+     &                 ABSA(IND0+9,IG) * P_FAC10(I_LAY) + &
+     &                 ABSA(IND1,IG) * P_FAC01(I_LAY) + &
+     &                 ABSA(IND1+9,IG) * P_FAC11(I_LAY) ) + &
+     & Z_FS        * ( ABSA(IND0+1,IG) * P_FAC00(I_LAY) + &
+     &                 ABSA(IND0+10,IG) * P_FAC10(I_LAY) + &
+     &                 ABSA(IND1+1,IG) * P_FAC01(I_LAY) + &
+     &                 ABSA(IND1+10,IG) * P_FAC11(I_LAY) ) &
+     & ) + &
+     & P_COLO3(I_LAY) * ABSO3AC(IG) + &
+     & P_COLH2O(I_LAY) *  &
+     & (P_SELFFAC(I_LAY) * (SELFREFC(INDS,IG) + &
+     & P_SELFFRAC(I_LAY) * &
+     & (SELFREFC(INDS+1,IG) - SELFREFC(INDS,IG))) + &
+     & P_FORFAC(I_LAY) * (FORREFC(INDF,IG) +  &
+     & P_FORFRAC(I_LAY) * &
+     & (FORREFC(INDF+1,IG) - FORREFC(INDF,IG))))  
+!     &           + TAURAY
+!    SSA(LAY,IG) = TAURAY/TAUG(LAY,IG)
+    IF (I_LAY == I_LAYSOLFR) P_SFLUXZEN(IG) = SFLUXREFC(IG,JS) &
+     & + Z_FS * (SFLUXREFC(IG,JS+1) - SFLUXREFC(IG,JS))  
+    P_TAUR(I_LAY,IG) =  Z_TAURAY
+  ENDDO
+ENDDO
+
+DO I_LAY = K_LAYTROP+1, I_NLAYERS
+  IND0 = ((K_JP(I_LAY)-13)*5+(K_JT(I_LAY)-1))*NSPB(24) + 1
+  IND1 = ((K_JP(I_LAY)-12)*5+(K_JT1(I_LAY)-1))*NSPB(24) + 1
+
+!  DO IG = 1, NG(24)
+  DO IG = 1 , NG24
+    Z_TAURAY = P_COLMOL(I_LAY) * RAYLBC(IG)
+    P_TAUG(I_LAY,IG) = P_COLO2(I_LAY) * &
+     & (P_FAC00(I_LAY) * ABSB(IND0,IG) + &
+     & P_FAC10(I_LAY) * ABSB(IND0+1,IG) + &
+     & P_FAC01(I_LAY) * ABSB(IND1,IG) + &
+     & P_FAC11(I_LAY) * ABSB(IND1+1,IG)) + &
+     & P_COLO3(I_LAY) * ABSO3BC(IG)  
+!     &          + TAURAY
+!    SSA(LAY,IG) = TAURAY/TAUG(LAY,IG)
+    P_TAUR(I_LAY,IG) = Z_TAURAY
+  ENDDO
+ENDDO
+
+!-----------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_TAUMOL24',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_TAUMOL24
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol24.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol24.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol24.intfb.h	(revision 1989)
@@ -0,0 +1,36 @@
+INTERFACE
+SUBROUTINE SRTM_TAUMOL24&
+ & ( KLEV,&
+ & P_FAC00 , P_FAC01 , P_FAC10 , P_FAC11,&
+ & K_JP , K_JT , K_JT1 , P_ONEMINUS,&
+ & P_COLH2O , P_COLMOL , P_COLO2 , P_COLO3,&
+ & K_LAYTROP , P_SELFFAC, P_SELFFRAC, K_INDSELF , P_FORFAC, P_FORFRAC, K_INDFOR,&
+ & P_SFLUXZEN, P_TAUG , P_TAUR&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARSRTM , ONLY : JPLAY, JPG, NG24
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_ONEMINUS
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLH2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLMOL(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLO2(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLO3(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDSELF(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FORFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FORFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDFOR(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_SFLUXZEN(JPG)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUG(JPLAY,JPG)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUR(JPLAY,JPG)
+END SUBROUTINE SRTM_TAUMOL24
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol25.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol25.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol25.F90	(revision 1989)
@@ -0,0 +1,108 @@
+SUBROUTINE SRTM_TAUMOL25 &
+ & ( KLEV,&
+ & P_FAC00   , P_FAC01  , P_FAC10   , P_FAC11,&
+ & K_JP      , K_JT     , K_JT1     , P_ONEMINUS,&
+ & P_COLH2O  , P_COLMOL , P_COLO3,&
+ & K_LAYTROP,&
+ & P_SFLUXZEN, P_TAUG   , P_TAUR    &
+ & )  
+
+!     Written by Eli J. Mlawer, Atmospheric & Environmental Research.
+
+!     BAND 25:  16000-22650 cm-1 (low - H2O; high - nothing)
+
+!      PARAMETER (MG=16, MXLAY=203, NBANDS=14)
+
+! Modifications
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     JJMorcrette 2003-02-24 adapted to ECMWF environment
+
+!      PARAMETER (MG=16, MXLAY=203, NBANDS=14)
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARSRTM  , ONLY : JPLAY, JPG, NG25
+USE YOESRTA25, ONLY : ABSA &
+ & , SFLUXREFC, ABSO3AC, ABSO3BC, RAYLC &
+ & , LAYREFFR  
+USE YOESRTWN , ONLY : NSPA
+
+IMPLICIT NONE
+
+!-- Output
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)                  :: P_ONEMINUS ! Argument NOT used
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLH2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLMOL(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLO3(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_SFLUXZEN(JPG) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUG(JPLAY,JPG) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUR(JPLAY,JPG) 
+!- from INTFAC      
+!- from INTIND
+!- from PRECISE             
+!- from PROFDATA             
+!- from SELF             
+INTEGER(KIND=JPIM) :: IG, IND0, IND1, I_LAY, I_LAYSOLFR, I_NLAYERS
+
+REAL(KIND=JPRB) ::  &
+ & Z_TAURAY  
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SRTM_TAUMOL25',0,ZHOOK_HANDLE)
+I_NLAYERS = KLEV
+
+!     Compute the optical depth by interpolating in ln(pressure), 
+!     temperature, and appropriate species.  Below LAYTROP, the water
+!     vapor self-continuum is interpolated (in temperature) separately.  
+
+I_LAYSOLFR = K_LAYTROP
+
+DO I_LAY = 1, K_LAYTROP
+  IF (K_JP(I_LAY) < LAYREFFR .AND. K_JP(I_LAY+1) >= LAYREFFR) &
+   & I_LAYSOLFR = MIN(I_LAY+1,K_LAYTROP)  
+  IND0 = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(25) + 1
+  IND1 = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(25) + 1
+
+!  DO IG = 1, NG(25)
+  DO IG = 1 , NG25
+    Z_TAURAY = P_COLMOL(I_LAY) * RAYLC(IG)
+    P_TAUG(I_LAY,IG) = P_COLH2O(I_LAY) * &
+     & (P_FAC00(I_LAY) * ABSA(IND0,IG) + &
+     & P_FAC10(I_LAY) * ABSA(IND0+1,IG) + &
+     & P_FAC01(I_LAY) * ABSA(IND1,IG) + &
+     & P_FAC11(I_LAY) * ABSA(IND1+1,IG)) + &
+     & P_COLO3(I_LAY) * ABSO3AC(IG)   
+!     &          + TAURAY
+!    SSA(LAY,IG) = TAURAY/TAUG(LAY,IG)
+    IF (I_LAY == I_LAYSOLFR) P_SFLUXZEN(IG) = SFLUXREFC(IG) 
+    P_TAUR(I_LAY,IG) = Z_TAURAY
+  ENDDO
+ENDDO
+
+DO I_LAY = K_LAYTROP+1, I_NLAYERS
+!  DO IG = 1, NG(25)
+  DO IG = 1 , NG25
+    Z_TAURAY = P_COLMOL(I_LAY) * RAYLC(IG)
+    P_TAUG(I_LAY,IG) = P_COLO3(I_LAY) * ABSO3BC(IG) 
+!     &          + TAURAY
+!    SSA(LAY,IG) = TAURAY/TAUG(LAY,IG)
+    P_TAUR(I_LAY,IG) = Z_TAURAY
+  ENDDO
+ENDDO
+
+!-----------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_TAUMOL25',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_TAUMOL25
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol25.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol25.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol25.intfb.h	(revision 1989)
@@ -0,0 +1,29 @@
+INTERFACE
+SUBROUTINE SRTM_TAUMOL25&
+ & ( KLEV,&
+ & P_FAC00 , P_FAC01 , P_FAC10 , P_FAC11,&
+ & K_JP , K_JT , K_JT1 , P_ONEMINUS,&
+ & P_COLH2O , P_COLMOL , P_COLO3,&
+ & K_LAYTROP,&
+ & P_SFLUXZEN, P_TAUG , P_TAUR&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARSRTM , ONLY : JPLAY, JPG, NG25
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) :: P_ONEMINUS
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLH2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLMOL(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLO3(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_SFLUXZEN(JPG)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUG(JPLAY,JPG)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUR(JPLAY,JPG)
+END SUBROUTINE SRTM_TAUMOL25
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol26.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol26.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol26.F90	(revision 1989)
@@ -0,0 +1,94 @@
+SUBROUTINE SRTM_TAUMOL26 &
+ & ( KLEV,&
+ & P_FAC00   , P_FAC01  , P_FAC10   , P_FAC11,&
+ & K_JP      , K_JT     , K_JT1     , P_ONEMINUS,&
+ & P_COLH2O  , P_COLCO2 , P_COLMOL,&
+ & K_LAYTROP , P_SELFFAC, P_SELFFRAC, K_INDSELF  , P_FORFAC, P_FORFRAC, K_INDFOR,&
+ & P_SFLUXZEN, P_TAUG   , P_TAUR    &
+ & )  
+
+!     Written by Eli J. Mlawer, Atmospheric & Environmental Research.
+
+!     BAND 26:  22650-29000 cm-1 (low - nothing; high - nothing)
+
+!      PARAMETER (MG=16, MXLAY=203, NBANDS=14)
+
+! Modifications
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     JJMorcrette 2003-02-24 adapted to ECMWF environment
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARSRTM  , ONLY : JPLAY, JPG, NG26
+USE YOESRTA26, ONLY : SFLUXREFC, RAYLC
+IMPLICIT NONE
+
+!-- Output
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)                  :: P_FAC00(JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)                  :: P_FAC01(JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)                  :: P_FAC10(JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)                  :: P_FAC11(JPLAY) ! Argument NOT used
+INTEGER(KIND=JPIM)               :: K_JP(JPLAY) ! Argument NOT used
+INTEGER(KIND=JPIM)               :: K_JT(JPLAY) ! Argument NOT used
+INTEGER(KIND=JPIM)               :: K_JT1(JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)                  :: P_ONEMINUS ! Argument NOT used
+REAL(KIND=JPRB)                  :: P_COLH2O(JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)                  :: P_COLCO2(JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLMOL(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+REAL(KIND=JPRB)                  :: P_SELFFAC(JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)                  :: P_SELFFRAC(JPLAY) ! Argument NOT used
+INTEGER(KIND=JPIM)               :: K_INDSELF(JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)                  :: P_FORFAC(JPLAY) ! Argument NOT used
+REAL(KIND=JPRB)                  :: P_FORFRAC(JPLAY) ! Argument NOT used
+INTEGER(KIND=JPIM)               :: K_INDFOR(JPLAY) ! Argument NOT used
+
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_SFLUXZEN(JPG) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUG(JPLAY,JPG) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUR(JPLAY,JPG) 
+!- from AER
+!- from INTFAC      
+!- from INTIND
+!- from PRECISE             
+!- from PROFDATA             
+!- from SELF             
+INTEGER(KIND=JPIM) :: IG, I_LAY, I_LAYSOLFR, I_NLAYERS
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SRTM_TAUMOL26',0,ZHOOK_HANDLE)
+I_NLAYERS = KLEV
+
+!     Compute the optical depth by interpolating in ln(pressure), 
+!     temperature, and appropriate species.  Below LAYTROP, the water
+!     vapor self-continuum is interpolated (in temperature) separately.  
+I_LAYSOLFR = K_LAYTROP
+
+DO I_LAY = 1, K_LAYTROP
+!  DO IG = 1, NG(26)
+  DO IG = 1 , NG26 
+!    TAUG(LAY,IG) = COLMOL(LAY) * RAYLC(IG)
+!    SSA(LAY,IG) = 1.0
+    IF (I_LAY == I_LAYSOLFR) P_SFLUXZEN(IG) = SFLUXREFC(IG) 
+    P_TAUG(I_LAY,IG) = 0.0_JPRB
+    P_TAUR(I_LAY,IG) = P_COLMOL(I_LAY) * RAYLC(IG) 
+  ENDDO
+ENDDO
+
+DO I_LAY = K_LAYTROP+1, I_NLAYERS
+!  DO IG = 1, NG(26)
+  DO IG = 1 , NG26
+!    TAUG(LAY,IG) = COLMOL(LAY) * RAYLC(IG)
+!    SSA(LAY,IG) = 1.0
+    P_TAUG(I_LAY,IG) = 0.0_JPRB
+    P_TAUR(I_LAY,IG) = P_COLMOL(I_LAY) * RAYLC(IG) 
+  ENDDO
+ENDDO
+
+!-----------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_TAUMOL26',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_TAUMOL26
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol26.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol26.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol26.intfb.h	(revision 1989)
@@ -0,0 +1,35 @@
+INTERFACE
+SUBROUTINE SRTM_TAUMOL26&
+ & ( KLEV,&
+ & P_FAC00 , P_FAC01 , P_FAC10 , P_FAC11,&
+ & K_JP , K_JT , K_JT1 , P_ONEMINUS,&
+ & P_COLH2O , P_COLCO2 , P_COLMOL,&
+ & K_LAYTROP , P_SELFFAC, P_SELFFRAC, K_INDSELF , P_FORFAC, P_FORFRAC, K_INDFOR,&
+ & P_SFLUXZEN, P_TAUG , P_TAUR&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARSRTM , ONLY : JPLAY, JPG, NG26
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) :: P_FAC11(JPLAY)
+INTEGER(KIND=JPIM) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) :: P_ONEMINUS
+REAL(KIND=JPRB) :: P_COLH2O(JPLAY)
+REAL(KIND=JPRB) :: P_COLCO2(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLMOL(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+REAL(KIND=JPRB) :: P_SELFFAC(JPLAY)
+REAL(KIND=JPRB) :: P_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM) :: K_INDSELF(JPLAY)
+REAL(KIND=JPRB) :: P_FORFAC(JPLAY)
+REAL(KIND=JPRB) :: P_FORFRAC(JPLAY)
+INTEGER(KIND=JPIM) :: K_INDFOR(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_SFLUXZEN(JPG)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUG(JPLAY,JPG)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUR(JPLAY,JPG)
+END SUBROUTINE SRTM_TAUMOL26
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol27.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol27.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol27.F90	(revision 1989)
@@ -0,0 +1,110 @@
+SUBROUTINE SRTM_TAUMOL27 &
+ & ( KLEV,&
+ & P_FAC00   , P_FAC01  , P_FAC10   , P_FAC11,&
+ & K_JP      , K_JT     , K_JT1     , P_ONEMINUS,&
+ & P_COLMOL  , P_COLO3,&
+ & K_LAYTROP,&
+ & P_SFLUXZEN, P_TAUG   , P_TAUR    &
+ & )  
+
+!     Written by Eli J. Mlawer, Atmospheric & Environmental Research.
+
+!     BAND 27:  29000-38000 cm-1 (low - O3; high - O3)
+
+! Modifications
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     JJMorcrette 2003-02-24 adapted to ECMWF environment
+
+!      PARAMETER (MG=16, MXLAY=203, NBANDS=14)
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARSRTM  , ONLY : JPLAY, JPG, NG27
+USE YOESRTA27, ONLY : ABSA, ABSB &
+ & , SFLUXREFC, RAYLC &
+ & , LAYREFFR, SCALEKUR  
+USE YOESRTWN , ONLY : NSPA, NSPB
+
+IMPLICIT NONE
+
+!-- Output
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)                  :: P_ONEMINUS ! Argument NOT used
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLMOL(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLO3(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_SFLUXZEN(JPG) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUG(JPLAY,JPG) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUR(JPLAY,JPG) 
+!- from INTFAC      
+!- from INTIND
+!- from PRECISE             
+!- from PROFDATA             
+!- from SELF             
+INTEGER(KIND=JPIM) :: IG, IND0, IND1, I_LAY, I_LAYSOLFR, I_NLAYERS
+
+REAL(KIND=JPRB) ::  &
+ & Z_TAURAY  
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SRTM_TAUMOL27',0,ZHOOK_HANDLE)
+I_NLAYERS = KLEV
+
+!     Compute the optical depth by interpolating in ln(pressure), 
+!     temperature, and appropriate species.  Below LAYTROP, the water
+!     vapor self-continuum is interpolated (in temperature) separately.  
+DO I_LAY = 1, K_LAYTROP
+  IND0 = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(27) + 1
+  IND1 = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(27) + 1
+
+!  DO IG = 1, NG(27)
+  DO IG = 1 , NG27
+    Z_TAURAY = P_COLMOL(I_LAY) * RAYLC(IG)
+    P_TAUG(I_LAY,IG) = P_COLO3(I_LAY) * &
+     & (P_FAC00(I_LAY) * ABSA(IND0,IG) + &
+     & P_FAC10(I_LAY) * ABSA(IND0+1,IG) + &
+     & P_FAC01(I_LAY) * ABSA(IND1,IG) + &
+     & P_FAC11(I_LAY) * ABSA(IND1+1,IG))  
+!     &          + TAURAY
+!    SSA(LAY,IG) = TAURAY/TAUG(LAY,IG)
+    P_TAUR(I_LAY,IG) = Z_TAURAY
+  ENDDO
+ENDDO
+
+I_LAYSOLFR = I_NLAYERS
+
+DO I_LAY = K_LAYTROP+1, I_NLAYERS
+  IF (K_JP(I_LAY-1) < LAYREFFR .AND. K_JP(I_LAY) >= LAYREFFR) &
+   & I_LAYSOLFR = I_LAY  
+  IND0 = ((K_JP(I_LAY)-13)*5+(K_JT(I_LAY)-1))*NSPB(27) + 1
+  IND1 = ((K_JP(I_LAY)-12)*5+(K_JT1(I_LAY)-1))*NSPB(27) + 1
+
+!  DO IG = 1, NG(27)
+  DO IG = 1 , NG27
+    Z_TAURAY = P_COLMOL(I_LAY) * RAYLC(IG)
+    P_TAUG(I_LAY,IG) = P_COLO3(I_LAY) * &
+     & (P_FAC00(I_LAY) * ABSB(IND0,IG) + &
+     & P_FAC10(I_LAY) * ABSB(IND0+1,IG) + &
+     & P_FAC01(I_LAY) * ABSB(IND1,IG) +  &
+     & P_FAC11(I_LAY) * ABSB(IND1+1,IG))  
+!     &          + TAURAY
+!    SSA(LAY,IG) = TAURAY/TAUG(LAY,IG)
+    IF (I_LAY == I_LAYSOLFR) P_SFLUXZEN(IG) = SCALEKUR * SFLUXREFC(IG) 
+    P_TAUR(I_LAY,IG) = Z_TAURAY
+  ENDDO
+ENDDO
+
+!-----------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_TAUMOL27',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_TAUMOL27
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol27.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol27.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol27.intfb.h	(revision 1989)
@@ -0,0 +1,28 @@
+INTERFACE
+SUBROUTINE SRTM_TAUMOL27&
+ & ( KLEV,&
+ & P_FAC00 , P_FAC01 , P_FAC10 , P_FAC11,&
+ & K_JP , K_JT , K_JT1 , P_ONEMINUS,&
+ & P_COLMOL , P_COLO3,&
+ & K_LAYTROP,&
+ & P_SFLUXZEN, P_TAUG , P_TAUR&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARSRTM , ONLY : JPLAY, JPG, NG27
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) :: P_ONEMINUS
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLMOL(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLO3(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_SFLUXZEN(JPG)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUG(JPLAY,JPG)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUR(JPLAY,JPG)
+END SUBROUTINE SRTM_TAUMOL27
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol28.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol28.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol28.F90	(revision 1989)
@@ -0,0 +1,170 @@
+SUBROUTINE SRTM_TAUMOL28 &
+ & ( KLEV,&
+ & P_FAC00   , P_FAC01  , P_FAC10   , P_FAC11,&
+ & K_JP      , K_JT     , K_JT1     , P_ONEMINUS,&
+ & P_COLMOL  , P_COLO2  , P_COLO3,&
+ & K_LAYTROP,&
+ & P_SFLUXZEN, P_TAUG   , P_TAUR    &
+ & )  
+
+!     Written by Eli J. Mlawer, Atmospheric & Environmental Research.
+
+!     BAND 28:  38000-50000 cm-1 (low - O3,O2; high - O3,O2)
+
+! Modifications
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     JJMorcrette 2003-02-24 adapted to ECMWF environment
+
+!      PARAMETER (MG=16, MXLAY=203, NBANDS=14)
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARSRTM  , ONLY : JPLAY, JPG, NG28
+USE YOESRTA28, ONLY : ABSA, ABSB &
+ & , SFLUXREFC, RAYL &
+ & , LAYREFFR, STRRAT  
+USE YOESRTWN , ONLY : NSPA, NSPB
+
+IMPLICIT NONE
+
+!-- Output
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_ONEMINUS 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLMOL(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLO2(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLO3(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_SFLUXZEN(JPG) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUG(JPLAY,JPG) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUR(JPLAY,JPG) 
+!- from INTFAC      
+!- from INTIND
+!- from PRECISE             
+!- from PROFDATA             
+!- from SELF             
+INTEGER(KIND=JPIM) :: IG, IND0, IND1, JS, I_LAY, I_LAYSOLFR, I_NLAYERS
+
+REAL(KIND=JPRB) :: Z_FAC000, Z_FAC001, Z_FAC010, Z_FAC011, Z_FAC100, Z_FAC101,&
+ & Z_FAC110, Z_FAC111, Z_FS, Z_SPECCOMB, Z_SPECMULT, Z_SPECPARM, &
+ & Z_TAURAY  
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SRTM_TAUMOL28',0,ZHOOK_HANDLE)
+I_NLAYERS = KLEV
+
+!     Compute the optical depth by interpolating in ln(pressure), 
+!     temperature, and appropriate species.  Below LAYTROP, the water
+!     vapor self-continuum is interpolated (in temperature) separately.  
+
+DO I_LAY = 1, K_LAYTROP
+  Z_SPECCOMB = P_COLO3(I_LAY) + STRRAT*P_COLO2(I_LAY)
+  Z_SPECPARM = P_COLO3(I_LAY)/Z_SPECCOMB 
+  IF (Z_SPECPARM >= P_ONEMINUS) Z_SPECPARM = P_ONEMINUS
+  Z_SPECMULT = 8.*(Z_SPECPARM)
+  JS = 1 + INT(Z_SPECMULT)
+  Z_FS = MOD(Z_SPECMULT, 1.0_JPRB )
+! Z_FAC000 = (1. - Z_FS) * P_FAC00(I_LAY)
+! Z_FAC010 = (1. - Z_FS) * P_FAC10(I_LAY)
+! Z_FAC100 = Z_FS * P_FAC00(I_LAY)
+! Z_FAC110 = Z_FS * P_FAC10(I_LAY)
+! Z_FAC001 = (1. - Z_FS) * P_FAC01(I_LAY)
+! Z_FAC011 = (1. - Z_FS) * P_FAC11(I_LAY)
+! Z_FAC101 = Z_FS * P_FAC01(I_LAY)
+! Z_FAC111 = Z_FS * P_FAC11(I_LAY)
+  IND0 = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(28) + JS
+  IND1 = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(28) + JS
+  Z_TAURAY = P_COLMOL(I_LAY) * RAYL
+
+!  DO IG = 1, NG(28)
+  DO IG = 1 , NG28
+    P_TAUG(I_LAY,IG) = Z_SPECCOMB * &
+!    & (Z_FAC000 * ABSA(IND0,IG) + &
+!    & Z_FAC100 * ABSA(IND0+1,IG) + &
+!    & Z_FAC010 * ABSA(IND0+9,IG) + &
+!    & Z_FAC110 * ABSA(IND0+10,IG) + &
+!    & Z_FAC001 * ABSA(IND1,IG) + &
+!    & Z_FAC101 * ABSA(IND1+1,IG) + &
+!    & Z_FAC011 * ABSA(IND1+9,IG) + &
+!    & Z_FAC111 * ABSA(IND1+10,IG))   
+     & (&
+     & (1. - Z_FS) * ( ABSA(IND0,IG) * P_FAC00(I_LAY) + &
+     &                 ABSA(IND0+9,IG) * P_FAC10(I_LAY) + &
+     &                 ABSA(IND1,IG) * P_FAC01(I_LAY) + &
+     &                 ABSA(IND1+9,IG) * P_FAC11(I_LAY) ) + &
+     & Z_FS        * ( ABSA(IND0+1,IG) * P_FAC00(I_LAY) + &
+     &                 ABSA(IND0+10,IG) * P_FAC10(I_LAY) + &
+     &                 ABSA(IND1+1,IG) * P_FAC01(I_LAY) + &
+     &                 ABSA(IND1+10,IG) * P_FAC11(I_LAY) ) &
+     & ) 
+!     &           + TAURAY
+!    SSA(LAY,IG) = TAURAY/TAUG(LAY,IG)
+    P_TAUR(I_LAY,IG) = Z_TAURAY
+  ENDDO
+ENDDO
+
+I_LAYSOLFR = I_NLAYERS
+
+DO I_LAY = K_LAYTROP+1, I_NLAYERS
+  IF (K_JP(I_LAY-1) < LAYREFFR .AND. K_JP(I_LAY) >= LAYREFFR) &
+   & I_LAYSOLFR = I_LAY  
+  Z_SPECCOMB = P_COLO3(I_LAY) + STRRAT*P_COLO2(I_LAY)
+  Z_SPECPARM = P_COLO3(I_LAY)/Z_SPECCOMB 
+  IF (Z_SPECPARM >= P_ONEMINUS) Z_SPECPARM = P_ONEMINUS
+  Z_SPECMULT = 4.*(Z_SPECPARM)
+  JS = 1 + INT(Z_SPECMULT)
+  Z_FS = MOD(Z_SPECMULT, 1.0_JPRB )
+! Z_FAC000 = (1. - Z_FS) * P_FAC00(I_LAY)
+! Z_FAC010 = (1. - Z_FS) * P_FAC10(I_LAY)
+! Z_FAC100 = Z_FS * P_FAC00(I_LAY)
+! Z_FAC110 = Z_FS * P_FAC10(I_LAY)
+! Z_FAC001 = (1. - Z_FS) * P_FAC01(I_LAY)
+! Z_FAC011 = (1. - Z_FS) * P_FAC11(I_LAY)
+! Z_FAC101 = Z_FS * P_FAC01(I_LAY)
+! Z_FAC111 = Z_FS * P_FAC11(I_LAY)
+  IND0 = ((K_JP(I_LAY)-13)*5+(K_JT(I_LAY)-1))*NSPB(28) + JS
+  IND1 = ((K_JP(I_LAY)-12)*5+(K_JT1(I_LAY)-1))*NSPB(28) + JS
+  Z_TAURAY = P_COLMOL(I_LAY) * RAYL
+
+!  DO IG = 1, NG(28)
+  DO IG = 1 , NG28
+    P_TAUG(I_LAY,IG) = Z_SPECCOMB * &
+!    & (Z_FAC000 * ABSB(IND0,IG) + &
+!    & Z_FAC100 * ABSB(IND0+1,IG) + &
+!    & Z_FAC010 * ABSB(IND0+5,IG) + &
+!    & Z_FAC110 * ABSB(IND0+6,IG) + &
+!    & Z_FAC001 * ABSB(IND1,IG) + &
+!    & Z_FAC101 * ABSB(IND1+1,IG) + &
+!    & Z_FAC011 * ABSB(IND1+5,IG) + &
+!    & Z_FAC111 * ABSB(IND1+6,IG))   
+     & (&
+     & (1. - Z_FS) * ( ABSB(IND0,IG) * P_FAC00(I_LAY) + &
+     &                 ABSB(IND0+5,IG) * P_FAC10(I_LAY) + &
+     &                 ABSB(IND1,IG) * P_FAC01(I_LAY) + &
+     &                 ABSB(IND1+5,IG) * P_FAC11(I_LAY) ) + &
+     & Z_FS        * ( ABSB(IND0+1,IG) * P_FAC00(I_LAY) + &
+     &                 ABSB(IND0+6,IG) * P_FAC10(I_LAY) + &
+     &                 ABSB(IND1+1,IG) * P_FAC01(I_LAY) + &
+     &                 ABSB(IND1+6,IG) * P_FAC11(I_LAY) ) &
+     & ) 
+!     &           + TAURAY
+!    SSA(LAY,IG) = TAURAY/TAUG(LAY,IG)
+    IF (I_LAY == I_LAYSOLFR) P_SFLUXZEN(IG) = SFLUXREFC(IG,JS) &
+     & + Z_FS * (SFLUXREFC(IG,JS+1) - SFLUXREFC(IG,JS))  
+    P_TAUR(I_LAY,IG) = Z_TAURAY
+  ENDDO
+ENDDO
+
+!-----------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_TAUMOL28',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_TAUMOL28
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol28.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol28.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol28.intfb.h	(revision 1989)
@@ -0,0 +1,29 @@
+INTERFACE
+SUBROUTINE SRTM_TAUMOL28&
+ & ( KLEV,&
+ & P_FAC00 , P_FAC01 , P_FAC10 , P_FAC11,&
+ & K_JP , K_JT , K_JT1 , P_ONEMINUS,&
+ & P_COLMOL , P_COLO2 , P_COLO3,&
+ & K_LAYTROP,&
+ & P_SFLUXZEN, P_TAUG , P_TAUR&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARSRTM , ONLY : JPLAY, JPG, NG28
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_ONEMINUS
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLMOL(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLO2(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLO3(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_SFLUXZEN(JPG)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUG(JPLAY,JPG)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUR(JPLAY,JPG)
+END SUBROUTINE SRTM_TAUMOL28
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol29.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol29.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol29.F90	(revision 1989)
@@ -0,0 +1,128 @@
+SUBROUTINE SRTM_TAUMOL29 &
+ & ( KLEV,&
+ & P_FAC00   , P_FAC01  , P_FAC10   , P_FAC11,&
+ & K_JP      , K_JT     , K_JT1     , P_ONEMINUS,&
+ & P_COLH2O  , P_COLCO2 , P_COLMOL,&
+ & K_LAYTROP , P_SELFFAC, P_SELFFRAC, K_INDSELF  , P_FORFAC, P_FORFRAC, K_INDFOR,&
+ & P_SFLUXZEN, P_TAUG   , P_TAUR    &
+ & )  
+
+!     Written by Eli J. Mlawer, Atmospheric & Environmental Research.
+
+!     BAND 29:  820-2600 cm-1 (low - H2O; high - CO2)
+
+! Modifications
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     JJMorcrette 2002-10-03 adapted to ECMWF environment
+
+!      PARAMETER (MG=16, MXLAY=203, NBANDS=14)
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARSRTM  , ONLY : JPLAY, JPG, NG29
+USE YOESRTA29, ONLY : ABSA, ABSB, FORREFC, SELFREFC &
+ & , SFLUXREFC, ABSH2OC, ABSCO2C, RAYL &
+ & , LAYREFFR  
+USE YOESRTWN , ONLY : NSPA, NSPB
+
+IMPLICIT NONE
+
+!-- Output
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC00(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC01(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC10(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FAC11(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JP(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_JT1(JPLAY) 
+REAL(KIND=JPRB)                  :: P_ONEMINUS ! Argument NOT used
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLH2O(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLCO2(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_COLMOL(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_LAYTROP 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_SELFFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDSELF(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FORFAC(JPLAY) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: P_FORFRAC(JPLAY) 
+INTEGER(KIND=JPIM),INTENT(IN)    :: K_INDFOR(JPLAY)
+ 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_SFLUXZEN(JPG) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUG(JPLAY,JPG) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: P_TAUR(JPLAY,JPG) 
+!- from INTFAC      
+!- from INTIND
+!- from PRECISE             
+!- from PROFDATA             
+!- from SELF             
+!-- from FOREIGN
+INTEGER(KIND=JPIM) :: IG, IND0, IND1, INDS, INDF, I_LAY, I_LAYSOLFR, I_NLAYERS
+
+REAL(KIND=JPRB) ::  &
+ & Z_TAURAY  
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SRTM_TAUMOL29',0,ZHOOK_HANDLE)
+I_NLAYERS = KLEV
+
+! Compute the optical depth by interpolating in ln(pressure), 
+! temperature, and appropriate species.  Below LAYTROP, the water
+! vapor self-continuum is interpolated (in temperature) separately.  
+
+DO I_LAY = 1, K_LAYTROP
+  IND0 = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(29) + 1
+  IND1 = (K_JP(I_LAY)*5+(K_JT1(I_LAY)-1))*NSPA(29) + 1
+  INDS = K_INDSELF(I_LAY)
+  INDF = K_INDFOR(I_LAY)
+  Z_TAURAY = P_COLMOL(I_LAY) * RAYL
+
+!  DO IG = 1, NG(29)
+  DO IG = 1, NG29
+    P_TAUG(I_LAY,IG) = P_COLH2O(I_LAY) * &
+     & ((P_FAC00(I_LAY) * ABSA(IND0,IG) + &
+     & P_FAC10(I_LAY) * ABSA(IND0+1,IG) + &
+     & P_FAC01(I_LAY) * ABSA(IND1,IG) + &
+     & P_FAC11(I_LAY) * ABSA(IND1+1,IG)) + &
+     & P_SELFFAC(I_LAY) * (SELFREFC(INDS,IG) + &
+     & P_SELFFRAC(I_LAY) * &
+     & (SELFREFC(INDS+1,IG) - SELFREFC(INDS,IG))) + &
+     & P_FORFAC(I_LAY) * (FORREFC(INDF,IG) +  &
+     & P_FORFRAC(I_LAY) * &
+     & (FORREFC(INDF+1,IG) - FORREFC(INDF,IG)))) &
+     & + P_COLCO2(I_LAY) * ABSCO2C(IG)   
+!     &           + TAURAY &
+!    SSA(LAY,IG) = TAURAY/TAUG(LAY,IG)
+    P_TAUR(I_LAY,IG) = Z_TAURAY
+  ENDDO
+ENDDO
+
+I_LAYSOLFR = I_NLAYERS
+DO I_LAY = K_LAYTROP+1, I_NLAYERS
+  IF (K_JP(I_LAY-1) < LAYREFFR .AND. K_JP(I_LAY) >= LAYREFFR) &
+   & I_LAYSOLFR = I_LAY  
+  IND0 = ((K_JP(I_LAY)-13)*5+(K_JT(I_LAY)-1))*NSPB(29) + 1
+  IND1 = ((K_JP(I_LAY)-12)*5+(K_JT1(I_LAY)-1))*NSPB(29) + 1
+  Z_TAURAY = P_COLMOL(I_LAY) * RAYL
+
+!  DO IG = 1, NG(29)
+  DO IG = 1 , NG29
+    P_TAUG(I_LAY,IG) = P_COLCO2(I_LAY) * &
+     & (P_FAC00(I_LAY) * ABSB(IND0,IG) + &
+     & P_FAC10(I_LAY) * ABSB(IND0+1,IG) + &
+     & P_FAC01(I_LAY) * ABSB(IND1,IG) + &
+     & P_FAC11(I_LAY) * ABSB(IND1+1,IG))   &
+     & + P_COLH2O(I_LAY) * ABSH2OC(IG)   
+!     &           + TAURAY
+!    SSA(LAY,IG) = TAURAY/TAUG(LAY,IG)
+    IF (I_LAY == I_LAYSOLFR) P_SFLUXZEN(IG) = SFLUXREFC(IG) 
+    P_TAUR(I_LAY,IG) = Z_TAURAY
+  ENDDO
+ENDDO
+
+!-----------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SRTM_TAUMOL29',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_TAUMOL29
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol29.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol29.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_taumol29.intfb.h	(revision 1989)
@@ -0,0 +1,35 @@
+INTERFACE
+SUBROUTINE SRTM_TAUMOL29&
+ & ( KLEV,&
+ & P_FAC00 , P_FAC01 , P_FAC10 , P_FAC11,&
+ & K_JP , K_JT , K_JT1 , P_ONEMINUS,&
+ & P_COLH2O , P_COLCO2 , P_COLMOL,&
+ & K_LAYTROP , P_SELFFAC, P_SELFFRAC, K_INDSELF , P_FORFAC, P_FORFRAC, K_INDFOR,&
+ & P_SFLUXZEN, P_TAUG , P_TAUR&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARSRTM , ONLY : JPLAY, JPG, NG29
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC00(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC01(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC10(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FAC11(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JP(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_JT1(JPLAY)
+REAL(KIND=JPRB) :: P_ONEMINUS
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLH2O(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLCO2(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_COLMOL(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_LAYTROP
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_SELFFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDSELF(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FORFAC(JPLAY)
+REAL(KIND=JPRB) ,INTENT(IN) :: P_FORFRAC(JPLAY)
+INTEGER(KIND=JPIM),INTENT(IN) :: K_INDFOR(JPLAY)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_SFLUXZEN(JPG)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUG(JPLAY,JPG)
+REAL(KIND=JPRB) ,INTENT(OUT) :: P_TAUR(JPLAY,JPG)
+END SUBROUTINE SRTM_TAUMOL29
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_vrtqdr.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_vrtqdr.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_vrtqdr.F90	(revision 1989)
@@ -0,0 +1,199 @@
+#ifdef RS6K
+@PROCESS HOT NOSTRICT
+#endif
+SUBROUTINE SRTM_VRTQDR &
+ & ( KLEV , KW,&
+ & PREF , PREFD, PTRA , PTRAD,&
+ & PDBT , PRDND, PRUP , PRUPD , PTDBT,&
+ & PFD  , PFU  &
+ & )  
+ 
+!**** *SRTM_VRTQDR* - VERTICAL QUADRATURE
+
+!     PURPOSE.
+!     --------
+
+!          THIS ROUTINE PERFORMS THE VERTICAL INTEGRATION
+
+!**   INTERFACE.
+!     ----------
+
+!          *SRTM_VRTQDR* IS CALLED FROM *SRTM_SPCVRT*
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!     METHOD.
+!     -------
+
+!     EXTERNALS.
+!     ----------
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE ECMWF RESEARCH DEPARTMENT
+!        DOCUMENTATION, AND FOUQUART AND BONNEL (1980)
+
+!     AUTHOR.
+!     -------
+!        from Howard Barker
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 02-10-04
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARSRTM  , ONLY : JPLAY, JPGPT 
+
+!USE YOESWN   , ONLY : NDBUG
+
+IMPLICIT NONE
+
+!     ------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KW 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PREF(JPLAY+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PREFD(JPLAY+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTRA(JPLAY+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTRAD(JPLAY+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PDBT(JPLAY+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PRDND(JPLAY+1) 
+REAL(KIND=JPRB)   ,INTENT(INOUT) :: PRUP(JPLAY+1) 
+REAL(KIND=JPRB)   ,INTENT(INOUT) :: PRUPD(JPLAY+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTDBT(JPLAY+1) 
+REAL(KIND=JPRB)   ,INTENT(INOUT)   :: PFD(JPLAY+1,JPGPT) 
+REAL(KIND=JPRB)   ,INTENT(INOUT)   :: PFU(JPLAY+1,JPGPT) 
+!     ------------------------------------------------------------------
+
+!              ------------
+
+REAL(KIND=JPRB) :: ZTDN(JPLAY+1)  
+
+INTEGER(KIND=JPIM) :: IKP, IKX, JK, I_NDBUG
+
+REAL(KIND=JPRB) :: ZREFLECT
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!     ------------------------------------------------------------------
+
+! PREF(JK)   direct reflectance
+! PREFD(JK)  diffuse reflectance
+! PTRA(JK)   direct transmittance
+! PTRAD(JK)  diffuse transmittance
+
+! PDBT(JK)   layer mean direct beam transmittance
+! PTDBT(JK)  total direct beam transmittance at levels
+                   
+IF (LHOOK) CALL DR_HOOK('SRTM_VRTQDR',0,ZHOOK_HANDLE)
+I_NDBUG=3
+    
+!-- link lowest layer with surface
+             
+ZREFLECT=1.0_JPRB / (1.0_JPRB -PREFD(KLEV+1)*PREFD(KLEV))
+PRUP(KLEV)=PREF(KLEV)+(PTRAD(KLEV)* &
+ & ((PTRA(KLEV)-PDBT(KLEV))*PREFD(KLEV+1)+ &
+ & PDBT(KLEV)*PREF(KLEV+1)))*ZREFLECT  
+PRUPD(KLEV)=PREFD(KLEV)+PTRAD(KLEV)* &
+ & PTRAD(KLEV)*PREFD(KLEV+1)*ZREFLECT  
+
+!IF (NDBUG.LE.1) THEN
+!  print 9201,PRUP(KLEV),PRUPD(KLEV)
+9201 format(1x,'link surf:',6E13.6)
+!  print *,'SRTM_VRTQDR after linking with surface layer'
+!END IF
+    
+!-- pass from bottom to top 
+
+DO JK=1,KLEV-1
+  IKP=KLEV+1-JK                       
+  IKX=IKP-1
+!  print 9202,JK,IKP,IKX
+  9202  format(1x,'Pass from bottom to top:',3I3)      
+  ZREFLECT=1.0_JPRB / (1.0_JPRB -PRUPD(IKP)*PREFD(IKX))
+  PRUP(IKX)=PREF(IKX)+(PTRAD(IKX)* &
+   & ((PTRA(IKX)-PDBT(IKX))*PRUPD(IKP)+ &
+   & PDBT(IKX)*PRUP(IKP)))*ZREFLECT  
+  PRUPD(IKX)=PREFD(IKX)+PTRAD(IKX)* &
+   & PTRAD(IKX)*PRUPD(IKP)*ZREFLECT  
+
+!  print 9203,PRUP(IKX),PRUPD(IKX)
+  9203 format(1x,'bot2top:',6E13.6)
+ENDDO
+!print *,'SRTM_VRTQDR after passing from bottom to top'
+    
+!-- upper boundary conditions
+
+ZTDN(1)=1.0_JPRB
+PRDND(1)=0.0_JPRB
+ZTDN(2)=PTRA(1)
+PRDND(2)=PREFD(1)
+
+!IF (NDBUG.LE.1) THEN
+!  print 9204,ZTDN(1),PRDND(1),ZTDN(2),PRDND(2)
+9204 format(1x,'link upper bound:',6E13.6)
+!  print *,'SRTM_VRTQDR after upper boundary conditions'
+!END IF
+    
+!-- pass from top to bottom
+
+DO JK=2,KLEV
+  IKP=JK+1
+  ZREFLECT=1.0_JPRB / (1.0_JPRB -PREFD(JK)*PRDND(JK))
+  ZTDN(IKP)=PTDBT(JK)*PTRA(JK)+ &
+   & (PTRAD(JK)*((ZTDN(JK)-PTDBT(JK))+ &
+   & PTDBT(JK)*PREF(JK)*PRDND(JK))) * ZREFLECT  
+  PRDND(IKP)=PREFD(JK)+PTRAD(JK)*PTRAD(JK) &
+   & *PRDND(JK)*ZREFLECT  
+
+!  IF (NDBUG.LE.1) THEN
+!    print 9205,ZTDN(IKP),PRDND(IKP)
+  9205 format(1x,'top2bot2:',6E13.6)
+!  END IF
+
+ENDDO
+!print *,'SRTM_VRTQDR after passing from top to bottom'
+                                              
+!-- up and down-welling fluxes at levels
+
+DO JK=1,KLEV+1
+!  IF (NDBUG.LE.1) THEN
+!    print 9207,JK,PRDND(JK),PRUPD(JK)
+!    print 9208,JK,PTDBT(JK),PRUP(JK),ZTDN(JK)
+  9207 format(1x,'A',I3,4E13.6)      
+  9208 format(1x,'B',I3,4E13.6)      
+!  END IF 
+
+  ZREFLECT=1.0_JPRB / (1.0_JPRB - PRDND(JK)*PRUPD(JK))
+  PFU(JK,KW)=(PTDBT(JK)*PRUP(JK) + &
+   & (ZTDN(JK)-PTDBT(JK))*PRUPD(JK))*ZREFLECT  
+  PFD(JK,KW)=PTDBT(JK) + (ZTDN(JK)-PTDBT(JK)+ &
+   & PTDBT(JK)*PRUP(JK)*PRDND(JK))*ZREFLECT  
+
+!  IF (NDBUG.LE.2) THEN
+!    print 9206,JK,PFU(JK,KW),PFD(JK,KW)
+  9206 format(1x,'fluxes:',I3,6E13.6)
+!  END IF
+
+ENDDO
+!print *,'SRTM_VRTQDR after up and down flux'
+   
+!print *,'SRTM_VRTQDR about to come out'
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SRTM_VRTQDR',1,ZHOOK_HANDLE)
+END SUBROUTINE SRTM_VRTQDR
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/srtm_vrtqdr.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/srtm_vrtqdr.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/srtm_vrtqdr.intfb.h	(revision 1989)
@@ -0,0 +1,24 @@
+INTERFACE
+SUBROUTINE SRTM_VRTQDR&
+ & ( KLEV , KW,&
+ & PREF , PREFD, PTRA , PTRAD,&
+ & PDBT , PRDND, PRUP , PRUPD , PTDBT,&
+ & PFD , PFU&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE PARSRTM , ONLY : JPLAY, JPGPT
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+INTEGER(KIND=JPIM),INTENT(IN) :: KW
+REAL(KIND=JPRB) ,INTENT(IN) :: PREF(JPLAY+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PREFD(JPLAY+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTRA(JPLAY+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTRAD(JPLAY+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PDBT(JPLAY+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PRDND(JPLAY+1)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PRUP(JPLAY+1)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PRUPD(JPLAY+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTDBT(JPLAY+1)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PFD(JPLAY+1,JPGPT)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PFU(JPLAY+1,JPGPT)
+END SUBROUTINE SRTM_VRTQDR
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/su0phy.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/su0phy.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/su0phy.F90	(revision 1989)
@@ -0,0 +1,1122 @@
+SUBROUTINE SU0PHY(KULOUT)
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+!USE YOMLUN   , ONLY : NULOUT   ,NULNAM  MPL 14.04.09
+USE YOMLUN   , ONLY : NULOUT
+! Ce qui concerne LSLPHY commente par MPL 24.11.08
+!USE YOMSLPHY , ONLY : LSLPHY
+USE YOMPHY   , ONLY : NBITER   ,NOIR, NDPSFI, NPHYREP ,LMPHYS   ,LREASUR  ,&
+ & LCAPE    ,LCONDWT  ,LCVPP    ,LCVDD    ,LHUNEG   ,&
+ & LNEIGE   ,LRNUMX   ,LCLSATUR,L2PHYS    ,LCVRA    ,LGWD     ,&
+ & LGWDC    ,LHMTO    ,LNEBCO   ,LNEBN    ,LNEBR    ,LQXRTGH, LHUCN,&
+ & LNEBT    ,LND2DIFF  ,LOZONE   ,LRAY     ,LRAYFM   ,LRAYFM15 ,&
+ & LRRMES   ,LSFHYD   ,LSNV     ,LSOLV    ,LFGEL    ,&
+ & LSRCON   ,LSRCONT  ,LSLC     ,LRRGUST  ,LRELAXW  ,&
+ & LAEROSEA ,LAEROLAN ,LAEROSOO ,LAERODES ,LAEROVOL ,LAEROSUL ,LRELAXT  ,&
+ & LO3ABC   ,LSTRA    ,LSTRAS   ,LTHERMO  ,LVDIF    ,&
+ & LRAYLU   ,LREWS    ,LRPROX   ,LRMIX    ,LRSTAB   ,&
+ & LRAUTOEV ,LRAYPL   ,LCVLIS   ,LCVCAS   ,LVGSN    ,&
+ & LNEBNXR  ,LFPCOR   ,LNOIAS   ,CGMIXLEN ,LPRGML   ,LGLT     ,&
+ & LNEWD    ,LRTPP    ,LRTDL    ,LDIFCONS ,LECT     ,&
+ & LCVPGY   ,LPROCLD  ,LEVAPP   ,LCOLLEC  ,LPTKE    ,L3MT     ,&
+ & LCVPRO   ,LCDDPRO  ,LSCMF    ,LVOIGT   ,LVFULL   ,&
+ & LNSMLIS, LPHCDPI   ,&
+ & NPHY     ,JPHYEC   ,JPHYMF   ,JPHYARO  , & 
+ & LAJUCV   ,LPBLE    ,LNEBGR   ,LNEBGY   ,&
+ & LBCCOND  ,LCVRAV3  ,LZ0HSREL ,LBLVAR   ,&
+ & LADJCLD  ,LAUTONEB ,LSSD     ,LCVPPKF  ,LECTFL ,&
+ & LPIL     ,LPHSPSH  ,LSMROT   ,LSMNIMBT ,&
+ & LSMTPS   ,L1DRHCRI ,LGWRHCRI ,NSMTBOT   , &
+ & NSMDNEB  ,NPRAG    ,NPRAC    ,NPRRI    ,LSTRAPRO, LNEWSTAT
+USE YOMARPHY , ONLY : LMPA    ,LMICRO   ,LTURB    ,&
+ & LMSE  ,LKFBCONV ,LKFBD    ,LKFBS    ,LUSECHEM ,&
+ & LORILAM  ,LRDUST, LBUFLUX ,CCOUPLING 
+USE YOEPHY   , ONLY : LEPHYS    ,&
+ & LECOND   ,LECUMF   ,LEDCLD   ,LEEVAP   ,LEGWDG   ,&
+ & LEOZOC   ,LEQNGT   ,LERADI   ,LERADS   ,&
+ & LESHCV   ,LESICE   ,LESURF   ,LEVDIF   ,&
+ & LAGPHY   ,LEPCLD   ,LECO2DIU ,&
+ & LEO3CH   ,LBUD23   ,LEMETHOX ,LERA40   ,LECURR   ,LVDFTRAC ,&
+ & LEOCWA   ,LEOCCO   ,LEOCSA   ,LMFTRAC  ,LERAIN   ,LE4ALB   ,&
+ & RTHRFRTI ,NEPHYS_PCFULL, LEMWAVE
+USE YOEWCOU  , ONLY : NSTPW    ,RSOUTW   ,RNORTW   ,RDEGREW  ,&
+ & LWCOU    ,LWCOU2W
+! Ce qui concerne RCLDTOPP commente par MPL 24.11.08
+!USE YOECLDP  , ONLY : RCLDTOPP  
+USE YOPHLC   , ONLY : ALPHA    ,AH0      ,USTARL   ,&
+ & USTARS   ,ALANDZ0  ,ASEAZ0   ,LSPHLC   ,LVDFLC   ,&
+ & LSDRLC   ,LCZDEB   ,LZMCON   ,LKEXP    ,LVDFDS   ,&
+ & LSDRDS  
+USE YOMCT0   , ONLY : NCONF    ,&
+ & LRETCFOU ,LWRTCFOU, LAROME,LFPOS,LPC_FULL
+USE YOMCT0B  , ONLY : LECMWF
+! Tous les YOM* ci-dessous commentes par MPL 24.11.08
+!USE YOMINI   , ONLY : NEINI
+!USE YOMDFI   , ONLY : NEDFI
+!USE YOMVRTL  , ONLY : L131TL
+!USE YOPHNC   , ONLY : LETRAJP  ,LETRAJPT ,LERADI2  ,LERADS2   ,&
+! & LERADSW2 ,LERADN2 ,LERADFL2 ,LEDCLD2  ,LENCLD2   ,&
+! & LEVAPLS2 ,LEVDIF2 ,LEGWDG2  ,LECUMF2  ,LECUBM2   ,&
+! & LECOND2  ,LEQNGT2 ,LESURF2  ,LEKPERT  ,LTRACLNPH
+!USE YOEPHLI  , ONLY : LENOPERT
+!USE YOMNCL   , ONLY : LNCLIN   ,LREGCL
+USE YOMSIMPHL, ONLY : LSIMPH   ,LTRAJPS  ,LTRAJPST ,&
+ & LSMOOTHD ,LSMOOTHA ,LSMOOTHB ,LCVRASP  ,&
+ & LGWDSP   ,LRAYSP   ,LSTRASP  ,LVDIFSP  ,LRRMESSP ,LCLOUDS  
+USE YOMRCOEF , ONLY : LRCOEF    ,LTLADDIA ,LGLOBRAD
+!USE YOMIOP   , ONLY : NPCKFT95 ,NEXPBT95
+!USE YOMDYNA  , ONLY : LGWADV
+!USE YOMCOAPHY   , ONLY : NPHYINT
+
+!**** *SU0PHY*   - Initialize common YOxPHY controlling physics
+
+!     Purpose.
+!     --------
+!           Initialize YOxPHY, the common that includes the
+!           basic switches for the physics of the model.
+
+!**   Interface.
+!     ----------
+!        *CALL* *SU0PHY(KULOUT) from SU0YOMA
+
+!        Explicit arguments :
+!        --------------------
+!        KULOUT : Logical unit for the output
+
+!        Implicit arguments :
+!        --------------------
+
+!     Method.
+!     -------
+!        See documentation
+
+!     Externals.
+!     ----------
+
+!     Reference.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+
+!        or
+
+!        Documentation ARPEGE (depending on which physics will be used)
+
+!     Author.
+!     -------
+!        J.-J. Morcrette                    *ECMWF*
+!        J.-F. Geleyn for the ARPEGE rewriting.
+
+!     Modifications.
+!     --------------
+!        Original : 91-11-12
+!        Modified 92-02-22 by M. Deque (tests of consistency with *YOMDPHY*)
+!        Modified by R. EL Khatib : 93-04-02 Set-up defaults controled by LECMWF
+!        Modified 94-02-28 by M.  Deque  : Shallow convection clouds
+!        Modified 93-10-28 by Ph. Dandin : FMR scheme with MF physics
+!        Modified 93-08-24 by D. Giard (test of consistency with digital filter)
+!        Modified by M. Hamrud    : 93-06-05 Make use of LECMWF for ECMWF
+!        Modified 95-11-27 by M. Deque (2nd call to APLPAR)
+!        Modified 96-01-10 by M. Janiskova (logical switches for simpl.ph.par.)
+!        Modified 97-02-28 by J.M. Piriou (cloudiness scheme switch LNEBN)
+!        Modified 97-04-17 by J.M. Piriou (default values)
+!        Modified by F. Rabier    : 96-09-25 Full physics set-up for 801 job
+!        Modified by G. Hello     : 97-07-31 Full MF physics set-up for 801
+!        Modified by M. Deque     : 97-05-25 Frozen FMR
+!        Modified by E.Bazile     : 97-11-18 Soil freezing (LFGEL)
+!        Modified by M. Deque     : 98-01-05 Cleaning of NDPSFI
+!        Modified by M. Janiskova : 98-11-18 Full MF physics set-up for 131
+!                                 : 99-02-21 Set-up for radiation coef.
+!        Modified by C. Jakob     : 98-04    Methane oxidation
+!        Modified by T. Bergot    : 98-08  Full MF physics set-up for 601
+!        Modified by E.Bazile     : 99-02-12 Superficial soil freezing (LFGELS)
+!        Modified by L. Gerard    : 98-12-07 LSRCON
+!        Modified by J.M. Piriou  : 99-04-19 Moon radiation
+!        Modified 99-02-17 by K. YESSAD: options LRETCFOU, LWRTCFOU.
+!        Modified by J.M. Piriou  : 99-06-18 LCVLIS and LCVCAS
+!        Modified by J.M. Piriou  : 99-07-07 Introduce reproductibility in physics (NPHYREP).
+!        Modified by D. Giard     : 2000-10-25 LVGSN (snow and vegetation)
+!        Modified by E. Bazile    : 2000-11-12 CYCORA's default value.      
+!        Modified by F. Bouyssel  : 2001-03-03 LRRMESSP     
+!        Modified by J.M. Piriou  : 2001-11-27 LSRCONT
+!        Modified by J.M. Piriou  : 2002-11-15 LNEBNXR
+!        Modified by F. Bouyssel  : 2002-06-25 LCVPPLIS and LRRGUST
+!        R. El Khatib : 2001-08-07 Pruning options
+!        J.M. Piriou  : 2002-01-10 set default values to operational ones.
+!        Modified by A.Beljaars   : 2002-11-12 LECURR (Ocean current)
+!        Modified by Y. Bouteloup : 2002-03-05 LO3ABC
+!        Modified 08-2002 C. Smith : use "w" as prognostic variable in the
+!         semi-lag advection of vertical divergence in the NH model. 
+!        Modified by F. Bouyssel  : 2002-12-18 Cleaning of LCVPPLIS
+!        Modified by E. Bazile      : 2003-02-13 LFPCOR
+!        Modified by E. Bazile      : 2003-02-18 LNOIAS
+!        Modified by M. Janiskova : 2003-05 set-up for ECMWF stat.cloud scheme
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        P. Viterbo   ECMWF   03-12-2004  Include user-defined RTHRFRTI
+!        Modified by Y Seity      : 2004-11-16 For AROME setup, default values 
+!            for namarphy keys,read namarphy, switch off arp/ald physics keys
+!        Modified by R. Brozkova : 2004-11 modifs for Xu-Randall cloud. scheme
+!        P. Marquet and F. Bouyssel : 2004-08-18 (Lopez) 
+!        G. Hello : 2005-04-25 Lground initialization (surfex and arome)
+!        Y. Seity : 2005-09-25 LRDUST, LORILAM and LUSECHEM initialisation
+!                 for AROME
+!        T. Kovacic : 2006-03-17 LPHCDPI, NPHY, LBUFLUX; for DDH and BUDGET
+!        Modified by F. Bouyssel  : 2005-01-25 Change default of LNSMLIS
+!        D.Salmond     22-Nov-2005 Mods for coarser/finer physics
+!        P. Lopez      14-02-2006  Added switch LTRACLNPH for including  
+!                                  tracers in linearized physics
+!        R.Brozkova : pre ALARO 0 modset: mixing lengths computation
+!        Modified by GMGEC/EAC   : 2006-03 list of modif.
+!                 P. Marquet  : 99-01-18 Dry Conv. Adj.     (LAJUCV)
+!                 P. Marquet  : 02-02-14 YOMPHY
+!                 P. Marquet  : 02-06-18 LBCCOND (Becht/Chab ACCOND)
+!                 P. Marquet  : 02-08-30 LCVRAV3    (old ACCVIMP_V3)
+!                     and new cloud model : 2006-03-03
+!        Modified by E. Bazile    : 2006-04-11 Add LPBLE in case of LECT
+!        Modified by E. Bazile    : 2006-04-20 Add LADJCLD,LCVPPKF, LECTFL
+!                 JF. Gueremy : LZ0HSREL initialised (used in ACHMT)
+!        Modified by F. Bouyssel  : 2006-10-30 Add LAUTONEB, LSSD
+!        Modified by F. Vana     : 2006-01-30 LPTKE
+!        Modifed by D. Banciu    : 2006-08-31 LND2DIFF
+!        M. Bellus : 28-Sep-2006 ALARO-0 phasing: L3MT,LCVPRO,LCDDPRO,LSCMF,
+!                    LVOIGT,LVFULL,LPIL,LPHSPSH,LSMROT,LSMNIMBT,LSMTPS,
+!                    L1DRHCRI,LGWRHCRI,NSMTBOT,NSMDNEB,NPRAG,NPRAC,NPRRI,
+!                    LSTRAPRO,LNEWSTAT ; removed duplicity in LPBLE
+!        JJMorcrette 20060721 MODIS albedo
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KULOUT 
+
+!     ------------------------------------------------------------------
+
+INTEGER(KIND=JPIM) :: IERR
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!     ------------------------------------------------------------------
+
+#include "abor1.intfb.h"
+#include "posnam.intfb.h"
+#include "suscm.intfb.h"
+
+!     ------------------------------------------------------------------
+
+#include "namphy.h"
+!#include "namarphy.h"
+#include "naephy.h"
+#include "naphlc.h"
+!#include "namtrajp.h"
+!#include "namsimphl.h"
+!#include "namrcoef.h"
+
+!     ------------------------------------------------------------------
+print*,'Dans SUOPHY ', KULOUT
+
+IF (LHOOK) CALL DR_HOOK('SU0PHY',0,ZHOOK_HANDLE)
+
+!     ------------------------------------------------------------------
+
+!*       1.    Set default values.
+!              -------------------
+
+!*       1.1.1 Set default values for Meteo-France physics
+!              -------------------------------------------
+
+LMPHYS=.FALSE.
+LREASUR=.TRUE.
+
+CGMIXLEN='Z'
+LPRGML=.FALSE.
+LCAPE=.FALSE.
+LCONDWT=.FALSE.
+LCVCAS=.FALSE.
+LCVLIS=.FALSE.
+LCVPP=.FALSE.
+LCVPPKF=.FALSE.
+LCVDD=.FALSE.
+LHUNEG=.TRUE.
+LNEIGE=.TRUE.
+LRNUMX=.FALSE.
+LCLSATUR=.FALSE.
+LVOIGT=.FALSE.
+LVFULL=.FALSE.
+LRRGUST=.FALSE.
+L2PHYS=.FALSE.
+LO3ABC=.FALSE.
+LAEROSEA=.FALSE.
+LAEROLAN=.FALSE.
+LAEROSOO=.FALSE.
+LAERODES=.FALSE.
+LAEROVOL=.FALSE.
+LAEROSUL=.FALSE.
+LRELAXT=.FALSE.
+LRELAXW=.FALSE.
+LE4ALB=.FALSE.
+LGLT=.FALSE.
+LNEWD=.FALSE.
+LDIFCONS=.FALSE.
+LECT=.FALSE.
+LPTKE=.FALSE.
+LECTFL=.FALSE.
+LPBLE=.FALSE.
+LCVPGY=.FALSE.
+L3MT=.FALSE.
+
+LCVRA=.FALSE.
+LGWDC=.FALSE.
+LGWD=.FALSE.
+LHMTO=.FALSE.
+LNEBCO=.FALSE.
+LNEBN=.FALSE.
+LNEBNXR=.FALSE.
+LNEBR=.FALSE.
+LNEBT=.FALSE.
+LND2DIFF=.FALSE.
+LQXRTGH=.FALSE.
+LHUCN=.FALSE.
+LOZONE=.FALSE.
+LRAY=.FALSE.
+LRAYLU=.FALSE.
+LREWS=.FALSE.
+LRPROX=.FALSE.
+LRMIX=.FALSE.
+LRSTAB=.FALSE.
+LRAUTOEV=.FALSE.
+LRTPP=.FALSE.
+LRTDL=.FALSE.
+LRAYPL=.FALSE.
+LRAYFM=.FALSE.
+LRAYFM15=.FALSE.
+LRRMES=.FALSE.
+LSFHYD=.FALSE.
+LSNV=.FALSE.
+LSOLV=.FALSE.
+LFGEL=.FALSE.
+LSRCON=.FALSE.
+LSRCONT=.FALSE.
+LSLC=.FALSE.
+LSTRA=.FALSE.
+LSTRAS=.FALSE.
+LTHERMO=.FALSE.
+LVDIF=.FALSE.
+LVGSN=.FALSE.
+LFPCOR=.FALSE.
+LNOIAS=.FALSE.
+LPHCDPI=.FALSE.
+LBLVAR=.FALSE.
+
+LZ0HSREL=.FALSE.
+
+NBITER=2
+NDPSFI=0
+NPHYREP=1
+NOIR=0
+
+! ---------------------------------------------------
+! ALARO-0 (cloud)
+! ---------------------------------------------------
+LPIL=.FALSE.
+LSTRAPRO=.FALSE.
+LNEWSTAT=.TRUE.
+LPHSPSH=.FALSE. ! Pseudo Historic Surface Precip Sensible Heat Flux
+LSMROT=.FALSE.
+LSMTPS=.FALSE.
+LSMNIMBT=.FALSE.
+L1DRHCRI=.FALSE.
+LGWRHCRI=.FALSE.
+NSMTBOT=0 ! interpolate
+NSMDNEB=2 ! gradient limitation
+NPRAG=1
+NPRAC=1
+NPRRI=1
+! ---------------------------------------------------
+! ALARO-0 (prognostic convection)
+! ---------------------------------------------------
+LCVPRO=.FALSE.
+LCDDPRO=.FALSE. 
+LSCMF=.FALSE.
+
+! - - - - - - - - - - - - - - - - - - - - - - - - - -
+! Cloud and precipitation prognostic scheme (Lopez) :
+! - - - - - - - - - - - - - - - - - - - - - - - - - -
+
+LPROCLD=.FALSE.
+LEVAPP=.TRUE.
+LCOLLEC=.TRUE.
+LNSMLIS=.TRUE.
+LADJCLD=.TRUE.
+LAUTONEB=.FALSE.
+LSSD=.FALSE.
+
+!AROME physics
+LMPA=.FALSE.
+LMICRO=.FALSE.
+LTURB=.FALSE.
+LMSE=.FALSE.
+LKFBCONV=.FALSE.
+LKFBD=.FALSE.
+LKFBS=.FALSE.
+LUSECHEM=.FALSE.
+LORILAM=.FALSE.
+LRDUST=.FALSE.
+LBUFLUX=.TRUE.
+CCOUPLING='E'
+
+! - - - - - - - - - - -
+! Module YOMPHY :
+! - - - - - - - - - - -
+
+LAJUCV=.FALSE.
+LNEBGR=.FALSE.
+LNEBGY=.FALSE.
+LBCCOND=.FALSE.
+
+LCVRAV3=.FALSE.
+
+!*    1.1.2  Set default values for simplified physical parametrization
+!            of Meteo-France
+!     -----------------------------------------------------------------
+
+LSIMPH=.FALSE.
+LTRAJPS=.FALSE.
+LTRAJPST=.FALSE.
+LSMOOTHD=.FALSE.
+LSMOOTHA=.FALSE.
+LSMOOTHB=.FALSE.
+LCLOUDS=.FALSE.
+
+LCVRASP=.FALSE.
+LGWDSP=.FALSE.
+LRAYSP=.FALSE.
+LSTRASP=.FALSE.
+LVDIFSP=.FALSE.
+LRRMESSP=.FALSE.
+
+LRCOEF=.FALSE.
+LTLADDIA=.FALSE.
+LGLOBRAD=.FALSE.
+
+!*    1.2.1  Set default values for ECMWF physics package
+!            --------------------------------------------
+
+LEPHYS=.FALSE.
+LAGPHY=.TRUE.
+
+LECOND=.FALSE.
+LEPCLD=.FALSE.
+LECUMF=.FALSE.
+LEDCLD=.FALSE.
+LEEVAP=.TRUE.
+LEGWDG=.FALSE.
+LEOZOC=.FALSE.
+LEQNGT=.FALSE.
+LERADI=.FALSE.
+LERADS=.FALSE.
+LESHCV=.FALSE.
+LESICE=.TRUE.
+LESURF=.FALSE.
+LEVDIF=.FALSE.
+LEOCWA=.FALSE.
+LEOCCO=.FALSE.
+LEOCSA=.FALSE.
+LEMETHOX=.FALSE.
+LERA40=.FALSE.
+LECURR=.FALSE.
+LVDFTRAC=.TRUE.
+LMFTRAC=.TRUE.
+LERAIN=.FALSE.
+LE4ALB=.FALSE.
+RTHRFRTI=0.0_JPRB
+!NPHYINT=0
+LE4ALB=.FALSE.
+
+!-------------------------------------------------------
+! pressure above which cloud scheme is not called
+! !!!WARNING!!! this has to be in the part of the domain 
+! where the pure pressure level grid is used, otherwise
+! the code is not bit-reproducible!!!
+! Don't call the cloud scheme for pressures lower than 1hPa
+!RCLDTOPP=100.0_JPRB
+
+!--------------------------------------------------------
+
+!*     1.2.2  Set-up linearized physical parametrization of ECMWF
+!             ---------------------------------------------------
+
+!LETRAJP = .FALSE.
+!LETRAJPT= .FALSE.
+!LERADI2 = .FALSE.
+!LERADS2 = .FALSE.
+!LERADSW2= .FALSE.
+!LERADN2 = .FALSE.
+!LERADFL2= .FALSE.
+!LEDCLD2 = .FALSE.
+!LENCLD2 = .FALSE.
+!LEVAPLS2= .FALSE.
+!LEVDIF2 = .FALSE.
+!LEGWDG2 = .FALSE.
+!LECUMF2 = .FALSE.
+!LECUBM2 = .FALSE.
+!LECOND2 = .FALSE.
+!LEQNGT2 = .FALSE.
+!LESURF2 = .FALSE.
+!LEKPERT = .FALSE.
+!LNCLIN  = .FALSE.
+!LREGCL  = .FALSE.
+!LTRACLNPH = .FALSE.
+
+! No perturbation of surface arrays
+!LENOPERT = .TRUE.
+
+!*       Packing parameters
+!        -------------------
+!NPCKFT95 = 1
+!NEXPBT95 = 6
+
+!     LOGICAL FOR THE VERT DIFF SCHEME VDIFLCZ USED IN CONF 601
+
+LSPHLC  = .FALSE.
+LVDFLC  = .FALSE.
+LVDFDS  = .TRUE.
+LSDRLC  = .TRUE.
+LSDRDS  = .FALSE.
+LCZDEB  = .FALSE.
+LZMCON  = .TRUE.
+LKEXP   = .TRUE.
+ALPHA   = 3._JPRB
+AH0     = 1000.0_JPRB
+USTARL  = 0.5_JPRB
+USTARS  = 0.2_JPRB
+ALANDZ0 = 0.05_JPRB
+ASEAZ0  = 0.0005_JPRB
+
+NSTPW=2
+!     NSTPW=30
+
+LWCOU=.FALSE.
+LWCOU2W=.FALSE.
+
+!  Setup for 3 degree resolution wave model
+
+!     RNORTW= 72.0
+!     RSOUTW=-63.0
+!     RDEGREW=3.0
+
+!  Setup for 1.5 degree resolution wave model
+
+RNORTW= 81.0_JPRB
+RSOUTW=-81.0_JPRB
+RDEGREW=1.5_JPRB
+
+!        1.3 Modify default values according to LECMWF
+
+IF (LECMWF) THEN
+  LEPCLD=.TRUE.
+  LEVDIF=.TRUE.
+  LEOCWA=.FALSE.
+  LEOCCO=.FALSE.
+  LEOCSA=.TRUE.
+  LESURF=.TRUE.
+  LECOND=.FALSE.
+  LECUMF=.TRUE.
+  LEEVAP=.TRUE.
+  LEGWDG=.TRUE.
+  LEOZOC=.TRUE.
+  LEQNGT=.TRUE.
+  LERADI=.TRUE.
+  LERADS=.TRUE.
+  LESICE=.TRUE.
+  LEDCLD=.TRUE.
+  LEO3CH=.FALSE.
+  LECO2DIU=.FALSE.
+  LEMETHOX=.TRUE.
+  IF(NCONF == 1) THEN
+    LEPHYS=.TRUE.
+  ENDIF
+  IF(NCONF == 131) THEN
+!   LERADI2 = .TRUE.
+!   LERADS2 = .TRUE.
+!   LEVDIF2 = .TRUE.
+!   LEGWDG2 = .TRUE.
+!   LECUMF2 = .TRUE.
+!   LECOND2 = .TRUE.
+!    IF(L131TL) THEN
+!      LEPHYS=.TRUE.
+!      LECOND=.TRUE.
+!      LEPCLD=.FALSE.
+!    ENDIF
+    LSPHLC=.TRUE.
+    LVDFLC=.TRUE.
+    LSDRLC=.TRUE.
+    LZMCON=.TRUE.
+    LKEXP =.TRUE.
+  ENDIF
+  IF (NCONF == 401 .OR. NCONF == 501) THEN
+    LEPHYS = .TRUE.
+    LECOND = .TRUE.
+    LEPCLD = .FALSE.
+
+!   LETRAJP = .TRUE.
+!   LERADI2 = .TRUE.
+!   LERADS2 = .TRUE.
+!   LEVDIF2 = .TRUE.
+!   LEGWDG2 = .TRUE.
+!   LECUMF2 = .TRUE.
+!   LECOND2 = .TRUE.
+  ENDIF
+
+  IF(NCONF == 601.OR.NCONF == 801) THEN
+
+!      Full physics when computing the trajectory
+
+    LEPHYS=.TRUE.
+
+!      Simple scheme for TL and ADJ
+
+    LSPHLC  = .TRUE.
+    LVDFLC  = .TRUE.
+    LVDFDS  = .TRUE.
+    LSDRLC  = .TRUE.
+    LSDRDS  = .TRUE.
+    LCZDEB  = .FALSE.
+    LZMCON  = .TRUE.
+    LKEXP   = .TRUE.
+    ALPHA   = 3._JPRB
+    AH0     = 1000.0_JPRB
+    USTARL  = 0.5_JPRB
+    USTARS  = 0.2_JPRB
+    ALANDZ0 = 0.05_JPRB
+    ASEAZ0  = 0.0005_JPRB
+
+  ENDIF
+  NPHY = JPHYEC
+ELSE
+  IF ((NCONF == 1).OR.(NCONF == 131).OR.(NCONF == 401)&
+     & .OR.(NCONF == 501).OR.(NCONF == 601)&
+     & .OR.(NCONF == 701).OR.(NCONF == 801)) THEN  
+    LAGPHY=.FALSE.
+    LCVCAS=.TRUE.
+    LCVDD=.TRUE.
+    LCVLIS=.TRUE.
+    LCVPP=.TRUE.
+    LSRCONT=.FALSE.
+    LCVRA=.TRUE.
+    LFGEL=.TRUE.
+    LGWD=.TRUE.
+    LHMTO=.TRUE.
+    LMPHYS=.TRUE.
+    LNEBN=.TRUE.
+    LNEBT=.FALSE.
+    LNEBNXR=.FALSE.
+    LNEIGE=.TRUE.
+    LRAY=.TRUE.
+    LRAYLU=.TRUE.
+    LRAYPL=.TRUE.
+    LRRMES=.TRUE.
+    LSFHYD=.TRUE.
+    LSOLV=.TRUE.
+    LSRCON=.TRUE.
+    LSTRA=.TRUE.
+    LTHERMO=.TRUE.
+    LVDIF=.TRUE.
+    NPHY = JPHYMF
+    IF(LAROME.AND..NOT.LFPOS) THEN
+      !extinction of MF phsic's keys for arome's run
+      !lfpos is added for 927 confs for example.
+      LCVRA=.FALSE.
+      LGWD=.FALSE.
+      LGWDC=.FALSE.
+      LNEBCO=.FALSE.
+      LNEBN=.FALSE.
+      LNEBR=.FALSE.
+      LNEBT=.FALSE.
+      LOZONE=.FALSE.
+      LRAY=.FALSE.
+      LRAYLU=.FALSE.
+      LREWS=.FALSE.
+      LRAYPL=.FALSE.
+      LRAYFM=.FALSE.
+      LRAYFM15=.FALSE.
+      LRRMES=.FALSE.
+      LSFHYD=.FALSE.
+      LSNV=.FALSE.
+      LSOLV=.FALSE.
+      LFGEL=.FALSE.
+      LSTRA=.FALSE.
+      LSTRAS=.FALSE.
+      LVDIF=.FALSE.
+      !initialisation of AROME's physic ones
+      LMPA=.TRUE.
+      LMICRO=.FALSE.
+      LTURB=.FALSE.
+      LMSE=.FALSE.
+      LKFBCONV=.FALSE.
+      LUSECHEM=.FALSE.
+      LKFBD=.FALSE.
+      LKFBS=.FALSE.
+      LUSECHEM=.FALSE.
+      LORILAM=.FALSE.
+      LRDUST=.FALSE.
+      NPHY = JPHYARO 
+    ENDIF
+  ENDIF
+ENDIF
+
+!     ------------------------------------------------------------------
+
+!*       2.    Modify default values.
+!              ----------------------
+
+! Ce qui concerne NAMPHY commente par MPL le 14.04.09
+!CALL POSNAM(NULNAM,'NAMPHY')
+!READ(NULNAM,NAMPHY)
+
+! Ce qui concerne NAMARPHY commente par MPL le 24.11.08
+!CALL POSNAM(NULNAM,'NAMARPHY')
+!READ(NULNAM,NAMARPHY)
+!IF(LMSE) THEN
+!  LSOLV=.FALSE.
+!  LFGEL=.FALSE.
+!  LSNV=.FALSE.
+!  LVGSN=.FALSE.
+!  WRITE(NULOUT,'('' INFO -old isba-lsolv,lfgel,lsnv,lvgsn- reset to .F. '', &
+!                 &'' when using lground i.e. surfex '')')
+!ENDIF
+
+NEPHYS_PCFULL=3
+
+! Ce qui concerne NAEPHY commente par MPL le 14.04.09
+!CALL POSNAM(NULNAM,'NAEPHY')
+!READ(NULNAM,NAEPHY)
+
+IF(LPC_FULL)THEN
+  IF(NEPHYS_PCFULL < 2 .OR.NEPHYS_PCFULL > 3)THEN
+    CALL ABOR1(' SU0PHY: NEPHYS_PCFULL')
+  ENDIF
+ELSE
+  NEPHYS_PCFULL=3
+ENDIF
+
+IF(     NCONF == 201.OR.NCONF == 202 &
+   & .OR.NCONF == 421.OR.NCONF == 422 &
+   & .OR.NCONF == 521.OR.NCONF == 522  )THEN  
+  LREASUR=.FALSE.
+ENDIF
+!IF(.NOT.(LEPHYS.OR.LMPHYS)) THEN
+!  LAGPHY=.FALSE.
+!  LSLPHY=.FALSE.
+!  WRITE(NULOUT,'('' INFO - LSLPHY RESET TO .FALSE. '')')
+!ENDIF
+IF(LEPCLD) THEN
+  LECOND=.FALSE.
+ENDIF
+IF(LAGPHY.AND.NDPSFI /= 0) THEN
+  NDPSFI=0
+  WRITE(NULOUT,'('' WARNING - NDPSFI RESET TO 0 '')')
+ENDIF
+
+! Commente par MPL 24.11.08
+!CALL POSNAM(NULNAM,'NAPHLC')
+!READ(NULNAM,NAPHLC)
+
+! Commente par MPL 24.11.08
+!CALL POSNAM (NULNAM,'NAMTRAJP')
+!READ (NULNAM,NAMTRAJP)
+
+! Commente par MPL 24.11.08
+!CALL POSNAM(NULNAM,'NAMSIMPHL')
+!READ(NULNAM,NAMSIMPHL)
+
+! Commente par MPL 24.11.08
+!CALL POSNAM(NULNAM,'NAMRCOEF')
+!READ(NULNAM,NAMRCOEF)
+
+!-------------------------------------------------
+! Initialize profile extractions for the Single Column Model .
+!-------------------------------------------------
+
+CALL SUSCM(KULOUT)
+
+!     ------------------------------------------------------------------
+
+!*       3.    Do tests of consistency.
+!              ------------------------
+
+IERR=0
+
+! * Test that adequate physics is activated when at least one of the
+!   options LRETCFOU, LWRTCFOU, LRCOEF,is set to .TRUE.
+IF( LWRTCFOU .AND. ((.NOT.LMPHYS).OR.LEPHYS.OR.LAGPHY) ) THEN
+  IERR=IERR+1
+  WRITE(KULOUT,'(1X,A,I3,A)') ' ! SU0PHY: ERROR NR ',IERR,' !!!'
+  WRITE(KULOUT,'(1X,A,A,A)') ' SU0PHY: options ',&
+   & 'LWRTC, LWRTCFOU ',&
+   & 'require the following options for physics:'  
+  WRITE(KULOUT,'(1X,A)') '         - LMPHYS=.TRUE. '
+  WRITE(KULOUT,'(1X,A)') '         - LEPHYS=.FALSE. '
+  WRITE(KULOUT,'(1X,A)') '         - LAGPHY=.FALSE. '
+  IF(.NOT.LRAYSP) THEN
+    WRITE(KULOUT,'(1X,A,A,A)') ' SU0PHY: option ',&
+     & ' LWRTCFOU ',&
+     & 'require the following option for simplified physics:'  
+    WRITE(KULOUT,'(1X,A)') '         - LRAYSP=.TRUE. '
+  ENDIF
+ENDIF
+IF( LRETCFOU .AND. ((.NOT.(LMPHYS.OR.LSIMPH)).OR.LEPHYS.OR.LAGPHY) ) THEN
+  IERR=IERR+1
+  WRITE(KULOUT,'(1X,A,I3,A)') ' ! SU0PHY: ERROR NR ',IERR,' !!!'
+  WRITE(KULOUT,'(1X,A,A,A)') ' SU0PHY: option ',&
+   & ' LRETCFOU ',&
+   & 'require the following options for physics:'  
+  WRITE(KULOUT,'(1X,A)') '         - LMPHYS=.TRUE. or LSIMPH=.TRUE.'
+  WRITE(KULOUT,'(1X,A)') '         - LEPHYS=.FALSE. '
+  WRITE(KULOUT,'(1X,A)') '         - LAGPHY=.FALSE. '
+ENDIF
+IF( LRCOEF .AND. ((.NOT.LMPHYS).OR.LEPHYS.OR.LAGPHY) ) THEN
+  IERR=IERR+1
+  WRITE(KULOUT,'(1X,A,I3,A)') ' ! SU0PHY: ERROR NR ',IERR,' !!!'
+  WRITE(KULOUT,'(1X,A,A,A)') ' SU0PHY: options ',&
+   & 'LRCOEF ',&
+   & 'require the following options for physics:'  
+  WRITE(KULOUT,'(1X,A)') '         - LMPHYS=.TRUE. '
+  WRITE(KULOUT,'(1X,A)') '         - LEPHYS=.FALSE. '
+  WRITE(KULOUT,'(1X,A)') '         - LAGPHY=.FALSE. '
+  IF(.NOT.LRAYSP) THEN
+    WRITE(KULOUT,'(1X,A,A,A)') ' SU0PHY: options ',&
+     & 'LRCOEF ',&
+     & 'require the following option for simplified physics:'  
+    WRITE(KULOUT,'(1X,A)') '         - LRAYSP=.TRUE. '
+  ENDIF
+ENDIF
+
+! * Test that options LRETCFOU, LWRTCFOU are set to .FALSE.
+!   when at least LRCOEF=.TRUE. 
+IF( (LRCOEF) .AND. (LRETCFOU.OR.LWRTCFOU) ) THEN
+  IERR=IERR+1
+  WRITE(KULOUT,'(1X,A,I3,A)') ' ! SU0PHY: ERROR NR ',IERR,' !!!'
+  WRITE(KULOUT,'(1X,A,A,A)') ' SU0PHY: options ',&
+   & 'LRCOEF ',&
+   & 'require that:'  
+  WRITE(KULOUT,'(1X,A)') '         - LRETCFOU=.FALSE. '
+  WRITE(KULOUT,'(1X,A)') '         - LWRTCFOU=.FALSE. '
+ENDIF
+
+! * Test that option LSRCONT is set to .FALSE. when LSRCON=.FALSE. 
+IF( (LSRCONT) .AND. (.NOT.LSRCON) ) THEN
+  IERR=IERR+1
+  WRITE(KULOUT,'(1X,A,I3,A)') ' ! SU0PHY: ERROR NR ',IERR,' !!!'
+  WRITE(KULOUT,'(1X,A,A,A)') ' SU0PHY: options ',&
+   & 'LSRCONT ',&
+   & 'require that:'  
+  WRITE(KULOUT,'(1X,A)') '         - LSRCON=.TRUE. '
+ENDIF
+
+! * Use NDPSFI=1 when not available or inconsistent with some other options?
+!IF(LGWADV .AND. (NDPSFI==1)) THEN
+  ! * these two options actually can run together on an informatic
+  !   point of view, but the current assumptions done with LGWADV=T
+  !   are that a particle which is on the Earth surface remains
+  !   on the Earth surface; this is equivalent to assume that "etadot_surf"
+  !   is always zero. This condition is satisfied when NDPSFI=0
+  !   but not when NDPSFI=1 which gives a non-zero value to "etadot_surf".
+  !   So one forbids combination "LGWADV .AND. (NDPSFI==1)" which leads
+  !   to inconsistencies in the model at the surface.
+!  IERR=IERR+1
+!  WRITE(KULOUT,'(1X,A,I3,A)') ' ! SU0PHY: ERROR NR ',IERR,' !!!'
+!  WRITE(KULOUT,'(1X,A,A,A)') ' SU0PHY: options ',&
+!   & 'NDPSFI=1 ',&
+!   & 'require that:'  
+!  WRITE(KULOUT,'(1X,A)') '         - LGWADV=.FALSE. '
+!ENDIF
+
+! TESTS FOR ALARO-0 (cloud)
+IF (LPIL.AND..NOT.LCONDWT) THEN
+  IERR=IERR+1
+  WRITE(KULOUT,'(1X,A,I3,A)') ' ! SU0PHY: ERROR NR ',IERR,' !!!'
+  WRITE(KULOUT,'(1X,A)') ' SU0PHY: LPIL requires LCONDWT '
+ENDIF
+
+! TESTS FOR ALARO-0 (prognostic convection)
+IF (LCVPRO) THEN
+  LCDDPRO=.TRUE.
+  IF (NCONF /= 1)THEN
+    WRITE(KULOUT,'(1X, A)') 'WARNING: LCVPRO requires NCONF=1'
+    LCVPRO=.FALSE.
+    LCDDPRO=.FALSE.
+  ENDIF
+ENDIF
+
+IF (LPHSPSH .AND. .NOT.(L3MT.OR.LSTRAPRO)) THEN
+  ! * For the time being, LPHSPSH requires L3MT.OR.LSTRAPRO (missing code
+  !   in CPTEND in the other cases, to be coded later).
+  IERR=IERR+1
+  WRITE(KULOUT,'(1X,A,I3,A)') ' ! SU0PHY: ERROR NR ',IERR,' !!!'
+  WRITE(KULOUT,'(1X,A)') ' SU0PHY: LPHSPSH requires L3MT.OR.LSTRAPRO '
+ENDIF
+
+! * Use simplified physics with LMPA=T?
+IF(LMPA.AND.LSIMPH) THEN
+  ! * Simplified physics is not consistent with AROME physics
+  !   concerning most of the physical parameterizations.
+  IERR=IERR+1
+  WRITE(KULOUT,'(1X,A,I3,A)') ' ! SU0PHY: ERROR NR ',IERR,' !!!'
+  WRITE(KULOUT,'(1X,A)') ' SU0PHY: LMPA and LSIMPH cannot be both to T.'
+ENDIF
+
+
+IF (IERR >= 1) THEN
+  CALL FLUSH(KULOUT)
+  CALL ABOR1(' SU0PHY: ABOR1 CALLED')
+ENDIF
+
+!     ------------------------------------------------------------------
+
+!*       4.    Print final values.
+!              -------------------
+
+WRITE(UNIT=KULOUT,FMT='('' COMMON YOMPHY '')')
+WRITE(UNIT=KULOUT,FMT='('' LMPHYS= '',L5,'' LREASUR = '',L5)')LMPHYS,LREASUR
+if (1==0) then       !!!!! A REVOIR (MPL)
+WRITE(UNIT=KULOUT,FMT='('' LCONDWT='',L5,'' LCVPP = '',L5,&
+ & '' LCVPPKF = '',L5,&
+ & '' LNEIGE = '',L5,'' LRNUMX = '',L5,'' LCLSATUR = '',L5,'' LHUNEG = '',L5,&
+ & '' LVOIGT = '',L5,'' LVFULL = '',L5,&
+ & '' L2PHYS = '',L5,&
+ & '' LCVDD = '',L5,'' LCAPE= '',L5,'' LSRCON = '',L5,&
+ & '' LCVLIS = '',L5,'' LCVCAS= '',L5,'' LSRCONT= '',L5,'' LO3ABC= '',L5,  &
+ & '' LAEROSEA = '',L5,'' LAEROLAN = '',L5,'' LAEROSOO = '',L5, &
+ & '' LAERODES = '',L5,'' LAEROVOL = '',L5,'' LAEROSUL = '',L5, &
+ & '' LRELAXT  = '',L5,'' LRELAXW  = '',L5,&
+ & '' LSLC = '',L5,'' LRRGUST= '',L5, &
+ & '' LNEWD = '',L5,'' LGLT= '',L5,'' LDIFCONS= '',L5, &
+ & '' LECT = '',L5,'' LECTFL = '',L5,'' LPBLE = '',L5,'' LCVPGY= '',L5, &
+ & '' LPTKE= '',L5,'' L3MT= '',L5 &
+ & )')&
+ & LCONDWT,LCVPP,LCVPPKF,LNEIGE,LRNUMX,LCLSATUR,LHUNEG,LVOIGT,LVFULL,L2PHYS,LCVDD,&
+ & LCAPE,LSRCON,LCVLIS,LCVCAS,LSRCONT,LO3ABC,LAEROSEA,LAEROLAN,LAEROSOO, &
+ & LAERODES,LAEROVOL,LAEROSUL,LRELAXT,LRELAXW,LSLC,LRRGUST,LNEWD,LGLT,&
+ & LDIFCONS,LECT,LECTFL,LPBLE,LCVPGY,LPTKE,L3MT 
+else
+  print*,'OKL'
+  print*,'LOGICS',&
+ & LCONDWT,LCVPP,LCVPPKF,LNEIGE,LRNUMX,LCLSATUR,LHUNEG,LVOIGT,LVFULL,L2PHYS,LCVDD,&
+ & LCAPE,LSRCON,LCVLIS,LCVCAS,LSRCONT,LO3ABC,LAEROSEA,LAEROLAN,LAEROSOO, &
+ & LAERODES,LAEROVOL,LAEROSUL,LRELAXT,LRELAXW,LSLC,LRRGUST,LNEWD,LGLT,&
+ & LDIFCONS,LECT,LECTFL,LPBLE,LCVPGY,LPTKE,L3MT 
+endif
+WRITE(UNIT=KULOUT,FMT='('' LCVRA = '',L5 ,'' LFPCOR = '',L5&
+ & ,'' LNOIAS = '',L5 &
+ & ,'' LGWD = '',L5,'' LHMTO = '',L5,'' LRAY = '',L5 &
+ & ,'' LSFHYD = '',L5,'' LSTRA = '',L5,'' LTHERMO = '',L5,/&
+ & ,'' LVDIF = '',L5,'' LNEBCO = '',L5,'' LNEBT = '',L5,/&
+ & ,'' LRRMES = '',L5,'' LOZONE = '',L5,'' LNEBR = '',L5,/&
+ & ,'' LSNV = '',L5,'' LSOLV = '',L5,'' LFGEL = '',L5,/&
+ & ,'' LVGSN ='',L5,'' LND2DIFF ='',L5,/&
+ & ,'' LNEBN = '',L5,'' LNEBNXR = '',L5,'' LQXRTGH = '',L5,'' LSTRAS = '',L5,/&
+ & ,'' LHUCN = '',L5,'' LGWDC     = '',L5,'' LRAYFM = '',L5,'' LRAYFM15= '',L5,/&
+ & ,'' LRAYLU  = '',L5,'' LREWS  = '',L5,'' LRPROX = '',L5 /&
+ & ,'' LRMIX   = '',L5,'' LRSTAB = '',L5,''LRAUTOEV = '',L5 /&
+ & ,'' LRTPP = '',L5,'' LRTDL = '',L5,'' LRAYPL = '',L5 &
+ & )')&
+ & LCVRA,LFPCOR,LNOIAS,LGWD,LHMTO,LRAY,LSFHYD,LSTRA,LTHERMO,LVDIF,LNEBCO,&
+ & LNEBT,LRRMES,LOZONE,LNEBR,LSNV,LSOLV,LFGEL,LVGSN,LND2DIFF,&
+ & LNEBN,LNEBNXR,LQXRTGH,LSTRAS,LHUCN,LGWDC,&
+ & LRAYFM,LRAYFM15,LRAYLU,LREWS,&
+ & LRPROX,LRMIX,LRSTAB,LRAUTOEV,LRTPP,LRTDL,LRAYPL
+WRITE(UNIT=KULOUT,FMT='('' NBITER = '',I2,'' NDPSFI = '',I2,'' NPHYREP = '',I2)') &
+ & NBITER,NDPSFI,NPHYREP  
+WRITE(UNIT=KULOUT,FMT='('' NOIR = '',I2)')NOIR
+!WRITE(UNIT=KULOUT,FMT='('' NPHYINT = '',I2)')NPHYINT
+
+WRITE(UNIT=KULOUT,FMT='('' - - - - - - - - - -'')')
+WRITE(UNIT=KULOUT,FMT='('' COMMON YOMPHY'')')
+WRITE(UNIT=KULOUT,FMT='('' - - - - - - - - - -'')')
+WRITE(UNIT=KULOUT,FMT='(&
+ & '' LECT    = '',L5,'' LAJUCV  = '',L5,/, &
+ & '' LCVRAV3 = '',L5, &
+ & '' LNEBGR  = '',L5,'' LNEBGY  = '',L5,'' LBCCOND = '',L5 &
+ & )') LECT,    LAJUCV,  &
+ & LCVRAV3, LNEBGR, LNEBGY, LBCCOND
+
+WRITE(UNIT=KULOUT,FMT='('' - - - - - - - - -'')')
+WRITE(UNIT=KULOUT,FMT='('' MICROPHYSICS KEY '')')
+WRITE(UNIT=KULOUT,FMT='('' - - - - - - - - -'')')
+WRITE(UNIT=KULOUT,FMT='(  '' LPROCLD = '',L5 &
+ &,'' LEVAPP  = '',L5,'' LCOLLEC = '',L5,'' LNSMLIS  = '',L5 &
+ &,'' LADJCLD  = '',L5,'' LAUTONEB  = '',L5,'' LSSD = '',L5)')&
+ &LPROCLD,LEVAPP,LCOLLEC,LNSMLIS,LADJCLD,LAUTONEB,LSSD
+
+WRITE(UNIT=KULOUT,FMT='('' ALARO-0 cloud '')')
+WRITE(UNIT=KULOUT,FMT='('' LPIL = '',L5,'' LSTRAPRO = '',L5 &
+  &,'' LNEWSTAT = '',L5 &
+  &,'' LPHSPSH = '',L5 ,'' LSMROT = '',L5 &
+  &,'' LSMTPS = '',L5 ,'' LSMNIMBT = '',L5 &
+  &,'' L1DRHCRI = '',L5 ,'' LGWRHCRI = '',L5 &
+  &,'' NSMTBOT = '',I2,'' NSMDNEB = '',I2 &
+  &,'' NPRAG = '',I2,'' NPRAC = '',I2 &
+  &,'' NPRRI = '',I2 &
+  &) ')LPIL,LSTRAPRO,LNEWSTAT,LPHSPSH,LSMROT,LSMTPS, LSMNIMBT, &
+  &    L1DRHCRI, LGWRHCRI,&
+  &    NSMTBOT,NSMDNEB, NPRAG,NPRAC,NPRRI
+
+WRITE(UNIT=KULOUT,FMT='('' ALARO-0 prognostic convection  '')')
+WRITE(UNIT=KULOUT,&
+  &FMT='('' LCVPRO ='',L1,'' LCDDPRO ='',L1,'' LSCMF ='',L1)') &
+  &    LCVPRO,LCDDPRO,LSCMF
+
+WRITE(UNIT=KULOUT,FMT='('' COMMON YOMSIMPHL '')')
+WRITE(UNIT=KULOUT,FMT='('' LSIMPH= '',L5,'' LTRAJPS = '',L5 &
+ & ,'' LTRAJPST = '',L5 &
+ & ,'' LSMOOTHD = '',L5,'' LSMOOTHA = '',L5,'' LSMOOTHB = '',L5 &
+ & ,'' LCLOUDS = '',L5 )')&
+ & LSIMPH,LTRAJPS,LTRAJPST,LSMOOTHD,LSMOOTHA, &
+ & LSMOOTHB,LCLOUDS  
+WRITE(UNIT=KULOUT,FMT='('' LCVRASP = '',L5,'' LGWDSP = '',L5 &
+ & ,'' LRAYSP = '',L5,'' LSTRASP = '',L5,'' LVDIFSP = '',L5 &
+ & ,'' LRRMESSP = '',L5)')&
+ & LCVRASP,LGWDSP,LRAYSP,LSTRASP,LVDIFSP,LRRMESSP  
+WRITE(UNIT=KULOUT,FMT='('' COMMON YOMRCOEF '')')
+WRITE(UNIT=KULOUT,FMT='('' LRCOEF= '',L5 &
+ & ,'' LTLADDIA = '',L5,'' LGLOBRAD = '',L5)')&
+ & LRCOEF,LTLADDIA,LGLOBRAD  
+
+! TEST OF CONSISTENCY FOR RADIATION SCHEMES
+
+IF(LMPHYS) THEN
+  IF((LRAY.AND.LRAYFM).OR.(LRAY.AND.LRAYFM15).OR.(LRAYFM15.AND.LRAYFM)) THEN
+    WRITE(NULOUT,'('' WARNING - 2 RADIATION SCHEMES... '')')
+    CALL ABOR1('SU0PHY: ABOR1 CALLED')
+  ENDIF
+ENDIF
+
+!     TESTS OF CONSISTENCY INSIDE YOMPHY
+
+IF(LSTRAS.AND.LRNUMX)THEN
+  WRITE(NULOUT,FMT='('' ACPLUIS AND LRNUMX ARE NOT COMPATIBLE''&
+   & ,''      FOR THE MOMENT'')')  
+  CALL ABOR1('SU0PHY: ABOR1 CALLED')
+ENDIF
+
+!     TESTS OF CONSISTENCY BETWEEN YOMPHY AND INITIALIZATION
+
+!IF (.NOT.LMPHYS.AND..NOT.LEPHYS) THEN
+! Digital Filter Initialisation
+!  IF ((NEINI == 2.OR.NEINI == 4).AND.NEDFI >= 2) THEN
+!    IF (NEDFI <= 5) THEN
+!      WRITE(NULOUT,FMT='('' YOMPHY AND YEMDFI ARE NOT COMPATIBLE'')')
+!      CALL ABOR1(' DIABATIC DFI WITHOUT PHYSICS !')
+!    ELSE
+!      WRITE(NULOUT,FMT='('' CAUTION : FORWARD DFI WITHOUT PHYSICS'')')
+!    ENDIF
+!  ENDIF
+!ENDIF
+
+WRITE(UNIT=KULOUT,FMT='('' COMMON YOMARPHY '')')
+WRITE(UNIT=KULOUT,FMT='('' LMPA = '',L5, &
+ & '' LMICRO = '',L5,'' LTURB = '',L5, &
+ & '' LMSE = '',L5,'' LKFBCONV = '',L5,&
+ & '' LKFBD = '',L5,'' LKFBS = '',L5,&
+ & '' LUSECHEM = '',L5,'' LORILAM = '',L5,'' LRDUST = '',L5)')&
+ & LMPA,LMICRO,LTURB,LMSE,LKFBCONV,LKFBD,LKFBS,LUSECHEM,&
+ & LORILAM,LRDUST
+
+WRITE(UNIT=KULOUT,FMT='('' COMMON YOEPHY '')')
+WRITE(UNIT=KULOUT,FMT='('' LEPHYS = '',L5, &
+ & '' LECOND = '',L5,'' LECUMF = '',L5 &
+ & )')&
+ & LEPHYS,LECOND,LECUMF  
+!WRITE(NULOUT,'("RCLDTOPP=",F10.2)') RCLDTOPP
+WRITE(UNIT=KULOUT,FMT='('' LEDCLD = '',L5,'' LEGWDG = '',L5 &
+ & ,'' LEOZOC = '',L5,'' LEQNGT = '',L5 &
+ & ,'' LEO3CH = '',L5)')&
+ & LEDCLD,LEGWDG,LEOZOC,LEQNGT,LEO3CH  
+WRITE(UNIT=KULOUT,FMT='('' LERADI = '',L5 &
+ & ,'' LESHCV = '',L5,'' LESURF = '',L5,'' LEVDIF = '',L5 &
+ & ,'' LEOCWA = '',L5,'' LEOCCO = '',L5,'' LEOCSA = '',L5 &
+ & ,'' LECURR = '',L5,'' RTHRFRTI = '',F7.2 &
+ & )')&
+ & LERADI,LESHCV,LESURF,LEVDIF,LEOCWA,LEOCCO,LEOCSA,LECURR,RTHRFRTI 
+WRITE(UNIT=KULOUT,FMT='('' LEPCLD = '',L5,'' LEMETHOX= '',L5 &
+ & ,'' LE4ALB = '',L5 &
+ & )')&
+ & LEPCLD,LEMETHOX,LE4ALB  
+
+! Do not allow storage of trajectory in TL physics if tracers 
+! are to be included in linearized physics (temporary) 
+!IF (LETRAJP .AND. LETRAJPT .AND. LTRACLNPH) THEN
+!  WRITE(UNIT=KULOUT,FMT='('' CAUTION : STORAGE OF TRAJECTORY IN LINEAR. PHYSICS NOT YET '')')
+!  WRITE(UNIT=KULOUT,FMT='('' IMPLEMENTED FOR TRACERS: LETRAJPT WILL BE RESET TO .FALSE. '')')
+!ENDIF
+
+!IF (LETRAJP) THEN
+!  WRITE(UNIT=KULOUT,FMT='('' ======================== '')')
+!  WRITE(UNIT=KULOUT,FMT='('' LINEAR PHYSICS ACTIVATED '')')
+!  WRITE(UNIT=KULOUT,FMT='('' ======================== '')')
+!  WRITE(UNIT=KULOUT,FMT='('' LERADI2 = '',L4 &
+!   & ,'' LERADS2 = '',L4 &
+!   & ,'' LERADSW2= '',L4 &
+!   & ,'' LERADN2 = '',L4 &
+!   & ,'' LERADFL2= '',L4 &
+!   & )')&
+!   & LERADI2,LERADS2,LERADSW2,LERADN2,LERADFL2  
+!  WRITE(UNIT=KULOUT,FMT='('' LEDCLD2 = '',L4 &
+!   & ,'' LENCLD2 = '',L4 &
+!   & ,'' LEVAPLS2= '',L4 &
+!   & ,'' LREGCL  = '',L4 &
+!   & ,'' LNCLIN  = '',L4 &
+!   & )')&
+!   & LEDCLD2,LENCLD2,LEVAPLS2,LREGCL,LNCLIN
+!  WRITE(UNIT=KULOUT,FMT='('' LECUMF2 = '',L4 &
+!   & ,'' LECUBM2 = '',L4 &
+!   & ,'' LECOND2 = '',L4    &
+!   & )')&
+!   & LECUMF2,LECUBM2,LECOND2  
+!  WRITE(UNIT=KULOUT,FMT='('' LEVDIF2 = '',L4 &
+!   & ,'' LEGWDG2 = '',L4 &
+!   & ,'' LEQNGT2 = '',L4 &
+!   & ,'' LESURF2 = '',L4 &
+!   & )')&
+!   & LEVDIF2,LEGWDG2,LEQNGT2,LESURF2  
+!  WRITE(UNIT=KULOUT,FMT='('' LEKPERT = '',L4,'' LENOPERT = '',L4)')&
+!   & LEKPERT,LENOPERT
+!  WRITE(UNIT=KULOUT,FMT='('' ======================== '')')
+!  WRITE(UNIT=KULOUT,FMT='('' LETRAJPT = '',L4)')LETRAJPT
+!  WRITE(UNIT=KULOUT,FMT='('' ======================== '')')
+!  WRITE(UNIT=KULOUT,FMT='('' LTRACLNPH = '',L4)')LTRACLNPH
+!  WRITE(UNIT=KULOUT,FMT='('' ======================== '')')
+!ELSE
+!  WRITE(UNIT=KULOUT,FMT='('' ============================ '')')
+!  WRITE(UNIT=KULOUT,FMT='('' LINEAR PHYSICS NOT ACTIVATED '')')
+!  WRITE(UNIT=KULOUT,FMT='('' ============================ '')')
+!  WRITE(UNIT=KULOUT,FMT='('' LENCLD2 = '',L4)')LENCLD2
+!  WRITE(UNIT=KULOUT,FMT='('' LEVAPLS2= '',L4)')LEVAPLS2
+!ENDIF
+
+WRITE(UNIT=KULOUT,FMT='('' LSPHLC = '',L5,'' LVDFLC = '',L5 &
+ & ,'' LVDFDS = '',L5,'' LSDRLC = '',L5,'' LSDRDS = '',L5)')&
+ & LSPHLC,LVDFLC,LVDFDS,LSDRLC,LSDRDS  
+WRITE(UNIT=KULOUT,FMT='('' LCZDEB = '',L5,'' LZMCON = '',L5 &
+ & ,'' LKEXP  = '',L5)') LCZDEB,LZMCON,LKEXP  
+WRITE(UNIT=KULOUT,FMT='('' ALPHA  = '',E16.6)') ALPHA
+WRITE(UNIT=KULOUT,FMT='('' AH0    = '',E16.6,''m'')') AH0
+WRITE(UNIT=KULOUT,FMT='('' USTARL = '',E16.6,''m s-1'')') USTARL
+WRITE(UNIT=KULOUT,FMT='('' USTARS = '',E16.6,''m s-1'')') USTARS
+WRITE(UNIT=KULOUT,FMT='('' ALANDZ0= '',E16.6,''m'')') ALANDZ0
+WRITE(UNIT=KULOUT,FMT='('' ASEAZ0 = '',E16.6,''m'')') ASEAZ0
+
+IF (LAGPHY) THEN
+  WRITE(UNIT=KULOUT,FMT='('' LAGPHY = '',L5,'' THE PHYSICS PAC&
+   & KAGE IS CALLED AFTER THE DYNAMICS IN LAGGED MODE'')')LAGPHY  
+ELSE
+  WRITE(UNIT=KULOUT,FMT='('' LAGPHY = '',L5,'' THE PHYSICS PAC&
+   & KAGE IS CALLED BEFORE THE DYNAMICS '')')LAGPHY  
+ENDIF
+WRITE(UNIT=KULOUT,FMT=*) 'CGMIXLEN=',TRIM(CGMIXLEN)
+WRITE(UNIT=KULOUT,FMT='('' LPRGML = '',L4)') LPRGML
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SU0PHY',1,ZHOOK_HANDLE)
+END SUBROUTINE SU0PHY
Index: LMDZ5/trunk/libf/phylmd/rrtm/su0phy.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/su0phy.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/su0phy.intfb.h	(revision 1989)
@@ -0,0 +1,6 @@
+INTERFACE
+SUBROUTINE SU0PHY(KULOUT)
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KULOUT
+END SUBROUTINE SU0PHY
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/su_aerop.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/su_aerop.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/su_aerop.F90	(revision 1989)
@@ -0,0 +1,972 @@
+SUBROUTINE SU_AEROP
+
+!**** *SU_AEROP*   - INITIALIZE MODULES YOEAEROP
+
+!     PURPOSE.
+!     --------
+!           INITIALIZE YOEAEROP THE MODULE THAT CONTAINS THE
+!           OPTICAL PROPERTIES FOR THE PROGNOSTIC AEROSOLS
+
+!**   INTERFACE.
+!     ----------
+!        *CALL* *SU_AEROP
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!        NONE
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+!        YOEAEROP
+
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+
+!     EXTERNALS.
+!     ----------
+
+!     REFERENCE.
+!     ----------
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE *ECMWF*
+!        from O.BOUCHER's stand-alone codes (LOA, 2005-03) 
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 2005-03-25
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOEAEROP  , ONLY : ALF_SU, ASY_SU, OMG_SU, ALF_OM, ASY_OM, OMG_OM, &
+  & ALF_DD, ASY_DD, OMG_DD, ALF_SS, ASY_SS, OMG_SS, ALF_BC, ASY_BC, OMG_BC, &
+  & ALF_FA, ASY_FA, OMG_FA 
+
+IMPLICIT NONE
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+!     ----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SU_AEROP',0,ZHOOK_HANDLE)
+
+
+!*      1.    PARAMETERS RELATED TO OPTICAL PROPERTIES
+!             ----------------------------------------
+
+! All arrays are given in three blocks: 
+! first, for 16 wavelengths relevant to observations 
+! 340, 380, 400, 440, 469, 500, 532, 555, 645, 670, 800, 858, 865, 1240, 1640, 2130 
+
+!(  not done yet, depends whether SW6 or RRTM_SW is used, to be computed for RRTM_LW)
+! second, for the spectral intervals of the SW radiation scheme
+! third, for the spectral intervals of the LW radiation scheme
+
+! For sulfates (_SU) and organic matters (_OM), values are given as function 
+! of RH (12 values) for the 8 wavelengths
+! For sea-salt (_SS), 3 bins are considered      (0.03, 0.50, 5.0, 20.)
+! For desert dust (_DD), 3 bins are considered	 (0.03, 0.55, 0.9, 20.)
+!
+! IF BIN LIMITS ARE CHANGED, MAKE SURE THAT THE RELEVANT SEDIMENTATION SPEEDS ARE 
+! RECOMPUTED ACCORDINGLY
+
+! RH  0.   	 10.	     20.         30.         40.         50.
+!    60.         70.         80.         85.         90.         95.    
+
+ALF_FA(:) =0.0_JPRB
+ASY_FA(:) =0.0_JPRB
+OMG_FA(:) =0.0_JPRB
+
+! alpha_aer_bc
+ALF_BC( :) = (/ &
+  & 14.237_JPRB, 14.237_JPRB, &
+  & 14.237_JPRB, 12.619_JPRB, 12.000_JPRB, 10.684_JPRB,  9.840_JPRB,  9.412_JPRB,  9.000_JPRB, &
+  &  7.212_JPRB,  5.677_JPRB,  5.500_JPRB,  5.113_JPRB,  5.000_JPRB,  5.000_JPRB,  5.000_JPRB /)
+
+! cg_aer_bc
+ASY_BC( :) = (/ &
+  &   .398_JPRB,   .398_JPRB, &
+  &   .398_JPRB,   .379_JPRB,   .353_JPRB,   .350_JPRB,   .341_JPRB,   .335_JPRB,   .300_JPRB, & 
+  &   .296_JPRB,   .263_JPRB,   .250_JPRB,   .248_JPRB,   .200_JPRB,   .200_JPRB,   .200_JPRB /)
+
+! om_aer_bc
+OMG_BC( :) = (/ &
+  &   .270_JPRB,   .270_JPRB, &
+  &   .270_JPRB,   .251_JPRB,   .240_JPRB,   .226_JPRB,   .213_JPRB,   .206_JPRB,   .180_JPRB, &
+  &   .166_JPRB,   .132_JPRB,   .120_JPRB,   .118_JPRB,   .100_JPRB,   .100_JPRB,   .100_JPRB  /)
+
+! alpha_aer_sulfate
+ALF_SU( :,1) = (/ &
+  &  6.823_JPRB, 6.823_JPRB, 6.823_JPRB, 6.823_JPRB, 9.168_JPRB,10.246_JPRB, &
+  & 11.685_JPRB,13.796_JPRB,17.504_JPRB,20.617_JPRB,26.335_JPRB,42.574_JPRB /)
+ALF_SU( :,2) = (/ &
+  &  6.823_JPRB, 6.823_JPRB, 6.823_JPRB, 6.823_JPRB, 9.168_JPRB,10.246_JPRB, &
+  & 11.685_JPRB,13.796_JPRB,17.504_JPRB,20.617_JPRB,26.335_JPRB,42.574_JPRB /)
+ALF_SU( :,3) = (/ &
+  &  6.823_JPRB, 6.823_JPRB, 6.823_JPRB, 6.823_JPRB, 9.168_JPRB,10.246_JPRB, &
+  & 11.685_JPRB,13.796_JPRB,17.504_JPRB,20.617_JPRB,26.335_JPRB,42.574_JPRB /)
+ALF_SU( :,4) = (/ &
+  &  6.023_JPRB, 6.023_JPRB, 6.023_JPRB, 6.023_JPRB, 8.115_JPRB, 9.094_JPRB, &
+  & 10.407_JPRB,12.344_JPRB,15.773_JPRB,18.661_JPRB,24.014_JPRB,39.387_JPRB /)
+ALF_SU( :,5) = (/ &
+  &  6.023_JPRB, 6.023_JPRB, 6.023_JPRB, 6.023_JPRB, 8.115_JPRB, 9.094_JPRB, &
+  & 10.407_JPRB,12.344_JPRB,15.773_JPRB,18.661_JPRB,24.014_JPRB,39.387_JPRB /)
+
+ALF_SU( :,6) = (/ &
+  &  5.009_JPRB, 5.009_JPRB, 5.009_JPRB, 5.009_JPRB, 6.779_JPRB, 7.626_JPRB, &
+  &  8.769_JPRB,10.466_JPRB,13.501_JPRB,16.072_JPRB,20.889_JPRB,34.944_JPRB /)
+ALF_SU( :,7) = (/ &
+  &  4.548_JPRB, 4.548_JPRB, 4.548_JPRB, 4.548_JPRB, 6.171_JPRB, 6.956_JPRB, &
+  &  8.016_JPRB, 9.597_JPRB,12.438_JPRB,14.852_JPRB,19.397_JPRB,32.764_JPRB /)
+
+ALF_SU( :,8) = (/ &
+  &  4.311_JPRB, 4.311_JPRB, 4.311_JPRB, 4.311_JPRB, 5.858_JPRB, 6.609_JPRB, &
+  &  7.626_JPRB, 9.145_JPRB,11.882_JPRB,14.211_JPRB,18.609_JPRB,31.596_JPRB /)
+ALF_SU( :,9) = (/ &
+  &  4.311_JPRB, 4.311_JPRB, 4.311_JPRB, 4.311_JPRB, 5.858_JPRB, 6.609_JPRB, &
+  &  7.626_JPRB, 9.145_JPRB,11.882_JPRB,14.211_JPRB,18.609_JPRB,31.596_JPRB /)
+
+ALF_SU(:,10) = (/ &
+  &  3.053_JPRB, 3.053_JPRB, 3.053_JPRB, 3.053_JPRB, 4.191_JPRB, 4.758_JPRB, &
+  &  5.532_JPRB, 6.700_JPRB, 8.836_JPRB,10.671_JPRB,14.193_JPRB,24.859_JPRB /)
+ALF_SU(:,11) = (/ &
+  &  2.155_JPRB, 2.155_JPRB, 2.155_JPRB, 2.155_JPRB, 2.992_JPRB, 3.416_JPRB, &
+  &  3.999_JPRB, 4.886_JPRB, 6.532_JPRB, 7.958_JPRB,10.735_JPRB,19.336_JPRB /)
+ALF_SU(:,12) = (/ &
+  &  2.155_JPRB, 2.155_JPRB, 2.155_JPRB, 2.155_JPRB, 2.992_JPRB, 3.416_JPRB, &
+  &  3.999_JPRB, 4.886_JPRB, 6.532_JPRB, 7.958_JPRB,10.735_JPRB,19.336_JPRB /)
+
+ALF_SU(:,13) = (/ &
+  &  1.827_JPRB, 1.827_JPRB, 1.827_JPRB, 1.827_JPRB, 2.551_JPRB, 2.920_JPRB, &
+  &  3.429_JPRB, 4.207_JPRB, 5.657_JPRB, 6.920_JPRB, 9.392_JPRB,17.128_JPRB /)
+ALF_SU(:,14) = (/ &
+  &  1.827_JPRB, 1.827_JPRB, 1.827_JPRB, 1.827_JPRB, 2.551_JPRB, 2.920_JPRB, &
+  &  3.429_JPRB, 4.207_JPRB, 5.657_JPRB, 6.920_JPRB, 9.392_JPRB,17.128_JPRB /)
+ALF_SU(:,15) = (/ &
+  &  1.827_JPRB, 1.827_JPRB, 1.827_JPRB, 1.827_JPRB, 2.551_JPRB, 2.920_JPRB, &
+  &  3.429_JPRB, 4.207_JPRB, 5.657_JPRB, 6.920_JPRB, 9.392_JPRB,17.128_JPRB /)
+ALF_SU(:,16) = (/ &
+  &  1.827_JPRB, 1.827_JPRB, 1.827_JPRB, 1.827_JPRB, 2.551_JPRB, 2.920_JPRB, &
+  &  3.429_JPRB, 4.207_JPRB, 5.657_JPRB, 6.920_JPRB, 9.392_JPRB,17.128_JPRB /)
+
+! cg_aer_sulfate
+ASY_SU( :,1) = (/ &
+  &  0.640_JPRB,  .640_JPRB,  .640_JPRB,  .640_JPRB,  .695_JPRB,  .704_JPRB, &
+  &   .713_JPRB,  .723_JPRB,  .734_JPRB,  .744_JPRB,  .754_JPRB,  .775_JPRB /)
+ASY_SU( :,2) = (/ &
+  &  0.640_JPRB,  .640_JPRB,  .640_JPRB,  .640_JPRB,  .695_JPRB,  .704_JPRB, &
+  &   .713_JPRB,  .723_JPRB,  .734_JPRB,  .744_JPRB,  .754_JPRB,  .775_JPRB /)
+ASY_SU( :,3) = (/ &
+  &  0.640_JPRB,  .640_JPRB,  .640_JPRB,  .640_JPRB,  .695_JPRB,  .704_JPRB, &
+  &   .713_JPRB,  .723_JPRB,  .734_JPRB,  .744_JPRB,  .754_JPRB,  .775_JPRB /)
+ASY_SU( :,4) = (/ &
+  &   .632_JPRB,  .632_JPRB,  .632_JPRB,  .632_JPRB,  .687_JPRB,  .696_JPRB, &
+  &   .705_JPRB,  .716_JPRB,  .728_JPRB,  .738_JPRB,  .749_JPRB,  .771_JPRB /)
+ASY_SU( :,5) = (/ &
+  &   .632_JPRB,  .632_JPRB,  .632_JPRB,  .632_JPRB,  .687_JPRB,  .696_JPRB, &
+  &   .705_JPRB,  .716_JPRB,  .728_JPRB,  .738_JPRB,  .749_JPRB,  .771_JPRB /)
+
+ASY_SU( :,6) = (/ &
+  &   .620_JPRB,  .620_JPRB,  .620_JPRB,  .620_JPRB,  .674_JPRB,  .683_JPRB, &
+  &   .693_JPRB,  .704_JPRB,  .717_JPRB,  .728_JPRB,  .740_JPRB,  .764_JPRB /)
+ASY_SU( :,7) = (/ &
+  &   .613_JPRB,  .613_JPRB,  .613_JPRB,  .613_JPRB,  .667_JPRB,  .677_JPRB, &
+  &   .687_JPRB,  .698_JPRB,  .711_JPRB,  .722_JPRB,  .735_JPRB,  .760_JPRB /)
+
+ASY_SU( :,8) = (/ &
+  &   .609_JPRB,  .609_JPRB,  .609_JPRB,  .609_JPRB,  .664_JPRB,  .673_JPRB, &
+  &   .683_JPRB,  .694_JPRB,  .708_JPRB,  .719_JPRB,  .733_JPRB,  .758_JPRB /)
+ASY_SU( :,9) = (/ &
+  &   .609_JPRB,  .609_JPRB,  .609_JPRB,  .609_JPRB,  .664_JPRB,  .673_JPRB, &
+  &   .683_JPRB,  .694_JPRB,  .708_JPRB,  .719_JPRB,  .733_JPRB,  .758_JPRB /)
+
+ASY_SU(:,10) = (/ &
+  &   .584_JPRB,  .584_JPRB,  .584_JPRB,  .584_JPRB,  .637_JPRB,  .647_JPRB, &
+  &   .658_JPRB,  .670_JPRB,  .686_JPRB,  .698_JPRB,  .713_JPRB,  .742_JPRB /)
+ASY_SU(:,11) = (/ &
+  &   .558_JPRB,  .558_JPRB,  .558_JPRB,  .558_JPRB,  .609_JPRB,  .620_JPRB, &
+  &   .631_JPRB,  .644_JPRB,  .661_JPRB,  .674_JPRB,  .691_JPRB,  .723_JPRB /)
+ASY_SU(:,12) = (/ &
+  &   .558_JPRB,  .558_JPRB,  .558_JPRB,  .558_JPRB,  .609_JPRB,  .620_JPRB, &
+  &   .631_JPRB,  .644_JPRB,  .661_JPRB,  .674_JPRB,  .691_JPRB,  .723_JPRB /)
+
+ASY_SU(:,13) = (/ &
+  &   .546_JPRB,  .546_JPRB,  .546_JPRB,  .546_JPRB,  .596_JPRB,  .606_JPRB, &
+  &   .618_JPRB,  .632_JPRB,  .649_JPRB,  .663_JPRB,  .680_JPRB,  .714_JPRB /)
+ASY_SU(:,14) = (/ &
+  &   .546_JPRB,  .546_JPRB,  .546_JPRB,  .546_JPRB,  .596_JPRB,  .606_JPRB, &
+  &   .618_JPRB,  .632_JPRB,  .649_JPRB,  .663_JPRB,  .680_JPRB,  .714_JPRB /)
+ASY_SU(:,15) = (/ &
+  &   .546_JPRB,  .546_JPRB,  .546_JPRB,  .546_JPRB,  .596_JPRB,  .606_JPRB, &
+  &   .618_JPRB,  .632_JPRB,  .649_JPRB,  .663_JPRB,  .680_JPRB,  .714_JPRB /)
+ASY_SU(:,16) = (/ &
+  &   .546_JPRB,  .546_JPRB,  .546_JPRB,  .546_JPRB,  .596_JPRB,  .606_JPRB, &
+  &   .618_JPRB,  .632_JPRB,  .649_JPRB,  .663_JPRB,  .680_JPRB,  .714_JPRB /)
+
+! om_aer_sulfate
+OMG_SU( :,1) = (/ &
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, & 
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /)
+OMG_SU( :,2) = (/ &
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, & 
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /)
+OMG_SU( :,3) = (/ &
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, & 
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /)
+OMG_SU( :,4) = (/ &
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, & 
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /) 
+OMG_SU( :,5) = (/ &
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, & 
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /) 
+OMG_SU( :,6) = (/ &
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, &
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /) 
+OMG_SU( :,7) = (/ &
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, & 
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /)  
+
+OMG_SU( :,8) = (/ &
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, & 
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /) 
+OMG_SU( :,9) = (/ &
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, & 
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /) 
+OMG_SU(:,10) = (/ &
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, &  
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /) 
+OMG_SU(:,11) = (/ &
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, & 
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /)
+OMG_SU(:,12) = (/ &
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, & 
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /)
+OMG_SU(:,13) = (/ &
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, & 
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /)
+OMG_SU(:,14) = (/ &
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, & 
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /)
+OMG_SU(:,15) = (/ &
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, & 
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /)
+OMG_SU(:,16) = (/ &
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, & 
+  &  1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /)
+
+
+! alpha_aer_om (organic matter)
+ALF_OM( :,1) = (/ &
+  &  4.973_JPRB, 4.973_JPRB, 4.973_JPRB, 4.973_JPRB, 7.408_JPRB, 8.294_JPRB, &
+  &  9.468_JPRB,11.168_JPRB,14.087_JPRB,16.688_JPRB,21.321_JPRB,24.076_JPRB /)
+ALF_OM( :,2) = (/ &
+  &  4.973_JPRB, 4.973_JPRB, 4.973_JPRB, 4.973_JPRB, 7.408_JPRB, 8.294_JPRB, &
+  &  9.468_JPRB,11.168_JPRB,14.087_JPRB,16.688_JPRB,21.321_JPRB,24.076_JPRB /)
+ALF_OM( :,3) = (/ &
+  &  4.973_JPRB, 4.973_JPRB, 4.973_JPRB, 4.973_JPRB, 7.408_JPRB, 8.294_JPRB, &
+  &  9.468_JPRB,11.168_JPRB,14.087_JPRB,16.688_JPRB,21.321_JPRB,24.076_JPRB /)
+ALF_OM( :,4) = (/ &
+  &  4.396_JPRB, 4.396_JPRB, 4.396_JPRB, 4.396_JPRB, 6.612_JPRB, 7.425_JPRB, &
+  &  8.508_JPRB,10.084_JPRB,12.810_JPRB,15.257_JPRB,19.652_JPRB,22.764_JPRB /)
+ALF_OM( :,5) = (/ &
+  &  4.396_JPRB, 4.396_JPRB, 4.396_JPRB, 4.396_JPRB, 6.612_JPRB, 7.425_JPRB, &
+  &  8.508_JPRB,10.084_JPRB,12.810_JPRB,15.257_JPRB,19.652_JPRB,22.764_JPRB /)
+
+ALF_OM( :,6) = (/ &
+  &  3.664_JPRB, 3.664_JPRB, 3.664_JPRB, 3.664_JPRB, 5.585_JPRB, 6.298_JPRB, &
+  &  7.253_JPRB, 8.652_JPRB,11.097_JPRB,13.314_JPRB,17.340_JPRB,20.901_JPRB /)
+ALF_OM( :,7) = (/ &
+  &  3.331_JPRB, 3.331_JPRB, 3.331_JPRB, 3.331_JPRB, 5.111_JPRB, 5.775_JPRB, &
+  &  6.667_JPRB, 7.979_JPRB,10.281_JPRB,12.380_JPRB,16.211_JPRB,19.964_JPRB /)
+
+ALF_OM( :,8) = (/ &
+  &  3.159_JPRB, 3.159_JPRB, 3.159_JPRB, 3.159_JPRB, 4.865_JPRB, 5.502_JPRB, &
+  &  6.361_JPRB, 7.625_JPRB, 9.851_JPRB,11.885_JPRB,15.608_JPRB,19.454_JPRB /)
+ALF_OM( :,9) = (/ &
+  &  3.159_JPRB, 3.159_JPRB, 3.159_JPRB, 3.159_JPRB, 4.865_JPRB, 5.502_JPRB, &
+  &  6.361_JPRB, 7.625_JPRB, 9.851_JPRB,11.885_JPRB,15.608_JPRB,19.454_JPRB /)
+
+ALF_OM(:,10) = (/ &
+  &  2.248_JPRB, 2.248_JPRB, 2.248_JPRB, 2.248_JPRB, 3.537_JPRB, 4.027_JPRB, &
+  &  4.692_JPRB, 5.682_JPRB, 7.451_JPRB, 9.094_JPRB,12.150_JPRB,16.386_JPRB /)
+ALF_OM(:,11) = (/ &
+  &  1.595_JPRB, 1.595_JPRB, 1.595_JPRB, 1.595_JPRB, 2.559_JPRB, 2.931_JPRB, &
+  &  3.439_JPRB, 4.203_JPRB, 5.587_JPRB, 6.888_JPRB, 9.348_JPRB,13.658_JPRB /)
+ALF_OM(:,12) = (/ &
+  &  1.595_JPRB, 1.595_JPRB, 1.595_JPRB, 1.595_JPRB, 2.559_JPRB, 2.931_JPRB, &
+  &  3.439_JPRB, 4.203_JPRB, 5.587_JPRB, 6.888_JPRB, 9.348_JPRB,13.658_JPRB /)
+
+ALF_OM(:,13) = (/ &
+  &  1.356_JPRB, 1.356_JPRB, 1.356_JPRB, 1.356_JPRB, 2.195_JPRB, 2.520_JPRB, &
+  &  2.967_JPRB, 3.641_JPRB, 4.867_JPRB, 6.028_JPRB, 8.236_JPRB,12.495_JPRB /)
+ALF_OM(:,14) = (/ &
+  &  1.356_JPRB, 1.356_JPRB, 1.356_JPRB, 1.356_JPRB, 2.195_JPRB, 2.520_JPRB, &
+  &  2.967_JPRB, 3.641_JPRB, 4.867_JPRB, 6.028_JPRB, 8.236_JPRB,12.495_JPRB /)
+ALF_OM(:,15) = (/ &
+  &  1.356_JPRB, 1.356_JPRB, 1.356_JPRB, 1.356_JPRB, 2.195_JPRB, 2.520_JPRB, &
+  &  2.967_JPRB, 3.641_JPRB, 4.867_JPRB, 6.028_JPRB, 8.236_JPRB,12.495_JPRB /)
+ALF_OM(:,16) = (/ &
+  &  1.356_JPRB, 1.356_JPRB, 1.356_JPRB, 1.356_JPRB, 2.195_JPRB, 2.520_JPRB, &
+  &  2.967_JPRB, 3.641_JPRB, 4.867_JPRB, 6.028_JPRB, 8.236_JPRB,12.495_JPRB /)
+
+ASY_OM( :,1) = (/ &
+  &   .644_JPRB,  .644_JPRB,  .644_JPRB,  .644_JPRB,  .676_JPRB,  .684_JPRB, &
+  &   .692_JPRB,  .700_JPRB,  .711_JPRB,  .718_JPRB,  .726_JPRB,  .543_JPRB /)
+ASY_OM( :,2) = (/ &
+  &   .644_JPRB,  .644_JPRB,  .644_JPRB,  .644_JPRB,  .676_JPRB,  .684_JPRB, &
+  &   .692_JPRB,  .700_JPRB,  .711_JPRB,  .718_JPRB,  .726_JPRB,  .543_JPRB /)
+ASY_OM( :,3) = (/ &
+  &   .644_JPRB,  .644_JPRB,  .644_JPRB,  .644_JPRB,  .676_JPRB,  .684_JPRB, &
+  &   .692_JPRB,  .700_JPRB,  .711_JPRB,  .718_JPRB,  .726_JPRB,  .543_JPRB /)
+ASY_OM( :,4) = (/ &
+  &   .635_JPRB,  .635_JPRB,  .635_JPRB,  .635_JPRB,  .669_JPRB,  .676_JPRB, &
+  &   .685_JPRB,  .694_JPRB,  .705_JPRB,  .713_JPRB,  .721_JPRB,  .538_JPRB /)
+ASY_OM( :,5) = (/ &
+  &   .635_JPRB,  .635_JPRB,  .635_JPRB,  .635_JPRB,  .669_JPRB,  .676_JPRB, &
+  &   .685_JPRB,  .694_JPRB,  .705_JPRB,  .713_JPRB,  .721_JPRB,  .538_JPRB /)
+
+ASY_OM( :,6) = (/ &
+  &   .623_JPRB,  .623_JPRB,  .623_JPRB,  .623_JPRB,  .657_JPRB,  .665_JPRB, &
+  &   .674_JPRB,  .684_JPRB,  .696_JPRB,  .704_JPRB,  .714_JPRB,  .529_JPRB /)
+ASY_OM( :,7) = (/ &
+  &   .616_JPRB,  .616_JPRB,  .616_JPRB,  .616_JPRB,  .651_JPRB,  .659_JPRB, &
+  &   .668_JPRB,  .678_JPRB,  .691_JPRB,  .699_JPRB,  .710_JPRB,  .524_JPRB /)
+
+ASY_OM( :,8) = (/ &
+  &   .612_JPRB,  .612_JPRB,  .612_JPRB,  .612_JPRB,  .647_JPRB,  .655_JPRB, &
+  &   .664_JPRB,  .675_JPRB,  .688_JPRB,  .696_JPRB,  .707_JPRB,  .521_JPRB /)
+ASY_OM( :,9) = (/ &
+  &   .612_JPRB,  .612_JPRB,  .612_JPRB,  .612_JPRB,  .647_JPRB,  .655_JPRB, &
+  &   .664_JPRB,  .675_JPRB,  .688_JPRB,  .696_JPRB,  .707_JPRB,  .521_JPRB /)
+
+ASY_OM(:,10) = (/ &
+  &   .586_JPRB,  .586_JPRB,  .586_JPRB,  .586_JPRB,  .623_JPRB,  .632_JPRB, &
+  &   .641_JPRB,  .653_JPRB,  .667_JPRB,  .677_JPRB,  .690_JPRB,  .502_JPRB /)
+ASY_OM(:,11) = (/ &
+  &   .559_JPRB,  .559_JPRB,  .559_JPRB,  .559_JPRB,  .597_JPRB,  .606_JPRB, &
+  &   .617_JPRB,  .629_JPRB,  .645_JPRB,  .656_JPRB,  .670_JPRB,  .482_JPRB /)
+ASY_OM(:,12) = (/ &
+  &   .559_JPRB,  .559_JPRB,  .559_JPRB,  .559_JPRB,  .597_JPRB,  .606_JPRB, &
+  &   .617_JPRB,  .629_JPRB,  .645_JPRB,  .656_JPRB,  .670_JPRB,  .482_JPRB /)
+
+ASY_OM(:,13) = (/ &
+  &   .546_JPRB,  .546_JPRB,  .546_JPRB,  .546_JPRB,  .584_JPRB,  .594_JPRB, &
+  &   .605_JPRB,  .617_JPRB,  .634_JPRB,  .645_JPRB,  .660_JPRB,  .472_JPRB /)
+ASY_OM(:,14) = (/ &
+  &   .546_JPRB,  .546_JPRB,  .546_JPRB,  .546_JPRB,  .584_JPRB,  .594_JPRB, &
+  &   .605_JPRB,  .617_JPRB,  .634_JPRB,  .645_JPRB,  .660_JPRB,  .472_JPRB /)
+ASY_OM(:,15) = (/ &
+  &   .546_JPRB,  .546_JPRB,  .546_JPRB,  .546_JPRB,  .584_JPRB,  .594_JPRB, &
+  &   .605_JPRB,  .617_JPRB,  .634_JPRB,  .645_JPRB,  .660_JPRB,  .472_JPRB /)
+ASY_OM(:,16) = (/ &
+  &   .546_JPRB,  .546_JPRB,  .546_JPRB,  .546_JPRB,  .584_JPRB,  .594_JPRB, &
+  &   .605_JPRB,  .617_JPRB,  .634_JPRB,  .645_JPRB,  .660_JPRB,  .472_JPRB /)
+
+OMG_OM( :,1) = (/ &
+  &   .971_JPRB,  .971_JPRB,  .971_JPRB,  .971_JPRB,  .980_JPRB,  .982_JPRB, &
+  &   .984_JPRB,  .987_JPRB,  .989_JPRB,  .991_JPRB,  .993_JPRB, 1.000_JPRB /)
+OMG_OM( :,2) = (/ &
+  &   .971_JPRB,  .971_JPRB,  .971_JPRB,  .971_JPRB,  .980_JPRB,  .982_JPRB, &
+  &   .984_JPRB,  .987_JPRB,  .989_JPRB,  .991_JPRB,  .993_JPRB, 1.000_JPRB /)
+OMG_OM( :,3) = (/ &
+  &   .971_JPRB,  .971_JPRB,  .971_JPRB,  .971_JPRB,  .980_JPRB,  .982_JPRB, &
+  &   .984_JPRB,  .987_JPRB,  .989_JPRB,  .991_JPRB,  .993_JPRB, 1.000_JPRB /)
+OMG_OM( :,4) = (/ &
+  &   .971_JPRB,  .971_JPRB,  .971_JPRB,  .971_JPRB,  .980_JPRB,  .982_JPRB, & 
+  &   .985_JPRB,  .987_JPRB,  .990_JPRB,  .991_JPRB,  .993_JPRB, 1.000_JPRB /)
+OMG_OM( :,5) = (/ &
+  &   .971_JPRB,  .971_JPRB,  .971_JPRB,  .971_JPRB,  .980_JPRB,  .982_JPRB, & 
+  &   .985_JPRB,  .987_JPRB,  .990_JPRB,  .991_JPRB,  .993_JPRB, 1.000_JPRB /)
+
+OMG_OM( :,6) = (/ &
+  &   .970_JPRB,  .970_JPRB,  .970_JPRB,  .970_JPRB,  .980_JPRB,  .982_JPRB, &
+  &   .984_JPRB,  .987_JPRB,  .990_JPRB,  .991_JPRB,  .993_JPRB, 1.000_JPRB /)
+OMG_OM( :,7) = (/ &
+  &   .970_JPRB,  .970_JPRB,  .970_JPRB,  .970_JPRB,  .980_JPRB,  .982_JPRB, &
+  &   .984_JPRB,  .987_JPRB,  .990_JPRB,  .991_JPRB,  .993_JPRB, 1.000_JPRB /)
+
+OMG_OM( :,8) = (/ &
+  &   .969_JPRB,  .969_JPRB,  .969_JPRB,  .969_JPRB,  .980_JPRB,  .982_JPRB, &
+  &   .984_JPRB,  .987_JPRB,  .990_JPRB,  .991_JPRB,  .993_JPRB, 1.000_JPRB /)
+OMG_OM( :,9) = (/ &
+  &   .969_JPRB,  .969_JPRB,  .969_JPRB,  .969_JPRB,  .980_JPRB,  .982_JPRB, &
+  &   .984_JPRB,  .987_JPRB,  .990_JPRB,  .991_JPRB,  .993_JPRB, 1.000_JPRB /)
+
+OMG_OM(:,10) = (/ &
+  &   .967_JPRB,  .967_JPRB,  .967_JPRB,  .967_JPRB,  .979_JPRB,  .981_JPRB, &
+  &   .984_JPRB,  .986_JPRB,  .989_JPRB,  .991_JPRB,  .993_JPRB, 1.000_JPRB /)
+OMG_OM(:,11) = (/ &
+  &   .964_JPRB,  .964_JPRB,  .964_JPRB,  .964_JPRB,  .977_JPRB,  .979_JPRB, &
+  &   .982_JPRB,  .985_JPRB,  .989_JPRB,  .991_JPRB,  .993_JPRB, 1.000_JPRB /)
+OMG_OM(:,12) = (/ &
+  &   .964_JPRB,  .964_JPRB,  .964_JPRB,  .964_JPRB,  .977_JPRB,  .979_JPRB, &
+  &   .982_JPRB,  .985_JPRB,  .989_JPRB,  .991_JPRB,  .993_JPRB, 1.000_JPRB /)
+
+OMG_OM(:,13) = (/ &
+  &   .962_JPRB,  .962_JPRB,  .962_JPRB,  .962_JPRB,  .976_JPRB,  .979_JPRB, &
+  &   .982_JPRB,  .985_JPRB,  .988_JPRB,  .990_JPRB,  .993_JPRB,  .999_JPRB /)
+OMG_OM(:,14) = (/ &
+  &   .962_JPRB,  .962_JPRB,  .962_JPRB,  .962_JPRB,  .976_JPRB,  .979_JPRB, &
+  &   .982_JPRB,  .985_JPRB,  .988_JPRB,  .990_JPRB,  .993_JPRB,  .999_JPRB /)
+OMG_OM(:,15) = (/ &
+  &   .962_JPRB,  .962_JPRB,  .962_JPRB,  .962_JPRB,  .976_JPRB,  .979_JPRB, &
+  &   .982_JPRB,  .985_JPRB,  .988_JPRB,  .990_JPRB,  .993_JPRB,  .999_JPRB /)
+OMG_OM(:,16) = (/ &
+  &   .962_JPRB,  .962_JPRB,  .962_JPRB,  .962_JPRB,  .976_JPRB,  .979_JPRB, &
+  &   .982_JPRB,  .985_JPRB,  .988_JPRB,  .990_JPRB,  .993_JPRB,  .999_JPRB /)
+
+
+!alpha_aer_dd (desert dust) 
+!                    bin1,       bin2,       bin3
+ALF_DD( :,1) = (/ 2.210_JPRB, 1.011_JPRB,  .398_JPRB /)
+ALF_DD( :,2) = (/ 2.210_JPRB, 1.011_JPRB,  .398_JPRB /)
+ALF_DD( :,3) = (/ 2.210_JPRB, 1.011_JPRB,  .398_JPRB /)
+ALF_DD( :,4) = (/ 2.357_JPRB,  .985_JPRB,  .398_JPRB /)
+ALF_DD( :,5) = (/ 2.453_JPRB, 0.949_JPRB, 0.404_JPRB /)
+ALF_DD( :,6) = (/ 2.549_JPRB,  .901_JPRB,  .414_JPRB /)
+ALF_DD( :,7) = (/ 2.605_JPRB,  .877_JPRB,  .423_JPRB /)
+ALF_DD( :,8) = (/ 2.635_JPRB, 0.869_JPRB, 0.428_JPRB /)
+ALF_DD( :,9) = (/ 2.596_JPRB, 0.978_JPRB, 0.428_JPRB /)
+ALF_DD(:,10) = (/ 2.555_JPRB, 1.039_JPRB,  .424_JPRB /)
+ALF_DD(:,11) = (/ 2.227_JPRB, 1.360_JPRB,  .404_JPRB /)
+ALF_DD(:,12) = (/ 2.058_JPRB, 1.460_JPRB, 0.405_JPRB /)
+ALF_DD(:,13) = (/ 2.041_JPRB, 1.474_JPRB,  .405_JPRB /)
+ALF_DD(:,14) = (/ 1.117_JPRB, 1.523_JPRB, 0.502_JPRB /)
+ALF_DD(:,15) = (/ 0.583_JPRB, 1.117_JPRB, 0.596_JPRB /)
+ALF_DD(:,16) = (/ 0.263_JPRB, 0.705_JPRB, 0.607_JPRB /)
+
+ASY_DD( :,1) = (/  .673_JPRB,  .745_JPRB,  .799_JPRB /)
+ASY_DD( :,2) = (/  .673_JPRB,  .745_JPRB,  .799_JPRB /)
+ASY_DD( :,3) = (/  .673_JPRB,  .745_JPRB,  .799_JPRB /)
+ASY_DD( :,4) = (/  .691_JPRB,  .712_JPRB,  .792_JPRB /)
+ASY_DD( :,5) = (/ 0.704_JPRB, 0.679_JPRB, 0.791_JPRB /)
+ASY_DD( :,6) = (/  .715_JPRB,  .640_JPRB,  .786_JPRB /)
+ASY_DD( :,7) = (/  .726_JPRB,  .605_JPRB,  .782_JPRB /)
+ASY_DD( :,8) = (/ 0.731_JPRB, 0.591_JPRB, 0.782_JPRB /)
+ASY_DD( :,9) = (/ 0.741_JPRB, 0.606_JPRB, 0.756_JPRB /)
+ASY_DD(:,10) = (/  .740_JPRB,  .617_JPRB,  .738_JPRB /)
+ASY_DD(:,11) = (/  .732_JPRB,  .698_JPRB,  .687_JPRB /)
+ASY_DD(:,12) = (/ 0.725_JPRB, 0.722_JPRB, 0.679_JPRB /)
+ASY_DD(:,13) = (/  .723_JPRB,  .722_JPRB,  .669_JPRB /)
+ASY_DD(:,14) = (/ 0.645_JPRB, 0.755_JPRB, 0.682_JPRB /)
+ASY_DD(:,15) = (/ 0.556_JPRB, 0.716_JPRB, 0.718_JPRB /)
+ASY_DD(:,16) = (/ 0.392_JPRB, 0.652_JPRB, 0.730_JPRB /)
+
+OMG_DD( :,1) = (/  .974_JPRB,  .944_JPRB,  .894_JPRB /)
+OMG_DD( :,2) = (/  .974_JPRB,  .944_JPRB,  .894_JPRB /)
+OMG_DD( :,3) = (/  .974_JPRB,  .944_JPRB,  .894_JPRB /)
+OMG_DD( :,4) = (/  .978_JPRB,  .947_JPRB,  .900_JPRB /)
+OMG_DD( :,5) = (/ 0.980_JPRB, 0.947_JPRB, 0.905_JPRB /)
+OMG_DD( :,6) = (/  .985_JPRB,  .957_JPRB,  .926_JPRB /)
+OMG_DD( :,7) = (/  .988_JPRB,  .963_JPRB,  .938_JPRB /)
+OMG_DD( :,8) = (/ 0.987_JPRB, 0.960_JPRB, 0.933_JPRB /)
+OMG_DD( :,9) = (/ 0.990_JPRB, 0.973_JPRB, 0.946_JPRB /)
+OMG_DD(:,10) = (/  .996_JPRB,  .990_JPRB,  .978_JPRB /)
+OMG_DD(:,11) = (/  .997_JPRB,  .994_JPRB,  .982_JPRB /)
+OMG_DD(:,12) = (/ 0.992_JPRB, 0.988_JPRB, 0.958_JPRB /)
+OMG_DD(:,13) = (/  .997_JPRB,  .996_JPRB,  .984_JPRB /)
+OMG_DD(:,14) = (/ 0.996_JPRB, 0.997_JPRB, 0.989_JPRB /)
+OMG_DD(:,15) = (/ 0.995_JPRB, 0.997_JPRB, 0.994_JPRB /)
+OMG_DD(:,16) = (/ 0.994_JPRB, 0.997_JPRB, 0.996_JPRB /)
+
+
+!-- For sea-salt, XX( RH, wavelength, binNo)
+
+! BIN No. 1
+! optical thickness
+ALF_SS( :, 1, 1) = (/ &
+  & 1.299_JPRB, 1.299_JPRB, 1.299_JPRB, 1.299_JPRB, 3.482_JPRB, 3.940_JPRB, &
+  & 4.572_JPRB, 5.358_JPRB, 6.455_JPRB, 7.261_JPRB, 8.565_JPRB,11.796_JPRB /)
+ALF_SS( :, 2, 1) = (/ &
+  & 1.299_JPRB, 1.299_JPRB, 1.299_JPRB, 1.299_JPRB, 3.482_JPRB, 3.940_JPRB, &
+  & 4.572_JPRB, 5.358_JPRB, 6.455_JPRB, 7.261_JPRB, 8.565_JPRB,11.796_JPRB /)
+ALF_SS( :, 3, 1) = (/ &
+  & 1.299_JPRB, 1.299_JPRB, 1.299_JPRB, 1.299_JPRB, 3.482_JPRB, 3.940_JPRB, &
+  & 4.572_JPRB, 5.358_JPRB, 6.455_JPRB, 7.261_JPRB, 8.565_JPRB,11.796_JPRB /)
+ALF_SS( :, 4, 1) = (/ &
+  & 1.143_JPRB, 1.143_JPRB, 1.143_JPRB, 1.143_JPRB, 3.393_JPRB, 3.761_JPRB, &
+  & 4.436_JPRB, 5.291_JPRB, 6.530_JPRB, 7.452_JPRB, 8.917_JPRB,12.189_JPRB /)
+ALF_SS( :, 5, 1) = (/ &
+  & 1.031_JPRB, 1.031_JPRB, 1.031_JPRB, 1.031_JPRB, 3.266_JPRB, 3.589_JPRB, &
+  & 4.286_JPRB, 5.165_JPRB, 6.472_JPRB, 7.496_JPRB, 9.102_JPRB,12.541_JPRB /)
+
+ALF_SS( :, 6, 1) = (/ &
+  &  .927_JPRB,  .927_JPRB,  .927_JPRB,  .927_JPRB, 3.124_JPRB, 3.387_JPRB, &
+  & 4.083_JPRB, 4.985_JPRB, 6.361_JPRB, 7.426_JPRB, 9.175_JPRB,12.904_JPRB /)
+ALF_SS( :, 7, 1) = (/ &
+  &  .830_JPRB,  .830_JPRB,  .830_JPRB,  .830_JPRB, 2.943_JPRB, 3.174_JPRB, &
+  & 3.855_JPRB, 4.761_JPRB, 6.156_JPRB, 7.300_JPRB, 9.170_JPRB,13.236_JPRB /)
+
+ALF_SS( :, 8, 1) = (/ &
+  & 0.763_JPRB, 0.763_JPRB, 0.763_JPRB, 0.763_JPRB, 2.806_JPRB, 3.012_JPRB, &
+  & 3.691_JPRB, 4.578_JPRB, 5.999_JPRB, 7.146_JPRB, 9.085_JPRB,13.416_JPRB /)
+ALF_SS( :, 9, 1) = (/ &
+  & 0.545_JPRB, 0.545_JPRB, 0.545_JPRB, 0.545_JPRB, 2.301_JPRB, 2.434_JPRB, &
+  & 3.035_JPRB, 3.857_JPRB, 5.227_JPRB, 6.386_JPRB, 8.466_JPRB,13.570_JPRB /)
+
+ALF_SS( :,10, 1) = (/ &
+  &  .500_JPRB,  .500_JPRB,  .500_JPRB,  .500_JPRB, 2.162_JPRB, 2.283_JPRB, &
+  & 2.869_JPRB, 3.662_JPRB, 5.004_JPRB, 6.147_JPRB, 8.239_JPRB,13.447_JPRB /)
+ALF_SS( :,11, 1) = (/ &
+  &  .314_JPRB,  .314_JPRB,  .314_JPRB,  .314_JPRB, 1.575_JPRB, 1.648_JPRB, &
+  & 2.106_JPRB, 2.754_JPRB, 3.898_JPRB, 4.910_JPRB, 6.855_JPRB,12.275_JPRB /)
+ALF_SS( :,12, 1) = (/ &
+  & 0.252_JPRB, 0.252_JPRB, 0.252_JPRB, 0.252_JPRB, 1.350_JPRB, 1.417_JPRB, &
+  & 1.836_JPRB, 2.425_JPRB, 3.458_JPRB, 4.416_JPRB, 6.229_JPRB,11.532_JPRB /)
+
+ALF_SS( :,13, 1) = (/ &
+  &  .246_JPRB,  .246_JPRB,  .246_JPRB,  .246_JPRB, 1.325_JPRB, 1.391_JPRB, &
+  & 1.805_JPRB, 2.388_JPRB, 3.408_JPRB, 4.357_JPRB, 6.157_JPRB,11.438_JPRB /)
+ALF_SS( :,14, 1) = (/ &
+  & 0.078_JPRB, 0.078_JPRB, 0.078_JPRB, 0.078_JPRB, 0.516_JPRB, 0.557_JPRB, &
+  & 0.759_JPRB, 1.059_JPRB, 1.601_JPRB, 2.125_JPRB, 3.232_JPRB, 6.884_JPRB /)
+ALF_SS( :,15, 1) = (/ &
+  & 0.028_JPRB, 0.028_JPRB, 0.028_JPRB, 0.028_JPRB, 0.213_JPRB, 0.237_JPRB, &
+  & 0.327_JPRB, 0.466_JPRB, 0.746_JPRB, 1.037_JPRB, 1.666_JPRB, 3.881_JPRB /)
+ALF_SS( :,16, 1) = (/ &
+  & 0.010_JPRB, 0.010_JPRB, 0.010_JPRB, 0.010_JPRB, 0.086_JPRB, 0.099_JPRB, &
+  & 0.141_JPRB, 0.207_JPRB, 0.338_JPRB, 0.472_JPRB, 0.773_JPRB, 2.013_JPRB /)
+
+
+
+
+
+
+! assymetry factor
+ASY_SS( :, 1, 1) = (/ & 
+  &  .698_JPRB,  .698_JPRB,  .698_JPRB,  .698_JPRB,  .707_JPRB,  .754_JPRB, &
+  &  .756_JPRB,  .755_JPRB,  .750_JPRB,  .744_JPRB,  .732_JPRB,  .717_JPRB /)
+ASY_SS( :, 2, 1) = (/ & 
+  &  .698_JPRB,  .698_JPRB,  .698_JPRB,  .698_JPRB,  .707_JPRB,  .754_JPRB, &
+  &  .756_JPRB,  .755_JPRB,  .750_JPRB,  .744_JPRB,  .732_JPRB,  .717_JPRB /)
+ASY_SS( :, 3, 1) = (/ & 
+  &  .698_JPRB,  .698_JPRB,  .698_JPRB,  .698_JPRB,  .707_JPRB,  .754_JPRB, &
+  &  .756_JPRB,  .755_JPRB,  .750_JPRB,  .744_JPRB,  .732_JPRB,  .717_JPRB /)
+ASY_SS( :, 4, 1) = (/ & 
+  &  .682_JPRB,  .682_JPRB,  .682_JPRB,  .682_JPRB,  .711_JPRB,  .755_JPRB, &
+  &  .759_JPRB,  .762_JPRB,  .760_JPRB,  .757_JPRB,  .747_JPRB,  .724_JPRB /)
+ASY_SS( :, 5, 1) = (/ & 
+  & 0.670_JPRB, 0.670_JPRB, 0.670_JPRB, 0.670_JPRB, 0.711_JPRB, 0.753_JPRB, &
+  & 0.759_JPRB, 0.763_JPRB, 0.765_JPRB, 0.763_JPRB, 0.756_JPRB, 0.733_JPRB /)
+
+ASY_SS( :, 6, 1) = (/ & 
+  &  .659_JPRB,  .659_JPRB,  .659_JPRB,  .659_JPRB,  .709_JPRB,  .749_JPRB, &
+  &  .756_JPRB,  .763_JPRB,  .767_JPRB,  .767_JPRB,  .764_JPRB,  .743_JPRB /)
+ASY_SS( :, 7, 1) = (/ & 
+  &  .645_JPRB,  .645_JPRB,  .645_JPRB,  .645_JPRB,  .705_JPRB,  .743_JPRB, &
+  &  .752_JPRB,  .761_JPRB,  .767_JPRB,  .770_JPRB,  .768_JPRB,  .751_JPRB /)
+
+ASY_SS( :, 8, 1) = (/ & 
+  & 0.633_JPRB, 0.633_JPRB, 0.633_JPRB, 0.633_JPRB, 0.701_JPRB, 0.738_JPRB, &
+  & 0.749_JPRB, 0.758_JPRB, 0.767_JPRB, 0.769_JPRB, 0.771_JPRB, 0.758_JPRB /)
+ASY_SS( :, 9, 1) = (/ & 
+  & 0.581_JPRB, 0.581_JPRB, 0.581_JPRB, 0.581_JPRB, 0.679_JPRB, 0.715_JPRB, &
+  & 0.729_JPRB, 0.743_JPRB, 0.757_JPRB, 0.764_JPRB, 0.772_JPRB, 0.772_JPRB /)
+
+ASY_SS( :,10, 1) = (/ & 
+  &  .569_JPRB,  .569_JPRB,  .569_JPRB,  .569_JPRB,  .672_JPRB,  .707_JPRB, &
+  &  .723_JPRB,  .738_JPRB,  .753_JPRB,  .761_JPRB,  .771_JPRB,  .774_JPRB /)
+ASY_SS( :,11, 1) = (/ & 
+  &  .513_JPRB,  .513_JPRB,  .513_JPRB,  .513_JPRB,  .633_JPRB,  .667_JPRB, &
+  &  .685_JPRB,  .704_JPRB,  .726_JPRB,  .740_JPRB,  .756_JPRB,  .774_JPRB /)
+ASY_SS( :,12, 1) = (/ & 
+  & 0.475_JPRB, 0.475_JPRB, 0.475_JPRB, 0.475_JPRB, 0.609_JPRB, 0.644_JPRB, &
+  & 0.667_JPRB, 0.688_JPRB, 0.712_JPRB, 0.727_JPRB, 0.746_JPRB, 0.770_JPRB /)
+
+ASY_SS( :,13, 1) = (/ & 
+  &  .470_JPRB,  .470_JPRB,  .470_JPRB,  .470_JPRB,  .606_JPRB,  .641_JPRB, &
+  &  .665_JPRB,  .686_JPRB,  .710_JPRB,  .726_JPRB,  .745_JPRB,  .769_JPRB /)
+ASY_SS( :,14, 1) = (/ & 
+  & 0.230_JPRB, 0.230_JPRB, 0.230_JPRB, 0.230_JPRB, 0.473_JPRB, 0.506_JPRB, &
+  & 0.539_JPRB, 0.568_JPRB, 0.601_JPRB, 0.627_JPRB, 0.664_JPRB, 0.716_JPRB /)
+ASY_SS( :,15, 1) = (/ & 
+  & 0.128_JPRB, 0.128_JPRB, 0.128_JPRB, 0.128_JPRB, 0.276_JPRB, 0.311_JPRB, &
+  & 0.357_JPRB, 0.413_JPRB, 0.482_JPRB, 0.522_JPRB, 0.566_JPRB, 0.635_JPRB /)
+ASY_SS( :,16, 1) = (/ & 
+  & 0.076_JPRB, 0.076_JPRB, 0.076_JPRB, 0.076_JPRB, 0.158_JPRB, 0.179_JPRB, &
+  & 0.206_JPRB, 0.242_JPRB, 0.297_JPRB, 0.343_JPRB, 0.417_JPRB, 0.540_JPRB /)
+
+! single scattering albedo
+OMG_SS( :, 1, 1) = (/ &
+  &  .999_JPRB,  .999_JPRB,  .999_JPRB,  .999_JPRB,  .999_JPRB, 1.000_JPRB, &
+  & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /)
+OMG_SS( :, 2, 1) = (/ &
+  &  .999_JPRB,  .999_JPRB,  .999_JPRB,  .999_JPRB,  .999_JPRB, 1.000_JPRB, &
+  & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /)
+OMG_SS( :, 3, 1) = (/ &
+  &  .999_JPRB,  .999_JPRB,  .999_JPRB,  .999_JPRB,  .999_JPRB, 1.000_JPRB, &
+  & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /)
+OMG_SS( :, 4, 1) = (/ &
+  &  .999_JPRB,  .999_JPRB,  .999_JPRB,  .999_JPRB,  .999_JPRB, 1.000_JPRB, &
+  & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /)
+OMG_SS( :, 5, 1) = (/ &
+  & 0.999_JPRB, 0.999_JPRB, 0.999_JPRB, 0.999_JPRB, 0.999_JPRB, 1.000_JPRB, &
+  & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /)
+
+OMG_SS( :, 6, 1) = (/ &
+  &  .999_JPRB,  .999_JPRB,  .999_JPRB,  .999_JPRB,  .999_JPRB, 1.000_JPRB, &
+  & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /)
+OMG_SS( :, 7, 1) = (/ &
+  &  .999_JPRB,  .999_JPRB,  .999_JPRB,  .999_JPRB,  .999_JPRB, 1.000_JPRB, &
+  & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /)
+
+OMG_SS( :, 8, 1) = (/ &
+  & 0.999_JPRB, 0.999_JPRB, 0.999_JPRB, 0.999_JPRB, 0.999_JPRB, 1.000_JPRB, &
+  & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /)
+OMG_SS( :, 9, 1) = (/ &
+  & 0.999_JPRB, 0.999_JPRB, 0.999_JPRB, 0.999_JPRB, 0.999_JPRB, 1.000_JPRB, &
+  & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /)
+
+OMG_SS( :,10, 1) = (/ &
+  &  .999_JPRB,  .999_JPRB,  .999_JPRB,  .999_JPRB,  .999_JPRB, 1.000_JPRB, &
+  & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /)
+OMG_SS( :,11, 1) = (/ &
+  &  .998_JPRB,  .998_JPRB,  .998_JPRB,  .998_JPRB,  .999_JPRB, 1.000_JPRB, &
+  & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /)
+OMG_SS( :,12, 1) = (/ &
+  & 0.998_JPRB, 0.998_JPRB, 0.998_JPRB, 0.998_JPRB, 0.999_JPRB, 1.000_JPRB, &
+  & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /)
+
+OMG_SS( :,13, 1) = (/ &
+  &  .998_JPRB,  .998_JPRB,  .998_JPRB,  .998_JPRB,  .999_JPRB, 1.000_JPRB, &
+  & 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /)
+OMG_SS( :,14, 1) = (/ &
+  & 0.997_JPRB, 0.997_JPRB, 0.997_JPRB, 0.997_JPRB, 0.998_JPRB, 0.999_JPRB, &
+  & 0.999_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /)
+OMG_SS( :,15, 1) = (/ &
+  & 0.994_JPRB, 0.994_JPRB, 0.994_JPRB, 0.994_JPRB, 0.997_JPRB, 0.999_JPRB, &
+  & 0.999_JPRB, 0.999_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /)
+OMG_SS( :,16, 1) = (/ &
+  & 0.988_JPRB, 0.988_JPRB, 0.988_JPRB, 0.988_JPRB, 0.995_JPRB, 0.998_JPRB, &
+  & 0.999_JPRB, 0.999_JPRB, 0.999_JPRB, 1.000_JPRB, 1.000_JPRB, 1.000_JPRB /)
+
+! BIN No. 2
+ALF_SS( :, 1, 2) = (/ &
+  &  .137_JPRB,  .137_JPRB,  .137_JPRB,  .137_JPRB,  .264_JPRB,  .309_JPRB, &
+  &  .351_JPRB,  .406_JPRB,  .494_JPRB,  .567_JPRB,  .697_JPRB, 1.031_JPRB /)
+ALF_SS( :, 2, 2) = (/ &
+  &  .137_JPRB,  .137_JPRB,  .137_JPRB,  .137_JPRB,  .264_JPRB,  .309_JPRB, &
+  &  .351_JPRB,  .406_JPRB,  .494_JPRB,  .567_JPRB,  .697_JPRB, 1.031_JPRB /)
+ALF_SS( :, 3, 2) = (/ &
+  &  .137_JPRB,  .137_JPRB,  .137_JPRB,  .137_JPRB,  .264_JPRB,  .309_JPRB, &
+  &  .351_JPRB,  .406_JPRB,  .494_JPRB,  .567_JPRB,  .697_JPRB, 1.031_JPRB /)
+ALF_SS( :, 4, 2) = (/ &
+  &  .140_JPRB,  .140_JPRB,  .140_JPRB,  .140_JPRB,  .268_JPRB,  .313_JPRB, &
+  &  .356_JPRB,  .411_JPRB,  .496_JPRB,  .568_JPRB,  .697_JPRB, 1.035_JPRB /)
+ALF_SS( :, 5, 2) = (/ &
+  & 0.141_JPRB, 0.141_JPRB, 0.141_JPRB, 0.141_JPRB, 0.272_JPRB, 0.317_JPRB, &
+  & 0.360_JPRB, 0.415_JPRB, 0.500_JPRB, 0.571_JPRB, 0.697_JPRB, 1.033_JPRB /)
+
+ALF_SS( :, 6, 2) = (/ &
+  &  .143_JPRB,  .143_JPRB,  .143_JPRB,  .143_JPRB,  .274_JPRB,  .322_JPRB, &
+  &  .365_JPRB,  .420_JPRB,  .505_JPRB,  .574_JPRB,  .699_JPRB, 1.033_JPRB /)
+ALF_SS( :, 7, 2) = (/ &
+  &  .144_JPRB,  .144_JPRB,  .144_JPRB,  .144_JPRB,  .279_JPRB,  .326_JPRB, &
+  &  .370_JPRB,  .425_JPRB,  .510_JPRB,  .578_JPRB,  .701_JPRB, 1.032_JPRB /)
+
+ALF_SS( :, 8, 2) = (/ &
+  & 0.144_JPRB, 0.144_JPRB, 0.144_JPRB, 0.144_JPRB, 0.281_JPRB, 0.329_JPRB, &
+  & 0.373_JPRB, 0.429_JPRB, 0.514_JPRB, 0.584_JPRB, 0.707_JPRB, 1.032_JPRB /)
+ALF_SS( :, 9, 2) = (/ &
+  & 0.146_JPRB, 0.146_JPRB, 0.146_JPRB, 0.146_JPRB, 0.290_JPRB, 0.337_JPRB, &
+  & 0.384_JPRB, 0.443_JPRB, 0.530_JPRB, 0.602_JPRB, 0.724_JPRB, 1.041_JPRB /)
+
+ALF_SS( :,10, 2) = (/ &
+  &  .147_JPRB,  .147_JPRB,  .147_JPRB,  .147_JPRB,  .292_JPRB,  .340_JPRB, &
+  &  .385_JPRB,  .446_JPRB,  .533_JPRB,  .606_JPRB,  .728_JPRB, 1.047_JPRB /)
+ALF_SS( :,11, 2) = (/ &
+  &  .146_JPRB,  .146_JPRB,  .146_JPRB,  .146_JPRB,  .299_JPRB,  .345_JPRB, &
+  &  .395_JPRB,  .459_JPRB,  .551_JPRB,  .628_JPRB,  .758_JPRB, 1.078_JPRB /)
+ALF_SS( :,12, 2) = (/ &
+  & 0.147_JPRB, 0.147_JPRB, 0.147_JPRB, 0.147_JPRB, 0.300_JPRB, 0.348_JPRB, &
+  & 0.397_JPRB, 0.459_JPRB, 0.559_JPRB, 0.634_JPRB, 0.768_JPRB, 1.095_JPRB /)
+
+ALF_SS( :,13, 2) = (/ &
+  &  .147_JPRB,  .147_JPRB,  .147_JPRB,  .147_JPRB,  .301_JPRB,  .348_JPRB, &
+  &  .398_JPRB,  .459_JPRB,  .559_JPRB,  .635_JPRB,  .769_JPRB, 1.098_JPRB /)
+ALF_SS( :,14, 2) = (/ &
+  & 0.148_JPRB, 0.148_JPRB, 0.148_JPRB, 0.148_JPRB, 0.305_JPRB, 0.349_JPRB, &
+  & 0.403_JPRB, 0.466_JPRB, 0.566_JPRB, 0.651_JPRB, 0.802_JPRB, 1.167_JPRB /)
+ALF_SS( :,15, 2) = (/ &
+  & 0.146_JPRB, 0.146_JPRB, 0.146_JPRB, 0.146_JPRB, 0.302_JPRB, 0.351_JPRB, &
+  & 0.399_JPRB, 0.461_JPRB, 0.563_JPRB, 0.651_JPRB, 0.805_JPRB, 1.183_JPRB /)
+ALF_SS( :,16, 2) = (/ &
+  & 0.155_JPRB, 0.155_JPRB, 0.155_JPRB, 0.155_JPRB, 0.305_JPRB, 0.348_JPRB, &
+  & 0.402_JPRB, 0.472_JPRB, 0.576_JPRB, 0.657_JPRB, 0.793_JPRB, 1.187_JPRB /)
+
+! assymetry factor
+ASY_SS( :, 1, 2) = (/ &
+  &  .741_JPRB,  .741_JPRB,  .741_JPRB,  .741_JPRB,  .755_JPRB,  .778_JPRB, &
+  &  .782_JPRB,  .789_JPRB,  .796_JPRB,  .801_JPRB,  .809_JPRB,  .819_JPRB /)
+ASY_SS( :, 2, 2) = (/ &
+  &  .741_JPRB,  .741_JPRB,  .741_JPRB,  .741_JPRB,  .755_JPRB,  .778_JPRB, &
+  &  .782_JPRB,  .789_JPRB,  .796_JPRB,  .801_JPRB,  .809_JPRB,  .819_JPRB /)
+ASY_SS( :, 3, 2) = (/ &
+  &  .741_JPRB,  .741_JPRB,  .741_JPRB,  .741_JPRB,  .755_JPRB,  .778_JPRB, &
+  &  .782_JPRB,  .789_JPRB,  .796_JPRB,  .801_JPRB,  .809_JPRB,  .819_JPRB /)
+ASY_SS( :, 4, 2) = (/ &
+  &  .739_JPRB,  .739_JPRB,  .739_JPRB,  .739_JPRB,  .750_JPRB,  .776_JPRB, &
+  &  .779_JPRB,  .784_JPRB,  .792_JPRB,  .795_JPRB,  .802_JPRB,  .816_JPRB /)
+ASY_SS( :, 5, 2) = (/ &
+  & 0.737_JPRB, 0.737_JPRB, 0.737_JPRB, 0.737_JPRB, 0.747_JPRB, 0.773_JPRB, &
+  & 0.778_JPRB, 0.782_JPRB, 0.788_JPRB, 0.791_JPRB, 0.798_JPRB, 0.812_JPRB /)
+
+ASY_SS( :, 6, 2) = (/ &
+  &  .734_JPRB,  .734_JPRB,  .734_JPRB,  .734_JPRB,  .745_JPRB,  .772_JPRB, &
+  &  .775_JPRB,  .780_JPRB,  .785_JPRB,  .789_JPRB,  .795_JPRB,  .807_JPRB /)
+ASY_SS( :, 7, 2) = (/ &
+  &  .732_JPRB,  .732_JPRB,  .732_JPRB,  .732_JPRB,  .744_JPRB,  .770_JPRB, &
+  &  .775_JPRB,  .778_JPRB,  .784_JPRB,  .787_JPRB,  .793_JPRB,  .804_JPRB /)
+
+ASY_SS( :, 8, 2) = (/ &
+  & 0.730_JPRB, 0.730_JPRB, 0.730_JPRB, 0.730_JPRB, 0.742_JPRB, 0.770_JPRB, &
+  & 0.773_JPRB, 0.779_JPRB, 0.782_JPRB, 0.785_JPRB, 0.790_JPRB, 0.802_JPRB /)
+ASY_SS( :, 9, 2) = (/ &
+  & 0.723_JPRB, 0.723_JPRB, 0.723_JPRB, 0.723_JPRB, 0.739_JPRB, 0.766_JPRB, &
+  & 0.771_JPRB, 0.776_JPRB, 0.780_JPRB, 0.783_JPRB, 0.786_JPRB, 0.794_JPRB /)
+
+ASY_SS( :,10, 2) = (/ &
+  &  .720_JPRB,  .720_JPRB,  .720_JPRB,  .720_JPRB,  .737_JPRB,  .765_JPRB, &
+  &  .770_JPRB,  .774_JPRB,  .780_JPRB,  .782_JPRB,  .785_JPRB,  .793_JPRB /)
+ASY_SS( :,11, 2) = (/ &
+  &  .705_JPRB,  .705_JPRB,  .705_JPRB,  .705_JPRB,  .730_JPRB,  .758_JPRB, &
+  &  .763_JPRB,  .770_JPRB,  .775_JPRB,  .777_JPRB,  .781_JPRB,  .787_JPRB /)
+ASY_SS( :,12, 2) = (/ &
+  & 0.701_JPRB, 0.701_JPRB, 0.701_JPRB, 0.701_JPRB, 0.727_JPRB, 0.757_JPRB, &
+  & 0.760_JPRB, 0.767_JPRB, 0.773_JPRB, 0.776_JPRB, 0.780_JPRB, 0.788_JPRB /)
+
+ASY_SS( :,13, 2) = (/ &
+  &  .701_JPRB,  .701_JPRB,  .701_JPRB,  .701_JPRB,  .726_JPRB,  .756_JPRB, &
+  &  .760_JPRB,  .766_JPRB,  .773_JPRB,  .776_JPRB,  .780_JPRB,  .787_JPRB /)
+ASY_SS( :,14, 2) = (/ &
+  & 0.671_JPRB, 0.671_JPRB, 0.671_JPRB, 0.671_JPRB, 0.701_JPRB, 0.731_JPRB, &
+  & 0.738_JPRB, 0.747_JPRB, 0.753_JPRB, 0.759_JPRB, 0.767_JPRB, 0.779_JPRB /)
+ASY_SS( :,15, 2) = (/ &
+  & 0.642_JPRB, 0.642_JPRB, 0.642_JPRB, 0.642_JPRB, 0.675_JPRB, 0.711_JPRB, &
+  & 0.716_JPRB, 0.723_JPRB, 0.733_JPRB, 0.742_JPRB, 0.751_JPRB, 0.764_JPRB /)
+ASY_SS( :,16, 2) = (/ &
+  & 0.662_JPRB, 0.662_JPRB, 0.662_JPRB, 0.662_JPRB, 0.653_JPRB, 0.690_JPRB, &
+  & 0.699_JPRB, 0.709_JPRB, 0.720_JPRB, 0.724_JPRB, 0.730_JPRB, 0.748_JPRB /)
+
+! single scattering albedo
+OMG_SS( :, 1, 2) = (/ &
+  &  .990_JPRB,  .990_JPRB,  .990_JPRB,  .990_JPRB,  .986_JPRB,  .994_JPRB, &
+  &  .995_JPRB,  .996_JPRB,  .997_JPRB,  .997_JPRB,  .998_JPRB,  .999_JPRB /)
+OMG_SS( :, 2, 2) = (/ &
+  &  .990_JPRB,  .990_JPRB,  .990_JPRB,  .990_JPRB,  .986_JPRB,  .994_JPRB, &
+  &  .995_JPRB,  .996_JPRB,  .997_JPRB,  .997_JPRB,  .998_JPRB,  .999_JPRB /)
+OMG_SS( :, 3, 2) = (/ &
+  &  .990_JPRB,  .990_JPRB,  .990_JPRB,  .990_JPRB,  .986_JPRB,  .994_JPRB, &
+  &  .995_JPRB,  .996_JPRB,  .997_JPRB,  .997_JPRB,  .998_JPRB,  .999_JPRB /)
+OMG_SS( :, 4, 2) = (/ &
+  &  .991_JPRB,  .991_JPRB,  .991_JPRB,  .991_JPRB,  .987_JPRB,  .995_JPRB, &
+  &  .995_JPRB,  .996_JPRB,  .997_JPRB,  .997_JPRB,  .998_JPRB,  .999_JPRB /)
+OMG_SS( :, 5, 2) = (/ &
+  & 0.992_JPRB, 0.992_JPRB, 0.992_JPRB, 0.992_JPRB, 0.988_JPRB, 0.995_JPRB, &
+  & 0.996_JPRB, 0.996_JPRB, 0.997_JPRB, 0.997_JPRB, 0.998_JPRB, 0.999_JPRB /)
+
+OMG_SS( :, 6, 2) = (/ &
+  &  .992_JPRB,  .992_JPRB,  .992_JPRB,  .992_JPRB,  .989_JPRB,  .996_JPRB, &
+  &  .996_JPRB,  .997_JPRB,  .997_JPRB,  .997_JPRB,  .998_JPRB,  .999_JPRB /)
+OMG_SS( :, 7, 2) = (/ &
+  &  .993_JPRB,  .993_JPRB,  .993_JPRB,  .993_JPRB,  .989_JPRB,  .996_JPRB, &
+  &  .996_JPRB,  .997_JPRB,  .997_JPRB,  .998_JPRB,  .998_JPRB,  .999_JPRB /)
+
+OMG_SS( :, 8, 2) = (/ &
+  & 0.993_JPRB, 0.993_JPRB, 0.993_JPRB, 0.993_JPRB, 0.990_JPRB, 0.996_JPRB, &
+  & 0.996_JPRB, 0.997_JPRB, 0.998_JPRB, 0.998_JPRB, 0.998_JPRB, 0.999_JPRB /)
+OMG_SS( :, 9, 2) = (/ &
+  & 0.994_JPRB, 0.994_JPRB, 0.994_JPRB, 0.994_JPRB, 0.991_JPRB, 0.997_JPRB, &
+  & 0.997_JPRB, 0.998_JPRB, 0.998_JPRB, 0.998_JPRB, 0.998_JPRB, 0.999_JPRB /)
+
+OMG_SS( :,10, 2) = (/ &
+  &  .994_JPRB,  .994_JPRB,  .994_JPRB,  .994_JPRB,  .992_JPRB,  .997_JPRB, &
+  &  .997_JPRB,  .997_JPRB,  .998_JPRB,  .998_JPRB,  .999_JPRB,  .999_JPRB /)
+OMG_SS( :,11, 2) = (/ &
+  &  .995_JPRB,  .995_JPRB,  .995_JPRB,  .995_JPRB,  .993_JPRB,  .997_JPRB, &
+  &  .998_JPRB,  .998_JPRB,  .998_JPRB,  .998_JPRB,  .999_JPRB,  .999_JPRB /)
+OMG_SS( :,12, 2) = (/ &
+  & 0.995_JPRB, 0.995_JPRB, 0.995_JPRB, 0.995_JPRB, 0.993_JPRB, 0.998_JPRB, &
+  & 0.998_JPRB, 0.998_JPRB, 0.998_JPRB, 0.999_JPRB, 0.999_JPRB, 0.999_JPRB /)
+
+OMG_SS( :,13, 2) = (/ &
+  &  .995_JPRB,  .995_JPRB,  .995_JPRB,  .995_JPRB,  .993_JPRB,  .998_JPRB, &
+  &  .998_JPRB,  .998_JPRB,  .998_JPRB,  .999_JPRB,  .999_JPRB,  .999_JPRB /)
+OMG_SS( :,14, 2) = (/ &
+  & 0.997_JPRB, 0.997_JPRB, 0.997_JPRB, 0.997_JPRB, 0.995_JPRB, 0.998_JPRB, &
+  & 0.998_JPRB, 0.999_JPRB, 0.999_JPRB, 0.999_JPRB, 0.999_JPRB, 0.999_JPRB /)
+OMG_SS( :,15, 2) = (/ &
+  & 0.997_JPRB, 0.997_JPRB, 0.997_JPRB, 0.997_JPRB, 0.996_JPRB, 0.999_JPRB, &
+  & 0.999_JPRB, 0.999_JPRB, 0.999_JPRB, 0.999_JPRB, 0.999_JPRB, 1.000_JPRB /)
+OMG_SS( :,16, 2) = (/ &
+  & 0.998_JPRB, 0.998_JPRB, 0.998_JPRB, 0.998_JPRB, 0.997_JPRB, 0.999_JPRB, &
+  & 0.999_JPRB, 0.999_JPRB, 0.999_JPRB, 0.999_JPRB, 1.000_JPRB, 1.000_JPRB /)
+
+! BIN No. 3
+ALF_SS( :, 1, 3) = (/ &
+  &  .038_JPRB,  .038_JPRB,  .038_JPRB,  .038_JPRB,  .078_JPRB,  .091_JPRB, &
+  &  .105_JPRB,  .122_JPRB,  .148_JPRB,  .170_JPRB,  .208_JPRB,  .308_JPRB /)
+ALF_SS( :, 2, 3) = (/ &
+  &  .038_JPRB,  .038_JPRB,  .038_JPRB,  .038_JPRB,  .078_JPRB,  .091_JPRB, &
+  &  .105_JPRB,  .122_JPRB,  .148_JPRB,  .170_JPRB,  .208_JPRB,  .308_JPRB /)
+ALF_SS( :, 3, 3) = (/ &
+  &  .038_JPRB,  .038_JPRB,  .038_JPRB,  .038_JPRB,  .078_JPRB,  .091_JPRB, &
+  &  .105_JPRB,  .122_JPRB,  .148_JPRB,  .170_JPRB,  .208_JPRB,  .308_JPRB /)
+ALF_SS( :, 4, 3) = (/ &
+  &  .038_JPRB,  .038_JPRB,  .038_JPRB,  .038_JPRB,  .079_JPRB,  .091_JPRB, &
+  &  .105_JPRB,  .122_JPRB,  .149_JPRB,  .171_JPRB,  .209_JPRB,  .308_JPRB /)
+ALF_SS( :, 5, 3) = (/ &
+  & 0.039_JPRB, 0.039_JPRB, 0.039_JPRB, 0.039_JPRB, 0.079_JPRB, 0.092_JPRB, &
+  & 0.105_JPRB, 0.122_JPRB, 0.149_JPRB, 0.171_JPRB, 0.210_JPRB, 0.309_JPRB /)
+
+ALF_SS( :, 6, 3) = (/ &
+  &  .039_JPRB,  .039_JPRB,  .039_JPRB,  .039_JPRB,  .079_JPRB,  .092_JPRB, &
+  &  .105_JPRB,  .123_JPRB,  .149_JPRB,  .171_JPRB,  .209_JPRB,  .309_JPRB /)
+ALF_SS( :, 7, 3) = (/ &
+  &  .039_JPRB,  .039_JPRB,  .039_JPRB,  .039_JPRB,  .079_JPRB,  .092_JPRB, &
+  &  .105_JPRB,  .123_JPRB,  .149_JPRB,  .172_JPRB,  .210_JPRB,  .310_JPRB /)
+
+ALF_SS( :, 8, 3) = (/ &
+  & 0.039_JPRB, 0.039_JPRB, 0.039_JPRB, 0.039_JPRB, 0.079_JPRB, 0.092_JPRB, &
+  & 0.106_JPRB, 0.123_JPRB, 0.150_JPRB, 0.172_JPRB, 0.210_JPRB, 0.310_JPRB /)
+ALF_SS( :, 9, 3) = (/ &
+  & 0.039_JPRB, 0.039_JPRB, 0.039_JPRB, 0.039_JPRB, 0.080_JPRB, 0.093_JPRB, &
+  & 0.106_JPRB, 0.123_JPRB, 0.151_JPRB, 0.172_JPRB, 0.211_JPRB, 0.311_JPRB /)
+
+ALF_SS( :,10, 3) = (/ &
+  &  .039_JPRB,  .039_JPRB,  .039_JPRB,  .039_JPRB,  .080_JPRB,  .093_JPRB, &
+  &  .107_JPRB,  .124_JPRB,  .151_JPRB,  .173_JPRB,  .212_JPRB,  .311_JPRB /)
+ALF_SS( :,11, 3) = (/ &
+  &  .040_JPRB,  .040_JPRB,  .040_JPRB,  .040_JPRB,  .081_JPRB,  .094_JPRB, &
+  &  .108_JPRB,  .124_JPRB,  .152_JPRB,  .174_JPRB,  .212_JPRB,  .314_JPRB /)
+ALF_SS( :,12, 3) = (/ &
+  & 0.040_JPRB, 0.040_JPRB, 0.040_JPRB, 0.040_JPRB, 0.081_JPRB, 0.094_JPRB, &
+  & 0.108_JPRB, 0.126_JPRB, 0.152_JPRB, 0.174_JPRB, 0.213_JPRB, 0.314_JPRB /)
+
+ALF_SS( :,13, 3) = (/ &
+  &  .040_JPRB,  .040_JPRB,  .040_JPRB,  .040_JPRB,  .081_JPRB,  .094_JPRB, &
+  &  .108_JPRB,  .126_JPRB,  .152_JPRB,  .174_JPRB,  .213_JPRB,  .314_JPRB /)
+ALF_SS( :,14, 3) = (/ &
+  & 0.040_JPRB, 0.040_JPRB, 0.040_JPRB, 0.040_JPRB, 0.082_JPRB, 0.096_JPRB, &
+  & 0.109_JPRB, 0.127_JPRB, 0.156_JPRB, 0.178_JPRB, 0.215_JPRB, 0.318_JPRB /)
+ALF_SS( :,15, 3) = (/ &
+  & 0.043_JPRB, 0.043_JPRB, 0.043_JPRB, 0.043_JPRB, 0.084_JPRB, 0.097_JPRB, &
+  & 0.112_JPRB, 0.131_JPRB, 0.159_JPRB, 0.180_JPRB, 0.218_JPRB, 0.324_JPRB /)
+ALF_SS( :,16, 3) = (/ &
+  & 0.042_JPRB, 0.042_JPRB, 0.042_JPRB, 0.042_JPRB, 0.086_JPRB, 0.102_JPRB, &
+  & 0.115_JPRB, 0.131_JPRB, 0.157_JPRB, 0.181_JPRB, 0.225_JPRB, 0.326_JPRB /)
+
+! assymetry factor
+ASY_SS( :, 1, 3) = (/ &
+  &  .803_JPRB,  .803_JPRB,  .803_JPRB,  .803_JPRB,  .810_JPRB,  .828_JPRB, &
+  &  .831_JPRB,  .834_JPRB,  .837_JPRB,  .839_JPRB,  .842_JPRB,  .845_JPRB /)
+ASY_SS( :, 2, 3) = (/ &
+  &  .803_JPRB,  .803_JPRB,  .803_JPRB,  .803_JPRB,  .810_JPRB,  .828_JPRB, &
+  &  .831_JPRB,  .834_JPRB,  .837_JPRB,  .839_JPRB,  .842_JPRB,  .845_JPRB /)
+ASY_SS( :, 3, 3) = (/ &
+  &  .803_JPRB,  .803_JPRB,  .803_JPRB,  .803_JPRB,  .810_JPRB,  .828_JPRB, &
+  &  .831_JPRB,  .834_JPRB,  .837_JPRB,  .839_JPRB,  .842_JPRB,  .845_JPRB /)
+ASY_SS( :, 4, 3) = (/ &
+  &  .800_JPRB,  .800_JPRB,  .800_JPRB,  .800_JPRB,  .808_JPRB,  .827_JPRB, &
+  &  .830_JPRB,  .832_JPRB,  .836_JPRB,  .838_JPRB,  .840_JPRB,  .844_JPRB /)
+ASY_SS( :, 5, 3) = (/ &
+  & 0.799_JPRB, 0.799_JPRB, 0.799_JPRB, 0.799_JPRB, 0.807_JPRB, 0.826_JPRB, &
+  & 0.829_JPRB, 0.832_JPRB, 0.834_JPRB, 0.837_JPRB, 0.840_JPRB, 0.845_JPRB /)
+ASY_SS( :, 6, 3) = (/ &
+  &  .796_JPRB,  .796_JPRB,  .796_JPRB,  .796_JPRB,  .806_JPRB,  .824_JPRB, &
+  &  .828_JPRB,  .830_JPRB,  .834_JPRB,  .836_JPRB,  .839_JPRB,  .843_JPRB /)
+ASY_SS( :, 7, 3) = (/ &
+  &  .795_JPRB,  .795_JPRB,  .795_JPRB,  .795_JPRB,  .804_JPRB,  .823_JPRB, &
+  &  .826_JPRB,  .829_JPRB,  .833_JPRB,  .835_JPRB,  .837_JPRB,  .842_JPRB /)
+
+ASY_SS( :, 8, 3) = (/ &
+  & 0.794_JPRB, 0.794_JPRB, 0.794_JPRB, 0.794_JPRB, 0.803_JPRB, 0.822_JPRB, &
+  & 0.826_JPRB, 0.829_JPRB, 0.832_JPRB, 0.834_JPRB, 0.837_JPRB, 0.841_JPRB /)
+ASY_SS( :, 9, 3) = (/ &
+  & 0.788_JPRB, 0.788_JPRB, 0.788_JPRB, 0.788_JPRB, 0.800_JPRB, 0.819_JPRB, &
+  & 0.823_JPRB, 0.825_JPRB, 0.829_JPRB, 0.832_JPRB, 0.835_JPRB, 0.840_JPRB /)
+
+ASY_SS( :,10, 3) = (/ &
+  &  .786_JPRB,  .786_JPRB,  .786_JPRB,  .786_JPRB,  .800_JPRB,  .818_JPRB, &
+  &  .822_JPRB,  .824_JPRB,  .829_JPRB,  .831_JPRB,  .834_JPRB,  .838_JPRB /)
+ASY_SS( :,11, 3) = (/ &
+  &  .779_JPRB,  .779_JPRB,  .779_JPRB,  .779_JPRB,  .794_JPRB,  .813_JPRB, &
+  &  .817_JPRB,  .820_JPRB,  .824_JPRB,  .827_JPRB,  .830_JPRB,  .836_JPRB /)
+ASY_SS( :,12, 3) = (/ &
+  & 0.774_JPRB, 0.774_JPRB, 0.774_JPRB, 0.774_JPRB, 0.791_JPRB, 0.810_JPRB, &
+  & 0.815_JPRB, 0.819_JPRB, 0.822_JPRB, 0.826_JPRB, 0.829_JPRB, 0.833_JPRB /)
+
+ASY_SS( :,13, 3) = (/ &
+  &  .774_JPRB,  .774_JPRB,  .774_JPRB,  .774_JPRB,  .791_JPRB,  .809_JPRB, &
+  &  .814_JPRB,  .819_JPRB,  .821_JPRB,  .825_JPRB,  .829_JPRB,  .834_JPRB /)
+ASY_SS( :,14, 3) = (/ &
+  & 0.754_JPRB, 0.754_JPRB, 0.754_JPRB, 0.754_JPRB, 0.774_JPRB, 0.795_JPRB, &
+  & 0.799_JPRB, 0.805_JPRB, 0.813_JPRB, 0.816_JPRB, 0.819_JPRB, 0.826_JPRB /)
+ASY_SS( :,15, 3) = (/ &
+  & 0.751_JPRB, 0.751_JPRB, 0.751_JPRB, 0.751_JPRB, 0.762_JPRB, 0.784_JPRB, &
+  & 0.790_JPRB, 0.797_JPRB, 0.802_JPRB, 0.804_JPRB, 0.808_JPRB, 0.819_JPRB /)
+ASY_SS( :,16, 3) = (/ &
+  & 0.708_JPRB, 0.708_JPRB, 0.708_JPRB, 0.708_JPRB, 0.752_JPRB, 0.778_JPRB, &
+  & 0.781_JPRB, 0.783_JPRB, 0.788_JPRB, 0.792_JPRB, 0.801_JPRB, 0.808_JPRB /)
+
+! single scattering albedo
+OMG_SS( :, 1, 3) = (/ &
+  &  .980_JPRB,  .980_JPRB,  .980_JPRB,  .980_JPRB,  .982_JPRB,  .992_JPRB, &
+  &  .993_JPRB,  .994_JPRB,  .996_JPRB,  .996_JPRB,  .997_JPRB,  .998_JPRB /)
+OMG_SS( :, 2, 3) = (/ &
+  &  .980_JPRB,  .980_JPRB,  .980_JPRB,  .980_JPRB,  .982_JPRB,  .992_JPRB, &
+  &  .993_JPRB,  .994_JPRB,  .996_JPRB,  .996_JPRB,  .997_JPRB,  .998_JPRB /)
+OMG_SS( :, 3, 3) = (/ &
+  &  .980_JPRB,  .980_JPRB,  .980_JPRB,  .980_JPRB,  .982_JPRB,  .992_JPRB, &
+  &  .993_JPRB,  .994_JPRB,  .996_JPRB,  .996_JPRB,  .997_JPRB,  .998_JPRB /)
+OMG_SS( :, 4, 3) = (/ &
+  &  .981_JPRB,  .981_JPRB,  .981_JPRB,  .981_JPRB,  .981_JPRB,  .991_JPRB, &
+  &  .993_JPRB,  .994_JPRB,  .996_JPRB,  .996_JPRB,  .997_JPRB,  .998_JPRB /)
+OMG_SS( :, 5, 3) = (/ &
+  & 0.981_JPRB, 0.981_JPRB, 0.981_JPRB, 0.981_JPRB, 0.981_JPRB, 0.991_JPRB, &
+  & 0.993_JPRB, 0.994_JPRB, 0.995_JPRB, 0.996_JPRB, 0.997_JPRB, 0.998_JPRB /)
+
+OMG_SS( :, 6, 3) = (/ &
+  &  .981_JPRB,  .981_JPRB,  .981_JPRB,  .981_JPRB,  .981_JPRB,  .991_JPRB, &
+  &  .993_JPRB,  .994_JPRB,  .995_JPRB,  .996_JPRB,  .997_JPRB,  .998_JPRB /)
+OMG_SS( :, 7, 3) = (/ &
+  &  .982_JPRB,  .982_JPRB,  .982_JPRB,  .982_JPRB,  .990_JPRB,  .992_JPRB, &
+  &  .993_JPRB,  .994_JPRB,  .995_JPRB,  .996_JPRB,  .997_JPRB,  .998_JPRB /)
+
+OMG_SS( :, 8, 3) = (/ &
+  & 0.982_JPRB, 0.982_JPRB, 0.982_JPRB, 0.982_JPRB, 0.990_JPRB, 0.992_JPRB, &
+  & 0.993_JPRB, 0.994_JPRB, 0.995_JPRB, 0.996_JPRB, 0.997_JPRB, 0.998_JPRB /)
+OMG_SS( :, 9, 3) = (/ &
+  & 0.982_JPRB, 0.982_JPRB, 0.982_JPRB, 0.982_JPRB, 0.990_JPRB, 0.992_JPRB, &
+  & 0.993_JPRB, 0.994_JPRB, 0.995_JPRB, 0.996_JPRB, 0.997_JPRB, 0.998_JPRB /)
+
+OMG_SS( :,10, 3) = (/ &
+  &  .983_JPRB,  .983_JPRB,  .983_JPRB,  .983_JPRB,  .987_JPRB,  .992_JPRB, &
+  &  .993_JPRB,  .994_JPRB,  .996_JPRB,  .996_JPRB,  .997_JPRB,  .998_JPRB /)
+OMG_SS( :,11, 3) = (/ &
+  &  .985_JPRB,  .985_JPRB,  .985_JPRB,  .985_JPRB,  .990_JPRB,  .993_JPRB, &
+  &  .994_JPRB,  .995_JPRB,  .996_JPRB,  .996_JPRB,  .997_JPRB,  .998_JPRB /)
+OMG_SS( :,12, 3) = (/ &
+  & 0.985_JPRB, 0.985_JPRB, 0.985_JPRB, 0.985_JPRB, 0.990_JPRB, 0.993_JPRB, &
+  & 0.994_JPRB, 0.995_JPRB, 0.996_JPRB, 0.997_JPRB, 0.997_JPRB, 0.998_JPRB /)
+
+OMG_SS( :,13, 3) = (/ &
+  &  .986_JPRB,  .986_JPRB,  .986_JPRB,  .986_JPRB,  .990_JPRB,  .993_JPRB, &
+  &  .994_JPRB,  .995_JPRB,  .996_JPRB,  .996_JPRB,  .997_JPRB,  .998_JPRB /)
+OMG_SS( :,14, 3) = (/ &
+  & 0.989_JPRB, 0.989_JPRB, 0.989_JPRB, 0.989_JPRB, 0.991_JPRB, 0.994_JPRB, &
+  & 0.995_JPRB, 0.996_JPRB, 0.997_JPRB, 0.997_JPRB, 0.998_JPRB, 0.999_JPRB /)
+OMG_SS( :,15, 3) = (/ &
+  & 0.992_JPRB, 0.992_JPRB, 0.992_JPRB, 0.992_JPRB, 0.994_JPRB, 0.996_JPRB, &
+  & 0.996_JPRB, 0.997_JPRB, 0.997_JPRB, 0.998_JPRB, 0.998_JPRB, 0.999_JPRB /)
+OMG_SS( :,16, 3) = (/ &
+  & 0.993_JPRB, 0.993_JPRB, 0.993_JPRB, 0.993_JPRB, 0.995_JPRB, 0.997_JPRB, &
+  & 0.997_JPRB, 0.997_JPRB, 0.998_JPRB, 0.998_JPRB, 0.998_JPRB, 0.999_JPRB /)
+
+!     ----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SU_AEROP',1,ZHOOK_HANDLE)
+END SUBROUTINE SU_AEROP
Index: LMDZ5/trunk/libf/phylmd/rrtm/su_aerop.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/su_aerop.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/su_aerop.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SU_AEROP
+END SUBROUTINE SU_AEROP
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/su_aerp.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/su_aerp.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/su_aerp.F90	(revision 1989)
@@ -0,0 +1,288 @@
+SUBROUTINE SU_AERP
+
+!**** *SU_AERP*   - INITIALIZE MODULES YOEAERSRC, YOEAERSNK
+
+!     PURPOSE.
+!     --------
+!           INITIALIZE YOEAERSRC AND YOEAERSNK, THE MODULES THAT CONTAINS 
+!           COEFFICIENTS NEEDED TO RUN THE PROGNOSTIC AEROSOLS
+
+!**   INTERFACE.
+!     ----------
+!        *CALL* *SU_AERP
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!        NONE
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+!        YOEAERSRC, YOEAERSNK, YOEAERATM
+
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+
+!     EXTERNALS.
+!     ----------
+
+!     REFERENCE.
+!     ----------
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE *ECMWF*
+!        from O.BOUCHER (LOA, 1998-03) 
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 2004-05-10
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOEAERSRC , ONLY : RSSFLX
+
+USE YOEAERSNK , ONLY : R_R, R_S, RALPHAR, RALPHAS, RFRAER, RFRGAS, &
+  &  RRHMAX, RRHTAB, RRHO_SS, RSSGROW, RMMD_SS, RMMD_DD, RRHO_DD, &
+  &  RFRBC , RFRIF , RFROM  , RFRSO4 , RFRDD  , RFRSS , RHO_WAT, RHO_ICE, &
+  &  RVDPOCE, RVDPSIC, RVDPLND, RVDPLIC, RVSEDOCE, RVSEDSIC, RVSEDLND, RVSEDLIC, &
+  &  NBRH
+
+USE YOEAERATM , ONLY : RMASSE, RMFMIN, NDD1, NSS1
+
+IMPLICIT NONE
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+!     ----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SU_AERP',0,ZHOOK_HANDLE)
+
+!-- For the ECMWF model, the following tables when dimensioned to 12 
+!   can refer to 12 values of RH
+!      (RHTAB, RHHO_SS, RSSGROW)
+!   or to 12 types/bins of aerosols with the following mapping: NTYPAER
+!   1- 3  sea-salt  0.03 - 0.5 -  5  - 20 microns		   1
+!   4- 6  dust      0.03 - 0.5 - 0.9 - 20 microns		   2
+!   7- 8  POM	    hydrophilic, hydrophobic			   3
+!   9-10  BC	    hydrophilic, hydrophobic			   4
+!  11     sulfate						   5
+!  12     fly ash						   6
+!  13     stratospheric aerosols				   7
+!  14     volcanic aerosols					   8
+!  15    							   9
+!      (RVDPOCE, RVDSIC, RVDPLND, RVDPLIC)
+!      (RVSEDOCE,RVSEDSIC,RVSEDLND,RVSEDLIC)
+
+
+
+!*      1.    PARAMETERS RELATED TO SOURCES
+!             -----------------------------
+
+!-- OB's original 12 types and 24 different values had the following mapping
+! DMS SO2 SO4 H2S DMSO MSA H2O2
+! BC(2) OM(2) FlyAsh DU(2) SS(10)
+
+!-- OB's original SS 10 bins     
+! bin sizes: 0.03-0.06-0.13-0.25-0.5-1.0-2.0-5.0-10.-15.-20
+!RSSFLX = (/ &
+!  &  0.20526E-09_JPRB, 0.49292E-09_JPRB, 0.97079E-09_JPRB, 0.31938E-08_JPRB &
+!  &, 0.16245E-07_JPRB, 0.86292E-07_JPRB, 0.31326E-06_JPRB, 0.24671E-06_JPRB &
+!  &, 0.14109E-06_JPRB, 0.11784E-06_JPRB /)
+
+! maximum possible number of aerosol types
+!NMAXTAER=9   already defined in SU_AERW
+
+!N.B. Fluxes of sea salt for each size bin are given in mg m-2 s-1 at wind 
+!     speed of 1 m s-1 at 10m height (at 80% RH) in OB's seasalt.F
+! RSSFLX also in mg m-2 s-1       
+!-- OB's ECMWF 3 bins of sea salt: 0.03, 0.5, 5, 20 microns  
+RSSFLX = (/ 4.85963536E-09_JPRB, 4.15358556E-07_JPRB, 5.04905813E-07_JPRB /)
+
+! OB's original vdep_oce, vdep_sic, vdep_ter, vdep_lic were given over 24 values 
+
+! following 12 values for 10 SS and 2 DU in cm s-1
+!RVDPOCE = (/   0.1_JPRB,   1.2_JPRB,   0.1_JPRB,   0.1_JPRB,   0.1_JPRB,   0.1_JPRB &
+!          &,   0.1_JPRB,   1.2_JPRB,   1.2_JPRB,   1.2_JPRB,   1.5_JPRB,   1.5_JPRB /)
+!
+!RVDPSIC = (/   0.1_JPRB,   1.2_JPRB,   0.1_JPRB,   0.1_JPRB,   0.1_JPRB,   0.1_JPRB &
+!          &,   0.1_JPRB,   1.2_JPRB,   1.2_JPRB,   1.2_JPRB,   1.5_JPRB,   1.5_JPRB /)
+!
+!RVDPLND = (/   0.1_JPRB,   1.2_JPRB,   0.1_JPRB,   0.1_JPRB,   0.1_JPRB,   0.1_JPRB &
+!          &,   0.1_JPRB,   1.2_JPRB,   1.2_JPRB,   1.2_JPRB,   1.5_JPRB,   1.5_JPRB /)
+!
+!RVDPLIC = (/   0.1_JPRB,   1.2_JPRB,   0.1_JPRB,   0.1_JPRB,   0.1_JPRB,   0.1_JPRB &
+!          &,   0.1_JPRB,   1.2_JPRB,   1.2_JPRB,   1.2_JPRB,   1.5_JPRB,   1.5_JPRB /)
+
+
+
+!*      2.    PARAMETERS RELATED TO SINKS
+!             ---------------------------
+
+R_R = 0.001_JPRB
+R_S = 0.001_JPRB
+
+RFRAER = 0.5_JPRB
+RFRGAS = 1.0_JPRB
+
+!*      2.1   SEA SALT
+!             -------- 
+!-- parameters related to SEA SALT: 12 relates to 12 values of relative humidity
+
+NBRH=12
+RRHMAX = 95._JPRB
+RRHTAB = (/ 0._JPRB, 10._JPRB, 20._JPRB, 30._JPRB, 40._JPRB, 50._JPRB &
+       & , 60._JPRB, 70._JPRB, 80._JPRB, 85._JPRB, 90._JPRB, 95._JPRB /)
+RRHO_SS = (/ 2160._JPRB, 2160._JPRB, 2160._JPRB, 2160._JPRB, 1451.6_JPRB &
+     & , 1367.9_JPRB, 1302.9_JPRB, 1243.2_JPRB, 1182.7_JPRB, 1149.5_JPRB &
+     & , 1111.6_JPRB, 1063.1_JPRB /)
+RSSGROW = (/ 0.503_JPRB, 0.503_JPRB, 0.503_JPRB, 0.503_JPRB, 0.724_JPRB &
+     & , 0.782_JPRB, 0.838_JPRB, 0.905_JPRB, 1.000_JPRB, 1.072_JPRB &
+     & , 1.188_JPRB, 1.447_JPRB /)
+
+!-- OB's original 10 bins !RMMD_SS = (/ 0.09_JPRB, 0.19_JPRB, 0.38_JPRB, 0.75_JPRB, 1.50_JPRB &
+!         & , 3.00_JPRB, 7.00_JPRB, 15.0_JPRB, 25.0_JPRB, 35.0_JPRB /)
+
+!-- OB's ECMWF 3 bins of sea salt
+!  bins are 0.03 - 0.5 -  5.0  - 20 microns
+
+RMMD_SS = (/ 0.30_JPRB, 3.00_JPRB, 10.00_JPRB /)
+RFRSS   = (/  0.7_JPRB,  0.7_JPRB,   0.7_JPRB /)
+RHO_WAT = 1000._JPRB
+RHO_ICE = 500._JPRB
+
+!-  computed off-line by gems_ss.f  (m s-1)
+
+RVSEDOCE(1:3) = (/   0.24E-04_JPRB,   0.20E-02_JPRB,   0.20E-01_JPRB /)
+RVSEDSIC(1:3) = (/   0.24E-04_JPRB,   0.20E-02_JPRB,   0.20E-01_JPRB /)
+RVSEDLND(1:3) = (/   0.24E-04_JPRB,   0.20E-02_JPRB,   0.20E-01_JPRB /)
+RVSEDLIC(1:3) = (/   0.24E-04_JPRB,   0.20E-02_JPRB,   0.20E-01_JPRB /)
+
+! adapted from LMDZ   (m s-1)
+
+RVDPOCE(1:3) = (/ 0.100E-02_JPRB, 0.110E-01_JPRB,   0.145E-01_JPRB /)
+RVDPSIC(1:3) = (/ 0.100E-02_JPRB, 0.110E-01_JPRB,   0.145E-01_JPRB /)
+RVDPLND(1:3) = (/ 0.100E-02_JPRB, 0.110E-01_JPRB,   0.145E-01_JPRB /)
+RVDPLIC(1:3) = (/ 0.100E-02_JPRB, 0.110E-01_JPRB,   0.145E-01_JPRB /)
+
+
+!*      2.2   DESERT DUST
+!             ----------- 
+!- parameters related to DESERT DUST  (OB's ECMWF 3 bins)
+!  bins are 0.03 - 0.55 -  0.9  - 20 microns
+
+RMMD_DD = (/  0.32_JPRB,  0.75_JPRB,   9.0_JPRB /)
+RRHO_DD = (/ 2600._JPRB, 2600._JPRB, 2600._JPRB /)
+RFRDD   = (/   0.7_JPRB,   0.7_JPRB,   0.7_JPRB /)
+
+!-  computed off-line by gems_dust.f
+
+RVSEDOCE(4:6) = (/ 0.70E-04_JPRB, 0.20E-03_JPRB, 0.20E-02_JPRB /)
+RVSEDSIC(4:6) = (/ 0.70E-04_JPRB, 0.20E-03_JPRB, 0.20E-02_JPRB /)
+RVSEDLND(4:6) = (/ 0.70E-04_JPRB, 0.20E-03_JPRB, 0.20E-02_JPRB /)
+RVSEDLIC(4:6) = (/ 0.70E-04_JPRB, 0.20E-03_JPRB, 0.20E-02_JPRB /)
+
+! adapted from LMDZ   (m s-1)
+
+RVDPOCE(4:6)  = (/ 0.100E-02_JPRB, 0.500E-02_JPRB, 0.110E-01_JPRB /)
+RVDPSIC(4:6)  = (/ 0.100E-02_JPRB, 0.500E-02_JPRB, 0.110E-01_JPRB /)
+RVDPLND(4:6)  = (/ 0.100E-02_JPRB, 0.500E-02_JPRB, 0.110E-01_JPRB /)
+RVDPLIC(4:6)  = (/ 0.100E-02_JPRB, 0.500E-02_JPRB, 0.110E-01_JPRB /)
+
+
+!*      2.3   OTHER AEROSOLS (to be improved later!)
+!             --------------
+!- parameters related to other aerosol types
+!- particulate organic matter POM
+RFROM = (/  0.0_JPRB,  0.7_JPRB /)
+
+RVSEDOCE(7:8) = (/   0.10E+00_JPRB,   0.10E+00_JPRB /)
+RVSEDSIC(7:8) = (/   0.10E+00_JPRB,   0.10E+00_JPRB /)
+RVSEDLND(7:8) = (/   0.10E+00_JPRB,   0.10E+00_JPRB /)
+RVSEDLIC(7:8) = (/   0.10E+00_JPRB,   0.10E+00_JPRB /)
+
+! adapted from LMDZ   (m s-1)
+
+RVDPOCE(7:8) = (/   0.10E-02_JPRB,   0.10E-02_JPRB /)
+RVDPSIC(7:8) = (/   0.10E-02_JPRB,   0.10E-02_JPRB /)
+RVDPLND(7:8) = (/   0.10E-02_JPRB,   0.10E-02_JPRB /)
+RVDPLIC(7:8) = (/   0.10E-02_JPRB,   0.10E-02_JPRB /)
+
+
+!- black carbon
+RFRBC = (/  0.0_JPRB,  0.7_JPRB /)
+
+RVSEDOCE(9:10) = (/   0.10E+00_JPRB,   0.10E+00_JPRB /)
+RVSEDSIC(9:10) = (/   0.10E+00_JPRB,   0.10E+00_JPRB /)
+RVSEDLND(9:10) = (/   0.10E+00_JPRB,   0.10E+00_JPRB /)
+RVSEDLIC(9:10) = (/   0.10E+00_JPRB,   0.10E+00_JPRB /)
+
+! adapted from LMDZ   (m s-1)
+
+RVDPOCE(9:10) = (/   0.10E-02_JPRB,   0.10E-02_JPRB /)
+RVDPSIC(9:10) = (/   0.10E-02_JPRB,   0.10E-02_JPRB /)
+RVDPLND(9:10) = (/   0.10E-02_JPRB,   0.10E-02_JPRB /)
+RVDPLIC(9:10) = (/   0.10E-02_JPRB,   0.10E-02_JPRB /)
+
+!- sulfate
+RFRSO4 = 0.7_JPRB
+
+RVSEDOCE(11) = 0.05_JPRB
+RVSEDSIC(11) = 0.25_JPRB
+RVSEDLND(11) = 0.25_JPRB
+RVSEDLIC(11) = 0.25_JPRB
+
+! adapted from LMDZ   (m s-1)
+
+RVDPOCE(11) = 0.05E-02_JPRB
+RVDPSIC(11) = 0.25E-02_JPRB
+RVDPLND(11) = 0.25E-02_JPRB
+RVDPLIC(11) = 0.25E-02_JPRB
+
+!- fly ash
+RFRIF  = 0.7_JPRB
+
+RVSEDOCE(12) = 0.20E+00_JPRB
+RVSEDSIC(12) = 0.20E+00_JPRB
+RVSEDLND(12) = 0.20E+00_JPRB
+RVSEDLIC(12) = 0.20E+00_JPRB
+
+! adapted from LMDZ   (m s-1)
+
+RVDPOCE(12) = 0.20E-02_JPRB
+RVDPSIC(12) = 0.20E-02_JPRB
+RVDPLND(12) = 0.20E-02_JPRB
+RVDPLIC(12) = 0.20E-02_JPRB
+
+
+
+
+!- NB: 15 values for all possible types of ECMWF aerosols
+RALPHAR = (/ &
+ & 0.001_JPRB, 0.001_JPRB, 0.001_JPRB, 0.001_JPRB, 0.001_JPRB, 0.001_JPRB, 0.001_JPRB, 0.001_JPRB, &
+ & 0.001_JPRB, 0.001_JPRB, 0.001_JPRB, 0.001_JPRB, 0.001_JPRB, 0.001_JPRB, 0.001_JPRB /)
+RALPHAS = (/ &
+ &  0.01_JPRB,  0.01_JPRB,  0.01_JPRB,  0.01_JPRB,  0.01_JPRB,  0.01_JPRB,  0.01_JPRB,  0.01_JPRB, &
+ &  0.01_JPRB,  0.01_JPRB,  0.01_JPRB,  0.01_JPRB,  0.01_JPRB,  0.01_JPRB,  0.01_JPRB /)
+
+										 
+!*      3.    PARAMETERS RELATED TO TRANSPORT WITHIN THE FREE ATMOSPHERE
+!             ----------------------------------------------------------
+
+NDD1=4
+NSS1=1
+
+RMFMIN = 1.E-10_JPRB
+
+RMASSE = (/ &
+  &  6.02E+23_JPRB, 6.02E+23_JPRB, 6.02E+23_JPRB, 6.02E+23_JPRB, 6.02E+23_JPRB, 6.02E+23_JPRB &
+  &, 6.02E+23_JPRB, 6.02E+23_JPRB, 6.02E+23_JPRB, 6.02E+23_JPRB, 6.02E+23_JPRB, 6.02E+23_JPRB &
+  &, 6.02E+23_JPRB, 6.02E+23_JPRB, 6.02E+23_JPRB /)
+
+
+!     ----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SU_AERP',1,ZHOOK_HANDLE)
+END SUBROUTINE SU_AERP
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/su_aerp.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/su_aerp.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/su_aerp.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SU_AERP
+END SUBROUTINE SU_AERP
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/su_aerw.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/su_aerw.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/su_aerw.F90	(revision 1989)
@@ -0,0 +1,283 @@
+SUBROUTINE SU_AERW
+
+!**** *SU_AERW*   - DEFINES INDICES AND PARAMETERS FOR VARIOUS AEROSOL VARIABLES
+
+!     PURPOSE.
+!     --------
+!           INITIALIZE YOEAERATM, YOEAERSRC, YOEAERSNK, THE MODULES THAT CONTAINS INDICES
+!           ALLOWING TO GET THE AEROSOL PARAMETERS RELEVANT FOR THE PROGNOSTIC AEROSOL
+!           CONFIGURATION.
+
+!**   INTERFACE.
+!     ----------
+!        *CALL* *SU_AERW
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!        NONE
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+!        YOEAERW
+
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+
+!     EXTERNALS.
+!     ----------
+
+!     REFERENCE.
+!     ----------
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 2005-07-08
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOEAERATM, ONLY : LAERGBUD, LAERSCAV ,LAERSEDIM, LAERSURF, LAER6SDIA, &
+ & LAERCLIMG, LAERCLIMZ, LAERCLIST, LAERDRYDP, LAERNGAT, LAERPRNT, &
+ & REPSCAER , INDBG
+
+USE YOEAERSRC, ONLY : JKBIN, JKTYP, LEPAERO  , &
+ & NBINAER, NINDAER , NMAXTAER, NTAER  , NTYPAER, RGELAV , RGEMUV , &
+ & RDGLAV , RDGMUV  , RCLONV  , RSLONV , RDCLONV, RDSLONV, LAEREXTR, &
+ & RSSFLX , RLATVOL , RLONVOL , NDDUST
+
+USE YOEPHY   , ONLY : LE4ALB
+
+USE YOEDBUG  , ONLY : KSTPDBG
+
+USE YOMCST   , ONLY : RPI
+USE YOMGC    , ONLY : GELAM
+USE YOMGEM   , ONLY : NGPTOT
+USE YOMLEG   , ONLY : RMU
+! Ce qui concerne NULNAM commente par MPL le 15.04.09
+!USE YOMLUN   , ONLY : NULNAM, NULOUT
+USE YOMLUN   , ONLY : NULOUT
+
+USE YOM_YGFL, ONLY : NAERO
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM) :: IAER, ICAER, ITAER
+INTEGER(KIND=JPIM) :: J, JAER, JL
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+!     ----------------------------------------------------------------
+
+#include "posnam.intfb.h"
+
+#include "su_aerp.intfb.h"
+#include "su_aerop.intfb.h"
+!      ----------------------------------------------------------------
+
+#include "naeaer.h"
+
+!      ----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SU_AERW',0,ZHOOK_HANDLE)
+
+!*         1.       DEFAULT VALUES OF PARAMETERS
+!                   ----------------------------
+
+print *,'DANS SU_AERW'
+NBINAER(:) = (/ 3, 3, 2, 2, 1, 1, 1, 1, 1 /)
+
+NMAXTAER=9
+NTYPAER(:) = 0
+JKBIN(:) = 0
+JKTYP(:) = 0
+
+LEPAERO=.FALSE.
+LAERCLIMG=.FALSE.
+LAERCLIMZ=.FALSE.
+LAERCLIST=.FALSE.
+LAERDRYDP=.FALSE.
+LAEREXTR=.FALSE.
+LAERGBUD=.FALSE.
+LAERNGAT=.FALSE.
+LAERPRNT=.FALSE.
+LAERSCAV=.FALSE.
+LAERSEDIM=.FALSE.
+LAERSURF=.FALSE.
+LAER6SDIA=.FALSE.
+INDBG=1
+NTAER  =0
+NDDUST =2
+
+! the 9 types and assumed number of bins are:
+!  NTYPAER    bins  type
+!     1       1- 3  sea-salt  0.03 - 0.5 -  5  - 20 microns
+!     2       4- 6  dust      0.03 - 0.5 - 0.9 - 20 microns
+!     3       7- 8  POM	    hydrophilic, hydrophobic
+!     4       9-10  BC	    hydrophilic, hydrophobic
+!     5      11     sulfate
+!     6      12     fly ash
+!     7      13     pseudo-prognostic stratospheric aerosols
+!     8      14     pseudo-prognostic volcanic aerosols
+!     9      15     prognostic stratospheric aerosols
+ 
+DO JAER=1,NMAXTAER
+  NTYPAER(JAER)=0
+ENDDO
+
+RLATVOL=-999._JPRB
+RLONVOL=-999._JPRB
+RGELAV =-999._JPRB
+RGEMUV =-999._JPRB
+RDGLAV = 999._JPRB
+RDGMUV = 999._JPRB
+RCLONV =-999._JPRB
+RSLONV =-999._JPRB
+RDCLONV= 999._JPRB
+RDSLONV= 999._JPRB
+DO J=1,3
+  KSTPDBG(J)=-999
+ENDDO
+
+REPSCAER=1.E-15_JPRB
+
+!     ------------------------------------------------------------------
+
+!*         2.       READ VALUES OF PROGNOSTIC AEROSOL CONFIGURATION
+!                   -----------------------------------------------
+! Ce qui concerne NAEAER commente par MPL le 15.04.09
+!IF(NAERO > 0) THEN
+! CALL POSNAM(NULNAM,'NAEAER')
+! READ (NULNAM,NAEAER)
+!ENDIF
+
+IF (.NOT.LE4ALB) THEN
+  NDDUST=2
+ENDIF
+!     ------------------------------------------------------------------
+
+!*       3.    INITIALIZE PROGNOSTIC AEROSOL PHYSICAL AND OPTICAL PARAMETERS
+!              -------------------------------------------------------------
+
+  CALL SU_AERP
+print *,'SU_AERW: apres SU_AERP'
+  CALL SU_AEROP
+print *,'SU_AERW: apres SU_AEROP'
+
+IF (LEPAERO) THEN
+
+! define a composite index for each bin of each different aerosol type to be used
+! in source, sedimentation and deposition routines
+ 
+  ICAER=0
+  DO JAER=1,NMAXTAER
+    IF (NTYPAER(JAER) /= 0) THEN
+      NTAER=NTAER+1
+      ITAER=NTYPAER(JAER)
+      DO IAER=1,ITAER
+        ICAER=ICAER+1
+        NINDAER(ICAER)=JAER*10+IAER
+        JKTYP(ICAER)=JAER
+        JKBIN(ICAER)=IAER
+      ENDDO
+    ENDIF
+  ENDDO
+
+!-- if volcanic aerosols, define the model coordinates
+
+  IF (NTYPAER(9) /= 0) THEN
+    RGEMUV=(RLATVOL+90._JPRB)*RPI/180._JPRB
+    RGELAV=RLONVOL*RPI/180._JPRB
+    RCLONV=COS(RGELAV)
+    RSLONV=SIN(RGELAV)
+    DO J=1,NGPTOT-1
+      IF (RGELAV > GELAM(J) .AND. RGELAV <= GELAM(J+1) .AND. &
+        & RGEMUV < RMU(JL) .AND. RGEMUV >= RMU(JL+1) ) THEN
+        RDGMUV=ABS( RMU(J+1) - RMU(J))
+        RDGLAV=ABS( GELAM(J+1)-GELAM(J) )
+        RDSLONV=ABS( SIN(GELAM(JL+1))-SIN(GELAM(JL)) )
+        RDCLONV=ABS( COS(GELAM(JL+1))-COS(GELAM(JL)) )
+      ENDIF
+    ENDDO
+  ENDIF  
+
+!      ----------------------------------------------------------------
+
+!*       4.    PRINT FINAL VALUES.
+!              -------------------
+
+  WRITE(UNIT=NULOUT,FMT='('' LEPAERO = '',L5 &
+   & ,'' NTAER   = '',I2 ,'' NDDUST = '',I1,/&
+   & ,'' NTYPAER = '',9I3,/ &
+   & ,'' NBINAER = '',9I3,/ &
+   & ,'' JKTYP   = '',15I3,/&
+   & ,'' JKBIN   = '',15I3  &
+   & )')&
+   & LEPAERO,NTAER,(NTYPAER(JAER),JAER=1,9),(NBINAER(JAER),JAER=1,9), &
+   & (JKTYP(JAER),JAER=1,15),(JKBIN(JAER),JAER=1,15)
+  WRITE(UNIT=NULOUT,FMT='('' LAERGBUD = '',L3 &
+   & ,'' LAERNGAT = '',L3 &
+   & ,'' LAERDRYDP= '',L3 &
+   & ,'' LAERSEDIM= '',L3 &
+   & ,'' LAERSCAV = '',L3 &
+   & ,'' LAER6SDIA= '',L3 &
+   & ,'' LAERCLIMZ= '',L3 &
+   & ,'' LAERCLIMG= '',L3 &
+   & ,'' LAERCLIST= '',L3 &
+   & )')&
+   & LAERGBUD,LAERNGAT, LAERDRYDP,LAERSEDIM,LAERSCAV,LAER6SDIA,LAERCLIMZ,LAERCLIMG,LAERCLIST
+  WRITE(UNIT=NULOUT,FMT='('' RSSFLX= '',10E10.3)') RSSFLX
+  IF (NTYPAER(9) /= 0) THEN
+    WRITE(UNIT=NULOUT,FMT='('' RLATVOL= '',F5.2 &
+     & ,'' RLONVOL= '',F6.2,'' RGEMUV= '',F6.4,'' RGELAV= '',F6.4 &
+     & ,'' RCLONV = '',F6.4,'' RSLONV= '',F6.4,'' RDGMUV= '',F6.4 &
+     & ,'' RDGLAV = '',F6.4,'' RDCLONV= '',F6.4,'' RDSLONV= '',F6.4 &
+     & )')&
+     & RLATVOL,RLONVOL,RGEMUV,RGELAV,RCLONV,RSLONV,RDGMUV,RDGLAV,RDCLONV,RDSLONV
+  ENDIF
+ENDIF
+
+!     ----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SU_AERW',1,ZHOOK_HANDLE)
+END SUBROUTINE SU_AERW
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/su_aerw.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/su_aerw.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/su_aerw.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SU_AERW
+END SUBROUTINE SU_AERW
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/su_mcica.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/su_mcica.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/su_mcica.F90	(revision 1989)
@@ -0,0 +1,43646 @@
+!OCL SCALAR
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE SU_MCICA
+
+!**** *SU_MCICA*   - INITIALIZE COMMON YOE_MCICA
+
+!     PURPOSE.
+!     --------
+!           INITIALIZE YOE_MCICA, THE COMMON THAT CONTAINS COEFFICIENTS
+!           NEEDED TO RUN THE RAISANEN-COLE-BARKER VERSION OF McICA
+
+!**   INTERFACE.
+!     ----------
+!        *CALL* *SU_MCICA* FROM *SUECRAD*
+
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+!        COMMON YOE_MCICA
+
+
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+
+!     EXTERNALS.
+!     ----------
+
+!     REFERENCE.
+!     ----------
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE *ECMWF*
+!        from Jason Cole's XCW_DATA.dat
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 2006-01-05
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOE_MCICA, ONLY : NMCI1, NMCI2, XCW
+
+IMPLICIT NONE
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!     ----------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SU_MCICA',0,ZHOOK_HANDLE)
+
+NMCI1 = 1000
+NMCI2 = 140
+
+CALL PART1
+CALL PART2
+CALL PART3
+CALL PART4
+CALL PART5
+CALL PART6
+CALL PART7
+CALL PART8
+CALL PART9
+CALL PART10
+CALL PART11
+CALL PART12
+CALL PART13
+CALL PART14
+CALL PART15
+CALL PART16
+CALL PART17
+CALL PART18
+CALL PART19
+CALL PART20
+CALL PART21
+CALL PART22
+CALL PART23
+CALL PART24
+CALL PART25
+CALL PART26
+CALL PART27
+CALL PART28
+CALL PART29
+CALL PART30
+CALL PART31
+CALL PART32
+CALL PART33
+CALL PART34
+CALL PART35
+CALL PART36
+CALL PART37
+CALL PART38
+CALL PART39
+CALL PART40
+CALL PART41
+CALL PART42
+CALL PART43
+CALL PART44
+CALL PART45
+CALL PART46
+CALL PART47
+CALL PART48
+CALL PART49
+CALL PART50
+CALL PART51
+CALL PART52
+CALL PART53
+CALL PART54
+CALL PART55
+CALL PART56
+CALL PART57
+CALL PART58
+CALL PART59
+CALL PART60
+CALL PART61
+CALL PART62
+CALL PART63
+CALL PART64
+CALL PART65
+CALL PART66
+CALL PART67
+CALL PART68
+CALL PART69
+CALL PART70
+CALL PART71
+CALL PART72
+CALL PART73
+CALL PART74
+CALL PART75
+CALL PART76
+CALL PART77
+CALL PART78
+CALL PART79
+CALL PART80
+CALL PART81
+CALL PART82
+CALL PART83
+CALL PART84
+CALL PART85
+CALL PART86
+CALL PART87
+CALL PART88
+CALL PART89
+CALL PART90
+CALL PART91
+CALL PART92
+CALL PART93
+CALL PART94
+CALL PART95
+CALL PART96
+CALL PART97
+CALL PART98
+CALL PART99
+CALL PART100
+CALL PART101
+CALL PART102
+CALL PART103
+CALL PART104
+CALL PART105
+CALL PART106
+CALL PART107
+CALL PART108
+CALL PART109
+CALL PART110
+CALL PART111
+CALL PART112
+CALL PART113
+CALL PART114
+CALL PART115
+CALL PART116
+CALL PART117
+CALL PART118
+CALL PART119
+CALL PART120
+CALL PART121
+CALL PART122
+CALL PART123
+CALL PART124
+CALL PART125
+CALL PART126
+CALL PART127
+CALL PART128
+CALL PART129
+CALL PART130
+CALL PART131
+CALL PART132
+CALL PART133
+CALL PART134
+CALL PART135
+CALL PART136
+CALL PART137
+CALL PART138
+CALL PART139
+CALL PART140
+CALL PART141
+CALL PART142
+CALL PART143
+
+  
+!     ----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SU_MCICA',1,ZHOOK_HANDLE)
+
+CONTAINS
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART1
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART1',0,ZHOOK_HANDLE)
+
+XCW(   1, :) = (/ &
+  &  0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(   2, :) = (/ &
+  &  0.719238E+00_JPRB, 0.657746E+00_JPRB, 0.599658E+00_JPRB, 0.544932E+00_JPRB &
+  &, 0.493515E+00_JPRB, 0.445349E+00_JPRB, 0.400372E+00_JPRB &
+  &, 0.358514E+00_JPRB, 0.319698E+00_JPRB, 0.283841E+00_JPRB, 0.250852E+00_JPRB &
+  &, 0.220633E+00_JPRB, 0.193079E+00_JPRB, 0.168076E+00_JPRB &
+  &, 0.145509E+00_JPRB, 0.125249E+00_JPRB, 0.107167E+00_JPRB, 0.911265E-01_JPRB &
+  &, 0.769881E-01_JPRB, 0.646107E-01_JPRB, 0.538483E-01_JPRB &
+  &, 0.445637E-01_JPRB, 0.366111E-01_JPRB, 0.298526E-01_JPRB, 0.241559E-01_JPRB &
+  &, 0.193935E-01_JPRB, 0.154439E-01_JPRB, 0.122027E-01_JPRB &
+  &, 0.956228E-02_JPRB, 0.743081E-02_JPRB, 0.572660E-02_JPRB, 0.437533E-02_JPRB &
+  &, 0.331126E-02_JPRB, 0.248752E-02_JPRB, 0.185158E-02_JPRB &
+  &, 0.136799E-02_JPRB, 0.992284E-03_JPRB, 0.723804E-03_JPRB, 0.521300E-03_JPRB &
+  &, 0.369758E-03_JPRB, 0.262914E-03_JPRB, 0.182853E-03_JPRB &
+  &, 0.120745E-03_JPRB, 0.781102E-04_JPRB, 0.565393E-04_JPRB, 0.338478E-04_JPRB &
+  &, 0.222189E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(   3, :) = (/ &
+  &  0.736354E+00_JPRB, 0.677916E+00_JPRB, 0.622423E+00_JPRB, 0.569848E+00_JPRB &
+  &, 0.520155E+00_JPRB, 0.473308E+00_JPRB, 0.429266E+00_JPRB &
+  &, 0.387977E+00_JPRB, 0.349393E+00_JPRB, 0.313452E+00_JPRB, 0.280090E+00_JPRB &
+  &, 0.249239E+00_JPRB, 0.220818E+00_JPRB, 0.194749E+00_JPRB &
+  &, 0.170941E+00_JPRB, 0.149301E+00_JPRB, 0.129726E+00_JPRB, 0.112113E+00_JPRB &
+  &, 0.963518E-01_JPRB, 0.823288E-01_JPRB, 0.699278E-01_JPRB &
+  &, 0.590260E-01_JPRB, 0.495089E-01_JPRB, 0.412566E-01_JPRB, 0.341524E-01_JPRB &
+  &, 0.280759E-01_JPRB, 0.229205E-01_JPRB, 0.185757E-01_JPRB &
+  &, 0.149503E-01_JPRB, 0.119426E-01_JPRB, 0.946786E-02_JPRB, 0.744832E-02_JPRB &
+  &, 0.581849E-02_JPRB, 0.450936E-02_JPRB, 0.346636E-02_JPRB &
+  &, 0.264227E-02_JPRB, 0.200318E-02_JPRB, 0.149628E-02_JPRB, 0.111280E-02_JPRB &
+  &, 0.822026E-03_JPRB, 0.600133E-03_JPRB, 0.442133E-03_JPRB &
+  &, 0.309012E-03_JPRB, 0.225682E-03_JPRB, 0.161253E-03_JPRB, 0.105391E-03_JPRB &
+  &, 0.710947E-04_JPRB, 0.475598E-04_JPRB, 0.356538E-04_JPRB &
+  &, 0.231398E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(   4, :) = (/ &
+  &  0.747015E+00_JPRB, 0.690526E+00_JPRB, 0.636713E+00_JPRB, 0.585555E+00_JPRB &
+  &, 0.537027E+00_JPRB, 0.491103E+00_JPRB, 0.447751E+00_JPRB &
+  &, 0.406935E+00_JPRB, 0.368614E+00_JPRB, 0.332744E+00_JPRB, 0.299273E+00_JPRB &
+  &, 0.268143E+00_JPRB, 0.239300E+00_JPRB, 0.212671E+00_JPRB &
+  &, 0.188187E+00_JPRB, 0.165768E+00_JPRB, 0.145335E+00_JPRB, 0.126795E+00_JPRB &
+  &, 0.110061E+00_JPRB, 0.950281E-01_JPRB, 0.816072E-01_JPRB &
+  &, 0.696853E-01_JPRB, 0.591577E-01_JPRB, 0.499224E-01_JPRB, 0.418719E-01_JPRB &
+  &, 0.348996E-01_JPRB, 0.289033E-01_JPRB, 0.237772E-01_JPRB &
+  &, 0.194313E-01_JPRB, 0.157732E-01_JPRB, 0.127163E-01_JPRB, 0.101803E-01_JPRB &
+  &, 0.808838E-02_JPRB, 0.638520E-02_JPRB, 0.500403E-02_JPRB &
+  &, 0.388864E-02_JPRB, 0.300453E-02_JPRB, 0.229808E-02_JPRB, 0.175444E-02_JPRB &
+  &, 0.132569E-02_JPRB, 0.990042E-03_JPRB, 0.733823E-03_JPRB &
+  &, 0.541578E-03_JPRB, 0.395958E-03_JPRB, 0.289236E-03_JPRB, 0.200782E-03_JPRB &
+  &, 0.144408E-03_JPRB, 0.976396E-04_JPRB, 0.741345E-04_JPRB &
+  &, 0.494195E-04_JPRB, 0.369174E-04_JPRB, 0.237836E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(   5, :) = (/ &
+  &  0.754906E+00_JPRB, 0.699885E+00_JPRB, 0.647346E+00_JPRB, 0.597275E+00_JPRB &
+  &, 0.549655E+00_JPRB, 0.504464E+00_JPRB, 0.461678E+00_JPRB &
+  &, 0.421269E+00_JPRB, 0.383205E+00_JPRB, 0.347448E+00_JPRB, 0.313958E+00_JPRB &
+  &, 0.282687E+00_JPRB, 0.253587E+00_JPRB, 0.226601E+00_JPRB &
+  &, 0.201668E+00_JPRB, 0.178721E+00_JPRB, 0.157691E+00_JPRB, 0.138500E+00_JPRB &
+  &, 0.121068E+00_JPRB, 0.105310E+00_JPRB, 0.911369E-01_JPRB &
+  &, 0.784581E-01_JPRB, 0.671787E-01_JPRB, 0.572000E-01_JPRB, 0.484225E-01_JPRB &
+  &, 0.407522E-01_JPRB, 0.340926E-01_JPRB, 0.283452E-01_JPRB &
+  &, 0.234156E-01_JPRB, 0.192232E-01_JPRB, 0.156814E-01_JPRB, 0.127061E-01_JPRB &
+  &, 0.102245E-01_JPRB, 0.817698E-02_JPRB, 0.649181E-02_JPRB &
+  &, 0.511641E-02_JPRB, 0.400589E-02_JPRB, 0.311945E-02_JPRB, 0.240609E-02_JPRB &
+  &, 0.183963E-02_JPRB, 0.140103E-02_JPRB, 0.105792E-02_JPRB &
+  &, 0.796292E-03_JPRB, 0.588936E-03_JPRB, 0.440488E-03_JPRB, 0.320021E-03_JPRB &
+  &, 0.229941E-03_JPRB, 0.160239E-03_JPRB, 0.112615E-03_JPRB &
+  &, 0.756992E-04_JPRB, 0.503762E-04_JPRB, 0.375671E-04_JPRB, 0.241144E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(   6, :) = (/ &
+  &  0.761234E+00_JPRB, 0.707403E+00_JPRB, 0.655904E+00_JPRB, 0.606728E+00_JPRB &
+  &, 0.559862E+00_JPRB, 0.515289E+00_JPRB, 0.472990E+00_JPRB &
+  &, 0.432943E+00_JPRB, 0.395121E+00_JPRB, 0.359494E+00_JPRB, 0.326027E+00_JPRB &
+  &, 0.294681E+00_JPRB, 0.265414E+00_JPRB, 0.238177E+00_JPRB &
+  &, 0.212918E+00_JPRB, 0.189579E+00_JPRB, 0.168099E+00_JPRB, 0.148410E+00_JPRB &
+  &, 0.130440E+00_JPRB, 0.114114E+00_JPRB, 0.993501E-01_JPRB &
+  &, 0.860705E-01_JPRB, 0.741787E-01_JPRB, 0.635961E-01_JPRB, 0.542272E-01_JPRB &
+  &, 0.459791E-01_JPRB, 0.387641E-01_JPRB, 0.324933E-01_JPRB &
+  &, 0.270715E-01_JPRB, 0.224207E-01_JPRB, 0.184534E-01_JPRB, 0.150929E-01_JPRB &
+  &, 0.122657E-01_JPRB, 0.990682E-02_JPRB, 0.794784E-02_JPRB &
+  &, 0.633488E-02_JPRB, 0.501679E-02_JPRB, 0.394081E-02_JPRB, 0.307780E-02_JPRB &
+  &, 0.238441E-02_JPRB, 0.184363E-02_JPRB, 0.140363E-02_JPRB &
+  &, 0.107316E-02_JPRB, 0.804619E-03_JPRB, 0.603376E-03_JPRB, 0.451184E-03_JPRB &
+  &, 0.327692E-03_JPRB, 0.235359E-03_JPRB, 0.176750E-03_JPRB &
+  &, 0.128259E-03_JPRB, 0.907523E-04_JPRB, 0.651343E-04_JPRB, 0.382287E-04_JPRB &
+  &, 0.244511E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(   7, :) = (/ &
+  &  0.766547E+00_JPRB, 0.713724E+00_JPRB, 0.663112E+00_JPRB, 0.614703E+00_JPRB &
+  &, 0.568488E+00_JPRB, 0.524455E+00_JPRB, 0.482589E+00_JPRB &
+  &, 0.442870E+00_JPRB, 0.405277E+00_JPRB, 0.369786E+00_JPRB, 0.336366E+00_JPRB &
+  &, 0.304984E+00_JPRB, 0.275603E+00_JPRB, 0.248182E+00_JPRB &
+  &, 0.222674E+00_JPRB, 0.199029E+00_JPRB, 0.177192E+00_JPRB, 0.157102E+00_JPRB &
+  &, 0.138695E+00_JPRB, 0.121902E+00_JPRB, 0.106652E+00_JPRB &
+  &, 0.928706E-01_JPRB, 0.804699E-01_JPRB, 0.693779E-01_JPRB, 0.595026E-01_JPRB &
+  &, 0.507622E-01_JPRB, 0.430706E-01_JPRB, 0.363401E-01_JPRB &
+  &, 0.304850E-01_JPRB, 0.254259E-01_JPRB, 0.210818E-01_JPRB, 0.173745E-01_JPRB &
+  &, 0.142335E-01_JPRB, 0.115880E-01_JPRB, 0.937665E-02_JPRB &
+  &, 0.753475E-02_JPRB, 0.601814E-02_JPRB, 0.478173E-02_JPRB, 0.376956E-02_JPRB &
+  &, 0.294974E-02_JPRB, 0.229677E-02_JPRB, 0.177094E-02_JPRB &
+  &, 0.136109E-02_JPRB, 0.104300E-02_JPRB, 0.789533E-03_JPRB, 0.594271E-03_JPRB &
+  &, 0.437663E-03_JPRB, 0.322999E-03_JPRB, 0.240884E-03_JPRB &
+  &, 0.167678E-03_JPRB, 0.131128E-03_JPRB, 0.927014E-04_JPRB, 0.664575E-04_JPRB &
+  &, 0.389023E-04_JPRB, 0.247939E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART1',1,ZHOOK_HANDLE)
+END SUBROUTINE PART1
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART2
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART2',0,ZHOOK_HANDLE)
+
+XCW(   8, :) = (/ &
+  &  0.771146E+00_JPRB, 0.719203E+00_JPRB, 0.669367E+00_JPRB, 0.621634E+00_JPRB &
+  &, 0.575996E+00_JPRB, 0.532446E+00_JPRB, 0.490970E+00_JPRB &
+  &, 0.451554E+00_JPRB, 0.414179E+00_JPRB, 0.378824E+00_JPRB, 0.345465E+00_JPRB &
+  &, 0.314072E+00_JPRB, 0.284613E+00_JPRB, 0.257053E+00_JPRB &
+  &, 0.231348E+00_JPRB, 0.207455E+00_JPRB, 0.185325E+00_JPRB, 0.164903E+00_JPRB &
+  &, 0.146130E+00_JPRB, 0.128945E+00_JPRB, 0.113280E+00_JPRB &
+  &, 0.990673E-01_JPRB, 0.862287E-01_JPRB, 0.746946E-01_JPRB, 0.643801E-01_JPRB &
+  &, 0.552071E-01_JPRB, 0.470902E-01_JPRB, 0.399540E-01_JPRB &
+  &, 0.337147E-01_JPRB, 0.282868E-01_JPRB, 0.236033E-01_JPRB, 0.195761E-01_JPRB &
+  &, 0.161452E-01_JPRB, 0.132338E-01_JPRB, 0.107828E-01_JPRB &
+  &, 0.873461E-02_JPRB, 0.702904E-02_JPRB, 0.562265E-02_JPRB, 0.447134E-02_JPRB &
+  &, 0.352535E-02_JPRB, 0.277098E-02_JPRB, 0.215986E-02_JPRB &
+  &, 0.167118E-02_JPRB, 0.129274E-02_JPRB, 0.987325E-03_JPRB, 0.749282E-03_JPRB &
+  &, 0.559852E-03_JPRB, 0.423158E-03_JPRB, 0.317846E-03_JPRB &
+  &, 0.233377E-03_JPRB, 0.171505E-03_JPRB, 0.120269E-03_JPRB, 0.805719E-04_JPRB &
+  &, 0.533534E-04_JPRB, 0.395877E-04_JPRB, 0.251426E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(   9, :) = (/ &
+  &  0.775213E+00_JPRB, 0.724053E+00_JPRB, 0.674911E+00_JPRB, 0.627784E+00_JPRB &
+  &, 0.582668E+00_JPRB, 0.539556E+00_JPRB, 0.498439E+00_JPRB &
+  &, 0.459304E+00_JPRB, 0.422136E+00_JPRB, 0.386918E+00_JPRB, 0.353627E+00_JPRB &
+  &, 0.322241E+00_JPRB, 0.292729E+00_JPRB, 0.265061E+00_JPRB &
+  &, 0.239196E+00_JPRB, 0.215099E+00_JPRB, 0.192722E+00_JPRB, 0.172018E+00_JPRB &
+  &, 0.152932E+00_JPRB, 0.135407E+00_JPRB, 0.119382E+00_JPRB &
+  &, 0.104797E+00_JPRB, 0.915737E-01_JPRB, 0.796470E-01_JPRB, 0.689414E-01_JPRB &
+  &, 0.593791E-01_JPRB, 0.508862E-01_JPRB, 0.433847E-01_JPRB &
+  &, 0.367919E-01_JPRB, 0.310316E-01_JPRB, 0.260304E-01_JPRB, 0.217104E-01_JPRB &
+  &, 0.180051E-01_JPRB, 0.148486E-01_JPRB, 0.121753E-01_JPRB &
+  &, 0.991588E-02_JPRB, 0.803993E-02_JPRB, 0.647335E-02_JPRB, 0.518315E-02_JPRB &
+  &, 0.412152E-02_JPRB, 0.325573E-02_JPRB, 0.255959E-02_JPRB &
+  &, 0.199234E-02_JPRB, 0.155383E-02_JPRB, 0.119675E-02_JPRB, 0.916216E-03_JPRB &
+  &, 0.694261E-03_JPRB, 0.523318E-03_JPRB, 0.394807E-03_JPRB &
+  &, 0.285937E-03_JPRB, 0.211881E-03_JPRB, 0.161619E-03_JPRB, 0.108801E-03_JPRB &
+  &, 0.822557E-04_JPRB, 0.543816E-04_JPRB, 0.402851E-04_JPRB &
+  &, 0.254972E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  10, :) = (/ &
+  &  0.778867E+00_JPRB, 0.728416E+00_JPRB, 0.679903E+00_JPRB, 0.633328E+00_JPRB &
+  &, 0.588688E+00_JPRB, 0.545980E+00_JPRB, 0.505195E+00_JPRB &
+  &, 0.466324E+00_JPRB, 0.429355E+00_JPRB, 0.394272E+00_JPRB, 0.361057E+00_JPRB &
+  &, 0.329688E+00_JPRB, 0.300143E+00_JPRB, 0.272388E+00_JPRB &
+  &, 0.246394E+00_JPRB, 0.222123E+00_JPRB, 0.199536E+00_JPRB, 0.178587E+00_JPRB &
+  &, 0.159228E+00_JPRB, 0.141406E+00_JPRB, 0.125066E+00_JPRB &
+  &, 0.110144E+00_JPRB, 0.965796E-01_JPRB, 0.843044E-01_JPRB, 0.732469E-01_JPRB &
+  &, 0.633366E-01_JPRB, 0.544997E-01_JPRB, 0.466590E-01_JPRB &
+  &, 0.397401E-01_JPRB, 0.336721E-01_JPRB, 0.283795E-01_JPRB, 0.237899E-01_JPRB &
+  &, 0.198305E-01_JPRB, 0.164369E-01_JPRB, 0.135497E-01_JPRB &
+  &, 0.110971E-01_JPRB, 0.904129E-02_JPRB, 0.732404E-02_JPRB, 0.589496E-02_JPRB &
+  &, 0.471770E-02_JPRB, 0.376156E-02_JPRB, 0.297011E-02_JPRB &
+  &, 0.233565E-02_JPRB, 0.182627E-02_JPRB, 0.141781E-02_JPRB, 0.109507E-02_JPRB &
+  &, 0.840888E-03_JPRB, 0.635997E-03_JPRB, 0.484596E-03_JPRB &
+  &, 0.364776E-03_JPRB, 0.265716E-03_JPRB, 0.202970E-03_JPRB, 0.151144E-03_JPRB &
+  &, 0.111158E-03_JPRB, 0.691755E-04_JPRB, 0.554277E-04_JPRB &
+  &, 0.409944E-04_JPRB, 0.258578E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  11, :) = (/ &
+  &  0.782192E+00_JPRB, 0.732388E+00_JPRB, 0.684452E+00_JPRB, 0.638386E+00_JPRB &
+  &, 0.594186E+00_JPRB, 0.551852E+00_JPRB, 0.511378E+00_JPRB &
+  &, 0.472757E+00_JPRB, 0.435978E+00_JPRB, 0.401028E+00_JPRB, 0.367892E+00_JPRB &
+  &, 0.336551E+00_JPRB, 0.306983E+00_JPRB, 0.279163E+00_JPRB &
+  &, 0.253060E+00_JPRB, 0.228642E+00_JPRB, 0.205872E+00_JPRB, 0.184711E+00_JPRB &
+  &, 0.165112E+00_JPRB, 0.147025E+00_JPRB, 0.130400E+00_JPRB &
+  &, 0.115181E+00_JPRB, 0.101307E+00_JPRB, 0.887154E-01_JPRB, 0.773358E-01_JPRB &
+  &, 0.671049E-01_JPRB, 0.579531E-01_JPRB, 0.498036E-01_JPRB &
+  &, 0.425866E-01_JPRB, 0.362325E-01_JPRB, 0.306628E-01_JPRB, 0.258147E-01_JPRB &
+  &, 0.216171E-01_JPRB, 0.180030E-01_JPRB, 0.149105E-01_JPRB &
+  &, 0.122784E-01_JPRB, 0.100522E-01_JPRB, 0.818452E-02_JPRB, 0.662682E-02_JPRB &
+  &, 0.533442E-02_JPRB, 0.426739E-02_JPRB, 0.339144E-02_JPRB &
+  &, 0.269004E-02_JPRB, 0.211006E-02_JPRB, 0.165051E-02_JPRB, 0.127393E-02_JPRB &
+  &, 0.987515E-03_JPRB, 0.761197E-03_JPRB, 0.574384E-03_JPRB &
+  &, 0.430475E-03_JPRB, 0.333009E-03_JPRB, 0.244321E-03_JPRB, 0.179372E-03_JPRB &
+  &, 0.125609E-03_JPRB, 0.987632E-04_JPRB, 0.705702E-04_JPRB &
+  &, 0.409944E-04_JPRB, 0.258578E-04_JPRB, 0.262244E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  12, :) = (/ &
+  &  0.785247E+00_JPRB, 0.736041E+00_JPRB, 0.688639E+00_JPRB, 0.643044E+00_JPRB &
+  &, 0.599255E+00_JPRB, 0.557271E+00_JPRB, 0.517091E+00_JPRB &
+  &, 0.478706E+00_JPRB, 0.442109E+00_JPRB, 0.407291E+00_JPRB, 0.374237E+00_JPRB &
+  &, 0.342929E+00_JPRB, 0.313351E+00_JPRB, 0.285478E+00_JPRB &
+  &, 0.259284E+00_JPRB, 0.234740E+00_JPRB, 0.211810E+00_JPRB, 0.190461E+00_JPRB &
+  &, 0.170647E+00_JPRB, 0.152323E+00_JPRB, 0.135442E+00_JPRB &
+  &, 0.119955E+00_JPRB, 0.105798E+00_JPRB, 0.929146E-01_JPRB, 0.812435E-01_JPRB &
+  &, 0.707204E-01_JPRB, 0.612723E-01_JPRB, 0.528374E-01_JPRB &
+  &, 0.453432E-01_JPRB, 0.387168E-01_JPRB, 0.328928E-01_JPRB, 0.278016E-01_JPRB &
+  &, 0.233777E-01_JPRB, 0.195515E-01_JPRB, 0.162622E-01_JPRB &
+  &, 0.134504E-01_JPRB, 0.110631E-01_JPRB, 0.905477E-02_JPRB, 0.736871E-02_JPRB &
+  &, 0.596143E-02_JPRB, 0.479429E-02_JPRB, 0.383438E-02_JPRB &
+  &, 0.304442E-02_JPRB, 0.240521E-02_JPRB, 0.189484E-02_JPRB, 0.147664E-02_JPRB &
+  &, 0.114636E-02_JPRB, 0.886396E-03_JPRB, 0.676999E-03_JPRB &
+  &, 0.522454E-03_JPRB, 0.386844E-03_JPRB, 0.299455E-03_JPRB, 0.221716E-03_JPRB &
+  &, 0.154511E-03_JPRB, 0.113557E-03_JPRB, 0.857127E-04_JPRB &
+  &, 0.564916E-04_JPRB, 0.417156E-04_JPRB, 0.262244E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  13, :) = (/ &
+  &  0.788076E+00_JPRB, 0.739426E+00_JPRB, 0.692522E+00_JPRB, 0.647367E+00_JPRB &
+  &, 0.603964E+00_JPRB, 0.562311E+00_JPRB, 0.522407E+00_JPRB &
+  &, 0.484248E+00_JPRB, 0.447829E+00_JPRB, 0.413139E+00_JPRB, 0.380168E+00_JPRB &
+  &, 0.348900E+00_JPRB, 0.319320E+00_JPRB, 0.291406E+00_JPRB &
+  &, 0.265135E+00_JPRB, 0.240481E+00_JPRB, 0.217412E+00_JPRB, 0.195892E+00_JPRB &
+  &, 0.175886E+00_JPRB, 0.157348E+00_JPRB, 0.140235E+00_JPRB &
+  &, 0.124501E+00_JPRB, 0.110085E+00_JPRB, 0.969369E-01_JPRB, 0.849948E-01_JPRB &
+  &, 0.741941E-01_JPRB, 0.644761E-01_JPRB, 0.557721E-01_JPRB &
+  &, 0.480177E-01_JPRB, 0.411370E-01_JPRB, 0.350735E-01_JPRB, 0.297506E-01_JPRB &
+  &, 0.251082E-01_JPRB, 0.210778E-01_JPRB, 0.176048E-01_JPRB &
+  &, 0.146223E-01_JPRB, 0.120835E-01_JPRB, 0.992503E-02_JPRB, 0.811060E-02_JPRB &
+  &, 0.658844E-02_JPRB, 0.533174E-02_JPRB, 0.427732E-02_JPRB &
+  &, 0.342096E-02_JPRB, 0.271170E-02_JPRB, 0.215081E-02_JPRB, 0.167935E-02_JPRB &
+  &, 0.131743E-02_JPRB, 0.102412E-02_JPRB, 0.792442E-03_JPRB &
+  &, 0.601293E-03_JPRB, 0.454138E-03_JPRB, 0.340806E-03_JPRB, 0.264059E-03_JPRB &
+  &, 0.197865E-03_JPRB, 0.143145E-03_JPRB, 0.100855E-03_JPRB &
+  &, 0.719888E-04_JPRB, 0.575734E-04_JPRB, 0.424488E-04_JPRB, 0.265969E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  14, :) = (/ &
+  &  0.790713E+00_JPRB, 0.742585E+00_JPRB, 0.696148E+00_JPRB, 0.651408E+00_JPRB &
+  &, 0.608367E+00_JPRB, 0.567027E+00_JPRB, 0.527387E+00_JPRB &
+  &, 0.489445E+00_JPRB, 0.453196E+00_JPRB, 0.418632E+00_JPRB, 0.385744E+00_JPRB &
+  &, 0.354521E+00_JPRB, 0.324945E+00_JPRB, 0.297001E+00_JPRB &
+  &, 0.270666E+00_JPRB, 0.245915E+00_JPRB, 0.222719E+00_JPRB, 0.201049E+00_JPRB &
+  &, 0.180868E+00_JPRB, 0.162135E+00_JPRB, 0.144810E+00_JPRB &
+  &, 0.128847E+00_JPRB, 0.114195E+00_JPRB, 0.100800E+00_JPRB, 0.886041E-01_JPRB &
+  &, 0.775514E-01_JPRB, 0.675792E-01_JPRB, 0.586227E-01_JPRB &
+  &, 0.506179E-01_JPRB, 0.435011E-01_JPRB, 0.372049E-01_JPRB, 0.316660E-01_JPRB &
+  &, 0.268128E-01_JPRB, 0.225909E-01_JPRB, 0.189338E-01_JPRB &
+  &, 0.157850E-01_JPRB, 0.130944E-01_JPRB, 0.108051E-01_JPRB, 0.886251E-02_JPRB &
+  &, 0.723601E-02_JPRB, 0.586918E-02_JPRB, 0.474186E-02_JPRB &
+  &, 0.380856E-02_JPRB, 0.304090E-02_JPRB, 0.240677E-02_JPRB, 0.190590E-02_JPRB &
+  &, 0.148849E-02_JPRB, 0.116184E-02_JPRB, 0.895057E-03_JPRB &
+  &, 0.693271E-03_JPRB, 0.534890E-03_JPRB, 0.409723E-03_JPRB, 0.306402E-03_JPRB &
+  &, 0.226767E-03_JPRB, 0.172732E-03_JPRB, 0.131140E-03_JPRB &
+  &, 0.874860E-04_JPRB, 0.575734E-04_JPRB, 0.424488E-04_JPRB, 0.265969E-04_JPRB &
+  &, 0.269754E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART2',1,ZHOOK_HANDLE)
+END SUBROUTINE PART2
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART3
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART3',0,ZHOOK_HANDLE)
+
+XCW(  15, :) = (/ &
+  &  0.793186E+00_JPRB, 0.745548E+00_JPRB, 0.699551E+00_JPRB, 0.655203E+00_JPRB &
+  &, 0.612506E+00_JPRB, 0.571464E+00_JPRB, 0.532076E+00_JPRB &
+  &, 0.494341E+00_JPRB, 0.458258E+00_JPRB, 0.423819E+00_JPRB, 0.391016E+00_JPRB &
+  &, 0.359839E+00_JPRB, 0.330274E+00_JPRB, 0.302307E+00_JPRB &
+  &, 0.275917E+00_JPRB, 0.251081E+00_JPRB, 0.227774E+00_JPRB, 0.205967E+00_JPRB &
+  &, 0.185626E+00_JPRB, 0.166716E+00_JPRB, 0.149197E+00_JPRB &
+  &, 0.133021E+00_JPRB, 0.118150E+00_JPRB, 0.104523E+00_JPRB, 0.920926E-01_JPRB &
+  &, 0.808032E-01_JPRB, 0.705893E-01_JPRB, 0.613971E-01_JPRB &
+  &, 0.531594E-01_JPRB, 0.458171E-01_JPRB, 0.392993E-01_JPRB, 0.335477E-01_JPRB &
+  &, 0.285001E-01_JPRB, 0.240906E-01_JPRB, 0.202583E-01_JPRB &
+  &, 0.169477E-01_JPRB, 0.141053E-01_JPRB, 0.116851E-01_JPRB, 0.962445E-02_JPRB &
+  &, 0.788357E-02_JPRB, 0.642770E-02_JPRB, 0.520640E-02_JPRB &
+  &, 0.419617E-02_JPRB, 0.335875E-02_JPRB, 0.268601E-02_JPRB, 0.212053E-02_JPRB &
+  &, 0.167178E-02_JPRB, 0.131207E-02_JPRB, 0.102333E-02_JPRB &
+  &, 0.785250E-03_JPRB, 0.615642E-03_JPRB, 0.464858E-03_JPRB, 0.348745E-03_JPRB &
+  &, 0.270120E-03_JPRB, 0.202320E-03_JPRB, 0.146283E-03_JPRB &
+  &, 0.102983E-03_JPRB, 0.734312E-04_JPRB, 0.586731E-04_JPRB, 0.431938E-04_JPRB &
+  &, 0.269754E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  16, :) = (/ &
+  &  0.795517E+00_JPRB, 0.748342E+00_JPRB, 0.702762E+00_JPRB, 0.658786E+00_JPRB &
+  &, 0.616416E+00_JPRB, 0.575658E+00_JPRB, 0.536511E+00_JPRB &
+  &, 0.498977E+00_JPRB, 0.463054E+00_JPRB, 0.428737E+00_JPRB, 0.396019E+00_JPRB &
+  &, 0.364890E+00_JPRB, 0.335342E+00_JPRB, 0.307358E+00_JPRB &
+  &, 0.280921E+00_JPRB, 0.256011E+00_JPRB, 0.232603E+00_JPRB, 0.210672E+00_JPRB &
+  &, 0.190186E+00_JPRB, 0.171113E+00_JPRB, 0.153412E+00_JPRB &
+  &, 0.137043E+00_JPRB, 0.121965E+00_JPRB, 0.108122E+00_JPRB, 0.954745E-01_JPRB &
+  &, 0.839568E-01_JPRB, 0.735211E-01_JPRB, 0.641028E-01_JPRB &
+  &, 0.556423E-01_JPRB, 0.480810E-01_JPRB, 0.413568E-01_JPRB, 0.354041E-01_JPRB &
+  &, 0.301658E-01_JPRB, 0.255772E-01_JPRB, 0.215782E-01_JPRB &
+  &, 0.181103E-01_JPRB, 0.151257E-01_JPRB, 0.125651E-01_JPRB, 0.103864E-01_JPRB &
+  &, 0.854141E-02_JPRB, 0.698622E-02_JPRB, 0.568175E-02_JPRB &
+  &, 0.459486E-02_JPRB, 0.369930E-02_JPRB, 0.296524E-02_JPRB, 0.235901E-02_JPRB &
+  &, 0.186728E-02_JPRB, 0.147483E-02_JPRB, 0.115159E-02_JPRB &
+  &, 0.890369E-03_JPRB, 0.696395E-03_JPRB, 0.533775E-03_JPRB, 0.405202E-03_JPRB &
+  &, 0.313474E-03_JPRB, 0.231908E-03_JPRB, 0.176568E-03_JPRB &
+  &, 0.133978E-03_JPRB, 0.892890E-04_JPRB, 0.586731E-04_JPRB, 0.431938E-04_JPRB &
+  &, 0.269754E-04_JPRB, 0.273598E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  17, :) = (/ &
+  &  0.797721E+00_JPRB, 0.750986E+00_JPRB, 0.705803E+00_JPRB, 0.662181E+00_JPRB &
+  &, 0.620124E+00_JPRB, 0.579637E+00_JPRB, 0.540723E+00_JPRB &
+  &, 0.503383E+00_JPRB, 0.467615E+00_JPRB, 0.433418E+00_JPRB, 0.400785E+00_JPRB &
+  &, 0.369709E+00_JPRB, 0.340180E+00_JPRB, 0.312185E+00_JPRB &
+  &, 0.285709E+00_JPRB, 0.260733E+00_JPRB, 0.237235E+00_JPRB, 0.215190E+00_JPRB &
+  &, 0.194571E+00_JPRB, 0.175345E+00_JPRB, 0.157475E+00_JPRB &
+  &, 0.140926E+00_JPRB, 0.125655E+00_JPRB, 0.111614E+00_JPRB, 0.987534E-01_JPRB &
+  &, 0.870268E-01_JPRB, 0.763746E-01_JPRB, 0.667436E-01_JPRB &
+  &, 0.580744E-01_JPRB, 0.503088E-01_JPRB, 0.433814E-01_JPRB, 0.372353E-01_JPRB &
+  &, 0.318143E-01_JPRB, 0.270504E-01_JPRB, 0.228846E-01_JPRB &
+  &, 0.192637E-01_JPRB, 0.161366E-01_JPRB, 0.134549E-01_JPRB, 0.111583E-01_JPRB &
+  &, 0.920954E-02_JPRB, 0.755527E-02_JPRB, 0.616790E-02_JPRB &
+  &, 0.500462E-02_JPRB, 0.405120E-02_JPRB, 0.325611E-02_JPRB, 0.259749E-02_JPRB &
+  &, 0.206278E-02_JPRB, 0.163759E-02_JPRB, 0.127986E-02_JPRB &
+  &, 0.100863E-02_JPRB, 0.777147E-03_JPRB, 0.602693E-03_JPRB, 0.461660E-03_JPRB &
+  &, 0.356827E-03_JPRB, 0.261496E-03_JPRB, 0.206853E-03_JPRB &
+  &, 0.149475E-03_JPRB, 0.105147E-03_JPRB, 0.748975E-04_JPRB, 0.597907E-04_JPRB &
+  &, 0.439508E-04_JPRB, 0.273598E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  18, :) = (/ &
+  &  0.799815E+00_JPRB, 0.753498E+00_JPRB, 0.708694E+00_JPRB, 0.665410E+00_JPRB &
+  &, 0.623652E+00_JPRB, 0.583427E+00_JPRB, 0.544737E+00_JPRB &
+  &, 0.507584E+00_JPRB, 0.471968E+00_JPRB, 0.437889E+00_JPRB, 0.405341E+00_JPRB &
+  &, 0.374317E+00_JPRB, 0.344811E+00_JPRB, 0.316810E+00_JPRB &
+  &, 0.290302E+00_JPRB, 0.265266E+00_JPRB, 0.241687E+00_JPRB, 0.219539E+00_JPRB &
+  &, 0.198797E+00_JPRB, 0.179428E+00_JPRB, 0.161405E+00_JPRB &
+  &, 0.144685E+00_JPRB, 0.129233E+00_JPRB, 0.115001E+00_JPRB, 0.101947E+00_JPRB &
+  &, 0.900167E-01_JPRB, 0.791649E-01_JPRB, 0.693310E-01_JPRB &
+  &, 0.604595E-01_JPRB, 0.524966E-01_JPRB, 0.453773E-01_JPRB, 0.390454E-01_JPRB &
+  &, 0.334455E-01_JPRB, 0.285104E-01_JPRB, 0.241909E-01_JPRB &
+  &, 0.204263E-01_JPRB, 0.171570E-01_JPRB, 0.143447E-01_JPRB, 0.119303E-01_JPRB &
+  &, 0.987766E-02_JPRB, 0.813487E-02_JPRB, 0.666485E-02_JPRB &
+  &, 0.542545E-02_JPRB, 0.440311E-02_JPRB, 0.354698E-02_JPRB, 0.284789E-02_JPRB &
+  &, 0.227050E-02_JPRB, 0.180035E-02_JPRB, 0.142096E-02_JPRB &
+  &, 0.111375E-02_JPRB, 0.871358E-03_JPRB, 0.671611E-03_JPRB, 0.518117E-03_JPRB &
+  &, 0.400181E-03_JPRB, 0.305877E-03_JPRB, 0.221996E-03_JPRB &
+  &, 0.164972E-03_JPRB, 0.121005E-03_JPRB, 0.911219E-04_JPRB, 0.597907E-04_JPRB &
+  &, 0.439508E-04_JPRB, 0.273598E-04_JPRB, 0.277503E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  19, :) = (/ &
+  &  0.801808E+00_JPRB, 0.755892E+00_JPRB, 0.711450E+00_JPRB, 0.668491E+00_JPRB &
+  &, 0.627020E+00_JPRB, 0.587046E+00_JPRB, 0.548572E+00_JPRB &
+  &, 0.511601E+00_JPRB, 0.476134E+00_JPRB, 0.442171E+00_JPRB, 0.409707E+00_JPRB &
+  &, 0.378738E+00_JPRB, 0.349258E+00_JPRB, 0.321256E+00_JPRB &
+  &, 0.294720E+00_JPRB, 0.269633E+00_JPRB, 0.245979E+00_JPRB, 0.223736E+00_JPRB &
+  &, 0.202879E+00_JPRB, 0.183381E+00_JPRB, 0.165208E+00_JPRB &
+  &, 0.148332E+00_JPRB, 0.132709E+00_JPRB, 0.118298E+00_JPRB, 0.105059E+00_JPRB &
+  &, 0.929375E-01_JPRB, 0.818918E-01_JPRB, 0.718649E-01_JPRB &
+  &, 0.628017E-01_JPRB, 0.546483E-01_JPRB, 0.473445E-01_JPRB, 0.408344E-01_JPRB &
+  &, 0.350594E-01_JPRB, 0.299615E-01_JPRB, 0.254882E-01_JPRB &
+  &, 0.215797E-01_JPRB, 0.181775E-01_JPRB, 0.152443E-01_JPRB, 0.127123E-01_JPRB &
+  &, 0.105561E-01_JPRB, 0.871446E-02_JPRB, 0.716181E-02_JPRB &
+  &, 0.585735E-02_JPRB, 0.476636E-02_JPRB, 0.384949E-02_JPRB, 0.309829E-02_JPRB &
+  &, 0.247823E-02_JPRB, 0.197563E-02_JPRB, 0.156206E-02_JPRB &
+  &, 0.123200E-02_JPRB, 0.965569E-03_JPRB, 0.754312E-03_JPRB, 0.588689E-03_JPRB &
+  &, 0.443534E-03_JPRB, 0.350259E-03_JPRB, 0.267423E-03_JPRB &
+  &, 0.195966E-03_JPRB, 0.152720E-03_JPRB, 0.107346E-03_JPRB, 0.763876E-04_JPRB &
+  &, 0.609262E-04_JPRB, 0.447197E-04_JPRB, 0.277503E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  20, :) = (/ &
+  &  0.803713E+00_JPRB, 0.758180E+00_JPRB, 0.714085E+00_JPRB, 0.671438E+00_JPRB &
+  &, 0.630244E+00_JPRB, 0.590513E+00_JPRB, 0.552248E+00_JPRB &
+  &, 0.515454E+00_JPRB, 0.480131E+00_JPRB, 0.446281E+00_JPRB, 0.413902E+00_JPRB &
+  &, 0.382990E+00_JPRB, 0.353538E+00_JPRB, 0.325537E+00_JPRB &
+  &, 0.298979E+00_JPRB, 0.273847E+00_JPRB, 0.250126E+00_JPRB, 0.227794E+00_JPRB &
+  &, 0.206833E+00_JPRB, 0.187210E+00_JPRB, 0.168901E+00_JPRB &
+  &, 0.151873E+00_JPRB, 0.136091E+00_JPRB, 0.121511E+00_JPRB, 0.108093E+00_JPRB &
+  &, 0.957928E-01_JPRB, 0.845628E-01_JPRB, 0.743492E-01_JPRB &
+  &, 0.651008E-01_JPRB, 0.567640E-01_JPRB, 0.492828E-01_JPRB, 0.426025E-01_JPRB &
+  &, 0.366604E-01_JPRB, 0.314082E-01_JPRB, 0.267809E-01_JPRB &
+  &, 0.227238E-01_JPRB, 0.191979E-01_JPRB, 0.161341E-01_JPRB, 0.135043E-01_JPRB &
+  &, 0.112345E-01_JPRB, 0.930460E-02_JPRB, 0.766956E-02_JPRB &
+  &, 0.628926E-02_JPRB, 0.512961E-02_JPRB, 0.416363E-02_JPRB, 0.336062E-02_JPRB &
+  &, 0.269817E-02_JPRB, 0.216343E-02_JPRB, 0.171598E-02_JPRB &
+  &, 0.136340E-02_JPRB, 0.107324E-02_JPRB, 0.837014E-03_JPRB, 0.645147E-03_JPRB &
+  &, 0.501339E-03_JPRB, 0.379847E-03_JPRB, 0.297708E-03_JPRB &
+  &, 0.226961E-03_JPRB, 0.168578E-03_JPRB, 0.123571E-03_JPRB, 0.929845E-04_JPRB &
+  &, 0.609262E-04_JPRB, 0.447197E-04_JPRB, 0.277503E-04_JPRB &
+  &, 0.281466E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  21, :) = (/ &
+  &  0.805537E+00_JPRB, 0.760373E+00_JPRB, 0.716611E+00_JPRB, 0.674264E+00_JPRB &
+  &, 0.633338E+00_JPRB, 0.593841E+00_JPRB, 0.555779E+00_JPRB &
+  &, 0.519156E+00_JPRB, 0.483975E+00_JPRB, 0.450238E+00_JPRB, 0.417942E+00_JPRB &
+  &, 0.387087E+00_JPRB, 0.357665E+00_JPRB, 0.329660E+00_JPRB &
+  &, 0.303093E+00_JPRB, 0.277920E+00_JPRB, 0.254138E+00_JPRB, 0.231727E+00_JPRB &
+  &, 0.210666E+00_JPRB, 0.190928E+00_JPRB, 0.172494E+00_JPRB &
+  &, 0.155325E+00_JPRB, 0.139387E+00_JPRB, 0.124649E+00_JPRB, 0.111063E+00_JPRB &
+  &, 0.985900E-01_JPRB, 0.871817E-01_JPRB, 0.767916E-01_JPRB &
+  &, 0.673686E-01_JPRB, 0.588556E-01_JPRB, 0.512007E-01_JPRB, 0.443536E-01_JPRB &
+  &, 0.382485E-01_JPRB, 0.328416E-01_JPRB, 0.280691E-01_JPRB &
+  &, 0.238771E-01_JPRB, 0.202183E-01_JPRB, 0.170435E-01_JPRB, 0.142963E-01_JPRB &
+  &, 0.119334E-01_JPRB, 0.990527E-02_JPRB, 0.818812E-02_JPRB &
+  &, 0.673224E-02_JPRB, 0.551557E-02_JPRB, 0.448940E-02_JPRB, 0.363487E-02_JPRB &
+  &, 0.293033E-02_JPRB, 0.235123E-02_JPRB, 0.186990E-02_JPRB &
+  &, 0.148166E-02_JPRB, 0.116745E-02_JPRB, 0.919715E-03_JPRB, 0.715718E-03_JPRB &
+  &, 0.559143E-03_JPRB, 0.424228E-03_JPRB, 0.327994E-03_JPRB &
+  &, 0.257955E-03_JPRB, 0.184436E-03_JPRB, 0.139795E-03_JPRB, 0.109581E-03_JPRB &
+  &, 0.779016E-04_JPRB, 0.620795E-04_JPRB, 0.455005E-04_JPRB &
+  &, 0.281466E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART3',1,ZHOOK_HANDLE)
+END SUBROUTINE PART3
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART4
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART4',0,ZHOOK_HANDLE)
+
+XCW(  22, :) = (/ &
+  &  0.807289E+00_JPRB, 0.762478E+00_JPRB, 0.719039E+00_JPRB, 0.676981E+00_JPRB &
+  &, 0.636312E+00_JPRB, 0.597043E+00_JPRB, 0.559178E+00_JPRB &
+  &, 0.522722E+00_JPRB, 0.487680E+00_JPRB, 0.454053E+00_JPRB, 0.421842E+00_JPRB &
+  &, 0.391042E+00_JPRB, 0.361653E+00_JPRB, 0.333668E+00_JPRB &
+  &, 0.307076E+00_JPRB, 0.281868E+00_JPRB, 0.258029E+00_JPRB, 0.235542E+00_JPRB &
+  &, 0.214390E+00_JPRB, 0.194548E+00_JPRB, 0.175990E+00_JPRB &
+  &, 0.158687E+00_JPRB, 0.142606E+00_JPRB, 0.127713E+00_JPRB, 0.113968E+00_JPRB &
+  &, 0.101329E+00_JPRB, 0.897521E-01_JPRB, 0.791920E-01_JPRB &
+  &, 0.695973E-01_JPRB, 0.609151E-01_JPRB, 0.530980E-01_JPRB, 0.460838E-01_JPRB &
+  &, 0.398279E-01_JPRB, 0.342662E-01_JPRB, 0.293528E-01_JPRB &
+  &, 0.250212E-01_JPRB, 0.212388E-01_JPRB, 0.179431E-01_JPRB, 0.150883E-01_JPRB &
+  &, 0.126221E-01_JPRB, 0.105165E-01_JPRB, 0.871749E-02_JPRB &
+  &, 0.718630E-02_JPRB, 0.590153E-02_JPRB, 0.481518E-02_JPRB, 0.390912E-02_JPRB &
+  &, 0.316249E-02_JPRB, 0.253903E-02_JPRB, 0.203665E-02_JPRB &
+  &, 0.162620E-02_JPRB, 0.128858E-02_JPRB, 0.101620E-02_JPRB, 0.786290E-03_JPRB &
+  &, 0.616948E-03_JPRB, 0.483404E-03_JPRB, 0.373421E-03_JPRB &
+  &, 0.273452E-03_JPRB, 0.216151E-03_JPRB, 0.156019E-03_JPRB, 0.126178E-03_JPRB &
+  &, 0.948770E-04_JPRB, 0.620795E-04_JPRB, 0.455005E-04_JPRB &
+  &, 0.281466E-04_JPRB, 0.285490E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  23, :) = (/ &
+  &  0.808973E+00_JPRB, 0.764504E+00_JPRB, 0.721375E+00_JPRB, 0.679597E+00_JPRB &
+  &, 0.639179E+00_JPRB, 0.600130E+00_JPRB, 0.562456E+00_JPRB &
+  &, 0.526164E+00_JPRB, 0.491258E+00_JPRB, 0.457739E+00_JPRB, 0.425610E+00_JPRB &
+  &, 0.394870E+00_JPRB, 0.365514E+00_JPRB, 0.337540E+00_JPRB &
+  &, 0.310937E+00_JPRB, 0.285698E+00_JPRB, 0.261808E+00_JPRB, 0.239253E+00_JPRB &
+  &, 0.218014E+00_JPRB, 0.198069E+00_JPRB, 0.179397E+00_JPRB &
+  &, 0.161966E+00_JPRB, 0.145750E+00_JPRB, 0.130712E+00_JPRB, 0.116814E+00_JPRB &
+  &, 0.104017E+00_JPRB, 0.922816E-01_JPRB, 0.815542E-01_JPRB &
+  &, 0.717948E-01_JPRB, 0.629507E-01_JPRB, 0.549707E-01_JPRB, 0.478013E-01_JPRB &
+  &, 0.413901E-01_JPRB, 0.356863E-01_JPRB, 0.306319E-01_JPRB &
+  &, 0.261745E-01_JPRB, 0.222592E-01_JPRB, 0.188525E-01_JPRB, 0.158904E-01_JPRB &
+  &, 0.133313E-01_JPRB, 0.111277E-01_JPRB, 0.924685E-02_JPRB &
+  &, 0.764035E-02_JPRB, 0.628749E-02_JPRB, 0.515259E-02_JPRB, 0.419529E-02_JPRB &
+  &, 0.340687E-02_JPRB, 0.273935E-02_JPRB, 0.220340E-02_JPRB &
+  &, 0.175760E-02_JPRB, 0.139625E-02_JPRB, 0.109890E-02_JPRB, 0.870977E-03_JPRB &
+  &, 0.674752E-03_JPRB, 0.527785E-03_JPRB, 0.403706E-03_JPRB &
+  &, 0.319944E-03_JPRB, 0.232009E-03_JPRB, 0.172244E-03_JPRB, 0.142775E-03_JPRB &
+  &, 0.948770E-04_JPRB, 0.794394E-04_JPRB, 0.455005E-04_JPRB &
+  &, 0.281466E-04_JPRB, 0.285490E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  24, :) = (/ &
+  &  0.810596E+00_JPRB, 0.766457E+00_JPRB, 0.723628E+00_JPRB, 0.682121E+00_JPRB &
+  &, 0.641946E+00_JPRB, 0.603110E+00_JPRB, 0.565623E+00_JPRB &
+  &, 0.529490E+00_JPRB, 0.494717E+00_JPRB, 0.461307E+00_JPRB, 0.429261E+00_JPRB &
+  &, 0.398579E+00_JPRB, 0.369259E+00_JPRB, 0.341298E+00_JPRB &
+  &, 0.314687E+00_JPRB, 0.289419E+00_JPRB, 0.265483E+00_JPRB, 0.242864E+00_JPRB &
+  &, 0.221544E+00_JPRB, 0.201505E+00_JPRB, 0.182724E+00_JPRB &
+  &, 0.165175E+00_JPRB, 0.148826E+00_JPRB, 0.133648E+00_JPRB, 0.119606E+00_JPRB &
+  &, 0.106658E+00_JPRB, 0.947664E-01_JPRB, 0.838821E-01_JPRB &
+  &, 0.739649E-01_JPRB, 0.649621E-01_JPRB, 0.568270E-01_JPRB, 0.495062E-01_JPRB &
+  &, 0.429479E-01_JPRB, 0.370977E-01_JPRB, 0.319065E-01_JPRB &
+  &, 0.273186E-01_JPRB, 0.232892E-01_JPRB, 0.197618E-01_JPRB, 0.166924E-01_JPRB &
+  &, 0.140303E-01_JPRB, 0.117494E-01_JPRB, 0.978702E-02_JPRB &
+  &, 0.810548E-02_JPRB, 0.668480E-02_JPRB, 0.549000E-02_JPRB, 0.448146E-02_JPRB &
+  &, 0.365124E-02_JPRB, 0.295219E-02_JPRB, 0.237015E-02_JPRB &
+  &, 0.190214E-02_JPRB, 0.151738E-02_JPRB, 0.119539E-02_JPRB, 0.941548E-03_JPRB &
+  &, 0.747008E-03_JPRB, 0.572167E-03_JPRB, 0.449134E-03_JPRB &
+  &, 0.350938E-03_JPRB, 0.263725E-03_JPRB, 0.204692E-03_JPRB, 0.159372E-03_JPRB &
+  &, 0.111852E-03_JPRB, 0.794394E-04_JPRB, 0.632508E-04_JPRB &
+  &, 0.462932E-04_JPRB, 0.285490E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  25, :) = (/ &
+  &  0.812163E+00_JPRB, 0.768343E+00_JPRB, 0.725804E+00_JPRB, 0.684561E+00_JPRB &
+  &, 0.644621E+00_JPRB, 0.605994E+00_JPRB, 0.568689E+00_JPRB &
+  &, 0.532712E+00_JPRB, 0.498069E+00_JPRB, 0.464764E+00_JPRB, 0.432801E+00_JPRB &
+  &, 0.402177E+00_JPRB, 0.372894E+00_JPRB, 0.344948E+00_JPRB &
+  &, 0.318332E+00_JPRB, 0.293041E+00_JPRB, 0.269062E+00_JPRB, 0.246383E+00_JPRB &
+  &, 0.224990E+00_JPRB, 0.204862E+00_JPRB, 0.185976E+00_JPRB &
+  &, 0.168312E+00_JPRB, 0.151841E+00_JPRB, 0.136528E+00_JPRB, 0.122345E+00_JPRB &
+  &, 0.109251E+00_JPRB, 0.972102E-01_JPRB, 0.861756E-01_JPRB &
+  &, 0.761037E-01_JPRB, 0.669496E-01_JPRB, 0.586627E-01_JPRB, 0.511942E-01_JPRB &
+  &, 0.444885E-01_JPRB, 0.385045E-01_JPRB, 0.331766E-01_JPRB &
+  &, 0.284627E-01_JPRB, 0.243096E-01_JPRB, 0.206712E-01_JPRB, 0.175045E-01_JPRB &
+  &, 0.147498E-01_JPRB, 0.123712E-01_JPRB, 0.103272E-01_JPRB &
+  &, 0.858169E-02_JPRB, 0.709346E-02_JPRB, 0.583904E-02_JPRB, 0.477956E-02_JPRB &
+  &, 0.389562E-02_JPRB, 0.316503E-02_JPRB, 0.254973E-02_JPRB &
+  &, 0.204667E-02_JPRB, 0.163851E-02_JPRB, 0.130565E-02_JPRB, 0.102623E-02_JPRB &
+  &, 0.804813E-03_JPRB, 0.631342E-03_JPRB, 0.494562E-03_JPRB &
+  &, 0.381933E-03_JPRB, 0.295441E-03_JPRB, 0.220917E-03_JPRB, 0.175969E-03_JPRB &
+  &, 0.128828E-03_JPRB, 0.967992E-04_JPRB, 0.632508E-04_JPRB &
+  &, 0.462932E-04_JPRB, 0.285490E-04_JPRB, 0.289572E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  26, :) = (/ &
+  &  0.813677E+00_JPRB, 0.770167E+00_JPRB, 0.727911E+00_JPRB, 0.686922E+00_JPRB &
+  &, 0.647211E+00_JPRB, 0.608787E+00_JPRB, 0.571659E+00_JPRB &
+  &, 0.535835E+00_JPRB, 0.501321E+00_JPRB, 0.468121E+00_JPRB, 0.436238E+00_JPRB &
+  &, 0.405674E+00_JPRB, 0.376429E+00_JPRB, 0.348499E+00_JPRB &
+  &, 0.321883E+00_JPRB, 0.296569E+00_JPRB, 0.272552E+00_JPRB, 0.249818E+00_JPRB &
+  &, 0.228353E+00_JPRB, 0.208139E+00_JPRB, 0.189157E+00_JPRB &
+  &, 0.171385E+00_JPRB, 0.154795E+00_JPRB, 0.139357E+00_JPRB, 0.125038E+00_JPRB &
+  &, 0.111805E+00_JPRB, 0.996204E-01_JPRB, 0.884386E-01_JPRB &
+  &, 0.782190E-01_JPRB, 0.689170E-01_JPRB, 0.604820E-01_JPRB, 0.528696E-01_JPRB &
+  &, 0.460248E-01_JPRB, 0.399026E-01_JPRB, 0.344466E-01_JPRB &
+  &, 0.296067E-01_JPRB, 0.253396E-01_JPRB, 0.215903E-01_JPRB, 0.183165E-01_JPRB &
+  &, 0.154693E-01_JPRB, 0.130035E-01_JPRB, 0.108782E-01_JPRB &
+  &, 0.905789E-02_JPRB, 0.751347E-02_JPRB, 0.619972E-02_JPRB, 0.508958E-02_JPRB &
+  &, 0.415222E-02_JPRB, 0.337787E-02_JPRB, 0.274213E-02_JPRB &
+  &, 0.220435E-02_JPRB, 0.175963E-02_JPRB, 0.140214E-02_JPRB, 0.111092E-02_JPRB &
+  &, 0.877068E-03_JPRB, 0.690518E-03_JPRB, 0.539989E-03_JPRB &
+  &, 0.412927E-03_JPRB, 0.327156E-03_JPRB, 0.253366E-03_JPRB, 0.192566E-03_JPRB &
+  &, 0.145803E-03_JPRB, 0.967992E-04_JPRB, 0.810010E-04_JPRB &
+  &, 0.644399E-04_JPRB, 0.470979E-04_JPRB, 0.289572E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  27, :) = (/ &
+  &  0.815145E+00_JPRB, 0.771933E+00_JPRB, 0.729952E+00_JPRB, 0.689211E+00_JPRB &
+  &, 0.649723E+00_JPRB, 0.611497E+00_JPRB, 0.574542E+00_JPRB &
+  &, 0.538868E+00_JPRB, 0.504480E+00_JPRB, 0.471383E+00_JPRB, 0.439581E+00_JPRB &
+  &, 0.409076E+00_JPRB, 0.379871E+00_JPRB, 0.351960E+00_JPRB &
+  &, 0.325342E+00_JPRB, 0.300012E+00_JPRB, 0.275958E+00_JPRB, 0.253173E+00_JPRB &
+  &, 0.231642E+00_JPRB, 0.211349E+00_JPRB, 0.192277E+00_JPRB &
+  &, 0.174399E+00_JPRB, 0.157694E+00_JPRB, 0.142133E+00_JPRB, 0.127688E+00_JPRB &
+  &, 0.114318E+00_JPRB, 0.101993E+00_JPRB, 0.906711E-01_JPRB &
+  &, 0.803070E-01_JPRB, 0.708603E-01_JPRB, 0.622848E-01_JPRB, 0.545324E-01_JPRB &
+  &, 0.475481E-01_JPRB, 0.412917E-01_JPRB, 0.357121E-01_JPRB &
+  &, 0.307508E-01_JPRB, 0.263695E-01_JPRB, 0.225095E-01_JPRB, 0.191286E-01_JPRB &
+  &, 0.161888E-01_JPRB, 0.136358E-01_JPRB, 0.114291E-01_JPRB &
+  &, 0.954517E-02_JPRB, 0.793348E-02_JPRB, 0.656040E-02_JPRB, 0.539960E-02_JPRB &
+  &, 0.442104E-02_JPRB, 0.360322E-02_JPRB, 0.292171E-02_JPRB &
+  &, 0.236203E-02_JPRB, 0.189422E-02_JPRB, 0.151241E-02_JPRB, 0.120972E-02_JPRB &
+  &, 0.949324E-03_JPRB, 0.749693E-03_JPRB, 0.585417E-03_JPRB &
+  &, 0.459419E-03_JPRB, 0.358872E-03_JPRB, 0.269590E-03_JPRB, 0.209163E-03_JPRB &
+  &, 0.162779E-03_JPRB, 0.114159E-03_JPRB, 0.810010E-04_JPRB &
+  &, 0.644399E-04_JPRB, 0.470979E-04_JPRB, 0.289572E-04_JPRB, 0.293715E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  28, :) = (/ &
+  &  0.816566E+00_JPRB, 0.773647E+00_JPRB, 0.731931E+00_JPRB, 0.691432E+00_JPRB &
+  &, 0.652161E+00_JPRB, 0.614128E+00_JPRB, 0.577344E+00_JPRB &
+  &, 0.541816E+00_JPRB, 0.507551E+00_JPRB, 0.474557E+00_JPRB, 0.442835E+00_JPRB &
+  &, 0.412391E+00_JPRB, 0.383224E+00_JPRB, 0.355334E+00_JPRB &
+  &, 0.328719E+00_JPRB, 0.303372E+00_JPRB, 0.279287E+00_JPRB, 0.256454E+00_JPRB &
+  &, 0.234860E+00_JPRB, 0.214490E+00_JPRB, 0.195331E+00_JPRB &
+  &, 0.177356E+00_JPRB, 0.160543E+00_JPRB, 0.144864E+00_JPRB, 0.130292E+00_JPRB &
+  &, 0.116795E+00_JPRB, 0.104337E+00_JPRB, 0.928768E-01_JPRB &
+  &, 0.823715E-01_JPRB, 0.727876E-01_JPRB, 0.640713E-01_JPRB, 0.561825E-01_JPRB &
+  &, 0.490671E-01_JPRB, 0.426809E-01_JPRB, 0.369731E-01_JPRB &
+  &, 0.318948E-01_JPRB, 0.273900E-01_JPRB, 0.234286E-01_JPRB, 0.199507E-01_JPRB &
+  &, 0.169186E-01_JPRB, 0.142786E-01_JPRB, 0.120017E-01_JPRB &
+  &, 0.100325E-01_JPRB, 0.835350E-02_JPRB, 0.692108E-02_JPRB, 0.570962E-02_JPRB &
+  &, 0.468985E-02_JPRB, 0.382858E-02_JPRB, 0.311411E-02_JPRB &
+  &, 0.251971E-02_JPRB, 0.202881E-02_JPRB, 0.163646E-02_JPRB, 0.129441E-02_JPRB &
+  &, 0.103603E-02_JPRB, 0.808869E-03_JPRB, 0.645987E-03_JPRB &
+  &, 0.505910E-03_JPRB, 0.390587E-03_JPRB, 0.302039E-03_JPRB, 0.225760E-03_JPRB &
+  &, 0.179754E-03_JPRB, 0.131519E-03_JPRB, 0.987513E-04_JPRB &
+  &, 0.644399E-04_JPRB, 0.470979E-04_JPRB, 0.289572E-04_JPRB, 0.293715E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART4',1,ZHOOK_HANDLE)
+END SUBROUTINE PART4
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART5
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART5',0,ZHOOK_HANDLE)
+
+XCW(  29, :) = (/ &
+  &  0.817947E+00_JPRB, 0.775311E+00_JPRB, 0.733854E+00_JPRB, 0.693591E+00_JPRB &
+  &, 0.654531E+00_JPRB, 0.616687E+00_JPRB, 0.580069E+00_JPRB &
+  &, 0.544685E+00_JPRB, 0.510542E+00_JPRB, 0.477648E+00_JPRB, 0.446007E+00_JPRB &
+  &, 0.415622E+00_JPRB, 0.386496E+00_JPRB, 0.358628E+00_JPRB &
+  &, 0.332016E+00_JPRB, 0.306657E+00_JPRB, 0.282543E+00_JPRB, 0.259664E+00_JPRB &
+  &, 0.238014E+00_JPRB, 0.217574E+00_JPRB, 0.198327E+00_JPRB &
+  &, 0.180257E+00_JPRB, 0.163341E+00_JPRB, 0.147550E+00_JPRB, 0.132860E+00_JPRB &
+  &, 0.119236E+00_JPRB, 0.106646E+00_JPRB, 0.950520E-01_JPRB &
+  &, 0.844165E-01_JPRB, 0.746949E-01_JPRB, 0.658454E-01_JPRB, 0.578201E-01_JPRB &
+  &, 0.505775E-01_JPRB, 0.440613E-01_JPRB, 0.382296E-01_JPRB &
+  &, 0.330296E-01_JPRB, 0.284199E-01_JPRB, 0.243575E-01_JPRB, 0.207728E-01_JPRB &
+  &, 0.176484E-01_JPRB, 0.149214E-01_JPRB, 0.125635E-01_JPRB &
+  &, 0.105308E-01_JPRB, 0.878486E-02_JPRB, 0.729340E-02_JPRB, 0.603157E-02_JPRB &
+  &, 0.497089E-02_JPRB, 0.406646E-02_JPRB, 0.331934E-02_JPRB &
+  &, 0.269053E-02_JPRB, 0.217685E-02_JPRB, 0.174673E-02_JPRB, 0.139321E-02_JPRB &
+  &, 0.110829E-02_JPRB, 0.882838E-03_JPRB, 0.691415E-03_JPRB &
+  &, 0.536905E-03_JPRB, 0.422303E-03_JPRB, 0.334488E-03_JPRB, 0.258954E-03_JPRB &
+  &, 0.196729E-03_JPRB, 0.148879E-03_JPRB, 0.116502E-03_JPRB &
+  &, 0.825865E-04_JPRB, 0.656469E-04_JPRB, 0.479145E-04_JPRB, 0.293715E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  30, :) = (/ &
+  &  0.819288E+00_JPRB, 0.776928E+00_JPRB, 0.735724E+00_JPRB, 0.695691E+00_JPRB &
+  &, 0.656838E+00_JPRB, 0.619179E+00_JPRB, 0.582723E+00_JPRB &
+  &, 0.547480E+00_JPRB, 0.513458E+00_JPRB, 0.480663E+00_JPRB, 0.449101E+00_JPRB &
+  &, 0.418776E+00_JPRB, 0.389692E+00_JPRB, 0.361847E+00_JPRB &
+  &, 0.335240E+00_JPRB, 0.309869E+00_JPRB, 0.285729E+00_JPRB, 0.262811E+00_JPRB &
+  &, 0.241104E+00_JPRB, 0.220594E+00_JPRB, 0.201268E+00_JPRB &
+  &, 0.183109E+00_JPRB, 0.166092E+00_JPRB, 0.150195E+00_JPRB, 0.135390E+00_JPRB &
+  &, 0.121644E+00_JPRB, 0.108930E+00_JPRB, 0.972082E-01_JPRB &
+  &, 0.864380E-01_JPRB, 0.765862E-01_JPRB, 0.676031E-01_JPRB, 0.594492E-01_JPRB &
+  &, 0.520750E-01_JPRB, 0.454372E-01_JPRB, 0.394860E-01_JPRB &
+  &, 0.341737E-01_JPRB, 0.294499E-01_JPRB, 0.252767E-01_JPRB, 0.216049E-01_JPRB &
+  &, 0.183885E-01_JPRB, 0.155748E-01_JPRB, 0.131360E-01_JPRB &
+  &, 0.110292E-01_JPRB, 0.922757E-02_JPRB, 0.767734E-02_JPRB, 0.636544E-02_JPRB &
+  &, 0.525193E-02_JPRB, 0.430434E-02_JPRB, 0.352457E-02_JPRB &
+  &, 0.286134E-02_JPRB, 0.231144E-02_JPRB, 0.187078E-02_JPRB, 0.149201E-02_JPRB &
+  &, 0.119499E-02_JPRB, 0.942013E-03_JPRB, 0.751985E-03_JPRB &
+  &, 0.583396E-03_JPRB, 0.454019E-03_JPRB, 0.350712E-03_JPRB, 0.275550E-03_JPRB &
+  &, 0.213705E-03_JPRB, 0.166239E-03_JPRB, 0.116502E-03_JPRB &
+  &, 0.825865E-04_JPRB, 0.656469E-04_JPRB, 0.479145E-04_JPRB, 0.293715E-04_JPRB &
+  &, 0.297917E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  31, :) = (/ &
+  &  0.820593E+00_JPRB, 0.778502E+00_JPRB, 0.737544E+00_JPRB, 0.697735E+00_JPRB &
+  &, 0.659085E+00_JPRB, 0.621606E+00_JPRB, 0.585310E+00_JPRB &
+  &, 0.550206E+00_JPRB, 0.516301E+00_JPRB, 0.483605E+00_JPRB, 0.452123E+00_JPRB &
+  &, 0.421858E+00_JPRB, 0.392815E+00_JPRB, 0.364994E+00_JPRB &
+  &, 0.338395E+00_JPRB, 0.313017E+00_JPRB, 0.288851E+00_JPRB, 0.265895E+00_JPRB &
+  &, 0.244135E+00_JPRB, 0.223560E+00_JPRB, 0.204160E+00_JPRB &
+  &, 0.185914E+00_JPRB, 0.168802E+00_JPRB, 0.152798E+00_JPRB, 0.137880E+00_JPRB &
+  &, 0.124019E+00_JPRB, 0.111184E+00_JPRB, 0.993376E-01_JPRB &
+  &, 0.884399E-01_JPRB, 0.784614E-01_JPRB, 0.693485E-01_JPRB, 0.610699E-01_JPRB &
+  &, 0.535724E-01_JPRB, 0.468087E-01_JPRB, 0.407425E-01_JPRB &
+  &, 0.353177E-01_JPRB, 0.304894E-01_JPRB, 0.262056E-01_JPRB, 0.224370E-01_JPRB &
+  &, 0.191286E-01_JPRB, 0.162387E-01_JPRB, 0.137194E-01_JPRB &
+  &, 0.115386E-01_JPRB, 0.967029E-02_JPRB, 0.806129E-02_JPRB, 0.669931E-02_JPRB &
+  &, 0.553296E-02_JPRB, 0.455474E-02_JPRB, 0.372980E-02_JPRB &
+  &, 0.303216E-02_JPRB, 0.245949E-02_JPRB, 0.199483E-02_JPRB, 0.160492E-02_JPRB &
+  &, 0.128170E-02_JPRB, 0.101598E-02_JPRB, 0.812555E-03_JPRB &
+  &, 0.629888E-03_JPRB, 0.501592E-03_JPRB, 0.383161E-03_JPRB, 0.292147E-03_JPRB &
+  &, 0.230680E-03_JPRB, 0.183598E-03_JPRB, 0.134252E-03_JPRB &
+  &, 0.100733E-03_JPRB, 0.656469E-04_JPRB, 0.479145E-04_JPRB, 0.293715E-04_JPRB &
+  &, 0.297917E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  32, :) = (/ &
+  &  0.821863E+00_JPRB, 0.780035E+00_JPRB, 0.739318E+00_JPRB, 0.699727E+00_JPRB &
+  &, 0.661275E+00_JPRB, 0.623974E+00_JPRB, 0.587834E+00_JPRB &
+  &, 0.552866E+00_JPRB, 0.519078E+00_JPRB, 0.486479E+00_JPRB, 0.455075E+00_JPRB &
+  &, 0.424871E+00_JPRB, 0.395870E+00_JPRB, 0.368075E+00_JPRB &
+  &, 0.341486E+00_JPRB, 0.316099E+00_JPRB, 0.291913E+00_JPRB, 0.268919E+00_JPRB &
+  &, 0.247111E+00_JPRB, 0.226476E+00_JPRB, 0.207004E+00_JPRB &
+  &, 0.188672E+00_JPRB, 0.171467E+00_JPRB, 0.155366E+00_JPRB, 0.140342E+00_JPRB &
+  &, 0.126365E+00_JPRB, 0.113411E+00_JPRB, 0.101444E+00_JPRB &
+  &, 0.904262E-01_JPRB, 0.803166E-01_JPRB, 0.710815E-01_JPRB, 0.626779E-01_JPRB &
+  &, 0.550569E-01_JPRB, 0.481757E-01_JPRB, 0.419898E-01_JPRB &
+  &, 0.364525E-01_JPRB, 0.315194E-01_JPRB, 0.271345E-01_JPRB, 0.232691E-01_JPRB &
+  &, 0.198687E-01_JPRB, 0.168920E-01_JPRB, 0.143028E-01_JPRB &
+  &, 0.120591E-01_JPRB, 0.101244E-01_JPRB, 0.845688E-02_JPRB, 0.703318E-02_JPRB &
+  &, 0.582622E-02_JPRB, 0.480514E-02_JPRB, 0.393503E-02_JPRB &
+  &, 0.321612E-02_JPRB, 0.262099E-02_JPRB, 0.211889E-02_JPRB, 0.170372E-02_JPRB &
+  &, 0.136841E-02_JPRB, 0.108995E-02_JPRB, 0.873125E-03_JPRB &
+  &, 0.691877E-03_JPRB, 0.533308E-03_JPRB, 0.415609E-03_JPRB, 0.325341E-03_JPRB &
+  &, 0.247656E-03_JPRB, 0.200958E-03_JPRB, 0.152002E-03_JPRB &
+  &, 0.118880E-03_JPRB, 0.841958E-04_JPRB, 0.668717E-04_JPRB, 0.487430E-04_JPRB &
+  &, 0.297917E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  33, :) = (/ &
+  &  0.823102E+00_JPRB, 0.781529E+00_JPRB, 0.741047E+00_JPRB, 0.701671E+00_JPRB &
+  &, 0.663413E+00_JPRB, 0.626280E+00_JPRB, 0.590299E+00_JPRB &
+  &, 0.555465E+00_JPRB, 0.521792E+00_JPRB, 0.489290E+00_JPRB, 0.457963E+00_JPRB &
+  &, 0.427819E+00_JPRB, 0.398861E+00_JPRB, 0.371092E+00_JPRB &
+  &, 0.344513E+00_JPRB, 0.319122E+00_JPRB, 0.294915E+00_JPRB, 0.271889E+00_JPRB &
+  &, 0.250035E+00_JPRB, 0.229340E+00_JPRB, 0.209799E+00_JPRB &
+  &, 0.191388E+00_JPRB, 0.174096E+00_JPRB, 0.157896E+00_JPRB, 0.142768E+00_JPRB &
+  &, 0.128686E+00_JPRB, 0.115613E+00_JPRB, 0.103528E+00_JPRB &
+  &, 0.923891E-01_JPRB, 0.821598E-01_JPRB, 0.728063E-01_JPRB, 0.642776E-01_JPRB &
+  &, 0.565371E-01_JPRB, 0.495384E-01_JPRB, 0.432417E-01_JPRB &
+  &, 0.375872E-01_JPRB, 0.325493E-01_JPRB, 0.280732E-01_JPRB, 0.241113E-01_JPRB &
+  &, 0.206190E-01_JPRB, 0.175665E-01_JPRB, 0.148970E-01_JPRB &
+  &, 0.125796E-01_JPRB, 0.105784E-01_JPRB, 0.885246E-02_JPRB, 0.737897E-02_JPRB &
+  &, 0.611947E-02_JPRB, 0.505554E-02_JPRB, 0.415309E-02_JPRB &
+  &, 0.340008E-02_JPRB, 0.276904E-02_JPRB, 0.225672E-02_JPRB, 0.181664E-02_JPRB &
+  &, 0.145511E-02_JPRB, 0.116392E-02_JPRB, 0.933696E-03_JPRB &
+  &, 0.738368E-03_JPRB, 0.580881E-03_JPRB, 0.448058E-03_JPRB, 0.358535E-03_JPRB &
+  &, 0.281606E-03_JPRB, 0.218318E-03_JPRB, 0.152002E-03_JPRB &
+  &, 0.118880E-03_JPRB, 0.841958E-04_JPRB, 0.668717E-04_JPRB, 0.487430E-04_JPRB &
+  &, 0.297917E-04_JPRB, 0.302179E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  34, :) = (/ &
+  &  0.824310E+00_JPRB, 0.782987E+00_JPRB, 0.742736E+00_JPRB, 0.703569E+00_JPRB &
+  &, 0.665501E+00_JPRB, 0.628543E+00_JPRB, 0.592708E+00_JPRB &
+  &, 0.558006E+00_JPRB, 0.524447E+00_JPRB, 0.492039E+00_JPRB, 0.460791E+00_JPRB &
+  &, 0.430707E+00_JPRB, 0.401793E+00_JPRB, 0.374051E+00_JPRB &
+  &, 0.347482E+00_JPRB, 0.322088E+00_JPRB, 0.297864E+00_JPRB, 0.274807E+00_JPRB &
+  &, 0.252909E+00_JPRB, 0.232161E+00_JPRB, 0.212552E+00_JPRB &
+  &, 0.194063E+00_JPRB, 0.176687E+00_JPRB, 0.160395E+00_JPRB, 0.145166E+00_JPRB &
+  &, 0.130973E+00_JPRB, 0.117796E+00_JPRB, 0.105592E+00_JPRB &
+  &, 0.943363E-01_JPRB, 0.839910E-01_JPRB, 0.745148E-01_JPRB, 0.658688E-01_JPRB &
+  &, 0.580129E-01_JPRB, 0.509010E-01_JPRB, 0.444891E-01_JPRB &
+  &, 0.387313E-01_JPRB, 0.335888E-01_JPRB, 0.290119E-01_JPRB, 0.249534E-01_JPRB &
+  &, 0.213796E-01_JPRB, 0.182304E-01_JPRB, 0.154912E-01_JPRB &
+  &, 0.131001E-01_JPRB, 0.110325E-01_JPRB, 0.925968E-02_JPRB, 0.772476E-02_JPRB &
+  &, 0.642494E-02_JPRB, 0.531846E-02_JPRB, 0.438398E-02_JPRB &
+  &, 0.359717E-02_JPRB, 0.293054E-02_JPRB, 0.238077E-02_JPRB, 0.192955E-02_JPRB &
+  &, 0.155627E-02_JPRB, 0.125268E-02_JPRB, 0.994266E-03_JPRB &
+  &, 0.784860E-03_JPRB, 0.628454E-03_JPRB, 0.496731E-03_JPRB, 0.375132E-03_JPRB &
+  &, 0.298582E-03_JPRB, 0.235678E-03_JPRB, 0.169752E-03_JPRB &
+  &, 0.137026E-03_JPRB, 0.102745E-03_JPRB, 0.668717E-04_JPRB, 0.487430E-04_JPRB &
+  &, 0.297917E-04_JPRB, 0.302179E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  35, :) = (/ &
+  &  0.825489E+00_JPRB, 0.784411E+00_JPRB, 0.744385E+00_JPRB, 0.705424E+00_JPRB &
+  &, 0.667541E+00_JPRB, 0.630751E+00_JPRB, 0.595064E+00_JPRB &
+  &, 0.560492E+00_JPRB, 0.527045E+00_JPRB, 0.494732E+00_JPRB, 0.463560E+00_JPRB &
+  &, 0.433536E+00_JPRB, 0.404666E+00_JPRB, 0.376952E+00_JPRB &
+  &, 0.350396E+00_JPRB, 0.325000E+00_JPRB, 0.300761E+00_JPRB, 0.277675E+00_JPRB &
+  &, 0.255736E+00_JPRB, 0.234933E+00_JPRB, 0.215259E+00_JPRB &
+  &, 0.196702E+00_JPRB, 0.179241E+00_JPRB, 0.162859E+00_JPRB, 0.147532E+00_JPRB &
+  &, 0.133240E+00_JPRB, 0.119953E+00_JPRB, 0.107638E+00_JPRB &
+  &, 0.962678E-01_JPRB, 0.858061E-01_JPRB, 0.762149E-01_JPRB, 0.674516E-01_JPRB &
+  &, 0.594801E-01_JPRB, 0.522548E-01_JPRB, 0.457320E-01_JPRB &
+  &, 0.398661E-01_JPRB, 0.346188E-01_JPRB, 0.299506E-01_JPRB, 0.257956E-01_JPRB &
+  &, 0.221300E-01_JPRB, 0.189153E-01_JPRB, 0.160962E-01_JPRB &
+  &, 0.136317E-01_JPRB, 0.114979E-01_JPRB, 0.966690E-02_JPRB, 0.808248E-02_JPRB &
+  &, 0.673042E-02_JPRB, 0.558138E-02_JPRB, 0.461486E-02_JPRB &
+  &, 0.379427E-02_JPRB, 0.310551E-02_JPRB, 0.251861E-02_JPRB, 0.204247E-02_JPRB &
+  &, 0.165743E-02_JPRB, 0.132665E-02_JPRB, 0.105484E-02_JPRB &
+  &, 0.846849E-03_JPRB, 0.676028E-03_JPRB, 0.529180E-03_JPRB, 0.408326E-03_JPRB &
+  &, 0.315557E-03_JPRB, 0.253038E-03_JPRB, 0.187503E-03_JPRB &
+  &, 0.137026E-03_JPRB, 0.102745E-03_JPRB, 0.858290E-04_JPRB, 0.681145E-04_JPRB &
+  &, 0.495834E-04_JPRB, 0.302179E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART5',1,ZHOOK_HANDLE)
+END SUBROUTINE PART5
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART6
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART6',0,ZHOOK_HANDLE)
+
+XCW(  36, :) = (/ &
+  &  0.826642E+00_JPRB, 0.785803E+00_JPRB, 0.745996E+00_JPRB, 0.707237E+00_JPRB &
+  &, 0.669537E+00_JPRB, 0.632911E+00_JPRB, 0.597370E+00_JPRB &
+  &, 0.562926E+00_JPRB, 0.529589E+00_JPRB, 0.497370E+00_JPRB, 0.466275E+00_JPRB &
+  &, 0.436310E+00_JPRB, 0.407484E+00_JPRB, 0.379800E+00_JPRB &
+  &, 0.353259E+00_JPRB, 0.327862E+00_JPRB, 0.303609E+00_JPRB, 0.280496E+00_JPRB &
+  &, 0.258517E+00_JPRB, 0.237665E+00_JPRB, 0.217931E+00_JPRB &
+  &, 0.199302E+00_JPRB, 0.181760E+00_JPRB, 0.165291E+00_JPRB, 0.149873E+00_JPRB &
+  &, 0.135480E+00_JPRB, 0.122088E+00_JPRB, 0.109664E+00_JPRB &
+  &, 0.981838E-01_JPRB, 0.876092E-01_JPRB, 0.779028E-01_JPRB, 0.690260E-01_JPRB &
+  &, 0.609387E-01_JPRB, 0.536042E-01_JPRB, 0.469748E-01_JPRB &
+  &, 0.410101E-01_JPRB, 0.356583E-01_JPRB, 0.308893E-01_JPRB, 0.266477E-01_JPRB &
+  &, 0.229009E-01_JPRB, 0.195898E-01_JPRB, 0.167011E-01_JPRB &
+  &, 0.141743E-01_JPRB, 0.119747E-01_JPRB, 0.100741E-01_JPRB, 0.844020E-02_JPRB &
+  &, 0.704811E-02_JPRB, 0.585681E-02_JPRB, 0.484574E-02_JPRB &
+  &, 0.399137E-02_JPRB, 0.326701E-02_JPRB, 0.267023E-02_JPRB, 0.216950E-02_JPRB &
+  &, 0.175859E-02_JPRB, 0.141542E-02_JPRB, 0.113055E-02_JPRB &
+  &, 0.908837E-03_JPRB, 0.707744E-03_JPRB, 0.561629E-03_JPRB, 0.441520E-03_JPRB &
+  &, 0.349508E-03_JPRB, 0.270398E-03_JPRB, 0.205253E-03_JPRB &
+  &, 0.155173E-03_JPRB, 0.121294E-03_JPRB, 0.858290E-04_JPRB, 0.681145E-04_JPRB &
+  &, 0.495834E-04_JPRB, 0.302179E-04_JPRB, 0.306500E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  37, :) = (/ &
+  &  0.827767E+00_JPRB, 0.787164E+00_JPRB, 0.747573E+00_JPRB, 0.709011E+00_JPRB &
+  &, 0.671491E+00_JPRB, 0.635026E+00_JPRB, 0.599629E+00_JPRB &
+  &, 0.565311E+00_JPRB, 0.532084E+00_JPRB, 0.499956E+00_JPRB, 0.468937E+00_JPRB &
+  &, 0.439034E+00_JPRB, 0.410251E+00_JPRB, 0.382597E+00_JPRB &
+  &, 0.356070E+00_JPRB, 0.330675E+00_JPRB, 0.306410E+00_JPRB, 0.283271E+00_JPRB &
+  &, 0.261256E+00_JPRB, 0.240358E+00_JPRB, 0.220564E+00_JPRB &
+  &, 0.201868E+00_JPRB, 0.184250E+00_JPRB, 0.167696E+00_JPRB, 0.152186E+00_JPRB &
+  &, 0.137695E+00_JPRB, 0.124200E+00_JPRB, 0.111675E+00_JPRB &
+  &, 0.100084E+00_JPRB, 0.893963E-01_JPRB, 0.795784E-01_JPRB, 0.705919E-01_JPRB &
+  &, 0.623973E-01_JPRB, 0.549535E-01_JPRB, 0.482176E-01_JPRB &
+  &, 0.421449E-01_JPRB, 0.366978E-01_JPRB, 0.318280E-01_JPRB, 0.274999E-01_JPRB &
+  &, 0.236615E-01_JPRB, 0.202747E-01_JPRB, 0.173061E-01_JPRB &
+  &, 0.147170E-01_JPRB, 0.124515E-01_JPRB, 0.104930E-01_JPRB, 0.880984E-02_JPRB &
+  &, 0.736580E-02_JPRB, 0.613225E-02_JPRB, 0.507663E-02_JPRB &
+  &, 0.418847E-02_JPRB, 0.344197E-02_JPRB, 0.280806E-02_JPRB, 0.229653E-02_JPRB &
+  &, 0.185975E-02_JPRB, 0.150418E-02_JPRB, 0.120626E-02_JPRB &
+  &, 0.955329E-03_JPRB, 0.771175E-03_JPRB, 0.610302E-03_JPRB, 0.474713E-03_JPRB &
+  &, 0.366483E-03_JPRB, 0.287757E-03_JPRB, 0.223003E-03_JPRB &
+  &, 0.173320E-03_JPRB, 0.139843E-03_JPRB, 0.104786E-03_JPRB, 0.681145E-04_JPRB &
+  &, 0.495834E-04_JPRB, 0.302179E-04_JPRB, 0.306500E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  38, :) = (/ &
+  &  0.828871E+00_JPRB, 0.788496E+00_JPRB, 0.749117E+00_JPRB, 0.710749E+00_JPRB &
+  &, 0.673404E+00_JPRB, 0.637098E+00_JPRB, 0.601842E+00_JPRB &
+  &, 0.567649E+00_JPRB, 0.534530E+00_JPRB, 0.502494E+00_JPRB, 0.471550E+00_JPRB &
+  &, 0.441706E+00_JPRB, 0.412970E+00_JPRB, 0.385344E+00_JPRB &
+  &, 0.358834E+00_JPRB, 0.333442E+00_JPRB, 0.309165E+00_JPRB, 0.286005E+00_JPRB &
+  &, 0.263955E+00_JPRB, 0.243010E+00_JPRB, 0.223161E+00_JPRB &
+  &, 0.204398E+00_JPRB, 0.186709E+00_JPRB, 0.170070E+00_JPRB, 0.154473E+00_JPRB &
+  &, 0.139889E+00_JPRB, 0.126297E+00_JPRB, 0.113667E+00_JPRB &
+  &, 0.101969E+00_JPRB, 0.911754E-01_JPRB, 0.812498E-01_JPRB, 0.721537E-01_JPRB &
+  &, 0.638473E-01_JPRB, 0.562940E-01_JPRB, 0.494559E-01_JPRB &
+  &, 0.432796E-01_JPRB, 0.377373E-01_JPRB, 0.327765E-01_JPRB, 0.283521E-01_JPRB &
+  &, 0.244325E-01_JPRB, 0.209703E-01_JPRB, 0.179219E-01_JPRB &
+  &, 0.152596E-01_JPRB, 0.129396E-01_JPRB, 0.109235E-01_JPRB, 0.917948E-02_JPRB &
+  &, 0.768350E-02_JPRB, 0.640769E-02_JPRB, 0.532034E-02_JPRB &
+  &, 0.439870E-02_JPRB, 0.361694E-02_JPRB, 0.295968E-02_JPRB, 0.242356E-02_JPRB &
+  &, 0.196090E-02_JPRB, 0.159294E-02_JPRB, 0.128197E-02_JPRB &
+  &, 0.101732E-02_JPRB, 0.818748E-03_JPRB, 0.642751E-03_JPRB, 0.507907E-03_JPRB &
+  &, 0.400434E-03_JPRB, 0.305117E-03_JPRB, 0.240753E-03_JPRB &
+  &, 0.191466E-03_JPRB, 0.139843E-03_JPRB, 0.104786E-03_JPRB, 0.874860E-04_JPRB &
+  &, 0.495834E-04_JPRB, 0.504358E-04_JPRB, 0.306500E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  39, :) = (/ &
+  &  0.829949E+00_JPRB, 0.789801E+00_JPRB, 0.750629E+00_JPRB, 0.712451E+00_JPRB &
+  &, 0.675280E+00_JPRB, 0.639129E+00_JPRB, 0.604013E+00_JPRB &
+  &, 0.569942E+00_JPRB, 0.536929E+00_JPRB, 0.504984E+00_JPRB, 0.474116E+00_JPRB &
+  &, 0.444331E+00_JPRB, 0.415640E+00_JPRB, 0.388046E+00_JPRB &
+  &, 0.361553E+00_JPRB, 0.336164E+00_JPRB, 0.311879E+00_JPRB, 0.288697E+00_JPRB &
+  &, 0.266615E+00_JPRB, 0.245624E+00_JPRB, 0.225723E+00_JPRB &
+  &, 0.206897E+00_JPRB, 0.189137E+00_JPRB, 0.172420E+00_JPRB, 0.156736E+00_JPRB &
+  &, 0.142060E+00_JPRB, 0.128372E+00_JPRB, 0.115640E+00_JPRB &
+  &, 0.103842E+00_JPRB, 0.929424E-01_JPRB, 0.829090E-01_JPRB, 0.737028E-01_JPRB &
+  &, 0.652929E-01_JPRB, 0.576346E-01_JPRB, 0.506942E-01_JPRB &
+  &, 0.444144E-01_JPRB, 0.387768E-01_JPRB, 0.337250E-01_JPRB, 0.292143E-01_JPRB &
+  &, 0.252034E-01_JPRB, 0.216658E-01_JPRB, 0.185485E-01_JPRB &
+  &, 0.158134E-01_JPRB, 0.134277E-01_JPRB, 0.113539E-01_JPRB, 0.956105E-02_JPRB &
+  &, 0.801341E-02_JPRB, 0.669565E-02_JPRB, 0.556405E-02_JPRB &
+  &, 0.460894E-02_JPRB, 0.379190E-02_JPRB, 0.311130E-02_JPRB, 0.255059E-02_JPRB &
+  &, 0.207651E-02_JPRB, 0.168171E-02_JPRB, 0.135769E-02_JPRB &
+  &, 0.107931E-02_JPRB, 0.866322E-03_JPRB, 0.691424E-03_JPRB, 0.541101E-03_JPRB &
+  &, 0.434385E-03_JPRB, 0.339837E-03_JPRB, 0.258504E-03_JPRB &
+  &, 0.209613E-03_JPRB, 0.158392E-03_JPRB, 0.123743E-03_JPRB, 0.874860E-04_JPRB &
+  &, 0.693751E-04_JPRB, 0.504358E-04_JPRB, 0.306500E-04_JPRB &
+  &, 0.310881E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  40, :) = (/ &
+  &  0.831007E+00_JPRB, 0.791079E+00_JPRB, 0.752111E+00_JPRB, 0.714120E+00_JPRB &
+  &, 0.677119E+00_JPRB, 0.641122E+00_JPRB, 0.606143E+00_JPRB &
+  &, 0.572193E+00_JPRB, 0.539286E+00_JPRB, 0.507430E+00_JPRB, 0.476636E+00_JPRB &
+  &, 0.446913E+00_JPRB, 0.418266E+00_JPRB, 0.390703E+00_JPRB &
+  &, 0.364228E+00_JPRB, 0.338844E+00_JPRB, 0.314552E+00_JPRB, 0.291350E+00_JPRB &
+  &, 0.269237E+00_JPRB, 0.248207E+00_JPRB, 0.228252E+00_JPRB &
+  &, 0.209367E+00_JPRB, 0.191535E+00_JPRB, 0.174745E+00_JPRB, 0.158978E+00_JPRB &
+  &, 0.144213E+00_JPRB, 0.130429E+00_JPRB, 0.117602E+00_JPRB &
+  &, 0.105699E+00_JPRB, 0.946975E-01_JPRB, 0.845599E-01_JPRB, 0.752477E-01_JPRB &
+  &, 0.667343E-01_JPRB, 0.589751E-01_JPRB, 0.519280E-01_JPRB &
+  &, 0.455584E-01_JPRB, 0.398163E-01_JPRB, 0.346735E-01_JPRB, 0.300764E-01_JPRB &
+  &, 0.259846E-01_JPRB, 0.223613E-01_JPRB, 0.191751E-01_JPRB &
+  &, 0.163671E-01_JPRB, 0.139158E-01_JPRB, 0.117844E-01_JPRB, 0.994261E-02_JPRB &
+  &, 0.834332E-02_JPRB, 0.698361E-02_JPRB, 0.582059E-02_JPRB &
+  &, 0.481918E-02_JPRB, 0.398032E-02_JPRB, 0.327670E-02_JPRB, 0.267762E-02_JPRB &
+  &, 0.219212E-02_JPRB, 0.177047E-02_JPRB, 0.143340E-02_JPRB &
+  &, 0.115679E-02_JPRB, 0.929753E-03_JPRB, 0.740097E-03_JPRB, 0.590892E-03_JPRB &
+  &, 0.451360E-03_JPRB, 0.357197E-03_JPRB, 0.276254E-03_JPRB &
+  &, 0.209613E-03_JPRB, 0.158392E-03_JPRB, 0.123743E-03_JPRB, 0.874860E-04_JPRB &
+  &, 0.693751E-04_JPRB, 0.504358E-04_JPRB, 0.306500E-04_JPRB &
+  &, 0.310881E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  41, :) = (/ &
+  &  0.832042E+00_JPRB, 0.792332E+00_JPRB, 0.753564E+00_JPRB, 0.715757E+00_JPRB &
+  &, 0.678923E+00_JPRB, 0.643078E+00_JPRB, 0.608234E+00_JPRB &
+  &, 0.574404E+00_JPRB, 0.541601E+00_JPRB, 0.509834E+00_JPRB, 0.479115E+00_JPRB &
+  &, 0.449451E+00_JPRB, 0.420849E+00_JPRB, 0.393318E+00_JPRB &
+  &, 0.366863E+00_JPRB, 0.341484E+00_JPRB, 0.317185E+00_JPRB, 0.293966E+00_JPRB &
+  &, 0.271822E+00_JPRB, 0.250754E+00_JPRB, 0.230752E+00_JPRB &
+  &, 0.211804E+00_JPRB, 0.193909E+00_JPRB, 0.177042E+00_JPRB, 0.161194E+00_JPRB &
+  &, 0.146345E+00_JPRB, 0.132466E+00_JPRB, 0.119544E+00_JPRB &
+  &, 0.107544E+00_JPRB, 0.964405E-01_JPRB, 0.861985E-01_JPRB, 0.767884E-01_JPRB &
+  &, 0.681713E-01_JPRB, 0.603067E-01_JPRB, 0.531618E-01_JPRB &
+  &, 0.466932E-01_JPRB, 0.408558E-01_JPRB, 0.356220E-01_JPRB, 0.309386E-01_JPRB &
+  &, 0.267657E-01_JPRB, 0.230673E-01_JPRB, 0.198017E-01_JPRB &
+  &, 0.169319E-01_JPRB, 0.144153E-01_JPRB, 0.122266E-01_JPRB, 0.103242E-01_JPRB &
+  &, 0.868545E-02_JPRB, 0.727157E-02_JPRB, 0.607713E-02_JPRB &
+  &, 0.504256E-02_JPRB, 0.416874E-02_JPRB, 0.344211E-02_JPRB, 0.281876E-02_JPRB &
+  &, 0.230773E-02_JPRB, 0.187403E-02_JPRB, 0.150911E-02_JPRB &
+  &, 0.121878E-02_JPRB, 0.977326E-03_JPRB, 0.788770E-03_JPRB, 0.624086E-03_JPRB &
+  &, 0.485311E-03_JPRB, 0.391917E-03_JPRB, 0.294004E-03_JPRB &
+  &, 0.227760E-03_JPRB, 0.176941E-03_JPRB, 0.142701E-03_JPRB, 0.106858E-03_JPRB &
+  &, 0.693751E-04_JPRB, 0.504358E-04_JPRB, 0.513000E-04_JPRB &
+  &, 0.310881E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  42, :) = (/ &
+  &  0.833059E+00_JPRB, 0.793561E+00_JPRB, 0.754990E+00_JPRB, 0.717364E+00_JPRB &
+  &, 0.680694E+00_JPRB, 0.644998E+00_JPRB, 0.610288E+00_JPRB &
+  &, 0.576576E+00_JPRB, 0.543875E+00_JPRB, 0.512197E+00_JPRB, 0.481552E+00_JPRB &
+  &, 0.451947E+00_JPRB, 0.423392E+00_JPRB, 0.395894E+00_JPRB &
+  &, 0.369458E+00_JPRB, 0.344086E+00_JPRB, 0.319781E+00_JPRB, 0.296545E+00_JPRB &
+  &, 0.274375E+00_JPRB, 0.253267E+00_JPRB, 0.233216E+00_JPRB &
+  &, 0.214218E+00_JPRB, 0.196256E+00_JPRB, 0.179319E+00_JPRB, 0.163390E+00_JPRB &
+  &, 0.148455E+00_JPRB, 0.134489E+00_JPRB, 0.121475E+00_JPRB &
+  &, 0.109378E+00_JPRB, 0.981755E-01_JPRB, 0.878330E-01_JPRB, 0.783207E-01_JPRB &
+  &, 0.696040E-01_JPRB, 0.616384E-01_JPRB, 0.543955E-01_JPRB &
+  &, 0.478280E-01_JPRB, 0.419049E-01_JPRB, 0.365704E-01_JPRB, 0.318008E-01_JPRB &
+  &, 0.275469E-01_JPRB, 0.237734E-01_JPRB, 0.204391E-01_JPRB &
+  &, 0.174967E-01_JPRB, 0.149148E-01_JPRB, 0.126687E-01_JPRB, 0.107177E-01_JPRB &
+  &, 0.902758E-02_JPRB, 0.757205E-02_JPRB, 0.633367E-02_JPRB &
+  &, 0.526593E-02_JPRB, 0.437062E-02_JPRB, 0.360751E-02_JPRB, 0.295990E-02_JPRB &
+  &, 0.242334E-02_JPRB, 0.197758E-02_JPRB, 0.159997E-02_JPRB &
+  &, 0.129627E-02_JPRB, 0.104076E-02_JPRB, 0.837443E-03_JPRB, 0.657279E-03_JPRB &
+  &, 0.519262E-03_JPRB, 0.409276E-03_JPRB, 0.329505E-03_JPRB &
+  &, 0.245906E-03_JPRB, 0.195490E-03_JPRB, 0.142701E-03_JPRB, 0.106858E-03_JPRB &
+  &, 0.891668E-04_JPRB, 0.706537E-04_JPRB, 0.513000E-04_JPRB &
+  &, 0.310881E-04_JPRB, 0.315322E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART6',1,ZHOOK_HANDLE)
+END SUBROUTINE PART6
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART7
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART7',0,ZHOOK_HANDLE)
+
+XCW(  43, :) = (/ &
+  &  0.834056E+00_JPRB, 0.794767E+00_JPRB, 0.756390E+00_JPRB, 0.718941E+00_JPRB &
+  &, 0.682434E+00_JPRB, 0.646884E+00_JPRB, 0.612306E+00_JPRB &
+  &, 0.578711E+00_JPRB, 0.546112E+00_JPRB, 0.514522E+00_JPRB, 0.483950E+00_JPRB &
+  &, 0.454404E+00_JPRB, 0.425895E+00_JPRB, 0.398430E+00_JPRB &
+  &, 0.372013E+00_JPRB, 0.346650E+00_JPRB, 0.322342E+00_JPRB, 0.299091E+00_JPRB &
+  &, 0.276895E+00_JPRB, 0.255751E+00_JPRB, 0.235655E+00_JPRB &
+  &, 0.216602E+00_JPRB, 0.198576E+00_JPRB, 0.181568E+00_JPRB, 0.165568E+00_JPRB &
+  &, 0.150550E+00_JPRB, 0.136497E+00_JPRB, 0.123391E+00_JPRB &
+  &, 0.111200E+00_JPRB, 0.998984E-01_JPRB, 0.894592E-01_JPRB, 0.798488E-01_JPRB &
+  &, 0.710281E-01_JPRB, 0.629701E-01_JPRB, 0.556293E-01_JPRB &
+  &, 0.489627E-01_JPRB, 0.429444E-01_JPRB, 0.375287E-01_JPRB, 0.326731E-01_JPRB &
+  &, 0.283384E-01_JPRB, 0.244794E-01_JPRB, 0.210765E-01_JPRB &
+  &, 0.180615E-01_JPRB, 0.154256E-01_JPRB, 0.131224E-01_JPRB, 0.111112E-01_JPRB &
+  &, 0.938193E-02_JPRB, 0.788505E-02_JPRB, 0.659020E-02_JPRB &
+  &, 0.548931E-02_JPRB, 0.455905E-02_JPRB, 0.377291E-02_JPRB, 0.310105E-02_JPRB &
+  &, 0.253895E-02_JPRB, 0.208114E-02_JPRB, 0.169082E-02_JPRB &
+  &, 0.135826E-02_JPRB, 0.110419E-02_JPRB, 0.886116E-03_JPRB, 0.707070E-03_JPRB &
+  &, 0.553213E-03_JPRB, 0.443996E-03_JPRB, 0.347255E-03_JPRB &
+  &, 0.264053E-03_JPRB, 0.214039E-03_JPRB, 0.161658E-03_JPRB, 0.126229E-03_JPRB &
+  &, 0.891668E-04_JPRB, 0.706537E-04_JPRB, 0.513000E-04_JPRB &
+  &, 0.310881E-04_JPRB, 0.315322E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  44, :) = (/ &
+  &  0.835035E+00_JPRB, 0.795952E+00_JPRB, 0.757765E+00_JPRB, 0.720491E+00_JPRB &
+  &, 0.684143E+00_JPRB, 0.648739E+00_JPRB, 0.614290E+00_JPRB &
+  &, 0.580811E+00_JPRB, 0.548313E+00_JPRB, 0.516809E+00_JPRB, 0.486310E+00_JPRB &
+  &, 0.456824E+00_JPRB, 0.428361E+00_JPRB, 0.400930E+00_JPRB &
+  &, 0.374533E+00_JPRB, 0.349179E+00_JPRB, 0.324868E+00_JPRB, 0.301603E+00_JPRB &
+  &, 0.279382E+00_JPRB, 0.258203E+00_JPRB, 0.238067E+00_JPRB &
+  &, 0.218959E+00_JPRB, 0.200872E+00_JPRB, 0.183799E+00_JPRB, 0.167720E+00_JPRB &
+  &, 0.152623E+00_JPRB, 0.138490E+00_JPRB, 0.125291E+00_JPRB &
+  &, 0.113007E+00_JPRB, 0.101613E+00_JPRB, 0.910773E-01_JPRB, 0.813684E-01_JPRB &
+  &, 0.724521E-01_JPRB, 0.642929E-01_JPRB, 0.568585E-01_JPRB &
+  &, 0.500975E-01_JPRB, 0.439934E-01_JPRB, 0.384870E-01_JPRB, 0.335453E-01_JPRB &
+  &, 0.291299E-01_JPRB, 0.251960E-01_JPRB, 0.217139E-01_JPRB &
+  &, 0.186374E-01_JPRB, 0.159364E-01_JPRB, 0.135762E-01_JPRB, 0.115166E-01_JPRB &
+  &, 0.973628E-02_JPRB, 0.818552E-02_JPRB, 0.685957E-02_JPRB &
+  &, 0.572583E-02_JPRB, 0.476093E-02_JPRB, 0.393831E-02_JPRB, 0.325631E-02_JPRB &
+  &, 0.266901E-02_JPRB, 0.218470E-02_JPRB, 0.178168E-02_JPRB &
+  &, 0.143574E-02_JPRB, 0.116762E-02_JPRB, 0.934789E-03_JPRB, 0.740264E-03_JPRB &
+  &, 0.587163E-03_JPRB, 0.461356E-03_JPRB, 0.365005E-03_JPRB &
+  &, 0.282199E-03_JPRB, 0.232587E-03_JPRB, 0.180615E-03_JPRB, 0.126229E-03_JPRB &
+  &, 0.108959E-03_JPRB, 0.706537E-04_JPRB, 0.513000E-04_JPRB &
+  &, 0.310881E-04_JPRB, 0.315322E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  45, :) = (/ &
+  &  0.835997E+00_JPRB, 0.797115E+00_JPRB, 0.759115E+00_JPRB, 0.722014E+00_JPRB &
+  &, 0.685824E+00_JPRB, 0.650562E+00_JPRB, 0.616241E+00_JPRB &
+  &, 0.582876E+00_JPRB, 0.550479E+00_JPRB, 0.519061E+00_JPRB, 0.488634E+00_JPRB &
+  &, 0.459208E+00_JPRB, 0.430792E+00_JPRB, 0.403393E+00_JPRB &
+  &, 0.377019E+00_JPRB, 0.351673E+00_JPRB, 0.327361E+00_JPRB, 0.304083E+00_JPRB &
+  &, 0.281840E+00_JPRB, 0.260630E+00_JPRB, 0.240450E+00_JPRB &
+  &, 0.221290E+00_JPRB, 0.203147E+00_JPRB, 0.186007E+00_JPRB, 0.169859E+00_JPRB &
+  &, 0.154682E+00_JPRB, 0.140464E+00_JPRB, 0.127180E+00_JPRB &
+  &, 0.114805E+00_JPRB, 0.103320E+00_JPRB, 0.926871E-01_JPRB, 0.828839E-01_JPRB &
+  &, 0.738719E-01_JPRB, 0.656201E-01_JPRB, 0.580878E-01_JPRB &
+  &, 0.512415E-01_JPRB, 0.450425E-01_JPRB, 0.394452E-01_JPRB, 0.344175E-01_JPRB &
+  &, 0.299213E-01_JPRB, 0.259232E-01_JPRB, 0.223621E-01_JPRB &
+  &, 0.192243E-01_JPRB, 0.164586E-01_JPRB, 0.140416E-01_JPRB, 0.119220E-01_JPRB &
+  &, 0.100906E-01_JPRB, 0.849852E-02_JPRB, 0.714176E-02_JPRB &
+  &, 0.596234E-02_JPRB, 0.496281E-02_JPRB, 0.411750E-02_JPRB, 0.339745E-02_JPRB &
+  &, 0.279907E-02_JPRB, 0.228825E-02_JPRB, 0.187253E-02_JPRB &
+  &, 0.151323E-02_JPRB, 0.123105E-02_JPRB, 0.983462E-03_JPRB, 0.790054E-03_JPRB &
+  &, 0.621114E-03_JPRB, 0.496076E-03_JPRB, 0.400506E-03_JPRB &
+  &, 0.300346E-03_JPRB, 0.232587E-03_JPRB, 0.180615E-03_JPRB, 0.145600E-03_JPRB &
+  &, 0.108959E-03_JPRB, 0.908716E-04_JPRB, 0.513000E-04_JPRB &
+  &, 0.521762E-04_JPRB, 0.315322E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  46, :) = (/ &
+  &  0.836941E+00_JPRB, 0.798259E+00_JPRB, 0.760443E+00_JPRB, 0.723511E+00_JPRB &
+  &, 0.687477E+00_JPRB, 0.652355E+00_JPRB, 0.618162E+00_JPRB &
+  &, 0.584909E+00_JPRB, 0.552610E+00_JPRB, 0.521278E+00_JPRB, 0.490923E+00_JPRB &
+  &, 0.461556E+00_JPRB, 0.433187E+00_JPRB, 0.405822E+00_JPRB &
+  &, 0.379470E+00_JPRB, 0.354135E+00_JPRB, 0.329823E+00_JPRB, 0.306534E+00_JPRB &
+  &, 0.284269E+00_JPRB, 0.263029E+00_JPRB, 0.242807E+00_JPRB &
+  &, 0.223601E+00_JPRB, 0.205399E+00_JPRB, 0.188197E+00_JPRB, 0.171976E+00_JPRB &
+  &, 0.156726E+00_JPRB, 0.142424E+00_JPRB, 0.129054E+00_JPRB &
+  &, 0.116596E+00_JPRB, 0.105015E+00_JPRB, 0.942929E-01_JPRB, 0.843909E-01_JPRB &
+  &, 0.752873E-01_JPRB, 0.669385E-01_JPRB, 0.593170E-01_JPRB &
+  &, 0.523763E-01_JPRB, 0.460820E-01_JPRB, 0.404035E-01_JPRB, 0.352997E-01_JPRB &
+  &, 0.307231E-01_JPRB, 0.266398E-01_JPRB, 0.230211E-01_JPRB &
+  &, 0.198113E-01_JPRB, 0.169808E-01_JPRB, 0.144953E-01_JPRB, 0.123393E-01_JPRB &
+  &, 0.104450E-01_JPRB, 0.882404E-02_JPRB, 0.741113E-02_JPRB &
+  &, 0.621200E-02_JPRB, 0.517815E-02_JPRB, 0.429669E-02_JPRB, 0.355271E-02_JPRB &
+  &, 0.292913E-02_JPRB, 0.240661E-02_JPRB, 0.196339E-02_JPRB &
+  &, 0.159071E-02_JPRB, 0.129448E-02_JPRB, 0.103214E-02_JPRB, 0.839845E-03_JPRB &
+  &, 0.672040E-03_JPRB, 0.530795E-03_JPRB, 0.418256E-03_JPRB &
+  &, 0.336639E-03_JPRB, 0.251136E-03_JPRB, 0.199572E-03_JPRB, 0.145600E-03_JPRB &
+  &, 0.108959E-03_JPRB, 0.908716E-04_JPRB, 0.719501E-04_JPRB &
+  &, 0.521762E-04_JPRB, 0.315322E-04_JPRB, 0.319822E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  47, :) = (/ &
+  &  0.837869E+00_JPRB, 0.799384E+00_JPRB, 0.761750E+00_JPRB, 0.724984E+00_JPRB &
+  &, 0.689103E+00_JPRB, 0.654120E+00_JPRB, 0.620052E+00_JPRB &
+  &, 0.586910E+00_JPRB, 0.554710E+00_JPRB, 0.523463E+00_JPRB, 0.493180E+00_JPRB &
+  &, 0.463872E+00_JPRB, 0.435549E+00_JPRB, 0.408219E+00_JPRB &
+  &, 0.381890E+00_JPRB, 0.356566E+00_JPRB, 0.332253E+00_JPRB, 0.308955E+00_JPRB &
+  &, 0.286669E+00_JPRB, 0.265398E+00_JPRB, 0.245139E+00_JPRB &
+  &, 0.225885E+00_JPRB, 0.207631E+00_JPRB, 0.190366E+00_JPRB, 0.174076E+00_JPRB &
+  &, 0.158752E+00_JPRB, 0.144372E+00_JPRB, 0.130920E+00_JPRB &
+  &, 0.118371E+00_JPRB, 0.106702E+00_JPRB, 0.958904E-01_JPRB, 0.858979E-01_JPRB &
+  &, 0.766985E-01_JPRB, 0.682569E-01_JPRB, 0.605417E-01_JPRB &
+  &, 0.535111E-01_JPRB, 0.471310E-01_JPRB, 0.413715E-01_JPRB, 0.361820E-01_JPRB &
+  &, 0.315248E-01_JPRB, 0.273669E-01_JPRB, 0.236693E-01_JPRB &
+  &, 0.203982E-01_JPRB, 0.175030E-01_JPRB, 0.149724E-01_JPRB, 0.127447E-01_JPRB &
+  &, 0.108115E-01_JPRB, 0.913704E-02_JPRB, 0.769332E-02_JPRB &
+  &, 0.644852E-02_JPRB, 0.538003E-02_JPRB, 0.447587E-02_JPRB, 0.370797E-02_JPRB &
+  &, 0.305919E-02_JPRB, 0.251016E-02_JPRB, 0.205424E-02_JPRB &
+  &, 0.166820E-02_JPRB, 0.135791E-02_JPRB, 0.109703E-02_JPRB, 0.889636E-03_JPRB &
+  &, 0.705991E-03_JPRB, 0.565515E-03_JPRB, 0.453756E-03_JPRB &
+  &, 0.354786E-03_JPRB, 0.269685E-03_JPRB, 0.218530E-03_JPRB, 0.164972E-03_JPRB &
+  &, 0.128750E-03_JPRB, 0.908716E-04_JPRB, 0.719501E-04_JPRB &
+  &, 0.521762E-04_JPRB, 0.315322E-04_JPRB, 0.319822E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  48, :) = (/ &
+  &  0.838783E+00_JPRB, 0.800490E+00_JPRB, 0.763034E+00_JPRB, 0.726434E+00_JPRB &
+  &, 0.690703E+00_JPRB, 0.655858E+00_JPRB, 0.621913E+00_JPRB &
+  &, 0.588882E+00_JPRB, 0.556778E+00_JPRB, 0.525616E+00_JPRB, 0.495405E+00_JPRB &
+  &, 0.466155E+00_JPRB, 0.437879E+00_JPRB, 0.410584E+00_JPRB &
+  &, 0.384278E+00_JPRB, 0.358967E+00_JPRB, 0.334655E+00_JPRB, 0.311347E+00_JPRB &
+  &, 0.289043E+00_JPRB, 0.267743E+00_JPRB, 0.247447E+00_JPRB &
+  &, 0.228146E+00_JPRB, 0.209839E+00_JPRB, 0.192514E+00_JPRB, 0.176157E+00_JPRB &
+  &, 0.160763E+00_JPRB, 0.146306E+00_JPRB, 0.132771E+00_JPRB &
+  &, 0.120139E+00_JPRB, 0.108385E+00_JPRB, 0.974797E-01_JPRB, 0.873965E-01_JPRB &
+  &, 0.781053E-01_JPRB, 0.695753E-01_JPRB, 0.617664E-01_JPRB &
+  &, 0.546458E-01_JPRB, 0.481896E-01_JPRB, 0.423395E-01_JPRB, 0.370642E-01_JPRB &
+  &, 0.323369E-01_JPRB, 0.281046E-01_JPRB, 0.243283E-01_JPRB &
+  &, 0.209962E-01_JPRB, 0.180365E-01_JPRB, 0.154494E-01_JPRB, 0.131740E-01_JPRB &
+  &, 0.111903E-01_JPRB, 0.946256E-02_JPRB, 0.797551E-02_JPRB &
+  &, 0.669818E-02_JPRB, 0.560883E-02_JPRB, 0.466884E-02_JPRB, 0.387734E-02_JPRB &
+  &, 0.320370E-02_JPRB, 0.262851E-02_JPRB, 0.216024E-02_JPRB &
+  &, 0.176118E-02_JPRB, 0.142134E-02_JPRB, 0.116193E-02_JPRB, 0.922830E-03_JPRB &
+  &, 0.739942E-03_JPRB, 0.600235E-03_JPRB, 0.471507E-03_JPRB &
+  &, 0.372933E-03_JPRB, 0.288234E-03_JPRB, 0.237487E-03_JPRB, 0.184343E-03_JPRB &
+  &, 0.128750E-03_JPRB, 0.111089E-03_JPRB, 0.719501E-04_JPRB &
+  &, 0.521762E-04_JPRB, 0.315322E-04_JPRB, 0.319822E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  49, :) = (/ &
+  &  0.839682E+00_JPRB, 0.801578E+00_JPRB, 0.764299E+00_JPRB, 0.727861E+00_JPRB &
+  &, 0.692279E+00_JPRB, 0.657570E+00_JPRB, 0.623747E+00_JPRB &
+  &, 0.590825E+00_JPRB, 0.558818E+00_JPRB, 0.527739E+00_JPRB, 0.497598E+00_JPRB &
+  &, 0.468408E+00_JPRB, 0.440179E+00_JPRB, 0.412918E+00_JPRB &
+  &, 0.386636E+00_JPRB, 0.361338E+00_JPRB, 0.337029E+00_JPRB, 0.313712E+00_JPRB &
+  &, 0.291391E+00_JPRB, 0.270065E+00_JPRB, 0.249730E+00_JPRB &
+  &, 0.230388E+00_JPRB, 0.212030E+00_JPRB, 0.194645E+00_JPRB, 0.178225E+00_JPRB &
+  &, 0.162757E+00_JPRB, 0.148228E+00_JPRB, 0.134614E+00_JPRB &
+  &, 0.121898E+00_JPRB, 0.110056E+00_JPRB, 0.990608E-01_JPRB, 0.888909E-01_JPRB &
+  &, 0.795121E-01_JPRB, 0.708893E-01_JPRB, 0.629911E-01_JPRB &
+  &, 0.557899E-01_JPRB, 0.492386E-01_JPRB, 0.433076E-01_JPRB, 0.379465E-01_JPRB &
+  &, 0.331386E-01_JPRB, 0.288317E-01_JPRB, 0.249981E-01_JPRB &
+  &, 0.215943E-01_JPRB, 0.185814E-01_JPRB, 0.159264E-01_JPRB, 0.135913E-01_JPRB &
+  &, 0.115691E-01_JPRB, 0.980060E-02_JPRB, 0.827053E-02_JPRB &
+  &, 0.694783E-02_JPRB, 0.582417E-02_JPRB, 0.486181E-02_JPRB, 0.403260E-02_JPRB &
+  &, 0.333376E-02_JPRB, 0.274687E-02_JPRB, 0.225110E-02_JPRB &
+  &, 0.183867E-02_JPRB, 0.150063E-02_JPRB, 0.121060E-02_JPRB, 0.989217E-03_JPRB &
+  &, 0.790868E-03_JPRB, 0.634954E-03_JPRB, 0.507007E-03_JPRB &
+  &, 0.391079E-03_JPRB, 0.306783E-03_JPRB, 0.237487E-03_JPRB, 0.184343E-03_JPRB &
+  &, 0.148542E-03_JPRB, 0.111089E-03_JPRB, 0.926001E-04_JPRB &
+  &, 0.521762E-04_JPRB, 0.530643E-04_JPRB, 0.319822E-04_JPRB, 0.324382E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART7',1,ZHOOK_HANDLE)
+END SUBROUTINE PART7
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART8
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART8',0,ZHOOK_HANDLE)
+
+XCW(  50, :) = (/ &
+  &  0.840566E+00_JPRB, 0.802650E+00_JPRB, 0.765543E+00_JPRB, 0.729266E+00_JPRB &
+  &, 0.693831E+00_JPRB, 0.659256E+00_JPRB, 0.625554E+00_JPRB &
+  &, 0.592741E+00_JPRB, 0.560829E+00_JPRB, 0.529832E+00_JPRB, 0.499762E+00_JPRB &
+  &, 0.470631E+00_JPRB, 0.442448E+00_JPRB, 0.415223E+00_JPRB &
+  &, 0.388966E+00_JPRB, 0.363680E+00_JPRB, 0.339374E+00_JPRB, 0.316052E+00_JPRB &
+  &, 0.293714E+00_JPRB, 0.272362E+00_JPRB, 0.251993E+00_JPRB &
+  &, 0.232609E+00_JPRB, 0.214200E+00_JPRB, 0.196758E+00_JPRB, 0.180275E+00_JPRB &
+  &, 0.164739E+00_JPRB, 0.150135E+00_JPRB, 0.136442E+00_JPRB &
+  &, 0.123646E+00_JPRB, 0.111719E+00_JPRB, 0.100638E+00_JPRB, 0.903811E-01_JPRB &
+  &, 0.809103E-01_JPRB, 0.721989E-01_JPRB, 0.642158E-01_JPRB &
+  &, 0.569246E-01_JPRB, 0.502877E-01_JPRB, 0.442756E-01_JPRB, 0.388387E-01_JPRB &
+  &, 0.339506E-01_JPRB, 0.295693E-01_JPRB, 0.256679E-01_JPRB &
+  &, 0.221923E-01_JPRB, 0.191149E-01_JPRB, 0.164035E-01_JPRB, 0.140206E-01_JPRB &
+  &, 0.119479E-01_JPRB, 0.101386E-01_JPRB, 0.856555E-02_JPRB &
+  &, 0.721063E-02_JPRB, 0.603951E-02_JPRB, 0.505478E-02_JPRB, 0.420197E-02_JPRB &
+  &, 0.347827E-02_JPRB, 0.286522E-02_JPRB, 0.235710E-02_JPRB &
+  &, 0.193165E-02_JPRB, 0.157992E-02_JPRB, 0.127550E-02_JPRB, 0.103901E-02_JPRB &
+  &, 0.824819E-03_JPRB, 0.669674E-03_JPRB, 0.524757E-03_JPRB &
+  &, 0.427372E-03_JPRB, 0.325332E-03_JPRB, 0.256444E-03_JPRB, 0.203715E-03_JPRB &
+  &, 0.148542E-03_JPRB, 0.111089E-03_JPRB, 0.926001E-04_JPRB &
+  &, 0.732644E-04_JPRB, 0.530643E-04_JPRB, 0.319822E-04_JPRB, 0.324382E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  51, :) = (/ &
+  &  0.841436E+00_JPRB, 0.803705E+00_JPRB, 0.766770E+00_JPRB, 0.730650E+00_JPRB &
+  &, 0.695361E+00_JPRB, 0.660918E+00_JPRB, 0.627336E+00_JPRB &
+  &, 0.594629E+00_JPRB, 0.562812E+00_JPRB, 0.531898E+00_JPRB, 0.501898E+00_JPRB &
+  &, 0.472824E+00_JPRB, 0.444689E+00_JPRB, 0.417501E+00_JPRB &
+  &, 0.391267E+00_JPRB, 0.365996E+00_JPRB, 0.341695E+00_JPRB, 0.318365E+00_JPRB &
+  &, 0.296012E+00_JPRB, 0.274633E+00_JPRB, 0.254234E+00_JPRB &
+  &, 0.234807E+00_JPRB, 0.216350E+00_JPRB, 0.198854E+00_JPRB, 0.182310E+00_JPRB &
+  &, 0.166707E+00_JPRB, 0.152028E+00_JPRB, 0.138263E+00_JPRB &
+  &, 0.125386E+00_JPRB, 0.113374E+00_JPRB, 0.102211E+00_JPRB, 0.918671E-01_JPRB &
+  &, 0.823084E-01_JPRB, 0.735128E-01_JPRB, 0.654405E-01_JPRB &
+  &, 0.580594E-01_JPRB, 0.513367E-01_JPRB, 0.452436E-01_JPRB, 0.397310E-01_JPRB &
+  &, 0.347729E-01_JPRB, 0.303176E-01_JPRB, 0.263377E-01_JPRB &
+  &, 0.228014E-01_JPRB, 0.196598E-01_JPRB, 0.168921E-01_JPRB, 0.144618E-01_JPRB &
+  &, 0.123267E-01_JPRB, 0.104767E-01_JPRB, 0.886057E-02_JPRB &
+  &, 0.747343E-02_JPRB, 0.626830E-02_JPRB, 0.524775E-02_JPRB, 0.437134E-02_JPRB &
+  &, 0.362278E-02_JPRB, 0.299836E-02_JPRB, 0.246309E-02_JPRB &
+  &, 0.202464E-02_JPRB, 0.164335E-02_JPRB, 0.134040E-02_JPRB, 0.108880E-02_JPRB &
+  &, 0.875745E-03_JPRB, 0.704394E-03_JPRB, 0.560258E-03_JPRB &
+  &, 0.445519E-03_JPRB, 0.343881E-03_JPRB, 0.275401E-03_JPRB, 0.223086E-03_JPRB &
+  &, 0.168334E-03_JPRB, 0.131307E-03_JPRB, 0.926001E-04_JPRB &
+  &, 0.732644E-04_JPRB, 0.530643E-04_JPRB, 0.319822E-04_JPRB, 0.324382E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  52, :) = (/ &
+  &  0.842294E+00_JPRB, 0.804744E+00_JPRB, 0.767978E+00_JPRB, 0.732014E+00_JPRB &
+  &, 0.696869E+00_JPRB, 0.662556E+00_JPRB, 0.629092E+00_JPRB &
+  &, 0.596491E+00_JPRB, 0.564768E+00_JPRB, 0.533936E+00_JPRB, 0.504006E+00_JPRB &
+  &, 0.474992E+00_JPRB, 0.446903E+00_JPRB, 0.419750E+00_JPRB &
+  &, 0.393541E+00_JPRB, 0.368285E+00_JPRB, 0.343988E+00_JPRB, 0.320654E+00_JPRB &
+  &, 0.298286E+00_JPRB, 0.276886E+00_JPRB, 0.256455E+00_JPRB &
+  &, 0.236989E+00_JPRB, 0.218484E+00_JPRB, 0.200933E+00_JPRB, 0.184328E+00_JPRB &
+  &, 0.168660E+00_JPRB, 0.153913E+00_JPRB, 0.140072E+00_JPRB &
+  &, 0.127114E+00_JPRB, 0.115025E+00_JPRB, 0.103775E+00_JPRB, 0.933447E-01_JPRB &
+  &, 0.837023E-01_JPRB, 0.748180E-01_JPRB, 0.666606E-01_JPRB &
+  &, 0.591941E-01_JPRB, 0.523953E-01_JPRB, 0.462214E-01_JPRB, 0.406233E-01_JPRB &
+  &, 0.355850E-01_JPRB, 0.310658E-01_JPRB, 0.270183E-01_JPRB &
+  &, 0.234105E-01_JPRB, 0.202160E-01_JPRB, 0.173808E-01_JPRB, 0.149030E-01_JPRB &
+  &, 0.127177E-01_JPRB, 0.108147E-01_JPRB, 0.916841E-02_JPRB &
+  &, 0.773622E-02_JPRB, 0.651056E-02_JPRB, 0.545451E-02_JPRB, 0.454071E-02_JPRB &
+  &, 0.378175E-02_JPRB, 0.313151E-02_JPRB, 0.256909E-02_JPRB &
+  &, 0.211762E-02_JPRB, 0.172264E-02_JPRB, 0.140530E-02_JPRB, 0.113859E-02_JPRB &
+  &, 0.926671E-03_JPRB, 0.739113E-03_JPRB, 0.595758E-03_JPRB &
+  &, 0.463666E-03_JPRB, 0.380979E-03_JPRB, 0.294359E-03_JPRB, 0.223086E-03_JPRB &
+  &, 0.188125E-03_JPRB, 0.131307E-03_JPRB, 0.113250E-03_JPRB &
+  &, 0.732644E-04_JPRB, 0.530643E-04_JPRB, 0.319822E-04_JPRB, 0.324382E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  53, :) = (/ &
+  &  0.843139E+00_JPRB, 0.805768E+00_JPRB, 0.769168E+00_JPRB, 0.733359E+00_JPRB &
+  &, 0.698355E+00_JPRB, 0.664172E+00_JPRB, 0.630825E+00_JPRB &
+  &, 0.598329E+00_JPRB, 0.566699E+00_JPRB, 0.535948E+00_JPRB, 0.506088E+00_JPRB &
+  &, 0.477132E+00_JPRB, 0.449089E+00_JPRB, 0.421973E+00_JPRB &
+  &, 0.395791E+00_JPRB, 0.370550E+00_JPRB, 0.346259E+00_JPRB, 0.322919E+00_JPRB &
+  &, 0.300538E+00_JPRB, 0.279116E+00_JPRB, 0.258654E+00_JPRB &
+  &, 0.239151E+00_JPRB, 0.220600E+00_JPRB, 0.202998E+00_JPRB, 0.186335E+00_JPRB &
+  &, 0.170603E+00_JPRB, 0.155787E+00_JPRB, 0.141869E+00_JPRB &
+  &, 0.128835E+00_JPRB, 0.116667E+00_JPRB, 0.105336E+00_JPRB, 0.948222E-01_JPRB &
+  &, 0.850962E-01_JPRB, 0.761275E-01_JPRB, 0.678853E-01_JPRB &
+  &, 0.603382E-01_JPRB, 0.534539E-01_JPRB, 0.471895E-01_JPRB, 0.415256E-01_JPRB &
+  &, 0.364073E-01_JPRB, 0.318140E-01_JPRB, 0.276989E-01_JPRB &
+  &, 0.240307E-01_JPRB, 0.207609E-01_JPRB, 0.178811E-01_JPRB, 0.153441E-01_JPRB &
+  &, 0.131087E-01_JPRB, 0.111653E-01_JPRB, 0.947626E-02_JPRB &
+  &, 0.801216E-02_JPRB, 0.673936E-02_JPRB, 0.564748E-02_JPRB, 0.472420E-02_JPRB &
+  &, 0.392626E-02_JPRB, 0.324986E-02_JPRB, 0.269023E-02_JPRB &
+  &, 0.221060E-02_JPRB, 0.180193E-02_JPRB, 0.147019E-02_JPRB, 0.120498E-02_JPRB &
+  &, 0.960622E-03_JPRB, 0.773833E-03_JPRB, 0.631259E-03_JPRB &
+  &, 0.499959E-03_JPRB, 0.399528E-03_JPRB, 0.313316E-03_JPRB, 0.242458E-03_JPRB &
+  &, 0.188125E-03_JPRB, 0.151525E-03_JPRB, 0.113250E-03_JPRB &
+  &, 0.943525E-04_JPRB, 0.530643E-04_JPRB, 0.539644E-04_JPRB, 0.324382E-04_JPRB &
+  &, 0.329001E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  54, :) = (/ &
+  &  0.843971E+00_JPRB, 0.806777E+00_JPRB, 0.770342E+00_JPRB, 0.734685E+00_JPRB &
+  &, 0.699821E+00_JPRB, 0.665766E+00_JPRB, 0.632535E+00_JPRB &
+  &, 0.600143E+00_JPRB, 0.568605E+00_JPRB, 0.537934E+00_JPRB, 0.508144E+00_JPRB &
+  &, 0.479245E+00_JPRB, 0.451251E+00_JPRB, 0.424172E+00_JPRB &
+  &, 0.398015E+00_JPRB, 0.372790E+00_JPRB, 0.348504E+00_JPRB, 0.325162E+00_JPRB &
+  &, 0.302769E+00_JPRB, 0.281324E+00_JPRB, 0.260832E+00_JPRB &
+  &, 0.241292E+00_JPRB, 0.222699E+00_JPRB, 0.205046E+00_JPRB, 0.188324E+00_JPRB &
+  &, 0.172530E+00_JPRB, 0.157645E+00_JPRB, 0.143659E+00_JPRB &
+  &, 0.130551E+00_JPRB, 0.118302E+00_JPRB, 0.106892E+00_JPRB, 0.962956E-01_JPRB &
+  &, 0.864814E-01_JPRB, 0.774282E-01_JPRB, 0.691055E-01_JPRB &
+  &, 0.614730E-01_JPRB, 0.545029E-01_JPRB, 0.481673E-01_JPRB, 0.424178E-01_JPRB &
+  &, 0.372296E-01_JPRB, 0.325622E-01_JPRB, 0.283796E-01_JPRB &
+  &, 0.246398E-01_JPRB, 0.213285E-01_JPRB, 0.183814E-01_JPRB, 0.157853E-01_JPRB &
+  &, 0.135119E-01_JPRB, 0.115158E-01_JPRB, 0.978411E-02_JPRB &
+  &, 0.827496E-02_JPRB, 0.698162E-02_JPRB, 0.585423E-02_JPRB, 0.490769E-02_JPRB &
+  &, 0.408522E-02_JPRB, 0.338300E-02_JPRB, 0.279623E-02_JPRB &
+  &, 0.230359E-02_JPRB, 0.189708E-02_JPRB, 0.155132E-02_JPRB, 0.125477E-02_JPRB &
+  &, 0.101155E-02_JPRB, 0.825913E-03_JPRB, 0.666759E-03_JPRB &
+  &, 0.518106E-03_JPRB, 0.418077E-03_JPRB, 0.332273E-03_JPRB, 0.261829E-03_JPRB &
+  &, 0.207917E-03_JPRB, 0.151525E-03_JPRB, 0.113250E-03_JPRB &
+  &, 0.943525E-04_JPRB, 0.745965E-04_JPRB, 0.539644E-04_JPRB, 0.324382E-04_JPRB &
+  &, 0.329001E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  55, :) = (/ &
+  &  0.844791E+00_JPRB, 0.807772E+00_JPRB, 0.771500E+00_JPRB, 0.735993E+00_JPRB &
+  &, 0.701267E+00_JPRB, 0.667338E+00_JPRB, 0.634222E+00_JPRB &
+  &, 0.601934E+00_JPRB, 0.570487E+00_JPRB, 0.539897E+00_JPRB, 0.510175E+00_JPRB &
+  &, 0.481335E+00_JPRB, 0.453387E+00_JPRB, 0.426345E+00_JPRB &
+  &, 0.400214E+00_JPRB, 0.375006E+00_JPRB, 0.350728E+00_JPRB, 0.327383E+00_JPRB &
+  &, 0.304977E+00_JPRB, 0.283513E+00_JPRB, 0.262995E+00_JPRB &
+  &, 0.243418E+00_JPRB, 0.224782E+00_JPRB, 0.207076E+00_JPRB, 0.190303E+00_JPRB &
+  &, 0.174447E+00_JPRB, 0.159497E+00_JPRB, 0.145437E+00_JPRB &
+  &, 0.132256E+00_JPRB, 0.119929E+00_JPRB, 0.108441E+00_JPRB, 0.977605E-01_JPRB &
+  &, 0.878666E-01_JPRB, 0.787333E-01_JPRB, 0.703257E-01_JPRB &
+  &, 0.626170E-01_JPRB, 0.555615E-01_JPRB, 0.491451E-01_JPRB, 0.433201E-01_JPRB &
+  &, 0.380622E-01_JPRB, 0.333209E-01_JPRB, 0.290710E-01_JPRB &
+  &, 0.252710E-01_JPRB, 0.218847E-01_JPRB, 0.188933E-01_JPRB, 0.162384E-01_JPRB &
+  &, 0.139152E-01_JPRB, 0.118789E-01_JPRB, 0.101048E-01_JPRB &
+  &, 0.855089E-02_JPRB, 0.722387E-02_JPRB, 0.607477E-02_JPRB, 0.509117E-02_JPRB &
+  &, 0.424418E-02_JPRB, 0.353094E-02_JPRB, 0.291737E-02_JPRB &
+  &, 0.241207E-02_JPRB, 0.197637E-02_JPRB, 0.161621E-02_JPRB, 0.132116E-02_JPRB &
+  &, 0.106247E-02_JPRB, 0.860632E-03_JPRB, 0.702260E-03_JPRB &
+  &, 0.554399E-03_JPRB, 0.436626E-03_JPRB, 0.351230E-03_JPRB, 0.281201E-03_JPRB &
+  &, 0.207917E-03_JPRB, 0.171743E-03_JPRB, 0.133900E-03_JPRB &
+  &, 0.943525E-04_JPRB, 0.745965E-04_JPRB, 0.539644E-04_JPRB, 0.324382E-04_JPRB &
+  &, 0.329001E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  56, :) = (/ &
+  &  0.845601E+00_JPRB, 0.808753E+00_JPRB, 0.772642E+00_JPRB, 0.737283E+00_JPRB &
+  &, 0.702694E+00_JPRB, 0.668890E+00_JPRB, 0.635888E+00_JPRB &
+  &, 0.603701E+00_JPRB, 0.572346E+00_JPRB, 0.541835E+00_JPRB, 0.512182E+00_JPRB &
+  &, 0.483400E+00_JPRB, 0.455500E+00_JPRB, 0.428494E+00_JPRB &
+  &, 0.402390E+00_JPRB, 0.377199E+00_JPRB, 0.352927E+00_JPRB, 0.329581E+00_JPRB &
+  &, 0.307166E+00_JPRB, 0.285683E+00_JPRB, 0.265139E+00_JPRB &
+  &, 0.245526E+00_JPRB, 0.226847E+00_JPRB, 0.209096E+00_JPRB, 0.192268E+00_JPRB &
+  &, 0.176350E+00_JPRB, 0.161333E+00_JPRB, 0.147208E+00_JPRB &
+  &, 0.133953E+00_JPRB, 0.121552E+00_JPRB, 0.109985E+00_JPRB, 0.992254E-01_JPRB &
+  &, 0.892519E-01_JPRB, 0.800340E-01_JPRB, 0.715458E-01_JPRB &
+  &, 0.637518E-01_JPRB, 0.566201E-01_JPRB, 0.501229E-01_JPRB, 0.442324E-01_JPRB &
+  &, 0.388947E-01_JPRB, 0.340796E-01_JPRB, 0.297624E-01_JPRB &
+  &, 0.259023E-01_JPRB, 0.224523E-01_JPRB, 0.194052E-01_JPRB, 0.167035E-01_JPRB &
+  &, 0.143184E-01_JPRB, 0.122420E-01_JPRB, 0.104255E-01_JPRB &
+  &, 0.883997E-02_JPRB, 0.746613E-02_JPRB, 0.628152E-02_JPRB, 0.527466E-02_JPRB &
+  &, 0.440315E-02_JPRB, 0.366408E-02_JPRB, 0.303851E-02_JPRB &
+  &, 0.250505E-02_JPRB, 0.205566E-02_JPRB, 0.169733E-02_JPRB, 0.137095E-02_JPRB &
+  &, 0.111340E-02_JPRB, 0.912712E-03_JPRB, 0.737760E-03_JPRB &
+  &, 0.590692E-03_JPRB, 0.473724E-03_JPRB, 0.370188E-03_JPRB, 0.300572E-03_JPRB &
+  &, 0.227709E-03_JPRB, 0.171743E-03_JPRB, 0.133900E-03_JPRB &
+  &, 0.115441E-03_JPRB, 0.745965E-04_JPRB, 0.539644E-04_JPRB, 0.324382E-04_JPRB &
+  &, 0.329001E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART8',1,ZHOOK_HANDLE)
+END SUBROUTINE PART8
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART9
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART9',0,ZHOOK_HANDLE)
+
+XCW(  57, :) = (/ &
+  &  0.846399E+00_JPRB, 0.809722E+00_JPRB, 0.773768E+00_JPRB, 0.738557E+00_JPRB &
+  &, 0.704103E+00_JPRB, 0.670423E+00_JPRB, 0.637533E+00_JPRB &
+  &, 0.605448E+00_JPRB, 0.574182E+00_JPRB, 0.543750E+00_JPRB, 0.514167E+00_JPRB &
+  &, 0.485441E+00_JPRB, 0.457590E+00_JPRB, 0.430620E+00_JPRB &
+  &, 0.404544E+00_JPRB, 0.379370E+00_JPRB, 0.355107E+00_JPRB, 0.331759E+00_JPRB &
+  &, 0.309334E+00_JPRB, 0.287834E+00_JPRB, 0.267262E+00_JPRB &
+  &, 0.247615E+00_JPRB, 0.228896E+00_JPRB, 0.211098E+00_JPRB, 0.194218E+00_JPRB &
+  &, 0.178241E+00_JPRB, 0.163163E+00_JPRB, 0.148971E+00_JPRB &
+  &, 0.135642E+00_JPRB, 0.123167E+00_JPRB, 0.111525E+00_JPRB, 0.100686E+00_JPRB &
+  &, 0.906328E-01_JPRB, 0.813347E-01_JPRB, 0.727660E-01_JPRB &
+  &, 0.648865E-01_JPRB, 0.576882E-01_JPRB, 0.511105E-01_JPRB, 0.451347E-01_JPRB &
+  &, 0.397273E-01_JPRB, 0.348384E-01_JPRB, 0.304538E-01_JPRB &
+  &, 0.265335E-01_JPRB, 0.230312E-01_JPRB, 0.199172E-01_JPRB, 0.171566E-01_JPRB &
+  &, 0.147338E-01_JPRB, 0.126051E-01_JPRB, 0.107461E-01_JPRB &
+  &, 0.912904E-02_JPRB, 0.772185E-02_JPRB, 0.650206E-02_JPRB, 0.545815E-02_JPRB &
+  &, 0.456211E-02_JPRB, 0.381202E-02_JPRB, 0.315965E-02_JPRB &
+  &, 0.261353E-02_JPRB, 0.215080E-02_JPRB, 0.176223E-02_JPRB, 0.143733E-02_JPRB &
+  &, 0.118130E-02_JPRB, 0.947432E-03_JPRB, 0.773261E-03_JPRB &
+  &, 0.608839E-03_JPRB, 0.492273E-03_JPRB, 0.389145E-03_JPRB, 0.300572E-03_JPRB &
+  &, 0.247501E-03_JPRB, 0.191961E-03_JPRB, 0.154550E-03_JPRB &
+  &, 0.115441E-03_JPRB, 0.961287E-04_JPRB, 0.539644E-04_JPRB, 0.548763E-04_JPRB &
+  &, 0.329001E-04_JPRB, 0.333680E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  58, :) = (/ &
+  &  0.847186E+00_JPRB, 0.810677E+00_JPRB, 0.774880E+00_JPRB, 0.739814E+00_JPRB &
+  &, 0.705494E+00_JPRB, 0.671937E+00_JPRB, 0.639158E+00_JPRB &
+  &, 0.607173E+00_JPRB, 0.575997E+00_JPRB, 0.545644E+00_JPRB, 0.516128E+00_JPRB &
+  &, 0.487460E+00_JPRB, 0.459656E+00_JPRB, 0.432723E+00_JPRB &
+  &, 0.406675E+00_JPRB, 0.381520E+00_JPRB, 0.357265E+00_JPRB, 0.333918E+00_JPRB &
+  &, 0.311483E+00_JPRB, 0.289966E+00_JPRB, 0.269370E+00_JPRB &
+  &, 0.249691E+00_JPRB, 0.230934E+00_JPRB, 0.213090E+00_JPRB, 0.196154E+00_JPRB &
+  &, 0.180122E+00_JPRB, 0.164984E+00_JPRB, 0.150723E+00_JPRB &
+  &, 0.137327E+00_JPRB, 0.124777E+00_JPRB, 0.113057E+00_JPRB, 0.102143E+00_JPRB &
+  &, 0.920094E-01_JPRB, 0.826310E-01_JPRB, 0.739816E-01_JPRB &
+  &, 0.660306E-01_JPRB, 0.587467E-01_JPRB, 0.520981E-01_JPRB, 0.460471E-01_JPRB &
+  &, 0.405599E-01_JPRB, 0.356077E-01_JPRB, 0.311560E-01_JPRB &
+  &, 0.271648E-01_JPRB, 0.235988E-01_JPRB, 0.204291E-01_JPRB, 0.176216E-01_JPRB &
+  &, 0.151493E-01_JPRB, 0.129807E-01_JPRB, 0.110668E-01_JPRB &
+  &, 0.941812E-02_JPRB, 0.797756E-02_JPRB, 0.672260E-02_JPRB, 0.565575E-02_JPRB &
+  &, 0.473552E-02_JPRB, 0.394517E-02_JPRB, 0.328079E-02_JPRB &
+  &, 0.272201E-02_JPRB, 0.224595E-02_JPRB, 0.184335E-02_JPRB, 0.150372E-02_JPRB &
+  &, 0.123223E-02_JPRB, 0.999511E-03_JPRB, 0.808761E-03_JPRB &
+  &, 0.645132E-03_JPRB, 0.510822E-03_JPRB, 0.408102E-03_JPRB, 0.319944E-03_JPRB &
+  &, 0.267292E-03_JPRB, 0.212179E-03_JPRB, 0.154550E-03_JPRB &
+  &, 0.115441E-03_JPRB, 0.961287E-04_JPRB, 0.759466E-04_JPRB, 0.548763E-04_JPRB &
+  &, 0.329001E-04_JPRB, 0.333680E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  59, :) = (/ &
+  &  0.847964E+00_JPRB, 0.811620E+00_JPRB, 0.775978E+00_JPRB, 0.741055E+00_JPRB &
+  &, 0.706868E+00_JPRB, 0.673432E+00_JPRB, 0.640764E+00_JPRB &
+  &, 0.608878E+00_JPRB, 0.577791E+00_JPRB, 0.547516E+00_JPRB, 0.518068E+00_JPRB &
+  &, 0.489458E+00_JPRB, 0.461701E+00_JPRB, 0.434806E+00_JPRB &
+  &, 0.408785E+00_JPRB, 0.383648E+00_JPRB, 0.359403E+00_JPRB, 0.336056E+00_JPRB &
+  &, 0.313613E+00_JPRB, 0.292082E+00_JPRB, 0.271458E+00_JPRB &
+  &, 0.251750E+00_JPRB, 0.232955E+00_JPRB, 0.215065E+00_JPRB, 0.198083E+00_JPRB &
+  &, 0.181995E+00_JPRB, 0.166791E+00_JPRB, 0.152467E+00_JPRB &
+  &, 0.139001E+00_JPRB, 0.126380E+00_JPRB, 0.114584E+00_JPRB, 0.103595E+00_JPRB &
+  &, 0.933860E-01_JPRB, 0.839273E-01_JPRB, 0.752017E-01_JPRB &
+  &, 0.671654E-01_JPRB, 0.598053E-01_JPRB, 0.530759E-01_JPRB, 0.469594E-01_JPRB &
+  &, 0.414028E-01_JPRB, 0.363770E-01_JPRB, 0.318582E-01_JPRB &
+  &, 0.278071E-01_JPRB, 0.241778E-01_JPRB, 0.209527E-01_JPRB, 0.180986E-01_JPRB &
+  &, 0.155647E-01_JPRB, 0.133437E-01_JPRB, 0.114003E-01_JPRB &
+  &, 0.970720E-02_JPRB, 0.823328E-02_JPRB, 0.695692E-02_JPRB, 0.585335E-02_JPRB &
+  &, 0.490894E-02_JPRB, 0.409311E-02_JPRB, 0.341707E-02_JPRB &
+  &, 0.283049E-02_JPRB, 0.234110E-02_JPRB, 0.192448E-02_JPRB, 0.157011E-02_JPRB &
+  &, 0.128315E-02_JPRB, 0.105159E-02_JPRB, 0.844262E-03_JPRB &
+  &, 0.681425E-03_JPRB, 0.547920E-03_JPRB, 0.427059E-03_JPRB, 0.339316E-03_JPRB &
+  &, 0.267292E-03_JPRB, 0.212179E-03_JPRB, 0.175200E-03_JPRB &
+  &, 0.136529E-03_JPRB, 0.961287E-04_JPRB, 0.759466E-04_JPRB, 0.548763E-04_JPRB &
+  &, 0.329001E-04_JPRB, 0.333680E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  60, :) = (/ &
+  &  0.848730E+00_JPRB, 0.812552E+00_JPRB, 0.777062E+00_JPRB, 0.742282E+00_JPRB &
+  &, 0.708225E+00_JPRB, 0.674909E+00_JPRB, 0.642350E+00_JPRB &
+  &, 0.610563E+00_JPRB, 0.579565E+00_JPRB, 0.549368E+00_JPRB, 0.519985E+00_JPRB &
+  &, 0.491434E+00_JPRB, 0.463724E+00_JPRB, 0.436867E+00_JPRB &
+  &, 0.410875E+00_JPRB, 0.385757E+00_JPRB, 0.361521E+00_JPRB, 0.338175E+00_JPRB &
+  &, 0.315726E+00_JPRB, 0.294176E+00_JPRB, 0.273533E+00_JPRB &
+  &, 0.253795E+00_JPRB, 0.234960E+00_JPRB, 0.217029E+00_JPRB, 0.199994E+00_JPRB &
+  &, 0.183854E+00_JPRB, 0.168594E+00_JPRB, 0.154203E+00_JPRB &
+  &, 0.140671E+00_JPRB, 0.127979E+00_JPRB, 0.116112E+00_JPRB, 0.105043E+00_JPRB &
+  &, 0.947583E-01_JPRB, 0.852236E-01_JPRB, 0.764174E-01_JPRB &
+  &, 0.683094E-01_JPRB, 0.608734E-01_JPRB, 0.540635E-01_JPRB, 0.478717E-01_JPRB &
+  &, 0.422456E-01_JPRB, 0.371568E-01_JPRB, 0.325712E-01_JPRB &
+  &, 0.284494E-01_JPRB, 0.247680E-01_JPRB, 0.214879E-01_JPRB, 0.185755E-01_JPRB &
+  &, 0.159924E-01_JPRB, 0.137319E-01_JPRB, 0.117338E-01_JPRB &
+  &, 0.999627E-02_JPRB, 0.848899E-02_JPRB, 0.717745E-02_JPRB, 0.605095E-02_JPRB &
+  &, 0.508235E-02_JPRB, 0.425584E-02_JPRB, 0.353821E-02_JPRB &
+  &, 0.293897E-02_JPRB, 0.243624E-02_JPRB, 0.200560E-02_JPRB, 0.163650E-02_JPRB &
+  &, 0.133408E-02_JPRB, 0.108631E-02_JPRB, 0.879762E-03_JPRB &
+  &, 0.717718E-03_JPRB, 0.566469E-03_JPRB, 0.464974E-03_JPRB, 0.358687E-03_JPRB &
+  &, 0.287084E-03_JPRB, 0.232397E-03_JPRB, 0.175200E-03_JPRB &
+  &, 0.136529E-03_JPRB, 0.961287E-04_JPRB, 0.759466E-04_JPRB, 0.548763E-04_JPRB &
+  &, 0.329001E-04_JPRB, 0.333680E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  61, :) = (/ &
+  &  0.849488E+00_JPRB, 0.813471E+00_JPRB, 0.778133E+00_JPRB, 0.743493E+00_JPRB &
+  &, 0.709566E+00_JPRB, 0.676369E+00_JPRB, 0.643919E+00_JPRB &
+  &, 0.612230E+00_JPRB, 0.581318E+00_JPRB, 0.551198E+00_JPRB, 0.521885E+00_JPRB &
+  &, 0.493390E+00_JPRB, 0.465726E+00_JPRB, 0.438909E+00_JPRB &
+  &, 0.412944E+00_JPRB, 0.387845E+00_JPRB, 0.363620E+00_JPRB, 0.340276E+00_JPRB &
+  &, 0.317821E+00_JPRB, 0.296257E+00_JPRB, 0.275592E+00_JPRB &
+  &, 0.255824E+00_JPRB, 0.236954E+00_JPRB, 0.218980E+00_JPRB, 0.201898E+00_JPRB &
+  &, 0.185701E+00_JPRB, 0.170382E+00_JPRB, 0.155932E+00_JPRB &
+  &, 0.142332E+00_JPRB, 0.129574E+00_JPRB, 0.117632E+00_JPRB, 0.106491E+00_JPRB &
+  &, 0.961263E-01_JPRB, 0.865198E-01_JPRB, 0.776375E-01_JPRB &
+  &, 0.694535E-01_JPRB, 0.619320E-01_JPRB, 0.550609E-01_JPRB, 0.487840E-01_JPRB &
+  &, 0.430885E-01_JPRB, 0.379260E-01_JPRB, 0.332735E-01_JPRB &
+  &, 0.290917E-01_JPRB, 0.253470E-01_JPRB, 0.220114E-01_JPRB, 0.190525E-01_JPRB &
+  &, 0.164200E-01_JPRB, 0.141075E-01_JPRB, 0.120801E-01_JPRB &
+  &, 0.102985E-01_JPRB, 0.875817E-02_JPRB, 0.741177E-02_JPRB, 0.624855E-02_JPRB &
+  &, 0.525576E-02_JPRB, 0.440378E-02_JPRB, 0.367450E-02_JPRB &
+  &, 0.304745E-02_JPRB, 0.253139E-02_JPRB, 0.208672E-02_JPRB, 0.171948E-02_JPRB &
+  &, 0.140198E-02_JPRB, 0.113839E-02_JPRB, 0.933013E-03_JPRB &
+  &, 0.754012E-03_JPRB, 0.603567E-03_JPRB, 0.483931E-03_JPRB, 0.378058E-03_JPRB &
+  &, 0.306876E-03_JPRB, 0.232397E-03_JPRB, 0.195850E-03_JPRB &
+  &, 0.136529E-03_JPRB, 0.117661E-03_JPRB, 0.759466E-04_JPRB, 0.548763E-04_JPRB &
+  &, 0.558002E-04_JPRB, 0.333680E-04_JPRB, 0.338418E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  62, :) = (/ &
+  &  0.850236E+00_JPRB, 0.814379E+00_JPRB, 0.779191E+00_JPRB, 0.744690E+00_JPRB &
+  &, 0.710891E+00_JPRB, 0.677812E+00_JPRB, 0.645469E+00_JPRB &
+  &, 0.613878E+00_JPRB, 0.583053E+00_JPRB, 0.553010E+00_JPRB, 0.523763E+00_JPRB &
+  &, 0.495325E+00_JPRB, 0.467709E+00_JPRB, 0.440928E+00_JPRB &
+  &, 0.414994E+00_JPRB, 0.389915E+00_JPRB, 0.365700E+00_JPRB, 0.342360E+00_JPRB &
+  &, 0.319898E+00_JPRB, 0.298322E+00_JPRB, 0.277635E+00_JPRB &
+  &, 0.257837E+00_JPRB, 0.238934E+00_JPRB, 0.220920E+00_JPRB, 0.203788E+00_JPRB &
+  &, 0.187542E+00_JPRB, 0.172167E+00_JPRB, 0.157653E+00_JPRB &
+  &, 0.143986E+00_JPRB, 0.131160E+00_JPRB, 0.119147E+00_JPRB, 0.107935E+00_JPRB &
+  &, 0.974942E-01_JPRB, 0.878117E-01_JPRB, 0.788532E-01_JPRB &
+  &, 0.705882E-01_JPRB, 0.630001E-01_JPRB, 0.560485E-01_JPRB, 0.497064E-01_JPRB &
+  &, 0.439416E-01_JPRB, 0.387059E-01_JPRB, 0.339865E-01_JPRB &
+  &, 0.297451E-01_JPRB, 0.259486E-01_JPRB, 0.225466E-01_JPRB, 0.195294E-01_JPRB &
+  &, 0.168599E-01_JPRB, 0.144956E-01_JPRB, 0.124264E-01_JPRB &
+  &, 0.106138E-01_JPRB, 0.902734E-02_JPRB, 0.764609E-02_JPRB, 0.646027E-02_JPRB &
+  &, 0.544363E-02_JPRB, 0.456651E-02_JPRB, 0.381078E-02_JPRB &
+  &, 0.317143E-02_JPRB, 0.262654E-02_JPRB, 0.216784E-02_JPRB, 0.178587E-02_JPRB &
+  &, 0.146988E-02_JPRB, 0.119047E-02_JPRB, 0.968514E-03_JPRB &
+  &, 0.790305E-03_JPRB, 0.640665E-03_JPRB, 0.502888E-03_JPRB, 0.397430E-03_JPRB &
+  &, 0.326667E-03_JPRB, 0.252615E-03_JPRB, 0.195850E-03_JPRB &
+  &, 0.157617E-03_JPRB, 0.117661E-03_JPRB, 0.979287E-04_JPRB, 0.773145E-04_JPRB &
+  &, 0.558002E-04_JPRB, 0.333680E-04_JPRB, 0.338418E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  63, :) = (/ &
+  &  0.850975E+00_JPRB, 0.815277E+00_JPRB, 0.780237E+00_JPRB, 0.745873E+00_JPRB &
+  &, 0.712201E+00_JPRB, 0.679239E+00_JPRB, 0.647003E+00_JPRB &
+  &, 0.615507E+00_JPRB, 0.584769E+00_JPRB, 0.554803E+00_JPRB, 0.525622E+00_JPRB &
+  &, 0.497241E+00_JPRB, 0.469673E+00_JPRB, 0.442931E+00_JPRB &
+  &, 0.417025E+00_JPRB, 0.391965E+00_JPRB, 0.367763E+00_JPRB, 0.344425E+00_JPRB &
+  &, 0.321959E+00_JPRB, 0.300368E+00_JPRB, 0.279662E+00_JPRB &
+  &, 0.259839E+00_JPRB, 0.240901E+00_JPRB, 0.222846E+00_JPRB, 0.205671E+00_JPRB &
+  &, 0.189371E+00_JPRB, 0.173940E+00_JPRB, 0.159366E+00_JPRB &
+  &, 0.145636E+00_JPRB, 0.132739E+00_JPRB, 0.120658E+00_JPRB, 0.109375E+00_JPRB &
+  &, 0.988622E-01_JPRB, 0.891035E-01_JPRB, 0.800688E-01_JPRB &
+  &, 0.717323E-01_JPRB, 0.640682E-01_JPRB, 0.570458E-01_JPRB, 0.506287E-01_JPRB &
+  &, 0.447845E-01_JPRB, 0.394962E-01_JPRB, 0.347103E-01_JPRB &
+  &, 0.303985E-01_JPRB, 0.265389E-01_JPRB, 0.230935E-01_JPRB, 0.200183E-01_JPRB &
+  &, 0.172876E-01_JPRB, 0.148837E-01_JPRB, 0.127728E-01_JPRB &
+  &, 0.109161E-01_JPRB, 0.929652E-02_JPRB, 0.789420E-02_JPRB, 0.667198E-02_JPRB &
+  &, 0.561704E-02_JPRB, 0.471445E-02_JPRB, 0.394706E-02_JPRB &
+  &, 0.329541E-02_JPRB, 0.272168E-02_JPRB, 0.224896E-02_JPRB, 0.185226E-02_JPRB &
+  &, 0.152081E-02_JPRB, 0.124255E-02_JPRB, 0.102176E-02_JPRB &
+  &, 0.826598E-03_JPRB, 0.659214E-03_JPRB, 0.540803E-03_JPRB, 0.436173E-03_JPRB &
+  &, 0.346459E-03_JPRB, 0.272833E-03_JPRB, 0.216500E-03_JPRB &
+  &, 0.157617E-03_JPRB, 0.117661E-03_JPRB, 0.979287E-04_JPRB, 0.773145E-04_JPRB &
+  &, 0.558002E-04_JPRB, 0.333680E-04_JPRB, 0.338418E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART9',1,ZHOOK_HANDLE)
+END SUBROUTINE PART9
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART10
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART10',0,ZHOOK_HANDLE)
+
+XCW(  64, :) = (/ &
+  &  0.851705E+00_JPRB, 0.816164E+00_JPRB, 0.781270E+00_JPRB, 0.747042E+00_JPRB &
+  &, 0.713496E+00_JPRB, 0.680650E+00_JPRB, 0.648519E+00_JPRB &
+  &, 0.617120E+00_JPRB, 0.586468E+00_JPRB, 0.556577E+00_JPRB, 0.527463E+00_JPRB &
+  &, 0.499139E+00_JPRB, 0.471618E+00_JPRB, 0.444914E+00_JPRB &
+  &, 0.419038E+00_JPRB, 0.393999E+00_JPRB, 0.369807E+00_JPRB, 0.346473E+00_JPRB &
+  &, 0.324002E+00_JPRB, 0.302402E+00_JPRB, 0.281675E+00_JPRB &
+  &, 0.261825E+00_JPRB, 0.242855E+00_JPRB, 0.224758E+00_JPRB, 0.207540E+00_JPRB &
+  &, 0.191190E+00_JPRB, 0.175706E+00_JPRB, 0.161072E+00_JPRB &
+  &, 0.147279E+00_JPRB, 0.134318E+00_JPRB, 0.122165E+00_JPRB, 0.110810E+00_JPRB &
+  &, 0.100226E+00_JPRB, 0.903910E-01_JPRB, 0.812844E-01_JPRB &
+  &, 0.728763E-01_JPRB, 0.651364E-01_JPRB, 0.580334E-01_JPRB, 0.515511E-01_JPRB &
+  &, 0.456376E-01_JPRB, 0.402760E-01_JPRB, 0.354341E-01_JPRB &
+  &, 0.310630E-01_JPRB, 0.271406E-01_JPRB, 0.236287E-01_JPRB, 0.205072E-01_JPRB &
+  &, 0.177397E-01_JPRB, 0.152843E-01_JPRB, 0.131191E-01_JPRB &
+  &, 0.112314E-01_JPRB, 0.957915E-02_JPRB, 0.812852E-02_JPRB, 0.688370E-02_JPRB &
+  &, 0.580491E-02_JPRB, 0.487718E-02_JPRB, 0.408335E-02_JPRB &
+  &, 0.340389E-02_JPRB, 0.283269E-02_JPRB, 0.234631E-02_JPRB, 0.193524E-02_JPRB &
+  &, 0.158871E-02_JPRB, 0.129463E-02_JPRB, 0.105727E-02_JPRB &
+  &, 0.862891E-03_JPRB, 0.696311E-03_JPRB, 0.559760E-03_JPRB, 0.455544E-03_JPRB &
+  &, 0.366251E-03_JPRB, 0.293050E-03_JPRB, 0.216500E-03_JPRB &
+  &, 0.178705E-03_JPRB, 0.139193E-03_JPRB, 0.979287E-04_JPRB, 0.773145E-04_JPRB &
+  &, 0.558002E-04_JPRB, 0.333680E-04_JPRB, 0.338418E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  65, :) = (/ &
+  &  0.852427E+00_JPRB, 0.817041E+00_JPRB, 0.782291E+00_JPRB, 0.748198E+00_JPRB &
+  &, 0.714777E+00_JPRB, 0.682046E+00_JPRB, 0.650020E+00_JPRB &
+  &, 0.618715E+00_JPRB, 0.588148E+00_JPRB, 0.558334E+00_JPRB, 0.529285E+00_JPRB &
+  &, 0.501018E+00_JPRB, 0.473545E+00_JPRB, 0.446879E+00_JPRB &
+  &, 0.421032E+00_JPRB, 0.396013E+00_JPRB, 0.371835E+00_JPRB, 0.348506E+00_JPRB &
+  &, 0.326032E+00_JPRB, 0.304420E+00_JPRB, 0.283673E+00_JPRB &
+  &, 0.263798E+00_JPRB, 0.244795E+00_JPRB, 0.226663E+00_JPRB, 0.209401E+00_JPRB &
+  &, 0.193001E+00_JPRB, 0.177460E+00_JPRB, 0.162770E+00_JPRB &
+  &, 0.148917E+00_JPRB, 0.135889E+00_JPRB, 0.123669E+00_JPRB, 0.112241E+00_JPRB &
+  &, 0.101585E+00_JPRB, 0.916828E-01_JPRB, 0.825000E-01_JPRB &
+  &, 0.740111E-01_JPRB, 0.662045E-01_JPRB, 0.590308E-01_JPRB, 0.524734E-01_JPRB &
+  &, 0.465011E-01_JPRB, 0.410664E-01_JPRB, 0.361580E-01_JPRB &
+  &, 0.317275E-01_JPRB, 0.277422E-01_JPRB, 0.241755E-01_JPRB, 0.209961E-01_JPRB &
+  &, 0.181796E-01_JPRB, 0.156850E-01_JPRB, 0.134783E-01_JPRB &
+  &, 0.115468E-01_JPRB, 0.984832E-02_JPRB, 0.837662E-02_JPRB, 0.709541E-02_JPRB &
+  &, 0.599277E-02_JPRB, 0.503991E-02_JPRB, 0.423477E-02_JPRB &
+  &, 0.352786E-02_JPRB, 0.294369E-02_JPRB, 0.244366E-02_JPRB, 0.201823E-02_JPRB &
+  &, 0.165661E-02_JPRB, 0.136407E-02_JPRB, 0.111052E-02_JPRB &
+  &, 0.899185E-03_JPRB, 0.733409E-03_JPRB, 0.578718E-03_JPRB, 0.474916E-03_JPRB &
+  &, 0.386043E-03_JPRB, 0.293050E-03_JPRB, 0.237150E-03_JPRB &
+  &, 0.178705E-03_JPRB, 0.139193E-03_JPRB, 0.119911E-03_JPRB, 0.773145E-04_JPRB &
+  &, 0.558002E-04_JPRB, 0.567360E-04_JPRB, 0.338418E-04_JPRB &
+  &, 0.343217E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  66, :) = (/ &
+  &  0.853141E+00_JPRB, 0.817907E+00_JPRB, 0.783301E+00_JPRB, 0.749342E+00_JPRB &
+  &, 0.716044E+00_JPRB, 0.683427E+00_JPRB, 0.651504E+00_JPRB &
+  &, 0.620294E+00_JPRB, 0.589812E+00_JPRB, 0.560072E+00_JPRB, 0.531090E+00_JPRB &
+  &, 0.502878E+00_JPRB, 0.475453E+00_JPRB, 0.448827E+00_JPRB &
+  &, 0.423008E+00_JPRB, 0.398012E+00_JPRB, 0.373847E+00_JPRB, 0.350521E+00_JPRB &
+  &, 0.328044E+00_JPRB, 0.306421E+00_JPRB, 0.285657E+00_JPRB &
+  &, 0.265758E+00_JPRB, 0.246725E+00_JPRB, 0.228555E+00_JPRB, 0.211248E+00_JPRB &
+  &, 0.194802E+00_JPRB, 0.179211E+00_JPRB, 0.164461E+00_JPRB &
+  &, 0.150547E+00_JPRB, 0.137455E+00_JPRB, 0.125172E+00_JPRB, 0.113673E+00_JPRB &
+  &, 0.102949E+00_JPRB, 0.929702E-01_JPRB, 0.837156E-01_JPRB &
+  &, 0.751552E-01_JPRB, 0.672726E-01_JPRB, 0.600282E-01_JPRB, 0.534058E-01_JPRB &
+  &, 0.473542E-01_JPRB, 0.418673E-01_JPRB, 0.368818E-01_JPRB &
+  &, 0.323919E-01_JPRB, 0.283552E-01_JPRB, 0.247340E-01_JPRB, 0.214969E-01_JPRB &
+  &, 0.186317E-01_JPRB, 0.160856E-01_JPRB, 0.138374E-01_JPRB &
+  &, 0.118621E-01_JPRB, 0.101310E-01_JPRB, 0.862473E-02_JPRB, 0.732124E-02_JPRB &
+  &, 0.619509E-02_JPRB, 0.521744E-02_JPRB, 0.437105E-02_JPRB &
+  &, 0.365184E-02_JPRB, 0.305470E-02_JPRB, 0.252478E-02_JPRB, 0.208461E-02_JPRB &
+  &, 0.172451E-02_JPRB, 0.141615E-02_JPRB, 0.116377E-02_JPRB &
+  &, 0.935478E-03_JPRB, 0.770507E-03_JPRB, 0.616632E-03_JPRB, 0.494287E-03_JPRB &
+  &, 0.386043E-03_JPRB, 0.313268E-03_JPRB, 0.257800E-03_JPRB &
+  &, 0.199793E-03_JPRB, 0.160725E-03_JPRB, 0.119911E-03_JPRB, 0.997526E-04_JPRB &
+  &, 0.787003E-04_JPRB, 0.567360E-04_JPRB, 0.338418E-04_JPRB &
+  &, 0.343217E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  67, :) = (/ &
+  &  0.853846E+00_JPRB, 0.818764E+00_JPRB, 0.784300E+00_JPRB, 0.750473E+00_JPRB &
+  &, 0.717298E+00_JPRB, 0.684793E+00_JPRB, 0.652974E+00_JPRB &
+  &, 0.621857E+00_JPRB, 0.591459E+00_JPRB, 0.561794E+00_JPRB, 0.532878E+00_JPRB &
+  &, 0.504724E+00_JPRB, 0.477345E+00_JPRB, 0.450756E+00_JPRB &
+  &, 0.424968E+00_JPRB, 0.399993E+00_JPRB, 0.375842E+00_JPRB, 0.352522E+00_JPRB &
+  &, 0.330042E+00_JPRB, 0.308410E+00_JPRB, 0.287628E+00_JPRB &
+  &, 0.267707E+00_JPRB, 0.248641E+00_JPRB, 0.230436E+00_JPRB, 0.213088E+00_JPRB &
+  &, 0.196595E+00_JPRB, 0.180951E+00_JPRB, 0.166148E+00_JPRB &
+  &, 0.152174E+00_JPRB, 0.139018E+00_JPRB, 0.126666E+00_JPRB, 0.115100E+00_JPRB &
+  &, 0.104304E+00_JPRB, 0.942577E-01_JPRB, 0.849313E-01_JPRB &
+  &, 0.762992E-01_JPRB, 0.683407E-01_JPRB, 0.610353E-01_JPRB, 0.543381E-01_JPRB &
+  &, 0.482176E-01_JPRB, 0.426577E-01_JPRB, 0.376164E-01_JPRB &
+  &, 0.330564E-01_JPRB, 0.289568E-01_JPRB, 0.252808E-01_JPRB, 0.219977E-01_JPRB &
+  &, 0.190838E-01_JPRB, 0.164862E-01_JPRB, 0.141966E-01_JPRB &
+  &, 0.121906E-01_JPRB, 0.104270E-01_JPRB, 0.888662E-02_JPRB, 0.754707E-02_JPRB &
+  &, 0.638295E-02_JPRB, 0.538017E-02_JPRB, 0.452248E-02_JPRB &
+  &, 0.379132E-02_JPRB, 0.314985E-02_JPRB, 0.262212E-02_JPRB, 0.216760E-02_JPRB &
+  &, 0.179242E-02_JPRB, 0.146823E-02_JPRB, 0.119927E-02_JPRB &
+  &, 0.989918E-03_JPRB, 0.789056E-03_JPRB, 0.635589E-03_JPRB, 0.513659E-03_JPRB &
+  &, 0.405834E-03_JPRB, 0.333486E-03_JPRB, 0.257800E-03_JPRB &
+  &, 0.199793E-03_JPRB, 0.160725E-03_JPRB, 0.119911E-03_JPRB, 0.997526E-04_JPRB &
+  &, 0.787003E-04_JPRB, 0.567360E-04_JPRB, 0.338418E-04_JPRB &
+  &, 0.343217E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  68, :) = (/ &
+  &  0.854543E+00_JPRB, 0.819611E+00_JPRB, 0.785288E+00_JPRB, 0.751592E+00_JPRB &
+  &, 0.718538E+00_JPRB, 0.686145E+00_JPRB, 0.654427E+00_JPRB &
+  &, 0.623404E+00_JPRB, 0.593090E+00_JPRB, 0.563499E+00_JPRB, 0.534648E+00_JPRB &
+  &, 0.506550E+00_JPRB, 0.479220E+00_JPRB, 0.452669E+00_JPRB &
+  &, 0.426912E+00_JPRB, 0.401960E+00_JPRB, 0.377821E+00_JPRB, 0.354507E+00_JPRB &
+  &, 0.332027E+00_JPRB, 0.310384E+00_JPRB, 0.289587E+00_JPRB &
+  &, 0.269643E+00_JPRB, 0.250550E+00_JPRB, 0.232306E+00_JPRB, 0.214918E+00_JPRB &
+  &, 0.198381E+00_JPRB, 0.182683E+00_JPRB, 0.167823E+00_JPRB &
+  &, 0.153793E+00_JPRB, 0.140573E+00_JPRB, 0.128157E+00_JPRB, 0.116527E+00_JPRB &
+  &, 0.105659E+00_JPRB, 0.955407E-01_JPRB, 0.861424E-01_JPRB &
+  &, 0.774433E-01_JPRB, 0.694183E-01_JPRB, 0.620327E-01_JPRB, 0.552705E-01_JPRB &
+  &, 0.490810E-01_JPRB, 0.434586E-01_JPRB, 0.383510E-01_JPRB &
+  &, 0.337320E-01_JPRB, 0.295812E-01_JPRB, 0.258509E-01_JPRB, 0.225104E-01_JPRB &
+  &, 0.195359E-01_JPRB, 0.168994E-01_JPRB, 0.145685E-01_JPRB &
+  &, 0.125191E-01_JPRB, 0.107097E-01_JPRB, 0.914850E-02_JPRB, 0.777290E-02_JPRB &
+  &, 0.658527E-02_JPRB, 0.555770E-02_JPRB, 0.467391E-02_JPRB &
+  &, 0.391529E-02_JPRB, 0.327671E-02_JPRB, 0.271947E-02_JPRB, 0.225058E-02_JPRB &
+  &, 0.186032E-02_JPRB, 0.153767E-02_JPRB, 0.125252E-02_JPRB &
+  &, 0.102621E-02_JPRB, 0.826154E-03_JPRB, 0.673504E-03_JPRB, 0.552402E-03_JPRB &
+  &, 0.445418E-03_JPRB, 0.353704E-03_JPRB, 0.278450E-03_JPRB &
+  &, 0.220881E-03_JPRB, 0.160725E-03_JPRB, 0.141893E-03_JPRB, 0.997526E-04_JPRB &
+  &, 0.787003E-04_JPRB, 0.567360E-04_JPRB, 0.338418E-04_JPRB &
+  &, 0.343217E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  69, :) = (/ &
+  &  0.855233E+00_JPRB, 0.820450E+00_JPRB, 0.786266E+00_JPRB, 0.752699E+00_JPRB &
+  &, 0.719766E+00_JPRB, 0.687483E+00_JPRB, 0.655868E+00_JPRB &
+  &, 0.624937E+00_JPRB, 0.594705E+00_JPRB, 0.565189E+00_JPRB, 0.536403E+00_JPRB &
+  &, 0.508361E+00_JPRB, 0.481078E+00_JPRB, 0.454566E+00_JPRB &
+  &, 0.428840E+00_JPRB, 0.403909E+00_JPRB, 0.379785E+00_JPRB, 0.356477E+00_JPRB &
+  &, 0.333995E+00_JPRB, 0.312344E+00_JPRB, 0.291532E+00_JPRB &
+  &, 0.271566E+00_JPRB, 0.252443E+00_JPRB, 0.234170E+00_JPRB, 0.216740E+00_JPRB &
+  &, 0.200156E+00_JPRB, 0.184408E+00_JPRB, 0.169494E+00_JPRB &
+  &, 0.155408E+00_JPRB, 0.142127E+00_JPRB, 0.129648E+00_JPRB, 0.117950E+00_JPRB &
+  &, 0.107014E+00_JPRB, 0.968281E-01_JPRB, 0.873580E-01_JPRB &
+  &, 0.785873E-01_JPRB, 0.704865E-01_JPRB, 0.630398E-01_JPRB, 0.562029E-01_JPRB &
+  &, 0.499547E-01_JPRB, 0.442594E-01_JPRB, 0.390857E-01_JPRB &
+  &, 0.344075E-01_JPRB, 0.301942E-01_JPRB, 0.264094E-01_JPRB, 0.230231E-01_JPRB &
+  &, 0.200002E-01_JPRB, 0.173126E-01_JPRB, 0.149405E-01_JPRB &
+  &, 0.128476E-01_JPRB, 0.110058E-01_JPRB, 0.939661E-02_JPRB, 0.799873E-02_JPRB &
+  &, 0.678758E-02_JPRB, 0.573523E-02_JPRB, 0.482533E-02_JPRB &
+  &, 0.405477E-02_JPRB, 0.338771E-02_JPRB, 0.281682E-02_JPRB, 0.233357E-02_JPRB &
+  &, 0.192822E-02_JPRB, 0.158975E-02_JPRB, 0.130577E-02_JPRB &
+  &, 0.106250E-02_JPRB, 0.863252E-03_JPRB, 0.711418E-03_JPRB, 0.571773E-03_JPRB &
+  &, 0.465209E-03_JPRB, 0.373922E-03_JPRB, 0.299100E-03_JPRB &
+  &, 0.220881E-03_JPRB, 0.182257E-03_JPRB, 0.141893E-03_JPRB, 0.997526E-04_JPRB &
+  &, 0.787003E-04_JPRB, 0.567360E-04_JPRB, 0.576837E-04_JPRB &
+  &, 0.343217E-04_JPRB, 0.348074E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  70, :) = (/ &
+  &  0.855916E+00_JPRB, 0.821280E+00_JPRB, 0.787233E+00_JPRB, 0.753795E+00_JPRB &
+  &, 0.720981E+00_JPRB, 0.688808E+00_JPRB, 0.657294E+00_JPRB &
+  &, 0.626455E+00_JPRB, 0.596305E+00_JPRB, 0.566863E+00_JPRB, 0.538142E+00_JPRB &
+  &, 0.510156E+00_JPRB, 0.482920E+00_JPRB, 0.456448E+00_JPRB &
+  &, 0.430752E+00_JPRB, 0.405843E+00_JPRB, 0.381734E+00_JPRB, 0.358434E+00_JPRB &
+  &, 0.335950E+00_JPRB, 0.314292E+00_JPRB, 0.293468E+00_JPRB &
+  &, 0.273476E+00_JPRB, 0.254328E+00_JPRB, 0.236020E+00_JPRB, 0.218552E+00_JPRB &
+  &, 0.201924E+00_JPRB, 0.186129E+00_JPRB, 0.171162E+00_JPRB &
+  &, 0.157015E+00_JPRB, 0.143674E+00_JPRB, 0.131130E+00_JPRB, 0.119368E+00_JPRB &
+  &, 0.108369E+00_JPRB, 0.981111E-01_JPRB, 0.885736E-01_JPRB &
+  &, 0.797314E-01_JPRB, 0.715641E-01_JPRB, 0.640470E-01_JPRB, 0.571353E-01_JPRB &
+  &, 0.508284E-01_JPRB, 0.450603E-01_JPRB, 0.398311E-01_JPRB &
+  &, 0.350941E-01_JPRB, 0.308185E-01_JPRB, 0.269795E-01_JPRB, 0.235359E-01_JPRB &
+  &, 0.204645E-01_JPRB, 0.177382E-01_JPRB, 0.153125E-01_JPRB &
+  &, 0.131893E-01_JPRB, 0.113153E-01_JPRB, 0.967228E-02_JPRB, 0.823868E-02_JPRB &
+  &, 0.698990E-02_JPRB, 0.591275E-02_JPRB, 0.497676E-02_JPRB &
+  &, 0.417875E-02_JPRB, 0.349872E-02_JPRB, 0.291416E-02_JPRB, 0.243315E-02_JPRB &
+  &, 0.201310E-02_JPRB, 0.165919E-02_JPRB, 0.135902E-02_JPRB &
+  &, 0.111694E-02_JPRB, 0.900350E-03_JPRB, 0.730375E-03_JPRB, 0.591145E-03_JPRB &
+  &, 0.485001E-03_JPRB, 0.394140E-03_JPRB, 0.299100E-03_JPRB &
+  &, 0.241969E-03_JPRB, 0.182257E-03_JPRB, 0.141893E-03_JPRB, 0.122191E-03_JPRB &
+  &, 0.787003E-04_JPRB, 0.567360E-04_JPRB, 0.576837E-04_JPRB &
+  &, 0.343217E-04_JPRB, 0.348074E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART10',1,ZHOOK_HANDLE)
+END SUBROUTINE PART10
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART11
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART11',0,ZHOOK_HANDLE)
+
+XCW(  71, :) = (/ &
+  &  0.856591E+00_JPRB, 0.822100E+00_JPRB, 0.788191E+00_JPRB, 0.754880E+00_JPRB &
+  &, 0.722184E+00_JPRB, 0.690121E+00_JPRB, 0.658706E+00_JPRB &
+  &, 0.627958E+00_JPRB, 0.597891E+00_JPRB, 0.568522E+00_JPRB, 0.539865E+00_JPRB &
+  &, 0.511934E+00_JPRB, 0.484747E+00_JPRB, 0.458314E+00_JPRB &
+  &, 0.432649E+00_JPRB, 0.407763E+00_JPRB, 0.383668E+00_JPRB, 0.360376E+00_JPRB &
+  &, 0.337893E+00_JPRB, 0.316227E+00_JPRB, 0.295388E+00_JPRB &
+  &, 0.275379E+00_JPRB, 0.256200E+00_JPRB, 0.237859E+00_JPRB, 0.220353E+00_JPRB &
+  &, 0.203681E+00_JPRB, 0.187839E+00_JPRB, 0.172822E+00_JPRB &
+  &, 0.158618E+00_JPRB, 0.145221E+00_JPRB, 0.132613E+00_JPRB, 0.120787E+00_JPRB &
+  &, 0.109720E+00_JPRB, 0.993941E-01_JPRB, 0.897892E-01_JPRB &
+  &, 0.808755E-01_JPRB, 0.726418E-01_JPRB, 0.650541E-01_JPRB, 0.580776E-01_JPRB &
+  &, 0.516919E-01_JPRB, 0.458718E-01_JPRB, 0.405765E-01_JPRB &
+  &, 0.357807E-01_JPRB, 0.314428E-01_JPRB, 0.275496E-01_JPRB, 0.240605E-01_JPRB &
+  &, 0.209288E-01_JPRB, 0.181639E-01_JPRB, 0.156973E-01_JPRB &
+  &, 0.135178E-01_JPRB, 0.116114E-01_JPRB, 0.993417E-02_JPRB, 0.846451E-02_JPRB &
+  &, 0.719222E-02_JPRB, 0.609028E-02_JPRB, 0.514332E-02_JPRB &
+  &, 0.431822E-02_JPRB, 0.362558E-02_JPRB, 0.302773E-02_JPRB, 0.251613E-02_JPRB &
+  &, 0.208100E-02_JPRB, 0.172862E-02_JPRB, 0.141227E-02_JPRB &
+  &, 0.115324E-02_JPRB, 0.955997E-03_JPRB, 0.768290E-03_JPRB, 0.629888E-03_JPRB &
+  &, 0.504793E-03_JPRB, 0.394140E-03_JPRB, 0.319750E-03_JPRB &
+  &, 0.263057E-03_JPRB, 0.203790E-03_JPRB, 0.163875E-03_JPRB, 0.122191E-03_JPRB &
+  &, 0.101600E-03_JPRB, 0.801040E-04_JPRB, 0.576837E-04_JPRB &
+  &, 0.343217E-04_JPRB, 0.348074E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  72, :) = (/ &
+  &  0.857259E+00_JPRB, 0.822913E+00_JPRB, 0.789139E+00_JPRB, 0.755954E+00_JPRB &
+  &, 0.723375E+00_JPRB, 0.691420E+00_JPRB, 0.660105E+00_JPRB &
+  &, 0.629447E+00_JPRB, 0.599461E+00_JPRB, 0.570165E+00_JPRB, 0.541573E+00_JPRB &
+  &, 0.513699E+00_JPRB, 0.486558E+00_JPRB, 0.460165E+00_JPRB &
+  &, 0.434531E+00_JPRB, 0.409668E+00_JPRB, 0.385589E+00_JPRB, 0.362304E+00_JPRB &
+  &, 0.339821E+00_JPRB, 0.318150E+00_JPRB, 0.297298E+00_JPRB &
+  &, 0.277266E+00_JPRB, 0.258066E+00_JPRB, 0.239691E+00_JPRB, 0.222147E+00_JPRB &
+  &, 0.205434E+00_JPRB, 0.189545E+00_JPRB, 0.174474E+00_JPRB &
+  &, 0.160217E+00_JPRB, 0.146759E+00_JPRB, 0.134091E+00_JPRB, 0.122201E+00_JPRB &
+  &, 0.111066E+00_JPRB, 0.100673E+00_JPRB, 0.910003E-01_JPRB &
+  &, 0.820195E-01_JPRB, 0.737194E-01_JPRB, 0.660613E-01_JPRB, 0.590200E-01_JPRB &
+  &, 0.525758E-01_JPRB, 0.466832E-01_JPRB, 0.413219E-01_JPRB &
+  &, 0.364674E-01_JPRB, 0.320785E-01_JPRB, 0.281197E-01_JPRB, 0.245732E-01_JPRB &
+  &, 0.214054E-01_JPRB, 0.185896E-01_JPRB, 0.160821E-01_JPRB &
+  &, 0.138725E-01_JPRB, 0.119210E-01_JPRB, 0.102098E-01_JPRB, 0.870445E-02_JPRB &
+  &, 0.740898E-02_JPRB, 0.628260E-02_JPRB, 0.530989E-02_JPRB &
+  &, 0.445770E-02_JPRB, 0.373658E-02_JPRB, 0.312508E-02_JPRB, 0.259912E-02_JPRB &
+  &, 0.216588E-02_JPRB, 0.178070E-02_JPRB, 0.146552E-02_JPRB &
+  &, 0.120768E-02_JPRB, 0.993095E-03_JPRB, 0.806204E-03_JPRB, 0.649259E-03_JPRB &
+  &, 0.524585E-03_JPRB, 0.414358E-03_JPRB, 0.340400E-03_JPRB &
+  &, 0.263057E-03_JPRB, 0.203790E-03_JPRB, 0.163875E-03_JPRB, 0.122191E-03_JPRB &
+  &, 0.101600E-03_JPRB, 0.801040E-04_JPRB, 0.576837E-04_JPRB &
+  &, 0.343217E-04_JPRB, 0.348074E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  73, :) = (/ &
+  &  0.857920E+00_JPRB, 0.823718E+00_JPRB, 0.790077E+00_JPRB, 0.757017E+00_JPRB &
+  &, 0.724554E+00_JPRB, 0.692707E+00_JPRB, 0.661491E+00_JPRB &
+  &, 0.630923E+00_JPRB, 0.601019E+00_JPRB, 0.571795E+00_JPRB, 0.543267E+00_JPRB &
+  &, 0.515448E+00_JPRB, 0.488355E+00_JPRB, 0.462000E+00_JPRB &
+  &, 0.436397E+00_JPRB, 0.411559E+00_JPRB, 0.387496E+00_JPRB, 0.364219E+00_JPRB &
+  &, 0.341737E+00_JPRB, 0.320060E+00_JPRB, 0.299194E+00_JPRB &
+  &, 0.279146E+00_JPRB, 0.259918E+00_JPRB, 0.241513E+00_JPRB, 0.223934E+00_JPRB &
+  &, 0.207180E+00_JPRB, 0.191244E+00_JPRB, 0.176123E+00_JPRB &
+  &, 0.161808E+00_JPRB, 0.148294E+00_JPRB, 0.135566E+00_JPRB, 0.123611E+00_JPRB &
+  &, 0.112417E+00_JPRB, 0.101956E+00_JPRB, 0.922159E-01_JPRB &
+  &, 0.831729E-01_JPRB, 0.747971E-01_JPRB, 0.670684E-01_JPRB, 0.599624E-01_JPRB &
+  &, 0.534495E-01_JPRB, 0.474946E-01_JPRB, 0.420782E-01_JPRB &
+  &, 0.371540E-01_JPRB, 0.327142E-01_JPRB, 0.287015E-01_JPRB, 0.251098E-01_JPRB &
+  &, 0.218819E-01_JPRB, 0.190153E-01_JPRB, 0.164669E-01_JPRB &
+  &, 0.142142E-01_JPRB, 0.122305E-01_JPRB, 0.104855E-01_JPRB, 0.895851E-02_JPRB &
+  &, 0.762575E-02_JPRB, 0.647492E-02_JPRB, 0.546132E-02_JPRB &
+  &, 0.461267E-02_JPRB, 0.386345E-02_JPRB, 0.323865E-02_JPRB, 0.269870E-02_JPRB &
+  &, 0.223378E-02_JPRB, 0.185014E-02_JPRB, 0.153652E-02_JPRB &
+  &, 0.126212E-02_JPRB, 0.103019E-02_JPRB, 0.844119E-03_JPRB, 0.688002E-03_JPRB &
+  &, 0.544376E-03_JPRB, 0.434576E-03_JPRB, 0.361050E-03_JPRB &
+  &, 0.284145E-03_JPRB, 0.225322E-03_JPRB, 0.185857E-03_JPRB, 0.144629E-03_JPRB &
+  &, 0.101600E-03_JPRB, 0.801040E-04_JPRB, 0.576837E-04_JPRB &
+  &, 0.343217E-04_JPRB, 0.348074E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  74, :) = (/ &
+  &  0.858575E+00_JPRB, 0.824514E+00_JPRB, 0.791005E+00_JPRB, 0.758070E+00_JPRB &
+  &, 0.725723E+00_JPRB, 0.693982E+00_JPRB, 0.662864E+00_JPRB &
+  &, 0.632385E+00_JPRB, 0.602562E+00_JPRB, 0.573410E+00_JPRB, 0.544946E+00_JPRB &
+  &, 0.517183E+00_JPRB, 0.490137E+00_JPRB, 0.463823E+00_JPRB &
+  &, 0.438251E+00_JPRB, 0.413435E+00_JPRB, 0.389389E+00_JPRB, 0.366120E+00_JPRB &
+  &, 0.343641E+00_JPRB, 0.321957E+00_JPRB, 0.301081E+00_JPRB &
+  &, 0.281012E+00_JPRB, 0.261763E+00_JPRB, 0.243329E+00_JPRB, 0.225710E+00_JPRB &
+  &, 0.208915E+00_JPRB, 0.192935E+00_JPRB, 0.177764E+00_JPRB &
+  &, 0.163396E+00_JPRB, 0.149825E+00_JPRB, 0.137040E+00_JPRB, 0.125022E+00_JPRB &
+  &, 0.113759E+00_JPRB, 0.103234E+00_JPRB, 0.934270E-01_JPRB &
+  &, 0.843169E-01_JPRB, 0.758747E-01_JPRB, 0.680854E-01_JPRB, 0.609149E-01_JPRB &
+  &, 0.543335E-01_JPRB, 0.483166E-01_JPRB, 0.428344E-01_JPRB &
+  &, 0.378517E-01_JPRB, 0.333499E-01_JPRB, 0.292832E-01_JPRB, 0.256345E-01_JPRB &
+  &, 0.223707E-01_JPRB, 0.194535E-01_JPRB, 0.168517E-01_JPRB &
+  &, 0.145689E-01_JPRB, 0.125401E-01_JPRB, 0.107612E-01_JPRB, 0.919845E-02_JPRB &
+  &, 0.784252E-02_JPRB, 0.665245E-02_JPRB, 0.564303E-02_JPRB &
+  &, 0.475214E-02_JPRB, 0.399031E-02_JPRB, 0.335222E-02_JPRB, 0.279828E-02_JPRB &
+  &, 0.231865E-02_JPRB, 0.191958E-02_JPRB, 0.158977E-02_JPRB &
+  &, 0.129841E-02_JPRB, 0.106729E-02_JPRB, 0.882033E-03_JPRB, 0.707374E-03_JPRB &
+  &, 0.583960E-03_JPRB, 0.454794E-03_JPRB, 0.361050E-03_JPRB &
+  &, 0.305234E-03_JPRB, 0.225322E-03_JPRB, 0.185857E-03_JPRB, 0.144629E-03_JPRB &
+  &, 0.101600E-03_JPRB, 0.801040E-04_JPRB, 0.576837E-04_JPRB &
+  &, 0.586433E-04_JPRB, 0.348074E-04_JPRB, 0.352992E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  75, :) = (/ &
+  &  0.859223E+00_JPRB, 0.825302E+00_JPRB, 0.791926E+00_JPRB, 0.759114E+00_JPRB &
+  &, 0.726880E+00_JPRB, 0.695246E+00_JPRB, 0.664225E+00_JPRB &
+  &, 0.633834E+00_JPRB, 0.604091E+00_JPRB, 0.575012E+00_JPRB, 0.546611E+00_JPRB &
+  &, 0.518904E+00_JPRB, 0.491906E+00_JPRB, 0.465630E+00_JPRB &
+  &, 0.440090E+00_JPRB, 0.415299E+00_JPRB, 0.391269E+00_JPRB, 0.368010E+00_JPRB &
+  &, 0.345532E+00_JPRB, 0.323844E+00_JPRB, 0.302956E+00_JPRB &
+  &, 0.282872E+00_JPRB, 0.263594E+00_JPRB, 0.245130E+00_JPRB, 0.227483E+00_JPRB &
+  &, 0.210646E+00_JPRB, 0.194619E+00_JPRB, 0.179401E+00_JPRB &
+  &, 0.164983E+00_JPRB, 0.151355E+00_JPRB, 0.138510E+00_JPRB, 0.126432E+00_JPRB &
+  &, 0.115105E+00_JPRB, 0.104517E+00_JPRB, 0.946427E-01_JPRB &
+  &, 0.854610E-01_JPRB, 0.769524E-01_JPRB, 0.690925E-01_JPRB, 0.618573E-01_JPRB &
+  &, 0.552175E-01_JPRB, 0.491386E-01_JPRB, 0.435906E-01_JPRB &
+  &, 0.385494E-01_JPRB, 0.339856E-01_JPRB, 0.298766E-01_JPRB, 0.261710E-01_JPRB &
+  &, 0.228472E-01_JPRB, 0.198917E-01_JPRB, 0.172494E-01_JPRB &
+  &, 0.149106E-01_JPRB, 0.128496E-01_JPRB, 0.110369E-01_JPRB, 0.945251E-02_JPRB &
+  &, 0.805928E-02_JPRB, 0.685956E-02_JPRB, 0.580960E-02_JPRB &
+  &, 0.490711E-02_JPRB, 0.411717E-02_JPRB, 0.344957E-02_JPRB, 0.288126E-02_JPRB &
+  &, 0.240353E-02_JPRB, 0.198902E-02_JPRB, 0.164302E-02_JPRB &
+  &, 0.135285E-02_JPRB, 0.110439E-02_JPRB, 0.900991E-03_JPRB, 0.746117E-03_JPRB &
+  &, 0.603751E-03_JPRB, 0.475011E-03_JPRB, 0.381700E-03_JPRB &
+  &, 0.305234E-03_JPRB, 0.246854E-03_JPRB, 0.185857E-03_JPRB, 0.144629E-03_JPRB &
+  &, 0.124500E-03_JPRB, 0.801040E-04_JPRB, 0.576837E-04_JPRB &
+  &, 0.586433E-04_JPRB, 0.348074E-04_JPRB, 0.352992E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  76, :) = (/ &
+  &  0.859865E+00_JPRB, 0.826083E+00_JPRB, 0.792837E+00_JPRB, 0.760147E+00_JPRB &
+  &, 0.728028E+00_JPRB, 0.696497E+00_JPRB, 0.665573E+00_JPRB &
+  &, 0.635271E+00_JPRB, 0.605608E+00_JPRB, 0.576600E+00_JPRB, 0.548263E+00_JPRB &
+  &, 0.520611E+00_JPRB, 0.493661E+00_JPRB, 0.467424E+00_JPRB &
+  &, 0.441916E+00_JPRB, 0.417149E+00_JPRB, 0.393135E+00_JPRB, 0.369886E+00_JPRB &
+  &, 0.347411E+00_JPRB, 0.325719E+00_JPRB, 0.304820E+00_JPRB &
+  &, 0.284719E+00_JPRB, 0.265419E+00_JPRB, 0.246927E+00_JPRB, 0.229241E+00_JPRB &
+  &, 0.212367E+00_JPRB, 0.196299E+00_JPRB, 0.181031E+00_JPRB &
+  &, 0.166559E+00_JPRB, 0.152878E+00_JPRB, 0.139976E+00_JPRB, 0.127838E+00_JPRB &
+  &, 0.116447E+00_JPRB, 0.105796E+00_JPRB, 0.958583E-01_JPRB &
+  &, 0.866144E-01_JPRB, 0.780396E-01_JPRB, 0.701094E-01_JPRB, 0.628097E-01_JPRB &
+  &, 0.561015E-01_JPRB, 0.499605E-01_JPRB, 0.443577E-01_JPRB &
+  &, 0.392581E-01_JPRB, 0.346327E-01_JPRB, 0.304583E-01_JPRB, 0.267076E-01_JPRB &
+  &, 0.233360E-01_JPRB, 0.203299E-01_JPRB, 0.176470E-01_JPRB &
+  &, 0.152785E-01_JPRB, 0.131726E-01_JPRB, 0.113263E-01_JPRB, 0.970657E-02_JPRB &
+  &, 0.829050E-02_JPRB, 0.705188E-02_JPRB, 0.597616E-02_JPRB &
+  &, 0.504659E-02_JPRB, 0.425989E-02_JPRB, 0.356314E-02_JPRB, 0.298085E-02_JPRB &
+  &, 0.248841E-02_JPRB, 0.205846E-02_JPRB, 0.171402E-02_JPRB &
+  &, 0.140729E-02_JPRB, 0.116004E-02_JPRB, 0.938905E-03_JPRB, 0.765488E-03_JPRB &
+  &, 0.623543E-03_JPRB, 0.515447E-03_JPRB, 0.402350E-03_JPRB &
+  &, 0.326322E-03_JPRB, 0.268386E-03_JPRB, 0.207840E-03_JPRB, 0.167067E-03_JPRB &
+  &, 0.124500E-03_JPRB, 0.103472E-03_JPRB, 0.815255E-04_JPRB &
+  &, 0.586433E-04_JPRB, 0.348074E-04_JPRB, 0.352992E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  77, :) = (/ &
+  &  0.860500E+00_JPRB, 0.826857E+00_JPRB, 0.793740E+00_JPRB, 0.761171E+00_JPRB &
+  &, 0.729164E+00_JPRB, 0.697739E+00_JPRB, 0.666910E+00_JPRB &
+  &, 0.636695E+00_JPRB, 0.607112E+00_JPRB, 0.578175E+00_JPRB, 0.549901E+00_JPRB &
+  &, 0.522305E+00_JPRB, 0.495402E+00_JPRB, 0.469205E+00_JPRB &
+  &, 0.443729E+00_JPRB, 0.418987E+00_JPRB, 0.394990E+00_JPRB, 0.371751E+00_JPRB &
+  &, 0.349279E+00_JPRB, 0.327585E+00_JPRB, 0.306675E+00_JPRB &
+  &, 0.286556E+00_JPRB, 0.267233E+00_JPRB, 0.248715E+00_JPRB, 0.230996E+00_JPRB &
+  &, 0.214084E+00_JPRB, 0.197972E+00_JPRB, 0.182656E+00_JPRB &
+  &, 0.168135E+00_JPRB, 0.154401E+00_JPRB, 0.141438E+00_JPRB, 0.129240E+00_JPRB &
+  &, 0.117789E+00_JPRB, 0.107074E+00_JPRB, 0.970694E-01_JPRB &
+  &, 0.877584E-01_JPRB, 0.791172E-01_JPRB, 0.711263E-01_JPRB, 0.637621E-01_JPRB &
+  &, 0.569855E-01_JPRB, 0.507825E-01_JPRB, 0.451139E-01_JPRB &
+  &, 0.399669E-01_JPRB, 0.352797E-01_JPRB, 0.310517E-01_JPRB, 0.272442E-01_JPRB &
+  &, 0.238369E-01_JPRB, 0.207806E-01_JPRB, 0.180575E-01_JPRB &
+  &, 0.156333E-01_JPRB, 0.134956E-01_JPRB, 0.116158E-01_JPRB, 0.996063E-02_JPRB &
+  &, 0.850727E-02_JPRB, 0.724420E-02_JPRB, 0.615788E-02_JPRB &
+  &, 0.520156E-02_JPRB, 0.438675E-02_JPRB, 0.369293E-02_JPRB, 0.308043E-02_JPRB &
+  &, 0.257328E-02_JPRB, 0.214526E-02_JPRB, 0.176728E-02_JPRB &
+  &, 0.146173E-02_JPRB, 0.119713E-02_JPRB, 0.976820E-03_JPRB, 0.804232E-03_JPRB &
+  &, 0.663127E-03_JPRB, 0.535665E-03_JPRB, 0.423000E-03_JPRB &
+  &, 0.347410E-03_JPRB, 0.268386E-03_JPRB, 0.207840E-03_JPRB, 0.167067E-03_JPRB &
+  &, 0.124500E-03_JPRB, 0.103472E-03_JPRB, 0.815255E-04_JPRB &
+  &, 0.586433E-04_JPRB, 0.348074E-04_JPRB, 0.352992E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART11',1,ZHOOK_HANDLE)
+END SUBROUTINE PART11
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART12
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART12',0,ZHOOK_HANDLE)
+
+XCW(  78, :) = (/ &
+  &  0.861131E+00_JPRB, 0.827623E+00_JPRB, 0.794635E+00_JPRB, 0.762186E+00_JPRB &
+  &, 0.730291E+00_JPRB, 0.698968E+00_JPRB, 0.668235E+00_JPRB &
+  &, 0.638108E+00_JPRB, 0.608603E+00_JPRB, 0.579738E+00_JPRB, 0.551527E+00_JPRB &
+  &, 0.523986E+00_JPRB, 0.497129E+00_JPRB, 0.470972E+00_JPRB &
+  &, 0.445529E+00_JPRB, 0.420810E+00_JPRB, 0.396832E+00_JPRB, 0.373603E+00_JPRB &
+  &, 0.351134E+00_JPRB, 0.329437E+00_JPRB, 0.308517E+00_JPRB &
+  &, 0.288383E+00_JPRB, 0.269041E+00_JPRB, 0.250492E+00_JPRB, 0.232744E+00_JPRB &
+  &, 0.215790E+00_JPRB, 0.199637E+00_JPRB, 0.184278E+00_JPRB &
+  &, 0.169707E+00_JPRB, 0.155915E+00_JPRB, 0.142896E+00_JPRB, 0.130641E+00_JPRB &
+  &, 0.119132E+00_JPRB, 0.108349E+00_JPRB, 0.982850E-01_JPRB &
+  &, 0.889118E-01_JPRB, 0.802044E-01_JPRB, 0.721531E-01_JPRB, 0.647145E-01_JPRB &
+  &, 0.578797E-01_JPRB, 0.516150E-01_JPRB, 0.458918E-01_JPRB &
+  &, 0.406757E-01_JPRB, 0.359381E-01_JPRB, 0.316567E-01_JPRB, 0.277927E-01_JPRB &
+  &, 0.243257E-01_JPRB, 0.212313E-01_JPRB, 0.184551E-01_JPRB &
+  &, 0.160012E-01_JPRB, 0.138186E-01_JPRB, 0.119052E-01_JPRB, 0.102147E-01_JPRB &
+  &, 0.873849E-02_JPRB, 0.745131E-02_JPRB, 0.632444E-02_JPRB &
+  &, 0.535653E-02_JPRB, 0.452947E-02_JPRB, 0.380650E-02_JPRB, 0.319661E-02_JPRB &
+  &, 0.265816E-02_JPRB, 0.221470E-02_JPRB, 0.183828E-02_JPRB &
+  &, 0.151617E-02_JPRB, 0.125278E-02_JPRB, 0.103369E-02_JPRB, 0.842974E-03_JPRB &
+  &, 0.682918E-03_JPRB, 0.555883E-03_JPRB, 0.443650E-03_JPRB &
+  &, 0.347410E-03_JPRB, 0.289918E-03_JPRB, 0.229822E-03_JPRB, 0.189505E-03_JPRB &
+  &, 0.147401E-03_JPRB, 0.103472E-03_JPRB, 0.815255E-04_JPRB &
+  &, 0.586433E-04_JPRB, 0.348074E-04_JPRB, 0.352992E-04_JPRB, 0.357969E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  79, :) = (/ &
+  &  0.861754E+00_JPRB, 0.828382E+00_JPRB, 0.795521E+00_JPRB, 0.763191E+00_JPRB &
+  &, 0.731407E+00_JPRB, 0.700188E+00_JPRB, 0.669549E+00_JPRB &
+  &, 0.639509E+00_JPRB, 0.610083E+00_JPRB, 0.581288E+00_JPRB, 0.553140E+00_JPRB &
+  &, 0.525654E+00_JPRB, 0.498845E+00_JPRB, 0.472727E+00_JPRB &
+  &, 0.447316E+00_JPRB, 0.422624E+00_JPRB, 0.398662E+00_JPRB, 0.375445E+00_JPRB &
+  &, 0.352980E+00_JPRB, 0.331277E+00_JPRB, 0.310349E+00_JPRB &
+  &, 0.290199E+00_JPRB, 0.270838E+00_JPRB, 0.252262E+00_JPRB, 0.234481E+00_JPRB &
+  &, 0.217492E+00_JPRB, 0.201298E+00_JPRB, 0.185892E+00_JPRB &
+  &, 0.171271E+00_JPRB, 0.157430E+00_JPRB, 0.144354E+00_JPRB, 0.132039E+00_JPRB &
+  &, 0.120469E+00_JPRB, 0.109627E+00_JPRB, 0.994961E-01_JPRB &
+  &, 0.900558E-01_JPRB, 0.812916E-01_JPRB, 0.731700E-01_JPRB, 0.656770E-01_JPRB &
+  &, 0.587740E-01_JPRB, 0.524475E-01_JPRB, 0.466588E-01_JPRB &
+  &, 0.413845E-01_JPRB, 0.365965E-01_JPRB, 0.322617E-01_JPRB, 0.283412E-01_JPRB &
+  &, 0.248267E-01_JPRB, 0.216820E-01_JPRB, 0.188656E-01_JPRB &
+  &, 0.163691E-01_JPRB, 0.141551E-01_JPRB, 0.121947E-01_JPRB, 0.104829E-01_JPRB &
+  &, 0.896971E-02_JPRB, 0.765843E-02_JPRB, 0.650615E-02_JPRB &
+  &, 0.552700E-02_JPRB, 0.465634E-02_JPRB, 0.392007E-02_JPRB, 0.329619E-02_JPRB &
+  &, 0.276001E-02_JPRB, 0.230150E-02_JPRB, 0.190928E-02_JPRB &
+  &, 0.157061E-02_JPRB, 0.128988E-02_JPRB, 0.107161E-02_JPRB, 0.862346E-03_JPRB &
+  &, 0.702710E-03_JPRB, 0.576101E-03_JPRB, 0.464300E-03_JPRB &
+  &, 0.368498E-03_JPRB, 0.289918E-03_JPRB, 0.229822E-03_JPRB, 0.189505E-03_JPRB &
+  &, 0.147401E-03_JPRB, 0.103472E-03_JPRB, 0.815255E-04_JPRB &
+  &, 0.586433E-04_JPRB, 0.596149E-04_JPRB, 0.352992E-04_JPRB, 0.357969E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  80, :) = (/ &
+  &  0.862372E+00_JPRB, 0.829134E+00_JPRB, 0.796400E+00_JPRB, 0.764188E+00_JPRB &
+  &, 0.732514E+00_JPRB, 0.701396E+00_JPRB, 0.670852E+00_JPRB &
+  &, 0.640898E+00_JPRB, 0.611550E+00_JPRB, 0.582826E+00_JPRB, 0.554741E+00_JPRB &
+  &, 0.527309E+00_JPRB, 0.500547E+00_JPRB, 0.474470E+00_JPRB &
+  &, 0.449091E+00_JPRB, 0.424424E+00_JPRB, 0.400481E+00_JPRB, 0.377274E+00_JPRB &
+  &, 0.354814E+00_JPRB, 0.333111E+00_JPRB, 0.312174E+00_JPRB &
+  &, 0.292010E+00_JPRB, 0.272626E+00_JPRB, 0.254025E+00_JPRB, 0.236211E+00_JPRB &
+  &, 0.219187E+00_JPRB, 0.202952E+00_JPRB, 0.187503E+00_JPRB &
+  &, 0.172835E+00_JPRB, 0.158940E+00_JPRB, 0.145812E+00_JPRB, 0.133437E+00_JPRB &
+  &, 0.121807E+00_JPRB, 0.110906E+00_JPRB, 0.100712E+00_JPRB &
+  &, 0.912092E-01_JPRB, 0.823788E-01_JPRB, 0.741967E-01_JPRB, 0.666294E-01_JPRB &
+  &, 0.596682E-01_JPRB, 0.532801E-01_JPRB, 0.474366E-01_JPRB &
+  &, 0.421043E-01_JPRB, 0.372549E-01_JPRB, 0.328667E-01_JPRB, 0.289016E-01_JPRB &
+  &, 0.253399E-01_JPRB, 0.221327E-01_JPRB, 0.192888E-01_JPRB &
+  &, 0.167370E-01_JPRB, 0.144916E-01_JPRB, 0.124979E-01_JPRB, 0.107510E-01_JPRB &
+  &, 0.921537E-02_JPRB, 0.786554E-02_JPRB, 0.670301E-02_JPRB &
+  &, 0.568197E-02_JPRB, 0.479906E-02_JPRB, 0.404987E-02_JPRB, 0.339577E-02_JPRB &
+  &, 0.284489E-02_JPRB, 0.237094E-02_JPRB, 0.198028E-02_JPRB &
+  &, 0.162505E-02_JPRB, 0.134552E-02_JPRB, 0.110952E-02_JPRB, 0.901089E-03_JPRB &
+  &, 0.742293E-03_JPRB, 0.596319E-03_JPRB, 0.484950E-03_JPRB &
+  &, 0.389586E-03_JPRB, 0.311450E-03_JPRB, 0.251804E-03_JPRB, 0.189505E-03_JPRB &
+  &, 0.147401E-03_JPRB, 0.126840E-03_JPRB, 0.105367E-03_JPRB &
+  &, 0.829650E-04_JPRB, 0.596149E-04_JPRB, 0.352992E-04_JPRB, 0.357969E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  81, :) = (/ &
+  &  0.862984E+00_JPRB, 0.829880E+00_JPRB, 0.797271E+00_JPRB, 0.765176E+00_JPRB &
+  &, 0.733612E+00_JPRB, 0.702595E+00_JPRB, 0.672145E+00_JPRB &
+  &, 0.642276E+00_JPRB, 0.613006E+00_JPRB, 0.584352E+00_JPRB, 0.556329E+00_JPRB &
+  &, 0.528953E+00_JPRB, 0.502238E+00_JPRB, 0.476201E+00_JPRB &
+  &, 0.450854E+00_JPRB, 0.426212E+00_JPRB, 0.402287E+00_JPRB, 0.379093E+00_JPRB &
+  &, 0.356637E+00_JPRB, 0.334932E+00_JPRB, 0.313987E+00_JPRB &
+  &, 0.293810E+00_JPRB, 0.274406E+00_JPRB, 0.255781E+00_JPRB, 0.237938E+00_JPRB &
+  &, 0.220878E+00_JPRB, 0.204603E+00_JPRB, 0.189109E+00_JPRB &
+  &, 0.174391E+00_JPRB, 0.160447E+00_JPRB, 0.147262E+00_JPRB, 0.134834E+00_JPRB &
+  &, 0.123145E+00_JPRB, 0.112180E+00_JPRB, 0.101923E+00_JPRB &
+  &, 0.923626E-01_JPRB, 0.834660E-01_JPRB, 0.752136E-01_JPRB, 0.675918E-01_JPRB &
+  &, 0.605728E-01_JPRB, 0.541126E-01_JPRB, 0.482145E-01_JPRB &
+  &, 0.428242E-01_JPRB, 0.379133E-01_JPRB, 0.334717E-01_JPRB, 0.294620E-01_JPRB &
+  &, 0.258408E-01_JPRB, 0.225960E-01_JPRB, 0.196993E-01_JPRB &
+  &, 0.171181E-01_JPRB, 0.148281E-01_JPRB, 0.128011E-01_JPRB, 0.110192E-01_JPRB &
+  &, 0.944659E-02_JPRB, 0.807266E-02_JPRB, 0.688472E-02_JPRB &
+  &, 0.583695E-02_JPRB, 0.494178E-02_JPRB, 0.417966E-02_JPRB, 0.351195E-02_JPRB &
+  &, 0.292977E-02_JPRB, 0.245774E-02_JPRB, 0.203353E-02_JPRB &
+  &, 0.169764E-02_JPRB, 0.140117E-02_JPRB, 0.114743E-02_JPRB, 0.939832E-03_JPRB &
+  &, 0.762085E-03_JPRB, 0.616537E-03_JPRB, 0.505600E-03_JPRB &
+  &, 0.410674E-03_JPRB, 0.332983E-03_JPRB, 0.251804E-03_JPRB, 0.211943E-03_JPRB &
+  &, 0.170301E-03_JPRB, 0.126840E-03_JPRB, 0.105367E-03_JPRB &
+  &, 0.829650E-04_JPRB, 0.596149E-04_JPRB, 0.352992E-04_JPRB, 0.357969E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  82, :) = (/ &
+  &  0.863590E+00_JPRB, 0.830619E+00_JPRB, 0.798134E+00_JPRB, 0.766156E+00_JPRB &
+  &, 0.734699E+00_JPRB, 0.703784E+00_JPRB, 0.673426E+00_JPRB &
+  &, 0.643643E+00_JPRB, 0.614451E+00_JPRB, 0.585867E+00_JPRB, 0.557906E+00_JPRB &
+  &, 0.530584E+00_JPRB, 0.503917E+00_JPRB, 0.477919E+00_JPRB &
+  &, 0.452606E+00_JPRB, 0.427989E+00_JPRB, 0.404083E+00_JPRB, 0.380899E+00_JPRB &
+  &, 0.358450E+00_JPRB, 0.336744E+00_JPRB, 0.315793E+00_JPRB &
+  &, 0.295600E+00_JPRB, 0.276176E+00_JPRB, 0.257526E+00_JPRB, 0.239654E+00_JPRB &
+  &, 0.222562E+00_JPRB, 0.206246E+00_JPRB, 0.190708E+00_JPRB &
+  &, 0.175943E+00_JPRB, 0.161950E+00_JPRB, 0.148711E+00_JPRB, 0.136228E+00_JPRB &
+  &, 0.124478E+00_JPRB, 0.113454E+00_JPRB, 0.103138E+00_JPRB &
+  &, 0.935066E-01_JPRB, 0.845531E-01_JPRB, 0.762403E-01_JPRB, 0.685543E-01_JPRB &
+  &, 0.614670E-01_JPRB, 0.549556E-01_JPRB, 0.489923E-01_JPRB &
+  &, 0.435440E-01_JPRB, 0.385831E-01_JPRB, 0.340884E-01_JPRB, 0.300225E-01_JPRB &
+  &, 0.263540E-01_JPRB, 0.230592E-01_JPRB, 0.201226E-01_JPRB &
+  &, 0.174991E-01_JPRB, 0.151645E-01_JPRB, 0.131044E-01_JPRB, 0.112874E-01_JPRB &
+  &, 0.969226E-02_JPRB, 0.829456E-02_JPRB, 0.706643E-02_JPRB &
+  &, 0.600742E-02_JPRB, 0.508450E-02_JPRB, 0.429324E-02_JPRB, 0.361153E-02_JPRB &
+  &, 0.303162E-02_JPRB, 0.252718E-02_JPRB, 0.210453E-02_JPRB &
+  &, 0.175208E-02_JPRB, 0.145682E-02_JPRB, 0.118535E-02_JPRB, 0.978575E-03_JPRB &
+  &, 0.801669E-03_JPRB, 0.656972E-03_JPRB, 0.526251E-03_JPRB &
+  &, 0.431762E-03_JPRB, 0.332983E-03_JPRB, 0.273786E-03_JPRB, 0.211943E-03_JPRB &
+  &, 0.170301E-03_JPRB, 0.126840E-03_JPRB, 0.105367E-03_JPRB &
+  &, 0.829650E-04_JPRB, 0.596149E-04_JPRB, 0.352992E-04_JPRB, 0.357969E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  83, :) = (/ &
+  &  0.864193E+00_JPRB, 0.831352E+00_JPRB, 0.798990E+00_JPRB, 0.767127E+00_JPRB &
+  &, 0.735779E+00_JPRB, 0.704964E+00_JPRB, 0.674698E+00_JPRB &
+  &, 0.644999E+00_JPRB, 0.615884E+00_JPRB, 0.587370E+00_JPRB, 0.559471E+00_JPRB &
+  &, 0.532204E+00_JPRB, 0.505583E+00_JPRB, 0.479627E+00_JPRB &
+  &, 0.454346E+00_JPRB, 0.429755E+00_JPRB, 0.405868E+00_JPRB, 0.382697E+00_JPRB &
+  &, 0.360253E+00_JPRB, 0.338546E+00_JPRB, 0.317586E+00_JPRB &
+  &, 0.297384E+00_JPRB, 0.277940E+00_JPRB, 0.259268E+00_JPRB, 0.241366E+00_JPRB &
+  &, 0.224239E+00_JPRB, 0.207885E+00_JPRB, 0.192304E+00_JPRB &
+  &, 0.177495E+00_JPRB, 0.163448E+00_JPRB, 0.150161E+00_JPRB, 0.137617E+00_JPRB &
+  &, 0.125812E+00_JPRB, 0.114728E+00_JPRB, 0.104354E+00_JPRB &
+  &, 0.946600E-01_JPRB, 0.856403E-01_JPRB, 0.772670E-01_JPRB, 0.695267E-01_JPRB &
+  &, 0.623716E-01_JPRB, 0.557987E-01_JPRB, 0.497702E-01_JPRB &
+  &, 0.442638E-01_JPRB, 0.392528E-01_JPRB, 0.347050E-01_JPRB, 0.305829E-01_JPRB &
+  &, 0.268672E-01_JPRB, 0.235350E-01_JPRB, 0.205459E-01_JPRB &
+  &, 0.178802E-01_JPRB, 0.155144E-01_JPRB, 0.134214E-01_JPRB, 0.115697E-01_JPRB &
+  &, 0.993793E-02_JPRB, 0.851647E-02_JPRB, 0.726328E-02_JPRB &
+  &, 0.617788E-02_JPRB, 0.524308E-02_JPRB, 0.442303E-02_JPRB, 0.372771E-02_JPRB &
+  &, 0.313347E-02_JPRB, 0.261398E-02_JPRB, 0.217553E-02_JPRB &
+  &, 0.180652E-02_JPRB, 0.149392E-02_JPRB, 0.124222E-02_JPRB, 0.101732E-02_JPRB &
+  &, 0.841252E-03_JPRB, 0.677190E-03_JPRB, 0.546901E-03_JPRB &
+  &, 0.452850E-03_JPRB, 0.354515E-03_JPRB, 0.295768E-03_JPRB, 0.234382E-03_JPRB &
+  &, 0.170301E-03_JPRB, 0.150208E-03_JPRB, 0.105367E-03_JPRB &
+  &, 0.829650E-04_JPRB, 0.596149E-04_JPRB, 0.605984E-04_JPRB, 0.357969E-04_JPRB &
+  &, 0.363005E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  84, :) = (/ &
+  &  0.864789E+00_JPRB, 0.832078E+00_JPRB, 0.799839E+00_JPRB, 0.768091E+00_JPRB &
+  &, 0.736849E+00_JPRB, 0.706133E+00_JPRB, 0.675960E+00_JPRB &
+  &, 0.646346E+00_JPRB, 0.617307E+00_JPRB, 0.588862E+00_JPRB, 0.561024E+00_JPRB &
+  &, 0.533812E+00_JPRB, 0.507240E+00_JPRB, 0.481322E+00_JPRB &
+  &, 0.456075E+00_JPRB, 0.431510E+00_JPRB, 0.407643E+00_JPRB, 0.384483E+00_JPRB &
+  &, 0.362045E+00_JPRB, 0.340338E+00_JPRB, 0.319372E+00_JPRB &
+  &, 0.299158E+00_JPRB, 0.279697E+00_JPRB, 0.261000E+00_JPRB, 0.243071E+00_JPRB &
+  &, 0.225909E+00_JPRB, 0.209516E+00_JPRB, 0.193895E+00_JPRB &
+  &, 0.179040E+00_JPRB, 0.164943E+00_JPRB, 0.151603E+00_JPRB, 0.139006E+00_JPRB &
+  &, 0.127145E+00_JPRB, 0.116002E+00_JPRB, 0.105565E+00_JPRB &
+  &, 0.958134E-01_JPRB, 0.867371E-01_JPRB, 0.783035E-01_JPRB, 0.704892E-01_JPRB &
+  &, 0.632864E-01_JPRB, 0.566522E-01_JPRB, 0.505588E-01_JPRB &
+  &, 0.449948E-01_JPRB, 0.399226E-01_JPRB, 0.353217E-01_JPRB, 0.311552E-01_JPRB &
+  &, 0.273926E-01_JPRB, 0.240107E-01_JPRB, 0.209820E-01_JPRB &
+  &, 0.182744E-01_JPRB, 0.158644E-01_JPRB, 0.137246E-01_JPRB, 0.118378E-01_JPRB &
+  &, 0.101836E-01_JPRB, 0.872359E-02_JPRB, 0.746013E-02_JPRB &
+  &, 0.634835E-02_JPRB, 0.538580E-02_JPRB, 0.455282E-02_JPRB, 0.384389E-02_JPRB &
+  &, 0.323533E-02_JPRB, 0.270078E-02_JPRB, 0.226428E-02_JPRB &
+  &, 0.187910E-02_JPRB, 0.154956E-02_JPRB, 0.128014E-02_JPRB, 0.105606E-02_JPRB &
+  &, 0.861044E-03_JPRB, 0.697408E-03_JPRB, 0.567551E-03_JPRB &
+  &, 0.473939E-03_JPRB, 0.376047E-03_JPRB, 0.295768E-03_JPRB, 0.234382E-03_JPRB &
+  &, 0.193201E-03_JPRB, 0.150208E-03_JPRB, 0.105367E-03_JPRB &
+  &, 0.829650E-04_JPRB, 0.596149E-04_JPRB, 0.605984E-04_JPRB, 0.357969E-04_JPRB &
+  &, 0.363005E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART12',1,ZHOOK_HANDLE)
+END SUBROUTINE PART12
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART13
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART13',0,ZHOOK_HANDLE)
+
+XCW(  85, :) = (/ &
+  &  0.865380E+00_JPRB, 0.832799E+00_JPRB, 0.800680E+00_JPRB, 0.769044E+00_JPRB &
+  &, 0.737911E+00_JPRB, 0.707294E+00_JPRB, 0.677212E+00_JPRB &
+  &, 0.647681E+00_JPRB, 0.618720E+00_JPRB, 0.590343E+00_JPRB, 0.562567E+00_JPRB &
+  &, 0.535408E+00_JPRB, 0.508884E+00_JPRB, 0.483007E+00_JPRB &
+  &, 0.457792E+00_JPRB, 0.433254E+00_JPRB, 0.409405E+00_JPRB, 0.386259E+00_JPRB &
+  &, 0.363827E+00_JPRB, 0.342121E+00_JPRB, 0.321149E+00_JPRB &
+  &, 0.300922E+00_JPRB, 0.281447E+00_JPRB, 0.262725E+00_JPRB, 0.244769E+00_JPRB &
+  &, 0.227575E+00_JPRB, 0.211144E+00_JPRB, 0.195483E+00_JPRB &
+  &, 0.180580E+00_JPRB, 0.166437E+00_JPRB, 0.153044E+00_JPRB, 0.140395E+00_JPRB &
+  &, 0.128479E+00_JPRB, 0.117277E+00_JPRB, 0.106781E+00_JPRB &
+  &, 0.969667E-01_JPRB, 0.878242E-01_JPRB, 0.793302E-01_JPRB, 0.714617E-01_JPRB &
+  &, 0.641909E-01_JPRB, 0.574953E-01_JPRB, 0.513474E-01_JPRB &
+  &, 0.457257E-01_JPRB, 0.406037E-01_JPRB, 0.359383E-01_JPRB, 0.317276E-01_JPRB &
+  &, 0.279181E-01_JPRB, 0.244865E-01_JPRB, 0.214053E-01_JPRB &
+  &, 0.186554E-01_JPRB, 0.162143E-01_JPRB, 0.140417E-01_JPRB, 0.121342E-01_JPRB &
+  &, 0.104437E-01_JPRB, 0.896029E-02_JPRB, 0.765699E-02_JPRB &
+  &, 0.651882E-02_JPRB, 0.554438E-02_JPRB, 0.469884E-02_JPRB, 0.396006E-02_JPRB &
+  &, 0.333718E-02_JPRB, 0.278757E-02_JPRB, 0.233528E-02_JPRB &
+  &, 0.193354E-02_JPRB, 0.160521E-02_JPRB, 0.133701E-02_JPRB, 0.109480E-02_JPRB &
+  &, 0.900627E-03_JPRB, 0.737844E-03_JPRB, 0.608851E-03_JPRB &
+  &, 0.495027E-03_JPRB, 0.397579E-03_JPRB, 0.317751E-03_JPRB, 0.256820E-03_JPRB &
+  &, 0.193201E-03_JPRB, 0.150208E-03_JPRB, 0.129209E-03_JPRB &
+  &, 0.107287E-03_JPRB, 0.844223E-04_JPRB, 0.605984E-04_JPRB, 0.357969E-04_JPRB &
+  &, 0.363005E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  86, :) = (/ &
+  &  0.865968E+00_JPRB, 0.833513E+00_JPRB, 0.801515E+00_JPRB, 0.769993E+00_JPRB &
+  &, 0.738964E+00_JPRB, 0.708446E+00_JPRB, 0.678454E+00_JPRB &
+  &, 0.649007E+00_JPRB, 0.620121E+00_JPRB, 0.591813E+00_JPRB, 0.564099E+00_JPRB &
+  &, 0.536995E+00_JPRB, 0.510517E+00_JPRB, 0.484681E+00_JPRB &
+  &, 0.459499E+00_JPRB, 0.434987E+00_JPRB, 0.411159E+00_JPRB, 0.388026E+00_JPRB &
+  &, 0.365503E+00_JPRB, 0.343894E+00_JPRB, 0.322920E+00_JPRB &
+  &, 0.302679E+00_JPRB, 0.283187E+00_JPRB, 0.264443E+00_JPRB, 0.246460E+00_JPRB &
+  &, 0.229233E+00_JPRB, 0.212769E+00_JPRB, 0.197066E+00_JPRB &
+  &, 0.182121E+00_JPRB, 0.167928E+00_JPRB, 0.154486E+00_JPRB, 0.141784E+00_JPRB &
+  &, 0.129808E+00_JPRB, 0.118551E+00_JPRB, 0.107996E+00_JPRB &
+  &, 0.981201E-01_JPRB, 0.889210E-01_JPRB, 0.803667E-01_JPRB, 0.724341E-01_JPRB &
+  &, 0.651057E-01_JPRB, 0.583489E-01_JPRB, 0.521469E-01_JPRB &
+  &, 0.464677E-01_JPRB, 0.412848E-01_JPRB, 0.365666E-01_JPRB, 0.322999E-01_JPRB &
+  &, 0.284435E-01_JPRB, 0.249623E-01_JPRB, 0.218414E-01_JPRB &
+  &, 0.190628E-01_JPRB, 0.165777E-01_JPRB, 0.143587E-01_JPRB, 0.124165E-01_JPRB &
+  &, 0.106894E-01_JPRB, 0.918220E-02_JPRB, 0.785384E-02_JPRB &
+  &, 0.670479E-02_JPRB, 0.570295E-02_JPRB, 0.482864E-02_JPRB, 0.407624E-02_JPRB &
+  &, 0.343903E-02_JPRB, 0.287437E-02_JPRB, 0.240628E-02_JPRB &
+  &, 0.200613E-02_JPRB, 0.166086E-02_JPRB, 0.137492E-02_JPRB, 0.113355E-02_JPRB &
+  &, 0.940211E-03_JPRB, 0.758062E-03_JPRB, 0.629501E-03_JPRB &
+  &, 0.516115E-03_JPRB, 0.419111E-03_JPRB, 0.339733E-03_JPRB, 0.256820E-03_JPRB &
+  &, 0.216101E-03_JPRB, 0.173576E-03_JPRB, 0.129209E-03_JPRB &
+  &, 0.107287E-03_JPRB, 0.844223E-04_JPRB, 0.605984E-04_JPRB, 0.357969E-04_JPRB &
+  &, 0.363005E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  87, :) = (/ &
+  &  0.866548E+00_JPRB, 0.834220E+00_JPRB, 0.802343E+00_JPRB, 0.770934E+00_JPRB &
+  &, 0.740009E+00_JPRB, 0.709588E+00_JPRB, 0.679687E+00_JPRB &
+  &, 0.650322E+00_JPRB, 0.621513E+00_JPRB, 0.593273E+00_JPRB, 0.565621E+00_JPRB &
+  &, 0.538571E+00_JPRB, 0.512141E+00_JPRB, 0.486322E+00_JPRB &
+  &, 0.461195E+00_JPRB, 0.436710E+00_JPRB, 0.412901E+00_JPRB, 0.389783E+00_JPRB &
+  &, 0.367366E+00_JPRB, 0.345661E+00_JPRB, 0.324677E+00_JPRB &
+  &, 0.304430E+00_JPRB, 0.284920E+00_JPRB, 0.266157E+00_JPRB, 0.248144E+00_JPRB &
+  &, 0.230888E+00_JPRB, 0.214385E+00_JPRB, 0.198642E+00_JPRB &
+  &, 0.183654E+00_JPRB, 0.169418E+00_JPRB, 0.155923E+00_JPRB, 0.143169E+00_JPRB &
+  &, 0.131137E+00_JPRB, 0.119825E+00_JPRB, 0.109207E+00_JPRB &
+  &, 0.992734E-01_JPRB, 0.900177E-01_JPRB, 0.813934E-01_JPRB, 0.734066E-01_JPRB &
+  &, 0.660103E-01_JPRB, 0.592025E-01_JPRB, 0.529463E-01_JPRB &
+  &, 0.472097E-01_JPRB, 0.419659E-01_JPRB, 0.372065E-01_JPRB, 0.328842E-01_JPRB &
+  &, 0.289689E-01_JPRB, 0.254505E-01_JPRB, 0.222903E-01_JPRB &
+  &, 0.194570E-01_JPRB, 0.169276E-01_JPRB, 0.146895E-01_JPRB, 0.126988E-01_JPRB &
+  &, 0.109495E-01_JPRB, 0.940410E-02_JPRB, 0.806584E-02_JPRB &
+  &, 0.687526E-02_JPRB, 0.586153E-02_JPRB, 0.497466E-02_JPRB, 0.419242E-02_JPRB &
+  &, 0.354088E-02_JPRB, 0.297853E-02_JPRB, 0.249504E-02_JPRB &
+  &, 0.207872E-02_JPRB, 0.171650E-02_JPRB, 0.143179E-02_JPRB, 0.117229E-02_JPRB &
+  &, 0.960002E-03_JPRB, 0.798498E-03_JPRB, 0.650151E-03_JPRB &
+  &, 0.537203E-03_JPRB, 0.419111E-03_JPRB, 0.339733E-03_JPRB, 0.279258E-03_JPRB &
+  &, 0.216101E-03_JPRB, 0.173576E-03_JPRB, 0.129209E-03_JPRB &
+  &, 0.107287E-03_JPRB, 0.844223E-04_JPRB, 0.605984E-04_JPRB, 0.357969E-04_JPRB &
+  &, 0.363005E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  88, :) = (/ &
+  &  0.867125E+00_JPRB, 0.834923E+00_JPRB, 0.803164E+00_JPRB, 0.771867E+00_JPRB &
+  &, 0.741047E+00_JPRB, 0.710722E+00_JPRB, 0.680911E+00_JPRB &
+  &, 0.651629E+00_JPRB, 0.622895E+00_JPRB, 0.594723E+00_JPRB, 0.567132E+00_JPRB &
+  &, 0.540136E+00_JPRB, 0.513753E+00_JPRB, 0.487996E+00_JPRB &
+  &, 0.462881E+00_JPRB, 0.438423E+00_JPRB, 0.414636E+00_JPRB, 0.391530E+00_JPRB &
+  &, 0.369121E+00_JPRB, 0.347416E+00_JPRB, 0.326431E+00_JPRB &
+  &, 0.306170E+00_JPRB, 0.286646E+00_JPRB, 0.267861E+00_JPRB, 0.249824E+00_JPRB &
+  &, 0.232536E+00_JPRB, 0.216002E+00_JPRB, 0.200218E+00_JPRB &
+  &, 0.185187E+00_JPRB, 0.170901E+00_JPRB, 0.157360E+00_JPRB, 0.144550E+00_JPRB &
+  &, 0.132466E+00_JPRB, 0.121095E+00_JPRB, 0.110423E+00_JPRB &
+  &, 0.100436E+00_JPRB, 0.911144E-01_JPRB, 0.824299E-01_JPRB, 0.743791E-01_JPRB &
+  &, 0.669353E-01_JPRB, 0.600560E-01_JPRB, 0.537350E-01_JPRB &
+  &, 0.479517E-01_JPRB, 0.426583E-01_JPRB, 0.378348E-01_JPRB, 0.334565E-01_JPRB &
+  &, 0.295065E-01_JPRB, 0.259388E-01_JPRB, 0.227265E-01_JPRB &
+  &, 0.198511E-01_JPRB, 0.172910E-01_JPRB, 0.150203E-01_JPRB, 0.129952E-01_JPRB &
+  &, 0.112096E-01_JPRB, 0.964081E-02_JPRB, 0.826269E-02_JPRB &
+  &, 0.706122E-02_JPRB, 0.602011E-02_JPRB, 0.510445E-02_JPRB, 0.432520E-02_JPRB &
+  &, 0.364273E-02_JPRB, 0.306533E-02_JPRB, 0.256604E-02_JPRB &
+  &, 0.215130E-02_JPRB, 0.179070E-02_JPRB, 0.146971E-02_JPRB, 0.123040E-02_JPRB &
+  &, 0.999586E-03_JPRB, 0.818715E-03_JPRB, 0.670801E-03_JPRB &
+  &, 0.558291E-03_JPRB, 0.440643E-03_JPRB, 0.361715E-03_JPRB, 0.279258E-03_JPRB &
+  &, 0.239001E-03_JPRB, 0.173576E-03_JPRB, 0.153051E-03_JPRB &
+  &, 0.107287E-03_JPRB, 0.844223E-04_JPRB, 0.605984E-04_JPRB, 0.615938E-04_JPRB &
+  &, 0.363005E-04_JPRB, 0.368102E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  89, :) = (/ &
+  &  0.867697E+00_JPRB, 0.835621E+00_JPRB, 0.803980E+00_JPRB, 0.772792E+00_JPRB &
+  &, 0.742076E+00_JPRB, 0.711848E+00_JPRB, 0.682126E+00_JPRB &
+  &, 0.652926E+00_JPRB, 0.624267E+00_JPRB, 0.596162E+00_JPRB, 0.568633E+00_JPRB &
+  &, 0.541690E+00_JPRB, 0.515354E+00_JPRB, 0.489639E+00_JPRB &
+  &, 0.464558E+00_JPRB, 0.440127E+00_JPRB, 0.416358E+00_JPRB, 0.393268E+00_JPRB &
+  &, 0.370866E+00_JPRB, 0.349164E+00_JPRB, 0.328172E+00_JPRB &
+  &, 0.307904E+00_JPRB, 0.288362E+00_JPRB, 0.269558E+00_JPRB, 0.251497E+00_JPRB &
+  &, 0.234180E+00_JPRB, 0.217608E+00_JPRB, 0.201787E+00_JPRB &
+  &, 0.186715E+00_JPRB, 0.172384E+00_JPRB, 0.158794E+00_JPRB, 0.145931E+00_JPRB &
+  &, 0.133795E+00_JPRB, 0.122369E+00_JPRB, 0.111639E+00_JPRB &
+  &, 0.101589E+00_JPRB, 0.922111E-01_JPRB, 0.834664E-01_JPRB, 0.753616E-01_JPRB &
+  &, 0.678502E-01_JPRB, 0.609202E-01_JPRB, 0.545452E-01_JPRB &
+  &, 0.486937E-01_JPRB, 0.433508E-01_JPRB, 0.384747E-01_JPRB, 0.340527E-01_JPRB &
+  &, 0.300442E-01_JPRB, 0.264271E-01_JPRB, 0.231754E-01_JPRB &
+  &, 0.202585E-01_JPRB, 0.176544E-01_JPRB, 0.153511E-01_JPRB, 0.132916E-01_JPRB &
+  &, 0.114698E-01_JPRB, 0.987751E-02_JPRB, 0.847469E-02_JPRB &
+  &, 0.724719E-02_JPRB, 0.617869E-02_JPRB, 0.525047E-02_JPRB, 0.444137E-02_JPRB &
+  &, 0.376156E-02_JPRB, 0.315213E-02_JPRB, 0.265479E-02_JPRB &
+  &, 0.220574E-02_JPRB, 0.184635E-02_JPRB, 0.152658E-02_JPRB, 0.126915E-02_JPRB &
+  &, 0.103917E-02_JPRB, 0.859151E-03_JPRB, 0.691451E-03_JPRB &
+  &, 0.579379E-03_JPRB, 0.462176E-03_JPRB, 0.383697E-03_JPRB, 0.301696E-03_JPRB &
+  &, 0.239001E-03_JPRB, 0.196944E-03_JPRB, 0.153051E-03_JPRB &
+  &, 0.107287E-03_JPRB, 0.844223E-04_JPRB, 0.605984E-04_JPRB, 0.615938E-04_JPRB &
+  &, 0.363005E-04_JPRB, 0.368102E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  90, :) = (/ &
+  &  0.868265E+00_JPRB, 0.836312E+00_JPRB, 0.804788E+00_JPRB, 0.773711E+00_JPRB &
+  &, 0.743097E+00_JPRB, 0.712965E+00_JPRB, 0.683332E+00_JPRB &
+  &, 0.654214E+00_JPRB, 0.625629E+00_JPRB, 0.597593E+00_JPRB, 0.570124E+00_JPRB &
+  &, 0.543236E+00_JPRB, 0.516946E+00_JPRB, 0.491271E+00_JPRB &
+  &, 0.466224E+00_JPRB, 0.441820E+00_JPRB, 0.418073E+00_JPRB, 0.394996E+00_JPRB &
+  &, 0.372603E+00_JPRB, 0.350902E+00_JPRB, 0.329910E+00_JPRB &
+  &, 0.309632E+00_JPRB, 0.290075E+00_JPRB, 0.271252E+00_JPRB, 0.253163E+00_JPRB &
+  &, 0.235817E+00_JPRB, 0.219213E+00_JPRB, 0.203355E+00_JPRB &
+  &, 0.188236E+00_JPRB, 0.173862E+00_JPRB, 0.160223E+00_JPRB, 0.147311E+00_JPRB &
+  &, 0.135120E+00_JPRB, 0.123638E+00_JPRB, 0.112854E+00_JPRB &
+  &, 0.102743E+00_JPRB, 0.933079E-01_JPRB, 0.845126E-01_JPRB, 0.763341E-01_JPRB &
+  &, 0.687753E-01_JPRB, 0.617843E-01_JPRB, 0.553447E-01_JPRB &
+  &, 0.494467E-01_JPRB, 0.440432E-01_JPRB, 0.391146E-01_JPRB, 0.346370E-01_JPRB &
+  &, 0.305818E-01_JPRB, 0.269154E-01_JPRB, 0.236243E-01_JPRB &
+  &, 0.206658E-01_JPRB, 0.180312E-01_JPRB, 0.156819E-01_JPRB, 0.135880E-01_JPRB &
+  &, 0.117443E-01_JPRB, 0.101142E-01_JPRB, 0.868668E-02_JPRB &
+  &, 0.743316E-02_JPRB, 0.633727E-02_JPRB, 0.539649E-02_JPRB, 0.457415E-02_JPRB &
+  &, 0.386341E-02_JPRB, 0.325629E-02_JPRB, 0.272579E-02_JPRB &
+  &, 0.227833E-02_JPRB, 0.190199E-02_JPRB, 0.158345E-02_JPRB, 0.130789E-02_JPRB &
+  &, 0.107875E-02_JPRB, 0.879369E-03_JPRB, 0.732751E-03_JPRB &
+  &, 0.600467E-03_JPRB, 0.483708E-03_JPRB, 0.383697E-03_JPRB, 0.324134E-03_JPRB &
+  &, 0.261901E-03_JPRB, 0.196944E-03_JPRB, 0.153051E-03_JPRB &
+  &, 0.131608E-03_JPRB, 0.844223E-04_JPRB, 0.858975E-04_JPRB, 0.615938E-04_JPRB &
+  &, 0.363005E-04_JPRB, 0.368102E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  91, :) = (/ &
+  &  0.868828E+00_JPRB, 0.836998E+00_JPRB, 0.805590E+00_JPRB, 0.774623E+00_JPRB &
+  &, 0.744111E+00_JPRB, 0.714075E+00_JPRB, 0.684529E+00_JPRB &
+  &, 0.655493E+00_JPRB, 0.626982E+00_JPRB, 0.599014E+00_JPRB, 0.571606E+00_JPRB &
+  &, 0.544772E+00_JPRB, 0.518529E+00_JPRB, 0.492894E+00_JPRB &
+  &, 0.467881E+00_JPRB, 0.443503E+00_JPRB, 0.419778E+00_JPRB, 0.396715E+00_JPRB &
+  &, 0.374331E+00_JPRB, 0.352634E+00_JPRB, 0.331635E+00_JPRB &
+  &, 0.311349E+00_JPRB, 0.291781E+00_JPRB, 0.272935E+00_JPRB, 0.254826E+00_JPRB &
+  &, 0.237450E+00_JPRB, 0.220811E+00_JPRB, 0.204916E+00_JPRB &
+  &, 0.189757E+00_JPRB, 0.175341E+00_JPRB, 0.161652E+00_JPRB, 0.148692E+00_JPRB &
+  &, 0.136449E+00_JPRB, 0.124913E+00_JPRB, 0.114070E+00_JPRB &
+  &, 0.103905E+00_JPRB, 0.944046E-01_JPRB, 0.855491E-01_JPRB, 0.773166E-01_JPRB &
+  &, 0.696901E-01_JPRB, 0.626484E-01_JPRB, 0.561549E-01_JPRB &
+  &, 0.501998E-01_JPRB, 0.447357E-01_JPRB, 0.397662E-01_JPRB, 0.352332E-01_JPRB &
+  &, 0.311316E-01_JPRB, 0.274162E-01_JPRB, 0.240861E-01_JPRB &
+  &, 0.210863E-01_JPRB, 0.184081E-01_JPRB, 0.160127E-01_JPRB, 0.138985E-01_JPRB &
+  &, 0.120189E-01_JPRB, 0.103509E-01_JPRB, 0.889868E-02_JPRB &
+  &, 0.761912E-02_JPRB, 0.651170E-02_JPRB, 0.554251E-02_JPRB, 0.470692E-02_JPRB &
+  &, 0.398224E-02_JPRB, 0.334309E-02_JPRB, 0.281454E-02_JPRB &
+  &, 0.235091E-02_JPRB, 0.197619E-02_JPRB, 0.164032E-02_JPRB, 0.136600E-02_JPRB &
+  &, 0.111834E-02_JPRB, 0.919805E-03_JPRB, 0.753401E-03_JPRB &
+  &, 0.621555E-03_JPRB, 0.505240E-03_JPRB, 0.405679E-03_JPRB, 0.324134E-03_JPRB &
+  &, 0.261901E-03_JPRB, 0.220312E-03_JPRB, 0.176893E-03_JPRB &
+  &, 0.131608E-03_JPRB, 0.109230E-03_JPRB, 0.858975E-04_JPRB, 0.615938E-04_JPRB &
+  &, 0.363005E-04_JPRB, 0.368102E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART13',1,ZHOOK_HANDLE)
+END SUBROUTINE PART13
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART14
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART14',0,ZHOOK_HANDLE)
+
+XCW(  92, :) = (/ &
+  &  0.869385E+00_JPRB, 0.837680E+00_JPRB, 0.806387E+00_JPRB, 0.775527E+00_JPRB &
+  &, 0.745118E+00_JPRB, 0.715176E+00_JPRB, 0.685718E+00_JPRB &
+  &, 0.656762E+00_JPRB, 0.628326E+00_JPRB, 0.600425E+00_JPRB, 0.573077E+00_JPRB &
+  &, 0.546297E+00_JPRB, 0.520102E+00_JPRB, 0.494507E+00_JPRB &
+  &, 0.469528E+00_JPRB, 0.445178E+00_JPRB, 0.421474E+00_JPRB, 0.398426E+00_JPRB &
+  &, 0.376050E+00_JPRB, 0.354357E+00_JPRB, 0.333357E+00_JPRB &
+  &, 0.313060E+00_JPRB, 0.293480E+00_JPRB, 0.274615E+00_JPRB, 0.256481E+00_JPRB &
+  &, 0.239076E+00_JPRB, 0.222406E+00_JPRB, 0.206473E+00_JPRB &
+  &, 0.191278E+00_JPRB, 0.176815E+00_JPRB, 0.163081E+00_JPRB, 0.150069E+00_JPRB &
+  &, 0.137774E+00_JPRB, 0.126182E+00_JPRB, 0.115286E+00_JPRB &
+  &, 0.105059E+00_JPRB, 0.955013E-01_JPRB, 0.865954E-01_JPRB, 0.783091E-01_JPRB &
+  &, 0.706152E-01_JPRB, 0.635125E-01_JPRB, 0.569652E-01_JPRB &
+  &, 0.509529E-01_JPRB, 0.454395E-01_JPRB, 0.404061E-01_JPRB, 0.358294E-01_JPRB &
+  &, 0.316815E-01_JPRB, 0.279170E-01_JPRB, 0.245351E-01_JPRB &
+  &, 0.215068E-01_JPRB, 0.187849E-01_JPRB, 0.163573E-01_JPRB, 0.141949E-01_JPRB &
+  &, 0.122935E-01_JPRB, 0.106024E-01_JPRB, 0.911067E-02_JPRB &
+  &, 0.782059E-02_JPRB, 0.668614E-02_JPRB, 0.568853E-02_JPRB, 0.483970E-02_JPRB &
+  &, 0.408409E-02_JPRB, 0.344725E-02_JPRB, 0.290329E-02_JPRB &
+  &, 0.244165E-02_JPRB, 0.203184E-02_JPRB, 0.169719E-02_JPRB, 0.140475E-02_JPRB &
+  &, 0.115792E-02_JPRB, 0.960241E-03_JPRB, 0.794701E-03_JPRB &
+  &, 0.642643E-03_JPRB, 0.526772E-03_JPRB, 0.427662E-03_JPRB, 0.346572E-03_JPRB &
+  &, 0.284801E-03_JPRB, 0.220312E-03_JPRB, 0.176893E-03_JPRB &
+  &, 0.131608E-03_JPRB, 0.109230E-03_JPRB, 0.858975E-04_JPRB, 0.615938E-04_JPRB &
+  &, 0.363005E-04_JPRB, 0.368102E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  93, :) = (/ &
+  &  0.869941E+00_JPRB, 0.838355E+00_JPRB, 0.807177E+00_JPRB, 0.776426E+00_JPRB &
+  &, 0.746117E+00_JPRB, 0.716269E+00_JPRB, 0.686899E+00_JPRB &
+  &, 0.658024E+00_JPRB, 0.629661E+00_JPRB, 0.601828E+00_JPRB, 0.574539E+00_JPRB &
+  &, 0.547813E+00_JPRB, 0.521664E+00_JPRB, 0.496110E+00_JPRB &
+  &, 0.471165E+00_JPRB, 0.446843E+00_JPRB, 0.423161E+00_JPRB, 0.400128E+00_JPRB &
+  &, 0.377761E+00_JPRB, 0.356070E+00_JPRB, 0.335069E+00_JPRB &
+  &, 0.314767E+00_JPRB, 0.295169E+00_JPRB, 0.276291E+00_JPRB, 0.258130E+00_JPRB &
+  &, 0.240698E+00_JPRB, 0.223997E+00_JPRB, 0.208030E+00_JPRB &
+  &, 0.192792E+00_JPRB, 0.178286E+00_JPRB, 0.164506E+00_JPRB, 0.151445E+00_JPRB &
+  &, 0.139099E+00_JPRB, 0.127452E+00_JPRB, 0.116501E+00_JPRB &
+  &, 0.106222E+00_JPRB, 0.966076E-01_JPRB, 0.876416E-01_JPRB, 0.792916E-01_JPRB &
+  &, 0.715505E-01_JPRB, 0.643872E-01_JPRB, 0.577862E-01_JPRB &
+  &, 0.517059E-01_JPRB, 0.461433E-01_JPRB, 0.410576E-01_JPRB, 0.364375E-01_JPRB &
+  &, 0.322313E-01_JPRB, 0.284303E-01_JPRB, 0.249968E-01_JPRB &
+  &, 0.219141E-01_JPRB, 0.191618E-01_JPRB, 0.167019E-01_JPRB, 0.145055E-01_JPRB &
+  &, 0.125680E-01_JPRB, 0.108539E-01_JPRB, 0.933781E-02_JPRB &
+  &, 0.800656E-02_JPRB, 0.686057E-02_JPRB, 0.585077E-02_JPRB, 0.497247E-02_JPRB &
+  &, 0.420292E-02_JPRB, 0.355141E-02_JPRB, 0.299204E-02_JPRB &
+  &, 0.251423E-02_JPRB, 0.210603E-02_JPRB, 0.175407E-02_JPRB, 0.144349E-02_JPRB &
+  &, 0.119750E-02_JPRB, 0.100068E-02_JPRB, 0.815351E-03_JPRB &
+  &, 0.663732E-03_JPRB, 0.548304E-03_JPRB, 0.449644E-03_JPRB, 0.346572E-03_JPRB &
+  &, 0.284801E-03_JPRB, 0.220312E-03_JPRB, 0.176893E-03_JPRB &
+  &, 0.155930E-03_JPRB, 0.109230E-03_JPRB, 0.858975E-04_JPRB, 0.615938E-04_JPRB &
+  &, 0.626011E-04_JPRB, 0.368102E-04_JPRB, 0.373257E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  94, :) = (/ &
+  &  0.870491E+00_JPRB, 0.839026E+00_JPRB, 0.807962E+00_JPRB, 0.777318E+00_JPRB &
+  &, 0.747109E+00_JPRB, 0.717355E+00_JPRB, 0.688072E+00_JPRB &
+  &, 0.659277E+00_JPRB, 0.630988E+00_JPRB, 0.603221E+00_JPRB, 0.575993E+00_JPRB &
+  &, 0.549320E+00_JPRB, 0.523219E+00_JPRB, 0.497705E+00_JPRB &
+  &, 0.472793E+00_JPRB, 0.448500E+00_JPRB, 0.424838E+00_JPRB, 0.401822E+00_JPRB &
+  &, 0.379465E+00_JPRB, 0.357777E+00_JPRB, 0.336775E+00_JPRB &
+  &, 0.316465E+00_JPRB, 0.296854E+00_JPRB, 0.277957E+00_JPRB, 0.259775E+00_JPRB &
+  &, 0.242317E+00_JPRB, 0.225583E+00_JPRB, 0.209579E+00_JPRB &
+  &, 0.194305E+00_JPRB, 0.179752E+00_JPRB, 0.165927E+00_JPRB, 0.152818E+00_JPRB &
+  &, 0.140419E+00_JPRB, 0.128722E+00_JPRB, 0.117717E+00_JPRB &
+  &, 0.107384E+00_JPRB, 0.977138E-01_JPRB, 0.886781E-01_JPRB, 0.802741E-01_JPRB &
+  &, 0.724756E-01_JPRB, 0.652619E-01_JPRB, 0.585965E-01_JPRB &
+  &, 0.524701E-01_JPRB, 0.468584E-01_JPRB, 0.417208E-01_JPRB, 0.370337E-01_JPRB &
+  &, 0.327812E-01_JPRB, 0.289436E-01_JPRB, 0.254714E-01_JPRB &
+  &, 0.223477E-01_JPRB, 0.195521E-01_JPRB, 0.170465E-01_JPRB, 0.148160E-01_JPRB &
+  &, 0.128426E-01_JPRB, 0.111054E-01_JPRB, 0.956495E-02_JPRB &
+  &, 0.820802E-02_JPRB, 0.703501E-02_JPRB, 0.599679E-02_JPRB, 0.510525E-02_JPRB &
+  &, 0.432175E-02_JPRB, 0.365557E-02_JPRB, 0.308079E-02_JPRB &
+  &, 0.258682E-02_JPRB, 0.216168E-02_JPRB, 0.181094E-02_JPRB, 0.150161E-02_JPRB &
+  &, 0.123709E-02_JPRB, 0.102089E-02_JPRB, 0.836001E-03_JPRB &
+  &, 0.684820E-03_JPRB, 0.569836E-03_JPRB, 0.449644E-03_JPRB, 0.369011E-03_JPRB &
+  &, 0.307701E-03_JPRB, 0.243680E-03_JPRB, 0.200735E-03_JPRB &
+  &, 0.155930E-03_JPRB, 0.109230E-03_JPRB, 0.858975E-04_JPRB, 0.615938E-04_JPRB &
+  &, 0.626011E-04_JPRB, 0.368102E-04_JPRB, 0.373257E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  95, :) = (/ &
+  &  0.871035E+00_JPRB, 0.839691E+00_JPRB, 0.808741E+00_JPRB, 0.778203E+00_JPRB &
+  &, 0.748095E+00_JPRB, 0.718433E+00_JPRB, 0.689237E+00_JPRB &
+  &, 0.660521E+00_JPRB, 0.632305E+00_JPRB, 0.604605E+00_JPRB, 0.577437E+00_JPRB &
+  &, 0.550817E+00_JPRB, 0.524763E+00_JPRB, 0.499289E+00_JPRB &
+  &, 0.474413E+00_JPRB, 0.450147E+00_JPRB, 0.426507E+00_JPRB, 0.403508E+00_JPRB &
+  &, 0.381160E+00_JPRB, 0.359477E+00_JPRB, 0.338474E+00_JPRB &
+  &, 0.318156E+00_JPRB, 0.298533E+00_JPRB, 0.279619E+00_JPRB, 0.261416E+00_JPRB &
+  &, 0.243917E+00_JPRB, 0.227167E+00_JPRB, 0.211125E+00_JPRB &
+  &, 0.195810E+00_JPRB, 0.181219E+00_JPRB, 0.167348E+00_JPRB, 0.154194E+00_JPRB &
+  &, 0.141744E+00_JPRB, 0.129996E+00_JPRB, 0.118932E+00_JPRB &
+  &, 0.108547E+00_JPRB, 0.988106E-01_JPRB, 0.897341E-01_JPRB, 0.812666E-01_JPRB &
+  &, 0.734110E-01_JPRB, 0.661365E-01_JPRB, 0.594175E-01_JPRB &
+  &, 0.532342E-01_JPRB, 0.475622E-01_JPRB, 0.423724E-01_JPRB, 0.376418E-01_JPRB &
+  &, 0.333433E-01_JPRB, 0.294569E-01_JPRB, 0.259332E-01_JPRB &
+  &, 0.227682E-01_JPRB, 0.199289E-01_JPRB, 0.173911E-01_JPRB, 0.151406E-01_JPRB &
+  &, 0.131316E-01_JPRB, 0.113569E-01_JPRB, 0.979209E-02_JPRB &
+  &, 0.840948E-02_JPRB, 0.720944E-02_JPRB, 0.615904E-02_JPRB, 0.523802E-02_JPRB &
+  &, 0.444058E-02_JPRB, 0.375973E-02_JPRB, 0.316954E-02_JPRB &
+  &, 0.265941E-02_JPRB, 0.223587E-02_JPRB, 0.186781E-02_JPRB, 0.155972E-02_JPRB &
+  &, 0.129646E-02_JPRB, 0.106133E-02_JPRB, 0.877301E-03_JPRB &
+  &, 0.726996E-03_JPRB, 0.591369E-03_JPRB, 0.471626E-03_JPRB, 0.391449E-03_JPRB &
+  &, 0.307701E-03_JPRB, 0.243680E-03_JPRB, 0.200735E-03_JPRB &
+  &, 0.155930E-03_JPRB, 0.134037E-03_JPRB, 0.858975E-04_JPRB, 0.615938E-04_JPRB &
+  &, 0.626011E-04_JPRB, 0.368102E-04_JPRB, 0.373257E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  96, :) = (/ &
+  &  0.871578E+00_JPRB, 0.840352E+00_JPRB, 0.809514E+00_JPRB, 0.779082E+00_JPRB &
+  &, 0.749073E+00_JPRB, 0.719504E+00_JPRB, 0.690394E+00_JPRB &
+  &, 0.661758E+00_JPRB, 0.633615E+00_JPRB, 0.605981E+00_JPRB, 0.578873E+00_JPRB &
+  &, 0.552306E+00_JPRB, 0.526300E+00_JPRB, 0.500867E+00_JPRB &
+  &, 0.476024E+00_JPRB, 0.451786E+00_JPRB, 0.428169E+00_JPRB, 0.405184E+00_JPRB &
+  &, 0.382848E+00_JPRB, 0.361168E+00_JPRB, 0.340163E+00_JPRB &
+  &, 0.319840E+00_JPRB, 0.300205E+00_JPRB, 0.281275E+00_JPRB, 0.263050E+00_JPRB &
+  &, 0.245540E+00_JPRB, 0.228746E+00_JPRB, 0.212671E+00_JPRB &
+  &, 0.197316E+00_JPRB, 0.182685E+00_JPRB, 0.168769E+00_JPRB, 0.155562E+00_JPRB &
+  &, 0.143065E+00_JPRB, 0.131266E+00_JPRB, 0.120148E+00_JPRB &
+  &, 0.109700E+00_JPRB, 0.999168E-01_JPRB, 0.907804E-01_JPRB, 0.822591E-01_JPRB &
+  &, 0.743464E-01_JPRB, 0.670112E-01_JPRB, 0.602386E-01_JPRB &
+  &, 0.540094E-01_JPRB, 0.482774E-01_JPRB, 0.430356E-01_JPRB, 0.382619E-01_JPRB &
+  &, 0.339053E-01_JPRB, 0.299702E-01_JPRB, 0.264078E-01_JPRB &
+  &, 0.232018E-01_JPRB, 0.203192E-01_JPRB, 0.177494E-01_JPRB, 0.154511E-01_JPRB &
+  &, 0.134207E-01_JPRB, 0.116084E-01_JPRB, 0.100192E-01_JPRB &
+  &, 0.861095E-02_JPRB, 0.738388E-02_JPRB, 0.630506E-02_JPRB, 0.537080E-02_JPRB &
+  &, 0.457638E-02_JPRB, 0.386389E-02_JPRB, 0.325830E-02_JPRB &
+  &, 0.275014E-02_JPRB, 0.231007E-02_JPRB, 0.192468E-02_JPRB, 0.159846E-02_JPRB &
+  &, 0.133604E-02_JPRB, 0.110177E-02_JPRB, 0.897951E-03_JPRB &
+  &, 0.748084E-03_JPRB, 0.612901E-03_JPRB, 0.493608E-03_JPRB, 0.413887E-03_JPRB &
+  &, 0.330601E-03_JPRB, 0.267048E-03_JPRB, 0.200735E-03_JPRB &
+  &, 0.155930E-03_JPRB, 0.134037E-03_JPRB, 0.111197E-03_JPRB, 0.873906E-04_JPRB &
+  &, 0.626011E-04_JPRB, 0.368102E-04_JPRB, 0.373257E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  97, :) = (/ &
+  &  0.872115E+00_JPRB, 0.841008E+00_JPRB, 0.810282E+00_JPRB, 0.779955E+00_JPRB &
+  &, 0.750045E+00_JPRB, 0.720568E+00_JPRB, 0.691543E+00_JPRB &
+  &, 0.662986E+00_JPRB, 0.634916E+00_JPRB, 0.607348E+00_JPRB, 0.580299E+00_JPRB &
+  &, 0.553787E+00_JPRB, 0.527826E+00_JPRB, 0.502434E+00_JPRB &
+  &, 0.477626E+00_JPRB, 0.453417E+00_JPRB, 0.429821E+00_JPRB, 0.406854E+00_JPRB &
+  &, 0.384528E+00_JPRB, 0.362853E+00_JPRB, 0.341846E+00_JPRB &
+  &, 0.321518E+00_JPRB, 0.301874E+00_JPRB, 0.282927E+00_JPRB, 0.264680E+00_JPRB &
+  &, 0.247144E+00_JPRB, 0.230318E+00_JPRB, 0.214212E+00_JPRB &
+  &, 0.198821E+00_JPRB, 0.184144E+00_JPRB, 0.170186E+00_JPRB, 0.156934E+00_JPRB &
+  &, 0.144389E+00_JPRB, 0.132535E+00_JPRB, 0.121368E+00_JPRB &
+  &, 0.110863E+00_JPRB, 0.101023E+00_JPRB, 0.918267E-01_JPRB, 0.832516E-01_JPRB &
+  &, 0.752817E-01_JPRB, 0.678964E-01_JPRB, 0.610704E-01_JPRB &
+  &, 0.547736E-01_JPRB, 0.489926E-01_JPRB, 0.436987E-01_JPRB, 0.388700E-01_JPRB &
+  &, 0.344796E-01_JPRB, 0.304836E-01_JPRB, 0.268824E-01_JPRB &
+  &, 0.236354E-01_JPRB, 0.207230E-01_JPRB, 0.181078E-01_JPRB, 0.157758E-01_JPRB &
+  &, 0.137097E-01_JPRB, 0.118747E-01_JPRB, 0.102464E-01_JPRB &
+  &, 0.882791E-02_JPRB, 0.757417E-02_JPRB, 0.646730E-02_JPRB, 0.552017E-02_JPRB &
+  &, 0.469521E-02_JPRB, 0.398540E-02_JPRB, 0.336480E-02_JPRB &
+  &, 0.282273E-02_JPRB, 0.236572E-02_JPRB, 0.198155E-02_JPRB, 0.165658E-02_JPRB &
+  &, 0.137563E-02_JPRB, 0.114220E-02_JPRB, 0.939251E-03_JPRB &
+  &, 0.769172E-03_JPRB, 0.634433E-03_JPRB, 0.515590E-03_JPRB, 0.413887E-03_JPRB &
+  &, 0.330601E-03_JPRB, 0.267048E-03_JPRB, 0.224577E-03_JPRB &
+  &, 0.180252E-03_JPRB, 0.134037E-03_JPRB, 0.111197E-03_JPRB, 0.873906E-04_JPRB &
+  &, 0.626011E-04_JPRB, 0.368102E-04_JPRB, 0.373257E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW(  98, :) = (/ &
+  &  0.872650E+00_JPRB, 0.841660E+00_JPRB, 0.811045E+00_JPRB, 0.780823E+00_JPRB &
+  &, 0.751010E+00_JPRB, 0.721625E+00_JPRB, 0.692685E+00_JPRB &
+  &, 0.664207E+00_JPRB, 0.636209E+00_JPRB, 0.608707E+00_JPRB, 0.581718E+00_JPRB &
+  &, 0.555258E+00_JPRB, 0.529344E+00_JPRB, 0.503993E+00_JPRB &
+  &, 0.479220E+00_JPRB, 0.455040E+00_JPRB, 0.431466E+00_JPRB, 0.408516E+00_JPRB &
+  &, 0.386197E+00_JPRB, 0.364531E+00_JPRB, 0.343526E+00_JPRB &
+  &, 0.323189E+00_JPRB, 0.303536E+00_JPRB, 0.284568E+00_JPRB, 0.266304E+00_JPRB &
+  &, 0.248741E+00_JPRB, 0.231887E+00_JPRB, 0.215746E+00_JPRB &
+  &, 0.200318E+00_JPRB, 0.185606E+00_JPRB, 0.171603E+00_JPRB, 0.158303E+00_JPRB &
+  &, 0.145710E+00_JPRB, 0.133805E+00_JPRB, 0.122584E+00_JPRB &
+  &, 0.112026E+00_JPRB, 0.102139E+00_JPRB, 0.928827E-01_JPRB, 0.842542E-01_JPRB &
+  &, 0.762274E-01_JPRB, 0.687816E-01_JPRB, 0.618915E-01_JPRB &
+  &, 0.555488E-01_JPRB, 0.497191E-01_JPRB, 0.443736E-01_JPRB, 0.394900E-01_JPRB &
+  &, 0.350417E-01_JPRB, 0.310094E-01_JPRB, 0.273698E-01_JPRB &
+  &, 0.240690E-01_JPRB, 0.211133E-01_JPRB, 0.184662E-01_JPRB, 0.161004E-01_JPRB &
+  &, 0.139987E-01_JPRB, 0.121262E-01_JPRB, 0.104886E-01_JPRB &
+  &, 0.902937E-02_JPRB, 0.774861E-02_JPRB, 0.664577E-02_JPRB, 0.566954E-02_JPRB &
+  &, 0.481404E-02_JPRB, 0.408956E-02_JPRB, 0.345355E-02_JPRB &
+  &, 0.291346E-02_JPRB, 0.243991E-02_JPRB, 0.205738E-02_JPRB, 0.171469E-02_JPRB &
+  &, 0.141521E-02_JPRB, 0.118264E-02_JPRB, 0.980551E-03_JPRB &
+  &, 0.811348E-03_JPRB, 0.655965E-03_JPRB, 0.537572E-03_JPRB, 0.436325E-03_JPRB &
+  &, 0.353501E-03_JPRB, 0.290416E-03_JPRB, 0.224577E-03_JPRB &
+  &, 0.180252E-03_JPRB, 0.134037E-03_JPRB, 0.111197E-03_JPRB, 0.873906E-04_JPRB &
+  &, 0.626011E-04_JPRB, 0.368102E-04_JPRB, 0.373257E-04_JPRB &
+  &, 0.378473E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART14',1,ZHOOK_HANDLE)
+END SUBROUTINE PART14
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART15
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART15',0,ZHOOK_HANDLE)
+
+XCW(  99, :) = (/ &
+  &  0.873179E+00_JPRB, 0.842306E+00_JPRB, 0.811802E+00_JPRB, 0.781684E+00_JPRB &
+  &, 0.751968E+00_JPRB, 0.722675E+00_JPRB, 0.693820E+00_JPRB &
+  &, 0.665420E+00_JPRB, 0.637494E+00_JPRB, 0.610057E+00_JPRB, 0.583128E+00_JPRB &
+  &, 0.556721E+00_JPRB, 0.530855E+00_JPRB, 0.505544E+00_JPRB &
+  &, 0.480805E+00_JPRB, 0.456653E+00_JPRB, 0.433103E+00_JPRB, 0.410169E+00_JPRB &
+  &, 0.387865E+00_JPRB, 0.366203E+00_JPRB, 0.345196E+00_JPRB &
+  &, 0.324853E+00_JPRB, 0.305187E+00_JPRB, 0.286210E+00_JPRB, 0.267924E+00_JPRB &
+  &, 0.250337E+00_JPRB, 0.233455E+00_JPRB, 0.217281E+00_JPRB &
+  &, 0.201816E+00_JPRB, 0.187061E+00_JPRB, 0.173015E+00_JPRB, 0.159671E+00_JPRB &
+  &, 0.147026E+00_JPRB, 0.135075E+00_JPRB, 0.123799E+00_JPRB &
+  &, 0.113197E+00_JPRB, 0.103245E+00_JPRB, 0.939387E-01_JPRB, 0.852467E-01_JPRB &
+  &, 0.771628E-01_JPRB, 0.696668E-01_JPRB, 0.627233E-01_JPRB &
+  &, 0.563240E-01_JPRB, 0.504456E-01_JPRB, 0.450484E-01_JPRB, 0.401101E-01_JPRB &
+  &, 0.356160E-01_JPRB, 0.315477E-01_JPRB, 0.278444E-01_JPRB &
+  &, 0.245158E-01_JPRB, 0.215170E-01_JPRB, 0.188383E-01_JPRB, 0.164250E-01_JPRB &
+  &, 0.142877E-01_JPRB, 0.123925E-01_JPRB, 0.107158E-01_JPRB &
+  &, 0.924633E-02_JPRB, 0.793890E-02_JPRB, 0.680801E-02_JPRB, 0.581892E-02_JPRB &
+  &, 0.494984E-02_JPRB, 0.419372E-02_JPRB, 0.356005E-02_JPRB &
+  &, 0.300419E-02_JPRB, 0.251411E-02_JPRB, 0.211425E-02_JPRB, 0.177281E-02_JPRB &
+  &, 0.147459E-02_JPRB, 0.122307E-02_JPRB, 0.100120E-02_JPRB &
+  &, 0.832436E-03_JPRB, 0.677497E-03_JPRB, 0.559555E-03_JPRB, 0.458763E-03_JPRB &
+  &, 0.376402E-03_JPRB, 0.290416E-03_JPRB, 0.248418E-03_JPRB &
+  &, 0.180252E-03_JPRB, 0.158845E-03_JPRB, 0.111197E-03_JPRB, 0.873906E-04_JPRB &
+  &, 0.626011E-04_JPRB, 0.636203E-04_JPRB, 0.373257E-04_JPRB &
+  &, 0.378473E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 100, :) = (/ &
+  &  0.873706E+00_JPRB, 0.842949E+00_JPRB, 0.812554E+00_JPRB, 0.782539E+00_JPRB &
+  &, 0.752921E+00_JPRB, 0.723718E+00_JPRB, 0.694947E+00_JPRB &
+  &, 0.666626E+00_JPRB, 0.638771E+00_JPRB, 0.611400E+00_JPRB, 0.584530E+00_JPRB &
+  &, 0.558176E+00_JPRB, 0.532358E+00_JPRB, 0.507087E+00_JPRB &
+  &, 0.482383E+00_JPRB, 0.458260E+00_JPRB, 0.434733E+00_JPRB, 0.411814E+00_JPRB &
+  &, 0.389522E+00_JPRB, 0.367865E+00_JPRB, 0.346859E+00_JPRB &
+  &, 0.326511E+00_JPRB, 0.306839E+00_JPRB, 0.287844E+00_JPRB, 0.269537E+00_JPRB &
+  &, 0.251927E+00_JPRB, 0.235016E+00_JPRB, 0.218811E+00_JPRB &
+  &, 0.203310E+00_JPRB, 0.188515E+00_JPRB, 0.174428E+00_JPRB, 0.161039E+00_JPRB &
+  &, 0.148347E+00_JPRB, 0.136345E+00_JPRB, 0.125020E+00_JPRB &
+  &, 0.114360E+00_JPRB, 0.104351E+00_JPRB, 0.949948E-01_JPRB, 0.862493E-01_JPRB &
+  &, 0.781084E-01_JPRB, 0.705520E-01_JPRB, 0.635660E-01_JPRB &
+  &, 0.571103E-01_JPRB, 0.511721E-01_JPRB, 0.457232E-01_JPRB, 0.407420E-01_JPRB &
+  &, 0.362025E-01_JPRB, 0.320736E-01_JPRB, 0.283318E-01_JPRB &
+  &, 0.249625E-01_JPRB, 0.219208E-01_JPRB, 0.191967E-01_JPRB, 0.167638E-01_JPRB &
+  &, 0.145912E-01_JPRB, 0.126735E-01_JPRB, 0.109581E-01_JPRB &
+  &, 0.944779E-02_JPRB, 0.812920E-02_JPRB, 0.697026E-02_JPRB, 0.596829E-02_JPRB &
+  &, 0.508564E-02_JPRB, 0.431524E-02_JPRB, 0.364880E-02_JPRB &
+  &, 0.307678E-02_JPRB, 0.258831E-02_JPRB, 0.217113E-02_JPRB, 0.181155E-02_JPRB &
+  &, 0.151417E-02_JPRB, 0.126351E-02_JPRB, 0.104250E-02_JPRB &
+  &, 0.853525E-03_JPRB, 0.699029E-03_JPRB, 0.581537E-03_JPRB, 0.481201E-03_JPRB &
+  &, 0.376402E-03_JPRB, 0.313784E-03_JPRB, 0.248418E-03_JPRB &
+  &, 0.204573E-03_JPRB, 0.158845E-03_JPRB, 0.136496E-03_JPRB, 0.873906E-04_JPRB &
+  &, 0.626011E-04_JPRB, 0.636203E-04_JPRB, 0.373257E-04_JPRB &
+  &, 0.378473E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 101, :) = (/ &
+  &  0.874229E+00_JPRB, 0.843587E+00_JPRB, 0.813300E+00_JPRB, 0.783389E+00_JPRB &
+  &, 0.753867E+00_JPRB, 0.724754E+00_JPRB, 0.696067E+00_JPRB &
+  &, 0.667824E+00_JPRB, 0.640040E+00_JPRB, 0.612735E+00_JPRB, 0.585924E+00_JPRB &
+  &, 0.559624E+00_JPRB, 0.533851E+00_JPRB, 0.508622E+00_JPRB &
+  &, 0.483953E+00_JPRB, 0.459859E+00_JPRB, 0.436354E+00_JPRB, 0.413453E+00_JPRB &
+  &, 0.391172E+00_JPRB, 0.369521E+00_JPRB, 0.348516E+00_JPRB &
+  &, 0.328165E+00_JPRB, 0.308480E+00_JPRB, 0.289472E+00_JPRB, 0.271146E+00_JPRB &
+  &, 0.253513E+00_JPRB, 0.236577E+00_JPRB, 0.220337E+00_JPRB &
+  &, 0.204803E+00_JPRB, 0.189970E+00_JPRB, 0.175837E+00_JPRB, 0.162407E+00_JPRB &
+  &, 0.149667E+00_JPRB, 0.137614E+00_JPRB, 0.126235E+00_JPRB &
+  &, 0.115523E+00_JPRB, 0.105467E+00_JPRB, 0.960508E-01_JPRB, 0.872518E-01_JPRB &
+  &, 0.790541E-01_JPRB, 0.714477E-01_JPRB, 0.643979E-01_JPRB &
+  &, 0.578966E-01_JPRB, 0.518986E-01_JPRB, 0.463980E-01_JPRB, 0.413740E-01_JPRB &
+  &, 0.367768E-01_JPRB, 0.326119E-01_JPRB, 0.288321E-01_JPRB &
+  &, 0.254093E-01_JPRB, 0.223380E-01_JPRB, 0.195689E-01_JPRB, 0.171025E-01_JPRB &
+  &, 0.148947E-01_JPRB, 0.129398E-01_JPRB, 0.112003E-01_JPRB &
+  &, 0.966475E-02_JPRB, 0.831949E-02_JPRB, 0.714873E-02_JPRB, 0.611766E-02_JPRB &
+  &, 0.520447E-02_JPRB, 0.443676E-02_JPRB, 0.375530E-02_JPRB &
+  &, 0.316751E-02_JPRB, 0.268105E-02_JPRB, 0.224696E-02_JPRB, 0.186966E-02_JPRB &
+  &, 0.157355E-02_JPRB, 0.130394E-02_JPRB, 0.108380E-02_JPRB &
+  &, 0.895701E-03_JPRB, 0.742094E-03_JPRB, 0.603519E-03_JPRB, 0.481201E-03_JPRB &
+  &, 0.399302E-03_JPRB, 0.313784E-03_JPRB, 0.248418E-03_JPRB &
+  &, 0.204573E-03_JPRB, 0.158845E-03_JPRB, 0.136496E-03_JPRB, 0.113188E-03_JPRB &
+  &, 0.889016E-04_JPRB, 0.636203E-04_JPRB, 0.373257E-04_JPRB &
+  &, 0.378473E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 102, :) = (/ &
+  &  0.874749E+00_JPRB, 0.844221E+00_JPRB, 0.814043E+00_JPRB, 0.784233E+00_JPRB &
+  &, 0.754807E+00_JPRB, 0.725784E+00_JPRB, 0.697181E+00_JPRB &
+  &, 0.669015E+00_JPRB, 0.641303E+00_JPRB, 0.614062E+00_JPRB, 0.587310E+00_JPRB &
+  &, 0.561063E+00_JPRB, 0.535336E+00_JPRB, 0.510149E+00_JPRB &
+  &, 0.485514E+00_JPRB, 0.461448E+00_JPRB, 0.437968E+00_JPRB, 0.415085E+00_JPRB &
+  &, 0.392815E+00_JPRB, 0.371171E+00_JPRB, 0.350166E+00_JPRB &
+  &, 0.329813E+00_JPRB, 0.310119E+00_JPRB, 0.291096E+00_JPRB, 0.272752E+00_JPRB &
+  &, 0.255095E+00_JPRB, 0.238130E+00_JPRB, 0.221860E+00_JPRB &
+  &, 0.206293E+00_JPRB, 0.191420E+00_JPRB, 0.177249E+00_JPRB, 0.163771E+00_JPRB &
+  &, 0.150983E+00_JPRB, 0.138884E+00_JPRB, 0.127455E+00_JPRB &
+  &, 0.116695E+00_JPRB, 0.106583E+00_JPRB, 0.971069E-01_JPRB, 0.882544E-01_JPRB &
+  &, 0.800100E-01_JPRB, 0.723435E-01_JPRB, 0.652405E-01_JPRB &
+  &, 0.586829E-01_JPRB, 0.526364E-01_JPRB, 0.470845E-01_JPRB, 0.420060E-01_JPRB &
+  &, 0.373633E-01_JPRB, 0.331503E-01_JPRB, 0.293195E-01_JPRB &
+  &, 0.258561E-01_JPRB, 0.227418E-01_JPRB, 0.199410E-01_JPRB, 0.174412E-01_JPRB &
+  &, 0.151981E-01_JPRB, 0.132061E-01_JPRB, 0.114426E-01_JPRB &
+  &, 0.989721E-02_JPRB, 0.852564E-02_JPRB, 0.731097E-02_JPRB, 0.626703E-02_JPRB &
+  &, 0.534027E-02_JPRB, 0.454092E-02_JPRB, 0.386181E-02_JPRB &
+  &, 0.325825E-02_JPRB, 0.275525E-02_JPRB, 0.230383E-02_JPRB, 0.192778E-02_JPRB &
+  &, 0.161313E-02_JPRB, 0.134438E-02_JPRB, 0.112510E-02_JPRB &
+  &, 0.916789E-03_JPRB, 0.763626E-03_JPRB, 0.625501E-03_JPRB, 0.503640E-03_JPRB &
+  &, 0.422202E-03_JPRB, 0.337152E-03_JPRB, 0.272260E-03_JPRB &
+  &, 0.204573E-03_JPRB, 0.183652E-03_JPRB, 0.136496E-03_JPRB, 0.113188E-03_JPRB &
+  &, 0.889016E-04_JPRB, 0.636203E-04_JPRB, 0.373257E-04_JPRB &
+  &, 0.378473E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 103, :) = (/ &
+  &  0.875264E+00_JPRB, 0.844851E+00_JPRB, 0.814780E+00_JPRB, 0.785072E+00_JPRB &
+  &, 0.755741E+00_JPRB, 0.726808E+00_JPRB, 0.698287E+00_JPRB &
+  &, 0.670198E+00_JPRB, 0.642557E+00_JPRB, 0.615382E+00_JPRB, 0.588689E+00_JPRB &
+  &, 0.562494E+00_JPRB, 0.536815E+00_JPRB, 0.511668E+00_JPRB &
+  &, 0.487068E+00_JPRB, 0.463032E+00_JPRB, 0.439574E+00_JPRB, 0.416709E+00_JPRB &
+  &, 0.394451E+00_JPRB, 0.372814E+00_JPRB, 0.351810E+00_JPRB &
+  &, 0.331454E+00_JPRB, 0.311750E+00_JPRB, 0.292713E+00_JPRB, 0.274354E+00_JPRB &
+  &, 0.256674E+00_JPRB, 0.239684E+00_JPRB, 0.223383E+00_JPRB &
+  &, 0.207779E+00_JPRB, 0.192867E+00_JPRB, 0.178654E+00_JPRB, 0.165135E+00_JPRB &
+  &, 0.152304E+00_JPRB, 0.140154E+00_JPRB, 0.128676E+00_JPRB &
+  &, 0.117857E+00_JPRB, 0.107699E+00_JPRB, 0.981629E-01_JPRB, 0.892569E-01_JPRB &
+  &, 0.809556E-01_JPRB, 0.732392E-01_JPRB, 0.660832E-01_JPRB &
+  &, 0.594692E-01_JPRB, 0.533743E-01_JPRB, 0.477709E-01_JPRB, 0.426379E-01_JPRB &
+  &, 0.379498E-01_JPRB, 0.336887E-01_JPRB, 0.298197E-01_JPRB &
+  &, 0.263159E-01_JPRB, 0.231590E-01_JPRB, 0.203270E-01_JPRB, 0.177800E-01_JPRB &
+  &, 0.155161E-01_JPRB, 0.134872E-01_JPRB, 0.117000E-01_JPRB &
+  &, 0.101142E-01_JPRB, 0.871594E-02_JPRB, 0.748944E-02_JPRB, 0.641641E-02_JPRB &
+  &, 0.547608E-02_JPRB, 0.466244E-02_JPRB, 0.396831E-02_JPRB &
+  &, 0.334898E-02_JPRB, 0.282944E-02_JPRB, 0.237966E-02_JPRB, 0.198589E-02_JPRB &
+  &, 0.167250E-02_JPRB, 0.138482E-02_JPRB, 0.114575E-02_JPRB &
+  &, 0.958965E-03_JPRB, 0.785158E-03_JPRB, 0.647483E-03_JPRB, 0.526078E-03_JPRB &
+  &, 0.422202E-03_JPRB, 0.337152E-03_JPRB, 0.272260E-03_JPRB &
+  &, 0.228895E-03_JPRB, 0.183652E-03_JPRB, 0.136496E-03_JPRB, 0.113188E-03_JPRB &
+  &, 0.889016E-04_JPRB, 0.636203E-04_JPRB, 0.373257E-04_JPRB &
+  &, 0.378473E-04_JPRB, 0.383748E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 104, :) = (/ &
+  &  0.875776E+00_JPRB, 0.845476E+00_JPRB, 0.815512E+00_JPRB, 0.785905E+00_JPRB &
+  &, 0.756670E+00_JPRB, 0.727825E+00_JPRB, 0.699387E+00_JPRB &
+  &, 0.671374E+00_JPRB, 0.643805E+00_JPRB, 0.616694E+00_JPRB, 0.590060E+00_JPRB &
+  &, 0.563918E+00_JPRB, 0.538284E+00_JPRB, 0.513179E+00_JPRB &
+  &, 0.488615E+00_JPRB, 0.464607E+00_JPRB, 0.441173E+00_JPRB, 0.418326E+00_JPRB &
+  &, 0.396082E+00_JPRB, 0.374451E+00_JPRB, 0.353451E+00_JPRB &
+  &, 0.333089E+00_JPRB, 0.313378E+00_JPRB, 0.294327E+00_JPRB, 0.275949E+00_JPRB &
+  &, 0.258249E+00_JPRB, 0.241230E+00_JPRB, 0.224901E+00_JPRB &
+  &, 0.209261E+00_JPRB, 0.194313E+00_JPRB, 0.180062E+00_JPRB, 0.166499E+00_JPRB &
+  &, 0.153620E+00_JPRB, 0.141419E+00_JPRB, 0.129896E+00_JPRB &
+  &, 0.119029E+00_JPRB, 0.108805E+00_JPRB, 0.992287E-01_JPRB, 0.902695E-01_JPRB &
+  &, 0.819116E-01_JPRB, 0.741349E-01_JPRB, 0.669258E-01_JPRB &
+  &, 0.602555E-01_JPRB, 0.541122E-01_JPRB, 0.484574E-01_JPRB, 0.432818E-01_JPRB &
+  &, 0.385485E-01_JPRB, 0.342395E-01_JPRB, 0.303200E-01_JPRB &
+  &, 0.267758E-01_JPRB, 0.235762E-01_JPRB, 0.206991E-01_JPRB, 0.181329E-01_JPRB &
+  &, 0.158195E-01_JPRB, 0.137683E-01_JPRB, 0.119575E-01_JPRB &
+  &, 0.103466E-01_JPRB, 0.892209E-02_JPRB, 0.766791E-02_JPRB, 0.658237E-02_JPRB &
+  &, 0.562886E-02_JPRB, 0.478396E-02_JPRB, 0.407481E-02_JPRB &
+  &, 0.343971E-02_JPRB, 0.290364E-02_JPRB, 0.245549E-02_JPRB, 0.206338E-02_JPRB &
+  &, 0.171209E-02_JPRB, 0.142525E-02_JPRB, 0.118705E-02_JPRB &
+  &, 0.980053E-03_JPRB, 0.806690E-03_JPRB, 0.669466E-03_JPRB, 0.548516E-03_JPRB &
+  &, 0.445102E-03_JPRB, 0.360520E-03_JPRB, 0.296102E-03_JPRB &
+  &, 0.228895E-03_JPRB, 0.183652E-03_JPRB, 0.161795E-03_JPRB, 0.113188E-03_JPRB &
+  &, 0.889016E-04_JPRB, 0.636203E-04_JPRB, 0.646515E-04_JPRB &
+  &, 0.378473E-04_JPRB, 0.383748E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 105, :) = (/ &
+  &  0.876285E+00_JPRB, 0.846097E+00_JPRB, 0.816240E+00_JPRB, 0.786733E+00_JPRB &
+  &, 0.757592E+00_JPRB, 0.728836E+00_JPRB, 0.700481E+00_JPRB &
+  &, 0.672545E+00_JPRB, 0.645046E+00_JPRB, 0.617999E+00_JPRB, 0.591423E+00_JPRB &
+  &, 0.565333E+00_JPRB, 0.539747E+00_JPRB, 0.514682E+00_JPRB &
+  &, 0.490153E+00_JPRB, 0.466175E+00_JPRB, 0.442765E+00_JPRB, 0.419936E+00_JPRB &
+  &, 0.397704E+00_JPRB, 0.376082E+00_JPRB, 0.355082E+00_JPRB &
+  &, 0.334717E+00_JPRB, 0.314999E+00_JPRB, 0.295938E+00_JPRB, 0.277540E+00_JPRB &
+  &, 0.259816E+00_JPRB, 0.242776E+00_JPRB, 0.226416E+00_JPRB &
+  &, 0.210743E+00_JPRB, 0.195760E+00_JPRB, 0.181467E+00_JPRB, 0.167858E+00_JPRB &
+  &, 0.154936E+00_JPRB, 0.142689E+00_JPRB, 0.131116E+00_JPRB &
+  &, 0.120192E+00_JPRB, 0.109930E+00_JPRB, 0.100295E+00_JPRB, 0.912821E-01_JPRB &
+  &, 0.828675E-01_JPRB, 0.750412E-01_JPRB, 0.677793E-01_JPRB &
+  &, 0.610528E-01_JPRB, 0.548500E-01_JPRB, 0.491555E-01_JPRB, 0.439257E-01_JPRB &
+  &, 0.391473E-01_JPRB, 0.347779E-01_JPRB, 0.308202E-01_JPRB &
+  &, 0.272357E-01_JPRB, 0.240069E-01_JPRB, 0.210851E-01_JPRB, 0.184716E-01_JPRB &
+  &, 0.161375E-01_JPRB, 0.140494E-01_JPRB, 0.121998E-01_JPRB &
+  &, 0.105636E-01_JPRB, 0.912824E-02_JPRB, 0.784637E-02_JPRB, 0.673175E-02_JPRB &
+  &, 0.576466E-02_JPRB, 0.492284E-02_JPRB, 0.418131E-02_JPRB &
+  &, 0.354859E-02_JPRB, 0.299638E-02_JPRB, 0.253131E-02_JPRB, 0.212149E-02_JPRB &
+  &, 0.177146E-02_JPRB, 0.148591E-02_JPRB, 0.122835E-02_JPRB &
+  &, 0.102223E-02_JPRB, 0.849755E-03_JPRB, 0.691448E-03_JPRB, 0.570954E-03_JPRB &
+  &, 0.468002E-03_JPRB, 0.383888E-03_JPRB, 0.296102E-03_JPRB &
+  &, 0.253217E-03_JPRB, 0.208460E-03_JPRB, 0.161795E-03_JPRB, 0.113188E-03_JPRB &
+  &, 0.889016E-04_JPRB, 0.636203E-04_JPRB, 0.646515E-04_JPRB &
+  &, 0.378473E-04_JPRB, 0.383748E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART15',1,ZHOOK_HANDLE)
+END SUBROUTINE PART15
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART16
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART16',0,ZHOOK_HANDLE)
+
+XCW( 106, :) = (/ &
+  &  0.876790E+00_JPRB, 0.846714E+00_JPRB, 0.816963E+00_JPRB, 0.787556E+00_JPRB &
+  &, 0.758509E+00_JPRB, 0.729841E+00_JPRB, 0.701568E+00_JPRB &
+  &, 0.673709E+00_JPRB, 0.646279E+00_JPRB, 0.619296E+00_JPRB, 0.592779E+00_JPRB &
+  &, 0.566742E+00_JPRB, 0.541204E+00_JPRB, 0.516178E+00_JPRB &
+  &, 0.491684E+00_JPRB, 0.467737E+00_JPRB, 0.444350E+00_JPRB, 0.421540E+00_JPRB &
+  &, 0.399321E+00_JPRB, 0.377706E+00_JPRB, 0.356710E+00_JPRB &
+  &, 0.336341E+00_JPRB, 0.316617E+00_JPRB, 0.297541E+00_JPRB, 0.279128E+00_JPRB &
+  &, 0.261384E+00_JPRB, 0.244314E+00_JPRB, 0.227928E+00_JPRB &
+  &, 0.212221E+00_JPRB, 0.197202E+00_JPRB, 0.182871E+00_JPRB, 0.169222E+00_JPRB &
+  &, 0.156252E+00_JPRB, 0.143959E+00_JPRB, 0.132336E+00_JPRB &
+  &, 0.121364E+00_JPRB, 0.111046E+00_JPRB, 0.101360E+00_JPRB, 0.922946E-01_JPRB &
+  &, 0.838234E-01_JPRB, 0.759475E-01_JPRB, 0.686328E-01_JPRB &
+  &, 0.618502E-01_JPRB, 0.555992E-01_JPRB, 0.498536E-01_JPRB, 0.445696E-01_JPRB &
+  &, 0.397460E-01_JPRB, 0.353413E-01_JPRB, 0.313333E-01_JPRB &
+  &, 0.277088E-01_JPRB, 0.244241E-01_JPRB, 0.214710E-01_JPRB, 0.188245E-01_JPRB &
+  &, 0.164554E-01_JPRB, 0.143453E-01_JPRB, 0.124572E-01_JPRB &
+  &, 0.107961E-01_JPRB, 0.933439E-02_JPRB, 0.804107E-02_JPRB, 0.689772E-02_JPRB &
+  &, 0.590046E-02_JPRB, 0.504435E-02_JPRB, 0.428781E-02_JPRB &
+  &, 0.363933E-02_JPRB, 0.307058E-02_JPRB, 0.258819E-02_JPRB, 0.217961E-02_JPRB &
+  &, 0.183084E-02_JPRB, 0.152634E-02_JPRB, 0.126965E-02_JPRB &
+  &, 0.106441E-02_JPRB, 0.871287E-03_JPRB, 0.713430E-03_JPRB, 0.593392E-03_JPRB &
+  &, 0.490902E-03_JPRB, 0.383888E-03_JPRB, 0.319944E-03_JPRB &
+  &, 0.253217E-03_JPRB, 0.208460E-03_JPRB, 0.161795E-03_JPRB, 0.138984E-03_JPRB &
+  &, 0.889016E-04_JPRB, 0.904305E-04_JPRB, 0.646515E-04_JPRB &
+  &, 0.378473E-04_JPRB, 0.383748E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 107, :) = (/ &
+  &  0.877294E+00_JPRB, 0.847327E+00_JPRB, 0.817681E+00_JPRB, 0.788374E+00_JPRB &
+  &, 0.759421E+00_JPRB, 0.730840E+00_JPRB, 0.702649E+00_JPRB &
+  &, 0.674865E+00_JPRB, 0.647505E+00_JPRB, 0.620587E+00_JPRB, 0.594128E+00_JPRB &
+  &, 0.568144E+00_JPRB, 0.542651E+00_JPRB, 0.517667E+00_JPRB &
+  &, 0.493209E+00_JPRB, 0.469291E+00_JPRB, 0.445928E+00_JPRB, 0.423137E+00_JPRB &
+  &, 0.400931E+00_JPRB, 0.379324E+00_JPRB, 0.358328E+00_JPRB &
+  &, 0.337959E+00_JPRB, 0.318228E+00_JPRB, 0.299141E+00_JPRB, 0.280713E+00_JPRB &
+  &, 0.262948E+00_JPRB, 0.245853E+00_JPRB, 0.229435E+00_JPRB &
+  &, 0.213699E+00_JPRB, 0.198645E+00_JPRB, 0.184272E+00_JPRB, 0.170582E+00_JPRB &
+  &, 0.157569E+00_JPRB, 0.145228E+00_JPRB, 0.133556E+00_JPRB &
+  &, 0.122536E+00_JPRB, 0.112162E+00_JPRB, 0.102426E+00_JPRB, 0.933072E-01_JPRB &
+  &, 0.847896E-01_JPRB, 0.768538E-01_JPRB, 0.694862E-01_JPRB &
+  &, 0.626586E-01_JPRB, 0.563485E-01_JPRB, 0.505516E-01_JPRB, 0.452254E-01_JPRB &
+  &, 0.403447E-01_JPRB, 0.358922E-01_JPRB, 0.318464E-01_JPRB &
+  &, 0.281687E-01_JPRB, 0.248548E-01_JPRB, 0.218707E-01_JPRB, 0.191773E-01_JPRB &
+  &, 0.167733E-01_JPRB, 0.146263E-01_JPRB, 0.127297E-01_JPRB &
+  &, 0.110285E-01_JPRB, 0.954054E-02_JPRB, 0.821953E-02_JPRB, 0.706368E-02_JPRB &
+  &, 0.605324E-02_JPRB, 0.516587E-02_JPRB, 0.441206E-02_JPRB &
+  &, 0.373006E-02_JPRB, 0.316332E-02_JPRB, 0.266401E-02_JPRB, 0.223772E-02_JPRB &
+  &, 0.189021E-02_JPRB, 0.156678E-02_JPRB, 0.131095E-02_JPRB &
+  &, 0.108549E-02_JPRB, 0.892819E-03_JPRB, 0.735412E-03_JPRB, 0.615830E-03_JPRB &
+  &, 0.490902E-03_JPRB, 0.407256E-03_JPRB, 0.319944E-03_JPRB &
+  &, 0.277538E-03_JPRB, 0.208460E-03_JPRB, 0.161795E-03_JPRB, 0.138984E-03_JPRB &
+  &, 0.115202E-03_JPRB, 0.904305E-04_JPRB, 0.646515E-04_JPRB &
+  &, 0.378473E-04_JPRB, 0.383748E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 108, :) = (/ &
+  &  0.877792E+00_JPRB, 0.847937E+00_JPRB, 0.818395E+00_JPRB, 0.789187E+00_JPRB &
+  &, 0.760326E+00_JPRB, 0.731833E+00_JPRB, 0.703723E+00_JPRB &
+  &, 0.676015E+00_JPRB, 0.648725E+00_JPRB, 0.621871E+00_JPRB, 0.595470E+00_JPRB &
+  &, 0.569538E+00_JPRB, 0.544092E+00_JPRB, 0.519150E+00_JPRB &
+  &, 0.494726E+00_JPRB, 0.470837E+00_JPRB, 0.447499E+00_JPRB, 0.424726E+00_JPRB &
+  &, 0.402535E+00_JPRB, 0.380936E+00_JPRB, 0.359946E+00_JPRB &
+  &, 0.339574E+00_JPRB, 0.319835E+00_JPRB, 0.300737E+00_JPRB, 0.282290E+00_JPRB &
+  &, 0.264505E+00_JPRB, 0.247388E+00_JPRB, 0.230942E+00_JPRB &
+  &, 0.215173E+00_JPRB, 0.200083E+00_JPRB, 0.185672E+00_JPRB, 0.171942E+00_JPRB &
+  &, 0.158885E+00_JPRB, 0.146498E+00_JPRB, 0.134776E+00_JPRB &
+  &, 0.123708E+00_JPRB, 0.113287E+00_JPRB, 0.103492E+00_JPRB, 0.943198E-01_JPRB &
+  &, 0.857456E-01_JPRB, 0.777600E-01_JPRB, 0.703397E-01_JPRB &
+  &, 0.634560E-01_JPRB, 0.571090E-01_JPRB, 0.512497E-01_JPRB, 0.458693E-01_JPRB &
+  &, 0.409435E-01_JPRB, 0.364556E-01_JPRB, 0.323595E-01_JPRB &
+  &, 0.286548E-01_JPRB, 0.252855E-01_JPRB, 0.222567E-01_JPRB, 0.195443E-01_JPRB &
+  &, 0.171057E-01_JPRB, 0.149222E-01_JPRB, 0.129872E-01_JPRB &
+  &, 0.112765E-01_JPRB, 0.974669E-02_JPRB, 0.841423E-02_JPRB, 0.722965E-02_JPRB &
+  &, 0.620602E-02_JPRB, 0.530475E-02_JPRB, 0.451856E-02_JPRB &
+  &, 0.383894E-02_JPRB, 0.325607E-02_JPRB, 0.273984E-02_JPRB, 0.231521E-02_JPRB &
+  &, 0.194959E-02_JPRB, 0.162743E-02_JPRB, 0.135225E-02_JPRB &
+  &, 0.112767E-02_JPRB, 0.935883E-03_JPRB, 0.779376E-03_JPRB, 0.638268E-03_JPRB &
+  &, 0.513802E-03_JPRB, 0.430624E-03_JPRB, 0.343786E-03_JPRB &
+  &, 0.277538E-03_JPRB, 0.233267E-03_JPRB, 0.187094E-03_JPRB, 0.138984E-03_JPRB &
+  &, 0.115202E-03_JPRB, 0.904305E-04_JPRB, 0.646515E-04_JPRB &
+  &, 0.378473E-04_JPRB, 0.383748E-04_JPRB, 0.389082E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 109, :) = (/ &
+  &  0.878288E+00_JPRB, 0.848542E+00_JPRB, 0.819105E+00_JPRB, 0.789994E+00_JPRB &
+  &, 0.761227E+00_JPRB, 0.732820E+00_JPRB, 0.704792E+00_JPRB &
+  &, 0.677159E+00_JPRB, 0.649938E+00_JPRB, 0.623148E+00_JPRB, 0.596805E+00_JPRB &
+  &, 0.570925E+00_JPRB, 0.545526E+00_JPRB, 0.520625E+00_JPRB &
+  &, 0.496237E+00_JPRB, 0.472378E+00_JPRB, 0.449065E+00_JPRB, 0.426311E+00_JPRB &
+  &, 0.404132E+00_JPRB, 0.382541E+00_JPRB, 0.361554E+00_JPRB &
+  &, 0.341182E+00_JPRB, 0.321436E+00_JPRB, 0.302327E+00_JPRB, 0.283867E+00_JPRB &
+  &, 0.266062E+00_JPRB, 0.248919E+00_JPRB, 0.232446E+00_JPRB &
+  &, 0.216643E+00_JPRB, 0.201518E+00_JPRB, 0.187073E+00_JPRB, 0.173297E+00_JPRB &
+  &, 0.160197E+00_JPRB, 0.147768E+00_JPRB, 0.135997E+00_JPRB &
+  &, 0.124880E+00_JPRB, 0.114403E+00_JPRB, 0.104568E+00_JPRB, 0.953424E-01_JPRB &
+  &, 0.867118E-01_JPRB, 0.786768E-01_JPRB, 0.712040E-01_JPRB &
+  &, 0.642644E-01_JPRB, 0.578582E-01_JPRB, 0.519595E-01_JPRB, 0.465251E-01_JPRB &
+  &, 0.415544E-01_JPRB, 0.370190E-01_JPRB, 0.328854E-01_JPRB &
+  &, 0.291279E-01_JPRB, 0.257296E-01_JPRB, 0.226564E-01_JPRB, 0.198971E-01_JPRB &
+  &, 0.174381E-01_JPRB, 0.152181E-01_JPRB, 0.132597E-01_JPRB &
+  &, 0.115089E-01_JPRB, 0.996870E-02_JPRB, 0.859269E-02_JPRB, 0.739562E-02_JPRB &
+  &, 0.635880E-02_JPRB, 0.542627E-02_JPRB, 0.464282E-02_JPRB &
+  &, 0.394782E-02_JPRB, 0.334881E-02_JPRB, 0.281567E-02_JPRB, 0.237332E-02_JPRB &
+  &, 0.198917E-02_JPRB, 0.166787E-02_JPRB, 0.139355E-02_JPRB &
+  &, 0.116985E-02_JPRB, 0.957415E-03_JPRB, 0.801359E-03_JPRB, 0.660707E-03_JPRB &
+  &, 0.536702E-03_JPRB, 0.430624E-03_JPRB, 0.367628E-03_JPRB &
+  &, 0.277538E-03_JPRB, 0.233267E-03_JPRB, 0.187094E-03_JPRB, 0.138984E-03_JPRB &
+  &, 0.115202E-03_JPRB, 0.904305E-04_JPRB, 0.646515E-04_JPRB &
+  &, 0.656946E-04_JPRB, 0.383748E-04_JPRB, 0.389082E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 110, :) = (/ &
+  &  0.878779E+00_JPRB, 0.849144E+00_JPRB, 0.819810E+00_JPRB, 0.790798E+00_JPRB &
+  &, 0.762122E+00_JPRB, 0.733802E+00_JPRB, 0.705854E+00_JPRB &
+  &, 0.678296E+00_JPRB, 0.651145E+00_JPRB, 0.624418E+00_JPRB, 0.598133E+00_JPRB &
+  &, 0.572306E+00_JPRB, 0.546953E+00_JPRB, 0.522092E+00_JPRB &
+  &, 0.497740E+00_JPRB, 0.473911E+00_JPRB, 0.450622E+00_JPRB, 0.427888E+00_JPRB &
+  &, 0.405722E+00_JPRB, 0.384140E+00_JPRB, 0.363159E+00_JPRB &
+  &, 0.342783E+00_JPRB, 0.323033E+00_JPRB, 0.303913E+00_JPRB, 0.285437E+00_JPRB &
+  &, 0.267611E+00_JPRB, 0.250446E+00_JPRB, 0.233946E+00_JPRB &
+  &, 0.218113E+00_JPRB, 0.202956E+00_JPRB, 0.188469E+00_JPRB, 0.174657E+00_JPRB &
+  &, 0.161513E+00_JPRB, 0.149037E+00_JPRB, 0.137221E+00_JPRB &
+  &, 0.126052E+00_JPRB, 0.115528E+00_JPRB, 0.105633E+00_JPRB, 0.963550E-01_JPRB &
+  &, 0.876780E-01_JPRB, 0.795937E-01_JPRB, 0.720574E-01_JPRB &
+  &, 0.650840E-01_JPRB, 0.586188E-01_JPRB, 0.526692E-01_JPRB, 0.471929E-01_JPRB &
+  &, 0.421776E-01_JPRB, 0.375824E-01_JPRB, 0.333984E-01_JPRB &
+  &, 0.296009E-01_JPRB, 0.261603E-01_JPRB, 0.230561E-01_JPRB, 0.202641E-01_JPRB &
+  &, 0.177560E-01_JPRB, 0.155288E-01_JPRB, 0.135323E-01_JPRB &
+  &, 0.117569E-01_JPRB, 0.101749E-01_JPRB, 0.878739E-02_JPRB, 0.757819E-02_JPRB &
+  &, 0.649460E-02_JPRB, 0.556515E-02_JPRB, 0.474932E-02_JPRB &
+  &, 0.403855E-02_JPRB, 0.342301E-02_JPRB, 0.291046E-02_JPRB, 0.245081E-02_JPRB &
+  &, 0.204855E-02_JPRB, 0.172852E-02_JPRB, 0.143485E-02_JPRB &
+  &, 0.119093E-02_JPRB, 0.100048E-02_JPRB, 0.823341E-03_JPRB, 0.683145E-03_JPRB &
+  &, 0.559602E-03_JPRB, 0.453992E-03_JPRB, 0.367628E-03_JPRB &
+  &, 0.301860E-03_JPRB, 0.233267E-03_JPRB, 0.187094E-03_JPRB, 0.164781E-03_JPRB &
+  &, 0.115202E-03_JPRB, 0.904305E-04_JPRB, 0.646515E-04_JPRB &
+  &, 0.656946E-04_JPRB, 0.383748E-04_JPRB, 0.389082E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 111, :) = (/ &
+  &  0.879270E+00_JPRB, 0.849742E+00_JPRB, 0.820511E+00_JPRB, 0.791596E+00_JPRB &
+  &, 0.763012E+00_JPRB, 0.734778E+00_JPRB, 0.706910E+00_JPRB &
+  &, 0.679427E+00_JPRB, 0.652346E+00_JPRB, 0.625682E+00_JPRB, 0.599455E+00_JPRB &
+  &, 0.573680E+00_JPRB, 0.548374E+00_JPRB, 0.523555E+00_JPRB &
+  &, 0.499237E+00_JPRB, 0.475438E+00_JPRB, 0.452175E+00_JPRB, 0.429458E+00_JPRB &
+  &, 0.407309E+00_JPRB, 0.385736E+00_JPRB, 0.364757E+00_JPRB &
+  &, 0.344381E+00_JPRB, 0.324624E+00_JPRB, 0.305495E+00_JPRB, 0.287004E+00_JPRB &
+  &, 0.269161E+00_JPRB, 0.251970E+00_JPRB, 0.235446E+00_JPRB &
+  &, 0.219583E+00_JPRB, 0.204387E+00_JPRB, 0.189865E+00_JPRB, 0.176012E+00_JPRB &
+  &, 0.162829E+00_JPRB, 0.150307E+00_JPRB, 0.138441E+00_JPRB &
+  &, 0.127224E+00_JPRB, 0.116654E+00_JPRB, 0.106709E+00_JPRB, 0.973776E-01_JPRB &
+  &, 0.886545E-01_JPRB, 0.805105E-01_JPRB, 0.729217E-01_JPRB &
+  &, 0.658924E-01_JPRB, 0.593794E-01_JPRB, 0.533789E-01_JPRB, 0.478606E-01_JPRB &
+  &, 0.427885E-01_JPRB, 0.381583E-01_JPRB, 0.339244E-01_JPRB &
+  &, 0.300871E-01_JPRB, 0.266044E-01_JPRB, 0.234696E-01_JPRB, 0.206311E-01_JPRB &
+  &, 0.181028E-01_JPRB, 0.158246E-01_JPRB, 0.138049E-01_JPRB &
+  &, 0.119893E-01_JPRB, 0.103969E-01_JPRB, 0.898208E-02_JPRB, 0.774416E-02_JPRB &
+  &, 0.666435E-02_JPRB, 0.570403E-02_JPRB, 0.487357E-02_JPRB &
+  &, 0.414743E-02_JPRB, 0.351575E-02_JPRB, 0.298629E-02_JPRB, 0.250892E-02_JPRB &
+  &, 0.212771E-02_JPRB, 0.176896E-02_JPRB, 0.147615E-02_JPRB &
+  &, 0.123311E-02_JPRB, 0.102201E-02_JPRB, 0.845323E-03_JPRB, 0.705583E-03_JPRB &
+  &, 0.582502E-03_JPRB, 0.477360E-03_JPRB, 0.391470E-03_JPRB &
+  &, 0.301860E-03_JPRB, 0.258074E-03_JPRB, 0.212393E-03_JPRB, 0.164781E-03_JPRB &
+  &, 0.115202E-03_JPRB, 0.904305E-04_JPRB, 0.646515E-04_JPRB &
+  &, 0.656946E-04_JPRB, 0.383748E-04_JPRB, 0.389082E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 112, :) = (/ &
+  &  0.879756E+00_JPRB, 0.850337E+00_JPRB, 0.821208E+00_JPRB, 0.792390E+00_JPRB &
+  &, 0.763897E+00_JPRB, 0.735749E+00_JPRB, 0.707961E+00_JPRB &
+  &, 0.680552E+00_JPRB, 0.653539E+00_JPRB, 0.626940E+00_JPRB, 0.600770E+00_JPRB &
+  &, 0.575046E+00_JPRB, 0.549787E+00_JPRB, 0.525009E+00_JPRB &
+  &, 0.500728E+00_JPRB, 0.476959E+00_JPRB, 0.453720E+00_JPRB, 0.431025E+00_JPRB &
+  &, 0.408888E+00_JPRB, 0.387325E+00_JPRB, 0.366350E+00_JPRB &
+  &, 0.345973E+00_JPRB, 0.326211E+00_JPRB, 0.307071E+00_JPRB, 0.288567E+00_JPRB &
+  &, 0.270707E+00_JPRB, 0.253493E+00_JPRB, 0.236938E+00_JPRB &
+  &, 0.221046E+00_JPRB, 0.205821E+00_JPRB, 0.191262E+00_JPRB, 0.177368E+00_JPRB &
+  &, 0.164141E+00_JPRB, 0.151577E+00_JPRB, 0.139666E+00_JPRB &
+  &, 0.128405E+00_JPRB, 0.117779E+00_JPRB, 0.107785E+00_JPRB, 0.984002E-01_JPRB &
+  &, 0.896207E-01_JPRB, 0.814273E-01_JPRB, 0.737968E-01_JPRB &
+  &, 0.667119E-01_JPRB, 0.601513E-01_JPRB, 0.541003E-01_JPRB, 0.485283E-01_JPRB &
+  &, 0.434117E-01_JPRB, 0.387342E-01_JPRB, 0.344631E-01_JPRB &
+  &, 0.305733E-01_JPRB, 0.270620E-01_JPRB, 0.238694E-01_JPRB, 0.210122E-01_JPRB &
+  &, 0.184352E-01_JPRB, 0.161353E-01_JPRB, 0.140774E-01_JPRB &
+  &, 0.122373E-01_JPRB, 0.106189E-01_JPRB, 0.919300E-02_JPRB, 0.792672E-02_JPRB &
+  &, 0.681713E-02_JPRB, 0.584291E-02_JPRB, 0.499782E-02_JPRB &
+  &, 0.425631E-02_JPRB, 0.360850E-02_JPRB, 0.306212E-02_JPRB, 0.258641E-02_JPRB &
+  &, 0.218709E-02_JPRB, 0.182961E-02_JPRB, 0.153810E-02_JPRB &
+  &, 0.127529E-02_JPRB, 0.106508E-02_JPRB, 0.889287E-03_JPRB, 0.728021E-03_JPRB &
+  &, 0.605402E-03_JPRB, 0.500728E-03_JPRB, 0.391470E-03_JPRB &
+  &, 0.326182E-03_JPRB, 0.258074E-03_JPRB, 0.212393E-03_JPRB, 0.164781E-03_JPRB &
+  &, 0.141503E-03_JPRB, 0.117241E-03_JPRB, 0.919772E-04_JPRB &
+  &, 0.656946E-04_JPRB, 0.383748E-04_JPRB, 0.389082E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART16',1,ZHOOK_HANDLE)
+END SUBROUTINE PART16
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART17
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART17',0,ZHOOK_HANDLE)
+
+XCW( 113, :) = (/ &
+  &  0.880240E+00_JPRB, 0.850928E+00_JPRB, 0.821901E+00_JPRB, 0.793179E+00_JPRB &
+  &, 0.764777E+00_JPRB, 0.736714E+00_JPRB, 0.709006E+00_JPRB &
+  &, 0.681671E+00_JPRB, 0.654727E+00_JPRB, 0.628190E+00_JPRB, 0.602078E+00_JPRB &
+  &, 0.576407E+00_JPRB, 0.551195E+00_JPRB, 0.526457E+00_JPRB &
+  &, 0.502211E+00_JPRB, 0.478474E+00_JPRB, 0.455259E+00_JPRB, 0.432583E+00_JPRB &
+  &, 0.410461E+00_JPRB, 0.388908E+00_JPRB, 0.367938E+00_JPRB &
+  &, 0.347561E+00_JPRB, 0.327795E+00_JPRB, 0.308646E+00_JPRB, 0.290127E+00_JPRB &
+  &, 0.272245E+00_JPRB, 0.255013E+00_JPRB, 0.238434E+00_JPRB &
+  &, 0.222512E+00_JPRB, 0.207252E+00_JPRB, 0.192654E+00_JPRB, 0.178723E+00_JPRB &
+  &, 0.165453E+00_JPRB, 0.152842E+00_JPRB, 0.140886E+00_JPRB &
+  &, 0.129577E+00_JPRB, 0.118904E+00_JPRB, 0.108860E+00_JPRB, 0.994328E-01_JPRB &
+  &, 0.905972E-01_JPRB, 0.823441E-01_JPRB, 0.746610E-01_JPRB &
+  &, 0.675314E-01_JPRB, 0.609232E-01_JPRB, 0.548100E-01_JPRB, 0.491961E-01_JPRB &
+  &, 0.440348E-01_JPRB, 0.393101E-01_JPRB, 0.349890E-01_JPRB &
+  &, 0.310726E-01_JPRB, 0.275062E-01_JPRB, 0.242829E-01_JPRB, 0.213792E-01_JPRB &
+  &, 0.187820E-01_JPRB, 0.164460E-01_JPRB, 0.143500E-01_JPRB &
+  &, 0.125007E-01_JPRB, 0.108409E-01_JPRB, 0.938769E-02_JPRB, 0.810929E-02_JPRB &
+  &, 0.696991E-02_JPRB, 0.598179E-02_JPRB, 0.512207E-02_JPRB &
+  &, 0.436519E-02_JPRB, 0.371979E-02_JPRB, 0.315690E-02_JPRB, 0.266390E-02_JPRB &
+  &, 0.224646E-02_JPRB, 0.189026E-02_JPRB, 0.157940E-02_JPRB &
+  &, 0.131746E-02_JPRB, 0.108661E-02_JPRB, 0.911270E-03_JPRB, 0.750459E-03_JPRB &
+  &, 0.628303E-03_JPRB, 0.500728E-03_JPRB, 0.415311E-03_JPRB &
+  &, 0.326182E-03_JPRB, 0.282882E-03_JPRB, 0.212393E-03_JPRB, 0.164781E-03_JPRB &
+  &, 0.141503E-03_JPRB, 0.117241E-03_JPRB, 0.919772E-04_JPRB &
+  &, 0.656946E-04_JPRB, 0.383748E-04_JPRB, 0.389082E-04_JPRB, 0.394477E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 114, :) = (/ &
+  &  0.880720E+00_JPRB, 0.851515E+00_JPRB, 0.822590E+00_JPRB, 0.793964E+00_JPRB &
+  &, 0.765652E+00_JPRB, 0.737674E+00_JPRB, 0.710046E+00_JPRB &
+  &, 0.682785E+00_JPRB, 0.655909E+00_JPRB, 0.629435E+00_JPRB, 0.603380E+00_JPRB &
+  &, 0.577761E+00_JPRB, 0.552595E+00_JPRB, 0.527899E+00_JPRB &
+  &, 0.503689E+00_JPRB, 0.479982E+00_JPRB, 0.456792E+00_JPRB, 0.434136E+00_JPRB &
+  &, 0.412029E+00_JPRB, 0.390485E+00_JPRB, 0.369521E+00_JPRB &
+  &, 0.349146E+00_JPRB, 0.329372E+00_JPRB, 0.310215E+00_JPRB, 0.291682E+00_JPRB &
+  &, 0.273784E+00_JPRB, 0.256529E+00_JPRB, 0.239922E+00_JPRB &
+  &, 0.223970E+00_JPRB, 0.208678E+00_JPRB, 0.194046E+00_JPRB, 0.180079E+00_JPRB &
+  &, 0.166769E+00_JPRB, 0.154112E+00_JPRB, 0.142111E+00_JPRB &
+  &, 0.130749E+00_JPRB, 0.120030E+00_JPRB, 0.109936E+00_JPRB, 0.100455E+00_JPRB &
+  &, 0.915736E-01_JPRB, 0.832715E-01_JPRB, 0.755361E-01_JPRB &
+  &, 0.683509E-01_JPRB, 0.616951E-01_JPRB, 0.555430E-01_JPRB, 0.498638E-01_JPRB &
+  &, 0.446580E-01_JPRB, 0.398860E-01_JPRB, 0.355277E-01_JPRB &
+  &, 0.315587E-01_JPRB, 0.279638E-01_JPRB, 0.246964E-01_JPRB, 0.217602E-01_JPRB &
+  &, 0.191144E-01_JPRB, 0.167567E-01_JPRB, 0.146377E-01_JPRB &
+  &, 0.127487E-01_JPRB, 0.110787E-01_JPRB, 0.959860E-02_JPRB, 0.829186E-02_JPRB &
+  &, 0.713967E-02_JPRB, 0.612066E-02_JPRB, 0.524632E-02_JPRB &
+  &, 0.447407E-02_JPRB, 0.381254E-02_JPRB, 0.323273E-02_JPRB, 0.274138E-02_JPRB &
+  &, 0.230584E-02_JPRB, 0.193070E-02_JPRB, 0.162070E-02_JPRB &
+  &, 0.135964E-02_JPRB, 0.112967E-02_JPRB, 0.933252E-03_JPRB, 0.772897E-03_JPRB &
+  &, 0.651203E-03_JPRB, 0.524096E-03_JPRB, 0.439153E-03_JPRB &
+  &, 0.350503E-03_JPRB, 0.282882E-03_JPRB, 0.237693E-03_JPRB, 0.190578E-03_JPRB &
+  &, 0.141503E-03_JPRB, 0.117241E-03_JPRB, 0.919772E-04_JPRB &
+  &, 0.656946E-04_JPRB, 0.383748E-04_JPRB, 0.389082E-04_JPRB, 0.394477E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 115, :) = (/ &
+  &  0.881198E+00_JPRB, 0.852099E+00_JPRB, 0.823275E+00_JPRB, 0.794744E+00_JPRB &
+  &, 0.766523E+00_JPRB, 0.738629E+00_JPRB, 0.711080E+00_JPRB &
+  &, 0.683892E+00_JPRB, 0.657084E+00_JPRB, 0.630673E+00_JPRB, 0.604676E+00_JPRB &
+  &, 0.579109E+00_JPRB, 0.553989E+00_JPRB, 0.529335E+00_JPRB &
+  &, 0.505160E+00_JPRB, 0.481484E+00_JPRB, 0.458318E+00_JPRB, 0.435684E+00_JPRB &
+  &, 0.413591E+00_JPRB, 0.392059E+00_JPRB, 0.371096E+00_JPRB &
+  &, 0.350724E+00_JPRB, 0.330946E+00_JPRB, 0.311780E+00_JPRB, 0.293235E+00_JPRB &
+  &, 0.275319E+00_JPRB, 0.258042E+00_JPRB, 0.241410E+00_JPRB &
+  &, 0.225429E+00_JPRB, 0.210105E+00_JPRB, 0.195438E+00_JPRB, 0.181430E+00_JPRB &
+  &, 0.168081E+00_JPRB, 0.155382E+00_JPRB, 0.143336E+00_JPRB &
+  &, 0.131930E+00_JPRB, 0.121165E+00_JPRB, 0.111021E+00_JPRB, 0.101488E+00_JPRB &
+  &, 0.925501E-01_JPRB, 0.841988E-01_JPRB, 0.764112E-01_JPRB &
+  &, 0.691815E-01_JPRB, 0.624670E-01_JPRB, 0.562643E-01_JPRB, 0.505435E-01_JPRB &
+  &, 0.452934E-01_JPRB, 0.404745E-01_JPRB, 0.360664E-01_JPRB &
+  &, 0.320581E-01_JPRB, 0.284214E-01_JPRB, 0.251237E-01_JPRB, 0.221413E-01_JPRB &
+  &, 0.194612E-01_JPRB, 0.170673E-01_JPRB, 0.149254E-01_JPRB &
+  &, 0.130121E-01_JPRB, 0.113008E-01_JPRB, 0.979330E-02_JPRB, 0.847442E-02_JPRB &
+  &, 0.729244E-02_JPRB, 0.627690E-02_JPRB, 0.537058E-02_JPRB &
+  &, 0.458295E-02_JPRB, 0.390528E-02_JPRB, 0.332752E-02_JPRB, 0.281887E-02_JPRB &
+  &, 0.236521E-02_JPRB, 0.199135E-02_JPRB, 0.168265E-02_JPRB &
+  &, 0.140182E-02_JPRB, 0.117274E-02_JPRB, 0.977216E-03_JPRB, 0.795336E-03_JPRB &
+  &, 0.651203E-03_JPRB, 0.547464E-03_JPRB, 0.439153E-03_JPRB &
+  &, 0.374825E-03_JPRB, 0.282882E-03_JPRB, 0.237693E-03_JPRB, 0.190578E-03_JPRB &
+  &, 0.141503E-03_JPRB, 0.117241E-03_JPRB, 0.919772E-04_JPRB &
+  &, 0.656946E-04_JPRB, 0.667496E-04_JPRB, 0.389082E-04_JPRB, 0.394477E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 116, :) = (/ &
+  &  0.881674E+00_JPRB, 0.852680E+00_JPRB, 0.823956E+00_JPRB, 0.795520E+00_JPRB &
+  &, 0.767388E+00_JPRB, 0.739578E+00_JPRB, 0.712108E+00_JPRB &
+  &, 0.684994E+00_JPRB, 0.658255E+00_JPRB, 0.631906E+00_JPRB, 0.605966E+00_JPRB &
+  &, 0.580450E+00_JPRB, 0.555378E+00_JPRB, 0.530763E+00_JPRB &
+  &, 0.506625E+00_JPRB, 0.482978E+00_JPRB, 0.459840E+00_JPRB, 0.437224E+00_JPRB &
+  &, 0.415149E+00_JPRB, 0.393626E+00_JPRB, 0.372669E+00_JPRB &
+  &, 0.352296E+00_JPRB, 0.332516E+00_JPRB, 0.313342E+00_JPRB, 0.294780E+00_JPRB &
+  &, 0.276850E+00_JPRB, 0.259551E+00_JPRB, 0.242895E+00_JPRB &
+  &, 0.226887E+00_JPRB, 0.211531E+00_JPRB, 0.196830E+00_JPRB, 0.182785E+00_JPRB &
+  &, 0.169393E+00_JPRB, 0.156651E+00_JPRB, 0.144560E+00_JPRB &
+  &, 0.133112E+00_JPRB, 0.122290E+00_JPRB, 0.112097E+00_JPRB, 0.102521E+00_JPRB &
+  &, 0.935369E-01_JPRB, 0.851262E-01_JPRB, 0.772970E-01_JPRB &
+  &, 0.700011E-01_JPRB, 0.632503E-01_JPRB, 0.569973E-01_JPRB, 0.512232E-01_JPRB &
+  &, 0.459166E-01_JPRB, 0.410629E-01_JPRB, 0.366180E-01_JPRB &
+  &, 0.325574E-01_JPRB, 0.288790E-01_JPRB, 0.255372E-01_JPRB, 0.225365E-01_JPRB &
+  &, 0.198225E-01_JPRB, 0.173780E-01_JPRB, 0.152131E-01_JPRB &
+  &, 0.132601E-01_JPRB, 0.115386E-01_JPRB, 0.100042E-01_JPRB, 0.865699E-02_JPRB &
+  &, 0.746220E-02_JPRB, 0.641578E-02_JPRB, 0.549483E-02_JPRB &
+  &, 0.470998E-02_JPRB, 0.401657E-02_JPRB, 0.340335E-02_JPRB, 0.287698E-02_JPRB &
+  &, 0.244438E-02_JPRB, 0.205201E-02_JPRB, 0.172395E-02_JPRB &
+  &, 0.144399E-02_JPRB, 0.119427E-02_JPRB, 0.999198E-03_JPRB, 0.840212E-03_JPRB &
+  &, 0.674103E-03_JPRB, 0.570832E-03_JPRB, 0.462995E-03_JPRB &
+  &, 0.374825E-03_JPRB, 0.307689E-03_JPRB, 0.237693E-03_JPRB, 0.190578E-03_JPRB &
+  &, 0.167803E-03_JPRB, 0.117241E-03_JPRB, 0.919772E-04_JPRB &
+  &, 0.656946E-04_JPRB, 0.667496E-04_JPRB, 0.389082E-04_JPRB, 0.394477E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 117, :) = (/ &
+  &  0.882147E+00_JPRB, 0.853258E+00_JPRB, 0.824633E+00_JPRB, 0.796292E+00_JPRB &
+  &, 0.768249E+00_JPRB, 0.740523E+00_JPRB, 0.713131E+00_JPRB &
+  &, 0.686091E+00_JPRB, 0.659419E+00_JPRB, 0.633132E+00_JPRB, 0.607249E+00_JPRB &
+  &, 0.581786E+00_JPRB, 0.556759E+00_JPRB, 0.532186E+00_JPRB &
+  &, 0.508084E+00_JPRB, 0.484469E+00_JPRB, 0.461355E+00_JPRB, 0.438760E+00_JPRB &
+  &, 0.416700E+00_JPRB, 0.395187E+00_JPRB, 0.374238E+00_JPRB &
+  &, 0.353864E+00_JPRB, 0.334080E+00_JPRB, 0.314897E+00_JPRB, 0.296326E+00_JPRB &
+  &, 0.278378E+00_JPRB, 0.261059E+00_JPRB, 0.244379E+00_JPRB &
+  &, 0.228342E+00_JPRB, 0.212954E+00_JPRB, 0.198218E+00_JPRB, 0.184137E+00_JPRB &
+  &, 0.170705E+00_JPRB, 0.157921E+00_JPRB, 0.145790E+00_JPRB &
+  &, 0.134293E+00_JPRB, 0.123425E+00_JPRB, 0.113182E+00_JPRB, 0.103553E+00_JPRB &
+  &, 0.945134E-01_JPRB, 0.860641E-01_JPRB, 0.781721E-01_JPRB &
+  &, 0.708427E-01_JPRB, 0.640222E-01_JPRB, 0.577303E-01_JPRB, 0.519147E-01_JPRB &
+  &, 0.465642E-01_JPRB, 0.416513E-01_JPRB, 0.371567E-01_JPRB &
+  &, 0.330698E-01_JPRB, 0.293500E-01_JPRB, 0.259645E-01_JPRB, 0.229176E-01_JPRB &
+  &, 0.201693E-01_JPRB, 0.177035E-01_JPRB, 0.155008E-01_JPRB &
+  &, 0.135236E-01_JPRB, 0.117765E-01_JPRB, 0.102151E-01_JPRB, 0.883955E-02_JPRB &
+  &, 0.763195E-02_JPRB, 0.657202E-02_JPRB, 0.563683E-02_JPRB &
+  &, 0.481886E-02_JPRB, 0.410932E-02_JPRB, 0.349813E-02_JPRB, 0.295447E-02_JPRB &
+  &, 0.250376E-02_JPRB, 0.211266E-02_JPRB, 0.176525E-02_JPRB &
+  &, 0.148617E-02_JPRB, 0.123733E-02_JPRB, 0.104316E-02_JPRB, 0.862650E-03_JPRB &
+  &, 0.719903E-03_JPRB, 0.594200E-03_JPRB, 0.486837E-03_JPRB &
+  &, 0.399147E-03_JPRB, 0.307689E-03_JPRB, 0.262992E-03_JPRB, 0.216375E-03_JPRB &
+  &, 0.167803E-03_JPRB, 0.144051E-03_JPRB, 0.919772E-04_JPRB &
+  &, 0.935418E-04_JPRB, 0.667496E-04_JPRB, 0.389082E-04_JPRB, 0.394477E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 118, :) = (/ &
+  &  0.882615E+00_JPRB, 0.853832E+00_JPRB, 0.825306E+00_JPRB, 0.797059E+00_JPRB &
+  &, 0.769105E+00_JPRB, 0.741462E+00_JPRB, 0.714149E+00_JPRB &
+  &, 0.687181E+00_JPRB, 0.660577E+00_JPRB, 0.634353E+00_JPRB, 0.608527E+00_JPRB &
+  &, 0.583115E+00_JPRB, 0.558135E+00_JPRB, 0.533604E+00_JPRB &
+  &, 0.509537E+00_JPRB, 0.485953E+00_JPRB, 0.462865E+00_JPRB, 0.440292E+00_JPRB &
+  &, 0.418246E+00_JPRB, 0.396744E+00_JPRB, 0.375801E+00_JPRB &
+  &, 0.355429E+00_JPRB, 0.335640E+00_JPRB, 0.316451E+00_JPRB, 0.297867E+00_JPRB &
+  &, 0.279902E+00_JPRB, 0.262564E+00_JPRB, 0.245860E+00_JPRB &
+  &, 0.229796E+00_JPRB, 0.214376E+00_JPRB, 0.199606E+00_JPRB, 0.185488E+00_JPRB &
+  &, 0.172016E+00_JPRB, 0.159195E+00_JPRB, 0.147014E+00_JPRB &
+  &, 0.135474E+00_JPRB, 0.124560E+00_JPRB, 0.114267E+00_JPRB, 0.104586E+00_JPRB &
+  &, 0.955002E-01_JPRB, 0.870019E-01_JPRB, 0.790580E-01_JPRB &
+  &, 0.716733E-01_JPRB, 0.648168E-01_JPRB, 0.584633E-01_JPRB, 0.525944E-01_JPRB &
+  &, 0.471996E-01_JPRB, 0.422398E-01_JPRB, 0.377083E-01_JPRB &
+  &, 0.335691E-01_JPRB, 0.298076E-01_JPRB, 0.263917E-01_JPRB, 0.233128E-01_JPRB &
+  &, 0.205306E-01_JPRB, 0.180289E-01_JPRB, 0.157885E-01_JPRB &
+  &, 0.137870E-01_JPRB, 0.120144E-01_JPRB, 0.104260E-01_JPRB, 0.903872E-02_JPRB &
+  &, 0.780171E-02_JPRB, 0.671090E-02_JPRB, 0.576108E-02_JPRB &
+  &, 0.492774E-02_JPRB, 0.422061E-02_JPRB, 0.359292E-02_JPRB, 0.305133E-02_JPRB &
+  &, 0.258292E-02_JPRB, 0.217331E-02_JPRB, 0.182720E-02_JPRB &
+  &, 0.152834E-02_JPRB, 0.128040E-02_JPRB, 0.106514E-02_JPRB, 0.885088E-03_JPRB &
+  &, 0.742803E-03_JPRB, 0.594200E-03_JPRB, 0.486837E-03_JPRB &
+  &, 0.399147E-03_JPRB, 0.332497E-03_JPRB, 0.262992E-03_JPRB, 0.216375E-03_JPRB &
+  &, 0.167803E-03_JPRB, 0.144051E-03_JPRB, 0.119303E-03_JPRB &
+  &, 0.935418E-04_JPRB, 0.667496E-04_JPRB, 0.389082E-04_JPRB, 0.394477E-04_JPRB &
+  &, 0.399930E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 119, :) = (/ &
+  &  0.883084E+00_JPRB, 0.854403E+00_JPRB, 0.825976E+00_JPRB, 0.797823E+00_JPRB &
+  &, 0.769957E+00_JPRB, 0.742398E+00_JPRB, 0.715162E+00_JPRB &
+  &, 0.688267E+00_JPRB, 0.661730E+00_JPRB, 0.635568E+00_JPRB, 0.609799E+00_JPRB &
+  &, 0.584439E+00_JPRB, 0.559505E+00_JPRB, 0.535015E+00_JPRB &
+  &, 0.510984E+00_JPRB, 0.487430E+00_JPRB, 0.464370E+00_JPRB, 0.441817E+00_JPRB &
+  &, 0.419787E+00_JPRB, 0.398296E+00_JPRB, 0.377358E+00_JPRB &
+  &, 0.356987E+00_JPRB, 0.337200E+00_JPRB, 0.317999E+00_JPRB, 0.299405E+00_JPRB &
+  &, 0.281426E+00_JPRB, 0.264066E+00_JPRB, 0.247337E+00_JPRB &
+  &, 0.231247E+00_JPRB, 0.215799E+00_JPRB, 0.200995E+00_JPRB, 0.186839E+00_JPRB &
+  &, 0.173328E+00_JPRB, 0.160465E+00_JPRB, 0.148239E+00_JPRB &
+  &, 0.136655E+00_JPRB, 0.125695E+00_JPRB, 0.115353E+00_JPRB, 0.105619E+00_JPRB &
+  &, 0.964869E-01_JPRB, 0.879398E-01_JPRB, 0.799439E-01_JPRB &
+  &, 0.725039E-01_JPRB, 0.656001E-01_JPRB, 0.591963E-01_JPRB, 0.532860E-01_JPRB &
+  &, 0.478472E-01_JPRB, 0.428407E-01_JPRB, 0.382598E-01_JPRB &
+  &, 0.340816E-01_JPRB, 0.302787E-01_JPRB, 0.268328E-01_JPRB, 0.237080E-01_JPRB &
+  &, 0.208919E-01_JPRB, 0.183544E-01_JPRB, 0.160914E-01_JPRB &
+  &, 0.140660E-01_JPRB, 0.122522E-01_JPRB, 0.106532E-01_JPRB, 0.922128E-02_JPRB &
+  &, 0.797146E-02_JPRB, 0.686714E-02_JPRB, 0.590308E-02_JPRB &
+  &, 0.505476E-02_JPRB, 0.431336E-02_JPRB, 0.368771E-02_JPRB, 0.312881E-02_JPRB &
+  &, 0.264230E-02_JPRB, 0.223397E-02_JPRB, 0.188915E-02_JPRB &
+  &, 0.157052E-02_JPRB, 0.132346E-02_JPRB, 0.110911E-02_JPRB, 0.907526E-03_JPRB &
+  &, 0.765703E-03_JPRB, 0.617568E-03_JPRB, 0.510679E-03_JPRB &
+  &, 0.423468E-03_JPRB, 0.332497E-03_JPRB, 0.288291E-03_JPRB, 0.216375E-03_JPRB &
+  &, 0.167803E-03_JPRB, 0.144051E-03_JPRB, 0.119303E-03_JPRB &
+  &, 0.935418E-04_JPRB, 0.667496E-04_JPRB, 0.389082E-04_JPRB, 0.394477E-04_JPRB &
+  &, 0.399930E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART17',1,ZHOOK_HANDLE)
+END SUBROUTINE PART17
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART18
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART18',0,ZHOOK_HANDLE)
+
+XCW( 120, :) = (/ &
+  &  0.883547E+00_JPRB, 0.854971E+00_JPRB, 0.826642E+00_JPRB, 0.798579E+00_JPRB &
+  &, 0.770804E+00_JPRB, 0.743327E+00_JPRB, 0.716169E+00_JPRB &
+  &, 0.689347E+00_JPRB, 0.662877E+00_JPRB, 0.636777E+00_JPRB, 0.611065E+00_JPRB &
+  &, 0.585755E+00_JPRB, 0.560869E+00_JPRB, 0.536420E+00_JPRB &
+  &, 0.512426E+00_JPRB, 0.488903E+00_JPRB, 0.465867E+00_JPRB, 0.443336E+00_JPRB &
+  &, 0.421322E+00_JPRB, 0.399844E+00_JPRB, 0.378911E+00_JPRB &
+  &, 0.358545E+00_JPRB, 0.338750E+00_JPRB, 0.319547E+00_JPRB, 0.300940E+00_JPRB &
+  &, 0.282943E+00_JPRB, 0.265567E+00_JPRB, 0.248814E+00_JPRB &
+  &, 0.232698E+00_JPRB, 0.217217E+00_JPRB, 0.202383E+00_JPRB, 0.188191E+00_JPRB &
+  &, 0.174640E+00_JPRB, 0.161735E+00_JPRB, 0.149468E+00_JPRB &
+  &, 0.137837E+00_JPRB, 0.126829E+00_JPRB, 0.116438E+00_JPRB, 0.106661E+00_JPRB &
+  &, 0.974737E-01_JPRB, 0.888777E-01_JPRB, 0.808405E-01_JPRB &
+  &, 0.733456E-01_JPRB, 0.663947E-01_JPRB, 0.599409E-01_JPRB, 0.539776E-01_JPRB &
+  &, 0.484948E-01_JPRB, 0.434417E-01_JPRB, 0.388242E-01_JPRB &
+  &, 0.346072E-01_JPRB, 0.307632E-01_JPRB, 0.272601E-01_JPRB, 0.241032E-01_JPRB &
+  &, 0.212532E-01_JPRB, 0.186947E-01_JPRB, 0.163942E-01_JPRB &
+  &, 0.143294E-01_JPRB, 0.124901E-01_JPRB, 0.108641E-01_JPRB, 0.942044E-02_JPRB &
+  &, 0.814121E-02_JPRB, 0.702338E-02_JPRB, 0.604509E-02_JPRB &
+  &, 0.518179E-02_JPRB, 0.442465E-02_JPRB, 0.376354E-02_JPRB, 0.320630E-02_JPRB &
+  &, 0.272146E-02_JPRB, 0.229462E-02_JPRB, 0.193045E-02_JPRB &
+  &, 0.163378E-02_JPRB, 0.136653E-02_JPRB, 0.113109E-02_JPRB, 0.952403E-03_JPRB &
+  &, 0.788603E-03_JPRB, 0.640936E-03_JPRB, 0.534521E-03_JPRB &
+  &, 0.447790E-03_JPRB, 0.357304E-03_JPRB, 0.288291E-03_JPRB, 0.242172E-03_JPRB &
+  &, 0.194104E-03_JPRB, 0.144051E-03_JPRB, 0.119303E-03_JPRB &
+  &, 0.935418E-04_JPRB, 0.667496E-04_JPRB, 0.678165E-04_JPRB, 0.394477E-04_JPRB &
+  &, 0.399930E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 121, :) = (/ &
+  &  0.884009E+00_JPRB, 0.855535E+00_JPRB, 0.827305E+00_JPRB, 0.799337E+00_JPRB &
+  &, 0.771647E+00_JPRB, 0.744253E+00_JPRB, 0.717172E+00_JPRB &
+  &, 0.690421E+00_JPRB, 0.664019E+00_JPRB, 0.637981E+00_JPRB, 0.612325E+00_JPRB &
+  &, 0.587067E+00_JPRB, 0.562227E+00_JPRB, 0.537819E+00_JPRB &
+  &, 0.513861E+00_JPRB, 0.490370E+00_JPRB, 0.467360E+00_JPRB, 0.444851E+00_JPRB &
+  &, 0.422853E+00_JPRB, 0.401386E+00_JPRB, 0.380461E+00_JPRB &
+  &, 0.360094E+00_JPRB, 0.340300E+00_JPRB, 0.321088E+00_JPRB, 0.302471E+00_JPRB &
+  &, 0.284459E+00_JPRB, 0.267065E+00_JPRB, 0.250291E+00_JPRB &
+  &, 0.234144E+00_JPRB, 0.218635E+00_JPRB, 0.203767E+00_JPRB, 0.189538E+00_JPRB &
+  &, 0.175952E+00_JPRB, 0.163005E+00_JPRB, 0.150697E+00_JPRB &
+  &, 0.139018E+00_JPRB, 0.127964E+00_JPRB, 0.117533E+00_JPRB, 0.107704E+00_JPRB &
+  &, 0.984707E-01_JPRB, 0.898156E-01_JPRB, 0.817264E-01_JPRB &
+  &, 0.741872E-01_JPRB, 0.671780E-01_JPRB, 0.606856E-01_JPRB, 0.546811E-01_JPRB &
+  &, 0.491424E-01_JPRB, 0.440552E-01_JPRB, 0.393886E-01_JPRB &
+  &, 0.351196E-01_JPRB, 0.312342E-01_JPRB, 0.277012E-01_JPRB, 0.245125E-01_JPRB &
+  &, 0.216145E-01_JPRB, 0.190201E-01_JPRB, 0.166971E-01_JPRB &
+  &, 0.146084E-01_JPRB, 0.127438E-01_JPRB, 0.110912E-01_JPRB, 0.961961E-02_JPRB &
+  &, 0.832794E-02_JPRB, 0.717962E-02_JPRB, 0.618709E-02_JPRB &
+  &, 0.530881E-02_JPRB, 0.453595E-02_JPRB, 0.387728E-02_JPRB, 0.328378E-02_JPRB &
+  &, 0.278084E-02_JPRB, 0.235527E-02_JPRB, 0.199240E-02_JPRB &
+  &, 0.167596E-02_JPRB, 0.140959E-02_JPRB, 0.117506E-02_JPRB, 0.974841E-03_JPRB &
+  &, 0.811503E-03_JPRB, 0.664304E-03_JPRB, 0.558363E-03_JPRB &
+  &, 0.447790E-03_JPRB, 0.357304E-03_JPRB, 0.288291E-03_JPRB, 0.242172E-03_JPRB &
+  &, 0.194104E-03_JPRB, 0.144051E-03_JPRB, 0.119303E-03_JPRB &
+  &, 0.935418E-04_JPRB, 0.667496E-04_JPRB, 0.678165E-04_JPRB, 0.394477E-04_JPRB &
+  &, 0.399930E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 122, :) = (/ &
+  &  0.884468E+00_JPRB, 0.856097E+00_JPRB, 0.827964E+00_JPRB, 0.800088E+00_JPRB &
+  &, 0.772485E+00_JPRB, 0.745173E+00_JPRB, 0.718170E+00_JPRB &
+  &, 0.691491E+00_JPRB, 0.665155E+00_JPRB, 0.639179E+00_JPRB, 0.613580E+00_JPRB &
+  &, 0.588374E+00_JPRB, 0.563579E+00_JPRB, 0.539214E+00_JPRB &
+  &, 0.515292E+00_JPRB, 0.491831E+00_JPRB, 0.468849E+00_JPRB, 0.446359E+00_JPRB &
+  &, 0.424378E+00_JPRB, 0.402921E+00_JPRB, 0.382004E+00_JPRB &
+  &, 0.361642E+00_JPRB, 0.341843E+00_JPRB, 0.322625E+00_JPRB, 0.303999E+00_JPRB &
+  &, 0.285973E+00_JPRB, 0.268558E+00_JPRB, 0.251760E+00_JPRB &
+  &, 0.235591E+00_JPRB, 0.220054E+00_JPRB, 0.205151E+00_JPRB, 0.190889E+00_JPRB &
+  &, 0.177264E+00_JPRB, 0.164274E+00_JPRB, 0.151922E+00_JPRB &
+  &, 0.140199E+00_JPRB, 0.129099E+00_JPRB, 0.118619E+00_JPRB, 0.108746E+00_JPRB &
+  &, 0.994678E-01_JPRB, 0.907640E-01_JPRB, 0.826231E-01_JPRB &
+  &, 0.750400E-01_JPRB, 0.679839E-01_JPRB, 0.614302E-01_JPRB, 0.553846E-01_JPRB &
+  &, 0.497900E-01_JPRB, 0.446561E-01_JPRB, 0.399530E-01_JPRB &
+  &, 0.356452E-01_JPRB, 0.317187E-01_JPRB, 0.281423E-01_JPRB, 0.249078E-01_JPRB &
+  &, 0.219902E-01_JPRB, 0.193604E-01_JPRB, 0.169999E-01_JPRB &
+  &, 0.148873E-01_JPRB, 0.129975E-01_JPRB, 0.113184E-01_JPRB, 0.981877E-02_JPRB &
+  &, 0.849770E-02_JPRB, 0.733585E-02_JPRB, 0.632909E-02_JPRB &
+  &, 0.541769E-02_JPRB, 0.464724E-02_JPRB, 0.397206E-02_JPRB, 0.338064E-02_JPRB &
+  &, 0.286001E-02_JPRB, 0.241593E-02_JPRB, 0.205435E-02_JPRB &
+  &, 0.171814E-02_JPRB, 0.143112E-02_JPRB, 0.119704E-02_JPRB, 0.997279E-03_JPRB &
+  &, 0.834403E-03_JPRB, 0.687672E-03_JPRB, 0.558363E-03_JPRB &
+  &, 0.472112E-03_JPRB, 0.382112E-03_JPRB, 0.313590E-03_JPRB, 0.242172E-03_JPRB &
+  &, 0.194104E-03_JPRB, 0.170861E-03_JPRB, 0.119303E-03_JPRB &
+  &, 0.935418E-04_JPRB, 0.667496E-04_JPRB, 0.678165E-04_JPRB, 0.394477E-04_JPRB &
+  &, 0.399930E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 123, :) = (/ &
+  &  0.884926E+00_JPRB, 0.856656E+00_JPRB, 0.828619E+00_JPRB, 0.800836E+00_JPRB &
+  &, 0.773320E+00_JPRB, 0.746090E+00_JPRB, 0.719163E+00_JPRB &
+  &, 0.692556E+00_JPRB, 0.666287E+00_JPRB, 0.640372E+00_JPRB, 0.614829E+00_JPRB &
+  &, 0.589674E+00_JPRB, 0.564927E+00_JPRB, 0.540601E+00_JPRB &
+  &, 0.516717E+00_JPRB, 0.493288E+00_JPRB, 0.470330E+00_JPRB, 0.447863E+00_JPRB &
+  &, 0.425900E+00_JPRB, 0.404453E+00_JPRB, 0.383544E+00_JPRB &
+  &, 0.363184E+00_JPRB, 0.343386E+00_JPRB, 0.324159E+00_JPRB, 0.305523E+00_JPRB &
+  &, 0.287482E+00_JPRB, 0.270048E+00_JPRB, 0.253233E+00_JPRB &
+  &, 0.237034E+00_JPRB, 0.221468E+00_JPRB, 0.206535E+00_JPRB, 0.192236E+00_JPRB &
+  &, 0.178576E+00_JPRB, 0.165548E+00_JPRB, 0.153151E+00_JPRB &
+  &, 0.141390E+00_JPRB, 0.130244E+00_JPRB, 0.119714E+00_JPRB, 0.109789E+00_JPRB &
+  &, 0.100465E+00_JPRB, 0.917125E-01_JPRB, 0.835198E-01_JPRB &
+  &, 0.758816E-01_JPRB, 0.687786E-01_JPRB, 0.621865E-01_JPRB, 0.560881E-01_JPRB &
+  &, 0.504498E-01_JPRB, 0.452696E-01_JPRB, 0.405174E-01_JPRB &
+  &, 0.361708E-01_JPRB, 0.322033E-01_JPRB, 0.285971E-01_JPRB, 0.253171E-01_JPRB &
+  &, 0.223659E-01_JPRB, 0.197006E-01_JPRB, 0.173028E-01_JPRB &
+  &, 0.151663E-01_JPRB, 0.132513E-01_JPRB, 0.115455E-01_JPRB, 0.100179E-01_JPRB &
+  &, 0.868443E-02_JPRB, 0.750945E-02_JPRB, 0.647109E-02_JPRB &
+  &, 0.554472E-02_JPRB, 0.475853E-02_JPRB, 0.406685E-02_JPRB, 0.345813E-02_JPRB &
+  &, 0.293917E-02_JPRB, 0.249680E-02_JPRB, 0.209565E-02_JPRB &
+  &, 0.176031E-02_JPRB, 0.147419E-02_JPRB, 0.124100E-02_JPRB, 0.104216E-02_JPRB &
+  &, 0.857304E-03_JPRB, 0.711040E-03_JPRB, 0.582204E-03_JPRB &
+  &, 0.472112E-03_JPRB, 0.406919E-03_JPRB, 0.313590E-03_JPRB, 0.267969E-03_JPRB &
+  &, 0.220404E-03_JPRB, 0.170861E-03_JPRB, 0.146629E-03_JPRB &
+  &, 0.935418E-04_JPRB, 0.951244E-04_JPRB, 0.678165E-04_JPRB, 0.394477E-04_JPRB &
+  &, 0.399930E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 124, :) = (/ &
+  &  0.885380E+00_JPRB, 0.857211E+00_JPRB, 0.829272E+00_JPRB, 0.801580E+00_JPRB &
+  &, 0.774150E+00_JPRB, 0.747001E+00_JPRB, 0.720151E+00_JPRB &
+  &, 0.693615E+00_JPRB, 0.667413E+00_JPRB, 0.641559E+00_JPRB, 0.616073E+00_JPRB &
+  &, 0.590970E+00_JPRB, 0.566269E+00_JPRB, 0.541985E+00_JPRB &
+  &, 0.518136E+00_JPRB, 0.494738E+00_JPRB, 0.471808E+00_JPRB, 0.449362E+00_JPRB &
+  &, 0.427415E+00_JPRB, 0.405982E+00_JPRB, 0.385081E+00_JPRB &
+  &, 0.364722E+00_JPRB, 0.344922E+00_JPRB, 0.325693E+00_JPRB, 0.307043E+00_JPRB &
+  &, 0.288988E+00_JPRB, 0.271539E+00_JPRB, 0.254698E+00_JPRB &
+  &, 0.238477E+00_JPRB, 0.222883E+00_JPRB, 0.207919E+00_JPRB, 0.193583E+00_JPRB &
+  &, 0.179883E+00_JPRB, 0.166818E+00_JPRB, 0.154385E+00_JPRB &
+  &, 0.142571E+00_JPRB, 0.131388E+00_JPRB, 0.120809E+00_JPRB, 0.110842E+00_JPRB &
+  &, 0.101462E+00_JPRB, 0.926609E-01_JPRB, 0.844273E-01_JPRB &
+  &, 0.767344E-01_JPRB, 0.695845E-01_JPRB, 0.629427E-01_JPRB, 0.567916E-01_JPRB &
+  &, 0.511096E-01_JPRB, 0.458831E-01_JPRB, 0.410946E-01_JPRB &
+  &, 0.366964E-01_JPRB, 0.326878E-01_JPRB, 0.290382E-01_JPRB, 0.257405E-01_JPRB &
+  &, 0.227416E-01_JPRB, 0.200409E-01_JPRB, 0.176208E-01_JPRB &
+  &, 0.154452E-01_JPRB, 0.135050E-01_JPRB, 0.117727E-01_JPRB, 0.102337E-01_JPRB &
+  &, 0.887116E-02_JPRB, 0.766569E-02_JPRB, 0.661309E-02_JPRB &
+  &, 0.568989E-02_JPRB, 0.486983E-02_JPRB, 0.416164E-02_JPRB, 0.355498E-02_JPRB &
+  &, 0.301834E-02_JPRB, 0.255745E-02_JPRB, 0.215760E-02_JPRB &
+  &, 0.182358E-02_JPRB, 0.153878E-02_JPRB, 0.128497E-02_JPRB, 0.106459E-02_JPRB &
+  &, 0.880204E-03_JPRB, 0.734408E-03_JPRB, 0.606046E-03_JPRB &
+  &, 0.496433E-03_JPRB, 0.406919E-03_JPRB, 0.338889E-03_JPRB, 0.267969E-03_JPRB &
+  &, 0.220404E-03_JPRB, 0.170861E-03_JPRB, 0.146629E-03_JPRB &
+  &, 0.121389E-03_JPRB, 0.951244E-04_JPRB, 0.678165E-04_JPRB, 0.394477E-04_JPRB &
+  &, 0.399930E-04_JPRB, 0.405444E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 125, :) = (/ &
+  &  0.885831E+00_JPRB, 0.857764E+00_JPRB, 0.829920E+00_JPRB, 0.802319E+00_JPRB &
+  &, 0.774976E+00_JPRB, 0.747909E+00_JPRB, 0.721134E+00_JPRB &
+  &, 0.694670E+00_JPRB, 0.668533E+00_JPRB, 0.642741E+00_JPRB, 0.617311E+00_JPRB &
+  &, 0.592260E+00_JPRB, 0.567605E+00_JPRB, 0.543361E+00_JPRB &
+  &, 0.519549E+00_JPRB, 0.496183E+00_JPRB, 0.473279E+00_JPRB, 0.450856E+00_JPRB &
+  &, 0.428926E+00_JPRB, 0.407505E+00_JPRB, 0.386612E+00_JPRB &
+  &, 0.366257E+00_JPRB, 0.346455E+00_JPRB, 0.327220E+00_JPRB, 0.308564E+00_JPRB &
+  &, 0.290494E+00_JPRB, 0.273025E+00_JPRB, 0.256164E+00_JPRB &
+  &, 0.239920E+00_JPRB, 0.224297E+00_JPRB, 0.209298E+00_JPRB, 0.194930E+00_JPRB &
+  &, 0.181195E+00_JPRB, 0.168088E+00_JPRB, 0.155614E+00_JPRB &
+  &, 0.143762E+00_JPRB, 0.132523E+00_JPRB, 0.121904E+00_JPRB, 0.111884E+00_JPRB &
+  &, 0.102459E+00_JPRB, 0.936093E-01_JPRB, 0.853239E-01_JPRB &
+  &, 0.775871E-01_JPRB, 0.703905E-01_JPRB, 0.636990E-01_JPRB, 0.575070E-01_JPRB &
+  &, 0.517817E-01_JPRB, 0.465091E-01_JPRB, 0.416590E-01_JPRB &
+  &, 0.372352E-01_JPRB, 0.331857E-01_JPRB, 0.294930E-01_JPRB, 0.261498E-01_JPRB &
+  &, 0.231174E-01_JPRB, 0.203959E-01_JPRB, 0.179388E-01_JPRB &
+  &, 0.157242E-01_JPRB, 0.137587E-01_JPRB, 0.119998E-01_JPRB, 0.104329E-01_JPRB &
+  &, 0.905789E-02_JPRB, 0.783929E-02_JPRB, 0.675510E-02_JPRB &
+  &, 0.581692E-02_JPRB, 0.498112E-02_JPRB, 0.425642E-02_JPRB, 0.363247E-02_JPRB &
+  &, 0.309751E-02_JPRB, 0.261811E-02_JPRB, 0.221955E-02_JPRB &
+  &, 0.186575E-02_JPRB, 0.158185E-02_JPRB, 0.130695E-02_JPRB, 0.110947E-02_JPRB &
+  &, 0.926004E-03_JPRB, 0.757776E-03_JPRB, 0.629888E-03_JPRB &
+  &, 0.520755E-03_JPRB, 0.431727E-03_JPRB, 0.338889E-03_JPRB, 0.293766E-03_JPRB &
+  &, 0.220404E-03_JPRB, 0.170861E-03_JPRB, 0.146629E-03_JPRB &
+  &, 0.121389E-03_JPRB, 0.951244E-04_JPRB, 0.678165E-04_JPRB, 0.394477E-04_JPRB &
+  &, 0.399930E-04_JPRB, 0.405444E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 126, :) = (/ &
+  &  0.886281E+00_JPRB, 0.858314E+00_JPRB, 0.830566E+00_JPRB, 0.803055E+00_JPRB &
+  &, 0.775798E+00_JPRB, 0.748811E+00_JPRB, 0.722113E+00_JPRB &
+  &, 0.695720E+00_JPRB, 0.669649E+00_JPRB, 0.643918E+00_JPRB, 0.618545E+00_JPRB &
+  &, 0.593544E+00_JPRB, 0.568935E+00_JPRB, 0.544733E+00_JPRB &
+  &, 0.520957E+00_JPRB, 0.497624E+00_JPRB, 0.474747E+00_JPRB, 0.452344E+00_JPRB &
+  &, 0.430432E+00_JPRB, 0.409025E+00_JPRB, 0.388139E+00_JPRB &
+  &, 0.367789E+00_JPRB, 0.347985E+00_JPRB, 0.328744E+00_JPRB, 0.310077E+00_JPRB &
+  &, 0.291996E+00_JPRB, 0.274511E+00_JPRB, 0.257629E+00_JPRB &
+  &, 0.241358E+00_JPRB, 0.225708E+00_JPRB, 0.210678E+00_JPRB, 0.196277E+00_JPRB &
+  &, 0.182507E+00_JPRB, 0.169362E+00_JPRB, 0.156844E+00_JPRB &
+  &, 0.144943E+00_JPRB, 0.133667E+00_JPRB, 0.122999E+00_JPRB, 0.112937E+00_JPRB &
+  &, 0.103466E+00_JPRB, 0.945683E-01_JPRB, 0.862314E-01_JPRB &
+  &, 0.784509E-01_JPRB, 0.711965E-01_JPRB, 0.644552E-01_JPRB, 0.582106E-01_JPRB &
+  &, 0.524415E-01_JPRB, 0.471226E-01_JPRB, 0.422490E-01_JPRB &
+  &, 0.377607E-01_JPRB, 0.336837E-01_JPRB, 0.299479E-01_JPRB, 0.265732E-01_JPRB &
+  &, 0.235076E-01_JPRB, 0.207362E-01_JPRB, 0.182568E-01_JPRB &
+  &, 0.160186E-01_JPRB, 0.140124E-01_JPRB, 0.122270E-01_JPRB, 0.106486E-01_JPRB &
+  &, 0.924462E-02_JPRB, 0.799553E-02_JPRB, 0.691485E-02_JPRB &
+  &, 0.594395E-02_JPRB, 0.511096E-02_JPRB, 0.437017E-02_JPRB, 0.372933E-02_JPRB &
+  &, 0.317667E-02_JPRB, 0.269898E-02_JPRB, 0.228150E-02_JPRB &
+  &, 0.192902E-02_JPRB, 0.162491E-02_JPRB, 0.135091E-02_JPRB, 0.113191E-02_JPRB &
+  &, 0.948904E-03_JPRB, 0.781144E-03_JPRB, 0.653730E-03_JPRB &
+  &, 0.545077E-03_JPRB, 0.431727E-03_JPRB, 0.364189E-03_JPRB, 0.293766E-03_JPRB &
+  &, 0.246705E-03_JPRB, 0.197671E-03_JPRB, 0.146629E-03_JPRB &
+  &, 0.121389E-03_JPRB, 0.951244E-04_JPRB, 0.678165E-04_JPRB, 0.688953E-04_JPRB &
+  &, 0.399930E-04_JPRB, 0.405444E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART18',1,ZHOOK_HANDLE)
+END SUBROUTINE PART18
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART19
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART19',0,ZHOOK_HANDLE)
+
+XCW( 127, :) = (/ &
+  &  0.886728E+00_JPRB, 0.858861E+00_JPRB, 0.831208E+00_JPRB, 0.803788E+00_JPRB &
+  &, 0.776615E+00_JPRB, 0.749710E+00_JPRB, 0.723087E+00_JPRB &
+  &, 0.696765E+00_JPRB, 0.670760E+00_JPRB, 0.645091E+00_JPRB, 0.619773E+00_JPRB &
+  &, 0.594823E+00_JPRB, 0.570261E+00_JPRB, 0.546101E+00_JPRB &
+  &, 0.522361E+00_JPRB, 0.499059E+00_JPRB, 0.476209E+00_JPRB, 0.453829E+00_JPRB &
+  &, 0.431933E+00_JPRB, 0.410538E+00_JPRB, 0.389660E+00_JPRB &
+  &, 0.369314E+00_JPRB, 0.349511E+00_JPRB, 0.330264E+00_JPRB, 0.311590E+00_JPRB &
+  &, 0.293495E+00_JPRB, 0.275994E+00_JPRB, 0.259091E+00_JPRB &
+  &, 0.242797E+00_JPRB, 0.227118E+00_JPRB, 0.212058E+00_JPRB, 0.197624E+00_JPRB &
+  &, 0.183819E+00_JPRB, 0.170636E+00_JPRB, 0.158077E+00_JPRB &
+  &, 0.146133E+00_JPRB, 0.134812E+00_JPRB, 0.124104E+00_JPRB, 0.113990E+00_JPRB &
+  &, 0.104463E+00_JPRB, 0.955273E-01_JPRB, 0.871389E-01_JPRB &
+  &, 0.793147E-01_JPRB, 0.720138E-01_JPRB, 0.652231E-01_JPRB, 0.589379E-01_JPRB &
+  &, 0.531135E-01_JPRB, 0.477486E-01_JPRB, 0.428262E-01_JPRB &
+  &, 0.382995E-01_JPRB, 0.341817E-01_JPRB, 0.304165E-01_JPRB, 0.269967E-01_JPRB &
+  &, 0.238977E-01_JPRB, 0.210913E-01_JPRB, 0.185748E-01_JPRB &
+  &, 0.163131E-01_JPRB, 0.142820E-01_JPRB, 0.124703E-01_JPRB, 0.108644E-01_JPRB &
+  &, 0.943134E-02_JPRB, 0.816913E-02_JPRB, 0.705685E-02_JPRB &
+  &, 0.608912E-02_JPRB, 0.522226E-02_JPRB, 0.448391E-02_JPRB, 0.382619E-02_JPRB &
+  &, 0.325584E-02_JPRB, 0.275963E-02_JPRB, 0.234345E-02_JPRB &
+  &, 0.197119E-02_JPRB, 0.166798E-02_JPRB, 0.139488E-02_JPRB, 0.117678E-02_JPRB &
+  &, 0.971804E-03_JPRB, 0.804512E-03_JPRB, 0.677572E-03_JPRB &
+  &, 0.545077E-03_JPRB, 0.456534E-03_JPRB, 0.364189E-03_JPRB, 0.293766E-03_JPRB &
+  &, 0.246705E-03_JPRB, 0.197671E-03_JPRB, 0.146629E-03_JPRB &
+  &, 0.121389E-03_JPRB, 0.951244E-04_JPRB, 0.678165E-04_JPRB, 0.688953E-04_JPRB &
+  &, 0.399930E-04_JPRB, 0.405444E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 128, :) = (/ &
+  &  0.887173E+00_JPRB, 0.859406E+00_JPRB, 0.831847E+00_JPRB, 0.804517E+00_JPRB &
+  &, 0.777430E+00_JPRB, 0.750605E+00_JPRB, 0.724057E+00_JPRB &
+  &, 0.697806E+00_JPRB, 0.671867E+00_JPRB, 0.646258E+00_JPRB, 0.620996E+00_JPRB &
+  &, 0.596097E+00_JPRB, 0.571582E+00_JPRB, 0.547462E+00_JPRB &
+  &, 0.523760E+00_JPRB, 0.500489E+00_JPRB, 0.477666E+00_JPRB, 0.455308E+00_JPRB &
+  &, 0.433430E+00_JPRB, 0.412048E+00_JPRB, 0.391180E+00_JPRB &
+  &, 0.370836E+00_JPRB, 0.351034E+00_JPRB, 0.331784E+00_JPRB, 0.313100E+00_JPRB &
+  &, 0.294993E+00_JPRB, 0.277473E+00_JPRB, 0.260548E+00_JPRB &
+  &, 0.244232E+00_JPRB, 0.228529E+00_JPRB, 0.213438E+00_JPRB, 0.198971E+00_JPRB &
+  &, 0.185126E+00_JPRB, 0.171906E+00_JPRB, 0.159307E+00_JPRB &
+  &, 0.147324E+00_JPRB, 0.135956E+00_JPRB, 0.125199E+00_JPRB, 0.115042E+00_JPRB &
+  &, 0.105471E+00_JPRB, 0.964862E-01_JPRB, 0.880572E-01_JPRB &
+  &, 0.801675E-01_JPRB, 0.728198E-01_JPRB, 0.659910E-01_JPRB, 0.596534E-01_JPRB &
+  &, 0.537856E-01_JPRB, 0.483871E-01_JPRB, 0.434163E-01_JPRB &
+  &, 0.388514E-01_JPRB, 0.346797E-01_JPRB, 0.308714E-01_JPRB, 0.274201E-01_JPRB &
+  &, 0.242879E-01_JPRB, 0.214463E-01_JPRB, 0.188928E-01_JPRB &
+  &, 0.166075E-01_JPRB, 0.145516E-01_JPRB, 0.127137E-01_JPRB, 0.110801E-01_JPRB &
+  &, 0.963505E-02_JPRB, 0.834272E-02_JPRB, 0.721660E-02_JPRB &
+  &, 0.621615E-02_JPRB, 0.535210E-02_JPRB, 0.457870E-02_JPRB, 0.392304E-02_JPRB &
+  &, 0.333501E-02_JPRB, 0.284050E-02_JPRB, 0.240540E-02_JPRB &
+  &, 0.203446E-02_JPRB, 0.171104E-02_JPRB, 0.143884E-02_JPRB, 0.119922E-02_JPRB &
+  &, 0.994704E-03_JPRB, 0.827880E-03_JPRB, 0.701414E-03_JPRB &
+  &, 0.569398E-03_JPRB, 0.481341E-03_JPRB, 0.389488E-03_JPRB, 0.319563E-03_JPRB &
+  &, 0.246705E-03_JPRB, 0.197671E-03_JPRB, 0.173954E-03_JPRB &
+  &, 0.121389E-03_JPRB, 0.951244E-04_JPRB, 0.678165E-04_JPRB, 0.688953E-04_JPRB &
+  &, 0.399930E-04_JPRB, 0.405444E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 129, :) = (/ &
+  &  0.887615E+00_JPRB, 0.859947E+00_JPRB, 0.832483E+00_JPRB, 0.805242E+00_JPRB &
+  &, 0.778240E+00_JPRB, 0.751495E+00_JPRB, 0.725023E+00_JPRB &
+  &, 0.698841E+00_JPRB, 0.672968E+00_JPRB, 0.647420E+00_JPRB, 0.622213E+00_JPRB &
+  &, 0.597366E+00_JPRB, 0.572897E+00_JPRB, 0.548819E+00_JPRB &
+  &, 0.525153E+00_JPRB, 0.501914E+00_JPRB, 0.479117E+00_JPRB, 0.456783E+00_JPRB &
+  &, 0.434924E+00_JPRB, 0.413555E+00_JPRB, 0.392695E+00_JPRB &
+  &, 0.372354E+00_JPRB, 0.352553E+00_JPRB, 0.333297E+00_JPRB, 0.314606E+00_JPRB &
+  &, 0.296485E+00_JPRB, 0.278952E+00_JPRB, 0.262010E+00_JPRB &
+  &, 0.245667E+00_JPRB, 0.229935E+00_JPRB, 0.214818E+00_JPRB, 0.200318E+00_JPRB &
+  &, 0.186438E+00_JPRB, 0.173180E+00_JPRB, 0.160540E+00_JPRB &
+  &, 0.148514E+00_JPRB, 0.137110E+00_JPRB, 0.126304E+00_JPRB, 0.116105E+00_JPRB &
+  &, 0.106488E+00_JPRB, 0.974452E-01_JPRB, 0.889646E-01_JPRB &
+  &, 0.810424E-01_JPRB, 0.736371E-01_JPRB, 0.667589E-01_JPRB, 0.603807E-01_JPRB &
+  &, 0.544698E-01_JPRB, 0.490131E-01_JPRB, 0.439935E-01_JPRB &
+  &, 0.393901E-01_JPRB, 0.351776E-01_JPRB, 0.313400E-01_JPRB, 0.278435E-01_JPRB &
+  &, 0.246781E-01_JPRB, 0.218014E-01_JPRB, 0.192259E-01_JPRB &
+  &, 0.169019E-01_JPRB, 0.148212E-01_JPRB, 0.129571E-01_JPRB, 0.112959E-01_JPRB &
+  &, 0.982178E-02_JPRB, 0.851632E-02_JPRB, 0.737636E-02_JPRB &
+  &, 0.636132E-02_JPRB, 0.546339E-02_JPRB, 0.469244E-02_JPRB, 0.401990E-02_JPRB &
+  &, 0.341417E-02_JPRB, 0.290116E-02_JPRB, 0.246735E-02_JPRB &
+  &, 0.207664E-02_JPRB, 0.175411E-02_JPRB, 0.148281E-02_JPRB, 0.124410E-02_JPRB &
+  &, 0.104050E-02_JPRB, 0.851248E-03_JPRB, 0.725255E-03_JPRB &
+  &, 0.593720E-03_JPRB, 0.481341E-03_JPRB, 0.389488E-03_JPRB, 0.319563E-03_JPRB &
+  &, 0.273005E-03_JPRB, 0.224481E-03_JPRB, 0.173954E-03_JPRB &
+  &, 0.149236E-03_JPRB, 0.123499E-03_JPRB, 0.967247E-04_JPRB, 0.688953E-04_JPRB &
+  &, 0.399930E-04_JPRB, 0.405444E-04_JPRB, 0.411017E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 130, :) = (/ &
+  &  0.888056E+00_JPRB, 0.860485E+00_JPRB, 0.833116E+00_JPRB, 0.805964E+00_JPRB &
+  &, 0.779046E+00_JPRB, 0.752381E+00_JPRB, 0.725984E+00_JPRB &
+  &, 0.699872E+00_JPRB, 0.674065E+00_JPRB, 0.648577E+00_JPRB, 0.623426E+00_JPRB &
+  &, 0.598630E+00_JPRB, 0.574206E+00_JPRB, 0.550170E+00_JPRB &
+  &, 0.526541E+00_JPRB, 0.503334E+00_JPRB, 0.480566E+00_JPRB, 0.458252E+00_JPRB &
+  &, 0.436411E+00_JPRB, 0.415056E+00_JPRB, 0.394206E+00_JPRB &
+  &, 0.373869E+00_JPRB, 0.354066E+00_JPRB, 0.334810E+00_JPRB, 0.316109E+00_JPRB &
+  &, 0.297976E+00_JPRB, 0.280427E+00_JPRB, 0.263464E+00_JPRB &
+  &, 0.247102E+00_JPRB, 0.231341E+00_JPRB, 0.216194E+00_JPRB, 0.201661E+00_JPRB &
+  &, 0.187750E+00_JPRB, 0.174454E+00_JPRB, 0.161774E+00_JPRB &
+  &, 0.149705E+00_JPRB, 0.138254E+00_JPRB, 0.127409E+00_JPRB, 0.117158E+00_JPRB &
+  &, 0.107496E+00_JPRB, 0.984042E-01_JPRB, 0.898829E-01_JPRB &
+  &, 0.819062E-01_JPRB, 0.744658E-01_JPRB, 0.675385E-01_JPRB, 0.611081E-01_JPRB &
+  &, 0.551541E-01_JPRB, 0.496516E-01_JPRB, 0.445963E-01_JPRB &
+  &, 0.399420E-01_JPRB, 0.356891E-01_JPRB, 0.318087E-01_JPRB, 0.282811E-01_JPRB &
+  &, 0.250683E-01_JPRB, 0.221712E-01_JPRB, 0.195590E-01_JPRB &
+  &, 0.171964E-01_JPRB, 0.150908E-01_JPRB, 0.132004E-01_JPRB, 0.115117E-01_JPRB &
+  &, 0.100255E-01_JPRB, 0.870728E-02_JPRB, 0.753611E-02_JPRB &
+  &, 0.650649E-02_JPRB, 0.559324E-02_JPRB, 0.480618E-02_JPRB, 0.411676E-02_JPRB &
+  &, 0.351313E-02_JPRB, 0.298203E-02_JPRB, 0.252930E-02_JPRB &
+  &, 0.213990E-02_JPRB, 0.181870E-02_JPRB, 0.152677E-02_JPRB, 0.126654E-02_JPRB &
+  &, 0.106340E-02_JPRB, 0.897984E-03_JPRB, 0.749097E-03_JPRB &
+  &, 0.618042E-03_JPRB, 0.506149E-03_JPRB, 0.414787E-03_JPRB, 0.345359E-03_JPRB &
+  &, 0.273005E-03_JPRB, 0.224481E-03_JPRB, 0.173954E-03_JPRB &
+  &, 0.149236E-03_JPRB, 0.123499E-03_JPRB, 0.967247E-04_JPRB, 0.688953E-04_JPRB &
+  &, 0.399930E-04_JPRB, 0.405444E-04_JPRB, 0.411017E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 131, :) = (/ &
+  &  0.888493E+00_JPRB, 0.861022E+00_JPRB, 0.833745E+00_JPRB, 0.806683E+00_JPRB &
+  &, 0.779849E+00_JPRB, 0.753263E+00_JPRB, 0.726940E+00_JPRB &
+  &, 0.700899E+00_JPRB, 0.675156E+00_JPRB, 0.649729E+00_JPRB, 0.624635E+00_JPRB &
+  &, 0.599890E+00_JPRB, 0.575512E+00_JPRB, 0.551517E+00_JPRB &
+  &, 0.527924E+00_JPRB, 0.504750E+00_JPRB, 0.482008E+00_JPRB, 0.459718E+00_JPRB &
+  &, 0.437896E+00_JPRB, 0.416553E+00_JPRB, 0.395710E+00_JPRB &
+  &, 0.375381E+00_JPRB, 0.355578E+00_JPRB, 0.336316E+00_JPRB, 0.317608E+00_JPRB &
+  &, 0.299467E+00_JPRB, 0.281899E+00_JPRB, 0.264918E+00_JPRB &
+  &, 0.248533E+00_JPRB, 0.232748E+00_JPRB, 0.217574E+00_JPRB, 0.203008E+00_JPRB &
+  &, 0.189058E+00_JPRB, 0.175724E+00_JPRB, 0.163008E+00_JPRB &
+  &, 0.150905E+00_JPRB, 0.139408E+00_JPRB, 0.128514E+00_JPRB, 0.118221E+00_JPRB &
+  &, 0.108513E+00_JPRB, 0.993737E-01_JPRB, 0.908012E-01_JPRB &
+  &, 0.827811E-01_JPRB, 0.752831E-01_JPRB, 0.683064E-01_JPRB, 0.618354E-01_JPRB &
+  &, 0.558384E-01_JPRB, 0.502901E-01_JPRB, 0.451864E-01_JPRB &
+  &, 0.404938E-01_JPRB, 0.362005E-01_JPRB, 0.322773E-01_JPRB, 0.287186E-01_JPRB &
+  &, 0.254729E-01_JPRB, 0.225411E-01_JPRB, 0.198922E-01_JPRB &
+  &, 0.175063E-01_JPRB, 0.153604E-01_JPRB, 0.134438E-01_JPRB, 0.117440E-01_JPRB &
+  &, 0.102292E-01_JPRB, 0.888088E-02_JPRB, 0.769586E-02_JPRB &
+  &, 0.663352E-02_JPRB, 0.572308E-02_JPRB, 0.491993E-02_JPRB, 0.421362E-02_JPRB &
+  &, 0.359230E-02_JPRB, 0.306290E-02_JPRB, 0.259125E-02_JPRB &
+  &, 0.220316E-02_JPRB, 0.186177E-02_JPRB, 0.157074E-02_JPRB, 0.131141E-02_JPRB &
+  &, 0.110920E-02_JPRB, 0.921352E-03_JPRB, 0.772939E-03_JPRB &
+  &, 0.642363E-03_JPRB, 0.530956E-03_JPRB, 0.440086E-03_JPRB, 0.345359E-03_JPRB &
+  &, 0.299306E-03_JPRB, 0.224481E-03_JPRB, 0.173954E-03_JPRB &
+  &, 0.149236E-03_JPRB, 0.123499E-03_JPRB, 0.967247E-04_JPRB, 0.688953E-04_JPRB &
+  &, 0.699861E-04_JPRB, 0.405444E-04_JPRB, 0.411017E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 132, :) = (/ &
+  &  0.888929E+00_JPRB, 0.861556E+00_JPRB, 0.834372E+00_JPRB, 0.807398E+00_JPRB &
+  &, 0.780648E+00_JPRB, 0.754141E+00_JPRB, 0.727893E+00_JPRB &
+  &, 0.701922E+00_JPRB, 0.676244E+00_JPRB, 0.650877E+00_JPRB, 0.625838E+00_JPRB &
+  &, 0.601143E+00_JPRB, 0.576811E+00_JPRB, 0.552860E+00_JPRB &
+  &, 0.529303E+00_JPRB, 0.506159E+00_JPRB, 0.483446E+00_JPRB, 0.461179E+00_JPRB &
+  &, 0.439374E+00_JPRB, 0.418047E+00_JPRB, 0.397215E+00_JPRB &
+  &, 0.376890E+00_JPRB, 0.357087E+00_JPRB, 0.337823E+00_JPRB, 0.319107E+00_JPRB &
+  &, 0.300951E+00_JPRB, 0.283370E+00_JPRB, 0.266372E+00_JPRB &
+  &, 0.249964E+00_JPRB, 0.234154E+00_JPRB, 0.218949E+00_JPRB, 0.204351E+00_JPRB &
+  &, 0.190370E+00_JPRB, 0.176998E+00_JPRB, 0.164242E+00_JPRB &
+  &, 0.152095E+00_JPRB, 0.140562E+00_JPRB, 0.129619E+00_JPRB, 0.119283E+00_JPRB &
+  &, 0.109520E+00_JPRB, 0.100343E+00_JPRB, 0.917195E-01_JPRB &
+  &, 0.836560E-01_JPRB, 0.761118E-01_JPRB, 0.690859E-01_JPRB, 0.625628E-01_JPRB &
+  &, 0.565226E-01_JPRB, 0.509286E-01_JPRB, 0.457892E-01_JPRB &
+  &, 0.410588E-01_JPRB, 0.367254E-01_JPRB, 0.327597E-01_JPRB, 0.291562E-01_JPRB &
+  &, 0.258775E-01_JPRB, 0.229109E-01_JPRB, 0.202253E-01_JPRB &
+  &, 0.178163E-01_JPRB, 0.156458E-01_JPRB, 0.137034E-01_JPRB, 0.119764E-01_JPRB &
+  &, 0.104329E-01_JPRB, 0.905448E-02_JPRB, 0.785561E-02_JPRB &
+  &, 0.677869E-02_JPRB, 0.585292E-02_JPRB, 0.503367E-02_JPRB, 0.431047E-02_JPRB &
+  &, 0.369126E-02_JPRB, 0.314377E-02_JPRB, 0.267385E-02_JPRB &
+  &, 0.226643E-02_JPRB, 0.190483E-02_JPRB, 0.161470E-02_JPRB, 0.135629E-02_JPRB &
+  &, 0.113210E-02_JPRB, 0.944720E-03_JPRB, 0.796781E-03_JPRB &
+  &, 0.642363E-03_JPRB, 0.530956E-03_JPRB, 0.440086E-03_JPRB, 0.371156E-03_JPRB &
+  &, 0.299306E-03_JPRB, 0.251291E-03_JPRB, 0.201280E-03_JPRB &
+  &, 0.149236E-03_JPRB, 0.123499E-03_JPRB, 0.967247E-04_JPRB, 0.688953E-04_JPRB &
+  &, 0.699861E-04_JPRB, 0.405444E-04_JPRB, 0.411017E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 133, :) = (/ &
+  &  0.889363E+00_JPRB, 0.862087E+00_JPRB, 0.834996E+00_JPRB, 0.808109E+00_JPRB &
+  &, 0.781443E+00_JPRB, 0.755015E+00_JPRB, 0.728841E+00_JPRB &
+  &, 0.702940E+00_JPRB, 0.677327E+00_JPRB, 0.652020E+00_JPRB, 0.627037E+00_JPRB &
+  &, 0.602393E+00_JPRB, 0.578107E+00_JPRB, 0.554197E+00_JPRB &
+  &, 0.530678E+00_JPRB, 0.507566E+00_JPRB, 0.484880E+00_JPRB, 0.462636E+00_JPRB &
+  &, 0.440849E+00_JPRB, 0.419535E+00_JPRB, 0.398713E+00_JPRB &
+  &, 0.378395E+00_JPRB, 0.358593E+00_JPRB, 0.339325E+00_JPRB, 0.320603E+00_JPRB &
+  &, 0.302435E+00_JPRB, 0.284842E+00_JPRB, 0.267822E+00_JPRB &
+  &, 0.251392E+00_JPRB, 0.235557E+00_JPRB, 0.220325E+00_JPRB, 0.205698E+00_JPRB &
+  &, 0.191682E+00_JPRB, 0.178272E+00_JPRB, 0.165480E+00_JPRB &
+  &, 0.153295E+00_JPRB, 0.141707E+00_JPRB, 0.130734E+00_JPRB, 0.120346E+00_JPRB &
+  &, 0.110538E+00_JPRB, 0.101313E+00_JPRB, 0.926486E-01_JPRB &
+  &, 0.845309E-01_JPRB, 0.769404E-01_JPRB, 0.698771E-01_JPRB, 0.633021E-01_JPRB &
+  &, 0.572069E-01_JPRB, 0.515797E-01_JPRB, 0.463921E-01_JPRB &
+  &, 0.416107E-01_JPRB, 0.372368E-01_JPRB, 0.332422E-01_JPRB, 0.295937E-01_JPRB &
+  &, 0.262822E-01_JPRB, 0.232807E-01_JPRB, 0.205584E-01_JPRB &
+  &, 0.181107E-01_JPRB, 0.159154E-01_JPRB, 0.139467E-01_JPRB, 0.121921E-01_JPRB &
+  &, 0.106366E-01_JPRB, 0.924544E-02_JPRB, 0.801536E-02_JPRB &
+  &, 0.692386E-02_JPRB, 0.598276E-02_JPRB, 0.514741E-02_JPRB, 0.440733E-02_JPRB &
+  &, 0.377043E-02_JPRB, 0.322464E-02_JPRB, 0.273580E-02_JPRB &
+  &, 0.232969E-02_JPRB, 0.196943E-02_JPRB, 0.165866E-02_JPRB, 0.140117E-02_JPRB &
+  &, 0.115500E-02_JPRB, 0.968088E-03_JPRB, 0.820623E-03_JPRB &
+  &, 0.666685E-03_JPRB, 0.555764E-03_JPRB, 0.465385E-03_JPRB, 0.371156E-03_JPRB &
+  &, 0.299306E-03_JPRB, 0.251291E-03_JPRB, 0.201280E-03_JPRB &
+  &, 0.149236E-03_JPRB, 0.123499E-03_JPRB, 0.967247E-04_JPRB, 0.688953E-04_JPRB &
+  &, 0.699861E-04_JPRB, 0.405444E-04_JPRB, 0.411017E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART19',1,ZHOOK_HANDLE)
+END SUBROUTINE PART19
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART20
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART20',0,ZHOOK_HANDLE)
+
+XCW( 134, :) = (/ &
+  &  0.889795E+00_JPRB, 0.862614E+00_JPRB, 0.835616E+00_JPRB, 0.808818E+00_JPRB &
+  &, 0.782235E+00_JPRB, 0.755885E+00_JPRB, 0.729786E+00_JPRB &
+  &, 0.703954E+00_JPRB, 0.678405E+00_JPRB, 0.653158E+00_JPRB, 0.628230E+00_JPRB &
+  &, 0.603638E+00_JPRB, 0.579399E+00_JPRB, 0.555528E+00_JPRB &
+  &, 0.532047E+00_JPRB, 0.508968E+00_JPRB, 0.486310E+00_JPRB, 0.464088E+00_JPRB &
+  &, 0.442321E+00_JPRB, 0.421023E+00_JPRB, 0.400208E+00_JPRB &
+  &, 0.379894E+00_JPRB, 0.360096E+00_JPRB, 0.340825E+00_JPRB, 0.322095E+00_JPRB &
+  &, 0.303919E+00_JPRB, 0.286306E+00_JPRB, 0.269272E+00_JPRB &
+  &, 0.252819E+00_JPRB, 0.236959E+00_JPRB, 0.221697E+00_JPRB, 0.207041E+00_JPRB &
+  &, 0.192989E+00_JPRB, 0.179546E+00_JPRB, 0.166714E+00_JPRB &
+  &, 0.154486E+00_JPRB, 0.142861E+00_JPRB, 0.131839E+00_JPRB, 0.121409E+00_JPRB &
+  &, 0.111566E+00_JPRB, 0.102293E+00_JPRB, 0.935777E-01_JPRB &
+  &, 0.854057E-01_JPRB, 0.777804E-01_JPRB, 0.706566E-01_JPRB, 0.640413E-01_JPRB &
+  &, 0.579033E-01_JPRB, 0.522307E-01_JPRB, 0.469950E-01_JPRB &
+  &, 0.421757E-01_JPRB, 0.377617E-01_JPRB, 0.337246E-01_JPRB, 0.300454E-01_JPRB &
+  &, 0.266868E-01_JPRB, 0.236506E-01_JPRB, 0.209067E-01_JPRB &
+  &, 0.184362E-01_JPRB, 0.162008E-01_JPRB, 0.142063E-01_JPRB, 0.124245E-01_JPRB &
+  &, 0.108403E-01_JPRB, 0.943640E-02_JPRB, 0.817512E-02_JPRB &
+  &, 0.708718E-02_JPRB, 0.611261E-02_JPRB, 0.526116E-02_JPRB, 0.450419E-02_JPRB &
+  &, 0.386938E-02_JPRB, 0.330552E-02_JPRB, 0.279775E-02_JPRB &
+  &, 0.237187E-02_JPRB, 0.201249E-02_JPRB, 0.170263E-02_JPRB, 0.142360E-02_JPRB &
+  &, 0.120080E-02_JPRB, 0.101482E-02_JPRB, 0.844465E-03_JPRB &
+  &, 0.691007E-03_JPRB, 0.580571E-03_JPRB, 0.465385E-03_JPRB, 0.396953E-03_JPRB &
+  &, 0.325606E-03_JPRB, 0.251291E-03_JPRB, 0.201280E-03_JPRB &
+  &, 0.177084E-03_JPRB, 0.123499E-03_JPRB, 0.967247E-04_JPRB, 0.983430E-04_JPRB &
+  &, 0.699861E-04_JPRB, 0.405444E-04_JPRB, 0.411017E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 135, :) = (/ &
+  &  0.890225E+00_JPRB, 0.863140E+00_JPRB, 0.836234E+00_JPRB, 0.809523E+00_JPRB &
+  &, 0.783023E+00_JPRB, 0.756752E+00_JPRB, 0.730726E+00_JPRB &
+  &, 0.704963E+00_JPRB, 0.679479E+00_JPRB, 0.654292E+00_JPRB, 0.629420E+00_JPRB &
+  &, 0.604878E+00_JPRB, 0.580685E+00_JPRB, 0.556857E+00_JPRB &
+  &, 0.533411E+00_JPRB, 0.510364E+00_JPRB, 0.487735E+00_JPRB, 0.465536E+00_JPRB &
+  &, 0.443788E+00_JPRB, 0.422501E+00_JPRB, 0.401699E+00_JPRB &
+  &, 0.381392E+00_JPRB, 0.361595E+00_JPRB, 0.342320E+00_JPRB, 0.323583E+00_JPRB &
+  &, 0.305396E+00_JPRB, 0.287773E+00_JPRB, 0.270719E+00_JPRB &
+  &, 0.254246E+00_JPRB, 0.238361E+00_JPRB, 0.223072E+00_JPRB, 0.208384E+00_JPRB &
+  &, 0.194301E+00_JPRB, 0.180825E+00_JPRB, 0.167952E+00_JPRB &
+  &, 0.155686E+00_JPRB, 0.144024E+00_JPRB, 0.132953E+00_JPRB, 0.122481E+00_JPRB &
+  &, 0.112584E+00_JPRB, 0.103262E+00_JPRB, 0.945067E-01_JPRB &
+  &, 0.862917E-01_JPRB, 0.786091E-01_JPRB, 0.714478E-01_JPRB, 0.647806E-01_JPRB &
+  &, 0.585998E-01_JPRB, 0.528817E-01_JPRB, 0.476107E-01_JPRB &
+  &, 0.427407E-01_JPRB, 0.382866E-01_JPRB, 0.342070E-01_JPRB, 0.304829E-01_JPRB &
+  &, 0.271059E-01_JPRB, 0.240352E-01_JPRB, 0.212550E-01_JPRB &
+  &, 0.187461E-01_JPRB, 0.164863E-01_JPRB, 0.144659E-01_JPRB, 0.126568E-01_JPRB &
+  &, 0.110610E-01_JPRB, 0.962735E-02_JPRB, 0.835262E-02_JPRB &
+  &, 0.723236E-02_JPRB, 0.624245E-02_JPRB, 0.537490E-02_JPRB, 0.462042E-02_JPRB &
+  &, 0.394855E-02_JPRB, 0.338639E-02_JPRB, 0.288035E-02_JPRB &
+  &, 0.243513E-02_JPRB, 0.207709E-02_JPRB, 0.174659E-02_JPRB, 0.146848E-02_JPRB &
+  &, 0.122371E-02_JPRB, 0.103819E-02_JPRB, 0.868307E-03_JPRB &
+  &, 0.715328E-03_JPRB, 0.605379E-03_JPRB, 0.490684E-03_JPRB, 0.396953E-03_JPRB &
+  &, 0.325606E-03_JPRB, 0.278102E-03_JPRB, 0.228606E-03_JPRB &
+  &, 0.177084E-03_JPRB, 0.151874E-03_JPRB, 0.125633E-03_JPRB, 0.983430E-04_JPRB &
+  &, 0.699861E-04_JPRB, 0.405444E-04_JPRB, 0.411017E-04_JPRB &
+  &, 0.416650E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 136, :) = (/ &
+  &  0.890652E+00_JPRB, 0.863664E+00_JPRB, 0.836849E+00_JPRB, 0.810225E+00_JPRB &
+  &, 0.783807E+00_JPRB, 0.757614E+00_JPRB, 0.731662E+00_JPRB &
+  &, 0.705967E+00_JPRB, 0.680549E+00_JPRB, 0.655422E+00_JPRB, 0.630605E+00_JPRB &
+  &, 0.606113E+00_JPRB, 0.581967E+00_JPRB, 0.558180E+00_JPRB &
+  &, 0.534770E+00_JPRB, 0.511757E+00_JPRB, 0.489155E+00_JPRB, 0.466981E+00_JPRB &
+  &, 0.445251E+00_JPRB, 0.423980E+00_JPRB, 0.403187E+00_JPRB &
+  &, 0.382884E+00_JPRB, 0.363090E+00_JPRB, 0.343813E+00_JPRB, 0.325072E+00_JPRB &
+  &, 0.306873E+00_JPRB, 0.289234E+00_JPRB, 0.272165E+00_JPRB &
+  &, 0.255669E+00_JPRB, 0.239764E+00_JPRB, 0.224448E+00_JPRB, 0.209727E+00_JPRB &
+  &, 0.195613E+00_JPRB, 0.182099E+00_JPRB, 0.169190E+00_JPRB &
+  &, 0.156886E+00_JPRB, 0.145178E+00_JPRB, 0.134068E+00_JPRB, 0.123544E+00_JPRB &
+  &, 0.113611E+00_JPRB, 0.104242E+00_JPRB, 0.954358E-01_JPRB &
+  &, 0.871777E-01_JPRB, 0.794491E-01_JPRB, 0.722389E-01_JPRB, 0.655318E-01_JPRB &
+  &, 0.593085E-01_JPRB, 0.535453E-01_JPRB, 0.482135E-01_JPRB &
+  &, 0.433189E-01_JPRB, 0.388249E-01_JPRB, 0.347032E-01_JPRB, 0.309346E-01_JPRB &
+  &, 0.275250E-01_JPRB, 0.244199E-01_JPRB, 0.216033E-01_JPRB &
+  &, 0.190561E-01_JPRB, 0.167876E-01_JPRB, 0.147255E-01_JPRB, 0.129058E-01_JPRB &
+  &, 0.112647E-01_JPRB, 0.981831E-02_JPRB, 0.853012E-02_JPRB &
+  &, 0.737753E-02_JPRB, 0.637229E-02_JPRB, 0.548865E-02_JPRB, 0.471727E-02_JPRB &
+  &, 0.404751E-02_JPRB, 0.346726E-02_JPRB, 0.294230E-02_JPRB &
+  &, 0.249840E-02_JPRB, 0.212015E-02_JPRB, 0.179056E-02_JPRB, 0.151336E-02_JPRB &
+  &, 0.126951E-02_JPRB, 0.106156E-02_JPRB, 0.892148E-03_JPRB &
+  &, 0.739650E-03_JPRB, 0.605379E-03_JPRB, 0.515984E-03_JPRB, 0.422750E-03_JPRB &
+  &, 0.351907E-03_JPRB, 0.278102E-03_JPRB, 0.228606E-03_JPRB &
+  &, 0.177084E-03_JPRB, 0.151874E-03_JPRB, 0.125633E-03_JPRB, 0.983430E-04_JPRB &
+  &, 0.699861E-04_JPRB, 0.405444E-04_JPRB, 0.411017E-04_JPRB &
+  &, 0.416650E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 137, :) = (/ &
+  &  0.891078E+00_JPRB, 0.864185E+00_JPRB, 0.837461E+00_JPRB, 0.810924E+00_JPRB &
+  &, 0.784589E+00_JPRB, 0.758473E+00_JPRB, 0.732594E+00_JPRB &
+  &, 0.706969E+00_JPRB, 0.681614E+00_JPRB, 0.656547E+00_JPRB, 0.631785E+00_JPRB &
+  &, 0.607344E+00_JPRB, 0.583243E+00_JPRB, 0.559499E+00_JPRB &
+  &, 0.536126E+00_JPRB, 0.513145E+00_JPRB, 0.490570E+00_JPRB, 0.468421E+00_JPRB &
+  &, 0.446709E+00_JPRB, 0.425455E+00_JPRB, 0.404672E+00_JPRB &
+  &, 0.384376E+00_JPRB, 0.364583E+00_JPRB, 0.345305E+00_JPRB, 0.326557E+00_JPRB &
+  &, 0.308350E+00_JPRB, 0.290698E+00_JPRB, 0.273607E+00_JPRB &
+  &, 0.257093E+00_JPRB, 0.241162E+00_JPRB, 0.225820E+00_JPRB, 0.211070E+00_JPRB &
+  &, 0.196920E+00_JPRB, 0.183373E+00_JPRB, 0.170429E+00_JPRB &
+  &, 0.158086E+00_JPRB, 0.146332E+00_JPRB, 0.135183E+00_JPRB, 0.124617E+00_JPRB &
+  &, 0.114639E+00_JPRB, 0.105222E+00_JPRB, 0.963757E-01_JPRB &
+  &, 0.880636E-01_JPRB, 0.802892E-01_JPRB, 0.730418E-01_JPRB, 0.662830E-01_JPRB &
+  &, 0.600050E-01_JPRB, 0.541963E-01_JPRB, 0.488292E-01_JPRB &
+  &, 0.438970E-01_JPRB, 0.393498E-01_JPRB, 0.351994E-01_JPRB, 0.314004E-01_JPRB &
+  &, 0.279440E-01_JPRB, 0.248045E-01_JPRB, 0.219516E-01_JPRB &
+  &, 0.193815E-01_JPRB, 0.170730E-01_JPRB, 0.150013E-01_JPRB, 0.131382E-01_JPRB &
+  &, 0.114854E-01_JPRB, 0.100093E-01_JPRB, 0.868987E-02_JPRB &
+  &, 0.754085E-02_JPRB, 0.652068E-02_JPRB, 0.562135E-02_JPRB, 0.483350E-02_JPRB &
+  &, 0.414647E-02_JPRB, 0.354813E-02_JPRB, 0.302490E-02_JPRB &
+  &, 0.256166E-02_JPRB, 0.218475E-02_JPRB, 0.183452E-02_JPRB, 0.155823E-02_JPRB &
+  &, 0.131531E-02_JPRB, 0.108493E-02_JPRB, 0.915990E-03_JPRB &
+  &, 0.763972E-03_JPRB, 0.630186E-03_JPRB, 0.515984E-03_JPRB, 0.422750E-03_JPRB &
+  &, 0.351907E-03_JPRB, 0.278102E-03_JPRB, 0.228606E-03_JPRB &
+  &, 0.177084E-03_JPRB, 0.151874E-03_JPRB, 0.125633E-03_JPRB, 0.983430E-04_JPRB &
+  &, 0.699861E-04_JPRB, 0.710888E-04_JPRB, 0.411017E-04_JPRB &
+  &, 0.416650E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 138, :) = (/ &
+  &  0.891501E+00_JPRB, 0.864704E+00_JPRB, 0.838071E+00_JPRB, 0.811620E+00_JPRB &
+  &, 0.785366E+00_JPRB, 0.759329E+00_JPRB, 0.733523E+00_JPRB &
+  &, 0.707966E+00_JPRB, 0.682675E+00_JPRB, 0.657668E+00_JPRB, 0.632960E+00_JPRB &
+  &, 0.608570E+00_JPRB, 0.584515E+00_JPRB, 0.560812E+00_JPRB &
+  &, 0.537478E+00_JPRB, 0.514528E+00_JPRB, 0.491983E+00_JPRB, 0.469856E+00_JPRB &
+  &, 0.448164E+00_JPRB, 0.426924E+00_JPRB, 0.406151E+00_JPRB &
+  &, 0.385862E+00_JPRB, 0.366072E+00_JPRB, 0.346790E+00_JPRB, 0.328038E+00_JPRB &
+  &, 0.309823E+00_JPRB, 0.292154E+00_JPRB, 0.275050E+00_JPRB &
+  &, 0.258516E+00_JPRB, 0.242561E+00_JPRB, 0.227192E+00_JPRB, 0.212412E+00_JPRB &
+  &, 0.198232E+00_JPRB, 0.184652E+00_JPRB, 0.171667E+00_JPRB &
+  &, 0.159285E+00_JPRB, 0.147496E+00_JPRB, 0.136298E+00_JPRB, 0.125690E+00_JPRB &
+  &, 0.115667E+00_JPRB, 0.106213E+00_JPRB, 0.973048E-01_JPRB &
+  &, 0.889607E-01_JPRB, 0.811406E-01_JPRB, 0.738329E-01_JPRB, 0.670342E-01_JPRB &
+  &, 0.607137E-01_JPRB, 0.548599E-01_JPRB, 0.494577E-01_JPRB &
+  &, 0.444752E-01_JPRB, 0.398882E-01_JPRB, 0.356956E-01_JPRB, 0.318520E-01_JPRB &
+  &, 0.283631E-01_JPRB, 0.251892E-01_JPRB, 0.223150E-01_JPRB &
+  &, 0.197069E-01_JPRB, 0.173743E-01_JPRB, 0.152609E-01_JPRB, 0.133871E-01_JPRB &
+  &, 0.117060E-01_JPRB, 0.102002E-01_JPRB, 0.886738E-02_JPRB &
+  &, 0.770417E-02_JPRB, 0.665053E-02_JPRB, 0.573509E-02_JPRB, 0.494973E-02_JPRB &
+  &, 0.424543E-02_JPRB, 0.362900E-02_JPRB, 0.310750E-02_JPRB &
+  &, 0.264601E-02_JPRB, 0.222781E-02_JPRB, 0.190047E-02_JPRB, 0.160311E-02_JPRB &
+  &, 0.133821E-02_JPRB, 0.113166E-02_JPRB, 0.939832E-03_JPRB &
+  &, 0.788293E-03_JPRB, 0.654994E-03_JPRB, 0.541283E-03_JPRB, 0.448547E-03_JPRB &
+  &, 0.378208E-03_JPRB, 0.304912E-03_JPRB, 0.255932E-03_JPRB &
+  &, 0.204931E-03_JPRB, 0.151874E-03_JPRB, 0.125633E-03_JPRB, 0.983430E-04_JPRB &
+  &, 0.699861E-04_JPRB, 0.710888E-04_JPRB, 0.411017E-04_JPRB &
+  &, 0.416650E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 139, :) = (/ &
+  &  0.891922E+00_JPRB, 0.865220E+00_JPRB, 0.838677E+00_JPRB, 0.812312E+00_JPRB &
+  &, 0.786141E+00_JPRB, 0.760180E+00_JPRB, 0.734447E+00_JPRB &
+  &, 0.708959E+00_JPRB, 0.683732E+00_JPRB, 0.658783E+00_JPRB, 0.634133E+00_JPRB &
+  &, 0.609792E+00_JPRB, 0.585784E+00_JPRB, 0.562122E+00_JPRB &
+  &, 0.538824E+00_JPRB, 0.515909E+00_JPRB, 0.493390E+00_JPRB, 0.471287E+00_JPRB &
+  &, 0.449616E+00_JPRB, 0.428389E+00_JPRB, 0.407630E+00_JPRB &
+  &, 0.387347E+00_JPRB, 0.367557E+00_JPRB, 0.348276E+00_JPRB, 0.329516E+00_JPRB &
+  &, 0.311292E+00_JPRB, 0.293615E+00_JPRB, 0.276492E+00_JPRB &
+  &, 0.259939E+00_JPRB, 0.243959E+00_JPRB, 0.228563E+00_JPRB, 0.213755E+00_JPRB &
+  &, 0.199544E+00_JPRB, 0.185926E+00_JPRB, 0.172905E+00_JPRB &
+  &, 0.160485E+00_JPRB, 0.148659E+00_JPRB, 0.137422E+00_JPRB, 0.126772E+00_JPRB &
+  &, 0.116695E+00_JPRB, 0.107193E+00_JPRB, 0.982447E-01_JPRB &
+  &, 0.898466E-01_JPRB, 0.819806E-01_JPRB, 0.746357E-01_JPRB, 0.677855E-01_JPRB &
+  &, 0.614224E-01_JPRB, 0.555234E-01_JPRB, 0.500734E-01_JPRB &
+  &, 0.450534E-01_JPRB, 0.404265E-01_JPRB, 0.361919E-01_JPRB, 0.323178E-01_JPRB &
+  &, 0.287822E-01_JPRB, 0.255738E-01_JPRB, 0.226633E-01_JPRB &
+  &, 0.200324E-01_JPRB, 0.176597E-01_JPRB, 0.155367E-01_JPRB, 0.136195E-01_JPRB &
+  &, 0.119267E-01_JPRB, 0.104085E-01_JPRB, 0.904488E-02_JPRB &
+  &, 0.784934E-02_JPRB, 0.679892E-02_JPRB, 0.586779E-02_JPRB, 0.504659E-02_JPRB &
+  &, 0.434439E-02_JPRB, 0.370987E-02_JPRB, 0.316945E-02_JPRB &
+  &, 0.270928E-02_JPRB, 0.229241E-02_JPRB, 0.194443E-02_JPRB, 0.164799E-02_JPRB &
+  &, 0.138401E-02_JPRB, 0.115503E-02_JPRB, 0.963674E-03_JPRB &
+  &, 0.812615E-03_JPRB, 0.679801E-03_JPRB, 0.566582E-03_JPRB, 0.448547E-03_JPRB &
+  &, 0.378208E-03_JPRB, 0.304912E-03_JPRB, 0.255932E-03_JPRB &
+  &, 0.204931E-03_JPRB, 0.151874E-03_JPRB, 0.125633E-03_JPRB, 0.983430E-04_JPRB &
+  &, 0.699861E-04_JPRB, 0.710888E-04_JPRB, 0.411017E-04_JPRB &
+  &, 0.416650E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 140, :) = (/ &
+  &  0.892341E+00_JPRB, 0.865734E+00_JPRB, 0.839281E+00_JPRB, 0.813002E+00_JPRB &
+  &, 0.786912E+00_JPRB, 0.761028E+00_JPRB, 0.735368E+00_JPRB &
+  &, 0.709948E+00_JPRB, 0.684785E+00_JPRB, 0.659896E+00_JPRB, 0.635300E+00_JPRB &
+  &, 0.611011E+00_JPRB, 0.587047E+00_JPRB, 0.563428E+00_JPRB &
+  &, 0.540167E+00_JPRB, 0.517284E+00_JPRB, 0.494793E+00_JPRB, 0.472715E+00_JPRB &
+  &, 0.451063E+00_JPRB, 0.429852E+00_JPRB, 0.409102E+00_JPRB &
+  &, 0.388826E+00_JPRB, 0.369042E+00_JPRB, 0.349758E+00_JPRB, 0.330994E+00_JPRB &
+  &, 0.312762E+00_JPRB, 0.295068E+00_JPRB, 0.277931E+00_JPRB &
+  &, 0.261358E+00_JPRB, 0.245358E+00_JPRB, 0.229935E+00_JPRB, 0.215098E+00_JPRB &
+  &, 0.200856E+00_JPRB, 0.187205E+00_JPRB, 0.174148E+00_JPRB &
+  &, 0.161685E+00_JPRB, 0.149813E+00_JPRB, 0.138537E+00_JPRB, 0.127845E+00_JPRB &
+  &, 0.117733E+00_JPRB, 0.108184E+00_JPRB, 0.991954E-01_JPRB &
+  &, 0.907437E-01_JPRB, 0.828320E-01_JPRB, 0.754385E-01_JPRB, 0.685486E-01_JPRB &
+  &, 0.621433E-01_JPRB, 0.561995E-01_JPRB, 0.507019E-01_JPRB &
+  &, 0.456315E-01_JPRB, 0.409783E-01_JPRB, 0.367018E-01_JPRB, 0.327836E-01_JPRB &
+  &, 0.292157E-01_JPRB, 0.259732E-01_JPRB, 0.230267E-01_JPRB &
+  &, 0.203733E-01_JPRB, 0.179610E-01_JPRB, 0.158125E-01_JPRB, 0.138684E-01_JPRB &
+  &, 0.121474E-01_JPRB, 0.105995E-01_JPRB, 0.924013E-02_JPRB &
+  &, 0.801266E-02_JPRB, 0.694731E-02_JPRB, 0.600049E-02_JPRB, 0.516282E-02_JPRB &
+  &, 0.444334E-02_JPRB, 0.381096E-02_JPRB, 0.325205E-02_JPRB &
+  &, 0.277254E-02_JPRB, 0.235701E-02_JPRB, 0.198840E-02_JPRB, 0.169286E-02_JPRB &
+  &, 0.142981E-02_JPRB, 0.120177E-02_JPRB, 0.101136E-02_JPRB &
+  &, 0.836937E-03_JPRB, 0.704608E-03_JPRB, 0.566582E-03_JPRB, 0.474344E-03_JPRB &
+  &, 0.404508E-03_JPRB, 0.331722E-03_JPRB, 0.255932E-03_JPRB &
+  &, 0.204931E-03_JPRB, 0.180249E-03_JPRB, 0.125633E-03_JPRB, 0.983430E-04_JPRB &
+  &, 0.999792E-04_JPRB, 0.710888E-04_JPRB, 0.411017E-04_JPRB &
+  &, 0.416650E-04_JPRB, 0.422342E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART20',1,ZHOOK_HANDLE)
+END SUBROUTINE PART20
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART21
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART21',0,ZHOOK_HANDLE)
+
+XCW( 141, :) = (/ &
+  &  0.892760E+00_JPRB, 0.866246E+00_JPRB, 0.839882E+00_JPRB, 0.813689E+00_JPRB &
+  &, 0.787680E+00_JPRB, 0.761873E+00_JPRB, 0.736285E+00_JPRB &
+  &, 0.710933E+00_JPRB, 0.685834E+00_JPRB, 0.661005E+00_JPRB, 0.636463E+00_JPRB &
+  &, 0.612224E+00_JPRB, 0.588307E+00_JPRB, 0.564728E+00_JPRB &
+  &, 0.541506E+00_JPRB, 0.518654E+00_JPRB, 0.496194E+00_JPRB, 0.474138E+00_JPRB &
+  &, 0.452505E+00_JPRB, 0.431311E+00_JPRB, 0.410574E+00_JPRB &
+  &, 0.390304E+00_JPRB, 0.370521E+00_JPRB, 0.351240E+00_JPRB, 0.332468E+00_JPRB &
+  &, 0.314228E+00_JPRB, 0.296524E+00_JPRB, 0.279370E+00_JPRB &
+  &, 0.262778E+00_JPRB, 0.246752E+00_JPRB, 0.231307E+00_JPRB, 0.216441E+00_JPRB &
+  &, 0.202164E+00_JPRB, 0.188479E+00_JPRB, 0.175391E+00_JPRB &
+  &, 0.162885E+00_JPRB, 0.150976E+00_JPRB, 0.139661E+00_JPRB, 0.128928E+00_JPRB &
+  &, 0.118761E+00_JPRB, 0.109174E+00_JPRB, 0.100135E+00_JPRB &
+  &, 0.916518E-01_JPRB, 0.836947E-01_JPRB, 0.762530E-01_JPRB, 0.693117E-01_JPRB &
+  &, 0.628642E-01_JPRB, 0.568756E-01_JPRB, 0.513305E-01_JPRB &
+  &, 0.462228E-01_JPRB, 0.415167E-01_JPRB, 0.371981E-01_JPRB, 0.332493E-01_JPRB &
+  &, 0.296493E-01_JPRB, 0.263727E-01_JPRB, 0.233901E-01_JPRB &
+  &, 0.206988E-01_JPRB, 0.182782E-01_JPRB, 0.160884E-01_JPRB, 0.141174E-01_JPRB &
+  &, 0.123681E-01_JPRB, 0.108078E-01_JPRB, 0.941763E-02_JPRB &
+  &, 0.817598E-02_JPRB, 0.709570E-02_JPRB, 0.613319E-02_JPRB, 0.527905E-02_JPRB &
+  &, 0.454230E-02_JPRB, 0.389183E-02_JPRB, 0.333465E-02_JPRB &
+  &, 0.283581E-02_JPRB, 0.242160E-02_JPRB, 0.205434E-02_JPRB, 0.173774E-02_JPRB &
+  &, 0.145271E-02_JPRB, 0.122514E-02_JPRB, 0.103520E-02_JPRB &
+  &, 0.861258E-03_JPRB, 0.704608E-03_JPRB, 0.591881E-03_JPRB, 0.500141E-03_JPRB &
+  &, 0.404508E-03_JPRB, 0.331722E-03_JPRB, 0.283257E-03_JPRB &
+  &, 0.232778E-03_JPRB, 0.180249E-03_JPRB, 0.154541E-03_JPRB, 0.127791E-03_JPRB &
+  &, 0.999792E-04_JPRB, 0.710888E-04_JPRB, 0.411017E-04_JPRB &
+  &, 0.416650E-04_JPRB, 0.422342E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 142, :) = (/ &
+  &  0.893175E+00_JPRB, 0.866754E+00_JPRB, 0.840481E+00_JPRB, 0.814373E+00_JPRB &
+  &, 0.788445E+00_JPRB, 0.762715E+00_JPRB, 0.737198E+00_JPRB &
+  &, 0.711914E+00_JPRB, 0.686879E+00_JPRB, 0.662109E+00_JPRB, 0.637622E+00_JPRB &
+  &, 0.613434E+00_JPRB, 0.589562E+00_JPRB, 0.566026E+00_JPRB &
+  &, 0.542839E+00_JPRB, 0.520022E+00_JPRB, 0.497589E+00_JPRB, 0.475559E+00_JPRB &
+  &, 0.453946E+00_JPRB, 0.432767E+00_JPRB, 0.412039E+00_JPRB &
+  &, 0.391780E+00_JPRB, 0.372000E+00_JPRB, 0.352714E+00_JPRB, 0.333942E+00_JPRB &
+  &, 0.315690E+00_JPRB, 0.297973E+00_JPRB, 0.280805E+00_JPRB &
+  &, 0.264193E+00_JPRB, 0.248146E+00_JPRB, 0.232674E+00_JPRB, 0.217784E+00_JPRB &
+  &, 0.203475E+00_JPRB, 0.189757E+00_JPRB, 0.176629E+00_JPRB &
+  &, 0.164094E+00_JPRB, 0.152150E+00_JPRB, 0.140786E+00_JPRB, 0.130011E+00_JPRB &
+  &, 0.119799E+00_JPRB, 0.110165E+00_JPRB, 0.101086E+00_JPRB &
+  &, 0.925488E-01_JPRB, 0.845461E-01_JPRB, 0.770558E-01_JPRB, 0.700748E-01_JPRB &
+  &, 0.635852E-01_JPRB, 0.575517E-01_JPRB, 0.519718E-01_JPRB &
+  &, 0.468141E-01_JPRB, 0.420685E-01_JPRB, 0.377080E-01_JPRB, 0.337292E-01_JPRB &
+  &, 0.300828E-01_JPRB, 0.267721E-01_JPRB, 0.237687E-01_JPRB &
+  &, 0.210397E-01_JPRB, 0.185795E-01_JPRB, 0.163642E-01_JPRB, 0.143829E-01_JPRB &
+  &, 0.126057E-01_JPRB, 0.110161E-01_JPRB, 0.959514E-02_JPRB &
+  &, 0.833930E-02_JPRB, 0.724409E-02_JPRB, 0.626589E-02_JPRB, 0.539528E-02_JPRB &
+  &, 0.464126E-02_JPRB, 0.399292E-02_JPRB, 0.341725E-02_JPRB &
+  &, 0.292016E-02_JPRB, 0.248620E-02_JPRB, 0.209831E-02_JPRB, 0.178261E-02_JPRB &
+  &, 0.149851E-02_JPRB, 0.127187E-02_JPRB, 0.105904E-02_JPRB &
+  &, 0.885580E-03_JPRB, 0.729416E-03_JPRB, 0.617180E-03_JPRB, 0.500141E-03_JPRB &
+  &, 0.430809E-03_JPRB, 0.331722E-03_JPRB, 0.283257E-03_JPRB &
+  &, 0.232778E-03_JPRB, 0.180249E-03_JPRB, 0.154541E-03_JPRB, 0.127791E-03_JPRB &
+  &, 0.999792E-04_JPRB, 0.710888E-04_JPRB, 0.411017E-04_JPRB &
+  &, 0.416650E-04_JPRB, 0.422342E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 143, :) = (/ &
+  &  0.893589E+00_JPRB, 0.867262E+00_JPRB, 0.841077E+00_JPRB, 0.815054E+00_JPRB &
+  &, 0.789206E+00_JPRB, 0.763552E+00_JPRB, 0.738109E+00_JPRB &
+  &, 0.712892E+00_JPRB, 0.687920E+00_JPRB, 0.663209E+00_JPRB, 0.638777E+00_JPRB &
+  &, 0.614639E+00_JPRB, 0.590814E+00_JPRB, 0.567318E+00_JPRB &
+  &, 0.544170E+00_JPRB, 0.521385E+00_JPRB, 0.498981E+00_JPRB, 0.476974E+00_JPRB &
+  &, 0.455382E+00_JPRB, 0.434217E+00_JPRB, 0.413502E+00_JPRB &
+  &, 0.393249E+00_JPRB, 0.373472E+00_JPRB, 0.354189E+00_JPRB, 0.335413E+00_JPRB &
+  &, 0.317152E+00_JPRB, 0.299426E+00_JPRB, 0.282240E+00_JPRB &
+  &, 0.265609E+00_JPRB, 0.249541E+00_JPRB, 0.234046E+00_JPRB, 0.219127E+00_JPRB &
+  &, 0.204787E+00_JPRB, 0.191036E+00_JPRB, 0.177872E+00_JPRB &
+  &, 0.165294E+00_JPRB, 0.153313E+00_JPRB, 0.141910E+00_JPRB, 0.131093E+00_JPRB &
+  &, 0.120837E+00_JPRB, 0.111166E+00_JPRB, 0.102037E+00_JPRB &
+  &, 0.934569E-01_JPRB, 0.854088E-01_JPRB, 0.778702E-01_JPRB, 0.708499E-01_JPRB &
+  &, 0.643061E-01_JPRB, 0.582278E-01_JPRB, 0.526003E-01_JPRB &
+  &, 0.474054E-01_JPRB, 0.426203E-01_JPRB, 0.382318E-01_JPRB, 0.342091E-01_JPRB &
+  &, 0.305308E-01_JPRB, 0.271715E-01_JPRB, 0.241321E-01_JPRB &
+  &, 0.213806E-01_JPRB, 0.188808E-01_JPRB, 0.166400E-01_JPRB, 0.146319E-01_JPRB &
+  &, 0.128264E-01_JPRB, 0.112245E-01_JPRB, 0.979039E-02_JPRB &
+  &, 0.852077E-02_JPRB, 0.739248E-02_JPRB, 0.639859E-02_JPRB, 0.551151E-02_JPRB &
+  &, 0.476001E-02_JPRB, 0.407380E-02_JPRB, 0.349985E-02_JPRB &
+  &, 0.298342E-02_JPRB, 0.252926E-02_JPRB, 0.216425E-02_JPRB, 0.182749E-02_JPRB &
+  &, 0.154431E-02_JPRB, 0.129524E-02_JPRB, 0.108288E-02_JPRB &
+  &, 0.909902E-03_JPRB, 0.754223E-03_JPRB, 0.642480E-03_JPRB, 0.525938E-03_JPRB &
+  &, 0.430809E-03_JPRB, 0.358532E-03_JPRB, 0.283257E-03_JPRB &
+  &, 0.232778E-03_JPRB, 0.180249E-03_JPRB, 0.154541E-03_JPRB, 0.127791E-03_JPRB &
+  &, 0.999792E-04_JPRB, 0.710888E-04_JPRB, 0.722034E-04_JPRB &
+  &, 0.416650E-04_JPRB, 0.422342E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 144, :) = (/ &
+  &  0.894001E+00_JPRB, 0.867766E+00_JPRB, 0.841671E+00_JPRB, 0.815732E+00_JPRB &
+  &, 0.789964E+00_JPRB, 0.764387E+00_JPRB, 0.739015E+00_JPRB &
+  &, 0.713866E+00_JPRB, 0.688957E+00_JPRB, 0.664305E+00_JPRB, 0.639927E+00_JPRB &
+  &, 0.615839E+00_JPRB, 0.592061E+00_JPRB, 0.568607E+00_JPRB &
+  &, 0.545496E+00_JPRB, 0.522744E+00_JPRB, 0.500368E+00_JPRB, 0.478386E+00_JPRB &
+  &, 0.456814E+00_JPRB, 0.435667E+00_JPRB, 0.414964E+00_JPRB &
+  &, 0.394717E+00_JPRB, 0.374944E+00_JPRB, 0.355661E+00_JPRB, 0.336880E+00_JPRB &
+  &, 0.318611E+00_JPRB, 0.300872E+00_JPRB, 0.283675E+00_JPRB &
+  &, 0.267024E+00_JPRB, 0.250935E+00_JPRB, 0.235413E+00_JPRB, 0.220465E+00_JPRB &
+  &, 0.206099E+00_JPRB, 0.192315E+00_JPRB, 0.179119E+00_JPRB &
+  &, 0.166503E+00_JPRB, 0.154476E+00_JPRB, 0.143035E+00_JPRB, 0.132176E+00_JPRB &
+  &, 0.121886E+00_JPRB, 0.112156E+00_JPRB, 0.102987E+00_JPRB &
+  &, 0.943650E-01_JPRB, 0.862715E-01_JPRB, 0.786963E-01_JPRB, 0.716130E-01_JPRB &
+  &, 0.650270E-01_JPRB, 0.589163E-01_JPRB, 0.532417E-01_JPRB &
+  &, 0.480098E-01_JPRB, 0.431856E-01_JPRB, 0.387418E-01_JPRB, 0.346749E-01_JPRB &
+  &, 0.309643E-01_JPRB, 0.275858E-01_JPRB, 0.245106E-01_JPRB &
+  &, 0.217216E-01_JPRB, 0.191979E-01_JPRB, 0.169320E-01_JPRB, 0.148974E-01_JPRB &
+  &, 0.130641E-01_JPRB, 0.114328E-01_JPRB, 0.996789E-02_JPRB &
+  &, 0.868409E-02_JPRB, 0.754088E-02_JPRB, 0.653129E-02_JPRB, 0.564711E-02_JPRB &
+  &, 0.485897E-02_JPRB, 0.417488E-02_JPRB, 0.358245E-02_JPRB &
+  &, 0.304669E-02_JPRB, 0.259386E-02_JPRB, 0.220822E-02_JPRB, 0.187237E-02_JPRB &
+  &, 0.159011E-02_JPRB, 0.134198E-02_JPRB, 0.113057E-02_JPRB &
+  &, 0.934223E-03_JPRB, 0.779031E-03_JPRB, 0.642480E-03_JPRB, 0.551734E-03_JPRB &
+  &, 0.457109E-03_JPRB, 0.358532E-03_JPRB, 0.310583E-03_JPRB &
+  &, 0.232778E-03_JPRB, 0.208623E-03_JPRB, 0.154541E-03_JPRB, 0.127791E-03_JPRB &
+  &, 0.999792E-04_JPRB, 0.710888E-04_JPRB, 0.722034E-04_JPRB &
+  &, 0.416650E-04_JPRB, 0.422342E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 145, :) = (/ &
+  &  0.894411E+00_JPRB, 0.868269E+00_JPRB, 0.842262E+00_JPRB, 0.816407E+00_JPRB &
+  &, 0.790720E+00_JPRB, 0.765218E+00_JPRB, 0.739918E+00_JPRB &
+  &, 0.714836E+00_JPRB, 0.689990E+00_JPRB, 0.665397E+00_JPRB, 0.641074E+00_JPRB &
+  &, 0.617037E+00_JPRB, 0.593303E+00_JPRB, 0.569891E+00_JPRB &
+  &, 0.546817E+00_JPRB, 0.524098E+00_JPRB, 0.501752E+00_JPRB, 0.479795E+00_JPRB &
+  &, 0.458242E+00_JPRB, 0.437114E+00_JPRB, 0.416420E+00_JPRB &
+  &, 0.396183E+00_JPRB, 0.376416E+00_JPRB, 0.357129E+00_JPRB, 0.338344E+00_JPRB &
+  &, 0.320069E+00_JPRB, 0.302321E+00_JPRB, 0.285106E+00_JPRB &
+  &, 0.268440E+00_JPRB, 0.252330E+00_JPRB, 0.236781E+00_JPRB, 0.221808E+00_JPRB &
+  &, 0.207411E+00_JPRB, 0.193593E+00_JPRB, 0.180362E+00_JPRB &
+  &, 0.167712E+00_JPRB, 0.155649E+00_JPRB, 0.144169E+00_JPRB, 0.133259E+00_JPRB &
+  &, 0.122924E+00_JPRB, 0.113157E+00_JPRB, 0.103949E+00_JPRB &
+  &, 0.952731E-01_JPRB, 0.871342E-01_JPRB, 0.795107E-01_JPRB, 0.723881E-01_JPRB &
+  &, 0.657601E-01_JPRB, 0.596049E-01_JPRB, 0.538830E-01_JPRB &
+  &, 0.486142E-01_JPRB, 0.437374E-01_JPRB, 0.392656E-01_JPRB, 0.351689E-01_JPRB &
+  &, 0.314123E-01_JPRB, 0.280000E-01_JPRB, 0.248892E-01_JPRB &
+  &, 0.220625E-01_JPRB, 0.195151E-01_JPRB, 0.172241E-01_JPRB, 0.151464E-01_JPRB &
+  &, 0.133017E-01_JPRB, 0.116411E-01_JPRB, 0.101631E-01_JPRB &
+  &, 0.884741E-02_JPRB, 0.768927E-02_JPRB, 0.666399E-02_JPRB, 0.576334E-02_JPRB &
+  &, 0.495793E-02_JPRB, 0.427597E-02_JPRB, 0.366505E-02_JPRB &
+  &, 0.313104E-02_JPRB, 0.265846E-02_JPRB, 0.227416E-02_JPRB, 0.191724E-02_JPRB &
+  &, 0.163591E-02_JPRB, 0.136534E-02_JPRB, 0.115441E-02_JPRB &
+  &, 0.958545E-03_JPRB, 0.803838E-03_JPRB, 0.667779E-03_JPRB, 0.551734E-03_JPRB &
+  &, 0.457109E-03_JPRB, 0.385342E-03_JPRB, 0.310583E-03_JPRB &
+  &, 0.260626E-03_JPRB, 0.208623E-03_JPRB, 0.154541E-03_JPRB, 0.127791E-03_JPRB &
+  &, 0.999792E-04_JPRB, 0.710888E-04_JPRB, 0.722034E-04_JPRB &
+  &, 0.416650E-04_JPRB, 0.422342E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 146, :) = (/ &
+  &  0.894820E+00_JPRB, 0.868769E+00_JPRB, 0.842850E+00_JPRB, 0.817079E+00_JPRB &
+  &, 0.791472E+00_JPRB, 0.766046E+00_JPRB, 0.740817E+00_JPRB &
+  &, 0.715803E+00_JPRB, 0.691020E+00_JPRB, 0.666485E+00_JPRB, 0.642216E+00_JPRB &
+  &, 0.618230E+00_JPRB, 0.594542E+00_JPRB, 0.571172E+00_JPRB &
+  &, 0.548136E+00_JPRB, 0.525450E+00_JPRB, 0.503132E+00_JPRB, 0.481199E+00_JPRB &
+  &, 0.459668E+00_JPRB, 0.438554E+00_JPRB, 0.417876E+00_JPRB &
+  &, 0.397645E+00_JPRB, 0.377881E+00_JPRB, 0.358597E+00_JPRB, 0.339807E+00_JPRB &
+  &, 0.321524E+00_JPRB, 0.303766E+00_JPRB, 0.286537E+00_JPRB &
+  &, 0.269851E+00_JPRB, 0.253720E+00_JPRB, 0.238153E+00_JPRB, 0.223151E+00_JPRB &
+  &, 0.208723E+00_JPRB, 0.194876E+00_JPRB, 0.181605E+00_JPRB &
+  &, 0.168922E+00_JPRB, 0.156823E+00_JPRB, 0.145293E+00_JPRB, 0.134352E+00_JPRB &
+  &, 0.123972E+00_JPRB, 0.114159E+00_JPRB, 0.104900E+00_JPRB &
+  &, 0.961813E-01_JPRB, 0.879970E-01_JPRB, 0.803368E-01_JPRB, 0.731751E-01_JPRB &
+  &, 0.664933E-01_JPRB, 0.602935E-01_JPRB, 0.545372E-01_JPRB &
+  &, 0.492187E-01_JPRB, 0.443026E-01_JPRB, 0.397894E-01_JPRB, 0.356488E-01_JPRB &
+  &, 0.318603E-01_JPRB, 0.284142E-01_JPRB, 0.252678E-01_JPRB &
+  &, 0.224189E-01_JPRB, 0.198323E-01_JPRB, 0.174999E-01_JPRB, 0.154119E-01_JPRB &
+  &, 0.135394E-01_JPRB, 0.118668E-01_JPRB, 0.103584E-01_JPRB &
+  &, 0.902887E-02_JPRB, 0.785621E-02_JPRB, 0.679669E-02_JPRB, 0.587956E-02_JPRB &
+  &, 0.507668E-02_JPRB, 0.435685E-02_JPRB, 0.374765E-02_JPRB &
+  &, 0.319431E-02_JPRB, 0.274459E-02_JPRB, 0.231813E-02_JPRB, 0.198456E-02_JPRB &
+  &, 0.168171E-02_JPRB, 0.141208E-02_JPRB, 0.117825E-02_JPRB &
+  &, 0.100719E-02_JPRB, 0.828646E-03_JPRB, 0.693078E-03_JPRB, 0.577531E-03_JPRB &
+  &, 0.483410E-03_JPRB, 0.385342E-03_JPRB, 0.310583E-03_JPRB &
+  &, 0.260626E-03_JPRB, 0.208623E-03_JPRB, 0.183449E-03_JPRB, 0.127791E-03_JPRB &
+  &, 0.999792E-04_JPRB, 0.101633E-03_JPRB, 0.722034E-04_JPRB &
+  &, 0.416650E-04_JPRB, 0.422342E-04_JPRB, 0.428094E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 147, :) = (/ &
+  &  0.895226E+00_JPRB, 0.869269E+00_JPRB, 0.843436E+00_JPRB, 0.817749E+00_JPRB &
+  &, 0.792221E+00_JPRB, 0.766870E+00_JPRB, 0.741713E+00_JPRB &
+  &, 0.716766E+00_JPRB, 0.692046E+00_JPRB, 0.667570E+00_JPRB, 0.643355E+00_JPRB &
+  &, 0.619418E+00_JPRB, 0.595777E+00_JPRB, 0.572448E+00_JPRB &
+  &, 0.549449E+00_JPRB, 0.526798E+00_JPRB, 0.504509E+00_JPRB, 0.482601E+00_JPRB &
+  &, 0.461090E+00_JPRB, 0.439991E+00_JPRB, 0.419325E+00_JPRB &
+  &, 0.399104E+00_JPRB, 0.379346E+00_JPRB, 0.360061E+00_JPRB, 0.341267E+00_JPRB &
+  &, 0.322979E+00_JPRB, 0.305208E+00_JPRB, 0.287968E+00_JPRB &
+  &, 0.271263E+00_JPRB, 0.255110E+00_JPRB, 0.239520E+00_JPRB, 0.224490E+00_JPRB &
+  &, 0.210035E+00_JPRB, 0.196155E+00_JPRB, 0.182852E+00_JPRB &
+  &, 0.170131E+00_JPRB, 0.157986E+00_JPRB, 0.146428E+00_JPRB, 0.135444E+00_JPRB &
+  &, 0.125021E+00_JPRB, 0.115170E+00_JPRB, 0.105861E+00_JPRB &
+  &, 0.971004E-01_JPRB, 0.888711E-01_JPRB, 0.811628E-01_JPRB, 0.739501E-01_JPRB &
+  &, 0.672264E-01_JPRB, 0.609821E-01_JPRB, 0.551785E-01_JPRB &
+  &, 0.498231E-01_JPRB, 0.448679E-01_JPRB, 0.403131E-01_JPRB, 0.361428E-01_JPRB &
+  &, 0.323227E-01_JPRB, 0.288284E-01_JPRB, 0.256463E-01_JPRB &
+  &, 0.227599E-01_JPRB, 0.201494E-01_JPRB, 0.178081E-01_JPRB, 0.156775E-01_JPRB &
+  &, 0.137770E-01_JPRB, 0.120751E-01_JPRB, 0.105537E-01_JPRB &
+  &, 0.921034E-02_JPRB, 0.800460E-02_JPRB, 0.694835E-02_JPRB, 0.601517E-02_JPRB &
+  &, 0.519543E-02_JPRB, 0.445794E-02_JPRB, 0.383025E-02_JPRB &
+  &, 0.327866E-02_JPRB, 0.280918E-02_JPRB, 0.238408E-02_JPRB, 0.202943E-02_JPRB &
+  &, 0.170461E-02_JPRB, 0.145882E-02_JPRB, 0.122593E-02_JPRB &
+  &, 0.103151E-02_JPRB, 0.853453E-03_JPRB, 0.718377E-03_JPRB, 0.603328E-03_JPRB &
+  &, 0.483410E-03_JPRB, 0.412152E-03_JPRB, 0.337909E-03_JPRB &
+  &, 0.260626E-03_JPRB, 0.236998E-03_JPRB, 0.183449E-03_JPRB, 0.157238E-03_JPRB &
+  &, 0.129972E-03_JPRB, 0.101633E-03_JPRB, 0.722034E-04_JPRB &
+  &, 0.416650E-04_JPRB, 0.422342E-04_JPRB, 0.428094E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART21',1,ZHOOK_HANDLE)
+END SUBROUTINE PART21
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART22
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART22',0,ZHOOK_HANDLE)
+
+XCW( 148, :) = (/ &
+  &  0.895631E+00_JPRB, 0.869765E+00_JPRB, 0.844020E+00_JPRB, 0.818416E+00_JPRB &
+  &, 0.792967E+00_JPRB, 0.767692E+00_JPRB, 0.742606E+00_JPRB &
+  &, 0.717725E+00_JPRB, 0.693067E+00_JPRB, 0.668651E+00_JPRB, 0.644490E+00_JPRB &
+  &, 0.620604E+00_JPRB, 0.597009E+00_JPRB, 0.573722E+00_JPRB &
+  &, 0.550761E+00_JPRB, 0.528141E+00_JPRB, 0.505881E+00_JPRB, 0.483998E+00_JPRB &
+  &, 0.462509E+00_JPRB, 0.441428E+00_JPRB, 0.420775E+00_JPRB &
+  &, 0.400559E+00_JPRB, 0.380804E+00_JPRB, 0.361522E+00_JPRB, 0.342727E+00_JPRB &
+  &, 0.324430E+00_JPRB, 0.306649E+00_JPRB, 0.289395E+00_JPRB &
+  &, 0.272674E+00_JPRB, 0.256505E+00_JPRB, 0.240888E+00_JPRB, 0.225833E+00_JPRB &
+  &, 0.211347E+00_JPRB, 0.197433E+00_JPRB, 0.184100E+00_JPRB &
+  &, 0.171340E+00_JPRB, 0.159159E+00_JPRB, 0.147562E+00_JPRB, 0.136537E+00_JPRB &
+  &, 0.126069E+00_JPRB, 0.116171E+00_JPRB, 0.106823E+00_JPRB &
+  &, 0.980196E-01_JPRB, 0.897451E-01_JPRB, 0.819889E-01_JPRB, 0.747371E-01_JPRB &
+  &, 0.679718E-01_JPRB, 0.616833E-01_JPRB, 0.558327E-01_JPRB &
+  &, 0.504275E-01_JPRB, 0.454466E-01_JPRB, 0.408507E-01_JPRB, 0.366368E-01_JPRB &
+  &, 0.327707E-01_JPRB, 0.292427E-01_JPRB, 0.260400E-01_JPRB &
+  &, 0.231163E-01_JPRB, 0.204824E-01_JPRB, 0.181002E-01_JPRB, 0.159430E-01_JPRB &
+  &, 0.140147E-01_JPRB, 0.123008E-01_JPRB, 0.107489E-01_JPRB &
+  &, 0.939181E-02_JPRB, 0.817154E-02_JPRB, 0.708105E-02_JPRB, 0.613139E-02_JPRB &
+  &, 0.529439E-02_JPRB, 0.455902E-02_JPRB, 0.391285E-02_JPRB &
+  &, 0.336301E-02_JPRB, 0.287378E-02_JPRB, 0.245002E-02_JPRB, 0.207431E-02_JPRB &
+  &, 0.175041E-02_JPRB, 0.148218E-02_JPRB, 0.124978E-02_JPRB &
+  &, 0.105583E-02_JPRB, 0.878260E-03_JPRB, 0.743676E-03_JPRB, 0.603328E-03_JPRB &
+  &, 0.509710E-03_JPRB, 0.412152E-03_JPRB, 0.337909E-03_JPRB &
+  &, 0.288473E-03_JPRB, 0.236998E-03_JPRB, 0.183449E-03_JPRB, 0.157238E-03_JPRB &
+  &, 0.129972E-03_JPRB, 0.101633E-03_JPRB, 0.722034E-04_JPRB &
+  &, 0.416650E-04_JPRB, 0.422342E-04_JPRB, 0.428094E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 149, :) = (/ &
+  &  0.896035E+00_JPRB, 0.870259E+00_JPRB, 0.844601E+00_JPRB, 0.819080E+00_JPRB &
+  &, 0.793711E+00_JPRB, 0.768510E+00_JPRB, 0.743492E+00_JPRB &
+  &, 0.718681E+00_JPRB, 0.694086E+00_JPRB, 0.669727E+00_JPRB, 0.645622E+00_JPRB &
+  &, 0.621785E+00_JPRB, 0.598235E+00_JPRB, 0.574991E+00_JPRB &
+  &, 0.552067E+00_JPRB, 0.529481E+00_JPRB, 0.507251E+00_JPRB, 0.485393E+00_JPRB &
+  &, 0.463924E+00_JPRB, 0.442859E+00_JPRB, 0.422218E+00_JPRB &
+  &, 0.402015E+00_JPRB, 0.382263E+00_JPRB, 0.362984E+00_JPRB, 0.344184E+00_JPRB &
+  &, 0.325882E+00_JPRB, 0.308091E+00_JPRB, 0.290822E+00_JPRB &
+  &, 0.274086E+00_JPRB, 0.257891E+00_JPRB, 0.242251E+00_JPRB, 0.227171E+00_JPRB &
+  &, 0.212659E+00_JPRB, 0.198716E+00_JPRB, 0.185347E+00_JPRB &
+  &, 0.172549E+00_JPRB, 0.160342E+00_JPRB, 0.148696E+00_JPRB, 0.137630E+00_JPRB &
+  &, 0.127128E+00_JPRB, 0.117183E+00_JPRB, 0.107795E+00_JPRB &
+  &, 0.989388E-01_JPRB, 0.906192E-01_JPRB, 0.828266E-01_JPRB, 0.755241E-01_JPRB &
+  &, 0.687171E-01_JPRB, 0.623844E-01_JPRB, 0.564997E-01_JPRB &
+  &, 0.510451E-01_JPRB, 0.460119E-01_JPRB, 0.413883E-01_JPRB, 0.371308E-01_JPRB &
+  &, 0.332332E-01_JPRB, 0.296717E-01_JPRB, 0.264186E-01_JPRB &
+  &, 0.234728E-01_JPRB, 0.208154E-01_JPRB, 0.183922E-01_JPRB, 0.162252E-01_JPRB &
+  &, 0.142693E-01_JPRB, 0.125264E-01_JPRB, 0.109619E-01_JPRB &
+  &, 0.957327E-02_JPRB, 0.831993E-02_JPRB, 0.723271E-02_JPRB, 0.626699E-02_JPRB &
+  &, 0.541314E-02_JPRB, 0.466011E-02_JPRB, 0.401610E-02_JPRB &
+  &, 0.344736E-02_JPRB, 0.293837E-02_JPRB, 0.251597E-02_JPRB, 0.214163E-02_JPRB &
+  &, 0.179621E-02_JPRB, 0.152892E-02_JPRB, 0.129746E-02_JPRB &
+  &, 0.108015E-02_JPRB, 0.903068E-03_JPRB, 0.768975E-03_JPRB, 0.629125E-03_JPRB &
+  &, 0.536011E-03_JPRB, 0.438963E-03_JPRB, 0.365235E-03_JPRB &
+  &, 0.288473E-03_JPRB, 0.236998E-03_JPRB, 0.183449E-03_JPRB, 0.157238E-03_JPRB &
+  &, 0.129972E-03_JPRB, 0.101633E-03_JPRB, 0.722034E-04_JPRB &
+  &, 0.733299E-04_JPRB, 0.422342E-04_JPRB, 0.428094E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 150, :) = (/ &
+  &  0.896436E+00_JPRB, 0.870751E+00_JPRB, 0.845180E+00_JPRB, 0.819742E+00_JPRB &
+  &, 0.794451E+00_JPRB, 0.769325E+00_JPRB, 0.744380E+00_JPRB &
+  &, 0.719633E+00_JPRB, 0.695101E+00_JPRB, 0.670801E+00_JPRB, 0.646749E+00_JPRB &
+  &, 0.622963E+00_JPRB, 0.599459E+00_JPRB, 0.576255E+00_JPRB &
+  &, 0.553370E+00_JPRB, 0.530818E+00_JPRB, 0.508616E+00_JPRB, 0.486783E+00_JPRB &
+  &, 0.465335E+00_JPRB, 0.444287E+00_JPRB, 0.423661E+00_JPRB &
+  &, 0.403464E+00_JPRB, 0.383721E+00_JPRB, 0.364441E+00_JPRB, 0.345640E+00_JPRB &
+  &, 0.327329E+00_JPRB, 0.309529E+00_JPRB, 0.292246E+00_JPRB &
+  &, 0.275493E+00_JPRB, 0.259282E+00_JPRB, 0.243619E+00_JPRB, 0.228514E+00_JPRB &
+  &, 0.213970E+00_JPRB, 0.199999E+00_JPRB, 0.186595E+00_JPRB &
+  &, 0.173768E+00_JPRB, 0.161515E+00_JPRB, 0.149831E+00_JPRB, 0.138723E+00_JPRB &
+  &, 0.128176E+00_JPRB, 0.118195E+00_JPRB, 0.108756E+00_JPRB &
+  &, 0.998691E-01_JPRB, 0.915047E-01_JPRB, 0.836527E-01_JPRB, 0.763110E-01_JPRB &
+  &, 0.694625E-01_JPRB, 0.630855E-01_JPRB, 0.571539E-01_JPRB &
+  &, 0.516627E-01_JPRB, 0.465906E-01_JPRB, 0.419258E-01_JPRB, 0.376248E-01_JPRB &
+  &, 0.336956E-01_JPRB, 0.301007E-01_JPRB, 0.268123E-01_JPRB &
+  &, 0.238447E-01_JPRB, 0.211326E-01_JPRB, 0.187005E-01_JPRB, 0.164907E-01_JPRB &
+  &, 0.145240E-01_JPRB, 0.127521E-01_JPRB, 0.111572E-01_JPRB &
+  &, 0.975474E-02_JPRB, 0.848687E-02_JPRB, 0.738437E-02_JPRB, 0.640260E-02_JPRB &
+  &, 0.553189E-02_JPRB, 0.476120E-02_JPRB, 0.409870E-02_JPRB &
+  &, 0.351063E-02_JPRB, 0.300297E-02_JPRB, 0.255993E-02_JPRB, 0.218650E-02_JPRB &
+  &, 0.186491E-02_JPRB, 0.157566E-02_JPRB, 0.132130E-02_JPRB &
+  &, 0.110447E-02_JPRB, 0.927875E-03_JPRB, 0.794275E-03_JPRB, 0.654922E-03_JPRB &
+  &, 0.536011E-03_JPRB, 0.438963E-03_JPRB, 0.365235E-03_JPRB &
+  &, 0.316320E-03_JPRB, 0.236998E-03_JPRB, 0.212358E-03_JPRB, 0.157238E-03_JPRB &
+  &, 0.129972E-03_JPRB, 0.101633E-03_JPRB, 0.722034E-04_JPRB &
+  &, 0.733299E-04_JPRB, 0.422342E-04_JPRB, 0.428094E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 151, :) = (/ &
+  &  0.896836E+00_JPRB, 0.871241E+00_JPRB, 0.845757E+00_JPRB, 0.820401E+00_JPRB &
+  &, 0.795189E+00_JPRB, 0.770138E+00_JPRB, 0.745263E+00_JPRB &
+  &, 0.720582E+00_JPRB, 0.696113E+00_JPRB, 0.671870E+00_JPRB, 0.647873E+00_JPRB &
+  &, 0.624136E+00_JPRB, 0.600679E+00_JPRB, 0.577518E+00_JPRB &
+  &, 0.554669E+00_JPRB, 0.532150E+00_JPRB, 0.509978E+00_JPRB, 0.488171E+00_JPRB &
+  &, 0.466743E+00_JPRB, 0.445714E+00_JPRB, 0.425097E+00_JPRB &
+  &, 0.404913E+00_JPRB, 0.385172E+00_JPRB, 0.365895E+00_JPRB, 0.347090E+00_JPRB &
+  &, 0.328777E+00_JPRB, 0.310967E+00_JPRB, 0.293673E+00_JPRB &
+  &, 0.276901E+00_JPRB, 0.260672E+00_JPRB, 0.244986E+00_JPRB, 0.229853E+00_JPRB &
+  &, 0.215282E+00_JPRB, 0.201278E+00_JPRB, 0.187846E+00_JPRB &
+  &, 0.174977E+00_JPRB, 0.162688E+00_JPRB, 0.150975E+00_JPRB, 0.139825E+00_JPRB &
+  &, 0.129235E+00_JPRB, 0.119206E+00_JPRB, 0.109729E+00_JPRB &
+  &, 0.100788E+00_JPRB, 0.923901E-01_JPRB, 0.845020E-01_JPRB, 0.771099E-01_JPRB &
+  &, 0.702078E-01_JPRB, 0.637866E-01_JPRB, 0.578209E-01_JPRB &
+  &, 0.522934E-01_JPRB, 0.471828E-01_JPRB, 0.424634E-01_JPRB, 0.381329E-01_JPRB &
+  &, 0.341580E-01_JPRB, 0.305297E-01_JPRB, 0.272212E-01_JPRB &
+  &, 0.242011E-01_JPRB, 0.214656E-01_JPRB, 0.190087E-01_JPRB, 0.167729E-01_JPRB &
+  &, 0.147786E-01_JPRB, 0.129778E-01_JPRB, 0.113702E-01_JPRB &
+  &, 0.993620E-02_JPRB, 0.865381E-02_JPRB, 0.753603E-02_JPRB, 0.653820E-02_JPRB &
+  &, 0.565064E-02_JPRB, 0.488251E-02_JPRB, 0.420195E-02_JPRB &
+  &, 0.359498E-02_JPRB, 0.308910E-02_JPRB, 0.262588E-02_JPRB, 0.223138E-02_JPRB &
+  &, 0.191071E-02_JPRB, 0.162239E-02_JPRB, 0.136899E-02_JPRB &
+  &, 0.115312E-02_JPRB, 0.952683E-03_JPRB, 0.794275E-03_JPRB, 0.680719E-03_JPRB &
+  &, 0.562311E-03_JPRB, 0.465773E-03_JPRB, 0.392560E-03_JPRB &
+  &, 0.316320E-03_JPRB, 0.265373E-03_JPRB, 0.212358E-03_JPRB, 0.157238E-03_JPRB &
+  &, 0.129972E-03_JPRB, 0.101633E-03_JPRB, 0.722034E-04_JPRB &
+  &, 0.733299E-04_JPRB, 0.422342E-04_JPRB, 0.428094E-04_JPRB, 0.433905E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 152, :) = (/ &
+  &  0.897233E+00_JPRB, 0.871729E+00_JPRB, 0.846331E+00_JPRB, 0.821058E+00_JPRB &
+  &, 0.795924E+00_JPRB, 0.770946E+00_JPRB, 0.746143E+00_JPRB &
+  &, 0.721529E+00_JPRB, 0.697120E+00_JPRB, 0.672937E+00_JPRB, 0.648993E+00_JPRB &
+  &, 0.625307E+00_JPRB, 0.601896E+00_JPRB, 0.578774E+00_JPRB &
+  &, 0.555964E+00_JPRB, 0.533478E+00_JPRB, 0.511337E+00_JPRB, 0.489555E+00_JPRB &
+  &, 0.468149E+00_JPRB, 0.447135E+00_JPRB, 0.426533E+00_JPRB &
+  &, 0.406358E+00_JPRB, 0.386624E+00_JPRB, 0.367346E+00_JPRB, 0.348543E+00_JPRB &
+  &, 0.330221E+00_JPRB, 0.312401E+00_JPRB, 0.295096E+00_JPRB &
+  &, 0.278309E+00_JPRB, 0.262058E+00_JPRB, 0.246350E+00_JPRB, 0.231196E+00_JPRB &
+  &, 0.216599E+00_JPRB, 0.202561E+00_JPRB, 0.189094E+00_JPRB &
+  &, 0.176195E+00_JPRB, 0.163870E+00_JPRB, 0.152109E+00_JPRB, 0.140918E+00_JPRB &
+  &, 0.130294E+00_JPRB, 0.120229E+00_JPRB, 0.110701E+00_JPRB &
+  &, 0.101719E+00_JPRB, 0.932755E-01_JPRB, 0.853397E-01_JPRB, 0.779088E-01_JPRB &
+  &, 0.709654E-01_JPRB, 0.645002E-01_JPRB, 0.584879E-01_JPRB &
+  &, 0.529110E-01_JPRB, 0.477615E-01_JPRB, 0.430147E-01_JPRB, 0.386410E-01_JPRB &
+  &, 0.346349E-01_JPRB, 0.309588E-01_JPRB, 0.276149E-01_JPRB &
+  &, 0.245731E-01_JPRB, 0.218145E-01_JPRB, 0.193170E-01_JPRB, 0.170550E-01_JPRB &
+  &, 0.150332E-01_JPRB, 0.132035E-01_JPRB, 0.115832E-01_JPRB &
+  &, 0.101177E-01_JPRB, 0.882075E-02_JPRB, 0.768769E-02_JPRB, 0.667380E-02_JPRB &
+  &, 0.576939E-02_JPRB, 0.498360E-02_JPRB, 0.428455E-02_JPRB &
+  &, 0.367933E-02_JPRB, 0.315370E-02_JPRB, 0.269183E-02_JPRB, 0.229869E-02_JPRB &
+  &, 0.195651E-02_JPRB, 0.164576E-02_JPRB, 0.139283E-02_JPRB &
+  &, 0.117744E-02_JPRB, 0.977490E-03_JPRB, 0.819574E-03_JPRB, 0.680719E-03_JPRB &
+  &, 0.588612E-03_JPRB, 0.465773E-03_JPRB, 0.392560E-03_JPRB &
+  &, 0.316320E-03_JPRB, 0.265373E-03_JPRB, 0.212358E-03_JPRB, 0.186686E-03_JPRB &
+  &, 0.129972E-03_JPRB, 0.101633E-03_JPRB, 0.103305E-03_JPRB &
+  &, 0.733299E-04_JPRB, 0.422342E-04_JPRB, 0.428094E-04_JPRB, 0.433905E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 153, :) = (/ &
+  &  0.897630E+00_JPRB, 0.872215E+00_JPRB, 0.846903E+00_JPRB, 0.821712E+00_JPRB &
+  &, 0.796656E+00_JPRB, 0.771753E+00_JPRB, 0.747018E+00_JPRB &
+  &, 0.722470E+00_JPRB, 0.698125E+00_JPRB, 0.673999E+00_JPRB, 0.650110E+00_JPRB &
+  &, 0.626474E+00_JPRB, 0.603107E+00_JPRB, 0.580030E+00_JPRB &
+  &, 0.557256E+00_JPRB, 0.534805E+00_JPRB, 0.512691E+00_JPRB, 0.490936E+00_JPRB &
+  &, 0.469551E+00_JPRB, 0.448557E+00_JPRB, 0.427967E+00_JPRB &
+  &, 0.407800E+00_JPRB, 0.388072E+00_JPRB, 0.368797E+00_JPRB, 0.349992E+00_JPRB &
+  &, 0.331665E+00_JPRB, 0.313835E+00_JPRB, 0.296516E+00_JPRB &
+  &, 0.279716E+00_JPRB, 0.263445E+00_JPRB, 0.247717E+00_JPRB, 0.232534E+00_JPRB &
+  &, 0.217910E+00_JPRB, 0.203844E+00_JPRB, 0.190346E+00_JPRB &
+  &, 0.177414E+00_JPRB, 0.165053E+00_JPRB, 0.153253E+00_JPRB, 0.142021E+00_JPRB &
+  &, 0.131353E+00_JPRB, 0.121240E+00_JPRB, 0.111684E+00_JPRB &
+  &, 0.102660E+00_JPRB, 0.941610E-01_JPRB, 0.861775E-01_JPRB, 0.787077E-01_JPRB &
+  &, 0.717230E-01_JPRB, 0.652139E-01_JPRB, 0.591549E-01_JPRB &
+  &, 0.535417E-01_JPRB, 0.483537E-01_JPRB, 0.435523E-01_JPRB, 0.391491E-01_JPRB &
+  &, 0.350974E-01_JPRB, 0.314026E-01_JPRB, 0.280237E-01_JPRB &
+  &, 0.249450E-01_JPRB, 0.221475E-01_JPRB, 0.196253E-01_JPRB, 0.173372E-01_JPRB &
+  &, 0.152879E-01_JPRB, 0.134292E-01_JPRB, 0.117784E-01_JPRB &
+  &, 0.103173E-01_JPRB, 0.900624E-02_JPRB, 0.783934E-02_JPRB, 0.680940E-02_JPRB &
+  &, 0.588814E-02_JPRB, 0.508469E-02_JPRB, 0.438780E-02_JPRB &
+  &, 0.376368E-02_JPRB, 0.323983E-02_JPRB, 0.275777E-02_JPRB, 0.234357E-02_JPRB &
+  &, 0.200231E-02_JPRB, 0.169250E-02_JPRB, 0.144051E-02_JPRB &
+  &, 0.120176E-02_JPRB, 0.102711E-02_JPRB, 0.844873E-03_JPRB, 0.706516E-03_JPRB &
+  &, 0.588612E-03_JPRB, 0.492583E-03_JPRB, 0.419886E-03_JPRB &
+  &, 0.344167E-03_JPRB, 0.265373E-03_JPRB, 0.212358E-03_JPRB, 0.186686E-03_JPRB &
+  &, 0.159965E-03_JPRB, 0.132178E-03_JPRB, 0.103305E-03_JPRB &
+  &, 0.733299E-04_JPRB, 0.422342E-04_JPRB, 0.428094E-04_JPRB, 0.433905E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 154, :) = (/ &
+  &  0.898025E+00_JPRB, 0.872699E+00_JPRB, 0.847473E+00_JPRB, 0.822363E+00_JPRB &
+  &, 0.797385E+00_JPRB, 0.772555E+00_JPRB, 0.747892E+00_JPRB &
+  &, 0.723410E+00_JPRB, 0.699126E+00_JPRB, 0.675058E+00_JPRB, 0.651222E+00_JPRB &
+  &, 0.627636E+00_JPRB, 0.604316E+00_JPRB, 0.581280E+00_JPRB &
+  &, 0.558545E+00_JPRB, 0.536127E+00_JPRB, 0.514044E+00_JPRB, 0.492312E+00_JPRB &
+  &, 0.470950E+00_JPRB, 0.449972E+00_JPRB, 0.429396E+00_JPRB &
+  &, 0.409243E+00_JPRB, 0.389520E+00_JPRB, 0.370247E+00_JPRB, 0.351438E+00_JPRB &
+  &, 0.333109E+00_JPRB, 0.315270E+00_JPRB, 0.297939E+00_JPRB &
+  &, 0.281120E+00_JPRB, 0.264835E+00_JPRB, 0.249081E+00_JPRB, 0.233877E+00_JPRB &
+  &, 0.219222E+00_JPRB, 0.205131E+00_JPRB, 0.191598E+00_JPRB &
+  &, 0.178632E+00_JPRB, 0.166235E+00_JPRB, 0.154397E+00_JPRB, 0.143124E+00_JPRB &
+  &, 0.132422E+00_JPRB, 0.122262E+00_JPRB, 0.112656E+00_JPRB &
+  &, 0.103590E+00_JPRB, 0.950577E-01_JPRB, 0.870268E-01_JPRB, 0.795067E-01_JPRB &
+  &, 0.724805E-01_JPRB, 0.659275E-01_JPRB, 0.598347E-01_JPRB &
+  &, 0.541724E-01_JPRB, 0.489459E-01_JPRB, 0.441036E-01_JPRB, 0.396573E-01_JPRB &
+  &, 0.355743E-01_JPRB, 0.318464E-01_JPRB, 0.284326E-01_JPRB &
+  &, 0.253169E-01_JPRB, 0.224964E-01_JPRB, 0.199335E-01_JPRB, 0.176193E-01_JPRB &
+  &, 0.155425E-01_JPRB, 0.136722E-01_JPRB, 0.119914E-01_JPRB &
+  &, 0.104987E-01_JPRB, 0.917318E-02_JPRB, 0.799100E-02_JPRB, 0.694500E-02_JPRB &
+  &, 0.600689E-02_JPRB, 0.520600E-02_JPRB, 0.449105E-02_JPRB &
+  &, 0.384804E-02_JPRB, 0.330442E-02_JPRB, 0.282372E-02_JPRB, 0.241088E-02_JPRB &
+  &, 0.204811E-02_JPRB, 0.173923E-02_JPRB, 0.146435E-02_JPRB &
+  &, 0.125041E-02_JPRB, 0.105191E-02_JPRB, 0.870172E-03_JPRB, 0.732313E-03_JPRB &
+  &, 0.614912E-03_JPRB, 0.519393E-03_JPRB, 0.419886E-03_JPRB &
+  &, 0.344167E-03_JPRB, 0.293748E-03_JPRB, 0.241266E-03_JPRB, 0.186686E-03_JPRB &
+  &, 0.159965E-03_JPRB, 0.132178E-03_JPRB, 0.103305E-03_JPRB &
+  &, 0.733299E-04_JPRB, 0.744684E-04_JPRB, 0.428094E-04_JPRB, 0.433905E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART22',1,ZHOOK_HANDLE)
+END SUBROUTINE PART22
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART23
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART23',0,ZHOOK_HANDLE)
+
+XCW( 155, :) = (/ &
+  &  0.898419E+00_JPRB, 0.873182E+00_JPRB, 0.848041E+00_JPRB, 0.823012E+00_JPRB &
+  &, 0.798112E+00_JPRB, 0.773356E+00_JPRB, 0.748762E+00_JPRB &
+  &, 0.724346E+00_JPRB, 0.700124E+00_JPRB, 0.676114E+00_JPRB, 0.652332E+00_JPRB &
+  &, 0.628796E+00_JPRB, 0.605522E+00_JPRB, 0.582527E+00_JPRB &
+  &, 0.559829E+00_JPRB, 0.537445E+00_JPRB, 0.515391E+00_JPRB, 0.493687E+00_JPRB &
+  &, 0.472346E+00_JPRB, 0.451387E+00_JPRB, 0.430826E+00_JPRB &
+  &, 0.410678E+00_JPRB, 0.390962E+00_JPRB, 0.371691E+00_JPRB, 0.352884E+00_JPRB &
+  &, 0.334546E+00_JPRB, 0.316700E+00_JPRB, 0.299359E+00_JPRB &
+  &, 0.282527E+00_JPRB, 0.266214E+00_JPRB, 0.250448E+00_JPRB, 0.235216E+00_JPRB &
+  &, 0.220538E+00_JPRB, 0.206414E+00_JPRB, 0.192850E+00_JPRB &
+  &, 0.179851E+00_JPRB, 0.167418E+00_JPRB, 0.155541E+00_JPRB, 0.144237E+00_JPRB &
+  &, 0.133480E+00_JPRB, 0.123285E+00_JPRB, 0.113639E+00_JPRB &
+  &, 0.104531E+00_JPRB, 0.959432E-01_JPRB, 0.878761E-01_JPRB, 0.803175E-01_JPRB &
+  &, 0.732503E-01_JPRB, 0.666537E-01_JPRB, 0.605145E-01_JPRB &
+  &, 0.548162E-01_JPRB, 0.495381E-01_JPRB, 0.446687E-01_JPRB, 0.401795E-01_JPRB &
+  &, 0.360511E-01_JPRB, 0.322902E-01_JPRB, 0.288414E-01_JPRB &
+  &, 0.256889E-01_JPRB, 0.228452E-01_JPRB, 0.202580E-01_JPRB, 0.179181E-01_JPRB &
+  &, 0.157971E-01_JPRB, 0.139152E-01_JPRB, 0.122222E-01_JPRB &
+  &, 0.106984E-01_JPRB, 0.934013E-02_JPRB, 0.814266E-02_JPRB, 0.708060E-02_JPRB &
+  &, 0.614543E-02_JPRB, 0.530709E-02_JPRB, 0.457365E-02_JPRB &
+  &, 0.393239E-02_JPRB, 0.339055E-02_JPRB, 0.288967E-02_JPRB, 0.247820E-02_JPRB &
+  &, 0.209391E-02_JPRB, 0.178597E-02_JPRB, 0.151204E-02_JPRB &
+  &, 0.127473E-02_JPRB, 0.107672E-02_JPRB, 0.895471E-03_JPRB, 0.758110E-03_JPRB &
+  &, 0.641213E-03_JPRB, 0.519393E-03_JPRB, 0.447212E-03_JPRB &
+  &, 0.372015E-03_JPRB, 0.293748E-03_JPRB, 0.241266E-03_JPRB, 0.186686E-03_JPRB &
+  &, 0.159965E-03_JPRB, 0.132178E-03_JPRB, 0.103305E-03_JPRB &
+  &, 0.733299E-04_JPRB, 0.744684E-04_JPRB, 0.428094E-04_JPRB, 0.433905E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 156, :) = (/ &
+  &  0.898809E+00_JPRB, 0.873663E+00_JPRB, 0.848606E+00_JPRB, 0.823659E+00_JPRB &
+  &, 0.798835E+00_JPRB, 0.774154E+00_JPRB, 0.749629E+00_JPRB &
+  &, 0.725278E+00_JPRB, 0.701118E+00_JPRB, 0.677166E+00_JPRB, 0.653438E+00_JPRB &
+  &, 0.629952E+00_JPRB, 0.606723E+00_JPRB, 0.583771E+00_JPRB &
+  &, 0.561111E+00_JPRB, 0.538760E+00_JPRB, 0.516737E+00_JPRB, 0.495057E+00_JPRB &
+  &, 0.473738E+00_JPRB, 0.452795E+00_JPRB, 0.432250E+00_JPRB &
+  &, 0.412114E+00_JPRB, 0.392403E+00_JPRB, 0.373135E+00_JPRB, 0.354326E+00_JPRB &
+  &, 0.335986E+00_JPRB, 0.318131E+00_JPRB, 0.300775E+00_JPRB &
+  &, 0.283931E+00_JPRB, 0.267604E+00_JPRB, 0.251812E+00_JPRB, 0.236559E+00_JPRB &
+  &, 0.221850E+00_JPRB, 0.207697E+00_JPRB, 0.194106E+00_JPRB &
+  &, 0.181069E+00_JPRB, 0.168600E+00_JPRB, 0.156685E+00_JPRB, 0.145340E+00_JPRB &
+  &, 0.134549E+00_JPRB, 0.124317E+00_JPRB, 0.114623E+00_JPRB &
+  &, 0.105473E+00_JPRB, 0.968400E-01_JPRB, 0.887371E-01_JPRB, 0.811283E-01_JPRB &
+  &, 0.740079E-01_JPRB, 0.673673E-01_JPRB, 0.611944E-01_JPRB &
+  &, 0.554470E-01_JPRB, 0.501303E-01_JPRB, 0.452201E-01_JPRB, 0.407017E-01_JPRB &
+  &, 0.365425E-01_JPRB, 0.327340E-01_JPRB, 0.292503E-01_JPRB &
+  &, 0.260763E-01_JPRB, 0.231941E-01_JPRB, 0.205663E-01_JPRB, 0.182002E-01_JPRB &
+  &, 0.160687E-01_JPRB, 0.141583E-01_JPRB, 0.124352E-01_JPRB &
+  &, 0.108980E-01_JPRB, 0.952561E-02_JPRB, 0.829432E-02_JPRB, 0.721620E-02_JPRB &
+  &, 0.626418E-02_JPRB, 0.542839E-02_JPRB, 0.467690E-02_JPRB &
+  &, 0.403783E-02_JPRB, 0.345515E-02_JPRB, 0.295561E-02_JPRB, 0.252307E-02_JPRB &
+  &, 0.216261E-02_JPRB, 0.183270E-02_JPRB, 0.155972E-02_JPRB &
+  &, 0.132337E-02_JPRB, 0.110153E-02_JPRB, 0.920771E-03_JPRB, 0.783906E-03_JPRB &
+  &, 0.641213E-03_JPRB, 0.546203E-03_JPRB, 0.447212E-03_JPRB &
+  &, 0.372015E-03_JPRB, 0.293748E-03_JPRB, 0.241266E-03_JPRB, 0.216134E-03_JPRB &
+  &, 0.159965E-03_JPRB, 0.132178E-03_JPRB, 0.103305E-03_JPRB &
+  &, 0.733299E-04_JPRB, 0.744684E-04_JPRB, 0.428094E-04_JPRB, 0.433905E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 157, :) = (/ &
+  &  0.899201E+00_JPRB, 0.874141E+00_JPRB, 0.849169E+00_JPRB, 0.824303E+00_JPRB &
+  &, 0.799557E+00_JPRB, 0.774948E+00_JPRB, 0.750493E+00_JPRB &
+  &, 0.726208E+00_JPRB, 0.702109E+00_JPRB, 0.678215E+00_JPRB, 0.654541E+00_JPRB &
+  &, 0.631104E+00_JPRB, 0.607922E+00_JPRB, 0.585011E+00_JPRB &
+  &, 0.562388E+00_JPRB, 0.540072E+00_JPRB, 0.518078E+00_JPRB, 0.496425E+00_JPRB &
+  &, 0.475128E+00_JPRB, 0.454204E+00_JPRB, 0.433673E+00_JPRB &
+  &, 0.413546E+00_JPRB, 0.393841E+00_JPRB, 0.374578E+00_JPRB, 0.355765E+00_JPRB &
+  &, 0.337423E+00_JPRB, 0.319561E+00_JPRB, 0.302194E+00_JPRB &
+  &, 0.285331E+00_JPRB, 0.268990E+00_JPRB, 0.253175E+00_JPRB, 0.237897E+00_JPRB &
+  &, 0.223166E+00_JPRB, 0.208985E+00_JPRB, 0.195358E+00_JPRB &
+  &, 0.182287E+00_JPRB, 0.169783E+00_JPRB, 0.157839E+00_JPRB, 0.146452E+00_JPRB &
+  &, 0.135618E+00_JPRB, 0.125340E+00_JPRB, 0.115606E+00_JPRB &
+  &, 0.106414E+00_JPRB, 0.977481E-01_JPRB, 0.895865E-01_JPRB, 0.819391E-01_JPRB &
+  &, 0.747777E-01_JPRB, 0.681060E-01_JPRB, 0.618742E-01_JPRB &
+  &, 0.560908E-01_JPRB, 0.507359E-01_JPRB, 0.457852E-01_JPRB, 0.412240E-01_JPRB &
+  &, 0.370338E-01_JPRB, 0.331778E-01_JPRB, 0.296591E-01_JPRB &
+  &, 0.264482E-01_JPRB, 0.235430E-01_JPRB, 0.208908E-01_JPRB, 0.184990E-01_JPRB &
+  &, 0.163403E-01_JPRB, 0.144013E-01_JPRB, 0.126482E-01_JPRB &
+  &, 0.110976E-01_JPRB, 0.971110E-02_JPRB, 0.846493E-02_JPRB, 0.737117E-02_JPRB &
+  &, 0.640272E-02_JPRB, 0.552948E-02_JPRB, 0.478015E-02_JPRB &
+  &, 0.412218E-02_JPRB, 0.354128E-02_JPRB, 0.304354E-02_JPRB, 0.259039E-02_JPRB &
+  &, 0.220841E-02_JPRB, 0.187944E-02_JPRB, 0.158356E-02_JPRB &
+  &, 0.134769E-02_JPRB, 0.112633E-02_JPRB, 0.946070E-03_JPRB, 0.809703E-03_JPRB &
+  &, 0.667514E-03_JPRB, 0.546203E-03_JPRB, 0.474538E-03_JPRB &
+  &, 0.372015E-03_JPRB, 0.322123E-03_JPRB, 0.270174E-03_JPRB, 0.216134E-03_JPRB &
+  &, 0.159965E-03_JPRB, 0.132178E-03_JPRB, 0.103305E-03_JPRB &
+  &, 0.733299E-04_JPRB, 0.744684E-04_JPRB, 0.428094E-04_JPRB, 0.433905E-04_JPRB &
+  &, 0.439776E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 158, :) = (/ &
+  &  0.899590E+00_JPRB, 0.874617E+00_JPRB, 0.849731E+00_JPRB, 0.824945E+00_JPRB &
+  &, 0.800275E+00_JPRB, 0.775740E+00_JPRB, 0.751354E+00_JPRB &
+  &, 0.727134E+00_JPRB, 0.703097E+00_JPRB, 0.679260E+00_JPRB, 0.655640E+00_JPRB &
+  &, 0.632253E+00_JPRB, 0.609117E+00_JPRB, 0.586248E+00_JPRB &
+  &, 0.563664E+00_JPRB, 0.541381E+00_JPRB, 0.519417E+00_JPRB, 0.497789E+00_JPRB &
+  &, 0.476514E+00_JPRB, 0.455609E+00_JPRB, 0.435090E+00_JPRB &
+  &, 0.414975E+00_JPRB, 0.395279E+00_JPRB, 0.376019E+00_JPRB, 0.357204E+00_JPRB &
+  &, 0.338856E+00_JPRB, 0.320988E+00_JPRB, 0.303610E+00_JPRB &
+  &, 0.286735E+00_JPRB, 0.270377E+00_JPRB, 0.254538E+00_JPRB, 0.239240E+00_JPRB &
+  &, 0.224483E+00_JPRB, 0.210272E+00_JPRB, 0.196614E+00_JPRB &
+  &, 0.183515E+00_JPRB, 0.170965E+00_JPRB, 0.158983E+00_JPRB, 0.147565E+00_JPRB &
+  &, 0.136698E+00_JPRB, 0.126372E+00_JPRB, 0.116600E+00_JPRB &
+  &, 0.107355E+00_JPRB, 0.986449E-01_JPRB, 0.904474E-01_JPRB, 0.827619E-01_JPRB &
+  &, 0.755597E-01_JPRB, 0.688321E-01_JPRB, 0.625668E-01_JPRB &
+  &, 0.567347E-01_JPRB, 0.513416E-01_JPRB, 0.463503E-01_JPRB, 0.417462E-01_JPRB &
+  &, 0.375107E-01_JPRB, 0.336365E-01_JPRB, 0.300831E-01_JPRB &
+  &, 0.268357E-01_JPRB, 0.238919E-01_JPRB, 0.212153E-01_JPRB, 0.187977E-01_JPRB &
+  &, 0.166119E-01_JPRB, 0.146443E-01_JPRB, 0.128789E-01_JPRB &
+  &, 0.112972E-01_JPRB, 0.987804E-02_JPRB, 0.863555E-02_JPRB, 0.750677E-02_JPRB &
+  &, 0.652147E-02_JPRB, 0.565079E-02_JPRB, 0.488341E-02_JPRB &
+  &, 0.420653E-02_JPRB, 0.362740E-02_JPRB, 0.310949E-02_JPRB, 0.265770E-02_JPRB &
+  &, 0.225421E-02_JPRB, 0.192618E-02_JPRB, 0.163125E-02_JPRB &
+  &, 0.137201E-02_JPRB, 0.117595E-02_JPRB, 0.971369E-03_JPRB, 0.835500E-03_JPRB &
+  &, 0.693814E-03_JPRB, 0.573013E-03_JPRB, 0.474538E-03_JPRB &
+  &, 0.399862E-03_JPRB, 0.322123E-03_JPRB, 0.270174E-03_JPRB, 0.216134E-03_JPRB &
+  &, 0.189958E-03_JPRB, 0.132178E-03_JPRB, 0.103305E-03_JPRB &
+  &, 0.104995E-03_JPRB, 0.744684E-04_JPRB, 0.428094E-04_JPRB, 0.433905E-04_JPRB &
+  &, 0.439776E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 159, :) = (/ &
+  &  0.899977E+00_JPRB, 0.875093E+00_JPRB, 0.850289E+00_JPRB, 0.825584E+00_JPRB &
+  &, 0.800992E+00_JPRB, 0.776529E+00_JPRB, 0.752212E+00_JPRB &
+  &, 0.728058E+00_JPRB, 0.704082E+00_JPRB, 0.680303E+00_JPRB, 0.656736E+00_JPRB &
+  &, 0.633399E+00_JPRB, 0.610308E+00_JPRB, 0.587481E+00_JPRB &
+  &, 0.564934E+00_JPRB, 0.542686E+00_JPRB, 0.520753E+00_JPRB, 0.499152E+00_JPRB &
+  &, 0.477898E+00_JPRB, 0.457011E+00_JPRB, 0.436507E+00_JPRB &
+  &, 0.416404E+00_JPRB, 0.396714E+00_JPRB, 0.377456E+00_JPRB, 0.358642E+00_JPRB &
+  &, 0.340289E+00_JPRB, 0.322415E+00_JPRB, 0.305026E+00_JPRB &
+  &, 0.288134E+00_JPRB, 0.271759E+00_JPRB, 0.255906E+00_JPRB, 0.240579E+00_JPRB &
+  &, 0.225795E+00_JPRB, 0.211560E+00_JPRB, 0.197871E+00_JPRB &
+  &, 0.184734E+00_JPRB, 0.172158E+00_JPRB, 0.160137E+00_JPRB, 0.148678E+00_JPRB &
+  &, 0.137767E+00_JPRB, 0.127405E+00_JPRB, 0.117593E+00_JPRB &
+  &, 0.108308E+00_JPRB, 0.995530E-01_JPRB, 0.913084E-01_JPRB, 0.835727E-01_JPRB &
+  &, 0.763295E-01_JPRB, 0.695583E-01_JPRB, 0.632595E-01_JPRB &
+  &, 0.573917E-01_JPRB, 0.519472E-01_JPRB, 0.469155E-01_JPRB, 0.422825E-01_JPRB &
+  &, 0.380165E-01_JPRB, 0.340951E-01_JPRB, 0.305071E-01_JPRB &
+  &, 0.272386E-01_JPRB, 0.242566E-01_JPRB, 0.215397E-01_JPRB, 0.190964E-01_JPRB &
+  &, 0.168835E-01_JPRB, 0.148874E-01_JPRB, 0.131097E-01_JPRB &
+  &, 0.114968E-01_JPRB, 0.100635E-01_JPRB, 0.878721E-02_JPRB, 0.766174E-02_JPRB &
+  &, 0.666002E-02_JPRB, 0.577210E-02_JPRB, 0.498666E-02_JPRB &
+  &, 0.431198E-02_JPRB, 0.369200E-02_JPRB, 0.317543E-02_JPRB, 0.272502E-02_JPRB &
+  &, 0.232291E-02_JPRB, 0.197291E-02_JPRB, 0.167893E-02_JPRB &
+  &, 0.142066E-02_JPRB, 0.120076E-02_JPRB, 0.102197E-02_JPRB, 0.835500E-03_JPRB &
+  &, 0.720115E-03_JPRB, 0.599824E-03_JPRB, 0.501863E-03_JPRB &
+  &, 0.399862E-03_JPRB, 0.350497E-03_JPRB, 0.270174E-03_JPRB, 0.216134E-03_JPRB &
+  &, 0.189958E-03_JPRB, 0.162722E-03_JPRB, 0.103305E-03_JPRB &
+  &, 0.104995E-03_JPRB, 0.744684E-04_JPRB, 0.428094E-04_JPRB, 0.433905E-04_JPRB &
+  &, 0.439776E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 160, :) = (/ &
+  &  0.900363E+00_JPRB, 0.875566E+00_JPRB, 0.850846E+00_JPRB, 0.826222E+00_JPRB &
+  &, 0.801705E+00_JPRB, 0.777315E+00_JPRB, 0.753067E+00_JPRB &
+  &, 0.728978E+00_JPRB, 0.705064E+00_JPRB, 0.681342E+00_JPRB, 0.657829E+00_JPRB &
+  &, 0.634541E+00_JPRB, 0.611495E+00_JPRB, 0.588711E+00_JPRB &
+  &, 0.566202E+00_JPRB, 0.543988E+00_JPRB, 0.522085E+00_JPRB, 0.500510E+00_JPRB &
+  &, 0.479280E+00_JPRB, 0.458410E+00_JPRB, 0.437921E+00_JPRB &
+  &, 0.417830E+00_JPRB, 0.398145E+00_JPRB, 0.378892E+00_JPRB, 0.360077E+00_JPRB &
+  &, 0.341723E+00_JPRB, 0.323838E+00_JPRB, 0.306438E+00_JPRB &
+  &, 0.289538E+00_JPRB, 0.273142E+00_JPRB, 0.257269E+00_JPRB, 0.241922E+00_JPRB &
+  &, 0.227111E+00_JPRB, 0.212847E+00_JPRB, 0.199127E+00_JPRB &
+  &, 0.185962E+00_JPRB, 0.173350E+00_JPRB, 0.161291E+00_JPRB, 0.149791E+00_JPRB &
+  &, 0.138846E+00_JPRB, 0.128438E+00_JPRB, 0.118587E+00_JPRB &
+  &, 0.109260E+00_JPRB, 0.100461E+00_JPRB, 0.921810E-01_JPRB, 0.843954E-01_JPRB &
+  &, 0.771115E-01_JPRB, 0.702970E-01_JPRB, 0.639521E-01_JPRB &
+  &, 0.580486E-01_JPRB, 0.525663E-01_JPRB, 0.474944E-01_JPRB, 0.428189E-01_JPRB &
+  &, 0.385078E-01_JPRB, 0.345537E-01_JPRB, 0.309311E-01_JPRB &
+  &, 0.276260E-01_JPRB, 0.246055E-01_JPRB, 0.218805E-01_JPRB, 0.193952E-01_JPRB &
+  &, 0.171551E-01_JPRB, 0.151478E-01_JPRB, 0.133227E-01_JPRB &
+  &, 0.116964E-01_JPRB, 0.102490E-01_JPRB, 0.895782E-02_JPRB, 0.781671E-02_JPRB &
+  &, 0.679856E-02_JPRB, 0.589341E-02_JPRB, 0.508991E-02_JPRB &
+  &, 0.439633E-02_JPRB, 0.377813E-02_JPRB, 0.324138E-02_JPRB, 0.279233E-02_JPRB &
+  &, 0.236871E-02_JPRB, 0.201965E-02_JPRB, 0.172661E-02_JPRB &
+  &, 0.146930E-02_JPRB, 0.122556E-02_JPRB, 0.104727E-02_JPRB, 0.861297E-03_JPRB &
+  &, 0.720115E-03_JPRB, 0.599824E-03_JPRB, 0.501863E-03_JPRB &
+  &, 0.427709E-03_JPRB, 0.350497E-03_JPRB, 0.299082E-03_JPRB, 0.245581E-03_JPRB &
+  &, 0.189958E-03_JPRB, 0.162722E-03_JPRB, 0.134407E-03_JPRB &
+  &, 0.104995E-03_JPRB, 0.744684E-04_JPRB, 0.756187E-04_JPRB, 0.433905E-04_JPRB &
+  &, 0.439776E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 161, :) = (/ &
+  &  0.900746E+00_JPRB, 0.876037E+00_JPRB, 0.851402E+00_JPRB, 0.826856E+00_JPRB &
+  &, 0.802416E+00_JPRB, 0.778099E+00_JPRB, 0.753920E+00_JPRB &
+  &, 0.729895E+00_JPRB, 0.706042E+00_JPRB, 0.682378E+00_JPRB, 0.658919E+00_JPRB &
+  &, 0.635680E+00_JPRB, 0.612680E+00_JPRB, 0.589938E+00_JPRB &
+  &, 0.567467E+00_JPRB, 0.545287E+00_JPRB, 0.523414E+00_JPRB, 0.501865E+00_JPRB &
+  &, 0.480657E+00_JPRB, 0.459806E+00_JPRB, 0.439335E+00_JPRB &
+  &, 0.419252E+00_JPRB, 0.399576E+00_JPRB, 0.380326E+00_JPRB, 0.361513E+00_JPRB &
+  &, 0.343152E+00_JPRB, 0.325261E+00_JPRB, 0.307854E+00_JPRB &
+  &, 0.290938E+00_JPRB, 0.274528E+00_JPRB, 0.258633E+00_JPRB, 0.243264E+00_JPRB &
+  &, 0.228427E+00_JPRB, 0.214134E+00_JPRB, 0.200384E+00_JPRB &
+  &, 0.187189E+00_JPRB, 0.174542E+00_JPRB, 0.162444E+00_JPRB, 0.150914E+00_JPRB &
+  &, 0.139925E+00_JPRB, 0.129481E+00_JPRB, 0.119581E+00_JPRB &
+  &, 0.110213E+00_JPRB, 0.101369E+00_JPRB, 0.930420E-01_JPRB, 0.852301E-01_JPRB &
+  &, 0.778935E-01_JPRB, 0.710357E-01_JPRB, 0.646448E-01_JPRB &
+  &, 0.586925E-01_JPRB, 0.531854E-01_JPRB, 0.480733E-01_JPRB, 0.433552E-01_JPRB &
+  &, 0.390136E-01_JPRB, 0.350123E-01_JPRB, 0.313551E-01_JPRB &
+  &, 0.280134E-01_JPRB, 0.249702E-01_JPRB, 0.222049E-01_JPRB, 0.197105E-01_JPRB &
+  &, 0.174437E-01_JPRB, 0.153908E-01_JPRB, 0.135534E-01_JPRB &
+  &, 0.119142E-01_JPRB, 0.104345E-01_JPRB, 0.912844E-02_JPRB, 0.797169E-02_JPRB &
+  &, 0.691731E-02_JPRB, 0.601471E-02_JPRB, 0.521381E-02_JPRB &
+  &, 0.450177E-02_JPRB, 0.386426E-02_JPRB, 0.332931E-02_JPRB, 0.285965E-02_JPRB &
+  &, 0.243741E-02_JPRB, 0.206638E-02_JPRB, 0.177430E-02_JPRB &
+  &, 0.149362E-02_JPRB, 0.127518E-02_JPRB, 0.107257E-02_JPRB, 0.887094E-03_JPRB &
+  &, 0.746415E-03_JPRB, 0.626634E-03_JPRB, 0.529189E-03_JPRB &
+  &, 0.427709E-03_JPRB, 0.350497E-03_JPRB, 0.299082E-03_JPRB, 0.245581E-03_JPRB &
+  &, 0.189958E-03_JPRB, 0.162722E-03_JPRB, 0.134407E-03_JPRB &
+  &, 0.104995E-03_JPRB, 0.744684E-04_JPRB, 0.756187E-04_JPRB, 0.433905E-04_JPRB &
+  &, 0.439776E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART23',1,ZHOOK_HANDLE)
+END SUBROUTINE PART23
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART24
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART24',0,ZHOOK_HANDLE)
+
+XCW( 162, :) = (/ &
+  &  0.901130E+00_JPRB, 0.876507E+00_JPRB, 0.851955E+00_JPRB, 0.827489E+00_JPRB &
+  &, 0.803125E+00_JPRB, 0.778880E+00_JPRB, 0.754770E+00_JPRB &
+  &, 0.730810E+00_JPRB, 0.707018E+00_JPRB, 0.683411E+00_JPRB, 0.660004E+00_JPRB &
+  &, 0.636816E+00_JPRB, 0.613863E+00_JPRB, 0.591161E+00_JPRB &
+  &, 0.568728E+00_JPRB, 0.546582E+00_JPRB, 0.524740E+00_JPRB, 0.503218E+00_JPRB &
+  &, 0.482033E+00_JPRB, 0.461202E+00_JPRB, 0.440742E+00_JPRB &
+  &, 0.420671E+00_JPRB, 0.401004E+00_JPRB, 0.381755E+00_JPRB, 0.362944E+00_JPRB &
+  &, 0.344582E+00_JPRB, 0.326684E+00_JPRB, 0.309266E+00_JPRB &
+  &, 0.292334E+00_JPRB, 0.275910E+00_JPRB, 0.259996E+00_JPRB, 0.244603E+00_JPRB &
+  &, 0.229743E+00_JPRB, 0.215422E+00_JPRB, 0.201645E+00_JPRB &
+  &, 0.188408E+00_JPRB, 0.175734E+00_JPRB, 0.163608E+00_JPRB, 0.152027E+00_JPRB &
+  &, 0.141004E+00_JPRB, 0.130524E+00_JPRB, 0.120575E+00_JPRB &
+  &, 0.111176E+00_JPRB, 0.102289E+00_JPRB, 0.939146E-01_JPRB, 0.860529E-01_JPRB &
+  &, 0.786755E-01_JPRB, 0.717869E-01_JPRB, 0.653503E-01_JPRB &
+  &, 0.593626E-01_JPRB, 0.538045E-01_JPRB, 0.486522E-01_JPRB, 0.438916E-01_JPRB &
+  &, 0.395050E-01_JPRB, 0.354857E-01_JPRB, 0.317942E-01_JPRB &
+  &, 0.284164E-01_JPRB, 0.253508E-01_JPRB, 0.225457E-01_JPRB, 0.200093E-01_JPRB &
+  &, 0.177153E-01_JPRB, 0.156512E-01_JPRB, 0.138019E-01_JPRB &
+  &, 0.121319E-01_JPRB, 0.106386E-01_JPRB, 0.929905E-02_JPRB, 0.810729E-02_JPRB &
+  &, 0.705585E-02_JPRB, 0.613602E-02_JPRB, 0.531706E-02_JPRB &
+  &, 0.458612E-02_JPRB, 0.395039E-02_JPRB, 0.339526E-02_JPRB, 0.292696E-02_JPRB &
+  &, 0.248321E-02_JPRB, 0.213649E-02_JPRB, 0.182198E-02_JPRB &
+  &, 0.154226E-02_JPRB, 0.129999E-02_JPRB, 0.109786E-02_JPRB, 0.912891E-03_JPRB &
+  &, 0.772716E-03_JPRB, 0.653444E-03_JPRB, 0.529189E-03_JPRB &
+  &, 0.455557E-03_JPRB, 0.378872E-03_JPRB, 0.299082E-03_JPRB, 0.245581E-03_JPRB &
+  &, 0.189958E-03_JPRB, 0.162722E-03_JPRB, 0.134407E-03_JPRB &
+  &, 0.104995E-03_JPRB, 0.744684E-04_JPRB, 0.756187E-04_JPRB, 0.433905E-04_JPRB &
+  &, 0.439776E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 163, :) = (/ &
+  &  0.901510E+00_JPRB, 0.876975E+00_JPRB, 0.852505E+00_JPRB, 0.828120E+00_JPRB &
+  &, 0.803831E+00_JPRB, 0.779658E+00_JPRB, 0.755616E+00_JPRB &
+  &, 0.731722E+00_JPRB, 0.707991E+00_JPRB, 0.684440E+00_JPRB, 0.661088E+00_JPRB &
+  &, 0.637948E+00_JPRB, 0.615041E+00_JPRB, 0.592381E+00_JPRB &
+  &, 0.569987E+00_JPRB, 0.547876E+00_JPRB, 0.526063E+00_JPRB, 0.504567E+00_JPRB &
+  &, 0.483405E+00_JPRB, 0.462592E+00_JPRB, 0.442149E+00_JPRB &
+  &, 0.422090E+00_JPRB, 0.402428E+00_JPRB, 0.383185E+00_JPRB, 0.364376E+00_JPRB &
+  &, 0.346011E+00_JPRB, 0.328107E+00_JPRB, 0.310674E+00_JPRB &
+  &, 0.293734E+00_JPRB, 0.277293E+00_JPRB, 0.261360E+00_JPRB, 0.245946E+00_JPRB &
+  &, 0.231059E+00_JPRB, 0.216709E+00_JPRB, 0.202901E+00_JPRB &
+  &, 0.189636E+00_JPRB, 0.176926E+00_JPRB, 0.164762E+00_JPRB, 0.153149E+00_JPRB &
+  &, 0.142084E+00_JPRB, 0.131557E+00_JPRB, 0.121580E+00_JPRB &
+  &, 0.112129E+00_JPRB, 0.103208E+00_JPRB, 0.947988E-01_JPRB, 0.868875E-01_JPRB &
+  &, 0.794698E-01_JPRB, 0.725255E-01_JPRB, 0.660558E-01_JPRB &
+  &, 0.600196E-01_JPRB, 0.544236E-01_JPRB, 0.492311E-01_JPRB, 0.444420E-01_JPRB &
+  &, 0.400108E-01_JPRB, 0.359591E-01_JPRB, 0.322333E-01_JPRB &
+  &, 0.288193E-01_JPRB, 0.257155E-01_JPRB, 0.228864E-01_JPRB, 0.203246E-01_JPRB &
+  &, 0.180039E-01_JPRB, 0.159116E-01_JPRB, 0.140327E-01_JPRB &
+  &, 0.123316E-01_JPRB, 0.108240E-01_JPRB, 0.946967E-02_JPRB, 0.826226E-02_JPRB &
+  &, 0.721418E-02_JPRB, 0.625733E-02_JPRB, 0.542031E-02_JPRB &
+  &, 0.469156E-02_JPRB, 0.403652E-02_JPRB, 0.348319E-02_JPRB, 0.299428E-02_JPRB &
+  &, 0.255191E-02_JPRB, 0.218322E-02_JPRB, 0.184582E-02_JPRB &
+  &, 0.156659E-02_JPRB, 0.132479E-02_JPRB, 0.112316E-02_JPRB, 0.938688E-03_JPRB &
+  &, 0.799016E-03_JPRB, 0.653444E-03_JPRB, 0.556515E-03_JPRB &
+  &, 0.455557E-03_JPRB, 0.378872E-03_JPRB, 0.327991E-03_JPRB, 0.245581E-03_JPRB &
+  &, 0.219951E-03_JPRB, 0.162722E-03_JPRB, 0.134407E-03_JPRB &
+  &, 0.104995E-03_JPRB, 0.744684E-04_JPRB, 0.756187E-04_JPRB, 0.433905E-04_JPRB &
+  &, 0.439776E-04_JPRB, 0.445707E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 164, :) = (/ &
+  &  0.901889E+00_JPRB, 0.877441E+00_JPRB, 0.853055E+00_JPRB, 0.828747E+00_JPRB &
+  &, 0.804535E+00_JPRB, 0.780434E+00_JPRB, 0.756460E+00_JPRB &
+  &, 0.732630E+00_JPRB, 0.708960E+00_JPRB, 0.685467E+00_JPRB, 0.662168E+00_JPRB &
+  &, 0.639078E+00_JPRB, 0.616216E+00_JPRB, 0.593599E+00_JPRB &
+  &, 0.571243E+00_JPRB, 0.549166E+00_JPRB, 0.527384E+00_JPRB, 0.505914E+00_JPRB &
+  &, 0.484775E+00_JPRB, 0.463981E+00_JPRB, 0.443553E+00_JPRB &
+  &, 0.423506E+00_JPRB, 0.403853E+00_JPRB, 0.384615E+00_JPRB, 0.365804E+00_JPRB &
+  &, 0.347437E+00_JPRB, 0.329526E+00_JPRB, 0.312086E+00_JPRB &
+  &, 0.295130E+00_JPRB, 0.278671E+00_JPRB, 0.262719E+00_JPRB, 0.247285E+00_JPRB &
+  &, 0.232376E+00_JPRB, 0.218001E+00_JPRB, 0.204162E+00_JPRB &
+  &, 0.190873E+00_JPRB, 0.178118E+00_JPRB, 0.165925E+00_JPRB, 0.154272E+00_JPRB &
+  &, 0.143163E+00_JPRB, 0.132611E+00_JPRB, 0.122585E+00_JPRB &
+  &, 0.113092E+00_JPRB, 0.104128E+00_JPRB, 0.956715E-01_JPRB, 0.877222E-01_JPRB &
+  &, 0.802640E-01_JPRB, 0.732767E-01_JPRB, 0.667612E-01_JPRB &
+  &, 0.606898E-01_JPRB, 0.550427E-01_JPRB, 0.498238E-01_JPRB, 0.449784E-01_JPRB &
+  &, 0.405310E-01_JPRB, 0.364325E-01_JPRB, 0.326725E-01_JPRB &
+  &, 0.292222E-01_JPRB, 0.260961E-01_JPRB, 0.232271E-01_JPRB, 0.206400E-01_JPRB &
+  &, 0.182925E-01_JPRB, 0.161720E-01_JPRB, 0.142635E-01_JPRB &
+  &, 0.125493E-01_JPRB, 0.110281E-01_JPRB, 0.965924E-02_JPRB, 0.843660E-02_JPRB &
+  &, 0.735273E-02_JPRB, 0.637863E-02_JPRB, 0.554421E-02_JPRB &
+  &, 0.479700E-02_JPRB, 0.412264E-02_JPRB, 0.354913E-02_JPRB, 0.306159E-02_JPRB &
+  &, 0.262061E-02_JPRB, 0.222996E-02_JPRB, 0.189351E-02_JPRB &
+  &, 0.161523E-02_JPRB, 0.137441E-02_JPRB, 0.114846E-02_JPRB, 0.964485E-03_JPRB &
+  &, 0.825317E-03_JPRB, 0.680254E-03_JPRB, 0.583841E-03_JPRB &
+  &, 0.483404E-03_JPRB, 0.407247E-03_JPRB, 0.327991E-03_JPRB, 0.275029E-03_JPRB &
+  &, 0.219951E-03_JPRB, 0.193266E-03_JPRB, 0.134407E-03_JPRB &
+  &, 0.104995E-03_JPRB, 0.106703E-03_JPRB, 0.756187E-04_JPRB, 0.433905E-04_JPRB &
+  &, 0.439776E-04_JPRB, 0.445707E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 165, :) = (/ &
+  &  0.902269E+00_JPRB, 0.877906E+00_JPRB, 0.853601E+00_JPRB, 0.829373E+00_JPRB &
+  &, 0.805237E+00_JPRB, 0.781207E+00_JPRB, 0.757301E+00_JPRB &
+  &, 0.733536E+00_JPRB, 0.709927E+00_JPRB, 0.686490E+00_JPRB, 0.663242E+00_JPRB &
+  &, 0.640204E+00_JPRB, 0.617389E+00_JPRB, 0.594813E+00_JPRB &
+  &, 0.572496E+00_JPRB, 0.550451E+00_JPRB, 0.528701E+00_JPRB, 0.507258E+00_JPRB &
+  &, 0.486141E+00_JPRB, 0.465368E+00_JPRB, 0.444954E+00_JPRB &
+  &, 0.424918E+00_JPRB, 0.405274E+00_JPRB, 0.386041E+00_JPRB, 0.367229E+00_JPRB &
+  &, 0.348859E+00_JPRB, 0.330946E+00_JPRB, 0.313494E+00_JPRB &
+  &, 0.296529E+00_JPRB, 0.280053E+00_JPRB, 0.264083E+00_JPRB, 0.248627E+00_JPRB &
+  &, 0.233696E+00_JPRB, 0.219293E+00_JPRB, 0.205428E+00_JPRB &
+  &, 0.192100E+00_JPRB, 0.179320E+00_JPRB, 0.167089E+00_JPRB, 0.155395E+00_JPRB &
+  &, 0.144253E+00_JPRB, 0.133654E+00_JPRB, 0.123589E+00_JPRB &
+  &, 0.114056E+00_JPRB, 0.105047E+00_JPRB, 0.965557E-01_JPRB, 0.885569E-01_JPRB &
+  &, 0.810582E-01_JPRB, 0.740279E-01_JPRB, 0.674667E-01_JPRB &
+  &, 0.613599E-01_JPRB, 0.556753E-01_JPRB, 0.504027E-01_JPRB, 0.455288E-01_JPRB &
+  &, 0.410368E-01_JPRB, 0.369059E-01_JPRB, 0.331116E-01_JPRB &
+  &, 0.296406E-01_JPRB, 0.264608E-01_JPRB, 0.235840E-01_JPRB, 0.209553E-01_JPRB &
+  &, 0.185811E-01_JPRB, 0.164324E-01_JPRB, 0.145120E-01_JPRB &
+  &, 0.127671E-01_JPRB, 0.112136E-01_JPRB, 0.982985E-02_JPRB, 0.859157E-02_JPRB &
+  &, 0.749127E-02_JPRB, 0.652016E-02_JPRB, 0.564746E-02_JPRB &
+  &, 0.488135E-02_JPRB, 0.423030E-02_JPRB, 0.363706E-02_JPRB, 0.312890E-02_JPRB &
+  &, 0.266641E-02_JPRB, 0.227670E-02_JPRB, 0.194119E-02_JPRB &
+  &, 0.166387E-02_JPRB, 0.139922E-02_JPRB, 0.119906E-02_JPRB, 0.990281E-03_JPRB &
+  &, 0.851617E-03_JPRB, 0.707064E-03_JPRB, 0.583841E-03_JPRB &
+  &, 0.483404E-03_JPRB, 0.407247E-03_JPRB, 0.327991E-03_JPRB, 0.275029E-03_JPRB &
+  &, 0.219951E-03_JPRB, 0.193266E-03_JPRB, 0.134407E-03_JPRB &
+  &, 0.104995E-03_JPRB, 0.106703E-03_JPRB, 0.756187E-04_JPRB, 0.433905E-04_JPRB &
+  &, 0.439776E-04_JPRB, 0.445707E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 166, :) = (/ &
+  &  0.902646E+00_JPRB, 0.878368E+00_JPRB, 0.854146E+00_JPRB, 0.829998E+00_JPRB &
+  &, 0.805936E+00_JPRB, 0.781978E+00_JPRB, 0.758140E+00_JPRB &
+  &, 0.734439E+00_JPRB, 0.710890E+00_JPRB, 0.687511E+00_JPRB, 0.664318E+00_JPRB &
+  &, 0.641327E+00_JPRB, 0.618557E+00_JPRB, 0.596024E+00_JPRB &
+  &, 0.573744E+00_JPRB, 0.551736E+00_JPRB, 0.530015E+00_JPRB, 0.508600E+00_JPRB &
+  &, 0.487506E+00_JPRB, 0.466751E+00_JPRB, 0.446355E+00_JPRB &
+  &, 0.426331E+00_JPRB, 0.406695E+00_JPRB, 0.387464E+00_JPRB, 0.368657E+00_JPRB &
+  &, 0.350285E+00_JPRB, 0.332361E+00_JPRB, 0.314902E+00_JPRB &
+  &, 0.297925E+00_JPRB, 0.281436E+00_JPRB, 0.265446E+00_JPRB, 0.249970E+00_JPRB &
+  &, 0.235012E+00_JPRB, 0.220585E+00_JPRB, 0.206689E+00_JPRB &
+  &, 0.193328E+00_JPRB, 0.180521E+00_JPRB, 0.168253E+00_JPRB, 0.156528E+00_JPRB &
+  &, 0.145342E+00_JPRB, 0.134708E+00_JPRB, 0.124594E+00_JPRB &
+  &, 0.115030E+00_JPRB, 0.105978E+00_JPRB, 0.974400E-01_JPRB, 0.894035E-01_JPRB &
+  &, 0.818525E-01_JPRB, 0.747916E-01_JPRB, 0.681850E-01_JPRB &
+  &, 0.620300E-01_JPRB, 0.563078E-01_JPRB, 0.509954E-01_JPRB, 0.460934E-01_JPRB &
+  &, 0.415570E-01_JPRB, 0.373793E-01_JPRB, 0.335507E-01_JPRB &
+  &, 0.300436E-01_JPRB, 0.268414E-01_JPRB, 0.239247E-01_JPRB, 0.212706E-01_JPRB &
+  &, 0.188697E-01_JPRB, 0.167102E-01_JPRB, 0.147427E-01_JPRB &
+  &, 0.129848E-01_JPRB, 0.114176E-01_JPRB, 0.100005E-01_JPRB, 0.874655E-02_JPRB &
+  &, 0.762981E-02_JPRB, 0.664147E-02_JPRB, 0.577136E-02_JPRB &
+  &, 0.498680E-02_JPRB, 0.431643E-02_JPRB, 0.372499E-02_JPRB, 0.319622E-02_JPRB &
+  &, 0.273511E-02_JPRB, 0.234680E-02_JPRB, 0.198887E-02_JPRB &
+  &, 0.168820E-02_JPRB, 0.144883E-02_JPRB, 0.122436E-02_JPRB, 0.104188E-02_JPRB &
+  &, 0.877918E-03_JPRB, 0.733874E-03_JPRB, 0.611166E-03_JPRB &
+  &, 0.511251E-03_JPRB, 0.407247E-03_JPRB, 0.356899E-03_JPRB, 0.275029E-03_JPRB &
+  &, 0.219951E-03_JPRB, 0.193266E-03_JPRB, 0.165508E-03_JPRB &
+  &, 0.136660E-03_JPRB, 0.106703E-03_JPRB, 0.756187E-04_JPRB, 0.767810E-04_JPRB &
+  &, 0.439776E-04_JPRB, 0.445707E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 167, :) = (/ &
+  &  0.903021E+00_JPRB, 0.878829E+00_JPRB, 0.854690E+00_JPRB, 0.830619E+00_JPRB &
+  &, 0.806632E+00_JPRB, 0.782746E+00_JPRB, 0.758976E+00_JPRB &
+  &, 0.735339E+00_JPRB, 0.711851E+00_JPRB, 0.688529E+00_JPRB, 0.665389E+00_JPRB &
+  &, 0.642448E+00_JPRB, 0.619723E+00_JPRB, 0.597231E+00_JPRB &
+  &, 0.574990E+00_JPRB, 0.553016E+00_JPRB, 0.531326E+00_JPRB, 0.509938E+00_JPRB &
+  &, 0.488868E+00_JPRB, 0.468134E+00_JPRB, 0.447752E+00_JPRB &
+  &, 0.427740E+00_JPRB, 0.408113E+00_JPRB, 0.388887E+00_JPRB, 0.370081E+00_JPRB &
+  &, 0.351704E+00_JPRB, 0.333777E+00_JPRB, 0.316310E+00_JPRB &
+  &, 0.299321E+00_JPRB, 0.282814E+00_JPRB, 0.266809E+00_JPRB, 0.251313E+00_JPRB &
+  &, 0.236328E+00_JPRB, 0.221877E+00_JPRB, 0.207950E+00_JPRB &
+  &, 0.194565E+00_JPRB, 0.181713E+00_JPRB, 0.169416E+00_JPRB, 0.157651E+00_JPRB &
+  &, 0.146432E+00_JPRB, 0.135751E+00_JPRB, 0.125610E+00_JPRB &
+  &, 0.115994E+00_JPRB, 0.106898E+00_JPRB, 0.983242E-01_JPRB, 0.902501E-01_JPRB &
+  &, 0.826589E-01_JPRB, 0.755554E-01_JPRB, 0.689033E-01_JPRB &
+  &, 0.627133E-01_JPRB, 0.569404E-01_JPRB, 0.516019E-01_JPRB, 0.466439E-01_JPRB &
+  &, 0.420773E-01_JPRB, 0.378675E-01_JPRB, 0.340050E-01_JPRB &
+  &, 0.304620E-01_JPRB, 0.272220E-01_JPRB, 0.242817E-01_JPRB, 0.216026E-01_JPRB &
+  &, 0.191752E-01_JPRB, 0.169706E-01_JPRB, 0.149912E-01_JPRB &
+  &, 0.132207E-01_JPRB, 0.116216E-01_JPRB, 0.101900E-01_JPRB, 0.892089E-02_JPRB &
+  &, 0.778814E-02_JPRB, 0.678299E-02_JPRB, 0.589526E-02_JPRB &
+  &, 0.509224E-02_JPRB, 0.440256E-02_JPRB, 0.379094E-02_JPRB, 0.326353E-02_JPRB &
+  &, 0.280381E-02_JPRB, 0.239354E-02_JPRB, 0.203656E-02_JPRB &
+  &, 0.173684E-02_JPRB, 0.147364E-02_JPRB, 0.124966E-02_JPRB, 0.106767E-02_JPRB &
+  &, 0.877918E-03_JPRB, 0.760685E-03_JPRB, 0.638492E-03_JPRB &
+  &, 0.511251E-03_JPRB, 0.435622E-03_JPRB, 0.356899E-03_JPRB, 0.304477E-03_JPRB &
+  &, 0.249944E-03_JPRB, 0.193266E-03_JPRB, 0.165508E-03_JPRB &
+  &, 0.136660E-03_JPRB, 0.106703E-03_JPRB, 0.756187E-04_JPRB, 0.767810E-04_JPRB &
+  &, 0.439776E-04_JPRB, 0.445707E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 168, :) = (/ &
+  &  0.903396E+00_JPRB, 0.879290E+00_JPRB, 0.855231E+00_JPRB, 0.831239E+00_JPRB &
+  &, 0.807327E+00_JPRB, 0.783512E+00_JPRB, 0.759809E+00_JPRB &
+  &, 0.736237E+00_JPRB, 0.712809E+00_JPRB, 0.689544E+00_JPRB, 0.666457E+00_JPRB &
+  &, 0.643565E+00_JPRB, 0.620886E+00_JPRB, 0.598436E+00_JPRB &
+  &, 0.576234E+00_JPRB, 0.554294E+00_JPRB, 0.532635E+00_JPRB, 0.511273E+00_JPRB &
+  &, 0.490226E+00_JPRB, 0.469511E+00_JPRB, 0.449146E+00_JPRB &
+  &, 0.429146E+00_JPRB, 0.409527E+00_JPRB, 0.390307E+00_JPRB, 0.371502E+00_JPRB &
+  &, 0.353126E+00_JPRB, 0.335193E+00_JPRB, 0.317719E+00_JPRB &
+  &, 0.300717E+00_JPRB, 0.284197E+00_JPRB, 0.268173E+00_JPRB, 0.252652E+00_JPRB &
+  &, 0.237649E+00_JPRB, 0.223169E+00_JPRB, 0.209215E+00_JPRB &
+  &, 0.195793E+00_JPRB, 0.182915E+00_JPRB, 0.170580E+00_JPRB, 0.158784E+00_JPRB &
+  &, 0.147531E+00_JPRB, 0.136805E+00_JPRB, 0.126625E+00_JPRB &
+  &, 0.116968E+00_JPRB, 0.107840E+00_JPRB, 0.992085E-01_JPRB, 0.910967E-01_JPRB &
+  &, 0.834654E-01_JPRB, 0.763191E-01_JPRB, 0.696216E-01_JPRB &
+  &, 0.633834E-01_JPRB, 0.575864E-01_JPRB, 0.521946E-01_JPRB, 0.472085E-01_JPRB &
+  &, 0.425975E-01_JPRB, 0.383557E-01_JPRB, 0.344593E-01_JPRB &
+  &, 0.308804E-01_JPRB, 0.276184E-01_JPRB, 0.246386E-01_JPRB, 0.219345E-01_JPRB &
+  &, 0.194638E-01_JPRB, 0.172483E-01_JPRB, 0.152397E-01_JPRB &
+  &, 0.134385E-01_JPRB, 0.118257E-01_JPRB, 0.103796E-01_JPRB, 0.907586E-02_JPRB &
+  &, 0.792669E-02_JPRB, 0.690430E-02_JPRB, 0.599851E-02_JPRB &
+  &, 0.519768E-02_JPRB, 0.451022E-02_JPRB, 0.387886E-02_JPRB, 0.333085E-02_JPRB &
+  &, 0.287251E-02_JPRB, 0.246364E-02_JPRB, 0.210808E-02_JPRB &
+  &, 0.178548E-02_JPRB, 0.152325E-02_JPRB, 0.127496E-02_JPRB, 0.109347E-02_JPRB &
+  &, 0.904218E-03_JPRB, 0.760685E-03_JPRB, 0.638492E-03_JPRB &
+  &, 0.539098E-03_JPRB, 0.435622E-03_JPRB, 0.356899E-03_JPRB, 0.304477E-03_JPRB &
+  &, 0.249944E-03_JPRB, 0.193266E-03_JPRB, 0.165508E-03_JPRB &
+  &, 0.136660E-03_JPRB, 0.106703E-03_JPRB, 0.756187E-04_JPRB, 0.767810E-04_JPRB &
+  &, 0.439776E-04_JPRB, 0.445707E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART24',1,ZHOOK_HANDLE)
+END SUBROUTINE PART24
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART25
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART25',0,ZHOOK_HANDLE)
+
+XCW( 169, :) = (/ &
+  &  0.903769E+00_JPRB, 0.879747E+00_JPRB, 0.855770E+00_JPRB, 0.831856E+00_JPRB &
+  &, 0.808019E+00_JPRB, 0.784275E+00_JPRB, 0.760640E+00_JPRB &
+  &, 0.737131E+00_JPRB, 0.713764E+00_JPRB, 0.690555E+00_JPRB, 0.667521E+00_JPRB &
+  &, 0.644679E+00_JPRB, 0.622046E+00_JPRB, 0.599639E+00_JPRB &
+  &, 0.577474E+00_JPRB, 0.555568E+00_JPRB, 0.533940E+00_JPRB, 0.512607E+00_JPRB &
+  &, 0.491583E+00_JPRB, 0.470888E+00_JPRB, 0.450538E+00_JPRB &
+  &, 0.430551E+00_JPRB, 0.410941E+00_JPRB, 0.391726E+00_JPRB, 0.372923E+00_JPRB &
+  &, 0.354544E+00_JPRB, 0.336608E+00_JPRB, 0.319123E+00_JPRB &
+  &, 0.302109E+00_JPRB, 0.285575E+00_JPRB, 0.269532E+00_JPRB, 0.253995E+00_JPRB &
+  &, 0.238969E+00_JPRB, 0.224460E+00_JPRB, 0.210481E+00_JPRB &
+  &, 0.197030E+00_JPRB, 0.184117E+00_JPRB, 0.171743E+00_JPRB, 0.159917E+00_JPRB &
+  &, 0.148621E+00_JPRB, 0.137869E+00_JPRB, 0.127641E+00_JPRB &
+  &, 0.117943E+00_JPRB, 0.108771E+00_JPRB, 0.100104E+00_JPRB, 0.919433E-01_JPRB &
+  &, 0.842718E-01_JPRB, 0.770828E-01_JPRB, 0.703528E-01_JPRB &
+  &, 0.640667E-01_JPRB, 0.582324E-01_JPRB, 0.528011E-01_JPRB, 0.477730E-01_JPRB &
+  &, 0.431322E-01_JPRB, 0.388439E-01_JPRB, 0.349136E-01_JPRB &
+  &, 0.312988E-01_JPRB, 0.279990E-01_JPRB, 0.249955E-01_JPRB, 0.222499E-01_JPRB &
+  &, 0.197694E-01_JPRB, 0.175261E-01_JPRB, 0.154882E-01_JPRB &
+  &, 0.136744E-01_JPRB, 0.120297E-01_JPRB, 0.105692E-01_JPRB, 0.925021E-02_JPRB &
+  &, 0.808502E-02_JPRB, 0.704583E-02_JPRB, 0.612241E-02_JPRB &
+  &, 0.530312E-02_JPRB, 0.459635E-02_JPRB, 0.396679E-02_JPRB, 0.342060E-02_JPRB &
+  &, 0.294121E-02_JPRB, 0.251038E-02_JPRB, 0.215577E-02_JPRB &
+  &, 0.183413E-02_JPRB, 0.154806E-02_JPRB, 0.132556E-02_JPRB, 0.111927E-02_JPRB &
+  &, 0.930519E-03_JPRB, 0.787495E-03_JPRB, 0.665818E-03_JPRB &
+  &, 0.566946E-03_JPRB, 0.463997E-03_JPRB, 0.385807E-03_JPRB, 0.304477E-03_JPRB &
+  &, 0.249944E-03_JPRB, 0.223811E-03_JPRB, 0.165508E-03_JPRB &
+  &, 0.136660E-03_JPRB, 0.106703E-03_JPRB, 0.756187E-04_JPRB, 0.767810E-04_JPRB &
+  &, 0.439776E-04_JPRB, 0.445707E-04_JPRB, 0.451697E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 170, :) = (/ &
+  &  0.904141E+00_JPRB, 0.880204E+00_JPRB, 0.856308E+00_JPRB, 0.832472E+00_JPRB &
+  &, 0.808709E+00_JPRB, 0.785035E+00_JPRB, 0.761468E+00_JPRB &
+  &, 0.738023E+00_JPRB, 0.714716E+00_JPRB, 0.691564E+00_JPRB, 0.668584E+00_JPRB &
+  &, 0.645791E+00_JPRB, 0.623204E+00_JPRB, 0.600838E+00_JPRB &
+  &, 0.578711E+00_JPRB, 0.556841E+00_JPRB, 0.535244E+00_JPRB, 0.513937E+00_JPRB &
+  &, 0.492937E+00_JPRB, 0.472261E+00_JPRB, 0.451928E+00_JPRB &
+  &, 0.431954E+00_JPRB, 0.412352E+00_JPRB, 0.393145E+00_JPRB, 0.374341E+00_JPRB &
+  &, 0.355963E+00_JPRB, 0.338020E+00_JPRB, 0.320531E+00_JPRB &
+  &, 0.303505E+00_JPRB, 0.286957E+00_JPRB, 0.270896E+00_JPRB, 0.255337E+00_JPRB &
+  &, 0.240286E+00_JPRB, 0.225757E+00_JPRB, 0.211746E+00_JPRB &
+  &, 0.198267E+00_JPRB, 0.185328E+00_JPRB, 0.172917E+00_JPRB, 0.161049E+00_JPRB &
+  &, 0.149721E+00_JPRB, 0.138923E+00_JPRB, 0.128656E+00_JPRB &
+  &, 0.118928E+00_JPRB, 0.109701E+00_JPRB, 0.101000E+00_JPRB, 0.928018E-01_JPRB &
+  &, 0.850905E-01_JPRB, 0.778465E-01_JPRB, 0.710839E-01_JPRB &
+  &, 0.647631E-01_JPRB, 0.588784E-01_JPRB, 0.534075E-01_JPRB, 0.483376E-01_JPRB &
+  &, 0.436524E-01_JPRB, 0.393469E-01_JPRB, 0.353679E-01_JPRB &
+  &, 0.317328E-01_JPRB, 0.283955E-01_JPRB, 0.253525E-01_JPRB, 0.225818E-01_JPRB &
+  &, 0.200749E-01_JPRB, 0.178038E-01_JPRB, 0.157545E-01_JPRB &
+  &, 0.138922E-01_JPRB, 0.122338E-01_JPRB, 0.107588E-01_JPRB, 0.942455E-02_JPRB &
+  &, 0.824335E-02_JPRB, 0.718735E-02_JPRB, 0.624631E-02_JPRB &
+  &, 0.542965E-02_JPRB, 0.470401E-02_JPRB, 0.405472E-02_JPRB, 0.348791E-02_JPRB &
+  &, 0.300991E-02_JPRB, 0.258048E-02_JPRB, 0.220345E-02_JPRB &
+  &, 0.188277E-02_JPRB, 0.159768E-02_JPRB, 0.135086E-02_JPRB, 0.114506E-02_JPRB &
+  &, 0.956820E-03_JPRB, 0.814305E-03_JPRB, 0.693144E-03_JPRB &
+  &, 0.566946E-03_JPRB, 0.463997E-03_JPRB, 0.385807E-03_JPRB, 0.333924E-03_JPRB &
+  &, 0.279937E-03_JPRB, 0.223811E-03_JPRB, 0.165508E-03_JPRB &
+  &, 0.136660E-03_JPRB, 0.106703E-03_JPRB, 0.108428E-03_JPRB, 0.767810E-04_JPRB &
+  &, 0.439776E-04_JPRB, 0.445707E-04_JPRB, 0.451697E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 171, :) = (/ &
+  &  0.904512E+00_JPRB, 0.880658E+00_JPRB, 0.856844E+00_JPRB, 0.833085E+00_JPRB &
+  &, 0.809396E+00_JPRB, 0.785794E+00_JPRB, 0.762294E+00_JPRB &
+  &, 0.738912E+00_JPRB, 0.715666E+00_JPRB, 0.692570E+00_JPRB, 0.669643E+00_JPRB &
+  &, 0.646900E+00_JPRB, 0.624357E+00_JPRB, 0.602035E+00_JPRB &
+  &, 0.579945E+00_JPRB, 0.558110E+00_JPRB, 0.536543E+00_JPRB, 0.515265E+00_JPRB &
+  &, 0.494288E+00_JPRB, 0.473632E+00_JPRB, 0.453316E+00_JPRB &
+  &, 0.433353E+00_JPRB, 0.413763E+00_JPRB, 0.394558E+00_JPRB, 0.375761E+00_JPRB &
+  &, 0.357378E+00_JPRB, 0.339432E+00_JPRB, 0.321936E+00_JPRB &
+  &, 0.304897E+00_JPRB, 0.288336E+00_JPRB, 0.272259E+00_JPRB, 0.256680E+00_JPRB &
+  &, 0.241606E+00_JPRB, 0.227049E+00_JPRB, 0.213016E+00_JPRB &
+  &, 0.199504E+00_JPRB, 0.186529E+00_JPRB, 0.174090E+00_JPRB, 0.162182E+00_JPRB &
+  &, 0.150821E+00_JPRB, 0.139987E+00_JPRB, 0.129682E+00_JPRB &
+  &, 0.119903E+00_JPRB, 0.110644E+00_JPRB, 0.101896E+00_JPRB, 0.936603E-01_JPRB &
+  &, 0.858969E-01_JPRB, 0.786227E-01_JPRB, 0.718150E-01_JPRB &
+  &, 0.654464E-01_JPRB, 0.595245E-01_JPRB, 0.540140E-01_JPRB, 0.489163E-01_JPRB &
+  &, 0.441871E-01_JPRB, 0.398351E-01_JPRB, 0.358373E-01_JPRB &
+  &, 0.321512E-01_JPRB, 0.287919E-01_JPRB, 0.257256E-01_JPRB, 0.229303E-01_JPRB &
+  &, 0.203805E-01_JPRB, 0.180816E-01_JPRB, 0.160030E-01_JPRB &
+  &, 0.141281E-01_JPRB, 0.124563E-01_JPRB, 0.109483E-01_JPRB, 0.959889E-02_JPRB &
+  &, 0.838189E-02_JPRB, 0.732887E-02_JPRB, 0.637021E-02_JPRB &
+  &, 0.553509E-02_JPRB, 0.479014E-02_JPRB, 0.414265E-02_JPRB, 0.357767E-02_JPRB &
+  &, 0.307861E-02_JPRB, 0.262722E-02_JPRB, 0.225113E-02_JPRB &
+  &, 0.193141E-02_JPRB, 0.164729E-02_JPRB, 0.140145E-02_JPRB, 0.117086E-02_JPRB &
+  &, 0.983120E-03_JPRB, 0.841115E-03_JPRB, 0.693144E-03_JPRB &
+  &, 0.594793E-03_JPRB, 0.492371E-03_JPRB, 0.414715E-03_JPRB, 0.333924E-03_JPRB &
+  &, 0.279937E-03_JPRB, 0.223811E-03_JPRB, 0.196610E-03_JPRB &
+  &, 0.136660E-03_JPRB, 0.106703E-03_JPRB, 0.108428E-03_JPRB, 0.767810E-04_JPRB &
+  &, 0.439776E-04_JPRB, 0.445707E-04_JPRB, 0.451697E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 172, :) = (/ &
+  &  0.904880E+00_JPRB, 0.881111E+00_JPRB, 0.857378E+00_JPRB, 0.833697E+00_JPRB &
+  &, 0.810082E+00_JPRB, 0.786550E+00_JPRB, 0.763117E+00_JPRB &
+  &, 0.739799E+00_JPRB, 0.716612E+00_JPRB, 0.693573E+00_JPRB, 0.670699E+00_JPRB &
+  &, 0.648005E+00_JPRB, 0.625509E+00_JPRB, 0.603227E+00_JPRB &
+  &, 0.581178E+00_JPRB, 0.559377E+00_JPRB, 0.537841E+00_JPRB, 0.516589E+00_JPRB &
+  &, 0.495638E+00_JPRB, 0.475002E+00_JPRB, 0.454701E+00_JPRB &
+  &, 0.434752E+00_JPRB, 0.415170E+00_JPRB, 0.395974E+00_JPRB, 0.377175E+00_JPRB &
+  &, 0.358793E+00_JPRB, 0.340844E+00_JPRB, 0.323336E+00_JPRB &
+  &, 0.306289E+00_JPRB, 0.289714E+00_JPRB, 0.273623E+00_JPRB, 0.258023E+00_JPRB &
+  &, 0.242927E+00_JPRB, 0.228345E+00_JPRB, 0.214282E+00_JPRB &
+  &, 0.200741E+00_JPRB, 0.187741E+00_JPRB, 0.175263E+00_JPRB, 0.163325E+00_JPRB &
+  &, 0.151921E+00_JPRB, 0.141052E+00_JPRB, 0.130709E+00_JPRB &
+  &, 0.120889E+00_JPRB, 0.111586E+00_JPRB, 0.102804E+00_JPRB, 0.945188E-01_JPRB &
+  &, 0.867156E-01_JPRB, 0.793990E-01_JPRB, 0.725462E-01_JPRB &
+  &, 0.661428E-01_JPRB, 0.601839E-01_JPRB, 0.546343E-01_JPRB, 0.494950E-01_JPRB &
+  &, 0.447363E-01_JPRB, 0.403381E-01_JPRB, 0.362916E-01_JPRB &
+  &, 0.325851E-01_JPRB, 0.291884E-01_JPRB, 0.260826E-01_JPRB, 0.232623E-01_JPRB &
+  &, 0.207030E-01_JPRB, 0.183767E-01_JPRB, 0.162692E-01_JPRB &
+  &, 0.143640E-01_JPRB, 0.126604E-01_JPRB, 0.111379E-01_JPRB, 0.977324E-02_JPRB &
+  &, 0.854023E-02_JPRB, 0.747040E-02_JPRB, 0.649411E-02_JPRB &
+  &, 0.564053E-02_JPRB, 0.489780E-02_JPRB, 0.423058E-02_JPRB, 0.364498E-02_JPRB &
+  &, 0.314731E-02_JPRB, 0.269732E-02_JPRB, 0.229882E-02_JPRB &
+  &, 0.198006E-02_JPRB, 0.167210E-02_JPRB, 0.142675E-02_JPRB, 0.119666E-02_JPRB &
+  &, 0.100942E-02_JPRB, 0.867925E-03_JPRB, 0.720469E-03_JPRB &
+  &, 0.594793E-03_JPRB, 0.492371E-03_JPRB, 0.414715E-03_JPRB, 0.333924E-03_JPRB &
+  &, 0.279937E-03_JPRB, 0.223811E-03_JPRB, 0.196610E-03_JPRB &
+  &, 0.168325E-03_JPRB, 0.138937E-03_JPRB, 0.108428E-03_JPRB, 0.767810E-04_JPRB &
+  &, 0.779552E-04_JPRB, 0.445707E-04_JPRB, 0.451697E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 173, :) = (/ &
+  &  0.905248E+00_JPRB, 0.881563E+00_JPRB, 0.857910E+00_JPRB, 0.834306E+00_JPRB &
+  &, 0.810765E+00_JPRB, 0.787304E+00_JPRB, 0.763938E+00_JPRB &
+  &, 0.740683E+00_JPRB, 0.717557E+00_JPRB, 0.694574E+00_JPRB, 0.671753E+00_JPRB &
+  &, 0.649108E+00_JPRB, 0.626657E+00_JPRB, 0.604418E+00_JPRB &
+  &, 0.582407E+00_JPRB, 0.560641E+00_JPRB, 0.539136E+00_JPRB, 0.517912E+00_JPRB &
+  &, 0.496984E+00_JPRB, 0.476370E+00_JPRB, 0.456085E+00_JPRB &
+  &, 0.436148E+00_JPRB, 0.416578E+00_JPRB, 0.397386E+00_JPRB, 0.378593E+00_JPRB &
+  &, 0.360208E+00_JPRB, 0.342252E+00_JPRB, 0.324740E+00_JPRB &
+  &, 0.307681E+00_JPRB, 0.291093E+00_JPRB, 0.274982E+00_JPRB, 0.259366E+00_JPRB &
+  &, 0.244247E+00_JPRB, 0.229641E+00_JPRB, 0.215552E+00_JPRB &
+  &, 0.201988E+00_JPRB, 0.188942E+00_JPRB, 0.176437E+00_JPRB, 0.164468E+00_JPRB &
+  &, 0.153020E+00_JPRB, 0.142116E+00_JPRB, 0.131735E+00_JPRB &
+  &, 0.121874E+00_JPRB, 0.112539E+00_JPRB, 0.103711E+00_JPRB, 0.953774E-01_JPRB &
+  &, 0.875343E-01_JPRB, 0.801752E-01_JPRB, 0.732901E-01_JPRB &
+  &, 0.668392E-01_JPRB, 0.608300E-01_JPRB, 0.552545E-01_JPRB, 0.500737E-01_JPRB &
+  &, 0.452710E-01_JPRB, 0.408411E-01_JPRB, 0.367610E-01_JPRB &
+  &, 0.330190E-01_JPRB, 0.296007E-01_JPRB, 0.264557E-01_JPRB, 0.236108E-01_JPRB &
+  &, 0.210086E-01_JPRB, 0.186545E-01_JPRB, 0.165177E-01_JPRB &
+  &, 0.145999E-01_JPRB, 0.128830E-01_JPRB, 0.113275E-01_JPRB, 0.994758E-02_JPRB &
+  &, 0.869856E-02_JPRB, 0.761193E-02_JPRB, 0.661801E-02_JPRB &
+  &, 0.576706E-02_JPRB, 0.500546E-02_JPRB, 0.431851E-02_JPRB, 0.373473E-02_JPRB &
+  &, 0.321601E-02_JPRB, 0.276742E-02_JPRB, 0.237034E-02_JPRB &
+  &, 0.202870E-02_JPRB, 0.172171E-02_JPRB, 0.145205E-02_JPRB, 0.124825E-02_JPRB &
+  &, 0.103572E-02_JPRB, 0.894735E-03_JPRB, 0.747795E-03_JPRB &
+  &, 0.622640E-03_JPRB, 0.520746E-03_JPRB, 0.443624E-03_JPRB, 0.363372E-03_JPRB &
+  &, 0.309930E-03_JPRB, 0.254355E-03_JPRB, 0.196610E-03_JPRB &
+  &, 0.168325E-03_JPRB, 0.138937E-03_JPRB, 0.108428E-03_JPRB, 0.767810E-04_JPRB &
+  &, 0.779552E-04_JPRB, 0.445707E-04_JPRB, 0.451697E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 174, :) = (/ &
+  &  0.905614E+00_JPRB, 0.882012E+00_JPRB, 0.858440E+00_JPRB, 0.834914E+00_JPRB &
+  &, 0.811445E+00_JPRB, 0.788055E+00_JPRB, 0.764756E+00_JPRB &
+  &, 0.741565E+00_JPRB, 0.718498E+00_JPRB, 0.695572E+00_JPRB, 0.672803E+00_JPRB &
+  &, 0.650208E+00_JPRB, 0.627803E+00_JPRB, 0.605605E+00_JPRB &
+  &, 0.583632E+00_JPRB, 0.561902E+00_JPRB, 0.540428E+00_JPRB, 0.519232E+00_JPRB &
+  &, 0.498328E+00_JPRB, 0.477734E+00_JPRB, 0.457467E+00_JPRB &
+  &, 0.437544E+00_JPRB, 0.417982E+00_JPRB, 0.398795E+00_JPRB, 0.380003E+00_JPRB &
+  &, 0.361623E+00_JPRB, 0.343664E+00_JPRB, 0.326141E+00_JPRB &
+  &, 0.309073E+00_JPRB, 0.292471E+00_JPRB, 0.276345E+00_JPRB, 0.260709E+00_JPRB &
+  &, 0.245568E+00_JPRB, 0.230937E+00_JPRB, 0.216822E+00_JPRB &
+  &, 0.203225E+00_JPRB, 0.190153E+00_JPRB, 0.177620E+00_JPRB, 0.165611E+00_JPRB &
+  &, 0.154130E+00_JPRB, 0.143181E+00_JPRB, 0.132761E+00_JPRB &
+  &, 0.122860E+00_JPRB, 0.113482E+00_JPRB, 0.104619E+00_JPRB, 0.962478E-01_JPRB &
+  &, 0.883652E-01_JPRB, 0.809640E-01_JPRB, 0.740213E-01_JPRB &
+  &, 0.675487E-01_JPRB, 0.614894E-01_JPRB, 0.558748E-01_JPRB, 0.506524E-01_JPRB &
+  &, 0.458201E-01_JPRB, 0.413588E-01_JPRB, 0.372455E-01_JPRB &
+  &, 0.334685E-01_JPRB, 0.299971E-01_JPRB, 0.268289E-01_JPRB, 0.239427E-01_JPRB &
+  &, 0.213311E-01_JPRB, 0.189496E-01_JPRB, 0.167840E-01_JPRB &
+  &, 0.148539E-01_JPRB, 0.131056E-01_JPRB, 0.115360E-01_JPRB, 0.101219E-01_JPRB &
+  &, 0.887669E-02_JPRB, 0.775345E-02_JPRB, 0.676256E-02_JPRB &
+  &, 0.587250E-02_JPRB, 0.509159E-02_JPRB, 0.440644E-02_JPRB, 0.380205E-02_JPRB &
+  &, 0.328471E-02_JPRB, 0.281416E-02_JPRB, 0.241803E-02_JPRB &
+  &, 0.207734E-02_JPRB, 0.177133E-02_JPRB, 0.150265E-02_JPRB, 0.127405E-02_JPRB &
+  &, 0.108832E-02_JPRB, 0.894735E-03_JPRB, 0.775121E-03_JPRB &
+  &, 0.650487E-03_JPRB, 0.549121E-03_JPRB, 0.443624E-03_JPRB, 0.363372E-03_JPRB &
+  &, 0.309930E-03_JPRB, 0.254355E-03_JPRB, 0.196610E-03_JPRB &
+  &, 0.168325E-03_JPRB, 0.138937E-03_JPRB, 0.108428E-03_JPRB, 0.767810E-04_JPRB &
+  &, 0.779552E-04_JPRB, 0.445707E-04_JPRB, 0.451697E-04_JPRB &
+  &, 0.457747E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 175, :) = (/ &
+  &  0.905979E+00_JPRB, 0.882462E+00_JPRB, 0.858969E+00_JPRB, 0.835519E+00_JPRB &
+  &, 0.812125E+00_JPRB, 0.788804E+00_JPRB, 0.765572E+00_JPRB &
+  &, 0.742444E+00_JPRB, 0.719437E+00_JPRB, 0.696567E+00_JPRB, 0.673851E+00_JPRB &
+  &, 0.651305E+00_JPRB, 0.628945E+00_JPRB, 0.606790E+00_JPRB &
+  &, 0.584856E+00_JPRB, 0.563160E+00_JPRB, 0.541719E+00_JPRB, 0.520549E+00_JPRB &
+  &, 0.499670E+00_JPRB, 0.479095E+00_JPRB, 0.458845E+00_JPRB &
+  &, 0.438936E+00_JPRB, 0.419383E+00_JPRB, 0.400204E+00_JPRB, 0.381417E+00_JPRB &
+  &, 0.363034E+00_JPRB, 0.345072E+00_JPRB, 0.327530E+00_JPRB &
+  &, 0.310465E+00_JPRB, 0.293849E+00_JPRB, 0.277709E+00_JPRB, 0.262052E+00_JPRB &
+  &, 0.246892E+00_JPRB, 0.232238E+00_JPRB, 0.218092E+00_JPRB &
+  &, 0.204471E+00_JPRB, 0.191365E+00_JPRB, 0.178793E+00_JPRB, 0.166754E+00_JPRB &
+  &, 0.155241E+00_JPRB, 0.144255E+00_JPRB, 0.133798E+00_JPRB &
+  &, 0.123857E+00_JPRB, 0.114435E+00_JPRB, 0.105526E+00_JPRB, 0.971182E-01_JPRB &
+  &, 0.891961E-01_JPRB, 0.817527E-01_JPRB, 0.747781E-01_JPRB &
+  &, 0.682452E-01_JPRB, 0.621624E-01_JPRB, 0.564950E-01_JPRB, 0.512310E-01_JPRB &
+  &, 0.463693E-01_JPRB, 0.418618E-01_JPRB, 0.377149E-01_JPRB &
+  &, 0.339024E-01_JPRB, 0.304094E-01_JPRB, 0.272183E-01_JPRB, 0.242913E-01_JPRB &
+  &, 0.216367E-01_JPRB, 0.192447E-01_JPRB, 0.170502E-01_JPRB &
+  &, 0.150898E-01_JPRB, 0.133096E-01_JPRB, 0.117256E-01_JPRB, 0.102963E-01_JPRB &
+  &, 0.903502E-02_JPRB, 0.789498E-02_JPRB, 0.688646E-02_JPRB &
+  &, 0.599902E-02_JPRB, 0.519925E-02_JPRB, 0.451635E-02_JPRB, 0.389180E-02_JPRB &
+  &, 0.335341E-02_JPRB, 0.288426E-02_JPRB, 0.246571E-02_JPRB &
+  &, 0.212598E-02_JPRB, 0.179614E-02_JPRB, 0.152795E-02_JPRB, 0.129984E-02_JPRB &
+  &, 0.111462E-02_JPRB, 0.921545E-03_JPRB, 0.775121E-03_JPRB &
+  &, 0.650487E-03_JPRB, 0.549121E-03_JPRB, 0.472532E-03_JPRB, 0.392820E-03_JPRB &
+  &, 0.309930E-03_JPRB, 0.254355E-03_JPRB, 0.227712E-03_JPRB &
+  &, 0.168325E-03_JPRB, 0.138937E-03_JPRB, 0.108428E-03_JPRB, 0.767810E-04_JPRB &
+  &, 0.779552E-04_JPRB, 0.445707E-04_JPRB, 0.451697E-04_JPRB &
+  &, 0.457747E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART25',1,ZHOOK_HANDLE)
+END SUBROUTINE PART25
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART26
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART26',0,ZHOOK_HANDLE)
+
+XCW( 176, :) = (/ &
+  &  0.906343E+00_JPRB, 0.882908E+00_JPRB, 0.859496E+00_JPRB, 0.836123E+00_JPRB &
+  &, 0.812802E+00_JPRB, 0.789551E+00_JPRB, 0.766385E+00_JPRB &
+  &, 0.743321E+00_JPRB, 0.720373E+00_JPRB, 0.697560E+00_JPRB, 0.674896E+00_JPRB &
+  &, 0.652400E+00_JPRB, 0.630086E+00_JPRB, 0.607973E+00_JPRB &
+  &, 0.586078E+00_JPRB, 0.564416E+00_JPRB, 0.543006E+00_JPRB, 0.521864E+00_JPRB &
+  &, 0.501008E+00_JPRB, 0.480456E+00_JPRB, 0.460223E+00_JPRB &
+  &, 0.440325E+00_JPRB, 0.420783E+00_JPRB, 0.401613E+00_JPRB, 0.382827E+00_JPRB &
+  &, 0.364445E+00_JPRB, 0.346476E+00_JPRB, 0.328942E+00_JPRB &
+  &, 0.311857E+00_JPRB, 0.295228E+00_JPRB, 0.279068E+00_JPRB, 0.263395E+00_JPRB &
+  &, 0.248213E+00_JPRB, 0.233534E+00_JPRB, 0.219367E+00_JPRB &
+  &, 0.205708E+00_JPRB, 0.192576E+00_JPRB, 0.179977E+00_JPRB, 0.167897E+00_JPRB &
+  &, 0.156351E+00_JPRB, 0.145320E+00_JPRB, 0.134825E+00_JPRB &
+  &, 0.124853E+00_JPRB, 0.115389E+00_JPRB, 0.106434E+00_JPRB, 0.979887E-01_JPRB &
+  &, 0.900269E-01_JPRB, 0.825415E-01_JPRB, 0.755220E-01_JPRB &
+  &, 0.689547E-01_JPRB, 0.628219E-01_JPRB, 0.571291E-01_JPRB, 0.518239E-01_JPRB &
+  &, 0.469184E-01_JPRB, 0.423796E-01_JPRB, 0.381995E-01_JPRB &
+  &, 0.343518E-01_JPRB, 0.308217E-01_JPRB, 0.275914E-01_JPRB, 0.246398E-01_JPRB &
+  &, 0.219592E-01_JPRB, 0.195398E-01_JPRB, 0.173342E-01_JPRB &
+  &, 0.153439E-01_JPRB, 0.135507E-01_JPRB, 0.119341E-01_JPRB, 0.104900E-01_JPRB &
+  &, 0.919336E-02_JPRB, 0.803650E-02_JPRB, 0.701036E-02_JPRB &
+  &, 0.610447E-02_JPRB, 0.530691E-02_JPRB, 0.460428E-02_JPRB, 0.398155E-02_JPRB &
+  &, 0.342211E-02_JPRB, 0.295437E-02_JPRB, 0.253724E-02_JPRB &
+  &, 0.217463E-02_JPRB, 0.184575E-02_JPRB, 0.157855E-02_JPRB, 0.135144E-02_JPRB &
+  &, 0.114092E-02_JPRB, 0.948356E-03_JPRB, 0.802447E-03_JPRB &
+  &, 0.678335E-03_JPRB, 0.577496E-03_JPRB, 0.472532E-03_JPRB, 0.392820E-03_JPRB &
+  &, 0.339924E-03_JPRB, 0.254355E-03_JPRB, 0.227712E-03_JPRB &
+  &, 0.168325E-03_JPRB, 0.138937E-03_JPRB, 0.108428E-03_JPRB, 0.767810E-04_JPRB &
+  &, 0.779552E-04_JPRB, 0.445707E-04_JPRB, 0.451697E-04_JPRB &
+  &, 0.457747E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 177, :) = (/ &
+  &  0.906707E+00_JPRB, 0.883355E+00_JPRB, 0.860022E+00_JPRB, 0.836725E+00_JPRB &
+  &, 0.813477E+00_JPRB, 0.790296E+00_JPRB, 0.767196E+00_JPRB &
+  &, 0.744195E+00_JPRB, 0.721307E+00_JPRB, 0.698550E+00_JPRB, 0.675939E+00_JPRB &
+  &, 0.653491E+00_JPRB, 0.631224E+00_JPRB, 0.609152E+00_JPRB &
+  &, 0.587295E+00_JPRB, 0.565670E+00_JPRB, 0.544290E+00_JPRB, 0.523177E+00_JPRB &
+  &, 0.502345E+00_JPRB, 0.481814E+00_JPRB, 0.461598E+00_JPRB &
+  &, 0.441715E+00_JPRB, 0.422184E+00_JPRB, 0.403019E+00_JPRB, 0.384238E+00_JPRB &
+  &, 0.365853E+00_JPRB, 0.347885E+00_JPRB, 0.330343E+00_JPRB &
+  &, 0.313245E+00_JPRB, 0.296606E+00_JPRB, 0.280432E+00_JPRB, 0.264737E+00_JPRB &
+  &, 0.249538E+00_JPRB, 0.234835E+00_JPRB, 0.220637E+00_JPRB &
+  &, 0.206955E+00_JPRB, 0.193796E+00_JPRB, 0.181160E+00_JPRB, 0.169040E+00_JPRB &
+  &, 0.157461E+00_JPRB, 0.146405E+00_JPRB, 0.135862E+00_JPRB &
+  &, 0.125850E+00_JPRB, 0.116354E+00_JPRB, 0.107353E+00_JPRB, 0.988591E-01_JPRB &
+  &, 0.908578E-01_JPRB, 0.833302E-01_JPRB, 0.762660E-01_JPRB &
+  &, 0.696643E-01_JPRB, 0.634948E-01_JPRB, 0.577493E-01_JPRB, 0.524167E-01_JPRB &
+  &, 0.474675E-01_JPRB, 0.428974E-01_JPRB, 0.386841E-01_JPRB &
+  &, 0.348012E-01_JPRB, 0.312340E-01_JPRB, 0.279808E-01_JPRB, 0.250049E-01_JPRB &
+  &, 0.222987E-01_JPRB, 0.198349E-01_JPRB, 0.176005E-01_JPRB &
+  &, 0.155798E-01_JPRB, 0.137733E-01_JPRB, 0.121426E-01_JPRB, 0.106643E-01_JPRB &
+  &, 0.937148E-02_JPRB, 0.819824E-02_JPRB, 0.715491E-02_JPRB &
+  &, 0.623099E-02_JPRB, 0.541457E-02_JPRB, 0.469221E-02_JPRB, 0.407131E-02_JPRB &
+  &, 0.351371E-02_JPRB, 0.302447E-02_JPRB, 0.258492E-02_JPRB &
+  &, 0.222327E-02_JPRB, 0.189537E-02_JPRB, 0.160385E-02_JPRB, 0.137723E-02_JPRB &
+  &, 0.116722E-02_JPRB, 0.975166E-03_JPRB, 0.829772E-03_JPRB &
+  &, 0.706182E-03_JPRB, 0.577496E-03_JPRB, 0.501440E-03_JPRB, 0.392820E-03_JPRB &
+  &, 0.339924E-03_JPRB, 0.284900E-03_JPRB, 0.227712E-03_JPRB &
+  &, 0.199990E-03_JPRB, 0.138937E-03_JPRB, 0.108428E-03_JPRB, 0.110172E-03_JPRB &
+  &, 0.779552E-04_JPRB, 0.445707E-04_JPRB, 0.451697E-04_JPRB &
+  &, 0.457747E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 178, :) = (/ &
+  &  0.907068E+00_JPRB, 0.883799E+00_JPRB, 0.860545E+00_JPRB, 0.837325E+00_JPRB &
+  &, 0.814150E+00_JPRB, 0.791038E+00_JPRB, 0.768005E+00_JPRB &
+  &, 0.745066E+00_JPRB, 0.722238E+00_JPRB, 0.699537E+00_JPRB, 0.676979E+00_JPRB &
+  &, 0.654581E+00_JPRB, 0.632358E+00_JPRB, 0.610330E+00_JPRB &
+  &, 0.588512E+00_JPRB, 0.566920E+00_JPRB, 0.545573E+00_JPRB, 0.524487E+00_JPRB &
+  &, 0.503681E+00_JPRB, 0.483168E+00_JPRB, 0.462969E+00_JPRB &
+  &, 0.443104E+00_JPRB, 0.423581E+00_JPRB, 0.404425E+00_JPRB, 0.385644E+00_JPRB &
+  &, 0.367261E+00_JPRB, 0.349289E+00_JPRB, 0.331743E+00_JPRB &
+  &, 0.314637E+00_JPRB, 0.297980E+00_JPRB, 0.281795E+00_JPRB, 0.266084E+00_JPRB &
+  &, 0.250858E+00_JPRB, 0.236131E+00_JPRB, 0.221911E+00_JPRB &
+  &, 0.208201E+00_JPRB, 0.195008E+00_JPRB, 0.182343E+00_JPRB, 0.170193E+00_JPRB &
+  &, 0.158571E+00_JPRB, 0.147480E+00_JPRB, 0.136899E+00_JPRB &
+  &, 0.126847E+00_JPRB, 0.117307E+00_JPRB, 0.108272E+00_JPRB, 0.997415E-01_JPRB &
+  &, 0.916887E-01_JPRB, 0.841315E-01_JPRB, 0.770228E-01_JPRB &
+  &, 0.703870E-01_JPRB, 0.641677E-01_JPRB, 0.583834E-01_JPRB, 0.530095E-01_JPRB &
+  &, 0.480311E-01_JPRB, 0.434152E-01_JPRB, 0.391686E-01_JPRB &
+  &, 0.352506E-01_JPRB, 0.316463E-01_JPRB, 0.283702E-01_JPRB, 0.253535E-01_JPRB &
+  &, 0.226212E-01_JPRB, 0.201301E-01_JPRB, 0.178668E-01_JPRB &
+  &, 0.158339E-01_JPRB, 0.139959E-01_JPRB, 0.123512E-01_JPRB, 0.108580E-01_JPRB &
+  &, 0.952981E-02_JPRB, 0.833977E-02_JPRB, 0.729946E-02_JPRB &
+  &, 0.635752E-02_JPRB, 0.552224E-02_JPRB, 0.480212E-02_JPRB, 0.413862E-02_JPRB &
+  &, 0.358241E-02_JPRB, 0.309458E-02_JPRB, 0.265645E-02_JPRB &
+  &, 0.227192E-02_JPRB, 0.194498E-02_JPRB, 0.165445E-02_JPRB, 0.140303E-02_JPRB &
+  &, 0.119352E-02_JPRB, 0.100198E-02_JPRB, 0.857098E-03_JPRB &
+  &, 0.706182E-03_JPRB, 0.605870E-03_JPRB, 0.501440E-03_JPRB, 0.422267E-03_JPRB &
+  &, 0.339924E-03_JPRB, 0.284900E-03_JPRB, 0.227712E-03_JPRB &
+  &, 0.199990E-03_JPRB, 0.171171E-03_JPRB, 0.141237E-03_JPRB, 0.110172E-03_JPRB &
+  &, 0.779552E-04_JPRB, 0.791414E-04_JPRB, 0.451697E-04_JPRB &
+  &, 0.457747E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 179, :) = (/ &
+  &  0.907428E+00_JPRB, 0.884243E+00_JPRB, 0.861068E+00_JPRB, 0.837923E+00_JPRB &
+  &, 0.814820E+00_JPRB, 0.791779E+00_JPRB, 0.768812E+00_JPRB &
+  &, 0.745935E+00_JPRB, 0.723167E+00_JPRB, 0.700522E+00_JPRB, 0.678016E+00_JPRB &
+  &, 0.655667E+00_JPRB, 0.633491E+00_JPRB, 0.611504E+00_JPRB &
+  &, 0.589725E+00_JPRB, 0.568168E+00_JPRB, 0.546852E+00_JPRB, 0.525795E+00_JPRB &
+  &, 0.505013E+00_JPRB, 0.484523E+00_JPRB, 0.464341E+00_JPRB &
+  &, 0.444486E+00_JPRB, 0.424978E+00_JPRB, 0.405827E+00_JPRB, 0.387051E+00_JPRB &
+  &, 0.368668E+00_JPRB, 0.350693E+00_JPRB, 0.333140E+00_JPRB &
+  &, 0.316025E+00_JPRB, 0.299359E+00_JPRB, 0.283154E+00_JPRB, 0.267427E+00_JPRB &
+  &, 0.252183E+00_JPRB, 0.237432E+00_JPRB, 0.223186E+00_JPRB &
+  &, 0.209447E+00_JPRB, 0.196228E+00_JPRB, 0.183526E+00_JPRB, 0.171346E+00_JPRB &
+  &, 0.159691E+00_JPRB, 0.148555E+00_JPRB, 0.137947E+00_JPRB &
+  &, 0.127854E+00_JPRB, 0.118272E+00_JPRB, 0.109203E+00_JPRB, 0.100624E+00_JPRB &
+  &, 0.925318E-01_JPRB, 0.849328E-01_JPRB, 0.777924E-01_JPRB &
+  &, 0.710965E-01_JPRB, 0.648541E-01_JPRB, 0.590312E-01_JPRB, 0.536164E-01_JPRB &
+  &, 0.485947E-01_JPRB, 0.439478E-01_JPRB, 0.396532E-01_JPRB &
+  &, 0.357000E-01_JPRB, 0.320745E-01_JPRB, 0.287596E-01_JPRB, 0.257186E-01_JPRB &
+  &, 0.229438E-01_JPRB, 0.204252E-01_JPRB, 0.181508E-01_JPRB &
+  &, 0.160879E-01_JPRB, 0.142185E-01_JPRB, 0.125597E-01_JPRB, 0.110518E-01_JPRB &
+  &, 0.970794E-02_JPRB, 0.850151E-02_JPRB, 0.742336E-02_JPRB &
+  &, 0.648405E-02_JPRB, 0.562990E-02_JPRB, 0.489005E-02_JPRB, 0.422837E-02_JPRB &
+  &, 0.365111E-02_JPRB, 0.316468E-02_JPRB, 0.270413E-02_JPRB &
+  &, 0.232056E-02_JPRB, 0.199460E-02_JPRB, 0.170505E-02_JPRB, 0.145463E-02_JPRB &
+  &, 0.121982E-02_JPRB, 0.102879E-02_JPRB, 0.884424E-03_JPRB &
+  &, 0.734029E-03_JPRB, 0.605870E-03_JPRB, 0.530348E-03_JPRB, 0.422267E-03_JPRB &
+  &, 0.369917E-03_JPRB, 0.284900E-03_JPRB, 0.258814E-03_JPRB &
+  &, 0.199990E-03_JPRB, 0.171171E-03_JPRB, 0.141237E-03_JPRB, 0.110172E-03_JPRB &
+  &, 0.779552E-04_JPRB, 0.791414E-04_JPRB, 0.451697E-04_JPRB &
+  &, 0.457747E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 180, :) = (/ &
+  &  0.907788E+00_JPRB, 0.884683E+00_JPRB, 0.861588E+00_JPRB, 0.838519E+00_JPRB &
+  &, 0.815490E+00_JPRB, 0.792517E+00_JPRB, 0.769616E+00_JPRB &
+  &, 0.746803E+00_JPRB, 0.724093E+00_JPRB, 0.701504E+00_JPRB, 0.679051E+00_JPRB &
+  &, 0.656751E+00_JPRB, 0.634620E+00_JPRB, 0.612676E+00_JPRB &
+  &, 0.590934E+00_JPRB, 0.569413E+00_JPRB, 0.548131E+00_JPRB, 0.527100E+00_JPRB &
+  &, 0.506343E+00_JPRB, 0.485874E+00_JPRB, 0.465709E+00_JPRB &
+  &, 0.445872E+00_JPRB, 0.426372E+00_JPRB, 0.407229E+00_JPRB, 0.388458E+00_JPRB &
+  &, 0.370076E+00_JPRB, 0.352098E+00_JPRB, 0.334540E+00_JPRB &
+  &, 0.317413E+00_JPRB, 0.300737E+00_JPRB, 0.284518E+00_JPRB, 0.268770E+00_JPRB &
+  &, 0.253508E+00_JPRB, 0.238737E+00_JPRB, 0.224465E+00_JPRB &
+  &, 0.210694E+00_JPRB, 0.197449E+00_JPRB, 0.184709E+00_JPRB, 0.172499E+00_JPRB &
+  &, 0.160812E+00_JPRB, 0.149640E+00_JPRB, 0.138995E+00_JPRB &
+  &, 0.128862E+00_JPRB, 0.119237E+00_JPRB, 0.110122E+00_JPRB, 0.101506E+00_JPRB &
+  &, 0.933749E-01_JPRB, 0.857341E-01_JPRB, 0.785492E-01_JPRB &
+  &, 0.718192E-01_JPRB, 0.655271E-01_JPRB, 0.596653E-01_JPRB, 0.542092E-01_JPRB &
+  &, 0.491583E-01_JPRB, 0.444656E-01_JPRB, 0.401378E-01_JPRB &
+  &, 0.361650E-01_JPRB, 0.325026E-01_JPRB, 0.291490E-01_JPRB, 0.260837E-01_JPRB &
+  &, 0.232833E-01_JPRB, 0.207377E-01_JPRB, 0.184348E-01_JPRB &
+  &, 0.163420E-01_JPRB, 0.144596E-01_JPRB, 0.127682E-01_JPRB, 0.112455E-01_JPRB &
+  &, 0.986627E-02_JPRB, 0.866326E-02_JPRB, 0.756791E-02_JPRB &
+  &, 0.661058E-02_JPRB, 0.575909E-02_JPRB, 0.499996E-02_JPRB, 0.431813E-02_JPRB &
+  &, 0.374272E-02_JPRB, 0.323478E-02_JPRB, 0.277565E-02_JPRB &
+  &, 0.236920E-02_JPRB, 0.204421E-02_JPRB, 0.173034E-02_JPRB, 0.148042E-02_JPRB &
+  &, 0.124613E-02_JPRB, 0.105560E-02_JPRB, 0.911749E-03_JPRB &
+  &, 0.761877E-03_JPRB, 0.634245E-03_JPRB, 0.530348E-03_JPRB, 0.451715E-03_JPRB &
+  &, 0.369917E-03_JPRB, 0.315444E-03_JPRB, 0.258814E-03_JPRB &
+  &, 0.199990E-03_JPRB, 0.171171E-03_JPRB, 0.141237E-03_JPRB, 0.110172E-03_JPRB &
+  &, 0.779552E-04_JPRB, 0.791414E-04_JPRB, 0.451697E-04_JPRB &
+  &, 0.457747E-04_JPRB, 0.463856E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 181, :) = (/ &
+  &  0.908147E+00_JPRB, 0.885123E+00_JPRB, 0.862107E+00_JPRB, 0.839113E+00_JPRB &
+  &, 0.816156E+00_JPRB, 0.793253E+00_JPRB, 0.770417E+00_JPRB &
+  &, 0.747667E+00_JPRB, 0.725017E+00_JPRB, 0.702484E+00_JPRB, 0.680083E+00_JPRB &
+  &, 0.657832E+00_JPRB, 0.635747E+00_JPRB, 0.613844E+00_JPRB &
+  &, 0.592143E+00_JPRB, 0.570656E+00_JPRB, 0.549405E+00_JPRB, 0.528403E+00_JPRB &
+  &, 0.507671E+00_JPRB, 0.487223E+00_JPRB, 0.467077E+00_JPRB &
+  &, 0.447252E+00_JPRB, 0.427763E+00_JPRB, 0.408627E+00_JPRB, 0.389861E+00_JPRB &
+  &, 0.371480E+00_JPRB, 0.353499E+00_JPRB, 0.335937E+00_JPRB &
+  &, 0.318801E+00_JPRB, 0.302100E+00_JPRB, 0.285881E+00_JPRB, 0.270117E+00_JPRB &
+  &, 0.254833E+00_JPRB, 0.240038E+00_JPRB, 0.225740E+00_JPRB &
+  &, 0.211949E+00_JPRB, 0.198670E+00_JPRB, 0.185902E+00_JPRB, 0.173652E+00_JPRB &
+  &, 0.161932E+00_JPRB, 0.150726E+00_JPRB, 0.140032E+00_JPRB &
+  &, 0.129870E+00_JPRB, 0.120202E+00_JPRB, 0.111053E+00_JPRB, 0.102401E+00_JPRB &
+  &, 0.942303E-01_JPRB, 0.865353E-01_JPRB, 0.793188E-01_JPRB &
+  &, 0.725419E-01_JPRB, 0.662134E-01_JPRB, 0.603131E-01_JPRB, 0.548161E-01_JPRB &
+  &, 0.497219E-01_JPRB, 0.449981E-01_JPRB, 0.406375E-01_JPRB &
+  &, 0.366144E-01_JPRB, 0.329308E-01_JPRB, 0.295384E-01_JPRB, 0.264489E-01_JPRB &
+  &, 0.236228E-01_JPRB, 0.210501E-01_JPRB, 0.187188E-01_JPRB &
+  &, 0.165960E-01_JPRB, 0.147008E-01_JPRB, 0.129768E-01_JPRB, 0.114392E-01_JPRB &
+  &, 0.100444E-01_JPRB, 0.882500E-02_JPRB, 0.771246E-02_JPRB &
+  &, 0.673711E-02_JPRB, 0.586675E-02_JPRB, 0.508788E-02_JPRB, 0.440788E-02_JPRB &
+  &, 0.381142E-02_JPRB, 0.330489E-02_JPRB, 0.284718E-02_JPRB &
+  &, 0.244217E-02_JPRB, 0.209383E-02_JPRB, 0.178094E-02_JPRB, 0.150622E-02_JPRB &
+  &, 0.129873E-02_JPRB, 0.108241E-02_JPRB, 0.911749E-03_JPRB &
+  &, 0.789724E-03_JPRB, 0.662620E-03_JPRB, 0.559257E-03_JPRB, 0.451715E-03_JPRB &
+  &, 0.369917E-03_JPRB, 0.315444E-03_JPRB, 0.258814E-03_JPRB &
+  &, 0.199990E-03_JPRB, 0.171171E-03_JPRB, 0.141237E-03_JPRB, 0.110172E-03_JPRB &
+  &, 0.779552E-04_JPRB, 0.791414E-04_JPRB, 0.451697E-04_JPRB &
+  &, 0.457747E-04_JPRB, 0.463856E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 182, :) = (/ &
+  &  0.908503E+00_JPRB, 0.885562E+00_JPRB, 0.862624E+00_JPRB, 0.839706E+00_JPRB &
+  &, 0.816821E+00_JPRB, 0.793987E+00_JPRB, 0.771217E+00_JPRB &
+  &, 0.748527E+00_JPRB, 0.725938E+00_JPRB, 0.703456E+00_JPRB, 0.681113E+00_JPRB &
+  &, 0.658910E+00_JPRB, 0.636872E+00_JPRB, 0.615011E+00_JPRB &
+  &, 0.593348E+00_JPRB, 0.571897E+00_JPRB, 0.550677E+00_JPRB, 0.529705E+00_JPRB &
+  &, 0.508997E+00_JPRB, 0.488571E+00_JPRB, 0.468443E+00_JPRB &
+  &, 0.448631E+00_JPRB, 0.429153E+00_JPRB, 0.410026E+00_JPRB, 0.391264E+00_JPRB &
+  &, 0.372884E+00_JPRB, 0.354903E+00_JPRB, 0.337334E+00_JPRB &
+  &, 0.320193E+00_JPRB, 0.303490E+00_JPRB, 0.287245E+00_JPRB, 0.271464E+00_JPRB &
+  &, 0.256158E+00_JPRB, 0.241343E+00_JPRB, 0.227019E+00_JPRB &
+  &, 0.213196E+00_JPRB, 0.199890E+00_JPRB, 0.187095E+00_JPRB, 0.174814E+00_JPRB &
+  &, 0.163053E+00_JPRB, 0.151811E+00_JPRB, 0.141091E+00_JPRB &
+  &, 0.130878E+00_JPRB, 0.121178E+00_JPRB, 0.111983E+00_JPRB, 0.103283E+00_JPRB &
+  &, 0.950734E-01_JPRB, 0.873491E-01_JPRB, 0.800884E-01_JPRB &
+  &, 0.732777E-01_JPRB, 0.668998E-01_JPRB, 0.609609E-01_JPRB, 0.554371E-01_JPRB &
+  &, 0.503000E-01_JPRB, 0.455307E-01_JPRB, 0.411372E-01_JPRB &
+  &, 0.370793E-01_JPRB, 0.333590E-01_JPRB, 0.299440E-01_JPRB, 0.268140E-01_JPRB &
+  &, 0.239623E-01_JPRB, 0.213626E-01_JPRB, 0.190028E-01_JPRB &
+  &, 0.168682E-01_JPRB, 0.149419E-01_JPRB, 0.131853E-01_JPRB, 0.116329E-01_JPRB &
+  &, 0.102225E-01_JPRB, 0.896652E-02_JPRB, 0.785701E-02_JPRB &
+  &, 0.686364E-02_JPRB, 0.597441E-02_JPRB, 0.519780E-02_JPRB, 0.449763E-02_JPRB &
+  &, 0.390302E-02_JPRB, 0.337499E-02_JPRB, 0.289486E-02_JPRB &
+  &, 0.249081E-02_JPRB, 0.214344E-02_JPRB, 0.183154E-02_JPRB, 0.155781E-02_JPRB &
+  &, 0.132503E-02_JPRB, 0.110922E-02_JPRB, 0.939075E-03_JPRB &
+  &, 0.789724E-03_JPRB, 0.662620E-03_JPRB, 0.559257E-03_JPRB, 0.481163E-03_JPRB &
+  &, 0.399910E-03_JPRB, 0.315444E-03_JPRB, 0.258814E-03_JPRB &
+  &, 0.231655E-03_JPRB, 0.171171E-03_JPRB, 0.141237E-03_JPRB, 0.110172E-03_JPRB &
+  &, 0.779552E-04_JPRB, 0.791414E-04_JPRB, 0.451697E-04_JPRB &
+  &, 0.457747E-04_JPRB, 0.463856E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART26',1,ZHOOK_HANDLE)
+END SUBROUTINE PART26
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART27
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART27',0,ZHOOK_HANDLE)
+
+XCW( 183, :) = (/ &
+  &  0.908859E+00_JPRB, 0.885999E+00_JPRB, 0.863139E+00_JPRB, 0.840297E+00_JPRB &
+  &, 0.817484E+00_JPRB, 0.794718E+00_JPRB, 0.772015E+00_JPRB &
+  &, 0.749389E+00_JPRB, 0.726858E+00_JPRB, 0.704436E+00_JPRB, 0.682140E+00_JPRB &
+  &, 0.659987E+00_JPRB, 0.637993E+00_JPRB, 0.616175E+00_JPRB &
+  &, 0.594551E+00_JPRB, 0.573136E+00_JPRB, 0.551948E+00_JPRB, 0.531004E+00_JPRB &
+  &, 0.510320E+00_JPRB, 0.489916E+00_JPRB, 0.469808E+00_JPRB &
+  &, 0.450010E+00_JPRB, 0.430544E+00_JPRB, 0.411425E+00_JPRB, 0.392667E+00_JPRB &
+  &, 0.374288E+00_JPRB, 0.356304E+00_JPRB, 0.338731E+00_JPRB &
+  &, 0.321577E+00_JPRB, 0.304868E+00_JPRB, 0.288604E+00_JPRB, 0.272807E+00_JPRB &
+  &, 0.257482E+00_JPRB, 0.242644E+00_JPRB, 0.228298E+00_JPRB &
+  &, 0.214451E+00_JPRB, 0.201111E+00_JPRB, 0.188288E+00_JPRB, 0.175967E+00_JPRB &
+  &, 0.164173E+00_JPRB, 0.152897E+00_JPRB, 0.142139E+00_JPRB &
+  &, 0.131886E+00_JPRB, 0.122154E+00_JPRB, 0.112914E+00_JPRB, 0.104177E+00_JPRB &
+  &, 0.959287E-01_JPRB, 0.881629E-01_JPRB, 0.808580E-01_JPRB &
+  &, 0.740004E-01_JPRB, 0.675997E-01_JPRB, 0.616087E-01_JPRB, 0.560440E-01_JPRB &
+  &, 0.508636E-01_JPRB, 0.460781E-01_JPRB, 0.416369E-01_JPRB &
+  &, 0.375597E-01_JPRB, 0.337871E-01_JPRB, 0.303496E-01_JPRB, 0.271791E-01_JPRB &
+  &, 0.243018E-01_JPRB, 0.216751E-01_JPRB, 0.192868E-01_JPRB &
+  &, 0.171223E-01_JPRB, 0.151830E-01_JPRB, 0.134128E-01_JPRB, 0.118266E-01_JPRB &
+  &, 0.104006E-01_JPRB, 0.912827E-02_JPRB, 0.800156E-02_JPRB &
+  &, 0.699017E-02_JPRB, 0.610360E-02_JPRB, 0.530771E-02_JPRB, 0.460982E-02_JPRB &
+  &, 0.399462E-02_JPRB, 0.344509E-02_JPRB, 0.296639E-02_JPRB &
+  &, 0.253945E-02_JPRB, 0.219305E-02_JPRB, 0.185684E-02_JPRB, 0.158361E-02_JPRB &
+  &, 0.135133E-02_JPRB, 0.116284E-02_JPRB, 0.966401E-03_JPRB &
+  &, 0.817571E-03_JPRB, 0.690995E-03_JPRB, 0.588165E-03_JPRB, 0.481163E-03_JPRB &
+  &, 0.399910E-03_JPRB, 0.345988E-03_JPRB, 0.289915E-03_JPRB &
+  &, 0.231655E-03_JPRB, 0.171171E-03_JPRB, 0.141237E-03_JPRB, 0.110172E-03_JPRB &
+  &, 0.111933E-03_JPRB, 0.791414E-04_JPRB, 0.451697E-04_JPRB &
+  &, 0.457747E-04_JPRB, 0.463856E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 184, :) = (/ &
+  &  0.909213E+00_JPRB, 0.886436E+00_JPRB, 0.863654E+00_JPRB, 0.840886E+00_JPRB &
+  &, 0.818145E+00_JPRB, 0.795449E+00_JPRB, 0.772810E+00_JPRB &
+  &, 0.750247E+00_JPRB, 0.727774E+00_JPRB, 0.705408E+00_JPRB, 0.683165E+00_JPRB &
+  &, 0.661061E+00_JPRB, 0.639113E+00_JPRB, 0.617338E+00_JPRB &
+  &, 0.595751E+00_JPRB, 0.574372E+00_JPRB, 0.553215E+00_JPRB, 0.532299E+00_JPRB &
+  &, 0.511641E+00_JPRB, 0.491258E+00_JPRB, 0.471166E+00_JPRB &
+  &, 0.451386E+00_JPRB, 0.431931E+00_JPRB, 0.412820E+00_JPRB, 0.394067E+00_JPRB &
+  &, 0.375688E+00_JPRB, 0.357704E+00_JPRB, 0.340123E+00_JPRB &
+  &, 0.322965E+00_JPRB, 0.306243E+00_JPRB, 0.289967E+00_JPRB, 0.274154E+00_JPRB &
+  &, 0.258811E+00_JPRB, 0.243949E+00_JPRB, 0.229577E+00_JPRB &
+  &, 0.215707E+00_JPRB, 0.202332E+00_JPRB, 0.189481E+00_JPRB, 0.177130E+00_JPRB &
+  &, 0.165304E+00_JPRB, 0.153993E+00_JPRB, 0.143187E+00_JPRB &
+  &, 0.132904E+00_JPRB, 0.123130E+00_JPRB, 0.113857E+00_JPRB, 0.105071E+00_JPRB &
+  &, 0.967840E-01_JPRB, 0.889767E-01_JPRB, 0.816276E-01_JPRB &
+  &, 0.747362E-01_JPRB, 0.682861E-01_JPRB, 0.622704E-01_JPRB, 0.566651E-01_JPRB &
+  &, 0.514561E-01_JPRB, 0.466107E-01_JPRB, 0.421517E-01_JPRB &
+  &, 0.380246E-01_JPRB, 0.342311E-01_JPRB, 0.307552E-01_JPRB, 0.275609E-01_JPRB &
+  &, 0.246413E-01_JPRB, 0.219876E-01_JPRB, 0.195885E-01_JPRB &
+  &, 0.173945E-01_JPRB, 0.154242E-01_JPRB, 0.136403E-01_JPRB, 0.120397E-01_JPRB &
+  &, 0.105986E-01_JPRB, 0.931023E-02_JPRB, 0.814611E-02_JPRB &
+  &, 0.711670E-02_JPRB, 0.621126E-02_JPRB, 0.541762E-02_JPRB, 0.469958E-02_JPRB &
+  &, 0.406332E-02_JPRB, 0.351520E-02_JPRB, 0.303791E-02_JPRB &
+  &, 0.261242E-02_JPRB, 0.224267E-02_JPRB, 0.190744E-02_JPRB, 0.163520E-02_JPRB &
+  &, 0.137763E-02_JPRB, 0.118965E-02_JPRB, 0.993727E-03_JPRB &
+  &, 0.845418E-03_JPRB, 0.719370E-03_JPRB, 0.588165E-03_JPRB, 0.510610E-03_JPRB &
+  &, 0.429903E-03_JPRB, 0.345988E-03_JPRB, 0.289915E-03_JPRB &
+  &, 0.231655E-03_JPRB, 0.203405E-03_JPRB, 0.141237E-03_JPRB, 0.143562E-03_JPRB &
+  &, 0.111933E-03_JPRB, 0.791414E-04_JPRB, 0.803394E-04_JPRB &
+  &, 0.457747E-04_JPRB, 0.463856E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 185, :) = (/ &
+  &  0.909567E+00_JPRB, 0.886870E+00_JPRB, 0.864166E+00_JPRB, 0.841473E+00_JPRB &
+  &, 0.818805E+00_JPRB, 0.796176E+00_JPRB, 0.773604E+00_JPRB &
+  &, 0.751102E+00_JPRB, 0.728688E+00_JPRB, 0.706378E+00_JPRB, 0.684187E+00_JPRB &
+  &, 0.662133E+00_JPRB, 0.640229E+00_JPRB, 0.618494E+00_JPRB &
+  &, 0.596949E+00_JPRB, 0.575605E+00_JPRB, 0.554481E+00_JPRB, 0.533595E+00_JPRB &
+  &, 0.512961E+00_JPRB, 0.492600E+00_JPRB, 0.472528E+00_JPRB &
+  &, 0.452762E+00_JPRB, 0.433318E+00_JPRB, 0.414215E+00_JPRB, 0.395467E+00_JPRB &
+  &, 0.377089E+00_JPRB, 0.359101E+00_JPRB, 0.341520E+00_JPRB &
+  &, 0.324353E+00_JPRB, 0.307621E+00_JPRB, 0.291331E+00_JPRB, 0.275501E+00_JPRB &
+  &, 0.260136E+00_JPRB, 0.245254E+00_JPRB, 0.230861E+00_JPRB &
+  &, 0.216963E+00_JPRB, 0.203562E+00_JPRB, 0.190674E+00_JPRB, 0.178293E+00_JPRB &
+  &, 0.166434E+00_JPRB, 0.155089E+00_JPRB, 0.144245E+00_JPRB &
+  &, 0.133923E+00_JPRB, 0.124107E+00_JPRB, 0.114799E+00_JPRB, 0.105978E+00_JPRB &
+  &, 0.976516E-01_JPRB, 0.897905E-01_JPRB, 0.824101E-01_JPRB &
+  &, 0.754721E-01_JPRB, 0.689859E-01_JPRB, 0.629320E-01_JPRB, 0.572861E-01_JPRB &
+  &, 0.520341E-01_JPRB, 0.471580E-01_JPRB, 0.426514E-01_JPRB &
+  &, 0.385050E-01_JPRB, 0.346752E-01_JPRB, 0.311608E-01_JPRB, 0.279426E-01_JPRB &
+  &, 0.249978E-01_JPRB, 0.223174E-01_JPRB, 0.198725E-01_JPRB &
+  &, 0.176667E-01_JPRB, 0.156653E-01_JPRB, 0.138677E-01_JPRB, 0.122334E-01_JPRB &
+  &, 0.107767E-01_JPRB, 0.947197E-02_JPRB, 0.829066E-02_JPRB &
+  &, 0.726431E-02_JPRB, 0.634046E-02_JPRB, 0.552753E-02_JPRB, 0.478933E-02_JPRB &
+  &, 0.415492E-02_JPRB, 0.358530E-02_JPRB, 0.308560E-02_JPRB &
+  &, 0.266106E-02_JPRB, 0.229228E-02_JPRB, 0.195804E-02_JPRB, 0.166100E-02_JPRB &
+  &, 0.143023E-02_JPRB, 0.121646E-02_JPRB, 0.102105E-02_JPRB &
+  &, 0.873266E-03_JPRB, 0.719370E-03_JPRB, 0.617073E-03_JPRB, 0.510610E-03_JPRB &
+  &, 0.429903E-03_JPRB, 0.345988E-03_JPRB, 0.289915E-03_JPRB &
+  &, 0.231655E-03_JPRB, 0.203405E-03_JPRB, 0.174047E-03_JPRB, 0.143562E-03_JPRB &
+  &, 0.111933E-03_JPRB, 0.791414E-04_JPRB, 0.803394E-04_JPRB &
+  &, 0.457747E-04_JPRB, 0.463856E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 186, :) = (/ &
+  &  0.909919E+00_JPRB, 0.887303E+00_JPRB, 0.864677E+00_JPRB, 0.842059E+00_JPRB &
+  &, 0.819462E+00_JPRB, 0.796902E+00_JPRB, 0.774394E+00_JPRB &
+  &, 0.751955E+00_JPRB, 0.729600E+00_JPRB, 0.707345E+00_JPRB, 0.685207E+00_JPRB &
+  &, 0.663201E+00_JPRB, 0.641344E+00_JPRB, 0.619653E+00_JPRB &
+  &, 0.598145E+00_JPRB, 0.576837E+00_JPRB, 0.555745E+00_JPRB, 0.534886E+00_JPRB &
+  &, 0.514279E+00_JPRB, 0.493939E+00_JPRB, 0.473887E+00_JPRB &
+  &, 0.454135E+00_JPRB, 0.434702E+00_JPRB, 0.415606E+00_JPRB, 0.396863E+00_JPRB &
+  &, 0.378489E+00_JPRB, 0.360502E+00_JPRB, 0.342913E+00_JPRB &
+  &, 0.325741E+00_JPRB, 0.308995E+00_JPRB, 0.292694E+00_JPRB, 0.276848E+00_JPRB &
+  &, 0.261465E+00_JPRB, 0.246559E+00_JPRB, 0.232144E+00_JPRB &
+  &, 0.218218E+00_JPRB, 0.204792E+00_JPRB, 0.191867E+00_JPRB, 0.179456E+00_JPRB &
+  &, 0.167565E+00_JPRB, 0.156185E+00_JPRB, 0.145304E+00_JPRB &
+  &, 0.134942E+00_JPRB, 0.125094E+00_JPRB, 0.115742E+00_JPRB, 0.106884E+00_JPRB &
+  &, 0.985069E-01_JPRB, 0.906169E-01_JPRB, 0.831925E-01_JPRB &
+  &, 0.762210E-01_JPRB, 0.696858E-01_JPRB, 0.635936E-01_JPRB, 0.579071E-01_JPRB &
+  &, 0.526121E-01_JPRB, 0.477054E-01_JPRB, 0.431663E-01_JPRB &
+  &, 0.389855E-01_JPRB, 0.351192E-01_JPRB, 0.315664E-01_JPRB, 0.283243E-01_JPRB &
+  &, 0.253543E-01_JPRB, 0.226472E-01_JPRB, 0.201743E-01_JPRB &
+  &, 0.179389E-01_JPRB, 0.159065E-01_JPRB, 0.140763E-01_JPRB, 0.124465E-01_JPRB &
+  &, 0.109548E-01_JPRB, 0.963372E-02_JPRB, 0.845586E-02_JPRB &
+  &, 0.739084E-02_JPRB, 0.644812E-02_JPRB, 0.561546E-02_JPRB, 0.487908E-02_JPRB &
+  &, 0.424652E-02_JPRB, 0.367878E-02_JPRB, 0.315712E-02_JPRB &
+  &, 0.273403E-02_JPRB, 0.234190E-02_JPRB, 0.200864E-02_JPRB, 0.171259E-02_JPRB &
+  &, 0.145653E-02_JPRB, 0.124327E-02_JPRB, 0.104838E-02_JPRB &
+  &, 0.901113E-03_JPRB, 0.747744E-03_JPRB, 0.645981E-03_JPRB, 0.540058E-03_JPRB &
+  &, 0.429903E-03_JPRB, 0.376533E-03_JPRB, 0.289915E-03_JPRB &
+  &, 0.263320E-03_JPRB, 0.203405E-03_JPRB, 0.174047E-03_JPRB, 0.143562E-03_JPRB &
+  &, 0.111933E-03_JPRB, 0.791414E-04_JPRB, 0.803394E-04_JPRB &
+  &, 0.457747E-04_JPRB, 0.463856E-04_JPRB, 0.470026E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 187, :) = (/ &
+  &  0.910271E+00_JPRB, 0.887735E+00_JPRB, 0.865187E+00_JPRB, 0.842643E+00_JPRB &
+  &, 0.820117E+00_JPRB, 0.797626E+00_JPRB, 0.775182E+00_JPRB &
+  &, 0.752806E+00_JPRB, 0.730510E+00_JPRB, 0.708311E+00_JPRB, 0.686224E+00_JPRB &
+  &, 0.664267E+00_JPRB, 0.642457E+00_JPRB, 0.620808E+00_JPRB &
+  &, 0.599339E+00_JPRB, 0.578065E+00_JPRB, 0.557006E+00_JPRB, 0.536177E+00_JPRB &
+  &, 0.515594E+00_JPRB, 0.495277E+00_JPRB, 0.475242E+00_JPRB &
+  &, 0.455504E+00_JPRB, 0.436086E+00_JPRB, 0.416998E+00_JPRB, 0.398263E+00_JPRB &
+  &, 0.379889E+00_JPRB, 0.361899E+00_JPRB, 0.344306E+00_JPRB &
+  &, 0.327126E+00_JPRB, 0.310374E+00_JPRB, 0.294058E+00_JPRB, 0.278195E+00_JPRB &
+  &, 0.262795E+00_JPRB, 0.247869E+00_JPRB, 0.233423E+00_JPRB &
+  &, 0.219474E+00_JPRB, 0.206023E+00_JPRB, 0.193069E+00_JPRB, 0.180629E+00_JPRB &
+  &, 0.168696E+00_JPRB, 0.157280E+00_JPRB, 0.146374E+00_JPRB &
+  &, 0.135972E+00_JPRB, 0.126082E+00_JPRB, 0.116684E+00_JPRB, 0.107790E+00_JPRB &
+  &, 0.993744E-01_JPRB, 0.914432E-01_JPRB, 0.839750E-01_JPRB &
+  &, 0.769700E-01_JPRB, 0.703991E-01_JPRB, 0.642552E-01_JPRB, 0.585282E-01_JPRB &
+  &, 0.532046E-01_JPRB, 0.482676E-01_JPRB, 0.436811E-01_JPRB &
+  &, 0.394659E-01_JPRB, 0.355632E-01_JPRB, 0.319882E-01_JPRB, 0.287060E-01_JPRB &
+  &, 0.257108E-01_JPRB, 0.229597E-01_JPRB, 0.204760E-01_JPRB &
+  &, 0.182111E-01_JPRB, 0.161661E-01_JPRB, 0.143227E-01_JPRB, 0.126402E-01_JPRB &
+  &, 0.111527E-01_JPRB, 0.981568E-02_JPRB, 0.860041E-02_JPRB &
+  &, 0.753846E-02_JPRB, 0.657731E-02_JPRB, 0.574735E-02_JPRB, 0.499127E-02_JPRB &
+  &, 0.433812E-02_JPRB, 0.374888E-02_JPRB, 0.322865E-02_JPRB &
+  &, 0.278267E-02_JPRB, 0.239151E-02_JPRB, 0.205923E-02_JPRB, 0.176419E-02_JPRB &
+  &, 0.150913E-02_JPRB, 0.127008E-02_JPRB, 0.107570E-02_JPRB &
+  &, 0.928960E-03_JPRB, 0.776119E-03_JPRB, 0.645981E-03_JPRB, 0.540058E-03_JPRB &
+  &, 0.459896E-03_JPRB, 0.376533E-03_JPRB, 0.321017E-03_JPRB &
+  &, 0.263320E-03_JPRB, 0.203405E-03_JPRB, 0.174047E-03_JPRB, 0.143562E-03_JPRB &
+  &, 0.111933E-03_JPRB, 0.791414E-04_JPRB, 0.803394E-04_JPRB &
+  &, 0.457747E-04_JPRB, 0.463856E-04_JPRB, 0.470026E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 188, :) = (/ &
+  &  0.910622E+00_JPRB, 0.888165E+00_JPRB, 0.865695E+00_JPRB, 0.843226E+00_JPRB &
+  &, 0.820771E+00_JPRB, 0.798347E+00_JPRB, 0.775970E+00_JPRB &
+  &, 0.753655E+00_JPRB, 0.731417E+00_JPRB, 0.709274E+00_JPRB, 0.687240E+00_JPRB &
+  &, 0.665332E+00_JPRB, 0.643566E+00_JPRB, 0.621960E+00_JPRB &
+  &, 0.600530E+00_JPRB, 0.579293E+00_JPRB, 0.558265E+00_JPRB, 0.537463E+00_JPRB &
+  &, 0.516908E+00_JPRB, 0.496613E+00_JPRB, 0.476594E+00_JPRB &
+  &, 0.456873E+00_JPRB, 0.437466E+00_JPRB, 0.418390E+00_JPRB, 0.399659E+00_JPRB &
+  &, 0.381286E+00_JPRB, 0.363296E+00_JPRB, 0.345699E+00_JPRB &
+  &, 0.328514E+00_JPRB, 0.311748E+00_JPRB, 0.295421E+00_JPRB, 0.279543E+00_JPRB &
+  &, 0.264124E+00_JPRB, 0.244648E+00_JPRB, 0.234712E+00_JPRB &
+  &, 0.220730E+00_JPRB, 0.207253E+00_JPRB, 0.194272E+00_JPRB, 0.181802E+00_JPRB &
+  &, 0.169837E+00_JPRB, 0.158376E+00_JPRB, 0.147432E+00_JPRB &
+  &, 0.137002E+00_JPRB, 0.127070E+00_JPRB, 0.117638E+00_JPRB, 0.108696E+00_JPRB &
+  &, 0.100242E+00_JPRB, 0.922695E-01_JPRB, 0.847702E-01_JPRB &
+  &, 0.777190E-01_JPRB, 0.711124E-01_JPRB, 0.649306E-01_JPRB, 0.591633E-01_JPRB &
+  &, 0.537971E-01_JPRB, 0.488150E-01_JPRB, 0.442111E-01_JPRB &
+  &, 0.399463E-01_JPRB, 0.360231E-01_JPRB, 0.324101E-01_JPRB, 0.290878E-01_JPRB &
+  &, 0.260672E-01_JPRB, 0.232896E-01_JPRB, 0.207778E-01_JPRB &
+  &, 0.184833E-01_JPRB, 0.164258E-01_JPRB, 0.145502E-01_JPRB, 0.128533E-01_JPRB &
+  &, 0.113309E-01_JPRB, 0.997742E-02_JPRB, 0.876561E-02_JPRB &
+  &, 0.766499E-02_JPRB, 0.670650E-02_JPRB, 0.585726E-02_JPRB, 0.508102E-02_JPRB &
+  &, 0.440682E-02_JPRB, 0.381898E-02_JPRB, 0.330018E-02_JPRB &
+  &, 0.285563E-02_JPRB, 0.244113E-02_JPRB, 0.210983E-02_JPRB, 0.178998E-02_JPRB &
+  &, 0.153543E-02_JPRB, 0.129689E-02_JPRB, 0.110303E-02_JPRB &
+  &, 0.928960E-03_JPRB, 0.804494E-03_JPRB, 0.674890E-03_JPRB, 0.569506E-03_JPRB &
+  &, 0.459896E-03_JPRB, 0.376533E-03_JPRB, 0.321017E-03_JPRB &
+  &, 0.263320E-03_JPRB, 0.235639E-03_JPRB, 0.174047E-03_JPRB, 0.143562E-03_JPRB &
+  &, 0.111933E-03_JPRB, 0.791414E-04_JPRB, 0.803394E-04_JPRB &
+  &, 0.457747E-04_JPRB, 0.463856E-04_JPRB, 0.470026E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 189, :) = (/ &
+  &  0.910970E+00_JPRB, 0.888595E+00_JPRB, 0.866201E+00_JPRB, 0.843806E+00_JPRB &
+  &, 0.821422E+00_JPRB, 0.799068E+00_JPRB, 0.776755E+00_JPRB &
+  &, 0.754501E+00_JPRB, 0.732323E+00_JPRB, 0.710234E+00_JPRB, 0.688253E+00_JPRB &
+  &, 0.666391E+00_JPRB, 0.644674E+00_JPRB, 0.623109E+00_JPRB &
+  &, 0.601718E+00_JPRB, 0.580517E+00_JPRB, 0.559521E+00_JPRB, 0.538750E+00_JPRB &
+  &, 0.518219E+00_JPRB, 0.497945E+00_JPRB, 0.477946E+00_JPRB &
+  &, 0.458242E+00_JPRB, 0.438846E+00_JPRB, 0.419778E+00_JPRB, 0.401051E+00_JPRB &
+  &, 0.382687E+00_JPRB, 0.364693E+00_JPRB, 0.347092E+00_JPRB &
+  &, 0.329898E+00_JPRB, 0.313123E+00_JPRB, 0.296785E+00_JPRB, 0.280890E+00_JPRB &
+  &, 0.265453E+00_JPRB, 0.250483E+00_JPRB, 0.235995E+00_JPRB &
+  &, 0.221995E+00_JPRB, 0.208483E+00_JPRB, 0.195475E+00_JPRB, 0.182965E+00_JPRB &
+  &, 0.170967E+00_JPRB, 0.159483E+00_JPRB, 0.148502E+00_JPRB &
+  &, 0.138032E+00_JPRB, 0.128057E+00_JPRB, 0.118592E+00_JPRB, 0.109614E+00_JPRB &
+  &, 0.101122E+00_JPRB, 0.931083E-01_JPRB, 0.855527E-01_JPRB &
+  &, 0.784679E-01_JPRB, 0.718257E-01_JPRB, 0.656060E-01_JPRB, 0.597985E-01_JPRB &
+  &, 0.543896E-01_JPRB, 0.493771E-01_JPRB, 0.447260E-01_JPRB &
+  &, 0.404267E-01_JPRB, 0.364671E-01_JPRB, 0.328319E-01_JPRB, 0.294861E-01_JPRB &
+  &, 0.264237E-01_JPRB, 0.236367E-01_JPRB, 0.210796E-01_JPRB &
+  &, 0.187736E-01_JPRB, 0.166670E-01_JPRB, 0.147777E-01_JPRB, 0.130664E-01_JPRB &
+  &, 0.115288E-01_JPRB, 0.101594E-01_JPRB, 0.891016E-02_JPRB &
+  &, 0.781260E-02_JPRB, 0.683570E-02_JPRB, 0.596717E-02_JPRB, 0.519321E-02_JPRB &
+  &, 0.449842E-02_JPRB, 0.391245E-02_JPRB, 0.337170E-02_JPRB &
+  &, 0.290428E-02_JPRB, 0.251555E-02_JPRB, 0.216043E-02_JPRB, 0.184158E-02_JPRB &
+  &, 0.156173E-02_JPRB, 0.135051E-02_JPRB, 0.113036E-02_JPRB &
+  &, 0.956808E-03_JPRB, 0.804494E-03_JPRB, 0.674890E-03_JPRB, 0.569506E-03_JPRB &
+  &, 0.489889E-03_JPRB, 0.407077E-03_JPRB, 0.321017E-03_JPRB &
+  &, 0.263320E-03_JPRB, 0.235639E-03_JPRB, 0.174047E-03_JPRB, 0.143562E-03_JPRB &
+  &, 0.111933E-03_JPRB, 0.113712E-03_JPRB, 0.803394E-04_JPRB &
+  &, 0.457747E-04_JPRB, 0.463856E-04_JPRB, 0.470026E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART27',1,ZHOOK_HANDLE)
+END SUBROUTINE PART27
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART28
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART28',0,ZHOOK_HANDLE)
+
+XCW( 190, :) = (/ &
+  &  0.911319E+00_JPRB, 0.889023E+00_JPRB, 0.866706E+00_JPRB, 0.844385E+00_JPRB &
+  &, 0.822072E+00_JPRB, 0.799785E+00_JPRB, 0.777538E+00_JPRB &
+  &, 0.755346E+00_JPRB, 0.733226E+00_JPRB, 0.711192E+00_JPRB, 0.689263E+00_JPRB &
+  &, 0.667453E+00_JPRB, 0.645778E+00_JPRB, 0.624258E+00_JPRB &
+  &, 0.602905E+00_JPRB, 0.581738E+00_JPRB, 0.560776E+00_JPRB, 0.540033E+00_JPRB &
+  &, 0.519529E+00_JPRB, 0.499278E+00_JPRB, 0.479298E+00_JPRB &
+  &, 0.459608E+00_JPRB, 0.440227E+00_JPRB, 0.421166E+00_JPRB, 0.402447E+00_JPRB &
+  &, 0.384083E+00_JPRB, 0.366090E+00_JPRB, 0.348485E+00_JPRB &
+  &, 0.331286E+00_JPRB, 0.314501E+00_JPRB, 0.298148E+00_JPRB, 0.282237E+00_JPRB &
+  &, 0.266782E+00_JPRB, 0.251793E+00_JPRB, 0.237283E+00_JPRB &
+  &, 0.223250E+00_JPRB, 0.209713E+00_JPRB, 0.196678E+00_JPRB, 0.184138E+00_JPRB &
+  &, 0.172108E+00_JPRB, 0.160589E+00_JPRB, 0.149571E+00_JPRB &
+  &, 0.139062E+00_JPRB, 0.129056E+00_JPRB, 0.119546E+00_JPRB, 0.110521E+00_JPRB &
+  &, 0.102002E+00_JPRB, 0.939472E-01_JPRB, 0.863479E-01_JPRB &
+  &, 0.792169E-01_JPRB, 0.725390E-01_JPRB, 0.662814E-01_JPRB, 0.604336E-01_JPRB &
+  &, 0.549966E-01_JPRB, 0.499393E-01_JPRB, 0.452559E-01_JPRB &
+  &, 0.409226E-01_JPRB, 0.369270E-01_JPRB, 0.332537E-01_JPRB, 0.298844E-01_JPRB &
+  &, 0.267802E-01_JPRB, 0.239666E-01_JPRB, 0.213991E-01_JPRB &
+  &, 0.190458E-01_JPRB, 0.169266E-01_JPRB, 0.150241E-01_JPRB, 0.132795E-01_JPRB &
+  &, 0.117267E-01_JPRB, 0.103211E-01_JPRB, 0.907536E-02_JPRB &
+  &, 0.796022E-02_JPRB, 0.696489E-02_JPRB, 0.607708E-02_JPRB, 0.530541E-02_JPRB &
+  &, 0.459002E-02_JPRB, 0.398256E-02_JPRB, 0.344323E-02_JPRB &
+  &, 0.297724E-02_JPRB, 0.256517E-02_JPRB, 0.221103E-02_JPRB, 0.189317E-02_JPRB &
+  &, 0.161433E-02_JPRB, 0.137732E-02_JPRB, 0.115768E-02_JPRB &
+  &, 0.984655E-03_JPRB, 0.832869E-03_JPRB, 0.703798E-03_JPRB, 0.598953E-03_JPRB &
+  &, 0.489889E-03_JPRB, 0.407077E-03_JPRB, 0.352119E-03_JPRB &
+  &, 0.294985E-03_JPRB, 0.235639E-03_JPRB, 0.206856E-03_JPRB, 0.143562E-03_JPRB &
+  &, 0.111933E-03_JPRB, 0.113712E-03_JPRB, 0.803394E-04_JPRB &
+  &, 0.815494E-04_JPRB, 0.463856E-04_JPRB, 0.470026E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 191, :) = (/ &
+  &  0.911666E+00_JPRB, 0.889450E+00_JPRB, 0.867210E+00_JPRB, 0.844963E+00_JPRB &
+  &, 0.822721E+00_JPRB, 0.800501E+00_JPRB, 0.778319E+00_JPRB &
+  &, 0.756188E+00_JPRB, 0.734126E+00_JPRB, 0.712149E+00_JPRB, 0.690272E+00_JPRB &
+  &, 0.668510E+00_JPRB, 0.646882E+00_JPRB, 0.625402E+00_JPRB &
+  &, 0.604090E+00_JPRB, 0.582958E+00_JPRB, 0.562029E+00_JPRB, 0.541315E+00_JPRB &
+  &, 0.520836E+00_JPRB, 0.500607E+00_JPRB, 0.480647E+00_JPRB &
+  &, 0.460974E+00_JPRB, 0.441604E+00_JPRB, 0.422551E+00_JPRB, 0.403840E+00_JPRB &
+  &, 0.385476E+00_JPRB, 0.367483E+00_JPRB, 0.349878E+00_JPRB &
+  &, 0.332670E+00_JPRB, 0.315875E+00_JPRB, 0.299512E+00_JPRB, 0.283584E+00_JPRB &
+  &, 0.268115E+00_JPRB, 0.253107E+00_JPRB, 0.238572E+00_JPRB &
+  &, 0.224515E+00_JPRB, 0.210953E+00_JPRB, 0.197880E+00_JPRB, 0.185321E+00_JPRB &
+  &, 0.173249E+00_JPRB, 0.161696E+00_JPRB, 0.150641E+00_JPRB &
+  &, 0.140092E+00_JPRB, 0.130044E+00_JPRB, 0.120500E+00_JPRB, 0.111451E+00_JPRB &
+  &, 0.102869E+00_JPRB, 0.947860E-01_JPRB, 0.871560E-01_JPRB &
+  &, 0.799790E-01_JPRB, 0.732524E-01_JPRB, 0.669568E-01_JPRB, 0.610829E-01_JPRB &
+  &, 0.556035E-01_JPRB, 0.505163E-01_JPRB, 0.457859E-01_JPRB &
+  &, 0.414185E-01_JPRB, 0.373869E-01_JPRB, 0.336756E-01_JPRB, 0.302828E-01_JPRB &
+  &, 0.271537E-01_JPRB, 0.242964E-01_JPRB, 0.217008E-01_JPRB &
+  &, 0.193362E-01_JPRB, 0.171863E-01_JPRB, 0.152516E-01_JPRB, 0.134926E-01_JPRB &
+  &, 0.119246E-01_JPRB, 0.105031E-01_JPRB, 0.924056E-02_JPRB &
+  &, 0.810784E-02_JPRB, 0.709408E-02_JPRB, 0.618699E-02_JPRB, 0.539516E-02_JPRB &
+  &, 0.470452E-02_JPRB, 0.407603E-02_JPRB, 0.351475E-02_JPRB &
+  &, 0.305021E-02_JPRB, 0.261478E-02_JPRB, 0.226163E-02_JPRB, 0.191897E-02_JPRB &
+  &, 0.164063E-02_JPRB, 0.140413E-02_JPRB, 0.118501E-02_JPRB &
+  &, 0.101250E-02_JPRB, 0.861244E-03_JPRB, 0.732706E-03_JPRB, 0.598953E-03_JPRB &
+  &, 0.519882E-03_JPRB, 0.437621E-03_JPRB, 0.352119E-03_JPRB &
+  &, 0.294985E-03_JPRB, 0.235639E-03_JPRB, 0.206856E-03_JPRB, 0.176953E-03_JPRB &
+  &, 0.145910E-03_JPRB, 0.113712E-03_JPRB, 0.803394E-04_JPRB &
+  &, 0.815494E-04_JPRB, 0.463856E-04_JPRB, 0.470026E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 192, :) = (/ &
+  &  0.912011E+00_JPRB, 0.889875E+00_JPRB, 0.867712E+00_JPRB, 0.845538E+00_JPRB &
+  &, 0.823368E+00_JPRB, 0.801215E+00_JPRB, 0.779097E+00_JPRB &
+  &, 0.757029E+00_JPRB, 0.735026E+00_JPRB, 0.713103E+00_JPRB, 0.691278E+00_JPRB &
+  &, 0.669565E+00_JPRB, 0.647983E+00_JPRB, 0.626545E+00_JPRB &
+  &, 0.605271E+00_JPRB, 0.584177E+00_JPRB, 0.563279E+00_JPRB, 0.542594E+00_JPRB &
+  &, 0.522141E+00_JPRB, 0.501936E+00_JPRB, 0.481996E+00_JPRB &
+  &, 0.462337E+00_JPRB, 0.442981E+00_JPRB, 0.423939E+00_JPRB, 0.405229E+00_JPRB &
+  &, 0.386873E+00_JPRB, 0.368880E+00_JPRB, 0.351271E+00_JPRB &
+  &, 0.334054E+00_JPRB, 0.317254E+00_JPRB, 0.300875E+00_JPRB, 0.284935E+00_JPRB &
+  &, 0.269445E+00_JPRB, 0.254416E+00_JPRB, 0.239860E+00_JPRB &
+  &, 0.225780E+00_JPRB, 0.212183E+00_JPRB, 0.199093E+00_JPRB, 0.186494E+00_JPRB &
+  &, 0.174400E+00_JPRB, 0.162802E+00_JPRB, 0.151721E+00_JPRB &
+  &, 0.141133E+00_JPRB, 0.131054E+00_JPRB, 0.121466E+00_JPRB, 0.112369E+00_JPRB &
+  &, 0.103761E+00_JPRB, 0.956248E-01_JPRB, 0.879513E-01_JPRB &
+  &, 0.807411E-01_JPRB, 0.739791E-01_JPRB, 0.676459E-01_JPRB, 0.617180E-01_JPRB &
+  &, 0.562105E-01_JPRB, 0.510784E-01_JPRB, 0.463159E-01_JPRB &
+  &, 0.419144E-01_JPRB, 0.378626E-01_JPRB, 0.341136E-01_JPRB, 0.306811E-01_JPRB &
+  &, 0.275271E-01_JPRB, 0.246436E-01_JPRB, 0.220203E-01_JPRB &
+  &, 0.196265E-01_JPRB, 0.174646E-01_JPRB, 0.154981E-01_JPRB, 0.137250E-01_JPRB &
+  &, 0.121225E-01_JPRB, 0.106850E-01_JPRB, 0.940576E-02_JPRB &
+  &, 0.825545E-02_JPRB, 0.722328E-02_JPRB, 0.631889E-02_JPRB, 0.550735E-02_JPRB &
+  &, 0.479612E-02_JPRB, 0.414613E-02_JPRB, 0.361012E-02_JPRB &
+  &, 0.309885E-02_JPRB, 0.268920E-02_JPRB, 0.231223E-02_JPRB, 0.197056E-02_JPRB &
+  &, 0.169323E-02_JPRB, 0.143094E-02_JPRB, 0.123966E-02_JPRB &
+  &, 0.104035E-02_JPRB, 0.889618E-03_JPRB, 0.732706E-03_JPRB, 0.628401E-03_JPRB &
+  &, 0.519882E-03_JPRB, 0.437621E-03_JPRB, 0.352119E-03_JPRB &
+  &, 0.294985E-03_JPRB, 0.267873E-03_JPRB, 0.206856E-03_JPRB, 0.176953E-03_JPRB &
+  &, 0.145910E-03_JPRB, 0.113712E-03_JPRB, 0.803394E-04_JPRB &
+  &, 0.815494E-04_JPRB, 0.463856E-04_JPRB, 0.470026E-04_JPRB, 0.476254E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 193, :) = (/ &
+  &  0.912357E+00_JPRB, 0.890300E+00_JPRB, 0.868213E+00_JPRB, 0.846112E+00_JPRB &
+  &, 0.824012E+00_JPRB, 0.801928E+00_JPRB, 0.779874E+00_JPRB &
+  &, 0.757867E+00_JPRB, 0.735922E+00_JPRB, 0.714055E+00_JPRB, 0.692281E+00_JPRB &
+  &, 0.670617E+00_JPRB, 0.649081E+00_JPRB, 0.627686E+00_JPRB &
+  &, 0.606450E+00_JPRB, 0.585392E+00_JPRB, 0.564528E+00_JPRB, 0.543873E+00_JPRB &
+  &, 0.523445E+00_JPRB, 0.503263E+00_JPRB, 0.483342E+00_JPRB &
+  &, 0.463700E+00_JPRB, 0.444354E+00_JPRB, 0.425324E+00_JPRB, 0.406621E+00_JPRB &
+  &, 0.388266E+00_JPRB, 0.370274E+00_JPRB, 0.352660E+00_JPRB &
+  &, 0.335438E+00_JPRB, 0.318628E+00_JPRB, 0.302238E+00_JPRB, 0.286282E+00_JPRB &
+  &, 0.270778E+00_JPRB, 0.255730E+00_JPRB, 0.241148E+00_JPRB &
+  &, 0.227045E+00_JPRB, 0.213423E+00_JPRB, 0.200305E+00_JPRB, 0.187667E+00_JPRB &
+  &, 0.175541E+00_JPRB, 0.163919E+00_JPRB, 0.152791E+00_JPRB &
+  &, 0.142174E+00_JPRB, 0.132053E+00_JPRB, 0.122432E+00_JPRB, 0.113287E+00_JPRB &
+  &, 0.104641E+00_JPRB, 0.964637E-01_JPRB, 0.887594E-01_JPRB &
+  &, 0.815164E-01_JPRB, 0.747059E-01_JPRB, 0.683351E-01_JPRB, 0.623673E-01_JPRB &
+  &, 0.568174E-01_JPRB, 0.516554E-01_JPRB, 0.468610E-01_JPRB &
+  &, 0.424258E-01_JPRB, 0.383225E-01_JPRB, 0.345517E-01_JPRB, 0.310794E-01_JPRB &
+  &, 0.279006E-01_JPRB, 0.249908E-01_JPRB, 0.223398E-01_JPRB &
+  &, 0.199168E-01_JPRB, 0.177243E-01_JPRB, 0.157445E-01_JPRB, 0.139381E-01_JPRB &
+  &, 0.123204E-01_JPRB, 0.108670E-01_JPRB, 0.957096E-02_JPRB &
+  &, 0.840307E-02_JPRB, 0.735247E-02_JPRB, 0.642880E-02_JPRB, 0.561954E-02_JPRB &
+  &, 0.488772E-02_JPRB, 0.423961E-02_JPRB, 0.368164E-02_JPRB &
+  &, 0.317182E-02_JPRB, 0.273882E-02_JPRB, 0.236282E-02_JPRB, 0.202216E-02_JPRB &
+  &, 0.171954E-02_JPRB, 0.148456E-02_JPRB, 0.126698E-02_JPRB &
+  &, 0.106820E-02_JPRB, 0.917993E-03_JPRB, 0.761614E-03_JPRB, 0.657849E-03_JPRB &
+  &, 0.549875E-03_JPRB, 0.468166E-03_JPRB, 0.383220E-03_JPRB &
+  &, 0.326650E-03_JPRB, 0.267873E-03_JPRB, 0.206856E-03_JPRB, 0.176953E-03_JPRB &
+  &, 0.145910E-03_JPRB, 0.113712E-03_JPRB, 0.803394E-04_JPRB &
+  &, 0.815494E-04_JPRB, 0.463856E-04_JPRB, 0.470026E-04_JPRB, 0.476254E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 194, :) = (/ &
+  &  0.912701E+00_JPRB, 0.890723E+00_JPRB, 0.868712E+00_JPRB, 0.846685E+00_JPRB &
+  &, 0.824655E+00_JPRB, 0.802638E+00_JPRB, 0.780649E+00_JPRB &
+  &, 0.758703E+00_JPRB, 0.736816E+00_JPRB, 0.715004E+00_JPRB, 0.693283E+00_JPRB &
+  &, 0.671668E+00_JPRB, 0.650177E+00_JPRB, 0.628825E+00_JPRB &
+  &, 0.607629E+00_JPRB, 0.586607E+00_JPRB, 0.565773E+00_JPRB, 0.545147E+00_JPRB &
+  &, 0.524746E+00_JPRB, 0.504585E+00_JPRB, 0.484684E+00_JPRB &
+  &, 0.465059E+00_JPRB, 0.445728E+00_JPRB, 0.426705E+00_JPRB, 0.408010E+00_JPRB &
+  &, 0.389659E+00_JPRB, 0.371667E+00_JPRB, 0.354049E+00_JPRB &
+  &, 0.336823E+00_JPRB, 0.320002E+00_JPRB, 0.303602E+00_JPRB, 0.287633E+00_JPRB &
+  &, 0.272111E+00_JPRB, 0.257040E+00_JPRB, 0.242441E+00_JPRB &
+  &, 0.228310E+00_JPRB, 0.214663E+00_JPRB, 0.201508E+00_JPRB, 0.188850E+00_JPRB &
+  &, 0.176693E+00_JPRB, 0.165037E+00_JPRB, 0.153871E+00_JPRB &
+  &, 0.143215E+00_JPRB, 0.133052E+00_JPRB, 0.123397E+00_JPRB, 0.114217E+00_JPRB &
+  &, 0.105533E+00_JPRB, 0.973150E-01_JPRB, 0.895675E-01_JPRB &
+  &, 0.822785E-01_JPRB, 0.754327E-01_JPRB, 0.690243E-01_JPRB, 0.630307E-01_JPRB &
+  &, 0.574388E-01_JPRB, 0.522323E-01_JPRB, 0.474062E-01_JPRB &
+  &, 0.429217E-01_JPRB, 0.387982E-01_JPRB, 0.349898E-01_JPRB, 0.314943E-01_JPRB &
+  &, 0.282740E-01_JPRB, 0.253380E-01_JPRB, 0.226593E-01_JPRB &
+  &, 0.202072E-01_JPRB, 0.180025E-01_JPRB, 0.159910E-01_JPRB, 0.141706E-01_JPRB &
+  &, 0.125382E-01_JPRB, 0.110490E-01_JPRB, 0.973616E-02_JPRB &
+  &, 0.855069E-02_JPRB, 0.750320E-02_JPRB, 0.656069E-02_JPRB, 0.573173E-02_JPRB &
+  &, 0.497932E-02_JPRB, 0.433308E-02_JPRB, 0.375317E-02_JPRB &
+  &, 0.324478E-02_JPRB, 0.278843E-02_JPRB, 0.241342E-02_JPRB, 0.207375E-02_JPRB &
+  &, 0.177214E-02_JPRB, 0.151137E-02_JPRB, 0.129431E-02_JPRB &
+  &, 0.109604E-02_JPRB, 0.917993E-03_JPRB, 0.790523E-03_JPRB, 0.657849E-03_JPRB &
+  &, 0.549875E-03_JPRB, 0.468166E-03_JPRB, 0.383220E-03_JPRB &
+  &, 0.326650E-03_JPRB, 0.267873E-03_JPRB, 0.206856E-03_JPRB, 0.176953E-03_JPRB &
+  &, 0.145910E-03_JPRB, 0.113712E-03_JPRB, 0.803394E-04_JPRB &
+  &, 0.815494E-04_JPRB, 0.463856E-04_JPRB, 0.470026E-04_JPRB, 0.476254E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 195, :) = (/ &
+  &  0.913043E+00_JPRB, 0.891144E+00_JPRB, 0.869210E+00_JPRB, 0.847256E+00_JPRB &
+  &, 0.825296E+00_JPRB, 0.803347E+00_JPRB, 0.781422E+00_JPRB &
+  &, 0.759537E+00_JPRB, 0.737704E+00_JPRB, 0.715952E+00_JPRB, 0.694283E+00_JPRB &
+  &, 0.672717E+00_JPRB, 0.651271E+00_JPRB, 0.629961E+00_JPRB &
+  &, 0.608804E+00_JPRB, 0.587818E+00_JPRB, 0.567018E+00_JPRB, 0.546422E+00_JPRB &
+  &, 0.526047E+00_JPRB, 0.505908E+00_JPRB, 0.486026E+00_JPRB &
+  &, 0.466419E+00_JPRB, 0.447098E+00_JPRB, 0.428086E+00_JPRB, 0.409399E+00_JPRB &
+  &, 0.391053E+00_JPRB, 0.373060E+00_JPRB, 0.355442E+00_JPRB &
+  &, 0.338211E+00_JPRB, 0.321381E+00_JPRB, 0.304965E+00_JPRB, 0.288985E+00_JPRB &
+  &, 0.273445E+00_JPRB, 0.258354E+00_JPRB, 0.243733E+00_JPRB &
+  &, 0.229575E+00_JPRB, 0.215912E+00_JPRB, 0.202720E+00_JPRB, 0.190033E+00_JPRB &
+  &, 0.177844E+00_JPRB, 0.166154E+00_JPRB, 0.154951E+00_JPRB &
+  &, 0.144267E+00_JPRB, 0.134062E+00_JPRB, 0.124363E+00_JPRB, 0.115147E+00_JPRB &
+  &, 0.106425E+00_JPRB, 0.981664E-01_JPRB, 0.903884E-01_JPRB &
+  &, 0.830538E-01_JPRB, 0.761729E-01_JPRB, 0.697135E-01_JPRB, 0.636799E-01_JPRB &
+  &, 0.580458E-01_JPRB, 0.528093E-01_JPRB, 0.479513E-01_JPRB &
+  &, 0.434332E-01_JPRB, 0.392739E-01_JPRB, 0.354278E-01_JPRB, 0.318927E-01_JPRB &
+  &, 0.286475E-01_JPRB, 0.256852E-01_JPRB, 0.229788E-01_JPRB &
+  &, 0.205157E-01_JPRB, 0.182622E-01_JPRB, 0.162374E-01_JPRB, 0.144030E-01_JPRB &
+  &, 0.127361E-01_JPRB, 0.112511E-01_JPRB, 0.990136E-02_JPRB &
+  &, 0.869830E-02_JPRB, 0.763239E-02_JPRB, 0.669258E-02_JPRB, 0.584392E-02_JPRB &
+  &, 0.509382E-02_JPRB, 0.442655E-02_JPRB, 0.382470E-02_JPRB &
+  &, 0.331775E-02_JPRB, 0.286286E-02_JPRB, 0.246402E-02_JPRB, 0.212534E-02_JPRB &
+  &, 0.182474E-02_JPRB, 0.153818E-02_JPRB, 0.132164E-02_JPRB &
+  &, 0.112389E-02_JPRB, 0.946368E-03_JPRB, 0.819431E-03_JPRB, 0.687296E-03_JPRB &
+  &, 0.579868E-03_JPRB, 0.468166E-03_JPRB, 0.414322E-03_JPRB &
+  &, 0.326650E-03_JPRB, 0.267873E-03_JPRB, 0.239666E-03_JPRB, 0.176953E-03_JPRB &
+  &, 0.145910E-03_JPRB, 0.113712E-03_JPRB, 0.115509E-03_JPRB &
+  &, 0.815494E-04_JPRB, 0.463856E-04_JPRB, 0.470026E-04_JPRB, 0.476254E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 196, :) = (/ &
+  &  0.913386E+00_JPRB, 0.891566E+00_JPRB, 0.869707E+00_JPRB, 0.847826E+00_JPRB &
+  &, 0.825936E+00_JPRB, 0.804054E+00_JPRB, 0.782193E+00_JPRB &
+  &, 0.760370E+00_JPRB, 0.738599E+00_JPRB, 0.716897E+00_JPRB, 0.695280E+00_JPRB &
+  &, 0.673762E+00_JPRB, 0.652362E+00_JPRB, 0.631095E+00_JPRB &
+  &, 0.609978E+00_JPRB, 0.589028E+00_JPRB, 0.568260E+00_JPRB, 0.547693E+00_JPRB &
+  &, 0.527345E+00_JPRB, 0.507231E+00_JPRB, 0.487369E+00_JPRB &
+  &, 0.467775E+00_JPRB, 0.448471E+00_JPRB, 0.429468E+00_JPRB, 0.410788E+00_JPRB &
+  &, 0.392442E+00_JPRB, 0.374453E+00_JPRB, 0.356831E+00_JPRB &
+  &, 0.339595E+00_JPRB, 0.322755E+00_JPRB, 0.306333E+00_JPRB, 0.290336E+00_JPRB &
+  &, 0.274778E+00_JPRB, 0.259672E+00_JPRB, 0.245026E+00_JPRB &
+  &, 0.230850E+00_JPRB, 0.217152E+00_JPRB, 0.203943E+00_JPRB, 0.191216E+00_JPRB &
+  &, 0.178995E+00_JPRB, 0.167271E+00_JPRB, 0.156043E+00_JPRB &
+  &, 0.145308E+00_JPRB, 0.135072E+00_JPRB, 0.125340E+00_JPRB, 0.116089E+00_JPRB &
+  &, 0.107317E+00_JPRB, 0.990303E-01_JPRB, 0.911965E-01_JPRB &
+  &, 0.838290E-01_JPRB, 0.768997E-01_JPRB, 0.704164E-01_JPRB, 0.643433E-01_JPRB &
+  &, 0.586672E-01_JPRB, 0.534011E-01_JPRB, 0.484964E-01_JPRB &
+  &, 0.439446E-01_JPRB, 0.397497E-01_JPRB, 0.358821E-01_JPRB, 0.323076E-01_JPRB &
+  &, 0.290379E-01_JPRB, 0.260324E-01_JPRB, 0.232983E-01_JPRB &
+  &, 0.208060E-01_JPRB, 0.185404E-01_JPRB, 0.164838E-01_JPRB, 0.146161E-01_JPRB &
+  &, 0.129538E-01_JPRB, 0.114331E-01_JPRB, 0.100872E-01_JPRB &
+  &, 0.886701E-02_JPRB, 0.778311E-02_JPRB, 0.680250E-02_JPRB, 0.595611E-02_JPRB &
+  &, 0.518542E-02_JPRB, 0.449665E-02_JPRB, 0.392006E-02_JPRB &
+  &, 0.339071E-02_JPRB, 0.291247E-02_JPRB, 0.251462E-02_JPRB, 0.217694E-02_JPRB &
+  &, 0.185104E-02_JPRB, 0.159180E-02_JPRB, 0.134896E-02_JPRB &
+  &, 0.115174E-02_JPRB, 0.974743E-03_JPRB, 0.819431E-03_JPRB, 0.687296E-03_JPRB &
+  &, 0.579868E-03_JPRB, 0.498710E-03_JPRB, 0.414322E-03_JPRB &
+  &, 0.358315E-03_JPRB, 0.300108E-03_JPRB, 0.239666E-03_JPRB, 0.210343E-03_JPRB &
+  &, 0.145910E-03_JPRB, 0.113712E-03_JPRB, 0.115509E-03_JPRB &
+  &, 0.815494E-04_JPRB, 0.463856E-04_JPRB, 0.470026E-04_JPRB, 0.476254E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART28',1,ZHOOK_HANDLE)
+END SUBROUTINE PART28
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART29
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART29',0,ZHOOK_HANDLE)
+
+XCW( 197, :) = (/ &
+  &  0.913727E+00_JPRB, 0.891985E+00_JPRB, 0.870202E+00_JPRB, 0.848394E+00_JPRB &
+  &, 0.826574E+00_JPRB, 0.804759E+00_JPRB, 0.782962E+00_JPRB &
+  &, 0.761199E+00_JPRB, 0.739488E+00_JPRB, 0.717840E+00_JPRB, 0.696275E+00_JPRB &
+  &, 0.674807E+00_JPRB, 0.653452E+00_JPRB, 0.632227E+00_JPRB &
+  &, 0.611149E+00_JPRB, 0.590234E+00_JPRB, 0.569500E+00_JPRB, 0.548964E+00_JPRB &
+  &, 0.528640E+00_JPRB, 0.508548E+00_JPRB, 0.488708E+00_JPRB &
+  &, 0.469131E+00_JPRB, 0.449838E+00_JPRB, 0.430849E+00_JPRB, 0.412174E+00_JPRB &
+  &, 0.393831E+00_JPRB, 0.375843E+00_JPRB, 0.358220E+00_JPRB &
+  &, 0.340979E+00_JPRB, 0.324130E+00_JPRB, 0.307696E+00_JPRB, 0.291687E+00_JPRB &
+  &, 0.276112E+00_JPRB, 0.260986E+00_JPRB, 0.246319E+00_JPRB &
+  &, 0.232115E+00_JPRB, 0.218392E+00_JPRB, 0.205155E+00_JPRB, 0.192409E+00_JPRB &
+  &, 0.180146E+00_JPRB, 0.168388E+00_JPRB, 0.157123E+00_JPRB &
+  &, 0.146360E+00_JPRB, 0.136094E+00_JPRB, 0.126318E+00_JPRB, 0.117019E+00_JPRB &
+  &, 0.108221E+00_JPRB, 0.998816E-01_JPRB, 0.920174E-01_JPRB &
+  &, 0.846042E-01_JPRB, 0.776399E-01_JPRB, 0.711194E-01_JPRB, 0.650067E-01_JPRB &
+  &, 0.593030E-01_JPRB, 0.539780E-01_JPRB, 0.490416E-01_JPRB &
+  &, 0.444715E-01_JPRB, 0.402254E-01_JPRB, 0.363201E-01_JPRB, 0.327225E-01_JPRB &
+  &, 0.294284E-01_JPRB, 0.263970E-01_JPRB, 0.236356E-01_JPRB &
+  &, 0.211145E-01_JPRB, 0.188186E-01_JPRB, 0.167303E-01_JPRB, 0.148486E-01_JPRB &
+  &, 0.131517E-01_JPRB, 0.116353E-01_JPRB, 0.102524E-01_JPRB &
+  &, 0.901463E-02_JPRB, 0.791231E-02_JPRB, 0.693439E-02_JPRB, 0.606830E-02_JPRB &
+  &, 0.527702E-02_JPRB, 0.459013E-02_JPRB, 0.399159E-02_JPRB &
+  &, 0.346368E-02_JPRB, 0.298689E-02_JPRB, 0.256522E-02_JPRB, 0.220273E-02_JPRB &
+  &, 0.190364E-02_JPRB, 0.161861E-02_JPRB, 0.137629E-02_JPRB &
+  &, 0.117959E-02_JPRB, 0.100312E-02_JPRB, 0.848339E-03_JPRB, 0.716744E-03_JPRB &
+  &, 0.609861E-03_JPRB, 0.498710E-03_JPRB, 0.414322E-03_JPRB &
+  &, 0.358315E-03_JPRB, 0.300108E-03_JPRB, 0.239666E-03_JPRB, 0.210343E-03_JPRB &
+  &, 0.179888E-03_JPRB, 0.148283E-03_JPRB, 0.115509E-03_JPRB &
+  &, 0.815494E-04_JPRB, 0.827713E-04_JPRB, 0.470026E-04_JPRB, 0.476254E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 198, :) = (/ &
+  &  0.914067E+00_JPRB, 0.892403E+00_JPRB, 0.870696E+00_JPRB, 0.848961E+00_JPRB &
+  &, 0.827211E+00_JPRB, 0.805462E+00_JPRB, 0.783729E+00_JPRB &
+  &, 0.762028E+00_JPRB, 0.740373E+00_JPRB, 0.718782E+00_JPRB, 0.697268E+00_JPRB &
+  &, 0.675848E+00_JPRB, 0.654539E+00_JPRB, 0.633357E+00_JPRB &
+  &, 0.612318E+00_JPRB, 0.591440E+00_JPRB, 0.570738E+00_JPRB, 0.550231E+00_JPRB &
+  &, 0.529935E+00_JPRB, 0.509868E+00_JPRB, 0.490044E+00_JPRB &
+  &, 0.470487E+00_JPRB, 0.451208E+00_JPRB, 0.432227E+00_JPRB, 0.413559E+00_JPRB &
+  &, 0.395225E+00_JPRB, 0.377232E+00_JPRB, 0.359609E+00_JPRB &
+  &, 0.342359E+00_JPRB, 0.325508E+00_JPRB, 0.309064E+00_JPRB, 0.293038E+00_JPRB &
+  &, 0.277445E+00_JPRB, 0.262305E+00_JPRB, 0.247616E+00_JPRB &
+  &, 0.233389E+00_JPRB, 0.219641E+00_JPRB, 0.206377E+00_JPRB, 0.193592E+00_JPRB &
+  &, 0.181308E+00_JPRB, 0.169515E+00_JPRB, 0.158214E+00_JPRB &
+  &, 0.147412E+00_JPRB, 0.137104E+00_JPRB, 0.127295E+00_JPRB, 0.117961E+00_JPRB &
+  &, 0.109125E+00_JPRB, 0.100745E+00_JPRB, 0.928383E-01_JPRB &
+  &, 0.853926E-01_JPRB, 0.783936E-01_JPRB, 0.718224E-01_JPRB, 0.656701E-01_JPRB &
+  &, 0.599244E-01_JPRB, 0.545698E-01_JPRB, 0.496018E-01_JPRB &
+  &, 0.449829E-01_JPRB, 0.407170E-01_JPRB, 0.367744E-01_JPRB, 0.331540E-01_JPRB &
+  &, 0.298188E-01_JPRB, 0.267615E-01_JPRB, 0.239728E-01_JPRB &
+  &, 0.214230E-01_JPRB, 0.190969E-01_JPRB, 0.169957E-01_JPRB, 0.151004E-01_JPRB &
+  &, 0.133694E-01_JPRB, 0.118172E-01_JPRB, 0.104176E-01_JPRB &
+  &, 0.918333E-02_JPRB, 0.806303E-02_JPRB, 0.706628E-02_JPRB, 0.618049E-02_JPRB &
+  &, 0.539152E-02_JPRB, 0.468360E-02_JPRB, 0.406311E-02_JPRB &
+  &, 0.353664E-02_JPRB, 0.306132E-02_JPRB, 0.264112E-02_JPRB, 0.225433E-02_JPRB &
+  &, 0.195624E-02_JPRB, 0.167223E-02_JPRB, 0.143094E-02_JPRB &
+  &, 0.120743E-02_JPRB, 0.103149E-02_JPRB, 0.877247E-03_JPRB, 0.746192E-03_JPRB &
+  &, 0.609861E-03_JPRB, 0.529255E-03_JPRB, 0.445424E-03_JPRB &
+  &, 0.358315E-03_JPRB, 0.300108E-03_JPRB, 0.239666E-03_JPRB, 0.210343E-03_JPRB &
+  &, 0.179888E-03_JPRB, 0.148283E-03_JPRB, 0.115509E-03_JPRB &
+  &, 0.815494E-04_JPRB, 0.827713E-04_JPRB, 0.470026E-04_JPRB, 0.476254E-04_JPRB &
+  &, 0.482543E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 199, :) = (/ &
+  &  0.914407E+00_JPRB, 0.892821E+00_JPRB, 0.871188E+00_JPRB, 0.849526E+00_JPRB &
+  &, 0.827846E+00_JPRB, 0.806163E+00_JPRB, 0.784495E+00_JPRB &
+  &, 0.762855E+00_JPRB, 0.741258E+00_JPRB, 0.719721E+00_JPRB, 0.698259E+00_JPRB &
+  &, 0.676888E+00_JPRB, 0.655624E+00_JPRB, 0.634485E+00_JPRB &
+  &, 0.613486E+00_JPRB, 0.592644E+00_JPRB, 0.571975E+00_JPRB, 0.551497E+00_JPRB &
+  &, 0.531229E+00_JPRB, 0.511184E+00_JPRB, 0.491383E+00_JPRB &
+  &, 0.471839E+00_JPRB, 0.452575E+00_JPRB, 0.433604E+00_JPRB, 0.414945E+00_JPRB &
+  &, 0.396610E+00_JPRB, 0.378626E+00_JPRB, 0.360998E+00_JPRB &
+  &, 0.343743E+00_JPRB, 0.326882E+00_JPRB, 0.310427E+00_JPRB, 0.294390E+00_JPRB &
+  &, 0.278783E+00_JPRB, 0.263619E+00_JPRB, 0.248909E+00_JPRB &
+  &, 0.234663E+00_JPRB, 0.220890E+00_JPRB, 0.207590E+00_JPRB, 0.194785E+00_JPRB &
+  &, 0.182469E+00_JPRB, 0.170643E+00_JPRB, 0.159305E+00_JPRB &
+  &, 0.148475E+00_JPRB, 0.138126E+00_JPRB, 0.128272E+00_JPRB, 0.118915E+00_JPRB &
+  &, 0.110029E+00_JPRB, 0.101609E+00_JPRB, 0.936721E-01_JPRB &
+  &, 0.861810E-01_JPRB, 0.791338E-01_JPRB, 0.725253E-01_JPRB, 0.663334E-01_JPRB &
+  &, 0.605603E-01_JPRB, 0.551615E-01_JPRB, 0.501621E-01_JPRB &
+  &, 0.455098E-01_JPRB, 0.412086E-01_JPRB, 0.372287E-01_JPRB, 0.335689E-01_JPRB &
+  &, 0.302092E-01_JPRB, 0.271261E-01_JPRB, 0.242923E-01_JPRB &
+  &, 0.217315E-01_JPRB, 0.193751E-01_JPRB, 0.172611E-01_JPRB, 0.153329E-01_JPRB &
+  &, 0.135871E-01_JPRB, 0.120194E-01_JPRB, 0.106035E-01_JPRB &
+  &, 0.933095E-02_JPRB, 0.821376E-02_JPRB, 0.719817E-02_JPRB, 0.629268E-02_JPRB &
+  &, 0.548312E-02_JPRB, 0.477707E-02_JPRB, 0.415848E-02_JPRB &
+  &, 0.360961E-02_JPRB, 0.311093E-02_JPRB, 0.269171E-02_JPRB, 0.230592E-02_JPRB &
+  &, 0.198254E-02_JPRB, 0.169904E-02_JPRB, 0.145826E-02_JPRB &
+  &, 0.123528E-02_JPRB, 0.105987E-02_JPRB, 0.906156E-03_JPRB, 0.746192E-03_JPRB &
+  &, 0.639854E-03_JPRB, 0.529255E-03_JPRB, 0.445424E-03_JPRB &
+  &, 0.389979E-03_JPRB, 0.300108E-03_JPRB, 0.272475E-03_JPRB, 0.210343E-03_JPRB &
+  &, 0.179888E-03_JPRB, 0.148283E-03_JPRB, 0.115509E-03_JPRB &
+  &, 0.815494E-04_JPRB, 0.827713E-04_JPRB, 0.470026E-04_JPRB, 0.476254E-04_JPRB &
+  &, 0.482543E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 200, :) = (/ &
+  &  0.914744E+00_JPRB, 0.893236E+00_JPRB, 0.871680E+00_JPRB, 0.850089E+00_JPRB &
+  &, 0.828478E+00_JPRB, 0.806864E+00_JPRB, 0.785259E+00_JPRB &
+  &, 0.763678E+00_JPRB, 0.742140E+00_JPRB, 0.720658E+00_JPRB, 0.699248E+00_JPRB &
+  &, 0.677926E+00_JPRB, 0.656708E+00_JPRB, 0.635611E+00_JPRB &
+  &, 0.614652E+00_JPRB, 0.593845E+00_JPRB, 0.573209E+00_JPRB, 0.552763E+00_JPRB &
+  &, 0.532519E+00_JPRB, 0.512498E+00_JPRB, 0.492716E+00_JPRB &
+  &, 0.473192E+00_JPRB, 0.453942E+00_JPRB, 0.434979E+00_JPRB, 0.416327E+00_JPRB &
+  &, 0.398000E+00_JPRB, 0.380015E+00_JPRB, 0.362383E+00_JPRB &
+  &, 0.345128E+00_JPRB, 0.328261E+00_JPRB, 0.311795E+00_JPRB, 0.295741E+00_JPRB &
+  &, 0.280121E+00_JPRB, 0.264937E+00_JPRB, 0.250211E+00_JPRB &
+  &, 0.235937E+00_JPRB, 0.222140E+00_JPRB, 0.208812E+00_JPRB, 0.195978E+00_JPRB &
+  &, 0.183631E+00_JPRB, 0.171770E+00_JPRB, 0.160407E+00_JPRB &
+  &, 0.149527E+00_JPRB, 0.139148E+00_JPRB, 0.129261E+00_JPRB, 0.119857E+00_JPRB &
+  &, 0.110934E+00_JPRB, 0.102486E+00_JPRB, 0.944930E-01_JPRB &
+  &, 0.869694E-01_JPRB, 0.798875E-01_JPRB, 0.732421E-01_JPRB, 0.670109E-01_JPRB &
+  &, 0.611961E-01_JPRB, 0.557681E-01_JPRB, 0.507224E-01_JPRB &
+  &, 0.460367E-01_JPRB, 0.417002E-01_JPRB, 0.376830E-01_JPRB, 0.340005E-01_JPRB &
+  &, 0.305997E-01_JPRB, 0.274906E-01_JPRB, 0.246296E-01_JPRB &
+  &, 0.220400E-01_JPRB, 0.196719E-01_JPRB, 0.175265E-01_JPRB, 0.155653E-01_JPRB &
+  &, 0.138048E-01_JPRB, 0.122216E-01_JPRB, 0.107893E-01_JPRB &
+  &, 0.949965E-02_JPRB, 0.834295E-02_JPRB, 0.733007E-02_JPRB, 0.640488E-02_JPRB &
+  &, 0.559762E-02_JPRB, 0.487054E-02_JPRB, 0.425385E-02_JPRB &
+  &, 0.368257E-02_JPRB, 0.318535E-02_JPRB, 0.274231E-02_JPRB, 0.235752E-02_JPRB &
+  &, 0.203514E-02_JPRB, 0.175266E-02_JPRB, 0.148559E-02_JPRB &
+  &, 0.126313E-02_JPRB, 0.108824E-02_JPRB, 0.935064E-03_JPRB, 0.775639E-03_JPRB &
+  &, 0.669847E-03_JPRB, 0.559799E-03_JPRB, 0.476525E-03_JPRB &
+  &, 0.389979E-03_JPRB, 0.332342E-03_JPRB, 0.272475E-03_JPRB, 0.210343E-03_JPRB &
+  &, 0.179888E-03_JPRB, 0.148283E-03_JPRB, 0.115509E-03_JPRB &
+  &, 0.815494E-04_JPRB, 0.827713E-04_JPRB, 0.470026E-04_JPRB, 0.476254E-04_JPRB &
+  &, 0.482543E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 201, :) = (/ &
+  &  0.915082E+00_JPRB, 0.893652E+00_JPRB, 0.872170E+00_JPRB, 0.850652E+00_JPRB &
+  &, 0.829110E+00_JPRB, 0.807562E+00_JPRB, 0.786020E+00_JPRB &
+  &, 0.764502E+00_JPRB, 0.743020E+00_JPRB, 0.721593E+00_JPRB, 0.700235E+00_JPRB &
+  &, 0.678962E+00_JPRB, 0.657790E+00_JPRB, 0.636734E+00_JPRB &
+  &, 0.615814E+00_JPRB, 0.595044E+00_JPRB, 0.574443E+00_JPRB, 0.554025E+00_JPRB &
+  &, 0.533809E+00_JPRB, 0.513811E+00_JPRB, 0.494048E+00_JPRB &
+  &, 0.474541E+00_JPRB, 0.455305E+00_JPRB, 0.436356E+00_JPRB, 0.417712E+00_JPRB &
+  &, 0.399389E+00_JPRB, 0.381405E+00_JPRB, 0.363772E+00_JPRB &
+  &, 0.346512E+00_JPRB, 0.329635E+00_JPRB, 0.313158E+00_JPRB, 0.297096E+00_JPRB &
+  &, 0.281459E+00_JPRB, 0.266260E+00_JPRB, 0.251508E+00_JPRB &
+  &, 0.237212E+00_JPRB, 0.223389E+00_JPRB, 0.210044E+00_JPRB, 0.197171E+00_JPRB &
+  &, 0.184792E+00_JPRB, 0.172898E+00_JPRB, 0.161498E+00_JPRB &
+  &, 0.150590E+00_JPRB, 0.140181E+00_JPRB, 0.130250E+00_JPRB, 0.120811E+00_JPRB &
+  &, 0.111850E+00_JPRB, 0.103350E+00_JPRB, 0.953268E-01_JPRB &
+  &, 0.877578E-01_JPRB, 0.806412E-01_JPRB, 0.739588E-01_JPRB, 0.676884E-01_JPRB &
+  &, 0.618320E-01_JPRB, 0.563746E-01_JPRB, 0.512827E-01_JPRB &
+  &, 0.465636E-01_JPRB, 0.421918E-01_JPRB, 0.381535E-01_JPRB, 0.344320E-01_JPRB &
+  &, 0.310071E-01_JPRB, 0.278552E-01_JPRB, 0.249846E-01_JPRB &
+  &, 0.223485E-01_JPRB, 0.199501E-01_JPRB, 0.177729E-01_JPRB, 0.158171E-01_JPRB &
+  &, 0.140225E-01_JPRB, 0.124238E-01_JPRB, 0.109752E-01_JPRB &
+  &, 0.966836E-02_JPRB, 0.849367E-02_JPRB, 0.746196E-02_JPRB, 0.653950E-02_JPRB &
+  &, 0.571212E-02_JPRB, 0.498738E-02_JPRB, 0.432537E-02_JPRB &
+  &, 0.375554E-02_JPRB, 0.325977E-02_JPRB, 0.281821E-02_JPRB, 0.243491E-02_JPRB &
+  &, 0.208774E-02_JPRB, 0.177947E-02_JPRB, 0.154024E-02_JPRB &
+  &, 0.131882E-02_JPRB, 0.111662E-02_JPRB, 0.935064E-03_JPRB, 0.805087E-03_JPRB &
+  &, 0.669847E-03_JPRB, 0.559799E-03_JPRB, 0.476525E-03_JPRB &
+  &, 0.389979E-03_JPRB, 0.332342E-03_JPRB, 0.272475E-03_JPRB, 0.243734E-03_JPRB &
+  &, 0.179888E-03_JPRB, 0.148283E-03_JPRB, 0.115509E-03_JPRB &
+  &, 0.117324E-03_JPRB, 0.827713E-04_JPRB, 0.470026E-04_JPRB, 0.476254E-04_JPRB &
+  &, 0.482543E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 202, :) = (/ &
+  &  0.915418E+00_JPRB, 0.894066E+00_JPRB, 0.872659E+00_JPRB, 0.851212E+00_JPRB &
+  &, 0.829740E+00_JPRB, 0.808258E+00_JPRB, 0.786780E+00_JPRB &
+  &, 0.765322E+00_JPRB, 0.743899E+00_JPRB, 0.722526E+00_JPRB, 0.701220E+00_JPRB &
+  &, 0.679995E+00_JPRB, 0.658868E+00_JPRB, 0.637856E+00_JPRB &
+  &, 0.616975E+00_JPRB, 0.596242E+00_JPRB, 0.575674E+00_JPRB, 0.555285E+00_JPRB &
+  &, 0.535096E+00_JPRB, 0.515121E+00_JPRB, 0.495381E+00_JPRB &
+  &, 0.475891E+00_JPRB, 0.456669E+00_JPRB, 0.437731E+00_JPRB, 0.419094E+00_JPRB &
+  &, 0.400775E+00_JPRB, 0.382791E+00_JPRB, 0.365161E+00_JPRB &
+  &, 0.347896E+00_JPRB, 0.331013E+00_JPRB, 0.314526E+00_JPRB, 0.298448E+00_JPRB &
+  &, 0.282796E+00_JPRB, 0.267578E+00_JPRB, 0.252805E+00_JPRB &
+  &, 0.238486E+00_JPRB, 0.224638E+00_JPRB, 0.211267E+00_JPRB, 0.198364E+00_JPRB &
+  &, 0.185954E+00_JPRB, 0.174036E+00_JPRB, 0.162600E+00_JPRB &
+  &, 0.151654E+00_JPRB, 0.141202E+00_JPRB, 0.131239E+00_JPRB, 0.121765E+00_JPRB &
+  &, 0.112754E+00_JPRB, 0.104226E+00_JPRB, 0.961733E-01_JPRB &
+  &, 0.885593E-01_JPRB, 0.813949E-01_JPRB, 0.746756E-01_JPRB, 0.683659E-01_JPRB &
+  &, 0.624678E-01_JPRB, 0.569664E-01_JPRB, 0.518581E-01_JPRB &
+  &, 0.470905E-01_JPRB, 0.426834E-01_JPRB, 0.386078E-01_JPRB, 0.348635E-01_JPRB &
+  &, 0.313975E-01_JPRB, 0.282197E-01_JPRB, 0.253219E-01_JPRB &
+  &, 0.226751E-01_JPRB, 0.202469E-01_JPRB, 0.180573E-01_JPRB, 0.160496E-01_JPRB &
+  &, 0.142402E-01_JPRB, 0.126260E-01_JPRB, 0.111610E-01_JPRB &
+  &, 0.983706E-02_JPRB, 0.864440E-02_JPRB, 0.759385E-02_JPRB, 0.665170E-02_JPRB &
+  &, 0.582662E-02_JPRB, 0.508085E-02_JPRB, 0.442074E-02_JPRB &
+  &, 0.382850E-02_JPRB, 0.333420E-02_JPRB, 0.286881E-02_JPRB, 0.248650E-02_JPRB &
+  &, 0.214034E-02_JPRB, 0.183309E-02_JPRB, 0.156757E-02_JPRB &
+  &, 0.134667E-02_JPRB, 0.114499E-02_JPRB, 0.963972E-03_JPRB, 0.834535E-03_JPRB &
+  &, 0.699840E-03_JPRB, 0.590343E-03_JPRB, 0.476525E-03_JPRB &
+  &, 0.421644E-03_JPRB, 0.332342E-03_JPRB, 0.272475E-03_JPRB, 0.243734E-03_JPRB &
+  &, 0.179888E-03_JPRB, 0.148283E-03_JPRB, 0.115509E-03_JPRB &
+  &, 0.117324E-03_JPRB, 0.827713E-04_JPRB, 0.470026E-04_JPRB, 0.476254E-04_JPRB &
+  &, 0.482543E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 203, :) = (/ &
+  &  0.915755E+00_JPRB, 0.894479E+00_JPRB, 0.873146E+00_JPRB, 0.851772E+00_JPRB &
+  &, 0.830369E+00_JPRB, 0.808953E+00_JPRB, 0.787538E+00_JPRB &
+  &, 0.766141E+00_JPRB, 0.744776E+00_JPRB, 0.723457E+00_JPRB, 0.702203E+00_JPRB &
+  &, 0.681026E+00_JPRB, 0.659945E+00_JPRB, 0.638977E+00_JPRB &
+  &, 0.618135E+00_JPRB, 0.597437E+00_JPRB, 0.576902E+00_JPRB, 0.556545E+00_JPRB &
+  &, 0.536382E+00_JPRB, 0.516431E+00_JPRB, 0.496711E+00_JPRB &
+  &, 0.477240E+00_JPRB, 0.458032E+00_JPRB, 0.439105E+00_JPRB, 0.420476E+00_JPRB &
+  &, 0.402161E+00_JPRB, 0.384180E+00_JPRB, 0.366547E+00_JPRB &
+  &, 0.349280E+00_JPRB, 0.332388E+00_JPRB, 0.315893E+00_JPRB, 0.299803E+00_JPRB &
+  &, 0.284134E+00_JPRB, 0.268901E+00_JPRB, 0.254107E+00_JPRB &
+  &, 0.239770E+00_JPRB, 0.225897E+00_JPRB, 0.212489E+00_JPRB, 0.199567E+00_JPRB &
+  &, 0.187125E+00_JPRB, 0.175164E+00_JPRB, 0.163702E+00_JPRB &
+  &, 0.152728E+00_JPRB, 0.142235E+00_JPRB, 0.132240E+00_JPRB, 0.122719E+00_JPRB &
+  &, 0.113683E+00_JPRB, 0.105115E+00_JPRB, 0.970071E-01_JPRB &
+  &, 0.893609E-01_JPRB, 0.821620E-01_JPRB, 0.753923E-01_JPRB, 0.690575E-01_JPRB &
+  &, 0.631181E-01_JPRB, 0.575877E-01_JPRB, 0.524184E-01_JPRB &
+  &, 0.476329E-01_JPRB, 0.431908E-01_JPRB, 0.390783E-01_JPRB, 0.352950E-01_JPRB &
+  &, 0.318049E-01_JPRB, 0.286017E-01_JPRB, 0.256769E-01_JPRB &
+  &, 0.229836E-01_JPRB, 0.205437E-01_JPRB, 0.183227E-01_JPRB, 0.163014E-01_JPRB &
+  &, 0.144777E-01_JPRB, 0.128281E-01_JPRB, 0.113469E-01_JPRB &
+  &, 0.100058E-01_JPRB, 0.881666E-02_JPRB, 0.772575E-02_JPRB, 0.678632E-02_JPRB &
+  &, 0.591822E-02_JPRB, 0.517433E-02_JPRB, 0.451611E-02_JPRB &
+  &, 0.392579E-02_JPRB, 0.338381E-02_JPRB, 0.294471E-02_JPRB, 0.253809E-02_JPRB &
+  &, 0.219294E-02_JPRB, 0.185990E-02_JPRB, 0.159489E-02_JPRB &
+  &, 0.137452E-02_JPRB, 0.117337E-02_JPRB, 0.992880E-03_JPRB, 0.834535E-03_JPRB &
+  &, 0.699840E-03_JPRB, 0.590343E-03_JPRB, 0.507627E-03_JPRB &
+  &, 0.421644E-03_JPRB, 0.364576E-03_JPRB, 0.305284E-03_JPRB, 0.243734E-03_JPRB &
+  &, 0.213866E-03_JPRB, 0.148283E-03_JPRB, 0.150679E-03_JPRB &
+  &, 0.117324E-03_JPRB, 0.827713E-04_JPRB, 0.840051E-04_JPRB, 0.476254E-04_JPRB &
+  &, 0.482543E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART29',1,ZHOOK_HANDLE)
+END SUBROUTINE PART29
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART30
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART30',0,ZHOOK_HANDLE)
+
+XCW( 204, :) = (/ &
+  &  0.916088E+00_JPRB, 0.894890E+00_JPRB, 0.873632E+00_JPRB, 0.852330E+00_JPRB &
+  &, 0.830996E+00_JPRB, 0.809646E+00_JPRB, 0.788294E+00_JPRB &
+  &, 0.766958E+00_JPRB, 0.745650E+00_JPRB, 0.724387E+00_JPRB, 0.703184E+00_JPRB &
+  &, 0.682057E+00_JPRB, 0.661021E+00_JPRB, 0.640094E+00_JPRB &
+  &, 0.619292E+00_JPRB, 0.598631E+00_JPRB, 0.578129E+00_JPRB, 0.557802E+00_JPRB &
+  &, 0.537666E+00_JPRB, 0.517742E+00_JPRB, 0.498040E+00_JPRB &
+  &, 0.478586E+00_JPRB, 0.459392E+00_JPRB, 0.440476E+00_JPRB, 0.421854E+00_JPRB &
+  &, 0.403547E+00_JPRB, 0.385570E+00_JPRB, 0.367936E+00_JPRB &
+  &, 0.350660E+00_JPRB, 0.333766E+00_JPRB, 0.317257E+00_JPRB, 0.301159E+00_JPRB &
+  &, 0.285476E+00_JPRB, 0.270224E+00_JPRB, 0.255409E+00_JPRB &
+  &, 0.241053E+00_JPRB, 0.227146E+00_JPRB, 0.213721E+00_JPRB, 0.200770E+00_JPRB &
+  &, 0.188297E+00_JPRB, 0.176302E+00_JPRB, 0.164804E+00_JPRB &
+  &, 0.153791E+00_JPRB, 0.143268E+00_JPRB, 0.133229E+00_JPRB, 0.123673E+00_JPRB &
+  &, 0.114599E+00_JPRB, 0.105991E+00_JPRB, 0.978537E-01_JPRB &
+  &, 0.901624E-01_JPRB, 0.829292E-01_JPRB, 0.761228E-01_JPRB, 0.697350E-01_JPRB &
+  &, 0.637684E-01_JPRB, 0.581943E-01_JPRB, 0.529938E-01_JPRB &
+  &, 0.481753E-01_JPRB, 0.436983E-01_JPRB, 0.395488E-01_JPRB, 0.357265E-01_JPRB &
+  &, 0.322123E-01_JPRB, 0.289836E-01_JPRB, 0.260141E-01_JPRB &
+  &, 0.233103E-01_JPRB, 0.208405E-01_JPRB, 0.185881E-01_JPRB, 0.165533E-01_JPRB &
+  &, 0.146955E-01_JPRB, 0.130303E-01_JPRB, 0.115327E-01_JPRB &
+  &, 0.101745E-01_JPRB, 0.896738E-02_JPRB, 0.787962E-02_JPRB, 0.689851E-02_JPRB &
+  &, 0.603272E-02_JPRB, 0.526780E-02_JPRB, 0.458763E-02_JPRB &
+  &, 0.399875E-02_JPRB, 0.345823E-02_JPRB, 0.299530E-02_JPRB, 0.258969E-02_JPRB &
+  &, 0.221925E-02_JPRB, 0.191352E-02_JPRB, 0.164954E-02_JPRB &
+  &, 0.140236E-02_JPRB, 0.120174E-02_JPRB, 0.102179E-02_JPRB, 0.863982E-03_JPRB &
+  &, 0.729833E-03_JPRB, 0.620888E-03_JPRB, 0.507627E-03_JPRB &
+  &, 0.421644E-03_JPRB, 0.364576E-03_JPRB, 0.305284E-03_JPRB, 0.243734E-03_JPRB &
+  &, 0.213866E-03_JPRB, 0.182853E-03_JPRB, 0.150679E-03_JPRB &
+  &, 0.117324E-03_JPRB, 0.827713E-04_JPRB, 0.840051E-04_JPRB, 0.476254E-04_JPRB &
+  &, 0.482543E-04_JPRB, 0.488890E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 205, :) = (/ &
+  &  0.916422E+00_JPRB, 0.895301E+00_JPRB, 0.874117E+00_JPRB, 0.852886E+00_JPRB &
+  &, 0.831621E+00_JPRB, 0.810338E+00_JPRB, 0.789050E+00_JPRB &
+  &, 0.767773E+00_JPRB, 0.746522E+00_JPRB, 0.725314E+00_JPRB, 0.704162E+00_JPRB &
+  &, 0.683084E+00_JPRB, 0.662094E+00_JPRB, 0.641210E+00_JPRB &
+  &, 0.620449E+00_JPRB, 0.599823E+00_JPRB, 0.579354E+00_JPRB, 0.559058E+00_JPRB &
+  &, 0.538950E+00_JPRB, 0.519045E+00_JPRB, 0.499369E+00_JPRB &
+  &, 0.479933E+00_JPRB, 0.460752E+00_JPRB, 0.441847E+00_JPRB, 0.423236E+00_JPRB &
+  &, 0.404933E+00_JPRB, 0.386955E+00_JPRB, 0.369321E+00_JPRB &
+  &, 0.352044E+00_JPRB, 0.335141E+00_JPRB, 0.318624E+00_JPRB, 0.302514E+00_JPRB &
+  &, 0.286814E+00_JPRB, 0.271547E+00_JPRB, 0.256715E+00_JPRB &
+  &, 0.242327E+00_JPRB, 0.228405E+00_JPRB, 0.214953E+00_JPRB, 0.201974E+00_JPRB &
+  &, 0.189469E+00_JPRB, 0.177450E+00_JPRB, 0.165917E+00_JPRB &
+  &, 0.154865E+00_JPRB, 0.144301E+00_JPRB, 0.134229E+00_JPRB, 0.124639E+00_JPRB &
+  &, 0.115528E+00_JPRB, 0.106880E+00_JPRB, 0.987002E-01_JPRB &
+  &, 0.909771E-01_JPRB, 0.836963E-01_JPRB, 0.768534E-01_JPRB, 0.704266E-01_JPRB &
+  &, 0.644187E-01_JPRB, 0.588156E-01_JPRB, 0.535843E-01_JPRB &
+  &, 0.487177E-01_JPRB, 0.442057E-01_JPRB, 0.400355E-01_JPRB, 0.361747E-01_JPRB &
+  &, 0.326197E-01_JPRB, 0.293655E-01_JPRB, 0.263691E-01_JPRB &
+  &, 0.236369E-01_JPRB, 0.211373E-01_JPRB, 0.188725E-01_JPRB, 0.168051E-01_JPRB &
+  &, 0.149330E-01_JPRB, 0.132325E-01_JPRB, 0.117186E-01_JPRB &
+  &, 0.103432E-01_JPRB, 0.911811E-02_JPRB, 0.801151E-02_JPRB, 0.703314E-02_JPRB &
+  &, 0.614722E-02_JPRB, 0.538464E-02_JPRB, 0.468300E-02_JPRB &
+  &, 0.407172E-02_JPRB, 0.353266E-02_JPRB, 0.307120E-02_JPRB, 0.264128E-02_JPRB &
+  &, 0.227185E-02_JPRB, 0.196714E-02_JPRB, 0.167687E-02_JPRB &
+  &, 0.143021E-02_JPRB, 0.123012E-02_JPRB, 0.105070E-02_JPRB, 0.893430E-03_JPRB &
+  &, 0.759826E-03_JPRB, 0.620888E-03_JPRB, 0.538729E-03_JPRB &
+  &, 0.453309E-03_JPRB, 0.364576E-03_JPRB, 0.305284E-03_JPRB, 0.243734E-03_JPRB &
+  &, 0.213866E-03_JPRB, 0.182853E-03_JPRB, 0.150679E-03_JPRB &
+  &, 0.117324E-03_JPRB, 0.827713E-04_JPRB, 0.840051E-04_JPRB, 0.476254E-04_JPRB &
+  &, 0.482543E-04_JPRB, 0.488890E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 206, :) = (/ &
+  &  0.916754E+00_JPRB, 0.895710E+00_JPRB, 0.874600E+00_JPRB, 0.853441E+00_JPRB &
+  &, 0.832245E+00_JPRB, 0.811027E+00_JPRB, 0.789803E+00_JPRB &
+  &, 0.768587E+00_JPRB, 0.747393E+00_JPRB, 0.726239E+00_JPRB, 0.705140E+00_JPRB &
+  &, 0.684110E+00_JPRB, 0.663166E+00_JPRB, 0.642325E+00_JPRB &
+  &, 0.621601E+00_JPRB, 0.601014E+00_JPRB, 0.580578E+00_JPRB, 0.560311E+00_JPRB &
+  &, 0.540231E+00_JPRB, 0.520352E+00_JPRB, 0.500695E+00_JPRB &
+  &, 0.481275E+00_JPRB, 0.462112E+00_JPRB, 0.443218E+00_JPRB, 0.424615E+00_JPRB &
+  &, 0.406319E+00_JPRB, 0.388341E+00_JPRB, 0.370706E+00_JPRB &
+  &, 0.353429E+00_JPRB, 0.336519E+00_JPRB, 0.319992E+00_JPRB, 0.303870E+00_JPRB &
+  &, 0.288156E+00_JPRB, 0.272869E+00_JPRB, 0.258017E+00_JPRB &
+  &, 0.243611E+00_JPRB, 0.229664E+00_JPRB, 0.216185E+00_JPRB, 0.203177E+00_JPRB &
+  &, 0.190641E+00_JPRB, 0.178589E+00_JPRB, 0.167019E+00_JPRB &
+  &, 0.155939E+00_JPRB, 0.145346E+00_JPRB, 0.135230E+00_JPRB, 0.125604E+00_JPRB &
+  &, 0.116444E+00_JPRB, 0.107769E+00_JPRB, 0.995468E-01_JPRB &
+  &, 0.917786E-01_JPRB, 0.844635E-01_JPRB, 0.775839E-01_JPRB, 0.711323E-01_JPRB &
+  &, 0.650835E-01_JPRB, 0.594222E-01_JPRB, 0.541598E-01_JPRB &
+  &, 0.492601E-01_JPRB, 0.447132E-01_JPRB, 0.405060E-01_JPRB, 0.366228E-01_JPRB &
+  &, 0.330441E-01_JPRB, 0.297474E-01_JPRB, 0.267241E-01_JPRB &
+  &, 0.239635E-01_JPRB, 0.214340E-01_JPRB, 0.191379E-01_JPRB, 0.170569E-01_JPRB &
+  &, 0.151705E-01_JPRB, 0.134549E-01_JPRB, 0.119044E-01_JPRB &
+  &, 0.105330E-01_JPRB, 0.926883E-02_JPRB, 0.816539E-02_JPRB, 0.716777E-02_JPRB &
+  &, 0.626173E-02_JPRB, 0.547811E-02_JPRB, 0.477837E-02_JPRB &
+  &, 0.416900E-02_JPRB, 0.360708E-02_JPRB, 0.312180E-02_JPRB, 0.269288E-02_JPRB &
+  &, 0.232445E-02_JPRB, 0.199395E-02_JPRB, 0.173152E-02_JPRB &
+  &, 0.148591E-02_JPRB, 0.125849E-02_JPRB, 0.107960E-02_JPRB, 0.922878E-03_JPRB &
+  &, 0.759826E-03_JPRB, 0.651432E-03_JPRB, 0.538729E-03_JPRB &
+  &, 0.453309E-03_JPRB, 0.396810E-03_JPRB, 0.338094E-03_JPRB, 0.277124E-03_JPRB &
+  &, 0.213866E-03_JPRB, 0.182853E-03_JPRB, 0.150679E-03_JPRB &
+  &, 0.117324E-03_JPRB, 0.827713E-04_JPRB, 0.840051E-04_JPRB, 0.476254E-04_JPRB &
+  &, 0.482543E-04_JPRB, 0.488890E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 207, :) = (/ &
+  &  0.917086E+00_JPRB, 0.896119E+00_JPRB, 0.875083E+00_JPRB, 0.853995E+00_JPRB &
+  &, 0.832867E+00_JPRB, 0.811716E+00_JPRB, 0.790554E+00_JPRB &
+  &, 0.769398E+00_JPRB, 0.748263E+00_JPRB, 0.727163E+00_JPRB, 0.706115E+00_JPRB &
+  &, 0.685134E+00_JPRB, 0.664235E+00_JPRB, 0.643437E+00_JPRB &
+  &, 0.622754E+00_JPRB, 0.602202E+00_JPRB, 0.581800E+00_JPRB, 0.561564E+00_JPRB &
+  &, 0.541511E+00_JPRB, 0.521656E+00_JPRB, 0.502018E+00_JPRB &
+  &, 0.482618E+00_JPRB, 0.463469E+00_JPRB, 0.444588E+00_JPRB, 0.425993E+00_JPRB &
+  &, 0.407701E+00_JPRB, 0.389731E+00_JPRB, 0.372095E+00_JPRB &
+  &, 0.354809E+00_JPRB, 0.337893E+00_JPRB, 0.321359E+00_JPRB, 0.305225E+00_JPRB &
+  &, 0.289498E+00_JPRB, 0.274192E+00_JPRB, 0.259323E+00_JPRB &
+  &, 0.244895E+00_JPRB, 0.230923E+00_JPRB, 0.217417E+00_JPRB, 0.204380E+00_JPRB &
+  &, 0.191823E+00_JPRB, 0.179737E+00_JPRB, 0.168131E+00_JPRB &
+  &, 0.157025E+00_JPRB, 0.146390E+00_JPRB, 0.136242E+00_JPRB, 0.126570E+00_JPRB &
+  &, 0.117385E+00_JPRB, 0.108658E+00_JPRB, 0.100406E+00_JPRB &
+  &, 0.925933E-01_JPRB, 0.852441E-01_JPRB, 0.783282E-01_JPRB, 0.718239E-01_JPRB &
+  &, 0.657338E-01_JPRB, 0.600583E-01_JPRB, 0.547503E-01_JPRB &
+  &, 0.498180E-01_JPRB, 0.452365E-01_JPRB, 0.409928E-01_JPRB, 0.370709E-01_JPRB &
+  &, 0.334515E-01_JPRB, 0.301293E-01_JPRB, 0.270791E-01_JPRB &
+  &, 0.242902E-01_JPRB, 0.217494E-01_JPRB, 0.194222E-01_JPRB, 0.173088E-01_JPRB &
+  &, 0.154080E-01_JPRB, 0.136773E-01_JPRB, 0.121109E-01_JPRB &
+  &, 0.107017E-01_JPRB, 0.944109E-02_JPRB, 0.829728E-02_JPRB, 0.730240E-02_JPRB &
+  &, 0.639913E-02_JPRB, 0.559495E-02_JPRB, 0.487374E-02_JPRB &
+  &, 0.424197E-02_JPRB, 0.368150E-02_JPRB, 0.319770E-02_JPRB, 0.277027E-02_JPRB &
+  &, 0.237705E-02_JPRB, 0.204757E-02_JPRB, 0.175885E-02_JPRB &
+  &, 0.151375E-02_JPRB, 0.128687E-02_JPRB, 0.110851E-02_JPRB, 0.922878E-03_JPRB &
+  &, 0.789819E-03_JPRB, 0.681977E-03_JPRB, 0.569830E-03_JPRB &
+  &, 0.484974E-03_JPRB, 0.396810E-03_JPRB, 0.338094E-03_JPRB, 0.277124E-03_JPRB &
+  &, 0.213866E-03_JPRB, 0.182853E-03_JPRB, 0.150679E-03_JPRB &
+  &, 0.117324E-03_JPRB, 0.827713E-04_JPRB, 0.840051E-04_JPRB, 0.476254E-04_JPRB &
+  &, 0.482543E-04_JPRB, 0.488890E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 208, :) = (/ &
+  &  0.917419E+00_JPRB, 0.896527E+00_JPRB, 0.875564E+00_JPRB, 0.854548E+00_JPRB &
+  &, 0.833488E+00_JPRB, 0.812402E+00_JPRB, 0.791304E+00_JPRB &
+  &, 0.770208E+00_JPRB, 0.749130E+00_JPRB, 0.728085E+00_JPRB, 0.707088E+00_JPRB &
+  &, 0.686155E+00_JPRB, 0.665302E+00_JPRB, 0.644547E+00_JPRB &
+  &, 0.623903E+00_JPRB, 0.603388E+00_JPRB, 0.583020E+00_JPRB, 0.562814E+00_JPRB &
+  &, 0.542788E+00_JPRB, 0.522957E+00_JPRB, 0.503345E+00_JPRB &
+  &, 0.483961E+00_JPRB, 0.464825E+00_JPRB, 0.445956E+00_JPRB, 0.427371E+00_JPRB &
+  &, 0.409083E+00_JPRB, 0.391117E+00_JPRB, 0.373481E+00_JPRB &
+  &, 0.356193E+00_JPRB, 0.339272E+00_JPRB, 0.322731E+00_JPRB, 0.306581E+00_JPRB &
+  &, 0.290840E+00_JPRB, 0.275519E+00_JPRB, 0.260630E+00_JPRB &
+  &, 0.246187E+00_JPRB, 0.232191E+00_JPRB, 0.218659E+00_JPRB, 0.205593E+00_JPRB &
+  &, 0.192995E+00_JPRB, 0.180886E+00_JPRB, 0.169255E+00_JPRB &
+  &, 0.158099E+00_JPRB, 0.147434E+00_JPRB, 0.137254E+00_JPRB, 0.127548E+00_JPRB &
+  &, 0.118314E+00_JPRB, 0.109560E+00_JPRB, 0.101253E+00_JPRB &
+  &, 0.934211E-01_JPRB, 0.860247E-01_JPRB, 0.790587E-01_JPRB, 0.725296E-01_JPRB &
+  &, 0.663985E-01_JPRB, 0.606796E-01_JPRB, 0.553409E-01_JPRB &
+  &, 0.503759E-01_JPRB, 0.457598E-01_JPRB, 0.414795E-01_JPRB, 0.375190E-01_JPRB &
+  &, 0.338759E-01_JPRB, 0.305286E-01_JPRB, 0.274519E-01_JPRB &
+  &, 0.246350E-01_JPRB, 0.220647E-01_JPRB, 0.197066E-01_JPRB, 0.175800E-01_JPRB &
+  &, 0.156455E-01_JPRB, 0.138795E-01_JPRB, 0.122968E-01_JPRB &
+  &, 0.108704E-01_JPRB, 0.959182E-02_JPRB, 0.845116E-02_JPRB, 0.741459E-02_JPRB &
+  &, 0.651363E-02_JPRB, 0.568842E-02_JPRB, 0.496910E-02_JPRB &
+  &, 0.433926E-02_JPRB, 0.375592E-02_JPRB, 0.327359E-02_JPRB, 0.282186E-02_JPRB &
+  &, 0.242965E-02_JPRB, 0.210119E-02_JPRB, 0.181350E-02_JPRB &
+  &, 0.154160E-02_JPRB, 0.131524E-02_JPRB, 0.113742E-02_JPRB, 0.952325E-03_JPRB &
+  &, 0.819812E-03_JPRB, 0.681977E-03_JPRB, 0.569830E-03_JPRB &
+  &, 0.484974E-03_JPRB, 0.396810E-03_JPRB, 0.338094E-03_JPRB, 0.277124E-03_JPRB &
+  &, 0.247843E-03_JPRB, 0.182853E-03_JPRB, 0.150679E-03_JPRB &
+  &, 0.117324E-03_JPRB, 0.119157E-03_JPRB, 0.840051E-04_JPRB, 0.476254E-04_JPRB &
+  &, 0.482543E-04_JPRB, 0.488890E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 209, :) = (/ &
+  &  0.917749E+00_JPRB, 0.896933E+00_JPRB, 0.876044E+00_JPRB, 0.855098E+00_JPRB &
+  &, 0.834107E+00_JPRB, 0.813088E+00_JPRB, 0.792052E+00_JPRB &
+  &, 0.771016E+00_JPRB, 0.749996E+00_JPRB, 0.729005E+00_JPRB, 0.708060E+00_JPRB &
+  &, 0.687176E+00_JPRB, 0.666369E+00_JPRB, 0.645655E+00_JPRB &
+  &, 0.625051E+00_JPRB, 0.604573E+00_JPRB, 0.584239E+00_JPRB, 0.564063E+00_JPRB &
+  &, 0.544065E+00_JPRB, 0.524258E+00_JPRB, 0.504664E+00_JPRB &
+  &, 0.485300E+00_JPRB, 0.466182E+00_JPRB, 0.447323E+00_JPRB, 0.428746E+00_JPRB &
+  &, 0.410469E+00_JPRB, 0.392502E+00_JPRB, 0.374866E+00_JPRB &
+  &, 0.357577E+00_JPRB, 0.340650E+00_JPRB, 0.324099E+00_JPRB, 0.307940E+00_JPRB &
+  &, 0.292178E+00_JPRB, 0.276847E+00_JPRB, 0.261941E+00_JPRB &
+  &, 0.247471E+00_JPRB, 0.233450E+00_JPRB, 0.219891E+00_JPRB, 0.206796E+00_JPRB &
+  &, 0.194177E+00_JPRB, 0.182034E+00_JPRB, 0.170368E+00_JPRB &
+  &, 0.159184E+00_JPRB, 0.148479E+00_JPRB, 0.138267E+00_JPRB, 0.128514E+00_JPRB &
+  &, 0.119255E+00_JPRB, 0.110448E+00_JPRB, 0.102125E+00_JPRB &
+  &, 0.942358E-01_JPRB, 0.868053E-01_JPRB, 0.798030E-01_JPRB, 0.732353E-01_JPRB &
+  &, 0.670777E-01_JPRB, 0.613158E-01_JPRB, 0.559314E-01_JPRB &
+  &, 0.509338E-01_JPRB, 0.462831E-01_JPRB, 0.419662E-01_JPRB, 0.379837E-01_JPRB &
+  &, 0.343003E-01_JPRB, 0.309279E-01_JPRB, 0.278069E-01_JPRB &
+  &, 0.249616E-01_JPRB, 0.223615E-01_JPRB, 0.199909E-01_JPRB, 0.178318E-01_JPRB &
+  &, 0.158830E-01_JPRB, 0.141019E-01_JPRB, 0.125033E-01_JPRB &
+  &, 0.110602E-01_JPRB, 0.976407E-02_JPRB, 0.860503E-02_JPRB, 0.754922E-02_JPRB &
+  &, 0.662813E-02_JPRB, 0.580526E-02_JPRB, 0.506447E-02_JPRB &
+  &, 0.441222E-02_JPRB, 0.383035E-02_JPRB, 0.332419E-02_JPRB, 0.287345E-02_JPRB &
+  &, 0.248225E-02_JPRB, 0.215481E-02_JPRB, 0.184082E-02_JPRB &
+  &, 0.156945E-02_JPRB, 0.134362E-02_JPRB, 0.116633E-02_JPRB, 0.981773E-03_JPRB &
+  &, 0.849805E-03_JPRB, 0.712521E-03_JPRB, 0.600932E-03_JPRB &
+  &, 0.516639E-03_JPRB, 0.429044E-03_JPRB, 0.338094E-03_JPRB, 0.310515E-03_JPRB &
+  &, 0.247843E-03_JPRB, 0.217424E-03_JPRB, 0.150679E-03_JPRB &
+  &, 0.117324E-03_JPRB, 0.119157E-03_JPRB, 0.840051E-04_JPRB, 0.852508E-04_JPRB &
+  &, 0.482543E-04_JPRB, 0.488890E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 210, :) = (/ &
+  &  0.918076E+00_JPRB, 0.897338E+00_JPRB, 0.876523E+00_JPRB, 0.855648E+00_JPRB &
+  &, 0.834726E+00_JPRB, 0.813771E+00_JPRB, 0.792799E+00_JPRB &
+  &, 0.771823E+00_JPRB, 0.750859E+00_JPRB, 0.729923E+00_JPRB, 0.709029E+00_JPRB &
+  &, 0.688193E+00_JPRB, 0.667432E+00_JPRB, 0.646762E+00_JPRB &
+  &, 0.626198E+00_JPRB, 0.605757E+00_JPRB, 0.585455E+00_JPRB, 0.565311E+00_JPRB &
+  &, 0.545339E+00_JPRB, 0.525559E+00_JPRB, 0.505987E+00_JPRB &
+  &, 0.486640E+00_JPRB, 0.467535E+00_JPRB, 0.448691E+00_JPRB, 0.430124E+00_JPRB &
+  &, 0.411851E+00_JPRB, 0.393888E+00_JPRB, 0.376251E+00_JPRB &
+  &, 0.358957E+00_JPRB, 0.342024E+00_JPRB, 0.325466E+00_JPRB, 0.309296E+00_JPRB &
+  &, 0.293529E+00_JPRB, 0.278174E+00_JPRB, 0.263247E+00_JPRB &
+  &, 0.248755E+00_JPRB, 0.234719E+00_JPRB, 0.221133E+00_JPRB, 0.208009E+00_JPRB &
+  &, 0.195359E+00_JPRB, 0.183183E+00_JPRB, 0.171491E+00_JPRB &
+  &, 0.160270E+00_JPRB, 0.149535E+00_JPRB, 0.139279E+00_JPRB, 0.129492E+00_JPRB &
+  &, 0.120196E+00_JPRB, 0.111350E+00_JPRB, 0.102984E+00_JPRB &
+  &, 0.950636E-01_JPRB, 0.875859E-01_JPRB, 0.805611E-01_JPRB, 0.739411E-01_JPRB &
+  &, 0.677425E-01_JPRB, 0.619371E-01_JPRB, 0.565371E-01_JPRB &
+  &, 0.514917E-01_JPRB, 0.468064E-01_JPRB, 0.424530E-01_JPRB, 0.384484E-01_JPRB &
+  &, 0.347417E-01_JPRB, 0.313272E-01_JPRB, 0.281797E-01_JPRB &
+  &, 0.253064E-01_JPRB, 0.226768E-01_JPRB, 0.202753E-01_JPRB, 0.181030E-01_JPRB &
+  &, 0.161205E-01_JPRB, 0.143243E-01_JPRB, 0.127098E-01_JPRB &
+  &, 0.112500E-01_JPRB, 0.993633E-02_JPRB, 0.875891E-02_JPRB, 0.770629E-02_JPRB &
+  &, 0.674263E-02_JPRB, 0.592210E-02_JPRB, 0.515984E-02_JPRB &
+  &, 0.450951E-02_JPRB, 0.392958E-02_JPRB, 0.340009E-02_JPRB, 0.295084E-02_JPRB &
+  &, 0.253485E-02_JPRB, 0.218162E-02_JPRB, 0.189548E-02_JPRB &
+  &, 0.162514E-02_JPRB, 0.140036E-02_JPRB, 0.119524E-02_JPRB, 0.101122E-02_JPRB &
+  &, 0.849805E-03_JPRB, 0.712521E-03_JPRB, 0.600932E-03_JPRB &
+  &, 0.516639E-03_JPRB, 0.429044E-03_JPRB, 0.370903E-03_JPRB, 0.310515E-03_JPRB &
+  &, 0.247843E-03_JPRB, 0.217424E-03_JPRB, 0.185849E-03_JPRB &
+  &, 0.153099E-03_JPRB, 0.119157E-03_JPRB, 0.840051E-04_JPRB, 0.852508E-04_JPRB &
+  &, 0.482543E-04_JPRB, 0.488890E-04_JPRB, 0.495298E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART30',1,ZHOOK_HANDLE)
+END SUBROUTINE PART30
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART31
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART31',0,ZHOOK_HANDLE)
+
+XCW( 211, :) = (/ &
+  &  0.918405E+00_JPRB, 0.897743E+00_JPRB, 0.877001E+00_JPRB, 0.856197E+00_JPRB &
+  &, 0.835343E+00_JPRB, 0.814453E+00_JPRB, 0.793543E+00_JPRB &
+  &, 0.772628E+00_JPRB, 0.751721E+00_JPRB, 0.730839E+00_JPRB, 0.709997E+00_JPRB &
+  &, 0.689210E+00_JPRB, 0.668495E+00_JPRB, 0.647867E+00_JPRB &
+  &, 0.627342E+00_JPRB, 0.606939E+00_JPRB, 0.586671E+00_JPRB, 0.566557E+00_JPRB &
+  &, 0.546613E+00_JPRB, 0.526856E+00_JPRB, 0.507307E+00_JPRB &
+  &, 0.487976E+00_JPRB, 0.468888E+00_JPRB, 0.450058E+00_JPRB, 0.431499E+00_JPRB &
+  &, 0.413230E+00_JPRB, 0.395270E+00_JPRB, 0.377637E+00_JPRB &
+  &, 0.360342E+00_JPRB, 0.343403E+00_JPRB, 0.326838E+00_JPRB, 0.310655E+00_JPRB &
+  &, 0.294875E+00_JPRB, 0.279506E+00_JPRB, 0.264558E+00_JPRB &
+  &, 0.250047E+00_JPRB, 0.235987E+00_JPRB, 0.222374E+00_JPRB, 0.209222E+00_JPRB &
+  &, 0.196551E+00_JPRB, 0.184342E+00_JPRB, 0.172604E+00_JPRB &
+  &, 0.161355E+00_JPRB, 0.150590E+00_JPRB, 0.140291E+00_JPRB, 0.130481E+00_JPRB &
+  &, 0.121136E+00_JPRB, 0.112264E+00_JPRB, 0.103844E+00_JPRB &
+  &, 0.958914E-01_JPRB, 0.883799E-01_JPRB, 0.813055E-01_JPRB, 0.746609E-01_JPRB &
+  &, 0.684217E-01_JPRB, 0.625880E-01_JPRB, 0.571277E-01_JPRB &
+  &, 0.520496E-01_JPRB, 0.473297E-01_JPRB, 0.429559E-01_JPRB, 0.389131E-01_JPRB &
+  &, 0.351660E-01_JPRB, 0.317264E-01_JPRB, 0.285524E-01_JPRB &
+  &, 0.256512E-01_JPRB, 0.229922E-01_JPRB, 0.205786E-01_JPRB, 0.183742E-01_JPRB &
+  &, 0.163580E-01_JPRB, 0.145467E-01_JPRB, 0.129163E-01_JPRB &
+  &, 0.114398E-01_JPRB, 0.101086E-01_JPRB, 0.891278E-02_JPRB, 0.784092E-02_JPRB &
+  &, 0.688003E-02_JPRB, 0.601557E-02_JPRB, 0.525521E-02_JPRB &
+  &, 0.458247E-02_JPRB, 0.400400E-02_JPRB, 0.347599E-02_JPRB, 0.300244E-02_JPRB &
+  &, 0.258745E-02_JPRB, 0.223524E-02_JPRB, 0.192280E-02_JPRB &
+  &, 0.165299E-02_JPRB, 0.142874E-02_JPRB, 0.122415E-02_JPRB, 0.104067E-02_JPRB &
+  &, 0.879798E-03_JPRB, 0.743065E-03_JPRB, 0.632034E-03_JPRB &
+  &, 0.516639E-03_JPRB, 0.461279E-03_JPRB, 0.370903E-03_JPRB, 0.310515E-03_JPRB &
+  &, 0.247843E-03_JPRB, 0.217424E-03_JPRB, 0.185849E-03_JPRB &
+  &, 0.153099E-03_JPRB, 0.119157E-03_JPRB, 0.840051E-04_JPRB, 0.852508E-04_JPRB &
+  &, 0.482543E-04_JPRB, 0.488890E-04_JPRB, 0.495298E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 212, :) = (/ &
+  &  0.918733E+00_JPRB, 0.898146E+00_JPRB, 0.877477E+00_JPRB, 0.856744E+00_JPRB &
+  &, 0.835958E+00_JPRB, 0.815134E+00_JPRB, 0.794286E+00_JPRB &
+  &, 0.773431E+00_JPRB, 0.752582E+00_JPRB, 0.731753E+00_JPRB, 0.710963E+00_JPRB &
+  &, 0.690224E+00_JPRB, 0.669555E+00_JPRB, 0.648969E+00_JPRB &
+  &, 0.628485E+00_JPRB, 0.608118E+00_JPRB, 0.587884E+00_JPRB, 0.567801E+00_JPRB &
+  &, 0.547883E+00_JPRB, 0.528154E+00_JPRB, 0.508623E+00_JPRB &
+  &, 0.489315E+00_JPRB, 0.470241E+00_JPRB, 0.451422E+00_JPRB, 0.432874E+00_JPRB &
+  &, 0.414612E+00_JPRB, 0.396656E+00_JPRB, 0.379022E+00_JPRB &
+  &, 0.361726E+00_JPRB, 0.344781E+00_JPRB, 0.328205E+00_JPRB, 0.312015E+00_JPRB &
+  &, 0.296221E+00_JPRB, 0.280833E+00_JPRB, 0.265873E+00_JPRB &
+  &, 0.251340E+00_JPRB, 0.237255E+00_JPRB, 0.223616E+00_JPRB, 0.210445E+00_JPRB &
+  &, 0.197733E+00_JPRB, 0.185501E+00_JPRB, 0.173738E+00_JPRB &
+  &, 0.162451E+00_JPRB, 0.151646E+00_JPRB, 0.141315E+00_JPRB, 0.131459E+00_JPRB &
+  &, 0.122077E+00_JPRB, 0.113165E+00_JPRB, 0.104716E+00_JPRB &
+  &, 0.967192E-01_JPRB, 0.891740E-01_JPRB, 0.820636E-01_JPRB, 0.753666E-01_JPRB &
+  &, 0.691009E-01_JPRB, 0.632242E-01_JPRB, 0.577334E-01_JPRB &
+  &, 0.526230E-01_JPRB, 0.478689E-01_JPRB, 0.434589E-01_JPRB, 0.393779E-01_JPRB &
+  &, 0.356074E-01_JPRB, 0.321257E-01_JPRB, 0.289252E-01_JPRB &
+  &, 0.259960E-01_JPRB, 0.233260E-01_JPRB, 0.208630E-01_JPRB, 0.186454E-01_JPRB &
+  &, 0.166152E-01_JPRB, 0.147691E-01_JPRB, 0.131228E-01_JPRB &
+  &, 0.116085E-01_JPRB, 0.102593E-01_JPRB, 0.906666E-02_JPRB, 0.797555E-02_JPRB &
+  &, 0.699453E-02_JPRB, 0.613241E-02_JPRB, 0.537442E-02_JPRB &
+  &, 0.467976E-02_JPRB, 0.407842E-02_JPRB, 0.355189E-02_JPRB, 0.307983E-02_JPRB &
+  &, 0.266635E-02_JPRB, 0.228886E-02_JPRB, 0.197745E-02_JPRB &
+  &, 0.170868E-02_JPRB, 0.145711E-02_JPRB, 0.125305E-02_JPRB, 0.107012E-02_JPRB &
+  &, 0.909791E-03_JPRB, 0.773610E-03_JPRB, 0.663136E-03_JPRB &
+  &, 0.548304E-03_JPRB, 0.461279E-03_JPRB, 0.370903E-03_JPRB, 0.310515E-03_JPRB &
+  &, 0.281821E-03_JPRB, 0.217424E-03_JPRB, 0.185849E-03_JPRB &
+  &, 0.153099E-03_JPRB, 0.119157E-03_JPRB, 0.840051E-04_JPRB, 0.852508E-04_JPRB &
+  &, 0.482543E-04_JPRB, 0.488890E-04_JPRB, 0.495298E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 213, :) = (/ &
+  &  0.919060E+00_JPRB, 0.898548E+00_JPRB, 0.877953E+00_JPRB, 0.857290E+00_JPRB &
+  &, 0.836572E+00_JPRB, 0.815813E+00_JPRB, 0.795028E+00_JPRB &
+  &, 0.774232E+00_JPRB, 0.753440E+00_JPRB, 0.732667E+00_JPRB, 0.711928E+00_JPRB &
+  &, 0.691238E+00_JPRB, 0.670614E+00_JPRB, 0.650071E+00_JPRB &
+  &, 0.629626E+00_JPRB, 0.609295E+00_JPRB, 0.589095E+00_JPRB, 0.569043E+00_JPRB &
+  &, 0.549156E+00_JPRB, 0.529448E+00_JPRB, 0.509940E+00_JPRB &
+  &, 0.490651E+00_JPRB, 0.471591E+00_JPRB, 0.452786E+00_JPRB, 0.434245E+00_JPRB &
+  &, 0.415994E+00_JPRB, 0.398042E+00_JPRB, 0.380407E+00_JPRB &
+  &, 0.363106E+00_JPRB, 0.346160E+00_JPRB, 0.329577E+00_JPRB, 0.313375E+00_JPRB &
+  &, 0.297568E+00_JPRB, 0.282165E+00_JPRB, 0.267184E+00_JPRB &
+  &, 0.252633E+00_JPRB, 0.238524E+00_JPRB, 0.224858E+00_JPRB, 0.211658E+00_JPRB &
+  &, 0.198926E+00_JPRB, 0.186661E+00_JPRB, 0.174862E+00_JPRB &
+  &, 0.163548E+00_JPRB, 0.152702E+00_JPRB, 0.142339E+00_JPRB, 0.132449E+00_JPRB &
+  &, 0.123030E+00_JPRB, 0.114079E+00_JPRB, 0.105588E+00_JPRB &
+  &, 0.975601E-01_JPRB, 0.899681E-01_JPRB, 0.828216E-01_JPRB, 0.760864E-01_JPRB &
+  &, 0.697801E-01_JPRB, 0.638603E-01_JPRB, 0.583391E-01_JPRB &
+  &, 0.531964E-01_JPRB, 0.484080E-01_JPRB, 0.439618E-01_JPRB, 0.398426E-01_JPRB &
+  &, 0.360318E-01_JPRB, 0.325250E-01_JPRB, 0.293157E-01_JPRB &
+  &, 0.263408E-01_JPRB, 0.236414E-01_JPRB, 0.211663E-01_JPRB, 0.189166E-01_JPRB &
+  &, 0.168725E-01_JPRB, 0.150117E-01_JPRB, 0.133293E-01_JPRB &
+  &, 0.118193E-01_JPRB, 0.104531E-01_JPRB, 0.922053E-02_JPRB, 0.811018E-02_JPRB &
+  &, 0.713193E-02_JPRB, 0.624925E-02_JPRB, 0.546978E-02_JPRB &
+  &, 0.477705E-02_JPRB, 0.415284E-02_JPRB, 0.362778E-02_JPRB, 0.313142E-02_JPRB &
+  &, 0.271896E-02_JPRB, 0.234248E-02_JPRB, 0.203211E-02_JPRB &
+  &, 0.173653E-02_JPRB, 0.148549E-02_JPRB, 0.128196E-02_JPRB, 0.109956E-02_JPRB &
+  &, 0.939784E-03_JPRB, 0.773610E-03_JPRB, 0.663136E-03_JPRB &
+  &, 0.548304E-03_JPRB, 0.461279E-03_JPRB, 0.403712E-03_JPRB, 0.343905E-03_JPRB &
+  &, 0.281821E-03_JPRB, 0.217424E-03_JPRB, 0.185849E-03_JPRB &
+  &, 0.153099E-03_JPRB, 0.119157E-03_JPRB, 0.840051E-04_JPRB, 0.852508E-04_JPRB &
+  &, 0.482543E-04_JPRB, 0.488890E-04_JPRB, 0.495298E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 214, :) = (/ &
+  &  0.919386E+00_JPRB, 0.898950E+00_JPRB, 0.878427E+00_JPRB, 0.857835E+00_JPRB &
+  &, 0.837184E+00_JPRB, 0.816490E+00_JPRB, 0.795768E+00_JPRB &
+  &, 0.775031E+00_JPRB, 0.754297E+00_JPRB, 0.733577E+00_JPRB, 0.712890E+00_JPRB &
+  &, 0.692249E+00_JPRB, 0.671670E+00_JPRB, 0.651170E+00_JPRB &
+  &, 0.630765E+00_JPRB, 0.610472E+00_JPRB, 0.590307E+00_JPRB, 0.570285E+00_JPRB &
+  &, 0.550425E+00_JPRB, 0.530742E+00_JPRB, 0.511256E+00_JPRB &
+  &, 0.491984E+00_JPRB, 0.472944E+00_JPRB, 0.454150E+00_JPRB, 0.435620E+00_JPRB &
+  &, 0.417373E+00_JPRB, 0.399424E+00_JPRB, 0.381792E+00_JPRB &
+  &, 0.364490E+00_JPRB, 0.347538E+00_JPRB, 0.330949E+00_JPRB, 0.314735E+00_JPRB &
+  &, 0.298914E+00_JPRB, 0.283496E+00_JPRB, 0.268499E+00_JPRB &
+  &, 0.253926E+00_JPRB, 0.239792E+00_JPRB, 0.226110E+00_JPRB, 0.212881E+00_JPRB &
+  &, 0.200118E+00_JPRB, 0.187820E+00_JPRB, 0.175996E+00_JPRB &
+  &, 0.164644E+00_JPRB, 0.153769E+00_JPRB, 0.143363E+00_JPRB, 0.133438E+00_JPRB &
+  &, 0.123983E+00_JPRB, 0.114993E+00_JPRB, 0.106473E+00_JPRB &
+  &, 0.984011E-01_JPRB, 0.907756E-01_JPRB, 0.835797E-01_JPRB, 0.768204E-01_JPRB &
+  &, 0.704593E-01_JPRB, 0.645112E-01_JPRB, 0.589599E-01_JPRB &
+  &, 0.537698E-01_JPRB, 0.489472E-01_JPRB, 0.444648E-01_JPRB, 0.403073E-01_JPRB &
+  &, 0.364731E-01_JPRB, 0.329416E-01_JPRB, 0.296884E-01_JPRB &
+  &, 0.267037E-01_JPRB, 0.239753E-01_JPRB, 0.214696E-01_JPRB, 0.191878E-01_JPRB &
+  &, 0.171100E-01_JPRB, 0.152341E-01_JPRB, 0.135358E-01_JPRB &
+  &, 0.120091E-01_JPRB, 0.106254E-01_JPRB, 0.937441E-02_JPRB, 0.826724E-02_JPRB &
+  &, 0.726933E-02_JPRB, 0.636609E-02_JPRB, 0.556515E-02_JPRB &
+  &, 0.487433E-02_JPRB, 0.425207E-02_JPRB, 0.367838E-02_JPRB, 0.320881E-02_JPRB &
+  &, 0.277156E-02_JPRB, 0.239610E-02_JPRB, 0.205943E-02_JPRB &
+  &, 0.176438E-02_JPRB, 0.151386E-02_JPRB, 0.131087E-02_JPRB, 0.112901E-02_JPRB &
+  &, 0.939784E-03_JPRB, 0.804154E-03_JPRB, 0.694237E-03_JPRB &
+  &, 0.579969E-03_JPRB, 0.493513E-03_JPRB, 0.403712E-03_JPRB, 0.343905E-03_JPRB &
+  &, 0.281821E-03_JPRB, 0.251995E-03_JPRB, 0.185849E-03_JPRB &
+  &, 0.153099E-03_JPRB, 0.119157E-03_JPRB, 0.121008E-03_JPRB, 0.852508E-04_JPRB &
+  &, 0.482543E-04_JPRB, 0.488890E-04_JPRB, 0.495298E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 215, :) = (/ &
+  &  0.919712E+00_JPRB, 0.899349E+00_JPRB, 0.878900E+00_JPRB, 0.858378E+00_JPRB &
+  &, 0.837795E+00_JPRB, 0.817166E+00_JPRB, 0.796507E+00_JPRB &
+  &, 0.775830E+00_JPRB, 0.755152E+00_JPRB, 0.734487E+00_JPRB, 0.713850E+00_JPRB &
+  &, 0.693258E+00_JPRB, 0.672725E+00_JPRB, 0.652268E+00_JPRB &
+  &, 0.631904E+00_JPRB, 0.611646E+00_JPRB, 0.591515E+00_JPRB, 0.571525E+00_JPRB &
+  &, 0.551693E+00_JPRB, 0.532037E+00_JPRB, 0.512573E+00_JPRB &
+  &, 0.493317E+00_JPRB, 0.474294E+00_JPRB, 0.455510E+00_JPRB, 0.436991E+00_JPRB &
+  &, 0.418751E+00_JPRB, 0.400806E+00_JPRB, 0.383178E+00_JPRB &
+  &, 0.365874E+00_JPRB, 0.348916E+00_JPRB, 0.332312E+00_JPRB, 0.316094E+00_JPRB &
+  &, 0.300261E+00_JPRB, 0.284832E+00_JPRB, 0.269815E+00_JPRB &
+  &, 0.255219E+00_JPRB, 0.241070E+00_JPRB, 0.227361E+00_JPRB, 0.214104E+00_JPRB &
+  &, 0.201310E+00_JPRB, 0.188979E+00_JPRB, 0.177120E+00_JPRB &
+  &, 0.165740E+00_JPRB, 0.154836E+00_JPRB, 0.144398E+00_JPRB, 0.134428E+00_JPRB &
+  &, 0.124936E+00_JPRB, 0.115920E+00_JPRB, 0.107358E+00_JPRB &
+  &, 0.992420E-01_JPRB, 0.915697E-01_JPRB, 0.843516E-01_JPRB, 0.775402E-01_JPRB &
+  &, 0.711530E-01_JPRB, 0.651622E-01_JPRB, 0.595657E-01_JPRB &
+  &, 0.543432E-01_JPRB, 0.494864E-01_JPRB, 0.449677E-01_JPRB, 0.407886E-01_JPRB &
+  &, 0.369315E-01_JPRB, 0.333583E-01_JPRB, 0.300789E-01_JPRB &
+  &, 0.270666E-01_JPRB, 0.242906E-01_JPRB, 0.217729E-01_JPRB, 0.194784E-01_JPRB &
+  &, 0.173673E-01_JPRB, 0.154767E-01_JPRB, 0.137423E-01_JPRB &
+  &, 0.121989E-01_JPRB, 0.107976E-01_JPRB, 0.952829E-02_JPRB, 0.840187E-02_JPRB &
+  &, 0.738383E-02_JPRB, 0.648293E-02_JPRB, 0.568436E-02_JPRB &
+  &, 0.497162E-02_JPRB, 0.432650E-02_JPRB, 0.375428E-02_JPRB, 0.326041E-02_JPRB &
+  &, 0.282416E-02_JPRB, 0.244972E-02_JPRB, 0.211408E-02_JPRB &
+  &, 0.182007E-02_JPRB, 0.157061E-02_JPRB, 0.133978E-02_JPRB, 0.112901E-02_JPRB &
+  &, 0.969778E-03_JPRB, 0.834698E-03_JPRB, 0.694237E-03_JPRB &
+  &, 0.579969E-03_JPRB, 0.493513E-03_JPRB, 0.403712E-03_JPRB, 0.343905E-03_JPRB &
+  &, 0.281821E-03_JPRB, 0.251995E-03_JPRB, 0.185849E-03_JPRB &
+  &, 0.153099E-03_JPRB, 0.119157E-03_JPRB, 0.121008E-03_JPRB, 0.852508E-04_JPRB &
+  &, 0.865085E-04_JPRB, 0.488890E-04_JPRB, 0.495298E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 216, :) = (/ &
+  &  0.920036E+00_JPRB, 0.899750E+00_JPRB, 0.879373E+00_JPRB, 0.858920E+00_JPRB &
+  &, 0.838404E+00_JPRB, 0.817841E+00_JPRB, 0.797241E+00_JPRB &
+  &, 0.776627E+00_JPRB, 0.756004E+00_JPRB, 0.735394E+00_JPRB, 0.714809E+00_JPRB &
+  &, 0.694266E+00_JPRB, 0.673779E+00_JPRB, 0.653364E+00_JPRB &
+  &, 0.633039E+00_JPRB, 0.612819E+00_JPRB, 0.592722E+00_JPRB, 0.572762E+00_JPRB &
+  &, 0.552959E+00_JPRB, 0.533328E+00_JPRB, 0.513886E+00_JPRB &
+  &, 0.494650E+00_JPRB, 0.475641E+00_JPRB, 0.456874E+00_JPRB, 0.438362E+00_JPRB &
+  &, 0.420130E+00_JPRB, 0.402192E+00_JPRB, 0.384559E+00_JPRB &
+  &, 0.367258E+00_JPRB, 0.350295E+00_JPRB, 0.333688E+00_JPRB, 0.317458E+00_JPRB &
+  &, 0.301611E+00_JPRB, 0.286164E+00_JPRB, 0.271130E+00_JPRB &
+  &, 0.256521E+00_JPRB, 0.242338E+00_JPRB, 0.228613E+00_JPRB, 0.215327E+00_JPRB &
+  &, 0.202503E+00_JPRB, 0.190149E+00_JPRB, 0.178254E+00_JPRB &
+  &, 0.166837E+00_JPRB, 0.155903E+00_JPRB, 0.145434E+00_JPRB, 0.135430E+00_JPRB &
+  &, 0.125902E+00_JPRB, 0.116834E+00_JPRB, 0.108231E+00_JPRB &
+  &, 0.100083E+00_JPRB, 0.923772E-01_JPRB, 0.851097E-01_JPRB, 0.782742E-01_JPRB &
+  &, 0.718466E-01_JPRB, 0.658279E-01_JPRB, 0.601865E-01_JPRB &
+  &, 0.549321E-01_JPRB, 0.500414E-01_JPRB, 0.454869E-01_JPRB, 0.412699E-01_JPRB &
+  &, 0.373728E-01_JPRB, 0.337749E-01_JPRB, 0.303984E-01_JPRB &
+  &, 0.274114E-01_JPRB, 0.246245E-01_JPRB, 0.220762E-01_JPRB, 0.197496E-01_JPRB &
+  &, 0.176246E-01_JPRB, 0.157193E-01_JPRB, 0.139694E-01_JPRB &
+  &, 0.123887E-01_JPRB, 0.109699E-01_JPRB, 0.970414E-02_JPRB, 0.855894E-02_JPRB &
+  &, 0.752123E-02_JPRB, 0.659977E-02_JPRB, 0.577973E-02_JPRB &
+  &, 0.506891E-02_JPRB, 0.442572E-02_JPRB, 0.385548E-02_JPRB, 0.333780E-02_JPRB &
+  &, 0.290306E-02_JPRB, 0.250334E-02_JPRB, 0.216873E-02_JPRB &
+  &, 0.184792E-02_JPRB, 0.159899E-02_JPRB, 0.136869E-02_JPRB, 0.115846E-02_JPRB &
+  &, 0.999771E-03_JPRB, 0.834698E-03_JPRB, 0.725339E-03_JPRB &
+  &, 0.611634E-03_JPRB, 0.525747E-03_JPRB, 0.436522E-03_JPRB, 0.377296E-03_JPRB &
+  &, 0.315799E-03_JPRB, 0.251995E-03_JPRB, 0.221018E-03_JPRB &
+  &, 0.153099E-03_JPRB, 0.155543E-03_JPRB, 0.121008E-03_JPRB, 0.852508E-04_JPRB &
+  &, 0.865085E-04_JPRB, 0.488890E-04_JPRB, 0.495298E-04_JPRB &
+  &, 0.501765E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 217, :) = (/ &
+  &  0.920359E+00_JPRB, 0.900148E+00_JPRB, 0.879843E+00_JPRB, 0.859461E+00_JPRB &
+  &, 0.839013E+00_JPRB, 0.818514E+00_JPRB, 0.797979E+00_JPRB &
+  &, 0.777421E+00_JPRB, 0.756857E+00_JPRB, 0.736300E+00_JPRB, 0.715767E+00_JPRB &
+  &, 0.695272E+00_JPRB, 0.674830E+00_JPRB, 0.654459E+00_JPRB &
+  &, 0.634174E+00_JPRB, 0.613991E+00_JPRB, 0.593928E+00_JPRB, 0.573999E+00_JPRB &
+  &, 0.554224E+00_JPRB, 0.534616E+00_JPRB, 0.515199E+00_JPRB &
+  &, 0.495983E+00_JPRB, 0.476991E+00_JPRB, 0.458234E+00_JPRB, 0.439734E+00_JPRB &
+  &, 0.421508E+00_JPRB, 0.403574E+00_JPRB, 0.385944E+00_JPRB &
+  &, 0.368639E+00_JPRB, 0.351673E+00_JPRB, 0.335060E+00_JPRB, 0.318818E+00_JPRB &
+  &, 0.302962E+00_JPRB, 0.287500E+00_JPRB, 0.272450E+00_JPRB &
+  &, 0.257814E+00_JPRB, 0.243616E+00_JPRB, 0.229865E+00_JPRB, 0.216551E+00_JPRB &
+  &, 0.203705E+00_JPRB, 0.191319E+00_JPRB, 0.179399E+00_JPRB &
+  &, 0.167944E+00_JPRB, 0.156970E+00_JPRB, 0.146469E+00_JPRB, 0.136431E+00_JPRB &
+  &, 0.126867E+00_JPRB, 0.117760E+00_JPRB, 0.109129E+00_JPRB &
+  &, 0.100937E+00_JPRB, 0.931982E-01_JPRB, 0.858954E-01_JPRB, 0.790081E-01_JPRB &
+  &, 0.725403E-01_JPRB, 0.664788E-01_JPRB, 0.608073E-01_JPRB &
+  &, 0.555210E-01_JPRB, 0.505805E-01_JPRB, 0.460061E-01_JPRB, 0.417512E-01_JPRB &
+  &, 0.378312E-01_JPRB, 0.341915E-01_JPRB, 0.308599E-01_JPRB &
+  &, 0.277743E-01_JPRB, 0.249583E-01_JPRB, 0.223796E-01_JPRB, 0.200401E-01_JPRB &
+  &, 0.179017E-01_JPRB, 0.159417E-01_JPRB, 0.141759E-01_JPRB &
+  &, 0.125996E-01_JPRB, 0.111637E-01_JPRB, 0.985802E-02_JPRB, 0.869357E-02_JPRB &
+  &, 0.765863E-02_JPRB, 0.671661E-02_JPRB, 0.589894E-02_JPRB &
+  &, 0.516619E-02_JPRB, 0.450015E-02_JPRB, 0.393137E-02_JPRB, 0.341519E-02_JPRB &
+  &, 0.295566E-02_JPRB, 0.255696E-02_JPRB, 0.219606E-02_JPRB &
+  &, 0.190362E-02_JPRB, 0.162736E-02_JPRB, 0.139760E-02_JPRB, 0.118791E-02_JPRB &
+  &, 0.102976E-02_JPRB, 0.865243E-03_JPRB, 0.725339E-03_JPRB &
+  &, 0.611634E-03_JPRB, 0.525747E-03_JPRB, 0.436522E-03_JPRB, 0.377296E-03_JPRB &
+  &, 0.315799E-03_JPRB, 0.251995E-03_JPRB, 0.221018E-03_JPRB &
+  &, 0.188874E-03_JPRB, 0.155543E-03_JPRB, 0.121008E-03_JPRB, 0.852508E-04_JPRB &
+  &, 0.865085E-04_JPRB, 0.488890E-04_JPRB, 0.495298E-04_JPRB &
+  &, 0.501765E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART31',1,ZHOOK_HANDLE)
+END SUBROUTINE PART31
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART32
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART32',0,ZHOOK_HANDLE)
+
+XCW( 218, :) = (/ &
+  &  0.920681E+00_JPRB, 0.900545E+00_JPRB, 0.880313E+00_JPRB, 0.860001E+00_JPRB &
+  &, 0.839620E+00_JPRB, 0.819186E+00_JPRB, 0.798713E+00_JPRB &
+  &, 0.778215E+00_JPRB, 0.757707E+00_JPRB, 0.737205E+00_JPRB, 0.716722E+00_JPRB &
+  &, 0.696275E+00_JPRB, 0.675880E+00_JPRB, 0.655552E+00_JPRB &
+  &, 0.635307E+00_JPRB, 0.615162E+00_JPRB, 0.595132E+00_JPRB, 0.575235E+00_JPRB &
+  &, 0.555486E+00_JPRB, 0.535907E+00_JPRB, 0.516509E+00_JPRB &
+  &, 0.497312E+00_JPRB, 0.478337E+00_JPRB, 0.459595E+00_JPRB, 0.441105E+00_JPRB &
+  &, 0.422887E+00_JPRB, 0.404956E+00_JPRB, 0.387330E+00_JPRB &
+  &, 0.370023E+00_JPRB, 0.353051E+00_JPRB, 0.336435E+00_JPRB, 0.320182E+00_JPRB &
+  &, 0.304313E+00_JPRB, 0.288836E+00_JPRB, 0.273766E+00_JPRB &
+  &, 0.259116E+00_JPRB, 0.244894E+00_JPRB, 0.231116E+00_JPRB, 0.217784E+00_JPRB &
+  &, 0.204908E+00_JPRB, 0.192488E+00_JPRB, 0.180534E+00_JPRB &
+  &, 0.169052E+00_JPRB, 0.158048E+00_JPRB, 0.147505E+00_JPRB, 0.137433E+00_JPRB &
+  &, 0.127832E+00_JPRB, 0.118699E+00_JPRB, 0.110014E+00_JPRB &
+  &, 0.101791E+00_JPRB, 0.940057E-01_JPRB, 0.866673E-01_JPRB, 0.797421E-01_JPRB &
+  &, 0.732484E-01_JPRB, 0.671446E-01_JPRB, 0.614433E-01_JPRB &
+  &, 0.561099E-01_JPRB, 0.511356E-01_JPRB, 0.465253E-01_JPRB, 0.422491E-01_JPRB &
+  &, 0.382725E-01_JPRB, 0.346255E-01_JPRB, 0.312504E-01_JPRB &
+  &, 0.281373E-01_JPRB, 0.252922E-01_JPRB, 0.227018E-01_JPRB, 0.203307E-01_JPRB &
+  &, 0.181590E-01_JPRB, 0.161843E-01_JPRB, 0.144031E-01_JPRB &
+  &, 0.127894E-01_JPRB, 0.113359E-01_JPRB, 0.100339E-01_JPRB, 0.885063E-02_JPRB &
+  &, 0.779603E-02_JPRB, 0.685682E-02_JPRB, 0.599430E-02_JPRB &
+  &, 0.526348E-02_JPRB, 0.459938E-02_JPRB, 0.400727E-02_JPRB, 0.346678E-02_JPRB &
+  &, 0.300826E-02_JPRB, 0.261059E-02_JPRB, 0.225071E-02_JPRB &
+  &, 0.195931E-02_JPRB, 0.168411E-02_JPRB, 0.142650E-02_JPRB, 0.121735E-02_JPRB &
+  &, 0.105976E-02_JPRB, 0.895787E-03_JPRB, 0.756441E-03_JPRB &
+  &, 0.643299E-03_JPRB, 0.557981E-03_JPRB, 0.469331E-03_JPRB, 0.377296E-03_JPRB &
+  &, 0.315799E-03_JPRB, 0.251995E-03_JPRB, 0.221018E-03_JPRB &
+  &, 0.188874E-03_JPRB, 0.155543E-03_JPRB, 0.121008E-03_JPRB, 0.852508E-04_JPRB &
+  &, 0.865085E-04_JPRB, 0.488890E-04_JPRB, 0.495298E-04_JPRB &
+  &, 0.501765E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 219, :) = (/ &
+  &  0.921004E+00_JPRB, 0.900941E+00_JPRB, 0.880782E+00_JPRB, 0.860539E+00_JPRB &
+  &, 0.840225E+00_JPRB, 0.819856E+00_JPRB, 0.799445E+00_JPRB &
+  &, 0.779006E+00_JPRB, 0.758556E+00_JPRB, 0.738107E+00_JPRB, 0.717676E+00_JPRB &
+  &, 0.697277E+00_JPRB, 0.676928E+00_JPRB, 0.656642E+00_JPRB &
+  &, 0.636438E+00_JPRB, 0.616329E+00_JPRB, 0.596334E+00_JPRB, 0.576468E+00_JPRB &
+  &, 0.556749E+00_JPRB, 0.537192E+00_JPRB, 0.517819E+00_JPRB &
+  &, 0.498642E+00_JPRB, 0.479683E+00_JPRB, 0.460955E+00_JPRB, 0.442476E+00_JPRB &
+  &, 0.424265E+00_JPRB, 0.406338E+00_JPRB, 0.388715E+00_JPRB &
+  &, 0.371407E+00_JPRB, 0.354430E+00_JPRB, 0.337807E+00_JPRB, 0.321546E+00_JPRB &
+  &, 0.305663E+00_JPRB, 0.290172E+00_JPRB, 0.275086E+00_JPRB &
+  &, 0.260418E+00_JPRB, 0.246172E+00_JPRB, 0.232368E+00_JPRB, 0.219017E+00_JPRB &
+  &, 0.206110E+00_JPRB, 0.193658E+00_JPRB, 0.181679E+00_JPRB &
+  &, 0.170170E+00_JPRB, 0.159115E+00_JPRB, 0.148540E+00_JPRB, 0.138435E+00_JPRB &
+  &, 0.128798E+00_JPRB, 0.119626E+00_JPRB, 0.110911E+00_JPRB &
+  &, 0.102645E+00_JPRB, 0.948267E-01_JPRB, 0.874391E-01_JPRB, 0.804901E-01_JPRB &
+  &, 0.739420E-01_JPRB, 0.678103E-01_JPRB, 0.620642E-01_JPRB &
+  &, 0.566988E-01_JPRB, 0.517064E-01_JPRB, 0.470445E-01_JPRB, 0.427304E-01_JPRB &
+  &, 0.387309E-01_JPRB, 0.350422E-01_JPRB, 0.316410E-01_JPRB &
+  &, 0.285183E-01_JPRB, 0.256447E-01_JPRB, 0.230051E-01_JPRB, 0.206019E-01_JPRB &
+  &, 0.184163E-01_JPRB, 0.164269E-01_JPRB, 0.146302E-01_JPRB &
+  &, 0.130003E-01_JPRB, 0.115297E-01_JPRB, 0.101878E-01_JPRB, 0.900770E-02_JPRB &
+  &, 0.793343E-02_JPRB, 0.697366E-02_JPRB, 0.611351E-02_JPRB &
+  &, 0.536077E-02_JPRB, 0.467380E-02_JPRB, 0.408317E-02_JPRB, 0.354417E-02_JPRB &
+  &, 0.308716E-02_JPRB, 0.266421E-02_JPRB, 0.230536E-02_JPRB &
+  &, 0.198716E-02_JPRB, 0.171249E-02_JPRB, 0.145541E-02_JPRB, 0.124680E-02_JPRB &
+  &, 0.108975E-02_JPRB, 0.926332E-03_JPRB, 0.787542E-03_JPRB &
+  &, 0.674964E-03_JPRB, 0.557981E-03_JPRB, 0.469331E-03_JPRB, 0.410686E-03_JPRB &
+  &, 0.315799E-03_JPRB, 0.286565E-03_JPRB, 0.221018E-03_JPRB &
+  &, 0.188874E-03_JPRB, 0.155543E-03_JPRB, 0.121008E-03_JPRB, 0.852508E-04_JPRB &
+  &, 0.865085E-04_JPRB, 0.488890E-04_JPRB, 0.495298E-04_JPRB &
+  &, 0.501765E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 220, :) = (/ &
+  &  0.921324E+00_JPRB, 0.901338E+00_JPRB, 0.881250E+00_JPRB, 0.861077E+00_JPRB &
+  &, 0.840830E+00_JPRB, 0.820525E+00_JPRB, 0.800176E+00_JPRB &
+  &, 0.779797E+00_JPRB, 0.759403E+00_JPRB, 0.739008E+00_JPRB, 0.718628E+00_JPRB &
+  &, 0.698278E+00_JPRB, 0.677975E+00_JPRB, 0.657732E+00_JPRB &
+  &, 0.637567E+00_JPRB, 0.617496E+00_JPRB, 0.597535E+00_JPRB, 0.577700E+00_JPRB &
+  &, 0.558010E+00_JPRB, 0.538480E+00_JPRB, 0.519129E+00_JPRB &
+  &, 0.499971E+00_JPRB, 0.481026E+00_JPRB, 0.462312E+00_JPRB, 0.443844E+00_JPRB &
+  &, 0.425644E+00_JPRB, 0.407720E+00_JPRB, 0.390096E+00_JPRB &
+  &, 0.372791E+00_JPRB, 0.355812E+00_JPRB, 0.339179E+00_JPRB, 0.322910E+00_JPRB &
+  &, 0.307014E+00_JPRB, 0.291513E+00_JPRB, 0.276410E+00_JPRB &
+  &, 0.261721E+00_JPRB, 0.247460E+00_JPRB, 0.233629E+00_JPRB, 0.220240E+00_JPRB &
+  &, 0.207313E+00_JPRB, 0.194838E+00_JPRB, 0.182824E+00_JPRB &
+  &, 0.171278E+00_JPRB, 0.160194E+00_JPRB, 0.149587E+00_JPRB, 0.139448E+00_JPRB &
+  &, 0.129775E+00_JPRB, 0.120565E+00_JPRB, 0.111809E+00_JPRB &
+  &, 0.103512E+00_JPRB, 0.956477E-01_JPRB, 0.882248E-01_JPRB, 0.812382E-01_JPRB &
+  &, 0.746501E-01_JPRB, 0.684908E-01_JPRB, 0.627002E-01_JPRB &
+  &, 0.573031E-01_JPRB, 0.522615E-01_JPRB, 0.475799E-01_JPRB, 0.432283E-01_JPRB &
+  &, 0.392062E-01_JPRB, 0.354762E-01_JPRB, 0.320492E-01_JPRB &
+  &, 0.288813E-01_JPRB, 0.259785E-01_JPRB, 0.233274E-01_JPRB, 0.209118E-01_JPRB &
+  &, 0.186934E-01_JPRB, 0.166898E-01_JPRB, 0.148574E-01_JPRB &
+  &, 0.132112E-01_JPRB, 0.117020E-01_JPRB, 0.103636E-01_JPRB, 0.916477E-02_JPRB &
+  &, 0.807083E-02_JPRB, 0.709050E-02_JPRB, 0.623272E-02_JPRB &
+  &, 0.545805E-02_JPRB, 0.477303E-02_JPRB, 0.415907E-02_JPRB, 0.362156E-02_JPRB &
+  &, 0.313976E-02_JPRB, 0.271783E-02_JPRB, 0.236001E-02_JPRB &
+  &, 0.204285E-02_JPRB, 0.174086E-02_JPRB, 0.151323E-02_JPRB, 0.127625E-02_JPRB &
+  &, 0.108975E-02_JPRB, 0.926332E-03_JPRB, 0.787542E-03_JPRB &
+  &, 0.674964E-03_JPRB, 0.557981E-03_JPRB, 0.469331E-03_JPRB, 0.410686E-03_JPRB &
+  &, 0.349776E-03_JPRB, 0.286565E-03_JPRB, 0.221018E-03_JPRB &
+  &, 0.188874E-03_JPRB, 0.155543E-03_JPRB, 0.121008E-03_JPRB, 0.122876E-03_JPRB &
+  &, 0.865085E-04_JPRB, 0.488890E-04_JPRB, 0.495298E-04_JPRB &
+  &, 0.501765E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 221, :) = (/ &
+  &  0.921645E+00_JPRB, 0.901733E+00_JPRB, 0.881716E+00_JPRB, 0.861611E+00_JPRB &
+  &, 0.841433E+00_JPRB, 0.821193E+00_JPRB, 0.800905E+00_JPRB &
+  &, 0.780585E+00_JPRB, 0.760248E+00_JPRB, 0.739908E+00_JPRB, 0.719579E+00_JPRB &
+  &, 0.699278E+00_JPRB, 0.679020E+00_JPRB, 0.658820E+00_JPRB &
+  &, 0.638695E+00_JPRB, 0.618661E+00_JPRB, 0.598735E+00_JPRB, 0.578932E+00_JPRB &
+  &, 0.559270E+00_JPRB, 0.539765E+00_JPRB, 0.520436E+00_JPRB &
+  &, 0.501298E+00_JPRB, 0.482373E+00_JPRB, 0.463669E+00_JPRB, 0.445215E+00_JPRB &
+  &, 0.427019E+00_JPRB, 0.409102E+00_JPRB, 0.391482E+00_JPRB &
+  &, 0.374171E+00_JPRB, 0.357191E+00_JPRB, 0.340554E+00_JPRB, 0.324273E+00_JPRB &
+  &, 0.308369E+00_JPRB, 0.292849E+00_JPRB, 0.277730E+00_JPRB &
+  &, 0.263023E+00_JPRB, 0.248738E+00_JPRB, 0.234891E+00_JPRB, 0.221483E+00_JPRB &
+  &, 0.208516E+00_JPRB, 0.196019E+00_JPRB, 0.183969E+00_JPRB &
+  &, 0.172396E+00_JPRB, 0.161284E+00_JPRB, 0.150634E+00_JPRB, 0.140462E+00_JPRB &
+  &, 0.130753E+00_JPRB, 0.121504E+00_JPRB, 0.112707E+00_JPRB &
+  &, 0.104367E+00_JPRB, 0.964686E-01_JPRB, 0.890105E-01_JPRB, 0.819863E-01_JPRB &
+  &, 0.753727E-01_JPRB, 0.691565E-01_JPRB, 0.633361E-01_JPRB &
+  &, 0.579075E-01_JPRB, 0.528324E-01_JPRB, 0.481153E-01_JPRB, 0.437262E-01_JPRB &
+  &, 0.396645E-01_JPRB, 0.359102E-01_JPRB, 0.324397E-01_JPRB &
+  &, 0.292624E-01_JPRB, 0.263310E-01_JPRB, 0.236497E-01_JPRB, 0.212024E-01_JPRB &
+  &, 0.189705E-01_JPRB, 0.169324E-01_JPRB, 0.150845E-01_JPRB &
+  &, 0.134010E-01_JPRB, 0.118958E-01_JPRB, 0.105395E-01_JPRB, 0.932184E-02_JPRB &
+  &, 0.820823E-02_JPRB, 0.723071E-02_JPRB, 0.635193E-02_JPRB &
+  &, 0.555534E-02_JPRB, 0.487226E-02_JPRB, 0.423496E-02_JPRB, 0.369895E-02_JPRB &
+  &, 0.321867E-02_JPRB, 0.279826E-02_JPRB, 0.241467E-02_JPRB &
+  &, 0.207070E-02_JPRB, 0.179761E-02_JPRB, 0.154214E-02_JPRB, 0.130570E-02_JPRB &
+  &, 0.111974E-02_JPRB, 0.956876E-03_JPRB, 0.818644E-03_JPRB &
+  &, 0.706629E-03_JPRB, 0.590215E-03_JPRB, 0.502140E-03_JPRB, 0.410686E-03_JPRB &
+  &, 0.349776E-03_JPRB, 0.286565E-03_JPRB, 0.256188E-03_JPRB &
+  &, 0.188874E-03_JPRB, 0.155543E-03_JPRB, 0.121008E-03_JPRB, 0.122876E-03_JPRB &
+  &, 0.865085E-04_JPRB, 0.877781E-04_JPRB, 0.495298E-04_JPRB &
+  &, 0.501765E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 222, :) = (/ &
+  &  0.921965E+00_JPRB, 0.902126E+00_JPRB, 0.882182E+00_JPRB, 0.862147E+00_JPRB &
+  &, 0.842035E+00_JPRB, 0.821859E+00_JPRB, 0.801633E+00_JPRB &
+  &, 0.781373E+00_JPRB, 0.761092E+00_JPRB, 0.740805E+00_JPRB, 0.720528E+00_JPRB &
+  &, 0.700276E+00_JPRB, 0.680063E+00_JPRB, 0.659906E+00_JPRB &
+  &, 0.639822E+00_JPRB, 0.619825E+00_JPRB, 0.599933E+00_JPRB, 0.580162E+00_JPRB &
+  &, 0.560528E+00_JPRB, 0.541050E+00_JPRB, 0.521743E+00_JPRB &
+  &, 0.502624E+00_JPRB, 0.483716E+00_JPRB, 0.465029E+00_JPRB, 0.446583E+00_JPRB &
+  &, 0.428397E+00_JPRB, 0.410484E+00_JPRB, 0.392867E+00_JPRB &
+  &, 0.375556E+00_JPRB, 0.358573E+00_JPRB, 0.341926E+00_JPRB, 0.325642E+00_JPRB &
+  &, 0.309724E+00_JPRB, 0.294189E+00_JPRB, 0.279055E+00_JPRB &
+  &, 0.264325E+00_JPRB, 0.250025E+00_JPRB, 0.236152E+00_JPRB, 0.222716E+00_JPRB &
+  &, 0.209729E+00_JPRB, 0.197199E+00_JPRB, 0.185125E+00_JPRB &
+  &, 0.173515E+00_JPRB, 0.162362E+00_JPRB, 0.151693E+00_JPRB, 0.141475E+00_JPRB &
+  &, 0.131730E+00_JPRB, 0.122443E+00_JPRB, 0.113618E+00_JPRB &
+  &, 0.105234E+00_JPRB, 0.973031E-01_JPRB, 0.898099E-01_JPRB, 0.827343E-01_JPRB &
+  &, 0.760808E-01_JPRB, 0.698370E-01_JPRB, 0.639873E-01_JPRB &
+  &, 0.585119E-01_JPRB, 0.534032E-01_JPRB, 0.486507E-01_JPRB, 0.442242E-01_JPRB &
+  &, 0.401398E-01_JPRB, 0.363442E-01_JPRB, 0.328480E-01_JPRB &
+  &, 0.296434E-01_JPRB, 0.266834E-01_JPRB, 0.239720E-01_JPRB, 0.214930E-01_JPRB &
+  &, 0.192475E-01_JPRB, 0.171750E-01_JPRB, 0.153117E-01_JPRB &
+  &, 0.136118E-01_JPRB, 0.120895E-01_JPRB, 0.107153E-01_JPRB, 0.947890E-02_JPRB &
+  &, 0.834563E-02_JPRB, 0.734755E-02_JPRB, 0.647114E-02_JPRB &
+  &, 0.567695E-02_JPRB, 0.494668E-02_JPRB, 0.433616E-02_JPRB, 0.377634E-02_JPRB &
+  &, 0.327127E-02_JPRB, 0.285188E-02_JPRB, 0.246932E-02_JPRB &
+  &, 0.212639E-02_JPRB, 0.182599E-02_JPRB, 0.157105E-02_JPRB, 0.136459E-02_JPRB &
+  &, 0.114974E-02_JPRB, 0.987421E-03_JPRB, 0.849746E-03_JPRB &
+  &, 0.706629E-03_JPRB, 0.590215E-03_JPRB, 0.502140E-03_JPRB, 0.444077E-03_JPRB &
+  &, 0.349776E-03_JPRB, 0.286565E-03_JPRB, 0.256188E-03_JPRB &
+  &, 0.224648E-03_JPRB, 0.155543E-03_JPRB, 0.158010E-03_JPRB, 0.122876E-03_JPRB &
+  &, 0.865085E-04_JPRB, 0.877781E-04_JPRB, 0.495298E-04_JPRB &
+  &, 0.501765E-04_JPRB, 0.508292E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 223, :) = (/ &
+  &  0.922283E+00_JPRB, 0.902519E+00_JPRB, 0.882646E+00_JPRB, 0.862681E+00_JPRB &
+  &, 0.842635E+00_JPRB, 0.822524E+00_JPRB, 0.802360E+00_JPRB &
+  &, 0.782159E+00_JPRB, 0.761924E+00_JPRB, 0.741702E+00_JPRB, 0.721476E+00_JPRB &
+  &, 0.701271E+00_JPRB, 0.681104E+00_JPRB, 0.660991E+00_JPRB &
+  &, 0.640946E+00_JPRB, 0.620987E+00_JPRB, 0.601129E+00_JPRB, 0.581389E+00_JPRB &
+  &, 0.561783E+00_JPRB, 0.542331E+00_JPRB, 0.523049E+00_JPRB &
+  &, 0.503950E+00_JPRB, 0.485056E+00_JPRB, 0.466386E+00_JPRB, 0.447950E+00_JPRB &
+  &, 0.429772E+00_JPRB, 0.411866E+00_JPRB, 0.394248E+00_JPRB &
+  &, 0.376940E+00_JPRB, 0.359951E+00_JPRB, 0.343302E+00_JPRB, 0.327005E+00_JPRB &
+  &, 0.311079E+00_JPRB, 0.295534E+00_JPRB, 0.280384E+00_JPRB &
+  &, 0.265636E+00_JPRB, 0.251312E+00_JPRB, 0.237413E+00_JPRB, 0.223949E+00_JPRB &
+  &, 0.210942E+00_JPRB, 0.198379E+00_JPRB, 0.186270E+00_JPRB &
+  &, 0.174633E+00_JPRB, 0.163452E+00_JPRB, 0.152740E+00_JPRB, 0.142501E+00_JPRB &
+  &, 0.132708E+00_JPRB, 0.123394E+00_JPRB, 0.114529E+00_JPRB &
+  &, 0.106101E+00_JPRB, 0.981375E-01_JPRB, 0.905956E-01_JPRB, 0.834965E-01_JPRB &
+  &, 0.768033E-01_JPRB, 0.705176E-01_JPRB, 0.646233E-01_JPRB &
+  &, 0.591163E-01_JPRB, 0.539741E-01_JPRB, 0.491861E-01_JPRB, 0.447387E-01_JPRB &
+  &, 0.405982E-01_JPRB, 0.367781E-01_JPRB, 0.332562E-01_JPRB &
+  &, 0.300245E-01_JPRB, 0.270358E-01_JPRB, 0.242942E-01_JPRB, 0.218029E-01_JPRB &
+  &, 0.195246E-01_JPRB, 0.174378E-01_JPRB, 0.155388E-01_JPRB &
+  &, 0.138438E-01_JPRB, 0.122833E-01_JPRB, 0.108912E-01_JPRB, 0.963597E-02_JPRB &
+  &, 0.850593E-02_JPRB, 0.748776E-02_JPRB, 0.659035E-02_JPRB &
+  &, 0.577424E-02_JPRB, 0.504591E-02_JPRB, 0.441206E-02_JPRB, 0.385374E-02_JPRB &
+  &, 0.335017E-02_JPRB, 0.290550E-02_JPRB, 0.252397E-02_JPRB &
+  &, 0.218209E-02_JPRB, 0.188274E-02_JPRB, 0.159995E-02_JPRB, 0.139404E-02_JPRB &
+  &, 0.117973E-02_JPRB, 0.101796E-02_JPRB, 0.849746E-03_JPRB &
+  &, 0.738294E-03_JPRB, 0.622449E-03_JPRB, 0.534950E-03_JPRB, 0.444077E-03_JPRB &
+  &, 0.383754E-03_JPRB, 0.321136E-03_JPRB, 0.256188E-03_JPRB &
+  &, 0.224648E-03_JPRB, 0.191928E-03_JPRB, 0.158010E-03_JPRB, 0.122876E-03_JPRB &
+  &, 0.865085E-04_JPRB, 0.877781E-04_JPRB, 0.495298E-04_JPRB &
+  &, 0.501765E-04_JPRB, 0.508292E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 224, :) = (/ &
+  &  0.922601E+00_JPRB, 0.902911E+00_JPRB, 0.883110E+00_JPRB, 0.863214E+00_JPRB &
+  &, 0.843234E+00_JPRB, 0.823187E+00_JPRB, 0.803085E+00_JPRB &
+  &, 0.782943E+00_JPRB, 0.762775E+00_JPRB, 0.742596E+00_JPRB, 0.722421E+00_JPRB &
+  &, 0.702265E+00_JPRB, 0.682145E+00_JPRB, 0.662074E+00_JPRB &
+  &, 0.642070E+00_JPRB, 0.622147E+00_JPRB, 0.602324E+00_JPRB, 0.582616E+00_JPRB &
+  &, 0.563040E+00_JPRB, 0.543613E+00_JPRB, 0.524353E+00_JPRB &
+  &, 0.505276E+00_JPRB, 0.486399E+00_JPRB, 0.467740E+00_JPRB, 0.449318E+00_JPRB &
+  &, 0.431147E+00_JPRB, 0.413248E+00_JPRB, 0.395634E+00_JPRB &
+  &, 0.378324E+00_JPRB, 0.361334E+00_JPRB, 0.344678E+00_JPRB, 0.328374E+00_JPRB &
+  &, 0.312434E+00_JPRB, 0.296875E+00_JPRB, 0.281708E+00_JPRB &
+  &, 0.266948E+00_JPRB, 0.252600E+00_JPRB, 0.238675E+00_JPRB, 0.225193E+00_JPRB &
+  &, 0.212154E+00_JPRB, 0.199559E+00_JPRB, 0.187426E+00_JPRB &
+  &, 0.175752E+00_JPRB, 0.164541E+00_JPRB, 0.153799E+00_JPRB, 0.143514E+00_JPRB &
+  &, 0.133697E+00_JPRB, 0.124333E+00_JPRB, 0.115439E+00_JPRB &
+  &, 0.106981E+00_JPRB, 0.989720E-01_JPRB, 0.913950E-01_JPRB, 0.842587E-01_JPRB &
+  &, 0.775259E-01_JPRB, 0.711981E-01_JPRB, 0.652744E-01_JPRB &
+  &, 0.597207E-01_JPRB, 0.545450E-01_JPRB, 0.497215E-01_JPRB, 0.452366E-01_JPRB &
+  &, 0.410735E-01_JPRB, 0.372295E-01_JPRB, 0.336822E-01_JPRB &
+  &, 0.304056E-01_JPRB, 0.273883E-01_JPRB, 0.246355E-01_JPRB, 0.220935E-01_JPRB &
+  &, 0.198017E-01_JPRB, 0.177007E-01_JPRB, 0.157866E-01_JPRB &
+  &, 0.140547E-01_JPRB, 0.124771E-01_JPRB, 0.110670E-01_JPRB, 0.979304E-02_JPRB &
+  &, 0.864334E-02_JPRB, 0.762796E-02_JPRB, 0.670956E-02_JPRB &
+  &, 0.587152E-02_JPRB, 0.514514E-02_JPRB, 0.448796E-02_JPRB, 0.393113E-02_JPRB &
+  &, 0.340277E-02_JPRB, 0.295912E-02_JPRB, 0.257862E-02_JPRB &
+  &, 0.220994E-02_JPRB, 0.191111E-02_JPRB, 0.165777E-02_JPRB, 0.142349E-02_JPRB &
+  &, 0.120972E-02_JPRB, 0.104851E-02_JPRB, 0.880847E-03_JPRB &
+  &, 0.738294E-03_JPRB, 0.622449E-03_JPRB, 0.534950E-03_JPRB, 0.444077E-03_JPRB &
+  &, 0.383754E-03_JPRB, 0.321136E-03_JPRB, 0.256188E-03_JPRB &
+  &, 0.224648E-03_JPRB, 0.191928E-03_JPRB, 0.158010E-03_JPRB, 0.122876E-03_JPRB &
+  &, 0.865085E-04_JPRB, 0.877781E-04_JPRB, 0.495298E-04_JPRB &
+  &, 0.501765E-04_JPRB, 0.508292E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART32',1,ZHOOK_HANDLE)
+END SUBROUTINE PART32
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART33
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART33',0,ZHOOK_HANDLE)
+
+XCW( 225, :) = (/ &
+  &  0.922919E+00_JPRB, 0.903302E+00_JPRB, 0.883572E+00_JPRB, 0.863746E+00_JPRB &
+  &, 0.843833E+00_JPRB, 0.823849E+00_JPRB, 0.803809E+00_JPRB &
+  &, 0.783726E+00_JPRB, 0.763614E+00_JPRB, 0.743489E+00_JPRB, 0.723366E+00_JPRB &
+  &, 0.703259E+00_JPRB, 0.683182E+00_JPRB, 0.663156E+00_JPRB &
+  &, 0.643191E+00_JPRB, 0.623307E+00_JPRB, 0.603518E+00_JPRB, 0.583842E+00_JPRB &
+  &, 0.564295E+00_JPRB, 0.544895E+00_JPRB, 0.525656E+00_JPRB &
+  &, 0.506599E+00_JPRB, 0.487738E+00_JPRB, 0.469097E+00_JPRB, 0.450686E+00_JPRB &
+  &, 0.432522E+00_JPRB, 0.414627E+00_JPRB, 0.397019E+00_JPRB &
+  &, 0.379708E+00_JPRB, 0.362712E+00_JPRB, 0.346053E+00_JPRB, 0.329742E+00_JPRB &
+  &, 0.313789E+00_JPRB, 0.298220E+00_JPRB, 0.283037E+00_JPRB &
+  &, 0.268250E+00_JPRB, 0.253887E+00_JPRB, 0.239946E+00_JPRB, 0.226436E+00_JPRB &
+  &, 0.213367E+00_JPRB, 0.200750E+00_JPRB, 0.188593E+00_JPRB &
+  &, 0.176881E+00_JPRB, 0.165643E+00_JPRB, 0.154858E+00_JPRB, 0.144540E+00_JPRB &
+  &, 0.134687E+00_JPRB, 0.125285E+00_JPRB, 0.116350E+00_JPRB &
+  &, 0.107862E+00_JPRB, 0.998064E-01_JPRB, 0.921945E-01_JPRB, 0.850208E-01_JPRB &
+  &, 0.782485E-01_JPRB, 0.718934E-01_JPRB, 0.659255E-01_JPRB &
+  &, 0.603406E-01_JPRB, 0.551317E-01_JPRB, 0.502731E-01_JPRB, 0.457511E-01_JPRB &
+  &, 0.415658E-01_JPRB, 0.376809E-01_JPRB, 0.340905E-01_JPRB &
+  &, 0.307867E-01_JPRB, 0.277407E-01_JPRB, 0.249577E-01_JPRB, 0.224035E-01_JPRB &
+  &, 0.200788E-01_JPRB, 0.179433E-01_JPRB, 0.160138E-01_JPRB &
+  &, 0.142656E-01_JPRB, 0.126709E-01_JPRB, 0.112429E-01_JPRB, 0.995010E-02_JPRB &
+  &, 0.880364E-02_JPRB, 0.774480E-02_JPRB, 0.682877E-02_JPRB &
+  &, 0.599313E-02_JPRB, 0.524437E-02_JPRB, 0.458915E-02_JPRB, 0.400852E-02_JPRB &
+  &, 0.348167E-02_JPRB, 0.303955E-02_JPRB, 0.263327E-02_JPRB &
+  &, 0.226563E-02_JPRB, 0.196786E-02_JPRB, 0.168668E-02_JPRB, 0.145294E-02_JPRB &
+  &, 0.123971E-02_JPRB, 0.107905E-02_JPRB, 0.911949E-03_JPRB &
+  &, 0.769959E-03_JPRB, 0.654684E-03_JPRB, 0.567759E-03_JPRB, 0.477467E-03_JPRB &
+  &, 0.383754E-03_JPRB, 0.321136E-03_JPRB, 0.291358E-03_JPRB &
+  &, 0.224648E-03_JPRB, 0.191928E-03_JPRB, 0.158010E-03_JPRB, 0.122876E-03_JPRB &
+  &, 0.865085E-04_JPRB, 0.877781E-04_JPRB, 0.495298E-04_JPRB &
+  &, 0.501765E-04_JPRB, 0.508292E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 226, :) = (/ &
+  &  0.923236E+00_JPRB, 0.903692E+00_JPRB, 0.884034E+00_JPRB, 0.864276E+00_JPRB &
+  &, 0.844429E+00_JPRB, 0.824511E+00_JPRB, 0.804531E+00_JPRB &
+  &, 0.784507E+00_JPRB, 0.764451E+00_JPRB, 0.744380E+00_JPRB, 0.724309E+00_JPRB &
+  &, 0.704250E+00_JPRB, 0.684220E+00_JPRB, 0.664235E+00_JPRB &
+  &, 0.644312E+00_JPRB, 0.624464E+00_JPRB, 0.604710E+00_JPRB, 0.585066E+00_JPRB &
+  &, 0.565548E+00_JPRB, 0.546173E+00_JPRB, 0.526960E+00_JPRB &
+  &, 0.507922E+00_JPRB, 0.489081E+00_JPRB, 0.470450E+00_JPRB, 0.452050E+00_JPRB &
+  &, 0.433897E+00_JPRB, 0.416009E+00_JPRB, 0.398400E+00_JPRB &
+  &, 0.381092E+00_JPRB, 0.364095E+00_JPRB, 0.347429E+00_JPRB, 0.331110E+00_JPRB &
+  &, 0.315149E+00_JPRB, 0.299565E+00_JPRB, 0.284366E+00_JPRB &
+  &, 0.269562E+00_JPRB, 0.255175E+00_JPRB, 0.241217E+00_JPRB, 0.227679E+00_JPRB &
+  &, 0.214590E+00_JPRB, 0.201941E+00_JPRB, 0.189749E+00_JPRB &
+  &, 0.178011E+00_JPRB, 0.166732E+00_JPRB, 0.155917E+00_JPRB, 0.145565E+00_JPRB &
+  &, 0.135677E+00_JPRB, 0.126249E+00_JPRB, 0.117274E+00_JPRB &
+  &, 0.108742E+00_JPRB, 0.100654E+00_JPRB, 0.930077E-01_JPRB, 0.857830E-01_JPRB &
+  &, 0.789855E-01_JPRB, 0.725887E-01_JPRB, 0.665767E-01_JPRB &
+  &, 0.609605E-01_JPRB, 0.557185E-01_JPRB, 0.508247E-01_JPRB, 0.462656E-01_JPRB &
+  &, 0.420411E-01_JPRB, 0.381322E-01_JPRB, 0.345165E-01_JPRB &
+  &, 0.311859E-01_JPRB, 0.281117E-01_JPRB, 0.252990E-01_JPRB, 0.227134E-01_JPRB &
+  &, 0.203559E-01_JPRB, 0.182061E-01_JPRB, 0.162616E-01_JPRB &
+  &, 0.144975E-01_JPRB, 0.128862E-01_JPRB, 0.114407E-01_JPRB, 0.101296E-01_JPRB &
+  &, 0.894104E-02_JPRB, 0.788501E-02_JPRB, 0.694798E-02_JPRB &
+  &, 0.609042E-02_JPRB, 0.534360E-02_JPRB, 0.466505E-02_JPRB, 0.408591E-02_JPRB &
+  &, 0.356057E-02_JPRB, 0.309317E-02_JPRB, 0.268792E-02_JPRB &
+  &, 0.232132E-02_JPRB, 0.199623E-02_JPRB, 0.171559E-02_JPRB, 0.148238E-02_JPRB &
+  &, 0.126971E-02_JPRB, 0.107905E-02_JPRB, 0.943051E-03_JPRB &
+  &, 0.801624E-03_JPRB, 0.686918E-03_JPRB, 0.567759E-03_JPRB, 0.477467E-03_JPRB &
+  &, 0.417731E-03_JPRB, 0.355707E-03_JPRB, 0.291358E-03_JPRB &
+  &, 0.224648E-03_JPRB, 0.191928E-03_JPRB, 0.158010E-03_JPRB, 0.122876E-03_JPRB &
+  &, 0.124763E-03_JPRB, 0.877781E-04_JPRB, 0.495298E-04_JPRB &
+  &, 0.501765E-04_JPRB, 0.508292E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 227, :) = (/ &
+  &  0.923551E+00_JPRB, 0.904081E+00_JPRB, 0.884494E+00_JPRB, 0.864805E+00_JPRB &
+  &, 0.845025E+00_JPRB, 0.825170E+00_JPRB, 0.805252E+00_JPRB &
+  &, 0.785287E+00_JPRB, 0.765288E+00_JPRB, 0.745271E+00_JPRB, 0.725249E+00_JPRB &
+  &, 0.705239E+00_JPRB, 0.685255E+00_JPRB, 0.665313E+00_JPRB &
+  &, 0.645430E+00_JPRB, 0.625621E+00_JPRB, 0.605902E+00_JPRB, 0.586289E+00_JPRB &
+  &, 0.566801E+00_JPRB, 0.547452E+00_JPRB, 0.528260E+00_JPRB &
+  &, 0.509245E+00_JPRB, 0.490421E+00_JPRB, 0.471804E+00_JPRB, 0.453418E+00_JPRB &
+  &, 0.435272E+00_JPRB, 0.417391E+00_JPRB, 0.399786E+00_JPRB &
+  &, 0.382476E+00_JPRB, 0.365477E+00_JPRB, 0.348805E+00_JPRB, 0.332478E+00_JPRB &
+  &, 0.316508E+00_JPRB, 0.300910E+00_JPRB, 0.285695E+00_JPRB &
+  &, 0.270873E+00_JPRB, 0.256472E+00_JPRB, 0.242488E+00_JPRB, 0.228932E+00_JPRB &
+  &, 0.215814E+00_JPRB, 0.203132E+00_JPRB, 0.190916E+00_JPRB &
+  &, 0.179141E+00_JPRB, 0.167833E+00_JPRB, 0.156987E+00_JPRB, 0.146602E+00_JPRB &
+  &, 0.136679E+00_JPRB, 0.127200E+00_JPRB, 0.118184E+00_JPRB &
+  &, 0.109622E+00_JPRB, 0.101502E+00_JPRB, 0.938209E-01_JPRB, 0.865593E-01_JPRB &
+  &, 0.797080E-01_JPRB, 0.732840E-01_JPRB, 0.672429E-01_JPRB &
+  &, 0.615804E-01_JPRB, 0.563052E-01_JPRB, 0.513764E-01_JPRB, 0.467801E-01_JPRB &
+  &, 0.425334E-01_JPRB, 0.385836E-01_JPRB, 0.349425E-01_JPRB &
+  &, 0.315670E-01_JPRB, 0.284826E-01_JPRB, 0.256402E-01_JPRB, 0.230233E-01_JPRB &
+  &, 0.206528E-01_JPRB, 0.184892E-01_JPRB, 0.165094E-01_JPRB &
+  &, 0.147084E-01_JPRB, 0.130800E-01_JPRB, 0.116166E-01_JPRB, 0.102867E-01_JPRB &
+  &, 0.910134E-02_JPRB, 0.802522E-02_JPRB, 0.706719E-02_JPRB &
+  &, 0.621203E-02_JPRB, 0.544283E-02_JPRB, 0.476625E-02_JPRB, 0.416330E-02_JPRB &
+  &, 0.363947E-02_JPRB, 0.314679E-02_JPRB, 0.274257E-02_JPRB &
+  &, 0.237702E-02_JPRB, 0.205298E-02_JPRB, 0.177340E-02_JPRB, 0.151183E-02_JPRB &
+  &, 0.129970E-02_JPRB, 0.110960E-02_JPRB, 0.943051E-03_JPRB &
+  &, 0.801624E-03_JPRB, 0.686918E-03_JPRB, 0.600569E-03_JPRB, 0.510858E-03_JPRB &
+  &, 0.417731E-03_JPRB, 0.355707E-03_JPRB, 0.291358E-03_JPRB &
+  &, 0.260423E-03_JPRB, 0.191928E-03_JPRB, 0.158010E-03_JPRB, 0.122876E-03_JPRB &
+  &, 0.124763E-03_JPRB, 0.877781E-04_JPRB, 0.890596E-04_JPRB &
+  &, 0.501765E-04_JPRB, 0.508292E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 228, :) = (/ &
+  &  0.923867E+00_JPRB, 0.904471E+00_JPRB, 0.884954E+00_JPRB, 0.865333E+00_JPRB &
+  &, 0.845620E+00_JPRB, 0.825828E+00_JPRB, 0.805972E+00_JPRB &
+  &, 0.786065E+00_JPRB, 0.766123E+00_JPRB, 0.746159E+00_JPRB, 0.726189E+00_JPRB &
+  &, 0.706227E+00_JPRB, 0.686290E+00_JPRB, 0.666391E+00_JPRB &
+  &, 0.646548E+00_JPRB, 0.626776E+00_JPRB, 0.607091E+00_JPRB, 0.587511E+00_JPRB &
+  &, 0.568051E+00_JPRB, 0.548727E+00_JPRB, 0.529560E+00_JPRB &
+  &, 0.510564E+00_JPRB, 0.491757E+00_JPRB, 0.473157E+00_JPRB, 0.454782E+00_JPRB &
+  &, 0.436647E+00_JPRB, 0.418769E+00_JPRB, 0.401171E+00_JPRB &
+  &, 0.383861E+00_JPRB, 0.366859E+00_JPRB, 0.350185E+00_JPRB, 0.333846E+00_JPRB &
+  &, 0.317867E+00_JPRB, 0.302255E+00_JPRB, 0.287029E+00_JPRB &
+  &, 0.272194E+00_JPRB, 0.257769E+00_JPRB, 0.243759E+00_JPRB, 0.230175E+00_JPRB &
+  &, 0.217027E+00_JPRB, 0.204333E+00_JPRB, 0.192082E+00_JPRB &
+  &, 0.180281E+00_JPRB, 0.168935E+00_JPRB, 0.158057E+00_JPRB, 0.147640E+00_JPRB &
+  &, 0.137669E+00_JPRB, 0.128164E+00_JPRB, 0.119121E+00_JPRB &
+  &, 0.110516E+00_JPRB, 0.102350E+00_JPRB, 0.946342E-01_JPRB, 0.873356E-01_JPRB &
+  &, 0.804450E-01_JPRB, 0.739793E-01_JPRB, 0.679092E-01_JPRB &
+  &, 0.622158E-01_JPRB, 0.568920E-01_JPRB, 0.519280E-01_JPRB, 0.473112E-01_JPRB &
+  &, 0.430087E-01_JPRB, 0.390349E-01_JPRB, 0.353685E-01_JPRB &
+  &, 0.319662E-01_JPRB, 0.288536E-01_JPRB, 0.259814E-01_JPRB, 0.233527E-01_JPRB &
+  &, 0.209496E-01_JPRB, 0.187520E-01_JPRB, 0.167572E-01_JPRB &
+  &, 0.149404E-01_JPRB, 0.132953E-01_JPRB, 0.118144E-01_JPRB, 0.104662E-01_JPRB &
+  &, 0.926164E-02_JPRB, 0.816543E-02_JPRB, 0.718640E-02_JPRB &
+  &, 0.633363E-02_JPRB, 0.554206E-02_JPRB, 0.486744E-02_JPRB, 0.424069E-02_JPRB &
+  &, 0.369208E-02_JPRB, 0.322722E-02_JPRB, 0.279723E-02_JPRB &
+  &, 0.243271E-02_JPRB, 0.208136E-02_JPRB, 0.180231E-02_JPRB, 0.154128E-02_JPRB &
+  &, 0.132969E-02_JPRB, 0.114014E-02_JPRB, 0.974152E-03_JPRB &
+  &, 0.833289E-03_JPRB, 0.719152E-03_JPRB, 0.600569E-03_JPRB, 0.510858E-03_JPRB &
+  &, 0.417731E-03_JPRB, 0.355707E-03_JPRB, 0.291358E-03_JPRB &
+  &, 0.260423E-03_JPRB, 0.191928E-03_JPRB, 0.158010E-03_JPRB, 0.122876E-03_JPRB &
+  &, 0.124763E-03_JPRB, 0.877781E-04_JPRB, 0.890596E-04_JPRB &
+  &, 0.501765E-04_JPRB, 0.508292E-04_JPRB, 0.514878E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 229, :) = (/ &
+  &  0.924182E+00_JPRB, 0.904857E+00_JPRB, 0.885412E+00_JPRB, 0.865860E+00_JPRB &
+  &, 0.846213E+00_JPRB, 0.826485E+00_JPRB, 0.806690E+00_JPRB &
+  &, 0.786842E+00_JPRB, 0.766956E+00_JPRB, 0.747046E+00_JPRB, 0.727127E+00_JPRB &
+  &, 0.707214E+00_JPRB, 0.687323E+00_JPRB, 0.667467E+00_JPRB &
+  &, 0.647663E+00_JPRB, 0.627930E+00_JPRB, 0.608280E+00_JPRB, 0.588731E+00_JPRB &
+  &, 0.569301E+00_JPRB, 0.550005E+00_JPRB, 0.530860E+00_JPRB &
+  &, 0.511884E+00_JPRB, 0.493097E+00_JPRB, 0.474511E+00_JPRB, 0.456146E+00_JPRB &
+  &, 0.438022E+00_JPRB, 0.420151E+00_JPRB, 0.402552E+00_JPRB &
+  &, 0.385245E+00_JPRB, 0.368242E+00_JPRB, 0.351561E+00_JPRB, 0.335218E+00_JPRB &
+  &, 0.319227E+00_JPRB, 0.303604E+00_JPRB, 0.288362E+00_JPRB &
+  &, 0.273505E+00_JPRB, 0.259066E+00_JPRB, 0.245030E+00_JPRB, 0.231428E+00_JPRB &
+  &, 0.218260E+00_JPRB, 0.205524E+00_JPRB, 0.193249E+00_JPRB &
+  &, 0.181422E+00_JPRB, 0.170047E+00_JPRB, 0.159128E+00_JPRB, 0.148677E+00_JPRB &
+  &, 0.138671E+00_JPRB, 0.129128E+00_JPRB, 0.120044E+00_JPRB &
+  &, 0.111410E+00_JPRB, 0.103211E+00_JPRB, 0.954474E-01_JPRB, 0.881119E-01_JPRB &
+  &, 0.811965E-01_JPRB, 0.746894E-01_JPRB, 0.685755E-01_JPRB &
+  &, 0.628356E-01_JPRB, 0.574787E-01_JPRB, 0.524796E-01_JPRB, 0.478257E-01_JPRB &
+  &, 0.435010E-01_JPRB, 0.395036E-01_JPRB, 0.357945E-01_JPRB &
+  &, 0.323654E-01_JPRB, 0.292246E-01_JPRB, 0.263227E-01_JPRB, 0.236626E-01_JPRB &
+  &, 0.212267E-01_JPRB, 0.190148E-01_JPRB, 0.170050E-01_JPRB &
+  &, 0.151724E-01_JPRB, 0.134891E-01_JPRB, 0.119903E-01_JPRB, 0.106233E-01_JPRB &
+  &, 0.939904E-02_JPRB, 0.830564E-02_JPRB, 0.732945E-02_JPRB &
+  &, 0.643092E-02_JPRB, 0.566610E-02_JPRB, 0.494334E-02_JPRB, 0.431808E-02_JPRB &
+  &, 0.377098E-02_JPRB, 0.328084E-02_JPRB, 0.285188E-02_JPRB &
+  &, 0.248841E-02_JPRB, 0.213811E-02_JPRB, 0.186013E-02_JPRB, 0.160017E-02_JPRB &
+  &, 0.135969E-02_JPRB, 0.117069E-02_JPRB, 0.100525E-02_JPRB &
+  &, 0.864954E-03_JPRB, 0.719152E-03_JPRB, 0.633378E-03_JPRB, 0.510858E-03_JPRB &
+  &, 0.451709E-03_JPRB, 0.355707E-03_JPRB, 0.326527E-03_JPRB &
+  &, 0.260423E-03_JPRB, 0.228314E-03_JPRB, 0.195013E-03_JPRB, 0.160502E-03_JPRB &
+  &, 0.124763E-03_JPRB, 0.877781E-04_JPRB, 0.890596E-04_JPRB &
+  &, 0.501765E-04_JPRB, 0.508292E-04_JPRB, 0.514878E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 230, :) = (/ &
+  &  0.924496E+00_JPRB, 0.905244E+00_JPRB, 0.885870E+00_JPRB, 0.866386E+00_JPRB &
+  &, 0.846804E+00_JPRB, 0.827140E+00_JPRB, 0.807407E+00_JPRB &
+  &, 0.787618E+00_JPRB, 0.767788E+00_JPRB, 0.747932E+00_JPRB, 0.728064E+00_JPRB &
+  &, 0.708199E+00_JPRB, 0.688353E+00_JPRB, 0.668541E+00_JPRB &
+  &, 0.648779E+00_JPRB, 0.629081E+00_JPRB, 0.609467E+00_JPRB, 0.589950E+00_JPRB &
+  &, 0.570549E+00_JPRB, 0.551278E+00_JPRB, 0.532157E+00_JPRB &
+  &, 0.513204E+00_JPRB, 0.494433E+00_JPRB, 0.475864E+00_JPRB, 0.457510E+00_JPRB &
+  &, 0.439393E+00_JPRB, 0.421530E+00_JPRB, 0.403938E+00_JPRB &
+  &, 0.386629E+00_JPRB, 0.369624E+00_JPRB, 0.352940E+00_JPRB, 0.336591E+00_JPRB &
+  &, 0.320590E+00_JPRB, 0.304953E+00_JPRB, 0.289696E+00_JPRB &
+  &, 0.274826E+00_JPRB, 0.260363E+00_JPRB, 0.246311E+00_JPRB, 0.232682E+00_JPRB &
+  &, 0.219483E+00_JPRB, 0.206725E+00_JPRB, 0.194416E+00_JPRB &
+  &, 0.182552E+00_JPRB, 0.171148E+00_JPRB, 0.160198E+00_JPRB, 0.149715E+00_JPRB &
+  &, 0.139685E+00_JPRB, 0.130105E+00_JPRB, 0.120981E+00_JPRB &
+  &, 0.112303E+00_JPRB, 0.104059E+00_JPRB, 0.962606E-01_JPRB, 0.888882E-01_JPRB &
+  &, 0.819335E-01_JPRB, 0.753847E-01_JPRB, 0.692417E-01_JPRB &
+  &, 0.634710E-01_JPRB, 0.580813E-01_JPRB, 0.530475E-01_JPRB, 0.483568E-01_JPRB &
+  &, 0.440102E-01_JPRB, 0.399724E-01_JPRB, 0.362205E-01_JPRB &
+  &, 0.327647E-01_JPRB, 0.295956E-01_JPRB, 0.266639E-01_JPRB, 0.239919E-01_JPRB &
+  &, 0.215236E-01_JPRB, 0.192979E-01_JPRB, 0.172528E-01_JPRB &
+  &, 0.153832E-01_JPRB, 0.137045E-01_JPRB, 0.121881E-01_JPRB, 0.108028E-01_JPRB &
+  &, 0.955934E-02_JPRB, 0.844584E-02_JPRB, 0.744866E-02_JPRB &
+  &, 0.655253E-02_JPRB, 0.576533E-02_JPRB, 0.504454E-02_JPRB, 0.442127E-02_JPRB &
+  &, 0.384988E-02_JPRB, 0.336127E-02_JPRB, 0.290653E-02_JPRB &
+  &, 0.251626E-02_JPRB, 0.219486E-02_JPRB, 0.188904E-02_JPRB, 0.162962E-02_JPRB &
+  &, 0.138968E-02_JPRB, 0.120123E-02_JPRB, 0.103636E-02_JPRB &
+  &, 0.864954E-03_JPRB, 0.751386E-03_JPRB, 0.633378E-03_JPRB, 0.544248E-03_JPRB &
+  &, 0.451709E-03_JPRB, 0.390278E-03_JPRB, 0.326527E-03_JPRB &
+  &, 0.260423E-03_JPRB, 0.228314E-03_JPRB, 0.195013E-03_JPRB, 0.160502E-03_JPRB &
+  &, 0.124763E-03_JPRB, 0.877781E-04_JPRB, 0.890596E-04_JPRB &
+  &, 0.501765E-04_JPRB, 0.508292E-04_JPRB, 0.514878E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 231, :) = (/ &
+  &  0.924809E+00_JPRB, 0.905631E+00_JPRB, 0.886326E+00_JPRB, 0.866911E+00_JPRB &
+  &, 0.847396E+00_JPRB, 0.827795E+00_JPRB, 0.808122E+00_JPRB &
+  &, 0.788392E+00_JPRB, 0.768618E+00_JPRB, 0.748816E+00_JPRB, 0.728999E+00_JPRB &
+  &, 0.709183E+00_JPRB, 0.689383E+00_JPRB, 0.669613E+00_JPRB &
+  &, 0.649891E+00_JPRB, 0.630232E+00_JPRB, 0.610653E+00_JPRB, 0.591168E+00_JPRB &
+  &, 0.571796E+00_JPRB, 0.552553E+00_JPRB, 0.533458E+00_JPRB &
+  &, 0.514523E+00_JPRB, 0.495769E+00_JPRB, 0.477214E+00_JPRB, 0.458874E+00_JPRB &
+  &, 0.440768E+00_JPRB, 0.422912E+00_JPRB, 0.405319E+00_JPRB &
+  &, 0.388013E+00_JPRB, 0.371006E+00_JPRB, 0.354320E+00_JPRB, 0.337963E+00_JPRB &
+  &, 0.321950E+00_JPRB, 0.306303E+00_JPRB, 0.291029E+00_JPRB &
+  &, 0.276147E+00_JPRB, 0.261660E+00_JPRB, 0.247583E+00_JPRB, 0.233935E+00_JPRB &
+  &, 0.220717E+00_JPRB, 0.207927E+00_JPRB, 0.195594E+00_JPRB &
+  &, 0.183703E+00_JPRB, 0.172261E+00_JPRB, 0.161280E+00_JPRB, 0.150752E+00_JPRB &
+  &, 0.140687E+00_JPRB, 0.131069E+00_JPRB, 0.121917E+00_JPRB &
+  &, 0.113197E+00_JPRB, 0.104921E+00_JPRB, 0.970876E-01_JPRB, 0.896786E-01_JPRB &
+  &, 0.826850E-01_JPRB, 0.761096E-01_JPRB, 0.699232E-01_JPRB &
+  &, 0.641219E-01_JPRB, 0.586839E-01_JPRB, 0.536153E-01_JPRB, 0.488879E-01_JPRB &
+  &, 0.445025E-01_JPRB, 0.404411E-01_JPRB, 0.366643E-01_JPRB &
+  &, 0.331820E-01_JPRB, 0.299666E-01_JPRB, 0.270241E-01_JPRB, 0.243019E-01_JPRB &
+  &, 0.218403E-01_JPRB, 0.195607E-01_JPRB, 0.175006E-01_JPRB &
+  &, 0.156152E-01_JPRB, 0.139198E-01_JPRB, 0.123860E-01_JPRB, 0.109823E-01_JPRB &
+  &, 0.971964E-02_JPRB, 0.860942E-02_JPRB, 0.759171E-02_JPRB &
+  &, 0.667414E-02_JPRB, 0.586456E-02_JPRB, 0.514573E-02_JPRB, 0.449866E-02_JPRB &
+  &, 0.392878E-02_JPRB, 0.341489E-02_JPRB, 0.298851E-02_JPRB &
+  &, 0.257195E-02_JPRB, 0.222323E-02_JPRB, 0.191794E-02_JPRB, 0.165907E-02_JPRB &
+  &, 0.141967E-02_JPRB, 0.123178E-02_JPRB, 0.106746E-02_JPRB &
+  &, 0.896619E-03_JPRB, 0.751386E-03_JPRB, 0.666187E-03_JPRB, 0.544248E-03_JPRB &
+  &, 0.451709E-03_JPRB, 0.390278E-03_JPRB, 0.326527E-03_JPRB &
+  &, 0.260423E-03_JPRB, 0.228314E-03_JPRB, 0.195013E-03_JPRB, 0.160502E-03_JPRB &
+  &, 0.124763E-03_JPRB, 0.877781E-04_JPRB, 0.890596E-04_JPRB &
+  &, 0.501765E-04_JPRB, 0.508292E-04_JPRB, 0.514878E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART33',1,ZHOOK_HANDLE)
+END SUBROUTINE PART33
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART34
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART34',0,ZHOOK_HANDLE)
+
+XCW( 232, :) = (/ &
+  &  0.925119E+00_JPRB, 0.906016E+00_JPRB, 0.886782E+00_JPRB, 0.867435E+00_JPRB &
+  &, 0.847985E+00_JPRB, 0.828448E+00_JPRB, 0.808837E+00_JPRB &
+  &, 0.789166E+00_JPRB, 0.769448E+00_JPRB, 0.749699E+00_JPRB, 0.729933E+00_JPRB &
+  &, 0.710165E+00_JPRB, 0.690410E+00_JPRB, 0.670684E+00_JPRB &
+  &, 0.651003E+00_JPRB, 0.631382E+00_JPRB, 0.611837E+00_JPRB, 0.592385E+00_JPRB &
+  &, 0.573043E+00_JPRB, 0.553825E+00_JPRB, 0.534751E+00_JPRB &
+  &, 0.515839E+00_JPRB, 0.497106E+00_JPRB, 0.478564E+00_JPRB, 0.460238E+00_JPRB &
+  &, 0.442139E+00_JPRB, 0.424290E+00_JPRB, 0.406704E+00_JPRB &
+  &, 0.389401E+00_JPRB, 0.372393E+00_JPRB, 0.355700E+00_JPRB, 0.339335E+00_JPRB &
+  &, 0.323313E+00_JPRB, 0.307657E+00_JPRB, 0.292367E+00_JPRB &
+  &, 0.277468E+00_JPRB, 0.262957E+00_JPRB, 0.248863E+00_JPRB, 0.235188E+00_JPRB &
+  &, 0.221940E+00_JPRB, 0.209138E+00_JPRB, 0.196760E+00_JPRB &
+  &, 0.184844E+00_JPRB, 0.173373E+00_JPRB, 0.162362E+00_JPRB, 0.151801E+00_JPRB &
+  &, 0.141701E+00_JPRB, 0.132045E+00_JPRB, 0.122853E+00_JPRB &
+  &, 0.114103E+00_JPRB, 0.105796E+00_JPRB, 0.979147E-01_JPRB, 0.904690E-01_JPRB &
+  &, 0.834364E-01_JPRB, 0.768197E-01_JPRB, 0.705894E-01_JPRB &
+  &, 0.647573E-01_JPRB, 0.592865E-01_JPRB, 0.541832E-01_JPRB, 0.494356E-01_JPRB &
+  &, 0.450118E-01_JPRB, 0.409098E-01_JPRB, 0.371080E-01_JPRB &
+  &, 0.335813E-01_JPRB, 0.303561E-01_JPRB, 0.273653E-01_JPRB, 0.246312E-01_JPRB &
+  &, 0.221371E-01_JPRB, 0.198437E-01_JPRB, 0.177484E-01_JPRB &
+  &, 0.158683E-01_JPRB, 0.141351E-01_JPRB, 0.125838E-01_JPRB, 0.111618E-01_JPRB &
+  &, 0.987994E-02_JPRB, 0.874963E-02_JPRB, 0.771092E-02_JPRB &
+  &, 0.679575E-02_JPRB, 0.596379E-02_JPRB, 0.524693E-02_JPRB, 0.457605E-02_JPRB &
+  &, 0.400768E-02_JPRB, 0.349532E-02_JPRB, 0.304316E-02_JPRB &
+  &, 0.262764E-02_JPRB, 0.227998E-02_JPRB, 0.197576E-02_JPRB, 0.171796E-02_JPRB &
+  &, 0.147966E-02_JPRB, 0.126232E-02_JPRB, 0.106746E-02_JPRB &
+  &, 0.928284E-03_JPRB, 0.783620E-03_JPRB, 0.666187E-03_JPRB, 0.577639E-03_JPRB &
+  &, 0.485687E-03_JPRB, 0.390278E-03_JPRB, 0.326527E-03_JPRB &
+  &, 0.296198E-03_JPRB, 0.228314E-03_JPRB, 0.195013E-03_JPRB, 0.160502E-03_JPRB &
+  &, 0.124763E-03_JPRB, 0.877781E-04_JPRB, 0.890596E-04_JPRB &
+  &, 0.501765E-04_JPRB, 0.508292E-04_JPRB, 0.514878E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 233, :) = (/ &
+  &  0.925433E+00_JPRB, 0.906401E+00_JPRB, 0.887237E+00_JPRB, 0.867957E+00_JPRB &
+  &, 0.848574E+00_JPRB, 0.829100E+00_JPRB, 0.809550E+00_JPRB &
+  &, 0.789937E+00_JPRB, 0.770275E+00_JPRB, 0.750580E+00_JPRB, 0.730865E+00_JPRB &
+  &, 0.711145E+00_JPRB, 0.691438E+00_JPRB, 0.671755E+00_JPRB &
+  &, 0.652114E+00_JPRB, 0.632531E+00_JPRB, 0.613020E+00_JPRB, 0.593602E+00_JPRB &
+  &, 0.574288E+00_JPRB, 0.555097E+00_JPRB, 0.536048E+00_JPRB &
+  &, 0.517156E+00_JPRB, 0.498442E+00_JPRB, 0.479918E+00_JPRB, 0.461602E+00_JPRB &
+  &, 0.443514E+00_JPRB, 0.425672E+00_JPRB, 0.408090E+00_JPRB &
+  &, 0.390785E+00_JPRB, 0.373775E+00_JPRB, 0.357080E+00_JPRB, 0.340708E+00_JPRB &
+  &, 0.324677E+00_JPRB, 0.309006E+00_JPRB, 0.293706E+00_JPRB &
+  &, 0.278788E+00_JPRB, 0.264263E+00_JPRB, 0.250144E+00_JPRB, 0.236451E+00_JPRB &
+  &, 0.223019E+00_JPRB, 0.210340E+00_JPRB, 0.197949E+00_JPRB &
+  &, 0.185996E+00_JPRB, 0.174497E+00_JPRB, 0.163444E+00_JPRB, 0.152851E+00_JPRB &
+  &, 0.142715E+00_JPRB, 0.133034E+00_JPRB, 0.123790E+00_JPRB &
+  &, 0.115010E+00_JPRB, 0.106657E+00_JPRB, 0.987417E-01_JPRB, 0.912594E-01_JPRB &
+  &, 0.841879E-01_JPRB, 0.775299E-01_JPRB, 0.712708E-01_JPRB &
+  &, 0.654082E-01_JPRB, 0.599049E-01_JPRB, 0.547673E-01_JPRB, 0.499667E-01_JPRB &
+  &, 0.455210E-01_JPRB, 0.413785E-01_JPRB, 0.375518E-01_JPRB &
+  &, 0.339986E-01_JPRB, 0.307271E-01_JPRB, 0.277255E-01_JPRB, 0.249605E-01_JPRB &
+  &, 0.224340E-01_JPRB, 0.201268E-01_JPRB, 0.180168E-01_JPRB &
+  &, 0.161002E-01_JPRB, 0.143504E-01_JPRB, 0.127816E-01_JPRB, 0.113413E-01_JPRB &
+  &, 0.100631E-01_JPRB, 0.888984E-02_JPRB, 0.785397E-02_JPRB &
+  &, 0.691735E-02_JPRB, 0.608782E-02_JPRB, 0.534813E-02_JPRB, 0.467924E-02_JPRB &
+  &, 0.408658E-02_JPRB, 0.357575E-02_JPRB, 0.309781E-02_JPRB &
+  &, 0.268334E-02_JPRB, 0.233673E-02_JPRB, 0.203358E-02_JPRB, 0.174741E-02_JPRB &
+  &, 0.150965E-02_JPRB, 0.129286E-02_JPRB, 0.109856E-02_JPRB &
+  &, 0.959949E-03_JPRB, 0.815855E-03_JPRB, 0.698997E-03_JPRB, 0.577639E-03_JPRB &
+  &, 0.485687E-03_JPRB, 0.424848E-03_JPRB, 0.361697E-03_JPRB &
+  &, 0.296198E-03_JPRB, 0.228314E-03_JPRB, 0.195013E-03_JPRB, 0.160502E-03_JPRB &
+  &, 0.124763E-03_JPRB, 0.126667E-03_JPRB, 0.890596E-04_JPRB &
+  &, 0.903530E-04_JPRB, 0.508292E-04_JPRB, 0.514878E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 234, :) = (/ &
+  &  0.925744E+00_JPRB, 0.906783E+00_JPRB, 0.887690E+00_JPRB, 0.868479E+00_JPRB &
+  &, 0.849161E+00_JPRB, 0.829751E+00_JPRB, 0.810261E+00_JPRB &
+  &, 0.790707E+00_JPRB, 0.771102E+00_JPRB, 0.751460E+00_JPRB, 0.731796E+00_JPRB &
+  &, 0.712126E+00_JPRB, 0.692463E+00_JPRB, 0.672823E+00_JPRB &
+  &, 0.653222E+00_JPRB, 0.633677E+00_JPRB, 0.614202E+00_JPRB, 0.594815E+00_JPRB &
+  &, 0.575532E+00_JPRB, 0.556369E+00_JPRB, 0.537342E+00_JPRB &
+  &, 0.518472E+00_JPRB, 0.499775E+00_JPRB, 0.481268E+00_JPRB, 0.462963E+00_JPRB &
+  &, 0.444886E+00_JPRB, 0.427051E+00_JPRB, 0.409471E+00_JPRB &
+  &, 0.392169E+00_JPRB, 0.375162E+00_JPRB, 0.358460E+00_JPRB, 0.342084E+00_JPRB &
+  &, 0.326045E+00_JPRB, 0.310360E+00_JPRB, 0.295044E+00_JPRB &
+  &, 0.280109E+00_JPRB, 0.265570E+00_JPRB, 0.251435E+00_JPRB, 0.237714E+00_JPRB &
+  &, 0.224417E+00_JPRB, 0.211552E+00_JPRB, 0.199126E+00_JPRB &
+  &, 0.187147E+00_JPRB, 0.175609E+00_JPRB, 0.164538E+00_JPRB, 0.153912E+00_JPRB &
+  &, 0.143729E+00_JPRB, 0.134011E+00_JPRB, 0.124739E+00_JPRB &
+  &, 0.115916E+00_JPRB, 0.107532E+00_JPRB, 0.995825E-01_JPRB, 0.920639E-01_JPRB &
+  &, 0.849538E-01_JPRB, 0.782548E-01_JPRB, 0.719674E-01_JPRB &
+  &, 0.660436E-01_JPRB, 0.605234E-01_JPRB, 0.553351E-01_JPRB, 0.505144E-01_JPRB &
+  &, 0.460303E-01_JPRB, 0.418646E-01_JPRB, 0.379955E-01_JPRB &
+  &, 0.344160E-01_JPRB, 0.311166E-01_JPRB, 0.280857E-01_JPRB, 0.253092E-01_JPRB &
+  &, 0.227507E-01_JPRB, 0.204098E-01_JPRB, 0.182853E-01_JPRB &
+  &, 0.163322E-01_JPRB, 0.145657E-01_JPRB, 0.129795E-01_JPRB, 0.115208E-01_JPRB &
+  &, 0.102234E-01_JPRB, 0.905341E-02_JPRB, 0.799702E-02_JPRB &
+  &, 0.703896E-02_JPRB, 0.618705E-02_JPRB, 0.544932E-02_JPRB, 0.475663E-02_JPRB &
+  &, 0.416549E-02_JPRB, 0.362937E-02_JPRB, 0.317979E-02_JPRB &
+  &, 0.273903E-02_JPRB, 0.239348E-02_JPRB, 0.206249E-02_JPRB, 0.177686E-02_JPRB &
+  &, 0.153965E-02_JPRB, 0.132341E-02_JPRB, 0.112966E-02_JPRB &
+  &, 0.959949E-03_JPRB, 0.815855E-03_JPRB, 0.698997E-03_JPRB, 0.611029E-03_JPRB &
+  &, 0.519664E-03_JPRB, 0.424848E-03_JPRB, 0.361697E-03_JPRB &
+  &, 0.296198E-03_JPRB, 0.264700E-03_JPRB, 0.195013E-03_JPRB, 0.160502E-03_JPRB &
+  &, 0.124763E-03_JPRB, 0.126667E-03_JPRB, 0.890596E-04_JPRB &
+  &, 0.903530E-04_JPRB, 0.508292E-04_JPRB, 0.514878E-04_JPRB, 0.521524E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 235, :) = (/ &
+  &  0.926054E+00_JPRB, 0.907166E+00_JPRB, 0.888143E+00_JPRB, 0.869000E+00_JPRB &
+  &, 0.849748E+00_JPRB, 0.830400E+00_JPRB, 0.810972E+00_JPRB &
+  &, 0.791476E+00_JPRB, 0.771927E+00_JPRB, 0.752339E+00_JPRB, 0.732726E+00_JPRB &
+  &, 0.713103E+00_JPRB, 0.693486E+00_JPRB, 0.673890E+00_JPRB &
+  &, 0.654330E+00_JPRB, 0.634823E+00_JPRB, 0.615384E+00_JPRB, 0.596028E+00_JPRB &
+  &, 0.576775E+00_JPRB, 0.557638E+00_JPRB, 0.538636E+00_JPRB &
+  &, 0.519788E+00_JPRB, 0.501107E+00_JPRB, 0.482614E+00_JPRB, 0.464327E+00_JPRB &
+  &, 0.446261E+00_JPRB, 0.428429E+00_JPRB, 0.410856E+00_JPRB &
+  &, 0.393558E+00_JPRB, 0.376544E+00_JPRB, 0.359840E+00_JPRB, 0.343456E+00_JPRB &
+  &, 0.327409E+00_JPRB, 0.311713E+00_JPRB, 0.296386E+00_JPRB &
+  &, 0.281430E+00_JPRB, 0.266876E+00_JPRB, 0.252716E+00_JPRB, 0.238978E+00_JPRB &
+  &, 0.225650E+00_JPRB, 0.212764E+00_JPRB, 0.200304E+00_JPRB &
+  &, 0.188299E+00_JPRB, 0.176733E+00_JPRB, 0.165620E+00_JPRB, 0.154961E+00_JPRB &
+  &, 0.144756E+00_JPRB, 0.135000E+00_JPRB, 0.125688E+00_JPRB &
+  &, 0.116823E+00_JPRB, 0.108407E+00_JPRB, 0.100423E+00_JPRB, 0.928543E-01_JPRB &
+  &, 0.857197E-01_JPRB, 0.789796E-01_JPRB, 0.726488E-01_JPRB &
+  &, 0.667099E-01_JPRB, 0.611260E-01_JPRB, 0.559192E-01_JPRB, 0.510621E-01_JPRB &
+  &, 0.465396E-01_JPRB, 0.423333E-01_JPRB, 0.384393E-01_JPRB &
+  &, 0.348334E-01_JPRB, 0.315061E-01_JPRB, 0.284459E-01_JPRB, 0.256385E-01_JPRB &
+  &, 0.230673E-01_JPRB, 0.206929E-01_JPRB, 0.185331E-01_JPRB &
+  &, 0.165853E-01_JPRB, 0.148026E-01_JPRB, 0.131773E-01_JPRB, 0.117227E-01_JPRB &
+  &, 0.103837E-01_JPRB, 0.919362E-02_JPRB, 0.814007E-02_JPRB &
+  &, 0.716057E-02_JPRB, 0.631109E-02_JPRB, 0.555052E-02_JPRB, 0.485981E-02_JPRB &
+  &, 0.424439E-02_JPRB, 0.370980E-02_JPRB, 0.323444E-02_JPRB &
+  &, 0.282258E-02_JPRB, 0.245023E-02_JPRB, 0.212030E-02_JPRB, 0.183576E-02_JPRB &
+  &, 0.156964E-02_JPRB, 0.135395E-02_JPRB, 0.116076E-02_JPRB &
+  &, 0.991614E-03_JPRB, 0.848089E-03_JPRB, 0.731806E-03_JPRB, 0.611029E-03_JPRB &
+  &, 0.519664E-03_JPRB, 0.424848E-03_JPRB, 0.361697E-03_JPRB &
+  &, 0.296198E-03_JPRB, 0.264700E-03_JPRB, 0.232015E-03_JPRB, 0.160502E-03_JPRB &
+  &, 0.163017E-03_JPRB, 0.126667E-03_JPRB, 0.890596E-04_JPRB &
+  &, 0.903530E-04_JPRB, 0.508292E-04_JPRB, 0.514878E-04_JPRB, 0.521524E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 236, :) = (/ &
+  &  0.926364E+00_JPRB, 0.907549E+00_JPRB, 0.888595E+00_JPRB, 0.869520E+00_JPRB &
+  &, 0.850333E+00_JPRB, 0.831049E+00_JPRB, 0.811681E+00_JPRB &
+  &, 0.792244E+00_JPRB, 0.772750E+00_JPRB, 0.753216E+00_JPRB, 0.733654E+00_JPRB &
+  &, 0.714080E+00_JPRB, 0.694509E+00_JPRB, 0.674956E+00_JPRB &
+  &, 0.655437E+00_JPRB, 0.635967E+00_JPRB, 0.616562E+00_JPRB, 0.597240E+00_JPRB &
+  &, 0.578016E+00_JPRB, 0.558907E+00_JPRB, 0.539930E+00_JPRB &
+  &, 0.521104E+00_JPRB, 0.502440E+00_JPRB, 0.483964E+00_JPRB, 0.465688E+00_JPRB &
+  &, 0.447632E+00_JPRB, 0.429811E+00_JPRB, 0.412242E+00_JPRB &
+  &, 0.394942E+00_JPRB, 0.377930E+00_JPRB, 0.361224E+00_JPRB, 0.344833E+00_JPRB &
+  &, 0.328777E+00_JPRB, 0.313072E+00_JPRB, 0.297729E+00_JPRB &
+  &, 0.282760E+00_JPRB, 0.268183E+00_JPRB, 0.254007E+00_JPRB, 0.240241E+00_JPRB &
+  &, 0.226894E+00_JPRB, 0.213975E+00_JPRB, 0.201492E+00_JPRB &
+  &, 0.189451E+00_JPRB, 0.177857E+00_JPRB, 0.166714E+00_JPRB, 0.156022E+00_JPRB &
+  &, 0.145782E+00_JPRB, 0.135989E+00_JPRB, 0.126650E+00_JPRB &
+  &, 0.117743E+00_JPRB, 0.109281E+00_JPRB, 0.101264E+00_JPRB, 0.936588E-01_JPRB &
+  &, 0.864856E-01_JPRB, 0.797193E-01_JPRB, 0.733454E-01_JPRB &
+  &, 0.673608E-01_JPRB, 0.617603E-01_JPRB, 0.565033E-01_JPRB, 0.516098E-01_JPRB &
+  &, 0.470658E-01_JPRB, 0.428194E-01_JPRB, 0.389008E-01_JPRB &
+  &, 0.352689E-01_JPRB, 0.319142E-01_JPRB, 0.288250E-01_JPRB, 0.259678E-01_JPRB &
+  &, 0.233642E-01_JPRB, 0.209962E-01_JPRB, 0.188015E-01_JPRB &
+  &, 0.168172E-01_JPRB, 0.150179E-01_JPRB, 0.133752E-01_JPRB, 0.119022E-01_JPRB &
+  &, 0.105669E-01_JPRB, 0.935720E-02_JPRB, 0.825928E-02_JPRB &
+  &, 0.730650E-02_JPRB, 0.643513E-02_JPRB, 0.565172E-02_JPRB, 0.493720E-02_JPRB &
+  &, 0.432329E-02_JPRB, 0.379023E-02_JPRB, 0.328909E-02_JPRB &
+  &, 0.287827E-02_JPRB, 0.247861E-02_JPRB, 0.214921E-02_JPRB, 0.186520E-02_JPRB &
+  &, 0.159963E-02_JPRB, 0.138450E-02_JPRB, 0.119186E-02_JPRB &
+  &, 0.102328E-02_JPRB, 0.880323E-03_JPRB, 0.731806E-03_JPRB, 0.644420E-03_JPRB &
+  &, 0.519664E-03_JPRB, 0.459419E-03_JPRB, 0.396867E-03_JPRB &
+  &, 0.331972E-03_JPRB, 0.264700E-03_JPRB, 0.232015E-03_JPRB, 0.198127E-03_JPRB &
+  &, 0.163017E-03_JPRB, 0.126667E-03_JPRB, 0.890596E-04_JPRB &
+  &, 0.903530E-04_JPRB, 0.508292E-04_JPRB, 0.514878E-04_JPRB, 0.521524E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 237, :) = (/ &
+  &  0.926673E+00_JPRB, 0.907930E+00_JPRB, 0.889046E+00_JPRB, 0.870038E+00_JPRB &
+  &, 0.850917E+00_JPRB, 0.831696E+00_JPRB, 0.812389E+00_JPRB &
+  &, 0.793010E+00_JPRB, 0.773573E+00_JPRB, 0.754092E+00_JPRB, 0.734581E+00_JPRB &
+  &, 0.715054E+00_JPRB, 0.695530E+00_JPRB, 0.676020E+00_JPRB &
+  &, 0.656542E+00_JPRB, 0.637110E+00_JPRB, 0.617741E+00_JPRB, 0.598451E+00_JPRB &
+  &, 0.579257E+00_JPRB, 0.560176E+00_JPRB, 0.541223E+00_JPRB &
+  &, 0.522417E+00_JPRB, 0.503773E+00_JPRB, 0.485314E+00_JPRB, 0.467052E+00_JPRB &
+  &, 0.449003E+00_JPRB, 0.431189E+00_JPRB, 0.413627E+00_JPRB &
+  &, 0.396330E+00_JPRB, 0.379317E+00_JPRB, 0.362604E+00_JPRB, 0.346209E+00_JPRB &
+  &, 0.330145E+00_JPRB, 0.314430E+00_JPRB, 0.299071E+00_JPRB &
+  &, 0.284090E+00_JPRB, 0.269489E+00_JPRB, 0.255297E+00_JPRB, 0.241504E+00_JPRB &
+  &, 0.228138E+00_JPRB, 0.215198E+00_JPRB, 0.202681E+00_JPRB &
+  &, 0.190614E+00_JPRB, 0.178992E+00_JPRB, 0.167807E+00_JPRB, 0.157084E+00_JPRB &
+  &, 0.146808E+00_JPRB, 0.136978E+00_JPRB, 0.127599E+00_JPRB &
+  &, 0.118663E+00_JPRB, 0.110170E+00_JPRB, 0.102105E+00_JPRB, 0.944775E-01_JPRB &
+  &, 0.872515E-01_JPRB, 0.804442E-01_JPRB, 0.740419E-01_JPRB &
+  &, 0.680272E-01_JPRB, 0.623788E-01_JPRB, 0.571036E-01_JPRB, 0.521741E-01_JPRB &
+  &, 0.475751E-01_JPRB, 0.433055E-01_JPRB, 0.393623E-01_JPRB &
+  &, 0.356863E-01_JPRB, 0.323037E-01_JPRB, 0.291852E-01_JPRB, 0.263165E-01_JPRB &
+  &, 0.236809E-01_JPRB, 0.212792E-01_JPRB, 0.190700E-01_JPRB &
+  &, 0.170703E-01_JPRB, 0.152548E-01_JPRB, 0.135950E-01_JPRB, 0.120817E-01_JPRB &
+  &, 0.107272E-01_JPRB, 0.952077E-02_JPRB, 0.840233E-02_JPRB &
+  &, 0.742811E-02_JPRB, 0.653436E-02_JPRB, 0.575291E-02_JPRB, 0.504039E-02_JPRB &
+  &, 0.442849E-02_JPRB, 0.387066E-02_JPRB, 0.337107E-02_JPRB &
+  &, 0.293396E-02_JPRB, 0.253536E-02_JPRB, 0.220703E-02_JPRB, 0.189465E-02_JPRB &
+  &, 0.162962E-02_JPRB, 0.141504E-02_JPRB, 0.122297E-02_JPRB &
+  &, 0.105494E-02_JPRB, 0.880323E-03_JPRB, 0.764615E-03_JPRB, 0.644420E-03_JPRB &
+  &, 0.553642E-03_JPRB, 0.459419E-03_JPRB, 0.396867E-03_JPRB &
+  &, 0.331972E-03_JPRB, 0.264700E-03_JPRB, 0.232015E-03_JPRB, 0.198127E-03_JPRB &
+  &, 0.163017E-03_JPRB, 0.126667E-03_JPRB, 0.890596E-04_JPRB &
+  &, 0.903530E-04_JPRB, 0.508292E-04_JPRB, 0.514878E-04_JPRB, 0.521524E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 238, :) = (/ &
+  &  0.926982E+00_JPRB, 0.908310E+00_JPRB, 0.889496E+00_JPRB, 0.870556E+00_JPRB &
+  &, 0.851500E+00_JPRB, 0.832342E+00_JPRB, 0.813095E+00_JPRB &
+  &, 0.793775E+00_JPRB, 0.774394E+00_JPRB, 0.754965E+00_JPRB, 0.735506E+00_JPRB &
+  &, 0.716029E+00_JPRB, 0.696550E+00_JPRB, 0.677084E+00_JPRB &
+  &, 0.657646E+00_JPRB, 0.638252E+00_JPRB, 0.618918E+00_JPRB, 0.599661E+00_JPRB &
+  &, 0.580497E+00_JPRB, 0.561442E+00_JPRB, 0.542514E+00_JPRB &
+  &, 0.523730E+00_JPRB, 0.505106E+00_JPRB, 0.486661E+00_JPRB, 0.468412E+00_JPRB &
+  &, 0.450374E+00_JPRB, 0.432568E+00_JPRB, 0.415008E+00_JPRB &
+  &, 0.397718E+00_JPRB, 0.380703E+00_JPRB, 0.363988E+00_JPRB, 0.347586E+00_JPRB &
+  &, 0.331517E+00_JPRB, 0.315788E+00_JPRB, 0.300419E+00_JPRB &
+  &, 0.285420E+00_JPRB, 0.270806E+00_JPRB, 0.256588E+00_JPRB, 0.242777E+00_JPRB &
+  &, 0.229382E+00_JPRB, 0.216410E+00_JPRB, 0.203880E+00_JPRB &
+  &, 0.191777E+00_JPRB, 0.180116E+00_JPRB, 0.168913E+00_JPRB, 0.158145E+00_JPRB &
+  &, 0.147835E+00_JPRB, 0.137980E+00_JPRB, 0.128561E+00_JPRB &
+  &, 0.119582E+00_JPRB, 0.111058E+00_JPRB, 0.102959E+00_JPRB, 0.952820E-01_JPRB &
+  &, 0.880319E-01_JPRB, 0.811839E-01_JPRB, 0.747385E-01_JPRB &
+  &, 0.686781E-01_JPRB, 0.630131E-01_JPRB, 0.576877E-01_JPRB, 0.527218E-01_JPRB &
+  &, 0.481013E-01_JPRB, 0.438089E-01_JPRB, 0.398061E-01_JPRB &
+  &, 0.361218E-01_JPRB, 0.327118E-01_JPRB, 0.295644E-01_JPRB, 0.266652E-01_JPRB &
+  &, 0.240173E-01_JPRB, 0.215825E-01_JPRB, 0.193591E-01_JPRB &
+  &, 0.173233E-01_JPRB, 0.154701E-01_JPRB, 0.137928E-01_JPRB, 0.122837E-01_JPRB &
+  &, 0.109104E-01_JPRB, 0.966098E-02_JPRB, 0.854538E-02_JPRB &
+  &, 0.754972E-02_JPRB, 0.665839E-02_JPRB, 0.585411E-02_JPRB, 0.514358E-02_JPRB &
+  &, 0.450739E-02_JPRB, 0.392428E-02_JPRB, 0.342572E-02_JPRB &
+  &, 0.298966E-02_JPRB, 0.259211E-02_JPRB, 0.226484E-02_JPRB, 0.195355E-02_JPRB &
+  &, 0.168961E-02_JPRB, 0.144559E-02_JPRB, 0.125407E-02_JPRB &
+  &, 0.105494E-02_JPRB, 0.912557E-03_JPRB, 0.764615E-03_JPRB, 0.677810E-03_JPRB &
+  &, 0.553642E-03_JPRB, 0.459419E-03_JPRB, 0.396867E-03_JPRB &
+  &, 0.331972E-03_JPRB, 0.264700E-03_JPRB, 0.232015E-03_JPRB, 0.198127E-03_JPRB &
+  &, 0.163017E-03_JPRB, 0.126667E-03_JPRB, 0.890596E-04_JPRB &
+  &, 0.903530E-04_JPRB, 0.508292E-04_JPRB, 0.514878E-04_JPRB, 0.521524E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART34',1,ZHOOK_HANDLE)
+END SUBROUTINE PART34
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART35
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART35',0,ZHOOK_HANDLE)
+
+XCW( 239, :) = (/ &
+  &  0.927289E+00_JPRB, 0.908689E+00_JPRB, 0.889945E+00_JPRB, 0.871073E+00_JPRB &
+  &, 0.852082E+00_JPRB, 0.832987E+00_JPRB, 0.813801E+00_JPRB &
+  &, 0.794539E+00_JPRB, 0.775213E+00_JPRB, 0.755839E+00_JPRB, 0.736430E+00_JPRB &
+  &, 0.717002E+00_JPRB, 0.697568E+00_JPRB, 0.678145E+00_JPRB &
+  &, 0.658749E+00_JPRB, 0.639393E+00_JPRB, 0.620094E+00_JPRB, 0.600870E+00_JPRB &
+  &, 0.581736E+00_JPRB, 0.562708E+00_JPRB, 0.543804E+00_JPRB &
+  &, 0.525043E+00_JPRB, 0.506439E+00_JPRB, 0.488007E+00_JPRB, 0.469773E+00_JPRB &
+  &, 0.451746E+00_JPRB, 0.433950E+00_JPRB, 0.416394E+00_JPRB &
+  &, 0.399102E+00_JPRB, 0.382090E+00_JPRB, 0.365372E+00_JPRB, 0.348967E+00_JPRB &
+  &, 0.332885E+00_JPRB, 0.317146E+00_JPRB, 0.301761E+00_JPRB &
+  &, 0.286750E+00_JPRB, 0.272112E+00_JPRB, 0.257879E+00_JPRB, 0.244051E+00_JPRB &
+  &, 0.230625E+00_JPRB, 0.217632E+00_JPRB, 0.205068E+00_JPRB &
+  &, 0.192939E+00_JPRB, 0.181251E+00_JPRB, 0.170018E+00_JPRB, 0.159218E+00_JPRB &
+  &, 0.148873E+00_JPRB, 0.138981E+00_JPRB, 0.129523E+00_JPRB &
+  &, 0.120515E+00_JPRB, 0.111946E+00_JPRB, 0.103814E+00_JPRB, 0.961006E-01_JPRB &
+  &, 0.888122E-01_JPRB, 0.819236E-01_JPRB, 0.754502E-01_JPRB &
+  &, 0.693600E-01_JPRB, 0.636315E-01_JPRB, 0.582880E-01_JPRB, 0.532861E-01_JPRB &
+  &, 0.486275E-01_JPRB, 0.442950E-01_JPRB, 0.402853E-01_JPRB &
+  &, 0.365573E-01_JPRB, 0.331199E-01_JPRB, 0.299435E-01_JPRB, 0.270139E-01_JPRB &
+  &, 0.243340E-01_JPRB, 0.218655E-01_JPRB, 0.196275E-01_JPRB &
+  &, 0.175764E-01_JPRB, 0.157070E-01_JPRB, 0.140127E-01_JPRB, 0.124632E-01_JPRB &
+  &, 0.110936E-01_JPRB, 0.982456E-02_JPRB, 0.871227E-02_JPRB &
+  &, 0.769565E-02_JPRB, 0.678243E-02_JPRB, 0.595531E-02_JPRB, 0.524677E-02_JPRB &
+  &, 0.458629E-02_JPRB, 0.400471E-02_JPRB, 0.350769E-02_JPRB &
+  &, 0.304535E-02_JPRB, 0.264886E-02_JPRB, 0.229375E-02_JPRB, 0.198299E-02_JPRB &
+  &, 0.171960E-02_JPRB, 0.147613E-02_JPRB, 0.128517E-02_JPRB &
+  &, 0.108661E-02_JPRB, 0.944791E-03_JPRB, 0.797425E-03_JPRB, 0.677810E-03_JPRB &
+  &, 0.587619E-03_JPRB, 0.493990E-03_JPRB, 0.396867E-03_JPRB &
+  &, 0.331972E-03_JPRB, 0.301085E-03_JPRB, 0.232015E-03_JPRB, 0.198127E-03_JPRB &
+  &, 0.163017E-03_JPRB, 0.126667E-03_JPRB, 0.128589E-03_JPRB &
+  &, 0.903530E-04_JPRB, 0.508292E-04_JPRB, 0.514878E-04_JPRB, 0.521524E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 240, :) = (/ &
+  &  0.927595E+00_JPRB, 0.909068E+00_JPRB, 0.890394E+00_JPRB, 0.871588E+00_JPRB &
+  &, 0.852662E+00_JPRB, 0.833630E+00_JPRB, 0.814505E+00_JPRB &
+  &, 0.795301E+00_JPRB, 0.776031E+00_JPRB, 0.756710E+00_JPRB, 0.737353E+00_JPRB &
+  &, 0.717972E+00_JPRB, 0.698586E+00_JPRB, 0.679206E+00_JPRB &
+  &, 0.659849E+00_JPRB, 0.640531E+00_JPRB, 0.621270E+00_JPRB, 0.602078E+00_JPRB &
+  &, 0.582974E+00_JPRB, 0.563974E+00_JPRB, 0.545095E+00_JPRB &
+  &, 0.526353E+00_JPRB, 0.507768E+00_JPRB, 0.489354E+00_JPRB, 0.471134E+00_JPRB &
+  &, 0.453117E+00_JPRB, 0.435328E+00_JPRB, 0.417779E+00_JPRB &
+  &, 0.400490E+00_JPRB, 0.383476E+00_JPRB, 0.366755E+00_JPRB, 0.350343E+00_JPRB &
+  &, 0.334257E+00_JPRB, 0.318505E+00_JPRB, 0.303113E+00_JPRB &
+  &, 0.288080E+00_JPRB, 0.273428E+00_JPRB, 0.259179E+00_JPRB, 0.245324E+00_JPRB &
+  &, 0.231879E+00_JPRB, 0.218855E+00_JPRB, 0.206267E+00_JPRB &
+  &, 0.194113E+00_JPRB, 0.182386E+00_JPRB, 0.171123E+00_JPRB, 0.160291E+00_JPRB &
+  &, 0.149912E+00_JPRB, 0.139983E+00_JPRB, 0.130485E+00_JPRB &
+  &, 0.121448E+00_JPRB, 0.112834E+00_JPRB, 0.104669E+00_JPRB, 0.969193E-01_JPRB &
+  &, 0.895926E-01_JPRB, 0.826781E-01_JPRB, 0.761467E-01_JPRB &
+  &, 0.700263E-01_JPRB, 0.642817E-01_JPRB, 0.588883E-01_JPRB, 0.538504E-01_JPRB &
+  &, 0.491707E-01_JPRB, 0.447984E-01_JPRB, 0.407468E-01_JPRB &
+  &, 0.369928E-01_JPRB, 0.335094E-01_JPRB, 0.303226E-01_JPRB, 0.273626E-01_JPRB &
+  &, 0.246507E-01_JPRB, 0.221688E-01_JPRB, 0.198960E-01_JPRB &
+  &, 0.178295E-01_JPRB, 0.159438E-01_JPRB, 0.142325E-01_JPRB, 0.126651E-01_JPRB &
+  &, 0.112539E-01_JPRB, 0.998813E-02_JPRB, 0.885533E-02_JPRB &
+  &, 0.781726E-02_JPRB, 0.690647E-02_JPRB, 0.608180E-02_JPRB, 0.532416E-02_JPRB &
+  &, 0.466520E-02_JPRB, 0.408514E-02_JPRB, 0.356235E-02_JPRB &
+  &, 0.310105E-02_JPRB, 0.270560E-02_JPRB, 0.235157E-02_JPRB, 0.204189E-02_JPRB &
+  &, 0.174960E-02_JPRB, 0.150668E-02_JPRB, 0.131627E-02_JPRB &
+  &, 0.111827E-02_JPRB, 0.944791E-03_JPRB, 0.830234E-03_JPRB, 0.711201E-03_JPRB &
+  &, 0.587619E-03_JPRB, 0.493990E-03_JPRB, 0.432037E-03_JPRB &
+  &, 0.367747E-03_JPRB, 0.301085E-03_JPRB, 0.232015E-03_JPRB, 0.198127E-03_JPRB &
+  &, 0.163017E-03_JPRB, 0.126667E-03_JPRB, 0.128589E-03_JPRB &
+  &, 0.903530E-04_JPRB, 0.916583E-04_JPRB, 0.514878E-04_JPRB, 0.521524E-04_JPRB &
+  &, 0.528229E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 241, :) = (/ &
+  &  0.927903E+00_JPRB, 0.909446E+00_JPRB, 0.890841E+00_JPRB, 0.872103E+00_JPRB &
+  &, 0.853242E+00_JPRB, 0.834273E+00_JPRB, 0.815209E+00_JPRB &
+  &, 0.796062E+00_JPRB, 0.776848E+00_JPRB, 0.757581E+00_JPRB, 0.738275E+00_JPRB &
+  &, 0.718942E+00_JPRB, 0.699601E+00_JPRB, 0.680264E+00_JPRB &
+  &, 0.660949E+00_JPRB, 0.641670E+00_JPRB, 0.622442E+00_JPRB, 0.603284E+00_JPRB &
+  &, 0.584210E+00_JPRB, 0.565236E+00_JPRB, 0.546382E+00_JPRB &
+  &, 0.527666E+00_JPRB, 0.509098E+00_JPRB, 0.490701E+00_JPRB, 0.472494E+00_JPRB &
+  &, 0.454488E+00_JPRB, 0.436707E+00_JPRB, 0.419164E+00_JPRB &
+  &, 0.401878E+00_JPRB, 0.384866E+00_JPRB, 0.368140E+00_JPRB, 0.351724E+00_JPRB &
+  &, 0.335629E+00_JPRB, 0.319867E+00_JPRB, 0.304460E+00_JPRB &
+  &, 0.289411E+00_JPRB, 0.274744E+00_JPRB, 0.260470E+00_JPRB, 0.246597E+00_JPRB &
+  &, 0.233133E+00_JPRB, 0.220087E+00_JPRB, 0.207466E+00_JPRB &
+  &, 0.195276E+00_JPRB, 0.183533E+00_JPRB, 0.172229E+00_JPRB, 0.161364E+00_JPRB &
+  &, 0.150951E+00_JPRB, 0.140985E+00_JPRB, 0.131460E+00_JPRB &
+  &, 0.122381E+00_JPRB, 0.113736E+00_JPRB, 0.105523E+00_JPRB, 0.977379E-01_JPRB &
+  &, 0.903730E-01_JPRB, 0.834178E-01_JPRB, 0.768584E-01_JPRB &
+  &, 0.707082E-01_JPRB, 0.649160E-01_JPRB, 0.594886E-01_JPRB, 0.544313E-01_JPRB &
+  &, 0.496970E-01_JPRB, 0.453018E-01_JPRB, 0.412261E-01_JPRB &
+  &, 0.374283E-01_JPRB, 0.339360E-01_JPRB, 0.307018E-01_JPRB, 0.277112E-01_JPRB &
+  &, 0.249871E-01_JPRB, 0.224721E-01_JPRB, 0.201851E-01_JPRB &
+  &, 0.180825E-01_JPRB, 0.161807E-01_JPRB, 0.144523E-01_JPRB, 0.128671E-01_JPRB &
+  &, 0.114371E-01_JPRB, 0.101517E-01_JPRB, 0.899838E-02_JPRB &
+  &, 0.796319E-02_JPRB, 0.703051E-02_JPRB, 0.618300E-02_JPRB, 0.542734E-02_JPRB &
+  &, 0.477040E-02_JPRB, 0.416557E-02_JPRB, 0.364432E-02_JPRB &
+  &, 0.318459E-02_JPRB, 0.276235E-02_JPRB, 0.240938E-02_JPRB, 0.207134E-02_JPRB &
+  &, 0.180958E-02_JPRB, 0.153722E-02_JPRB, 0.134737E-02_JPRB &
+  &, 0.114994E-02_JPRB, 0.977025E-03_JPRB, 0.830234E-03_JPRB, 0.711201E-03_JPRB &
+  &, 0.621597E-03_JPRB, 0.528560E-03_JPRB, 0.432037E-03_JPRB &
+  &, 0.367747E-03_JPRB, 0.301085E-03_JPRB, 0.269018E-03_JPRB, 0.198127E-03_JPRB &
+  &, 0.163017E-03_JPRB, 0.126667E-03_JPRB, 0.128589E-03_JPRB &
+  &, 0.903530E-04_JPRB, 0.916583E-04_JPRB, 0.514878E-04_JPRB, 0.521524E-04_JPRB &
+  &, 0.528229E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 242, :) = (/ &
+  &  0.928209E+00_JPRB, 0.909824E+00_JPRB, 0.891288E+00_JPRB, 0.872617E+00_JPRB &
+  &, 0.853821E+00_JPRB, 0.834915E+00_JPRB, 0.815910E+00_JPRB &
+  &, 0.796822E+00_JPRB, 0.777664E+00_JPRB, 0.758450E+00_JPRB, 0.739195E+00_JPRB &
+  &, 0.719911E+00_JPRB, 0.700616E+00_JPRB, 0.681323E+00_JPRB &
+  &, 0.662048E+00_JPRB, 0.642806E+00_JPRB, 0.623615E+00_JPRB, 0.604490E+00_JPRB &
+  &, 0.585446E+00_JPRB, 0.566499E+00_JPRB, 0.547673E+00_JPRB &
+  &, 0.528975E+00_JPRB, 0.510427E+00_JPRB, 0.492047E+00_JPRB, 0.473855E+00_JPRB &
+  &, 0.455860E+00_JPRB, 0.438085E+00_JPRB, 0.420550E+00_JPRB &
+  &, 0.403266E+00_JPRB, 0.386253E+00_JPRB, 0.369528E+00_JPRB, 0.353105E+00_JPRB &
+  &, 0.337002E+00_JPRB, 0.321230E+00_JPRB, 0.305812E+00_JPRB &
+  &, 0.290750E+00_JPRB, 0.276070E+00_JPRB, 0.261771E+00_JPRB, 0.247870E+00_JPRB &
+  &, 0.234387E+00_JPRB, 0.221310E+00_JPRB, 0.208666E+00_JPRB &
+  &, 0.196450E+00_JPRB, 0.184679E+00_JPRB, 0.173334E+00_JPRB, 0.162449E+00_JPRB &
+  &, 0.152001E+00_JPRB, 0.141999E+00_JPRB, 0.132435E+00_JPRB &
+  &, 0.123314E+00_JPRB, 0.114638E+00_JPRB, 0.106392E+00_JPRB, 0.985707E-01_JPRB &
+  &, 0.911678E-01_JPRB, 0.841723E-01_JPRB, 0.775853E-01_JPRB &
+  &, 0.713746E-01_JPRB, 0.655503E-01_JPRB, 0.601051E-01_JPRB, 0.549955E-01_JPRB &
+  &, 0.502402E-01_JPRB, 0.458053E-01_JPRB, 0.416876E-01_JPRB &
+  &, 0.378820E-01_JPRB, 0.343441E-01_JPRB, 0.310809E-01_JPRB, 0.280793E-01_JPRB &
+  &, 0.253236E-01_JPRB, 0.227753E-01_JPRB, 0.204742E-01_JPRB &
+  &, 0.183567E-01_JPRB, 0.164175E-01_JPRB, 0.146721E-01_JPRB, 0.130690E-01_JPRB &
+  &, 0.116203E-01_JPRB, 0.103153E-01_JPRB, 0.914143E-02_JPRB &
+  &, 0.808479E-02_JPRB, 0.715454E-02_JPRB, 0.628420E-02_JPRB, 0.553053E-02_JPRB &
+  &, 0.484930E-02_JPRB, 0.424601E-02_JPRB, 0.372630E-02_JPRB &
+  &, 0.324028E-02_JPRB, 0.281910E-02_JPRB, 0.243829E-02_JPRB, 0.213023E-02_JPRB &
+  &, 0.183958E-02_JPRB, 0.159831E-02_JPRB, 0.137847E-02_JPRB &
+  &, 0.118160E-02_JPRB, 0.100926E-02_JPRB, 0.863044E-03_JPRB, 0.744591E-03_JPRB &
+  &, 0.621597E-03_JPRB, 0.528560E-03_JPRB, 0.432037E-03_JPRB &
+  &, 0.367747E-03_JPRB, 0.301085E-03_JPRB, 0.269018E-03_JPRB, 0.235753E-03_JPRB &
+  &, 0.201271E-03_JPRB, 0.165556E-03_JPRB, 0.128589E-03_JPRB &
+  &, 0.903530E-04_JPRB, 0.916583E-04_JPRB, 0.514878E-04_JPRB, 0.521524E-04_JPRB &
+  &, 0.528229E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 243, :) = (/ &
+  &  0.928514E+00_JPRB, 0.910200E+00_JPRB, 0.891734E+00_JPRB, 0.873130E+00_JPRB &
+  &, 0.854398E+00_JPRB, 0.835555E+00_JPRB, 0.816611E+00_JPRB &
+  &, 0.797581E+00_JPRB, 0.778479E+00_JPRB, 0.759318E+00_JPRB, 0.740113E+00_JPRB &
+  &, 0.720878E+00_JPRB, 0.701628E+00_JPRB, 0.682380E+00_JPRB &
+  &, 0.663145E+00_JPRB, 0.643943E+00_JPRB, 0.624786E+00_JPRB, 0.605694E+00_JPRB &
+  &, 0.586680E+00_JPRB, 0.567762E+00_JPRB, 0.548960E+00_JPRB &
+  &, 0.530285E+00_JPRB, 0.511757E+00_JPRB, 0.493394E+00_JPRB, 0.475212E+00_JPRB &
+  &, 0.457231E+00_JPRB, 0.439467E+00_JPRB, 0.421935E+00_JPRB &
+  &, 0.404654E+00_JPRB, 0.387643E+00_JPRB, 0.370912E+00_JPRB, 0.354486E+00_JPRB &
+  &, 0.338374E+00_JPRB, 0.322597E+00_JPRB, 0.307164E+00_JPRB &
+  &, 0.292089E+00_JPRB, 0.277386E+00_JPRB, 0.263071E+00_JPRB, 0.249153E+00_JPRB &
+  &, 0.235641E+00_JPRB, 0.222543E+00_JPRB, 0.209876E+00_JPRB &
+  &, 0.197624E+00_JPRB, 0.185815E+00_JPRB, 0.174451E+00_JPRB, 0.163522E+00_JPRB &
+  &, 0.153040E+00_JPRB, 0.143013E+00_JPRB, 0.133410E+00_JPRB &
+  &, 0.124260E+00_JPRB, 0.115540E+00_JPRB, 0.107260E+00_JPRB, 0.994034E-01_JPRB &
+  &, 0.919626E-01_JPRB, 0.849268E-01_JPRB, 0.782970E-01_JPRB &
+  &, 0.720565E-01_JPRB, 0.662005E-01_JPRB, 0.607054E-01_JPRB, 0.555764E-01_JPRB &
+  &, 0.507834E-01_JPRB, 0.463261E-01_JPRB, 0.421669E-01_JPRB &
+  &, 0.383175E-01_JPRB, 0.347522E-01_JPRB, 0.314790E-01_JPRB, 0.284474E-01_JPRB &
+  &, 0.256601E-01_JPRB, 0.230988E-01_JPRB, 0.207426E-01_JPRB &
+  &, 0.186097E-01_JPRB, 0.166544E-01_JPRB, 0.148919E-01_JPRB, 0.132710E-01_JPRB &
+  &, 0.118035E-01_JPRB, 0.105022E-01_JPRB, 0.930832E-02_JPRB &
+  &, 0.823072E-02_JPRB, 0.727858E-02_JPRB, 0.641069E-02_JPRB, 0.563372E-02_JPRB &
+  &, 0.495450E-02_JPRB, 0.432644E-02_JPRB, 0.378095E-02_JPRB &
+  &, 0.329598E-02_JPRB, 0.287585E-02_JPRB, 0.249611E-02_JPRB, 0.215968E-02_JPRB &
+  &, 0.186957E-02_JPRB, 0.162885E-02_JPRB, 0.140958E-02_JPRB &
+  &, 0.121327E-02_JPRB, 0.104149E-02_JPRB, 0.895853E-03_JPRB, 0.744591E-03_JPRB &
+  &, 0.655575E-03_JPRB, 0.528560E-03_JPRB, 0.467206E-03_JPRB &
+  &, 0.403522E-03_JPRB, 0.337471E-03_JPRB, 0.269018E-03_JPRB, 0.235753E-03_JPRB &
+  &, 0.201271E-03_JPRB, 0.165556E-03_JPRB, 0.128589E-03_JPRB &
+  &, 0.903530E-04_JPRB, 0.916583E-04_JPRB, 0.514878E-04_JPRB, 0.521524E-04_JPRB &
+  &, 0.528229E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 244, :) = (/ &
+  &  0.928819E+00_JPRB, 0.910576E+00_JPRB, 0.892179E+00_JPRB, 0.873642E+00_JPRB &
+  &, 0.854975E+00_JPRB, 0.836194E+00_JPRB, 0.817311E+00_JPRB &
+  &, 0.798339E+00_JPRB, 0.779292E+00_JPRB, 0.760185E+00_JPRB, 0.741030E+00_JPRB &
+  &, 0.721844E+00_JPRB, 0.702640E+00_JPRB, 0.683435E+00_JPRB &
+  &, 0.664242E+00_JPRB, 0.645077E+00_JPRB, 0.625958E+00_JPRB, 0.606897E+00_JPRB &
+  &, 0.587914E+00_JPRB, 0.569024E+00_JPRB, 0.550244E+00_JPRB &
+  &, 0.531595E+00_JPRB, 0.513086E+00_JPRB, 0.494740E+00_JPRB, 0.476572E+00_JPRB &
+  &, 0.458602E+00_JPRB, 0.440845E+00_JPRB, 0.423320E+00_JPRB &
+  &, 0.406042E+00_JPRB, 0.389030E+00_JPRB, 0.372300E+00_JPRB, 0.355866E+00_JPRB &
+  &, 0.339751E+00_JPRB, 0.323959E+00_JPRB, 0.308515E+00_JPRB &
+  &, 0.293429E+00_JPRB, 0.278712E+00_JPRB, 0.264372E+00_JPRB, 0.250437E+00_JPRB &
+  &, 0.236896E+00_JPRB, 0.223776E+00_JPRB, 0.211075E+00_JPRB &
+  &, 0.198809E+00_JPRB, 0.186972E+00_JPRB, 0.175568E+00_JPRB, 0.164608E+00_JPRB &
+  &, 0.154091E+00_JPRB, 0.144027E+00_JPRB, 0.134398E+00_JPRB &
+  &, 0.125206E+00_JPRB, 0.116455E+00_JPRB, 0.108128E+00_JPRB, 0.100236E+00_JPRB &
+  &, 0.927574E-01_JPRB, 0.856961E-01_JPRB, 0.790238E-01_JPRB &
+  &, 0.727539E-01_JPRB, 0.668507E-01_JPRB, 0.613219E-01_JPRB, 0.561573E-01_JPRB &
+  &, 0.513266E-01_JPRB, 0.468295E-01_JPRB, 0.426461E-01_JPRB &
+  &, 0.387712E-01_JPRB, 0.351788E-01_JPRB, 0.318582E-01_JPRB, 0.287960E-01_JPRB &
+  &, 0.259965E-01_JPRB, 0.234021E-01_JPRB, 0.210317E-01_JPRB &
+  &, 0.188839E-01_JPRB, 0.169128E-01_JPRB, 0.151118E-01_JPRB, 0.134729E-01_JPRB &
+  &, 0.120096E-01_JPRB, 0.106658E-01_JPRB, 0.945137E-02_JPRB &
+  &, 0.837665E-02_JPRB, 0.740262E-02_JPRB, 0.651189E-02_JPRB, 0.573691E-02_JPRB &
+  &, 0.503340E-02_JPRB, 0.440687E-02_JPRB, 0.386293E-02_JPRB &
+  &, 0.337952E-02_JPRB, 0.293260E-02_JPRB, 0.255393E-02_JPRB, 0.221857E-02_JPRB &
+  &, 0.192956E-02_JPRB, 0.165940E-02_JPRB, 0.144068E-02_JPRB &
+  &, 0.124493E-02_JPRB, 0.104149E-02_JPRB, 0.895853E-03_JPRB, 0.777982E-03_JPRB &
+  &, 0.655575E-03_JPRB, 0.563131E-03_JPRB, 0.467206E-03_JPRB &
+  &, 0.403522E-03_JPRB, 0.337471E-03_JPRB, 0.269018E-03_JPRB, 0.235753E-03_JPRB &
+  &, 0.201271E-03_JPRB, 0.165556E-03_JPRB, 0.128589E-03_JPRB &
+  &, 0.903530E-04_JPRB, 0.916583E-04_JPRB, 0.514878E-04_JPRB, 0.521524E-04_JPRB &
+  &, 0.528229E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 245, :) = (/ &
+  &  0.929123E+00_JPRB, 0.910950E+00_JPRB, 0.892622E+00_JPRB, 0.874153E+00_JPRB &
+  &, 0.855551E+00_JPRB, 0.836832E+00_JPRB, 0.818009E+00_JPRB &
+  &, 0.799095E+00_JPRB, 0.780104E+00_JPRB, 0.761050E+00_JPRB, 0.741947E+00_JPRB &
+  &, 0.722809E+00_JPRB, 0.703651E+00_JPRB, 0.684489E+00_JPRB &
+  &, 0.665337E+00_JPRB, 0.646210E+00_JPRB, 0.627126E+00_JPRB, 0.608100E+00_JPRB &
+  &, 0.589147E+00_JPRB, 0.570284E+00_JPRB, 0.551531E+00_JPRB &
+  &, 0.532901E+00_JPRB, 0.514412E+00_JPRB, 0.496083E+00_JPRB, 0.477933E+00_JPRB &
+  &, 0.459973E+00_JPRB, 0.442224E+00_JPRB, 0.424705E+00_JPRB &
+  &, 0.407430E+00_JPRB, 0.390420E+00_JPRB, 0.373688E+00_JPRB, 0.357251E+00_JPRB &
+  &, 0.341127E+00_JPRB, 0.325327E+00_JPRB, 0.309871E+00_JPRB &
+  &, 0.294768E+00_JPRB, 0.280028E+00_JPRB, 0.265682E+00_JPRB, 0.251720E+00_JPRB &
+  &, 0.238160E+00_JPRB, 0.225009E+00_JPRB, 0.212285E+00_JPRB &
+  &, 0.199983E+00_JPRB, 0.188119E+00_JPRB, 0.176685E+00_JPRB, 0.165705E+00_JPRB &
+  &, 0.155154E+00_JPRB, 0.145041E+00_JPRB, 0.135385E+00_JPRB &
+  &, 0.126152E+00_JPRB, 0.117370E+00_JPRB, 0.109010E+00_JPRB, 0.101069E+00_JPRB &
+  &, 0.935522E-01_JPRB, 0.864506E-01_JPRB, 0.797507E-01_JPRB &
+  &, 0.734357E-01_JPRB, 0.675167E-01_JPRB, 0.619547E-01_JPRB, 0.567382E-01_JPRB &
+  &, 0.518868E-01_JPRB, 0.473503E-01_JPRB, 0.431431E-01_JPRB &
+  &, 0.392249E-01_JPRB, 0.356054E-01_JPRB, 0.322563E-01_JPRB, 0.291641E-01_JPRB &
+  &, 0.263330E-01_JPRB, 0.237256E-01_JPRB, 0.213208E-01_JPRB &
+  &, 0.191369E-01_JPRB, 0.171496E-01_JPRB, 0.153316E-01_JPRB, 0.136748E-01_JPRB &
+  &, 0.121929E-01_JPRB, 0.108294E-01_JPRB, 0.961827E-02_JPRB &
+  &, 0.852258E-02_JPRB, 0.752666E-02_JPRB, 0.663839E-02_JPRB, 0.584010E-02_JPRB &
+  &, 0.513860E-02_JPRB, 0.451411E-02_JPRB, 0.394491E-02_JPRB &
+  &, 0.343522E-02_JPRB, 0.298935E-02_JPRB, 0.261174E-02_JPRB, 0.227747E-02_JPRB &
+  &, 0.195955E-02_JPRB, 0.168994E-02_JPRB, 0.147178E-02_JPRB &
+  &, 0.127660E-02_JPRB, 0.107373E-02_JPRB, 0.928662E-03_JPRB, 0.777982E-03_JPRB &
+  &, 0.689552E-03_JPRB, 0.563131E-03_JPRB, 0.502376E-03_JPRB &
+  &, 0.403522E-03_JPRB, 0.337471E-03_JPRB, 0.306020E-03_JPRB, 0.235753E-03_JPRB &
+  &, 0.201271E-03_JPRB, 0.165556E-03_JPRB, 0.128589E-03_JPRB &
+  &, 0.130529E-03_JPRB, 0.916583E-04_JPRB, 0.514878E-04_JPRB, 0.521524E-04_JPRB &
+  &, 0.528229E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART35',1,ZHOOK_HANDLE)
+END SUBROUTINE PART35
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART36
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART36',0,ZHOOK_HANDLE)
+
+XCW( 246, :) = (/ &
+  &  0.929426E+00_JPRB, 0.911325E+00_JPRB, 0.893066E+00_JPRB, 0.874663E+00_JPRB &
+  &, 0.856126E+00_JPRB, 0.837469E+00_JPRB, 0.818706E+00_JPRB &
+  &, 0.799850E+00_JPRB, 0.780915E+00_JPRB, 0.761914E+00_JPRB, 0.742862E+00_JPRB &
+  &, 0.723772E+00_JPRB, 0.704660E+00_JPRB, 0.685542E+00_JPRB &
+  &, 0.666431E+00_JPRB, 0.647343E+00_JPRB, 0.628294E+00_JPRB, 0.609301E+00_JPRB &
+  &, 0.590380E+00_JPRB, 0.571546E+00_JPRB, 0.552815E+00_JPRB &
+  &, 0.534207E+00_JPRB, 0.515742E+00_JPRB, 0.497430E+00_JPRB, 0.479290E+00_JPRB &
+  &, 0.461345E+00_JPRB, 0.443606E+00_JPRB, 0.426091E+00_JPRB &
+  &, 0.408822E+00_JPRB, 0.391810E+00_JPRB, 0.375076E+00_JPRB, 0.358636E+00_JPRB &
+  &, 0.342504E+00_JPRB, 0.326694E+00_JPRB, 0.311228E+00_JPRB &
+  &, 0.296107E+00_JPRB, 0.281353E+00_JPRB, 0.266982E+00_JPRB, 0.253003E+00_JPRB &
+  &, 0.239424E+00_JPRB, 0.226252E+00_JPRB, 0.213495E+00_JPRB &
+  &, 0.201168E+00_JPRB, 0.189277E+00_JPRB, 0.177813E+00_JPRB, 0.166790E+00_JPRB &
+  &, 0.156205E+00_JPRB, 0.146068E+00_JPRB, 0.136373E+00_JPRB &
+  &, 0.127112E+00_JPRB, 0.118285E+00_JPRB, 0.109879E+00_JPRB, 0.101916E+00_JPRB &
+  &, 0.943615E-01_JPRB, 0.872198E-01_JPRB, 0.804775E-01_JPRB &
+  &, 0.741331E-01_JPRB, 0.681669E-01_JPRB, 0.625712E-01_JPRB, 0.573357E-01_JPRB &
+  &, 0.524300E-01_JPRB, 0.478711E-01_JPRB, 0.436224E-01_JPRB &
+  &, 0.396785E-01_JPRB, 0.360321E-01_JPRB, 0.326544E-01_JPRB, 0.295322E-01_JPRB &
+  &, 0.266694E-01_JPRB, 0.240491E-01_JPRB, 0.216306E-01_JPRB &
+  &, 0.194111E-01_JPRB, 0.174080E-01_JPRB, 0.155734E-01_JPRB, 0.138992E-01_JPRB &
+  &, 0.123761E-01_JPRB, 0.110163E-01_JPRB, 0.978516E-02_JPRB &
+  &, 0.866851E-02_JPRB, 0.765069E-02_JPRB, 0.676488E-02_JPRB, 0.594328E-02_JPRB &
+  &, 0.524381E-02_JPRB, 0.459454E-02_JPRB, 0.402688E-02_JPRB &
+  &, 0.351876E-02_JPRB, 0.307448E-02_JPRB, 0.266956E-02_JPRB, 0.230692E-02_JPRB &
+  &, 0.201953E-02_JPRB, 0.175103E-02_JPRB, 0.150288E-02_JPRB &
+  &, 0.127660E-02_JPRB, 0.110596E-02_JPRB, 0.961472E-03_JPRB, 0.811372E-03_JPRB &
+  &, 0.689552E-03_JPRB, 0.597702E-03_JPRB, 0.502376E-03_JPRB &
+  &, 0.439296E-03_JPRB, 0.373856E-03_JPRB, 0.306020E-03_JPRB, 0.235753E-03_JPRB &
+  &, 0.201271E-03_JPRB, 0.165556E-03_JPRB, 0.128589E-03_JPRB &
+  &, 0.130529E-03_JPRB, 0.916583E-04_JPRB, 0.929756E-04_JPRB, 0.521524E-04_JPRB &
+  &, 0.528229E-04_JPRB, 0.534995E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 247, :) = (/ &
+  &  0.929728E+00_JPRB, 0.911699E+00_JPRB, 0.893508E+00_JPRB, 0.875171E+00_JPRB &
+  &, 0.856699E+00_JPRB, 0.838105E+00_JPRB, 0.819403E+00_JPRB &
+  &, 0.800604E+00_JPRB, 0.781725E+00_JPRB, 0.762777E+00_JPRB, 0.743776E+00_JPRB &
+  &, 0.724734E+00_JPRB, 0.705669E+00_JPRB, 0.686593E+00_JPRB &
+  &, 0.667523E+00_JPRB, 0.648475E+00_JPRB, 0.629462E+00_JPRB, 0.610502E+00_JPRB &
+  &, 0.591610E+00_JPRB, 0.572803E+00_JPRB, 0.554099E+00_JPRB &
+  &, 0.535517E+00_JPRB, 0.517068E+00_JPRB, 0.498773E+00_JPRB, 0.480651E+00_JPRB &
+  &, 0.462712E+00_JPRB, 0.444984E+00_JPRB, 0.427476E+00_JPRB &
+  &, 0.410210E+00_JPRB, 0.393201E+00_JPRB, 0.376464E+00_JPRB, 0.360021E+00_JPRB &
+  &, 0.343880E+00_JPRB, 0.328065E+00_JPRB, 0.312584E+00_JPRB &
+  &, 0.297447E+00_JPRB, 0.282688E+00_JPRB, 0.268293E+00_JPRB, 0.254297E+00_JPRB &
+  &, 0.240688E+00_JPRB, 0.227496E+00_JPRB, 0.214715E+00_JPRB &
+  &, 0.202353E+00_JPRB, 0.190435E+00_JPRB, 0.178942E+00_JPRB, 0.167887E+00_JPRB &
+  &, 0.157268E+00_JPRB, 0.147094E+00_JPRB, 0.137361E+00_JPRB &
+  &, 0.128058E+00_JPRB, 0.119200E+00_JPRB, 0.110775E+00_JPRB, 0.102763E+00_JPRB &
+  &, 0.951707E-01_JPRB, 0.879891E-01_JPRB, 0.812195E-01_JPRB &
+  &, 0.748305E-01_JPRB, 0.688329E-01_JPRB, 0.632039E-01_JPRB, 0.579166E-01_JPRB &
+  &, 0.529902E-01_JPRB, 0.483919E-01_JPRB, 0.441194E-01_JPRB &
+  &, 0.401503E-01_JPRB, 0.364587E-01_JPRB, 0.330525E-01_JPRB, 0.299196E-01_JPRB &
+  &, 0.270257E-01_JPRB, 0.243523E-01_JPRB, 0.219197E-01_JPRB &
+  &, 0.196852E-01_JPRB, 0.176448E-01_JPRB, 0.157932E-01_JPRB, 0.141012E-01_JPRB &
+  &, 0.125822E-01_JPRB, 0.111799E-01_JPRB, 0.992821E-02_JPRB &
+  &, 0.881444E-02_JPRB, 0.779954E-02_JPRB, 0.686608E-02_JPRB, 0.607227E-02_JPRB &
+  &, 0.532271E-02_JPRB, 0.467497E-02_JPRB, 0.410886E-02_JPRB &
+  &, 0.357445E-02_JPRB, 0.313123E-02_JPRB, 0.272737E-02_JPRB, 0.236581E-02_JPRB &
+  &, 0.204953E-02_JPRB, 0.178157E-02_JPRB, 0.153398E-02_JPRB &
+  &, 0.130826E-02_JPRB, 0.113820E-02_JPRB, 0.961472E-03_JPRB, 0.844763E-03_JPRB &
+  &, 0.723530E-03_JPRB, 0.597702E-03_JPRB, 0.502376E-03_JPRB &
+  &, 0.439296E-03_JPRB, 0.373856E-03_JPRB, 0.306020E-03_JPRB, 0.273378E-03_JPRB &
+  &, 0.201271E-03_JPRB, 0.165556E-03_JPRB, 0.128589E-03_JPRB &
+  &, 0.130529E-03_JPRB, 0.916583E-04_JPRB, 0.929756E-04_JPRB, 0.521524E-04_JPRB &
+  &, 0.528229E-04_JPRB, 0.534995E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 248, :) = (/ &
+  &  0.930031E+00_JPRB, 0.912071E+00_JPRB, 0.893950E+00_JPRB, 0.875680E+00_JPRB &
+  &, 0.857271E+00_JPRB, 0.838740E+00_JPRB, 0.820098E+00_JPRB &
+  &, 0.801358E+00_JPRB, 0.782533E+00_JPRB, 0.763639E+00_JPRB, 0.744688E+00_JPRB &
+  &, 0.725696E+00_JPRB, 0.706677E+00_JPRB, 0.687643E+00_JPRB &
+  &, 0.668615E+00_JPRB, 0.649604E+00_JPRB, 0.630628E+00_JPRB, 0.611700E+00_JPRB &
+  &, 0.592841E+00_JPRB, 0.574062E+00_JPRB, 0.555383E+00_JPRB &
+  &, 0.536823E+00_JPRB, 0.518394E+00_JPRB, 0.500116E+00_JPRB, 0.482008E+00_JPRB &
+  &, 0.464084E+00_JPRB, 0.446363E+00_JPRB, 0.428861E+00_JPRB &
+  &, 0.411599E+00_JPRB, 0.394591E+00_JPRB, 0.377856E+00_JPRB, 0.361406E+00_JPRB &
+  &, 0.345261E+00_JPRB, 0.329437E+00_JPRB, 0.313945E+00_JPRB &
+  &, 0.298795E+00_JPRB, 0.284014E+00_JPRB, 0.269603E+00_JPRB, 0.255580E+00_JPRB &
+  &, 0.241953E+00_JPRB, 0.228739E+00_JPRB, 0.215936E+00_JPRB &
+  &, 0.203549E+00_JPRB, 0.191593E+00_JPRB, 0.180070E+00_JPRB, 0.168984E+00_JPRB &
+  &, 0.158331E+00_JPRB, 0.148121E+00_JPRB, 0.138348E+00_JPRB &
+  &, 0.129017E+00_JPRB, 0.120129E+00_JPRB, 0.111657E+00_JPRB, 0.103609E+00_JPRB &
+  &, 0.959800E-01_JPRB, 0.887732E-01_JPRB, 0.819615E-01_JPRB &
+  &, 0.755434E-01_JPRB, 0.694989E-01_JPRB, 0.638367E-01_JPRB, 0.585141E-01_JPRB &
+  &, 0.535504E-01_JPRB, 0.489300E-01_JPRB, 0.446164E-01_JPRB &
+  &, 0.406040E-01_JPRB, 0.369039E-01_JPRB, 0.334695E-01_JPRB, 0.302877E-01_JPRB &
+  &, 0.273621E-01_JPRB, 0.246758E-01_JPRB, 0.222294E-01_JPRB &
+  &, 0.199594E-01_JPRB, 0.179032E-01_JPRB, 0.160350E-01_JPRB, 0.143255E-01_JPRB &
+  &, 0.127654E-01_JPRB, 0.113668E-01_JPRB, 0.100951E-01_JPRB &
+  &, 0.896037E-02_JPRB, 0.792357E-02_JPRB, 0.699257E-02_JPRB, 0.617545E-02_JPRB &
+  &, 0.542791E-02_JPRB, 0.475540E-02_JPRB, 0.419084E-02_JPRB &
+  &, 0.365799E-02_JPRB, 0.318798E-02_JPRB, 0.278519E-02_JPRB, 0.242471E-02_JPRB &
+  &, 0.210951E-02_JPRB, 0.181212E-02_JPRB, 0.156508E-02_JPRB &
+  &, 0.133993E-02_JPRB, 0.117043E-02_JPRB, 0.994281E-03_JPRB, 0.844763E-03_JPRB &
+  &, 0.723530E-03_JPRB, 0.632272E-03_JPRB, 0.537546E-03_JPRB &
+  &, 0.439296E-03_JPRB, 0.373856E-03_JPRB, 0.306020E-03_JPRB, 0.273378E-03_JPRB &
+  &, 0.239526E-03_JPRB, 0.165556E-03_JPRB, 0.168119E-03_JPRB &
+  &, 0.130529E-03_JPRB, 0.916583E-04_JPRB, 0.929756E-04_JPRB, 0.521524E-04_JPRB &
+  &, 0.528229E-04_JPRB, 0.534995E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 249, :) = (/ &
+  &  0.930332E+00_JPRB, 0.912445E+00_JPRB, 0.894391E+00_JPRB, 0.876187E+00_JPRB &
+  &, 0.857844E+00_JPRB, 0.839374E+00_JPRB, 0.820791E+00_JPRB &
+  &, 0.802109E+00_JPRB, 0.783340E+00_JPRB, 0.764499E+00_JPRB, 0.745600E+00_JPRB &
+  &, 0.726656E+00_JPRB, 0.707682E+00_JPRB, 0.688693E+00_JPRB &
+  &, 0.669706E+00_JPRB, 0.650734E+00_JPRB, 0.631793E+00_JPRB, 0.612900E+00_JPRB &
+  &, 0.594069E+00_JPRB, 0.575318E+00_JPRB, 0.556667E+00_JPRB &
+  &, 0.538130E+00_JPRB, 0.519720E+00_JPRB, 0.501459E+00_JPRB, 0.483365E+00_JPRB &
+  &, 0.465455E+00_JPRB, 0.447745E+00_JPRB, 0.430250E+00_JPRB &
+  &, 0.412991E+00_JPRB, 0.395986E+00_JPRB, 0.379244E+00_JPRB, 0.362791E+00_JPRB &
+  &, 0.346642E+00_JPRB, 0.330808E+00_JPRB, 0.315301E+00_JPRB &
+  &, 0.300144E+00_JPRB, 0.285349E+00_JPRB, 0.270913E+00_JPRB, 0.256873E+00_JPRB &
+  &, 0.243227E+00_JPRB, 0.229983E+00_JPRB, 0.217146E+00_JPRB &
+  &, 0.204745E+00_JPRB, 0.192750E+00_JPRB, 0.181199E+00_JPRB, 0.170081E+00_JPRB &
+  &, 0.159406E+00_JPRB, 0.149160E+00_JPRB, 0.139349E+00_JPRB &
+  &, 0.129989E+00_JPRB, 0.121044E+00_JPRB, 0.112539E+00_JPRB, 0.104470E+00_JPRB &
+  &, 0.968037E-01_JPRB, 0.895573E-01_JPRB, 0.827035E-01_JPRB &
+  &, 0.762407E-01_JPRB, 0.701649E-01_JPRB, 0.644694E-01_JPRB, 0.591116E-01_JPRB &
+  &, 0.541276E-01_JPRB, 0.494508E-01_JPRB, 0.451134E-01_JPRB &
+  &, 0.410758E-01_JPRB, 0.373305E-01_JPRB, 0.338676E-01_JPRB, 0.306751E-01_JPRB &
+  &, 0.277184E-01_JPRB, 0.250195E-01_JPRB, 0.225185E-01_JPRB &
+  &, 0.202546E-01_JPRB, 0.181616E-01_JPRB, 0.162548E-01_JPRB, 0.145275E-01_JPRB &
+  &, 0.129715E-01_JPRB, 0.115538E-01_JPRB, 0.102620E-01_JPRB &
+  &, 0.910630E-02_JPRB, 0.804761E-02_JPRB, 0.711907E-02_JPRB, 0.627864E-02_JPRB &
+  &, 0.553311E-02_JPRB, 0.486264E-02_JPRB, 0.424549E-02_JPRB &
+  &, 0.371369E-02_JPRB, 0.324473E-02_JPRB, 0.284301E-02_JPRB, 0.245416E-02_JPRB &
+  &, 0.213951E-02_JPRB, 0.184266E-02_JPRB, 0.159619E-02_JPRB &
+  &, 0.137159E-02_JPRB, 0.120266E-02_JPRB, 0.102709E-02_JPRB, 0.878153E-03_JPRB &
+  &, 0.757508E-03_JPRB, 0.632272E-03_JPRB, 0.537546E-03_JPRB &
+  &, 0.475071E-03_JPRB, 0.373856E-03_JPRB, 0.343023E-03_JPRB, 0.273378E-03_JPRB &
+  &, 0.239526E-03_JPRB, 0.204445E-03_JPRB, 0.168119E-03_JPRB &
+  &, 0.130529E-03_JPRB, 0.916583E-04_JPRB, 0.929756E-04_JPRB, 0.521524E-04_JPRB &
+  &, 0.528229E-04_JPRB, 0.534995E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 250, :) = (/ &
+  &  0.930633E+00_JPRB, 0.912815E+00_JPRB, 0.894831E+00_JPRB, 0.876693E+00_JPRB &
+  &, 0.858414E+00_JPRB, 0.840007E+00_JPRB, 0.821484E+00_JPRB &
+  &, 0.802859E+00_JPRB, 0.784146E+00_JPRB, 0.765359E+00_JPRB, 0.746509E+00_JPRB &
+  &, 0.727614E+00_JPRB, 0.708686E+00_JPRB, 0.689742E+00_JPRB &
+  &, 0.670796E+00_JPRB, 0.651862E+00_JPRB, 0.632957E+00_JPRB, 0.614097E+00_JPRB &
+  &, 0.595299E+00_JPRB, 0.576578E+00_JPRB, 0.557948E+00_JPRB &
+  &, 0.539433E+00_JPRB, 0.521046E+00_JPRB, 0.502802E+00_JPRB, 0.484725E+00_JPRB &
+  &, 0.466823E+00_JPRB, 0.449123E+00_JPRB, 0.431636E+00_JPRB &
+  &, 0.414383E+00_JPRB, 0.397376E+00_JPRB, 0.380636E+00_JPRB, 0.364180E+00_JPRB &
+  &, 0.348023E+00_JPRB, 0.332180E+00_JPRB, 0.316666E+00_JPRB &
+  &, 0.301493E+00_JPRB, 0.286675E+00_JPRB, 0.272233E+00_JPRB, 0.258166E+00_JPRB &
+  &, 0.244502E+00_JPRB, 0.231226E+00_JPRB, 0.218378E+00_JPRB &
+  &, 0.205930E+00_JPRB, 0.193920E+00_JPRB, 0.182339E+00_JPRB, 0.171190E+00_JPRB &
+  &, 0.160469E+00_JPRB, 0.150199E+00_JPRB, 0.140349E+00_JPRB &
+  &, 0.130948E+00_JPRB, 0.121986E+00_JPRB, 0.113435E+00_JPRB, 0.105317E+00_JPRB &
+  &, 0.976274E-01_JPRB, 0.903413E-01_JPRB, 0.834455E-01_JPRB &
+  &, 0.769536E-01_JPRB, 0.708468E-01_JPRB, 0.651022E-01_JPRB, 0.597257E-01_JPRB &
+  &, 0.546877E-01_JPRB, 0.499890E-01_JPRB, 0.456104E-01_JPRB &
+  &, 0.415476E-01_JPRB, 0.377757E-01_JPRB, 0.342847E-01_JPRB, 0.310625E-01_JPRB &
+  &, 0.280747E-01_JPRB, 0.253430E-01_JPRB, 0.228283E-01_JPRB &
+  &, 0.205287E-01_JPRB, 0.184200E-01_JPRB, 0.164966E-01_JPRB, 0.147519E-01_JPRB &
+  &, 0.131776E-01_JPRB, 0.117407E-01_JPRB, 0.104289E-01_JPRB &
+  &, 0.925223E-02_JPRB, 0.819646E-02_JPRB, 0.724557E-02_JPRB, 0.638183E-02_JPRB &
+  &, 0.563831E-02_JPRB, 0.494307E-02_JPRB, 0.432747E-02_JPRB &
+  &, 0.379723E-02_JPRB, 0.332985E-02_JPRB, 0.290082E-02_JPRB, 0.251305E-02_JPRB &
+  &, 0.219949E-02_JPRB, 0.190375E-02_JPRB, 0.162729E-02_JPRB &
+  &, 0.140326E-02_JPRB, 0.123490E-02_JPRB, 0.105990E-02_JPRB, 0.911544E-03_JPRB &
+  &, 0.757508E-03_JPRB, 0.666843E-03_JPRB, 0.572715E-03_JPRB &
+  &, 0.475071E-03_JPRB, 0.410242E-03_JPRB, 0.343023E-03_JPRB, 0.273378E-03_JPRB &
+  &, 0.239526E-03_JPRB, 0.204445E-03_JPRB, 0.168119E-03_JPRB &
+  &, 0.130529E-03_JPRB, 0.916583E-04_JPRB, 0.929756E-04_JPRB, 0.521524E-04_JPRB &
+  &, 0.528229E-04_JPRB, 0.534995E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 251, :) = (/ &
+  &  0.930935E+00_JPRB, 0.913186E+00_JPRB, 0.895270E+00_JPRB, 0.877199E+00_JPRB &
+  &, 0.858984E+00_JPRB, 0.840639E+00_JPRB, 0.822176E+00_JPRB &
+  &, 0.803609E+00_JPRB, 0.784951E+00_JPRB, 0.766217E+00_JPRB, 0.747419E+00_JPRB &
+  &, 0.728572E+00_JPRB, 0.709690E+00_JPRB, 0.690789E+00_JPRB &
+  &, 0.671884E+00_JPRB, 0.652988E+00_JPRB, 0.634120E+00_JPRB, 0.615294E+00_JPRB &
+  &, 0.596526E+00_JPRB, 0.577831E+00_JPRB, 0.559232E+00_JPRB &
+  &, 0.540739E+00_JPRB, 0.522372E+00_JPRB, 0.504145E+00_JPRB, 0.486082E+00_JPRB &
+  &, 0.468194E+00_JPRB, 0.450501E+00_JPRB, 0.433009E+00_JPRB &
+  &, 0.415759E+00_JPRB, 0.398770E+00_JPRB, 0.382029E+00_JPRB, 0.365569E+00_JPRB &
+  &, 0.349404E+00_JPRB, 0.333551E+00_JPRB, 0.318027E+00_JPRB &
+  &, 0.302842E+00_JPRB, 0.288010E+00_JPRB, 0.273553E+00_JPRB, 0.259470E+00_JPRB &
+  &, 0.245776E+00_JPRB, 0.232480E+00_JPRB, 0.219599E+00_JPRB &
+  &, 0.207137E+00_JPRB, 0.195089E+00_JPRB, 0.183479E+00_JPRB, 0.172298E+00_JPRB &
+  &, 0.161544E+00_JPRB, 0.151238E+00_JPRB, 0.141363E+00_JPRB &
+  &, 0.131921E+00_JPRB, 0.122915E+00_JPRB, 0.114331E+00_JPRB, 0.106178E+00_JPRB &
+  &, 0.984512E-01_JPRB, 0.911254E-01_JPRB, 0.842026E-01_JPRB &
+  &, 0.776665E-01_JPRB, 0.715129E-01_JPRB, 0.657512E-01_JPRB, 0.603232E-01_JPRB &
+  &, 0.552649E-01_JPRB, 0.505271E-01_JPRB, 0.461252E-01_JPRB &
+  &, 0.420194E-01_JPRB, 0.382208E-01_JPRB, 0.347018E-01_JPRB, 0.314499E-01_JPRB &
+  &, 0.284309E-01_JPRB, 0.256665E-01_JPRB, 0.231380E-01_JPRB &
+  &, 0.208029E-01_JPRB, 0.186784E-01_JPRB, 0.167384E-01_JPRB, 0.149763E-01_JPRB &
+  &, 0.133837E-01_JPRB, 0.119277E-01_JPRB, 0.105958E-01_JPRB &
+  &, 0.939816E-02_JPRB, 0.834530E-02_JPRB, 0.737206E-02_JPRB, 0.651081E-02_JPRB &
+  &, 0.574352E-02_JPRB, 0.505031E-02_JPRB, 0.443677E-02_JPRB &
+  &, 0.388077E-02_JPRB, 0.338660E-02_JPRB, 0.295864E-02_JPRB, 0.257195E-02_JPRB &
+  &, 0.222949E-02_JPRB, 0.193430E-02_JPRB, 0.168949E-02_JPRB &
+  &, 0.143492E-02_JPRB, 0.123490E-02_JPRB, 0.105990E-02_JPRB, 0.911544E-03_JPRB &
+  &, 0.791485E-03_JPRB, 0.666843E-03_JPRB, 0.572715E-03_JPRB &
+  &, 0.475071E-03_JPRB, 0.410242E-03_JPRB, 0.343023E-03_JPRB, 0.273378E-03_JPRB &
+  &, 0.239526E-03_JPRB, 0.204445E-03_JPRB, 0.168119E-03_JPRB &
+  &, 0.130529E-03_JPRB, 0.132488E-03_JPRB, 0.929756E-04_JPRB, 0.521524E-04_JPRB &
+  &, 0.528229E-04_JPRB, 0.534995E-04_JPRB, 0.541819E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 252, :) = (/ &
+  &  0.931233E+00_JPRB, 0.913557E+00_JPRB, 0.895708E+00_JPRB, 0.877704E+00_JPRB &
+  &, 0.859553E+00_JPRB, 0.841270E+00_JPRB, 0.822867E+00_JPRB &
+  &, 0.804357E+00_JPRB, 0.785755E+00_JPRB, 0.767073E+00_JPRB, 0.748326E+00_JPRB &
+  &, 0.729527E+00_JPRB, 0.710692E+00_JPRB, 0.691835E+00_JPRB &
+  &, 0.672970E+00_JPRB, 0.654115E+00_JPRB, 0.635283E+00_JPRB, 0.616489E+00_JPRB &
+  &, 0.597752E+00_JPRB, 0.579087E+00_JPRB, 0.560513E+00_JPRB &
+  &, 0.542042E+00_JPRB, 0.523695E+00_JPRB, 0.505488E+00_JPRB, 0.487439E+00_JPRB &
+  &, 0.469565E+00_JPRB, 0.451883E+00_JPRB, 0.434410E+00_JPRB &
+  &, 0.417163E+00_JPRB, 0.400161E+00_JPRB, 0.383421E+00_JPRB, 0.366958E+00_JPRB &
+  &, 0.350789E+00_JPRB, 0.334927E+00_JPRB, 0.319392E+00_JPRB &
+  &, 0.304190E+00_JPRB, 0.289345E+00_JPRB, 0.274864E+00_JPRB, 0.260763E+00_JPRB &
+  &, 0.247051E+00_JPRB, 0.233734E+00_JPRB, 0.220830E+00_JPRB &
+  &, 0.208333E+00_JPRB, 0.196258E+00_JPRB, 0.184620E+00_JPRB, 0.173407E+00_JPRB &
+  &, 0.162620E+00_JPRB, 0.152278E+00_JPRB, 0.142376E+00_JPRB &
+  &, 0.132893E+00_JPRB, 0.123857E+00_JPRB, 0.115241E+00_JPRB, 0.107053E+00_JPRB &
+  &, 0.992749E-01_JPRB, 0.919095E-01_JPRB, 0.849597E-01_JPRB &
+  &, 0.783793E-01_JPRB, 0.721947E-01_JPRB, 0.663839E-01_JPRB, 0.609372E-01_JPRB &
+  &, 0.558421E-01_JPRB, 0.510827E-01_JPRB, 0.466399E-01_JPRB &
+  &, 0.425094E-01_JPRB, 0.386660E-01_JPRB, 0.351188E-01_JPRB, 0.318374E-01_JPRB &
+  &, 0.288069E-01_JPRB, 0.260102E-01_JPRB, 0.234478E-01_JPRB &
+  &, 0.210981E-01_JPRB, 0.189583E-01_JPRB, 0.169802E-01_JPRB, 0.152006E-01_JPRB &
+  &, 0.135669E-01_JPRB, 0.121146E-01_JPRB, 0.107627E-01_JPRB &
+  &, 0.956842E-02_JPRB, 0.846934E-02_JPRB, 0.749856E-02_JPRB, 0.661400E-02_JPRB &
+  &, 0.584872E-02_JPRB, 0.513074E-02_JPRB, 0.451875E-02_JPRB &
+  &, 0.396431E-02_JPRB, 0.344335E-02_JPRB, 0.301646E-02_JPRB, 0.263084E-02_JPRB &
+  &, 0.228947E-02_JPRB, 0.199539E-02_JPRB, 0.172059E-02_JPRB &
+  &, 0.146659E-02_JPRB, 0.126713E-02_JPRB, 0.109271E-02_JPRB, 0.944934E-03_JPRB &
+  &, 0.791485E-03_JPRB, 0.701414E-03_JPRB, 0.572715E-03_JPRB &
+  &, 0.510846E-03_JPRB, 0.410242E-03_JPRB, 0.343023E-03_JPRB, 0.311003E-03_JPRB &
+  &, 0.239526E-03_JPRB, 0.204445E-03_JPRB, 0.168119E-03_JPRB &
+  &, 0.130529E-03_JPRB, 0.132488E-03_JPRB, 0.929756E-04_JPRB, 0.943048E-04_JPRB &
+  &, 0.528229E-04_JPRB, 0.534995E-04_JPRB, 0.541819E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART36',1,ZHOOK_HANDLE)
+END SUBROUTINE PART36
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART37
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART37',0,ZHOOK_HANDLE)
+
+XCW( 253, :) = (/ &
+  &  0.931534E+00_JPRB, 0.913926E+00_JPRB, 0.896146E+00_JPRB, 0.878207E+00_JPRB &
+  &, 0.860120E+00_JPRB, 0.841900E+00_JPRB, 0.823556E+00_JPRB &
+  &, 0.805104E+00_JPRB, 0.786558E+00_JPRB, 0.767929E+00_JPRB, 0.749233E+00_JPRB &
+  &, 0.730482E+00_JPRB, 0.711694E+00_JPRB, 0.692880E+00_JPRB &
+  &, 0.674057E+00_JPRB, 0.655240E+00_JPRB, 0.636444E+00_JPRB, 0.617684E+00_JPRB &
+  &, 0.598979E+00_JPRB, 0.580340E+00_JPRB, 0.561794E+00_JPRB &
+  &, 0.543345E+00_JPRB, 0.525021E+00_JPRB, 0.506831E+00_JPRB, 0.488796E+00_JPRB &
+  &, 0.470936E+00_JPRB, 0.453262E+00_JPRB, 0.435795E+00_JPRB &
+  &, 0.418555E+00_JPRB, 0.401555E+00_JPRB, 0.384817E+00_JPRB, 0.368348E+00_JPRB &
+  &, 0.352175E+00_JPRB, 0.336303E+00_JPRB, 0.320758E+00_JPRB &
+  &, 0.305548E+00_JPRB, 0.290680E+00_JPRB, 0.276184E+00_JPRB, 0.262066E+00_JPRB &
+  &, 0.248326E+00_JPRB, 0.234988E+00_JPRB, 0.222062E+00_JPRB &
+  &, 0.209540E+00_JPRB, 0.197439E+00_JPRB, 0.185760E+00_JPRB, 0.174516E+00_JPRB &
+  &, 0.163707E+00_JPRB, 0.153329E+00_JPRB, 0.143389E+00_JPRB &
+  &, 0.133879E+00_JPRB, 0.124799E+00_JPRB, 0.116150E+00_JPRB, 0.107914E+00_JPRB &
+  &, 0.100113E+00_JPRB, 0.927083E-01_JPRB, 0.857168E-01_JPRB &
+  &, 0.791077E-01_JPRB, 0.728925E-01_JPRB, 0.670329E-01_JPRB, 0.615513E-01_JPRB &
+  &, 0.564192E-01_JPRB, 0.516208E-01_JPRB, 0.471547E-01_JPRB &
+  &, 0.429812E-01_JPRB, 0.391112E-01_JPRB, 0.355359E-01_JPRB, 0.322248E-01_JPRB &
+  &, 0.291632E-01_JPRB, 0.263539E-01_JPRB, 0.237575E-01_JPRB &
+  &, 0.213933E-01_JPRB, 0.192167E-01_JPRB, 0.172440E-01_JPRB, 0.154250E-01_JPRB &
+  &, 0.137959E-01_JPRB, 0.123016E-01_JPRB, 0.109534E-01_JPRB &
+  &, 0.971435E-02_JPRB, 0.861818E-02_JPRB, 0.762505E-02_JPRB, 0.674299E-02_JPRB &
+  &, 0.595392E-02_JPRB, 0.523798E-02_JPRB, 0.460072E-02_JPRB &
+  &, 0.402001E-02_JPRB, 0.352847E-02_JPRB, 0.307427E-02_JPRB, 0.268974E-02_JPRB &
+  &, 0.231946E-02_JPRB, 0.202593E-02_JPRB, 0.175169E-02_JPRB &
+  &, 0.152992E-02_JPRB, 0.129937E-02_JPRB, 0.112552E-02_JPRB, 0.978325E-03_JPRB &
+  &, 0.825463E-03_JPRB, 0.701414E-03_JPRB, 0.607885E-03_JPRB &
+  &, 0.510846E-03_JPRB, 0.446628E-03_JPRB, 0.380026E-03_JPRB, 0.311003E-03_JPRB &
+  &, 0.239526E-03_JPRB, 0.204445E-03_JPRB, 0.168119E-03_JPRB &
+  &, 0.130529E-03_JPRB, 0.132488E-03_JPRB, 0.929756E-04_JPRB, 0.943048E-04_JPRB &
+  &, 0.528229E-04_JPRB, 0.534995E-04_JPRB, 0.541819E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 254, :) = (/ &
+  &  0.931833E+00_JPRB, 0.914285E+00_JPRB, 0.896582E+00_JPRB, 0.878710E+00_JPRB &
+  &, 0.860687E+00_JPRB, 0.842528E+00_JPRB, 0.824245E+00_JPRB &
+  &, 0.805850E+00_JPRB, 0.787359E+00_JPRB, 0.768784E+00_JPRB, 0.750138E+00_JPRB &
+  &, 0.731436E+00_JPRB, 0.712693E+00_JPRB, 0.693923E+00_JPRB &
+  &, 0.675142E+00_JPRB, 0.656363E+00_JPRB, 0.637603E+00_JPRB, 0.618878E+00_JPRB &
+  &, 0.600204E+00_JPRB, 0.581597E+00_JPRB, 0.563071E+00_JPRB &
+  &, 0.544648E+00_JPRB, 0.526344E+00_JPRB, 0.508171E+00_JPRB, 0.490153E+00_JPRB &
+  &, 0.472304E+00_JPRB, 0.454644E+00_JPRB, 0.437184E+00_JPRB &
+  &, 0.419919E+00_JPRB, 0.402950E+00_JPRB, 0.386209E+00_JPRB, 0.369741E+00_JPRB &
+  &, 0.353560E+00_JPRB, 0.337683E+00_JPRB, 0.322123E+00_JPRB &
+  &, 0.306897E+00_JPRB, 0.292025E+00_JPRB, 0.277513E+00_JPRB, 0.263370E+00_JPRB &
+  &, 0.249610E+00_JPRB, 0.236253E+00_JPRB, 0.223293E+00_JPRB &
+  &, 0.210747E+00_JPRB, 0.198619E+00_JPRB, 0.186912E+00_JPRB, 0.175637E+00_JPRB &
+  &, 0.164795E+00_JPRB, 0.154381E+00_JPRB, 0.144403E+00_JPRB &
+  &, 0.134851E+00_JPRB, 0.125741E+00_JPRB, 0.117060E+00_JPRB, 0.108789E+00_JPRB &
+  &, 0.100937E+00_JPRB, 0.935072E-01_JPRB, 0.864740E-01_JPRB &
+  &, 0.798361E-01_JPRB, 0.735744E-01_JPRB, 0.676981E-01_JPRB, 0.621820E-01_JPRB &
+  &, 0.570134E-01_JPRB, 0.521763E-01_JPRB, 0.476694E-01_JPRB &
+  &, 0.434712E-01_JPRB, 0.395749E-01_JPRB, 0.359719E-01_JPRB, 0.326122E-01_JPRB &
+  &, 0.295392E-01_JPRB, 0.266976E-01_JPRB, 0.240879E-01_JPRB &
+  &, 0.216886E-01_JPRB, 0.194966E-01_JPRB, 0.174858E-01_JPRB, 0.156494E-01_JPRB &
+  &, 0.140020E-01_JPRB, 0.124885E-01_JPRB, 0.111203E-01_JPRB &
+  &, 0.988460E-02_JPRB, 0.876703E-02_JPRB, 0.775155E-02_JPRB, 0.687197E-02_JPRB &
+  &, 0.605912E-02_JPRB, 0.531841E-02_JPRB, 0.468270E-02_JPRB &
+  &, 0.410355E-02_JPRB, 0.358522E-02_JPRB, 0.313209E-02_JPRB, 0.274863E-02_JPRB &
+  &, 0.237945E-02_JPRB, 0.205647E-02_JPRB, 0.178280E-02_JPRB &
+  &, 0.156158E-02_JPRB, 0.133160E-02_JPRB, 0.115833E-02_JPRB, 0.978325E-03_JPRB &
+  &, 0.859440E-03_JPRB, 0.735984E-03_JPRB, 0.607885E-03_JPRB &
+  &, 0.510846E-03_JPRB, 0.446628E-03_JPRB, 0.380026E-03_JPRB, 0.311003E-03_JPRB &
+  &, 0.277780E-03_JPRB, 0.204445E-03_JPRB, 0.168119E-03_JPRB &
+  &, 0.170706E-03_JPRB, 0.132488E-03_JPRB, 0.929756E-04_JPRB, 0.943048E-04_JPRB &
+  &, 0.528229E-04_JPRB, 0.534995E-04_JPRB, 0.541819E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 255, :) = (/ &
+  &  0.932132E+00_JPRB, 0.914664E+00_JPRB, 0.897019E+00_JPRB, 0.879212E+00_JPRB &
+  &, 0.861253E+00_JPRB, 0.843156E+00_JPRB, 0.824932E+00_JPRB &
+  &, 0.806596E+00_JPRB, 0.788159E+00_JPRB, 0.769637E+00_JPRB, 0.751043E+00_JPRB &
+  &, 0.732390E+00_JPRB, 0.713692E+00_JPRB, 0.694966E+00_JPRB &
+  &, 0.676226E+00_JPRB, 0.657485E+00_JPRB, 0.638762E+00_JPRB, 0.620072E+00_JPRB &
+  &, 0.601428E+00_JPRB, 0.582850E+00_JPRB, 0.564352E+00_JPRB &
+  &, 0.545951E+00_JPRB, 0.527666E+00_JPRB, 0.509514E+00_JPRB, 0.491510E+00_JPRB &
+  &, 0.473675E+00_JPRB, 0.456022E+00_JPRB, 0.438573E+00_JPRB &
+  &, 0.421342E+00_JPRB, 0.404348E+00_JPRB, 0.387606E+00_JPRB, 0.371130E+00_JPRB &
+  &, 0.354945E+00_JPRB, 0.339064E+00_JPRB, 0.323493E+00_JPRB &
+  &, 0.308255E+00_JPRB, 0.293369E+00_JPRB, 0.278833E+00_JPRB, 0.264673E+00_JPRB &
+  &, 0.250895E+00_JPRB, 0.237507E+00_JPRB, 0.224525E+00_JPRB &
+  &, 0.211954E+00_JPRB, 0.199800E+00_JPRB, 0.188064E+00_JPRB, 0.176758E+00_JPRB &
+  &, 0.165882E+00_JPRB, 0.155433E+00_JPRB, 0.145416E+00_JPRB &
+  &, 0.135836E+00_JPRB, 0.126683E+00_JPRB, 0.117970E+00_JPRB, 0.109665E+00_JPRB &
+  &, 0.101789E+00_JPRB, 0.943061E-01_JPRB, 0.872462E-01_JPRB &
+  &, 0.805644E-01_JPRB, 0.742721E-01_JPRB, 0.683471E-01_JPRB, 0.627961E-01_JPRB &
+  &, 0.575905E-01_JPRB, 0.527318E-01_JPRB, 0.481842E-01_JPRB &
+  &, 0.439611E-01_JPRB, 0.400386E-01_JPRB, 0.363890E-01_JPRB, 0.330190E-01_JPRB &
+  &, 0.299153E-01_JPRB, 0.270413E-01_JPRB, 0.243977E-01_JPRB &
+  &, 0.219838E-01_JPRB, 0.197550E-01_JPRB, 0.177276E-01_JPRB, 0.158962E-01_JPRB &
+  &, 0.142081E-01_JPRB, 0.126755E-01_JPRB, 0.112872E-01_JPRB &
+  &, 0.100548E-01_JPRB, 0.891587E-02_JPRB, 0.790334E-02_JPRB, 0.697516E-02_JPRB &
+  &, 0.616433E-02_JPRB, 0.542565E-02_JPRB, 0.476468E-02_JPRB &
+  &, 0.418709E-02_JPRB, 0.367035E-02_JPRB, 0.318991E-02_JPRB, 0.280753E-02_JPRB &
+  &, 0.243944E-02_JPRB, 0.211756E-02_JPRB, 0.184500E-02_JPRB &
+  &, 0.159325E-02_JPRB, 0.136384E-02_JPRB, 0.119114E-02_JPRB, 0.101172E-02_JPRB &
+  &, 0.859440E-03_JPRB, 0.735984E-03_JPRB, 0.643055E-03_JPRB &
+  &, 0.546620E-03_JPRB, 0.446628E-03_JPRB, 0.380026E-03_JPRB, 0.311003E-03_JPRB &
+  &, 0.277780E-03_JPRB, 0.243334E-03_JPRB, 0.207649E-03_JPRB &
+  &, 0.170706E-03_JPRB, 0.132488E-03_JPRB, 0.929756E-04_JPRB, 0.943048E-04_JPRB &
+  &, 0.528229E-04_JPRB, 0.534995E-04_JPRB, 0.541819E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 256, :) = (/ &
+  &  0.932428E+00_JPRB, 0.915031E+00_JPRB, 0.897455E+00_JPRB, 0.879714E+00_JPRB &
+  &, 0.861818E+00_JPRB, 0.843783E+00_JPRB, 0.825619E+00_JPRB &
+  &, 0.807339E+00_JPRB, 0.788959E+00_JPRB, 0.770490E+00_JPRB, 0.751945E+00_JPRB &
+  &, 0.733342E+00_JPRB, 0.714690E+00_JPRB, 0.696008E+00_JPRB &
+  &, 0.677308E+00_JPRB, 0.658608E+00_JPRB, 0.639920E+00_JPRB, 0.621262E+00_JPRB &
+  &, 0.602651E+00_JPRB, 0.584100E+00_JPRB, 0.565630E+00_JPRB &
+  &, 0.547254E+00_JPRB, 0.528989E+00_JPRB, 0.510850E+00_JPRB, 0.492867E+00_JPRB &
+  &, 0.475043E+00_JPRB, 0.457404E+00_JPRB, 0.439962E+00_JPRB &
+  &, 0.422734E+00_JPRB, 0.405742E+00_JPRB, 0.389002E+00_JPRB, 0.372524E+00_JPRB &
+  &, 0.356335E+00_JPRB, 0.340439E+00_JPRB, 0.324863E+00_JPRB &
+  &, 0.309613E+00_JPRB, 0.294705E+00_JPRB, 0.280163E+00_JPRB, 0.265976E+00_JPRB &
+  &, 0.252180E+00_JPRB, 0.238772E+00_JPRB, 0.225767E+00_JPRB &
+  &, 0.213162E+00_JPRB, 0.200980E+00_JPRB, 0.189215E+00_JPRB, 0.177879E+00_JPRB &
+  &, 0.166970E+00_JPRB, 0.156484E+00_JPRB, 0.146442E+00_JPRB &
+  &, 0.136822E+00_JPRB, 0.127639E+00_JPRB, 0.118879E+00_JPRB, 0.110540E+00_JPRB &
+  &, 0.102628E+00_JPRB, 0.951197E-01_JPRB, 0.880034E-01_JPRB &
+  &, 0.812928E-01_JPRB, 0.749699E-01_JPRB, 0.690123E-01_JPRB, 0.634268E-01_JPRB &
+  &, 0.581847E-01_JPRB, 0.532874E-01_JPRB, 0.487167E-01_JPRB &
+  &, 0.444511E-01_JPRB, 0.405024E-01_JPRB, 0.368250E-01_JPRB, 0.334258E-01_JPRB &
+  &, 0.302913E-01_JPRB, 0.273850E-01_JPRB, 0.247281E-01_JPRB &
+  &, 0.222791E-01_JPRB, 0.200349E-01_JPRB, 0.179914E-01_JPRB, 0.161206E-01_JPRB &
+  &, 0.144142E-01_JPRB, 0.128858E-01_JPRB, 0.114779E-01_JPRB &
+  &, 0.102008E-01_JPRB, 0.906472E-02_JPRB, 0.802984E-02_JPRB, 0.710414E-02_JPRB &
+  &, 0.626953E-02_JPRB, 0.553289E-02_JPRB, 0.487398E-02_JPRB &
+  &, 0.427063E-02_JPRB, 0.372710E-02_JPRB, 0.327663E-02_JPRB, 0.286642E-02_JPRB &
+  &, 0.249942E-02_JPRB, 0.214811E-02_JPRB, 0.187610E-02_JPRB &
+  &, 0.162491E-02_JPRB, 0.139607E-02_JPRB, 0.119114E-02_JPRB, 0.104511E-02_JPRB &
+  &, 0.893418E-03_JPRB, 0.770555E-03_JPRB, 0.643055E-03_JPRB &
+  &, 0.546620E-03_JPRB, 0.483013E-03_JPRB, 0.380026E-03_JPRB, 0.348629E-03_JPRB &
+  &, 0.277780E-03_JPRB, 0.243334E-03_JPRB, 0.207649E-03_JPRB &
+  &, 0.170706E-03_JPRB, 0.132488E-03_JPRB, 0.929756E-04_JPRB, 0.943048E-04_JPRB &
+  &, 0.528229E-04_JPRB, 0.534995E-04_JPRB, 0.541819E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 257, :) = (/ &
+  &  0.932726E+00_JPRB, 0.915397E+00_JPRB, 0.897889E+00_JPRB, 0.880214E+00_JPRB &
+  &, 0.862383E+00_JPRB, 0.844409E+00_JPRB, 0.826304E+00_JPRB &
+  &, 0.808083E+00_JPRB, 0.789757E+00_JPRB, 0.771341E+00_JPRB, 0.752848E+00_JPRB &
+  &, 0.734292E+00_JPRB, 0.715687E+00_JPRB, 0.697048E+00_JPRB &
+  &, 0.678390E+00_JPRB, 0.659728E+00_JPRB, 0.641078E+00_JPRB, 0.622455E+00_JPRB &
+  &, 0.603875E+00_JPRB, 0.585353E+00_JPRB, 0.566907E+00_JPRB &
+  &, 0.548553E+00_JPRB, 0.530312E+00_JPRB, 0.512197E+00_JPRB, 0.494224E+00_JPRB &
+  &, 0.476414E+00_JPRB, 0.458783E+00_JPRB, 0.441348E+00_JPRB &
+  &, 0.424126E+00_JPRB, 0.407137E+00_JPRB, 0.390398E+00_JPRB, 0.373921E+00_JPRB &
+  &, 0.357724E+00_JPRB, 0.341824E+00_JPRB, 0.326237E+00_JPRB &
+  &, 0.310971E+00_JPRB, 0.296049E+00_JPRB, 0.281493E+00_JPRB, 0.267290E+00_JPRB &
+  &, 0.253475E+00_JPRB, 0.240036E+00_JPRB, 0.227010E+00_JPRB &
+  &, 0.214380E+00_JPRB, 0.202161E+00_JPRB, 0.190367E+00_JPRB, 0.179000E+00_JPRB &
+  &, 0.168057E+00_JPRB, 0.157549E+00_JPRB, 0.147468E+00_JPRB &
+  &, 0.137821E+00_JPRB, 0.128595E+00_JPRB, 0.119803E+00_JPRB, 0.111429E+00_JPRB &
+  &, 0.103480E+00_JPRB, 0.959334E-01_JPRB, 0.887908E-01_JPRB &
+  &, 0.820367E-01_JPRB, 0.756676E-01_JPRB, 0.696775E-01_JPRB, 0.640575E-01_JPRB &
+  &, 0.587788E-01_JPRB, 0.538429E-01_JPRB, 0.492492E-01_JPRB &
+  &, 0.449592E-01_JPRB, 0.409661E-01_JPRB, 0.372610E-01_JPRB, 0.338326E-01_JPRB &
+  &, 0.306674E-01_JPRB, 0.277489E-01_JPRB, 0.250585E-01_JPRB &
+  &, 0.225743E-01_JPRB, 0.203148E-01_JPRB, 0.182552E-01_JPRB, 0.163674E-01_JPRB &
+  &, 0.146432E-01_JPRB, 0.130727E-01_JPRB, 0.116687E-01_JPRB &
+  &, 0.103710E-01_JPRB, 0.921356E-02_JPRB, 0.815634E-02_JPRB, 0.723313E-02_JPRB &
+  &, 0.637473E-02_JPRB, 0.564013E-02_JPRB, 0.495596E-02_JPRB &
+  &, 0.435418E-02_JPRB, 0.381222E-02_JPRB, 0.333445E-02_JPRB, 0.292532E-02_JPRB &
+  &, 0.252942E-02_JPRB, 0.220920E-02_JPRB, 0.190720E-02_JPRB &
+  &, 0.165658E-02_JPRB, 0.142830E-02_JPRB, 0.122395E-02_JPRB, 0.107850E-02_JPRB &
+  &, 0.927396E-03_JPRB, 0.770555E-03_JPRB, 0.678224E-03_JPRB &
+  &, 0.582395E-03_JPRB, 0.483013E-03_JPRB, 0.417028E-03_JPRB, 0.348629E-03_JPRB &
+  &, 0.277780E-03_JPRB, 0.243334E-03_JPRB, 0.207649E-03_JPRB &
+  &, 0.170706E-03_JPRB, 0.132488E-03_JPRB, 0.929756E-04_JPRB, 0.943048E-04_JPRB &
+  &, 0.528229E-04_JPRB, 0.534995E-04_JPRB, 0.541819E-04_JPRB &
+  &, 0.548704E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 258, :) = (/ &
+  &  0.933022E+00_JPRB, 0.915763E+00_JPRB, 0.898323E+00_JPRB, 0.880713E+00_JPRB &
+  &, 0.862946E+00_JPRB, 0.845034E+00_JPRB, 0.826989E+00_JPRB &
+  &, 0.808824E+00_JPRB, 0.790554E+00_JPRB, 0.772191E+00_JPRB, 0.753749E+00_JPRB &
+  &, 0.735241E+00_JPRB, 0.716683E+00_JPRB, 0.698088E+00_JPRB &
+  &, 0.679471E+00_JPRB, 0.660849E+00_JPRB, 0.642234E+00_JPRB, 0.623645E+00_JPRB &
+  &, 0.605097E+00_JPRB, 0.586603E+00_JPRB, 0.568185E+00_JPRB &
+  &, 0.549856E+00_JPRB, 0.531634E+00_JPRB, 0.513536E+00_JPRB, 0.495581E+00_JPRB &
+  &, 0.477786E+00_JPRB, 0.460165E+00_JPRB, 0.442737E+00_JPRB &
+  &, 0.425522E+00_JPRB, 0.408535E+00_JPRB, 0.391794E+00_JPRB, 0.375314E+00_JPRB &
+  &, 0.359114E+00_JPRB, 0.343205E+00_JPRB, 0.327607E+00_JPRB &
+  &, 0.312338E+00_JPRB, 0.297404E+00_JPRB, 0.282823E+00_JPRB, 0.268603E+00_JPRB &
+  &, 0.254760E+00_JPRB, 0.241311E+00_JPRB, 0.228252E+00_JPRB &
+  &, 0.215598E+00_JPRB, 0.203353E+00_JPRB, 0.191531E+00_JPRB, 0.180132E+00_JPRB &
+  &, 0.169157E+00_JPRB, 0.158613E+00_JPRB, 0.148507E+00_JPRB &
+  &, 0.138819E+00_JPRB, 0.129564E+00_JPRB, 0.120726E+00_JPRB, 0.112318E+00_JPRB &
+  &, 0.104318E+00_JPRB, 0.967471E-01_JPRB, 0.895630E-01_JPRB &
+  &, 0.827805E-01_JPRB, 0.763812E-01_JPRB, 0.703427E-01_JPRB, 0.646881E-01_JPRB &
+  &, 0.593730E-01_JPRB, 0.544157E-01_JPRB, 0.497817E-01_JPRB &
+  &, 0.454492E-01_JPRB, 0.414298E-01_JPRB, 0.376970E-01_JPRB, 0.342394E-01_JPRB &
+  &, 0.310434E-01_JPRB, 0.280926E-01_JPRB, 0.253889E-01_JPRB &
+  &, 0.228906E-01_JPRB, 0.205948E-01_JPRB, 0.185190E-01_JPRB, 0.165918E-01_JPRB &
+  &, 0.148493E-01_JPRB, 0.132830E-01_JPRB, 0.118356E-01_JPRB &
+  &, 0.105413E-01_JPRB, 0.936241E-02_JPRB, 0.830813E-02_JPRB, 0.736211E-02_JPRB &
+  &, 0.650623E-02_JPRB, 0.572056E-02_JPRB, 0.503794E-02_JPRB &
+  &, 0.443772E-02_JPRB, 0.389735E-02_JPRB, 0.339226E-02_JPRB, 0.298421E-02_JPRB &
+  &, 0.258940E-02_JPRB, 0.223974E-02_JPRB, 0.196941E-02_JPRB &
+  &, 0.168824E-02_JPRB, 0.146054E-02_JPRB, 0.125676E-02_JPRB, 0.107850E-02_JPRB &
+  &, 0.927396E-03_JPRB, 0.805126E-03_JPRB, 0.678224E-03_JPRB &
+  &, 0.582395E-03_JPRB, 0.483013E-03_JPRB, 0.417028E-03_JPRB, 0.348629E-03_JPRB &
+  &, 0.316034E-03_JPRB, 0.243334E-03_JPRB, 0.207649E-03_JPRB &
+  &, 0.170706E-03_JPRB, 0.132488E-03_JPRB, 0.134463E-03_JPRB, 0.943048E-04_JPRB &
+  &, 0.956459E-04_JPRB, 0.534995E-04_JPRB, 0.541819E-04_JPRB &
+  &, 0.548704E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 259, :) = (/ &
+  &  0.933318E+00_JPRB, 0.916130E+00_JPRB, 0.898756E+00_JPRB, 0.881212E+00_JPRB &
+  &, 0.863508E+00_JPRB, 0.845657E+00_JPRB, 0.827672E+00_JPRB &
+  &, 0.809565E+00_JPRB, 0.791350E+00_JPRB, 0.773040E+00_JPRB, 0.754649E+00_JPRB &
+  &, 0.736189E+00_JPRB, 0.717677E+00_JPRB, 0.699127E+00_JPRB &
+  &, 0.680552E+00_JPRB, 0.661968E+00_JPRB, 0.643390E+00_JPRB, 0.624834E+00_JPRB &
+  &, 0.606317E+00_JPRB, 0.587853E+00_JPRB, 0.569462E+00_JPRB &
+  &, 0.551156E+00_JPRB, 0.532957E+00_JPRB, 0.514879E+00_JPRB, 0.496938E+00_JPRB &
+  &, 0.479153E+00_JPRB, 0.461547E+00_JPRB, 0.444126E+00_JPRB &
+  &, 0.426918E+00_JPRB, 0.409934E+00_JPRB, 0.393191E+00_JPRB, 0.376708E+00_JPRB &
+  &, 0.360503E+00_JPRB, 0.344589E+00_JPRB, 0.328986E+00_JPRB &
+  &, 0.313696E+00_JPRB, 0.298748E+00_JPRB, 0.284153E+00_JPRB, 0.269916E+00_JPRB &
+  &, 0.256055E+00_JPRB, 0.242576E+00_JPRB, 0.229494E+00_JPRB &
+  &, 0.216816E+00_JPRB, 0.204545E+00_JPRB, 0.192694E+00_JPRB, 0.181265E+00_JPRB &
+  &, 0.170257E+00_JPRB, 0.159689E+00_JPRB, 0.149533E+00_JPRB &
+  &, 0.139818E+00_JPRB, 0.130519E+00_JPRB, 0.121650E+00_JPRB, 0.113207E+00_JPRB &
+  &, 0.105185E+00_JPRB, 0.975607E-01_JPRB, 0.903505E-01_JPRB &
+  &, 0.835244E-01_JPRB, 0.770790E-01_JPRB, 0.710241E-01_JPRB, 0.653188E-01_JPRB &
+  &, 0.599841E-01_JPRB, 0.549886E-01_JPRB, 0.503142E-01_JPRB &
+  &, 0.459573E-01_JPRB, 0.419121E-01_JPRB, 0.381330E-01_JPRB, 0.346462E-01_JPRB &
+  &, 0.314392E-01_JPRB, 0.284566E-01_JPRB, 0.257193E-01_JPRB &
+  &, 0.231858E-01_JPRB, 0.208962E-01_JPRB, 0.187828E-01_JPRB, 0.168386E-01_JPRB &
+  &, 0.150783E-01_JPRB, 0.134700E-01_JPRB, 0.120263E-01_JPRB &
+  &, 0.107115E-01_JPRB, 0.951125E-02_JPRB, 0.845993E-02_JPRB, 0.749110E-02_JPRB &
+  &, 0.661144E-02_JPRB, 0.582781E-02_JPRB, 0.514724E-02_JPRB &
+  &, 0.452126E-02_JPRB, 0.395409E-02_JPRB, 0.347899E-02_JPRB, 0.304311E-02_JPRB &
+  &, 0.264939E-02_JPRB, 0.230083E-02_JPRB, 0.200051E-02_JPRB &
+  &, 0.171991E-02_JPRB, 0.149277E-02_JPRB, 0.128957E-02_JPRB, 0.111189E-02_JPRB &
+  &, 0.961373E-03_JPRB, 0.805126E-03_JPRB, 0.713394E-03_JPRB &
+  &, 0.582395E-03_JPRB, 0.519399E-03_JPRB, 0.417028E-03_JPRB, 0.348629E-03_JPRB &
+  &, 0.316034E-03_JPRB, 0.243334E-03_JPRB, 0.207649E-03_JPRB &
+  &, 0.170706E-03_JPRB, 0.132488E-03_JPRB, 0.134463E-03_JPRB, 0.943048E-04_JPRB &
+  &, 0.956459E-04_JPRB, 0.534995E-04_JPRB, 0.541819E-04_JPRB &
+  &, 0.548704E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART37',1,ZHOOK_HANDLE)
+END SUBROUTINE PART37
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART38
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART38',0,ZHOOK_HANDLE)
+
+XCW( 260, :) = (/ &
+  &  0.933612E+00_JPRB, 0.916494E+00_JPRB, 0.899188E+00_JPRB, 0.881710E+00_JPRB &
+  &, 0.864070E+00_JPRB, 0.846280E+00_JPRB, 0.828355E+00_JPRB &
+  &, 0.810305E+00_JPRB, 0.792146E+00_JPRB, 0.773888E+00_JPRB, 0.755548E+00_JPRB &
+  &, 0.737137E+00_JPRB, 0.718671E+00_JPRB, 0.700164E+00_JPRB &
+  &, 0.681630E+00_JPRB, 0.663086E+00_JPRB, 0.644544E+00_JPRB, 0.626024E+00_JPRB &
+  &, 0.607538E+00_JPRB, 0.589103E+00_JPRB, 0.570737E+00_JPRB &
+  &, 0.552456E+00_JPRB, 0.534276E+00_JPRB, 0.516219E+00_JPRB, 0.498295E+00_JPRB &
+  &, 0.480525E+00_JPRB, 0.462925E+00_JPRB, 0.445515E+00_JPRB &
+  &, 0.428314E+00_JPRB, 0.411332E+00_JPRB, 0.394591E+00_JPRB, 0.378105E+00_JPRB &
+  &, 0.361897E+00_JPRB, 0.345974E+00_JPRB, 0.330360E+00_JPRB &
+  &, 0.315063E+00_JPRB, 0.300102E+00_JPRB, 0.285483E+00_JPRB, 0.271230E+00_JPRB &
+  &, 0.257350E+00_JPRB, 0.243851E+00_JPRB, 0.230748E+00_JPRB &
+  &, 0.218034E+00_JPRB, 0.205748E+00_JPRB, 0.193858E+00_JPRB, 0.182398E+00_JPRB &
+  &, 0.171368E+00_JPRB, 0.160754E+00_JPRB, 0.150572E+00_JPRB &
+  &, 0.140816E+00_JPRB, 0.131488E+00_JPRB, 0.122587E+00_JPRB, 0.114111E+00_JPRB &
+  &, 0.106038E+00_JPRB, 0.983892E-01_JPRB, 0.911227E-01_JPRB &
+  &, 0.842683E-01_JPRB, 0.777925E-01_JPRB, 0.717055E-01_JPRB, 0.659661E-01_JPRB &
+  &, 0.605952E-01_JPRB, 0.555615E-01_JPRB, 0.508467E-01_JPRB &
+  &, 0.464654E-01_JPRB, 0.423758E-01_JPRB, 0.385880E-01_JPRB, 0.350724E-01_JPRB &
+  &, 0.318153E-01_JPRB, 0.288205E-01_JPRB, 0.260497E-01_JPRB &
+  &, 0.235022E-01_JPRB, 0.211761E-01_JPRB, 0.190466E-01_JPRB, 0.170854E-01_JPRB &
+  &, 0.153073E-01_JPRB, 0.136803E-01_JPRB, 0.122170E-01_JPRB &
+  &, 0.108818E-01_JPRB, 0.968490E-02_JPRB, 0.858642E-02_JPRB, 0.762008E-02_JPRB &
+  &, 0.674294E-02_JPRB, 0.593505E-02_JPRB, 0.522922E-02_JPRB &
+  &, 0.460480E-02_JPRB, 0.403922E-02_JPRB, 0.353681E-02_JPRB, 0.310200E-02_JPRB &
+  &, 0.270937E-02_JPRB, 0.236192E-02_JPRB, 0.203161E-02_JPRB &
+  &, 0.178324E-02_JPRB, 0.152501E-02_JPRB, 0.132237E-02_JPRB, 0.114528E-02_JPRB &
+  &, 0.995351E-03_JPRB, 0.839696E-03_JPRB, 0.713394E-03_JPRB &
+  &, 0.618170E-03_JPRB, 0.519399E-03_JPRB, 0.454031E-03_JPRB, 0.386254E-03_JPRB &
+  &, 0.316034E-03_JPRB, 0.282223E-03_JPRB, 0.207649E-03_JPRB &
+  &, 0.170706E-03_JPRB, 0.132488E-03_JPRB, 0.134463E-03_JPRB, 0.943048E-04_JPRB &
+  &, 0.956459E-04_JPRB, 0.534995E-04_JPRB, 0.541819E-04_JPRB &
+  &, 0.548704E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 261, :) = (/ &
+  &  0.933908E+00_JPRB, 0.916858E+00_JPRB, 0.899619E+00_JPRB, 0.882207E+00_JPRB &
+  &, 0.864630E+00_JPRB, 0.846903E+00_JPRB, 0.829037E+00_JPRB &
+  &, 0.811045E+00_JPRB, 0.792939E+00_JPRB, 0.774735E+00_JPRB, 0.756446E+00_JPRB &
+  &, 0.738083E+00_JPRB, 0.719663E+00_JPRB, 0.701200E+00_JPRB &
+  &, 0.682708E+00_JPRB, 0.664202E+00_JPRB, 0.645699E+00_JPRB, 0.627211E+00_JPRB &
+  &, 0.608758E+00_JPRB, 0.590353E+00_JPRB, 0.572014E+00_JPRB &
+  &, 0.553755E+00_JPRB, 0.535599E+00_JPRB, 0.517559E+00_JPRB, 0.499653E+00_JPRB &
+  &, 0.481896E+00_JPRB, 0.464307E+00_JPRB, 0.446908E+00_JPRB &
+  &, 0.429706E+00_JPRB, 0.412730E+00_JPRB, 0.395992E+00_JPRB, 0.379503E+00_JPRB &
+  &, 0.363291E+00_JPRB, 0.347363E+00_JPRB, 0.331739E+00_JPRB &
+  &, 0.316431E+00_JPRB, 0.301457E+00_JPRB, 0.286822E+00_JPRB, 0.272553E+00_JPRB &
+  &, 0.258645E+00_JPRB, 0.245126E+00_JPRB, 0.232001E+00_JPRB &
+  &, 0.219264E+00_JPRB, 0.206940E+00_JPRB, 0.195033E+00_JPRB, 0.183543E+00_JPRB &
+  &, 0.172468E+00_JPRB, 0.161830E+00_JPRB, 0.151611E+00_JPRB &
+  &, 0.141828E+00_JPRB, 0.132457E+00_JPRB, 0.123525E+00_JPRB, 0.115000E+00_JPRB &
+  &, 0.106905E+00_JPRB, 0.992029E-01_JPRB, 0.919253E-01_JPRB &
+  &, 0.850276E-01_JPRB, 0.785220E-01_JPRB, 0.723869E-01_JPRB, 0.666134E-01_JPRB &
+  &, 0.612063E-01_JPRB, 0.561344E-01_JPRB, 0.513970E-01_JPRB &
+  &, 0.469735E-01_JPRB, 0.428581E-01_JPRB, 0.390430E-01_JPRB, 0.354986E-01_JPRB &
+  &, 0.322111E-01_JPRB, 0.291844E-01_JPRB, 0.263801E-01_JPRB &
+  &, 0.238185E-01_JPRB, 0.214560E-01_JPRB, 0.193104E-01_JPRB, 0.173323E-01_JPRB &
+  &, 0.155363E-01_JPRB, 0.138906E-01_JPRB, 0.124078E-01_JPRB &
+  &, 0.110520E-01_JPRB, 0.983375E-02_JPRB, 0.873822E-02_JPRB, 0.774906E-02_JPRB &
+  &, 0.684814E-02_JPRB, 0.604229E-02_JPRB, 0.533852E-02_JPRB &
+  &, 0.468834E-02_JPRB, 0.412434E-02_JPRB, 0.359462E-02_JPRB, 0.316090E-02_JPRB &
+  &, 0.276936E-02_JPRB, 0.239246E-02_JPRB, 0.209381E-02_JPRB &
+  &, 0.181490E-02_JPRB, 0.155724E-02_JPRB, 0.135518E-02_JPRB, 0.117867E-02_JPRB &
+  &, 0.995351E-03_JPRB, 0.874267E-03_JPRB, 0.748564E-03_JPRB &
+  &, 0.618170E-03_JPRB, 0.555785E-03_JPRB, 0.454031E-03_JPRB, 0.386254E-03_JPRB &
+  &, 0.316034E-03_JPRB, 0.282223E-03_JPRB, 0.247179E-03_JPRB &
+  &, 0.210882E-03_JPRB, 0.173317E-03_JPRB, 0.134463E-03_JPRB, 0.943048E-04_JPRB &
+  &, 0.956459E-04_JPRB, 0.534995E-04_JPRB, 0.541819E-04_JPRB &
+  &, 0.548704E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 262, :) = (/ &
+  &  0.934203E+00_JPRB, 0.917223E+00_JPRB, 0.900051E+00_JPRB, 0.882704E+00_JPRB &
+  &, 0.865190E+00_JPRB, 0.847523E+00_JPRB, 0.829717E+00_JPRB &
+  &, 0.811782E+00_JPRB, 0.793732E+00_JPRB, 0.775581E+00_JPRB, 0.757342E+00_JPRB &
+  &, 0.739028E+00_JPRB, 0.720654E+00_JPRB, 0.702235E+00_JPRB &
+  &, 0.683784E+00_JPRB, 0.665318E+00_JPRB, 0.646851E+00_JPRB, 0.628399E+00_JPRB &
+  &, 0.609977E+00_JPRB, 0.591599E+00_JPRB, 0.573288E+00_JPRB &
+  &, 0.555055E+00_JPRB, 0.536918E+00_JPRB, 0.518898E+00_JPRB, 0.501006E+00_JPRB &
+  &, 0.483267E+00_JPRB, 0.465689E+00_JPRB, 0.448297E+00_JPRB &
+  &, 0.431102E+00_JPRB, 0.414129E+00_JPRB, 0.397392E+00_JPRB, 0.380905E+00_JPRB &
+  &, 0.364685E+00_JPRB, 0.348752E+00_JPRB, 0.333118E+00_JPRB &
+  &, 0.317798E+00_JPRB, 0.302811E+00_JPRB, 0.288162E+00_JPRB, 0.273866E+00_JPRB &
+  &, 0.259951E+00_JPRB, 0.246401E+00_JPRB, 0.233254E+00_JPRB &
+  &, 0.220493E+00_JPRB, 0.208143E+00_JPRB, 0.196208E+00_JPRB, 0.184687E+00_JPRB &
+  &, 0.173580E+00_JPRB, 0.162907E+00_JPRB, 0.152663E+00_JPRB &
+  &, 0.142840E+00_JPRB, 0.133440E+00_JPRB, 0.124462E+00_JPRB, 0.115903E+00_JPRB &
+  &, 0.107772E+00_JPRB, 0.100046E+00_JPRB, 0.927127E-01_JPRB &
+  &, 0.857870E-01_JPRB, 0.792356E-01_JPRB, 0.730684E-01_JPRB, 0.672607E-01_JPRB &
+  &, 0.618174E-01_JPRB, 0.567072E-01_JPRB, 0.519472E-01_JPRB &
+  &, 0.474816E-01_JPRB, 0.433404E-01_JPRB, 0.394979E-01_JPRB, 0.359054E-01_JPRB &
+  &, 0.326070E-01_JPRB, 0.295483E-01_JPRB, 0.267311E-01_JPRB &
+  &, 0.241348E-01_JPRB, 0.217575E-01_JPRB, 0.195741E-01_JPRB, 0.175791E-01_JPRB &
+  &, 0.157653E-01_JPRB, 0.141009E-01_JPRB, 0.125985E-01_JPRB &
+  &, 0.112223E-01_JPRB, 0.100074E-01_JPRB, 0.889001E-02_JPRB, 0.787805E-02_JPRB &
+  &, 0.697964E-02_JPRB, 0.614953E-02_JPRB, 0.542050E-02_JPRB &
+  &, 0.477189E-02_JPRB, 0.420947E-02_JPRB, 0.368135E-02_JPRB, 0.321980E-02_JPRB &
+  &, 0.279935E-02_JPRB, 0.245355E-02_JPRB, 0.212492E-02_JPRB &
+  &, 0.184657E-02_JPRB, 0.158947E-02_JPRB, 0.138799E-02_JPRB, 0.121206E-02_JPRB &
+  &, 0.102933E-02_JPRB, 0.874267E-03_JPRB, 0.748564E-03_JPRB &
+  &, 0.653945E-03_JPRB, 0.555785E-03_JPRB, 0.454031E-03_JPRB, 0.386254E-03_JPRB &
+  &, 0.354288E-03_JPRB, 0.282223E-03_JPRB, 0.247179E-03_JPRB &
+  &, 0.210882E-03_JPRB, 0.173317E-03_JPRB, 0.134463E-03_JPRB, 0.943048E-04_JPRB &
+  &, 0.956459E-04_JPRB, 0.534995E-04_JPRB, 0.541819E-04_JPRB &
+  &, 0.548704E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 263, :) = (/ &
+  &  0.934497E+00_JPRB, 0.917584E+00_JPRB, 0.900481E+00_JPRB, 0.883199E+00_JPRB &
+  &, 0.865749E+00_JPRB, 0.848144E+00_JPRB, 0.830396E+00_JPRB &
+  &, 0.812518E+00_JPRB, 0.794524E+00_JPRB, 0.776426E+00_JPRB, 0.758238E+00_JPRB &
+  &, 0.739973E+00_JPRB, 0.721646E+00_JPRB, 0.703270E+00_JPRB &
+  &, 0.684861E+00_JPRB, 0.666434E+00_JPRB, 0.648004E+00_JPRB, 0.629585E+00_JPRB &
+  &, 0.611194E+00_JPRB, 0.592846E+00_JPRB, 0.574563E+00_JPRB &
+  &, 0.556355E+00_JPRB, 0.538241E+00_JPRB, 0.520238E+00_JPRB, 0.502363E+00_JPRB &
+  &, 0.484635E+00_JPRB, 0.467071E+00_JPRB, 0.449686E+00_JPRB &
+  &, 0.432502E+00_JPRB, 0.415531E+00_JPRB, 0.398792E+00_JPRB, 0.382302E+00_JPRB &
+  &, 0.366079E+00_JPRB, 0.350142E+00_JPRB, 0.334497E+00_JPRB &
+  &, 0.319165E+00_JPRB, 0.304165E+00_JPRB, 0.289501E+00_JPRB, 0.275190E+00_JPRB &
+  &, 0.261246E+00_JPRB, 0.247687E+00_JPRB, 0.234507E+00_JPRB &
+  &, 0.221722E+00_JPRB, 0.209347E+00_JPRB, 0.197383E+00_JPRB, 0.185832E+00_JPRB &
+  &, 0.174692E+00_JPRB, 0.163984E+00_JPRB, 0.153702E+00_JPRB &
+  &, 0.143852E+00_JPRB, 0.134422E+00_JPRB, 0.125413E+00_JPRB, 0.116821E+00_JPRB &
+  &, 0.108639E+00_JPRB, 0.100875E+00_JPRB, 0.935152E-01_JPRB &
+  &, 0.865464E-01_JPRB, 0.799651E-01_JPRB, 0.737498E-01_JPRB, 0.679245E-01_JPRB &
+  &, 0.624285E-01_JPRB, 0.572975E-01_JPRB, 0.524975E-01_JPRB &
+  &, 0.480078E-01_JPRB, 0.438226E-01_JPRB, 0.399529E-01_JPRB, 0.363316E-01_JPRB &
+  &, 0.330028E-01_JPRB, 0.299123E-01_JPRB, 0.270822E-01_JPRB &
+  &, 0.244511E-01_JPRB, 0.220589E-01_JPRB, 0.198599E-01_JPRB, 0.178259E-01_JPRB &
+  &, 0.159943E-01_JPRB, 0.143112E-01_JPRB, 0.127892E-01_JPRB &
+  &, 0.114169E-01_JPRB, 0.101562E-01_JPRB, 0.901651E-02_JPRB, 0.800703E-02_JPRB &
+  &, 0.708485E-02_JPRB, 0.625677E-02_JPRB, 0.552980E-02_JPRB &
+  &, 0.485543E-02_JPRB, 0.426622E-02_JPRB, 0.373916E-02_JPRB, 0.327869E-02_JPRB &
+  &, 0.285934E-02_JPRB, 0.251464E-02_JPRB, 0.218712E-02_JPRB &
+  &, 0.187823E-02_JPRB, 0.165394E-02_JPRB, 0.142080E-02_JPRB, 0.121206E-02_JPRB &
+  &, 0.106331E-02_JPRB, 0.908838E-03_JPRB, 0.783734E-03_JPRB &
+  &, 0.653945E-03_JPRB, 0.555785E-03_JPRB, 0.491033E-03_JPRB, 0.423880E-03_JPRB &
+  &, 0.354288E-03_JPRB, 0.282223E-03_JPRB, 0.247179E-03_JPRB &
+  &, 0.210882E-03_JPRB, 0.173317E-03_JPRB, 0.134463E-03_JPRB, 0.943048E-04_JPRB &
+  &, 0.956459E-04_JPRB, 0.534995E-04_JPRB, 0.541819E-04_JPRB &
+  &, 0.548704E-04_JPRB, 0.555648E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 264, :) = (/ &
+  &  0.934791E+00_JPRB, 0.917948E+00_JPRB, 0.900910E+00_JPRB, 0.883694E+00_JPRB &
+  &, 0.866307E+00_JPRB, 0.848763E+00_JPRB, 0.831075E+00_JPRB &
+  &, 0.813254E+00_JPRB, 0.795316E+00_JPRB, 0.777270E+00_JPRB, 0.759133E+00_JPRB &
+  &, 0.740915E+00_JPRB, 0.722634E+00_JPRB, 0.704303E+00_JPRB &
+  &, 0.685936E+00_JPRB, 0.667548E+00_JPRB, 0.649154E+00_JPRB, 0.630768E+00_JPRB &
+  &, 0.612411E+00_JPRB, 0.594096E+00_JPRB, 0.575837E+00_JPRB &
+  &, 0.557651E+00_JPRB, 0.539560E+00_JPRB, 0.521577E+00_JPRB, 0.503720E+00_JPRB &
+  &, 0.486006E+00_JPRB, 0.468453E+00_JPRB, 0.451079E+00_JPRB &
+  &, 0.433898E+00_JPRB, 0.416930E+00_JPRB, 0.400193E+00_JPRB, 0.383704E+00_JPRB &
+  &, 0.367477E+00_JPRB, 0.351531E+00_JPRB, 0.335880E+00_JPRB &
+  &, 0.320533E+00_JPRB, 0.305519E+00_JPRB, 0.290841E+00_JPRB, 0.276513E+00_JPRB &
+  &, 0.262551E+00_JPRB, 0.248972E+00_JPRB, 0.235771E+00_JPRB &
+  &, 0.222962E+00_JPRB, 0.210550E+00_JPRB, 0.198558E+00_JPRB, 0.186977E+00_JPRB &
+  &, 0.175816E+00_JPRB, 0.165073E+00_JPRB, 0.154754E+00_JPRB &
+  &, 0.144864E+00_JPRB, 0.135405E+00_JPRB, 0.126350E+00_JPRB, 0.117724E+00_JPRB &
+  &, 0.109521E+00_JPRB, 0.101718E+00_JPRB, 0.943178E-01_JPRB &
+  &, 0.873057E-01_JPRB, 0.806945E-01_JPRB, 0.744474E-01_JPRB, 0.685718E-01_JPRB &
+  &, 0.630566E-01_JPRB, 0.578877E-01_JPRB, 0.530478E-01_JPRB &
+  &, 0.485341E-01_JPRB, 0.443235E-01_JPRB, 0.404079E-01_JPRB, 0.367771E-01_JPRB &
+  &, 0.333986E-01_JPRB, 0.302964E-01_JPRB, 0.274332E-01_JPRB &
+  &, 0.247885E-01_JPRB, 0.223604E-01_JPRB, 0.201237E-01_JPRB, 0.180952E-01_JPRB &
+  &, 0.162233E-01_JPRB, 0.145215E-01_JPRB, 0.129800E-01_JPRB &
+  &, 0.115871E-01_JPRB, 0.103299E-01_JPRB, 0.916830E-02_JPRB, 0.813602E-02_JPRB &
+  &, 0.721635E-02_JPRB, 0.639082E-02_JPRB, 0.563910E-02_JPRB &
+  &, 0.496682E-02_JPRB, 0.435134E-02_JPRB, 0.382589E-02_JPRB, 0.333759E-02_JPRB &
+  &, 0.291933E-02_JPRB, 0.254518E-02_JPRB, 0.221822E-02_JPRB &
+  &, 0.194156E-02_JPRB, 0.168618E-02_JPRB, 0.145361E-02_JPRB, 0.124545E-02_JPRB &
+  &, 0.106331E-02_JPRB, 0.943409E-03_JPRB, 0.783734E-03_JPRB &
+  &, 0.689719E-03_JPRB, 0.592170E-03_JPRB, 0.491033E-03_JPRB, 0.423880E-03_JPRB &
+  &, 0.354288E-03_JPRB, 0.282223E-03_JPRB, 0.247179E-03_JPRB &
+  &, 0.210882E-03_JPRB, 0.173317E-03_JPRB, 0.134463E-03_JPRB, 0.136457E-03_JPRB &
+  &, 0.956459E-04_JPRB, 0.969989E-04_JPRB, 0.541819E-04_JPRB &
+  &, 0.548704E-04_JPRB, 0.555648E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 265, :) = (/ &
+  &  0.935083E+00_JPRB, 0.918309E+00_JPRB, 0.901339E+00_JPRB, 0.884188E+00_JPRB &
+  &, 0.866864E+00_JPRB, 0.849382E+00_JPRB, 0.831752E+00_JPRB &
+  &, 0.813989E+00_JPRB, 0.796105E+00_JPRB, 0.778113E+00_JPRB, 0.760026E+00_JPRB &
+  &, 0.741857E+00_JPRB, 0.723623E+00_JPRB, 0.705336E+00_JPRB &
+  &, 0.687010E+00_JPRB, 0.668661E+00_JPRB, 0.650305E+00_JPRB, 0.631956E+00_JPRB &
+  &, 0.613629E+00_JPRB, 0.595340E+00_JPRB, 0.577111E+00_JPRB &
+  &, 0.558951E+00_JPRB, 0.540880E+00_JPRB, 0.522917E+00_JPRB, 0.505077E+00_JPRB &
+  &, 0.487377E+00_JPRB, 0.469836E+00_JPRB, 0.452468E+00_JPRB &
+  &, 0.435293E+00_JPRB, 0.418332E+00_JPRB, 0.401597E+00_JPRB, 0.385106E+00_JPRB &
+  &, 0.368875E+00_JPRB, 0.352924E+00_JPRB, 0.337264E+00_JPRB &
+  &, 0.321909E+00_JPRB, 0.306883E+00_JPRB, 0.292190E+00_JPRB, 0.277846E+00_JPRB &
+  &, 0.263867E+00_JPRB, 0.250258E+00_JPRB, 0.237024E+00_JPRB &
+  &, 0.224192E+00_JPRB, 0.211764E+00_JPRB, 0.199745E+00_JPRB, 0.188133E+00_JPRB &
+  &, 0.176940E+00_JPRB, 0.166162E+00_JPRB, 0.155818E+00_JPRB &
+  &, 0.145888E+00_JPRB, 0.136387E+00_JPRB, 0.127301E+00_JPRB, 0.118641E+00_JPRB &
+  &, 0.110388E+00_JPRB, 0.102561E+00_JPRB, 0.951204E-01_JPRB &
+  &, 0.880806E-01_JPRB, 0.814240E-01_JPRB, 0.751451E-01_JPRB, 0.692357E-01_JPRB &
+  &, 0.636847E-01_JPRB, 0.584779E-01_JPRB, 0.536158E-01_JPRB &
+  &, 0.490603E-01_JPRB, 0.448243E-01_JPRB, 0.408629E-01_JPRB, 0.372033E-01_JPRB &
+  &, 0.338142E-01_JPRB, 0.306805E-01_JPRB, 0.277843E-01_JPRB &
+  &, 0.251049E-01_JPRB, 0.226618E-01_JPRB, 0.204095E-01_JPRB, 0.183420E-01_JPRB &
+  &, 0.164752E-01_JPRB, 0.147552E-01_JPRB, 0.131945E-01_JPRB &
+  &, 0.117817E-01_JPRB, 0.104787E-01_JPRB, 0.932010E-02_JPRB, 0.829080E-02_JPRB &
+  &, 0.734785E-02_JPRB, 0.649806E-02_JPRB, 0.572108E-02_JPRB &
+  &, 0.505036E-02_JPRB, 0.443647E-02_JPRB, 0.391261E-02_JPRB, 0.342593E-02_JPRB &
+  &, 0.297931E-02_JPRB, 0.260627E-02_JPRB, 0.228042E-02_JPRB &
+  &, 0.197323E-02_JPRB, 0.171841E-02_JPRB, 0.148642E-02_JPRB, 0.127884E-02_JPRB &
+  &, 0.109728E-02_JPRB, 0.943409E-03_JPRB, 0.818903E-03_JPRB &
+  &, 0.689719E-03_JPRB, 0.592170E-03_JPRB, 0.491033E-03_JPRB, 0.423880E-03_JPRB &
+  &, 0.354288E-03_JPRB, 0.321112E-03_JPRB, 0.247179E-03_JPRB &
+  &, 0.210882E-03_JPRB, 0.173317E-03_JPRB, 0.134463E-03_JPRB, 0.136457E-03_JPRB &
+  &, 0.956459E-04_JPRB, 0.969989E-04_JPRB, 0.541819E-04_JPRB &
+  &, 0.548704E-04_JPRB, 0.555648E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 266, :) = (/ &
+  &  0.935377E+00_JPRB, 0.918671E+00_JPRB, 0.901767E+00_JPRB, 0.884681E+00_JPRB &
+  &, 0.867421E+00_JPRB, 0.849999E+00_JPRB, 0.832429E+00_JPRB &
+  &, 0.814723E+00_JPRB, 0.796894E+00_JPRB, 0.778954E+00_JPRB, 0.760919E+00_JPRB &
+  &, 0.742798E+00_JPRB, 0.724611E+00_JPRB, 0.706368E+00_JPRB &
+  &, 0.688083E+00_JPRB, 0.669774E+00_JPRB, 0.651455E+00_JPRB, 0.633139E+00_JPRB &
+  &, 0.614846E+00_JPRB, 0.596587E+00_JPRB, 0.578382E+00_JPRB &
+  &, 0.560247E+00_JPRB, 0.542199E+00_JPRB, 0.524257E+00_JPRB, 0.506434E+00_JPRB &
+  &, 0.488749E+00_JPRB, 0.471218E+00_JPRB, 0.453861E+00_JPRB &
+  &, 0.436693E+00_JPRB, 0.419735E+00_JPRB, 0.403002E+00_JPRB, 0.386508E+00_JPRB &
+  &, 0.370273E+00_JPRB, 0.354318E+00_JPRB, 0.338647E+00_JPRB &
+  &, 0.323286E+00_JPRB, 0.308237E+00_JPRB, 0.293530E+00_JPRB, 0.279170E+00_JPRB &
+  &, 0.265173E+00_JPRB, 0.251544E+00_JPRB, 0.238299E+00_JPRB &
+  &, 0.225432E+00_JPRB, 0.212979E+00_JPRB, 0.200932E+00_JPRB, 0.189290E+00_JPRB &
+  &, 0.178064E+00_JPRB, 0.167251E+00_JPRB, 0.156870E+00_JPRB &
+  &, 0.146913E+00_JPRB, 0.137383E+00_JPRB, 0.128266E+00_JPRB, 0.119559E+00_JPRB &
+  &, 0.111284E+00_JPRB, 0.103404E+00_JPRB, 0.959229E-01_JPRB &
+  &, 0.888554E-01_JPRB, 0.821534E-01_JPRB, 0.758427E-01_JPRB, 0.698996E-01_JPRB &
+  &, 0.643128E-01_JPRB, 0.590855E-01_JPRB, 0.541660E-01_JPRB &
+  &, 0.495866E-01_JPRB, 0.453066E-01_JPRB, 0.413368E-01_JPRB, 0.376488E-01_JPRB &
+  &, 0.342101E-01_JPRB, 0.310445E-01_JPRB, 0.281353E-01_JPRB &
+  &, 0.254423E-01_JPRB, 0.229633E-01_JPRB, 0.206952E-01_JPRB, 0.186112E-01_JPRB &
+  &, 0.167042E-01_JPRB, 0.149655E-01_JPRB, 0.133853E-01_JPRB &
+  &, 0.119519E-01_JPRB, 0.106524E-01_JPRB, 0.947189E-02_JPRB, 0.841978E-02_JPRB &
+  &, 0.745305E-02_JPRB, 0.660530E-02_JPRB, 0.583038E-02_JPRB &
+  &, 0.513390E-02_JPRB, 0.452159E-02_JPRB, 0.397043E-02_JPRB, 0.348482E-02_JPRB &
+  &, 0.303930E-02_JPRB, 0.266736E-02_JPRB, 0.231153E-02_JPRB &
+  &, 0.200489E-02_JPRB, 0.175065E-02_JPRB, 0.151923E-02_JPRB, 0.131223E-02_JPRB &
+  &, 0.113126E-02_JPRB, 0.977979E-03_JPRB, 0.854073E-03_JPRB &
+  &, 0.725494E-03_JPRB, 0.628556E-03_JPRB, 0.528036E-03_JPRB, 0.461505E-03_JPRB &
+  &, 0.392543E-03_JPRB, 0.321112E-03_JPRB, 0.247179E-03_JPRB &
+  &, 0.210882E-03_JPRB, 0.173317E-03_JPRB, 0.134463E-03_JPRB, 0.136457E-03_JPRB &
+  &, 0.956459E-04_JPRB, 0.969989E-04_JPRB, 0.541819E-04_JPRB &
+  &, 0.548704E-04_JPRB, 0.555648E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART38',1,ZHOOK_HANDLE)
+END SUBROUTINE PART38
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART39
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART39',0,ZHOOK_HANDLE)
+
+XCW( 267, :) = (/ &
+  &  0.935668E+00_JPRB, 0.919031E+00_JPRB, 0.902194E+00_JPRB, 0.885173E+00_JPRB &
+  &, 0.867976E+00_JPRB, 0.850616E+00_JPRB, 0.833105E+00_JPRB &
+  &, 0.815456E+00_JPRB, 0.797682E+00_JPRB, 0.779795E+00_JPRB, 0.761810E+00_JPRB &
+  &, 0.743739E+00_JPRB, 0.725598E+00_JPRB, 0.707398E+00_JPRB &
+  &, 0.689156E+00_JPRB, 0.670886E+00_JPRB, 0.652604E+00_JPRB, 0.634323E+00_JPRB &
+  &, 0.616059E+00_JPRB, 0.597833E+00_JPRB, 0.579657E+00_JPRB &
+  &, 0.561547E+00_JPRB, 0.543522E+00_JPRB, 0.525596E+00_JPRB, 0.507788E+00_JPRB &
+  &, 0.490116E+00_JPRB, 0.472600E+00_JPRB, 0.455250E+00_JPRB &
+  &, 0.438093E+00_JPRB, 0.421137E+00_JPRB, 0.404406E+00_JPRB, 0.387914E+00_JPRB &
+  &, 0.371676E+00_JPRB, 0.355712E+00_JPRB, 0.340035E+00_JPRB &
+  &, 0.324662E+00_JPRB, 0.309601E+00_JPRB, 0.294879E+00_JPRB, 0.280503E+00_JPRB &
+  &, 0.266488E+00_JPRB, 0.252829E+00_JPRB, 0.239563E+00_JPRB &
+  &, 0.226684E+00_JPRB, 0.214194E+00_JPRB, 0.202118E+00_JPRB, 0.190447E+00_JPRB &
+  &, 0.179189E+00_JPRB, 0.168353E+00_JPRB, 0.157935E+00_JPRB &
+  &, 0.147938E+00_JPRB, 0.138366E+00_JPRB, 0.129217E+00_JPRB, 0.120490E+00_JPRB &
+  &, 0.112165E+00_JPRB, 0.104248E+00_JPRB, 0.967406E-01_JPRB &
+  &, 0.896303E-01_JPRB, 0.828988E-01_JPRB, 0.765566E-01_JPRB, 0.705800E-01_JPRB &
+  &, 0.649579E-01_JPRB, 0.596758E-01_JPRB, 0.547340E-01_JPRB &
+  &, 0.501128E-01_JPRB, 0.458074E-01_JPRB, 0.418107E-01_JPRB, 0.380750E-01_JPRB &
+  &, 0.346257E-01_JPRB, 0.314286E-01_JPRB, 0.284864E-01_JPRB &
+  &, 0.257586E-01_JPRB, 0.232647E-01_JPRB, 0.209810E-01_JPRB, 0.188581E-01_JPRB &
+  &, 0.169561E-01_JPRB, 0.151992E-01_JPRB, 0.135999E-01_JPRB &
+  &, 0.121465E-01_JPRB, 0.108260E-01_JPRB, 0.964899E-02_JPRB, 0.857456E-02_JPRB &
+  &, 0.758456E-02_JPRB, 0.671254E-02_JPRB, 0.593969E-02_JPRB &
+  &, 0.524529E-02_JPRB, 0.460671E-02_JPRB, 0.405715E-02_JPRB, 0.354372E-02_JPRB &
+  &, 0.309928E-02_JPRB, 0.272845E-02_JPRB, 0.237373E-02_JPRB &
+  &, 0.206822E-02_JPRB, 0.178288E-02_JPRB, 0.155204E-02_JPRB, 0.134562E-02_JPRB &
+  &, 0.116524E-02_JPRB, 0.101255E-02_JPRB, 0.854073E-03_JPRB &
+  &, 0.725494E-03_JPRB, 0.628556E-03_JPRB, 0.528036E-03_JPRB, 0.461505E-03_JPRB &
+  &, 0.392543E-03_JPRB, 0.321112E-03_JPRB, 0.286708E-03_JPRB &
+  &, 0.210882E-03_JPRB, 0.173317E-03_JPRB, 0.175951E-03_JPRB, 0.136457E-03_JPRB &
+  &, 0.956459E-04_JPRB, 0.969989E-04_JPRB, 0.541819E-04_JPRB &
+  &, 0.548704E-04_JPRB, 0.555648E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 268, :) = (/ &
+  &  0.935958E+00_JPRB, 0.919391E+00_JPRB, 0.902622E+00_JPRB, 0.885665E+00_JPRB &
+  &, 0.868530E+00_JPRB, 0.851232E+00_JPRB, 0.833780E+00_JPRB &
+  &, 0.816188E+00_JPRB, 0.798469E+00_JPRB, 0.780635E+00_JPRB, 0.762701E+00_JPRB &
+  &, 0.744679E+00_JPRB, 0.726582E+00_JPRB, 0.708428E+00_JPRB &
+  &, 0.690228E+00_JPRB, 0.671997E+00_JPRB, 0.653751E+00_JPRB, 0.635505E+00_JPRB &
+  &, 0.617276E+00_JPRB, 0.599077E+00_JPRB, 0.580928E+00_JPRB &
+  &, 0.562843E+00_JPRB, 0.544837E+00_JPRB, 0.526932E+00_JPRB, 0.509145E+00_JPRB &
+  &, 0.491488E+00_JPRB, 0.473982E+00_JPRB, 0.456643E+00_JPRB &
+  &, 0.439493E+00_JPRB, 0.422539E+00_JPRB, 0.405811E+00_JPRB, 0.389316E+00_JPRB &
+  &, 0.373078E+00_JPRB, 0.357105E+00_JPRB, 0.341423E+00_JPRB &
+  &, 0.326039E+00_JPRB, 0.310965E+00_JPRB, 0.296229E+00_JPRB, 0.281837E+00_JPRB &
+  &, 0.267794E+00_JPRB, 0.254126E+00_JPRB, 0.240827E+00_JPRB &
+  &, 0.227924E+00_JPRB, 0.215408E+00_JPRB, 0.203305E+00_JPRB, 0.191603E+00_JPRB &
+  &, 0.180325E+00_JPRB, 0.169455E+00_JPRB, 0.159000E+00_JPRB &
+  &, 0.148976E+00_JPRB, 0.139375E+00_JPRB, 0.130182E+00_JPRB, 0.121408E+00_JPRB &
+  &, 0.113061E+00_JPRB, 0.105106E+00_JPRB, 0.975583E-01_JPRB &
+  &, 0.904052E-01_JPRB, 0.836441E-01_JPRB, 0.772705E-01_JPRB, 0.712439E-01_JPRB &
+  &, 0.655859E-01_JPRB, 0.602834E-01_JPRB, 0.553020E-01_JPRB &
+  &, 0.506572E-01_JPRB, 0.463267E-01_JPRB, 0.422847E-01_JPRB, 0.385205E-01_JPRB &
+  &, 0.350413E-01_JPRB, 0.318330E-01_JPRB, 0.288374E-01_JPRB &
+  &, 0.260960E-01_JPRB, 0.235877E-01_JPRB, 0.212668E-01_JPRB, 0.191273E-01_JPRB &
+  &, 0.171851E-01_JPRB, 0.154095E-01_JPRB, 0.137906E-01_JPRB &
+  &, 0.123411E-01_JPRB, 0.109997E-01_JPRB, 0.980078E-02_JPRB, 0.870355E-02_JPRB &
+  &, 0.771606E-02_JPRB, 0.684659E-02_JPRB, 0.604899E-02_JPRB &
+  &, 0.532883E-02_JPRB, 0.469184E-02_JPRB, 0.414388E-02_JPRB, 0.363206E-02_JPRB &
+  &, 0.315927E-02_JPRB, 0.275900E-02_JPRB, 0.240483E-02_JPRB &
+  &, 0.209989E-02_JPRB, 0.181511E-02_JPRB, 0.158485E-02_JPRB, 0.137901E-02_JPRB &
+  &, 0.119922E-02_JPRB, 0.101255E-02_JPRB, 0.889243E-03_JPRB &
+  &, 0.761269E-03_JPRB, 0.628556E-03_JPRB, 0.565038E-03_JPRB, 0.461505E-03_JPRB &
+  &, 0.392543E-03_JPRB, 0.321112E-03_JPRB, 0.286708E-03_JPRB &
+  &, 0.251059E-03_JPRB, 0.214146E-03_JPRB, 0.175951E-03_JPRB, 0.136457E-03_JPRB &
+  &, 0.956459E-04_JPRB, 0.969989E-04_JPRB, 0.541819E-04_JPRB &
+  &, 0.548704E-04_JPRB, 0.555648E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 269, :) = (/ &
+  &  0.936250E+00_JPRB, 0.919751E+00_JPRB, 0.903048E+00_JPRB, 0.886156E+00_JPRB &
+  &, 0.869084E+00_JPRB, 0.851847E+00_JPRB, 0.834444E+00_JPRB &
+  &, 0.816919E+00_JPRB, 0.799255E+00_JPRB, 0.781474E+00_JPRB, 0.763591E+00_JPRB &
+  &, 0.745617E+00_JPRB, 0.727567E+00_JPRB, 0.709457E+00_JPRB &
+  &, 0.691299E+00_JPRB, 0.673107E+00_JPRB, 0.654899E+00_JPRB, 0.636688E+00_JPRB &
+  &, 0.618490E+00_JPRB, 0.600321E+00_JPRB, 0.582199E+00_JPRB &
+  &, 0.564140E+00_JPRB, 0.546157E+00_JPRB, 0.528272E+00_JPRB, 0.510502E+00_JPRB &
+  &, 0.492859E+00_JPRB, 0.475364E+00_JPRB, 0.458036E+00_JPRB &
+  &, 0.440893E+00_JPRB, 0.423946E+00_JPRB, 0.407215E+00_JPRB, 0.390721E+00_JPRB &
+  &, 0.374481E+00_JPRB, 0.358503E+00_JPRB, 0.342811E+00_JPRB &
+  &, 0.327416E+00_JPRB, 0.312338E+00_JPRB, 0.297588E+00_JPRB, 0.283170E+00_JPRB &
+  &, 0.269120E+00_JPRB, 0.255422E+00_JPRB, 0.242102E+00_JPRB &
+  &, 0.229175E+00_JPRB, 0.216634E+00_JPRB, 0.204504E+00_JPRB, 0.192772E+00_JPRB &
+  &, 0.181449E+00_JPRB, 0.170557E+00_JPRB, 0.160077E+00_JPRB &
+  &, 0.150014E+00_JPRB, 0.140371E+00_JPRB, 0.131147E+00_JPRB, 0.122339E+00_JPRB &
+  &, 0.113943E+00_JPRB, 0.105964E+00_JPRB, 0.983760E-01_JPRB &
+  &, 0.911955E-01_JPRB, 0.843894E-01_JPRB, 0.779681E-01_JPRB, 0.719244E-01_JPRB &
+  &, 0.662310E-01_JPRB, 0.608910E-01_JPRB, 0.558878E-01_JPRB &
+  &, 0.512016E-01_JPRB, 0.468276E-01_JPRB, 0.427586E-01_JPRB, 0.389855E-01_JPRB &
+  &, 0.354570E-01_JPRB, 0.322171E-01_JPRB, 0.292091E-01_JPRB &
+  &, 0.264334E-01_JPRB, 0.238892E-01_JPRB, 0.215525E-01_JPRB, 0.193966E-01_JPRB &
+  &, 0.174370E-01_JPRB, 0.156432E-01_JPRB, 0.140052E-01_JPRB &
+  &, 0.125357E-01_JPRB, 0.111733E-01_JPRB, 0.995258E-02_JPRB, 0.885833E-02_JPRB &
+  &, 0.784756E-02_JPRB, 0.695383E-02_JPRB, 0.615829E-02_JPRB &
+  &, 0.544022E-02_JPRB, 0.477696E-02_JPRB, 0.420170E-02_JPRB, 0.369096E-02_JPRB &
+  &, 0.324925E-02_JPRB, 0.282008E-02_JPRB, 0.246703E-02_JPRB &
+  &, 0.216322E-02_JPRB, 0.187958E-02_JPRB, 0.161766E-02_JPRB, 0.141240E-02_JPRB &
+  &, 0.119922E-02_JPRB, 0.104712E-02_JPRB, 0.889243E-03_JPRB &
+  &, 0.761269E-03_JPRB, 0.664942E-03_JPRB, 0.565038E-03_JPRB, 0.499131E-03_JPRB &
+  &, 0.392543E-03_JPRB, 0.360001E-03_JPRB, 0.286708E-03_JPRB &
+  &, 0.251059E-03_JPRB, 0.214146E-03_JPRB, 0.175951E-03_JPRB, 0.136457E-03_JPRB &
+  &, 0.956459E-04_JPRB, 0.969989E-04_JPRB, 0.541819E-04_JPRB &
+  &, 0.548704E-04_JPRB, 0.555648E-04_JPRB, 0.562651E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 270, :) = (/ &
+  &  0.936540E+00_JPRB, 0.920109E+00_JPRB, 0.903473E+00_JPRB, 0.886646E+00_JPRB &
+  &, 0.869638E+00_JPRB, 0.852461E+00_JPRB, 0.835127E+00_JPRB &
+  &, 0.817649E+00_JPRB, 0.800040E+00_JPRB, 0.782312E+00_JPRB, 0.764480E+00_JPRB &
+  &, 0.746554E+00_JPRB, 0.728552E+00_JPRB, 0.710484E+00_JPRB &
+  &, 0.692368E+00_JPRB, 0.674216E+00_JPRB, 0.656045E+00_JPRB, 0.637868E+00_JPRB &
+  &, 0.619704E+00_JPRB, 0.601564E+00_JPRB, 0.583470E+00_JPRB &
+  &, 0.565436E+00_JPRB, 0.547476E+00_JPRB, 0.529612E+00_JPRB, 0.511859E+00_JPRB &
+  &, 0.494230E+00_JPRB, 0.476750E+00_JPRB, 0.459429E+00_JPRB &
+  &, 0.442293E+00_JPRB, 0.425352E+00_JPRB, 0.408624E+00_JPRB, 0.392132E+00_JPRB &
+  &, 0.375883E+00_JPRB, 0.359901E+00_JPRB, 0.344204E+00_JPRB &
+  &, 0.328802E+00_JPRB, 0.313702E+00_JPRB, 0.298937E+00_JPRB, 0.284513E+00_JPRB &
+  &, 0.270435E+00_JPRB, 0.256718E+00_JPRB, 0.243377E+00_JPRB &
+  &, 0.230427E+00_JPRB, 0.217860E+00_JPRB, 0.205702E+00_JPRB, 0.193940E+00_JPRB &
+  &, 0.182598E+00_JPRB, 0.171658E+00_JPRB, 0.161142E+00_JPRB &
+  &, 0.151052E+00_JPRB, 0.141380E+00_JPRB, 0.132125E+00_JPRB, 0.123271E+00_JPRB &
+  &, 0.114853E+00_JPRB, 0.106822E+00_JPRB, 0.992088E-01_JPRB &
+  &, 0.919859E-01_JPRB, 0.851506E-01_JPRB, 0.786982E-01_JPRB, 0.726049E-01_JPRB &
+  &, 0.668761E-01_JPRB, 0.614986E-01_JPRB, 0.564558E-01_JPRB &
+  &, 0.517460E-01_JPRB, 0.473469E-01_JPRB, 0.432515E-01_JPRB, 0.394310E-01_JPRB &
+  &, 0.358924E-01_JPRB, 0.326012E-01_JPRB, 0.295808E-01_JPRB &
+  &, 0.267919E-01_JPRB, 0.242122E-01_JPRB, 0.218383E-01_JPRB, 0.196658E-01_JPRB &
+  &, 0.176889E-01_JPRB, 0.158769E-01_JPRB, 0.142197E-01_JPRB &
+  &, 0.127302E-01_JPRB, 0.113470E-01_JPRB, 0.101297E-01_JPRB, 0.898731E-02_JPRB &
+  &, 0.797906E-02_JPRB, 0.708788E-02_JPRB, 0.626759E-02_JPRB &
+  &, 0.552376E-02_JPRB, 0.486209E-02_JPRB, 0.428842E-02_JPRB, 0.377930E-02_JPRB &
+  &, 0.330924E-02_JPRB, 0.288117E-02_JPRB, 0.252924E-02_JPRB &
+  &, 0.219488E-02_JPRB, 0.191182E-02_JPRB, 0.165047E-02_JPRB, 0.144579E-02_JPRB &
+  &, 0.123319E-02_JPRB, 0.108169E-02_JPRB, 0.924413E-03_JPRB &
+  &, 0.797043E-03_JPRB, 0.664942E-03_JPRB, 0.565038E-03_JPRB, 0.499131E-03_JPRB &
+  &, 0.430797E-03_JPRB, 0.360001E-03_JPRB, 0.286708E-03_JPRB &
+  &, 0.251059E-03_JPRB, 0.214146E-03_JPRB, 0.175951E-03_JPRB, 0.136457E-03_JPRB &
+  &, 0.138469E-03_JPRB, 0.969989E-04_JPRB, 0.983639E-04_JPRB &
+  &, 0.548704E-04_JPRB, 0.555648E-04_JPRB, 0.562651E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 271, :) = (/ &
+  &  0.936830E+00_JPRB, 0.920468E+00_JPRB, 0.903898E+00_JPRB, 0.887136E+00_JPRB &
+  &, 0.870190E+00_JPRB, 0.853074E+00_JPRB, 0.835799E+00_JPRB &
+  &, 0.818378E+00_JPRB, 0.800824E+00_JPRB, 0.783149E+00_JPRB, 0.765367E+00_JPRB &
+  &, 0.747491E+00_JPRB, 0.729533E+00_JPRB, 0.711512E+00_JPRB &
+  &, 0.693436E+00_JPRB, 0.675325E+00_JPRB, 0.657190E+00_JPRB, 0.639050E+00_JPRB &
+  &, 0.620917E+00_JPRB, 0.602808E+00_JPRB, 0.584741E+00_JPRB &
+  &, 0.566732E+00_JPRB, 0.548795E+00_JPRB, 0.530951E+00_JPRB, 0.513212E+00_JPRB &
+  &, 0.495601E+00_JPRB, 0.478132E+00_JPRB, 0.460822E+00_JPRB &
+  &, 0.443692E+00_JPRB, 0.426755E+00_JPRB, 0.410032E+00_JPRB, 0.393538E+00_JPRB &
+  &, 0.377290E+00_JPRB, 0.361304E+00_JPRB, 0.345596E+00_JPRB &
+  &, 0.330178E+00_JPRB, 0.315075E+00_JPRB, 0.300296E+00_JPRB, 0.285847E+00_JPRB &
+  &, 0.271751E+00_JPRB, 0.258025E+00_JPRB, 0.244662E+00_JPRB &
+  &, 0.231678E+00_JPRB, 0.219086E+00_JPRB, 0.206900E+00_JPRB, 0.195109E+00_JPRB &
+  &, 0.183734E+00_JPRB, 0.172773E+00_JPRB, 0.162219E+00_JPRB &
+  &, 0.152090E+00_JPRB, 0.142390E+00_JPRB, 0.133090E+00_JPRB, 0.124216E+00_JPRB &
+  &, 0.115749E+00_JPRB, 0.107695E+00_JPRB, 0.100042E+00_JPRB &
+  &, 0.927762E-01_JPRB, 0.859117E-01_JPRB, 0.794121E-01_JPRB, 0.732853E-01_JPRB &
+  &, 0.675381E-01_JPRB, 0.621235E-01_JPRB, 0.570416E-01_JPRB &
+  &, 0.522904E-01_JPRB, 0.478663E-01_JPRB, 0.437254E-01_JPRB, 0.398765E-01_JPRB &
+  &, 0.363080E-01_JPRB, 0.330056E-01_JPRB, 0.299525E-01_JPRB &
+  &, 0.271293E-01_JPRB, 0.245351E-01_JPRB, 0.221461E-01_JPRB, 0.199575E-01_JPRB &
+  &, 0.179408E-01_JPRB, 0.161105E-01_JPRB, 0.144343E-01_JPRB &
+  &, 0.129248E-01_JPRB, 0.115207E-01_JPRB, 0.102815E-01_JPRB, 0.914210E-02_JPRB &
+  &, 0.813687E-02_JPRB, 0.719512E-02_JPRB, 0.637690E-02_JPRB &
+  &, 0.563515E-02_JPRB, 0.497559E-02_JPRB, 0.437514E-02_JPRB, 0.383820E-02_JPRB &
+  &, 0.336922E-02_JPRB, 0.294226E-02_JPRB, 0.256034E-02_JPRB &
+  &, 0.225821E-02_JPRB, 0.194405E-02_JPRB, 0.168328E-02_JPRB, 0.147918E-02_JPRB &
+  &, 0.126717E-02_JPRB, 0.108169E-02_JPRB, 0.959582E-03_JPRB &
+  &, 0.797043E-03_JPRB, 0.701327E-03_JPRB, 0.602041E-03_JPRB, 0.499131E-03_JPRB &
+  &, 0.430797E-03_JPRB, 0.360001E-03_JPRB, 0.326238E-03_JPRB &
+  &, 0.251059E-03_JPRB, 0.214146E-03_JPRB, 0.175951E-03_JPRB, 0.136457E-03_JPRB &
+  &, 0.138469E-03_JPRB, 0.969989E-04_JPRB, 0.983639E-04_JPRB &
+  &, 0.548704E-04_JPRB, 0.555648E-04_JPRB, 0.562651E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 272, :) = (/ &
+  &  0.937120E+00_JPRB, 0.920826E+00_JPRB, 0.904322E+00_JPRB, 0.887624E+00_JPRB &
+  &, 0.870741E+00_JPRB, 0.853686E+00_JPRB, 0.836471E+00_JPRB &
+  &, 0.819107E+00_JPRB, 0.801607E+00_JPRB, 0.783985E+00_JPRB, 0.766254E+00_JPRB &
+  &, 0.748426E+00_JPRB, 0.730515E+00_JPRB, 0.712538E+00_JPRB &
+  &, 0.694504E+00_JPRB, 0.676432E+00_JPRB, 0.658335E+00_JPRB, 0.640230E+00_JPRB &
+  &, 0.622130E+00_JPRB, 0.604051E+00_JPRB, 0.586012E+00_JPRB &
+  &, 0.568025E+00_JPRB, 0.550115E+00_JPRB, 0.532287E+00_JPRB, 0.514569E+00_JPRB &
+  &, 0.496973E+00_JPRB, 0.479518E+00_JPRB, 0.462218E+00_JPRB &
+  &, 0.445092E+00_JPRB, 0.428161E+00_JPRB, 0.411441E+00_JPRB, 0.394948E+00_JPRB &
+  &, 0.378697E+00_JPRB, 0.362706E+00_JPRB, 0.346989E+00_JPRB &
+  &, 0.331564E+00_JPRB, 0.316448E+00_JPRB, 0.301656E+00_JPRB, 0.287190E+00_JPRB &
+  &, 0.273077E+00_JPRB, 0.259321E+00_JPRB, 0.245937E+00_JPRB &
+  &, 0.232941E+00_JPRB, 0.220324E+00_JPRB, 0.208099E+00_JPRB, 0.196289E+00_JPRB &
+  &, 0.184883E+00_JPRB, 0.173887E+00_JPRB, 0.163309E+00_JPRB &
+  &, 0.153142E+00_JPRB, 0.143399E+00_JPRB, 0.134069E+00_JPRB, 0.125162E+00_JPRB &
+  &, 0.116660E+00_JPRB, 0.108567E+00_JPRB, 0.100875E+00_JPRB &
+  &, 0.935821E-01_JPRB, 0.866729E-01_JPRB, 0.801422E-01_JPRB, 0.739824E-01_JPRB &
+  &, 0.681832E-01_JPRB, 0.627311E-01_JPRB, 0.576273E-01_JPRB &
+  &, 0.528530E-01_JPRB, 0.483857E-01_JPRB, 0.442183E-01_JPRB, 0.403415E-01_JPRB &
+  &, 0.367434E-01_JPRB, 0.334100E-01_JPRB, 0.303242E-01_JPRB &
+  &, 0.274667E-01_JPRB, 0.248581E-01_JPRB, 0.224318E-01_JPRB, 0.202268E-01_JPRB &
+  &, 0.181927E-01_JPRB, 0.163442E-01_JPRB, 0.146489E-01_JPRB &
+  &, 0.131194E-01_JPRB, 0.117191E-01_JPRB, 0.104586E-01_JPRB, 0.929688E-02_JPRB &
+  &, 0.826837E-02_JPRB, 0.732917E-02_JPRB, 0.648620E-02_JPRB &
+  &, 0.574654E-02_JPRB, 0.506071E-02_JPRB, 0.446187E-02_JPRB, 0.392654E-02_JPRB &
+  &, 0.342921E-02_JPRB, 0.300335E-02_JPRB, 0.262254E-02_JPRB &
+  &, 0.228988E-02_JPRB, 0.200852E-02_JPRB, 0.174890E-02_JPRB, 0.151257E-02_JPRB &
+  &, 0.130115E-02_JPRB, 0.111626E-02_JPRB, 0.959582E-03_JPRB &
+  &, 0.832818E-03_JPRB, 0.701327E-03_JPRB, 0.602041E-03_JPRB, 0.536756E-03_JPRB &
+  &, 0.430797E-03_JPRB, 0.360001E-03_JPRB, 0.326238E-03_JPRB &
+  &, 0.251059E-03_JPRB, 0.214146E-03_JPRB, 0.175951E-03_JPRB, 0.136457E-03_JPRB &
+  &, 0.138469E-03_JPRB, 0.969989E-04_JPRB, 0.983639E-04_JPRB &
+  &, 0.548704E-04_JPRB, 0.555648E-04_JPRB, 0.562651E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 273, :) = (/ &
+  &  0.937410E+00_JPRB, 0.921182E+00_JPRB, 0.904746E+00_JPRB, 0.888113E+00_JPRB &
+  &, 0.871292E+00_JPRB, 0.854298E+00_JPRB, 0.837141E+00_JPRB &
+  &, 0.819834E+00_JPRB, 0.802389E+00_JPRB, 0.784820E+00_JPRB, 0.767140E+00_JPRB &
+  &, 0.749361E+00_JPRB, 0.731497E+00_JPRB, 0.713562E+00_JPRB &
+  &, 0.695572E+00_JPRB, 0.677540E+00_JPRB, 0.659479E+00_JPRB, 0.641408E+00_JPRB &
+  &, 0.623341E+00_JPRB, 0.605292E+00_JPRB, 0.587280E+00_JPRB &
+  &, 0.569322E+00_JPRB, 0.551431E+00_JPRB, 0.533627E+00_JPRB, 0.515926E+00_JPRB &
+  &, 0.498344E+00_JPRB, 0.480900E+00_JPRB, 0.463611E+00_JPRB &
+  &, 0.446496E+00_JPRB, 0.429572E+00_JPRB, 0.412850E+00_JPRB, 0.396358E+00_JPRB &
+  &, 0.380104E+00_JPRB, 0.364109E+00_JPRB, 0.348386E+00_JPRB &
+  &, 0.332950E+00_JPRB, 0.317822E+00_JPRB, 0.303015E+00_JPRB, 0.288534E+00_JPRB &
+  &, 0.274403E+00_JPRB, 0.260628E+00_JPRB, 0.247223E+00_JPRB &
+  &, 0.234192E+00_JPRB, 0.221550E+00_JPRB, 0.209309E+00_JPRB, 0.197470E+00_JPRB &
+  &, 0.186031E+00_JPRB, 0.175001E+00_JPRB, 0.164387E+00_JPRB &
+  &, 0.154193E+00_JPRB, 0.144409E+00_JPRB, 0.135048E+00_JPRB, 0.126108E+00_JPRB &
+  &, 0.117570E+00_JPRB, 0.109440E+00_JPRB, 0.101707E+00_JPRB &
+  &, 0.943724E-01_JPRB, 0.874341E-01_JPRB, 0.808723E-01_JPRB, 0.746795E-01_JPRB &
+  &, 0.688452E-01_JPRB, 0.633561E-01_JPRB, 0.582131E-01_JPRB &
+  &, 0.533974E-01_JPRB, 0.489050E-01_JPRB, 0.447112E-01_JPRB, 0.408064E-01_JPRB &
+  &, 0.371788E-01_JPRB, 0.338143E-01_JPRB, 0.306959E-01_JPRB &
+  &, 0.278252E-01_JPRB, 0.251811E-01_JPRB, 0.227396E-01_JPRB, 0.204960E-01_JPRB &
+  &, 0.184446E-01_JPRB, 0.165779E-01_JPRB, 0.148635E-01_JPRB &
+  &, 0.133140E-01_JPRB, 0.118928E-01_JPRB, 0.106104E-01_JPRB, 0.945166E-02_JPRB &
+  &, 0.839987E-02_JPRB, 0.746322E-02_JPRB, 0.659550E-02_JPRB &
+  &, 0.583008E-02_JPRB, 0.514584E-02_JPRB, 0.454859E-02_JPRB, 0.398543E-02_JPRB &
+  &, 0.348919E-02_JPRB, 0.306444E-02_JPRB, 0.268475E-02_JPRB &
+  &, 0.235321E-02_JPRB, 0.204075E-02_JPRB, 0.178171E-02_JPRB, 0.154596E-02_JPRB &
+  &, 0.133513E-02_JPRB, 0.115083E-02_JPRB, 0.994752E-03_JPRB &
+  &, 0.868593E-03_JPRB, 0.737713E-03_JPRB, 0.639043E-03_JPRB, 0.536756E-03_JPRB &
+  &, 0.469051E-03_JPRB, 0.398890E-03_JPRB, 0.326238E-03_JPRB &
+  &, 0.291235E-03_JPRB, 0.214146E-03_JPRB, 0.175951E-03_JPRB, 0.178610E-03_JPRB &
+  &, 0.138469E-03_JPRB, 0.969989E-04_JPRB, 0.983639E-04_JPRB &
+  &, 0.548704E-04_JPRB, 0.555648E-04_JPRB, 0.562651E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART39',1,ZHOOK_HANDLE)
+END SUBROUTINE PART39
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART40
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART40',0,ZHOOK_HANDLE)
+
+XCW( 274, :) = (/ &
+  &  0.937697E+00_JPRB, 0.921540E+00_JPRB, 0.905169E+00_JPRB, 0.888600E+00_JPRB &
+  &, 0.871842E+00_JPRB, 0.854908E+00_JPRB, 0.837811E+00_JPRB &
+  &, 0.820561E+00_JPRB, 0.803171E+00_JPRB, 0.785655E+00_JPRB, 0.768024E+00_JPRB &
+  &, 0.750295E+00_JPRB, 0.732476E+00_JPRB, 0.714587E+00_JPRB &
+  &, 0.696639E+00_JPRB, 0.678646E+00_JPRB, 0.660624E+00_JPRB, 0.642587E+00_JPRB &
+  &, 0.624552E+00_JPRB, 0.606535E+00_JPRB, 0.588551E+00_JPRB &
+  &, 0.570618E+00_JPRB, 0.552750E+00_JPRB, 0.534967E+00_JPRB, 0.517283E+00_JPRB &
+  &, 0.499715E+00_JPRB, 0.482285E+00_JPRB, 0.465008E+00_JPRB &
+  &, 0.447900E+00_JPRB, 0.430978E+00_JPRB, 0.414262E+00_JPRB, 0.397768E+00_JPRB &
+  &, 0.381510E+00_JPRB, 0.365511E+00_JPRB, 0.349783E+00_JPRB &
+  &, 0.334336E+00_JPRB, 0.319205E+00_JPRB, 0.304374E+00_JPRB, 0.289887E+00_JPRB &
+  &, 0.275739E+00_JPRB, 0.261934E+00_JPRB, 0.248508E+00_JPRB &
+  &, 0.235455E+00_JPRB, 0.222787E+00_JPRB, 0.210519E+00_JPRB, 0.198650E+00_JPRB &
+  &, 0.187180E+00_JPRB, 0.176116E+00_JPRB, 0.165477E+00_JPRB &
+  &, 0.155244E+00_JPRB, 0.145431E+00_JPRB, 0.136040E+00_JPRB, 0.127053E+00_JPRB &
+  &, 0.118480E+00_JPRB, 0.110313E+00_JPRB, 0.102555E+00_JPRB &
+  &, 0.951783E-01_JPRB, 0.882111E-01_JPRB, 0.816024E-01_JPRB, 0.753765E-01_JPRB &
+  &, 0.695073E-01_JPRB, 0.639984E-01_JPRB, 0.588166E-01_JPRB &
+  &, 0.539599E-01_JPRB, 0.494430E-01_JPRB, 0.452041E-01_JPRB, 0.412713E-01_JPRB &
+  &, 0.376143E-01_JPRB, 0.342187E-01_JPRB, 0.310883E-01_JPRB &
+  &, 0.281837E-01_JPRB, 0.255041E-01_JPRB, 0.230473E-01_JPRB, 0.207877E-01_JPRB &
+  &, 0.187194E-01_JPRB, 0.168116E-01_JPRB, 0.151019E-01_JPRB &
+  &, 0.135085E-01_JPRB, 0.120912E-01_JPRB, 0.107875E-01_JPRB, 0.960644E-02_JPRB &
+  &, 0.853137E-02_JPRB, 0.757047E-02_JPRB, 0.673213E-02_JPRB &
+  &, 0.594147E-02_JPRB, 0.525934E-02_JPRB, 0.463532E-02_JPRB, 0.407378E-02_JPRB &
+  &, 0.357917E-02_JPRB, 0.312553E-02_JPRB, 0.274695E-02_JPRB &
+  &, 0.238487E-02_JPRB, 0.207299E-02_JPRB, 0.181452E-02_JPRB, 0.157935E-02_JPRB &
+  &, 0.136910E-02_JPRB, 0.118540E-02_JPRB, 0.102992E-02_JPRB &
+  &, 0.868593E-03_JPRB, 0.737713E-03_JPRB, 0.639043E-03_JPRB, 0.536756E-03_JPRB &
+  &, 0.469051E-03_JPRB, 0.398890E-03_JPRB, 0.326238E-03_JPRB &
+  &, 0.291235E-03_JPRB, 0.254975E-03_JPRB, 0.217439E-03_JPRB, 0.178610E-03_JPRB &
+  &, 0.138469E-03_JPRB, 0.969989E-04_JPRB, 0.983639E-04_JPRB &
+  &, 0.548704E-04_JPRB, 0.555648E-04_JPRB, 0.562651E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 275, :) = (/ &
+  &  0.937985E+00_JPRB, 0.921896E+00_JPRB, 0.905591E+00_JPRB, 0.889087E+00_JPRB &
+  &, 0.872391E+00_JPRB, 0.855519E+00_JPRB, 0.838479E+00_JPRB &
+  &, 0.821286E+00_JPRB, 0.803951E+00_JPRB, 0.786488E+00_JPRB, 0.768909E+00_JPRB &
+  &, 0.751226E+00_JPRB, 0.733456E+00_JPRB, 0.715610E+00_JPRB &
+  &, 0.697704E+00_JPRB, 0.679750E+00_JPRB, 0.661767E+00_JPRB, 0.643765E+00_JPRB &
+  &, 0.625763E+00_JPRB, 0.607776E+00_JPRB, 0.589819E+00_JPRB &
+  &, 0.571911E+00_JPRB, 0.554066E+00_JPRB, 0.536303E+00_JPRB, 0.518637E+00_JPRB &
+  &, 0.501087E+00_JPRB, 0.483671E+00_JPRB, 0.466401E+00_JPRB &
+  &, 0.449303E+00_JPRB, 0.432388E+00_JPRB, 0.415675E+00_JPRB, 0.399179E+00_JPRB &
+  &, 0.382922E+00_JPRB, 0.366918E+00_JPRB, 0.351185E+00_JPRB &
+  &, 0.335731E+00_JPRB, 0.320578E+00_JPRB, 0.305743E+00_JPRB, 0.291230E+00_JPRB &
+  &, 0.277065E+00_JPRB, 0.263252E+00_JPRB, 0.249805E+00_JPRB &
+  &, 0.236728E+00_JPRB, 0.224036E+00_JPRB, 0.211729E+00_JPRB, 0.199831E+00_JPRB &
+  &, 0.188328E+00_JPRB, 0.177242E+00_JPRB, 0.166567E+00_JPRB &
+  &, 0.156308E+00_JPRB, 0.146454E+00_JPRB, 0.137032E+00_JPRB, 0.128013E+00_JPRB &
+  &, 0.119405E+00_JPRB, 0.111201E+00_JPRB, 0.103403E+00_JPRB &
+  &, 0.959996E-01_JPRB, 0.889723E-01_JPRB, 0.823487E-01_JPRB, 0.760736E-01_JPRB &
+  &, 0.701693E-01_JPRB, 0.646233E-01_JPRB, 0.594201E-01_JPRB &
+  &, 0.545225E-01_JPRB, 0.499623E-01_JPRB, 0.457159E-01_JPRB, 0.417362E-01_JPRB &
+  &, 0.380497E-01_JPRB, 0.346230E-01_JPRB, 0.314600E-01_JPRB &
+  &, 0.285422E-01_JPRB, 0.258271E-01_JPRB, 0.233551E-01_JPRB, 0.210794E-01_JPRB &
+  &, 0.189713E-01_JPRB, 0.170686E-01_JPRB, 0.153165E-01_JPRB &
+  &, 0.137274E-01_JPRB, 0.122649E-01_JPRB, 0.109645E-01_JPRB, 0.976122E-02_JPRB &
+  &, 0.868918E-02_JPRB, 0.770452E-02_JPRB, 0.684144E-02_JPRB &
+  &, 0.605286E-02_JPRB, 0.534446E-02_JPRB, 0.472204E-02_JPRB, 0.413267E-02_JPRB &
+  &, 0.363916E-02_JPRB, 0.318662E-02_JPRB, 0.280915E-02_JPRB &
+  &, 0.244820E-02_JPRB, 0.213746E-02_JPRB, 0.184732E-02_JPRB, 0.161274E-02_JPRB &
+  &, 0.140308E-02_JPRB, 0.121997E-02_JPRB, 0.102992E-02_JPRB &
+  &, 0.904368E-03_JPRB, 0.774099E-03_JPRB, 0.676046E-03_JPRB, 0.574381E-03_JPRB &
+  &, 0.469051E-03_JPRB, 0.398890E-03_JPRB, 0.326238E-03_JPRB &
+  &, 0.291235E-03_JPRB, 0.254975E-03_JPRB, 0.217439E-03_JPRB, 0.178610E-03_JPRB &
+  &, 0.138469E-03_JPRB, 0.969989E-04_JPRB, 0.983639E-04_JPRB &
+  &, 0.548704E-04_JPRB, 0.555648E-04_JPRB, 0.562651E-04_JPRB, 0.569714E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 276, :) = (/ &
+  &  0.938274E+00_JPRB, 0.922249E+00_JPRB, 0.906012E+00_JPRB, 0.889573E+00_JPRB &
+  &, 0.872939E+00_JPRB, 0.856127E+00_JPRB, 0.839147E+00_JPRB &
+  &, 0.822011E+00_JPRB, 0.804731E+00_JPRB, 0.787320E+00_JPRB, 0.769792E+00_JPRB &
+  &, 0.752159E+00_JPRB, 0.734434E+00_JPRB, 0.716633E+00_JPRB &
+  &, 0.698769E+00_JPRB, 0.680855E+00_JPRB, 0.662908E+00_JPRB, 0.644942E+00_JPRB &
+  &, 0.626974E+00_JPRB, 0.609016E+00_JPRB, 0.591090E+00_JPRB &
+  &, 0.573204E+00_JPRB, 0.555385E+00_JPRB, 0.537642E+00_JPRB, 0.519994E+00_JPRB &
+  &, 0.502458E+00_JPRB, 0.485053E+00_JPRB, 0.467798E+00_JPRB &
+  &, 0.450707E+00_JPRB, 0.433795E+00_JPRB, 0.417088E+00_JPRB, 0.400593E+00_JPRB &
+  &, 0.384333E+00_JPRB, 0.368325E+00_JPRB, 0.352582E+00_JPRB &
+  &, 0.337117E+00_JPRB, 0.321961E+00_JPRB, 0.307112E+00_JPRB, 0.292584E+00_JPRB &
+  &, 0.278401E+00_JPRB, 0.264569E+00_JPRB, 0.251090E+00_JPRB &
+  &, 0.237991E+00_JPRB, 0.225273E+00_JPRB, 0.212950E+00_JPRB, 0.201023E+00_JPRB &
+  &, 0.189489E+00_JPRB, 0.178369E+00_JPRB, 0.167671E+00_JPRB &
+  &, 0.157373E+00_JPRB, 0.147491E+00_JPRB, 0.138025E+00_JPRB, 0.128973E+00_JPRB &
+  &, 0.120330E+00_JPRB, 0.112088E+00_JPRB, 0.104251E+00_JPRB &
+  &, 0.968055E-01_JPRB, 0.897493E-01_JPRB, 0.830788E-01_JPRB, 0.767873E-01_JPRB &
+  &, 0.708483E-01_JPRB, 0.652656E-01_JPRB, 0.600059E-01_JPRB &
+  &, 0.551032E-01_JPRB, 0.505003E-01_JPRB, 0.462088E-01_JPRB, 0.422205E-01_JPRB &
+  &, 0.385049E-01_JPRB, 0.350476E-01_JPRB, 0.318523E-01_JPRB &
+  &, 0.289007E-01_JPRB, 0.261716E-01_JPRB, 0.236628E-01_JPRB, 0.213487E-01_JPRB &
+  &, 0.192461E-01_JPRB, 0.173023E-01_JPRB, 0.155310E-01_JPRB &
+  &, 0.139220E-01_JPRB, 0.124633E-01_JPRB, 0.111163E-01_JPRB, 0.991600E-02_JPRB &
+  &, 0.882068E-02_JPRB, 0.783857E-02_JPRB, 0.695074E-02_JPRB &
+  &, 0.616425E-02_JPRB, 0.542958E-02_JPRB, 0.480877E-02_JPRB, 0.422102E-02_JPRB &
+  &, 0.369915E-02_JPRB, 0.324771E-02_JPRB, 0.284025E-02_JPRB &
+  &, 0.247987E-02_JPRB, 0.216969E-02_JPRB, 0.188013E-02_JPRB, 0.164614E-02_JPRB &
+  &, 0.143706E-02_JPRB, 0.121997E-02_JPRB, 0.106509E-02_JPRB &
+  &, 0.904368E-03_JPRB, 0.774099E-03_JPRB, 0.676046E-03_JPRB, 0.574381E-03_JPRB &
+  &, 0.507305E-03_JPRB, 0.437779E-03_JPRB, 0.365768E-03_JPRB &
+  &, 0.291235E-03_JPRB, 0.254975E-03_JPRB, 0.217439E-03_JPRB, 0.178610E-03_JPRB &
+  &, 0.138469E-03_JPRB, 0.140498E-03_JPRB, 0.983639E-04_JPRB &
+  &, 0.997407E-04_JPRB, 0.555648E-04_JPRB, 0.562651E-04_JPRB, 0.569714E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 277, :) = (/ &
+  &  0.938253E+00_JPRB, 0.922605E+00_JPRB, 0.906433E+00_JPRB, 0.890057E+00_JPRB &
+  &, 0.873488E+00_JPRB, 0.856736E+00_JPRB, 0.839814E+00_JPRB &
+  &, 0.822735E+00_JPRB, 0.805509E+00_JPRB, 0.788152E+00_JPRB, 0.770675E+00_JPRB &
+  &, 0.753089E+00_JPRB, 0.735412E+00_JPRB, 0.717655E+00_JPRB &
+  &, 0.699832E+00_JPRB, 0.681960E+00_JPRB, 0.664049E+00_JPRB, 0.646119E+00_JPRB &
+  &, 0.628184E+00_JPRB, 0.610257E+00_JPRB, 0.592357E+00_JPRB &
+  &, 0.574501E+00_JPRB, 0.556701E+00_JPRB, 0.538978E+00_JPRB, 0.521351E+00_JPRB &
+  &, 0.503833E+00_JPRB, 0.486439E+00_JPRB, 0.469194E+00_JPRB &
+  &, 0.452111E+00_JPRB, 0.435205E+00_JPRB, 0.418501E+00_JPRB, 0.402007E+00_JPRB &
+  &, 0.385748E+00_JPRB, 0.369732E+00_JPRB, 0.353983E+00_JPRB &
+  &, 0.338512E+00_JPRB, 0.323343E+00_JPRB, 0.308481E+00_JPRB, 0.293937E+00_JPRB &
+  &, 0.279738E+00_JPRB, 0.265875E+00_JPRB, 0.252387E+00_JPRB &
+  &, 0.239264E+00_JPRB, 0.226522E+00_JPRB, 0.214172E+00_JPRB, 0.202215E+00_JPRB &
+  &, 0.190650E+00_JPRB, 0.179508E+00_JPRB, 0.168761E+00_JPRB &
+  &, 0.158437E+00_JPRB, 0.148527E+00_JPRB, 0.139017E+00_JPRB, 0.129933E+00_JPRB &
+  &, 0.121255E+00_JPRB, 0.112976E+00_JPRB, 0.105099E+00_JPRB &
+  &, 0.976269E-01_JPRB, 0.905422E-01_JPRB, 0.838251E-01_JPRB, 0.774843E-01_JPRB &
+  &, 0.715273E-01_JPRB, 0.658906E-01_JPRB, 0.606271E-01_JPRB &
+  &, 0.556657E-01_JPRB, 0.510382E-01_JPRB, 0.467207E-01_JPRB, 0.426854E-01_JPRB &
+  &, 0.389403E-01_JPRB, 0.354722E-01_JPRB, 0.322447E-01_JPRB &
+  &, 0.292592E-01_JPRB, 0.265161E-01_JPRB, 0.239706E-01_JPRB, 0.216404E-01_JPRB &
+  &, 0.195209E-01_JPRB, 0.175594E-01_JPRB, 0.157695E-01_JPRB &
+  &, 0.141409E-01_JPRB, 0.126618E-01_JPRB, 0.112934E-01_JPRB, 0.100708E-01_JPRB &
+  &, 0.897848E-02_JPRB, 0.797262E-02_JPRB, 0.708737E-02_JPRB &
+  &, 0.627564E-02_JPRB, 0.554308E-02_JPRB, 0.489549E-02_JPRB, 0.430936E-02_JPRB &
+  &, 0.378912E-02_JPRB, 0.330879E-02_JPRB, 0.290246E-02_JPRB &
+  &, 0.254320E-02_JPRB, 0.223416E-02_JPRB, 0.194575E-02_JPRB, 0.167953E-02_JPRB &
+  &, 0.147104E-02_JPRB, 0.125454E-02_JPRB, 0.110026E-02_JPRB &
+  &, 0.940142E-03_JPRB, 0.810484E-03_JPRB, 0.676046E-03_JPRB, 0.574381E-03_JPRB &
+  &, 0.507305E-03_JPRB, 0.437779E-03_JPRB, 0.365768E-03_JPRB &
+  &, 0.291235E-03_JPRB, 0.254975E-03_JPRB, 0.217439E-03_JPRB, 0.178610E-03_JPRB &
+  &, 0.138469E-03_JPRB, 0.140498E-03_JPRB, 0.983639E-04_JPRB &
+  &, 0.997407E-04_JPRB, 0.555648E-04_JPRB, 0.562651E-04_JPRB, 0.569714E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 278, :) = (/ &
+  &  0.938848E+00_JPRB, 0.922960E+00_JPRB, 0.906854E+00_JPRB, 0.890542E+00_JPRB &
+  &, 0.874034E+00_JPRB, 0.857344E+00_JPRB, 0.840480E+00_JPRB &
+  &, 0.823458E+00_JPRB, 0.806288E+00_JPRB, 0.788982E+00_JPRB, 0.771556E+00_JPRB &
+  &, 0.754019E+00_JPRB, 0.736388E+00_JPRB, 0.718675E+00_JPRB &
+  &, 0.700896E+00_JPRB, 0.683063E+00_JPRB, 0.665191E+00_JPRB, 0.647295E+00_JPRB &
+  &, 0.629392E+00_JPRB, 0.611497E+00_JPRB, 0.593625E+00_JPRB &
+  &, 0.575794E+00_JPRB, 0.558020E+00_JPRB, 0.540318E+00_JPRB, 0.522708E+00_JPRB &
+  &, 0.505204E+00_JPRB, 0.487825E+00_JPRB, 0.470591E+00_JPRB &
+  &, 0.453514E+00_JPRB, 0.436616E+00_JPRB, 0.419913E+00_JPRB, 0.403422E+00_JPRB &
+  &, 0.387159E+00_JPRB, 0.371143E+00_JPRB, 0.355389E+00_JPRB &
+  &, 0.339907E+00_JPRB, 0.324726E+00_JPRB, 0.309850E+00_JPRB, 0.295291E+00_JPRB &
+  &, 0.281074E+00_JPRB, 0.267203E+00_JPRB, 0.253683E+00_JPRB &
+  &, 0.240538E+00_JPRB, 0.227770E+00_JPRB, 0.215394E+00_JPRB, 0.203408E+00_JPRB &
+  &, 0.191823E+00_JPRB, 0.180635E+00_JPRB, 0.169864E+00_JPRB &
+  &, 0.159501E+00_JPRB, 0.149563E+00_JPRB, 0.140023E+00_JPRB, 0.130893E+00_JPRB &
+  &, 0.122180E+00_JPRB, 0.113878E+00_JPRB, 0.105962E+00_JPRB &
+  &, 0.984482E-01_JPRB, 0.913193E-01_JPRB, 0.845714E-01_JPRB, 0.782146E-01_JPRB &
+  &, 0.722064E-01_JPRB, 0.665503E-01_JPRB, 0.612306E-01_JPRB &
+  &, 0.562464E-01_JPRB, 0.515761E-01_JPRB, 0.472325E-01_JPRB, 0.431697E-01_JPRB &
+  &, 0.393955E-01_JPRB, 0.358765E-01_JPRB, 0.326370E-01_JPRB &
+  &, 0.296177E-01_JPRB, 0.268606E-01_JPRB, 0.243003E-01_JPRB, 0.219321E-01_JPRB &
+  &, 0.197728E-01_JPRB, 0.178164E-01_JPRB, 0.160079E-01_JPRB &
+  &, 0.143598E-01_JPRB, 0.128354E-01_JPRB, 0.114705E-01_JPRB, 0.102514E-01_JPRB &
+  &, 0.913629E-02_JPRB, 0.810667E-02_JPRB, 0.719667E-02_JPRB &
+  &, 0.638703E-02_JPRB, 0.562821E-02_JPRB, 0.498222E-02_JPRB, 0.439770E-02_JPRB &
+  &, 0.384911E-02_JPRB, 0.340043E-02_JPRB, 0.296466E-02_JPRB &
+  &, 0.260653E-02_JPRB, 0.226639E-02_JPRB, 0.197856E-02_JPRB, 0.171292E-02_JPRB &
+  &, 0.150502E-02_JPRB, 0.128912E-02_JPRB, 0.110026E-02_JPRB &
+  &, 0.975917E-03_JPRB, 0.810484E-03_JPRB, 0.713049E-03_JPRB, 0.612007E-03_JPRB &
+  &, 0.507305E-03_JPRB, 0.437779E-03_JPRB, 0.365768E-03_JPRB &
+  &, 0.331412E-03_JPRB, 0.254975E-03_JPRB, 0.217439E-03_JPRB, 0.178610E-03_JPRB &
+  &, 0.138469E-03_JPRB, 0.140498E-03_JPRB, 0.983639E-04_JPRB &
+  &, 0.997407E-04_JPRB, 0.555648E-04_JPRB, 0.562651E-04_JPRB, 0.569714E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 279, :) = (/ &
+  &  0.939135E+00_JPRB, 0.923314E+00_JPRB, 0.907274E+00_JPRB, 0.891026E+00_JPRB &
+  &, 0.874581E+00_JPRB, 0.857950E+00_JPRB, 0.841146E+00_JPRB &
+  &, 0.824180E+00_JPRB, 0.807065E+00_JPRB, 0.789812E+00_JPRB, 0.772436E+00_JPRB &
+  &, 0.754949E+00_JPRB, 0.737364E+00_JPRB, 0.719696E+00_JPRB &
+  &, 0.701958E+00_JPRB, 0.684164E+00_JPRB, 0.666331E+00_JPRB, 0.648470E+00_JPRB &
+  &, 0.630601E+00_JPRB, 0.612734E+00_JPRB, 0.594893E+00_JPRB &
+  &, 0.577087E+00_JPRB, 0.559336E+00_JPRB, 0.541654E+00_JPRB, 0.524065E+00_JPRB &
+  &, 0.506575E+00_JPRB, 0.489211E+00_JPRB, 0.471988E+00_JPRB &
+  &, 0.454922E+00_JPRB, 0.438030E+00_JPRB, 0.421330E+00_JPRB, 0.404840E+00_JPRB &
+  &, 0.388575E+00_JPRB, 0.372554E+00_JPRB, 0.356795E+00_JPRB &
+  &, 0.341302E+00_JPRB, 0.326109E+00_JPRB, 0.311219E+00_JPRB, 0.296654E+00_JPRB &
+  &, 0.282410E+00_JPRB, 0.268521E+00_JPRB, 0.254979E+00_JPRB &
+  &, 0.241811E+00_JPRB, 0.229019E+00_JPRB, 0.216615E+00_JPRB, 0.204600E+00_JPRB &
+  &, 0.192984E+00_JPRB, 0.181775E+00_JPRB, 0.170967E+00_JPRB &
+  &, 0.160579E+00_JPRB, 0.150600E+00_JPRB, 0.141030E+00_JPRB, 0.131866E+00_JPRB &
+  &, 0.123119E+00_JPRB, 0.114766E+00_JPRB, 0.106826E+00_JPRB &
+  &, 0.992696E-01_JPRB, 0.921121E-01_JPRB, 0.853340E-01_JPRB, 0.789283E-01_JPRB &
+  &, 0.728854E-01_JPRB, 0.671926E-01_JPRB, 0.618519E-01_JPRB &
+  &, 0.568271E-01_JPRB, 0.521326E-01_JPRB, 0.477444E-01_JPRB, 0.436540E-01_JPRB &
+  &, 0.398507E-01_JPRB, 0.363011E-01_JPRB, 0.330294E-01_JPRB &
+  &, 0.299973E-01_JPRB, 0.272051E-01_JPRB, 0.246081E-01_JPRB, 0.222462E-01_JPRB &
+  &, 0.200476E-01_JPRB, 0.180501E-01_JPRB, 0.162225E-01_JPRB &
+  &, 0.145544E-01_JPRB, 0.130339E-01_JPRB, 0.116729E-01_JPRB, 0.104061E-01_JPRB &
+  &, 0.926779E-02_JPRB, 0.824072E-02_JPRB, 0.733330E-02_JPRB &
+  &, 0.649842E-02_JPRB, 0.574171E-02_JPRB, 0.506894E-02_JPRB, 0.445660E-02_JPRB &
+  &, 0.393909E-02_JPRB, 0.346152E-02_JPRB, 0.302686E-02_JPRB &
+  &, 0.263819E-02_JPRB, 0.229863E-02_JPRB, 0.201137E-02_JPRB, 0.174631E-02_JPRB &
+  &, 0.153899E-02_JPRB, 0.132369E-02_JPRB, 0.113543E-02_JPRB &
+  &, 0.975917E-03_JPRB, 0.846870E-03_JPRB, 0.713049E-03_JPRB, 0.612007E-03_JPRB &
+  &, 0.545560E-03_JPRB, 0.437779E-03_JPRB, 0.405298E-03_JPRB &
+  &, 0.331412E-03_JPRB, 0.295804E-03_JPRB, 0.217439E-03_JPRB, 0.178610E-03_JPRB &
+  &, 0.181292E-03_JPRB, 0.140498E-03_JPRB, 0.983639E-04_JPRB &
+  &, 0.997407E-04_JPRB, 0.555648E-04_JPRB, 0.562651E-04_JPRB, 0.569714E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 280, :) = (/ &
+  &  0.939420E+00_JPRB, 0.923666E+00_JPRB, 0.907693E+00_JPRB, 0.891509E+00_JPRB &
+  &, 0.875126E+00_JPRB, 0.858557E+00_JPRB, 0.841811E+00_JPRB &
+  &, 0.824901E+00_JPRB, 0.807840E+00_JPRB, 0.790641E+00_JPRB, 0.773316E+00_JPRB &
+  &, 0.755876E+00_JPRB, 0.738339E+00_JPRB, 0.720715E+00_JPRB &
+  &, 0.703019E+00_JPRB, 0.685266E+00_JPRB, 0.667469E+00_JPRB, 0.649646E+00_JPRB &
+  &, 0.631809E+00_JPRB, 0.613975E+00_JPRB, 0.596161E+00_JPRB &
+  &, 0.578380E+00_JPRB, 0.560652E+00_JPRB, 0.542994E+00_JPRB, 0.525422E+00_JPRB &
+  &, 0.507950E+00_JPRB, 0.490600E+00_JPRB, 0.473385E+00_JPRB &
+  &, 0.456330E+00_JPRB, 0.439441E+00_JPRB, 0.422747E+00_JPRB, 0.406259E+00_JPRB &
+  &, 0.389990E+00_JPRB, 0.373970E+00_JPRB, 0.358202E+00_JPRB &
+  &, 0.342707E+00_JPRB, 0.327501E+00_JPRB, 0.312597E+00_JPRB, 0.298008E+00_JPRB &
+  &, 0.283757E+00_JPRB, 0.269848E+00_JPRB, 0.256287E+00_JPRB &
+  &, 0.243096E+00_JPRB, 0.230279E+00_JPRB, 0.217849E+00_JPRB, 0.205805E+00_JPRB &
+  &, 0.194157E+00_JPRB, 0.182914E+00_JPRB, 0.172083E+00_JPRB &
+  &, 0.161656E+00_JPRB, 0.151636E+00_JPRB, 0.142036E+00_JPRB, 0.132840E+00_JPRB &
+  &, 0.124059E+00_JPRB, 0.115668E+00_JPRB, 0.107689E+00_JPRB &
+  &, 0.100106E+00_JPRB, 0.929050E-01_JPRB, 0.860965E-01_JPRB, 0.796420E-01_JPRB &
+  &, 0.735644E-01_JPRB, 0.678349E-01_JPRB, 0.624554E-01_JPRB &
+  &, 0.574078E-01_JPRB, 0.526890E-01_JPRB, 0.482562E-01_JPRB, 0.441383E-01_JPRB &
+  &, 0.403059E-01_JPRB, 0.367459E-01_JPRB, 0.334424E-01_JPRB &
+  &, 0.303769E-01_JPRB, 0.275496E-01_JPRB, 0.249378E-01_JPRB, 0.225379E-01_JPRB &
+  &, 0.203453E-01_JPRB, 0.183071E-01_JPRB, 0.164609E-01_JPRB &
+  &, 0.147733E-01_JPRB, 0.132324E-01_JPRB, 0.118500E-01_JPRB, 0.105867E-01_JPRB &
+  &, 0.942559E-02_JPRB, 0.837477E-02_JPRB, 0.744260E-02_JPRB &
+  &, 0.660981E-02_JPRB, 0.585521E-02_JPRB, 0.515567E-02_JPRB, 0.454494E-02_JPRB &
+  &, 0.399908E-02_JPRB, 0.352261E-02_JPRB, 0.308907E-02_JPRB &
+  &, 0.270152E-02_JPRB, 0.236310E-02_JPRB, 0.207699E-02_JPRB, 0.177970E-02_JPRB &
+  &, 0.157297E-02_JPRB, 0.135826E-02_JPRB, 0.117060E-02_JPRB &
+  &, 0.101169E-02_JPRB, 0.883256E-03_JPRB, 0.750051E-03_JPRB, 0.649632E-03_JPRB &
+  &, 0.545560E-03_JPRB, 0.476668E-03_JPRB, 0.405298E-03_JPRB &
+  &, 0.331412E-03_JPRB, 0.295804E-03_JPRB, 0.258927E-03_JPRB, 0.178610E-03_JPRB &
+  &, 0.181292E-03_JPRB, 0.140498E-03_JPRB, 0.983639E-04_JPRB &
+  &, 0.997407E-04_JPRB, 0.555648E-04_JPRB, 0.562651E-04_JPRB, 0.569714E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART40',1,ZHOOK_HANDLE)
+END SUBROUTINE PART40
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART41
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART41',0,ZHOOK_HANDLE)
+
+XCW( 281, :) = (/ &
+  &  0.939705E+00_JPRB, 0.924019E+00_JPRB, 0.908111E+00_JPRB, 0.891991E+00_JPRB &
+  &, 0.875671E+00_JPRB, 0.859161E+00_JPRB, 0.842474E+00_JPRB &
+  &, 0.825622E+00_JPRB, 0.808616E+00_JPRB, 0.791470E+00_JPRB, 0.774194E+00_JPRB &
+  &, 0.756805E+00_JPRB, 0.739313E+00_JPRB, 0.721734E+00_JPRB &
+  &, 0.704080E+00_JPRB, 0.686368E+00_JPRB, 0.668609E+00_JPRB, 0.650820E+00_JPRB &
+  &, 0.633017E+00_JPRB, 0.615212E+00_JPRB, 0.597425E+00_JPRB &
+  &, 0.579673E+00_JPRB, 0.561971E+00_JPRB, 0.544333E+00_JPRB, 0.526779E+00_JPRB &
+  &, 0.509322E+00_JPRB, 0.491986E+00_JPRB, 0.474785E+00_JPRB &
+  &, 0.457733E+00_JPRB, 0.440855E+00_JPRB, 0.424164E+00_JPRB, 0.407678E+00_JPRB &
+  &, 0.391410E+00_JPRB, 0.375381E+00_JPRB, 0.359608E+00_JPRB &
+  &, 0.344102E+00_JPRB, 0.328884E+00_JPRB, 0.313976E+00_JPRB, 0.299371E+00_JPRB &
+  &, 0.285103E+00_JPRB, 0.271166E+00_JPRB, 0.257594E+00_JPRB &
+  &, 0.244381E+00_JPRB, 0.231539E+00_JPRB, 0.219082E+00_JPRB, 0.207009E+00_JPRB &
+  &, 0.195330E+00_JPRB, 0.184066E+00_JPRB, 0.173199E+00_JPRB &
+  &, 0.162734E+00_JPRB, 0.152686E+00_JPRB, 0.143056E+00_JPRB, 0.133814E+00_JPRB &
+  &, 0.124998E+00_JPRB, 0.116586E+00_JPRB, 0.108567E+00_JPRB &
+  &, 0.100943E+00_JPRB, 0.937138E-01_JPRB, 0.868591E-01_JPRB, 0.803722E-01_JPRB &
+  &, 0.742604E-01_JPRB, 0.684946E-01_JPRB, 0.630767E-01_JPRB &
+  &, 0.580066E-01_JPRB, 0.532455E-01_JPRB, 0.487870E-01_JPRB, 0.446419E-01_JPRB &
+  &, 0.407611E-01_JPRB, 0.371705E-01_JPRB, 0.338347E-01_JPRB &
+  &, 0.307565E-01_JPRB, 0.278942E-01_JPRB, 0.252675E-01_JPRB, 0.228296E-01_JPRB &
+  &, 0.206201E-01_JPRB, 0.185642E-01_JPRB, 0.166993E-01_JPRB &
+  &, 0.149921E-01_JPRB, 0.134556E-01_JPRB, 0.120271E-01_JPRB, 0.107415E-01_JPRB &
+  &, 0.958340E-02_JPRB, 0.853563E-02_JPRB, 0.757923E-02_JPRB &
+  &, 0.672119E-02_JPRB, 0.594033E-02_JPRB, 0.527130E-02_JPRB, 0.463328E-02_JPRB &
+  &, 0.408905E-02_JPRB, 0.358369E-02_JPRB, 0.315127E-02_JPRB &
+  &, 0.276485E-02_JPRB, 0.242756E-02_JPRB, 0.210980E-02_JPRB, 0.184648E-02_JPRB &
+  &, 0.160695E-02_JPRB, 0.139283E-02_JPRB, 0.120577E-02_JPRB &
+  &, 0.104747E-02_JPRB, 0.883256E-03_JPRB, 0.750051E-03_JPRB, 0.649632E-03_JPRB &
+  &, 0.545560E-03_JPRB, 0.476668E-03_JPRB, 0.405298E-03_JPRB &
+  &, 0.331412E-03_JPRB, 0.295804E-03_JPRB, 0.258927E-03_JPRB, 0.220762E-03_JPRB &
+  &, 0.181292E-03_JPRB, 0.140498E-03_JPRB, 0.983639E-04_JPRB &
+  &, 0.997407E-04_JPRB, 0.555648E-04_JPRB, 0.562651E-04_JPRB, 0.569714E-04_JPRB &
+  &, 0.576837E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 282, :) = (/ &
+  &  0.939991E+00_JPRB, 0.924373E+00_JPRB, 0.908529E+00_JPRB, 0.892474E+00_JPRB &
+  &, 0.876215E+00_JPRB, 0.859766E+00_JPRB, 0.843137E+00_JPRB &
+  &, 0.826341E+00_JPRB, 0.809390E+00_JPRB, 0.792297E+00_JPRB, 0.775072E+00_JPRB &
+  &, 0.757731E+00_JPRB, 0.740286E+00_JPRB, 0.722751E+00_JPRB &
+  &, 0.705141E+00_JPRB, 0.687468E+00_JPRB, 0.669746E+00_JPRB, 0.651994E+00_JPRB &
+  &, 0.634224E+00_JPRB, 0.616452E+00_JPRB, 0.598693E+00_JPRB &
+  &, 0.580966E+00_JPRB, 0.563287E+00_JPRB, 0.545669E+00_JPRB, 0.528132E+00_JPRB &
+  &, 0.510697E+00_JPRB, 0.493372E+00_JPRB, 0.476182E+00_JPRB &
+  &, 0.459141E+00_JPRB, 0.442270E+00_JPRB, 0.425581E+00_JPRB, 0.409096E+00_JPRB &
+  &, 0.392830E+00_JPRB, 0.376797E+00_JPRB, 0.361018E+00_JPRB &
+  &, 0.345507E+00_JPRB, 0.330277E+00_JPRB, 0.315355E+00_JPRB, 0.300735E+00_JPRB &
+  &, 0.286450E+00_JPRB, 0.272504E+00_JPRB, 0.258901E+00_JPRB &
+  &, 0.245665E+00_JPRB, 0.232799E+00_JPRB, 0.220315E+00_JPRB, 0.208213E+00_JPRB &
+  &, 0.196515E+00_JPRB, 0.185218E+00_JPRB, 0.174315E+00_JPRB &
+  &, 0.163824E+00_JPRB, 0.153735E+00_JPRB, 0.144062E+00_JPRB, 0.134802E+00_JPRB &
+  &, 0.125952E+00_JPRB, 0.117488E+00_JPRB, 0.109445E+00_JPRB &
+  &, 0.101780E+00_JPRB, 0.945067E-01_JPRB, 0.876216E-01_JPRB, 0.811025E-01_JPRB &
+  &, 0.749564E-01_JPRB, 0.691543E-01_JPRB, 0.637157E-01_JPRB &
+  &, 0.585873E-01_JPRB, 0.538020E-01_JPRB, 0.493178E-01_JPRB, 0.451262E-01_JPRB &
+  &, 0.412361E-01_JPRB, 0.376153E-01_JPRB, 0.342477E-01_JPRB &
+  &, 0.311361E-01_JPRB, 0.282387E-01_JPRB, 0.255973E-01_JPRB, 0.231437E-01_JPRB &
+  &, 0.208949E-01_JPRB, 0.188446E-01_JPRB, 0.169377E-01_JPRB &
+  &, 0.152110E-01_JPRB, 0.136541E-01_JPRB, 0.122042E-01_JPRB, 0.109221E-01_JPRB &
+  &, 0.974120E-02_JPRB, 0.866968E-02_JPRB, 0.771586E-02_JPRB &
+  &, 0.683258E-02_JPRB, 0.605383E-02_JPRB, 0.535802E-02_JPRB, 0.472163E-02_JPRB &
+  &, 0.414904E-02_JPRB, 0.367533E-02_JPRB, 0.321347E-02_JPRB &
+  &, 0.282818E-02_JPRB, 0.245980E-02_JPRB, 0.214261E-02_JPRB, 0.187987E-02_JPRB &
+  &, 0.164093E-02_JPRB, 0.142740E-02_JPRB, 0.124094E-02_JPRB &
+  &, 0.104747E-02_JPRB, 0.919641E-03_JPRB, 0.787054E-03_JPRB, 0.687258E-03_JPRB &
+  &, 0.583814E-03_JPRB, 0.476668E-03_JPRB, 0.405298E-03_JPRB &
+  &, 0.371589E-03_JPRB, 0.295804E-03_JPRB, 0.258927E-03_JPRB, 0.220762E-03_JPRB &
+  &, 0.181292E-03_JPRB, 0.140498E-03_JPRB, 0.142546E-03_JPRB &
+  &, 0.997407E-04_JPRB, 0.101130E-03_JPRB, 0.562651E-04_JPRB, 0.569714E-04_JPRB &
+  &, 0.576837E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 283, :) = (/ &
+  &  0.940276E+00_JPRB, 0.924724E+00_JPRB, 0.908946E+00_JPRB, 0.892955E+00_JPRB &
+  &, 0.876758E+00_JPRB, 0.860369E+00_JPRB, 0.843799E+00_JPRB &
+  &, 0.827060E+00_JPRB, 0.810164E+00_JPRB, 0.793122E+00_JPRB, 0.775949E+00_JPRB &
+  &, 0.758657E+00_JPRB, 0.741258E+00_JPRB, 0.723769E+00_JPRB &
+  &, 0.706200E+00_JPRB, 0.688566E+00_JPRB, 0.670885E+00_JPRB, 0.653167E+00_JPRB &
+  &, 0.635430E+00_JPRB, 0.617690E+00_JPRB, 0.599961E+00_JPRB &
+  &, 0.582259E+00_JPRB, 0.564603E+00_JPRB, 0.547009E+00_JPRB, 0.529465E+00_JPRB &
+  &, 0.512071E+00_JPRB, 0.494761E+00_JPRB, 0.477582E+00_JPRB &
+  &, 0.460553E+00_JPRB, 0.443684E+00_JPRB, 0.427002E+00_JPRB, 0.410515E+00_JPRB &
+  &, 0.394249E+00_JPRB, 0.378217E+00_JPRB, 0.362429E+00_JPRB &
+  &, 0.346911E+00_JPRB, 0.331679E+00_JPRB, 0.316733E+00_JPRB, 0.302108E+00_JPRB &
+  &, 0.287796E+00_JPRB, 0.273832E+00_JPRB, 0.260208E+00_JPRB &
+  &, 0.246950E+00_JPRB, 0.234059E+00_JPRB, 0.221549E+00_JPRB, 0.209429E+00_JPRB &
+  &, 0.197700E+00_JPRB, 0.186369E+00_JPRB, 0.175431E+00_JPRB &
+  &, 0.164915E+00_JPRB, 0.154799E+00_JPRB, 0.145082E+00_JPRB, 0.135790E+00_JPRB &
+  &, 0.126891E+00_JPRB, 0.118405E+00_JPRB, 0.110323E+00_JPRB &
+  &, 0.102617E+00_JPRB, 0.953154E-01_JPRB, 0.883842E-01_JPRB, 0.818327E-01_JPRB &
+  &, 0.756524E-01_JPRB, 0.698313E-01_JPRB, 0.643369E-01_JPRB &
+  &, 0.591861E-01_JPRB, 0.543584E-01_JPRB, 0.498486E-01_JPRB, 0.456299E-01_JPRB &
+  &, 0.416913E-01_JPRB, 0.380398E-01_JPRB, 0.346607E-01_JPRB &
+  &, 0.315156E-01_JPRB, 0.286047E-01_JPRB, 0.259270E-01_JPRB, 0.234579E-01_JPRB &
+  &, 0.211926E-01_JPRB, 0.191016E-01_JPRB, 0.172000E-01_JPRB &
+  &, 0.154543E-01_JPRB, 0.138526E-01_JPRB, 0.124066E-01_JPRB, 0.110769E-01_JPRB &
+  &, 0.989900E-02_JPRB, 0.880373E-02_JPRB, 0.782516E-02_JPRB &
+  &, 0.694397E-02_JPRB, 0.616733E-02_JPRB, 0.544475E-02_JPRB, 0.480997E-02_JPRB &
+  &, 0.423902E-02_JPRB, 0.373642E-02_JPRB, 0.327568E-02_JPRB &
+  &, 0.285985E-02_JPRB, 0.252427E-02_JPRB, 0.220823E-02_JPRB, 0.191326E-02_JPRB &
+  &, 0.167490E-02_JPRB, 0.146197E-02_JPRB, 0.124094E-02_JPRB &
+  &, 0.108324E-02_JPRB, 0.919641E-03_JPRB, 0.787054E-03_JPRB, 0.687258E-03_JPRB &
+  &, 0.583814E-03_JPRB, 0.515558E-03_JPRB, 0.444828E-03_JPRB &
+  &, 0.371589E-03_JPRB, 0.295804E-03_JPRB, 0.258927E-03_JPRB, 0.220762E-03_JPRB &
+  &, 0.181292E-03_JPRB, 0.140498E-03_JPRB, 0.142546E-03_JPRB &
+  &, 0.997407E-04_JPRB, 0.101130E-03_JPRB, 0.562651E-04_JPRB, 0.569714E-04_JPRB &
+  &, 0.576837E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 284, :) = (/ &
+  &  0.940559E+00_JPRB, 0.925076E+00_JPRB, 0.909363E+00_JPRB, 0.893436E+00_JPRB &
+  &, 0.877301E+00_JPRB, 0.860973E+00_JPRB, 0.844461E+00_JPRB &
+  &, 0.827778E+00_JPRB, 0.810937E+00_JPRB, 0.793948E+00_JPRB, 0.776826E+00_JPRB &
+  &, 0.759581E+00_JPRB, 0.742230E+00_JPRB, 0.724785E+00_JPRB &
+  &, 0.707258E+00_JPRB, 0.689665E+00_JPRB, 0.672022E+00_JPRB, 0.654340E+00_JPRB &
+  &, 0.636637E+00_JPRB, 0.618927E+00_JPRB, 0.601226E+00_JPRB &
+  &, 0.583552E+00_JPRB, 0.565919E+00_JPRB, 0.548345E+00_JPRB, 0.530850E+00_JPRB &
+  &, 0.513443E+00_JPRB, 0.496147E+00_JPRB, 0.478983E+00_JPRB &
+  &, 0.461960E+00_JPRB, 0.445102E+00_JPRB, 0.428423E+00_JPRB, 0.411938E+00_JPRB &
+  &, 0.395669E+00_JPRB, 0.379633E+00_JPRB, 0.363844E+00_JPRB &
+  &, 0.348316E+00_JPRB, 0.333071E+00_JPRB, 0.318122E+00_JPRB, 0.303472E+00_JPRB &
+  &, 0.289153E+00_JPRB, 0.275170E+00_JPRB, 0.261526E+00_JPRB &
+  &, 0.248246E+00_JPRB, 0.235331E+00_JPRB, 0.222793E+00_JPRB, 0.210646E+00_JPRB &
+  &, 0.198886E+00_JPRB, 0.187521E+00_JPRB, 0.176560E+00_JPRB &
+  &, 0.166006E+00_JPRB, 0.155848E+00_JPRB, 0.146116E+00_JPRB, 0.136778E+00_JPRB &
+  &, 0.127845E+00_JPRB, 0.119323E+00_JPRB, 0.111202E+00_JPRB &
+  &, 0.103469E+00_JPRB, 0.961242E-01_JPRB, 0.891630E-01_JPRB, 0.825796E-01_JPRB &
+  &, 0.763653E-01_JPRB, 0.704910E-01_JPRB, 0.649759E-01_JPRB &
+  &, 0.597850E-01_JPRB, 0.549335E-01_JPRB, 0.503794E-01_JPRB, 0.461335E-01_JPRB &
+  &, 0.421663E-01_JPRB, 0.384846E-01_JPRB, 0.350737E-01_JPRB &
+  &, 0.318952E-01_JPRB, 0.289708E-01_JPRB, 0.262567E-01_JPRB, 0.237720E-01_JPRB &
+  &, 0.214674E-01_JPRB, 0.193587E-01_JPRB, 0.174384E-01_JPRB &
+  &, 0.156732E-01_JPRB, 0.140510E-01_JPRB, 0.125837E-01_JPRB, 0.112574E-01_JPRB &
+  &, 0.100568E-01_JPRB, 0.896459E-02_JPRB, 0.796179E-02_JPRB &
+  &, 0.708321E-02_JPRB, 0.628083E-02_JPRB, 0.556038E-02_JPRB, 0.489831E-02_JPRB &
+  &, 0.432900E-02_JPRB, 0.379750E-02_JPRB, 0.333788E-02_JPRB &
+  &, 0.292318E-02_JPRB, 0.255650E-02_JPRB, 0.224104E-02_JPRB, 0.194665E-02_JPRB &
+  &, 0.170888E-02_JPRB, 0.146197E-02_JPRB, 0.127611E-02_JPRB &
+  &, 0.111902E-02_JPRB, 0.956027E-03_JPRB, 0.824056E-03_JPRB, 0.724883E-03_JPRB &
+  &, 0.622068E-03_JPRB, 0.515558E-03_JPRB, 0.444828E-03_JPRB &
+  &, 0.371589E-03_JPRB, 0.336633E-03_JPRB, 0.258927E-03_JPRB, 0.220762E-03_JPRB &
+  &, 0.181292E-03_JPRB, 0.140498E-03_JPRB, 0.142546E-03_JPRB &
+  &, 0.997407E-04_JPRB, 0.101130E-03_JPRB, 0.562651E-04_JPRB, 0.569714E-04_JPRB &
+  &, 0.576837E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 285, :) = (/ &
+  &  0.940843E+00_JPRB, 0.925426E+00_JPRB, 0.909780E+00_JPRB, 0.893916E+00_JPRB &
+  &, 0.877843E+00_JPRB, 0.861575E+00_JPRB, 0.845122E+00_JPRB &
+  &, 0.828495E+00_JPRB, 0.811708E+00_JPRB, 0.794773E+00_JPRB, 0.777702E+00_JPRB &
+  &, 0.760506E+00_JPRB, 0.743201E+00_JPRB, 0.725800E+00_JPRB &
+  &, 0.708317E+00_JPRB, 0.690764E+00_JPRB, 0.673157E+00_JPRB, 0.655512E+00_JPRB &
+  &, 0.637842E+00_JPRB, 0.620164E+00_JPRB, 0.602490E+00_JPRB &
+  &, 0.584845E+00_JPRB, 0.567235E+00_JPRB, 0.549685E+00_JPRB, 0.532207E+00_JPRB &
+  &, 0.514818E+00_JPRB, 0.497537E+00_JPRB, 0.480383E+00_JPRB &
+  &, 0.463372E+00_JPRB, 0.446517E+00_JPRB, 0.429843E+00_JPRB, 0.413361E+00_JPRB &
+  &, 0.397093E+00_JPRB, 0.381053E+00_JPRB, 0.365259E+00_JPRB &
+  &, 0.349720E+00_JPRB, 0.334463E+00_JPRB, 0.319501E+00_JPRB, 0.304845E+00_JPRB &
+  &, 0.290510E+00_JPRB, 0.276498E+00_JPRB, 0.262844E+00_JPRB &
+  &, 0.249541E+00_JPRB, 0.236602E+00_JPRB, 0.224038E+00_JPRB, 0.211862E+00_JPRB &
+  &, 0.200071E+00_JPRB, 0.188673E+00_JPRB, 0.177688E+00_JPRB &
+  &, 0.167096E+00_JPRB, 0.156912E+00_JPRB, 0.147136E+00_JPRB, 0.137766E+00_JPRB &
+  &, 0.128813E+00_JPRB, 0.120255E+00_JPRB, 0.112095E+00_JPRB &
+  &, 0.104322E+00_JPRB, 0.969488E-01_JPRB, 0.899417E-01_JPRB, 0.833265E-01_JPRB &
+  &, 0.770613E-01_JPRB, 0.711680E-01_JPRB, 0.656149E-01_JPRB &
+  &, 0.604020E-01_JPRB, 0.555085E-01_JPRB, 0.509102E-01_JPRB, 0.466372E-01_JPRB &
+  &, 0.426413E-01_JPRB, 0.389294E-01_JPRB, 0.354867E-01_JPRB &
+  &, 0.322959E-01_JPRB, 0.293368E-01_JPRB, 0.266084E-01_JPRB, 0.240861E-01_JPRB &
+  &, 0.217651E-01_JPRB, 0.196391E-01_JPRB, 0.176768E-01_JPRB &
+  &, 0.158920E-01_JPRB, 0.142743E-01_JPRB, 0.127861E-01_JPRB, 0.114380E-01_JPRB &
+  &, 0.102146E-01_JPRB, 0.909864E-02_JPRB, 0.809842E-02_JPRB &
+  &, 0.719460E-02_JPRB, 0.639433E-02_JPRB, 0.564711E-02_JPRB, 0.498666E-02_JPRB &
+  &, 0.441898E-02_JPRB, 0.388914E-02_JPRB, 0.340008E-02_JPRB &
+  &, 0.298651E-02_JPRB, 0.262097E-02_JPRB, 0.227385E-02_JPRB, 0.201343E-02_JPRB &
+  &, 0.174286E-02_JPRB, 0.149654E-02_JPRB, 0.131128E-02_JPRB &
+  &, 0.111902E-02_JPRB, 0.992412E-03_JPRB, 0.861059E-03_JPRB, 0.724883E-03_JPRB &
+  &, 0.622068E-03_JPRB, 0.515558E-03_JPRB, 0.444828E-03_JPRB &
+  &, 0.371589E-03_JPRB, 0.336633E-03_JPRB, 0.258927E-03_JPRB, 0.220762E-03_JPRB &
+  &, 0.181292E-03_JPRB, 0.140498E-03_JPRB, 0.142546E-03_JPRB &
+  &, 0.997407E-04_JPRB, 0.101130E-03_JPRB, 0.562651E-04_JPRB, 0.569714E-04_JPRB &
+  &, 0.576837E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 286, :) = (/ &
+  &  0.941125E+00_JPRB, 0.925777E+00_JPRB, 0.910195E+00_JPRB, 0.894395E+00_JPRB &
+  &, 0.878384E+00_JPRB, 0.862176E+00_JPRB, 0.845781E+00_JPRB &
+  &, 0.829212E+00_JPRB, 0.812480E+00_JPRB, 0.795597E+00_JPRB, 0.778576E+00_JPRB &
+  &, 0.761429E+00_JPRB, 0.744172E+00_JPRB, 0.726814E+00_JPRB &
+  &, 0.709374E+00_JPRB, 0.691861E+00_JPRB, 0.674294E+00_JPRB, 0.656683E+00_JPRB &
+  &, 0.639048E+00_JPRB, 0.621398E+00_JPRB, 0.603758E+00_JPRB &
+  &, 0.586135E+00_JPRB, 0.568551E+00_JPRB, 0.551021E+00_JPRB, 0.533564E+00_JPRB &
+  &, 0.516193E+00_JPRB, 0.498926E+00_JPRB, 0.481784E+00_JPRB &
+  &, 0.464779E+00_JPRB, 0.447935E+00_JPRB, 0.431264E+00_JPRB, 0.414788E+00_JPRB &
+  &, 0.398517E+00_JPRB, 0.382473E+00_JPRB, 0.366675E+00_JPRB &
+  &, 0.351134E+00_JPRB, 0.335865E+00_JPRB, 0.320889E+00_JPRB, 0.306219E+00_JPRB &
+  &, 0.291867E+00_JPRB, 0.277847E+00_JPRB, 0.264162E+00_JPRB &
+  &, 0.250837E+00_JPRB, 0.237873E+00_JPRB, 0.225283E+00_JPRB, 0.213078E+00_JPRB &
+  &, 0.201268E+00_JPRB, 0.189837E+00_JPRB, 0.178817E+00_JPRB &
+  &, 0.168200E+00_JPRB, 0.157988E+00_JPRB, 0.148170E+00_JPRB, 0.138768E+00_JPRB &
+  &, 0.129767E+00_JPRB, 0.121172E+00_JPRB, 0.112973E+00_JPRB &
+  &, 0.105174E+00_JPRB, 0.977575E-01_JPRB, 0.907367E-01_JPRB, 0.840733E-01_JPRB &
+  &, 0.777743E-01_JPRB, 0.718450E-01_JPRB, 0.662539E-01_JPRB &
+  &, 0.610008E-01_JPRB, 0.560835E-01_JPRB, 0.514600E-01_JPRB, 0.471602E-01_JPRB &
+  &, 0.431361E-01_JPRB, 0.393944E-01_JPRB, 0.358997E-01_JPRB &
+  &, 0.326755E-01_JPRB, 0.297029E-01_JPRB, 0.269382E-01_JPRB, 0.244003E-01_JPRB &
+  &, 0.220628E-01_JPRB, 0.198962E-01_JPRB, 0.179391E-01_JPRB &
+  &, 0.161353E-01_JPRB, 0.144975E-01_JPRB, 0.129885E-01_JPRB, 0.116186E-01_JPRB &
+  &, 0.103724E-01_JPRB, 0.925950E-02_JPRB, 0.823505E-02_JPRB &
+  &, 0.733384E-02_JPRB, 0.650783E-02_JPRB, 0.576274E-02_JPRB, 0.507500E-02_JPRB &
+  &, 0.447896E-02_JPRB, 0.395023E-02_JPRB, 0.346229E-02_JPRB &
+  &, 0.304984E-02_JPRB, 0.268544E-02_JPRB, 0.233947E-02_JPRB, 0.204682E-02_JPRB &
+  &, 0.177684E-02_JPRB, 0.153111E-02_JPRB, 0.134645E-02_JPRB &
+  &, 0.115479E-02_JPRB, 0.992412E-03_JPRB, 0.861059E-03_JPRB, 0.762508E-03_JPRB &
+  &, 0.622068E-03_JPRB, 0.554447E-03_JPRB, 0.484358E-03_JPRB &
+  &, 0.411765E-03_JPRB, 0.336633E-03_JPRB, 0.300415E-03_JPRB, 0.220762E-03_JPRB &
+  &, 0.181292E-03_JPRB, 0.183998E-03_JPRB, 0.142546E-03_JPRB &
+  &, 0.997407E-04_JPRB, 0.101130E-03_JPRB, 0.562651E-04_JPRB, 0.569714E-04_JPRB &
+  &, 0.576837E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 287, :) = (/ &
+  &  0.941408E+00_JPRB, 0.926126E+00_JPRB, 0.910610E+00_JPRB, 0.894873E+00_JPRB &
+  &, 0.878924E+00_JPRB, 0.862777E+00_JPRB, 0.846441E+00_JPRB &
+  &, 0.829927E+00_JPRB, 0.813250E+00_JPRB, 0.796420E+00_JPRB, 0.779450E+00_JPRB &
+  &, 0.762353E+00_JPRB, 0.745141E+00_JPRB, 0.727829E+00_JPRB &
+  &, 0.710430E+00_JPRB, 0.692958E+00_JPRB, 0.675428E+00_JPRB, 0.657854E+00_JPRB &
+  &, 0.640250E+00_JPRB, 0.622636E+00_JPRB, 0.605023E+00_JPRB &
+  &, 0.587428E+00_JPRB, 0.569867E+00_JPRB, 0.552360E+00_JPRB, 0.534921E+00_JPRB &
+  &, 0.517568E+00_JPRB, 0.500316E+00_JPRB, 0.483185E+00_JPRB &
+  &, 0.466191E+00_JPRB, 0.449354E+00_JPRB, 0.432689E+00_JPRB, 0.416210E+00_JPRB &
+  &, 0.399941E+00_JPRB, 0.383898E+00_JPRB, 0.368094E+00_JPRB &
+  &, 0.352548E+00_JPRB, 0.337267E+00_JPRB, 0.322278E+00_JPRB, 0.307592E+00_JPRB &
+  &, 0.293223E+00_JPRB, 0.279185E+00_JPRB, 0.265480E+00_JPRB &
+  &, 0.252133E+00_JPRB, 0.239156E+00_JPRB, 0.226540E+00_JPRB, 0.214306E+00_JPRB &
+  &, 0.202466E+00_JPRB, 0.191014E+00_JPRB, 0.179959E+00_JPRB &
+  &, 0.169304E+00_JPRB, 0.159052E+00_JPRB, 0.149217E+00_JPRB, 0.139770E+00_JPRB &
+  &, 0.130735E+00_JPRB, 0.122104E+00_JPRB, 0.113882E+00_JPRB &
+  &, 0.106042E+00_JPRB, 0.985821E-01_JPRB, 0.915155E-01_JPRB, 0.848202E-01_JPRB &
+  &, 0.784872E-01_JPRB, 0.725221E-01_JPRB, 0.668930E-01_JPRB &
+  &, 0.616178E-01_JPRB, 0.566585E-01_JPRB, 0.520097E-01_JPRB, 0.476639E-01_JPRB &
+  &, 0.436111E-01_JPRB, 0.398392E-01_JPRB, 0.363334E-01_JPRB &
+  &, 0.330762E-01_JPRB, 0.300689E-01_JPRB, 0.272899E-01_JPRB, 0.247144E-01_JPRB &
+  &, 0.223605E-01_JPRB, 0.201766E-01_JPRB, 0.182013E-01_JPRB &
+  &, 0.163785E-01_JPRB, 0.146960E-01_JPRB, 0.131909E-01_JPRB, 0.117992E-01_JPRB &
+  &, 0.105565E-01_JPRB, 0.942037E-02_JPRB, 0.837168E-02_JPRB &
+  &, 0.744522E-02_JPRB, 0.662132E-02_JPRB, 0.584947E-02_JPRB, 0.519279E-02_JPRB &
+  &, 0.456894E-02_JPRB, 0.404186E-02_JPRB, 0.355559E-02_JPRB &
+  &, 0.311317E-02_JPRB, 0.271767E-02_JPRB, 0.237227E-02_JPRB, 0.208021E-02_JPRB &
+  &, 0.181081E-02_JPRB, 0.156568E-02_JPRB, 0.138162E-02_JPRB &
+  &, 0.119057E-02_JPRB, 0.102880E-02_JPRB, 0.898061E-03_JPRB, 0.762508E-03_JPRB &
+  &, 0.660322E-03_JPRB, 0.554447E-03_JPRB, 0.484358E-03_JPRB &
+  &, 0.411765E-03_JPRB, 0.336633E-03_JPRB, 0.300415E-03_JPRB, 0.262914E-03_JPRB &
+  &, 0.224115E-03_JPRB, 0.183998E-03_JPRB, 0.142546E-03_JPRB &
+  &, 0.997407E-04_JPRB, 0.101130E-03_JPRB, 0.562651E-04_JPRB, 0.569714E-04_JPRB &
+  &, 0.576837E-04_JPRB, 0.584019E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART41',1,ZHOOK_HANDLE)
+END SUBROUTINE PART41
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART42
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART42',0,ZHOOK_HANDLE)
+
+XCW( 288, :) = (/ &
+  &  0.941692E+00_JPRB, 0.926475E+00_JPRB, 0.911024E+00_JPRB, 0.895352E+00_JPRB &
+  &, 0.879465E+00_JPRB, 0.863377E+00_JPRB, 0.847099E+00_JPRB &
+  &, 0.830642E+00_JPRB, 0.814020E+00_JPRB, 0.797242E+00_JPRB, 0.780323E+00_JPRB &
+  &, 0.763275E+00_JPRB, 0.746109E+00_JPRB, 0.728842E+00_JPRB &
+  &, 0.711487E+00_JPRB, 0.694056E+00_JPRB, 0.676563E+00_JPRB, 0.659025E+00_JPRB &
+  &, 0.641456E+00_JPRB, 0.623873E+00_JPRB, 0.606287E+00_JPRB &
+  &, 0.588721E+00_JPRB, 0.571186E+00_JPRB, 0.553700E+00_JPRB, 0.536278E+00_JPRB &
+  &, 0.518942E+00_JPRB, 0.501705E+00_JPRB, 0.484585E+00_JPRB &
+  &, 0.467602E+00_JPRB, 0.450772E+00_JPRB, 0.434110E+00_JPRB, 0.417638E+00_JPRB &
+  &, 0.401370E+00_JPRB, 0.385323E+00_JPRB, 0.369514E+00_JPRB &
+  &, 0.353952E+00_JPRB, 0.338669E+00_JPRB, 0.323676E+00_JPRB, 0.308976E+00_JPRB &
+  &, 0.294590E+00_JPRB, 0.280523E+00_JPRB, 0.266809E+00_JPRB &
+  &, 0.253440E+00_JPRB, 0.240428E+00_JPRB, 0.227796E+00_JPRB, 0.215534E+00_JPRB &
+  &, 0.203663E+00_JPRB, 0.192179E+00_JPRB, 0.181100E+00_JPRB &
+  &, 0.170407E+00_JPRB, 0.160128E+00_JPRB, 0.150251E+00_JPRB, 0.140787E+00_JPRB &
+  &, 0.131718E+00_JPRB, 0.123051E+00_JPRB, 0.114775E+00_JPRB &
+  &, 0.106894E+00_JPRB, 0.994067E-01_JPRB, 0.923105E-01_JPRB, 0.855836E-01_JPRB &
+  &, 0.792172E-01_JPRB, 0.732165E-01_JPRB, 0.675497E-01_JPRB &
+  &, 0.622348E-01_JPRB, 0.572335E-01_JPRB, 0.525595E-01_JPRB, 0.481869E-01_JPRB &
+  &, 0.441059E-01_JPRB, 0.403043E-01_JPRB, 0.367670E-01_JPRB &
+  &, 0.334768E-01_JPRB, 0.304350E-01_JPRB, 0.276416E-01_JPRB, 0.250510E-01_JPRB &
+  &, 0.226582E-01_JPRB, 0.204570E-01_JPRB, 0.184397E-01_JPRB &
+  &, 0.165974E-01_JPRB, 0.149193E-01_JPRB, 0.133933E-01_JPRB, 0.119798E-01_JPRB &
+  &, 0.107143E-01_JPRB, 0.955442E-02_JPRB, 0.850831E-02_JPRB &
+  &, 0.758446E-02_JPRB, 0.673482E-02_JPRB, 0.596510E-02_JPRB, 0.528113E-02_JPRB &
+  &, 0.465892E-02_JPRB, 0.410295E-02_JPRB, 0.361780E-02_JPRB &
+  &, 0.317650E-02_JPRB, 0.278214E-02_JPRB, 0.243789E-02_JPRB, 0.211360E-02_JPRB &
+  &, 0.184479E-02_JPRB, 0.160025E-02_JPRB, 0.141679E-02_JPRB &
+  &, 0.122634E-02_JPRB, 0.106518E-02_JPRB, 0.898061E-03_JPRB, 0.800134E-03_JPRB &
+  &, 0.660322E-03_JPRB, 0.593336E-03_JPRB, 0.484358E-03_JPRB &
+  &, 0.411765E-03_JPRB, 0.336633E-03_JPRB, 0.300415E-03_JPRB, 0.262914E-03_JPRB &
+  &, 0.224115E-03_JPRB, 0.183998E-03_JPRB, 0.142546E-03_JPRB &
+  &, 0.997407E-04_JPRB, 0.101130E-03_JPRB, 0.102530E-03_JPRB, 0.569714E-04_JPRB &
+  &, 0.576837E-04_JPRB, 0.584019E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 289, :) = (/ &
+  &  0.941973E+00_JPRB, 0.926824E+00_JPRB, 0.911439E+00_JPRB, 0.895829E+00_JPRB &
+  &, 0.880004E+00_JPRB, 0.863976E+00_JPRB, 0.847757E+00_JPRB &
+  &, 0.831357E+00_JPRB, 0.814788E+00_JPRB, 0.798064E+00_JPRB, 0.781196E+00_JPRB &
+  &, 0.764195E+00_JPRB, 0.747077E+00_JPRB, 0.729855E+00_JPRB &
+  &, 0.712542E+00_JPRB, 0.695150E+00_JPRB, 0.677697E+00_JPRB, 0.660196E+00_JPRB &
+  &, 0.642659E+00_JPRB, 0.625107E+00_JPRB, 0.607552E+00_JPRB &
+  &, 0.590011E+00_JPRB, 0.572502E+00_JPRB, 0.555036E+00_JPRB, 0.537635E+00_JPRB &
+  &, 0.520317E+00_JPRB, 0.503095E+00_JPRB, 0.485989E+00_JPRB &
+  &, 0.469018E+00_JPRB, 0.452195E+00_JPRB, 0.435535E+00_JPRB, 0.419065E+00_JPRB &
+  &, 0.402798E+00_JPRB, 0.386747E+00_JPRB, 0.370934E+00_JPRB &
+  &, 0.355375E+00_JPRB, 0.340080E+00_JPRB, 0.325064E+00_JPRB, 0.310349E+00_JPRB &
+  &, 0.295958E+00_JPRB, 0.281872E+00_JPRB, 0.268138E+00_JPRB &
+  &, 0.254746E+00_JPRB, 0.241710E+00_JPRB, 0.229053E+00_JPRB, 0.216763E+00_JPRB &
+  &, 0.204861E+00_JPRB, 0.193356E+00_JPRB, 0.182242E+00_JPRB &
+  &, 0.171524E+00_JPRB, 0.161205E+00_JPRB, 0.151298E+00_JPRB, 0.141789E+00_JPRB &
+  &, 0.132686E+00_JPRB, 0.123983E+00_JPRB, 0.115684E+00_JPRB &
+  &, 0.107762E+00_JPRB, 0.100247E+00_JPRB, 0.931055E-01_JPRB, 0.863471E-01_JPRB &
+  &, 0.799471E-01_JPRB, 0.738935E-01_JPRB, 0.682065E-01_JPRB &
+  &, 0.628518E-01_JPRB, 0.578271E-01_JPRB, 0.531093E-01_JPRB, 0.487100E-01_JPRB &
+  &, 0.446007E-01_JPRB, 0.407693E-01_JPRB, 0.372007E-01_JPRB &
+  &, 0.338775E-01_JPRB, 0.308225E-01_JPRB, 0.279933E-01_JPRB, 0.253651E-01_JPRB &
+  &, 0.229559E-01_JPRB, 0.207374E-01_JPRB, 0.187020E-01_JPRB &
+  &, 0.168406E-01_JPRB, 0.151425E-01_JPRB, 0.135957E-01_JPRB, 0.121603E-01_JPRB &
+  &, 0.108721E-01_JPRB, 0.971528E-02_JPRB, 0.867226E-02_JPRB &
+  &, 0.769585E-02_JPRB, 0.684832E-02_JPRB, 0.608073E-02_JPRB, 0.536948E-02_JPRB &
+  &, 0.474890E-02_JPRB, 0.419458E-02_JPRB, 0.368000E-02_JPRB &
+  &, 0.323983E-02_JPRB, 0.284661E-02_JPRB, 0.250351E-02_JPRB, 0.218038E-02_JPRB &
+  &, 0.191275E-02_JPRB, 0.163482E-02_JPRB, 0.145196E-02_JPRB &
+  &, 0.126211E-02_JPRB, 0.106518E-02_JPRB, 0.935064E-03_JPRB, 0.800134E-03_JPRB &
+  &, 0.698577E-03_JPRB, 0.593336E-03_JPRB, 0.523887E-03_JPRB &
+  &, 0.411765E-03_JPRB, 0.377463E-03_JPRB, 0.300415E-03_JPRB, 0.262914E-03_JPRB &
+  &, 0.224115E-03_JPRB, 0.183998E-03_JPRB, 0.142546E-03_JPRB &
+  &, 0.144611E-03_JPRB, 0.101130E-03_JPRB, 0.102530E-03_JPRB, 0.569714E-04_JPRB &
+  &, 0.576837E-04_JPRB, 0.584019E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 290, :) = (/ &
+  &  0.942255E+00_JPRB, 0.927172E+00_JPRB, 0.911852E+00_JPRB, 0.896306E+00_JPRB &
+  &, 0.880543E+00_JPRB, 0.864574E+00_JPRB, 0.848414E+00_JPRB &
+  &, 0.832070E+00_JPRB, 0.815557E+00_JPRB, 0.798885E+00_JPRB, 0.782067E+00_JPRB &
+  &, 0.765116E+00_JPRB, 0.748045E+00_JPRB, 0.730866E+00_JPRB &
+  &, 0.713597E+00_JPRB, 0.696246E+00_JPRB, 0.678830E+00_JPRB, 0.661365E+00_JPRB &
+  &, 0.643864E+00_JPRB, 0.626341E+00_JPRB, 0.608816E+00_JPRB &
+  &, 0.591304E+00_JPRB, 0.573818E+00_JPRB, 0.556376E+00_JPRB, 0.538996E+00_JPRB &
+  &, 0.521692E+00_JPRB, 0.504488E+00_JPRB, 0.487394E+00_JPRB &
+  &, 0.470429E+00_JPRB, 0.453613E+00_JPRB, 0.436965E+00_JPRB, 0.420496E+00_JPRB &
+  &, 0.404227E+00_JPRB, 0.388176E+00_JPRB, 0.372358E+00_JPRB &
+  &, 0.356789E+00_JPRB, 0.341482E+00_JPRB, 0.326463E+00_JPRB, 0.311733E+00_JPRB &
+  &, 0.297325E+00_JPRB, 0.283221E+00_JPRB, 0.269467E+00_JPRB &
+  &, 0.256053E+00_JPRB, 0.243004E+00_JPRB, 0.230310E+00_JPRB, 0.218003E+00_JPRB &
+  &, 0.206070E+00_JPRB, 0.194532E+00_JPRB, 0.183384E+00_JPRB &
+  &, 0.172641E+00_JPRB, 0.162295E+00_JPRB, 0.152346E+00_JPRB, 0.142805E+00_JPRB &
+  &, 0.133669E+00_JPRB, 0.124929E+00_JPRB, 0.116592E+00_JPRB &
+  &, 0.108645E+00_JPRB, 0.101088E+00_JPRB, 0.939005E-01_JPRB, 0.871106E-01_JPRB &
+  &, 0.806771E-01_JPRB, 0.745879E-01_JPRB, 0.688632E-01_JPRB &
+  &, 0.634687E-01_JPRB, 0.584207E-01_JPRB, 0.536780E-01_JPRB, 0.492330E-01_JPRB &
+  &, 0.450955E-01_JPRB, 0.412343E-01_JPRB, 0.376343E-01_JPRB &
+  &, 0.342993E-01_JPRB, 0.312101E-01_JPRB, 0.283450E-01_JPRB, 0.257017E-01_JPRB &
+  &, 0.232536E-01_JPRB, 0.210178E-01_JPRB, 0.189643E-01_JPRB &
+  &, 0.170838E-01_JPRB, 0.153658E-01_JPRB, 0.137981E-01_JPRB, 0.123667E-01_JPRB &
+  &, 0.110562E-01_JPRB, 0.987614E-02_JPRB, 0.880889E-02_JPRB &
+  &, 0.783509E-02_JPRB, 0.696182E-02_JPRB, 0.616746E-02_JPRB, 0.545782E-02_JPRB &
+  &, 0.483888E-02_JPRB, 0.425567E-02_JPRB, 0.374220E-02_JPRB &
+  &, 0.330316E-02_JPRB, 0.291108E-02_JPRB, 0.253632E-02_JPRB, 0.221377E-02_JPRB &
+  &, 0.194672E-02_JPRB, 0.170396E-02_JPRB, 0.145196E-02_JPRB &
+  &, 0.126211E-02_JPRB, 0.110157E-02_JPRB, 0.935064E-03_JPRB, 0.837759E-03_JPRB &
+  &, 0.698577E-03_JPRB, 0.593336E-03_JPRB, 0.523887E-03_JPRB &
+  &, 0.451942E-03_JPRB, 0.377463E-03_JPRB, 0.300415E-03_JPRB, 0.262914E-03_JPRB &
+  &, 0.224115E-03_JPRB, 0.183998E-03_JPRB, 0.142546E-03_JPRB &
+  &, 0.144611E-03_JPRB, 0.101130E-03_JPRB, 0.102530E-03_JPRB, 0.569714E-04_JPRB &
+  &, 0.576837E-04_JPRB, 0.584019E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 291, :) = (/ &
+  &  0.942536E+00_JPRB, 0.927521E+00_JPRB, 0.912265E+00_JPRB, 0.896782E+00_JPRB &
+  &, 0.881081E+00_JPRB, 0.865173E+00_JPRB, 0.849070E+00_JPRB &
+  &, 0.832783E+00_JPRB, 0.816324E+00_JPRB, 0.799704E+00_JPRB, 0.782938E+00_JPRB &
+  &, 0.766036E+00_JPRB, 0.749012E+00_JPRB, 0.731878E+00_JPRB &
+  &, 0.714650E+00_JPRB, 0.697340E+00_JPRB, 0.679964E+00_JPRB, 0.662535E+00_JPRB &
+  &, 0.645066E+00_JPRB, 0.627578E+00_JPRB, 0.610081E+00_JPRB &
+  &, 0.592593E+00_JPRB, 0.575134E+00_JPRB, 0.557712E+00_JPRB, 0.540353E+00_JPRB &
+  &, 0.523067E+00_JPRB, 0.505878E+00_JPRB, 0.488798E+00_JPRB &
+  &, 0.471845E+00_JPRB, 0.455036E+00_JPRB, 0.438390E+00_JPRB, 0.421927E+00_JPRB &
+  &, 0.405659E+00_JPRB, 0.389605E+00_JPRB, 0.373782E+00_JPRB &
+  &, 0.358203E+00_JPRB, 0.342894E+00_JPRB, 0.327861E+00_JPRB, 0.313126E+00_JPRB &
+  &, 0.298692E+00_JPRB, 0.284581E+00_JPRB, 0.270796E+00_JPRB &
+  &, 0.257371E+00_JPRB, 0.244287E+00_JPRB, 0.231578E+00_JPRB, 0.219243E+00_JPRB &
+  &, 0.207280E+00_JPRB, 0.195709E+00_JPRB, 0.184538E+00_JPRB &
+  &, 0.173758E+00_JPRB, 0.163372E+00_JPRB, 0.153393E+00_JPRB, 0.143821E+00_JPRB &
+  &, 0.134651E+00_JPRB, 0.125876E+00_JPRB, 0.117501E+00_JPRB &
+  &, 0.109513E+00_JPRB, 0.101928E+00_JPRB, 0.947117E-01_JPRB, 0.878740E-01_JPRB &
+  &, 0.814070E-01_JPRB, 0.752823E-01_JPRB, 0.695200E-01_JPRB &
+  &, 0.641039E-01_JPRB, 0.590142E-01_JPRB, 0.542277E-01_JPRB, 0.497560E-01_JPRB &
+  &, 0.455903E-01_JPRB, 0.416993E-01_JPRB, 0.380680E-01_JPRB &
+  &, 0.347000E-01_JPRB, 0.315762E-01_JPRB, 0.286967E-01_JPRB, 0.260383E-01_JPRB &
+  &, 0.235742E-01_JPRB, 0.213216E-01_JPRB, 0.192265E-01_JPRB &
+  &, 0.173270E-01_JPRB, 0.155891E-01_JPRB, 0.140004E-01_JPRB, 0.125473E-01_JPRB &
+  &, 0.112403E-01_JPRB, 0.100370E-01_JPRB, 0.894552E-02_JPRB &
+  &, 0.797432E-02_JPRB, 0.707532E-02_JPRB, 0.628309E-02_JPRB, 0.557561E-02_JPRB &
+  &, 0.492886E-02_JPRB, 0.434730E-02_JPRB, 0.383551E-02_JPRB &
+  &, 0.336649E-02_JPRB, 0.294331E-02_JPRB, 0.260194E-02_JPRB, 0.228055E-02_JPRB &
+  &, 0.198070E-02_JPRB, 0.173853E-02_JPRB, 0.148713E-02_JPRB &
+  &, 0.129789E-02_JPRB, 0.113795E-02_JPRB, 0.972066E-03_JPRB, 0.837759E-03_JPRB &
+  &, 0.736831E-03_JPRB, 0.632225E-03_JPRB, 0.523887E-03_JPRB &
+  &, 0.451942E-03_JPRB, 0.377463E-03_JPRB, 0.341902E-03_JPRB, 0.262914E-03_JPRB &
+  &, 0.224115E-03_JPRB, 0.183998E-03_JPRB, 0.142546E-03_JPRB &
+  &, 0.144611E-03_JPRB, 0.101130E-03_JPRB, 0.102530E-03_JPRB, 0.569714E-04_JPRB &
+  &, 0.576837E-04_JPRB, 0.584019E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 292, :) = (/ &
+  &  0.942817E+00_JPRB, 0.927868E+00_JPRB, 0.912677E+00_JPRB, 0.897257E+00_JPRB &
+  &, 0.881617E+00_JPRB, 0.865770E+00_JPRB, 0.849725E+00_JPRB &
+  &, 0.833495E+00_JPRB, 0.817090E+00_JPRB, 0.800524E+00_JPRB, 0.783808E+00_JPRB &
+  &, 0.766954E+00_JPRB, 0.749977E+00_JPRB, 0.732889E+00_JPRB &
+  &, 0.715704E+00_JPRB, 0.698434E+00_JPRB, 0.681096E+00_JPRB, 0.663703E+00_JPRB &
+  &, 0.646269E+00_JPRB, 0.628812E+00_JPRB, 0.611345E+00_JPRB &
+  &, 0.593886E+00_JPRB, 0.576450E+00_JPRB, 0.559052E+00_JPRB, 0.541713E+00_JPRB &
+  &, 0.524446E+00_JPRB, 0.507267E+00_JPRB, 0.490203E+00_JPRB &
+  &, 0.473256E+00_JPRB, 0.456458E+00_JPRB, 0.439819E+00_JPRB, 0.423358E+00_JPRB &
+  &, 0.407092E+00_JPRB, 0.391034E+00_JPRB, 0.375211E+00_JPRB &
+  &, 0.359626E+00_JPRB, 0.344305E+00_JPRB, 0.329259E+00_JPRB, 0.314510E+00_JPRB &
+  &, 0.300059E+00_JPRB, 0.285930E+00_JPRB, 0.272135E+00_JPRB &
+  &, 0.258678E+00_JPRB, 0.245581E+00_JPRB, 0.232846E+00_JPRB, 0.220483E+00_JPRB &
+  &, 0.208490E+00_JPRB, 0.196899E+00_JPRB, 0.185692E+00_JPRB &
+  &, 0.174875E+00_JPRB, 0.164462E+00_JPRB, 0.154455E+00_JPRB, 0.144852E+00_JPRB &
+  &, 0.135634E+00_JPRB, 0.126838E+00_JPRB, 0.118425E+00_JPRB &
+  &, 0.110397E+00_JPRB, 0.102769E+00_JPRB, 0.955229E-01_JPRB, 0.886541E-01_JPRB &
+  &, 0.821370E-01_JPRB, 0.759940E-01_JPRB, 0.701945E-01_JPRB &
+  &, 0.647390E-01_JPRB, 0.596078E-01_JPRB, 0.547965E-01_JPRB, 0.502984E-01_JPRB &
+  &, 0.460851E-01_JPRB, 0.421643E-01_JPRB, 0.385223E-01_JPRB &
+  &, 0.351217E-01_JPRB, 0.319637E-01_JPRB, 0.290485E-01_JPRB, 0.263748E-01_JPRB &
+  &, 0.238948E-01_JPRB, 0.216020E-01_JPRB, 0.195126E-01_JPRB &
+  &, 0.175702E-01_JPRB, 0.158123E-01_JPRB, 0.142028E-01_JPRB, 0.127537E-01_JPRB &
+  &, 0.113981E-01_JPRB, 0.101979E-01_JPRB, 0.910947E-02_JPRB &
+  &, 0.811356E-02_JPRB, 0.721720E-02_JPRB, 0.639872E-02_JPRB, 0.566395E-02_JPRB &
+  &, 0.501884E-02_JPRB, 0.443894E-02_JPRB, 0.389771E-02_JPRB &
+  &, 0.342982E-02_JPRB, 0.300778E-02_JPRB, 0.263475E-02_JPRB, 0.231395E-02_JPRB &
+  &, 0.201468E-02_JPRB, 0.177310E-02_JPRB, 0.152230E-02_JPRB &
+  &, 0.133366E-02_JPRB, 0.113795E-02_JPRB, 0.100907E-02_JPRB, 0.875385E-03_JPRB &
+  &, 0.736831E-03_JPRB, 0.632225E-03_JPRB, 0.563417E-03_JPRB &
+  &, 0.451942E-03_JPRB, 0.377463E-03_JPRB, 0.341902E-03_JPRB, 0.305067E-03_JPRB &
+  &, 0.224115E-03_JPRB, 0.183998E-03_JPRB, 0.186728E-03_JPRB &
+  &, 0.144611E-03_JPRB, 0.101130E-03_JPRB, 0.102530E-03_JPRB, 0.569714E-04_JPRB &
+  &, 0.576837E-04_JPRB, 0.584019E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 293, :) = (/ &
+  &  0.943097E+00_JPRB, 0.928215E+00_JPRB, 0.913088E+00_JPRB, 0.897733E+00_JPRB &
+  &, 0.882154E+00_JPRB, 0.866367E+00_JPRB, 0.850380E+00_JPRB &
+  &, 0.834206E+00_JPRB, 0.817856E+00_JPRB, 0.801342E+00_JPRB, 0.784677E+00_JPRB &
+  &, 0.767872E+00_JPRB, 0.750942E+00_JPRB, 0.733899E+00_JPRB &
+  &, 0.716756E+00_JPRB, 0.699527E+00_JPRB, 0.682227E+00_JPRB, 0.664870E+00_JPRB &
+  &, 0.647471E+00_JPRB, 0.630046E+00_JPRB, 0.612610E+00_JPRB &
+  &, 0.595176E+00_JPRB, 0.577766E+00_JPRB, 0.560391E+00_JPRB, 0.543070E+00_JPRB &
+  &, 0.525821E+00_JPRB, 0.508660E+00_JPRB, 0.491607E+00_JPRB &
+  &, 0.474660E+00_JPRB, 0.457880E+00_JPRB, 0.441248E+00_JPRB, 0.424790E+00_JPRB &
+  &, 0.408525E+00_JPRB, 0.392467E+00_JPRB, 0.376636E+00_JPRB &
+  &, 0.361049E+00_JPRB, 0.345717E+00_JPRB, 0.330667E+00_JPRB, 0.315903E+00_JPRB &
+  &, 0.301436E+00_JPRB, 0.287289E+00_JPRB, 0.273475E+00_JPRB &
+  &, 0.259996E+00_JPRB, 0.246875E+00_JPRB, 0.234114E+00_JPRB, 0.221723E+00_JPRB &
+  &, 0.209711E+00_JPRB, 0.198088E+00_JPRB, 0.186847E+00_JPRB &
+  &, 0.176005E+00_JPRB, 0.165566E+00_JPRB, 0.155516E+00_JPRB, 0.145868E+00_JPRB &
+  &, 0.136631E+00_JPRB, 0.127785E+00_JPRB, 0.119333E+00_JPRB &
+  &, 0.111280E+00_JPRB, 0.103625E+00_JPRB, 0.963341E-01_JPRB, 0.894175E-01_JPRB &
+  &, 0.828839E-01_JPRB, 0.767058E-01_JPRB, 0.708690E-01_JPRB &
+  &, 0.653742E-01_JPRB, 0.602199E-01_JPRB, 0.553652E-01_JPRB, 0.508408E-01_JPRB &
+  &, 0.465997E-01_JPRB, 0.426495E-01_JPRB, 0.389559E-01_JPRB &
+  &, 0.355435E-01_JPRB, 0.323729E-01_JPRB, 0.294222E-01_JPRB, 0.267114E-01_JPRB &
+  &, 0.241925E-01_JPRB, 0.218824E-01_JPRB, 0.197749E-01_JPRB &
+  &, 0.178378E-01_JPRB, 0.160356E-01_JPRB, 0.144305E-01_JPRB, 0.129342E-01_JPRB &
+  &, 0.115822E-01_JPRB, 0.103587E-01_JPRB, 0.924610E-02_JPRB &
+  &, 0.822495E-02_JPRB, 0.733069E-02_JPRB, 0.651436E-02_JPRB, 0.578174E-02_JPRB &
+  &, 0.510882E-02_JPRB, 0.450003E-02_JPRB, 0.399102E-02_JPRB &
+  &, 0.349315E-02_JPRB, 0.307225E-02_JPRB, 0.270037E-02_JPRB, 0.234734E-02_JPRB &
+  &, 0.204866E-02_JPRB, 0.180768E-02_JPRB, 0.155747E-02_JPRB &
+  &, 0.136944E-02_JPRB, 0.117434E-02_JPRB, 0.100907E-02_JPRB, 0.875385E-03_JPRB &
+  &, 0.775085E-03_JPRB, 0.671114E-03_JPRB, 0.563417E-03_JPRB &
+  &, 0.492118E-03_JPRB, 0.418292E-03_JPRB, 0.341902E-03_JPRB, 0.305067E-03_JPRB &
+  &, 0.266938E-03_JPRB, 0.227497E-03_JPRB, 0.186728E-03_JPRB &
+  &, 0.144611E-03_JPRB, 0.101130E-03_JPRB, 0.102530E-03_JPRB, 0.569714E-04_JPRB &
+  &, 0.576837E-04_JPRB, 0.584019E-04_JPRB, 0.591261E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 294, :) = (/ &
+  &  0.943377E+00_JPRB, 0.928560E+00_JPRB, 0.913500E+00_JPRB, 0.898207E+00_JPRB &
+  &, 0.882691E+00_JPRB, 0.866962E+00_JPRB, 0.851034E+00_JPRB &
+  &, 0.834917E+00_JPRB, 0.818621E+00_JPRB, 0.802160E+00_JPRB, 0.785546E+00_JPRB &
+  &, 0.768790E+00_JPRB, 0.751907E+00_JPRB, 0.734908E+00_JPRB &
+  &, 0.717808E+00_JPRB, 0.700620E+00_JPRB, 0.683360E+00_JPRB, 0.666038E+00_JPRB &
+  &, 0.648675E+00_JPRB, 0.631280E+00_JPRB, 0.613871E+00_JPRB &
+  &, 0.596466E+00_JPRB, 0.579082E+00_JPRB, 0.561731E+00_JPRB, 0.544431E+00_JPRB &
+  &, 0.527199E+00_JPRB, 0.510054E+00_JPRB, 0.493011E+00_JPRB &
+  &, 0.476091E+00_JPRB, 0.459307E+00_JPRB, 0.442677E+00_JPRB, 0.426225E+00_JPRB &
+  &, 0.409957E+00_JPRB, 0.393901E+00_JPRB, 0.378069E+00_JPRB &
+  &, 0.362472E+00_JPRB, 0.347138E+00_JPRB, 0.332066E+00_JPRB, 0.317287E+00_JPRB &
+  &, 0.302814E+00_JPRB, 0.288648E+00_JPRB, 0.274814E+00_JPRB &
+  &, 0.261325E+00_JPRB, 0.248169E+00_JPRB, 0.235394E+00_JPRB, 0.222975E+00_JPRB &
+  &, 0.210933E+00_JPRB, 0.199277E+00_JPRB, 0.188014E+00_JPRB &
+  &, 0.177135E+00_JPRB, 0.166656E+00_JPRB, 0.156578E+00_JPRB, 0.146898E+00_JPRB &
+  &, 0.137628E+00_JPRB, 0.128746E+00_JPRB, 0.120272E+00_JPRB &
+  &, 0.112179E+00_JPRB, 0.104465E+00_JPRB, 0.971453E-01_JPRB, 0.901976E-01_JPRB &
+  &, 0.836308E-01_JPRB, 0.774175E-01_JPRB, 0.715435E-01_JPRB &
+  &, 0.660093E-01_JPRB, 0.608135E-01_JPRB, 0.559528E-01_JPRB, 0.513832E-01_JPRB &
+  &, 0.471143E-01_JPRB, 0.431145E-01_JPRB, 0.394102E-01_JPRB &
+  &, 0.359652E-01_JPRB, 0.327604E-01_JPRB, 0.297959E-01_JPRB, 0.270480E-01_JPRB &
+  &, 0.245131E-01_JPRB, 0.221862E-01_JPRB, 0.200372E-01_JPRB &
+  &, 0.180810E-01_JPRB, 0.162837E-01_JPRB, 0.146329E-01_JPRB, 0.131406E-01_JPRB &
+  &, 0.117663E-01_JPRB, 0.105196E-01_JPRB, 0.941005E-02_JPRB &
+  &, 0.836418E-02_JPRB, 0.744419E-02_JPRB, 0.662999E-02_JPRB, 0.587009E-02_JPRB &
+  &, 0.519880E-02_JPRB, 0.459166E-02_JPRB, 0.405322E-02_JPRB &
+  &, 0.355648E-02_JPRB, 0.313672E-02_JPRB, 0.276599E-02_JPRB, 0.241412E-02_JPRB &
+  &, 0.211661E-02_JPRB, 0.184225E-02_JPRB, 0.159264E-02_JPRB &
+  &, 0.140521E-02_JPRB, 0.121073E-02_JPRB, 0.104607E-02_JPRB, 0.913010E-03_JPRB &
+  &, 0.775085E-03_JPRB, 0.671114E-03_JPRB, 0.563417E-03_JPRB &
+  &, 0.492118E-03_JPRB, 0.418292E-03_JPRB, 0.341902E-03_JPRB, 0.305067E-03_JPRB &
+  &, 0.266938E-03_JPRB, 0.227497E-03_JPRB, 0.186728E-03_JPRB &
+  &, 0.144611E-03_JPRB, 0.101130E-03_JPRB, 0.102530E-03_JPRB, 0.103943E-03_JPRB &
+  &, 0.576837E-04_JPRB, 0.584019E-04_JPRB, 0.591261E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART42',1,ZHOOK_HANDLE)
+END SUBROUTINE PART42
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART43
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART43',0,ZHOOK_HANDLE)
+
+XCW( 295, :) = (/ &
+  &  0.943656E+00_JPRB, 0.928907E+00_JPRB, 0.913910E+00_JPRB, 0.898681E+00_JPRB &
+  &, 0.883226E+00_JPRB, 0.867558E+00_JPRB, 0.851687E+00_JPRB &
+  &, 0.835626E+00_JPRB, 0.819385E+00_JPRB, 0.802977E+00_JPRB, 0.786413E+00_JPRB &
+  &, 0.769707E+00_JPRB, 0.752870E+00_JPRB, 0.735916E+00_JPRB &
+  &, 0.718859E+00_JPRB, 0.701713E+00_JPRB, 0.684491E+00_JPRB, 0.667206E+00_JPRB &
+  &, 0.649875E+00_JPRB, 0.632515E+00_JPRB, 0.615136E+00_JPRB &
+  &, 0.597759E+00_JPRB, 0.580397E+00_JPRB, 0.563067E+00_JPRB, 0.545788E+00_JPRB &
+  &, 0.528578E+00_JPRB, 0.511447E+00_JPRB, 0.494419E+00_JPRB &
+  &, 0.477507E+00_JPRB, 0.460733E+00_JPRB, 0.444110E+00_JPRB, 0.427661E+00_JPRB &
+  &, 0.411394E+00_JPRB, 0.395334E+00_JPRB, 0.379498E+00_JPRB &
+  &, 0.363895E+00_JPRB, 0.348549E+00_JPRB, 0.333474E+00_JPRB, 0.318690E+00_JPRB &
+  &, 0.304191E+00_JPRB, 0.290018E+00_JPRB, 0.276165E+00_JPRB &
+  &, 0.262643E+00_JPRB, 0.249475E+00_JPRB, 0.236662E+00_JPRB, 0.224227E+00_JPRB &
+  &, 0.212155E+00_JPRB, 0.200467E+00_JPRB, 0.189168E+00_JPRB &
+  &, 0.178265E+00_JPRB, 0.167759E+00_JPRB, 0.157653E+00_JPRB, 0.147943E+00_JPRB &
+  &, 0.138625E+00_JPRB, 0.129708E+00_JPRB, 0.121196E+00_JPRB &
+  &, 0.113062E+00_JPRB, 0.105338E+00_JPRB, 0.979728E-01_JPRB, 0.909942E-01_JPRB &
+  &, 0.843777E-01_JPRB, 0.781293E-01_JPRB, 0.722180E-01_JPRB &
+  &, 0.666626E-01_JPRB, 0.614256E-01_JPRB, 0.565215E-01_JPRB, 0.519256E-01_JPRB &
+  &, 0.476289E-01_JPRB, 0.435998E-01_JPRB, 0.398645E-01_JPRB &
+  &, 0.363870E-01_JPRB, 0.331480E-01_JPRB, 0.301696E-01_JPRB, 0.273846E-01_JPRB &
+  &, 0.248337E-01_JPRB, 0.224900E-01_JPRB, 0.203233E-01_JPRB &
+  &, 0.183242E-01_JPRB, 0.165070E-01_JPRB, 0.148606E-01_JPRB, 0.133212E-01_JPRB &
+  &, 0.119504E-01_JPRB, 0.106804E-01_JPRB, 0.954668E-02_JPRB &
+  &, 0.850342E-02_JPRB, 0.758607E-02_JPRB, 0.674562E-02_JPRB, 0.598788E-02_JPRB &
+  &, 0.528878E-02_JPRB, 0.468329E-02_JPRB, 0.411542E-02_JPRB &
+  &, 0.365147E-02_JPRB, 0.320118E-02_JPRB, 0.279880E-02_JPRB, 0.244751E-02_JPRB &
+  &, 0.215059E-02_JPRB, 0.187682E-02_JPRB, 0.162781E-02_JPRB &
+  &, 0.144099E-02_JPRB, 0.124711E-02_JPRB, 0.108307E-02_JPRB, 0.913010E-03_JPRB &
+  &, 0.813339E-03_JPRB, 0.671114E-03_JPRB, 0.602947E-03_JPRB &
+  &, 0.492118E-03_JPRB, 0.418292E-03_JPRB, 0.383390E-03_JPRB, 0.305067E-03_JPRB &
+  &, 0.266938E-03_JPRB, 0.227497E-03_JPRB, 0.186728E-03_JPRB &
+  &, 0.144611E-03_JPRB, 0.146694E-03_JPRB, 0.102530E-03_JPRB, 0.103943E-03_JPRB &
+  &, 0.576837E-04_JPRB, 0.584019E-04_JPRB, 0.591261E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 296, :) = (/ &
+  &  0.943936E+00_JPRB, 0.929253E+00_JPRB, 0.914312E+00_JPRB, 0.899154E+00_JPRB &
+  &, 0.883760E+00_JPRB, 0.868153E+00_JPRB, 0.852340E+00_JPRB &
+  &, 0.836335E+00_JPRB, 0.820149E+00_JPRB, 0.803794E+00_JPRB, 0.787281E+00_JPRB &
+  &, 0.770622E+00_JPRB, 0.753834E+00_JPRB, 0.736925E+00_JPRB &
+  &, 0.719911E+00_JPRB, 0.702804E+00_JPRB, 0.685620E+00_JPRB, 0.668373E+00_JPRB &
+  &, 0.651077E+00_JPRB, 0.633745E+00_JPRB, 0.616400E+00_JPRB &
+  &, 0.599049E+00_JPRB, 0.581713E+00_JPRB, 0.564407E+00_JPRB, 0.547149E+00_JPRB &
+  &, 0.529953E+00_JPRB, 0.512840E+00_JPRB, 0.495824E+00_JPRB &
+  &, 0.478926E+00_JPRB, 0.462160E+00_JPRB, 0.445544E+00_JPRB, 0.429096E+00_JPRB &
+  &, 0.412831E+00_JPRB, 0.396772E+00_JPRB, 0.380931E+00_JPRB &
+  &, 0.365328E+00_JPRB, 0.349970E+00_JPRB, 0.334882E+00_JPRB, 0.320084E+00_JPRB &
+  &, 0.305579E+00_JPRB, 0.291378E+00_JPRB, 0.277504E+00_JPRB &
+  &, 0.263972E+00_JPRB, 0.250780E+00_JPRB, 0.237942E+00_JPRB, 0.225479E+00_JPRB &
+  &, 0.213389E+00_JPRB, 0.201669E+00_JPRB, 0.190349E+00_JPRB &
+  &, 0.179408E+00_JPRB, 0.168863E+00_JPRB, 0.158728E+00_JPRB, 0.148973E+00_JPRB &
+  &, 0.139637E+00_JPRB, 0.130684E+00_JPRB, 0.122135E+00_JPRB &
+  &, 0.113961E+00_JPRB, 0.106194E+00_JPRB, 0.988002E-01_JPRB, 0.917743E-01_JPRB &
+  &, 0.851246E-01_JPRB, 0.788410E-01_JPRB, 0.729103E-01_JPRB &
+  &, 0.673158E-01_JPRB, 0.620377E-01_JPRB, 0.571092E-01_JPRB, 0.524680E-01_JPRB &
+  &, 0.481434E-01_JPRB, 0.440850E-01_JPRB, 0.403188E-01_JPRB &
+  &, 0.368088E-01_JPRB, 0.335571E-01_JPRB, 0.305433E-01_JPRB, 0.277436E-01_JPRB &
+  &, 0.251543E-01_JPRB, 0.227938E-01_JPRB, 0.206094E-01_JPRB &
+  &, 0.185918E-01_JPRB, 0.167550E-01_JPRB, 0.150630E-01_JPRB, 0.135276E-01_JPRB &
+  &, 0.121345E-01_JPRB, 0.108681E-01_JPRB, 0.971064E-02_JPRB &
+  &, 0.867051E-02_JPRB, 0.769957E-02_JPRB, 0.686125E-02_JPRB, 0.607622E-02_JPRB &
+  &, 0.537876E-02_JPRB, 0.477492E-02_JPRB, 0.420873E-02_JPRB &
+  &, 0.371480E-02_JPRB, 0.326565E-02_JPRB, 0.286442E-02_JPRB, 0.251429E-02_JPRB &
+  &, 0.218457E-02_JPRB, 0.191139E-02_JPRB, 0.166298E-02_JPRB &
+  &, 0.144099E-02_JPRB, 0.128350E-02_JPRB, 0.108307E-02_JPRB, 0.950636E-03_JPRB &
+  &, 0.813339E-03_JPRB, 0.710003E-03_JPRB, 0.602947E-03_JPRB &
+  &, 0.532294E-03_JPRB, 0.459121E-03_JPRB, 0.383390E-03_JPRB, 0.305067E-03_JPRB &
+  &, 0.266938E-03_JPRB, 0.227497E-03_JPRB, 0.186728E-03_JPRB &
+  &, 0.144611E-03_JPRB, 0.146694E-03_JPRB, 0.102530E-03_JPRB, 0.103943E-03_JPRB &
+  &, 0.576837E-04_JPRB, 0.584019E-04_JPRB, 0.591261E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 297, :) = (/ &
+  &  0.944215E+00_JPRB, 0.929598E+00_JPRB, 0.914730E+00_JPRB, 0.899627E+00_JPRB &
+  &, 0.884295E+00_JPRB, 0.868746E+00_JPRB, 0.852993E+00_JPRB &
+  &, 0.837044E+00_JPRB, 0.820912E+00_JPRB, 0.804609E+00_JPRB, 0.788148E+00_JPRB &
+  &, 0.771539E+00_JPRB, 0.754796E+00_JPRB, 0.737932E+00_JPRB &
+  &, 0.720960E+00_JPRB, 0.703896E+00_JPRB, 0.686750E+00_JPRB, 0.669539E+00_JPRB &
+  &, 0.652278E+00_JPRB, 0.634980E+00_JPRB, 0.617662E+00_JPRB &
+  &, 0.600338E+00_JPRB, 0.583029E+00_JPRB, 0.565746E+00_JPRB, 0.548509E+00_JPRB &
+  &, 0.531331E+00_JPRB, 0.514233E+00_JPRB, 0.497232E+00_JPRB &
+  &, 0.480345E+00_JPRB, 0.463586E+00_JPRB, 0.446977E+00_JPRB, 0.430531E+00_JPRB &
+  &, 0.414273E+00_JPRB, 0.398210E+00_JPRB, 0.382369E+00_JPRB &
+  &, 0.366751E+00_JPRB, 0.351391E+00_JPRB, 0.336300E+00_JPRB, 0.321477E+00_JPRB &
+  &, 0.306966E+00_JPRB, 0.292748E+00_JPRB, 0.278855E+00_JPRB &
+  &, 0.265300E+00_JPRB, 0.252086E+00_JPRB, 0.239233E+00_JPRB, 0.226731E+00_JPRB &
+  &, 0.214611E+00_JPRB, 0.202871E+00_JPRB, 0.191516E+00_JPRB &
+  &, 0.180551E+00_JPRB, 0.169980E+00_JPRB, 0.159803E+00_JPRB, 0.150018E+00_JPRB &
+  &, 0.140648E+00_JPRB, 0.131661E+00_JPRB, 0.123074E+00_JPRB &
+  &, 0.114875E+00_JPRB, 0.107066E+00_JPRB, 0.996277E-01_JPRB, 0.925709E-01_JPRB &
+  &, 0.858885E-01_JPRB, 0.795702E-01_JPRB, 0.736026E-01_JPRB &
+  &, 0.679691E-01_JPRB, 0.626684E-01_JPRB, 0.576969E-01_JPRB, 0.530298E-01_JPRB &
+  &, 0.486580E-01_JPRB, 0.445904E-01_JPRB, 0.407938E-01_JPRB &
+  &, 0.372516E-01_JPRB, 0.339662E-01_JPRB, 0.309169E-01_JPRB, 0.281026E-01_JPRB &
+  &, 0.254978E-01_JPRB, 0.230976E-01_JPRB, 0.208955E-01_JPRB &
+  &, 0.188593E-01_JPRB, 0.170031E-01_JPRB, 0.152907E-01_JPRB, 0.137339E-01_JPRB &
+  &, 0.123187E-01_JPRB, 0.110290E-01_JPRB, 0.987459E-02_JPRB &
+  &, 0.880974E-02_JPRB, 0.784144E-02_JPRB, 0.697689E-02_JPRB, 0.619401E-02_JPRB &
+  &, 0.549873E-02_JPRB, 0.486656E-02_JPRB, 0.430203E-02_JPRB &
+  &, 0.377813E-02_JPRB, 0.333012E-02_JPRB, 0.293003E-02_JPRB, 0.258107E-02_JPRB &
+  &, 0.225252E-02_JPRB, 0.194596E-02_JPRB, 0.169815E-02_JPRB &
+  &, 0.147676E-02_JPRB, 0.128350E-02_JPRB, 0.112008E-02_JPRB, 0.988261E-03_JPRB &
+  &, 0.851594E-03_JPRB, 0.710003E-03_JPRB, 0.602947E-03_JPRB &
+  &, 0.532294E-03_JPRB, 0.459121E-03_JPRB, 0.383390E-03_JPRB, 0.347219E-03_JPRB &
+  &, 0.266938E-03_JPRB, 0.227497E-03_JPRB, 0.186728E-03_JPRB &
+  &, 0.144611E-03_JPRB, 0.146694E-03_JPRB, 0.102530E-03_JPRB, 0.103943E-03_JPRB &
+  &, 0.576837E-04_JPRB, 0.584019E-04_JPRB, 0.591261E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 298, :) = (/ &
+  &  0.944494E+00_JPRB, 0.929942E+00_JPRB, 0.915139E+00_JPRB, 0.900099E+00_JPRB &
+  &, 0.884828E+00_JPRB, 0.869340E+00_JPRB, 0.853644E+00_JPRB &
+  &, 0.837751E+00_JPRB, 0.821674E+00_JPRB, 0.805424E+00_JPRB, 0.789013E+00_JPRB &
+  &, 0.772453E+00_JPRB, 0.755757E+00_JPRB, 0.738939E+00_JPRB &
+  &, 0.722011E+00_JPRB, 0.704986E+00_JPRB, 0.687879E+00_JPRB, 0.670705E+00_JPRB &
+  &, 0.653479E+00_JPRB, 0.636214E+00_JPRB, 0.618926E+00_JPRB &
+  &, 0.601631E+00_JPRB, 0.584345E+00_JPRB, 0.567086E+00_JPRB, 0.549870E+00_JPRB &
+  &, 0.532710E+00_JPRB, 0.515627E+00_JPRB, 0.498640E+00_JPRB &
+  &, 0.481765E+00_JPRB, 0.465013E+00_JPRB, 0.448410E+00_JPRB, 0.431971E+00_JPRB &
+  &, 0.415710E+00_JPRB, 0.399652E+00_JPRB, 0.383802E+00_JPRB &
+  &, 0.368183E+00_JPRB, 0.352812E+00_JPRB, 0.337708E+00_JPRB, 0.322881E+00_JPRB &
+  &, 0.308343E+00_JPRB, 0.294118E+00_JPRB, 0.280216E+00_JPRB &
+  &, 0.266629E+00_JPRB, 0.253403E+00_JPRB, 0.240513E+00_JPRB, 0.227995E+00_JPRB &
+  &, 0.215845E+00_JPRB, 0.204085E+00_JPRB, 0.192696E+00_JPRB &
+  &, 0.181694E+00_JPRB, 0.171097E+00_JPRB, 0.160878E+00_JPRB, 0.151076E+00_JPRB &
+  &, 0.141660E+00_JPRB, 0.132637E+00_JPRB, 0.124012E+00_JPRB &
+  &, 0.115774E+00_JPRB, 0.107922E+00_JPRB, 0.100471E+00_JPRB, 0.933676E-01_JPRB &
+  &, 0.866524E-01_JPRB, 0.802993E-01_JPRB, 0.742948E-01_JPRB &
+  &, 0.686224E-01_JPRB, 0.632990E-01_JPRB, 0.582846E-01_JPRB, 0.535916E-01_JPRB &
+  &, 0.491924E-01_JPRB, 0.450757E-01_JPRB, 0.412481E-01_JPRB &
+  &, 0.376734E-01_JPRB, 0.343753E-01_JPRB, 0.312906E-01_JPRB, 0.284616E-01_JPRB &
+  &, 0.258184E-01_JPRB, 0.234014E-01_JPRB, 0.211577E-01_JPRB &
+  &, 0.191268E-01_JPRB, 0.172512E-01_JPRB, 0.155184E-01_JPRB, 0.139403E-01_JPRB &
+  &, 0.125028E-01_JPRB, 0.112166E-01_JPRB, 0.100112E-01_JPRB &
+  &, 0.894898E-02_JPRB, 0.798331E-02_JPRB, 0.709252E-02_JPRB, 0.631180E-02_JPRB &
+  &, 0.558871E-02_JPRB, 0.495819E-02_JPRB, 0.436424E-02_JPRB &
+  &, 0.384146E-02_JPRB, 0.339459E-02_JPRB, 0.299565E-02_JPRB, 0.261446E-02_JPRB &
+  &, 0.228650E-02_JPRB, 0.201510E-02_JPRB, 0.173332E-02_JPRB &
+  &, 0.151254E-02_JPRB, 0.131988E-02_JPRB, 0.115708E-02_JPRB, 0.988261E-03_JPRB &
+  &, 0.851594E-03_JPRB, 0.748892E-03_JPRB, 0.642477E-03_JPRB &
+  &, 0.532294E-03_JPRB, 0.459121E-03_JPRB, 0.383390E-03_JPRB, 0.347219E-03_JPRB &
+  &, 0.266938E-03_JPRB, 0.227497E-03_JPRB, 0.186728E-03_JPRB &
+  &, 0.189481E-03_JPRB, 0.146694E-03_JPRB, 0.102530E-03_JPRB, 0.103943E-03_JPRB &
+  &, 0.576837E-04_JPRB, 0.584019E-04_JPRB, 0.591261E-04_JPRB &
+  &, 0.598563E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 299, :) = (/ &
+  &  0.944772E+00_JPRB, 0.930286E+00_JPRB, 0.915548E+00_JPRB, 0.900571E+00_JPRB &
+  &, 0.885361E+00_JPRB, 0.869933E+00_JPRB, 0.854294E+00_JPRB &
+  &, 0.838458E+00_JPRB, 0.822436E+00_JPRB, 0.806238E+00_JPRB, 0.789879E+00_JPRB &
+  &, 0.773368E+00_JPRB, 0.756718E+00_JPRB, 0.739943E+00_JPRB &
+  &, 0.723059E+00_JPRB, 0.706076E+00_JPRB, 0.689009E+00_JPRB, 0.671872E+00_JPRB &
+  &, 0.654679E+00_JPRB, 0.637445E+00_JPRB, 0.620188E+00_JPRB &
+  &, 0.602921E+00_JPRB, 0.585661E+00_JPRB, 0.568425E+00_JPRB, 0.551230E+00_JPRB &
+  &, 0.534088E+00_JPRB, 0.517024E+00_JPRB, 0.500048E+00_JPRB &
+  &, 0.483184E+00_JPRB, 0.466443E+00_JPRB, 0.449847E+00_JPRB, 0.433411E+00_JPRB &
+  &, 0.417155E+00_JPRB, 0.401090E+00_JPRB, 0.385240E+00_JPRB &
+  &, 0.369616E+00_JPRB, 0.354242E+00_JPRB, 0.339125E+00_JPRB, 0.324285E+00_JPRB &
+  &, 0.309741E+00_JPRB, 0.295498E+00_JPRB, 0.281566E+00_JPRB &
+  &, 0.267969E+00_JPRB, 0.254708E+00_JPRB, 0.241805E+00_JPRB, 0.229259E+00_JPRB &
+  &, 0.217092E+00_JPRB, 0.205287E+00_JPRB, 0.193876E+00_JPRB &
+  &, 0.182851E+00_JPRB, 0.172214E+00_JPRB, 0.161967E+00_JPRB, 0.152121E+00_JPRB &
+  &, 0.142672E+00_JPRB, 0.133613E+00_JPRB, 0.124951E+00_JPRB &
+  &, 0.116688E+00_JPRB, 0.108810E+00_JPRB, 0.101299E+00_JPRB, 0.941808E-01_JPRB &
+  &, 0.874163E-01_JPRB, 0.810284E-01_JPRB, 0.749871E-01_JPRB &
+  &, 0.692757E-01_JPRB, 0.639112E-01_JPRB, 0.588723E-01_JPRB, 0.541533E-01_JPRB &
+  &, 0.497268E-01_JPRB, 0.455811E-01_JPRB, 0.417230E-01_JPRB &
+  &, 0.381162E-01_JPRB, 0.347845E-01_JPRB, 0.316863E-01_JPRB, 0.288206E-01_JPRB &
+  &, 0.261619E-01_JPRB, 0.237051E-01_JPRB, 0.214677E-01_JPRB &
+  &, 0.193944E-01_JPRB, 0.174744E-01_JPRB, 0.157461E-01_JPRB, 0.141467E-01_JPRB &
+  &, 0.127132E-01_JPRB, 0.113775E-01_JPRB, 0.101752E-01_JPRB &
+  &, 0.908821E-02_JPRB, 0.809681E-02_JPRB, 0.720815E-02_JPRB, 0.640014E-02_JPRB &
+  &, 0.567869E-02_JPRB, 0.504982E-02_JPRB, 0.445754E-02_JPRB &
+  &, 0.393645E-02_JPRB, 0.345906E-02_JPRB, 0.302846E-02_JPRB, 0.268124E-02_JPRB &
+  &, 0.235446E-02_JPRB, 0.204967E-02_JPRB, 0.180366E-02_JPRB &
+  &, 0.154831E-02_JPRB, 0.135627E-02_JPRB, 0.119408E-02_JPRB, 0.102589E-02_JPRB &
+  &, 0.889848E-03_JPRB, 0.748892E-03_JPRB, 0.642477E-03_JPRB &
+  &, 0.572471E-03_JPRB, 0.499950E-03_JPRB, 0.424878E-03_JPRB, 0.347219E-03_JPRB &
+  &, 0.309761E-03_JPRB, 0.270997E-03_JPRB, 0.230910E-03_JPRB &
+  &, 0.189481E-03_JPRB, 0.146694E-03_JPRB, 0.102530E-03_JPRB, 0.103943E-03_JPRB &
+  &, 0.576837E-04_JPRB, 0.584019E-04_JPRB, 0.591261E-04_JPRB &
+  &, 0.598563E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 300, :) = (/ &
+  &  0.945050E+00_JPRB, 0.930630E+00_JPRB, 0.915956E+00_JPRB, 0.901042E+00_JPRB &
+  &, 0.885894E+00_JPRB, 0.870524E+00_JPRB, 0.854944E+00_JPRB &
+  &, 0.839165E+00_JPRB, 0.823196E+00_JPRB, 0.807052E+00_JPRB, 0.790742E+00_JPRB &
+  &, 0.774280E+00_JPRB, 0.757679E+00_JPRB, 0.740951E+00_JPRB &
+  &, 0.724108E+00_JPRB, 0.707166E+00_JPRB, 0.690137E+00_JPRB, 0.673036E+00_JPRB &
+  &, 0.655879E+00_JPRB, 0.638679E+00_JPRB, 0.621449E+00_JPRB &
+  &, 0.604211E+00_JPRB, 0.586977E+00_JPRB, 0.569765E+00_JPRB, 0.552591E+00_JPRB &
+  &, 0.535467E+00_JPRB, 0.518421E+00_JPRB, 0.501460E+00_JPRB &
+  &, 0.484603E+00_JPRB, 0.467874E+00_JPRB, 0.451285E+00_JPRB, 0.434850E+00_JPRB &
+  &, 0.418597E+00_JPRB, 0.402532E+00_JPRB, 0.386683E+00_JPRB &
+  &, 0.371057E+00_JPRB, 0.355673E+00_JPRB, 0.340543E+00_JPRB, 0.325698E+00_JPRB &
+  &, 0.311129E+00_JPRB, 0.296868E+00_JPRB, 0.282928E+00_JPRB &
+  &, 0.269309E+00_JPRB, 0.256025E+00_JPRB, 0.243096E+00_JPRB, 0.230535E+00_JPRB &
+  &, 0.218326E+00_JPRB, 0.206501E+00_JPRB, 0.195056E+00_JPRB &
+  &, 0.183994E+00_JPRB, 0.173331E+00_JPRB, 0.163056E+00_JPRB, 0.153179E+00_JPRB &
+  &, 0.143698E+00_JPRB, 0.134605E+00_JPRB, 0.125905E+00_JPRB &
+  &, 0.117603E+00_JPRB, 0.109683E+00_JPRB, 0.102142E+00_JPRB, 0.949941E-01_JPRB &
+  &, 0.881972E-01_JPRB, 0.817575E-01_JPRB, 0.756793E-01_JPRB &
+  &, 0.699471E-01_JPRB, 0.645418E-01_JPRB, 0.594789E-01_JPRB, 0.547151E-01_JPRB &
+  &, 0.502612E-01_JPRB, 0.460866E-01_JPRB, 0.421980E-01_JPRB &
+  &, 0.385591E-01_JPRB, 0.351936E-01_JPRB, 0.320600E-01_JPRB, 0.291796E-01_JPRB &
+  &, 0.265054E-01_JPRB, 0.240323E-01_JPRB, 0.217538E-01_JPRB &
+  &, 0.196619E-01_JPRB, 0.177225E-01_JPRB, 0.159738E-01_JPRB, 0.143789E-01_JPRB &
+  &, 0.128973E-01_JPRB, 0.115652E-01_JPRB, 0.103391E-01_JPRB &
+  &, 0.925530E-02_JPRB, 0.823869E-02_JPRB, 0.735269E-02_JPRB, 0.651793E-02_JPRB &
+  &, 0.579866E-02_JPRB, 0.514146E-02_JPRB, 0.455085E-02_JPRB &
+  &, 0.399978E-02_JPRB, 0.352353E-02_JPRB, 0.309408E-02_JPRB, 0.271463E-02_JPRB &
+  &, 0.238843E-02_JPRB, 0.208424E-02_JPRB, 0.183883E-02_JPRB &
+  &, 0.158409E-02_JPRB, 0.139265E-02_JPRB, 0.119408E-02_JPRB, 0.102589E-02_JPRB &
+  &, 0.889848E-03_JPRB, 0.787781E-03_JPRB, 0.682006E-03_JPRB &
+  &, 0.572471E-03_JPRB, 0.499950E-03_JPRB, 0.424878E-03_JPRB, 0.347219E-03_JPRB &
+  &, 0.309761E-03_JPRB, 0.270997E-03_JPRB, 0.230910E-03_JPRB &
+  &, 0.189481E-03_JPRB, 0.146694E-03_JPRB, 0.102530E-03_JPRB, 0.103943E-03_JPRB &
+  &, 0.105367E-03_JPRB, 0.584019E-04_JPRB, 0.591261E-04_JPRB &
+  &, 0.598563E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 301, :) = (/ &
+  &  0.945328E+00_JPRB, 0.930973E+00_JPRB, 0.916364E+00_JPRB, 0.901512E+00_JPRB &
+  &, 0.886425E+00_JPRB, 0.871116E+00_JPRB, 0.855594E+00_JPRB &
+  &, 0.839870E+00_JPRB, 0.823956E+00_JPRB, 0.807865E+00_JPRB, 0.791606E+00_JPRB &
+  &, 0.775194E+00_JPRB, 0.758639E+00_JPRB, 0.741955E+00_JPRB &
+  &, 0.725156E+00_JPRB, 0.708256E+00_JPRB, 0.691265E+00_JPRB, 0.674201E+00_JPRB &
+  &, 0.657078E+00_JPRB, 0.639910E+00_JPRB, 0.622714E+00_JPRB &
+  &, 0.605504E+00_JPRB, 0.588293E+00_JPRB, 0.571105E+00_JPRB, 0.553951E+00_JPRB &
+  &, 0.536849E+00_JPRB, 0.519814E+00_JPRB, 0.502868E+00_JPRB &
+  &, 0.486027E+00_JPRB, 0.469304E+00_JPRB, 0.452722E+00_JPRB, 0.436294E+00_JPRB &
+  &, 0.420042E+00_JPRB, 0.403979E+00_JPRB, 0.388125E+00_JPRB &
+  &, 0.372490E+00_JPRB, 0.357103E+00_JPRB, 0.341961E+00_JPRB, 0.327102E+00_JPRB &
+  &, 0.312527E+00_JPRB, 0.298249E+00_JPRB, 0.284289E+00_JPRB &
+  &, 0.270649E+00_JPRB, 0.257353E+00_JPRB, 0.244399E+00_JPRB, 0.231799E+00_JPRB &
+  &, 0.219572E+00_JPRB, 0.207716E+00_JPRB, 0.196249E+00_JPRB &
+  &, 0.185150E+00_JPRB, 0.174462E+00_JPRB, 0.164145E+00_JPRB, 0.154238E+00_JPRB &
+  &, 0.144724E+00_JPRB, 0.135596E+00_JPRB, 0.126859E+00_JPRB &
+  &, 0.118517E+00_JPRB, 0.110571E+00_JPRB, 0.103002E+00_JPRB, 0.957907E-01_JPRB &
+  &, 0.889780E-01_JPRB, 0.825040E-01_JPRB, 0.763893E-01_JPRB &
+  &, 0.706185E-01_JPRB, 0.651910E-01_JPRB, 0.600855E-01_JPRB, 0.552769E-01_JPRB &
+  &, 0.507955E-01_JPRB, 0.465920E-01_JPRB, 0.426729E-01_JPRB &
+  &, 0.390230E-01_JPRB, 0.356242E-01_JPRB, 0.324557E-01_JPRB, 0.295386E-01_JPRB &
+  &, 0.268260E-01_JPRB, 0.243361E-01_JPRB, 0.220399E-01_JPRB &
+  &, 0.199294E-01_JPRB, 0.179954E-01_JPRB, 0.162015E-01_JPRB, 0.145852E-01_JPRB &
+  &, 0.131077E-01_JPRB, 0.117529E-01_JPRB, 0.105031E-01_JPRB &
+  &, 0.939453E-02_JPRB, 0.838056E-02_JPRB, 0.746833E-02_JPRB, 0.663573E-02_JPRB &
+  &, 0.588864E-02_JPRB, 0.523309E-02_JPRB, 0.461305E-02_JPRB &
+  &, 0.409478E-02_JPRB, 0.358799E-02_JPRB, 0.315970E-02_JPRB, 0.278141E-02_JPRB &
+  &, 0.245639E-02_JPRB, 0.215338E-02_JPRB, 0.187399E-02_JPRB &
+  &, 0.161986E-02_JPRB, 0.142904E-02_JPRB, 0.123108E-02_JPRB, 0.106351E-02_JPRB &
+  &, 0.928102E-03_JPRB, 0.787781E-03_JPRB, 0.682006E-03_JPRB &
+  &, 0.572471E-03_JPRB, 0.499950E-03_JPRB, 0.424878E-03_JPRB, 0.389372E-03_JPRB &
+  &, 0.309761E-03_JPRB, 0.270997E-03_JPRB, 0.230910E-03_JPRB &
+  &, 0.189481E-03_JPRB, 0.146694E-03_JPRB, 0.148795E-03_JPRB, 0.103943E-03_JPRB &
+  &, 0.105367E-03_JPRB, 0.584019E-04_JPRB, 0.591261E-04_JPRB &
+  &, 0.598563E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART43',1,ZHOOK_HANDLE)
+END SUBROUTINE PART43
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART44
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART44',0,ZHOOK_HANDLE)
+
+XCW( 302, :) = (/ &
+  &  0.945605E+00_JPRB, 0.931316E+00_JPRB, 0.916771E+00_JPRB, 0.901982E+00_JPRB &
+  &, 0.886957E+00_JPRB, 0.871707E+00_JPRB, 0.856242E+00_JPRB &
+  &, 0.840575E+00_JPRB, 0.824716E+00_JPRB, 0.808677E+00_JPRB, 0.792469E+00_JPRB &
+  &, 0.776105E+00_JPRB, 0.759599E+00_JPRB, 0.742960E+00_JPRB &
+  &, 0.726204E+00_JPRB, 0.709344E+00_JPRB, 0.692393E+00_JPRB, 0.675366E+00_JPRB &
+  &, 0.658278E+00_JPRB, 0.641140E+00_JPRB, 0.623975E+00_JPRB &
+  &, 0.606794E+00_JPRB, 0.589612E+00_JPRB, 0.572444E+00_JPRB, 0.555312E+00_JPRB &
+  &, 0.538228E+00_JPRB, 0.521211E+00_JPRB, 0.504280E+00_JPRB &
+  &, 0.487450E+00_JPRB, 0.470735E+00_JPRB, 0.454160E+00_JPRB, 0.437738E+00_JPRB &
+  &, 0.421488E+00_JPRB, 0.405426E+00_JPRB, 0.389567E+00_JPRB &
+  &, 0.373931E+00_JPRB, 0.358534E+00_JPRB, 0.343389E+00_JPRB, 0.328515E+00_JPRB &
+  &, 0.313925E+00_JPRB, 0.299629E+00_JPRB, 0.285650E+00_JPRB &
+  &, 0.271989E+00_JPRB, 0.258670E+00_JPRB, 0.245702E+00_JPRB, 0.233075E+00_JPRB &
+  &, 0.220818E+00_JPRB, 0.208943E+00_JPRB, 0.197442E+00_JPRB &
+  &, 0.186320E+00_JPRB, 0.175592E+00_JPRB, 0.165247E+00_JPRB, 0.155296E+00_JPRB &
+  &, 0.145750E+00_JPRB, 0.136587E+00_JPRB, 0.127828E+00_JPRB &
+  &, 0.119447E+00_JPRB, 0.111459E+00_JPRB, 0.103846E+00_JPRB, 0.966206E-01_JPRB &
+  &, 0.897589E-01_JPRB, 0.832505E-01_JPRB, 0.770994E-01_JPRB &
+  &, 0.712899E-01_JPRB, 0.658217E-01_JPRB, 0.606921E-01_JPRB, 0.558580E-01_JPRB &
+  &, 0.513299E-01_JPRB, 0.470975E-01_JPRB, 0.431479E-01_JPRB &
+  &, 0.394659E-01_JPRB, 0.360333E-01_JPRB, 0.328514E-01_JPRB, 0.298976E-01_JPRB &
+  &, 0.271695E-01_JPRB, 0.246632E-01_JPRB, 0.223498E-01_JPRB &
+  &, 0.201970E-01_JPRB, 0.182435E-01_JPRB, 0.164545E-01_JPRB, 0.147916E-01_JPRB &
+  &, 0.132918E-01_JPRB, 0.119137E-01_JPRB, 0.106670E-01_JPRB &
+  &, 0.953377E-02_JPRB, 0.852244E-02_JPRB, 0.758396E-02_JPRB, 0.675352E-02_JPRB &
+  &, 0.600861E-02_JPRB, 0.532472E-02_JPRB, 0.470636E-02_JPRB &
+  &, 0.415811E-02_JPRB, 0.365246E-02_JPRB, 0.322532E-02_JPRB, 0.284819E-02_JPRB &
+  &, 0.249037E-02_JPRB, 0.218795E-02_JPRB, 0.190916E-02_JPRB &
+  &, 0.165564E-02_JPRB, 0.146543E-02_JPRB, 0.126809E-02_JPRB, 0.110114E-02_JPRB &
+  &, 0.928102E-03_JPRB, 0.826670E-03_JPRB, 0.721536E-03_JPRB &
+  &, 0.612648E-03_JPRB, 0.499950E-03_JPRB, 0.424878E-03_JPRB, 0.389372E-03_JPRB &
+  &, 0.309761E-03_JPRB, 0.270997E-03_JPRB, 0.230910E-03_JPRB &
+  &, 0.189481E-03_JPRB, 0.146694E-03_JPRB, 0.148795E-03_JPRB, 0.103943E-03_JPRB &
+  &, 0.105367E-03_JPRB, 0.584019E-04_JPRB, 0.591261E-04_JPRB &
+  &, 0.598563E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 303, :) = (/ &
+  &  0.945881E+00_JPRB, 0.931659E+00_JPRB, 0.917178E+00_JPRB, 0.902451E+00_JPRB &
+  &, 0.887488E+00_JPRB, 0.872297E+00_JPRB, 0.856891E+00_JPRB &
+  &, 0.841280E+00_JPRB, 0.825474E+00_JPRB, 0.809489E+00_JPRB, 0.793332E+00_JPRB &
+  &, 0.777017E+00_JPRB, 0.760557E+00_JPRB, 0.743964E+00_JPRB &
+  &, 0.727251E+00_JPRB, 0.710431E+00_JPRB, 0.693521E+00_JPRB, 0.676531E+00_JPRB &
+  &, 0.659477E+00_JPRB, 0.642375E+00_JPRB, 0.625236E+00_JPRB &
+  &, 0.608083E+00_JPRB, 0.590928E+00_JPRB, 0.573784E+00_JPRB, 0.556673E+00_JPRB &
+  &, 0.539610E+00_JPRB, 0.522608E+00_JPRB, 0.505692E+00_JPRB &
+  &, 0.488873E+00_JPRB, 0.472169E+00_JPRB, 0.455601E+00_JPRB, 0.439182E+00_JPRB &
+  &, 0.422934E+00_JPRB, 0.406873E+00_JPRB, 0.391010E+00_JPRB &
+  &, 0.375373E+00_JPRB, 0.359965E+00_JPRB, 0.344816E+00_JPRB, 0.329929E+00_JPRB &
+  &, 0.315323E+00_JPRB, 0.301020E+00_JPRB, 0.287022E+00_JPRB &
+  &, 0.273341E+00_JPRB, 0.259998E+00_JPRB, 0.247006E+00_JPRB, 0.234362E+00_JPRB &
+  &, 0.222077E+00_JPRB, 0.210170E+00_JPRB, 0.198635E+00_JPRB &
+  &, 0.187489E+00_JPRB, 0.176723E+00_JPRB, 0.166350E+00_JPRB, 0.156369E+00_JPRB &
+  &, 0.146790E+00_JPRB, 0.137593E+00_JPRB, 0.128782E+00_JPRB &
+  &, 0.120377E+00_JPRB, 0.112347E+00_JPRB, 0.104706E+00_JPRB, 0.974338E-01_JPRB &
+  &, 0.905398E-01_JPRB, 0.839969E-01_JPRB, 0.778094E-01_JPRB &
+  &, 0.719795E-01_JPRB, 0.664709E-01_JPRB, 0.612988E-01_JPRB, 0.564392E-01_JPRB &
+  &, 0.518841E-01_JPRB, 0.476231E-01_JPRB, 0.436228E-01_JPRB &
+  &, 0.399087E-01_JPRB, 0.364640E-01_JPRB, 0.332471E-01_JPRB, 0.302791E-01_JPRB &
+  &, 0.275359E-01_JPRB, 0.249904E-01_JPRB, 0.226359E-01_JPRB &
+  &, 0.204888E-01_JPRB, 0.184915E-01_JPRB, 0.166822E-01_JPRB, 0.150238E-01_JPRB &
+  &, 0.135022E-01_JPRB, 0.121014E-01_JPRB, 0.108583E-01_JPRB &
+  &, 0.970086E-02_JPRB, 0.866431E-02_JPRB, 0.772850E-02_JPRB, 0.687131E-02_JPRB &
+  &, 0.609859E-02_JPRB, 0.541636E-02_JPRB, 0.479966E-02_JPRB &
+  &, 0.425310E-02_JPRB, 0.374916E-02_JPRB, 0.329094E-02_JPRB, 0.288158E-02_JPRB &
+  &, 0.255832E-02_JPRB, 0.222252E-02_JPRB, 0.194433E-02_JPRB &
+  &, 0.169141E-02_JPRB, 0.146543E-02_JPRB, 0.130509E-02_JPRB, 0.110114E-02_JPRB &
+  &, 0.966356E-03_JPRB, 0.826670E-03_JPRB, 0.721536E-03_JPRB &
+  &, 0.612648E-03_JPRB, 0.540779E-03_JPRB, 0.466366E-03_JPRB, 0.389372E-03_JPRB &
+  &, 0.309761E-03_JPRB, 0.270997E-03_JPRB, 0.230910E-03_JPRB &
+  &, 0.189481E-03_JPRB, 0.146694E-03_JPRB, 0.148795E-03_JPRB, 0.103943E-03_JPRB &
+  &, 0.105367E-03_JPRB, 0.584019E-04_JPRB, 0.591261E-04_JPRB &
+  &, 0.598563E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 304, :) = (/ &
+  &  0.946157E+00_JPRB, 0.932000E+00_JPRB, 0.917584E+00_JPRB, 0.902921E+00_JPRB &
+  &, 0.888016E+00_JPRB, 0.872886E+00_JPRB, 0.857538E+00_JPRB &
+  &, 0.841983E+00_JPRB, 0.826233E+00_JPRB, 0.810299E+00_JPRB, 0.794194E+00_JPRB &
+  &, 0.777927E+00_JPRB, 0.761514E+00_JPRB, 0.744967E+00_JPRB &
+  &, 0.728297E+00_JPRB, 0.711520E+00_JPRB, 0.694647E+00_JPRB, 0.677694E+00_JPRB &
+  &, 0.660675E+00_JPRB, 0.643605E+00_JPRB, 0.626501E+00_JPRB &
+  &, 0.609373E+00_JPRB, 0.592244E+00_JPRB, 0.575127E+00_JPRB, 0.558037E+00_JPRB &
+  &, 0.540989E+00_JPRB, 0.524009E+00_JPRB, 0.507104E+00_JPRB &
+  &, 0.490296E+00_JPRB, 0.473604E+00_JPRB, 0.457043E+00_JPRB, 0.440630E+00_JPRB &
+  &, 0.424384E+00_JPRB, 0.408319E+00_JPRB, 0.392457E+00_JPRB &
+  &, 0.376815E+00_JPRB, 0.361405E+00_JPRB, 0.346234E+00_JPRB, 0.331342E+00_JPRB &
+  &, 0.316721E+00_JPRB, 0.302400E+00_JPRB, 0.288383E+00_JPRB &
+  &, 0.274692E+00_JPRB, 0.261326E+00_JPRB, 0.248309E+00_JPRB, 0.235638E+00_JPRB &
+  &, 0.223336E+00_JPRB, 0.211397E+00_JPRB, 0.199828E+00_JPRB &
+  &, 0.188659E+00_JPRB, 0.177854E+00_JPRB, 0.167453E+00_JPRB, 0.157442E+00_JPRB &
+  &, 0.147816E+00_JPRB, 0.138599E+00_JPRB, 0.129751E+00_JPRB &
+  &, 0.121307E+00_JPRB, 0.113251E+00_JPRB, 0.105566E+00_JPRB, 0.982637E-01_JPRB &
+  &, 0.913206E-01_JPRB, 0.847608E-01_JPRB, 0.785371E-01_JPRB &
+  &, 0.726509E-01_JPRB, 0.671201E-01_JPRB, 0.619054E-01_JPRB, 0.570203E-01_JPRB &
+  &, 0.524185E-01_JPRB, 0.481286E-01_JPRB, 0.441184E-01_JPRB &
+  &, 0.403727E-01_JPRB, 0.368946E-01_JPRB, 0.336647E-01_JPRB, 0.306605E-01_JPRB &
+  &, 0.278794E-01_JPRB, 0.253175E-01_JPRB, 0.229459E-01_JPRB &
+  &, 0.207564E-01_JPRB, 0.187644E-01_JPRB, 0.169099E-01_JPRB, 0.152302E-01_JPRB &
+  &, 0.137126E-01_JPRB, 0.122891E-01_JPRB, 0.110223E-01_JPRB &
+  &, 0.986794E-02_JPRB, 0.880618E-02_JPRB, 0.784413E-02_JPRB, 0.698910E-02_JPRB &
+  &, 0.621856E-02_JPRB, 0.550799E-02_JPRB, 0.489297E-02_JPRB &
+  &, 0.431643E-02_JPRB, 0.381363E-02_JPRB, 0.335656E-02_JPRB, 0.294837E-02_JPRB &
+  &, 0.259230E-02_JPRB, 0.229167E-02_JPRB, 0.197950E-02_JPRB &
+  &, 0.172719E-02_JPRB, 0.150181E-02_JPRB, 0.130509E-02_JPRB, 0.113876E-02_JPRB &
+  &, 0.100461E-02_JPRB, 0.865559E-03_JPRB, 0.721536E-03_JPRB &
+  &, 0.652824E-03_JPRB, 0.540779E-03_JPRB, 0.466366E-03_JPRB, 0.389372E-03_JPRB &
+  &, 0.352584E-03_JPRB, 0.270997E-03_JPRB, 0.230910E-03_JPRB &
+  &, 0.189481E-03_JPRB, 0.192259E-03_JPRB, 0.148795E-03_JPRB, 0.103943E-03_JPRB &
+  &, 0.105367E-03_JPRB, 0.584019E-04_JPRB, 0.591261E-04_JPRB &
+  &, 0.598563E-04_JPRB, 0.605924E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 305, :) = (/ &
+  &  0.946432E+00_JPRB, 0.932342E+00_JPRB, 0.917990E+00_JPRB, 0.903389E+00_JPRB &
+  &, 0.888547E+00_JPRB, 0.873476E+00_JPRB, 0.858185E+00_JPRB &
+  &, 0.842686E+00_JPRB, 0.826990E+00_JPRB, 0.811110E+00_JPRB, 0.795054E+00_JPRB &
+  &, 0.778838E+00_JPRB, 0.762472E+00_JPRB, 0.745969E+00_JPRB &
+  &, 0.729344E+00_JPRB, 0.712607E+00_JPRB, 0.695774E+00_JPRB, 0.678858E+00_JPRB &
+  &, 0.661874E+00_JPRB, 0.644836E+00_JPRB, 0.627762E+00_JPRB &
+  &, 0.610659E+00_JPRB, 0.593560E+00_JPRB, 0.576466E+00_JPRB, 0.559397E+00_JPRB &
+  &, 0.542371E+00_JPRB, 0.525406E+00_JPRB, 0.508516E+00_JPRB &
+  &, 0.491720E+00_JPRB, 0.475038E+00_JPRB, 0.458484E+00_JPRB, 0.442078E+00_JPRB &
+  &, 0.425834E+00_JPRB, 0.409770E+00_JPRB, 0.393908E+00_JPRB &
+  &, 0.378257E+00_JPRB, 0.362835E+00_JPRB, 0.347671E+00_JPRB, 0.332756E+00_JPRB &
+  &, 0.318129E+00_JPRB, 0.303792E+00_JPRB, 0.289755E+00_JPRB &
+  &, 0.276043E+00_JPRB, 0.262666E+00_JPRB, 0.249612E+00_JPRB, 0.236926E+00_JPRB &
+  &, 0.224594E+00_JPRB, 0.212624E+00_JPRB, 0.201033E+00_JPRB &
+  &, 0.189828E+00_JPRB, 0.178998E+00_JPRB, 0.168569E+00_JPRB, 0.158514E+00_JPRB &
+  &, 0.148871E+00_JPRB, 0.139605E+00_JPRB, 0.130736E+00_JPRB &
+  &, 0.122252E+00_JPRB, 0.114154E+00_JPRB, 0.106426E+00_JPRB, 0.990935E-01_JPRB &
+  &, 0.921185E-01_JPRB, 0.855072E-01_JPRB, 0.792649E-01_JPRB &
+  &, 0.733405E-01_JPRB, 0.677693E-01_JPRB, 0.625310E-01_JPRB, 0.576015E-01_JPRB &
+  &, 0.529924E-01_JPRB, 0.486542E-01_JPRB, 0.446140E-01_JPRB &
+  &, 0.408366E-01_JPRB, 0.373252E-01_JPRB, 0.340604E-01_JPRB, 0.310420E-01_JPRB &
+  &, 0.282229E-01_JPRB, 0.256447E-01_JPRB, 0.232558E-01_JPRB &
+  &, 0.210482E-01_JPRB, 0.190125E-01_JPRB, 0.171628E-01_JPRB, 0.154623E-01_JPRB &
+  &, 0.138967E-01_JPRB, 0.124767E-01_JPRB, 0.111862E-01_JPRB &
+  &, 0.100072E-01_JPRB, 0.894806E-02_JPRB, 0.798868E-02_JPRB, 0.710689E-02_JPRB &
+  &, 0.630854E-02_JPRB, 0.559962E-02_JPRB, 0.498627E-02_JPRB &
+  &, 0.441143E-02_JPRB, 0.387810E-02_JPRB, 0.342217E-02_JPRB, 0.301515E-02_JPRB &
+  &, 0.266025E-02_JPRB, 0.232624E-02_JPRB, 0.204984E-02_JPRB &
+  &, 0.176296E-02_JPRB, 0.153820E-02_JPRB, 0.134209E-02_JPRB, 0.117639E-02_JPRB &
+  &, 0.100461E-02_JPRB, 0.865559E-03_JPRB, 0.761066E-03_JPRB &
+  &, 0.652824E-03_JPRB, 0.581608E-03_JPRB, 0.466366E-03_JPRB, 0.431524E-03_JPRB &
+  &, 0.352584E-03_JPRB, 0.314496E-03_JPRB, 0.230910E-03_JPRB &
+  &, 0.189481E-03_JPRB, 0.192259E-03_JPRB, 0.148795E-03_JPRB, 0.103943E-03_JPRB &
+  &, 0.105367E-03_JPRB, 0.584019E-04_JPRB, 0.591261E-04_JPRB &
+  &, 0.598563E-04_JPRB, 0.605924E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 306, :) = (/ &
+  &  0.946710E+00_JPRB, 0.932683E+00_JPRB, 0.918395E+00_JPRB, 0.903856E+00_JPRB &
+  &, 0.889076E+00_JPRB, 0.874064E+00_JPRB, 0.858831E+00_JPRB &
+  &, 0.843388E+00_JPRB, 0.827747E+00_JPRB, 0.811920E+00_JPRB, 0.795916E+00_JPRB &
+  &, 0.779748E+00_JPRB, 0.763429E+00_JPRB, 0.746971E+00_JPRB &
+  &, 0.730389E+00_JPRB, 0.713694E+00_JPRB, 0.696899E+00_JPRB, 0.680021E+00_JPRB &
+  &, 0.663073E+00_JPRB, 0.646067E+00_JPRB, 0.629023E+00_JPRB &
+  &, 0.611956E+00_JPRB, 0.594876E+00_JPRB, 0.577806E+00_JPRB, 0.560762E+00_JPRB &
+  &, 0.543753E+00_JPRB, 0.526803E+00_JPRB, 0.509928E+00_JPRB &
+  &, 0.493147E+00_JPRB, 0.476473E+00_JPRB, 0.459930E+00_JPRB, 0.443526E+00_JPRB &
+  &, 0.427284E+00_JPRB, 0.411221E+00_JPRB, 0.395360E+00_JPRB &
+  &, 0.379698E+00_JPRB, 0.364275E+00_JPRB, 0.349099E+00_JPRB, 0.334180E+00_JPRB &
+  &, 0.319537E+00_JPRB, 0.305183E+00_JPRB, 0.291138E+00_JPRB &
+  &, 0.277405E+00_JPRB, 0.263994E+00_JPRB, 0.250926E+00_JPRB, 0.238214E+00_JPRB &
+  &, 0.225853E+00_JPRB, 0.213863E+00_JPRB, 0.202239E+00_JPRB &
+  &, 0.190997E+00_JPRB, 0.180141E+00_JPRB, 0.169672E+00_JPRB, 0.159601E+00_JPRB &
+  &, 0.149912E+00_JPRB, 0.140611E+00_JPRB, 0.131705E+00_JPRB &
+  &, 0.123182E+00_JPRB, 0.115058E+00_JPRB, 0.107302E+00_JPRB, 0.999234E-01_JPRB &
+  &, 0.929163E-01_JPRB, 0.862711E-01_JPRB, 0.799749E-01_JPRB &
+  &, 0.740482E-01_JPRB, 0.684371E-01_JPRB, 0.631566E-01_JPRB, 0.582020E-01_JPRB &
+  &, 0.535466E-01_JPRB, 0.491799E-01_JPRB, 0.451096E-01_JPRB &
+  &, 0.413005E-01_JPRB, 0.377559E-01_JPRB, 0.344781E-01_JPRB, 0.314234E-01_JPRB &
+  &, 0.285893E-01_JPRB, 0.259718E-01_JPRB, 0.235657E-01_JPRB &
+  &, 0.213401E-01_JPRB, 0.192854E-01_JPRB, 0.174158E-01_JPRB, 0.156945E-01_JPRB &
+  &, 0.141071E-01_JPRB, 0.126912E-01_JPRB, 0.113775E-01_JPRB &
+  &, 0.101743E-01_JPRB, 0.908993E-02_JPRB, 0.813322E-02_JPRB, 0.722468E-02_JPRB &
+  &, 0.642851E-02_JPRB, 0.572180E-02_JPRB, 0.504847E-02_JPRB &
+  &, 0.447476E-02_JPRB, 0.397480E-02_JPRB, 0.348779E-02_JPRB, 0.308193E-02_JPRB &
+  &, 0.269423E-02_JPRB, 0.236081E-02_JPRB, 0.208501E-02_JPRB &
+  &, 0.179874E-02_JPRB, 0.157458E-02_JPRB, 0.137909E-02_JPRB, 0.121401E-02_JPRB &
+  &, 0.104286E-02_JPRB, 0.904448E-03_JPRB, 0.761066E-03_JPRB &
+  &, 0.652824E-03_JPRB, 0.581608E-03_JPRB, 0.507854E-03_JPRB, 0.431524E-03_JPRB &
+  &, 0.352584E-03_JPRB, 0.314496E-03_JPRB, 0.275092E-03_JPRB &
+  &, 0.234352E-03_JPRB, 0.192259E-03_JPRB, 0.148795E-03_JPRB, 0.103943E-03_JPRB &
+  &, 0.105367E-03_JPRB, 0.106804E-03_JPRB, 0.591261E-04_JPRB &
+  &, 0.598563E-04_JPRB, 0.605924E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 307, :) = (/ &
+  &  0.946985E+00_JPRB, 0.933024E+00_JPRB, 0.918799E+00_JPRB, 0.904324E+00_JPRB &
+  &, 0.889604E+00_JPRB, 0.874651E+00_JPRB, 0.859476E+00_JPRB &
+  &, 0.844090E+00_JPRB, 0.828504E+00_JPRB, 0.812728E+00_JPRB, 0.796775E+00_JPRB &
+  &, 0.780656E+00_JPRB, 0.764385E+00_JPRB, 0.747974E+00_JPRB &
+  &, 0.731434E+00_JPRB, 0.714779E+00_JPRB, 0.698025E+00_JPRB, 0.681184E+00_JPRB &
+  &, 0.664270E+00_JPRB, 0.647298E+00_JPRB, 0.630285E+00_JPRB &
+  &, 0.613246E+00_JPRB, 0.596195E+00_JPRB, 0.579149E+00_JPRB, 0.562122E+00_JPRB &
+  &, 0.545135E+00_JPRB, 0.528203E+00_JPRB, 0.511344E+00_JPRB &
+  &, 0.494574E+00_JPRB, 0.477911E+00_JPRB, 0.461371E+00_JPRB, 0.444975E+00_JPRB &
+  &, 0.428738E+00_JPRB, 0.412677E+00_JPRB, 0.396811E+00_JPRB &
+  &, 0.381149E+00_JPRB, 0.365725E+00_JPRB, 0.350536E+00_JPRB, 0.335603E+00_JPRB &
+  &, 0.320945E+00_JPRB, 0.306584E+00_JPRB, 0.292510E+00_JPRB &
+  &, 0.278756E+00_JPRB, 0.265333E+00_JPRB, 0.252241E+00_JPRB, 0.239502E+00_JPRB &
+  &, 0.227123E+00_JPRB, 0.215103E+00_JPRB, 0.203458E+00_JPRB &
+  &, 0.192180E+00_JPRB, 0.181299E+00_JPRB, 0.170802E+00_JPRB, 0.160688E+00_JPRB &
+  &, 0.150967E+00_JPRB, 0.141632E+00_JPRB, 0.132689E+00_JPRB &
+  &, 0.124143E+00_JPRB, 0.115962E+00_JPRB, 0.108178E+00_JPRB, 0.100770E+00_JPRB &
+  &, 0.937142E-01_JPRB, 0.870349E-01_JPRB, 0.807204E-01_JPRB &
+  &, 0.747378E-01_JPRB, 0.691049E-01_JPRB, 0.637822E-01_JPRB, 0.587831E-01_JPRB &
+  &, 0.541008E-01_JPRB, 0.497056E-01_JPRB, 0.456052E-01_JPRB &
+  &, 0.417856E-01_JPRB, 0.382081E-01_JPRB, 0.348957E-01_JPRB, 0.318049E-01_JPRB &
+  &, 0.289557E-01_JPRB, 0.262990E-01_JPRB, 0.238757E-01_JPRB &
+  &, 0.216320E-01_JPRB, 0.195583E-01_JPRB, 0.176435E-01_JPRB, 0.159267E-01_JPRB &
+  &, 0.143175E-01_JPRB, 0.128789E-01_JPRB, 0.115415E-01_JPRB &
+  &, 0.103413E-01_JPRB, 0.926018E-02_JPRB, 0.824885E-02_JPRB, 0.737192E-02_JPRB &
+  &, 0.654848E-02_JPRB, 0.581343E-02_JPRB, 0.514178E-02_JPRB &
+  &, 0.456975E-02_JPRB, 0.403927E-02_JPRB, 0.355341E-02_JPRB, 0.314871E-02_JPRB &
+  &, 0.276219E-02_JPRB, 0.242995E-02_JPRB, 0.212018E-02_JPRB &
+  &, 0.187028E-02_JPRB, 0.161097E-02_JPRB, 0.141610E-02_JPRB, 0.121401E-02_JPRB &
+  &, 0.108112E-02_JPRB, 0.904448E-03_JPRB, 0.800596E-03_JPRB &
+  &, 0.693000E-03_JPRB, 0.581608E-03_JPRB, 0.507854E-03_JPRB, 0.431524E-03_JPRB &
+  &, 0.352584E-03_JPRB, 0.314496E-03_JPRB, 0.275092E-03_JPRB &
+  &, 0.234352E-03_JPRB, 0.192259E-03_JPRB, 0.148795E-03_JPRB, 0.150914E-03_JPRB &
+  &, 0.105367E-03_JPRB, 0.106804E-03_JPRB, 0.591261E-04_JPRB &
+  &, 0.598563E-04_JPRB, 0.605924E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 308, :) = (/ &
+  &  0.947258E+00_JPRB, 0.933364E+00_JPRB, 0.919204E+00_JPRB, 0.904791E+00_JPRB &
+  &, 0.890132E+00_JPRB, 0.875239E+00_JPRB, 0.860122E+00_JPRB &
+  &, 0.844791E+00_JPRB, 0.829259E+00_JPRB, 0.813537E+00_JPRB, 0.797634E+00_JPRB &
+  &, 0.781566E+00_JPRB, 0.765342E+00_JPRB, 0.748974E+00_JPRB &
+  &, 0.732479E+00_JPRB, 0.715863E+00_JPRB, 0.699151E+00_JPRB, 0.682346E+00_JPRB &
+  &, 0.665469E+00_JPRB, 0.648529E+00_JPRB, 0.631546E+00_JPRB &
+  &, 0.614535E+00_JPRB, 0.597511E+00_JPRB, 0.580489E+00_JPRB, 0.563486E+00_JPRB &
+  &, 0.546517E+00_JPRB, 0.529604E+00_JPRB, 0.512760E+00_JPRB &
+  &, 0.496001E+00_JPRB, 0.479349E+00_JPRB, 0.462817E+00_JPRB, 0.446427E+00_JPRB &
+  &, 0.430192E+00_JPRB, 0.414133E+00_JPRB, 0.398263E+00_JPRB &
+  &, 0.382600E+00_JPRB, 0.367165E+00_JPRB, 0.351964E+00_JPRB, 0.337027E+00_JPRB &
+  &, 0.322364E+00_JPRB, 0.307975E+00_JPRB, 0.293893E+00_JPRB &
+  &, 0.280129E+00_JPRB, 0.266673E+00_JPRB, 0.253568E+00_JPRB, 0.240801E+00_JPRB &
+  &, 0.228394E+00_JPRB, 0.216342E+00_JPRB, 0.204663E+00_JPRB &
+  &, 0.193363E+00_JPRB, 0.182456E+00_JPRB, 0.171919E+00_JPRB, 0.161775E+00_JPRB &
+  &, 0.152022E+00_JPRB, 0.142652E+00_JPRB, 0.133673E+00_JPRB &
+  &, 0.125088E+00_JPRB, 0.116882E+00_JPRB, 0.109054E+00_JPRB, 0.101600E+00_JPRB &
+  &, 0.945290E-01_JPRB, 0.878161E-01_JPRB, 0.814482E-01_JPRB &
+  &, 0.754455E-01_JPRB, 0.697541E-01_JPRB, 0.644078E-01_JPRB, 0.593836E-01_JPRB &
+  &, 0.546747E-01_JPRB, 0.502514E-01_JPRB, 0.461215E-01_JPRB &
+  &, 0.422495E-01_JPRB, 0.386602E-01_JPRB, 0.353134E-01_JPRB, 0.321863E-01_JPRB &
+  &, 0.293221E-01_JPRB, 0.266495E-01_JPRB, 0.241856E-01_JPRB &
+  &, 0.219238E-01_JPRB, 0.198311E-01_JPRB, 0.178965E-01_JPRB, 0.161588E-01_JPRB &
+  &, 0.145279E-01_JPRB, 0.130665E-01_JPRB, 0.117327E-01_JPRB &
+  &, 0.105084E-01_JPRB, 0.940205E-02_JPRB, 0.839339E-02_JPRB, 0.748971E-02_JPRB &
+  &, 0.666846E-02_JPRB, 0.590507E-02_JPRB, 0.526619E-02_JPRB &
+  &, 0.466475E-02_JPRB, 0.410374E-02_JPRB, 0.361903E-02_JPRB, 0.318210E-02_JPRB &
+  &, 0.283014E-02_JPRB, 0.246452E-02_JPRB, 0.215535E-02_JPRB &
+  &, 0.190606E-02_JPRB, 0.164735E-02_JPRB, 0.145310E-02_JPRB, 0.125164E-02_JPRB &
+  &, 0.108112E-02_JPRB, 0.943337E-03_JPRB, 0.800596E-03_JPRB &
+  &, 0.693000E-03_JPRB, 0.622438E-03_JPRB, 0.507854E-03_JPRB, 0.431524E-03_JPRB &
+  &, 0.395407E-03_JPRB, 0.314496E-03_JPRB, 0.275092E-03_JPRB &
+  &, 0.234352E-03_JPRB, 0.192259E-03_JPRB, 0.148795E-03_JPRB, 0.150914E-03_JPRB &
+  &, 0.105367E-03_JPRB, 0.106804E-03_JPRB, 0.591261E-04_JPRB &
+  &, 0.598563E-04_JPRB, 0.605924E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART44',1,ZHOOK_HANDLE)
+END SUBROUTINE PART44
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART45
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART45',0,ZHOOK_HANDLE)
+
+XCW( 309, :) = (/ &
+  &  0.947533E+00_JPRB, 0.933703E+00_JPRB, 0.919608E+00_JPRB, 0.905257E+00_JPRB &
+  &, 0.890659E+00_JPRB, 0.875825E+00_JPRB, 0.860766E+00_JPRB &
+  &, 0.845492E+00_JPRB, 0.830014E+00_JPRB, 0.814344E+00_JPRB, 0.798493E+00_JPRB &
+  &, 0.782472E+00_JPRB, 0.766296E+00_JPRB, 0.749975E+00_JPRB &
+  &, 0.733522E+00_JPRB, 0.716950E+00_JPRB, 0.700276E+00_JPRB, 0.683509E+00_JPRB &
+  &, 0.666666E+00_JPRB, 0.649760E+00_JPRB, 0.632811E+00_JPRB &
+  &, 0.615825E+00_JPRB, 0.598827E+00_JPRB, 0.581832E+00_JPRB, 0.564850E+00_JPRB &
+  &, 0.547903E+00_JPRB, 0.531005E+00_JPRB, 0.514176E+00_JPRB &
+  &, 0.497432E+00_JPRB, 0.480788E+00_JPRB, 0.464266E+00_JPRB, 0.447879E+00_JPRB &
+  &, 0.431651E+00_JPRB, 0.415588E+00_JPRB, 0.399719E+00_JPRB &
+  &, 0.384051E+00_JPRB, 0.368614E+00_JPRB, 0.353392E+00_JPRB, 0.338461E+00_JPRB &
+  &, 0.323772E+00_JPRB, 0.309377E+00_JPRB, 0.295276E+00_JPRB &
+  &, 0.281491E+00_JPRB, 0.268023E+00_JPRB, 0.254894E+00_JPRB, 0.242101E+00_JPRB &
+  &, 0.229665E+00_JPRB, 0.217594E+00_JPRB, 0.205882E+00_JPRB &
+  &, 0.194558E+00_JPRB, 0.183614E+00_JPRB, 0.173049E+00_JPRB, 0.162862E+00_JPRB &
+  &, 0.153076E+00_JPRB, 0.143673E+00_JPRB, 0.134673E+00_JPRB &
+  &, 0.126049E+00_JPRB, 0.117802E+00_JPRB, 0.109946E+00_JPRB, 0.102463E+00_JPRB &
+  &, 0.953438E-01_JPRB, 0.885799E-01_JPRB, 0.821937E-01_JPRB &
+  &, 0.761351E-01_JPRB, 0.704404E-01_JPRB, 0.650523E-01_JPRB, 0.599842E-01_JPRB &
+  &, 0.552487E-01_JPRB, 0.507771E-01_JPRB, 0.466171E-01_JPRB &
+  &, 0.427345E-01_JPRB, 0.390909E-01_JPRB, 0.357310E-01_JPRB, 0.325902E-01_JPRB &
+  &, 0.296885E-01_JPRB, 0.269767E-01_JPRB, 0.244956E-01_JPRB &
+  &, 0.222157E-01_JPRB, 0.201040E-01_JPRB, 0.181495E-01_JPRB, 0.163910E-01_JPRB &
+  &, 0.147646E-01_JPRB, 0.132542E-01_JPRB, 0.118967E-01_JPRB &
+  &, 0.106755E-01_JPRB, 0.954393E-02_JPRB, 0.853793E-02_JPRB, 0.760750E-02_JPRB &
+  &, 0.678843E-02_JPRB, 0.602724E-02_JPRB, 0.535949E-02_JPRB &
+  &, 0.472808E-02_JPRB, 0.420044E-02_JPRB, 0.368465E-02_JPRB, 0.324888E-02_JPRB &
+  &, 0.286412E-02_JPRB, 0.253366E-02_JPRB, 0.222569E-02_JPRB &
+  &, 0.194183E-02_JPRB, 0.168374E-02_JPRB, 0.149010E-02_JPRB, 0.128926E-02_JPRB &
+  &, 0.111937E-02_JPRB, 0.982226E-03_JPRB, 0.840126E-03_JPRB &
+  &, 0.733177E-03_JPRB, 0.622438E-03_JPRB, 0.549341E-03_JPRB, 0.473676E-03_JPRB &
+  &, 0.395407E-03_JPRB, 0.314496E-03_JPRB, 0.275092E-03_JPRB &
+  &, 0.234352E-03_JPRB, 0.192259E-03_JPRB, 0.148795E-03_JPRB, 0.150914E-03_JPRB &
+  &, 0.105367E-03_JPRB, 0.106804E-03_JPRB, 0.591261E-04_JPRB &
+  &, 0.598563E-04_JPRB, 0.605924E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 310, :) = (/ &
+  &  0.947808E+00_JPRB, 0.934044E+00_JPRB, 0.920011E+00_JPRB, 0.905723E+00_JPRB &
+  &, 0.891186E+00_JPRB, 0.876411E+00_JPRB, 0.861410E+00_JPRB &
+  &, 0.846191E+00_JPRB, 0.830768E+00_JPRB, 0.815151E+00_JPRB, 0.799351E+00_JPRB &
+  &, 0.783379E+00_JPRB, 0.767250E+00_JPRB, 0.750974E+00_JPRB &
+  &, 0.734566E+00_JPRB, 0.718036E+00_JPRB, 0.701401E+00_JPRB, 0.684671E+00_JPRB &
+  &, 0.667863E+00_JPRB, 0.650991E+00_JPRB, 0.634072E+00_JPRB &
+  &, 0.617118E+00_JPRB, 0.600146E+00_JPRB, 0.583171E+00_JPRB, 0.566215E+00_JPRB &
+  &, 0.549285E+00_JPRB, 0.532405E+00_JPRB, 0.515592E+00_JPRB &
+  &, 0.498859E+00_JPRB, 0.482226E+00_JPRB, 0.465712E+00_JPRB, 0.449336E+00_JPRB &
+  &, 0.433105E+00_JPRB, 0.417048E+00_JPRB, 0.401175E+00_JPRB &
+  &, 0.385502E+00_JPRB, 0.370054E+00_JPRB, 0.354849E+00_JPRB, 0.339884E+00_JPRB &
+  &, 0.325190E+00_JPRB, 0.310778E+00_JPRB, 0.296670E+00_JPRB &
+  &, 0.282854E+00_JPRB, 0.269374E+00_JPRB, 0.256220E+00_JPRB, 0.243401E+00_JPRB &
+  &, 0.230948E+00_JPRB, 0.218846E+00_JPRB, 0.207113E+00_JPRB &
+  &, 0.195754E+00_JPRB, 0.184771E+00_JPRB, 0.174179E+00_JPRB, 0.163963E+00_JPRB &
+  &, 0.154146E+00_JPRB, 0.144709E+00_JPRB, 0.135657E+00_JPRB &
+  &, 0.126994E+00_JPRB, 0.118722E+00_JPRB, 0.110822E+00_JPRB, 0.103309E+00_JPRB &
+  &, 0.961586E-01_JPRB, 0.893611E-01_JPRB, 0.829392E-01_JPRB &
+  &, 0.768610E-01_JPRB, 0.711081E-01_JPRB, 0.656969E-01_JPRB, 0.606040E-01_JPRB &
+  &, 0.558226E-01_JPRB, 0.513230E-01_JPRB, 0.471333E-01_JPRB &
+  &, 0.431985E-01_JPRB, 0.395431E-01_JPRB, 0.361487E-01_JPRB, 0.329941E-01_JPRB &
+  &, 0.300549E-01_JPRB, 0.273272E-01_JPRB, 0.248294E-01_JPRB &
+  &, 0.225075E-01_JPRB, 0.203769E-01_JPRB, 0.184278E-01_JPRB, 0.166232E-01_JPRB &
+  &, 0.149750E-01_JPRB, 0.134687E-01_JPRB, 0.120880E-01_JPRB &
+  &, 0.108426E-01_JPRB, 0.971418E-02_JPRB, 0.868247E-02_JPRB, 0.772529E-02_JPRB &
+  &, 0.690840E-02_JPRB, 0.611888E-02_JPRB, 0.545280E-02_JPRB &
+  &, 0.482307E-02_JPRB, 0.426491E-02_JPRB, 0.378308E-02_JPRB, 0.331566E-02_JPRB &
+  &, 0.293208E-02_JPRB, 0.256823E-02_JPRB, 0.226086E-02_JPRB &
+  &, 0.197761E-02_JPRB, 0.172013E-02_JPRB, 0.149010E-02_JPRB, 0.132689E-02_JPRB &
+  &, 0.115763E-02_JPRB, 0.982226E-03_JPRB, 0.840126E-03_JPRB &
+  &, 0.733177E-03_JPRB, 0.622438E-03_JPRB, 0.549341E-03_JPRB, 0.473676E-03_JPRB &
+  &, 0.395407E-03_JPRB, 0.357996E-03_JPRB, 0.275092E-03_JPRB &
+  &, 0.234352E-03_JPRB, 0.192259E-03_JPRB, 0.195060E-03_JPRB, 0.150914E-03_JPRB &
+  &, 0.105367E-03_JPRB, 0.106804E-03_JPRB, 0.591261E-04_JPRB &
+  &, 0.598563E-04_JPRB, 0.605924E-04_JPRB, 0.613345E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 311, :) = (/ &
+  &  0.948082E+00_JPRB, 0.934384E+00_JPRB, 0.920414E+00_JPRB, 0.906188E+00_JPRB &
+  &, 0.891711E+00_JPRB, 0.876997E+00_JPRB, 0.862053E+00_JPRB &
+  &, 0.846891E+00_JPRB, 0.831523E+00_JPRB, 0.815957E+00_JPRB, 0.800209E+00_JPRB &
+  &, 0.784286E+00_JPRB, 0.768204E+00_JPRB, 0.751975E+00_JPRB &
+  &, 0.735608E+00_JPRB, 0.719120E+00_JPRB, 0.702524E+00_JPRB, 0.685833E+00_JPRB &
+  &, 0.669060E+00_JPRB, 0.652222E+00_JPRB, 0.635333E+00_JPRB &
+  &, 0.618408E+00_JPRB, 0.601462E+00_JPRB, 0.584515E+00_JPRB, 0.567579E+00_JPRB &
+  &, 0.550671E+00_JPRB, 0.533810E+00_JPRB, 0.517011E+00_JPRB &
+  &, 0.500290E+00_JPRB, 0.483669E+00_JPRB, 0.467162E+00_JPRB, 0.450788E+00_JPRB &
+  &, 0.434564E+00_JPRB, 0.418508E+00_JPRB, 0.402635E+00_JPRB &
+  &, 0.386963E+00_JPRB, 0.371513E+00_JPRB, 0.356286E+00_JPRB, 0.341318E+00_JPRB &
+  &, 0.326619E+00_JPRB, 0.312190E+00_JPRB, 0.298052E+00_JPRB &
+  &, 0.284227E+00_JPRB, 0.270725E+00_JPRB, 0.257547E+00_JPRB, 0.244712E+00_JPRB &
+  &, 0.232219E+00_JPRB, 0.220098E+00_JPRB, 0.208332E+00_JPRB &
+  &, 0.196950E+00_JPRB, 0.185942E+00_JPRB, 0.175309E+00_JPRB, 0.165063E+00_JPRB &
+  &, 0.155215E+00_JPRB, 0.145744E+00_JPRB, 0.136656E+00_JPRB &
+  &, 0.127970E+00_JPRB, 0.119657E+00_JPRB, 0.111715E+00_JPRB, 0.104172E+00_JPRB &
+  &, 0.969735E-01_JPRB, 0.901597E-01_JPRB, 0.836847E-01_JPRB &
+  &, 0.775687E-01_JPRB, 0.717945E-01_JPRB, 0.663414E-01_JPRB, 0.612046E-01_JPRB &
+  &, 0.563966E-01_JPRB, 0.518689E-01_JPRB, 0.476496E-01_JPRB &
+  &, 0.437046E-01_JPRB, 0.400168E-01_JPRB, 0.365664E-01_JPRB, 0.333755E-01_JPRB &
+  &, 0.304213E-01_JPRB, 0.276777E-01_JPRB, 0.251393E-01_JPRB &
+  &, 0.227994E-01_JPRB, 0.206498E-01_JPRB, 0.186808E-01_JPRB, 0.168554E-01_JPRB &
+  &, 0.151854E-01_JPRB, 0.136832E-01_JPRB, 0.122793E-01_JPRB &
+  &, 0.110097E-01_JPRB, 0.985605E-02_JPRB, 0.882701E-02_JPRB, 0.787253E-02_JPRB &
+  &, 0.702837E-02_JPRB, 0.624106E-02_JPRB, 0.554610E-02_JPRB &
+  &, 0.491807E-02_JPRB, 0.436161E-02_JPRB, 0.384870E-02_JPRB, 0.338244E-02_JPRB &
+  &, 0.300003E-02_JPRB, 0.263737E-02_JPRB, 0.229603E-02_JPRB &
+  &, 0.201338E-02_JPRB, 0.175651E-02_JPRB, 0.152710E-02_JPRB, 0.132689E-02_JPRB &
+  &, 0.115763E-02_JPRB, 0.102111E-02_JPRB, 0.879655E-03_JPRB &
+  &, 0.773353E-03_JPRB, 0.663267E-03_JPRB, 0.549341E-03_JPRB, 0.473676E-03_JPRB &
+  &, 0.395407E-03_JPRB, 0.357996E-03_JPRB, 0.319274E-03_JPRB &
+  &, 0.234352E-03_JPRB, 0.192259E-03_JPRB, 0.195060E-03_JPRB, 0.150914E-03_JPRB &
+  &, 0.105367E-03_JPRB, 0.106804E-03_JPRB, 0.591261E-04_JPRB &
+  &, 0.598563E-04_JPRB, 0.605924E-04_JPRB, 0.613345E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 312, :) = (/ &
+  &  0.948356E+00_JPRB, 0.934722E+00_JPRB, 0.920817E+00_JPRB, 0.906653E+00_JPRB &
+  &, 0.892237E+00_JPRB, 0.877582E+00_JPRB, 0.862695E+00_JPRB &
+  &, 0.847590E+00_JPRB, 0.832276E+00_JPRB, 0.816763E+00_JPRB, 0.801066E+00_JPRB &
+  &, 0.785193E+00_JPRB, 0.769158E+00_JPRB, 0.752973E+00_JPRB &
+  &, 0.736652E+00_JPRB, 0.720204E+00_JPRB, 0.703648E+00_JPRB, 0.686994E+00_JPRB &
+  &, 0.670257E+00_JPRB, 0.653453E+00_JPRB, 0.636595E+00_JPRB &
+  &, 0.619698E+00_JPRB, 0.602781E+00_JPRB, 0.585858E+00_JPRB, 0.568943E+00_JPRB &
+  &, 0.552053E+00_JPRB, 0.535211E+00_JPRB, 0.518427E+00_JPRB &
+  &, 0.501722E+00_JPRB, 0.485111E+00_JPRB, 0.468615E+00_JPRB, 0.452244E+00_JPRB &
+  &, 0.436027E+00_JPRB, 0.419972E+00_JPRB, 0.404096E+00_JPRB &
+  &, 0.388423E+00_JPRB, 0.372963E+00_JPRB, 0.357733E+00_JPRB, 0.342751E+00_JPRB &
+  &, 0.328038E+00_JPRB, 0.313602E+00_JPRB, 0.299446E+00_JPRB &
+  &, 0.285600E+00_JPRB, 0.272076E+00_JPRB, 0.258885E+00_JPRB, 0.246024E+00_JPRB &
+  &, 0.233514E+00_JPRB, 0.221350E+00_JPRB, 0.209563E+00_JPRB &
+  &, 0.198146E+00_JPRB, 0.187113E+00_JPRB, 0.176453E+00_JPRB, 0.166178E+00_JPRB &
+  &, 0.156285E+00_JPRB, 0.146780E+00_JPRB, 0.137671E+00_JPRB &
+  &, 0.128931E+00_JPRB, 0.120593E+00_JPRB, 0.112623E+00_JPRB, 0.105019E+00_JPRB &
+  &, 0.978053E-01_JPRB, 0.909409E-01_JPRB, 0.844480E-01_JPRB &
+  &, 0.782946E-01_JPRB, 0.724808E-01_JPRB, 0.669860E-01_JPRB, 0.618245E-01_JPRB &
+  &, 0.569706E-01_JPRB, 0.524350E-01_JPRB, 0.481658E-01_JPRB &
+  &, 0.441896E-01_JPRB, 0.404689E-01_JPRB, 0.370060E-01_JPRB, 0.337794E-01_JPRB &
+  &, 0.308106E-01_JPRB, 0.280282E-01_JPRB, 0.254731E-01_JPRB &
+  &, 0.231156E-01_JPRB, 0.209475E-01_JPRB, 0.189338E-01_JPRB, 0.171133E-01_JPRB &
+  &, 0.154221E-01_JPRB, 0.138709E-01_JPRB, 0.124705E-01_JPRB &
+  &, 0.111768E-01_JPRB, 0.100263E-01_JPRB, 0.897156E-02_JPRB, 0.799032E-02_JPRB &
+  &, 0.714835E-02_JPRB, 0.636323E-02_JPRB, 0.563941E-02_JPRB &
+  &, 0.501306E-02_JPRB, 0.442608E-02_JPRB, 0.391431E-02_JPRB, 0.344922E-02_JPRB &
+  &, 0.303401E-02_JPRB, 0.267194E-02_JPRB, 0.236637E-02_JPRB &
+  &, 0.204916E-02_JPRB, 0.179290E-02_JPRB, 0.156411E-02_JPRB, 0.136452E-02_JPRB &
+  &, 0.119588E-02_JPRB, 0.102111E-02_JPRB, 0.919185E-03_JPRB &
+  &, 0.773353E-03_JPRB, 0.663267E-03_JPRB, 0.590829E-03_JPRB, 0.515829E-03_JPRB &
+  &, 0.438230E-03_JPRB, 0.357996E-03_JPRB, 0.319274E-03_JPRB &
+  &, 0.279222E-03_JPRB, 0.237824E-03_JPRB, 0.195060E-03_JPRB, 0.150914E-03_JPRB &
+  &, 0.105367E-03_JPRB, 0.106804E-03_JPRB, 0.108252E-03_JPRB &
+  &, 0.598563E-04_JPRB, 0.605924E-04_JPRB, 0.613345E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 313, :) = (/ &
+  &  0.948629E+00_JPRB, 0.935060E+00_JPRB, 0.921219E+00_JPRB, 0.907117E+00_JPRB &
+  &, 0.892763E+00_JPRB, 0.878166E+00_JPRB, 0.863338E+00_JPRB &
+  &, 0.848288E+00_JPRB, 0.833028E+00_JPRB, 0.817569E+00_JPRB, 0.801922E+00_JPRB &
+  &, 0.786099E+00_JPRB, 0.770111E+00_JPRB, 0.753972E+00_JPRB &
+  &, 0.737694E+00_JPRB, 0.721288E+00_JPRB, 0.704771E+00_JPRB, 0.688155E+00_JPRB &
+  &, 0.671454E+00_JPRB, 0.654684E+00_JPRB, 0.637856E+00_JPRB &
+  &, 0.620991E+00_JPRB, 0.604097E+00_JPRB, 0.587201E+00_JPRB, 0.570307E+00_JPRB &
+  &, 0.553439E+00_JPRB, 0.536615E+00_JPRB, 0.519847E+00_JPRB &
+  &, 0.503153E+00_JPRB, 0.486554E+00_JPRB, 0.470065E+00_JPRB, 0.453705E+00_JPRB &
+  &, 0.437489E+00_JPRB, 0.421432E+00_JPRB, 0.405561E+00_JPRB &
+  &, 0.389883E+00_JPRB, 0.374413E+00_JPRB, 0.359180E+00_JPRB, 0.344195E+00_JPRB &
+  &, 0.329466E+00_JPRB, 0.315004E+00_JPRB, 0.300840E+00_JPRB &
+  &, 0.286984E+00_JPRB, 0.273438E+00_JPRB, 0.260211E+00_JPRB, 0.247336E+00_JPRB &
+  &, 0.234797E+00_JPRB, 0.222615E+00_JPRB, 0.210795E+00_JPRB &
+  &, 0.199354E+00_JPRB, 0.188284E+00_JPRB, 0.177584E+00_JPRB, 0.167279E+00_JPRB &
+  &, 0.157354E+00_JPRB, 0.147815E+00_JPRB, 0.138670E+00_JPRB &
+  &, 0.129908E+00_JPRB, 0.121528E+00_JPRB, 0.113516E+00_JPRB, 0.105898E+00_JPRB &
+  &, 0.986370E-01_JPRB, 0.917394E-01_JPRB, 0.851935E-01_JPRB &
+  &, 0.790023E-01_JPRB, 0.731671E-01_JPRB, 0.676495E-01_JPRB, 0.624443E-01_JPRB &
+  &, 0.575643E-01_JPRB, 0.529809E-01_JPRB, 0.486821E-01_JPRB &
+  &, 0.446746E-01_JPRB, 0.409211E-01_JPRB, 0.374457E-01_JPRB, 0.342058E-01_JPRB &
+  &, 0.311770E-01_JPRB, 0.283787E-01_JPRB, 0.258069E-01_JPRB &
+  &, 0.234318E-01_JPRB, 0.212204E-01_JPRB, 0.192121E-01_JPRB, 0.173455E-01_JPRB &
+  &, 0.156325E-01_JPRB, 0.140853E-01_JPRB, 0.126618E-01_JPRB &
+  &, 0.113717E-01_JPRB, 0.101965E-01_JPRB, 0.911610E-02_JPRB, 0.813756E-02_JPRB &
+  &, 0.726832E-02_JPRB, 0.645487E-02_JPRB, 0.573271E-02_JPRB &
+  &, 0.510806E-02_JPRB, 0.452279E-02_JPRB, 0.397993E-02_JPRB, 0.351600E-02_JPRB &
+  &, 0.310196E-02_JPRB, 0.274108E-02_JPRB, 0.240154E-02_JPRB &
+  &, 0.212071E-02_JPRB, 0.182928E-02_JPRB, 0.160111E-02_JPRB, 0.140214E-02_JPRB &
+  &, 0.123414E-02_JPRB, 0.106000E-02_JPRB, 0.919185E-03_JPRB &
+  &, 0.813530E-03_JPRB, 0.704096E-03_JPRB, 0.590829E-03_JPRB, 0.515829E-03_JPRB &
+  &, 0.438230E-03_JPRB, 0.357996E-03_JPRB, 0.319274E-03_JPRB &
+  &, 0.279222E-03_JPRB, 0.237824E-03_JPRB, 0.195060E-03_JPRB, 0.150914E-03_JPRB &
+  &, 0.153051E-03_JPRB, 0.106804E-03_JPRB, 0.108252E-03_JPRB &
+  &, 0.598563E-04_JPRB, 0.605924E-04_JPRB, 0.613345E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 314, :) = (/ &
+  &  0.948900E+00_JPRB, 0.935398E+00_JPRB, 0.921620E+00_JPRB, 0.907581E+00_JPRB &
+  &, 0.893287E+00_JPRB, 0.878749E+00_JPRB, 0.863979E+00_JPRB &
+  &, 0.848985E+00_JPRB, 0.833780E+00_JPRB, 0.818374E+00_JPRB, 0.802778E+00_JPRB &
+  &, 0.787003E+00_JPRB, 0.771064E+00_JPRB, 0.754970E+00_JPRB &
+  &, 0.738734E+00_JPRB, 0.722372E+00_JPRB, 0.705895E+00_JPRB, 0.689317E+00_JPRB &
+  &, 0.672651E+00_JPRB, 0.655911E+00_JPRB, 0.639117E+00_JPRB &
+  &, 0.622280E+00_JPRB, 0.605416E+00_JPRB, 0.588540E+00_JPRB, 0.571675E+00_JPRB &
+  &, 0.554825E+00_JPRB, 0.538019E+00_JPRB, 0.521266E+00_JPRB &
+  &, 0.504588E+00_JPRB, 0.488000E+00_JPRB, 0.471519E+00_JPRB, 0.455162E+00_JPRB &
+  &, 0.438952E+00_JPRB, 0.422897E+00_JPRB, 0.407026E+00_JPRB &
+  &, 0.391343E+00_JPRB, 0.375872E+00_JPRB, 0.360628E+00_JPRB, 0.345629E+00_JPRB &
+  &, 0.330895E+00_JPRB, 0.316427E+00_JPRB, 0.302244E+00_JPRB &
+  &, 0.288369E+00_JPRB, 0.274800E+00_JPRB, 0.261561E+00_JPRB, 0.248647E+00_JPRB &
+  &, 0.236092E+00_JPRB, 0.223879E+00_JPRB, 0.212039E+00_JPRB &
+  &, 0.200563E+00_JPRB, 0.189455E+00_JPRB, 0.178741E+00_JPRB, 0.168394E+00_JPRB &
+  &, 0.158438E+00_JPRB, 0.148866E+00_JPRB, 0.139685E+00_JPRB &
+  &, 0.130884E+00_JPRB, 0.122464E+00_JPRB, 0.114424E+00_JPRB, 0.106761E+00_JPRB &
+  &, 0.994688E-01_JPRB, 0.925380E-01_JPRB, 0.859567E-01_JPRB &
+  &, 0.797463E-01_JPRB, 0.738534E-01_JPRB, 0.682940E-01_JPRB, 0.630642E-01_JPRB &
+  &, 0.581581E-01_JPRB, 0.535470E-01_JPRB, 0.492190E-01_JPRB &
+  &, 0.451807E-01_JPRB, 0.413948E-01_JPRB, 0.378853E-01_JPRB, 0.346096E-01_JPRB &
+  &, 0.315663E-01_JPRB, 0.287526E-01_JPRB, 0.261407E-01_JPRB &
+  &, 0.237236E-01_JPRB, 0.215181E-01_JPRB, 0.194651E-01_JPRB, 0.176035E-01_JPRB &
+  &, 0.158692E-01_JPRB, 0.142998E-01_JPRB, 0.128531E-01_JPRB &
+  &, 0.115388E-01_JPRB, 0.103384E-01_JPRB, 0.926064E-02_JPRB, 0.828479E-02_JPRB &
+  &, 0.738829E-02_JPRB, 0.657704E-02_JPRB, 0.585712E-02_JPRB &
+  &, 0.520305E-02_JPRB, 0.458725E-02_JPRB, 0.407836E-02_JPRB, 0.358279E-02_JPRB &
+  &, 0.316992E-02_JPRB, 0.277565E-02_JPRB, 0.243671E-02_JPRB &
+  &, 0.215648E-02_JPRB, 0.190205E-02_JPRB, 0.163811E-02_JPRB, 0.143977E-02_JPRB &
+  &, 0.123414E-02_JPRB, 0.109889E-02_JPRB, 0.958715E-03_JPRB &
+  &, 0.813530E-03_JPRB, 0.704096E-03_JPRB, 0.590829E-03_JPRB, 0.515829E-03_JPRB &
+  &, 0.438230E-03_JPRB, 0.401495E-03_JPRB, 0.319274E-03_JPRB &
+  &, 0.279222E-03_JPRB, 0.237824E-03_JPRB, 0.195060E-03_JPRB, 0.150914E-03_JPRB &
+  &, 0.153051E-03_JPRB, 0.106804E-03_JPRB, 0.108252E-03_JPRB &
+  &, 0.598563E-04_JPRB, 0.605924E-04_JPRB, 0.613345E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 315, :) = (/ &
+  &  0.949174E+00_JPRB, 0.935734E+00_JPRB, 0.922021E+00_JPRB, 0.908044E+00_JPRB &
+  &, 0.893811E+00_JPRB, 0.879333E+00_JPRB, 0.864620E+00_JPRB &
+  &, 0.849683E+00_JPRB, 0.834531E+00_JPRB, 0.819178E+00_JPRB, 0.803633E+00_JPRB &
+  &, 0.787909E+00_JPRB, 0.772015E+00_JPRB, 0.755968E+00_JPRB &
+  &, 0.739776E+00_JPRB, 0.723455E+00_JPRB, 0.707018E+00_JPRB, 0.690477E+00_JPRB &
+  &, 0.673847E+00_JPRB, 0.657142E+00_JPRB, 0.640379E+00_JPRB &
+  &, 0.623570E+00_JPRB, 0.606736E+00_JPRB, 0.589880E+00_JPRB, 0.573039E+00_JPRB &
+  &, 0.556211E+00_JPRB, 0.539424E+00_JPRB, 0.522686E+00_JPRB &
+  &, 0.506023E+00_JPRB, 0.489443E+00_JPRB, 0.472973E+00_JPRB, 0.456622E+00_JPRB &
+  &, 0.440415E+00_JPRB, 0.424366E+00_JPRB, 0.408491E+00_JPRB &
+  &, 0.392804E+00_JPRB, 0.377331E+00_JPRB, 0.362084E+00_JPRB, 0.347072E+00_JPRB &
+  &, 0.332324E+00_JPRB, 0.317839E+00_JPRB, 0.303648E+00_JPRB &
+  &, 0.289753E+00_JPRB, 0.276163E+00_JPRB, 0.262899E+00_JPRB, 0.249971E+00_JPRB &
+  &, 0.237387E+00_JPRB, 0.225156E+00_JPRB, 0.213283E+00_JPRB &
+  &, 0.201772E+00_JPRB, 0.190639E+00_JPRB, 0.179885E+00_JPRB, 0.169509E+00_JPRB &
+  &, 0.159522E+00_JPRB, 0.149916E+00_JPRB, 0.140699E+00_JPRB &
+  &, 0.131860E+00_JPRB, 0.123415E+00_JPRB, 0.115333E+00_JPRB, 0.107641E+00_JPRB &
+  &, 0.100301E+00_JPRB, 0.933365E-01_JPRB, 0.867377E-01_JPRB &
+  &, 0.804721E-01_JPRB, 0.745583E-01_JPRB, 0.689575E-01_JPRB, 0.637035E-01_JPRB &
+  &, 0.587518E-01_JPRB, 0.541131E-01_JPRB, 0.497559E-01_JPRB &
+  &, 0.456658E-01_JPRB, 0.418685E-01_JPRB, 0.383249E-01_JPRB, 0.350135E-01_JPRB &
+  &, 0.319556E-01_JPRB, 0.291032E-01_JPRB, 0.264745E-01_JPRB &
+  &, 0.240398E-01_JPRB, 0.218157E-01_JPRB, 0.197434E-01_JPRB, 0.178356E-01_JPRB &
+  &, 0.161059E-01_JPRB, 0.145143E-01_JPRB, 0.130444E-01_JPRB &
+  &, 0.117337E-01_JPRB, 0.105087E-01_JPRB, 0.940518E-02_JPRB, 0.840259E-02_JPRB &
+  &, 0.750826E-02_JPRB, 0.669922E-02_JPRB, 0.595042E-02_JPRB &
+  &, 0.529805E-02_JPRB, 0.468396E-02_JPRB, 0.414398E-02_JPRB, 0.364957E-02_JPRB &
+  &, 0.323787E-02_JPRB, 0.284480E-02_JPRB, 0.250705E-02_JPRB &
+  &, 0.219226E-02_JPRB, 0.193844E-02_JPRB, 0.167511E-02_JPRB, 0.147739E-02_JPRB &
+  &, 0.127239E-02_JPRB, 0.109889E-02_JPRB, 0.958715E-03_JPRB &
+  &, 0.853706E-03_JPRB, 0.704096E-03_JPRB, 0.632317E-03_JPRB, 0.515829E-03_JPRB &
+  &, 0.481052E-03_JPRB, 0.401495E-03_JPRB, 0.319274E-03_JPRB &
+  &, 0.279222E-03_JPRB, 0.237824E-03_JPRB, 0.195060E-03_JPRB, 0.150914E-03_JPRB &
+  &, 0.153051E-03_JPRB, 0.106804E-03_JPRB, 0.108252E-03_JPRB &
+  &, 0.598563E-04_JPRB, 0.605924E-04_JPRB, 0.613345E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART45',1,ZHOOK_HANDLE)
+END SUBROUTINE PART45
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART46
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART46',0,ZHOOK_HANDLE)
+
+XCW( 316, :) = (/ &
+  &  0.949448E+00_JPRB, 0.936072E+00_JPRB, 0.922422E+00_JPRB, 0.908507E+00_JPRB &
+  &, 0.894335E+00_JPRB, 0.879916E+00_JPRB, 0.865261E+00_JPRB &
+  &, 0.850379E+00_JPRB, 0.835283E+00_JPRB, 0.819982E+00_JPRB, 0.804488E+00_JPRB &
+  &, 0.788812E+00_JPRB, 0.772967E+00_JPRB, 0.756964E+00_JPRB &
+  &, 0.740817E+00_JPRB, 0.724538E+00_JPRB, 0.708140E+00_JPRB, 0.691637E+00_JPRB &
+  &, 0.675044E+00_JPRB, 0.658373E+00_JPRB, 0.641640E+00_JPRB &
+  &, 0.624863E+00_JPRB, 0.608052E+00_JPRB, 0.591230E+00_JPRB, 0.574406E+00_JPRB &
+  &, 0.557600E+00_JPRB, 0.540828E+00_JPRB, 0.524109E+00_JPRB &
+  &, 0.507458E+00_JPRB, 0.490889E+00_JPRB, 0.474426E+00_JPRB, 0.458087E+00_JPRB &
+  &, 0.441882E+00_JPRB, 0.425834E+00_JPRB, 0.409961E+00_JPRB &
+  &, 0.394273E+00_JPRB, 0.378790E+00_JPRB, 0.363532E+00_JPRB, 0.348516E+00_JPRB &
+  &, 0.333753E+00_JPRB, 0.319261E+00_JPRB, 0.305053E+00_JPRB &
+  &, 0.291137E+00_JPRB, 0.277525E+00_JPRB, 0.264248E+00_JPRB, 0.251294E+00_JPRB &
+  &, 0.238683E+00_JPRB, 0.226421E+00_JPRB, 0.214527E+00_JPRB &
+  &, 0.202994E+00_JPRB, 0.191824E+00_JPRB, 0.181043E+00_JPRB, 0.170639E+00_JPRB &
+  &, 0.160620E+00_JPRB, 0.150981E+00_JPRB, 0.141729E+00_JPRB &
+  &, 0.132852E+00_JPRB, 0.124367E+00_JPRB, 0.116258E+00_JPRB, 0.108521E+00_JPRB &
+  &, 0.101149E+00_JPRB, 0.941524E-01_JPRB, 0.875010E-01_JPRB &
+  &, 0.811980E-01_JPRB, 0.752446E-01_JPRB, 0.696400E-01_JPRB, 0.643427E-01_JPRB &
+  &, 0.593456E-01_JPRB, 0.546792E-01_JPRB, 0.502928E-01_JPRB &
+  &, 0.461719E-01_JPRB, 0.423422E-01_JPRB, 0.387646E-01_JPRB, 0.354398E-01_JPRB &
+  &, 0.323449E-01_JPRB, 0.294770E-01_JPRB, 0.268082E-01_JPRB &
+  &, 0.243560E-01_JPRB, 0.220886E-01_JPRB, 0.200217E-01_JPRB, 0.180936E-01_JPRB &
+  &, 0.163426E-01_JPRB, 0.147288E-01_JPRB, 0.132630E-01_JPRB &
+  &, 0.119008E-01_JPRB, 0.106789E-01_JPRB, 0.957863E-02_JPRB, 0.854982E-02_JPRB &
+  &, 0.762823E-02_JPRB, 0.679085E-02_JPRB, 0.604373E-02_JPRB &
+  &, 0.539304E-02_JPRB, 0.478066E-02_JPRB, 0.420960E-02_JPRB, 0.374974E-02_JPRB &
+  &, 0.330583E-02_JPRB, 0.291394E-02_JPRB, 0.254222E-02_JPRB &
+  &, 0.222803E-02_JPRB, 0.197483E-02_JPRB, 0.171212E-02_JPRB, 0.151502E-02_JPRB &
+  &, 0.131064E-02_JPRB, 0.113778E-02_JPRB, 0.998245E-03_JPRB &
+  &, 0.853706E-03_JPRB, 0.744925E-03_JPRB, 0.632317E-03_JPRB, 0.557981E-03_JPRB &
+  &, 0.481052E-03_JPRB, 0.401495E-03_JPRB, 0.363455E-03_JPRB &
+  &, 0.279222E-03_JPRB, 0.237824E-03_JPRB, 0.195060E-03_JPRB, 0.197886E-03_JPRB &
+  &, 0.153051E-03_JPRB, 0.106804E-03_JPRB, 0.108252E-03_JPRB &
+  &, 0.598563E-04_JPRB, 0.605924E-04_JPRB, 0.613345E-04_JPRB, 0.620825E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 317, :) = (/ &
+  &  0.949720E+00_JPRB, 0.936410E+00_JPRB, 0.922822E+00_JPRB, 0.908970E+00_JPRB &
+  &, 0.894858E+00_JPRB, 0.880498E+00_JPRB, 0.865900E+00_JPRB &
+  &, 0.851075E+00_JPRB, 0.836033E+00_JPRB, 0.820785E+00_JPRB, 0.805342E+00_JPRB &
+  &, 0.789716E+00_JPRB, 0.773918E+00_JPRB, 0.757961E+00_JPRB &
+  &, 0.741858E+00_JPRB, 0.725620E+00_JPRB, 0.709262E+00_JPRB, 0.692797E+00_JPRB &
+  &, 0.676240E+00_JPRB, 0.659604E+00_JPRB, 0.642901E+00_JPRB &
+  &, 0.626153E+00_JPRB, 0.609371E+00_JPRB, 0.592573E+00_JPRB, 0.575771E+00_JPRB &
+  &, 0.558986E+00_JPRB, 0.542233E+00_JPRB, 0.525529E+00_JPRB &
+  &, 0.508893E+00_JPRB, 0.492336E+00_JPRB, 0.475884E+00_JPRB, 0.459548E+00_JPRB &
+  &, 0.443350E+00_JPRB, 0.427303E+00_JPRB, 0.411431E+00_JPRB &
+  &, 0.395743E+00_JPRB, 0.380259E+00_JPRB, 0.364989E+00_JPRB, 0.349970E+00_JPRB &
+  &, 0.335192E+00_JPRB, 0.320684E+00_JPRB, 0.306457E+00_JPRB &
+  &, 0.292522E+00_JPRB, 0.278898E+00_JPRB, 0.265598E+00_JPRB, 0.252618E+00_JPRB &
+  &, 0.239990E+00_JPRB, 0.227698E+00_JPRB, 0.215771E+00_JPRB &
+  &, 0.204216E+00_JPRB, 0.193021E+00_JPRB, 0.182201E+00_JPRB, 0.171768E+00_JPRB &
+  &, 0.161704E+00_JPRB, 0.152032E+00_JPRB, 0.142744E+00_JPRB &
+  &, 0.133844E+00_JPRB, 0.125318E+00_JPRB, 0.117166E+00_JPRB, 0.109400E+00_JPRB &
+  &, 0.101998E+00_JPRB, 0.949510E-01_JPRB, 0.882820E-01_JPRB &
+  &, 0.819420E-01_JPRB, 0.759680E-01_JPRB, 0.703035E-01_JPRB, 0.649820E-01_JPRB &
+  &, 0.599591E-01_JPRB, 0.552453E-01_JPRB, 0.508297E-01_JPRB &
+  &, 0.466991E-01_JPRB, 0.428159E-01_JPRB, 0.392262E-01_JPRB, 0.358662E-01_JPRB &
+  &, 0.327342E-01_JPRB, 0.298509E-01_JPRB, 0.271659E-01_JPRB &
+  &, 0.246965E-01_JPRB, 0.223863E-01_JPRB, 0.202999E-01_JPRB, 0.183516E-01_JPRB &
+  &, 0.165793E-01_JPRB, 0.149433E-01_JPRB, 0.134543E-01_JPRB &
+  &, 0.120957E-01_JPRB, 0.108492E-01_JPRB, 0.972317E-02_JPRB, 0.869706E-02_JPRB &
+  &, 0.777820E-02_JPRB, 0.691303E-02_JPRB, 0.616814E-02_JPRB &
+  &, 0.548804E-02_JPRB, 0.484513E-02_JPRB, 0.430803E-02_JPRB, 0.381652E-02_JPRB &
+  &, 0.337378E-02_JPRB, 0.294851E-02_JPRB, 0.261256E-02_JPRB &
+  &, 0.229958E-02_JPRB, 0.201121E-02_JPRB, 0.174912E-02_JPRB, 0.155264E-02_JPRB &
+  &, 0.134890E-02_JPRB, 0.117667E-02_JPRB, 0.998245E-03_JPRB &
+  &, 0.893883E-03_JPRB, 0.744925E-03_JPRB, 0.673805E-03_JPRB, 0.557981E-03_JPRB &
+  &, 0.481052E-03_JPRB, 0.401495E-03_JPRB, 0.363455E-03_JPRB &
+  &, 0.279222E-03_JPRB, 0.237824E-03_JPRB, 0.195060E-03_JPRB, 0.197886E-03_JPRB &
+  &, 0.153051E-03_JPRB, 0.106804E-03_JPRB, 0.108252E-03_JPRB &
+  &, 0.598563E-04_JPRB, 0.605924E-04_JPRB, 0.613345E-04_JPRB, 0.620825E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 318, :) = (/ &
+  &  0.949989E+00_JPRB, 0.936746E+00_JPRB, 0.923222E+00_JPRB, 0.909432E+00_JPRB &
+  &, 0.895380E+00_JPRB, 0.881080E+00_JPRB, 0.866540E+00_JPRB &
+  &, 0.851768E+00_JPRB, 0.836783E+00_JPRB, 0.821587E+00_JPRB, 0.806196E+00_JPRB &
+  &, 0.790619E+00_JPRB, 0.774868E+00_JPRB, 0.758957E+00_JPRB &
+  &, 0.742897E+00_JPRB, 0.726701E+00_JPRB, 0.710384E+00_JPRB, 0.693958E+00_JPRB &
+  &, 0.677435E+00_JPRB, 0.660832E+00_JPRB, 0.644163E+00_JPRB &
+  &, 0.627446E+00_JPRB, 0.610690E+00_JPRB, 0.593916E+00_JPRB, 0.577138E+00_JPRB &
+  &, 0.560376E+00_JPRB, 0.543641E+00_JPRB, 0.526952E+00_JPRB &
+  &, 0.510328E+00_JPRB, 0.493786E+00_JPRB, 0.477342E+00_JPRB, 0.461013E+00_JPRB &
+  &, 0.444821E+00_JPRB, 0.428776E+00_JPRB, 0.412900E+00_JPRB &
+  &, 0.397213E+00_JPRB, 0.381718E+00_JPRB, 0.366455E+00_JPRB, 0.351413E+00_JPRB &
+  &, 0.336631E+00_JPRB, 0.322107E+00_JPRB, 0.307862E+00_JPRB &
+  &, 0.293917E+00_JPRB, 0.280272E+00_JPRB, 0.266948E+00_JPRB, 0.253953E+00_JPRB &
+  &, 0.241297E+00_JPRB, 0.228987E+00_JPRB, 0.217028E+00_JPRB &
+  &, 0.205438E+00_JPRB, 0.194219E+00_JPRB, 0.183373E+00_JPRB, 0.172897E+00_JPRB &
+  &, 0.162802E+00_JPRB, 0.153097E+00_JPRB, 0.143773E+00_JPRB &
+  &, 0.134836E+00_JPRB, 0.126286E+00_JPRB, 0.118091E+00_JPRB, 0.110296E+00_JPRB &
+  &, 0.102847E+00_JPRB, 0.957843E-01_JPRB, 0.890630E-01_JPRB &
+  &, 0.826860E-01_JPRB, 0.766728E-01_JPRB, 0.709859E-01_JPRB, 0.656213E-01_JPRB &
+  &, 0.605726E-01_JPRB, 0.558114E-01_JPRB, 0.513666E-01_JPRB &
+  &, 0.472052E-01_JPRB, 0.433112E-01_JPRB, 0.396659E-01_JPRB, 0.362925E-01_JPRB &
+  &, 0.331464E-01_JPRB, 0.302248E-01_JPRB, 0.275235E-01_JPRB &
+  &, 0.250127E-01_JPRB, 0.227088E-01_JPRB, 0.205782E-01_JPRB, 0.186095E-01_JPRB &
+  &, 0.168160E-01_JPRB, 0.151577E-01_JPRB, 0.136455E-01_JPRB &
+  &, 0.122628E-01_JPRB, 0.110194E-01_JPRB, 0.986771E-02_JPRB, 0.884430E-02_JPRB &
+  &, 0.789817E-02_JPRB, 0.703521E-02_JPRB, 0.626144E-02_JPRB &
+  &, 0.558303E-02_JPRB, 0.494183E-02_JPRB, 0.437365E-02_JPRB, 0.388330E-02_JPRB &
+  &, 0.344174E-02_JPRB, 0.301765E-02_JPRB, 0.264773E-02_JPRB &
+  &, 0.233536E-02_JPRB, 0.204760E-02_JPRB, 0.178612E-02_JPRB, 0.155264E-02_JPRB &
+  &, 0.138715E-02_JPRB, 0.117667E-02_JPRB, 0.103777E-02_JPRB &
+  &, 0.893883E-03_JPRB, 0.785754E-03_JPRB, 0.673805E-03_JPRB, 0.600133E-03_JPRB &
+  &, 0.481052E-03_JPRB, 0.444995E-03_JPRB, 0.363455E-03_JPRB &
+  &, 0.324093E-03_JPRB, 0.283389E-03_JPRB, 0.241326E-03_JPRB, 0.197886E-03_JPRB &
+  &, 0.153051E-03_JPRB, 0.106804E-03_JPRB, 0.108252E-03_JPRB &
+  &, 0.109713E-03_JPRB, 0.605924E-04_JPRB, 0.613345E-04_JPRB, 0.620825E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 319, :) = (/ &
+  &  0.950262E+00_JPRB, 0.937082E+00_JPRB, 0.923621E+00_JPRB, 0.909893E+00_JPRB &
+  &, 0.895902E+00_JPRB, 0.881661E+00_JPRB, 0.867179E+00_JPRB &
+  &, 0.852466E+00_JPRB, 0.837532E+00_JPRB, 0.822389E+00_JPRB, 0.807049E+00_JPRB &
+  &, 0.791522E+00_JPRB, 0.775818E+00_JPRB, 0.759953E+00_JPRB &
+  &, 0.743938E+00_JPRB, 0.727784E+00_JPRB, 0.711506E+00_JPRB, 0.695118E+00_JPRB &
+  &, 0.678631E+00_JPRB, 0.662063E+00_JPRB, 0.645427E+00_JPRB &
+  &, 0.628736E+00_JPRB, 0.612010E+00_JPRB, 0.595263E+00_JPRB, 0.578506E+00_JPRB &
+  &, 0.561762E+00_JPRB, 0.545049E+00_JPRB, 0.528376E+00_JPRB &
+  &, 0.511766E+00_JPRB, 0.495237E+00_JPRB, 0.478800E+00_JPRB, 0.462482E+00_JPRB &
+  &, 0.446293E+00_JPRB, 0.430250E+00_JPRB, 0.414374E+00_JPRB &
+  &, 0.398682E+00_JPRB, 0.383186E+00_JPRB, 0.367912E+00_JPRB, 0.352867E+00_JPRB &
+  &, 0.338070E+00_JPRB, 0.323540E+00_JPRB, 0.309277E+00_JPRB &
+  &, 0.295312E+00_JPRB, 0.281657E+00_JPRB, 0.268309E+00_JPRB, 0.255289E+00_JPRB &
+  &, 0.242605E+00_JPRB, 0.230264E+00_JPRB, 0.218286E+00_JPRB &
+  &, 0.206660E+00_JPRB, 0.195417E+00_JPRB, 0.184531E+00_JPRB, 0.174026E+00_JPRB &
+  &, 0.163915E+00_JPRB, 0.154177E+00_JPRB, 0.144818E+00_JPRB &
+  &, 0.135843E+00_JPRB, 0.127237E+00_JPRB, 0.119032E+00_JPRB, 0.111176E+00_JPRB &
+  &, 0.103713E+00_JPRB, 0.966002E-01_JPRB, 0.898440E-01_JPRB &
+  &, 0.834482E-01_JPRB, 0.773777E-01_JPRB, 0.716684E-01_JPRB, 0.662605E-01_JPRB &
+  &, 0.611862E-01_JPRB, 0.563977E-01_JPRB, 0.519242E-01_JPRB &
+  &, 0.477113E-01_JPRB, 0.437849E-01_JPRB, 0.401275E-01_JPRB, 0.367188E-01_JPRB &
+  &, 0.335357E-01_JPRB, 0.305987E-01_JPRB, 0.278573E-01_JPRB &
+  &, 0.253289E-01_JPRB, 0.230065E-01_JPRB, 0.208565E-01_JPRB, 0.188675E-01_JPRB &
+  &, 0.170527E-01_JPRB, 0.153990E-01_JPRB, 0.138642E-01_JPRB &
+  &, 0.124577E-01_JPRB, 0.111897E-01_JPRB, 0.100412E-01_JPRB, 0.899154E-02_JPRB &
+  &, 0.801814E-02_JPRB, 0.715739E-02_JPRB, 0.638585E-02_JPRB &
+  &, 0.567803E-02_JPRB, 0.503853E-02_JPRB, 0.447207E-02_JPRB, 0.395008E-02_JPRB &
+  &, 0.350969E-02_JPRB, 0.308679E-02_JPRB, 0.271807E-02_JPRB &
+  &, 0.237113E-02_JPRB, 0.208398E-02_JPRB, 0.182313E-02_JPRB, 0.159027E-02_JPRB &
+  &, 0.138715E-02_JPRB, 0.121556E-02_JPRB, 0.107730E-02_JPRB &
+  &, 0.934059E-03_JPRB, 0.785754E-03_JPRB, 0.673805E-03_JPRB, 0.600133E-03_JPRB &
+  &, 0.523875E-03_JPRB, 0.444995E-03_JPRB, 0.363455E-03_JPRB &
+  &, 0.324093E-03_JPRB, 0.283389E-03_JPRB, 0.241326E-03_JPRB, 0.197886E-03_JPRB &
+  &, 0.153051E-03_JPRB, 0.155206E-03_JPRB, 0.108252E-03_JPRB &
+  &, 0.109713E-03_JPRB, 0.605924E-04_JPRB, 0.613345E-04_JPRB, 0.620825E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 320, :) = (/ &
+  &  0.950531E+00_JPRB, 0.937418E+00_JPRB, 0.924020E+00_JPRB, 0.910354E+00_JPRB &
+  &, 0.896424E+00_JPRB, 0.882242E+00_JPRB, 0.867817E+00_JPRB &
+  &, 0.853160E+00_JPRB, 0.838280E+00_JPRB, 0.823191E+00_JPRB, 0.807902E+00_JPRB &
+  &, 0.792423E+00_JPRB, 0.776768E+00_JPRB, 0.760948E+00_JPRB &
+  &, 0.744977E+00_JPRB, 0.728865E+00_JPRB, 0.712627E+00_JPRB, 0.696277E+00_JPRB &
+  &, 0.679827E+00_JPRB, 0.663291E+00_JPRB, 0.646689E+00_JPRB &
+  &, 0.630029E+00_JPRB, 0.613329E+00_JPRB, 0.596606E+00_JPRB, 0.579874E+00_JPRB &
+  &, 0.563151E+00_JPRB, 0.546457E+00_JPRB, 0.529799E+00_JPRB &
+  &, 0.513205E+00_JPRB, 0.496688E+00_JPRB, 0.480262E+00_JPRB, 0.463947E+00_JPRB &
+  &, 0.447764E+00_JPRB, 0.431723E+00_JPRB, 0.415848E+00_JPRB &
+  &, 0.400152E+00_JPRB, 0.384655E+00_JPRB, 0.369379E+00_JPRB, 0.354321E+00_JPRB &
+  &, 0.339519E+00_JPRB, 0.324973E+00_JPRB, 0.310692E+00_JPRB &
+  &, 0.296719E+00_JPRB, 0.283030E+00_JPRB, 0.269670E+00_JPRB, 0.256624E+00_JPRB &
+  &, 0.243912E+00_JPRB, 0.231554E+00_JPRB, 0.219543E+00_JPRB &
+  &, 0.207895E+00_JPRB, 0.196615E+00_JPRB, 0.185702E+00_JPRB, 0.175169E+00_JPRB &
+  &, 0.165013E+00_JPRB, 0.155242E+00_JPRB, 0.145848E+00_JPRB &
+  &, 0.136850E+00_JPRB, 0.128220E+00_JPRB, 0.119957E+00_JPRB, 0.112072E+00_JPRB &
+  &, 0.104561E+00_JPRB, 0.974161E-01_JPRB, 0.906428E-01_JPRB &
+  &, 0.841922E-01_JPRB, 0.781011E-01_JPRB, 0.723509E-01_JPRB, 0.669192E-01_JPRB &
+  &, 0.617997E-01_JPRB, 0.569840E-01_JPRB, 0.524611E-01_JPRB &
+  &, 0.482385E-01_JPRB, 0.442801E-01_JPRB, 0.405891E-01_JPRB, 0.371452E-01_JPRB &
+  &, 0.339479E-01_JPRB, 0.309726E-01_JPRB, 0.282149E-01_JPRB &
+  &, 0.256694E-01_JPRB, 0.233042E-01_JPRB, 0.211348E-01_JPRB, 0.191255E-01_JPRB &
+  &, 0.172895E-01_JPRB, 0.156135E-01_JPRB, 0.140554E-01_JPRB &
+  &, 0.126527E-01_JPRB, 0.113599E-01_JPRB, 0.101857E-01_JPRB, 0.913878E-02_JPRB &
+  &, 0.816811E-02_JPRB, 0.727957E-02_JPRB, 0.647915E-02_JPRB &
+  &, 0.577302E-02_JPRB, 0.513523E-02_JPRB, 0.453769E-02_JPRB, 0.401686E-02_JPRB &
+  &, 0.357765E-02_JPRB, 0.315593E-02_JPRB, 0.275324E-02_JPRB &
+  &, 0.244268E-02_JPRB, 0.215675E-02_JPRB, 0.186013E-02_JPRB, 0.162789E-02_JPRB &
+  &, 0.142541E-02_JPRB, 0.125445E-02_JPRB, 0.107730E-02_JPRB &
+  &, 0.934059E-03_JPRB, 0.826583E-03_JPRB, 0.715293E-03_JPRB, 0.600133E-03_JPRB &
+  &, 0.523875E-03_JPRB, 0.444995E-03_JPRB, 0.363455E-03_JPRB &
+  &, 0.324093E-03_JPRB, 0.283389E-03_JPRB, 0.241326E-03_JPRB, 0.197886E-03_JPRB &
+  &, 0.153051E-03_JPRB, 0.155206E-03_JPRB, 0.108252E-03_JPRB &
+  &, 0.109713E-03_JPRB, 0.605924E-04_JPRB, 0.613345E-04_JPRB, 0.620825E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 321, :) = (/ &
+  &  0.950803E+00_JPRB, 0.937753E+00_JPRB, 0.924419E+00_JPRB, 0.910814E+00_JPRB &
+  &, 0.896945E+00_JPRB, 0.882822E+00_JPRB, 0.868454E+00_JPRB &
+  &, 0.853853E+00_JPRB, 0.839029E+00_JPRB, 0.823991E+00_JPRB, 0.808753E+00_JPRB &
+  &, 0.793324E+00_JPRB, 0.777717E+00_JPRB, 0.761944E+00_JPRB &
+  &, 0.746015E+00_JPRB, 0.729946E+00_JPRB, 0.713749E+00_JPRB, 0.697435E+00_JPRB &
+  &, 0.681022E+00_JPRB, 0.664521E+00_JPRB, 0.647950E+00_JPRB &
+  &, 0.631318E+00_JPRB, 0.614648E+00_JPRB, 0.597952E+00_JPRB, 0.581245E+00_JPRB &
+  &, 0.564541E+00_JPRB, 0.547865E+00_JPRB, 0.531226E+00_JPRB &
+  &, 0.514644E+00_JPRB, 0.498138E+00_JPRB, 0.481724E+00_JPRB, 0.465416E+00_JPRB &
+  &, 0.449236E+00_JPRB, 0.433201E+00_JPRB, 0.417327E+00_JPRB &
+  &, 0.401631E+00_JPRB, 0.386133E+00_JPRB, 0.370836E+00_JPRB, 0.355775E+00_JPRB &
+  &, 0.340958E+00_JPRB, 0.326406E+00_JPRB, 0.312118E+00_JPRB &
+  &, 0.298114E+00_JPRB, 0.284415E+00_JPRB, 0.271031E+00_JPRB, 0.257960E+00_JPRB &
+  &, 0.245232E+00_JPRB, 0.232843E+00_JPRB, 0.220812E+00_JPRB &
+  &, 0.209130E+00_JPRB, 0.197826E+00_JPRB, 0.186888E+00_JPRB, 0.176313E+00_JPRB &
+  &, 0.166126E+00_JPRB, 0.156322E+00_JPRB, 0.146893E+00_JPRB &
+  &, 0.137858E+00_JPRB, 0.129188E+00_JPRB, 0.120898E+00_JPRB, 0.112985E+00_JPRB &
+  &, 0.105444E+00_JPRB, 0.982494E-01_JPRB, 0.914238E-01_JPRB &
+  &, 0.849544E-01_JPRB, 0.788245E-01_JPRB, 0.730333E-01_JPRB, 0.675778E-01_JPRB &
+  &, 0.624133E-01_JPRB, 0.575703E-01_JPRB, 0.530186E-01_JPRB &
+  &, 0.487657E-01_JPRB, 0.447754E-01_JPRB, 0.410507E-01_JPRB, 0.375939E-01_JPRB &
+  &, 0.343601E-01_JPRB, 0.313465E-01_JPRB, 0.285725E-01_JPRB &
+  &, 0.260099E-01_JPRB, 0.236267E-01_JPRB, 0.214131E-01_JPRB, 0.194093E-01_JPRB &
+  &, 0.175525E-01_JPRB, 0.158280E-01_JPRB, 0.142740E-01_JPRB &
+  &, 0.128476E-01_JPRB, 0.115585E-01_JPRB, 0.103592E-01_JPRB, 0.928601E-02_JPRB &
+  &, 0.828808E-02_JPRB, 0.740174E-02_JPRB, 0.660356E-02_JPRB &
+  &, 0.586802E-02_JPRB, 0.523194E-02_JPRB, 0.463612E-02_JPRB, 0.411703E-02_JPRB &
+  &, 0.364561E-02_JPRB, 0.319050E-02_JPRB, 0.282358E-02_JPRB &
+  &, 0.247845E-02_JPRB, 0.219314E-02_JPRB, 0.193413E-02_JPRB, 0.166552E-02_JPRB &
+  &, 0.146366E-02_JPRB, 0.129334E-02_JPRB, 0.111683E-02_JPRB &
+  &, 0.974236E-03_JPRB, 0.826583E-03_JPRB, 0.715293E-03_JPRB, 0.642286E-03_JPRB &
+  &, 0.523875E-03_JPRB, 0.444995E-03_JPRB, 0.407637E-03_JPRB &
+  &, 0.324093E-03_JPRB, 0.283389E-03_JPRB, 0.241326E-03_JPRB, 0.197886E-03_JPRB &
+  &, 0.153051E-03_JPRB, 0.155206E-03_JPRB, 0.108252E-03_JPRB &
+  &, 0.109713E-03_JPRB, 0.605924E-04_JPRB, 0.613345E-04_JPRB, 0.620825E-04_JPRB &
+  &, 0.628365E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 322, :) = (/ &
+  &  0.951073E+00_JPRB, 0.938088E+00_JPRB, 0.924818E+00_JPRB, 0.911275E+00_JPRB &
+  &, 0.897466E+00_JPRB, 0.883402E+00_JPRB, 0.869092E+00_JPRB &
+  &, 0.854547E+00_JPRB, 0.839776E+00_JPRB, 0.824793E+00_JPRB, 0.809605E+00_JPRB &
+  &, 0.794225E+00_JPRB, 0.778665E+00_JPRB, 0.762937E+00_JPRB &
+  &, 0.747054E+00_JPRB, 0.731028E+00_JPRB, 0.714870E+00_JPRB, 0.698596E+00_JPRB &
+  &, 0.682218E+00_JPRB, 0.665752E+00_JPRB, 0.649211E+00_JPRB &
+  &, 0.632611E+00_JPRB, 0.615967E+00_JPRB, 0.599295E+00_JPRB, 0.582612E+00_JPRB &
+  &, 0.565934E+00_JPRB, 0.549274E+00_JPRB, 0.532654E+00_JPRB &
+  &, 0.516087E+00_JPRB, 0.499592E+00_JPRB, 0.483186E+00_JPRB, 0.466885E+00_JPRB &
+  &, 0.450712E+00_JPRB, 0.434678E+00_JPRB, 0.418806E+00_JPRB &
+  &, 0.403110E+00_JPRB, 0.387602E+00_JPRB, 0.372312E+00_JPRB, 0.357238E+00_JPRB &
+  &, 0.342407E+00_JPRB, 0.327839E+00_JPRB, 0.313534E+00_JPRB &
+  &, 0.299521E+00_JPRB, 0.285800E+00_JPRB, 0.272393E+00_JPRB, 0.259307E+00_JPRB &
+  &, 0.246552E+00_JPRB, 0.234146E+00_JPRB, 0.222082E+00_JPRB &
+  &, 0.210379E+00_JPRB, 0.199038E+00_JPRB, 0.188059E+00_JPRB, 0.177470E+00_JPRB &
+  &, 0.167253E+00_JPRB, 0.157402E+00_JPRB, 0.147953E+00_JPRB &
+  &, 0.138865E+00_JPRB, 0.130171E+00_JPRB, 0.121839E+00_JPRB, 0.113881E+00_JPRB &
+  &, 0.106310E+00_JPRB, 0.990826E-01_JPRB, 0.922226E-01_JPRB &
+  &, 0.857165E-01_JPRB, 0.795665E-01_JPRB, 0.737347E-01_JPRB, 0.682364E-01_JPRB &
+  &, 0.630466E-01_JPRB, 0.581769E-01_JPRB, 0.535968E-01_JPRB &
+  &, 0.492929E-01_JPRB, 0.452706E-01_JPRB, 0.415343E-01_JPRB, 0.380202E-01_JPRB &
+  &, 0.347723E-01_JPRB, 0.317437E-01_JPRB, 0.289302E-01_JPRB &
+  &, 0.263260E-01_JPRB, 0.239244E-01_JPRB, 0.217167E-01_JPRB, 0.196672E-01_JPRB &
+  &, 0.177892E-01_JPRB, 0.160693E-01_JPRB, 0.144926E-01_JPRB &
+  &, 0.130425E-01_JPRB, 0.117288E-01_JPRB, 0.105326E-01_JPRB, 0.943325E-02_JPRB &
+  &, 0.843805E-02_JPRB, 0.752392E-02_JPRB, 0.672797E-02_JPRB &
+  &, 0.599468E-02_JPRB, 0.532864E-02_JPRB, 0.473455E-02_JPRB, 0.418381E-02_JPRB &
+  &, 0.371356E-02_JPRB, 0.325964E-02_JPRB, 0.289392E-02_JPRB &
+  &, 0.255000E-02_JPRB, 0.222952E-02_JPRB, 0.197114E-02_JPRB, 0.170314E-02_JPRB &
+  &, 0.150192E-02_JPRB, 0.129334E-02_JPRB, 0.115636E-02_JPRB &
+  &, 0.974236E-03_JPRB, 0.867413E-03_JPRB, 0.756781E-03_JPRB, 0.642286E-03_JPRB &
+  &, 0.566698E-03_JPRB, 0.488494E-03_JPRB, 0.407637E-03_JPRB &
+  &, 0.368963E-03_JPRB, 0.283389E-03_JPRB, 0.241326E-03_JPRB, 0.197886E-03_JPRB &
+  &, 0.200735E-03_JPRB, 0.155206E-03_JPRB, 0.108252E-03_JPRB &
+  &, 0.109713E-03_JPRB, 0.605924E-04_JPRB, 0.613345E-04_JPRB, 0.620825E-04_JPRB &
+  &, 0.628365E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART46',1,ZHOOK_HANDLE)
+END SUBROUTINE PART46
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART47
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART47',0,ZHOOK_HANDLE)
+
+XCW( 323, :) = (/ &
+  &  0.951344E+00_JPRB, 0.938422E+00_JPRB, 0.925216E+00_JPRB, 0.911735E+00_JPRB &
+  &, 0.897986E+00_JPRB, 0.883980E+00_JPRB, 0.869729E+00_JPRB &
+  &, 0.855239E+00_JPRB, 0.840523E+00_JPRB, 0.825592E+00_JPRB, 0.810456E+00_JPRB &
+  &, 0.795126E+00_JPRB, 0.779614E+00_JPRB, 0.763932E+00_JPRB &
+  &, 0.748092E+00_JPRB, 0.732107E+00_JPRB, 0.715990E+00_JPRB, 0.699754E+00_JPRB &
+  &, 0.683413E+00_JPRB, 0.666980E+00_JPRB, 0.650473E+00_JPRB &
+  &, 0.633904E+00_JPRB, 0.617287E+00_JPRB, 0.600642E+00_JPRB, 0.583980E+00_JPRB &
+  &, 0.567323E+00_JPRB, 0.550682E+00_JPRB, 0.534081E+00_JPRB &
+  &, 0.517526E+00_JPRB, 0.501043E+00_JPRB, 0.484648E+00_JPRB, 0.468359E+00_JPRB &
+  &, 0.452192E+00_JPRB, 0.436160E+00_JPRB, 0.420289E+00_JPRB &
+  &, 0.404588E+00_JPRB, 0.389080E+00_JPRB, 0.373779E+00_JPRB, 0.358702E+00_JPRB &
+  &, 0.343857E+00_JPRB, 0.329273E+00_JPRB, 0.314960E+00_JPRB &
+  &, 0.300927E+00_JPRB, 0.287197E+00_JPRB, 0.273766E+00_JPRB, 0.260655E+00_JPRB &
+  &, 0.247883E+00_JPRB, 0.235435E+00_JPRB, 0.223352E+00_JPRB &
+  &, 0.211614E+00_JPRB, 0.200249E+00_JPRB, 0.189245E+00_JPRB, 0.178613E+00_JPRB &
+  &, 0.168366E+00_JPRB, 0.158497E+00_JPRB, 0.148998E+00_JPRB &
+  &, 0.139888E+00_JPRB, 0.131154E+00_JPRB, 0.122796E+00_JPRB, 0.114794E+00_JPRB &
+  &, 0.107176E+00_JPRB, 0.999333E-01_JPRB, 0.930391E-01_JPRB &
+  &, 0.864968E-01_JPRB, 0.802899E-01_JPRB, 0.744362E-01_JPRB, 0.688950E-01_JPRB &
+  &, 0.636799E-01_JPRB, 0.587632E-01_JPRB, 0.541544E-01_JPRB &
+  &, 0.498201E-01_JPRB, 0.457874E-01_JPRB, 0.419960E-01_JPRB, 0.384690E-01_JPRB &
+  &, 0.351845E-01_JPRB, 0.321410E-01_JPRB, 0.293116E-01_JPRB &
+  &, 0.266665E-01_JPRB, 0.242469E-01_JPRB, 0.220203E-01_JPRB, 0.199510E-01_JPRB &
+  &, 0.180522E-01_JPRB, 0.163106E-01_JPRB, 0.147112E-01_JPRB &
+  &, 0.132375E-01_JPRB, 0.118990E-01_JPRB, 0.107061E-01_JPRB, 0.958049E-02_JPRB &
+  &, 0.858801E-02_JPRB, 0.767664E-02_JPRB, 0.685237E-02_JPRB &
+  &, 0.608967E-02_JPRB, 0.542534E-02_JPRB, 0.480017E-02_JPRB, 0.425060E-02_JPRB &
+  &, 0.378152E-02_JPRB, 0.332879E-02_JPRB, 0.292909E-02_JPRB &
+  &, 0.258578E-02_JPRB, 0.226591E-02_JPRB, 0.200814E-02_JPRB, 0.174077E-02_JPRB &
+  &, 0.154017E-02_JPRB, 0.133223E-02_JPRB, 0.115636E-02_JPRB &
+  &, 0.101441E-02_JPRB, 0.867413E-03_JPRB, 0.756781E-03_JPRB, 0.642286E-03_JPRB &
+  &, 0.566698E-03_JPRB, 0.488494E-03_JPRB, 0.407637E-03_JPRB &
+  &, 0.368963E-03_JPRB, 0.283389E-03_JPRB, 0.241326E-03_JPRB, 0.197886E-03_JPRB &
+  &, 0.200735E-03_JPRB, 0.155206E-03_JPRB, 0.108252E-03_JPRB &
+  &, 0.109713E-03_JPRB, 0.605924E-04_JPRB, 0.613345E-04_JPRB, 0.620825E-04_JPRB &
+  &, 0.628365E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 324, :) = (/ &
+  &  0.951612E+00_JPRB, 0.938757E+00_JPRB, 0.925613E+00_JPRB, 0.912194E+00_JPRB &
+  &, 0.898505E+00_JPRB, 0.884559E+00_JPRB, 0.870365E+00_JPRB &
+  &, 0.855931E+00_JPRB, 0.841270E+00_JPRB, 0.826391E+00_JPRB, 0.811307E+00_JPRB &
+  &, 0.796026E+00_JPRB, 0.780562E+00_JPRB, 0.764926E+00_JPRB &
+  &, 0.749130E+00_JPRB, 0.733187E+00_JPRB, 0.717111E+00_JPRB, 0.700913E+00_JPRB &
+  &, 0.684609E+00_JPRB, 0.668211E+00_JPRB, 0.651734E+00_JPRB &
+  &, 0.635194E+00_JPRB, 0.618609E+00_JPRB, 0.601988E+00_JPRB, 0.585351E+00_JPRB &
+  &, 0.568716E+00_JPRB, 0.552094E+00_JPRB, 0.535508E+00_JPRB &
+  &, 0.518969E+00_JPRB, 0.502501E+00_JPRB, 0.486114E+00_JPRB, 0.469832E+00_JPRB &
+  &, 0.453668E+00_JPRB, 0.437642E+00_JPRB, 0.421772E+00_JPRB &
+  &, 0.406067E+00_JPRB, 0.390558E+00_JPRB, 0.375246E+00_JPRB, 0.360166E+00_JPRB &
+  &, 0.345316E+00_JPRB, 0.330716E+00_JPRB, 0.316386E+00_JPRB &
+  &, 0.302345E+00_JPRB, 0.288581E+00_JPRB, 0.275138E+00_JPRB, 0.262014E+00_JPRB &
+  &, 0.249203E+00_JPRB, 0.236750E+00_JPRB, 0.224635E+00_JPRB &
+  &, 0.212862E+00_JPRB, 0.201474E+00_JPRB, 0.190444E+00_JPRB, 0.179771E+00_JPRB &
+  &, 0.169493E+00_JPRB, 0.159591E+00_JPRB, 0.150058E+00_JPRB &
+  &, 0.140911E+00_JPRB, 0.132137E+00_JPRB, 0.123737E+00_JPRB, 0.115724E+00_JPRB &
+  &, 0.108058E+00_JPRB, 0.100767E+00_JPRB, 0.938378E-01_JPRB &
+  &, 0.872590E-01_JPRB, 0.810318E-01_JPRB, 0.751376E-01_JPRB, 0.695537E-01_JPRB &
+  &, 0.643133E-01_JPRB, 0.593697E-01_JPRB, 0.547326E-01_JPRB &
+  &, 0.503684E-01_JPRB, 0.462826E-01_JPRB, 0.424796E-01_JPRB, 0.389178E-01_JPRB &
+  &, 0.355967E-01_JPRB, 0.325382E-01_JPRB, 0.296693E-01_JPRB &
+  &, 0.270314E-01_JPRB, 0.245694E-01_JPRB, 0.222986E-01_JPRB, 0.202090E-01_JPRB &
+  &, 0.183152E-01_JPRB, 0.165519E-01_JPRB, 0.149299E-01_JPRB &
+  &, 0.134602E-01_JPRB, 0.120977E-01_JPRB, 0.108506E-01_JPRB, 0.972773E-02_JPRB &
+  &, 0.870798E-02_JPRB, 0.779882E-02_JPRB, 0.694568E-02_JPRB &
+  &, 0.618467E-02_JPRB, 0.552204E-02_JPRB, 0.489860E-02_JPRB, 0.435077E-02_JPRB &
+  &, 0.384947E-02_JPRB, 0.339793E-02_JPRB, 0.299943E-02_JPRB &
+  &, 0.265733E-02_JPRB, 0.233868E-02_JPRB, 0.204514E-02_JPRB, 0.177839E-02_JPRB &
+  &, 0.157842E-02_JPRB, 0.137112E-02_JPRB, 0.119589E-02_JPRB &
+  &, 0.105459E-02_JPRB, 0.908242E-03_JPRB, 0.798268E-03_JPRB, 0.684438E-03_JPRB &
+  &, 0.566698E-03_JPRB, 0.488494E-03_JPRB, 0.407637E-03_JPRB &
+  &, 0.368963E-03_JPRB, 0.328953E-03_JPRB, 0.287591E-03_JPRB, 0.244857E-03_JPRB &
+  &, 0.200735E-03_JPRB, 0.155206E-03_JPRB, 0.108252E-03_JPRB &
+  &, 0.109713E-03_JPRB, 0.111185E-03_JPRB, 0.613345E-04_JPRB, 0.620825E-04_JPRB &
+  &, 0.628365E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 325, :) = (/ &
+  &  0.951883E+00_JPRB, 0.939090E+00_JPRB, 0.926011E+00_JPRB, 0.912653E+00_JPRB &
+  &, 0.899024E+00_JPRB, 0.885137E+00_JPRB, 0.871000E+00_JPRB &
+  &, 0.856623E+00_JPRB, 0.842016E+00_JPRB, 0.827190E+00_JPRB, 0.812156E+00_JPRB &
+  &, 0.796925E+00_JPRB, 0.781510E+00_JPRB, 0.765919E+00_JPRB &
+  &, 0.750168E+00_JPRB, 0.734267E+00_JPRB, 0.718231E+00_JPRB, 0.702072E+00_JPRB &
+  &, 0.685804E+00_JPRB, 0.669439E+00_JPRB, 0.652998E+00_JPRB &
+  &, 0.636487E+00_JPRB, 0.619929E+00_JPRB, 0.603335E+00_JPRB, 0.586723E+00_JPRB &
+  &, 0.570106E+00_JPRB, 0.553505E+00_JPRB, 0.536935E+00_JPRB &
+  &, 0.520412E+00_JPRB, 0.503956E+00_JPRB, 0.487580E+00_JPRB, 0.471305E+00_JPRB &
+  &, 0.455148E+00_JPRB, 0.439125E+00_JPRB, 0.423256E+00_JPRB &
+  &, 0.407556E+00_JPRB, 0.392037E+00_JPRB, 0.376722E+00_JPRB, 0.361629E+00_JPRB &
+  &, 0.346776E+00_JPRB, 0.332160E+00_JPRB, 0.317822E+00_JPRB &
+  &, 0.303751E+00_JPRB, 0.289989E+00_JPRB, 0.276511E+00_JPRB, 0.263361E+00_JPRB &
+  &, 0.250535E+00_JPRB, 0.238052E+00_JPRB, 0.225905E+00_JPRB &
+  &, 0.214124E+00_JPRB, 0.202698E+00_JPRB, 0.191629E+00_JPRB, 0.180942E+00_JPRB &
+  &, 0.170620E+00_JPRB, 0.160686E+00_JPRB, 0.151118E+00_JPRB &
+  &, 0.141933E+00_JPRB, 0.133136E+00_JPRB, 0.124694E+00_JPRB, 0.116636E+00_JPRB &
+  &, 0.108958E+00_JPRB, 0.101617E+00_JPRB, 0.946544E-01_JPRB &
+  &, 0.880393E-01_JPRB, 0.817738E-01_JPRB, 0.758390E-01_JPRB, 0.702317E-01_JPRB &
+  &, 0.649466E-01_JPRB, 0.599763E-01_JPRB, 0.552901E-01_JPRB &
+  &, 0.509167E-01_JPRB, 0.467994E-01_JPRB, 0.429632E-01_JPRB, 0.393665E-01_JPRB &
+  &, 0.360318E-01_JPRB, 0.329355E-01_JPRB, 0.300507E-01_JPRB &
+  &, 0.273719E-01_JPRB, 0.248919E-01_JPRB, 0.226022E-01_JPRB, 0.204927E-01_JPRB &
+  &, 0.185519E-01_JPRB, 0.167932E-01_JPRB, 0.151485E-01_JPRB &
+  &, 0.136552E-01_JPRB, 0.122963E-01_JPRB, 0.110240E-01_JPRB, 0.990442E-02_JPRB &
+  &, 0.885795E-02_JPRB, 0.792100E-02_JPRB, 0.707008E-02_JPRB &
+  &, 0.631133E-02_JPRB, 0.561875E-02_JPRB, 0.499702E-02_JPRB, 0.441755E-02_JPRB &
+  &, 0.391743E-02_JPRB, 0.346707E-02_JPRB, 0.306976E-02_JPRB &
+  &, 0.269310E-02_JPRB, 0.237507E-02_JPRB, 0.208214E-02_JPRB, 0.181602E-02_JPRB &
+  &, 0.161668E-02_JPRB, 0.141001E-02_JPRB, 0.123542E-02_JPRB &
+  &, 0.105459E-02_JPRB, 0.908242E-03_JPRB, 0.798268E-03_JPRB, 0.684438E-03_JPRB &
+  &, 0.609521E-03_JPRB, 0.531994E-03_JPRB, 0.451819E-03_JPRB &
+  &, 0.368963E-03_JPRB, 0.328953E-03_JPRB, 0.287591E-03_JPRB, 0.244857E-03_JPRB &
+  &, 0.200735E-03_JPRB, 0.155206E-03_JPRB, 0.157378E-03_JPRB &
+  &, 0.109713E-03_JPRB, 0.111185E-03_JPRB, 0.613345E-04_JPRB, 0.620825E-04_JPRB &
+  &, 0.628365E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 326, :) = (/ &
+  &  0.952153E+00_JPRB, 0.939424E+00_JPRB, 0.926407E+00_JPRB, 0.913111E+00_JPRB &
+  &, 0.899543E+00_JPRB, 0.885715E+00_JPRB, 0.871635E+00_JPRB &
+  &, 0.857314E+00_JPRB, 0.842761E+00_JPRB, 0.827989E+00_JPRB, 0.813006E+00_JPRB &
+  &, 0.797824E+00_JPRB, 0.782455E+00_JPRB, 0.766912E+00_JPRB &
+  &, 0.751204E+00_JPRB, 0.735346E+00_JPRB, 0.719350E+00_JPRB, 0.703231E+00_JPRB &
+  &, 0.686998E+00_JPRB, 0.670670E+00_JPRB, 0.654260E+00_JPRB &
+  &, 0.637780E+00_JPRB, 0.621224E+00_JPRB, 0.604681E+00_JPRB, 0.588094E+00_JPRB &
+  &, 0.571499E+00_JPRB, 0.554917E+00_JPRB, 0.538367E+00_JPRB &
+  &, 0.521858E+00_JPRB, 0.505415E+00_JPRB, 0.489051E+00_JPRB, 0.472783E+00_JPRB &
+  &, 0.456632E+00_JPRB, 0.440611E+00_JPRB, 0.424743E+00_JPRB &
+  &, 0.409034E+00_JPRB, 0.393524E+00_JPRB, 0.378199E+00_JPRB, 0.363103E+00_JPRB &
+  &, 0.348236E+00_JPRB, 0.333614E+00_JPRB, 0.319259E+00_JPRB &
+  &, 0.305180E+00_JPRB, 0.291385E+00_JPRB, 0.277896E+00_JPRB, 0.264721E+00_JPRB &
+  &, 0.251879E+00_JPRB, 0.239366E+00_JPRB, 0.227187E+00_JPRB &
+  &, 0.215372E+00_JPRB, 0.203923E+00_JPRB, 0.192828E+00_JPRB, 0.182099E+00_JPRB &
+  &, 0.171762E+00_JPRB, 0.161781E+00_JPRB, 0.152193E+00_JPRB &
+  &, 0.142972E+00_JPRB, 0.134119E+00_JPRB, 0.125652E+00_JPRB, 0.117566E+00_JPRB &
+  &, 0.109841E+00_JPRB, 0.102485E+00_JPRB, 0.954709E-01_JPRB &
+  &, 0.888196E-01_JPRB, 0.825158E-01_JPRB, 0.765594E-01_JPRB, 0.709097E-01_JPRB &
+  &, 0.655997E-01_JPRB, 0.605828E-01_JPRB, 0.558683E-01_JPRB &
+  &, 0.514650E-01_JPRB, 0.473162E-01_JPRB, 0.434468E-01_JPRB, 0.398377E-01_JPRB &
+  &, 0.364669E-01_JPRB, 0.333328E-01_JPRB, 0.304084E-01_JPRB &
+  &, 0.277124E-01_JPRB, 0.252144E-01_JPRB, 0.229058E-01_JPRB, 0.207765E-01_JPRB &
+  &, 0.188149E-01_JPRB, 0.170345E-01_JPRB, 0.153671E-01_JPRB &
+  &, 0.138501E-01_JPRB, 0.124665E-01_JPRB, 0.111975E-01_JPRB, 0.100517E-01_JPRB &
+  &, 0.900791E-02_JPRB, 0.807372E-02_JPRB, 0.719449E-02_JPRB &
+  &, 0.640632E-02_JPRB, 0.571545E-02_JPRB, 0.509545E-02_JPRB, 0.451772E-02_JPRB &
+  &, 0.398538E-02_JPRB, 0.353621E-02_JPRB, 0.310493E-02_JPRB &
+  &, 0.276465E-02_JPRB, 0.241145E-02_JPRB, 0.211915E-02_JPRB, 0.185365E-02_JPRB &
+  &, 0.165493E-02_JPRB, 0.144889E-02_JPRB, 0.123542E-02_JPRB &
+  &, 0.109477E-02_JPRB, 0.949071E-03_JPRB, 0.798268E-03_JPRB, 0.726591E-03_JPRB &
+  &, 0.609521E-03_JPRB, 0.531994E-03_JPRB, 0.451819E-03_JPRB &
+  &, 0.368963E-03_JPRB, 0.328953E-03_JPRB, 0.287591E-03_JPRB, 0.244857E-03_JPRB &
+  &, 0.200735E-03_JPRB, 0.155206E-03_JPRB, 0.157378E-03_JPRB &
+  &, 0.109713E-03_JPRB, 0.111185E-03_JPRB, 0.613345E-04_JPRB, 0.620825E-04_JPRB &
+  &, 0.628365E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 327, :) = (/ &
+  &  0.952421E+00_JPRB, 0.939758E+00_JPRB, 0.926803E+00_JPRB, 0.913569E+00_JPRB &
+  &, 0.900062E+00_JPRB, 0.886292E+00_JPRB, 0.872270E+00_JPRB &
+  &, 0.858005E+00_JPRB, 0.843507E+00_JPRB, 0.828787E+00_JPRB, 0.813856E+00_JPRB &
+  &, 0.798723E+00_JPRB, 0.783403E+00_JPRB, 0.767904E+00_JPRB &
+  &, 0.752242E+00_JPRB, 0.736426E+00_JPRB, 0.720471E+00_JPRB, 0.704386E+00_JPRB &
+  &, 0.688194E+00_JPRB, 0.671901E+00_JPRB, 0.655521E+00_JPRB &
+  &, 0.639073E+00_JPRB, 0.622571E+00_JPRB, 0.606028E+00_JPRB, 0.589465E+00_JPRB &
+  &, 0.572892E+00_JPRB, 0.556333E+00_JPRB, 0.539798E+00_JPRB &
+  &, 0.523305E+00_JPRB, 0.506873E+00_JPRB, 0.490517E+00_JPRB, 0.474261E+00_JPRB &
+  &, 0.458113E+00_JPRB, 0.442098E+00_JPRB, 0.426231E+00_JPRB &
+  &, 0.410523E+00_JPRB, 0.395002E+00_JPRB, 0.379685E+00_JPRB, 0.364577E+00_JPRB &
+  &, 0.349695E+00_JPRB, 0.335069E+00_JPRB, 0.320696E+00_JPRB &
+  &, 0.306597E+00_JPRB, 0.292793E+00_JPRB, 0.279280E+00_JPRB, 0.266080E+00_JPRB &
+  &, 0.253211E+00_JPRB, 0.240681E+00_JPRB, 0.228483E+00_JPRB &
+  &, 0.216633E+00_JPRB, 0.205148E+00_JPRB, 0.194027E+00_JPRB, 0.183271E+00_JPRB &
+  &, 0.172889E+00_JPRB, 0.162890E+00_JPRB, 0.153253E+00_JPRB &
+  &, 0.144010E+00_JPRB, 0.135134E+00_JPRB, 0.126625E+00_JPRB, 0.118495E+00_JPRB &
+  &, 0.110740E+00_JPRB, 0.103336E+00_JPRB, 0.963051E-01_JPRB &
+  &, 0.896180E-01_JPRB, 0.832763E-01_JPRB, 0.772608E-01_JPRB, 0.715877E-01_JPRB &
+  &, 0.662331E-01_JPRB, 0.611893E-01_JPRB, 0.564672E-01_JPRB &
+  &, 0.520133E-01_JPRB, 0.478329E-01_JPRB, 0.439304E-01_JPRB, 0.402865E-01_JPRB &
+  &, 0.369021E-01_JPRB, 0.337300E-01_JPRB, 0.307898E-01_JPRB &
+  &, 0.280772E-01_JPRB, 0.255369E-01_JPRB, 0.232093E-01_JPRB, 0.210603E-01_JPRB &
+  &, 0.190779E-01_JPRB, 0.172757E-01_JPRB, 0.155857E-01_JPRB &
+  &, 0.140729E-01_JPRB, 0.126652E-01_JPRB, 0.113998E-01_JPRB, 0.102283E-01_JPRB &
+  &, 0.915788E-02_JPRB, 0.819590E-02_JPRB, 0.731890E-02_JPRB &
+  &, 0.653298E-02_JPRB, 0.581215E-02_JPRB, 0.516107E-02_JPRB, 0.458450E-02_JPRB &
+  &, 0.408731E-02_JPRB, 0.360535E-02_JPRB, 0.317527E-02_JPRB &
+  &, 0.280043E-02_JPRB, 0.248422E-02_JPRB, 0.215615E-02_JPRB, 0.189127E-02_JPRB &
+  &, 0.165493E-02_JPRB, 0.144889E-02_JPRB, 0.127495E-02_JPRB &
+  &, 0.109477E-02_JPRB, 0.949071E-03_JPRB, 0.839756E-03_JPRB, 0.726591E-03_JPRB &
+  &, 0.609521E-03_JPRB, 0.531994E-03_JPRB, 0.451819E-03_JPRB &
+  &, 0.413833E-03_JPRB, 0.328953E-03_JPRB, 0.287591E-03_JPRB, 0.244857E-03_JPRB &
+  &, 0.200735E-03_JPRB, 0.155206E-03_JPRB, 0.157378E-03_JPRB &
+  &, 0.109713E-03_JPRB, 0.111185E-03_JPRB, 0.613345E-04_JPRB, 0.620825E-04_JPRB &
+  &, 0.628365E-04_JPRB, 0.635965E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 328, :) = (/ &
+  &  0.952690E+00_JPRB, 0.940091E+00_JPRB, 0.927199E+00_JPRB, 0.914027E+00_JPRB &
+  &, 0.900579E+00_JPRB, 0.886869E+00_JPRB, 0.872904E+00_JPRB &
+  &, 0.858695E+00_JPRB, 0.844251E+00_JPRB, 0.829584E+00_JPRB, 0.814704E+00_JPRB &
+  &, 0.799621E+00_JPRB, 0.784349E+00_JPRB, 0.768896E+00_JPRB &
+  &, 0.753278E+00_JPRB, 0.737505E+00_JPRB, 0.721590E+00_JPRB, 0.705547E+00_JPRB &
+  &, 0.689390E+00_JPRB, 0.673128E+00_JPRB, 0.656782E+00_JPRB &
+  &, 0.640366E+00_JPRB, 0.623893E+00_JPRB, 0.607378E+00_JPRB, 0.590836E+00_JPRB &
+  &, 0.574289E+00_JPRB, 0.557745E+00_JPRB, 0.541229E+00_JPRB &
+  &, 0.524752E+00_JPRB, 0.508332E+00_JPRB, 0.491987E+00_JPRB, 0.475738E+00_JPRB &
+  &, 0.459601E+00_JPRB, 0.443589E+00_JPRB, 0.427723E+00_JPRB &
+  &, 0.412020E+00_JPRB, 0.396490E+00_JPRB, 0.381162E+00_JPRB, 0.366051E+00_JPRB &
+  &, 0.351165E+00_JPRB, 0.336512E+00_JPRB, 0.322133E+00_JPRB &
+  &, 0.308015E+00_JPRB, 0.294189E+00_JPRB, 0.280665E+00_JPRB, 0.267451E+00_JPRB &
+  &, 0.254555E+00_JPRB, 0.241996E+00_JPRB, 0.229778E+00_JPRB &
+  &, 0.217908E+00_JPRB, 0.206386E+00_JPRB, 0.195240E+00_JPRB, 0.184457E+00_JPRB &
+  &, 0.174031E+00_JPRB, 0.164000E+00_JPRB, 0.154328E+00_JPRB &
+  &, 0.145048E+00_JPRB, 0.136133E+00_JPRB, 0.127598E+00_JPRB, 0.119425E+00_JPRB &
+  &, 0.111640E+00_JPRB, 0.104204E+00_JPRB, 0.971216E-01_JPRB &
+  &, 0.903983E-01_JPRB, 0.840368E-01_JPRB, 0.779812E-01_JPRB, 0.722851E-01_JPRB &
+  &, 0.668862E-01_JPRB, 0.618161E-01_JPRB, 0.570454E-01_JPRB &
+  &, 0.525616E-01_JPRB, 0.483497E-01_JPRB, 0.444360E-01_JPRB, 0.407577E-01_JPRB &
+  &, 0.373372E-01_JPRB, 0.341273E-01_JPRB, 0.311713E-01_JPRB &
+  &, 0.284177E-01_JPRB, 0.258842E-01_JPRB, 0.235382E-01_JPRB, 0.213440E-01_JPRB &
+  &, 0.193409E-01_JPRB, 0.175170E-01_JPRB, 0.158316E-01_JPRB &
+  &, 0.142678E-01_JPRB, 0.128638E-01_JPRB, 0.115733E-01_JPRB, 0.103756E-01_JPRB &
+  &, 0.930785E-02_JPRB, 0.834862E-02_JPRB, 0.744331E-02_JPRB &
+  &, 0.665964E-02_JPRB, 0.590886E-02_JPRB, 0.525950E-02_JPRB, 0.468467E-02_JPRB &
+  &, 0.415527E-02_JPRB, 0.367449E-02_JPRB, 0.324561E-02_JPRB &
+  &, 0.287198E-02_JPRB, 0.252061E-02_JPRB, 0.223015E-02_JPRB, 0.196652E-02_JPRB &
+  &, 0.169319E-02_JPRB, 0.148778E-02_JPRB, 0.131448E-02_JPRB &
+  &, 0.113494E-02_JPRB, 0.989900E-03_JPRB, 0.839756E-03_JPRB, 0.726591E-03_JPRB &
+  &, 0.652344E-03_JPRB, 0.575493E-03_JPRB, 0.496001E-03_JPRB &
+  &, 0.413833E-03_JPRB, 0.328953E-03_JPRB, 0.287591E-03_JPRB, 0.244857E-03_JPRB &
+  &, 0.200735E-03_JPRB, 0.203608E-03_JPRB, 0.157378E-03_JPRB &
+  &, 0.109713E-03_JPRB, 0.111185E-03_JPRB, 0.613345E-04_JPRB, 0.620825E-04_JPRB &
+  &, 0.628365E-04_JPRB, 0.635965E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 329, :) = (/ &
+  &  0.952959E+00_JPRB, 0.940424E+00_JPRB, 0.927595E+00_JPRB, 0.914483E+00_JPRB &
+  &, 0.901097E+00_JPRB, 0.887446E+00_JPRB, 0.873538E+00_JPRB &
+  &, 0.859384E+00_JPRB, 0.844995E+00_JPRB, 0.830382E+00_JPRB, 0.815553E+00_JPRB &
+  &, 0.800519E+00_JPRB, 0.785294E+00_JPRB, 0.769888E+00_JPRB &
+  &, 0.754312E+00_JPRB, 0.738584E+00_JPRB, 0.722709E+00_JPRB, 0.706705E+00_JPRB &
+  &, 0.690584E+00_JPRB, 0.674359E+00_JPRB, 0.658047E+00_JPRB &
+  &, 0.641659E+00_JPRB, 0.625213E+00_JPRB, 0.608725E+00_JPRB, 0.592208E+00_JPRB &
+  &, 0.575682E+00_JPRB, 0.559160E+00_JPRB, 0.542660E+00_JPRB &
+  &, 0.526199E+00_JPRB, 0.509794E+00_JPRB, 0.493461E+00_JPRB, 0.477220E+00_JPRB &
+  &, 0.461086E+00_JPRB, 0.445080E+00_JPRB, 0.429216E+00_JPRB &
+  &, 0.413508E+00_JPRB, 0.397978E+00_JPRB, 0.382648E+00_JPRB, 0.367524E+00_JPRB &
+  &, 0.352625E+00_JPRB, 0.337977E+00_JPRB, 0.323570E+00_JPRB &
+  &, 0.309444E+00_JPRB, 0.295608E+00_JPRB, 0.282061E+00_JPRB, 0.268822E+00_JPRB &
+  &, 0.255899E+00_JPRB, 0.243323E+00_JPRB, 0.231074E+00_JPRB &
+  &, 0.219169E+00_JPRB, 0.207624E+00_JPRB, 0.196453E+00_JPRB, 0.185628E+00_JPRB &
+  &, 0.175187E+00_JPRB, 0.165110E+00_JPRB, 0.155418E+00_JPRB &
+  &, 0.146087E+00_JPRB, 0.137148E+00_JPRB, 0.128572E+00_JPRB, 0.120371E+00_JPRB &
+  &, 0.112540E+00_JPRB, 0.105072E+00_JPRB, 0.979559E-01_JPRB &
+  &, 0.911968E-01_JPRB, 0.847973E-01_JPRB, 0.787205E-01_JPRB, 0.729824E-01_JPRB &
+  &, 0.675591E-01_JPRB, 0.624428E-01_JPRB, 0.576442E-01_JPRB &
+  &, 0.531099E-01_JPRB, 0.488880E-01_JPRB, 0.449196E-01_JPRB, 0.412289E-01_JPRB &
+  &, 0.377723E-01_JPRB, 0.345479E-01_JPRB, 0.315528E-01_JPRB &
+  &, 0.287825E-01_JPRB, 0.262067E-01_JPRB, 0.238418E-01_JPRB, 0.216536E-01_JPRB &
+  &, 0.196302E-01_JPRB, 0.177583E-01_JPRB, 0.160502E-01_JPRB &
+  &, 0.144906E-01_JPRB, 0.130624E-01_JPRB, 0.117467E-01_JPRB, 0.105523E-01_JPRB &
+  &, 0.945781E-02_JPRB, 0.847080E-02_JPRB, 0.756771E-02_JPRB &
+  &, 0.675464E-02_JPRB, 0.603779E-02_JPRB, 0.535793E-02_JPRB, 0.475145E-02_JPRB &
+  &, 0.422322E-02_JPRB, 0.374363E-02_JPRB, 0.331595E-02_JPRB &
+  &, 0.290775E-02_JPRB, 0.259338E-02_JPRB, 0.226716E-02_JPRB, 0.200415E-02_JPRB &
+  &, 0.173144E-02_JPRB, 0.152667E-02_JPRB, 0.135401E-02_JPRB &
+  &, 0.117512E-02_JPRB, 0.103073E-02_JPRB, 0.881244E-03_JPRB, 0.768743E-03_JPRB &
+  &, 0.652344E-03_JPRB, 0.575493E-03_JPRB, 0.496001E-03_JPRB &
+  &, 0.413833E-03_JPRB, 0.374518E-03_JPRB, 0.287591E-03_JPRB, 0.244857E-03_JPRB &
+  &, 0.200735E-03_JPRB, 0.203608E-03_JPRB, 0.157378E-03_JPRB &
+  &, 0.109713E-03_JPRB, 0.111185E-03_JPRB, 0.613345E-04_JPRB, 0.620825E-04_JPRB &
+  &, 0.628365E-04_JPRB, 0.635965E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART47',1,ZHOOK_HANDLE)
+END SUBROUTINE PART47
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART48
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART48',0,ZHOOK_HANDLE)
+
+XCW( 330, :) = (/ &
+  &  0.953227E+00_JPRB, 0.940756E+00_JPRB, 0.927989E+00_JPRB, 0.914941E+00_JPRB &
+  &, 0.901614E+00_JPRB, 0.888021E+00_JPRB, 0.874171E+00_JPRB &
+  &, 0.860074E+00_JPRB, 0.845740E+00_JPRB, 0.831178E+00_JPRB, 0.816400E+00_JPRB &
+  &, 0.801416E+00_JPRB, 0.786239E+00_JPRB, 0.770881E+00_JPRB &
+  &, 0.755350E+00_JPRB, 0.739663E+00_JPRB, 0.723828E+00_JPRB, 0.707863E+00_JPRB &
+  &, 0.691779E+00_JPRB, 0.675587E+00_JPRB, 0.659308E+00_JPRB &
+  &, 0.642953E+00_JPRB, 0.626535E+00_JPRB, 0.610075E+00_JPRB, 0.593582E+00_JPRB &
+  &, 0.577079E+00_JPRB, 0.560576E+00_JPRB, 0.544091E+00_JPRB &
+  &, 0.527645E+00_JPRB, 0.511253E+00_JPRB, 0.494936E+00_JPRB, 0.478702E+00_JPRB &
+  &, 0.462575E+00_JPRB, 0.446570E+00_JPRB, 0.430708E+00_JPRB &
+  &, 0.415006E+00_JPRB, 0.399475E+00_JPRB, 0.384134E+00_JPRB, 0.369008E+00_JPRB &
+  &, 0.354095E+00_JPRB, 0.339431E+00_JPRB, 0.325017E+00_JPRB &
+  &, 0.310883E+00_JPRB, 0.297016E+00_JPRB, 0.283457E+00_JPRB, 0.270194E+00_JPRB &
+  &, 0.257255E+00_JPRB, 0.244650E+00_JPRB, 0.232369E+00_JPRB &
+  &, 0.220444E+00_JPRB, 0.208876E+00_JPRB, 0.197666E+00_JPRB, 0.186814E+00_JPRB &
+  &, 0.176343E+00_JPRB, 0.166234E+00_JPRB, 0.156493E+00_JPRB &
+  &, 0.147140E+00_JPRB, 0.138163E+00_JPRB, 0.129545E+00_JPRB, 0.121317E+00_JPRB &
+  &, 0.113440E+00_JPRB, 0.105940E+00_JPRB, 0.987902E-01_JPRB &
+  &, 0.919952E-01_JPRB, 0.855578E-01_JPRB, 0.794409E-01_JPRB, 0.736604E-01_JPRB &
+  &, 0.682122E-01_JPRB, 0.630696E-01_JPRB, 0.582224E-01_JPRB &
+  &, 0.536793E-01_JPRB, 0.494263E-01_JPRB, 0.454252E-01_JPRB, 0.417001E-01_JPRB &
+  &, 0.382074E-01_JPRB, 0.349685E-01_JPRB, 0.319581E-01_JPRB &
+  &, 0.291474E-01_JPRB, 0.265540E-01_JPRB, 0.241454E-01_JPRB, 0.219373E-01_JPRB &
+  &, 0.198932E-01_JPRB, 0.180264E-01_JPRB, 0.162961E-01_JPRB &
+  &, 0.147134E-01_JPRB, 0.132610E-01_JPRB, 0.119202E-01_JPRB, 0.107290E-01_JPRB &
+  &, 0.960778E-02_JPRB, 0.862352E-02_JPRB, 0.769212E-02_JPRB &
+  &, 0.688130E-02_JPRB, 0.613449E-02_JPRB, 0.545635E-02_JPRB, 0.485162E-02_JPRB &
+  &, 0.432516E-02_JPRB, 0.381278E-02_JPRB, 0.338629E-02_JPRB &
+  &, 0.297930E-02_JPRB, 0.262977E-02_JPRB, 0.230416E-02_JPRB, 0.204177E-02_JPRB &
+  &, 0.176970E-02_JPRB, 0.156556E-02_JPRB, 0.135401E-02_JPRB &
+  &, 0.117512E-02_JPRB, 0.103073E-02_JPRB, 0.881244E-03_JPRB, 0.768743E-03_JPRB &
+  &, 0.695167E-03_JPRB, 0.575493E-03_JPRB, 0.496001E-03_JPRB &
+  &, 0.413833E-03_JPRB, 0.374518E-03_JPRB, 0.333856E-03_JPRB, 0.291829E-03_JPRB &
+  &, 0.248419E-03_JPRB, 0.203608E-03_JPRB, 0.157378E-03_JPRB &
+  &, 0.109713E-03_JPRB, 0.111185E-03_JPRB, 0.112669E-03_JPRB, 0.620825E-04_JPRB &
+  &, 0.628365E-04_JPRB, 0.635965E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 331, :) = (/ &
+  &  0.953496E+00_JPRB, 0.941088E+00_JPRB, 0.928384E+00_JPRB, 0.915397E+00_JPRB &
+  &, 0.902130E+00_JPRB, 0.888596E+00_JPRB, 0.874804E+00_JPRB &
+  &, 0.860762E+00_JPRB, 0.846483E+00_JPRB, 0.831974E+00_JPRB, 0.817248E+00_JPRB &
+  &, 0.802314E+00_JPRB, 0.787185E+00_JPRB, 0.771872E+00_JPRB &
+  &, 0.756385E+00_JPRB, 0.740741E+00_JPRB, 0.724947E+00_JPRB, 0.709021E+00_JPRB &
+  &, 0.692973E+00_JPRB, 0.676818E+00_JPRB, 0.660570E+00_JPRB &
+  &, 0.644246E+00_JPRB, 0.627858E+00_JPRB, 0.611425E+00_JPRB, 0.594957E+00_JPRB &
+  &, 0.578472E+00_JPRB, 0.561992E+00_JPRB, 0.545526E+00_JPRB &
+  &, 0.529096E+00_JPRB, 0.512719E+00_JPRB, 0.496410E+00_JPRB, 0.480183E+00_JPRB &
+  &, 0.464063E+00_JPRB, 0.448066E+00_JPRB, 0.432205E+00_JPRB &
+  &, 0.416494E+00_JPRB, 0.400963E+00_JPRB, 0.385620E+00_JPRB, 0.370482E+00_JPRB &
+  &, 0.355575E+00_JPRB, 0.340896E+00_JPRB, 0.326465E+00_JPRB &
+  &, 0.312312E+00_JPRB, 0.298435E+00_JPRB, 0.284854E+00_JPRB, 0.271577E+00_JPRB &
+  &, 0.258612E+00_JPRB, 0.245977E+00_JPRB, 0.233678E+00_JPRB &
+  &, 0.221718E+00_JPRB, 0.210128E+00_JPRB, 0.198879E+00_JPRB, 0.187999E+00_JPRB &
+  &, 0.177499E+00_JPRB, 0.167358E+00_JPRB, 0.157583E+00_JPRB &
+  &, 0.148194E+00_JPRB, 0.139178E+00_JPRB, 0.130535E+00_JPRB, 0.122263E+00_JPRB &
+  &, 0.114356E+00_JPRB, 0.106825E+00_JPRB, 0.996422E-01_JPRB &
+  &, 0.928118E-01_JPRB, 0.863183E-01_JPRB, 0.801802E-01_JPRB, 0.743772E-01_JPRB &
+  &, 0.688852E-01_JPRB, 0.636963E-01_JPRB, 0.588213E-01_JPRB &
+  &, 0.542486E-01_JPRB, 0.499646E-01_JPRB, 0.459308E-01_JPRB, 0.421713E-01_JPRB &
+  &, 0.386654E-01_JPRB, 0.353891E-01_JPRB, 0.323395E-01_JPRB &
+  &, 0.295122E-01_JPRB, 0.269013E-01_JPRB, 0.244743E-01_JPRB, 0.222469E-01_JPRB &
+  &, 0.201825E-01_JPRB, 0.182677E-01_JPRB, 0.165147E-01_JPRB &
+  &, 0.149361E-01_JPRB, 0.134596E-01_JPRB, 0.121226E-01_JPRB, 0.108762E-01_JPRB &
+  &, 0.978773E-02_JPRB, 0.874570E-02_JPRB, 0.784763E-02_JPRB &
+  &, 0.700796E-02_JPRB, 0.623120E-02_JPRB, 0.555478E-02_JPRB, 0.495180E-02_JPRB &
+  &, 0.439311E-02_JPRB, 0.388192E-02_JPRB, 0.345663E-02_JPRB &
+  &, 0.305085E-02_JPRB, 0.266615E-02_JPRB, 0.237816E-02_JPRB, 0.207940E-02_JPRB &
+  &, 0.180795E-02_JPRB, 0.160445E-02_JPRB, 0.139354E-02_JPRB &
+  &, 0.121529E-02_JPRB, 0.107156E-02_JPRB, 0.922732E-03_JPRB, 0.810895E-03_JPRB &
+  &, 0.695167E-03_JPRB, 0.618992E-03_JPRB, 0.496001E-03_JPRB &
+  &, 0.458704E-03_JPRB, 0.374518E-03_JPRB, 0.333856E-03_JPRB, 0.291829E-03_JPRB &
+  &, 0.248419E-03_JPRB, 0.203608E-03_JPRB, 0.157378E-03_JPRB &
+  &, 0.159569E-03_JPRB, 0.111185E-03_JPRB, 0.112669E-03_JPRB, 0.620825E-04_JPRB &
+  &, 0.628365E-04_JPRB, 0.635965E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 332, :) = (/ &
+  &  0.953763E+00_JPRB, 0.941420E+00_JPRB, 0.928779E+00_JPRB, 0.915852E+00_JPRB &
+  &, 0.902647E+00_JPRB, 0.889171E+00_JPRB, 0.875436E+00_JPRB &
+  &, 0.861451E+00_JPRB, 0.847225E+00_JPRB, 0.832769E+00_JPRB, 0.818094E+00_JPRB &
+  &, 0.803210E+00_JPRB, 0.788129E+00_JPRB, 0.772862E+00_JPRB &
+  &, 0.757421E+00_JPRB, 0.741818E+00_JPRB, 0.726066E+00_JPRB, 0.710178E+00_JPRB &
+  &, 0.694169E+00_JPRB, 0.678049E+00_JPRB, 0.661834E+00_JPRB &
+  &, 0.645539E+00_JPRB, 0.629181E+00_JPRB, 0.612771E+00_JPRB, 0.596328E+00_JPRB &
+  &, 0.579868E+00_JPRB, 0.563407E+00_JPRB, 0.546961E+00_JPRB &
+  &, 0.530546E+00_JPRB, 0.514182E+00_JPRB, 0.497884E+00_JPRB, 0.481669E+00_JPRB &
+  &, 0.465557E+00_JPRB, 0.449561E+00_JPRB, 0.433702E+00_JPRB &
+  &, 0.417992E+00_JPRB, 0.402460E+00_JPRB, 0.387116E+00_JPRB, 0.371976E+00_JPRB &
+  &, 0.357045E+00_JPRB, 0.342361E+00_JPRB, 0.327924E+00_JPRB &
+  &, 0.313752E+00_JPRB, 0.299854E+00_JPRB, 0.286250E+00_JPRB, 0.272948E+00_JPRB &
+  &, 0.259968E+00_JPRB, 0.247304E+00_JPRB, 0.234986E+00_JPRB &
+  &, 0.223006E+00_JPRB, 0.211379E+00_JPRB, 0.200106E+00_JPRB, 0.189199E+00_JPRB &
+  &, 0.178655E+00_JPRB, 0.168483E+00_JPRB, 0.158689E+00_JPRB &
+  &, 0.149264E+00_JPRB, 0.140209E+00_JPRB, 0.131525E+00_JPRB, 0.123225E+00_JPRB &
+  &, 0.115273E+00_JPRB, 0.107710E+00_JPRB, 0.100494E+00_JPRB &
+  &, 0.936284E-01_JPRB, 0.870974E-01_JPRB, 0.809195E-01_JPRB, 0.750746E-01_JPRB &
+  &, 0.695581E-01_JPRB, 0.643433E-01_JPRB, 0.594408E-01_JPRB &
+  &, 0.548180E-01_JPRB, 0.505029E-01_JPRB, 0.464364E-01_JPRB, 0.426425E-01_JPRB &
+  &, 0.391005E-01_JPRB, 0.358098E-01_JPRB, 0.327449E-01_JPRB &
+  &, 0.298770E-01_JPRB, 0.272486E-01_JPRB, 0.248032E-01_JPRB, 0.225307E-01_JPRB &
+  &, 0.204455E-01_JPRB, 0.185358E-01_JPRB, 0.167607E-01_JPRB &
+  &, 0.151311E-01_JPRB, 0.136583E-01_JPRB, 0.122960E-01_JPRB, 0.110529E-01_JPRB &
+  &, 0.993770E-02_JPRB, 0.889842E-02_JPRB, 0.797203E-02_JPRB &
+  &, 0.713462E-02_JPRB, 0.636013E-02_JPRB, 0.565321E-02_JPRB, 0.505197E-02_JPRB &
+  &, 0.446107E-02_JPRB, 0.395106E-02_JPRB, 0.352697E-02_JPRB &
+  &, 0.308662E-02_JPRB, 0.273892E-02_JPRB, 0.241517E-02_JPRB, 0.211702E-02_JPRB &
+  &, 0.184620E-02_JPRB, 0.164334E-02_JPRB, 0.143307E-02_JPRB &
+  &, 0.125547E-02_JPRB, 0.107156E-02_JPRB, 0.964220E-03_JPRB, 0.810895E-03_JPRB &
+  &, 0.695167E-03_JPRB, 0.618992E-03_JPRB, 0.540183E-03_JPRB &
+  &, 0.458704E-03_JPRB, 0.374518E-03_JPRB, 0.333856E-03_JPRB, 0.291829E-03_JPRB &
+  &, 0.248419E-03_JPRB, 0.203608E-03_JPRB, 0.157378E-03_JPRB &
+  &, 0.159569E-03_JPRB, 0.111185E-03_JPRB, 0.112669E-03_JPRB, 0.620825E-04_JPRB &
+  &, 0.628365E-04_JPRB, 0.635965E-04_JPRB, 0.643624E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 333, :) = (/ &
+  &  0.954029E+00_JPRB, 0.941751E+00_JPRB, 0.929172E+00_JPRB, 0.916308E+00_JPRB &
+  &, 0.903162E+00_JPRB, 0.889746E+00_JPRB, 0.876068E+00_JPRB &
+  &, 0.862139E+00_JPRB, 0.847968E+00_JPRB, 0.833565E+00_JPRB, 0.818941E+00_JPRB &
+  &, 0.804106E+00_JPRB, 0.789074E+00_JPRB, 0.773850E+00_JPRB &
+  &, 0.758456E+00_JPRB, 0.742896E+00_JPRB, 0.727185E+00_JPRB, 0.711336E+00_JPRB &
+  &, 0.695363E+00_JPRB, 0.679277E+00_JPRB, 0.663096E+00_JPRB &
+  &, 0.646835E+00_JPRB, 0.630503E+00_JPRB, 0.614121E+00_JPRB, 0.597703E+00_JPRB &
+  &, 0.581269E+00_JPRB, 0.564827E+00_JPRB, 0.548399E+00_JPRB &
+  &, 0.532001E+00_JPRB, 0.515648E+00_JPRB, 0.499363E+00_JPRB, 0.483155E+00_JPRB &
+  &, 0.467050E+00_JPRB, 0.451061E+00_JPRB, 0.435203E+00_JPRB &
+  &, 0.419498E+00_JPRB, 0.403957E+00_JPRB, 0.388613E+00_JPRB, 0.373460E+00_JPRB &
+  &, 0.358525E+00_JPRB, 0.343826E+00_JPRB, 0.329382E+00_JPRB &
+  &, 0.315191E+00_JPRB, 0.301273E+00_JPRB, 0.287658E+00_JPRB, 0.274331E+00_JPRB &
+  &, 0.261324E+00_JPRB, 0.248644E+00_JPRB, 0.236294E+00_JPRB &
+  &, 0.224294E+00_JPRB, 0.212631E+00_JPRB, 0.201333E+00_JPRB, 0.190399E+00_JPRB &
+  &, 0.179825E+00_JPRB, 0.169622E+00_JPRB, 0.159779E+00_JPRB &
+  &, 0.150317E+00_JPRB, 0.141240E+00_JPRB, 0.132531E+00_JPRB, 0.124188E+00_JPRB &
+  &, 0.116207E+00_JPRB, 0.108596E+00_JPRB, 0.101328E+00_JPRB &
+  &, 0.944450E-01_JPRB, 0.878764E-01_JPRB, 0.816589E-01_JPRB, 0.757913E-01_JPRB &
+  &, 0.702310E-01_JPRB, 0.649903E-01_JPRB, 0.600396E-01_JPRB &
+  &, 0.554085E-01_JPRB, 0.510412E-01_JPRB, 0.469639E-01_JPRB, 0.431361E-01_JPRB &
+  &, 0.395585E-01_JPRB, 0.362304E-01_JPRB, 0.331502E-01_JPRB &
+  &, 0.302662E-01_JPRB, 0.275959E-01_JPRB, 0.251321E-01_JPRB, 0.228402E-01_JPRB &
+  &, 0.207348E-01_JPRB, 0.188039E-01_JPRB, 0.170066E-01_JPRB &
+  &, 0.153539E-01_JPRB, 0.138569E-01_JPRB, 0.124984E-01_JPRB, 0.112296E-01_JPRB &
+  &, 0.100877E-01_JPRB, 0.905114E-02_JPRB, 0.809644E-02_JPRB &
+  &, 0.722961E-02_JPRB, 0.645684E-02_JPRB, 0.575164E-02_JPRB, 0.511875E-02_JPRB &
+  &, 0.456300E-02_JPRB, 0.405477E-02_JPRB, 0.356214E-02_JPRB &
+  &, 0.315817E-02_JPRB, 0.281169E-02_JPRB, 0.245217E-02_JPRB, 0.215465E-02_JPRB &
+  &, 0.188446E-02_JPRB, 0.168223E-02_JPRB, 0.147260E-02_JPRB &
+  &, 0.129565E-02_JPRB, 0.111239E-02_JPRB, 0.964220E-03_JPRB, 0.853048E-03_JPRB &
+  &, 0.737990E-03_JPRB, 0.618992E-03_JPRB, 0.540183E-03_JPRB &
+  &, 0.458704E-03_JPRB, 0.420083E-03_JPRB, 0.333856E-03_JPRB, 0.291829E-03_JPRB &
+  &, 0.248419E-03_JPRB, 0.203608E-03_JPRB, 0.157378E-03_JPRB &
+  &, 0.159569E-03_JPRB, 0.111185E-03_JPRB, 0.112669E-03_JPRB, 0.620825E-04_JPRB &
+  &, 0.628365E-04_JPRB, 0.635965E-04_JPRB, 0.643624E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 334, :) = (/ &
+  &  0.954297E+00_JPRB, 0.942081E+00_JPRB, 0.929566E+00_JPRB, 0.916764E+00_JPRB &
+  &, 0.903678E+00_JPRB, 0.890320E+00_JPRB, 0.876700E+00_JPRB &
+  &, 0.862826E+00_JPRB, 0.848707E+00_JPRB, 0.834359E+00_JPRB, 0.819787E+00_JPRB &
+  &, 0.805002E+00_JPRB, 0.790017E+00_JPRB, 0.774843E+00_JPRB &
+  &, 0.759491E+00_JPRB, 0.743974E+00_JPRB, 0.728303E+00_JPRB, 0.712494E+00_JPRB &
+  &, 0.696557E+00_JPRB, 0.680507E+00_JPRB, 0.664360E+00_JPRB &
+  &, 0.648128E+00_JPRB, 0.631826E+00_JPRB, 0.615471E+00_JPRB, 0.599081E+00_JPRB &
+  &, 0.582666E+00_JPRB, 0.566246E+00_JPRB, 0.549834E+00_JPRB &
+  &, 0.533452E+00_JPRB, 0.517115E+00_JPRB, 0.500837E+00_JPRB, 0.484641E+00_JPRB &
+  &, 0.468543E+00_JPRB, 0.452561E+00_JPRB, 0.436705E+00_JPRB &
+  &, 0.420996E+00_JPRB, 0.405464E+00_JPRB, 0.390109E+00_JPRB, 0.374953E+00_JPRB &
+  &, 0.360005E+00_JPRB, 0.345301E+00_JPRB, 0.330830E+00_JPRB &
+  &, 0.316631E+00_JPRB, 0.302703E+00_JPRB, 0.289065E+00_JPRB, 0.275726E+00_JPRB &
+  &, 0.262693E+00_JPRB, 0.249983E+00_JPRB, 0.237616E+00_JPRB &
+  &, 0.225582E+00_JPRB, 0.213896E+00_JPRB, 0.202559E+00_JPRB, 0.191598E+00_JPRB &
+  &, 0.180982E+00_JPRB, 0.170746E+00_JPRB, 0.160884E+00_JPRB &
+  &, 0.151387E+00_JPRB, 0.142270E+00_JPRB, 0.133520E+00_JPRB, 0.125151E+00_JPRB &
+  &, 0.117140E+00_JPRB, 0.109481E+00_JPRB, 0.102198E+00_JPRB &
+  &, 0.952616E-01_JPRB, 0.886740E-01_JPRB, 0.824172E-01_JPRB, 0.765081E-01_JPRB &
+  &, 0.709039E-01_JPRB, 0.656373E-01_JPRB, 0.606591E-01_JPRB &
+  &, 0.559779E-01_JPRB, 0.515795E-01_JPRB, 0.474695E-01_JPRB, 0.436298E-01_JPRB &
+  &, 0.400165E-01_JPRB, 0.366744E-01_JPRB, 0.335555E-01_JPRB &
+  &, 0.306310E-01_JPRB, 0.279432E-01_JPRB, 0.254610E-01_JPRB, 0.231498E-01_JPRB &
+  &, 0.210241E-01_JPRB, 0.190452E-01_JPRB, 0.172525E-01_JPRB &
+  &, 0.156045E-01_JPRB, 0.140839E-01_JPRB, 0.126718E-01_JPRB, 0.114062E-01_JPRB &
+  &, 0.102676E-01_JPRB, 0.920386E-02_JPRB, 0.825195E-02_JPRB &
+  &, 0.735627E-02_JPRB, 0.658577E-02_JPRB, 0.585007E-02_JPRB, 0.521892E-02_JPRB &
+  &, 0.463096E-02_JPRB, 0.412391E-02_JPRB, 0.363248E-02_JPRB &
+  &, 0.322972E-02_JPRB, 0.284808E-02_JPRB, 0.252617E-02_JPRB, 0.222990E-02_JPRB &
+  &, 0.196097E-02_JPRB, 0.172112E-02_JPRB, 0.151213E-02_JPRB &
+  &, 0.129565E-02_JPRB, 0.115322E-02_JPRB, 0.100571E-02_JPRB, 0.853048E-03_JPRB &
+  &, 0.737990E-03_JPRB, 0.662492E-03_JPRB, 0.540183E-03_JPRB &
+  &, 0.458704E-03_JPRB, 0.420083E-03_JPRB, 0.333856E-03_JPRB, 0.291829E-03_JPRB &
+  &, 0.248419E-03_JPRB, 0.203608E-03_JPRB, 0.206505E-03_JPRB &
+  &, 0.159569E-03_JPRB, 0.111185E-03_JPRB, 0.112669E-03_JPRB, 0.620825E-04_JPRB &
+  &, 0.628365E-04_JPRB, 0.635965E-04_JPRB, 0.643624E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 335, :) = (/ &
+  &  0.954562E+00_JPRB, 0.942412E+00_JPRB, 0.929960E+00_JPRB, 0.917218E+00_JPRB &
+  &, 0.904193E+00_JPRB, 0.890894E+00_JPRB, 0.877331E+00_JPRB &
+  &, 0.863513E+00_JPRB, 0.849451E+00_JPRB, 0.835153E+00_JPRB, 0.820633E+00_JPRB &
+  &, 0.805898E+00_JPRB, 0.790961E+00_JPRB, 0.775832E+00_JPRB &
+  &, 0.760525E+00_JPRB, 0.745051E+00_JPRB, 0.729422E+00_JPRB, 0.713652E+00_JPRB &
+  &, 0.697752E+00_JPRB, 0.681738E+00_JPRB, 0.665625E+00_JPRB &
+  &, 0.649424E+00_JPRB, 0.633152E+00_JPRB, 0.616825E+00_JPRB, 0.600456E+00_JPRB &
+  &, 0.584062E+00_JPRB, 0.567665E+00_JPRB, 0.551273E+00_JPRB &
+  &, 0.534906E+00_JPRB, 0.518581E+00_JPRB, 0.502320E+00_JPRB, 0.486132E+00_JPRB &
+  &, 0.470040E+00_JPRB, 0.454060E+00_JPRB, 0.438210E+00_JPRB &
+  &, 0.422503E+00_JPRB, 0.406962E+00_JPRB, 0.391605E+00_JPRB, 0.376437E+00_JPRB &
+  &, 0.361495E+00_JPRB, 0.346776E+00_JPRB, 0.332299E+00_JPRB &
+  &, 0.318082E+00_JPRB, 0.304133E+00_JPRB, 0.290473E+00_JPRB, 0.277110E+00_JPRB &
+  &, 0.264061E+00_JPRB, 0.251335E+00_JPRB, 0.238937E+00_JPRB &
+  &, 0.226869E+00_JPRB, 0.215161E+00_JPRB, 0.203800E+00_JPRB, 0.192798E+00_JPRB &
+  &, 0.182167E+00_JPRB, 0.171900E+00_JPRB, 0.161990E+00_JPRB &
+  &, 0.152471E+00_JPRB, 0.143317E+00_JPRB, 0.134526E+00_JPRB, 0.126113E+00_JPRB &
+  &, 0.118057E+00_JPRB, 0.110384E+00_JPRB, 0.103050E+00_JPRB &
+  &, 0.960782E-01_JPRB, 0.894531E-01_JPRB, 0.831755E-01_JPRB, 0.772248E-01_JPRB &
+  &, 0.715966E-01_JPRB, 0.662842E-01_JPRB, 0.612786E-01_JPRB &
+  &, 0.565683E-01_JPRB, 0.521394E-01_JPRB, 0.479971E-01_JPRB, 0.441234E-01_JPRB &
+  &, 0.404745E-01_JPRB, 0.370950E-01_JPRB, 0.339608E-01_JPRB &
+  &, 0.310201E-01_JPRB, 0.283153E-01_JPRB, 0.257899E-01_JPRB, 0.234594E-01_JPRB &
+  &, 0.213134E-01_JPRB, 0.193133E-01_JPRB, 0.174985E-01_JPRB &
+  &, 0.158273E-01_JPRB, 0.142825E-01_JPRB, 0.128742E-01_JPRB, 0.115829E-01_JPRB &
+  &, 0.104176E-01_JPRB, 0.935658E-02_JPRB, 0.837636E-02_JPRB &
+  &, 0.748293E-02_JPRB, 0.668248E-02_JPRB, 0.598130E-02_JPRB, 0.531909E-02_JPRB &
+  &, 0.473289E-02_JPRB, 0.419305E-02_JPRB, 0.370282E-02_JPRB &
+  &, 0.330127E-02_JPRB, 0.292085E-02_JPRB, 0.256318E-02_JPRB, 0.226753E-02_JPRB &
+  &, 0.199922E-02_JPRB, 0.176001E-02_JPRB, 0.151213E-02_JPRB &
+  &, 0.133582E-02_JPRB, 0.115322E-02_JPRB, 0.100571E-02_JPRB, 0.895200E-03_JPRB &
+  &, 0.780813E-03_JPRB, 0.662492E-03_JPRB, 0.584365E-03_JPRB &
+  &, 0.503574E-03_JPRB, 0.420083E-03_JPRB, 0.380121E-03_JPRB, 0.291829E-03_JPRB &
+  &, 0.248419E-03_JPRB, 0.203608E-03_JPRB, 0.206505E-03_JPRB &
+  &, 0.159569E-03_JPRB, 0.111185E-03_JPRB, 0.112669E-03_JPRB, 0.114165E-03_JPRB &
+  &, 0.628365E-04_JPRB, 0.635965E-04_JPRB, 0.643624E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 336, :) = (/ &
+  &  0.954830E+00_JPRB, 0.942742E+00_JPRB, 0.930353E+00_JPRB, 0.917673E+00_JPRB &
+  &, 0.904707E+00_JPRB, 0.891467E+00_JPRB, 0.877961E+00_JPRB &
+  &, 0.864200E+00_JPRB, 0.850192E+00_JPRB, 0.835948E+00_JPRB, 0.821478E+00_JPRB &
+  &, 0.806793E+00_JPRB, 0.791903E+00_JPRB, 0.776811E+00_JPRB &
+  &, 0.761560E+00_JPRB, 0.746128E+00_JPRB, 0.730540E+00_JPRB, 0.714809E+00_JPRB &
+  &, 0.698946E+00_JPRB, 0.682969E+00_JPRB, 0.666886E+00_JPRB &
+  &, 0.650717E+00_JPRB, 0.634475E+00_JPRB, 0.618175E+00_JPRB, 0.601831E+00_JPRB &
+  &, 0.585463E+00_JPRB, 0.569085E+00_JPRB, 0.552712E+00_JPRB &
+  &, 0.536361E+00_JPRB, 0.520052E+00_JPRB, 0.503798E+00_JPRB, 0.487622E+00_JPRB &
+  &, 0.471538E+00_JPRB, 0.455565E+00_JPRB, 0.439716E+00_JPRB &
+  &, 0.424010E+00_JPRB, 0.408468E+00_JPRB, 0.393101E+00_JPRB, 0.377931E+00_JPRB &
+  &, 0.362975E+00_JPRB, 0.348252E+00_JPRB, 0.333757E+00_JPRB &
+  &, 0.319532E+00_JPRB, 0.305564E+00_JPRB, 0.291893E+00_JPRB, 0.278505E+00_JPRB &
+  &, 0.265442E+00_JPRB, 0.252688E+00_JPRB, 0.240258E+00_JPRB &
+  &, 0.228170E+00_JPRB, 0.216426E+00_JPRB, 0.205041E+00_JPRB, 0.194012E+00_JPRB &
+  &, 0.183337E+00_JPRB, 0.173039E+00_JPRB, 0.163110E+00_JPRB &
+  &, 0.153541E+00_JPRB, 0.144364E+00_JPRB, 0.135532E+00_JPRB, 0.127093E+00_JPRB &
+  &, 0.119008E+00_JPRB, 0.111287E+00_JPRB, 0.103920E+00_JPRB &
+  &, 0.969130E-01_JPRB, 0.902507E-01_JPRB, 0.839337E-01_JPRB, 0.779415E-01_JPRB &
+  &, 0.722893E-01_JPRB, 0.669312E-01_JPRB, 0.618981E-01_JPRB &
+  &, 0.571588E-01_JPRB, 0.526992E-01_JPRB, 0.485247E-01_JPRB, 0.446171E-01_JPRB &
+  &, 0.409554E-01_JPRB, 0.375390E-01_JPRB, 0.343661E-01_JPRB &
+  &, 0.314093E-01_JPRB, 0.286626E-01_JPRB, 0.261188E-01_JPRB, 0.237689E-01_JPRB &
+  &, 0.216027E-01_JPRB, 0.195814E-01_JPRB, 0.177444E-01_JPRB &
+  &, 0.160500E-01_JPRB, 0.145095E-01_JPRB, 0.130765E-01_JPRB, 0.117596E-01_JPRB &
+  &, 0.105975E-01_JPRB, 0.950931E-02_JPRB, 0.853186E-02_JPRB &
+  &, 0.760959E-02_JPRB, 0.681141E-02_JPRB, 0.607973E-02_JPRB, 0.541926E-02_JPRB &
+  &, 0.480084E-02_JPRB, 0.426219E-02_JPRB, 0.380833E-02_JPRB &
+  &, 0.337282E-02_JPRB, 0.295724E-02_JPRB, 0.260018E-02_JPRB, 0.230515E-02_JPRB &
+  &, 0.203748E-02_JPRB, 0.179890E-02_JPRB, 0.155166E-02_JPRB &
+  &, 0.137600E-02_JPRB, 0.119405E-02_JPRB, 0.104720E-02_JPRB, 0.895200E-03_JPRB &
+  &, 0.780813E-03_JPRB, 0.662492E-03_JPRB, 0.584365E-03_JPRB &
+  &, 0.503574E-03_JPRB, 0.420083E-03_JPRB, 0.380121E-03_JPRB, 0.338800E-03_JPRB &
+  &, 0.248419E-03_JPRB, 0.252010E-03_JPRB, 0.206505E-03_JPRB &
+  &, 0.159569E-03_JPRB, 0.111185E-03_JPRB, 0.112669E-03_JPRB, 0.114165E-03_JPRB &
+  &, 0.628365E-04_JPRB, 0.635965E-04_JPRB, 0.643624E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART48',1,ZHOOK_HANDLE)
+END SUBROUTINE PART48
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART49
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART49',0,ZHOOK_HANDLE)
+
+XCW( 337, :) = (/ &
+  &  0.955096E+00_JPRB, 0.943074E+00_JPRB, 0.930745E+00_JPRB, 0.918127E+00_JPRB &
+  &, 0.905221E+00_JPRB, 0.892040E+00_JPRB, 0.878592E+00_JPRB &
+  &, 0.864885E+00_JPRB, 0.850932E+00_JPRB, 0.836741E+00_JPRB, 0.822323E+00_JPRB &
+  &, 0.807687E+00_JPRB, 0.792846E+00_JPRB, 0.777811E+00_JPRB &
+  &, 0.762593E+00_JPRB, 0.747204E+00_JPRB, 0.731659E+00_JPRB, 0.715966E+00_JPRB &
+  &, 0.700142E+00_JPRB, 0.684197E+00_JPRB, 0.668151E+00_JPRB &
+  &, 0.652014E+00_JPRB, 0.635801E+00_JPRB, 0.619528E+00_JPRB, 0.603209E+00_JPRB &
+  &, 0.586863E+00_JPRB, 0.570504E+00_JPRB, 0.554150E+00_JPRB &
+  &, 0.537819E+00_JPRB, 0.521522E+00_JPRB, 0.505280E+00_JPRB, 0.489116E+00_JPRB &
+  &, 0.473039E+00_JPRB, 0.457069E+00_JPRB, 0.441222E+00_JPRB &
+  &, 0.425516E+00_JPRB, 0.409975E+00_JPRB, 0.394607E+00_JPRB, 0.379435E+00_JPRB &
+  &, 0.364466E+00_JPRB, 0.349727E+00_JPRB, 0.335227E+00_JPRB &
+  &, 0.320983E+00_JPRB, 0.307005E+00_JPRB, 0.293312E+00_JPRB, 0.279912E+00_JPRB &
+  &, 0.266811E+00_JPRB, 0.254040E+00_JPRB, 0.241592E+00_JPRB &
+  &, 0.229471E+00_JPRB, 0.217705E+00_JPRB, 0.206281E+00_JPRB, 0.195226E+00_JPRB &
+  &, 0.184522E+00_JPRB, 0.174193E+00_JPRB, 0.164231E+00_JPRB &
+  &, 0.154626E+00_JPRB, 0.145410E+00_JPRB, 0.136554E+00_JPRB, 0.128072E+00_JPRB &
+  &, 0.119941E+00_JPRB, 0.112189E+00_JPRB, 0.104790E+00_JPRB &
+  &, 0.977477E-01_JPRB, 0.910483E-01_JPRB, 0.846920E-01_JPRB, 0.786777E-01_JPRB &
+  &, 0.729820E-01_JPRB, 0.675984E-01_JPRB, 0.625176E-01_JPRB &
+  &, 0.577493E-01_JPRB, 0.532590E-01_JPRB, 0.490523E-01_JPRB, 0.451107E-01_JPRB &
+  &, 0.414134E-01_JPRB, 0.379830E-01_JPRB, 0.347714E-01_JPRB &
+  &, 0.317984E-01_JPRB, 0.290347E-01_JPRB, 0.264729E-01_JPRB, 0.240785E-01_JPRB &
+  &, 0.218920E-01_JPRB, 0.198763E-01_JPRB, 0.179903E-01_JPRB &
+  &, 0.163007E-01_JPRB, 0.147081E-01_JPRB, 0.132789E-01_JPRB, 0.119658E-01_JPRB &
+  &, 0.107475E-01_JPRB, 0.966203E-02_JPRB, 0.865627E-02_JPRB &
+  &, 0.773625E-02_JPRB, 0.694035E-02_JPRB, 0.617816E-02_JPRB, 0.551944E-02_JPRB &
+  &, 0.490278E-02_JPRB, 0.436591E-02_JPRB, 0.387867E-02_JPRB &
+  &, 0.340860E-02_JPRB, 0.303001E-02_JPRB, 0.267418E-02_JPRB, 0.234278E-02_JPRB &
+  &, 0.207573E-02_JPRB, 0.183779E-02_JPRB, 0.159119E-02_JPRB &
+  &, 0.141618E-02_JPRB, 0.123488E-02_JPRB, 0.104720E-02_JPRB, 0.937353E-03_JPRB &
+  &, 0.823636E-03_JPRB, 0.705991E-03_JPRB, 0.584365E-03_JPRB &
+  &, 0.503574E-03_JPRB, 0.465648E-03_JPRB, 0.380121E-03_JPRB, 0.338800E-03_JPRB &
+  &, 0.296102E-03_JPRB, 0.252010E-03_JPRB, 0.206505E-03_JPRB &
+  &, 0.159569E-03_JPRB, 0.161777E-03_JPRB, 0.112669E-03_JPRB, 0.114165E-03_JPRB &
+  &, 0.628365E-04_JPRB, 0.635965E-04_JPRB, 0.643624E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 338, :) = (/ &
+  &  0.955362E+00_JPRB, 0.943402E+00_JPRB, 0.931138E+00_JPRB, 0.918580E+00_JPRB &
+  &, 0.905735E+00_JPRB, 0.892612E+00_JPRB, 0.879221E+00_JPRB &
+  &, 0.865571E+00_JPRB, 0.851672E+00_JPRB, 0.837534E+00_JPRB, 0.823166E+00_JPRB &
+  &, 0.808582E+00_JPRB, 0.793789E+00_JPRB, 0.778800E+00_JPRB &
+  &, 0.763627E+00_JPRB, 0.748281E+00_JPRB, 0.732776E+00_JPRB, 0.717123E+00_JPRB &
+  &, 0.701336E+00_JPRB, 0.685428E+00_JPRB, 0.669415E+00_JPRB &
+  &, 0.653307E+00_JPRB, 0.637124E+00_JPRB, 0.620878E+00_JPRB, 0.604588E+00_JPRB &
+  &, 0.588263E+00_JPRB, 0.571927E+00_JPRB, 0.555593E+00_JPRB &
+  &, 0.539274E+00_JPRB, 0.522993E+00_JPRB, 0.506767E+00_JPRB, 0.490611E+00_JPRB &
+  &, 0.474541E+00_JPRB, 0.458573E+00_JPRB, 0.442733E+00_JPRB &
+  &, 0.427033E+00_JPRB, 0.411482E+00_JPRB, 0.396112E+00_JPRB, 0.380939E+00_JPRB &
+  &, 0.365956E+00_JPRB, 0.351213E+00_JPRB, 0.336696E+00_JPRB &
+  &, 0.322434E+00_JPRB, 0.308447E+00_JPRB, 0.294732E+00_JPRB, 0.281307E+00_JPRB &
+  &, 0.268191E+00_JPRB, 0.255392E+00_JPRB, 0.242926E+00_JPRB &
+  &, 0.230785E+00_JPRB, 0.218983E+00_JPRB, 0.207535E+00_JPRB, 0.196440E+00_JPRB &
+  &, 0.185707E+00_JPRB, 0.175347E+00_JPRB, 0.165351E+00_JPRB &
+  &, 0.155726E+00_JPRB, 0.146457E+00_JPRB, 0.137576E+00_JPRB, 0.129051E+00_JPRB &
+  &, 0.120892E+00_JPRB, 0.113109E+00_JPRB, 0.105660E+00_JPRB &
+  &, 0.985825E-01_JPRB, 0.918644E-01_JPRB, 0.854693E-01_JPRB, 0.794138E-01_JPRB &
+  &, 0.736748E-01_JPRB, 0.682656E-01_JPRB, 0.631578E-01_JPRB &
+  &, 0.583397E-01_JPRB, 0.538189E-01_JPRB, 0.495798E-01_JPRB, 0.456043E-01_JPRB &
+  &, 0.418943E-01_JPRB, 0.384270E-01_JPRB, 0.352006E-01_JPRB &
+  &, 0.321876E-01_JPRB, 0.294068E-01_JPRB, 0.268018E-01_JPRB, 0.244139E-01_JPRB &
+  &, 0.221814E-01_JPRB, 0.201444E-01_JPRB, 0.182636E-01_JPRB &
+  &, 0.165234E-01_JPRB, 0.149351E-01_JPRB, 0.134812E-01_JPRB, 0.121424E-01_JPRB &
+  &, 0.109275E-01_JPRB, 0.981475E-02_JPRB, 0.881178E-02_JPRB &
+  &, 0.789457E-02_JPRB, 0.703705E-02_JPRB, 0.630940E-02_JPRB, 0.561961E-02_JPRB &
+  &, 0.500471E-02_JPRB, 0.443505E-02_JPRB, 0.394901E-02_JPRB &
+  &, 0.348015E-02_JPRB, 0.310278E-02_JPRB, 0.271119E-02_JPRB, 0.241803E-02_JPRB &
+  &, 0.211398E-02_JPRB, 0.187667E-02_JPRB, 0.163072E-02_JPRB &
+  &, 0.141618E-02_JPRB, 0.123488E-02_JPRB, 0.108868E-02_JPRB, 0.937353E-03_JPRB &
+  &, 0.823636E-03_JPRB, 0.705991E-03_JPRB, 0.628547E-03_JPRB &
+  &, 0.548444E-03_JPRB, 0.465648E-03_JPRB, 0.380121E-03_JPRB, 0.338800E-03_JPRB &
+  &, 0.296102E-03_JPRB, 0.252010E-03_JPRB, 0.206505E-03_JPRB &
+  &, 0.159569E-03_JPRB, 0.161777E-03_JPRB, 0.112669E-03_JPRB, 0.114165E-03_JPRB &
+  &, 0.628365E-04_JPRB, 0.635965E-04_JPRB, 0.643624E-04_JPRB &
+  &, 0.651343E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 339, :) = (/ &
+  &  0.955629E+00_JPRB, 0.943732E+00_JPRB, 0.931530E+00_JPRB, 0.919033E+00_JPRB &
+  &, 0.906248E+00_JPRB, 0.893184E+00_JPRB, 0.879850E+00_JPRB &
+  &, 0.866257E+00_JPRB, 0.852412E+00_JPRB, 0.838325E+00_JPRB, 0.824011E+00_JPRB &
+  &, 0.809475E+00_JPRB, 0.794731E+00_JPRB, 0.779788E+00_JPRB &
+  &, 0.764660E+00_JPRB, 0.749358E+00_JPRB, 0.733894E+00_JPRB, 0.718281E+00_JPRB &
+  &, 0.702532E+00_JPRB, 0.686659E+00_JPRB, 0.670680E+00_JPRB &
+  &, 0.654603E+00_JPRB, 0.638450E+00_JPRB, 0.622232E+00_JPRB, 0.605966E+00_JPRB &
+  &, 0.589664E+00_JPRB, 0.573350E+00_JPRB, 0.557032E+00_JPRB &
+  &, 0.540732E+00_JPRB, 0.524467E+00_JPRB, 0.508250E+00_JPRB, 0.492105E+00_JPRB &
+  &, 0.476043E+00_JPRB, 0.460082E+00_JPRB, 0.444243E+00_JPRB &
+  &, 0.428539E+00_JPRB, 0.412998E+00_JPRB, 0.397618E+00_JPRB, 0.382432E+00_JPRB &
+  &, 0.367457E+00_JPRB, 0.352699E+00_JPRB, 0.338165E+00_JPRB &
+  &, 0.323896E+00_JPRB, 0.309889E+00_JPRB, 0.296151E+00_JPRB, 0.282714E+00_JPRB &
+  &, 0.269584E+00_JPRB, 0.256757E+00_JPRB, 0.244260E+00_JPRB &
+  &, 0.232086E+00_JPRB, 0.220262E+00_JPRB, 0.208790E+00_JPRB, 0.197668E+00_JPRB &
+  &, 0.186907E+00_JPRB, 0.176501E+00_JPRB, 0.166472E+00_JPRB &
+  &, 0.156811E+00_JPRB, 0.147519E+00_JPRB, 0.138599E+00_JPRB, 0.130030E+00_JPRB &
+  &, 0.121842E+00_JPRB, 0.114012E+00_JPRB, 0.106547E+00_JPRB &
+  &, 0.994354E-01_JPRB, 0.926621E-01_JPRB, 0.862465E-01_JPRB, 0.801499E-01_JPRB &
+  &, 0.743873E-01_JPRB, 0.689328E-01_JPRB, 0.637979E-01_JPRB &
+  &, 0.589513E-01_JPRB, 0.544003E-01_JPRB, 0.501294E-01_JPRB, 0.461204E-01_JPRB &
+  &, 0.423752E-01_JPRB, 0.388710E-01_JPRB, 0.356297E-01_JPRB &
+  &, 0.325767E-01_JPRB, 0.297541E-01_JPRB, 0.271560E-01_JPRB, 0.247234E-01_JPRB &
+  &, 0.224970E-01_JPRB, 0.204125E-01_JPRB, 0.185095E-01_JPRB &
+  &, 0.167741E-01_JPRB, 0.151621E-01_JPRB, 0.136836E-01_JPRB, 0.123191E-01_JPRB &
+  &, 0.111074E-01_JPRB, 0.996747E-02_JPRB, 0.893619E-02_JPRB &
+  &, 0.802123E-02_JPRB, 0.716599E-02_JPRB, 0.640783E-02_JPRB, 0.571978E-02_JPRB &
+  &, 0.507267E-02_JPRB, 0.453876E-02_JPRB, 0.401935E-02_JPRB &
+  &, 0.355170E-02_JPRB, 0.313917E-02_JPRB, 0.278519E-02_JPRB, 0.245565E-02_JPRB &
+  &, 0.215224E-02_JPRB, 0.191556E-02_JPRB, 0.167025E-02_JPRB &
+  &, 0.145635E-02_JPRB, 0.127570E-02_JPRB, 0.113017E-02_JPRB, 0.979505E-03_JPRB &
+  &, 0.823636E-03_JPRB, 0.749491E-03_JPRB, 0.628547E-03_JPRB &
+  &, 0.548444E-03_JPRB, 0.465648E-03_JPRB, 0.426386E-03_JPRB, 0.338800E-03_JPRB &
+  &, 0.296102E-03_JPRB, 0.252010E-03_JPRB, 0.206505E-03_JPRB &
+  &, 0.159569E-03_JPRB, 0.161777E-03_JPRB, 0.112669E-03_JPRB, 0.114165E-03_JPRB &
+  &, 0.628365E-04_JPRB, 0.635965E-04_JPRB, 0.643624E-04_JPRB &
+  &, 0.651343E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 340, :) = (/ &
+  &  0.955893E+00_JPRB, 0.944061E+00_JPRB, 0.931921E+00_JPRB, 0.919486E+00_JPRB &
+  &, 0.906761E+00_JPRB, 0.893755E+00_JPRB, 0.880479E+00_JPRB &
+  &, 0.866941E+00_JPRB, 0.853151E+00_JPRB, 0.839119E+00_JPRB, 0.824855E+00_JPRB &
+  &, 0.810369E+00_JPRB, 0.795673E+00_JPRB, 0.780778E+00_JPRB &
+  &, 0.765694E+00_JPRB, 0.750435E+00_JPRB, 0.735012E+00_JPRB, 0.719438E+00_JPRB &
+  &, 0.703726E+00_JPRB, 0.687890E+00_JPRB, 0.671941E+00_JPRB &
+  &, 0.655900E+00_JPRB, 0.639776E+00_JPRB, 0.623585E+00_JPRB, 0.607344E+00_JPRB &
+  &, 0.591068E+00_JPRB, 0.574773E+00_JPRB, 0.558474E+00_JPRB &
+  &, 0.542191E+00_JPRB, 0.525942E+00_JPRB, 0.509736E+00_JPRB, 0.493599E+00_JPRB &
+  &, 0.477549E+00_JPRB, 0.461595E+00_JPRB, 0.445758E+00_JPRB &
+  &, 0.430055E+00_JPRB, 0.414515E+00_JPRB, 0.399134E+00_JPRB, 0.383946E+00_JPRB &
+  &, 0.368958E+00_JPRB, 0.354185E+00_JPRB, 0.339645E+00_JPRB &
+  &, 0.325358E+00_JPRB, 0.311330E+00_JPRB, 0.297582E+00_JPRB, 0.284121E+00_JPRB &
+  &, 0.270965E+00_JPRB, 0.258121E+00_JPRB, 0.245594E+00_JPRB &
+  &, 0.233400E+00_JPRB, 0.221554E+00_JPRB, 0.210044E+00_JPRB, 0.198896E+00_JPRB &
+  &, 0.188106E+00_JPRB, 0.177670E+00_JPRB, 0.167608E+00_JPRB &
+  &, 0.157911E+00_JPRB, 0.148582E+00_JPRB, 0.139621E+00_JPRB, 0.131026E+00_JPRB &
+  &, 0.122810E+00_JPRB, 0.114932E+00_JPRB, 0.107435E+00_JPRB &
+  &, 0.100288E+00_JPRB, 0.934782E-01_JPRB, 0.870238E-01_JPRB, 0.808860E-01_JPRB &
+  &, 0.750800E-01_JPRB, 0.696000E-01_JPRB, 0.644381E-01_JPRB &
+  &, 0.595628E-01_JPRB, 0.549816E-01_JPRB, 0.506789E-01_JPRB, 0.466365E-01_JPRB &
+  &, 0.428561E-01_JPRB, 0.393383E-01_JPRB, 0.360350E-01_JPRB &
+  &, 0.329902E-01_JPRB, 0.301510E-01_JPRB, 0.275102E-01_JPRB, 0.250588E-01_JPRB &
+  &, 0.227863E-01_JPRB, 0.207074E-01_JPRB, 0.187828E-01_JPRB &
+  &, 0.169968E-01_JPRB, 0.153891E-01_JPRB, 0.138860E-01_JPRB, 0.125253E-01_JPRB &
+  &, 0.112874E-01_JPRB, 0.101202E-01_JPRB, 0.909169E-02_JPRB &
+  &, 0.814789E-02_JPRB, 0.729492E-02_JPRB, 0.650625E-02_JPRB, 0.581995E-02_JPRB &
+  &, 0.517460E-02_JPRB, 0.460790E-02_JPRB, 0.408969E-02_JPRB &
+  &, 0.362324E-02_JPRB, 0.321194E-02_JPRB, 0.282219E-02_JPRB, 0.249328E-02_JPRB &
+  &, 0.219049E-02_JPRB, 0.195445E-02_JPRB, 0.170978E-02_JPRB &
+  &, 0.149653E-02_JPRB, 0.131653E-02_JPRB, 0.113017E-02_JPRB, 0.979505E-03_JPRB &
+  &, 0.866459E-03_JPRB, 0.749491E-03_JPRB, 0.672729E-03_JPRB &
+  &, 0.548444E-03_JPRB, 0.465648E-03_JPRB, 0.426386E-03_JPRB, 0.338800E-03_JPRB &
+  &, 0.296102E-03_JPRB, 0.252010E-03_JPRB, 0.206505E-03_JPRB &
+  &, 0.209425E-03_JPRB, 0.161777E-03_JPRB, 0.112669E-03_JPRB, 0.114165E-03_JPRB &
+  &, 0.628365E-04_JPRB, 0.635965E-04_JPRB, 0.643624E-04_JPRB &
+  &, 0.651343E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 341, :) = (/ &
+  &  0.956158E+00_JPRB, 0.944390E+00_JPRB, 0.932313E+00_JPRB, 0.919939E+00_JPRB &
+  &, 0.907273E+00_JPRB, 0.894327E+00_JPRB, 0.881108E+00_JPRB &
+  &, 0.867625E+00_JPRB, 0.853890E+00_JPRB, 0.839911E+00_JPRB, 0.825698E+00_JPRB &
+  &, 0.811262E+00_JPRB, 0.796614E+00_JPRB, 0.781766E+00_JPRB &
+  &, 0.766728E+00_JPRB, 0.751510E+00_JPRB, 0.736129E+00_JPRB, 0.720595E+00_JPRB &
+  &, 0.704921E+00_JPRB, 0.689121E+00_JPRB, 0.673206E+00_JPRB &
+  &, 0.657196E+00_JPRB, 0.641102E+00_JPRB, 0.624939E+00_JPRB, 0.608723E+00_JPRB &
+  &, 0.592472E+00_JPRB, 0.576196E+00_JPRB, 0.559920E+00_JPRB &
+  &, 0.543653E+00_JPRB, 0.527417E+00_JPRB, 0.511227E+00_JPRB, 0.495098E+00_JPRB &
+  &, 0.479055E+00_JPRB, 0.463108E+00_JPRB, 0.447273E+00_JPRB &
+  &, 0.431571E+00_JPRB, 0.416031E+00_JPRB, 0.400649E+00_JPRB, 0.385450E+00_JPRB &
+  &, 0.370458E+00_JPRB, 0.355671E+00_JPRB, 0.341125E+00_JPRB &
+  &, 0.326819E+00_JPRB, 0.312783E+00_JPRB, 0.299013E+00_JPRB, 0.285540E+00_JPRB &
+  &, 0.272358E+00_JPRB, 0.259486E+00_JPRB, 0.246941E+00_JPRB &
+  &, 0.234727E+00_JPRB, 0.222846E+00_JPRB, 0.211312E+00_JPRB, 0.200124E+00_JPRB &
+  &, 0.189305E+00_JPRB, 0.178838E+00_JPRB, 0.168743E+00_JPRB &
+  &, 0.159011E+00_JPRB, 0.149644E+00_JPRB, 0.140659E+00_JPRB, 0.132022E+00_JPRB &
+  &, 0.123761E+00_JPRB, 0.115870E+00_JPRB, 0.108322E+00_JPRB &
+  &, 0.101141E+00_JPRB, 0.942943E-01_JPRB, 0.878010E-01_JPRB, 0.816415E-01_JPRB &
+  &, 0.757925E-01_JPRB, 0.702874E-01_JPRB, 0.650782E-01_JPRB &
+  &, 0.601744E-01_JPRB, 0.555415E-01_JPRB, 0.512065E-01_JPRB, 0.471526E-01_JPRB &
+  &, 0.433370E-01_JPRB, 0.397823E-01_JPRB, 0.364880E-01_JPRB &
+  &, 0.333793E-01_JPRB, 0.305232E-01_JPRB, 0.278644E-01_JPRB, 0.253941E-01_JPRB &
+  &, 0.231019E-01_JPRB, 0.209755E-01_JPRB, 0.190287E-01_JPRB &
+  &, 0.172475E-01_JPRB, 0.156161E-01_JPRB, 0.140883E-01_JPRB, 0.127019E-01_JPRB &
+  &, 0.114374E-01_JPRB, 0.103035E-01_JPRB, 0.924720E-02_JPRB &
+  &, 0.827455E-02_JPRB, 0.742386E-02_JPRB, 0.663749E-02_JPRB, 0.592012E-02_JPRB &
+  &, 0.527653E-02_JPRB, 0.467704E-02_JPRB, 0.416003E-02_JPRB &
+  &, 0.369479E-02_JPRB, 0.328471E-02_JPRB, 0.289620E-02_JPRB, 0.256853E-02_JPRB &
+  &, 0.226700E-02_JPRB, 0.199334E-02_JPRB, 0.174931E-02_JPRB &
+  &, 0.153671E-02_JPRB, 0.131653E-02_JPRB, 0.117166E-02_JPRB, 0.102166E-02_JPRB &
+  &, 0.866459E-03_JPRB, 0.749491E-03_JPRB, 0.672729E-03_JPRB &
+  &, 0.593315E-03_JPRB, 0.511212E-03_JPRB, 0.426386E-03_JPRB, 0.385772E-03_JPRB &
+  &, 0.296102E-03_JPRB, 0.252010E-03_JPRB, 0.206505E-03_JPRB &
+  &, 0.209425E-03_JPRB, 0.161777E-03_JPRB, 0.112669E-03_JPRB, 0.114165E-03_JPRB &
+  &, 0.115673E-03_JPRB, 0.635965E-04_JPRB, 0.643624E-04_JPRB &
+  &, 0.651343E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 342, :) = (/ &
+  &  0.956423E+00_JPRB, 0.944718E+00_JPRB, 0.932704E+00_JPRB, 0.920391E+00_JPRB &
+  &, 0.907785E+00_JPRB, 0.894897E+00_JPRB, 0.881736E+00_JPRB &
+  &, 0.868310E+00_JPRB, 0.854628E+00_JPRB, 0.840702E+00_JPRB, 0.826541E+00_JPRB &
+  &, 0.812155E+00_JPRB, 0.797556E+00_JPRB, 0.782754E+00_JPRB &
+  &, 0.767760E+00_JPRB, 0.752587E+00_JPRB, 0.737247E+00_JPRB, 0.721752E+00_JPRB &
+  &, 0.706115E+00_JPRB, 0.690352E+00_JPRB, 0.674470E+00_JPRB &
+  &, 0.658492E+00_JPRB, 0.642428E+00_JPRB, 0.626292E+00_JPRB, 0.610105E+00_JPRB &
+  &, 0.593876E+00_JPRB, 0.577623E+00_JPRB, 0.561363E+00_JPRB &
+  &, 0.545115E+00_JPRB, 0.528891E+00_JPRB, 0.512714E+00_JPRB, 0.496601E+00_JPRB &
+  &, 0.480561E+00_JPRB, 0.464621E+00_JPRB, 0.448793E+00_JPRB &
+  &, 0.433097E+00_JPRB, 0.417547E+00_JPRB, 0.402165E+00_JPRB, 0.386964E+00_JPRB &
+  &, 0.371959E+00_JPRB, 0.357167E+00_JPRB, 0.342605E+00_JPRB &
+  &, 0.328292E+00_JPRB, 0.314236E+00_JPRB, 0.300456E+00_JPRB, 0.286959E+00_JPRB &
+  &, 0.273751E+00_JPRB, 0.260863E+00_JPRB, 0.248288E+00_JPRB &
+  &, 0.236041E+00_JPRB, 0.224138E+00_JPRB, 0.212580E+00_JPRB, 0.201366E+00_JPRB &
+  &, 0.190505E+00_JPRB, 0.180022E+00_JPRB, 0.169879E+00_JPRB &
+  &, 0.160127E+00_JPRB, 0.150723E+00_JPRB, 0.141697E+00_JPRB, 0.133034E+00_JPRB &
+  &, 0.124728E+00_JPRB, 0.116668E+00_JPRB, 0.109227E+00_JPRB &
+  &, 0.101994E+00_JPRB, 0.951290E-01_JPRB, 0.885783E-01_JPRB, 0.823970E-01_JPRB &
+  &, 0.765248E-01_JPRB, 0.709748E-01_JPRB, 0.657184E-01_JPRB &
+  &, 0.607859E-01_JPRB, 0.561444E-01_JPRB, 0.517780E-01_JPRB, 0.476687E-01_JPRB &
+  &, 0.438408E-01_JPRB, 0.402497E-01_JPRB, 0.369172E-01_JPRB &
+  &, 0.337928E-01_JPRB, 0.308953E-01_JPRB, 0.282186E-01_JPRB, 0.257037E-01_JPRB &
+  &, 0.234175E-01_JPRB, 0.212705E-01_JPRB, 0.193020E-01_JPRB &
+  &, 0.174981E-01_JPRB, 0.158431E-01_JPRB, 0.143196E-01_JPRB, 0.129081E-01_JPRB &
+  &, 0.116173E-01_JPRB, 0.104562E-01_JPRB, 0.940271E-02_JPRB &
+  &, 0.843288E-02_JPRB, 0.755280E-02_JPRB, 0.673592E-02_JPRB, 0.602029E-02_JPRB &
+  &, 0.537846E-02_JPRB, 0.478075E-02_JPRB, 0.426554E-02_JPRB &
+  &, 0.376634E-02_JPRB, 0.335748E-02_JPRB, 0.297020E-02_JPRB, 0.260615E-02_JPRB &
+  &, 0.230526E-02_JPRB, 0.203223E-02_JPRB, 0.178884E-02_JPRB &
+  &, 0.157688E-02_JPRB, 0.135736E-02_JPRB, 0.121315E-02_JPRB, 0.102166E-02_JPRB &
+  &, 0.909282E-03_JPRB, 0.792990E-03_JPRB, 0.672729E-03_JPRB &
+  &, 0.593315E-03_JPRB, 0.511212E-03_JPRB, 0.426386E-03_JPRB, 0.385772E-03_JPRB &
+  &, 0.343786E-03_JPRB, 0.252010E-03_JPRB, 0.255631E-03_JPRB &
+  &, 0.209425E-03_JPRB, 0.161777E-03_JPRB, 0.164003E-03_JPRB, 0.114165E-03_JPRB &
+  &, 0.115673E-03_JPRB, 0.635965E-04_JPRB, 0.643624E-04_JPRB &
+  &, 0.651343E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 343, :) = (/ &
+  &  0.956689E+00_JPRB, 0.945047E+00_JPRB, 0.933094E+00_JPRB, 0.920843E+00_JPRB &
+  &, 0.908297E+00_JPRB, 0.895468E+00_JPRB, 0.882364E+00_JPRB &
+  &, 0.868994E+00_JPRB, 0.855367E+00_JPRB, 0.841494E+00_JPRB, 0.827384E+00_JPRB &
+  &, 0.813047E+00_JPRB, 0.798496E+00_JPRB, 0.783741E+00_JPRB &
+  &, 0.768793E+00_JPRB, 0.753662E+00_JPRB, 0.738364E+00_JPRB, 0.722909E+00_JPRB &
+  &, 0.707311E+00_JPRB, 0.691582E+00_JPRB, 0.675735E+00_JPRB &
+  &, 0.659789E+00_JPRB, 0.643754E+00_JPRB, 0.627649E+00_JPRB, 0.611483E+00_JPRB &
+  &, 0.595280E+00_JPRB, 0.579050E+00_JPRB, 0.562809E+00_JPRB &
+  &, 0.546578E+00_JPRB, 0.530370E+00_JPRB, 0.514204E+00_JPRB, 0.498099E+00_JPRB &
+  &, 0.482071E+00_JPRB, 0.466134E+00_JPRB, 0.450312E+00_JPRB &
+  &, 0.434613E+00_JPRB, 0.419064E+00_JPRB, 0.403681E+00_JPRB, 0.388478E+00_JPRB &
+  &, 0.373460E+00_JPRB, 0.358663E+00_JPRB, 0.344096E+00_JPRB &
+  &, 0.329765E+00_JPRB, 0.315689E+00_JPRB, 0.301899E+00_JPRB, 0.288378E+00_JPRB &
+  &, 0.275156E+00_JPRB, 0.262240E+00_JPRB, 0.249647E+00_JPRB &
+  &, 0.237368E+00_JPRB, 0.225444E+00_JPRB, 0.213848E+00_JPRB, 0.202608E+00_JPRB &
+  &, 0.191719E+00_JPRB, 0.181190E+00_JPRB, 0.171030E+00_JPRB &
+  &, 0.161227E+00_JPRB, 0.151801E+00_JPRB, 0.142736E+00_JPRB, 0.134047E+00_JPRB &
+  &, 0.125713E+00_JPRB, 0.117727E+00_JPRB, 0.110115E+00_JPRB &
+  &, 0.102865E+00_JPRB, 0.959452E-01_JPRB, 0.893745E-01_JPRB, 0.831525E-01_JPRB &
+  &, 0.772373E-01_JPRB, 0.716622E-01_JPRB, 0.663792E-01_JPRB &
+  &, 0.613975E-01_JPRB, 0.567257E-01_JPRB, 0.523276E-01_JPRB, 0.482072E-01_JPRB &
+  &, 0.443446E-01_JPRB, 0.407170E-01_JPRB, 0.373463E-01_JPRB &
+  &, 0.342063E-01_JPRB, 0.312922E-01_JPRB, 0.285728E-01_JPRB, 0.260391E-01_JPRB &
+  &, 0.237331E-01_JPRB, 0.215654E-01_JPRB, 0.195752E-01_JPRB &
+  &, 0.177487E-01_JPRB, 0.160701E-01_JPRB, 0.145219E-01_JPRB, 0.131142E-01_JPRB &
+  &, 0.118273E-01_JPRB, 0.106394E-01_JPRB, 0.955822E-02_JPRB &
+  &, 0.855954E-02_JPRB, 0.768173E-02_JPRB, 0.686716E-02_JPRB, 0.612046E-02_JPRB &
+  &, 0.548040E-02_JPRB, 0.488447E-02_JPRB, 0.433587E-02_JPRB &
+  &, 0.383789E-02_JPRB, 0.339387E-02_JPRB, 0.300721E-02_JPRB, 0.268140E-02_JPRB &
+  &, 0.234351E-02_JPRB, 0.207112E-02_JPRB, 0.182837E-02_JPRB &
+  &, 0.157688E-02_JPRB, 0.139819E-02_JPRB, 0.121315E-02_JPRB, 0.106381E-02_JPRB &
+  &, 0.909282E-03_JPRB, 0.792990E-03_JPRB, 0.716911E-03_JPRB &
+  &, 0.593315E-03_JPRB, 0.511212E-03_JPRB, 0.472651E-03_JPRB, 0.385772E-03_JPRB &
+  &, 0.343786E-03_JPRB, 0.300412E-03_JPRB, 0.255631E-03_JPRB &
+  &, 0.209425E-03_JPRB, 0.161777E-03_JPRB, 0.164003E-03_JPRB, 0.114165E-03_JPRB &
+  &, 0.115673E-03_JPRB, 0.635965E-04_JPRB, 0.643624E-04_JPRB &
+  &, 0.651343E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART49',1,ZHOOK_HANDLE)
+END SUBROUTINE PART49
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART50
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART50',0,ZHOOK_HANDLE)
+
+XCW( 344, :) = (/ &
+  &  0.956954E+00_JPRB, 0.945374E+00_JPRB, 0.933485E+00_JPRB, 0.921294E+00_JPRB &
+  &, 0.908808E+00_JPRB, 0.896038E+00_JPRB, 0.882990E+00_JPRB &
+  &, 0.869677E+00_JPRB, 0.856104E+00_JPRB, 0.842284E+00_JPRB, 0.828227E+00_JPRB &
+  &, 0.813939E+00_JPRB, 0.799437E+00_JPRB, 0.784728E+00_JPRB &
+  &, 0.769825E+00_JPRB, 0.754733E+00_JPRB, 0.739482E+00_JPRB, 0.724067E+00_JPRB &
+  &, 0.708505E+00_JPRB, 0.692813E+00_JPRB, 0.677003E+00_JPRB &
+  &, 0.661088E+00_JPRB, 0.645083E+00_JPRB, 0.629003E+00_JPRB, 0.612865E+00_JPRB &
+  &, 0.596684E+00_JPRB, 0.580476E+00_JPRB, 0.564256E+00_JPRB &
+  &, 0.548040E+00_JPRB, 0.531852E+00_JPRB, 0.515699E+00_JPRB, 0.499602E+00_JPRB &
+  &, 0.483582E+00_JPRB, 0.467656E+00_JPRB, 0.451836E+00_JPRB &
+  &, 0.436138E+00_JPRB, 0.420590E+00_JPRB, 0.405196E+00_JPRB, 0.389992E+00_JPRB &
+  &, 0.374971E+00_JPRB, 0.360160E+00_JPRB, 0.345587E+00_JPRB &
+  &, 0.331238E+00_JPRB, 0.317154E+00_JPRB, 0.303341E+00_JPRB, 0.289797E+00_JPRB &
+  &, 0.276561E+00_JPRB, 0.263617E+00_JPRB, 0.251007E+00_JPRB &
+  &, 0.238708E+00_JPRB, 0.226749E+00_JPRB, 0.215130E+00_JPRB, 0.203850E+00_JPRB &
+  &, 0.192933E+00_JPRB, 0.182374E+00_JPRB, 0.172181E+00_JPRB &
+  &, 0.162359E+00_JPRB, 0.152879E+00_JPRB, 0.143790E+00_JPRB, 0.135059E+00_JPRB &
+  &, 0.126680E+00_JPRB, 0.118682E+00_JPRB, 0.111020E+00_JPRB &
+  &, 0.103736E+00_JPRB, 0.967799E-01_JPRB, 0.901707E-01_JPRB, 0.839080E-01_JPRB &
+  &, 0.779696E-01_JPRB, 0.723496E-01_JPRB, 0.670400E-01_JPRB &
+  &, 0.620301E-01_JPRB, 0.573071E-01_JPRB, 0.528772E-01_JPRB, 0.487232E-01_JPRB &
+  &, 0.448255E-01_JPRB, 0.411844E-01_JPRB, 0.377993E-01_JPRB &
+  &, 0.346197E-01_JPRB, 0.316643E-01_JPRB, 0.289270E-01_JPRB, 0.264002E-01_JPRB &
+  &, 0.240487E-01_JPRB, 0.218603E-01_JPRB, 0.198485E-01_JPRB &
+  &, 0.179993E-01_JPRB, 0.162971E-01_JPRB, 0.147532E-01_JPRB, 0.133203E-01_JPRB &
+  &, 0.120072E-01_JPRB, 0.107922E-01_JPRB, 0.971373E-02_JPRB &
+  &, 0.871786E-02_JPRB, 0.781067E-02_JPRB, 0.699840E-02_JPRB, 0.625403E-02_JPRB &
+  &, 0.558233E-02_JPRB, 0.495361E-02_JPRB, 0.440621E-02_JPRB &
+  &, 0.390944E-02_JPRB, 0.346664E-02_JPRB, 0.308121E-02_JPRB, 0.271903E-02_JPRB &
+  &, 0.238176E-02_JPRB, 0.211001E-02_JPRB, 0.186790E-02_JPRB &
+  &, 0.161706E-02_JPRB, 0.143902E-02_JPRB, 0.125463E-02_JPRB, 0.110596E-02_JPRB &
+  &, 0.952105E-03_JPRB, 0.836490E-03_JPRB, 0.716911E-03_JPRB &
+  &, 0.638185E-03_JPRB, 0.556777E-03_JPRB, 0.472651E-03_JPRB, 0.385772E-03_JPRB &
+  &, 0.343786E-03_JPRB, 0.300412E-03_JPRB, 0.255631E-03_JPRB &
+  &, 0.209425E-03_JPRB, 0.161777E-03_JPRB, 0.164003E-03_JPRB, 0.114165E-03_JPRB &
+  &, 0.115673E-03_JPRB, 0.635965E-04_JPRB, 0.643624E-04_JPRB &
+  &, 0.651343E-04_JPRB, 0.659121E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 345, :) = (/ &
+  &  0.957218E+00_JPRB, 0.945703E+00_JPRB, 0.933875E+00_JPRB, 0.921745E+00_JPRB &
+  &, 0.909319E+00_JPRB, 0.896608E+00_JPRB, 0.883618E+00_JPRB &
+  &, 0.870360E+00_JPRB, 0.856842E+00_JPRB, 0.843075E+00_JPRB, 0.829068E+00_JPRB &
+  &, 0.814830E+00_JPRB, 0.800377E+00_JPRB, 0.785716E+00_JPRB &
+  &, 0.770857E+00_JPRB, 0.755815E+00_JPRB, 0.740598E+00_JPRB, 0.725224E+00_JPRB &
+  &, 0.709700E+00_JPRB, 0.694044E+00_JPRB, 0.678267E+00_JPRB &
+  &, 0.662385E+00_JPRB, 0.646410E+00_JPRB, 0.630359E+00_JPRB, 0.614247E+00_JPRB &
+  &, 0.598092E+00_JPRB, 0.581903E+00_JPRB, 0.565702E+00_JPRB &
+  &, 0.549506E+00_JPRB, 0.533331E+00_JPRB, 0.517190E+00_JPRB, 0.501109E+00_JPRB &
+  &, 0.485097E+00_JPRB, 0.469173E+00_JPRB, 0.453356E+00_JPRB &
+  &, 0.437664E+00_JPRB, 0.422115E+00_JPRB, 0.406722E+00_JPRB, 0.391505E+00_JPRB &
+  &, 0.376482E+00_JPRB, 0.361667E+00_JPRB, 0.347078E+00_JPRB &
+  &, 0.332722E+00_JPRB, 0.318618E+00_JPRB, 0.304784E+00_JPRB, 0.291227E+00_JPRB &
+  &, 0.277966E+00_JPRB, 0.265007E+00_JPRB, 0.252367E+00_JPRB &
+  &, 0.240035E+00_JPRB, 0.228055E+00_JPRB, 0.216398E+00_JPRB, 0.205106E+00_JPRB &
+  &, 0.194161E+00_JPRB, 0.183572E+00_JPRB, 0.173332E+00_JPRB &
+  &, 0.163474E+00_JPRB, 0.153973E+00_JPRB, 0.144845E+00_JPRB, 0.136071E+00_JPRB &
+  &, 0.127665E+00_JPRB, 0.119619E+00_JPRB, 0.111943E+00_JPRB &
+  &, 0.104607E+00_JPRB, 0.976146E-01_JPRB, 0.909858E-01_JPRB, 0.846828E-01_JPRB &
+  &, 0.787019E-01_JPRB, 0.730370E-01_JPRB, 0.677008E-01_JPRB &
+  &, 0.626628E-01_JPRB, 0.579100E-01_JPRB, 0.534487E-01_JPRB, 0.492618E-01_JPRB &
+  &, 0.453293E-01_JPRB, 0.416751E-01_JPRB, 0.382285E-01_JPRB &
+  &, 0.350332E-01_JPRB, 0.320612E-01_JPRB, 0.293065E-01_JPRB, 0.267356E-01_JPRB &
+  &, 0.243643E-01_JPRB, 0.221552E-01_JPRB, 0.201217E-01_JPRB &
+  &, 0.182500E-01_JPRB, 0.165525E-01_JPRB, 0.149556E-01_JPRB, 0.134970E-01_JPRB &
+  &, 0.121872E-01_JPRB, 0.109754E-01_JPRB, 0.986924E-02_JPRB &
+  &, 0.884452E-02_JPRB, 0.793961E-02_JPRB, 0.709682E-02_JPRB, 0.635420E-02_JPRB &
+  &, 0.568426E-02_JPRB, 0.505732E-02_JPRB, 0.447655E-02_JPRB &
+  &, 0.398099E-02_JPRB, 0.353941E-02_JPRB, 0.311821E-02_JPRB, 0.275666E-02_JPRB &
+  &, 0.245827E-02_JPRB, 0.214890E-02_JPRB, 0.190743E-02_JPRB &
+  &, 0.165724E-02_JPRB, 0.147985E-02_JPRB, 0.129612E-02_JPRB, 0.110596E-02_JPRB &
+  &, 0.994928E-03_JPRB, 0.836490E-03_JPRB, 0.716911E-03_JPRB &
+  &, 0.638185E-03_JPRB, 0.556777E-03_JPRB, 0.472651E-03_JPRB, 0.432743E-03_JPRB &
+  &, 0.343786E-03_JPRB, 0.300412E-03_JPRB, 0.255631E-03_JPRB &
+  &, 0.209425E-03_JPRB, 0.161777E-03_JPRB, 0.164003E-03_JPRB, 0.114165E-03_JPRB &
+  &, 0.115673E-03_JPRB, 0.635965E-04_JPRB, 0.643624E-04_JPRB &
+  &, 0.651343E-04_JPRB, 0.659121E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 346, :) = (/ &
+  &  0.957481E+00_JPRB, 0.946030E+00_JPRB, 0.934264E+00_JPRB, 0.922196E+00_JPRB &
+  &, 0.909830E+00_JPRB, 0.897177E+00_JPRB, 0.884244E+00_JPRB &
+  &, 0.871041E+00_JPRB, 0.857579E+00_JPRB, 0.843865E+00_JPRB, 0.829910E+00_JPRB &
+  &, 0.815723E+00_JPRB, 0.801317E+00_JPRB, 0.786703E+00_JPRB &
+  &, 0.771890E+00_JPRB, 0.756890E+00_JPRB, 0.741716E+00_JPRB, 0.726380E+00_JPRB &
+  &, 0.710896E+00_JPRB, 0.695275E+00_JPRB, 0.679532E+00_JPRB &
+  &, 0.663681E+00_JPRB, 0.647739E+00_JPRB, 0.631716E+00_JPRB, 0.615629E+00_JPRB &
+  &, 0.599496E+00_JPRB, 0.583334E+00_JPRB, 0.567152E+00_JPRB &
+  &, 0.550973E+00_JPRB, 0.534813E+00_JPRB, 0.518689E+00_JPRB, 0.502612E+00_JPRB &
+  &, 0.486611E+00_JPRB, 0.470695E+00_JPRB, 0.454884E+00_JPRB &
+  &, 0.439189E+00_JPRB, 0.423641E+00_JPRB, 0.408247E+00_JPRB, 0.393029E+00_JPRB &
+  &, 0.378003E+00_JPRB, 0.363174E+00_JPRB, 0.348569E+00_JPRB &
+  &, 0.334206E+00_JPRB, 0.320082E+00_JPRB, 0.306238E+00_JPRB, 0.292658E+00_JPRB &
+  &, 0.279372E+00_JPRB, 0.266397E+00_JPRB, 0.253726E+00_JPRB &
+  &, 0.241376E+00_JPRB, 0.229360E+00_JPRB, 0.217694E+00_JPRB, 0.206362E+00_JPRB &
+  &, 0.195375E+00_JPRB, 0.184756E+00_JPRB, 0.174498E+00_JPRB &
+  &, 0.164606E+00_JPRB, 0.155068E+00_JPRB, 0.145900E+00_JPRB, 0.137100E+00_JPRB &
+  &, 0.128650E+00_JPRB, 0.120574E+00_JPRB, 0.112848E+00_JPRB &
+  &, 0.105478E+00_JPRB, 0.984679E-01_JPRB, 0.917820E-01_JPRB, 0.854577E-01_JPRB &
+  &, 0.794341E-01_JPRB, 0.737446E-01_JPRB, 0.683616E-01_JPRB &
+  &, 0.632954E-01_JPRB, 0.585129E-01_JPRB, 0.540202E-01_JPRB, 0.498003E-01_JPRB &
+  &, 0.458560E-01_JPRB, 0.421425E-01_JPRB, 0.386815E-01_JPRB &
+  &, 0.354710E-01_JPRB, 0.324581E-01_JPRB, 0.296606E-01_JPRB, 0.270709E-01_JPRB &
+  &, 0.246799E-01_JPRB, 0.224501E-01_JPRB, 0.204223E-01_JPRB &
+  &, 0.185284E-01_JPRB, 0.167795E-01_JPRB, 0.151868E-01_JPRB, 0.137032E-01_JPRB &
+  &, 0.123671E-01_JPRB, 0.111587E-01_JPRB, 0.100247E-01_JPRB &
+  &, 0.900285E-02_JPRB, 0.806855E-02_JPRB, 0.722806E-02_JPRB, 0.645437E-02_JPRB &
+  &, 0.578620E-02_JPRB, 0.512646E-02_JPRB, 0.458206E-02_JPRB &
+  &, 0.405254E-02_JPRB, 0.361218E-02_JPRB, 0.319222E-02_JPRB, 0.283191E-02_JPRB &
+  &, 0.249653E-02_JPRB, 0.218779E-02_JPRB, 0.194696E-02_JPRB &
+  &, 0.169741E-02_JPRB, 0.147985E-02_JPRB, 0.129612E-02_JPRB, 0.114811E-02_JPRB &
+  &, 0.994928E-03_JPRB, 0.879989E-03_JPRB, 0.761093E-03_JPRB &
+  &, 0.638185E-03_JPRB, 0.556777E-03_JPRB, 0.472651E-03_JPRB, 0.432743E-03_JPRB &
+  &, 0.343786E-03_JPRB, 0.300412E-03_JPRB, 0.255631E-03_JPRB &
+  &, 0.209425E-03_JPRB, 0.212370E-03_JPRB, 0.164003E-03_JPRB, 0.114165E-03_JPRB &
+  &, 0.115673E-03_JPRB, 0.635965E-04_JPRB, 0.643624E-04_JPRB &
+  &, 0.651343E-04_JPRB, 0.659121E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 347, :) = (/ &
+  &  0.957745E+00_JPRB, 0.946357E+00_JPRB, 0.934654E+00_JPRB, 0.922646E+00_JPRB &
+  &, 0.910340E+00_JPRB, 0.897745E+00_JPRB, 0.884870E+00_JPRB &
+  &, 0.871724E+00_JPRB, 0.858315E+00_JPRB, 0.844654E+00_JPRB, 0.830751E+00_JPRB &
+  &, 0.816615E+00_JPRB, 0.802258E+00_JPRB, 0.787689E+00_JPRB &
+  &, 0.772922E+00_JPRB, 0.757965E+00_JPRB, 0.742833E+00_JPRB, 0.727537E+00_JPRB &
+  &, 0.712092E+00_JPRB, 0.696506E+00_JPRB, 0.680800E+00_JPRB &
+  &, 0.664981E+00_JPRB, 0.649068E+00_JPRB, 0.633073E+00_JPRB, 0.617014E+00_JPRB &
+  &, 0.600903E+00_JPRB, 0.584761E+00_JPRB, 0.568602E+00_JPRB &
+  &, 0.552439E+00_JPRB, 0.536296E+00_JPRB, 0.520184E+00_JPRB, 0.504123E+00_JPRB &
+  &, 0.488126E+00_JPRB, 0.472217E+00_JPRB, 0.456413E+00_JPRB &
+  &, 0.440724E+00_JPRB, 0.425177E+00_JPRB, 0.409772E+00_JPRB, 0.394553E+00_JPRB &
+  &, 0.379514E+00_JPRB, 0.364681E+00_JPRB, 0.350070E+00_JPRB &
+  &, 0.335690E+00_JPRB, 0.321558E+00_JPRB, 0.307693E+00_JPRB, 0.294101E+00_JPRB &
+  &, 0.280789E+00_JPRB, 0.267787E+00_JPRB, 0.255099E+00_JPRB &
+  &, 0.242729E+00_JPRB, 0.230679E+00_JPRB, 0.218976E+00_JPRB, 0.207618E+00_JPRB &
+  &, 0.196618E+00_JPRB, 0.185954E+00_JPRB, 0.175664E+00_JPRB &
+  &, 0.165737E+00_JPRB, 0.156162E+00_JPRB, 0.146954E+00_JPRB, 0.138129E+00_JPRB &
+  &, 0.129651E+00_JPRB, 0.121529E+00_JPRB, 0.113771E+00_JPRB &
+  &, 0.106367E+00_JPRB, 0.993211E-01_JPRB, 0.925972E-01_JPRB, 0.862326E-01_JPRB &
+  &, 0.801862E-01_JPRB, 0.744523E-01_JPRB, 0.690430E-01_JPRB &
+  &, 0.639281E-01_JPRB, 0.591158E-01_JPRB, 0.545918E-01_JPRB, 0.503388E-01_JPRB &
+  &, 0.463598E-01_JPRB, 0.426332E-01_JPRB, 0.391345E-01_JPRB &
+  &, 0.358845E-01_JPRB, 0.328551E-01_JPRB, 0.300401E-01_JPRB, 0.274321E-01_JPRB &
+  &, 0.249955E-01_JPRB, 0.227718E-01_JPRB, 0.206956E-01_JPRB &
+  &, 0.187791E-01_JPRB, 0.170349E-01_JPRB, 0.154181E-01_JPRB, 0.139093E-01_JPRB &
+  &, 0.125771E-01_JPRB, 0.113114E-01_JPRB, 0.101803E-01_JPRB &
+  &, 0.916117E-02_JPRB, 0.819748E-02_JPRB, 0.735930E-02_JPRB, 0.658793E-02_JPRB &
+  &, 0.588813E-02_JPRB, 0.523017E-02_JPRB, 0.465240E-02_JPRB &
+  &, 0.415987E-02_JPRB, 0.368495E-02_JPRB, 0.326622E-02_JPRB, 0.286953E-02_JPRB &
+  &, 0.253478E-02_JPRB, 0.226556E-02_JPRB, 0.198649E-02_JPRB &
+  &, 0.173759E-02_JPRB, 0.152068E-02_JPRB, 0.133761E-02_JPRB, 0.119027E-02_JPRB &
+  &, 0.103775E-02_JPRB, 0.879989E-03_JPRB, 0.761093E-03_JPRB &
+  &, 0.683056E-03_JPRB, 0.602342E-03_JPRB, 0.518916E-03_JPRB, 0.432743E-03_JPRB &
+  &, 0.391470E-03_JPRB, 0.300412E-03_JPRB, 0.255631E-03_JPRB &
+  &, 0.209425E-03_JPRB, 0.212370E-03_JPRB, 0.164003E-03_JPRB, 0.114165E-03_JPRB &
+  &, 0.115673E-03_JPRB, 0.117193E-03_JPRB, 0.643624E-04_JPRB &
+  &, 0.651343E-04_JPRB, 0.659121E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 348, :) = (/ &
+  &  0.958008E+00_JPRB, 0.946684E+00_JPRB, 0.935043E+00_JPRB, 0.923096E+00_JPRB &
+  &, 0.910850E+00_JPRB, 0.898314E+00_JPRB, 0.885496E+00_JPRB &
+  &, 0.872406E+00_JPRB, 0.859051E+00_JPRB, 0.845443E+00_JPRB, 0.831592E+00_JPRB &
+  &, 0.817506E+00_JPRB, 0.803196E+00_JPRB, 0.788676E+00_JPRB &
+  &, 0.773952E+00_JPRB, 0.759041E+00_JPRB, 0.743951E+00_JPRB, 0.728694E+00_JPRB &
+  &, 0.713287E+00_JPRB, 0.697737E+00_JPRB, 0.682064E+00_JPRB &
+  &, 0.666280E+00_JPRB, 0.650394E+00_JPRB, 0.634430E+00_JPRB, 0.618396E+00_JPRB &
+  &, 0.602315E+00_JPRB, 0.586191E+00_JPRB, 0.570052E+00_JPRB &
+  &, 0.553909E+00_JPRB, 0.537778E+00_JPRB, 0.521683E+00_JPRB, 0.505630E+00_JPRB &
+  &, 0.489645E+00_JPRB, 0.473744E+00_JPRB, 0.457942E+00_JPRB &
+  &, 0.442259E+00_JPRB, 0.426703E+00_JPRB, 0.411308E+00_JPRB, 0.396077E+00_JPRB &
+  &, 0.381035E+00_JPRB, 0.366198E+00_JPRB, 0.351572E+00_JPRB &
+  &, 0.337174E+00_JPRB, 0.323034E+00_JPRB, 0.309147E+00_JPRB, 0.295532E+00_JPRB &
+  &, 0.282206E+00_JPRB, 0.269189E+00_JPRB, 0.256471E+00_JPRB &
+  &, 0.244069E+00_JPRB, 0.232011E+00_JPRB, 0.220271E+00_JPRB, 0.208889E+00_JPRB &
+  &, 0.197846E+00_JPRB, 0.187167E+00_JPRB, 0.176830E+00_JPRB &
+  &, 0.166868E+00_JPRB, 0.157272E+00_JPRB, 0.148025E+00_JPRB, 0.139158E+00_JPRB &
+  &, 0.130636E+00_JPRB, 0.122501E+00_JPRB, 0.114694E+00_JPRB &
+  &, 0.107257E+00_JPRB, 0.100174E+00_JPRB, 0.934124E-01_JPRB, 0.870074E-01_JPRB &
+  &, 0.809185E-01_JPRB, 0.751599E-01_JPRB, 0.697245E-01_JPRB &
+  &, 0.645818E-01_JPRB, 0.597402E-01_JPRB, 0.551853E-01_JPRB, 0.508997E-01_JPRB &
+  &, 0.468865E-01_JPRB, 0.431239E-01_JPRB, 0.396113E-01_JPRB &
+  &, 0.363223E-01_JPRB, 0.332768E-01_JPRB, 0.304196E-01_JPRB, 0.277932E-01_JPRB &
+  &, 0.253374E-01_JPRB, 0.230667E-01_JPRB, 0.209688E-01_JPRB &
+  &, 0.190575E-01_JPRB, 0.172619E-01_JPRB, 0.156205E-01_JPRB, 0.141449E-01_JPRB &
+  &, 0.127570E-01_JPRB, 0.114947E-01_JPRB, 0.103358E-01_JPRB &
+  &, 0.928783E-02_JPRB, 0.835865E-02_JPRB, 0.749054E-02_JPRB, 0.668810E-02_JPRB &
+  &, 0.599006E-02_JPRB, 0.533389E-02_JPRB, 0.475791E-02_JPRB &
+  &, 0.423141E-02_JPRB, 0.375772E-02_JPRB, 0.334023E-02_JPRB, 0.294478E-02_JPRB &
+  &, 0.261129E-02_JPRB, 0.230445E-02_JPRB, 0.202602E-02_JPRB &
+  &, 0.177777E-02_JPRB, 0.156151E-02_JPRB, 0.137910E-02_JPRB, 0.119027E-02_JPRB &
+  &, 0.103775E-02_JPRB, 0.923489E-03_JPRB, 0.805275E-03_JPRB &
+  &, 0.683056E-03_JPRB, 0.602342E-03_JPRB, 0.518916E-03_JPRB, 0.432743E-03_JPRB &
+  &, 0.391470E-03_JPRB, 0.348814E-03_JPRB, 0.255631E-03_JPRB &
+  &, 0.259281E-03_JPRB, 0.212370E-03_JPRB, 0.164003E-03_JPRB, 0.166248E-03_JPRB &
+  &, 0.115673E-03_JPRB, 0.117193E-03_JPRB, 0.643624E-04_JPRB &
+  &, 0.651343E-04_JPRB, 0.659121E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 349, :) = (/ &
+  &  0.958271E+00_JPRB, 0.947010E+00_JPRB, 0.935432E+00_JPRB, 0.923546E+00_JPRB &
+  &, 0.911360E+00_JPRB, 0.898882E+00_JPRB, 0.886121E+00_JPRB &
+  &, 0.873087E+00_JPRB, 0.859788E+00_JPRB, 0.846233E+00_JPRB, 0.832433E+00_JPRB &
+  &, 0.818397E+00_JPRB, 0.804137E+00_JPRB, 0.789662E+00_JPRB &
+  &, 0.774984E+00_JPRB, 0.760116E+00_JPRB, 0.745067E+00_JPRB, 0.729851E+00_JPRB &
+  &, 0.714481E+00_JPRB, 0.698971E+00_JPRB, 0.683332E+00_JPRB &
+  &, 0.667577E+00_JPRB, 0.651724E+00_JPRB, 0.635787E+00_JPRB, 0.619782E+00_JPRB &
+  &, 0.603722E+00_JPRB, 0.587625E+00_JPRB, 0.571502E+00_JPRB &
+  &, 0.555379E+00_JPRB, 0.539265E+00_JPRB, 0.523182E+00_JPRB, 0.507141E+00_JPRB &
+  &, 0.491134E+00_JPRB, 0.475270E+00_JPRB, 0.459475E+00_JPRB &
+  &, 0.443793E+00_JPRB, 0.428238E+00_JPRB, 0.412843E+00_JPRB, 0.397611E+00_JPRB &
+  &, 0.382556E+00_JPRB, 0.367705E+00_JPRB, 0.353074E+00_JPRB &
+  &, 0.338669E+00_JPRB, 0.324510E+00_JPRB, 0.310601E+00_JPRB, 0.296975E+00_JPRB &
+  &, 0.283636E+00_JPRB, 0.270591E+00_JPRB, 0.257844E+00_JPRB &
+  &, 0.245423E+00_JPRB, 0.233330E+00_JPRB, 0.221567E+00_JPRB, 0.210159E+00_JPRB &
+  &, 0.199089E+00_JPRB, 0.188365E+00_JPRB, 0.178011E+00_JPRB &
+  &, 0.168015E+00_JPRB, 0.158382E+00_JPRB, 0.149096E+00_JPRB, 0.140187E+00_JPRB &
+  &, 0.131654E+00_JPRB, 0.123456E+00_JPRB, 0.115635E+00_JPRB &
+  &, 0.108146E+00_JPRB, 0.101028E+00_JPRB, 0.942465E-01_JPRB, 0.878016E-01_JPRB &
+  &, 0.816706E-01_JPRB, 0.758877E-01_JPRB, 0.704059E-01_JPRB &
+  &, 0.652355E-01_JPRB, 0.603431E-01_JPRB, 0.557568E-01_JPRB, 0.514383E-01_JPRB &
+  &, 0.473903E-01_JPRB, 0.436147E-01_JPRB, 0.400643E-01_JPRB &
+  &, 0.367600E-01_JPRB, 0.336737E-01_JPRB, 0.307991E-01_JPRB, 0.281286E-01_JPRB &
+  &, 0.256793E-01_JPRB, 0.233885E-01_JPRB, 0.212694E-01_JPRB &
+  &, 0.193082E-01_JPRB, 0.175172E-01_JPRB, 0.158517E-01_JPRB, 0.143510E-01_JPRB &
+  &, 0.129670E-01_JPRB, 0.116780E-01_JPRB, 0.105224E-01_JPRB &
+  &, 0.944616E-02_JPRB, 0.848759E-02_JPRB, 0.762177E-02_JPRB, 0.682166E-02_JPRB &
+  &, 0.609199E-02_JPRB, 0.543760E-02_JPRB, 0.482825E-02_JPRB &
+  &, 0.430296E-02_JPRB, 0.383049E-02_JPRB, 0.337723E-02_JPRB, 0.302003E-02_JPRB &
+  &, 0.264954E-02_JPRB, 0.234334E-02_JPRB, 0.206555E-02_JPRB &
+  &, 0.181794E-02_JPRB, 0.160234E-02_JPRB, 0.142059E-02_JPRB, 0.123242E-02_JPRB &
+  &, 0.108057E-02_JPRB, 0.923489E-03_JPRB, 0.805275E-03_JPRB &
+  &, 0.727926E-03_JPRB, 0.602342E-03_JPRB, 0.518916E-03_JPRB, 0.479714E-03_JPRB &
+  &, 0.391470E-03_JPRB, 0.348814E-03_JPRB, 0.304757E-03_JPRB &
+  &, 0.259281E-03_JPRB, 0.212370E-03_JPRB, 0.164003E-03_JPRB, 0.166248E-03_JPRB &
+  &, 0.115673E-03_JPRB, 0.117193E-03_JPRB, 0.643624E-04_JPRB &
+  &, 0.651343E-04_JPRB, 0.659121E-04_JPRB, 0.666959E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 350, :) = (/ &
+  &  0.958536E+00_JPRB, 0.947337E+00_JPRB, 0.935820E+00_JPRB, 0.923995E+00_JPRB &
+  &, 0.911869E+00_JPRB, 0.899450E+00_JPRB, 0.886747E+00_JPRB &
+  &, 0.873767E+00_JPRB, 0.860522E+00_JPRB, 0.847021E+00_JPRB, 0.833273E+00_JPRB &
+  &, 0.819287E+00_JPRB, 0.805076E+00_JPRB, 0.790648E+00_JPRB &
+  &, 0.776017E+00_JPRB, 0.761191E+00_JPRB, 0.746184E+00_JPRB, 0.731009E+00_JPRB &
+  &, 0.715677E+00_JPRB, 0.700202E+00_JPRB, 0.684596E+00_JPRB &
+  &, 0.668876E+00_JPRB, 0.653057E+00_JPRB, 0.637148E+00_JPRB, 0.621167E+00_JPRB &
+  &, 0.605134E+00_JPRB, 0.589056E+00_JPRB, 0.572956E+00_JPRB &
+  &, 0.556849E+00_JPRB, 0.540752E+00_JPRB, 0.524681E+00_JPRB, 0.508653E+00_JPRB &
+  &, 0.492687E+00_JPRB, 0.476801E+00_JPRB, 0.461008E+00_JPRB &
+  &, 0.445328E+00_JPRB, 0.429773E+00_JPRB, 0.414378E+00_JPRB, 0.399135E+00_JPRB &
+  &, 0.384088E+00_JPRB, 0.369223E+00_JPRB, 0.354575E+00_JPRB &
+  &, 0.340164E+00_JPRB, 0.325985E+00_JPRB, 0.312067E+00_JPRB, 0.298429E+00_JPRB &
+  &, 0.285066E+00_JPRB, 0.271993E+00_JPRB, 0.259229E+00_JPRB &
+  &, 0.246776E+00_JPRB, 0.234663E+00_JPRB, 0.222876E+00_JPRB, 0.211429E+00_JPRB &
+  &, 0.200332E+00_JPRB, 0.189579E+00_JPRB, 0.179192E+00_JPRB &
+  &, 0.169162E+00_JPRB, 0.159492E+00_JPRB, 0.150183E+00_JPRB, 0.141233E+00_JPRB &
+  &, 0.132656E+00_JPRB, 0.124428E+00_JPRB, 0.116558E+00_JPRB &
+  &, 0.109053E+00_JPRB, 0.101881E+00_JPRB, 0.950617E-01_JPRB, 0.885959E-01_JPRB &
+  &, 0.824425E-01_JPRB, 0.765954E-01_JPRB, 0.710874E-01_JPRB &
+  &, 0.658893E-01_JPRB, 0.609676E-01_JPRB, 0.563503E-01_JPRB, 0.519992E-01_JPRB &
+  &, 0.479170E-01_JPRB, 0.441054E-01_JPRB, 0.405411E-01_JPRB &
+  &, 0.371978E-01_JPRB, 0.340954E-01_JPRB, 0.311786E-01_JPRB, 0.284898E-01_JPRB &
+  &, 0.259949E-01_JPRB, 0.236834E-01_JPRB, 0.215700E-01_JPRB &
+  &, 0.195866E-01_JPRB, 0.177726E-01_JPRB, 0.160830E-01_JPRB, 0.145571E-01_JPRB &
+  &, 0.131470E-01_JPRB, 0.118612E-01_JPRB, 0.106779E-01_JPRB &
+  &, 0.960448E-02_JPRB, 0.861653E-02_JPRB, 0.775301E-02_JPRB, 0.692184E-02_JPRB &
+  &, 0.619393E-02_JPRB, 0.554131E-02_JPRB, 0.493376E-02_JPRB &
+  &, 0.437451E-02_JPRB, 0.390326E-02_JPRB, 0.345124E-02_JPRB, 0.305766E-02_JPRB &
+  &, 0.272605E-02_JPRB, 0.238223E-02_JPRB, 0.210508E-02_JPRB &
+  &, 0.185812E-02_JPRB, 0.164317E-02_JPRB, 0.142059E-02_JPRB, 0.127457E-02_JPRB &
+  &, 0.108057E-02_JPRB, 0.966988E-03_JPRB, 0.849457E-03_JPRB &
+  &, 0.727926E-03_JPRB, 0.647907E-03_JPRB, 0.565181E-03_JPRB, 0.479714E-03_JPRB &
+  &, 0.391470E-03_JPRB, 0.348814E-03_JPRB, 0.304757E-03_JPRB &
+  &, 0.259281E-03_JPRB, 0.212370E-03_JPRB, 0.164003E-03_JPRB, 0.166248E-03_JPRB &
+  &, 0.115673E-03_JPRB, 0.117193E-03_JPRB, 0.643624E-04_JPRB &
+  &, 0.651343E-04_JPRB, 0.659121E-04_JPRB, 0.666959E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART50',1,ZHOOK_HANDLE)
+END SUBROUTINE PART50
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART51
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART51',0,ZHOOK_HANDLE)
+
+XCW( 351, :) = (/ &
+  &  0.958798E+00_JPRB, 0.947663E+00_JPRB, 0.936208E+00_JPRB, 0.924445E+00_JPRB &
+  &, 0.912378E+00_JPRB, 0.900017E+00_JPRB, 0.887371E+00_JPRB &
+  &, 0.874448E+00_JPRB, 0.861258E+00_JPRB, 0.847810E+00_JPRB, 0.834113E+00_JPRB &
+  &, 0.820178E+00_JPRB, 0.806015E+00_JPRB, 0.791634E+00_JPRB &
+  &, 0.777047E+00_JPRB, 0.762265E+00_JPRB, 0.747302E+00_JPRB, 0.732166E+00_JPRB &
+  &, 0.716874E+00_JPRB, 0.701433E+00_JPRB, 0.685864E+00_JPRB &
+  &, 0.670176E+00_JPRB, 0.654386E+00_JPRB, 0.638508E+00_JPRB, 0.622552E+00_JPRB &
+  &, 0.606545E+00_JPRB, 0.590490E+00_JPRB, 0.574410E+00_JPRB &
+  &, 0.558324E+00_JPRB, 0.542242E+00_JPRB, 0.526184E+00_JPRB, 0.510168E+00_JPRB &
+  &, 0.494211E+00_JPRB, 0.478331E+00_JPRB, 0.462546E+00_JPRB &
+  &, 0.446863E+00_JPRB, 0.431318E+00_JPRB, 0.415913E+00_JPRB, 0.400679E+00_JPRB &
+  &, 0.385609E+00_JPRB, 0.370751E+00_JPRB, 0.356088E+00_JPRB &
+  &, 0.341659E+00_JPRB, 0.327472E+00_JPRB, 0.313533E+00_JPRB, 0.299872E+00_JPRB &
+  &, 0.286495E+00_JPRB, 0.273396E+00_JPRB, 0.260614E+00_JPRB &
+  &, 0.248143E+00_JPRB, 0.235995E+00_JPRB, 0.224186E+00_JPRB, 0.212699E+00_JPRB &
+  &, 0.201574E+00_JPRB, 0.190792E+00_JPRB, 0.180373E+00_JPRB &
+  &, 0.170309E+00_JPRB, 0.160602E+00_JPRB, 0.151270E+00_JPRB, 0.142279E+00_JPRB &
+  &, 0.133674E+00_JPRB, 0.125400E+00_JPRB, 0.117499E+00_JPRB &
+  &, 0.109960E+00_JPRB, 0.102753E+00_JPRB, 0.958958E-01_JPRB, 0.893901E-01_JPRB &
+  &, 0.831946E-01_JPRB, 0.773232E-01_JPRB, 0.717895E-01_JPRB &
+  &, 0.665430E-01_JPRB, 0.615920E-01_JPRB, 0.569439E-01_JPRB, 0.525602E-01_JPRB &
+  &, 0.484437E-01_JPRB, 0.445961E-01_JPRB, 0.409941E-01_JPRB &
+  &, 0.376356E-01_JPRB, 0.344923E-01_JPRB, 0.315834E-01_JPRB, 0.288509E-01_JPRB &
+  &, 0.263368E-01_JPRB, 0.240051E-01_JPRB, 0.218433E-01_JPRB &
+  &, 0.198651E-01_JPRB, 0.180280E-01_JPRB, 0.163432E-01_JPRB, 0.147927E-01_JPRB &
+  &, 0.133569E-01_JPRB, 0.120445E-01_JPRB, 0.108645E-01_JPRB &
+  &, 0.976281E-02_JPRB, 0.877770E-02_JPRB, 0.788425E-02_JPRB, 0.705540E-02_JPRB &
+  &, 0.629586E-02_JPRB, 0.564502E-02_JPRB, 0.500410E-02_JPRB &
+  &, 0.448184E-02_JPRB, 0.397604E-02_JPRB, 0.352524E-02_JPRB, 0.313291E-02_JPRB &
+  &, 0.276431E-02_JPRB, 0.246001E-02_JPRB, 0.214461E-02_JPRB &
+  &, 0.189830E-02_JPRB, 0.168400E-02_JPRB, 0.146207E-02_JPRB, 0.127457E-02_JPRB &
+  &, 0.112340E-02_JPRB, 0.966988E-03_JPRB, 0.849457E-03_JPRB &
+  &, 0.727926E-03_JPRB, 0.647907E-03_JPRB, 0.565181E-03_JPRB, 0.479714E-03_JPRB &
+  &, 0.391470E-03_JPRB, 0.348814E-03_JPRB, 0.304757E-03_JPRB &
+  &, 0.259281E-03_JPRB, 0.212370E-03_JPRB, 0.164003E-03_JPRB, 0.166248E-03_JPRB &
+  &, 0.115673E-03_JPRB, 0.117193E-03_JPRB, 0.643624E-04_JPRB &
+  &, 0.651343E-04_JPRB, 0.659121E-04_JPRB, 0.666959E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 352, :) = (/ &
+  &  0.959060E+00_JPRB, 0.947989E+00_JPRB, 0.936595E+00_JPRB, 0.924894E+00_JPRB &
+  &, 0.912887E+00_JPRB, 0.900584E+00_JPRB, 0.887996E+00_JPRB &
+  &, 0.875128E+00_JPRB, 0.861993E+00_JPRB, 0.848597E+00_JPRB, 0.834953E+00_JPRB &
+  &, 0.821067E+00_JPRB, 0.806952E+00_JPRB, 0.792619E+00_JPRB &
+  &, 0.778078E+00_JPRB, 0.763340E+00_JPRB, 0.748418E+00_JPRB, 0.733323E+00_JPRB &
+  &, 0.718069E+00_JPRB, 0.702667E+00_JPRB, 0.687132E+00_JPRB &
+  &, 0.671476E+00_JPRB, 0.655716E+00_JPRB, 0.639865E+00_JPRB, 0.623941E+00_JPRB &
+  &, 0.607956E+00_JPRB, 0.591924E+00_JPRB, 0.575864E+00_JPRB &
+  &, 0.559798E+00_JPRB, 0.543733E+00_JPRB, 0.527687E+00_JPRB, 0.511684E+00_JPRB &
+  &, 0.495738E+00_JPRB, 0.479862E+00_JPRB, 0.464083E+00_JPRB &
+  &, 0.448407E+00_JPRB, 0.432863E+00_JPRB, 0.417458E+00_JPRB, 0.402213E+00_JPRB &
+  &, 0.387141E+00_JPRB, 0.372268E+00_JPRB, 0.357600E+00_JPRB &
+  &, 0.343166E+00_JPRB, 0.328959E+00_JPRB, 0.315011E+00_JPRB, 0.301327E+00_JPRB &
+  &, 0.287925E+00_JPRB, 0.274810E+00_JPRB, 0.262000E+00_JPRB &
+  &, 0.249509E+00_JPRB, 0.237341E+00_JPRB, 0.225495E+00_JPRB, 0.213984E+00_JPRB &
+  &, 0.202832E+00_JPRB, 0.192020E+00_JPRB, 0.181569E+00_JPRB &
+  &, 0.171471E+00_JPRB, 0.161728E+00_JPRB, 0.152357E+00_JPRB, 0.143341E+00_JPRB &
+  &, 0.134693E+00_JPRB, 0.126390E+00_JPRB, 0.118457E+00_JPRB &
+  &, 0.110868E+00_JPRB, 0.103624E+00_JPRB, 0.967488E-01_JPRB, 0.901843E-01_JPRB &
+  &, 0.839664E-01_JPRB, 0.780713E-01_JPRB, 0.724709E-01_JPRB &
+  &, 0.671967E-01_JPRB, 0.622164E-01_JPRB, 0.575374E-01_JPRB, 0.531211E-01_JPRB &
+  &, 0.489933E-01_JPRB, 0.451102E-01_JPRB, 0.414710E-01_JPRB &
+  &, 0.380734E-01_JPRB, 0.349141E-01_JPRB, 0.319629E-01_JPRB, 0.292379E-01_JPRB &
+  &, 0.266787E-01_JPRB, 0.243268E-01_JPRB, 0.221439E-01_JPRB &
+  &, 0.201436E-01_JPRB, 0.182834E-01_JPRB, 0.165744E-01_JPRB, 0.149989E-01_JPRB &
+  &, 0.135669E-01_JPRB, 0.122278E-01_JPRB, 0.110200E-01_JPRB &
+  &, 0.992113E-02_JPRB, 0.890663E-02_JPRB, 0.801549E-02_JPRB, 0.715557E-02_JPRB &
+  &, 0.643177E-02_JPRB, 0.571416E-02_JPRB, 0.510961E-02_JPRB &
+  &, 0.455339E-02_JPRB, 0.404881E-02_JPRB, 0.359925E-02_JPRB, 0.317054E-02_JPRB &
+  &, 0.284081E-02_JPRB, 0.249890E-02_JPRB, 0.218414E-02_JPRB &
+  &, 0.193847E-02_JPRB, 0.172483E-02_JPRB, 0.150356E-02_JPRB, 0.131672E-02_JPRB &
+  &, 0.116622E-02_JPRB, 0.101049E-02_JPRB, 0.893639E-03_JPRB &
+  &, 0.772796E-03_JPRB, 0.647907E-03_JPRB, 0.565181E-03_JPRB, 0.479714E-03_JPRB &
+  &, 0.439153E-03_JPRB, 0.348814E-03_JPRB, 0.304757E-03_JPRB &
+  &, 0.259281E-03_JPRB, 0.212370E-03_JPRB, 0.215338E-03_JPRB, 0.166248E-03_JPRB &
+  &, 0.115673E-03_JPRB, 0.117193E-03_JPRB, 0.118725E-03_JPRB &
+  &, 0.651343E-04_JPRB, 0.659121E-04_JPRB, 0.666959E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 353, :) = (/ &
+  &  0.959323E+00_JPRB, 0.948314E+00_JPRB, 0.936983E+00_JPRB, 0.925342E+00_JPRB &
+  &, 0.913394E+00_JPRB, 0.901151E+00_JPRB, 0.888620E+00_JPRB &
+  &, 0.875809E+00_JPRB, 0.862727E+00_JPRB, 0.849385E+00_JPRB, 0.835792E+00_JPRB &
+  &, 0.821956E+00_JPRB, 0.807891E+00_JPRB, 0.793605E+00_JPRB &
+  &, 0.779110E+00_JPRB, 0.764416E+00_JPRB, 0.749536E+00_JPRB, 0.734480E+00_JPRB &
+  &, 0.719265E+00_JPRB, 0.703898E+00_JPRB, 0.688400E+00_JPRB &
+  &, 0.672779E+00_JPRB, 0.657049E+00_JPRB, 0.641229E+00_JPRB, 0.625327E+00_JPRB &
+  &, 0.609367E+00_JPRB, 0.593359E+00_JPRB, 0.577322E+00_JPRB &
+  &, 0.561272E+00_JPRB, 0.545223E+00_JPRB, 0.529194E+00_JPRB, 0.513203E+00_JPRB &
+  &, 0.497266E+00_JPRB, 0.481397E+00_JPRB, 0.465621E+00_JPRB &
+  &, 0.449951E+00_JPRB, 0.434408E+00_JPRB, 0.419003E+00_JPRB, 0.403747E+00_JPRB &
+  &, 0.388683E+00_JPRB, 0.373796E+00_JPRB, 0.359124E+00_JPRB &
+  &, 0.344672E+00_JPRB, 0.330446E+00_JPRB, 0.316489E+00_JPRB, 0.302782E+00_JPRB &
+  &, 0.289367E+00_JPRB, 0.276225E+00_JPRB, 0.263398E+00_JPRB &
+  &, 0.250876E+00_JPRB, 0.238673E+00_JPRB, 0.226805E+00_JPRB, 0.215282E+00_JPRB &
+  &, 0.204089E+00_JPRB, 0.193247E+00_JPRB, 0.182765E+00_JPRB &
+  &, 0.172633E+00_JPRB, 0.162854E+00_JPRB, 0.153444E+00_JPRB, 0.144403E+00_JPRB &
+  &, 0.135711E+00_JPRB, 0.127379E+00_JPRB, 0.119398E+00_JPRB &
+  &, 0.111775E+00_JPRB, 0.104515E+00_JPRB, 0.975830E-01_JPRB, 0.909979E-01_JPRB &
+  &, 0.847383E-01_JPRB, 0.787991E-01_JPRB, 0.731730E-01_JPRB &
+  &, 0.678716E-01_JPRB, 0.628624E-01_JPRB, 0.581309E-01_JPRB, 0.537045E-01_JPRB &
+  &, 0.495200E-01_JPRB, 0.456243E-01_JPRB, 0.419478E-01_JPRB &
+  &, 0.385355E-01_JPRB, 0.353358E-01_JPRB, 0.323677E-01_JPRB, 0.295990E-01_JPRB &
+  &, 0.270470E-01_JPRB, 0.246485E-01_JPRB, 0.224444E-01_JPRB &
+  &, 0.204221E-01_JPRB, 0.185387E-01_JPRB, 0.168057E-01_JPRB, 0.152344E-01_JPRB &
+  &, 0.137768E-01_JPRB, 0.124416E-01_JPRB, 0.112066E-01_JPRB &
+  &, 0.100795E-01_JPRB, 0.906780E-02_JPRB, 0.814672E-02_JPRB, 0.728913E-02_JPRB &
+  &, 0.653370E-02_JPRB, 0.581788E-02_JPRB, 0.521512E-02_JPRB &
+  &, 0.462494E-02_JPRB, 0.412158E-02_JPRB, 0.367325E-02_JPRB, 0.324579E-02_JPRB &
+  &, 0.287907E-02_JPRB, 0.253779E-02_JPRB, 0.226320E-02_JPRB &
+  &, 0.197865E-02_JPRB, 0.172483E-02_JPRB, 0.154505E-02_JPRB, 0.135888E-02_JPRB &
+  &, 0.116622E-02_JPRB, 0.101049E-02_JPRB, 0.893639E-03_JPRB &
+  &, 0.772796E-03_JPRB, 0.693472E-03_JPRB, 0.565181E-03_JPRB, 0.526686E-03_JPRB &
+  &, 0.439153E-03_JPRB, 0.397216E-03_JPRB, 0.304757E-03_JPRB &
+  &, 0.259281E-03_JPRB, 0.212370E-03_JPRB, 0.215338E-03_JPRB, 0.166248E-03_JPRB &
+  &, 0.115673E-03_JPRB, 0.117193E-03_JPRB, 0.118725E-03_JPRB &
+  &, 0.651343E-04_JPRB, 0.659121E-04_JPRB, 0.666959E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 354, :) = (/ &
+  &  0.959586E+00_JPRB, 0.948639E+00_JPRB, 0.937370E+00_JPRB, 0.925790E+00_JPRB &
+  &, 0.913902E+00_JPRB, 0.901717E+00_JPRB, 0.889243E+00_JPRB &
+  &, 0.876488E+00_JPRB, 0.863462E+00_JPRB, 0.850173E+00_JPRB, 0.836631E+00_JPRB &
+  &, 0.822846E+00_JPRB, 0.808829E+00_JPRB, 0.794590E+00_JPRB &
+  &, 0.780141E+00_JPRB, 0.765490E+00_JPRB, 0.750652E+00_JPRB, 0.735639E+00_JPRB &
+  &, 0.720461E+00_JPRB, 0.705132E+00_JPRB, 0.689668E+00_JPRB &
+  &, 0.674078E+00_JPRB, 0.658382E+00_JPRB, 0.642590E+00_JPRB, 0.626716E+00_JPRB &
+  &, 0.610779E+00_JPRB, 0.594796E+00_JPRB, 0.578780E+00_JPRB &
+  &, 0.562746E+00_JPRB, 0.546714E+00_JPRB, 0.530701E+00_JPRB, 0.514719E+00_JPRB &
+  &, 0.498794E+00_JPRB, 0.482937E+00_JPRB, 0.467163E+00_JPRB &
+  &, 0.451495E+00_JPRB, 0.435953E+00_JPRB, 0.420548E+00_JPRB, 0.405290E+00_JPRB &
+  &, 0.390214E+00_JPRB, 0.375324E+00_JPRB, 0.360636E+00_JPRB &
+  &, 0.346178E+00_JPRB, 0.331945E+00_JPRB, 0.317966E+00_JPRB, 0.304248E+00_JPRB &
+  &, 0.290809E+00_JPRB, 0.277652E+00_JPRB, 0.264796E+00_JPRB &
+  &, 0.252255E+00_JPRB, 0.240033E+00_JPRB, 0.228128E+00_JPRB, 0.216567E+00_JPRB &
+  &, 0.205346E+00_JPRB, 0.194475E+00_JPRB, 0.183962E+00_JPRB &
+  &, 0.173796E+00_JPRB, 0.163996E+00_JPRB, 0.154547E+00_JPRB, 0.145465E+00_JPRB &
+  &, 0.136730E+00_JPRB, 0.128369E+00_JPRB, 0.120357E+00_JPRB &
+  &, 0.112701E+00_JPRB, 0.105405E+00_JPRB, 0.984360E-01_JPRB, 0.918115E-01_JPRB &
+  &, 0.855102E-01_JPRB, 0.795472E-01_JPRB, 0.738958E-01_JPRB &
+  &, 0.685464E-01_JPRB, 0.634868E-01_JPRB, 0.587464E-01_JPRB, 0.542655E-01_JPRB &
+  &, 0.500696E-01_JPRB, 0.461150E-01_JPRB, 0.424247E-01_JPRB &
+  &, 0.389976E-01_JPRB, 0.357575E-01_JPRB, 0.327724E-01_JPRB, 0.299860E-01_JPRB &
+  &, 0.273889E-01_JPRB, 0.249703E-01_JPRB, 0.227450E-01_JPRB &
+  &, 0.207005E-01_JPRB, 0.187941E-01_JPRB, 0.170659E-01_JPRB, 0.154406E-01_JPRB &
+  &, 0.139868E-01_JPRB, 0.126248E-01_JPRB, 0.113932E-01_JPRB &
+  &, 0.102378E-01_JPRB, 0.922898E-02_JPRB, 0.827796E-02_JPRB, 0.742269E-02_JPRB &
+  &, 0.663564E-02_JPRB, 0.595616E-02_JPRB, 0.528546E-02_JPRB &
+  &, 0.473226E-02_JPRB, 0.419435E-02_JPRB, 0.374726E-02_JPRB, 0.332104E-02_JPRB &
+  &, 0.295558E-02_JPRB, 0.261557E-02_JPRB, 0.230273E-02_JPRB &
+  &, 0.201882E-02_JPRB, 0.176565E-02_JPRB, 0.158654E-02_JPRB, 0.135888E-02_JPRB &
+  &, 0.120904E-02_JPRB, 0.105399E-02_JPRB, 0.937821E-03_JPRB &
+  &, 0.817667E-03_JPRB, 0.693472E-03_JPRB, 0.611447E-03_JPRB, 0.526686E-03_JPRB &
+  &, 0.439153E-03_JPRB, 0.397216E-03_JPRB, 0.353883E-03_JPRB &
+  &, 0.259281E-03_JPRB, 0.262962E-03_JPRB, 0.215338E-03_JPRB, 0.166248E-03_JPRB &
+  &, 0.168510E-03_JPRB, 0.117193E-03_JPRB, 0.118725E-03_JPRB &
+  &, 0.651343E-04_JPRB, 0.659121E-04_JPRB, 0.666959E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 355, :) = (/ &
+  &  0.959845E+00_JPRB, 0.948965E+00_JPRB, 0.937757E+00_JPRB, 0.926238E+00_JPRB &
+  &, 0.914410E+00_JPRB, 0.902284E+00_JPRB, 0.889866E+00_JPRB &
+  &, 0.877167E+00_JPRB, 0.864195E+00_JPRB, 0.850960E+00_JPRB, 0.837470E+00_JPRB &
+  &, 0.823735E+00_JPRB, 0.809768E+00_JPRB, 0.795575E+00_JPRB &
+  &, 0.781171E+00_JPRB, 0.766565E+00_JPRB, 0.751769E+00_JPRB, 0.736796E+00_JPRB &
+  &, 0.721658E+00_JPRB, 0.706366E+00_JPRB, 0.690936E+00_JPRB &
+  &, 0.675381E+00_JPRB, 0.659714E+00_JPRB, 0.643950E+00_JPRB, 0.628105E+00_JPRB &
+  &, 0.612194E+00_JPRB, 0.596234E+00_JPRB, 0.580238E+00_JPRB &
+  &, 0.564224E+00_JPRB, 0.548208E+00_JPRB, 0.532209E+00_JPRB, 0.516243E+00_JPRB &
+  &, 0.500326E+00_JPRB, 0.484472E+00_JPRB, 0.468710E+00_JPRB &
+  &, 0.453039E+00_JPRB, 0.437498E+00_JPRB, 0.422093E+00_JPRB, 0.406834E+00_JPRB &
+  &, 0.391756E+00_JPRB, 0.376863E+00_JPRB, 0.362159E+00_JPRB &
+  &, 0.347684E+00_JPRB, 0.333443E+00_JPRB, 0.319444E+00_JPRB, 0.305715E+00_JPRB &
+  &, 0.292250E+00_JPRB, 0.279080E+00_JPRB, 0.266194E+00_JPRB &
+  &, 0.253635E+00_JPRB, 0.241379E+00_JPRB, 0.229451E+00_JPRB, 0.217865E+00_JPRB &
+  &, 0.206618E+00_JPRB, 0.195718E+00_JPRB, 0.185158E+00_JPRB &
+  &, 0.174958E+00_JPRB, 0.165121E+00_JPRB, 0.155650E+00_JPRB, 0.146527E+00_JPRB &
+  &, 0.137765E+00_JPRB, 0.129376E+00_JPRB, 0.121315E+00_JPRB &
+  &, 0.113626E+00_JPRB, 0.106277E+00_JPRB, 0.992891E-01_JPRB, 0.926251E-01_JPRB &
+  &, 0.863019E-01_JPRB, 0.802952E-01_JPRB, 0.745979E-01_JPRB &
+  &, 0.692212E-01_JPRB, 0.641328E-01_JPRB, 0.593619E-01_JPRB, 0.548489E-01_JPRB &
+  &, 0.506192E-01_JPRB, 0.466525E-01_JPRB, 0.429253E-01_JPRB &
+  &, 0.394354E-01_JPRB, 0.362041E-01_JPRB, 0.331772E-01_JPRB, 0.303471E-01_JPRB &
+  &, 0.277308E-01_JPRB, 0.253188E-01_JPRB, 0.230729E-01_JPRB &
+  &, 0.209790E-01_JPRB, 0.190779E-01_JPRB, 0.172971E-01_JPRB, 0.156762E-01_JPRB &
+  &, 0.141967E-01_JPRB, 0.128081E-01_JPRB, 0.115487E-01_JPRB &
+  &, 0.104278E-01_JPRB, 0.935791E-02_JPRB, 0.840920E-02_JPRB, 0.755626E-02_JPRB &
+  &, 0.677155E-02_JPRB, 0.605987E-02_JPRB, 0.539097E-02_JPRB &
+  &, 0.480381E-02_JPRB, 0.430351E-02_JPRB, 0.382126E-02_JPRB, 0.339629E-02_JPRB &
+  &, 0.299383E-02_JPRB, 0.265445E-02_JPRB, 0.234226E-02_JPRB &
+  &, 0.205900E-02_JPRB, 0.180648E-02_JPRB, 0.158654E-02_JPRB, 0.140103E-02_JPRB &
+  &, 0.125187E-02_JPRB, 0.109749E-02_JPRB, 0.937821E-03_JPRB &
+  &, 0.817667E-03_JPRB, 0.693472E-03_JPRB, 0.611447E-03_JPRB, 0.526686E-03_JPRB &
+  &, 0.439153E-03_JPRB, 0.397216E-03_JPRB, 0.353883E-03_JPRB &
+  &, 0.309138E-03_JPRB, 0.262962E-03_JPRB, 0.215338E-03_JPRB, 0.166248E-03_JPRB &
+  &, 0.168510E-03_JPRB, 0.117193E-03_JPRB, 0.118725E-03_JPRB &
+  &, 0.651343E-04_JPRB, 0.659121E-04_JPRB, 0.666959E-04_JPRB, 0.674857E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 356, :) = (/ &
+  &  0.960109E+00_JPRB, 0.949290E+00_JPRB, 0.938145E+00_JPRB, 0.926686E+00_JPRB &
+  &, 0.914917E+00_JPRB, 0.902849E+00_JPRB, 0.890489E+00_JPRB &
+  &, 0.877846E+00_JPRB, 0.864928E+00_JPRB, 0.851746E+00_JPRB, 0.838309E+00_JPRB &
+  &, 0.824624E+00_JPRB, 0.810705E+00_JPRB, 0.796560E+00_JPRB &
+  &, 0.782202E+00_JPRB, 0.767640E+00_JPRB, 0.752886E+00_JPRB, 0.737953E+00_JPRB &
+  &, 0.722853E+00_JPRB, 0.707600E+00_JPRB, 0.692203E+00_JPRB &
+  &, 0.676681E+00_JPRB, 0.661047E+00_JPRB, 0.645314E+00_JPRB, 0.629494E+00_JPRB &
+  &, 0.613609E+00_JPRB, 0.597672E+00_JPRB, 0.581695E+00_JPRB &
+  &, 0.565702E+00_JPRB, 0.549703E+00_JPRB, 0.533720E+00_JPRB, 0.517762E+00_JPRB &
+  &, 0.501858E+00_JPRB, 0.486016E+00_JPRB, 0.470257E+00_JPRB &
+  &, 0.454592E+00_JPRB, 0.439053E+00_JPRB, 0.423648E+00_JPRB, 0.408388E+00_JPRB &
+  &, 0.393298E+00_JPRB, 0.378391E+00_JPRB, 0.363693E+00_JPRB &
+  &, 0.349201E+00_JPRB, 0.334942E+00_JPRB, 0.320933E+00_JPRB, 0.307182E+00_JPRB &
+  &, 0.293705E+00_JPRB, 0.280507E+00_JPRB, 0.267605E+00_JPRB &
+  &, 0.255015E+00_JPRB, 0.242738E+00_JPRB, 0.230788E+00_JPRB, 0.219164E+00_JPRB &
+  &, 0.207890E+00_JPRB, 0.196961E+00_JPRB, 0.186369E+00_JPRB &
+  &, 0.176136E+00_JPRB, 0.166263E+00_JPRB, 0.156754E+00_JPRB, 0.147606E+00_JPRB &
+  &, 0.138801E+00_JPRB, 0.130365E+00_JPRB, 0.122291E+00_JPRB &
+  &, 0.114552E+00_JPRB, 0.107186E+00_JPRB, 0.100142E+00_JPRB, 0.934387E-01_JPRB &
+  &, 0.870737E-01_JPRB, 0.810433E-01_JPRB, 0.753206E-01_JPRB &
+  &, 0.698960E-01_JPRB, 0.648003E-01_JPRB, 0.599774E-01_JPRB, 0.554323E-01_JPRB &
+  &, 0.511688E-01_JPRB, 0.471666E-01_JPRB, 0.434260E-01_JPRB &
+  &, 0.398975E-01_JPRB, 0.366258E-01_JPRB, 0.335820E-01_JPRB, 0.307341E-01_JPRB &
+  &, 0.280990E-01_JPRB, 0.256405E-01_JPRB, 0.233735E-01_JPRB &
+  &, 0.212853E-01_JPRB, 0.193332E-01_JPRB, 0.175573E-01_JPRB, 0.159117E-01_JPRB &
+  &, 0.144067E-01_JPRB, 0.130219E-01_JPRB, 0.117353E-01_JPRB &
+  &, 0.105861E-01_JPRB, 0.951908E-02_JPRB, 0.854043E-02_JPRB, 0.768982E-02_JPRB &
+  &, 0.687348E-02_JPRB, 0.616358E-02_JPRB, 0.549647E-02_JPRB &
+  &, 0.491113E-02_JPRB, 0.437628E-02_JPRB, 0.389527E-02_JPRB, 0.343391E-02_JPRB &
+  &, 0.307034E-02_JPRB, 0.269334E-02_JPRB, 0.238179E-02_JPRB &
+  &, 0.209918E-02_JPRB, 0.184731E-02_JPRB, 0.162802E-02_JPRB, 0.144318E-02_JPRB &
+  &, 0.125187E-02_JPRB, 0.109749E-02_JPRB, 0.982002E-03_JPRB &
+  &, 0.817667E-03_JPRB, 0.739036E-03_JPRB, 0.611447E-03_JPRB, 0.526686E-03_JPRB &
+  &, 0.486837E-03_JPRB, 0.397216E-03_JPRB, 0.353883E-03_JPRB &
+  &, 0.309138E-03_JPRB, 0.262962E-03_JPRB, 0.215338E-03_JPRB, 0.166248E-03_JPRB &
+  &, 0.168510E-03_JPRB, 0.117193E-03_JPRB, 0.118725E-03_JPRB &
+  &, 0.651343E-04_JPRB, 0.659121E-04_JPRB, 0.666959E-04_JPRB, 0.674857E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 357, :) = (/ &
+  &  0.960371E+00_JPRB, 0.949613E+00_JPRB, 0.938531E+00_JPRB, 0.927133E+00_JPRB &
+  &, 0.915425E+00_JPRB, 0.903414E+00_JPRB, 0.891112E+00_JPRB &
+  &, 0.878525E+00_JPRB, 0.865661E+00_JPRB, 0.852533E+00_JPRB, 0.839147E+00_JPRB &
+  &, 0.825513E+00_JPRB, 0.811643E+00_JPRB, 0.797545E+00_JPRB &
+  &, 0.783233E+00_JPRB, 0.768714E+00_JPRB, 0.754003E+00_JPRB, 0.739111E+00_JPRB &
+  &, 0.724050E+00_JPRB, 0.708831E+00_JPRB, 0.693471E+00_JPRB &
+  &, 0.677984E+00_JPRB, 0.662380E+00_JPRB, 0.646674E+00_JPRB, 0.630886E+00_JPRB &
+  &, 0.615027E+00_JPRB, 0.599110E+00_JPRB, 0.583157E+00_JPRB &
+  &, 0.567180E+00_JPRB, 0.551202E+00_JPRB, 0.535231E+00_JPRB, 0.519286E+00_JPRB &
+  &, 0.503389E+00_JPRB, 0.487556E+00_JPRB, 0.471803E+00_JPRB &
+  &, 0.456146E+00_JPRB, 0.440607E+00_JPRB, 0.425193E+00_JPRB, 0.409932E+00_JPRB &
+  &, 0.394840E+00_JPRB, 0.379929E+00_JPRB, 0.365217E+00_JPRB &
+  &, 0.350718E+00_JPRB, 0.336452E+00_JPRB, 0.322422E+00_JPRB, 0.308660E+00_JPRB &
+  &, 0.295159E+00_JPRB, 0.281934E+00_JPRB, 0.269016E+00_JPRB &
+  &, 0.256394E+00_JPRB, 0.244097E+00_JPRB, 0.232125E+00_JPRB, 0.220476E+00_JPRB &
+  &, 0.209161E+00_JPRB, 0.198203E+00_JPRB, 0.187581E+00_JPRB &
+  &, 0.177329E+00_JPRB, 0.167421E+00_JPRB, 0.157873E+00_JPRB, 0.148685E+00_JPRB &
+  &, 0.139853E+00_JPRB, 0.131372E+00_JPRB, 0.123268E+00_JPRB &
+  &, 0.115495E+00_JPRB, 0.108076E+00_JPRB, 0.101014E+00_JPRB, 0.942717E-01_JPRB &
+  &, 0.878654E-01_JPRB, 0.817913E-01_JPRB, 0.760434E-01_JPRB &
+  &, 0.705919E-01_JPRB, 0.654463E-01_JPRB, 0.605929E-01_JPRB, 0.560156E-01_JPRB &
+  &, 0.517184E-01_JPRB, 0.476807E-01_JPRB, 0.439028E-01_JPRB &
+  &, 0.403840E-01_JPRB, 0.370723E-01_JPRB, 0.339868E-01_JPRB, 0.311210E-01_JPRB &
+  &, 0.284672E-01_JPRB, 0.259890E-01_JPRB, 0.237014E-01_JPRB &
+  &, 0.215638E-01_JPRB, 0.196170E-01_JPRB, 0.178175E-01_JPRB, 0.161473E-01_JPRB &
+  &, 0.146166E-01_JPRB, 0.132052E-01_JPRB, 0.119219E-01_JPRB &
+  &, 0.107444E-01_JPRB, 0.968025E-02_JPRB, 0.870448E-02_JPRB, 0.782338E-02_JPRB &
+  &, 0.700939E-02_JPRB, 0.626729E-02_JPRB, 0.560198E-02_JPRB &
+  &, 0.498268E-02_JPRB, 0.444905E-02_JPRB, 0.396927E-02_JPRB, 0.350916E-02_JPRB &
+  &, 0.310859E-02_JPRB, 0.277112E-02_JPRB, 0.246085E-02_JPRB &
+  &, 0.213935E-02_JPRB, 0.188814E-02_JPRB, 0.166951E-02_JPRB, 0.148533E-02_JPRB &
+  &, 0.129469E-02_JPRB, 0.114099E-02_JPRB, 0.982002E-03_JPRB &
+  &, 0.862537E-03_JPRB, 0.739036E-03_JPRB, 0.657712E-03_JPRB, 0.573657E-03_JPRB &
+  &, 0.486837E-03_JPRB, 0.397216E-03_JPRB, 0.353883E-03_JPRB &
+  &, 0.309138E-03_JPRB, 0.262962E-03_JPRB, 0.215338E-03_JPRB, 0.166248E-03_JPRB &
+  &, 0.168510E-03_JPRB, 0.117193E-03_JPRB, 0.118725E-03_JPRB &
+  &, 0.651343E-04_JPRB, 0.659121E-04_JPRB, 0.666959E-04_JPRB, 0.674857E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART51',1,ZHOOK_HANDLE)
+END SUBROUTINE PART51
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART52
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART52',0,ZHOOK_HANDLE)
+
+XCW( 358, :) = (/ &
+  &  0.960632E+00_JPRB, 0.949939E+00_JPRB, 0.938917E+00_JPRB, 0.927580E+00_JPRB &
+  &, 0.915931E+00_JPRB, 0.903980E+00_JPRB, 0.891734E+00_JPRB &
+  &, 0.879203E+00_JPRB, 0.866395E+00_JPRB, 0.853318E+00_JPRB, 0.839984E+00_JPRB &
+  &, 0.826401E+00_JPRB, 0.812580E+00_JPRB, 0.798529E+00_JPRB &
+  &, 0.784261E+00_JPRB, 0.769788E+00_JPRB, 0.755121E+00_JPRB, 0.740269E+00_JPRB &
+  &, 0.725248E+00_JPRB, 0.710065E+00_JPRB, 0.694742E+00_JPRB &
+  &, 0.679287E+00_JPRB, 0.663713E+00_JPRB, 0.648038E+00_JPRB, 0.632275E+00_JPRB &
+  &, 0.616442E+00_JPRB, 0.600552E+00_JPRB, 0.584619E+00_JPRB &
+  &, 0.568662E+00_JPRB, 0.552696E+00_JPRB, 0.536742E+00_JPRB, 0.520814E+00_JPRB &
+  &, 0.504926E+00_JPRB, 0.489100E+00_JPRB, 0.473355E+00_JPRB &
+  &, 0.457699E+00_JPRB, 0.442162E+00_JPRB, 0.426757E+00_JPRB, 0.411486E+00_JPRB &
+  &, 0.396392E+00_JPRB, 0.381478E+00_JPRB, 0.366751E+00_JPRB &
+  &, 0.352247E+00_JPRB, 0.337961E+00_JPRB, 0.323923E+00_JPRB, 0.310127E+00_JPRB &
+  &, 0.296613E+00_JPRB, 0.283374E+00_JPRB, 0.270427E+00_JPRB &
+  &, 0.257787E+00_JPRB, 0.245470E+00_JPRB, 0.233462E+00_JPRB, 0.221789E+00_JPRB &
+  &, 0.210447E+00_JPRB, 0.199446E+00_JPRB, 0.188807E+00_JPRB &
+  &, 0.178507E+00_JPRB, 0.168578E+00_JPRB, 0.158993E+00_JPRB, 0.149764E+00_JPRB &
+  &, 0.140906E+00_JPRB, 0.132396E+00_JPRB, 0.124244E+00_JPRB &
+  &, 0.116439E+00_JPRB, 0.108985E+00_JPRB, 0.101867E+00_JPRB, 0.951047E-01_JPRB &
+  &, 0.886769E-01_JPRB, 0.825596E-01_JPRB, 0.767661E-01_JPRB &
+  &, 0.712878E-01_JPRB, 0.660922E-01_JPRB, 0.612084E-01_JPRB, 0.566215E-01_JPRB &
+  &, 0.522909E-01_JPRB, 0.482182E-01_JPRB, 0.444035E-01_JPRB &
+  &, 0.408461E-01_JPRB, 0.375189E-01_JPRB, 0.344169E-01_JPRB, 0.315080E-01_JPRB &
+  &, 0.288354E-01_JPRB, 0.263376E-01_JPRB, 0.240020E-01_JPRB &
+  &, 0.218701E-01_JPRB, 0.199007E-01_JPRB, 0.180487E-01_JPRB, 0.163829E-01_JPRB &
+  &, 0.148266E-01_JPRB, 0.134190E-01_JPRB, 0.121086E-01_JPRB &
+  &, 0.109344E-01_JPRB, 0.984143E-02_JPRB, 0.883572E-02_JPRB, 0.795694E-02_JPRB &
+  &, 0.711132E-02_JPRB, 0.637101E-02_JPRB, 0.570749E-02_JPRB &
+  &, 0.509001E-02_JPRB, 0.452182E-02_JPRB, 0.404328E-02_JPRB, 0.358441E-02_JPRB &
+  &, 0.318510E-02_JPRB, 0.281001E-02_JPRB, 0.250038E-02_JPRB &
+  &, 0.221971E-02_JPRB, 0.192897E-02_JPRB, 0.171100E-02_JPRB, 0.148533E-02_JPRB &
+  &, 0.133751E-02_JPRB, 0.114099E-02_JPRB, 0.102618E-02_JPRB &
+  &, 0.862537E-03_JPRB, 0.784601E-03_JPRB, 0.657712E-03_JPRB, 0.573657E-03_JPRB &
+  &, 0.486837E-03_JPRB, 0.445618E-03_JPRB, 0.353883E-03_JPRB &
+  &, 0.309138E-03_JPRB, 0.262962E-03_JPRB, 0.215338E-03_JPRB, 0.218330E-03_JPRB &
+  &, 0.168510E-03_JPRB, 0.117193E-03_JPRB, 0.118725E-03_JPRB &
+  &, 0.120269E-03_JPRB, 0.659121E-04_JPRB, 0.666959E-04_JPRB, 0.674857E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 359, :) = (/ &
+  &  0.960892E+00_JPRB, 0.950262E+00_JPRB, 0.939303E+00_JPRB, 0.928027E+00_JPRB &
+  &, 0.916437E+00_JPRB, 0.904545E+00_JPRB, 0.892356E+00_JPRB &
+  &, 0.879880E+00_JPRB, 0.867127E+00_JPRB, 0.854105E+00_JPRB, 0.840823E+00_JPRB &
+  &, 0.827289E+00_JPRB, 0.813517E+00_JPRB, 0.799514E+00_JPRB &
+  &, 0.785293E+00_JPRB, 0.770863E+00_JPRB, 0.756237E+00_JPRB, 0.741427E+00_JPRB &
+  &, 0.726443E+00_JPRB, 0.711299E+00_JPRB, 0.696010E+00_JPRB &
+  &, 0.680590E+00_JPRB, 0.665049E+00_JPRB, 0.649405E+00_JPRB, 0.633668E+00_JPRB &
+  &, 0.617861E+00_JPRB, 0.601994E+00_JPRB, 0.586080E+00_JPRB &
+  &, 0.570144E+00_JPRB, 0.554199E+00_JPRB, 0.538258E+00_JPRB, 0.522342E+00_JPRB &
+  &, 0.506466E+00_JPRB, 0.490648E+00_JPRB, 0.474906E+00_JPRB &
+  &, 0.459261E+00_JPRB, 0.443716E+00_JPRB, 0.428312E+00_JPRB, 0.413050E+00_JPRB &
+  &, 0.397944E+00_JPRB, 0.383017E+00_JPRB, 0.368285E+00_JPRB &
+  &, 0.353764E+00_JPRB, 0.339471E+00_JPRB, 0.325413E+00_JPRB, 0.311617E+00_JPRB &
+  &, 0.298079E+00_JPRB, 0.284814E+00_JPRB, 0.271851E+00_JPRB &
+  &, 0.259193E+00_JPRB, 0.246829E+00_JPRB, 0.234799E+00_JPRB, 0.223102E+00_JPRB &
+  &, 0.211734E+00_JPRB, 0.200704E+00_JPRB, 0.190034E+00_JPRB &
+  &, 0.179700E+00_JPRB, 0.169736E+00_JPRB, 0.160112E+00_JPRB, 0.150859E+00_JPRB &
+  &, 0.141958E+00_JPRB, 0.133403E+00_JPRB, 0.125220E+00_JPRB &
+  &, 0.117382E+00_JPRB, 0.109894E+00_JPRB, 0.102758E+00_JPRB, 0.959377E-01_JPRB &
+  &, 0.894685E-01_JPRB, 0.833279E-01_JPRB, 0.774889E-01_JPRB &
+  &, 0.719837E-01_JPRB, 0.667597E-01_JPRB, 0.618459E-01_JPRB, 0.572049E-01_JPRB &
+  &, 0.528405E-01_JPRB, 0.487556E-01_JPRB, 0.449042E-01_JPRB &
+  &, 0.413325E-01_JPRB, 0.379654E-01_JPRB, 0.348217E-01_JPRB, 0.319207E-01_JPRB &
+  &, 0.292036E-01_JPRB, 0.266593E-01_JPRB, 0.243299E-01_JPRB &
+  &, 0.221764E-01_JPRB, 0.201561E-01_JPRB, 0.183089E-01_JPRB, 0.166185E-01_JPRB &
+  &, 0.150665E-01_JPRB, 0.136328E-01_JPRB, 0.122952E-01_JPRB &
+  &, 0.110927E-01_JPRB, 0.100026E-01_JPRB, 0.899977E-02_JPRB, 0.809050E-02_JPRB &
+  &, 0.724723E-02_JPRB, 0.647472E-02_JPRB, 0.581300E-02_JPRB &
+  &, 0.519733E-02_JPRB, 0.463098E-02_JPRB, 0.411728E-02_JPRB, 0.365967E-02_JPRB &
+  &, 0.326161E-02_JPRB, 0.288779E-02_JPRB, 0.253991E-02_JPRB &
+  &, 0.225988E-02_JPRB, 0.196980E-02_JPRB, 0.175249E-02_JPRB, 0.152749E-02_JPRB &
+  &, 0.133751E-02_JPRB, 0.118449E-02_JPRB, 0.102618E-02_JPRB &
+  &, 0.907407E-03_JPRB, 0.784601E-03_JPRB, 0.703977E-03_JPRB, 0.573657E-03_JPRB &
+  &, 0.534521E-03_JPRB, 0.445618E-03_JPRB, 0.403009E-03_JPRB &
+  &, 0.309138E-03_JPRB, 0.262962E-03_JPRB, 0.215338E-03_JPRB, 0.218330E-03_JPRB &
+  &, 0.168510E-03_JPRB, 0.117193E-03_JPRB, 0.118725E-03_JPRB &
+  &, 0.120269E-03_JPRB, 0.659121E-04_JPRB, 0.666959E-04_JPRB, 0.674857E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 360, :) = (/ &
+  &  0.961154E+00_JPRB, 0.950586E+00_JPRB, 0.939688E+00_JPRB, 0.928473E+00_JPRB &
+  &, 0.916943E+00_JPRB, 0.905109E+00_JPRB, 0.892978E+00_JPRB &
+  &, 0.880559E+00_JPRB, 0.867860E+00_JPRB, 0.854889E+00_JPRB, 0.841660E+00_JPRB &
+  &, 0.828177E+00_JPRB, 0.814454E+00_JPRB, 0.800498E+00_JPRB &
+  &, 0.786323E+00_JPRB, 0.771939E+00_JPRB, 0.757354E+00_JPRB, 0.742585E+00_JPRB &
+  &, 0.727640E+00_JPRB, 0.712537E+00_JPRB, 0.697281E+00_JPRB &
+  &, 0.681893E+00_JPRB, 0.666385E+00_JPRB, 0.650769E+00_JPRB, 0.635061E+00_JPRB &
+  &, 0.619279E+00_JPRB, 0.603435E+00_JPRB, 0.587546E+00_JPRB &
+  &, 0.571629E+00_JPRB, 0.555697E+00_JPRB, 0.539773E+00_JPRB, 0.523870E+00_JPRB &
+  &, 0.508007E+00_JPRB, 0.492197E+00_JPRB, 0.476462E+00_JPRB &
+  &, 0.460815E+00_JPRB, 0.445280E+00_JPRB, 0.429876E+00_JPRB, 0.414604E+00_JPRB &
+  &, 0.399496E+00_JPRB, 0.384566E+00_JPRB, 0.369830E+00_JPRB &
+  &, 0.355292E+00_JPRB, 0.340992E+00_JPRB, 0.326913E+00_JPRB, 0.313096E+00_JPRB &
+  &, 0.299545E+00_JPRB, 0.286266E+00_JPRB, 0.273275E+00_JPRB &
+  &, 0.260586E+00_JPRB, 0.248216E+00_JPRB, 0.236150E+00_JPRB, 0.224414E+00_JPRB &
+  &, 0.213020E+00_JPRB, 0.201961E+00_JPRB, 0.191260E+00_JPRB &
+  &, 0.180893E+00_JPRB, 0.170894E+00_JPRB, 0.161248E+00_JPRB, 0.151955E+00_JPRB &
+  &, 0.143011E+00_JPRB, 0.134427E+00_JPRB, 0.126214E+00_JPRB &
+  &, 0.118326E+00_JPRB, 0.110803E+00_JPRB, 0.103630E+00_JPRB, 0.967900E-01_JPRB &
+  &, 0.902800E-01_JPRB, 0.840962E-01_JPRB, 0.782323E-01_JPRB &
+  &, 0.726796E-01_JPRB, 0.674272E-01_JPRB, 0.624834E-01_JPRB, 0.578107E-01_JPRB &
+  &, 0.534130E-01_JPRB, 0.492931E-01_JPRB, 0.454287E-01_JPRB &
+  &, 0.417946E-01_JPRB, 0.384119E-01_JPRB, 0.352518E-01_JPRB, 0.323077E-01_JPRB &
+  &, 0.295718E-01_JPRB, 0.270078E-01_JPRB, 0.246578E-01_JPRB &
+  &, 0.224828E-01_JPRB, 0.204398E-01_JPRB, 0.185691E-01_JPRB, 0.168541E-01_JPRB &
+  &, 0.152765E-01_JPRB, 0.138161E-01_JPRB, 0.124818E-01_JPRB &
+  &, 0.112827E-01_JPRB, 0.101638E-01_JPRB, 0.913100E-02_JPRB, 0.822407E-02_JPRB &
+  &, 0.738314E-02_JPRB, 0.661300E-02_JPRB, 0.591851E-02_JPRB &
+  &, 0.526888E-02_JPRB, 0.470375E-02_JPRB, 0.419129E-02_JPRB, 0.373492E-02_JPRB &
+  &, 0.329987E-02_JPRB, 0.292668E-02_JPRB, 0.257944E-02_JPRB &
+  &, 0.230006E-02_JPRB, 0.201063E-02_JPRB, 0.179398E-02_JPRB, 0.156964E-02_JPRB &
+  &, 0.138033E-02_JPRB, 0.122798E-02_JPRB, 0.107037E-02_JPRB &
+  &, 0.907407E-03_JPRB, 0.784601E-03_JPRB, 0.703977E-03_JPRB, 0.620629E-03_JPRB &
+  &, 0.534521E-03_JPRB, 0.445618E-03_JPRB, 0.403009E-03_JPRB &
+  &, 0.358994E-03_JPRB, 0.262962E-03_JPRB, 0.266672E-03_JPRB, 0.218330E-03_JPRB &
+  &, 0.168510E-03_JPRB, 0.170789E-03_JPRB, 0.118725E-03_JPRB &
+  &, 0.120269E-03_JPRB, 0.659121E-04_JPRB, 0.666959E-04_JPRB, 0.674857E-04_JPRB &
+  &, 0.682814E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 361, :) = (/ &
+  &  0.961415E+00_JPRB, 0.950909E+00_JPRB, 0.940074E+00_JPRB, 0.928919E+00_JPRB &
+  &, 0.917449E+00_JPRB, 0.905673E+00_JPRB, 0.893599E+00_JPRB &
+  &, 0.881236E+00_JPRB, 0.868591E+00_JPRB, 0.855676E+00_JPRB, 0.842498E+00_JPRB &
+  &, 0.829065E+00_JPRB, 0.815390E+00_JPRB, 0.801483E+00_JPRB &
+  &, 0.787354E+00_JPRB, 0.773013E+00_JPRB, 0.758472E+00_JPRB, 0.743743E+00_JPRB &
+  &, 0.728839E+00_JPRB, 0.713771E+00_JPRB, 0.698552E+00_JPRB &
+  &, 0.683196E+00_JPRB, 0.667722E+00_JPRB, 0.652133E+00_JPRB, 0.636457E+00_JPRB &
+  &, 0.620698E+00_JPRB, 0.604877E+00_JPRB, 0.589011E+00_JPRB &
+  &, 0.573111E+00_JPRB, 0.557200E+00_JPRB, 0.541288E+00_JPRB, 0.525398E+00_JPRB &
+  &, 0.509548E+00_JPRB, 0.493750E+00_JPRB, 0.478018E+00_JPRB &
+  &, 0.462377E+00_JPRB, 0.446844E+00_JPRB, 0.431441E+00_JPRB, 0.416168E+00_JPRB &
+  &, 0.401058E+00_JPRB, 0.386115E+00_JPRB, 0.371375E+00_JPRB &
+  &, 0.356831E+00_JPRB, 0.342502E+00_JPRB, 0.328426E+00_JPRB, 0.314586E+00_JPRB &
+  &, 0.301011E+00_JPRB, 0.287718E+00_JPRB, 0.274698E+00_JPRB &
+  &, 0.261992E+00_JPRB, 0.249588E+00_JPRB, 0.237501E+00_JPRB, 0.225741E+00_JPRB &
+  &, 0.214320E+00_JPRB, 0.203233E+00_JPRB, 0.192487E+00_JPRB &
+  &, 0.182102E+00_JPRB, 0.172067E+00_JPRB, 0.162384E+00_JPRB, 0.153050E+00_JPRB &
+  &, 0.144080E+00_JPRB, 0.135469E+00_JPRB, 0.127208E+00_JPRB &
+  &, 0.119288E+00_JPRB, 0.111730E+00_JPRB, 0.104521E+00_JPRB, 0.976424E-01_JPRB &
+  &, 0.910915E-01_JPRB, 0.848645E-01_JPRB, 0.789757E-01_JPRB &
+  &, 0.733966E-01_JPRB, 0.681162E-01_JPRB, 0.631208E-01_JPRB, 0.584165E-01_JPRB &
+  &, 0.539855E-01_JPRB, 0.498306E-01_JPRB, 0.459294E-01_JPRB &
+  &, 0.422811E-01_JPRB, 0.388585E-01_JPRB, 0.356818E-01_JPRB, 0.326946E-01_JPRB &
+  &, 0.299400E-01_JPRB, 0.273564E-01_JPRB, 0.249857E-01_JPRB &
+  &, 0.227891E-01_JPRB, 0.207236E-01_JPRB, 0.188582E-01_JPRB, 0.171191E-01_JPRB &
+  &, 0.155164E-01_JPRB, 0.140299E-01_JPRB, 0.126995E-01_JPRB &
+  &, 0.114410E-01_JPRB, 0.103249E-01_JPRB, 0.929505E-02_JPRB, 0.835763E-02_JPRB &
+  &, 0.748508E-02_JPRB, 0.671671E-02_JPRB, 0.602402E-02_JPRB &
+  &, 0.537620E-02_JPRB, 0.477652E-02_JPRB, 0.426529E-02_JPRB, 0.381017E-02_JPRB &
+  &, 0.337637E-02_JPRB, 0.300446E-02_JPRB, 0.265850E-02_JPRB &
+  &, 0.234024E-02_JPRB, 0.205146E-02_JPRB, 0.183546E-02_JPRB, 0.161179E-02_JPRB &
+  &, 0.142316E-02_JPRB, 0.122798E-02_JPRB, 0.107037E-02_JPRB &
+  &, 0.952278E-03_JPRB, 0.830166E-03_JPRB, 0.703977E-03_JPRB, 0.620629E-03_JPRB &
+  &, 0.534521E-03_JPRB, 0.445618E-03_JPRB, 0.403009E-03_JPRB &
+  &, 0.358994E-03_JPRB, 0.313555E-03_JPRB, 0.266672E-03_JPRB, 0.218330E-03_JPRB &
+  &, 0.168510E-03_JPRB, 0.170789E-03_JPRB, 0.118725E-03_JPRB &
+  &, 0.120269E-03_JPRB, 0.659121E-04_JPRB, 0.666959E-04_JPRB, 0.674857E-04_JPRB &
+  &, 0.682814E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 362, :) = (/ &
+  &  0.961676E+00_JPRB, 0.951232E+00_JPRB, 0.940459E+00_JPRB, 0.929364E+00_JPRB &
+  &, 0.917954E+00_JPRB, 0.906237E+00_JPRB, 0.894221E+00_JPRB &
+  &, 0.881913E+00_JPRB, 0.869323E+00_JPRB, 0.856461E+00_JPRB, 0.843335E+00_JPRB &
+  &, 0.829953E+00_JPRB, 0.816328E+00_JPRB, 0.802467E+00_JPRB &
+  &, 0.788383E+00_JPRB, 0.774086E+00_JPRB, 0.759589E+00_JPRB, 0.744901E+00_JPRB &
+  &, 0.730036E+00_JPRB, 0.715005E+00_JPRB, 0.699823E+00_JPRB &
+  &, 0.684502E+00_JPRB, 0.669058E+00_JPRB, 0.653501E+00_JPRB, 0.637849E+00_JPRB &
+  &, 0.622120E+00_JPRB, 0.606323E+00_JPRB, 0.590477E+00_JPRB &
+  &, 0.574597E+00_JPRB, 0.558702E+00_JPRB, 0.542808E+00_JPRB, 0.526931E+00_JPRB &
+  &, 0.511088E+00_JPRB, 0.495298E+00_JPRB, 0.479578E+00_JPRB &
+  &, 0.463940E+00_JPRB, 0.448408E+00_JPRB, 0.433005E+00_JPRB, 0.417732E+00_JPRB &
+  &, 0.402621E+00_JPRB, 0.387675E+00_JPRB, 0.372920E+00_JPRB &
+  &, 0.358360E+00_JPRB, 0.344034E+00_JPRB, 0.329927E+00_JPRB, 0.316077E+00_JPRB &
+  &, 0.302490E+00_JPRB, 0.289171E+00_JPRB, 0.276135E+00_JPRB &
+  &, 0.263398E+00_JPRB, 0.250975E+00_JPRB, 0.238865E+00_JPRB, 0.227068E+00_JPRB &
+  &, 0.215621E+00_JPRB, 0.204506E+00_JPRB, 0.193729E+00_JPRB &
+  &, 0.183311E+00_JPRB, 0.173241E+00_JPRB, 0.163519E+00_JPRB, 0.154145E+00_JPRB &
+  &, 0.145150E+00_JPRB, 0.136493E+00_JPRB, 0.128202E+00_JPRB &
+  &, 0.120250E+00_JPRB, 0.112658E+00_JPRB, 0.105393E+00_JPRB, 0.984947E-01_JPRB &
+  &, 0.919029E-01_JPRB, 0.856530E-01_JPRB, 0.797191E-01_JPRB &
+  &, 0.740926E-01_JPRB, 0.687837E-01_JPRB, 0.637583E-01_JPRB, 0.590224E-01_JPRB &
+  &, 0.545809E-01_JPRB, 0.503914E-01_JPRB, 0.464539E-01_JPRB &
+  &, 0.427675E-01_JPRB, 0.393298E-01_JPRB, 0.361119E-01_JPRB, 0.331074E-01_JPRB &
+  &, 0.303082E-01_JPRB, 0.277317E-01_JPRB, 0.253136E-01_JPRB &
+  &, 0.230954E-01_JPRB, 0.210073E-01_JPRB, 0.191183E-01_JPRB, 0.173547E-01_JPRB &
+  &, 0.157264E-01_JPRB, 0.142437E-01_JPRB, 0.128861E-01_JPRB &
+  &, 0.116310E-01_JPRB, 0.104861E-01_JPRB, 0.945910E-02_JPRB, 0.849119E-02_JPRB &
+  &, 0.762099E-02_JPRB, 0.682042E-02_JPRB, 0.612953E-02_JPRB &
+  &, 0.548353E-02_JPRB, 0.488568E-02_JPRB, 0.433930E-02_JPRB, 0.388542E-02_JPRB &
+  &, 0.345288E-02_JPRB, 0.304335E-02_JPRB, 0.269803E-02_JPRB &
+  &, 0.238041E-02_JPRB, 0.213312E-02_JPRB, 0.187695E-02_JPRB, 0.165394E-02_JPRB &
+  &, 0.142316E-02_JPRB, 0.127148E-02_JPRB, 0.111455E-02_JPRB &
+  &, 0.952278E-03_JPRB, 0.830166E-03_JPRB, 0.750242E-03_JPRB, 0.620629E-03_JPRB &
+  &, 0.534521E-03_JPRB, 0.494019E-03_JPRB, 0.403009E-03_JPRB &
+  &, 0.358994E-03_JPRB, 0.313555E-03_JPRB, 0.266672E-03_JPRB, 0.218330E-03_JPRB &
+  &, 0.168510E-03_JPRB, 0.170789E-03_JPRB, 0.118725E-03_JPRB &
+  &, 0.120269E-03_JPRB, 0.659121E-04_JPRB, 0.666959E-04_JPRB, 0.674857E-04_JPRB &
+  &, 0.682814E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 363, :) = (/ &
+  &  0.961936E+00_JPRB, 0.951556E+00_JPRB, 0.940843E+00_JPRB, 0.929810E+00_JPRB &
+  &, 0.918459E+00_JPRB, 0.906800E+00_JPRB, 0.894841E+00_JPRB &
+  &, 0.882589E+00_JPRB, 0.870055E+00_JPRB, 0.857246E+00_JPRB, 0.844172E+00_JPRB &
+  &, 0.830840E+00_JPRB, 0.817264E+00_JPRB, 0.803451E+00_JPRB &
+  &, 0.789414E+00_JPRB, 0.775162E+00_JPRB, 0.760706E+00_JPRB, 0.746060E+00_JPRB &
+  &, 0.731233E+00_JPRB, 0.716239E+00_JPRB, 0.701094E+00_JPRB &
+  &, 0.685805E+00_JPRB, 0.670394E+00_JPRB, 0.654868E+00_JPRB, 0.639245E+00_JPRB &
+  &, 0.623539E+00_JPRB, 0.607768E+00_JPRB, 0.591942E+00_JPRB &
+  &, 0.576087E+00_JPRB, 0.560209E+00_JPRB, 0.544332E+00_JPRB, 0.528467E+00_JPRB &
+  &, 0.512637E+00_JPRB, 0.496855E+00_JPRB, 0.481138E+00_JPRB &
+  &, 0.465512E+00_JPRB, 0.449982E+00_JPRB, 0.434570E+00_JPRB, 0.419296E+00_JPRB &
+  &, 0.404183E+00_JPRB, 0.389224E+00_JPRB, 0.374464E+00_JPRB &
+  &, 0.359899E+00_JPRB, 0.345556E+00_JPRB, 0.331439E+00_JPRB, 0.317567E+00_JPRB &
+  &, 0.303968E+00_JPRB, 0.290623E+00_JPRB, 0.277571E+00_JPRB &
+  &, 0.264817E+00_JPRB, 0.252361E+00_JPRB, 0.240216E+00_JPRB, 0.228409E+00_JPRB &
+  &, 0.216922E+00_JPRB, 0.205778E+00_JPRB, 0.194970E+00_JPRB &
+  &, 0.184520E+00_JPRB, 0.174414E+00_JPRB, 0.164655E+00_JPRB, 0.155257E+00_JPRB &
+  &, 0.146219E+00_JPRB, 0.137535E+00_JPRB, 0.129196E+00_JPRB &
+  &, 0.121229E+00_JPRB, 0.113585E+00_JPRB, 0.106303E+00_JPRB, 0.993471E-01_JPRB &
+  &, 0.927342E-01_JPRB, 0.864415E-01_JPRB, 0.804625E-01_JPRB &
+  &, 0.748095E-01_JPRB, 0.694728E-01_JPRB, 0.644178E-01_JPRB, 0.596506E-01_JPRB &
+  &, 0.551534E-01_JPRB, 0.509289E-01_JPRB, 0.469784E-01_JPRB &
+  &, 0.432539E-01_JPRB, 0.398011E-01_JPRB, 0.365420E-01_JPRB, 0.335202E-01_JPRB &
+  &, 0.307027E-01_JPRB, 0.280802E-01_JPRB, 0.256415E-01_JPRB &
+  &, 0.234017E-01_JPRB, 0.213195E-01_JPRB, 0.193785E-01_JPRB, 0.176197E-01_JPRB &
+  &, 0.159663E-01_JPRB, 0.144575E-01_JPRB, 0.130727E-01_JPRB &
+  &, 0.118210E-01_JPRB, 0.106473E-01_JPRB, 0.959033E-02_JPRB, 0.862475E-02_JPRB &
+  &, 0.775690E-02_JPRB, 0.695871E-02_JPRB, 0.623504E-02_JPRB &
+  &, 0.555508E-02_JPRB, 0.495845E-02_JPRB, 0.445031E-02_JPRB, 0.396067E-02_JPRB &
+  &, 0.352939E-02_JPRB, 0.312112E-02_JPRB, 0.277709E-02_JPRB &
+  &, 0.246077E-02_JPRB, 0.217395E-02_JPRB, 0.191844E-02_JPRB, 0.169610E-02_JPRB &
+  &, 0.146598E-02_JPRB, 0.131498E-02_JPRB, 0.111455E-02_JPRB &
+  &, 0.997148E-03_JPRB, 0.875731E-03_JPRB, 0.750242E-03_JPRB, 0.667600E-03_JPRB &
+  &, 0.582205E-03_JPRB, 0.494019E-03_JPRB, 0.403009E-03_JPRB &
+  &, 0.358994E-03_JPRB, 0.313555E-03_JPRB, 0.266672E-03_JPRB, 0.218330E-03_JPRB &
+  &, 0.168510E-03_JPRB, 0.170789E-03_JPRB, 0.118725E-03_JPRB &
+  &, 0.120269E-03_JPRB, 0.659121E-04_JPRB, 0.666959E-04_JPRB, 0.674857E-04_JPRB &
+  &, 0.682814E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 364, :) = (/ &
+  &  0.962196E+00_JPRB, 0.951879E+00_JPRB, 0.941228E+00_JPRB, 0.930255E+00_JPRB &
+  &, 0.918964E+00_JPRB, 0.907363E+00_JPRB, 0.895462E+00_JPRB &
+  &, 0.883266E+00_JPRB, 0.870786E+00_JPRB, 0.858031E+00_JPRB, 0.845008E+00_JPRB &
+  &, 0.831727E+00_JPRB, 0.818200E+00_JPRB, 0.804435E+00_JPRB &
+  &, 0.790443E+00_JPRB, 0.776236E+00_JPRB, 0.761823E+00_JPRB, 0.747219E+00_JPRB &
+  &, 0.732432E+00_JPRB, 0.717476E+00_JPRB, 0.702365E+00_JPRB &
+  &, 0.687112E+00_JPRB, 0.671730E+00_JPRB, 0.656235E+00_JPRB, 0.640641E+00_JPRB &
+  &, 0.624961E+00_JPRB, 0.609213E+00_JPRB, 0.593411E+00_JPRB &
+  &, 0.577573E+00_JPRB, 0.561716E+00_JPRB, 0.545851E+00_JPRB, 0.530004E+00_JPRB &
+  &, 0.514182E+00_JPRB, 0.498413E+00_JPRB, 0.482703E+00_JPRB &
+  &, 0.467075E+00_JPRB, 0.451555E+00_JPRB, 0.436144E+00_JPRB, 0.420870E+00_JPRB &
+  &, 0.405745E+00_JPRB, 0.390794E+00_JPRB, 0.376020E+00_JPRB &
+  &, 0.361438E+00_JPRB, 0.347088E+00_JPRB, 0.332952E+00_JPRB, 0.319070E+00_JPRB &
+  &, 0.305447E+00_JPRB, 0.292088E+00_JPRB, 0.279008E+00_JPRB &
+  &, 0.266236E+00_JPRB, 0.253747E+00_JPRB, 0.241595E+00_JPRB, 0.229750E+00_JPRB &
+  &, 0.218237E+00_JPRB, 0.207065E+00_JPRB, 0.196227E+00_JPRB &
+  &, 0.185728E+00_JPRB, 0.175603E+00_JPRB, 0.165807E+00_JPRB, 0.156386E+00_JPRB &
+  &, 0.147306E+00_JPRB, 0.138576E+00_JPRB, 0.130208E+00_JPRB &
+  &, 0.122191E+00_JPRB, 0.114531E+00_JPRB, 0.107194E+00_JPRB, 0.100219E+00_JPRB &
+  &, 0.935654E-01_JPRB, 0.872300E-01_JPRB, 0.812265E-01_JPRB &
+  &, 0.755476E-01_JPRB, 0.701618E-01_JPRB, 0.650553E-01_JPRB, 0.602565E-01_JPRB &
+  &, 0.557488E-01_JPRB, 0.514897E-01_JPRB, 0.475030E-01_JPRB &
+  &, 0.437647E-01_JPRB, 0.402477E-01_JPRB, 0.369974E-01_JPRB, 0.339329E-01_JPRB &
+  &, 0.310972E-01_JPRB, 0.284556E-01_JPRB, 0.259968E-01_JPRB &
+  &, 0.237080E-01_JPRB, 0.216032E-01_JPRB, 0.196676E-01_JPRB, 0.178553E-01_JPRB &
+  &, 0.162062E-01_JPRB, 0.146713E-01_JPRB, 0.132904E-01_JPRB &
+  &, 0.120110E-01_JPRB, 0.108407E-01_JPRB, 0.975438E-02_JPRB, 0.879171E-02_JPRB &
+  &, 0.789281E-02_JPRB, 0.706242E-02_JPRB, 0.634055E-02_JPRB &
+  &, 0.566240E-02_JPRB, 0.506761E-02_JPRB, 0.452431E-02_JPRB, 0.403592E-02_JPRB &
+  &, 0.356765E-02_JPRB, 0.316001E-02_JPRB, 0.281662E-02_JPRB &
+  &, 0.250094E-02_JPRB, 0.221478E-02_JPRB, 0.195993E-02_JPRB, 0.169610E-02_JPRB &
+  &, 0.150880E-02_JPRB, 0.131498E-02_JPRB, 0.115873E-02_JPRB &
+  &, 0.997148E-03_JPRB, 0.875731E-03_JPRB, 0.796507E-03_JPRB, 0.667600E-03_JPRB &
+  &, 0.582205E-03_JPRB, 0.494019E-03_JPRB, 0.452135E-03_JPRB &
+  &, 0.358994E-03_JPRB, 0.313555E-03_JPRB, 0.266672E-03_JPRB, 0.218330E-03_JPRB &
+  &, 0.221346E-03_JPRB, 0.170789E-03_JPRB, 0.118725E-03_JPRB &
+  &, 0.120269E-03_JPRB, 0.121824E-03_JPRB, 0.666959E-04_JPRB, 0.674857E-04_JPRB &
+  &, 0.682814E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART52',1,ZHOOK_HANDLE)
+END SUBROUTINE PART52
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART53
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART53',0,ZHOOK_HANDLE)
+
+XCW( 365, :) = (/ &
+  &  0.962455E+00_JPRB, 0.952201E+00_JPRB, 0.941613E+00_JPRB, 0.930700E+00_JPRB &
+  &, 0.919468E+00_JPRB, 0.907926E+00_JPRB, 0.896082E+00_JPRB &
+  &, 0.883943E+00_JPRB, 0.871517E+00_JPRB, 0.858815E+00_JPRB, 0.845844E+00_JPRB &
+  &, 0.832614E+00_JPRB, 0.819136E+00_JPRB, 0.805418E+00_JPRB &
+  &, 0.791474E+00_JPRB, 0.777311E+00_JPRB, 0.762941E+00_JPRB, 0.748376E+00_JPRB &
+  &, 0.733629E+00_JPRB, 0.718710E+00_JPRB, 0.703636E+00_JPRB &
+  &, 0.688418E+00_JPRB, 0.673070E+00_JPRB, 0.657603E+00_JPRB, 0.642038E+00_JPRB &
+  &, 0.626379E+00_JPRB, 0.610663E+00_JPRB, 0.594880E+00_JPRB &
+  &, 0.579063E+00_JPRB, 0.563222E+00_JPRB, 0.547375E+00_JPRB, 0.531540E+00_JPRB &
+  &, 0.515731E+00_JPRB, 0.499970E+00_JPRB, 0.484268E+00_JPRB &
+  &, 0.468646E+00_JPRB, 0.453129E+00_JPRB, 0.437718E+00_JPRB, 0.422444E+00_JPRB &
+  &, 0.407318E+00_JPRB, 0.392354E+00_JPRB, 0.377576E+00_JPRB &
+  &, 0.362989E+00_JPRB, 0.348621E+00_JPRB, 0.334476E+00_JPRB, 0.320572E+00_JPRB &
+  &, 0.306925E+00_JPRB, 0.293553E+00_JPRB, 0.280458E+00_JPRB &
+  &, 0.267655E+00_JPRB, 0.255147E+00_JPRB, 0.242959E+00_JPRB, 0.231090E+00_JPRB &
+  &, 0.219552E+00_JPRB, 0.208337E+00_JPRB, 0.197484E+00_JPRB &
+  &, 0.186953E+00_JPRB, 0.176793E+00_JPRB, 0.166959E+00_JPRB, 0.157498E+00_JPRB &
+  &, 0.148392E+00_JPRB, 0.139635E+00_JPRB, 0.131220E+00_JPRB &
+  &, 0.123171E+00_JPRB, 0.115459E+00_JPRB, 0.108104E+00_JPRB, 0.101071E+00_JPRB &
+  &, 0.943967E-01_JPRB, 0.880387E-01_JPRB, 0.819906E-01_JPRB &
+  &, 0.762646E-01_JPRB, 0.708508E-01_JPRB, 0.657147E-01_JPRB, 0.608847E-01_JPRB &
+  &, 0.563442E-01_JPRB, 0.520505E-01_JPRB, 0.480275E-01_JPRB &
+  &, 0.442511E-01_JPRB, 0.407190E-01_JPRB, 0.374275E-01_JPRB, 0.343456E-01_JPRB &
+  &, 0.314917E-01_JPRB, 0.288041E-01_JPRB, 0.263247E-01_JPRB &
+  &, 0.240422E-01_JPRB, 0.219153E-01_JPRB, 0.199278E-01_JPRB, 0.181203E-01_JPRB &
+  &, 0.164462E-01_JPRB, 0.149157E-01_JPRB, 0.134770E-01_JPRB &
+  &, 0.122010E-01_JPRB, 0.110019E-01_JPRB, 0.991843E-02_JPRB, 0.892527E-02_JPRB &
+  &, 0.802872E-02_JPRB, 0.720070E-02_JPRB, 0.644606E-02_JPRB &
+  &, 0.576973E-02_JPRB, 0.517676E-02_JPRB, 0.459832E-02_JPRB, 0.411117E-02_JPRB &
+  &, 0.364415E-02_JPRB, 0.323779E-02_JPRB, 0.289567E-02_JPRB &
+  &, 0.254112E-02_JPRB, 0.225560E-02_JPRB, 0.200141E-02_JPRB, 0.173825E-02_JPRB &
+  &, 0.155163E-02_JPRB, 0.135848E-02_JPRB, 0.120291E-02_JPRB &
+  &, 0.104202E-02_JPRB, 0.921295E-03_JPRB, 0.796507E-03_JPRB, 0.667600E-03_JPRB &
+  &, 0.582205E-03_JPRB, 0.542421E-03_JPRB, 0.452135E-03_JPRB &
+  &, 0.408850E-03_JPRB, 0.313555E-03_JPRB, 0.266672E-03_JPRB, 0.218330E-03_JPRB &
+  &, 0.221346E-03_JPRB, 0.170789E-03_JPRB, 0.173087E-03_JPRB &
+  &, 0.120269E-03_JPRB, 0.121824E-03_JPRB, 0.666959E-04_JPRB, 0.674857E-04_JPRB &
+  &, 0.682814E-04_JPRB, 0.690831E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 366, :) = (/ &
+  &  0.962714E+00_JPRB, 0.952522E+00_JPRB, 0.941997E+00_JPRB, 0.931145E+00_JPRB &
+  &, 0.919973E+00_JPRB, 0.908489E+00_JPRB, 0.896702E+00_JPRB &
+  &, 0.884618E+00_JPRB, 0.872248E+00_JPRB, 0.859599E+00_JPRB, 0.846680E+00_JPRB &
+  &, 0.833502E+00_JPRB, 0.820072E+00_JPRB, 0.806404E+00_JPRB &
+  &, 0.792503E+00_JPRB, 0.778385E+00_JPRB, 0.764058E+00_JPRB, 0.749535E+00_JPRB &
+  &, 0.734828E+00_JPRB, 0.719947E+00_JPRB, 0.704911E+00_JPRB &
+  &, 0.689724E+00_JPRB, 0.674406E+00_JPRB, 0.658974E+00_JPRB, 0.643434E+00_JPRB &
+  &, 0.627809E+00_JPRB, 0.612108E+00_JPRB, 0.596353E+00_JPRB &
+  &, 0.580556E+00_JPRB, 0.564733E+00_JPRB, 0.548902E+00_JPRB, 0.533081E+00_JPRB &
+  &, 0.517268E+00_JPRB, 0.501532E+00_JPRB, 0.485838E+00_JPRB &
+  &, 0.470218E+00_JPRB, 0.454702E+00_JPRB, 0.439293E+00_JPRB, 0.424018E+00_JPRB &
+  &, 0.408891E+00_JPRB, 0.393913E+00_JPRB, 0.379131E+00_JPRB &
+  &, 0.364539E+00_JPRB, 0.350153E+00_JPRB, 0.336000E+00_JPRB, 0.322086E+00_JPRB &
+  &, 0.308416E+00_JPRB, 0.295030E+00_JPRB, 0.281907E+00_JPRB &
+  &, 0.269074E+00_JPRB, 0.256547E+00_JPRB, 0.244337E+00_JPRB, 0.232445E+00_JPRB &
+  &, 0.220867E+00_JPRB, 0.209639E+00_JPRB, 0.198741E+00_JPRB &
+  &, 0.188177E+00_JPRB, 0.177982E+00_JPRB, 0.168127E+00_JPRB, 0.158627E+00_JPRB &
+  &, 0.149478E+00_JPRB, 0.140694E+00_JPRB, 0.132249E+00_JPRB &
+  &, 0.124151E+00_JPRB, 0.116405E+00_JPRB, 0.109014E+00_JPRB, 0.101962E+00_JPRB &
+  &, 0.952279E-01_JPRB, 0.888272E-01_JPRB, 0.827546E-01_JPRB &
+  &, 0.770027E-01_JPRB, 0.715399E-01_JPRB, 0.663962E-01_JPRB, 0.615130E-01_JPRB &
+  &, 0.569396E-01_JPRB, 0.526114E-01_JPRB, 0.485758E-01_JPRB &
+  &, 0.447619E-01_JPRB, 0.412152E-01_JPRB, 0.378829E-01_JPRB, 0.347842E-01_JPRB &
+  &, 0.318863E-01_JPRB, 0.291795E-01_JPRB, 0.266799E-01_JPRB &
+  &, 0.243485E-01_JPRB, 0.221991E-01_JPRB, 0.202169E-01_JPRB, 0.183853E-01_JPRB &
+  &, 0.166861E-01_JPRB, 0.151295E-01_JPRB, 0.136947E-01_JPRB &
+  &, 0.123910E-01_JPRB, 0.111953E-01_JPRB, 0.100825E-01_JPRB, 0.905883E-02_JPRB &
+  &, 0.816463E-02_JPRB, 0.733898E-02_JPRB, 0.655157E-02_JPRB &
+  &, 0.587705E-02_JPRB, 0.524953E-02_JPRB, 0.467232E-02_JPRB, 0.418642E-02_JPRB &
+  &, 0.372066E-02_JPRB, 0.331557E-02_JPRB, 0.293520E-02_JPRB &
+  &, 0.258130E-02_JPRB, 0.229643E-02_JPRB, 0.204290E-02_JPRB, 0.178040E-02_JPRB &
+  &, 0.159445E-02_JPRB, 0.140198E-02_JPRB, 0.120291E-02_JPRB &
+  &, 0.108689E-02_JPRB, 0.921295E-03_JPRB, 0.796507E-03_JPRB, 0.714572E-03_JPRB &
+  &, 0.629888E-03_JPRB, 0.542421E-03_JPRB, 0.452135E-03_JPRB &
+  &, 0.408850E-03_JPRB, 0.364147E-03_JPRB, 0.318007E-03_JPRB, 0.270413E-03_JPRB &
+  &, 0.221346E-03_JPRB, 0.170789E-03_JPRB, 0.173087E-03_JPRB &
+  &, 0.120269E-03_JPRB, 0.121824E-03_JPRB, 0.666959E-04_JPRB, 0.674857E-04_JPRB &
+  &, 0.682814E-04_JPRB, 0.690831E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 367, :) = (/ &
+  &  0.962973E+00_JPRB, 0.952846E+00_JPRB, 0.942381E+00_JPRB, 0.931590E+00_JPRB &
+  &, 0.920477E+00_JPRB, 0.909052E+00_JPRB, 0.897321E+00_JPRB &
+  &, 0.885294E+00_JPRB, 0.872978E+00_JPRB, 0.860362E+00_JPRB, 0.847516E+00_JPRB &
+  &, 0.834388E+00_JPRB, 0.821009E+00_JPRB, 0.807386E+00_JPRB &
+  &, 0.793534E+00_JPRB, 0.779460E+00_JPRB, 0.765176E+00_JPRB, 0.750695E+00_JPRB &
+  &, 0.736026E+00_JPRB, 0.721185E+00_JPRB, 0.706182E+00_JPRB &
+  &, 0.691031E+00_JPRB, 0.675746E+00_JPRB, 0.660344E+00_JPRB, 0.644833E+00_JPRB &
+  &, 0.629235E+00_JPRB, 0.613557E+00_JPRB, 0.597826E+00_JPRB &
+  &, 0.582046E+00_JPRB, 0.566244E+00_JPRB, 0.550426E+00_JPRB, 0.534622E+00_JPRB &
+  &, 0.518834E+00_JPRB, 0.503093E+00_JPRB, 0.487407E+00_JPRB &
+  &, 0.471800E+00_JPRB, 0.456276E+00_JPRB, 0.440877E+00_JPRB, 0.425592E+00_JPRB &
+  &, 0.410463E+00_JPRB, 0.395483E+00_JPRB, 0.380687E+00_JPRB &
+  &, 0.366090E+00_JPRB, 0.351697E+00_JPRB, 0.337524E+00_JPRB, 0.323589E+00_JPRB &
+  &, 0.309919E+00_JPRB, 0.296495E+00_JPRB, 0.283356E+00_JPRB &
+  &, 0.270507E+00_JPRB, 0.257960E+00_JPRB, 0.245716E+00_JPRB, 0.233786E+00_JPRB &
+  &, 0.222196E+00_JPRB, 0.210926E+00_JPRB, 0.199998E+00_JPRB &
+  &, 0.189417E+00_JPRB, 0.179171E+00_JPRB, 0.169295E+00_JPRB, 0.159755E+00_JPRB &
+  &, 0.150582E+00_JPRB, 0.141753E+00_JPRB, 0.133208E+00_JPRB &
+  &, 0.125149E+00_JPRB, 0.117369E+00_JPRB, 0.109924E+00_JPRB, 0.102834E+00_JPRB &
+  &, 0.960790E-01_JPRB, 0.896359E-01_JPRB, 0.835393E-01_JPRB &
+  &, 0.777408E-01_JPRB, 0.722504E-01_JPRB, 0.670557E-01_JPRB, 0.621637E-01_JPRB &
+  &, 0.575350E-01_JPRB, 0.531956E-01_JPRB, 0.491004E-01_JPRB &
+  &, 0.452726E-01_JPRB, 0.416865E-01_JPRB, 0.383383E-01_JPRB, 0.351969E-01_JPRB &
+  &, 0.322808E-01_JPRB, 0.295548E-01_JPRB, 0.270352E-01_JPRB &
+  &, 0.246827E-01_JPRB, 0.225112E-01_JPRB, 0.205059E-01_JPRB, 0.186504E-01_JPRB &
+  &, 0.169261E-01_JPRB, 0.153433E-01_JPRB, 0.139125E-01_JPRB &
+  &, 0.125810E-01_JPRB, 0.113564E-01_JPRB, 0.102465E-01_JPRB, 0.922578E-02_JPRB &
+  &, 0.830054E-02_JPRB, 0.744270E-02_JPRB, 0.669225E-02_JPRB &
+  &, 0.598437E-02_JPRB, 0.535869E-02_JPRB, 0.478333E-02_JPRB, 0.426167E-02_JPRB &
+  &, 0.379717E-02_JPRB, 0.335446E-02_JPRB, 0.297473E-02_JPRB &
+  &, 0.266165E-02_JPRB, 0.233726E-02_JPRB, 0.208439E-02_JPRB, 0.182255E-02_JPRB &
+  &, 0.159445E-02_JPRB, 0.140198E-02_JPRB, 0.124709E-02_JPRB &
+  &, 0.108689E-02_JPRB, 0.966860E-03_JPRB, 0.842772E-03_JPRB, 0.714572E-03_JPRB &
+  &, 0.629888E-03_JPRB, 0.542421E-03_JPRB, 0.452135E-03_JPRB &
+  &, 0.408850E-03_JPRB, 0.364147E-03_JPRB, 0.318007E-03_JPRB, 0.270413E-03_JPRB &
+  &, 0.221346E-03_JPRB, 0.170789E-03_JPRB, 0.173087E-03_JPRB &
+  &, 0.120269E-03_JPRB, 0.121824E-03_JPRB, 0.666959E-04_JPRB, 0.674857E-04_JPRB &
+  &, 0.682814E-04_JPRB, 0.690831E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 368, :) = (/ &
+  &  0.963234E+00_JPRB, 0.953169E+00_JPRB, 0.942764E+00_JPRB, 0.932033E+00_JPRB &
+  &, 0.920981E+00_JPRB, 0.909614E+00_JPRB, 0.897940E+00_JPRB &
+  &, 0.885970E+00_JPRB, 0.873707E+00_JPRB, 0.861166E+00_JPRB, 0.848347E+00_JPRB &
+  &, 0.835275E+00_JPRB, 0.821945E+00_JPRB, 0.808370E+00_JPRB &
+  &, 0.794563E+00_JPRB, 0.780534E+00_JPRB, 0.766294E+00_JPRB, 0.751854E+00_JPRB &
+  &, 0.737225E+00_JPRB, 0.722422E+00_JPRB, 0.707456E+00_JPRB &
+  &, 0.692340E+00_JPRB, 0.677086E+00_JPRB, 0.661715E+00_JPRB, 0.646233E+00_JPRB &
+  &, 0.630661E+00_JPRB, 0.615010E+00_JPRB, 0.599299E+00_JPRB &
+  &, 0.583540E+00_JPRB, 0.567754E+00_JPRB, 0.551958E+00_JPRB, 0.536162E+00_JPRB &
+  &, 0.520392E+00_JPRB, 0.504655E+00_JPRB, 0.488981E+00_JPRB &
+  &, 0.473372E+00_JPRB, 0.457859E+00_JPRB, 0.442451E+00_JPRB, 0.427176E+00_JPRB &
+  &, 0.412036E+00_JPRB, 0.397064E+00_JPRB, 0.382254E+00_JPRB &
+  &, 0.367640E+00_JPRB, 0.353241E+00_JPRB, 0.339060E+00_JPRB, 0.325115E+00_JPRB &
+  &, 0.311410E+00_JPRB, 0.297972E+00_JPRB, 0.284819E+00_JPRB &
+  &, 0.271939E+00_JPRB, 0.259373E+00_JPRB, 0.247108E+00_JPRB, 0.235155E+00_JPRB &
+  &, 0.223526E+00_JPRB, 0.212228E+00_JPRB, 0.201270E+00_JPRB &
+  &, 0.190657E+00_JPRB, 0.180377E+00_JPRB, 0.170463E+00_JPRB, 0.160900E+00_JPRB &
+  &, 0.151668E+00_JPRB, 0.142812E+00_JPRB, 0.134308E+00_JPRB &
+  &, 0.126129E+00_JPRB, 0.118315E+00_JPRB, 0.110853E+00_JPRB, 0.103725E+00_JPRB &
+  &, 0.969300E-01_JPRB, 0.904648E-01_JPRB, 0.843034E-01_JPRB &
+  &, 0.784789E-01_JPRB, 0.729610E-01_JPRB, 0.677371E-01_JPRB, 0.627920E-01_JPRB &
+  &, 0.581533E-01_JPRB, 0.537798E-01_JPRB, 0.496487E-01_JPRB &
+  &, 0.457834E-01_JPRB, 0.421827E-01_JPRB, 0.387936E-01_JPRB, 0.356355E-01_JPRB &
+  &, 0.326753E-01_JPRB, 0.299301E-01_JPRB, 0.273904E-01_JPRB &
+  &, 0.250169E-01_JPRB, 0.228233E-01_JPRB, 0.207950E-01_JPRB, 0.189154E-01_JPRB &
+  &, 0.171660E-01_JPRB, 0.155876E-01_JPRB, 0.141302E-01_JPRB &
+  &, 0.127710E-01_JPRB, 0.115498E-01_JPRB, 0.104106E-01_JPRB, 0.939273E-02_JPRB &
+  &, 0.843645E-02_JPRB, 0.758098E-02_JPRB, 0.679775E-02_JPRB &
+  &, 0.609170E-02_JPRB, 0.543146E-02_JPRB, 0.485733E-02_JPRB, 0.433692E-02_JPRB &
+  &, 0.387368E-02_JPRB, 0.343224E-02_JPRB, 0.305379E-02_JPRB &
+  &, 0.270183E-02_JPRB, 0.237809E-02_JPRB, 0.212588E-02_JPRB, 0.186471E-02_JPRB &
+  &, 0.163727E-02_JPRB, 0.144548E-02_JPRB, 0.129128E-02_JPRB &
+  &, 0.113176E-02_JPRB, 0.966860E-03_JPRB, 0.842772E-03_JPRB, 0.761543E-03_JPRB &
+  &, 0.629888E-03_JPRB, 0.542421E-03_JPRB, 0.501261E-03_JPRB &
+  &, 0.408850E-03_JPRB, 0.364147E-03_JPRB, 0.318007E-03_JPRB, 0.270413E-03_JPRB &
+  &, 0.221346E-03_JPRB, 0.170789E-03_JPRB, 0.173087E-03_JPRB &
+  &, 0.120269E-03_JPRB, 0.121824E-03_JPRB, 0.666959E-04_JPRB, 0.674857E-04_JPRB &
+  &, 0.682814E-04_JPRB, 0.690831E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 369, :) = (/ &
+  &  0.963494E+00_JPRB, 0.953488E+00_JPRB, 0.943148E+00_JPRB, 0.932478E+00_JPRB &
+  &, 0.921484E+00_JPRB, 0.910175E+00_JPRB, 0.898559E+00_JPRB &
+  &, 0.886644E+00_JPRB, 0.874438E+00_JPRB, 0.861950E+00_JPRB, 0.849187E+00_JPRB &
+  &, 0.836161E+00_JPRB, 0.822880E+00_JPRB, 0.809354E+00_JPRB &
+  &, 0.795594E+00_JPRB, 0.781609E+00_JPRB, 0.767411E+00_JPRB, 0.753013E+00_JPRB &
+  &, 0.738425E+00_JPRB, 0.723659E+00_JPRB, 0.708727E+00_JPRB &
+  &, 0.693646E+00_JPRB, 0.678429E+00_JPRB, 0.663086E+00_JPRB, 0.647633E+00_JPRB &
+  &, 0.632086E+00_JPRB, 0.616463E+00_JPRB, 0.600773E+00_JPRB &
+  &, 0.585037E+00_JPRB, 0.569269E+00_JPRB, 0.553486E+00_JPRB, 0.537707E+00_JPRB &
+  &, 0.521946E+00_JPRB, 0.506226E+00_JPRB, 0.490555E+00_JPRB &
+  &, 0.474953E+00_JPRB, 0.459442E+00_JPRB, 0.444045E+00_JPRB, 0.428760E+00_JPRB &
+  &, 0.413619E+00_JPRB, 0.398634E+00_JPRB, 0.383831E+00_JPRB &
+  &, 0.369202E+00_JPRB, 0.354785E+00_JPRB, 0.340596E+00_JPRB, 0.326629E+00_JPRB &
+  &, 0.312913E+00_JPRB, 0.299462E+00_JPRB, 0.286281E+00_JPRB &
+  &, 0.273384E+00_JPRB, 0.260786E+00_JPRB, 0.248486E+00_JPRB, 0.236510E+00_JPRB &
+  &, 0.224855E+00_JPRB, 0.213530E+00_JPRB, 0.202542E+00_JPRB &
+  &, 0.191896E+00_JPRB, 0.181598E+00_JPRB, 0.171631E+00_JPRB, 0.162029E+00_JPRB &
+  &, 0.152789E+00_JPRB, 0.143888E+00_JPRB, 0.135338E+00_JPRB &
+  &, 0.127145E+00_JPRB, 0.119280E+00_JPRB, 0.111782E+00_JPRB, 0.104616E+00_JPRB &
+  &, 0.977811E-01_JPRB, 0.912735E-01_JPRB, 0.850881E-01_JPRB &
+  &, 0.792170E-01_JPRB, 0.736715E-01_JPRB, 0.684186E-01_JPRB, 0.634427E-01_JPRB &
+  &, 0.587487E-01_JPRB, 0.543406E-01_JPRB, 0.501971E-01_JPRB &
+  &, 0.463185E-01_JPRB, 0.426540E-01_JPRB, 0.392490E-01_JPRB, 0.360482E-01_JPRB &
+  &, 0.330961E-01_JPRB, 0.303055E-01_JPRB, 0.277456E-01_JPRB &
+  &, 0.253510E-01_JPRB, 0.231354E-01_JPRB, 0.210841E-01_JPRB, 0.191804E-01_JPRB &
+  &, 0.174360E-01_JPRB, 0.158015E-01_JPRB, 0.143479E-01_JPRB &
+  &, 0.129610E-01_JPRB, 0.117110E-01_JPRB, 0.105746E-01_JPRB, 0.952630E-02_JPRB &
+  &, 0.857236E-02_JPRB, 0.771926E-02_JPRB, 0.690326E-02_JPRB &
+  &, 0.619902E-02_JPRB, 0.554062E-02_JPRB, 0.496834E-02_JPRB, 0.441217E-02_JPRB &
+  &, 0.395019E-02_JPRB, 0.351001E-02_JPRB, 0.313285E-02_JPRB &
+  &, 0.278218E-02_JPRB, 0.245975E-02_JPRB, 0.216737E-02_JPRB, 0.190686E-02_JPRB &
+  &, 0.168009E-02_JPRB, 0.148898E-02_JPRB, 0.129128E-02_JPRB &
+  &, 0.113176E-02_JPRB, 0.101242E-02_JPRB, 0.889037E-03_JPRB, 0.761543E-03_JPRB &
+  &, 0.677572E-03_JPRB, 0.590823E-03_JPRB, 0.501261E-03_JPRB &
+  &, 0.408850E-03_JPRB, 0.364147E-03_JPRB, 0.318007E-03_JPRB, 0.270413E-03_JPRB &
+  &, 0.221346E-03_JPRB, 0.224386E-03_JPRB, 0.173087E-03_JPRB &
+  &, 0.120269E-03_JPRB, 0.121824E-03_JPRB, 0.123392E-03_JPRB, 0.674857E-04_JPRB &
+  &, 0.682814E-04_JPRB, 0.690831E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 370, :) = (/ &
+  &  0.963752E+00_JPRB, 0.953810E+00_JPRB, 0.943530E+00_JPRB, 0.932922E+00_JPRB &
+  &, 0.921986E+00_JPRB, 0.910737E+00_JPRB, 0.899178E+00_JPRB &
+  &, 0.887319E+00_JPRB, 0.875168E+00_JPRB, 0.862733E+00_JPRB, 0.850023E+00_JPRB &
+  &, 0.837047E+00_JPRB, 0.823816E+00_JPRB, 0.810337E+00_JPRB &
+  &, 0.796623E+00_JPRB, 0.782683E+00_JPRB, 0.768530E+00_JPRB, 0.754173E+00_JPRB &
+  &, 0.739624E+00_JPRB, 0.724896E+00_JPRB, 0.710001E+00_JPRB &
+  &, 0.694956E+00_JPRB, 0.679768E+00_JPRB, 0.664457E+00_JPRB, 0.649032E+00_JPRB &
+  &, 0.633516E+00_JPRB, 0.617916E+00_JPRB, 0.602249E+00_JPRB &
+  &, 0.586531E+00_JPRB, 0.570783E+00_JPRB, 0.555017E+00_JPRB, 0.539252E+00_JPRB &
+  &, 0.523503E+00_JPRB, 0.507792E+00_JPRB, 0.492129E+00_JPRB &
+  &, 0.476534E+00_JPRB, 0.461035E+00_JPRB, 0.445629E+00_JPRB, 0.430344E+00_JPRB &
+  &, 0.415202E+00_JPRB, 0.400215E+00_JPRB, 0.385397E+00_JPRB &
+  &, 0.370763E+00_JPRB, 0.356340E+00_JPRB, 0.342132E+00_JPRB, 0.328156E+00_JPRB &
+  &, 0.314416E+00_JPRB, 0.300952E+00_JPRB, 0.287743E+00_JPRB &
+  &, 0.274830E+00_JPRB, 0.262213E+00_JPRB, 0.249892E+00_JPRB, 0.237879E+00_JPRB &
+  &, 0.226199E+00_JPRB, 0.214846E+00_JPRB, 0.203829E+00_JPRB &
+  &, 0.193136E+00_JPRB, 0.182803E+00_JPRB, 0.172816E+00_JPRB, 0.163174E+00_JPRB &
+  &, 0.153892E+00_JPRB, 0.144965E+00_JPRB, 0.136385E+00_JPRB &
+  &, 0.128143E+00_JPRB, 0.120263E+00_JPRB, 0.112711E+00_JPRB, 0.105507E+00_JPRB &
+  &, 0.986321E-01_JPRB, 0.921025E-01_JPRB, 0.858728E-01_JPRB &
+  &, 0.799761E-01_JPRB, 0.743821E-01_JPRB, 0.691000E-01_JPRB, 0.640934E-01_JPRB &
+  &, 0.593670E-01_JPRB, 0.549248E-01_JPRB, 0.507455E-01_JPRB &
+  &, 0.468292E-01_JPRB, 0.431501E-01_JPRB, 0.397044E-01_JPRB, 0.364868E-01_JPRB &
+  &, 0.334906E-01_JPRB, 0.307076E-01_JPRB, 0.281009E-01_JPRB &
+  &, 0.256852E-01_JPRB, 0.234476E-01_JPRB, 0.213732E-01_JPRB, 0.194455E-01_JPRB &
+  &, 0.176759E-01_JPRB, 0.160458E-01_JPRB, 0.145345E-01_JPRB &
+  &, 0.131826E-01_JPRB, 0.119044E-01_JPRB, 0.107387E-01_JPRB, 0.969325E-02_JPRB &
+  &, 0.870827E-02_JPRB, 0.785755E-02_JPRB, 0.704394E-02_JPRB &
+  &, 0.630635E-02_JPRB, 0.564978E-02_JPRB, 0.504235E-02_JPRB, 0.452505E-02_JPRB &
+  &, 0.402670E-02_JPRB, 0.358779E-02_JPRB, 0.317238E-02_JPRB &
+  &, 0.282235E-02_JPRB, 0.250058E-02_JPRB, 0.220885E-02_JPRB, 0.194901E-02_JPRB &
+  &, 0.172292E-02_JPRB, 0.153248E-02_JPRB, 0.133546E-02_JPRB &
+  &, 0.117663E-02_JPRB, 0.101242E-02_JPRB, 0.889037E-03_JPRB, 0.761543E-03_JPRB &
+  &, 0.677572E-03_JPRB, 0.590823E-03_JPRB, 0.501261E-03_JPRB &
+  &, 0.458707E-03_JPRB, 0.364147E-03_JPRB, 0.318007E-03_JPRB, 0.270413E-03_JPRB &
+  &, 0.221346E-03_JPRB, 0.224386E-03_JPRB, 0.173087E-03_JPRB &
+  &, 0.120269E-03_JPRB, 0.121824E-03_JPRB, 0.123392E-03_JPRB, 0.674857E-04_JPRB &
+  &, 0.682814E-04_JPRB, 0.690831E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 371, :) = (/ &
+  &  0.964009E+00_JPRB, 0.954132E+00_JPRB, 0.943913E+00_JPRB, 0.933365E+00_JPRB &
+  &, 0.922490E+00_JPRB, 0.911298E+00_JPRB, 0.899797E+00_JPRB &
+  &, 0.887994E+00_JPRB, 0.875897E+00_JPRB, 0.863516E+00_JPRB, 0.850858E+00_JPRB &
+  &, 0.837933E+00_JPRB, 0.824751E+00_JPRB, 0.811321E+00_JPRB &
+  &, 0.797654E+00_JPRB, 0.783759E+00_JPRB, 0.769648E+00_JPRB, 0.755332E+00_JPRB &
+  &, 0.740824E+00_JPRB, 0.726134E+00_JPRB, 0.711276E+00_JPRB &
+  &, 0.696266E+00_JPRB, 0.681111E+00_JPRB, 0.665831E+00_JPRB, 0.650435E+00_JPRB &
+  &, 0.634942E+00_JPRB, 0.619369E+00_JPRB, 0.603726E+00_JPRB &
+  &, 0.588028E+00_JPRB, 0.572302E+00_JPRB, 0.556553E+00_JPRB, 0.540801E+00_JPRB &
+  &, 0.525066E+00_JPRB, 0.509362E+00_JPRB, 0.493707E+00_JPRB &
+  &, 0.478124E+00_JPRB, 0.462618E+00_JPRB, 0.447223E+00_JPRB, 0.431938E+00_JPRB &
+  &, 0.416795E+00_JPRB, 0.401796E+00_JPRB, 0.386975E+00_JPRB &
+  &, 0.372336E+00_JPRB, 0.357895E+00_JPRB, 0.343668E+00_JPRB, 0.329682E+00_JPRB &
+  &, 0.315931E+00_JPRB, 0.302442E+00_JPRB, 0.289218E+00_JPRB &
+  &, 0.276275E+00_JPRB, 0.263626E+00_JPRB, 0.251284E+00_JPRB, 0.239249E+00_JPRB &
+  &, 0.227543E+00_JPRB, 0.216163E+00_JPRB, 0.205101E+00_JPRB &
+  &, 0.194391E+00_JPRB, 0.184024E+00_JPRB, 0.174000E+00_JPRB, 0.164336E+00_JPRB &
+  &, 0.155012E+00_JPRB, 0.146041E+00_JPRB, 0.137432E+00_JPRB &
+  &, 0.129160E+00_JPRB, 0.121227E+00_JPRB, 0.113659E+00_JPRB, 0.106418E+00_JPRB &
+  &, 0.995029E-01_JPRB, 0.929314E-01_JPRB, 0.866781E-01_JPRB &
+  &, 0.807353E-01_JPRB, 0.751142E-01_JPRB, 0.697815E-01_JPRB, 0.647441E-01_JPRB &
+  &, 0.600082E-01_JPRB, 0.555324E-01_JPRB, 0.513177E-01_JPRB &
+  &, 0.473643E-01_JPRB, 0.436463E-01_JPRB, 0.401851E-01_JPRB, 0.369253E-01_JPRB &
+  &, 0.339114E-01_JPRB, 0.310830E-01_JPRB, 0.284561E-01_JPRB &
+  &, 0.260194E-01_JPRB, 0.237597E-01_JPRB, 0.216623E-01_JPRB, 0.197399E-01_JPRB &
+  &, 0.179458E-01_JPRB, 0.162902E-01_JPRB, 0.147833E-01_JPRB &
+  &, 0.133726E-01_JPRB, 0.120978E-01_JPRB, 0.109355E-01_JPRB, 0.986020E-02_JPRB &
+  &, 0.887816E-02_JPRB, 0.796126E-02_JPRB, 0.714945E-02_JPRB &
+  &, 0.641367E-02_JPRB, 0.575893E-02_JPRB, 0.515335E-02_JPRB, 0.460030E-02_JPRB &
+  &, 0.410320E-02_JPRB, 0.366557E-02_JPRB, 0.325144E-02_JPRB &
+  &, 0.286253E-02_JPRB, 0.254141E-02_JPRB, 0.225034E-02_JPRB, 0.199116E-02_JPRB &
+  &, 0.176574E-02_JPRB, 0.153248E-02_JPRB, 0.137964E-02_JPRB &
+  &, 0.117663E-02_JPRB, 0.105799E-02_JPRB, 0.935302E-03_JPRB, 0.808514E-03_JPRB &
+  &, 0.677572E-03_JPRB, 0.590823E-03_JPRB, 0.550388E-03_JPRB &
+  &, 0.458707E-03_JPRB, 0.414739E-03_JPRB, 0.318007E-03_JPRB, 0.270413E-03_JPRB &
+  &, 0.274183E-03_JPRB, 0.224386E-03_JPRB, 0.173087E-03_JPRB &
+  &, 0.175403E-03_JPRB, 0.121824E-03_JPRB, 0.123392E-03_JPRB, 0.674857E-04_JPRB &
+  &, 0.682814E-04_JPRB, 0.690831E-04_JPRB, 0.698907E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART53',1,ZHOOK_HANDLE)
+END SUBROUTINE PART53
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART54
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART54',0,ZHOOK_HANDLE)
+
+XCW( 372, :) = (/ &
+  &  0.964269E+00_JPRB, 0.954453E+00_JPRB, 0.944296E+00_JPRB, 0.933808E+00_JPRB &
+  &, 0.922992E+00_JPRB, 0.911860E+00_JPRB, 0.900415E+00_JPRB &
+  &, 0.888668E+00_JPRB, 0.876627E+00_JPRB, 0.864299E+00_JPRB, 0.851693E+00_JPRB &
+  &, 0.838818E+00_JPRB, 0.825685E+00_JPRB, 0.812304E+00_JPRB &
+  &, 0.798683E+00_JPRB, 0.784833E+00_JPRB, 0.770765E+00_JPRB, 0.756492E+00_JPRB &
+  &, 0.742024E+00_JPRB, 0.727371E+00_JPRB, 0.712553E+00_JPRB &
+  &, 0.697575E+00_JPRB, 0.682454E+00_JPRB, 0.667202E+00_JPRB, 0.651839E+00_JPRB &
+  &, 0.636346E+00_JPRB, 0.620821E+00_JPRB, 0.605203E+00_JPRB &
+  &, 0.589530E+00_JPRB, 0.573817E+00_JPRB, 0.558085E+00_JPRB, 0.542350E+00_JPRB &
+  &, 0.526628E+00_JPRB, 0.510937E+00_JPRB, 0.495290E+00_JPRB &
+  &, 0.479706E+00_JPRB, 0.464211E+00_JPRB, 0.448807E+00_JPRB, 0.433532E+00_JPRB &
+  &, 0.418378E+00_JPRB, 0.403387E+00_JPRB, 0.388552E+00_JPRB &
+  &, 0.373897E+00_JPRB, 0.359450E+00_JPRB, 0.345215E+00_JPRB, 0.331208E+00_JPRB &
+  &, 0.317446E+00_JPRB, 0.303932E+00_JPRB, 0.290693E+00_JPRB &
+  &, 0.277734E+00_JPRB, 0.265066E+00_JPRB, 0.252690E+00_JPRB, 0.240632E+00_JPRB &
+  &, 0.228887E+00_JPRB, 0.217480E+00_JPRB, 0.206403E+00_JPRB &
+  &, 0.195647E+00_JPRB, 0.185261E+00_JPRB, 0.175201E+00_JPRB, 0.165498E+00_JPRB &
+  &, 0.156133E+00_JPRB, 0.147135E+00_JPRB, 0.138480E+00_JPRB &
+  &, 0.130176E+00_JPRB, 0.122211E+00_JPRB, 0.114588E+00_JPRB, 0.107309E+00_JPRB &
+  &, 0.100374E+00_JPRB, 0.937603E-01_JPRB, 0.874628E-01_JPRB &
+  &, 0.814945E-01_JPRB, 0.758463E-01_JPRB, 0.704849E-01_JPRB, 0.654172E-01_JPRB &
+  &, 0.606265E-01_JPRB, 0.561166E-01_JPRB, 0.518660E-01_JPRB &
+  &, 0.478994E-01_JPRB, 0.441672E-01_JPRB, 0.406658E-01_JPRB, 0.373897E-01_JPRB &
+  &, 0.343322E-01_JPRB, 0.314851E-01_JPRB, 0.288387E-01_JPRB &
+  &, 0.263535E-01_JPRB, 0.240718E-01_JPRB, 0.219514E-01_JPRB, 0.200050E-01_JPRB &
+  &, 0.181858E-01_JPRB, 0.165345E-01_JPRB, 0.150010E-01_JPRB &
+  &, 0.135943E-01_JPRB, 0.122912E-01_JPRB, 0.110996E-01_JPRB, 0.100272E-01_JPRB &
+  &, 0.901407E-02_JPRB, 0.809954E-02_JPRB, 0.729013E-02_JPRB &
+  &, 0.652100E-02_JPRB, 0.586809E-02_JPRB, 0.522736E-02_JPRB, 0.467555E-02_JPRB &
+  &, 0.417971E-02_JPRB, 0.370446E-02_JPRB, 0.329097E-02_JPRB &
+  &, 0.294288E-02_JPRB, 0.262307E-02_JPRB, 0.229183E-02_JPRB, 0.203331E-02_JPRB &
+  &, 0.180856E-02_JPRB, 0.157598E-02_JPRB, 0.137964E-02_JPRB &
+  &, 0.122150E-02_JPRB, 0.105799E-02_JPRB, 0.935302E-03_JPRB, 0.808514E-03_JPRB &
+  &, 0.725256E-03_JPRB, 0.639225E-03_JPRB, 0.550388E-03_JPRB &
+  &, 0.458707E-03_JPRB, 0.414739E-03_JPRB, 0.369341E-03_JPRB, 0.322495E-03_JPRB &
+  &, 0.274183E-03_JPRB, 0.224386E-03_JPRB, 0.173087E-03_JPRB &
+  &, 0.175403E-03_JPRB, 0.121824E-03_JPRB, 0.123392E-03_JPRB, 0.674857E-04_JPRB &
+  &, 0.682814E-04_JPRB, 0.690831E-04_JPRB, 0.698907E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 373, :) = (/ &
+  &  0.964527E+00_JPRB, 0.954774E+00_JPRB, 0.944678E+00_JPRB, 0.934251E+00_JPRB &
+  &, 0.923495E+00_JPRB, 0.912420E+00_JPRB, 0.901032E+00_JPRB &
+  &, 0.889342E+00_JPRB, 0.877355E+00_JPRB, 0.865081E+00_JPRB, 0.852528E+00_JPRB &
+  &, 0.839705E+00_JPRB, 0.826622E+00_JPRB, 0.813287E+00_JPRB &
+  &, 0.799712E+00_JPRB, 0.785908E+00_JPRB, 0.771884E+00_JPRB, 0.757652E+00_JPRB &
+  &, 0.743225E+00_JPRB, 0.728611E+00_JPRB, 0.713828E+00_JPRB &
+  &, 0.698885E+00_JPRB, 0.683797E+00_JPRB, 0.668576E+00_JPRB, 0.653242E+00_JPRB &
+  &, 0.637804E+00_JPRB, 0.622278E+00_JPRB, 0.606684E+00_JPRB &
+  &, 0.591031E+00_JPRB, 0.575339E+00_JPRB, 0.559625E+00_JPRB, 0.543904E+00_JPRB &
+  &, 0.528194E+00_JPRB, 0.512512E+00_JPRB, 0.496873E+00_JPRB &
+  &, 0.481296E+00_JPRB, 0.465803E+00_JPRB, 0.450410E+00_JPRB, 0.435126E+00_JPRB &
+  &, 0.419971E+00_JPRB, 0.404968E+00_JPRB, 0.390129E+00_JPRB &
+  &, 0.375481E+00_JPRB, 0.361017E+00_JPRB, 0.346762E+00_JPRB, 0.332746E+00_JPRB &
+  &, 0.318961E+00_JPRB, 0.305434E+00_JPRB, 0.292169E+00_JPRB &
+  &, 0.279192E+00_JPRB, 0.266493E+00_JPRB, 0.254096E+00_JPRB, 0.242015E+00_JPRB &
+  &, 0.230246E+00_JPRB, 0.218796E+00_JPRB, 0.207690E+00_JPRB &
+  &, 0.196917E+00_JPRB, 0.186482E+00_JPRB, 0.176401E+00_JPRB, 0.166660E+00_JPRB &
+  &, 0.157270E+00_JPRB, 0.148228E+00_JPRB, 0.139527E+00_JPRB &
+  &, 0.131192E+00_JPRB, 0.123194E+00_JPRB, 0.115535E+00_JPRB, 0.108219E+00_JPRB &
+  &, 0.101245E+00_JPRB, 0.946095E-01_JPRB, 0.882682E-01_JPRB &
+  &, 0.822747E-01_JPRB, 0.765784E-01_JPRB, 0.711663E-01_JPRB, 0.660679E-01_JPRB &
+  &, 0.612678E-01_JPRB, 0.567241E-01_JPRB, 0.524382E-01_JPRB &
+  &, 0.484344E-01_JPRB, 0.446634E-01_JPRB, 0.411212E-01_JPRB, 0.378282E-01_JPRB &
+  &, 0.347530E-01_JPRB, 0.318873E-01_JPRB, 0.291939E-01_JPRB &
+  &, 0.267155E-01_JPRB, 0.244123E-01_JPRB, 0.222693E-01_JPRB, 0.202994E-01_JPRB &
+  &, 0.184557E-01_JPRB, 0.167789E-01_JPRB, 0.152187E-01_JPRB &
+  &, 0.137843E-01_JPRB, 0.124846E-01_JPRB, 0.112636E-01_JPRB, 0.101607E-01_JPRB &
+  &, 0.918396E-02_JPRB, 0.823782E-02_JPRB, 0.743081E-02_JPRB &
+  &, 0.666409E-02_JPRB, 0.597725E-02_JPRB, 0.533837E-02_JPRB, 0.475080E-02_JPRB &
+  &, 0.425622E-02_JPRB, 0.378224E-02_JPRB, 0.337003E-02_JPRB &
+  &, 0.298306E-02_JPRB, 0.266390E-02_JPRB, 0.237480E-02_JPRB, 0.207547E-02_JPRB &
+  &, 0.185139E-02_JPRB, 0.161948E-02_JPRB, 0.142382E-02_JPRB &
+  &, 0.126637E-02_JPRB, 0.110355E-02_JPRB, 0.981568E-03_JPRB, 0.855486E-03_JPRB &
+  &, 0.725256E-03_JPRB, 0.639225E-03_JPRB, 0.550388E-03_JPRB &
+  &, 0.458707E-03_JPRB, 0.414739E-03_JPRB, 0.369341E-03_JPRB, 0.322495E-03_JPRB &
+  &, 0.274183E-03_JPRB, 0.224386E-03_JPRB, 0.173087E-03_JPRB &
+  &, 0.175403E-03_JPRB, 0.121824E-03_JPRB, 0.123392E-03_JPRB, 0.674857E-04_JPRB &
+  &, 0.682814E-04_JPRB, 0.690831E-04_JPRB, 0.698907E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 374, :) = (/ &
+  &  0.964784E+00_JPRB, 0.955094E+00_JPRB, 0.945061E+00_JPRB, 0.934693E+00_JPRB &
+  &, 0.923998E+00_JPRB, 0.912981E+00_JPRB, 0.901651E+00_JPRB &
+  &, 0.890016E+00_JPRB, 0.878084E+00_JPRB, 0.865863E+00_JPRB, 0.853363E+00_JPRB &
+  &, 0.840590E+00_JPRB, 0.827556E+00_JPRB, 0.814270E+00_JPRB &
+  &, 0.800743E+00_JPRB, 0.786983E+00_JPRB, 0.773002E+00_JPRB, 0.758812E+00_JPRB &
+  &, 0.744425E+00_JPRB, 0.729849E+00_JPRB, 0.715102E+00_JPRB &
+  &, 0.700195E+00_JPRB, 0.685140E+00_JPRB, 0.669954E+00_JPRB, 0.654645E+00_JPRB &
+  &, 0.639234E+00_JPRB, 0.623735E+00_JPRB, 0.608157E+00_JPRB &
+  &, 0.592533E+00_JPRB, 0.576858E+00_JPRB, 0.561161E+00_JPRB, 0.545457E+00_JPRB &
+  &, 0.529761E+00_JPRB, 0.514087E+00_JPRB, 0.498461E+00_JPRB &
+  &, 0.482887E+00_JPRB, 0.467396E+00_JPRB, 0.452004E+00_JPRB, 0.436720E+00_JPRB &
+  &, 0.421565E+00_JPRB, 0.406559E+00_JPRB, 0.391717E+00_JPRB &
+  &, 0.377054E+00_JPRB, 0.362583E+00_JPRB, 0.348321E+00_JPRB, 0.334285E+00_JPRB &
+  &, 0.320488E+00_JPRB, 0.306937E+00_JPRB, 0.293656E+00_JPRB &
+  &, 0.280651E+00_JPRB, 0.267933E+00_JPRB, 0.255516E+00_JPRB, 0.243398E+00_JPRB &
+  &, 0.231604E+00_JPRB, 0.220128E+00_JPRB, 0.208992E+00_JPRB &
+  &, 0.198188E+00_JPRB, 0.187719E+00_JPRB, 0.177602E+00_JPRB, 0.167821E+00_JPRB &
+  &, 0.158407E+00_JPRB, 0.149322E+00_JPRB, 0.140592E+00_JPRB &
+  &, 0.132226E+00_JPRB, 0.124177E+00_JPRB, 0.116502E+00_JPRB, 0.109149E+00_JPRB &
+  &, 0.102135E+00_JPRB, 0.954384E-01_JPRB, 0.890942E-01_JPRB &
+  &, 0.830339E-01_JPRB, 0.773105E-01_JPRB, 0.718698E-01_JPRB, 0.667411E-01_JPRB &
+  &, 0.618861E-01_JPRB, 0.573317E-01_JPRB, 0.530104E-01_JPRB &
+  &, 0.489695E-01_JPRB, 0.451844E-01_JPRB, 0.416272E-01_JPRB, 0.382926E-01_JPRB &
+  &, 0.351738E-01_JPRB, 0.322894E-01_JPRB, 0.295765E-01_JPRB &
+  &, 0.270776E-01_JPRB, 0.247244E-01_JPRB, 0.225584E-01_JPRB, 0.205645E-01_JPRB &
+  &, 0.187257E-01_JPRB, 0.170232E-01_JPRB, 0.154364E-01_JPRB &
+  &, 0.140059E-01_JPRB, 0.126780E-01_JPRB, 0.114605E-01_JPRB, 0.103277E-01_JPRB &
+  &, 0.931987E-02_JPRB, 0.837610E-02_JPRB, 0.753632E-02_JPRB &
+  &, 0.677142E-02_JPRB, 0.608640E-02_JPRB, 0.544938E-02_JPRB, 0.486368E-02_JPRB &
+  &, 0.433273E-02_JPRB, 0.386001E-02_JPRB, 0.344909E-02_JPRB &
+  &, 0.306341E-02_JPRB, 0.270473E-02_JPRB, 0.241629E-02_JPRB, 0.211762E-02_JPRB &
+  &, 0.189421E-02_JPRB, 0.166298E-02_JPRB, 0.146800E-02_JPRB &
+  &, 0.126637E-02_JPRB, 0.114912E-02_JPRB, 0.981568E-03_JPRB, 0.855486E-03_JPRB &
+  &, 0.772939E-03_JPRB, 0.639225E-03_JPRB, 0.550388E-03_JPRB &
+  &, 0.508563E-03_JPRB, 0.414739E-03_JPRB, 0.369341E-03_JPRB, 0.322495E-03_JPRB &
+  &, 0.274183E-03_JPRB, 0.224386E-03_JPRB, 0.173087E-03_JPRB &
+  &, 0.175403E-03_JPRB, 0.121824E-03_JPRB, 0.123392E-03_JPRB, 0.674857E-04_JPRB &
+  &, 0.682814E-04_JPRB, 0.690831E-04_JPRB, 0.698907E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 375, :) = (/ &
+  &  0.965044E+00_JPRB, 0.955415E+00_JPRB, 0.945443E+00_JPRB, 0.935136E+00_JPRB &
+  &, 0.924499E+00_JPRB, 0.913541E+00_JPRB, 0.902269E+00_JPRB &
+  &, 0.890690E+00_JPRB, 0.878812E+00_JPRB, 0.866646E+00_JPRB, 0.854192E+00_JPRB &
+  &, 0.841475E+00_JPRB, 0.828491E+00_JPRB, 0.815253E+00_JPRB &
+  &, 0.801772E+00_JPRB, 0.788059E+00_JPRB, 0.774121E+00_JPRB, 0.759973E+00_JPRB &
+  &, 0.745625E+00_JPRB, 0.731089E+00_JPRB, 0.716379E+00_JPRB &
+  &, 0.701508E+00_JPRB, 0.686484E+00_JPRB, 0.671328E+00_JPRB, 0.656052E+00_JPRB &
+  &, 0.640667E+00_JPRB, 0.625195E+00_JPRB, 0.609645E+00_JPRB &
+  &, 0.594034E+00_JPRB, 0.578380E+00_JPRB, 0.562701E+00_JPRB, 0.547010E+00_JPRB &
+  &, 0.531327E+00_JPRB, 0.515667E+00_JPRB, 0.500049E+00_JPRB &
+  &, 0.484487E+00_JPRB, 0.468998E+00_JPRB, 0.453608E+00_JPRB, 0.438324E+00_JPRB &
+  &, 0.423168E+00_JPRB, 0.408161E+00_JPRB, 0.393305E+00_JPRB &
+  &, 0.378637E+00_JPRB, 0.364150E+00_JPRB, 0.349881E+00_JPRB, 0.335823E+00_JPRB &
+  &, 0.322016E+00_JPRB, 0.308451E+00_JPRB, 0.295144E+00_JPRB &
+  &, 0.282122E+00_JPRB, 0.269373E+00_JPRB, 0.256936E+00_JPRB, 0.244796E+00_JPRB &
+  &, 0.232977E+00_JPRB, 0.221474E+00_JPRB, 0.210295E+00_JPRB &
+  &, 0.199459E+00_JPRB, 0.188956E+00_JPRB, 0.178803E+00_JPRB, 0.169000E+00_JPRB &
+  &, 0.159545E+00_JPRB, 0.150433E+00_JPRB, 0.141657E+00_JPRB &
+  &, 0.133243E+00_JPRB, 0.125178E+00_JPRB, 0.117450E+00_JPRB, 0.110079E+00_JPRB &
+  &, 0.103026E+00_JPRB, 0.962876E-01_JPRB, 0.898995E-01_JPRB &
+  &, 0.838142E-01_JPRB, 0.780641E-01_JPRB, 0.725952E-01_JPRB, 0.674142E-01_JPRB &
+  &, 0.625273E-01_JPRB, 0.579393E-01_JPRB, 0.535826E-01_JPRB &
+  &, 0.495289E-01_JPRB, 0.456805E-01_JPRB, 0.421078E-01_JPRB, 0.387569E-01_JPRB &
+  &, 0.356209E-01_JPRB, 0.326916E-01_JPRB, 0.299590E-01_JPRB &
+  &, 0.274117E-01_JPRB, 0.250649E-01_JPRB, 0.228764E-01_JPRB, 0.208589E-01_JPRB &
+  &, 0.189956E-01_JPRB, 0.172676E-01_JPRB, 0.156853E-01_JPRB &
+  &, 0.142276E-01_JPRB, 0.128714E-01_JPRB, 0.116245E-01_JPRB, 0.104946E-01_JPRB &
+  &, 0.948976E-02_JPRB, 0.854896E-02_JPRB, 0.767700E-02_JPRB &
+  &, 0.687874E-02_JPRB, 0.619556E-02_JPRB, 0.552338E-02_JPRB, 0.493893E-02_JPRB &
+  &, 0.440924E-02_JPRB, 0.393779E-02_JPRB, 0.352815E-02_JPRB &
+  &, 0.310359E-02_JPRB, 0.278638E-02_JPRB, 0.245778E-02_JPRB, 0.215977E-02_JPRB &
+  &, 0.193703E-02_JPRB, 0.170648E-02_JPRB, 0.151219E-02_JPRB &
+  &, 0.131124E-02_JPRB, 0.114912E-02_JPRB, 0.102783E-02_JPRB, 0.902457E-03_JPRB &
+  &, 0.772939E-03_JPRB, 0.687627E-03_JPRB, 0.599514E-03_JPRB &
+  &, 0.508563E-03_JPRB, 0.414739E-03_JPRB, 0.369341E-03_JPRB, 0.322495E-03_JPRB &
+  &, 0.274183E-03_JPRB, 0.224386E-03_JPRB, 0.227450E-03_JPRB &
+  &, 0.175403E-03_JPRB, 0.121824E-03_JPRB, 0.123392E-03_JPRB, 0.124971E-03_JPRB &
+  &, 0.682814E-04_JPRB, 0.690831E-04_JPRB, 0.698907E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 376, :) = (/ &
+  &  0.965302E+00_JPRB, 0.955736E+00_JPRB, 0.945824E+00_JPRB, 0.935578E+00_JPRB &
+  &, 0.925001E+00_JPRB, 0.914101E+00_JPRB, 0.902886E+00_JPRB &
+  &, 0.891363E+00_JPRB, 0.879541E+00_JPRB, 0.867428E+00_JPRB, 0.855032E+00_JPRB &
+  &, 0.842361E+00_JPRB, 0.829426E+00_JPRB, 0.816237E+00_JPRB &
+  &, 0.802803E+00_JPRB, 0.789134E+00_JPRB, 0.775240E+00_JPRB, 0.761134E+00_JPRB &
+  &, 0.746827E+00_JPRB, 0.732329E+00_JPRB, 0.717657E+00_JPRB &
+  &, 0.702817E+00_JPRB, 0.687830E+00_JPRB, 0.672706E+00_JPRB, 0.657459E+00_JPRB &
+  &, 0.642104E+00_JPRB, 0.626655E+00_JPRB, 0.611126E+00_JPRB &
+  &, 0.595540E+00_JPRB, 0.579907E+00_JPRB, 0.564245E+00_JPRB, 0.548568E+00_JPRB &
+  &, 0.532898E+00_JPRB, 0.517246E+00_JPRB, 0.501636E+00_JPRB &
+  &, 0.486077E+00_JPRB, 0.470600E+00_JPRB, 0.455211E+00_JPRB, 0.439929E+00_JPRB &
+  &, 0.424772E+00_JPRB, 0.409752E+00_JPRB, 0.394893E+00_JPRB &
+  &, 0.380221E+00_JPRB, 0.365728E+00_JPRB, 0.351440E+00_JPRB, 0.337373E+00_JPRB &
+  &, 0.323543E+00_JPRB, 0.309954E+00_JPRB, 0.296632E+00_JPRB &
+  &, 0.283594E+00_JPRB, 0.270826E+00_JPRB, 0.258355E+00_JPRB, 0.246193E+00_JPRB &
+  &, 0.234335E+00_JPRB, 0.222806E+00_JPRB, 0.211612E+00_JPRB &
+  &, 0.200745E+00_JPRB, 0.190209E+00_JPRB, 0.180019E+00_JPRB, 0.170178E+00_JPRB &
+  &, 0.160682E+00_JPRB, 0.151544E+00_JPRB, 0.142740E+00_JPRB &
+  &, 0.134295E+00_JPRB, 0.126180E+00_JPRB, 0.118417E+00_JPRB, 0.110989E+00_JPRB &
+  &, 0.103916E+00_JPRB, 0.971569E-01_JPRB, 0.907255E-01_JPRB &
+  &, 0.846155E-01_JPRB, 0.787962E-01_JPRB, 0.732986E-01_JPRB, 0.681098E-01_JPRB &
+  &, 0.631914E-01_JPRB, 0.585468E-01_JPRB, 0.541787E-01_JPRB &
+  &, 0.500640E-01_JPRB, 0.462015E-01_JPRB, 0.425885E-01_JPRB, 0.391955E-01_JPRB &
+  &, 0.360417E-01_JPRB, 0.330937E-01_JPRB, 0.303416E-01_JPRB &
+  &, 0.277737E-01_JPRB, 0.254054E-01_JPRB, 0.231944E-01_JPRB, 0.211534E-01_JPRB &
+  &, 0.192655E-01_JPRB, 0.175119E-01_JPRB, 0.159030E-01_JPRB &
+  &, 0.144176E-01_JPRB, 0.130648E-01_JPRB, 0.118214E-01_JPRB, 0.106950E-01_JPRB &
+  &, 0.962567E-02_JPRB, 0.868724E-02_JPRB, 0.781768E-02_JPRB &
+  &, 0.702184E-02_JPRB, 0.630472E-02_JPRB, 0.563439E-02_JPRB, 0.505181E-02_JPRB &
+  &, 0.448575E-02_JPRB, 0.401557E-02_JPRB, 0.356768E-02_JPRB &
+  &, 0.318394E-02_JPRB, 0.282721E-02_JPRB, 0.249927E-02_JPRB, 0.220192E-02_JPRB &
+  &, 0.197986E-02_JPRB, 0.174998E-02_JPRB, 0.151219E-02_JPRB &
+  &, 0.135611E-02_JPRB, 0.119468E-02_JPRB, 0.102783E-02_JPRB, 0.902457E-03_JPRB &
+  &, 0.772939E-03_JPRB, 0.687627E-03_JPRB, 0.599514E-03_JPRB &
+  &, 0.508563E-03_JPRB, 0.465332E-03_JPRB, 0.369341E-03_JPRB, 0.322495E-03_JPRB &
+  &, 0.274183E-03_JPRB, 0.224386E-03_JPRB, 0.227450E-03_JPRB &
+  &, 0.175403E-03_JPRB, 0.121824E-03_JPRB, 0.123392E-03_JPRB, 0.124971E-03_JPRB &
+  &, 0.682814E-04_JPRB, 0.690831E-04_JPRB, 0.698907E-04_JPRB &
+  &, 0.707043E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 377, :) = (/ &
+  &  0.965560E+00_JPRB, 0.956056E+00_JPRB, 0.946205E+00_JPRB, 0.936020E+00_JPRB &
+  &, 0.925502E+00_JPRB, 0.914661E+00_JPRB, 0.903503E+00_JPRB &
+  &, 0.892036E+00_JPRB, 0.880269E+00_JPRB, 0.868209E+00_JPRB, 0.855865E+00_JPRB &
+  &, 0.843246E+00_JPRB, 0.830361E+00_JPRB, 0.817220E+00_JPRB &
+  &, 0.803832E+00_JPRB, 0.790208E+00_JPRB, 0.776359E+00_JPRB, 0.762295E+00_JPRB &
+  &, 0.748029E+00_JPRB, 0.733570E+00_JPRB, 0.718934E+00_JPRB &
+  &, 0.704130E+00_JPRB, 0.689176E+00_JPRB, 0.674084E+00_JPRB, 0.658865E+00_JPRB &
+  &, 0.643537E+00_JPRB, 0.628115E+00_JPRB, 0.612610E+00_JPRB &
+  &, 0.597045E+00_JPRB, 0.581434E+00_JPRB, 0.565785E+00_JPRB, 0.550125E+00_JPRB &
+  &, 0.534469E+00_JPRB, 0.518830E+00_JPRB, 0.503228E+00_JPRB &
+  &, 0.487677E+00_JPRB, 0.472202E+00_JPRB, 0.456815E+00_JPRB, 0.441533E+00_JPRB &
+  &, 0.426375E+00_JPRB, 0.411354E+00_JPRB, 0.396492E+00_JPRB &
+  &, 0.381805E+00_JPRB, 0.367305E+00_JPRB, 0.352999E+00_JPRB, 0.338923E+00_JPRB &
+  &, 0.325071E+00_JPRB, 0.311469E+00_JPRB, 0.298133E+00_JPRB &
+  &, 0.285066E+00_JPRB, 0.272280E+00_JPRB, 0.259789E+00_JPRB, 0.247590E+00_JPRB &
+  &, 0.235708E+00_JPRB, 0.224152E+00_JPRB, 0.212929E+00_JPRB &
+  &, 0.202016E+00_JPRB, 0.191461E+00_JPRB, 0.181236E+00_JPRB, 0.171356E+00_JPRB &
+  &, 0.161836E+00_JPRB, 0.152655E+00_JPRB, 0.143823E+00_JPRB &
+  &, 0.135329E+00_JPRB, 0.127200E+00_JPRB, 0.119384E+00_JPRB, 0.111939E+00_JPRB &
+  &, 0.104807E+00_JPRB, 0.980061E-01_JPRB, 0.915515E-01_JPRB &
+  &, 0.853958E-01_JPRB, 0.795498E-01_JPRB, 0.740240E-01_JPRB, 0.687830E-01_JPRB &
+  &, 0.638326E-01_JPRB, 0.591544E-01_JPRB, 0.547509E-01_JPRB &
+  &, 0.506234E-01_JPRB, 0.467472E-01_JPRB, 0.430945E-01_JPRB, 0.396856E-01_JPRB &
+  &, 0.364889E-01_JPRB, 0.334959E-01_JPRB, 0.307241E-01_JPRB &
+  &, 0.281358E-01_JPRB, 0.257459E-01_JPRB, 0.235124E-01_JPRB, 0.214479E-01_JPRB &
+  &, 0.195355E-01_JPRB, 0.177868E-01_JPRB, 0.161518E-01_JPRB &
+  &, 0.146392E-01_JPRB, 0.132582E-01_JPRB, 0.120182E-01_JPRB, 0.108619E-01_JPRB &
+  &, 0.979555E-02_JPRB, 0.882552E-02_JPRB, 0.792318E-02_JPRB &
+  &, 0.712916E-02_JPRB, 0.641387E-02_JPRB, 0.574540E-02_JPRB, 0.512706E-02_JPRB &
+  &, 0.460051E-02_JPRB, 0.409335E-02_JPRB, 0.364674E-02_JPRB &
+  &, 0.326430E-02_JPRB, 0.286804E-02_JPRB, 0.254076E-02_JPRB, 0.228623E-02_JPRB &
+  &, 0.202268E-02_JPRB, 0.174998E-02_JPRB, 0.155637E-02_JPRB &
+  &, 0.135611E-02_JPRB, 0.119468E-02_JPRB, 0.107410E-02_JPRB, 0.949429E-03_JPRB &
+  &, 0.820623E-03_JPRB, 0.687627E-03_JPRB, 0.599514E-03_JPRB &
+  &, 0.558419E-03_JPRB, 0.465332E-03_JPRB, 0.420676E-03_JPRB, 0.322495E-03_JPRB &
+  &, 0.274183E-03_JPRB, 0.277982E-03_JPRB, 0.227450E-03_JPRB &
+  &, 0.175403E-03_JPRB, 0.177736E-03_JPRB, 0.123392E-03_JPRB, 0.124971E-03_JPRB &
+  &, 0.682814E-04_JPRB, 0.690831E-04_JPRB, 0.698907E-04_JPRB &
+  &, 0.707043E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 378, :) = (/ &
+  &  0.965818E+00_JPRB, 0.956375E+00_JPRB, 0.946587E+00_JPRB, 0.936462E+00_JPRB &
+  &, 0.926004E+00_JPRB, 0.915220E+00_JPRB, 0.904119E+00_JPRB &
+  &, 0.892709E+00_JPRB, 0.880997E+00_JPRB, 0.868991E+00_JPRB, 0.856700E+00_JPRB &
+  &, 0.844131E+00_JPRB, 0.831297E+00_JPRB, 0.818203E+00_JPRB &
+  &, 0.804863E+00_JPRB, 0.791283E+00_JPRB, 0.777478E+00_JPRB, 0.763456E+00_JPRB &
+  &, 0.749231E+00_JPRB, 0.734810E+00_JPRB, 0.720212E+00_JPRB &
+  &, 0.705443E+00_JPRB, 0.690523E+00_JPRB, 0.675462E+00_JPRB, 0.660272E+00_JPRB &
+  &, 0.644974E+00_JPRB, 0.629576E+00_JPRB, 0.614099E+00_JPRB &
+  &, 0.598554E+00_JPRB, 0.582960E+00_JPRB, 0.567334E+00_JPRB, 0.551687E+00_JPRB &
+  &, 0.536044E+00_JPRB, 0.520418E+00_JPRB, 0.504825E+00_JPRB &
+  &, 0.489277E+00_JPRB, 0.473814E+00_JPRB, 0.458428E+00_JPRB, 0.443147E+00_JPRB &
+  &, 0.427979E+00_JPRB, 0.412956E+00_JPRB, 0.398091E+00_JPRB &
+  &, 0.383388E+00_JPRB, 0.368883E+00_JPRB, 0.354569E+00_JPRB, 0.340473E+00_JPRB &
+  &, 0.326610E+00_JPRB, 0.312996E+00_JPRB, 0.299634E+00_JPRB &
+  &, 0.286537E+00_JPRB, 0.273733E+00_JPRB, 0.261222E+00_JPRB, 0.249002E+00_JPRB &
+  &, 0.237095E+00_JPRB, 0.225513E+00_JPRB, 0.214247E+00_JPRB &
+  &, 0.203318E+00_JPRB, 0.192714E+00_JPRB, 0.182469E+00_JPRB, 0.172551E+00_JPRB &
+  &, 0.162991E+00_JPRB, 0.153766E+00_JPRB, 0.144905E+00_JPRB &
+  &, 0.136382E+00_JPRB, 0.128202E+00_JPRB, 0.120370E+00_JPRB, 0.112868E+00_JPRB &
+  &, 0.105718E+00_JPRB, 0.988755E-01_JPRB, 0.923776E-01_JPRB &
+  &, 0.861971E-01_JPRB, 0.803250E-01_JPRB, 0.747494E-01_JPRB, 0.694785E-01_JPRB &
+  &, 0.644967E-01_JPRB, 0.597853E-01_JPRB, 0.553469E-01_JPRB &
+  &, 0.511828E-01_JPRB, 0.472682E-01_JPRB, 0.436005E-01_JPRB, 0.401499E-01_JPRB &
+  &, 0.369360E-01_JPRB, 0.339249E-01_JPRB, 0.311067E-01_JPRB &
+  &, 0.284978E-01_JPRB, 0.260864E-01_JPRB, 0.238304E-01_JPRB, 0.217424E-01_JPRB &
+  &, 0.198054E-01_JPRB, 0.180312E-01_JPRB, 0.164006E-01_JPRB &
+  &, 0.148609E-01_JPRB, 0.134839E-01_JPRB, 0.122151E-01_JPRB, 0.110289E-01_JPRB &
+  &, 0.996544E-02_JPRB, 0.896381E-02_JPRB, 0.806386E-02_JPRB &
+  &, 0.727226E-02_JPRB, 0.652303E-02_JPRB, 0.585640E-02_JPRB, 0.523993E-02_JPRB &
+  &, 0.467702E-02_JPRB, 0.417113E-02_JPRB, 0.372580E-02_JPRB &
+  &, 0.330447E-02_JPRB, 0.294970E-02_JPRB, 0.262373E-02_JPRB, 0.232838E-02_JPRB &
+  &, 0.206550E-02_JPRB, 0.179348E-02_JPRB, 0.160055E-02_JPRB &
+  &, 0.140098E-02_JPRB, 0.124025E-02_JPRB, 0.107410E-02_JPRB, 0.949429E-03_JPRB &
+  &, 0.820623E-03_JPRB, 0.736029E-03_JPRB, 0.648640E-03_JPRB &
+  &, 0.558419E-03_JPRB, 0.465332E-03_JPRB, 0.420676E-03_JPRB, 0.374578E-03_JPRB &
+  &, 0.327019E-03_JPRB, 0.277982E-03_JPRB, 0.227450E-03_JPRB &
+  &, 0.175403E-03_JPRB, 0.177736E-03_JPRB, 0.123392E-03_JPRB, 0.124971E-03_JPRB &
+  &, 0.682814E-04_JPRB, 0.690831E-04_JPRB, 0.698907E-04_JPRB &
+  &, 0.707043E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART54',1,ZHOOK_HANDLE)
+END SUBROUTINE PART54
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART55
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART55',0,ZHOOK_HANDLE)
+
+XCW( 379, :) = (/ &
+  &  0.966075E+00_JPRB, 0.956695E+00_JPRB, 0.946967E+00_JPRB, 0.936903E+00_JPRB &
+  &, 0.926504E+00_JPRB, 0.915779E+00_JPRB, 0.904737E+00_JPRB &
+  &, 0.893382E+00_JPRB, 0.881725E+00_JPRB, 0.869773E+00_JPRB, 0.857533E+00_JPRB &
+  &, 0.845016E+00_JPRB, 0.832232E+00_JPRB, 0.819187E+00_JPRB &
+  &, 0.805892E+00_JPRB, 0.792358E+00_JPRB, 0.778597E+00_JPRB, 0.764618E+00_JPRB &
+  &, 0.750432E+00_JPRB, 0.736051E+00_JPRB, 0.721489E+00_JPRB &
+  &, 0.706756E+00_JPRB, 0.691869E+00_JPRB, 0.676840E+00_JPRB, 0.661682E+00_JPRB &
+  &, 0.646410E+00_JPRB, 0.631040E+00_JPRB, 0.615583E+00_JPRB &
+  &, 0.600064E+00_JPRB, 0.584487E+00_JPRB, 0.568878E+00_JPRB, 0.553249E+00_JPRB &
+  &, 0.537619E+00_JPRB, 0.522002E+00_JPRB, 0.506422E+00_JPRB &
+  &, 0.490886E+00_JPRB, 0.475416E+00_JPRB, 0.460032E+00_JPRB, 0.444761E+00_JPRB &
+  &, 0.429592E+00_JPRB, 0.414568E+00_JPRB, 0.399690E+00_JPRB &
+  &, 0.384983E+00_JPRB, 0.370461E+00_JPRB, 0.356140E+00_JPRB, 0.342035E+00_JPRB &
+  &, 0.328162E+00_JPRB, 0.314524E+00_JPRB, 0.301135E+00_JPRB &
+  &, 0.288022E+00_JPRB, 0.275200E+00_JPRB, 0.262656E+00_JPRB, 0.250413E+00_JPRB &
+  &, 0.238483E+00_JPRB, 0.226859E+00_JPRB, 0.215564E+00_JPRB &
+  &, 0.204604E+00_JPRB, 0.193983E+00_JPRB, 0.183702E+00_JPRB, 0.173746E+00_JPRB &
+  &, 0.164145E+00_JPRB, 0.154895E+00_JPRB, 0.145988E+00_JPRB &
+  &, 0.137434E+00_JPRB, 0.129222E+00_JPRB, 0.121355E+00_JPRB, 0.113818E+00_JPRB &
+  &, 0.106628E+00_JPRB, 0.997651E-01_JPRB, 0.932242E-01_JPRB &
+  &, 0.869985E-01_JPRB, 0.810786E-01_JPRB, 0.754748E-01_JPRB, 0.701741E-01_JPRB &
+  &, 0.651608E-01_JPRB, 0.604163E-01_JPRB, 0.559430E-01_JPRB &
+  &, 0.517422E-01_JPRB, 0.477891E-01_JPRB, 0.440812E-01_JPRB, 0.406143E-01_JPRB &
+  &, 0.373831E-01_JPRB, 0.343270E-01_JPRB, 0.315166E-01_JPRB &
+  &, 0.288876E-01_JPRB, 0.264269E-01_JPRB, 0.241484E-01_JPRB, 0.220369E-01_JPRB &
+  &, 0.201053E-01_JPRB, 0.183061E-01_JPRB, 0.166183E-01_JPRB &
+  &, 0.150825E-01_JPRB, 0.136773E-01_JPRB, 0.123791E-01_JPRB, 0.111958E-01_JPRB &
+  &, 0.101014E-01_JPRB, 0.913666E-02_JPRB, 0.820454E-02_JPRB &
+  &, 0.737959E-02_JPRB, 0.663219E-02_JPRB, 0.593041E-02_JPRB, 0.531518E-02_JPRB &
+  &, 0.475353E-02_JPRB, 0.424891E-02_JPRB, 0.380486E-02_JPRB &
+  &, 0.338483E-02_JPRB, 0.299053E-02_JPRB, 0.266522E-02_JPRB, 0.237053E-02_JPRB &
+  &, 0.210832E-02_JPRB, 0.183698E-02_JPRB, 0.164473E-02_JPRB &
+  &, 0.144585E-02_JPRB, 0.128581E-02_JPRB, 0.112036E-02_JPRB, 0.996400E-03_JPRB &
+  &, 0.868307E-03_JPRB, 0.736029E-03_JPRB, 0.648640E-03_JPRB &
+  &, 0.558419E-03_JPRB, 0.465332E-03_JPRB, 0.420676E-03_JPRB, 0.374578E-03_JPRB &
+  &, 0.327019E-03_JPRB, 0.277982E-03_JPRB, 0.227450E-03_JPRB &
+  &, 0.175403E-03_JPRB, 0.177736E-03_JPRB, 0.123392E-03_JPRB, 0.124971E-03_JPRB &
+  &, 0.682814E-04_JPRB, 0.690831E-04_JPRB, 0.698907E-04_JPRB &
+  &, 0.707043E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 380, :) = (/ &
+  &  0.966332E+00_JPRB, 0.957014E+00_JPRB, 0.947349E+00_JPRB, 0.937345E+00_JPRB &
+  &, 0.927005E+00_JPRB, 0.916339E+00_JPRB, 0.905353E+00_JPRB &
+  &, 0.894054E+00_JPRB, 0.882453E+00_JPRB, 0.870554E+00_JPRB, 0.858368E+00_JPRB &
+  &, 0.845901E+00_JPRB, 0.833166E+00_JPRB, 0.820170E+00_JPRB &
+  &, 0.806923E+00_JPRB, 0.793435E+00_JPRB, 0.779716E+00_JPRB, 0.765780E+00_JPRB &
+  &, 0.751634E+00_JPRB, 0.737291E+00_JPRB, 0.722767E+00_JPRB &
+  &, 0.708072E+00_JPRB, 0.693219E+00_JPRB, 0.678221E+00_JPRB, 0.663093E+00_JPRB &
+  &, 0.647847E+00_JPRB, 0.632504E+00_JPRB, 0.617071E+00_JPRB &
+  &, 0.601573E+00_JPRB, 0.586018E+00_JPRB, 0.570426E+00_JPRB, 0.554815E+00_JPRB &
+  &, 0.539198E+00_JPRB, 0.523595E+00_JPRB, 0.508018E+00_JPRB &
+  &, 0.492495E+00_JPRB, 0.477028E+00_JPRB, 0.461655E+00_JPRB, 0.446375E+00_JPRB &
+  &, 0.431206E+00_JPRB, 0.416180E+00_JPRB, 0.401300E+00_JPRB &
+  &, 0.386589E+00_JPRB, 0.372050E+00_JPRB, 0.357722E+00_JPRB, 0.343597E+00_JPRB &
+  &, 0.329701E+00_JPRB, 0.316051E+00_JPRB, 0.302648E+00_JPRB &
+  &, 0.289520E+00_JPRB, 0.276667E+00_JPRB, 0.264089E+00_JPRB, 0.251824E+00_JPRB &
+  &, 0.239870E+00_JPRB, 0.228220E+00_JPRB, 0.216897E+00_JPRB &
+  &, 0.205906E+00_JPRB, 0.195251E+00_JPRB, 0.184935E+00_JPRB, 0.174958E+00_JPRB &
+  &, 0.165316E+00_JPRB, 0.156040E+00_JPRB, 0.147089E+00_JPRB &
+  &, 0.138505E+00_JPRB, 0.130242E+00_JPRB, 0.122341E+00_JPRB, 0.114767E+00_JPRB &
+  &, 0.107538E+00_JPRB, 0.100634E+00_JPRB, 0.940502E-01_JPRB &
+  &, 0.877998E-01_JPRB, 0.818538E-01_JPRB, 0.762222E-01_JPRB, 0.708697E-01_JPRB &
+  &, 0.658249E-01_JPRB, 0.610472E-01_JPRB, 0.565629E-01_JPRB &
+  &, 0.523259E-01_JPRB, 0.483349E-01_JPRB, 0.446125E-01_JPRB, 0.411044E-01_JPRB &
+  &, 0.378302E-01_JPRB, 0.347560E-01_JPRB, 0.318991E-01_JPRB &
+  &, 0.292496E-01_JPRB, 0.267674E-01_JPRB, 0.244664E-01_JPRB, 0.223608E-01_JPRB &
+  &, 0.203753E-01_JPRB, 0.185504E-01_JPRB, 0.168671E-01_JPRB &
+  &, 0.153358E-01_JPRB, 0.139029E-01_JPRB, 0.125760E-01_JPRB, 0.113962E-01_JPRB &
+  &, 0.102712E-01_JPRB, 0.927494E-02_JPRB, 0.834522E-02_JPRB &
+  &, 0.752269E-02_JPRB, 0.674134E-02_JPRB, 0.604142E-02_JPRB, 0.542806E-02_JPRB &
+  &, 0.486829E-02_JPRB, 0.432668E-02_JPRB, 0.388392E-02_JPRB &
+  &, 0.346518E-02_JPRB, 0.307219E-02_JPRB, 0.270671E-02_JPRB, 0.241269E-02_JPRB &
+  &, 0.215115E-02_JPRB, 0.188048E-02_JPRB, 0.168891E-02_JPRB &
+  &, 0.149072E-02_JPRB, 0.128581E-02_JPRB, 0.112036E-02_JPRB, 0.996400E-03_JPRB &
+  &, 0.868307E-03_JPRB, 0.784431E-03_JPRB, 0.648640E-03_JPRB &
+  &, 0.558419E-03_JPRB, 0.515924E-03_JPRB, 0.420676E-03_JPRB, 0.374578E-03_JPRB &
+  &, 0.327019E-03_JPRB, 0.277982E-03_JPRB, 0.227450E-03_JPRB &
+  &, 0.175403E-03_JPRB, 0.177736E-03_JPRB, 0.123392E-03_JPRB, 0.124971E-03_JPRB &
+  &, 0.126563E-03_JPRB, 0.690831E-04_JPRB, 0.698907E-04_JPRB &
+  &, 0.707043E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 381, :) = (/ &
+  &  0.966588E+00_JPRB, 0.957334E+00_JPRB, 0.947729E+00_JPRB, 0.937786E+00_JPRB &
+  &, 0.927506E+00_JPRB, 0.916898E+00_JPRB, 0.905969E+00_JPRB &
+  &, 0.894726E+00_JPRB, 0.883180E+00_JPRB, 0.871335E+00_JPRB, 0.859201E+00_JPRB &
+  &, 0.846786E+00_JPRB, 0.834101E+00_JPRB, 0.821153E+00_JPRB &
+  &, 0.807953E+00_JPRB, 0.794511E+00_JPRB, 0.780837E+00_JPRB, 0.766942E+00_JPRB &
+  &, 0.752837E+00_JPRB, 0.738535E+00_JPRB, 0.724048E+00_JPRB &
+  &, 0.709385E+00_JPRB, 0.694565E+00_JPRB, 0.679602E+00_JPRB, 0.664503E+00_JPRB &
+  &, 0.649288E+00_JPRB, 0.633968E+00_JPRB, 0.618564E+00_JPRB &
+  &, 0.603086E+00_JPRB, 0.587548E+00_JPRB, 0.571978E+00_JPRB, 0.556381E+00_JPRB &
+  &, 0.540778E+00_JPRB, 0.525188E+00_JPRB, 0.509619E+00_JPRB &
+  &, 0.494104E+00_JPRB, 0.478649E+00_JPRB, 0.463269E+00_JPRB, 0.447989E+00_JPRB &
+  &, 0.432830E+00_JPRB, 0.417793E+00_JPRB, 0.402909E+00_JPRB &
+  &, 0.388184E+00_JPRB, 0.373640E+00_JPRB, 0.359305E+00_JPRB, 0.345159E+00_JPRB &
+  &, 0.331253E+00_JPRB, 0.317578E+00_JPRB, 0.304162E+00_JPRB &
+  &, 0.291018E+00_JPRB, 0.278134E+00_JPRB, 0.265537E+00_JPRB, 0.253250E+00_JPRB &
+  &, 0.241257E+00_JPRB, 0.229581E+00_JPRB, 0.218229E+00_JPRB &
+  &, 0.207208E+00_JPRB, 0.196520E+00_JPRB, 0.186168E+00_JPRB, 0.176153E+00_JPRB &
+  &, 0.166488E+00_JPRB, 0.157169E+00_JPRB, 0.148189E+00_JPRB &
+  &, 0.139558E+00_JPRB, 0.131281E+00_JPRB, 0.123327E+00_JPRB, 0.115735E+00_JPRB &
+  &, 0.108449E+00_JPRB, 0.101524E+00_JPRB, 0.948969E-01_JPRB &
+  &, 0.886012E-01_JPRB, 0.826289E-01_JPRB, 0.769477E-01_JPRB, 0.715877E-01_JPRB &
+  &, 0.664890E-01_JPRB, 0.616781E-01_JPRB, 0.571589E-01_JPRB &
+  &, 0.528853E-01_JPRB, 0.488807E-01_JPRB, 0.451184E-01_JPRB, 0.415946E-01_JPRB &
+  &, 0.382773E-01_JPRB, 0.351849E-01_JPRB, 0.323090E-01_JPRB &
+  &, 0.296395E-01_JPRB, 0.271363E-01_JPRB, 0.248133E-01_JPRB, 0.226553E-01_JPRB &
+  &, 0.206752E-01_JPRB, 0.188253E-01_JPRB, 0.171159E-01_JPRB &
+  &, 0.155575E-01_JPRB, 0.140963E-01_JPRB, 0.127728E-01_JPRB, 0.115631E-01_JPRB &
+  &, 0.104411E-01_JPRB, 0.941323E-02_JPRB, 0.848590E-02_JPRB &
+  &, 0.763001E-02_JPRB, 0.688689E-02_JPRB, 0.615242E-02_JPRB, 0.554094E-02_JPRB &
+  &, 0.494480E-02_JPRB, 0.440446E-02_JPRB, 0.396298E-02_JPRB &
+  &, 0.350536E-02_JPRB, 0.311302E-02_JPRB, 0.278968E-02_JPRB, 0.245484E-02_JPRB &
+  &, 0.219397E-02_JPRB, 0.192398E-02_JPRB, 0.168891E-02_JPRB &
+  &, 0.149072E-02_JPRB, 0.133138E-02_JPRB, 0.116663E-02_JPRB, 0.104337E-02_JPRB &
+  &, 0.915991E-03_JPRB, 0.784431E-03_JPRB, 0.697766E-03_JPRB &
+  &, 0.608276E-03_JPRB, 0.515924E-03_JPRB, 0.472010E-03_JPRB, 0.374578E-03_JPRB &
+  &, 0.327019E-03_JPRB, 0.277982E-03_JPRB, 0.227450E-03_JPRB &
+  &, 0.230537E-03_JPRB, 0.177736E-03_JPRB, 0.123392E-03_JPRB, 0.124971E-03_JPRB &
+  &, 0.126563E-03_JPRB, 0.690831E-04_JPRB, 0.698907E-04_JPRB &
+  &, 0.707043E-04_JPRB, 0.715239E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 382, :) = (/ &
+  &  0.966846E+00_JPRB, 0.957654E+00_JPRB, 0.948110E+00_JPRB, 0.938227E+00_JPRB &
+  &, 0.928005E+00_JPRB, 0.917456E+00_JPRB, 0.906585E+00_JPRB &
+  &, 0.895399E+00_JPRB, 0.883907E+00_JPRB, 0.872116E+00_JPRB, 0.860034E+00_JPRB &
+  &, 0.847672E+00_JPRB, 0.835035E+00_JPRB, 0.822136E+00_JPRB &
+  &, 0.808982E+00_JPRB, 0.795586E+00_JPRB, 0.781956E+00_JPRB, 0.768104E+00_JPRB &
+  &, 0.754041E+00_JPRB, 0.739775E+00_JPRB, 0.725325E+00_JPRB &
+  &, 0.710701E+00_JPRB, 0.695915E+00_JPRB, 0.680983E+00_JPRB, 0.665913E+00_JPRB &
+  &, 0.650728E+00_JPRB, 0.635436E+00_JPRB, 0.620052E+00_JPRB &
+  &, 0.604599E+00_JPRB, 0.589083E+00_JPRB, 0.573527E+00_JPRB, 0.557947E+00_JPRB &
+  &, 0.542357E+00_JPRB, 0.526780E+00_JPRB, 0.511225E+00_JPRB &
+  &, 0.495713E+00_JPRB, 0.480261E+00_JPRB, 0.464892E+00_JPRB, 0.449613E+00_JPRB &
+  &, 0.434444E+00_JPRB, 0.419405E+00_JPRB, 0.404519E+00_JPRB &
+  &, 0.389789E+00_JPRB, 0.375240E+00_JPRB, 0.360887E+00_JPRB, 0.346733E+00_JPRB &
+  &, 0.332805E+00_JPRB, 0.319118E+00_JPRB, 0.305688E+00_JPRB &
+  &, 0.292516E+00_JPRB, 0.279615E+00_JPRB, 0.266998E+00_JPRB, 0.254676E+00_JPRB &
+  &, 0.242659E+00_JPRB, 0.230957E+00_JPRB, 0.219577E+00_JPRB &
+  &, 0.208525E+00_JPRB, 0.197804E+00_JPRB, 0.187418E+00_JPRB, 0.177381E+00_JPRB &
+  &, 0.167676E+00_JPRB, 0.158314E+00_JPRB, 0.149307E+00_JPRB &
+  &, 0.140628E+00_JPRB, 0.132320E+00_JPRB, 0.124332E+00_JPRB, 0.116685E+00_JPRB &
+  &, 0.109379E+00_JPRB, 0.102414E+00_JPRB, 0.957641E-01_JPRB &
+  &, 0.894236E-01_JPRB, 0.834041E-01_JPRB, 0.776950E-01_JPRB, 0.722833E-01_JPRB &
+  &, 0.671760E-01_JPRB, 0.623324E-01_JPRB, 0.577788E-01_JPRB &
+  &, 0.534690E-01_JPRB, 0.494264E-01_JPRB, 0.456244E-01_JPRB, 0.420847E-01_JPRB &
+  &, 0.387507E-01_JPRB, 0.356139E-01_JPRB, 0.327189E-01_JPRB &
+  &, 0.300015E-01_JPRB, 0.274768E-01_JPRB, 0.251313E-01_JPRB, 0.229792E-01_JPRB &
+  &, 0.209451E-01_JPRB, 0.191002E-01_JPRB, 0.173647E-01_JPRB &
+  &, 0.157792E-01_JPRB, 0.143220E-01_JPRB, 0.129697E-01_JPRB, 0.117635E-01_JPRB &
+  &, 0.106110E-01_JPRB, 0.958608E-02_JPRB, 0.862658E-02_JPRB &
+  &, 0.777311E-02_JPRB, 0.699604E-02_JPRB, 0.626343E-02_JPRB, 0.561619E-02_JPRB &
+  &, 0.502131E-02_JPRB, 0.452113E-02_JPRB, 0.400251E-02_JPRB &
+  &, 0.358571E-02_JPRB, 0.319468E-02_JPRB, 0.283117E-02_JPRB, 0.249699E-02_JPRB &
+  &, 0.223679E-02_JPRB, 0.196748E-02_JPRB, 0.173310E-02_JPRB &
+  &, 0.153559E-02_JPRB, 0.137694E-02_JPRB, 0.121289E-02_JPRB, 0.104337E-02_JPRB &
+  &, 0.915991E-03_JPRB, 0.784431E-03_JPRB, 0.697766E-03_JPRB &
+  &, 0.608276E-03_JPRB, 0.515924E-03_JPRB, 0.472010E-03_JPRB, 0.374578E-03_JPRB &
+  &, 0.327019E-03_JPRB, 0.277982E-03_JPRB, 0.227450E-03_JPRB &
+  &, 0.230537E-03_JPRB, 0.177736E-03_JPRB, 0.180088E-03_JPRB, 0.124971E-03_JPRB &
+  &, 0.126563E-03_JPRB, 0.690831E-04_JPRB, 0.698907E-04_JPRB &
+  &, 0.707043E-04_JPRB, 0.715239E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 383, :) = (/ &
+  &  0.967104E+00_JPRB, 0.957972E+00_JPRB, 0.948490E+00_JPRB, 0.938667E+00_JPRB &
+  &, 0.928505E+00_JPRB, 0.918015E+00_JPRB, 0.907201E+00_JPRB &
+  &, 0.896071E+00_JPRB, 0.884634E+00_JPRB, 0.872897E+00_JPRB, 0.860868E+00_JPRB &
+  &, 0.848555E+00_JPRB, 0.835969E+00_JPRB, 0.823120E+00_JPRB &
+  &, 0.810013E+00_JPRB, 0.796663E+00_JPRB, 0.783077E+00_JPRB, 0.769267E+00_JPRB &
+  &, 0.755244E+00_JPRB, 0.741019E+00_JPRB, 0.726606E+00_JPRB &
+  &, 0.712018E+00_JPRB, 0.697265E+00_JPRB, 0.682365E+00_JPRB, 0.667327E+00_JPRB &
+  &, 0.652168E+00_JPRB, 0.636903E+00_JPRB, 0.621544E+00_JPRB &
+  &, 0.606112E+00_JPRB, 0.590618E+00_JPRB, 0.575083E+00_JPRB, 0.559517E+00_JPRB &
+  &, 0.543945E+00_JPRB, 0.528377E+00_JPRB, 0.512831E+00_JPRB &
+  &, 0.497322E+00_JPRB, 0.481882E+00_JPRB, 0.466515E+00_JPRB, 0.451237E+00_JPRB &
+  &, 0.436068E+00_JPRB, 0.421028E+00_JPRB, 0.406129E+00_JPRB &
+  &, 0.391395E+00_JPRB, 0.376841E+00_JPRB, 0.362469E+00_JPRB, 0.348307E+00_JPRB &
+  &, 0.334369E+00_JPRB, 0.320621E+00_JPRB, 0.307214E+00_JPRB &
+  &, 0.294014E+00_JPRB, 0.281095E+00_JPRB, 0.268445E+00_JPRB, 0.256101E+00_JPRB &
+  &, 0.244061E+00_JPRB, 0.232333E+00_JPRB, 0.220925E+00_JPRB &
+  &, 0.209842E+00_JPRB, 0.199089E+00_JPRB, 0.188667E+00_JPRB, 0.178593E+00_JPRB &
+  &, 0.168847E+00_JPRB, 0.159460E+00_JPRB, 0.150408E+00_JPRB &
+  &, 0.141717E+00_JPRB, 0.133358E+00_JPRB, 0.125336E+00_JPRB, 0.117653E+00_JPRB &
+  &, 0.110309E+00_JPRB, 0.103303E+00_JPRB, 0.966108E-01_JPRB &
+  &, 0.902461E-01_JPRB, 0.842008E-01_JPRB, 0.784424E-01_JPRB, 0.730013E-01_JPRB &
+  &, 0.678630E-01_JPRB, 0.629867E-01_JPRB, 0.583748E-01_JPRB &
+  &, 0.540527E-01_JPRB, 0.499722E-01_JPRB, 0.461557E-01_JPRB, 0.425749E-01_JPRB &
+  &, 0.391978E-01_JPRB, 0.360697E-01_JPRB, 0.331288E-01_JPRB &
+  &, 0.303914E-01_JPRB, 0.278457E-01_JPRB, 0.254782E-01_JPRB, 0.232737E-01_JPRB &
+  &, 0.212451E-01_JPRB, 0.193751E-01_JPRB, 0.176136E-01_JPRB &
+  &, 0.160325E-01_JPRB, 0.145476E-01_JPRB, 0.131994E-01_JPRB, 0.119304E-01_JPRB &
+  &, 0.107809E-01_JPRB, 0.975893E-02_JPRB, 0.880243E-02_JPRB &
+  &, 0.791621E-02_JPRB, 0.710520E-02_JPRB, 0.637444E-02_JPRB, 0.572906E-02_JPRB &
+  &, 0.513607E-02_JPRB, 0.459891E-02_JPRB, 0.408157E-02_JPRB &
+  &, 0.366606E-02_JPRB, 0.323550E-02_JPRB, 0.291415E-02_JPRB, 0.258130E-02_JPRB &
+  &, 0.227962E-02_JPRB, 0.201098E-02_JPRB, 0.177728E-02_JPRB &
+  &, 0.158046E-02_JPRB, 0.137694E-02_JPRB, 0.121289E-02_JPRB, 0.109034E-02_JPRB &
+  &, 0.915991E-03_JPRB, 0.832833E-03_JPRB, 0.697766E-03_JPRB &
+  &, 0.608276E-03_JPRB, 0.566517E-03_JPRB, 0.472010E-03_JPRB, 0.426660E-03_JPRB &
+  &, 0.327019E-03_JPRB, 0.277982E-03_JPRB, 0.281812E-03_JPRB &
+  &, 0.230537E-03_JPRB, 0.177736E-03_JPRB, 0.180088E-03_JPRB, 0.124971E-03_JPRB &
+  &, 0.126563E-03_JPRB, 0.690831E-04_JPRB, 0.698907E-04_JPRB &
+  &, 0.707043E-04_JPRB, 0.715239E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 384, :) = (/ &
+  &  0.967358E+00_JPRB, 0.958292E+00_JPRB, 0.948870E+00_JPRB, 0.939107E+00_JPRB &
+  &, 0.929006E+00_JPRB, 0.918573E+00_JPRB, 0.907816E+00_JPRB &
+  &, 0.896743E+00_JPRB, 0.885361E+00_JPRB, 0.873677E+00_JPRB, 0.861702E+00_JPRB &
+  &, 0.849441E+00_JPRB, 0.836904E+00_JPRB, 0.824102E+00_JPRB &
+  &, 0.811044E+00_JPRB, 0.797738E+00_JPRB, 0.784196E+00_JPRB, 0.770429E+00_JPRB &
+  &, 0.756447E+00_JPRB, 0.742262E+00_JPRB, 0.727887E+00_JPRB &
+  &, 0.713334E+00_JPRB, 0.698618E+00_JPRB, 0.683749E+00_JPRB, 0.668741E+00_JPRB &
+  &, 0.653609E+00_JPRB, 0.638371E+00_JPRB, 0.623040E+00_JPRB &
+  &, 0.607629E+00_JPRB, 0.592156E+00_JPRB, 0.576635E+00_JPRB, 0.561091E+00_JPRB &
+  &, 0.545529E+00_JPRB, 0.529974E+00_JPRB, 0.514441E+00_JPRB &
+  &, 0.498941E+00_JPRB, 0.483503E+00_JPRB, 0.468138E+00_JPRB, 0.452861E+00_JPRB &
+  &, 0.437692E+00_JPRB, 0.422651E+00_JPRB, 0.407749E+00_JPRB &
+  &, 0.393012E+00_JPRB, 0.378441E+00_JPRB, 0.364063E+00_JPRB, 0.349893E+00_JPRB &
+  &, 0.335933E+00_JPRB, 0.322211E+00_JPRB, 0.308741E+00_JPRB &
+  &, 0.295525E+00_JPRB, 0.282576E+00_JPRB, 0.269920E+00_JPRB, 0.257541E+00_JPRB &
+  &, 0.245477E+00_JPRB, 0.233723E+00_JPRB, 0.222272E+00_JPRB &
+  &, 0.211159E+00_JPRB, 0.200373E+00_JPRB, 0.189933E+00_JPRB, 0.179821E+00_JPRB &
+  &, 0.170053E+00_JPRB, 0.160623E+00_JPRB, 0.151544E+00_JPRB &
+  &, 0.142806E+00_JPRB, 0.134397E+00_JPRB, 0.126341E+00_JPRB, 0.118641E+00_JPRB &
+  &, 0.111259E+00_JPRB, 0.104213E+00_JPRB, 0.974781E-01_JPRB &
+  &, 0.910685E-01_JPRB, 0.849975E-01_JPRB, 0.792118E-01_JPRB, 0.737194E-01_JPRB &
+  &, 0.685500E-01_JPRB, 0.636410E-01_JPRB, 0.590186E-01_JPRB &
+  &, 0.546365E-01_JPRB, 0.505428E-01_JPRB, 0.466870E-01_JPRB, 0.430650E-01_JPRB &
+  &, 0.396712E-01_JPRB, 0.364986E-01_JPRB, 0.335387E-01_JPRB &
+  &, 0.307812E-01_JPRB, 0.282145E-01_JPRB, 0.258251E-01_JPRB, 0.235976E-01_JPRB &
+  &, 0.215450E-01_JPRB, 0.196500E-01_JPRB, 0.178935E-01_JPRB &
+  &, 0.162541E-01_JPRB, 0.147733E-01_JPRB, 0.133962E-01_JPRB, 0.121308E-01_JPRB &
+  &, 0.109508E-01_JPRB, 0.989722E-02_JPRB, 0.894311E-02_JPRB &
+  &, 0.805931E-02_JPRB, 0.725074E-02_JPRB, 0.648545E-02_JPRB, 0.584194E-02_JPRB &
+  &, 0.521258E-02_JPRB, 0.467668E-02_JPRB, 0.416063E-02_JPRB &
+  &, 0.374641E-02_JPRB, 0.331716E-02_JPRB, 0.295563E-02_JPRB, 0.262345E-02_JPRB &
+  &, 0.232244E-02_JPRB, 0.205447E-02_JPRB, 0.182146E-02_JPRB &
+  &, 0.162533E-02_JPRB, 0.142251E-02_JPRB, 0.125916E-02_JPRB, 0.109034E-02_JPRB &
+  &, 0.963674E-03_JPRB, 0.832833E-03_JPRB, 0.746892E-03_JPRB &
+  &, 0.658132E-03_JPRB, 0.566517E-03_JPRB, 0.472010E-03_JPRB, 0.426660E-03_JPRB &
+  &, 0.379856E-03_JPRB, 0.331579E-03_JPRB, 0.281812E-03_JPRB &
+  &, 0.230537E-03_JPRB, 0.177736E-03_JPRB, 0.180088E-03_JPRB, 0.124971E-03_JPRB &
+  &, 0.126563E-03_JPRB, 0.690831E-04_JPRB, 0.698907E-04_JPRB &
+  &, 0.707043E-04_JPRB, 0.715239E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 385, :) = (/ &
+  &  0.967617E+00_JPRB, 0.958609E+00_JPRB, 0.949251E+00_JPRB, 0.939548E+00_JPRB &
+  &, 0.929505E+00_JPRB, 0.919131E+00_JPRB, 0.908432E+00_JPRB &
+  &, 0.897415E+00_JPRB, 0.886087E+00_JPRB, 0.874458E+00_JPRB, 0.862535E+00_JPRB &
+  &, 0.850324E+00_JPRB, 0.837839E+00_JPRB, 0.825086E+00_JPRB &
+  &, 0.812075E+00_JPRB, 0.798815E+00_JPRB, 0.785316E+00_JPRB, 0.771592E+00_JPRB &
+  &, 0.757652E+00_JPRB, 0.743506E+00_JPRB, 0.729171E+00_JPRB &
+  &, 0.714653E+00_JPRB, 0.699968E+00_JPRB, 0.685131E+00_JPRB, 0.670155E+00_JPRB &
+  &, 0.655053E+00_JPRB, 0.639843E+00_JPRB, 0.624532E+00_JPRB &
+  &, 0.609146E+00_JPRB, 0.593695E+00_JPRB, 0.578196E+00_JPRB, 0.562662E+00_JPRB &
+  &, 0.547117E+00_JPRB, 0.531576E+00_JPRB, 0.516051E+00_JPRB &
+  &, 0.500559E+00_JPRB, 0.485125E+00_JPRB, 0.469761E+00_JPRB, 0.454496E+00_JPRB &
+  &, 0.439326E+00_JPRB, 0.424284E+00_JPRB, 0.409370E+00_JPRB &
+  &, 0.394629E+00_JPRB, 0.380053E+00_JPRB, 0.365657E+00_JPRB, 0.351467E+00_JPRB &
+  &, 0.337497E+00_JPRB, 0.323763E+00_JPRB, 0.310267E+00_JPRB &
+  &, 0.297036E+00_JPRB, 0.284070E+00_JPRB, 0.271381E+00_JPRB, 0.258980E+00_JPRB &
+  &, 0.246893E+00_JPRB, 0.235099E+00_JPRB, 0.223635E+00_JPRB &
+  &, 0.212492E+00_JPRB, 0.201674E+00_JPRB, 0.191182E+00_JPRB, 0.181049E+00_JPRB &
+  &, 0.171241E+00_JPRB, 0.161786E+00_JPRB, 0.152662E+00_JPRB &
+  &, 0.143895E+00_JPRB, 0.135454E+00_JPRB, 0.127365E+00_JPRB, 0.119610E+00_JPRB &
+  &, 0.112189E+00_JPRB, 0.105103E+00_JPRB, 0.983454E-01_JPRB &
+  &, 0.919120E-01_JPRB, 0.857942E-01_JPRB, 0.799812E-01_JPRB, 0.744598E-01_JPRB &
+  &, 0.692370E-01_JPRB, 0.642953E-01_JPRB, 0.596385E-01_JPRB &
+  &, 0.552445E-01_JPRB, 0.511133E-01_JPRB, 0.472183E-01_JPRB, 0.435551E-01_JPRB &
+  &, 0.401446E-01_JPRB, 0.369544E-01_JPRB, 0.339759E-01_JPRB &
+  &, 0.311711E-01_JPRB, 0.285834E-01_JPRB, 0.261720E-01_JPRB, 0.239215E-01_JPRB &
+  &, 0.218449E-01_JPRB, 0.199249E-01_JPRB, 0.181423E-01_JPRB &
+  &, 0.165074E-01_JPRB, 0.149989E-01_JPRB, 0.135931E-01_JPRB, 0.123311E-01_JPRB &
+  &, 0.111547E-01_JPRB, 0.100701E-01_JPRB, 0.908379E-02_JPRB &
+  &, 0.820241E-02_JPRB, 0.735990E-02_JPRB, 0.663346E-02_JPRB, 0.595482E-02_JPRB &
+  &, 0.532734E-02_JPRB, 0.475446E-02_JPRB, 0.423969E-02_JPRB &
+  &, 0.378659E-02_JPRB, 0.339882E-02_JPRB, 0.299712E-02_JPRB, 0.266560E-02_JPRB &
+  &, 0.236526E-02_JPRB, 0.209797E-02_JPRB, 0.186564E-02_JPRB &
+  &, 0.162533E-02_JPRB, 0.146807E-02_JPRB, 0.125916E-02_JPRB, 0.113731E-02_JPRB &
+  &, 0.963674E-03_JPRB, 0.881235E-03_JPRB, 0.746892E-03_JPRB &
+  &, 0.658132E-03_JPRB, 0.566517E-03_JPRB, 0.523345E-03_JPRB, 0.426660E-03_JPRB &
+  &, 0.379856E-03_JPRB, 0.331579E-03_JPRB, 0.281812E-03_JPRB &
+  &, 0.230537E-03_JPRB, 0.177736E-03_JPRB, 0.180088E-03_JPRB, 0.124971E-03_JPRB &
+  &, 0.126563E-03_JPRB, 0.690831E-04_JPRB, 0.698907E-04_JPRB &
+  &, 0.707043E-04_JPRB, 0.715239E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART55',1,ZHOOK_HANDLE)
+END SUBROUTINE PART55
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART56
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART56',0,ZHOOK_HANDLE)
+
+XCW( 386, :) = (/ &
+  &  0.967874E+00_JPRB, 0.958927E+00_JPRB, 0.949630E+00_JPRB, 0.939988E+00_JPRB &
+  &, 0.930005E+00_JPRB, 0.919689E+00_JPRB, 0.909047E+00_JPRB &
+  &, 0.898086E+00_JPRB, 0.886813E+00_JPRB, 0.875238E+00_JPRB, 0.863368E+00_JPRB &
+  &, 0.851210E+00_JPRB, 0.838774E+00_JPRB, 0.826068E+00_JPRB &
+  &, 0.813105E+00_JPRB, 0.799890E+00_JPRB, 0.786438E+00_JPRB, 0.772755E+00_JPRB &
+  &, 0.758857E+00_JPRB, 0.744750E+00_JPRB, 0.730452E+00_JPRB &
+  &, 0.715970E+00_JPRB, 0.701321E+00_JPRB, 0.686512E+00_JPRB, 0.671572E+00_JPRB &
+  &, 0.656497E+00_JPRB, 0.641314E+00_JPRB, 0.626028E+00_JPRB &
+  &, 0.610664E+00_JPRB, 0.595234E+00_JPRB, 0.579752E+00_JPRB, 0.564240E+00_JPRB &
+  &, 0.548710E+00_JPRB, 0.533178E+00_JPRB, 0.517662E+00_JPRB &
+  &, 0.502178E+00_JPRB, 0.486755E+00_JPRB, 0.471394E+00_JPRB, 0.456130E+00_JPRB &
+  &, 0.440961E+00_JPRB, 0.425907E+00_JPRB, 0.411001E+00_JPRB &
+  &, 0.396246E+00_JPRB, 0.381654E+00_JPRB, 0.367263E+00_JPRB, 0.353053E+00_JPRB &
+  &, 0.339073E+00_JPRB, 0.325316E+00_JPRB, 0.311807E+00_JPRB &
+  &, 0.298547E+00_JPRB, 0.285564E+00_JPRB, 0.272856E+00_JPRB, 0.260434E+00_JPRB &
+  &, 0.248309E+00_JPRB, 0.236490E+00_JPRB, 0.224998E+00_JPRB &
+  &, 0.213825E+00_JPRB, 0.202974E+00_JPRB, 0.192464E+00_JPRB, 0.182277E+00_JPRB &
+  &, 0.172446E+00_JPRB, 0.162949E+00_JPRB, 0.153798E+00_JPRB &
+  &, 0.144983E+00_JPRB, 0.136512E+00_JPRB, 0.128388E+00_JPRB, 0.120598E+00_JPRB &
+  &, 0.113139E+00_JPRB, 0.106012E+00_JPRB, 0.992334E-01_JPRB &
+  &, 0.927555E-01_JPRB, 0.865909E-01_JPRB, 0.807286E-01_JPRB, 0.751778E-01_JPRB &
+  &, 0.699240E-01_JPRB, 0.649496E-01_JPRB, 0.602584E-01_JPRB &
+  &, 0.558282E-01_JPRB, 0.516591E-01_JPRB, 0.477496E-01_JPRB, 0.440711E-01_JPRB &
+  &, 0.406180E-01_JPRB, 0.374102E-01_JPRB, 0.343858E-01_JPRB &
+  &, 0.315610E-01_JPRB, 0.289523E-01_JPRB, 0.265189E-01_JPRB, 0.242454E-01_JPRB &
+  &, 0.221449E-01_JPRB, 0.201998E-01_JPRB, 0.184222E-01_JPRB &
+  &, 0.167608E-01_JPRB, 0.152245E-01_JPRB, 0.138227E-01_JPRB, 0.124981E-01_JPRB &
+  &, 0.113245E-01_JPRB, 0.102429E-01_JPRB, 0.922446E-02_JPRB &
+  &, 0.830973E-02_JPRB, 0.750544E-02_JPRB, 0.674446E-02_JPRB, 0.603007E-02_JPRB &
+  &, 0.540385E-02_JPRB, 0.487113E-02_JPRB, 0.435828E-02_JPRB &
+  &, 0.386694E-02_JPRB, 0.343965E-02_JPRB, 0.308010E-02_JPRB, 0.274991E-02_JPRB &
+  &, 0.240808E-02_JPRB, 0.214147E-02_JPRB, 0.190982E-02_JPRB &
+  &, 0.167020E-02_JPRB, 0.146807E-02_JPRB, 0.130542E-02_JPRB, 0.113731E-02_JPRB &
+  &, 0.101136E-02_JPRB, 0.881235E-03_JPRB, 0.796018E-03_JPRB &
+  &, 0.658132E-03_JPRB, 0.566517E-03_JPRB, 0.523345E-03_JPRB, 0.426660E-03_JPRB &
+  &, 0.379856E-03_JPRB, 0.331579E-03_JPRB, 0.281812E-03_JPRB &
+  &, 0.230537E-03_JPRB, 0.233649E-03_JPRB, 0.180088E-03_JPRB, 0.124971E-03_JPRB &
+  &, 0.126563E-03_JPRB, 0.128166E-03_JPRB, 0.698907E-04_JPRB &
+  &, 0.707043E-04_JPRB, 0.715239E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 387, :) = (/ &
+  &  0.968127E+00_JPRB, 0.959247E+00_JPRB, 0.950009E+00_JPRB, 0.940427E+00_JPRB &
+  &, 0.930504E+00_JPRB, 0.920247E+00_JPRB, 0.909662E+00_JPRB &
+  &, 0.898757E+00_JPRB, 0.887540E+00_JPRB, 0.876018E+00_JPRB, 0.864201E+00_JPRB &
+  &, 0.852093E+00_JPRB, 0.839709E+00_JPRB, 0.827052E+00_JPRB &
+  &, 0.814136E+00_JPRB, 0.800967E+00_JPRB, 0.787559E+00_JPRB, 0.773920E+00_JPRB &
+  &, 0.760062E+00_JPRB, 0.745996E+00_JPRB, 0.731733E+00_JPRB &
+  &, 0.717289E+00_JPRB, 0.702675E+00_JPRB, 0.687903E+00_JPRB, 0.672986E+00_JPRB &
+  &, 0.657945E+00_JPRB, 0.642786E+00_JPRB, 0.627528E+00_JPRB &
+  &, 0.612185E+00_JPRB, 0.596776E+00_JPRB, 0.581313E+00_JPRB, 0.565814E+00_JPRB &
+  &, 0.550298E+00_JPRB, 0.534784E+00_JPRB, 0.519281E+00_JPRB &
+  &, 0.503805E+00_JPRB, 0.488386E+00_JPRB, 0.473027E+00_JPRB, 0.457764E+00_JPRB &
+  &, 0.442595E+00_JPRB, 0.427540E+00_JPRB, 0.412632E+00_JPRB &
+  &, 0.397863E+00_JPRB, 0.383277E+00_JPRB, 0.368857E+00_JPRB, 0.354651E+00_JPRB &
+  &, 0.340650E+00_JPRB, 0.326881E+00_JPRB, 0.313346E+00_JPRB &
+  &, 0.300071E+00_JPRB, 0.287058E+00_JPRB, 0.274330E+00_JPRB, 0.261888E+00_JPRB &
+  &, 0.249740E+00_JPRB, 0.237895E+00_JPRB, 0.226361E+00_JPRB &
+  &, 0.215158E+00_JPRB, 0.204274E+00_JPRB, 0.193729E+00_JPRB, 0.183522E+00_JPRB &
+  &, 0.173651E+00_JPRB, 0.164113E+00_JPRB, 0.154934E+00_JPRB &
+  &, 0.146090E+00_JPRB, 0.137569E+00_JPRB, 0.129412E+00_JPRB, 0.121586E+00_JPRB &
+  &, 0.114089E+00_JPRB, 0.106942E+00_JPRB, 0.100101E+00_JPRB &
+  &, 0.935991E-01_JPRB, 0.874091E-01_JPRB, 0.815199E-01_JPRB, 0.759183E-01_JPRB &
+  &, 0.706339E-01_JPRB, 0.656273E-01_JPRB, 0.609021E-01_JPRB &
+  &, 0.564363E-01_JPRB, 0.522297E-01_JPRB, 0.482808E-01_JPRB, 0.445870E-01_JPRB &
+  &, 0.411177E-01_JPRB, 0.378659E-01_JPRB, 0.348230E-01_JPRB &
+  &, 0.319787E-01_JPRB, 0.293212E-01_JPRB, 0.268658E-01_JPRB, 0.245694E-01_JPRB &
+  &, 0.224448E-01_JPRB, 0.205053E-01_JPRB, 0.186710E-01_JPRB &
+  &, 0.169824E-01_JPRB, 0.154502E-01_JPRB, 0.140196E-01_JPRB, 0.126984E-01_JPRB &
+  &, 0.114944E-01_JPRB, 0.104158E-01_JPRB, 0.940031E-02_JPRB &
+  &, 0.845283E-02_JPRB, 0.761460E-02_JPRB, 0.685547E-02_JPRB, 0.614294E-02_JPRB &
+  &, 0.551861E-02_JPRB, 0.494891E-02_JPRB, 0.443734E-02_JPRB &
+  &, 0.394730E-02_JPRB, 0.352131E-02_JPRB, 0.312159E-02_JPRB, 0.279206E-02_JPRB &
+  &, 0.249373E-02_JPRB, 0.218497E-02_JPRB, 0.195400E-02_JPRB &
+  &, 0.171507E-02_JPRB, 0.151364E-02_JPRB, 0.135169E-02_JPRB, 0.118429E-02_JPRB &
+  &, 0.101136E-02_JPRB, 0.929637E-03_JPRB, 0.796018E-03_JPRB &
+  &, 0.707988E-03_JPRB, 0.617109E-03_JPRB, 0.523345E-03_JPRB, 0.478743E-03_JPRB &
+  &, 0.379856E-03_JPRB, 0.331579E-03_JPRB, 0.281812E-03_JPRB &
+  &, 0.230537E-03_JPRB, 0.233649E-03_JPRB, 0.180088E-03_JPRB, 0.124971E-03_JPRB &
+  &, 0.126563E-03_JPRB, 0.128166E-03_JPRB, 0.698907E-04_JPRB &
+  &, 0.707043E-04_JPRB, 0.715239E-04_JPRB, 0.723494E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 388, :) = (/ &
+  &  0.968384E+00_JPRB, 0.959564E+00_JPRB, 0.950388E+00_JPRB, 0.940867E+00_JPRB &
+  &, 0.931003E+00_JPRB, 0.920804E+00_JPRB, 0.910276E+00_JPRB &
+  &, 0.899428E+00_JPRB, 0.888266E+00_JPRB, 0.876799E+00_JPRB, 0.865034E+00_JPRB &
+  &, 0.852979E+00_JPRB, 0.840643E+00_JPRB, 0.828036E+00_JPRB &
+  &, 0.815167E+00_JPRB, 0.802044E+00_JPRB, 0.788680E+00_JPRB, 0.775083E+00_JPRB &
+  &, 0.761267E+00_JPRB, 0.747240E+00_JPRB, 0.733017E+00_JPRB &
+  &, 0.718609E+00_JPRB, 0.704028E+00_JPRB, 0.689288E+00_JPRB, 0.674404E+00_JPRB &
+  &, 0.659389E+00_JPRB, 0.644257E+00_JPRB, 0.629028E+00_JPRB &
+  &, 0.613706E+00_JPRB, 0.598319E+00_JPRB, 0.582874E+00_JPRB, 0.567393E+00_JPRB &
+  &, 0.551894E+00_JPRB, 0.536389E+00_JPRB, 0.520896E+00_JPRB &
+  &, 0.505433E+00_JPRB, 0.490017E+00_JPRB, 0.474670E+00_JPRB, 0.459398E+00_JPRB &
+  &, 0.444229E+00_JPRB, 0.429184E+00_JPRB, 0.414264E+00_JPRB &
+  &, 0.399491E+00_JPRB, 0.384889E+00_JPRB, 0.370463E+00_JPRB, 0.356248E+00_JPRB &
+  &, 0.342226E+00_JPRB, 0.328446E+00_JPRB, 0.314898E+00_JPRB &
+  &, 0.301596E+00_JPRB, 0.288565E+00_JPRB, 0.275805E+00_JPRB, 0.263342E+00_JPRB &
+  &, 0.251171E+00_JPRB, 0.239301E+00_JPRB, 0.227739E+00_JPRB &
+  &, 0.216506E+00_JPRB, 0.205591E+00_JPRB, 0.195011E+00_JPRB, 0.184767E+00_JPRB &
+  &, 0.174857E+00_JPRB, 0.165293E+00_JPRB, 0.156070E+00_JPRB &
+  &, 0.147179E+00_JPRB, 0.138645E+00_JPRB, 0.130455E+00_JPRB, 0.122593E+00_JPRB &
+  &, 0.115059E+00_JPRB, 0.107872E+00_JPRB, 0.100989E+00_JPRB &
+  &, 0.944426E-01_JPRB, 0.882058E-01_JPRB, 0.822893E-01_JPRB, 0.766812E-01_JPRB &
+  &, 0.713438E-01_JPRB, 0.663050E-01_JPRB, 0.615458E-01_JPRB &
+  &, 0.570443E-01_JPRB, 0.528250E-01_JPRB, 0.488374E-01_JPRB, 0.451030E-01_JPRB &
+  &, 0.415912E-01_JPRB, 0.383217E-01_JPRB, 0.352329E-01_JPRB &
+  &, 0.323685E-01_JPRB, 0.297184E-01_JPRB, 0.272127E-01_JPRB, 0.249227E-01_JPRB &
+  &, 0.227747E-01_JPRB, 0.207802E-01_JPRB, 0.189509E-01_JPRB &
+  &, 0.172357E-01_JPRB, 0.156758E-01_JPRB, 0.142493E-01_JPRB, 0.128987E-01_JPRB &
+  &, 0.116983E-01_JPRB, 0.105886E-01_JPRB, 0.954099E-02_JPRB &
+  &, 0.859593E-02_JPRB, 0.776014E-02_JPRB, 0.696648E-02_JPRB, 0.625582E-02_JPRB &
+  &, 0.563337E-02_JPRB, 0.502669E-02_JPRB, 0.451640E-02_JPRB &
+  &, 0.402765E-02_JPRB, 0.360297E-02_JPRB, 0.320456E-02_JPRB, 0.283421E-02_JPRB &
+  &, 0.253655E-02_JPRB, 0.222847E-02_JPRB, 0.199819E-02_JPRB &
+  &, 0.175994E-02_JPRB, 0.155920E-02_JPRB, 0.135169E-02_JPRB, 0.118429E-02_JPRB &
+  &, 0.105904E-02_JPRB, 0.929637E-03_JPRB, 0.796018E-03_JPRB &
+  &, 0.707988E-03_JPRB, 0.617109E-03_JPRB, 0.523345E-03_JPRB, 0.478743E-03_JPRB &
+  &, 0.379856E-03_JPRB, 0.331579E-03_JPRB, 0.281812E-03_JPRB &
+  &, 0.230537E-03_JPRB, 0.233649E-03_JPRB, 0.180088E-03_JPRB, 0.182457E-03_JPRB &
+  &, 0.126563E-03_JPRB, 0.128166E-03_JPRB, 0.698907E-04_JPRB &
+  &, 0.707043E-04_JPRB, 0.715239E-04_JPRB, 0.723494E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 389, :) = (/ &
+  &  0.968640E+00_JPRB, 0.959883E+00_JPRB, 0.950768E+00_JPRB, 0.941307E+00_JPRB &
+  &, 0.931502E+00_JPRB, 0.921361E+00_JPRB, 0.910891E+00_JPRB &
+  &, 0.900099E+00_JPRB, 0.888992E+00_JPRB, 0.877579E+00_JPRB, 0.865866E+00_JPRB &
+  &, 0.853862E+00_JPRB, 0.841577E+00_JPRB, 0.829019E+00_JPRB &
+  &, 0.816197E+00_JPRB, 0.803121E+00_JPRB, 0.789802E+00_JPRB, 0.776248E+00_JPRB &
+  &, 0.762473E+00_JPRB, 0.748487E+00_JPRB, 0.734301E+00_JPRB &
+  &, 0.719929E+00_JPRB, 0.705384E+00_JPRB, 0.690676E+00_JPRB, 0.675825E+00_JPRB &
+  &, 0.660836E+00_JPRB, 0.645732E+00_JPRB, 0.630527E+00_JPRB &
+  &, 0.615231E+00_JPRB, 0.599862E+00_JPRB, 0.584438E+00_JPRB, 0.568976E+00_JPRB &
+  &, 0.553491E+00_JPRB, 0.538000E+00_JPRB, 0.522515E+00_JPRB &
+  &, 0.507061E+00_JPRB, 0.491657E+00_JPRB, 0.476313E+00_JPRB, 0.461042E+00_JPRB &
+  &, 0.445874E+00_JPRB, 0.430818E+00_JPRB, 0.415895E+00_JPRB &
+  &, 0.401119E+00_JPRB, 0.386513E+00_JPRB, 0.372080E+00_JPRB, 0.357846E+00_JPRB &
+  &, 0.343814E+00_JPRB, 0.330011E+00_JPRB, 0.316450E+00_JPRB &
+  &, 0.303133E+00_JPRB, 0.290072E+00_JPRB, 0.277294E+00_JPRB, 0.264796E+00_JPRB &
+  &, 0.252601E+00_JPRB, 0.240706E+00_JPRB, 0.229117E+00_JPRB &
+  &, 0.217854E+00_JPRB, 0.206907E+00_JPRB, 0.196292E+00_JPRB, 0.186012E+00_JPRB &
+  &, 0.176079E+00_JPRB, 0.166474E+00_JPRB, 0.157224E+00_JPRB &
+  &, 0.148304E+00_JPRB, 0.139721E+00_JPRB, 0.131479E+00_JPRB, 0.123581E+00_JPRB &
+  &, 0.116029E+00_JPRB, 0.108782E+00_JPRB, 0.101877E+00_JPRB &
+  &, 0.953072E-01_JPRB, 0.890240E-01_JPRB, 0.830807E-01_JPRB, 0.774217E-01_JPRB &
+  &, 0.720537E-01_JPRB, 0.669827E-01_JPRB, 0.621895E-01_JPRB &
+  &, 0.576524E-01_JPRB, 0.533956E-01_JPRB, 0.493940E-01_JPRB, 0.456189E-01_JPRB &
+  &, 0.420909E-01_JPRB, 0.387775E-01_JPRB, 0.356701E-01_JPRB &
+  &, 0.327863E-01_JPRB, 0.300873E-01_JPRB, 0.275885E-01_JPRB, 0.252466E-01_JPRB &
+  &, 0.230747E-01_JPRB, 0.210856E-01_JPRB, 0.192308E-01_JPRB &
+  &, 0.174891E-01_JPRB, 0.159015E-01_JPRB, 0.144461E-01_JPRB, 0.130991E-01_JPRB &
+  &, 0.118682E-01_JPRB, 0.107615E-01_JPRB, 0.971684E-02_JPRB &
+  &, 0.877480E-02_JPRB, 0.790568E-02_JPRB, 0.711449E-02_JPRB, 0.636870E-02_JPRB &
+  &, 0.570988E-02_JPRB, 0.514335E-02_JPRB, 0.459546E-02_JPRB &
+  &, 0.410800E-02_JPRB, 0.368463E-02_JPRB, 0.324605E-02_JPRB, 0.291852E-02_JPRB &
+  &, 0.257938E-02_JPRB, 0.227197E-02_JPRB, 0.204237E-02_JPRB &
+  &, 0.180482E-02_JPRB, 0.160477E-02_JPRB, 0.139795E-02_JPRB, 0.123126E-02_JPRB &
+  &, 0.110673E-02_JPRB, 0.929637E-03_JPRB, 0.845144E-03_JPRB &
+  &, 0.707988E-03_JPRB, 0.617109E-03_JPRB, 0.574679E-03_JPRB, 0.478743E-03_JPRB &
+  &, 0.432692E-03_JPRB, 0.385175E-03_JPRB, 0.336174E-03_JPRB &
+  &, 0.285671E-03_JPRB, 0.233649E-03_JPRB, 0.180088E-03_JPRB, 0.182457E-03_JPRB &
+  &, 0.126563E-03_JPRB, 0.128166E-03_JPRB, 0.698907E-04_JPRB &
+  &, 0.707043E-04_JPRB, 0.715239E-04_JPRB, 0.723494E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 390, :) = (/ &
+  &  0.968895E+00_JPRB, 0.960199E+00_JPRB, 0.951147E+00_JPRB, 0.941746E+00_JPRB &
+  &, 0.932001E+00_JPRB, 0.921919E+00_JPRB, 0.911506E+00_JPRB &
+  &, 0.900770E+00_JPRB, 0.889718E+00_JPRB, 0.878359E+00_JPRB, 0.866699E+00_JPRB &
+  &, 0.854748E+00_JPRB, 0.842512E+00_JPRB, 0.830002E+00_JPRB &
+  &, 0.817228E+00_JPRB, 0.804197E+00_JPRB, 0.790922E+00_JPRB, 0.777413E+00_JPRB &
+  &, 0.763678E+00_JPRB, 0.749734E+00_JPRB, 0.735585E+00_JPRB &
+  &, 0.721251E+00_JPRB, 0.706738E+00_JPRB, 0.692065E+00_JPRB, 0.677242E+00_JPRB &
+  &, 0.662288E+00_JPRB, 0.647211E+00_JPRB, 0.632027E+00_JPRB &
+  &, 0.616755E+00_JPRB, 0.601408E+00_JPRB, 0.586007E+00_JPRB, 0.570559E+00_JPRB &
+  &, 0.555088E+00_JPRB, 0.539610E+00_JPRB, 0.524139E+00_JPRB &
+  &, 0.508689E+00_JPRB, 0.493288E+00_JPRB, 0.477955E+00_JPRB, 0.462686E+00_JPRB &
+  &, 0.447519E+00_JPRB, 0.432462E+00_JPRB, 0.417537E+00_JPRB &
+  &, 0.402758E+00_JPRB, 0.388136E+00_JPRB, 0.373697E+00_JPRB, 0.359444E+00_JPRB &
+  &, 0.345403E+00_JPRB, 0.331588E+00_JPRB, 0.318002E+00_JPRB &
+  &, 0.304657E+00_JPRB, 0.291593E+00_JPRB, 0.278783E+00_JPRB, 0.266263E+00_JPRB &
+  &, 0.254047E+00_JPRB, 0.242112E+00_JPRB, 0.230510E+00_JPRB &
+  &, 0.219202E+00_JPRB, 0.208239E+00_JPRB, 0.197590E+00_JPRB, 0.187273E+00_JPRB &
+  &, 0.177301E+00_JPRB, 0.167671E+00_JPRB, 0.158378E+00_JPRB &
+  &, 0.149411E+00_JPRB, 0.140797E+00_JPRB, 0.132540E+00_JPRB, 0.124588E+00_JPRB &
+  &, 0.116999E+00_JPRB, 0.109732E+00_JPRB, 0.102785E+00_JPRB &
+  &, 0.961718E-01_JPRB, 0.898637E-01_JPRB, 0.838720E-01_JPRB, 0.781845E-01_JPRB &
+  &, 0.727865E-01_JPRB, 0.676603E-01_JPRB, 0.628333E-01_JPRB &
+  &, 0.582847E-01_JPRB, 0.539910E-01_JPRB, 0.499506E-01_JPRB, 0.461348E-01_JPRB &
+  &, 0.425906E-01_JPRB, 0.392333E-01_JPRB, 0.361073E-01_JPRB &
+  &, 0.332040E-01_JPRB, 0.304845E-01_JPRB, 0.279354E-01_JPRB, 0.256000E-01_JPRB &
+  &, 0.234046E-01_JPRB, 0.213605E-01_JPRB, 0.194797E-01_JPRB &
+  &, 0.177424E-01_JPRB, 0.161593E-01_JPRB, 0.146758E-01_JPRB, 0.132994E-01_JPRB &
+  &, 0.120721E-01_JPRB, 0.109343E-01_JPRB, 0.985752E-02_JPRB &
+  &, 0.891790E-02_JPRB, 0.801484E-02_JPRB, 0.722550E-02_JPRB, 0.648157E-02_JPRB &
+  &, 0.582465E-02_JPRB, 0.522113E-02_JPRB, 0.467452E-02_JPRB &
+  &, 0.418836E-02_JPRB, 0.372545E-02_JPRB, 0.332902E-02_JPRB, 0.296067E-02_JPRB &
+  &, 0.262220E-02_JPRB, 0.235897E-02_JPRB, 0.208655E-02_JPRB &
+  &, 0.184969E-02_JPRB, 0.160477E-02_JPRB, 0.144422E-02_JPRB, 0.127823E-02_JPRB &
+  &, 0.110673E-02_JPRB, 0.978039E-03_JPRB, 0.845144E-03_JPRB &
+  &, 0.757844E-03_JPRB, 0.667701E-03_JPRB, 0.574679E-03_JPRB, 0.478743E-03_JPRB &
+  &, 0.432692E-03_JPRB, 0.385175E-03_JPRB, 0.336174E-03_JPRB &
+  &, 0.285671E-03_JPRB, 0.233649E-03_JPRB, 0.180088E-03_JPRB, 0.182457E-03_JPRB &
+  &, 0.126563E-03_JPRB, 0.128166E-03_JPRB, 0.698907E-04_JPRB &
+  &, 0.707043E-04_JPRB, 0.715239E-04_JPRB, 0.723494E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 391, :) = (/ &
+  &  0.969151E+00_JPRB, 0.960518E+00_JPRB, 0.951526E+00_JPRB, 0.942185E+00_JPRB &
+  &, 0.932498E+00_JPRB, 0.922475E+00_JPRB, 0.912119E+00_JPRB &
+  &, 0.901440E+00_JPRB, 0.890444E+00_JPRB, 0.879139E+00_JPRB, 0.867532E+00_JPRB &
+  &, 0.855631E+00_JPRB, 0.843446E+00_JPRB, 0.830985E+00_JPRB &
+  &, 0.818259E+00_JPRB, 0.805276E+00_JPRB, 0.792044E+00_JPRB, 0.778578E+00_JPRB &
+  &, 0.764885E+00_JPRB, 0.750977E+00_JPRB, 0.736869E+00_JPRB &
+  &, 0.722571E+00_JPRB, 0.708094E+00_JPRB, 0.693456E+00_JPRB, 0.678663E+00_JPRB &
+  &, 0.663735E+00_JPRB, 0.648687E+00_JPRB, 0.633531E+00_JPRB &
+  &, 0.618280E+00_JPRB, 0.602959E+00_JPRB, 0.587572E+00_JPRB, 0.572146E+00_JPRB &
+  &, 0.556689E+00_JPRB, 0.541221E+00_JPRB, 0.525763E+00_JPRB &
+  &, 0.510326E+00_JPRB, 0.494928E+00_JPRB, 0.479598E+00_JPRB, 0.464341E+00_JPRB &
+  &, 0.449173E+00_JPRB, 0.434116E+00_JPRB, 0.419179E+00_JPRB &
+  &, 0.404397E+00_JPRB, 0.389770E+00_JPRB, 0.375314E+00_JPRB, 0.361054E+00_JPRB &
+  &, 0.346991E+00_JPRB, 0.333166E+00_JPRB, 0.319554E+00_JPRB &
+  &, 0.306208E+00_JPRB, 0.293114E+00_JPRB, 0.280285E+00_JPRB, 0.267745E+00_JPRB &
+  &, 0.255492E+00_JPRB, 0.243532E+00_JPRB, 0.231888E+00_JPRB &
+  &, 0.220566E+00_JPRB, 0.209555E+00_JPRB, 0.198888E+00_JPRB, 0.188534E+00_JPRB &
+  &, 0.178540E+00_JPRB, 0.168869E+00_JPRB, 0.159532E+00_JPRB &
+  &, 0.150536E+00_JPRB, 0.141891E+00_JPRB, 0.133583E+00_JPRB, 0.125615E+00_JPRB &
+  &, 0.117969E+00_JPRB, 0.110663E+00_JPRB, 0.103694E+00_JPRB &
+  &, 0.970364E-01_JPRB, 0.906820E-01_JPRB, 0.846634E-01_JPRB, 0.789250E-01_JPRB &
+  &, 0.734964E-01_JPRB, 0.683614E-01_JPRB, 0.635008E-01_JPRB &
+  &, 0.589171E-01_JPRB, 0.545864E-01_JPRB, 0.505072E-01_JPRB, 0.466766E-01_JPRB &
+  &, 0.430903E-01_JPRB, 0.397158E-01_JPRB, 0.365718E-01_JPRB &
+  &, 0.336217E-01_JPRB, 0.308818E-01_JPRB, 0.283112E-01_JPRB, 0.259239E-01_JPRB &
+  &, 0.237345E-01_JPRB, 0.216660E-01_JPRB, 0.197596E-01_JPRB &
+  &, 0.180274E-01_JPRB, 0.163850E-01_JPRB, 0.149055E-01_JPRB, 0.135332E-01_JPRB &
+  &, 0.122419E-01_JPRB, 0.111072E-01_JPRB, 0.100334E-01_JPRB &
+  &, 0.906100E-02_JPRB, 0.816038E-02_JPRB, 0.733651E-02_JPRB, 0.659445E-02_JPRB &
+  &, 0.593941E-02_JPRB, 0.533780E-02_JPRB, 0.475357E-02_JPRB &
+  &, 0.426871E-02_JPRB, 0.380711E-02_JPRB, 0.341200E-02_JPRB, 0.304497E-02_JPRB &
+  &, 0.270785E-02_JPRB, 0.240247E-02_JPRB, 0.213073E-02_JPRB &
+  &, 0.189456E-02_JPRB, 0.165033E-02_JPRB, 0.144422E-02_JPRB, 0.127823E-02_JPRB &
+  &, 0.115441E-02_JPRB, 0.978039E-03_JPRB, 0.894271E-03_JPRB &
+  &, 0.757844E-03_JPRB, 0.667701E-03_JPRB, 0.574679E-03_JPRB, 0.530825E-03_JPRB &
+  &, 0.432692E-03_JPRB, 0.385175E-03_JPRB, 0.336174E-03_JPRB &
+  &, 0.285671E-03_JPRB, 0.233649E-03_JPRB, 0.180088E-03_JPRB, 0.182457E-03_JPRB &
+  &, 0.126563E-03_JPRB, 0.128166E-03_JPRB, 0.129781E-03_JPRB &
+  &, 0.707043E-04_JPRB, 0.715239E-04_JPRB, 0.723494E-04_JPRB, 0.100000E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 392, :) = (/ &
+  &  0.969408E+00_JPRB, 0.960835E+00_JPRB, 0.951905E+00_JPRB, 0.942624E+00_JPRB &
+  &, 0.932997E+00_JPRB, 0.923031E+00_JPRB, 0.912734E+00_JPRB &
+  &, 0.902111E+00_JPRB, 0.891169E+00_JPRB, 0.879918E+00_JPRB, 0.868364E+00_JPRB &
+  &, 0.856515E+00_JPRB, 0.844381E+00_JPRB, 0.831969E+00_JPRB &
+  &, 0.819291E+00_JPRB, 0.806352E+00_JPRB, 0.793168E+00_JPRB, 0.779743E+00_JPRB &
+  &, 0.766093E+00_JPRB, 0.752227E+00_JPRB, 0.738156E+00_JPRB &
+  &, 0.723894E+00_JPRB, 0.709451E+00_JPRB, 0.694844E+00_JPRB, 0.680031E+00_JPRB &
+  &, 0.665187E+00_JPRB, 0.650165E+00_JPRB, 0.635034E+00_JPRB &
+  &, 0.619809E+00_JPRB, 0.604506E+00_JPRB, 0.589140E+00_JPRB, 0.573733E+00_JPRB &
+  &, 0.558290E+00_JPRB, 0.542840E+00_JPRB, 0.527391E+00_JPRB &
+  &, 0.511963E+00_JPRB, 0.496578E+00_JPRB, 0.481241E+00_JPRB, 0.465985E+00_JPRB &
+  &, 0.450818E+00_JPRB, 0.435760E+00_JPRB, 0.420832E+00_JPRB &
+  &, 0.406036E+00_JPRB, 0.391394E+00_JPRB, 0.376932E+00_JPRB, 0.362664E+00_JPRB &
+  &, 0.348592E+00_JPRB, 0.334743E+00_JPRB, 0.321119E+00_JPRB &
+  &, 0.307745E+00_JPRB, 0.294635E+00_JPRB, 0.281787E+00_JPRB, 0.269213E+00_JPRB &
+  &, 0.256937E+00_JPRB, 0.244952E+00_JPRB, 0.233281E+00_JPRB &
+  &, 0.221930E+00_JPRB, 0.210903E+00_JPRB, 0.200186E+00_JPRB, 0.189812E+00_JPRB &
+  &, 0.179762E+00_JPRB, 0.170067E+00_JPRB, 0.160703E+00_JPRB &
+  &, 0.151680E+00_JPRB, 0.142985E+00_JPRB, 0.134644E+00_JPRB, 0.126641E+00_JPRB &
+  &, 0.118958E+00_JPRB, 0.111613E+00_JPRB, 0.104602E+00_JPRB &
+  &, 0.979010E-01_JPRB, 0.915217E-01_JPRB, 0.854548E-01_JPRB, 0.797103E-01_JPRB &
+  &, 0.742292E-01_JPRB, 0.690624E-01_JPRB, 0.641684E-01_JPRB &
+  &, 0.595251E-01_JPRB, 0.551818E-01_JPRB, 0.510637E-01_JPRB, 0.472183E-01_JPRB &
+  &, 0.435900E-01_JPRB, 0.401984E-01_JPRB, 0.370091E-01_JPRB &
+  &, 0.340394E-01_JPRB, 0.312790E-01_JPRB, 0.286870E-01_JPRB, 0.262773E-01_JPRB &
+  &, 0.240344E-01_JPRB, 0.219714E-01_JPRB, 0.200706E-01_JPRB &
+  &, 0.182807E-01_JPRB, 0.166428E-01_JPRB, 0.151351E-01_JPRB, 0.137335E-01_JPRB &
+  &, 0.124458E-01_JPRB, 0.112800E-01_JPRB, 0.102092E-01_JPRB &
+  &, 0.920410E-02_JPRB, 0.830593E-02_JPRB, 0.748452E-02_JPRB, 0.674495E-02_JPRB &
+  &, 0.605417E-02_JPRB, 0.541558E-02_JPRB, 0.487216E-02_JPRB &
+  &, 0.434906E-02_JPRB, 0.388877E-02_JPRB, 0.345349E-02_JPRB, 0.308712E-02_JPRB &
+  &, 0.275067E-02_JPRB, 0.244597E-02_JPRB, 0.217491E-02_JPRB &
+  &, 0.193943E-02_JPRB, 0.169590E-02_JPRB, 0.149048E-02_JPRB, 0.132520E-02_JPRB &
+  &, 0.115441E-02_JPRB, 0.102644E-02_JPRB, 0.894271E-03_JPRB &
+  &, 0.807701E-03_JPRB, 0.667701E-03_JPRB, 0.574679E-03_JPRB, 0.530825E-03_JPRB &
+  &, 0.432692E-03_JPRB, 0.385175E-03_JPRB, 0.336174E-03_JPRB &
+  &, 0.285671E-03_JPRB, 0.233649E-03_JPRB, 0.236784E-03_JPRB, 0.182457E-03_JPRB &
+  &, 0.126563E-03_JPRB, 0.128166E-03_JPRB, 0.129781E-03_JPRB &
+  &, 0.707043E-04_JPRB, 0.715239E-04_JPRB, 0.723494E-04_JPRB, 0.731809E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART56',1,ZHOOK_HANDLE)
+END SUBROUTINE PART56
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART57
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART57',0,ZHOOK_HANDLE)
+
+XCW( 393, :) = (/ &
+  &  0.969662E+00_JPRB, 0.961152E+00_JPRB, 0.952282E+00_JPRB, 0.943063E+00_JPRB &
+  &, 0.933495E+00_JPRB, 0.923588E+00_JPRB, 0.913348E+00_JPRB &
+  &, 0.902781E+00_JPRB, 0.891896E+00_JPRB, 0.880698E+00_JPRB, 0.869197E+00_JPRB &
+  &, 0.857400E+00_JPRB, 0.845316E+00_JPRB, 0.832953E+00_JPRB &
+  &, 0.820321E+00_JPRB, 0.807431E+00_JPRB, 0.794290E+00_JPRB, 0.780909E+00_JPRB &
+  &, 0.767301E+00_JPRB, 0.753474E+00_JPRB, 0.739440E+00_JPRB &
+  &, 0.725217E+00_JPRB, 0.710811E+00_JPRB, 0.696236E+00_JPRB, 0.681509E+00_JPRB &
+  &, 0.666641E+00_JPRB, 0.651644E+00_JPRB, 0.636542E+00_JPRB &
+  &, 0.621338E+00_JPRB, 0.606060E+00_JPRB, 0.590713E+00_JPRB, 0.575320E+00_JPRB &
+  &, 0.559895E+00_JPRB, 0.544455E+00_JPRB, 0.529019E+00_JPRB &
+  &, 0.513600E+00_JPRB, 0.498219E+00_JPRB, 0.482893E+00_JPRB, 0.467639E+00_JPRB &
+  &, 0.452473E+00_JPRB, 0.437414E+00_JPRB, 0.422474E+00_JPRB &
+  &, 0.407675E+00_JPRB, 0.393040E+00_JPRB, 0.378560E+00_JPRB, 0.364273E+00_JPRB &
+  &, 0.350193E+00_JPRB, 0.336333E+00_JPRB, 0.322697E+00_JPRB &
+  &, 0.309295E+00_JPRB, 0.296156E+00_JPRB, 0.283290E+00_JPRB, 0.270695E+00_JPRB &
+  &, 0.258396E+00_JPRB, 0.246387E+00_JPRB, 0.234689E+00_JPRB &
+  &, 0.223309E+00_JPRB, 0.212235E+00_JPRB, 0.201501E+00_JPRB, 0.191090E+00_JPRB &
+  &, 0.181002E+00_JPRB, 0.171265E+00_JPRB, 0.161875E+00_JPRB &
+  &, 0.152805E+00_JPRB, 0.144080E+00_JPRB, 0.135706E+00_JPRB, 0.127649E+00_JPRB &
+  &, 0.119948E+00_JPRB, 0.112563E+00_JPRB, 0.105511E+00_JPRB &
+  &, 0.987867E-01_JPRB, 0.923615E-01_JPRB, 0.862681E-01_JPRB, 0.804732E-01_JPRB &
+  &, 0.749620E-01_JPRB, 0.697635E-01_JPRB, 0.648360E-01_JPRB &
+  &, 0.601818E-01_JPRB, 0.557771E-01_JPRB, 0.516456E-01_JPRB, 0.477600E-01_JPRB &
+  &, 0.440897E-01_JPRB, 0.406810E-01_JPRB, 0.374736E-01_JPRB &
+  &, 0.344571E-01_JPRB, 0.316763E-01_JPRB, 0.290628E-01_JPRB, 0.266307E-01_JPRB &
+  &, 0.243644E-01_JPRB, 0.222769E-01_JPRB, 0.203505E-01_JPRB &
+  &, 0.185340E-01_JPRB, 0.169007E-01_JPRB, 0.153648E-01_JPRB, 0.139338E-01_JPRB &
+  &, 0.126497E-01_JPRB, 0.114529E-01_JPRB, 0.103499E-01_JPRB &
+  &, 0.934720E-02_JPRB, 0.845147E-02_JPRB, 0.759552E-02_JPRB, 0.685783E-02_JPRB &
+  &, 0.616893E-02_JPRB, 0.553224E-02_JPRB, 0.495122E-02_JPRB &
+  &, 0.442941E-02_JPRB, 0.397043E-02_JPRB, 0.353646E-02_JPRB, 0.317143E-02_JPRB &
+  &, 0.279349E-02_JPRB, 0.248947E-02_JPRB, 0.221910E-02_JPRB &
+  &, 0.193943E-02_JPRB, 0.174146E-02_JPRB, 0.153675E-02_JPRB, 0.137217E-02_JPRB &
+  &, 0.120209E-02_JPRB, 0.102644E-02_JPRB, 0.943397E-03_JPRB &
+  &, 0.807701E-03_JPRB, 0.718294E-03_JPRB, 0.626014E-03_JPRB, 0.530825E-03_JPRB &
+  &, 0.485529E-03_JPRB, 0.385175E-03_JPRB, 0.336174E-03_JPRB &
+  &, 0.285671E-03_JPRB, 0.233649E-03_JPRB, 0.236784E-03_JPRB, 0.182457E-03_JPRB &
+  &, 0.184844E-03_JPRB, 0.128166E-03_JPRB, 0.129781E-03_JPRB &
+  &, 0.707043E-04_JPRB, 0.715239E-04_JPRB, 0.723494E-04_JPRB, 0.731809E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 394, :) = (/ &
+  &  0.969918E+00_JPRB, 0.961470E+00_JPRB, 0.952661E+00_JPRB, 0.943502E+00_JPRB &
+  &, 0.933993E+00_JPRB, 0.924145E+00_JPRB, 0.913962E+00_JPRB &
+  &, 0.903451E+00_JPRB, 0.892611E+00_JPRB, 0.881477E+00_JPRB, 0.870029E+00_JPRB &
+  &, 0.858284E+00_JPRB, 0.846251E+00_JPRB, 0.833937E+00_JPRB &
+  &, 0.821354E+00_JPRB, 0.808509E+00_JPRB, 0.795412E+00_JPRB, 0.782075E+00_JPRB &
+  &, 0.768509E+00_JPRB, 0.754721E+00_JPRB, 0.740727E+00_JPRB &
+  &, 0.726540E+00_JPRB, 0.712171E+00_JPRB, 0.697628E+00_JPRB, 0.682933E+00_JPRB &
+  &, 0.668093E+00_JPRB, 0.653127E+00_JPRB, 0.638049E+00_JPRB &
+  &, 0.622871E+00_JPRB, 0.607611E+00_JPRB, 0.592286E+00_JPRB, 0.576911E+00_JPRB &
+  &, 0.561505E+00_JPRB, 0.546078E+00_JPRB, 0.530652E+00_JPRB &
+  &, 0.515246E+00_JPRB, 0.499868E+00_JPRB, 0.484546E+00_JPRB, 0.469293E+00_JPRB &
+  &, 0.454128E+00_JPRB, 0.439069E+00_JPRB, 0.424127E+00_JPRB &
+  &, 0.409325E+00_JPRB, 0.394674E+00_JPRB, 0.380189E+00_JPRB, 0.365895E+00_JPRB &
+  &, 0.351806E+00_JPRB, 0.337923E+00_JPRB, 0.324261E+00_JPRB &
+  &, 0.310859E+00_JPRB, 0.297690E+00_JPRB, 0.284806E+00_JPRB, 0.272177E+00_JPRB &
+  &, 0.259856E+00_JPRB, 0.247822E+00_JPRB, 0.236097E+00_JPRB &
+  &, 0.224673E+00_JPRB, 0.213583E+00_JPRB, 0.202815E+00_JPRB, 0.192368E+00_JPRB &
+  &, 0.182258E+00_JPRB, 0.172480E+00_JPRB, 0.163046E+00_JPRB &
+  &, 0.153948E+00_JPRB, 0.145193E+00_JPRB, 0.136768E+00_JPRB, 0.128695E+00_JPRB &
+  &, 0.120937E+00_JPRB, 0.113533E+00_JPRB, 0.106440E+00_JPRB &
+  &, 0.996724E-01_JPRB, 0.932228E-01_JPRB, 0.870814E-01_JPRB, 0.812361E-01_JPRB &
+  &, 0.757177E-01_JPRB, 0.704645E-01_JPRB, 0.655036E-01_JPRB &
+  &, 0.608142E-01_JPRB, 0.563973E-01_JPRB, 0.522275E-01_JPRB, 0.483018E-01_JPRB &
+  &, 0.446157E-01_JPRB, 0.411636E-01_JPRB, 0.379108E-01_JPRB &
+  &, 0.349026E-01_JPRB, 0.320735E-01_JPRB, 0.294386E-01_JPRB, 0.269841E-01_JPRB &
+  &, 0.246943E-01_JPRB, 0.225823E-01_JPRB, 0.206304E-01_JPRB &
+  &, 0.188190E-01_JPRB, 0.171264E-01_JPRB, 0.155944E-01_JPRB, 0.141676E-01_JPRB &
+  &, 0.128535E-01_JPRB, 0.116257E-01_JPRB, 0.105257E-01_JPRB &
+  &, 0.952607E-02_JPRB, 0.859701E-02_JPRB, 0.774353E-02_JPRB, 0.697070E-02_JPRB &
+  &, 0.628370E-02_JPRB, 0.561002E-02_JPRB, 0.503028E-02_JPRB &
+  &, 0.450977E-02_JPRB, 0.405209E-02_JPRB, 0.361944E-02_JPRB, 0.321358E-02_JPRB &
+  &, 0.287914E-02_JPRB, 0.253297E-02_JPRB, 0.226328E-02_JPRB &
+  &, 0.198430E-02_JPRB, 0.178703E-02_JPRB, 0.158301E-02_JPRB, 0.137217E-02_JPRB &
+  &, 0.120209E-02_JPRB, 0.107484E-02_JPRB, 0.943397E-03_JPRB &
+  &, 0.807701E-03_JPRB, 0.718294E-03_JPRB, 0.626014E-03_JPRB, 0.530825E-03_JPRB &
+  &, 0.485529E-03_JPRB, 0.438772E-03_JPRB, 0.336174E-03_JPRB &
+  &, 0.285671E-03_JPRB, 0.289561E-03_JPRB, 0.236784E-03_JPRB, 0.182457E-03_JPRB &
+  &, 0.184844E-03_JPRB, 0.128166E-03_JPRB, 0.129781E-03_JPRB &
+  &, 0.707043E-04_JPRB, 0.715239E-04_JPRB, 0.723494E-04_JPRB, 0.731809E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 395, :) = (/ &
+  &  0.970173E+00_JPRB, 0.961787E+00_JPRB, 0.953039E+00_JPRB, 0.943940E+00_JPRB &
+  &, 0.934491E+00_JPRB, 0.924701E+00_JPRB, 0.914575E+00_JPRB &
+  &, 0.904121E+00_JPRB, 0.893346E+00_JPRB, 0.882256E+00_JPRB, 0.870862E+00_JPRB &
+  &, 0.859168E+00_JPRB, 0.847185E+00_JPRB, 0.834921E+00_JPRB &
+  &, 0.822386E+00_JPRB, 0.809586E+00_JPRB, 0.796535E+00_JPRB, 0.783242E+00_JPRB &
+  &, 0.769717E+00_JPRB, 0.755971E+00_JPRB, 0.742015E+00_JPRB &
+  &, 0.727866E+00_JPRB, 0.713527E+00_JPRB, 0.699023E+00_JPRB, 0.684358E+00_JPRB &
+  &, 0.669548E+00_JPRB, 0.654610E+00_JPRB, 0.639557E+00_JPRB &
+  &, 0.624404E+00_JPRB, 0.609166E+00_JPRB, 0.593863E+00_JPRB, 0.578502E+00_JPRB &
+  &, 0.563110E+00_JPRB, 0.547702E+00_JPRB, 0.532285E+00_JPRB &
+  &, 0.516883E+00_JPRB, 0.501518E+00_JPRB, 0.486208E+00_JPRB, 0.470957E+00_JPRB &
+  &, 0.455793E+00_JPRB, 0.440734E+00_JPRB, 0.425791E+00_JPRB &
+  &, 0.410975E+00_JPRB, 0.396320E+00_JPRB, 0.381830E+00_JPRB, 0.367517E+00_JPRB &
+  &, 0.353406E+00_JPRB, 0.339513E+00_JPRB, 0.325839E+00_JPRB &
+  &, 0.312410E+00_JPRB, 0.299238E+00_JPRB, 0.286322E+00_JPRB, 0.273674E+00_JPRB &
+  &, 0.261315E+00_JPRB, 0.249257E+00_JPRB, 0.237506E+00_JPRB &
+  &, 0.226052E+00_JPRB, 0.214931E+00_JPRB, 0.204129E+00_JPRB, 0.193646E+00_JPRB &
+  &, 0.183514E+00_JPRB, 0.173695E+00_JPRB, 0.164235E+00_JPRB &
+  &, 0.155091E+00_JPRB, 0.146306E+00_JPRB, 0.137848E+00_JPRB, 0.129722E+00_JPRB &
+  &, 0.121947E+00_JPRB, 0.114484E+00_JPRB, 0.107369E+00_JPRB &
+  &, 0.100558E+00_JPRB, 0.940840E-01_JPRB, 0.878948E-01_JPRB, 0.820215E-01_JPRB &
+  &, 0.764505E-01_JPRB, 0.711889E-01_JPRB, 0.661711E-01_JPRB &
+  &, 0.614465E-01_JPRB, 0.569927E-01_JPRB, 0.528094E-01_JPRB, 0.488435E-01_JPRB &
+  &, 0.451417E-01_JPRB, 0.416462E-01_JPRB, 0.383753E-01_JPRB &
+  &, 0.353204E-01_JPRB, 0.324708E-01_JPRB, 0.298144E-01_JPRB, 0.273374E-01_JPRB &
+  &, 0.250542E-01_JPRB, 0.229183E-01_JPRB, 0.209103E-01_JPRB &
+  &, 0.191040E-01_JPRB, 0.173842E-01_JPRB, 0.158241E-01_JPRB, 0.143679E-01_JPRB &
+  &, 0.130574E-01_JPRB, 0.118332E-01_JPRB, 0.107016E-01_JPRB &
+  &, 0.966917E-02_JPRB, 0.874255E-02_JPRB, 0.789154E-02_JPRB, 0.708358E-02_JPRB &
+  &, 0.639846E-02_JPRB, 0.572669E-02_JPRB, 0.514887E-02_JPRB &
+  &, 0.459012E-02_JPRB, 0.413375E-02_JPRB, 0.366093E-02_JPRB, 0.329789E-02_JPRB &
+  &, 0.292196E-02_JPRB, 0.261997E-02_JPRB, 0.230746E-02_JPRB &
+  &, 0.202917E-02_JPRB, 0.183259E-02_JPRB, 0.158301E-02_JPRB, 0.141914E-02_JPRB &
+  &, 0.124978E-02_JPRB, 0.107484E-02_JPRB, 0.943397E-03_JPRB &
+  &, 0.857557E-03_JPRB, 0.718294E-03_JPRB, 0.626014E-03_JPRB, 0.582908E-03_JPRB &
+  &, 0.485529E-03_JPRB, 0.438772E-03_JPRB, 0.390537E-03_JPRB &
+  &, 0.340806E-03_JPRB, 0.289561E-03_JPRB, 0.236784E-03_JPRB, 0.182457E-03_JPRB &
+  &, 0.184844E-03_JPRB, 0.128166E-03_JPRB, 0.129781E-03_JPRB &
+  &, 0.707043E-04_JPRB, 0.715239E-04_JPRB, 0.723494E-04_JPRB, 0.731809E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 396, :) = (/ &
+  &  0.970427E+00_JPRB, 0.962103E+00_JPRB, 0.953417E+00_JPRB, 0.944378E+00_JPRB &
+  &, 0.934989E+00_JPRB, 0.925256E+00_JPRB, 0.915189E+00_JPRB &
+  &, 0.904791E+00_JPRB, 0.894071E+00_JPRB, 0.883036E+00_JPRB, 0.871695E+00_JPRB &
+  &, 0.860053E+00_JPRB, 0.848120E+00_JPRB, 0.835904E+00_JPRB &
+  &, 0.823416E+00_JPRB, 0.810665E+00_JPRB, 0.797659E+00_JPRB, 0.784408E+00_JPRB &
+  &, 0.770925E+00_JPRB, 0.757221E+00_JPRB, 0.743305E+00_JPRB &
+  &, 0.729189E+00_JPRB, 0.714891E+00_JPRB, 0.700414E+00_JPRB, 0.685782E+00_JPRB &
+  &, 0.671003E+00_JPRB, 0.656092E+00_JPRB, 0.641068E+00_JPRB &
+  &, 0.625936E+00_JPRB, 0.610724E+00_JPRB, 0.595436E+00_JPRB, 0.580098E+00_JPRB &
+  &, 0.564724E+00_JPRB, 0.549326E+00_JPRB, 0.533923E+00_JPRB &
+  &, 0.518529E+00_JPRB, 0.503178E+00_JPRB, 0.487870E+00_JPRB, 0.472622E+00_JPRB &
+  &, 0.457458E+00_JPRB, 0.442399E+00_JPRB, 0.427444E+00_JPRB &
+  &, 0.412636E+00_JPRB, 0.397966E+00_JPRB, 0.383470E+00_JPRB, 0.369150E+00_JPRB &
+  &, 0.355031E+00_JPRB, 0.341116E+00_JPRB, 0.327430E+00_JPRB &
+  &, 0.313973E+00_JPRB, 0.300772E+00_JPRB, 0.287838E+00_JPRB, 0.275170E+00_JPRB &
+  &, 0.262789E+00_JPRB, 0.250707E+00_JPRB, 0.238929E+00_JPRB &
+  &, 0.227447E+00_JPRB, 0.216295E+00_JPRB, 0.205459E+00_JPRB, 0.194941E+00_JPRB &
+  &, 0.184770E+00_JPRB, 0.174928E+00_JPRB, 0.165425E+00_JPRB &
+  &, 0.156252E+00_JPRB, 0.147419E+00_JPRB, 0.138929E+00_JPRB, 0.130768E+00_JPRB &
+  &, 0.122956E+00_JPRB, 0.115454E+00_JPRB, 0.108299E+00_JPRB &
+  &, 0.101465E+00_JPRB, 0.949238E-01_JPRB, 0.887301E-01_JPRB, 0.828068E-01_JPRB &
+  &, 0.772062E-01_JPRB, 0.718899E-01_JPRB, 0.668625E-01_JPRB &
+  &, 0.621032E-01_JPRB, 0.576129E-01_JPRB, 0.533913E-01_JPRB, 0.494110E-01_JPRB &
+  &, 0.456677E-01_JPRB, 0.421556E-01_JPRB, 0.388399E-01_JPRB &
+  &, 0.357659E-01_JPRB, 0.328964E-01_JPRB, 0.302191E-01_JPRB, 0.277203E-01_JPRB &
+  &, 0.253841E-01_JPRB, 0.232237E-01_JPRB, 0.212214E-01_JPRB &
+  &, 0.193573E-01_JPRB, 0.176421E-01_JPRB, 0.160538E-01_JPRB, 0.146017E-01_JPRB &
+  &, 0.132613E-01_JPRB, 0.120060E-01_JPRB, 0.108774E-01_JPRB &
+  &, 0.984804E-02_JPRB, 0.888810E-02_JPRB, 0.800255E-02_JPRB, 0.723408E-02_JPRB &
+  &, 0.651322E-02_JPRB, 0.584336E-02_JPRB, 0.522793E-02_JPRB &
+  &, 0.471065E-02_JPRB, 0.421540E-02_JPRB, 0.374390E-02_JPRB, 0.334004E-02_JPRB &
+  &, 0.296478E-02_JPRB, 0.266347E-02_JPRB, 0.235164E-02_JPRB &
+  &, 0.207404E-02_JPRB, 0.183259E-02_JPRB, 0.162928E-02_JPRB, 0.146611E-02_JPRB &
+  &, 0.129746E-02_JPRB, 0.112324E-02_JPRB, 0.992523E-03_JPRB &
+  &, 0.857557E-03_JPRB, 0.768886E-03_JPRB, 0.677348E-03_JPRB, 0.582908E-03_JPRB &
+  &, 0.485529E-03_JPRB, 0.438772E-03_JPRB, 0.390537E-03_JPRB &
+  &, 0.340806E-03_JPRB, 0.289561E-03_JPRB, 0.236784E-03_JPRB, 0.182457E-03_JPRB &
+  &, 0.184844E-03_JPRB, 0.128166E-03_JPRB, 0.129781E-03_JPRB &
+  &, 0.131409E-03_JPRB, 0.715239E-04_JPRB, 0.723494E-04_JPRB, 0.731809E-04_JPRB &
+  &, 0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 397, :) = (/ &
+  &  0.970682E+00_JPRB, 0.962420E+00_JPRB, 0.953795E+00_JPRB, 0.944816E+00_JPRB &
+  &, 0.935486E+00_JPRB, 0.925812E+00_JPRB, 0.915802E+00_JPRB &
+  &, 0.905461E+00_JPRB, 0.894797E+00_JPRB, 0.883816E+00_JPRB, 0.872527E+00_JPRB &
+  &, 0.860937E+00_JPRB, 0.849055E+00_JPRB, 0.836890E+00_JPRB &
+  &, 0.824448E+00_JPRB, 0.811744E+00_JPRB, 0.798783E+00_JPRB, 0.785576E+00_JPRB &
+  &, 0.772134E+00_JPRB, 0.758471E+00_JPRB, 0.744592E+00_JPRB &
+  &, 0.730515E+00_JPRB, 0.716251E+00_JPRB, 0.701810E+00_JPRB, 0.687210E+00_JPRB &
+  &, 0.672461E+00_JPRB, 0.657579E+00_JPRB, 0.642579E+00_JPRB &
+  &, 0.627473E+00_JPRB, 0.612283E+00_JPRB, 0.597017E+00_JPRB, 0.581697E+00_JPRB &
+  &, 0.566333E+00_JPRB, 0.550954E+00_JPRB, 0.535565E+00_JPRB &
+  &, 0.520185E+00_JPRB, 0.504837E+00_JPRB, 0.489533E+00_JPRB, 0.474286E+00_JPRB &
+  &, 0.459123E+00_JPRB, 0.444064E+00_JPRB, 0.429108E+00_JPRB &
+  &, 0.414297E+00_JPRB, 0.399624E+00_JPRB, 0.385111E+00_JPRB, 0.370784E+00_JPRB &
+  &, 0.356644E+00_JPRB, 0.342718E+00_JPRB, 0.329007E+00_JPRB &
+  &, 0.315550E+00_JPRB, 0.302320E+00_JPRB, 0.289368E+00_JPRB, 0.276680E+00_JPRB &
+  &, 0.264264E+00_JPRB, 0.252157E+00_JPRB, 0.240337E+00_JPRB &
+  &, 0.228842E+00_JPRB, 0.217658E+00_JPRB, 0.206790E+00_JPRB, 0.196235E+00_JPRB &
+  &, 0.186026E+00_JPRB, 0.176160E+00_JPRB, 0.166614E+00_JPRB &
+  &, 0.157414E+00_JPRB, 0.148550E+00_JPRB, 0.140009E+00_JPRB, 0.131814E+00_JPRB &
+  &, 0.123966E+00_JPRB, 0.116445E+00_JPRB, 0.109228E+00_JPRB &
+  &, 0.102351E+00_JPRB, 0.958066E-01_JPRB, 0.895434E-01_JPRB, 0.836146E-01_JPRB &
+  &, 0.779619E-01_JPRB, 0.726144E-01_JPRB, 0.675540E-01_JPRB &
+  &, 0.627599E-01_JPRB, 0.582331E-01_JPRB, 0.539732E-01_JPRB, 0.499528E-01_JPRB &
+  &, 0.461937E-01_JPRB, 0.426382E-01_JPRB, 0.393317E-01_JPRB &
+  &, 0.362115E-01_JPRB, 0.333220E-01_JPRB, 0.305949E-01_JPRB, 0.280736E-01_JPRB &
+  &, 0.257140E-01_JPRB, 0.235597E-01_JPRB, 0.215324E-01_JPRB &
+  &, 0.196423E-01_JPRB, 0.179000E-01_JPRB, 0.163163E-01_JPRB, 0.148354E-01_JPRB &
+  &, 0.134651E-01_JPRB, 0.122135E-01_JPRB, 0.110533E-01_JPRB &
+  &, 0.999114E-02_JPRB, 0.903364E-02_JPRB, 0.815056E-02_JPRB, 0.734696E-02_JPRB &
+  &, 0.662799E-02_JPRB, 0.596002E-02_JPRB, 0.534652E-02_JPRB &
+  &, 0.479100E-02_JPRB, 0.429706E-02_JPRB, 0.382688E-02_JPRB, 0.342434E-02_JPRB &
+  &, 0.305043E-02_JPRB, 0.270697E-02_JPRB, 0.239582E-02_JPRB &
+  &, 0.211891E-02_JPRB, 0.187816E-02_JPRB, 0.167554E-02_JPRB, 0.146611E-02_JPRB &
+  &, 0.129746E-02_JPRB, 0.117165E-02_JPRB, 0.992523E-03_JPRB &
+  &, 0.907413E-03_JPRB, 0.768886E-03_JPRB, 0.677348E-03_JPRB, 0.582908E-03_JPRB &
+  &, 0.538365E-03_JPRB, 0.438772E-03_JPRB, 0.390537E-03_JPRB &
+  &, 0.340806E-03_JPRB, 0.289561E-03_JPRB, 0.236784E-03_JPRB, 0.239943E-03_JPRB &
+  &, 0.184844E-03_JPRB, 0.128166E-03_JPRB, 0.129781E-03_JPRB &
+  &, 0.131409E-03_JPRB, 0.715239E-04_JPRB, 0.723494E-04_JPRB, 0.731809E-04_JPRB &
+  &, 0.740184E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 398, :) = (/ &
+  &  0.970934E+00_JPRB, 0.962736E+00_JPRB, 0.954172E+00_JPRB, 0.945254E+00_JPRB &
+  &, 0.935984E+00_JPRB, 0.926369E+00_JPRB, 0.916416E+00_JPRB &
+  &, 0.906130E+00_JPRB, 0.895522E+00_JPRB, 0.884595E+00_JPRB, 0.873359E+00_JPRB &
+  &, 0.861821E+00_JPRB, 0.849990E+00_JPRB, 0.837873E+00_JPRB &
+  &, 0.825480E+00_JPRB, 0.812822E+00_JPRB, 0.799906E+00_JPRB, 0.786744E+00_JPRB &
+  &, 0.773344E+00_JPRB, 0.759721E+00_JPRB, 0.745883E+00_JPRB &
+  &, 0.731841E+00_JPRB, 0.717614E+00_JPRB, 0.703208E+00_JPRB, 0.688638E+00_JPRB &
+  &, 0.673920E+00_JPRB, 0.659065E+00_JPRB, 0.644090E+00_JPRB &
+  &, 0.629010E+00_JPRB, 0.613842E+00_JPRB, 0.598598E+00_JPRB, 0.583293E+00_JPRB &
+  &, 0.567952E+00_JPRB, 0.552582E+00_JPRB, 0.537207E+00_JPRB &
+  &, 0.521831E+00_JPRB, 0.506496E+00_JPRB, 0.491195E+00_JPRB, 0.475960E+00_JPRB &
+  &, 0.460799E+00_JPRB, 0.445729E+00_JPRB, 0.430782E+00_JPRB &
+  &, 0.415958E+00_JPRB, 0.401281E+00_JPRB, 0.386763E+00_JPRB, 0.372417E+00_JPRB &
+  &, 0.358269E+00_JPRB, 0.344321E+00_JPRB, 0.330611E+00_JPRB &
+  &, 0.317114E+00_JPRB, 0.303881E+00_JPRB, 0.290898E+00_JPRB, 0.278190E+00_JPRB &
+  &, 0.265752E+00_JPRB, 0.253606E+00_JPRB, 0.241776E+00_JPRB &
+  &, 0.230236E+00_JPRB, 0.219022E+00_JPRB, 0.208120E+00_JPRB, 0.197546E+00_JPRB &
+  &, 0.187300E+00_JPRB, 0.177393E+00_JPRB, 0.167821E+00_JPRB &
+  &, 0.158575E+00_JPRB, 0.149682E+00_JPRB, 0.141109E+00_JPRB, 0.132879E+00_JPRB &
+  &, 0.124975E+00_JPRB, 0.117415E+00_JPRB, 0.110178E+00_JPRB &
+  &, 0.103279E+00_JPRB, 0.966679E-01_JPRB, 0.903788E-01_JPRB, 0.843999E-01_JPRB &
+  &, 0.787405E-01_JPRB, 0.733388E-01_JPRB, 0.682454E-01_JPRB &
+  &, 0.634166E-01_JPRB, 0.588781E-01_JPRB, 0.545803E-01_JPRB, 0.505203E-01_JPRB &
+  &, 0.467198E-01_JPRB, 0.431476E-01_JPRB, 0.397963E-01_JPRB &
+  &, 0.366570E-01_JPRB, 0.337192E-01_JPRB, 0.309996E-01_JPRB, 0.284564E-01_JPRB &
+  &, 0.260740E-01_JPRB, 0.238652E-01_JPRB, 0.218123E-01_JPRB &
+  &, 0.199273E-01_JPRB, 0.181578E-01_JPRB, 0.165459E-01_JPRB, 0.150691E-01_JPRB &
+  &, 0.136690E-01_JPRB, 0.124209E-01_JPRB, 0.112291E-01_JPRB &
+  &, 0.101700E-01_JPRB, 0.917918E-02_JPRB, 0.829857E-02_JPRB, 0.745983E-02_JPRB &
+  &, 0.674275E-02_JPRB, 0.603780E-02_JPRB, 0.542558E-02_JPRB &
+  &, 0.487136E-02_JPRB, 0.437872E-02_JPRB, 0.390985E-02_JPRB, 0.346650E-02_JPRB &
+  &, 0.309325E-02_JPRB, 0.275047E-02_JPRB, 0.244001E-02_JPRB &
+  &, 0.216378E-02_JPRB, 0.192372E-02_JPRB, 0.172181E-02_JPRB, 0.151309E-02_JPRB &
+  &, 0.134514E-02_JPRB, 0.117165E-02_JPRB, 0.104165E-02_JPRB &
+  &, 0.907413E-03_JPRB, 0.819479E-03_JPRB, 0.677348E-03_JPRB, 0.634990E-03_JPRB &
+  &, 0.538365E-03_JPRB, 0.438772E-03_JPRB, 0.390537E-03_JPRB &
+  &, 0.340806E-03_JPRB, 0.289561E-03_JPRB, 0.236784E-03_JPRB, 0.239943E-03_JPRB &
+  &, 0.184844E-03_JPRB, 0.128166E-03_JPRB, 0.129781E-03_JPRB &
+  &, 0.131409E-03_JPRB, 0.715239E-04_JPRB, 0.723494E-04_JPRB, 0.731809E-04_JPRB &
+  &, 0.740184E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 399, :) = (/ &
+  &  0.971185E+00_JPRB, 0.963052E+00_JPRB, 0.954550E+00_JPRB, 0.945692E+00_JPRB &
+  &, 0.936480E+00_JPRB, 0.926924E+00_JPRB, 0.917029E+00_JPRB &
+  &, 0.906800E+00_JPRB, 0.896246E+00_JPRB, 0.885372E+00_JPRB, 0.874192E+00_JPRB &
+  &, 0.862705E+00_JPRB, 0.850925E+00_JPRB, 0.838857E+00_JPRB &
+  &, 0.826514E+00_JPRB, 0.813902E+00_JPRB, 0.801031E+00_JPRB, 0.787912E+00_JPRB &
+  &, 0.774555E+00_JPRB, 0.760970E+00_JPRB, 0.747170E+00_JPRB &
+  &, 0.733171E+00_JPRB, 0.718974E+00_JPRB, 0.704603E+00_JPRB, 0.690066E+00_JPRB &
+  &, 0.675378E+00_JPRB, 0.660552E+00_JPRB, 0.645605E+00_JPRB &
+  &, 0.630550E+00_JPRB, 0.615404E+00_JPRB, 0.600179E+00_JPRB, 0.584897E+00_JPRB &
+  &, 0.569501E+00_JPRB, 0.554214E+00_JPRB, 0.538849E+00_JPRB &
+  &, 0.523487E+00_JPRB, 0.508156E+00_JPRB, 0.492867E+00_JPRB, 0.477624E+00_JPRB &
+  &, 0.462474E+00_JPRB, 0.447405E+00_JPRB, 0.432446E+00_JPRB &
+  &, 0.417620E+00_JPRB, 0.402938E+00_JPRB, 0.388415E+00_JPRB, 0.374063E+00_JPRB &
+  &, 0.359894E+00_JPRB, 0.345936E+00_JPRB, 0.332201E+00_JPRB &
+  &, 0.318690E+00_JPRB, 0.305429E+00_JPRB, 0.292428E+00_JPRB, 0.279700E+00_JPRB &
+  &, 0.267240E+00_JPRB, 0.255071E+00_JPRB, 0.243199E+00_JPRB &
+  &, 0.231647E+00_JPRB, 0.220386E+00_JPRB, 0.209467E+00_JPRB, 0.198858E+00_JPRB &
+  &, 0.188573E+00_JPRB, 0.178625E+00_JPRB, 0.169028E+00_JPRB &
+  &, 0.159755E+00_JPRB, 0.150813E+00_JPRB, 0.142208E+00_JPRB, 0.133945E+00_JPRB &
+  &, 0.126004E+00_JPRB, 0.118406E+00_JPRB, 0.111128E+00_JPRB &
+  &, 0.104185E+00_JPRB, 0.975507E-01_JPRB, 0.912361E-01_JPRB, 0.852077E-01_JPRB &
+  &, 0.794962E-01_JPRB, 0.740865E-01_JPRB, 0.689368E-01_JPRB &
+  &, 0.640976E-01_JPRB, 0.594983E-01_JPRB, 0.551622E-01_JPRB, 0.510878E-01_JPRB &
+  &, 0.472458E-01_JPRB, 0.436569E-01_JPRB, 0.402881E-01_JPRB &
+  &, 0.371026E-01_JPRB, 0.341449E-01_JPRB, 0.314043E-01_JPRB, 0.288098E-01_JPRB &
+  &, 0.264339E-01_JPRB, 0.242012E-01_JPRB, 0.221233E-01_JPRB &
+  &, 0.202122E-01_JPRB, 0.184480E-01_JPRB, 0.168084E-01_JPRB, 0.152695E-01_JPRB &
+  &, 0.138729E-01_JPRB, 0.125937E-01_JPRB, 0.114402E-01_JPRB &
+  &, 0.103489E-01_JPRB, 0.936111E-02_JPRB, 0.844658E-02_JPRB, 0.761034E-02_JPRB &
+  &, 0.685751E-02_JPRB, 0.615447E-02_JPRB, 0.554417E-02_JPRB &
+  &, 0.495171E-02_JPRB, 0.446038E-02_JPRB, 0.399283E-02_JPRB, 0.355080E-02_JPRB &
+  &, 0.317890E-02_JPRB, 0.283747E-02_JPRB, 0.252837E-02_JPRB &
+  &, 0.225352E-02_JPRB, 0.196928E-02_JPRB, 0.176807E-02_JPRB, 0.156006E-02_JPRB &
+  &, 0.139283E-02_JPRB, 0.122005E-02_JPRB, 0.104165E-02_JPRB &
+  &, 0.957270E-03_JPRB, 0.819479E-03_JPRB, 0.728683E-03_JPRB, 0.634990E-03_JPRB &
+  &, 0.538365E-03_JPRB, 0.492368E-03_JPRB, 0.390537E-03_JPRB &
+  &, 0.340806E-03_JPRB, 0.289561E-03_JPRB, 0.236784E-03_JPRB, 0.239943E-03_JPRB &
+  &, 0.184844E-03_JPRB, 0.187249E-03_JPRB, 0.129781E-03_JPRB &
+  &, 0.131409E-03_JPRB, 0.715239E-04_JPRB, 0.723494E-04_JPRB, 0.731809E-04_JPRB &
+  &, 0.740184E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART57',1,ZHOOK_HANDLE)
+END SUBROUTINE PART57
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART58
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART58',0,ZHOOK_HANDLE)
+
+XCW( 400, :) = (/ &
+  &  0.971444E+00_JPRB, 0.963370E+00_JPRB, 0.954927E+00_JPRB, 0.946129E+00_JPRB &
+  &, 0.936978E+00_JPRB, 0.927480E+00_JPRB, 0.917641E+00_JPRB &
+  &, 0.907469E+00_JPRB, 0.896971E+00_JPRB, 0.886153E+00_JPRB, 0.875024E+00_JPRB &
+  &, 0.863590E+00_JPRB, 0.851859E+00_JPRB, 0.839842E+00_JPRB &
+  &, 0.827546E+00_JPRB, 0.814980E+00_JPRB, 0.802155E+00_JPRB, 0.789079E+00_JPRB &
+  &, 0.775766E+00_JPRB, 0.762220E+00_JPRB, 0.748461E+00_JPRB &
+  &, 0.734497E+00_JPRB, 0.720341E+00_JPRB, 0.706002E+00_JPRB, 0.691498E+00_JPRB &
+  &, 0.676841E+00_JPRB, 0.662042E+00_JPRB, 0.647120E+00_JPRB &
+  &, 0.632091E+00_JPRB, 0.616967E+00_JPRB, 0.601765E+00_JPRB, 0.586496E+00_JPRB &
+  &, 0.571188E+00_JPRB, 0.555847E+00_JPRB, 0.540495E+00_JPRB &
+  &, 0.525143E+00_JPRB, 0.509825E+00_JPRB, 0.494529E+00_JPRB, 0.479309E+00_JPRB &
+  &, 0.464150E+00_JPRB, 0.449080E+00_JPRB, 0.434131E+00_JPRB &
+  &, 0.419292E+00_JPRB, 0.404596E+00_JPRB, 0.390067E+00_JPRB, 0.375708E+00_JPRB &
+  &, 0.361532E+00_JPRB, 0.347551E+00_JPRB, 0.333805E+00_JPRB &
+  &, 0.320280E+00_JPRB, 0.307003E+00_JPRB, 0.293972E+00_JPRB, 0.281211E+00_JPRB &
+  &, 0.268729E+00_JPRB, 0.256536E+00_JPRB, 0.244638E+00_JPRB &
+  &, 0.233057E+00_JPRB, 0.221766E+00_JPRB, 0.210813E+00_JPRB, 0.200169E+00_JPRB &
+  &, 0.189863E+00_JPRB, 0.179875E+00_JPRB, 0.170235E+00_JPRB &
+  &, 0.160916E+00_JPRB, 0.151945E+00_JPRB, 0.143308E+00_JPRB, 0.135010E+00_JPRB &
+  &, 0.127033E+00_JPRB, 0.119397E+00_JPRB, 0.112098E+00_JPRB &
+  &, 0.105113E+00_JPRB, 0.984335E-01_JPRB, 0.920714E-01_JPRB, 0.860379E-01_JPRB &
+  &, 0.802748E-01_JPRB, 0.748109E-01_JPRB, 0.696520E-01_JPRB &
+  &, 0.647543E-01_JPRB, 0.601432E-01_JPRB, 0.557694E-01_JPRB, 0.516554E-01_JPRB &
+  &, 0.477981E-01_JPRB, 0.441663E-01_JPRB, 0.407527E-01_JPRB &
+  &, 0.375760E-01_JPRB, 0.345989E-01_JPRB, 0.318091E-01_JPRB, 0.291926E-01_JPRB &
+  &, 0.267938E-01_JPRB, 0.245371E-01_JPRB, 0.224343E-01_JPRB &
+  &, 0.204972E-01_JPRB, 0.187058E-01_JPRB, 0.170381E-01_JPRB, 0.155032E-01_JPRB &
+  &, 0.141107E-01_JPRB, 0.128012E-01_JPRB, 0.116160E-01_JPRB &
+  &, 0.105278E-01_JPRB, 0.950665E-02_JPRB, 0.859459E-02_JPRB, 0.776084E-02_JPRB &
+  &, 0.697227E-02_JPRB, 0.627114E-02_JPRB, 0.562323E-02_JPRB &
+  &, 0.507224E-02_JPRB, 0.454204E-02_JPRB, 0.407580E-02_JPRB, 0.363511E-02_JPRB &
+  &, 0.322172E-02_JPRB, 0.288096E-02_JPRB, 0.257255E-02_JPRB &
+  &, 0.229839E-02_JPRB, 0.201485E-02_JPRB, 0.181434E-02_JPRB, 0.160703E-02_JPRB &
+  &, 0.139283E-02_JPRB, 0.122005E-02_JPRB, 0.109078E-02_JPRB &
+  &, 0.957270E-03_JPRB, 0.819479E-03_JPRB, 0.728683E-03_JPRB, 0.634990E-03_JPRB &
+  &, 0.538365E-03_JPRB, 0.492368E-03_JPRB, 0.444899E-03_JPRB &
+  &, 0.340806E-03_JPRB, 0.289561E-03_JPRB, 0.293480E-03_JPRB, 0.239943E-03_JPRB &
+  &, 0.184844E-03_JPRB, 0.187249E-03_JPRB, 0.129781E-03_JPRB &
+  &, 0.131409E-03_JPRB, 0.715239E-04_JPRB, 0.723494E-04_JPRB, 0.731809E-04_JPRB &
+  &, 0.740184E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 401, :) = (/ &
+  &  0.971700E+00_JPRB, 0.963685E+00_JPRB, 0.955304E+00_JPRB, 0.946566E+00_JPRB &
+  &, 0.937474E+00_JPRB, 0.928034E+00_JPRB, 0.918254E+00_JPRB &
+  &, 0.908139E+00_JPRB, 0.897696E+00_JPRB, 0.886933E+00_JPRB, 0.875856E+00_JPRB &
+  &, 0.864474E+00_JPRB, 0.852794E+00_JPRB, 0.840826E+00_JPRB &
+  &, 0.828578E+00_JPRB, 0.816060E+00_JPRB, 0.803280E+00_JPRB, 0.790249E+00_JPRB &
+  &, 0.776977E+00_JPRB, 0.763473E+00_JPRB, 0.749754E+00_JPRB &
+  &, 0.735826E+00_JPRB, 0.721704E+00_JPRB, 0.707401E+00_JPRB, 0.692930E+00_JPRB &
+  &, 0.678299E+00_JPRB, 0.663532E+00_JPRB, 0.648639E+00_JPRB &
+  &, 0.633631E+00_JPRB, 0.618530E+00_JPRB, 0.603350E+00_JPRB, 0.588104E+00_JPRB &
+  &, 0.572811E+00_JPRB, 0.557484E+00_JPRB, 0.542146E+00_JPRB &
+  &, 0.526807E+00_JPRB, 0.511484E+00_JPRB, 0.496211E+00_JPRB, 0.480983E+00_JPRB &
+  &, 0.465825E+00_JPRB, 0.450766E+00_JPRB, 0.435806E+00_JPRB &
+  &, 0.420964E+00_JPRB, 0.406264E+00_JPRB, 0.391719E+00_JPRB, 0.377354E+00_JPRB &
+  &, 0.363169E+00_JPRB, 0.349179E+00_JPRB, 0.335408E+00_JPRB &
+  &, 0.321870E+00_JPRB, 0.308565E+00_JPRB, 0.295516E+00_JPRB, 0.282735E+00_JPRB &
+  &, 0.270232E+00_JPRB, 0.258015E+00_JPRB, 0.246092E+00_JPRB &
+  &, 0.234467E+00_JPRB, 0.223161E+00_JPRB, 0.212160E+00_JPRB, 0.201496E+00_JPRB &
+  &, 0.191153E+00_JPRB, 0.181143E+00_JPRB, 0.171460E+00_JPRB &
+  &, 0.162114E+00_JPRB, 0.153095E+00_JPRB, 0.144426E+00_JPRB, 0.136075E+00_JPRB &
+  &, 0.128082E+00_JPRB, 0.120408E+00_JPRB, 0.113048E+00_JPRB &
+  &, 0.106020E+00_JPRB, 0.993164E-01_JPRB, 0.929287E-01_JPRB, 0.868457E-01_JPRB &
+  &, 0.810534E-01_JPRB, 0.755587E-01_JPRB, 0.703673E-01_JPRB &
+  &, 0.654353E-01_JPRB, 0.607882E-01_JPRB, 0.563766E-01_JPRB, 0.522487E-01_JPRB &
+  &, 0.483504E-01_JPRB, 0.446757E-01_JPRB, 0.412445E-01_JPRB &
+  &, 0.380215E-01_JPRB, 0.350245E-01_JPRB, 0.322138E-01_JPRB, 0.295755E-01_JPRB &
+  &, 0.271537E-01_JPRB, 0.248731E-01_JPRB, 0.227453E-01_JPRB &
+  &, 0.207822E-01_JPRB, 0.189637E-01_JPRB, 0.173005E-01_JPRB, 0.157369E-01_JPRB &
+  &, 0.143146E-01_JPRB, 0.130086E-01_JPRB, 0.117919E-01_JPRB &
+  &, 0.106709E-01_JPRB, 0.965220E-02_JPRB, 0.874260E-02_JPRB, 0.787371E-02_JPRB &
+  &, 0.708704E-02_JPRB, 0.638780E-02_JPRB, 0.574182E-02_JPRB &
+  &, 0.515259E-02_JPRB, 0.462370E-02_JPRB, 0.411729E-02_JPRB, 0.367726E-02_JPRB &
+  &, 0.330737E-02_JPRB, 0.292446E-02_JPRB, 0.261673E-02_JPRB &
+  &, 0.234326E-02_JPRB, 0.206041E-02_JPRB, 0.181434E-02_JPRB, 0.160703E-02_JPRB &
+  &, 0.144051E-02_JPRB, 0.126845E-02_JPRB, 0.109078E-02_JPRB &
+  &, 0.957270E-03_JPRB, 0.870071E-03_JPRB, 0.728683E-03_JPRB, 0.634990E-03_JPRB &
+  &, 0.591202E-03_JPRB, 0.492368E-03_JPRB, 0.444899E-03_JPRB &
+  &, 0.395940E-03_JPRB, 0.345473E-03_JPRB, 0.293480E-03_JPRB, 0.239943E-03_JPRB &
+  &, 0.184844E-03_JPRB, 0.187249E-03_JPRB, 0.129781E-03_JPRB &
+  &, 0.131409E-03_JPRB, 0.715239E-04_JPRB, 0.723494E-04_JPRB, 0.731809E-04_JPRB &
+  &, 0.740184E-04_JPRB, 0.100000E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 402, :) = (/ &
+  &  0.971953E+00_JPRB, 0.964000E+00_JPRB, 0.955681E+00_JPRB, 0.947004E+00_JPRB &
+  &, 0.937971E+00_JPRB, 0.928589E+00_JPRB, 0.918867E+00_JPRB &
+  &, 0.908807E+00_JPRB, 0.898420E+00_JPRB, 0.887712E+00_JPRB, 0.876689E+00_JPRB &
+  &, 0.865358E+00_JPRB, 0.853730E+00_JPRB, 0.841811E+00_JPRB &
+  &, 0.829612E+00_JPRB, 0.817139E+00_JPRB, 0.804405E+00_JPRB, 0.791418E+00_JPRB &
+  &, 0.778188E+00_JPRB, 0.764727E+00_JPRB, 0.751045E+00_JPRB &
+  &, 0.737156E+00_JPRB, 0.723071E+00_JPRB, 0.708799E+00_JPRB, 0.694361E+00_JPRB &
+  &, 0.679765E+00_JPRB, 0.665026E+00_JPRB, 0.650158E+00_JPRB &
+  &, 0.635176E+00_JPRB, 0.620097E+00_JPRB, 0.604935E+00_JPRB, 0.589708E+00_JPRB &
+  &, 0.574433E+00_JPRB, 0.559121E+00_JPRB, 0.543797E+00_JPRB &
+  &, 0.528463E+00_JPRB, 0.513163E+00_JPRB, 0.497883E+00_JPRB, 0.482667E+00_JPRB &
+  &, 0.467511E+00_JPRB, 0.452452E+00_JPRB, 0.437491E+00_JPRB &
+  &, 0.422647E+00_JPRB, 0.407944E+00_JPRB, 0.393383E+00_JPRB, 0.378999E+00_JPRB &
+  &, 0.364807E+00_JPRB, 0.350806E+00_JPRB, 0.337024E+00_JPRB &
+  &, 0.323460E+00_JPRB, 0.310139E+00_JPRB, 0.297073E+00_JPRB, 0.284259E+00_JPRB &
+  &, 0.271735E+00_JPRB, 0.259494E+00_JPRB, 0.247545E+00_JPRB &
+  &, 0.235893E+00_JPRB, 0.224541E+00_JPRB, 0.213523E+00_JPRB, 0.202824E+00_JPRB &
+  &, 0.192443E+00_JPRB, 0.182393E+00_JPRB, 0.172684E+00_JPRB &
+  &, 0.163293E+00_JPRB, 0.154245E+00_JPRB, 0.145545E+00_JPRB, 0.137160E+00_JPRB &
+  &, 0.129131E+00_JPRB, 0.121418E+00_JPRB, 0.114019E+00_JPRB &
+  &, 0.106969E+00_JPRB, 0.100221E+00_JPRB, 0.937860E-01_JPRB, 0.876759E-01_JPRB &
+  &, 0.818549E-01_JPRB, 0.763299E-01_JPRB, 0.710826E-01_JPRB &
+  &, 0.661163E-01_JPRB, 0.614332E-01_JPRB, 0.570091E-01_JPRB, 0.528420E-01_JPRB &
+  &, 0.489027E-01_JPRB, 0.452119E-01_JPRB, 0.417364E-01_JPRB &
+  &, 0.384949E-01_JPRB, 0.354501E-01_JPRB, 0.326185E-01_JPRB, 0.299583E-01_JPRB &
+  &, 0.275136E-01_JPRB, 0.252091E-01_JPRB, 0.230564E-01_JPRB &
+  &, 0.210989E-01_JPRB, 0.192538E-01_JPRB, 0.175630E-01_JPRB, 0.160041E-01_JPRB &
+  &, 0.145524E-01_JPRB, 0.132160E-01_JPRB, 0.119677E-01_JPRB &
+  &, 0.108497E-01_JPRB, 0.983412E-02_JPRB, 0.889061E-02_JPRB, 0.802421E-02_JPRB &
+  &, 0.724005E-02_JPRB, 0.650447E-02_JPRB, 0.586041E-02_JPRB &
+  &, 0.523294E-02_JPRB, 0.470535E-02_JPRB, 0.420027E-02_JPRB, 0.376156E-02_JPRB &
+  &, 0.335019E-02_JPRB, 0.301146E-02_JPRB, 0.266092E-02_JPRB &
+  &, 0.238813E-02_JPRB, 0.210598E-02_JPRB, 0.186060E-02_JPRB, 0.165400E-02_JPRB &
+  &, 0.148819E-02_JPRB, 0.131685E-02_JPRB, 0.113990E-02_JPRB &
+  &, 0.100713E-02_JPRB, 0.870071E-03_JPRB, 0.780017E-03_JPRB, 0.687073E-03_JPRB &
+  &, 0.591202E-03_JPRB, 0.492368E-03_JPRB, 0.444899E-03_JPRB &
+  &, 0.395940E-03_JPRB, 0.345473E-03_JPRB, 0.293480E-03_JPRB, 0.239943E-03_JPRB &
+  &, 0.184844E-03_JPRB, 0.187249E-03_JPRB, 0.129781E-03_JPRB &
+  &, 0.131409E-03_JPRB, 0.133048E-03_JPRB, 0.723494E-04_JPRB, 0.731809E-04_JPRB &
+  &, 0.740184E-04_JPRB, 0.748618E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 403, :) = (/ &
+  &  0.972208E+00_JPRB, 0.964317E+00_JPRB, 0.956058E+00_JPRB, 0.947441E+00_JPRB &
+  &, 0.938467E+00_JPRB, 0.929145E+00_JPRB, 0.919479E+00_JPRB &
+  &, 0.909476E+00_JPRB, 0.899144E+00_JPRB, 0.888491E+00_JPRB, 0.877520E+00_JPRB &
+  &, 0.866243E+00_JPRB, 0.854665E+00_JPRB, 0.842797E+00_JPRB &
+  &, 0.830645E+00_JPRB, 0.818221E+00_JPRB, 0.805531E+00_JPRB, 0.792588E+00_JPRB &
+  &, 0.779401E+00_JPRB, 0.765980E+00_JPRB, 0.752339E+00_JPRB &
+  &, 0.738485E+00_JPRB, 0.724434E+00_JPRB, 0.710201E+00_JPRB, 0.695793E+00_JPRB &
+  &, 0.681227E+00_JPRB, 0.666516E+00_JPRB, 0.651677E+00_JPRB &
+  &, 0.636720E+00_JPRB, 0.621667E+00_JPRB, 0.606528E+00_JPRB, 0.591320E+00_JPRB &
+  &, 0.576060E+00_JPRB, 0.560762E+00_JPRB, 0.545448E+00_JPRB &
+  &, 0.530128E+00_JPRB, 0.514832E+00_JPRB, 0.499565E+00_JPRB, 0.484351E+00_JPRB &
+  &, 0.469197E+00_JPRB, 0.454138E+00_JPRB, 0.439176E+00_JPRB &
+  &, 0.424331E+00_JPRB, 0.409613E+00_JPRB, 0.395059E+00_JPRB, 0.380657E+00_JPRB &
+  &, 0.366456E+00_JPRB, 0.352434E+00_JPRB, 0.338628E+00_JPRB &
+  &, 0.325050E+00_JPRB, 0.311714E+00_JPRB, 0.298631E+00_JPRB, 0.285798E+00_JPRB &
+  &, 0.273238E+00_JPRB, 0.260974E+00_JPRB, 0.248999E+00_JPRB &
+  &, 0.237319E+00_JPRB, 0.225952E+00_JPRB, 0.214886E+00_JPRB, 0.204152E+00_JPRB &
+  &, 0.193750E+00_JPRB, 0.183660E+00_JPRB, 0.173909E+00_JPRB &
+  &, 0.164491E+00_JPRB, 0.155413E+00_JPRB, 0.146663E+00_JPRB, 0.138245E+00_JPRB &
+  &, 0.130180E+00_JPRB, 0.122429E+00_JPRB, 0.114989E+00_JPRB &
+  &, 0.107897E+00_JPRB, 0.101125E+00_JPRB, 0.946433E-01_JPRB, 0.884837E-01_JPRB &
+  &, 0.826335E-01_JPRB, 0.770776E-01_JPRB, 0.717978E-01_JPRB &
+  &, 0.667973E-01_JPRB, 0.620782E-01_JPRB, 0.576162E-01_JPRB, 0.534095E-01_JPRB &
+  &, 0.494550E-01_JPRB, 0.457481E-01_JPRB, 0.422556E-01_JPRB &
+  &, 0.389684E-01_JPRB, 0.359041E-01_JPRB, 0.330232E-01_JPRB, 0.303705E-01_JPRB &
+  &, 0.278735E-01_JPRB, 0.255451E-01_JPRB, 0.233985E-01_JPRB &
+  &, 0.213838E-01_JPRB, 0.195439E-01_JPRB, 0.178255E-01_JPRB, 0.162378E-01_JPRB &
+  &, 0.147563E-01_JPRB, 0.134234E-01_JPRB, 0.121787E-01_JPRB &
+  &, 0.110286E-01_JPRB, 0.997967E-02_JPRB, 0.903862E-02_JPRB, 0.813709E-02_JPRB &
+  &, 0.735482E-02_JPRB, 0.662114E-02_JPRB, 0.593947E-02_JPRB &
+  &, 0.535347E-02_JPRB, 0.478701E-02_JPRB, 0.428324E-02_JPRB, 0.384587E-02_JPRB &
+  &, 0.343584E-02_JPRB, 0.305496E-02_JPRB, 0.274928E-02_JPRB &
+  &, 0.243300E-02_JPRB, 0.215154E-02_JPRB, 0.190687E-02_JPRB, 0.170097E-02_JPRB &
+  &, 0.148819E-02_JPRB, 0.131685E-02_JPRB, 0.118903E-02_JPRB &
+  &, 0.100713E-02_JPRB, 0.920664E-03_JPRB, 0.780017E-03_JPRB, 0.687073E-03_JPRB &
+  &, 0.591202E-03_JPRB, 0.545965E-03_JPRB, 0.444899E-03_JPRB &
+  &, 0.395940E-03_JPRB, 0.345473E-03_JPRB, 0.293480E-03_JPRB, 0.239943E-03_JPRB &
+  &, 0.243126E-03_JPRB, 0.187249E-03_JPRB, 0.129781E-03_JPRB &
+  &, 0.131409E-03_JPRB, 0.133048E-03_JPRB, 0.723494E-04_JPRB, 0.731809E-04_JPRB &
+  &, 0.740184E-04_JPRB, 0.748618E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 404, :) = (/ &
+  &  0.972462E+00_JPRB, 0.964632E+00_JPRB, 0.956435E+00_JPRB, 0.947878E+00_JPRB &
+  &, 0.938964E+00_JPRB, 0.929700E+00_JPRB, 0.920091E+00_JPRB &
+  &, 0.910146E+00_JPRB, 0.899870E+00_JPRB, 0.889269E+00_JPRB, 0.878353E+00_JPRB &
+  &, 0.867127E+00_JPRB, 0.855600E+00_JPRB, 0.843782E+00_JPRB &
+  &, 0.831679E+00_JPRB, 0.819300E+00_JPRB, 0.806656E+00_JPRB, 0.793757E+00_JPRB &
+  &, 0.780614E+00_JPRB, 0.767233E+00_JPRB, 0.753632E+00_JPRB &
+  &, 0.739818E+00_JPRB, 0.725805E+00_JPRB, 0.711603E+00_JPRB, 0.697228E+00_JPRB &
+  &, 0.682693E+00_JPRB, 0.668013E+00_JPRB, 0.653199E+00_JPRB &
+  &, 0.638269E+00_JPRB, 0.623238E+00_JPRB, 0.608118E+00_JPRB, 0.592928E+00_JPRB &
+  &, 0.577687E+00_JPRB, 0.562408E+00_JPRB, 0.547109E+00_JPRB &
+  &, 0.531802E+00_JPRB, 0.516510E+00_JPRB, 0.501247E+00_JPRB, 0.486036E+00_JPRB &
+  &, 0.470893E+00_JPRB, 0.455825E+00_JPRB, 0.440862E+00_JPRB &
+  &, 0.426014E+00_JPRB, 0.411293E+00_JPRB, 0.396722E+00_JPRB, 0.382326E+00_JPRB &
+  &, 0.368106E+00_JPRB, 0.354074E+00_JPRB, 0.340257E+00_JPRB &
+  &, 0.326653E+00_JPRB, 0.313302E+00_JPRB, 0.300188E+00_JPRB, 0.287336E+00_JPRB &
+  &, 0.274755E+00_JPRB, 0.262468E+00_JPRB, 0.250453E+00_JPRB &
+  &, 0.238744E+00_JPRB, 0.227348E+00_JPRB, 0.216265E+00_JPRB, 0.205496E+00_JPRB &
+  &, 0.195057E+00_JPRB, 0.184927E+00_JPRB, 0.175152E+00_JPRB &
+  &, 0.165689E+00_JPRB, 0.156582E+00_JPRB, 0.147801E+00_JPRB, 0.139349E+00_JPRB &
+  &, 0.131229E+00_JPRB, 0.123440E+00_JPRB, 0.115981E+00_JPRB &
+  &, 0.108846E+00_JPRB, 0.102029E+00_JPRB, 0.955226E-01_JPRB, 0.893363E-01_JPRB &
+  &, 0.834350E-01_JPRB, 0.778488E-01_JPRB, 0.725369E-01_JPRB &
+  &, 0.675026E-01_JPRB, 0.627480E-01_JPRB, 0.582487E-01_JPRB, 0.540029E-01_JPRB &
+  &, 0.500336E-01_JPRB, 0.462843E-01_JPRB, 0.427475E-01_JPRB &
+  &, 0.394418E-01_JPRB, 0.363581E-01_JPRB, 0.334568E-01_JPRB, 0.307534E-01_JPRB &
+  &, 0.282335E-01_JPRB, 0.258811E-01_JPRB, 0.237095E-01_JPRB &
+  &, 0.217005E-01_JPRB, 0.198018E-01_JPRB, 0.180880E-01_JPRB, 0.164715E-01_JPRB &
+  &, 0.149941E-01_JPRB, 0.136308E-01_JPRB, 0.123897E-01_JPRB &
+  &, 0.112075E-01_JPRB, 0.101616E-01_JPRB, 0.918663E-02_JPRB, 0.828759E-02_JPRB &
+  &, 0.746958E-02_JPRB, 0.673780E-02_JPRB, 0.605806E-02_JPRB &
+  &, 0.543383E-02_JPRB, 0.490950E-02_JPRB, 0.436622E-02_JPRB, 0.393017E-02_JPRB &
+  &, 0.352148E-02_JPRB, 0.314196E-02_JPRB, 0.279346E-02_JPRB &
+  &, 0.247787E-02_JPRB, 0.219711E-02_JPRB, 0.195314E-02_JPRB, 0.174794E-02_JPRB &
+  &, 0.153588E-02_JPRB, 0.136525E-02_JPRB, 0.118903E-02_JPRB &
+  &, 0.105698E-02_JPRB, 0.920664E-03_JPRB, 0.831352E-03_JPRB, 0.687073E-03_JPRB &
+  &, 0.644038E-03_JPRB, 0.545965E-03_JPRB, 0.499262E-03_JPRB &
+  &, 0.395940E-03_JPRB, 0.345473E-03_JPRB, 0.293480E-03_JPRB, 0.239943E-03_JPRB &
+  &, 0.243126E-03_JPRB, 0.187249E-03_JPRB, 0.189672E-03_JPRB &
+  &, 0.131409E-03_JPRB, 0.133048E-03_JPRB, 0.723494E-04_JPRB, 0.731809E-04_JPRB &
+  &, 0.740184E-04_JPRB, 0.748618E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 405, :) = (/ &
+  &  0.972716E+00_JPRB, 0.964947E+00_JPRB, 0.956812E+00_JPRB, 0.948315E+00_JPRB &
+  &, 0.939460E+00_JPRB, 0.930254E+00_JPRB, 0.920704E+00_JPRB &
+  &, 0.910815E+00_JPRB, 0.900593E+00_JPRB, 0.890048E+00_JPRB, 0.879185E+00_JPRB &
+  &, 0.868012E+00_JPRB, 0.856536E+00_JPRB, 0.844767E+00_JPRB &
+  &, 0.832712E+00_JPRB, 0.820376E+00_JPRB, 0.807783E+00_JPRB, 0.794928E+00_JPRB &
+  &, 0.781826E+00_JPRB, 0.768489E+00_JPRB, 0.754926E+00_JPRB &
+  &, 0.741148E+00_JPRB, 0.727171E+00_JPRB, 0.713005E+00_JPRB, 0.698663E+00_JPRB &
+  &, 0.684159E+00_JPRB, 0.669507E+00_JPRB, 0.654722E+00_JPRB &
+  &, 0.639817E+00_JPRB, 0.624809E+00_JPRB, 0.609711E+00_JPRB, 0.594541E+00_JPRB &
+  &, 0.579318E+00_JPRB, 0.564054E+00_JPRB, 0.548764E+00_JPRB &
+  &, 0.533467E+00_JPRB, 0.518188E+00_JPRB, 0.502938E+00_JPRB, 0.487730E+00_JPRB &
+  &, 0.472589E+00_JPRB, 0.457521E+00_JPRB, 0.442558E+00_JPRB &
+  &, 0.427697E+00_JPRB, 0.412973E+00_JPRB, 0.398398E+00_JPRB, 0.383995E+00_JPRB &
+  &, 0.369755E+00_JPRB, 0.355714E+00_JPRB, 0.341873E+00_JPRB &
+  &, 0.328269E+00_JPRB, 0.314890E+00_JPRB, 0.301760E+00_JPRB, 0.288889E+00_JPRB &
+  &, 0.276272E+00_JPRB, 0.263962E+00_JPRB, 0.251921E+00_JPRB &
+  &, 0.240186E+00_JPRB, 0.228759E+00_JPRB, 0.217644E+00_JPRB, 0.206841E+00_JPRB &
+  &, 0.196364E+00_JPRB, 0.186212E+00_JPRB, 0.176394E+00_JPRB &
+  &, 0.166905E+00_JPRB, 0.157750E+00_JPRB, 0.148938E+00_JPRB, 0.140453E+00_JPRB &
+  &, 0.132298E+00_JPRB, 0.124471E+00_JPRB, 0.116972E+00_JPRB &
+  &, 0.109795E+00_JPRB, 0.102934E+00_JPRB, 0.964019E-01_JPRB, 0.901665E-01_JPRB &
+  &, 0.842365E-01_JPRB, 0.785966E-01_JPRB, 0.732522E-01_JPRB &
+  &, 0.682080E-01_JPRB, 0.634178E-01_JPRB, 0.588812E-01_JPRB, 0.546220E-01_JPRB &
+  &, 0.505859E-01_JPRB, 0.468205E-01_JPRB, 0.432666E-01_JPRB &
+  &, 0.399152E-01_JPRB, 0.368121E-01_JPRB, 0.338905E-01_JPRB, 0.311656E-01_JPRB &
+  &, 0.286234E-01_JPRB, 0.262476E-01_JPRB, 0.240516E-01_JPRB &
+  &, 0.219855E-01_JPRB, 0.200919E-01_JPRB, 0.183504E-01_JPRB, 0.167387E-01_JPRB &
+  &, 0.152320E-01_JPRB, 0.138383E-01_JPRB, 0.125656E-01_JPRB &
+  &, 0.113864E-01_JPRB, 0.103435E-01_JPRB, 0.933464E-02_JPRB, 0.843809E-02_JPRB &
+  &, 0.762260E-02_JPRB, 0.685447E-02_JPRB, 0.617665E-02_JPRB &
+  &, 0.555436E-02_JPRB, 0.499116E-02_JPRB, 0.444920E-02_JPRB, 0.401448E-02_JPRB &
+  &, 0.356430E-02_JPRB, 0.318546E-02_JPRB, 0.283764E-02_JPRB &
+  &, 0.252274E-02_JPRB, 0.224267E-02_JPRB, 0.199940E-02_JPRB, 0.179491E-02_JPRB &
+  &, 0.158356E-02_JPRB, 0.136525E-02_JPRB, 0.123815E-02_JPRB &
+  &, 0.105698E-02_JPRB, 0.971256E-03_JPRB, 0.831352E-03_JPRB, 0.739156E-03_JPRB &
+  &, 0.644038E-03_JPRB, 0.545965E-03_JPRB, 0.499262E-03_JPRB &
+  &, 0.395940E-03_JPRB, 0.345473E-03_JPRB, 0.293480E-03_JPRB, 0.297428E-03_JPRB &
+  &, 0.243126E-03_JPRB, 0.187249E-03_JPRB, 0.189672E-03_JPRB &
+  &, 0.131409E-03_JPRB, 0.133048E-03_JPRB, 0.723494E-04_JPRB, 0.731809E-04_JPRB &
+  &, 0.740184E-04_JPRB, 0.748618E-04_JPRB, 0.100000E-04_JPRB/)
+XCW( 406, :) = (/ &
+  &  0.972970E+00_JPRB, 0.965263E+00_JPRB, 0.957188E+00_JPRB, 0.948752E+00_JPRB &
+  &, 0.939956E+00_JPRB, 0.930809E+00_JPRB, 0.921316E+00_JPRB &
+  &, 0.911483E+00_JPRB, 0.901318E+00_JPRB, 0.890827E+00_JPRB, 0.880018E+00_JPRB &
+  &, 0.868896E+00_JPRB, 0.857471E+00_JPRB, 0.845752E+00_JPRB &
+  &, 0.833746E+00_JPRB, 0.821461E+00_JPRB, 0.808909E+00_JPRB, 0.796099E+00_JPRB &
+  &, 0.783041E+00_JPRB, 0.769742E+00_JPRB, 0.756220E+00_JPRB &
+  &, 0.742481E+00_JPRB, 0.728541E+00_JPRB, 0.714411E+00_JPRB, 0.700102E+00_JPRB &
+  &, 0.685628E+00_JPRB, 0.671005E+00_JPRB, 0.656248E+00_JPRB &
+  &, 0.641369E+00_JPRB, 0.626383E+00_JPRB, 0.611309E+00_JPRB, 0.596157E+00_JPRB &
+  &, 0.580950E+00_JPRB, 0.565700E+00_JPRB, 0.550429E+00_JPRB &
+  &, 0.535141E+00_JPRB, 0.519867E+00_JPRB, 0.504620E+00_JPRB, 0.489424E+00_JPRB &
+  &, 0.474285E+00_JPRB, 0.459218E+00_JPRB, 0.444254E+00_JPRB &
+  &, 0.429392E+00_JPRB, 0.414665E+00_JPRB, 0.400085E+00_JPRB, 0.385665E+00_JPRB &
+  &, 0.371417E+00_JPRB, 0.357354E+00_JPRB, 0.343502E+00_JPRB &
+  &, 0.329872E+00_JPRB, 0.316478E+00_JPRB, 0.303331E+00_JPRB, 0.290427E+00_JPRB &
+  &, 0.277804E+00_JPRB, 0.265456E+00_JPRB, 0.253390E+00_JPRB &
+  &, 0.241627E+00_JPRB, 0.230170E+00_JPRB, 0.219023E+00_JPRB, 0.208185E+00_JPRB &
+  &, 0.197672E+00_JPRB, 0.187496E+00_JPRB, 0.177637E+00_JPRB &
+  &, 0.168120E+00_JPRB, 0.158937E+00_JPRB, 0.150076E+00_JPRB, 0.141558E+00_JPRB &
+  &, 0.133367E+00_JPRB, 0.125502E+00_JPRB, 0.117963E+00_JPRB &
+  &, 0.110744E+00_JPRB, 0.103860E+00_JPRB, 0.972812E-01_JPRB, 0.910192E-01_JPRB &
+  &, 0.850609E-01_JPRB, 0.793911E-01_JPRB, 0.739913E-01_JPRB &
+  &, 0.689133E-01_JPRB, 0.640876E-01_JPRB, 0.595137E-01_JPRB, 0.552153E-01_JPRB &
+  &, 0.511646E-01_JPRB, 0.473567E-01_JPRB, 0.437585E-01_JPRB &
+  &, 0.404164E-01_JPRB, 0.372661E-01_JPRB, 0.343241E-01_JPRB, 0.315485E-01_JPRB &
+  &, 0.289833E-01_JPRB, 0.266142E-01_JPRB, 0.243626E-01_JPRB &
+  &, 0.223021E-01_JPRB, 0.203820E-01_JPRB, 0.186129E-01_JPRB, 0.169724E-01_JPRB &
+  &, 0.154698E-01_JPRB, 0.140457E-01_JPRB, 0.127766E-01_JPRB &
+  &, 0.116010E-01_JPRB, 0.104891E-01_JPRB, 0.948265E-02_JPRB, 0.858860E-02_JPRB &
+  &, 0.773736E-02_JPRB, 0.697114E-02_JPRB, 0.629524E-02_JPRB &
+  &, 0.563471E-02_JPRB, 0.507282E-02_JPRB, 0.453217E-02_JPRB, 0.405663E-02_JPRB &
+  &, 0.364995E-02_JPRB, 0.327246E-02_JPRB, 0.292601E-02_JPRB &
+  &, 0.256761E-02_JPRB, 0.228824E-02_JPRB, 0.204567E-02_JPRB, 0.179491E-02_JPRB &
+  &, 0.158356E-02_JPRB, 0.141366E-02_JPRB, 0.123815E-02_JPRB &
+  &, 0.110684E-02_JPRB, 0.971256E-03_JPRB, 0.831352E-03_JPRB, 0.739156E-03_JPRB &
+  &, 0.644038E-03_JPRB, 0.545965E-03_JPRB, 0.499262E-03_JPRB &
+  &, 0.451074E-03_JPRB, 0.401385E-03_JPRB, 0.350176E-03_JPRB, 0.297428E-03_JPRB &
+  &, 0.243126E-03_JPRB, 0.187249E-03_JPRB, 0.189672E-03_JPRB &
+  &, 0.131409E-03_JPRB, 0.133048E-03_JPRB, 0.723494E-04_JPRB, 0.731809E-04_JPRB &
+  &, 0.740184E-04_JPRB, 0.748618E-04_JPRB, 0.100000E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART58',1,ZHOOK_HANDLE)
+END SUBROUTINE PART58
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART59
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART59',0,ZHOOK_HANDLE)
+
+XCW( 407, :) = (/ &
+  &  0.973221E+00_JPRB, 0.965579E+00_JPRB, 0.957564E+00_JPRB, 0.949188E+00_JPRB &
+  &, 0.940452E+00_JPRB, 0.931364E+00_JPRB, 0.921928E+00_JPRB &
+  &, 0.912152E+00_JPRB, 0.902043E+00_JPRB, 0.891606E+00_JPRB, 0.880850E+00_JPRB &
+  &, 0.869781E+00_JPRB, 0.858407E+00_JPRB, 0.846737E+00_JPRB &
+  &, 0.834780E+00_JPRB, 0.822542E+00_JPRB, 0.810037E+00_JPRB, 0.797270E+00_JPRB &
+  &, 0.784255E+00_JPRB, 0.770999E+00_JPRB, 0.757517E+00_JPRB &
+  &, 0.743817E+00_JPRB, 0.729912E+00_JPRB, 0.715813E+00_JPRB, 0.701537E+00_JPRB &
+  &, 0.687098E+00_JPRB, 0.672502E+00_JPRB, 0.657775E+00_JPRB &
+  &, 0.642918E+00_JPRB, 0.627958E+00_JPRB, 0.612906E+00_JPRB, 0.597774E+00_JPRB &
+  &, 0.582585E+00_JPRB, 0.567350E+00_JPRB, 0.552089E+00_JPRB &
+  &, 0.536816E+00_JPRB, 0.521555E+00_JPRB, 0.506322E+00_JPRB, 0.491119E+00_JPRB &
+  &, 0.475981E+00_JPRB, 0.460914E+00_JPRB, 0.445950E+00_JPRB &
+  &, 0.431086E+00_JPRB, 0.416356E+00_JPRB, 0.401760E+00_JPRB, 0.387334E+00_JPRB &
+  &, 0.373079E+00_JPRB, 0.359007E+00_JPRB, 0.345144E+00_JPRB &
+  &, 0.331489E+00_JPRB, 0.318080E+00_JPRB, 0.304902E+00_JPRB, 0.291980E+00_JPRB &
+  &, 0.279336E+00_JPRB, 0.266965E+00_JPRB, 0.254874E+00_JPRB &
+  &, 0.243084E+00_JPRB, 0.231597E+00_JPRB, 0.220418E+00_JPRB, 0.209546E+00_JPRB &
+  &, 0.198996E+00_JPRB, 0.188781E+00_JPRB, 0.178897E+00_JPRB &
+  &, 0.169336E+00_JPRB, 0.160106E+00_JPRB, 0.151213E+00_JPRB, 0.142662E+00_JPRB &
+  &, 0.134435E+00_JPRB, 0.126534E+00_JPRB, 0.118954E+00_JPRB &
+  &, 0.111714E+00_JPRB, 0.104786E+00_JPRB, 0.981824E-01_JPRB, 0.918718E-01_JPRB &
+  &, 0.858625E-01_JPRB, 0.801622E-01_JPRB, 0.747542E-01_JPRB &
+  &, 0.696186E-01_JPRB, 0.647574E-01_JPRB, 0.601715E-01_JPRB, 0.558345E-01_JPRB &
+  &, 0.517432E-01_JPRB, 0.478929E-01_JPRB, 0.442777E-01_JPRB &
+  &, 0.408898E-01_JPRB, 0.377201E-01_JPRB, 0.347577E-01_JPRB, 0.319607E-01_JPRB &
+  &, 0.293732E-01_JPRB, 0.269502E-01_JPRB, 0.247047E-01_JPRB &
+  &, 0.226188E-01_JPRB, 0.206721E-01_JPRB, 0.188754E-01_JPRB, 0.172395E-01_JPRB &
+  &, 0.157077E-01_JPRB, 0.142877E-01_JPRB, 0.129876E-01_JPRB &
+  &, 0.117799E-01_JPRB, 0.106710E-01_JPRB, 0.966767E-02_JPRB, 0.873910E-02_JPRB &
+  &, 0.789038E-02_JPRB, 0.712669E-02_JPRB, 0.641383E-02_JPRB &
+  &, 0.575524E-02_JPRB, 0.515448E-02_JPRB, 0.465663E-02_JPRB, 0.414093E-02_JPRB &
+  &, 0.373560E-02_JPRB, 0.331596E-02_JPRB, 0.297019E-02_JPRB &
+  &, 0.265735E-02_JPRB, 0.233380E-02_JPRB, 0.209193E-02_JPRB, 0.184189E-02_JPRB &
+  &, 0.163125E-02_JPRB, 0.146206E-02_JPRB, 0.128728E-02_JPRB &
+  &, 0.115669E-02_JPRB, 0.102185E-02_JPRB, 0.882686E-03_JPRB, 0.791238E-03_JPRB &
+  &, 0.696875E-03_JPRB, 0.599561E-03_JPRB, 0.499262E-03_JPRB &
+  &, 0.451074E-03_JPRB, 0.401385E-03_JPRB, 0.350176E-03_JPRB, 0.297428E-03_JPRB &
+  &, 0.243126E-03_JPRB, 0.187249E-03_JPRB, 0.189672E-03_JPRB &
+  &, 0.131409E-03_JPRB, 0.133048E-03_JPRB, 0.134699E-03_JPRB, 0.731809E-04_JPRB &
+  &, 0.740184E-04_JPRB, 0.748618E-04_JPRB, 0.757111E-04_JPRB/)
+XCW( 408, :) = (/ &
+  &  0.973475E+00_JPRB, 0.965894E+00_JPRB, 0.957941E+00_JPRB, 0.949624E+00_JPRB &
+  &, 0.940948E+00_JPRB, 0.931918E+00_JPRB, 0.922540E+00_JPRB &
+  &, 0.912821E+00_JPRB, 0.902766E+00_JPRB, 0.892385E+00_JPRB, 0.881682E+00_JPRB &
+  &, 0.870666E+00_JPRB, 0.859343E+00_JPRB, 0.847723E+00_JPRB &
+  &, 0.835815E+00_JPRB, 0.823625E+00_JPRB, 0.811164E+00_JPRB, 0.798442E+00_JPRB &
+  &, 0.785469E+00_JPRB, 0.772255E+00_JPRB, 0.758811E+00_JPRB &
+  &, 0.745150E+00_JPRB, 0.731282E+00_JPRB, 0.717222E+00_JPRB, 0.702979E+00_JPRB &
+  &, 0.688568E+00_JPRB, 0.674003E+00_JPRB, 0.659301E+00_JPRB &
+  &, 0.644474E+00_JPRB, 0.629537E+00_JPRB, 0.614504E+00_JPRB, 0.599394E+00_JPRB &
+  &, 0.584221E+00_JPRB, 0.569004E+00_JPRB, 0.553758E+00_JPRB &
+  &, 0.538499E+00_JPRB, 0.523243E+00_JPRB, 0.508013E+00_JPRB, 0.492823E+00_JPRB &
+  &, 0.477687E+00_JPRB, 0.462622E+00_JPRB, 0.447657E+00_JPRB &
+  &, 0.432792E+00_JPRB, 0.418047E+00_JPRB, 0.403459E+00_JPRB, 0.389015E+00_JPRB &
+  &, 0.374740E+00_JPRB, 0.360660E+00_JPRB, 0.346786E+00_JPRB &
+  &, 0.333118E+00_JPRB, 0.319682E+00_JPRB, 0.306488E+00_JPRB, 0.293547E+00_JPRB &
+  &, 0.280868E+00_JPRB, 0.268474E+00_JPRB, 0.256358E+00_JPRB &
+  &, 0.244540E+00_JPRB, 0.233009E+00_JPRB, 0.221813E+00_JPRB, 0.210907E+00_JPRB &
+  &, 0.200337E+00_JPRB, 0.190083E+00_JPRB, 0.180157E+00_JPRB &
+  &, 0.170570E+00_JPRB, 0.161312E+00_JPRB, 0.152369E+00_JPRB, 0.143785E+00_JPRB &
+  &, 0.135504E+00_JPRB, 0.127585E+00_JPRB, 0.119966E+00_JPRB &
+  &, 0.112684E+00_JPRB, 0.105711E+00_JPRB, 0.990617E-01_JPRB, 0.927245E-01_JPRB &
+  &, 0.866869E-01_JPRB, 0.809567E-01_JPRB, 0.754933E-01_JPRB &
+  &, 0.703239E-01_JPRB, 0.654272E-01_JPRB, 0.608039E-01_JPRB, 0.564536E-01_JPRB &
+  &, 0.523218E-01_JPRB, 0.484560E-01_JPRB, 0.447969E-01_JPRB &
+  &, 0.413911E-01_JPRB, 0.381741E-01_JPRB, 0.351913E-01_JPRB, 0.323730E-01_JPRB &
+  &, 0.297631E-01_JPRB, 0.273167E-01_JPRB, 0.250469E-01_JPRB &
+  &, 0.229354E-01_JPRB, 0.209945E-01_JPRB, 0.191707E-01_JPRB, 0.174732E-01_JPRB &
+  &, 0.159455E-01_JPRB, 0.144951E-01_JPRB, 0.131635E-01_JPRB &
+  &, 0.119587E-01_JPRB, 0.108529E-01_JPRB, 0.981568E-02_JPRB, 0.888960E-02_JPRB &
+  &, 0.800514E-02_JPRB, 0.724336E-02_JPRB, 0.653241E-02_JPRB &
+  &, 0.587577E-02_JPRB, 0.527696E-02_JPRB, 0.473961E-02_JPRB, 0.422524E-02_JPRB &
+  &, 0.377842E-02_JPRB, 0.340296E-02_JPRB, 0.301437E-02_JPRB &
+  &, 0.270222E-02_JPRB, 0.242493E-02_JPRB, 0.213820E-02_JPRB, 0.188886E-02_JPRB &
+  &, 0.167893E-02_JPRB, 0.151046E-02_JPRB, 0.133641E-02_JPRB &
+  &, 0.115669E-02_JPRB, 0.102185E-02_JPRB, 0.882686E-03_JPRB, 0.791238E-03_JPRB &
+  &, 0.696875E-03_JPRB, 0.599561E-03_JPRB, 0.553624E-03_JPRB &
+  &, 0.451074E-03_JPRB, 0.401385E-03_JPRB, 0.350176E-03_JPRB, 0.297428E-03_JPRB &
+  &, 0.243126E-03_JPRB, 0.246332E-03_JPRB, 0.189672E-03_JPRB &
+  &, 0.131409E-03_JPRB, 0.133048E-03_JPRB, 0.134699E-03_JPRB, 0.731809E-04_JPRB &
+  &, 0.740184E-04_JPRB, 0.748618E-04_JPRB, 0.757111E-04_JPRB/)
+XCW( 409, :) = (/ &
+  &  0.973730E+00_JPRB, 0.966211E+00_JPRB, 0.958316E+00_JPRB, 0.950061E+00_JPRB &
+  &, 0.941444E+00_JPRB, 0.932472E+00_JPRB, 0.923152E+00_JPRB &
+  &, 0.913489E+00_JPRB, 0.903491E+00_JPRB, 0.893164E+00_JPRB, 0.882514E+00_JPRB &
+  &, 0.871550E+00_JPRB, 0.860279E+00_JPRB, 0.848709E+00_JPRB &
+  &, 0.836848E+00_JPRB, 0.824706E+00_JPRB, 0.812292E+00_JPRB, 0.799615E+00_JPRB &
+  &, 0.786685E+00_JPRB, 0.773511E+00_JPRB, 0.760108E+00_JPRB &
+  &, 0.746486E+00_JPRB, 0.732655E+00_JPRB, 0.718628E+00_JPRB, 0.704418E+00_JPRB &
+  &, 0.690041E+00_JPRB, 0.675505E+00_JPRB, 0.660832E+00_JPRB &
+  &, 0.646014E+00_JPRB, 0.631115E+00_JPRB, 0.616105E+00_JPRB, 0.601015E+00_JPRB &
+  &, 0.585860E+00_JPRB, 0.570659E+00_JPRB, 0.555427E+00_JPRB &
+  &, 0.540173E+00_JPRB, 0.524931E+00_JPRB, 0.509715E+00_JPRB, 0.494527E+00_JPRB &
+  &, 0.479393E+00_JPRB, 0.464329E+00_JPRB, 0.449364E+00_JPRB &
+  &, 0.434497E+00_JPRB, 0.419750E+00_JPRB, 0.405146E+00_JPRB, 0.390697E+00_JPRB &
+  &, 0.376415E+00_JPRB, 0.362325E+00_JPRB, 0.348427E+00_JPRB &
+  &, 0.334747E+00_JPRB, 0.321283E+00_JPRB, 0.308073E+00_JPRB, 0.295113E+00_JPRB &
+  &, 0.282414E+00_JPRB, 0.269983E+00_JPRB, 0.257842E+00_JPRB &
+  &, 0.245997E+00_JPRB, 0.234452E+00_JPRB, 0.223209E+00_JPRB, 0.212284E+00_JPRB &
+  &, 0.201678E+00_JPRB, 0.191385E+00_JPRB, 0.181435E+00_JPRB &
+  &, 0.171804E+00_JPRB, 0.162499E+00_JPRB, 0.153545E+00_JPRB, 0.144909E+00_JPRB &
+  &, 0.136593E+00_JPRB, 0.128636E+00_JPRB, 0.120978E+00_JPRB &
+  &, 0.113654E+00_JPRB, 0.106659E+00_JPRB, 0.999630E-01_JPRB, 0.935996E-01_JPRB &
+  &, 0.875113E-01_JPRB, 0.817279E-01_JPRB, 0.762562E-01_JPRB &
+  &, 0.710536E-01_JPRB, 0.661218E-01_JPRB, 0.614617E-01_JPRB, 0.570727E-01_JPRB &
+  &, 0.529267E-01_JPRB, 0.490190E-01_JPRB, 0.453434E-01_JPRB &
+  &, 0.418923E-01_JPRB, 0.386565E-01_JPRB, 0.356250E-01_JPRB, 0.327853E-01_JPRB &
+  &, 0.301530E-01_JPRB, 0.276832E-01_JPRB, 0.253890E-01_JPRB &
+  &, 0.232521E-01_JPRB, 0.212846E-01_JPRB, 0.194331E-01_JPRB, 0.177404E-01_JPRB &
+  &, 0.161833E-01_JPRB, 0.147371E-01_JPRB, 0.133745E-01_JPRB &
+  &, 0.121734E-01_JPRB, 0.110349E-01_JPRB, 0.100007E-01_JPRB, 0.904010E-02_JPRB &
+  &, 0.815816E-02_JPRB, 0.736003E-02_JPRB, 0.665100E-02_JPRB &
+  &, 0.595612E-02_JPRB, 0.535862E-02_JPRB, 0.482259E-02_JPRB, 0.430954E-02_JPRB &
+  &, 0.386407E-02_JPRB, 0.344646E-02_JPRB, 0.310274E-02_JPRB &
+  &, 0.274709E-02_JPRB, 0.247050E-02_JPRB, 0.218446E-02_JPRB, 0.193583E-02_JPRB &
+  &, 0.172661E-02_JPRB, 0.151046E-02_JPRB, 0.133641E-02_JPRB &
+  &, 0.120655E-02_JPRB, 0.102185E-02_JPRB, 0.934021E-03_JPRB, 0.791238E-03_JPRB &
+  &, 0.696875E-03_JPRB, 0.599561E-03_JPRB, 0.553624E-03_JPRB &
+  &, 0.451074E-03_JPRB, 0.401385E-03_JPRB, 0.350176E-03_JPRB, 0.297428E-03_JPRB &
+  &, 0.243126E-03_JPRB, 0.246332E-03_JPRB, 0.189672E-03_JPRB &
+  &, 0.192113E-03_JPRB, 0.133048E-03_JPRB, 0.134699E-03_JPRB, 0.731809E-04_JPRB &
+  &, 0.740184E-04_JPRB, 0.748618E-04_JPRB, 0.757111E-04_JPRB/)
+XCW( 410, :) = (/ &
+  &  0.973982E+00_JPRB, 0.966523E+00_JPRB, 0.958692E+00_JPRB, 0.950497E+00_JPRB &
+  &, 0.941939E+00_JPRB, 0.933026E+00_JPRB, 0.923763E+00_JPRB &
+  &, 0.914157E+00_JPRB, 0.904215E+00_JPRB, 0.893943E+00_JPRB, 0.883347E+00_JPRB &
+  &, 0.872435E+00_JPRB, 0.861214E+00_JPRB, 0.849694E+00_JPRB &
+  &, 0.837883E+00_JPRB, 0.825789E+00_JPRB, 0.813420E+00_JPRB, 0.800787E+00_JPRB &
+  &, 0.787901E+00_JPRB, 0.774770E+00_JPRB, 0.761405E+00_JPRB &
+  &, 0.747822E+00_JPRB, 0.734026E+00_JPRB, 0.720037E+00_JPRB, 0.705861E+00_JPRB &
+  &, 0.691514E+00_JPRB, 0.677010E+00_JPRB, 0.662362E+00_JPRB &
+  &, 0.647586E+00_JPRB, 0.632694E+00_JPRB, 0.617707E+00_JPRB, 0.602640E+00_JPRB &
+  &, 0.587487E+00_JPRB, 0.572318E+00_JPRB, 0.557097E+00_JPRB &
+  &, 0.541857E+00_JPRB, 0.526628E+00_JPRB, 0.511416E+00_JPRB, 0.496232E+00_JPRB &
+  &, 0.481099E+00_JPRB, 0.466047E+00_JPRB, 0.451071E+00_JPRB &
+  &, 0.436203E+00_JPRB, 0.421453E+00_JPRB, 0.406845E+00_JPRB, 0.392378E+00_JPRB &
+  &, 0.378089E+00_JPRB, 0.363977E+00_JPRB, 0.350069E+00_JPRB &
+  &, 0.336377E+00_JPRB, 0.322898E+00_JPRB, 0.309672E+00_JPRB, 0.296680E+00_JPRB &
+  &, 0.283960E+00_JPRB, 0.271507E+00_JPRB, 0.259341E+00_JPRB &
+  &, 0.247469E+00_JPRB, 0.235879E+00_JPRB, 0.224620E+00_JPRB, 0.213662E+00_JPRB &
+  &, 0.203019E+00_JPRB, 0.192687E+00_JPRB, 0.182696E+00_JPRB &
+  &, 0.173038E+00_JPRB, 0.163705E+00_JPRB, 0.154701E+00_JPRB, 0.146032E+00_JPRB &
+  &, 0.137701E+00_JPRB, 0.129688E+00_JPRB, 0.122010E+00_JPRB &
+  &, 0.114645E+00_JPRB, 0.107606E+00_JPRB, 0.100864E+00_JPRB, 0.944522E-01_JPRB &
+  &, 0.883586E-01_JPRB, 0.825457E-01_JPRB, 0.770192E-01_JPRB &
+  &, 0.717832E-01_JPRB, 0.668164E-01_JPRB, 0.621195E-01_JPRB, 0.576918E-01_JPRB &
+  &, 0.535053E-01_JPRB, 0.495820E-01_JPRB, 0.458626E-01_JPRB &
+  &, 0.423936E-01_JPRB, 0.391388E-01_JPRB, 0.360875E-01_JPRB, 0.332270E-01_JPRB &
+  &, 0.305429E-01_JPRB, 0.280498E-01_JPRB, 0.257311E-01_JPRB &
+  &, 0.236004E-01_JPRB, 0.215747E-01_JPRB, 0.197284E-01_JPRB, 0.180075E-01_JPRB &
+  &, 0.164212E-01_JPRB, 0.149445E-01_JPRB, 0.135855E-01_JPRB &
+  &, 0.123523E-01_JPRB, 0.112168E-01_JPRB, 0.101487E-01_JPRB, 0.919060E-02_JPRB &
+  &, 0.831117E-02_JPRB, 0.747670E-02_JPRB, 0.676959E-02_JPRB &
+  &, 0.607665E-02_JPRB, 0.548111E-02_JPRB, 0.490556E-02_JPRB, 0.439385E-02_JPRB &
+  &, 0.394971E-02_JPRB, 0.353346E-02_JPRB, 0.314692E-02_JPRB &
+  &, 0.279196E-02_JPRB, 0.251606E-02_JPRB, 0.223073E-02_JPRB, 0.198280E-02_JPRB &
+  &, 0.177430E-02_JPRB, 0.155886E-02_JPRB, 0.138553E-02_JPRB &
+  &, 0.120655E-02_JPRB, 0.107244E-02_JPRB, 0.934021E-03_JPRB, 0.843321E-03_JPRB &
+  &, 0.749711E-03_JPRB, 0.653158E-03_JPRB, 0.553624E-03_JPRB &
+  &, 0.506209E-03_JPRB, 0.401385E-03_JPRB, 0.350176E-03_JPRB, 0.297428E-03_JPRB &
+  &, 0.243126E-03_JPRB, 0.246332E-03_JPRB, 0.189672E-03_JPRB &
+  &, 0.192113E-03_JPRB, 0.133048E-03_JPRB, 0.134699E-03_JPRB, 0.731809E-04_JPRB &
+  &, 0.740184E-04_JPRB, 0.748618E-04_JPRB, 0.757111E-04_JPRB/)
+XCW( 411, :) = (/ &
+  &  0.974236E+00_JPRB, 0.966838E+00_JPRB, 0.959069E+00_JPRB, 0.950933E+00_JPRB &
+  &, 0.942434E+00_JPRB, 0.933580E+00_JPRB, 0.924375E+00_JPRB &
+  &, 0.914826E+00_JPRB, 0.904940E+00_JPRB, 0.894721E+00_JPRB, 0.884179E+00_JPRB &
+  &, 0.873320E+00_JPRB, 0.862150E+00_JPRB, 0.850681E+00_JPRB &
+  &, 0.838918E+00_JPRB, 0.826872E+00_JPRB, 0.814549E+00_JPRB, 0.801961E+00_JPRB &
+  &, 0.789118E+00_JPRB, 0.776027E+00_JPRB, 0.762705E+00_JPRB &
+  &, 0.749158E+00_JPRB, 0.735402E+00_JPRB, 0.721446E+00_JPRB, 0.707303E+00_JPRB &
+  &, 0.692987E+00_JPRB, 0.678511E+00_JPRB, 0.663892E+00_JPRB &
+  &, 0.649143E+00_JPRB, 0.634277E+00_JPRB, 0.619313E+00_JPRB, 0.604265E+00_JPRB &
+  &, 0.589144E+00_JPRB, 0.573977E+00_JPRB, 0.558775E+00_JPRB &
+  &, 0.543550E+00_JPRB, 0.528326E+00_JPRB, 0.513117E+00_JPRB, 0.497936E+00_JPRB &
+  &, 0.482816E+00_JPRB, 0.467764E+00_JPRB, 0.452789E+00_JPRB &
+  &, 0.437919E+00_JPRB, 0.423167E+00_JPRB, 0.408543E+00_JPRB, 0.394071E+00_JPRB &
+  &, 0.379775E+00_JPRB, 0.365655E+00_JPRB, 0.351724E+00_JPRB &
+  &, 0.338006E+00_JPRB, 0.324513E+00_JPRB, 0.311270E+00_JPRB, 0.298261E+00_JPRB &
+  &, 0.285507E+00_JPRB, 0.273031E+00_JPRB, 0.260840E+00_JPRB &
+  &, 0.248941E+00_JPRB, 0.237322E+00_JPRB, 0.226032E+00_JPRB, 0.215039E+00_JPRB &
+  &, 0.204360E+00_JPRB, 0.194006E+00_JPRB, 0.183991E+00_JPRB &
+  &, 0.174290E+00_JPRB, 0.164910E+00_JPRB, 0.155877E+00_JPRB, 0.147175E+00_JPRB &
+  &, 0.138790E+00_JPRB, 0.130739E+00_JPRB, 0.123022E+00_JPRB &
+  &, 0.115636E+00_JPRB, 0.108554E+00_JPRB, 0.101788E+00_JPRB, 0.953273E-01_JPRB &
+  &, 0.891830E-01_JPRB, 0.833403E-01_JPRB, 0.777821E-01_JPRB &
+  &, 0.725129E-01_JPRB, 0.675111E-01_JPRB, 0.627773E-01_JPRB, 0.583110E-01_JPRB &
+  &, 0.541102E-01_JPRB, 0.501450E-01_JPRB, 0.464091E-01_JPRB &
+  &, 0.428948E-01_JPRB, 0.396212E-01_JPRB, 0.365211E-01_JPRB, 0.336392E-01_JPRB &
+  &, 0.309328E-01_JPRB, 0.284468E-01_JPRB, 0.261043E-01_JPRB &
+  &, 0.239170E-01_JPRB, 0.218970E-01_JPRB, 0.200237E-01_JPRB, 0.182746E-01_JPRB &
+  &, 0.166590E-01_JPRB, 0.151865E-01_JPRB, 0.137965E-01_JPRB &
+  &, 0.125669E-01_JPRB, 0.113987E-01_JPRB, 0.103337E-01_JPRB, 0.934110E-02_JPRB &
+  &, 0.846419E-02_JPRB, 0.763225E-02_JPRB, 0.688818E-02_JPRB &
+  &, 0.619718E-02_JPRB, 0.556277E-02_JPRB, 0.498854E-02_JPRB, 0.447815E-02_JPRB &
+  &, 0.403536E-02_JPRB, 0.362046E-02_JPRB, 0.323528E-02_JPRB &
+  &, 0.288170E-02_JPRB, 0.256163E-02_JPRB, 0.227699E-02_JPRB, 0.202977E-02_JPRB &
+  &, 0.177430E-02_JPRB, 0.160726E-02_JPRB, 0.138553E-02_JPRB &
+  &, 0.125641E-02_JPRB, 0.112303E-02_JPRB, 0.985355E-03_JPRB, 0.843321E-03_JPRB &
+  &, 0.749711E-03_JPRB, 0.653158E-03_JPRB, 0.553624E-03_JPRB &
+  &, 0.506209E-03_JPRB, 0.457297E-03_JPRB, 0.350176E-03_JPRB, 0.297428E-03_JPRB &
+  &, 0.301407E-03_JPRB, 0.246332E-03_JPRB, 0.189672E-03_JPRB &
+  &, 0.192113E-03_JPRB, 0.133048E-03_JPRB, 0.134699E-03_JPRB, 0.731809E-04_JPRB &
+  &, 0.740184E-04_JPRB, 0.748618E-04_JPRB, 0.757111E-04_JPRB/)
+XCW( 412, :) = (/ &
+  &  0.974489E+00_JPRB, 0.967154E+00_JPRB, 0.959444E+00_JPRB, 0.951369E+00_JPRB &
+  &, 0.942930E+00_JPRB, 0.934134E+00_JPRB, 0.924987E+00_JPRB &
+  &, 0.915495E+00_JPRB, 0.905663E+00_JPRB, 0.895500E+00_JPRB, 0.885012E+00_JPRB &
+  &, 0.874204E+00_JPRB, 0.863088E+00_JPRB, 0.851668E+00_JPRB &
+  &, 0.839953E+00_JPRB, 0.827954E+00_JPRB, 0.815677E+00_JPRB, 0.803135E+00_JPRB &
+  &, 0.790334E+00_JPRB, 0.777286E+00_JPRB, 0.764005E+00_JPRB &
+  &, 0.750497E+00_JPRB, 0.736776E+00_JPRB, 0.722855E+00_JPRB, 0.708745E+00_JPRB &
+  &, 0.694464E+00_JPRB, 0.680020E+00_JPRB, 0.665426E+00_JPRB &
+  &, 0.650703E+00_JPRB, 0.635864E+00_JPRB, 0.620919E+00_JPRB, 0.605890E+00_JPRB &
+  &, 0.590793E+00_JPRB, 0.575640E+00_JPRB, 0.560449E+00_JPRB &
+  &, 0.545233E+00_JPRB, 0.530024E+00_JPRB, 0.514819E+00_JPRB, 0.499650E+00_JPRB &
+  &, 0.484533E+00_JPRB, 0.469482E+00_JPRB, 0.454506E+00_JPRB &
+  &, 0.439636E+00_JPRB, 0.424870E+00_JPRB, 0.410242E+00_JPRB, 0.395776E+00_JPRB &
+  &, 0.381461E+00_JPRB, 0.367320E+00_JPRB, 0.353379E+00_JPRB &
+  &, 0.339648E+00_JPRB, 0.326142E+00_JPRB, 0.312869E+00_JPRB, 0.299842E+00_JPRB &
+  &, 0.287067E+00_JPRB, 0.274569E+00_JPRB, 0.262355E+00_JPRB &
+  &, 0.250414E+00_JPRB, 0.238781E+00_JPRB, 0.227443E+00_JPRB, 0.216417E+00_JPRB &
+  &, 0.205718E+00_JPRB, 0.195326E+00_JPRB, 0.185269E+00_JPRB &
+  &, 0.175542E+00_JPRB, 0.166134E+00_JPRB, 0.157052E+00_JPRB, 0.148318E+00_JPRB &
+  &, 0.139898E+00_JPRB, 0.131810E+00_JPRB, 0.124055E+00_JPRB &
+  &, 0.116627E+00_JPRB, 0.109501E+00_JPRB, 0.102711E+00_JPRB, 0.962248E-01_JPRB &
+  &, 0.900303E-01_JPRB, 0.841581E-01_JPRB, 0.785450E-01_JPRB &
+  &, 0.732425E-01_JPRB, 0.682305E-01_JPRB, 0.634604E-01_JPRB, 0.589559E-01_JPRB &
+  &, 0.547151E-01_JPRB, 0.507080E-01_JPRB, 0.469556E-01_JPRB &
+  &, 0.434239E-01_JPRB, 0.401036E-01_JPRB, 0.369836E-01_JPRB, 0.340809E-01_JPRB &
+  &, 0.313527E-01_JPRB, 0.288134E-01_JPRB, 0.264464E-01_JPRB &
+  &, 0.242337E-01_JPRB, 0.221871E-01_JPRB, 0.203190E-01_JPRB, 0.185417E-01_JPRB &
+  &, 0.169309E-01_JPRB, 0.154285E-01_JPRB, 0.140427E-01_JPRB &
+  &, 0.127458E-01_JPRB, 0.115806E-01_JPRB, 0.104817E-01_JPRB, 0.949161E-02_JPRB &
+  &, 0.857895E-02_JPRB, 0.774892E-02_JPRB, 0.700677E-02_JPRB &
+  &, 0.631771E-02_JPRB, 0.568525E-02_JPRB, 0.511300E-02_JPRB, 0.456246E-02_JPRB &
+  &, 0.412100E-02_JPRB, 0.366395E-02_JPRB, 0.327946E-02_JPRB &
+  &, 0.292657E-02_JPRB, 0.260719E-02_JPRB, 0.232326E-02_JPRB, 0.207674E-02_JPRB &
+  &, 0.182198E-02_JPRB, 0.160726E-02_JPRB, 0.143466E-02_JPRB &
+  &, 0.125641E-02_JPRB, 0.112303E-02_JPRB, 0.985355E-03_JPRB, 0.895403E-03_JPRB &
+  &, 0.749711E-03_JPRB, 0.653158E-03_JPRB, 0.607987E-03_JPRB &
+  &, 0.506209E-03_JPRB, 0.457297E-03_JPRB, 0.406872E-03_JPRB, 0.354914E-03_JPRB &
+  &, 0.301407E-03_JPRB, 0.246332E-03_JPRB, 0.189672E-03_JPRB &
+  &, 0.192113E-03_JPRB, 0.133048E-03_JPRB, 0.134699E-03_JPRB, 0.136362E-03_JPRB &
+  &, 0.740184E-04_JPRB, 0.748618E-04_JPRB, 0.757111E-04_JPRB/)
+XCW( 413, :) = (/ &
+  &  0.974741E+00_JPRB, 0.967467E+00_JPRB, 0.959819E+00_JPRB, 0.951805E+00_JPRB &
+  &, 0.943425E+00_JPRB, 0.934688E+00_JPRB, 0.925598E+00_JPRB &
+  &, 0.916163E+00_JPRB, 0.906387E+00_JPRB, 0.896279E+00_JPRB, 0.885844E+00_JPRB &
+  &, 0.875089E+00_JPRB, 0.864024E+00_JPRB, 0.852654E+00_JPRB &
+  &, 0.840989E+00_JPRB, 0.829037E+00_JPRB, 0.816807E+00_JPRB, 0.804309E+00_JPRB &
+  &, 0.791552E+00_JPRB, 0.778546E+00_JPRB, 0.765302E+00_JPRB &
+  &, 0.751834E+00_JPRB, 0.738153E+00_JPRB, 0.724267E+00_JPRB, 0.710191E+00_JPRB &
+  &, 0.695940E+00_JPRB, 0.681525E+00_JPRB, 0.666964E+00_JPRB &
+  &, 0.652267E+00_JPRB, 0.637450E+00_JPRB, 0.622528E+00_JPRB, 0.607523E+00_JPRB &
+  &, 0.592441E+00_JPRB, 0.577304E+00_JPRB, 0.562127E+00_JPRB &
+  &, 0.546926E+00_JPRB, 0.531721E+00_JPRB, 0.516530E+00_JPRB, 0.501375E+00_JPRB &
+  &, 0.486249E+00_JPRB, 0.471200E+00_JPRB, 0.456224E+00_JPRB &
+  &, 0.441352E+00_JPRB, 0.426584E+00_JPRB, 0.411952E+00_JPRB, 0.397469E+00_JPRB &
+  &, 0.383147E+00_JPRB, 0.368998E+00_JPRB, 0.355046E+00_JPRB &
+  &, 0.341304E+00_JPRB, 0.327770E+00_JPRB, 0.314482E+00_JPRB, 0.301422E+00_JPRB &
+  &, 0.288628E+00_JPRB, 0.276108E+00_JPRB, 0.263854E+00_JPRB &
+  &, 0.251901E+00_JPRB, 0.240240E+00_JPRB, 0.228871E+00_JPRB, 0.217811E+00_JPRB &
+  &, 0.207076E+00_JPRB, 0.196662E+00_JPRB, 0.186565E+00_JPRB &
+  &, 0.176794E+00_JPRB, 0.167359E+00_JPRB, 0.158246E+00_JPRB, 0.149461E+00_JPRB &
+  &, 0.141006E+00_JPRB, 0.132882E+00_JPRB, 0.125087E+00_JPRB &
+  &, 0.117618E+00_JPRB, 0.110470E+00_JPRB, 0.103634E+00_JPRB, 0.970999E-01_JPRB &
+  &, 0.908776E-01_JPRB, 0.849760E-01_JPRB, 0.793318E-01_JPRB &
+  &, 0.739965E-01_JPRB, 0.689251E-01_JPRB, 0.641434E-01_JPRB, 0.596008E-01_JPRB &
+  &, 0.553200E-01_JPRB, 0.512978E-01_JPRB, 0.475021E-01_JPRB &
+  &, 0.439252E-01_JPRB, 0.405859E-01_JPRB, 0.374462E-01_JPRB, 0.344932E-01_JPRB &
+  &, 0.317726E-01_JPRB, 0.292104E-01_JPRB, 0.268197E-01_JPRB &
+  &, 0.245820E-01_JPRB, 0.225095E-01_JPRB, 0.206143E-01_JPRB, 0.188089E-01_JPRB &
+  &, 0.171687E-01_JPRB, 0.156705E-01_JPRB, 0.142537E-01_JPRB &
+  &, 0.129604E-01_JPRB, 0.117626E-01_JPRB, 0.106667E-01_JPRB, 0.967973E-02_JPRB &
+  &, 0.873197E-02_JPRB, 0.790447E-02_JPRB, 0.712536E-02_JPRB &
+  &, 0.643824E-02_JPRB, 0.576691E-02_JPRB, 0.519598E-02_JPRB, 0.464676E-02_JPRB &
+  &, 0.416383E-02_JPRB, 0.375095E-02_JPRB, 0.336783E-02_JPRB &
+  &, 0.297144E-02_JPRB, 0.265276E-02_JPRB, 0.236952E-02_JPRB, 0.212371E-02_JPRB &
+  &, 0.186966E-02_JPRB, 0.165567E-02_JPRB, 0.148378E-02_JPRB &
+  &, 0.130626E-02_JPRB, 0.117363E-02_JPRB, 0.103669E-02_JPRB, 0.895403E-03_JPRB &
+  &, 0.802548E-03_JPRB, 0.706754E-03_JPRB, 0.607987E-03_JPRB &
+  &, 0.506209E-03_JPRB, 0.457297E-03_JPRB, 0.406872E-03_JPRB, 0.354914E-03_JPRB &
+  &, 0.301407E-03_JPRB, 0.246332E-03_JPRB, 0.189672E-03_JPRB &
+  &, 0.192113E-03_JPRB, 0.133048E-03_JPRB, 0.134699E-03_JPRB, 0.136362E-03_JPRB &
+  &, 0.740184E-04_JPRB, 0.748618E-04_JPRB, 0.757111E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART59',1,ZHOOK_HANDLE)
+END SUBROUTINE PART59
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART60
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART60',0,ZHOOK_HANDLE)
+
+XCW( 414, :) = (/ &
+  &  0.974995E+00_JPRB, 0.967782E+00_JPRB, 0.960195E+00_JPRB, 0.952240E+00_JPRB &
+  &, 0.943920E+00_JPRB, 0.935241E+00_JPRB, 0.926209E+00_JPRB &
+  &, 0.916831E+00_JPRB, 0.907112E+00_JPRB, 0.897058E+00_JPRB, 0.886677E+00_JPRB &
+  &, 0.875974E+00_JPRB, 0.864960E+00_JPRB, 0.853641E+00_JPRB &
+  &, 0.842024E+00_JPRB, 0.830121E+00_JPRB, 0.817936E+00_JPRB, 0.805483E+00_JPRB &
+  &, 0.792770E+00_JPRB, 0.779805E+00_JPRB, 0.766606E+00_JPRB &
+  &, 0.753173E+00_JPRB, 0.739530E+00_JPRB, 0.725680E+00_JPRB, 0.711637E+00_JPRB &
+  &, 0.697417E+00_JPRB, 0.683034E+00_JPRB, 0.668498E+00_JPRB &
+  &, 0.653831E+00_JPRB, 0.639037E+00_JPRB, 0.624142E+00_JPRB, 0.609152E+00_JPRB &
+  &, 0.594090E+00_JPRB, 0.578972E+00_JPRB, 0.563810E+00_JPRB &
+  &, 0.548619E+00_JPRB, 0.533428E+00_JPRB, 0.518251E+00_JPRB, 0.503089E+00_JPRB &
+  &, 0.487976E+00_JPRB, 0.472928E+00_JPRB, 0.457952E+00_JPRB &
+  &, 0.443069E+00_JPRB, 0.428309E+00_JPRB, 0.413674E+00_JPRB, 0.399174E+00_JPRB &
+  &, 0.384846E+00_JPRB, 0.370688E+00_JPRB, 0.356714E+00_JPRB &
+  &, 0.342947E+00_JPRB, 0.329399E+00_JPRB, 0.316095E+00_JPRB, 0.303017E+00_JPRB &
+  &, 0.290203E+00_JPRB, 0.277646E+00_JPRB, 0.265383E+00_JPRB &
+  &, 0.253389E+00_JPRB, 0.241699E+00_JPRB, 0.230299E+00_JPRB, 0.219222E+00_JPRB &
+  &, 0.208451E+00_JPRB, 0.197999E+00_JPRB, 0.187861E+00_JPRB &
+  &, 0.178065E+00_JPRB, 0.168583E+00_JPRB, 0.159440E+00_JPRB, 0.150623E+00_JPRB &
+  &, 0.142134E+00_JPRB, 0.133974E+00_JPRB, 0.126140E+00_JPRB &
+  &, 0.118631E+00_JPRB, 0.111439E+00_JPRB, 0.104557E+00_JPRB, 0.979974E-01_JPRB &
+  &, 0.917478E-01_JPRB, 0.857939E-01_JPRB, 0.801186E-01_JPRB &
+  &, 0.747505E-01_JPRB, 0.696445E-01_JPRB, 0.648265E-01_JPRB, 0.602457E-01_JPRB &
+  &, 0.559513E-01_JPRB, 0.518877E-01_JPRB, 0.480487E-01_JPRB &
+  &, 0.444543E-01_JPRB, 0.410683E-01_JPRB, 0.379087E-01_JPRB, 0.349349E-01_JPRB &
+  &, 0.321626E-01_JPRB, 0.295770E-01_JPRB, 0.271618E-01_JPRB &
+  &, 0.249303E-01_JPRB, 0.228318E-01_JPRB, 0.209096E-01_JPRB, 0.191094E-01_JPRB &
+  &, 0.174405E-01_JPRB, 0.158779E-01_JPRB, 0.144648E-01_JPRB &
+  &, 0.131751E-01_JPRB, 0.119445E-01_JPRB, 0.108517E-01_JPRB, 0.983023E-02_JPRB &
+  &, 0.888498E-02_JPRB, 0.802114E-02_JPRB, 0.724395E-02_JPRB &
+  &, 0.655877E-02_JPRB, 0.588940E-02_JPRB, 0.527895E-02_JPRB, 0.477322E-02_JPRB &
+  &, 0.424947E-02_JPRB, 0.383795E-02_JPRB, 0.341201E-02_JPRB &
+  &, 0.306119E-02_JPRB, 0.274389E-02_JPRB, 0.241579E-02_JPRB, 0.217069E-02_JPRB &
+  &, 0.191735E-02_JPRB, 0.170407E-02_JPRB, 0.153291E-02_JPRB &
+  &, 0.135612E-02_JPRB, 0.117363E-02_JPRB, 0.103669E-02_JPRB, 0.895403E-03_JPRB &
+  &, 0.802548E-03_JPRB, 0.706754E-03_JPRB, 0.607987E-03_JPRB &
+  &, 0.561343E-03_JPRB, 0.457297E-03_JPRB, 0.406872E-03_JPRB, 0.354914E-03_JPRB &
+  &, 0.301407E-03_JPRB, 0.246332E-03_JPRB, 0.249563E-03_JPRB &
+  &, 0.192113E-03_JPRB, 0.133048E-03_JPRB, 0.134699E-03_JPRB, 0.136362E-03_JPRB &
+  &, 0.740184E-04_JPRB, 0.748618E-04_JPRB, 0.757111E-04_JPRB/)
+XCW( 415, :) = (/ &
+  &  0.975247E+00_JPRB, 0.968097E+00_JPRB, 0.960570E+00_JPRB, 0.952676E+00_JPRB &
+  &, 0.944416E+00_JPRB, 0.935795E+00_JPRB, 0.926822E+00_JPRB &
+  &, 0.917499E+00_JPRB, 0.907836E+00_JPRB, 0.897837E+00_JPRB, 0.887509E+00_JPRB &
+  &, 0.876859E+00_JPRB, 0.865898E+00_JPRB, 0.854629E+00_JPRB &
+  &, 0.843061E+00_JPRB, 0.831205E+00_JPRB, 0.819067E+00_JPRB, 0.806658E+00_JPRB &
+  &, 0.793989E+00_JPRB, 0.781068E+00_JPRB, 0.767906E+00_JPRB &
+  &, 0.754516E+00_JPRB, 0.740907E+00_JPRB, 0.727092E+00_JPRB, 0.713086E+00_JPRB &
+  &, 0.698898E+00_JPRB, 0.684546E+00_JPRB, 0.670040E+00_JPRB &
+  &, 0.655395E+00_JPRB, 0.640628E+00_JPRB, 0.625752E+00_JPRB, 0.610785E+00_JPRB &
+  &, 0.595743E+00_JPRB, 0.580640E+00_JPRB, 0.565497E+00_JPRB &
+  &, 0.550321E+00_JPRB, 0.535135E+00_JPRB, 0.519962E+00_JPRB, 0.504813E+00_JPRB &
+  &, 0.489703E+00_JPRB, 0.474656E+00_JPRB, 0.459681E+00_JPRB &
+  &, 0.444796E+00_JPRB, 0.430035E+00_JPRB, 0.415385E+00_JPRB, 0.400880E+00_JPRB &
+  &, 0.386544E+00_JPRB, 0.372366E+00_JPRB, 0.358381E+00_JPRB &
+  &, 0.344602E+00_JPRB, 0.331041E+00_JPRB, 0.317707E+00_JPRB, 0.304612E+00_JPRB &
+  &, 0.291778E+00_JPRB, 0.279200E+00_JPRB, 0.266897E+00_JPRB &
+  &, 0.254892E+00_JPRB, 0.243158E+00_JPRB, 0.231743E+00_JPRB, 0.220616E+00_JPRB &
+  &, 0.209826E+00_JPRB, 0.199336E+00_JPRB, 0.189174E+00_JPRB &
+  &, 0.179335E+00_JPRB, 0.169826E+00_JPRB, 0.160635E+00_JPRB, 0.151786E+00_JPRB &
+  &, 0.143262E+00_JPRB, 0.135065E+00_JPRB, 0.127193E+00_JPRB &
+  &, 0.119643E+00_JPRB, 0.112408E+00_JPRB, 0.105503E+00_JPRB, 0.988950E-01_JPRB &
+  &, 0.926180E-01_JPRB, 0.866118E-01_JPRB, 0.809054E-01_JPRB &
+  &, 0.755045E-01_JPRB, 0.703639E-01_JPRB, 0.655096E-01_JPRB, 0.609164E-01_JPRB &
+  &, 0.565562E-01_JPRB, 0.524775E-01_JPRB, 0.485952E-01_JPRB &
+  &, 0.449834E-01_JPRB, 0.415791E-01_JPRB, 0.383712E-01_JPRB, 0.353766E-01_JPRB &
+  &, 0.325825E-01_JPRB, 0.299740E-01_JPRB, 0.275350E-01_JPRB &
+  &, 0.252786E-01_JPRB, 0.231541E-01_JPRB, 0.212049E-01_JPRB, 0.193765E-01_JPRB &
+  &, 0.176784E-01_JPRB, 0.161199E-01_JPRB, 0.147109E-01_JPRB &
+  &, 0.133540E-01_JPRB, 0.121628E-01_JPRB, 0.110368E-01_JPRB, 0.998074E-02_JPRB &
+  &, 0.903800E-02_JPRB, 0.817670E-02_JPRB, 0.740207E-02_JPRB &
+  &, 0.667930E-02_JPRB, 0.601189E-02_JPRB, 0.540341E-02_JPRB, 0.485752E-02_JPRB &
+  &, 0.433512E-02_JPRB, 0.388145E-02_JPRB, 0.350037E-02_JPRB &
+  &, 0.310606E-02_JPRB, 0.278945E-02_JPRB, 0.246205E-02_JPRB, 0.221766E-02_JPRB &
+  &, 0.196503E-02_JPRB, 0.175247E-02_JPRB, 0.153291E-02_JPRB &
+  &, 0.135612E-02_JPRB, 0.122422E-02_JPRB, 0.108802E-02_JPRB, 0.947486E-03_JPRB &
+  &, 0.802548E-03_JPRB, 0.706754E-03_JPRB, 0.607987E-03_JPRB &
+  &, 0.561343E-03_JPRB, 0.457297E-03_JPRB, 0.406872E-03_JPRB, 0.354914E-03_JPRB &
+  &, 0.301407E-03_JPRB, 0.246332E-03_JPRB, 0.249563E-03_JPRB &
+  &, 0.192113E-03_JPRB, 0.194572E-03_JPRB, 0.134699E-03_JPRB, 0.136362E-03_JPRB &
+  &, 0.740184E-04_JPRB, 0.748618E-04_JPRB, 0.757111E-04_JPRB/)
+XCW( 416, :) = (/ &
+  &  0.975499E+00_JPRB, 0.968411E+00_JPRB, 0.960946E+00_JPRB, 0.953112E+00_JPRB &
+  &, 0.944910E+00_JPRB, 0.936349E+00_JPRB, 0.927433E+00_JPRB &
+  &, 0.918167E+00_JPRB, 0.908559E+00_JPRB, 0.898615E+00_JPRB, 0.888342E+00_JPRB &
+  &, 0.877746E+00_JPRB, 0.866834E+00_JPRB, 0.855615E+00_JPRB &
+  &, 0.844097E+00_JPRB, 0.832289E+00_JPRB, 0.820198E+00_JPRB, 0.807834E+00_JPRB &
+  &, 0.795209E+00_JPRB, 0.782327E+00_JPRB, 0.769209E+00_JPRB &
+  &, 0.755855E+00_JPRB, 0.742284E+00_JPRB, 0.728508E+00_JPRB, 0.714532E+00_JPRB &
+  &, 0.700378E+00_JPRB, 0.686055E+00_JPRB, 0.671578E+00_JPRB &
+  &, 0.656963E+00_JPRB, 0.642219E+00_JPRB, 0.627370E+00_JPRB, 0.612423E+00_JPRB &
+  &, 0.597400E+00_JPRB, 0.582312E+00_JPRB, 0.567184E+00_JPRB &
+  &, 0.552023E+00_JPRB, 0.536852E+00_JPRB, 0.521683E+00_JPRB, 0.506538E+00_JPRB &
+  &, 0.491440E+00_JPRB, 0.476384E+00_JPRB, 0.461420E+00_JPRB &
+  &, 0.446535E+00_JPRB, 0.431760E+00_JPRB, 0.417107E+00_JPRB, 0.402597E+00_JPRB &
+  &, 0.388242E+00_JPRB, 0.374056E+00_JPRB, 0.360061E+00_JPRB &
+  &, 0.346271E+00_JPRB, 0.332683E+00_JPRB, 0.319334E+00_JPRB, 0.306221E+00_JPRB &
+  &, 0.293354E+00_JPRB, 0.280753E+00_JPRB, 0.268427E+00_JPRB &
+  &, 0.256380E+00_JPRB, 0.244633E+00_JPRB, 0.233187E+00_JPRB, 0.222027E+00_JPRB &
+  &, 0.211201E+00_JPRB, 0.200672E+00_JPRB, 0.190488E+00_JPRB &
+  &, 0.180605E+00_JPRB, 0.171068E+00_JPRB, 0.161848E+00_JPRB, 0.152948E+00_JPRB &
+  &, 0.144391E+00_JPRB, 0.136157E+00_JPRB, 0.128247E+00_JPRB &
+  &, 0.120655E+00_JPRB, 0.113398E+00_JPRB, 0.106448E+00_JPRB, 0.998149E-01_JPRB &
+  &, 0.934882E-01_JPRB, 0.874530E-01_JPRB, 0.817160E-01_JPRB &
+  &, 0.762584E-01_JPRB, 0.710833E-01_JPRB, 0.661927E-01_JPRB, 0.615614E-01_JPRB &
+  &, 0.571874E-01_JPRB, 0.530673E-01_JPRB, 0.491690E-01_JPRB &
+  &, 0.455125E-01_JPRB, 0.420898E-01_JPRB, 0.388627E-01_JPRB, 0.358478E-01_JPRB &
+  &, 0.330024E-01_JPRB, 0.303711E-01_JPRB, 0.279082E-01_JPRB &
+  &, 0.256269E-01_JPRB, 0.234765E-01_JPRB, 0.215001E-01_JPRB, 0.196770E-01_JPRB &
+  &, 0.179502E-01_JPRB, 0.163965E-01_JPRB, 0.149220E-01_JPRB &
+  &, 0.135686E-01_JPRB, 0.123447E-01_JPRB, 0.112218E-01_JPRB, 0.101689E-01_JPRB &
+  &, 0.919102E-02_JPRB, 0.833225E-02_JPRB, 0.752066E-02_JPRB &
+  &, 0.679983E-02_JPRB, 0.609355E-02_JPRB, 0.548639E-02_JPRB, 0.494183E-02_JPRB &
+  &, 0.442076E-02_JPRB, 0.396845E-02_JPRB, 0.354455E-02_JPRB &
+  &, 0.319580E-02_JPRB, 0.283502E-02_JPRB, 0.255458E-02_JPRB, 0.226463E-02_JPRB &
+  &, 0.201272E-02_JPRB, 0.180087E-02_JPRB, 0.158204E-02_JPRB &
+  &, 0.140598E-02_JPRB, 0.122422E-02_JPRB, 0.108802E-02_JPRB, 0.947486E-03_JPRB &
+  &, 0.855384E-03_JPRB, 0.760351E-03_JPRB, 0.662349E-03_JPRB &
+  &, 0.561343E-03_JPRB, 0.513209E-03_JPRB, 0.406872E-03_JPRB, 0.354914E-03_JPRB &
+  &, 0.301407E-03_JPRB, 0.305415E-03_JPRB, 0.249563E-03_JPRB &
+  &, 0.192113E-03_JPRB, 0.194572E-03_JPRB, 0.134699E-03_JPRB, 0.136362E-03_JPRB &
+  &, 0.740184E-04_JPRB, 0.748618E-04_JPRB, 0.757111E-04_JPRB/)
+XCW( 417, :) = (/ &
+  &  0.975753E+00_JPRB, 0.968726E+00_JPRB, 0.961321E+00_JPRB, 0.953547E+00_JPRB &
+  &, 0.945405E+00_JPRB, 0.936902E+00_JPRB, 0.928044E+00_JPRB &
+  &, 0.918836E+00_JPRB, 0.909284E+00_JPRB, 0.899395E+00_JPRB, 0.889175E+00_JPRB &
+  &, 0.878631E+00_JPRB, 0.867772E+00_JPRB, 0.856603E+00_JPRB &
+  &, 0.845134E+00_JPRB, 0.833373E+00_JPRB, 0.821329E+00_JPRB, 0.809011E+00_JPRB &
+  &, 0.796428E+00_JPRB, 0.783590E+00_JPRB, 0.770509E+00_JPRB &
+  &, 0.757198E+00_JPRB, 0.743664E+00_JPRB, 0.729920E+00_JPRB, 0.715985E+00_JPRB &
+  &, 0.701862E+00_JPRB, 0.687567E+00_JPRB, 0.673120E+00_JPRB &
+  &, 0.658531E+00_JPRB, 0.643813E+00_JPRB, 0.628984E+00_JPRB, 0.614060E+00_JPRB &
+  &, 0.599057E+00_JPRB, 0.583989E+00_JPRB, 0.568872E+00_JPRB &
+  &, 0.553725E+00_JPRB, 0.538559E+00_JPRB, 0.523404E+00_JPRB, 0.508272E+00_JPRB &
+  &, 0.493167E+00_JPRB, 0.478123E+00_JPRB, 0.463149E+00_JPRB &
+  &, 0.448274E+00_JPRB, 0.433486E+00_JPRB, 0.418828E+00_JPRB, 0.404314E+00_JPRB &
+  &, 0.389953E+00_JPRB, 0.375759E+00_JPRB, 0.361742E+00_JPRB &
+  &, 0.347940E+00_JPRB, 0.334338E+00_JPRB, 0.320960E+00_JPRB, 0.307830E+00_JPRB &
+  &, 0.294943E+00_JPRB, 0.282321E+00_JPRB, 0.269971E+00_JPRB &
+  &, 0.257899E+00_JPRB, 0.246107E+00_JPRB, 0.234631E+00_JPRB, 0.223454E+00_JPRB &
+  &, 0.212593E+00_JPRB, 0.202026E+00_JPRB, 0.191801E+00_JPRB &
+  &, 0.181894E+00_JPRB, 0.172311E+00_JPRB, 0.163061E+00_JPRB, 0.154130E+00_JPRB &
+  &, 0.145519E+00_JPRB, 0.137249E+00_JPRB, 0.129320E+00_JPRB &
+  &, 0.121688E+00_JPRB, 0.114389E+00_JPRB, 0.107393E+00_JPRB, 0.100735E+00_JPRB &
+  &, 0.943584E-01_JPRB, 0.882943E-01_JPRB, 0.825266E-01_JPRB &
+  &, 0.770367E-01_JPRB, 0.718275E-01_JPRB, 0.669010E-01_JPRB, 0.622321E-01_JPRB &
+  &, 0.578186E-01_JPRB, 0.536571E-01_JPRB, 0.497428E-01_JPRB &
+  &, 0.460416E-01_JPRB, 0.425722E-01_JPRB, 0.393252E-01_JPRB, 0.362895E-01_JPRB &
+  &, 0.334223E-01_JPRB, 0.307682E-01_JPRB, 0.282814E-01_JPRB &
+  &, 0.259753E-01_JPRB, 0.237988E-01_JPRB, 0.217954E-01_JPRB, 0.199441E-01_JPRB &
+  &, 0.182220E-01_JPRB, 0.166385E-01_JPRB, 0.151681E-01_JPRB &
+  &, 0.137833E-01_JPRB, 0.125267E-01_JPRB, 0.114068E-01_JPRB, 0.103194E-01_JPRB &
+  &, 0.934404E-02_JPRB, 0.844892E-02_JPRB, 0.763925E-02_JPRB &
+  &, 0.692036E-02_JPRB, 0.621603E-02_JPRB, 0.561085E-02_JPRB, 0.502613E-02_JPRB &
+  &, 0.450641E-02_JPRB, 0.405545E-02_JPRB, 0.363292E-02_JPRB &
+  &, 0.324067E-02_JPRB, 0.288058E-02_JPRB, 0.260085E-02_JPRB, 0.231160E-02_JPRB &
+  &, 0.206040E-02_JPRB, 0.180087E-02_JPRB, 0.163116E-02_JPRB &
+  &, 0.145583E-02_JPRB, 0.127481E-02_JPRB, 0.113936E-02_JPRB, 0.999568E-03_JPRB &
+  &, 0.855384E-03_JPRB, 0.760351E-03_JPRB, 0.662349E-03_JPRB &
+  &, 0.561343E-03_JPRB, 0.513209E-03_JPRB, 0.463567E-03_JPRB, 0.412400E-03_JPRB &
+  &, 0.359689E-03_JPRB, 0.305415E-03_JPRB, 0.249563E-03_JPRB &
+  &, 0.192113E-03_JPRB, 0.194572E-03_JPRB, 0.134699E-03_JPRB, 0.136362E-03_JPRB &
+  &, 0.138037E-03_JPRB, 0.748618E-04_JPRB, 0.757111E-04_JPRB/)
+XCW( 418, :) = (/ &
+  &  0.976003E+00_JPRB, 0.969041E+00_JPRB, 0.961696E+00_JPRB, 0.953982E+00_JPRB &
+  &, 0.945900E+00_JPRB, 0.937456E+00_JPRB, 0.928655E+00_JPRB &
+  &, 0.919503E+00_JPRB, 0.910008E+00_JPRB, 0.900173E+00_JPRB, 0.890008E+00_JPRB &
+  &, 0.879516E+00_JPRB, 0.868709E+00_JPRB, 0.857590E+00_JPRB &
+  &, 0.846171E+00_JPRB, 0.834457E+00_JPRB, 0.822460E+00_JPRB, 0.810188E+00_JPRB &
+  &, 0.797648E+00_JPRB, 0.784853E+00_JPRB, 0.771816E+00_JPRB &
+  &, 0.758541E+00_JPRB, 0.745044E+00_JPRB, 0.731340E+00_JPRB, 0.717434E+00_JPRB &
+  &, 0.703346E+00_JPRB, 0.689083E+00_JPRB, 0.674665E+00_JPRB &
+  &, 0.660102E+00_JPRB, 0.645408E+00_JPRB, 0.630606E+00_JPRB, 0.615702E+00_JPRB &
+  &, 0.600718E+00_JPRB, 0.585666E+00_JPRB, 0.570564E+00_JPRB &
+  &, 0.555428E+00_JPRB, 0.540276E+00_JPRB, 0.525135E+00_JPRB, 0.509997E+00_JPRB &
+  &, 0.494904E+00_JPRB, 0.479862E+00_JPRB, 0.464888E+00_JPRB &
+  &, 0.450013E+00_JPRB, 0.435223E+00_JPRB, 0.420562E+00_JPRB, 0.406043E+00_JPRB &
+  &, 0.391664E+00_JPRB, 0.377461E+00_JPRB, 0.363435E+00_JPRB &
+  &, 0.349608E+00_JPRB, 0.335993E+00_JPRB, 0.322601E+00_JPRB, 0.309439E+00_JPRB &
+  &, 0.296533E+00_JPRB, 0.283889E+00_JPRB, 0.271501E+00_JPRB &
+  &, 0.259402E+00_JPRB, 0.247598E+00_JPRB, 0.236091E+00_JPRB, 0.224881E+00_JPRB &
+  &, 0.213985E+00_JPRB, 0.203398E+00_JPRB, 0.193133E+00_JPRB &
+  &, 0.183182E+00_JPRB, 0.173573E+00_JPRB, 0.164275E+00_JPRB, 0.155311E+00_JPRB &
+  &, 0.146667E+00_JPRB, 0.138361E+00_JPRB, 0.130374E+00_JPRB &
+  &, 0.122722E+00_JPRB, 0.115379E+00_JPRB, 0.108360E+00_JPRB, 0.101655E+00_JPRB &
+  &, 0.952286E-01_JPRB, 0.891355E-01_JPRB, 0.833134E-01_JPRB &
+  &, 0.778150E-01_JPRB, 0.725718E-01_JPRB, 0.676094E-01_JPRB, 0.629028E-01_JPRB &
+  &, 0.584498E-01_JPRB, 0.542738E-01_JPRB, 0.503167E-01_JPRB &
+  &, 0.465985E-01_JPRB, 0.431113E-01_JPRB, 0.398167E-01_JPRB, 0.367312E-01_JPRB &
+  &, 0.338722E-01_JPRB, 0.311653E-01_JPRB, 0.286547E-01_JPRB &
+  &, 0.263236E-01_JPRB, 0.241534E-01_JPRB, 0.221235E-01_JPRB, 0.202447E-01_JPRB &
+  &, 0.184938E-01_JPRB, 0.168805E-01_JPRB, 0.153792E-01_JPRB &
+  &, 0.139979E-01_JPRB, 0.127450E-01_JPRB, 0.115918E-01_JPRB, 0.105075E-01_JPRB &
+  &, 0.953531E-02_JPRB, 0.860448E-02_JPRB, 0.779737E-02_JPRB &
+  &, 0.704089E-02_JPRB, 0.633852E-02_JPRB, 0.569383E-02_JPRB, 0.515259E-02_JPRB &
+  &, 0.459206E-02_JPRB, 0.414245E-02_JPRB, 0.372128E-02_JPRB &
+  &, 0.333041E-02_JPRB, 0.297171E-02_JPRB, 0.264711E-02_JPRB, 0.235857E-02_JPRB &
+  &, 0.210808E-02_JPRB, 0.184927E-02_JPRB, 0.163116E-02_JPRB &
+  &, 0.145583E-02_JPRB, 0.127481E-02_JPRB, 0.113936E-02_JPRB, 0.999568E-03_JPRB &
+  &, 0.908221E-03_JPRB, 0.760351E-03_JPRB, 0.662349E-03_JPRB &
+  &, 0.616477E-03_JPRB, 0.513209E-03_JPRB, 0.463567E-03_JPRB, 0.412400E-03_JPRB &
+  &, 0.359689E-03_JPRB, 0.305415E-03_JPRB, 0.249563E-03_JPRB &
+  &, 0.192113E-03_JPRB, 0.194572E-03_JPRB, 0.134699E-03_JPRB, 0.136362E-03_JPRB &
+  &, 0.138037E-03_JPRB, 0.748618E-04_JPRB, 0.757111E-04_JPRB/)
+XCW( 419, :) = (/ &
+  &  0.976256E+00_JPRB, 0.969354E+00_JPRB, 0.962071E+00_JPRB, 0.954417E+00_JPRB &
+  &, 0.946395E+00_JPRB, 0.938009E+00_JPRB, 0.929266E+00_JPRB &
+  &, 0.920172E+00_JPRB, 0.910732E+00_JPRB, 0.900952E+00_JPRB, 0.890841E+00_JPRB &
+  &, 0.880403E+00_JPRB, 0.869645E+00_JPRB, 0.858578E+00_JPRB &
+  &, 0.847208E+00_JPRB, 0.835543E+00_JPRB, 0.823593E+00_JPRB, 0.811365E+00_JPRB &
+  &, 0.798870E+00_JPRB, 0.786118E+00_JPRB, 0.773120E+00_JPRB &
+  &, 0.759884E+00_JPRB, 0.746428E+00_JPRB, 0.732756E+00_JPRB, 0.718887E+00_JPRB &
+  &, 0.704830E+00_JPRB, 0.690600E+00_JPRB, 0.676211E+00_JPRB &
+  &, 0.661674E+00_JPRB, 0.647007E+00_JPRB, 0.632224E+00_JPRB, 0.617344E+00_JPRB &
+  &, 0.602380E+00_JPRB, 0.587347E+00_JPRB, 0.572260E+00_JPRB &
+  &, 0.557139E+00_JPRB, 0.542002E+00_JPRB, 0.526856E+00_JPRB, 0.511741E+00_JPRB &
+  &, 0.496651E+00_JPRB, 0.481611E+00_JPRB, 0.466638E+00_JPRB &
+  &, 0.451751E+00_JPRB, 0.436971E+00_JPRB, 0.422296E+00_JPRB, 0.407760E+00_JPRB &
+  &, 0.393387E+00_JPRB, 0.379164E+00_JPRB, 0.365128E+00_JPRB &
+  &, 0.351277E+00_JPRB, 0.337649E+00_JPRB, 0.324241E+00_JPRB, 0.311062E+00_JPRB &
+  &, 0.298137E+00_JPRB, 0.285458E+00_JPRB, 0.273060E+00_JPRB &
+  &, 0.260936E+00_JPRB, 0.249089E+00_JPRB, 0.237551E+00_JPRB, 0.226309E+00_JPRB &
+  &, 0.215377E+00_JPRB, 0.204752E+00_JPRB, 0.194464E+00_JPRB &
+  &, 0.184470E+00_JPRB, 0.174834E+00_JPRB, 0.165488E+00_JPRB, 0.156493E+00_JPRB &
+  &, 0.147815E+00_JPRB, 0.139473E+00_JPRB, 0.131447E+00_JPRB &
+  &, 0.123755E+00_JPRB, 0.116391E+00_JPRB, 0.109327E+00_JPRB, 0.102575E+00_JPRB &
+  &, 0.961217E-01_JPRB, 0.899768E-01_JPRB, 0.841479E-01_JPRB &
+  &, 0.785933E-01_JPRB, 0.733160E-01_JPRB, 0.683178E-01_JPRB, 0.635735E-01_JPRB &
+  &, 0.591073E-01_JPRB, 0.548636E-01_JPRB, 0.508905E-01_JPRB &
+  &, 0.471276E-01_JPRB, 0.436220E-01_JPRB, 0.403081E-01_JPRB, 0.372024E-01_JPRB &
+  &, 0.342921E-01_JPRB, 0.315929E-01_JPRB, 0.290590E-01_JPRB &
+  &, 0.266719E-01_JPRB, 0.244757E-01_JPRB, 0.224188E-01_JPRB, 0.205452E-01_JPRB &
+  &, 0.187656E-01_JPRB, 0.171225E-01_JPRB, 0.156254E-01_JPRB &
+  &, 0.142483E-01_JPRB, 0.129633E-01_JPRB, 0.117768E-01_JPRB, 0.106956E-01_JPRB &
+  &, 0.968833E-02_JPRB, 0.876003E-02_JPRB, 0.791596E-02_JPRB &
+  &, 0.716142E-02_JPRB, 0.646101E-02_JPRB, 0.581829E-02_JPRB, 0.523690E-02_JPRB &
+  &, 0.472052E-02_JPRB, 0.422945E-02_JPRB, 0.376546E-02_JPRB &
+  &, 0.337528E-02_JPRB, 0.301727E-02_JPRB, 0.269338E-02_JPRB, 0.240554E-02_JPRB &
+  &, 0.215577E-02_JPRB, 0.189768E-02_JPRB, 0.168029E-02_JPRB &
+  &, 0.150569E-02_JPRB, 0.132540E-02_JPRB, 0.119069E-02_JPRB, 0.105165E-02_JPRB &
+  &, 0.908221E-03_JPRB, 0.813947E-03_JPRB, 0.716711E-03_JPRB &
+  &, 0.616477E-03_JPRB, 0.513209E-03_JPRB, 0.463567E-03_JPRB, 0.412400E-03_JPRB &
+  &, 0.359689E-03_JPRB, 0.305415E-03_JPRB, 0.249563E-03_JPRB &
+  &, 0.252817E-03_JPRB, 0.194572E-03_JPRB, 0.134699E-03_JPRB, 0.136362E-03_JPRB &
+  &, 0.138037E-03_JPRB, 0.748618E-04_JPRB, 0.757111E-04_JPRB/)
+XCW( 420, :) = (/ &
+  &  0.976508E+00_JPRB, 0.969668E+00_JPRB, 0.962446E+00_JPRB, 0.954853E+00_JPRB &
+  &, 0.946889E+00_JPRB, 0.938562E+00_JPRB, 0.929878E+00_JPRB &
+  &, 0.920840E+00_JPRB, 0.911455E+00_JPRB, 0.901732E+00_JPRB, 0.891674E+00_JPRB &
+  &, 0.881288E+00_JPRB, 0.870583E+00_JPRB, 0.859567E+00_JPRB &
+  &, 0.848246E+00_JPRB, 0.836628E+00_JPRB, 0.824725E+00_JPRB, 0.812543E+00_JPRB &
+  &, 0.800092E+00_JPRB, 0.787381E+00_JPRB, 0.774423E+00_JPRB &
+  &, 0.761230E+00_JPRB, 0.747809E+00_JPRB, 0.734175E+00_JPRB, 0.720340E+00_JPRB &
+  &, 0.706318E+00_JPRB, 0.692116E+00_JPRB, 0.677756E+00_JPRB &
+  &, 0.663246E+00_JPRB, 0.648606E+00_JPRB, 0.633851E+00_JPRB, 0.618990E+00_JPRB &
+  &, 0.604041E+00_JPRB, 0.589028E+00_JPRB, 0.573957E+00_JPRB &
+  &, 0.558850E+00_JPRB, 0.543718E+00_JPRB, 0.528596E+00_JPRB, 0.513476E+00_JPRB &
+  &, 0.498388E+00_JPRB, 0.483361E+00_JPRB, 0.468388E+00_JPRB &
+  &, 0.453501E+00_JPRB, 0.438708E+00_JPRB, 0.424041E+00_JPRB, 0.409501E+00_JPRB &
+  &, 0.395097E+00_JPRB, 0.380867E+00_JPRB, 0.366821E+00_JPRB &
+  &, 0.352959E+00_JPRB, 0.339318E+00_JPRB, 0.325881E+00_JPRB, 0.312686E+00_JPRB &
+  &, 0.299727E+00_JPRB, 0.287041E+00_JPRB, 0.274605E+00_JPRB &
+  &, 0.262455E+00_JPRB, 0.250595E+00_JPRB, 0.239011E+00_JPRB, 0.227753E+00_JPRB &
+  &, 0.216786E+00_JPRB, 0.206123E+00_JPRB, 0.195795E+00_JPRB &
+  &, 0.185777E+00_JPRB, 0.176095E+00_JPRB, 0.166720E+00_JPRB, 0.157694E+00_JPRB &
+  &, 0.148982E+00_JPRB, 0.140605E+00_JPRB, 0.132542E+00_JPRB &
+  &, 0.124809E+00_JPRB, 0.117382E+00_JPRB, 0.110295E+00_JPRB, 0.103495E+00_JPRB &
+  &, 0.970148E-01_JPRB, 0.908414E-01_JPRB, 0.849585E-01_JPRB &
+  &, 0.793716E-01_JPRB, 0.740602E-01_JPRB, 0.690262E-01_JPRB, 0.642442E-01_JPRB &
+  &, 0.597385E-01_JPRB, 0.554802E-01_JPRB, 0.514644E-01_JPRB &
+  &, 0.476846E-01_JPRB, 0.441328E-01_JPRB, 0.407995E-01_JPRB, 0.376736E-01_JPRB &
+  &, 0.347420E-01_JPRB, 0.319900E-01_JPRB, 0.294322E-01_JPRB &
+  &, 0.270519E-01_JPRB, 0.248303E-01_JPRB, 0.227469E-01_JPRB, 0.208457E-01_JPRB &
+  &, 0.190375E-01_JPRB, 0.173991E-01_JPRB, 0.158715E-01_JPRB &
+  &, 0.144630E-01_JPRB, 0.131452E-01_JPRB, 0.119618E-01_JPRB, 0.108461E-01_JPRB &
+  &, 0.984134E-02_JPRB, 0.891559E-02_JPRB, 0.807408E-02_JPRB &
+  &, 0.728195E-02_JPRB, 0.658350E-02_JPRB, 0.590127E-02_JPRB, 0.532120E-02_JPRB &
+  &, 0.480617E-02_JPRB, 0.431645E-02_JPRB, 0.385383E-02_JPRB &
+  &, 0.346502E-02_JPRB, 0.310840E-02_JPRB, 0.273964E-02_JPRB, 0.245251E-02_JPRB &
+  &, 0.220345E-02_JPRB, 0.194608E-02_JPRB, 0.172941E-02_JPRB &
+  &, 0.155555E-02_JPRB, 0.137600E-02_JPRB, 0.119069E-02_JPRB, 0.105165E-02_JPRB &
+  &, 0.908221E-03_JPRB, 0.813947E-03_JPRB, 0.716711E-03_JPRB &
+  &, 0.616477E-03_JPRB, 0.569121E-03_JPRB, 0.463567E-03_JPRB, 0.412400E-03_JPRB &
+  &, 0.359689E-03_JPRB, 0.305415E-03_JPRB, 0.249563E-03_JPRB &
+  &, 0.252817E-03_JPRB, 0.194572E-03_JPRB, 0.197048E-03_JPRB, 0.136362E-03_JPRB &
+  &, 0.138037E-03_JPRB, 0.748618E-04_JPRB, 0.757111E-04_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART60',1,ZHOOK_HANDLE)
+END SUBROUTINE PART60
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART61
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART61',0,ZHOOK_HANDLE)
+
+XCW( 421, :) = (/ &
+  &  0.976761E+00_JPRB, 0.969981E+00_JPRB, 0.962821E+00_JPRB, 0.955287E+00_JPRB &
+  &, 0.947384E+00_JPRB, 0.939116E+00_JPRB, 0.930488E+00_JPRB &
+  &, 0.921507E+00_JPRB, 0.912180E+00_JPRB, 0.902510E+00_JPRB, 0.892506E+00_JPRB &
+  &, 0.882175E+00_JPRB, 0.871522E+00_JPRB, 0.860555E+00_JPRB &
+  &, 0.849284E+00_JPRB, 0.837716E+00_JPRB, 0.825858E+00_JPRB, 0.813722E+00_JPRB &
+  &, 0.801314E+00_JPRB, 0.788647E+00_JPRB, 0.775730E+00_JPRB &
+  &, 0.762576E+00_JPRB, 0.749192E+00_JPRB, 0.735595E+00_JPRB, 0.721797E+00_JPRB &
+  &, 0.707806E+00_JPRB, 0.693636E+00_JPRB, 0.679306E+00_JPRB &
+  &, 0.664826E+00_JPRB, 0.650208E+00_JPRB, 0.635473E+00_JPRB, 0.620636E+00_JPRB &
+  &, 0.605711E+00_JPRB, 0.590714E+00_JPRB, 0.575657E+00_JPRB &
+  &, 0.560562E+00_JPRB, 0.545444E+00_JPRB, 0.530327E+00_JPRB, 0.515220E+00_JPRB &
+  &, 0.500136E+00_JPRB, 0.485110E+00_JPRB, 0.470139E+00_JPRB &
+  &, 0.455251E+00_JPRB, 0.440456E+00_JPRB, 0.425775E+00_JPRB, 0.411230E+00_JPRB &
+  &, 0.396832E+00_JPRB, 0.382582E+00_JPRB, 0.368527E+00_JPRB &
+  &, 0.354654E+00_JPRB, 0.340987E+00_JPRB, 0.327535E+00_JPRB, 0.314309E+00_JPRB &
+  &, 0.301345E+00_JPRB, 0.288623E+00_JPRB, 0.276165E+00_JPRB &
+  &, 0.263989E+00_JPRB, 0.252086E+00_JPRB, 0.240488E+00_JPRB, 0.229180E+00_JPRB &
+  &, 0.218195E+00_JPRB, 0.207512E+00_JPRB, 0.197144E+00_JPRB &
+  &, 0.187084E+00_JPRB, 0.177375E+00_JPRB, 0.167971E+00_JPRB, 0.158895E+00_JPRB &
+  &, 0.150150E+00_JPRB, 0.141717E+00_JPRB, 0.133636E+00_JPRB &
+  &, 0.125864E+00_JPRB, 0.118394E+00_JPRB, 0.111262E+00_JPRB, 0.104437E+00_JPRB &
+  &, 0.979308E-01_JPRB, 0.917060E-01_JPRB, 0.857930E-01_JPRB &
+  &, 0.801742E-01_JPRB, 0.748044E-01_JPRB, 0.697345E-01_JPRB, 0.649408E-01_JPRB &
+  &, 0.603960E-01_JPRB, 0.561237E-01_JPRB, 0.520655E-01_JPRB &
+  &, 0.482415E-01_JPRB, 0.446719E-01_JPRB, 0.412910E-01_JPRB, 0.381447E-01_JPRB &
+  &, 0.351918E-01_JPRB, 0.324176E-01_JPRB, 0.298365E-01_JPRB &
+  &, 0.274002E-01_JPRB, 0.251527E-01_JPRB, 0.230750E-01_JPRB, 0.211462E-01_JPRB &
+  &, 0.193433E-01_JPRB, 0.176756E-01_JPRB, 0.161177E-01_JPRB &
+  &, 0.146776E-01_JPRB, 0.133635E-01_JPRB, 0.121468E-01_JPRB, 0.110342E-01_JPRB &
+  &, 0.999436E-02_JPRB, 0.907115E-02_JPRB, 0.819267E-02_JPRB &
+  &, 0.740248E-02_JPRB, 0.670598E-02_JPRB, 0.602573E-02_JPRB, 0.544766E-02_JPRB &
+  &, 0.489182E-02_JPRB, 0.440345E-02_JPRB, 0.394219E-02_JPRB &
+  &, 0.350989E-02_JPRB, 0.315397E-02_JPRB, 0.283217E-02_JPRB, 0.249949E-02_JPRB &
+  &, 0.225113E-02_JPRB, 0.199448E-02_JPRB, 0.177854E-02_JPRB &
+  &, 0.155555E-02_JPRB, 0.137600E-02_JPRB, 0.124203E-02_JPRB, 0.110373E-02_JPRB &
+  &, 0.961057E-03_JPRB, 0.867544E-03_JPRB, 0.716711E-03_JPRB &
+  &, 0.671611E-03_JPRB, 0.569121E-03_JPRB, 0.520263E-03_JPRB, 0.412400E-03_JPRB &
+  &, 0.359689E-03_JPRB, 0.305415E-03_JPRB, 0.309454E-03_JPRB &
+  &, 0.252817E-03_JPRB, 0.194572E-03_JPRB, 0.197048E-03_JPRB, 0.136362E-03_JPRB &
+  &, 0.138037E-03_JPRB, 0.748618E-04_JPRB, 0.757111E-04_JPRB/)
+XCW( 422, :) = (/ &
+  &  0.977014E+00_JPRB, 0.970296E+00_JPRB, 0.963195E+00_JPRB, 0.955723E+00_JPRB &
+  &, 0.947878E+00_JPRB, 0.939669E+00_JPRB, 0.931100E+00_JPRB &
+  &, 0.922176E+00_JPRB, 0.912904E+00_JPRB, 0.903289E+00_JPRB, 0.893340E+00_JPRB &
+  &, 0.883060E+00_JPRB, 0.872459E+00_JPRB, 0.861545E+00_JPRB &
+  &, 0.850323E+00_JPRB, 0.838801E+00_JPRB, 0.826992E+00_JPRB, 0.814900E+00_JPRB &
+  &, 0.802538E+00_JPRB, 0.789913E+00_JPRB, 0.777037E+00_JPRB &
+  &, 0.763922E+00_JPRB, 0.750579E+00_JPRB, 0.737018E+00_JPRB, 0.723250E+00_JPRB &
+  &, 0.709293E+00_JPRB, 0.695156E+00_JPRB, 0.680855E+00_JPRB &
+  &, 0.666402E+00_JPRB, 0.651811E+00_JPRB, 0.637103E+00_JPRB, 0.622286E+00_JPRB &
+  &, 0.607381E+00_JPRB, 0.592399E+00_JPRB, 0.577358E+00_JPRB &
+  &, 0.562283E+00_JPRB, 0.547180E+00_JPRB, 0.532068E+00_JPRB, 0.516964E+00_JPRB &
+  &, 0.501894E+00_JPRB, 0.486859E+00_JPRB, 0.471889E+00_JPRB &
+  &, 0.457001E+00_JPRB, 0.442204E+00_JPRB, 0.427531E+00_JPRB, 0.412970E+00_JPRB &
+  &, 0.398555E+00_JPRB, 0.384310E+00_JPRB, 0.370233E+00_JPRB &
+  &, 0.356336E+00_JPRB, 0.342656E+00_JPRB, 0.329189E+00_JPRB, 0.315946E+00_JPRB &
+  &, 0.302949E+00_JPRB, 0.290206E+00_JPRB, 0.277724E+00_JPRB &
+  &, 0.265523E+00_JPRB, 0.253608E+00_JPRB, 0.241964E+00_JPRB, 0.230641E+00_JPRB &
+  &, 0.219604E+00_JPRB, 0.208901E+00_JPRB, 0.198493E+00_JPRB &
+  &, 0.188408E+00_JPRB, 0.178655E+00_JPRB, 0.169203E+00_JPRB, 0.160096E+00_JPRB &
+  &, 0.151318E+00_JPRB, 0.142870E+00_JPRB, 0.134731E+00_JPRB &
+  &, 0.126918E+00_JPRB, 0.119427E+00_JPRB, 0.112251E+00_JPRB, 0.105380E+00_JPRB &
+  &, 0.988239E-01_JPRB, 0.925706E-01_JPRB, 0.866274E-01_JPRB &
+  &, 0.809525E-01_JPRB, 0.755735E-01_JPRB, 0.704682E-01_JPRB, 0.656373E-01_JPRB &
+  &, 0.610536E-01_JPRB, 0.567403E-01_JPRB, 0.526667E-01_JPRB &
+  &, 0.488263E-01_JPRB, 0.452110E-01_JPRB, 0.418113E-01_JPRB, 0.386159E-01_JPRB &
+  &, 0.356417E-01_JPRB, 0.328452E-01_JPRB, 0.302097E-01_JPRB &
+  &, 0.277802E-01_JPRB, 0.255072E-01_JPRB, 0.234031E-01_JPRB, 0.214467E-01_JPRB &
+  &, 0.196151E-01_JPRB, 0.179176E-01_JPRB, 0.163639E-01_JPRB &
+  &, 0.149281E-01_JPRB, 0.135818E-01_JPRB, 0.123689E-01_JPRB, 0.112224E-01_JPRB &
+  &, 0.101856E-01_JPRB, 0.922670E-02_JPRB, 0.835078E-02_JPRB &
+  &, 0.756318E-02_JPRB, 0.682847E-02_JPRB, 0.615020E-02_JPRB, 0.553196E-02_JPRB &
+  &, 0.497746E-02_JPRB, 0.449044E-02_JPRB, 0.403056E-02_JPRB &
+  &, 0.359963E-02_JPRB, 0.319953E-02_JPRB, 0.287844E-02_JPRB, 0.254646E-02_JPRB &
+  &, 0.229882E-02_JPRB, 0.204288E-02_JPRB, 0.182767E-02_JPRB &
+  &, 0.160540E-02_JPRB, 0.142659E-02_JPRB, 0.124203E-02_JPRB, 0.110373E-02_JPRB &
+  &, 0.961057E-03_JPRB, 0.867544E-03_JPRB, 0.771074E-03_JPRB &
+  &, 0.671611E-03_JPRB, 0.569121E-03_JPRB, 0.520263E-03_JPRB, 0.469886E-03_JPRB &
+  &, 0.359689E-03_JPRB, 0.305415E-03_JPRB, 0.309454E-03_JPRB &
+  &, 0.252817E-03_JPRB, 0.194572E-03_JPRB, 0.197048E-03_JPRB, 0.136362E-03_JPRB &
+  &, 0.138037E-03_JPRB, 0.139724E-03_JPRB, 0.757111E-04_JPRB/)
+XCW( 423, :) = (/ &
+  &  0.977266E+00_JPRB, 0.970608E+00_JPRB, 0.963569E+00_JPRB, 0.956157E+00_JPRB &
+  &, 0.948372E+00_JPRB, 0.940222E+00_JPRB, 0.931711E+00_JPRB &
+  &, 0.922844E+00_JPRB, 0.913627E+00_JPRB, 0.904069E+00_JPRB, 0.894173E+00_JPRB &
+  &, 0.883946E+00_JPRB, 0.873398E+00_JPRB, 0.862533E+00_JPRB &
+  &, 0.851361E+00_JPRB, 0.839888E+00_JPRB, 0.828126E+00_JPRB, 0.816080E+00_JPRB &
+  &, 0.803761E+00_JPRB, 0.791178E+00_JPRB, 0.778347E+00_JPRB &
+  &, 0.765271E+00_JPRB, 0.751963E+00_JPRB, 0.738441E+00_JPRB, 0.724710E+00_JPRB &
+  &, 0.710785E+00_JPRB, 0.696679E+00_JPRB, 0.682405E+00_JPRB &
+  &, 0.667981E+00_JPRB, 0.653418E+00_JPRB, 0.638730E+00_JPRB, 0.623936E+00_JPRB &
+  &, 0.609051E+00_JPRB, 0.594089E+00_JPRB, 0.579069E+00_JPRB &
+  &, 0.564003E+00_JPRB, 0.548906E+00_JPRB, 0.533808E+00_JPRB, 0.518719E+00_JPRB &
+  &, 0.503651E+00_JPRB, 0.488619E+00_JPRB, 0.473650E+00_JPRB &
+  &, 0.458762E+00_JPRB, 0.443963E+00_JPRB, 0.429277E+00_JPRB, 0.414711E+00_JPRB &
+  &, 0.400290E+00_JPRB, 0.386038E+00_JPRB, 0.371939E+00_JPRB &
+  &, 0.358044E+00_JPRB, 0.344338E+00_JPRB, 0.330857E+00_JPRB, 0.317597E+00_JPRB &
+  &, 0.304568E+00_JPRB, 0.291804E+00_JPRB, 0.279299E+00_JPRB &
+  &, 0.267073E+00_JPRB, 0.255115E+00_JPRB, 0.243457E+00_JPRB, 0.232101E+00_JPRB &
+  &, 0.221030E+00_JPRB, 0.210290E+00_JPRB, 0.199842E+00_JPRB &
+  &, 0.189733E+00_JPRB, 0.179935E+00_JPRB, 0.170455E+00_JPRB, 0.161316E+00_JPRB &
+  &, 0.152505E+00_JPRB, 0.144002E+00_JPRB, 0.135825E+00_JPRB &
+  &, 0.127973E+00_JPRB, 0.120461E+00_JPRB, 0.113240E+00_JPRB, 0.106344E+00_JPRB &
+  &, 0.997399E-01_JPRB, 0.934586E-01_JPRB, 0.874619E-01_JPRB &
+  &, 0.817551E-01_JPRB, 0.763425E-01_JPRB, 0.712019E-01_JPRB, 0.663338E-01_JPRB &
+  &, 0.617374E-01_JPRB, 0.573569E-01_JPRB, 0.532679E-01_JPRB &
+  &, 0.493832E-01_JPRB, 0.457502E-01_JPRB, 0.423028E-01_JPRB, 0.390871E-01_JPRB &
+  &, 0.360916E-01_JPRB, 0.332728E-01_JPRB, 0.306141E-01_JPRB &
+  &, 0.281601E-01_JPRB, 0.258618E-01_JPRB, 0.237312E-01_JPRB, 0.217472E-01_JPRB &
+  &, 0.198869E-01_JPRB, 0.181942E-01_JPRB, 0.166101E-01_JPRB &
+  &, 0.151427E-01_JPRB, 0.138002E-01_JPRB, 0.125539E-01_JPRB, 0.114105E-01_JPRB &
+  &, 0.103386E-01_JPRB, 0.938226E-02_JPRB, 0.850890E-02_JPRB &
+  &, 0.768371E-02_JPRB, 0.695096E-02_JPRB, 0.627466E-02_JPRB, 0.565842E-02_JPRB &
+  &, 0.506311E-02_JPRB, 0.457744E-02_JPRB, 0.407474E-02_JPRB &
+  &, 0.368937E-02_JPRB, 0.329066E-02_JPRB, 0.292470E-02_JPRB, 0.264040E-02_JPRB &
+  &, 0.234650E-02_JPRB, 0.209128E-02_JPRB, 0.182767E-02_JPRB &
+  &, 0.165526E-02_JPRB, 0.147718E-02_JPRB, 0.129336E-02_JPRB, 0.115582E-02_JPRB &
+  &, 0.101389E-02_JPRB, 0.867544E-03_JPRB, 0.771074E-03_JPRB &
+  &, 0.671611E-03_JPRB, 0.625033E-03_JPRB, 0.520263E-03_JPRB, 0.469886E-03_JPRB &
+  &, 0.417970E-03_JPRB, 0.364499E-03_JPRB, 0.309454E-03_JPRB &
+  &, 0.252817E-03_JPRB, 0.194572E-03_JPRB, 0.197048E-03_JPRB, 0.136362E-03_JPRB &
+  &, 0.138037E-03_JPRB, 0.139724E-03_JPRB, 0.757111E-04_JPRB/)
+XCW( 424, :) = (/ &
+  &  0.977516E+00_JPRB, 0.970923E+00_JPRB, 0.963944E+00_JPRB, 0.956591E+00_JPRB &
+  &, 0.948866E+00_JPRB, 0.940774E+00_JPRB, 0.932321E+00_JPRB &
+  &, 0.923511E+00_JPRB, 0.914352E+00_JPRB, 0.904848E+00_JPRB, 0.895006E+00_JPRB &
+  &, 0.884833E+00_JPRB, 0.874336E+00_JPRB, 0.863522E+00_JPRB &
+  &, 0.852400E+00_JPRB, 0.840975E+00_JPRB, 0.829260E+00_JPRB, 0.817260E+00_JPRB &
+  &, 0.804986E+00_JPRB, 0.792447E+00_JPRB, 0.779653E+00_JPRB &
+  &, 0.766621E+00_JPRB, 0.753350E+00_JPRB, 0.739863E+00_JPRB, 0.726166E+00_JPRB &
+  &, 0.712276E+00_JPRB, 0.698203E+00_JPRB, 0.683958E+00_JPRB &
+  &, 0.669561E+00_JPRB, 0.655025E+00_JPRB, 0.640364E+00_JPRB, 0.625590E+00_JPRB &
+  &, 0.610726E+00_JPRB, 0.595779E+00_JPRB, 0.580774E+00_JPRB &
+  &, 0.565724E+00_JPRB, 0.550642E+00_JPRB, 0.535549E+00_JPRB, 0.520463E+00_JPRB &
+  &, 0.505409E+00_JPRB, 0.490379E+00_JPRB, 0.475421E+00_JPRB &
+  &, 0.460522E+00_JPRB, 0.445723E+00_JPRB, 0.431033E+00_JPRB, 0.416464E+00_JPRB &
+  &, 0.402038E+00_JPRB, 0.387765E+00_JPRB, 0.373658E+00_JPRB &
+  &, 0.359739E+00_JPRB, 0.346020E+00_JPRB, 0.332511E+00_JPRB, 0.319235E+00_JPRB &
+  &, 0.306201E+00_JPRB, 0.293402E+00_JPRB, 0.280874E+00_JPRB &
+  &, 0.268623E+00_JPRB, 0.256637E+00_JPRB, 0.244949E+00_JPRB, 0.233562E+00_JPRB &
+  &, 0.222473E+00_JPRB, 0.211679E+00_JPRB, 0.201209E+00_JPRB &
+  &, 0.191058E+00_JPRB, 0.181233E+00_JPRB, 0.171725E+00_JPRB, 0.162537E+00_JPRB &
+  &, 0.153673E+00_JPRB, 0.145154E+00_JPRB, 0.136940E+00_JPRB &
+  &, 0.129048E+00_JPRB, 0.121494E+00_JPRB, 0.114229E+00_JPRB, 0.107309E+00_JPRB &
+  &, 0.100679E+00_JPRB, 0.943466E-01_JPRB, 0.883202E-01_JPRB &
+  &, 0.825821E-01_JPRB, 0.771115E-01_JPRB, 0.719356E-01_JPRB, 0.670303E-01_JPRB &
+  &, 0.623949E-01_JPRB, 0.580004E-01_JPRB, 0.538690E-01_JPRB &
+  &, 0.499680E-01_JPRB, 0.462893E-01_JPRB, 0.428231E-01_JPRB, 0.395877E-01_JPRB &
+  &, 0.365415E-01_JPRB, 0.337005E-01_JPRB, 0.310184E-01_JPRB &
+  &, 0.285401E-01_JPRB, 0.262164E-01_JPRB, 0.240593E-01_JPRB, 0.220477E-01_JPRB &
+  &, 0.201927E-01_JPRB, 0.184707E-01_JPRB, 0.168563E-01_JPRB &
+  &, 0.153931E-01_JPRB, 0.140185E-01_JPRB, 0.127389E-01_JPRB, 0.115986E-01_JPRB &
+  &, 0.105299E-01_JPRB, 0.953782E-02_JPRB, 0.862749E-02_JPRB &
+  &, 0.780424E-02_JPRB, 0.707345E-02_JPRB, 0.635763E-02_JPRB, 0.574273E-02_JPRB &
+  &, 0.514875E-02_JPRB, 0.466444E-02_JPRB, 0.416310E-02_JPRB &
+  &, 0.373424E-02_JPRB, 0.333623E-02_JPRB, 0.301723E-02_JPRB, 0.268737E-02_JPRB &
+  &, 0.239419E-02_JPRB, 0.213969E-02_JPRB, 0.187679E-02_JPRB &
+  &, 0.170511E-02_JPRB, 0.147718E-02_JPRB, 0.134470E-02_JPRB, 0.115582E-02_JPRB &
+  &, 0.101389E-02_JPRB, 0.921140E-03_JPRB, 0.825436E-03_JPRB &
+  &, 0.726746E-03_JPRB, 0.625033E-03_JPRB, 0.520263E-03_JPRB, 0.469886E-03_JPRB &
+  &, 0.417970E-03_JPRB, 0.364499E-03_JPRB, 0.309454E-03_JPRB &
+  &, 0.252817E-03_JPRB, 0.256096E-03_JPRB, 0.197048E-03_JPRB, 0.136362E-03_JPRB &
+  &, 0.138037E-03_JPRB, 0.139724E-03_JPRB, 0.757111E-04_JPRB/)
+XCW( 425, :) = (/ &
+  &  0.977768E+00_JPRB, 0.971235E+00_JPRB, 0.964318E+00_JPRB, 0.957027E+00_JPRB &
+  &, 0.949361E+00_JPRB, 0.941328E+00_JPRB, 0.932932E+00_JPRB &
+  &, 0.924179E+00_JPRB, 0.915076E+00_JPRB, 0.905627E+00_JPRB, 0.895840E+00_JPRB &
+  &, 0.885719E+00_JPRB, 0.875275E+00_JPRB, 0.864512E+00_JPRB &
+  &, 0.853439E+00_JPRB, 0.842064E+00_JPRB, 0.830394E+00_JPRB, 0.818440E+00_JPRB &
+  &, 0.806211E+00_JPRB, 0.793716E+00_JPRB, 0.780963E+00_JPRB &
+  &, 0.767970E+00_JPRB, 0.754741E+00_JPRB, 0.741290E+00_JPRB, 0.727626E+00_JPRB &
+  &, 0.713771E+00_JPRB, 0.699727E+00_JPRB, 0.685515E+00_JPRB &
+  &, 0.671144E+00_JPRB, 0.656636E+00_JPRB, 0.641994E+00_JPRB, 0.627245E+00_JPRB &
+  &, 0.612400E+00_JPRB, 0.597474E+00_JPRB, 0.582484E+00_JPRB &
+  &, 0.567445E+00_JPRB, 0.552378E+00_JPRB, 0.537299E+00_JPRB, 0.522218E+00_JPRB &
+  &, 0.507167E+00_JPRB, 0.492149E+00_JPRB, 0.477182E+00_JPRB &
+  &, 0.462294E+00_JPRB, 0.447494E+00_JPRB, 0.432790E+00_JPRB, 0.418217E+00_JPRB &
+  &, 0.403785E+00_JPRB, 0.389493E+00_JPRB, 0.375377E+00_JPRB &
+  &, 0.361447E+00_JPRB, 0.347716E+00_JPRB, 0.334193E+00_JPRB, 0.320886E+00_JPRB &
+  &, 0.307834E+00_JPRB, 0.295014E+00_JPRB, 0.282464E+00_JPRB &
+  &, 0.270173E+00_JPRB, 0.258175E+00_JPRB, 0.246442E+00_JPRB, 0.235022E+00_JPRB &
+  &, 0.223898E+00_JPRB, 0.213085E+00_JPRB, 0.202576E+00_JPRB &
+  &, 0.192401E+00_JPRB, 0.182532E+00_JPRB, 0.172995E+00_JPRB, 0.163777E+00_JPRB &
+  &, 0.154880E+00_JPRB, 0.146307E+00_JPRB, 0.138055E+00_JPRB &
+  &, 0.130124E+00_JPRB, 0.122528E+00_JPRB, 0.115241E+00_JPRB, 0.108274E+00_JPRB &
+  &, 0.101595E+00_JPRB, 0.952346E-01_JPRB, 0.891785E-01_JPRB &
+  &, 0.833847E-01_JPRB, 0.779054E-01_JPRB, 0.726946E-01_JPRB, 0.677526E-01_JPRB &
+  &, 0.630787E-01_JPRB, 0.586438E-01_JPRB, 0.544702E-01_JPRB &
+  &, 0.505250E-01_JPRB, 0.468284E-01_JPRB, 0.433435E-01_JPRB, 0.400588E-01_JPRB &
+  &, 0.369914E-01_JPRB, 0.341281E-01_JPRB, 0.314227E-01_JPRB &
+  &, 0.289201E-01_JPRB, 0.265710E-01_JPRB, 0.243874E-01_JPRB, 0.223816E-01_JPRB &
+  &, 0.204985E-01_JPRB, 0.187473E-01_JPRB, 0.171376E-01_JPRB &
+  &, 0.156078E-01_JPRB, 0.142368E-01_JPRB, 0.129609E-01_JPRB, 0.117868E-01_JPRB &
+  &, 0.107212E-01_JPRB, 0.969337E-02_JPRB, 0.878561E-02_JPRB &
+  &, 0.796495E-02_JPRB, 0.719593E-02_JPRB, 0.648210E-02_JPRB, 0.586918E-02_JPRB &
+  &, 0.527722E-02_JPRB, 0.475144E-02_JPRB, 0.425147E-02_JPRB &
+  &, 0.382398E-02_JPRB, 0.342736E-02_JPRB, 0.306350E-02_JPRB, 0.273434E-02_JPRB &
+  &, 0.244187E-02_JPRB, 0.218809E-02_JPRB, 0.192592E-02_JPRB &
+  &, 0.170511E-02_JPRB, 0.152777E-02_JPRB, 0.134470E-02_JPRB, 0.120790E-02_JPRB &
+  &, 0.106673E-02_JPRB, 0.921140E-03_JPRB, 0.825436E-03_JPRB &
+  &, 0.726746E-03_JPRB, 0.625033E-03_JPRB, 0.576959E-03_JPRB, 0.469886E-03_JPRB &
+  &, 0.417970E-03_JPRB, 0.364499E-03_JPRB, 0.309454E-03_JPRB &
+  &, 0.252817E-03_JPRB, 0.256096E-03_JPRB, 0.197048E-03_JPRB, 0.199543E-03_JPRB &
+  &, 0.138037E-03_JPRB, 0.139724E-03_JPRB, 0.757111E-04_JPRB/)
+XCW( 426, :) = (/ &
+  &  0.978022E+00_JPRB, 0.971548E+00_JPRB, 0.964692E+00_JPRB, 0.957461E+00_JPRB &
+  &, 0.949855E+00_JPRB, 0.941881E+00_JPRB, 0.933543E+00_JPRB &
+  &, 0.924848E+00_JPRB, 0.915800E+00_JPRB, 0.906407E+00_JPRB, 0.896673E+00_JPRB &
+  &, 0.886606E+00_JPRB, 0.876214E+00_JPRB, 0.865502E+00_JPRB &
+  &, 0.854479E+00_JPRB, 0.843152E+00_JPRB, 0.831529E+00_JPRB, 0.819622E+00_JPRB &
+  &, 0.807437E+00_JPRB, 0.794985E+00_JPRB, 0.782273E+00_JPRB &
+  &, 0.769319E+00_JPRB, 0.756128E+00_JPRB, 0.742716E+00_JPRB, 0.729090E+00_JPRB &
+  &, 0.715266E+00_JPRB, 0.701254E+00_JPRB, 0.687072E+00_JPRB &
+  &, 0.672732E+00_JPRB, 0.658246E+00_JPRB, 0.643633E+00_JPRB, 0.628903E+00_JPRB &
+  &, 0.614079E+00_JPRB, 0.599173E+00_JPRB, 0.584199E+00_JPRB &
+  &, 0.569175E+00_JPRB, 0.554123E+00_JPRB, 0.539049E+00_JPRB, 0.523982E+00_JPRB &
+  &, 0.508934E+00_JPRB, 0.493920E+00_JPRB, 0.478954E+00_JPRB &
+  &, 0.464066E+00_JPRB, 0.449265E+00_JPRB, 0.434559E+00_JPRB, 0.419970E+00_JPRB &
+  &, 0.405532E+00_JPRB, 0.391233E+00_JPRB, 0.377108E+00_JPRB &
+  &, 0.363156E+00_JPRB, 0.349412E+00_JPRB, 0.335874E+00_JPRB, 0.322552E+00_JPRB &
+  &, 0.309467E+00_JPRB, 0.296627E+00_JPRB, 0.284054E+00_JPRB &
+  &, 0.271738E+00_JPRB, 0.259697E+00_JPRB, 0.247951E+00_JPRB, 0.236499E+00_JPRB &
+  &, 0.225341E+00_JPRB, 0.214491E+00_JPRB, 0.203960E+00_JPRB &
+  &, 0.193743E+00_JPRB, 0.183830E+00_JPRB, 0.174265E+00_JPRB, 0.164997E+00_JPRB &
+  &, 0.156068E+00_JPRB, 0.147459E+00_JPRB, 0.139170E+00_JPRB &
+  &, 0.131220E+00_JPRB, 0.123583E+00_JPRB, 0.116252E+00_JPRB, 0.109239E+00_JPRB &
+  &, 0.102534E+00_JPRB, 0.961225E-01_JPRB, 0.900368E-01_JPRB &
+  &, 0.842116E-01_JPRB, 0.786992E-01_JPRB, 0.734535E-01_JPRB, 0.684749E-01_JPRB &
+  &, 0.637625E-01_JPRB, 0.592873E-01_JPRB, 0.550987E-01_JPRB &
+  &, 0.511098E-01_JPRB, 0.473959E-01_JPRB, 0.438638E-01_JPRB, 0.405594E-01_JPRB &
+  &, 0.374713E-01_JPRB, 0.345557E-01_JPRB, 0.318581E-01_JPRB &
+  &, 0.293001E-01_JPRB, 0.269578E-01_JPRB, 0.247483E-01_JPRB, 0.226822E-01_JPRB &
+  &, 0.208043E-01_JPRB, 0.190239E-01_JPRB, 0.173838E-01_JPRB &
+  &, 0.158582E-01_JPRB, 0.144551E-01_JPRB, 0.131829E-01_JPRB, 0.119749E-01_JPRB &
+  &, 0.108742E-01_JPRB, 0.988782E-02_JPRB, 0.894373E-02_JPRB &
+  &, 0.808548E-02_JPRB, 0.731842E-02_JPRB, 0.660656E-02_JPRB, 0.595349E-02_JPRB &
+  &, 0.536287E-02_JPRB, 0.483844E-02_JPRB, 0.433983E-02_JPRB &
+  &, 0.391372E-02_JPRB, 0.347292E-02_JPRB, 0.310976E-02_JPRB, 0.278131E-02_JPRB &
+  &, 0.248955E-02_JPRB, 0.223649E-02_JPRB, 0.197505E-02_JPRB &
+  &, 0.175497E-02_JPRB, 0.157836E-02_JPRB, 0.139603E-02_JPRB, 0.120790E-02_JPRB &
+  &, 0.106673E-02_JPRB, 0.974737E-03_JPRB, 0.825436E-03_JPRB &
+  &, 0.726746E-03_JPRB, 0.625033E-03_JPRB, 0.576959E-03_JPRB, 0.469886E-03_JPRB &
+  &, 0.417970E-03_JPRB, 0.364499E-03_JPRB, 0.309454E-03_JPRB &
+  &, 0.252817E-03_JPRB, 0.256096E-03_JPRB, 0.197048E-03_JPRB, 0.199543E-03_JPRB &
+  &, 0.138037E-03_JPRB, 0.139724E-03_JPRB, 0.757111E-04_JPRB/)
+XCW( 427, :) = (/ &
+  &  0.978272E+00_JPRB, 0.971862E+00_JPRB, 0.965067E+00_JPRB, 0.957895E+00_JPRB &
+  &, 0.950348E+00_JPRB, 0.942434E+00_JPRB, 0.934154E+00_JPRB &
+  &, 0.925515E+00_JPRB, 0.916524E+00_JPRB, 0.907186E+00_JPRB, 0.897508E+00_JPRB &
+  &, 0.887494E+00_JPRB, 0.877153E+00_JPRB, 0.866492E+00_JPRB &
+  &, 0.855519E+00_JPRB, 0.844241E+00_JPRB, 0.832666E+00_JPRB, 0.820804E+00_JPRB &
+  &, 0.808663E+00_JPRB, 0.796254E+00_JPRB, 0.783586E+00_JPRB &
+  &, 0.770672E+00_JPRB, 0.757518E+00_JPRB, 0.744142E+00_JPRB, 0.730550E+00_JPRB &
+  &, 0.716761E+00_JPRB, 0.702781E+00_JPRB, 0.688629E+00_JPRB &
+  &, 0.674315E+00_JPRB, 0.659857E+00_JPRB, 0.645272E+00_JPRB, 0.630566E+00_JPRB &
+  &, 0.615762E+00_JPRB, 0.600872E+00_JPRB, 0.585918E+00_JPRB &
+  &, 0.570905E+00_JPRB, 0.555868E+00_JPRB, 0.540809E+00_JPRB, 0.525747E+00_JPRB &
+  &, 0.510702E+00_JPRB, 0.495690E+00_JPRB, 0.480726E+00_JPRB &
+  &, 0.465838E+00_JPRB, 0.451035E+00_JPRB, 0.436327E+00_JPRB, 0.421735E+00_JPRB &
+  &, 0.407280E+00_JPRB, 0.392974E+00_JPRB, 0.378840E+00_JPRB &
+  &, 0.364877E+00_JPRB, 0.351108E+00_JPRB, 0.337556E+00_JPRB, 0.324217E+00_JPRB &
+  &, 0.311114E+00_JPRB, 0.298254E+00_JPRB, 0.285644E+00_JPRB &
+  &, 0.273303E+00_JPRB, 0.261236E+00_JPRB, 0.249460E+00_JPRB, 0.237976E+00_JPRB &
+  &, 0.226801E+00_JPRB, 0.215914E+00_JPRB, 0.205345E+00_JPRB &
+  &, 0.195086E+00_JPRB, 0.185147E+00_JPRB, 0.175535E+00_JPRB, 0.166237E+00_JPRB &
+  &, 0.157275E+00_JPRB, 0.148632E+00_JPRB, 0.140306E+00_JPRB &
+  &, 0.132317E+00_JPRB, 0.124638E+00_JPRB, 0.117263E+00_JPRB, 0.110204E+00_JPRB &
+  &, 0.103473E+00_JPRB, 0.970339E-01_JPRB, 0.908951E-01_JPRB &
+  &, 0.850385E-01_JPRB, 0.794931E-01_JPRB, 0.742125E-01_JPRB, 0.691972E-01_JPRB &
+  &, 0.644463E-01_JPRB, 0.599575E-01_JPRB, 0.557272E-01_JPRB &
+  &, 0.517224E-01_JPRB, 0.479350E-01_JPRB, 0.443842E-01_JPRB, 0.410600E-01_JPRB &
+  &, 0.379512E-01_JPRB, 0.350139E-01_JPRB, 0.322625E-01_JPRB &
+  &, 0.297117E-01_JPRB, 0.273124E-01_JPRB, 0.250764E-01_JPRB, 0.230161E-01_JPRB &
+  &, 0.210761E-01_JPRB, 0.193004E-01_JPRB, 0.176300E-01_JPRB &
+  &, 0.161086E-01_JPRB, 0.147098E-01_JPRB, 0.133679E-01_JPRB, 0.121630E-01_JPRB &
+  &, 0.110655E-01_JPRB, 0.100434E-01_JPRB, 0.910185E-02_JPRB &
+  &, 0.824618E-02_JPRB, 0.744091E-02_JPRB, 0.673102E-02_JPRB, 0.607994E-02_JPRB &
+  &, 0.549134E-02_JPRB, 0.492544E-02_JPRB, 0.442819E-02_JPRB &
+  &, 0.395859E-02_JPRB, 0.356405E-02_JPRB, 0.320229E-02_JPRB, 0.282829E-02_JPRB &
+  &, 0.253724E-02_JPRB, 0.228489E-02_JPRB, 0.202417E-02_JPRB &
+  &, 0.180483E-02_JPRB, 0.157836E-02_JPRB, 0.139603E-02_JPRB, 0.125998E-02_JPRB &
+  &, 0.111957E-02_JPRB, 0.974737E-03_JPRB, 0.879799E-03_JPRB &
+  &, 0.781880E-03_JPRB, 0.680946E-03_JPRB, 0.576959E-03_JPRB, 0.527371E-03_JPRB &
+  &, 0.417970E-03_JPRB, 0.364499E-03_JPRB, 0.309454E-03_JPRB &
+  &, 0.313522E-03_JPRB, 0.256096E-03_JPRB, 0.197048E-03_JPRB, 0.199543E-03_JPRB &
+  &, 0.138037E-03_JPRB, 0.139724E-03_JPRB, 0.141422E-03_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART61',1,ZHOOK_HANDLE)
+END SUBROUTINE PART61
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART62
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART62',0,ZHOOK_HANDLE)
+
+XCW( 428, :) = (/ &
+  &  0.978524E+00_JPRB, 0.972175E+00_JPRB, 0.965441E+00_JPRB, 0.958330E+00_JPRB &
+  &, 0.950842E+00_JPRB, 0.942986E+00_JPRB, 0.934765E+00_JPRB &
+  &, 0.926184E+00_JPRB, 0.917248E+00_JPRB, 0.907965E+00_JPRB, 0.898341E+00_JPRB &
+  &, 0.888380E+00_JPRB, 0.878092E+00_JPRB, 0.867483E+00_JPRB &
+  &, 0.856559E+00_JPRB, 0.845329E+00_JPRB, 0.833802E+00_JPRB, 0.821987E+00_JPRB &
+  &, 0.809890E+00_JPRB, 0.797523E+00_JPRB, 0.784900E+00_JPRB &
+  &, 0.772025E+00_JPRB, 0.758909E+00_JPRB, 0.745569E+00_JPRB, 0.732014E+00_JPRB &
+  &, 0.718259E+00_JPRB, 0.704312E+00_JPRB, 0.690190E+00_JPRB &
+  &, 0.675907E+00_JPRB, 0.661476E+00_JPRB, 0.646910E+00_JPRB, 0.632229E+00_JPRB &
+  &, 0.617445E+00_JPRB, 0.602575E+00_JPRB, 0.587637E+00_JPRB &
+  &, 0.572644E+00_JPRB, 0.557613E+00_JPRB, 0.542559E+00_JPRB, 0.527511E+00_JPRB &
+  &, 0.512470E+00_JPRB, 0.497471E+00_JPRB, 0.482509E+00_JPRB &
+  &, 0.467621E+00_JPRB, 0.452806E+00_JPRB, 0.438096E+00_JPRB, 0.423511E+00_JPRB &
+  &, 0.409039E+00_JPRB, 0.394726E+00_JPRB, 0.380572E+00_JPRB &
+  &, 0.366598E+00_JPRB, 0.352817E+00_JPRB, 0.339237E+00_JPRB, 0.325883E+00_JPRB &
+  &, 0.312762E+00_JPRB, 0.299867E+00_JPRB, 0.287249E+00_JPRB &
+  &, 0.274884E+00_JPRB, 0.262790E+00_JPRB, 0.250985E+00_JPRB, 0.239470E+00_JPRB &
+  &, 0.228244E+00_JPRB, 0.217338E+00_JPRB, 0.206729E+00_JPRB &
+  &, 0.196447E+00_JPRB, 0.186464E+00_JPRB, 0.176824E+00_JPRB, 0.167496E+00_JPRB &
+  &, 0.158482E+00_JPRB, 0.149804E+00_JPRB, 0.141442E+00_JPRB &
+  &, 0.133413E+00_JPRB, 0.125693E+00_JPRB, 0.118296E+00_JPRB, 0.111191E+00_JPRB &
+  &, 0.104412E+00_JPRB, 0.979453E-01_JPRB, 0.917534E-01_JPRB &
+  &, 0.858898E-01_JPRB, 0.802869E-01_JPRB, 0.749715E-01_JPRB, 0.699195E-01_JPRB &
+  &, 0.651301E-01_JPRB, 0.606278E-01_JPRB, 0.563283E-01_JPRB &
+  &, 0.523072E-01_JPRB, 0.485025E-01_JPRB, 0.449334E-01_JPRB, 0.415607E-01_JPRB &
+  &, 0.384311E-01_JPRB, 0.354720E-01_JPRB, 0.326979E-01_JPRB &
+  &, 0.300917E-01_JPRB, 0.276992E-01_JPRB, 0.254373E-01_JPRB, 0.233500E-01_JPRB &
+  &, 0.213819E-01_JPRB, 0.195770E-01_JPRB, 0.179114E-01_JPRB &
+  &, 0.163590E-01_JPRB, 0.149281E-01_JPRB, 0.135899E-01_JPRB, 0.123888E-01_JPRB &
+  &, 0.112567E-01_JPRB, 0.101989E-01_JPRB, 0.925997E-02_JPRB &
+  &, 0.836671E-02_JPRB, 0.760423E-02_JPRB, 0.685549E-02_JPRB, 0.620640E-02_JPRB &
+  &, 0.557698E-02_JPRB, 0.501244E-02_JPRB, 0.451656E-02_JPRB &
+  &, 0.404833E-02_JPRB, 0.365518E-02_JPRB, 0.324856E-02_JPRB, 0.292223E-02_JPRB &
+  &, 0.258492E-02_JPRB, 0.233329E-02_JPRB, 0.207330E-02_JPRB &
+  &, 0.185468E-02_JPRB, 0.162896E-02_JPRB, 0.144737E-02_JPRB, 0.125998E-02_JPRB &
+  &, 0.111957E-02_JPRB, 0.102833E-02_JPRB, 0.879799E-03_JPRB &
+  &, 0.781880E-03_JPRB, 0.680946E-03_JPRB, 0.576959E-03_JPRB, 0.527371E-03_JPRB &
+  &, 0.476251E-03_JPRB, 0.423582E-03_JPRB, 0.369344E-03_JPRB &
+  &, 0.313522E-03_JPRB, 0.256096E-03_JPRB, 0.197048E-03_JPRB, 0.199543E-03_JPRB &
+  &, 0.138037E-03_JPRB, 0.139724E-03_JPRB, 0.141422E-03_JPRB/)
+XCW( 429, :) = (/ &
+  &  0.978775E+00_JPRB, 0.972489E+00_JPRB, 0.965815E+00_JPRB, 0.958764E+00_JPRB &
+  &, 0.951337E+00_JPRB, 0.943539E+00_JPRB, 0.935376E+00_JPRB &
+  &, 0.926852E+00_JPRB, 0.917972E+00_JPRB, 0.908746E+00_JPRB, 0.899175E+00_JPRB &
+  &, 0.889268E+00_JPRB, 0.879032E+00_JPRB, 0.868473E+00_JPRB &
+  &, 0.857599E+00_JPRB, 0.846419E+00_JPRB, 0.834939E+00_JPRB, 0.823170E+00_JPRB &
+  &, 0.811118E+00_JPRB, 0.798796E+00_JPRB, 0.786213E+00_JPRB &
+  &, 0.773378E+00_JPRB, 0.760303E+00_JPRB, 0.746999E+00_JPRB, 0.733481E+00_JPRB &
+  &, 0.719758E+00_JPRB, 0.705844E+00_JPRB, 0.691750E+00_JPRB &
+  &, 0.677494E+00_JPRB, 0.663091E+00_JPRB, 0.648553E+00_JPRB, 0.633892E+00_JPRB &
+  &, 0.619132E+00_JPRB, 0.604278E+00_JPRB, 0.589356E+00_JPRB &
+  &, 0.574374E+00_JPRB, 0.559359E+00_JPRB, 0.544319E+00_JPRB, 0.529276E+00_JPRB &
+  &, 0.514249E+00_JPRB, 0.499252E+00_JPRB, 0.484291E+00_JPRB &
+  &, 0.469404E+00_JPRB, 0.454589E+00_JPRB, 0.439876E+00_JPRB, 0.425276E+00_JPRB &
+  &, 0.410811E+00_JPRB, 0.396479E+00_JPRB, 0.382316E+00_JPRB &
+  &, 0.368333E+00_JPRB, 0.354526E+00_JPRB, 0.340933E+00_JPRB, 0.327562E+00_JPRB &
+  &, 0.314409E+00_JPRB, 0.301509E+00_JPRB, 0.288854E+00_JPRB &
+  &, 0.276465E+00_JPRB, 0.264344E+00_JPRB, 0.252510E+00_JPRB, 0.240964E+00_JPRB &
+  &, 0.229721E+00_JPRB, 0.218761E+00_JPRB, 0.208132E+00_JPRB &
+  &, 0.197808E+00_JPRB, 0.187800E+00_JPRB, 0.178113E+00_JPRB, 0.168755E+00_JPRB &
+  &, 0.159709E+00_JPRB, 0.150977E+00_JPRB, 0.142598E+00_JPRB &
+  &, 0.134510E+00_JPRB, 0.126748E+00_JPRB, 0.119307E+00_JPRB, 0.112201E+00_JPRB &
+  &, 0.105373E+00_JPRB, 0.988566E-01_JPRB, 0.926356E-01_JPRB &
+  &, 0.867167E-01_JPRB, 0.810807E-01_JPRB, 0.757305E-01_JPRB, 0.706419E-01_JPRB &
+  &, 0.658403E-01_JPRB, 0.612712E-01_JPRB, 0.569842E-01_JPRB &
+  &, 0.529198E-01_JPRB, 0.490700E-01_JPRB, 0.454827E-01_JPRB, 0.420907E-01_JPRB &
+  &, 0.389110E-01_JPRB, 0.358997E-01_JPRB, 0.331333E-01_JPRB &
+  &, 0.305034E-01_JPRB, 0.280537E-01_JPRB, 0.257982E-01_JPRB, 0.236839E-01_JPRB &
+  &, 0.217217E-01_JPRB, 0.198881E-01_JPRB, 0.181927E-01_JPRB &
+  &, 0.166095E-01_JPRB, 0.151464E-01_JPRB, 0.138120E-01_JPRB, 0.125769E-01_JPRB &
+  &, 0.114480E-01_JPRB, 0.103934E-01_JPRB, 0.941809E-02_JPRB &
+  &, 0.852742E-02_JPRB, 0.772671E-02_JPRB, 0.697995E-02_JPRB, 0.629071E-02_JPRB &
+  &, 0.566263E-02_JPRB, 0.509944E-02_JPRB, 0.460492E-02_JPRB &
+  &, 0.413807E-02_JPRB, 0.370075E-02_JPRB, 0.334109E-02_JPRB, 0.296920E-02_JPRB &
+  &, 0.268029E-02_JPRB, 0.238170E-02_JPRB, 0.212242E-02_JPRB &
+  &, 0.190454E-02_JPRB, 0.167955E-02_JPRB, 0.149870E-02_JPRB, 0.131206E-02_JPRB &
+  &, 0.117240E-02_JPRB, 0.102833E-02_JPRB, 0.934161E-03_JPRB &
+  &, 0.781880E-03_JPRB, 0.680946E-03_JPRB, 0.633655E-03_JPRB, 0.527371E-03_JPRB &
+  &, 0.476251E-03_JPRB, 0.423582E-03_JPRB, 0.369344E-03_JPRB &
+  &, 0.313522E-03_JPRB, 0.256096E-03_JPRB, 0.259398E-03_JPRB, 0.199543E-03_JPRB &
+  &, 0.138037E-03_JPRB, 0.139724E-03_JPRB, 0.141422E-03_JPRB/)
+XCW( 430, :) = (/ &
+  &  0.979028E+00_JPRB, 0.972800E+00_JPRB, 0.966189E+00_JPRB, 0.959199E+00_JPRB &
+  &, 0.951831E+00_JPRB, 0.944092E+00_JPRB, 0.935986E+00_JPRB &
+  &, 0.927519E+00_JPRB, 0.918697E+00_JPRB, 0.909525E+00_JPRB, 0.900009E+00_JPRB &
+  &, 0.890155E+00_JPRB, 0.879972E+00_JPRB, 0.869464E+00_JPRB &
+  &, 0.858636E+00_JPRB, 0.847509E+00_JPRB, 0.836077E+00_JPRB, 0.824353E+00_JPRB &
+  &, 0.812346E+00_JPRB, 0.800068E+00_JPRB, 0.787526E+00_JPRB &
+  &, 0.774731E+00_JPRB, 0.761697E+00_JPRB, 0.748432E+00_JPRB, 0.734948E+00_JPRB &
+  &, 0.721257E+00_JPRB, 0.707375E+00_JPRB, 0.693315E+00_JPRB &
+  &, 0.679090E+00_JPRB, 0.664710E+00_JPRB, 0.650196E+00_JPRB, 0.635559E+00_JPRB &
+  &, 0.620819E+00_JPRB, 0.605986E+00_JPRB, 0.591084E+00_JPRB &
+  &, 0.576114E+00_JPRB, 0.561113E+00_JPRB, 0.546089E+00_JPRB, 0.531050E+00_JPRB &
+  &, 0.516027E+00_JPRB, 0.501033E+00_JPRB, 0.486084E+00_JPRB &
+  &, 0.471187E+00_JPRB, 0.456371E+00_JPRB, 0.441656E+00_JPRB, 0.427053E+00_JPRB &
+  &, 0.412570E+00_JPRB, 0.398244E+00_JPRB, 0.384060E+00_JPRB &
+  &, 0.370067E+00_JPRB, 0.356249E+00_JPRB, 0.342628E+00_JPRB, 0.329242E+00_JPRB &
+  &, 0.316071E+00_JPRB, 0.303136E+00_JPRB, 0.290459E+00_JPRB &
+  &, 0.278045E+00_JPRB, 0.265898E+00_JPRB, 0.254035E+00_JPRB, 0.242458E+00_JPRB &
+  &, 0.231181E+00_JPRB, 0.220202E+00_JPRB, 0.209534E+00_JPRB &
+  &, 0.199169E+00_JPRB, 0.189135E+00_JPRB, 0.179421E+00_JPRB, 0.170014E+00_JPRB &
+  &, 0.160936E+00_JPRB, 0.152170E+00_JPRB, 0.143734E+00_JPRB &
+  &, 0.135628E+00_JPRB, 0.127825E+00_JPRB, 0.120362E+00_JPRB, 0.113188E+00_JPRB &
+  &, 0.106335E+00_JPRB, 0.997913E-01_JPRB, 0.935177E-01_JPRB &
+  &, 0.875680E-01_JPRB, 0.818994E-01_JPRB, 0.765147E-01_JPRB, 0.713900E-01_JPRB &
+  &, 0.665504E-01_JPRB, 0.619415E-01_JPRB, 0.576127E-01_JPRB &
+  &, 0.535046E-01_JPRB, 0.496659E-01_JPRB, 0.460030E-01_JPRB, 0.425913E-01_JPRB &
+  &, 0.393909E-01_JPRB, 0.363578E-01_JPRB, 0.335376E-01_JPRB &
+  &, 0.309150E-01_JPRB, 0.284405E-01_JPRB, 0.261591E-01_JPRB, 0.240178E-01_JPRB &
+  &, 0.220275E-01_JPRB, 0.201647E-01_JPRB, 0.184389E-01_JPRB &
+  &, 0.168599E-01_JPRB, 0.154011E-01_JPRB, 0.140340E-01_JPRB, 0.127650E-01_JPRB &
+  &, 0.116393E-01_JPRB, 0.105489E-01_JPRB, 0.957621E-02_JPRB &
+  &, 0.868812E-02_JPRB, 0.784920E-02_JPRB, 0.710441E-02_JPRB, 0.641716E-02_JPRB &
+  &, 0.579110E-02_JPRB, 0.522994E-02_JPRB, 0.469328E-02_JPRB &
+  &, 0.422782E-02_JPRB, 0.379188E-02_JPRB, 0.338735E-02_JPRB, 0.301617E-02_JPRB &
+  &, 0.272797E-02_JPRB, 0.243010E-02_JPRB, 0.217155E-02_JPRB &
+  &, 0.190454E-02_JPRB, 0.173014E-02_JPRB, 0.149870E-02_JPRB, 0.136415E-02_JPRB &
+  &, 0.117240E-02_JPRB, 0.102833E-02_JPRB, 0.934161E-03_JPRB &
+  &, 0.837014E-03_JPRB, 0.736858E-03_JPRB, 0.633655E-03_JPRB, 0.527371E-03_JPRB &
+  &, 0.476251E-03_JPRB, 0.423582E-03_JPRB, 0.369344E-03_JPRB &
+  &, 0.313522E-03_JPRB, 0.256096E-03_JPRB, 0.259398E-03_JPRB, 0.199543E-03_JPRB &
+  &, 0.202055E-03_JPRB, 0.139724E-03_JPRB, 0.141422E-03_JPRB/)
+XCW( 431, :) = (/ &
+  &  0.979278E+00_JPRB, 0.973115E+00_JPRB, 0.966563E+00_JPRB, 0.959633E+00_JPRB &
+  &, 0.952324E+00_JPRB, 0.944644E+00_JPRB, 0.936597E+00_JPRB &
+  &, 0.928187E+00_JPRB, 0.919422E+00_JPRB, 0.910305E+00_JPRB, 0.900844E+00_JPRB &
+  &, 0.891043E+00_JPRB, 0.880911E+00_JPRB, 0.870455E+00_JPRB &
+  &, 0.859682E+00_JPRB, 0.848599E+00_JPRB, 0.837214E+00_JPRB, 0.825537E+00_JPRB &
+  &, 0.813576E+00_JPRB, 0.801340E+00_JPRB, 0.788839E+00_JPRB &
+  &, 0.776087E+00_JPRB, 0.763091E+00_JPRB, 0.749862E+00_JPRB, 0.736415E+00_JPRB &
+  &, 0.722759E+00_JPRB, 0.708909E+00_JPRB, 0.694880E+00_JPRB &
+  &, 0.680681E+00_JPRB, 0.666332E+00_JPRB, 0.651842E+00_JPRB, 0.637230E+00_JPRB &
+  &, 0.622511E+00_JPRB, 0.607698E+00_JPRB, 0.592808E+00_JPRB &
+  &, 0.577862E+00_JPRB, 0.562868E+00_JPRB, 0.547849E+00_JPRB, 0.532825E+00_JPRB &
+  &, 0.517815E+00_JPRB, 0.502824E+00_JPRB, 0.487867E+00_JPRB &
+  &, 0.472981E+00_JPRB, 0.458164E+00_JPRB, 0.443448E+00_JPRB, 0.428829E+00_JPRB &
+  &, 0.414342E+00_JPRB, 0.399997E+00_JPRB, 0.385818E+00_JPRB &
+  &, 0.371802E+00_JPRB, 0.357972E+00_JPRB, 0.344337E+00_JPRB, 0.330921E+00_JPRB &
+  &, 0.317733E+00_JPRB, 0.304778E+00_JPRB, 0.292079E+00_JPRB &
+  &, 0.279641E+00_JPRB, 0.267468E+00_JPRB, 0.255576E+00_JPRB, 0.243968E+00_JPRB &
+  &, 0.232658E+00_JPRB, 0.221643E+00_JPRB, 0.210954E+00_JPRB &
+  &, 0.200548E+00_JPRB, 0.190471E+00_JPRB, 0.180710E+00_JPRB, 0.171273E+00_JPRB &
+  &, 0.162163E+00_JPRB, 0.153363E+00_JPRB, 0.144891E+00_JPRB &
+  &, 0.136745E+00_JPRB, 0.128923E+00_JPRB, 0.121396E+00_JPRB, 0.114198E+00_JPRB &
+  &, 0.107297E+00_JPRB, 0.100703E+00_JPRB, 0.944237E-01_JPRB &
+  &, 0.884193E-01_JPRB, 0.827180E-01_JPRB, 0.772990E-01_JPRB, 0.721381E-01_JPRB &
+  &, 0.672605E-01_JPRB, 0.626385E-01_JPRB, 0.582685E-01_JPRB &
+  &, 0.541173E-01_JPRB, 0.502334E-01_JPRB, 0.465523E-01_JPRB, 0.431214E-01_JPRB &
+  &, 0.398708E-01_JPRB, 0.368465E-01_JPRB, 0.340042E-01_JPRB &
+  &, 0.313266E-01_JPRB, 0.288274E-01_JPRB, 0.265200E-01_JPRB, 0.243517E-01_JPRB &
+  &, 0.223333E-01_JPRB, 0.204758E-01_JPRB, 0.187203E-01_JPRB &
+  &, 0.171103E-01_JPRB, 0.156194E-01_JPRB, 0.142560E-01_JPRB, 0.129908E-01_JPRB &
+  &, 0.118306E-01_JPRB, 0.107434E-01_JPRB, 0.973433E-02_JPRB &
+  &, 0.884883E-02_JPRB, 0.801252E-02_JPRB, 0.722888E-02_JPRB, 0.654362E-02_JPRB &
+  &, 0.587674E-02_JPRB, 0.531693E-02_JPRB, 0.478165E-02_JPRB &
+  &, 0.431756E-02_JPRB, 0.383744E-02_JPRB, 0.347988E-02_JPRB, 0.311011E-02_JPRB &
+  &, 0.277566E-02_JPRB, 0.247850E-02_JPRB, 0.222068E-02_JPRB &
+  &, 0.195440E-02_JPRB, 0.173014E-02_JPRB, 0.155003E-02_JPRB, 0.136415E-02_JPRB &
+  &, 0.122524E-02_JPRB, 0.108193E-02_JPRB, 0.934161E-03_JPRB &
+  &, 0.837014E-03_JPRB, 0.736858E-03_JPRB, 0.633655E-03_JPRB, 0.584857E-03_JPRB &
+  &, 0.476251E-03_JPRB, 0.423582E-03_JPRB, 0.369344E-03_JPRB &
+  &, 0.313522E-03_JPRB, 0.256096E-03_JPRB, 0.259398E-03_JPRB, 0.199543E-03_JPRB &
+  &, 0.202055E-03_JPRB, 0.139724E-03_JPRB, 0.141422E-03_JPRB/)
+XCW( 432, :) = (/ &
+  &  0.979529E+00_JPRB, 0.973426E+00_JPRB, 0.966937E+00_JPRB, 0.960067E+00_JPRB &
+  &, 0.952818E+00_JPRB, 0.945197E+00_JPRB, 0.937207E+00_JPRB &
+  &, 0.928855E+00_JPRB, 0.920146E+00_JPRB, 0.911085E+00_JPRB, 0.901678E+00_JPRB &
+  &, 0.891931E+00_JPRB, 0.881852E+00_JPRB, 0.871447E+00_JPRB &
+  &, 0.860724E+00_JPRB, 0.849690E+00_JPRB, 0.838353E+00_JPRB, 0.826722E+00_JPRB &
+  &, 0.814806E+00_JPRB, 0.802412E+00_JPRB, 0.790156E+00_JPRB &
+  &, 0.777443E+00_JPRB, 0.764488E+00_JPRB, 0.751295E+00_JPRB, 0.737886E+00_JPRB &
+  &, 0.724265E+00_JPRB, 0.710448E+00_JPRB, 0.696448E+00_JPRB &
+  &, 0.682280E+00_JPRB, 0.667955E+00_JPRB, 0.653489E+00_JPRB, 0.638901E+00_JPRB &
+  &, 0.624203E+00_JPRB, 0.609410E+00_JPRB, 0.594541E+00_JPRB &
+  &, 0.579602E+00_JPRB, 0.564632E+00_JPRB, 0.549619E+00_JPRB, 0.534609E+00_JPRB &
+  &, 0.519594E+00_JPRB, 0.504616E+00_JPRB, 0.489660E+00_JPRB &
+  &, 0.474775E+00_JPRB, 0.459958E+00_JPRB, 0.445240E+00_JPRB, 0.430618E+00_JPRB &
+  &, 0.416126E+00_JPRB, 0.401775E+00_JPRB, 0.387575E+00_JPRB &
+  &, 0.373536E+00_JPRB, 0.359694E+00_JPRB, 0.346046E+00_JPRB, 0.332615E+00_JPRB &
+  &, 0.319409E+00_JPRB, 0.306435E+00_JPRB, 0.293700E+00_JPRB &
+  &, 0.281238E+00_JPRB, 0.269038E+00_JPRB, 0.257118E+00_JPRB, 0.245478E+00_JPRB &
+  &, 0.234135E+00_JPRB, 0.223101E+00_JPRB, 0.212356E+00_JPRB &
+  &, 0.201946E+00_JPRB, 0.191825E+00_JPRB, 0.182038E+00_JPRB, 0.172552E+00_JPRB &
+  &, 0.163410E+00_JPRB, 0.154576E+00_JPRB, 0.146068E+00_JPRB &
+  &, 0.137863E+00_JPRB, 0.130000E+00_JPRB, 0.122451E+00_JPRB, 0.115208E+00_JPRB &
+  &, 0.108282E+00_JPRB, 0.101637E+00_JPRB, 0.953297E-01_JPRB &
+  &, 0.892948E-01_JPRB, 0.835367E-01_JPRB, 0.780833E-01_JPRB, 0.728862E-01_JPRB &
+  &, 0.679706E-01_JPRB, 0.633088E-01_JPRB, 0.588970E-01_JPRB &
+  &, 0.547578E-01_JPRB, 0.508292E-01_JPRB, 0.471304E-01_JPRB, 0.436514E-01_JPRB &
+  &, 0.403806E-01_JPRB, 0.373047E-01_JPRB, 0.344396E-01_JPRB &
+  &, 0.317383E-01_JPRB, 0.292142E-01_JPRB, 0.268809E-01_JPRB, 0.246856E-01_JPRB &
+  &, 0.226731E-01_JPRB, 0.207524E-01_JPRB, 0.190016E-01_JPRB &
+  &, 0.173965E-01_JPRB, 0.158741E-01_JPRB, 0.144780E-01_JPRB, 0.131789E-01_JPRB &
+  &, 0.120218E-01_JPRB, 0.108989E-01_JPRB, 0.993198E-02_JPRB &
+  &, 0.900954E-02_JPRB, 0.813500E-02_JPRB, 0.735334E-02_JPRB, 0.667008E-02_JPRB &
+  &, 0.600521E-02_JPRB, 0.540393E-02_JPRB, 0.487001E-02_JPRB &
+  &, 0.436243E-02_JPRB, 0.392857E-02_JPRB, 0.352615E-02_JPRB, 0.315709E-02_JPRB &
+  &, 0.282334E-02_JPRB, 0.252690E-02_JPRB, 0.226980E-02_JPRB &
+  &, 0.200425E-02_JPRB, 0.178073E-02_JPRB, 0.160137E-02_JPRB, 0.141623E-02_JPRB &
+  &, 0.122524E-02_JPRB, 0.108193E-02_JPRB, 0.988523E-03_JPRB &
+  &, 0.837014E-03_JPRB, 0.736858E-03_JPRB, 0.690351E-03_JPRB, 0.584857E-03_JPRB &
+  &, 0.534533E-03_JPRB, 0.423582E-03_JPRB, 0.369344E-03_JPRB &
+  &, 0.313522E-03_JPRB, 0.317620E-03_JPRB, 0.259398E-03_JPRB, 0.199543E-03_JPRB &
+  &, 0.202055E-03_JPRB, 0.139724E-03_JPRB, 0.141422E-03_JPRB/)
+XCW( 433, :) = (/ &
+  &  0.979780E+00_JPRB, 0.973740E+00_JPRB, 0.967310E+00_JPRB, 0.960501E+00_JPRB &
+  &, 0.953312E+00_JPRB, 0.945749E+00_JPRB, 0.937818E+00_JPRB &
+  &, 0.929524E+00_JPRB, 0.920870E+00_JPRB, 0.911865E+00_JPRB, 0.902513E+00_JPRB &
+  &, 0.892820E+00_JPRB, 0.882793E+00_JPRB, 0.872440E+00_JPRB &
+  &, 0.861766E+00_JPRB, 0.850780E+00_JPRB, 0.839492E+00_JPRB, 0.827908E+00_JPRB &
+  &, 0.816037E+00_JPRB, 0.803887E+00_JPRB, 0.791472E+00_JPRB &
+  &, 0.778802E+00_JPRB, 0.765882E+00_JPRB, 0.752732E+00_JPRB, 0.739356E+00_JPRB &
+  &, 0.725767E+00_JPRB, 0.711983E+00_JPRB, 0.698017E+00_JPRB &
+  &, 0.683876E+00_JPRB, 0.669578E+00_JPRB, 0.655140E+00_JPRB, 0.640577E+00_JPRB &
+  &, 0.625899E+00_JPRB, 0.611127E+00_JPRB, 0.596273E+00_JPRB &
+  &, 0.581350E+00_JPRB, 0.566387E+00_JPRB, 0.551399E+00_JPRB, 0.536394E+00_JPRB &
+  &, 0.521392E+00_JPRB, 0.506407E+00_JPRB, 0.491464E+00_JPRB &
+  &, 0.476580E+00_JPRB, 0.461763E+00_JPRB, 0.447031E+00_JPRB, 0.432406E+00_JPRB &
+  &, 0.417910E+00_JPRB, 0.403540E+00_JPRB, 0.389332E+00_JPRB &
+  &, 0.375297E+00_JPRB, 0.361430E+00_JPRB, 0.347769E+00_JPRB, 0.334309E+00_JPRB &
+  &, 0.321085E+00_JPRB, 0.308092E+00_JPRB, 0.295335E+00_JPRB &
+  &, 0.282849E+00_JPRB, 0.270623E+00_JPRB, 0.258675E+00_JPRB, 0.247005E+00_JPRB &
+  &, 0.235628E+00_JPRB, 0.224560E+00_JPRB, 0.213794E+00_JPRB &
+  &, 0.203325E+00_JPRB, 0.193179E+00_JPRB, 0.183346E+00_JPRB, 0.173830E+00_JPRB &
+  &, 0.164657E+00_JPRB, 0.155789E+00_JPRB, 0.147224E+00_JPRB &
+  &, 0.139002E+00_JPRB, 0.131098E+00_JPRB, 0.123506E+00_JPRB, 0.116217E+00_JPRB &
+  &, 0.109243E+00_JPRB, 0.102595E+00_JPRB, 0.962357E-01_JPRB &
+  &, 0.901461E-01_JPRB, 0.843801E-01_JPRB, 0.788676E-01_JPRB, 0.736601E-01_JPRB &
+  &, 0.687070E-01_JPRB, 0.640059E-01_JPRB, 0.595528E-01_JPRB &
+  &, 0.553704E-01_JPRB, 0.514251E-01_JPRB, 0.476797E-01_JPRB, 0.441815E-01_JPRB &
+  &, 0.408605E-01_JPRB, 0.377629E-01_JPRB, 0.348750E-01_JPRB &
+  &, 0.321499E-01_JPRB, 0.296332E-01_JPRB, 0.272418E-01_JPRB, 0.250529E-01_JPRB &
+  &, 0.229789E-01_JPRB, 0.210635E-01_JPRB, 0.192830E-01_JPRB &
+  &, 0.176469E-01_JPRB, 0.161288E-01_JPRB, 0.147000E-01_JPRB, 0.134046E-01_JPRB &
+  &, 0.122131E-01_JPRB, 0.110934E-01_JPRB, 0.100901E-01_JPRB &
+  &, 0.913007E-02_JPRB, 0.829832E-02_JPRB, 0.751929E-02_JPRB, 0.679654E-02_JPRB &
+  &, 0.613368E-02_JPRB, 0.553443E-02_JPRB, 0.495838E-02_JPRB &
+  &, 0.445217E-02_JPRB, 0.401970E-02_JPRB, 0.361868E-02_JPRB, 0.325103E-02_JPRB &
+  &, 0.287102E-02_JPRB, 0.257530E-02_JPRB, 0.231893E-02_JPRB &
+  &, 0.205411E-02_JPRB, 0.183133E-02_JPRB, 0.165270E-02_JPRB, 0.146831E-02_JPRB &
+  &, 0.127808E-02_JPRB, 0.113553E-02_JPRB, 0.988523E-03_JPRB &
+  &, 0.892149E-03_JPRB, 0.792770E-03_JPRB, 0.690351E-03_JPRB, 0.584857E-03_JPRB &
+  &, 0.534533E-03_JPRB, 0.482665E-03_JPRB, 0.429235E-03_JPRB &
+  &, 0.374226E-03_JPRB, 0.317620E-03_JPRB, 0.259398E-03_JPRB, 0.199543E-03_JPRB &
+  &, 0.202055E-03_JPRB, 0.139724E-03_JPRB, 0.141422E-03_JPRB/)
+XCW( 434, :) = (/ &
+  &  0.980033E+00_JPRB, 0.974052E+00_JPRB, 0.967684E+00_JPRB, 0.960934E+00_JPRB &
+  &, 0.953806E+00_JPRB, 0.946302E+00_JPRB, 0.938429E+00_JPRB &
+  &, 0.930192E+00_JPRB, 0.921595E+00_JPRB, 0.912645E+00_JPRB, 0.903347E+00_JPRB &
+  &, 0.893708E+00_JPRB, 0.883734E+00_JPRB, 0.873432E+00_JPRB &
+  &, 0.862809E+00_JPRB, 0.851872E+00_JPRB, 0.840631E+00_JPRB, 0.829094E+00_JPRB &
+  &, 0.817268E+00_JPRB, 0.805163E+00_JPRB, 0.792792E+00_JPRB &
+  &, 0.780161E+00_JPRB, 0.767283E+00_JPRB, 0.754165E+00_JPRB, 0.740827E+00_JPRB &
+  &, 0.727276E+00_JPRB, 0.713525E+00_JPRB, 0.699585E+00_JPRB &
+  &, 0.685475E+00_JPRB, 0.671209E+00_JPRB, 0.656795E+00_JPRB, 0.642252E+00_JPRB &
+  &, 0.627599E+00_JPRB, 0.612843E+00_JPRB, 0.598010E+00_JPRB &
+  &, 0.583108E+00_JPRB, 0.568151E+00_JPRB, 0.553178E+00_JPRB, 0.538178E+00_JPRB &
+  &, 0.523181E+00_JPRB, 0.508209E+00_JPRB, 0.493269E+00_JPRB &
+  &, 0.478374E+00_JPRB, 0.463556E+00_JPRB, 0.448835E+00_JPRB, 0.434207E+00_JPRB &
+  &, 0.419694E+00_JPRB, 0.405318E+00_JPRB, 0.391102E+00_JPRB &
+  &, 0.377044E+00_JPRB, 0.363167E+00_JPRB, 0.349492E+00_JPRB, 0.336017E+00_JPRB &
+  &, 0.322762E+00_JPRB, 0.309749E+00_JPRB, 0.296971E+00_JPRB &
+  &, 0.284461E+00_JPRB, 0.272209E+00_JPRB, 0.260217E+00_JPRB, 0.248532E+00_JPRB &
+  &, 0.237122E+00_JPRB, 0.226018E+00_JPRB, 0.215214E+00_JPRB &
+  &, 0.204722E+00_JPRB, 0.194533E+00_JPRB, 0.184673E+00_JPRB, 0.175128E+00_JPRB &
+  &, 0.165904E+00_JPRB, 0.157002E+00_JPRB, 0.148401E+00_JPRB &
+  &, 0.140141E+00_JPRB, 0.132196E+00_JPRB, 0.124561E+00_JPRB, 0.117249E+00_JPRB &
+  &, 0.110251E+00_JPRB, 0.103530E+00_JPRB, 0.971417E-01_JPRB &
+  &, 0.910217E-01_JPRB, 0.852236E-01_JPRB, 0.796771E-01_JPRB, 0.744082E-01_JPRB &
+  &, 0.694171E-01_JPRB, 0.647029E-01_JPRB, 0.602359E-01_JPRB &
+  &, 0.560109E-01_JPRB, 0.520210E-01_JPRB, 0.482579E-01_JPRB, 0.447116E-01_JPRB &
+  &, 0.413704E-01_JPRB, 0.382516E-01_JPRB, 0.353415E-01_JPRB &
+  &, 0.325932E-01_JPRB, 0.300200E-01_JPRB, 0.276355E-01_JPRB, 0.253868E-01_JPRB &
+  &, 0.233186E-01_JPRB, 0.213747E-01_JPRB, 0.195995E-01_JPRB &
+  &, 0.179331E-01_JPRB, 0.163835E-01_JPRB, 0.149590E-01_JPRB, 0.136304E-01_JPRB &
+  &, 0.124044E-01_JPRB, 0.112878E-01_JPRB, 0.102482E-01_JPRB &
+  &, 0.929077E-02_JPRB, 0.842081E-02_JPRB, 0.764376E-02_JPRB, 0.692299E-02_JPRB &
+  &, 0.621933E-02_JPRB, 0.562143E-02_JPRB, 0.504674E-02_JPRB &
+  &, 0.454191E-02_JPRB, 0.411083E-02_JPRB, 0.366494E-02_JPRB, 0.329800E-02_JPRB &
+  &, 0.296639E-02_JPRB, 0.262371E-02_JPRB, 0.236805E-02_JPRB &
+  &, 0.210396E-02_JPRB, 0.188192E-02_JPRB, 0.165270E-02_JPRB, 0.146831E-02_JPRB &
+  &, 0.133091E-02_JPRB, 0.113553E-02_JPRB, 0.104289E-02_JPRB &
+  &, 0.892149E-03_JPRB, 0.792770E-03_JPRB, 0.690351E-03_JPRB, 0.642343E-03_JPRB &
+  &, 0.534533E-03_JPRB, 0.482665E-03_JPRB, 0.429235E-03_JPRB &
+  &, 0.374226E-03_JPRB, 0.317620E-03_JPRB, 0.259398E-03_JPRB, 0.199543E-03_JPRB &
+  &, 0.202055E-03_JPRB, 0.139724E-03_JPRB, 0.141422E-03_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART62',1,ZHOOK_HANDLE)
+END SUBROUTINE PART62
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART63
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART63',0,ZHOOK_HANDLE)
+
+XCW( 435, :) = (/ &
+  &  0.980284E+00_JPRB, 0.974366E+00_JPRB, 0.968058E+00_JPRB, 0.961369E+00_JPRB &
+  &, 0.954299E+00_JPRB, 0.946854E+00_JPRB, 0.939040E+00_JPRB &
+  &, 0.930859E+00_JPRB, 0.922319E+00_JPRB, 0.913425E+00_JPRB, 0.904182E+00_JPRB &
+  &, 0.894596E+00_JPRB, 0.884674E+00_JPRB, 0.874424E+00_JPRB &
+  &, 0.863852E+00_JPRB, 0.852965E+00_JPRB, 0.841769E+00_JPRB, 0.830280E+00_JPRB &
+  &, 0.818500E+00_JPRB, 0.806438E+00_JPRB, 0.794108E+00_JPRB &
+  &, 0.781521E+00_JPRB, 0.768680E+00_JPRB, 0.755602E+00_JPRB, 0.742301E+00_JPRB &
+  &, 0.728782E+00_JPRB, 0.715064E+00_JPRB, 0.701157E+00_JPRB &
+  &, 0.687078E+00_JPRB, 0.672836E+00_JPRB, 0.658450E+00_JPRB, 0.643932E+00_JPRB &
+  &, 0.629299E+00_JPRB, 0.614564E+00_JPRB, 0.599748E+00_JPRB &
+  &, 0.584857E+00_JPRB, 0.569925E+00_JPRB, 0.554958E+00_JPRB, 0.539963E+00_JPRB &
+  &, 0.524980E+00_JPRB, 0.510011E+00_JPRB, 0.495073E+00_JPRB &
+  &, 0.480191E+00_JPRB, 0.465373E+00_JPRB, 0.450638E+00_JPRB, 0.436007E+00_JPRB &
+  &, 0.421490E+00_JPRB, 0.407109E+00_JPRB, 0.392873E+00_JPRB &
+  &, 0.378805E+00_JPRB, 0.364916E+00_JPRB, 0.351215E+00_JPRB, 0.337725E+00_JPRB &
+  &, 0.324452E+00_JPRB, 0.311406E+00_JPRB, 0.298621E+00_JPRB &
+  &, 0.286073E+00_JPRB, 0.273795E+00_JPRB, 0.261790E+00_JPRB, 0.250059E+00_JPRB &
+  &, 0.238633E+00_JPRB, 0.227493E+00_JPRB, 0.216652E+00_JPRB &
+  &, 0.206119E+00_JPRB, 0.195906E+00_JPRB, 0.186019E+00_JPRB, 0.176426E+00_JPRB &
+  &, 0.167171E+00_JPRB, 0.158215E+00_JPRB, 0.149599E+00_JPRB &
+  &, 0.141300E+00_JPRB, 0.133316E+00_JPRB, 0.125638E+00_JPRB, 0.118282E+00_JPRB &
+  &, 0.111236E+00_JPRB, 0.104488E+00_JPRB, 0.980477E-01_JPRB &
+  &, 0.919216E-01_JPRB, 0.860670E-01_JPRB, 0.804867E-01_JPRB, 0.751821E-01_JPRB &
+  &, 0.701535E-01_JPRB, 0.654000E-01_JPRB, 0.608918E-01_JPRB &
+  &, 0.566235E-01_JPRB, 0.526168E-01_JPRB, 0.488071E-01_JPRB, 0.452416E-01_JPRB &
+  &, 0.418803E-01_JPRB, 0.387403E-01_JPRB, 0.357770E-01_JPRB &
+  &, 0.330049E-01_JPRB, 0.304391E-01_JPRB, 0.279964E-01_JPRB, 0.257541E-01_JPRB &
+  &, 0.236584E-01_JPRB, 0.216858E-01_JPRB, 0.198809E-01_JPRB &
+  &, 0.181835E-01_JPRB, 0.166382E-01_JPRB, 0.151810E-01_JPRB, 0.138562E-01_JPRB &
+  &, 0.125956E-01_JPRB, 0.114823E-01_JPRB, 0.104459E-01_JPRB &
+  &, 0.945148E-02_JPRB, 0.858413E-02_JPRB, 0.776822E-02_JPRB, 0.704945E-02_JPRB &
+  &, 0.634780E-02_JPRB, 0.575193E-02_JPRB, 0.517929E-02_JPRB &
+  &, 0.463165E-02_JPRB, 0.420196E-02_JPRB, 0.375747E-02_JPRB, 0.334497E-02_JPRB &
+  &, 0.301407E-02_JPRB, 0.272051E-02_JPRB, 0.241718E-02_JPRB &
+  &, 0.215382E-02_JPRB, 0.193251E-02_JPRB, 0.170404E-02_JPRB, 0.152039E-02_JPRB &
+  &, 0.133091E-02_JPRB, 0.118912E-02_JPRB, 0.104289E-02_JPRB &
+  &, 0.947283E-03_JPRB, 0.792770E-03_JPRB, 0.747047E-03_JPRB, 0.642343E-03_JPRB &
+  &, 0.534533E-03_JPRB, 0.482665E-03_JPRB, 0.429235E-03_JPRB &
+  &, 0.374226E-03_JPRB, 0.317620E-03_JPRB, 0.259398E-03_JPRB, 0.262724E-03_JPRB &
+  &, 0.202055E-03_JPRB, 0.204585E-03_JPRB, 0.141422E-03_JPRB/)
+XCW( 436, :) = (/ &
+  &  0.980532E+00_JPRB, 0.974676E+00_JPRB, 0.968431E+00_JPRB, 0.961803E+00_JPRB &
+  &, 0.954792E+00_JPRB, 0.947407E+00_JPRB, 0.939651E+00_JPRB &
+  &, 0.931529E+00_JPRB, 0.923045E+00_JPRB, 0.914205E+00_JPRB, 0.905017E+00_JPRB &
+  &, 0.895485E+00_JPRB, 0.885616E+00_JPRB, 0.875418E+00_JPRB &
+  &, 0.864894E+00_JPRB, 0.854057E+00_JPRB, 0.842912E+00_JPRB, 0.831468E+00_JPRB &
+  &, 0.819732E+00_JPRB, 0.807716E+00_JPRB, 0.795428E+00_JPRB &
+  &, 0.782880E+00_JPRB, 0.770081E+00_JPRB, 0.757042E+00_JPRB, 0.743776E+00_JPRB &
+  &, 0.730292E+00_JPRB, 0.716606E+00_JPRB, 0.702733E+00_JPRB &
+  &, 0.688681E+00_JPRB, 0.674466E+00_JPRB, 0.660105E+00_JPRB, 0.645611E+00_JPRB &
+  &, 0.630999E+00_JPRB, 0.616285E+00_JPRB, 0.601490E+00_JPRB &
+  &, 0.586615E+00_JPRB, 0.571699E+00_JPRB, 0.556738E+00_JPRB, 0.541757E+00_JPRB &
+  &, 0.526779E+00_JPRB, 0.511813E+00_JPRB, 0.496888E+00_JPRB &
+  &, 0.481996E+00_JPRB, 0.467178E+00_JPRB, 0.452441E+00_JPRB, 0.437808E+00_JPRB &
+  &, 0.423286E+00_JPRB, 0.408899E+00_JPRB, 0.394655E+00_JPRB &
+  &, 0.380566E+00_JPRB, 0.366666E+00_JPRB, 0.352952E+00_JPRB, 0.339446E+00_JPRB &
+  &, 0.326143E+00_JPRB, 0.313093E+00_JPRB, 0.300272E+00_JPRB &
+  &, 0.287700E+00_JPRB, 0.275397E+00_JPRB, 0.263364E+00_JPRB, 0.251602E+00_JPRB &
+  &, 0.240144E+00_JPRB, 0.228969E+00_JPRB, 0.218107E+00_JPRB &
+  &, 0.207535E+00_JPRB, 0.197278E+00_JPRB, 0.187346E+00_JPRB, 0.177724E+00_JPRB &
+  &, 0.168437E+00_JPRB, 0.159448E+00_JPRB, 0.150796E+00_JPRB &
+  &, 0.142439E+00_JPRB, 0.134414E+00_JPRB, 0.126715E+00_JPRB, 0.119314E+00_JPRB &
+  &, 0.112243E+00_JPRB, 0.105446E+00_JPRB, 0.989775E-01_JPRB &
+  &, 0.927972E-01_JPRB, 0.869105E-01_JPRB, 0.812963E-01_JPRB, 0.759560E-01_JPRB &
+  &, 0.709163E-01_JPRB, 0.661239E-01_JPRB, 0.615749E-01_JPRB &
+  &, 0.572640E-01_JPRB, 0.532127E-01_JPRB, 0.493853E-01_JPRB, 0.458011E-01_JPRB &
+  &, 0.424202E-01_JPRB, 0.392290E-01_JPRB, 0.362435E-01_JPRB &
+  &, 0.334482E-01_JPRB, 0.308259E-01_JPRB, 0.283901E-01_JPRB, 0.261214E-01_JPRB &
+  &, 0.239982E-01_JPRB, 0.219970E-01_JPRB, 0.201622E-01_JPRB &
+  &, 0.184697E-01_JPRB, 0.168929E-01_JPRB, 0.154031E-01_JPRB, 0.140819E-01_JPRB &
+  &, 0.128252E-01_JPRB, 0.116767E-01_JPRB, 0.106040E-01_JPRB &
+  &, 0.961218E-02_JPRB, 0.874744E-02_JPRB, 0.789268E-02_JPRB, 0.717591E-02_JPRB &
+  &, 0.647626E-02_JPRB, 0.583893E-02_JPRB, 0.526765E-02_JPRB &
+  &, 0.472139E-02_JPRB, 0.424752E-02_JPRB, 0.385000E-02_JPRB, 0.343891E-02_JPRB &
+  &, 0.306176E-02_JPRB, 0.276891E-02_JPRB, 0.246631E-02_JPRB &
+  &, 0.220368E-02_JPRB, 0.198310E-02_JPRB, 0.175537E-02_JPRB, 0.157248E-02_JPRB &
+  &, 0.138375E-02_JPRB, 0.124272E-02_JPRB, 0.109725E-02_JPRB &
+  &, 0.947283E-03_JPRB, 0.848682E-03_JPRB, 0.747047E-03_JPRB, 0.642343E-03_JPRB &
+  &, 0.592814E-03_JPRB, 0.482665E-03_JPRB, 0.429235E-03_JPRB &
+  &, 0.374226E-03_JPRB, 0.317620E-03_JPRB, 0.259398E-03_JPRB, 0.262724E-03_JPRB &
+  &, 0.202055E-03_JPRB, 0.204585E-03_JPRB, 0.141422E-03_JPRB/)
+XCW( 437, :) = (/ &
+  &  0.980786E+00_JPRB, 0.974991E+00_JPRB, 0.968805E+00_JPRB, 0.962236E+00_JPRB &
+  &, 0.955286E+00_JPRB, 0.947960E+00_JPRB, 0.940262E+00_JPRB &
+  &, 0.932197E+00_JPRB, 0.923769E+00_JPRB, 0.914985E+00_JPRB, 0.905852E+00_JPRB &
+  &, 0.896374E+00_JPRB, 0.886557E+00_JPRB, 0.876411E+00_JPRB &
+  &, 0.865939E+00_JPRB, 0.855150E+00_JPRB, 0.844054E+00_JPRB, 0.832656E+00_JPRB &
+  &, 0.820967E+00_JPRB, 0.808995E+00_JPRB, 0.796748E+00_JPRB &
+  &, 0.784243E+00_JPRB, 0.771481E+00_JPRB, 0.758483E+00_JPRB, 0.745250E+00_JPRB &
+  &, 0.731805E+00_JPRB, 0.718152E+00_JPRB, 0.704309E+00_JPRB &
+  &, 0.690288E+00_JPRB, 0.676101E+00_JPRB, 0.661764E+00_JPRB, 0.647295E+00_JPRB &
+  &, 0.632708E+00_JPRB, 0.618015E+00_JPRB, 0.603231E+00_JPRB &
+  &, 0.588382E+00_JPRB, 0.573473E+00_JPRB, 0.558527E+00_JPRB, 0.543562E+00_JPRB &
+  &, 0.528588E+00_JPRB, 0.513626E+00_JPRB, 0.498692E+00_JPRB &
+  &, 0.483812E+00_JPRB, 0.468994E+00_JPRB, 0.454257E+00_JPRB, 0.439620E+00_JPRB &
+  &, 0.425083E+00_JPRB, 0.410689E+00_JPRB, 0.396438E+00_JPRB &
+  &, 0.382340E+00_JPRB, 0.368416E+00_JPRB, 0.354689E+00_JPRB, 0.341154E+00_JPRB &
+  &, 0.327849E+00_JPRB, 0.314764E+00_JPRB, 0.301922E+00_JPRB &
+  &, 0.289327E+00_JPRB, 0.276998E+00_JPRB, 0.264938E+00_JPRB, 0.253146E+00_JPRB &
+  &, 0.241655E+00_JPRB, 0.230445E+00_JPRB, 0.219545E+00_JPRB &
+  &, 0.208950E+00_JPRB, 0.198669E+00_JPRB, 0.188692E+00_JPRB, 0.179041E+00_JPRB &
+  &, 0.169704E+00_JPRB, 0.160682E+00_JPRB, 0.151994E+00_JPRB &
+  &, 0.143599E+00_JPRB, 0.135555E+00_JPRB, 0.127792E+00_JPRB, 0.120368E+00_JPRB &
+  &, 0.113251E+00_JPRB, 0.106428E+00_JPRB, 0.999073E-01_JPRB &
+  &, 0.936971E-01_JPRB, 0.877539E-01_JPRB, 0.821311E-01_JPRB, 0.767557E-01_JPRB &
+  &, 0.716527E-01_JPRB, 0.668209E-01_JPRB, 0.622580E-01_JPRB &
+  &, 0.579323E-01_JPRB, 0.538370E-01_JPRB, 0.499924E-01_JPRB, 0.463606E-01_JPRB &
+  &, 0.429301E-01_JPRB, 0.397177E-01_JPRB, 0.367100E-01_JPRB &
+  &, 0.338915E-01_JPRB, 0.312449E-01_JPRB, 0.287838E-01_JPRB, 0.264887E-01_JPRB &
+  &, 0.243380E-01_JPRB, 0.223427E-01_JPRB, 0.204788E-01_JPRB &
+  &, 0.187559E-01_JPRB, 0.171476E-01_JPRB, 0.156621E-01_JPRB, 0.143077E-01_JPRB &
+  &, 0.130164E-01_JPRB, 0.118712E-01_JPRB, 0.108016E-01_JPRB &
+  &, 0.981307E-02_JPRB, 0.886993E-02_JPRB, 0.805863E-02_JPRB, 0.730236E-02_JPRB &
+  &, 0.660473E-02_JPRB, 0.596943E-02_JPRB, 0.535601E-02_JPRB &
+  &, 0.481113E-02_JPRB, 0.433865E-02_JPRB, 0.389627E-02_JPRB, 0.348589E-02_JPRB &
+  &, 0.315712E-02_JPRB, 0.281731E-02_JPRB, 0.251543E-02_JPRB &
+  &, 0.225353E-02_JPRB, 0.198310E-02_JPRB, 0.180671E-02_JPRB, 0.157248E-02_JPRB &
+  &, 0.138375E-02_JPRB, 0.124272E-02_JPRB, 0.109725E-02_JPRB &
+  &, 0.100242E-02_JPRB, 0.848682E-03_JPRB, 0.747047E-03_JPRB, 0.642343E-03_JPRB &
+  &, 0.592814E-03_JPRB, 0.541748E-03_JPRB, 0.429235E-03_JPRB &
+  &, 0.374226E-03_JPRB, 0.317620E-03_JPRB, 0.321747E-03_JPRB, 0.262724E-03_JPRB &
+  &, 0.202055E-03_JPRB, 0.204585E-03_JPRB, 0.141422E-03_JPRB/)
+XCW( 438, :) = (/ &
+  &  0.981035E+00_JPRB, 0.975303E+00_JPRB, 0.969178E+00_JPRB, 0.962671E+00_JPRB &
+  &, 0.955779E+00_JPRB, 0.948512E+00_JPRB, 0.940872E+00_JPRB &
+  &, 0.932864E+00_JPRB, 0.924494E+00_JPRB, 0.915767E+00_JPRB, 0.906688E+00_JPRB &
+  &, 0.897264E+00_JPRB, 0.887500E+00_JPRB, 0.877405E+00_JPRB &
+  &, 0.866983E+00_JPRB, 0.856245E+00_JPRB, 0.845195E+00_JPRB, 0.833845E+00_JPRB &
+  &, 0.822201E+00_JPRB, 0.810273E+00_JPRB, 0.798071E+00_JPRB &
+  &, 0.785605E+00_JPRB, 0.772885E+00_JPRB, 0.759923E+00_JPRB, 0.746728E+00_JPRB &
+  &, 0.733318E+00_JPRB, 0.719698E+00_JPRB, 0.705885E+00_JPRB &
+  &, 0.691895E+00_JPRB, 0.677736E+00_JPRB, 0.663428E+00_JPRB, 0.648983E+00_JPRB &
+  &, 0.634413E+00_JPRB, 0.619741E+00_JPRB, 0.604978E+00_JPRB &
+  &, 0.590140E+00_JPRB, 0.575247E+00_JPRB, 0.560317E+00_JPRB, 0.545357E+00_JPRB &
+  &, 0.530397E+00_JPRB, 0.515439E+00_JPRB, 0.500518E+00_JPRB &
+  &, 0.485639E+00_JPRB, 0.470810E+00_JPRB, 0.456071E+00_JPRB, 0.441433E+00_JPRB &
+  &, 0.426891E+00_JPRB, 0.412480E+00_JPRB, 0.398221E+00_JPRB &
+  &, 0.384114E+00_JPRB, 0.370179E+00_JPRB, 0.356439E+00_JPRB, 0.342890E+00_JPRB &
+  &, 0.329554E+00_JPRB, 0.316451E+00_JPRB, 0.303588E+00_JPRB &
+  &, 0.290970E+00_JPRB, 0.278600E+00_JPRB, 0.266512E+00_JPRB, 0.254706E+00_JPRB &
+  &, 0.243183E+00_JPRB, 0.231938E+00_JPRB, 0.221001E+00_JPRB &
+  &, 0.210384E+00_JPRB, 0.200060E+00_JPRB, 0.190056E+00_JPRB, 0.180359E+00_JPRB &
+  &, 0.170991E+00_JPRB, 0.161935E+00_JPRB, 0.153192E+00_JPRB &
+  &, 0.144780E+00_JPRB, 0.136675E+00_JPRB, 0.128892E+00_JPRB, 0.121423E+00_JPRB &
+  &, 0.114259E+00_JPRB, 0.107409E+00_JPRB, 0.100861E+00_JPRB &
+  &, 0.945970E-01_JPRB, 0.886222E-01_JPRB, 0.829407E-01_JPRB, 0.775554E-01_JPRB &
+  &, 0.724154E-01_JPRB, 0.675448E-01_JPRB, 0.629412E-01_JPRB &
+  &, 0.585728E-01_JPRB, 0.544612E-01_JPRB, 0.505705E-01_JPRB, 0.468907E-01_JPRB &
+  &, 0.434699E-01_JPRB, 0.402064E-01_JPRB, 0.371765E-01_JPRB &
+  &, 0.343348E-01_JPRB, 0.316640E-01_JPRB, 0.291775E-01_JPRB, 0.268560E-01_JPRB &
+  &, 0.246778E-01_JPRB, 0.226538E-01_JPRB, 0.207601E-01_JPRB &
+  &, 0.190421E-01_JPRB, 0.174023E-01_JPRB, 0.159211E-01_JPRB, 0.145334E-01_JPRB &
+  &, 0.132460E-01_JPRB, 0.120656E-01_JPRB, 0.109598E-01_JPRB &
+  &, 0.997377E-02_JPRB, 0.903325E-02_JPRB, 0.818310E-02_JPRB, 0.742882E-02_JPRB &
+  &, 0.669038E-02_JPRB, 0.605643E-02_JPRB, 0.548856E-02_JPRB &
+  &, 0.494574E-02_JPRB, 0.442978E-02_JPRB, 0.398880E-02_JPRB, 0.357983E-02_JPRB &
+  &, 0.320481E-02_JPRB, 0.286571E-02_JPRB, 0.256456E-02_JPRB &
+  &, 0.230339E-02_JPRB, 0.203370E-02_JPRB, 0.180671E-02_JPRB, 0.162456E-02_JPRB &
+  &, 0.143659E-02_JPRB, 0.129632E-02_JPRB, 0.115161E-02_JPRB &
+  &, 0.100242E-02_JPRB, 0.904594E-03_JPRB, 0.803743E-03_JPRB, 0.699828E-03_JPRB &
+  &, 0.592814E-03_JPRB, 0.541748E-03_JPRB, 0.489126E-03_JPRB &
+  &, 0.374226E-03_JPRB, 0.379143E-03_JPRB, 0.321747E-03_JPRB, 0.262724E-03_JPRB &
+  &, 0.202055E-03_JPRB, 0.204585E-03_JPRB, 0.141422E-03_JPRB/)
+XCW( 439, :) = (/ &
+  &  0.981287E+00_JPRB, 0.975615E+00_JPRB, 0.969551E+00_JPRB, 0.963104E+00_JPRB &
+  &, 0.956272E+00_JPRB, 0.949065E+00_JPRB, 0.941483E+00_JPRB &
+  &, 0.933533E+00_JPRB, 0.925218E+00_JPRB, 0.916547E+00_JPRB, 0.907524E+00_JPRB &
+  &, 0.898153E+00_JPRB, 0.888442E+00_JPRB, 0.878398E+00_JPRB &
+  &, 0.868028E+00_JPRB, 0.857339E+00_JPRB, 0.846338E+00_JPRB, 0.835034E+00_JPRB &
+  &, 0.823436E+00_JPRB, 0.811552E+00_JPRB, 0.799393E+00_JPRB &
+  &, 0.786968E+00_JPRB, 0.774289E+00_JPRB, 0.761363E+00_JPRB, 0.748209E+00_JPRB &
+  &, 0.734831E+00_JPRB, 0.721244E+00_JPRB, 0.707465E+00_JPRB &
+  &, 0.693502E+00_JPRB, 0.679375E+00_JPRB, 0.665091E+00_JPRB, 0.650671E+00_JPRB &
+  &, 0.636126E+00_JPRB, 0.621475E+00_JPRB, 0.606729E+00_JPRB &
+  &, 0.591907E+00_JPRB, 0.577030E+00_JPRB, 0.562106E+00_JPRB, 0.547161E+00_JPRB &
+  &, 0.532206E+00_JPRB, 0.517262E+00_JPRB, 0.502343E+00_JPRB &
+  &, 0.487456E+00_JPRB, 0.472638E+00_JPRB, 0.457898E+00_JPRB, 0.443245E+00_JPRB &
+  &, 0.428699E+00_JPRB, 0.414282E+00_JPRB, 0.400017E+00_JPRB &
+  &, 0.385888E+00_JPRB, 0.371942E+00_JPRB, 0.358176E+00_JPRB, 0.344612E+00_JPRB &
+  &, 0.331273E+00_JPRB, 0.318137E+00_JPRB, 0.305254E+00_JPRB &
+  &, 0.292613E+00_JPRB, 0.280217E+00_JPRB, 0.268102E+00_JPRB, 0.256266E+00_JPRB &
+  &, 0.244710E+00_JPRB, 0.233448E+00_JPRB, 0.222474E+00_JPRB &
+  &, 0.211817E+00_JPRB, 0.201452E+00_JPRB, 0.191421E+00_JPRB, 0.181676E+00_JPRB &
+  &, 0.172277E+00_JPRB, 0.163189E+00_JPRB, 0.154410E+00_JPRB &
+  &, 0.145940E+00_JPRB, 0.137816E+00_JPRB, 0.129991E+00_JPRB, 0.122477E+00_JPRB &
+  &, 0.115289E+00_JPRB, 0.108391E+00_JPRB, 0.101791E+00_JPRB &
+  &, 0.954969E-01_JPRB, 0.894905E-01_JPRB, 0.837756E-01_JPRB, 0.783293E-01_JPRB &
+  &, 0.731781E-01_JPRB, 0.682687E-01_JPRB, 0.636243E-01_JPRB &
+  &, 0.592412E-01_JPRB, 0.550855E-01_JPRB, 0.511487E-01_JPRB, 0.474796E-01_JPRB &
+  &, 0.439798E-01_JPRB, 0.407257E-01_JPRB, 0.376430E-01_JPRB &
+  &, 0.347781E-01_JPRB, 0.320830E-01_JPRB, 0.295712E-01_JPRB, 0.272233E-01_JPRB &
+  &, 0.250175E-01_JPRB, 0.229649E-01_JPRB, 0.210767E-01_JPRB &
+  &, 0.193283E-01_JPRB, 0.176570E-01_JPRB, 0.161431E-01_JPRB, 0.147592E-01_JPRB &
+  &, 0.134372E-01_JPRB, 0.122600E-01_JPRB, 0.111574E-01_JPRB &
+  &, 0.101345E-01_JPRB, 0.919656E-02_JPRB, 0.834905E-02_JPRB, 0.755528E-02_JPRB &
+  &, 0.681885E-02_JPRB, 0.618692E-02_JPRB, 0.557692E-02_JPRB &
+  &, 0.503548E-02_JPRB, 0.452091E-02_JPRB, 0.408133E-02_JPRB, 0.367377E-02_JPRB &
+  &, 0.330018E-02_JPRB, 0.291412E-02_JPRB, 0.261369E-02_JPRB &
+  &, 0.235325E-02_JPRB, 0.208429E-02_JPRB, 0.185804E-02_JPRB, 0.167664E-02_JPRB &
+  &, 0.148942E-02_JPRB, 0.129632E-02_JPRB, 0.115161E-02_JPRB &
+  &, 0.100242E-02_JPRB, 0.904594E-03_JPRB, 0.803743E-03_JPRB, 0.699828E-03_JPRB &
+  &, 0.592814E-03_JPRB, 0.541748E-03_JPRB, 0.489126E-03_JPRB &
+  &, 0.434930E-03_JPRB, 0.379143E-03_JPRB, 0.321747E-03_JPRB, 0.262724E-03_JPRB &
+  &, 0.202055E-03_JPRB, 0.204585E-03_JPRB, 0.141422E-03_JPRB/)
+XCW( 440, :) = (/ &
+  &  0.981539E+00_JPRB, 0.975928E+00_JPRB, 0.969925E+00_JPRB, 0.963538E+00_JPRB &
+  &, 0.956766E+00_JPRB, 0.949618E+00_JPRB, 0.942094E+00_JPRB &
+  &, 0.934201E+00_JPRB, 0.925944E+00_JPRB, 0.917328E+00_JPRB, 0.908359E+00_JPRB &
+  &, 0.899042E+00_JPRB, 0.889385E+00_JPRB, 0.879392E+00_JPRB &
+  &, 0.869073E+00_JPRB, 0.858433E+00_JPRB, 0.847481E+00_JPRB, 0.836225E+00_JPRB &
+  &, 0.824672E+00_JPRB, 0.812834E+00_JPRB, 0.800716E+00_JPRB &
+  &, 0.788334E+00_JPRB, 0.775694E+00_JPRB, 0.762807E+00_JPRB, 0.749687E+00_JPRB &
+  &, 0.736348E+00_JPRB, 0.722794E+00_JPRB, 0.709045E+00_JPRB &
+  &, 0.695113E+00_JPRB, 0.681014E+00_JPRB, 0.666758E+00_JPRB, 0.652359E+00_JPRB &
+  &, 0.637839E+00_JPRB, 0.623209E+00_JPRB, 0.608484E+00_JPRB &
+  &, 0.593674E+00_JPRB, 0.578813E+00_JPRB, 0.563905E+00_JPRB, 0.548966E+00_JPRB &
+  &, 0.534025E+00_JPRB, 0.519085E+00_JPRB, 0.504169E+00_JPRB &
+  &, 0.489283E+00_JPRB, 0.474465E+00_JPRB, 0.459725E+00_JPRB, 0.445070E+00_JPRB &
+  &, 0.430520E+00_JPRB, 0.416098E+00_JPRB, 0.401813E+00_JPRB &
+  &, 0.387675E+00_JPRB, 0.373718E+00_JPRB, 0.359940E+00_JPRB, 0.346363E+00_JPRB &
+  &, 0.332979E+00_JPRB, 0.319838E+00_JPRB, 0.306919E+00_JPRB &
+  &, 0.294255E+00_JPRB, 0.281851E+00_JPRB, 0.269692E+00_JPRB, 0.257826E+00_JPRB &
+  &, 0.246238E+00_JPRB, 0.234941E+00_JPRB, 0.223947E+00_JPRB &
+  &, 0.213251E+00_JPRB, 0.202861E+00_JPRB, 0.192786E+00_JPRB, 0.183013E+00_JPRB &
+  &, 0.173564E+00_JPRB, 0.164442E+00_JPRB, 0.155629E+00_JPRB &
+  &, 0.147142E+00_JPRB, 0.138957E+00_JPRB, 0.131090E+00_JPRB, 0.123555E+00_JPRB &
+  &, 0.116320E+00_JPRB, 0.109372E+00_JPRB, 0.102745E+00_JPRB &
+  &, 0.964211E-01_JPRB, 0.903835E-01_JPRB, 0.846105E-01_JPRB, 0.791548E-01_JPRB &
+  &, 0.739408E-01_JPRB, 0.689925E-01_JPRB, 0.643348E-01_JPRB &
+  &, 0.599095E-01_JPRB, 0.557097E-01_JPRB, 0.517558E-01_JPRB, 0.480391E-01_JPRB &
+  &, 0.445197E-01_JPRB, 0.412449E-01_JPRB, 0.381407E-01_JPRB &
+  &, 0.352214E-01_JPRB, 0.325021E-01_JPRB, 0.299649E-01_JPRB, 0.275906E-01_JPRB &
+  &, 0.253573E-01_JPRB, 0.233106E-01_JPRB, 0.213932E-01_JPRB &
+  &, 0.196145E-01_JPRB, 0.179481E-01_JPRB, 0.164021E-01_JPRB, 0.149849E-01_JPRB &
+  &, 0.136668E-01_JPRB, 0.124545E-01_JPRB, 0.113550E-01_JPRB &
+  &, 0.102952E-01_JPRB, 0.935988E-02_JPRB, 0.847351E-02_JPRB, 0.768174E-02_JPRB &
+  &, 0.694732E-02_JPRB, 0.627392E-02_JPRB, 0.566529E-02_JPRB &
+  &, 0.512522E-02_JPRB, 0.461204E-02_JPRB, 0.412760E-02_JPRB, 0.372074E-02_JPRB &
+  &, 0.334786E-02_JPRB, 0.301092E-02_JPRB, 0.266281E-02_JPRB &
+  &, 0.240310E-02_JPRB, 0.213488E-02_JPRB, 0.190938E-02_JPRB, 0.167664E-02_JPRB &
+  &, 0.148942E-02_JPRB, 0.134991E-02_JPRB, 0.120597E-02_JPRB &
+  &, 0.105755E-02_JPRB, 0.904594E-03_JPRB, 0.803743E-03_JPRB, 0.699828E-03_JPRB &
+  &, 0.651096E-03_JPRB, 0.541748E-03_JPRB, 0.489126E-03_JPRB &
+  &, 0.434930E-03_JPRB, 0.379143E-03_JPRB, 0.321747E-03_JPRB, 0.262724E-03_JPRB &
+  &, 0.266073E-03_JPRB, 0.204585E-03_JPRB, 0.207133E-03_JPRB/)
+XCW( 441, :) = (/ &
+  &  0.981790E+00_JPRB, 0.976240E+00_JPRB, 0.970298E+00_JPRB, 0.963972E+00_JPRB &
+  &, 0.957260E+00_JPRB, 0.950170E+00_JPRB, 0.942704E+00_JPRB &
+  &, 0.934869E+00_JPRB, 0.926669E+00_JPRB, 0.918110E+00_JPRB, 0.909195E+00_JPRB &
+  &, 0.899933E+00_JPRB, 0.890328E+00_JPRB, 0.880387E+00_JPRB &
+  &, 0.870119E+00_JPRB, 0.859529E+00_JPRB, 0.848625E+00_JPRB, 0.837415E+00_JPRB &
+  &, 0.825909E+00_JPRB, 0.814112E+00_JPRB, 0.802039E+00_JPRB &
+  &, 0.789700E+00_JPRB, 0.777101E+00_JPRB, 0.764254E+00_JPRB, 0.751172E+00_JPRB &
+  &, 0.737865E+00_JPRB, 0.724347E+00_JPRB, 0.710629E+00_JPRB &
+  &, 0.696728E+00_JPRB, 0.682656E+00_JPRB, 0.668425E+00_JPRB, 0.654056E+00_JPRB &
+  &, 0.639557E+00_JPRB, 0.624943E+00_JPRB, 0.610239E+00_JPRB &
+  &, 0.595451E+00_JPRB, 0.580597E+00_JPRB, 0.565704E+00_JPRB, 0.550780E+00_JPRB &
+  &, 0.535844E+00_JPRB, 0.520908E+00_JPRB, 0.505995E+00_JPRB &
+  &, 0.491121E+00_JPRB, 0.476304E+00_JPRB, 0.461552E+00_JPRB, 0.446894E+00_JPRB &
+  &, 0.432341E+00_JPRB, 0.417913E+00_JPRB, 0.403609E+00_JPRB &
+  &, 0.389475E+00_JPRB, 0.375495E+00_JPRB, 0.361704E+00_JPRB, 0.348099E+00_JPRB &
+  &, 0.334713E+00_JPRB, 0.321540E+00_JPRB, 0.308600E+00_JPRB &
+  &, 0.295914E+00_JPRB, 0.283468E+00_JPRB, 0.271298E+00_JPRB, 0.259403E+00_JPRB &
+  &, 0.247783E+00_JPRB, 0.236451E+00_JPRB, 0.225420E+00_JPRB &
+  &, 0.214703E+00_JPRB, 0.204271E+00_JPRB, 0.194151E+00_JPRB, 0.184349E+00_JPRB &
+  &, 0.174870E+00_JPRB, 0.165696E+00_JPRB, 0.156847E+00_JPRB &
+  &, 0.148323E+00_JPRB, 0.140098E+00_JPRB, 0.132211E+00_JPRB, 0.124632E+00_JPRB &
+  &, 0.117350E+00_JPRB, 0.110377E+00_JPRB, 0.103698E+00_JPRB &
+  &, 0.973453E-01_JPRB, 0.912518E-01_JPRB, 0.854706E-01_JPRB, 0.799545E-01_JPRB &
+  &, 0.747035E-01_JPRB, 0.697432E-01_JPRB, 0.650179E-01_JPRB &
+  &, 0.605778E-01_JPRB, 0.563623E-01_JPRB, 0.523628E-01_JPRB, 0.485987E-01_JPRB &
+  &, 0.450596E-01_JPRB, 0.417336E-01_JPRB, 0.386072E-01_JPRB &
+  &, 0.356964E-01_JPRB, 0.329533E-01_JPRB, 0.303587E-01_JPRB, 0.279579E-01_JPRB &
+  &, 0.257311E-01_JPRB, 0.236563E-01_JPRB, 0.217097E-01_JPRB &
+  &, 0.199007E-01_JPRB, 0.182028E-01_JPRB, 0.166612E-01_JPRB, 0.152107E-01_JPRB &
+  &, 0.138963E-01_JPRB, 0.126489E-01_JPRB, 0.115132E-01_JPRB &
+  &, 0.104961E-01_JPRB, 0.952320E-02_JPRB, 0.863946E-02_JPRB, 0.785035E-02_JPRB &
+  &, 0.707579E-02_JPRB, 0.640442E-02_JPRB, 0.579783E-02_JPRB &
+  &, 0.521496E-02_JPRB, 0.470317E-02_JPRB, 0.422013E-02_JPRB, 0.381469E-02_JPRB &
+  &, 0.339554E-02_JPRB, 0.305932E-02_JPRB, 0.276106E-02_JPRB &
+  &, 0.245296E-02_JPRB, 0.218547E-02_JPRB, 0.196071E-02_JPRB, 0.172872E-02_JPRB &
+  &, 0.154226E-02_JPRB, 0.134991E-02_JPRB, 0.120597E-02_JPRB &
+  &, 0.105755E-02_JPRB, 0.960506E-03_JPRB, 0.860439E-03_JPRB, 0.757314E-03_JPRB &
+  &, 0.651096E-03_JPRB, 0.600831E-03_JPRB, 0.489126E-03_JPRB &
+  &, 0.434930E-03_JPRB, 0.379143E-03_JPRB, 0.321747E-03_JPRB, 0.262724E-03_JPRB &
+  &, 0.266073E-03_JPRB, 0.204585E-03_JPRB, 0.207133E-03_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART63',1,ZHOOK_HANDLE)
+END SUBROUTINE PART63
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART64
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART64',0,ZHOOK_HANDLE)
+
+XCW( 442, :) = (/ &
+  &  0.982040E+00_JPRB, 0.976552E+00_JPRB, 0.970671E+00_JPRB, 0.964405E+00_JPRB &
+  &, 0.957753E+00_JPRB, 0.950722E+00_JPRB, 0.943316E+00_JPRB &
+  &, 0.935538E+00_JPRB, 0.927394E+00_JPRB, 0.918890E+00_JPRB, 0.910032E+00_JPRB &
+  &, 0.900822E+00_JPRB, 0.891271E+00_JPRB, 0.881383E+00_JPRB &
+  &, 0.871164E+00_JPRB, 0.860625E+00_JPRB, 0.849768E+00_JPRB, 0.838606E+00_JPRB &
+  &, 0.827147E+00_JPRB, 0.815397E+00_JPRB, 0.803366E+00_JPRB &
+  &, 0.791066E+00_JPRB, 0.778508E+00_JPRB, 0.765698E+00_JPRB, 0.752653E+00_JPRB &
+  &, 0.739382E+00_JPRB, 0.725897E+00_JPRB, 0.712213E+00_JPRB &
+  &, 0.698343E+00_JPRB, 0.684299E+00_JPRB, 0.670097E+00_JPRB, 0.655748E+00_JPRB &
+  &, 0.641274E+00_JPRB, 0.626682E+00_JPRB, 0.611995E+00_JPRB &
+  &, 0.597228E+00_JPRB, 0.582390E+00_JPRB, 0.567494E+00_JPRB, 0.552595E+00_JPRB &
+  &, 0.537664E+00_JPRB, 0.522741E+00_JPRB, 0.507832E+00_JPRB &
+  &, 0.492960E+00_JPRB, 0.478143E+00_JPRB, 0.463390E+00_JPRB, 0.448730E+00_JPRB &
+  &, 0.434174E+00_JPRB, 0.419729E+00_JPRB, 0.405417E+00_JPRB &
+  &, 0.391262E+00_JPRB, 0.377271E+00_JPRB, 0.363469E+00_JPRB, 0.349849E+00_JPRB &
+  &, 0.336433E+00_JPRB, 0.323241E+00_JPRB, 0.310296E+00_JPRB &
+  &, 0.297572E+00_JPRB, 0.285102E+00_JPRB, 0.272904E+00_JPRB, 0.260980E+00_JPRB &
+  &, 0.249328E+00_JPRB, 0.237979E+00_JPRB, 0.226911E+00_JPRB &
+  &, 0.216154E+00_JPRB, 0.205681E+00_JPRB, 0.195535E+00_JPRB, 0.185705E+00_JPRB &
+  &, 0.176176E+00_JPRB, 0.166969E+00_JPRB, 0.158086E+00_JPRB &
+  &, 0.149525E+00_JPRB, 0.141261E+00_JPRB, 0.133332E+00_JPRB, 0.125709E+00_JPRB &
+  &, 0.118381E+00_JPRB, 0.111382E+00_JPRB, 0.104676E+00_JPRB &
+  &, 0.982695E-01_JPRB, 0.921448E-01_JPRB, 0.863308E-01_JPRB, 0.807800E-01_JPRB &
+  &, 0.754926E-01_JPRB, 0.704939E-01_JPRB, 0.657284E-01_JPRB &
+  &, 0.612462E-01_JPRB, 0.569866E-01_JPRB, 0.529699E-01_JPRB, 0.491876E-01_JPRB &
+  &, 0.456294E-01_JPRB, 0.422529E-01_JPRB, 0.391048E-01_JPRB &
+  &, 0.361397E-01_JPRB, 0.333724E-01_JPRB, 0.307852E-01_JPRB, 0.283585E-01_JPRB &
+  &, 0.261048E-01_JPRB, 0.239675E-01_JPRB, 0.220262E-01_JPRB &
+  &, 0.201869E-01_JPRB, 0.184939E-01_JPRB, 0.169202E-01_JPRB, 0.154740E-01_JPRB &
+  &, 0.141258E-01_JPRB, 0.128823E-01_JPRB, 0.117108E-01_JPRB &
+  &, 0.106568E-01_JPRB, 0.968651E-02_JPRB, 0.880541E-02_JPRB, 0.797680E-02_JPRB &
+  &, 0.720426E-02_JPRB, 0.653492E-02_JPRB, 0.588620E-02_JPRB &
+  &, 0.530470E-02_JPRB, 0.479430E-02_JPRB, 0.431266E-02_JPRB, 0.386166E-02_JPRB &
+  &, 0.349091E-02_JPRB, 0.310772E-02_JPRB, 0.281019E-02_JPRB &
+  &, 0.250281E-02_JPRB, 0.223607E-02_JPRB, 0.201205E-02_JPRB, 0.178081E-02_JPRB &
+  &, 0.159510E-02_JPRB, 0.140351E-02_JPRB, 0.126034E-02_JPRB &
+  &, 0.111269E-02_JPRB, 0.960506E-03_JPRB, 0.860439E-03_JPRB, 0.757314E-03_JPRB &
+  &, 0.651096E-03_JPRB, 0.600831E-03_JPRB, 0.489126E-03_JPRB &
+  &, 0.434930E-03_JPRB, 0.379143E-03_JPRB, 0.321747E-03_JPRB, 0.325905E-03_JPRB &
+  &, 0.266073E-03_JPRB, 0.204585E-03_JPRB, 0.207133E-03_JPRB/)
+XCW( 443, :) = (/ &
+  &  0.982290E+00_JPRB, 0.976864E+00_JPRB, 0.971045E+00_JPRB, 0.964839E+00_JPRB &
+  &, 0.958246E+00_JPRB, 0.951275E+00_JPRB, 0.943927E+00_JPRB &
+  &, 0.936207E+00_JPRB, 0.928121E+00_JPRB, 0.919671E+00_JPRB, 0.910868E+00_JPRB &
+  &, 0.901713E+00_JPRB, 0.892215E+00_JPRB, 0.882379E+00_JPRB &
+  &, 0.872211E+00_JPRB, 0.861721E+00_JPRB, 0.850914E+00_JPRB, 0.839800E+00_JPRB &
+  &, 0.828384E+00_JPRB, 0.816679E+00_JPRB, 0.804692E+00_JPRB &
+  &, 0.792435E+00_JPRB, 0.779916E+00_JPRB, 0.767145E+00_JPRB, 0.754138E+00_JPRB &
+  &, 0.740902E+00_JPRB, 0.727454E+00_JPRB, 0.713800E+00_JPRB &
+  &, 0.699962E+00_JPRB, 0.685946E+00_JPRB, 0.671768E+00_JPRB, 0.657448E+00_JPRB &
+  &, 0.642996E+00_JPRB, 0.628425E+00_JPRB, 0.613759E+00_JPRB &
+  &, 0.599004E+00_JPRB, 0.584183E+00_JPRB, 0.569312E+00_JPRB, 0.554410E+00_JPRB &
+  &, 0.539493E+00_JPRB, 0.524575E+00_JPRB, 0.509668E+00_JPRB &
+  &, 0.494798E+00_JPRB, 0.479982E+00_JPRB, 0.465228E+00_JPRB, 0.450567E+00_JPRB &
+  &, 0.435994E+00_JPRB, 0.421557E+00_JPRB, 0.407239E+00_JPRB &
+  &, 0.393075E+00_JPRB, 0.379061E+00_JPRB, 0.365233E+00_JPRB, 0.351599E+00_JPRB &
+  &, 0.338181E+00_JPRB, 0.324957E+00_JPRB, 0.311977E+00_JPRB &
+  &, 0.299245E+00_JPRB, 0.286751E+00_JPRB, 0.274526E+00_JPRB, 0.262573E+00_JPRB &
+  &, 0.250889E+00_JPRB, 0.239506E+00_JPRB, 0.228403E+00_JPRB &
+  &, 0.217606E+00_JPRB, 0.207109E+00_JPRB, 0.196938E+00_JPRB, 0.187061E+00_JPRB &
+  &, 0.177502E+00_JPRB, 0.168263E+00_JPRB, 0.159325E+00_JPRB &
+  &, 0.150727E+00_JPRB, 0.142424E+00_JPRB, 0.134453E+00_JPRB, 0.126786E+00_JPRB &
+  &, 0.119434E+00_JPRB, 0.112387E+00_JPRB, 0.105653E+00_JPRB &
+  &, 0.991938E-01_JPRB, 0.930379E-01_JPRB, 0.871910E-01_JPRB, 0.816055E-01_JPRB &
+  &, 0.762816E-01_JPRB, 0.712446E-01_JPRB, 0.664662E-01_JPRB &
+  &, 0.619145E-01_JPRB, 0.576392E-01_JPRB, 0.536059E-01_JPRB, 0.497766E-01_JPRB &
+  &, 0.461693E-01_JPRB, 0.428027E-01_JPRB, 0.396025E-01_JPRB &
+  &, 0.366147E-01_JPRB, 0.338237E-01_JPRB, 0.312117E-01_JPRB, 0.287592E-01_JPRB &
+  &, 0.264446E-01_JPRB, 0.243132E-01_JPRB, 0.223428E-01_JPRB &
+  &, 0.205089E-01_JPRB, 0.187850E-01_JPRB, 0.171792E-01_JPRB, 0.156998E-01_JPRB &
+  &, 0.143553E-01_JPRB, 0.130767E-01_JPRB, 0.119085E-01_JPRB &
+  &, 0.108577E-01_JPRB, 0.984983E-02_JPRB, 0.892988E-02_JPRB, 0.810326E-02_JPRB &
+  &, 0.733272E-02_JPRB, 0.666542E-02_JPRB, 0.601874E-02_JPRB &
+  &, 0.543931E-02_JPRB, 0.488543E-02_JPRB, 0.440519E-02_JPRB, 0.395560E-02_JPRB &
+  &, 0.353859E-02_JPRB, 0.320453E-02_JPRB, 0.285932E-02_JPRB &
+  &, 0.255267E-02_JPRB, 0.228666E-02_JPRB, 0.206338E-02_JPRB, 0.183289E-02_JPRB &
+  &, 0.159510E-02_JPRB, 0.145711E-02_JPRB, 0.126034E-02_JPRB &
+  &, 0.111269E-02_JPRB, 0.101642E-02_JPRB, 0.860439E-03_JPRB, 0.757314E-03_JPRB &
+  &, 0.709377E-03_JPRB, 0.600831E-03_JPRB, 0.549017E-03_JPRB &
+  &, 0.434930E-03_JPRB, 0.379143E-03_JPRB, 0.321747E-03_JPRB, 0.325905E-03_JPRB &
+  &, 0.266073E-03_JPRB, 0.204585E-03_JPRB, 0.207133E-03_JPRB/)
+XCW( 444, :) = (/ &
+  &  0.982539E+00_JPRB, 0.977177E+00_JPRB, 0.971418E+00_JPRB, 0.965273E+00_JPRB &
+  &, 0.958740E+00_JPRB, 0.951827E+00_JPRB, 0.944537E+00_JPRB &
+  &, 0.936876E+00_JPRB, 0.928845E+00_JPRB, 0.920454E+00_JPRB, 0.911705E+00_JPRB &
+  &, 0.902603E+00_JPRB, 0.893159E+00_JPRB, 0.883374E+00_JPRB &
+  &, 0.873259E+00_JPRB, 0.862818E+00_JPRB, 0.852059E+00_JPRB, 0.840992E+00_JPRB &
+  &, 0.829623E+00_JPRB, 0.817964E+00_JPRB, 0.806018E+00_JPRB &
+  &, 0.793805E+00_JPRB, 0.781327E+00_JPRB, 0.768595E+00_JPRB, 0.755623E+00_JPRB &
+  &, 0.742426E+00_JPRB, 0.729007E+00_JPRB, 0.715388E+00_JPRB &
+  &, 0.701580E+00_JPRB, 0.687593E+00_JPRB, 0.673444E+00_JPRB, 0.659149E+00_JPRB &
+  &, 0.644718E+00_JPRB, 0.630173E+00_JPRB, 0.615524E+00_JPRB &
+  &, 0.600781E+00_JPRB, 0.585985E+00_JPRB, 0.571121E+00_JPRB, 0.556234E+00_JPRB &
+  &, 0.541323E+00_JPRB, 0.526409E+00_JPRB, 0.511515E+00_JPRB &
+  &, 0.496647E+00_JPRB, 0.481821E+00_JPRB, 0.467078E+00_JPRB, 0.452403E+00_JPRB &
+  &, 0.437839E+00_JPRB, 0.423385E+00_JPRB, 0.409060E+00_JPRB &
+  &, 0.394875E+00_JPRB, 0.380865E+00_JPRB, 0.367011E+00_JPRB, 0.353363E+00_JPRB &
+  &, 0.339915E+00_JPRB, 0.326688E+00_JPRB, 0.313673E+00_JPRB &
+  &, 0.300919E+00_JPRB, 0.288400E+00_JPRB, 0.276149E+00_JPRB, 0.264166E+00_JPRB &
+  &, 0.252451E+00_JPRB, 0.241034E+00_JPRB, 0.229911E+00_JPRB &
+  &, 0.219076E+00_JPRB, 0.208537E+00_JPRB, 0.198322E+00_JPRB, 0.188417E+00_JPRB &
+  &, 0.178828E+00_JPRB, 0.169537E+00_JPRB, 0.160585E+00_JPRB &
+  &, 0.151929E+00_JPRB, 0.143608E+00_JPRB, 0.135596E+00_JPRB, 0.127885E+00_JPRB &
+  &, 0.120487E+00_JPRB, 0.113415E+00_JPRB, 0.106631E+00_JPRB &
+  &, 0.100142E+00_JPRB, 0.939558E-01_JPRB, 0.880512E-01_JPRB, 0.824310E-01_JPRB &
+  &, 0.770706E-01_JPRB, 0.719953E-01_JPRB, 0.671767E-01_JPRB &
+  &, 0.626107E-01_JPRB, 0.582918E-01_JPRB, 0.542130E-01_JPRB, 0.503655E-01_JPRB &
+  &, 0.467392E-01_JPRB, 0.433219E-01_JPRB, 0.401001E-01_JPRB &
+  &, 0.370897E-01_JPRB, 0.342749E-01_JPRB, 0.316054E-01_JPRB, 0.291265E-01_JPRB &
+  &, 0.268183E-01_JPRB, 0.246589E-01_JPRB, 0.226593E-01_JPRB &
+  &, 0.207951E-01_JPRB, 0.190761E-01_JPRB, 0.174382E-01_JPRB, 0.159632E-01_JPRB &
+  &, 0.145849E-01_JPRB, 0.133101E-01_JPRB, 0.121061E-01_JPRB &
+  &, 0.110184E-01_JPRB, 0.100131E-01_JPRB, 0.909583E-02_JPRB, 0.827187E-02_JPRB &
+  &, 0.750402E-02_JPRB, 0.679592E-02_JPRB, 0.610711E-02_JPRB &
+  &, 0.552906E-02_JPRB, 0.497656E-02_JPRB, 0.449772E-02_JPRB, 0.404954E-02_JPRB &
+  &, 0.363396E-02_JPRB, 0.325293E-02_JPRB, 0.290844E-02_JPRB &
+  &, 0.260253E-02_JPRB, 0.233725E-02_JPRB, 0.206338E-02_JPRB, 0.188497E-02_JPRB &
+  &, 0.164793E-02_JPRB, 0.145711E-02_JPRB, 0.131470E-02_JPRB &
+  &, 0.116782E-02_JPRB, 0.101642E-02_JPRB, 0.917135E-03_JPRB, 0.814800E-03_JPRB &
+  &, 0.709377E-03_JPRB, 0.600831E-03_JPRB, 0.549017E-03_JPRB &
+  &, 0.495635E-03_JPRB, 0.440667E-03_JPRB, 0.384097E-03_JPRB, 0.325905E-03_JPRB &
+  &, 0.266073E-03_JPRB, 0.204585E-03_JPRB, 0.207133E-03_JPRB/)
+XCW( 445, :) = (/ &
+  &  0.982791E+00_JPRB, 0.977487E+00_JPRB, 0.971791E+00_JPRB, 0.965706E+00_JPRB &
+  &, 0.959234E+00_JPRB, 0.952380E+00_JPRB, 0.945149E+00_JPRB &
+  &, 0.937544E+00_JPRB, 0.929571E+00_JPRB, 0.921235E+00_JPRB, 0.912542E+00_JPRB &
+  &, 0.903495E+00_JPRB, 0.894102E+00_JPRB, 0.884370E+00_JPRB &
+  &, 0.874305E+00_JPRB, 0.863915E+00_JPRB, 0.853206E+00_JPRB, 0.842186E+00_JPRB &
+  &, 0.830864E+00_JPRB, 0.819248E+00_JPRB, 0.807347E+00_JPRB &
+  &, 0.795174E+00_JPRB, 0.782738E+00_JPRB, 0.770046E+00_JPRB, 0.757111E+00_JPRB &
+  &, 0.743950E+00_JPRB, 0.730568E+00_JPRB, 0.716979E+00_JPRB &
+  &, 0.703199E+00_JPRB, 0.689244E+00_JPRB, 0.675119E+00_JPRB, 0.660850E+00_JPRB &
+  &, 0.646444E+00_JPRB, 0.631920E+00_JPRB, 0.617288E+00_JPRB &
+  &, 0.602567E+00_JPRB, 0.587778E+00_JPRB, 0.572940E+00_JPRB, 0.558059E+00_JPRB &
+  &, 0.543153E+00_JPRB, 0.528253E+00_JPRB, 0.513352E+00_JPRB &
+  &, 0.498497E+00_JPRB, 0.483683E+00_JPRB, 0.468928E+00_JPRB, 0.454251E+00_JPRB &
+  &, 0.439672E+00_JPRB, 0.425212E+00_JPRB, 0.410882E+00_JPRB &
+  &, 0.396688E+00_JPRB, 0.382655E+00_JPRB, 0.368803E+00_JPRB, 0.355128E+00_JPRB &
+  &, 0.341664E+00_JPRB, 0.328419E+00_JPRB, 0.315384E+00_JPRB &
+  &, 0.302593E+00_JPRB, 0.290049E+00_JPRB, 0.277771E+00_JPRB, 0.265760E+00_JPRB &
+  &, 0.254030E+00_JPRB, 0.242579E+00_JPRB, 0.231402E+00_JPRB &
+  &, 0.220546E+00_JPRB, 0.209984E+00_JPRB, 0.199725E+00_JPRB, 0.189793E+00_JPRB &
+  &, 0.180154E+00_JPRB, 0.170831E+00_JPRB, 0.161844E+00_JPRB &
+  &, 0.153152E+00_JPRB, 0.144792E+00_JPRB, 0.136739E+00_JPRB, 0.128985E+00_JPRB &
+  &, 0.121564E+00_JPRB, 0.114443E+00_JPRB, 0.107608E+00_JPRB &
+  &, 0.101091E+00_JPRB, 0.948737E-01_JPRB, 0.889113E-01_JPRB, 0.832565E-01_JPRB &
+  &, 0.778859E-01_JPRB, 0.727728E-01_JPRB, 0.679145E-01_JPRB &
+  &, 0.633069E-01_JPRB, 0.589444E-01_JPRB, 0.548489E-01_JPRB, 0.509545E-01_JPRB &
+  &, 0.473090E-01_JPRB, 0.438412E-01_JPRB, 0.405977E-01_JPRB &
+  &, 0.375646E-01_JPRB, 0.347262E-01_JPRB, 0.320319E-01_JPRB, 0.295272E-01_JPRB &
+  &, 0.271921E-01_JPRB, 0.250392E-01_JPRB, 0.230110E-01_JPRB &
+  &, 0.211171E-01_JPRB, 0.193308E-01_JPRB, 0.177342E-01_JPRB, 0.161889E-01_JPRB &
+  &, 0.148144E-01_JPRB, 0.135045E-01_JPRB, 0.123038E-01_JPRB &
+  &, 0.112192E-01_JPRB, 0.102173E-01_JPRB, 0.926178E-02_JPRB, 0.839833E-02_JPRB &
+  &, 0.763248E-02_JPRB, 0.688291E-02_JPRB, 0.623965E-02_JPRB &
+  &, 0.561880E-02_JPRB, 0.506769E-02_JPRB, 0.459025E-02_JPRB, 0.414349E-02_JPRB &
+  &, 0.372933E-02_JPRB, 0.334973E-02_JPRB, 0.300669E-02_JPRB &
+  &, 0.265238E-02_JPRB, 0.238784E-02_JPRB, 0.211471E-02_JPRB, 0.188497E-02_JPRB &
+  &, 0.170077E-02_JPRB, 0.151070E-02_JPRB, 0.131470E-02_JPRB &
+  &, 0.116782E-02_JPRB, 0.107233E-02_JPRB, 0.917135E-03_JPRB, 0.814800E-03_JPRB &
+  &, 0.709377E-03_JPRB, 0.659914E-03_JPRB, 0.549017E-03_JPRB &
+  &, 0.495635E-03_JPRB, 0.440667E-03_JPRB, 0.384097E-03_JPRB, 0.325905E-03_JPRB &
+  &, 0.266073E-03_JPRB, 0.269447E-03_JPRB, 0.207133E-03_JPRB/)
+XCW( 446, :) = (/ &
+  &  0.983042E+00_JPRB, 0.977799E+00_JPRB, 0.972164E+00_JPRB, 0.966140E+00_JPRB &
+  &, 0.959727E+00_JPRB, 0.952933E+00_JPRB, 0.945760E+00_JPRB &
+  &, 0.938213E+00_JPRB, 0.930297E+00_JPRB, 0.922017E+00_JPRB, 0.913379E+00_JPRB &
+  &, 0.904386E+00_JPRB, 0.895048E+00_JPRB, 0.885368E+00_JPRB &
+  &, 0.875354E+00_JPRB, 0.865012E+00_JPRB, 0.854352E+00_JPRB, 0.843379E+00_JPRB &
+  &, 0.832104E+00_JPRB, 0.820533E+00_JPRB, 0.808677E+00_JPRB &
+  &, 0.796546E+00_JPRB, 0.784149E+00_JPRB, 0.771497E+00_JPRB, 0.758600E+00_JPRB &
+  &, 0.745474E+00_JPRB, 0.732125E+00_JPRB, 0.718570E+00_JPRB &
+  &, 0.704826E+00_JPRB, 0.690895E+00_JPRB, 0.676803E+00_JPRB, 0.662555E+00_JPRB &
+  &, 0.648175E+00_JPRB, 0.633668E+00_JPRB, 0.619057E+00_JPRB &
+  &, 0.604362E+00_JPRB, 0.589590E+00_JPRB, 0.574759E+00_JPRB, 0.559884E+00_JPRB &
+  &, 0.544993E+00_JPRB, 0.530097E+00_JPRB, 0.515210E+00_JPRB &
+  &, 0.500346E+00_JPRB, 0.485533E+00_JPRB, 0.470778E+00_JPRB, 0.456099E+00_JPRB &
+  &, 0.441517E+00_JPRB, 0.427053E+00_JPRB, 0.412703E+00_JPRB &
+  &, 0.398502E+00_JPRB, 0.384458E+00_JPRB, 0.370595E+00_JPRB, 0.356906E+00_JPRB &
+  &, 0.343427E+00_JPRB, 0.330150E+00_JPRB, 0.317095E+00_JPRB &
+  &, 0.304282E+00_JPRB, 0.291714E+00_JPRB, 0.279410E+00_JPRB, 0.267370E+00_JPRB &
+  &, 0.255609E+00_JPRB, 0.244124E+00_JPRB, 0.232929E+00_JPRB &
+  &, 0.222034E+00_JPRB, 0.211431E+00_JPRB, 0.201146E+00_JPRB, 0.191168E+00_JPRB &
+  &, 0.181500E+00_JPRB, 0.172145E+00_JPRB, 0.163104E+00_JPRB &
+  &, 0.154375E+00_JPRB, 0.145977E+00_JPRB, 0.137882E+00_JPRB, 0.130106E+00_JPRB &
+  &, 0.122640E+00_JPRB, 0.115471E+00_JPRB, 0.108610E+00_JPRB &
+  &, 0.102039E+00_JPRB, 0.957915E-01_JPRB, 0.897968E-01_JPRB, 0.841078E-01_JPRB &
+  &, 0.786749E-01_JPRB, 0.735235E-01_JPRB, 0.686523E-01_JPRB &
+  &, 0.640031E-01_JPRB, 0.596254E-01_JPRB, 0.554849E-01_JPRB, 0.515729E-01_JPRB &
+  &, 0.478789E-01_JPRB, 0.443910E-01_JPRB, 0.411264E-01_JPRB &
+  &, 0.380396E-01_JPRB, 0.351775E-01_JPRB, 0.324585E-01_JPRB, 0.299279E-01_JPRB &
+  &, 0.275998E-01_JPRB, 0.253849E-01_JPRB, 0.233275E-01_JPRB &
+  &, 0.214033E-01_JPRB, 0.196582E-01_JPRB, 0.179932E-01_JPRB, 0.164523E-01_JPRB &
+  &, 0.150439E-01_JPRB, 0.137378E-01_JPRB, 0.125409E-01_JPRB &
+  &, 0.114201E-01_JPRB, 0.103806E-01_JPRB, 0.942773E-02_JPRB, 0.856694E-02_JPRB &
+  &, 0.776095E-02_JPRB, 0.701341E-02_JPRB, 0.637220E-02_JPRB &
+  &, 0.575341E-02_JPRB, 0.520438E-02_JPRB, 0.468278E-02_JPRB, 0.419046E-02_JPRB &
+  &, 0.377701E-02_JPRB, 0.339814E-02_JPRB, 0.305582E-02_JPRB &
+  &, 0.275210E-02_JPRB, 0.243844E-02_JPRB, 0.216605E-02_JPRB, 0.193705E-02_JPRB &
+  &, 0.175361E-02_JPRB, 0.156430E-02_JPRB, 0.136906E-02_JPRB &
+  &, 0.122295E-02_JPRB, 0.107233E-02_JPRB, 0.973831E-03_JPRB, 0.872285E-03_JPRB &
+  &, 0.767658E-03_JPRB, 0.659914E-03_JPRB, 0.549017E-03_JPRB &
+  &, 0.495635E-03_JPRB, 0.440667E-03_JPRB, 0.384097E-03_JPRB, 0.325905E-03_JPRB &
+  &, 0.266073E-03_JPRB, 0.269447E-03_JPRB, 0.207133E-03_JPRB/)
+XCW( 447, :) = (/ &
+  &  0.983292E+00_JPRB, 0.978112E+00_JPRB, 0.972537E+00_JPRB, 0.966573E+00_JPRB &
+  &, 0.960221E+00_JPRB, 0.953485E+00_JPRB, 0.946371E+00_JPRB &
+  &, 0.938881E+00_JPRB, 0.931023E+00_JPRB, 0.922799E+00_JPRB, 0.914216E+00_JPRB &
+  &, 0.905278E+00_JPRB, 0.895992E+00_JPRB, 0.886364E+00_JPRB &
+  &, 0.876402E+00_JPRB, 0.866111E+00_JPRB, 0.855499E+00_JPRB, 0.844575E+00_JPRB &
+  &, 0.833346E+00_JPRB, 0.821821E+00_JPRB, 0.810006E+00_JPRB &
+  &, 0.797919E+00_JPRB, 0.785563E+00_JPRB, 0.772951E+00_JPRB, 0.760092E+00_JPRB &
+  &, 0.747002E+00_JPRB, 0.733686E+00_JPRB, 0.720166E+00_JPRB &
+  &, 0.706448E+00_JPRB, 0.692550E+00_JPRB, 0.678483E+00_JPRB, 0.664264E+00_JPRB &
+  &, 0.649905E+00_JPRB, 0.635420E+00_JPRB, 0.620831E+00_JPRB &
+  &, 0.606148E+00_JPRB, 0.591392E+00_JPRB, 0.576577E+00_JPRB, 0.561718E+00_JPRB &
+  &, 0.546833E+00_JPRB, 0.531941E+00_JPRB, 0.517058E+00_JPRB &
+  &, 0.502207E+00_JPRB, 0.487395E+00_JPRB, 0.472640E+00_JPRB, 0.457959E+00_JPRB &
+  &, 0.443374E+00_JPRB, 0.428893E+00_JPRB, 0.414550E+00_JPRB &
+  &, 0.400328E+00_JPRB, 0.386275E+00_JPRB, 0.372387E+00_JPRB, 0.358684E+00_JPRB &
+  &, 0.345175E+00_JPRB, 0.331881E+00_JPRB, 0.318821E+00_JPRB &
+  &, 0.305971E+00_JPRB, 0.293379E+00_JPRB, 0.281049E+00_JPRB, 0.268979E+00_JPRB &
+  &, 0.257187E+00_JPRB, 0.245669E+00_JPRB, 0.234438E+00_JPRB &
+  &, 0.223522E+00_JPRB, 0.212878E+00_JPRB, 0.202568E+00_JPRB, 0.192543E+00_JPRB &
+  &, 0.182846E+00_JPRB, 0.173439E+00_JPRB, 0.164364E+00_JPRB &
+  &, 0.155619E+00_JPRB, 0.147161E+00_JPRB, 0.139047E+00_JPRB, 0.131228E+00_JPRB &
+  &, 0.123716E+00_JPRB, 0.116499E+00_JPRB, 0.109611E+00_JPRB &
+  &, 0.103012E+00_JPRB, 0.967094E-01_JPRB, 0.906823E-01_JPRB, 0.849591E-01_JPRB &
+  &, 0.794902E-01_JPRB, 0.743010E-01_JPRB, 0.693901E-01_JPRB &
+  &, 0.647271E-01_JPRB, 0.603064E-01_JPRB, 0.561209E-01_JPRB, 0.521618E-01_JPRB &
+  &, 0.484488E-01_JPRB, 0.449408E-01_JPRB, 0.416241E-01_JPRB &
+  &, 0.385462E-01_JPRB, 0.356288E-01_JPRB, 0.329178E-01_JPRB, 0.303620E-01_JPRB &
+  &, 0.279736E-01_JPRB, 0.257306E-01_JPRB, 0.236792E-01_JPRB &
+  &, 0.217252E-01_JPRB, 0.199493E-01_JPRB, 0.182523E-01_JPRB, 0.167157E-01_JPRB &
+  &, 0.152734E-01_JPRB, 0.139712E-01_JPRB, 0.127386E-01_JPRB &
+  &, 0.115808E-01_JPRB, 0.105439E-01_JPRB, 0.959368E-02_JPRB, 0.869339E-02_JPRB &
+  &, 0.788942E-02_JPRB, 0.714391E-02_JPRB, 0.646056E-02_JPRB &
+  &, 0.584315E-02_JPRB, 0.529551E-02_JPRB, 0.477531E-02_JPRB, 0.428440E-02_JPRB &
+  &, 0.387238E-02_JPRB, 0.344654E-02_JPRB, 0.310495E-02_JPRB &
+  &, 0.280195E-02_JPRB, 0.248903E-02_JPRB, 0.221738E-02_JPRB, 0.198914E-02_JPRB &
+  &, 0.175361E-02_JPRB, 0.156430E-02_JPRB, 0.142342E-02_JPRB &
+  &, 0.122295E-02_JPRB, 0.112824E-02_JPRB, 0.973831E-03_JPRB, 0.872285E-03_JPRB &
+  &, 0.767658E-03_JPRB, 0.659914E-03_JPRB, 0.608907E-03_JPRB &
+  &, 0.495635E-03_JPRB, 0.440667E-03_JPRB, 0.384097E-03_JPRB, 0.325905E-03_JPRB &
+  &, 0.330092E-03_JPRB, 0.269447E-03_JPRB, 0.207133E-03_JPRB/)
+XCW( 448, :) = (/ &
+  &  0.983540E+00_JPRB, 0.978425E+00_JPRB, 0.972910E+00_JPRB, 0.967007E+00_JPRB &
+  &, 0.960714E+00_JPRB, 0.954038E+00_JPRB, 0.946982E+00_JPRB &
+  &, 0.939551E+00_JPRB, 0.931749E+00_JPRB, 0.923581E+00_JPRB, 0.915053E+00_JPRB &
+  &, 0.906170E+00_JPRB, 0.896937E+00_JPRB, 0.887362E+00_JPRB &
+  &, 0.877452E+00_JPRB, 0.867210E+00_JPRB, 0.856648E+00_JPRB, 0.845771E+00_JPRB &
+  &, 0.834589E+00_JPRB, 0.823106E+00_JPRB, 0.811339E+00_JPRB &
+  &, 0.799292E+00_JPRB, 0.786977E+00_JPRB, 0.774405E+00_JPRB, 0.761584E+00_JPRB &
+  &, 0.748530E+00_JPRB, 0.735251E+00_JPRB, 0.721761E+00_JPRB &
+  &, 0.708075E+00_JPRB, 0.694208E+00_JPRB, 0.680167E+00_JPRB, 0.665973E+00_JPRB &
+  &, 0.651640E+00_JPRB, 0.637176E+00_JPRB, 0.622609E+00_JPRB &
+  &, 0.607943E+00_JPRB, 0.593204E+00_JPRB, 0.578396E+00_JPRB, 0.563553E+00_JPRB &
+  &, 0.548683E+00_JPRB, 0.533796E+00_JPRB, 0.518926E+00_JPRB &
+  &, 0.504067E+00_JPRB, 0.489257E+00_JPRB, 0.474501E+00_JPRB, 0.459819E+00_JPRB &
+  &, 0.445232E+00_JPRB, 0.430746E+00_JPRB, 0.416384E+00_JPRB &
+  &, 0.402155E+00_JPRB, 0.388092E+00_JPRB, 0.374192E+00_JPRB, 0.360477E+00_JPRB &
+  &, 0.346953E+00_JPRB, 0.333626E+00_JPRB, 0.320532E+00_JPRB &
+  &, 0.307676E+00_JPRB, 0.295060E+00_JPRB, 0.282704E+00_JPRB, 0.270606E+00_JPRB &
+  &, 0.258783E+00_JPRB, 0.247232E+00_JPRB, 0.235982E+00_JPRB &
+  &, 0.225010E+00_JPRB, 0.214343E+00_JPRB, 0.203990E+00_JPRB, 0.193938E+00_JPRB &
+  &, 0.184192E+00_JPRB, 0.174773E+00_JPRB, 0.165644E+00_JPRB &
+  &, 0.156863E+00_JPRB, 0.148367E+00_JPRB, 0.140190E+00_JPRB, 0.132350E+00_JPRB &
+  &, 0.124793E+00_JPRB, 0.117551E+00_JPRB, 0.110612E+00_JPRB &
+  &, 0.103985E+00_JPRB, 0.976273E-01_JPRB, 0.915930E-01_JPRB, 0.858104E-01_JPRB &
+  &, 0.803055E-01_JPRB, 0.751053E-01_JPRB, 0.701279E-01_JPRB &
+  &, 0.654233E-01_JPRB, 0.609874E-01_JPRB, 0.567569E-01_JPRB, 0.527802E-01_JPRB &
+  &, 0.490186E-01_JPRB, 0.454906E-01_JPRB, 0.421528E-01_JPRB &
+  &, 0.390212E-01_JPRB, 0.360801E-01_JPRB, 0.333443E-01_JPRB, 0.307627E-01_JPRB &
+  &, 0.283473E-01_JPRB, 0.261109E-01_JPRB, 0.239957E-01_JPRB &
+  &, 0.220472E-01_JPRB, 0.202404E-01_JPRB, 0.185483E-01_JPRB, 0.169791E-01_JPRB &
+  &, 0.155412E-01_JPRB, 0.141656E-01_JPRB, 0.129362E-01_JPRB &
+  &, 0.117817E-01_JPRB, 0.107481E-01_JPRB, 0.975963E-02_JPRB, 0.886200E-02_JPRB &
+  &, 0.806071E-02_JPRB, 0.727441E-02_JPRB, 0.659311E-02_JPRB &
+  &, 0.597776E-02_JPRB, 0.538664E-02_JPRB, 0.486784E-02_JPRB, 0.437834E-02_JPRB &
+  &, 0.392006E-02_JPRB, 0.354334E-02_JPRB, 0.320320E-02_JPRB &
+  &, 0.285181E-02_JPRB, 0.253962E-02_JPRB, 0.226872E-02_JPRB, 0.204122E-02_JPRB &
+  &, 0.180644E-02_JPRB, 0.161789E-02_JPRB, 0.142342E-02_JPRB &
+  &, 0.127809E-02_JPRB, 0.112824E-02_JPRB, 0.103053E-02_JPRB, 0.872285E-03_JPRB &
+  &, 0.767658E-03_JPRB, 0.718997E-03_JPRB, 0.608907E-03_JPRB &
+  &, 0.556339E-03_JPRB, 0.440667E-03_JPRB, 0.384097E-03_JPRB, 0.325905E-03_JPRB &
+  &, 0.330092E-03_JPRB, 0.269447E-03_JPRB, 0.207133E-03_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART64',1,ZHOOK_HANDLE)
+END SUBROUTINE PART64
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART65
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART65',0,ZHOOK_HANDLE)
+
+XCW( 449, :) = (/ &
+  &  0.983793E+00_JPRB, 0.978736E+00_JPRB, 0.973283E+00_JPRB, 0.967440E+00_JPRB &
+  &, 0.961207E+00_JPRB, 0.954590E+00_JPRB, 0.947593E+00_JPRB &
+  &, 0.940219E+00_JPRB, 0.932475E+00_JPRB, 0.924363E+00_JPRB, 0.915891E+00_JPRB &
+  &, 0.907062E+00_JPRB, 0.897883E+00_JPRB, 0.888360E+00_JPRB &
+  &, 0.878501E+00_JPRB, 0.868310E+00_JPRB, 0.857797E+00_JPRB, 0.846968E+00_JPRB &
+  &, 0.835831E+00_JPRB, 0.824397E+00_JPRB, 0.812671E+00_JPRB &
+  &, 0.800668E+00_JPRB, 0.788391E+00_JPRB, 0.775859E+00_JPRB, 0.763076E+00_JPRB &
+  &, 0.750057E+00_JPRB, 0.736816E+00_JPRB, 0.723360E+00_JPRB &
+  &, 0.709705E+00_JPRB, 0.695867E+00_JPRB, 0.681855E+00_JPRB, 0.667686E+00_JPRB &
+  &, 0.653375E+00_JPRB, 0.638937E+00_JPRB, 0.624387E+00_JPRB &
+  &, 0.609738E+00_JPRB, 0.595016E+00_JPRB, 0.580225E+00_JPRB, 0.565398E+00_JPRB &
+  &, 0.550533E+00_JPRB, 0.535661E+00_JPRB, 0.520785E+00_JPRB &
+  &, 0.505939E+00_JPRB, 0.491130E+00_JPRB, 0.476374E+00_JPRB, 0.461680E+00_JPRB &
+  &, 0.447089E+00_JPRB, 0.432599E+00_JPRB, 0.418231E+00_JPRB &
+  &, 0.403994E+00_JPRB, 0.389909E+00_JPRB, 0.375998E+00_JPRB, 0.362255E+00_JPRB &
+  &, 0.348716E+00_JPRB, 0.335387E+00_JPRB, 0.322274E+00_JPRB &
+  &, 0.309381E+00_JPRB, 0.296741E+00_JPRB, 0.284358E+00_JPRB, 0.272232E+00_JPRB &
+  &, 0.260379E+00_JPRB, 0.248794E+00_JPRB, 0.237508E+00_JPRB &
+  &, 0.226516E+00_JPRB, 0.215809E+00_JPRB, 0.205412E+00_JPRB, 0.195333E+00_JPRB &
+  &, 0.185557E+00_JPRB, 0.176088E+00_JPRB, 0.166945E+00_JPRB &
+  &, 0.158108E+00_JPRB, 0.149572E+00_JPRB, 0.141377E+00_JPRB, 0.133472E+00_JPRB &
+  &, 0.125892E+00_JPRB, 0.118603E+00_JPRB, 0.111638E+00_JPRB &
+  &, 0.104958E+00_JPRB, 0.985700E-01_JPRB, 0.924785E-01_JPRB, 0.866875E-01_JPRB &
+  &, 0.811472E-01_JPRB, 0.758827E-01_JPRB, 0.708930E-01_JPRB &
+  &, 0.661473E-01_JPRB, 0.616684E-01_JPRB, 0.574218E-01_JPRB, 0.533986E-01_JPRB &
+  &, 0.496185E-01_JPRB, 0.460404E-01_JPRB, 0.426815E-01_JPRB &
+  &, 0.395279E-01_JPRB, 0.365636E-01_JPRB, 0.337708E-01_JPRB, 0.311967E-01_JPRB &
+  &, 0.287551E-01_JPRB, 0.264911E-01_JPRB, 0.243474E-01_JPRB &
+  &, 0.223692E-01_JPRB, 0.205315E-01_JPRB, 0.188443E-01_JPRB, 0.172424E-01_JPRB &
+  &, 0.157708E-01_JPRB, 0.143989E-01_JPRB, 0.131734E-01_JPRB &
+  &, 0.119826E-01_JPRB, 0.109114E-01_JPRB, 0.992558E-02_JPRB, 0.903061E-02_JPRB &
+  &, 0.818918E-02_JPRB, 0.740491E-02_JPRB, 0.672565E-02_JPRB &
+  &, 0.606750E-02_JPRB, 0.547777E-02_JPRB, 0.496037E-02_JPRB, 0.447229E-02_JPRB &
+  &, 0.401543E-02_JPRB, 0.359174E-02_JPRB, 0.325233E-02_JPRB &
+  &, 0.290166E-02_JPRB, 0.259021E-02_JPRB, 0.232005E-02_JPRB, 0.209330E-02_JPRB &
+  &, 0.185928E-02_JPRB, 0.167149E-02_JPRB, 0.147779E-02_JPRB &
+  &, 0.133322E-02_JPRB, 0.118415E-02_JPRB, 0.103053E-02_JPRB, 0.929771E-03_JPRB &
+  &, 0.825940E-03_JPRB, 0.718997E-03_JPRB, 0.608907E-03_JPRB &
+  &, 0.556339E-03_JPRB, 0.502191E-03_JPRB, 0.446446E-03_JPRB, 0.389085E-03_JPRB &
+  &, 0.330092E-03_JPRB, 0.269447E-03_JPRB, 0.207133E-03_JPRB/)
+XCW( 450, :) = (/ &
+  &  0.984044E+00_JPRB, 0.979046E+00_JPRB, 0.973655E+00_JPRB, 0.967874E+00_JPRB &
+  &, 0.961700E+00_JPRB, 0.955144E+00_JPRB, 0.948204E+00_JPRB &
+  &, 0.940889E+00_JPRB, 0.933201E+00_JPRB, 0.925146E+00_JPRB, 0.916729E+00_JPRB &
+  &, 0.907954E+00_JPRB, 0.898829E+00_JPRB, 0.889359E+00_JPRB &
+  &, 0.879550E+00_JPRB, 0.869410E+00_JPRB, 0.858946E+00_JPRB, 0.848165E+00_JPRB &
+  &, 0.837026E+00_JPRB, 0.825685E+00_JPRB, 0.814004E+00_JPRB &
+  &, 0.802044E+00_JPRB, 0.789809E+00_JPRB, 0.777317E+00_JPRB, 0.764572E+00_JPRB &
+  &, 0.751592E+00_JPRB, 0.738384E+00_JPRB, 0.724959E+00_JPRB &
+  &, 0.711336E+00_JPRB, 0.697526E+00_JPRB, 0.683542E+00_JPRB, 0.669399E+00_JPRB &
+  &, 0.655114E+00_JPRB, 0.640698E+00_JPRB, 0.626169E+00_JPRB &
+  &, 0.611542E+00_JPRB, 0.596828E+00_JPRB, 0.582063E+00_JPRB, 0.567242E+00_JPRB &
+  &, 0.552383E+00_JPRB, 0.537516E+00_JPRB, 0.522654E+00_JPRB &
+  &, 0.507811E+00_JPRB, 0.493003E+00_JPRB, 0.478236E+00_JPRB, 0.463552E+00_JPRB &
+  &, 0.448958E+00_JPRB, 0.434465E+00_JPRB, 0.420078E+00_JPRB &
+  &, 0.405834E+00_JPRB, 0.391739E+00_JPRB, 0.377790E+00_JPRB, 0.364062E+00_JPRB &
+  &, 0.350493E+00_JPRB, 0.337147E+00_JPRB, 0.324000E+00_JPRB &
+  &, 0.311101E+00_JPRB, 0.298438E+00_JPRB, 0.286013E+00_JPRB, 0.273859E+00_JPRB &
+  &, 0.261974E+00_JPRB, 0.250374E+00_JPRB, 0.239053E+00_JPRB &
+  &, 0.228022E+00_JPRB, 0.217292E+00_JPRB, 0.206853E+00_JPRB, 0.196728E+00_JPRB &
+  &, 0.186923E+00_JPRB, 0.177422E+00_JPRB, 0.168225E+00_JPRB &
+  &, 0.159352E+00_JPRB, 0.150800E+00_JPRB, 0.142542E+00_JPRB, 0.134617E+00_JPRB &
+  &, 0.126991E+00_JPRB, 0.119677E+00_JPRB, 0.112663E+00_JPRB &
+  &, 0.105931E+00_JPRB, 0.995127E-01_JPRB, 0.933893E-01_JPRB, 0.875388E-01_JPRB &
+  &, 0.819888E-01_JPRB, 0.766870E-01_JPRB, 0.716581E-01_JPRB &
+  &, 0.668713E-01_JPRB, 0.623494E-01_JPRB, 0.580867E-01_JPRB, 0.540170E-01_JPRB &
+  &, 0.502184E-01_JPRB, 0.466207E-01_JPRB, 0.432103E-01_JPRB &
+  &, 0.400345E-01_JPRB, 0.370471E-01_JPRB, 0.342302E-01_JPRB, 0.315974E-01_JPRB &
+  &, 0.291288E-01_JPRB, 0.268368E-01_JPRB, 0.246991E-01_JPRB &
+  &, 0.226912E-01_JPRB, 0.208590E-01_JPRB, 0.191033E-01_JPRB, 0.175058E-01_JPRB &
+  &, 0.160385E-01_JPRB, 0.146323E-01_JPRB, 0.133711E-01_JPRB &
+  &, 0.121835E-01_JPRB, 0.111155E-01_JPRB, 0.100915E-01_JPRB, 0.919922E-02_JPRB &
+  &, 0.831765E-02_JPRB, 0.757891E-02_JPRB, 0.685820E-02_JPRB &
+  &, 0.620211E-02_JPRB, 0.561447E-02_JPRB, 0.505290E-02_JPRB, 0.456623E-02_JPRB &
+  &, 0.411080E-02_JPRB, 0.368855E-02_JPRB, 0.330145E-02_JPRB &
+  &, 0.295152E-02_JPRB, 0.264081E-02_JPRB, 0.237139E-02_JPRB, 0.214538E-02_JPRB &
+  &, 0.191211E-02_JPRB, 0.167149E-02_JPRB, 0.153215E-02_JPRB &
+  &, 0.133322E-02_JPRB, 0.118415E-02_JPRB, 0.103053E-02_JPRB, 0.929771E-03_JPRB &
+  &, 0.825940E-03_JPRB, 0.718997E-03_JPRB, 0.668798E-03_JPRB &
+  &, 0.556339E-03_JPRB, 0.502191E-03_JPRB, 0.446446E-03_JPRB, 0.389085E-03_JPRB &
+  &, 0.330092E-03_JPRB, 0.269447E-03_JPRB, 0.272845E-03_JPRB/)
+XCW( 451, :) = (/ &
+  &  0.984293E+00_JPRB, 0.979361E+00_JPRB, 0.974029E+00_JPRB, 0.968307E+00_JPRB &
+  &, 0.962194E+00_JPRB, 0.955696E+00_JPRB, 0.948816E+00_JPRB &
+  &, 0.941558E+00_JPRB, 0.933928E+00_JPRB, 0.925929E+00_JPRB, 0.917567E+00_JPRB &
+  &, 0.908847E+00_JPRB, 0.899776E+00_JPRB, 0.890357E+00_JPRB &
+  &, 0.880601E+00_JPRB, 0.870510E+00_JPRB, 0.860096E+00_JPRB, 0.849363E+00_JPRB &
+  &, 0.838320E+00_JPRB, 0.826976E+00_JPRB, 0.815340E+00_JPRB &
+  &, 0.803419E+00_JPRB, 0.791230E+00_JPRB, 0.778774E+00_JPRB, 0.766071E+00_JPRB &
+  &, 0.753123E+00_JPRB, 0.739952E+00_JPRB, 0.726562E+00_JPRB &
+  &, 0.712970E+00_JPRB, 0.699189E+00_JPRB, 0.685234E+00_JPRB, 0.671117E+00_JPRB &
+  &, 0.656857E+00_JPRB, 0.642463E+00_JPRB, 0.627952E+00_JPRB &
+  &, 0.613347E+00_JPRB, 0.598650E+00_JPRB, 0.583892E+00_JPRB, 0.569087E+00_JPRB &
+  &, 0.554244E+00_JPRB, 0.539381E+00_JPRB, 0.524523E+00_JPRB &
+  &, 0.509682E+00_JPRB, 0.494876E+00_JPRB, 0.480121E+00_JPRB, 0.465436E+00_JPRB &
+  &, 0.450828E+00_JPRB, 0.436318E+00_JPRB, 0.421938E+00_JPRB &
+  &, 0.407687E+00_JPRB, 0.393570E+00_JPRB, 0.379623E+00_JPRB, 0.365855E+00_JPRB &
+  &, 0.352285E+00_JPRB, 0.338908E+00_JPRB, 0.325757E+00_JPRB &
+  &, 0.312821E+00_JPRB, 0.300135E+00_JPRB, 0.287684E+00_JPRB, 0.275502E+00_JPRB &
+  &, 0.263587E+00_JPRB, 0.251953E+00_JPRB, 0.240597E+00_JPRB &
+  &, 0.229547E+00_JPRB, 0.218776E+00_JPRB, 0.208312E+00_JPRB, 0.198142E+00_JPRB &
+  &, 0.188308E+00_JPRB, 0.178756E+00_JPRB, 0.169526E+00_JPRB &
+  &, 0.160617E+00_JPRB, 0.152027E+00_JPRB, 0.143730E+00_JPRB, 0.135761E+00_JPRB &
+  &, 0.128090E+00_JPRB, 0.120752E+00_JPRB, 0.113688E+00_JPRB &
+  &, 0.106928E+00_JPRB, 0.100480E+00_JPRB, 0.943001E-01_JPRB, 0.884159E-01_JPRB &
+  &, 0.828304E-01_JPRB, 0.774914E-01_JPRB, 0.724232E-01_JPRB &
+  &, 0.676232E-01_JPRB, 0.630588E-01_JPRB, 0.587516E-01_JPRB, 0.546649E-01_JPRB &
+  &, 0.508182E-01_JPRB, 0.471705E-01_JPRB, 0.437701E-01_JPRB &
+  &, 0.405411E-01_JPRB, 0.375306E-01_JPRB, 0.346895E-01_JPRB, 0.320315E-01_JPRB &
+  &, 0.295366E-01_JPRB, 0.272171E-01_JPRB, 0.250508E-01_JPRB &
+  &, 0.230489E-01_JPRB, 0.211501E-01_JPRB, 0.193993E-01_JPRB, 0.177692E-01_JPRB &
+  &, 0.162681E-01_JPRB, 0.148656E-01_JPRB, 0.136082E-01_JPRB &
+  &, 0.123844E-01_JPRB, 0.112789E-01_JPRB, 0.102990E-01_JPRB, 0.932568E-02_JPRB &
+  &, 0.848894E-02_JPRB, 0.770940E-02_JPRB, 0.699075E-02_JPRB &
+  &, 0.629185E-02_JPRB, 0.570560E-02_JPRB, 0.514543E-02_JPRB, 0.466017E-02_JPRB &
+  &, 0.420617E-02_JPRB, 0.378535E-02_JPRB, 0.339970E-02_JPRB &
+  &, 0.305123E-02_JPRB, 0.274199E-02_JPRB, 0.242272E-02_JPRB, 0.219747E-02_JPRB &
+  &, 0.196495E-02_JPRB, 0.172509E-02_JPRB, 0.153215E-02_JPRB &
+  &, 0.138836E-02_JPRB, 0.124007E-02_JPRB, 0.108722E-02_JPRB, 0.987257E-03_JPRB &
+  &, 0.825940E-03_JPRB, 0.718997E-03_JPRB, 0.668798E-03_JPRB &
+  &, 0.556339E-03_JPRB, 0.502191E-03_JPRB, 0.446446E-03_JPRB, 0.389085E-03_JPRB &
+  &, 0.330092E-03_JPRB, 0.269447E-03_JPRB, 0.272845E-03_JPRB/)
+XCW( 452, :) = (/ &
+  &  0.984545E+00_JPRB, 0.979672E+00_JPRB, 0.974401E+00_JPRB, 0.968740E+00_JPRB &
+  &, 0.962687E+00_JPRB, 0.956249E+00_JPRB, 0.949427E+00_JPRB &
+  &, 0.942227E+00_JPRB, 0.934654E+00_JPRB, 0.926711E+00_JPRB, 0.918405E+00_JPRB &
+  &, 0.909740E+00_JPRB, 0.900722E+00_JPRB, 0.891357E+00_JPRB &
+  &, 0.881652E+00_JPRB, 0.871612E+00_JPRB, 0.861247E+00_JPRB, 0.850561E+00_JPRB &
+  &, 0.839567E+00_JPRB, 0.828268E+00_JPRB, 0.816676E+00_JPRB &
+  &, 0.804799E+00_JPRB, 0.792648E+00_JPRB, 0.780235E+00_JPRB, 0.767566E+00_JPRB &
+  &, 0.754658E+00_JPRB, 0.741521E+00_JPRB, 0.728164E+00_JPRB &
+  &, 0.714605E+00_JPRB, 0.700856E+00_JPRB, 0.686926E+00_JPRB, 0.672839E+00_JPRB &
+  &, 0.658600E+00_JPRB, 0.644228E+00_JPRB, 0.629739E+00_JPRB &
+  &, 0.615151E+00_JPRB, 0.600471E+00_JPRB, 0.585730E+00_JPRB, 0.570932E+00_JPRB &
+  &, 0.556104E+00_JPRB, 0.541257E+00_JPRB, 0.526402E+00_JPRB &
+  &, 0.511565E+00_JPRB, 0.496760E+00_JPRB, 0.482006E+00_JPRB, 0.467308E+00_JPRB &
+  &, 0.452697E+00_JPRB, 0.438196E+00_JPRB, 0.423798E+00_JPRB &
+  &, 0.409539E+00_JPRB, 0.395414E+00_JPRB, 0.381456E+00_JPRB, 0.367675E+00_JPRB &
+  &, 0.354077E+00_JPRB, 0.340683E+00_JPRB, 0.327498E+00_JPRB &
+  &, 0.314541E+00_JPRB, 0.301832E+00_JPRB, 0.289356E+00_JPRB, 0.277145E+00_JPRB &
+  &, 0.265217E+00_JPRB, 0.253550E+00_JPRB, 0.242159E+00_JPRB &
+  &, 0.231071E+00_JPRB, 0.220260E+00_JPRB, 0.209772E+00_JPRB, 0.199575E+00_JPRB &
+  &, 0.189674E+00_JPRB, 0.180111E+00_JPRB, 0.170848E+00_JPRB &
+  &, 0.161882E+00_JPRB, 0.153254E+00_JPRB, 0.144939E+00_JPRB, 0.136928E+00_JPRB &
+  &, 0.129212E+00_JPRB, 0.121827E+00_JPRB, 0.114737E+00_JPRB &
+  &, 0.107925E+00_JPRB, 0.101448E+00_JPRB, 0.952361E-01_JPRB, 0.893188E-01_JPRB &
+  &, 0.836720E-01_JPRB, 0.782957E-01_JPRB, 0.731883E-01_JPRB &
+  &, 0.683472E-01_JPRB, 0.637681E-01_JPRB, 0.594164E-01_JPRB, 0.552833E-01_JPRB &
+  &, 0.514181E-01_JPRB, 0.477509E-01_JPRB, 0.442988E-01_JPRB &
+  &, 0.410478E-01_JPRB, 0.380141E-01_JPRB, 0.351488E-01_JPRB, 0.324656E-01_JPRB &
+  &, 0.299443E-01_JPRB, 0.275974E-01_JPRB, 0.254025E-01_JPRB &
+  &, 0.233709E-01_JPRB, 0.214775E-01_JPRB, 0.196954E-01_JPRB, 0.180702E-01_JPRB &
+  &, 0.165358E-01_JPRB, 0.151378E-01_JPRB, 0.138059E-01_JPRB &
+  &, 0.125852E-01_JPRB, 0.114830E-01_JPRB, 0.104649E-01_JPRB, 0.949429E-02_JPRB &
+  &, 0.866024E-02_JPRB, 0.783990E-02_JPRB, 0.712329E-02_JPRB &
+  &, 0.642646E-02_JPRB, 0.579673E-02_JPRB, 0.523796E-02_JPRB, 0.475411E-02_JPRB &
+  &, 0.425385E-02_JPRB, 0.383375E-02_JPRB, 0.344883E-02_JPRB &
+  &, 0.310109E-02_JPRB, 0.279258E-02_JPRB, 0.247406E-02_JPRB, 0.224955E-02_JPRB &
+  &, 0.201779E-02_JPRB, 0.177868E-02_JPRB, 0.158651E-02_JPRB &
+  &, 0.138836E-02_JPRB, 0.124007E-02_JPRB, 0.108722E-02_JPRB, 0.987257E-03_JPRB &
+  &, 0.884221E-03_JPRB, 0.778080E-03_JPRB, 0.668798E-03_JPRB &
+  &, 0.617043E-03_JPRB, 0.502191E-03_JPRB, 0.446446E-03_JPRB, 0.389085E-03_JPRB &
+  &, 0.330092E-03_JPRB, 0.334309E-03_JPRB, 0.272845E-03_JPRB/)
+XCW( 453, :) = (/ &
+  &  0.984792E+00_JPRB, 0.979983E+00_JPRB, 0.974775E+00_JPRB, 0.969174E+00_JPRB &
+  &, 0.963181E+00_JPRB, 0.956801E+00_JPRB, 0.950039E+00_JPRB &
+  &, 0.942897E+00_JPRB, 0.935381E+00_JPRB, 0.927495E+00_JPRB, 0.919244E+00_JPRB &
+  &, 0.910634E+00_JPRB, 0.901669E+00_JPRB, 0.892357E+00_JPRB &
+  &, 0.882702E+00_JPRB, 0.872714E+00_JPRB, 0.862398E+00_JPRB, 0.851761E+00_JPRB &
+  &, 0.840812E+00_JPRB, 0.829559E+00_JPRB, 0.818012E+00_JPRB &
+  &, 0.806178E+00_JPRB, 0.794069E+00_JPRB, 0.781696E+00_JPRB, 0.769069E+00_JPRB &
+  &, 0.756197E+00_JPRB, 0.743093E+00_JPRB, 0.729771E+00_JPRB &
+  &, 0.716243E+00_JPRB, 0.702523E+00_JPRB, 0.688622E+00_JPRB, 0.674560E+00_JPRB &
+  &, 0.660348E+00_JPRB, 0.645998E+00_JPRB, 0.631531E+00_JPRB &
+  &, 0.616956E+00_JPRB, 0.602302E+00_JPRB, 0.587568E+00_JPRB, 0.572786E+00_JPRB &
+  &, 0.557964E+00_JPRB, 0.543122E+00_JPRB, 0.528282E+00_JPRB &
+  &, 0.513448E+00_JPRB, 0.498645E+00_JPRB, 0.483890E+00_JPRB, 0.469192E+00_JPRB &
+  &, 0.454579E+00_JPRB, 0.440074E+00_JPRB, 0.425671E+00_JPRB &
+  &, 0.411392E+00_JPRB, 0.397258E+00_JPRB, 0.383290E+00_JPRB, 0.369482E+00_JPRB &
+  &, 0.355869E+00_JPRB, 0.342458E+00_JPRB, 0.329254E+00_JPRB &
+  &, 0.316277E+00_JPRB, 0.303544E+00_JPRB, 0.291043E+00_JPRB, 0.278805E+00_JPRB &
+  &, 0.266829E+00_JPRB, 0.255130E+00_JPRB, 0.243721E+00_JPRB &
+  &, 0.232595E+00_JPRB, 0.221763E+00_JPRB, 0.211232E+00_JPRB, 0.200989E+00_JPRB &
+  &, 0.191079E+00_JPRB, 0.181466E+00_JPRB, 0.172149E+00_JPRB &
+  &, 0.163169E+00_JPRB, 0.154503E+00_JPRB, 0.146126E+00_JPRB, 0.138072E+00_JPRB &
+  &, 0.130334E+00_JPRB, 0.122902E+00_JPRB, 0.115762E+00_JPRB &
+  &, 0.108947E+00_JPRB, 0.102415E+00_JPRB, 0.961469E-01_JPRB, 0.901959E-01_JPRB &
+  &, 0.845136E-01_JPRB, 0.791268E-01_JPRB, 0.739808E-01_JPRB &
+  &, 0.690991E-01_JPRB, 0.644775E-01_JPRB, 0.600813E-01_JPRB, 0.559311E-01_JPRB &
+  &, 0.520179E-01_JPRB, 0.483312E-01_JPRB, 0.448586E-01_JPRB &
+  &, 0.415861E-01_JPRB, 0.384976E-01_JPRB, 0.356082E-01_JPRB, 0.328997E-01_JPRB &
+  &, 0.303520E-01_JPRB, 0.279777E-01_JPRB, 0.257894E-01_JPRB &
+  &, 0.237286E-01_JPRB, 0.218050E-01_JPRB, 0.199914E-01_JPRB, 0.183336E-01_JPRB &
+  &, 0.168036E-01_JPRB, 0.153712E-01_JPRB, 0.140431E-01_JPRB &
+  &, 0.128263E-01_JPRB, 0.116871E-01_JPRB, 0.106309E-01_JPRB, 0.966290E-02_JPRB &
+  &, 0.878870E-02_JPRB, 0.797040E-02_JPRB, 0.725584E-02_JPRB &
+  &, 0.656107E-02_JPRB, 0.593342E-02_JPRB, 0.537675E-02_JPRB, 0.484806E-02_JPRB &
+  &, 0.434922E-02_JPRB, 0.393056E-02_JPRB, 0.354708E-02_JPRB &
+  &, 0.315095E-02_JPRB, 0.284318E-02_JPRB, 0.252539E-02_JPRB, 0.230163E-02_JPRB &
+  &, 0.201779E-02_JPRB, 0.183228E-02_JPRB, 0.164087E-02_JPRB &
+  &, 0.144349E-02_JPRB, 0.129598E-02_JPRB, 0.114392E-02_JPRB, 0.987257E-03_JPRB &
+  &, 0.884221E-03_JPRB, 0.778080E-03_JPRB, 0.668798E-03_JPRB &
+  &, 0.617043E-03_JPRB, 0.563715E-03_JPRB, 0.446446E-03_JPRB, 0.389085E-03_JPRB &
+  &, 0.330092E-03_JPRB, 0.334309E-03_JPRB, 0.272845E-03_JPRB/)
+XCW( 454, :) = (/ &
+  &  0.985044E+00_JPRB, 0.980297E+00_JPRB, 0.975147E+00_JPRB, 0.969607E+00_JPRB &
+  &, 0.963674E+00_JPRB, 0.957354E+00_JPRB, 0.950651E+00_JPRB &
+  &, 0.943567E+00_JPRB, 0.936108E+00_JPRB, 0.928279E+00_JPRB, 0.920083E+00_JPRB &
+  &, 0.911527E+00_JPRB, 0.902616E+00_JPRB, 0.893356E+00_JPRB &
+  &, 0.883755E+00_JPRB, 0.873817E+00_JPRB, 0.863550E+00_JPRB, 0.852963E+00_JPRB &
+  &, 0.842060E+00_JPRB, 0.830853E+00_JPRB, 0.819348E+00_JPRB &
+  &, 0.807561E+00_JPRB, 0.795493E+00_JPRB, 0.783158E+00_JPRB, 0.770568E+00_JPRB &
+  &, 0.757736E+00_JPRB, 0.744665E+00_JPRB, 0.731378E+00_JPRB &
+  &, 0.717881E+00_JPRB, 0.704194E+00_JPRB, 0.690323E+00_JPRB, 0.676286E+00_JPRB &
+  &, 0.662096E+00_JPRB, 0.647772E+00_JPRB, 0.633327E+00_JPRB &
+  &, 0.618769E+00_JPRB, 0.604133E+00_JPRB, 0.589416E+00_JPRB, 0.574651E+00_JPRB &
+  &, 0.559835E+00_JPRB, 0.544998E+00_JPRB, 0.530162E+00_JPRB &
+  &, 0.515330E+00_JPRB, 0.500540E+00_JPRB, 0.485775E+00_JPRB, 0.471088E+00_JPRB &
+  &, 0.456473E+00_JPRB, 0.441952E+00_JPRB, 0.427531E+00_JPRB &
+  &, 0.413258E+00_JPRB, 0.399115E+00_JPRB, 0.385123E+00_JPRB, 0.371303E+00_JPRB &
+  &, 0.357676E+00_JPRB, 0.344248E+00_JPRB, 0.331026E+00_JPRB &
+  &, 0.318028E+00_JPRB, 0.305257E+00_JPRB, 0.292730E+00_JPRB, 0.280464E+00_JPRB &
+  &, 0.268476E+00_JPRB, 0.256745E+00_JPRB, 0.245301E+00_JPRB &
+  &, 0.234138E+00_JPRB, 0.223265E+00_JPRB, 0.212691E+00_JPRB, 0.202423E+00_JPRB &
+  &, 0.192465E+00_JPRB, 0.182820E+00_JPRB, 0.173491E+00_JPRB &
+  &, 0.164455E+00_JPRB, 0.155731E+00_JPRB, 0.147335E+00_JPRB, 0.139239E+00_JPRB &
+  &, 0.131457E+00_JPRB, 0.124001E+00_JPRB, 0.116811E+00_JPRB &
+  &, 0.109944E+00_JPRB, 0.103383E+00_JPRB, 0.970830E-01_JPRB, 0.910988E-01_JPRB &
+  &, 0.853816E-01_JPRB, 0.799311E-01_JPRB, 0.747732E-01_JPRB &
+  &, 0.698510E-01_JPRB, 0.651869E-01_JPRB, 0.607751E-01_JPRB, 0.565790E-01_JPRB &
+  &, 0.526478E-01_JPRB, 0.489116E-01_JPRB, 0.454185E-01_JPRB &
+  &, 0.420927E-01_JPRB, 0.389811E-01_JPRB, 0.360675E-01_JPRB, 0.333337E-01_JPRB &
+  &, 0.307937E-01_JPRB, 0.283925E-01_JPRB, 0.261411E-01_JPRB &
+  &, 0.240506E-01_JPRB, 0.220961E-01_JPRB, 0.202874E-01_JPRB, 0.186346E-01_JPRB &
+  &, 0.170714E-01_JPRB, 0.156045E-01_JPRB, 0.142803E-01_JPRB &
+  &, 0.130272E-01_JPRB, 0.118913E-01_JPRB, 0.108383E-01_JPRB, 0.983151E-02_JPRB &
+  &, 0.896000E-02_JPRB, 0.814440E-02_JPRB, 0.738838E-02_JPRB &
+  &, 0.669569E-02_JPRB, 0.602455E-02_JPRB, 0.546928E-02_JPRB, 0.494200E-02_JPRB &
+  &, 0.444458E-02_JPRB, 0.402736E-02_JPRB, 0.359621E-02_JPRB &
+  &, 0.325066E-02_JPRB, 0.289377E-02_JPRB, 0.262806E-02_JPRB, 0.235371E-02_JPRB &
+  &, 0.207062E-02_JPRB, 0.188588E-02_JPRB, 0.164087E-02_JPRB &
+  &, 0.149863E-02_JPRB, 0.129598E-02_JPRB, 0.114392E-02_JPRB, 0.104474E-02_JPRB &
+  &, 0.942503E-03_JPRB, 0.837163E-03_JPRB, 0.728689E-03_JPRB &
+  &, 0.617043E-03_JPRB, 0.563715E-03_JPRB, 0.508795E-03_JPRB, 0.452266E-03_JPRB &
+  &, 0.394110E-03_JPRB, 0.334309E-03_JPRB, 0.272845E-03_JPRB/)
+XCW( 455, :) = (/ &
+  &  0.985294E+00_JPRB, 0.980607E+00_JPRB, 0.975520E+00_JPRB, 0.970041E+00_JPRB &
+  &, 0.964168E+00_JPRB, 0.957907E+00_JPRB, 0.951262E+00_JPRB &
+  &, 0.944236E+00_JPRB, 0.936835E+00_JPRB, 0.929062E+00_JPRB, 0.920922E+00_JPRB &
+  &, 0.912420E+00_JPRB, 0.903565E+00_JPRB, 0.894357E+00_JPRB &
+  &, 0.884807E+00_JPRB, 0.874920E+00_JPRB, 0.864702E+00_JPRB, 0.854162E+00_JPRB &
+  &, 0.843309E+00_JPRB, 0.832147E+00_JPRB, 0.820687E+00_JPRB &
+  &, 0.808940E+00_JPRB, 0.796917E+00_JPRB, 0.784622E+00_JPRB, 0.772071E+00_JPRB &
+  &, 0.759274E+00_JPRB, 0.746241E+00_JPRB, 0.732988E+00_JPRB &
+  &, 0.719524E+00_JPRB, 0.705865E+00_JPRB, 0.692023E+00_JPRB, 0.678012E+00_JPRB &
+  &, 0.663852E+00_JPRB, 0.649546E+00_JPRB, 0.635123E+00_JPRB &
+  &, 0.620592E+00_JPRB, 0.605965E+00_JPRB, 0.591264E+00_JPRB, 0.576506E+00_JPRB &
+  &, 0.561706E+00_JPRB, 0.546884E+00_JPRB, 0.532053E+00_JPRB &
+  &, 0.517224E+00_JPRB, 0.502436E+00_JPRB, 0.487672E+00_JPRB, 0.472983E+00_JPRB &
+  &, 0.458367E+00_JPRB, 0.443830E+00_JPRB, 0.429416E+00_JPRB &
+  &, 0.415124E+00_JPRB, 0.400972E+00_JPRB, 0.386970E+00_JPRB, 0.373138E+00_JPRB &
+  &, 0.359482E+00_JPRB, 0.346038E+00_JPRB, 0.332783E+00_JPRB &
+  &, 0.319764E+00_JPRB, 0.306985E+00_JPRB, 0.294434E+00_JPRB, 0.282141E+00_JPRB &
+  &, 0.270106E+00_JPRB, 0.258359E+00_JPRB, 0.246881E+00_JPRB &
+  &, 0.235680E+00_JPRB, 0.224786E+00_JPRB, 0.214170E+00_JPRB, 0.203876E+00_JPRB &
+  &, 0.193870E+00_JPRB, 0.184195E+00_JPRB, 0.174812E+00_JPRB &
+  &, 0.165742E+00_JPRB, 0.157001E+00_JPRB, 0.148566E+00_JPRB, 0.140428E+00_JPRB &
+  &, 0.132602E+00_JPRB, 0.125099E+00_JPRB, 0.117884E+00_JPRB &
+  &, 0.110965E+00_JPRB, 0.104350E+00_JPRB, 0.980443E-01_JPRB, 0.920017E-01_JPRB &
+  &, 0.862495E-01_JPRB, 0.807622E-01_JPRB, 0.755657E-01_JPRB &
+  &, 0.706029E-01_JPRB, 0.658962E-01_JPRB, 0.614689E-01_JPRB, 0.572563E-01_JPRB &
+  &, 0.532777E-01_JPRB, 0.495225E-01_JPRB, 0.459783E-01_JPRB &
+  &, 0.426310E-01_JPRB, 0.394969E-01_JPRB, 0.365596E-01_JPRB, 0.338012E-01_JPRB &
+  &, 0.312015E-01_JPRB, 0.287728E-01_JPRB, 0.265280E-01_JPRB &
+  &, 0.244083E-01_JPRB, 0.224236E-01_JPRB, 0.206204E-01_JPRB, 0.188980E-01_JPRB &
+  &, 0.173392E-01_JPRB, 0.158378E-01_JPRB, 0.145174E-01_JPRB &
+  &, 0.132281E-01_JPRB, 0.120954E-01_JPRB, 0.110043E-01_JPRB, 0.100001E-01_JPRB &
+  &, 0.913129E-02_JPRB, 0.827490E-02_JPRB, 0.752093E-02_JPRB &
+  &, 0.678543E-02_JPRB, 0.616124E-02_JPRB, 0.556181E-02_JPRB, 0.503594E-02_JPRB &
+  &, 0.453995E-02_JPRB, 0.407576E-02_JPRB, 0.369446E-02_JPRB &
+  &, 0.330052E-02_JPRB, 0.294436E-02_JPRB, 0.267939E-02_JPRB, 0.240580E-02_JPRB &
+  &, 0.212346E-02_JPRB, 0.188588E-02_JPRB, 0.169523E-02_JPRB &
+  &, 0.149863E-02_JPRB, 0.135189E-02_JPRB, 0.120061E-02_JPRB, 0.104474E-02_JPRB &
+  &, 0.942503E-03_JPRB, 0.837163E-03_JPRB, 0.728689E-03_JPRB &
+  &, 0.617043E-03_JPRB, 0.563715E-03_JPRB, 0.508795E-03_JPRB, 0.452266E-03_JPRB &
+  &, 0.394110E-03_JPRB, 0.334309E-03_JPRB, 0.272845E-03_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART65',1,ZHOOK_HANDLE)
+END SUBROUTINE PART65
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART66
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART66',0,ZHOOK_HANDLE)
+
+XCW( 456, :) = (/ &
+  &  0.985545E+00_JPRB, 0.980919E+00_JPRB, 0.975893E+00_JPRB, 0.970474E+00_JPRB &
+  &, 0.964661E+00_JPRB, 0.958460E+00_JPRB, 0.951874E+00_JPRB &
+  &, 0.944907E+00_JPRB, 0.937562E+00_JPRB, 0.929844E+00_JPRB, 0.921762E+00_JPRB &
+  &, 0.913315E+00_JPRB, 0.904512E+00_JPRB, 0.895359E+00_JPRB &
+  &, 0.885860E+00_JPRB, 0.876024E+00_JPRB, 0.865856E+00_JPRB, 0.855365E+00_JPRB &
+  &, 0.844557E+00_JPRB, 0.833442E+00_JPRB, 0.822029E+00_JPRB &
+  &, 0.810326E+00_JPRB, 0.798342E+00_JPRB, 0.786087E+00_JPRB, 0.773577E+00_JPRB &
+  &, 0.760817E+00_JPRB, 0.747820E+00_JPRB, 0.734598E+00_JPRB &
+  &, 0.721170E+00_JPRB, 0.707539E+00_JPRB, 0.693727E+00_JPRB, 0.679742E+00_JPRB &
+  &, 0.665604E+00_JPRB, 0.651329E+00_JPRB, 0.636924E+00_JPRB &
+  &, 0.622406E+00_JPRB, 0.607805E+00_JPRB, 0.593112E+00_JPRB, 0.578371E+00_JPRB &
+  &, 0.563587E+00_JPRB, 0.548770E+00_JPRB, 0.533943E+00_JPRB &
+  &, 0.519129E+00_JPRB, 0.504332E+00_JPRB, 0.489580E+00_JPRB, 0.474879E+00_JPRB &
+  &, 0.460261E+00_JPRB, 0.445720E+00_JPRB, 0.431302E+00_JPRB &
+  &, 0.416990E+00_JPRB, 0.402829E+00_JPRB, 0.388817E+00_JPRB, 0.374972E+00_JPRB &
+  &, 0.361303E+00_JPRB, 0.347829E+00_JPRB, 0.334569E+00_JPRB &
+  &, 0.321515E+00_JPRB, 0.308714E+00_JPRB, 0.296137E+00_JPRB, 0.283817E+00_JPRB &
+  &, 0.271752E+00_JPRB, 0.259974E+00_JPRB, 0.248460E+00_JPRB &
+  &, 0.237241E+00_JPRB, 0.226307E+00_JPRB, 0.215668E+00_JPRB, 0.205329E+00_JPRB &
+  &, 0.195295E+00_JPRB, 0.185570E+00_JPRB, 0.176155E+00_JPRB &
+  &, 0.167049E+00_JPRB, 0.158250E+00_JPRB, 0.149775E+00_JPRB, 0.141617E+00_JPRB &
+  &, 0.133747E+00_JPRB, 0.126197E+00_JPRB, 0.118957E+00_JPRB &
+  &, 0.112011E+00_JPRB, 0.105342E+00_JPRB, 0.989804E-01_JPRB, 0.929046E-01_JPRB &
+  &, 0.871174E-01_JPRB, 0.815933E-01_JPRB, 0.763581E-01_JPRB &
+  &, 0.713826E-01_JPRB, 0.666340E-01_JPRB, 0.621627E-01_JPRB, 0.579041E-01_JPRB &
+  &, 0.539075E-01_JPRB, 0.501028E-01_JPRB, 0.465381E-01_JPRB &
+  &, 0.431693E-01_JPRB, 0.400126E-01_JPRB, 0.370190E-01_JPRB, 0.342353E-01_JPRB &
+  &, 0.316432E-01_JPRB, 0.291877E-01_JPRB, 0.268797E-01_JPRB &
+  &, 0.247661E-01_JPRB, 0.227874E-01_JPRB, 0.209164E-01_JPRB, 0.191990E-01_JPRB &
+  &, 0.176070E-01_JPRB, 0.161101E-01_JPRB, 0.147151E-01_JPRB &
+  &, 0.134691E-01_JPRB, 0.122996E-01_JPRB, 0.112117E-01_JPRB, 0.102109E-01_JPRB &
+  &, 0.925976E-02_JPRB, 0.840540E-02_JPRB, 0.765347E-02_JPRB &
+  &, 0.692004E-02_JPRB, 0.625237E-02_JPRB, 0.565435E-02_JPRB, 0.512989E-02_JPRB &
+  &, 0.463532E-02_JPRB, 0.417257E-02_JPRB, 0.374359E-02_JPRB &
+  &, 0.335037E-02_JPRB, 0.304555E-02_JPRB, 0.273073E-02_JPRB, 0.245788E-02_JPRB &
+  &, 0.217630E-02_JPRB, 0.193947E-02_JPRB, 0.174960E-02_JPRB &
+  &, 0.155376E-02_JPRB, 0.135189E-02_JPRB, 0.120061E-02_JPRB, 0.110223E-02_JPRB &
+  &, 0.942503E-03_JPRB, 0.837163E-03_JPRB, 0.728689E-03_JPRB &
+  &, 0.677748E-03_JPRB, 0.563715E-03_JPRB, 0.508795E-03_JPRB, 0.452266E-03_JPRB &
+  &, 0.394110E-03_JPRB, 0.334309E-03_JPRB, 0.272845E-03_JPRB/)
+XCW( 457, :) = (/ &
+  &  0.985794E+00_JPRB, 0.981230E+00_JPRB, 0.976266E+00_JPRB, 0.970908E+00_JPRB &
+  &, 0.965155E+00_JPRB, 0.959014E+00_JPRB, 0.952486E+00_JPRB &
+  &, 0.945576E+00_JPRB, 0.938289E+00_JPRB, 0.930629E+00_JPRB, 0.922602E+00_JPRB &
+  &, 0.914210E+00_JPRB, 0.905461E+00_JPRB, 0.896360E+00_JPRB &
+  &, 0.886914E+00_JPRB, 0.877129E+00_JPRB, 0.867010E+00_JPRB, 0.856568E+00_JPRB &
+  &, 0.845808E+00_JPRB, 0.834739E+00_JPRB, 0.823368E+00_JPRB &
+  &, 0.811708E+00_JPRB, 0.799766E+00_JPRB, 0.787555E+00_JPRB, 0.775083E+00_JPRB &
+  &, 0.762359E+00_JPRB, 0.749400E+00_JPRB, 0.736213E+00_JPRB &
+  &, 0.722816E+00_JPRB, 0.709218E+00_JPRB, 0.695432E+00_JPRB, 0.681477E+00_JPRB &
+  &, 0.667365E+00_JPRB, 0.653107E+00_JPRB, 0.638725E+00_JPRB &
+  &, 0.624229E+00_JPRB, 0.609636E+00_JPRB, 0.594970E+00_JPRB, 0.580245E+00_JPRB &
+  &, 0.565468E+00_JPRB, 0.550657E+00_JPRB, 0.535845E+00_JPRB &
+  &, 0.521022E+00_JPRB, 0.506239E+00_JPRB, 0.491488E+00_JPRB, 0.476787E+00_JPRB &
+  &, 0.462155E+00_JPRB, 0.447623E+00_JPRB, 0.433188E+00_JPRB &
+  &, 0.418869E+00_JPRB, 0.404700E+00_JPRB, 0.390664E+00_JPRB, 0.376807E+00_JPRB &
+  &, 0.363124E+00_JPRB, 0.349633E+00_JPRB, 0.336341E+00_JPRB &
+  &, 0.323282E+00_JPRB, 0.310442E+00_JPRB, 0.297841E+00_JPRB, 0.285493E+00_JPRB &
+  &, 0.273416E+00_JPRB, 0.261588E+00_JPRB, 0.250058E+00_JPRB &
+  &, 0.238801E+00_JPRB, 0.227828E+00_JPRB, 0.217146E+00_JPRB, 0.206781E+00_JPRB &
+  &, 0.196720E+00_JPRB, 0.186945E+00_JPRB, 0.177497E+00_JPRB &
+  &, 0.168356E+00_JPRB, 0.159520E+00_JPRB, 0.151006E+00_JPRB, 0.142806E+00_JPRB &
+  &, 0.134914E+00_JPRB, 0.127319E+00_JPRB, 0.120030E+00_JPRB &
+  &, 0.113033E+00_JPRB, 0.106335E+00_JPRB, 0.999418E-01_JPRB, 0.938333E-01_JPRB &
+  &, 0.880116E-01_JPRB, 0.824512E-01_JPRB, 0.771779E-01_JPRB &
+  &, 0.721345E-01_JPRB, 0.673717E-01_JPRB, 0.628565E-01_JPRB, 0.585814E-01_JPRB &
+  &, 0.545374E-01_JPRB, 0.507137E-01_JPRB, 0.470980E-01_JPRB &
+  &, 0.437076E-01_JPRB, 0.405284E-01_JPRB, 0.375111E-01_JPRB, 0.347027E-01_JPRB &
+  &, 0.320509E-01_JPRB, 0.296025E-01_JPRB, 0.272665E-01_JPRB &
+  &, 0.251238E-01_JPRB, 0.231149E-01_JPRB, 0.212495E-01_JPRB, 0.195000E-01_JPRB &
+  &, 0.178747E-01_JPRB, 0.163823E-01_JPRB, 0.149523E-01_JPRB &
+  &, 0.136700E-01_JPRB, 0.125037E-01_JPRB, 0.113777E-01_JPRB, 0.103795E-01_JPRB &
+  &, 0.943105E-02_JPRB, 0.857939E-02_JPRB, 0.778602E-02_JPRB &
+  &, 0.705465E-02_JPRB, 0.638907E-02_JPRB, 0.579314E-02_JPRB, 0.522383E-02_JPRB &
+  &, 0.473069E-02_JPRB, 0.426937E-02_JPRB, 0.384184E-02_JPRB &
+  &, 0.345008E-02_JPRB, 0.309614E-02_JPRB, 0.278206E-02_JPRB, 0.250996E-02_JPRB &
+  &, 0.222913E-02_JPRB, 0.199307E-02_JPRB, 0.180396E-02_JPRB &
+  &, 0.160889E-02_JPRB, 0.140780E-02_JPRB, 0.125731E-02_JPRB, 0.110223E-02_JPRB &
+  &, 0.100078E-02_JPRB, 0.896246E-03_JPRB, 0.788580E-03_JPRB &
+  &, 0.677748E-03_JPRB, 0.625239E-03_JPRB, 0.508795E-03_JPRB, 0.452266E-03_JPRB &
+  &, 0.394110E-03_JPRB, 0.334309E-03_JPRB, 0.338556E-03_JPRB/)
+XCW( 458, :) = (/ &
+  &  0.986045E+00_JPRB, 0.981543E+00_JPRB, 0.976640E+00_JPRB, 0.971341E+00_JPRB &
+  &, 0.965648E+00_JPRB, 0.959566E+00_JPRB, 0.953097E+00_JPRB &
+  &, 0.946246E+00_JPRB, 0.939016E+00_JPRB, 0.931414E+00_JPRB, 0.923442E+00_JPRB &
+  &, 0.915105E+00_JPRB, 0.906411E+00_JPRB, 0.897362E+00_JPRB &
+  &, 0.887968E+00_JPRB, 0.878233E+00_JPRB, 0.868165E+00_JPRB, 0.857771E+00_JPRB &
+  &, 0.847058E+00_JPRB, 0.836037E+00_JPRB, 0.824711E+00_JPRB &
+  &, 0.813094E+00_JPRB, 0.801194E+00_JPRB, 0.789023E+00_JPRB, 0.776589E+00_JPRB &
+  &, 0.763905E+00_JPRB, 0.750979E+00_JPRB, 0.737827E+00_JPRB &
+  &, 0.724462E+00_JPRB, 0.710897E+00_JPRB, 0.697140E+00_JPRB, 0.683211E+00_JPRB &
+  &, 0.669126E+00_JPRB, 0.654890E+00_JPRB, 0.640530E+00_JPRB &
+  &, 0.626052E+00_JPRB, 0.611486E+00_JPRB, 0.596828E+00_JPRB, 0.582110E+00_JPRB &
+  &, 0.567349E+00_JPRB, 0.552554E+00_JPRB, 0.537746E+00_JPRB &
+  &, 0.522938E+00_JPRB, 0.508146E+00_JPRB, 0.493396E+00_JPRB, 0.478695E+00_JPRB &
+  &, 0.464061E+00_JPRB, 0.449526E+00_JPRB, 0.435086E+00_JPRB &
+  &, 0.420761E+00_JPRB, 0.406571E+00_JPRB, 0.392525E+00_JPRB, 0.378656E+00_JPRB &
+  &, 0.364959E+00_JPRB, 0.351438E+00_JPRB, 0.338143E+00_JPRB &
+  &, 0.325048E+00_JPRB, 0.312187E+00_JPRB, 0.299561E+00_JPRB, 0.287186E+00_JPRB &
+  &, 0.275079E+00_JPRB, 0.263220E+00_JPRB, 0.251655E+00_JPRB &
+  &, 0.240362E+00_JPRB, 0.229368E+00_JPRB, 0.218663E+00_JPRB, 0.208254E+00_JPRB &
+  &, 0.198145E+00_JPRB, 0.188340E+00_JPRB, 0.178860E+00_JPRB &
+  &, 0.169685E+00_JPRB, 0.160812E+00_JPRB, 0.152259E+00_JPRB, 0.143996E+00_JPRB &
+  &, 0.136059E+00_JPRB, 0.128440E+00_JPRB, 0.121103E+00_JPRB &
+  &, 0.114079E+00_JPRB, 0.107352E+00_JPRB, 0.100903E+00_JPRB, 0.947619E-01_JPRB &
+  &, 0.889058E-01_JPRB, 0.833092E-01_JPRB, 0.779703E-01_JPRB &
+  &, 0.729142E-01_JPRB, 0.681095E-01_JPRB, 0.635503E-01_JPRB, 0.592587E-01_JPRB &
+  &, 0.551672E-01_JPRB, 0.513246E-01_JPRB, 0.476889E-01_JPRB &
+  &, 0.442459E-01_JPRB, 0.410441E-01_JPRB, 0.380032E-01_JPRB, 0.351702E-01_JPRB &
+  &, 0.324926E-01_JPRB, 0.299828E-01_JPRB, 0.276534E-01_JPRB &
+  &, 0.254816E-01_JPRB, 0.234424E-01_JPRB, 0.215455E-01_JPRB, 0.198010E-01_JPRB &
+  &, 0.181425E-01_JPRB, 0.166156E-01_JPRB, 0.152290E-01_JPRB &
+  &, 0.139111E-01_JPRB, 0.127079E-01_JPRB, 0.115851E-01_JPRB, 0.105481E-01_JPRB &
+  &, 0.960234E-02_JPRB, 0.870989E-02_JPRB, 0.791857E-02_JPRB &
+  &, 0.718926E-02_JPRB, 0.652576E-02_JPRB, 0.588567E-02_JPRB, 0.531777E-02_JPRB &
+  &, 0.482605E-02_JPRB, 0.431777E-02_JPRB, 0.389097E-02_JPRB &
+  &, 0.349994E-02_JPRB, 0.314673E-02_JPRB, 0.283340E-02_JPRB, 0.256204E-02_JPRB &
+  &, 0.228197E-02_JPRB, 0.204667E-02_JPRB, 0.180396E-02_JPRB &
+  &, 0.160889E-02_JPRB, 0.146372E-02_JPRB, 0.131401E-02_JPRB, 0.115971E-02_JPRB &
+  &, 0.100078E-02_JPRB, 0.896246E-03_JPRB, 0.788580E-03_JPRB &
+  &, 0.677748E-03_JPRB, 0.625239E-03_JPRB, 0.571145E-03_JPRB, 0.452266E-03_JPRB &
+  &, 0.394110E-03_JPRB, 0.334309E-03_JPRB, 0.338556E-03_JPRB/)
+XCW( 459, :) = (/ &
+  &  0.986296E+00_JPRB, 0.981853E+00_JPRB, 0.977011E+00_JPRB, 0.971775E+00_JPRB &
+  &, 0.966142E+00_JPRB, 0.960120E+00_JPRB, 0.953710E+00_JPRB &
+  &, 0.946917E+00_JPRB, 0.939744E+00_JPRB, 0.932198E+00_JPRB, 0.924282E+00_JPRB &
+  &, 0.916001E+00_JPRB, 0.907359E+00_JPRB, 0.898365E+00_JPRB &
+  &, 0.889023E+00_JPRB, 0.879340E+00_JPRB, 0.869322E+00_JPRB, 0.858975E+00_JPRB &
+  &, 0.848311E+00_JPRB, 0.837335E+00_JPRB, 0.826053E+00_JPRB &
+  &, 0.814480E+00_JPRB, 0.802625E+00_JPRB, 0.790494E+00_JPRB, 0.778099E+00_JPRB &
+  &, 0.765451E+00_JPRB, 0.752562E+00_JPRB, 0.739445E+00_JPRB &
+  &, 0.726112E+00_JPRB, 0.712576E+00_JPRB, 0.698852E+00_JPRB, 0.684950E+00_JPRB &
+  &, 0.670886E+00_JPRB, 0.656678E+00_JPRB, 0.642340E+00_JPRB &
+  &, 0.627885E+00_JPRB, 0.613327E+00_JPRB, 0.598696E+00_JPRB, 0.583995E+00_JPRB &
+  &, 0.569240E+00_JPRB, 0.554451E+00_JPRB, 0.539647E+00_JPRB &
+  &, 0.524843E+00_JPRB, 0.510064E+00_JPRB, 0.495304E+00_JPRB, 0.480615E+00_JPRB &
+  &, 0.465979E+00_JPRB, 0.451429E+00_JPRB, 0.436984E+00_JPRB &
+  &, 0.422653E+00_JPRB, 0.408455E+00_JPRB, 0.394399E+00_JPRB, 0.380505E+00_JPRB &
+  &, 0.366794E+00_JPRB, 0.353258E+00_JPRB, 0.339930E+00_JPRB &
+  &, 0.326815E+00_JPRB, 0.313931E+00_JPRB, 0.301280E+00_JPRB, 0.288863E+00_JPRB &
+  &, 0.276743E+00_JPRB, 0.264869E+00_JPRB, 0.253271E+00_JPRB &
+  &, 0.241941E+00_JPRB, 0.230907E+00_JPRB, 0.220161E+00_JPRB, 0.209726E+00_JPRB &
+  &, 0.199590E+00_JPRB, 0.189755E+00_JPRB, 0.180223E+00_JPRB &
+  &, 0.170992E+00_JPRB, 0.162104E+00_JPRB, 0.153490E+00_JPRB, 0.145207E+00_JPRB &
+  &, 0.137227E+00_JPRB, 0.129562E+00_JPRB, 0.122199E+00_JPRB &
+  &, 0.115124E+00_JPRB, 0.108369E+00_JPRB, 0.101890E+00_JPRB, 0.956906E-01_JPRB &
+  &, 0.898001E-01_JPRB, 0.841671E-01_JPRB, 0.787901E-01_JPRB &
+  &, 0.736939E-01_JPRB, 0.688756E-01_JPRB, 0.642730E-01_JPRB, 0.599360E-01_JPRB &
+  &, 0.558271E-01_JPRB, 0.519355E-01_JPRB, 0.482798E-01_JPRB &
+  &, 0.448159E-01_JPRB, 0.415599E-01_JPRB, 0.384954E-01_JPRB, 0.356377E-01_JPRB &
+  &, 0.329343E-01_JPRB, 0.303976E-01_JPRB, 0.280403E-01_JPRB &
+  &, 0.258393E-01_JPRB, 0.238062E-01_JPRB, 0.218785E-01_JPRB, 0.201020E-01_JPRB &
+  &, 0.184103E-01_JPRB, 0.168878E-01_JPRB, 0.154661E-01_JPRB &
+  &, 0.141521E-01_JPRB, 0.129120E-01_JPRB, 0.117925E-01_JPRB, 0.107167E-01_JPRB &
+  &, 0.977363E-02_JPRB, 0.888389E-02_JPRB, 0.809529E-02_JPRB &
+  &, 0.732387E-02_JPRB, 0.661689E-02_JPRB, 0.602447E-02_JPRB, 0.545869E-02_JPRB &
+  &, 0.492142E-02_JPRB, 0.441458E-02_JPRB, 0.398922E-02_JPRB &
+  &, 0.359965E-02_JPRB, 0.324791E-02_JPRB, 0.288473E-02_JPRB, 0.261413E-02_JPRB &
+  &, 0.233481E-02_JPRB, 0.210026E-02_JPRB, 0.185832E-02_JPRB &
+  &, 0.166403E-02_JPRB, 0.146372E-02_JPRB, 0.131401E-02_JPRB, 0.115971E-02_JPRB &
+  &, 0.105907E-02_JPRB, 0.896246E-03_JPRB, 0.788580E-03_JPRB &
+  &, 0.738452E-03_JPRB, 0.625239E-03_JPRB, 0.571145E-03_JPRB, 0.515447E-03_JPRB &
+  &, 0.458128E-03_JPRB, 0.399171E-03_JPRB, 0.338556E-03_JPRB/)
+XCW( 460, :) = (/ &
+  &  0.986545E+00_JPRB, 0.982165E+00_JPRB, 0.977385E+00_JPRB, 0.972208E+00_JPRB &
+  &, 0.966636E+00_JPRB, 0.960673E+00_JPRB, 0.954322E+00_JPRB &
+  &, 0.947587E+00_JPRB, 0.940472E+00_JPRB, 0.932983E+00_JPRB, 0.925123E+00_JPRB &
+  &, 0.916897E+00_JPRB, 0.908309E+00_JPRB, 0.899367E+00_JPRB &
+  &, 0.890078E+00_JPRB, 0.880446E+00_JPRB, 0.870478E+00_JPRB, 0.860181E+00_JPRB &
+  &, 0.849564E+00_JPRB, 0.838632E+00_JPRB, 0.827399E+00_JPRB &
+  &, 0.815869E+00_JPRB, 0.804057E+00_JPRB, 0.791966E+00_JPRB, 0.779609E+00_JPRB &
+  &, 0.767000E+00_JPRB, 0.754149E+00_JPRB, 0.741067E+00_JPRB &
+  &, 0.727766E+00_JPRB, 0.714259E+00_JPRB, 0.700565E+00_JPRB, 0.686692E+00_JPRB &
+  &, 0.672656E+00_JPRB, 0.658469E+00_JPRB, 0.644154E+00_JPRB &
+  &, 0.629717E+00_JPRB, 0.615177E+00_JPRB, 0.600563E+00_JPRB, 0.585870E+00_JPRB &
+  &, 0.571132E+00_JPRB, 0.556347E+00_JPRB, 0.541560E+00_JPRB &
+  &, 0.526759E+00_JPRB, 0.511983E+00_JPRB, 0.497224E+00_JPRB, 0.482534E+00_JPRB &
+  &, 0.467898E+00_JPRB, 0.453345E+00_JPRB, 0.438883E+00_JPRB &
+  &, 0.424545E+00_JPRB, 0.410339E+00_JPRB, 0.396274E+00_JPRB, 0.382368E+00_JPRB &
+  &, 0.368630E+00_JPRB, 0.355078E+00_JPRB, 0.341732E+00_JPRB &
+  &, 0.328597E+00_JPRB, 0.315691E+00_JPRB, 0.303016E+00_JPRB, 0.290589E+00_JPRB &
+  &, 0.278423E+00_JPRB, 0.266518E+00_JPRB, 0.254886E+00_JPRB &
+  &, 0.243520E+00_JPRB, 0.232447E+00_JPRB, 0.221677E+00_JPRB, 0.211198E+00_JPRB &
+  &, 0.201034E+00_JPRB, 0.191150E+00_JPRB, 0.181586E+00_JPRB &
+  &, 0.172342E+00_JPRB, 0.163396E+00_JPRB, 0.154743E+00_JPRB, 0.146419E+00_JPRB &
+  &, 0.138418E+00_JPRB, 0.130707E+00_JPRB, 0.123296E+00_JPRB &
+  &, 0.116195E+00_JPRB, 0.109386E+00_JPRB, 0.102876E+00_JPRB, 0.966451E-01_JPRB &
+  &, 0.906943E-01_JPRB, 0.850250E-01_JPRB, 0.796372E-01_JPRB &
+  &, 0.745015E-01_JPRB, 0.696133E-01_JPRB, 0.649957E-01_JPRB, 0.606133E-01_JPRB &
+  &, 0.564869E-01_JPRB, 0.525464E-01_JPRB, 0.488708E-01_JPRB &
+  &, 0.453542E-01_JPRB, 0.420756E-01_JPRB, 0.389875E-01_JPRB, 0.361051E-01_JPRB &
+  &, 0.333760E-01_JPRB, 0.308470E-01_JPRB, 0.284623E-01_JPRB &
+  &, 0.262329E-01_JPRB, 0.241337E-01_JPRB, 0.222115E-01_JPRB, 0.204030E-01_JPRB &
+  &, 0.187163E-01_JPRB, 0.171601E-01_JPRB, 0.157033E-01_JPRB &
+  &, 0.143530E-01_JPRB, 0.131162E-01_JPRB, 0.120000E-01_JPRB, 0.109275E-01_JPRB &
+  &, 0.994492E-02_JPRB, 0.905789E-02_JPRB, 0.822784E-02_JPRB &
+  &, 0.745848E-02_JPRB, 0.675359E-02_JPRB, 0.611700E-02_JPRB, 0.555263E-02_JPRB &
+  &, 0.501679E-02_JPRB, 0.451138E-02_JPRB, 0.408747E-02_JPRB &
+  &, 0.364951E-02_JPRB, 0.329851E-02_JPRB, 0.298740E-02_JPRB, 0.266621E-02_JPRB &
+  &, 0.238764E-02_JPRB, 0.215386E-02_JPRB, 0.191268E-02_JPRB &
+  &, 0.171916E-02_JPRB, 0.151963E-02_JPRB, 0.137070E-02_JPRB, 0.121720E-02_JPRB &
+  &, 0.105907E-02_JPRB, 0.955330E-03_JPRB, 0.848470E-03_JPRB &
+  &, 0.738452E-03_JPRB, 0.625239E-03_JPRB, 0.571145E-03_JPRB, 0.515447E-03_JPRB &
+  &, 0.458128E-03_JPRB, 0.399171E-03_JPRB, 0.338556E-03_JPRB/)
+XCW( 461, :) = (/ &
+  &  0.986793E+00_JPRB, 0.982478E+00_JPRB, 0.977757E+00_JPRB, 0.972642E+00_JPRB &
+  &, 0.967130E+00_JPRB, 0.961226E+00_JPRB, 0.954934E+00_JPRB &
+  &, 0.948258E+00_JPRB, 0.941201E+00_JPRB, 0.933768E+00_JPRB, 0.925964E+00_JPRB &
+  &, 0.917793E+00_JPRB, 0.909259E+00_JPRB, 0.900371E+00_JPRB &
+  &, 0.891134E+00_JPRB, 0.881553E+00_JPRB, 0.871634E+00_JPRB, 0.861387E+00_JPRB &
+  &, 0.850817E+00_JPRB, 0.839933E+00_JPRB, 0.828745E+00_JPRB &
+  &, 0.817258E+00_JPRB, 0.805488E+00_JPRB, 0.793437E+00_JPRB, 0.781122E+00_JPRB &
+  &, 0.768550E+00_JPRB, 0.755677E+00_JPRB, 0.742689E+00_JPRB &
+  &, 0.729420E+00_JPRB, 0.715946E+00_JPRB, 0.702282E+00_JPRB, 0.688435E+00_JPRB &
+  &, 0.674425E+00_JPRB, 0.660261E+00_JPRB, 0.645969E+00_JPRB &
+  &, 0.631549E+00_JPRB, 0.617037E+00_JPRB, 0.602431E+00_JPRB, 0.587754E+00_JPRB &
+  &, 0.573023E+00_JPRB, 0.558255E+00_JPRB, 0.543472E+00_JPRB &
+  &, 0.528675E+00_JPRB, 0.513901E+00_JPRB, 0.499155E+00_JPRB, 0.484454E+00_JPRB &
+  &, 0.469816E+00_JPRB, 0.455260E+00_JPRB, 0.440794E+00_JPRB &
+  &, 0.426450E+00_JPRB, 0.412224E+00_JPRB, 0.398148E+00_JPRB, 0.384231E+00_JPRB &
+  &, 0.370479E+00_JPRB, 0.356912E+00_JPRB, 0.343549E+00_JPRB &
+  &, 0.330395E+00_JPRB, 0.317452E+00_JPRB, 0.304752E+00_JPRB, 0.292298E+00_JPRB &
+  &, 0.280104E+00_JPRB, 0.268167E+00_JPRB, 0.256501E+00_JPRB &
+  &, 0.245116E+00_JPRB, 0.234005E+00_JPRB, 0.223213E+00_JPRB, 0.212690E+00_JPRB &
+  &, 0.202479E+00_JPRB, 0.192565E+00_JPRB, 0.182969E+00_JPRB &
+  &, 0.173671E+00_JPRB, 0.164688E+00_JPRB, 0.156018E+00_JPRB, 0.147653E+00_JPRB &
+  &, 0.139586E+00_JPRB, 0.131852E+00_JPRB, 0.124393E+00_JPRB &
+  &, 0.117265E+00_JPRB, 0.110403E+00_JPRB, 0.103863E+00_JPRB, 0.975996E-01_JPRB &
+  &, 0.916148E-01_JPRB, 0.859097E-01_JPRB, 0.804570E-01_JPRB &
+  &, 0.753091E-01_JPRB, 0.703795E-01_JPRB, 0.657184E-01_JPRB, 0.613200E-01_JPRB &
+  &, 0.571468E-01_JPRB, 0.531878E-01_JPRB, 0.494617E-01_JPRB &
+  &, 0.459242E-01_JPRB, 0.426236E-01_JPRB, 0.395125E-01_JPRB, 0.365726E-01_JPRB &
+  &, 0.338177E-01_JPRB, 0.312619E-01_JPRB, 0.288492E-01_JPRB &
+  &, 0.265906E-01_JPRB, 0.244975E-01_JPRB, 0.225446E-01_JPRB, 0.207040E-01_JPRB &
+  &, 0.189841E-01_JPRB, 0.174323E-01_JPRB, 0.159405E-01_JPRB &
+  &, 0.145941E-01_JPRB, 0.133611E-01_JPRB, 0.121659E-01_JPRB, 0.110961E-01_JPRB &
+  &, 0.101162E-01_JPRB, 0.918839E-02_JPRB, 0.836038E-02_JPRB &
+  &, 0.759309E-02_JPRB, 0.689028E-02_JPRB, 0.625579E-02_JPRB, 0.564657E-02_JPRB &
+  &, 0.511216E-02_JPRB, 0.460818E-02_JPRB, 0.413660E-02_JPRB &
+  &, 0.374922E-02_JPRB, 0.334910E-02_JPRB, 0.303874E-02_JPRB, 0.271829E-02_JPRB &
+  &, 0.244048E-02_JPRB, 0.220746E-02_JPRB, 0.196705E-02_JPRB &
+  &, 0.171916E-02_JPRB, 0.157554E-02_JPRB, 0.137070E-02_JPRB, 0.121720E-02_JPRB &
+  &, 0.111735E-02_JPRB, 0.955330E-03_JPRB, 0.848470E-03_JPRB &
+  &, 0.738452E-03_JPRB, 0.686763E-03_JPRB, 0.571145E-03_JPRB, 0.515447E-03_JPRB &
+  &, 0.458128E-03_JPRB, 0.399171E-03_JPRB, 0.338556E-03_JPRB/)
+XCW( 462, :) = (/ &
+  &  0.987045E+00_JPRB, 0.982789E+00_JPRB, 0.978130E+00_JPRB, 0.973075E+00_JPRB &
+  &, 0.967623E+00_JPRB, 0.961779E+00_JPRB, 0.955547E+00_JPRB &
+  &, 0.948929E+00_JPRB, 0.941929E+00_JPRB, 0.934554E+00_JPRB, 0.926805E+00_JPRB &
+  &, 0.918689E+00_JPRB, 0.910211E+00_JPRB, 0.901376E+00_JPRB &
+  &, 0.892191E+00_JPRB, 0.882661E+00_JPRB, 0.872792E+00_JPRB, 0.862594E+00_JPRB &
+  &, 0.852072E+00_JPRB, 0.841233E+00_JPRB, 0.830090E+00_JPRB &
+  &, 0.818651E+00_JPRB, 0.806919E+00_JPRB, 0.794912E+00_JPRB, 0.782636E+00_JPRB &
+  &, 0.770103E+00_JPRB, 0.757323E+00_JPRB, 0.744311E+00_JPRB &
+  &, 0.731078E+00_JPRB, 0.717633E+00_JPRB, 0.703998E+00_JPRB, 0.690178E+00_JPRB &
+  &, 0.676194E+00_JPRB, 0.662058E+00_JPRB, 0.647788E+00_JPRB &
+  &, 0.633391E+00_JPRB, 0.618887E+00_JPRB, 0.604299E+00_JPRB, 0.589639E+00_JPRB &
+  &, 0.574924E+00_JPRB, 0.560173E+00_JPRB, 0.545384E+00_JPRB &
+  &, 0.530602E+00_JPRB, 0.515831E+00_JPRB, 0.501087E+00_JPRB, 0.486386E+00_JPRB &
+  &, 0.471747E+00_JPRB, 0.457176E+00_JPRB, 0.442718E+00_JPRB &
+  &, 0.428355E+00_JPRB, 0.414121E+00_JPRB, 0.400037E+00_JPRB, 0.386095E+00_JPRB &
+  &, 0.372329E+00_JPRB, 0.358746E+00_JPRB, 0.345366E+00_JPRB &
+  &, 0.332177E+00_JPRB, 0.319228E+00_JPRB, 0.306505E+00_JPRB, 0.294024E+00_JPRB &
+  &, 0.281802E+00_JPRB, 0.269834E+00_JPRB, 0.258134E+00_JPRB &
+  &, 0.246713E+00_JPRB, 0.235582E+00_JPRB, 0.224729E+00_JPRB, 0.214181E+00_JPRB &
+  &, 0.203944E+00_JPRB, 0.194001E+00_JPRB, 0.184353E+00_JPRB &
+  &, 0.175020E+00_JPRB, 0.166001E+00_JPRB, 0.157293E+00_JPRB, 0.148887E+00_JPRB &
+  &, 0.140777E+00_JPRB, 0.132997E+00_JPRB, 0.125513E+00_JPRB &
+  &, 0.118335E+00_JPRB, 0.111445E+00_JPRB, 0.104850E+00_JPRB, 0.985541E-01_JPRB &
+  &, 0.925353E-01_JPRB, 0.867945E-01_JPRB, 0.813041E-01_JPRB &
+  &, 0.761166E-01_JPRB, 0.711456E-01_JPRB, 0.664701E-01_JPRB, 0.620268E-01_JPRB &
+  &, 0.578066E-01_JPRB, 0.538292E-01_JPRB, 0.500526E-01_JPRB &
+  &, 0.464942E-01_JPRB, 0.431716E-01_JPRB, 0.400046E-01_JPRB, 0.370735E-01_JPRB &
+  &, 0.342934E-01_JPRB, 0.316767E-01_JPRB, 0.292360E-01_JPRB &
+  &, 0.269841E-01_JPRB, 0.248614E-01_JPRB, 0.228776E-01_JPRB, 0.210050E-01_JPRB &
+  &, 0.192901E-01_JPRB, 0.177045E-01_JPRB, 0.162172E-01_JPRB &
+  &, 0.148351E-01_JPRB, 0.135653E-01_JPRB, 0.123734E-01_JPRB, 0.113068E-01_JPRB &
+  &, 0.102875E-01_JPRB, 0.936238E-02_JPRB, 0.853711E-02_JPRB &
+  &, 0.772770E-02_JPRB, 0.702697E-02_JPRB, 0.634832E-02_JPRB, 0.574052E-02_JPRB &
+  &, 0.520752E-02_JPRB, 0.470499E-02_JPRB, 0.423485E-02_JPRB &
+  &, 0.379908E-02_JPRB, 0.345028E-02_JPRB, 0.309007E-02_JPRB, 0.277037E-02_JPRB &
+  &, 0.249332E-02_JPRB, 0.220746E-02_JPRB, 0.202141E-02_JPRB &
+  &, 0.177430E-02_JPRB, 0.157554E-02_JPRB, 0.142740E-02_JPRB, 0.127469E-02_JPRB &
+  &, 0.111735E-02_JPRB, 0.101441E-02_JPRB, 0.908361E-03_JPRB &
+  &, 0.799156E-03_JPRB, 0.686763E-03_JPRB, 0.633494E-03_JPRB, 0.515447E-03_JPRB &
+  &, 0.458128E-03_JPRB, 0.399171E-03_JPRB, 0.338556E-03_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART66',1,ZHOOK_HANDLE)
+END SUBROUTINE PART66
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART67
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART67',0,ZHOOK_HANDLE)
+
+XCW( 463, :) = (/ &
+  &  0.987294E+00_JPRB, 0.983101E+00_JPRB, 0.978503E+00_JPRB, 0.973509E+00_JPRB &
+  &, 0.968117E+00_JPRB, 0.962333E+00_JPRB, 0.956159E+00_JPRB &
+  &, 0.949599E+00_JPRB, 0.942658E+00_JPRB, 0.935338E+00_JPRB, 0.927646E+00_JPRB &
+  &, 0.919585E+00_JPRB, 0.911162E+00_JPRB, 0.902381E+00_JPRB &
+  &, 0.893247E+00_JPRB, 0.883768E+00_JPRB, 0.873951E+00_JPRB, 0.863802E+00_JPRB &
+  &, 0.853328E+00_JPRB, 0.842537E+00_JPRB, 0.831439E+00_JPRB &
+  &, 0.820040E+00_JPRB, 0.808354E+00_JPRB, 0.796387E+00_JPRB, 0.784153E+00_JPRB &
+  &, 0.771656E+00_JPRB, 0.758914E+00_JPRB, 0.745936E+00_JPRB &
+  &, 0.732736E+00_JPRB, 0.719324E+00_JPRB, 0.705719E+00_JPRB, 0.691929E+00_JPRB &
+  &, 0.677972E+00_JPRB, 0.663858E+00_JPRB, 0.649607E+00_JPRB &
+  &, 0.635233E+00_JPRB, 0.620756E+00_JPRB, 0.606176E+00_JPRB, 0.591534E+00_JPRB &
+  &, 0.576826E+00_JPRB, 0.562080E+00_JPRB, 0.547307E+00_JPRB &
+  &, 0.532529E+00_JPRB, 0.517761E+00_JPRB, 0.503018E+00_JPRB, 0.488318E+00_JPRB &
+  &, 0.473677E+00_JPRB, 0.459104E+00_JPRB, 0.444642E+00_JPRB &
+  &, 0.430274E+00_JPRB, 0.416032E+00_JPRB, 0.401925E+00_JPRB, 0.387972E+00_JPRB &
+  &, 0.374193E+00_JPRB, 0.360596E+00_JPRB, 0.347183E+00_JPRB &
+  &, 0.333990E+00_JPRB, 0.321004E+00_JPRB, 0.308257E+00_JPRB, 0.295750E+00_JPRB &
+  &, 0.283499E+00_JPRB, 0.271501E+00_JPRB, 0.259767E+00_JPRB &
+  &, 0.248328E+00_JPRB, 0.237158E+00_JPRB, 0.226284E+00_JPRB, 0.215692E+00_JPRB &
+  &, 0.205408E+00_JPRB, 0.195416E+00_JPRB, 0.185757E+00_JPRB &
+  &, 0.176370E+00_JPRB, 0.167315E+00_JPRB, 0.158568E+00_JPRB, 0.150121E+00_JPRB &
+  &, 0.141991E+00_JPRB, 0.134166E+00_JPRB, 0.126634E+00_JPRB &
+  &, 0.119405E+00_JPRB, 0.112487E+00_JPRB, 0.105862E+00_JPRB, 0.995086E-01_JPRB &
+  &, 0.934558E-01_JPRB, 0.876792E-01_JPRB, 0.821512E-01_JPRB &
+  &, 0.769242E-01_JPRB, 0.719401E-01_JPRB, 0.671928E-01_JPRB, 0.627335E-01_JPRB &
+  &, 0.584665E-01_JPRB, 0.544401E-01_JPRB, 0.506747E-01_JPRB &
+  &, 0.470641E-01_JPRB, 0.437195E-01_JPRB, 0.405296E-01_JPRB, 0.375409E-01_JPRB &
+  &, 0.347351E-01_JPRB, 0.321262E-01_JPRB, 0.296581E-01_JPRB &
+  &, 0.273419E-01_JPRB, 0.251889E-01_JPRB, 0.232106E-01_JPRB, 0.213436E-01_JPRB &
+  &, 0.195962E-01_JPRB, 0.179767E-01_JPRB, 0.164544E-01_JPRB &
+  &, 0.150762E-01_JPRB, 0.138103E-01_JPRB, 0.125808E-01_JPRB, 0.114755E-01_JPRB &
+  &, 0.104588E-01_JPRB, 0.953638E-02_JPRB, 0.866966E-02_JPRB &
+  &, 0.786232E-02_JPRB, 0.716367E-02_JPRB, 0.648712E-02_JPRB, 0.588143E-02_JPRB &
+  &, 0.530289E-02_JPRB, 0.480179E-02_JPRB, 0.433310E-02_JPRB &
+  &, 0.389879E-02_JPRB, 0.350088E-02_JPRB, 0.314140E-02_JPRB, 0.282246E-02_JPRB &
+  &, 0.254615E-02_JPRB, 0.226105E-02_JPRB, 0.202141E-02_JPRB &
+  &, 0.182943E-02_JPRB, 0.163145E-02_JPRB, 0.142740E-02_JPRB, 0.127469E-02_JPRB &
+  &, 0.117563E-02_JPRB, 0.101441E-02_JPRB, 0.908361E-03_JPRB &
+  &, 0.799156E-03_JPRB, 0.686763E-03_JPRB, 0.633494E-03_JPRB, 0.578628E-03_JPRB &
+  &, 0.458128E-03_JPRB, 0.399171E-03_JPRB, 0.338556E-03_JPRB/)
+XCW( 464, :) = (/ &
+  &  0.987544E+00_JPRB, 0.983412E+00_JPRB, 0.978876E+00_JPRB, 0.973943E+00_JPRB &
+  &, 0.968611E+00_JPRB, 0.962887E+00_JPRB, 0.956772E+00_JPRB &
+  &, 0.950270E+00_JPRB, 0.943386E+00_JPRB, 0.936125E+00_JPRB, 0.928488E+00_JPRB &
+  &, 0.920482E+00_JPRB, 0.912113E+00_JPRB, 0.903386E+00_JPRB &
+  &, 0.894305E+00_JPRB, 0.884878E+00_JPRB, 0.875111E+00_JPRB, 0.865011E+00_JPRB &
+  &, 0.854584E+00_JPRB, 0.843841E+00_JPRB, 0.832788E+00_JPRB &
+  &, 0.821436E+00_JPRB, 0.809792E+00_JPRB, 0.797866E+00_JPRB, 0.785669E+00_JPRB &
+  &, 0.773213E+00_JPRB, 0.760505E+00_JPRB, 0.747562E+00_JPRB &
+  &, 0.734398E+00_JPRB, 0.721019E+00_JPRB, 0.707440E+00_JPRB, 0.693680E+00_JPRB &
+  &, 0.679746E+00_JPRB, 0.665659E+00_JPRB, 0.651435E+00_JPRB &
+  &, 0.637074E+00_JPRB, 0.622616E+00_JPRB, 0.608063E+00_JPRB, 0.593429E+00_JPRB &
+  &, 0.578738E+00_JPRB, 0.563998E+00_JPRB, 0.549241E+00_JPRB &
+  &, 0.534467E+00_JPRB, 0.519702E+00_JPRB, 0.504961E+00_JPRB, 0.490261E+00_JPRB &
+  &, 0.475608E+00_JPRB, 0.461044E+00_JPRB, 0.446566E+00_JPRB &
+  &, 0.432192E+00_JPRB, 0.417930E+00_JPRB, 0.403827E+00_JPRB, 0.389849E+00_JPRB &
+  &, 0.376057E+00_JPRB, 0.362445E+00_JPRB, 0.349016E+00_JPRB &
+  &, 0.335788E+00_JPRB, 0.322796E+00_JPRB, 0.310009E+00_JPRB, 0.297476E+00_JPRB &
+  &, 0.285197E+00_JPRB, 0.273167E+00_JPRB, 0.261418E+00_JPRB &
+  &, 0.249925E+00_JPRB, 0.238735E+00_JPRB, 0.227819E+00_JPRB, 0.217203E+00_JPRB &
+  &, 0.206873E+00_JPRB, 0.196872E+00_JPRB, 0.187140E+00_JPRB &
+  &, 0.177741E+00_JPRB, 0.168650E+00_JPRB, 0.159842E+00_JPRB, 0.151378E+00_JPRB &
+  &, 0.143204E+00_JPRB, 0.135334E+00_JPRB, 0.127755E+00_JPRB &
+  &, 0.120500E+00_JPRB, 0.113529E+00_JPRB, 0.106874E+00_JPRB, 0.100489E+00_JPRB &
+  &, 0.943763E-01_JPRB, 0.885640E-01_JPRB, 0.830256E-01_JPRB &
+  &, 0.777318E-01_JPRB, 0.727062E-01_JPRB, 0.679444E-01_JPRB, 0.634403E-01_JPRB &
+  &, 0.591563E-01_JPRB, 0.551121E-01_JPRB, 0.512656E-01_JPRB &
+  &, 0.476658E-01_JPRB, 0.442675E-01_JPRB, 0.410545E-01_JPRB, 0.380418E-01_JPRB &
+  &, 0.352108E-01_JPRB, 0.325410E-01_JPRB, 0.300801E-01_JPRB &
+  &, 0.277354E-01_JPRB, 0.255891E-01_JPRB, 0.235436E-01_JPRB, 0.216446E-01_JPRB &
+  &, 0.199022E-01_JPRB, 0.182490E-01_JPRB, 0.167311E-01_JPRB &
+  &, 0.153172E-01_JPRB, 0.140144E-01_JPRB, 0.128297E-01_JPRB, 0.116862E-01_JPRB &
+  &, 0.106729E-01_JPRB, 0.971038E-02_JPRB, 0.884639E-02_JPRB &
+  &, 0.804180E-02_JPRB, 0.730036E-02_JPRB, 0.662591E-02_JPRB, 0.597537E-02_JPRB &
+  &, 0.539826E-02_JPRB, 0.489860E-02_JPRB, 0.443135E-02_JPRB &
+  &, 0.399850E-02_JPRB, 0.360206E-02_JPRB, 0.324407E-02_JPRB, 0.292662E-02_JPRB &
+  &, 0.259899E-02_JPRB, 0.231465E-02_JPRB, 0.207577E-02_JPRB &
+  &, 0.188457E-02_JPRB, 0.168736E-02_JPRB, 0.148409E-02_JPRB, 0.133217E-02_JPRB &
+  &, 0.117563E-02_JPRB, 0.107350E-02_JPRB, 0.908361E-03_JPRB &
+  &, 0.799156E-03_JPRB, 0.748287E-03_JPRB, 0.633494E-03_JPRB, 0.578628E-03_JPRB &
+  &, 0.522147E-03_JPRB, 0.464032E-03_JPRB, 0.404267E-03_JPRB/)
+XCW( 465, :) = (/ &
+  &  0.987795E+00_JPRB, 0.983723E+00_JPRB, 0.979249E+00_JPRB, 0.974376E+00_JPRB &
+  &, 0.969105E+00_JPRB, 0.963440E+00_JPRB, 0.957384E+00_JPRB &
+  &, 0.950941E+00_JPRB, 0.944115E+00_JPRB, 0.936910E+00_JPRB, 0.929330E+00_JPRB &
+  &, 0.921380E+00_JPRB, 0.913065E+00_JPRB, 0.904391E+00_JPRB &
+  &, 0.895363E+00_JPRB, 0.885987E+00_JPRB, 0.876271E+00_JPRB, 0.866220E+00_JPRB &
+  &, 0.855842E+00_JPRB, 0.845145E+00_JPRB, 0.834137E+00_JPRB &
+  &, 0.822829E+00_JPRB, 0.811230E+00_JPRB, 0.799344E+00_JPRB, 0.787186E+00_JPRB &
+  &, 0.774770E+00_JPRB, 0.762099E+00_JPRB, 0.749192E+00_JPRB &
+  &, 0.736059E+00_JPRB, 0.722714E+00_JPRB, 0.709164E+00_JPRB, 0.695432E+00_JPRB &
+  &, 0.681528E+00_JPRB, 0.667464E+00_JPRB, 0.653262E+00_JPRB &
+  &, 0.638925E+00_JPRB, 0.624485E+00_JPRB, 0.609941E+00_JPRB, 0.595324E+00_JPRB &
+  &, 0.580650E+00_JPRB, 0.565927E+00_JPRB, 0.551174E+00_JPRB &
+  &, 0.536405E+00_JPRB, 0.521643E+00_JPRB, 0.506904E+00_JPRB, 0.492205E+00_JPRB &
+  &, 0.477563E+00_JPRB, 0.462985E+00_JPRB, 0.448503E+00_JPRB &
+  &, 0.434111E+00_JPRB, 0.419855E+00_JPRB, 0.405729E+00_JPRB, 0.391740E+00_JPRB &
+  &, 0.377936E+00_JPRB, 0.364294E+00_JPRB, 0.350848E+00_JPRB &
+  &, 0.337601E+00_JPRB, 0.324588E+00_JPRB, 0.311778E+00_JPRB, 0.299219E+00_JPRB &
+  &, 0.286911E+00_JPRB, 0.274851E+00_JPRB, 0.263069E+00_JPRB &
+  &, 0.251559E+00_JPRB, 0.240330E+00_JPRB, 0.229374E+00_JPRB, 0.218714E+00_JPRB &
+  &, 0.208357E+00_JPRB, 0.198307E+00_JPRB, 0.188565E+00_JPRB &
+  &, 0.179111E+00_JPRB, 0.169985E+00_JPRB, 0.161139E+00_JPRB, 0.152634E+00_JPRB &
+  &, 0.144418E+00_JPRB, 0.136502E+00_JPRB, 0.128899E+00_JPRB &
+  &, 0.121594E+00_JPRB, 0.114596E+00_JPRB, 0.107886E+00_JPRB, 0.101469E+00_JPRB &
+  &, 0.953232E-01_JPRB, 0.894755E-01_JPRB, 0.838727E-01_JPRB &
+  &, 0.785672E-01_JPRB, 0.735007E-01_JPRB, 0.686960E-01_JPRB, 0.641470E-01_JPRB &
+  &, 0.598461E-01_JPRB, 0.557535E-01_JPRB, 0.518876E-01_JPRB &
+  &, 0.482357E-01_JPRB, 0.448155E-01_JPRB, 0.415795E-01_JPRB, 0.385427E-01_JPRB &
+  &, 0.356865E-01_JPRB, 0.329904E-01_JPRB, 0.305021E-01_JPRB &
+  &, 0.281289E-01_JPRB, 0.259530E-01_JPRB, 0.238766E-01_JPRB, 0.219832E-01_JPRB &
+  &, 0.202082E-01_JPRB, 0.185601E-01_JPRB, 0.170078E-01_JPRB &
+  &, 0.155583E-01_JPRB, 0.142594E-01_JPRB, 0.130372E-01_JPRB, 0.118970E-01_JPRB &
+  &, 0.108442E-01_JPRB, 0.988438E-02_JPRB, 0.897893E-02_JPRB &
+  &, 0.817641E-02_JPRB, 0.743706E-02_JPRB, 0.671844E-02_JPRB, 0.611629E-02_JPRB &
+  &, 0.554131E-02_JPRB, 0.499540E-02_JPRB, 0.452960E-02_JPRB &
+  &, 0.404836E-02_JPRB, 0.365265E-02_JPRB, 0.329541E-02_JPRB, 0.297870E-02_JPRB &
+  &, 0.265183E-02_JPRB, 0.236825E-02_JPRB, 0.213013E-02_JPRB &
+  &, 0.188457E-02_JPRB, 0.168736E-02_JPRB, 0.154079E-02_JPRB, 0.133217E-02_JPRB &
+  &, 0.123391E-02_JPRB, 0.107350E-02_JPRB, 0.968252E-03_JPRB &
+  &, 0.859861E-03_JPRB, 0.748287E-03_JPRB, 0.633494E-03_JPRB, 0.578628E-03_JPRB &
+  &, 0.522147E-03_JPRB, 0.464032E-03_JPRB, 0.404267E-03_JPRB/)
+XCW( 466, :) = (/ &
+  &  0.988045E+00_JPRB, 0.984036E+00_JPRB, 0.979622E+00_JPRB, 0.974810E+00_JPRB &
+  &, 0.969599E+00_JPRB, 0.963994E+00_JPRB, 0.957998E+00_JPRB &
+  &, 0.951612E+00_JPRB, 0.944844E+00_JPRB, 0.937696E+00_JPRB, 0.930173E+00_JPRB &
+  &, 0.922279E+00_JPRB, 0.914017E+00_JPRB, 0.905397E+00_JPRB &
+  &, 0.896422E+00_JPRB, 0.887098E+00_JPRB, 0.877432E+00_JPRB, 0.867430E+00_JPRB &
+  &, 0.857101E+00_JPRB, 0.846452E+00_JPRB, 0.835489E+00_JPRB &
+  &, 0.824224E+00_JPRB, 0.812668E+00_JPRB, 0.800826E+00_JPRB, 0.788707E+00_JPRB &
+  &, 0.776326E+00_JPRB, 0.763697E+00_JPRB, 0.750825E+00_JPRB &
+  &, 0.737725E+00_JPRB, 0.724409E+00_JPRB, 0.710893E+00_JPRB, 0.697191E+00_JPRB &
+  &, 0.683310E+00_JPRB, 0.669273E+00_JPRB, 0.655090E+00_JPRB &
+  &, 0.640776E+00_JPRB, 0.626354E+00_JPRB, 0.611837E+00_JPRB, 0.597228E+00_JPRB &
+  &, 0.582562E+00_JPRB, 0.567855E+00_JPRB, 0.553108E+00_JPRB &
+  &, 0.538343E+00_JPRB, 0.523596E+00_JPRB, 0.508859E+00_JPRB, 0.494148E+00_JPRB &
+  &, 0.479506E+00_JPRB, 0.464926E+00_JPRB, 0.450440E+00_JPRB &
+  &, 0.436042E+00_JPRB, 0.421779E+00_JPRB, 0.407631E+00_JPRB, 0.393646E+00_JPRB &
+  &, 0.379815E+00_JPRB, 0.366158E+00_JPRB, 0.352695E+00_JPRB &
+  &, 0.339430E+00_JPRB, 0.326380E+00_JPRB, 0.313562E+00_JPRB, 0.300978E+00_JPRB &
+  &, 0.288626E+00_JPRB, 0.276552E+00_JPRB, 0.264737E+00_JPRB &
+  &, 0.253192E+00_JPRB, 0.241925E+00_JPRB, 0.230947E+00_JPRB, 0.220245E+00_JPRB &
+  &, 0.209862E+00_JPRB, 0.199763E+00_JPRB, 0.189970E+00_JPRB &
+  &, 0.180503E+00_JPRB, 0.171320E+00_JPRB, 0.162458E+00_JPRB, 0.153891E+00_JPRB &
+  &, 0.145632E+00_JPRB, 0.137694E+00_JPRB, 0.130043E+00_JPRB &
+  &, 0.122688E+00_JPRB, 0.115662E+00_JPRB, 0.108898E+00_JPRB, 0.102449E+00_JPRB &
+  &, 0.962700E-01_JPRB, 0.903871E-01_JPRB, 0.847471E-01_JPRB &
+  &, 0.794026E-01_JPRB, 0.742952E-01_JPRB, 0.694765E-01_JPRB, 0.648832E-01_JPRB &
+  &, 0.605360E-01_JPRB, 0.564255E-01_JPRB, 0.525097E-01_JPRB &
+  &, 0.488374E-01_JPRB, 0.453635E-01_JPRB, 0.421044E-01_JPRB, 0.390435E-01_JPRB &
+  &, 0.361622E-01_JPRB, 0.334399E-01_JPRB, 0.309242E-01_JPRB &
+  &, 0.285224E-01_JPRB, 0.263168E-01_JPRB, 0.242467E-01_JPRB, 0.223219E-01_JPRB &
+  &, 0.205143E-01_JPRB, 0.188323E-01_JPRB, 0.172845E-01_JPRB &
+  &, 0.158395E-01_JPRB, 0.145044E-01_JPRB, 0.132446E-01_JPRB, 0.121077E-01_JPRB &
+  &, 0.110155E-01_JPRB, 0.100584E-01_JPRB, 0.915566E-02_JPRB &
+  &, 0.831102E-02_JPRB, 0.757375E-02_JPRB, 0.685724E-02_JPRB, 0.621023E-02_JPRB &
+  &, 0.563668E-02_JPRB, 0.509220E-02_JPRB, 0.457873E-02_JPRB &
+  &, 0.414807E-02_JPRB, 0.375384E-02_JPRB, 0.334674E-02_JPRB, 0.303079E-02_JPRB &
+  &, 0.270466E-02_JPRB, 0.242184E-02_JPRB, 0.218450E-02_JPRB &
+  &, 0.193970E-02_JPRB, 0.174328E-02_JPRB, 0.154079E-02_JPRB, 0.138966E-02_JPRB &
+  &, 0.123391E-02_JPRB, 0.107350E-02_JPRB, 0.968252E-03_JPRB &
+  &, 0.859861E-03_JPRB, 0.748287E-03_JPRB, 0.695844E-03_JPRB, 0.578628E-03_JPRB &
+  &, 0.522147E-03_JPRB, 0.464032E-03_JPRB, 0.404267E-03_JPRB/)
+XCW( 467, :) = (/ &
+  &  0.988294E+00_JPRB, 0.984347E+00_JPRB, 0.979995E+00_JPRB, 0.975243E+00_JPRB &
+  &, 0.970092E+00_JPRB, 0.964548E+00_JPRB, 0.958610E+00_JPRB &
+  &, 0.952284E+00_JPRB, 0.945573E+00_JPRB, 0.938483E+00_JPRB, 0.931016E+00_JPRB &
+  &, 0.923176E+00_JPRB, 0.914970E+00_JPRB, 0.906405E+00_JPRB &
+  &, 0.897482E+00_JPRB, 0.888210E+00_JPRB, 0.878593E+00_JPRB, 0.868642E+00_JPRB &
+  &, 0.858360E+00_JPRB, 0.847759E+00_JPRB, 0.836841E+00_JPRB &
+  &, 0.825624E+00_JPRB, 0.814106E+00_JPRB, 0.802308E+00_JPRB, 0.790231E+00_JPRB &
+  &, 0.777890E+00_JPRB, 0.765295E+00_JPRB, 0.752458E+00_JPRB &
+  &, 0.739395E+00_JPRB, 0.726112E+00_JPRB, 0.712622E+00_JPRB, 0.698946E+00_JPRB &
+  &, 0.685097E+00_JPRB, 0.671083E+00_JPRB, 0.656928E+00_JPRB &
+  &, 0.642637E+00_JPRB, 0.628233E+00_JPRB, 0.613725E+00_JPRB, 0.599133E+00_JPRB &
+  &, 0.584484E+00_JPRB, 0.569783E+00_JPRB, 0.555042E+00_JPRB &
+  &, 0.540292E+00_JPRB, 0.525537E+00_JPRB, 0.510802E+00_JPRB, 0.496104E+00_JPRB &
+  &, 0.481461E+00_JPRB, 0.466879E+00_JPRB, 0.452377E+00_JPRB &
+  &, 0.437987E+00_JPRB, 0.423704E+00_JPRB, 0.409547E+00_JPRB, 0.395537E+00_JPRB &
+  &, 0.381693E+00_JPRB, 0.368022E+00_JPRB, 0.354542E+00_JPRB &
+  &, 0.341258E+00_JPRB, 0.328187E+00_JPRB, 0.315347E+00_JPRB, 0.302721E+00_JPRB &
+  &, 0.290357E+00_JPRB, 0.278254E+00_JPRB, 0.266406E+00_JPRB &
+  &, 0.254825E+00_JPRB, 0.243521E+00_JPRB, 0.232502E+00_JPRB, 0.221794E+00_JPRB &
+  &, 0.211366E+00_JPRB, 0.201239E+00_JPRB, 0.191394E+00_JPRB &
+  &, 0.181874E+00_JPRB, 0.172676E+00_JPRB, 0.163755E+00_JPRB, 0.155147E+00_JPRB &
+  &, 0.146868E+00_JPRB, 0.138886E+00_JPRB, 0.131188E+00_JPRB &
+  &, 0.123807E+00_JPRB, 0.116729E+00_JPRB, 0.109935E+00_JPRB, 0.103430E+00_JPRB &
+  &, 0.972168E-01_JPRB, 0.912986E-01_JPRB, 0.856216E-01_JPRB &
+  &, 0.802380E-01_JPRB, 0.751180E-01_JPRB, 0.702281E-01_JPRB, 0.656194E-01_JPRB &
+  &, 0.612258E-01_JPRB, 0.570669E-01_JPRB, 0.531628E-01_JPRB &
+  &, 0.494390E-01_JPRB, 0.459437E-01_JPRB, 0.426622E-01_JPRB, 0.395444E-01_JPRB &
+  &, 0.366379E-01_JPRB, 0.338893E-01_JPRB, 0.313462E-01_JPRB &
+  &, 0.289517E-01_JPRB, 0.266807E-01_JPRB, 0.246167E-01_JPRB, 0.226605E-01_JPRB &
+  &, 0.208203E-01_JPRB, 0.191045E-01_JPRB, 0.175612E-01_JPRB &
+  &, 0.160806E-01_JPRB, 0.147085E-01_JPRB, 0.134521E-01_JPRB, 0.123185E-01_JPRB &
+  &, 0.112296E-01_JPRB, 0.102324E-01_JPRB, 0.933239E-02_JPRB &
+  &, 0.849050E-02_JPRB, 0.771045E-02_JPRB, 0.699603E-02_JPRB, 0.635114E-02_JPRB &
+  &, 0.573205E-02_JPRB, 0.518901E-02_JPRB, 0.467698E-02_JPRB &
+  &, 0.424779E-02_JPRB, 0.380443E-02_JPRB, 0.344941E-02_JPRB, 0.308287E-02_JPRB &
+  &, 0.275750E-02_JPRB, 0.247544E-02_JPRB, 0.223886E-02_JPRB &
+  &, 0.199483E-02_JPRB, 0.179919E-02_JPRB, 0.159749E-02_JPRB, 0.144714E-02_JPRB &
+  &, 0.129219E-02_JPRB, 0.113258E-02_JPRB, 0.102814E-02_JPRB &
+  &, 0.859861E-03_JPRB, 0.809811E-03_JPRB, 0.695844E-03_JPRB, 0.641809E-03_JPRB &
+  &, 0.522147E-03_JPRB, 0.464032E-03_JPRB, 0.404267E-03_JPRB/)
+XCW( 468, :) = (/ &
+  &  0.988545E+00_JPRB, 0.984658E+00_JPRB, 0.980368E+00_JPRB, 0.975677E+00_JPRB &
+  &, 0.970587E+00_JPRB, 0.965101E+00_JPRB, 0.959223E+00_JPRB &
+  &, 0.952956E+00_JPRB, 0.946304E+00_JPRB, 0.939270E+00_JPRB, 0.931859E+00_JPRB &
+  &, 0.924075E+00_JPRB, 0.915924E+00_JPRB, 0.907411E+00_JPRB &
+  &, 0.898541E+00_JPRB, 0.889322E+00_JPRB, 0.879755E+00_JPRB, 0.869854E+00_JPRB &
+  &, 0.859621E+00_JPRB, 0.849066E+00_JPRB, 0.838196E+00_JPRB &
+  &, 0.827019E+00_JPRB, 0.815544E+00_JPRB, 0.803790E+00_JPRB, 0.791755E+00_JPRB &
+  &, 0.779451E+00_JPRB, 0.766894E+00_JPRB, 0.754095E+00_JPRB &
+  &, 0.741064E+00_JPRB, 0.727814E+00_JPRB, 0.714355E+00_JPRB, 0.700710E+00_JPRB &
+  &, 0.686888E+00_JPRB, 0.672897E+00_JPRB, 0.658765E+00_JPRB &
+  &, 0.644487E+00_JPRB, 0.630102E+00_JPRB, 0.615622E+00_JPRB, 0.601048E+00_JPRB &
+  &, 0.586406E+00_JPRB, 0.571712E+00_JPRB, 0.556987E+00_JPRB &
+  &, 0.542241E+00_JPRB, 0.527501E+00_JPRB, 0.512768E+00_JPRB, 0.498071E+00_JPRB &
+  &, 0.483416E+00_JPRB, 0.468832E+00_JPRB, 0.454326E+00_JPRB &
+  &, 0.439919E+00_JPRB, 0.425629E+00_JPRB, 0.411463E+00_JPRB, 0.397457E+00_JPRB &
+  &, 0.383587E+00_JPRB, 0.369901E+00_JPRB, 0.356390E+00_JPRB &
+  &, 0.343087E+00_JPRB, 0.329995E+00_JPRB, 0.317132E+00_JPRB, 0.304497E+00_JPRB &
+  &, 0.292089E+00_JPRB, 0.279955E+00_JPRB, 0.268074E+00_JPRB &
+  &, 0.256458E+00_JPRB, 0.245134E+00_JPRB, 0.234094E+00_JPRB, 0.223325E+00_JPRB &
+  &, 0.212870E+00_JPRB, 0.202694E+00_JPRB, 0.192840E+00_JPRB &
+  &, 0.183287E+00_JPRB, 0.174033E+00_JPRB, 0.165074E+00_JPRB, 0.156449E+00_JPRB &
+  &, 0.148105E+00_JPRB, 0.140078E+00_JPRB, 0.132356E+00_JPRB &
+  &, 0.124926E+00_JPRB, 0.117821E+00_JPRB, 0.110972E+00_JPRB, 0.104436E+00_JPRB &
+  &, 0.981899E-01_JPRB, 0.922101E-01_JPRB, 0.865233E-01_JPRB &
+  &, 0.811013E-01_JPRB, 0.759125E-01_JPRB, 0.710086E-01_JPRB, 0.663556E-01_JPRB &
+  &, 0.619456E-01_JPRB, 0.577389E-01_JPRB, 0.537848E-01_JPRB &
+  &, 0.500406E-01_JPRB, 0.465239E-01_JPRB, 0.431871E-01_JPRB, 0.400786E-01_JPRB &
+  &, 0.371136E-01_JPRB, 0.343733E-01_JPRB, 0.317682E-01_JPRB &
+  &, 0.293453E-01_JPRB, 0.270809E-01_JPRB, 0.249497E-01_JPRB, 0.229991E-01_JPRB &
+  &, 0.211263E-01_JPRB, 0.194156E-01_JPRB, 0.178379E-01_JPRB &
+  &, 0.163217E-01_JPRB, 0.149535E-01_JPRB, 0.137010E-01_JPRB, 0.125293E-01_JPRB &
+  &, 0.114009E-01_JPRB, 0.104064E-01_JPRB, 0.950912E-02_JPRB &
+  &, 0.862511E-02_JPRB, 0.784714E-02_JPRB, 0.713483E-02_JPRB, 0.644509E-02_JPRB &
+  &, 0.587510E-02_JPRB, 0.528581E-02_JPRB, 0.477524E-02_JPRB &
+  &, 0.434750E-02_JPRB, 0.390562E-02_JPRB, 0.350075E-02_JPRB, 0.318703E-02_JPRB &
+  &, 0.286317E-02_JPRB, 0.252903E-02_JPRB, 0.229322E-02_JPRB &
+  &, 0.204997E-02_JPRB, 0.185510E-02_JPRB, 0.165418E-02_JPRB, 0.144714E-02_JPRB &
+  &, 0.129219E-02_JPRB, 0.113258E-02_JPRB, 0.102814E-02_JPRB &
+  &, 0.920565E-03_JPRB, 0.809811E-03_JPRB, 0.695844E-03_JPRB, 0.641809E-03_JPRB &
+  &, 0.522147E-03_JPRB, 0.464032E-03_JPRB, 0.404267E-03_JPRB/)
+XCW( 469, :) = (/ &
+  &  0.988795E+00_JPRB, 0.984972E+00_JPRB, 0.980741E+00_JPRB, 0.976111E+00_JPRB &
+  &, 0.971081E+00_JPRB, 0.965655E+00_JPRB, 0.959836E+00_JPRB &
+  &, 0.953628E+00_JPRB, 0.947033E+00_JPRB, 0.940057E+00_JPRB, 0.932703E+00_JPRB &
+  &, 0.924973E+00_JPRB, 0.916879E+00_JPRB, 0.908419E+00_JPRB &
+  &, 0.899602E+00_JPRB, 0.890433E+00_JPRB, 0.880919E+00_JPRB, 0.871068E+00_JPRB &
+  &, 0.860884E+00_JPRB, 0.850373E+00_JPRB, 0.839552E+00_JPRB &
+  &, 0.828422E+00_JPRB, 0.816992E+00_JPRB, 0.805275E+00_JPRB, 0.793279E+00_JPRB &
+  &, 0.781015E+00_JPRB, 0.768496E+00_JPRB, 0.755732E+00_JPRB &
+  &, 0.742734E+00_JPRB, 0.729517E+00_JPRB, 0.716093E+00_JPRB, 0.702474E+00_JPRB &
+  &, 0.688679E+00_JPRB, 0.674715E+00_JPRB, 0.660602E+00_JPRB &
+  &, 0.646357E+00_JPRB, 0.631990E+00_JPRB, 0.617519E+00_JPRB, 0.602963E+00_JPRB &
+  &, 0.588338E+00_JPRB, 0.573662E+00_JPRB, 0.558942E+00_JPRB &
+  &, 0.544201E+00_JPRB, 0.529464E+00_JPRB, 0.514734E+00_JPRB, 0.500039E+00_JPRB &
+  &, 0.485383E+00_JPRB, 0.470798E+00_JPRB, 0.456289E+00_JPRB &
+  &, 0.441876E+00_JPRB, 0.427567E+00_JPRB, 0.413393E+00_JPRB, 0.399362E+00_JPRB &
+  &, 0.385494E+00_JPRB, 0.371780E+00_JPRB, 0.358268E+00_JPRB &
+  &, 0.344931E+00_JPRB, 0.331819E+00_JPRB, 0.318916E+00_JPRB, 0.306256E+00_JPRB &
+  &, 0.293837E+00_JPRB, 0.281673E+00_JPRB, 0.269761E+00_JPRB &
+  &, 0.258128E+00_JPRB, 0.246748E+00_JPRB, 0.235668E+00_JPRB, 0.224874E+00_JPRB &
+  &, 0.214374E+00_JPRB, 0.204170E+00_JPRB, 0.194285E+00_JPRB &
+  &, 0.184679E+00_JPRB, 0.175389E+00_JPRB, 0.166371E+00_JPRB, 0.157728E+00_JPRB &
+  &, 0.149364E+00_JPRB, 0.141293E+00_JPRB, 0.133524E+00_JPRB &
+  &, 0.126069E+00_JPRB, 0.118887E+00_JPRB, 0.112035E+00_JPRB, 0.105442E+00_JPRB &
+  &, 0.991630E-01_JPRB, 0.931485E-01_JPRB, 0.874250E-01_JPRB &
+  &, 0.819367E-01_JPRB, 0.767354E-01_JPRB, 0.717892E-01_JPRB, 0.670918E-01_JPRB &
+  &, 0.626355E-01_JPRB, 0.584109E-01_JPRB, 0.544380E-01_JPRB &
+  &, 0.506739E-01_JPRB, 0.471041E-01_JPRB, 0.437449E-01_JPRB, 0.405795E-01_JPRB &
+  &, 0.376232E-01_JPRB, 0.348227E-01_JPRB, 0.322255E-01_JPRB &
+  &, 0.297746E-01_JPRB, 0.274812E-01_JPRB, 0.253197E-01_JPRB, 0.233378E-01_JPRB &
+  &, 0.214706E-01_JPRB, 0.197267E-01_JPRB, 0.181146E-01_JPRB &
+  &, 0.166029E-01_JPRB, 0.151985E-01_JPRB, 0.139084E-01_JPRB, 0.127400E-01_JPRB &
+  &, 0.116150E-01_JPRB, 0.105804E-01_JPRB, 0.964166E-02_JPRB &
+  &, 0.880459E-02_JPRB, 0.798383E-02_JPRB, 0.727362E-02_JPRB, 0.658600E-02_JPRB &
+  &, 0.597046E-02_JPRB, 0.538262E-02_JPRB, 0.487349E-02_JPRB &
+  &, 0.439735E-02_JPRB, 0.400680E-02_JPRB, 0.360341E-02_JPRB, 0.323912E-02_JPRB &
+  &, 0.291601E-02_JPRB, 0.258263E-02_JPRB, 0.234758E-02_JPRB &
+  &, 0.210510E-02_JPRB, 0.185510E-02_JPRB, 0.165418E-02_JPRB, 0.150463E-02_JPRB &
+  &, 0.135047E-02_JPRB, 0.119166E-02_JPRB, 0.102814E-02_JPRB &
+  &, 0.920565E-03_JPRB, 0.809811E-03_JPRB, 0.758193E-03_JPRB, 0.641809E-03_JPRB &
+  &, 0.586165E-03_JPRB, 0.528894E-03_JPRB, 0.469978E-03_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART67',1,ZHOOK_HANDLE)
+END SUBROUTINE PART67
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART68
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART68',0,ZHOOK_HANDLE)
+
+XCW( 470, :) = (/ &
+  &  0.989045E+00_JPRB, 0.985282E+00_JPRB, 0.981114E+00_JPRB, 0.976545E+00_JPRB &
+  &, 0.971575E+00_JPRB, 0.966210E+00_JPRB, 0.960449E+00_JPRB &
+  &, 0.954299E+00_JPRB, 0.947763E+00_JPRB, 0.940844E+00_JPRB, 0.933546E+00_JPRB &
+  &, 0.925874E+00_JPRB, 0.917833E+00_JPRB, 0.909428E+00_JPRB &
+  &, 0.900663E+00_JPRB, 0.891547E+00_JPRB, 0.882083E+00_JPRB, 0.872281E+00_JPRB &
+  &, 0.862146E+00_JPRB, 0.851683E+00_JPRB, 0.840907E+00_JPRB &
+  &, 0.829821E+00_JPRB, 0.818437E+00_JPRB, 0.806760E+00_JPRB, 0.794806E+00_JPRB &
+  &, 0.782583E+00_JPRB, 0.770101E+00_JPRB, 0.757373E+00_JPRB &
+  &, 0.744411E+00_JPRB, 0.731224E+00_JPRB, 0.717830E+00_JPRB, 0.704242E+00_JPRB &
+  &, 0.690474E+00_JPRB, 0.676533E+00_JPRB, 0.662448E+00_JPRB &
+  &, 0.648217E+00_JPRB, 0.633869E+00_JPRB, 0.619425E+00_JPRB, 0.604878E+00_JPRB &
+  &, 0.590271E+00_JPRB, 0.575601E+00_JPRB, 0.560876E+00_JPRB &
+  &, 0.546162E+00_JPRB, 0.531428E+00_JPRB, 0.516701E+00_JPRB, 0.502006E+00_JPRB &
+  &, 0.487350E+00_JPRB, 0.472763E+00_JPRB, 0.458251E+00_JPRB &
+  &, 0.443821E+00_JPRB, 0.429518E+00_JPRB, 0.415336E+00_JPRB, 0.401282E+00_JPRB &
+  &, 0.387387E+00_JPRB, 0.373673E+00_JPRB, 0.360130E+00_JPRB &
+  &, 0.346791E+00_JPRB, 0.333642E+00_JPRB, 0.320733E+00_JPRB, 0.308032E+00_JPRB &
+  &, 0.295586E+00_JPRB, 0.283392E+00_JPRB, 0.271447E+00_JPRB &
+  &, 0.259779E+00_JPRB, 0.248381E+00_JPRB, 0.237260E+00_JPRB, 0.226443E+00_JPRB &
+  &, 0.215898E+00_JPRB, 0.205666E+00_JPRB, 0.195731E+00_JPRB &
+  &, 0.186092E+00_JPRB, 0.176768E+00_JPRB, 0.167734E+00_JPRB, 0.159029E+00_JPRB &
+  &, 0.150601E+00_JPRB, 0.142508E+00_JPRB, 0.134693E+00_JPRB &
+  &, 0.127188E+00_JPRB, 0.120004E+00_JPRB, 0.113097E+00_JPRB, 0.106474E+00_JPRB &
+  &, 0.100136E+00_JPRB, 0.940869E-01_JPRB, 0.882995E-01_JPRB &
+  &, 0.828000E-01_JPRB, 0.775583E-01_JPRB, 0.725986E-01_JPRB, 0.678574E-01_JPRB &
+  &, 0.633553E-01_JPRB, 0.591134E-01_JPRB, 0.550911E-01_JPRB &
+  &, 0.512756E-01_JPRB, 0.476844E-01_JPRB, 0.443026E-01_JPRB, 0.411137E-01_JPRB &
+  &, 0.381329E-01_JPRB, 0.353067E-01_JPRB, 0.326475E-01_JPRB &
+  &, 0.301681E-01_JPRB, 0.278450E-01_JPRB, 0.256898E-01_JPRB, 0.236764E-01_JPRB &
+  &, 0.217767E-01_JPRB, 0.200379E-01_JPRB, 0.183914E-01_JPRB &
+  &, 0.168841E-01_JPRB, 0.154434E-01_JPRB, 0.141573E-01_JPRB, 0.129508E-01_JPRB &
+  &, 0.118291E-01_JPRB, 0.107979E-01_JPRB, 0.981839E-02_JPRB &
+  &, 0.893920E-02_JPRB, 0.812053E-02_JPRB, 0.741242E-02_JPRB, 0.672692E-02_JPRB &
+  &, 0.606583E-02_JPRB, 0.552782E-02_JPRB, 0.497174E-02_JPRB &
+  &, 0.449707E-02_JPRB, 0.405739E-02_JPRB, 0.365475E-02_JPRB, 0.329120E-02_JPRB &
+  &, 0.296885E-02_JPRB, 0.268982E-02_JPRB, 0.240195E-02_JPRB &
+  &, 0.216024E-02_JPRB, 0.191101E-02_JPRB, 0.171088E-02_JPRB, 0.150463E-02_JPRB &
+  &, 0.135047E-02_JPRB, 0.119166E-02_JPRB, 0.108803E-02_JPRB &
+  &, 0.981270E-03_JPRB, 0.871335E-03_JPRB, 0.758193E-03_JPRB, 0.641809E-03_JPRB &
+  &, 0.586165E-03_JPRB, 0.528894E-03_JPRB, 0.469978E-03_JPRB/)
+XCW( 471, :) = (/ &
+  &  0.989294E+00_JPRB, 0.985593E+00_JPRB, 0.981486E+00_JPRB, 0.976979E+00_JPRB &
+  &, 0.972070E+00_JPRB, 0.966764E+00_JPRB, 0.961063E+00_JPRB &
+  &, 0.954972E+00_JPRB, 0.948494E+00_JPRB, 0.941631E+00_JPRB, 0.934390E+00_JPRB &
+  &, 0.926774E+00_JPRB, 0.918787E+00_JPRB, 0.910392E+00_JPRB &
+  &, 0.901725E+00_JPRB, 0.892660E+00_JPRB, 0.883248E+00_JPRB, 0.873496E+00_JPRB &
+  &, 0.863408E+00_JPRB, 0.852997E+00_JPRB, 0.842266E+00_JPRB &
+  &, 0.831223E+00_JPRB, 0.819881E+00_JPRB, 0.808249E+00_JPRB, 0.796337E+00_JPRB &
+  &, 0.784150E+00_JPRB, 0.771707E+00_JPRB, 0.759014E+00_JPRB &
+  &, 0.746085E+00_JPRB, 0.732935E+00_JPRB, 0.719571E+00_JPRB, 0.706010E+00_JPRB &
+  &, 0.692269E+00_JPRB, 0.678356E+00_JPRB, 0.664294E+00_JPRB &
+  &, 0.650087E+00_JPRB, 0.635757E+00_JPRB, 0.621332E+00_JPRB, 0.606803E+00_JPRB &
+  &, 0.592203E+00_JPRB, 0.577550E+00_JPRB, 0.562853E+00_JPRB &
+  &, 0.548122E+00_JPRB, 0.533392E+00_JPRB, 0.518679E+00_JPRB, 0.503962E+00_JPRB &
+  &, 0.489330E+00_JPRB, 0.474729E+00_JPRB, 0.460214E+00_JPRB &
+  &, 0.445792E+00_JPRB, 0.431470E+00_JPRB, 0.417266E+00_JPRB, 0.403215E+00_JPRB &
+  &, 0.389309E+00_JPRB, 0.375567E+00_JPRB, 0.362008E+00_JPRB &
+  &, 0.348635E+00_JPRB, 0.335482E+00_JPRB, 0.322534E+00_JPRB, 0.309824E+00_JPRB &
+  &, 0.297351E+00_JPRB, 0.285128E+00_JPRB, 0.273151E+00_JPRB &
+  &, 0.261448E+00_JPRB, 0.250013E+00_JPRB, 0.238871E+00_JPRB, 0.228013E+00_JPRB &
+  &, 0.217442E+00_JPRB, 0.207162E+00_JPRB, 0.197197E+00_JPRB &
+  &, 0.187526E+00_JPRB, 0.178146E+00_JPRB, 0.169075E+00_JPRB, 0.160331E+00_JPRB &
+  &, 0.151883E+00_JPRB, 0.143723E+00_JPRB, 0.135885E+00_JPRB &
+  &, 0.128331E+00_JPRB, 0.121095E+00_JPRB, 0.114160E+00_JPRB, 0.107506E+00_JPRB &
+  &, 0.101136E+00_JPRB, 0.950252E-01_JPRB, 0.892286E-01_JPRB &
+  &, 0.836911E-01_JPRB, 0.784095E-01_JPRB, 0.733791E-01_JPRB, 0.686231E-01_JPRB &
+  &, 0.640752E-01_JPRB, 0.598159E-01_JPRB, 0.557442E-01_JPRB &
+  &, 0.519089E-01_JPRB, 0.482968E-01_JPRB, 0.448604E-01_JPRB, 0.416480E-01_JPRB &
+  &, 0.386086E-01_JPRB, 0.357907E-01_JPRB, 0.331047E-01_JPRB &
+  &, 0.305974E-01_JPRB, 0.282453E-01_JPRB, 0.260598E-01_JPRB, 0.240150E-01_JPRB &
+  &, 0.221210E-01_JPRB, 0.203490E-01_JPRB, 0.186681E-01_JPRB &
+  &, 0.171252E-01_JPRB, 0.157292E-01_JPRB, 0.143648E-01_JPRB, 0.131615E-01_JPRB &
+  &, 0.120432E-01_JPRB, 0.109719E-01_JPRB, 0.999512E-02_JPRB &
+  &, 0.911869E-02_JPRB, 0.830279E-02_JPRB, 0.755121E-02_JPRB, 0.682086E-02_JPRB &
+  &, 0.620888E-02_JPRB, 0.562463E-02_JPRB, 0.506999E-02_JPRB &
+  &, 0.459678E-02_JPRB, 0.415858E-02_JPRB, 0.375742E-02_JPRB, 0.339536E-02_JPRB &
+  &, 0.302168E-02_JPRB, 0.274342E-02_JPRB, 0.245631E-02_JPRB &
+  &, 0.221537E-02_JPRB, 0.196692E-02_JPRB, 0.176757E-02_JPRB, 0.156211E-02_JPRB &
+  &, 0.140875E-02_JPRB, 0.125075E-02_JPRB, 0.108803E-02_JPRB &
+  &, 0.981270E-03_JPRB, 0.871335E-03_JPRB, 0.758193E-03_JPRB, 0.704990E-03_JPRB &
+  &, 0.586165E-03_JPRB, 0.528894E-03_JPRB, 0.469978E-03_JPRB/)
+XCW( 472, :) = (/ &
+  &  0.989542E+00_JPRB, 0.985906E+00_JPRB, 0.981859E+00_JPRB, 0.977413E+00_JPRB &
+  &, 0.972565E+00_JPRB, 0.967318E+00_JPRB, 0.961677E+00_JPRB &
+  &, 0.955645E+00_JPRB, 0.949224E+00_JPRB, 0.942420E+00_JPRB, 0.935235E+00_JPRB &
+  &, 0.927674E+00_JPRB, 0.919742E+00_JPRB, 0.911446E+00_JPRB &
+  &, 0.902787E+00_JPRB, 0.893775E+00_JPRB, 0.884415E+00_JPRB, 0.874711E+00_JPRB &
+  &, 0.864674E+00_JPRB, 0.854307E+00_JPRB, 0.843624E+00_JPRB &
+  &, 0.832626E+00_JPRB, 0.821330E+00_JPRB, 0.809738E+00_JPRB, 0.797865E+00_JPRB &
+  &, 0.785722E+00_JPRB, 0.773316E+00_JPRB, 0.760659E+00_JPRB &
+  &, 0.747766E+00_JPRB, 0.734646E+00_JPRB, 0.721316E+00_JPRB, 0.707782E+00_JPRB &
+  &, 0.694068E+00_JPRB, 0.680183E+00_JPRB, 0.666144E+00_JPRB &
+  &, 0.651956E+00_JPRB, 0.637655E+00_JPRB, 0.623239E+00_JPRB, 0.608728E+00_JPRB &
+  &, 0.594146E+00_JPRB, 0.579500E+00_JPRB, 0.564808E+00_JPRB &
+  &, 0.550093E+00_JPRB, 0.535367E+00_JPRB, 0.520656E+00_JPRB, 0.505965E+00_JPRB &
+  &, 0.491309E+00_JPRB, 0.476707E+00_JPRB, 0.462189E+00_JPRB &
+  &, 0.447750E+00_JPRB, 0.433421E+00_JPRB, 0.419223E+00_JPRB, 0.405149E+00_JPRB &
+  &, 0.391231E+00_JPRB, 0.377475E+00_JPRB, 0.363885E+00_JPRB &
+  &, 0.350510E+00_JPRB, 0.337321E+00_JPRB, 0.324351E+00_JPRB, 0.311617E+00_JPRB &
+  &, 0.299116E+00_JPRB, 0.286864E+00_JPRB, 0.274855E+00_JPRB &
+  &, 0.263118E+00_JPRB, 0.251664E+00_JPRB, 0.240483E+00_JPRB, 0.229582E+00_JPRB &
+  &, 0.218986E+00_JPRB, 0.208659E+00_JPRB, 0.198663E+00_JPRB &
+  &, 0.188938E+00_JPRB, 0.179545E+00_JPRB, 0.170438E+00_JPRB, 0.161632E+00_JPRB &
+  &, 0.153143E+00_JPRB, 0.144962E+00_JPRB, 0.137077E+00_JPRB &
+  &, 0.129499E+00_JPRB, 0.122211E+00_JPRB, 0.115222E+00_JPRB, 0.108537E+00_JPRB &
+  &, 0.102109E+00_JPRB, 0.959904E-01_JPRB, 0.901303E-01_JPRB &
+  &, 0.845543E-01_JPRB, 0.792324E-01_JPRB, 0.741886E-01_JPRB, 0.693887E-01_JPRB &
+  &, 0.648250E-01_JPRB, 0.604879E-01_JPRB, 0.563974E-01_JPRB &
+  &, 0.525422E-01_JPRB, 0.488770E-01_JPRB, 0.454182E-01_JPRB, 0.421822E-01_JPRB &
+  &, 0.391182E-01_JPRB, 0.362401E-01_JPRB, 0.335619E-01_JPRB &
+  &, 0.310267E-01_JPRB, 0.286455E-01_JPRB, 0.264298E-01_JPRB, 0.243913E-01_JPRB &
+  &, 0.224270E-01_JPRB, 0.206601E-01_JPRB, 0.189843E-01_JPRB &
+  &, 0.174064E-01_JPRB, 0.159742E-01_JPRB, 0.146137E-01_JPRB, 0.133723E-01_JPRB &
+  &, 0.122145E-01_JPRB, 0.111459E-01_JPRB, 0.101718E-01_JPRB &
+  &, 0.929817E-02_JPRB, 0.843948E-02_JPRB, 0.769001E-02_JPRB, 0.696177E-02_JPRB &
+  &, 0.630425E-02_JPRB, 0.572143E-02_JPRB, 0.516824E-02_JPRB &
+  &, 0.469649E-02_JPRB, 0.425976E-02_JPRB, 0.380875E-02_JPRB, 0.344745E-02_JPRB &
+  &, 0.307452E-02_JPRB, 0.279702E-02_JPRB, 0.251067E-02_JPRB &
+  &, 0.227051E-02_JPRB, 0.202284E-02_JPRB, 0.182427E-02_JPRB, 0.161960E-02_JPRB &
+  &, 0.140875E-02_JPRB, 0.125075E-02_JPRB, 0.114792E-02_JPRB &
+  &, 0.981270E-03_JPRB, 0.871335E-03_JPRB, 0.820543E-03_JPRB, 0.704990E-03_JPRB &
+  &, 0.650184E-03_JPRB, 0.528894E-03_JPRB, 0.469978E-03_JPRB/)
+XCW( 473, :) = (/ &
+  &  0.989792E+00_JPRB, 0.986216E+00_JPRB, 0.982233E+00_JPRB, 0.977847E+00_JPRB &
+  &, 0.973059E+00_JPRB, 0.967872E+00_JPRB, 0.962291E+00_JPRB &
+  &, 0.956317E+00_JPRB, 0.949955E+00_JPRB, 0.943208E+00_JPRB, 0.936080E+00_JPRB &
+  &, 0.928575E+00_JPRB, 0.920698E+00_JPRB, 0.912455E+00_JPRB &
+  &, 0.903851E+00_JPRB, 0.894891E+00_JPRB, 0.885580E+00_JPRB, 0.875928E+00_JPRB &
+  &, 0.865939E+00_JPRB, 0.855620E+00_JPRB, 0.844983E+00_JPRB &
+  &, 0.834032E+00_JPRB, 0.822778E+00_JPRB, 0.811230E+00_JPRB, 0.799400E+00_JPRB &
+  &, 0.787293E+00_JPRB, 0.774925E+00_JPRB, 0.762304E+00_JPRB &
+  &, 0.749447E+00_JPRB, 0.736361E+00_JPRB, 0.723062E+00_JPRB, 0.709559E+00_JPRB &
+  &, 0.695872E+00_JPRB, 0.682015E+00_JPRB, 0.667995E+00_JPRB &
+  &, 0.653835E+00_JPRB, 0.639553E+00_JPRB, 0.625155E+00_JPRB, 0.610663E+00_JPRB &
+  &, 0.596089E+00_JPRB, 0.581460E+00_JPRB, 0.566774E+00_JPRB &
+  &, 0.552076E+00_JPRB, 0.537354E+00_JPRB, 0.522634E+00_JPRB, 0.507944E+00_JPRB &
+  &, 0.493289E+00_JPRB, 0.478698E+00_JPRB, 0.464165E+00_JPRB &
+  &, 0.449721E+00_JPRB, 0.435386E+00_JPRB, 0.421167E+00_JPRB, 0.407083E+00_JPRB &
+  &, 0.393153E+00_JPRB, 0.379384E+00_JPRB, 0.365778E+00_JPRB &
+  &, 0.352370E+00_JPRB, 0.339177E+00_JPRB, 0.326185E+00_JPRB, 0.313409E+00_JPRB &
+  &, 0.300882E+00_JPRB, 0.288600E+00_JPRB, 0.276577E+00_JPRB &
+  &, 0.264806E+00_JPRB, 0.253315E+00_JPRB, 0.242094E+00_JPRB, 0.231170E+00_JPRB &
+  &, 0.220529E+00_JPRB, 0.210175E+00_JPRB, 0.200129E+00_JPRB &
+  &, 0.190372E+00_JPRB, 0.180945E+00_JPRB, 0.171801E+00_JPRB, 0.162956E+00_JPRB &
+  &, 0.154425E+00_JPRB, 0.146200E+00_JPRB, 0.138269E+00_JPRB &
+  &, 0.130666E+00_JPRB, 0.123328E+00_JPRB, 0.116310E+00_JPRB, 0.109569E+00_JPRB &
+  &, 0.103108E+00_JPRB, 0.969555E-01_JPRB, 0.910594E-01_JPRB &
+  &, 0.854455E-01_JPRB, 0.800836E-01_JPRB, 0.749980E-01_JPRB, 0.701543E-01_JPRB &
+  &, 0.655748E-01_JPRB, 0.611904E-01_JPRB, 0.570816E-01_JPRB &
+  &, 0.531755E-01_JPRB, 0.494895E-01_JPRB, 0.460087E-01_JPRB, 0.427165E-01_JPRB &
+  &, 0.396279E-01_JPRB, 0.367586E-01_JPRB, 0.340191E-01_JPRB &
+  &, 0.314560E-01_JPRB, 0.290821E-01_JPRB, 0.268369E-01_JPRB, 0.247299E-01_JPRB &
+  &, 0.227713E-01_JPRB, 0.209712E-01_JPRB, 0.192610E-01_JPRB &
+  &, 0.176877E-01_JPRB, 0.162192E-01_JPRB, 0.148626E-01_JPRB, 0.136252E-01_JPRB &
+  &, 0.124287E-01_JPRB, 0.113634E-01_JPRB, 0.103486E-01_JPRB &
+  &, 0.943278E-02_JPRB, 0.857618E-02_JPRB, 0.782880E-02_JPRB, 0.710269E-02_JPRB &
+  &, 0.644730E-02_JPRB, 0.586664E-02_JPRB, 0.526650E-02_JPRB &
+  &, 0.479620E-02_JPRB, 0.431036E-02_JPRB, 0.391142E-02_JPRB, 0.349953E-02_JPRB &
+  &, 0.318019E-02_JPRB, 0.285061E-02_JPRB, 0.256503E-02_JPRB &
+  &, 0.227051E-02_JPRB, 0.207875E-02_JPRB, 0.182427E-02_JPRB, 0.161960E-02_JPRB &
+  &, 0.146704E-02_JPRB, 0.130983E-02_JPRB, 0.114792E-02_JPRB &
+  &, 0.104197E-02_JPRB, 0.932859E-03_JPRB, 0.820543E-03_JPRB, 0.704990E-03_JPRB &
+  &, 0.650184E-03_JPRB, 0.528894E-03_JPRB, 0.469978E-03_JPRB/)
+XCW( 474, :) = (/ &
+  &  0.990043E+00_JPRB, 0.986529E+00_JPRB, 0.982606E+00_JPRB, 0.978281E+00_JPRB &
+  &, 0.973553E+00_JPRB, 0.968427E+00_JPRB, 0.962905E+00_JPRB &
+  &, 0.956989E+00_JPRB, 0.950686E+00_JPRB, 0.943996E+00_JPRB, 0.936925E+00_JPRB &
+  &, 0.929476E+00_JPRB, 0.921655E+00_JPRB, 0.913466E+00_JPRB &
+  &, 0.904914E+00_JPRB, 0.896007E+00_JPRB, 0.886748E+00_JPRB, 0.877146E+00_JPRB &
+  &, 0.867206E+00_JPRB, 0.856937E+00_JPRB, 0.846345E+00_JPRB &
+  &, 0.835437E+00_JPRB, 0.824229E+00_JPRB, 0.812723E+00_JPRB, 0.800934E+00_JPRB &
+  &, 0.788868E+00_JPRB, 0.776538E+00_JPRB, 0.763953E+00_JPRB &
+  &, 0.751129E+00_JPRB, 0.738076E+00_JPRB, 0.724807E+00_JPRB, 0.711339E+00_JPRB &
+  &, 0.697680E+00_JPRB, 0.683846E+00_JPRB, 0.669855E+00_JPRB &
+  &, 0.655714E+00_JPRB, 0.641451E+00_JPRB, 0.627072E+00_JPRB, 0.612598E+00_JPRB &
+  &, 0.598041E+00_JPRB, 0.583420E+00_JPRB, 0.568751E+00_JPRB &
+  &, 0.554047E+00_JPRB, 0.539340E+00_JPRB, 0.524624E+00_JPRB, 0.509936E+00_JPRB &
+  &, 0.495280E+00_JPRB, 0.480688E+00_JPRB, 0.466153E+00_JPRB &
+  &, 0.451705E+00_JPRB, 0.437365E+00_JPRB, 0.423124E+00_JPRB, 0.409030E+00_JPRB &
+  &, 0.395090E+00_JPRB, 0.381292E+00_JPRB, 0.367686E+00_JPRB &
+  &, 0.354245E+00_JPRB, 0.341032E+00_JPRB, 0.328018E+00_JPRB, 0.315218E+00_JPRB &
+  &, 0.302664E+00_JPRB, 0.290353E+00_JPRB, 0.278298E+00_JPRB &
+  &, 0.266493E+00_JPRB, 0.254984E+00_JPRB, 0.243724E+00_JPRB, 0.232759E+00_JPRB &
+  &, 0.222093E+00_JPRB, 0.211691E+00_JPRB, 0.201616E+00_JPRB &
+  &, 0.191827E+00_JPRB, 0.182344E+00_JPRB, 0.173164E+00_JPRB, 0.164280E+00_JPRB &
+  &, 0.155708E+00_JPRB, 0.147439E+00_JPRB, 0.139485E+00_JPRB &
+  &, 0.131833E+00_JPRB, 0.124469E+00_JPRB, 0.117398E+00_JPRB, 0.110627E+00_JPRB &
+  &, 0.104134E+00_JPRB, 0.979207E-01_JPRB, 0.919885E-01_JPRB &
+  &, 0.863366E-01_JPRB, 0.809349E-01_JPRB, 0.758074E-01_JPRB, 0.709494E-01_JPRB &
+  &, 0.662946E-01_JPRB, 0.619235E-01_JPRB, 0.577658E-01_JPRB &
+  &, 0.538088E-01_JPRB, 0.501019E-01_JPRB, 0.465993E-01_JPRB, 0.432841E-01_JPRB &
+  &, 0.401715E-01_JPRB, 0.372426E-01_JPRB, 0.344763E-01_JPRB &
+  &, 0.318853E-01_JPRB, 0.294824E-01_JPRB, 0.272069E-01_JPRB, 0.251062E-01_JPRB &
+  &, 0.231156E-01_JPRB, 0.212823E-01_JPRB, 0.195772E-01_JPRB &
+  &, 0.179689E-01_JPRB, 0.165050E-01_JPRB, 0.151116E-01_JPRB, 0.138360E-01_JPRB &
+  &, 0.126428E-01_JPRB, 0.115374E-01_JPRB, 0.105695E-01_JPRB &
+  &, 0.961226E-02_JPRB, 0.875844E-02_JPRB, 0.796760E-02_JPRB, 0.724360E-02_JPRB &
+  &, 0.659035E-02_JPRB, 0.596344E-02_JPRB, 0.541388E-02_JPRB &
+  &, 0.489592E-02_JPRB, 0.441154E-02_JPRB, 0.396276E-02_JPRB, 0.360369E-02_JPRB &
+  &, 0.323303E-02_JPRB, 0.290421E-02_JPRB, 0.261940E-02_JPRB &
+  &, 0.232564E-02_JPRB, 0.207875E-02_JPRB, 0.188097E-02_JPRB, 0.167709E-02_JPRB &
+  &, 0.152532E-02_JPRB, 0.136891E-02_JPRB, 0.120781E-02_JPRB &
+  &, 0.104197E-02_JPRB, 0.932859E-03_JPRB, 0.820543E-03_JPRB, 0.768171E-03_JPRB &
+  &, 0.650184E-03_JPRB, 0.593756E-03_JPRB, 0.535689E-03_JPRB/)
+XCW( 475, :) = (/ &
+  &  0.990295E+00_JPRB, 0.986839E+00_JPRB, 0.982979E+00_JPRB, 0.978714E+00_JPRB &
+  &, 0.974047E+00_JPRB, 0.968982E+00_JPRB, 0.963519E+00_JPRB &
+  &, 0.957663E+00_JPRB, 0.951417E+00_JPRB, 0.944785E+00_JPRB, 0.937770E+00_JPRB &
+  &, 0.930377E+00_JPRB, 0.922612E+00_JPRB, 0.914477E+00_JPRB &
+  &, 0.905980E+00_JPRB, 0.897124E+00_JPRB, 0.887917E+00_JPRB, 0.878364E+00_JPRB &
+  &, 0.868473E+00_JPRB, 0.858250E+00_JPRB, 0.847707E+00_JPRB &
+  &, 0.836847E+00_JPRB, 0.825681E+00_JPRB, 0.814218E+00_JPRB, 0.802469E+00_JPRB &
+  &, 0.790443E+00_JPRB, 0.778151E+00_JPRB, 0.765605E+00_JPRB &
+  &, 0.752814E+00_JPRB, 0.739795E+00_JPRB, 0.726561E+00_JPRB, 0.713120E+00_JPRB &
+  &, 0.699489E+00_JPRB, 0.685682E+00_JPRB, 0.671714E+00_JPRB &
+  &, 0.657593E+00_JPRB, 0.643349E+00_JPRB, 0.628988E+00_JPRB, 0.614532E+00_JPRB &
+  &, 0.599994E+00_JPRB, 0.585380E+00_JPRB, 0.570729E+00_JPRB &
+  &, 0.556040E+00_JPRB, 0.541327E+00_JPRB, 0.526625E+00_JPRB, 0.511939E+00_JPRB &
+  &, 0.497284E+00_JPRB, 0.482679E+00_JPRB, 0.468141E+00_JPRB &
+  &, 0.453689E+00_JPRB, 0.439329E+00_JPRB, 0.425095E+00_JPRB, 0.410992E+00_JPRB &
+  &, 0.397026E+00_JPRB, 0.383215E+00_JPRB, 0.369579E+00_JPRB &
+  &, 0.356136E+00_JPRB, 0.342887E+00_JPRB, 0.329852E+00_JPRB, 0.317044E+00_JPRB &
+  &, 0.304447E+00_JPRB, 0.292107E+00_JPRB, 0.280020E+00_JPRB &
+  &, 0.268199E+00_JPRB, 0.256635E+00_JPRB, 0.245355E+00_JPRB, 0.234366E+00_JPRB &
+  &, 0.223656E+00_JPRB, 0.213228E+00_JPRB, 0.203103E+00_JPRB &
+  &, 0.193283E+00_JPRB, 0.183766E+00_JPRB, 0.174549E+00_JPRB, 0.165626E+00_JPRB &
+  &, 0.157013E+00_JPRB, 0.148701E+00_JPRB, 0.140701E+00_JPRB &
+  &, 0.133001E+00_JPRB, 0.125585E+00_JPRB, 0.118486E+00_JPRB, 0.111685E+00_JPRB &
+  &, 0.105133E+00_JPRB, 0.988859E-01_JPRB, 0.929448E-01_JPRB &
+  &, 0.872277E-01_JPRB, 0.818145E-01_JPRB, 0.766458E-01_JPRB, 0.717151E-01_JPRB &
+  &, 0.670745E-01_JPRB, 0.626260E-01_JPRB, 0.584501E-01_JPRB &
+  &, 0.544737E-01_JPRB, 0.507144E-01_JPRB, 0.471899E-01_JPRB, 0.438517E-01_JPRB &
+  &, 0.406812E-01_JPRB, 0.377266E-01_JPRB, 0.349687E-01_JPRB &
+  &, 0.323503E-01_JPRB, 0.298826E-01_JPRB, 0.276139E-01_JPRB, 0.254824E-01_JPRB &
+  &, 0.234599E-01_JPRB, 0.215934E-01_JPRB, 0.198540E-01_JPRB &
+  &, 0.182501E-01_JPRB, 0.167500E-01_JPRB, 0.153605E-01_JPRB, 0.140467E-01_JPRB &
+  &, 0.128569E-01_JPRB, 0.117549E-01_JPRB, 0.107462E-01_JPRB &
+  &, 0.979174E-02_JPRB, 0.889513E-02_JPRB, 0.810640E-02_JPRB, 0.738452E-02_JPRB &
+  &, 0.668572E-02_JPRB, 0.606024E-02_JPRB, 0.551213E-02_JPRB &
+  &, 0.499563E-02_JPRB, 0.451272E-02_JPRB, 0.406543E-02_JPRB, 0.365578E-02_JPRB &
+  &, 0.328586E-02_JPRB, 0.295781E-02_JPRB, 0.267376E-02_JPRB &
+  &, 0.238077E-02_JPRB, 0.213466E-02_JPRB, 0.193766E-02_JPRB, 0.173457E-02_JPRB &
+  &, 0.152532E-02_JPRB, 0.136891E-02_JPRB, 0.120781E-02_JPRB &
+  &, 0.110268E-02_JPRB, 0.994383E-03_JPRB, 0.882892E-03_JPRB, 0.768171E-03_JPRB &
+  &, 0.650184E-03_JPRB, 0.593756E-03_JPRB, 0.535689E-03_JPRB/)
+XCW( 476, :) = (/ &
+  &  0.990542E+00_JPRB, 0.987151E+00_JPRB, 0.983352E+00_JPRB, 0.979149E+00_JPRB &
+  &, 0.974543E+00_JPRB, 0.969537E+00_JPRB, 0.964133E+00_JPRB &
+  &, 0.958336E+00_JPRB, 0.952149E+00_JPRB, 0.945575E+00_JPRB, 0.938617E+00_JPRB &
+  &, 0.931280E+00_JPRB, 0.923569E+00_JPRB, 0.915489E+00_JPRB &
+  &, 0.907045E+00_JPRB, 0.898241E+00_JPRB, 0.889085E+00_JPRB, 0.879583E+00_JPRB &
+  &, 0.869742E+00_JPRB, 0.859567E+00_JPRB, 0.849068E+00_JPRB &
+  &, 0.838256E+00_JPRB, 0.827136E+00_JPRB, 0.815714E+00_JPRB, 0.804007E+00_JPRB &
+  &, 0.792022E+00_JPRB, 0.779768E+00_JPRB, 0.767257E+00_JPRB &
+  &, 0.754503E+00_JPRB, 0.741518E+00_JPRB, 0.728314E+00_JPRB, 0.714901E+00_JPRB &
+  &, 0.701301E+00_JPRB, 0.687518E+00_JPRB, 0.673574E+00_JPRB &
+  &, 0.659481E+00_JPRB, 0.645256E+00_JPRB, 0.630915E+00_JPRB, 0.616477E+00_JPRB &
+  &, 0.601947E+00_JPRB, 0.587350E+00_JPRB, 0.572706E+00_JPRB &
+  &, 0.558023E+00_JPRB, 0.543325E+00_JPRB, 0.528626E+00_JPRB, 0.513942E+00_JPRB &
+  &, 0.499288E+00_JPRB, 0.484682E+00_JPRB, 0.470142E+00_JPRB &
+  &, 0.455673E+00_JPRB, 0.441321E+00_JPRB, 0.427066E+00_JPRB, 0.412940E+00_JPRB &
+  &, 0.398963E+00_JPRB, 0.385153E+00_JPRB, 0.371502E+00_JPRB &
+  &, 0.358026E+00_JPRB, 0.344759E+00_JPRB, 0.331701E+00_JPRB, 0.318853E+00_JPRB &
+  &, 0.306246E+00_JPRB, 0.293877E+00_JPRB, 0.281760E+00_JPRB &
+  &, 0.269905E+00_JPRB, 0.258323E+00_JPRB, 0.247004E+00_JPRB, 0.235974E+00_JPRB &
+  &, 0.225220E+00_JPRB, 0.214764E+00_JPRB, 0.204610E+00_JPRB &
+  &, 0.194738E+00_JPRB, 0.185187E+00_JPRB, 0.175933E+00_JPRB, 0.166972E+00_JPRB &
+  &, 0.158318E+00_JPRB, 0.149962E+00_JPRB, 0.141941E+00_JPRB &
+  &, 0.134193E+00_JPRB, 0.126751E+00_JPRB, 0.119599E+00_JPRB, 0.112742E+00_JPRB &
+  &, 0.106159E+00_JPRB, 0.998778E-01_JPRB, 0.938739E-01_JPRB &
+  &, 0.881466E-01_JPRB, 0.826657E-01_JPRB, 0.774841E-01_JPRB, 0.725102E-01_JPRB &
+  &, 0.678243E-01_JPRB, 0.633591E-01_JPRB, 0.591343E-01_JPRB &
+  &, 0.551387E-01_JPRB, 0.513268E-01_JPRB, 0.477804E-01_JPRB, 0.443860E-01_JPRB &
+  &, 0.412249E-01_JPRB, 0.382452E-01_JPRB, 0.354259E-01_JPRB &
+  &, 0.327796E-01_JPRB, 0.303192E-01_JPRB, 0.280209E-01_JPRB, 0.258587E-01_JPRB &
+  &, 0.238424E-01_JPRB, 0.219434E-01_JPRB, 0.201702E-01_JPRB &
+  &, 0.185314E-01_JPRB, 0.170358E-01_JPRB, 0.156094E-01_JPRB, 0.142997E-01_JPRB &
+  &, 0.130710E-01_JPRB, 0.119724E-01_JPRB, 0.109229E-01_JPRB &
+  &, 0.997122E-02_JPRB, 0.907739E-02_JPRB, 0.824519E-02_JPRB, 0.752543E-02_JPRB &
+  &, 0.682877E-02_JPRB, 0.620545E-02_JPRB, 0.561038E-02_JPRB &
+  &, 0.509534E-02_JPRB, 0.461391E-02_JPRB, 0.416809E-02_JPRB, 0.375994E-02_JPRB &
+  &, 0.339154E-02_JPRB, 0.306500E-02_JPRB, 0.272812E-02_JPRB &
+  &, 0.243591E-02_JPRB, 0.219057E-02_JPRB, 0.199436E-02_JPRB, 0.179206E-02_JPRB &
+  &, 0.158360E-02_JPRB, 0.142799E-02_JPRB, 0.126771E-02_JPRB &
+  &, 0.110268E-02_JPRB, 0.994383E-03_JPRB, 0.882892E-03_JPRB, 0.768171E-03_JPRB &
+  &, 0.714202E-03_JPRB, 0.593756E-03_JPRB, 0.535689E-03_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART68',1,ZHOOK_HANDLE)
+END SUBROUTINE PART68
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART69
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART69',0,ZHOOK_HANDLE)
+
+XCW( 477, :) = (/ &
+  &  0.990793E+00_JPRB, 0.987463E+00_JPRB, 0.983724E+00_JPRB, 0.979583E+00_JPRB &
+  &, 0.975037E+00_JPRB, 0.970091E+00_JPRB, 0.964748E+00_JPRB &
+  &, 0.959010E+00_JPRB, 0.952881E+00_JPRB, 0.946364E+00_JPRB, 0.939463E+00_JPRB &
+  &, 0.932183E+00_JPRB, 0.924527E+00_JPRB, 0.916501E+00_JPRB &
+  &, 0.908110E+00_JPRB, 0.899360E+00_JPRB, 0.890256E+00_JPRB, 0.880804E+00_JPRB &
+  &, 0.871012E+00_JPRB, 0.860887E+00_JPRB, 0.850434E+00_JPRB &
+  &, 0.839668E+00_JPRB, 0.828591E+00_JPRB, 0.817213E+00_JPRB, 0.805545E+00_JPRB &
+  &, 0.793600E+00_JPRB, 0.781385E+00_JPRB, 0.768914E+00_JPRB &
+  &, 0.756196E+00_JPRB, 0.743241E+00_JPRB, 0.730068E+00_JPRB, 0.716690E+00_JPRB &
+  &, 0.703113E+00_JPRB, 0.689363E+00_JPRB, 0.675443E+00_JPRB &
+  &, 0.661369E+00_JPRB, 0.647173E+00_JPRB, 0.632851E+00_JPRB, 0.618422E+00_JPRB &
+  &, 0.603911E+00_JPRB, 0.589332E+00_JPRB, 0.574693E+00_JPRB &
+  &, 0.560016E+00_JPRB, 0.545323E+00_JPRB, 0.530627E+00_JPRB, 0.515945E+00_JPRB &
+  &, 0.501292E+00_JPRB, 0.486685E+00_JPRB, 0.472143E+00_JPRB &
+  &, 0.457670E+00_JPRB, 0.443300E+00_JPRB, 0.429051E+00_JPRB, 0.414916E+00_JPRB &
+  &, 0.400913E+00_JPRB, 0.387077E+00_JPRB, 0.373410E+00_JPRB &
+  &, 0.359932E+00_JPRB, 0.346646E+00_JPRB, 0.333551E+00_JPRB, 0.320695E+00_JPRB &
+  &, 0.308062E+00_JPRB, 0.295666E+00_JPRB, 0.283517E+00_JPRB &
+  &, 0.271629E+00_JPRB, 0.260011E+00_JPRB, 0.248653E+00_JPRB, 0.237582E+00_JPRB &
+  &, 0.226803E+00_JPRB, 0.216321E+00_JPRB, 0.206118E+00_JPRB &
+  &, 0.196214E+00_JPRB, 0.186608E+00_JPRB, 0.177318E+00_JPRB, 0.168319E+00_JPRB &
+  &, 0.159624E+00_JPRB, 0.151248E+00_JPRB, 0.143156E+00_JPRB &
+  &, 0.135384E+00_JPRB, 0.127892E+00_JPRB, 0.120712E+00_JPRB, 0.113800E+00_JPRB &
+  &, 0.107211E+00_JPRB, 0.100870E+00_JPRB, 0.948303E-01_JPRB &
+  &, 0.890656E-01_JPRB, 0.835454E-01_JPRB, 0.783224E-01_JPRB, 0.733347E-01_JPRB &
+  &, 0.685741E-01_JPRB, 0.640921E-01_JPRB, 0.598186E-01_JPRB &
+  &, 0.558036E-01_JPRB, 0.519715E-01_JPRB, 0.483710E-01_JPRB, 0.449536E-01_JPRB &
+  &, 0.417685E-01_JPRB, 0.387292E-01_JPRB, 0.359183E-01_JPRB &
+  &, 0.332447E-01_JPRB, 0.307559E-01_JPRB, 0.284280E-01_JPRB, 0.262349E-01_JPRB &
+  &, 0.241867E-01_JPRB, 0.222545E-01_JPRB, 0.204864E-01_JPRB &
+  &, 0.188528E-01_JPRB, 0.172807E-01_JPRB, 0.158583E-01_JPRB, 0.145526E-01_JPRB &
+  &, 0.133279E-01_JPRB, 0.121898E-01_JPRB, 0.110997E-01_JPRB &
+  &, 0.101507E-01_JPRB, 0.925965E-02_JPRB, 0.843025E-02_JPRB, 0.766634E-02_JPRB &
+  &, 0.697182E-02_JPRB, 0.630225E-02_JPRB, 0.570863E-02_JPRB &
+  &, 0.519506E-02_JPRB, 0.471509E-02_JPRB, 0.421943E-02_JPRB, 0.381203E-02_JPRB &
+  &, 0.344437E-02_JPRB, 0.311860E-02_JPRB, 0.278248E-02_JPRB &
+  &, 0.249104E-02_JPRB, 0.224649E-02_JPRB, 0.199436E-02_JPRB, 0.179206E-02_JPRB &
+  &, 0.164188E-02_JPRB, 0.142799E-02_JPRB, 0.126771E-02_JPRB &
+  &, 0.116338E-02_JPRB, 0.994383E-03_JPRB, 0.882892E-03_JPRB, 0.831352E-03_JPRB &
+  &, 0.714202E-03_JPRB, 0.658618E-03_JPRB, 0.535689E-03_JPRB/)
+XCW( 478, :) = (/ &
+  &  0.991043E+00_JPRB, 0.987775E+00_JPRB, 0.984098E+00_JPRB, 0.980017E+00_JPRB &
+  &, 0.975533E+00_JPRB, 0.970647E+00_JPRB, 0.965363E+00_JPRB &
+  &, 0.959684E+00_JPRB, 0.953612E+00_JPRB, 0.947154E+00_JPRB, 0.940310E+00_JPRB &
+  &, 0.933086E+00_JPRB, 0.925485E+00_JPRB, 0.917515E+00_JPRB &
+  &, 0.909176E+00_JPRB, 0.900479E+00_JPRB, 0.891426E+00_JPRB, 0.882025E+00_JPRB &
+  &, 0.872284E+00_JPRB, 0.862207E+00_JPRB, 0.851802E+00_JPRB &
+  &, 0.841080E+00_JPRB, 0.830046E+00_JPRB, 0.818713E+00_JPRB, 0.807087E+00_JPRB &
+  &, 0.795182E+00_JPRB, 0.783005E+00_JPRB, 0.770570E+00_JPRB &
+  &, 0.757885E+00_JPRB, 0.744968E+00_JPRB, 0.731830E+00_JPRB, 0.718479E+00_JPRB &
+  &, 0.704935E+00_JPRB, 0.691208E+00_JPRB, 0.677312E+00_JPRB &
+  &, 0.663267E+00_JPRB, 0.649080E+00_JPRB, 0.634777E+00_JPRB, 0.620367E+00_JPRB &
+  &, 0.605874E+00_JPRB, 0.591302E+00_JPRB, 0.576681E+00_JPRB &
+  &, 0.562020E+00_JPRB, 0.547332E+00_JPRB, 0.532640E+00_JPRB, 0.517960E+00_JPRB &
+  &, 0.503308E+00_JPRB, 0.488689E+00_JPRB, 0.474144E+00_JPRB &
+  &, 0.459681E+00_JPRB, 0.445305E+00_JPRB, 0.431036E+00_JPRB, 0.416892E+00_JPRB &
+  &, 0.402879E+00_JPRB, 0.389029E+00_JPRB, 0.375333E+00_JPRB &
+  &, 0.361839E+00_JPRB, 0.348517E+00_JPRB, 0.335417E+00_JPRB, 0.322521E+00_JPRB &
+  &, 0.309862E+00_JPRB, 0.297436E+00_JPRB, 0.285274E+00_JPRB &
+  &, 0.273353E+00_JPRB, 0.261699E+00_JPRB, 0.250322E+00_JPRB, 0.239209E+00_JPRB &
+  &, 0.228387E+00_JPRB, 0.217858E+00_JPRB, 0.207625E+00_JPRB &
+  &, 0.197690E+00_JPRB, 0.188050E+00_JPRB, 0.178725E+00_JPRB, 0.169687E+00_JPRB &
+  &, 0.160952E+00_JPRB, 0.152533E+00_JPRB, 0.144396E+00_JPRB &
+  &, 0.136576E+00_JPRB, 0.129058E+00_JPRB, 0.121826E+00_JPRB, 0.114883E+00_JPRB &
+  &, 0.108237E+00_JPRB, 0.101889E+00_JPRB, 0.957867E-01_JPRB &
+  &, 0.899846E-01_JPRB, 0.844534E-01_JPRB, 0.791608E-01_JPRB, 0.741298E-01_JPRB &
+  &, 0.693539E-01_JPRB, 0.648252E-01_JPRB, 0.605339E-01_JPRB &
+  &, 0.564686E-01_JPRB, 0.526162E-01_JPRB, 0.489616E-01_JPRB, 0.455547E-01_JPRB &
+  &, 0.423121E-01_JPRB, 0.392477E-01_JPRB, 0.364106E-01_JPRB &
+  &, 0.337098E-01_JPRB, 0.311925E-01_JPRB, 0.288350E-01_JPRB, 0.266112E-01_JPRB &
+  &, 0.245310E-01_JPRB, 0.226045E-01_JPRB, 0.208027E-01_JPRB &
+  &, 0.191340E-01_JPRB, 0.175665E-01_JPRB, 0.161073E-01_JPRB, 0.147633E-01_JPRB &
+  &, 0.135421E-01_JPRB, 0.123638E-01_JPRB, 0.113206E-01_JPRB &
+  &, 0.103302E-01_JPRB, 0.939634E-02_JPRB, 0.856905E-02_JPRB, 0.780726E-02_JPRB &
+  &, 0.706719E-02_JPRB, 0.644746E-02_JPRB, 0.585601E-02_JPRB &
+  &, 0.529477E-02_JPRB, 0.476569E-02_JPRB, 0.432210E-02_JPRB, 0.391619E-02_JPRB &
+  &, 0.355005E-02_JPRB, 0.317219E-02_JPRB, 0.283685E-02_JPRB &
+  &, 0.254618E-02_JPRB, 0.230240E-02_JPRB, 0.205105E-02_JPRB, 0.184954E-02_JPRB &
+  &, 0.164188E-02_JPRB, 0.148708E-02_JPRB, 0.132760E-02_JPRB &
+  &, 0.116338E-02_JPRB, 0.105591E-02_JPRB, 0.945241E-03_JPRB, 0.831352E-03_JPRB &
+  &, 0.714202E-03_JPRB, 0.658618E-03_JPRB, 0.601400E-03_JPRB/)
+XCW( 479, :) = (/ &
+  &  0.991291E+00_JPRB, 0.988087E+00_JPRB, 0.984471E+00_JPRB, 0.980451E+00_JPRB &
+  &, 0.976027E+00_JPRB, 0.971202E+00_JPRB, 0.965977E+00_JPRB &
+  &, 0.960358E+00_JPRB, 0.954345E+00_JPRB, 0.947944E+00_JPRB, 0.941157E+00_JPRB &
+  &, 0.933989E+00_JPRB, 0.926445E+00_JPRB, 0.918528E+00_JPRB &
+  &, 0.910244E+00_JPRB, 0.901599E+00_JPRB, 0.892599E+00_JPRB, 0.883248E+00_JPRB &
+  &, 0.873555E+00_JPRB, 0.863526E+00_JPRB, 0.853167E+00_JPRB &
+  &, 0.842493E+00_JPRB, 0.831504E+00_JPRB, 0.820208E+00_JPRB, 0.808629E+00_JPRB &
+  &, 0.796765E+00_JPRB, 0.784626E+00_JPRB, 0.772230E+00_JPRB &
+  &, 0.759582E+00_JPRB, 0.746699E+00_JPRB, 0.733591E+00_JPRB, 0.720272E+00_JPRB &
+  &, 0.706756E+00_JPRB, 0.693053E+00_JPRB, 0.679185E+00_JPRB &
+  &, 0.665164E+00_JPRB, 0.650997E+00_JPRB, 0.636713E+00_JPRB, 0.622322E+00_JPRB &
+  &, 0.607848E+00_JPRB, 0.593283E+00_JPRB, 0.578669E+00_JPRB &
+  &, 0.564014E+00_JPRB, 0.549341E+00_JPRB, 0.534653E+00_JPRB, 0.519976E+00_JPRB &
+  &, 0.505324E+00_JPRB, 0.490717E+00_JPRB, 0.476158E+00_JPRB &
+  &, 0.461691E+00_JPRB, 0.447297E+00_JPRB, 0.433021E+00_JPRB, 0.418868E+00_JPRB &
+  &, 0.404844E+00_JPRB, 0.390982E+00_JPRB, 0.377271E+00_JPRB &
+  &, 0.363745E+00_JPRB, 0.350420E+00_JPRB, 0.337282E+00_JPRB, 0.324380E+00_JPRB &
+  &, 0.311678E+00_JPRB, 0.299242E+00_JPRB, 0.287032E+00_JPRB &
+  &, 0.275077E+00_JPRB, 0.263405E+00_JPRB, 0.251990E+00_JPRB, 0.240856E+00_JPRB &
+  &, 0.229990E+00_JPRB, 0.219435E+00_JPRB, 0.209153E+00_JPRB &
+  &, 0.199187E+00_JPRB, 0.189515E+00_JPRB, 0.180132E+00_JPRB, 0.171056E+00_JPRB &
+  &, 0.162280E+00_JPRB, 0.153818E+00_JPRB, 0.145660E+00_JPRB &
+  &, 0.137792E+00_JPRB, 0.130224E+00_JPRB, 0.122964E+00_JPRB, 0.115993E+00_JPRB &
+  &, 0.109289E+00_JPRB, 0.102881E+00_JPRB, 0.967705E-01_JPRB &
+  &, 0.909035E-01_JPRB, 0.853330E-01_JPRB, 0.800280E-01_JPRB, 0.749543E-01_JPRB &
+  &, 0.701338E-01_JPRB, 0.655888E-01_JPRB, 0.612492E-01_JPRB &
+  &, 0.571336E-01_JPRB, 0.532609E-01_JPRB, 0.495850E-01_JPRB, 0.461223E-01_JPRB &
+  &, 0.428558E-01_JPRB, 0.397663E-01_JPRB, 0.369030E-01_JPRB &
+  &, 0.341748E-01_JPRB, 0.316291E-01_JPRB, 0.292420E-01_JPRB, 0.269874E-01_JPRB &
+  &, 0.249135E-01_JPRB, 0.229545E-01_JPRB, 0.211189E-01_JPRB &
+  &, 0.194153E-01_JPRB, 0.178523E-01_JPRB, 0.163977E-01_JPRB, 0.150163E-01_JPRB &
+  &, 0.137562E-01_JPRB, 0.125813E-01_JPRB, 0.114973E-01_JPRB &
+  &, 0.105097E-01_JPRB, 0.957860E-02_JPRB, 0.875411E-02_JPRB, 0.794817E-02_JPRB &
+  &, 0.721024E-02_JPRB, 0.654426E-02_JPRB, 0.595426E-02_JPRB &
+  &, 0.539448E-02_JPRB, 0.486687E-02_JPRB, 0.442477E-02_JPRB, 0.396827E-02_JPRB &
+  &, 0.360288E-02_JPRB, 0.322579E-02_JPRB, 0.294557E-02_JPRB &
+  &, 0.260131E-02_JPRB, 0.235831E-02_JPRB, 0.210775E-02_JPRB, 0.190703E-02_JPRB &
+  &, 0.170016E-02_JPRB, 0.154616E-02_JPRB, 0.132760E-02_JPRB &
+  &, 0.122409E-02_JPRB, 0.105591E-02_JPRB, 0.945241E-03_JPRB, 0.831352E-03_JPRB &
+  &, 0.778220E-03_JPRB, 0.658618E-03_JPRB, 0.601400E-03_JPRB/)
+XCW( 480, :) = (/ &
+  &  0.991543E+00_JPRB, 0.988398E+00_JPRB, 0.984845E+00_JPRB, 0.980886E+00_JPRB &
+  &, 0.976522E+00_JPRB, 0.971757E+00_JPRB, 0.966592E+00_JPRB &
+  &, 0.961032E+00_JPRB, 0.955078E+00_JPRB, 0.948734E+00_JPRB, 0.942005E+00_JPRB &
+  &, 0.934893E+00_JPRB, 0.927405E+00_JPRB, 0.919541E+00_JPRB &
+  &, 0.911312E+00_JPRB, 0.902719E+00_JPRB, 0.893771E+00_JPRB, 0.884471E+00_JPRB &
+  &, 0.874828E+00_JPRB, 0.864846E+00_JPRB, 0.854539E+00_JPRB &
+  &, 0.843905E+00_JPRB, 0.832962E+00_JPRB, 0.821718E+00_JPRB, 0.810174E+00_JPRB &
+  &, 0.798351E+00_JPRB, 0.786250E+00_JPRB, 0.773890E+00_JPRB &
+  &, 0.761279E+00_JPRB, 0.748430E+00_JPRB, 0.735353E+00_JPRB, 0.722065E+00_JPRB &
+  &, 0.708577E+00_JPRB, 0.694907E+00_JPRB, 0.681063E+00_JPRB &
+  &, 0.667062E+00_JPRB, 0.652923E+00_JPRB, 0.638659E+00_JPRB, 0.624287E+00_JPRB &
+  &, 0.609821E+00_JPRB, 0.595275E+00_JPRB, 0.580668E+00_JPRB &
+  &, 0.566029E+00_JPRB, 0.551350E+00_JPRB, 0.536678E+00_JPRB, 0.522003E+00_JPRB &
+  &, 0.507340E+00_JPRB, 0.492732E+00_JPRB, 0.478184E+00_JPRB &
+  &, 0.463702E+00_JPRB, 0.449302E+00_JPRB, 0.435019E+00_JPRB, 0.420844E+00_JPRB &
+  &, 0.406824E+00_JPRB, 0.392935E+00_JPRB, 0.379210E+00_JPRB &
+  &, 0.365666E+00_JPRB, 0.352323E+00_JPRB, 0.339164E+00_JPRB, 0.326222E+00_JPRB &
+  &, 0.313512E+00_JPRB, 0.301030E+00_JPRB, 0.288807E+00_JPRB &
+  &, 0.276819E+00_JPRB, 0.265112E+00_JPRB, 0.253658E+00_JPRB, 0.242483E+00_JPRB &
+  &, 0.231593E+00_JPRB, 0.220992E+00_JPRB, 0.210681E+00_JPRB &
+  &, 0.200685E+00_JPRB, 0.190957E+00_JPRB, 0.181539E+00_JPRB, 0.172447E+00_JPRB &
+  &, 0.163631E+00_JPRB, 0.155127E+00_JPRB, 0.146923E+00_JPRB &
+  &, 0.139008E+00_JPRB, 0.131415E+00_JPRB, 0.124102E+00_JPRB, 0.117076E+00_JPRB &
+  &, 0.110341E+00_JPRB, 0.103899E+00_JPRB, 0.977542E-01_JPRB &
+  &, 0.918503E-01_JPRB, 0.862410E-01_JPRB, 0.808664E-01_JPRB, 0.757788E-01_JPRB &
+  &, 0.709436E-01_JPRB, 0.663219E-01_JPRB, 0.619646E-01_JPRB &
+  &, 0.578302E-01_JPRB, 0.539056E-01_JPRB, 0.502083E-01_JPRB, 0.466899E-01_JPRB &
+  &, 0.433994E-01_JPRB, 0.403194E-01_JPRB, 0.373954E-01_JPRB &
+  &, 0.346399E-01_JPRB, 0.320658E-01_JPRB, 0.296490E-01_JPRB, 0.274013E-01_JPRB &
+  &, 0.252578E-01_JPRB, 0.233045E-01_JPRB, 0.214747E-01_JPRB &
+  &, 0.197367E-01_JPRB, 0.181382E-01_JPRB, 0.166466E-01_JPRB, 0.152692E-01_JPRB &
+  &, 0.140131E-01_JPRB, 0.127988E-01_JPRB, 0.117182E-01_JPRB &
+  &, 0.106891E-01_JPRB, 0.976086E-02_JPRB, 0.889290E-02_JPRB, 0.808909E-02_JPRB &
+  &, 0.735329E-02_JPRB, 0.668947E-02_JPRB, 0.605251E-02_JPRB &
+  &, 0.549419E-02_JPRB, 0.496806E-02_JPRB, 0.452744E-02_JPRB, 0.407244E-02_JPRB &
+  &, 0.365572E-02_JPRB, 0.333298E-02_JPRB, 0.299993E-02_JPRB &
+  &, 0.271158E-02_JPRB, 0.241422E-02_JPRB, 0.216445E-02_JPRB, 0.196451E-02_JPRB &
+  &, 0.175844E-02_JPRB, 0.154616E-02_JPRB, 0.138749E-02_JPRB &
+  &, 0.122409E-02_JPRB, 0.111743E-02_JPRB, 0.100759E-02_JPRB, 0.894533E-03_JPRB &
+  &, 0.778220E-03_JPRB, 0.658618E-03_JPRB, 0.601400E-03_JPRB/)
+XCW( 481, :) = (/ &
+  &  0.991793E+00_JPRB, 0.988710E+00_JPRB, 0.985217E+00_JPRB, 0.981320E+00_JPRB &
+  &, 0.977018E+00_JPRB, 0.972313E+00_JPRB, 0.967208E+00_JPRB &
+  &, 0.961705E+00_JPRB, 0.955810E+00_JPRB, 0.949525E+00_JPRB, 0.942853E+00_JPRB &
+  &, 0.935797E+00_JPRB, 0.928364E+00_JPRB, 0.920556E+00_JPRB &
+  &, 0.912381E+00_JPRB, 0.903841E+00_JPRB, 0.894944E+00_JPRB, 0.885695E+00_JPRB &
+  &, 0.876102E+00_JPRB, 0.866169E+00_JPRB, 0.855907E+00_JPRB &
+  &, 0.845324E+00_JPRB, 0.834424E+00_JPRB, 0.823221E+00_JPRB, 0.811723E+00_JPRB &
+  &, 0.799936E+00_JPRB, 0.787878E+00_JPRB, 0.775554E+00_JPRB &
+  &, 0.762980E+00_JPRB, 0.750165E+00_JPRB, 0.737119E+00_JPRB, 0.723863E+00_JPRB &
+  &, 0.710406E+00_JPRB, 0.696761E+00_JPRB, 0.682941E+00_JPRB &
+  &, 0.668968E+00_JPRB, 0.654850E+00_JPRB, 0.640605E+00_JPRB, 0.626242E+00_JPRB &
+  &, 0.611795E+00_JPRB, 0.597267E+00_JPRB, 0.582677E+00_JPRB &
+  &, 0.568034E+00_JPRB, 0.553371E+00_JPRB, 0.538702E+00_JPRB, 0.524030E+00_JPRB &
+  &, 0.509381E+00_JPRB, 0.494761E+00_JPRB, 0.480211E+00_JPRB &
+  &, 0.465725E+00_JPRB, 0.451321E+00_JPRB, 0.437018E+00_JPRB, 0.422848E+00_JPRB &
+  &, 0.408804E+00_JPRB, 0.394903E+00_JPRB, 0.381163E+00_JPRB &
+  &, 0.367604E+00_JPRB, 0.354226E+00_JPRB, 0.341046E+00_JPRB, 0.328081E+00_JPRB &
+  &, 0.315345E+00_JPRB, 0.302835E+00_JPRB, 0.290582E+00_JPRB &
+  &, 0.278579E+00_JPRB, 0.266818E+00_JPRB, 0.255345E+00_JPRB, 0.244130E+00_JPRB &
+  &, 0.233216E+00_JPRB, 0.222589E+00_JPRB, 0.212230E+00_JPRB &
+  &, 0.202182E+00_JPRB, 0.192421E+00_JPRB, 0.182968E+00_JPRB, 0.173816E+00_JPRB &
+  &, 0.164982E+00_JPRB, 0.156435E+00_JPRB, 0.148187E+00_JPRB &
+  &, 0.140249E+00_JPRB, 0.132581E+00_JPRB, 0.125241E+00_JPRB, 0.118186E+00_JPRB &
+  &, 0.111419E+00_JPRB, 0.104945E+00_JPRB, 0.987379E-01_JPRB &
+  &, 0.927971E-01_JPRB, 0.871490E-01_JPRB, 0.817625E-01_JPRB, 0.766034E-01_JPRB &
+  &, 0.717234E-01_JPRB, 0.670855E-01_JPRB, 0.626799E-01_JPRB &
+  &, 0.584952E-01_JPRB, 0.545502E-01_JPRB, 0.508317E-01_JPRB, 0.472910E-01_JPRB &
+  &, 0.439770E-01_JPRB, 0.408380E-01_JPRB, 0.378878E-01_JPRB &
+  &, 0.351050E-01_JPRB, 0.325024E-01_JPRB, 0.300561E-01_JPRB, 0.277776E-01_JPRB &
+  &, 0.256403E-01_JPRB, 0.236545E-01_JPRB, 0.217909E-01_JPRB &
+  &, 0.200581E-01_JPRB, 0.184240E-01_JPRB, 0.169370E-01_JPRB, 0.155221E-01_JPRB &
+  &, 0.142272E-01_JPRB, 0.130163E-01_JPRB, 0.118949E-01_JPRB &
+  &, 0.108686E-01_JPRB, 0.994312E-02_JPRB, 0.907796E-02_JPRB, 0.823000E-02_JPRB &
+  &, 0.749634E-02_JPRB, 0.683467E-02_JPRB, 0.619989E-02_JPRB &
+  &, 0.559391E-02_JPRB, 0.506924E-02_JPRB, 0.457877E-02_JPRB, 0.417660E-02_JPRB &
+  &, 0.376139E-02_JPRB, 0.338658E-02_JPRB, 0.305429E-02_JPRB &
+  &, 0.276671E-02_JPRB, 0.247013E-02_JPRB, 0.222114E-02_JPRB, 0.196451E-02_JPRB &
+  &, 0.175844E-02_JPRB, 0.160524E-02_JPRB, 0.144738E-02_JPRB &
+  &, 0.128479E-02_JPRB, 0.111743E-02_JPRB, 0.100759E-02_JPRB, 0.894533E-03_JPRB &
+  &, 0.778220E-03_JPRB, 0.723479E-03_JPRB, 0.601400E-03_JPRB/)
+XCW( 482, :) = (/ &
+  &  0.992041E+00_JPRB, 0.989022E+00_JPRB, 0.985591E+00_JPRB, 0.981755E+00_JPRB &
+  &, 0.977512E+00_JPRB, 0.972868E+00_JPRB, 0.967823E+00_JPRB &
+  &, 0.962381E+00_JPRB, 0.956544E+00_JPRB, 0.950316E+00_JPRB, 0.943701E+00_JPRB &
+  &, 0.936703E+00_JPRB, 0.929324E+00_JPRB, 0.921572E+00_JPRB &
+  &, 0.913449E+00_JPRB, 0.904964E+00_JPRB, 0.896118E+00_JPRB, 0.886920E+00_JPRB &
+  &, 0.877376E+00_JPRB, 0.867492E+00_JPRB, 0.857279E+00_JPRB &
+  &, 0.846740E+00_JPRB, 0.835886E+00_JPRB, 0.824727E+00_JPRB, 0.813272E+00_JPRB &
+  &, 0.801526E+00_JPRB, 0.789506E+00_JPRB, 0.777221E+00_JPRB &
+  &, 0.764681E+00_JPRB, 0.751900E+00_JPRB, 0.738889E+00_JPRB, 0.725665E+00_JPRB &
+  &, 0.712236E+00_JPRB, 0.698619E+00_JPRB, 0.684823E+00_JPRB &
+  &, 0.670875E+00_JPRB, 0.656776E+00_JPRB, 0.642551E+00_JPRB, 0.628207E+00_JPRB &
+  &, 0.613778E+00_JPRB, 0.599258E+00_JPRB, 0.584686E+00_JPRB &
+  &, 0.570061E+00_JPRB, 0.555403E+00_JPRB, 0.540726E+00_JPRB, 0.526057E+00_JPRB &
+  &, 0.511409E+00_JPRB, 0.496801E+00_JPRB, 0.482238E+00_JPRB &
+  &, 0.467749E+00_JPRB, 0.453340E+00_JPRB, 0.439030E+00_JPRB, 0.424838E+00_JPRB &
+  &, 0.410784E+00_JPRB, 0.396870E+00_JPRB, 0.383117E+00_JPRB &
+  &, 0.369525E+00_JPRB, 0.356145E+00_JPRB, 0.342945E+00_JPRB, 0.329956E+00_JPRB &
+  &, 0.317195E+00_JPRB, 0.304658E+00_JPRB, 0.292374E+00_JPRB &
+  &, 0.280321E+00_JPRB, 0.268543E+00_JPRB, 0.257032E+00_JPRB, 0.245796E+00_JPRB &
+  &, 0.234839E+00_JPRB, 0.224166E+00_JPRB, 0.213779E+00_JPRB &
+  &, 0.203700E+00_JPRB, 0.193907E+00_JPRB, 0.184419E+00_JPRB, 0.175230E+00_JPRB &
+  &, 0.166333E+00_JPRB, 0.157744E+00_JPRB, 0.149451E+00_JPRB &
+  &, 0.141465E+00_JPRB, 0.133797E+00_JPRB, 0.126405E+00_JPRB, 0.119295E+00_JPRB &
+  &, 0.112497E+00_JPRB, 0.105964E+00_JPRB, 0.997216E-01_JPRB &
+  &, 0.937440E-01_JPRB, 0.880569E-01_JPRB, 0.826298E-01_JPRB, 0.774574E-01_JPRB &
+  &, 0.725332E-01_JPRB, 0.678491E-01_JPRB, 0.634264E-01_JPRB &
+  &, 0.592235E-01_JPRB, 0.552272E-01_JPRB, 0.514551E-01_JPRB, 0.478920E-01_JPRB &
+  &, 0.445547E-01_JPRB, 0.413911E-01_JPRB, 0.383802E-01_JPRB &
+  &, 0.356058E-01_JPRB, 0.329754E-01_JPRB, 0.305001E-01_JPRB, 0.281914E-01_JPRB &
+  &, 0.260229E-01_JPRB, 0.240045E-01_JPRB, 0.221072E-01_JPRB &
+  &, 0.203795E-01_JPRB, 0.187098E-01_JPRB, 0.171860E-01_JPRB, 0.157750E-01_JPRB &
+  &, 0.144842E-01_JPRB, 0.132338E-01_JPRB, 0.121158E-01_JPRB &
+  &, 0.110930E-01_JPRB, 0.101254E-01_JPRB, 0.921676E-02_JPRB, 0.841789E-02_JPRB &
+  &, 0.763939E-02_JPRB, 0.693148E-02_JPRB, 0.629815E-02_JPRB &
+  &, 0.574347E-02_JPRB, 0.517043E-02_JPRB, 0.468144E-02_JPRB, 0.422869E-02_JPRB &
+  &, 0.381423E-02_JPRB, 0.344017E-02_JPRB, 0.310866E-02_JPRB &
+  &, 0.282185E-02_JPRB, 0.252605E-02_JPRB, 0.227784E-02_JPRB, 0.202200E-02_JPRB &
+  &, 0.181672E-02_JPRB, 0.160524E-02_JPRB, 0.144738E-02_JPRB &
+  &, 0.128479E-02_JPRB, 0.117895E-02_JPRB, 0.100759E-02_JPRB, 0.894533E-03_JPRB &
+  &, 0.842239E-03_JPRB, 0.723479E-03_JPRB, 0.667111E-03_JPRB/)
+XCW( 483, :) = (/ &
+  &  0.992293E+00_JPRB, 0.989334E+00_JPRB, 0.985965E+00_JPRB, 0.982189E+00_JPRB &
+  &, 0.978008E+00_JPRB, 0.973424E+00_JPRB, 0.968438E+00_JPRB &
+  &, 0.963056E+00_JPRB, 0.957277E+00_JPRB, 0.951108E+00_JPRB, 0.944549E+00_JPRB &
+  &, 0.937608E+00_JPRB, 0.930286E+00_JPRB, 0.922588E+00_JPRB &
+  &, 0.914520E+00_JPRB, 0.906087E+00_JPRB, 0.897294E+00_JPRB, 0.888148E+00_JPRB &
+  &, 0.878653E+00_JPRB, 0.868818E+00_JPRB, 0.858650E+00_JPRB &
+  &, 0.848159E+00_JPRB, 0.837351E+00_JPRB, 0.826237E+00_JPRB, 0.814821E+00_JPRB &
+  &, 0.803119E+00_JPRB, 0.791138E+00_JPRB, 0.778889E+00_JPRB &
+  &, 0.766386E+00_JPRB, 0.753639E+00_JPRB, 0.740663E+00_JPRB, 0.727466E+00_JPRB &
+  &, 0.714066E+00_JPRB, 0.700477E+00_JPRB, 0.686710E+00_JPRB &
+  &, 0.672782E+00_JPRB, 0.658703E+00_JPRB, 0.644506E+00_JPRB, 0.630182E+00_JPRB &
+  &, 0.615762E+00_JPRB, 0.601261E+00_JPRB, 0.586696E+00_JPRB &
+  &, 0.572076E+00_JPRB, 0.557435E+00_JPRB, 0.542763E+00_JPRB, 0.528096E+00_JPRB &
+  &, 0.513450E+00_JPRB, 0.498842E+00_JPRB, 0.484277E+00_JPRB &
+  &, 0.469772E+00_JPRB, 0.455359E+00_JPRB, 0.441043E+00_JPRB, 0.426843E+00_JPRB &
+  &, 0.412778E+00_JPRB, 0.398853E+00_JPRB, 0.385070E+00_JPRB &
+  &, 0.371478E+00_JPRB, 0.358063E+00_JPRB, 0.344843E+00_JPRB, 0.331832E+00_JPRB &
+  &, 0.319046E+00_JPRB, 0.306481E+00_JPRB, 0.294167E+00_JPRB &
+  &, 0.282099E+00_JPRB, 0.270287E+00_JPRB, 0.258739E+00_JPRB, 0.247462E+00_JPRB &
+  &, 0.236481E+00_JPRB, 0.225763E+00_JPRB, 0.215348E+00_JPRB &
+  &, 0.205218E+00_JPRB, 0.195393E+00_JPRB, 0.185847E+00_JPRB, 0.176621E+00_JPRB &
+  &, 0.167707E+00_JPRB, 0.159076E+00_JPRB, 0.150738E+00_JPRB &
+  &, 0.142730E+00_JPRB, 0.134987E+00_JPRB, 0.127568E+00_JPRB, 0.120430E+00_JPRB &
+  &, 0.113576E+00_JPRB, 0.107009E+00_JPRB, 0.100733E+00_JPRB &
+  &, 0.947186E-01_JPRB, 0.889933E-01_JPRB, 0.835259E-01_JPRB, 0.783113E-01_JPRB &
+  &, 0.733430E-01_JPRB, 0.686432E-01_JPRB, 0.641417E-01_JPRB &
+  &, 0.599201E-01_JPRB, 0.559041E-01_JPRB, 0.520785E-01_JPRB, 0.484930E-01_JPRB &
+  &, 0.450983E-01_JPRB, 0.419097E-01_JPRB, 0.389077E-01_JPRB &
+  &, 0.360709E-01_JPRB, 0.334120E-01_JPRB, 0.309441E-01_JPRB, 0.286053E-01_JPRB &
+  &, 0.264054E-01_JPRB, 0.243545E-01_JPRB, 0.224629E-01_JPRB &
+  &, 0.206607E-01_JPRB, 0.190364E-01_JPRB, 0.174764E-01_JPRB, 0.160279E-01_JPRB &
+  &, 0.146983E-01_JPRB, 0.134948E-01_JPRB, 0.123368E-01_JPRB &
+  &, 0.112725E-01_JPRB, 0.103076E-01_JPRB, 0.940182E-02_JPRB, 0.855880E-02_JPRB &
+  &, 0.778244E-02_JPRB, 0.707668E-02_JPRB, 0.644552E-02_JPRB &
+  &, 0.584319E-02_JPRB, 0.527161E-02_JPRB, 0.478411E-02_JPRB, 0.433285E-02_JPRB &
+  &, 0.391990E-02_JPRB, 0.354737E-02_JPRB, 0.316302E-02_JPRB &
+  &, 0.287698E-02_JPRB, 0.258196E-02_JPRB, 0.233453E-02_JPRB, 0.207948E-02_JPRB &
+  &, 0.187501E-02_JPRB, 0.166433E-02_JPRB, 0.150727E-02_JPRB &
+  &, 0.134550E-02_JPRB, 0.117895E-02_JPRB, 0.106994E-02_JPRB, 0.957714E-03_JPRB &
+  &, 0.842239E-03_JPRB, 0.723479E-03_JPRB, 0.667111E-03_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART69',1,ZHOOK_HANDLE)
+END SUBROUTINE PART69
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART70
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART70',0,ZHOOK_HANDLE)
+
+XCW( 484, :) = (/ &
+  &  0.992543E+00_JPRB, 0.989646E+00_JPRB, 0.986338E+00_JPRB, 0.982624E+00_JPRB &
+  &, 0.978504E+00_JPRB, 0.973980E+00_JPRB, 0.969054E+00_JPRB &
+  &, 0.963730E+00_JPRB, 0.958011E+00_JPRB, 0.951899E+00_JPRB, 0.945399E+00_JPRB &
+  &, 0.938514E+00_JPRB, 0.931247E+00_JPRB, 0.923605E+00_JPRB &
+  &, 0.915591E+00_JPRB, 0.907211E+00_JPRB, 0.898470E+00_JPRB, 0.889375E+00_JPRB &
+  &, 0.879931E+00_JPRB, 0.870144E+00_JPRB, 0.860025E+00_JPRB &
+  &, 0.849581E+00_JPRB, 0.838816E+00_JPRB, 0.827746E+00_JPRB, 0.816373E+00_JPRB &
+  &, 0.804712E+00_JPRB, 0.792769E+00_JPRB, 0.780561E+00_JPRB &
+  &, 0.768094E+00_JPRB, 0.755382E+00_JPRB, 0.742437E+00_JPRB, 0.729272E+00_JPRB &
+  &, 0.715904E+00_JPRB, 0.702344E+00_JPRB, 0.688602E+00_JPRB &
+  &, 0.674698E+00_JPRB, 0.660639E+00_JPRB, 0.646462E+00_JPRB, 0.632157E+00_JPRB &
+  &, 0.617756E+00_JPRB, 0.603263E+00_JPRB, 0.588716E+00_JPRB &
+  &, 0.574103E+00_JPRB, 0.559467E+00_JPRB, 0.544810E+00_JPRB, 0.530147E+00_JPRB &
+  &, 0.515503E+00_JPRB, 0.500883E+00_JPRB, 0.486317E+00_JPRB &
+  &, 0.471822E+00_JPRB, 0.457391E+00_JPRB, 0.443069E+00_JPRB, 0.428861E+00_JPRB &
+  &, 0.414772E+00_JPRB, 0.400835E+00_JPRB, 0.387038E+00_JPRB &
+  &, 0.373430E+00_JPRB, 0.359982E+00_JPRB, 0.346741E+00_JPRB, 0.333707E+00_JPRB &
+  &, 0.320896E+00_JPRB, 0.308321E+00_JPRB, 0.295960E+00_JPRB &
+  &, 0.283860E+00_JPRB, 0.272030E+00_JPRB, 0.260445E+00_JPRB, 0.249147E+00_JPRB &
+  &, 0.238104E+00_JPRB, 0.227360E+00_JPRB, 0.216918E+00_JPRB &
+  &, 0.206758E+00_JPRB, 0.196879E+00_JPRB, 0.187320E+00_JPRB, 0.178034E+00_JPRB &
+  &, 0.169081E+00_JPRB, 0.160408E+00_JPRB, 0.152049E+00_JPRB &
+  &, 0.143970E+00_JPRB, 0.136203E+00_JPRB, 0.128732E+00_JPRB, 0.121539E+00_JPRB &
+  &, 0.114654E+00_JPRB, 0.108055E+00_JPRB, 0.101744E+00_JPRB &
+  &, 0.956933E-01_JPRB, 0.899013E-01_JPRB, 0.843932E-01_JPRB, 0.791653E-01_JPRB &
+  &, 0.741528E-01_JPRB, 0.694069E-01_JPRB, 0.648881E-01_JPRB &
+  &, 0.606167E-01_JPRB, 0.565810E-01_JPRB, 0.527347E-01_JPRB, 0.491275E-01_JPRB &
+  &, 0.457099E-01_JPRB, 0.424628E-01_JPRB, 0.394352E-01_JPRB &
+  &, 0.365717E-01_JPRB, 0.338850E-01_JPRB, 0.313882E-01_JPRB, 0.290192E-01_JPRB &
+  &, 0.267880E-01_JPRB, 0.247434E-01_JPRB, 0.228187E-01_JPRB &
+  &, 0.209821E-01_JPRB, 0.193222E-01_JPRB, 0.177668E-01_JPRB, 0.163230E-01_JPRB &
+  &, 0.149552E-01_JPRB, 0.137123E-01_JPRB, 0.125577E-01_JPRB &
+  &, 0.114519E-01_JPRB, 0.104899E-01_JPRB, 0.954061E-02_JPRB, 0.869972E-02_JPRB &
+  &, 0.792550E-02_JPRB, 0.722189E-02_JPRB, 0.654378E-02_JPRB &
+  &, 0.594290E-02_JPRB, 0.542339E-02_JPRB, 0.488678E-02_JPRB, 0.443702E-02_JPRB &
+  &, 0.402558E-02_JPRB, 0.360096E-02_JPRB, 0.327174E-02_JPRB &
+  &, 0.293212E-02_JPRB, 0.263787E-02_JPRB, 0.239123E-02_JPRB, 0.213697E-02_JPRB &
+  &, 0.193329E-02_JPRB, 0.172341E-02_JPRB, 0.150727E-02_JPRB &
+  &, 0.134550E-02_JPRB, 0.124048E-02_JPRB, 0.106994E-02_JPRB, 0.957714E-03_JPRB &
+  &, 0.842239E-03_JPRB, 0.788341E-03_JPRB, 0.667111E-03_JPRB/)
+XCW( 485, :) = (/ &
+  &  0.992793E+00_JPRB, 0.989958E+00_JPRB, 0.986711E+00_JPRB, 0.983058E+00_JPRB &
+  &, 0.979000E+00_JPRB, 0.974536E+00_JPRB, 0.969670E+00_JPRB &
+  &, 0.964406E+00_JPRB, 0.958745E+00_JPRB, 0.952692E+00_JPRB, 0.946249E+00_JPRB &
+  &, 0.939419E+00_JPRB, 0.932210E+00_JPRB, 0.924622E+00_JPRB &
+  &, 0.916663E+00_JPRB, 0.908336E+00_JPRB, 0.899647E+00_JPRB, 0.890603E+00_JPRB &
+  &, 0.881208E+00_JPRB, 0.871473E+00_JPRB, 0.861400E+00_JPRB &
+  &, 0.851004E+00_JPRB, 0.840285E+00_JPRB, 0.829256E+00_JPRB, 0.817926E+00_JPRB &
+  &, 0.806305E+00_JPRB, 0.794405E+00_JPRB, 0.782232E+00_JPRB &
+  &, 0.769803E+00_JPRB, 0.757125E+00_JPRB, 0.744216E+00_JPRB, 0.731082E+00_JPRB &
+  &, 0.717743E+00_JPRB, 0.704211E+00_JPRB, 0.690493E+00_JPRB &
+  &, 0.676614E+00_JPRB, 0.662584E+00_JPRB, 0.648417E+00_JPRB, 0.634132E+00_JPRB &
+  &, 0.619750E+00_JPRB, 0.605276E+00_JPRB, 0.590736E+00_JPRB &
+  &, 0.576140E+00_JPRB, 0.561510E+00_JPRB, 0.546846E+00_JPRB, 0.532198E+00_JPRB &
+  &, 0.517556E+00_JPRB, 0.502936E+00_JPRB, 0.488369E+00_JPRB &
+  &, 0.473859E+00_JPRB, 0.459437E+00_JPRB, 0.445109E+00_JPRB, 0.430879E+00_JPRB &
+  &, 0.416781E+00_JPRB, 0.402817E+00_JPRB, 0.389022E+00_JPRB &
+  &, 0.375383E+00_JPRB, 0.361933E+00_JPRB, 0.348672E+00_JPRB, 0.335599E+00_JPRB &
+  &, 0.322763E+00_JPRB, 0.310161E+00_JPRB, 0.297771E+00_JPRB &
+  &, 0.285656E+00_JPRB, 0.273774E+00_JPRB, 0.262170E+00_JPRB, 0.250832E+00_JPRB &
+  &, 0.239767E+00_JPRB, 0.228978E+00_JPRB, 0.218487E+00_JPRB &
+  &, 0.208297E+00_JPRB, 0.198386E+00_JPRB, 0.188771E+00_JPRB, 0.179470E+00_JPRB &
+  &, 0.170455E+00_JPRB, 0.161740E+00_JPRB, 0.153337E+00_JPRB &
+  &, 0.145235E+00_JPRB, 0.137418E+00_JPRB, 0.129921E+00_JPRB, 0.122700E+00_JPRB &
+  &, 0.115759E+00_JPRB, 0.109127E+00_JPRB, 0.102755E+00_JPRB &
+  &, 0.966679E-01_JPRB, 0.908661E-01_JPRB, 0.853182E-01_JPRB, 0.800193E-01_JPRB &
+  &, 0.749926E-01_JPRB, 0.702010E-01_JPRB, 0.656657E-01_JPRB &
+  &, 0.613450E-01_JPRB, 0.572579E-01_JPRB, 0.533908E-01_JPRB, 0.497285E-01_JPRB &
+  &, 0.462875E-01_JPRB, 0.430159E-01_JPRB, 0.399628E-01_JPRB &
+  &, 0.370726E-01_JPRB, 0.343581E-01_JPRB, 0.318322E-01_JPRB, 0.294331E-01_JPRB &
+  &, 0.272088E-01_JPRB, 0.250934E-01_JPRB, 0.231349E-01_JPRB &
+  &, 0.213437E-01_JPRB, 0.196488E-01_JPRB, 0.180572E-01_JPRB, 0.165759E-01_JPRB &
+  &, 0.152121E-01_JPRB, 0.139298E-01_JPRB, 0.127786E-01_JPRB &
+  &, 0.116763E-01_JPRB, 0.106722E-01_JPRB, 0.972567E-02_JPRB, 0.888760E-02_JPRB &
+  &, 0.806855E-02_JPRB, 0.736710E-02_JPRB, 0.669116E-02_JPRB &
+  &, 0.609247E-02_JPRB, 0.552457E-02_JPRB, 0.498945E-02_JPRB, 0.454118E-02_JPRB &
+  &, 0.407841E-02_JPRB, 0.370816E-02_JPRB, 0.332611E-02_JPRB &
+  &, 0.298725E-02_JPRB, 0.269378E-02_JPRB, 0.244793E-02_JPRB, 0.219446E-02_JPRB &
+  &, 0.193329E-02_JPRB, 0.178249E-02_JPRB, 0.156716E-02_JPRB &
+  &, 0.140620E-02_JPRB, 0.124048E-02_JPRB, 0.113229E-02_JPRB, 0.102089E-02_JPRB &
+  &, 0.906257E-03_JPRB, 0.788341E-03_JPRB, 0.667111E-03_JPRB/)
+XCW( 486, :) = (/ &
+  &  0.993043E+00_JPRB, 0.990267E+00_JPRB, 0.987085E+00_JPRB, 0.983494E+00_JPRB &
+  &, 0.979494E+00_JPRB, 0.975092E+00_JPRB, 0.970286E+00_JPRB &
+  &, 0.965081E+00_JPRB, 0.959480E+00_JPRB, 0.953484E+00_JPRB, 0.947098E+00_JPRB &
+  &, 0.940326E+00_JPRB, 0.933172E+00_JPRB, 0.925640E+00_JPRB &
+  &, 0.917735E+00_JPRB, 0.909461E+00_JPRB, 0.900826E+00_JPRB, 0.891832E+00_JPRB &
+  &, 0.882489E+00_JPRB, 0.872802E+00_JPRB, 0.862778E+00_JPRB &
+  &, 0.852426E+00_JPRB, 0.841753E+00_JPRB, 0.830769E+00_JPRB, 0.819482E+00_JPRB &
+  &, 0.807902E+00_JPRB, 0.796040E+00_JPRB, 0.783907E+00_JPRB &
+  &, 0.771516E+00_JPRB, 0.758872E+00_JPRB, 0.745998E+00_JPRB, 0.732897E+00_JPRB &
+  &, 0.719585E+00_JPRB, 0.706078E+00_JPRB, 0.692389E+00_JPRB &
+  &, 0.678530E+00_JPRB, 0.664530E+00_JPRB, 0.650383E+00_JPRB, 0.636117E+00_JPRB &
+  &, 0.621744E+00_JPRB, 0.607289E+00_JPRB, 0.592757E+00_JPRB &
+  &, 0.578178E+00_JPRB, 0.563554E+00_JPRB, 0.548906E+00_JPRB, 0.534248E+00_JPRB &
+  &, 0.519608E+00_JPRB, 0.504990E+00_JPRB, 0.490421E+00_JPRB &
+  &, 0.475909E+00_JPRB, 0.461483E+00_JPRB, 0.447135E+00_JPRB, 0.432912E+00_JPRB &
+  &, 0.418790E+00_JPRB, 0.404829E+00_JPRB, 0.391006E+00_JPRB &
+  &, 0.377351E+00_JPRB, 0.363867E+00_JPRB, 0.350586E+00_JPRB, 0.337508E+00_JPRB &
+  &, 0.324647E+00_JPRB, 0.312001E+00_JPRB, 0.299599E+00_JPRB &
+  &, 0.287434E+00_JPRB, 0.275536E+00_JPRB, 0.263895E+00_JPRB, 0.252517E+00_JPRB &
+  &, 0.241429E+00_JPRB, 0.230615E+00_JPRB, 0.220077E+00_JPRB &
+  &, 0.209837E+00_JPRB, 0.199893E+00_JPRB, 0.190244E+00_JPRB, 0.180906E+00_JPRB &
+  &, 0.171852E+00_JPRB, 0.163095E+00_JPRB, 0.154648E+00_JPRB &
+  &, 0.146499E+00_JPRB, 0.138659E+00_JPRB, 0.131110E+00_JPRB, 0.123835E+00_JPRB &
+  &, 0.116863E+00_JPRB, 0.110173E+00_JPRB, 0.103793E+00_JPRB &
+  &, 0.976426E-01_JPRB, 0.918024E-01_JPRB, 0.862144E-01_JPRB, 0.809027E-01_JPRB &
+  &, 0.758324E-01_JPRB, 0.709952E-01_JPRB, 0.664121E-01_JPRB &
+  &, 0.620733E-01_JPRB, 0.579348E-01_JPRB, 0.540470E-01_JPRB, 0.503629E-01_JPRB &
+  &, 0.468651E-01_JPRB, 0.436036E-01_JPRB, 0.404903E-01_JPRB &
+  &, 0.375734E-01_JPRB, 0.348311E-01_JPRB, 0.322762E-01_JPRB, 0.298470E-01_JPRB &
+  &, 0.275913E-01_JPRB, 0.254823E-01_JPRB, 0.234907E-01_JPRB &
+  &, 0.216651E-01_JPRB, 0.199346E-01_JPRB, 0.183476E-01_JPRB, 0.168288E-01_JPRB &
+  &, 0.154691E-01_JPRB, 0.141908E-01_JPRB, 0.129995E-01_JPRB &
+  &, 0.119006E-01_JPRB, 0.108544E-01_JPRB, 0.991074E-02_JPRB, 0.902852E-02_JPRB &
+  &, 0.825928E-02_JPRB, 0.751230E-02_JPRB, 0.683853E-02_JPRB &
+  &, 0.619218E-02_JPRB, 0.562576E-02_JPRB, 0.509211E-02_JPRB, 0.459326E-02_JPRB &
+  &, 0.418409E-02_JPRB, 0.376175E-02_JPRB, 0.338047E-02_JPRB &
+  &, 0.304239E-02_JPRB, 0.274969E-02_JPRB, 0.250462E-02_JPRB, 0.225194E-02_JPRB &
+  &, 0.199157E-02_JPRB, 0.178249E-02_JPRB, 0.162705E-02_JPRB &
+  &, 0.146690E-02_JPRB, 0.130200E-02_JPRB, 0.113229E-02_JPRB, 0.102089E-02_JPRB &
+  &, 0.906257E-03_JPRB, 0.788341E-03_JPRB, 0.732822E-03_JPRB/)
+XCW( 487, :) = (/ &
+  &  0.993292E+00_JPRB, 0.990582E+00_JPRB, 0.987458E+00_JPRB, 0.983929E+00_JPRB &
+  &, 0.979990E+00_JPRB, 0.975648E+00_JPRB, 0.970903E+00_JPRB &
+  &, 0.965757E+00_JPRB, 0.960214E+00_JPRB, 0.954277E+00_JPRB, 0.947950E+00_JPRB &
+  &, 0.941233E+00_JPRB, 0.934136E+00_JPRB, 0.926659E+00_JPRB &
+  &, 0.918808E+00_JPRB, 0.910587E+00_JPRB, 0.902004E+00_JPRB, 0.893062E+00_JPRB &
+  &, 0.883769E+00_JPRB, 0.874132E+00_JPRB, 0.864156E+00_JPRB &
+  &, 0.853852E+00_JPRB, 0.843225E+00_JPRB, 0.832286E+00_JPRB, 0.821041E+00_JPRB &
+  &, 0.809503E+00_JPRB, 0.797679E+00_JPRB, 0.785587E+00_JPRB &
+  &, 0.773228E+00_JPRB, 0.760623E+00_JPRB, 0.747780E+00_JPRB, 0.734711E+00_JPRB &
+  &, 0.721432E+00_JPRB, 0.707954E+00_JPRB, 0.694290E+00_JPRB &
+  &, 0.680456E+00_JPRB, 0.666475E+00_JPRB, 0.652348E+00_JPRB, 0.638102E+00_JPRB &
+  &, 0.623749E+00_JPRB, 0.609312E+00_JPRB, 0.594787E+00_JPRB &
+  &, 0.580216E+00_JPRB, 0.565597E+00_JPRB, 0.550953E+00_JPRB, 0.536311E+00_JPRB &
+  &, 0.521673E+00_JPRB, 0.507055E+00_JPRB, 0.492486E+00_JPRB &
+  &, 0.477971E+00_JPRB, 0.463528E+00_JPRB, 0.449189E+00_JPRB, 0.434944E+00_JPRB &
+  &, 0.420813E+00_JPRB, 0.406826E+00_JPRB, 0.392989E+00_JPRB &
+  &, 0.379319E+00_JPRB, 0.365818E+00_JPRB, 0.352517E+00_JPRB, 0.339417E+00_JPRB &
+  &, 0.326515E+00_JPRB, 0.313859E+00_JPRB, 0.301427E+00_JPRB &
+  &, 0.289231E+00_JPRB, 0.277298E+00_JPRB, 0.265620E+00_JPRB, 0.254222E+00_JPRB &
+  &, 0.243092E+00_JPRB, 0.232233E+00_JPRB, 0.221667E+00_JPRB &
+  &, 0.211397E+00_JPRB, 0.201422E+00_JPRB, 0.191717E+00_JPRB, 0.182342E+00_JPRB &
+  &, 0.173249E+00_JPRB, 0.164451E+00_JPRB, 0.155983E+00_JPRB &
+  &, 0.147788E+00_JPRB, 0.139899E+00_JPRB, 0.132299E+00_JPRB, 0.124996E+00_JPRB &
+  &, 0.117994E+00_JPRB, 0.111272E+00_JPRB, 0.104804E+00_JPRB &
+  &, 0.986451E-01_JPRB, 0.927672E-01_JPRB, 0.871394E-01_JPRB, 0.817567E-01_JPRB &
+  &, 0.766722E-01_JPRB, 0.717893E-01_JPRB, 0.671897E-01_JPRB &
+  &, 0.628016E-01_JPRB, 0.586440E-01_JPRB, 0.547032E-01_JPRB, 0.509973E-01_JPRB &
+  &, 0.474767E-01_JPRB, 0.441568E-01_JPRB, 0.410179E-01_JPRB &
+  &, 0.380743E-01_JPRB, 0.353041E-01_JPRB, 0.327203E-01_JPRB, 0.302985E-01_JPRB &
+  &, 0.280121E-01_JPRB, 0.258712E-01_JPRB, 0.238465E-01_JPRB &
+  &, 0.219865E-01_JPRB, 0.202613E-01_JPRB, 0.186380E-01_JPRB, 0.171239E-01_JPRB &
+  &, 0.157260E-01_JPRB, 0.144083E-01_JPRB, 0.132204E-01_JPRB &
+  &, 0.120801E-01_JPRB, 0.110367E-01_JPRB, 0.100958E-01_JPRB, 0.921640E-02_JPRB &
+  &, 0.840233E-02_JPRB, 0.765751E-02_JPRB, 0.693679E-02_JPRB &
+  &, 0.634175E-02_JPRB, 0.572694E-02_JPRB, 0.519478E-02_JPRB, 0.469743E-02_JPRB &
+  &, 0.423692E-02_JPRB, 0.386895E-02_JPRB, 0.348919E-02_JPRB &
+  &, 0.315265E-02_JPRB, 0.280561E-02_JPRB, 0.256132E-02_JPRB, 0.230943E-02_JPRB &
+  &, 0.204985E-02_JPRB, 0.184158E-02_JPRB, 0.162705E-02_JPRB &
+  &, 0.146690E-02_JPRB, 0.130200E-02_JPRB, 0.119464E-02_JPRB, 0.102089E-02_JPRB &
+  &, 0.906257E-03_JPRB, 0.853203E-03_JPRB, 0.732822E-03_JPRB/)
+XCW( 488, :) = (/ &
+  &  0.993543E+00_JPRB, 0.990893E+00_JPRB, 0.987833E+00_JPRB, 0.984364E+00_JPRB &
+  &, 0.980486E+00_JPRB, 0.976205E+00_JPRB, 0.971519E+00_JPRB &
+  &, 0.966433E+00_JPRB, 0.960949E+00_JPRB, 0.955070E+00_JPRB, 0.948801E+00_JPRB &
+  &, 0.942141E+00_JPRB, 0.935100E+00_JPRB, 0.927678E+00_JPRB &
+  &, 0.919881E+00_JPRB, 0.911715E+00_JPRB, 0.903184E+00_JPRB, 0.894294E+00_JPRB &
+  &, 0.885051E+00_JPRB, 0.875461E+00_JPRB, 0.865534E+00_JPRB &
+  &, 0.855277E+00_JPRB, 0.844697E+00_JPRB, 0.833802E+00_JPRB, 0.822601E+00_JPRB &
+  &, 0.811103E+00_JPRB, 0.799322E+00_JPRB, 0.787266E+00_JPRB &
+  &, 0.774949E+00_JPRB, 0.762374E+00_JPRB, 0.749567E+00_JPRB, 0.736529E+00_JPRB &
+  &, 0.723279E+00_JPRB, 0.709829E+00_JPRB, 0.696195E+00_JPRB &
+  &, 0.682390E+00_JPRB, 0.668430E+00_JPRB, 0.654324E+00_JPRB, 0.640097E+00_JPRB &
+  &, 0.625763E+00_JPRB, 0.611335E+00_JPRB, 0.596829E+00_JPRB &
+  &, 0.582265E+00_JPRB, 0.567652E+00_JPRB, 0.553024E+00_JPRB, 0.538374E+00_JPRB &
+  &, 0.523738E+00_JPRB, 0.509121E+00_JPRB, 0.494552E+00_JPRB &
+  &, 0.480034E+00_JPRB, 0.465587E+00_JPRB, 0.451229E+00_JPRB, 0.436977E+00_JPRB &
+  &, 0.422850E+00_JPRB, 0.408838E+00_JPRB, 0.394988E+00_JPRB &
+  &, 0.381303E+00_JPRB, 0.367784E+00_JPRB, 0.354464E+00_JPRB, 0.341325E+00_JPRB &
+  &, 0.328416E+00_JPRB, 0.315716E+00_JPRB, 0.303255E+00_JPRB &
+  &, 0.291046E+00_JPRB, 0.279079E+00_JPRB, 0.267364E+00_JPRB, 0.255927E+00_JPRB &
+  &, 0.244754E+00_JPRB, 0.233870E+00_JPRB, 0.223278E+00_JPRB &
+  &, 0.212958E+00_JPRB, 0.202951E+00_JPRB, 0.193211E+00_JPRB, 0.183779E+00_JPRB &
+  &, 0.174669E+00_JPRB, 0.165829E+00_JPRB, 0.157295E+00_JPRB &
+  &, 0.149077E+00_JPRB, 0.141140E+00_JPRB, 0.133514E+00_JPRB, 0.126157E+00_JPRB &
+  &, 0.119099E+00_JPRB, 0.112345E+00_JPRB, 0.105870E+00_JPRB &
+  &, 0.996476E-01_JPRB, 0.937319E-01_JPRB, 0.880645E-01_JPRB, 0.826696E-01_JPRB &
+  &, 0.775120E-01_JPRB, 0.726140E-01_JPRB, 0.679672E-01_JPRB &
+  &, 0.635299E-01_JPRB, 0.593531E-01_JPRB, 0.553922E-01_JPRB, 0.516317E-01_JPRB &
+  &, 0.480883E-01_JPRB, 0.447445E-01_JPRB, 0.415806E-01_JPRB &
+  &, 0.386109E-01_JPRB, 0.358135E-01_JPRB, 0.331643E-01_JPRB, 0.307123E-01_JPRB &
+  &, 0.283947E-01_JPRB, 0.262601E-01_JPRB, 0.242418E-01_JPRB &
+  &, 0.223481E-01_JPRB, 0.205879E-01_JPRB, 0.189284E-01_JPRB, 0.174189E-01_JPRB &
+  &, 0.159830E-01_JPRB, 0.146693E-01_JPRB, 0.134413E-01_JPRB &
+  &, 0.123045E-01_JPRB, 0.112645E-01_JPRB, 0.102809E-01_JPRB, 0.935732E-02_JPRB &
+  &, 0.854538E-02_JPRB, 0.780271E-02_JPRB, 0.708416E-02_JPRB &
+  &, 0.644146E-02_JPRB, 0.582813E-02_JPRB, 0.529745E-02_JPRB, 0.480159E-02_JPRB &
+  &, 0.434260E-02_JPRB, 0.392254E-02_JPRB, 0.354356E-02_JPRB &
+  &, 0.320779E-02_JPRB, 0.286152E-02_JPRB, 0.261801E-02_JPRB, 0.236691E-02_JPRB &
+  &, 0.210813E-02_JPRB, 0.190066E-02_JPRB, 0.168694E-02_JPRB &
+  &, 0.152761E-02_JPRB, 0.136353E-02_JPRB, 0.119464E-02_JPRB, 0.108408E-02_JPRB &
+  &, 0.970275E-03_JPRB, 0.853203E-03_JPRB, 0.732822E-03_JPRB/)
+XCW( 489, :) = (/ &
+  &  0.993792E+00_JPRB, 0.991205E+00_JPRB, 0.988205E+00_JPRB, 0.984799E+00_JPRB &
+  &, 0.980982E+00_JPRB, 0.976762E+00_JPRB, 0.972136E+00_JPRB &
+  &, 0.967109E+00_JPRB, 0.961684E+00_JPRB, 0.955864E+00_JPRB, 0.949651E+00_JPRB &
+  &, 0.943050E+00_JPRB, 0.936064E+00_JPRB, 0.928698E+00_JPRB &
+  &, 0.920957E+00_JPRB, 0.912843E+00_JPRB, 0.904364E+00_JPRB, 0.895526E+00_JPRB &
+  &, 0.886334E+00_JPRB, 0.876793E+00_JPRB, 0.866915E+00_JPRB &
+  &, 0.856706E+00_JPRB, 0.846169E+00_JPRB, 0.835319E+00_JPRB, 0.824160E+00_JPRB &
+  &, 0.812707E+00_JPRB, 0.800965E+00_JPRB, 0.788949E+00_JPRB &
+  &, 0.776665E+00_JPRB, 0.764129E+00_JPRB, 0.751353E+00_JPRB, 0.738335E+00_JPRB &
+  &, 0.725130E+00_JPRB, 0.711710E+00_JPRB, 0.698100E+00_JPRB &
+  &, 0.684316E+00_JPRB, 0.670376E+00_JPRB, 0.656299E+00_JPRB, 0.642093E+00_JPRB &
+  &, 0.627778E+00_JPRB, 0.613358E+00_JPRB, 0.598871E+00_JPRB &
+  &, 0.584313E+00_JPRB, 0.569718E+00_JPRB, 0.555084E+00_JPRB, 0.540449E+00_JPRB &
+  &, 0.525816E+00_JPRB, 0.511199E+00_JPRB, 0.496630E+00_JPRB &
+  &, 0.482097E+00_JPRB, 0.467647E+00_JPRB, 0.453282E+00_JPRB, 0.439023E+00_JPRB &
+  &, 0.424873E+00_JPRB, 0.410865E+00_JPRB, 0.397002E+00_JPRB &
+  &, 0.383287E+00_JPRB, 0.369751E+00_JPRB, 0.356411E+00_JPRB, 0.343251E+00_JPRB &
+  &, 0.330317E+00_JPRB, 0.317591E+00_JPRB, 0.305101E+00_JPRB &
+  &, 0.292860E+00_JPRB, 0.280860E+00_JPRB, 0.269127E+00_JPRB, 0.257651E+00_JPRB &
+  &, 0.246456E+00_JPRB, 0.235528E+00_JPRB, 0.224889E+00_JPRB &
+  &, 0.214539E+00_JPRB, 0.204479E+00_JPRB, 0.194706E+00_JPRB, 0.185237E+00_JPRB &
+  &, 0.176089E+00_JPRB, 0.167208E+00_JPRB, 0.158630E+00_JPRB &
+  &, 0.150367E+00_JPRB, 0.142405E+00_JPRB, 0.134728E+00_JPRB, 0.127343E+00_JPRB &
+  &, 0.120230E+00_JPRB, 0.113444E+00_JPRB, 0.106908E+00_JPRB &
+  &, 0.100678E+00_JPRB, 0.946966E-01_JPRB, 0.889896E-01_JPRB, 0.835530E-01_JPRB &
+  &, 0.783518E-01_JPRB, 0.734387E-01_JPRB, 0.687447E-01_JPRB &
+  &, 0.642899E-01_JPRB, 0.600623E-01_JPRB, 0.560484E-01_JPRB, 0.522662E-01_JPRB &
+  &, 0.486999E-01_JPRB, 0.452976E-01_JPRB, 0.421081E-01_JPRB &
+  &, 0.391118E-01_JPRB, 0.362865E-01_JPRB, 0.336453E-01_JPRB, 0.311638E-01_JPRB &
+  &, 0.288155E-01_JPRB, 0.266490E-01_JPRB, 0.245975E-01_JPRB &
+  &, 0.226695E-01_JPRB, 0.208737E-01_JPRB, 0.192189E-01_JPRB, 0.176719E-01_JPRB &
+  &, 0.162399E-01_JPRB, 0.148868E-01_JPRB, 0.136622E-01_JPRB &
+  &, 0.125288E-01_JPRB, 0.114468E-01_JPRB, 0.104659E-01_JPRB, 0.954520E-02_JPRB &
+  &, 0.868843E-02_JPRB, 0.794792E-02_JPRB, 0.723154E-02_JPRB &
+  &, 0.659103E-02_JPRB, 0.597991E-02_JPRB, 0.540012E-02_JPRB, 0.490576E-02_JPRB &
+  &, 0.444827E-02_JPRB, 0.402974E-02_JPRB, 0.365228E-02_JPRB &
+  &, 0.326292E-02_JPRB, 0.297334E-02_JPRB, 0.267471E-02_JPRB, 0.236691E-02_JPRB &
+  &, 0.216641E-02_JPRB, 0.190066E-02_JPRB, 0.174683E-02_JPRB &
+  &, 0.152761E-02_JPRB, 0.136353E-02_JPRB, 0.125699E-02_JPRB, 0.108408E-02_JPRB &
+  &, 0.970275E-03_JPRB, 0.853203E-03_JPRB, 0.798534E-03_JPRB/)
+XCW( 490, :) = (/ &
+  &  0.994042E+00_JPRB, 0.991517E+00_JPRB, 0.988579E+00_JPRB, 0.985235E+00_JPRB &
+  &, 0.981479E+00_JPRB, 0.977318E+00_JPRB, 0.972753E+00_JPRB &
+  &, 0.967786E+00_JPRB, 0.962420E+00_JPRB, 0.956658E+00_JPRB, 0.950504E+00_JPRB &
+  &, 0.943959E+00_JPRB, 0.937029E+00_JPRB, 0.929718E+00_JPRB &
+  &, 0.922032E+00_JPRB, 0.913972E+00_JPRB, 0.905546E+00_JPRB, 0.896759E+00_JPRB &
+  &, 0.887618E+00_JPRB, 0.878129E+00_JPRB, 0.868300E+00_JPRB &
+  &, 0.858135E+00_JPRB, 0.847644E+00_JPRB, 0.836839E+00_JPRB, 0.825723E+00_JPRB &
+  &, 0.814311E+00_JPRB, 0.802612E+00_JPRB, 0.790631E+00_JPRB &
+  &, 0.778390E+00_JPRB, 0.765888E+00_JPRB, 0.753148E+00_JPRB, 0.740175E+00_JPRB &
+  &, 0.726986E+00_JPRB, 0.713594E+00_JPRB, 0.700014E+00_JPRB &
+  &, 0.686250E+00_JPRB, 0.672340E+00_JPRB, 0.658284E+00_JPRB, 0.644088E+00_JPRB &
+  &, 0.629793E+00_JPRB, 0.615392E+00_JPRB, 0.600913E+00_JPRB &
+  &, 0.586373E+00_JPRB, 0.571784E+00_JPRB, 0.557166E+00_JPRB, 0.542524E+00_JPRB &
+  &, 0.527893E+00_JPRB, 0.513278E+00_JPRB, 0.498707E+00_JPRB &
+  &, 0.484173E+00_JPRB, 0.469719E+00_JPRB, 0.455350E+00_JPRB, 0.441084E+00_JPRB &
+  &, 0.426925E+00_JPRB, 0.412892E+00_JPRB, 0.399001E+00_JPRB &
+  &, 0.385286E+00_JPRB, 0.371733E+00_JPRB, 0.358358E+00_JPRB, 0.345176E+00_JPRB &
+  &, 0.332218E+00_JPRB, 0.319466E+00_JPRB, 0.306965E+00_JPRB &
+  &, 0.294675E+00_JPRB, 0.282659E+00_JPRB, 0.270890E+00_JPRB, 0.259375E+00_JPRB &
+  &, 0.248139E+00_JPRB, 0.237186E+00_JPRB, 0.226499E+00_JPRB &
+  &, 0.216121E+00_JPRB, 0.206030E+00_JPRB, 0.196223E+00_JPRB, 0.186718E+00_JPRB &
+  &, 0.177509E+00_JPRB, 0.168587E+00_JPRB, 0.159989E+00_JPRB &
+  &, 0.151680E+00_JPRB, 0.143670E+00_JPRB, 0.135943E+00_JPRB, 0.128530E+00_JPRB &
+  &, 0.121387E+00_JPRB, 0.114543E+00_JPRB, 0.107974E+00_JPRB &
+  &, 0.101680E+00_JPRB, 0.956614E-01_JPRB, 0.899435E-01_JPRB, 0.844659E-01_JPRB &
+  &, 0.792216E-01_JPRB, 0.742634E-01_JPRB, 0.695223E-01_JPRB &
+  &, 0.650498E-01_JPRB, 0.607714E-01_JPRB, 0.567374E-01_JPRB, 0.529340E-01_JPRB &
+  &, 0.493115E-01_JPRB, 0.458853E-01_JPRB, 0.426709E-01_JPRB &
+  &, 0.396484E-01_JPRB, 0.367959E-01_JPRB, 0.341264E-01_JPRB, 0.316154E-01_JPRB &
+  &, 0.292362E-01_JPRB, 0.270379E-01_JPRB, 0.249533E-01_JPRB &
+  &, 0.230311E-01_JPRB, 0.212412E-01_JPRB, 0.195508E-01_JPRB, 0.179669E-01_JPRB &
+  &, 0.164968E-01_JPRB, 0.151478E-01_JPRB, 0.138831E-01_JPRB &
+  &, 0.127532E-01_JPRB, 0.116290E-01_JPRB, 0.106510E-01_JPRB, 0.973309E-02_JPRB &
+  &, 0.887917E-02_JPRB, 0.809313E-02_JPRB, 0.737892E-02_JPRB &
+  &, 0.669074E-02_JPRB, 0.608109E-02_JPRB, 0.550279E-02_JPRB, 0.500992E-02_JPRB &
+  &, 0.455394E-02_JPRB, 0.408333E-02_JPRB, 0.370664E-02_JPRB &
+  &, 0.337319E-02_JPRB, 0.302925E-02_JPRB, 0.273140E-02_JPRB, 0.242440E-02_JPRB &
+  &, 0.222469E-02_JPRB, 0.195974E-02_JPRB, 0.174683E-02_JPRB &
+  &, 0.158831E-02_JPRB, 0.142505E-02_JPRB, 0.125699E-02_JPRB, 0.114726E-02_JPRB &
+  &, 0.103429E-02_JPRB, 0.918065E-03_JPRB, 0.798534E-03_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART70',1,ZHOOK_HANDLE)
+END SUBROUTINE PART70
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART71
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART71',0,ZHOOK_HANDLE)
+
+XCW( 491, :) = (/ &
+  &  0.994292E+00_JPRB, 0.991830E+00_JPRB, 0.988954E+00_JPRB, 0.985670E+00_JPRB &
+  &, 0.981975E+00_JPRB, 0.977876E+00_JPRB, 0.973370E+00_JPRB &
+  &, 0.968463E+00_JPRB, 0.963156E+00_JPRB, 0.957453E+00_JPRB, 0.951356E+00_JPRB &
+  &, 0.944869E+00_JPRB, 0.937996E+00_JPRB, 0.930740E+00_JPRB &
+  &, 0.923108E+00_JPRB, 0.915102E+00_JPRB, 0.906729E+00_JPRB, 0.897994E+00_JPRB &
+  &, 0.888904E+00_JPRB, 0.879465E+00_JPRB, 0.869681E+00_JPRB &
+  &, 0.859564E+00_JPRB, 0.849123E+00_JPRB, 0.838359E+00_JPRB, 0.827290E+00_JPRB &
+  &, 0.815919E+00_JPRB, 0.804258E+00_JPRB, 0.792318E+00_JPRB &
+  &, 0.780114E+00_JPRB, 0.767647E+00_JPRB, 0.754942E+00_JPRB, 0.742002E+00_JPRB &
+  &, 0.728842E+00_JPRB, 0.715479E+00_JPRB, 0.701928E+00_JPRB &
+  &, 0.688194E+00_JPRB, 0.674305E+00_JPRB, 0.660269E+00_JPRB, 0.646093E+00_JPRB &
+  &, 0.631807E+00_JPRB, 0.617426E+00_JPRB, 0.602966E+00_JPRB &
+  &, 0.588433E+00_JPRB, 0.573849E+00_JPRB, 0.559237E+00_JPRB, 0.544610E+00_JPRB &
+  &, 0.529982E+00_JPRB, 0.515368E+00_JPRB, 0.500785E+00_JPRB &
+  &, 0.486263E+00_JPRB, 0.471805E+00_JPRB, 0.457418E+00_JPRB, 0.443145E+00_JPRB &
+  &, 0.428963E+00_JPRB, 0.414934E+00_JPRB, 0.401030E+00_JPRB &
+  &, 0.387285E+00_JPRB, 0.373715E+00_JPRB, 0.360321E+00_JPRB, 0.347118E+00_JPRB &
+  &, 0.334137E+00_JPRB, 0.321358E+00_JPRB, 0.308811E+00_JPRB &
+  &, 0.296508E+00_JPRB, 0.284458E+00_JPRB, 0.272653E+00_JPRB, 0.261118E+00_JPRB &
+  &, 0.249841E+00_JPRB, 0.238844E+00_JPRB, 0.228131E+00_JPRB &
+  &, 0.217724E+00_JPRB, 0.207580E+00_JPRB, 0.197740E+00_JPRB, 0.188199E+00_JPRB &
+  &, 0.178951E+00_JPRB, 0.169989E+00_JPRB, 0.161348E+00_JPRB &
+  &, 0.152993E+00_JPRB, 0.144935E+00_JPRB, 0.137182E+00_JPRB, 0.129717E+00_JPRB &
+  &, 0.122544E+00_JPRB, 0.115642E+00_JPRB, 0.109040E+00_JPRB &
+  &, 0.102711E+00_JPRB, 0.966545E-01_JPRB, 0.908686E-01_JPRB, 0.853493E-01_JPRB &
+  &, 0.800914E-01_JPRB, 0.750881E-01_JPRB, 0.703309E-01_JPRB &
+  &, 0.658098E-01_JPRB, 0.615128E-01_JPRB, 0.574264E-01_JPRB, 0.535684E-01_JPRB &
+  &, 0.499231E-01_JPRB, 0.465076E-01_JPRB, 0.432336E-01_JPRB &
+  &, 0.401850E-01_JPRB, 0.373053E-01_JPRB, 0.346074E-01_JPRB, 0.320669E-01_JPRB &
+  &, 0.296570E-01_JPRB, 0.274268E-01_JPRB, 0.253486E-01_JPRB &
+  &, 0.233927E-01_JPRB, 0.215678E-01_JPRB, 0.198412E-01_JPRB, 0.182620E-01_JPRB &
+  &, 0.167966E-01_JPRB, 0.154088E-01_JPRB, 0.141482E-01_JPRB &
+  &, 0.129327E-01_JPRB, 0.118568E-01_JPRB, 0.108360E-01_JPRB, 0.992097E-02_JPRB &
+  &, 0.902222E-02_JPRB, 0.823833E-02_JPRB, 0.752630E-02_JPRB &
+  &, 0.684031E-02_JPRB, 0.618228E-02_JPRB, 0.565679E-02_JPRB, 0.511409E-02_JPRB &
+  &, 0.460678E-02_JPRB, 0.419053E-02_JPRB, 0.381537E-02_JPRB &
+  &, 0.342833E-02_JPRB, 0.308517E-02_JPRB, 0.278810E-02_JPRB, 0.248188E-02_JPRB &
+  &, 0.222469E-02_JPRB, 0.201883E-02_JPRB, 0.180672E-02_JPRB &
+  &, 0.164902E-02_JPRB, 0.142505E-02_JPRB, 0.131934E-02_JPRB, 0.114726E-02_JPRB &
+  &, 0.103429E-02_JPRB, 0.918065E-03_JPRB, 0.798534E-03_JPRB/)
+XCW( 492, :) = (/ &
+  &  0.994542E+00_JPRB, 0.992141E+00_JPRB, 0.989328E+00_JPRB, 0.986105E+00_JPRB &
+  &, 0.982472E+00_JPRB, 0.978433E+00_JPRB, 0.973987E+00_JPRB &
+  &, 0.969140E+00_JPRB, 0.963892E+00_JPRB, 0.958247E+00_JPRB, 0.952209E+00_JPRB &
+  &, 0.945779E+00_JPRB, 0.938962E+00_JPRB, 0.931762E+00_JPRB &
+  &, 0.924185E+00_JPRB, 0.916233E+00_JPRB, 0.907912E+00_JPRB, 0.899230E+00_JPRB &
+  &, 0.890191E+00_JPRB, 0.880800E+00_JPRB, 0.871066E+00_JPRB &
+  &, 0.860996E+00_JPRB, 0.850602E+00_JPRB, 0.839886E+00_JPRB, 0.828856E+00_JPRB &
+  &, 0.817530E+00_JPRB, 0.805908E+00_JPRB, 0.794009E+00_JPRB &
+  &, 0.781838E+00_JPRB, 0.769410E+00_JPRB, 0.756737E+00_JPRB, 0.743833E+00_JPRB &
+  &, 0.730706E+00_JPRB, 0.717368E+00_JPRB, 0.703842E+00_JPRB &
+  &, 0.690138E+00_JPRB, 0.676269E+00_JPRB, 0.662254E+00_JPRB, 0.648108E+00_JPRB &
+  &, 0.633832E+00_JPRB, 0.619471E+00_JPRB, 0.605018E+00_JPRB &
+  &, 0.590504E+00_JPRB, 0.575927E+00_JPRB, 0.561320E+00_JPRB, 0.546697E+00_JPRB &
+  &, 0.532072E+00_JPRB, 0.517459E+00_JPRB, 0.502876E+00_JPRB &
+  &, 0.488352E+00_JPRB, 0.473878E+00_JPRB, 0.459499E+00_JPRB, 0.445205E+00_JPRB &
+  &, 0.431030E+00_JPRB, 0.416975E+00_JPRB, 0.403059E+00_JPRB &
+  &, 0.389300E+00_JPRB, 0.375697E+00_JPRB, 0.362284E+00_JPRB, 0.349076E+00_JPRB &
+  &, 0.336055E+00_JPRB, 0.323250E+00_JPRB, 0.310693E+00_JPRB &
+  &, 0.298359E+00_JPRB, 0.286258E+00_JPRB, 0.274435E+00_JPRB, 0.262862E+00_JPRB &
+  &, 0.251563E+00_JPRB, 0.240522E+00_JPRB, 0.229783E+00_JPRB &
+  &, 0.219326E+00_JPRB, 0.209152E+00_JPRB, 0.199257E+00_JPRB, 0.189680E+00_JPRB &
+  &, 0.180394E+00_JPRB, 0.171391E+00_JPRB, 0.162707E+00_JPRB &
+  &, 0.154307E+00_JPRB, 0.146225E+00_JPRB, 0.138422E+00_JPRB, 0.130903E+00_JPRB &
+  &, 0.123701E+00_JPRB, 0.116768E+00_JPRB, 0.110105E+00_JPRB &
+  &, 0.103741E+00_JPRB, 0.976476E-01_JPRB, 0.918515E-01_JPRB, 0.862917E-01_JPRB &
+  &, 0.809912E-01_JPRB, 0.759434E-01_JPRB, 0.711396E-01_JPRB &
+  &, 0.665697E-01_JPRB, 0.622542E-01_JPRB, 0.581482E-01_JPRB, 0.542362E-01_JPRB &
+  &, 0.505687E-01_JPRB, 0.470953E-01_JPRB, 0.438315E-01_JPRB &
+  &, 0.407216E-01_JPRB, 0.378147E-01_JPRB, 0.350884E-01_JPRB, 0.325184E-01_JPRB &
+  &, 0.300778E-01_JPRB, 0.278157E-01_JPRB, 0.257044E-01_JPRB &
+  &, 0.237543E-01_JPRB, 0.218944E-01_JPRB, 0.201731E-01_JPRB, 0.185571E-01_JPRB &
+  &, 0.170535E-01_JPRB, 0.156698E-01_JPRB, 0.143691E-01_JPRB &
+  &, 0.131570E-01_JPRB, 0.120847E-01_JPRB, 0.110211E-01_JPRB, 0.101089E-01_JPRB &
+  &, 0.921296E-02_JPRB, 0.838354E-02_JPRB, 0.767368E-02_JPRB &
+  &, 0.694003E-02_JPRB, 0.633405E-02_JPRB, 0.575946E-02_JPRB, 0.521825E-02_JPRB &
+  &, 0.471245E-02_JPRB, 0.429772E-02_JPRB, 0.386973E-02_JPRB &
+  &, 0.348346E-02_JPRB, 0.314108E-02_JPRB, 0.284480E-02_JPRB, 0.253937E-02_JPRB &
+  &, 0.228298E-02_JPRB, 0.207791E-02_JPRB, 0.186661E-02_JPRB &
+  &, 0.164902E-02_JPRB, 0.148657E-02_JPRB, 0.131934E-02_JPRB, 0.121044E-02_JPRB &
+  &, 0.103429E-02_JPRB, 0.918065E-03_JPRB, 0.864245E-03_JPRB/)
+XCW( 493, :) = (/ &
+  &  0.994792E+00_JPRB, 0.992453E+00_JPRB, 0.989701E+00_JPRB, 0.986541E+00_JPRB &
+  &, 0.982969E+00_JPRB, 0.978990E+00_JPRB, 0.974606E+00_JPRB &
+  &, 0.969818E+00_JPRB, 0.964629E+00_JPRB, 0.959043E+00_JPRB, 0.953061E+00_JPRB &
+  &, 0.946688E+00_JPRB, 0.939929E+00_JPRB, 0.932785E+00_JPRB &
+  &, 0.925263E+00_JPRB, 0.917365E+00_JPRB, 0.909097E+00_JPRB, 0.900466E+00_JPRB &
+  &, 0.891478E+00_JPRB, 0.882139E+00_JPRB, 0.872453E+00_JPRB &
+  &, 0.862432E+00_JPRB, 0.852080E+00_JPRB, 0.841410E+00_JPRB, 0.830427E+00_JPRB &
+  &, 0.819142E+00_JPRB, 0.807562E+00_JPRB, 0.795699E+00_JPRB &
+  &, 0.783570E+00_JPRB, 0.771177E+00_JPRB, 0.758540E+00_JPRB, 0.745664E+00_JPRB &
+  &, 0.732566E+00_JPRB, 0.719262E+00_JPRB, 0.705766E+00_JPRB &
+  &, 0.692082E+00_JPRB, 0.678243E+00_JPRB, 0.664248E+00_JPRB, 0.650113E+00_JPRB &
+  &, 0.635868E+00_JPRB, 0.621515E+00_JPRB, 0.607082E+00_JPRB &
+  &, 0.592575E+00_JPRB, 0.578004E+00_JPRB, 0.563414E+00_JPRB, 0.548796E+00_JPRB &
+  &, 0.534173E+00_JPRB, 0.519563E+00_JPRB, 0.504980E+00_JPRB &
+  &, 0.490441E+00_JPRB, 0.475978E+00_JPRB, 0.461580E+00_JPRB, 0.447280E+00_JPRB &
+  &, 0.433082E+00_JPRB, 0.419017E+00_JPRB, 0.405088E+00_JPRB &
+  &, 0.391314E+00_JPRB, 0.377695E+00_JPRB, 0.364263E+00_JPRB, 0.351018E+00_JPRB &
+  &, 0.337990E+00_JPRB, 0.325160E+00_JPRB, 0.312574E+00_JPRB &
+  &, 0.300210E+00_JPRB, 0.288075E+00_JPRB, 0.276217E+00_JPRB, 0.264605E+00_JPRB &
+  &, 0.253285E+00_JPRB, 0.242220E+00_JPRB, 0.231435E+00_JPRB &
+  &, 0.220929E+00_JPRB, 0.210724E+00_JPRB, 0.200795E+00_JPRB, 0.191183E+00_JPRB &
+  &, 0.181837E+00_JPRB, 0.172816E+00_JPRB, 0.164090E+00_JPRB &
+  &, 0.155644E+00_JPRB, 0.147515E+00_JPRB, 0.139661E+00_JPRB, 0.132116E+00_JPRB &
+  &, 0.124859E+00_JPRB, 0.117894E+00_JPRB, 0.111198E+00_JPRB &
+  &, 0.104799E+00_JPRB, 0.986691E-01_JPRB, 0.928055E-01_JPRB, 0.872045E-01_JPRB &
+  &, 0.818610E-01_JPRB, 0.767986E-01_JPRB, 0.719482E-01_JPRB &
+  &, 0.673614E-01_JPRB, 0.629956E-01_JPRB, 0.588372E-01_JPRB, 0.549040E-01_JPRB &
+  &, 0.512143E-01_JPRB, 0.476830E-01_JPRB, 0.443942E-01_JPRB &
+  &, 0.412582E-01_JPRB, 0.383241E-01_JPRB, 0.355695E-01_JPRB, 0.329699E-01_JPRB &
+  &, 0.305369E-01_JPRB, 0.282434E-01_JPRB, 0.260997E-01_JPRB &
+  &, 0.241159E-01_JPRB, 0.222211E-01_JPRB, 0.204635E-01_JPRB, 0.188521E-01_JPRB &
+  &, 0.173533E-01_JPRB, 0.159308E-01_JPRB, 0.146342E-01_JPRB &
+  &, 0.134262E-01_JPRB, 0.122669E-01_JPRB, 0.112524E-01_JPRB, 0.102498E-01_JPRB &
+  &, 0.935601E-02_JPRB, 0.857714E-02_JPRB, 0.782106E-02_JPRB &
+  &, 0.708959E-02_JPRB, 0.643524E-02_JPRB, 0.586213E-02_JPRB, 0.532242E-02_JPRB &
+  &, 0.481812E-02_JPRB, 0.435132E-02_JPRB, 0.397846E-02_JPRB &
+  &, 0.359373E-02_JPRB, 0.325290E-02_JPRB, 0.290149E-02_JPRB, 0.259686E-02_JPRB &
+  &, 0.234126E-02_JPRB, 0.213699E-02_JPRB, 0.192650E-02_JPRB &
+  &, 0.170972E-02_JPRB, 0.154810E-02_JPRB, 0.138169E-02_JPRB, 0.121044E-02_JPRB &
+  &, 0.109831E-02_JPRB, 0.982926E-03_JPRB, 0.864245E-03_JPRB/)
+XCW( 494, :) = (/ &
+  &  0.995041E+00_JPRB, 0.992766E+00_JPRB, 0.990075E+00_JPRB, 0.986976E+00_JPRB &
+  &, 0.983465E+00_JPRB, 0.979548E+00_JPRB, 0.975224E+00_JPRB &
+  &, 0.970495E+00_JPRB, 0.965365E+00_JPRB, 0.959838E+00_JPRB, 0.953915E+00_JPRB &
+  &, 0.947601E+00_JPRB, 0.940897E+00_JPRB, 0.933808E+00_JPRB &
+  &, 0.926341E+00_JPRB, 0.918497E+00_JPRB, 0.910283E+00_JPRB, 0.901704E+00_JPRB &
+  &, 0.892768E+00_JPRB, 0.883478E+00_JPRB, 0.873841E+00_JPRB &
+  &, 0.863868E+00_JPRB, 0.853562E+00_JPRB, 0.842937E+00_JPRB, 0.831997E+00_JPRB &
+  &, 0.820753E+00_JPRB, 0.809216E+00_JPRB, 0.797394E+00_JPRB &
+  &, 0.785299E+00_JPRB, 0.772944E+00_JPRB, 0.760343E+00_JPRB, 0.747500E+00_JPRB &
+  &, 0.734434E+00_JPRB, 0.721160E+00_JPRB, 0.707689E+00_JPRB &
+  &, 0.694035E+00_JPRB, 0.680218E+00_JPRB, 0.666243E+00_JPRB, 0.652128E+00_JPRB &
+  &, 0.637903E+00_JPRB, 0.623570E+00_JPRB, 0.609145E+00_JPRB &
+  &, 0.594646E+00_JPRB, 0.580093E+00_JPRB, 0.565509E+00_JPRB, 0.550894E+00_JPRB &
+  &, 0.536275E+00_JPRB, 0.521666E+00_JPRB, 0.507083E+00_JPRB &
+  &, 0.492544E+00_JPRB, 0.478064E+00_JPRB, 0.463675E+00_JPRB, 0.449355E+00_JPRB &
+  &, 0.435163E+00_JPRB, 0.421073E+00_JPRB, 0.407133E+00_JPRB &
+  &, 0.393329E+00_JPRB, 0.379709E+00_JPRB, 0.366259E+00_JPRB, 0.352993E+00_JPRB &
+  &, 0.339925E+00_JPRB, 0.327069E+00_JPRB, 0.314456E+00_JPRB &
+  &, 0.302061E+00_JPRB, 0.289912E+00_JPRB, 0.278018E+00_JPRB, 0.266368E+00_JPRB &
+  &, 0.255006E+00_JPRB, 0.243898E+00_JPRB, 0.233087E+00_JPRB &
+  &, 0.222553E+00_JPRB, 0.212296E+00_JPRB, 0.202334E+00_JPRB, 0.192686E+00_JPRB &
+  &, 0.183302E+00_JPRB, 0.174242E+00_JPRB, 0.165472E+00_JPRB &
+  &, 0.156982E+00_JPRB, 0.148805E+00_JPRB, 0.140926E+00_JPRB, 0.133328E+00_JPRB &
+  &, 0.126042E+00_JPRB, 0.119020E+00_JPRB, 0.112291E+00_JPRB &
+  &, 0.105858E+00_JPRB, 0.996906E-01_JPRB, 0.937883E-01_JPRB, 0.881469E-01_JPRB &
+  &, 0.827608E-01_JPRB, 0.776538E-01_JPRB, 0.727569E-01_JPRB &
+  &, 0.681213E-01_JPRB, 0.637370E-01_JPRB, 0.595590E-01_JPRB, 0.556052E-01_JPRB &
+  &, 0.518598E-01_JPRB, 0.483052E-01_JPRB, 0.449569E-01_JPRB &
+  &, 0.418306E-01_JPRB, 0.388699E-01_JPRB, 0.360505E-01_JPRB, 0.334214E-01_JPRB &
+  &, 0.309577E-01_JPRB, 0.286712E-01_JPRB, 0.264950E-01_JPRB &
+  &, 0.244775E-01_JPRB, 0.225885E-01_JPRB, 0.207954E-01_JPRB, 0.191472E-01_JPRB &
+  &, 0.176102E-01_JPRB, 0.161918E-01_JPRB, 0.148551E-01_JPRB &
+  &, 0.136506E-01_JPRB, 0.124947E-01_JPRB, 0.114375E-01_JPRB, 0.104377E-01_JPRB &
+  &, 0.954674E-02_JPRB, 0.872235E-02_JPRB, 0.796843E-02_JPRB &
+  &, 0.723916E-02_JPRB, 0.658701E-02_JPRB, 0.596480E-02_JPRB, 0.542658E-02_JPRB &
+  &, 0.492380E-02_JPRB, 0.445851E-02_JPRB, 0.403282E-02_JPRB &
+  &, 0.364886E-02_JPRB, 0.330882E-02_JPRB, 0.295819E-02_JPRB, 0.265434E-02_JPRB &
+  &, 0.239954E-02_JPRB, 0.219607E-02_JPRB, 0.192650E-02_JPRB &
+  &, 0.177043E-02_JPRB, 0.154810E-02_JPRB, 0.138169E-02_JPRB, 0.127362E-02_JPRB &
+  &, 0.109831E-02_JPRB, 0.982926E-03_JPRB, 0.864245E-03_JPRB/)
+XCW( 495, :) = (/ &
+  &  0.995294E+00_JPRB, 0.993079E+00_JPRB, 0.990451E+00_JPRB, 0.987412E+00_JPRB &
+  &, 0.983963E+00_JPRB, 0.980106E+00_JPRB, 0.975841E+00_JPRB &
+  &, 0.971173E+00_JPRB, 0.966103E+00_JPRB, 0.960634E+00_JPRB, 0.954770E+00_JPRB &
+  &, 0.948512E+00_JPRB, 0.941865E+00_JPRB, 0.934833E+00_JPRB &
+  &, 0.927420E+00_JPRB, 0.919630E+00_JPRB, 0.911469E+00_JPRB, 0.902944E+00_JPRB &
+  &, 0.894057E+00_JPRB, 0.884817E+00_JPRB, 0.875229E+00_JPRB &
+  &, 0.865303E+00_JPRB, 0.855048E+00_JPRB, 0.844467E+00_JPRB, 0.833570E+00_JPRB &
+  &, 0.822368E+00_JPRB, 0.810874E+00_JPRB, 0.799092E+00_JPRB &
+  &, 0.787035E+00_JPRB, 0.774715E+00_JPRB, 0.762146E+00_JPRB, 0.749339E+00_JPRB &
+  &, 0.736307E+00_JPRB, 0.723062E+00_JPRB, 0.709617E+00_JPRB &
+  &, 0.695989E+00_JPRB, 0.682192E+00_JPRB, 0.668238E+00_JPRB, 0.654153E+00_JPRB &
+  &, 0.639938E+00_JPRB, 0.625625E+00_JPRB, 0.611209E+00_JPRB &
+  &, 0.596728E+00_JPRB, 0.582193E+00_JPRB, 0.567603E+00_JPRB, 0.552993E+00_JPRB &
+  &, 0.538377E+00_JPRB, 0.523782E+00_JPRB, 0.509200E+00_JPRB &
+  &, 0.494659E+00_JPRB, 0.480177E+00_JPRB, 0.465770E+00_JPRB, 0.451444E+00_JPRB &
+  &, 0.437229E+00_JPRB, 0.423144E+00_JPRB, 0.409177E+00_JPRB &
+  &, 0.395375E+00_JPRB, 0.381723E+00_JPRB, 0.368238E+00_JPRB, 0.354968E+00_JPRB &
+  &, 0.341877E+00_JPRB, 0.328996E+00_JPRB, 0.316355E+00_JPRB &
+  &, 0.303930E+00_JPRB, 0.291748E+00_JPRB, 0.279819E+00_JPRB, 0.268150E+00_JPRB &
+  &, 0.256748E+00_JPRB, 0.245617E+00_JPRB, 0.234759E+00_JPRB &
+  &, 0.224177E+00_JPRB, 0.213889E+00_JPRB, 0.203895E+00_JPRB, 0.194190E+00_JPRB &
+  &, 0.184791E+00_JPRB, 0.175667E+00_JPRB, 0.166855E+00_JPRB &
+  &, 0.158344E+00_JPRB, 0.150120E+00_JPRB, 0.142191E+00_JPRB, 0.134567E+00_JPRB &
+  &, 0.127226E+00_JPRB, 0.120173E+00_JPRB, 0.113412E+00_JPRB &
+  &, 0.106916E+00_JPRB, 0.100712E+00_JPRB, 0.947712E-01_JPRB, 0.890892E-01_JPRB &
+  &, 0.836606E-01_JPRB, 0.785091E-01_JPRB, 0.735966E-01_JPRB &
+  &, 0.689129E-01_JPRB, 0.644784E-01_JPRB, 0.602808E-01_JPRB, 0.562730E-01_JPRB &
+  &, 0.525054E-01_JPRB, 0.489275E-01_JPRB, 0.455548E-01_JPRB &
+  &, 0.423672E-01_JPRB, 0.393793E-01_JPRB, 0.365685E-01_JPRB, 0.339105E-01_JPRB &
+  &, 0.314167E-01_JPRB, 0.290601E-01_JPRB, 0.268903E-01_JPRB &
+  &, 0.248391E-01_JPRB, 0.229152E-01_JPRB, 0.211273E-01_JPRB, 0.194844E-01_JPRB &
+  &, 0.179100E-01_JPRB, 0.164528E-01_JPRB, 0.151202E-01_JPRB &
+  &, 0.138749E-01_JPRB, 0.127226E-01_JPRB, 0.116225E-01_JPRB, 0.106255E-01_JPRB &
+  &, 0.973748E-02_JPRB, 0.886756E-02_JPRB, 0.811581E-02_JPRB &
+  &, 0.738873E-02_JPRB, 0.673879E-02_JPRB, 0.611880E-02_JPRB, 0.553075E-02_JPRB &
+  &, 0.502947E-02_JPRB, 0.456570E-02_JPRB, 0.414154E-02_JPRB &
+  &, 0.375913E-02_JPRB, 0.336473E-02_JPRB, 0.301488E-02_JPRB, 0.276931E-02_JPRB &
+  &, 0.245782E-02_JPRB, 0.219607E-02_JPRB, 0.198639E-02_JPRB &
+  &, 0.177043E-02_JPRB, 0.160962E-02_JPRB, 0.144404E-02_JPRB, 0.127362E-02_JPRB &
+  &, 0.116233E-02_JPRB, 0.104779E-02_JPRB, 0.929956E-03_JPRB/)
+XCW( 496, :) = (/ &
+  &  0.995543E+00_JPRB, 0.993392E+00_JPRB, 0.990825E+00_JPRB, 0.987848E+00_JPRB &
+  &, 0.984460E+00_JPRB, 0.980663E+00_JPRB, 0.976460E+00_JPRB &
+  &, 0.971851E+00_JPRB, 0.966841E+00_JPRB, 0.961430E+00_JPRB, 0.955624E+00_JPRB &
+  &, 0.949424E+00_JPRB, 0.942834E+00_JPRB, 0.935858E+00_JPRB &
+  &, 0.928500E+00_JPRB, 0.920765E+00_JPRB, 0.912657E+00_JPRB, 0.904183E+00_JPRB &
+  &, 0.895349E+00_JPRB, 0.886158E+00_JPRB, 0.876620E+00_JPRB &
+  &, 0.866742E+00_JPRB, 0.856533E+00_JPRB, 0.845998E+00_JPRB, 0.835144E+00_JPRB &
+  &, 0.823987E+00_JPRB, 0.812532E+00_JPRB, 0.800790E+00_JPRB &
+  &, 0.788771E+00_JPRB, 0.776490E+00_JPRB, 0.763957E+00_JPRB, 0.751183E+00_JPRB &
+  &, 0.738180E+00_JPRB, 0.724964E+00_JPRB, 0.711549E+00_JPRB &
+  &, 0.697942E+00_JPRB, 0.684175E+00_JPRB, 0.670242E+00_JPRB, 0.656178E+00_JPRB &
+  &, 0.641984E+00_JPRB, 0.627680E+00_JPRB, 0.613283E+00_JPRB &
+  &, 0.598821E+00_JPRB, 0.584282E+00_JPRB, 0.569709E+00_JPRB, 0.555103E+00_JPRB &
+  &, 0.540503E+00_JPRB, 0.525898E+00_JPRB, 0.511316E+00_JPRB &
+  &, 0.496775E+00_JPRB, 0.482290E+00_JPRB, 0.467866E+00_JPRB, 0.453547E+00_JPRB &
+  &, 0.439325E+00_JPRB, 0.425215E+00_JPRB, 0.411236E+00_JPRB &
+  &, 0.397405E+00_JPRB, 0.383737E+00_JPRB, 0.370250E+00_JPRB, 0.356943E+00_JPRB &
+  &, 0.343830E+00_JPRB, 0.330923E+00_JPRB, 0.318254E+00_JPRB &
+  &, 0.305799E+00_JPRB, 0.293584E+00_JPRB, 0.281639E+00_JPRB, 0.269932E+00_JPRB &
+  &, 0.258490E+00_JPRB, 0.247315E+00_JPRB, 0.236432E+00_JPRB &
+  &, 0.225822E+00_JPRB, 0.215482E+00_JPRB, 0.205456E+00_JPRB, 0.195716E+00_JPRB &
+  &, 0.186256E+00_JPRB, 0.177116E+00_JPRB, 0.168262E+00_JPRB &
+  &, 0.159706E+00_JPRB, 0.151435E+00_JPRB, 0.143482E+00_JPRB, 0.135805E+00_JPRB &
+  &, 0.128409E+00_JPRB, 0.121326E+00_JPRB, 0.114505E+00_JPRB &
+  &, 0.107974E+00_JPRB, 0.101734E+00_JPRB, 0.957541E-01_JPRB, 0.900315E-01_JPRB &
+  &, 0.845904E-01_JPRB, 0.793949E-01_JPRB, 0.744364E-01_JPRB &
+  &, 0.697362E-01_JPRB, 0.652520E-01_JPRB, 0.610026E-01_JPRB, 0.569742E-01_JPRB &
+  &, 0.531510E-01_JPRB, 0.495498E-01_JPRB, 0.461527E-01_JPRB &
+  &, 0.429396E-01_JPRB, 0.399251E-01_JPRB, 0.370496E-01_JPRB, 0.343996E-01_JPRB &
+  &, 0.318758E-01_JPRB, 0.294879E-01_JPRB, 0.272856E-01_JPRB &
+  &, 0.252007E-01_JPRB, 0.232826E-01_JPRB, 0.214592E-01_JPRB, 0.197795E-01_JPRB &
+  &, 0.182098E-01_JPRB, 0.167573E-01_JPRB, 0.153853E-01_JPRB &
+  &, 0.140993E-01_JPRB, 0.129504E-01_JPRB, 0.118539E-01_JPRB, 0.108604E-01_JPRB &
+  &, 0.992821E-02_JPRB, 0.906116E-02_JPRB, 0.826319E-02_JPRB &
+  &, 0.753830E-02_JPRB, 0.683998E-02_JPRB, 0.622147E-02_JPRB, 0.563491E-02_JPRB &
+  &, 0.513514E-02_JPRB, 0.467289E-02_JPRB, 0.419591E-02_JPRB &
+  &, 0.381427E-02_JPRB, 0.342064E-02_JPRB, 0.312828E-02_JPRB, 0.282680E-02_JPRB &
+  &, 0.251610E-02_JPRB, 0.225516E-02_JPRB, 0.204629E-02_JPRB &
+  &, 0.183113E-02_JPRB, 0.167115E-02_JPRB, 0.144404E-02_JPRB, 0.133680E-02_JPRB &
+  &, 0.116233E-02_JPRB, 0.104779E-02_JPRB, 0.929956E-03_JPRB/)
+XCW( 497, :) = (/ &
+  &  0.995792E+00_JPRB, 0.993704E+00_JPRB, 0.991199E+00_JPRB, 0.988285E+00_JPRB &
+  &, 0.984957E+00_JPRB, 0.981221E+00_JPRB, 0.977078E+00_JPRB &
+  &, 0.972530E+00_JPRB, 0.967579E+00_JPRB, 0.962228E+00_JPRB, 0.956479E+00_JPRB &
+  &, 0.950336E+00_JPRB, 0.943803E+00_JPRB, 0.936882E+00_JPRB &
+  &, 0.929581E+00_JPRB, 0.921900E+00_JPRB, 0.913846E+00_JPRB, 0.905425E+00_JPRB &
+  &, 0.896641E+00_JPRB, 0.887500E+00_JPRB, 0.878014E+00_JPRB &
+  &, 0.868185E+00_JPRB, 0.858019E+00_JPRB, 0.847528E+00_JPRB, 0.836721E+00_JPRB &
+  &, 0.825605E+00_JPRB, 0.814193E+00_JPRB, 0.802492E+00_JPRB &
+  &, 0.790511E+00_JPRB, 0.778266E+00_JPRB, 0.765768E+00_JPRB, 0.753027E+00_JPRB &
+  &, 0.740057E+00_JPRB, 0.726871E+00_JPRB, 0.713486E+00_JPRB &
+  &, 0.699905E+00_JPRB, 0.686159E+00_JPRB, 0.672257E+00_JPRB, 0.658203E+00_JPRB &
+  &, 0.644029E+00_JPRB, 0.629745E+00_JPRB, 0.615368E+00_JPRB &
+  &, 0.600903E+00_JPRB, 0.586382E+00_JPRB, 0.571815E+00_JPRB, 0.557226E+00_JPRB &
+  &, 0.542617E+00_JPRB, 0.528014E+00_JPRB, 0.513433E+00_JPRB &
+  &, 0.498890E+00_JPRB, 0.484403E+00_JPRB, 0.469974E+00_JPRB, 0.455650E+00_JPRB &
+  &, 0.441406E+00_JPRB, 0.427286E+00_JPRB, 0.413296E+00_JPRB &
+  &, 0.399450E+00_JPRB, 0.385767E+00_JPRB, 0.372262E+00_JPRB, 0.358935E+00_JPRB &
+  &, 0.345799E+00_JPRB, 0.332868E+00_JPRB, 0.320171E+00_JPRB &
+  &, 0.307686E+00_JPRB, 0.295439E+00_JPRB, 0.283459E+00_JPRB, 0.271715E+00_JPRB &
+  &, 0.260251E+00_JPRB, 0.249034E+00_JPRB, 0.238105E+00_JPRB &
+  &, 0.227466E+00_JPRB, 0.217097E+00_JPRB, 0.207038E+00_JPRB, 0.197241E+00_JPRB &
+  &, 0.187768E+00_JPRB, 0.178565E+00_JPRB, 0.169669E+00_JPRB &
+  &, 0.161068E+00_JPRB, 0.152774E+00_JPRB, 0.144772E+00_JPRB, 0.137043E+00_JPRB &
+  &, 0.129619E+00_JPRB, 0.122479E+00_JPRB, 0.115625E+00_JPRB &
+  &, 0.109060E+00_JPRB, 0.102783E+00_JPRB, 0.967370E-01_JPRB, 0.910033E-01_JPRB &
+  &, 0.854902E-01_JPRB, 0.802501E-01_JPRB, 0.752761E-01_JPRB &
+  &, 0.705279E-01_JPRB, 0.660256E-01_JPRB, 0.617244E-01_JPRB, 0.576754E-01_JPRB &
+  &, 0.538305E-01_JPRB, 0.502066E-01_JPRB, 0.467505E-01_JPRB &
+  &, 0.435120E-01_JPRB, 0.404708E-01_JPRB, 0.375676E-01_JPRB, 0.348511E-01_JPRB &
+  &, 0.323348E-01_JPRB, 0.299157E-01_JPRB, 0.276809E-01_JPRB &
+  &, 0.256024E-01_JPRB, 0.236501E-01_JPRB, 0.217911E-01_JPRB, 0.200745E-01_JPRB &
+  &, 0.185095E-01_JPRB, 0.170183E-01_JPRB, 0.156504E-01_JPRB &
+  &, 0.143685E-01_JPRB, 0.131782E-01_JPRB, 0.120389E-01_JPRB, 0.110483E-01_JPRB &
+  &, 0.100713E-01_JPRB, 0.920637E-02_JPRB, 0.841057E-02_JPRB &
+  &, 0.768787E-02_JPRB, 0.699175E-02_JPRB, 0.637548E-02_JPRB, 0.579116E-02_JPRB &
+  &, 0.524082E-02_JPRB, 0.472649E-02_JPRB, 0.430463E-02_JPRB &
+  &, 0.386940E-02_JPRB, 0.353246E-02_JPRB, 0.318497E-02_JPRB, 0.288428E-02_JPRB &
+  &, 0.257438E-02_JPRB, 0.231424E-02_JPRB, 0.210618E-02_JPRB &
+  &, 0.189183E-02_JPRB, 0.167115E-02_JPRB, 0.150639E-02_JPRB, 0.133680E-02_JPRB &
+  &, 0.122635E-02_JPRB, 0.104779E-02_JPRB, 0.929956E-03_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART71',1,ZHOOK_HANDLE)
+END SUBROUTINE PART71
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART72
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART72',0,ZHOOK_HANDLE)
+
+XCW( 498, :) = (/ &
+  &  0.996044E+00_JPRB, 0.994016E+00_JPRB, 0.991573E+00_JPRB, 0.988720E+00_JPRB &
+  &, 0.985454E+00_JPRB, 0.981780E+00_JPRB, 0.977697E+00_JPRB &
+  &, 0.973209E+00_JPRB, 0.968317E+00_JPRB, 0.963025E+00_JPRB, 0.957335E+00_JPRB &
+  &, 0.951250E+00_JPRB, 0.944773E+00_JPRB, 0.937909E+00_JPRB &
+  &, 0.930661E+00_JPRB, 0.923035E+00_JPRB, 0.915035E+00_JPRB, 0.906666E+00_JPRB &
+  &, 0.897936E+00_JPRB, 0.888846E+00_JPRB, 0.879408E+00_JPRB &
+  &, 0.869627E+00_JPRB, 0.859508E+00_JPRB, 0.849065E+00_JPRB, 0.838302E+00_JPRB &
+  &, 0.827228E+00_JPRB, 0.815855E+00_JPRB, 0.804194E+00_JPRB &
+  &, 0.792255E+00_JPRB, 0.780045E+00_JPRB, 0.767583E+00_JPRB, 0.754875E+00_JPRB &
+  &, 0.741935E+00_JPRB, 0.728783E+00_JPRB, 0.715423E+00_JPRB &
+  &, 0.701876E+00_JPRB, 0.688152E+00_JPRB, 0.674271E+00_JPRB, 0.660239E+00_JPRB &
+  &, 0.646085E+00_JPRB, 0.631811E+00_JPRB, 0.617453E+00_JPRB &
+  &, 0.603007E+00_JPRB, 0.588493E+00_JPRB, 0.573932E+00_JPRB, 0.559348E+00_JPRB &
+  &, 0.544743E+00_JPRB, 0.530142E+00_JPRB, 0.515562E+00_JPRB &
+  &, 0.501019E+00_JPRB, 0.486529E+00_JPRB, 0.472097E+00_JPRB, 0.457753E+00_JPRB &
+  &, 0.443501E+00_JPRB, 0.429372E+00_JPRB, 0.415370E+00_JPRB &
+  &, 0.401511E+00_JPRB, 0.387813E+00_JPRB, 0.374274E+00_JPRB, 0.360926E+00_JPRB &
+  &, 0.347768E+00_JPRB, 0.334812E+00_JPRB, 0.322088E+00_JPRB &
+  &, 0.309573E+00_JPRB, 0.297313E+00_JPRB, 0.285279E+00_JPRB, 0.273516E+00_JPRB &
+  &, 0.262013E+00_JPRB, 0.250772E+00_JPRB, 0.239798E+00_JPRB &
+  &, 0.229132E+00_JPRB, 0.218712E+00_JPRB, 0.208577E+00_JPRB, 0.198790E+00_JPRB &
+  &, 0.189256E+00_JPRB, 0.180037E+00_JPRB, 0.171099E+00_JPRB &
+  &, 0.162454E+00_JPRB, 0.154114E+00_JPRB, 0.146062E+00_JPRB, 0.138307E+00_JPRB &
+  &, 0.130829E+00_JPRB, 0.123658E+00_JPRB, 0.116773E+00_JPRB &
+  &, 0.110146E+00_JPRB, 0.103833E+00_JPRB, 0.977488E-01_JPRB, 0.919751E-01_JPRB &
+  &, 0.864200E-01_JPRB, 0.811664E-01_JPRB, 0.761158E-01_JPRB &
+  &, 0.713512E-01_JPRB, 0.667992E-01_JPRB, 0.624790E-01_JPRB, 0.583766E-01_JPRB &
+  &, 0.545101E-01_JPRB, 0.508289E-01_JPRB, 0.473836E-01_JPRB &
+  &, 0.440844E-01_JPRB, 0.410166E-01_JPRB, 0.380856E-01_JPRB, 0.353403E-01_JPRB &
+  &, 0.327939E-01_JPRB, 0.303823E-01_JPRB, 0.281157E-01_JPRB &
+  &, 0.260042E-01_JPRB, 0.240176E-01_JPRB, 0.221645E-01_JPRB, 0.204118E-01_JPRB &
+  &, 0.188093E-01_JPRB, 0.172793E-01_JPRB, 0.159155E-01_JPRB &
+  &, 0.145929E-01_JPRB, 0.134060E-01_JPRB, 0.122703E-01_JPRB, 0.112362E-01_JPRB &
+  &, 0.102620E-01_JPRB, 0.939998E-02_JPRB, 0.855795E-02_JPRB &
+  &, 0.783744E-02_JPRB, 0.709294E-02_JPRB, 0.647815E-02_JPRB, 0.589533E-02_JPRB &
+  &, 0.534649E-02_JPRB, 0.483368E-02_JPRB, 0.441336E-02_JPRB &
+  &, 0.397967E-02_JPRB, 0.358838E-02_JPRB, 0.324167E-02_JPRB, 0.294177E-02_JPRB &
+  &, 0.263266E-02_JPRB, 0.237332E-02_JPRB, 0.216607E-02_JPRB &
+  &, 0.195254E-02_JPRB, 0.173267E-02_JPRB, 0.156874E-02_JPRB, 0.139998E-02_JPRB &
+  &, 0.122635E-02_JPRB, 0.111265E-02_JPRB, 0.995667E-03_JPRB/)
+XCW( 499, :) = (/ &
+  &  0.996294E+00_JPRB, 0.994328E+00_JPRB, 0.991947E+00_JPRB, 0.989156E+00_JPRB &
+  &, 0.985952E+00_JPRB, 0.982338E+00_JPRB, 0.978316E+00_JPRB &
+  &, 0.973888E+00_JPRB, 0.969056E+00_JPRB, 0.963823E+00_JPRB, 0.958191E+00_JPRB &
+  &, 0.952164E+00_JPRB, 0.945744E+00_JPRB, 0.938936E+00_JPRB &
+  &, 0.931745E+00_JPRB, 0.924173E+00_JPRB, 0.916226E+00_JPRB, 0.907910E+00_JPRB &
+  &, 0.899231E+00_JPRB, 0.890191E+00_JPRB, 0.880803E+00_JPRB &
+  &, 0.871069E+00_JPRB, 0.861000E+00_JPRB, 0.850599E+00_JPRB, 0.839883E+00_JPRB &
+  &, 0.828854E+00_JPRB, 0.817524E+00_JPRB, 0.805900E+00_JPRB &
+  &, 0.793998E+00_JPRB, 0.781828E+00_JPRB, 0.769398E+00_JPRB, 0.756727E+00_JPRB &
+  &, 0.743820E+00_JPRB, 0.730694E+00_JPRB, 0.717364E+00_JPRB &
+  &, 0.703839E+00_JPRB, 0.690145E+00_JPRB, 0.676285E+00_JPRB, 0.662274E+00_JPRB &
+  &, 0.648140E+00_JPRB, 0.633887E+00_JPRB, 0.619538E+00_JPRB &
+  &, 0.605111E+00_JPRB, 0.590605E+00_JPRB, 0.576061E+00_JPRB, 0.561471E+00_JPRB &
+  &, 0.546881E+00_JPRB, 0.532283E+00_JPRB, 0.517704E+00_JPRB &
+  &, 0.503147E+00_JPRB, 0.488656E+00_JPRB, 0.474220E+00_JPRB, 0.459870E+00_JPRB &
+  &, 0.445611E+00_JPRB, 0.431473E+00_JPRB, 0.417460E+00_JPRB &
+  &, 0.403573E+00_JPRB, 0.389858E+00_JPRB, 0.376302E+00_JPRB, 0.362935E+00_JPRB &
+  &, 0.349754E+00_JPRB, 0.336774E+00_JPRB, 0.324005E+00_JPRB &
+  &, 0.311479E+00_JPRB, 0.299186E+00_JPRB, 0.287118E+00_JPRB, 0.275318E+00_JPRB &
+  &, 0.263794E+00_JPRB, 0.252511E+00_JPRB, 0.241512E+00_JPRB &
+  &, 0.230798E+00_JPRB, 0.220349E+00_JPRB, 0.210204E+00_JPRB, 0.200338E+00_JPRB &
+  &, 0.190768E+00_JPRB, 0.181509E+00_JPRB, 0.172530E+00_JPRB &
+  &, 0.163841E+00_JPRB, 0.155453E+00_JPRB, 0.147352E+00_JPRB, 0.139571E+00_JPRB &
+  &, 0.132065E+00_JPRB, 0.124838E+00_JPRB, 0.117893E+00_JPRB &
+  &, 0.111260E+00_JPRB, 0.104883E+00_JPRB, 0.987895E-01_JPRB, 0.929468E-01_JPRB &
+  &, 0.873798E-01_JPRB, 0.820522E-01_JPRB, 0.769867E-01_JPRB &
+  &, 0.721744E-01_JPRB, 0.675728E-01_JPRB, 0.632337E-01_JPRB, 0.591112E-01_JPRB &
+  &, 0.551897E-01_JPRB, 0.514857E-01_JPRB, 0.479815E-01_JPRB &
+  &, 0.446926E-01_JPRB, 0.415624E-01_JPRB, 0.386037E-01_JPRB, 0.358670E-01_JPRB &
+  &, 0.332529E-01_JPRB, 0.308101E-01_JPRB, 0.285110E-01_JPRB &
+  &, 0.263658E-01_JPRB, 0.243850E-01_JPRB, 0.224964E-01_JPRB, 0.207490E-01_JPRB &
+  &, 0.191090E-01_JPRB, 0.175838E-01_JPRB, 0.161806E-01_JPRB &
+  &, 0.148621E-01_JPRB, 0.136339E-01_JPRB, 0.125016E-01_JPRB, 0.114241E-01_JPRB &
+  &, 0.104527E-01_JPRB, 0.954518E-02_JPRB, 0.875445E-02_JPRB &
+  &, 0.798701E-02_JPRB, 0.724472E-02_JPRB, 0.658082E-02_JPRB, 0.599949E-02_JPRB &
+  &, 0.545216E-02_JPRB, 0.494088E-02_JPRB, 0.446772E-02_JPRB &
+  &, 0.408994E-02_JPRB, 0.370020E-02_JPRB, 0.329836E-02_JPRB, 0.299926E-02_JPRB &
+  &, 0.269095E-02_JPRB, 0.243241E-02_JPRB, 0.216607E-02_JPRB &
+  &, 0.195254E-02_JPRB, 0.179419E-02_JPRB, 0.156874E-02_JPRB, 0.139998E-02_JPRB &
+  &, 0.129037E-02_JPRB, 0.111265E-02_JPRB, 0.995667E-03_JPRB/)
+XCW( 500, :) = (/ &
+  &  0.996546E+00_JPRB, 0.994643E+00_JPRB, 0.992322E+00_JPRB, 0.989592E+00_JPRB &
+  &, 0.986450E+00_JPRB, 0.982897E+00_JPRB, 0.978935E+00_JPRB &
+  &, 0.974568E+00_JPRB, 0.969795E+00_JPRB, 0.964579E+00_JPRB, 0.959048E+00_JPRB &
+  &, 0.953078E+00_JPRB, 0.946716E+00_JPRB, 0.939964E+00_JPRB &
+  &, 0.932827E+00_JPRB, 0.925312E+00_JPRB, 0.917418E+00_JPRB, 0.909155E+00_JPRB &
+  &, 0.900527E+00_JPRB, 0.891539E+00_JPRB, 0.882200E+00_JPRB &
+  &, 0.872515E+00_JPRB, 0.862492E+00_JPRB, 0.852140E+00_JPRB, 0.841464E+00_JPRB &
+  &, 0.830479E+00_JPRB, 0.819189E+00_JPRB, 0.807610E+00_JPRB &
+  &, 0.795746E+00_JPRB, 0.783611E+00_JPRB, 0.771217E+00_JPRB, 0.758579E+00_JPRB &
+  &, 0.745706E+00_JPRB, 0.732614E+00_JPRB, 0.719310E+00_JPRB &
+  &, 0.705811E+00_JPRB, 0.692138E+00_JPRB, 0.678309E+00_JPRB, 0.664319E+00_JPRB &
+  &, 0.650207E+00_JPRB, 0.635973E+00_JPRB, 0.621634E+00_JPRB &
+  &, 0.607216E+00_JPRB, 0.592727E+00_JPRB, 0.578191E+00_JPRB, 0.563605E+00_JPRB &
+  &, 0.549019E+00_JPRB, 0.534424E+00_JPRB, 0.519846E+00_JPRB &
+  &, 0.505289E+00_JPRB, 0.490796E+00_JPRB, 0.476356E+00_JPRB, 0.461987E+00_JPRB &
+  &, 0.447721E+00_JPRB, 0.433574E+00_JPRB, 0.419534E+00_JPRB &
+  &, 0.405649E+00_JPRB, 0.391904E+00_JPRB, 0.378330E+00_JPRB, 0.364943E+00_JPRB &
+  &, 0.351740E+00_JPRB, 0.338735E+00_JPRB, 0.325958E+00_JPRB &
+  &, 0.313384E+00_JPRB, 0.301060E+00_JPRB, 0.288975E+00_JPRB, 0.277139E+00_JPRB &
+  &, 0.265575E+00_JPRB, 0.254250E+00_JPRB, 0.243226E+00_JPRB &
+  &, 0.232464E+00_JPRB, 0.221985E+00_JPRB, 0.211808E+00_JPRB, 0.201909E+00_JPRB &
+  &, 0.192302E+00_JPRB, 0.182981E+00_JPRB, 0.173960E+00_JPRB &
+  &, 0.165227E+00_JPRB, 0.156818E+00_JPRB, 0.148668E+00_JPRB, 0.140835E+00_JPRB &
+  &, 0.133275E+00_JPRB, 0.126018E+00_JPRB, 0.119041E+00_JPRB &
+  &, 0.112346E+00_JPRB, 0.105933E+00_JPRB, 0.998013E-01_JPRB, 0.939186E-01_JPRB &
+  &, 0.883095E-01_JPRB, 0.829686E-01_JPRB, 0.778575E-01_JPRB &
+  &, 0.729977E-01_JPRB, 0.683787E-01_JPRB, 0.639883E-01_JPRB, 0.598124E-01_JPRB &
+  &, 0.558692E-01_JPRB, 0.521426E-01_JPRB, 0.486145E-01_JPRB &
+  &, 0.452650E-01_JPRB, 0.421082E-01_JPRB, 0.391587E-01_JPRB, 0.363562E-01_JPRB &
+  &, 0.337120E-01_JPRB, 0.312768E-01_JPRB, 0.289458E-01_JPRB &
+  &, 0.267675E-01_JPRB, 0.247525E-01_JPRB, 0.228283E-01_JPRB, 0.210862E-01_JPRB &
+  &, 0.194088E-01_JPRB, 0.178883E-01_JPRB, 0.164457E-01_JPRB &
+  &, 0.150864E-01_JPRB, 0.138617E-01_JPRB, 0.127329E-01_JPRB, 0.116589E-01_JPRB &
+  &, 0.106435E-01_JPRB, 0.973879E-02_JPRB, 0.890183E-02_JPRB &
+  &, 0.813658E-02_JPRB, 0.739649E-02_JPRB, 0.673482E-02_JPRB, 0.610366E-02_JPRB &
+  &, 0.555784E-02_JPRB, 0.504807E-02_JPRB, 0.457644E-02_JPRB &
+  &, 0.414507E-02_JPRB, 0.375611E-02_JPRB, 0.341176E-02_JPRB, 0.305674E-02_JPRB &
+  &, 0.274923E-02_JPRB, 0.249149E-02_JPRB, 0.222596E-02_JPRB &
+  &, 0.201324E-02_JPRB, 0.179419E-02_JPRB, 0.163109E-02_JPRB, 0.146316E-02_JPRB &
+  &, 0.129037E-02_JPRB, 0.117751E-02_JPRB, 0.106138E-02_JPRB/)
+XCW( 501, :) = (/ &
+  &  0.996795E+00_JPRB, 0.994954E+00_JPRB, 0.992697E+00_JPRB, 0.990029E+00_JPRB &
+  &, 0.986948E+00_JPRB, 0.983456E+00_JPRB, 0.979555E+00_JPRB &
+  &, 0.975247E+00_JPRB, 0.970535E+00_JPRB, 0.965420E+00_JPRB, 0.959905E+00_JPRB &
+  &, 0.953993E+00_JPRB, 0.947688E+00_JPRB, 0.940993E+00_JPRB &
+  &, 0.933912E+00_JPRB, 0.926450E+00_JPRB, 0.918611E+00_JPRB, 0.910401E+00_JPRB &
+  &, 0.901824E+00_JPRB, 0.892887E+00_JPRB, 0.883598E+00_JPRB &
+  &, 0.873960E+00_JPRB, 0.863984E+00_JPRB, 0.853678E+00_JPRB, 0.843048E+00_JPRB &
+  &, 0.832094E+00_JPRB, 0.820862E+00_JPRB, 0.809319E+00_JPRB &
+  &, 0.797494E+00_JPRB, 0.785398E+00_JPRB, 0.773041E+00_JPRB, 0.760436E+00_JPRB &
+  &, 0.747596E+00_JPRB, 0.734534E+00_JPRB, 0.721260E+00_JPRB &
+  &, 0.707792E+00_JPRB, 0.694141E+00_JPRB, 0.680333E+00_JPRB, 0.666364E+00_JPRB &
+  &, 0.652273E+00_JPRB, 0.638049E+00_JPRB, 0.623730E+00_JPRB &
+  &, 0.609331E+00_JPRB, 0.594850E+00_JPRB, 0.580320E+00_JPRB, 0.565751E+00_JPRB &
+  &, 0.551158E+00_JPRB, 0.536565E+00_JPRB, 0.521988E+00_JPRB &
+  &, 0.507444E+00_JPRB, 0.492936E+00_JPRB, 0.478493E+00_JPRB, 0.464119E+00_JPRB &
+  &, 0.449845E+00_JPRB, 0.435674E+00_JPRB, 0.421639E+00_JPRB &
+  &, 0.407726E+00_JPRB, 0.393966E+00_JPRB, 0.380374E+00_JPRB, 0.366968E+00_JPRB &
+  &, 0.353743E+00_JPRB, 0.340714E+00_JPRB, 0.327893E+00_JPRB &
+  &, 0.315308E+00_JPRB, 0.302952E+00_JPRB, 0.290833E+00_JPRB, 0.278960E+00_JPRB &
+  &, 0.267356E+00_JPRB, 0.256009E+00_JPRB, 0.244940E+00_JPRB &
+  &, 0.234151E+00_JPRB, 0.223643E+00_JPRB, 0.213413E+00_JPRB, 0.203479E+00_JPRB &
+  &, 0.193814E+00_JPRB, 0.184477E+00_JPRB, 0.175414E+00_JPRB &
+  &, 0.166638E+00_JPRB, 0.158182E+00_JPRB, 0.150009E+00_JPRB, 0.142125E+00_JPRB &
+  &, 0.134537E+00_JPRB, 0.127224E+00_JPRB, 0.120216E+00_JPRB &
+  &, 0.113488E+00_JPRB, 0.107011E+00_JPRB, 0.100842E+00_JPRB, 0.949198E-01_JPRB &
+  &, 0.892693E-01_JPRB, 0.838849E-01_JPRB, 0.787284E-01_JPRB &
+  &, 0.738210E-01_JPRB, 0.691846E-01_JPRB, 0.647429E-01_JPRB, 0.605470E-01_JPRB &
+  &, 0.565827E-01_JPRB, 0.527994E-01_JPRB, 0.492476E-01_JPRB &
+  &, 0.458732E-01_JPRB, 0.426904E-01_JPRB, 0.396767E-01_JPRB, 0.368453E-01_JPRB &
+  &, 0.342093E-01_JPRB, 0.317046E-01_JPRB, 0.293806E-01_JPRB &
+  &, 0.271693E-01_JPRB, 0.251199E-01_JPRB, 0.232017E-01_JPRB, 0.214234E-01_JPRB &
+  &, 0.197514E-01_JPRB, 0.181493E-01_JPRB, 0.167108E-01_JPRB &
+  &, 0.153557E-01_JPRB, 0.140895E-01_JPRB, 0.129180E-01_JPRB, 0.118468E-01_JPRB &
+  &, 0.108342E-01_JPRB, 0.993240E-02_JPRB, 0.904921E-02_JPRB &
+  &, 0.828614E-02_JPRB, 0.754827E-02_JPRB, 0.688882E-02_JPRB, 0.625990E-02_JPRB &
+  &, 0.566351E-02_JPRB, 0.515526E-02_JPRB, 0.468517E-02_JPRB &
+  &, 0.425534E-02_JPRB, 0.386794E-02_JPRB, 0.346845E-02_JPRB, 0.311423E-02_JPRB &
+  &, 0.280751E-02_JPRB, 0.255057E-02_JPRB, 0.228585E-02_JPRB &
+  &, 0.207395E-02_JPRB, 0.185572E-02_JPRB, 0.169343E-02_JPRB, 0.146316E-02_JPRB &
+  &, 0.135439E-02_JPRB, 0.117751E-02_JPRB, 0.106138E-02_JPRB/)
+XCW( 502, :) = (/ &
+  &  0.997046E+00_JPRB, 0.995266E+00_JPRB, 0.993072E+00_JPRB, 0.990466E+00_JPRB &
+  &, 0.987446E+00_JPRB, 0.984015E+00_JPRB, 0.980176E+00_JPRB &
+  &, 0.975927E+00_JPRB, 0.971274E+00_JPRB, 0.966219E+00_JPRB, 0.960762E+00_JPRB &
+  &, 0.954908E+00_JPRB, 0.948660E+00_JPRB, 0.942022E+00_JPRB &
+  &, 0.934998E+00_JPRB, 0.927589E+00_JPRB, 0.919805E+00_JPRB, 0.911648E+00_JPRB &
+  &, 0.903123E+00_JPRB, 0.894236E+00_JPRB, 0.884995E+00_JPRB &
+  &, 0.875409E+00_JPRB, 0.865480E+00_JPRB, 0.855222E+00_JPRB, 0.844636E+00_JPRB &
+  &, 0.833739E+00_JPRB, 0.822534E+00_JPRB, 0.811033E+00_JPRB &
+  &, 0.799250E+00_JPRB, 0.787189E+00_JPRB, 0.774868E+00_JPRB, 0.762296E+00_JPRB &
+  &, 0.749491E+00_JPRB, 0.736458E+00_JPRB, 0.723215E+00_JPRB &
+  &, 0.709773E+00_JPRB, 0.696153E+00_JPRB, 0.682357E+00_JPRB, 0.668419E+00_JPRB &
+  &, 0.654339E+00_JPRB, 0.640136E+00_JPRB, 0.625836E+00_JPRB &
+  &, 0.611446E+00_JPRB, 0.596973E+00_JPRB, 0.582461E+00_JPRB, 0.567898E+00_JPRB &
+  &, 0.553308E+00_JPRB, 0.538718E+00_JPRB, 0.524143E+00_JPRB &
+  &, 0.509586E+00_JPRB, 0.495089E+00_JPRB, 0.480629E+00_JPRB, 0.466264E+00_JPRB &
+  &, 0.451969E+00_JPRB, 0.437790E+00_JPRB, 0.423744E+00_JPRB &
+  &, 0.409818E+00_JPRB, 0.396043E+00_JPRB, 0.382435E+00_JPRB, 0.368992E+00_JPRB &
+  &, 0.355746E+00_JPRB, 0.342693E+00_JPRB, 0.329845E+00_JPRB &
+  &, 0.317231E+00_JPRB, 0.304844E+00_JPRB, 0.292710E+00_JPRB, 0.280800E+00_JPRB &
+  &, 0.269157E+00_JPRB, 0.257788E+00_JPRB, 0.246675E+00_JPRB &
+  &, 0.235838E+00_JPRB, 0.225301E+00_JPRB, 0.215018E+00_JPRB, 0.205050E+00_JPRB &
+  &, 0.195371E+00_JPRB, 0.185972E+00_JPRB, 0.176869E+00_JPRB &
+  &, 0.168073E+00_JPRB, 0.159547E+00_JPRB, 0.151324E+00_JPRB, 0.143415E+00_JPRB &
+  &, 0.135773E+00_JPRB, 0.128431E+00_JPRB, 0.121364E+00_JPRB &
+  &, 0.114602E+00_JPRB, 0.108090E+00_JPRB, 0.101883E+00_JPRB, 0.959211E-01_JPRB &
+  &, 0.902291E-01_JPRB, 0.848012E-01_JPRB, 0.796303E-01_JPRB &
+  &, 0.746760E-01_JPRB, 0.699904E-01_JPRB, 0.655303E-01_JPRB, 0.612816E-01_JPRB &
+  &, 0.572623E-01_JPRB, 0.534563E-01_JPRB, 0.498806E-01_JPRB &
+  &, 0.464813E-01_JPRB, 0.432725E-01_JPRB, 0.402318E-01_JPRB, 0.373720E-01_JPRB &
+  &, 0.347066E-01_JPRB, 0.321712E-01_JPRB, 0.298155E-01_JPRB &
+  &, 0.275711E-01_JPRB, 0.255282E-01_JPRB, 0.235751E-01_JPRB, 0.217606E-01_JPRB &
+  &, 0.200511E-01_JPRB, 0.184538E-01_JPRB, 0.169759E-01_JPRB &
+  &, 0.156249E-01_JPRB, 0.143629E-01_JPRB, 0.131493E-01_JPRB, 0.120817E-01_JPRB &
+  &, 0.110249E-01_JPRB, 0.101260E-01_JPRB, 0.924571E-02_JPRB &
+  &, 0.843571E-02_JPRB, 0.770005E-02_JPRB, 0.699149E-02_JPRB, 0.636407E-02_JPRB &
+  &, 0.582202E-02_JPRB, 0.526246E-02_JPRB, 0.479389E-02_JPRB &
+  &, 0.431047E-02_JPRB, 0.392385E-02_JPRB, 0.352515E-02_JPRB, 0.322920E-02_JPRB &
+  &, 0.292407E-02_JPRB, 0.260966E-02_JPRB, 0.234574E-02_JPRB &
+  &, 0.213465E-02_JPRB, 0.191724E-02_JPRB, 0.169343E-02_JPRB, 0.152634E-02_JPRB &
+  &, 0.135439E-02_JPRB, 0.124237E-02_JPRB, 0.112709E-02_JPRB/)
+XCW( 503, :) = (/ &
+  &  0.997295E+00_JPRB, 0.995580E+00_JPRB, 0.993447E+00_JPRB, 0.990903E+00_JPRB &
+  &, 0.987944E+00_JPRB, 0.984575E+00_JPRB, 0.980795E+00_JPRB &
+  &, 0.976608E+00_JPRB, 0.972015E+00_JPRB, 0.967019E+00_JPRB, 0.961621E+00_JPRB &
+  &, 0.955824E+00_JPRB, 0.949633E+00_JPRB, 0.943052E+00_JPRB &
+  &, 0.936083E+00_JPRB, 0.928731E+00_JPRB, 0.921000E+00_JPRB, 0.912895E+00_JPRB &
+  &, 0.904423E+00_JPRB, 0.895587E+00_JPRB, 0.886399E+00_JPRB &
+  &, 0.876858E+00_JPRB, 0.866979E+00_JPRB, 0.856766E+00_JPRB, 0.846224E+00_JPRB &
+  &, 0.835372E+00_JPRB, 0.824207E+00_JPRB, 0.812750E+00_JPRB &
+  &, 0.801005E+00_JPRB, 0.788984E+00_JPRB, 0.776700E+00_JPRB, 0.764161E+00_JPRB &
+  &, 0.751385E+00_JPRB, 0.738383E+00_JPRB, 0.725170E+00_JPRB &
+  &, 0.711754E+00_JPRB, 0.698156E+00_JPRB, 0.684391E+00_JPRB, 0.670475E+00_JPRB &
+  &, 0.656415E+00_JPRB, 0.642233E+00_JPRB, 0.627943E+00_JPRB &
+  &, 0.613561E+00_JPRB, 0.599107E+00_JPRB, 0.584601E+00_JPRB, 0.570044E+00_JPRB &
+  &, 0.555471E+00_JPRB, 0.540884E+00_JPRB, 0.526298E+00_JPRB &
+  &, 0.511754E+00_JPRB, 0.497242E+00_JPRB, 0.482779E+00_JPRB, 0.468395E+00_JPRB &
+  &, 0.454108E+00_JPRB, 0.439920E+00_JPRB, 0.425849E+00_JPRB &
+  &, 0.411910E+00_JPRB, 0.398120E+00_JPRB, 0.384479E+00_JPRB, 0.371034E+00_JPRB &
+  &, 0.357749E+00_JPRB, 0.344690E+00_JPRB, 0.331815E+00_JPRB &
+  &, 0.319173E+00_JPRB, 0.306754E+00_JPRB, 0.294587E+00_JPRB, 0.282640E+00_JPRB &
+  &, 0.270978E+00_JPRB, 0.259567E+00_JPRB, 0.248409E+00_JPRB &
+  &, 0.237547E+00_JPRB, 0.226959E+00_JPRB, 0.216666E+00_JPRB, 0.206643E+00_JPRB &
+  &, 0.196905E+00_JPRB, 0.187468E+00_JPRB, 0.178347E+00_JPRB &
+  &, 0.169483E+00_JPRB, 0.160936E+00_JPRB, 0.152665E+00_JPRB, 0.144705E+00_JPRB &
+  &, 0.137036E+00_JPRB, 0.129664E+00_JPRB, 0.122539E+00_JPRB &
+  &, 0.115743E+00_JPRB, 0.109196E+00_JPRB, 0.102923E+00_JPRB, 0.969223E-01_JPRB &
+  &, 0.911889E-01_JPRB, 0.857176E-01_JPRB, 0.805012E-01_JPRB &
+  &, 0.755309E-01_JPRB, 0.707963E-01_JPRB, 0.663177E-01_JPRB, 0.620162E-01_JPRB &
+  &, 0.579758E-01_JPRB, 0.541477E-01_JPRB, 0.505137E-01_JPRB &
+  &, 0.470895E-01_JPRB, 0.438183E-01_JPRB, 0.407868E-01_JPRB, 0.378988E-01_JPRB &
+  &, 0.352039E-01_JPRB, 0.326379E-01_JPRB, 0.302503E-01_JPRB &
+  &, 0.280130E-01_JPRB, 0.258957E-01_JPRB, 0.239485E-01_JPRB, 0.220979E-01_JPRB &
+  &, 0.203509E-01_JPRB, 0.187583E-01_JPRB, 0.172851E-01_JPRB &
+  &, 0.158941E-01_JPRB, 0.145907E-01_JPRB, 0.133806E-01_JPRB, 0.122695E-01_JPRB &
+  &, 0.112634E-01_JPRB, 0.102712E-01_JPRB, 0.939309E-02_JPRB &
+  &, 0.858528E-02_JPRB, 0.785183E-02_JPRB, 0.714549E-02_JPRB, 0.652032E-02_JPRB &
+  &, 0.592769E-02_JPRB, 0.536965E-02_JPRB, 0.490262E-02_JPRB &
+  &, 0.442074E-02_JPRB, 0.403567E-02_JPRB, 0.363854E-02_JPRB, 0.328668E-02_JPRB &
+  &, 0.298235E-02_JPRB, 0.266874E-02_JPRB, 0.240563E-02_JPRB &
+  &, 0.219536E-02_JPRB, 0.197877E-02_JPRB, 0.175578E-02_JPRB, 0.158952E-02_JPRB &
+  &, 0.141840E-02_JPRB, 0.124237E-02_JPRB, 0.112709E-02_JPRB/)
+XCW( 504, :) = (/ &
+  &  0.997548E+00_JPRB, 0.995893E+00_JPRB, 0.993822E+00_JPRB, 0.991339E+00_JPRB &
+  &, 0.988442E+00_JPRB, 0.985134E+00_JPRB, 0.981416E+00_JPRB &
+  &, 0.977289E+00_JPRB, 0.972755E+00_JPRB, 0.967819E+00_JPRB, 0.962480E+00_JPRB &
+  &, 0.956741E+00_JPRB, 0.950608E+00_JPRB, 0.944082E+00_JPRB &
+  &, 0.937169E+00_JPRB, 0.929872E+00_JPRB, 0.922195E+00_JPRB, 0.914145E+00_JPRB &
+  &, 0.905724E+00_JPRB, 0.896942E+00_JPRB, 0.887800E+00_JPRB &
+  &, 0.878310E+00_JPRB, 0.868478E+00_JPRB, 0.858311E+00_JPRB, 0.847816E+00_JPRB &
+  &, 0.837005E+00_JPRB, 0.825887E+00_JPRB, 0.814467E+00_JPRB &
+  &, 0.802761E+00_JPRB, 0.790779E+00_JPRB, 0.778532E+00_JPRB, 0.766030E+00_JPRB &
+  &, 0.753288E+00_JPRB, 0.740316E+00_JPRB, 0.727062E+00_JPRB &
+  &, 0.713745E+00_JPRB, 0.700178E+00_JPRB, 0.686435E+00_JPRB, 0.672530E+00_JPRB &
+  &, 0.658491E+00_JPRB, 0.644330E+00_JPRB, 0.630060E+00_JPRB &
+  &, 0.615688E+00_JPRB, 0.601252E+00_JPRB, 0.586754E+00_JPRB, 0.572202E+00_JPRB &
+  &, 0.557634E+00_JPRB, 0.543050E+00_JPRB, 0.528466E+00_JPRB &
+  &, 0.513922E+00_JPRB, 0.499382E+00_JPRB, 0.484943E+00_JPRB, 0.470555E+00_JPRB &
+  &, 0.456247E+00_JPRB, 0.442051E+00_JPRB, 0.427969E+00_JPRB &
+  &, 0.414018E+00_JPRB, 0.400198E+00_JPRB, 0.386556E+00_JPRB, 0.373075E+00_JPRB &
+  &, 0.359787E+00_JPRB, 0.346686E+00_JPRB, 0.333786E+00_JPRB &
+  &, 0.321115E+00_JPRB, 0.308665E+00_JPRB, 0.296463E+00_JPRB, 0.284500E+00_JPRB &
+  &, 0.272799E+00_JPRB, 0.261346E+00_JPRB, 0.250164E+00_JPRB &
+  &, 0.239255E+00_JPRB, 0.228639E+00_JPRB, 0.218293E+00_JPRB, 0.208236E+00_JPRB &
+  &, 0.198462E+00_JPRB, 0.188987E+00_JPRB, 0.179801E+00_JPRB &
+  &, 0.170918E+00_JPRB, 0.162325E+00_JPRB, 0.154031E+00_JPRB, 0.146020E+00_JPRB &
+  &, 0.138298E+00_JPRB, 0.130870E+00_JPRB, 0.123741E+00_JPRB &
+  &, 0.116885E+00_JPRB, 0.110303E+00_JPRB, 0.103993E+00_JPRB, 0.979529E-01_JPRB &
+  &, 0.921786E-01_JPRB, 0.866644E-01_JPRB, 0.814031E-01_JPRB &
+  &, 0.763859E-01_JPRB, 0.716344E-01_JPRB, 0.671052E-01_JPRB, 0.627842E-01_JPRB &
+  &, 0.586893E-01_JPRB, 0.548391E-01_JPRB, 0.511468E-01_JPRB &
+  &, 0.476977E-01_JPRB, 0.444369E-01_JPRB, 0.413419E-01_JPRB, 0.384256E-01_JPRB &
+  &, 0.357012E-01_JPRB, 0.331046E-01_JPRB, 0.306851E-01_JPRB &
+  &, 0.284148E-01_JPRB, 0.263040E-01_JPRB, 0.242804E-01_JPRB, 0.224351E-01_JPRB &
+  &, 0.206935E-01_JPRB, 0.190628E-01_JPRB, 0.175502E-01_JPRB &
+  &, 0.161633E-01_JPRB, 0.148641E-01_JPRB, 0.136119E-01_JPRB, 0.125044E-01_JPRB &
+  &, 0.114541E-01_JPRB, 0.104648E-01_JPRB, 0.958960E-02_JPRB &
+  &, 0.873485E-02_JPRB, 0.800360E-02_JPRB, 0.729950E-02_JPRB, 0.662448E-02_JPRB &
+  &, 0.603336E-02_JPRB, 0.547684E-02_JPRB, 0.501134E-02_JPRB &
+  &, 0.453101E-02_JPRB, 0.409159E-02_JPRB, 0.369524E-02_JPRB, 0.334417E-02_JPRB &
+  &, 0.304063E-02_JPRB, 0.272782E-02_JPRB, 0.246552E-02_JPRB &
+  &, 0.219536E-02_JPRB, 0.197877E-02_JPRB, 0.181813E-02_JPRB, 0.158952E-02_JPRB &
+  &, 0.141840E-02_JPRB, 0.130724E-02_JPRB, 0.112709E-02_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART72',1,ZHOOK_HANDLE)
+END SUBROUTINE PART72
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART73
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART73',0,ZHOOK_HANDLE)
+
+XCW( 505, :) = (/ &
+  &  0.997796E+00_JPRB, 0.996205E+00_JPRB, 0.994196E+00_JPRB, 0.991776E+00_JPRB &
+  &, 0.988941E+00_JPRB, 0.985694E+00_JPRB, 0.982037E+00_JPRB &
+  &, 0.977970E+00_JPRB, 0.973497E+00_JPRB, 0.968619E+00_JPRB, 0.963339E+00_JPRB &
+  &, 0.957659E+00_JPRB, 0.951583E+00_JPRB, 0.945114E+00_JPRB &
+  &, 0.938257E+00_JPRB, 0.931016E+00_JPRB, 0.923393E+00_JPRB, 0.915395E+00_JPRB &
+  &, 0.907027E+00_JPRB, 0.898293E+00_JPRB, 0.889204E+00_JPRB &
+  &, 0.879759E+00_JPRB, 0.869981E+00_JPRB, 0.859859E+00_JPRB, 0.849411E+00_JPRB &
+  &, 0.838642E+00_JPRB, 0.827564E+00_JPRB, 0.816189E+00_JPRB &
+  &, 0.804520E+00_JPRB, 0.792578E+00_JPRB, 0.780367E+00_JPRB, 0.767899E+00_JPRB &
+  &, 0.755191E+00_JPRB, 0.742250E+00_JPRB, 0.729098E+00_JPRB &
+  &, 0.715735E+00_JPRB, 0.702190E+00_JPRB, 0.688478E+00_JPRB, 0.674595E+00_JPRB &
+  &, 0.660578E+00_JPRB, 0.646438E+00_JPRB, 0.632178E+00_JPRB &
+  &, 0.617825E+00_JPRB, 0.603398E+00_JPRB, 0.588906E+00_JPRB, 0.574360E+00_JPRB &
+  &, 0.559796E+00_JPRB, 0.545216E+00_JPRB, 0.530646E+00_JPRB &
+  &, 0.516090E+00_JPRB, 0.501576E+00_JPRB, 0.487107E+00_JPRB, 0.472714E+00_JPRB &
+  &, 0.458400E+00_JPRB, 0.444181E+00_JPRB, 0.430089E+00_JPRB &
+  &, 0.416125E+00_JPRB, 0.402291E+00_JPRB, 0.388632E+00_JPRB, 0.375133E+00_JPRB &
+  &, 0.361807E+00_JPRB, 0.348682E+00_JPRB, 0.335774E+00_JPRB &
+  &, 0.323074E+00_JPRB, 0.310594E+00_JPRB, 0.298359E+00_JPRB, 0.286360E+00_JPRB &
+  &, 0.274620E+00_JPRB, 0.263146E+00_JPRB, 0.251940E+00_JPRB &
+  &, 0.240984E+00_JPRB, 0.230318E+00_JPRB, 0.219942E+00_JPRB, 0.209852E+00_JPRB &
+  &, 0.200042E+00_JPRB, 0.190529E+00_JPRB, 0.181303E+00_JPRB &
+  &, 0.172378E+00_JPRB, 0.163739E+00_JPRB, 0.155398E+00_JPRB, 0.147336E+00_JPRB &
+  &, 0.139587E+00_JPRB, 0.132104E+00_JPRB, 0.124916E+00_JPRB &
+  &, 0.118027E+00_JPRB, 0.111409E+00_JPRB, 0.105063E+00_JPRB, 0.989836E-01_JPRB &
+  &, 0.931684E-01_JPRB, 0.876113E-01_JPRB, 0.823051E-01_JPRB &
+  &, 0.772725E-01_JPRB, 0.724724E-01_JPRB, 0.678926E-01_JPRB, 0.635522E-01_JPRB &
+  &, 0.594369E-01_JPRB, 0.555305E-01_JPRB, 0.518150E-01_JPRB &
+  &, 0.483059E-01_JPRB, 0.450190E-01_JPRB, 0.418969E-01_JPRB, 0.389523E-01_JPRB &
+  &, 0.361985E-01_JPRB, 0.335712E-01_JPRB, 0.311199E-01_JPRB &
+  &, 0.288567E-01_JPRB, 0.266714E-01_JPRB, 0.246952E-01_JPRB, 0.227723E-01_JPRB &
+  &, 0.210361E-01_JPRB, 0.193673E-01_JPRB, 0.178595E-01_JPRB &
+  &, 0.164326E-01_JPRB, 0.150919E-01_JPRB, 0.138433E-01_JPRB, 0.127393E-01_JPRB &
+  &, 0.116448E-01_JPRB, 0.106584E-01_JPRB, 0.978610E-02_JPRB &
+  &, 0.893428E-02_JPRB, 0.815538E-02_JPRB, 0.745350E-02_JPRB, 0.678073E-02_JPRB &
+  &, 0.613904E-02_JPRB, 0.558404E-02_JPRB, 0.506570E-02_JPRB &
+  &, 0.464128E-02_JPRB, 0.420341E-02_JPRB, 0.380863E-02_JPRB, 0.345914E-02_JPRB &
+  &, 0.309892E-02_JPRB, 0.278691E-02_JPRB, 0.252541E-02_JPRB &
+  &, 0.225606E-02_JPRB, 0.204029E-02_JPRB, 0.181813E-02_JPRB, 0.165270E-02_JPRB &
+  &, 0.148242E-02_JPRB, 0.130724E-02_JPRB, 0.119280E-02_JPRB/)
+XCW( 506, :) = (/ &
+  &  0.998048E+00_JPRB, 0.996520E+00_JPRB, 0.994572E+00_JPRB, 0.992214E+00_JPRB &
+  &, 0.989440E+00_JPRB, 0.986254E+00_JPRB, 0.982657E+00_JPRB &
+  &, 0.978651E+00_JPRB, 0.974238E+00_JPRB, 0.969420E+00_JPRB, 0.964196E+00_JPRB &
+  &, 0.958576E+00_JPRB, 0.952558E+00_JPRB, 0.946147E+00_JPRB &
+  &, 0.939345E+00_JPRB, 0.932158E+00_JPRB, 0.924590E+00_JPRB, 0.916646E+00_JPRB &
+  &, 0.908331E+00_JPRB, 0.899651E+00_JPRB, 0.890611E+00_JPRB &
+  &, 0.881218E+00_JPRB, 0.871483E+00_JPRB, 0.861410E+00_JPRB, 0.851006E+00_JPRB &
+  &, 0.840282E+00_JPRB, 0.829247E+00_JPRB, 0.817913E+00_JPRB &
+  &, 0.806284E+00_JPRB, 0.794377E+00_JPRB, 0.782203E+00_JPRB, 0.769773E+00_JPRB &
+  &, 0.757094E+00_JPRB, 0.744187E+00_JPRB, 0.731062E+00_JPRB &
+  &, 0.717735E+00_JPRB, 0.704212E+00_JPRB, 0.690522E+00_JPRB, 0.676670E+00_JPRB &
+  &, 0.662664E+00_JPRB, 0.648545E+00_JPRB, 0.634306E+00_JPRB &
+  &, 0.619962E+00_JPRB, 0.605543E+00_JPRB, 0.591059E+00_JPRB, 0.576531E+00_JPRB &
+  &, 0.561971E+00_JPRB, 0.547395E+00_JPRB, 0.532827E+00_JPRB &
+  &, 0.518271E+00_JPRB, 0.503756E+00_JPRB, 0.489285E+00_JPRB, 0.474874E+00_JPRB &
+  &, 0.460553E+00_JPRB, 0.446341E+00_JPRB, 0.432224E+00_JPRB &
+  &, 0.418233E+00_JPRB, 0.404400E+00_JPRB, 0.390709E+00_JPRB, 0.377191E+00_JPRB &
+  &, 0.363844E+00_JPRB, 0.350714E+00_JPRB, 0.337762E+00_JPRB &
+  &, 0.325034E+00_JPRB, 0.312523E+00_JPRB, 0.300255E+00_JPRB, 0.288239E+00_JPRB &
+  &, 0.276461E+00_JPRB, 0.264945E+00_JPRB, 0.253696E+00_JPRB &
+  &, 0.242713E+00_JPRB, 0.232019E+00_JPRB, 0.221590E+00_JPRB, 0.211467E+00_JPRB &
+  &, 0.201622E+00_JPRB, 0.192072E+00_JPRB, 0.182805E+00_JPRB &
+  &, 0.173837E+00_JPRB, 0.165153E+00_JPRB, 0.156764E+00_JPRB, 0.148677E+00_JPRB &
+  &, 0.140876E+00_JPRB, 0.133364E+00_JPRB, 0.126146E+00_JPRB &
+  &, 0.119196E+00_JPRB, 0.112516E+00_JPRB, 0.106132E+00_JPRB, 0.100014E+00_JPRB &
+  &, 0.941582E-01_JPRB, 0.885887E-01_JPRB, 0.832381E-01_JPRB &
+  &, 0.781591E-01_JPRB, 0.733105E-01_JPRB, 0.686800E-01_JPRB, 0.643201E-01_JPRB &
+  &, 0.601504E-01_JPRB, 0.562219E-01_JPRB, 0.524832E-01_JPRB &
+  &, 0.489498E-01_JPRB, 0.456012E-01_JPRB, 0.424519E-01_JPRB, 0.394791E-01_JPRB &
+  &, 0.366958E-01_JPRB, 0.340768E-01_JPRB, 0.315943E-01_JPRB &
+  &, 0.292585E-01_JPRB, 0.270797E-01_JPRB, 0.250686E-01_JPRB, 0.231517E-01_JPRB &
+  &, 0.213786E-01_JPRB, 0.197153E-01_JPRB, 0.181688E-01_JPRB &
+  &, 0.167018E-01_JPRB, 0.153653E-01_JPRB, 0.141209E-01_JPRB, 0.129271E-01_JPRB &
+  &, 0.118832E-01_JPRB, 0.108520E-01_JPRB, 0.993348E-02_JPRB &
+  &, 0.908385E-02_JPRB, 0.830716E-02_JPRB, 0.755617E-02_JPRB, 0.688489E-02_JPRB &
+  &, 0.629755E-02_JPRB, 0.574482E-02_JPRB, 0.517443E-02_JPRB &
+  &, 0.469641E-02_JPRB, 0.425932E-02_JPRB, 0.386532E-02_JPRB, 0.351663E-02_JPRB &
+  &, 0.315720E-02_JPRB, 0.284599E-02_JPRB, 0.258530E-02_JPRB &
+  &, 0.231676E-02_JPRB, 0.210181E-02_JPRB, 0.188048E-02_JPRB, 0.171588E-02_JPRB &
+  &, 0.154644E-02_JPRB, 0.137210E-02_JPRB, 0.119280E-02_JPRB/)
+XCW( 507, :) = (/ &
+  &  0.998300E+00_JPRB, 0.996832E+00_JPRB, 0.994947E+00_JPRB, 0.992651E+00_JPRB &
+  &, 0.989939E+00_JPRB, 0.986814E+00_JPRB, 0.983279E+00_JPRB &
+  &, 0.979333E+00_JPRB, 0.974979E+00_JPRB, 0.970221E+00_JPRB, 0.965059E+00_JPRB &
+  &, 0.959496E+00_JPRB, 0.953534E+00_JPRB, 0.947180E+00_JPRB &
+  &, 0.940435E+00_JPRB, 0.933304E+00_JPRB, 0.925789E+00_JPRB, 0.917899E+00_JPRB &
+  &, 0.909637E+00_JPRB, 0.901006E+00_JPRB, 0.892018E+00_JPRB &
+  &, 0.882677E+00_JPRB, 0.872985E+00_JPRB, 0.862961E+00_JPRB, 0.852601E+00_JPRB &
+  &, 0.841923E+00_JPRB, 0.830931E+00_JPRB, 0.819638E+00_JPRB &
+  &, 0.808051E+00_JPRB, 0.796185E+00_JPRB, 0.784039E+00_JPRB, 0.771650E+00_JPRB &
+  &, 0.759006E+00_JPRB, 0.746130E+00_JPRB, 0.733035E+00_JPRB &
+  &, 0.719735E+00_JPRB, 0.706243E+00_JPRB, 0.692576E+00_JPRB, 0.678736E+00_JPRB &
+  &, 0.664761E+00_JPRB, 0.650653E+00_JPRB, 0.636434E+00_JPRB &
+  &, 0.622111E+00_JPRB, 0.607700E+00_JPRB, 0.593234E+00_JPRB, 0.578713E+00_JPRB &
+  &, 0.564159E+00_JPRB, 0.549586E+00_JPRB, 0.535008E+00_JPRB &
+  &, 0.520452E+00_JPRB, 0.505937E+00_JPRB, 0.491463E+00_JPRB, 0.477048E+00_JPRB &
+  &, 0.462721E+00_JPRB, 0.448486E+00_JPRB, 0.434359E+00_JPRB &
+  &, 0.420371E+00_JPRB, 0.406509E+00_JPRB, 0.392802E+00_JPRB, 0.379266E+00_JPRB &
+  &, 0.365898E+00_JPRB, 0.352727E+00_JPRB, 0.339768E+00_JPRB &
+  &, 0.327012E+00_JPRB, 0.314470E+00_JPRB, 0.302170E+00_JPRB, 0.290118E+00_JPRB &
+  &, 0.278321E+00_JPRB, 0.266765E+00_JPRB, 0.255471E+00_JPRB &
+  &, 0.244463E+00_JPRB, 0.233720E+00_JPRB, 0.223261E+00_JPRB, 0.213083E+00_JPRB &
+  &, 0.203203E+00_JPRB, 0.193614E+00_JPRB, 0.184307E+00_JPRB &
+  &, 0.175296E+00_JPRB, 0.166567E+00_JPRB, 0.158155E+00_JPRB, 0.150019E+00_JPRB &
+  &, 0.142164E+00_JPRB, 0.134624E+00_JPRB, 0.127348E+00_JPRB &
+  &, 0.120366E+00_JPRB, 0.113651E+00_JPRB, 0.107231E+00_JPRB, 0.101074E+00_JPRB &
+  &, 0.951780E-01_JPRB, 0.895356E-01_JPRB, 0.841712E-01_JPRB &
+  &, 0.790457E-01_JPRB, 0.741486E-01_JPRB, 0.695002E-01_JPRB, 0.650881E-01_JPRB &
+  &, 0.608979E-01_JPRB, 0.569133E-01_JPRB, 0.531514E-01_JPRB &
+  &, 0.495937E-01_JPRB, 0.462198E-01_JPRB, 0.430440E-01_JPRB, 0.400435E-01_JPRB &
+  &, 0.372314E-01_JPRB, 0.345435E-01_JPRB, 0.320687E-01_JPRB &
+  &, 0.297004E-01_JPRB, 0.274880E-01_JPRB, 0.254420E-01_JPRB, 0.235310E-01_JPRB &
+  &, 0.217212E-01_JPRB, 0.200198E-01_JPRB, 0.184339E-01_JPRB &
+  &, 0.169710E-01_JPRB, 0.156387E-01_JPRB, 0.143522E-01_JPRB, 0.131620E-01_JPRB &
+  &, 0.120740E-01_JPRB, 0.110940E-01_JPRB, 0.101300E-01_JPRB &
+  &, 0.928327E-02_JPRB, 0.845893E-02_JPRB, 0.771017E-02_JPRB, 0.704114E-02_JPRB &
+  &, 0.640322E-02_JPRB, 0.585202E-02_JPRB, 0.528315E-02_JPRB &
+  &, 0.480668E-02_JPRB, 0.437115E-02_JPRB, 0.397872E-02_JPRB, 0.357411E-02_JPRB &
+  &, 0.321548E-02_JPRB, 0.290507E-02_JPRB, 0.264519E-02_JPRB &
+  &, 0.237747E-02_JPRB, 0.216334E-02_JPRB, 0.194283E-02_JPRB, 0.171588E-02_JPRB &
+  &, 0.154644E-02_JPRB, 0.137210E-02_JPRB, 0.125851E-02_JPRB/)
+XCW( 508, :) = (/ &
+  &  0.998550E+00_JPRB, 0.997144E+00_JPRB, 0.995323E+00_JPRB, 0.993088E+00_JPRB &
+  &, 0.990438E+00_JPRB, 0.987375E+00_JPRB, 0.983899E+00_JPRB &
+  &, 0.980015E+00_JPRB, 0.975722E+00_JPRB, 0.971022E+00_JPRB, 0.965920E+00_JPRB &
+  &, 0.960415E+00_JPRB, 0.954512E+00_JPRB, 0.948215E+00_JPRB &
+  &, 0.941526E+00_JPRB, 0.934449E+00_JPRB, 0.926990E+00_JPRB, 0.919152E+00_JPRB &
+  &, 0.910943E+00_JPRB, 0.902363E+00_JPRB, 0.893426E+00_JPRB &
+  &, 0.884132E+00_JPRB, 0.874495E+00_JPRB, 0.864513E+00_JPRB, 0.854203E+00_JPRB &
+  &, 0.843567E+00_JPRB, 0.832619E+00_JPRB, 0.821367E+00_JPRB &
+  &, 0.809819E+00_JPRB, 0.797992E+00_JPRB, 0.785891E+00_JPRB, 0.773528E+00_JPRB &
+  &, 0.760918E+00_JPRB, 0.748076E+00_JPRB, 0.735013E+00_JPRB &
+  &, 0.721735E+00_JPRB, 0.708275E+00_JPRB, 0.694629E+00_JPRB, 0.680821E+00_JPRB &
+  &, 0.666858E+00_JPRB, 0.652771E+00_JPRB, 0.638563E+00_JPRB &
+  &, 0.624259E+00_JPRB, 0.609868E+00_JPRB, 0.595398E+00_JPRB, 0.580895E+00_JPRB &
+  &, 0.566346E+00_JPRB, 0.551777E+00_JPRB, 0.537201E+00_JPRB &
+  &, 0.522647E+00_JPRB, 0.508131E+00_JPRB, 0.493641E+00_JPRB, 0.479235E+00_JPRB &
+  &, 0.464889E+00_JPRB, 0.450646E+00_JPRB, 0.436509E+00_JPRB &
+  &, 0.422495E+00_JPRB, 0.408507E+00_JPRB, 0.394895E+00_JPRB, 0.381340E+00_JPRB &
+  &, 0.367952E+00_JPRB, 0.354758E+00_JPRB, 0.341773E+00_JPRB &
+  &, 0.328990E+00_JPRB, 0.316437E+00_JPRB, 0.304103E+00_JPRB, 0.292016E+00_JPRB &
+  &, 0.280182E+00_JPRB, 0.268584E+00_JPRB, 0.257268E+00_JPRB &
+  &, 0.246214E+00_JPRB, 0.235443E+00_JPRB, 0.224954E+00_JPRB, 0.214721E+00_JPRB &
+  &, 0.204806E+00_JPRB, 0.195156E+00_JPRB, 0.185810E+00_JPRB &
+  &, 0.176756E+00_JPRB, 0.168006E+00_JPRB, 0.159547E+00_JPRB, 0.151360E+00_JPRB &
+  &, 0.143479E+00_JPRB, 0.135884E+00_JPRB, 0.128578E+00_JPRB &
+  &, 0.121536E+00_JPRB, 0.114786E+00_JPRB, 0.108329E+00_JPRB, 0.102135E+00_JPRB &
+  &, 0.961977E-01_JPRB, 0.905130E-01_JPRB, 0.851042E-01_JPRB &
+  &, 0.799324E-01_JPRB, 0.750189E-01_JPRB, 0.703205E-01_JPRB, 0.658561E-01_JPRB &
+  &, 0.616454E-01_JPRB, 0.576393E-01_JPRB, 0.538197E-01_JPRB &
+  &, 0.502377E-01_JPRB, 0.468383E-01_JPRB, 0.436360E-01_JPRB, 0.406078E-01_JPRB &
+  &, 0.377287E-01_JPRB, 0.350490E-01_JPRB, 0.325035E-01_JPRB &
+  &, 0.301424E-01_JPRB, 0.279372E-01_JPRB, 0.258154E-01_JPRB, 0.238683E-01_JPRB &
+  &, 0.220638E-01_JPRB, 0.203677E-01_JPRB, 0.187431E-01_JPRB &
+  &, 0.172851E-01_JPRB, 0.158665E-01_JPRB, 0.145835E-01_JPRB, 0.133969E-01_JPRB &
+  &, 0.123124E-01_JPRB, 0.112877E-01_JPRB, 0.103265E-01_JPRB &
+  &, 0.943284E-02_JPRB, 0.861071E-02_JPRB, 0.786418E-02_JPRB, 0.719739E-02_JPRB &
+  &, 0.656173E-02_JPRB, 0.595921E-02_JPRB, 0.539188E-02_JPRB &
+  &, 0.491695E-02_JPRB, 0.448297E-02_JPRB, 0.403541E-02_JPRB, 0.368908E-02_JPRB &
+  &, 0.333204E-02_JPRB, 0.302324E-02_JPRB, 0.270508E-02_JPRB &
+  &, 0.243817E-02_JPRB, 0.222486E-02_JPRB, 0.200518E-02_JPRB, 0.177907E-02_JPRB &
+  &, 0.161046E-02_JPRB, 0.143696E-02_JPRB, 0.125851E-02_JPRB/)
+XCW( 509, :) = (/ &
+  &  0.998801E+00_JPRB, 0.997457E+00_JPRB, 0.995699E+00_JPRB, 0.993526E+00_JPRB &
+  &, 0.990937E+00_JPRB, 0.987936E+00_JPRB, 0.984522E+00_JPRB &
+  &, 0.980698E+00_JPRB, 0.976465E+00_JPRB, 0.971825E+00_JPRB, 0.966781E+00_JPRB &
+  &, 0.961334E+00_JPRB, 0.955490E+00_JPRB, 0.949249E+00_JPRB &
+  &, 0.942617E+00_JPRB, 0.935596E+00_JPRB, 0.928191E+00_JPRB, 0.920408E+00_JPRB &
+  &, 0.912250E+00_JPRB, 0.903724E+00_JPRB, 0.894836E+00_JPRB &
+  &, 0.885594E+00_JPRB, 0.876001E+00_JPRB, 0.866067E+00_JPRB, 0.855802E+00_JPRB &
+  &, 0.845214E+00_JPRB, 0.834306E+00_JPRB, 0.823096E+00_JPRB &
+  &, 0.811590E+00_JPRB, 0.799799E+00_JPRB, 0.787735E+00_JPRB, 0.775409E+00_JPRB &
+  &, 0.762838E+00_JPRB, 0.749992E+00_JPRB, 0.736991E+00_JPRB &
+  &, 0.723744E+00_JPRB, 0.710306E+00_JPRB, 0.696682E+00_JPRB, 0.682896E+00_JPRB &
+  &, 0.668965E+00_JPRB, 0.654889E+00_JPRB, 0.640702E+00_JPRB &
+  &, 0.626408E+00_JPRB, 0.612037E+00_JPRB, 0.597586E+00_JPRB, 0.583077E+00_JPRB &
+  &, 0.568533E+00_JPRB, 0.553968E+00_JPRB, 0.539407E+00_JPRB &
+  &, 0.524854E+00_JPRB, 0.510324E+00_JPRB, 0.495846E+00_JPRB, 0.481423E+00_JPRB &
+  &, 0.467071E+00_JPRB, 0.452821E+00_JPRB, 0.438675E+00_JPRB &
+  &, 0.424649E+00_JPRB, 0.410759E+00_JPRB, 0.397004E+00_JPRB, 0.383432E+00_JPRB &
+  &, 0.370023E+00_JPRB, 0.356807E+00_JPRB, 0.343797E+00_JPRB &
+  &, 0.330986E+00_JPRB, 0.318384E+00_JPRB, 0.306037E+00_JPRB, 0.293914E+00_JPRB &
+  &, 0.282042E+00_JPRB, 0.270424E+00_JPRB, 0.259064E+00_JPRB &
+  &, 0.247985E+00_JPRB, 0.237165E+00_JPRB, 0.226624E+00_JPRB, 0.216381E+00_JPRB &
+  &, 0.206409E+00_JPRB, 0.196745E+00_JPRB, 0.187359E+00_JPRB &
+  &, 0.178264E+00_JPRB, 0.169445E+00_JPRB, 0.160938E+00_JPRB, 0.152728E+00_JPRB &
+  &, 0.144794E+00_JPRB, 0.137144E+00_JPRB, 0.129807E+00_JPRB &
+  &, 0.122733E+00_JPRB, 0.115949E+00_JPRB, 0.109428E+00_JPRB, 0.103195E+00_JPRB &
+  &, 0.972175E-01_JPRB, 0.914905E-01_JPRB, 0.860373E-01_JPRB &
+  &, 0.808506E-01_JPRB, 0.758893E-01_JPRB, 0.711407E-01_JPRB, 0.666575E-01_JPRB &
+  &, 0.623929E-01_JPRB, 0.583653E-01_JPRB, 0.545230E-01_JPRB &
+  &, 0.508816E-01_JPRB, 0.474569E-01_JPRB, 0.441911E-01_JPRB, 0.411346E-01_JPRB &
+  &, 0.382642E-01_JPRB, 0.355546E-01_JPRB, 0.329778E-01_JPRB &
+  &, 0.305843E-01_JPRB, 0.283454E-01_JPRB, 0.262303E-01_JPRB, 0.242476E-01_JPRB &
+  &, 0.224064E-01_JPRB, 0.206722E-01_JPRB, 0.190524E-01_JPRB &
+  &, 0.175543E-01_JPRB, 0.161399E-01_JPRB, 0.148611E-01_JPRB, 0.136317E-01_JPRB &
+  &, 0.125031E-01_JPRB, 0.114813E-01_JPRB, 0.105230E-01_JPRB &
+  &, 0.963227E-02_JPRB, 0.881308E-02_JPRB, 0.801818E-02_JPRB, 0.730156E-02_JPRB &
+  &, 0.666740E-02_JPRB, 0.606640E-02_JPRB, 0.555497E-02_JPRB &
+  &, 0.502722E-02_JPRB, 0.453888E-02_JPRB, 0.414880E-02_JPRB, 0.374657E-02_JPRB &
+  &, 0.339032E-02_JPRB, 0.308232E-02_JPRB, 0.276497E-02_JPRB &
+  &, 0.249888E-02_JPRB, 0.222486E-02_JPRB, 0.200518E-02_JPRB, 0.184225E-02_JPRB &
+  &, 0.161046E-02_JPRB, 0.143696E-02_JPRB, 0.132422E-02_JPRB/)
+XCW( 510, :) = (/ &
+  &  0.999050E+00_JPRB, 0.997772E+00_JPRB, 0.996074E+00_JPRB, 0.993963E+00_JPRB &
+  &, 0.991437E+00_JPRB, 0.988497E+00_JPRB, 0.985145E+00_JPRB &
+  &, 0.981380E+00_JPRB, 0.977208E+00_JPRB, 0.972627E+00_JPRB, 0.967643E+00_JPRB &
+  &, 0.962254E+00_JPRB, 0.956467E+00_JPRB, 0.950285E+00_JPRB &
+  &, 0.943709E+00_JPRB, 0.936743E+00_JPRB, 0.929394E+00_JPRB, 0.921664E+00_JPRB &
+  &, 0.913560E+00_JPRB, 0.905085E+00_JPRB, 0.896250E+00_JPRB &
+  &, 0.887056E+00_JPRB, 0.877513E+00_JPRB, 0.867626E+00_JPRB, 0.857407E+00_JPRB &
+  &, 0.846862E+00_JPRB, 0.836001E+00_JPRB, 0.824832E+00_JPRB &
+  &, 0.813365E+00_JPRB, 0.801614E+00_JPRB, 0.789587E+00_JPRB, 0.777295E+00_JPRB &
+  &, 0.764758E+00_JPRB, 0.751978E+00_JPRB, 0.738973E+00_JPRB &
+  &, 0.725753E+00_JPRB, 0.712347E+00_JPRB, 0.698746E+00_JPRB, 0.684992E+00_JPRB &
+  &, 0.671073E+00_JPRB, 0.657018E+00_JPRB, 0.642852E+00_JPRB &
+  &, 0.628567E+00_JPRB, 0.614205E+00_JPRB, 0.599761E+00_JPRB, 0.585271E+00_JPRB &
+  &, 0.570732E+00_JPRB, 0.556171E+00_JPRB, 0.541613E+00_JPRB &
+  &, 0.527062E+00_JPRB, 0.512532E+00_JPRB, 0.498038E+00_JPRB, 0.483611E+00_JPRB &
+  &, 0.469253E+00_JPRB, 0.454995E+00_JPRB, 0.440840E+00_JPRB &
+  &, 0.426787E+00_JPRB, 0.412884E+00_JPRB, 0.399130E+00_JPRB, 0.385523E+00_JPRB &
+  &, 0.372094E+00_JPRB, 0.358855E+00_JPRB, 0.345820E+00_JPRB &
+  &, 0.332982E+00_JPRB, 0.320369E+00_JPRB, 0.307971E+00_JPRB, 0.295832E+00_JPRB &
+  &, 0.283922E+00_JPRB, 0.272264E+00_JPRB, 0.260882E+00_JPRB &
+  &, 0.249757E+00_JPRB, 0.238909E+00_JPRB, 0.228339E+00_JPRB, 0.218042E+00_JPRB &
+  &, 0.208034E+00_JPRB, 0.198311E+00_JPRB, 0.188885E+00_JPRB &
+  &, 0.179747E+00_JPRB, 0.170908E+00_JPRB, 0.162355E+00_JPRB, 0.154095E+00_JPRB &
+  &, 0.146109E+00_JPRB, 0.138431E+00_JPRB, 0.131037E+00_JPRB &
+  &, 0.123930E+00_JPRB, 0.117084E+00_JPRB, 0.110555E+00_JPRB, 0.104255E+00_JPRB &
+  &, 0.982372E-01_JPRB, 0.924984E-01_JPRB, 0.870014E-01_JPRB &
+  &, 0.817373E-01_JPRB, 0.767596E-01_JPRB, 0.719937E-01_JPRB, 0.674588E-01_JPRB &
+  &, 0.631744E-01_JPRB, 0.590913E-01_JPRB, 0.552264E-01_JPRB &
+  &, 0.515613E-01_JPRB, 0.480754E-01_JPRB, 0.448201E-01_JPRB, 0.416990E-01_JPRB &
+  &, 0.387998E-01_JPRB, 0.360601E-01_JPRB, 0.334522E-01_JPRB &
+  &, 0.310263E-01_JPRB, 0.287537E-01_JPRB, 0.266452E-01_JPRB, 0.246270E-01_JPRB &
+  &, 0.227490E-01_JPRB, 0.210202E-01_JPRB, 0.193617E-01_JPRB &
+  &, 0.178684E-01_JPRB, 0.164133E-01_JPRB, 0.150924E-01_JPRB, 0.138666E-01_JPRB &
+  &, 0.127415E-01_JPRB, 0.116749E-01_JPRB, 0.107195E-01_JPRB &
+  &, 0.978183E-02_JPRB, 0.896486E-02_JPRB, 0.817219E-02_JPRB, 0.745780E-02_JPRB &
+  &, 0.682591E-02_JPRB, 0.622719E-02_JPRB, 0.566369E-02_JPRB &
+  &, 0.513749E-02_JPRB, 0.465071E-02_JPRB, 0.420550E-02_JPRB, 0.380406E-02_JPRB &
+  &, 0.344860E-02_JPRB, 0.314140E-02_JPRB, 0.282486E-02_JPRB &
+  &, 0.255958E-02_JPRB, 0.228638E-02_JPRB, 0.206753E-02_JPRB, 0.184225E-02_JPRB &
+  &, 0.167448E-02_JPRB, 0.150182E-02_JPRB, 0.132422E-02_JPRB/)
+XCW( 511, :) = (/ &
+  &  0.999301E+00_JPRB, 0.998084E+00_JPRB, 0.996450E+00_JPRB, 0.994402E+00_JPRB &
+  &, 0.991937E+00_JPRB, 0.989059E+00_JPRB, 0.985766E+00_JPRB &
+  &, 0.982064E+00_JPRB, 0.977952E+00_JPRB, 0.973431E+00_JPRB, 0.968506E+00_JPRB &
+  &, 0.963176E+00_JPRB, 0.957448E+00_JPRB, 0.951321E+00_JPRB &
+  &, 0.944801E+00_JPRB, 0.937893E+00_JPRB, 0.930598E+00_JPRB, 0.922922E+00_JPRB &
+  &, 0.914871E+00_JPRB, 0.906449E+00_JPRB, 0.897664E+00_JPRB &
+  &, 0.888518E+00_JPRB, 0.879022E+00_JPRB, 0.869187E+00_JPRB, 0.859013E+00_JPRB &
+  &, 0.848514E+00_JPRB, 0.837693E+00_JPRB, 0.826569E+00_JPRB &
+  &, 0.815140E+00_JPRB, 0.803429E+00_JPRB, 0.791439E+00_JPRB, 0.779185E+00_JPRB &
+  &, 0.766679E+00_JPRB, 0.753934E+00_JPRB, 0.740960E+00_JPRB &
+  &, 0.727771E+00_JPRB, 0.714388E+00_JPRB, 0.700818E+00_JPRB, 0.687077E+00_JPRB &
+  &, 0.673190E+00_JPRB, 0.659157E+00_JPRB, 0.645001E+00_JPRB &
+  &, 0.630738E+00_JPRB, 0.616384E+00_JPRB, 0.601949E+00_JPRB, 0.587465E+00_JPRB &
+  &, 0.572944E+00_JPRB, 0.558387E+00_JPRB, 0.543820E+00_JPRB &
+  &, 0.529269E+00_JPRB, 0.514739E+00_JPRB, 0.500243E+00_JPRB, 0.485812E+00_JPRB &
+  &, 0.471449E+00_JPRB, 0.457185E+00_JPRB, 0.443005E+00_JPRB &
+  &, 0.428957E+00_JPRB, 0.415025E+00_JPRB, 0.401255E+00_JPRB, 0.387631E+00_JPRB &
+  &, 0.374182E+00_JPRB, 0.360921E+00_JPRB, 0.347844E+00_JPRB &
+  &, 0.334997E+00_JPRB, 0.322335E+00_JPRB, 0.309923E+00_JPRB, 0.297750E+00_JPRB &
+  &, 0.285802E+00_JPRB, 0.274124E+00_JPRB, 0.262699E+00_JPRB &
+  &, 0.251528E+00_JPRB, 0.240654E+00_JPRB, 0.230032E+00_JPRB, 0.219702E+00_JPRB &
+  &, 0.209660E+00_JPRB, 0.199900E+00_JPRB, 0.190435E+00_JPRB &
+  &, 0.181255E+00_JPRB, 0.172372E+00_JPRB, 0.163772E+00_JPRB, 0.155462E+00_JPRB &
+  &, 0.147451E+00_JPRB, 0.139718E+00_JPRB, 0.132294E+00_JPRB &
+  &, 0.125128E+00_JPRB, 0.118276E+00_JPRB, 0.111654E+00_JPRB, 0.105344E+00_JPRB &
+  &, 0.992870E-01_JPRB, 0.934758E-01_JPRB, 0.879656E-01_JPRB &
+  &, 0.826555E-01_JPRB, 0.776299E-01_JPRB, 0.728468E-01_JPRB, 0.682602E-01_JPRB &
+  &, 0.639219E-01_JPRB, 0.598173E-01_JPRB, 0.558947E-01_JPRB &
+  &, 0.522053E-01_JPRB, 0.487304E-01_JPRB, 0.454121E-01_JPRB, 0.423010E-01_JPRB &
+  &, 0.393354E-01_JPRB, 0.365657E-01_JPRB, 0.339661E-01_JPRB &
+  &, 0.315084E-01_JPRB, 0.292029E-01_JPRB, 0.270601E-01_JPRB, 0.250064E-01_JPRB &
+  &, 0.231344E-01_JPRB, 0.213682E-01_JPRB, 0.197151E-01_JPRB &
+  &, 0.181376E-01_JPRB, 0.167323E-01_JPRB, 0.153700E-01_JPRB, 0.141484E-01_JPRB &
+  &, 0.129800E-01_JPRB, 0.119169E-01_JPRB, 0.109160E-01_JPRB &
+  &, 0.998126E-02_JPRB, 0.911663E-02_JPRB, 0.832619E-02_JPRB, 0.761405E-02_JPRB &
+  &, 0.693158E-02_JPRB, 0.633439E-02_JPRB, 0.577242E-02_JPRB &
+  &, 0.524776E-02_JPRB, 0.476253E-02_JPRB, 0.431889E-02_JPRB, 0.391903E-02_JPRB &
+  &, 0.356517E-02_JPRB, 0.320049E-02_JPRB, 0.288476E-02_JPRB &
+  &, 0.262029E-02_JPRB, 0.234791E-02_JPRB, 0.212988E-02_JPRB, 0.190543E-02_JPRB &
+  &, 0.173850E-02_JPRB, 0.156668E-02_JPRB, 0.138993E-02_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART73',1,ZHOOK_HANDLE)
+END SUBROUTINE PART73
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART74
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART74',0,ZHOOK_HANDLE)
+
+XCW( 512, :) = (/ &
+  &  0.999555E+00_JPRB, 0.998399E+00_JPRB, 0.996826E+00_JPRB, 0.994839E+00_JPRB &
+  &, 0.992437E+00_JPRB, 0.989620E+00_JPRB, 0.986389E+00_JPRB &
+  &, 0.982748E+00_JPRB, 0.978695E+00_JPRB, 0.974235E+00_JPRB, 0.969369E+00_JPRB &
+  &, 0.964098E+00_JPRB, 0.958427E+00_JPRB, 0.952358E+00_JPRB &
+  &, 0.945895E+00_JPRB, 0.939037E+00_JPRB, 0.931802E+00_JPRB, 0.924181E+00_JPRB &
+  &, 0.916183E+00_JPRB, 0.907814E+00_JPRB, 0.899077E+00_JPRB &
+  &, 0.889984E+00_JPRB, 0.880538E+00_JPRB, 0.870749E+00_JPRB, 0.860619E+00_JPRB &
+  &, 0.850165E+00_JPRB, 0.839391E+00_JPRB, 0.828305E+00_JPRB &
+  &, 0.816923E+00_JPRB, 0.805248E+00_JPRB, 0.793295E+00_JPRB, 0.781079E+00_JPRB &
+  &, 0.768608E+00_JPRB, 0.755894E+00_JPRB, 0.742951E+00_JPRB &
+  &, 0.729790E+00_JPRB, 0.716438E+00_JPRB, 0.702891E+00_JPRB, 0.689172E+00_JPRB &
+  &, 0.675307E+00_JPRB, 0.661286E+00_JPRB, 0.647151E+00_JPRB &
+  &, 0.632909E+00_JPRB, 0.618564E+00_JPRB, 0.604148E+00_JPRB, 0.589671E+00_JPRB &
+  &, 0.575156E+00_JPRB, 0.560603E+00_JPRB, 0.546039E+00_JPRB &
+  &, 0.531490E+00_JPRB, 0.516959E+00_JPRB, 0.502462E+00_JPRB, 0.488028E+00_JPRB &
+  &, 0.473660E+00_JPRB, 0.459374E+00_JPRB, 0.445186E+00_JPRB &
+  &, 0.431127E+00_JPRB, 0.417181E+00_JPRB, 0.403380E+00_JPRB, 0.389739E+00_JPRB &
+  &, 0.376270E+00_JPRB, 0.362987E+00_JPRB, 0.349903E+00_JPRB &
+  &, 0.337011E+00_JPRB, 0.324338E+00_JPRB, 0.311895E+00_JPRB, 0.299668E+00_JPRB &
+  &, 0.287702E+00_JPRB, 0.275984E+00_JPRB, 0.264516E+00_JPRB &
+  &, 0.253320E+00_JPRB, 0.242398E+00_JPRB, 0.231746E+00_JPRB, 0.221385E+00_JPRB &
+  &, 0.211286E+00_JPRB, 0.201489E+00_JPRB, 0.191985E+00_JPRB &
+  &, 0.182763E+00_JPRB, 0.173836E+00_JPRB, 0.165214E+00_JPRB, 0.156855E+00_JPRB &
+  &, 0.148792E+00_JPRB, 0.141031E+00_JPRB, 0.133551E+00_JPRB &
+  &, 0.126353E+00_JPRB, 0.119439E+00_JPRB, 0.112810E+00_JPRB, 0.106434E+00_JPRB &
+  &, 0.100337E+00_JPRB, 0.945143E-01_JPRB, 0.889297E-01_JPRB &
+  &, 0.836055E-01_JPRB, 0.785325E-01_JPRB, 0.736998E-01_JPRB, 0.690950E-01_JPRB &
+  &, 0.647034E-01_JPRB, 0.605433E-01_JPRB, 0.566332E-01_JPRB &
+  &, 0.528850E-01_JPRB, 0.493489E-01_JPRB, 0.460042E-01_JPRB, 0.428654E-01_JPRB &
+  &, 0.398709E-01_JPRB, 0.370713E-01_JPRB, 0.344404E-01_JPRB &
+  &, 0.319503E-01_JPRB, 0.296520E-01_JPRB, 0.274334E-01_JPRB, 0.253857E-01_JPRB &
+  &, 0.234770E-01_JPRB, 0.216727E-01_JPRB, 0.200244E-01_JPRB &
+  &, 0.184517E-01_JPRB, 0.170057E-01_JPRB, 0.156476E-01_JPRB, 0.143833E-01_JPRB &
+  &, 0.132184E-01_JPRB, 0.121105E-01_JPRB, 0.111125E-01_JPRB &
+  &, 0.101807E-01_JPRB, 0.931900E-02_JPRB, 0.848019E-02_JPRB, 0.777030E-02_JPRB &
+  &, 0.709009E-02_JPRB, 0.644158E-02_JPRB, 0.588114E-02_JPRB &
+  &, 0.535803E-02_JPRB, 0.487436E-02_JPRB, 0.443228E-02_JPRB, 0.397651E-02_JPRB &
+  &, 0.362345E-02_JPRB, 0.325957E-02_JPRB, 0.294465E-02_JPRB &
+  &, 0.268099E-02_JPRB, 0.240943E-02_JPRB, 0.219223E-02_JPRB, 0.196861E-02_JPRB &
+  &, 0.173850E-02_JPRB, 0.156668E-02_JPRB, 0.138993E-02_JPRB/)
+XCW( 513, :) = (/ &
+  &  0.999805E+00_JPRB, 0.998712E+00_JPRB, 0.997201E+00_JPRB, 0.995277E+00_JPRB &
+  &, 0.992937E+00_JPRB, 0.990181E+00_JPRB, 0.987012E+00_JPRB &
+  &, 0.983431E+00_JPRB, 0.979439E+00_JPRB, 0.975039E+00_JPRB, 0.970233E+00_JPRB &
+  &, 0.965020E+00_JPRB, 0.959407E+00_JPRB, 0.953397E+00_JPRB &
+  &, 0.946990E+00_JPRB, 0.940193E+00_JPRB, 0.933007E+00_JPRB, 0.925440E+00_JPRB &
+  &, 0.917495E+00_JPRB, 0.909178E+00_JPRB, 0.900494E+00_JPRB &
+  &, 0.891449E+00_JPRB, 0.882054E+00_JPRB, 0.872311E+00_JPRB, 0.862232E+00_JPRB &
+  &, 0.851820E+00_JPRB, 0.841090E+00_JPRB, 0.830049E+00_JPRB &
+  &, 0.818702E+00_JPRB, 0.807071E+00_JPRB, 0.795156E+00_JPRB, 0.782974E+00_JPRB &
+  &, 0.770537E+00_JPRB, 0.757858E+00_JPRB, 0.744947E+00_JPRB &
+  &, 0.731817E+00_JPRB, 0.718489E+00_JPRB, 0.704964E+00_JPRB, 0.691278E+00_JPRB &
+  &, 0.677425E+00_JPRB, 0.663436E+00_JPRB, 0.649312E+00_JPRB &
+  &, 0.635079E+00_JPRB, 0.620755E+00_JPRB, 0.606347E+00_JPRB, 0.591877E+00_JPRB &
+  &, 0.577367E+00_JPRB, 0.562819E+00_JPRB, 0.548271E+00_JPRB &
+  &, 0.533711E+00_JPRB, 0.519180E+00_JPRB, 0.504681E+00_JPRB, 0.490244E+00_JPRB &
+  &, 0.475872E+00_JPRB, 0.461579E+00_JPRB, 0.447382E+00_JPRB &
+  &, 0.433296E+00_JPRB, 0.419338E+00_JPRB, 0.405522E+00_JPRB, 0.391863E+00_JPRB &
+  &, 0.378375E+00_JPRB, 0.365070E+00_JPRB, 0.351944E+00_JPRB &
+  &, 0.339025E+00_JPRB, 0.326342E+00_JPRB, 0.313847E+00_JPRB, 0.301605E+00_JPRB &
+  &, 0.289602E+00_JPRB, 0.277864E+00_JPRB, 0.266354E+00_JPRB &
+  &, 0.255134E+00_JPRB, 0.244163E+00_JPRB, 0.233483E+00_JPRB, 0.223068E+00_JPRB &
+  &, 0.212935E+00_JPRB, 0.203101E+00_JPRB, 0.193558E+00_JPRB &
+  &, 0.184295E+00_JPRB, 0.175324E+00_JPRB, 0.166656E+00_JPRB, 0.158248E+00_JPRB &
+  &, 0.150160E+00_JPRB, 0.142345E+00_JPRB, 0.134835E+00_JPRB &
+  &, 0.127578E+00_JPRB, 0.120631E+00_JPRB, 0.113937E+00_JPRB, 0.107523E+00_JPRB &
+  &, 0.101387E+00_JPRB, 0.955223E-01_JPRB, 0.898939E-01_JPRB &
+  &, 0.845554E-01_JPRB, 0.794350E-01_JPRB, 0.745529E-01_JPRB, 0.698963E-01_JPRB &
+  &, 0.654849E-01_JPRB, 0.613038E-01_JPRB, 0.573366E-01_JPRB &
+  &, 0.535647E-01_JPRB, 0.500039E-01_JPRB, 0.466332E-01_JPRB, 0.434297E-01_JPRB &
+  &, 0.404447E-01_JPRB, 0.376157E-01_JPRB, 0.349543E-01_JPRB &
+  &, 0.324324E-01_JPRB, 0.301011E-01_JPRB, 0.278898E-01_JPRB, 0.258073E-01_JPRB &
+  &, 0.238624E-01_JPRB, 0.220207E-01_JPRB, 0.203337E-01_JPRB &
+  &, 0.187658E-01_JPRB, 0.172790E-01_JPRB, 0.159252E-01_JPRB, 0.146181E-01_JPRB &
+  &, 0.134568E-01_JPRB, 0.123525E-01_JPRB, 0.113090E-01_JPRB &
+  &, 0.103801E-01_JPRB, 0.947078E-02_JPRB, 0.868553E-02_JPRB, 0.792655E-02_JPRB &
+  &, 0.724860E-02_JPRB, 0.660237E-02_JPRB, 0.598987E-02_JPRB &
+  &, 0.546829E-02_JPRB, 0.498618E-02_JPRB, 0.448898E-02_JPRB, 0.409148E-02_JPRB &
+  &, 0.368173E-02_JPRB, 0.337774E-02_JPRB, 0.300454E-02_JPRB &
+  &, 0.274170E-02_JPRB, 0.247096E-02_JPRB, 0.225458E-02_JPRB, 0.203179E-02_JPRB &
+  &, 0.180251E-02_JPRB, 0.163154E-02_JPRB, 0.145564E-02_JPRB/)
+XCW( 514, :) = (/ &
+  &  0.100005E+01_JPRB, 0.999025E+00_JPRB, 0.997578E+00_JPRB, 0.995717E+00_JPRB &
+  &, 0.993437E+00_JPRB, 0.990744E+00_JPRB, 0.987636E+00_JPRB &
+  &, 0.984115E+00_JPRB, 0.980184E+00_JPRB, 0.975844E+00_JPRB, 0.971097E+00_JPRB &
+  &, 0.965943E+00_JPRB, 0.960389E+00_JPRB, 0.954435E+00_JPRB &
+  &, 0.948085E+00_JPRB, 0.941344E+00_JPRB, 0.934214E+00_JPRB, 0.926702E+00_JPRB &
+  &, 0.918810E+00_JPRB, 0.910545E+00_JPRB, 0.901911E+00_JPRB &
+  &, 0.892918E+00_JPRB, 0.883570E+00_JPRB, 0.873876E+00_JPRB, 0.863844E+00_JPRB &
+  &, 0.853478E+00_JPRB, 0.842792E+00_JPRB, 0.831793E+00_JPRB &
+  &, 0.820489E+00_JPRB, 0.808894E+00_JPRB, 0.797020E+00_JPRB, 0.784872E+00_JPRB &
+  &, 0.772470E+00_JPRB, 0.759822E+00_JPRB, 0.746943E+00_JPRB &
+  &, 0.733845E+00_JPRB, 0.720539E+00_JPRB, 0.707047E+00_JPRB, 0.693383E+00_JPRB &
+  &, 0.679552E+00_JPRB, 0.665575E+00_JPRB, 0.651473E+00_JPRB &
+  &, 0.637261E+00_JPRB, 0.622946E+00_JPRB, 0.608557E+00_JPRB, 0.594094E+00_JPRB &
+  &, 0.579591E+00_JPRB, 0.565048E+00_JPRB, 0.550503E+00_JPRB &
+  &, 0.535944E+00_JPRB, 0.521414E+00_JPRB, 0.506914E+00_JPRB, 0.492474E+00_JPRB &
+  &, 0.478083E+00_JPRB, 0.463783E+00_JPRB, 0.449577E+00_JPRB &
+  &, 0.435481E+00_JPRB, 0.421511E+00_JPRB, 0.407680E+00_JPRB, 0.394004E+00_JPRB &
+  &, 0.380497E+00_JPRB, 0.367153E+00_JPRB, 0.354021E+00_JPRB &
+  &, 0.341076E+00_JPRB, 0.328345E+00_JPRB, 0.315838E+00_JPRB, 0.303561E+00_JPRB &
+  &, 0.291522E+00_JPRB, 0.279745E+00_JPRB, 0.268212E+00_JPRB &
+  &, 0.256948E+00_JPRB, 0.245950E+00_JPRB, 0.235219E+00_JPRB, 0.224773E+00_JPRB &
+  &, 0.214607E+00_JPRB, 0.204714E+00_JPRB, 0.195132E+00_JPRB &
+  &, 0.185828E+00_JPRB, 0.176813E+00_JPRB, 0.168098E+00_JPRB, 0.159667E+00_JPRB &
+  &, 0.151527E+00_JPRB, 0.143659E+00_JPRB, 0.136092E+00_JPRB &
+  &, 0.128832E+00_JPRB, 0.121823E+00_JPRB, 0.115094E+00_JPRB, 0.108642E+00_JPRB &
+  &, 0.102466E+00_JPRB, 0.965608E-01_JPRB, 0.908891E-01_JPRB &
+  &, 0.854737E-01_JPRB, 0.803376E-01_JPRB, 0.754059E-01_JPRB, 0.707311E-01_JPRB &
+  &, 0.663003E-01_JPRB, 0.620644E-01_JPRB, 0.580400E-01_JPRB &
+  &, 0.542444E-01_JPRB, 0.506588E-01_JPRB, 0.472623E-01_JPRB, 0.440317E-01_JPRB &
+  &, 0.410186E-01_JPRB, 0.381601E-01_JPRB, 0.354287E-01_JPRB &
+  &, 0.329146E-01_JPRB, 0.305502E-01_JPRB, 0.283047E-01_JPRB, 0.261866E-01_JPRB &
+  &, 0.242478E-01_JPRB, 0.224122E-01_JPRB, 0.206871E-01_JPRB &
+  &, 0.190799E-01_JPRB, 0.175980E-01_JPRB, 0.162028E-01_JPRB, 0.148999E-01_JPRB &
+  &, 0.136952E-01_JPRB, 0.125461E-01_JPRB, 0.115055E-01_JPRB &
+  &, 0.105795E-01_JPRB, 0.967315E-02_JPRB, 0.883953E-02_JPRB, 0.808279E-02_JPRB &
+  &, 0.735428E-02_JPRB, 0.670956E-02_JPRB, 0.609859E-02_JPRB &
+  &, 0.557856E-02_JPRB, 0.504209E-02_JPRB, 0.460237E-02_JPRB, 0.420646E-02_JPRB &
+  &, 0.379829E-02_JPRB, 0.343682E-02_JPRB, 0.312432E-02_JPRB &
+  &, 0.280240E-02_JPRB, 0.253248E-02_JPRB, 0.225458E-02_JPRB, 0.203179E-02_JPRB &
+  &, 0.186653E-02_JPRB, 0.163154E-02_JPRB, 0.152136E-02_JPRB/)
+XCW( 515, :) = (/ &
+  &  0.100031E+01_JPRB, 0.999338E+00_JPRB, 0.997954E+00_JPRB, 0.996155E+00_JPRB &
+  &, 0.993937E+00_JPRB, 0.991306E+00_JPRB, 0.988259E+00_JPRB &
+  &, 0.984800E+00_JPRB, 0.980930E+00_JPRB, 0.976649E+00_JPRB, 0.971962E+00_JPRB &
+  &, 0.966867E+00_JPRB, 0.961371E+00_JPRB, 0.955475E+00_JPRB &
+  &, 0.949182E+00_JPRB, 0.942497E+00_JPRB, 0.935423E+00_JPRB, 0.927965E+00_JPRB &
+  &, 0.920127E+00_JPRB, 0.911913E+00_JPRB, 0.903331E+00_JPRB &
+  &, 0.894390E+00_JPRB, 0.885090E+00_JPRB, 0.875444E+00_JPRB, 0.865457E+00_JPRB &
+  &, 0.855137E+00_JPRB, 0.844495E+00_JPRB, 0.833537E+00_JPRB &
+  &, 0.822276E+00_JPRB, 0.810722E+00_JPRB, 0.798885E+00_JPRB, 0.786775E+00_JPRB &
+  &, 0.774408E+00_JPRB, 0.761796E+00_JPRB, 0.748947E+00_JPRB &
+  &, 0.735873E+00_JPRB, 0.722599E+00_JPRB, 0.709130E+00_JPRB, 0.695488E+00_JPRB &
+  &, 0.681680E+00_JPRB, 0.667735E+00_JPRB, 0.653644E+00_JPRB &
+  &, 0.639454E+00_JPRB, 0.625148E+00_JPRB, 0.610768E+00_JPRB, 0.596324E+00_JPRB &
+  &, 0.581827E+00_JPRB, 0.567289E+00_JPRB, 0.552734E+00_JPRB &
+  &, 0.538191E+00_JPRB, 0.523662E+00_JPRB, 0.509147E+00_JPRB, 0.494705E+00_JPRB &
+  &, 0.480308E+00_JPRB, 0.466002E+00_JPRB, 0.451773E+00_JPRB &
+  &, 0.437666E+00_JPRB, 0.423683E+00_JPRB, 0.409838E+00_JPRB, 0.396145E+00_JPRB &
+  &, 0.382601E+00_JPRB, 0.369254E+00_JPRB, 0.356080E+00_JPRB &
+  &, 0.343108E+00_JPRB, 0.330367E+00_JPRB, 0.317828E+00_JPRB, 0.305518E+00_JPRB &
+  &, 0.293442E+00_JPRB, 0.281625E+00_JPRB, 0.270071E+00_JPRB &
+  &, 0.258761E+00_JPRB, 0.247738E+00_JPRB, 0.236956E+00_JPRB, 0.226478E+00_JPRB &
+  &, 0.216278E+00_JPRB, 0.206349E+00_JPRB, 0.196729E+00_JPRB &
+  &, 0.187384E+00_JPRB, 0.178326E+00_JPRB, 0.169565E+00_JPRB, 0.161086E+00_JPRB &
+  &, 0.152895E+00_JPRB, 0.144999E+00_JPRB, 0.137404E+00_JPRB &
+  &, 0.130057E+00_JPRB, 0.123015E+00_JPRB, 0.116250E+00_JPRB, 0.109761E+00_JPRB &
+  &, 0.103546E+00_JPRB, 0.975993E-01_JPRB, 0.918844E-01_JPRB &
+  &, 0.864553E-01_JPRB, 0.812401E-01_JPRB, 0.762918E-01_JPRB, 0.715659E-01_JPRB &
+  &, 0.670818E-01_JPRB, 0.628249E-01_JPRB, 0.587786E-01_JPRB &
+  &, 0.549599E-01_JPRB, 0.513138E-01_JPRB, 0.478913E-01_JPRB, 0.446337E-01_JPRB &
+  &, 0.415541E-01_JPRB, 0.386657E-01_JPRB, 0.359426E-01_JPRB &
+  &, 0.333967E-01_JPRB, 0.309993E-01_JPRB, 0.287196E-01_JPRB, 0.266082E-01_JPRB &
+  &, 0.246332E-01_JPRB, 0.227602E-01_JPRB, 0.209964E-01_JPRB &
+  &, 0.193940E-01_JPRB, 0.178714E-01_JPRB, 0.164804E-01_JPRB, 0.151348E-01_JPRB &
+  &, 0.139336E-01_JPRB, 0.127881E-01_JPRB, 0.117511E-01_JPRB &
+  &, 0.107291E-01_JPRB, 0.982493E-02_JPRB, 0.899354E-02_JPRB, 0.823904E-02_JPRB &
+  &, 0.751279E-02_JPRB, 0.687035E-02_JPRB, 0.626168E-02_JPRB &
+  &, 0.568883E-02_JPRB, 0.515392E-02_JPRB, 0.471576E-02_JPRB, 0.426394E-02_JPRB &
+  &, 0.385657E-02_JPRB, 0.349590E-02_JPRB, 0.318421E-02_JPRB &
+  &, 0.286310E-02_JPRB, 0.259400E-02_JPRB, 0.231693E-02_JPRB, 0.209497E-02_JPRB &
+  &, 0.186653E-02_JPRB, 0.169641E-02_JPRB, 0.152136E-02_JPRB/)
+XCW( 516, :) = (/ &
+  &  0.100056E+01_JPRB, 0.999654E+00_JPRB, 0.998331E+00_JPRB, 0.996593E+00_JPRB &
+  &, 0.994428E+00_JPRB, 0.991869E+00_JPRB, 0.988884E+00_JPRB &
+  &, 0.985485E+00_JPRB, 0.981676E+00_JPRB, 0.977455E+00_JPRB, 0.972827E+00_JPRB &
+  &, 0.967791E+00_JPRB, 0.962354E+00_JPRB, 0.956515E+00_JPRB &
+  &, 0.950280E+00_JPRB, 0.943651E+00_JPRB, 0.936630E+00_JPRB, 0.929228E+00_JPRB &
+  &, 0.921443E+00_JPRB, 0.913283E+00_JPRB, 0.904755E+00_JPRB &
+  &, 0.895862E+00_JPRB, 0.886612E+00_JPRB, 0.877013E+00_JPRB, 0.867073E+00_JPRB &
+  &, 0.856799E+00_JPRB, 0.846201E+00_JPRB, 0.835289E+00_JPRB &
+  &, 0.824067E+00_JPRB, 0.812553E+00_JPRB, 0.800753E+00_JPRB, 0.788682E+00_JPRB &
+  &, 0.776350E+00_JPRB, 0.763769E+00_JPRB, 0.750952E+00_JPRB &
+  &, 0.737910E+00_JPRB, 0.724668E+00_JPRB, 0.711222E+00_JPRB, 0.697604E+00_JPRB &
+  &, 0.683818E+00_JPRB, 0.669885E+00_JPRB, 0.655826E+00_JPRB &
+  &, 0.641635E+00_JPRB, 0.627350E+00_JPRB, 0.612990E+00_JPRB, 0.598554E+00_JPRB &
+  &, 0.584063E+00_JPRB, 0.569530E+00_JPRB, 0.554992E+00_JPRB &
+  &, 0.540438E+00_JPRB, 0.525909E+00_JPRB, 0.511394E+00_JPRB, 0.496935E+00_JPRB &
+  &, 0.482548E+00_JPRB, 0.468221E+00_JPRB, 0.453999E+00_JPRB &
+  &, 0.439867E+00_JPRB, 0.425871E+00_JPRB, 0.412012E+00_JPRB, 0.398286E+00_JPRB &
+  &, 0.384740E+00_JPRB, 0.371354E+00_JPRB, 0.358175E+00_JPRB &
+  &, 0.345177E+00_JPRB, 0.332389E+00_JPRB, 0.319819E+00_JPRB, 0.307494E+00_JPRB &
+  &, 0.295382E+00_JPRB, 0.283525E+00_JPRB, 0.271929E+00_JPRB &
+  &, 0.260596E+00_JPRB, 0.249525E+00_JPRB, 0.238715E+00_JPRB, 0.228206E+00_JPRB &
+  &, 0.217950E+00_JPRB, 0.207985E+00_JPRB, 0.198326E+00_JPRB &
+  &, 0.188941E+00_JPRB, 0.179839E+00_JPRB, 0.171032E+00_JPRB, 0.162505E+00_JPRB &
+  &, 0.154289E+00_JPRB, 0.146340E+00_JPRB, 0.138688E+00_JPRB &
+  &, 0.131338E+00_JPRB, 0.124235E+00_JPRB, 0.117435E+00_JPRB, 0.110910E+00_JPRB &
+  &, 0.104626E+00_JPRB, 0.986378E-01_JPRB, 0.928797E-01_JPRB &
+  &, 0.874053E-01_JPRB, 0.821749E-01_JPRB, 0.771776E-01_JPRB, 0.724340E-01_JPRB &
+  &, 0.678973E-01_JPRB, 0.636201E-01_JPRB, 0.595171E-01_JPRB &
+  &, 0.556754E-01_JPRB, 0.520051E-01_JPRB, 0.485204E-01_JPRB, 0.452358E-01_JPRB &
+  &, 0.421279E-01_JPRB, 0.392102E-01_JPRB, 0.364565E-01_JPRB &
+  &, 0.338788E-01_JPRB, 0.314485E-01_JPRB, 0.291759E-01_JPRB, 0.270297E-01_JPRB &
+  &, 0.250186E-01_JPRB, 0.231082E-01_JPRB, 0.213499E-01_JPRB &
+  &, 0.197081E-01_JPRB, 0.181903E-01_JPRB, 0.167580E-01_JPRB, 0.154166E-01_JPRB &
+  &, 0.141721E-01_JPRB, 0.130301E-01_JPRB, 0.119477E-01_JPRB &
+  &, 0.109285E-01_JPRB, 0.100273E-01_JPRB, 0.919887E-02_JPRB, 0.839529E-02_JPRB &
+  &, 0.767130E-02_JPRB, 0.697754E-02_JPRB, 0.637040E-02_JPRB &
+  &, 0.579910E-02_JPRB, 0.526574E-02_JPRB, 0.482915E-02_JPRB, 0.437891E-02_JPRB &
+  &, 0.397314E-02_JPRB, 0.361407E-02_JPRB, 0.324410E-02_JPRB &
+  &, 0.292381E-02_JPRB, 0.265553E-02_JPRB, 0.237928E-02_JPRB, 0.215815E-02_JPRB &
+  &, 0.193055E-02_JPRB, 0.176127E-02_JPRB, 0.158707E-02_JPRB/)
+XCW( 517, :) = (/ &
+  &  0.100081E+01_JPRB, 0.999968E+00_JPRB, 0.998708E+00_JPRB, 0.997032E+00_JPRB &
+  &, 0.994939E+00_JPRB, 0.992432E+00_JPRB, 0.989508E+00_JPRB &
+  &, 0.986171E+00_JPRB, 0.982422E+00_JPRB, 0.978261E+00_JPRB, 0.973692E+00_JPRB &
+  &, 0.968717E+00_JPRB, 0.963337E+00_JPRB, 0.957557E+00_JPRB &
+  &, 0.951380E+00_JPRB, 0.944807E+00_JPRB, 0.937843E+00_JPRB, 0.930493E+00_JPRB &
+  &, 0.922763E+00_JPRB, 0.914654E+00_JPRB, 0.906178E+00_JPRB &
+  &, 0.897335E+00_JPRB, 0.888135E+00_JPRB, 0.878585E+00_JPRB, 0.868693E+00_JPRB &
+  &, 0.858465E+00_JPRB, 0.847911E+00_JPRB, 0.837040E+00_JPRB &
+  &, 0.825862E+00_JPRB, 0.814388E+00_JPRB, 0.802626E+00_JPRB, 0.790593E+00_JPRB &
+  &, 0.778296E+00_JPRB, 0.765746E+00_JPRB, 0.752962E+00_JPRB &
+  &, 0.739956E+00_JPRB, 0.726738E+00_JPRB, 0.713315E+00_JPRB, 0.699729E+00_JPRB &
+  &, 0.685966E+00_JPRB, 0.672056E+00_JPRB, 0.658009E+00_JPRB &
+  &, 0.643839E+00_JPRB, 0.629564E+00_JPRB, 0.615213E+00_JPRB, 0.600784E+00_JPRB &
+  &, 0.586299E+00_JPRB, 0.571783E+00_JPRB, 0.557237E+00_JPRB &
+  &, 0.542698E+00_JPRB, 0.528157E+00_JPRB, 0.513655E+00_JPRB, 0.499193E+00_JPRB &
+  &, 0.484788E+00_JPRB, 0.470455E+00_JPRB, 0.456210E+00_JPRB &
+  &, 0.442083E+00_JPRB, 0.428060E+00_JPRB, 0.414186E+00_JPRB, 0.400443E+00_JPRB &
+  &, 0.386879E+00_JPRB, 0.373472E+00_JPRB, 0.360251E+00_JPRB &
+  &, 0.347246E+00_JPRB, 0.334429E+00_JPRB, 0.321828E+00_JPRB, 0.309470E+00_JPRB &
+  &, 0.297341E+00_JPRB, 0.285446E+00_JPRB, 0.273809E+00_JPRB &
+  &, 0.262430E+00_JPRB, 0.251333E+00_JPRB, 0.240495E+00_JPRB, 0.229934E+00_JPRB &
+  &, 0.219645E+00_JPRB, 0.209644E+00_JPRB, 0.199924E+00_JPRB &
+  &, 0.190497E+00_JPRB, 0.181352E+00_JPRB, 0.172500E+00_JPRB, 0.163949E+00_JPRB &
+  &, 0.155683E+00_JPRB, 0.147707E+00_JPRB, 0.140000E+00_JPRB &
+  &, 0.132591E+00_JPRB, 0.125455E+00_JPRB, 0.118621E+00_JPRB, 0.112029E+00_JPRB &
+  &, 0.105736E+00_JPRB, 0.996763E-01_JPRB, 0.939060E-01_JPRB &
+  &, 0.883869E-01_JPRB, 0.831097E-01_JPRB, 0.780963E-01_JPRB, 0.733022E-01_JPRB &
+  &, 0.687127E-01_JPRB, 0.643806E-01_JPRB, 0.602909E-01_JPRB &
+  &, 0.563552E-01_JPRB, 0.526600E-01_JPRB, 0.491494E-01_JPRB, 0.458378E-01_JPRB &
+  &, 0.427400E-01_JPRB, 0.397935E-01_JPRB, 0.370099E-01_JPRB &
+  &, 0.343609E-01_JPRB, 0.318976E-01_JPRB, 0.295908E-01_JPRB, 0.274091E-01_JPRB &
+  &, 0.254040E-01_JPRB, 0.234997E-01_JPRB, 0.217033E-01_JPRB &
+  &, 0.200222E-01_JPRB, 0.184637E-01_JPRB, 0.170356E-01_JPRB, 0.156985E-01_JPRB &
+  &, 0.144105E-01_JPRB, 0.132721E-01_JPRB, 0.121442E-01_JPRB &
+  &, 0.111778E-01_JPRB, 0.102297E-01_JPRB, 0.935288E-02_JPRB, 0.855154E-02_JPRB &
+  &, 0.782981E-02_JPRB, 0.713833E-02_JPRB, 0.653349E-02_JPRB &
+  &, 0.590937E-02_JPRB, 0.537756E-02_JPRB, 0.488585E-02_JPRB, 0.443640E-02_JPRB &
+  &, 0.403142E-02_JPRB, 0.367315E-02_JPRB, 0.330399E-02_JPRB &
+  &, 0.298451E-02_JPRB, 0.271705E-02_JPRB, 0.244163E-02_JPRB, 0.222133E-02_JPRB &
+  &, 0.199457E-02_JPRB, 0.176127E-02_JPRB, 0.158707E-02_JPRB/)
+XCW( 518, :) = (/ &
+  &  0.100106E+01_JPRB, 0.100028E+01_JPRB, 0.999084E+00_JPRB, 0.997471E+00_JPRB &
+  &, 0.995441E+00_JPRB, 0.992995E+00_JPRB, 0.990132E+00_JPRB &
+  &, 0.986855E+00_JPRB, 0.983167E+00_JPRB, 0.979069E+00_JPRB, 0.974559E+00_JPRB &
+  &, 0.969643E+00_JPRB, 0.964322E+00_JPRB, 0.958600E+00_JPRB &
+  &, 0.952478E+00_JPRB, 0.945962E+00_JPRB, 0.939054E+00_JPRB, 0.931760E+00_JPRB &
+  &, 0.924083E+00_JPRB, 0.916027E+00_JPRB, 0.907602E+00_JPRB &
+  &, 0.898810E+00_JPRB, 0.889661E+00_JPRB, 0.880161E+00_JPRB, 0.870313E+00_JPRB &
+  &, 0.860131E+00_JPRB, 0.849621E+00_JPRB, 0.838795E+00_JPRB &
+  &, 0.827656E+00_JPRB, 0.816223E+00_JPRB, 0.804503E+00_JPRB, 0.792504E+00_JPRB &
+  &, 0.780242E+00_JPRB, 0.767728E+00_JPRB, 0.754976E+00_JPRB &
+  &, 0.741993E+00_JPRB, 0.728807E+00_JPRB, 0.715417E+00_JPRB, 0.701845E+00_JPRB &
+  &, 0.686799E+00_JPRB, 0.674216E+00_JPRB, 0.660191E+00_JPRB &
+  &, 0.646043E+00_JPRB, 0.631789E+00_JPRB, 0.617435E+00_JPRB, 0.603025E+00_JPRB &
+  &, 0.588548E+00_JPRB, 0.574037E+00_JPRB, 0.559494E+00_JPRB &
+  &, 0.544958E+00_JPRB, 0.530418E+00_JPRB, 0.515915E+00_JPRB, 0.501437E+00_JPRB &
+  &, 0.487028E+00_JPRB, 0.472689E+00_JPRB, 0.458436E+00_JPRB &
+  &, 0.444299E+00_JPRB, 0.430264E+00_JPRB, 0.416360E+00_JPRB, 0.402618E+00_JPRB &
+  &, 0.389018E+00_JPRB, 0.375590E+00_JPRB, 0.362364E+00_JPRB &
+  &, 0.349314E+00_JPRB, 0.336470E+00_JPRB, 0.323857E+00_JPRB, 0.311446E+00_JPRB &
+  &, 0.299280E+00_JPRB, 0.287367E+00_JPRB, 0.275708E+00_JPRB &
+  &, 0.264286E+00_JPRB, 0.253142E+00_JPRB, 0.242276E+00_JPRB, 0.231662E+00_JPRB &
+  &, 0.221339E+00_JPRB, 0.211303E+00_JPRB, 0.201545E+00_JPRB &
+  &, 0.192078E+00_JPRB, 0.182890E+00_JPRB, 0.173992E+00_JPRB, 0.165394E+00_JPRB &
+  &, 0.157077E+00_JPRB, 0.149074E+00_JPRB, 0.141339E+00_JPRB &
+  &, 0.133872E+00_JPRB, 0.126703E+00_JPRB, 0.119806E+00_JPRB, 0.113177E+00_JPRB &
+  &, 0.106845E+00_JPRB, 0.100745E+00_JPRB, 0.949324E-01_JPRB &
+  &, 0.893685E-01_JPRB, 0.840445E-01_JPRB, 0.789821E-01_JPRB, 0.741703E-01_JPRB &
+  &, 0.695622E-01_JPRB, 0.651757E-01_JPRB, 0.610294E-01_JPRB &
+  &, 0.571064E-01_JPRB, 0.533514E-01_JPRB, 0.498154E-01_JPRB, 0.464774E-01_JPRB &
+  &, 0.433138E-01_JPRB, 0.403379E-01_JPRB, 0.375238E-01_JPRB &
+  &, 0.348832E-01_JPRB, 0.323875E-01_JPRB, 0.300472E-01_JPRB, 0.278306E-01_JPRB &
+  &, 0.257894E-01_JPRB, 0.238477E-01_JPRB, 0.220568E-01_JPRB &
+  &, 0.203811E-01_JPRB, 0.187827E-01_JPRB, 0.173132E-01_JPRB, 0.159333E-01_JPRB &
+  &, 0.146489E-01_JPRB, 0.134657E-01_JPRB, 0.123898E-01_JPRB &
+  &, 0.113772E-01_JPRB, 0.104320E-01_JPRB, 0.955822E-02_JPRB, 0.870778E-02_JPRB &
+  &, 0.798832E-02_JPRB, 0.729912E-02_JPRB, 0.664221E-02_JPRB &
+  &, 0.607477E-02_JPRB, 0.548939E-02_JPRB, 0.499924E-02_JPRB, 0.455137E-02_JPRB &
+  &, 0.414798E-02_JPRB, 0.373223E-02_JPRB, 0.342377E-02_JPRB &
+  &, 0.304522E-02_JPRB, 0.277858E-02_JPRB, 0.250398E-02_JPRB, 0.228451E-02_JPRB &
+  &, 0.205859E-02_JPRB, 0.182613E-02_JPRB, 0.165278E-02_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART74',1,ZHOOK_HANDLE)
+END SUBROUTINE PART74
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART75
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART75',0,ZHOOK_HANDLE)
+
+XCW( 519, :) = (/ &
+  &  0.100131E+01_JPRB, 0.100060E+01_JPRB, 0.999460E+00_JPRB, 0.997911E+00_JPRB &
+  &, 0.995940E+00_JPRB, 0.993558E+00_JPRB, 0.990758E+00_JPRB &
+  &, 0.987543E+00_JPRB, 0.983915E+00_JPRB, 0.979876E+00_JPRB, 0.975427E+00_JPRB &
+  &, 0.970569E+00_JPRB, 0.965308E+00_JPRB, 0.959643E+00_JPRB &
+  &, 0.953579E+00_JPRB, 0.947119E+00_JPRB, 0.940267E+00_JPRB, 0.933027E+00_JPRB &
+  &, 0.925404E+00_JPRB, 0.917401E+00_JPRB, 0.909028E+00_JPRB &
+  &, 0.900289E+00_JPRB, 0.891188E+00_JPRB, 0.881736E+00_JPRB, 0.871937E+00_JPRB &
+  &, 0.861801E+00_JPRB, 0.851335E+00_JPRB, 0.840551E+00_JPRB &
+  &, 0.829459E+00_JPRB, 0.818062E+00_JPRB, 0.806380E+00_JPRB, 0.794420E+00_JPRB &
+  &, 0.782193E+00_JPRB, 0.769715E+00_JPRB, 0.756994E+00_JPRB &
+  &, 0.744048E+00_JPRB, 0.730886E+00_JPRB, 0.717520E+00_JPRB, 0.703980E+00_JPRB &
+  &, 0.690263E+00_JPRB, 0.676387E+00_JPRB, 0.662384E+00_JPRB &
+  &, 0.648247E+00_JPRB, 0.634013E+00_JPRB, 0.619680E+00_JPRB, 0.605267E+00_JPRB &
+  &, 0.590808E+00_JPRB, 0.576303E+00_JPRB, 0.561765E+00_JPRB &
+  &, 0.547218E+00_JPRB, 0.532693E+00_JPRB, 0.518175E+00_JPRB, 0.503710E+00_JPRB &
+  &, 0.489282E+00_JPRB, 0.474937E+00_JPRB, 0.460677E+00_JPRB &
+  &, 0.446515E+00_JPRB, 0.432468E+00_JPRB, 0.418566E+00_JPRB, 0.404792E+00_JPRB &
+  &, 0.391174E+00_JPRB, 0.377725E+00_JPRB, 0.364458E+00_JPRB &
+  &, 0.351401E+00_JPRB, 0.338528E+00_JPRB, 0.325885E+00_JPRB, 0.313441E+00_JPRB &
+  &, 0.301260E+00_JPRB, 0.289308E+00_JPRB, 0.277608E+00_JPRB &
+  &, 0.266163E+00_JPRB, 0.254972E+00_JPRB, 0.244056E+00_JPRB, 0.233412E+00_JPRB &
+  &, 0.223057E+00_JPRB, 0.212962E+00_JPRB, 0.203166E+00_JPRB &
+  &, 0.193659E+00_JPRB, 0.184429E+00_JPRB, 0.175510E+00_JPRB, 0.166864E+00_JPRB &
+  &, 0.158497E+00_JPRB, 0.150442E+00_JPRB, 0.142650E+00_JPRB &
+  &, 0.135153E+00_JPRB, 0.127952E+00_JPRB, 0.121020E+00_JPRB, 0.114355E+00_JPRB &
+  &, 0.107955E+00_JPRB, 0.101845E+00_JPRB, 0.959587E-01_JPRB &
+  &, 0.903501E-01_JPRB, 0.850115E-01_JPRB, 0.799008E-01_JPRB, 0.750385E-01_JPRB &
+  &, 0.703776E-01_JPRB, 0.659709E-01_JPRB, 0.618032E-01_JPRB &
+  &, 0.578219E-01_JPRB, 0.540427E-01_JPRB, 0.504815E-01_JPRB, 0.471170E-01_JPRB &
+  &, 0.439259E-01_JPRB, 0.408824E-01_JPRB, 0.380772E-01_JPRB &
+  &, 0.353653E-01_JPRB, 0.328775E-01_JPRB, 0.305035E-01_JPRB, 0.282943E-01_JPRB &
+  &, 0.261748E-01_JPRB, 0.242392E-01_JPRB, 0.224102E-01_JPRB &
+  &, 0.206952E-01_JPRB, 0.191016E-01_JPRB, 0.175907E-01_JPRB, 0.162151E-01_JPRB &
+  &, 0.149350E-01_JPRB, 0.137078E-01_JPRB, 0.125863E-01_JPRB &
+  &, 0.115767E-01_JPRB, 0.106344E-01_JPRB, 0.971222E-02_JPRB, 0.891611E-02_JPRB &
+  &, 0.814683E-02_JPRB, 0.740632E-02_JPRB, 0.675094E-02_JPRB &
+  &, 0.618504E-02_JPRB, 0.560121E-02_JPRB, 0.511263E-02_JPRB, 0.466634E-02_JPRB &
+  &, 0.420626E-02_JPRB, 0.385040E-02_JPRB, 0.348366E-02_JPRB &
+  &, 0.316663E-02_JPRB, 0.284010E-02_JPRB, 0.256633E-02_JPRB, 0.234769E-02_JPRB &
+  &, 0.212261E-02_JPRB, 0.189099E-02_JPRB, 0.171849E-02_JPRB/)
+XCW( 520, :) = (/ &
+  &  0.100156E+01_JPRB, 0.100091E+01_JPRB, 0.999837E+00_JPRB, 0.998349E+00_JPRB &
+  &, 0.996444E+00_JPRB, 0.994122E+00_JPRB, 0.991383E+00_JPRB &
+  &, 0.988229E+00_JPRB, 0.984663E+00_JPRB, 0.980684E+00_JPRB, 0.976294E+00_JPRB &
+  &, 0.971497E+00_JPRB, 0.966294E+00_JPRB, 0.960687E+00_JPRB &
+  &, 0.954681E+00_JPRB, 0.948277E+00_JPRB, 0.941482E+00_JPRB, 0.934297E+00_JPRB &
+  &, 0.926727E+00_JPRB, 0.918778E+00_JPRB, 0.910455E+00_JPRB &
+  &, 0.901767E+00_JPRB, 0.892717E+00_JPRB, 0.883312E+00_JPRB, 0.873560E+00_JPRB &
+  &, 0.863470E+00_JPRB, 0.853052E+00_JPRB, 0.842310E+00_JPRB &
+  &, 0.831257E+00_JPRB, 0.819906E+00_JPRB, 0.808260E+00_JPRB, 0.796339E+00_JPRB &
+  &, 0.784148E+00_JPRB, 0.771701E+00_JPRB, 0.759017E+00_JPRB &
+  &, 0.746095E+00_JPRB, 0.732965E+00_JPRB, 0.719632E+00_JPRB, 0.706105E+00_JPRB &
+  &, 0.692421E+00_JPRB, 0.678568E+00_JPRB, 0.664577E+00_JPRB &
+  &, 0.650462E+00_JPRB, 0.636238E+00_JPRB, 0.621914E+00_JPRB, 0.607521E+00_JPRB &
+  &, 0.593069E+00_JPRB, 0.578569E+00_JPRB, 0.564035E+00_JPRB &
+  &, 0.549492E+00_JPRB, 0.534967E+00_JPRB, 0.520450E+00_JPRB, 0.505968E+00_JPRB &
+  &, 0.491551E+00_JPRB, 0.477201E+00_JPRB, 0.462918E+00_JPRB &
+  &, 0.448747E+00_JPRB, 0.434688E+00_JPRB, 0.420757E+00_JPRB, 0.406966E+00_JPRB &
+  &, 0.393347E+00_JPRB, 0.379878E+00_JPRB, 0.366588E+00_JPRB &
+  &, 0.353488E+00_JPRB, 0.340587E+00_JPRB, 0.327914E+00_JPRB, 0.315455E+00_JPRB &
+  &, 0.303239E+00_JPRB, 0.291249E+00_JPRB, 0.279508E+00_JPRB &
+  &, 0.268019E+00_JPRB, 0.256803E+00_JPRB, 0.245859E+00_JPRB, 0.235184E+00_JPRB &
+  &, 0.224774E+00_JPRB, 0.214645E+00_JPRB, 0.204811E+00_JPRB &
+  &, 0.195264E+00_JPRB, 0.185991E+00_JPRB, 0.177028E+00_JPRB, 0.168335E+00_JPRB &
+  &, 0.159944E+00_JPRB, 0.151809E+00_JPRB, 0.143989E+00_JPRB &
+  &, 0.136462E+00_JPRB, 0.129200E+00_JPRB, 0.122205E+00_JPRB, 0.115504E+00_JPRB &
+  &, 0.109095E+00_JPRB, 0.102914E+00_JPRB, 0.970162E-01_JPRB &
+  &, 0.913634E-01_JPRB, 0.859786E-01_JPRB, 0.808195E-01_JPRB, 0.759066E-01_JPRB &
+  &, 0.712271E-01_JPRB, 0.668006E-01_JPRB, 0.625769E-01_JPRB &
+  &, 0.585374E-01_JPRB, 0.547340E-01_JPRB, 0.511475E-01_JPRB, 0.477190E-01_JPRB &
+  &, 0.444997E-01_JPRB, 0.414657E-01_JPRB, 0.385911E-01_JPRB &
+  &, 0.358876E-01_JPRB, 0.333674E-01_JPRB, 0.309599E-01_JPRB, 0.287158E-01_JPRB &
+  &, 0.266031E-01_JPRB, 0.246307E-01_JPRB, 0.227637E-01_JPRB &
+  &, 0.210542E-01_JPRB, 0.194206E-01_JPRB, 0.179146E-01_JPRB, 0.164970E-01_JPRB &
+  &, 0.151734E-01_JPRB, 0.139498E-01_JPRB, 0.128319E-01_JPRB &
+  &, 0.117761E-01_JPRB, 0.107862E-01_JPRB, 0.991756E-02_JPRB, 0.907236E-02_JPRB &
+  &, 0.830533E-02_JPRB, 0.756710E-02_JPRB, 0.691403E-02_JPRB &
+  &, 0.629531E-02_JPRB, 0.576895E-02_JPRB, 0.522603E-02_JPRB, 0.478131E-02_JPRB &
+  &, 0.432282E-02_JPRB, 0.390948E-02_JPRB, 0.354355E-02_JPRB &
+  &, 0.322733E-02_JPRB, 0.290162E-02_JPRB, 0.262868E-02_JPRB, 0.234769E-02_JPRB &
+  &, 0.212261E-02_JPRB, 0.195585E-02_JPRB, 0.171849E-02_JPRB/)
+XCW( 521, :) = (/ &
+  &  0.100181E+01_JPRB, 0.100122E+01_JPRB, 0.100022E+01_JPRB, 0.998789E+00_JPRB &
+  &, 0.996946E+00_JPRB, 0.994686E+00_JPRB, 0.992008E+00_JPRB &
+  &, 0.988917E+00_JPRB, 0.985411E+00_JPRB, 0.981492E+00_JPRB, 0.977163E+00_JPRB &
+  &, 0.972425E+00_JPRB, 0.967280E+00_JPRB, 0.961731E+00_JPRB &
+  &, 0.955783E+00_JPRB, 0.949437E+00_JPRB, 0.942696E+00_JPRB, 0.935566E+00_JPRB &
+  &, 0.928052E+00_JPRB, 0.920158E+00_JPRB, 0.911885E+00_JPRB &
+  &, 0.903249E+00_JPRB, 0.894247E+00_JPRB, 0.884891E+00_JPRB, 0.875191E+00_JPRB &
+  &, 0.865147E+00_JPRB, 0.854769E+00_JPRB, 0.844073E+00_JPRB &
+  &, 0.833064E+00_JPRB, 0.821753E+00_JPRB, 0.810145E+00_JPRB, 0.798263E+00_JPRB &
+  &, 0.786107E+00_JPRB, 0.773697E+00_JPRB, 0.761040E+00_JPRB &
+  &, 0.748150E+00_JPRB, 0.735054E+00_JPRB, 0.721744E+00_JPRB, 0.708251E+00_JPRB &
+  &, 0.694580E+00_JPRB, 0.680750E+00_JPRB, 0.666781E+00_JPRB &
+  &, 0.652677E+00_JPRB, 0.638475E+00_JPRB, 0.624171E+00_JPRB, 0.609786E+00_JPRB &
+  &, 0.595329E+00_JPRB, 0.580835E+00_JPRB, 0.566318E+00_JPRB &
+  &, 0.551778E+00_JPRB, 0.537242E+00_JPRB, 0.522724E+00_JPRB, 0.508254E+00_JPRB &
+  &, 0.493820E+00_JPRB, 0.479464E+00_JPRB, 0.465174E+00_JPRB &
+  &, 0.450994E+00_JPRB, 0.436924E+00_JPRB, 0.422979E+00_JPRB, 0.409173E+00_JPRB &
+  &, 0.395520E+00_JPRB, 0.382031E+00_JPRB, 0.368718E+00_JPRB &
+  &, 0.355593E+00_JPRB, 0.342665E+00_JPRB, 0.329961E+00_JPRB, 0.317470E+00_JPRB &
+  &, 0.305218E+00_JPRB, 0.293210E+00_JPRB, 0.281428E+00_JPRB &
+  &, 0.269917E+00_JPRB, 0.258654E+00_JPRB, 0.247661E+00_JPRB, 0.236957E+00_JPRB &
+  &, 0.226515E+00_JPRB, 0.216351E+00_JPRB, 0.206457E+00_JPRB &
+  &, 0.196870E+00_JPRB, 0.187554E+00_JPRB, 0.178546E+00_JPRB, 0.169805E+00_JPRB &
+  &, 0.161364E+00_JPRB, 0.153203E+00_JPRB, 0.145356E+00_JPRB &
+  &, 0.137771E+00_JPRB, 0.130449E+00_JPRB, 0.123448E+00_JPRB, 0.116682E+00_JPRB &
+  &, 0.110204E+00_JPRB, 0.104014E+00_JPRB, 0.980737E-01_JPRB &
+  &, 0.923767E-01_JPRB, 0.869456E-01_JPRB, 0.817381E-01_JPRB, 0.768082E-01_JPRB &
+  &, 0.720765E-01_JPRB, 0.675957E-01_JPRB, 0.633506E-01_JPRB &
+  &, 0.592887E-01_JPRB, 0.554617E-01_JPRB, 0.518136E-01_JPRB, 0.483587E-01_JPRB &
+  &, 0.451118E-01_JPRB, 0.420491E-01_JPRB, 0.391445E-01_JPRB &
+  &, 0.364099E-01_JPRB, 0.338574E-01_JPRB, 0.314163E-01_JPRB, 0.291373E-01_JPRB &
+  &, 0.270313E-01_JPRB, 0.250222E-01_JPRB, 0.231171E-01_JPRB &
+  &, 0.213683E-01_JPRB, 0.197395E-01_JPRB, 0.182385E-01_JPRB, 0.167788E-01_JPRB &
+  &, 0.154595E-01_JPRB, 0.142402E-01_JPRB, 0.130776E-01_JPRB &
+  &, 0.120254E-01_JPRB, 0.109886E-01_JPRB, 0.100716E-01_JPRB, 0.922861E-02_JPRB &
+  &, 0.846384E-02_JPRB, 0.772789E-02_JPRB, 0.707711E-02_JPRB &
+  &, 0.646071E-02_JPRB, 0.588077E-02_JPRB, 0.533942E-02_JPRB, 0.483880E-02_JPRB &
+  &, 0.443939E-02_JPRB, 0.402765E-02_JPRB, 0.366333E-02_JPRB &
+  &, 0.328803E-02_JPRB, 0.296315E-02_JPRB, 0.269103E-02_JPRB, 0.241087E-02_JPRB &
+  &, 0.218662E-02_JPRB, 0.195585E-02_JPRB, 0.178420E-02_JPRB/)
+XCW( 522, :) = (/ &
+  &  0.100207E+01_JPRB, 0.100154E+01_JPRB, 0.100059E+01_JPRB, 0.999229E+00_JPRB &
+  &, 0.997448E+00_JPRB, 0.995249E+00_JPRB, 0.992635E+00_JPRB &
+  &, 0.989604E+00_JPRB, 0.986159E+00_JPRB, 0.982302E+00_JPRB, 0.978033E+00_JPRB &
+  &, 0.973354E+00_JPRB, 0.968267E+00_JPRB, 0.962779E+00_JPRB &
+  &, 0.956887E+00_JPRB, 0.950597E+00_JPRB, 0.943908E+00_JPRB, 0.936838E+00_JPRB &
+  &, 0.929378E+00_JPRB, 0.921535E+00_JPRB, 0.913318E+00_JPRB &
+  &, 0.904731E+00_JPRB, 0.895783E+00_JPRB, 0.886474E+00_JPRB, 0.876818E+00_JPRB &
+  &, 0.866824E+00_JPRB, 0.856494E+00_JPRB, 0.845840E+00_JPRB &
+  &, 0.834870E+00_JPRB, 0.823600E+00_JPRB, 0.812035E+00_JPRB, 0.800187E+00_JPRB &
+  &, 0.788070E+00_JPRB, 0.775692E+00_JPRB, 0.763072E+00_JPRB &
+  &, 0.750215E+00_JPRB, 0.737142E+00_JPRB, 0.723856E+00_JPRB, 0.710386E+00_JPRB &
+  &, 0.696749E+00_JPRB, 0.682941E+00_JPRB, 0.668985E+00_JPRB &
+  &, 0.654903E+00_JPRB, 0.640711E+00_JPRB, 0.626417E+00_JPRB, 0.612052E+00_JPRB &
+  &, 0.597614E+00_JPRB, 0.583126E+00_JPRB, 0.568601E+00_JPRB &
+  &, 0.554064E+00_JPRB, 0.539530E+00_JPRB, 0.525026E+00_JPRB, 0.510541E+00_JPRB &
+  &, 0.496103E+00_JPRB, 0.481728E+00_JPRB, 0.467445E+00_JPRB &
+  &, 0.453241E+00_JPRB, 0.439160E+00_JPRB, 0.425202E+00_JPRB, 0.411364E+00_JPRB &
+  &, 0.397693E+00_JPRB, 0.384183E+00_JPRB, 0.370848E+00_JPRB &
+  &, 0.357698E+00_JPRB, 0.344761E+00_JPRB, 0.332027E+00_JPRB, 0.319504E+00_JPRB &
+  &, 0.307217E+00_JPRB, 0.295171E+00_JPRB, 0.283349E+00_JPRB &
+  &, 0.271815E+00_JPRB, 0.260506E+00_JPRB, 0.249486E+00_JPRB, 0.238730E+00_JPRB &
+  &, 0.228255E+00_JPRB, 0.218033E+00_JPRB, 0.208126E+00_JPRB &
+  &, 0.198499E+00_JPRB, 0.189142E+00_JPRB, 0.180090E+00_JPRB, 0.171301E+00_JPRB &
+  &, 0.162810E+00_JPRB, 0.154624E+00_JPRB, 0.146722E+00_JPRB &
+  &, 0.139079E+00_JPRB, 0.131726E+00_JPRB, 0.124662E+00_JPRB, 0.117889E+00_JPRB &
+  &, 0.111374E+00_JPRB, 0.105113E+00_JPRB, 0.991311E-01_JPRB &
+  &, 0.933900E-01_JPRB, 0.879126E-01_JPRB, 0.826896E-01_JPRB, 0.777097E-01_JPRB &
+  &, 0.729600E-01_JPRB, 0.684254E-01_JPRB, 0.641244E-01_JPRB &
+  &, 0.600400E-01_JPRB, 0.561894E-01_JPRB, 0.525166E-01_JPRB, 0.490359E-01_JPRB &
+  &, 0.457238E-01_JPRB, 0.426324E-01_JPRB, 0.396979E-01_JPRB &
+  &, 0.369322E-01_JPRB, 0.343473E-01_JPRB, 0.318726E-01_JPRB, 0.296010E-01_JPRB &
+  &, 0.274167E-01_JPRB, 0.254137E-01_JPRB, 0.235148E-01_JPRB &
+  &, 0.217273E-01_JPRB, 0.200585E-01_JPRB, 0.185161E-01_JPRB, 0.170606E-01_JPRB &
+  &, 0.157456E-01_JPRB, 0.144822E-01_JPRB, 0.133232E-01_JPRB &
+  &, 0.122248E-01_JPRB, 0.112415E-01_JPRB, 0.102769E-01_JPRB, 0.943694E-02_JPRB &
+  &, 0.862235E-02_JPRB, 0.788868E-02_JPRB, 0.718584E-02_JPRB &
+  &, 0.657098E-02_JPRB, 0.599260E-02_JPRB, 0.545281E-02_JPRB, 0.495377E-02_JPRB &
+  &, 0.449767E-02_JPRB, 0.408673E-02_JPRB, 0.372323E-02_JPRB &
+  &, 0.334874E-02_JPRB, 0.302467E-02_JPRB, 0.275338E-02_JPRB, 0.247406E-02_JPRB &
+  &, 0.225064E-02_JPRB, 0.202071E-02_JPRB, 0.184991E-02_JPRB/)
+XCW( 523, :) = (/ &
+  &  0.100232E+01_JPRB, 0.100185E+01_JPRB, 0.100097E+01_JPRB, 0.999669E+00_JPRB &
+  &, 0.997950E+00_JPRB, 0.995814E+00_JPRB, 0.993261E+00_JPRB &
+  &, 0.990292E+00_JPRB, 0.986908E+00_JPRB, 0.983111E+00_JPRB, 0.978902E+00_JPRB &
+  &, 0.974283E+00_JPRB, 0.969256E+00_JPRB, 0.963824E+00_JPRB &
+  &, 0.957991E+00_JPRB, 0.951758E+00_JPRB, 0.945130E+00_JPRB, 0.938112E+00_JPRB &
+  &, 0.930705E+00_JPRB, 0.922918E+00_JPRB, 0.914752E+00_JPRB &
+  &, 0.906217E+00_JPRB, 0.897316E+00_JPRB, 0.888060E+00_JPRB, 0.878452E+00_JPRB &
+  &, 0.868501E+00_JPRB, 0.858211E+00_JPRB, 0.847607E+00_JPRB &
+  &, 0.836685E+00_JPRB, 0.825451E+00_JPRB, 0.813928E+00_JPRB, 0.802119E+00_JPRB &
+  &, 0.790034E+00_JPRB, 0.777687E+00_JPRB, 0.765104E+00_JPRB &
+  &, 0.752280E+00_JPRB, 0.739231E+00_JPRB, 0.725978E+00_JPRB, 0.712542E+00_JPRB &
+  &, 0.698918E+00_JPRB, 0.685133E+00_JPRB, 0.671200E+00_JPRB &
+  &, 0.657140E+00_JPRB, 0.642959E+00_JPRB, 0.628686E+00_JPRB, 0.614317E+00_JPRB &
+  &, 0.599887E+00_JPRB, 0.585405E+00_JPRB, 0.570897E+00_JPRB &
+  &, 0.556364E+00_JPRB, 0.541831E+00_JPRB, 0.527314E+00_JPRB, 0.512827E+00_JPRB &
+  &, 0.498386E+00_JPRB, 0.484006E+00_JPRB, 0.469717E+00_JPRB &
+  &, 0.455504E+00_JPRB, 0.441396E+00_JPRB, 0.427425E+00_JPRB, 0.413588E+00_JPRB &
+  &, 0.399882E+00_JPRB, 0.386353E+00_JPRB, 0.372996E+00_JPRB &
+  &, 0.359821E+00_JPRB, 0.346857E+00_JPRB, 0.334094E+00_JPRB, 0.321538E+00_JPRB &
+  &, 0.309216E+00_JPRB, 0.297132E+00_JPRB, 0.285290E+00_JPRB &
+  &, 0.273713E+00_JPRB, 0.262379E+00_JPRB, 0.251310E+00_JPRB, 0.240525E+00_JPRB &
+  &, 0.229996E+00_JPRB, 0.219763E+00_JPRB, 0.209794E+00_JPRB &
+  &, 0.200129E+00_JPRB, 0.190730E+00_JPRB, 0.181633E+00_JPRB, 0.172797E+00_JPRB &
+  &, 0.164283E+00_JPRB, 0.156045E+00_JPRB, 0.148088E+00_JPRB &
+  &, 0.140416E+00_JPRB, 0.133031E+00_JPRB, 0.125905E+00_JPRB, 0.119067E+00_JPRB &
+  &, 0.112514E+00_JPRB, 0.106213E+00_JPRB, 0.100189E+00_JPRB &
+  &, 0.944349E-01_JPRB, 0.889119E-01_JPRB, 0.836411E-01_JPRB, 0.786113E-01_JPRB &
+  &, 0.738094E-01_JPRB, 0.692551E-01_JPRB, 0.649333E-01_JPRB &
+  &, 0.607912E-01_JPRB, 0.568808E-01_JPRB, 0.531827E-01_JPRB, 0.496756E-01_JPRB &
+  &, 0.463741E-01_JPRB, 0.432157E-01_JPRB, 0.402513E-01_JPRB &
+  &, 0.374545E-01_JPRB, 0.348373E-01_JPRB, 0.323705E-01_JPRB, 0.300225E-01_JPRB &
+  &, 0.278449E-01_JPRB, 0.258052E-01_JPRB, 0.238682E-01_JPRB &
+  &, 0.220862E-01_JPRB, 0.204230E-01_JPRB, 0.188399E-01_JPRB, 0.173894E-01_JPRB &
+  &, 0.159840E-01_JPRB, 0.147242E-01_JPRB, 0.135688E-01_JPRB &
+  &, 0.124242E-01_JPRB, 0.114439E-01_JPRB, 0.104822E-01_JPRB, 0.959319E-02_JPRB &
+  &, 0.878086E-02_JPRB, 0.804947E-02_JPRB, 0.734893E-02_JPRB &
+  &, 0.668125E-02_JPRB, 0.610442E-02_JPRB, 0.556620E-02_JPRB, 0.506874E-02_JPRB &
+  &, 0.461423E-02_JPRB, 0.420490E-02_JPRB, 0.378312E-02_JPRB &
+  &, 0.347015E-02_JPRB, 0.314772E-02_JPRB, 0.281572E-02_JPRB, 0.253724E-02_JPRB &
+  &, 0.231466E-02_JPRB, 0.208558E-02_JPRB, 0.184991E-02_JPRB/)
+XCW( 524, :) = (/ &
+  &  0.100257E+01_JPRB, 0.100217E+01_JPRB, 0.100135E+01_JPRB, 0.100011E+01_JPRB &
+  &, 0.998453E+00_JPRB, 0.996379E+00_JPRB, 0.993888E+00_JPRB &
+  &, 0.990980E+00_JPRB, 0.987657E+00_JPRB, 0.983921E+00_JPRB, 0.979773E+00_JPRB &
+  &, 0.975213E+00_JPRB, 0.970246E+00_JPRB, 0.964873E+00_JPRB &
+  &, 0.959096E+00_JPRB, 0.952921E+00_JPRB, 0.946350E+00_JPRB, 0.939385E+00_JPRB &
+  &, 0.932034E+00_JPRB, 0.924298E+00_JPRB, 0.916188E+00_JPRB &
+  &, 0.907702E+00_JPRB, 0.898852E+00_JPRB, 0.889646E+00_JPRB, 0.880086E+00_JPRB &
+  &, 0.870181E+00_JPRB, 0.859944E+00_JPRB, 0.849378E+00_JPRB &
+  &, 0.838495E+00_JPRB, 0.827306E+00_JPRB, 0.815821E+00_JPRB, 0.804051E+00_JPRB &
+  &, 0.792006E+00_JPRB, 0.779700E+00_JPRB, 0.767141E+00_JPRB &
+  &, 0.754345E+00_JPRB, 0.741329E+00_JPRB, 0.728109E+00_JPRB, 0.714687E+00_JPRB &
+  &, 0.701097E+00_JPRB, 0.687325E+00_JPRB, 0.673414E+00_JPRB &
+  &, 0.659377E+00_JPRB, 0.645206E+00_JPRB, 0.630943E+00_JPRB, 0.616595E+00_JPRB &
+  &, 0.602172E+00_JPRB, 0.587709E+00_JPRB, 0.573193E+00_JPRB &
+  &, 0.558676E+00_JPRB, 0.544133E+00_JPRB, 0.529616E+00_JPRB, 0.515128E+00_JPRB &
+  &, 0.500684E+00_JPRB, 0.486299E+00_JPRB, 0.471988E+00_JPRB &
+  &, 0.457766E+00_JPRB, 0.443664E+00_JPRB, 0.429664E+00_JPRB, 0.415796E+00_JPRB &
+  &, 0.402089E+00_JPRB, 0.388541E+00_JPRB, 0.375162E+00_JPRB &
+  &, 0.361963E+00_JPRB, 0.348953E+00_JPRB, 0.336160E+00_JPRB, 0.323592E+00_JPRB &
+  &, 0.311235E+00_JPRB, 0.299113E+00_JPRB, 0.287252E+00_JPRB &
+  &, 0.275632E+00_JPRB, 0.264253E+00_JPRB, 0.253157E+00_JPRB, 0.242320E+00_JPRB &
+  &, 0.231759E+00_JPRB, 0.221468E+00_JPRB, 0.211487E+00_JPRB &
+  &, 0.201758E+00_JPRB, 0.192317E+00_JPRB, 0.183176E+00_JPRB, 0.174320E+00_JPRB &
+  &, 0.165756E+00_JPRB, 0.157466E+00_JPRB, 0.149454E+00_JPRB &
+  &, 0.141753E+00_JPRB, 0.134308E+00_JPRB, 0.127177E+00_JPRB, 0.120304E+00_JPRB &
+  &, 0.113684E+00_JPRB, 0.107343E+00_JPRB, 0.101277E+00_JPRB &
+  &, 0.954799E-01_JPRB, 0.899111E-01_JPRB, 0.845925E-01_JPRB, 0.795462E-01_JPRB &
+  &, 0.746928E-01_JPRB, 0.701194E-01_JPRB, 0.657422E-01_JPRB &
+  &, 0.615783E-01_JPRB, 0.576449E-01_JPRB, 0.538857E-01_JPRB, 0.503528E-01_JPRB &
+  &, 0.469862E-01_JPRB, 0.438379E-01_JPRB, 0.408443E-01_JPRB &
+  &, 0.380170E-01_JPRB, 0.353681E-01_JPRB, 0.328683E-01_JPRB, 0.304862E-01_JPRB &
+  &, 0.282731E-01_JPRB, 0.261967E-01_JPRB, 0.242659E-01_JPRB &
+  &, 0.224452E-01_JPRB, 0.207420E-01_JPRB, 0.191638E-01_JPRB, 0.176713E-01_JPRB &
+  &, 0.162701E-01_JPRB, 0.150146E-01_JPRB, 0.138144E-01_JPRB &
+  &, 0.126735E-01_JPRB, 0.116463E-01_JPRB, 0.106876E-01_JPRB, 0.980152E-02_JPRB &
+  &, 0.893937E-02_JPRB, 0.821026E-02_JPRB, 0.751201E-02_JPRB &
+  &, 0.684665E-02_JPRB, 0.621625E-02_JPRB, 0.567959E-02_JPRB, 0.518371E-02_JPRB &
+  &, 0.473079E-02_JPRB, 0.426398E-02_JPRB, 0.390290E-02_JPRB &
+  &, 0.353085E-02_JPRB, 0.320924E-02_JPRB, 0.287807E-02_JPRB, 0.260042E-02_JPRB &
+  &, 0.237868E-02_JPRB, 0.215044E-02_JPRB, 0.191562E-02_JPRB/)
+XCW( 525, :) = (/ &
+  &  0.100282E+01_JPRB, 0.100248E+01_JPRB, 0.100172E+01_JPRB, 0.100055E+01_JPRB &
+  &, 0.998956E+00_JPRB, 0.996944E+00_JPRB, 0.994515E+00_JPRB &
+  &, 0.991670E+00_JPRB, 0.988407E+00_JPRB, 0.984732E+00_JPRB, 0.980644E+00_JPRB &
+  &, 0.976144E+00_JPRB, 0.971236E+00_JPRB, 0.965921E+00_JPRB &
+  &, 0.960203E+00_JPRB, 0.954084E+00_JPRB, 0.947569E+00_JPRB, 0.940661E+00_JPRB &
+  &, 0.933363E+00_JPRB, 0.925684E+00_JPRB, 0.917624E+00_JPRB &
+  &, 0.909191E+00_JPRB, 0.900392E+00_JPRB, 0.891235E+00_JPRB, 0.881724E+00_JPRB &
+  &, 0.871865E+00_JPRB, 0.861672E+00_JPRB, 0.851152E+00_JPRB &
+  &, 0.840313E+00_JPRB, 0.829165E+00_JPRB, 0.817718E+00_JPRB, 0.805988E+00_JPRB &
+  &, 0.793978E+00_JPRB, 0.781704E+00_JPRB, 0.769182E+00_JPRB &
+  &, 0.756419E+00_JPRB, 0.743437E+00_JPRB, 0.730241E+00_JPRB, 0.716843E+00_JPRB &
+  &, 0.703276E+00_JPRB, 0.689538E+00_JPRB, 0.675640E+00_JPRB &
+  &, 0.661614E+00_JPRB, 0.647465E+00_JPRB, 0.633223E+00_JPRB, 0.618884E+00_JPRB &
+  &, 0.604469E+00_JPRB, 0.590012E+00_JPRB, 0.575502E+00_JPRB &
+  &, 0.560976E+00_JPRB, 0.546447E+00_JPRB, 0.531932E+00_JPRB, 0.517443E+00_JPRB &
+  &, 0.502982E+00_JPRB, 0.488592E+00_JPRB, 0.474275E+00_JPRB &
+  &, 0.460044E+00_JPRB, 0.445916E+00_JPRB, 0.431903E+00_JPRB, 0.418036E+00_JPRB &
+  &, 0.404296E+00_JPRB, 0.390728E+00_JPRB, 0.377327E+00_JPRB &
+  &, 0.364104E+00_JPRB, 0.351068E+00_JPRB, 0.338245E+00_JPRB, 0.325645E+00_JPRB &
+  &, 0.313273E+00_JPRB, 0.301115E+00_JPRB, 0.289214E+00_JPRB &
+  &, 0.277551E+00_JPRB, 0.266148E+00_JPRB, 0.255003E+00_JPRB, 0.244137E+00_JPRB &
+  &, 0.233545E+00_JPRB, 0.223221E+00_JPRB, 0.213180E+00_JPRB &
+  &, 0.203412E+00_JPRB, 0.193930E+00_JPRB, 0.184745E+00_JPRB, 0.175842E+00_JPRB &
+  &, 0.167229E+00_JPRB, 0.158887E+00_JPRB, 0.150848E+00_JPRB &
+  &, 0.143089E+00_JPRB, 0.135613E+00_JPRB, 0.128420E+00_JPRB, 0.121511E+00_JPRB &
+  &, 0.114853E+00_JPRB, 0.108473E+00_JPRB, 0.102366E+00_JPRB &
+  &, 0.965248E-01_JPRB, 0.909104E-01_JPRB, 0.855768E-01_JPRB, 0.804478E-01_JPRB &
+  &, 0.756102E-01_JPRB, 0.709490E-01_JPRB, 0.665511E-01_JPRB &
+  &, 0.623653E-01_JPRB, 0.583726E-01_JPRB, 0.545888E-01_JPRB, 0.510301E-01_JPRB &
+  &, 0.476365E-01_JPRB, 0.444213E-01_JPRB, 0.413977E-01_JPRB &
+  &, 0.385393E-01_JPRB, 0.358580E-01_JPRB, 0.333247E-01_JPRB, 0.309499E-01_JPRB &
+  &, 0.287014E-01_JPRB, 0.266317E-01_JPRB, 0.246635E-01_JPRB &
+  &, 0.228041E-01_JPRB, 0.211065E-01_JPRB, 0.194876E-01_JPRB, 0.179531E-01_JPRB &
+  &, 0.165562E-01_JPRB, 0.152566E-01_JPRB, 0.140601E-01_JPRB &
+  &, 0.129228E-01_JPRB, 0.118486E-01_JPRB, 0.108929E-01_JPRB, 0.995776E-02_JPRB &
+  &, 0.915072E-02_JPRB, 0.837105E-02_JPRB, 0.762074E-02_JPRB &
+  &, 0.695692E-02_JPRB, 0.638398E-02_JPRB, 0.579298E-02_JPRB, 0.529868E-02_JPRB &
+  &, 0.478908E-02_JPRB, 0.438215E-02_JPRB, 0.396279E-02_JPRB &
+  &, 0.359156E-02_JPRB, 0.327077E-02_JPRB, 0.294042E-02_JPRB, 0.266360E-02_JPRB &
+  &, 0.244270E-02_JPRB, 0.221530E-02_JPRB, 0.198133E-02_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART75',1,ZHOOK_HANDLE)
+END SUBROUTINE PART75
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART76
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART76',0,ZHOOK_HANDLE)
+
+XCW( 526, :) = (/ &
+  &  0.100308E+01_JPRB, 0.100280E+01_JPRB, 0.100210E+01_JPRB, 0.100099E+01_JPRB &
+  &, 0.999459E+00_JPRB, 0.997510E+00_JPRB, 0.995142E+00_JPRB &
+  &, 0.992358E+00_JPRB, 0.989158E+00_JPRB, 0.985543E+00_JPRB, 0.981515E+00_JPRB &
+  &, 0.977076E+00_JPRB, 0.972226E+00_JPRB, 0.966971E+00_JPRB &
+  &, 0.961311E+00_JPRB, 0.955249E+00_JPRB, 0.948791E+00_JPRB, 0.941938E+00_JPRB &
+  &, 0.934696E+00_JPRB, 0.927067E+00_JPRB, 0.919061E+00_JPRB &
+  &, 0.910683E+00_JPRB, 0.901935E+00_JPRB, 0.892825E+00_JPRB, 0.883361E+00_JPRB &
+  &, 0.873553E+00_JPRB, 0.863405E+00_JPRB, 0.852931E+00_JPRB &
+  &, 0.842131E+00_JPRB, 0.831029E+00_JPRB, 0.819620E+00_JPRB, 0.807928E+00_JPRB &
+  &, 0.795954E+00_JPRB, 0.783717E+00_JPRB, 0.771228E+00_JPRB &
+  &, 0.758493E+00_JPRB, 0.745544E+00_JPRB, 0.732373E+00_JPRB, 0.719008E+00_JPRB &
+  &, 0.705455E+00_JPRB, 0.691741E+00_JPRB, 0.677876E+00_JPRB &
+  &, 0.663862E+00_JPRB, 0.649736E+00_JPRB, 0.635492E+00_JPRB, 0.621174E+00_JPRB &
+  &, 0.606766E+00_JPRB, 0.592316E+00_JPRB, 0.577824E+00_JPRB &
+  &, 0.563302E+00_JPRB, 0.548776E+00_JPRB, 0.534247E+00_JPRB, 0.519758E+00_JPRB &
+  &, 0.505294E+00_JPRB, 0.490900E+00_JPRB, 0.476576E+00_JPRB &
+  &, 0.462322E+00_JPRB, 0.448183E+00_JPRB, 0.434158E+00_JPRB, 0.420277E+00_JPRB &
+  &, 0.406520E+00_JPRB, 0.392933E+00_JPRB, 0.379493E+00_JPRB &
+  &, 0.366245E+00_JPRB, 0.353201E+00_JPRB, 0.340349E+00_JPRB, 0.327718E+00_JPRB &
+  &, 0.315292E+00_JPRB, 0.303117E+00_JPRB, 0.291175E+00_JPRB &
+  &, 0.279491E+00_JPRB, 0.268042E+00_JPRB, 0.256872E+00_JPRB, 0.245955E+00_JPRB &
+  &, 0.235331E+00_JPRB, 0.224950E+00_JPRB, 0.214873E+00_JPRB &
+  &, 0.205066E+00_JPRB, 0.195542E+00_JPRB, 0.186313E+00_JPRB, 0.177389E+00_JPRB &
+  &, 0.168728E+00_JPRB, 0.160335E+00_JPRB, 0.152269E+00_JPRB &
+  &, 0.144454E+00_JPRB, 0.136947E+00_JPRB, 0.129692E+00_JPRB, 0.122748E+00_JPRB &
+  &, 0.116053E+00_JPRB, 0.109634E+00_JPRB, 0.103485E+00_JPRB &
+  &, 0.975697E-01_JPRB, 0.919419E-01_JPRB, 0.865611E-01_JPRB, 0.814161E-01_JPRB &
+  &, 0.764936E-01_JPRB, 0.718133E-01_JPRB, 0.673600E-01_JPRB &
+  &, 0.631524E-01_JPRB, 0.591367E-01_JPRB, 0.552918E-01_JPRB, 0.517073E-01_JPRB &
+  &, 0.482869E-01_JPRB, 0.450435E-01_JPRB, 0.419906E-01_JPRB &
+  &, 0.391017E-01_JPRB, 0.363888E-01_JPRB, 0.338226E-01_JPRB, 0.314135E-01_JPRB &
+  &, 0.291724E-01_JPRB, 0.270232E-01_JPRB, 0.250612E-01_JPRB &
+  &, 0.231631E-01_JPRB, 0.214254E-01_JPRB, 0.198115E-01_JPRB, 0.182819E-01_JPRB &
+  &, 0.168423E-01_JPRB, 0.155470E-01_JPRB, 0.143057E-01_JPRB &
+  &, 0.131222E-01_JPRB, 0.121016E-01_JPRB, 0.110983E-01_JPRB, 0.101661E-01_JPRB &
+  &, 0.930923E-02_JPRB, 0.853184E-02_JPRB, 0.778382E-02_JPRB &
+  &, 0.712232E-02_JPRB, 0.649581E-02_JPRB, 0.590638E-02_JPRB, 0.541365E-02_JPRB &
+  &, 0.490564E-02_JPRB, 0.450032E-02_JPRB, 0.408257E-02_JPRB &
+  &, 0.371296E-02_JPRB, 0.333229E-02_JPRB, 0.300277E-02_JPRB, 0.272678E-02_JPRB &
+  &, 0.250672E-02_JPRB, 0.221530E-02_JPRB, 0.204705E-02_JPRB/)
+XCW( 527, :) = (/ &
+  &  0.100333E+01_JPRB, 0.100311E+01_JPRB, 0.100248E+01_JPRB, 0.100143E+01_JPRB &
+  &, 0.999962E+00_JPRB, 0.998075E+00_JPRB, 0.995770E+00_JPRB &
+  &, 0.993047E+00_JPRB, 0.989909E+00_JPRB, 0.986355E+00_JPRB, 0.982388E+00_JPRB &
+  &, 0.978008E+00_JPRB, 0.973218E+00_JPRB, 0.968021E+00_JPRB &
+  &, 0.962419E+00_JPRB, 0.956416E+00_JPRB, 0.950013E+00_JPRB, 0.943217E+00_JPRB &
+  &, 0.936029E+00_JPRB, 0.928457E+00_JPRB, 0.920504E+00_JPRB &
+  &, 0.912175E+00_JPRB, 0.903478E+00_JPRB, 0.894418E+00_JPRB, 0.885003E+00_JPRB &
+  &, 0.875241E+00_JPRB, 0.865140E+00_JPRB, 0.854709E+00_JPRB &
+  &, 0.843957E+00_JPRB, 0.832892E+00_JPRB, 0.821525E+00_JPRB, 0.809869E+00_JPRB &
+  &, 0.797935E+00_JPRB, 0.785735E+00_JPRB, 0.773278E+00_JPRB &
+  &, 0.760577E+00_JPRB, 0.747652E+00_JPRB, 0.734514E+00_JPRB, 0.721174E+00_JPRB &
+  &, 0.707655E+00_JPRB, 0.693954E+00_JPRB, 0.680102E+00_JPRB &
+  &, 0.666121E+00_JPRB, 0.652006E+00_JPRB, 0.637784E+00_JPRB, 0.623463E+00_JPRB &
+  &, 0.609075E+00_JPRB, 0.594632E+00_JPRB, 0.580145E+00_JPRB &
+  &, 0.565627E+00_JPRB, 0.551091E+00_JPRB, 0.536577E+00_JPRB, 0.522072E+00_JPRB &
+  &, 0.507621E+00_JPRB, 0.493208E+00_JPRB, 0.478878E+00_JPRB &
+  &, 0.464616E+00_JPRB, 0.450467E+00_JPRB, 0.436429E+00_JPRB, 0.422517E+00_JPRB &
+  &, 0.408744E+00_JPRB, 0.395137E+00_JPRB, 0.381676E+00_JPRB &
+  &, 0.368423E+00_JPRB, 0.355334E+00_JPRB, 0.342454E+00_JPRB, 0.329790E+00_JPRB &
+  &, 0.317350E+00_JPRB, 0.305138E+00_JPRB, 0.293158E+00_JPRB &
+  &, 0.281431E+00_JPRB, 0.269959E+00_JPRB, 0.258740E+00_JPRB, 0.247795E+00_JPRB &
+  &, 0.237118E+00_JPRB, 0.226703E+00_JPRB, 0.216589E+00_JPRB &
+  &, 0.206744E+00_JPRB, 0.197180E+00_JPRB, 0.187907E+00_JPRB, 0.178911E+00_JPRB &
+  &, 0.170227E+00_JPRB, 0.161809E+00_JPRB, 0.153663E+00_JPRB &
+  &, 0.145818E+00_JPRB, 0.138280E+00_JPRB, 0.130993E+00_JPRB, 0.123985E+00_JPRB &
+  &, 0.117253E+00_JPRB, 0.110795E+00_JPRB, 0.104574E+00_JPRB &
+  &, 0.986464E-01_JPRB, 0.929734E-01_JPRB, 0.875454E-01_JPRB, 0.823510E-01_JPRB &
+  &, 0.774110E-01_JPRB, 0.726776E-01_JPRB, 0.682041E-01_JPRB &
+  &, 0.639394E-01_JPRB, 0.598644E-01_JPRB, 0.560319E-01_JPRB, 0.523846E-01_JPRB &
+  &, 0.489372E-01_JPRB, 0.456657E-01_JPRB, 0.425836E-01_JPRB &
+  &, 0.396642E-01_JPRB, 0.369196E-01_JPRB, 0.343204E-01_JPRB, 0.319194E-01_JPRB &
+  &, 0.296007E-01_JPRB, 0.274582E-01_JPRB, 0.254588E-01_JPRB &
+  &, 0.235669E-01_JPRB, 0.217900E-01_JPRB, 0.201353E-01_JPRB, 0.186107E-01_JPRB &
+  &, 0.171284E-01_JPRB, 0.157890E-01_JPRB, 0.145513E-01_JPRB &
+  &, 0.133715E-01_JPRB, 0.123040E-01_JPRB, 0.113036E-01_JPRB, 0.103744E-01_JPRB &
+  &, 0.952057E-02_JPRB, 0.869263E-02_JPRB, 0.794691E-02_JPRB &
+  &, 0.728773E-02_JPRB, 0.666354E-02_JPRB, 0.607646E-02_JPRB, 0.552863E-02_JPRB &
+  &, 0.502220E-02_JPRB, 0.455940E-02_JPRB, 0.414246E-02_JPRB &
+  &, 0.377367E-02_JPRB, 0.339381E-02_JPRB, 0.312747E-02_JPRB, 0.278996E-02_JPRB &
+  &, 0.250672E-02_JPRB, 0.228016E-02_JPRB, 0.204705E-02_JPRB/)
+XCW( 528, :) = (/ &
+  &  0.100358E+01_JPRB, 0.100343E+01_JPRB, 0.100286E+01_JPRB, 0.100187E+01_JPRB &
+  &, 0.100047E+01_JPRB, 0.998641E+00_JPRB, 0.996398E+00_JPRB &
+  &, 0.993737E+00_JPRB, 0.990660E+00_JPRB, 0.987168E+00_JPRB, 0.983261E+00_JPRB &
+  &, 0.978941E+00_JPRB, 0.974211E+00_JPRB, 0.969072E+00_JPRB &
+  &, 0.963528E+00_JPRB, 0.957582E+00_JPRB, 0.951238E+00_JPRB, 0.944496E+00_JPRB &
+  &, 0.937362E+00_JPRB, 0.929843E+00_JPRB, 0.921943E+00_JPRB &
+  &, 0.913667E+00_JPRB, 0.905022E+00_JPRB, 0.896014E+00_JPRB, 0.886647E+00_JPRB &
+  &, 0.876932E+00_JPRB, 0.866877E+00_JPRB, 0.856491E+00_JPRB &
+  &, 0.845779E+00_JPRB, 0.834759E+00_JPRB, 0.823435E+00_JPRB, 0.811818E+00_JPRB &
+  &, 0.799920E+00_JPRB, 0.787756E+00_JPRB, 0.775333E+00_JPRB &
+  &, 0.762670E+00_JPRB, 0.749769E+00_JPRB, 0.736655E+00_JPRB, 0.723349E+00_JPRB &
+  &, 0.709844E+00_JPRB, 0.696177E+00_JPRB, 0.682349E+00_JPRB &
+  &, 0.668380E+00_JPRB, 0.654276E+00_JPRB, 0.640076E+00_JPRB, 0.625776E+00_JPRB &
+  &, 0.611397E+00_JPRB, 0.596949E+00_JPRB, 0.582467E+00_JPRB &
+  &, 0.567953E+00_JPRB, 0.553433E+00_JPRB, 0.538906E+00_JPRB, 0.524415E+00_JPRB &
+  &, 0.509947E+00_JPRB, 0.495530E+00_JPRB, 0.481180E+00_JPRB &
+  &, 0.466925E+00_JPRB, 0.452750E+00_JPRB, 0.438701E+00_JPRB, 0.424775E+00_JPRB &
+  &, 0.410984E+00_JPRB, 0.397359E+00_JPRB, 0.383877E+00_JPRB &
+  &, 0.370582E+00_JPRB, 0.357486E+00_JPRB, 0.344577E+00_JPRB, 0.331883E+00_JPRB &
+  &, 0.319409E+00_JPRB, 0.307160E+00_JPRB, 0.295161E+00_JPRB &
+  &, 0.283392E+00_JPRB, 0.271875E+00_JPRB, 0.260631E+00_JPRB, 0.249635E+00_JPRB &
+  &, 0.238927E+00_JPRB, 0.228479E+00_JPRB, 0.218306E+00_JPRB &
+  &, 0.208422E+00_JPRB, 0.198817E+00_JPRB, 0.189501E+00_JPRB, 0.180485E+00_JPRB &
+  &, 0.171726E+00_JPRB, 0.163284E+00_JPRB, 0.155111E+00_JPRB &
+  &, 0.147211E+00_JPRB, 0.139614E+00_JPRB, 0.132265E+00_JPRB, 0.125221E+00_JPRB &
+  &, 0.118453E+00_JPRB, 0.111955E+00_JPRB, 0.105694E+00_JPRB &
+  &, 0.997229E-01_JPRB, 0.940049E-01_JPRB, 0.885297E-01_JPRB, 0.832860E-01_JPRB &
+  &, 0.783284E-01_JPRB, 0.735764E-01_JPRB, 0.690481E-01_JPRB &
+  &, 0.647264E-01_JPRB, 0.606285E-01_JPRB, 0.567719E-01_JPRB, 0.530618E-01_JPRB &
+  &, 0.495875E-01_JPRB, 0.462880E-01_JPRB, 0.431765E-01_JPRB &
+  &, 0.402267E-01_JPRB, 0.374504E-01_JPRB, 0.348598E-01_JPRB, 0.323830E-01_JPRB &
+  &, 0.300717E-01_JPRB, 0.278932E-01_JPRB, 0.258564E-01_JPRB &
+  &, 0.239259E-01_JPRB, 0.221545E-01_JPRB, 0.204592E-01_JPRB, 0.188925E-01_JPRB &
+  &, 0.174622E-01_JPRB, 0.160794E-01_JPRB, 0.147970E-01_JPRB &
+  &, 0.136208E-01_JPRB, 0.125063E-01_JPRB, 0.115089E-01_JPRB, 0.105828E-01_JPRB &
+  &, 0.967908E-02_JPRB, 0.885342E-02_JPRB, 0.811000E-02_JPRB &
+  &, 0.739799E-02_JPRB, 0.677537E-02_JPRB, 0.618986E-02_JPRB, 0.564360E-02_JPRB &
+  &, 0.513876E-02_JPRB, 0.467756E-02_JPRB, 0.426224E-02_JPRB &
+  &, 0.383437E-02_JPRB, 0.351686E-02_JPRB, 0.318982E-02_JPRB, 0.285314E-02_JPRB &
+  &, 0.257073E-02_JPRB, 0.234502E-02_JPRB, 0.211276E-02_JPRB/)
+XCW( 529, :) = (/ &
+  &  0.100383E+01_JPRB, 0.100375E+01_JPRB, 0.100324E+01_JPRB, 0.100231E+01_JPRB &
+  &, 0.100097E+01_JPRB, 0.999207E+00_JPRB, 0.997026E+00_JPRB &
+  &, 0.994428E+00_JPRB, 0.991413E+00_JPRB, 0.987981E+00_JPRB, 0.984134E+00_JPRB &
+  &, 0.979874E+00_JPRB, 0.975205E+00_JPRB, 0.970125E+00_JPRB &
+  &, 0.964639E+00_JPRB, 0.958751E+00_JPRB, 0.952462E+00_JPRB, 0.945777E+00_JPRB &
+  &, 0.938700E+00_JPRB, 0.931236E+00_JPRB, 0.923386E+00_JPRB &
+  &, 0.915165E+00_JPRB, 0.906568E+00_JPRB, 0.897610E+00_JPRB, 0.888292E+00_JPRB &
+  &, 0.878627E+00_JPRB, 0.868616E+00_JPRB, 0.858277E+00_JPRB &
+  &, 0.847609E+00_JPRB, 0.836630E+00_JPRB, 0.825344E+00_JPRB, 0.813767E+00_JPRB &
+  &, 0.801910E+00_JPRB, 0.789778E+00_JPRB, 0.777392E+00_JPRB &
+  &, 0.764753E+00_JPRB, 0.751896E+00_JPRB, 0.738807E+00_JPRB, 0.725525E+00_JPRB &
+  &, 0.712054E+00_JPRB, 0.698401E+00_JPRB, 0.684596E+00_JPRB &
+  &, 0.670640E+00_JPRB, 0.656558E+00_JPRB, 0.642368E+00_JPRB, 0.628078E+00_JPRB &
+  &, 0.613719E+00_JPRB, 0.599277E+00_JPRB, 0.584802E+00_JPRB &
+  &, 0.570292E+00_JPRB, 0.555774E+00_JPRB, 0.541249E+00_JPRB, 0.526744E+00_JPRB &
+  &, 0.512274E+00_JPRB, 0.497868E+00_JPRB, 0.483512E+00_JPRB &
+  &, 0.469234E+00_JPRB, 0.455050E+00_JPRB, 0.440989E+00_JPRB, 0.427048E+00_JPRB &
+  &, 0.413242E+00_JPRB, 0.399581E+00_JPRB, 0.386078E+00_JPRB &
+  &, 0.372760E+00_JPRB, 0.359637E+00_JPRB, 0.346700E+00_JPRB, 0.333975E+00_JPRB &
+  &, 0.321467E+00_JPRB, 0.309202E+00_JPRB, 0.297164E+00_JPRB &
+  &, 0.285353E+00_JPRB, 0.273813E+00_JPRB, 0.262521E+00_JPRB, 0.251497E+00_JPRB &
+  &, 0.240736E+00_JPRB, 0.230255E+00_JPRB, 0.220046E+00_JPRB &
+  &, 0.210125E+00_JPRB, 0.200479E+00_JPRB, 0.191120E+00_JPRB, 0.182059E+00_JPRB &
+  &, 0.173252E+00_JPRB, 0.164758E+00_JPRB, 0.156532E+00_JPRB &
+  &, 0.148603E+00_JPRB, 0.140948E+00_JPRB, 0.133595E+00_JPRB, 0.126488E+00_JPRB &
+  &, 0.119682E+00_JPRB, 0.113116E+00_JPRB, 0.106844E+00_JPRB &
+  &, 0.100800E+00_JPRB, 0.950364E-01_JPRB, 0.895468E-01_JPRB, 0.842543E-01_JPRB &
+  &, 0.792458E-01_JPRB, 0.744407E-01_JPRB, 0.698922E-01_JPRB &
+  &, 0.655492E-01_JPRB, 0.614290E-01_JPRB, 0.575120E-01_JPRB, 0.537767E-01_JPRB &
+  &, 0.502761E-01_JPRB, 0.469491E-01_JPRB, 0.437695E-01_JPRB &
+  &, 0.407891E-01_JPRB, 0.380220E-01_JPRB, 0.353576E-01_JPRB, 0.328889E-01_JPRB &
+  &, 0.305428E-01_JPRB, 0.283282E-01_JPRB, 0.262541E-01_JPRB &
+  &, 0.243297E-01_JPRB, 0.225190E-01_JPRB, 0.208293E-01_JPRB, 0.192213E-01_JPRB &
+  &, 0.177483E-01_JPRB, 0.163699E-01_JPRB, 0.150917E-01_JPRB &
+  &, 0.138701E-01_JPRB, 0.127593E-01_JPRB, 0.117143E-01_JPRB, 0.107390E-01_JPRB &
+  &, 0.989043E-02_JPRB, 0.906781E-02_JPRB, 0.827309E-02_JPRB &
+  &, 0.756340E-02_JPRB, 0.694310E-02_JPRB, 0.630325E-02_JPRB, 0.575857E-02_JPRB &
+  &, 0.525533E-02_JPRB, 0.479573E-02_JPRB, 0.432213E-02_JPRB &
+  &, 0.395578E-02_JPRB, 0.357839E-02_JPRB, 0.325217E-02_JPRB, 0.291632E-02_JPRB &
+  &, 0.263475E-02_JPRB, 0.240989E-02_JPRB, 0.217847E-02_JPRB/)
+XCW( 530, :) = (/ &
+  &  0.100408E+01_JPRB, 0.100406E+01_JPRB, 0.100361E+01_JPRB, 0.100276E+01_JPRB &
+  &, 0.100147E+01_JPRB, 0.999775E+00_JPRB, 0.997656E+00_JPRB &
+  &, 0.995117E+00_JPRB, 0.992164E+00_JPRB, 0.988794E+00_JPRB, 0.985009E+00_JPRB &
+  &, 0.980809E+00_JPRB, 0.976199E+00_JPRB, 0.971178E+00_JPRB &
+  &, 0.965752E+00_JPRB, 0.959920E+00_JPRB, 0.953689E+00_JPRB, 0.947060E+00_JPRB &
+  &, 0.940039E+00_JPRB, 0.932629E+00_JPRB, 0.924832E+00_JPRB &
+  &, 0.916660E+00_JPRB, 0.908118E+00_JPRB, 0.899210E+00_JPRB, 0.889940E+00_JPRB &
+  &, 0.880322E+00_JPRB, 0.870360E+00_JPRB, 0.860063E+00_JPRB &
+  &, 0.849443E+00_JPRB, 0.838502E+00_JPRB, 0.827258E+00_JPRB, 0.815720E+00_JPRB &
+  &, 0.803899E+00_JPRB, 0.791805E+00_JPRB, 0.779451E+00_JPRB &
+  &, 0.766846E+00_JPRB, 0.754013E+00_JPRB, 0.740968E+00_JPRB, 0.727710E+00_JPRB &
+  &, 0.714254E+00_JPRB, 0.700635E+00_JPRB, 0.686843E+00_JPRB &
+  &, 0.672910E+00_JPRB, 0.658851E+00_JPRB, 0.644672E+00_JPRB, 0.630391E+00_JPRB &
+  &, 0.616040E+00_JPRB, 0.601618E+00_JPRB, 0.587149E+00_JPRB &
+  &, 0.572644E+00_JPRB, 0.558116E+00_JPRB, 0.543606E+00_JPRB, 0.529101E+00_JPRB &
+  &, 0.514629E+00_JPRB, 0.500205E+00_JPRB, 0.485844E+00_JPRB &
+  &, 0.471559E+00_JPRB, 0.457365E+00_JPRB, 0.443276E+00_JPRB, 0.429322E+00_JPRB &
+  &, 0.415500E+00_JPRB, 0.401821E+00_JPRB, 0.388297E+00_JPRB &
+  &, 0.374956E+00_JPRB, 0.361807E+00_JPRB, 0.348842E+00_JPRB, 0.336086E+00_JPRB &
+  &, 0.323545E+00_JPRB, 0.311244E+00_JPRB, 0.299167E+00_JPRB &
+  &, 0.287336E+00_JPRB, 0.275751E+00_JPRB, 0.264434E+00_JPRB, 0.253359E+00_JPRB &
+  &, 0.242568E+00_JPRB, 0.232054E+00_JPRB, 0.221787E+00_JPRB &
+  &, 0.211827E+00_JPRB, 0.202141E+00_JPRB, 0.192739E+00_JPRB, 0.183632E+00_JPRB &
+  &, 0.174803E+00_JPRB, 0.166233E+00_JPRB, 0.157980E+00_JPRB &
+  &, 0.149995E+00_JPRB, 0.142310E+00_JPRB, 0.134896E+00_JPRB, 0.127754E+00_JPRB &
+  &, 0.120882E+00_JPRB, 0.114307E+00_JPRB, 0.107964E+00_JPRB &
+  &, 0.101908E+00_JPRB, 0.961001E-01_JPRB, 0.905639E-01_JPRB, 0.852560E-01_JPRB &
+  &, 0.801632E-01_JPRB, 0.753395E-01_JPRB, 0.707363E-01_JPRB &
+  &, 0.663721E-01_JPRB, 0.621931E-01_JPRB, 0.582520E-01_JPRB, 0.544916E-01_JPRB &
+  &, 0.509264E-01_JPRB, 0.475713E-01_JPRB, 0.444020E-01_JPRB &
+  &, 0.413918E-01_JPRB, 0.385527E-01_JPRB, 0.358970E-01_JPRB, 0.333525E-01_JPRB &
+  &, 0.310138E-01_JPRB, 0.287631E-01_JPRB, 0.266959E-01_JPRB &
+  &, 0.247336E-01_JPRB, 0.228835E-01_JPRB, 0.211532E-01_JPRB, 0.195501E-01_JPRB &
+  &, 0.180344E-01_JPRB, 0.166603E-01_JPRB, 0.153374E-01_JPRB &
+  &, 0.141193E-01_JPRB, 0.130123E-01_JPRB, 0.119196E-01_JPRB, 0.109473E-01_JPRB &
+  &, 0.100489E-01_JPRB, 0.922860E-02_JPRB, 0.843617E-02_JPRB &
+  &, 0.772880E-02_JPRB, 0.705493E-02_JPRB, 0.647334E-02_JPRB, 0.587354E-02_JPRB &
+  &, 0.537189E-02_JPRB, 0.485481E-02_JPRB, 0.444191E-02_JPRB &
+  &, 0.401649E-02_JPRB, 0.363991E-02_JPRB, 0.331452E-02_JPRB, 0.304268E-02_JPRB &
+  &, 0.269877E-02_JPRB, 0.247475E-02_JPRB, 0.224418E-02_JPRB/)
+XCW( 531, :) = (/ &
+  &  0.100434E+01_JPRB, 0.100438E+01_JPRB, 0.100399E+01_JPRB, 0.100320E+01_JPRB &
+  &, 0.100198E+01_JPRB, 0.100034E+01_JPRB, 0.998284E+00_JPRB &
+  &, 0.995811E+00_JPRB, 0.992918E+00_JPRB, 0.989609E+00_JPRB, 0.985883E+00_JPRB &
+  &, 0.981745E+00_JPRB, 0.977193E+00_JPRB, 0.972232E+00_JPRB &
+  &, 0.966864E+00_JPRB, 0.961090E+00_JPRB, 0.954917E+00_JPRB, 0.948343E+00_JPRB &
+  &, 0.941377E+00_JPRB, 0.934021E+00_JPRB, 0.926282E+00_JPRB &
+  &, 0.918163E+00_JPRB, 0.909671E+00_JPRB, 0.900810E+00_JPRB, 0.891592E+00_JPRB &
+  &, 0.882021E+00_JPRB, 0.872107E+00_JPRB, 0.861853E+00_JPRB &
+  &, 0.851277E+00_JPRB, 0.840381E+00_JPRB, 0.829176E+00_JPRB, 0.817678E+00_JPRB &
+  &, 0.805880E+00_JPRB, 0.793835E+00_JPRB, 0.781520E+00_JPRB &
+  &, 0.768948E+00_JPRB, 0.756149E+00_JPRB, 0.743119E+00_JPRB, 0.729896E+00_JPRB &
+  &, 0.716464E+00_JPRB, 0.702869E+00_JPRB, 0.689101E+00_JPRB &
+  &, 0.675191E+00_JPRB, 0.661144E+00_JPRB, 0.646976E+00_JPRB, 0.632716E+00_JPRB &
+  &, 0.618374E+00_JPRB, 0.603960E+00_JPRB, 0.589496E+00_JPRB &
+  &, 0.574996E+00_JPRB, 0.560485E+00_JPRB, 0.545963E+00_JPRB, 0.531458E+00_JPRB &
+  &, 0.516971E+00_JPRB, 0.502543E+00_JPRB, 0.488176E+00_JPRB &
+  &, 0.473883E+00_JPRB, 0.459680E+00_JPRB, 0.445580E+00_JPRB, 0.431596E+00_JPRB &
+  &, 0.417757E+00_JPRB, 0.404060E+00_JPRB, 0.390533E+00_JPRB &
+  &, 0.377151E+00_JPRB, 0.363978E+00_JPRB, 0.350985E+00_JPRB, 0.338217E+00_JPRB &
+  &, 0.325643E+00_JPRB, 0.313306E+00_JPRB, 0.301191E+00_JPRB &
+  &, 0.289318E+00_JPRB, 0.277710E+00_JPRB, 0.266346E+00_JPRB, 0.255244E+00_JPRB &
+  &, 0.244400E+00_JPRB, 0.233854E+00_JPRB, 0.223551E+00_JPRB &
+  &, 0.213554E+00_JPRB, 0.203828E+00_JPRB, 0.194384E+00_JPRB, 0.185206E+00_JPRB &
+  &, 0.176329E+00_JPRB, 0.167734E+00_JPRB, 0.159456E+00_JPRB &
+  &, 0.151416E+00_JPRB, 0.143672E+00_JPRB, 0.136226E+00_JPRB, 0.129050E+00_JPRB &
+  &, 0.122142E+00_JPRB, 0.115498E+00_JPRB, 0.109115E+00_JPRB &
+  &, 0.103016E+00_JPRB, 0.971638E-01_JPRB, 0.915809E-01_JPRB, 0.862243E-01_JPRB &
+  &, 0.811146E-01_JPRB, 0.762384E-01_JPRB, 0.716155E-01_JPRB &
+  &, 0.671949E-01_JPRB, 0.629935E-01_JPRB, 0.589921E-01_JPRB, 0.552065E-01_JPRB &
+  &, 0.516150E-01_JPRB, 0.482324E-01_JPRB, 0.449949E-01_JPRB &
+  &, 0.419944E-01_JPRB, 0.391243E-01_JPRB, 0.363948E-01_JPRB, 0.338584E-01_JPRB &
+  &, 0.314849E-01_JPRB, 0.291981E-01_JPRB, 0.270935E-01_JPRB &
+  &, 0.250925E-01_JPRB, 0.232480E-01_JPRB, 0.215233E-01_JPRB, 0.198789E-01_JPRB &
+  &, 0.183682E-01_JPRB, 0.169507E-01_JPRB, 0.156321E-01_JPRB &
+  &, 0.143686E-01_JPRB, 0.132146E-01_JPRB, 0.121763E-01_JPRB, 0.111557E-01_JPRB &
+  &, 0.102603E-01_JPRB, 0.938938E-02_JPRB, 0.859926E-02_JPRB &
+  &, 0.789420E-02_JPRB, 0.722267E-02_JPRB, 0.658673E-02_JPRB, 0.598851E-02_JPRB &
+  &, 0.548845E-02_JPRB, 0.497298E-02_JPRB, 0.456170E-02_JPRB &
+  &, 0.413790E-02_JPRB, 0.376296E-02_JPRB, 0.337687E-02_JPRB, 0.310586E-02_JPRB &
+  &, 0.276279E-02_JPRB, 0.253961E-02_JPRB, 0.230989E-02_JPRB/)
+XCW( 532, :) = (/ &
+  &  0.100459E+01_JPRB, 0.100469E+01_JPRB, 0.100437E+01_JPRB, 0.100364E+01_JPRB &
+  &, 0.100248E+01_JPRB, 0.100091E+01_JPRB, 0.998915E+00_JPRB &
+  &, 0.996502E+00_JPRB, 0.993672E+00_JPRB, 0.990424E+00_JPRB, 0.986760E+00_JPRB &
+  &, 0.982680E+00_JPRB, 0.978189E+00_JPRB, 0.973288E+00_JPRB &
+  &, 0.967978E+00_JPRB, 0.962263E+00_JPRB, 0.956144E+00_JPRB, 0.949629E+00_JPRB &
+  &, 0.942719E+00_JPRB, 0.935417E+00_JPRB, 0.927731E+00_JPRB &
+  &, 0.919664E+00_JPRB, 0.911225E+00_JPRB, 0.902414E+00_JPRB, 0.893244E+00_JPRB &
+  &, 0.883723E+00_JPRB, 0.873854E+00_JPRB, 0.863647E+00_JPRB &
+  &, 0.853115E+00_JPRB, 0.842260E+00_JPRB, 0.831098E+00_JPRB, 0.819639E+00_JPRB &
+  &, 0.807895E+00_JPRB, 0.795875E+00_JPRB, 0.783588E+00_JPRB &
+  &, 0.771050E+00_JPRB, 0.758285E+00_JPRB, 0.745290E+00_JPRB, 0.732081E+00_JPRB &
+  &, 0.718684E+00_JPRB, 0.705103E+00_JPRB, 0.691359E+00_JPRB &
+  &, 0.677473E+00_JPRB, 0.663437E+00_JPRB, 0.649291E+00_JPRB, 0.635029E+00_JPRB &
+  &, 0.620708E+00_JPRB, 0.606313E+00_JPRB, 0.591857E+00_JPRB &
+  &, 0.577361E+00_JPRB, 0.562840E+00_JPRB, 0.548320E+00_JPRB, 0.533816E+00_JPRB &
+  &, 0.519341E+00_JPRB, 0.504895E+00_JPRB, 0.490523E+00_JPRB &
+  &, 0.476223E+00_JPRB, 0.461995E+00_JPRB, 0.447884E+00_JPRB, 0.433903E+00_JPRB &
+  &, 0.420032E+00_JPRB, 0.406317E+00_JPRB, 0.392752E+00_JPRB &
+  &, 0.379365E+00_JPRB, 0.366166E+00_JPRB, 0.353146E+00_JPRB, 0.340348E+00_JPRB &
+  &, 0.327741E+00_JPRB, 0.315369E+00_JPRB, 0.303235E+00_JPRB &
+  &, 0.291321E+00_JPRB, 0.279670E+00_JPRB, 0.268281E+00_JPRB, 0.257129E+00_JPRB &
+  &, 0.246255E+00_JPRB, 0.235653E+00_JPRB, 0.225339E+00_JPRB &
+  &, 0.215281E+00_JPRB, 0.205515E+00_JPRB, 0.196028E+00_JPRB, 0.186805E+00_JPRB &
+  &, 0.177907E+00_JPRB, 0.169263E+00_JPRB, 0.160904E+00_JPRB &
+  &, 0.152836E+00_JPRB, 0.145062E+00_JPRB, 0.137555E+00_JPRB, 0.130345E+00_JPRB &
+  &, 0.123371E+00_JPRB, 0.116690E+00_JPRB, 0.110297E+00_JPRB &
+  &, 0.104124E+00_JPRB, 0.982598E-01_JPRB, 0.925980E-01_JPRB, 0.872260E-01_JPRB &
+  &, 0.820660E-01_JPRB, 0.771718E-01_JPRB, 0.724948E-01_JPRB &
+  &, 0.680177E-01_JPRB, 0.637940E-01_JPRB, 0.597691E-01_JPRB, 0.559590E-01_JPRB &
+  &, 0.523036E-01_JPRB, 0.488935E-01_JPRB, 0.456274E-01_JPRB &
+  &, 0.425569E-01_JPRB, 0.396551E-01_JPRB, 0.369341E-01_JPRB, 0.343642E-01_JPRB &
+  &, 0.319559E-01_JPRB, 0.296766E-01_JPRB, 0.275353E-01_JPRB &
+  &, 0.254964E-01_JPRB, 0.236125E-01_JPRB, 0.218471E-01_JPRB, 0.202077E-01_JPRB &
+  &, 0.186543E-01_JPRB, 0.172411E-01_JPRB, 0.158777E-01_JPRB &
+  &, 0.146179E-01_JPRB, 0.134676E-01_JPRB, 0.123816E-01_JPRB, 0.113640E-01_JPRB &
+  &, 0.104716E-01_JPRB, 0.960377E-02_JPRB, 0.876235E-02_JPRB &
+  &, 0.805961E-02_JPRB, 0.733449E-02_JPRB, 0.670012E-02_JPRB, 0.610348E-02_JPRB &
+  &, 0.560502E-02_JPRB, 0.509115E-02_JPRB, 0.462159E-02_JPRB &
+  &, 0.419860E-02_JPRB, 0.382448E-02_JPRB, 0.350157E-02_JPRB, 0.316905E-02_JPRB &
+  &, 0.282681E-02_JPRB, 0.260447E-02_JPRB, 0.230989E-02_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART76',1,ZHOOK_HANDLE)
+END SUBROUTINE PART76
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART77
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART77',0,ZHOOK_HANDLE)
+
+XCW( 533, :) = (/ &
+  &  0.100484E+01_JPRB, 0.100500E+01_JPRB, 0.100475E+01_JPRB, 0.100408E+01_JPRB &
+  &, 0.100299E+01_JPRB, 0.100148E+01_JPRB, 0.999545E+00_JPRB &
+  &, 0.997194E+00_JPRB, 0.994425E+00_JPRB, 0.991238E+00_JPRB, 0.987636E+00_JPRB &
+  &, 0.983617E+00_JPRB, 0.979186E+00_JPRB, 0.974345E+00_JPRB &
+  &, 0.969093E+00_JPRB, 0.963435E+00_JPRB, 0.957375E+00_JPRB, 0.950916E+00_JPRB &
+  &, 0.944060E+00_JPRB, 0.936813E+00_JPRB, 0.929181E+00_JPRB &
+  &, 0.921166E+00_JPRB, 0.912778E+00_JPRB, 0.904020E+00_JPRB, 0.894900E+00_JPRB &
+  &, 0.885426E+00_JPRB, 0.875605E+00_JPRB, 0.865444E+00_JPRB &
+  &, 0.854952E+00_JPRB, 0.844143E+00_JPRB, 0.833024E+00_JPRB, 0.821605E+00_JPRB &
+  &, 0.809897E+00_JPRB, 0.797914E+00_JPRB, 0.785666E+00_JPRB &
+  &, 0.773162E+00_JPRB, 0.760422E+00_JPRB, 0.747460E+00_JPRB, 0.734277E+00_JPRB &
+  &, 0.720904E+00_JPRB, 0.707348E+00_JPRB, 0.693627E+00_JPRB &
+  &, 0.679754E+00_JPRB, 0.665742E+00_JPRB, 0.651618E+00_JPRB, 0.637378E+00_JPRB &
+  &, 0.623054E+00_JPRB, 0.608667E+00_JPRB, 0.594217E+00_JPRB &
+  &, 0.579726E+00_JPRB, 0.565209E+00_JPRB, 0.550691E+00_JPRB, 0.536187E+00_JPRB &
+  &, 0.521711E+00_JPRB, 0.507262E+00_JPRB, 0.492870E+00_JPRB &
+  &, 0.478563E+00_JPRB, 0.464342E+00_JPRB, 0.450204E+00_JPRB, 0.436193E+00_JPRB &
+  &, 0.422324E+00_JPRB, 0.408591E+00_JPRB, 0.395006E+00_JPRB &
+  &, 0.381597E+00_JPRB, 0.368355E+00_JPRB, 0.355326E+00_JPRB, 0.342479E+00_JPRB &
+  &, 0.329859E+00_JPRB, 0.317451E+00_JPRB, 0.305279E+00_JPRB &
+  &, 0.293346E+00_JPRB, 0.281651E+00_JPRB, 0.270215E+00_JPRB, 0.259036E+00_JPRB &
+  &, 0.248133E+00_JPRB, 0.237476E+00_JPRB, 0.227104E+00_JPRB &
+  &, 0.217008E+00_JPRB, 0.207202E+00_JPRB, 0.197673E+00_JPRB, 0.188430E+00_JPRB &
+  &, 0.179459E+00_JPRB, 0.170791E+00_JPRB, 0.162380E+00_JPRB &
+  &, 0.154284E+00_JPRB, 0.146452E+00_JPRB, 0.138914E+00_JPRB, 0.131641E+00_JPRB &
+  &, 0.124631E+00_JPRB, 0.117911E+00_JPRB, 0.111447E+00_JPRB &
+  &, 0.105264E+00_JPRB, 0.993235E-01_JPRB, 0.936479E-01_JPRB, 0.882277E-01_JPRB &
+  &, 0.830173E-01_JPRB, 0.780706E-01_JPRB, 0.733740E-01_JPRB &
+  &, 0.688763E-01_JPRB, 0.645945E-01_JPRB, 0.605462E-01_JPRB, 0.566739E-01_JPRB &
+  &, 0.530304E-01_JPRB, 0.495546E-01_JPRB, 0.462599E-01_JPRB &
+  &, 0.431596E-01_JPRB, 0.402267E-01_JPRB, 0.374735E-01_JPRB, 0.348700E-01_JPRB &
+  &, 0.324270E-01_JPRB, 0.301116E-01_JPRB, 0.279772E-01_JPRB &
+  &, 0.259451E-01_JPRB, 0.240226E-01_JPRB, 0.222173E-01_JPRB, 0.205365E-01_JPRB &
+  &, 0.189881E-01_JPRB, 0.175315E-01_JPRB, 0.161725E-01_JPRB &
+  &, 0.149170E-01_JPRB, 0.137205E-01_JPRB, 0.126383E-01_JPRB, 0.116244E-01_JPRB &
+  &, 0.106301E-01_JPRB, 0.976456E-02_JPRB, 0.897980E-02_JPRB &
+  &, 0.822501E-02_JPRB, 0.750223E-02_JPRB, 0.687021E-02_JPRB, 0.627594E-02_JPRB &
+  &, 0.572158E-02_JPRB, 0.520931E-02_JPRB, 0.474137E-02_JPRB &
+  &, 0.432001E-02_JPRB, 0.394753E-02_JPRB, 0.356392E-02_JPRB, 0.323223E-02_JPRB &
+  &, 0.295484E-02_JPRB, 0.266933E-02_JPRB, 0.237560E-02_JPRB/)
+XCW( 534, :) = (/ &
+  &  0.100509E+01_JPRB, 0.100532E+01_JPRB, 0.100513E+01_JPRB, 0.100452E+01_JPRB &
+  &, 0.100349E+01_JPRB, 0.100204E+01_JPRB, 0.100017E+01_JPRB &
+  &, 0.997887E+00_JPRB, 0.995179E+00_JPRB, 0.992055E+00_JPRB, 0.988513E+00_JPRB &
+  &, 0.984555E+00_JPRB, 0.980184E+00_JPRB, 0.975401E+00_JPRB &
+  &, 0.970208E+00_JPRB, 0.964610E+00_JPRB, 0.958606E+00_JPRB, 0.952204E+00_JPRB &
+  &, 0.945405E+00_JPRB, 0.938212E+00_JPRB, 0.930633E+00_JPRB &
+  &, 0.922622E+00_JPRB, 0.914338E+00_JPRB, 0.905631E+00_JPRB, 0.896559E+00_JPRB &
+  &, 0.887131E+00_JPRB, 0.877359E+00_JPRB, 0.867245E+00_JPRB &
+  &, 0.856798E+00_JPRB, 0.846031E+00_JPRB, 0.834954E+00_JPRB, 0.823575E+00_JPRB &
+  &, 0.811904E+00_JPRB, 0.799949E+00_JPRB, 0.787743E+00_JPRB &
+  &, 0.775273E+00_JPRB, 0.762567E+00_JPRB, 0.749631E+00_JPRB, 0.736483E+00_JPRB &
+  &, 0.723135E+00_JPRB, 0.709603E+00_JPRB, 0.695907E+00_JPRB &
+  &, 0.682046E+00_JPRB, 0.668057E+00_JPRB, 0.653945E+00_JPRB, 0.639727E+00_JPRB &
+  &, 0.625412E+00_JPRB, 0.611033E+00_JPRB, 0.596590E+00_JPRB &
+  &, 0.582105E+00_JPRB, 0.567591E+00_JPRB, 0.553076E+00_JPRB, 0.538572E+00_JPRB &
+  &, 0.524081E+00_JPRB, 0.509629E+00_JPRB, 0.495232E+00_JPRB &
+  &, 0.480919E+00_JPRB, 0.466674E+00_JPRB, 0.452540E+00_JPRB, 0.438517E+00_JPRB &
+  &, 0.424616E+00_JPRB, 0.410865E+00_JPRB, 0.397261E+00_JPRB &
+  &, 0.383829E+00_JPRB, 0.370563E+00_JPRB, 0.357506E+00_JPRB, 0.344629E+00_JPRB &
+  &, 0.331976E+00_JPRB, 0.319533E+00_JPRB, 0.307324E+00_JPRB &
+  &, 0.295370E+00_JPRB, 0.283632E+00_JPRB, 0.272171E+00_JPRB, 0.260943E+00_JPRB &
+  &, 0.249987E+00_JPRB, 0.239322E+00_JPRB, 0.228892E+00_JPRB &
+  &, 0.218759E+00_JPRB, 0.208913E+00_JPRB, 0.199342E+00_JPRB, 0.190056E+00_JPRB &
+  &, 0.181037E+00_JPRB, 0.172319E+00_JPRB, 0.163882E+00_JPRB &
+  &, 0.155732E+00_JPRB, 0.147843E+00_JPRB, 0.140273E+00_JPRB, 0.132937E+00_JPRB &
+  &, 0.125921E+00_JPRB, 0.119133E+00_JPRB, 0.112629E+00_JPRB &
+  &, 0.106404E+00_JPRB, 0.100419E+00_JPRB, 0.946978E-01_JPRB, 0.892295E-01_JPRB &
+  &, 0.840027E-01_JPRB, 0.790040E-01_JPRB, 0.742533E-01_JPRB &
+  &, 0.697349E-01_JPRB, 0.653950E-01_JPRB, 0.613232E-01_JPRB, 0.574264E-01_JPRB &
+  &, 0.537190E-01_JPRB, 0.502158E-01_JPRB, 0.469319E-01_JPRB &
+  &, 0.438024E-01_JPRB, 0.408392E-01_JPRB, 0.380128E-01_JPRB, 0.354180E-01_JPRB &
+  &, 0.329408E-01_JPRB, 0.305901E-01_JPRB, 0.283748E-01_JPRB &
+  &, 0.263489E-01_JPRB, 0.243871E-01_JPRB, 0.225874E-01_JPRB, 0.209123E-01_JPRB &
+  &, 0.193219E-01_JPRB, 0.178219E-01_JPRB, 0.164673E-01_JPRB &
+  &, 0.151663E-01_JPRB, 0.139735E-01_JPRB, 0.128436E-01_JPRB, 0.118327E-01_JPRB &
+  &, 0.108415E-01_JPRB, 0.997895E-02_JPRB, 0.914288E-02_JPRB &
+  &, 0.839041E-02_JPRB, 0.766996E-02_JPRB, 0.698360E-02_JPRB, 0.639091E-02_JPRB &
+  &, 0.583814E-02_JPRB, 0.532748E-02_JPRB, 0.486115E-02_JPRB &
+  &, 0.438071E-02_JPRB, 0.400905E-02_JPRB, 0.362627E-02_JPRB, 0.329541E-02_JPRB &
+  &, 0.301886E-02_JPRB, 0.273419E-02_JPRB, 0.244131E-02_JPRB/)
+XCW( 535, :) = (/ &
+  &  0.100535E+01_JPRB, 0.100564E+01_JPRB, 0.100551E+01_JPRB, 0.100496E+01_JPRB &
+  &, 0.100400E+01_JPRB, 0.100261E+01_JPRB, 0.100081E+01_JPRB &
+  &, 0.998581E+00_JPRB, 0.995935E+00_JPRB, 0.992871E+00_JPRB, 0.989391E+00_JPRB &
+  &, 0.985494E+00_JPRB, 0.981183E+00_JPRB, 0.976460E+00_JPRB &
+  &, 0.971327E+00_JPRB, 0.965786E+00_JPRB, 0.959840E+00_JPRB, 0.953493E+00_JPRB &
+  &, 0.946751E+00_JPRB, 0.939614E+00_JPRB, 0.932089E+00_JPRB &
+  &, 0.924180E+00_JPRB, 0.915895E+00_JPRB, 0.907241E+00_JPRB, 0.898207E+00_JPRB &
+  &, 0.888841E+00_JPRB, 0.879114E+00_JPRB, 0.869046E+00_JPRB &
+  &, 0.858644E+00_JPRB, 0.847922E+00_JPRB, 0.836885E+00_JPRB, 0.825545E+00_JPRB &
+  &, 0.813915E+00_JPRB, 0.802002E+00_JPRB, 0.789825E+00_JPRB &
+  &, 0.777384E+00_JPRB, 0.764713E+00_JPRB, 0.751811E+00_JPRB, 0.738688E+00_JPRB &
+  &, 0.725365E+00_JPRB, 0.711858E+00_JPRB, 0.698186E+00_JPRB &
+  &, 0.684350E+00_JPRB, 0.670373E+00_JPRB, 0.656283E+00_JPRB, 0.642076E+00_JPRB &
+  &, 0.627770E+00_JPRB, 0.613400E+00_JPRB, 0.598963E+00_JPRB &
+  &, 0.584483E+00_JPRB, 0.569987E+00_JPRB, 0.555460E+00_JPRB, 0.540957E+00_JPRB &
+  &, 0.526465E+00_JPRB, 0.512011E+00_JPRB, 0.497609E+00_JPRB &
+  &, 0.483275E+00_JPRB, 0.469036E+00_JPRB, 0.454877E+00_JPRB, 0.440840E+00_JPRB &
+  &, 0.426924E+00_JPRB, 0.413140E+00_JPRB, 0.399533E+00_JPRB &
+  &, 0.386061E+00_JPRB, 0.372788E+00_JPRB, 0.359686E+00_JPRB, 0.346799E+00_JPRB &
+  &, 0.334114E+00_JPRB, 0.321636E+00_JPRB, 0.309409E+00_JPRB &
+  &, 0.297395E+00_JPRB, 0.285634E+00_JPRB, 0.274128E+00_JPRB, 0.262873E+00_JPRB &
+  &, 0.251888E+00_JPRB, 0.241168E+00_JPRB, 0.230704E+00_JPRB &
+  &, 0.220535E+00_JPRB, 0.210625E+00_JPRB, 0.201012E+00_JPRB, 0.191681E+00_JPRB &
+  &, 0.182641E+00_JPRB, 0.173874E+00_JPRB, 0.165385E+00_JPRB &
+  &, 0.157180E+00_JPRB, 0.149261E+00_JPRB, 0.141631E+00_JPRB, 0.134262E+00_JPRB &
+  &, 0.127181E+00_JPRB, 0.120385E+00_JPRB, 0.113842E+00_JPRB &
+  &, 0.107544E+00_JPRB, 0.101548E+00_JPRB, 0.957805E-01_JPRB, 0.902646E-01_JPRB &
+  &, 0.849880E-01_JPRB, 0.799720E-01_JPRB, 0.751677E-01_JPRB &
+  &, 0.705935E-01_JPRB, 0.662319E-01_JPRB, 0.621003E-01_JPRB, 0.581789E-01_JPRB &
+  &, 0.544458E-01_JPRB, 0.509158E-01_JPRB, 0.475643E-01_JPRB &
+  &, 0.444050E-01_JPRB, 0.414108E-01_JPRB, 0.385937E-01_JPRB, 0.359238E-01_JPRB &
+  &, 0.334119E-01_JPRB, 0.310686E-01_JPRB, 0.288608E-01_JPRB &
+  &, 0.267527E-01_JPRB, 0.247972E-01_JPRB, 0.229575E-01_JPRB, 0.212411E-01_JPRB &
+  &, 0.196557E-01_JPRB, 0.181607E-01_JPRB, 0.167620E-01_JPRB &
+  &, 0.154655E-01_JPRB, 0.142265E-01_JPRB, 0.131003E-01_JPRB, 0.120411E-01_JPRB &
+  &, 0.110528E-01_JPRB, 0.101397E-01_JPRB, 0.930597E-02_JPRB &
+  &, 0.855581E-02_JPRB, 0.783770E-02_JPRB, 0.715369E-02_JPRB, 0.650588E-02_JPRB &
+  &, 0.595470E-02_JPRB, 0.544565E-02_JPRB, 0.498093E-02_JPRB &
+  &, 0.450212E-02_JPRB, 0.413210E-02_JPRB, 0.375097E-02_JPRB, 0.335859E-02_JPRB &
+  &, 0.308288E-02_JPRB, 0.279906E-02_JPRB, 0.250702E-02_JPRB/)
+XCW( 536, :) = (/ &
+  &  0.100560E+01_JPRB, 0.100596E+01_JPRB, 0.100589E+01_JPRB, 0.100541E+01_JPRB &
+  &, 0.100450E+01_JPRB, 0.100318E+01_JPRB, 0.100144E+01_JPRB &
+  &, 0.999273E+00_JPRB, 0.996691E+00_JPRB, 0.993689E+00_JPRB, 0.990270E+00_JPRB &
+  &, 0.986433E+00_JPRB, 0.982183E+00_JPRB, 0.977518E+00_JPRB &
+  &, 0.972445E+00_JPRB, 0.966962E+00_JPRB, 0.961074E+00_JPRB, 0.954784E+00_JPRB &
+  &, 0.948097E+00_JPRB, 0.941017E+00_JPRB, 0.933545E+00_JPRB &
+  &, 0.925692E+00_JPRB, 0.917458E+00_JPRB, 0.908851E+00_JPRB, 0.899884E+00_JPRB &
+  &, 0.890554E+00_JPRB, 0.880872E+00_JPRB, 0.870851E+00_JPRB &
+  &, 0.860489E+00_JPRB, 0.849813E+00_JPRB, 0.838819E+00_JPRB, 0.827519E+00_JPRB &
+  &, 0.815930E+00_JPRB, 0.804055E+00_JPRB, 0.791912E+00_JPRB &
+  &, 0.779496E+00_JPRB, 0.766868E+00_JPRB, 0.753992E+00_JPRB, 0.740904E+00_JPRB &
+  &, 0.727606E+00_JPRB, 0.714124E+00_JPRB, 0.700466E+00_JPRB &
+  &, 0.686653E+00_JPRB, 0.672700E+00_JPRB, 0.658622E+00_JPRB, 0.644425E+00_JPRB &
+  &, 0.630141E+00_JPRB, 0.615779E+00_JPRB, 0.601348E+00_JPRB &
+  &, 0.586874E+00_JPRB, 0.572382E+00_JPRB, 0.557858E+00_JPRB, 0.543357E+00_JPRB &
+  &, 0.528864E+00_JPRB, 0.514393E+00_JPRB, 0.499987E+00_JPRB &
+  &, 0.485646E+00_JPRB, 0.471383E+00_JPRB, 0.457229E+00_JPRB, 0.443164E+00_JPRB &
+  &, 0.429233E+00_JPRB, 0.415448E+00_JPRB, 0.401805E+00_JPRB &
+  &, 0.388311E+00_JPRB, 0.375014E+00_JPRB, 0.361885E+00_JPRB, 0.348968E+00_JPRB &
+  &, 0.336251E+00_JPRB, 0.323759E+00_JPRB, 0.311474E+00_JPRB &
+  &, 0.299440E+00_JPRB, 0.287637E+00_JPRB, 0.276106E+00_JPRB, 0.264803E+00_JPRB &
+  &, 0.253789E+00_JPRB, 0.243014E+00_JPRB, 0.232516E+00_JPRB &
+  &, 0.222310E+00_JPRB, 0.212362E+00_JPRB, 0.202707E+00_JPRB, 0.193332E+00_JPRB &
+  &, 0.184245E+00_JPRB, 0.175429E+00_JPRB, 0.166888E+00_JPRB &
+  &, 0.158656E+00_JPRB, 0.150680E+00_JPRB, 0.143019E+00_JPRB, 0.135617E+00_JPRB &
+  &, 0.128470E+00_JPRB, 0.121638E+00_JPRB, 0.115024E+00_JPRB &
+  &, 0.108716E+00_JPRB, 0.102644E+00_JPRB, 0.968633E-01_JPRB, 0.912997E-01_JPRB &
+  &, 0.859734E-01_JPRB, 0.809054E-01_JPRB, 0.760821E-01_JPRB &
+  &, 0.714521E-01_JPRB, 0.670687E-01_JPRB, 0.629143E-01_JPRB, 0.589314E-01_JPRB &
+  &, 0.551726E-01_JPRB, 0.516158E-01_JPRB, 0.482363E-01_JPRB &
+  &, 0.450077E-01_JPRB, 0.420232E-01_JPRB, 0.391330E-01_JPRB, 0.364718E-01_JPRB &
+  &, 0.339258E-01_JPRB, 0.315471E-01_JPRB, 0.293026E-01_JPRB &
+  &, 0.272014E-01_JPRB, 0.252073E-01_JPRB, 0.233276E-01_JPRB, 0.216169E-01_JPRB &
+  &, 0.199895E-01_JPRB, 0.184511E-01_JPRB, 0.170568E-01_JPRB &
+  &, 0.157147E-01_JPRB, 0.144794E-01_JPRB, 0.133570E-01_JPRB, 0.122494E-01_JPRB &
+  &, 0.112642E-01_JPRB, 0.103541E-01_JPRB, 0.952342E-02_JPRB &
+  &, 0.872122E-02_JPRB, 0.794952E-02_JPRB, 0.726708E-02_JPRB, 0.667834E-02_JPRB &
+  &, 0.607127E-02_JPRB, 0.556381E-02_JPRB, 0.504082E-02_JPRB &
+  &, 0.462353E-02_JPRB, 0.419363E-02_JPRB, 0.381332E-02_JPRB, 0.348495E-02_JPRB &
+  &, 0.314690E-02_JPRB, 0.286392E-02_JPRB, 0.257273E-02_JPRB/)
+XCW( 537, :) = (/ &
+  &  0.100585E+01_JPRB, 0.100627E+01_JPRB, 0.100627E+01_JPRB, 0.100585E+01_JPRB &
+  &, 0.100501E+01_JPRB, 0.100375E+01_JPRB, 0.100207E+01_JPRB &
+  &, 0.999968E+00_JPRB, 0.997444E+00_JPRB, 0.994507E+00_JPRB, 0.991146E+00_JPRB &
+  &, 0.987373E+00_JPRB, 0.983182E+00_JPRB, 0.978578E+00_JPRB &
+  &, 0.973564E+00_JPRB, 0.968140E+00_JPRB, 0.962309E+00_JPRB, 0.956077E+00_JPRB &
+  &, 0.949446E+00_JPRB, 0.942419E+00_JPRB, 0.935004E+00_JPRB &
+  &, 0.927204E+00_JPRB, 0.919022E+00_JPRB, 0.910469E+00_JPRB, 0.901546E+00_JPRB &
+  &, 0.892267E+00_JPRB, 0.882634E+00_JPRB, 0.872660E+00_JPRB &
+  &, 0.862346E+00_JPRB, 0.851712E+00_JPRB, 0.840757E+00_JPRB, 0.829498E+00_JPRB &
+  &, 0.817946E+00_JPRB, 0.806112E+00_JPRB, 0.794003E+00_JPRB &
+  &, 0.781635E+00_JPRB, 0.769024E+00_JPRB, 0.756182E+00_JPRB, 0.743119E+00_JPRB &
+  &, 0.729847E+00_JPRB, 0.716389E+00_JPRB, 0.702756E+00_JPRB &
+  &, 0.688968E+00_JPRB, 0.675027E+00_JPRB, 0.660961E+00_JPRB, 0.646786E+00_JPRB &
+  &, 0.632511E+00_JPRB, 0.618157E+00_JPRB, 0.603747E+00_JPRB &
+  &, 0.589279E+00_JPRB, 0.574778E+00_JPRB, 0.560271E+00_JPRB, 0.545756E+00_JPRB &
+  &, 0.531263E+00_JPRB, 0.516804E+00_JPRB, 0.502379E+00_JPRB &
+  &, 0.488032E+00_JPRB, 0.473762E+00_JPRB, 0.459582E+00_JPRB, 0.445504E+00_JPRB &
+  &, 0.431558E+00_JPRB, 0.417757E+00_JPRB, 0.404077E+00_JPRB &
+  &, 0.390580E+00_JPRB, 0.377240E+00_JPRB, 0.364103E+00_JPRB, 0.351157E+00_JPRB &
+  &, 0.338409E+00_JPRB, 0.325882E+00_JPRB, 0.313560E+00_JPRB &
+  &, 0.301507E+00_JPRB, 0.289661E+00_JPRB, 0.278085E+00_JPRB, 0.266755E+00_JPRB &
+  &, 0.255690E+00_JPRB, 0.244883E+00_JPRB, 0.234352E+00_JPRB &
+  &, 0.224086E+00_JPRB, 0.214098E+00_JPRB, 0.204402E+00_JPRB, 0.194983E+00_JPRB &
+  &, 0.185850E+00_JPRB, 0.176984E+00_JPRB, 0.168419E+00_JPRB &
+  &, 0.160132E+00_JPRB, 0.152127E+00_JPRB, 0.144407E+00_JPRB, 0.136971E+00_JPRB &
+  &, 0.129790E+00_JPRB, 0.122890E+00_JPRB, 0.116268E+00_JPRB &
+  &, 0.109887E+00_JPRB, 0.103772E+00_JPRB, 0.979460E-01_JPRB, 0.923348E-01_JPRB &
+  &, 0.869927E-01_JPRB, 0.818734E-01_JPRB, 0.769965E-01_JPRB &
+  &, 0.723464E-01_JPRB, 0.679056E-01_JPRB, 0.636914E-01_JPRB, 0.596839E-01_JPRB &
+  &, 0.558995E-01_JPRB, 0.523158E-01_JPRB, 0.488688E-01_JPRB &
+  &, 0.456505E-01_JPRB, 0.425948E-01_JPRB, 0.397138E-01_JPRB, 0.370198E-01_JPRB &
+  &, 0.344396E-01_JPRB, 0.320256E-01_JPRB, 0.297444E-01_JPRB &
+  &, 0.276053E-01_JPRB, 0.256174E-01_JPRB, 0.237440E-01_JPRB, 0.219926E-01_JPRB &
+  &, 0.203233E-01_JPRB, 0.187900E-01_JPRB, 0.173515E-01_JPRB &
+  &, 0.160139E-01_JPRB, 0.147324E-01_JPRB, 0.135623E-01_JPRB, 0.125098E-01_JPRB &
+  &, 0.114755E-01_JPRB, 0.105685E-01_JPRB, 0.968651E-02_JPRB &
+  &, 0.888662E-02_JPRB, 0.811726E-02_JPRB, 0.743717E-02_JPRB, 0.679331E-02_JPRB &
+  &, 0.618783E-02_JPRB, 0.568198E-02_JPRB, 0.516060E-02_JPRB &
+  &, 0.468423E-02_JPRB, 0.431667E-02_JPRB, 0.387566E-02_JPRB, 0.354813E-02_JPRB &
+  &, 0.321092E-02_JPRB, 0.292878E-02_JPRB, 0.263845E-02_JPRB/)
+XCW( 538, :) = (/ &
+  &  0.100611E+01_JPRB, 0.100659E+01_JPRB, 0.100665E+01_JPRB, 0.100629E+01_JPRB &
+  &, 0.100552E+01_JPRB, 0.100432E+01_JPRB, 0.100270E+01_JPRB &
+  &, 0.100066E+01_JPRB, 0.998203E+00_JPRB, 0.995325E+00_JPRB, 0.992029E+00_JPRB &
+  &, 0.988314E+00_JPRB, 0.984185E+00_JPRB, 0.979639E+00_JPRB &
+  &, 0.974684E+00_JPRB, 0.969319E+00_JPRB, 0.963547E+00_JPRB, 0.957371E+00_JPRB &
+  &, 0.950796E+00_JPRB, 0.943824E+00_JPRB, 0.936463E+00_JPRB &
+  &, 0.928716E+00_JPRB, 0.920589E+00_JPRB, 0.912086E+00_JPRB, 0.903216E+00_JPRB &
+  &, 0.893984E+00_JPRB, 0.884400E+00_JPRB, 0.874469E+00_JPRB &
+  &, 0.864204E+00_JPRB, 0.853612E+00_JPRB, 0.842700E+00_JPRB, 0.831418E+00_JPRB &
+  &, 0.819969E+00_JPRB, 0.808169E+00_JPRB, 0.796098E+00_JPRB &
+  &, 0.783765E+00_JPRB, 0.771188E+00_JPRB, 0.758373E+00_JPRB, 0.745335E+00_JPRB &
+  &, 0.732098E+00_JPRB, 0.718666E+00_JPRB, 0.705057E+00_JPRB &
+  &, 0.691282E+00_JPRB, 0.677366E+00_JPRB, 0.663323E+00_JPRB, 0.649159E+00_JPRB &
+  &, 0.634894E+00_JPRB, 0.620549E+00_JPRB, 0.606146E+00_JPRB &
+  &, 0.591684E+00_JPRB, 0.577187E+00_JPRB, 0.562683E+00_JPRB, 0.548170E+00_JPRB &
+  &, 0.533662E+00_JPRB, 0.519201E+00_JPRB, 0.504787E+00_JPRB &
+  &, 0.490419E+00_JPRB, 0.476141E+00_JPRB, 0.461950E+00_JPRB, 0.447861E+00_JPRB &
+  &, 0.433901E+00_JPRB, 0.420066E+00_JPRB, 0.406384E+00_JPRB &
+  &, 0.392848E+00_JPRB, 0.379503E+00_JPRB, 0.366321E+00_JPRB, 0.353346E+00_JPRB &
+  &, 0.340566E+00_JPRB, 0.328005E+00_JPRB, 0.315666E+00_JPRB &
+  &, 0.303573E+00_JPRB, 0.291706E+00_JPRB, 0.280085E+00_JPRB, 0.268707E+00_JPRB &
+  &, 0.257613E+00_JPRB, 0.246753E+00_JPRB, 0.236187E+00_JPRB &
+  &, 0.225885E+00_JPRB, 0.215860E+00_JPRB, 0.206122E+00_JPRB, 0.196660E+00_JPRB &
+  &, 0.187480E+00_JPRB, 0.178566E+00_JPRB, 0.169949E+00_JPRB &
+  &, 0.161636E+00_JPRB, 0.153574E+00_JPRB, 0.145794E+00_JPRB, 0.138326E+00_JPRB &
+  &, 0.131110E+00_JPRB, 0.124142E+00_JPRB, 0.117481E+00_JPRB &
+  &, 0.111059E+00_JPRB, 0.104932E+00_JPRB, 0.990287E-01_JPRB, 0.934033E-01_JPRB &
+  &, 0.879781E-01_JPRB, 0.828414E-01_JPRB, 0.779109E-01_JPRB &
+  &, 0.732408E-01_JPRB, 0.687789E-01_JPRB, 0.645054E-01_JPRB, 0.604741E-01_JPRB &
+  &, 0.566263E-01_JPRB, 0.530158E-01_JPRB, 0.495804E-01_JPRB &
+  &, 0.462933E-01_JPRB, 0.432073E-01_JPRB, 0.402947E-01_JPRB, 0.375678E-01_JPRB &
+  &, 0.349535E-01_JPRB, 0.325041E-01_JPRB, 0.302304E-01_JPRB &
+  &, 0.280540E-01_JPRB, 0.260275E-01_JPRB, 0.241141E-01_JPRB, 0.223214E-01_JPRB &
+  &, 0.206570E-01_JPRB, 0.191288E-01_JPRB, 0.176463E-01_JPRB &
+  &, 0.162632E-01_JPRB, 0.150359E-01_JPRB, 0.138190E-01_JPRB, 0.127181E-01_JPRB &
+  &, 0.116869E-01_JPRB, 0.107829E-01_JPRB, 0.984960E-02_JPRB &
+  &, 0.905202E-02_JPRB, 0.828500E-02_JPRB, 0.760725E-02_JPRB, 0.696577E-02_JPRB &
+  &, 0.636267E-02_JPRB, 0.580014E-02_JPRB, 0.528039E-02_JPRB &
+  &, 0.480564E-02_JPRB, 0.437820E-02_JPRB, 0.400036E-02_JPRB, 0.361131E-02_JPRB &
+  &, 0.327494E-02_JPRB, 0.299364E-02_JPRB, 0.270416E-02_JPRB/)
+XCW( 539, :) = (/ &
+  &  0.100636E+01_JPRB, 0.100691E+01_JPRB, 0.100703E+01_JPRB, 0.100674E+01_JPRB &
+  &, 0.100602E+01_JPRB, 0.100489E+01_JPRB, 0.100333E+01_JPRB &
+  &, 0.100136E+01_JPRB, 0.998961E+00_JPRB, 0.996143E+00_JPRB, 0.992910E+00_JPRB &
+  &, 0.989256E+00_JPRB, 0.985186E+00_JPRB, 0.980702E+00_JPRB &
+  &, 0.975803E+00_JPRB, 0.970499E+00_JPRB, 0.964784E+00_JPRB, 0.958667E+00_JPRB &
+  &, 0.952148E+00_JPRB, 0.945233E+00_JPRB, 0.937926E+00_JPRB &
+  &, 0.930231E+00_JPRB, 0.922155E+00_JPRB, 0.913707E+00_JPRB, 0.904886E+00_JPRB &
+  &, 0.895705E+00_JPRB, 0.886166E+00_JPRB, 0.876286E+00_JPRB &
+  &, 0.866065E+00_JPRB, 0.855515E+00_JPRB, 0.844646E+00_JPRB, 0.833467E+00_JPRB &
+  &, 0.821993E+00_JPRB, 0.810236E+00_JPRB, 0.798198E+00_JPRB &
+  &, 0.785895E+00_JPRB, 0.773353E+00_JPRB, 0.760573E+00_JPRB, 0.747561E+00_JPRB &
+  &, 0.734349E+00_JPRB, 0.720942E+00_JPRB, 0.707358E+00_JPRB &
+  &, 0.693608E+00_JPRB, 0.679704E+00_JPRB, 0.665673E+00_JPRB, 0.651532E+00_JPRB &
+  &, 0.637289E+00_JPRB, 0.622952E+00_JPRB, 0.608544E+00_JPRB &
+  &, 0.594101E+00_JPRB, 0.579610E+00_JPRB, 0.565095E+00_JPRB, 0.550583E+00_JPRB &
+  &, 0.536089E+00_JPRB, 0.521612E+00_JPRB, 0.507195E+00_JPRB &
+  &, 0.492821E+00_JPRB, 0.478535E+00_JPRB, 0.464319E+00_JPRB, 0.450218E+00_JPRB &
+  &, 0.436244E+00_JPRB, 0.422392E+00_JPRB, 0.408692E+00_JPRB &
+  &, 0.395135E+00_JPRB, 0.381748E+00_JPRB, 0.368558E+00_JPRB, 0.355554E+00_JPRB &
+  &, 0.342743E+00_JPRB, 0.330148E+00_JPRB, 0.317793E+00_JPRB &
+  &, 0.305640E+00_JPRB, 0.293752E+00_JPRB, 0.282085E+00_JPRB, 0.270682E+00_JPRB &
+  &, 0.259537E+00_JPRB, 0.248645E+00_JPRB, 0.238047E+00_JPRB &
+  &, 0.227709E+00_JPRB, 0.217621E+00_JPRB, 0.207843E+00_JPRB, 0.198336E+00_JPRB &
+  &, 0.189111E+00_JPRB, 0.180174E+00_JPRB, 0.171506E+00_JPRB &
+  &, 0.163139E+00_JPRB, 0.155050E+00_JPRB, 0.147211E+00_JPRB, 0.139680E+00_JPRB &
+  &, 0.132429E+00_JPRB, 0.125425E+00_JPRB, 0.118725E+00_JPRB &
+  &, 0.112262E+00_JPRB, 0.106060E+00_JPRB, 0.100144E+00_JPRB, 0.944384E-01_JPRB &
+  &, 0.889974E-01_JPRB, 0.838093E-01_JPRB, 0.788605E-01_JPRB &
+  &, 0.741352E-01_JPRB, 0.696157E-01_JPRB, 0.653565E-01_JPRB, 0.612642E-01_JPRB &
+  &, 0.573914E-01_JPRB, 0.537158E-01_JPRB, 0.502524E-01_JPRB &
+  &, 0.469362E-01_JPRB, 0.438197E-01_JPRB, 0.408755E-01_JPRB, 0.381158E-01_JPRB &
+  &, 0.354674E-01_JPRB, 0.330261E-01_JPRB, 0.306723E-01_JPRB &
+  &, 0.285027E-01_JPRB, 0.264376E-01_JPRB, 0.245305E-01_JPRB, 0.226972E-01_JPRB &
+  &, 0.210385E-01_JPRB, 0.194192E-01_JPRB, 0.179410E-01_JPRB &
+  &, 0.165623E-01_JPRB, 0.152889E-01_JPRB, 0.140757E-01_JPRB, 0.129786E-01_JPRB &
+  &, 0.119511E-01_JPRB, 0.109437E-01_JPRB, 0.100670E-01_JPRB &
+  &, 0.921743E-02_JPRB, 0.845273E-02_JPRB, 0.777734E-02_JPRB, 0.708074E-02_JPRB &
+  &, 0.647924E-02_JPRB, 0.591831E-02_JPRB, 0.540017E-02_JPRB &
+  &, 0.492705E-02_JPRB, 0.450124E-02_JPRB, 0.406271E-02_JPRB, 0.373767E-02_JPRB &
+  &, 0.333895E-02_JPRB, 0.305850E-02_JPRB, 0.276987E-02_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART77',1,ZHOOK_HANDLE)
+END SUBROUTINE PART77
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART78
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART78',0,ZHOOK_HANDLE)
+
+XCW( 540, :) = (/ &
+  &  0.100661E+01_JPRB, 0.100722E+01_JPRB, 0.100741E+01_JPRB, 0.100718E+01_JPRB &
+  &, 0.100653E+01_JPRB, 0.100546E+01_JPRB, 0.100397E+01_JPRB &
+  &, 0.100205E+01_JPRB, 0.999720E+00_JPRB, 0.996964E+00_JPRB, 0.993792E+00_JPRB &
+  &, 0.990198E+00_JPRB, 0.986190E+00_JPRB, 0.981766E+00_JPRB &
+  &, 0.976929E+00_JPRB, 0.971680E+00_JPRB, 0.966024E+00_JPRB, 0.959964E+00_JPRB &
+  &, 0.953502E+00_JPRB, 0.946641E+00_JPRB, 0.939388E+00_JPRB &
+  &, 0.931750E+00_JPRB, 0.923726E+00_JPRB, 0.915327E+00_JPRB, 0.906559E+00_JPRB &
+  &, 0.897425E+00_JPRB, 0.887936E+00_JPRB, 0.878102E+00_JPRB &
+  &, 0.867926E+00_JPRB, 0.857422E+00_JPRB, 0.846597E+00_JPRB, 0.835459E+00_JPRB &
+  &, 0.824026E+00_JPRB, 0.812302E+00_JPRB, 0.800303E+00_JPRB &
+  &, 0.788034E+00_JPRB, 0.775528E+00_JPRB, 0.762773E+00_JPRB, 0.749796E+00_JPRB &
+  &, 0.736610E+00_JPRB, 0.723229E+00_JPRB, 0.709659E+00_JPRB &
+  &, 0.695934E+00_JPRB, 0.682054E+00_JPRB, 0.668046E+00_JPRB, 0.653917E+00_JPRB &
+  &, 0.639672E+00_JPRB, 0.625356E+00_JPRB, 0.610969E+00_JPRB &
+  &, 0.596519E+00_JPRB, 0.582032E+00_JPRB, 0.567521E+00_JPRB, 0.553011E+00_JPRB &
+  &, 0.538517E+00_JPRB, 0.524038E+00_JPRB, 0.509602E+00_JPRB &
+  &, 0.495223E+00_JPRB, 0.480930E+00_JPRB, 0.466704E+00_JPRB, 0.452591E+00_JPRB &
+  &, 0.438603E+00_JPRB, 0.424719E+00_JPRB, 0.410999E+00_JPRB &
+  &, 0.397421E+00_JPRB, 0.384029E+00_JPRB, 0.370795E+00_JPRB, 0.357763E+00_JPRB &
+  &, 0.344940E+00_JPRB, 0.332311E+00_JPRB, 0.319899E+00_JPRB &
+  &, 0.307728E+00_JPRB, 0.295797E+00_JPRB, 0.284108E+00_JPRB, 0.272656E+00_JPRB &
+  &, 0.261483E+00_JPRB, 0.250562E+00_JPRB, 0.239907E+00_JPRB &
+  &, 0.229509E+00_JPRB, 0.219407E+00_JPRB, 0.209588E+00_JPRB, 0.200039E+00_JPRB &
+  &, 0.190768E+00_JPRB, 0.181783E+00_JPRB, 0.173064E+00_JPRB &
+  &, 0.164643E+00_JPRB, 0.156497E+00_JPRB, 0.148656E+00_JPRB, 0.141064E+00_JPRB &
+  &, 0.133749E+00_JPRB, 0.126739E+00_JPRB, 0.119969E+00_JPRB &
+  &, 0.113466E+00_JPRB, 0.107221E+00_JPRB, 0.101260E+00_JPRB, 0.955403E-01_JPRB &
+  &, 0.900507E-01_JPRB, 0.848119E-01_JPRB, 0.798101E-01_JPRB &
+  &, 0.750295E-01_JPRB, 0.704890E-01_JPRB, 0.661706E-01_JPRB, 0.620543E-01_JPRB &
+  &, 0.581565E-01_JPRB, 0.544547E-01_JPRB, 0.509244E-01_JPRB &
+  &, 0.476192E-01_JPRB, 0.444730E-01_JPRB, 0.414563E-01_JPRB, 0.386637E-01_JPRB &
+  &, 0.360241E-01_JPRB, 0.335046E-01_JPRB, 0.311583E-01_JPRB &
+  &, 0.289514E-01_JPRB, 0.268476E-01_JPRB, 0.249006E-01_JPRB, 0.230730E-01_JPRB &
+  &, 0.213723E-01_JPRB, 0.197580E-01_JPRB, 0.182849E-01_JPRB &
+  &, 0.168614E-01_JPRB, 0.155419E-01_JPRB, 0.143323E-01_JPRB, 0.131869E-01_JPRB &
+  &, 0.121624E-01_JPRB, 0.111581E-01_JPRB, 0.102845E-01_JPRB &
+  &, 0.943796E-02_JPRB, 0.862047E-02_JPRB, 0.789073E-02_JPRB, 0.725320E-02_JPRB &
+  &, 0.659580E-02_JPRB, 0.603648E-02_JPRB, 0.551995E-02_JPRB &
+  &, 0.504846E-02_JPRB, 0.456277E-02_JPRB, 0.418741E-02_JPRB, 0.380085E-02_JPRB &
+  &, 0.346699E-02_JPRB, 0.312336E-02_JPRB, 0.283558E-02_JPRB/)
+XCW( 541, :) = (/ &
+  &  0.100686E+01_JPRB, 0.100754E+01_JPRB, 0.100779E+01_JPRB, 0.100762E+01_JPRB &
+  &, 0.100704E+01_JPRB, 0.100603E+01_JPRB, 0.100460E+01_JPRB &
+  &, 0.100275E+01_JPRB, 0.100047E+01_JPRB, 0.997785E+00_JPRB, 0.994673E+00_JPRB &
+  &, 0.991142E+00_JPRB, 0.987194E+00_JPRB, 0.982830E+00_JPRB &
+  &, 0.978052E+00_JPRB, 0.972863E+00_JPRB, 0.967265E+00_JPRB, 0.961262E+00_JPRB &
+  &, 0.954857E+00_JPRB, 0.948053E+00_JPRB, 0.940857E+00_JPRB &
+  &, 0.933268E+00_JPRB, 0.925299E+00_JPRB, 0.916951E+00_JPRB, 0.908232E+00_JPRB &
+  &, 0.899149E+00_JPRB, 0.889709E+00_JPRB, 0.879923E+00_JPRB &
+  &, 0.869791E+00_JPRB, 0.859329E+00_JPRB, 0.848548E+00_JPRB, 0.837454E+00_JPRB &
+  &, 0.826058E+00_JPRB, 0.814372E+00_JPRB, 0.802412E+00_JPRB &
+  &, 0.790183E+00_JPRB, 0.777702E+00_JPRB, 0.764983E+00_JPRB, 0.752032E+00_JPRB &
+  &, 0.738872E+00_JPRB, 0.725515E+00_JPRB, 0.711982E+00_JPRB &
+  &, 0.698270E+00_JPRB, 0.684415E+00_JPRB, 0.670420E+00_JPRB, 0.656301E+00_JPRB &
+  &, 0.642079E+00_JPRB, 0.627773E+00_JPRB, 0.613380E+00_JPRB &
+  &, 0.598950E+00_JPRB, 0.584468E+00_JPRB, 0.569960E+00_JPRB, 0.555453E+00_JPRB &
+  &, 0.540945E+00_JPRB, 0.526464E+00_JPRB, 0.512025E+00_JPRB &
+  &, 0.497641E+00_JPRB, 0.483340E+00_JPRB, 0.469105E+00_JPRB, 0.454981E+00_JPRB &
+  &, 0.440963E+00_JPRB, 0.427079E+00_JPRB, 0.413325E+00_JPRB &
+  &, 0.399726E+00_JPRB, 0.386311E+00_JPRB, 0.373051E+00_JPRB, 0.359991E+00_JPRB &
+  &, 0.347137E+00_JPRB, 0.334475E+00_JPRB, 0.322047E+00_JPRB &
+  &, 0.309837E+00_JPRB, 0.297864E+00_JPRB, 0.286130E+00_JPRB, 0.274653E+00_JPRB &
+  &, 0.263430E+00_JPRB, 0.252478E+00_JPRB, 0.241766E+00_JPRB &
+  &, 0.231358E+00_JPRB, 0.221193E+00_JPRB, 0.211334E+00_JPRB, 0.201742E+00_JPRB &
+  &, 0.192425E+00_JPRB, 0.183391E+00_JPRB, 0.174649E+00_JPRB &
+  &, 0.166175E+00_JPRB, 0.158001E+00_JPRB, 0.150073E+00_JPRB, 0.142448E+00_JPRB &
+  &, 0.135099E+00_JPRB, 0.128022E+00_JPRB, 0.121213E+00_JPRB &
+  &, 0.114669E+00_JPRB, 0.108381E+00_JPRB, 0.102375E+00_JPRB, 0.966088E-01_JPRB &
+  &, 0.911040E-01_JPRB, 0.858144E-01_JPRB, 0.807597E-01_JPRB &
+  &, 0.759597E-01_JPRB, 0.713622E-01_JPRB, 0.670216E-01_JPRB, 0.628821E-01_JPRB &
+  &, 0.589215E-01_JPRB, 0.551935E-01_JPRB, 0.516359E-01_JPRB &
+  &, 0.482620E-01_JPRB, 0.450854E-01_JPRB, 0.420786E-01_JPRB, 0.392539E-01_JPRB &
+  &, 0.365380E-01_JPRB, 0.340266E-01_JPRB, 0.316443E-01_JPRB &
+  &, 0.294001E-01_JPRB, 0.273033E-01_JPRB, 0.253170E-01_JPRB, 0.234487E-01_JPRB &
+  &, 0.217538E-01_JPRB, 0.200968E-01_JPRB, 0.185797E-01_JPRB &
+  &, 0.171606E-01_JPRB, 0.158454E-01_JPRB, 0.145890E-01_JPRB, 0.134473E-01_JPRB &
+  &, 0.123737E-01_JPRB, 0.113725E-01_JPRB, 0.104476E-01_JPRB &
+  &, 0.960337E-02_JPRB, 0.878820E-02_JPRB, 0.806082E-02_JPRB, 0.736817E-02_JPRB &
+  &, 0.677064E-02_JPRB, 0.615464E-02_JPRB, 0.563973E-02_JPRB &
+  &, 0.516987E-02_JPRB, 0.468582E-02_JPRB, 0.424976E-02_JPRB, 0.386404E-02_JPRB &
+  &, 0.353101E-02_JPRB, 0.318823E-02_JPRB, 0.290129E-02_JPRB/)
+XCW( 542, :) = (/ &
+  &  0.100712E+01_JPRB, 0.100785E+01_JPRB, 0.100817E+01_JPRB, 0.100807E+01_JPRB &
+  &, 0.100755E+01_JPRB, 0.100660E+01_JPRB, 0.100523E+01_JPRB &
+  &, 0.100345E+01_JPRB, 0.100124E+01_JPRB, 0.998606E+00_JPRB, 0.995556E+00_JPRB &
+  &, 0.992084E+00_JPRB, 0.988199E+00_JPRB, 0.983895E+00_JPRB &
+  &, 0.979178E+00_JPRB, 0.974047E+00_JPRB, 0.968508E+00_JPRB, 0.962563E+00_JPRB &
+  &, 0.956213E+00_JPRB, 0.949465E+00_JPRB, 0.942322E+00_JPRB &
+  &, 0.934790E+00_JPRB, 0.926873E+00_JPRB, 0.918579E+00_JPRB, 0.909912E+00_JPRB &
+  &, 0.900877E+00_JPRB, 0.891486E+00_JPRB, 0.881743E+00_JPRB &
+  &, 0.871660E+00_JPRB, 0.861245E+00_JPRB, 0.850502E+00_JPRB, 0.839454E+00_JPRB &
+  &, 0.828095E+00_JPRB, 0.816451E+00_JPRB, 0.804526E+00_JPRB &
+  &, 0.792332E+00_JPRB, 0.779876E+00_JPRB, 0.767192E+00_JPRB, 0.754278E+00_JPRB &
+  &, 0.741143E+00_JPRB, 0.727813E+00_JPRB, 0.714294E+00_JPRB &
+  &, 0.700618E+00_JPRB, 0.686776E+00_JPRB, 0.672793E+00_JPRB, 0.658698E+00_JPRB &
+  &, 0.644486E+00_JPRB, 0.630189E+00_JPRB, 0.615817E+00_JPRB &
+  &, 0.601381E+00_JPRB, 0.586904E+00_JPRB, 0.572414E+00_JPRB, 0.557895E+00_JPRB &
+  &, 0.543387E+00_JPRB, 0.528905E+00_JPRB, 0.514463E+00_JPRB &
+  &, 0.500074E+00_JPRB, 0.485750E+00_JPRB, 0.471507E+00_JPRB, 0.457371E+00_JPRB &
+  &, 0.443339E+00_JPRB, 0.429423E+00_JPRB, 0.415668E+00_JPRB &
+  &, 0.402048E+00_JPRB, 0.388592E+00_JPRB, 0.375326E+00_JPRB, 0.362238E+00_JPRB &
+  &, 0.349334E+00_JPRB, 0.336658E+00_JPRB, 0.324195E+00_JPRB &
+  &, 0.311945E+00_JPRB, 0.299932E+00_JPRB, 0.288174E+00_JPRB, 0.276650E+00_JPRB &
+  &, 0.265399E+00_JPRB, 0.254394E+00_JPRB, 0.243674E+00_JPRB &
+  &, 0.233206E+00_JPRB, 0.223004E+00_JPRB, 0.213080E+00_JPRB, 0.203444E+00_JPRB &
+  &, 0.194082E+00_JPRB, 0.185027E+00_JPRB, 0.176234E+00_JPRB &
+  &, 0.167706E+00_JPRB, 0.159476E+00_JPRB, 0.151518E+00_JPRB, 0.143862E+00_JPRB &
+  &, 0.136448E+00_JPRB, 0.129335E+00_JPRB, 0.122488E+00_JPRB &
+  &, 0.115904E+00_JPRB, 0.109574E+00_JPRB, 0.103524E+00_JPRB, 0.977107E-01_JPRB &
+  &, 0.921233E-01_JPRB, 0.868170E-01_JPRB, 0.817444E-01_JPRB &
+  &, 0.768898E-01_JPRB, 0.722719E-01_JPRB, 0.678727E-01_JPRB, 0.636722E-01_JPRB &
+  &, 0.596866E-01_JPRB, 0.559324E-01_JPRB, 0.523474E-01_JPRB &
+  &, 0.489450E-01_JPRB, 0.457387E-01_JPRB, 0.427010E-01_JPRB, 0.398019E-01_JPRB &
+  &, 0.370947E-01_JPRB, 0.345486E-01_JPRB, 0.321303E-01_JPRB &
+  &, 0.298488E-01_JPRB, 0.277589E-01_JPRB, 0.257334E-01_JPRB, 0.238715E-01_JPRB &
+  &, 0.220876E-01_JPRB, 0.204356E-01_JPRB, 0.189236E-01_JPRB &
+  &, 0.174597E-01_JPRB, 0.161490E-01_JPRB, 0.148970E-01_JPRB, 0.137077E-01_JPRB &
+  &, 0.126379E-01_JPRB, 0.115868E-01_JPRB, 0.106650E-01_JPRB &
+  &, 0.982390E-02_JPRB, 0.901185E-02_JPRB, 0.823091E-02_JPRB, 0.754063E-02_JPRB &
+  &, 0.688721E-02_JPRB, 0.633189E-02_JPRB, 0.575951E-02_JPRB &
+  &, 0.523057E-02_JPRB, 0.480887E-02_JPRB, 0.437446E-02_JPRB, 0.399040E-02_JPRB &
+  &, 0.359503E-02_JPRB, 0.325309E-02_JPRB, 0.296700E-02_JPRB/)
+XCW( 543, :) = (/ &
+  &  0.100737E+01_JPRB, 0.100817E+01_JPRB, 0.100855E+01_JPRB, 0.100851E+01_JPRB &
+  &, 0.100805E+01_JPRB, 0.100717E+01_JPRB, 0.100587E+01_JPRB &
+  &, 0.100414E+01_JPRB, 0.100200E+01_JPRB, 0.999428E+00_JPRB, 0.996440E+00_JPRB &
+  &, 0.993032E+00_JPRB, 0.989204E+00_JPRB, 0.984962E+00_JPRB &
+  &, 0.980303E+00_JPRB, 0.975233E+00_JPRB, 0.969752E+00_JPRB, 0.963864E+00_JPRB &
+  &, 0.957572E+00_JPRB, 0.950880E+00_JPRB, 0.943791E+00_JPRB &
+  &, 0.936315E+00_JPRB, 0.928450E+00_JPRB, 0.920207E+00_JPRB, 0.911593E+00_JPRB &
+  &, 0.902609E+00_JPRB, 0.893266E+00_JPRB, 0.883571E+00_JPRB &
+  &, 0.873533E+00_JPRB, 0.863160E+00_JPRB, 0.852466E+00_JPRB, 0.841453E+00_JPRB &
+  &, 0.830137E+00_JPRB, 0.818531E+00_JPRB, 0.806640E+00_JPRB &
+  &, 0.794480E+00_JPRB, 0.782070E+00_JPRB, 0.769412E+00_JPRB, 0.756524E+00_JPRB &
+  &, 0.743415E+00_JPRB, 0.730110E+00_JPRB, 0.716628E+00_JPRB &
+  &, 0.702955E+00_JPRB, 0.689137E+00_JPRB, 0.675178E+00_JPRB, 0.661095E+00_JPRB &
+  &, 0.646905E+00_JPRB, 0.632618E+00_JPRB, 0.618254E+00_JPRB &
+  &, 0.603825E+00_JPRB, 0.589354E+00_JPRB, 0.574854E+00_JPRB, 0.560350E+00_JPRB &
+  &, 0.545844E+00_JPRB, 0.531361E+00_JPRB, 0.516901E+00_JPRB &
+  &, 0.502507E+00_JPRB, 0.488177E+00_JPRB, 0.473924E+00_JPRB, 0.459761E+00_JPRB &
+  &, 0.445716E+00_JPRB, 0.431801E+00_JPRB, 0.418011E+00_JPRB &
+  &, 0.404371E+00_JPRB, 0.390892E+00_JPRB, 0.377600E+00_JPRB, 0.364485E+00_JPRB &
+  &, 0.351550E+00_JPRB, 0.338842E+00_JPRB, 0.326342E+00_JPRB &
+  &, 0.314075E+00_JPRB, 0.302020E+00_JPRB, 0.290219E+00_JPRB, 0.278670E+00_JPRB &
+  &, 0.267369E+00_JPRB, 0.256334E+00_JPRB, 0.245557E+00_JPRB &
+  &, 0.235055E+00_JPRB, 0.224815E+00_JPRB, 0.214851E+00_JPRB, 0.205173E+00_JPRB &
+  &, 0.195765E+00_JPRB, 0.186662E+00_JPRB, 0.177819E+00_JPRB &
+  &, 0.169266E+00_JPRB, 0.160980E+00_JPRB, 0.152992E+00_JPRB, 0.145275E+00_JPRB &
+  &, 0.137828E+00_JPRB, 0.130679E+00_JPRB, 0.123764E+00_JPRB &
+  &, 0.117139E+00_JPRB, 0.110767E+00_JPRB, 0.104672E+00_JPRB, 0.988125E-01_JPRB &
+  &, 0.932106E-01_JPRB, 0.878541E-01_JPRB, 0.827292E-01_JPRB &
+  &, 0.778200E-01_JPRB, 0.731815E-01_JPRB, 0.687237E-01_JPRB, 0.645000E-01_JPRB &
+  &, 0.604900E-01_JPRB, 0.566713E-01_JPRB, 0.530590E-01_JPRB &
+  &, 0.496280E-01_JPRB, 0.463511E-01_JPRB, 0.432818E-01_JPRB, 0.403920E-01_JPRB &
+  &, 0.376514E-01_JPRB, 0.350706E-01_JPRB, 0.326163E-01_JPRB &
+  &, 0.303424E-01_JPRB, 0.281690E-01_JPRB, 0.261498E-01_JPRB, 0.242473E-01_JPRB &
+  &, 0.224690E-01_JPRB, 0.208228E-01_JPRB, 0.192183E-01_JPRB &
+  &, 0.177588E-01_JPRB, 0.164019E-01_JPRB, 0.151537E-01_JPRB, 0.139681E-01_JPRB &
+  &, 0.128493E-01_JPRB, 0.118548E-01_JPRB, 0.108825E-01_JPRB &
+  &, 0.998931E-02_JPRB, 0.917959E-02_JPRB, 0.840100E-02_JPRB, 0.771308E-02_JPRB &
+  &, 0.706205E-02_JPRB, 0.645006E-02_JPRB, 0.587929E-02_JPRB &
+  &, 0.535198E-02_JPRB, 0.493191E-02_JPRB, 0.443681E-02_JPRB, 0.405358E-02_JPRB &
+  &, 0.372306E-02_JPRB, 0.338281E-02_JPRB, 0.303271E-02_JPRB/)
+XCW( 544, :) = (/ &
+  &  0.100763E+01_JPRB, 0.100849E+01_JPRB, 0.100893E+01_JPRB, 0.100896E+01_JPRB &
+  &, 0.100856E+01_JPRB, 0.100774E+01_JPRB, 0.100650E+01_JPRB &
+  &, 0.100484E+01_JPRB, 0.100276E+01_JPRB, 0.100025E+01_JPRB, 0.997324E+00_JPRB &
+  &, 0.993977E+00_JPRB, 0.990211E+00_JPRB, 0.986029E+00_JPRB &
+  &, 0.981431E+00_JPRB, 0.976419E+00_JPRB, 0.970996E+00_JPRB, 0.965155E+00_JPRB &
+  &, 0.958932E+00_JPRB, 0.952295E+00_JPRB, 0.945263E+00_JPRB &
+  &, 0.937840E+00_JPRB, 0.930030E+00_JPRB, 0.921841E+00_JPRB, 0.913273E+00_JPRB &
+  &, 0.904340E+00_JPRB, 0.895047E+00_JPRB, 0.885399E+00_JPRB &
+  &, 0.875410E+00_JPRB, 0.865080E+00_JPRB, 0.854429E+00_JPRB, 0.843457E+00_JPRB &
+  &, 0.832182E+00_JPRB, 0.820615E+00_JPRB, 0.808762E+00_JPRB &
+  &, 0.796638E+00_JPRB, 0.784254E+00_JPRB, 0.771632E+00_JPRB, 0.758769E+00_JPRB &
+  &, 0.745697E+00_JPRB, 0.732418E+00_JPRB, 0.718950E+00_JPRB &
+  &, 0.705314E+00_JPRB, 0.691510E+00_JPRB, 0.677575E+00_JPRB, 0.663504E+00_JPRB &
+  &, 0.649325E+00_JPRB, 0.635047E+00_JPRB, 0.620691E+00_JPRB &
+  &, 0.606282E+00_JPRB, 0.591817E+00_JPRB, 0.577321E+00_JPRB, 0.562806E+00_JPRB &
+  &, 0.548301E+00_JPRB, 0.533817E+00_JPRB, 0.519354E+00_JPRB &
+  &, 0.504955E+00_JPRB, 0.490603E+00_JPRB, 0.476341E+00_JPRB, 0.462167E+00_JPRB &
+  &, 0.448110E+00_JPRB, 0.434145E+00_JPRB, 0.420372E+00_JPRB &
+  &, 0.406712E+00_JPRB, 0.393211E+00_JPRB, 0.379875E+00_JPRB, 0.366732E+00_JPRB &
+  &, 0.353787E+00_JPRB, 0.341045E+00_JPRB, 0.328511E+00_JPRB &
+  &, 0.316205E+00_JPRB, 0.304130E+00_JPRB, 0.292285E+00_JPRB, 0.280711E+00_JPRB &
+  &, 0.269361E+00_JPRB, 0.258296E+00_JPRB, 0.247465E+00_JPRB &
+  &, 0.236927E+00_JPRB, 0.226651E+00_JPRB, 0.216647E+00_JPRB, 0.206927E+00_JPRB &
+  &, 0.197474E+00_JPRB, 0.188298E+00_JPRB, 0.179431E+00_JPRB &
+  &, 0.170825E+00_JPRB, 0.162512E+00_JPRB, 0.154467E+00_JPRB, 0.146689E+00_JPRB &
+  &, 0.139208E+00_JPRB, 0.131992E+00_JPRB, 0.125070E+00_JPRB &
+  &, 0.118374E+00_JPRB, 0.111959E+00_JPRB, 0.105820E+00_JPRB, 0.999144E-01_JPRB &
+  &, 0.942639E-01_JPRB, 0.888567E-01_JPRB, 0.837139E-01_JPRB &
+  &, 0.787859E-01_JPRB, 0.740912E-01_JPRB, 0.696118E-01_JPRB, 0.653277E-01_JPRB &
+  &, 0.612933E-01_JPRB, 0.574102E-01_JPRB, 0.537705E-01_JPRB &
+  &, 0.503110E-01_JPRB, 0.470044E-01_JPRB, 0.439041E-01_JPRB, 0.409821E-01_JPRB &
+  &, 0.382081E-01_JPRB, 0.355926E-01_JPRB, 0.331464E-01_JPRB &
+  &, 0.307911E-01_JPRB, 0.286247E-01_JPRB, 0.265662E-01_JPRB, 0.246700E-01_JPRB &
+  &, 0.228505E-01_JPRB, 0.211616E-01_JPRB, 0.195622E-01_JPRB &
+  &, 0.181078E-01_JPRB, 0.167055E-01_JPRB, 0.154103E-01_JPRB, 0.142285E-01_JPRB &
+  &, 0.131135E-01_JPRB, 0.120692E-01_JPRB, 0.110999E-01_JPRB &
+  &, 0.102098E-01_JPRB, 0.934733E-02_JPRB, 0.857109E-02_JPRB, 0.788554E-02_JPRB &
+  &, 0.717861E-02_JPRB, 0.656822E-02_JPRB, 0.599907E-02_JPRB &
+  &, 0.547339E-02_JPRB, 0.499344E-02_JPRB, 0.456151E-02_JPRB, 0.417994E-02_JPRB &
+  &, 0.378708E-02_JPRB, 0.344767E-02_JPRB, 0.309842E-02_JPRB/)
+XCW( 545, :) = (/ &
+  &  0.100788E+01_JPRB, 0.100881E+01_JPRB, 0.100931E+01_JPRB, 0.100940E+01_JPRB &
+  &, 0.100907E+01_JPRB, 0.100831E+01_JPRB, 0.100714E+01_JPRB &
+  &, 0.100554E+01_JPRB, 0.100352E+01_JPRB, 0.100107E+01_JPRB, 0.998210E+00_JPRB &
+  &, 0.994925E+00_JPRB, 0.991219E+00_JPRB, 0.987097E+00_JPRB &
+  &, 0.982559E+00_JPRB, 0.977607E+00_JPRB, 0.972244E+00_JPRB, 0.966471E+00_JPRB &
+  &, 0.960294E+00_JPRB, 0.953713E+00_JPRB, 0.946739E+00_JPRB &
+  &, 0.939368E+00_JPRB, 0.931611E+00_JPRB, 0.923472E+00_JPRB, 0.914960E+00_JPRB &
+  &, 0.906075E+00_JPRB, 0.896832E+00_JPRB, 0.887231E+00_JPRB &
+  &, 0.877287E+00_JPRB, 0.867003E+00_JPRB, 0.856396E+00_JPRB, 0.845469E+00_JPRB &
+  &, 0.834232E+00_JPRB, 0.822703E+00_JPRB, 0.810890E+00_JPRB &
+  &, 0.798796E+00_JPRB, 0.786457E+00_JPRB, 0.773861E+00_JPRB, 0.761035E+00_JPRB &
+  &, 0.747989E+00_JPRB, 0.734736E+00_JPRB, 0.721295E+00_JPRB &
+  &, 0.707673E+00_JPRB, 0.693894E+00_JPRB, 0.679972E+00_JPRB, 0.665924E+00_JPRB &
+  &, 0.651756E+00_JPRB, 0.637488E+00_JPRB, 0.623141E+00_JPRB &
+  &, 0.608739E+00_JPRB, 0.594280E+00_JPRB, 0.579788E+00_JPRB, 0.565276E+00_JPRB &
+  &, 0.550772E+00_JPRB, 0.536288E+00_JPRB, 0.521822E+00_JPRB &
+  &, 0.507404E+00_JPRB, 0.493061E+00_JPRB, 0.478775E+00_JPRB, 0.464591E+00_JPRB &
+  &, 0.450520E+00_JPRB, 0.436558E+00_JPRB, 0.422732E+00_JPRB &
+  &, 0.409053E+00_JPRB, 0.395529E+00_JPRB, 0.382169E+00_JPRB, 0.369018E+00_JPRB &
+  &, 0.356023E+00_JPRB, 0.343249E+00_JPRB, 0.330699E+00_JPRB &
+  &, 0.318356E+00_JPRB, 0.306240E+00_JPRB, 0.294373E+00_JPRB, 0.282753E+00_JPRB &
+  &, 0.271376E+00_JPRB, 0.260259E+00_JPRB, 0.249396E+00_JPRB &
+  &, 0.238800E+00_JPRB, 0.228487E+00_JPRB, 0.218443E+00_JPRB, 0.208681E+00_JPRB &
+  &, 0.199184E+00_JPRB, 0.189987E+00_JPRB, 0.181043E+00_JPRB &
+  &, 0.172413E+00_JPRB, 0.164045E+00_JPRB, 0.155941E+00_JPRB, 0.148132E+00_JPRB &
+  &, 0.140617E+00_JPRB, 0.133336E+00_JPRB, 0.126345E+00_JPRB &
+  &, 0.119640E+00_JPRB, 0.113184E+00_JPRB, 0.107001E+00_JPRB, 0.101050E+00_JPRB &
+  &, 0.953512E-01_JPRB, 0.899284E-01_JPRB, 0.846987E-01_JPRB &
+  &, 0.797518E-01_JPRB, 0.750008E-01_JPRB, 0.704629E-01_JPRB, 0.661931E-01_JPRB &
+  &, 0.620966E-01_JPRB, 0.581880E-01_JPRB, 0.545216E-01_JPRB &
+  &, 0.509940E-01_JPRB, 0.476985E-01_JPRB, 0.445679E-01_JPRB, 0.415723E-01_JPRB &
+  &, 0.387648E-01_JPRB, 0.361146E-01_JPRB, 0.336325E-01_JPRB &
+  &, 0.312846E-01_JPRB, 0.290803E-01_JPRB, 0.270288E-01_JPRB, 0.250458E-01_JPRB &
+  &, 0.232320E-01_JPRB, 0.215005E-01_JPRB, 0.199061E-01_JPRB &
+  &, 0.184070E-01_JPRB, 0.170091E-01_JPRB, 0.157184E-01_JPRB, 0.144889E-01_JPRB &
+  &, 0.133248E-01_JPRB, 0.122836E-01_JPRB, 0.113174E-01_JPRB &
+  &, 0.103752E-01_JPRB, 0.951506E-02_JPRB, 0.874117E-02_JPRB, 0.800051E-02_JPRB &
+  &, 0.735346E-02_JPRB, 0.674547E-02_JPRB, 0.611886E-02_JPRB &
+  &, 0.559480E-02_JPRB, 0.511648E-02_JPRB, 0.468621E-02_JPRB, 0.424312E-02_JPRB &
+  &, 0.385110E-02_JPRB, 0.351254E-02_JPRB, 0.322985E-02_JPRB/)
+XCW( 546, :) = (/ &
+  &  0.100813E+01_JPRB, 0.100912E+01_JPRB, 0.100970E+01_JPRB, 0.100985E+01_JPRB &
+  &, 0.100958E+01_JPRB, 0.100889E+01_JPRB, 0.100777E+01_JPRB &
+  &, 0.100624E+01_JPRB, 0.100427E+01_JPRB, 0.100190E+01_JPRB, 0.999095E+00_JPRB &
+  &, 0.995870E+00_JPRB, 0.992229E+00_JPRB, 0.988167E+00_JPRB &
+  &, 0.983689E+00_JPRB, 0.978797E+00_JPRB, 0.973491E+00_JPRB, 0.967777E+00_JPRB &
+  &, 0.961657E+00_JPRB, 0.955134E+00_JPRB, 0.948214E+00_JPRB &
+  &, 0.940900E+00_JPRB, 0.933195E+00_JPRB, 0.925111E+00_JPRB, 0.916648E+00_JPRB &
+  &, 0.907814E+00_JPRB, 0.898620E+00_JPRB, 0.889066E+00_JPRB &
+  &, 0.879167E+00_JPRB, 0.868930E+00_JPRB, 0.858367E+00_JPRB, 0.847481E+00_JPRB &
+  &, 0.836286E+00_JPRB, 0.824795E+00_JPRB, 0.813017E+00_JPRB &
+  &, 0.800963E+00_JPRB, 0.788650E+00_JPRB, 0.776091E+00_JPRB, 0.763291E+00_JPRB &
+  &, 0.750281E+00_JPRB, 0.737055E+00_JPRB, 0.723639E+00_JPRB &
+  &, 0.710043E+00_JPRB, 0.696278E+00_JPRB, 0.682380E+00_JPRB, 0.668345E+00_JPRB &
+  &, 0.654188E+00_JPRB, 0.639942E+00_JPRB, 0.625604E+00_JPRB &
+  &, 0.611209E+00_JPRB, 0.596756E+00_JPRB, 0.582269E+00_JPRB, 0.567761E+00_JPRB &
+  &, 0.553257E+00_JPRB, 0.538758E+00_JPRB, 0.524291E+00_JPRB &
+  &, 0.509868E+00_JPRB, 0.495503E+00_JPRB, 0.481225E+00_JPRB, 0.467030E+00_JPRB &
+  &, 0.452931E+00_JPRB, 0.438954E+00_JPRB, 0.425111E+00_JPRB &
+  &, 0.411412E+00_JPRB, 0.397867E+00_JPRB, 0.384482E+00_JPRB, 0.371284E+00_JPRB &
+  &, 0.358280E+00_JPRB, 0.345473E+00_JPRB, 0.332888E+00_JPRB &
+  &, 0.320507E+00_JPRB, 0.308372E+00_JPRB, 0.296462E+00_JPRB, 0.284795E+00_JPRB &
+  &, 0.273391E+00_JPRB, 0.262222E+00_JPRB, 0.251327E+00_JPRB &
+  &, 0.240697E+00_JPRB, 0.230322E+00_JPRB, 0.220239E+00_JPRB, 0.210435E+00_JPRB &
+  &, 0.200894E+00_JPRB, 0.191649E+00_JPRB, 0.182683E+00_JPRB &
+  &, 0.173972E+00_JPRB, 0.165577E+00_JPRB, 0.157444E+00_JPRB, 0.149575E+00_JPRB &
+  &, 0.141997E+00_JPRB, 0.134711E+00_JPRB, 0.127682E+00_JPRB &
+  &, 0.120907E+00_JPRB, 0.114409E+00_JPRB, 0.108182E+00_JPRB, 0.102185E+00_JPRB &
+  &, 0.964385E-01_JPRB, 0.909655E-01_JPRB, 0.857186E-01_JPRB &
+  &, 0.807177E-01_JPRB, 0.759105E-01_JPRB, 0.713509E-01_JPRB, 0.670209E-01_JPRB &
+  &, 0.629000E-01_JPRB, 0.589658E-01_JPRB, 0.552331E-01_JPRB &
+  &, 0.517172E-01_JPRB, 0.483517E-01_JPRB, 0.451902E-01_JPRB, 0.422045E-01_JPRB &
+  &, 0.393643E-01_JPRB, 0.366800E-01_JPRB, 0.341626E-01_JPRB &
+  &, 0.317782E-01_JPRB, 0.295360E-01_JPRB, 0.274452E-01_JPRB, 0.254685E-01_JPRB &
+  &, 0.236134E-01_JPRB, 0.218877E-01_JPRB, 0.202500E-01_JPRB &
+  &, 0.187560E-01_JPRB, 0.173126E-01_JPRB, 0.159750E-01_JPRB, 0.147494E-01_JPRB &
+  &, 0.135890E-01_JPRB, 0.124980E-01_JPRB, 0.115348E-01_JPRB &
+  &, 0.105958E-01_JPRB, 0.973871E-02_JPRB, 0.891126E-02_JPRB, 0.817297E-02_JPRB &
+  &, 0.752830E-02_JPRB, 0.686364E-02_JPRB, 0.629853E-02_JPRB &
+  &, 0.571621E-02_JPRB, 0.523953E-02_JPRB, 0.474856E-02_JPRB, 0.436948E-02_JPRB &
+  &, 0.397914E-02_JPRB, 0.357740E-02_JPRB, 0.329556E-02_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART78',1,ZHOOK_HANDLE)
+END SUBROUTINE PART78
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART79
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART79',0,ZHOOK_HANDLE)
+
+XCW( 547, :) = (/ &
+  &  0.100839E+01_JPRB, 0.100944E+01_JPRB, 0.101008E+01_JPRB, 0.101029E+01_JPRB &
+  &, 0.101009E+01_JPRB, 0.100946E+01_JPRB, 0.100841E+01_JPRB &
+  &, 0.100694E+01_JPRB, 0.100504E+01_JPRB, 0.100272E+01_JPRB, 0.999982E+00_JPRB &
+  &, 0.996820E+00_JPRB, 0.993238E+00_JPRB, 0.989238E+00_JPRB &
+  &, 0.984820E+00_JPRB, 0.979987E+00_JPRB, 0.974741E+00_JPRB, 0.969085E+00_JPRB &
+  &, 0.963023E+00_JPRB, 0.956555E+00_JPRB, 0.949689E+00_JPRB &
+  &, 0.942432E+00_JPRB, 0.934782E+00_JPRB, 0.926749E+00_JPRB, 0.918339E+00_JPRB &
+  &, 0.909556E+00_JPRB, 0.900408E+00_JPRB, 0.890906E+00_JPRB &
+  &, 0.881052E+00_JPRB, 0.870861E+00_JPRB, 0.860338E+00_JPRB, 0.849497E+00_JPRB &
+  &, 0.838344E+00_JPRB, 0.826892E+00_JPRB, 0.815154E+00_JPRB &
+  &, 0.803140E+00_JPRB, 0.790853E+00_JPRB, 0.778330E+00_JPRB, 0.765567E+00_JPRB &
+  &, 0.752573E+00_JPRB, 0.739373E+00_JPRB, 0.725983E+00_JPRB &
+  &, 0.712413E+00_JPRB, 0.698673E+00_JPRB, 0.684789E+00_JPRB, 0.670765E+00_JPRB &
+  &, 0.656632E+00_JPRB, 0.642396E+00_JPRB, 0.628067E+00_JPRB &
+  &, 0.613680E+00_JPRB, 0.599233E+00_JPRB, 0.584750E+00_JPRB, 0.570245E+00_JPRB &
+  &, 0.555743E+00_JPRB, 0.541243E+00_JPRB, 0.526774E+00_JPRB &
+  &, 0.512347E+00_JPRB, 0.497977E+00_JPRB, 0.483675E+00_JPRB, 0.469470E+00_JPRB &
+  &, 0.455358E+00_JPRB, 0.441367E+00_JPRB, 0.427489E+00_JPRB &
+  &, 0.413771E+00_JPRB, 0.400204E+00_JPRB, 0.386814E+00_JPRB, 0.373589E+00_JPRB &
+  &, 0.360556E+00_JPRB, 0.347717E+00_JPRB, 0.335098E+00_JPRB &
+  &, 0.322679E+00_JPRB, 0.310504E+00_JPRB, 0.298550E+00_JPRB, 0.286859E+00_JPRB &
+  &, 0.275407E+00_JPRB, 0.264209E+00_JPRB, 0.253282E+00_JPRB &
+  &, 0.242594E+00_JPRB, 0.232208E+00_JPRB, 0.222061E+00_JPRB, 0.212215E+00_JPRB &
+  &, 0.202629E+00_JPRB, 0.193338E+00_JPRB, 0.184322E+00_JPRB &
+  &, 0.175587E+00_JPRB, 0.167137E+00_JPRB, 0.158948E+00_JPRB, 0.151047E+00_JPRB &
+  &, 0.143437E+00_JPRB, 0.136085E+00_JPRB, 0.128989E+00_JPRB &
+  &, 0.122205E+00_JPRB, 0.115634E+00_JPRB, 0.109364E+00_JPRB, 0.103320E+00_JPRB &
+  &, 0.975598E-01_JPRB, 0.920372E-01_JPRB, 0.867385E-01_JPRB &
+  &, 0.816836E-01_JPRB, 0.768565E-01_JPRB, 0.722760E-01_JPRB, 0.678863E-01_JPRB &
+  &, 0.637033E-01_JPRB, 0.597436E-01_JPRB, 0.559842E-01_JPRB &
+  &, 0.524403E-01_JPRB, 0.490458E-01_JPRB, 0.458540E-01_JPRB, 0.427947E-01_JPRB &
+  &, 0.399210E-01_JPRB, 0.372455E-01_JPRB, 0.346928E-01_JPRB &
+  &, 0.322718E-01_JPRB, 0.300372E-01_JPRB, 0.279079E-01_JPRB, 0.258913E-01_JPRB &
+  &, 0.239949E-01_JPRB, 0.222749E-01_JPRB, 0.205939E-01_JPRB &
+  &, 0.190551E-01_JPRB, 0.176162E-01_JPRB, 0.162830E-01_JPRB, 0.150098E-01_JPRB &
+  &, 0.138532E-01_JPRB, 0.127660E-01_JPRB, 0.117523E-01_JPRB &
+  &, 0.108163E-01_JPRB, 0.990645E-02_JPRB, 0.913804E-02_JPRB, 0.834543E-02_JPRB &
+  &, 0.764487E-02_JPRB, 0.698181E-02_JPRB, 0.641831E-02_JPRB &
+  &, 0.583762E-02_JPRB, 0.536258E-02_JPRB, 0.487326E-02_JPRB, 0.443266E-02_JPRB &
+  &, 0.404316E-02_JPRB, 0.370712E-02_JPRB, 0.336127E-02_JPRB/)
+XCW( 548, :) = (/ &
+  &  0.100864E+01_JPRB, 0.100976E+01_JPRB, 0.101046E+01_JPRB, 0.101074E+01_JPRB &
+  &, 0.101060E+01_JPRB, 0.101003E+01_JPRB, 0.100905E+01_JPRB &
+  &, 0.100764E+01_JPRB, 0.100580E+01_JPRB, 0.100355E+01_JPRB, 0.100087E+01_JPRB &
+  &, 0.997769E+00_JPRB, 0.994249E+00_JPRB, 0.990310E+00_JPRB &
+  &, 0.985952E+00_JPRB, 0.981178E+00_JPRB, 0.975993E+00_JPRB, 0.970394E+00_JPRB &
+  &, 0.964390E+00_JPRB, 0.957980E+00_JPRB, 0.951171E+00_JPRB &
+  &, 0.943967E+00_JPRB, 0.936369E+00_JPRB, 0.928390E+00_JPRB, 0.920005E+00_JPRB &
+  &, 0.911298E+00_JPRB, 0.902203E+00_JPRB, 0.892749E+00_JPRB &
+  &, 0.882941E+00_JPRB, 0.872797E+00_JPRB, 0.862318E+00_JPRB, 0.851518E+00_JPRB &
+  &, 0.840407E+00_JPRB, 0.828994E+00_JPRB, 0.817294E+00_JPRB &
+  &, 0.805316E+00_JPRB, 0.793066E+00_JPRB, 0.780569E+00_JPRB, 0.767832E+00_JPRB &
+  &, 0.754876E+00_JPRB, 0.741702E+00_JPRB, 0.728338E+00_JPRB &
+  &, 0.714794E+00_JPRB, 0.701079E+00_JPRB, 0.687209E+00_JPRB, 0.673210E+00_JPRB &
+  &, 0.659087E+00_JPRB, 0.644862E+00_JPRB, 0.630542E+00_JPRB &
+  &, 0.616163E+00_JPRB, 0.601722E+00_JPRB, 0.587245E+00_JPRB, 0.572743E+00_JPRB &
+  &, 0.558228E+00_JPRB, 0.543729E+00_JPRB, 0.529257E+00_JPRB &
+  &, 0.514827E+00_JPRB, 0.500451E+00_JPRB, 0.486141E+00_JPRB, 0.471910E+00_JPRB &
+  &, 0.457785E+00_JPRB, 0.443780E+00_JPRB, 0.429903E+00_JPRB &
+  &, 0.416148E+00_JPRB, 0.402559E+00_JPRB, 0.389145E+00_JPRB, 0.375895E+00_JPRB &
+  &, 0.362832E+00_JPRB, 0.349961E+00_JPRB, 0.337307E+00_JPRB &
+  &, 0.324872E+00_JPRB, 0.312657E+00_JPRB, 0.300682E+00_JPRB, 0.288924E+00_JPRB &
+  &, 0.277445E+00_JPRB, 0.266218E+00_JPRB, 0.255237E+00_JPRB &
+  &, 0.244516E+00_JPRB, 0.234068E+00_JPRB, 0.223908E+00_JPRB, 0.213995E+00_JPRB &
+  &, 0.204391E+00_JPRB, 0.195027E+00_JPRB, 0.185989E+00_JPRB &
+  &, 0.177202E+00_JPRB, 0.168698E+00_JPRB, 0.160480E+00_JPRB, 0.152519E+00_JPRB &
+  &, 0.144846E+00_JPRB, 0.137460E+00_JPRB, 0.130326E+00_JPRB &
+  &, 0.123472E+00_JPRB, 0.116891E+00_JPRB, 0.110578E+00_JPRB, 0.104489E+00_JPRB &
+  &, 0.986810E-01_JPRB, 0.931089E-01_JPRB, 0.877584E-01_JPRB &
+  &, 0.826853E-01_JPRB, 0.778025E-01_JPRB, 0.731640E-01_JPRB, 0.687517E-01_JPRB &
+  &, 0.645449E-01_JPRB, 0.605602E-01_JPRB, 0.567353E-01_JPRB &
+  &, 0.531233E-01_JPRB, 0.497399E-01_JPRB, 0.464763E-01_JPRB, 0.434270E-01_JPRB &
+  &, 0.405205E-01_JPRB, 0.378110E-01_JPRB, 0.352230E-01_JPRB &
+  &, 0.327654E-01_JPRB, 0.304928E-01_JPRB, 0.283243E-01_JPRB, 0.263140E-01_JPRB &
+  &, 0.244241E-01_JPRB, 0.226137E-01_JPRB, 0.209869E-01_JPRB &
+  &, 0.194041E-01_JPRB, 0.179197E-01_JPRB, 0.165910E-01_JPRB, 0.153223E-01_JPRB &
+  &, 0.141174E-01_JPRB, 0.129804E-01_JPRB, 0.119697E-01_JPRB &
+  &, 0.110369E-01_JPRB, 0.101301E-01_JPRB, 0.930813E-02_JPRB, 0.851788E-02_JPRB &
+  &, 0.781971E-02_JPRB, 0.715906E-02_JPRB, 0.653809E-02_JPRB &
+  &, 0.601973E-02_JPRB, 0.548563E-02_JPRB, 0.499795E-02_JPRB, 0.455903E-02_JPRB &
+  &, 0.417119E-02_JPRB, 0.377198E-02_JPRB, 0.342698E-02_JPRB/)
+XCW( 549, :) = (/ &
+  &  0.100889E+01_JPRB, 0.101008E+01_JPRB, 0.101084E+01_JPRB, 0.101118E+01_JPRB &
+  &, 0.101111E+01_JPRB, 0.101061E+01_JPRB, 0.100968E+01_JPRB &
+  &, 0.100834E+01_JPRB, 0.100657E+01_JPRB, 0.100437E+01_JPRB, 0.100176E+01_JPRB &
+  &, 0.998720E+00_JPRB, 0.995261E+00_JPRB, 0.991383E+00_JPRB &
+  &, 0.987085E+00_JPRB, 0.982372E+00_JPRB, 0.977244E+00_JPRB, 0.971705E+00_JPRB &
+  &, 0.965757E+00_JPRB, 0.959404E+00_JPRB, 0.952653E+00_JPRB &
+  &, 0.945502E+00_JPRB, 0.937960E+00_JPRB, 0.930035E+00_JPRB, 0.921728E+00_JPRB &
+  &, 0.913048E+00_JPRB, 0.903999E+00_JPRB, 0.894592E+00_JPRB &
+  &, 0.884833E+00_JPRB, 0.874732E+00_JPRB, 0.864301E+00_JPRB, 0.853543E+00_JPRB &
+  &, 0.842474E+00_JPRB, 0.831100E+00_JPRB, 0.819435E+00_JPRB &
+  &, 0.807493E+00_JPRB, 0.795278E+00_JPRB, 0.782818E+00_JPRB, 0.770118E+00_JPRB &
+  &, 0.757188E+00_JPRB, 0.744041E+00_JPRB, 0.730704E+00_JPRB &
+  &, 0.717175E+00_JPRB, 0.703475E+00_JPRB, 0.689629E+00_JPRB, 0.675654E+00_JPRB &
+  &, 0.661544E+00_JPRB, 0.647329E+00_JPRB, 0.633031E+00_JPRB &
+  &, 0.618647E+00_JPRB, 0.604226E+00_JPRB, 0.589740E+00_JPRB, 0.575241E+00_JPRB &
+  &, 0.560743E+00_JPRB, 0.546229E+00_JPRB, 0.531756E+00_JPRB &
+  &, 0.517322E+00_JPRB, 0.502924E+00_JPRB, 0.488607E+00_JPRB, 0.474366E+00_JPRB &
+  &, 0.460230E+00_JPRB, 0.446210E+00_JPRB, 0.432300E+00_JPRB &
+  &, 0.418544E+00_JPRB, 0.404934E+00_JPRB, 0.391477E+00_JPRB, 0.378200E+00_JPRB &
+  &, 0.365108E+00_JPRB, 0.352226E+00_JPRB, 0.339538E+00_JPRB &
+  &, 0.327066E+00_JPRB, 0.314810E+00_JPRB, 0.302793E+00_JPRB, 0.291033E+00_JPRB &
+  &, 0.279483E+00_JPRB, 0.268228E+00_JPRB, 0.257192E+00_JPRB &
+  &, 0.246437E+00_JPRB, 0.235954E+00_JPRB, 0.225755E+00_JPRB, 0.215801E+00_JPRB &
+  &, 0.206127E+00_JPRB, 0.196743E+00_JPRB, 0.187656E+00_JPRB &
+  &, 0.178817E+00_JPRB, 0.170259E+00_JPRB, 0.162012E+00_JPRB, 0.154021E+00_JPRB &
+  &, 0.146286E+00_JPRB, 0.138865E+00_JPRB, 0.131695E+00_JPRB &
+  &, 0.124770E+00_JPRB, 0.118148E+00_JPRB, 0.111792E+00_JPRB, 0.105658E+00_JPRB &
+  &, 0.998023E-01_JPRB, 0.941805E-01_JPRB, 0.888135E-01_JPRB &
+  &, 0.836870E-01_JPRB, 0.787849E-01_JPRB, 0.740891E-01_JPRB, 0.696170E-01_JPRB &
+  &, 0.653865E-01_JPRB, 0.613380E-01_JPRB, 0.575258E-01_JPRB &
+  &, 0.538867E-01_JPRB, 0.504340E-01_JPRB, 0.471401E-01_JPRB, 0.440592E-01_JPRB &
+  &, 0.411200E-01_JPRB, 0.383765E-01_JPRB, 0.357532E-01_JPRB &
+  &, 0.333038E-01_JPRB, 0.309940E-01_JPRB, 0.287869E-01_JPRB, 0.267367E-01_JPRB &
+  &, 0.248055E-01_JPRB, 0.230009E-01_JPRB, 0.213307E-01_JPRB &
+  &, 0.197531E-01_JPRB, 0.182739E-01_JPRB, 0.168477E-01_JPRB, 0.155827E-01_JPRB &
+  &, 0.143815E-01_JPRB, 0.132483E-01_JPRB, 0.121872E-01_JPRB &
+  &, 0.112023E-01_JPRB, 0.102978E-01_JPRB, 0.947822E-02_JPRB, 0.869034E-02_JPRB &
+  &, 0.799455E-02_JPRB, 0.733630E-02_JPRB, 0.671776E-02_JPRB &
+  &, 0.614114E-02_JPRB, 0.560868E-02_JPRB, 0.512265E-02_JPRB, 0.468539E-02_JPRB &
+  &, 0.423521E-02_JPRB, 0.383684E-02_JPRB, 0.349269E-02_JPRB/)
+XCW( 550, :) = (/ &
+  &  0.100915E+01_JPRB, 0.101040E+01_JPRB, 0.101122E+01_JPRB, 0.101163E+01_JPRB &
+  &, 0.101162E+01_JPRB, 0.101118E+01_JPRB, 0.101032E+01_JPRB &
+  &, 0.100904E+01_JPRB, 0.100733E+01_JPRB, 0.100520E+01_JPRB, 0.100265E+01_JPRB &
+  &, 0.999672E+00_JPRB, 0.996275E+00_JPRB, 0.992456E+00_JPRB &
+  &, 0.988220E+00_JPRB, 0.983567E+00_JPRB, 0.978498E+00_JPRB, 0.973017E+00_JPRB &
+  &, 0.967128E+00_JPRB, 0.960832E+00_JPRB, 0.954135E+00_JPRB &
+  &, 0.947040E+00_JPRB, 0.939554E+00_JPRB, 0.931680E+00_JPRB, 0.923426E+00_JPRB &
+  &, 0.914794E+00_JPRB, 0.905798E+00_JPRB, 0.896439E+00_JPRB &
+  &, 0.886729E+00_JPRB, 0.876675E+00_JPRB, 0.866285E+00_JPRB, 0.855572E+00_JPRB &
+  &, 0.844541E+00_JPRB, 0.833210E+00_JPRB, 0.821585E+00_JPRB &
+  &, 0.809678E+00_JPRB, 0.797500E+00_JPRB, 0.785077E+00_JPRB, 0.772404E+00_JPRB &
+  &, 0.759501E+00_JPRB, 0.746381E+00_JPRB, 0.733070E+00_JPRB &
+  &, 0.719567E+00_JPRB, 0.705892E+00_JPRB, 0.692061E+00_JPRB, 0.678098E+00_JPRB &
+  &, 0.664012E+00_JPRB, 0.649808E+00_JPRB, 0.635519E+00_JPRB &
+  &, 0.621156E+00_JPRB, 0.606729E+00_JPRB, 0.592262E+00_JPRB, 0.577754E+00_JPRB &
+  &, 0.563258E+00_JPRB, 0.548744E+00_JPRB, 0.534269E+00_JPRB &
+  &, 0.519817E+00_JPRB, 0.505414E+00_JPRB, 0.491089E+00_JPRB, 0.476839E+00_JPRB &
+  &, 0.462691E+00_JPRB, 0.448640E+00_JPRB, 0.434731E+00_JPRB &
+  &, 0.420939E+00_JPRB, 0.407308E+00_JPRB, 0.393828E+00_JPRB, 0.380524E+00_JPRB &
+  &, 0.367404E+00_JPRB, 0.354490E+00_JPRB, 0.341768E+00_JPRB &
+  &, 0.329259E+00_JPRB, 0.316985E+00_JPRB, 0.304925E+00_JPRB, 0.293120E+00_JPRB &
+  &, 0.281567E+00_JPRB, 0.270237E+00_JPRB, 0.259195E+00_JPRB &
+  &, 0.248383E+00_JPRB, 0.237864E+00_JPRB, 0.227601E+00_JPRB, 0.217607E+00_JPRB &
+  &, 0.207916E+00_JPRB, 0.198486E+00_JPRB, 0.189323E+00_JPRB &
+  &, 0.180460E+00_JPRB, 0.171848E+00_JPRB, 0.163544E+00_JPRB, 0.155494E+00_JPRB &
+  &, 0.147756E+00_JPRB, 0.140270E+00_JPRB, 0.133032E+00_JPRB &
+  &, 0.126100E+00_JPRB, 0.119405E+00_JPRB, 0.113005E+00_JPRB, 0.106826E+00_JPRB &
+  &, 0.100924E+00_JPRB, 0.952868E-01_JPRB, 0.898686E-01_JPRB &
+  &, 0.846887E-01_JPRB, 0.797309E-01_JPRB, 0.750142E-01_JPRB, 0.705201E-01_JPRB &
+  &, 0.662281E-01_JPRB, 0.621547E-01_JPRB, 0.582769E-01_JPRB &
+  &, 0.546099E-01_JPRB, 0.511281E-01_JPRB, 0.478040E-01_JPRB, 0.446915E-01_JPRB &
+  &, 0.417195E-01_JPRB, 0.389420E-01_JPRB, 0.362834E-01_JPRB &
+  &, 0.337974E-01_JPRB, 0.314497E-01_JPRB, 0.292496E-01_JPRB, 0.272065E-01_JPRB &
+  &, 0.252347E-01_JPRB, 0.233881E-01_JPRB, 0.216746E-01_JPRB &
+  &, 0.201021E-01_JPRB, 0.185774E-01_JPRB, 0.171557E-01_JPRB, 0.158431E-01_JPRB &
+  &, 0.146457E-01_JPRB, 0.135163E-01_JPRB, 0.124590E-01_JPRB &
+  &, 0.114228E-01_JPRB, 0.105215E-01_JPRB, 0.964831E-02_JPRB, 0.886280E-02_JPRB &
+  &, 0.816940E-02_JPRB, 0.745447E-02_JPRB, 0.683754E-02_JPRB &
+  &, 0.626255E-02_JPRB, 0.573172E-02_JPRB, 0.524735E-02_JPRB, 0.474857E-02_JPRB &
+  &, 0.436325E-02_JPRB, 0.396657E-02_JPRB, 0.362411E-02_JPRB/)
+XCW( 551, :) = (/ &
+  &  0.100940E+01_JPRB, 0.101072E+01_JPRB, 0.101161E+01_JPRB, 0.101208E+01_JPRB &
+  &, 0.101213E+01_JPRB, 0.101175E+01_JPRB, 0.101096E+01_JPRB &
+  &, 0.100974E+01_JPRB, 0.100809E+01_JPRB, 0.100603E+01_JPRB, 0.100354E+01_JPRB &
+  &, 0.100062E+01_JPRB, 0.997288E+00_JPRB, 0.993532E+00_JPRB &
+  &, 0.989355E+00_JPRB, 0.984762E+00_JPRB, 0.979754E+00_JPRB, 0.974331E+00_JPRB &
+  &, 0.968500E+00_JPRB, 0.962262E+00_JPRB, 0.955620E+00_JPRB &
+  &, 0.948582E+00_JPRB, 0.941151E+00_JPRB, 0.933328E+00_JPRB, 0.925127E+00_JPRB &
+  &, 0.916547E+00_JPRB, 0.907601E+00_JPRB, 0.898290E+00_JPRB &
+  &, 0.888626E+00_JPRB, 0.878619E+00_JPRB, 0.868272E+00_JPRB, 0.857605E+00_JPRB &
+  &, 0.846617E+00_JPRB, 0.835325E+00_JPRB, 0.823731E+00_JPRB &
+  &, 0.811864E+00_JPRB, 0.799722E+00_JPRB, 0.787326E+00_JPRB, 0.774690E+00_JPRB &
+  &, 0.761814E+00_JPRB, 0.748731E+00_JPRB, 0.735436E+00_JPRB &
+  &, 0.721959E+00_JPRB, 0.708310E+00_JPRB, 0.694504E+00_JPRB, 0.680555E+00_JPRB &
+  &, 0.666480E+00_JPRB, 0.652299E+00_JPRB, 0.638020E+00_JPRB &
+  &, 0.623653E+00_JPRB, 0.609232E+00_JPRB, 0.594771E+00_JPRB, 0.580280E+00_JPRB &
+  &, 0.565772E+00_JPRB, 0.551274E+00_JPRB, 0.536783E+00_JPRB &
+  &, 0.522328E+00_JPRB, 0.507920E+00_JPRB, 0.493588E+00_JPRB, 0.479329E+00_JPRB &
+  &, 0.465153E+00_JPRB, 0.451088E+00_JPRB, 0.437163E+00_JPRB &
+  &, 0.423353E+00_JPRB, 0.409701E+00_JPRB, 0.396198E+00_JPRB, 0.382868E+00_JPRB &
+  &, 0.369719E+00_JPRB, 0.356775E+00_JPRB, 0.344019E+00_JPRB &
+  &, 0.331494E+00_JPRB, 0.319160E+00_JPRB, 0.307079E+00_JPRB, 0.295229E+00_JPRB &
+  &, 0.283628E+00_JPRB, 0.272270E+00_JPRB, 0.261174E+00_JPRB &
+  &, 0.250353E+00_JPRB, 0.239774E+00_JPRB, 0.229474E+00_JPRB, 0.219438E+00_JPRB &
+  &, 0.209678E+00_JPRB, 0.200201E+00_JPRB, 0.191017E+00_JPRB &
+  &, 0.182103E+00_JPRB, 0.173465E+00_JPRB, 0.165105E+00_JPRB, 0.157025E+00_JPRB &
+  &, 0.149195E+00_JPRB, 0.141675E+00_JPRB, 0.134432E+00_JPRB &
+  &, 0.127430E+00_JPRB, 0.120695E+00_JPRB, 0.114252E+00_JPRB, 0.108028E+00_JPRB &
+  &, 0.102079E+00_JPRB, 0.963931E-01_JPRB, 0.909237E-01_JPRB &
+  &, 0.856904E-01_JPRB, 0.807134E-01_JPRB, 0.759392E-01_JPRB, 0.714231E-01_JPRB &
+  &, 0.671080E-01_JPRB, 0.629714E-01_JPRB, 0.590675E-01_JPRB &
+  &, 0.553732E-01_JPRB, 0.518222E-01_JPRB, 0.485092E-01_JPRB, 0.453238E-01_JPRB &
+  &, 0.423619E-01_JPRB, 0.395075E-01_JPRB, 0.368577E-01_JPRB &
+  &, 0.343358E-01_JPRB, 0.319509E-01_JPRB, 0.297122E-01_JPRB, 0.276292E-01_JPRB &
+  &, 0.256638E-01_JPRB, 0.238238E-01_JPRB, 0.220676E-01_JPRB &
+  &, 0.204511E-01_JPRB, 0.189316E-01_JPRB, 0.174637E-01_JPRB, 0.161556E-01_JPRB &
+  &, 0.149099E-01_JPRB, 0.137307E-01_JPRB, 0.126764E-01_JPRB &
+  &, 0.116433E-01_JPRB, 0.107451E-01_JPRB, 0.987509E-02_JPRB, 0.903525E-02_JPRB &
+  &, 0.828596E-02_JPRB, 0.763172E-02_JPRB, 0.695733E-02_JPRB &
+  &, 0.638396E-02_JPRB, 0.585477E-02_JPRB, 0.530970E-02_JPRB, 0.487493E-02_JPRB &
+  &, 0.442727E-02_JPRB, 0.403143E-02_JPRB, 0.368982E-02_JPRB/)
+XCW( 552, :) = (/ &
+  &  0.100966E+01_JPRB, 0.101104E+01_JPRB, 0.101199E+01_JPRB, 0.101252E+01_JPRB &
+  &, 0.101264E+01_JPRB, 0.101233E+01_JPRB, 0.101160E+01_JPRB &
+  &, 0.101044E+01_JPRB, 0.100886E+01_JPRB, 0.100686E+01_JPRB, 0.100443E+01_JPRB &
+  &, 0.100158E+01_JPRB, 0.998303E+00_JPRB, 0.994607E+00_JPRB &
+  &, 0.990492E+00_JPRB, 0.985960E+00_JPRB, 0.981010E+00_JPRB, 0.975648E+00_JPRB &
+  &, 0.969874E+00_JPRB, 0.963693E+00_JPRB, 0.957108E+00_JPRB &
+  &, 0.950124E+00_JPRB, 0.942749E+00_JPRB, 0.934981E+00_JPRB, 0.926829E+00_JPRB &
+  &, 0.918304E+00_JPRB, 0.909404E+00_JPRB, 0.900144E+00_JPRB &
+  &, 0.890530E+00_JPRB, 0.880566E+00_JPRB, 0.870268E+00_JPRB, 0.859638E+00_JPRB &
+  &, 0.848697E+00_JPRB, 0.837444E+00_JPRB, 0.825895E+00_JPRB &
+  &, 0.814059E+00_JPRB, 0.801954E+00_JPRB, 0.789594E+00_JPRB, 0.776986E+00_JPRB &
+  &, 0.764147E+00_JPRB, 0.751081E+00_JPRB, 0.737824E+00_JPRB &
+  &, 0.724362E+00_JPRB, 0.710740E+00_JPRB, 0.696947E+00_JPRB, 0.683023E+00_JPRB &
+  &, 0.668960E+00_JPRB, 0.654791E+00_JPRB, 0.640522E+00_JPRB &
+  &, 0.626176E+00_JPRB, 0.611763E+00_JPRB, 0.597307E+00_JPRB, 0.582806E+00_JPRB &
+  &, 0.568301E+00_JPRB, 0.553804E+00_JPRB, 0.539312E+00_JPRB &
+  &, 0.524854E+00_JPRB, 0.510441E+00_JPRB, 0.496086E+00_JPRB, 0.481818E+00_JPRB &
+  &, 0.467631E+00_JPRB, 0.453553E+00_JPRB, 0.439595E+00_JPRB &
+  &, 0.425766E+00_JPRB, 0.412094E+00_JPRB, 0.398567E+00_JPRB, 0.385212E+00_JPRB &
+  &, 0.372055E+00_JPRB, 0.359059E+00_JPRB, 0.346290E+00_JPRB &
+  &, 0.333708E+00_JPRB, 0.321356E+00_JPRB, 0.309255E+00_JPRB, 0.297361E+00_JPRB &
+  &, 0.285712E+00_JPRB, 0.274327E+00_JPRB, 0.263176E+00_JPRB &
+  &, 0.252299E+00_JPRB, 0.241709E+00_JPRB, 0.231346E+00_JPRB, 0.221270E+00_JPRB &
+  &, 0.211493E+00_JPRB, 0.201971E+00_JPRB, 0.192711E+00_JPRB &
+  &, 0.183746E+00_JPRB, 0.175082E+00_JPRB, 0.166666E+00_JPRB, 0.158527E+00_JPRB &
+  &, 0.150695E+00_JPRB, 0.143110E+00_JPRB, 0.135800E+00_JPRB &
+  &, 0.128760E+00_JPRB, 0.121984E+00_JPRB, 0.115499E+00_JPRB, 0.109230E+00_JPRB &
+  &, 0.103234E+00_JPRB, 0.974993E-01_JPRB, 0.919788E-01_JPRB &
+  &, 0.867279E-01_JPRB, 0.816958E-01_JPRB, 0.769013E-01_JPRB, 0.723261E-01_JPRB &
+  &, 0.679495E-01_JPRB, 0.638269E-01_JPRB, 0.598581E-01_JPRB &
+  &, 0.561366E-01_JPRB, 0.525571E-01_JPRB, 0.491730E-01_JPRB, 0.459983E-01_JPRB &
+  &, 0.429614E-01_JPRB, 0.401165E-01_JPRB, 0.374321E-01_JPRB &
+  &, 0.348743E-01_JPRB, 0.324521E-01_JPRB, 0.302211E-01_JPRB, 0.280989E-01_JPRB &
+  &, 0.260930E-01_JPRB, 0.242110E-01_JPRB, 0.224606E-01_JPRB &
+  &, 0.208001E-01_JPRB, 0.192351E-01_JPRB, 0.178231E-01_JPRB, 0.164681E-01_JPRB &
+  &, 0.151741E-01_JPRB, 0.139987E-01_JPRB, 0.128939E-01_JPRB &
+  &, 0.119190E-01_JPRB, 0.109688E-01_JPRB, 0.100452E-01_JPRB, 0.926520E-02_JPRB &
+  &, 0.846081E-02_JPRB, 0.780897E-02_JPRB, 0.713700E-02_JPRB &
+  &, 0.650536E-02_JPRB, 0.597782E-02_JPRB, 0.543440E-02_JPRB, 0.500129E-02_JPRB &
+  &, 0.455530E-02_JPRB, 0.416115E-02_JPRB, 0.375553E-02_JPRB/)
+XCW( 553, :) = (/ &
+  &  0.100991E+01_JPRB, 0.101135E+01_JPRB, 0.101237E+01_JPRB, 0.101297E+01_JPRB &
+  &, 0.101315E+01_JPRB, 0.101290E+01_JPRB, 0.101223E+01_JPRB &
+  &, 0.101114E+01_JPRB, 0.100963E+01_JPRB, 0.100769E+01_JPRB, 0.100532E+01_JPRB &
+  &, 0.100253E+01_JPRB, 0.999318E+00_JPRB, 0.995685E+00_JPRB &
+  &, 0.991632E+00_JPRB, 0.987158E+00_JPRB, 0.982245E+00_JPRB, 0.976965E+00_JPRB &
+  &, 0.971249E+00_JPRB, 0.965124E+00_JPRB, 0.958596E+00_JPRB &
+  &, 0.951669E+00_JPRB, 0.944346E+00_JPRB, 0.936632E+00_JPRB, 0.928538E+00_JPRB &
+  &, 0.920061E+00_JPRB, 0.911215E+00_JPRB, 0.902003E+00_JPRB &
+  &, 0.892434E+00_JPRB, 0.882518E+00_JPRB, 0.872264E+00_JPRB, 0.861680E+00_JPRB &
+  &, 0.850777E+00_JPRB, 0.839568E+00_JPRB, 0.828058E+00_JPRB &
+  &, 0.816264E+00_JPRB, 0.804195E+00_JPRB, 0.791863E+00_JPRB, 0.779281E+00_JPRB &
+  &, 0.766470E+00_JPRB, 0.753441E+00_JPRB, 0.740200E+00_JPRB &
+  &, 0.726776E+00_JPRB, 0.713169E+00_JPRB, 0.699402E+00_JPRB, 0.685491E+00_JPRB &
+  &, 0.671441E+00_JPRB, 0.657282E+00_JPRB, 0.643036E+00_JPRB &
+  &, 0.628698E+00_JPRB, 0.614293E+00_JPRB, 0.599816E+00_JPRB, 0.585347E+00_JPRB &
+  &, 0.570844E+00_JPRB, 0.556333E+00_JPRB, 0.541841E+00_JPRB &
+  &, 0.527380E+00_JPRB, 0.512962E+00_JPRB, 0.498601E+00_JPRB, 0.484308E+00_JPRB &
+  &, 0.470110E+00_JPRB, 0.456018E+00_JPRB, 0.442045E+00_JPRB &
+  &, 0.428198E+00_JPRB, 0.414505E+00_JPRB, 0.400956E+00_JPRB, 0.387576E+00_JPRB &
+  &, 0.374370E+00_JPRB, 0.361364E+00_JPRB, 0.348562E+00_JPRB &
+  &, 0.335965E+00_JPRB, 0.323574E+00_JPRB, 0.311410E+00_JPRB, 0.299492E+00_JPRB &
+  &, 0.287818E+00_JPRB, 0.276383E+00_JPRB, 0.265203E+00_JPRB &
+  &, 0.254293E+00_JPRB, 0.243644E+00_JPRB, 0.233243E+00_JPRB, 0.223127E+00_JPRB &
+  &, 0.213281E+00_JPRB, 0.203740E+00_JPRB, 0.194433E+00_JPRB &
+  &, 0.185417E+00_JPRB, 0.176700E+00_JPRB, 0.168256E+00_JPRB, 0.160058E+00_JPRB &
+  &, 0.152165E+00_JPRB, 0.144546E+00_JPRB, 0.137200E+00_JPRB &
+  &, 0.130121E+00_JPRB, 0.123306E+00_JPRB, 0.116746E+00_JPRB, 0.110466E+00_JPRB &
+  &, 0.104423E+00_JPRB, 0.986056E-01_JPRB, 0.930691E-01_JPRB &
+  &, 0.877653E-01_JPRB, 0.827146E-01_JPRB, 0.778634E-01_JPRB, 0.732291E-01_JPRB &
+  &, 0.688294E-01_JPRB, 0.646436E-01_JPRB, 0.606882E-01_JPRB &
+  &, 0.568999E-01_JPRB, 0.532921E-01_JPRB, 0.498783E-01_JPRB, 0.466727E-01_JPRB &
+  &, 0.436038E-01_JPRB, 0.407255E-01_JPRB, 0.379623E-01_JPRB &
+  &, 0.354127E-01_JPRB, 0.329533E-01_JPRB, 0.306838E-01_JPRB, 0.285217E-01_JPRB &
+  &, 0.265221E-01_JPRB, 0.245982E-01_JPRB, 0.228045E-01_JPRB &
+  &, 0.211491E-01_JPRB, 0.195893E-01_JPRB, 0.181311E-01_JPRB, 0.167285E-01_JPRB &
+  &, 0.154911E-01_JPRB, 0.142667E-01_JPRB, 0.131657E-01_JPRB &
+  &, 0.121395E-01_JPRB, 0.111365E-01_JPRB, 0.102720E-01_JPRB, 0.943765E-02_JPRB &
+  &, 0.863565E-02_JPRB, 0.792713E-02_JPRB, 0.725678E-02_JPRB &
+  &, 0.668748E-02_JPRB, 0.610087E-02_JPRB, 0.555910E-02_JPRB, 0.506447E-02_JPRB &
+  &, 0.461932E-02_JPRB, 0.422601E-02_JPRB, 0.388696E-02_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART79',1,ZHOOK_HANDLE)
+END SUBROUTINE PART79
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART80
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART80',0,ZHOOK_HANDLE)
+
+XCW( 554, :) = (/ &
+  &  0.101017E+01_JPRB, 0.101167E+01_JPRB, 0.101275E+01_JPRB, 0.101342E+01_JPRB &
+  &, 0.101366E+01_JPRB, 0.101348E+01_JPRB, 0.101287E+01_JPRB &
+  &, 0.101185E+01_JPRB, 0.101039E+01_JPRB, 0.100851E+01_JPRB, 0.100621E+01_JPRB &
+  &, 0.100349E+01_JPRB, 0.100034E+01_JPRB, 0.996763E+00_JPRB &
+  &, 0.992771E+00_JPRB, 0.988358E+00_JPRB, 0.983528E+00_JPRB, 0.978283E+00_JPRB &
+  &, 0.972627E+00_JPRB, 0.966561E+00_JPRB, 0.960088E+00_JPRB &
+  &, 0.953217E+00_JPRB, 0.945950E+00_JPRB, 0.938291E+00_JPRB, 0.930246E+00_JPRB &
+  &, 0.921821E+00_JPRB, 0.913025E+00_JPRB, 0.903861E+00_JPRB &
+  &, 0.894342E+00_JPRB, 0.884473E+00_JPRB, 0.874264E+00_JPRB, 0.863726E+00_JPRB &
+  &, 0.852866E+00_JPRB, 0.841691E+00_JPRB, 0.830222E+00_JPRB &
+  &, 0.818468E+00_JPRB, 0.806427E+00_JPRB, 0.794131E+00_JPRB, 0.781587E+00_JPRB &
+  &, 0.768814E+00_JPRB, 0.755802E+00_JPRB, 0.742599E+00_JPRB &
+  &, 0.729191E+00_JPRB, 0.715609E+00_JPRB, 0.701857E+00_JPRB, 0.687971E+00_JPRB &
+  &, 0.673934E+00_JPRB, 0.659799E+00_JPRB, 0.645550E+00_JPRB &
+  &, 0.631221E+00_JPRB, 0.616823E+00_JPRB, 0.602379E+00_JPRB, 0.587902E+00_JPRB &
+  &, 0.573388E+00_JPRB, 0.558878E+00_JPRB, 0.544385E+00_JPRB &
+  &, 0.529921E+00_JPRB, 0.515484E+00_JPRB, 0.501116E+00_JPRB, 0.486830E+00_JPRB &
+  &, 0.472622E+00_JPRB, 0.458501E+00_JPRB, 0.444512E+00_JPRB &
+  &, 0.430648E+00_JPRB, 0.416935E+00_JPRB, 0.403363E+00_JPRB, 0.389958E+00_JPRB &
+  &, 0.376725E+00_JPRB, 0.363689E+00_JPRB, 0.350854E+00_JPRB &
+  &, 0.338221E+00_JPRB, 0.325792E+00_JPRB, 0.313608E+00_JPRB, 0.301646E+00_JPRB &
+  &, 0.289925E+00_JPRB, 0.278463E+00_JPRB, 0.267229E+00_JPRB &
+  &, 0.256287E+00_JPRB, 0.245579E+00_JPRB, 0.235166E+00_JPRB, 0.225010E+00_JPRB &
+  &, 0.215122E+00_JPRB, 0.205510E+00_JPRB, 0.196182E+00_JPRB &
+  &, 0.187116E+00_JPRB, 0.178346E+00_JPRB, 0.169846E+00_JPRB, 0.161619E+00_JPRB &
+  &, 0.153664E+00_JPRB, 0.146012E+00_JPRB, 0.138599E+00_JPRB &
+  &, 0.131483E+00_JPRB, 0.124627E+00_JPRB, 0.118025E+00_JPRB, 0.111668E+00_JPRB &
+  &, 0.105578E+00_JPRB, 0.997464E-01_JPRB, 0.941593E-01_JPRB &
+  &, 0.888386E-01_JPRB, 0.836970E-01_JPRB, 0.788254E-01_JPRB, 0.741697E-01_JPRB &
+  &, 0.697475E-01_JPRB, 0.654991E-01_JPRB, 0.614788E-01_JPRB &
+  &, 0.576633E-01_JPRB, 0.540270E-01_JPRB, 0.505836E-01_JPRB, 0.473050E-01_JPRB &
+  &, 0.442461E-01_JPRB, 0.413345E-01_JPRB, 0.385366E-01_JPRB &
+  &, 0.359512E-01_JPRB, 0.335001E-01_JPRB, 0.311927E-01_JPRB, 0.289914E-01_JPRB &
+  &, 0.269513E-01_JPRB, 0.250338E-01_JPRB, 0.231975E-01_JPRB &
+  &, 0.214981E-01_JPRB, 0.199434E-01_JPRB, 0.184391E-01_JPRB, 0.170410E-01_JPRB &
+  &, 0.157553E-01_JPRB, 0.145346E-01_JPRB, 0.134375E-01_JPRB &
+  &, 0.123601E-01_JPRB, 0.113602E-01_JPRB, 0.104987E-01_JPRB, 0.961011E-02_JPRB &
+  &, 0.881049E-02_JPRB, 0.810438E-02_JPRB, 0.743645E-02_JPRB &
+  &, 0.680889E-02_JPRB, 0.622391E-02_JPRB, 0.568380E-02_JPRB, 0.519083E-02_JPRB &
+  &, 0.474736E-02_JPRB, 0.435574E-02_JPRB, 0.395267E-02_JPRB/)
+XCW( 555, :) = (/ &
+  &  0.101042E+01_JPRB, 0.101199E+01_JPRB, 0.101314E+01_JPRB, 0.101387E+01_JPRB &
+  &, 0.101417E+01_JPRB, 0.101405E+01_JPRB, 0.101351E+01_JPRB &
+  &, 0.101255E+01_JPRB, 0.101116E+01_JPRB, 0.100934E+01_JPRB, 0.100711E+01_JPRB &
+  &, 0.100444E+01_JPRB, 0.100135E+01_JPRB, 0.997843E+00_JPRB &
+  &, 0.993911E+00_JPRB, 0.989554E+00_JPRB, 0.984789E+00_JPRB, 0.979602E+00_JPRB &
+  &, 0.974005E+00_JPRB, 0.967998E+00_JPRB, 0.961583E+00_JPRB &
+  &, 0.954769E+00_JPRB, 0.947554E+00_JPRB, 0.939950E+00_JPRB, 0.931959E+00_JPRB &
+  &, 0.923585E+00_JPRB, 0.914840E+00_JPRB, 0.905728E+00_JPRB &
+  &, 0.896254E+00_JPRB, 0.886432E+00_JPRB, 0.876268E+00_JPRB, 0.865772E+00_JPRB &
+  &, 0.854954E+00_JPRB, 0.843824E+00_JPRB, 0.832395E+00_JPRB &
+  &, 0.820673E+00_JPRB, 0.808677E+00_JPRB, 0.796419E+00_JPRB, 0.783903E+00_JPRB &
+  &, 0.771147E+00_JPRB, 0.758173E+00_JPRB, 0.744997E+00_JPRB &
+  &, 0.731616E+00_JPRB, 0.718050E+00_JPRB, 0.704324E+00_JPRB, 0.690452E+00_JPRB &
+  &, 0.676438E+00_JPRB, 0.662315E+00_JPRB, 0.648077E+00_JPRB &
+  &, 0.633757E+00_JPRB, 0.619380E+00_JPRB, 0.604929E+00_JPRB, 0.590456E+00_JPRB &
+  &, 0.575946E+00_JPRB, 0.561437E+00_JPRB, 0.546944E+00_JPRB &
+  &, 0.532463E+00_JPRB, 0.518037E+00_JPRB, 0.503647E+00_JPRB, 0.489353E+00_JPRB &
+  &, 0.475117E+00_JPRB, 0.461001E+00_JPRB, 0.446997E+00_JPRB &
+  &, 0.433097E+00_JPRB, 0.419365E+00_JPRB, 0.405771E+00_JPRB, 0.392341E+00_JPRB &
+  &, 0.379081E+00_JPRB, 0.366014E+00_JPRB, 0.353146E+00_JPRB &
+  &, 0.340478E+00_JPRB, 0.328031E+00_JPRB, 0.315806E+00_JPRB, 0.303800E+00_JPRB &
+  &, 0.292055E+00_JPRB, 0.280543E+00_JPRB, 0.269280E+00_JPRB &
+  &, 0.258282E+00_JPRB, 0.247539E+00_JPRB, 0.237089E+00_JPRB, 0.226868E+00_JPRB &
+  &, 0.216937E+00_JPRB, 0.207279E+00_JPRB, 0.197903E+00_JPRB &
+  &, 0.188815E+00_JPRB, 0.179991E+00_JPRB, 0.171436E+00_JPRB, 0.163180E+00_JPRB &
+  &, 0.155194E+00_JPRB, 0.147478E+00_JPRB, 0.140030E+00_JPRB &
+  &, 0.132844E+00_JPRB, 0.125949E+00_JPRB, 0.119305E+00_JPRB, 0.112903E+00_JPRB &
+  &, 0.106802E+00_JPRB, 0.100922E+00_JPRB, 0.952847E-01_JPRB &
+  &, 0.898760E-01_JPRB, 0.847158E-01_JPRB, 0.798245E-01_JPRB, 0.751103E-01_JPRB &
+  &, 0.706273E-01_JPRB, 0.663547E-01_JPRB, 0.623090E-01_JPRB &
+  &, 0.584266E-01_JPRB, 0.547619E-01_JPRB, 0.512889E-01_JPRB, 0.480216E-01_JPRB &
+  &, 0.448885E-01_JPRB, 0.419435E-01_JPRB, 0.391552E-01_JPRB &
+  &, 0.364896E-01_JPRB, 0.340013E-01_JPRB, 0.316553E-01_JPRB, 0.294611E-01_JPRB &
+  &, 0.273804E-01_JPRB, 0.254210E-01_JPRB, 0.235905E-01_JPRB &
+  &, 0.218969E-01_JPRB, 0.202976E-01_JPRB, 0.187471E-01_JPRB, 0.173535E-01_JPRB &
+  &, 0.160195E-01_JPRB, 0.148026E-01_JPRB, 0.136550E-01_JPRB &
+  &, 0.125806E-01_JPRB, 0.115838E-01_JPRB, 0.106688E-01_JPRB, 0.984005E-02_JPRB &
+  &, 0.904362E-02_JPRB, 0.828163E-02_JPRB, 0.761612E-02_JPRB &
+  &, 0.693029E-02_JPRB, 0.634696E-02_JPRB, 0.580850E-02_JPRB, 0.531720E-02_JPRB &
+  &, 0.487540E-02_JPRB, 0.442060E-02_JPRB, 0.401838E-02_JPRB/)
+XCW( 556, :) = (/ &
+  &  0.101068E+01_JPRB, 0.101231E+01_JPRB, 0.101352E+01_JPRB, 0.101431E+01_JPRB &
+  &, 0.101468E+01_JPRB, 0.101463E+01_JPRB, 0.101415E+01_JPRB &
+  &, 0.101325E+01_JPRB, 0.101193E+01_JPRB, 0.101018E+01_JPRB, 0.100800E+01_JPRB &
+  &, 0.100540E+01_JPRB, 0.100237E+01_JPRB, 0.998924E+00_JPRB &
+  &, 0.995054E+00_JPRB, 0.990763E+00_JPRB, 0.986053E+00_JPRB, 0.980926E+00_JPRB &
+  &, 0.975387E+00_JPRB, 0.969435E+00_JPRB, 0.963078E+00_JPRB &
+  &, 0.956321E+00_JPRB, 0.949162E+00_JPRB, 0.941609E+00_JPRB, 0.933671E+00_JPRB &
+  &, 0.925349E+00_JPRB, 0.916657E+00_JPRB, 0.907594E+00_JPRB &
+  &, 0.898170E+00_JPRB, 0.888396E+00_JPRB, 0.878276E+00_JPRB, 0.867826E+00_JPRB &
+  &, 0.857051E+00_JPRB, 0.845961E+00_JPRB, 0.834572E+00_JPRB &
+  &, 0.822886E+00_JPRB, 0.810928E+00_JPRB, 0.798698E+00_JPRB, 0.786219E+00_JPRB &
+  &, 0.773501E+00_JPRB, 0.760555E+00_JPRB, 0.747395E+00_JPRB &
+  &, 0.734041E+00_JPRB, 0.720502E+00_JPRB, 0.706802E+00_JPRB, 0.692944E+00_JPRB &
+  &, 0.678943E+00_JPRB, 0.664832E+00_JPRB, 0.650617E+00_JPRB &
+  &, 0.636306E+00_JPRB, 0.621924E+00_JPRB, 0.607493E+00_JPRB, 0.593011E+00_JPRB &
+  &, 0.578518E+00_JPRB, 0.564011E+00_JPRB, 0.549503E+00_JPRB &
+  &, 0.535020E+00_JPRB, 0.520590E+00_JPRB, 0.506194E+00_JPRB, 0.491876E+00_JPRB &
+  &, 0.477647E+00_JPRB, 0.463500E+00_JPRB, 0.449482E+00_JPRB &
+  &, 0.435565E+00_JPRB, 0.421795E+00_JPRB, 0.408179E+00_JPRB, 0.394724E+00_JPRB &
+  &, 0.381456E+00_JPRB, 0.368360E+00_JPRB, 0.355459E+00_JPRB &
+  &, 0.342755E+00_JPRB, 0.330270E+00_JPRB, 0.318004E+00_JPRB, 0.305977E+00_JPRB &
+  &, 0.294185E+00_JPRB, 0.282646E+00_JPRB, 0.271354E+00_JPRB &
+  &, 0.260300E+00_JPRB, 0.249523E+00_JPRB, 0.239011E+00_JPRB, 0.228777E+00_JPRB &
+  &, 0.218804E+00_JPRB, 0.209102E+00_JPRB, 0.199679E+00_JPRB &
+  &, 0.190513E+00_JPRB, 0.181665E+00_JPRB, 0.173055E+00_JPRB, 0.164740E+00_JPRB &
+  &, 0.156724E+00_JPRB, 0.148944E+00_JPRB, 0.141461E+00_JPRB &
+  &, 0.134238E+00_JPRB, 0.127271E+00_JPRB, 0.120584E+00_JPRB, 0.114172E+00_JPRB &
+  &, 0.107991E+00_JPRB, 0.102063E+00_JPRB, 0.964102E-01_JPRB &
+  &, 0.909493E-01_JPRB, 0.857710E-01_JPRB, 0.807866E-01_JPRB, 0.760510E-01_JPRB &
+  &, 0.715454E-01_JPRB, 0.672491E-01_JPRB, 0.631391E-01_JPRB &
+  &, 0.592302E-01_JPRB, 0.555377E-01_JPRB, 0.520357E-01_JPRB, 0.486960E-01_JPRB &
+  &, 0.455308E-01_JPRB, 0.425525E-01_JPRB, 0.397296E-01_JPRB &
+  &, 0.370729E-01_JPRB, 0.345481E-01_JPRB, 0.321643E-01_JPRB, 0.299308E-01_JPRB &
+  &, 0.278573E-01_JPRB, 0.258566E-01_JPRB, 0.239836E-01_JPRB &
+  &, 0.222459E-01_JPRB, 0.206517E-01_JPRB, 0.191064E-01_JPRB, 0.176660E-01_JPRB &
+  &, 0.163365E-01_JPRB, 0.150706E-01_JPRB, 0.139268E-01_JPRB &
+  &, 0.128563E-01_JPRB, 0.118075E-01_JPRB, 0.108956E-01_JPRB, 0.100125E-01_JPRB &
+  &, 0.921846E-02_JPRB, 0.845888E-02_JPRB, 0.773590E-02_JPRB &
+  &, 0.711241E-02_JPRB, 0.653153E-02_JPRB, 0.593320E-02_JPRB, 0.544356E-02_JPRB &
+  &, 0.500343E-02_JPRB, 0.455032E-02_JPRB, 0.414980E-02_JPRB/)
+XCW( 557, :) = (/ &
+  &  0.101093E+01_JPRB, 0.101263E+01_JPRB, 0.101390E+01_JPRB, 0.101476E+01_JPRB &
+  &, 0.101520E+01_JPRB, 0.101521E+01_JPRB, 0.101479E+01_JPRB &
+  &, 0.101396E+01_JPRB, 0.101270E+01_JPRB, 0.101101E+01_JPRB, 0.100889E+01_JPRB &
+  &, 0.100636E+01_JPRB, 0.100339E+01_JPRB, 0.100001E+01_JPRB &
+  &, 0.996196E+00_JPRB, 0.991967E+00_JPRB, 0.987316E+00_JPRB, 0.982251E+00_JPRB &
+  &, 0.976769E+00_JPRB, 0.970876E+00_JPRB, 0.964576E+00_JPRB &
+  &, 0.957872E+00_JPRB, 0.950769E+00_JPRB, 0.943275E+00_JPRB, 0.935387E+00_JPRB &
+  &, 0.927121E+00_JPRB, 0.918475E+00_JPRB, 0.909464E+00_JPRB &
+  &, 0.900090E+00_JPRB, 0.890359E+00_JPRB, 0.880289E+00_JPRB, 0.869880E+00_JPRB &
+  &, 0.859149E+00_JPRB, 0.848102E+00_JPRB, 0.836749E+00_JPRB &
+  &, 0.825100E+00_JPRB, 0.813179E+00_JPRB, 0.800986E+00_JPRB, 0.788545E+00_JPRB &
+  &, 0.775855E+00_JPRB, 0.762936E+00_JPRB, 0.749805E+00_JPRB &
+  &, 0.736478E+00_JPRB, 0.722965E+00_JPRB, 0.709280E+00_JPRB, 0.695436E+00_JPRB &
+  &, 0.681460E+00_JPRB, 0.667361E+00_JPRB, 0.653156E+00_JPRB &
+  &, 0.638869E+00_JPRB, 0.624495E+00_JPRB, 0.610057E+00_JPRB, 0.595594E+00_JPRB &
+  &, 0.581090E+00_JPRB, 0.566585E+00_JPRB, 0.552077E+00_JPRB &
+  &, 0.537592E+00_JPRB, 0.523143E+00_JPRB, 0.508742E+00_JPRB, 0.494415E+00_JPRB &
+  &, 0.480176E+00_JPRB, 0.466018E+00_JPRB, 0.451967E+00_JPRB &
+  &, 0.438051E+00_JPRB, 0.424262E+00_JPRB, 0.410624E+00_JPRB, 0.397145E+00_JPRB &
+  &, 0.383831E+00_JPRB, 0.370705E+00_JPRB, 0.357772E+00_JPRB &
+  &, 0.345054E+00_JPRB, 0.332531E+00_JPRB, 0.320246E+00_JPRB, 0.308176E+00_JPRB &
+  &, 0.296337E+00_JPRB, 0.284749E+00_JPRB, 0.273428E+00_JPRB &
+  &, 0.262344E+00_JPRB, 0.251508E+00_JPRB, 0.240959E+00_JPRB, 0.230660E+00_JPRB &
+  &, 0.220645E+00_JPRB, 0.210899E+00_JPRB, 0.201428E+00_JPRB &
+  &, 0.192240E+00_JPRB, 0.183339E+00_JPRB, 0.174703E+00_JPRB, 0.166330E+00_JPRB &
+  &, 0.158253E+00_JPRB, 0.150441E+00_JPRB, 0.142891E+00_JPRB &
+  &, 0.135631E+00_JPRB, 0.128624E+00_JPRB, 0.121897E+00_JPRB, 0.115441E+00_JPRB &
+  &, 0.109214E+00_JPRB, 0.103238E+00_JPRB, 0.975356E-01_JPRB &
+  &, 0.920583E-01_JPRB, 0.867898E-01_JPRB, 0.817856E-01_JPRB, 0.770292E-01_JPRB &
+  &, 0.724635E-01_JPRB, 0.681047E-01_JPRB, 0.639692E-01_JPRB &
+  &, 0.600337E-01_JPRB, 0.563134E-01_JPRB, 0.527410E-01_JPRB, 0.493704E-01_JPRB &
+  &, 0.462160E-01_JPRB, 0.431615E-01_JPRB, 0.403039E-01_JPRB &
+  &, 0.376114E-01_JPRB, 0.350949E-01_JPRB, 0.326732E-01_JPRB, 0.304005E-01_JPRB &
+  &, 0.282864E-01_JPRB, 0.262923E-01_JPRB, 0.244257E-01_JPRB &
+  &, 0.226448E-01_JPRB, 0.210059E-01_JPRB, 0.194658E-01_JPRB, 0.179785E-01_JPRB &
+  &, 0.166535E-01_JPRB, 0.153922E-01_JPRB, 0.141986E-01_JPRB &
+  &, 0.130768E-01_JPRB, 0.120870E-01_JPRB, 0.111224E-01_JPRB, 0.102425E-01_JPRB &
+  &, 0.939331E-02_JPRB, 0.863613E-02_JPRB, 0.791558E-02_JPRB &
+  &, 0.723382E-02_JPRB, 0.665458E-02_JPRB, 0.605789E-02_JPRB, 0.556992E-02_JPRB &
+  &, 0.506745E-02_JPRB, 0.461519E-02_JPRB, 0.421551E-02_JPRB/)
+XCW( 558, :) = (/ &
+  &  0.101119E+01_JPRB, 0.101295E+01_JPRB, 0.101429E+01_JPRB, 0.101521E+01_JPRB &
+  &, 0.101571E+01_JPRB, 0.101578E+01_JPRB, 0.101544E+01_JPRB &
+  &, 0.101466E+01_JPRB, 0.101347E+01_JPRB, 0.101184E+01_JPRB, 0.100979E+01_JPRB &
+  &, 0.100731E+01_JPRB, 0.100441E+01_JPRB, 0.100109E+01_JPRB &
+  &, 0.997342E+00_JPRB, 0.993172E+00_JPRB, 0.988583E+00_JPRB, 0.983575E+00_JPRB &
+  &, 0.978154E+00_JPRB, 0.972319E+00_JPRB, 0.966077E+00_JPRB &
+  &, 0.959431E+00_JPRB, 0.952384E+00_JPRB, 0.944941E+00_JPRB, 0.937110E+00_JPRB &
+  &, 0.928892E+00_JPRB, 0.920301E+00_JPRB, 0.911337E+00_JPRB &
+  &, 0.902010E+00_JPRB, 0.892330E+00_JPRB, 0.882305E+00_JPRB, 0.871943E+00_JPRB &
+  &, 0.861250E+00_JPRB, 0.850248E+00_JPRB, 0.838935E+00_JPRB &
+  &, 0.827323E+00_JPRB, 0.815439E+00_JPRB, 0.803284E+00_JPRB, 0.790871E+00_JPRB &
+  &, 0.778209E+00_JPRB, 0.765328E+00_JPRB, 0.752225E+00_JPRB &
+  &, 0.738914E+00_JPRB, 0.725429E+00_JPRB, 0.711770E+00_JPRB, 0.697952E+00_JPRB &
+  &, 0.683990E+00_JPRB, 0.669902E+00_JPRB, 0.655709E+00_JPRB &
+  &, 0.641431E+00_JPRB, 0.627065E+00_JPRB, 0.612634E+00_JPRB, 0.598177E+00_JPRB &
+  &, 0.583677E+00_JPRB, 0.569160E+00_JPRB, 0.554651E+00_JPRB &
+  &, 0.540165E+00_JPRB, 0.525712E+00_JPRB, 0.511305E+00_JPRB, 0.496971E+00_JPRB &
+  &, 0.482705E+00_JPRB, 0.468535E+00_JPRB, 0.454470E+00_JPRB &
+  &, 0.440537E+00_JPRB, 0.426729E+00_JPRB, 0.413069E+00_JPRB, 0.399567E+00_JPRB &
+  &, 0.386225E+00_JPRB, 0.373070E+00_JPRB, 0.360105E+00_JPRB &
+  &, 0.347352E+00_JPRB, 0.334792E+00_JPRB, 0.322467E+00_JPRB, 0.310375E+00_JPRB &
+  &, 0.298513E+00_JPRB, 0.286875E+00_JPRB, 0.275503E+00_JPRB &
+  &, 0.264387E+00_JPRB, 0.253517E+00_JPRB, 0.242907E+00_JPRB, 0.232595E+00_JPRB &
+  &, 0.222513E+00_JPRB, 0.212722E+00_JPRB, 0.203232E+00_JPRB &
+  &, 0.193994E+00_JPRB, 0.185014E+00_JPRB, 0.176350E+00_JPRB, 0.167921E+00_JPRB &
+  &, 0.159813E+00_JPRB, 0.151938E+00_JPRB, 0.144353E+00_JPRB &
+  &, 0.137056E+00_JPRB, 0.130010E+00_JPRB, 0.123209E+00_JPRB, 0.116710E+00_JPRB &
+  &, 0.110437E+00_JPRB, 0.104413E+00_JPRB, 0.986610E-01_JPRB &
+  &, 0.931315E-01_JPRB, 0.878449E-01_JPRB, 0.828217E-01_JPRB, 0.779699E-01_JPRB &
+  &, 0.733816E-01_JPRB, 0.689991E-01_JPRB, 0.648389E-01_JPRB &
+  &, 0.608372E-01_JPRB, 0.570892E-01_JPRB, 0.534878E-01_JPRB, 0.500870E-01_JPRB &
+  &, 0.468583E-01_JPRB, 0.438140E-01_JPRB, 0.409225E-01_JPRB &
+  &, 0.381947E-01_JPRB, 0.356416E-01_JPRB, 0.331821E-01_JPRB, 0.309172E-01_JPRB &
+  &, 0.287633E-01_JPRB, 0.267279E-01_JPRB, 0.248187E-01_JPRB &
+  &, 0.230436E-01_JPRB, 0.213600E-01_JPRB, 0.197738E-01_JPRB, 0.183431E-01_JPRB &
+  &, 0.169705E-01_JPRB, 0.156602E-01_JPRB, 0.144704E-01_JPRB &
+  &, 0.133525E-01_JPRB, 0.123107E-01_JPRB, 0.113492E-01_JPRB, 0.104149E-01_JPRB &
+  &, 0.956815E-02_JPRB, 0.881338E-02_JPRB, 0.809525E-02_JPRB &
+  &, 0.741593E-02_JPRB, 0.677763E-02_JPRB, 0.624494E-02_JPRB, 0.569628E-02_JPRB &
+  &, 0.519549E-02_JPRB, 0.474491E-02_JPRB, 0.434694E-02_JPRB/)
+XCW( 559, :) = (/ &
+  &  0.101144E+01_JPRB, 0.101327E+01_JPRB, 0.101467E+01_JPRB, 0.101566E+01_JPRB &
+  &, 0.101622E+01_JPRB, 0.101636E+01_JPRB, 0.101608E+01_JPRB &
+  &, 0.101537E+01_JPRB, 0.101423E+01_JPRB, 0.101267E+01_JPRB, 0.101069E+01_JPRB &
+  &, 0.100827E+01_JPRB, 0.100544E+01_JPRB, 0.100217E+01_JPRB &
+  &, 0.998487E+00_JPRB, 0.994379E+00_JPRB, 0.989849E+00_JPRB, 0.984903E+00_JPRB &
+  &, 0.979539E+00_JPRB, 0.973763E+00_JPRB, 0.967578E+00_JPRB &
+  &, 0.960989E+00_JPRB, 0.953998E+00_JPRB, 0.946610E+00_JPRB, 0.938833E+00_JPRB &
+  &, 0.930667E+00_JPRB, 0.922126E+00_JPRB, 0.913215E+00_JPRB &
+  &, 0.903938E+00_JPRB, 0.894302E+00_JPRB, 0.884322E+00_JPRB, 0.874006E+00_JPRB &
+  &, 0.863360E+00_JPRB, 0.852393E+00_JPRB, 0.841126E+00_JPRB &
+  &, 0.829555E+00_JPRB, 0.817709E+00_JPRB, 0.805581E+00_JPRB, 0.793207E+00_JPRB &
+  &, 0.780573E+00_JPRB, 0.767720E+00_JPRB, 0.754644E+00_JPRB &
+  &, 0.741361E+00_JPRB, 0.727903E+00_JPRB, 0.714260E+00_JPRB, 0.700456E+00_JPRB &
+  &, 0.686519E+00_JPRB, 0.672456E+00_JPRB, 0.658274E+00_JPRB &
+  &, 0.643993E+00_JPRB, 0.629649E+00_JPRB, 0.615226E+00_JPRB, 0.600760E+00_JPRB &
+  &, 0.586264E+00_JPRB, 0.571763E+00_JPRB, 0.557256E+00_JPRB &
+  &, 0.542753E+00_JPRB, 0.528297E+00_JPRB, 0.513885E+00_JPRB, 0.499527E+00_JPRB &
+  &, 0.485252E+00_JPRB, 0.471069E+00_JPRB, 0.456990E+00_JPRB &
+  &, 0.443042E+00_JPRB, 0.429214E+00_JPRB, 0.415515E+00_JPRB, 0.401988E+00_JPRB &
+  &, 0.388640E+00_JPRB, 0.375456E+00_JPRB, 0.362459E+00_JPRB &
+  &, 0.349672E+00_JPRB, 0.337075E+00_JPRB, 0.324731E+00_JPRB, 0.312574E+00_JPRB &
+  &, 0.300688E+00_JPRB, 0.289025E+00_JPRB, 0.277601E+00_JPRB &
+  &, 0.266430E+00_JPRB, 0.255527E+00_JPRB, 0.244881E+00_JPRB, 0.234504E+00_JPRB &
+  &, 0.224406E+00_JPRB, 0.214572E+00_JPRB, 0.205008E+00_JPRB &
+  &, 0.195721E+00_JPRB, 0.186716E+00_JPRB, 0.177998E+00_JPRB, 0.169540E+00_JPRB &
+  &, 0.161373E+00_JPRB, 0.153465E+00_JPRB, 0.145815E+00_JPRB &
+  &, 0.138481E+00_JPRB, 0.131364E+00_JPRB, 0.124554E+00_JPRB, 0.117979E+00_JPRB &
+  &, 0.111660E+00_JPRB, 0.105623E+00_JPRB, 0.998216E-01_JPRB &
+  &, 0.942406E-01_JPRB, 0.889365E-01_JPRB, 0.838208E-01_JPRB, 0.789858E-01_JPRB &
+  &, 0.743380E-01_JPRB, 0.698936E-01_JPRB, 0.656690E-01_JPRB &
+  &, 0.616809E-01_JPRB, 0.578649E-01_JPRB, 0.542346E-01_JPRB, 0.508036E-01_JPRB &
+  &, 0.475435E-01_JPRB, 0.444664E-01_JPRB, 0.415410E-01_JPRB &
+  &, 0.387780E-01_JPRB, 0.361884E-01_JPRB, 0.337373E-01_JPRB, 0.313869E-01_JPRB &
+  &, 0.292401E-01_JPRB, 0.271635E-01_JPRB, 0.252608E-01_JPRB &
+  &, 0.234425E-01_JPRB, 0.217141E-01_JPRB, 0.201331E-01_JPRB, 0.186555E-01_JPRB &
+  &, 0.172347E-01_JPRB, 0.159282E-01_JPRB, 0.147422E-01_JPRB &
+  &, 0.135730E-01_JPRB, 0.125343E-01_JPRB, 0.115760E-01_JPRB, 0.106449E-01_JPRB &
+  &, 0.980128E-02_JPRB, 0.899063E-02_JPRB, 0.827492E-02_JPRB &
+  &, 0.759804E-02_JPRB, 0.696220E-02_JPRB, 0.636964E-02_JPRB, 0.582264E-02_JPRB &
+  &, 0.532352E-02_JPRB, 0.487463E-02_JPRB, 0.441265E-02_JPRB/)
+XCW( 560, :) = (/ &
+  &  0.101170E+01_JPRB, 0.101359E+01_JPRB, 0.101506E+01_JPRB, 0.101611E+01_JPRB &
+  &, 0.101673E+01_JPRB, 0.101694E+01_JPRB, 0.101672E+01_JPRB &
+  &, 0.101607E+01_JPRB, 0.101500E+01_JPRB, 0.101351E+01_JPRB, 0.101158E+01_JPRB &
+  &, 0.100923E+01_JPRB, 0.100646E+01_JPRB, 0.100326E+01_JPRB &
+  &, 0.999635E+00_JPRB, 0.995587E+00_JPRB, 0.991119E+00_JPRB, 0.986232E+00_JPRB &
+  &, 0.980927E+00_JPRB, 0.975209E+00_JPRB, 0.969083E+00_JPRB &
+  &, 0.962551E+00_JPRB, 0.955612E+00_JPRB, 0.948279E+00_JPRB, 0.940556E+00_JPRB &
+  &, 0.932446E+00_JPRB, 0.923955E+00_JPRB, 0.915093E+00_JPRB &
+  &, 0.905865E+00_JPRB, 0.896281E+00_JPRB, 0.886346E+00_JPRB, 0.876073E+00_JPRB &
+  &, 0.865471E+00_JPRB, 0.854548E+00_JPRB, 0.843317E+00_JPRB &
+  &, 0.831788E+00_JPRB, 0.819978E+00_JPRB, 0.807889E+00_JPRB, 0.795543E+00_JPRB &
+  &, 0.782947E+00_JPRB, 0.770123E+00_JPRB, 0.757075E+00_JPRB &
+  &, 0.743820E+00_JPRB, 0.730378E+00_JPRB, 0.716761E+00_JPRB, 0.702984E+00_JPRB &
+  &, 0.689061E+00_JPRB, 0.675010E+00_JPRB, 0.660840E+00_JPRB &
+  &, 0.646582E+00_JPRB, 0.632233E+00_JPRB, 0.617817E+00_JPRB, 0.603357E+00_JPRB &
+  &, 0.588865E+00_JPRB, 0.574367E+00_JPRB, 0.559845E+00_JPRB &
+  &, 0.545356E+00_JPRB, 0.530882E+00_JPRB, 0.516464E+00_JPRB, 0.502100E+00_JPRB &
+  &, 0.487815E+00_JPRB, 0.473621E+00_JPRB, 0.459529E+00_JPRB &
+  &, 0.445546E+00_JPRB, 0.431700E+00_JPRB, 0.417979E+00_JPRB, 0.404429E+00_JPRB &
+  &, 0.391055E+00_JPRB, 0.377842E+00_JPRB, 0.364813E+00_JPRB &
+  &, 0.351992E+00_JPRB, 0.339379E+00_JPRB, 0.326973E+00_JPRB, 0.314817E+00_JPRB &
+  &, 0.302864E+00_JPRB, 0.291175E+00_JPRB, 0.279699E+00_JPRB &
+  &, 0.268497E+00_JPRB, 0.257561E+00_JPRB, 0.246879E+00_JPRB, 0.236464E+00_JPRB &
+  &, 0.226300E+00_JPRB, 0.216422E+00_JPRB, 0.206811E+00_JPRB &
+  &, 0.197503E+00_JPRB, 0.188447E+00_JPRB, 0.179675E+00_JPRB, 0.171160E+00_JPRB &
+  &, 0.162932E+00_JPRB, 0.154992E+00_JPRB, 0.147308E+00_JPRB &
+  &, 0.139906E+00_JPRB, 0.132750E+00_JPRB, 0.125900E+00_JPRB, 0.119281E+00_JPRB &
+  &, 0.112918E+00_JPRB, 0.106833E+00_JPRB, 0.100982E+00_JPRB &
+  &, 0.953496E-01_JPRB, 0.899917E-01_JPRB, 0.848569E-01_JPRB, 0.799640E-01_JPRB &
+  &, 0.752944E-01_JPRB, 0.708269E-01_JPRB, 0.665386E-01_JPRB &
+  &, 0.625246E-01_JPRB, 0.586407E-01_JPRB, 0.549813E-01_JPRB, 0.515202E-01_JPRB &
+  &, 0.482286E-01_JPRB, 0.451189E-01_JPRB, 0.421596E-01_JPRB &
+  &, 0.393613E-01_JPRB, 0.367352E-01_JPRB, 0.342462E-01_JPRB, 0.319036E-01_JPRB &
+  &, 0.297169E-01_JPRB, 0.276475E-01_JPRB, 0.256538E-01_JPRB &
+  &, 0.238413E-01_JPRB, 0.221189E-01_JPRB, 0.204925E-01_JPRB, 0.189680E-01_JPRB &
+  &, 0.175517E-01_JPRB, 0.162497E-01_JPRB, 0.150140E-01_JPRB &
+  &, 0.138487E-01_JPRB, 0.127580E-01_JPRB, 0.118028E-01_JPRB, 0.108748E-01_JPRB &
+  &, 0.997612E-02_JPRB, 0.916788E-02_JPRB, 0.845459E-02_JPRB &
+  &, 0.771945E-02_JPRB, 0.708525E-02_JPRB, 0.649434E-02_JPRB, 0.594901E-02_JPRB &
+  &, 0.545156E-02_JPRB, 0.500436E-02_JPRB, 0.454407E-02_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART80',1,ZHOOK_HANDLE)
+END SUBROUTINE PART80
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART81
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART81',0,ZHOOK_HANDLE)
+
+XCW( 561, :) = (/ &
+  &  0.101195E+01_JPRB, 0.101391E+01_JPRB, 0.101544E+01_JPRB, 0.101655E+01_JPRB &
+  &, 0.101725E+01_JPRB, 0.101752E+01_JPRB, 0.101736E+01_JPRB &
+  &, 0.101678E+01_JPRB, 0.101578E+01_JPRB, 0.101434E+01_JPRB, 0.101248E+01_JPRB &
+  &, 0.101020E+01_JPRB, 0.100748E+01_JPRB, 0.100434E+01_JPRB &
+  &, 0.100078E+01_JPRB, 0.996797E+00_JPRB, 0.992390E+00_JPRB, 0.987562E+00_JPRB &
+  &, 0.982319E+00_JPRB, 0.976659E+00_JPRB, 0.970590E+00_JPRB &
+  &, 0.964112E+00_JPRB, 0.957234E+00_JPRB, 0.949956E+00_JPRB, 0.942286E+00_JPRB &
+  &, 0.934228E+00_JPRB, 0.925788E+00_JPRB, 0.916978E+00_JPRB &
+  &, 0.907797E+00_JPRB, 0.898261E+00_JPRB, 0.888375E+00_JPRB, 0.878148E+00_JPRB &
+  &, 0.867590E+00_JPRB, 0.856707E+00_JPRB, 0.845517E+00_JPRB &
+  &, 0.834029E+00_JPRB, 0.822248E+00_JPRB, 0.810197E+00_JPRB, 0.797889E+00_JPRB &
+  &, 0.785321E+00_JPRB, 0.772526E+00_JPRB, 0.759506E+00_JPRB &
+  &, 0.746279E+00_JPRB, 0.732864E+00_JPRB, 0.719263E+00_JPRB, 0.705511E+00_JPRB &
+  &, 0.691602E+00_JPRB, 0.677565E+00_JPRB, 0.663418E+00_JPRB &
+  &, 0.649157E+00_JPRB, 0.634831E+00_JPRB, 0.620422E+00_JPRB, 0.605968E+00_JPRB &
+  &, 0.591481E+00_JPRB, 0.576971E+00_JPRB, 0.562465E+00_JPRB &
+  &, 0.547960E+00_JPRB, 0.533498E+00_JPRB, 0.519060E+00_JPRB, 0.504689E+00_JPRB &
+  &, 0.490395E+00_JPRB, 0.476173E+00_JPRB, 0.462067E+00_JPRB &
+  &, 0.448068E+00_JPRB, 0.434204E+00_JPRB, 0.420463E+00_JPRB, 0.406889E+00_JPRB &
+  &, 0.393469E+00_JPRB, 0.380248E+00_JPRB, 0.367188E+00_JPRB &
+  &, 0.354333E+00_JPRB, 0.341682E+00_JPRB, 0.329259E+00_JPRB, 0.317039E+00_JPRB &
+  &, 0.305062E+00_JPRB, 0.293325E+00_JPRB, 0.281844E+00_JPRB &
+  &, 0.270589E+00_JPRB, 0.259595E+00_JPRB, 0.248878E+00_JPRB, 0.238373E+00_JPRB &
+  &, 0.228220E+00_JPRB, 0.218298E+00_JPRB, 0.208642E+00_JPRB &
+  &, 0.199257E+00_JPRB, 0.190178E+00_JPRB, 0.181351E+00_JPRB, 0.172809E+00_JPRB &
+  &, 0.164522E+00_JPRB, 0.156519E+00_JPRB, 0.148800E+00_JPRB &
+  &, 0.141362E+00_JPRB, 0.134169E+00_JPRB, 0.127245E+00_JPRB, 0.120583E+00_JPRB &
+  &, 0.114175E+00_JPRB, 0.108043E+00_JPRB, 0.102143E+00_JPRB &
+  &, 0.964944E-01_JPRB, 0.910833E-01_JPRB, 0.858929E-01_JPRB, 0.809423E-01_JPRB &
+  &, 0.762507E-01_JPRB, 0.717214E-01_JPRB, 0.674478E-01_JPRB &
+  &, 0.633683E-01_JPRB, 0.594573E-01_JPRB, 0.557696E-01_JPRB, 0.522790E-01_JPRB &
+  &, 0.489138E-01_JPRB, 0.457714E-01_JPRB, 0.427781E-01_JPRB &
+  &, 0.399895E-01_JPRB, 0.373275E-01_JPRB, 0.348014E-01_JPRB, 0.324203E-01_JPRB &
+  &, 0.301938E-01_JPRB, 0.280831E-01_JPRB, 0.260960E-01_JPRB &
+  &, 0.242402E-01_JPRB, 0.224730E-01_JPRB, 0.208518E-01_JPRB, 0.193326E-01_JPRB &
+  &, 0.178687E-01_JPRB, 0.165713E-01_JPRB, 0.152858E-01_JPRB &
+  &, 0.141244E-01_JPRB, 0.130375E-01_JPRB, 0.120295E-01_JPRB, 0.110473E-01_JPRB &
+  &, 0.102092E-01_JPRB, 0.934513E-02_JPRB, 0.863427E-02_JPRB &
+  &, 0.790156E-02_JPRB, 0.726982E-02_JPRB, 0.661904E-02_JPRB, 0.607537E-02_JPRB &
+  &, 0.557960E-02_JPRB, 0.506922E-02_JPRB, 0.467549E-02_JPRB/)
+XCW( 562, :) = (/ &
+  &  0.101221E+01_JPRB, 0.101423E+01_JPRB, 0.101583E+01_JPRB, 0.101701E+01_JPRB &
+  &, 0.101776E+01_JPRB, 0.101810E+01_JPRB, 0.101801E+01_JPRB &
+  &, 0.101749E+01_JPRB, 0.101655E+01_JPRB, 0.101518E+01_JPRB, 0.101338E+01_JPRB &
+  &, 0.101116E+01_JPRB, 0.100851E+01_JPRB, 0.100543E+01_JPRB &
+  &, 0.100193E+01_JPRB, 0.998008E+00_JPRB, 0.993661E+00_JPRB, 0.988894E+00_JPRB &
+  &, 0.983710E+00_JPRB, 0.978109E+00_JPRB, 0.972098E+00_JPRB &
+  &, 0.965677E+00_JPRB, 0.958855E+00_JPRB, 0.951632E+00_JPRB, 0.944016E+00_JPRB &
+  &, 0.936010E+00_JPRB, 0.927625E+00_JPRB, 0.918863E+00_JPRB &
+  &, 0.909732E+00_JPRB, 0.900244E+00_JPRB, 0.890404E+00_JPRB, 0.880223E+00_JPRB &
+  &, 0.869708E+00_JPRB, 0.858870E+00_JPRB, 0.847721E+00_JPRB &
+  &, 0.836271E+00_JPRB, 0.824527E+00_JPRB, 0.812514E+00_JPRB, 0.800235E+00_JPRB &
+  &, 0.787706E+00_JPRB, 0.774939E+00_JPRB, 0.761948E+00_JPRB &
+  &, 0.748748E+00_JPRB, 0.735350E+00_JPRB, 0.721776E+00_JPRB, 0.708039E+00_JPRB &
+  &, 0.694156E+00_JPRB, 0.680131E+00_JPRB, 0.665996E+00_JPRB &
+  &, 0.651759E+00_JPRB, 0.637428E+00_JPRB, 0.623041E+00_JPRB, 0.608593E+00_JPRB &
+  &, 0.594111E+00_JPRB, 0.579604E+00_JPRB, 0.565085E+00_JPRB &
+  &, 0.550579E+00_JPRB, 0.536099E+00_JPRB, 0.521672E+00_JPRB, 0.507278E+00_JPRB &
+  &, 0.492975E+00_JPRB, 0.478742E+00_JPRB, 0.464623E+00_JPRB &
+  &, 0.450609E+00_JPRB, 0.436708E+00_JPRB, 0.422965E+00_JPRB, 0.409349E+00_JPRB &
+  &, 0.395923E+00_JPRB, 0.382654E+00_JPRB, 0.369583E+00_JPRB &
+  &, 0.356694E+00_JPRB, 0.344008E+00_JPRB, 0.331545E+00_JPRB, 0.319305E+00_JPRB &
+  &, 0.307283E+00_JPRB, 0.295498E+00_JPRB, 0.283966E+00_JPRB &
+  &, 0.272680E+00_JPRB, 0.261654E+00_JPRB, 0.250877E+00_JPRB, 0.240385E+00_JPRB &
+  &, 0.230140E+00_JPRB, 0.220175E+00_JPRB, 0.210473E+00_JPRB &
+  &, 0.201067E+00_JPRB, 0.191909E+00_JPRB, 0.183028E+00_JPRB, 0.174458E+00_JPRB &
+  &, 0.166141E+00_JPRB, 0.158077E+00_JPRB, 0.150324E+00_JPRB &
+  &, 0.142819E+00_JPRB, 0.135587E+00_JPRB, 0.128623E+00_JPRB, 0.121919E+00_JPRB &
+  &, 0.115466E+00_JPRB, 0.109288E+00_JPRB, 0.103339E+00_JPRB &
+  &, 0.976392E-01_JPRB, 0.921748E-01_JPRB, 0.869660E-01_JPRB, 0.819582E-01_JPRB &
+  &, 0.772071E-01_JPRB, 0.726547E-01_JPRB, 0.683175E-01_JPRB &
+  &, 0.642120E-01_JPRB, 0.602739E-01_JPRB, 0.565579E-01_JPRB, 0.529956E-01_JPRB &
+  &, 0.496418E-01_JPRB, 0.464674E-01_JPRB, 0.434408E-01_JPRB &
+  &, 0.405728E-01_JPRB, 0.378743E-01_JPRB, 0.353566E-01_JPRB, 0.329370E-01_JPRB &
+  &, 0.306706E-01_JPRB, 0.285671E-01_JPRB, 0.265381E-01_JPRB &
+  &, 0.246390E-01_JPRB, 0.228778E-01_JPRB, 0.212111E-01_JPRB, 0.196972E-01_JPRB &
+  &, 0.182386E-01_JPRB, 0.168393E-01_JPRB, 0.155576E-01_JPRB &
+  &, 0.144000E-01_JPRB, 0.132612E-01_JPRB, 0.122563E-01_JPRB, 0.112772E-01_JPRB &
+  &, 0.103841E-01_JPRB, 0.958146E-02_JPRB, 0.881394E-02_JPRB &
+  &, 0.808368E-02_JPRB, 0.739287E-02_JPRB, 0.680609E-02_JPRB, 0.620173E-02_JPRB &
+  &, 0.570763E-02_JPRB, 0.519894E-02_JPRB, 0.474120E-02_JPRB/)
+XCW( 563, :) = (/ &
+  &  0.101247E+01_JPRB, 0.101455E+01_JPRB, 0.101621E+01_JPRB, 0.101746E+01_JPRB &
+  &, 0.101828E+01_JPRB, 0.101868E+01_JPRB, 0.101865E+01_JPRB &
+  &, 0.101820E+01_JPRB, 0.101732E+01_JPRB, 0.101601E+01_JPRB, 0.101428E+01_JPRB &
+  &, 0.101212E+01_JPRB, 0.100954E+01_JPRB, 0.100652E+01_JPRB &
+  &, 0.100308E+01_JPRB, 0.999221E+00_JPRB, 0.994935E+00_JPRB, 0.990228E+00_JPRB &
+  &, 0.985103E+00_JPRB, 0.979562E+00_JPRB, 0.973609E+00_JPRB &
+  &, 0.967245E+00_JPRB, 0.960479E+00_JPRB, 0.953312E+00_JPRB, 0.945749E+00_JPRB &
+  &, 0.937796E+00_JPRB, 0.929465E+00_JPRB, 0.920752E+00_JPRB &
+  &, 0.911676E+00_JPRB, 0.902232E+00_JPRB, 0.892441E+00_JPRB, 0.882303E+00_JPRB &
+  &, 0.871832E+00_JPRB, 0.861038E+00_JPRB, 0.849930E+00_JPRB &
+  &, 0.838522E+00_JPRB, 0.826816E+00_JPRB, 0.814841E+00_JPRB, 0.802591E+00_JPRB &
+  &, 0.790091E+00_JPRB, 0.777363E+00_JPRB, 0.764400E+00_JPRB &
+  &, 0.751229E+00_JPRB, 0.737859E+00_JPRB, 0.724301E+00_JPRB, 0.710591E+00_JPRB &
+  &, 0.696722E+00_JPRB, 0.682710E+00_JPRB, 0.668587E+00_JPRB &
+  &, 0.654361E+00_JPRB, 0.640053E+00_JPRB, 0.625660E+00_JPRB, 0.611219E+00_JPRB &
+  &, 0.596741E+00_JPRB, 0.582223E+00_JPRB, 0.567719E+00_JPRB &
+  &, 0.553213E+00_JPRB, 0.538731E+00_JPRB, 0.524284E+00_JPRB, 0.509883E+00_JPRB &
+  &, 0.495573E+00_JPRB, 0.481329E+00_JPRB, 0.467179E+00_JPRB &
+  &, 0.453149E+00_JPRB, 0.439231E+00_JPRB, 0.425468E+00_JPRB, 0.411829E+00_JPRB &
+  &, 0.398378E+00_JPRB, 0.385080E+00_JPRB, 0.371979E+00_JPRB &
+  &, 0.359056E+00_JPRB, 0.346333E+00_JPRB, 0.333853E+00_JPRB, 0.321571E+00_JPRB &
+  &, 0.309505E+00_JPRB, 0.297695E+00_JPRB, 0.286112E+00_JPRB &
+  &, 0.274796E+00_JPRB, 0.263713E+00_JPRB, 0.252901E+00_JPRB, 0.242372E+00_JPRB &
+  &, 0.232086E+00_JPRB, 0.222079E+00_JPRB, 0.212331E+00_JPRB &
+  &, 0.202850E+00_JPRB, 0.193668E+00_JPRB, 0.184763E+00_JPRB, 0.176107E+00_JPRB &
+  &, 0.167731E+00_JPRB, 0.159666E+00_JPRB, 0.151848E+00_JPRB &
+  &, 0.144276E+00_JPRB, 0.137005E+00_JPRB, 0.130001E+00_JPRB, 0.123254E+00_JPRB &
+  &, 0.116757E+00_JPRB, 0.110498E+00_JPRB, 0.104534E+00_JPRB &
+  &, 0.987839E-01_JPRB, 0.933028E-01_JPRB, 0.880391E-01_JPRB, 0.830117E-01_JPRB &
+  &, 0.782017E-01_JPRB, 0.735881E-01_JPRB, 0.692267E-01_JPRB &
+  &, 0.650558E-01_JPRB, 0.610904E-01_JPRB, 0.573462E-01_JPRB, 0.537543E-01_JPRB &
+  &, 0.503698E-01_JPRB, 0.471199E-01_JPRB, 0.441036E-01_JPRB &
+  &, 0.412010E-01_JPRB, 0.384667E-01_JPRB, 0.359117E-01_JPRB, 0.334537E-01_JPRB &
+  &, 0.311951E-01_JPRB, 0.290028E-01_JPRB, 0.269803E-01_JPRB &
+  &, 0.250877E-01_JPRB, 0.232825E-01_JPRB, 0.216218E-01_JPRB, 0.200097E-01_JPRB &
+  &, 0.185556E-01_JPRB, 0.171609E-01_JPRB, 0.158838E-01_JPRB &
+  &, 0.146757E-01_JPRB, 0.135407E-01_JPRB, 0.124831E-01_JPRB, 0.115071E-01_JPRB &
+  &, 0.106172E-01_JPRB, 0.975871E-02_JPRB, 0.899361E-02_JPRB &
+  &, 0.826579E-02_JPRB, 0.757744E-02_JPRB, 0.693079E-02_JPRB, 0.632809E-02_JPRB &
+  &, 0.583567E-02_JPRB, 0.532866E-02_JPRB, 0.487262E-02_JPRB/)
+XCW( 564, :) = (/ &
+  &  0.101272E+01_JPRB, 0.101487E+01_JPRB, 0.101660E+01_JPRB, 0.101791E+01_JPRB &
+  &, 0.101879E+01_JPRB, 0.101926E+01_JPRB, 0.101929E+01_JPRB &
+  &, 0.101891E+01_JPRB, 0.101809E+01_JPRB, 0.101685E+01_JPRB, 0.101518E+01_JPRB &
+  &, 0.101309E+01_JPRB, 0.101056E+01_JPRB, 0.100761E+01_JPRB &
+  &, 0.100424E+01_JPRB, 0.100043E+01_JPRB, 0.996211E+00_JPRB, 0.991565E+00_JPRB &
+  &, 0.986498E+00_JPRB, 0.981015E+00_JPRB, 0.975120E+00_JPRB &
+  &, 0.968817E+00_JPRB, 0.962104E+00_JPRB, 0.954995E+00_JPRB, 0.947486E+00_JPRB &
+  &, 0.939590E+00_JPRB, 0.931305E+00_JPRB, 0.922649E+00_JPRB &
+  &, 0.913619E+00_JPRB, 0.904227E+00_JPRB, 0.894478E+00_JPRB, 0.884386E+00_JPRB &
+  &, 0.873963E+00_JPRB, 0.863210E+00_JPRB, 0.852144E+00_JPRB &
+  &, 0.840773E+00_JPRB, 0.829105E+00_JPRB, 0.817168E+00_JPRB, 0.804957E+00_JPRB &
+  &, 0.792486E+00_JPRB, 0.779787E+00_JPRB, 0.766852E+00_JPRB &
+  &, 0.753709E+00_JPRB, 0.740356E+00_JPRB, 0.726837E+00_JPRB, 0.713131E+00_JPRB &
+  &, 0.699288E+00_JPRB, 0.685302E+00_JPRB, 0.671191E+00_JPRB &
+  &, 0.656975E+00_JPRB, 0.642664E+00_JPRB, 0.628292E+00_JPRB, 0.613858E+00_JPRB &
+  &, 0.599371E+00_JPRB, 0.584871E+00_JPRB, 0.570354E+00_JPRB &
+  &, 0.555848E+00_JPRB, 0.541364E+00_JPRB, 0.526913E+00_JPRB, 0.512506E+00_JPRB &
+  &, 0.498170E+00_JPRB, 0.483916E+00_JPRB, 0.469753E+00_JPRB &
+  &, 0.455708E+00_JPRB, 0.441772E+00_JPRB, 0.427970E+00_JPRB, 0.414328E+00_JPRB &
+  &, 0.400832E+00_JPRB, 0.387526E+00_JPRB, 0.374374E+00_JPRB &
+  &, 0.361439E+00_JPRB, 0.348680E+00_JPRB, 0.336162E+00_JPRB, 0.323837E+00_JPRB &
+  &, 0.311749E+00_JPRB, 0.299891E+00_JPRB, 0.288282E+00_JPRB &
+  &, 0.276912E+00_JPRB, 0.265797E+00_JPRB, 0.254950E+00_JPRB, 0.244358E+00_JPRB &
+  &, 0.234032E+00_JPRB, 0.223982E+00_JPRB, 0.214189E+00_JPRB &
+  &, 0.204688E+00_JPRB, 0.195427E+00_JPRB, 0.186468E+00_JPRB, 0.177786E+00_JPRB &
+  &, 0.169381E+00_JPRB, 0.161223E+00_JPRB, 0.153372E+00_JPRB &
+  &, 0.145764E+00_JPRB, 0.138456E+00_JPRB, 0.131379E+00_JPRB, 0.124590E+00_JPRB &
+  &, 0.118048E+00_JPRB, 0.111777E+00_JPRB, 0.105730E+00_JPRB &
+  &, 0.999645E-01_JPRB, 0.943944E-01_JPRB, 0.891121E-01_JPRB, 0.840276E-01_JPRB &
+  &, 0.791963E-01_JPRB, 0.745603E-01_JPRB, 0.701359E-01_JPRB &
+  &, 0.659396E-01_JPRB, 0.619479E-01_JPRB, 0.581344E-01_JPRB, 0.545130E-01_JPRB &
+  &, 0.510978E-01_JPRB, 0.478159E-01_JPRB, 0.447221E-01_JPRB &
+  &, 0.418292E-01_JPRB, 0.390590E-01_JPRB, 0.364669E-01_JPRB, 0.340173E-01_JPRB &
+  &, 0.316720E-01_JPRB, 0.294868E-01_JPRB, 0.274224E-01_JPRB &
+  &, 0.254866E-01_JPRB, 0.236873E-01_JPRB, 0.219812E-01_JPRB, 0.203743E-01_JPRB &
+  &, 0.188726E-01_JPRB, 0.174825E-01_JPRB, 0.161556E-01_JPRB &
+  &, 0.149514E-01_JPRB, 0.138203E-01_JPRB, 0.127099E-01_JPRB, 0.117371E-01_JPRB &
+  &, 0.107921E-01_JPRB, 0.993596E-02_JPRB, 0.917328E-02_JPRB &
+  &, 0.838720E-02_JPRB, 0.770049E-02_JPRB, 0.711783E-02_JPRB, 0.651763E-02_JPRB &
+  &, 0.596371E-02_JPRB, 0.545839E-02_JPRB, 0.500405E-02_JPRB/)
+XCW( 565, :) = (/ &
+  &  0.101298E+01_JPRB, 0.101519E+01_JPRB, 0.101698E+01_JPRB, 0.101836E+01_JPRB &
+  &, 0.101931E+01_JPRB, 0.101984E+01_JPRB, 0.101994E+01_JPRB &
+  &, 0.101962E+01_JPRB, 0.101887E+01_JPRB, 0.101769E+01_JPRB, 0.101609E+01_JPRB &
+  &, 0.101405E+01_JPRB, 0.101159E+01_JPRB, 0.100871E+01_JPRB &
+  &, 0.100539E+01_JPRB, 0.100165E+01_JPRB, 0.997488E+00_JPRB, 0.992901E+00_JPRB &
+  &, 0.987896E+00_JPRB, 0.982474E+00_JPRB, 0.976635E+00_JPRB &
+  &, 0.970388E+00_JPRB, 0.963735E+00_JPRB, 0.956678E+00_JPRB, 0.949227E+00_JPRB &
+  &, 0.941383E+00_JPRB, 0.933153E+00_JPRB, 0.924545E+00_JPRB &
+  &, 0.915558E+00_JPRB, 0.906222E+00_JPRB, 0.896523E+00_JPRB, 0.886479E+00_JPRB &
+  &, 0.876095E+00_JPRB, 0.865387E+00_JPRB, 0.854362E+00_JPRB &
+  &, 0.843033E+00_JPRB, 0.831403E+00_JPRB, 0.819496E+00_JPRB, 0.807323E+00_JPRB &
+  &, 0.794891E+00_JPRB, 0.782210E+00_JPRB, 0.769315E+00_JPRB &
+  &, 0.756190E+00_JPRB, 0.742876E+00_JPRB, 0.729373E+00_JPRB, 0.715694E+00_JPRB &
+  &, 0.701866E+00_JPRB, 0.687893E+00_JPRB, 0.673795E+00_JPRB &
+  &, 0.659590E+00_JPRB, 0.645302E+00_JPRB, 0.630925E+00_JPRB, 0.616497E+00_JPRB &
+  &, 0.602030E+00_JPRB, 0.587519E+00_JPRB, 0.573004E+00_JPRB &
+  &, 0.558498E+00_JPRB, 0.543996E+00_JPRB, 0.529541E+00_JPRB, 0.515128E+00_JPRB &
+  &, 0.500784E+00_JPRB, 0.486520E+00_JPRB, 0.472344E+00_JPRB &
+  &, 0.458267E+00_JPRB, 0.444313E+00_JPRB, 0.430510E+00_JPRB, 0.416827E+00_JPRB &
+  &, 0.403326E+00_JPRB, 0.389973E+00_JPRB, 0.376811E+00_JPRB &
+  &, 0.363822E+00_JPRB, 0.351049E+00_JPRB, 0.338492E+00_JPRB, 0.326126E+00_JPRB &
+  &, 0.314016E+00_JPRB, 0.302111E+00_JPRB, 0.290451E+00_JPRB &
+  &, 0.279052E+00_JPRB, 0.267906E+00_JPRB, 0.256999E+00_JPRB, 0.246370E+00_JPRB &
+  &, 0.236005E+00_JPRB, 0.225886E+00_JPRB, 0.216075E+00_JPRB &
+  &, 0.206498E+00_JPRB, 0.197215E+00_JPRB, 0.188203E+00_JPRB, 0.179464E+00_JPRB &
+  &, 0.170970E+00_JPRB, 0.162842E+00_JPRB, 0.154928E+00_JPRB &
+  &, 0.147284E+00_JPRB, 0.139906E+00_JPRB, 0.132790E+00_JPRB, 0.125959E+00_JPRB &
+  &, 0.119373E+00_JPRB, 0.113022E+00_JPRB, 0.106961E+00_JPRB &
+  &, 0.101145E+00_JPRB, 0.955587E-01_JPRB, 0.901852E-01_JPRB, 0.850811E-01_JPRB &
+  &, 0.801909E-01_JPRB, 0.755325E-01_JPRB, 0.710450E-01_JPRB &
+  &, 0.668235E-01_JPRB, 0.627644E-01_JPRB, 0.589227E-01_JPRB, 0.552718E-01_JPRB &
+  &, 0.518258E-01_JPRB, 0.485119E-01_JPRB, 0.454290E-01_JPRB &
+  &, 0.424574E-01_JPRB, 0.396513E-01_JPRB, 0.370221E-01_JPRB, 0.345340E-01_JPRB &
+  &, 0.321965E-01_JPRB, 0.299708E-01_JPRB, 0.279136E-01_JPRB &
+  &, 0.259353E-01_JPRB, 0.240920E-01_JPRB, 0.223918E-01_JPRB, 0.207388E-01_JPRB &
+  &, 0.192425E-01_JPRB, 0.178040E-01_JPRB, 0.164818E-01_JPRB &
+  &, 0.152271E-01_JPRB, 0.140439E-01_JPRB, 0.129934E-01_JPRB, 0.119670E-01_JPRB &
+  &, 0.110252E-01_JPRB, 0.101723E-01_JPRB, 0.935296E-02_JPRB &
+  &, 0.856931E-02_JPRB, 0.788506E-02_JPRB, 0.724253E-02_JPRB, 0.664400E-02_JPRB &
+  &, 0.609174E-02_JPRB, 0.558811E-02_JPRB, 0.506976E-02_JPRB/)
+XCW( 566, :) = (/ &
+  &  0.101324E+01_JPRB, 0.101551E+01_JPRB, 0.101737E+01_JPRB, 0.101881E+01_JPRB &
+  &, 0.101982E+01_JPRB, 0.102042E+01_JPRB, 0.102058E+01_JPRB &
+  &, 0.102033E+01_JPRB, 0.101964E+01_JPRB, 0.101853E+01_JPRB, 0.101699E+01_JPRB &
+  &, 0.101502E+01_JPRB, 0.101262E+01_JPRB, 0.100980E+01_JPRB &
+  &, 0.100655E+01_JPRB, 0.100287E+01_JPRB, 0.998766E+00_JPRB, 0.994241E+00_JPRB &
+  &, 0.989296E+00_JPRB, 0.983930E+00_JPRB, 0.978152E+00_JPRB &
+  &, 0.971963E+00_JPRB, 0.965366E+00_JPRB, 0.958364E+00_JPRB, 0.950968E+00_JPRB &
+  &, 0.943176E+00_JPRB, 0.935001E+00_JPRB, 0.926446E+00_JPRB &
+  &, 0.917513E+00_JPRB, 0.908222E+00_JPRB, 0.898568E+00_JPRB, 0.888571E+00_JPRB &
+  &, 0.878236E+00_JPRB, 0.867568E+00_JPRB, 0.856584E+00_JPRB &
+  &, 0.845293E+00_JPRB, 0.833702E+00_JPRB, 0.821833E+00_JPRB, 0.809699E+00_JPRB &
+  &, 0.797296E+00_JPRB, 0.784655E+00_JPRB, 0.771779E+00_JPRB &
+  &, 0.758682E+00_JPRB, 0.745396E+00_JPRB, 0.731910E+00_JPRB, 0.718258E+00_JPRB &
+  &, 0.704444E+00_JPRB, 0.690498E+00_JPRB, 0.676412E+00_JPRB &
+  &, 0.662218E+00_JPRB, 0.647940E+00_JPRB, 0.633585E+00_JPRB, 0.619151E+00_JPRB &
+  &, 0.604689E+00_JPRB, 0.590182E+00_JPRB, 0.575669E+00_JPRB &
+  &, 0.561148E+00_JPRB, 0.546660E+00_JPRB, 0.532186E+00_JPRB, 0.517767E+00_JPRB &
+  &, 0.503415E+00_JPRB, 0.489124E+00_JPRB, 0.474936E+00_JPRB &
+  &, 0.460844E+00_JPRB, 0.446892E+00_JPRB, 0.433050E+00_JPRB, 0.419345E+00_JPRB &
+  &, 0.405800E+00_JPRB, 0.392439E+00_JPRB, 0.379248E+00_JPRB &
+  &, 0.366226E+00_JPRB, 0.353417E+00_JPRB, 0.340822E+00_JPRB, 0.328437E+00_JPRB &
+  &, 0.316283E+00_JPRB, 0.303607E+00_JPRB, 0.292645E+00_JPRB &
+  &, 0.281217E+00_JPRB, 0.270014E+00_JPRB, 0.259074E+00_JPRB, 0.248382E+00_JPRB &
+  &, 0.237977E+00_JPRB, 0.227843E+00_JPRB, 0.217960E+00_JPRB &
+  &, 0.208336E+00_JPRB, 0.199031E+00_JPRB, 0.189966E+00_JPRB, 0.181172E+00_JPRB &
+  &, 0.172680E+00_JPRB, 0.164430E+00_JPRB, 0.156483E+00_JPRB &
+  &, 0.148772E+00_JPRB, 0.141357E+00_JPRB, 0.134200E+00_JPRB, 0.127328E+00_JPRB &
+  &, 0.120699E+00_JPRB, 0.114301E+00_JPRB, 0.108192E+00_JPRB &
+  &, 0.102326E+00_JPRB, 0.966867E-01_JPRB, 0.912953E-01_JPRB, 0.861346E-01_JPRB &
+  &, 0.811855E-01_JPRB, 0.765047E-01_JPRB, 0.719937E-01_JPRB &
+  &, 0.677074E-01_JPRB, 0.636218E-01_JPRB, 0.597524E-01_JPRB, 0.560727E-01_JPRB &
+  &, 0.525538E-01_JPRB, 0.492514E-01_JPRB, 0.460918E-01_JPRB &
+  &, 0.430856E-01_JPRB, 0.402893E-01_JPRB, 0.376235E-01_JPRB, 0.350977E-01_JPRB &
+  &, 0.327210E-01_JPRB, 0.304548E-01_JPRB, 0.283558E-01_JPRB &
+  &, 0.263840E-01_JPRB, 0.244967E-01_JPRB, 0.227512E-01_JPRB, 0.211034E-01_JPRB &
+  &, 0.195595E-01_JPRB, 0.181256E-01_JPRB, 0.168080E-01_JPRB &
+  &, 0.155027E-01_JPRB, 0.143235E-01_JPRB, 0.132202E-01_JPRB, 0.121970E-01_JPRB &
+  &, 0.112583E-01_JPRB, 0.103495E-01_JPRB, 0.953263E-02_JPRB &
+  &, 0.875142E-02_JPRB, 0.806963E-02_JPRB, 0.742958E-02_JPRB, 0.677036E-02_JPRB &
+  &, 0.621978E-02_JPRB, 0.571784E-02_JPRB, 0.520118E-02_JPRB/)
+XCW( 567, :) = (/ &
+  &  0.101349E+01_JPRB, 0.101583E+01_JPRB, 0.101776E+01_JPRB, 0.101926E+01_JPRB &
+  &, 0.102034E+01_JPRB, 0.102100E+01_JPRB, 0.102123E+01_JPRB &
+  &, 0.102104E+01_JPRB, 0.102042E+01_JPRB, 0.101937E+01_JPRB, 0.101789E+01_JPRB &
+  &, 0.101599E+01_JPRB, 0.101365E+01_JPRB, 0.101087E+01_JPRB &
+  &, 0.100770E+01_JPRB, 0.100409E+01_JPRB, 0.100005E+01_JPRB, 0.995582E+00_JPRB &
+  &, 0.990697E+00_JPRB, 0.985393E+00_JPRB, 0.979673E+00_JPRB &
+  &, 0.973541E+00_JPRB, 0.967001E+00_JPRB, 0.960055E+00_JPRB, 0.952712E+00_JPRB &
+  &, 0.944977E+00_JPRB, 0.936852E+00_JPRB, 0.928346E+00_JPRB &
+  &, 0.919468E+00_JPRB, 0.910225E+00_JPRB, 0.900621E+00_JPRB, 0.890667E+00_JPRB &
+  &, 0.880376E+00_JPRB, 0.869754E+00_JPRB, 0.858812E+00_JPRB &
+  &, 0.847563E+00_JPRB, 0.836010E+00_JPRB, 0.824179E+00_JPRB, 0.812075E+00_JPRB &
+  &, 0.799712E+00_JPRB, 0.787100E+00_JPRB, 0.774252E+00_JPRB &
+  &, 0.761185E+00_JPRB, 0.747916E+00_JPRB, 0.734458E+00_JPRB, 0.720834E+00_JPRB &
+  &, 0.707035E+00_JPRB, 0.693102E+00_JPRB, 0.679041E+00_JPRB &
+  &, 0.664859E+00_JPRB, 0.650591E+00_JPRB, 0.636232E+00_JPRB, 0.621819E+00_JPRB &
+  &, 0.607348E+00_JPRB, 0.592859E+00_JPRB, 0.578334E+00_JPRB &
+  &, 0.563814E+00_JPRB, 0.549324E+00_JPRB, 0.534846E+00_JPRB, 0.520423E+00_JPRB &
+  &, 0.506047E+00_JPRB, 0.491745E+00_JPRB, 0.477545E+00_JPRB &
+  &, 0.463439E+00_JPRB, 0.449451E+00_JPRB, 0.435591E+00_JPRB, 0.421882E+00_JPRB &
+  &, 0.408313E+00_JPRB, 0.394906E+00_JPRB, 0.381684E+00_JPRB &
+  &, 0.368651E+00_JPRB, 0.355808E+00_JPRB, 0.343174E+00_JPRB, 0.330748E+00_JPRB &
+  &, 0.318550E+00_JPRB, 0.306575E+00_JPRB, 0.294862E+00_JPRB &
+  &, 0.283382E+00_JPRB, 0.272123E+00_JPRB, 0.261148E+00_JPRB, 0.250420E+00_JPRB &
+  &, 0.239976E+00_JPRB, 0.229773E+00_JPRB, 0.219846E+00_JPRB &
+  &, 0.210201E+00_JPRB, 0.200818E+00_JPRB, 0.191729E+00_JPRB, 0.182880E+00_JPRB &
+  &, 0.174330E+00_JPRB, 0.166049E+00_JPRB, 0.158038E+00_JPRB &
+  &, 0.150324E+00_JPRB, 0.142840E+00_JPRB, 0.135644E+00_JPRB, 0.128697E+00_JPRB &
+  &, 0.122024E+00_JPRB, 0.115614E+00_JPRB, 0.109423E+00_JPRB &
+  &, 0.103506E+00_JPRB, 0.978510E-01_JPRB, 0.924054E-01_JPRB, 0.871881E-01_JPRB &
+  &, 0.822184E-01_JPRB, 0.774770E-01_JPRB, 0.729425E-01_JPRB &
+  &, 0.686315E-01_JPRB, 0.644793E-01_JPRB, 0.605822E-01_JPRB, 0.568314E-01_JPRB &
+  &, 0.533246E-01_JPRB, 0.499474E-01_JPRB, 0.467545E-01_JPRB &
+  &, 0.437586E-01_JPRB, 0.408816E-01_JPRB, 0.381787E-01_JPRB, 0.356613E-01_JPRB &
+  &, 0.332455E-01_JPRB, 0.309872E-01_JPRB, 0.288470E-01_JPRB &
+  &, 0.268327E-01_JPRB, 0.249521E-01_JPRB, 0.231619E-01_JPRB, 0.214680E-01_JPRB &
+  &, 0.199294E-01_JPRB, 0.184472E-01_JPRB, 0.170798E-01_JPRB &
+  &, 0.158335E-01_JPRB, 0.146031E-01_JPRB, 0.135036E-01_JPRB, 0.124269E-01_JPRB &
+  &, 0.114914E-01_JPRB, 0.105859E-01_JPRB, 0.971230E-02_JPRB &
+  &, 0.893354E-02_JPRB, 0.825420E-02_JPRB, 0.755428E-02_JPRB, 0.695990E-02_JPRB &
+  &, 0.634782E-02_JPRB, 0.584756E-02_JPRB, 0.533260E-02_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART81',1,ZHOOK_HANDLE)
+END SUBROUTINE PART81
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART82
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART82',0,ZHOOK_HANDLE)
+
+XCW( 568, :) = (/ &
+  &  0.101375E+01_JPRB, 0.101616E+01_JPRB, 0.101814E+01_JPRB, 0.101971E+01_JPRB &
+  &, 0.102086E+01_JPRB, 0.102158E+01_JPRB, 0.102188E+01_JPRB &
+  &, 0.102175E+01_JPRB, 0.102119E+01_JPRB, 0.102021E+01_JPRB, 0.101880E+01_JPRB &
+  &, 0.101696E+01_JPRB, 0.101469E+01_JPRB, 0.101199E+01_JPRB &
+  &, 0.100886E+01_JPRB, 0.100531E+01_JPRB, 0.100133E+01_JPRB, 0.996925E+00_JPRB &
+  &, 0.992101E+00_JPRB, 0.986855E+00_JPRB, 0.981193E+00_JPRB &
+  &, 0.975120E+00_JPRB, 0.968636E+00_JPRB, 0.961748E+00_JPRB, 0.954460E+00_JPRB &
+  &, 0.946777E+00_JPRB, 0.938707E+00_JPRB, 0.930254E+00_JPRB &
+  &, 0.921427E+00_JPRB, 0.912229E+00_JPRB, 0.902675E+00_JPRB, 0.892772E+00_JPRB &
+  &, 0.882525E+00_JPRB, 0.871943E+00_JPRB, 0.861043E+00_JPRB &
+  &, 0.849832E+00_JPRB, 0.838327E+00_JPRB, 0.826526E+00_JPRB, 0.814461E+00_JPRB &
+  &, 0.802127E+00_JPRB, 0.789545E+00_JPRB, 0.776726E+00_JPRB &
+  &, 0.763699E+00_JPRB, 0.750448E+00_JPRB, 0.737018E+00_JPRB, 0.723409E+00_JPRB &
+  &, 0.709637E+00_JPRB, 0.695718E+00_JPRB, 0.681670E+00_JPRB &
+  &, 0.667514E+00_JPRB, 0.653242E+00_JPRB, 0.638906E+00_JPRB, 0.624486E+00_JPRB &
+  &, 0.610036E+00_JPRB, 0.595537E+00_JPRB, 0.581015E+00_JPRB &
+  &, 0.566495E+00_JPRB, 0.551989E+00_JPRB, 0.537507E+00_JPRB, 0.523078E+00_JPRB &
+  &, 0.508695E+00_JPRB, 0.494384E+00_JPRB, 0.480172E+00_JPRB &
+  &, 0.466052E+00_JPRB, 0.452048E+00_JPRB, 0.438150E+00_JPRB, 0.424420E+00_JPRB &
+  &, 0.410827E+00_JPRB, 0.397393E+00_JPRB, 0.384142E+00_JPRB &
+  &, 0.371076E+00_JPRB, 0.358198E+00_JPRB, 0.345548E+00_JPRB, 0.333082E+00_JPRB &
+  &, 0.320840E+00_JPRB, 0.308841E+00_JPRB, 0.297079E+00_JPRB &
+  &, 0.285546E+00_JPRB, 0.274281E+00_JPRB, 0.263248E+00_JPRB, 0.252484E+00_JPRB &
+  &, 0.241975E+00_JPRB, 0.231730E+00_JPRB, 0.221786E+00_JPRB &
+  &, 0.212067E+00_JPRB, 0.202663E+00_JPRB, 0.193493E+00_JPRB, 0.184617E+00_JPRB &
+  &, 0.176009E+00_JPRB, 0.167699E+00_JPRB, 0.159624E+00_JPRB &
+  &, 0.151843E+00_JPRB, 0.144322E+00_JPRB, 0.137088E+00_JPRB, 0.130099E+00_JPRB &
+  &, 0.123383E+00_JPRB, 0.116893E+00_JPRB, 0.110689E+00_JPRB &
+  &, 0.104723E+00_JPRB, 0.990153E-01_JPRB, 0.935155E-01_JPRB, 0.882792E-01_JPRB &
+  &, 0.832513E-01_JPRB, 0.784492E-01_JPRB, 0.738912E-01_JPRB &
+  &, 0.695153E-01_JPRB, 0.653775E-01_JPRB, 0.614120E-01_JPRB, 0.576323E-01_JPRB &
+  &, 0.540526E-01_JPRB, 0.506869E-01_JPRB, 0.474614E-01_JPRB &
+  &, 0.443868E-01_JPRB, 0.415195E-01_JPRB, 0.387802E-01_JPRB, 0.362250E-01_JPRB &
+  &, 0.337701E-01_JPRB, 0.314713E-01_JPRB, 0.292892E-01_JPRB &
+  &, 0.272814E-01_JPRB, 0.253568E-01_JPRB, 0.235725E-01_JPRB, 0.218847E-01_JPRB &
+  &, 0.202992E-01_JPRB, 0.188224E-01_JPRB, 0.174060E-01_JPRB &
+  &, 0.161092E-01_JPRB, 0.148826E-01_JPRB, 0.137871E-01_JPRB, 0.127143E-01_JPRB &
+  &, 0.117246E-01_JPRB, 0.108222E-01_JPRB, 0.995186E-02_JPRB &
+  &, 0.917635E-02_JPRB, 0.843878E-02_JPRB, 0.774133E-02_JPRB, 0.708626E-02_JPRB &
+  &, 0.647585E-02_JPRB, 0.597728E-02_JPRB, 0.546402E-02_JPRB/)
+XCW( 569, :) = (/ &
+  &  0.101401E+01_JPRB, 0.101648E+01_JPRB, 0.101853E+01_JPRB, 0.102016E+01_JPRB &
+  &, 0.102137E+01_JPRB, 0.102216E+01_JPRB, 0.102252E+01_JPRB &
+  &, 0.102246E+01_JPRB, 0.102197E+01_JPRB, 0.102105E+01_JPRB, 0.101970E+01_JPRB &
+  &, 0.101792E+01_JPRB, 0.101572E+01_JPRB, 0.101308E+01_JPRB &
+  &, 0.101002E+01_JPRB, 0.100653E+01_JPRB, 0.100261E+01_JPRB, 0.998269E+00_JPRB &
+  &, 0.993504E+00_JPRB, 0.988321E+00_JPRB, 0.982717E+00_JPRB &
+  &, 0.976701E+00_JPRB, 0.970277E+00_JPRB, 0.963445E+00_JPRB, 0.956211E+00_JPRB &
+  &, 0.948585E+00_JPRB, 0.940566E+00_JPRB, 0.932166E+00_JPRB &
+  &, 0.923386E+00_JPRB, 0.914240E+00_JPRB, 0.904736E+00_JPRB, 0.894877E+00_JPRB &
+  &, 0.884674E+00_JPRB, 0.874142E+00_JPRB, 0.863284E+00_JPRB &
+  &, 0.852111E+00_JPRB, 0.840645E+00_JPRB, 0.828883E+00_JPRB, 0.816847E+00_JPRB &
+  &, 0.804553E+00_JPRB, 0.792000E+00_JPRB, 0.779222E+00_JPRB &
+  &, 0.766213E+00_JPRB, 0.752991E+00_JPRB, 0.739589E+00_JPRB, 0.725997E+00_JPRB &
+  &, 0.712240E+00_JPRB, 0.698348E+00_JPRB, 0.684313E+00_JPRB &
+  &, 0.670168E+00_JPRB, 0.655907E+00_JPRB, 0.641580E+00_JPRB, 0.627168E+00_JPRB &
+  &, 0.612724E+00_JPRB, 0.598229E+00_JPRB, 0.583710E+00_JPRB &
+  &, 0.569191E+00_JPRB, 0.554669E+00_JPRB, 0.540184E+00_JPRB, 0.525750E+00_JPRB &
+  &, 0.511360E+00_JPRB, 0.497040E+00_JPRB, 0.482799E+00_JPRB &
+  &, 0.468665E+00_JPRB, 0.454645E+00_JPRB, 0.440728E+00_JPRB, 0.426977E+00_JPRB &
+  &, 0.413360E+00_JPRB, 0.399900E+00_JPRB, 0.386620E+00_JPRB &
+  &, 0.373523E+00_JPRB, 0.360609E+00_JPRB, 0.347922E+00_JPRB, 0.335416E+00_JPRB &
+  &, 0.323153E+00_JPRB, 0.311108E+00_JPRB, 0.299297E+00_JPRB &
+  &, 0.287735E+00_JPRB, 0.276415E+00_JPRB, 0.265348E+00_JPRB, 0.254548E+00_JPRB &
+  &, 0.244000E+00_JPRB, 0.233714E+00_JPRB, 0.223699E+00_JPRB &
+  &, 0.213961E+00_JPRB, 0.204479E+00_JPRB, 0.195285E+00_JPRB, 0.186355E+00_JPRB &
+  &, 0.177719E+00_JPRB, 0.169348E+00_JPRB, 0.161241E+00_JPRB &
+  &, 0.153395E+00_JPRB, 0.145837E+00_JPRB, 0.138531E+00_JPRB, 0.131502E+00_JPRB &
+  &, 0.124742E+00_JPRB, 0.118242E+00_JPRB, 0.111955E+00_JPRB &
+  &, 0.105939E+00_JPRB, 0.100180E+00_JPRB, 0.946625E-01_JPRB, 0.893704E-01_JPRB &
+  &, 0.843224E-01_JPRB, 0.794603E-01_JPRB, 0.748399E-01_JPRB &
+  &, 0.704394E-01_JPRB, 0.662349E-01_JPRB, 0.622417E-01_JPRB, 0.584332E-01_JPRB &
+  &, 0.548234E-01_JPRB, 0.514264E-01_JPRB, 0.481683E-01_JPRB &
+  &, 0.450599E-01_JPRB, 0.421574E-01_JPRB, 0.393816E-01_JPRB, 0.367886E-01_JPRB &
+  &, 0.342946E-01_JPRB, 0.320037E-01_JPRB, 0.297804E-01_JPRB &
+  &, 0.277301E-01_JPRB, 0.258121E-01_JPRB, 0.239832E-01_JPRB, 0.222492E-01_JPRB &
+  &, 0.206691E-01_JPRB, 0.191439E-01_JPRB, 0.177321E-01_JPRB &
+  &, 0.164400E-01_JPRB, 0.151622E-01_JPRB, 0.140139E-01_JPRB, 0.129443E-01_JPRB &
+  &, 0.119577E-01_JPRB, 0.109995E-01_JPRB, 0.101315E-01_JPRB &
+  &, 0.935847E-02_JPRB, 0.856182E-02_JPRB, 0.786603E-02_JPRB, 0.721262E-02_JPRB &
+  &, 0.666791E-02_JPRB, 0.610701E-02_JPRB, 0.559545E-02_JPRB/)
+XCW( 570, :) = (/ &
+  &  0.101426E+01_JPRB, 0.101680E+01_JPRB, 0.101892E+01_JPRB, 0.102062E+01_JPRB &
+  &, 0.102189E+01_JPRB, 0.102274E+01_JPRB, 0.102317E+01_JPRB &
+  &, 0.102317E+01_JPRB, 0.102275E+01_JPRB, 0.102189E+01_JPRB, 0.102061E+01_JPRB &
+  &, 0.101890E+01_JPRB, 0.101675E+01_JPRB, 0.101418E+01_JPRB &
+  &, 0.101118E+01_JPRB, 0.100775E+01_JPRB, 0.100390E+01_JPRB, 0.999617E+00_JPRB &
+  &, 0.994913E+00_JPRB, 0.989787E+00_JPRB, 0.984245E+00_JPRB &
+  &, 0.978286E+00_JPRB, 0.971919E+00_JPRB, 0.965142E+00_JPRB, 0.957966E+00_JPRB &
+  &, 0.950393E+00_JPRB, 0.942429E+00_JPRB, 0.934078E+00_JPRB &
+  &, 0.925353E+00_JPRB, 0.916256E+00_JPRB, 0.906798E+00_JPRB, 0.896986E+00_JPRB &
+  &, 0.886832E+00_JPRB, 0.876341E+00_JPRB, 0.865525E+00_JPRB &
+  &, 0.854399E+00_JPRB, 0.842962E+00_JPRB, 0.831229E+00_JPRB, 0.819243E+00_JPRB &
+  &, 0.806979E+00_JPRB, 0.794466E+00_JPRB, 0.781707E+00_JPRB &
+  &, 0.768727E+00_JPRB, 0.755545E+00_JPRB, 0.742160E+00_JPRB, 0.728596E+00_JPRB &
+  &, 0.714855E+00_JPRB, 0.700977E+00_JPRB, 0.686955E+00_JPRB &
+  &, 0.672822E+00_JPRB, 0.658585E+00_JPRB, 0.644268E+00_JPRB, 0.629864E+00_JPRB &
+  &, 0.615412E+00_JPRB, 0.600922E+00_JPRB, 0.586405E+00_JPRB &
+  &, 0.571888E+00_JPRB, 0.557364E+00_JPRB, 0.542878E+00_JPRB, 0.528422E+00_JPRB &
+  &, 0.514025E+00_JPRB, 0.499696E+00_JPRB, 0.485444E+00_JPRB &
+  &, 0.471296E+00_JPRB, 0.457242E+00_JPRB, 0.443325E+00_JPRB, 0.429534E+00_JPRB &
+  &, 0.415893E+00_JPRB, 0.402427E+00_JPRB, 0.389118E+00_JPRB &
+  &, 0.375990E+00_JPRB, 0.363042E+00_JPRB, 0.350318E+00_JPRB, 0.337794E+00_JPRB &
+  &, 0.325466E+00_JPRB, 0.313398E+00_JPRB, 0.301562E+00_JPRB &
+  &, 0.289949E+00_JPRB, 0.278573E+00_JPRB, 0.267473E+00_JPRB, 0.256612E+00_JPRB &
+  &, 0.246025E+00_JPRB, 0.235698E+00_JPRB, 0.225639E+00_JPRB &
+  &, 0.215854E+00_JPRB, 0.206351E+00_JPRB, 0.197106E+00_JPRB, 0.188122E+00_JPRB &
+  &, 0.179428E+00_JPRB, 0.170998E+00_JPRB, 0.162858E+00_JPRB &
+  &, 0.154978E+00_JPRB, 0.147352E+00_JPRB, 0.140008E+00_JPRB, 0.132938E+00_JPRB &
+  &, 0.126101E+00_JPRB, 0.119555E+00_JPRB, 0.113256E+00_JPRB &
+  &, 0.107191E+00_JPRB, 0.101380E+00_JPRB, 0.958096E-01_JPRB, 0.904615E-01_JPRB &
+  &, 0.853552E-01_JPRB, 0.804714E-01_JPRB, 0.758281E-01_JPRB &
+  &, 0.713635E-01_JPRB, 0.671332E-01_JPRB, 0.631130E-01_JPRB, 0.592763E-01_JPRB &
+  &, 0.556370E-01_JPRB, 0.521659E-01_JPRB, 0.488752E-01_JPRB &
+  &, 0.457329E-01_JPRB, 0.427953E-01_JPRB, 0.399831E-01_JPRB, 0.373523E-01_JPRB &
+  &, 0.348668E-01_JPRB, 0.324877E-01_JPRB, 0.302717E-01_JPRB &
+  &, 0.281788E-01_JPRB, 0.262169E-01_JPRB, 0.243939E-01_JPRB, 0.226659E-01_JPRB &
+  &, 0.210389E-01_JPRB, 0.195191E-01_JPRB, 0.180583E-01_JPRB &
+  &, 0.167157E-01_JPRB, 0.154977E-01_JPRB, 0.142974E-01_JPRB, 0.132317E-01_JPRB &
+  &, 0.121908E-01_JPRB, 0.112358E-01_JPRB, 0.103711E-01_JPRB &
+  &, 0.954058E-02_JPRB, 0.874639E-02_JPRB, 0.805308E-02_JPRB, 0.740217E-02_JPRB &
+  &, 0.679595E-02_JPRB, 0.623673E-02_JPRB, 0.572687E-02_JPRB/)
+XCW( 571, :) = (/ &
+  &  0.101452E+01_JPRB, 0.101712E+01_JPRB, 0.101930E+01_JPRB, 0.102107E+01_JPRB &
+  &, 0.102241E+01_JPRB, 0.102333E+01_JPRB, 0.102382E+01_JPRB &
+  &, 0.102389E+01_JPRB, 0.102352E+01_JPRB, 0.102274E+01_JPRB, 0.102152E+01_JPRB &
+  &, 0.101987E+01_JPRB, 0.101779E+01_JPRB, 0.101528E+01_JPRB &
+  &, 0.101234E+01_JPRB, 0.100898E+01_JPRB, 0.100518E+01_JPRB, 0.100096E+01_JPRB &
+  &, 0.996321E+00_JPRB, 0.991255E+00_JPRB, 0.985772E+00_JPRB &
+  &, 0.979874E+00_JPRB, 0.973564E+00_JPRB, 0.966843E+00_JPRB, 0.959724E+00_JPRB &
+  &, 0.952204E+00_JPRB, 0.944292E+00_JPRB, 0.935998E+00_JPRB &
+  &, 0.927320E+00_JPRB, 0.918275E+00_JPRB, 0.908864E+00_JPRB, 0.899103E+00_JPRB &
+  &, 0.888989E+00_JPRB, 0.878544E+00_JPRB, 0.867775E+00_JPRB &
+  &, 0.856687E+00_JPRB, 0.845289E+00_JPRB, 0.833606E+00_JPRB, 0.821649E+00_JPRB &
+  &, 0.809415E+00_JPRB, 0.796932E+00_JPRB, 0.784213E+00_JPRB &
+  &, 0.771263E+00_JPRB, 0.758099E+00_JPRB, 0.744731E+00_JPRB, 0.731196E+00_JPRB &
+  &, 0.717482E+00_JPRB, 0.703618E+00_JPRB, 0.689623E+00_JPRB &
+  &, 0.675503E+00_JPRB, 0.661277E+00_JPRB, 0.646955E+00_JPRB, 0.632560E+00_JPRB &
+  &, 0.618114E+00_JPRB, 0.603629E+00_JPRB, 0.589116E+00_JPRB &
+  &, 0.574600E+00_JPRB, 0.560076E+00_JPRB, 0.545587E+00_JPRB, 0.531111E+00_JPRB &
+  &, 0.516707E+00_JPRB, 0.502369E+00_JPRB, 0.488106E+00_JPRB &
+  &, 0.473927E+00_JPRB, 0.459857E+00_JPRB, 0.445922E+00_JPRB, 0.432111E+00_JPRB &
+  &, 0.418446E+00_JPRB, 0.404954E+00_JPRB, 0.391617E+00_JPRB &
+  &, 0.378457E+00_JPRB, 0.365476E+00_JPRB, 0.352714E+00_JPRB, 0.340150E+00_JPRB &
+  &, 0.327802E+00_JPRB, 0.315688E+00_JPRB, 0.303803E+00_JPRB &
+  &, 0.292162E+00_JPRB, 0.280756E+00_JPRB, 0.269623E+00_JPRB, 0.258727E+00_JPRB &
+  &, 0.248077E+00_JPRB, 0.237709E+00_JPRB, 0.227606E+00_JPRB &
+  &, 0.217776E+00_JPRB, 0.208196E+00_JPRB, 0.198928E+00_JPRB, 0.189889E+00_JPRB &
+  &, 0.181138E+00_JPRB, 0.172677E+00_JPRB, 0.164476E+00_JPRB &
+  &, 0.156562E+00_JPRB, 0.148900E+00_JPRB, 0.141484E+00_JPRB, 0.134373E+00_JPRB &
+  &, 0.127494E+00_JPRB, 0.120904E+00_JPRB, 0.114558E+00_JPRB &
+  &, 0.108443E+00_JPRB, 0.102581E+00_JPRB, 0.969567E-01_JPRB, 0.915903E-01_JPRB &
+  &, 0.864263E-01_JPRB, 0.815214E-01_JPRB, 0.768164E-01_JPRB &
+  &, 0.723277E-01_JPRB, 0.680314E-01_JPRB, 0.639842E-01_JPRB, 0.600772E-01_JPRB &
+  &, 0.564078E-01_JPRB, 0.529053E-01_JPRB, 0.495821E-01_JPRB &
+  &, 0.464508E-01_JPRB, 0.434332E-01_JPRB, 0.406308E-01_JPRB, 0.379629E-01_JPRB &
+  &, 0.354390E-01_JPRB, 0.330201E-01_JPRB, 0.308121E-01_JPRB &
+  &, 0.286774E-01_JPRB, 0.266722E-01_JPRB, 0.248046E-01_JPRB, 0.230305E-01_JPRB &
+  &, 0.214088E-01_JPRB, 0.198407E-01_JPRB, 0.183845E-01_JPRB &
+  &, 0.170465E-01_JPRB, 0.157772E-01_JPRB, 0.145809E-01_JPRB, 0.134616E-01_JPRB &
+  &, 0.124239E-01_JPRB, 0.114721E-01_JPRB, 0.105508E-01_JPRB &
+  &, 0.972269E-02_JPRB, 0.893097E-02_JPRB, 0.824013E-02_JPRB, 0.759171E-02_JPRB &
+  &, 0.692398E-02_JPRB, 0.636645E-02_JPRB, 0.585829E-02_JPRB/)
+XCW( 572, :) = (/ &
+  &  0.101478E+01_JPRB, 0.101744E+01_JPRB, 0.101969E+01_JPRB, 0.102152E+01_JPRB &
+  &, 0.102293E+01_JPRB, 0.102391E+01_JPRB, 0.102447E+01_JPRB &
+  &, 0.102460E+01_JPRB, 0.102430E+01_JPRB, 0.102358E+01_JPRB, 0.102243E+01_JPRB &
+  &, 0.102084E+01_JPRB, 0.101883E+01_JPRB, 0.101638E+01_JPRB &
+  &, 0.101351E+01_JPRB, 0.101020E+01_JPRB, 0.100647E+01_JPRB, 0.100231E+01_JPRB &
+  &, 0.997732E+00_JPRB, 0.992728E+00_JPRB, 0.987302E+00_JPRB &
+  &, 0.981462E+00_JPRB, 0.975208E+00_JPRB, 0.968547E+00_JPRB, 0.961483E+00_JPRB &
+  &, 0.954019E+00_JPRB, 0.946162E+00_JPRB, 0.937917E+00_JPRB &
+  &, 0.929294E+00_JPRB, 0.920299E+00_JPRB, 0.910938E+00_JPRB, 0.901221E+00_JPRB &
+  &, 0.891156E+00_JPRB, 0.880756E+00_JPRB, 0.870024E+00_JPRB &
+  &, 0.858975E+00_JPRB, 0.847625E+00_JPRB, 0.835982E+00_JPRB, 0.824055E+00_JPRB &
+  &, 0.811861E+00_JPRB, 0.799409E+00_JPRB, 0.786720E+00_JPRB &
+  &, 0.773799E+00_JPRB, 0.760653E+00_JPRB, 0.747326E+00_JPRB, 0.733807E+00_JPRB &
+  &, 0.720109E+00_JPRB, 0.706273E+00_JPRB, 0.692278E+00_JPRB &
+  &, 0.678183E+00_JPRB, 0.663969E+00_JPRB, 0.649657E+00_JPRB, 0.635270E+00_JPRB &
+  &, 0.620831E+00_JPRB, 0.606351E+00_JPRB, 0.591841E+00_JPRB &
+  &, 0.577312E+00_JPRB, 0.562788E+00_JPRB, 0.548297E+00_JPRB, 0.533816E+00_JPRB &
+  &, 0.519406E+00_JPRB, 0.505043E+00_JPRB, 0.490769E+00_JPRB &
+  &, 0.476577E+00_JPRB, 0.462491E+00_JPRB, 0.448538E+00_JPRB, 0.434706E+00_JPRB &
+  &, 0.421019E+00_JPRB, 0.407481E+00_JPRB, 0.394116E+00_JPRB &
+  &, 0.380925E+00_JPRB, 0.367930E+00_JPRB, 0.355132E+00_JPRB, 0.342551E+00_JPRB &
+  &, 0.330161E+00_JPRB, 0.318002E+00_JPRB, 0.306092E+00_JPRB &
+  &, 0.294399E+00_JPRB, 0.282964E+00_JPRB, 0.271774E+00_JPRB, 0.260816E+00_JPRB &
+  &, 0.250154E+00_JPRB, 0.239720E+00_JPRB, 0.229574E+00_JPRB &
+  &, 0.219697E+00_JPRB, 0.210097E+00_JPRB, 0.200749E+00_JPRB, 0.191685E+00_JPRB &
+  &, 0.182878E+00_JPRB, 0.174357E+00_JPRB, 0.166124E+00_JPRB &
+  &, 0.158145E+00_JPRB, 0.150447E+00_JPRB, 0.142993E+00_JPRB, 0.135809E+00_JPRB &
+  &, 0.128921E+00_JPRB, 0.122252E+00_JPRB, 0.115859E+00_JPRB &
+  &, 0.109695E+00_JPRB, 0.103782E+00_JPRB, 0.981408E-01_JPRB, 0.927190E-01_JPRB &
+  &, 0.875357E-01_JPRB, 0.825714E-01_JPRB, 0.778046E-01_JPRB &
+  &, 0.732919E-01_JPRB, 0.689705E-01_JPRB, 0.648554E-01_JPRB, 0.609202E-01_JPRB &
+  &, 0.572215E-01_JPRB, 0.536883E-01_JPRB, 0.502890E-01_JPRB &
+  &, 0.471239E-01_JPRB, 0.441167E-01_JPRB, 0.412322E-01_JPRB, 0.385266E-01_JPRB &
+  &, 0.360112E-01_JPRB, 0.335525E-01_JPRB, 0.313033E-01_JPRB &
+  &, 0.291759E-01_JPRB, 0.271275E-01_JPRB, 0.252666E-01_JPRB, 0.234471E-01_JPRB &
+  &, 0.217786E-01_JPRB, 0.202159E-01_JPRB, 0.187107E-01_JPRB &
+  &, 0.173773E-01_JPRB, 0.160568E-01_JPRB, 0.148643E-01_JPRB, 0.137491E-01_JPRB &
+  &, 0.126571E-01_JPRB, 0.117085E-01_JPRB, 0.107903E-01_JPRB &
+  &, 0.996551E-02_JPRB, 0.911554E-02_JPRB, 0.842717E-02_JPRB, 0.771807E-02_JPRB &
+  &, 0.711604E-02_JPRB, 0.649618E-02_JPRB, 0.598971E-02_JPRB/)
+XCW( 573, :) = (/ &
+  &  0.101504E+01_JPRB, 0.101777E+01_JPRB, 0.102008E+01_JPRB, 0.102197E+01_JPRB &
+  &, 0.102345E+01_JPRB, 0.102449E+01_JPRB, 0.102512E+01_JPRB &
+  &, 0.102531E+01_JPRB, 0.102508E+01_JPRB, 0.102442E+01_JPRB, 0.102333E+01_JPRB &
+  &, 0.102181E+01_JPRB, 0.101986E+01_JPRB, 0.101748E+01_JPRB &
+  &, 0.101467E+01_JPRB, 0.101143E+01_JPRB, 0.100776E+01_JPRB, 0.100367E+01_JPRB &
+  &, 0.999145E+00_JPRB, 0.994200E+00_JPRB, 0.988836E+00_JPRB &
+  &, 0.983053E+00_JPRB, 0.976860E+00_JPRB, 0.970254E+00_JPRB, 0.963245E+00_JPRB &
+  &, 0.955838E+00_JPRB, 0.948032E+00_JPRB, 0.939844E+00_JPRB &
+  &, 0.931269E+00_JPRB, 0.922326E+00_JPRB, 0.913011E+00_JPRB, 0.903342E+00_JPRB &
+  &, 0.893326E+00_JPRB, 0.882968E+00_JPRB, 0.872283E+00_JPRB &
+  &, 0.861273E+00_JPRB, 0.849962E+00_JPRB, 0.838358E+00_JPRB, 0.826471E+00_JPRB &
+  &, 0.814308E+00_JPRB, 0.801896E+00_JPRB, 0.789226E+00_JPRB &
+  &, 0.776335E+00_JPRB, 0.763230E+00_JPRB, 0.749920E+00_JPRB, 0.736418E+00_JPRB &
+  &, 0.722748E+00_JPRB, 0.708927E+00_JPRB, 0.694959E+00_JPRB &
+  &, 0.680864E+00_JPRB, 0.666661E+00_JPRB, 0.652372E+00_JPRB, 0.637994E+00_JPRB &
+  &, 0.623562E+00_JPRB, 0.609088E+00_JPRB, 0.594567E+00_JPRB &
+  &, 0.580039E+00_JPRB, 0.565515E+00_JPRB, 0.551006E+00_JPRB, 0.536538E+00_JPRB &
+  &, 0.522105E+00_JPRB, 0.507733E+00_JPRB, 0.493449E+00_JPRB &
+  &, 0.479244E+00_JPRB, 0.465144E+00_JPRB, 0.451155E+00_JPRB, 0.437302E+00_JPRB &
+  &, 0.423592E+00_JPRB, 0.410049E+00_JPRB, 0.396656E+00_JPRB &
+  &, 0.383434E+00_JPRB, 0.370406E+00_JPRB, 0.357572E+00_JPRB, 0.344929E+00_JPRB &
+  &, 0.332519E+00_JPRB, 0.320338E+00_JPRB, 0.308380E+00_JPRB &
+  &, 0.296637E+00_JPRB, 0.285172E+00_JPRB, 0.273924E+00_JPRB, 0.262958E+00_JPRB &
+  &, 0.252232E+00_JPRB, 0.241757E+00_JPRB, 0.231568E+00_JPRB &
+  &, 0.221647E+00_JPRB, 0.211970E+00_JPRB, 0.202599E+00_JPRB, 0.193481E+00_JPRB &
+  &, 0.184647E+00_JPRB, 0.176068E+00_JPRB, 0.167773E+00_JPRB &
+  &, 0.159760E+00_JPRB, 0.151994E+00_JPRB, 0.144502E+00_JPRB, 0.137278E+00_JPRB &
+  &, 0.130314E+00_JPRB, 0.123635E+00_JPRB, 0.117160E+00_JPRB &
+  &, 0.110983E+00_JPRB, 0.105019E+00_JPRB, 0.993249E-01_JPRB, 0.938478E-01_JPRB &
+  &, 0.886068E-01_JPRB, 0.836214E-01_JPRB, 0.788324E-01_JPRB &
+  &, 0.742562E-01_JPRB, 0.699095E-01_JPRB, 0.657267E-01_JPRB, 0.617632E-01_JPRB &
+  &, 0.580351E-01_JPRB, 0.544278E-01_JPRB, 0.510401E-01_JPRB &
+  &, 0.478418E-01_JPRB, 0.447546E-01_JPRB, 0.418799E-01_JPRB, 0.391372E-01_JPRB &
+  &, 0.365834E-01_JPRB, 0.341334E-01_JPRB, 0.317946E-01_JPRB &
+  &, 0.296246E-01_JPRB, 0.275829E-01_JPRB, 0.256772E-01_JPRB, 0.238638E-01_JPRB &
+  &, 0.221485E-01_JPRB, 0.205911E-01_JPRB, 0.190912E-01_JPRB &
+  &, 0.177081E-01_JPRB, 0.163923E-01_JPRB, 0.151478E-01_JPRB, 0.139790E-01_JPRB &
+  &, 0.129485E-01_JPRB, 0.119448E-01_JPRB, 0.110299E-01_JPRB &
+  &, 0.101476E-01_JPRB, 0.936163E-02_JPRB, 0.861422E-02_JPRB, 0.790761E-02_JPRB &
+  &, 0.724407E-02_JPRB, 0.662590E-02_JPRB, 0.612114E-02_JPRB/)
+XCW( 574, :) = (/ &
+  &  0.101529E+01_JPRB, 0.101809E+01_JPRB, 0.102047E+01_JPRB, 0.102243E+01_JPRB &
+  &, 0.102396E+01_JPRB, 0.102508E+01_JPRB, 0.102577E+01_JPRB &
+  &, 0.102603E+01_JPRB, 0.102586E+01_JPRB, 0.102527E+01_JPRB, 0.102425E+01_JPRB &
+  &, 0.102279E+01_JPRB, 0.102090E+01_JPRB, 0.101859E+01_JPRB &
+  &, 0.101584E+01_JPRB, 0.101266E+01_JPRB, 0.100905E+01_JPRB, 0.100502E+01_JPRB &
+  &, 0.100056E+01_JPRB, 0.995675E+00_JPRB, 0.990373E+00_JPRB &
+  &, 0.984648E+00_JPRB, 0.978512E+00_JPRB, 0.971965E+00_JPRB, 0.965011E+00_JPRB &
+  &, 0.957657E+00_JPRB, 0.949909E+00_JPRB, 0.941771E+00_JPRB &
+  &, 0.933251E+00_JPRB, 0.924354E+00_JPRB, 0.915094E+00_JPRB, 0.905472E+00_JPRB &
+  &, 0.895501E+00_JPRB, 0.885189E+00_JPRB, 0.874547E+00_JPRB &
+  &, 0.863580E+00_JPRB, 0.852308E+00_JPRB, 0.840744E+00_JPRB, 0.828888E+00_JPRB &
+  &, 0.816764E+00_JPRB, 0.804383E+00_JPRB, 0.791754E+00_JPRB &
+  &, 0.778882E+00_JPRB, 0.765807E+00_JPRB, 0.752515E+00_JPRB, 0.739041E+00_JPRB &
+  &, 0.725400E+00_JPRB, 0.711594E+00_JPRB, 0.697640E+00_JPRB &
+  &, 0.683557E+00_JPRB, 0.669379E+00_JPRB, 0.655088E+00_JPRB, 0.640732E+00_JPRB &
+  &, 0.626293E+00_JPRB, 0.611825E+00_JPRB, 0.597308E+00_JPRB &
+  &, 0.582782E+00_JPRB, 0.568259E+00_JPRB, 0.553748E+00_JPRB, 0.539260E+00_JPRB &
+  &, 0.524821E+00_JPRB, 0.510441E+00_JPRB, 0.496130E+00_JPRB &
+  &, 0.481912E+00_JPRB, 0.467796E+00_JPRB, 0.453809E+00_JPRB, 0.439917E+00_JPRB &
+  &, 0.426185E+00_JPRB, 0.412596E+00_JPRB, 0.399196E+00_JPRB &
+  &, 0.385944E+00_JPRB, 0.372883E+00_JPRB, 0.360012E+00_JPRB, 0.347353E+00_JPRB &
+  &, 0.334901E+00_JPRB, 0.322675E+00_JPRB, 0.310669E+00_JPRB &
+  &, 0.298899E+00_JPRB, 0.287379E+00_JPRB, 0.276100E+00_JPRB, 0.265073E+00_JPRB &
+  &, 0.254310E+00_JPRB, 0.243822E+00_JPRB, 0.233563E+00_JPRB &
+  &, 0.223596E+00_JPRB, 0.213899E+00_JPRB, 0.204449E+00_JPRB, 0.195307E+00_JPRB &
+  &, 0.186417E+00_JPRB, 0.177778E+00_JPRB, 0.169452E+00_JPRB &
+  &, 0.161375E+00_JPRB, 0.153574E+00_JPRB, 0.146044E+00_JPRB, 0.138748E+00_JPRB &
+  &, 0.131741E+00_JPRB, 0.124983E+00_JPRB, 0.118497E+00_JPRB &
+  &, 0.112271E+00_JPRB, 0.106256E+00_JPRB, 0.100509E+00_JPRB, 0.950142E-01_JPRB &
+  &, 0.897162E-01_JPRB, 0.846715E-01_JPRB, 0.798602E-01_JPRB &
+  &, 0.752204E-01_JPRB, 0.708486E-01_JPRB, 0.666394E-01_JPRB, 0.626484E-01_JPRB &
+  &, 0.588487E-01_JPRB, 0.552108E-01_JPRB, 0.517912E-01_JPRB &
+  &, 0.485597E-01_JPRB, 0.454381E-01_JPRB, 0.425276E-01_JPRB, 0.397478E-01_JPRB &
+  &, 0.371556E-01_JPRB, 0.346658E-01_JPRB, 0.323350E-01_JPRB &
+  &, 0.301232E-01_JPRB, 0.280888E-01_JPRB, 0.261393E-01_JPRB, 0.242805E-01_JPRB &
+  &, 0.225712E-01_JPRB, 0.209662E-01_JPRB, 0.194174E-01_JPRB &
+  &, 0.179838E-01_JPRB, 0.166718E-01_JPRB, 0.154313E-01_JPRB, 0.142664E-01_JPRB &
+  &, 0.131816E-01_JPRB, 0.121811E-01_JPRB, 0.112096E-01_JPRB &
+  &, 0.103297E-01_JPRB, 0.954621E-02_JPRB, 0.880127E-02_JPRB, 0.809716E-02_JPRB &
+  &, 0.743613E-02_JPRB, 0.682048E-02_JPRB, 0.625256E-02_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART82',1,ZHOOK_HANDLE)
+END SUBROUTINE PART82
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART83
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART83',0,ZHOOK_HANDLE)
+
+XCW( 575, :) = (/ &
+  &  0.101555E+01_JPRB, 0.101841E+01_JPRB, 0.102086E+01_JPRB, 0.102288E+01_JPRB &
+  &, 0.102448E+01_JPRB, 0.102566E+01_JPRB, 0.102642E+01_JPRB &
+  &, 0.102675E+01_JPRB, 0.102665E+01_JPRB, 0.102612E+01_JPRB, 0.102516E+01_JPRB &
+  &, 0.102376E+01_JPRB, 0.102194E+01_JPRB, 0.101969E+01_JPRB &
+  &, 0.101701E+01_JPRB, 0.101389E+01_JPRB, 0.101035E+01_JPRB, 0.100638E+01_JPRB &
+  &, 0.100198E+01_JPRB, 0.997153E+00_JPRB, 0.991910E+00_JPRB &
+  &, 0.986246E+00_JPRB, 0.980167E+00_JPRB, 0.973676E+00_JPRB, 0.966780E+00_JPRB &
+  &, 0.959482E+00_JPRB, 0.951787E+00_JPRB, 0.943702E+00_JPRB &
+  &, 0.935234E+00_JPRB, 0.926389E+00_JPRB, 0.917176E+00_JPRB, 0.907602E+00_JPRB &
+  &, 0.897676E+00_JPRB, 0.887410E+00_JPRB, 0.876815E+00_JPRB &
+  &, 0.865896E+00_JPRB, 0.854664E+00_JPRB, 0.843130E+00_JPRB, 0.831314E+00_JPRB &
+  &, 0.819221E+00_JPRB, 0.806870E+00_JPRB, 0.794271E+00_JPRB &
+  &, 0.781440E+00_JPRB, 0.768384E+00_JPRB, 0.755133E+00_JPRB, 0.741677E+00_JPRB &
+  &, 0.728051E+00_JPRB, 0.714260E+00_JPRB, 0.700334E+00_JPRB &
+  &, 0.686264E+00_JPRB, 0.672098E+00_JPRB, 0.657817E+00_JPRB, 0.643470E+00_JPRB &
+  &, 0.629039E+00_JPRB, 0.614577E+00_JPRB, 0.600064E+00_JPRB &
+  &, 0.585541E+00_JPRB, 0.571002E+00_JPRB, 0.556490E+00_JPRB, 0.541999E+00_JPRB &
+  &, 0.527554E+00_JPRB, 0.513167E+00_JPRB, 0.498845E+00_JPRB &
+  &, 0.484597E+00_JPRB, 0.470467E+00_JPRB, 0.456444E+00_JPRB, 0.442552E+00_JPRB &
+  &, 0.428798E+00_JPRB, 0.415184E+00_JPRB, 0.401735E+00_JPRB &
+  &, 0.388474E+00_JPRB, 0.375380E+00_JPRB, 0.362474E+00_JPRB, 0.349776E+00_JPRB &
+  &, 0.337283E+00_JPRB, 0.325035E+00_JPRB, 0.312982E+00_JPRB &
+  &, 0.301185E+00_JPRB, 0.289612E+00_JPRB, 0.278301E+00_JPRB, 0.267240E+00_JPRB &
+  &, 0.256414E+00_JPRB, 0.245859E+00_JPRB, 0.235585E+00_JPRB &
+  &, 0.225573E+00_JPRB, 0.215800E+00_JPRB, 0.206328E+00_JPRB, 0.197133E+00_JPRB &
+  &, 0.188186E+00_JPRB, 0.179519E+00_JPRB, 0.171132E+00_JPRB &
+  &, 0.162990E+00_JPRB, 0.155153E+00_JPRB, 0.147554E+00_JPRB, 0.140250E+00_JPRB &
+  &, 0.133202E+00_JPRB, 0.126400E+00_JPRB, 0.119868E+00_JPRB &
+  &, 0.113559E+00_JPRB, 0.107530E+00_JPRB, 0.101730E+00_JPRB, 0.961806E-01_JPRB &
+  &, 0.908256E-01_JPRB, 0.857603E-01_JPRB, 0.808880E-01_JPRB &
+  &, 0.762248E-01_JPRB, 0.717877E-01_JPRB, 0.675521E-01_JPRB, 0.634915E-01_JPRB &
+  &, 0.596624E-01_JPRB, 0.560373E-01_JPRB, 0.525423E-01_JPRB &
+  &, 0.492777E-01_JPRB, 0.461215E-01_JPRB, 0.431754E-01_JPRB, 0.403585E-01_JPRB &
+  &, 0.377278E-01_JPRB, 0.352466E-01_JPRB, 0.328754E-01_JPRB &
+  &, 0.306218E-01_JPRB, 0.285441E-01_JPRB, 0.265499E-01_JPRB, 0.246971E-01_JPRB &
+  &, 0.229411E-01_JPRB, 0.213414E-01_JPRB, 0.197979E-01_JPRB &
+  &, 0.183697E-01_JPRB, 0.170073E-01_JPRB, 0.157148E-01_JPRB, 0.145539E-01_JPRB &
+  &, 0.134730E-01_JPRB, 0.124174E-01_JPRB, 0.114491E-01_JPRB &
+  &, 0.105726E-01_JPRB, 0.973078E-02_JPRB, 0.898832E-02_JPRB, 0.822352E-02_JPRB &
+  &, 0.756417E-02_JPRB, 0.695021E-02_JPRB, 0.638398E-02_JPRB/)
+XCW( 576, :) = (/ &
+  &  0.101581E+01_JPRB, 0.101874E+01_JPRB, 0.102125E+01_JPRB, 0.102334E+01_JPRB &
+  &, 0.102500E+01_JPRB, 0.102625E+01_JPRB, 0.102707E+01_JPRB &
+  &, 0.102746E+01_JPRB, 0.102743E+01_JPRB, 0.102696E+01_JPRB, 0.102607E+01_JPRB &
+  &, 0.102474E+01_JPRB, 0.102299E+01_JPRB, 0.102080E+01_JPRB &
+  &, 0.101818E+01_JPRB, 0.101512E+01_JPRB, 0.101164E+01_JPRB, 0.100773E+01_JPRB &
+  &, 0.100340E+01_JPRB, 0.998622E+00_JPRB, 0.993450E+00_JPRB &
+  &, 0.987844E+00_JPRB, 0.981825E+00_JPRB, 0.975391E+00_JPRB, 0.968552E+00_JPRB &
+  &, 0.961308E+00_JPRB, 0.953668E+00_JPRB, 0.945637E+00_JPRB &
+  &, 0.937220E+00_JPRB, 0.928429E+00_JPRB, 0.919266E+00_JPRB, 0.909741E+00_JPRB &
+  &, 0.899860E+00_JPRB, 0.889640E+00_JPRB, 0.879087E+00_JPRB &
+  &, 0.868202E+00_JPRB, 0.857019E+00_JPRB, 0.845525E+00_JPRB, 0.833750E+00_JPRB &
+  &, 0.821698E+00_JPRB, 0.809378E+00_JPRB, 0.796810E+00_JPRB &
+  &, 0.784009E+00_JPRB, 0.770983E+00_JPRB, 0.757739E+00_JPRB, 0.744324E+00_JPRB &
+  &, 0.730715E+00_JPRB, 0.716952E+00_JPRB, 0.703027E+00_JPRB &
+  &, 0.688984E+00_JPRB, 0.674817E+00_JPRB, 0.660560E+00_JPRB, 0.646208E+00_JPRB &
+  &, 0.631799E+00_JPRB, 0.617328E+00_JPRB, 0.602820E+00_JPRB &
+  &, 0.588299E+00_JPRB, 0.573761E+00_JPRB, 0.559248E+00_JPRB, 0.544754E+00_JPRB &
+  &, 0.530287E+00_JPRB, 0.515893E+00_JPRB, 0.501561E+00_JPRB &
+  &, 0.487301E+00_JPRB, 0.473157E+00_JPRB, 0.459117E+00_JPRB, 0.445186E+00_JPRB &
+  &, 0.431410E+00_JPRB, 0.417772E+00_JPRB, 0.404296E+00_JPRB &
+  &, 0.391005E+00_JPRB, 0.377878E+00_JPRB, 0.364958E+00_JPRB, 0.352222E+00_JPRB &
+  &, 0.339687E+00_JPRB, 0.327396E+00_JPRB, 0.315318E+00_JPRB &
+  &, 0.303471E+00_JPRB, 0.291870E+00_JPRB, 0.280502E+00_JPRB, 0.269407E+00_JPRB &
+  &, 0.258544E+00_JPRB, 0.247950E+00_JPRB, 0.237607E+00_JPRB &
+  &, 0.227550E+00_JPRB, 0.217758E+00_JPRB, 0.208236E+00_JPRB, 0.198958E+00_JPRB &
+  &, 0.189986E+00_JPRB, 0.181260E+00_JPRB, 0.172811E+00_JPRB &
+  &, 0.164668E+00_JPRB, 0.156765E+00_JPRB, 0.149129E+00_JPRB, 0.141753E+00_JPRB &
+  &, 0.134629E+00_JPRB, 0.127783E+00_JPRB, 0.121205E+00_JPRB &
+  &, 0.114883E+00_JPRB, 0.108803E+00_JPRB, 0.102951E+00_JPRB, 0.973470E-01_JPRB &
+  &, 0.919732E-01_JPRB, 0.868492E-01_JPRB, 0.819157E-01_JPRB &
+  &, 0.772292E-01_JPRB, 0.727267E-01_JPRB, 0.684649E-01_JPRB, 0.643767E-01_JPRB &
+  &, 0.605188E-01_JPRB, 0.568203E-01_JPRB, 0.533376E-01_JPRB &
+  &, 0.499956E-01_JPRB, 0.468506E-01_JPRB, 0.438231E-01_JPRB, 0.410161E-01_JPRB &
+  &, 0.383477E-01_JPRB, 0.357790E-01_JPRB, 0.334158E-01_JPRB &
+  &, 0.311702E-01_JPRB, 0.290500E-01_JPRB, 0.270119E-01_JPRB, 0.251659E-01_JPRB &
+  &, 0.233637E-01_JPRB, 0.217166E-01_JPRB, 0.201785E-01_JPRB &
+  &, 0.187005E-01_JPRB, 0.173428E-01_JPRB, 0.160549E-01_JPRB, 0.148413E-01_JPRB &
+  &, 0.137061E-01_JPRB, 0.126538E-01_JPRB, 0.116887E-01_JPRB &
+  &, 0.108154E-01_JPRB, 0.991535E-02_JPRB, 0.917537E-02_JPRB, 0.841306E-02_JPRB &
+  &, 0.775622E-02_JPRB, 0.714479E-02_JPRB, 0.651540E-02_JPRB/)
+XCW( 577, :) = (/ &
+  &  0.101607E+01_JPRB, 0.101906E+01_JPRB, 0.102163E+01_JPRB, 0.102379E+01_JPRB &
+  &, 0.102552E+01_JPRB, 0.102684E+01_JPRB, 0.102772E+01_JPRB &
+  &, 0.102818E+01_JPRB, 0.102821E+01_JPRB, 0.102781E+01_JPRB, 0.102698E+01_JPRB &
+  &, 0.102572E+01_JPRB, 0.102403E+01_JPRB, 0.102190E+01_JPRB &
+  &, 0.101935E+01_JPRB, 0.101636E+01_JPRB, 0.101294E+01_JPRB, 0.100909E+01_JPRB &
+  &, 0.100482E+01_JPRB, 0.100012E+01_JPRB, 0.994990E+00_JPRB &
+  &, 0.989446E+00_JPRB, 0.983484E+00_JPRB, 0.977109E+00_JPRB, 0.970328E+00_JPRB &
+  &, 0.963127E+00_JPRB, 0.955553E+00_JPRB, 0.947576E+00_JPRB &
+  &, 0.939214E+00_JPRB, 0.930472E+00_JPRB, 0.921356E+00_JPRB, 0.911879E+00_JPRB &
+  &, 0.902043E+00_JPRB, 0.891874E+00_JPRB, 0.881364E+00_JPRB &
+  &, 0.870528E+00_JPRB, 0.859375E+00_JPRB, 0.847931E+00_JPRB, 0.836186E+00_JPRB &
+  &, 0.824165E+00_JPRB, 0.811886E+00_JPRB, 0.799349E+00_JPRB &
+  &, 0.786579E+00_JPRB, 0.773571E+00_JPRB, 0.760369E+00_JPRB, 0.746971E+00_JPRB &
+  &, 0.733379E+00_JPRB, 0.719631E+00_JPRB, 0.705695E+00_JPRB &
+  &, 0.691704E+00_JPRB, 0.677562E+00_JPRB, 0.663303E+00_JPRB, 0.648975E+00_JPRB &
+  &, 0.634560E+00_JPRB, 0.620095E+00_JPRB, 0.605591E+00_JPRB &
+  &, 0.591073E+00_JPRB, 0.576536E+00_JPRB, 0.562006E+00_JPRB, 0.547509E+00_JPRB &
+  &, 0.533037E+00_JPRB, 0.518635E+00_JPRB, 0.504277E+00_JPRB &
+  &, 0.490023E+00_JPRB, 0.475846E+00_JPRB, 0.461790E+00_JPRB, 0.447840E+00_JPRB &
+  &, 0.434042E+00_JPRB, 0.420380E+00_JPRB, 0.406877E+00_JPRB &
+  &, 0.393556E+00_JPRB, 0.380397E+00_JPRB, 0.367442E+00_JPRB, 0.354668E+00_JPRB &
+  &, 0.342115E+00_JPRB, 0.329779E+00_JPRB, 0.317655E+00_JPRB &
+  &, 0.305782E+00_JPRB, 0.294127E+00_JPRB, 0.282728E+00_JPRB, 0.271574E+00_JPRB &
+  &, 0.260675E+00_JPRB, 0.250042E+00_JPRB, 0.239657E+00_JPRB &
+  &, 0.229555E+00_JPRB, 0.219716E+00_JPRB, 0.210115E+00_JPRB, 0.200814E+00_JPRB &
+  &, 0.191786E+00_JPRB, 0.183032E+00_JPRB, 0.174522E+00_JPRB &
+  &, 0.166314E+00_JPRB, 0.158377E+00_JPRB, 0.150671E+00_JPRB, 0.143255E+00_JPRB &
+  &, 0.136124E+00_JPRB, 0.129235E+00_JPRB, 0.122576E+00_JPRB &
+  &, 0.116206E+00_JPRB, 0.110077E+00_JPRB, 0.104172E+00_JPRB, 0.985133E-01_JPRB &
+  &, 0.931208E-01_JPRB, 0.879381E-01_JPRB, 0.829830E-01_JPRB &
+  &, 0.782337E-01_JPRB, 0.737066E-01_JPRB, 0.693776E-01_JPRB, 0.652619E-01_JPRB &
+  &, 0.613753E-01_JPRB, 0.576468E-01_JPRB, 0.540887E-01_JPRB &
+  &, 0.507135E-01_JPRB, 0.475341E-01_JPRB, 0.445170E-01_JPRB, 0.416267E-01_JPRB &
+  &, 0.389199E-01_JPRB, 0.363599E-01_JPRB, 0.339562E-01_JPRB &
+  &, 0.316687E-01_JPRB, 0.295054E-01_JPRB, 0.274740E-01_JPRB, 0.255825E-01_JPRB &
+  &, 0.237864E-01_JPRB, 0.220918E-01_JPRB, 0.205046E-01_JPRB &
+  &, 0.190313E-01_JPRB, 0.176223E-01_JPRB, 0.163384E-01_JPRB, 0.151287E-01_JPRB &
+  &, 0.139975E-01_JPRB, 0.129492E-01_JPRB, 0.119283E-01_JPRB &
+  &, 0.109975E-01_JPRB, 0.101614E-01_JPRB, 0.936241E-02_JPRB, 0.860260E-02_JPRB &
+  &, 0.788426E-02_JPRB, 0.727452E-02_JPRB, 0.664683E-02_JPRB/)
+XCW( 578, :) = (/ &
+  &  0.101633E+01_JPRB, 0.101938E+01_JPRB, 0.102202E+01_JPRB, 0.102425E+01_JPRB &
+  &, 0.102605E+01_JPRB, 0.102742E+01_JPRB, 0.102837E+01_JPRB &
+  &, 0.102890E+01_JPRB, 0.102899E+01_JPRB, 0.102866E+01_JPRB, 0.102790E+01_JPRB &
+  &, 0.102670E+01_JPRB, 0.102507E+01_JPRB, 0.102301E+01_JPRB &
+  &, 0.102052E+01_JPRB, 0.101758E+01_JPRB, 0.101424E+01_JPRB, 0.101045E+01_JPRB &
+  &, 0.100624E+01_JPRB, 0.100160E+01_JPRB, 0.996530E+00_JPRB &
+  &, 0.991051E+00_JPRB, 0.985149E+00_JPRB, 0.978830E+00_JPRB, 0.972105E+00_JPRB &
+  &, 0.964975E+00_JPRB, 0.957442E+00_JPRB, 0.949518E+00_JPRB &
+  &, 0.941208E+00_JPRB, 0.932516E+00_JPRB, 0.923455E+00_JPRB, 0.914026E+00_JPRB &
+  &, 0.904244E+00_JPRB, 0.894113E+00_JPRB, 0.883646E+00_JPRB &
+  &, 0.872853E+00_JPRB, 0.861673E+00_JPRB, 0.850336E+00_JPRB, 0.838632E+00_JPRB &
+  &, 0.826642E+00_JPRB, 0.814394E+00_JPRB, 0.801898E+00_JPRB &
+  &, 0.789148E+00_JPRB, 0.776182E+00_JPRB, 0.762998E+00_JPRB, 0.749618E+00_JPRB &
+  &, 0.736067E+00_JPRB, 0.722336E+00_JPRB, 0.708453E+00_JPRB &
+  &, 0.694437E+00_JPRB, 0.680308E+00_JPRB, 0.666073E+00_JPRB, 0.651741E+00_JPRB &
+  &, 0.637334E+00_JPRB, 0.622876E+00_JPRB, 0.608377E+00_JPRB &
+  &, 0.593847E+00_JPRB, 0.579312E+00_JPRB, 0.564780E+00_JPRB, 0.550280E+00_JPRB &
+  &, 0.535804E+00_JPRB, 0.521378E+00_JPRB, 0.507028E+00_JPRB &
+  &, 0.492745E+00_JPRB, 0.478555E+00_JPRB, 0.464482E+00_JPRB, 0.450514E+00_JPRB &
+  &, 0.436694E+00_JPRB, 0.423009E+00_JPRB, 0.409479E+00_JPRB &
+  &, 0.396108E+00_JPRB, 0.382938E+00_JPRB, 0.369948E+00_JPRB, 0.357136E+00_JPRB &
+  &, 0.344542E+00_JPRB, 0.332163E+00_JPRB, 0.320015E+00_JPRB &
+  &, 0.308093E+00_JPRB, 0.296409E+00_JPRB, 0.284955E+00_JPRB, 0.273766E+00_JPRB &
+  &, 0.262831E+00_JPRB, 0.252133E+00_JPRB, 0.241733E+00_JPRB &
+  &, 0.231560E+00_JPRB, 0.221674E+00_JPRB, 0.212052E+00_JPRB, 0.202698E+00_JPRB &
+  &, 0.193615E+00_JPRB, 0.184804E+00_JPRB, 0.176263E+00_JPRB &
+  &, 0.167993E+00_JPRB, 0.159988E+00_JPRB, 0.152278E+00_JPRB, 0.144791E+00_JPRB &
+  &, 0.137585E+00_JPRB, 0.130653E+00_JPRB, 0.123983E+00_JPRB &
+  &, 0.117530E+00_JPRB, 0.111350E+00_JPRB, 0.105430E+00_JPRB, 0.997174E-01_JPRB &
+  &, 0.942685E-01_JPRB, 0.890270E-01_JPRB, 0.840503E-01_JPRB &
+  &, 0.792381E-01_JPRB, 0.746866E-01_JPRB, 0.703318E-01_JPRB, 0.661893E-01_JPRB &
+  &, 0.622317E-01_JPRB, 0.584733E-01_JPRB, 0.548840E-01_JPRB &
+  &, 0.514763E-01_JPRB, 0.482631E-01_JPRB, 0.452110E-01_JPRB, 0.422843E-01_JPRB &
+  &, 0.395398E-01_JPRB, 0.369407E-01_JPRB, 0.344965E-01_JPRB &
+  &, 0.322172E-01_JPRB, 0.300113E-01_JPRB, 0.279873E-01_JPRB, 0.260513E-01_JPRB &
+  &, 0.242091E-01_JPRB, 0.225205E-01_JPRB, 0.208852E-01_JPRB &
+  &, 0.193621E-01_JPRB, 0.179578E-01_JPRB, 0.166786E-01_JPRB, 0.154162E-01_JPRB &
+  &, 0.142889E-01_JPRB, 0.131855E-01_JPRB, 0.121678E-01_JPRB &
+  &, 0.112403E-01_JPRB, 0.103460E-01_JPRB, 0.954946E-02_JPRB, 0.879215E-02_JPRB &
+  &, 0.807631E-02_JPRB, 0.740424E-02_JPRB, 0.684396E-02_JPRB/)
+XCW( 579, :) = (/ &
+  &  0.101659E+01_JPRB, 0.101971E+01_JPRB, 0.102241E+01_JPRB, 0.102470E+01_JPRB &
+  &, 0.102657E+01_JPRB, 0.102801E+01_JPRB, 0.102903E+01_JPRB &
+  &, 0.102962E+01_JPRB, 0.102978E+01_JPRB, 0.102951E+01_JPRB, 0.102881E+01_JPRB &
+  &, 0.102768E+01_JPRB, 0.102612E+01_JPRB, 0.102412E+01_JPRB &
+  &, 0.102169E+01_JPRB, 0.101883E+01_JPRB, 0.101554E+01_JPRB, 0.101182E+01_JPRB &
+  &, 0.100766E+01_JPRB, 0.100309E+01_JPRB, 0.998084E+00_JPRB &
+  &, 0.992658E+00_JPRB, 0.986814E+00_JPRB, 0.980555E+00_JPRB, 0.973885E+00_JPRB &
+  &, 0.966812E+00_JPRB, 0.959334E+00_JPRB, 0.951465E+00_JPRB &
+  &, 0.943206E+00_JPRB, 0.934567E+00_JPRB, 0.925553E+00_JPRB, 0.916177E+00_JPRB &
+  &, 0.906441E+00_JPRB, 0.896356E+00_JPRB, 0.885936E+00_JPRB &
+  &, 0.875188E+00_JPRB, 0.864114E+00_JPRB, 0.852741E+00_JPRB, 0.841079E+00_JPRB &
+  &, 0.829130E+00_JPRB, 0.816923E+00_JPRB, 0.804448E+00_JPRB &
+  &, 0.791739E+00_JPRB, 0.778793E+00_JPRB, 0.765639E+00_JPRB, 0.752289E+00_JPRB &
+  &, 0.738755E+00_JPRB, 0.725040E+00_JPRB, 0.711185E+00_JPRB &
+  &, 0.697183E+00_JPRB, 0.683067E+00_JPRB, 0.668830E+00_JPRB, 0.654522E+00_JPRB &
+  &, 0.640123E+00_JPRB, 0.625672E+00_JPRB, 0.611178E+00_JPRB &
+  &, 0.596652E+00_JPRB, 0.582103E+00_JPRB, 0.567571E+00_JPRB, 0.553052E+00_JPRB &
+  &, 0.538571E+00_JPRB, 0.524138E+00_JPRB, 0.509780E+00_JPRB &
+  &, 0.495485E+00_JPRB, 0.481281E+00_JPRB, 0.467174E+00_JPRB, 0.453206E+00_JPRB &
+  &, 0.439346E+00_JPRB, 0.425637E+00_JPRB, 0.412081E+00_JPRB &
+  &, 0.398702E+00_JPRB, 0.385479E+00_JPRB, 0.372454E+00_JPRB, 0.359626E+00_JPRB &
+  &, 0.346992E+00_JPRB, 0.334593E+00_JPRB, 0.322399E+00_JPRB &
+  &, 0.310427E+00_JPRB, 0.298692E+00_JPRB, 0.287206E+00_JPRB, 0.275985E+00_JPRB &
+  &, 0.264988E+00_JPRB, 0.254278E+00_JPRB, 0.243783E+00_JPRB &
+  &, 0.233593E+00_JPRB, 0.223660E+00_JPRB, 0.213989E+00_JPRB, 0.204583E+00_JPRB &
+  &, 0.195445E+00_JPRB, 0.186606E+00_JPRB, 0.178005E+00_JPRB &
+  &, 0.169671E+00_JPRB, 0.161632E+00_JPRB, 0.153853E+00_JPRB, 0.146327E+00_JPRB &
+  &, 0.139080E+00_JPRB, 0.132105E+00_JPRB, 0.125355E+00_JPRB &
+  &, 0.118889E+00_JPRB, 0.112660E+00_JPRB, 0.106688E+00_JPRB, 0.100921E+00_JPRB &
+  &, 0.954161E-01_JPRB, 0.901548E-01_JPRB, 0.851176E-01_JPRB &
+  &, 0.802826E-01_JPRB, 0.756664E-01_JPRB, 0.712861E-01_JPRB, 0.670745E-01_JPRB &
+  &, 0.630882E-01_JPRB, 0.592998E-01_JPRB, 0.556792E-01_JPRB &
+  &, 0.522391E-01_JPRB, 0.489921E-01_JPRB, 0.459050E-01_JPRB, 0.429419E-01_JPRB &
+  &, 0.401597E-01_JPRB, 0.375699E-01_JPRB, 0.350861E-01_JPRB &
+  &, 0.327157E-01_JPRB, 0.305172E-01_JPRB, 0.284493E-01_JPRB, 0.264679E-01_JPRB &
+  &, 0.246318E-01_JPRB, 0.228957E-01_JPRB, 0.212657E-01_JPRB &
+  &, 0.197481E-01_JPRB, 0.182933E-01_JPRB, 0.169621E-01_JPRB, 0.157036E-01_JPRB &
+  &, 0.145221E-01_JPRB, 0.134219E-01_JPRB, 0.124074E-01_JPRB &
+  &, 0.114831E-01_JPRB, 0.105921E-01_JPRB, 0.973651E-02_JPRB, 0.898169E-02_JPRB &
+  &, 0.826837E-02_JPRB, 0.759883E-02_JPRB, 0.697538E-02_JPRB/)
+XCW( 580, :) = (/ &
+  &  0.101685E+01_JPRB, 0.102003E+01_JPRB, 0.102280E+01_JPRB, 0.102516E+01_JPRB &
+  &, 0.102709E+01_JPRB, 0.102860E+01_JPRB, 0.102968E+01_JPRB &
+  &, 0.103034E+01_JPRB, 0.103056E+01_JPRB, 0.103036E+01_JPRB, 0.102973E+01_JPRB &
+  &, 0.102866E+01_JPRB, 0.102716E+01_JPRB, 0.102523E+01_JPRB &
+  &, 0.102287E+01_JPRB, 0.102007E+01_JPRB, 0.101684E+01_JPRB, 0.101318E+01_JPRB &
+  &, 0.100909E+01_JPRB, 0.100457E+01_JPRB, 0.999630E+00_JPRB &
+  &, 0.994267E+00_JPRB, 0.988483E+00_JPRB, 0.982283E+00_JPRB, 0.975671E+00_JPRB &
+  &, 0.968652E+00_JPRB, 0.961230E+00_JPRB, 0.953415E+00_JPRB &
+  &, 0.945208E+00_JPRB, 0.936623E+00_JPRB, 0.927660E+00_JPRB, 0.918328E+00_JPRB &
+  &, 0.908642E+00_JPRB, 0.898603E+00_JPRB, 0.888227E+00_JPRB &
+  &, 0.877522E+00_JPRB, 0.866499E+00_JPRB, 0.855166E+00_JPRB, 0.843535E+00_JPRB &
+  &, 0.831628E+00_JPRB, 0.819441E+00_JPRB, 0.807008E+00_JPRB &
+  &, 0.794331E+00_JPRB, 0.781415E+00_JPRB, 0.768292E+00_JPRB, 0.754960E+00_JPRB &
+  &, 0.741443E+00_JPRB, 0.727757E+00_JPRB, 0.713917E+00_JPRB &
+  &, 0.699930E+00_JPRB, 0.685826E+00_JPRB, 0.671614E+00_JPRB, 0.657302E+00_JPRB &
+  &, 0.642912E+00_JPRB, 0.628468E+00_JPRB, 0.613980E+00_JPRB &
+  &, 0.599457E+00_JPRB, 0.584909E+00_JPRB, 0.570378E+00_JPRB, 0.555857E+00_JPRB &
+  &, 0.541355E+00_JPRB, 0.526916E+00_JPRB, 0.512531E+00_JPRB &
+  &, 0.498226E+00_JPRB, 0.484008E+00_JPRB, 0.469884E+00_JPRB, 0.455899E+00_JPRB &
+  &, 0.442018E+00_JPRB, 0.428286E+00_JPRB, 0.414704E+00_JPRB &
+  &, 0.401296E+00_JPRB, 0.388041E+00_JPRB, 0.374982E+00_JPRB, 0.362117E+00_JPRB &
+  &, 0.349465E+00_JPRB, 0.337000E+00_JPRB, 0.324784E+00_JPRB &
+  &, 0.312787E+00_JPRB, 0.300999E+00_JPRB, 0.289483E+00_JPRB, 0.278204E+00_JPRB &
+  &, 0.267171E+00_JPRB, 0.256396E+00_JPRB, 0.245887E+00_JPRB &
+  &, 0.235626E+00_JPRB, 0.225646E+00_JPRB, 0.215926E+00_JPRB, 0.206468E+00_JPRB &
+  &, 0.197304E+00_JPRB, 0.188408E+00_JPRB, 0.179747E+00_JPRB &
+  &, 0.171381E+00_JPRB, 0.163308E+00_JPRB, 0.155461E+00_JPRB, 0.147897E+00_JPRB &
+  &, 0.140609E+00_JPRB, 0.133557E+00_JPRB, 0.126797E+00_JPRB &
+  &, 0.120249E+00_JPRB, 0.113970E+00_JPRB, 0.107946E+00_JPRB, 0.102163E+00_JPRB &
+  &, 0.966020E-01_JPRB, 0.912826E-01_JPRB, 0.862245E-01_JPRB &
+  &, 0.813272E-01_JPRB, 0.766872E-01_JPRB, 0.722403E-01_JPRB, 0.680018E-01_JPRB &
+  &, 0.639875E-01_JPRB, 0.601263E-01_JPRB, 0.564745E-01_JPRB &
+  &, 0.530019E-01_JPRB, 0.497212E-01_JPRB, 0.465990E-01_JPRB, 0.435995E-01_JPRB &
+  &, 0.408273E-01_JPRB, 0.381507E-01_JPRB, 0.356265E-01_JPRB &
+  &, 0.332641E-01_JPRB, 0.310232E-01_JPRB, 0.289113E-01_JPRB, 0.269367E-01_JPRB &
+  &, 0.250545E-01_JPRB, 0.233245E-01_JPRB, 0.216462E-01_JPRB &
+  &, 0.201340E-01_JPRB, 0.186847E-01_JPRB, 0.173023E-01_JPRB, 0.160485E-01_JPRB &
+  &, 0.148135E-01_JPRB, 0.137173E-01_JPRB, 0.126469E-01_JPRB &
+  &, 0.117259E-01_JPRB, 0.107767E-01_JPRB, 0.998591E-02_JPRB, 0.917123E-02_JPRB &
+  &, 0.846042E-02_JPRB, 0.779341E-02_JPRB, 0.710680E-02_JPRB/)
+XCW( 581, :) = (/ &
+  &  0.101710E+01_JPRB, 0.102036E+01_JPRB, 0.102319E+01_JPRB, 0.102561E+01_JPRB &
+  &, 0.102761E+01_JPRB, 0.102918E+01_JPRB, 0.103033E+01_JPRB &
+  &, 0.103106E+01_JPRB, 0.103135E+01_JPRB, 0.103121E+01_JPRB, 0.103064E+01_JPRB &
+  &, 0.102964E+01_JPRB, 0.102821E+01_JPRB, 0.102634E+01_JPRB &
+  &, 0.102404E+01_JPRB, 0.102131E+01_JPRB, 0.101815E+01_JPRB, 0.101455E+01_JPRB &
+  &, 0.101052E+01_JPRB, 0.100606E+01_JPRB, 0.100118E+01_JPRB &
+  &, 0.995878E+00_JPRB, 0.990155E+00_JPRB, 0.984011E+00_JPRB, 0.977458E+00_JPRB &
+  &, 0.970496E+00_JPRB, 0.963130E+00_JPRB, 0.955368E+00_JPRB &
+  &, 0.947218E+00_JPRB, 0.938683E+00_JPRB, 0.929771E+00_JPRB, 0.920488E+00_JPRB &
+  &, 0.910847E+00_JPRB, 0.900860E+00_JPRB, 0.890527E+00_JPRB &
+  &, 0.879866E+00_JPRB, 0.868883E+00_JPRB, 0.857591E+00_JPRB, 0.846001E+00_JPRB &
+  &, 0.834125E+00_JPRB, 0.821981E+00_JPRB, 0.809579E+00_JPRB &
+  &, 0.796922E+00_JPRB, 0.784038E+00_JPRB, 0.770945E+00_JPRB, 0.757643E+00_JPRB &
+  &, 0.744144E+00_JPRB, 0.730486E+00_JPRB, 0.716662E+00_JPRB &
+  &, 0.702689E+00_JPRB, 0.688598E+00_JPRB, 0.674398E+00_JPRB, 0.660097E+00_JPRB &
+  &, 0.645716E+00_JPRB, 0.631279E+00_JPRB, 0.616796E+00_JPRB &
+  &, 0.602262E+00_JPRB, 0.587732E+00_JPRB, 0.573185E+00_JPRB, 0.558662E+00_JPRB &
+  &, 0.544156E+00_JPRB, 0.529711E+00_JPRB, 0.515318E+00_JPRB &
+  &, 0.500984E+00_JPRB, 0.486753E+00_JPRB, 0.472614E+00_JPRB, 0.458591E+00_JPRB &
+  &, 0.444710E+00_JPRB, 0.430934E+00_JPRB, 0.417347E+00_JPRB &
+  &, 0.403890E+00_JPRB, 0.390625E+00_JPRB, 0.377532E+00_JPRB, 0.364630E+00_JPRB &
+  &, 0.351939E+00_JPRB, 0.339453E+00_JPRB, 0.327192E+00_JPRB &
+  &, 0.315146E+00_JPRB, 0.303331E+00_JPRB, 0.291760E+00_JPRB, 0.280448E+00_JPRB &
+  &, 0.269380E+00_JPRB, 0.258540E+00_JPRB, 0.247991E+00_JPRB &
+  &, 0.237687E+00_JPRB, 0.227661E+00_JPRB, 0.217891E+00_JPRB, 0.208411E+00_JPRB &
+  &, 0.199164E+00_JPRB, 0.190210E+00_JPRB, 0.181519E+00_JPRB &
+  &, 0.173122E+00_JPRB, 0.164952E+00_JPRB, 0.157101E+00_JPRB, 0.149466E+00_JPRB &
+  &, 0.142138E+00_JPRB, 0.135043E+00_JPRB, 0.128204E+00_JPRB &
+  &, 0.121644E+00_JPRB, 0.115316E+00_JPRB, 0.109242E+00_JPRB, 0.103405E+00_JPRB &
+  &, 0.978261E-01_JPRB, 0.924493E-01_JPRB, 0.872918E-01_JPRB &
+  &, 0.824120E-01_JPRB, 0.777079E-01_JPRB, 0.732360E-01_JPRB, 0.689292E-01_JPRB &
+  &, 0.648868E-01_JPRB, 0.609962E-01_JPRB, 0.573140E-01_JPRB &
+  &, 0.538096E-01_JPRB, 0.504502E-01_JPRB, 0.472930E-01_JPRB, 0.443041E-01_JPRB &
+  &, 0.414471E-01_JPRB, 0.387800E-01_JPRB, 0.362160E-01_JPRB &
+  &, 0.338126E-01_JPRB, 0.315797E-01_JPRB, 0.294247E-01_JPRB, 0.274054E-01_JPRB &
+  &, 0.255300E-01_JPRB, 0.237532E-01_JPRB, 0.220811E-01_JPRB &
+  &, 0.204648E-01_JPRB, 0.190201E-01_JPRB, 0.176424E-01_JPRB, 0.163359E-01_JPRB &
+  &, 0.151049E-01_JPRB, 0.140127E-01_JPRB, 0.129464E-01_JPRB &
+  &, 0.119688E-01_JPRB, 0.110228E-01_JPRB, 0.101730E-01_JPRB, 0.936077E-02_JPRB &
+  &, 0.865248E-02_JPRB, 0.792314E-02_JPRB, 0.730394E-02_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART83',1,ZHOOK_HANDLE)
+END SUBROUTINE PART83
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART84
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART84',0,ZHOOK_HANDLE)
+
+XCW( 582, :) = (/ &
+  &  0.101736E+01_JPRB, 0.102068E+01_JPRB, 0.102358E+01_JPRB, 0.102607E+01_JPRB &
+  &, 0.102813E+01_JPRB, 0.102977E+01_JPRB, 0.103099E+01_JPRB &
+  &, 0.103178E+01_JPRB, 0.103214E+01_JPRB, 0.103207E+01_JPRB, 0.103156E+01_JPRB &
+  &, 0.103063E+01_JPRB, 0.102926E+01_JPRB, 0.102746E+01_JPRB &
+  &, 0.102522E+01_JPRB, 0.102255E+01_JPRB, 0.101945E+01_JPRB, 0.101592E+01_JPRB &
+  &, 0.101195E+01_JPRB, 0.100756E+01_JPRB, 0.100274E+01_JPRB &
+  &, 0.997492E+00_JPRB, 0.991827E+00_JPRB, 0.985743E+00_JPRB, 0.979249E+00_JPRB &
+  &, 0.972341E+00_JPRB, 0.965034E+00_JPRB, 0.957326E+00_JPRB &
+  &, 0.949228E+00_JPRB, 0.940738E+00_JPRB, 0.931882E+00_JPRB, 0.922652E+00_JPRB &
+  &, 0.913061E+00_JPRB, 0.903116E+00_JPRB, 0.892831E+00_JPRB &
+  &, 0.882210E+00_JPRB, 0.871267E+00_JPRB, 0.860016E+00_JPRB, 0.848467E+00_JPRB &
+  &, 0.836633E+00_JPRB, 0.824521E+00_JPRB, 0.812151E+00_JPRB &
+  &, 0.799525E+00_JPRB, 0.786682E+00_JPRB, 0.773609E+00_JPRB, 0.760326E+00_JPRB &
+  &, 0.746856E+00_JPRB, 0.733216E+00_JPRB, 0.719407E+00_JPRB &
+  &, 0.705461E+00_JPRB, 0.691384E+00_JPRB, 0.677196E+00_JPRB, 0.662906E+00_JPRB &
+  &, 0.648534E+00_JPRB, 0.634105E+00_JPRB, 0.619613E+00_JPRB &
+  &, 0.605098E+00_JPRB, 0.590555E+00_JPRB, 0.576008E+00_JPRB, 0.561483E+00_JPRB &
+  &, 0.546974E+00_JPRB, 0.532506E+00_JPRB, 0.518104E+00_JPRB &
+  &, 0.503760E+00_JPRB, 0.489517E+00_JPRB, 0.475363E+00_JPRB, 0.461323E+00_JPRB &
+  &, 0.447402E+00_JPRB, 0.433623E+00_JPRB, 0.419990E+00_JPRB &
+  &, 0.406505E+00_JPRB, 0.393209E+00_JPRB, 0.380082E+00_JPRB, 0.367166E+00_JPRB &
+  &, 0.354435E+00_JPRB, 0.341907E+00_JPRB, 0.329600E+00_JPRB &
+  &, 0.317529E+00_JPRB, 0.305663E+00_JPRB, 0.294062E+00_JPRB, 0.282692E+00_JPRB &
+  &, 0.271589E+00_JPRB, 0.260712E+00_JPRB, 0.250123E+00_JPRB &
+  &, 0.239775E+00_JPRB, 0.229675E+00_JPRB, 0.219886E+00_JPRB, 0.210325E+00_JPRB &
+  &, 0.201053E+00_JPRB, 0.192043E+00_JPRB, 0.183323E+00_JPRB &
+  &, 0.174864E+00_JPRB, 0.166661E+00_JPRB, 0.158742E+00_JPRB, 0.151069E+00_JPRB &
+  &, 0.143667E+00_JPRB, 0.136530E+00_JPRB, 0.129646E+00_JPRB &
+  &, 0.123039E+00_JPRB, 0.116662E+00_JPRB, 0.110537E+00_JPRB, 0.104646E+00_JPRB &
+  &, 0.990120E-01_JPRB, 0.936159E-01_JPRB, 0.884381E-01_JPRB &
+  &, 0.834566E-01_JPRB, 0.787286E-01_JPRB, 0.741902E-01_JPRB, 0.698987E-01_JPRB &
+  &, 0.657860E-01_JPRB, 0.618662E-01_JPRB, 0.581092E-01_JPRB &
+  &, 0.545724E-01_JPRB, 0.512248E-01_JPRB, 0.480332E-01_JPRB, 0.449617E-01_JPRB &
+  &, 0.421147E-01_JPRB, 0.393608E-01_JPRB, 0.368055E-01_JPRB &
+  &, 0.343610E-01_JPRB, 0.320856E-01_JPRB, 0.299380E-01_JPRB, 0.278742E-01_JPRB &
+  &, 0.259527E-01_JPRB, 0.241284E-01_JPRB, 0.224617E-01_JPRB &
+  &, 0.208508E-01_JPRB, 0.193556E-01_JPRB, 0.179826E-01_JPRB, 0.166234E-01_JPRB &
+  &, 0.153963E-01_JPRB, 0.142490E-01_JPRB, 0.131860E-01_JPRB &
+  &, 0.122116E-01_JPRB, 0.112689E-01_JPRB, 0.103600E-01_JPRB, 0.955032E-02_JPRB &
+  &, 0.884453E-02_JPRB, 0.811772E-02_JPRB, 0.743536E-02_JPRB/)
+XCW( 583, :) = (/ &
+  &  0.101762E+01_JPRB, 0.102101E+01_JPRB, 0.102398E+01_JPRB, 0.102653E+01_JPRB &
+  &, 0.102866E+01_JPRB, 0.103036E+01_JPRB, 0.103164E+01_JPRB &
+  &, 0.103250E+01_JPRB, 0.103292E+01_JPRB, 0.103292E+01_JPRB, 0.103248E+01_JPRB &
+  &, 0.103161E+01_JPRB, 0.103031E+01_JPRB, 0.102857E+01_JPRB &
+  &, 0.102640E+01_JPRB, 0.102380E+01_JPRB, 0.102076E+01_JPRB, 0.101729E+01_JPRB &
+  &, 0.101339E+01_JPRB, 0.100905E+01_JPRB, 0.100429E+01_JPRB &
+  &, 0.999111E+00_JPRB, 0.993506E+00_JPRB, 0.987478E+00_JPRB, 0.981043E+00_JPRB &
+  &, 0.974192E+00_JPRB, 0.966938E+00_JPRB, 0.959288E+00_JPRB &
+  &, 0.951242E+00_JPRB, 0.942810E+00_JPRB, 0.934001E+00_JPRB, 0.924819E+00_JPRB &
+  &, 0.915279E+00_JPRB, 0.905381E+00_JPRB, 0.895140E+00_JPRB &
+  &, 0.884563E+00_JPRB, 0.873661E+00_JPRB, 0.862451E+00_JPRB, 0.850944E+00_JPRB &
+  &, 0.839141E+00_JPRB, 0.827071E+00_JPRB, 0.814733E+00_JPRB &
+  &, 0.802139E+00_JPRB, 0.789316E+00_JPRB, 0.776273E+00_JPRB, 0.763020E+00_JPRB &
+  &, 0.749581E+00_JPRB, 0.735958E+00_JPRB, 0.722178E+00_JPRB &
+  &, 0.708247E+00_JPRB, 0.694184E+00_JPRB, 0.679981E+00_JPRB, 0.665728E+00_JPRB &
+  &, 0.651366E+00_JPRB, 0.636930E+00_JPRB, 0.622445E+00_JPRB &
+  &, 0.607934E+00_JPRB, 0.593393E+00_JPRB, 0.578847E+00_JPRB, 0.564305E+00_JPRB &
+  &, 0.549792E+00_JPRB, 0.535318E+00_JPRB, 0.520909E+00_JPRB &
+  &, 0.506555E+00_JPRB, 0.492281E+00_JPRB, 0.478112E+00_JPRB, 0.464054E+00_JPRB &
+  &, 0.450113E+00_JPRB, 0.436312E+00_JPRB, 0.422654E+00_JPRB &
+  &, 0.409141E+00_JPRB, 0.395814E+00_JPRB, 0.382654E+00_JPRB, 0.369701E+00_JPRB &
+  &, 0.356931E+00_JPRB, 0.344384E+00_JPRB, 0.332032E+00_JPRB &
+  &, 0.319913E+00_JPRB, 0.308019E+00_JPRB, 0.296365E+00_JPRB, 0.284962E+00_JPRB &
+  &, 0.273799E+00_JPRB, 0.262884E+00_JPRB, 0.252254E+00_JPRB &
+  &, 0.241864E+00_JPRB, 0.231718E+00_JPRB, 0.221881E+00_JPRB, 0.212269E+00_JPRB &
+  &, 0.202943E+00_JPRB, 0.193906E+00_JPRB, 0.185127E+00_JPRB &
+  &, 0.176605E+00_JPRB, 0.168369E+00_JPRB, 0.160382E+00_JPRB, 0.152671E+00_JPRB &
+  &, 0.145230E+00_JPRB, 0.138051E+00_JPRB, 0.131123E+00_JPRB &
+  &, 0.124434E+00_JPRB, 0.118009E+00_JPRB, 0.111832E+00_JPRB, 0.105926E+00_JPRB &
+  &, 0.100236E+00_JPRB, 0.947826E-01_JPRB, 0.895450E-01_JPRB &
+  &, 0.845414E-01_JPRB, 0.797902E-01_JPRB, 0.752274E-01_JPRB, 0.708682E-01_JPRB &
+  &, 0.666853E-01_JPRB, 0.627362E-01_JPRB, 0.589487E-01_JPRB &
+  &, 0.553800E-01_JPRB, 0.519538E-01_JPRB, 0.487272E-01_JPRB, 0.456662E-01_JPRB &
+  &, 0.427823E-01_JPRB, 0.399900E-01_JPRB, 0.373950E-01_JPRB &
+  &, 0.349593E-01_JPRB, 0.326421E-01_JPRB, 0.304514E-01_JPRB, 0.283429E-01_JPRB &
+  &, 0.264283E-01_JPRB, 0.246108E-01_JPRB, 0.228422E-01_JPRB &
+  &, 0.212367E-01_JPRB, 0.197470E-01_JPRB, 0.183228E-01_JPRB, 0.169683E-01_JPRB &
+  &, 0.157460E-01_JPRB, 0.145444E-01_JPRB, 0.134854E-01_JPRB &
+  &, 0.124544E-01_JPRB, 0.115150E-01_JPRB, 0.106094E-01_JPRB, 0.980304E-02_JPRB &
+  &, 0.903659E-02_JPRB, 0.831231E-02_JPRB, 0.763249E-02_JPRB/)
+XCW( 584, :) = (/ &
+  &  0.101788E+01_JPRB, 0.102133E+01_JPRB, 0.102437E+01_JPRB, 0.102698E+01_JPRB &
+  &, 0.102918E+01_JPRB, 0.103095E+01_JPRB, 0.103230E+01_JPRB &
+  &, 0.103322E+01_JPRB, 0.103371E+01_JPRB, 0.103377E+01_JPRB, 0.103340E+01_JPRB &
+  &, 0.103260E+01_JPRB, 0.103136E+01_JPRB, 0.102969E+01_JPRB &
+  &, 0.102758E+01_JPRB, 0.102504E+01_JPRB, 0.102207E+01_JPRB, 0.101866E+01_JPRB &
+  &, 0.101482E+01_JPRB, 0.101055E+01_JPRB, 0.100585E+01_JPRB &
+  &, 0.100073E+01_JPRB, 0.995184E+00_JPRB, 0.989217E+00_JPRB, 0.982837E+00_JPRB &
+  &, 0.976047E+00_JPRB, 0.968849E+00_JPRB, 0.961253E+00_JPRB &
+  &, 0.953259E+00_JPRB, 0.944881E+00_JPRB, 0.936124E+00_JPRB, 0.926992E+00_JPRB &
+  &, 0.917497E+00_JPRB, 0.907646E+00_JPRB, 0.897453E+00_JPRB &
+  &, 0.886916E+00_JPRB, 0.876064E+00_JPRB, 0.864896E+00_JPRB, 0.853420E+00_JPRB &
+  &, 0.841660E+00_JPRB, 0.829621E+00_JPRB, 0.817315E+00_JPRB &
+  &, 0.804763E+00_JPRB, 0.791972E+00_JPRB, 0.778949E+00_JPRB, 0.765727E+00_JPRB &
+  &, 0.752306E+00_JPRB, 0.738712E+00_JPRB, 0.724936E+00_JPRB &
+  &, 0.711033E+00_JPRB, 0.696983E+00_JPRB, 0.682820E+00_JPRB, 0.668551E+00_JPRB &
+  &, 0.654199E+00_JPRB, 0.639771E+00_JPRB, 0.625291E+00_JPRB &
+  &, 0.610770E+00_JPRB, 0.596232E+00_JPRB, 0.581686E+00_JPRB, 0.567143E+00_JPRB &
+  &, 0.552627E+00_JPRB, 0.538148E+00_JPRB, 0.523713E+00_JPRB &
+  &, 0.509349E+00_JPRB, 0.495063E+00_JPRB, 0.480880E+00_JPRB, 0.466805E+00_JPRB &
+  &, 0.452844E+00_JPRB, 0.439001E+00_JPRB, 0.425318E+00_JPRB &
+  &, 0.411798E+00_JPRB, 0.398441E+00_JPRB, 0.385248E+00_JPRB, 0.372259E+00_JPRB &
+  &, 0.359450E+00_JPRB, 0.346861E+00_JPRB, 0.334487E+00_JPRB &
+  &, 0.322321E+00_JPRB, 0.310401E+00_JPRB, 0.298692E+00_JPRB, 0.287258E+00_JPRB &
+  &, 0.276034E+00_JPRB, 0.265082E+00_JPRB, 0.254385E+00_JPRB &
+  &, 0.243952E+00_JPRB, 0.233790E+00_JPRB, 0.223875E+00_JPRB, 0.214242E+00_JPRB &
+  &, 0.204863E+00_JPRB, 0.195769E+00_JPRB, 0.186931E+00_JPRB &
+  &, 0.178379E+00_JPRB, 0.170078E+00_JPRB, 0.162055E+00_JPRB, 0.154274E+00_JPRB &
+  &, 0.146793E+00_JPRB, 0.139537E+00_JPRB, 0.132565E+00_JPRB &
+  &, 0.125865E+00_JPRB, 0.119391E+00_JPRB, 0.113164E+00_JPRB, 0.107205E+00_JPRB &
+  &, 0.101460E+00_JPRB, 0.959493E-01_JPRB, 0.906913E-01_JPRB &
+  &, 0.856663E-01_JPRB, 0.808109E-01_JPRB, 0.762231E-01_JPRB, 0.718377E-01_JPRB &
+  &, 0.676274E-01_JPRB, 0.636062E-01_JPRB, 0.598323E-01_JPRB &
+  &, 0.561877E-01_JPRB, 0.527284E-01_JPRB, 0.494674E-01_JPRB, 0.463708E-01_JPRB &
+  &, 0.434499E-01_JPRB, 0.406676E-01_JPRB, 0.380336E-01_JPRB &
+  &, 0.355077E-01_JPRB, 0.331480E-01_JPRB, 0.309647E-01_JPRB, 0.288637E-01_JPRB &
+  &, 0.269038E-01_JPRB, 0.250396E-01_JPRB, 0.232771E-01_JPRB &
+  &, 0.216226E-01_JPRB, 0.200825E-01_JPRB, 0.186630E-01_JPRB, 0.173132E-01_JPRB &
+  &, 0.160374E-01_JPRB, 0.148399E-01_JPRB, 0.137250E-01_JPRB &
+  &, 0.126972E-01_JPRB, 0.116995E-01_JPRB, 0.107965E-01_JPRB, 0.999258E-02_JPRB &
+  &, 0.922864E-02_JPRB, 0.844203E-02_JPRB, 0.776391E-02_JPRB/)
+XCW( 585, :) = (/ &
+  &  0.101814E+01_JPRB, 0.102166E+01_JPRB, 0.102476E+01_JPRB, 0.102744E+01_JPRB &
+  &, 0.102970E+01_JPRB, 0.103154E+01_JPRB, 0.103296E+01_JPRB &
+  &, 0.103394E+01_JPRB, 0.103450E+01_JPRB, 0.103463E+01_JPRB, 0.103433E+01_JPRB &
+  &, 0.103359E+01_JPRB, 0.103241E+01_JPRB, 0.103081E+01_JPRB &
+  &, 0.102877E+01_JPRB, 0.102629E+01_JPRB, 0.102338E+01_JPRB, 0.102004E+01_JPRB &
+  &, 0.101626E+01_JPRB, 0.101205E+01_JPRB, 0.100742E+01_JPRB &
+  &, 0.100235E+01_JPRB, 0.996867E+00_JPRB, 0.990959E+00_JPRB, 0.984638E+00_JPRB &
+  &, 0.977902E+00_JPRB, 0.970764E+00_JPRB, 0.963222E+00_JPRB &
+  &, 0.955285E+00_JPRB, 0.946957E+00_JPRB, 0.938252E+00_JPRB, 0.929168E+00_JPRB &
+  &, 0.919724E+00_JPRB, 0.909920E+00_JPRB, 0.899771E+00_JPRB &
+  &, 0.889288E+00_JPRB, 0.878467E+00_JPRB, 0.867340E+00_JPRB, 0.855906E+00_JPRB &
+  &, 0.844188E+00_JPRB, 0.832182E+00_JPRB, 0.819918E+00_JPRB &
+  &, 0.807388E+00_JPRB, 0.794629E+00_JPRB, 0.781637E+00_JPRB, 0.768434E+00_JPRB &
+  &, 0.755043E+00_JPRB, 0.741466E+00_JPRB, 0.727719E+00_JPRB &
+  &, 0.713818E+00_JPRB, 0.699796E+00_JPRB, 0.685646E+00_JPRB, 0.671388E+00_JPRB &
+  &, 0.657045E+00_JPRB, 0.642626E+00_JPRB, 0.628153E+00_JPRB &
+  &, 0.613637E+00_JPRB, 0.599102E+00_JPRB, 0.584542E+00_JPRB, 0.569997E+00_JPRB &
+  &, 0.555479E+00_JPRB, 0.540977E+00_JPRB, 0.526536E+00_JPRB &
+  &, 0.512162E+00_JPRB, 0.497864E+00_JPRB, 0.483666E+00_JPRB, 0.469556E+00_JPRB &
+  &, 0.455576E+00_JPRB, 0.441730E+00_JPRB, 0.428002E+00_JPRB &
+  &, 0.414455E+00_JPRB, 0.401068E+00_JPRB, 0.387842E+00_JPRB, 0.374817E+00_JPRB &
+  &, 0.361992E+00_JPRB, 0.349361E+00_JPRB, 0.336943E+00_JPRB &
+  &, 0.324753E+00_JPRB, 0.312782E+00_JPRB, 0.301045E+00_JPRB, 0.289554E+00_JPRB &
+  &, 0.278296E+00_JPRB, 0.267307E+00_JPRB, 0.256571E+00_JPRB &
+  &, 0.246069E+00_JPRB, 0.235861E+00_JPRB, 0.225899E+00_JPRB, 0.216215E+00_JPRB &
+  &, 0.206782E+00_JPRB, 0.197632E+00_JPRB, 0.188766E+00_JPRB &
+  &, 0.180152E+00_JPRB, 0.171786E+00_JPRB, 0.163729E+00_JPRB, 0.155910E+00_JPRB &
+  &, 0.148356E+00_JPRB, 0.141093E+00_JPRB, 0.134077E+00_JPRB &
+  &, 0.127296E+00_JPRB, 0.120774E+00_JPRB, 0.114496E+00_JPRB, 0.108484E+00_JPRB &
+  &, 0.102723E+00_JPRB, 0.971548E-01_JPRB, 0.918377E-01_JPRB &
+  &, 0.867511E-01_JPRB, 0.818725E-01_JPRB, 0.771773E-01_JPRB, 0.728072E-01_JPRB &
+  &, 0.685695E-01_JPRB, 0.645197E-01_JPRB, 0.606718E-01_JPRB &
+  &, 0.569954E-01_JPRB, 0.535486E-01_JPRB, 0.502077E-01_JPRB, 0.470754E-01_JPRB &
+  &, 0.441174E-01_JPRB, 0.412969E-01_JPRB, 0.386231E-01_JPRB &
+  &, 0.361060E-01_JPRB, 0.337045E-01_JPRB, 0.314780E-01_JPRB, 0.293325E-01_JPRB &
+  &, 0.273265E-01_JPRB, 0.254683E-01_JPRB, 0.237120E-01_JPRB &
+  &, 0.220086E-01_JPRB, 0.204738E-01_JPRB, 0.190031E-01_JPRB, 0.176006E-01_JPRB &
+  &, 0.163288E-01_JPRB, 0.151353E-01_JPRB, 0.140244E-01_JPRB &
+  &, 0.129400E-01_JPRB, 0.119456E-01_JPRB, 0.110458E-01_JPRB, 0.101821E-01_JPRB &
+  &, 0.942070E-02_JPRB, 0.863661E-02_JPRB, 0.796105E-02_JPRB/)
+XCW( 586, :) = (/ &
+  &  0.101840E+01_JPRB, 0.102198E+01_JPRB, 0.102515E+01_JPRB, 0.102790E+01_JPRB &
+  &, 0.103023E+01_JPRB, 0.103213E+01_JPRB, 0.103361E+01_JPRB &
+  &, 0.103467E+01_JPRB, 0.103529E+01_JPRB, 0.103549E+01_JPRB, 0.103525E+01_JPRB &
+  &, 0.103457E+01_JPRB, 0.103347E+01_JPRB, 0.103193E+01_JPRB &
+  &, 0.102995E+01_JPRB, 0.102754E+01_JPRB, 0.102469E+01_JPRB, 0.102141E+01_JPRB &
+  &, 0.101770E+01_JPRB, 0.101355E+01_JPRB, 0.100898E+01_JPRB &
+  &, 0.100398E+01_JPRB, 0.998552E+00_JPRB, 0.992705E+00_JPRB, 0.986439E+00_JPRB &
+  &, 0.979764E+00_JPRB, 0.972678E+00_JPRB, 0.965191E+00_JPRB &
+  &, 0.957310E+00_JPRB, 0.949036E+00_JPRB, 0.940383E+00_JPRB, 0.931353E+00_JPRB &
+  &, 0.921955E+00_JPRB, 0.912199E+00_JPRB, 0.902098E+00_JPRB &
+  &, 0.891651E+00_JPRB, 0.880880E+00_JPRB, 0.869794E+00_JPRB, 0.858403E+00_JPRB &
+  &, 0.846717E+00_JPRB, 0.834753E+00_JPRB, 0.822511E+00_JPRB &
+  &, 0.810024E+00_JPRB, 0.797296E+00_JPRB, 0.784336E+00_JPRB, 0.771164E+00_JPRB &
+  &, 0.757792E+00_JPRB, 0.744233E+00_JPRB, 0.730503E+00_JPRB &
+  &, 0.716630E+00_JPRB, 0.702609E+00_JPRB, 0.688471E+00_JPRB, 0.674239E+00_JPRB &
+  &, 0.659892E+00_JPRB, 0.645496E+00_JPRB, 0.631015E+00_JPRB &
+  &, 0.616504E+00_JPRB, 0.601972E+00_JPRB, 0.587413E+00_JPRB, 0.572869E+00_JPRB &
+  &, 0.558331E+00_JPRB, 0.543824E+00_JPRB, 0.529376E+00_JPRB &
+  &, 0.514993E+00_JPRB, 0.500683E+00_JPRB, 0.486453E+00_JPRB, 0.472326E+00_JPRB &
+  &, 0.458327E+00_JPRB, 0.444440E+00_JPRB, 0.430707E+00_JPRB &
+  &, 0.417133E+00_JPRB, 0.403717E+00_JPRB, 0.390458E+00_JPRB, 0.377397E+00_JPRB &
+  &, 0.364534E+00_JPRB, 0.351862E+00_JPRB, 0.339423E+00_JPRB &
+  &, 0.327185E+00_JPRB, 0.315164E+00_JPRB, 0.303398E+00_JPRB, 0.291850E+00_JPRB &
+  &, 0.280584E+00_JPRB, 0.269533E+00_JPRB, 0.258730E+00_JPRB &
+  &, 0.248213E+00_JPRB, 0.237961E+00_JPRB, 0.227951E+00_JPRB, 0.218217E+00_JPRB &
+  &, 0.208732E+00_JPRB, 0.199526E+00_JPRB, 0.190601E+00_JPRB &
+  &, 0.181894E+00_JPRB, 0.173559E+00_JPRB, 0.165435E+00_JPRB, 0.157546E+00_JPRB &
+  &, 0.149953E+00_JPRB, 0.142649E+00_JPRB, 0.135554E+00_JPRB &
+  &, 0.128727E+00_JPRB, 0.122193E+00_JPRB, 0.115865E+00_JPRB, 0.109801E+00_JPRB &
+  &, 0.103947E+00_JPRB, 0.983604E-01_JPRB, 0.930236E-01_JPRB &
+  &, 0.878760E-01_JPRB, 0.829749E-01_JPRB, 0.782560E-01_JPRB, 0.737767E-01_JPRB &
+  &, 0.695116E-01_JPRB, 0.654332E-01_JPRB, 0.615554E-01_JPRB &
+  &, 0.578479E-01_JPRB, 0.543232E-01_JPRB, 0.509942E-01_JPRB, 0.478269E-01_JPRB &
+  &, 0.447850E-01_JPRB, 0.419261E-01_JPRB, 0.392618E-01_JPRB &
+  &, 0.367042E-01_JPRB, 0.342611E-01_JPRB, 0.319914E-01_JPRB, 0.298533E-01_JPRB &
+  &, 0.278020E-01_JPRB, 0.258971E-01_JPRB, 0.241469E-01_JPRB &
+  &, 0.224497E-01_JPRB, 0.208652E-01_JPRB, 0.193433E-01_JPRB, 0.179455E-01_JPRB &
+  &, 0.166785E-01_JPRB, 0.154307E-01_JPRB, 0.142640E-01_JPRB &
+  &, 0.132435E-01_JPRB, 0.121917E-01_JPRB, 0.112952E-01_JPRB, 0.104348E-01_JPRB &
+  &, 0.961275E-02_JPRB, 0.883120E-02_JPRB, 0.815818E-02_JPRB/)
+XCW( 587, :) = (/ &
+  &  0.101866E+01_JPRB, 0.102231E+01_JPRB, 0.102554E+01_JPRB, 0.102836E+01_JPRB &
+  &, 0.103075E+01_JPRB, 0.103272E+01_JPRB, 0.103427E+01_JPRB &
+  &, 0.103539E+01_JPRB, 0.103608E+01_JPRB, 0.103634E+01_JPRB, 0.103617E+01_JPRB &
+  &, 0.103556E+01_JPRB, 0.103452E+01_JPRB, 0.103305E+01_JPRB &
+  &, 0.103114E+01_JPRB, 0.102879E+01_JPRB, 0.102601E+01_JPRB, 0.102279E+01_JPRB &
+  &, 0.101914E+01_JPRB, 0.101506E+01_JPRB, 0.101054E+01_JPRB &
+  &, 0.100561E+01_JPRB, 0.100024E+01_JPRB, 0.994451E+00_JPRB, 0.988247E+00_JPRB &
+  &, 0.981627E+00_JPRB, 0.974601E+00_JPRB, 0.967168E+00_JPRB &
+  &, 0.959339E+00_JPRB, 0.951120E+00_JPRB, 0.942518E+00_JPRB, 0.933538E+00_JPRB &
+  &, 0.924190E+00_JPRB, 0.914486E+00_JPRB, 0.904429E+00_JPRB &
+  &, 0.894032E+00_JPRB, 0.883302E+00_JPRB, 0.872259E+00_JPRB, 0.860909E+00_JPRB &
+  &, 0.849256E+00_JPRB, 0.837325E+00_JPRB, 0.825125E+00_JPRB &
+  &, 0.812670E+00_JPRB, 0.799964E+00_JPRB, 0.787036E+00_JPRB, 0.773883E+00_JPRB &
+  &, 0.760541E+00_JPRB, 0.747013E+00_JPRB, 0.733299E+00_JPRB &
+  &, 0.719442E+00_JPRB, 0.705449E+00_JPRB, 0.691325E+00_JPRB, 0.677090E+00_JPRB &
+  &, 0.662768E+00_JPRB, 0.648366E+00_JPRB, 0.633892E+00_JPRB &
+  &, 0.619387E+00_JPRB, 0.604843E+00_JPRB, 0.590285E+00_JPRB, 0.575740E+00_JPRB &
+  &, 0.561200E+00_JPRB, 0.546689E+00_JPRB, 0.532234E+00_JPRB &
+  &, 0.517824E+00_JPRB, 0.503503E+00_JPRB, 0.489259E+00_JPRB, 0.475115E+00_JPRB &
+  &, 0.461098E+00_JPRB, 0.447189E+00_JPRB, 0.433433E+00_JPRB &
+  &, 0.419811E+00_JPRB, 0.406365E+00_JPRB, 0.393095E+00_JPRB, 0.380000E+00_JPRB &
+  &, 0.367099E+00_JPRB, 0.354409E+00_JPRB, 0.341902E+00_JPRB &
+  &, 0.329642E+00_JPRB, 0.317595E+00_JPRB, 0.305776E+00_JPRB, 0.294198E+00_JPRB &
+  &, 0.282846E+00_JPRB, 0.271785E+00_JPRB, 0.260944E+00_JPRB &
+  &, 0.250357E+00_JPRB, 0.240061E+00_JPRB, 0.230004E+00_JPRB, 0.220220E+00_JPRB &
+  &, 0.210681E+00_JPRB, 0.201450E+00_JPRB, 0.192467E+00_JPRB &
+  &, 0.183762E+00_JPRB, 0.175299E+00_JPRB, 0.167141E+00_JPRB, 0.159216E+00_JPRB &
+  &, 0.151584E+00_JPRB, 0.144204E+00_JPRB, 0.137066E+00_JPRB &
+  &, 0.130194E+00_JPRB, 0.123576E+00_JPRB, 0.117234E+00_JPRB, 0.111118E+00_JPRB &
+  &, 0.105247E+00_JPRB, 0.996048E-01_JPRB, 0.942095E-01_JPRB &
+  &, 0.890009E-01_JPRB, 0.840773E-01_JPRB, 0.793347E-01_JPRB, 0.747883E-01_JPRB &
+  &, 0.704537E-01_JPRB, 0.663467E-01_JPRB, 0.624391E-01_JPRB &
+  &, 0.587004E-01_JPRB, 0.551434E-01_JPRB, 0.517344E-01_JPRB, 0.485315E-01_JPRB &
+  &, 0.455003E-01_JPRB, 0.426037E-01_JPRB, 0.399004E-01_JPRB &
+  &, 0.373025E-01_JPRB, 0.348682E-01_JPRB, 0.325561E-01_JPRB, 0.303741E-01_JPRB &
+  &, 0.283304E-01_JPRB, 0.263795E-01_JPRB, 0.245818E-01_JPRB &
+  &, 0.228356E-01_JPRB, 0.212566E-01_JPRB, 0.197402E-01_JPRB, 0.182904E-01_JPRB &
+  &, 0.169699E-01_JPRB, 0.157261E-01_JPRB, 0.145634E-01_JPRB &
+  &, 0.134864E-01_JPRB, 0.124378E-01_JPRB, 0.115446E-01_JPRB, 0.106244E-01_JPRB &
+  &, 0.980481E-02_JPRB, 0.902579E-02_JPRB, 0.835531E-02_JPRB/)
+XCW( 588, :) = (/ &
+  &  0.101892E+01_JPRB, 0.102263E+01_JPRB, 0.102593E+01_JPRB, 0.102882E+01_JPRB &
+  &, 0.103128E+01_JPRB, 0.103332E+01_JPRB, 0.103493E+01_JPRB &
+  &, 0.103612E+01_JPRB, 0.103687E+01_JPRB, 0.103720E+01_JPRB, 0.103710E+01_JPRB &
+  &, 0.103656E+01_JPRB, 0.103558E+01_JPRB, 0.103417E+01_JPRB &
+  &, 0.103233E+01_JPRB, 0.103004E+01_JPRB, 0.102733E+01_JPRB, 0.102417E+01_JPRB &
+  &, 0.102058E+01_JPRB, 0.101657E+01_JPRB, 0.101211E+01_JPRB &
+  &, 0.100723E+01_JPRB, 0.100193E+01_JPRB, 0.996203E+00_JPRB, 0.990055E+00_JPRB &
+  &, 0.983496E+00_JPRB, 0.976523E+00_JPRB, 0.969149E+00_JPRB &
+  &, 0.961376E+00_JPRB, 0.953208E+00_JPRB, 0.944658E+00_JPRB, 0.935731E+00_JPRB &
+  &, 0.926430E+00_JPRB, 0.916773E+00_JPRB, 0.906765E+00_JPRB &
+  &, 0.896413E+00_JPRB, 0.885725E+00_JPRB, 0.874723E+00_JPRB, 0.863415E+00_JPRB &
+  &, 0.851805E+00_JPRB, 0.839906E+00_JPRB, 0.827740E+00_JPRB &
+  &, 0.815317E+00_JPRB, 0.802643E+00_JPRB, 0.789747E+00_JPRB, 0.776626E+00_JPRB &
+  &, 0.763303E+00_JPRB, 0.749792E+00_JPRB, 0.736108E+00_JPRB &
+  &, 0.722267E+00_JPRB, 0.708289E+00_JPRB, 0.694178E+00_JPRB, 0.679956E+00_JPRB &
+  &, 0.665644E+00_JPRB, 0.651251E+00_JPRB, 0.636785E+00_JPRB &
+  &, 0.622285E+00_JPRB, 0.607745E+00_JPRB, 0.593189E+00_JPRB, 0.578628E+00_JPRB &
+  &, 0.564085E+00_JPRB, 0.549571E+00_JPRB, 0.535091E+00_JPRB &
+  &, 0.520673E+00_JPRB, 0.506341E+00_JPRB, 0.492083E+00_JPRB, 0.477924E+00_JPRB &
+  &, 0.463868E+00_JPRB, 0.449939E+00_JPRB, 0.436159E+00_JPRB &
+  &, 0.422531E+00_JPRB, 0.409057E+00_JPRB, 0.395733E+00_JPRB, 0.382625E+00_JPRB &
+  &, 0.369686E+00_JPRB, 0.356933E+00_JPRB, 0.344406E+00_JPRB &
+  &, 0.332098E+00_JPRB, 0.320026E+00_JPRB, 0.308154E+00_JPRB, 0.296545E+00_JPRB &
+  &, 0.285160E+00_JPRB, 0.274037E+00_JPRB, 0.263157E+00_JPRB &
+  &, 0.252529E+00_JPRB, 0.242160E+00_JPRB, 0.232085E+00_JPRB, 0.222252E+00_JPRB &
+  &, 0.212661E+00_JPRB, 0.203375E+00_JPRB, 0.194333E+00_JPRB &
+  &, 0.185567E+00_JPRB, 0.177072E+00_JPRB, 0.168847E+00_JPRB, 0.160885E+00_JPRB &
+  &, 0.153215E+00_JPRB, 0.145760E+00_JPRB, 0.138614E+00_JPRB &
+  &, 0.131697E+00_JPRB, 0.125031E+00_JPRB, 0.118603E+00_JPRB, 0.112435E+00_JPRB &
+  &, 0.106510E+00_JPRB, 0.100849E+00_JPRB, 0.953954E-01_JPRB &
+  &, 0.901661E-01_JPRB, 0.851796E-01_JPRB, 0.803719E-01_JPRB, 0.758000E-01_JPRB &
+  &, 0.714387E-01_JPRB, 0.672602E-01_JPRB, 0.633227E-01_JPRB &
+  &, 0.595530E-01_JPRB, 0.559635E-01_JPRB, 0.525209E-01_JPRB, 0.492830E-01_JPRB &
+  &, 0.462155E-01_JPRB, 0.432813E-01_JPRB, 0.405391E-01_JPRB &
+  &, 0.379008E-01_JPRB, 0.354247E-01_JPRB, 0.330694E-01_JPRB, 0.308949E-01_JPRB &
+  &, 0.288059E-01_JPRB, 0.268618E-01_JPRB, 0.250167E-01_JPRB &
+  &, 0.232767E-01_JPRB, 0.216480E-01_JPRB, 0.200804E-01_JPRB, 0.186354E-01_JPRB &
+  &, 0.173196E-01_JPRB, 0.160215E-01_JPRB, 0.148629E-01_JPRB &
+  &, 0.137292E-01_JPRB, 0.127454E-01_JPRB, 0.117317E-01_JPRB, 0.108771E-01_JPRB &
+  &, 0.999686E-02_JPRB, 0.922037E-02_JPRB, 0.848674E-02_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART84',1,ZHOOK_HANDLE)
+END SUBROUTINE PART84
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART85
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART85',0,ZHOOK_HANDLE)
+
+XCW( 589, :) = (/ &
+  &  0.101918E+01_JPRB, 0.102296E+01_JPRB, 0.102633E+01_JPRB, 0.102928E+01_JPRB &
+  &, 0.103180E+01_JPRB, 0.103391E+01_JPRB, 0.103559E+01_JPRB &
+  &, 0.103684E+01_JPRB, 0.103767E+01_JPRB, 0.103805E+01_JPRB, 0.103802E+01_JPRB &
+  &, 0.103755E+01_JPRB, 0.103664E+01_JPRB, 0.103529E+01_JPRB &
+  &, 0.103351E+01_JPRB, 0.103130E+01_JPRB, 0.102864E+01_JPRB, 0.102556E+01_JPRB &
+  &, 0.102203E+01_JPRB, 0.101808E+01_JPRB, 0.101369E+01_JPRB &
+  &, 0.100887E+01_JPRB, 0.100362E+01_JPRB, 0.997956E+00_JPRB, 0.991867E+00_JPRB &
+  &, 0.985366E+00_JPRB, 0.978453E+00_JPRB, 0.971133E+00_JPRB &
+  &, 0.963414E+00_JPRB, 0.955303E+00_JPRB, 0.946802E+00_JPRB, 0.937924E+00_JPRB &
+  &, 0.928678E+00_JPRB, 0.919065E+00_JPRB, 0.909106E+00_JPRB &
+  &, 0.898794E+00_JPRB, 0.888157E+00_JPRB, 0.877196E+00_JPRB, 0.865922E+00_JPRB &
+  &, 0.854354E+00_JPRB, 0.842499E+00_JPRB, 0.830365E+00_JPRB &
+  &, 0.817975E+00_JPRB, 0.805333E+00_JPRB, 0.792457E+00_JPRB, 0.779368E+00_JPRB &
+  &, 0.766077E+00_JPRB, 0.752584E+00_JPRB, 0.738917E+00_JPRB &
+  &, 0.725105E+00_JPRB, 0.711142E+00_JPRB, 0.697045E+00_JPRB, 0.682835E+00_JPRB &
+  &, 0.668534E+00_JPRB, 0.654135E+00_JPRB, 0.639692E+00_JPRB &
+  &, 0.625182E+00_JPRB, 0.610647E+00_JPRB, 0.596094E+00_JPRB, 0.581532E+00_JPRB &
+  &, 0.566971E+00_JPRB, 0.552452E+00_JPRB, 0.537967E+00_JPRB &
+  &, 0.523540E+00_JPRB, 0.509179E+00_JPRB, 0.494908E+00_JPRB, 0.480733E+00_JPRB &
+  &, 0.466659E+00_JPRB, 0.452729E+00_JPRB, 0.438906E+00_JPRB &
+  &, 0.425252E+00_JPRB, 0.411748E+00_JPRB, 0.398393E+00_JPRB, 0.385251E+00_JPRB &
+  &, 0.372274E+00_JPRB, 0.359503E+00_JPRB, 0.346933E+00_JPRB &
+  &, 0.334579E+00_JPRB, 0.322457E+00_JPRB, 0.310557E+00_JPRB, 0.298893E+00_JPRB &
+  &, 0.287475E+00_JPRB, 0.276316E+00_JPRB, 0.265370E+00_JPRB &
+  &, 0.254701E+00_JPRB, 0.244317E+00_JPRB, 0.234167E+00_JPRB, 0.224283E+00_JPRB &
+  &, 0.214670E+00_JPRB, 0.205299E+00_JPRB, 0.196231E+00_JPRB &
+  &, 0.187435E+00_JPRB, 0.178877E+00_JPRB, 0.170586E+00_JPRB, 0.162588E+00_JPRB &
+  &, 0.154846E+00_JPRB, 0.147350E+00_JPRB, 0.140126E+00_JPRB &
+  &, 0.133163E+00_JPRB, 0.126450E+00_JPRB, 0.120009E+00_JPRB, 0.113789E+00_JPRB &
+  &, 0.107810E+00_JPRB, 0.102094E+00_JPRB, 0.965813E-01_JPRB &
+  &, 0.913312E-01_JPRB, 0.862820E-01_JPRB, 0.814506E-01_JPRB, 0.768538E-01_JPRB &
+  &, 0.724236E-01_JPRB, 0.682172E-01_JPRB, 0.642063E-01_JPRB &
+  &, 0.604055E-01_JPRB, 0.567837E-01_JPRB, 0.533074E-01_JPRB, 0.500346E-01_JPRB &
+  &, 0.469308E-01_JPRB, 0.439590E-01_JPRB, 0.411777E-01_JPRB &
+  &, 0.384991E-01_JPRB, 0.360318E-01_JPRB, 0.336341E-01_JPRB, 0.314158E-01_JPRB &
+  &, 0.292814E-01_JPRB, 0.273442E-01_JPRB, 0.254516E-01_JPRB &
+  &, 0.236626E-01_JPRB, 0.220394E-01_JPRB, 0.204772E-01_JPRB, 0.190378E-01_JPRB &
+  &, 0.176693E-01_JPRB, 0.163760E-01_JPRB, 0.151624E-01_JPRB &
+  &, 0.140327E-01_JPRB, 0.129915E-01_JPRB, 0.119811E-01_JPRB, 0.110667E-01_JPRB &
+  &, 0.102529E-01_JPRB, 0.941496E-02_JPRB, 0.868387E-02_JPRB/)
+XCW( 590, :) = (/ &
+  &  0.101944E+01_JPRB, 0.102329E+01_JPRB, 0.102672E+01_JPRB, 0.102974E+01_JPRB &
+  &, 0.103233E+01_JPRB, 0.103450E+01_JPRB, 0.103625E+01_JPRB &
+  &, 0.103757E+01_JPRB, 0.103846E+01_JPRB, 0.103892E+01_JPRB, 0.103895E+01_JPRB &
+  &, 0.103854E+01_JPRB, 0.103770E+01_JPRB, 0.103642E+01_JPRB &
+  &, 0.103471E+01_JPRB, 0.103255E+01_JPRB, 0.102996E+01_JPRB, 0.102694E+01_JPRB &
+  &, 0.102348E+01_JPRB, 0.101959E+01_JPRB, 0.101526E+01_JPRB &
+  &, 0.101050E+01_JPRB, 0.100532E+01_JPRB, 0.999712E+00_JPRB, 0.993686E+00_JPRB &
+  &, 0.987239E+00_JPRB, 0.980382E+00_JPRB, 0.973121E+00_JPRB &
+  &, 0.965455E+00_JPRB, 0.957399E+00_JPRB, 0.948954E+00_JPRB, 0.940126E+00_JPRB &
+  &, 0.930926E+00_JPRB, 0.921366E+00_JPRB, 0.911451E+00_JPRB &
+  &, 0.901185E+00_JPRB, 0.890588E+00_JPRB, 0.879670E+00_JPRB, 0.868448E+00_JPRB &
+  &, 0.856913E+00_JPRB, 0.845091E+00_JPRB, 0.833001E+00_JPRB &
+  &, 0.820633E+00_JPRB, 0.808035E+00_JPRB, 0.795192E+00_JPRB, 0.782122E+00_JPRB &
+  &, 0.768850E+00_JPRB, 0.755388E+00_JPRB, 0.741752E+00_JPRB &
+  &, 0.727944E+00_JPRB, 0.713995E+00_JPRB, 0.699912E+00_JPRB, 0.685714E+00_JPRB &
+  &, 0.671424E+00_JPRB, 0.657050E+00_JPRB, 0.642599E+00_JPRB &
+  &, 0.628096E+00_JPRB, 0.613565E+00_JPRB, 0.598998E+00_JPRB, 0.584437E+00_JPRB &
+  &, 0.569891E+00_JPRB, 0.555351E+00_JPRB, 0.540860E+00_JPRB &
+  &, 0.526425E+00_JPRB, 0.512054E+00_JPRB, 0.497752E+00_JPRB, 0.483561E+00_JPRB &
+  &, 0.469469E+00_JPRB, 0.455499E+00_JPRB, 0.441673E+00_JPRB &
+  &, 0.427972E+00_JPRB, 0.414440E+00_JPRB, 0.401075E+00_JPRB, 0.387898E+00_JPRB &
+  &, 0.374885E+00_JPRB, 0.362074E+00_JPRB, 0.349484E+00_JPRB &
+  &, 0.337084E+00_JPRB, 0.324913E+00_JPRB, 0.312986E+00_JPRB, 0.301266E+00_JPRB &
+  &, 0.289816E+00_JPRB, 0.278594E+00_JPRB, 0.267638E+00_JPRB &
+  &, 0.256901E+00_JPRB, 0.246445E+00_JPRB, 0.236277E+00_JPRB, 0.226345E+00_JPRB &
+  &, 0.216680E+00_JPRB, 0.207284E+00_JPRB, 0.198128E+00_JPRB &
+  &, 0.189271E+00_JPRB, 0.180683E+00_JPRB, 0.172358E+00_JPRB, 0.164291E+00_JPRB &
+  &, 0.156511E+00_JPRB, 0.148975E+00_JPRB, 0.141709E+00_JPRB &
+  &, 0.134666E+00_JPRB, 0.127906E+00_JPRB, 0.121415E+00_JPRB, 0.115144E+00_JPRB &
+  &, 0.109149E+00_JPRB, 0.103338E+00_JPRB, 0.978067E-01_JPRB &
+  &, 0.924963E-01_JPRB, 0.873844E-01_JPRB, 0.825293E-01_JPRB, 0.778655E-01_JPRB &
+  &, 0.734085E-01_JPRB, 0.691741E-01_JPRB, 0.651342E-01_JPRB &
+  &, 0.612581E-01_JPRB, 0.576039E-01_JPRB, 0.540939E-01_JPRB, 0.507861E-01_JPRB &
+  &, 0.476460E-01_JPRB, 0.446850E-01_JPRB, 0.418164E-01_JPRB &
+  &, 0.391472E-01_JPRB, 0.365883E-01_JPRB, 0.341988E-01_JPRB, 0.319366E-01_JPRB &
+  &, 0.298098E-01_JPRB, 0.277730E-01_JPRB, 0.258865E-01_JPRB &
+  &, 0.241037E-01_JPRB, 0.224308E-01_JPRB, 0.208741E-01_JPRB, 0.193827E-01_JPRB &
+  &, 0.179607E-01_JPRB, 0.166714E-01_JPRB, 0.154618E-01_JPRB &
+  &, 0.143362E-01_JPRB, 0.132376E-01_JPRB, 0.122305E-01_JPRB, 0.113194E-01_JPRB &
+  &, 0.104450E-01_JPRB, 0.967440E-02_JPRB, 0.888100E-02_JPRB/)
+XCW( 591, :) = (/ &
+  &  0.101970E+01_JPRB, 0.102361E+01_JPRB, 0.102711E+01_JPRB, 0.103020E+01_JPRB &
+  &, 0.103286E+01_JPRB, 0.103510E+01_JPRB, 0.103691E+01_JPRB &
+  &, 0.103830E+01_JPRB, 0.103926E+01_JPRB, 0.103978E+01_JPRB, 0.103988E+01_JPRB &
+  &, 0.103953E+01_JPRB, 0.103876E+01_JPRB, 0.103755E+01_JPRB &
+  &, 0.103590E+01_JPRB, 0.103381E+01_JPRB, 0.103129E+01_JPRB, 0.102833E+01_JPRB &
+  &, 0.102493E+01_JPRB, 0.102110E+01_JPRB, 0.101683E+01_JPRB &
+  &, 0.101214E+01_JPRB, 0.100702E+01_JPRB, 0.100147E+01_JPRB, 0.995505E+00_JPRB &
+  &, 0.989116E+00_JPRB, 0.982319E+00_JPRB, 0.975113E+00_JPRB &
+  &, 0.967503E+00_JPRB, 0.959498E+00_JPRB, 0.951106E+00_JPRB, 0.942331E+00_JPRB &
+  &, 0.933183E+00_JPRB, 0.923671E+00_JPRB, 0.913800E+00_JPRB &
+  &, 0.903584E+00_JPRB, 0.893039E+00_JPRB, 0.882154E+00_JPRB, 0.870964E+00_JPRB &
+  &, 0.859473E+00_JPRB, 0.847694E+00_JPRB, 0.835637E+00_JPRB &
+  &, 0.823313E+00_JPRB, 0.810737E+00_JPRB, 0.797914E+00_JPRB, 0.784889E+00_JPRB &
+  &, 0.771636E+00_JPRB, 0.758193E+00_JPRB, 0.744574E+00_JPRB &
+  &, 0.730795E+00_JPRB, 0.716862E+00_JPRB, 0.702806E+00_JPRB, 0.688622E+00_JPRB &
+  &, 0.674329E+00_JPRB, 0.659964E+00_JPRB, 0.645522E+00_JPRB &
+  &, 0.631025E+00_JPRB, 0.616435E+00_JPRB, 0.601934E+00_JPRB, 0.587358E+00_JPRB &
+  &, 0.572811E+00_JPRB, 0.558268E+00_JPRB, 0.543754E+00_JPRB &
+  &, 0.529311E+00_JPRB, 0.514929E+00_JPRB, 0.500614E+00_JPRB, 0.486409E+00_JPRB &
+  &, 0.472300E+00_JPRB, 0.458309E+00_JPRB, 0.444440E+00_JPRB &
+  &, 0.430735E+00_JPRB, 0.417174E+00_JPRB, 0.403779E+00_JPRB, 0.390546E+00_JPRB &
+  &, 0.377518E+00_JPRB, 0.364668E+00_JPRB, 0.352035E+00_JPRB &
+  &, 0.339613E+00_JPRB, 0.327394E+00_JPRB, 0.315415E+00_JPRB, 0.303665E+00_JPRB &
+  &, 0.292156E+00_JPRB, 0.280900E+00_JPRB, 0.269879E+00_JPRB &
+  &, 0.259129E+00_JPRB, 0.248630E+00_JPRB, 0.238387E+00_JPRB, 0.228406E+00_JPRB &
+  &, 0.218689E+00_JPRB, 0.209239E+00_JPRB, 0.200056E+00_JPRB &
+  &, 0.191140E+00_JPRB, 0.182520E+00_JPRB, 0.174129E+00_JPRB, 0.166028E+00_JPRB &
+  &, 0.158176E+00_JPRB, 0.150600E+00_JPRB, 0.143256E+00_JPRB &
+  &, 0.136204E+00_JPRB, 0.129397E+00_JPRB, 0.122821E+00_JPRB, 0.116536E+00_JPRB &
+  &, 0.110450E+00_JPRB, 0.104622E+00_JPRB, 0.990321E-01_JPRB &
+  &, 0.936614E-01_JPRB, 0.885276E-01_JPRB, 0.836079E-01_JPRB, 0.789193E-01_JPRB &
+  &, 0.744363E-01_JPRB, 0.701311E-01_JPRB, 0.660620E-01_JPRB &
+  &, 0.621555E-01_JPRB, 0.584696E-01_JPRB, 0.549267E-01_JPRB, 0.515846E-01_JPRB &
+  &, 0.484090E-01_JPRB, 0.453626E-01_JPRB, 0.425041E-01_JPRB &
+  &, 0.397953E-01_JPRB, 0.371954E-01_JPRB, 0.347635E-01_JPRB, 0.325095E-01_JPRB &
+  &, 0.303382E-01_JPRB, 0.283089E-01_JPRB, 0.263758E-01_JPRB &
+  &, 0.245448E-01_JPRB, 0.228222E-01_JPRB, 0.212710E-01_JPRB, 0.197276E-01_JPRB &
+  &, 0.183104E-01_JPRB, 0.170259E-01_JPRB, 0.157613E-01_JPRB &
+  &, 0.145790E-01_JPRB, 0.135453E-01_JPRB, 0.124799E-01_JPRB, 0.115721E-01_JPRB &
+  &, 0.107011E-01_JPRB, 0.986899E-02_JPRB, 0.907814E-02_JPRB/)
+XCW( 592, :) = (/ &
+  &  0.101996E+01_JPRB, 0.102394E+01_JPRB, 0.102751E+01_JPRB, 0.103065E+01_JPRB &
+  &, 0.103338E+01_JPRB, 0.103569E+01_JPRB, 0.103757E+01_JPRB &
+  &, 0.103902E+01_JPRB, 0.104005E+01_JPRB, 0.104064E+01_JPRB, 0.104080E+01_JPRB &
+  &, 0.104053E+01_JPRB, 0.103982E+01_JPRB, 0.103867E+01_JPRB &
+  &, 0.103709E+01_JPRB, 0.103507E+01_JPRB, 0.103261E+01_JPRB, 0.102972E+01_JPRB &
+  &, 0.102638E+01_JPRB, 0.102262E+01_JPRB, 0.101842E+01_JPRB &
+  &, 0.101378E+01_JPRB, 0.100872E+01_JPRB, 0.100323E+01_JPRB, 0.997327E+00_JPRB &
+  &, 0.991000E+00_JPRB, 0.984257E+00_JPRB, 0.977105E+00_JPRB &
+  &, 0.969552E+00_JPRB, 0.961542E+00_JPRB, 0.953266E+00_JPRB, 0.944541E+00_JPRB &
+  &, 0.935444E+00_JPRB, 0.925980E+00_JPRB, 0.916159E+00_JPRB &
+  &, 0.905993E+00_JPRB, 0.895481E+00_JPRB, 0.884647E+00_JPRB, 0.873501E+00_JPRB &
+  &, 0.862053E+00_JPRB, 0.850308E+00_JPRB, 0.838284E+00_JPRB &
+  &, 0.825993E+00_JPRB, 0.813450E+00_JPRB, 0.800660E+00_JPRB, 0.787655E+00_JPRB &
+  &, 0.774434E+00_JPRB, 0.761022E+00_JPRB, 0.747421E+00_JPRB &
+  &, 0.733659E+00_JPRB, 0.719742E+00_JPRB, 0.705701E+00_JPRB, 0.691529E+00_JPRB &
+  &, 0.677248E+00_JPRB, 0.662893E+00_JPRB, 0.648459E+00_JPRB &
+  &, 0.633969E+00_JPRB, 0.619432E+00_JPRB, 0.604871E+00_JPRB, 0.590296E+00_JPRB &
+  &, 0.575731E+00_JPRB, 0.561184E+00_JPRB, 0.546682E+00_JPRB &
+  &, 0.532214E+00_JPRB, 0.517804E+00_JPRB, 0.503496E+00_JPRB, 0.489257E+00_JPRB &
+  &, 0.475130E+00_JPRB, 0.461119E+00_JPRB, 0.447227E+00_JPRB &
+  &, 0.433497E+00_JPRB, 0.419909E+00_JPRB, 0.406483E+00_JPRB, 0.393216E+00_JPRB &
+  &, 0.380152E+00_JPRB, 0.367285E+00_JPRB, 0.354610E+00_JPRB &
+  &, 0.342143E+00_JPRB, 0.329899E+00_JPRB, 0.317869E+00_JPRB, 0.306090E+00_JPRB &
+  &, 0.294523E+00_JPRB, 0.283233E+00_JPRB, 0.272174E+00_JPRB &
+  &, 0.261357E+00_JPRB, 0.250815E+00_JPRB, 0.240527E+00_JPRB, 0.230497E+00_JPRB &
+  &, 0.220729E+00_JPRB, 0.211224E+00_JPRB, 0.202016E+00_JPRB &
+  &, 0.193040E+00_JPRB, 0.184357E+00_JPRB, 0.175901E+00_JPRB, 0.167764E+00_JPRB &
+  &, 0.159875E+00_JPRB, 0.152225E+00_JPRB, 0.144839E+00_JPRB &
+  &, 0.137743E+00_JPRB, 0.130889E+00_JPRB, 0.124265E+00_JPRB, 0.117928E+00_JPRB &
+  &, 0.111789E+00_JPRB, 0.105905E+00_JPRB, 0.100297E+00_JPRB &
+  &, 0.948667E-01_JPRB, 0.897117E-01_JPRB, 0.847281E-01_JPRB, 0.799731E-01_JPRB &
+  &, 0.754640E-01_JPRB, 0.711316E-01_JPRB, 0.669898E-01_JPRB &
+  &, 0.630529E-01_JPRB, 0.592442E-01_JPRB, 0.557595E-01_JPRB, 0.523362E-01_JPRB &
+  &, 0.491242E-01_JPRB, 0.460887E-01_JPRB, 0.431919E-01_JPRB &
+  &, 0.404435E-01_JPRB, 0.378531E-01_JPRB, 0.353795E-01_JPRB, 0.330303E-01_JPRB &
+  &, 0.308665E-01_JPRB, 0.287913E-01_JPRB, 0.268107E-01_JPRB &
+  &, 0.249858E-01_JPRB, 0.232694E-01_JPRB, 0.216678E-01_JPRB, 0.201300E-01_JPRB &
+  &, 0.186601E-01_JPRB, 0.173213E-01_JPRB, 0.160607E-01_JPRB &
+  &, 0.148826E-01_JPRB, 0.137914E-01_JPRB, 0.127916E-01_JPRB, 0.118248E-01_JPRB &
+  &, 0.108931E-01_JPRB, 0.100636E-01_JPRB, 0.927527E-02_JPRB/)
+XCW( 593, :) = (/ &
+  &  0.102023E+01_JPRB, 0.102427E+01_JPRB, 0.102790E+01_JPRB, 0.103112E+01_JPRB &
+  &, 0.103391E+01_JPRB, 0.103628E+01_JPRB, 0.103823E+01_JPRB &
+  &, 0.103975E+01_JPRB, 0.104085E+01_JPRB, 0.104151E+01_JPRB, 0.104174E+01_JPRB &
+  &, 0.104153E+01_JPRB, 0.104088E+01_JPRB, 0.103980E+01_JPRB &
+  &, 0.103829E+01_JPRB, 0.103633E+01_JPRB, 0.103394E+01_JPRB, 0.103111E+01_JPRB &
+  &, 0.102783E+01_JPRB, 0.102413E+01_JPRB, 0.102000E+01_JPRB &
+  &, 0.101543E+01_JPRB, 0.101043E+01_JPRB, 0.100500E+01_JPRB, 0.999153E+00_JPRB &
+  &, 0.992884E+00_JPRB, 0.986201E+00_JPRB, 0.979105E+00_JPRB &
+  &, 0.971609E+00_JPRB, 0.963714E+00_JPRB, 0.955426E+00_JPRB, 0.946756E+00_JPRB &
+  &, 0.937710E+00_JPRB, 0.928294E+00_JPRB, 0.918522E+00_JPRB &
+  &, 0.908402E+00_JPRB, 0.897941E+00_JPRB, 0.887151E+00_JPRB, 0.876037E+00_JPRB &
+  &, 0.864623E+00_JPRB, 0.852921E+00_JPRB, 0.840931E+00_JPRB &
+  &, 0.828673E+00_JPRB, 0.816163E+00_JPRB, 0.803406E+00_JPRB, 0.790433E+00_JPRB &
+  &, 0.777233E+00_JPRB, 0.763852E+00_JPRB, 0.750269E+00_JPRB &
+  &, 0.736524E+00_JPRB, 0.722636E+00_JPRB, 0.708595E+00_JPRB, 0.694437E+00_JPRB &
+  &, 0.680182E+00_JPRB, 0.665823E+00_JPRB, 0.651397E+00_JPRB &
+  &, 0.636914E+00_JPRB, 0.622381E+00_JPRB, 0.607824E+00_JPRB, 0.593250E+00_JPRB &
+  &, 0.578684E+00_JPRB, 0.564118E+00_JPRB, 0.549611E+00_JPRB &
+  &, 0.535136E+00_JPRB, 0.520716E+00_JPRB, 0.506377E+00_JPRB, 0.492124E+00_JPRB &
+  &, 0.477980E+00_JPRB, 0.463950E+00_JPRB, 0.450036E+00_JPRB &
+  &, 0.436260E+00_JPRB, 0.422643E+00_JPRB, 0.409186E+00_JPRB, 0.395909E+00_JPRB &
+  &, 0.382808E+00_JPRB, 0.369902E+00_JPRB, 0.357185E+00_JPRB &
+  &, 0.344672E+00_JPRB, 0.332405E+00_JPRB, 0.320348E+00_JPRB, 0.308515E+00_JPRB &
+  &, 0.296917E+00_JPRB, 0.285565E+00_JPRB, 0.274470E+00_JPRB &
+  &, 0.263612E+00_JPRB, 0.253000E+00_JPRB, 0.242666E+00_JPRB, 0.232588E+00_JPRB &
+  &, 0.222798E+00_JPRB, 0.213240E+00_JPRB, 0.203944E+00_JPRB &
+  &, 0.194939E+00_JPRB, 0.186195E+00_JPRB, 0.177706E+00_JPRB, 0.169500E+00_JPRB &
+  &, 0.161574E+00_JPRB, 0.153884E+00_JPRB, 0.146457E+00_JPRB &
+  &, 0.139281E+00_JPRB, 0.132381E+00_JPRB, 0.125708E+00_JPRB, 0.119320E+00_JPRB &
+  &, 0.113166E+00_JPRB, 0.107227E+00_JPRB, 0.101562E+00_JPRB &
+  &, 0.960720E-01_JPRB, 0.908549E-01_JPRB, 0.858483E-01_JPRB, 0.810691E-01_JPRB &
+  &, 0.764918E-01_JPRB, 0.721321E-01_JPRB, 0.679618E-01_JPRB &
+  &, 0.639503E-01_JPRB, 0.602011E-01_JPRB, 0.565922E-01_JPRB, 0.531347E-01_JPRB &
+  &, 0.498872E-01_JPRB, 0.468147E-01_JPRB, 0.438796E-01_JPRB &
+  &, 0.410916E-01_JPRB, 0.384602E-01_JPRB, 0.359441E-01_JPRB, 0.336032E-01_JPRB &
+  &, 0.313949E-01_JPRB, 0.292737E-01_JPRB, 0.272999E-01_JPRB &
+  &, 0.254269E-01_JPRB, 0.237167E-01_JPRB, 0.220647E-01_JPRB, 0.204749E-01_JPRB &
+  &, 0.190680E-01_JPRB, 0.176758E-01_JPRB, 0.164201E-01_JPRB &
+  &, 0.151861E-01_JPRB, 0.140990E-01_JPRB, 0.130410E-01_JPRB, 0.120776E-01_JPRB &
+  &, 0.111492E-01_JPRB, 0.102582E-01_JPRB, 0.947240E-02_JPRB/)
+XCW( 594, :) = (/ &
+  &  0.102049E+01_JPRB, 0.102460E+01_JPRB, 0.102830E+01_JPRB, 0.103158E+01_JPRB &
+  &, 0.103444E+01_JPRB, 0.103687E+01_JPRB, 0.103889E+01_JPRB &
+  &, 0.104048E+01_JPRB, 0.104164E+01_JPRB, 0.104237E+01_JPRB, 0.104267E+01_JPRB &
+  &, 0.104253E+01_JPRB, 0.104195E+01_JPRB, 0.104094E+01_JPRB &
+  &, 0.103948E+01_JPRB, 0.103760E+01_JPRB, 0.103527E+01_JPRB, 0.103250E+01_JPRB &
+  &, 0.102930E+01_JPRB, 0.102566E+01_JPRB, 0.102158E+01_JPRB &
+  &, 0.101707E+01_JPRB, 0.101214E+01_JPRB, 0.100677E+01_JPRB, 0.100098E+01_JPRB &
+  &, 0.994772E+00_JPRB, 0.988146E+00_JPRB, 0.981109E+00_JPRB &
+  &, 0.973670E+00_JPRB, 0.965829E+00_JPRB, 0.957594E+00_JPRB, 0.948978E+00_JPRB &
+  &, 0.939980E+00_JPRB, 0.930617E+00_JPRB, 0.920890E+00_JPRB &
+  &, 0.910811E+00_JPRB, 0.900392E+00_JPRB, 0.889654E+00_JPRB, 0.878584E+00_JPRB &
+  &, 0.867213E+00_JPRB, 0.855545E+00_JPRB, 0.843588E+00_JPRB &
+  &, 0.831375E+00_JPRB, 0.818887E+00_JPRB, 0.806163E+00_JPRB, 0.793212E+00_JPRB &
+  &, 0.780055E+00_JPRB, 0.766681E+00_JPRB, 0.753129E+00_JPRB &
+  &, 0.739415E+00_JPRB, 0.725529E+00_JPRB, 0.711518E+00_JPRB, 0.697373E+00_JPRB &
+  &, 0.683115E+00_JPRB, 0.668781E+00_JPRB, 0.654350E+00_JPRB &
+  &, 0.639874E+00_JPRB, 0.625347E+00_JPRB, 0.610777E+00_JPRB, 0.596204E+00_JPRB &
+  &, 0.581638E+00_JPRB, 0.567069E+00_JPRB, 0.552540E+00_JPRB &
+  &, 0.538057E+00_JPRB, 0.523629E+00_JPRB, 0.509278E+00_JPRB, 0.495010E+00_JPRB &
+  &, 0.480850E+00_JPRB, 0.466780E+00_JPRB, 0.452865E+00_JPRB &
+  &, 0.439065E+00_JPRB, 0.425421E+00_JPRB, 0.411934E+00_JPRB, 0.398624E+00_JPRB &
+  &, 0.385487E+00_JPRB, 0.372543E+00_JPRB, 0.359784E+00_JPRB &
+  &, 0.347250E+00_JPRB, 0.334910E+00_JPRB, 0.322828E+00_JPRB, 0.310940E+00_JPRB &
+  &, 0.299310E+00_JPRB, 0.287924E+00_JPRB, 0.276765E+00_JPRB &
+  &, 0.265868E+00_JPRB, 0.255213E+00_JPRB, 0.244834E+00_JPRB, 0.234708E+00_JPRB &
+  &, 0.224868E+00_JPRB, 0.215256E+00_JPRB, 0.205934E+00_JPRB &
+  &, 0.196871E+00_JPRB, 0.188064E+00_JPRB, 0.179543E+00_JPRB, 0.171270E+00_JPRB &
+  &, 0.163272E+00_JPRB, 0.155544E+00_JPRB, 0.148074E+00_JPRB &
+  &, 0.140855E+00_JPRB, 0.133909E+00_JPRB, 0.127188E+00_JPRB, 0.120750E+00_JPRB &
+  &, 0.114505E+00_JPRB, 0.108549E+00_JPRB, 0.102827E+00_JPRB &
+  &, 0.973175E-01_JPRB, 0.920389E-01_JPRB, 0.870099E-01_JPRB, 0.821650E-01_JPRB &
+  &, 0.775195E-01_JPRB, 0.731326E-01_JPRB, 0.688896E-01_JPRB &
+  &, 0.648926E-01_JPRB, 0.610668E-01_JPRB, 0.574250E-01_JPRB, 0.539332E-01_JPRB &
+  &, 0.506501E-01_JPRB, 0.475407E-01_JPRB, 0.445674E-01_JPRB &
+  &, 0.417397E-01_JPRB, 0.390673E-01_JPRB, 0.365602E-01_JPRB, 0.341761E-01_JPRB &
+  &, 0.319233E-01_JPRB, 0.298096E-01_JPRB, 0.277892E-01_JPRB &
+  &, 0.259231E-01_JPRB, 0.241081E-01_JPRB, 0.224616E-01_JPRB, 0.208773E-01_JPRB &
+  &, 0.194177E-01_JPRB, 0.180303E-01_JPRB, 0.167195E-01_JPRB &
+  &, 0.154896E-01_JPRB, 0.143451E-01_JPRB, 0.132904E-01_JPRB, 0.123303E-01_JPRB &
+  &, 0.114053E-01_JPRB, 0.105176E-01_JPRB, 0.966954E-02_JPRB/)
+XCW( 595, :) = (/ &
+  &  0.102075E+01_JPRB, 0.102493E+01_JPRB, 0.102869E+01_JPRB, 0.103204E+01_JPRB &
+  &, 0.103497E+01_JPRB, 0.103748E+01_JPRB, 0.103956E+01_JPRB &
+  &, 0.104121E+01_JPRB, 0.104244E+01_JPRB, 0.104324E+01_JPRB, 0.104360E+01_JPRB &
+  &, 0.104352E+01_JPRB, 0.104302E+01_JPRB, 0.104207E+01_JPRB &
+  &, 0.104068E+01_JPRB, 0.103886E+01_JPRB, 0.103660E+01_JPRB, 0.103390E+01_JPRB &
+  &, 0.103076E+01_JPRB, 0.102718E+01_JPRB, 0.102317E+01_JPRB &
+  &, 0.101873E+01_JPRB, 0.101385E+01_JPRB, 0.100854E+01_JPRB, 0.100281E+01_JPRB &
+  &, 0.996664E+00_JPRB, 0.990098E+00_JPRB, 0.983116E+00_JPRB &
+  &, 0.975730E+00_JPRB, 0.967945E+00_JPRB, 0.959767E+00_JPRB, 0.951201E+00_JPRB &
+  &, 0.942258E+00_JPRB, 0.932939E+00_JPRB, 0.923267E+00_JPRB &
+  &, 0.913230E+00_JPRB, 0.902862E+00_JPRB, 0.892157E+00_JPRB, 0.881140E+00_JPRB &
+  &, 0.869803E+00_JPRB, 0.858169E+00_JPRB, 0.846257E+00_JPRB &
+  &, 0.834077E+00_JPRB, 0.821623E+00_JPRB, 0.808932E+00_JPRB, 0.796014E+00_JPRB &
+  &, 0.782878E+00_JPRB, 0.769536E+00_JPRB, 0.756002E+00_JPRB &
+  &, 0.742306E+00_JPRB, 0.728436E+00_JPRB, 0.714440E+00_JPRB, 0.700309E+00_JPRB &
+  &, 0.686078E+00_JPRB, 0.671740E+00_JPRB, 0.657318E+00_JPRB &
+  &, 0.642849E+00_JPRB, 0.628312E+00_JPRB, 0.613762E+00_JPRB, 0.599191E+00_JPRB &
+  &, 0.584609E+00_JPRB, 0.570038E+00_JPRB, 0.555504E+00_JPRB &
+  &, 0.540997E+00_JPRB, 0.526559E+00_JPRB, 0.512197E+00_JPRB, 0.497916E+00_JPRB &
+  &, 0.483719E+00_JPRB, 0.469651E+00_JPRB, 0.455694E+00_JPRB &
+  &, 0.441869E+00_JPRB, 0.428199E+00_JPRB, 0.414682E+00_JPRB, 0.401339E+00_JPRB &
+  &, 0.388167E+00_JPRB, 0.375183E+00_JPRB, 0.362406E+00_JPRB &
+  &, 0.349829E+00_JPRB, 0.337466E+00_JPRB, 0.325332E+00_JPRB, 0.313416E+00_JPRB &
+  &, 0.301730E+00_JPRB, 0.290284E+00_JPRB, 0.279088E+00_JPRB &
+  &, 0.268151E+00_JPRB, 0.257454E+00_JPRB, 0.247031E+00_JPRB, 0.236858E+00_JPRB &
+  &, 0.226937E+00_JPRB, 0.217303E+00_JPRB, 0.207925E+00_JPRB &
+  &, 0.198803E+00_JPRB, 0.189966E+00_JPRB, 0.181380E+00_JPRB, 0.173073E+00_JPRB &
+  &, 0.165005E+00_JPRB, 0.157237E+00_JPRB, 0.149692E+00_JPRB &
+  &, 0.142429E+00_JPRB, 0.135437E+00_JPRB, 0.128668E+00_JPRB, 0.122180E+00_JPRB &
+  &, 0.115920E+00_JPRB, 0.109872E+00_JPRB, 0.104092E+00_JPRB &
+  &, 0.985630E-01_JPRB, 0.932230E-01_JPRB, 0.881301E-01_JPRB, 0.832610E-01_JPRB &
+  &, 0.785901E-01_JPRB, 0.741331E-01_JPRB, 0.699058E-01_JPRB &
+  &, 0.658348E-01_JPRB, 0.619781E-01_JPRB, 0.582578E-01_JPRB, 0.547787E-01_JPRB &
+  &, 0.514130E-01_JPRB, 0.482667E-01_JPRB, 0.452552E-01_JPRB &
+  &, 0.424377E-01_JPRB, 0.397251E-01_JPRB, 0.371762E-01_JPRB, 0.347490E-01_JPRB &
+  &, 0.324516E-01_JPRB, 0.303456E-01_JPRB, 0.282785E-01_JPRB &
+  &, 0.263642E-01_JPRB, 0.245554E-01_JPRB, 0.228585E-01_JPRB, 0.212797E-01_JPRB &
+  &, 0.197674E-01_JPRB, 0.183848E-01_JPRB, 0.170789E-01_JPRB &
+  &, 0.157931E-01_JPRB, 0.146527E-01_JPRB, 0.136022E-01_JPRB, 0.125830E-01_JPRB &
+  &, 0.115973E-01_JPRB, 0.107122E-01_JPRB, 0.993238E-02_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART85',1,ZHOOK_HANDLE)
+END SUBROUTINE PART85
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART86
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART86',0,ZHOOK_HANDLE)
+
+XCW( 596, :) = (/ &
+  &  0.102101E+01_JPRB, 0.102525E+01_JPRB, 0.102909E+01_JPRB, 0.103250E+01_JPRB &
+  &, 0.103550E+01_JPRB, 0.103807E+01_JPRB, 0.104022E+01_JPRB &
+  &, 0.104195E+01_JPRB, 0.104324E+01_JPRB, 0.104410E+01_JPRB, 0.104453E+01_JPRB &
+  &, 0.104453E+01_JPRB, 0.104408E+01_JPRB, 0.104320E+01_JPRB &
+  &, 0.104188E+01_JPRB, 0.104013E+01_JPRB, 0.103793E+01_JPRB, 0.103529E+01_JPRB &
+  &, 0.103222E+01_JPRB, 0.102871E+01_JPRB, 0.102476E+01_JPRB &
+  &, 0.102038E+01_JPRB, 0.101556E+01_JPRB, 0.101032E+01_JPRB, 0.100465E+01_JPRB &
+  &, 0.998559E+00_JPRB, 0.992050E+00_JPRB, 0.985127E+00_JPRB &
+  &, 0.977799E+00_JPRB, 0.970069E+00_JPRB, 0.961943E+00_JPRB, 0.953432E+00_JPRB &
+  &, 0.944537E+00_JPRB, 0.935271E+00_JPRB, 0.925644E+00_JPRB &
+  &, 0.915657E+00_JPRB, 0.905332E+00_JPRB, 0.894680E+00_JPRB, 0.883697E+00_JPRB &
+  &, 0.872404E+00_JPRB, 0.860814E+00_JPRB, 0.848936E+00_JPRB &
+  &, 0.836780E+00_JPRB, 0.824370E+00_JPRB, 0.811713E+00_JPRB, 0.798816E+00_JPRB &
+  &, 0.785700E+00_JPRB, 0.772391E+00_JPRB, 0.758876E+00_JPRB &
+  &, 0.745196E+00_JPRB, 0.731357E+00_JPRB, 0.717376E+00_JPRB, 0.703259E+00_JPRB &
+  &, 0.689026E+00_JPRB, 0.674714E+00_JPRB, 0.660301E+00_JPRB &
+  &, 0.645825E+00_JPRB, 0.631309E+00_JPRB, 0.616747E+00_JPRB, 0.602162E+00_JPRB &
+  &, 0.587579E+00_JPRB, 0.573006E+00_JPRB, 0.558468E+00_JPRB &
+  &, 0.543955E+00_JPRB, 0.529509E+00_JPRB, 0.515116E+00_JPRB, 0.500821E+00_JPRB &
+  &, 0.486609E+00_JPRB, 0.472522E+00_JPRB, 0.458544E+00_JPRB &
+  &, 0.444695E+00_JPRB, 0.430998E+00_JPRB, 0.417452E+00_JPRB, 0.404076E+00_JPRB &
+  &, 0.390869E+00_JPRB, 0.377847E+00_JPRB, 0.365029E+00_JPRB &
+  &, 0.352431E+00_JPRB, 0.340021E+00_JPRB, 0.327837E+00_JPRB, 0.315867E+00_JPRB &
+  &, 0.304149E+00_JPRB, 0.292670E+00_JPRB, 0.281438E+00_JPRB &
+  &, 0.270435E+00_JPRB, 0.259696E+00_JPRB, 0.249228E+00_JPRB, 0.239007E+00_JPRB &
+  &, 0.229037E+00_JPRB, 0.219349E+00_JPRB, 0.209915E+00_JPRB &
+  &, 0.200766E+00_JPRB, 0.191868E+00_JPRB, 0.183218E+00_JPRB, 0.174876E+00_JPRB &
+  &, 0.166772E+00_JPRB, 0.158931E+00_JPRB, 0.151345E+00_JPRB &
+  &, 0.144039E+00_JPRB, 0.136966E+00_JPRB, 0.130185E+00_JPRB, 0.123610E+00_JPRB &
+  &, 0.117298E+00_JPRB, 0.111233E+00_JPRB, 0.105396E+00_JPRB &
+  &, 0.998084E-01_JPRB, 0.944479E-01_JPRB, 0.892918E-01_JPRB, 0.843991E-01_JPRB &
+  &, 0.796607E-01_JPRB, 0.751771E-01_JPRB, 0.708778E-01_JPRB &
+  &, 0.667771E-01_JPRB, 0.628438E-01_JPRB, 0.591368E-01_JPRB, 0.555772E-01_JPRB &
+  &, 0.522237E-01_JPRB, 0.490412E-01_JPRB, 0.459921E-01_JPRB &
+  &, 0.430858E-01_JPRB, 0.403827E-01_JPRB, 0.377922E-01_JPRB, 0.353220E-01_JPRB &
+  &, 0.330328E-01_JPRB, 0.308280E-01_JPRB, 0.287677E-01_JPRB &
+  &, 0.268604E-01_JPRB, 0.250027E-01_JPRB, 0.233120E-01_JPRB, 0.216821E-01_JPRB &
+  &, 0.201754E-01_JPRB, 0.187393E-01_JPRB, 0.173783E-01_JPRB &
+  &, 0.161574E-01_JPRB, 0.149603E-01_JPRB, 0.138516E-01_JPRB, 0.128357E-01_JPRB &
+  &, 0.118534E-01_JPRB, 0.109716E-01_JPRB, 0.101295E-01_JPRB/)
+XCW( 597, :) = (/ &
+  &  0.102127E+01_JPRB, 0.102558E+01_JPRB, 0.102948E+01_JPRB, 0.103296E+01_JPRB &
+  &, 0.103603E+01_JPRB, 0.103867E+01_JPRB, 0.104089E+01_JPRB &
+  &, 0.104268E+01_JPRB, 0.104404E+01_JPRB, 0.104497E+01_JPRB, 0.104547E+01_JPRB &
+  &, 0.104553E+01_JPRB, 0.104515E+01_JPRB, 0.104434E+01_JPRB &
+  &, 0.104309E+01_JPRB, 0.104140E+01_JPRB, 0.103926E+01_JPRB, 0.103669E+01_JPRB &
+  &, 0.103368E+01_JPRB, 0.103024E+01_JPRB, 0.102635E+01_JPRB &
+  &, 0.102203E+01_JPRB, 0.101728E+01_JPRB, 0.101210E+01_JPRB, 0.100649E+01_JPRB &
+  &, 0.100046E+01_JPRB, 0.994006E+00_JPRB, 0.987142E+00_JPRB &
+  &, 0.979871E+00_JPRB, 0.972196E+00_JPRB, 0.964124E+00_JPRB, 0.955663E+00_JPRB &
+  &, 0.946824E+00_JPRB, 0.937607E+00_JPRB, 0.928030E+00_JPRB &
+  &, 0.918094E+00_JPRB, 0.907812E+00_JPRB, 0.897202E+00_JPRB, 0.886263E+00_JPRB &
+  &, 0.875004E+00_JPRB, 0.863459E+00_JPRB, 0.851615E+00_JPRB &
+  &, 0.839504E+00_JPRB, 0.827117E+00_JPRB, 0.814494E+00_JPRB, 0.801630E+00_JPRB &
+  &, 0.788547E+00_JPRB, 0.775258E+00_JPRB, 0.761775E+00_JPRB &
+  &, 0.748113E+00_JPRB, 0.734291E+00_JPRB, 0.720312E+00_JPRB, 0.706222E+00_JPRB &
+  &, 0.692003E+00_JPRB, 0.677687E+00_JPRB, 0.663284E+00_JPRB &
+  &, 0.648831E+00_JPRB, 0.634307E+00_JPRB, 0.619749E+00_JPRB, 0.605166E+00_JPRB &
+  &, 0.590584E+00_JPRB, 0.576010E+00_JPRB, 0.561451E+00_JPRB &
+  &, 0.546931E+00_JPRB, 0.532458E+00_JPRB, 0.518074E+00_JPRB, 0.503746E+00_JPRB &
+  &, 0.489518E+00_JPRB, 0.475393E+00_JPRB, 0.461393E+00_JPRB &
+  &, 0.447521E+00_JPRB, 0.433797E+00_JPRB, 0.420221E+00_JPRB, 0.406814E+00_JPRB &
+  &, 0.393594E+00_JPRB, 0.380534E+00_JPRB, 0.367675E+00_JPRB &
+  &, 0.355033E+00_JPRB, 0.342601E+00_JPRB, 0.330367E+00_JPRB, 0.318369E+00_JPRB &
+  &, 0.306595E+00_JPRB, 0.295083E+00_JPRB, 0.283788E+00_JPRB &
+  &, 0.272746E+00_JPRB, 0.261966E+00_JPRB, 0.251454E+00_JPRB, 0.241186E+00_JPRB &
+  &, 0.231166E+00_JPRB, 0.221426E+00_JPRB, 0.211937E+00_JPRB &
+  &, 0.202729E+00_JPRB, 0.193770E+00_JPRB, 0.185088E+00_JPRB, 0.176679E+00_JPRB &
+  &, 0.168539E+00_JPRB, 0.160625E+00_JPRB, 0.152998E+00_JPRB &
+  &, 0.145649E+00_JPRB, 0.138530E+00_JPRB, 0.131665E+00_JPRB, 0.125077E+00_JPRB &
+  &, 0.118713E+00_JPRB, 0.112594E+00_JPRB, 0.106740E+00_JPRB &
+  &, 0.101094E+00_JPRB, 0.956727E-01_JPRB, 0.904949E-01_JPRB, 0.854950E-01_JPRB &
+  &, 0.807741E-01_JPRB, 0.762211E-01_JPRB, 0.718498E-01_JPRB &
+  &, 0.677194E-01_JPRB, 0.637551E-01_JPRB, 0.600159E-01_JPRB, 0.564227E-01_JPRB &
+  &, 0.530343E-01_JPRB, 0.497672E-01_JPRB, 0.467290E-01_JPRB &
+  &, 0.437838E-01_JPRB, 0.410405E-01_JPRB, 0.384082E-01_JPRB, 0.359470E-01_JPRB &
+  &, 0.336140E-01_JPRB, 0.313639E-01_JPRB, 0.293113E-01_JPRB &
+  &, 0.273566E-01_JPRB, 0.254500E-01_JPRB, 0.237089E-01_JPRB, 0.220845E-01_JPRB &
+  &, 0.205251E-01_JPRB, 0.190938E-01_JPRB, 0.177377E-01_JPRB &
+  &, 0.164609E-01_JPRB, 0.152679E-01_JPRB, 0.141633E-01_JPRB, 0.130884E-01_JPRB &
+  &, 0.121095E-01_JPRB, 0.112311E-01_JPRB, 0.103266E-01_JPRB/)
+XCW( 598, :) = (/ &
+  &  0.102154E+01_JPRB, 0.102591E+01_JPRB, 0.102988E+01_JPRB, 0.103343E+01_JPRB &
+  &, 0.103656E+01_JPRB, 0.103927E+01_JPRB, 0.104155E+01_JPRB &
+  &, 0.104341E+01_JPRB, 0.104484E+01_JPRB, 0.104584E+01_JPRB, 0.104640E+01_JPRB &
+  &, 0.104653E+01_JPRB, 0.104622E+01_JPRB, 0.104548E+01_JPRB &
+  &, 0.104429E+01_JPRB, 0.104267E+01_JPRB, 0.104060E+01_JPRB, 0.103809E+01_JPRB &
+  &, 0.103515E+01_JPRB, 0.103176E+01_JPRB, 0.102795E+01_JPRB &
+  &, 0.102369E+01_JPRB, 0.101900E+01_JPRB, 0.101388E+01_JPRB, 0.100833E+01_JPRB &
+  &, 0.100236E+01_JPRB, 0.995969E+00_JPRB, 0.988676E+00_JPRB &
+  &, 0.981947E+00_JPRB, 0.974328E+00_JPRB, 0.966313E+00_JPRB, 0.957903E+00_JPRB &
+  &, 0.949116E+00_JPRB, 0.939952E+00_JPRB, 0.930420E+00_JPRB &
+  &, 0.920531E+00_JPRB, 0.910301E+00_JPRB, 0.899725E+00_JPRB, 0.888830E+00_JPRB &
+  &, 0.877625E+00_JPRB, 0.866104E+00_JPRB, 0.854305E+00_JPRB &
+  &, 0.842228E+00_JPRB, 0.829876E+00_JPRB, 0.817286E+00_JPRB, 0.804444E+00_JPRB &
+  &, 0.791394E+00_JPRB, 0.778125E+00_JPRB, 0.764661E+00_JPRB &
+  &, 0.751030E+00_JPRB, 0.737225E+00_JPRB, 0.723275E+00_JPRB, 0.709187E+00_JPRB &
+  &, 0.694994E+00_JPRB, 0.680690E+00_JPRB, 0.666297E+00_JPRB &
+  &, 0.651838E+00_JPRB, 0.637320E+00_JPRB, 0.622766E+00_JPRB, 0.608170E+00_JPRB &
+  &, 0.593589E+00_JPRB, 0.579013E+00_JPRB, 0.564450E+00_JPRB &
+  &, 0.549907E+00_JPRB, 0.535444E+00_JPRB, 0.521031E+00_JPRB, 0.506691E+00_JPRB &
+  &, 0.492448E+00_JPRB, 0.478305E+00_JPRB, 0.464284E+00_JPRB &
+  &, 0.450389E+00_JPRB, 0.436639E+00_JPRB, 0.423035E+00_JPRB, 0.409596E+00_JPRB &
+  &, 0.396319E+00_JPRB, 0.383245E+00_JPRB, 0.370345E+00_JPRB &
+  &, 0.357660E+00_JPRB, 0.345181E+00_JPRB, 0.332922E+00_JPRB, 0.320872E+00_JPRB &
+  &, 0.309068E+00_JPRB, 0.297496E+00_JPRB, 0.286165E+00_JPRB &
+  &, 0.275085E+00_JPRB, 0.264264E+00_JPRB, 0.253680E+00_JPRB, 0.243366E+00_JPRB &
+  &, 0.233296E+00_JPRB, 0.223503E+00_JPRB, 0.213990E+00_JPRB &
+  &, 0.204724E+00_JPRB, 0.195704E+00_JPRB, 0.186991E+00_JPRB, 0.178516E+00_JPRB &
+  &, 0.170306E+00_JPRB, 0.162389E+00_JPRB, 0.154686E+00_JPRB &
+  &, 0.147259E+00_JPRB, 0.140131E+00_JPRB, 0.133219E+00_JPRB, 0.126544E+00_JPRB &
+  &, 0.120128E+00_JPRB, 0.113994E+00_JPRB, 0.108045E+00_JPRB &
+  &, 0.102380E+00_JPRB, 0.968976E-01_JPRB, 0.916566E-01_JPRB, 0.866332E-01_JPRB &
+  &, 0.818447E-01_JPRB, 0.772650E-01_JPRB, 0.728660E-01_JPRB &
+  &, 0.687065E-01_JPRB, 0.647120E-01_JPRB, 0.608949E-01_JPRB, 0.572682E-01_JPRB &
+  &, 0.538449E-01_JPRB, 0.505416E-01_JPRB, 0.474659E-01_JPRB &
+  &, 0.444818E-01_JPRB, 0.416982E-01_JPRB, 0.390756E-01_JPRB, 0.365719E-01_JPRB &
+  &, 0.341952E-01_JPRB, 0.319535E-01_JPRB, 0.298006E-01_JPRB &
+  &, 0.277977E-01_JPRB, 0.259532E-01_JPRB, 0.241625E-01_JPRB, 0.224869E-01_JPRB &
+  &, 0.209330E-01_JPRB, 0.194483E-01_JPRB, 0.180970E-01_JPRB &
+  &, 0.167644E-01_JPRB, 0.155755E-01_JPRB, 0.144127E-01_JPRB, 0.133412E-01_JPRB &
+  &, 0.123655E-01_JPRB, 0.114257E-01_JPRB, 0.105895E-01_JPRB/)
+XCW( 599, :) = (/ &
+  &  0.102180E+01_JPRB, 0.102624E+01_JPRB, 0.103027E+01_JPRB, 0.103389E+01_JPRB &
+  &, 0.103709E+01_JPRB, 0.103987E+01_JPRB, 0.104222E+01_JPRB &
+  &, 0.104414E+01_JPRB, 0.104564E+01_JPRB, 0.104671E+01_JPRB, 0.104734E+01_JPRB &
+  &, 0.104754E+01_JPRB, 0.104729E+01_JPRB, 0.104662E+01_JPRB &
+  &, 0.104550E+01_JPRB, 0.104394E+01_JPRB, 0.104194E+01_JPRB, 0.103950E+01_JPRB &
+  &, 0.103662E+01_JPRB, 0.103330E+01_JPRB, 0.102954E+01_JPRB &
+  &, 0.102535E+01_JPRB, 0.102072E+01_JPRB, 0.101567E+01_JPRB, 0.101018E+01_JPRB &
+  &, 0.100427E+01_JPRB, 0.997936E+00_JPRB, 0.991187E+00_JPRB &
+  &, 0.984027E+00_JPRB, 0.976464E+00_JPRB, 0.968502E+00_JPRB, 0.960150E+00_JPRB &
+  &, 0.951411E+00_JPRB, 0.942296E+00_JPRB, 0.932815E+00_JPRB &
+  &, 0.922978E+00_JPRB, 0.912790E+00_JPRB, 0.902268E+00_JPRB, 0.891406E+00_JPRB &
+  &, 0.880246E+00_JPRB, 0.868770E+00_JPRB, 0.857006E+00_JPRB &
+  &, 0.844953E+00_JPRB, 0.832645E+00_JPRB, 0.820078E+00_JPRB, 0.807282E+00_JPRB &
+  &, 0.794254E+00_JPRB, 0.781004E+00_JPRB, 0.767572E+00_JPRB &
+  &, 0.753961E+00_JPRB, 0.740172E+00_JPRB, 0.726238E+00_JPRB, 0.712165E+00_JPRB &
+  &, 0.697986E+00_JPRB, 0.683694E+00_JPRB, 0.669311E+00_JPRB &
+  &, 0.654844E+00_JPRB, 0.640333E+00_JPRB, 0.625784E+00_JPRB, 0.611208E+00_JPRB &
+  &, 0.596610E+00_JPRB, 0.582016E+00_JPRB, 0.567450E+00_JPRB &
+  &, 0.552920E+00_JPRB, 0.538431E+00_JPRB, 0.523988E+00_JPRB, 0.509635E+00_JPRB &
+  &, 0.495377E+00_JPRB, 0.481216E+00_JPRB, 0.467175E+00_JPRB &
+  &, 0.453257E+00_JPRB, 0.439482E+00_JPRB, 0.425849E+00_JPRB, 0.412378E+00_JPRB &
+  &, 0.399067E+00_JPRB, 0.385956E+00_JPRB, 0.373040E+00_JPRB &
+  &, 0.360311E+00_JPRB, 0.347786E+00_JPRB, 0.335477E+00_JPRB, 0.323400E+00_JPRB &
+  &, 0.311540E+00_JPRB, 0.299935E+00_JPRB, 0.288570E+00_JPRB &
+  &, 0.277425E+00_JPRB, 0.266563E+00_JPRB, 0.255935E+00_JPRB, 0.245574E+00_JPRB &
+  &, 0.235455E+00_JPRB, 0.225611E+00_JPRB, 0.216042E+00_JPRB &
+  &, 0.206719E+00_JPRB, 0.197670E+00_JPRB, 0.188894E+00_JPRB, 0.180352E+00_JPRB &
+  &, 0.172107E+00_JPRB, 0.164117E+00_JPRB, 0.156375E+00_JPRB &
+  &, 0.148904E+00_JPRB, 0.141696E+00_JPRB, 0.134736E+00_JPRB, 0.128049E+00_JPRB &
+  &, 0.121582E+00_JPRB, 0.115355E+00_JPRB, 0.109389E+00_JPRB &
+  &, 0.103665E+00_JPRB, 0.981633E-01_JPRB, 0.928597E-01_JPRB, 0.878134E-01_JPRB &
+  &, 0.829581E-01_JPRB, 0.783525E-01_JPRB, 0.738822E-01_JPRB &
+  &, 0.696937E-01_JPRB, 0.656233E-01_JPRB, 0.618202E-01_JPRB, 0.581606E-01_JPRB &
+  &, 0.546555E-01_JPRB, 0.513645E-01_JPRB, 0.482027E-01_JPRB &
+  &, 0.452297E-01_JPRB, 0.424064E-01_JPRB, 0.396916E-01_JPRB, 0.371448E-01_JPRB &
+  &, 0.347764E-01_JPRB, 0.324895E-01_JPRB, 0.303442E-01_JPRB &
+  &, 0.282939E-01_JPRB, 0.264005E-01_JPRB, 0.246160E-01_JPRB, 0.229468E-01_JPRB &
+  &, 0.213410E-01_JPRB, 0.198619E-01_JPRB, 0.184563E-01_JPRB &
+  &, 0.171286E-01_JPRB, 0.158832E-01_JPRB, 0.147245E-01_JPRB, 0.136571E-01_JPRB &
+  &, 0.126216E-01_JPRB, 0.116851E-01_JPRB, 0.107866E-01_JPRB/)
+XCW( 600, :) = (/ &
+  &  0.102206E+01_JPRB, 0.102657E+01_JPRB, 0.103067E+01_JPRB, 0.103435E+01_JPRB &
+  &, 0.103762E+01_JPRB, 0.104046E+01_JPRB, 0.104287E+01_JPRB &
+  &, 0.104488E+01_JPRB, 0.104644E+01_JPRB, 0.104758E+01_JPRB, 0.104828E+01_JPRB &
+  &, 0.104854E+01_JPRB, 0.104837E+01_JPRB, 0.104776E+01_JPRB &
+  &, 0.104670E+01_JPRB, 0.104521E+01_JPRB, 0.104328E+01_JPRB, 0.104090E+01_JPRB &
+  &, 0.103809E+01_JPRB, 0.103484E+01_JPRB, 0.103114E+01_JPRB &
+  &, 0.102701E+01_JPRB, 0.102245E+01_JPRB, 0.101745E+01_JPRB, 0.101203E+01_JPRB &
+  &, 0.100618E+01_JPRB, 0.999903E+00_JPRB, 0.993214E+00_JPRB &
+  &, 0.986112E+00_JPRB, 0.978603E+00_JPRB, 0.970699E+00_JPRB, 0.962398E+00_JPRB &
+  &, 0.953712E+00_JPRB, 0.944650E+00_JPRB, 0.935219E+00_JPRB &
+  &, 0.925424E+00_JPRB, 0.915289E+00_JPRB, 0.904800E+00_JPRB, 0.893993E+00_JPRB &
+  &, 0.882867E+00_JPRB, 0.871436E+00_JPRB, 0.859707E+00_JPRB &
+  &, 0.847699E+00_JPRB, 0.835427E+00_JPRB, 0.822894E+00_JPRB, 0.810120E+00_JPRB &
+  &, 0.797113E+00_JPRB, 0.783896E+00_JPRB, 0.770484E+00_JPRB &
+  &, 0.756891E+00_JPRB, 0.743133E+00_JPRB, 0.729216E+00_JPRB, 0.715157E+00_JPRB &
+  &, 0.700991E+00_JPRB, 0.686697E+00_JPRB, 0.672324E+00_JPRB &
+  &, 0.657882E+00_JPRB, 0.643377E+00_JPRB, 0.628818E+00_JPRB, 0.614245E+00_JPRB &
+  &, 0.599649E+00_JPRB, 0.585054E+00_JPRB, 0.570468E+00_JPRB &
+  &, 0.555932E+00_JPRB, 0.541417E+00_JPRB, 0.526984E+00_JPRB, 0.512619E+00_JPRB &
+  &, 0.498326E+00_JPRB, 0.484148E+00_JPRB, 0.470087E+00_JPRB &
+  &, 0.456146E+00_JPRB, 0.442324E+00_JPRB, 0.428663E+00_JPRB, 0.415161E+00_JPRB &
+  &, 0.401838E+00_JPRB, 0.388690E+00_JPRB, 0.375734E+00_JPRB &
+  &, 0.362962E+00_JPRB, 0.350415E+00_JPRB, 0.338058E+00_JPRB, 0.325954E+00_JPRB &
+  &, 0.314038E+00_JPRB, 0.302402E+00_JPRB, 0.290974E+00_JPRB &
+  &, 0.279792E+00_JPRB, 0.268861E+00_JPRB, 0.258190E+00_JPRB, 0.247783E+00_JPRB &
+  &, 0.237615E+00_JPRB, 0.227749E+00_JPRB, 0.218095E+00_JPRB &
+  &, 0.208745E+00_JPRB, 0.199636E+00_JPRB, 0.190796E+00_JPRB, 0.182222E+00_JPRB &
+  &, 0.173907E+00_JPRB, 0.165880E+00_JPRB, 0.158098E+00_JPRB &
+  &, 0.150586E+00_JPRB, 0.143333E+00_JPRB, 0.136290E+00_JPRB, 0.129554E+00_JPRB &
+  &, 0.123036E+00_JPRB, 0.116794E+00_JPRB, 0.110772E+00_JPRB &
+  &, 0.104951E+00_JPRB, 0.994290E-01_JPRB, 0.940629E-01_JPRB, 0.889937E-01_JPRB &
+  &, 0.840714E-01_JPRB, 0.793965E-01_JPRB, 0.749426E-01_JPRB &
+  &, 0.706808E-01_JPRB, 0.665801E-01_JPRB, 0.626992E-01_JPRB, 0.590061E-01_JPRB &
+  &, 0.555138E-01_JPRB, 0.521389E-01_JPRB, 0.489396E-01_JPRB &
+  &, 0.459277E-01_JPRB, 0.430642E-01_JPRB, 0.403589E-01_JPRB, 0.377698E-01_JPRB &
+  &, 0.353576E-01_JPRB, 0.330254E-01_JPRB, 0.308879E-01_JPRB &
+  &, 0.288452E-01_JPRB, 0.269037E-01_JPRB, 0.250696E-01_JPRB, 0.233492E-01_JPRB &
+  &, 0.217490E-01_JPRB, 0.202164E-01_JPRB, 0.188157E-01_JPRB &
+  &, 0.174321E-01_JPRB, 0.161908E-01_JPRB, 0.150362E-01_JPRB, 0.139098E-01_JPRB &
+  &, 0.128777E-01_JPRB, 0.119446E-01_JPRB, 0.110495E-01_JPRB/)
+XCW( 601, :) = (/ &
+  &  0.102232E+01_JPRB, 0.102690E+01_JPRB, 0.103107E+01_JPRB, 0.103482E+01_JPRB &
+  &, 0.103815E+01_JPRB, 0.104106E+01_JPRB, 0.104355E+01_JPRB &
+  &, 0.104561E+01_JPRB, 0.104725E+01_JPRB, 0.104845E+01_JPRB, 0.104922E+01_JPRB &
+  &, 0.104955E+01_JPRB, 0.104944E+01_JPRB, 0.104890E+01_JPRB &
+  &, 0.104791E+01_JPRB, 0.104649E+01_JPRB, 0.104462E+01_JPRB, 0.104231E+01_JPRB &
+  &, 0.103956E+01_JPRB, 0.103637E+01_JPRB, 0.103275E+01_JPRB &
+  &, 0.102868E+01_JPRB, 0.102418E+01_JPRB, 0.101924E+01_JPRB, 0.101388E+01_JPRB &
+  &, 0.100809E+01_JPRB, 0.100188E+01_JPRB, 0.995244E+00_JPRB &
+  &, 0.988199E+00_JPRB, 0.980751E+00_JPRB, 0.972896E+00_JPRB, 0.964650E+00_JPRB &
+  &, 0.956020E+00_JPRB, 0.947008E+00_JPRB, 0.937628E+00_JPRB &
+  &, 0.927879E+00_JPRB, 0.917787E+00_JPRB, 0.907352E+00_JPRB, 0.896590E+00_JPRB &
+  &, 0.885499E+00_JPRB, 0.874113E+00_JPRB, 0.862418E+00_JPRB &
+  &, 0.850446E+00_JPRB, 0.838208E+00_JPRB, 0.825710E+00_JPRB, 0.812958E+00_JPRB &
+  &, 0.799996E+00_JPRB, 0.786801E+00_JPRB, 0.773421E+00_JPRB &
+  &, 0.759847E+00_JPRB, 0.746094E+00_JPRB, 0.732207E+00_JPRB, 0.718163E+00_JPRB &
+  &, 0.703997E+00_JPRB, 0.689729E+00_JPRB, 0.675368E+00_JPRB &
+  &, 0.660919E+00_JPRB, 0.646422E+00_JPRB, 0.631868E+00_JPRB, 0.617282E+00_JPRB &
+  &, 0.602687E+00_JPRB, 0.588092E+00_JPRB, 0.573503E+00_JPRB &
+  &, 0.558944E+00_JPRB, 0.544440E+00_JPRB, 0.529979E+00_JPRB, 0.515602E+00_JPRB &
+  &, 0.501294E+00_JPRB, 0.487099E+00_JPRB, 0.472999E+00_JPRB &
+  &, 0.459035E+00_JPRB, 0.445209E+00_JPRB, 0.431520E+00_JPRB, 0.417988E+00_JPRB &
+  &, 0.404632E+00_JPRB, 0.391447E+00_JPRB, 0.378452E+00_JPRB &
+  &, 0.365638E+00_JPRB, 0.353045E+00_JPRB, 0.340663E+00_JPRB, 0.328507E+00_JPRB &
+  &, 0.316563E+00_JPRB, 0.304868E+00_JPRB, 0.293406E+00_JPRB &
+  &, 0.282186E+00_JPRB, 0.271216E+00_JPRB, 0.260473E+00_JPRB, 0.250021E+00_JPRB &
+  &, 0.239804E+00_JPRB, 0.229887E+00_JPRB, 0.220179E+00_JPRB &
+  &, 0.210772E+00_JPRB, 0.201635E+00_JPRB, 0.192732E+00_JPRB, 0.184125E+00_JPRB &
+  &, 0.175742E+00_JPRB, 0.167609E+00_JPRB, 0.159821E+00_JPRB &
+  &, 0.152267E+00_JPRB, 0.144934E+00_JPRB, 0.137882E+00_JPRB, 0.131059E+00_JPRB &
+  &, 0.124528E+00_JPRB, 0.118194E+00_JPRB, 0.112116E+00_JPRB &
+  &, 0.106277E+00_JPRB, 0.100695E+00_JPRB, 0.953075E-01_JPRB, 0.901740E-01_JPRB &
+  &, 0.852277E-01_JPRB, 0.804840E-01_JPRB, 0.760029E-01_JPRB &
+  &, 0.716680E-01_JPRB, 0.675825E-01_JPRB, 0.636245E-01_JPRB, 0.598986E-01_JPRB &
+  &, 0.563245E-01_JPRB, 0.529617E-01_JPRB, 0.497257E-01_JPRB &
+  &, 0.466755E-01_JPRB, 0.437724E-01_JPRB, 0.410263E-01_JPRB, 0.383948E-01_JPRB &
+  &, 0.359388E-01_JPRB, 0.336150E-01_JPRB, 0.314315E-01_JPRB &
+  &, 0.293414E-01_JPRB, 0.273510E-01_JPRB, 0.255232E-01_JPRB, 0.238091E-01_JPRB &
+  &, 0.221569E-01_JPRB, 0.206300E-01_JPRB, 0.191750E-01_JPRB &
+  &, 0.177964E-01_JPRB, 0.164984E-01_JPRB, 0.153480E-01_JPRB, 0.142257E-01_JPRB &
+  &, 0.131978E-01_JPRB, 0.122040E-01_JPRB, 0.112466E-01_JPRB/)
+XCW( 602, :) = (/ &
+  &  0.102259E+01_JPRB, 0.102723E+01_JPRB, 0.103146E+01_JPRB, 0.103528E+01_JPRB &
+  &, 0.103868E+01_JPRB, 0.104166E+01_JPRB, 0.104422E+01_JPRB &
+  &, 0.104635E+01_JPRB, 0.104805E+01_JPRB, 0.104932E+01_JPRB, 0.105016E+01_JPRB &
+  &, 0.105056E+01_JPRB, 0.105052E+01_JPRB, 0.105004E+01_JPRB &
+  &, 0.104912E+01_JPRB, 0.104776E+01_JPRB, 0.104596E+01_JPRB, 0.104372E+01_JPRB &
+  &, 0.104104E+01_JPRB, 0.103792E+01_JPRB, 0.103435E+01_JPRB &
+  &, 0.103035E+01_JPRB, 0.102591E+01_JPRB, 0.102104E+01_JPRB, 0.101574E+01_JPRB &
+  &, 0.101001E+01_JPRB, 0.100385E+01_JPRB, 0.997282E+00_JPRB &
+  &, 0.990295E+00_JPRB, 0.982899E+00_JPRB, 0.975101E+00_JPRB, 0.966911E+00_JPRB &
+  &, 0.958333E+00_JPRB, 0.949371E+00_JPRB, 0.940041E+00_JPRB &
+  &, 0.930344E+00_JPRB, 0.920295E+00_JPRB, 0.909904E+00_JPRB, 0.899186E+00_JPRB &
+  &, 0.888140E+00_JPRB, 0.876790E+00_JPRB, 0.865141E+00_JPRB &
+  &, 0.853203E+00_JPRB, 0.841000E+00_JPRB, 0.828525E+00_JPRB, 0.815820E+00_JPRB &
+  &, 0.802880E+00_JPRB, 0.789718E+00_JPRB, 0.776346E+00_JPRB &
+  &, 0.762804E+00_JPRB, 0.749082E+00_JPRB, 0.735198E+00_JPRB, 0.721184E+00_JPRB &
+  &, 0.707032E+00_JPRB, 0.692762E+00_JPRB, 0.678411E+00_JPRB &
+  &, 0.663972E+00_JPRB, 0.649482E+00_JPRB, 0.634935E+00_JPRB, 0.620352E+00_JPRB &
+  &, 0.605743E+00_JPRB, 0.591147E+00_JPRB, 0.576556E+00_JPRB &
+  &, 0.561993E+00_JPRB, 0.547464E+00_JPRB, 0.532993E+00_JPRB, 0.518585E+00_JPRB &
+  &, 0.504283E+00_JPRB, 0.490051E+00_JPRB, 0.475952E+00_JPRB &
+  &, 0.461945E+00_JPRB, 0.448094E+00_JPRB, 0.434378E+00_JPRB, 0.420815E+00_JPRB &
+  &, 0.407426E+00_JPRB, 0.394205E+00_JPRB, 0.381170E+00_JPRB &
+  &, 0.368337E+00_JPRB, 0.355699E+00_JPRB, 0.343269E+00_JPRB, 0.331087E+00_JPRB &
+  &, 0.319088E+00_JPRB, 0.307362E+00_JPRB, 0.295838E+00_JPRB &
+  &, 0.284581E+00_JPRB, 0.273543E+00_JPRB, 0.262786E+00_JPRB, 0.252288E+00_JPRB &
+  &, 0.242024E+00_JPRB, 0.232025E+00_JPRB, 0.222294E+00_JPRB &
+  &, 0.212830E+00_JPRB, 0.203633E+00_JPRB, 0.194701E+00_JPRB, 0.186029E+00_JPRB &
+  &, 0.177611E+00_JPRB, 0.169441E+00_JPRB, 0.161580E+00_JPRB &
+  &, 0.153949E+00_JPRB, 0.146571E+00_JPRB, 0.139473E+00_JPRB, 0.132602E+00_JPRB &
+  &, 0.126020E+00_JPRB, 0.119633E+00_JPRB, 0.113500E+00_JPRB &
+  &, 0.107643E+00_JPRB, 0.101960E+00_JPRB, 0.965521E-01_JPRB, 0.913542E-01_JPRB &
+  &, 0.863839E-01_JPRB, 0.816150E-01_JPRB, 0.770633E-01_JPRB &
+  &, 0.727000E-01_JPRB, 0.685394E-01_JPRB, 0.645498E-01_JPRB, 0.607910E-01_JPRB &
+  &, 0.571828E-01_JPRB, 0.537846E-01_JPRB, 0.505117E-01_JPRB &
+  &, 0.474233E-01_JPRB, 0.444807E-01_JPRB, 0.416936E-01_JPRB, 0.390719E-01_JPRB &
+  &, 0.365729E-01_JPRB, 0.342046E-01_JPRB, 0.319751E-01_JPRB &
+  &, 0.298376E-01_JPRB, 0.278542E-01_JPRB, 0.259767E-01_JPRB, 0.242115E-01_JPRB &
+  &, 0.225649E-01_JPRB, 0.209845E-01_JPRB, 0.195344E-01_JPRB &
+  &, 0.181606E-01_JPRB, 0.168676E-01_JPRB, 0.156597E-01_JPRB, 0.144784E-01_JPRB &
+  &, 0.134539E-01_JPRB, 0.124635E-01_JPRB, 0.115094E-01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART86',1,ZHOOK_HANDLE)
+END SUBROUTINE PART86
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART87
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART87',0,ZHOOK_HANDLE)
+
+XCW( 603, :) = (/ &
+  &  0.102285E+01_JPRB, 0.102756E+01_JPRB, 0.103186E+01_JPRB, 0.103575E+01_JPRB &
+  &, 0.103922E+01_JPRB, 0.104226E+01_JPRB, 0.104489E+01_JPRB &
+  &, 0.104709E+01_JPRB, 0.104886E+01_JPRB, 0.105020E+01_JPRB, 0.105110E+01_JPRB &
+  &, 0.105157E+01_JPRB, 0.105160E+01_JPRB, 0.105119E+01_JPRB &
+  &, 0.105034E+01_JPRB, 0.104904E+01_JPRB, 0.104731E+01_JPRB, 0.104514E+01_JPRB &
+  &, 0.104252E+01_JPRB, 0.103946E+01_JPRB, 0.103596E+01_JPRB &
+  &, 0.103202E+01_JPRB, 0.102765E+01_JPRB, 0.102284E+01_JPRB, 0.101760E+01_JPRB &
+  &, 0.101193E+01_JPRB, 0.100583E+01_JPRB, 0.999319E+00_JPRB &
+  &, 0.992391E+00_JPRB, 0.985055E+00_JPRB, 0.977315E+00_JPRB, 0.969176E+00_JPRB &
+  &, 0.960650E+00_JPRB, 0.951742E+00_JPRB, 0.942318E+00_JPRB &
+  &, 0.932809E+00_JPRB, 0.922813E+00_JPRB, 0.912466E+00_JPRB, 0.901793E+00_JPRB &
+  &, 0.890792E+00_JPRB, 0.879477E+00_JPRB, 0.867863E+00_JPRB &
+  &, 0.855972E+00_JPRB, 0.843793E+00_JPRB, 0.831364E+00_JPRB, 0.818681E+00_JPRB &
+  &, 0.805764E+00_JPRB, 0.792635E+00_JPRB, 0.779296E+00_JPRB &
+  &, 0.765773E+00_JPRB, 0.752070E+00_JPRB, 0.738203E+00_JPRB, 0.724204E+00_JPRB &
+  &, 0.710067E+00_JPRB, 0.695825E+00_JPRB, 0.681470E+00_JPRB &
+  &, 0.667040E+00_JPRB, 0.652543E+00_JPRB, 0.638001E+00_JPRB, 0.623423E+00_JPRB &
+  &, 0.608816E+00_JPRB, 0.594220E+00_JPRB, 0.579609E+00_JPRB &
+  &, 0.565041E+00_JPRB, 0.550506E+00_JPRB, 0.536026E+00_JPRB, 0.521607E+00_JPRB &
+  &, 0.507272E+00_JPRB, 0.493023E+00_JPRB, 0.478905E+00_JPRB &
+  &, 0.464876E+00_JPRB, 0.451001E+00_JPRB, 0.437258E+00_JPRB, 0.423665E+00_JPRB &
+  &, 0.410242E+00_JPRB, 0.396985E+00_JPRB, 0.383911E+00_JPRB &
+  &, 0.371037E+00_JPRB, 0.358378E+00_JPRB, 0.345900E+00_JPRB, 0.333667E+00_JPRB &
+  &, 0.321639E+00_JPRB, 0.309855E+00_JPRB, 0.298298E+00_JPRB &
+  &, 0.287004E+00_JPRB, 0.275926E+00_JPRB, 0.265099E+00_JPRB, 0.254556E+00_JPRB &
+  &, 0.244243E+00_JPRB, 0.234194E+00_JPRB, 0.224409E+00_JPRB &
+  &, 0.214888E+00_JPRB, 0.205632E+00_JPRB, 0.196669E+00_JPRB, 0.187932E+00_JPRB &
+  &, 0.179480E+00_JPRB, 0.171273E+00_JPRB, 0.163338E+00_JPRB &
+  &, 0.155666E+00_JPRB, 0.148245E+00_JPRB, 0.141064E+00_JPRB, 0.134182E+00_JPRB &
+  &, 0.127511E+00_JPRB, 0.121110E+00_JPRB, 0.114923E+00_JPRB &
+  &, 0.108969E+00_JPRB, 0.103267E+00_JPRB, 0.977968E-01_JPRB, 0.925767E-01_JPRB &
+  &, 0.875401E-01_JPRB, 0.827460E-01_JPRB, 0.781237E-01_JPRB &
+  &, 0.737320E-01_JPRB, 0.695418E-01_JPRB, 0.655214E-01_JPRB, 0.616835E-01_JPRB &
+  &, 0.580411E-01_JPRB, 0.546074E-01_JPRB, 0.512977E-01_JPRB &
+  &, 0.481712E-01_JPRB, 0.451890E-01_JPRB, 0.423610E-01_JPRB, 0.396969E-01_JPRB &
+  &, 0.372069E-01_JPRB, 0.347941E-01_JPRB, 0.325187E-01_JPRB &
+  &, 0.303890E-01_JPRB, 0.283574E-01_JPRB, 0.264870E-01_JPRB, 0.246714E-01_JPRB &
+  &, 0.229729E-01_JPRB, 0.213981E-01_JPRB, 0.198937E-01_JPRB &
+  &, 0.185248E-01_JPRB, 0.171752E-01_JPRB, 0.159715E-01_JPRB, 0.147943E-01_JPRB &
+  &, 0.137099E-01_JPRB, 0.127229E-01_JPRB, 0.117723E-01_JPRB/)
+XCW( 604, :) = (/ &
+  &  0.102312E+01_JPRB, 0.102789E+01_JPRB, 0.103226E+01_JPRB, 0.103621E+01_JPRB &
+  &, 0.103975E+01_JPRB, 0.104287E+01_JPRB, 0.104556E+01_JPRB &
+  &, 0.104783E+01_JPRB, 0.104966E+01_JPRB, 0.105107E+01_JPRB, 0.105204E+01_JPRB &
+  &, 0.105258E+01_JPRB, 0.105267E+01_JPRB, 0.105233E+01_JPRB &
+  &, 0.105155E+01_JPRB, 0.105033E+01_JPRB, 0.104866E+01_JPRB, 0.104655E+01_JPRB &
+  &, 0.104400E+01_JPRB, 0.104101E+01_JPRB, 0.103757E+01_JPRB &
+  &, 0.103370E+01_JPRB, 0.102939E+01_JPRB, 0.102464E+01_JPRB, 0.101946E+01_JPRB &
+  &, 0.101385E+01_JPRB, 0.100782E+01_JPRB, 0.100136E+01_JPRB &
+  &, 0.994495E+00_JPRB, 0.987214E+00_JPRB, 0.979528E+00_JPRB, 0.971445E+00_JPRB &
+  &, 0.962972E+00_JPRB, 0.954118E+00_JPRB, 0.944885E+00_JPRB &
+  &, 0.935274E+00_JPRB, 0.925340E+00_JPRB, 0.915038E+00_JPRB, 0.904400E+00_JPRB &
+  &, 0.893444E+00_JPRB, 0.882175E+00_JPRB, 0.870607E+00_JPRB &
+  &, 0.858740E+00_JPRB, 0.846608E+00_JPRB, 0.834203E+00_JPRB, 0.821555E+00_JPRB &
+  &, 0.808672E+00_JPRB, 0.795565E+00_JPRB, 0.782259E+00_JPRB &
+  &, 0.768743E+00_JPRB, 0.755071E+00_JPRB, 0.741221E+00_JPRB, 0.727239E+00_JPRB &
+  &, 0.713116E+00_JPRB, 0.698887E+00_JPRB, 0.684544E+00_JPRB &
+  &, 0.670124E+00_JPRB, 0.655635E+00_JPRB, 0.641084E+00_JPRB, 0.626510E+00_JPRB &
+  &, 0.611905E+00_JPRB, 0.597293E+00_JPRB, 0.582698E+00_JPRB &
+  &, 0.568108E+00_JPRB, 0.553567E+00_JPRB, 0.539059E+00_JPRB, 0.524629E+00_JPRB &
+  &, 0.510280E+00_JPRB, 0.496015E+00_JPRB, 0.481858E+00_JPRB &
+  &, 0.467829E+00_JPRB, 0.453908E+00_JPRB, 0.440137E+00_JPRB, 0.426515E+00_JPRB &
+  &, 0.413059E+00_JPRB, 0.399790E+00_JPRB, 0.386677E+00_JPRB &
+  &, 0.373785E+00_JPRB, 0.361058E+00_JPRB, 0.348557E+00_JPRB, 0.336272E+00_JPRB &
+  &, 0.324217E+00_JPRB, 0.312375E+00_JPRB, 0.300784E+00_JPRB &
+  &, 0.289427E+00_JPRB, 0.278310E+00_JPRB, 0.267440E+00_JPRB, 0.256853E+00_JPRB &
+  &, 0.246493E+00_JPRB, 0.236393E+00_JPRB, 0.226555E+00_JPRB &
+  &, 0.216978E+00_JPRB, 0.207695E+00_JPRB, 0.198638E+00_JPRB, 0.189868E+00_JPRB &
+  &, 0.181349E+00_JPRB, 0.173105E+00_JPRB, 0.165097E+00_JPRB &
+  &, 0.157383E+00_JPRB, 0.149919E+00_JPRB, 0.142692E+00_JPRB, 0.135725E+00_JPRB &
+  &, 0.129042E+00_JPRB, 0.122549E+00_JPRB, 0.116346E+00_JPRB &
+  &, 0.110375E+00_JPRB, 0.104614E+00_JPRB, 0.990829E-01_JPRB, 0.937991E-01_JPRB &
+  &, 0.887391E-01_JPRB, 0.838770E-01_JPRB, 0.792282E-01_JPRB &
+  &, 0.747640E-01_JPRB, 0.705443E-01_JPRB, 0.664930E-01_JPRB, 0.626229E-01_JPRB &
+  &, 0.589471E-01_JPRB, 0.554302E-01_JPRB, 0.520837E-01_JPRB &
+  &, 0.489190E-01_JPRB, 0.459479E-01_JPRB, 0.430796E-01_JPRB, 0.403740E-01_JPRB &
+  &, 0.377881E-01_JPRB, 0.353837E-01_JPRB, 0.331167E-01_JPRB &
+  &, 0.309403E-01_JPRB, 0.288607E-01_JPRB, 0.269406E-01_JPRB, 0.251312E-01_JPRB &
+  &, 0.234391E-01_JPRB, 0.218117E-01_JPRB, 0.203130E-01_JPRB &
+  &, 0.188891E-01_JPRB, 0.175443E-01_JPRB, 0.162832E-01_JPRB, 0.151102E-01_JPRB &
+  &, 0.140300E-01_JPRB, 0.129824E-01_JPRB, 0.120351E-01_JPRB/)
+XCW( 605, :) = (/ &
+  &  0.102338E+01_JPRB, 0.102822E+01_JPRB, 0.103266E+01_JPRB, 0.103668E+01_JPRB &
+  &, 0.104028E+01_JPRB, 0.104347E+01_JPRB, 0.104623E+01_JPRB &
+  &, 0.104857E+01_JPRB, 0.105047E+01_JPRB, 0.105195E+01_JPRB, 0.105299E+01_JPRB &
+  &, 0.105359E+01_JPRB, 0.105375E+01_JPRB, 0.105348E+01_JPRB &
+  &, 0.105277E+01_JPRB, 0.105161E+01_JPRB, 0.105001E+01_JPRB, 0.104797E+01_JPRB &
+  &, 0.104548E+01_JPRB, 0.104255E+01_JPRB, 0.103919E+01_JPRB &
+  &, 0.103538E+01_JPRB, 0.103113E+01_JPRB, 0.102644E+01_JPRB, 0.102133E+01_JPRB &
+  &, 0.101578E+01_JPRB, 0.100981E+01_JPRB, 0.100341E+01_JPRB &
+  &, 0.996602E+00_JPRB, 0.989378E+00_JPRB, 0.981746E+00_JPRB, 0.973722E+00_JPRB &
+  &, 0.965302E+00_JPRB, 0.956498E+00_JPRB, 0.947316E+00_JPRB &
+  &, 0.937767E+00_JPRB, 0.927868E+00_JPRB, 0.917610E+00_JPRB, 0.907026E+00_JPRB &
+  &, 0.896107E+00_JPRB, 0.884883E+00_JPRB, 0.873341E+00_JPRB &
+  &, 0.861520E+00_JPRB, 0.849423E+00_JPRB, 0.837054E+00_JPRB, 0.824440E+00_JPRB &
+  &, 0.811580E+00_JPRB, 0.798507E+00_JPRB, 0.785222E+00_JPRB &
+  &, 0.771739E+00_JPRB, 0.758072E+00_JPRB, 0.744254E+00_JPRB, 0.730287E+00_JPRB &
+  &, 0.716180E+00_JPRB, 0.701949E+00_JPRB, 0.687633E+00_JPRB &
+  &, 0.673208E+00_JPRB, 0.658727E+00_JPRB, 0.644199E+00_JPRB, 0.629614E+00_JPRB &
+  &, 0.615012E+00_JPRB, 0.600383E+00_JPRB, 0.585786E+00_JPRB &
+  &, 0.571193E+00_JPRB, 0.556627E+00_JPRB, 0.542130E+00_JPRB, 0.527670E+00_JPRB &
+  &, 0.513308E+00_JPRB, 0.499028E+00_JPRB, 0.484852E+00_JPRB &
+  &, 0.470781E+00_JPRB, 0.456858E+00_JPRB, 0.443061E+00_JPRB, 0.429409E+00_JPRB &
+  &, 0.415922E+00_JPRB, 0.402594E+00_JPRB, 0.389467E+00_JPRB &
+  &, 0.376509E+00_JPRB, 0.363762E+00_JPRB, 0.351239E+00_JPRB, 0.338904E+00_JPRB &
+  &, 0.326794E+00_JPRB, 0.314922E+00_JPRB, 0.303271E+00_JPRB &
+  &, 0.291877E+00_JPRB, 0.280722E+00_JPRB, 0.269811E+00_JPRB, 0.259149E+00_JPRB &
+  &, 0.248742E+00_JPRB, 0.238592E+00_JPRB, 0.228701E+00_JPRB &
+  &, 0.219100E+00_JPRB, 0.209726E+00_JPRB, 0.200639E+00_JPRB, 0.191805E+00_JPRB &
+  &, 0.183251E+00_JPRB, 0.174938E+00_JPRB, 0.166890E+00_JPRB &
+  &, 0.159136E+00_JPRB, 0.151593E+00_JPRB, 0.144320E+00_JPRB, 0.137305E+00_JPRB &
+  &, 0.130572E+00_JPRB, 0.124027E+00_JPRB, 0.117769E+00_JPRB &
+  &, 0.111741E+00_JPRB, 0.105962E+00_JPRB, 0.100369E+00_JPRB, 0.950215E-01_JPRB &
+  &, 0.898954E-01_JPRB, 0.850079E-01_JPRB, 0.803327E-01_JPRB &
+  &, 0.758409E-01_JPRB, 0.715467E-01_JPRB, 0.674645E-01_JPRB, 0.635624E-01_JPRB &
+  &, 0.598531E-01_JPRB, 0.563015E-01_JPRB, 0.529189E-01_JPRB &
+  &, 0.497167E-01_JPRB, 0.466562E-01_JPRB, 0.437983E-01_JPRB, 0.410510E-01_JPRB &
+  &, 0.384750E-01_JPRB, 0.359732E-01_JPRB, 0.336603E-01_JPRB &
+  &, 0.314917E-01_JPRB, 0.294198E-01_JPRB, 0.274508E-01_JPRB, 0.255911E-01_JPRB &
+  &, 0.238471E-01_JPRB, 0.222252E-01_JPRB, 0.206723E-01_JPRB &
+  &, 0.192533E-01_JPRB, 0.179135E-01_JPRB, 0.165949E-01_JPRB, 0.154261E-01_JPRB &
+  &, 0.142861E-01_JPRB, 0.132418E-01_JPRB, 0.122980E-01_JPRB/)
+XCW( 606, :) = (/ &
+  &  0.102364E+01_JPRB, 0.102855E+01_JPRB, 0.103306E+01_JPRB, 0.103714E+01_JPRB &
+  &, 0.104082E+01_JPRB, 0.104407E+01_JPRB, 0.104690E+01_JPRB &
+  &, 0.104930E+01_JPRB, 0.105128E+01_JPRB, 0.105282E+01_JPRB, 0.105393E+01_JPRB &
+  &, 0.105460E+01_JPRB, 0.105484E+01_JPRB, 0.105463E+01_JPRB &
+  &, 0.105398E+01_JPRB, 0.105290E+01_JPRB, 0.105136E+01_JPRB, 0.104939E+01_JPRB &
+  &, 0.104697E+01_JPRB, 0.104411E+01_JPRB, 0.104080E+01_JPRB &
+  &, 0.103706E+01_JPRB, 0.103287E+01_JPRB, 0.102825E+01_JPRB, 0.102320E+01_JPRB &
+  &, 0.101771E+01_JPRB, 0.101180E+01_JPRB, 0.100546E+01_JPRB &
+  &, 0.998710E+00_JPRB, 0.991546E+00_JPRB, 0.983972E+00_JPRB, 0.976000E+00_JPRB &
+  &, 0.967633E+00_JPRB, 0.958883E+00_JPRB, 0.949720E+00_JPRB &
+  &, 0.940259E+00_JPRB, 0.930395E+00_JPRB, 0.920191E+00_JPRB, 0.909653E+00_JPRB &
+  &, 0.898779E+00_JPRB, 0.887591E+00_JPRB, 0.876095E+00_JPRB &
+  &, 0.864311E+00_JPRB, 0.852250E+00_JPRB, 0.839916E+00_JPRB, 0.827326E+00_JPRB &
+  &, 0.814500E+00_JPRB, 0.801449E+00_JPRB, 0.788198E+00_JPRB &
+  &, 0.774735E+00_JPRB, 0.761101E+00_JPRB, 0.747300E+00_JPRB, 0.733336E+00_JPRB &
+  &, 0.719243E+00_JPRB, 0.705041E+00_JPRB, 0.690722E+00_JPRB &
+  &, 0.676323E+00_JPRB, 0.661836E+00_JPRB, 0.647298E+00_JPRB, 0.632717E+00_JPRB &
+  &, 0.618118E+00_JPRB, 0.603438E+00_JPRB, 0.588875E+00_JPRB &
+  &, 0.574278E+00_JPRB, 0.559725E+00_JPRB, 0.545202E+00_JPRB, 0.530731E+00_JPRB &
+  &, 0.516356E+00_JPRB, 0.496885E+00_JPRB, 0.487846E+00_JPRB &
+  &, 0.473755E+00_JPRB, 0.459808E+00_JPRB, 0.445985E+00_JPRB, 0.432304E+00_JPRB &
+  &, 0.418784E+00_JPRB, 0.405421E+00_JPRB, 0.392256E+00_JPRB &
+  &, 0.379282E+00_JPRB, 0.366490E+00_JPRB, 0.353920E+00_JPRB, 0.341535E+00_JPRB &
+  &, 0.329398E+00_JPRB, 0.317469E+00_JPRB, 0.305785E+00_JPRB &
+  &, 0.294328E+00_JPRB, 0.283134E+00_JPRB, 0.272181E+00_JPRB, 0.261476E+00_JPRB &
+  &, 0.251022E+00_JPRB, 0.240822E+00_JPRB, 0.230878E+00_JPRB &
+  &, 0.221221E+00_JPRB, 0.211821E+00_JPRB, 0.202673E+00_JPRB, 0.193775E+00_JPRB &
+  &, 0.185154E+00_JPRB, 0.176804E+00_JPRB, 0.168719E+00_JPRB &
+  &, 0.160889E+00_JPRB, 0.153303E+00_JPRB, 0.145985E+00_JPRB, 0.138923E+00_JPRB &
+  &, 0.132102E+00_JPRB, 0.125544E+00_JPRB, 0.119232E+00_JPRB &
+  &, 0.113147E+00_JPRB, 0.107309E+00_JPRB, 0.101697E+00_JPRB, 0.962861E-01_JPRB &
+  &, 0.911372E-01_JPRB, 0.861824E-01_JPRB, 0.814373E-01_JPRB &
+  &, 0.769178E-01_JPRB, 0.725947E-01_JPRB, 0.684361E-01_JPRB, 0.645018E-01_JPRB &
+  &, 0.607114E-01_JPRB, 0.571727E-01_JPRB, 0.537540E-01_JPRB &
+  &, 0.505144E-01_JPRB, 0.474151E-01_JPRB, 0.445170E-01_JPRB, 0.417281E-01_JPRB &
+  &, 0.391090E-01_JPRB, 0.366164E-01_JPRB, 0.342583E-01_JPRB &
+  &, 0.320430E-01_JPRB, 0.299230E-01_JPRB, 0.279611E-01_JPRB, 0.260510E-01_JPRB &
+  &, 0.243134E-01_JPRB, 0.226388E-01_JPRB, 0.210915E-01_JPRB &
+  &, 0.196175E-01_JPRB, 0.182211E-01_JPRB, 0.169690E-01_JPRB, 0.157420E-01_JPRB &
+  &, 0.146062E-01_JPRB, 0.135661E-01_JPRB, 0.125608E-01_JPRB/)
+XCW( 607, :) = (/ &
+  &  0.102391E+01_JPRB, 0.102888E+01_JPRB, 0.103346E+01_JPRB, 0.103761E+01_JPRB &
+  &, 0.104135E+01_JPRB, 0.104467E+01_JPRB, 0.104757E+01_JPRB &
+  &, 0.105004E+01_JPRB, 0.105209E+01_JPRB, 0.105370E+01_JPRB, 0.105488E+01_JPRB &
+  &, 0.105562E+01_JPRB, 0.105592E+01_JPRB, 0.105578E+01_JPRB &
+  &, 0.105520E+01_JPRB, 0.105418E+01_JPRB, 0.105272E+01_JPRB, 0.105081E+01_JPRB &
+  &, 0.104846E+01_JPRB, 0.104566E+01_JPRB, 0.104242E+01_JPRB &
+  &, 0.103874E+01_JPRB, 0.103462E+01_JPRB, 0.103006E+01_JPRB, 0.102507E+01_JPRB &
+  &, 0.101965E+01_JPRB, 0.101380E+01_JPRB, 0.100752E+01_JPRB &
+  &, 0.100083E+01_JPRB, 0.993718E+00_JPRB, 0.986202E+00_JPRB, 0.978285E+00_JPRB &
+  &, 0.969972E+00_JPRB, 0.961276E+00_JPRB, 0.952197E+00_JPRB &
+  &, 0.942752E+00_JPRB, 0.932941E+00_JPRB, 0.922782E+00_JPRB, 0.912280E+00_JPRB &
+  &, 0.901452E+00_JPRB, 0.890310E+00_JPRB, 0.878850E+00_JPRB &
+  &, 0.867102E+00_JPRB, 0.855076E+00_JPRB, 0.842778E+00_JPRB, 0.830224E+00_JPRB &
+  &, 0.817433E+00_JPRB, 0.804417E+00_JPRB, 0.791174E+00_JPRB &
+  &, 0.777744E+00_JPRB, 0.764129E+00_JPRB, 0.750346E+00_JPRB, 0.736413E+00_JPRB &
+  &, 0.722336E+00_JPRB, 0.708133E+00_JPRB, 0.693826E+00_JPRB &
+  &, 0.679438E+00_JPRB, 0.664959E+00_JPRB, 0.650429E+00_JPRB, 0.635854E+00_JPRB &
+  &, 0.621242E+00_JPRB, 0.606615E+00_JPRB, 0.591999E+00_JPRB &
+  &, 0.577399E+00_JPRB, 0.562822E+00_JPRB, 0.548292E+00_JPRB, 0.533811E+00_JPRB &
+  &, 0.519404E+00_JPRB, 0.505093E+00_JPRB, 0.490861E+00_JPRB &
+  &, 0.476749E+00_JPRB, 0.462779E+00_JPRB, 0.448886E+00_JPRB, 0.435221E+00_JPRB &
+  &, 0.421669E+00_JPRB, 0.408272E+00_JPRB, 0.395069E+00_JPRB &
+  &, 0.382055E+00_JPRB, 0.369244E+00_JPRB, 0.356627E+00_JPRB, 0.344218E+00_JPRB &
+  &, 0.332028E+00_JPRB, 0.320043E+00_JPRB, 0.308326E+00_JPRB &
+  &, 0.296834E+00_JPRB, 0.285574E+00_JPRB, 0.274580E+00_JPRB, 0.263802E+00_JPRB &
+  &, 0.253301E+00_JPRB, 0.243082E+00_JPRB, 0.233086E+00_JPRB &
+  &, 0.223375E+00_JPRB, 0.213884E+00_JPRB, 0.204708E+00_JPRB, 0.195779E+00_JPRB &
+  &, 0.187091E+00_JPRB, 0.178671E+00_JPRB, 0.170548E+00_JPRB &
+  &, 0.162642E+00_JPRB, 0.155013E+00_JPRB, 0.147650E+00_JPRB, 0.140541E+00_JPRB &
+  &, 0.133670E+00_JPRB, 0.127061E+00_JPRB, 0.120694E+00_JPRB &
+  &, 0.114553E+00_JPRB, 0.108656E+00_JPRB, 0.102983E+00_JPRB, 0.975506E-01_JPRB &
+  &, 0.923363E-01_JPRB, 0.873569E-01_JPRB, 0.825418E-01_JPRB &
+  &, 0.779947E-01_JPRB, 0.735971E-01_JPRB, 0.694539E-01_JPRB, 0.654412E-01_JPRB &
+  &, 0.616650E-01_JPRB, 0.580439E-01_JPRB, 0.545891E-01_JPRB &
+  &, 0.513121E-01_JPRB, 0.481740E-01_JPRB, 0.452357E-01_JPRB, 0.424052E-01_JPRB &
+  &, 0.397431E-01_JPRB, 0.372596E-01_JPRB, 0.348563E-01_JPRB &
+  &, 0.325944E-01_JPRB, 0.304821E-01_JPRB, 0.284714E-01_JPRB, 0.265684E-01_JPRB &
+  &, 0.247796E-01_JPRB, 0.231115E-01_JPRB, 0.215108E-01_JPRB &
+  &, 0.199817E-01_JPRB, 0.185902E-01_JPRB, 0.172808E-01_JPRB, 0.160580E-01_JPRB &
+  &, 0.149263E-01_JPRB, 0.138256E-01_JPRB, 0.128237E-01_JPRB/)
+XCW( 608, :) = (/ &
+  &  0.102417E+01_JPRB, 0.102922E+01_JPRB, 0.103386E+01_JPRB, 0.103808E+01_JPRB &
+  &, 0.104189E+01_JPRB, 0.104528E+01_JPRB, 0.104824E+01_JPRB &
+  &, 0.105079E+01_JPRB, 0.105290E+01_JPRB, 0.105458E+01_JPRB, 0.105582E+01_JPRB &
+  &, 0.105663E+01_JPRB, 0.105701E+01_JPRB, 0.105694E+01_JPRB &
+  &, 0.105643E+01_JPRB, 0.105547E+01_JPRB, 0.105407E+01_JPRB, 0.105223E+01_JPRB &
+  &, 0.104995E+01_JPRB, 0.104722E+01_JPRB, 0.104404E+01_JPRB &
+  &, 0.104043E+01_JPRB, 0.103637E+01_JPRB, 0.103188E+01_JPRB, 0.102695E+01_JPRB &
+  &, 0.102159E+01_JPRB, 0.101580E+01_JPRB, 0.100958E+01_JPRB &
+  &, 0.100295E+01_JPRB, 0.995897E+00_JPRB, 0.988436E+00_JPRB, 0.980575E+00_JPRB &
+  &, 0.972319E+00_JPRB, 0.963674E+00_JPRB, 0.954646E+00_JPRB &
+  &, 0.945245E+00_JPRB, 0.935487E+00_JPRB, 0.925373E+00_JPRB, 0.914926E+00_JPRB &
+  &, 0.904134E+00_JPRB, 0.893029E+00_JPRB, 0.881616E+00_JPRB &
+  &, 0.869915E+00_JPRB, 0.857914E+00_JPRB, 0.845652E+00_JPRB, 0.833133E+00_JPRB &
+  &, 0.820377E+00_JPRB, 0.807384E+00_JPRB, 0.794175E+00_JPRB &
+  &, 0.780766E+00_JPRB, 0.767170E+00_JPRB, 0.753406E+00_JPRB, 0.739490E+00_JPRB &
+  &, 0.725428E+00_JPRB, 0.711240E+00_JPRB, 0.696946E+00_JPRB &
+  &, 0.682553E+00_JPRB, 0.668099E+00_JPRB, 0.653560E+00_JPRB, 0.638991E+00_JPRB &
+  &, 0.624382E+00_JPRB, 0.609757E+00_JPRB, 0.595123E+00_JPRB &
+  &, 0.580521E+00_JPRB, 0.565939E+00_JPRB, 0.551382E+00_JPRB, 0.536891E+00_JPRB &
+  &, 0.522472E+00_JPRB, 0.508146E+00_JPRB, 0.493897E+00_JPRB &
+  &, 0.479765E+00_JPRB, 0.465751E+00_JPRB, 0.451876E+00_JPRB, 0.438137E+00_JPRB &
+  &, 0.424555E+00_JPRB, 0.411146E+00_JPRB, 0.397907E+00_JPRB &
+  &, 0.384852E+00_JPRB, 0.371998E+00_JPRB, 0.359334E+00_JPRB, 0.346875E+00_JPRB &
+  &, 0.334658E+00_JPRB, 0.322643E+00_JPRB, 0.310868E+00_JPRB &
+  &, 0.299340E+00_JPRB, 0.288042E+00_JPRB, 0.276980E+00_JPRB, 0.266187E+00_JPRB &
+  &, 0.255611E+00_JPRB, 0.245343E+00_JPRB, 0.235294E+00_JPRB &
+  &, 0.225528E+00_JPRB, 0.216011E+00_JPRB, 0.206742E+00_JPRB, 0.197782E+00_JPRB &
+  &, 0.189061E+00_JPRB, 0.180573E+00_JPRB, 0.172377E+00_JPRB &
+  &, 0.164466E+00_JPRB, 0.156759E+00_JPRB, 0.149352E+00_JPRB, 0.142196E+00_JPRB &
+  &, 0.135277E+00_JPRB, 0.128577E+00_JPRB, 0.122157E+00_JPRB &
+  &, 0.116000E+00_JPRB, 0.110045E+00_JPRB, 0.104310E+00_JPRB, 0.988574E-01_JPRB &
+  &, 0.935781E-01_JPRB, 0.885314E-01_JPRB, 0.836906E-01_JPRB &
+  &, 0.790716E-01_JPRB, 0.746451E-01_JPRB, 0.704255E-01_JPRB, 0.664276E-01_JPRB &
+  &, 0.625710E-01_JPRB, 0.589152E-01_JPRB, 0.554243E-01_JPRB &
+  &, 0.521098E-01_JPRB, 0.489835E-01_JPRB, 0.459544E-01_JPRB, 0.431343E-01_JPRB &
+  &, 0.404299E-01_JPRB, 0.379027E-01_JPRB, 0.354543E-01_JPRB &
+  &, 0.332008E-01_JPRB, 0.310412E-01_JPRB, 0.289816E-01_JPRB, 0.270283E-01_JPRB &
+  &, 0.252459E-01_JPRB, 0.235251E-01_JPRB, 0.219300E-01_JPRB &
+  &, 0.204067E-01_JPRB, 0.189594E-01_JPRB, 0.176549E-01_JPRB, 0.163739E-01_JPRB &
+  &, 0.152464E-01_JPRB, 0.140850E-01_JPRB, 0.130865E-01_JPRB/)
+XCW( 609, :) = (/ &
+  &  0.102444E+01_JPRB, 0.102955E+01_JPRB, 0.103425E+01_JPRB, 0.103855E+01_JPRB &
+  &, 0.104242E+01_JPRB, 0.104588E+01_JPRB, 0.104892E+01_JPRB &
+  &, 0.105153E+01_JPRB, 0.105371E+01_JPRB, 0.105546E+01_JPRB, 0.105677E+01_JPRB &
+  &, 0.105765E+01_JPRB, 0.105809E+01_JPRB, 0.105807E+01_JPRB &
+  &, 0.105765E+01_JPRB, 0.105676E+01_JPRB, 0.105543E+01_JPRB, 0.105366E+01_JPRB &
+  &, 0.105144E+01_JPRB, 0.104878E+01_JPRB, 0.104567E+01_JPRB &
+  &, 0.104212E+01_JPRB, 0.103813E+01_JPRB, 0.103370E+01_JPRB, 0.102883E+01_JPRB &
+  &, 0.102353E+01_JPRB, 0.101780E+01_JPRB, 0.101163E+01_JPRB &
+  &, 0.100507E+01_JPRB, 0.998077E+00_JPRB, 0.990678E+00_JPRB, 0.982870E+00_JPRB &
+  &, 0.974667E+00_JPRB, 0.966076E+00_JPRB, 0.957100E+00_JPRB &
+  &, 0.947756E+00_JPRB, 0.938043E+00_JPRB, 0.927974E+00_JPRB, 0.917573E+00_JPRB &
+  &, 0.906827E+00_JPRB, 0.895769E+00_JPRB, 0.884392E+00_JPRB &
+  &, 0.872728E+00_JPRB, 0.860775E+00_JPRB, 0.848537E+00_JPRB, 0.836054E+00_JPRB &
+  &, 0.823322E+00_JPRB, 0.810364E+00_JPRB, 0.797177E+00_JPRB &
+  &, 0.783788E+00_JPRB, 0.770226E+00_JPRB, 0.756480E+00_JPRB, 0.742581E+00_JPRB &
+  &, 0.728535E+00_JPRB, 0.714361E+00_JPRB, 0.700080E+00_JPRB &
+  &, 0.685699E+00_JPRB, 0.671239E+00_JPRB, 0.656724E+00_JPRB, 0.642144E+00_JPRB &
+  &, 0.627539E+00_JPRB, 0.612899E+00_JPRB, 0.598282E+00_JPRB &
+  &, 0.583660E+00_JPRB, 0.569055E+00_JPRB, 0.554510E+00_JPRB, 0.539990E+00_JPRB &
+  &, 0.525559E+00_JPRB, 0.511199E+00_JPRB, 0.496953E+00_JPRB &
+  &, 0.482801E+00_JPRB, 0.468765E+00_JPRB, 0.454843E+00_JPRB, 0.441077E+00_JPRB &
+  &, 0.427486E+00_JPRB, 0.414021E+00_JPRB, 0.400768E+00_JPRB &
+  &, 0.387673E+00_JPRB, 0.374776E+00_JPRB, 0.362067E+00_JPRB, 0.349584E+00_JPRB &
+  &, 0.337314E+00_JPRB, 0.325271E+00_JPRB, 0.313436E+00_JPRB &
+  &, 0.301847E+00_JPRB, 0.290511E+00_JPRB, 0.279408E+00_JPRB, 0.268543E+00_JPRB &
+  &, 0.257950E+00_JPRB, 0.247603E+00_JPRB, 0.237534E+00_JPRB &
+  &, 0.227681E+00_JPRB, 0.218139E+00_JPRB, 0.208842E+00_JPRB, 0.199785E+00_JPRB &
+  &, 0.190998E+00_JPRB, 0.182509E+00_JPRB, 0.174241E+00_JPRB &
+  &, 0.166255E+00_JPRB, 0.158542E+00_JPRB, 0.151054E+00_JPRB, 0.143814E+00_JPRB &
+  &, 0.136845E+00_JPRB, 0.130133E+00_JPRB, 0.123659E+00_JPRB &
+  &, 0.117446E+00_JPRB, 0.111433E+00_JPRB, 0.105679E+00_JPRB, 0.100122E+00_JPRB &
+  &, 0.948200E-01_JPRB, 0.897494E-01_JPRB, 0.848835E-01_JPRB &
+  &, 0.801934E-01_JPRB, 0.757386E-01_JPRB, 0.714896E-01_JPRB, 0.674140E-01_JPRB &
+  &, 0.635247E-01_JPRB, 0.598348E-01_JPRB, 0.563086E-01_JPRB &
+  &, 0.529574E-01_JPRB, 0.497423E-01_JPRB, 0.467244E-01_JPRB, 0.438635E-01_JPRB &
+  &, 0.411168E-01_JPRB, 0.385459E-01_JPRB, 0.360523E-01_JPRB &
+  &, 0.337522E-01_JPRB, 0.315444E-01_JPRB, 0.294919E-01_JPRB, 0.275456E-01_JPRB &
+  &, 0.257121E-01_JPRB, 0.239977E-01_JPRB, 0.223492E-01_JPRB &
+  &, 0.208316E-01_JPRB, 0.193285E-01_JPRB, 0.180290E-01_JPRB, 0.167529E-01_JPRB &
+  &, 0.155024E-01_JPRB, 0.144093E-01_JPRB, 0.133494E-01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART87',1,ZHOOK_HANDLE)
+END SUBROUTINE PART87
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART88
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART88',0,ZHOOK_HANDLE)
+
+XCW( 610, :) = (/ &
+  &  0.102470E+01_JPRB, 0.102988E+01_JPRB, 0.103466E+01_JPRB, 0.103902E+01_JPRB &
+  &, 0.104296E+01_JPRB, 0.104649E+01_JPRB, 0.104959E+01_JPRB &
+  &, 0.105227E+01_JPRB, 0.105452E+01_JPRB, 0.105634E+01_JPRB, 0.105772E+01_JPRB &
+  &, 0.105867E+01_JPRB, 0.105918E+01_JPRB, 0.105925E+01_JPRB &
+  &, 0.105887E+01_JPRB, 0.105806E+01_JPRB, 0.105679E+01_JPRB, 0.105509E+01_JPRB &
+  &, 0.105294E+01_JPRB, 0.105034E+01_JPRB, 0.104730E+01_JPRB &
+  &, 0.104381E+01_JPRB, 0.103988E+01_JPRB, 0.103552E+01_JPRB, 0.103072E+01_JPRB &
+  &, 0.102548E+01_JPRB, 0.101981E+01_JPRB, 0.101372E+01_JPRB &
+  &, 0.100720E+01_JPRB, 0.100026E+01_JPRB, 0.992921E+00_JPRB, 0.985172E+00_JPRB &
+  &, 0.977023E+00_JPRB, 0.968483E+00_JPRB, 0.959563E+00_JPRB &
+  &, 0.950268E+00_JPRB, 0.940599E+00_JPRB, 0.930585E+00_JPRB, 0.920230E+00_JPRB &
+  &, 0.909531E+00_JPRB, 0.898509E+00_JPRB, 0.887180E+00_JPRB &
+  &, 0.875551E+00_JPRB, 0.863624E+00_JPRB, 0.851434E+00_JPRB, 0.838976E+00_JPRB &
+  &, 0.826279E+00_JPRB, 0.813343E+00_JPRB, 0.800191E+00_JPRB &
+  &, 0.786836E+00_JPRB, 0.773281E+00_JPRB, 0.759540E+00_JPRB, 0.745672E+00_JPRB &
+  &, 0.731642E+00_JPRB, 0.717498E+00_JPRB, 0.703215E+00_JPRB &
+  &, 0.688845E+00_JPRB, 0.674395E+00_JPRB, 0.659888E+00_JPRB, 0.645314E+00_JPRB &
+  &, 0.630697E+00_JPRB, 0.616076E+00_JPRB, 0.601442E+00_JPRB &
+  &, 0.586799E+00_JPRB, 0.572208E+00_JPRB, 0.557638E+00_JPRB, 0.543109E+00_JPRB &
+  &, 0.528666E+00_JPRB, 0.514292E+00_JPRB, 0.500009E+00_JPRB &
+  &, 0.485838E+00_JPRB, 0.471780E+00_JPRB, 0.457833E+00_JPRB, 0.444061E+00_JPRB &
+  &, 0.430417E+00_JPRB, 0.416942E+00_JPRB, 0.403629E+00_JPRB &
+  &, 0.390494E+00_JPRB, 0.377555E+00_JPRB, 0.364824E+00_JPRB, 0.352292E+00_JPRB &
+  &, 0.339971E+00_JPRB, 0.327898E+00_JPRB, 0.316032E+00_JPRB &
+  &, 0.304381E+00_JPRB, 0.293008E+00_JPRB, 0.281865E+00_JPRB, 0.270958E+00_JPRB &
+  &, 0.260290E+00_JPRB, 0.249894E+00_JPRB, 0.239773E+00_JPRB &
+  &, 0.229898E+00_JPRB, 0.220266E+00_JPRB, 0.210909E+00_JPRB, 0.201822E+00_JPRB &
+  &, 0.193003E+00_JPRB, 0.184445E+00_JPRB, 0.176140E+00_JPRB &
+  &, 0.168080E+00_JPRB, 0.160289E+00_JPRB, 0.152757E+00_JPRB, 0.145508E+00_JPRB &
+  &, 0.138490E+00_JPRB, 0.131688E+00_JPRB, 0.125201E+00_JPRB &
+  &, 0.118892E+00_JPRB, 0.112862E+00_JPRB, 0.107049E+00_JPRB, 0.101471E+00_JPRB &
+  &, 0.961047E-01_JPRB, 0.909674E-01_JPRB, 0.860322E-01_JPRB &
+  &, 0.813151E-01_JPRB, 0.768322E-01_JPRB, 0.725074E-01_JPRB, 0.684004E-01_JPRB &
+  &, 0.644784E-01_JPRB, 0.607060E-01_JPRB, 0.571437E-01_JPRB &
+  &, 0.537551E-01_JPRB, 0.505518E-01_JPRB, 0.474944E-01_JPRB, 0.445406E-01_JPRB &
+  &, 0.418037E-01_JPRB, 0.391890E-01_JPRB, 0.367046E-01_JPRB &
+  &, 0.343587E-01_JPRB, 0.321595E-01_JPRB, 0.300588E-01_JPRB, 0.280630E-01_JPRB &
+  &, 0.261784E-01_JPRB, 0.244113E-01_JPRB, 0.227685E-01_JPRB &
+  &, 0.211958E-01_JPRB, 0.197592E-01_JPRB, 0.183407E-01_JPRB, 0.170688E-01_JPRB &
+  &, 0.158225E-01_JPRB, 0.147336E-01_JPRB, 0.136779E-01_JPRB/)
+XCW( 611, :) = (/ &
+  &  0.102497E+01_JPRB, 0.103021E+01_JPRB, 0.103506E+01_JPRB, 0.103948E+01_JPRB &
+  &, 0.104350E+01_JPRB, 0.104710E+01_JPRB, 0.105027E+01_JPRB &
+  &, 0.105302E+01_JPRB, 0.105533E+01_JPRB, 0.105722E+01_JPRB, 0.105868E+01_JPRB &
+  &, 0.105969E+01_JPRB, 0.106027E+01_JPRB, 0.106041E+01_JPRB &
+  &, 0.106010E+01_JPRB, 0.105935E+01_JPRB, 0.105816E+01_JPRB, 0.105652E+01_JPRB &
+  &, 0.105443E+01_JPRB, 0.105190E+01_JPRB, 0.104893E+01_JPRB &
+  &, 0.104551E+01_JPRB, 0.104165E+01_JPRB, 0.103735E+01_JPRB, 0.103261E+01_JPRB &
+  &, 0.102743E+01_JPRB, 0.102183E+01_JPRB, 0.101579E+01_JPRB &
+  &, 0.100933E+01_JPRB, 0.100246E+01_JPRB, 0.995171E+00_JPRB, 0.987475E+00_JPRB &
+  &, 0.979383E+00_JPRB, 0.970899E+00_JPRB, 0.962031E+00_JPRB &
+  &, 0.952779E+00_JPRB, 0.943174E+00_JPRB, 0.933206E+00_JPRB, 0.922886E+00_JPRB &
+  &, 0.912234E+00_JPRB, 0.901259E+00_JPRB, 0.889967E+00_JPRB &
+  &, 0.878376E+00_JPRB, 0.866496E+00_JPRB, 0.854331E+00_JPRB, 0.841921E+00_JPRB &
+  &, 0.829248E+00_JPRB, 0.816348E+00_JPRB, 0.803218E+00_JPRB &
+  &, 0.789885E+00_JPRB, 0.776363E+00_JPRB, 0.762655E+00_JPRB, 0.748791E+00_JPRB &
+  &, 0.734778E+00_JPRB, 0.720634E+00_JPRB, 0.706380E+00_JPRB &
+  &, 0.692022E+00_JPRB, 0.677567E+00_JPRB, 0.663052E+00_JPRB, 0.648484E+00_JPRB &
+  &, 0.633888E+00_JPRB, 0.619253E+00_JPRB, 0.604601E+00_JPRB &
+  &, 0.589975E+00_JPRB, 0.575361E+00_JPRB, 0.560784E+00_JPRB, 0.546248E+00_JPRB &
+  &, 0.531794E+00_JPRB, 0.517386E+00_JPRB, 0.503086E+00_JPRB &
+  &, 0.488896E+00_JPRB, 0.474816E+00_JPRB, 0.460845E+00_JPRB, 0.447023E+00_JPRB &
+  &, 0.433348E+00_JPRB, 0.419839E+00_JPRB, 0.406514E+00_JPRB &
+  &, 0.393340E+00_JPRB, 0.380383E+00_JPRB, 0.367607E+00_JPRB, 0.355027E+00_JPRB &
+  &, 0.342680E+00_JPRB, 0.330526E+00_JPRB, 0.318628E+00_JPRB &
+  &, 0.306943E+00_JPRB, 0.295505E+00_JPRB, 0.284323E+00_JPRB, 0.273373E+00_JPRB &
+  &, 0.262659E+00_JPRB, 0.252215E+00_JPRB, 0.242043E+00_JPRB &
+  &, 0.232114E+00_JPRB, 0.222426E+00_JPRB, 0.213041E+00_JPRB, 0.203892E+00_JPRB &
+  &, 0.195008E+00_JPRB, 0.186381E+00_JPRB, 0.178039E+00_JPRB &
+  &, 0.169940E+00_JPRB, 0.162108E+00_JPRB, 0.154496E+00_JPRB, 0.147201E+00_JPRB &
+  &, 0.140097E+00_JPRB, 0.133283E+00_JPRB, 0.126703E+00_JPRB &
+  &, 0.120379E+00_JPRB, 0.114291E+00_JPRB, 0.108418E+00_JPRB, 0.102778E+00_JPRB &
+  &, 0.973894E-01_JPRB, 0.921854E-01_JPRB, 0.872251E-01_JPRB &
+  &, 0.824817E-01_JPRB, 0.779257E-01_JPRB, 0.735715E-01_JPRB, 0.693868E-01_JPRB &
+  &, 0.654320E-01_JPRB, 0.616741E-01_JPRB, 0.580280E-01_JPRB &
+  &, 0.546026E-01_JPRB, 0.513613E-01_JPRB, 0.482644E-01_JPRB, 0.453218E-01_JPRB &
+  &, 0.424906E-01_JPRB, 0.398322E-01_JPRB, 0.373570E-01_JPRB &
+  &, 0.349651E-01_JPRB, 0.327186E-01_JPRB, 0.305691E-01_JPRB, 0.285804E-01_JPRB &
+  &, 0.267029E-01_JPRB, 0.248840E-01_JPRB, 0.231877E-01_JPRB &
+  &, 0.216207E-01_JPRB, 0.201283E-01_JPRB, 0.187148E-01_JPRB, 0.173848E-01_JPRB &
+  &, 0.162066E-01_JPRB, 0.149931E-01_JPRB, 0.139408E-01_JPRB/)
+XCW( 612, :) = (/ &
+  &  0.102523E+01_JPRB, 0.103055E+01_JPRB, 0.103546E+01_JPRB, 0.103995E+01_JPRB &
+  &, 0.104404E+01_JPRB, 0.104770E+01_JPRB, 0.105094E+01_JPRB &
+  &, 0.105376E+01_JPRB, 0.105615E+01_JPRB, 0.105810E+01_JPRB, 0.105963E+01_JPRB &
+  &, 0.106071E+01_JPRB, 0.106136E+01_JPRB, 0.106157E+01_JPRB &
+  &, 0.106133E+01_JPRB, 0.106065E+01_JPRB, 0.105952E+01_JPRB, 0.105795E+01_JPRB &
+  &, 0.105593E+01_JPRB, 0.105347E+01_JPRB, 0.105056E+01_JPRB &
+  &, 0.104721E+01_JPRB, 0.104341E+01_JPRB, 0.103917E+01_JPRB, 0.103450E+01_JPRB &
+  &, 0.102939E+01_JPRB, 0.102384E+01_JPRB, 0.101787E+01_JPRB &
+  &, 0.101147E+01_JPRB, 0.100466E+01_JPRB, 0.997426E+00_JPRB, 0.989790E+00_JPRB &
+  &, 0.981748E+00_JPRB, 0.973319E+00_JPRB, 0.964503E+00_JPRB &
+  &, 0.955309E+00_JPRB, 0.945749E+00_JPRB, 0.935826E+00_JPRB, 0.925553E+00_JPRB &
+  &, 0.914948E+00_JPRB, 0.904020E+00_JPRB, 0.892765E+00_JPRB &
+  &, 0.881211E+00_JPRB, 0.869368E+00_JPRB, 0.857252E+00_JPRB, 0.844866E+00_JPRB &
+  &, 0.832230E+00_JPRB, 0.819353E+00_JPRB, 0.806245E+00_JPRB &
+  &, 0.792946E+00_JPRB, 0.779445E+00_JPRB, 0.765756E+00_JPRB, 0.751911E+00_JPRB &
+  &, 0.737914E+00_JPRB, 0.723785E+00_JPRB, 0.709544E+00_JPRB &
+  &, 0.695199E+00_JPRB, 0.680754E+00_JPRB, 0.666248E+00_JPRB, 0.651687E+00_JPRB &
+  &, 0.637080E+00_JPRB, 0.622447E+00_JPRB, 0.607796E+00_JPRB &
+  &, 0.593151E+00_JPRB, 0.578533E+00_JPRB, 0.563950E+00_JPRB, 0.549405E+00_JPRB &
+  &, 0.534921E+00_JPRB, 0.520499E+00_JPRB, 0.506183E+00_JPRB &
+  &, 0.491975E+00_JPRB, 0.477852E+00_JPRB, 0.463878E+00_JPRB, 0.450030E+00_JPRB &
+  &, 0.436325E+00_JPRB, 0.422784E+00_JPRB, 0.409398E+00_JPRB &
+  &, 0.396210E+00_JPRB, 0.383211E+00_JPRB, 0.370390E+00_JPRB, 0.357787E+00_JPRB &
+  &, 0.345389E+00_JPRB, 0.333207E+00_JPRB, 0.321251E+00_JPRB &
+  &, 0.309533E+00_JPRB, 0.298030E+00_JPRB, 0.286809E+00_JPRB, 0.275787E+00_JPRB &
+  &, 0.265059E+00_JPRB, 0.254567E+00_JPRB, 0.244314E+00_JPRB &
+  &, 0.234331E+00_JPRB, 0.224618E+00_JPRB, 0.215174E+00_JPRB, 0.205963E+00_JPRB &
+  &, 0.197012E+00_JPRB, 0.188351E+00_JPRB, 0.179938E+00_JPRB &
+  &, 0.171800E+00_JPRB, 0.163891E+00_JPRB, 0.156272E+00_JPRB, 0.148894E+00_JPRB &
+  &, 0.141780E+00_JPRB, 0.134877E+00_JPRB, 0.128245E+00_JPRB &
+  &, 0.121865E+00_JPRB, 0.115720E+00_JPRB, 0.109828E+00_JPRB, 0.104126E+00_JPRB &
+  &, 0.986741E-01_JPRB, 0.934468E-01_JPRB, 0.884180E-01_JPRB &
+  &, 0.836035E-01_JPRB, 0.790193E-01_JPRB, 0.746356E-01_JPRB, 0.704202E-01_JPRB &
+  &, 0.664334E-01_JPRB, 0.625937E-01_JPRB, 0.589614E-01_JPRB &
+  &, 0.554502E-01_JPRB, 0.521708E-01_JPRB, 0.490344E-01_JPRB, 0.460510E-01_JPRB &
+  &, 0.432303E-01_JPRB, 0.405289E-01_JPRB, 0.379550E-01_JPRB &
+  &, 0.355716E-01_JPRB, 0.332777E-01_JPRB, 0.311361E-01_JPRB, 0.290978E-01_JPRB &
+  &, 0.271691E-01_JPRB, 0.253567E-01_JPRB, 0.236668E-01_JPRB &
+  &, 0.220457E-01_JPRB, 0.205590E-01_JPRB, 0.190889E-01_JPRB, 0.177638E-01_JPRB &
+  &, 0.165267E-01_JPRB, 0.153174E-01_JPRB, 0.142036E-01_JPRB/)
+XCW( 613, :) = (/ &
+  &  0.102550E+01_JPRB, 0.103088E+01_JPRB, 0.103586E+01_JPRB, 0.104042E+01_JPRB &
+  &, 0.104458E+01_JPRB, 0.104831E+01_JPRB, 0.105162E+01_JPRB &
+  &, 0.105451E+01_JPRB, 0.105696E+01_JPRB, 0.105899E+01_JPRB, 0.106058E+01_JPRB &
+  &, 0.106174E+01_JPRB, 0.106245E+01_JPRB, 0.106273E+01_JPRB &
+  &, 0.106256E+01_JPRB, 0.106195E+01_JPRB, 0.106089E+01_JPRB, 0.105939E+01_JPRB &
+  &, 0.105744E+01_JPRB, 0.105504E+01_JPRB, 0.105220E+01_JPRB &
+  &, 0.104891E+01_JPRB, 0.104518E+01_JPRB, 0.104101E+01_JPRB, 0.103638E+01_JPRB &
+  &, 0.103135E+01_JPRB, 0.102586E+01_JPRB, 0.101995E+01_JPRB &
+  &, 0.101361E+01_JPRB, 0.100686E+01_JPRB, 0.999685E+00_JPRB, 0.992105E+00_JPRB &
+  &, 0.984122E+00_JPRB, 0.975747E+00_JPRB, 0.966975E+00_JPRB &
+  &, 0.957839E+00_JPRB, 0.948324E+00_JPRB, 0.938457E+00_JPRB, 0.928230E+00_JPRB &
+  &, 0.917672E+00_JPRB, 0.906781E+00_JPRB, 0.895574E+00_JPRB &
+  &, 0.884057E+00_JPRB, 0.872252E+00_JPRB, 0.860172E+00_JPRB, 0.847811E+00_JPRB &
+  &, 0.835211E+00_JPRB, 0.822370E+00_JPRB, 0.809298E+00_JPRB &
+  &, 0.796008E+00_JPRB, 0.782540E+00_JPRB, 0.768871E+00_JPRB, 0.755044E+00_JPRB &
+  &, 0.741064E+00_JPRB, 0.726951E+00_JPRB, 0.712724E+00_JPRB &
+  &, 0.698391E+00_JPRB, 0.683957E+00_JPRB, 0.669444E+00_JPRB, 0.654891E+00_JPRB &
+  &, 0.640288E+00_JPRB, 0.625641E+00_JPRB, 0.610991E+00_JPRB &
+  &, 0.596344E+00_JPRB, 0.581724E+00_JPRB, 0.567116E+00_JPRB, 0.552563E+00_JPRB &
+  &, 0.538067E+00_JPRB, 0.523633E+00_JPRB, 0.509301E+00_JPRB &
+  &, 0.495053E+00_JPRB, 0.480931E+00_JPRB, 0.466912E+00_JPRB, 0.453036E+00_JPRB &
+  &, 0.439303E+00_JPRB, 0.425728E+00_JPRB, 0.412331E+00_JPRB &
+  &, 0.399104E+00_JPRB, 0.386039E+00_JPRB, 0.373198E+00_JPRB, 0.360547E+00_JPRB &
+  &, 0.348019E+00_JPRB, 0.335888E+00_JPRB, 0.323902E+00_JPRB &
+  &, 0.312122E+00_JPRB, 0.300584E+00_JPRB, 0.289295E+00_JPRB, 0.278261E+00_JPRB &
+  &, 0.267458E+00_JPRB, 0.256919E+00_JPRB, 0.246615E+00_JPRB &
+  &, 0.236579E+00_JPRB, 0.226810E+00_JPRB, 0.217306E+00_JPRB, 0.208066E+00_JPRB &
+  &, 0.199051E+00_JPRB, 0.190356E+00_JPRB, 0.181873E+00_JPRB &
+  &, 0.173660E+00_JPRB, 0.165710E+00_JPRB, 0.158048E+00_JPRB, 0.150625E+00_JPRB &
+  &, 0.143425E+00_JPRB, 0.136511E+00_JPRB, 0.129826E+00_JPRB &
+  &, 0.123392E+00_JPRB, 0.117190E+00_JPRB, 0.111239E+00_JPRB, 0.105475E+00_JPRB &
+  &, 0.100002E+00_JPRB, 0.947083E-01_JPRB, 0.896551E-01_JPRB &
+  &, 0.847701E-01_JPRB, 0.801584E-01_JPRB, 0.756997E-01_JPRB, 0.714536E-01_JPRB &
+  &, 0.673871E-01_JPRB, 0.635618E-01_JPRB, 0.598456E-01_JPRB &
+  &, 0.563476E-01_JPRB, 0.529803E-01_JPRB, 0.498045E-01_JPRB, 0.467801E-01_JPRB &
+  &, 0.439172E-01_JPRB, 0.412257E-01_JPRB, 0.386617E-01_JPRB &
+  &, 0.361781E-01_JPRB, 0.338928E-01_JPRB, 0.317030E-01_JPRB, 0.296151E-01_JPRB &
+  &, 0.276937E-01_JPRB, 0.258293E-01_JPRB, 0.240861E-01_JPRB &
+  &, 0.224706E-01_JPRB, 0.209281E-01_JPRB, 0.194630E-01_JPRB, 0.181429E-01_JPRB &
+  &, 0.168468E-01_JPRB, 0.156417E-01_JPRB, 0.145322E-01_JPRB/)
+XCW( 614, :) = (/ &
+  &  0.102577E+01_JPRB, 0.103121E+01_JPRB, 0.103626E+01_JPRB, 0.104089E+01_JPRB &
+  &, 0.104511E+01_JPRB, 0.104892E+01_JPRB, 0.105230E+01_JPRB &
+  &, 0.105525E+01_JPRB, 0.105778E+01_JPRB, 0.105988E+01_JPRB, 0.106154E+01_JPRB &
+  &, 0.106276E+01_JPRB, 0.106355E+01_JPRB, 0.106389E+01_JPRB &
+  &, 0.106379E+01_JPRB, 0.106325E+01_JPRB, 0.106226E+01_JPRB, 0.106082E+01_JPRB &
+  &, 0.105894E+01_JPRB, 0.105661E+01_JPRB, 0.105384E+01_JPRB &
+  &, 0.105062E+01_JPRB, 0.104695E+01_JPRB, 0.104284E+01_JPRB, 0.103829E+01_JPRB &
+  &, 0.103331E+01_JPRB, 0.102783E+01_JPRB, 0.102204E+01_JPRB &
+  &, 0.101576E+01_JPRB, 0.100906E+01_JPRB, 0.100195E+01_JPRB, 0.994425E+00_JPRB &
+  &, 0.986500E+00_JPRB, 0.978176E+00_JPRB, 0.969465E+00_JPRB &
+  &, 0.960378E+00_JPRB, 0.950908E+00_JPRB, 0.941087E+00_JPRB, 0.930917E+00_JPRB &
+  &, 0.920395E+00_JPRB, 0.909553E+00_JPRB, 0.898383E+00_JPRB &
+  &, 0.886914E+00_JPRB, 0.875146E+00_JPRB, 0.863104E+00_JPRB, 0.850780E+00_JPRB &
+  &, 0.838205E+00_JPRB, 0.825387E+00_JPRB, 0.812351E+00_JPRB &
+  &, 0.799096E+00_JPRB, 0.785636E+00_JPRB, 0.772000E+00_JPRB, 0.758192E+00_JPRB &
+  &, 0.744229E+00_JPRB, 0.730132E+00_JPRB, 0.715919E+00_JPRB &
+  &, 0.701584E+00_JPRB, 0.687160E+00_JPRB, 0.672673E+00_JPRB, 0.658110E+00_JPRB &
+  &, 0.643496E+00_JPRB, 0.628870E+00_JPRB, 0.614222E+00_JPRB &
+  &, 0.599556E+00_JPRB, 0.584933E+00_JPRB, 0.570320E+00_JPRB, 0.555740E+00_JPRB &
+  &, 0.541234E+00_JPRB, 0.526787E+00_JPRB, 0.512420E+00_JPRB &
+  &, 0.498175E+00_JPRB, 0.484010E+00_JPRB, 0.469967E+00_JPRB, 0.456066E+00_JPRB &
+  &, 0.442302E+00_JPRB, 0.428696E+00_JPRB, 0.415264E+00_JPRB &
+  &, 0.401998E+00_JPRB, 0.388916E+00_JPRB, 0.376032E+00_JPRB, 0.363333E+00_JPRB &
+  &, 0.350859E+00_JPRB, 0.338595E+00_JPRB, 0.326553E+00_JPRB &
+  &, 0.314740E+00_JPRB, 0.303166E+00_JPRB, 0.291810E+00_JPRB, 0.280735E+00_JPRB &
+  &, 0.269887E+00_JPRB, 0.259271E+00_JPRB, 0.248948E+00_JPRB &
+  &, 0.238859E+00_JPRB, 0.229034E+00_JPRB, 0.219472E+00_JPRB, 0.210170E+00_JPRB &
+  &, 0.201124E+00_JPRB, 0.192361E+00_JPRB, 0.183842E+00_JPRB &
+  &, 0.175556E+00_JPRB, 0.167566E+00_JPRB, 0.159824E+00_JPRB, 0.152355E+00_JPRB &
+  &, 0.145108E+00_JPRB, 0.138144E+00_JPRB, 0.131407E+00_JPRB &
+  &, 0.124919E+00_JPRB, 0.118660E+00_JPRB, 0.112649E+00_JPRB, 0.106866E+00_JPRB &
+  &, 0.101329E+00_JPRB, 0.959698E-01_JPRB, 0.908480E-01_JPRB &
+  &, 0.859816E-01_JPRB, 0.812975E-01_JPRB, 0.768101E-01_JPRB, 0.724869E-01_JPRB &
+  &, 0.683884E-01_JPRB, 0.644814E-01_JPRB, 0.607790E-01_JPRB &
+  &, 0.572450E-01_JPRB, 0.538403E-01_JPRB, 0.506258E-01_JPRB, 0.475614E-01_JPRB &
+  &, 0.446569E-01_JPRB, 0.419225E-01_JPRB, 0.393140E-01_JPRB &
+  &, 0.368397E-01_JPRB, 0.345078E-01_JPRB, 0.322700E-01_JPRB, 0.301900E-01_JPRB &
+  &, 0.282182E-01_JPRB, 0.263020E-01_JPRB, 0.245652E-01_JPRB &
+  &, 0.228955E-01_JPRB, 0.213588E-01_JPRB, 0.198995E-01_JPRB, 0.185220E-01_JPRB &
+  &, 0.172309E-01_JPRB, 0.159660E-01_JPRB, 0.148607E-01_JPRB/)
+XCW( 615, :) = (/ &
+  &  0.102603E+01_JPRB, 0.103155E+01_JPRB, 0.103666E+01_JPRB, 0.104137E+01_JPRB &
+  &, 0.104565E+01_JPRB, 0.104953E+01_JPRB, 0.105298E+01_JPRB &
+  &, 0.105600E+01_JPRB, 0.105860E+01_JPRB, 0.106076E+01_JPRB, 0.106249E+01_JPRB &
+  &, 0.106379E+01_JPRB, 0.106464E+01_JPRB, 0.106506E+01_JPRB &
+  &, 0.106503E+01_JPRB, 0.106455E+01_JPRB, 0.106363E+01_JPRB, 0.106226E+01_JPRB &
+  &, 0.106045E+01_JPRB, 0.105819E+01_JPRB, 0.105548E+01_JPRB &
+  &, 0.105232E+01_JPRB, 0.104873E+01_JPRB, 0.104468E+01_JPRB, 0.104020E+01_JPRB &
+  &, 0.103528E+01_JPRB, 0.102992E+01_JPRB, 0.102413E+01_JPRB &
+  &, 0.101791E+01_JPRB, 0.101128E+01_JPRB, 0.100422E+01_JPRB, 0.996753E+00_JPRB &
+  &, 0.988882E+00_JPRB, 0.980614E+00_JPRB, 0.971960E+00_JPRB &
+  &, 0.962917E+00_JPRB, 0.953502E+00_JPRB, 0.943737E+00_JPRB, 0.933604E+00_JPRB &
+  &, 0.923130E+00_JPRB, 0.912335E+00_JPRB, 0.901213E+00_JPRB &
+  &, 0.889782E+00_JPRB, 0.878052E+00_JPRB, 0.866036E+00_JPRB, 0.853749E+00_JPRB &
+  &, 0.841211E+00_JPRB, 0.828430E+00_JPRB, 0.815417E+00_JPRB &
+  &, 0.802184E+00_JPRB, 0.788758E+00_JPRB, 0.775143E+00_JPRB, 0.761353E+00_JPRB &
+  &, 0.747408E+00_JPRB, 0.733327E+00_JPRB, 0.719115E+00_JPRB &
+  &, 0.704807E+00_JPRB, 0.690396E+00_JPRB, 0.675901E+00_JPRB, 0.661347E+00_JPRB &
+  &, 0.646739E+00_JPRB, 0.632099E+00_JPRB, 0.617453E+00_JPRB &
+  &, 0.602786E+00_JPRB, 0.588142E+00_JPRB, 0.573524E+00_JPRB, 0.558936E+00_JPRB &
+  &, 0.544421E+00_JPRB, 0.529961E+00_JPRB, 0.515579E+00_JPRB &
+  &, 0.501296E+00_JPRB, 0.487111E+00_JPRB, 0.473045E+00_JPRB, 0.459117E+00_JPRB &
+  &, 0.445325E+00_JPRB, 0.431687E+00_JPRB, 0.418220E+00_JPRB &
+  &, 0.404917E+00_JPRB, 0.391794E+00_JPRB, 0.378865E+00_JPRB, 0.366145E+00_JPRB &
+  &, 0.353621E+00_JPRB, 0.341303E+00_JPRB, 0.329231E+00_JPRB &
+  &, 0.317358E+00_JPRB, 0.305748E+00_JPRB, 0.294354E+00_JPRB, 0.283208E+00_JPRB &
+  &, 0.272317E+00_JPRB, 0.261684E+00_JPRB, 0.251281E+00_JPRB &
+  &, 0.241139E+00_JPRB, 0.231258E+00_JPRB, 0.221637E+00_JPRB, 0.212307E+00_JPRB &
+  &, 0.203196E+00_JPRB, 0.194366E+00_JPRB, 0.185812E+00_JPRB &
+  &, 0.177488E+00_JPRB, 0.169422E+00_JPRB, 0.161637E+00_JPRB, 0.154086E+00_JPRB &
+  &, 0.146830E+00_JPRB, 0.139777E+00_JPRB, 0.132988E+00_JPRB &
+  &, 0.126445E+00_JPRB, 0.120170E+00_JPRB, 0.114101E+00_JPRB, 0.108257E+00_JPRB &
+  &, 0.102657E+00_JPRB, 0.972748E-01_JPRB, 0.921293E-01_JPRB &
+  &, 0.871483E-01_JPRB, 0.824367E-01_JPRB, 0.779205E-01_JPRB, 0.735673E-01_JPRB &
+  &, 0.694375E-01_JPRB, 0.654978E-01_JPRB, 0.617124E-01_JPRB &
+  &, 0.580926E-01_JPRB, 0.547004E-01_JPRB, 0.514472E-01_JPRB, 0.483426E-01_JPRB &
+  &, 0.453966E-01_JPRB, 0.426192E-01_JPRB, 0.399664E-01_JPRB &
+  &, 0.374462E-01_JPRB, 0.350669E-01_JPRB, 0.328369E-01_JPRB, 0.307074E-01_JPRB &
+  &, 0.287427E-01_JPRB, 0.268337E-01_JPRB, 0.250443E-01_JPRB &
+  &, 0.233812E-01_JPRB, 0.217895E-01_JPRB, 0.202736E-01_JPRB, 0.189011E-01_JPRB &
+  &, 0.175510E-01_JPRB, 0.162903E-01_JPRB, 0.151236E-01_JPRB/)
+XCW( 616, :) = (/ &
+  &  0.102630E+01_JPRB, 0.103188E+01_JPRB, 0.103707E+01_JPRB, 0.104184E+01_JPRB &
+  &, 0.104619E+01_JPRB, 0.105014E+01_JPRB, 0.105365E+01_JPRB &
+  &, 0.105675E+01_JPRB, 0.105942E+01_JPRB, 0.106165E+01_JPRB, 0.106345E+01_JPRB &
+  &, 0.106481E+01_JPRB, 0.106574E+01_JPRB, 0.106622E+01_JPRB &
+  &, 0.106626E+01_JPRB, 0.106586E+01_JPRB, 0.106501E+01_JPRB, 0.106371E+01_JPRB &
+  &, 0.106196E+01_JPRB, 0.105977E+01_JPRB, 0.105713E+01_JPRB &
+  &, 0.105404E+01_JPRB, 0.105050E+01_JPRB, 0.104653E+01_JPRB, 0.104211E+01_JPRB &
+  &, 0.103725E+01_JPRB, 0.103195E+01_JPRB, 0.102623E+01_JPRB &
+  &, 0.102007E+01_JPRB, 0.101349E+01_JPRB, 0.100649E+01_JPRB, 0.999085E+00_JPRB &
+  &, 0.991272E+00_JPRB, 0.983060E+00_JPRB, 0.974454E+00_JPRB &
+  &, 0.965466E+00_JPRB, 0.956106E+00_JPRB, 0.946387E+00_JPRB, 0.936301E+00_JPRB &
+  &, 0.925874E+00_JPRB, 0.915117E+00_JPRB, 0.904044E+00_JPRB &
+  &, 0.892651E+00_JPRB, 0.880958E+00_JPRB, 0.868980E+00_JPRB, 0.856718E+00_JPRB &
+  &, 0.844229E+00_JPRB, 0.831472E+00_JPRB, 0.818495E+00_JPRB &
+  &, 0.805285E+00_JPRB, 0.791881E+00_JPRB, 0.778285E+00_JPRB, 0.764529E+00_JPRB &
+  &, 0.750602E+00_JPRB, 0.736537E+00_JPRB, 0.722340E+00_JPRB &
+  &, 0.708030E+00_JPRB, 0.693630E+00_JPRB, 0.679146E+00_JPRB, 0.664583E+00_JPRB &
+  &, 0.649981E+00_JPRB, 0.635346E+00_JPRB, 0.620701E+00_JPRB &
+  &, 0.606035E+00_JPRB, 0.591369E+00_JPRB, 0.576746E+00_JPRB, 0.562151E+00_JPRB &
+  &, 0.547607E+00_JPRB, 0.533136E+00_JPRB, 0.518739E+00_JPRB &
+  &, 0.504438E+00_JPRB, 0.490233E+00_JPRB, 0.476144E+00_JPRB, 0.462191E+00_JPRB &
+  &, 0.448371E+00_JPRB, 0.434701E+00_JPRB, 0.421200E+00_JPRB &
+  &, 0.407860E+00_JPRB, 0.394696E+00_JPRB, 0.381724E+00_JPRB, 0.368957E+00_JPRB &
+  &, 0.356409E+00_JPRB, 0.344065E+00_JPRB, 0.331936E+00_JPRB &
+  &, 0.320031E+00_JPRB, 0.308359E+00_JPRB, 0.296927E+00_JPRB, 0.285711E+00_JPRB &
+  &, 0.274776E+00_JPRB, 0.264097E+00_JPRB, 0.253644E+00_JPRB &
+  &, 0.243450E+00_JPRB, 0.233514E+00_JPRB, 0.223868E+00_JPRB, 0.214444E+00_JPRB &
+  &, 0.205303E+00_JPRB, 0.196406E+00_JPRB, 0.187781E+00_JPRB &
+  &, 0.179420E+00_JPRB, 0.171314E+00_JPRB, 0.163450E+00_JPRB, 0.155892E+00_JPRB &
+  &, 0.148551E+00_JPRB, 0.141449E+00_JPRB, 0.134609E+00_JPRB &
+  &, 0.128012E+00_JPRB, 0.121681E+00_JPRB, 0.115554E+00_JPRB, 0.109648E+00_JPRB &
+  &, 0.104027E+00_JPRB, 0.985798E-01_JPRB, 0.933664E-01_JPRB &
+  &, 0.883598E-01_JPRB, 0.836213E-01_JPRB, 0.790308E-01_JPRB, 0.746476E-01_JPRB &
+  &, 0.704388E-01_JPRB, 0.664659E-01_JPRB, 0.626458E-01_JPRB &
+  &, 0.590399E-01_JPRB, 0.555605E-01_JPRB, 0.522685E-01_JPRB, 0.491238E-01_JPRB &
+  &, 0.461891E-01_JPRB, 0.433160E-01_JPRB, 0.406731E-01_JPRB &
+  &, 0.381078E-01_JPRB, 0.357378E-01_JPRB, 0.334606E-01_JPRB, 0.312822E-01_JPRB &
+  &, 0.292673E-01_JPRB, 0.273064E-01_JPRB, 0.255235E-01_JPRB &
+  &, 0.238061E-01_JPRB, 0.222201E-01_JPRB, 0.206477E-01_JPRB, 0.192802E-01_JPRB &
+  &, 0.179351E-01_JPRB, 0.166795E-01_JPRB, 0.154521E-01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART88',1,ZHOOK_HANDLE)
+END SUBROUTINE PART88
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART89
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART89',0,ZHOOK_HANDLE)
+
+XCW( 617, :) = (/ &
+  &  0.102656E+01_JPRB, 0.103222E+01_JPRB, 0.103747E+01_JPRB, 0.104231E+01_JPRB &
+  &, 0.104674E+01_JPRB, 0.105075E+01_JPRB, 0.105433E+01_JPRB &
+  &, 0.105750E+01_JPRB, 0.106023E+01_JPRB, 0.106254E+01_JPRB, 0.106441E+01_JPRB &
+  &, 0.106584E+01_JPRB, 0.106684E+01_JPRB, 0.106739E+01_JPRB &
+  &, 0.106750E+01_JPRB, 0.106716E+01_JPRB, 0.106638E+01_JPRB, 0.106515E+01_JPRB &
+  &, 0.106348E+01_JPRB, 0.106135E+01_JPRB, 0.105877E+01_JPRB &
+  &, 0.105575E+01_JPRB, 0.105228E+01_JPRB, 0.104837E+01_JPRB, 0.104402E+01_JPRB &
+  &, 0.103922E+01_JPRB, 0.103399E+01_JPRB, 0.102833E+01_JPRB &
+  &, 0.102223E+01_JPRB, 0.101571E+01_JPRB, 0.100878E+01_JPRB, 0.100143E+01_JPRB &
+  &, 0.993667E+00_JPRB, 0.985512E+00_JPRB, 0.976958E+00_JPRB &
+  &, 0.968024E+00_JPRB, 0.958719E+00_JPRB, 0.949036E+00_JPRB, 0.939007E+00_JPRB &
+  &, 0.928629E+00_JPRB, 0.917920E+00_JPRB, 0.906874E+00_JPRB &
+  &, 0.895530E+00_JPRB, 0.883876E+00_JPRB, 0.871946E+00_JPRB, 0.859723E+00_JPRB &
+  &, 0.847259E+00_JPRB, 0.834527E+00_JPRB, 0.821574E+00_JPRB &
+  &, 0.808399E+00_JPRB, 0.795016E+00_JPRB, 0.781455E+00_JPRB, 0.767705E+00_JPRB &
+  &, 0.753796E+00_JPRB, 0.739748E+00_JPRB, 0.725565E+00_JPRB &
+  &, 0.711269E+00_JPRB, 0.696881E+00_JPRB, 0.682391E+00_JPRB, 0.667853E+00_JPRB &
+  &, 0.653257E+00_JPRB, 0.638609E+00_JPRB, 0.623949E+00_JPRB &
+  &, 0.609283E+00_JPRB, 0.594615E+00_JPRB, 0.579988E+00_JPRB, 0.565387E+00_JPRB &
+  &, 0.550813E+00_JPRB, 0.536330E+00_JPRB, 0.521919E+00_JPRB &
+  &, 0.507580E+00_JPRB, 0.493355E+00_JPRB, 0.479244E+00_JPRB, 0.465265E+00_JPRB &
+  &, 0.451417E+00_JPRB, 0.437716E+00_JPRB, 0.424180E+00_JPRB &
+  &, 0.410803E+00_JPRB, 0.397624E+00_JPRB, 0.384608E+00_JPRB, 0.371820E+00_JPRB &
+  &, 0.359197E+00_JPRB, 0.346612E+00_JPRB, 0.334641E+00_JPRB &
+  &, 0.322704E+00_JPRB, 0.310969E+00_JPRB, 0.299499E+00_JPRB, 0.288244E+00_JPRB &
+  &, 0.277266E+00_JPRB, 0.266510E+00_JPRB, 0.256008E+00_JPRB &
+  &, 0.245793E+00_JPRB, 0.235803E+00_JPRB, 0.226067E+00_JPRB, 0.216614E+00_JPRB &
+  &, 0.207409E+00_JPRB, 0.198480E+00_JPRB, 0.189786E+00_JPRB &
+  &, 0.181388E+00_JPRB, 0.173206E+00_JPRB, 0.165300E+00_JPRB, 0.157661E+00_JPRB &
+  &, 0.150273E+00_JPRB, 0.143122E+00_JPRB, 0.136230E+00_JPRB &
+  &, 0.129579E+00_JPRB, 0.123192E+00_JPRB, 0.117006E+00_JPRB, 0.111082E+00_JPRB &
+  &, 0.105397E+00_JPRB, 0.999283E-01_JPRB, 0.946477E-01_JPRB &
+  &, 0.896161E-01_JPRB, 0.847605E-01_JPRB, 0.801412E-01_JPRB, 0.757279E-01_JPRB &
+  &, 0.714879E-01_JPRB, 0.674823E-01_JPRB, 0.636284E-01_JPRB &
+  &, 0.599373E-01_JPRB, 0.564205E-01_JPRB, 0.530899E-01_JPRB, 0.499572E-01_JPRB &
+  &, 0.469288E-01_JPRB, 0.440663E-01_JPRB, 0.413798E-01_JPRB &
+  &, 0.387694E-01_JPRB, 0.363529E-01_JPRB, 0.340276E-01_JPRB, 0.318571E-01_JPRB &
+  &, 0.297918E-01_JPRB, 0.278381E-01_JPRB, 0.260026E-01_JPRB &
+  &, 0.242917E-01_JPRB, 0.226508E-01_JPRB, 0.210841E-01_JPRB, 0.196593E-01_JPRB &
+  &, 0.182552E-01_JPRB, 0.170038E-01_JPRB, 0.157807E-01_JPRB/)
+XCW( 618, :) = (/ &
+  &  0.102683E+01_JPRB, 0.103255E+01_JPRB, 0.103787E+01_JPRB, 0.104278E+01_JPRB &
+  &, 0.104728E+01_JPRB, 0.105136E+01_JPRB, 0.105501E+01_JPRB &
+  &, 0.105825E+01_JPRB, 0.106105E+01_JPRB, 0.106343E+01_JPRB, 0.106537E+01_JPRB &
+  &, 0.106687E+01_JPRB, 0.106794E+01_JPRB, 0.106847E+01_JPRB &
+  &, 0.106874E+01_JPRB, 0.106847E+01_JPRB, 0.106776E+01_JPRB, 0.106660E+01_JPRB &
+  &, 0.106499E+01_JPRB, 0.106293E+01_JPRB, 0.106042E+01_JPRB &
+  &, 0.105747E+01_JPRB, 0.105407E+01_JPRB, 0.105022E+01_JPRB, 0.104593E+01_JPRB &
+  &, 0.104120E+01_JPRB, 0.103603E+01_JPRB, 0.103043E+01_JPRB &
+  &, 0.102440E+01_JPRB, 0.101794E+01_JPRB, 0.101106E+01_JPRB, 0.100377E+01_JPRB &
+  &, 0.996067E+00_JPRB, 0.987967E+00_JPRB, 0.979471E+00_JPRB &
+  &, 0.970591E+00_JPRB, 0.961332E+00_JPRB, 0.951706E+00_JPRB, 0.941724E+00_JPRB &
+  &, 0.931394E+00_JPRB, 0.920723E+00_JPRB, 0.909726E+00_JPRB &
+  &, 0.898420E+00_JPRB, 0.886804E+00_JPRB, 0.874902E+00_JPRB, 0.862728E+00_JPRB &
+  &, 0.850289E+00_JPRB, 0.837594E+00_JPRB, 0.824678E+00_JPRB &
+  &, 0.811526E+00_JPRB, 0.798166E+00_JPRB, 0.784626E+00_JPRB, 0.770895E+00_JPRB &
+  &, 0.757004E+00_JPRB, 0.742973E+00_JPRB, 0.728806E+00_JPRB &
+  &, 0.714524E+00_JPRB, 0.700132E+00_JPRB, 0.685668E+00_JPRB, 0.671122E+00_JPRB &
+  &, 0.656533E+00_JPRB, 0.641890E+00_JPRB, 0.627233E+00_JPRB &
+  &, 0.612549E+00_JPRB, 0.597880E+00_JPRB, 0.583230E+00_JPRB, 0.568622E+00_JPRB &
+  &, 0.554059E+00_JPRB, 0.539545E+00_JPRB, 0.525099E+00_JPRB &
+  &, 0.510764E+00_JPRB, 0.496520E+00_JPRB, 0.482387E+00_JPRB, 0.468362E+00_JPRB &
+  &, 0.454485E+00_JPRB, 0.440754E+00_JPRB, 0.427184E+00_JPRB &
+  &, 0.413795E+00_JPRB, 0.400551E+00_JPRB, 0.387518E+00_JPRB, 0.374658E+00_JPRB &
+  &, 0.362037E+00_JPRB, 0.349588E+00_JPRB, 0.337374E+00_JPRB &
+  &, 0.325378E+00_JPRB, 0.313608E+00_JPRB, 0.302101E+00_JPRB, 0.290806E+00_JPRB &
+  &, 0.279755E+00_JPRB, 0.268953E+00_JPRB, 0.258403E+00_JPRB &
+  &, 0.248137E+00_JPRB, 0.238092E+00_JPRB, 0.228330E+00_JPRB, 0.218785E+00_JPRB &
+  &, 0.209550E+00_JPRB, 0.200555E+00_JPRB, 0.191826E+00_JPRB &
+  &, 0.183355E+00_JPRB, 0.175134E+00_JPRB, 0.167188E+00_JPRB, 0.159467E+00_JPRB &
+  &, 0.152032E+00_JPRB, 0.144833E+00_JPRB, 0.137890E+00_JPRB &
+  &, 0.131186E+00_JPRB, 0.124743E+00_JPRB, 0.118499E+00_JPRB, 0.112515E+00_JPRB &
+  &, 0.106768E+00_JPRB, 0.101233E+00_JPRB, 0.959290E-01_JPRB &
+  &, 0.908725E-01_JPRB, 0.859907E-01_JPRB, 0.812978E-01_JPRB, 0.768553E-01_JPRB &
+  &, 0.725846E-01_JPRB, 0.684988E-01_JPRB, 0.646109E-01_JPRB &
+  &, 0.608845E-01_JPRB, 0.573312E-01_JPRB, 0.539626E-01_JPRB, 0.507384E-01_JPRB &
+  &, 0.477214E-01_JPRB, 0.448167E-01_JPRB, 0.420865E-01_JPRB &
+  &, 0.394310E-01_JPRB, 0.369679E-01_JPRB, 0.346512E-01_JPRB, 0.324319E-01_JPRB &
+  &, 0.303163E-01_JPRB, 0.283699E-01_JPRB, 0.264817E-01_JPRB &
+  &, 0.247167E-01_JPRB, 0.230815E-01_JPRB, 0.215206E-01_JPRB, 0.200383E-01_JPRB &
+  &, 0.186393E-01_JPRB, 0.173281E-01_JPRB, 0.161092E-01_JPRB/)
+XCW( 619, :) = (/ &
+  &  0.102710E+01_JPRB, 0.103289E+01_JPRB, 0.103828E+01_JPRB, 0.104325E+01_JPRB &
+  &, 0.104782E+01_JPRB, 0.105197E+01_JPRB, 0.105570E+01_JPRB &
+  &, 0.105900E+01_JPRB, 0.106188E+01_JPRB, 0.106432E+01_JPRB, 0.106633E+01_JPRB &
+  &, 0.106791E+01_JPRB, 0.106904E+01_JPRB, 0.106973E+01_JPRB &
+  &, 0.106998E+01_JPRB, 0.106978E+01_JPRB, 0.106914E+01_JPRB, 0.106805E+01_JPRB &
+  &, 0.106651E+01_JPRB, 0.106452E+01_JPRB, 0.106208E+01_JPRB &
+  &, 0.105919E+01_JPRB, 0.105586E+01_JPRB, 0.105208E+01_JPRB, 0.104785E+01_JPRB &
+  &, 0.104319E+01_JPRB, 0.103808E+01_JPRB, 0.103254E+01_JPRB &
+  &, 0.102657E+01_JPRB, 0.102017E+01_JPRB, 0.101335E+01_JPRB, 0.100612E+01_JPRB &
+  &, 0.998475E+00_JPRB, 0.990427E+00_JPRB, 0.981989E+00_JPRB &
+  &, 0.973158E+00_JPRB, 0.963955E+00_JPRB, 0.954375E+00_JPRB, 0.944441E+00_JPRB &
+  &, 0.934159E+00_JPRB, 0.923537E+00_JPRB, 0.912578E+00_JPRB &
+  &, 0.901311E+00_JPRB, 0.889744E+00_JPRB, 0.877880E+00_JPRB, 0.865745E+00_JPRB &
+  &, 0.853332E+00_JPRB, 0.840674E+00_JPRB, 0.827782E+00_JPRB &
+  &, 0.814653E+00_JPRB, 0.801329E+00_JPRB, 0.787810E+00_JPRB, 0.774099E+00_JPRB &
+  &, 0.760241E+00_JPRB, 0.746213E+00_JPRB, 0.732062E+00_JPRB &
+  &, 0.717794E+00_JPRB, 0.703415E+00_JPRB, 0.688946E+00_JPRB, 0.674409E+00_JPRB &
+  &, 0.659827E+00_JPRB, 0.645189E+00_JPRB, 0.630517E+00_JPRB &
+  &, 0.615834E+00_JPRB, 0.601163E+00_JPRB, 0.586509E+00_JPRB, 0.571876E+00_JPRB &
+  &, 0.557305E+00_JPRB, 0.542779E+00_JPRB, 0.528320E+00_JPRB &
+  &, 0.513948E+00_JPRB, 0.499686E+00_JPRB, 0.485531E+00_JPRB, 0.471481E+00_JPRB &
+  &, 0.457577E+00_JPRB, 0.443815E+00_JPRB, 0.430212E+00_JPRB &
+  &, 0.416786E+00_JPRB, 0.403528E+00_JPRB, 0.390427E+00_JPRB, 0.377547E+00_JPRB &
+  &, 0.364877E+00_JPRB, 0.352376E+00_JPRB, 0.340133E+00_JPRB &
+  &, 0.328079E+00_JPRB, 0.316275E+00_JPRB, 0.304703E+00_JPRB, 0.293368E+00_JPRB &
+  &, 0.282275E+00_JPRB, 0.271427E+00_JPRB, 0.260829E+00_JPRB &
+  &, 0.250480E+00_JPRB, 0.240413E+00_JPRB, 0.230561E+00_JPRB, 0.220988E+00_JPRB &
+  &, 0.211691E+00_JPRB, 0.202663E+00_JPRB, 0.193865E+00_JPRB &
+  &, 0.185323E+00_JPRB, 0.177063E+00_JPRB, 0.169038E+00_JPRB, 0.161310E+00_JPRB &
+  &, 0.153792E+00_JPRB, 0.146544E+00_JPRB, 0.139550E+00_JPRB &
+  &, 0.132793E+00_JPRB, 0.126295E+00_JPRB, 0.120034E+00_JPRB, 0.113990E+00_JPRB &
+  &, 0.108181E+00_JPRB, 0.102582E+00_JPRB, 0.972544E-01_JPRB &
+  &, 0.921289E-01_JPRB, 0.871754E-01_JPRB, 0.824544E-01_JPRB, 0.779356E-01_JPRB &
+  &, 0.736336E-01_JPRB, 0.695152E-01_JPRB, 0.655934E-01_JPRB &
+  &, 0.618318E-01_JPRB, 0.582419E-01_JPRB, 0.548352E-01_JPRB, 0.515717E-01_JPRB &
+  &, 0.485139E-01_JPRB, 0.455670E-01_JPRB, 0.427932E-01_JPRB &
+  &, 0.401478E-01_JPRB, 0.376389E-01_JPRB, 0.352749E-01_JPRB, 0.330068E-01_JPRB &
+  &, 0.308992E-01_JPRB, 0.289016E-01_JPRB, 0.270207E-01_JPRB &
+  &, 0.252023E-01_JPRB, 0.235121E-01_JPRB, 0.219570E-01_JPRB, 0.204174E-01_JPRB &
+  &, 0.190235E-01_JPRB, 0.177173E-01_JPRB, 0.165035E-01_JPRB/)
+XCW( 620, :) = (/ &
+  &  0.102737E+01_JPRB, 0.103322E+01_JPRB, 0.103868E+01_JPRB, 0.104373E+01_JPRB &
+  &, 0.104836E+01_JPRB, 0.105258E+01_JPRB, 0.105638E+01_JPRB &
+  &, 0.105975E+01_JPRB, 0.106270E+01_JPRB, 0.106521E+01_JPRB, 0.106730E+01_JPRB &
+  &, 0.106894E+01_JPRB, 0.107015E+01_JPRB, 0.107091E+01_JPRB &
+  &, 0.107123E+01_JPRB, 0.107110E+01_JPRB, 0.107053E+01_JPRB, 0.106950E+01_JPRB &
+  &, 0.106803E+01_JPRB, 0.106611E+01_JPRB, 0.106374E+01_JPRB &
+  &, 0.106092E+01_JPRB, 0.105765E+01_JPRB, 0.105393E+01_JPRB, 0.104978E+01_JPRB &
+  &, 0.104517E+01_JPRB, 0.104013E+01_JPRB, 0.103465E+01_JPRB &
+  &, 0.102874E+01_JPRB, 0.102241E+01_JPRB, 0.101565E+01_JPRB, 0.100847E+01_JPRB &
+  &, 0.100089E+01_JPRB, 0.992895E+00_JPRB, 0.984511E+00_JPRB &
+  &, 0.975735E+00_JPRB, 0.966577E+00_JPRB, 0.957054E+00_JPRB, 0.947168E+00_JPRB &
+  &, 0.936934E+00_JPRB, 0.926350E+00_JPRB, 0.915441E+00_JPRB &
+  &, 0.904224E+00_JPRB, 0.892685E+00_JPRB, 0.880870E+00_JPRB, 0.868762E+00_JPRB &
+  &, 0.856387E+00_JPRB, 0.843767E+00_JPRB, 0.830899E+00_JPRB &
+  &, 0.817807E+00_JPRB, 0.804505E+00_JPRB, 0.791007E+00_JPRB, 0.777317E+00_JPRB &
+  &, 0.763464E+00_JPRB, 0.749467E+00_JPRB, 0.735332E+00_JPRB &
+  &, 0.721079E+00_JPRB, 0.706713E+00_JPRB, 0.692255E+00_JPRB, 0.677711E+00_JPRB &
+  &, 0.663120E+00_JPRB, 0.648487E+00_JPRB, 0.633818E+00_JPRB &
+  &, 0.619137E+00_JPRB, 0.604465E+00_JPRB, 0.589789E+00_JPRB, 0.575150E+00_JPRB &
+  &, 0.560551E+00_JPRB, 0.546014E+00_JPRB, 0.531542E+00_JPRB &
+  &, 0.517154E+00_JPRB, 0.502872E+00_JPRB, 0.488674E+00_JPRB, 0.474622E+00_JPRB &
+  &, 0.460691E+00_JPRB, 0.446899E+00_JPRB, 0.433264E+00_JPRB &
+  &, 0.419802E+00_JPRB, 0.406480E+00_JPRB, 0.393387E+00_JPRB, 0.380437E+00_JPRB &
+  &, 0.367718E+00_JPRB, 0.355218E+00_JPRB, 0.342893E+00_JPRB &
+  &, 0.330808E+00_JPRB, 0.318971E+00_JPRB, 0.307334E+00_JPRB, 0.295959E+00_JPRB &
+  &, 0.284824E+00_JPRB, 0.273902E+00_JPRB, 0.263255E+00_JPRB &
+  &, 0.252886E+00_JPRB, 0.242733E+00_JPRB, 0.232858E+00_JPRB, 0.223226E+00_JPRB &
+  &, 0.213865E+00_JPRB, 0.204772E+00_JPRB, 0.195940E+00_JPRB &
+  &, 0.187326E+00_JPRB, 0.179027E+00_JPRB, 0.170962E+00_JPRB, 0.163154E+00_JPRB &
+  &, 0.155590E+00_JPRB, 0.148294E+00_JPRB, 0.141250E+00_JPRB &
+  &, 0.134441E+00_JPRB, 0.127887E+00_JPRB, 0.121528E+00_JPRB, 0.115465E+00_JPRB &
+  &, 0.109594E+00_JPRB, 0.103974E+00_JPRB, 0.985799E-01_JPRB &
+  &, 0.933853E-01_JPRB, 0.884057E-01_JPRB, 0.836573E-01_JPRB, 0.791099E-01_JPRB &
+  &, 0.747304E-01_JPRB, 0.705800E-01_JPRB, 0.665759E-01_JPRB &
+  &, 0.627791E-01_JPRB, 0.591525E-01_JPRB, 0.557079E-01_JPRB, 0.524050E-01_JPRB &
+  &, 0.493065E-01_JPRB, 0.463174E-01_JPRB, 0.434999E-01_JPRB &
+  &, 0.408094E-01_JPRB, 0.383098E-01_JPRB, 0.358985E-01_JPRB, 0.336391E-01_JPRB &
+  &, 0.314820E-01_JPRB, 0.294334E-01_JPRB, 0.274999E-01_JPRB &
+  &, 0.256879E-01_JPRB, 0.240043E-01_JPRB, 0.223934E-01_JPRB, 0.208597E-01_JPRB &
+  &, 0.194076E-01_JPRB, 0.181064E-01_JPRB, 0.168320E-01_JPRB/)
+XCW( 621, :) = (/ &
+  &  0.102763E+01_JPRB, 0.103356E+01_JPRB, 0.103908E+01_JPRB, 0.104420E+01_JPRB &
+  &, 0.104890E+01_JPRB, 0.105319E+01_JPRB, 0.105706E+01_JPRB &
+  &, 0.106051E+01_JPRB, 0.106352E+01_JPRB, 0.106611E+01_JPRB, 0.106826E+01_JPRB &
+  &, 0.106997E+01_JPRB, 0.107125E+01_JPRB, 0.107208E+01_JPRB &
+  &, 0.107247E+01_JPRB, 0.107242E+01_JPRB, 0.107191E+01_JPRB, 0.107096E+01_JPRB &
+  &, 0.106955E+01_JPRB, 0.106770E+01_JPRB, 0.106540E+01_JPRB &
+  &, 0.106265E+01_JPRB, 0.105944E+01_JPRB, 0.105579E+01_JPRB, 0.105170E+01_JPRB &
+  &, 0.104716E+01_JPRB, 0.104218E+01_JPRB, 0.103677E+01_JPRB &
+  &, 0.103092E+01_JPRB, 0.102464E+01_JPRB, 0.101795E+01_JPRB, 0.101083E+01_JPRB &
+  &, 0.100330E+01_JPRB, 0.995368E+00_JPRB, 0.987037E+00_JPRB &
+  &, 0.978320E+00_JPRB, 0.969209E+00_JPRB, 0.959743E+00_JPRB, 0.949905E+00_JPRB &
+  &, 0.939709E+00_JPRB, 0.929185E+00_JPRB, 0.918315E+00_JPRB &
+  &, 0.907136E+00_JPRB, 0.895647E+00_JPRB, 0.883861E+00_JPRB, 0.871790E+00_JPRB &
+  &, 0.859454E+00_JPRB, 0.846859E+00_JPRB, 0.834029E+00_JPRB &
+  &, 0.820961E+00_JPRB, 0.807681E+00_JPRB, 0.794205E+00_JPRB, 0.780549E+00_JPRB &
+  &, 0.766715E+00_JPRB, 0.752737E+00_JPRB, 0.738618E+00_JPRB &
+  &, 0.724365E+00_JPRB, 0.710012E+00_JPRB, 0.695565E+00_JPRB, 0.681031E+00_JPRB &
+  &, 0.666447E+00_JPRB, 0.651820E+00_JPRB, 0.637138E+00_JPRB &
+  &, 0.622457E+00_JPRB, 0.607767E+00_JPRB, 0.593088E+00_JPRB, 0.578443E+00_JPRB &
+  &, 0.563836E+00_JPRB, 0.549290E+00_JPRB, 0.534784E+00_JPRB &
+  &, 0.520380E+00_JPRB, 0.506081E+00_JPRB, 0.491861E+00_JPRB, 0.477763E+00_JPRB &
+  &, 0.463806E+00_JPRB, 0.449984E+00_JPRB, 0.436316E+00_JPRB &
+  &, 0.422818E+00_JPRB, 0.409482E+00_JPRB, 0.396322E+00_JPRB, 0.383377E+00_JPRB &
+  &, 0.370611E+00_JPRB, 0.358033E+00_JPRB, 0.345681E+00_JPRB &
+  &, 0.333565E+00_JPRB, 0.321667E+00_JPRB, 0.309993E+00_JPRB, 0.298550E+00_JPRB &
+  &, 0.287373E+00_JPRB, 0.276406E+00_JPRB, 0.265712E+00_JPRB &
+  &, 0.255261E+00_JPRB, 0.245086E+00_JPRB, 0.235155E+00_JPRB, 0.225463E+00_JPRB &
+  &, 0.216074E+00_JPRB, 0.206916E+00_JPRB, 0.198015E+00_JPRB &
+  &, 0.189366E+00_JPRB, 0.180992E+00_JPRB, 0.172886E+00_JPRB, 0.164997E+00_JPRB &
+  &, 0.157388E+00_JPRB, 0.150044E+00_JPRB, 0.142950E+00_JPRB &
+  &, 0.136088E+00_JPRB, 0.129479E+00_JPRB, 0.123104E+00_JPRB, 0.116941E+00_JPRB &
+  &, 0.111050E+00_JPRB, 0.105366E+00_JPRB, 0.999053E-01_JPRB &
+  &, 0.946865E-01_JPRB, 0.896359E-01_JPRB, 0.848602E-01_JPRB, 0.802372E-01_JPRB &
+  &, 0.758271E-01_JPRB, 0.715965E-01_JPRB, 0.676076E-01_JPRB &
+  &, 0.637264E-01_JPRB, 0.600632E-01_JPRB, 0.565806E-01_JPRB, 0.532904E-01_JPRB &
+  &, 0.500990E-01_JPRB, 0.471213E-01_JPRB, 0.442610E-01_JPRB &
+  &, 0.415261E-01_JPRB, 0.389808E-01_JPRB, 0.365222E-01_JPRB, 0.342140E-01_JPRB &
+  &, 0.320648E-01_JPRB, 0.299651E-01_JPRB, 0.280389E-01_JPRB &
+  &, 0.261736E-01_JPRB, 0.244350E-01_JPRB, 0.228299E-01_JPRB, 0.212388E-01_JPRB &
+  &, 0.197917E-01_JPRB, 0.184307E-01_JPRB, 0.171606E-01_JPRB/)
+XCW( 622, :) = (/ &
+  &  0.102790E+01_JPRB, 0.103390E+01_JPRB, 0.103949E+01_JPRB, 0.104467E+01_JPRB &
+  &, 0.104945E+01_JPRB, 0.105381E+01_JPRB, 0.105774E+01_JPRB &
+  &, 0.106126E+01_JPRB, 0.106435E+01_JPRB, 0.106700E+01_JPRB, 0.106923E+01_JPRB &
+  &, 0.107101E+01_JPRB, 0.107236E+01_JPRB, 0.107326E+01_JPRB &
+  &, 0.107372E+01_JPRB, 0.107373E+01_JPRB, 0.107330E+01_JPRB, 0.107241E+01_JPRB &
+  &, 0.107108E+01_JPRB, 0.106929E+01_JPRB, 0.106706E+01_JPRB &
+  &, 0.106438E+01_JPRB, 0.106124E+01_JPRB, 0.105766E+01_JPRB, 0.105363E+01_JPRB &
+  &, 0.104916E+01_JPRB, 0.104424E+01_JPRB, 0.103887E+01_JPRB &
+  &, 0.103311E+01_JPRB, 0.102689E+01_JPRB, 0.102026E+01_JPRB, 0.101320E+01_JPRB &
+  &, 0.100573E+01_JPRB, 0.997850E+00_JPRB, 0.989573E+00_JPRB &
+  &, 0.980906E+00_JPRB, 0.971860E+00_JPRB, 0.962432E+00_JPRB, 0.952642E+00_JPRB &
+  &, 0.942505E+00_JPRB, 0.932020E+00_JPRB, 0.921200E+00_JPRB &
+  &, 0.910060E+00_JPRB, 0.898610E+00_JPRB, 0.886862E+00_JPRB, 0.874831E+00_JPRB &
+  &, 0.862533E+00_JPRB, 0.849964E+00_JPRB, 0.837158E+00_JPRB &
+  &, 0.824127E+00_JPRB, 0.810884E+00_JPRB, 0.797431E+00_JPRB, 0.783795E+00_JPRB &
+  &, 0.769981E+00_JPRB, 0.756006E+00_JPRB, 0.741904E+00_JPRB &
+  &, 0.727665E+00_JPRB, 0.713326E+00_JPRB, 0.698891E+00_JPRB, 0.684367E+00_JPRB &
+  &, 0.669248E+00_JPRB, 0.655153E+00_JPRB, 0.640475E+00_JPRB &
+  &, 0.625796E+00_JPRB, 0.611105E+00_JPRB, 0.596405E+00_JPRB, 0.581755E+00_JPRB &
+  &, 0.567122E+00_JPRB, 0.552565E+00_JPRB, 0.538046E+00_JPRB &
+  &, 0.523628E+00_JPRB, 0.509289E+00_JPRB, 0.495071E+00_JPRB, 0.480949E+00_JPRB &
+  &, 0.466966E+00_JPRB, 0.453115E+00_JPRB, 0.439415E+00_JPRB &
+  &, 0.425858E+00_JPRB, 0.412508E+00_JPRB, 0.399307E+00_JPRB, 0.386292E+00_JPRB &
+  &, 0.373504E+00_JPRB, 0.360902E+00_JPRB, 0.348495E+00_JPRB &
+  &, 0.336322E+00_JPRB, 0.324391E+00_JPRB, 0.312682E+00_JPRB, 0.301171E+00_JPRB &
+  &, 0.289953E+00_JPRB, 0.278941E+00_JPRB, 0.268200E+00_JPRB &
+  &, 0.257699E+00_JPRB, 0.247472E+00_JPRB, 0.237484E+00_JPRB, 0.227733E+00_JPRB &
+  &, 0.218282E+00_JPRB, 0.209059E+00_JPRB, 0.200091E+00_JPRB &
+  &, 0.191405E+00_JPRB, 0.182993E+00_JPRB, 0.174810E+00_JPRB, 0.166879E+00_JPRB &
+  &, 0.159224E+00_JPRB, 0.151833E+00_JPRB, 0.144649E+00_JPRB &
+  &, 0.137735E+00_JPRB, 0.131072E+00_JPRB, 0.124639E+00_JPRB, 0.118458E+00_JPRB &
+  &, 0.112506E+00_JPRB, 0.106758E+00_JPRB, 0.101275E+00_JPRB &
+  &, 0.959877E-01_JPRB, 0.909117E-01_JPRB, 0.860631E-01_JPRB, 0.814115E-01_JPRB &
+  &, 0.769238E-01_JPRB, 0.727097E-01_JPRB, 0.686392E-01_JPRB &
+  &, 0.647235E-01_JPRB, 0.610245E-01_JPRB, 0.575046E-01_JPRB, 0.541238E-01_JPRB &
+  &, 0.509444E-01_JPRB, 0.478717E-01_JPRB, 0.450221E-01_JPRB &
+  &, 0.422429E-01_JPRB, 0.396517E-01_JPRB, 0.372025E-01_JPRB, 0.348463E-01_JPRB &
+  &, 0.326476E-01_JPRB, 0.305560E-01_JPRB, 0.285779E-01_JPRB &
+  &, 0.266592E-01_JPRB, 0.249272E-01_JPRB, 0.232663E-01_JPRB, 0.216811E-01_JPRB &
+  &, 0.202398E-01_JPRB, 0.188199E-01_JPRB, 0.175549E-01_JPRB/)
+XCW( 623, :) = (/ &
+  &  0.102817E+01_JPRB, 0.103423E+01_JPRB, 0.103990E+01_JPRB, 0.104515E+01_JPRB &
+  &, 0.104999E+01_JPRB, 0.105442E+01_JPRB, 0.105843E+01_JPRB &
+  &, 0.106201E+01_JPRB, 0.106517E+01_JPRB, 0.106790E+01_JPRB, 0.107019E+01_JPRB &
+  &, 0.107205E+01_JPRB, 0.107347E+01_JPRB, 0.107444E+01_JPRB &
+  &, 0.107497E+01_JPRB, 0.107505E+01_JPRB, 0.107469E+01_JPRB, 0.107388E+01_JPRB &
+  &, 0.107261E+01_JPRB, 0.107089E+01_JPRB, 0.106873E+01_JPRB &
+  &, 0.106611E+01_JPRB, 0.106304E+01_JPRB, 0.105953E+01_JPRB, 0.105557E+01_JPRB &
+  &, 0.105116E+01_JPRB, 0.104631E+01_JPRB, 0.104102E+01_JPRB &
+  &, 0.103530E+01_JPRB, 0.102915E+01_JPRB, 0.102257E+01_JPRB, 0.101557E+01_JPRB &
+  &, 0.100816E+01_JPRB, 0.100034E+01_JPRB, 0.992117E+00_JPRB &
+  &, 0.983501E+00_JPRB, 0.974502E+00_JPRB, 0.965131E+00_JPRB, 0.955399E+00_JPRB &
+  &, 0.945301E+00_JPRB, 0.934865E+00_JPRB, 0.924084E+00_JPRB &
+  &, 0.912995E+00_JPRB, 0.901584E+00_JPRB, 0.889876E+00_JPRB, 0.877883E+00_JPRB &
+  &, 0.865612E+00_JPRB, 0.853082E+00_JPRB, 0.840314E+00_JPRB &
+  &, 0.827307E+00_JPRB, 0.814088E+00_JPRB, 0.800656E+00_JPRB, 0.787041E+00_JPRB &
+  &, 0.773247E+00_JPRB, 0.759305E+00_JPRB, 0.745205E+00_JPRB &
+  &, 0.730997E+00_JPRB, 0.716656E+00_JPRB, 0.702233E+00_JPRB, 0.687719E+00_JPRB &
+  &, 0.673135E+00_JPRB, 0.658504E+00_JPRB, 0.643829E+00_JPRB &
+  &, 0.629135E+00_JPRB, 0.614444E+00_JPRB, 0.599742E+00_JPRB, 0.585068E+00_JPRB &
+  &, 0.570447E+00_JPRB, 0.555860E+00_JPRB, 0.541330E+00_JPRB &
+  &, 0.526897E+00_JPRB, 0.512540E+00_JPRB, 0.498280E+00_JPRB, 0.484136E+00_JPRB &
+  &, 0.470126E+00_JPRB, 0.456247E+00_JPRB, 0.442515E+00_JPRB &
+  &, 0.428947E+00_JPRB, 0.415535E+00_JPRB, 0.402292E+00_JPRB, 0.389259E+00_JPRB &
+  &, 0.376423E+00_JPRB, 0.363770E+00_JPRB, 0.351337E+00_JPRB &
+  &, 0.339106E+00_JPRB, 0.327114E+00_JPRB, 0.315370E+00_JPRB, 0.303822E+00_JPRB &
+  &, 0.292532E+00_JPRB, 0.281507E+00_JPRB, 0.270688E+00_JPRB &
+  &, 0.260138E+00_JPRB, 0.249857E+00_JPRB, 0.239814E+00_JPRB, 0.230037E+00_JPRB &
+  &, 0.220491E+00_JPRB, 0.211237E+00_JPRB, 0.202236E+00_JPRB &
+  &, 0.193480E+00_JPRB, 0.184995E+00_JPRB, 0.176771E+00_JPRB, 0.168798E+00_JPRB &
+  &, 0.161060E+00_JPRB, 0.153622E+00_JPRB, 0.146389E+00_JPRB &
+  &, 0.139422E+00_JPRB, 0.132705E+00_JPRB, 0.126216E+00_JPRB, 0.119976E+00_JPRB &
+  &, 0.113962E+00_JPRB, 0.108193E+00_JPRB, 0.102645E+00_JPRB &
+  &, 0.972890E-01_JPRB, 0.921875E-01_JPRB, 0.872660E-01_JPRB, 0.825858E-01_JPRB &
+  &, 0.780682E-01_JPRB, 0.737746E-01_JPRB, 0.696709E-01_JPRB &
+  &, 0.657206E-01_JPRB, 0.619857E-01_JPRB, 0.584287E-01_JPRB, 0.550092E-01_JPRB &
+  &, 0.517898E-01_JPRB, 0.486756E-01_JPRB, 0.457831E-01_JPRB &
+  &, 0.429596E-01_JPRB, 0.403226E-01_JPRB, 0.378262E-01_JPRB, 0.354787E-01_JPRB &
+  &, 0.332304E-01_JPRB, 0.310877E-01_JPRB, 0.291169E-01_JPRB &
+  &, 0.272055E-01_JPRB, 0.254194E-01_JPRB, 0.237028E-01_JPRB, 0.221233E-01_JPRB &
+  &, 0.206239E-01_JPRB, 0.192091E-01_JPRB, 0.178834E-01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART89',1,ZHOOK_HANDLE)
+END SUBROUTINE PART89
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART90
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART90',0,ZHOOK_HANDLE)
+
+XCW( 624, :) = (/ &
+  &  0.102844E+01_JPRB, 0.103457E+01_JPRB, 0.104030E+01_JPRB, 0.104562E+01_JPRB &
+  &, 0.105054E+01_JPRB, 0.105504E+01_JPRB, 0.105912E+01_JPRB &
+  &, 0.106277E+01_JPRB, 0.106600E+01_JPRB, 0.106880E+01_JPRB, 0.107116E+01_JPRB &
+  &, 0.107309E+01_JPRB, 0.107458E+01_JPRB, 0.107562E+01_JPRB &
+  &, 0.107622E+01_JPRB, 0.107638E+01_JPRB, 0.107608E+01_JPRB, 0.107534E+01_JPRB &
+  &, 0.107414E+01_JPRB, 0.107250E+01_JPRB, 0.107040E+01_JPRB &
+  &, 0.106785E+01_JPRB, 0.106485E+01_JPRB, 0.106140E+01_JPRB, 0.105751E+01_JPRB &
+  &, 0.105316E+01_JPRB, 0.104838E+01_JPRB, 0.104316E+01_JPRB &
+  &, 0.103749E+01_JPRB, 0.103140E+01_JPRB, 0.102489E+01_JPRB, 0.101795E+01_JPRB &
+  &, 0.101059E+01_JPRB, 0.100282E+01_JPRB, 0.994667E+00_JPRB &
+  &, 0.986105E+00_JPRB, 0.977163E+00_JPRB, 0.967840E+00_JPRB, 0.958156E+00_JPRB &
+  &, 0.948107E+00_JPRB, 0.937710E+00_JPRB, 0.926990E+00_JPRB &
+  &, 0.915929E+00_JPRB, 0.904558E+00_JPRB, 0.892901E+00_JPRB, 0.880936E+00_JPRB &
+  &, 0.868703E+00_JPRB, 0.856211E+00_JPRB, 0.843469E+00_JPRB &
+  &, 0.830500E+00_JPRB, 0.817304E+00_JPRB, 0.803895E+00_JPRB, 0.790302E+00_JPRB &
+  &, 0.776542E+00_JPRB, 0.762604E+00_JPRB, 0.748537E+00_JPRB &
+  &, 0.734329E+00_JPRB, 0.720002E+00_JPRB, 0.705576E+00_JPRB, 0.691072E+00_JPRB &
+  &, 0.676496E+00_JPRB, 0.661871E+00_JPRB, 0.647202E+00_JPRB &
+  &, 0.632492E+00_JPRB, 0.617802E+00_JPRB, 0.603097E+00_JPRB, 0.588419E+00_JPRB &
+  &, 0.573772E+00_JPRB, 0.559176E+00_JPRB, 0.544634E+00_JPRB &
+  &, 0.530165E+00_JPRB, 0.515792E+00_JPRB, 0.501512E+00_JPRB, 0.487344E+00_JPRB &
+  &, 0.473309E+00_JPRB, 0.459401E+00_JPRB, 0.445638E+00_JPRB &
+  &, 0.432036E+00_JPRB, 0.418586E+00_JPRB, 0.405328E+00_JPRB, 0.392226E+00_JPRB &
+  &, 0.379343E+00_JPRB, 0.366666E+00_JPRB, 0.354179E+00_JPRB &
+  &, 0.341919E+00_JPRB, 0.329895E+00_JPRB, 0.318087E+00_JPRB, 0.306501E+00_JPRB &
+  &, 0.295172E+00_JPRB, 0.284073E+00_JPRB, 0.273207E+00_JPRB &
+  &, 0.262608E+00_JPRB, 0.252275E+00_JPRB, 0.242176E+00_JPRB, 0.232341E+00_JPRB &
+  &, 0.222733E+00_JPRB, 0.213415E+00_JPRB, 0.204381E+00_JPRB &
+  &, 0.195555E+00_JPRB, 0.187032E+00_JPRB, 0.178732E+00_JPRB, 0.170717E+00_JPRB &
+  &, 0.162935E+00_JPRB, 0.155411E+00_JPRB, 0.148168E+00_JPRB &
+  &, 0.141110E+00_JPRB, 0.134338E+00_JPRB, 0.127834E+00_JPRB, 0.121535E+00_JPRB &
+  &, 0.115461E+00_JPRB, 0.109629E+00_JPRB, 0.104014E+00_JPRB &
+  &, 0.986351E-01_JPRB, 0.934633E-01_JPRB, 0.885152E-01_JPRB, 0.837601E-01_JPRB &
+  &, 0.792126E-01_JPRB, 0.748878E-01_JPRB, 0.707025E-01_JPRB &
+  &, 0.667676E-01_JPRB, 0.629470E-01_JPRB, 0.593527E-01_JPRB, 0.558946E-01_JPRB &
+  &, 0.526352E-01_JPRB, 0.494796E-01_JPRB, 0.465442E-01_JPRB &
+  &, 0.437315E-01_JPRB, 0.410495E-01_JPRB, 0.385065E-01_JPRB, 0.361110E-01_JPRB &
+  &, 0.338132E-01_JPRB, 0.316785E-01_JPRB, 0.296559E-01_JPRB &
+  &, 0.276912E-01_JPRB, 0.259116E-01_JPRB, 0.242016E-01_JPRB, 0.225656E-01_JPRB &
+  &, 0.210720E-01_JPRB, 0.195983E-01_JPRB, 0.182777E-01_JPRB/)
+XCW( 625, :) = (/ &
+  &  0.102871E+01_JPRB, 0.103491E+01_JPRB, 0.104071E+01_JPRB, 0.104610E+01_JPRB &
+  &, 0.105108E+01_JPRB, 0.105565E+01_JPRB, 0.105980E+01_JPRB &
+  &, 0.106353E+01_JPRB, 0.106683E+01_JPRB, 0.106970E+01_JPRB, 0.107213E+01_JPRB &
+  &, 0.107413E+01_JPRB, 0.107569E+01_JPRB, 0.107680E+01_JPRB &
+  &, 0.107748E+01_JPRB, 0.107770E+01_JPRB, 0.107748E+01_JPRB, 0.107680E+01_JPRB &
+  &, 0.107568E+01_JPRB, 0.107410E+01_JPRB, 0.107207E+01_JPRB &
+  &, 0.106959E+01_JPRB, 0.106666E+01_JPRB, 0.106328E+01_JPRB, 0.105945E+01_JPRB &
+  &, 0.105517E+01_JPRB, 0.105045E+01_JPRB, 0.104529E+01_JPRB &
+  &, 0.103970E+01_JPRB, 0.103367E+01_JPRB, 0.102721E+01_JPRB, 0.102033E+01_JPRB &
+  &, 0.101303E+01_JPRB, 0.100533E+01_JPRB, 0.997220E+00_JPRB &
+  &, 0.988719E+00_JPRB, 0.979824E+00_JPRB, 0.970558E+00_JPRB, 0.960913E+00_JPRB &
+  &, 0.950923E+00_JPRB, 0.940577E+00_JPRB, 0.929896E+00_JPRB &
+  &, 0.918875E+00_JPRB, 0.907555E+00_JPRB, 0.895926E+00_JPRB, 0.884012E+00_JPRB &
+  &, 0.871807E+00_JPRB, 0.859354E+00_JPRB, 0.846637E+00_JPRB &
+  &, 0.833693E+00_JPRB, 0.820521E+00_JPRB, 0.807148E+00_JPRB, 0.793576E+00_JPRB &
+  &, 0.779837E+00_JPRB, 0.765918E+00_JPRB, 0.751868E+00_JPRB &
+  &, 0.737677E+00_JPRB, 0.723364E+00_JPRB, 0.708950E+00_JPRB, 0.694441E+00_JPRB &
+  &, 0.679875E+00_JPRB, 0.665239E+00_JPRB, 0.650575E+00_JPRB &
+  &, 0.635886E+00_JPRB, 0.621177E+00_JPRB, 0.606471E+00_JPRB, 0.591771E+00_JPRB &
+  &, 0.577117E+00_JPRB, 0.562492E+00_JPRB, 0.547938E+00_JPRB &
+  &, 0.533455E+00_JPRB, 0.519064E+00_JPRB, 0.504765E+00_JPRB, 0.490575E+00_JPRB &
+  &, 0.476492E+00_JPRB, 0.462556E+00_JPRB, 0.448761E+00_JPRB &
+  &, 0.435125E+00_JPRB, 0.421662E+00_JPRB, 0.408364E+00_JPRB, 0.395244E+00_JPRB &
+  &, 0.382315E+00_JPRB, 0.369588E+00_JPRB, 0.357048E+00_JPRB &
+  &, 0.344759E+00_JPRB, 0.332676E+00_JPRB, 0.320805E+00_JPRB, 0.309181E+00_JPRB &
+  &, 0.297781E+00_JPRB, 0.286639E+00_JPRB, 0.275758E+00_JPRB &
+  &, 0.265077E+00_JPRB, 0.254692E+00_JPRB, 0.244538E+00_JPRB, 0.234645E+00_JPRB &
+  &, 0.225010E+00_JPRB, 0.215593E+00_JPRB, 0.206527E+00_JPRB &
+  &, 0.197665E+00_JPRB, 0.189070E+00_JPRB, 0.180730E+00_JPRB, 0.172635E+00_JPRB &
+  &, 0.164809E+00_JPRB, 0.157238E+00_JPRB, 0.149907E+00_JPRB &
+  &, 0.142837E+00_JPRB, 0.136012E+00_JPRB, 0.129410E+00_JPRB, 0.123095E+00_JPRB &
+  &, 0.116959E+00_JPRB, 0.111064E+00_JPRB, 0.105428E+00_JPRB &
+  &, 0.999812E-01_JPRB, 0.947847E-01_JPRB, 0.897643E-01_JPRB, 0.849813E-01_JPRB &
+  &, 0.804047E-01_JPRB, 0.760011E-01_JPRB, 0.717833E-01_JPRB &
+  &, 0.677647E-01_JPRB, 0.639588E-01_JPRB, 0.602767E-01_JPRB, 0.567800E-01_JPRB &
+  &, 0.534806E-01_JPRB, 0.503371E-01_JPRB, 0.473053E-01_JPRB &
+  &, 0.444482E-01_JPRB, 0.417764E-01_JPRB, 0.391869E-01_JPRB, 0.367434E-01_JPRB &
+  &, 0.344543E-01_JPRB, 0.322694E-01_JPRB, 0.301949E-01_JPRB &
+  &, 0.282375E-01_JPRB, 0.264038E-01_JPRB, 0.246380E-01_JPRB, 0.230079E-01_JPRB &
+  &, 0.214562E-01_JPRB, 0.199874E-01_JPRB, 0.186720E-01_JPRB/)
+XCW( 626, :) = (/ &
+  &  0.102898E+01_JPRB, 0.103525E+01_JPRB, 0.104112E+01_JPRB, 0.104658E+01_JPRB &
+  &, 0.105163E+01_JPRB, 0.105627E+01_JPRB, 0.106049E+01_JPRB &
+  &, 0.106429E+01_JPRB, 0.106766E+01_JPRB, 0.107060E+01_JPRB, 0.107310E+01_JPRB &
+  &, 0.107517E+01_JPRB, 0.107680E+01_JPRB, 0.107799E+01_JPRB &
+  &, 0.107873E+01_JPRB, 0.107903E+01_JPRB, 0.107887E+01_JPRB, 0.107827E+01_JPRB &
+  &, 0.107721E+01_JPRB, 0.107571E+01_JPRB, 0.107375E+01_JPRB &
+  &, 0.107134E+01_JPRB, 0.106847E+01_JPRB, 0.106516E+01_JPRB, 0.106139E+01_JPRB &
+  &, 0.105718E+01_JPRB, 0.105253E+01_JPRB, 0.104743E+01_JPRB &
+  &, 0.104190E+01_JPRB, 0.103593E+01_JPRB, 0.102954E+01_JPRB, 0.102272E+01_JPRB &
+  &, 0.101548E+01_JPRB, 0.100784E+01_JPRB, 0.999783E+00_JPRB &
+  &, 0.991333E+00_JPRB, 0.982494E+00_JPRB, 0.973276E+00_JPRB, 0.963690E+00_JPRB &
+  &, 0.953740E+00_JPRB, 0.943443E+00_JPRB, 0.932802E+00_JPRB &
+  &, 0.921843E+00_JPRB, 0.910552E+00_JPRB, 0.898963E+00_JPRB, 0.887089E+00_JPRB &
+  &, 0.874923E+00_JPRB, 0.862497E+00_JPRB, 0.849818E+00_JPRB &
+  &, 0.836912E+00_JPRB, 0.823764E+00_JPRB, 0.810415E+00_JPRB, 0.796865E+00_JPRB &
+  &, 0.783146E+00_JPRB, 0.769247E+00_JPRB, 0.755214E+00_JPRB &
+  &, 0.741024E+00_JPRB, 0.726726E+00_JPRB, 0.712325E+00_JPRB, 0.697844E+00_JPRB &
+  &, 0.683270E+00_JPRB, 0.668642E+00_JPRB, 0.653965E+00_JPRB &
+  &, 0.639279E+00_JPRB, 0.624553E+00_JPRB, 0.609846E+00_JPRB, 0.595141E+00_JPRB &
+  &, 0.580481E+00_JPRB, 0.565848E+00_JPRB, 0.551283E+00_JPRB &
+  &, 0.536766E+00_JPRB, 0.522359E+00_JPRB, 0.508040E+00_JPRB, 0.493807E+00_JPRB &
+  &, 0.479721E+00_JPRB, 0.465757E+00_JPRB, 0.451932E+00_JPRB &
+  &, 0.438262E+00_JPRB, 0.424738E+00_JPRB, 0.411400E+00_JPRB, 0.398262E+00_JPRB &
+  &, 0.385287E+00_JPRB, 0.372510E+00_JPRB, 0.359945E+00_JPRB &
+  &, 0.347600E+00_JPRB, 0.335457E+00_JPRB, 0.323551E+00_JPRB, 0.311890E+00_JPRB &
+  &, 0.300450E+00_JPRB, 0.289265E+00_JPRB, 0.278308E+00_JPRB &
+  &, 0.267611E+00_JPRB, 0.257142E+00_JPRB, 0.246933E+00_JPRB, 0.236982E+00_JPRB &
+  &, 0.227320E+00_JPRB, 0.217874E+00_JPRB, 0.208707E+00_JPRB &
+  &, 0.199812E+00_JPRB, 0.191144E+00_JPRB, 0.182766E+00_JPRB, 0.174592E+00_JPRB &
+  &, 0.166722E+00_JPRB, 0.159105E+00_JPRB, 0.151725E+00_JPRB &
+  &, 0.144605E+00_JPRB, 0.137686E+00_JPRB, 0.131070E+00_JPRB, 0.124655E+00_JPRB &
+  &, 0.118501E+00_JPRB, 0.112543E+00_JPRB, 0.106842E+00_JPRB &
+  &, 0.101372E+00_JPRB, 0.961061E-01_JPRB, 0.910598E-01_JPRB, 0.862026E-01_JPRB &
+  &, 0.815491E-01_JPRB, 0.771143E-01_JPRB, 0.728641E-01_JPRB &
+  &, 0.688117E-01_JPRB, 0.649201E-01_JPRB, 0.612521E-01_JPRB, 0.577174E-01_JPRB &
+  &, 0.543788E-01_JPRB, 0.511411E-01_JPRB, 0.481207E-01_JPRB &
+  &, 0.452201E-01_JPRB, 0.425032E-01_JPRB, 0.398672E-01_JPRB, 0.374332E-01_JPRB &
+  &, 0.350954E-01_JPRB, 0.328602E-01_JPRB, 0.307339E-01_JPRB &
+  &, 0.287839E-01_JPRB, 0.268959E-01_JPRB, 0.251368E-01_JPRB, 0.234501E-01_JPRB &
+  &, 0.219043E-01_JPRB, 0.204415E-01_JPRB, 0.190005E-01_JPRB/)
+XCW( 627, :) = (/ &
+  &  0.102925E+01_JPRB, 0.103558E+01_JPRB, 0.104152E+01_JPRB, 0.104705E+01_JPRB &
+  &, 0.105218E+01_JPRB, 0.105689E+01_JPRB, 0.106118E+01_JPRB &
+  &, 0.106505E+01_JPRB, 0.106848E+01_JPRB, 0.107150E+01_JPRB, 0.107408E+01_JPRB &
+  &, 0.107622E+01_JPRB, 0.107792E+01_JPRB, 0.107917E+01_JPRB &
+  &, 0.107999E+01_JPRB, 0.108036E+01_JPRB, 0.108027E+01_JPRB, 0.107974E+01_JPRB &
+  &, 0.107875E+01_JPRB, 0.107731E+01_JPRB, 0.107543E+01_JPRB &
+  &, 0.107308E+01_JPRB, 0.107029E+01_JPRB, 0.106704E+01_JPRB, 0.106335E+01_JPRB &
+  &, 0.105920E+01_JPRB, 0.105461E+01_JPRB, 0.104958E+01_JPRB &
+  &, 0.104411E+01_JPRB, 0.103821E+01_JPRB, 0.103187E+01_JPRB, 0.102511E+01_JPRB &
+  &, 0.101794E+01_JPRB, 0.101034E+01_JPRB, 0.100235E+01_JPRB &
+  &, 0.993956E+00_JPRB, 0.985174E+00_JPRB, 0.976005E+00_JPRB, 0.966467E+00_JPRB &
+  &, 0.956577E+00_JPRB, 0.946320E+00_JPRB, 0.935730E+00_JPRB &
+  &, 0.924811E+00_JPRB, 0.913560E+00_JPRB, 0.902023E+00_JPRB, 0.890177E+00_JPRB &
+  &, 0.878051E+00_JPRB, 0.865664E+00_JPRB, 0.853012E+00_JPRB &
+  &, 0.840132E+00_JPRB, 0.827021E+00_JPRB, 0.813695E+00_JPRB, 0.800168E+00_JPRB &
+  &, 0.786470E+00_JPRB, 0.772590E+00_JPRB, 0.758561E+00_JPRB &
+  &, 0.744402E+00_JPRB, 0.730119E+00_JPRB, 0.715716E+00_JPRB, 0.701246E+00_JPRB &
+  &, 0.686682E+00_JPRB, 0.672062E+00_JPRB, 0.657391E+00_JPRB &
+  &, 0.642546E+00_JPRB, 0.627966E+00_JPRB, 0.613239E+00_JPRB, 0.598531E+00_JPRB &
+  &, 0.583846E+00_JPRB, 0.569204E+00_JPRB, 0.554628E+00_JPRB &
+  &, 0.540098E+00_JPRB, 0.525675E+00_JPRB, 0.511316E+00_JPRB, 0.497083E+00_JPRB &
+  &, 0.482950E+00_JPRB, 0.468959E+00_JPRB, 0.455103E+00_JPRB &
+  &, 0.441400E+00_JPRB, 0.427864E+00_JPRB, 0.414486E+00_JPRB, 0.401280E+00_JPRB &
+  &, 0.388285E+00_JPRB, 0.375459E+00_JPRB, 0.362869E+00_JPRB &
+  &, 0.350468E+00_JPRB, 0.338294E+00_JPRB, 0.326326E+00_JPRB, 0.314629E+00_JPRB &
+  &, 0.303120E+00_JPRB, 0.291892E+00_JPRB, 0.280889E+00_JPRB &
+  &, 0.270112E+00_JPRB, 0.259624E+00_JPRB, 0.249361E+00_JPRB, 0.239353E+00_JPRB &
+  &, 0.229631E+00_JPRB, 0.220122E+00_JPRB, 0.210923E+00_JPRB &
+  &, 0.201958E+00_JPRB, 0.193218E+00_JPRB, 0.184764E+00_JPRB, 0.176586E+00_JPRB &
+  &, 0.168635E+00_JPRB, 0.160972E+00_JPRB, 0.153544E+00_JPRB &
+  &, 0.146333E+00_JPRB, 0.139401E+00_JPRB, 0.132729E+00_JPRB, 0.126256E+00_JPRB &
+  &, 0.120043E+00_JPRB, 0.114066E+00_JPRB, 0.108300E+00_JPRB &
+  &, 0.102763E+00_JPRB, 0.974275E-01_JPRB, 0.923552E-01_JPRB, 0.874238E-01_JPRB &
+  &, 0.827412E-01_JPRB, 0.782759E-01_JPRB, 0.739940E-01_JPRB &
+  &, 0.698587E-01_JPRB, 0.659319E-01_JPRB, 0.622274E-01_JPRB, 0.586549E-01_JPRB &
+  &, 0.552242E-01_JPRB, 0.519986E-01_JPRB, 0.489362E-01_JPRB &
+  &, 0.459920E-01_JPRB, 0.432301E-01_JPRB, 0.406043E-01_JPRB, 0.380655E-01_JPRB &
+  &, 0.357365E-01_JPRB, 0.334510E-01_JPRB, 0.313329E-01_JPRB &
+  &, 0.293302E-01_JPRB, 0.274497E-01_JPRB, 0.256356E-01_JPRB, 0.239556E-01_JPRB &
+  &, 0.223524E-01_JPRB, 0.208306E-01_JPRB, 0.193948E-01_JPRB/)
+XCW( 628, :) = (/ &
+  &  0.102951E+01_JPRB, 0.103592E+01_JPRB, 0.104193E+01_JPRB, 0.104753E+01_JPRB &
+  &, 0.105273E+01_JPRB, 0.105751E+01_JPRB, 0.106187E+01_JPRB &
+  &, 0.106581E+01_JPRB, 0.106932E+01_JPRB, 0.107240E+01_JPRB, 0.107505E+01_JPRB &
+  &, 0.107726E+01_JPRB, 0.107904E+01_JPRB, 0.108036E+01_JPRB &
+  &, 0.108125E+01_JPRB, 0.108169E+01_JPRB, 0.108167E+01_JPRB, 0.108121E+01_JPRB &
+  &, 0.108030E+01_JPRB, 0.107893E+01_JPRB, 0.107711E+01_JPRB &
+  &, 0.107483E+01_JPRB, 0.107211E+01_JPRB, 0.106893E+01_JPRB, 0.106530E+01_JPRB &
+  &, 0.106122E+01_JPRB, 0.105670E+01_JPRB, 0.105173E+01_JPRB &
+  &, 0.104633E+01_JPRB, 0.104048E+01_JPRB, 0.103421E+01_JPRB, 0.102751E+01_JPRB &
+  &, 0.102040E+01_JPRB, 0.101286E+01_JPRB, 0.100493E+01_JPRB &
+  &, 0.996588E+00_JPRB, 0.987854E+00_JPRB, 0.978742E+00_JPRB, 0.969254E+00_JPRB &
+  &, 0.959414E+00_JPRB, 0.949207E+00_JPRB, 0.938658E+00_JPRB &
+  &, 0.927779E+00_JPRB, 0.916580E+00_JPRB, 0.905082E+00_JPRB, 0.893277E+00_JPRB &
+  &, 0.881191E+00_JPRB, 0.868832E+00_JPRB, 0.856219E+00_JPRB &
+  &, 0.843364E+00_JPRB, 0.830278E+00_JPRB, 0.816976E+00_JPRB, 0.803485E+00_JPRB &
+  &, 0.789793E+00_JPRB, 0.775948E+00_JPRB, 0.761938E+00_JPRB &
+  &, 0.747796E+00_JPRB, 0.733513E+00_JPRB, 0.719139E+00_JPRB, 0.704648E+00_JPRB &
+  &, 0.690094E+00_JPRB, 0.675481E+00_JPRB, 0.660816E+00_JPRB &
+  &, 0.646102E+00_JPRB, 0.631379E+00_JPRB, 0.616651E+00_JPRB, 0.601941E+00_JPRB &
+  &, 0.587250E+00_JPRB, 0.572601E+00_JPRB, 0.557994E+00_JPRB &
+  &, 0.543451E+00_JPRB, 0.528991E+00_JPRB, 0.514635E+00_JPRB, 0.500359E+00_JPRB &
+  &, 0.486202E+00_JPRB, 0.472184E+00_JPRB, 0.458298E+00_JPRB &
+  &, 0.444561E+00_JPRB, 0.430990E+00_JPRB, 0.417573E+00_JPRB, 0.404350E+00_JPRB &
+  &, 0.391283E+00_JPRB, 0.378435E+00_JPRB, 0.365792E+00_JPRB &
+  &, 0.353364E+00_JPRB, 0.341132E+00_JPRB, 0.329130E+00_JPRB, 0.317367E+00_JPRB &
+  &, 0.305819E+00_JPRB, 0.294519E+00_JPRB, 0.283471E+00_JPRB &
+  &, 0.272677E+00_JPRB, 0.262106E+00_JPRB, 0.251789E+00_JPRB, 0.241757E+00_JPRB &
+  &, 0.231941E+00_JPRB, 0.222403E+00_JPRB, 0.213138E+00_JPRB &
+  &, 0.204105E+00_JPRB, 0.195328E+00_JPRB, 0.186836E+00_JPRB, 0.178580E+00_JPRB &
+  &, 0.170586E+00_JPRB, 0.162838E+00_JPRB, 0.155362E+00_JPRB &
+  &, 0.148101E+00_JPRB, 0.141116E+00_JPRB, 0.134389E+00_JPRB, 0.127858E+00_JPRB &
+  &, 0.121584E+00_JPRB, 0.115545E+00_JPRB, 0.109758E+00_JPRB &
+  &, 0.104154E+00_JPRB, 0.987944E-01_JPRB, 0.936506E-01_JPRB, 0.886921E-01_JPRB &
+  &, 0.839810E-01_JPRB, 0.794376E-01_JPRB, 0.750747E-01_JPRB &
+  &, 0.709555E-01_JPRB, 0.669944E-01_JPRB, 0.632028E-01_JPRB, 0.595924E-01_JPRB &
+  &, 0.561224E-01_JPRB, 0.528561E-01_JPRB, 0.497516E-01_JPRB &
+  &, 0.467639E-01_JPRB, 0.439569E-01_JPRB, 0.412846E-01_JPRB, 0.387554E-01_JPRB &
+  &, 0.363776E-01_JPRB, 0.341009E-01_JPRB, 0.319318E-01_JPRB &
+  &, 0.298765E-01_JPRB, 0.279419E-01_JPRB, 0.261344E-01_JPRB, 0.243978E-01_JPRB &
+  &, 0.228005E-01_JPRB, 0.212847E-01_JPRB, 0.198548E-01_JPRB/)
+XCW( 629, :) = (/ &
+  &  0.102979E+01_JPRB, 0.103626E+01_JPRB, 0.104234E+01_JPRB, 0.104801E+01_JPRB &
+  &, 0.105327E+01_JPRB, 0.105812E+01_JPRB, 0.106256E+01_JPRB &
+  &, 0.106657E+01_JPRB, 0.107015E+01_JPRB, 0.107330E+01_JPRB, 0.107603E+01_JPRB &
+  &, 0.107831E+01_JPRB, 0.108015E+01_JPRB, 0.108156E+01_JPRB &
+  &, 0.108251E+01_JPRB, 0.108302E+01_JPRB, 0.108308E+01_JPRB, 0.108269E+01_JPRB &
+  &, 0.108184E+01_JPRB, 0.108054E+01_JPRB, 0.107879E+01_JPRB &
+  &, 0.107659E+01_JPRB, 0.107393E+01_JPRB, 0.107082E+01_JPRB, 0.106726E+01_JPRB &
+  &, 0.106325E+01_JPRB, 0.105879E+01_JPRB, 0.105389E+01_JPRB &
+  &, 0.104855E+01_JPRB, 0.104277E+01_JPRB, 0.103655E+01_JPRB, 0.102992E+01_JPRB &
+  &, 0.102286E+01_JPRB, 0.101539E+01_JPRB, 0.100751E+01_JPRB &
+  &, 0.999220E+00_JPRB, 0.990552E+00_JPRB, 0.981490E+00_JPRB, 0.972051E+00_JPRB &
+  &, 0.962261E+00_JPRB, 0.952105E+00_JPRB, 0.941607E+00_JPRB &
+  &, 0.930769E+00_JPRB, 0.919611E+00_JPRB, 0.908142E+00_JPRB, 0.896389E+00_JPRB &
+  &, 0.884331E+00_JPRB, 0.872012E+00_JPRB, 0.859439E+00_JPRB &
+  &, 0.846610E+00_JPRB, 0.833549E+00_JPRB, 0.820284E+00_JPRB, 0.806802E+00_JPRB &
+  &, 0.793146E+00_JPRB, 0.779292E+00_JPRB, 0.765330E+00_JPRB &
+  &, 0.751190E+00_JPRB, 0.736922E+00_JPRB, 0.722562E+00_JPRB, 0.708084E+00_JPRB &
+  &, 0.693540E+00_JPRB, 0.678919E+00_JPRB, 0.664260E+00_JPRB &
+  &, 0.649550E+00_JPRB, 0.634830E+00_JPRB, 0.620083E+00_JPRB, 0.605369E+00_JPRB &
+  &, 0.590654E+00_JPRB, 0.575997E+00_JPRB, 0.561381E+00_JPRB &
+  &, 0.546825E+00_JPRB, 0.532350E+00_JPRB, 0.517954E+00_JPRB, 0.503657E+00_JPRB &
+  &, 0.489477E+00_JPRB, 0.475432E+00_JPRB, 0.461517E+00_JPRB &
+  &, 0.447748E+00_JPRB, 0.434140E+00_JPRB, 0.420685E+00_JPRB, 0.407420E+00_JPRB &
+  &, 0.394334E+00_JPRB, 0.381438E+00_JPRB, 0.368744E+00_JPRB &
+  &, 0.356260E+00_JPRB, 0.343998E+00_JPRB, 0.331963E+00_JPRB, 0.320136E+00_JPRB &
+  &, 0.308548E+00_JPRB, 0.297207E+00_JPRB, 0.286083E+00_JPRB &
+  &, 0.275242E+00_JPRB, 0.264620E+00_JPRB, 0.254250E+00_JPRB, 0.244161E+00_JPRB &
+  &, 0.234320E+00_JPRB, 0.224719E+00_JPRB, 0.215354E+00_JPRB &
+  &, 0.206287E+00_JPRB, 0.197475E+00_JPRB, 0.188908E+00_JPRB, 0.180612E+00_JPRB &
+  &, 0.172537E+00_JPRB, 0.164744E+00_JPRB, 0.157220E+00_JPRB &
+  &, 0.149909E+00_JPRB, 0.142871E+00_JPRB, 0.136049E+00_JPRB, 0.129502E+00_JPRB &
+  &, 0.123169E+00_JPRB, 0.117067E+00_JPRB, 0.111216E+00_JPRB &
+  &, 0.105590E+00_JPRB, 0.100161E+00_JPRB, 0.949460E-01_JPRB, 0.899603E-01_JPRB &
+  &, 0.851731E-01_JPRB, 0.805992E-01_JPRB, 0.762047E-01_JPRB &
+  &, 0.720025E-01_JPRB, 0.680062E-01_JPRB, 0.641781E-01_JPRB, 0.605299E-01_JPRB &
+  &, 0.570734E-01_JPRB, 0.537673E-01_JPRB, 0.505670E-01_JPRB &
+  &, 0.475909E-01_JPRB, 0.447397E-01_JPRB, 0.420217E-01_JPRB, 0.394452E-01_JPRB &
+  &, 0.370187E-01_JPRB, 0.346918E-01_JPRB, 0.325307E-01_JPRB &
+  &, 0.304229E-01_JPRB, 0.284956E-01_JPRB, 0.266332E-01_JPRB, 0.249033E-01_JPRB &
+  &, 0.232487E-01_JPRB, 0.216738E-01_JPRB, 0.202490E-01_JPRB/)
+XCW( 630, :) = (/ &
+  &  0.103006E+01_JPRB, 0.103660E+01_JPRB, 0.104275E+01_JPRB, 0.104849E+01_JPRB &
+  &, 0.105382E+01_JPRB, 0.105874E+01_JPRB, 0.106325E+01_JPRB &
+  &, 0.106733E+01_JPRB, 0.107098E+01_JPRB, 0.107421E+01_JPRB, 0.107700E+01_JPRB &
+  &, 0.107936E+01_JPRB, 0.108127E+01_JPRB, 0.108275E+01_JPRB &
+  &, 0.108377E+01_JPRB, 0.108435E+01_JPRB, 0.108449E+01_JPRB, 0.108417E+01_JPRB &
+  &, 0.108339E+01_JPRB, 0.108216E+01_JPRB, 0.108048E+01_JPRB &
+  &, 0.107834E+01_JPRB, 0.107576E+01_JPRB, 0.107271E+01_JPRB, 0.106922E+01_JPRB &
+  &, 0.106528E+01_JPRB, 0.106089E+01_JPRB, 0.105605E+01_JPRB &
+  &, 0.105077E+01_JPRB, 0.104505E+01_JPRB, 0.103891E+01_JPRB, 0.103233E+01_JPRB &
+  &, 0.102533E+01_JPRB, 0.101792E+01_JPRB, 0.101009E+01_JPRB &
+  &, 0.100187E+01_JPRB, 0.993251E+00_JPRB, 0.984238E+00_JPRB, 0.974859E+00_JPRB &
+  &, 0.965108E+00_JPRB, 0.955003E+00_JPRB, 0.944556E+00_JPRB &
+  &, 0.933759E+00_JPRB, 0.922653E+00_JPRB, 0.911226E+00_JPRB, 0.899501E+00_JPRB &
+  &, 0.887496E+00_JPRB, 0.875204E+00_JPRB, 0.862658E+00_JPRB &
+  &, 0.849868E+00_JPRB, 0.836846E+00_JPRB, 0.823592E+00_JPRB, 0.810147E+00_JPRB &
+  &, 0.796513E+00_JPRB, 0.782694E+00_JPRB, 0.768722E+00_JPRB &
+  &, 0.754600E+00_JPRB, 0.740363E+00_JPRB, 0.726002E+00_JPRB, 0.711536E+00_JPRB &
+  &, 0.696986E+00_JPRB, 0.682373E+00_JPRB, 0.667704E+00_JPRB &
+  &, 0.652998E+00_JPRB, 0.638280E+00_JPRB, 0.623533E+00_JPRB, 0.608798E+00_JPRB &
+  &, 0.594098E+00_JPRB, 0.579414E+00_JPRB, 0.564767E+00_JPRB &
+  &, 0.550199E+00_JPRB, 0.535709E+00_JPRB, 0.521296E+00_JPRB, 0.506978E+00_JPRB &
+  &, 0.492774E+00_JPRB, 0.478703E+00_JPRB, 0.464759E+00_JPRB &
+  &, 0.450958E+00_JPRB, 0.437291E+00_JPRB, 0.423822E+00_JPRB, 0.410516E+00_JPRB &
+  &, 0.397385E+00_JPRB, 0.384468E+00_JPRB, 0.371722E+00_JPRB &
+  &, 0.359184E+00_JPRB, 0.346892E+00_JPRB, 0.334796E+00_JPRB, 0.322933E+00_JPRB &
+  &, 0.311278E+00_JPRB, 0.299895E+00_JPRB, 0.288727E+00_JPRB &
+  &, 0.277807E+00_JPRB, 0.267167E+00_JPRB, 0.256743E+00_JPRB, 0.246566E+00_JPRB &
+  &, 0.236664E+00_JPRB, 0.227036E+00_JPRB, 0.217640E+00_JPRB &
+  &, 0.208505E+00_JPRB, 0.199622E+00_JPRB, 0.191017E+00_JPRB, 0.182644E+00_JPRB &
+  &, 0.174526E+00_JPRB, 0.166688E+00_JPRB, 0.159078E+00_JPRB &
+  &, 0.151716E+00_JPRB, 0.144627E+00_JPRB, 0.137750E+00_JPRB, 0.131146E+00_JPRB &
+  &, 0.124753E+00_JPRB, 0.118633E+00_JPRB, 0.112718E+00_JPRB &
+  &, 0.107026E+00_JPRB, 0.101528E+00_JPRB, 0.962877E-01_JPRB, 0.912755E-01_JPRB &
+  &, 0.864129E-01_JPRB, 0.818093E-01_JPRB, 0.773837E-01_JPRB &
+  &, 0.731492E-01_JPRB, 0.690687E-01_JPRB, 0.652048E-01_JPRB, 0.615195E-01_JPRB &
+  &, 0.579717E-01_JPRB, 0.546248E-01_JPRB, 0.514368E-01_JPRB &
+  &, 0.484179E-01_JPRB, 0.455225E-01_JPRB, 0.427587E-01_JPRB, 0.401350E-01_JPRB &
+  &, 0.376598E-01_JPRB, 0.353417E-01_JPRB, 0.331296E-01_JPRB &
+  &, 0.310299E-01_JPRB, 0.290493E-01_JPRB, 0.271320E-01_JPRB, 0.254087E-01_JPRB &
+  &, 0.236968E-01_JPRB, 0.221279E-01_JPRB, 0.206433E-01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART90',1,ZHOOK_HANDLE)
+END SUBROUTINE PART90
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART91
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART91',0,ZHOOK_HANDLE)
+
+XCW( 631, :) = (/ &
+  &  0.103033E+01_JPRB, 0.103694E+01_JPRB, 0.104316E+01_JPRB, 0.104897E+01_JPRB &
+  &, 0.105437E+01_JPRB, 0.105936E+01_JPRB, 0.106394E+01_JPRB &
+  &, 0.106809E+01_JPRB, 0.107182E+01_JPRB, 0.107512E+01_JPRB, 0.107798E+01_JPRB &
+  &, 0.108041E+01_JPRB, 0.108240E+01_JPRB, 0.108394E+01_JPRB &
+  &, 0.108504E+01_JPRB, 0.108569E+01_JPRB, 0.108589E+01_JPRB, 0.108564E+01_JPRB &
+  &, 0.108494E+01_JPRB, 0.108379E+01_JPRB, 0.108217E+01_JPRB &
+  &, 0.108011E+01_JPRB, 0.107759E+01_JPRB, 0.107462E+01_JPRB, 0.107119E+01_JPRB &
+  &, 0.106731E+01_JPRB, 0.106299E+01_JPRB, 0.105821E+01_JPRB &
+  &, 0.105300E+01_JPRB, 0.104735E+01_JPRB, 0.104127E+01_JPRB, 0.103475E+01_JPRB &
+  &, 0.102781E+01_JPRB, 0.102045E+01_JPRB, 0.101269E+01_JPRB &
+  &, 0.100452E+01_JPRB, 0.995950E+00_JPRB, 0.987005E+00_JPRB, 0.977676E+00_JPRB &
+  &, 0.967976E+00_JPRB, 0.957912E+00_JPRB, 0.947506E+00_JPRB &
+  &, 0.936772E+00_JPRB, 0.925695E+00_JPRB, 0.914320E+00_JPRB, 0.902626E+00_JPRB &
+  &, 0.890661E+00_JPRB, 0.878409E+00_JPRB, 0.865891E+00_JPRB &
+  &, 0.853140E+00_JPRB, 0.840144E+00_JPRB, 0.826914E+00_JPRB, 0.813492E+00_JPRB &
+  &, 0.799880E+00_JPRB, 0.786082E+00_JPRB, 0.772129E+00_JPRB &
+  &, 0.758024E+00_JPRB, 0.743805E+00_JPRB, 0.729442E+00_JPRB, 0.715005E+00_JPRB &
+  &, 0.700466E+00_JPRB, 0.685845E+00_JPRB, 0.671183E+00_JPRB &
+  &, 0.656482E+00_JPRB, 0.641748E+00_JPRB, 0.627002E+00_JPRB, 0.612266E+00_JPRB &
+  &, 0.597542E+00_JPRB, 0.582851E+00_JPRB, 0.568195E+00_JPRB &
+  &, 0.553615E+00_JPRB, 0.539089E+00_JPRB, 0.524659E+00_JPRB, 0.510321E+00_JPRB &
+  &, 0.496095E+00_JPRB, 0.481975E+00_JPRB, 0.468002E+00_JPRB &
+  &, 0.454168E+00_JPRB, 0.440491E+00_JPRB, 0.426984E+00_JPRB, 0.413637E+00_JPRB &
+  &, 0.400462E+00_JPRB, 0.387497E+00_JPRB, 0.374728E+00_JPRB &
+  &, 0.362136E+00_JPRB, 0.349786E+00_JPRB, 0.337658E+00_JPRB, 0.325731E+00_JPRB &
+  &, 0.314037E+00_JPRB, 0.302613E+00_JPRB, 0.291402E+00_JPRB &
+  &, 0.280435E+00_JPRB, 0.269713E+00_JPRB, 0.259237E+00_JPRB, 0.249036E+00_JPRB &
+  &, 0.239077E+00_JPRB, 0.229352E+00_JPRB, 0.219926E+00_JPRB &
+  &, 0.210723E+00_JPRB, 0.201805E+00_JPRB, 0.193126E+00_JPRB, 0.184713E+00_JPRB &
+  &, 0.176553E+00_JPRB, 0.168633E+00_JPRB, 0.160975E+00_JPRB &
+  &, 0.153565E+00_JPRB, 0.146423E+00_JPRB, 0.139492E+00_JPRB, 0.132832E+00_JPRB &
+  &, 0.126381E+00_JPRB, 0.120199E+00_JPRB, 0.114220E+00_JPRB &
+  &, 0.108462E+00_JPRB, 0.102941E+00_JPRB, 0.976294E-01_JPRB, 0.925437E-01_JPRB &
+  &, 0.877003E-01_JPRB, 0.830193E-01_JPRB, 0.785136E-01_JPRB &
+  &, 0.742460E-01_JPRB, 0.701311E-01_JPRB, 0.662315E-01_JPRB, 0.625090E-01_JPRB &
+  &, 0.589227E-01_JPRB, 0.555360E-01_JPRB, 0.523066E-01_JPRB &
+  &, 0.492449E-01_JPRB, 0.463052E-01_JPRB, 0.434958E-01_JPRB, 0.408823E-01_JPRB &
+  &, 0.383592E-01_JPRB, 0.359916E-01_JPRB, 0.337285E-01_JPRB &
+  &, 0.316370E-01_JPRB, 0.296030E-01_JPRB, 0.276931E-01_JPRB, 0.259142E-01_JPRB &
+  &, 0.242089E-01_JPRB, 0.225819E-01_JPRB, 0.211033E-01_JPRB/)
+XCW( 632, :) = (/ &
+  &  0.103060E+01_JPRB, 0.103728E+01_JPRB, 0.104357E+01_JPRB, 0.104945E+01_JPRB &
+  &, 0.105492E+01_JPRB, 0.105999E+01_JPRB, 0.106463E+01_JPRB &
+  &, 0.106886E+01_JPRB, 0.107266E+01_JPRB, 0.107602E+01_JPRB, 0.107896E+01_JPRB &
+  &, 0.108146E+01_JPRB, 0.108352E+01_JPRB, 0.108514E+01_JPRB &
+  &, 0.108631E+01_JPRB, 0.108703E+01_JPRB, 0.108731E+01_JPRB, 0.108713E+01_JPRB &
+  &, 0.108650E+01_JPRB, 0.108541E+01_JPRB, 0.108387E+01_JPRB &
+  &, 0.108187E+01_JPRB, 0.107942E+01_JPRB, 0.107652E+01_JPRB, 0.107316E+01_JPRB &
+  &, 0.106935E+01_JPRB, 0.106509E+01_JPRB, 0.106039E+01_JPRB &
+  &, 0.105524E+01_JPRB, 0.104965E+01_JPRB, 0.104363E+01_JPRB, 0.103717E+01_JPRB &
+  &, 0.103030E+01_JPRB, 0.102300E+01_JPRB, 0.101529E+01_JPRB &
+  &, 0.100717E+01_JPRB, 0.998668E+00_JPRB, 0.989772E+00_JPRB, 0.980493E+00_JPRB &
+  &, 0.970844E+00_JPRB, 0.960831E+00_JPRB, 0.950477E+00_JPRB &
+  &, 0.939784E+00_JPRB, 0.928760E+00_JPRB, 0.917415E+00_JPRB, 0.905773E+00_JPRB &
+  &, 0.893838E+00_JPRB, 0.881627E+00_JPRB, 0.869149E+00_JPRB &
+  &, 0.856412E+00_JPRB, 0.843441E+00_JPRB, 0.830263E+00_JPRB, 0.816865E+00_JPRB &
+  &, 0.803262E+00_JPRB, 0.789499E+00_JPRB, 0.775566E+00_JPRB &
+  &, 0.761480E+00_JPRB, 0.747262E+00_JPRB, 0.732914E+00_JPRB, 0.718473E+00_JPRB &
+  &, 0.703946E+00_JPRB, 0.689335E+00_JPRB, 0.674679E+00_JPRB &
+  &, 0.659966E+00_JPRB, 0.645235E+00_JPRB, 0.630490E+00_JPRB, 0.615733E+00_JPRB &
+  &, 0.601005E+00_JPRB, 0.586288E+00_JPRB, 0.571644E+00_JPRB &
+  &, 0.557031E+00_JPRB, 0.542491E+00_JPRB, 0.528044E+00_JPRB, 0.513687E+00_JPRB &
+  &, 0.499415E+00_JPRB, 0.485293E+00_JPRB, 0.471292E+00_JPRB &
+  &, 0.457403E+00_JPRB, 0.443691E+00_JPRB, 0.430147E+00_JPRB, 0.416759E+00_JPRB &
+  &, 0.403566E+00_JPRB, 0.390554E+00_JPRB, 0.377734E+00_JPRB &
+  &, 0.365116E+00_JPRB, 0.352709E+00_JPRB, 0.340520E+00_JPRB, 0.328558E+00_JPRB &
+  &, 0.316827E+00_JPRB, 0.305332E+00_JPRB, 0.294077E+00_JPRB &
+  &, 0.283063E+00_JPRB, 0.272292E+00_JPRB, 0.261763E+00_JPRB, 0.251507E+00_JPRB &
+  &, 0.241489E+00_JPRB, 0.231737E+00_JPRB, 0.222212E+00_JPRB &
+  &, 0.212977E+00_JPRB, 0.203988E+00_JPRB, 0.195235E+00_JPRB, 0.186783E+00_JPRB &
+  &, 0.178543E+00_JPRB, 0.170577E+00_JPRB, 0.162873E+00_JPRB &
+  &, 0.155413E+00_JPRB, 0.148220E+00_JPRB, 0.141235E+00_JPRB, 0.134518E+00_JPRB &
+  &, 0.128008E+00_JPRB, 0.121765E+00_JPRB, 0.115722E+00_JPRB &
+  &, 0.109942E+00_JPRB, 0.104353E+00_JPRB, 0.990174E-01_JPRB, 0.939059E-01_JPRB &
+  &, 0.889401E-01_JPRB, 0.842294E-01_JPRB, 0.796926E-01_JPRB &
+  &, 0.753927E-01_JPRB, 0.712441E-01_JPRB, 0.672582E-01_JPRB, 0.634986E-01_JPRB &
+  &, 0.598738E-01_JPRB, 0.564471E-01_JPRB, 0.531764E-01_JPRB &
+  &, 0.500719E-01_JPRB, 0.470880E-01_JPRB, 0.442895E-01_JPRB, 0.415721E-01_JPRB &
+  &, 0.390585E-01_JPRB, 0.366415E-01_JPRB, 0.343873E-01_JPRB &
+  &, 0.321833E-01_JPRB, 0.301567E-01_JPRB, 0.282543E-01_JPRB, 0.264196E-01_JPRB &
+  &, 0.246571E-01_JPRB, 0.230359E-01_JPRB, 0.214975E-01_JPRB/)
+XCW( 633, :) = (/ &
+  &  0.103087E+01_JPRB, 0.103762E+01_JPRB, 0.104398E+01_JPRB, 0.104993E+01_JPRB &
+  &, 0.105548E+01_JPRB, 0.106061E+01_JPRB, 0.106533E+01_JPRB &
+  &, 0.106962E+01_JPRB, 0.107349E+01_JPRB, 0.107693E+01_JPRB, 0.107994E+01_JPRB &
+  &, 0.108252E+01_JPRB, 0.108465E+01_JPRB, 0.108634E+01_JPRB &
+  &, 0.108754E+01_JPRB, 0.108838E+01_JPRB, 0.108872E+01_JPRB, 0.108861E+01_JPRB &
+  &, 0.108805E+01_JPRB, 0.108704E+01_JPRB, 0.108557E+01_JPRB &
+  &, 0.108364E+01_JPRB, 0.108126E+01_JPRB, 0.107842E+01_JPRB, 0.107513E+01_JPRB &
+  &, 0.107139E+01_JPRB, 0.106720E+01_JPRB, 0.106256E+01_JPRB &
+  &, 0.105748E+01_JPRB, 0.105195E+01_JPRB, 0.104599E+01_JPRB, 0.103960E+01_JPRB &
+  &, 0.103279E+01_JPRB, 0.102555E+01_JPRB, 0.101790E+01_JPRB &
+  &, 0.100984E+01_JPRB, 0.100139E+01_JPRB, 0.992549E+00_JPRB, 0.983320E+00_JPRB &
+  &, 0.973722E+00_JPRB, 0.963761E+00_JPRB, 0.953458E+00_JPRB &
+  &, 0.942807E+00_JPRB, 0.931825E+00_JPRB, 0.920522E+00_JPRB, 0.908921E+00_JPRB &
+  &, 0.897027E+00_JPRB, 0.884845E+00_JPRB, 0.872407E+00_JPRB &
+  &, 0.859710E+00_JPRB, 0.846765E+00_JPRB, 0.833612E+00_JPRB, 0.820238E+00_JPRB &
+  &, 0.806672E+00_JPRB, 0.792917E+00_JPRB, 0.779003E+00_JPRB &
+  &, 0.764936E+00_JPRB, 0.750719E+00_JPRB, 0.736402E+00_JPRB, 0.721959E+00_JPRB &
+  &, 0.707443E+00_JPRB, 0.692841E+00_JPRB, 0.678176E+00_JPRB &
+  &, 0.663469E+00_JPRB, 0.648741E+00_JPRB, 0.633978E+00_JPRB, 0.619220E+00_JPRB &
+  &, 0.604488E+00_JPRB, 0.589766E+00_JPRB, 0.575092E+00_JPRB &
+  &, 0.560469E+00_JPRB, 0.545915E+00_JPRB, 0.531429E+00_JPRB, 0.517053E+00_JPRB &
+  &, 0.502782E+00_JPRB, 0.488611E+00_JPRB, 0.474582E+00_JPRB &
+  &, 0.460687E+00_JPRB, 0.446941E+00_JPRB, 0.433334E+00_JPRB, 0.419932E+00_JPRB &
+  &, 0.406695E+00_JPRB, 0.393637E+00_JPRB, 0.380767E+00_JPRB &
+  &, 0.368123E+00_JPRB, 0.355660E+00_JPRB, 0.343440E+00_JPRB, 0.331414E+00_JPRB &
+  &, 0.319646E+00_JPRB, 0.308081E+00_JPRB, 0.296782E+00_JPRB &
+  &, 0.285723E+00_JPRB, 0.274903E+00_JPRB, 0.264322E+00_JPRB, 0.253978E+00_JPRB &
+  &, 0.243935E+00_JPRB, 0.234088E+00_JPRB, 0.224533E+00_JPRB &
+  &, 0.215231E+00_JPRB, 0.206207E+00_JPRB, 0.197419E+00_JPRB, 0.188890E+00_JPRB &
+  &, 0.180608E+00_JPRB, 0.172561E+00_JPRB, 0.164810E+00_JPRB &
+  &, 0.157301E+00_JPRB, 0.150016E+00_JPRB, 0.142977E+00_JPRB, 0.136204E+00_JPRB &
+  &, 0.129678E+00_JPRB, 0.123374E+00_JPRB, 0.117269E+00_JPRB &
+  &, 0.111423E+00_JPRB, 0.105811E+00_JPRB, 0.100405E+00_JPRB, 0.952211E-01_JPRB &
+  &, 0.902276E-01_JPRB, 0.854878E-01_JPRB, 0.808716E-01_JPRB &
+  &, 0.765394E-01_JPRB, 0.723066E-01_JPRB, 0.683362E-01_JPRB, 0.644882E-01_JPRB &
+  &, 0.608777E-01_JPRB, 0.573582E-01_JPRB, 0.540462E-01_JPRB &
+  &, 0.508989E-01_JPRB, 0.479267E-01_JPRB, 0.450266E-01_JPRB, 0.423195E-01_JPRB &
+  &, 0.397579E-01_JPRB, 0.372914E-01_JPRB, 0.349862E-01_JPRB &
+  &, 0.327903E-01_JPRB, 0.307104E-01_JPRB, 0.287531E-01_JPRB, 0.269251E-01_JPRB &
+  &, 0.251692E-01_JPRB, 0.234900E-01_JPRB, 0.219575E-01_JPRB/)
+XCW( 634, :) = (/ &
+  &  0.103114E+01_JPRB, 0.103796E+01_JPRB, 0.104439E+01_JPRB, 0.105041E+01_JPRB &
+  &, 0.105603E+01_JPRB, 0.106123E+01_JPRB, 0.106602E+01_JPRB &
+  &, 0.107039E+01_JPRB, 0.107433E+01_JPRB, 0.107785E+01_JPRB, 0.108093E+01_JPRB &
+  &, 0.108357E+01_JPRB, 0.108578E+01_JPRB, 0.108754E+01_JPRB &
+  &, 0.108885E+01_JPRB, 0.108972E+01_JPRB, 0.109014E+01_JPRB, 0.109010E+01_JPRB &
+  &, 0.108961E+01_JPRB, 0.108867E+01_JPRB, 0.108727E+01_JPRB &
+  &, 0.108541E+01_JPRB, 0.108310E+01_JPRB, 0.108033E+01_JPRB, 0.107711E+01_JPRB &
+  &, 0.107344E+01_JPRB, 0.106931E+01_JPRB, 0.106474E+01_JPRB &
+  &, 0.105972E+01_JPRB, 0.105426E+01_JPRB, 0.104837E+01_JPRB, 0.104204E+01_JPRB &
+  &, 0.103528E+01_JPRB, 0.102811E+01_JPRB, 0.102052E+01_JPRB &
+  &, 0.101251E+01_JPRB, 0.100411E+01_JPRB, 0.995326E+00_JPRB, 0.986157E+00_JPRB &
+  &, 0.976610E+00_JPRB, 0.966701E+00_JPRB, 0.956440E+00_JPRB &
+  &, 0.945831E+00_JPRB, 0.934902E+00_JPRB, 0.923640E+00_JPRB, 0.912081E+00_JPRB &
+  &, 0.900216E+00_JPRB, 0.888087E+00_JPRB, 0.875678E+00_JPRB &
+  &, 0.863008E+00_JPRB, 0.850103E+00_JPRB, 0.836962E+00_JPRB, 0.823626E+00_JPRB &
+  &, 0.810083E+00_JPRB, 0.796349E+00_JPRB, 0.782456E+00_JPRB &
+  &, 0.768392E+00_JPRB, 0.754207E+00_JPRB, 0.739890E+00_JPRB, 0.725477E+00_JPRB &
+  &, 0.710957E+00_JPRB, 0.696365E+00_JPRB, 0.681709E+00_JPRB &
+  &, 0.666935E+00_JPRB, 0.652266E+00_JPRB, 0.637504E+00_JPRB, 0.622746E+00_JPRB &
+  &, 0.607992E+00_JPRB, 0.593263E+00_JPRB, 0.578562E+00_JPRB &
+  &, 0.563927E+00_JPRB, 0.549360E+00_JPRB, 0.534859E+00_JPRB, 0.520441E+00_JPRB &
+  &, 0.506148E+00_JPRB, 0.491953E+00_JPRB, 0.477896E+00_JPRB &
+  &, 0.463970E+00_JPRB, 0.450191E+00_JPRB, 0.436547E+00_JPRB, 0.423105E+00_JPRB &
+  &, 0.409825E+00_JPRB, 0.396720E+00_JPRB, 0.383827E+00_JPRB &
+  &, 0.371131E+00_JPRB, 0.358639E+00_JPRB, 0.346360E+00_JPRB, 0.334300E+00_JPRB &
+  &, 0.322465E+00_JPRB, 0.310860E+00_JPRB, 0.299519E+00_JPRB &
+  &, 0.288383E+00_JPRB, 0.277514E+00_JPRB, 0.266881E+00_JPRB, 0.256516E+00_JPRB &
+  &, 0.246382E+00_JPRB, 0.236508E+00_JPRB, 0.226890E+00_JPRB &
+  &, 0.217520E+00_JPRB, 0.208427E+00_JPRB, 0.199602E+00_JPRB, 0.190997E+00_JPRB &
+  &, 0.182674E+00_JPRB, 0.174583E+00_JPRB, 0.166747E+00_JPRB &
+  &, 0.159189E+00_JPRB, 0.151854E+00_JPRB, 0.144761E+00_JPRB, 0.137933E+00_JPRB &
+  &, 0.131348E+00_JPRB, 0.124984E+00_JPRB, 0.118859E+00_JPRB &
+  &, 0.112949E+00_JPRB, 0.107269E+00_JPRB, 0.101840E+00_JPRB, 0.965833E-01_JPRB &
+  &, 0.915627E-01_JPRB, 0.867463E-01_JPRB, 0.820998E-01_JPRB &
+  &, 0.776861E-01_JPRB, 0.734702E-01_JPRB, 0.694142E-01_JPRB, 0.655298E-01_JPRB &
+  &, 0.618287E-01_JPRB, 0.583230E-01_JPRB, 0.549704E-01_JPRB &
+  &, 0.517811E-01_JPRB, 0.487095E-01_JPRB, 0.458203E-01_JPRB, 0.430668E-01_JPRB &
+  &, 0.404573E-01_JPRB, 0.380004E-01_JPRB, 0.356450E-01_JPRB &
+  &, 0.333974E-01_JPRB, 0.313257E-01_JPRB, 0.293142E-01_JPRB, 0.274305E-01_JPRB &
+  &, 0.256814E-01_JPRB, 0.240089E-01_JPRB, 0.224175E-01_JPRB/)
+XCW( 635, :) = (/ &
+  &  0.103141E+01_JPRB, 0.103830E+01_JPRB, 0.104480E+01_JPRB, 0.105089E+01_JPRB &
+  &, 0.105658E+01_JPRB, 0.106186E+01_JPRB, 0.106672E+01_JPRB &
+  &, 0.107116E+01_JPRB, 0.107517E+01_JPRB, 0.107876E+01_JPRB, 0.108191E+01_JPRB &
+  &, 0.108463E+01_JPRB, 0.108690E+01_JPRB, 0.108874E+01_JPRB &
+  &, 0.109013E+01_JPRB, 0.109107E+01_JPRB, 0.109156E+01_JPRB, 0.109159E+01_JPRB &
+  &, 0.109118E+01_JPRB, 0.109030E+01_JPRB, 0.108897E+01_JPRB &
+  &, 0.108719E+01_JPRB, 0.108495E+01_JPRB, 0.108225E+01_JPRB, 0.107910E+01_JPRB &
+  &, 0.107549E+01_JPRB, 0.107143E+01_JPRB, 0.106693E+01_JPRB &
+  &, 0.106197E+01_JPRB, 0.105658E+01_JPRB, 0.105074E+01_JPRB, 0.104448E+01_JPRB &
+  &, 0.103778E+01_JPRB, 0.103067E+01_JPRB, 0.102314E+01_JPRB &
+  &, 0.101519E+01_JPRB, 0.100685E+01_JPRB, 0.998123E+00_JPRB, 0.988924E+00_JPRB &
+  &, 0.979509E+00_JPRB, 0.969651E+00_JPRB, 0.959432E+00_JPRB &
+  &, 0.948876E+00_JPRB, 0.937989E+00_JPRB, 0.926770E+00_JPRB, 0.915253E+00_JPRB &
+  &, 0.903430E+00_JPRB, 0.891330E+00_JPRB, 0.878948E+00_JPRB &
+  &, 0.866319E+00_JPRB, 0.853441E+00_JPRB, 0.840339E+00_JPRB, 0.827027E+00_JPRB &
+  &, 0.813508E+00_JPRB, 0.799796E+00_JPRB, 0.785923E+00_JPRB &
+  &, 0.771879E+00_JPRB, 0.757712E+00_JPRB, 0.743411E+00_JPRB, 0.728996E+00_JPRB &
+  &, 0.714487E+00_JPRB, 0.699889E+00_JPRB, 0.685241E+00_JPRB &
+  &, 0.670546E+00_JPRB, 0.655790E+00_JPRB, 0.641030E+00_JPRB, 0.626271E+00_JPRB &
+  &, 0.611495E+00_JPRB, 0.596761E+00_JPRB, 0.582052E+00_JPRB &
+  &, 0.567407E+00_JPRB, 0.552805E+00_JPRB, 0.538288E+00_JPRB, 0.523874E+00_JPRB &
+  &, 0.509537E+00_JPRB, 0.495318E+00_JPRB, 0.481234E+00_JPRB &
+  &, 0.467254E+00_JPRB, 0.453440E+00_JPRB, 0.439786E+00_JPRB, 0.426303E+00_JPRB &
+  &, 0.412981E+00_JPRB, 0.399857E+00_JPRB, 0.386915E+00_JPRB &
+  &, 0.374166E+00_JPRB, 0.361618E+00_JPRB, 0.349308E+00_JPRB, 0.337186E+00_JPRB &
+  &, 0.325315E+00_JPRB, 0.313670E+00_JPRB, 0.302256E+00_JPRB &
+  &, 0.291074E+00_JPRB, 0.280157E+00_JPRB, 0.269473E+00_JPRB, 0.258987E+00_JPRB &
+  &, 0.248862E+00_JPRB, 0.238928E+00_JPRB, 0.229246E+00_JPRB &
+  &, 0.219846E+00_JPRB, 0.210683E+00_JPRB, 0.201785E+00_JPRB, 0.193141E+00_JPRB &
+  &, 0.184740E+00_JPRB, 0.176605E+00_JPRB, 0.168723E+00_JPRB &
+  &, 0.161078E+00_JPRB, 0.153732E+00_JPRB, 0.146586E+00_JPRB, 0.139703E+00_JPRB &
+  &, 0.133018E+00_JPRB, 0.126593E+00_JPRB, 0.120450E+00_JPRB &
+  &, 0.114474E+00_JPRB, 0.108728E+00_JPRB, 0.103227E+00_JPRB, 0.979454E-01_JPRB &
+  &, 0.928502E-01_JPRB, 0.880047E-01_JPRB, 0.833279E-01_JPRB &
+  &, 0.788328E-01_JPRB, 0.745832E-01_JPRB, 0.704923E-01_JPRB, 0.665715E-01_JPRB &
+  &, 0.628326E-01_JPRB, 0.592877E-01_JPRB, 0.558946E-01_JPRB &
+  &, 0.526632E-01_JPRB, 0.495481E-01_JPRB, 0.466141E-01_JPRB, 0.438716E-01_JPRB &
+  &, 0.412150E-01_JPRB, 0.387094E-01_JPRB, 0.363038E-01_JPRB &
+  &, 0.340651E-01_JPRB, 0.319409E-01_JPRB, 0.298754E-01_JPRB, 0.279991E-01_JPRB &
+  &, 0.261935E-01_JPRB, 0.244629E-01_JPRB, 0.228775E-01_JPRB/)
+XCW( 636, :) = (/ &
+  &  0.103168E+01_JPRB, 0.103864E+01_JPRB, 0.104521E+01_JPRB, 0.105137E+01_JPRB &
+  &, 0.105713E+01_JPRB, 0.106248E+01_JPRB, 0.106741E+01_JPRB &
+  &, 0.107192E+01_JPRB, 0.107601E+01_JPRB, 0.107967E+01_JPRB, 0.108290E+01_JPRB &
+  &, 0.108569E+01_JPRB, 0.108803E+01_JPRB, 0.108994E+01_JPRB &
+  &, 0.109140E+01_JPRB, 0.109242E+01_JPRB, 0.109298E+01_JPRB, 0.109309E+01_JPRB &
+  &, 0.109274E+01_JPRB, 0.109194E+01_JPRB, 0.109068E+01_JPRB &
+  &, 0.108897E+01_JPRB, 0.108680E+01_JPRB, 0.108417E+01_JPRB, 0.108109E+01_JPRB &
+  &, 0.107755E+01_JPRB, 0.107356E+01_JPRB, 0.106912E+01_JPRB &
+  &, 0.106423E+01_JPRB, 0.105890E+01_JPRB, 0.105313E+01_JPRB, 0.104693E+01_JPRB &
+  &, 0.104030E+01_JPRB, 0.103324E+01_JPRB, 0.102576E+01_JPRB &
+  &, 0.101788E+01_JPRB, 0.100960E+01_JPRB, 0.100092E+01_JPRB, 0.991852E+00_JPRB &
+  &, 0.982407E+00_JPRB, 0.972602E+00_JPRB, 0.962436E+00_JPRB &
+  &, 0.951922E+00_JPRB, 0.941077E+00_JPRB, 0.929911E+00_JPRB, 0.918425E+00_JPRB &
+  &, 0.906655E+00_JPRB, 0.894585E+00_JPRB, 0.882245E+00_JPRB &
+  &, 0.869644E+00_JPRB, 0.856805E+00_JPRB, 0.843730E+00_JPRB, 0.830443E+00_JPRB &
+  &, 0.816947E+00_JPRB, 0.803258E+00_JPRB, 0.789391E+00_JPRB &
+  &, 0.775381E+00_JPRB, 0.761216E+00_JPRB, 0.746932E+00_JPRB, 0.732531E+00_JPRB &
+  &, 0.718035E+00_JPRB, 0.703448E+00_JPRB, 0.688791E+00_JPRB &
+  &, 0.674085E+00_JPRB, 0.659351E+00_JPRB, 0.644575E+00_JPRB, 0.629816E+00_JPRB &
+  &, 0.615037E+00_JPRB, 0.600279E+00_JPRB, 0.585562E+00_JPRB &
+  &, 0.570907E+00_JPRB, 0.556294E+00_JPRB, 0.541761E+00_JPRB, 0.527307E+00_JPRB &
+  &, 0.512949E+00_JPRB, 0.498706E+00_JPRB, 0.484572E+00_JPRB &
+  &, 0.470586E+00_JPRB, 0.456740E+00_JPRB, 0.443049E+00_JPRB, 0.429528E+00_JPRB &
+  &, 0.416163E+00_JPRB, 0.402994E+00_JPRB, 0.390003E+00_JPRB &
+  &, 0.377229E+00_JPRB, 0.364626E+00_JPRB, 0.352257E+00_JPRB, 0.340101E+00_JPRB &
+  &, 0.328194E+00_JPRB, 0.316480E+00_JPRB, 0.305024E+00_JPRB &
+  &, 0.293797E+00_JPRB, 0.282800E+00_JPRB, 0.272065E+00_JPRB, 0.261591E+00_JPRB &
+  &, 0.251342E+00_JPRB, 0.241383E+00_JPRB, 0.231638E+00_JPRB &
+  &, 0.222171E+00_JPRB, 0.212975E+00_JPRB, 0.204005E+00_JPRB, 0.195286E+00_JPRB &
+  &, 0.186844E+00_JPRB, 0.178666E+00_JPRB, 0.170700E+00_JPRB &
+  &, 0.163046E+00_JPRB, 0.155610E+00_JPRB, 0.148412E+00_JPRB, 0.141431E+00_JPRB &
+  &, 0.134731E+00_JPRB, 0.128246E+00_JPRB, 0.122040E+00_JPRB &
+  &, 0.116045E+00_JPRB, 0.110231E+00_JPRB, 0.104662E+00_JPRB, 0.993546E-01_JPRB &
+  &, 0.942330E-01_JPRB, 0.893116E-01_JPRB, 0.845561E-01_JPRB &
+  &, 0.800293E-01_JPRB, 0.757468E-01_JPRB, 0.715703E-01_JPRB, 0.676131E-01_JPRB &
+  &, 0.638365E-01_JPRB, 0.602525E-01_JPRB, 0.568187E-01_JPRB &
+  &, 0.535454E-01_JPRB, 0.503868E-01_JPRB, 0.474645E-01_JPRB, 0.446189E-01_JPRB &
+  &, 0.419143E-01_JPRB, 0.394184E-01_JPRB, 0.369626E-01_JPRB &
+  &, 0.346722E-01_JPRB, 0.324946E-01_JPRB, 0.304989E-01_JPRB, 0.285046E-01_JPRB &
+  &, 0.267057E-01_JPRB, 0.249818E-01_JPRB, 0.233375E-01_JPRB/)
+XCW( 637, :) = (/ &
+  &  0.103195E+01_JPRB, 0.103899E+01_JPRB, 0.104562E+01_JPRB, 0.105186E+01_JPRB &
+  &, 0.105769E+01_JPRB, 0.106311E+01_JPRB, 0.106811E+01_JPRB &
+  &, 0.107269E+01_JPRB, 0.107685E+01_JPRB, 0.108058E+01_JPRB, 0.108388E+01_JPRB &
+  &, 0.108675E+01_JPRB, 0.108917E+01_JPRB, 0.109115E+01_JPRB &
+  &, 0.109268E+01_JPRB, 0.109377E+01_JPRB, 0.109440E+01_JPRB, 0.109458E+01_JPRB &
+  &, 0.109431E+01_JPRB, 0.109358E+01_JPRB, 0.109239E+01_JPRB &
+  &, 0.109075E+01_JPRB, 0.108865E+01_JPRB, 0.108609E+01_JPRB, 0.108308E+01_JPRB &
+  &, 0.107961E+01_JPRB, 0.107569E+01_JPRB, 0.107131E+01_JPRB &
+  &, 0.106649E+01_JPRB, 0.106123E+01_JPRB, 0.105552E+01_JPRB, 0.104938E+01_JPRB &
+  &, 0.104281E+01_JPRB, 0.103581E+01_JPRB, 0.102840E+01_JPRB &
+  &, 0.102058E+01_JPRB, 0.101234E+01_JPRB, 0.100373E+01_JPRB, 0.994709E+00_JPRB &
+  &, 0.985327E+00_JPRB, 0.975563E+00_JPRB, 0.965450E+00_JPRB &
+  &, 0.954989E+00_JPRB, 0.944187E+00_JPRB, 0.933064E+00_JPRB, 0.921620E+00_JPRB &
+  &, 0.909881E+00_JPRB, 0.897853E+00_JPRB, 0.885554E+00_JPRB &
+  &, 0.872981E+00_JPRB, 0.860170E+00_JPRB, 0.847134E+00_JPRB, 0.833859E+00_JPRB &
+  &, 0.820387E+00_JPRB, 0.806734E+00_JPRB, 0.792889E+00_JPRB &
+  &, 0.778899E+00_JPRB, 0.764753E+00_JPRB, 0.750468E+00_JPRB, 0.736083E+00_JPRB &
+  &, 0.721600E+00_JPRB, 0.707007E+00_JPRB, 0.692376E+00_JPRB &
+  &, 0.677659E+00_JPRB, 0.662913E+00_JPRB, 0.648158E+00_JPRB, 0.633361E+00_JPRB &
+  &, 0.618600E+00_JPRB, 0.603837E+00_JPRB, 0.589093E+00_JPRB &
+  &, 0.574408E+00_JPRB, 0.559782E+00_JPRB, 0.545234E+00_JPRB, 0.530762E+00_JPRB &
+  &, 0.516384E+00_JPRB, 0.502095E+00_JPRB, 0.487957E+00_JPRB &
+  &, 0.473942E+00_JPRB, 0.460064E+00_JPRB, 0.446338E+00_JPRB, 0.432753E+00_JPRB &
+  &, 0.419372E+00_JPRB, 0.406157E+00_JPRB, 0.393118E+00_JPRB &
+  &, 0.380293E+00_JPRB, 0.367662E+00_JPRB, 0.355263E+00_JPRB, 0.343046E+00_JPRB &
+  &, 0.331073E+00_JPRB, 0.319321E+00_JPRB, 0.307823E+00_JPRB &
+  &, 0.296521E+00_JPRB, 0.285508E+00_JPRB, 0.274723E+00_JPRB, 0.264162E+00_JPRB &
+  &, 0.253891E+00_JPRB, 0.243837E+00_JPRB, 0.234064E+00_JPRB &
+  &, 0.224532E+00_JPRB, 0.215267E+00_JPRB, 0.206225E+00_JPRB, 0.197468E+00_JPRB &
+  &, 0.188986E+00_JPRB, 0.180727E+00_JPRB, 0.172716E+00_JPRB &
+  &, 0.164975E+00_JPRB, 0.157488E+00_JPRB, 0.150237E+00_JPRB, 0.143244E+00_JPRB &
+  &, 0.136487E+00_JPRB, 0.129943E+00_JPRB, 0.123631E+00_JPRB &
+  &, 0.117570E+00_JPRB, 0.111735E+00_JPRB, 0.106142E+00_JPRB, 0.100764E+00_JPRB &
+  &, 0.955682E-01_JPRB, 0.906184E-01_JPRB, 0.858334E-01_JPRB &
+  &, 0.812758E-01_JPRB, 0.769105E-01_JPRB, 0.726996E-01_JPRB, 0.687069E-01_JPRB &
+  &, 0.648933E-01_JPRB, 0.612172E-01_JPRB, 0.577429E-01_JPRB &
+  &, 0.544275E-01_JPRB, 0.512814E-01_JPRB, 0.482582E-01_JPRB, 0.454237E-01_JPRB &
+  &, 0.426720E-01_JPRB, 0.401274E-01_JPRB, 0.376813E-01_JPRB &
+  &, 0.353399E-01_JPRB, 0.331099E-01_JPRB, 0.310600E-01_JPRB, 0.290732E-01_JPRB &
+  &, 0.272178E-01_JPRB, 0.254358E-01_JPRB, 0.237974E-01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART91',1,ZHOOK_HANDLE)
+END SUBROUTINE PART91
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART92
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART92',0,ZHOOK_HANDLE)
+
+XCW( 638, :) = (/ &
+  &  0.103223E+01_JPRB, 0.103933E+01_JPRB, 0.104604E+01_JPRB, 0.105234E+01_JPRB &
+  &, 0.105824E+01_JPRB, 0.106373E+01_JPRB, 0.106881E+01_JPRB &
+  &, 0.107346E+01_JPRB, 0.107770E+01_JPRB, 0.108150E+01_JPRB, 0.108487E+01_JPRB &
+  &, 0.108781E+01_JPRB, 0.109030E+01_JPRB, 0.109236E+01_JPRB &
+  &, 0.109396E+01_JPRB, 0.109512E+01_JPRB, 0.109583E+01_JPRB, 0.109608E+01_JPRB &
+  &, 0.109588E+01_JPRB, 0.109522E+01_JPRB, 0.109411E+01_JPRB &
+  &, 0.109254E+01_JPRB, 0.109051E+01_JPRB, 0.108802E+01_JPRB, 0.108507E+01_JPRB &
+  &, 0.108167E+01_JPRB, 0.107782E+01_JPRB, 0.107351E+01_JPRB &
+  &, 0.106876E+01_JPRB, 0.106356E+01_JPRB, 0.105792E+01_JPRB, 0.105184E+01_JPRB &
+  &, 0.104533E+01_JPRB, 0.103840E+01_JPRB, 0.103104E+01_JPRB &
+  &, 0.102327E+01_JPRB, 0.101511E+01_JPRB, 0.100654E+01_JPRB, 0.997576E+00_JPRB &
+  &, 0.988246E+00_JPRB, 0.978535E+00_JPRB, 0.968475E+00_JPRB &
+  &, 0.958057E+00_JPRB, 0.947298E+00_JPRB, 0.936217E+00_JPRB, 0.924828E+00_JPRB &
+  &, 0.913119E+00_JPRB, 0.901133E+00_JPRB, 0.888864E+00_JPRB &
+  &, 0.876332E+00_JPRB, 0.863562E+00_JPRB, 0.850539E+00_JPRB, 0.837303E+00_JPRB &
+  &, 0.823855E+00_JPRB, 0.810211E+00_JPRB, 0.796402E+00_JPRB &
+  &, 0.782417E+00_JPRB, 0.768289E+00_JPRB, 0.754038E+00_JPRB, 0.739651E+00_JPRB &
+  &, 0.725165E+00_JPRB, 0.710600E+00_JPRB, 0.695962E+00_JPRB &
+  &, 0.681252E+00_JPRB, 0.666511E+00_JPRB, 0.651741E+00_JPRB, 0.636945E+00_JPRB &
+  &, 0.622163E+00_JPRB, 0.607396E+00_JPRB, 0.592645E+00_JPRB &
+  &, 0.577951E+00_JPRB, 0.563292E+00_JPRB, 0.548729E+00_JPRB, 0.534218E+00_JPRB &
+  &, 0.519819E+00_JPRB, 0.505530E+00_JPRB, 0.491343E+00_JPRB &
+  &, 0.477298E+00_JPRB, 0.463388E+00_JPRB, 0.449627E+00_JPRB, 0.436029E+00_JPRB &
+  &, 0.422581E+00_JPRB, 0.409348E+00_JPRB, 0.396261E+00_JPRB &
+  &, 0.383384E+00_JPRB, 0.370727E+00_JPRB, 0.358270E+00_JPRB, 0.346020E+00_JPRB &
+  &, 0.333983E+00_JPRB, 0.322192E+00_JPRB, 0.310623E+00_JPRB &
+  &, 0.299307E+00_JPRB, 0.288216E+00_JPRB, 0.277380E+00_JPRB, 0.266767E+00_JPRB &
+  &, 0.256439E+00_JPRB, 0.246326E+00_JPRB, 0.236491E+00_JPRB &
+  &, 0.226893E+00_JPRB, 0.217596E+00_JPRB, 0.208519E+00_JPRB, 0.199688E+00_JPRB &
+  &, 0.191128E+00_JPRB, 0.182827E+00_JPRB, 0.174771E+00_JPRB &
+  &, 0.166943E+00_JPRB, 0.159407E+00_JPRB, 0.152104E+00_JPRB, 0.145056E+00_JPRB &
+  &, 0.138200E+00_JPRB, 0.131639E+00_JPRB, 0.125310E+00_JPRB &
+  &, 0.119186E+00_JPRB, 0.113284E+00_JPRB, 0.107623E+00_JPRB, 0.102173E+00_JPRB &
+  &, 0.969510E-01_JPRB, 0.919253E-01_JPRB, 0.871107E-01_JPRB &
+  &, 0.824723E-01_JPRB, 0.780741E-01_JPRB, 0.738290E-01_JPRB, 0.698006E-01_JPRB &
+  &, 0.658971E-01_JPRB, 0.622355E-01_JPRB, 0.587214E-01_JPRB &
+  &, 0.553648E-01_JPRB, 0.521760E-01_JPRB, 0.491087E-01_JPRB, 0.462285E-01_JPRB &
+  &, 0.434297E-01_JPRB, 0.408364E-01_JPRB, 0.383401E-01_JPRB &
+  &, 0.360077E-01_JPRB, 0.337866E-01_JPRB, 0.316835E-01_JPRB, 0.296418E-01_JPRB &
+  &, 0.277299E-01_JPRB, 0.259547E-01_JPRB, 0.242574E-01_JPRB/)
+XCW( 639, :) = (/ &
+  &  0.103250E+01_JPRB, 0.103967E+01_JPRB, 0.104645E+01_JPRB, 0.105282E+01_JPRB &
+  &, 0.105880E+01_JPRB, 0.106436E+01_JPRB, 0.106951E+01_JPRB &
+  &, 0.107424E+01_JPRB, 0.107854E+01_JPRB, 0.108242E+01_JPRB, 0.108586E+01_JPRB &
+  &, 0.108887E+01_JPRB, 0.109144E+01_JPRB, 0.109357E+01_JPRB &
+  &, 0.109525E+01_JPRB, 0.109648E+01_JPRB, 0.109726E+01_JPRB, 0.109759E+01_JPRB &
+  &, 0.109746E+01_JPRB, 0.109687E+01_JPRB, 0.109583E+01_JPRB &
+  &, 0.109433E+01_JPRB, 0.109237E+01_JPRB, 0.108995E+01_JPRB, 0.108707E+01_JPRB &
+  &, 0.108374E+01_JPRB, 0.107996E+01_JPRB, 0.107572E+01_JPRB &
+  &, 0.107103E+01_JPRB, 0.106589E+01_JPRB, 0.106032E+01_JPRB, 0.105431E+01_JPRB &
+  &, 0.104786E+01_JPRB, 0.104099E+01_JPRB, 0.103369E+01_JPRB &
+  &, 0.102599E+01_JPRB, 0.101788E+01_JPRB, 0.100936E+01_JPRB, 0.100045E+01_JPRB &
+  &, 0.991175E+00_JPRB, 0.981517E+00_JPRB, 0.971500E+00_JPRB &
+  &, 0.961136E+00_JPRB, 0.950419E+00_JPRB, 0.939394E+00_JPRB, 0.928035E+00_JPRB &
+  &, 0.916369E+00_JPRB, 0.904426E+00_JPRB, 0.892199E+00_JPRB &
+  &, 0.879696E+00_JPRB, 0.866953E+00_JPRB, 0.853971E+00_JPRB, 0.840761E+00_JPRB &
+  &, 0.827338E+00_JPRB, 0.813717E+00_JPRB, 0.799930E+00_JPRB &
+  &, 0.785966E+00_JPRB, 0.771857E+00_JPRB, 0.757607E+00_JPRB, 0.743236E+00_JPRB &
+  &, 0.728764E+00_JPRB, 0.714194E+00_JPRB, 0.699565E+00_JPRB &
+  &, 0.684864E+00_JPRB, 0.670110E+00_JPRB, 0.655343E+00_JPRB, 0.640548E+00_JPRB &
+  &, 0.625745E+00_JPRB, 0.610974E+00_JPRB, 0.596217E+00_JPRB &
+  &, 0.581494E+00_JPRB, 0.566844E+00_JPRB, 0.552246E+00_JPRB, 0.537718E+00_JPRB &
+  &, 0.523300E+00_JPRB, 0.508965E+00_JPRB, 0.494776E+00_JPRB &
+  &, 0.480679E+00_JPRB, 0.466737E+00_JPRB, 0.452941E+00_JPRB, 0.439305E+00_JPRB &
+  &, 0.425842E+00_JPRB, 0.412538E+00_JPRB, 0.399430E+00_JPRB &
+  &, 0.386530E+00_JPRB, 0.373791E+00_JPRB, 0.361305E+00_JPRB, 0.348994E+00_JPRB &
+  &, 0.336922E+00_JPRB, 0.325063E+00_JPRB, 0.313453E+00_JPRB &
+  &, 0.302094E+00_JPRB, 0.290956E+00_JPRB, 0.280038E+00_JPRB, 0.269405E+00_JPRB &
+  &, 0.258987E+00_JPRB, 0.248850E+00_JPRB, 0.238953E+00_JPRB &
+  &, 0.229290E+00_JPRB, 0.219925E+00_JPRB, 0.210777E+00_JPRB, 0.201908E+00_JPRB &
+  &, 0.193309E+00_JPRB, 0.184927E+00_JPRB, 0.176827E+00_JPRB &
+  &, 0.168952E+00_JPRB, 0.161326E+00_JPRB, 0.153971E+00_JPRB, 0.146869E+00_JPRB &
+  &, 0.139998E+00_JPRB, 0.133336E+00_JPRB, 0.126945E+00_JPRB &
+  &, 0.120756E+00_JPRB, 0.114833E+00_JPRB, 0.109103E+00_JPRB, 0.103629E+00_JPRB &
+  &, 0.983338E-01_JPRB, 0.932806E-01_JPRB, 0.883879E-01_JPRB &
+  &, 0.837187E-01_JPRB, 0.792377E-01_JPRB, 0.749584E-01_JPRB, 0.708943E-01_JPRB &
+  &, 0.669539E-01_JPRB, 0.632539E-01_JPRB, 0.596999E-01_JPRB &
+  &, 0.563021E-01_JPRB, 0.530147E-01_JPRB, 0.499591E-01_JPRB, 0.470333E-01_JPRB &
+  &, 0.442456E-01_JPRB, 0.416045E-01_JPRB, 0.390588E-01_JPRB &
+  &, 0.366754E-01_JPRB, 0.344019E-01_JPRB, 0.322447E-01_JPRB, 0.302105E-01_JPRB &
+  &, 0.283061E-01_JPRB, 0.264736E-01_JPRB, 0.247831E-01_JPRB/)
+XCW( 640, :) = (/ &
+  &  0.103278E+01_JPRB, 0.104002E+01_JPRB, 0.104686E+01_JPRB, 0.105331E+01_JPRB &
+  &, 0.105935E+01_JPRB, 0.106499E+01_JPRB, 0.107021E+01_JPRB &
+  &, 0.107501E+01_JPRB, 0.107939E+01_JPRB, 0.108334E+01_JPRB, 0.108685E+01_JPRB &
+  &, 0.108994E+01_JPRB, 0.109258E+01_JPRB, 0.109478E+01_JPRB &
+  &, 0.109653E+01_JPRB, 0.109784E+01_JPRB, 0.109869E+01_JPRB, 0.109909E+01_JPRB &
+  &, 0.109903E+01_JPRB, 0.109852E+01_JPRB, 0.109755E+01_JPRB &
+  &, 0.109612E+01_JPRB, 0.109423E+01_JPRB, 0.109188E+01_JPRB, 0.108908E+01_JPRB &
+  &, 0.108582E+01_JPRB, 0.108210E+01_JPRB, 0.107793E+01_JPRB &
+  &, 0.107331E+01_JPRB, 0.106824E+01_JPRB, 0.106273E+01_JPRB, 0.105678E+01_JPRB &
+  &, 0.105040E+01_JPRB, 0.104358E+01_JPRB, 0.103635E+01_JPRB &
+  &, 0.102871E+01_JPRB, 0.102065E+01_JPRB, 0.101219E+01_JPRB, 0.100334E+01_JPRB &
+  &, 0.994115E+00_JPRB, 0.984510E+00_JPRB, 0.974546E+00_JPRB &
+  &, 0.964225E+00_JPRB, 0.953564E+00_JPRB, 0.942570E+00_JPRB, 0.931255E+00_JPRB &
+  &, 0.919644E+00_JPRB, 0.907731E+00_JPRB, 0.895534E+00_JPRB &
+  &, 0.883073E+00_JPRB, 0.870358E+00_JPRB, 0.857403E+00_JPRB, 0.844219E+00_JPRB &
+  &, 0.830820E+00_JPRB, 0.817238E+00_JPRB, 0.803459E+00_JPRB &
+  &, 0.789515E+00_JPRB, 0.775425E+00_JPRB, 0.761193E+00_JPRB, 0.746838E+00_JPRB &
+  &, 0.732363E+00_JPRB, 0.717822E+00_JPRB, 0.703186E+00_JPRB &
+  &, 0.688475E+00_JPRB, 0.673745E+00_JPRB, 0.658964E+00_JPRB, 0.644170E+00_JPRB &
+  &, 0.629367E+00_JPRB, 0.614573E+00_JPRB, 0.599790E+00_JPRB &
+  &, 0.585079E+00_JPRB, 0.570397E+00_JPRB, 0.555764E+00_JPRB, 0.541241E+00_JPRB &
+  &, 0.526781E+00_JPRB, 0.512447E+00_JPRB, 0.498209E+00_JPRB &
+  &, 0.484084E+00_JPRB, 0.470111E+00_JPRB, 0.456281E+00_JPRB, 0.442607E+00_JPRB &
+  &, 0.429103E+00_JPRB, 0.415782E+00_JPRB, 0.402627E+00_JPRB &
+  &, 0.389649E+00_JPRB, 0.376912E+00_JPRB, 0.364341E+00_JPRB, 0.351998E+00_JPRB &
+  &, 0.339891E+00_JPRB, 0.327996E+00_JPRB, 0.316314E+00_JPRB &
+  &, 0.304880E+00_JPRB, 0.293696E+00_JPRB, 0.282761E+00_JPRB, 0.272043E+00_JPRB &
+  &, 0.261570E+00_JPRB, 0.251373E+00_JPRB, 0.241415E+00_JPRB &
+  &, 0.231723E+00_JPRB, 0.222290E+00_JPRB, 0.213108E+00_JPRB, 0.204166E+00_JPRB &
+  &, 0.195489E+00_JPRB, 0.187066E+00_JPRB, 0.178882E+00_JPRB &
+  &, 0.170961E+00_JPRB, 0.163286E+00_JPRB, 0.155880E+00_JPRB, 0.148724E+00_JPRB &
+  &, 0.141754E+00_JPRB, 0.135076E+00_JPRB, 0.128624E+00_JPRB &
+  &, 0.122416E+00_JPRB, 0.116382E+00_JPRB, 0.110630E+00_JPRB, 0.105085E+00_JPRB &
+  &, 0.997643E-01_JPRB, 0.946358E-01_JPRB, 0.897143E-01_JPRB &
+  &, 0.849651E-01_JPRB, 0.804519E-01_JPRB, 0.761391E-01_JPRB, 0.719881E-01_JPRB &
+  &, 0.680634E-01_JPRB, 0.642722E-01_JPRB, 0.606784E-01_JPRB &
+  &, 0.572394E-01_JPRB, 0.539652E-01_JPRB, 0.508096E-01_JPRB, 0.478381E-01_JPRB &
+  &, 0.450033E-01_JPRB, 0.423135E-01_JPRB, 0.397775E-01_JPRB &
+  &, 0.373432E-01_JPRB, 0.350786E-01_JPRB, 0.328682E-01_JPRB, 0.308423E-01_JPRB &
+  &, 0.288823E-01_JPRB, 0.269925E-01_JPRB, 0.253088E-01_JPRB/)
+XCW( 641, :) = (/ &
+  &  0.103305E+01_JPRB, 0.104036E+01_JPRB, 0.104728E+01_JPRB, 0.105379E+01_JPRB &
+  &, 0.105991E+01_JPRB, 0.106562E+01_JPRB, 0.107091E+01_JPRB &
+  &, 0.107578E+01_JPRB, 0.108023E+01_JPRB, 0.108426E+01_JPRB, 0.108785E+01_JPRB &
+  &, 0.109100E+01_JPRB, 0.109372E+01_JPRB, 0.109599E+01_JPRB &
+  &, 0.109782E+01_JPRB, 0.109920E+01_JPRB, 0.110013E+01_JPRB, 0.110060E+01_JPRB &
+  &, 0.110062E+01_JPRB, 0.110018E+01_JPRB, 0.109928E+01_JPRB &
+  &, 0.109792E+01_JPRB, 0.109610E+01_JPRB, 0.109382E+01_JPRB, 0.109109E+01_JPRB &
+  &, 0.108790E+01_JPRB, 0.108425E+01_JPRB, 0.108014E+01_JPRB &
+  &, 0.107559E+01_JPRB, 0.107059E+01_JPRB, 0.106514E+01_JPRB, 0.105926E+01_JPRB &
+  &, 0.105294E+01_JPRB, 0.104619E+01_JPRB, 0.103901E+01_JPRB &
+  &, 0.103142E+01_JPRB, 0.102343E+01_JPRB, 0.101503E+01_JPRB, 0.100624E+01_JPRB &
+  &, 0.997055E+00_JPRB, 0.987503E+00_JPRB, 0.977593E+00_JPRB &
+  &, 0.967315E+00_JPRB, 0.956708E+00_JPRB, 0.945758E+00_JPRB, 0.934486E+00_JPRB &
+  &, 0.922919E+00_JPRB, 0.911036E+00_JPRB, 0.898881E+00_JPRB &
+  &, 0.886463E+00_JPRB, 0.873777E+00_JPRB, 0.860849E+00_JPRB, 0.847705E+00_JPRB &
+  &, 0.834332E+00_JPRB, 0.820759E+00_JPRB, 0.807017E+00_JPRB &
+  &, 0.793095E+00_JPRB, 0.779009E+00_JPRB, 0.764795E+00_JPRB, 0.750456E+00_JPRB &
+  &, 0.735995E+00_JPRB, 0.721450E+00_JPRB, 0.706825E+00_JPRB &
+  &, 0.692122E+00_JPRB, 0.677381E+00_JPRB, 0.662604E+00_JPRB, 0.647793E+00_JPRB &
+  &, 0.632989E+00_JPRB, 0.618192E+00_JPRB, 0.603404E+00_JPRB &
+  &, 0.588664E+00_JPRB, 0.573972E+00_JPRB, 0.559325E+00_JPRB, 0.544764E+00_JPRB &
+  &, 0.530307E+00_JPRB, 0.515929E+00_JPRB, 0.501666E+00_JPRB &
+  &, 0.487514E+00_JPRB, 0.473510E+00_JPRB, 0.459646E+00_JPRB, 0.445935E+00_JPRB &
+  &, 0.432391E+00_JPRB, 0.419026E+00_JPRB, 0.405825E+00_JPRB &
+  &, 0.392824E+00_JPRB, 0.380033E+00_JPRB, 0.367434E+00_JPRB, 0.355031E+00_JPRB &
+  &, 0.342861E+00_JPRB, 0.330928E+00_JPRB, 0.319207E+00_JPRB &
+  &, 0.307730E+00_JPRB, 0.296468E+00_JPRB, 0.285484E+00_JPRB, 0.274714E+00_JPRB &
+  &, 0.264186E+00_JPRB, 0.253932E+00_JPRB, 0.243912E+00_JPRB &
+  &, 0.234155E+00_JPRB, 0.224655E+00_JPRB, 0.215439E+00_JPRB, 0.206423E+00_JPRB &
+  &, 0.197708E+00_JPRB, 0.189205E+00_JPRB, 0.180977E+00_JPRB &
+  &, 0.173010E+00_JPRB, 0.165286E+00_JPRB, 0.157788E+00_JPRB, 0.150578E+00_JPRB &
+  &, 0.143595E+00_JPRB, 0.136816E+00_JPRB, 0.130303E+00_JPRB &
+  &, 0.124032E+00_JPRB, 0.117977E+00_JPRB, 0.112157E+00_JPRB, 0.106541E+00_JPRB &
+  &, 0.101195E+00_JPRB, 0.959911E-01_JPRB, 0.910407E-01_JPRB &
+  &, 0.862614E-01_JPRB, 0.817168E-01_JPRB, 0.773198E-01_JPRB, 0.731339E-01_JPRB &
+  &, 0.691202E-01_JPRB, 0.652905E-01_JPRB, 0.616570E-01_JPRB &
+  &, 0.581767E-01_JPRB, 0.548598E-01_JPRB, 0.517167E-01_JPRB, 0.487004E-01_JPRB &
+  &, 0.458192E-01_JPRB, 0.430816E-01_JPRB, 0.404961E-01_JPRB &
+  &, 0.380716E-01_JPRB, 0.356939E-01_JPRB, 0.334916E-01_JPRB, 0.314109E-01_JPRB &
+  &, 0.294584E-01_JPRB, 0.275763E-01_JPRB, 0.257688E-01_JPRB/)
+XCW( 642, :) = (/ &
+  &  0.103332E+01_JPRB, 0.104070E+01_JPRB, 0.104769E+01_JPRB, 0.105428E+01_JPRB &
+  &, 0.106047E+01_JPRB, 0.106625E+01_JPRB, 0.107161E+01_JPRB &
+  &, 0.107656E+01_JPRB, 0.108108E+01_JPRB, 0.108518E+01_JPRB, 0.108884E+01_JPRB &
+  &, 0.109207E+01_JPRB, 0.109486E+01_JPRB, 0.109721E+01_JPRB &
+  &, 0.109911E+01_JPRB, 0.110056E+01_JPRB, 0.110156E+01_JPRB, 0.110211E+01_JPRB &
+  &, 0.110220E+01_JPRB, 0.110183E+01_JPRB, 0.110100E+01_JPRB &
+  &, 0.109972E+01_JPRB, 0.109797E+01_JPRB, 0.109577E+01_JPRB, 0.109310E+01_JPRB &
+  &, 0.108998E+01_JPRB, 0.108640E+01_JPRB, 0.108236E+01_JPRB &
+  &, 0.107788E+01_JPRB, 0.107294E+01_JPRB, 0.106756E+01_JPRB, 0.106174E+01_JPRB &
+  &, 0.105549E+01_JPRB, 0.104880E+01_JPRB, 0.104169E+01_JPRB &
+  &, 0.103416E+01_JPRB, 0.102622E+01_JPRB, 0.101787E+01_JPRB, 0.100914E+01_JPRB &
+  &, 0.100002E+01_JPRB, 0.990517E+00_JPRB, 0.980650E+00_JPRB &
+  &, 0.970427E+00_JPRB, 0.959864E+00_JPRB, 0.948957E+00_JPRB, 0.937729E+00_JPRB &
+  &, 0.926193E+00_JPRB, 0.914367E+00_JPRB, 0.902242E+00_JPRB &
+  &, 0.889853E+00_JPRB, 0.877209E+00_JPRB, 0.864308E+00_JPRB, 0.851191E+00_JPRB &
+  &, 0.837844E+00_JPRB, 0.824309E+00_JPRB, 0.810576E+00_JPRB &
+  &, 0.796674E+00_JPRB, 0.782609E+00_JPRB, 0.768413E+00_JPRB, 0.754074E+00_JPRB &
+  &, 0.739628E+00_JPRB, 0.725096E+00_JPRB, 0.710464E+00_JPRB &
+  &, 0.695770E+00_JPRB, 0.681035E+00_JPRB, 0.666244E+00_JPRB, 0.651454E+00_JPRB &
+  &, 0.636630E+00_JPRB, 0.621811E+00_JPRB, 0.607038E+00_JPRB &
+  &, 0.592270E+00_JPRB, 0.577567E+00_JPRB, 0.562908E+00_JPRB, 0.548331E+00_JPRB &
+  &, 0.533834E+00_JPRB, 0.519434E+00_JPRB, 0.505147E+00_JPRB &
+  &, 0.490967E+00_JPRB, 0.476933E+00_JPRB, 0.463036E+00_JPRB, 0.449288E+00_JPRB &
+  &, 0.435705E+00_JPRB, 0.422297E+00_JPRB, 0.409022E+00_JPRB &
+  &, 0.396026E+00_JPRB, 0.383183E+00_JPRB, 0.370527E+00_JPRB, 0.358094E+00_JPRB &
+  &, 0.345860E+00_JPRB, 0.333891E+00_JPRB, 0.322099E+00_JPRB &
+  &, 0.310580E+00_JPRB, 0.299272E+00_JPRB, 0.288207E+00_JPRB, 0.277385E+00_JPRB &
+  &, 0.266836E+00_JPRB, 0.256524E+00_JPRB, 0.246444E+00_JPRB &
+  &, 0.236624E+00_JPRB, 0.227093E+00_JPRB, 0.217770E+00_JPRB, 0.208718E+00_JPRB &
+  &, 0.199927E+00_JPRB, 0.191383E+00_JPRB, 0.183112E+00_JPRB &
+  &, 0.175059E+00_JPRB, 0.167287E+00_JPRB, 0.159738E+00_JPRB, 0.152475E+00_JPRB &
+  &, 0.145394E+00_JPRB, 0.138599E+00_JPRB, 0.132026E+00_JPRB &
+  &, 0.125692E+00_JPRB, 0.119618E+00_JPRB, 0.113730E+00_JPRB, 0.108044E+00_JPRB &
+  &, 0.102625E+00_JPRB, 0.973947E-01_JPRB, 0.923671E-01_JPRB &
+  &, 0.875577E-01_JPRB, 0.829310E-01_JPRB, 0.785004E-01_JPRB, 0.742797E-01_JPRB &
+  &, 0.702297E-01_JPRB, 0.663625E-01_JPRB, 0.626899E-01_JPRB &
+  &, 0.591691E-01_JPRB, 0.558103E-01_JPRB, 0.525671E-01_JPRB, 0.495052E-01_JPRB &
+  &, 0.466351E-01_JPRB, 0.438497E-01_JPRB, 0.412148E-01_JPRB &
+  &, 0.387394E-01_JPRB, 0.363706E-01_JPRB, 0.341775E-01_JPRB, 0.320427E-01_JPRB &
+  &, 0.300346E-01_JPRB, 0.280951E-01_JPRB, 0.262945E-01_JPRB/)
+XCW( 643, :) = (/ &
+  &  0.103360E+01_JPRB, 0.104105E+01_JPRB, 0.104811E+01_JPRB, 0.105477E+01_JPRB &
+  &, 0.106103E+01_JPRB, 0.106688E+01_JPRB, 0.107231E+01_JPRB &
+  &, 0.107733E+01_JPRB, 0.108193E+01_JPRB, 0.108610E+01_JPRB, 0.108984E+01_JPRB &
+  &, 0.109314E+01_JPRB, 0.109601E+01_JPRB, 0.109843E+01_JPRB &
+  &, 0.110040E+01_JPRB, 0.110193E+01_JPRB, 0.110300E+01_JPRB, 0.110362E+01_JPRB &
+  &, 0.110379E+01_JPRB, 0.110349E+01_JPRB, 0.110274E+01_JPRB &
+  &, 0.110152E+01_JPRB, 0.109985E+01_JPRB, 0.109771E+01_JPRB, 0.109512E+01_JPRB &
+  &, 0.109207E+01_JPRB, 0.108856E+01_JPRB, 0.108458E+01_JPRB &
+  &, 0.108017E+01_JPRB, 0.107530E+01_JPRB, 0.106999E+01_JPRB, 0.106423E+01_JPRB &
+  &, 0.105804E+01_JPRB, 0.105142E+01_JPRB, 0.104437E+01_JPRB &
+  &, 0.103689E+01_JPRB, 0.102901E+01_JPRB, 0.102073E+01_JPRB, 0.101204E+01_JPRB &
+  &, 0.100298E+01_JPRB, 0.993531E+00_JPRB, 0.983718E+00_JPRB &
+  &, 0.973550E+00_JPRB, 0.963031E+00_JPRB, 0.952169E+00_JPRB, 0.940985E+00_JPRB &
+  &, 0.929493E+00_JPRB, 0.917697E+00_JPRB, 0.905616E+00_JPRB &
+  &, 0.893269E+00_JPRB, 0.880654E+00_JPRB, 0.867796E+00_JPRB, 0.854692E+00_JPRB &
+  &, 0.841384E+00_JPRB, 0.827860E+00_JPRB, 0.814149E+00_JPRB &
+  &, 0.800270E+00_JPRB, 0.786224E+00_JPRB, 0.772047E+00_JPRB, 0.757725E+00_JPRB &
+  &, 0.743295E+00_JPRB, 0.728759E+00_JPRB, 0.714138E+00_JPRB &
+  &, 0.699454E+00_JPRB, 0.684708E+00_JPRB, 0.669921E+00_JPRB, 0.655115E+00_JPRB &
+  &, 0.640292E+00_JPRB, 0.625471E+00_JPRB, 0.610672E+00_JPRB &
+  &, 0.595897E+00_JPRB, 0.581163E+00_JPRB, 0.566491E+00_JPRB, 0.551899E+00_JPRB &
+  &, 0.537384E+00_JPRB, 0.522962E+00_JPRB, 0.508628E+00_JPRB &
+  &, 0.494445E+00_JPRB, 0.480381E+00_JPRB, 0.466451E+00_JPRB, 0.452668E+00_JPRB &
+  &, 0.439045E+00_JPRB, 0.425595E+00_JPRB, 0.412328E+00_JPRB &
+  &, 0.399229E+00_JPRB, 0.386333E+00_JPRB, 0.373649E+00_JPRB, 0.361156E+00_JPRB &
+  &, 0.348889E+00_JPRB, 0.336854E+00_JPRB, 0.325023E+00_JPRB &
+  &, 0.313461E+00_JPRB, 0.302109E+00_JPRB, 0.290996E+00_JPRB, 0.280123E+00_JPRB &
+  &, 0.269486E+00_JPRB, 0.259117E+00_JPRB, 0.249012E+00_JPRB &
+  &, 0.239128E+00_JPRB, 0.229494E+00_JPRB, 0.220138E+00_JPRB, 0.211051E+00_JPRB &
+  &, 0.202184E+00_JPRB, 0.193600E+00_JPRB, 0.185247E+00_JPRB &
+  &, 0.177148E+00_JPRB, 0.169329E+00_JPRB, 0.161729E+00_JPRB, 0.154372E+00_JPRB &
+  &, 0.147278E+00_JPRB, 0.140383E+00_JPRB, 0.133793E+00_JPRB &
+  &, 0.127397E+00_JPRB, 0.121212E+00_JPRB, 0.115303E+00_JPRB, 0.109594E+00_JPRB &
+  &, 0.104104E+00_JPRB, 0.987984E-01_JPRB, 0.937427E-01_JPRB &
+  &, 0.888539E-01_JPRB, 0.841958E-01_JPRB, 0.797325E-01_JPRB, 0.754776E-01_JPRB &
+  &, 0.713393E-01_JPRB, 0.674344E-01_JPRB, 0.637227E-01_JPRB &
+  &, 0.601615E-01_JPRB, 0.567608E-01_JPRB, 0.534743E-01_JPRB, 0.504250E-01_JPRB &
+  &, 0.474511E-01_JPRB, 0.446768E-01_JPRB, 0.419934E-01_JPRB &
+  &, 0.394678E-01_JPRB, 0.370474E-01_JPRB, 0.348010E-01_JPRB, 0.326745E-01_JPRB &
+  &, 0.306108E-01_JPRB, 0.286789E-01_JPRB, 0.268201E-01_JPRB/)
+XCW( 644, :) = (/ &
+  &  0.103387E+01_JPRB, 0.104139E+01_JPRB, 0.104852E+01_JPRB, 0.105525E+01_JPRB &
+  &, 0.106158E+01_JPRB, 0.106751E+01_JPRB, 0.107302E+01_JPRB &
+  &, 0.107811E+01_JPRB, 0.108278E+01_JPRB, 0.108703E+01_JPRB, 0.109084E+01_JPRB &
+  &, 0.109421E+01_JPRB, 0.109715E+01_JPRB, 0.109965E+01_JPRB &
+  &, 0.110170E+01_JPRB, 0.110330E+01_JPRB, 0.110445E+01_JPRB, 0.110514E+01_JPRB &
+  &, 0.110538E+01_JPRB, 0.110515E+01_JPRB, 0.110447E+01_JPRB &
+  &, 0.110333E+01_JPRB, 0.110173E+01_JPRB, 0.109966E+01_JPRB, 0.109714E+01_JPRB &
+  &, 0.109416E+01_JPRB, 0.109072E+01_JPRB, 0.108682E+01_JPRB &
+  &, 0.108247E+01_JPRB, 0.107767E+01_JPRB, 0.107242E+01_JPRB, 0.106673E+01_JPRB &
+  &, 0.106060E+01_JPRB, 0.105404E+01_JPRB, 0.104705E+01_JPRB &
+  &, 0.103964E+01_JPRB, 0.103182E+01_JPRB, 0.102359E+01_JPRB, 0.101497E+01_JPRB &
+  &, 0.100596E+01_JPRB, 0.996555E+00_JPRB, 0.986797E+00_JPRB &
+  &, 0.976673E+00_JPRB, 0.966198E+00_JPRB, 0.955391E+00_JPRB, 0.944252E+00_JPRB &
+  &, 0.932804E+00_JPRB, 0.921052E+00_JPRB, 0.909002E+00_JPRB &
+  &, 0.896686E+00_JPRB, 0.884113E+00_JPRB, 0.871283E+00_JPRB, 0.858220E+00_JPRB &
+  &, 0.844925E+00_JPRB, 0.831440E+00_JPRB, 0.817753E+00_JPRB &
+  &, 0.803881E+00_JPRB, 0.789856E+00_JPRB, 0.775697E+00_JPRB, 0.761393E+00_JPRB &
+  &, 0.746961E+00_JPRB, 0.732439E+00_JPRB, 0.717830E+00_JPRB &
+  &, 0.703137E+00_JPRB, 0.688399E+00_JPRB, 0.673618E+00_JPRB, 0.658796E+00_JPRB &
+  &, 0.643973E+00_JPRB, 0.629150E+00_JPRB, 0.614327E+00_JPRB &
+  &, 0.599545E+00_JPRB, 0.584802E+00_JPRB, 0.570118E+00_JPRB, 0.555489E+00_JPRB &
+  &, 0.540956E+00_JPRB, 0.526514E+00_JPRB, 0.512157E+00_JPRB &
+  &, 0.497923E+00_JPRB, 0.483830E+00_JPRB, 0.469866E+00_JPRB, 0.456047E+00_JPRB &
+  &, 0.442385E+00_JPRB, 0.428919E+00_JPRB, 0.415607E+00_JPRB &
+  &, 0.402459E+00_JPRB, 0.389539E+00_JPRB, 0.376800E+00_JPRB, 0.364278E+00_JPRB &
+  &, 0.351948E+00_JPRB, 0.339847E+00_JPRB, 0.327977E+00_JPRB &
+  &, 0.316343E+00_JPRB, 0.304945E+00_JPRB, 0.293785E+00_JPRB, 0.282861E+00_JPRB &
+  &, 0.272171E+00_JPRB, 0.261745E+00_JPRB, 0.251579E+00_JPRB &
+  &, 0.241632E+00_JPRB, 0.231968E+00_JPRB, 0.222543E+00_JPRB, 0.213384E+00_JPRB &
+  &, 0.204479E+00_JPRB, 0.195816E+00_JPRB, 0.187421E+00_JPRB &
+  &, 0.179278E+00_JPRB, 0.171370E+00_JPRB, 0.163721E+00_JPRB, 0.156311E+00_JPRB &
+  &, 0.149119E+00_JPRB, 0.142210E+00_JPRB, 0.135516E+00_JPRB &
+  &, 0.129102E+00_JPRB, 0.122853E+00_JPRB, 0.116876E+00_JPRB, 0.111097E+00_JPRB &
+  &, 0.105582E+00_JPRB, 0.100250E+00_JPRB, 0.951182E-01_JPRB &
+  &, 0.902000E-01_JPRB, 0.855112E-01_JPRB, 0.809645E-01_JPRB, 0.766234E-01_JPRB &
+  &, 0.725017E-01_JPRB, 0.685599E-01_JPRB, 0.647556E-01_JPRB &
+  &, 0.611539E-01_JPRB, 0.577113E-01_JPRB, 0.543814E-01_JPRB, 0.512872E-01_JPRB &
+  &, 0.482670E-01_JPRB, 0.454449E-01_JPRB, 0.427720E-01_JPRB &
+  &, 0.401963E-01_JPRB, 0.377857E-01_JPRB, 0.354868E-01_JPRB, 0.332432E-01_JPRB &
+  &, 0.311869E-01_JPRB, 0.292627E-01_JPRB, 0.274115E-01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART92',1,ZHOOK_HANDLE)
+END SUBROUTINE PART92
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART93
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART93',0,ZHOOK_HANDLE)
+
+XCW( 645, :) = (/ &
+  &  0.103415E+01_JPRB, 0.104174E+01_JPRB, 0.104894E+01_JPRB, 0.105574E+01_JPRB &
+  &, 0.106214E+01_JPRB, 0.106814E+01_JPRB, 0.107372E+01_JPRB &
+  &, 0.107889E+01_JPRB, 0.108363E+01_JPRB, 0.108795E+01_JPRB, 0.109184E+01_JPRB &
+  &, 0.109529E+01_JPRB, 0.109830E+01_JPRB, 0.110087E+01_JPRB &
+  &, 0.110300E+01_JPRB, 0.110467E+01_JPRB, 0.110589E+01_JPRB, 0.110666E+01_JPRB &
+  &, 0.110697E+01_JPRB, 0.110682E+01_JPRB, 0.110621E+01_JPRB &
+  &, 0.110514E+01_JPRB, 0.110361E+01_JPRB, 0.110162E+01_JPRB, 0.109917E+01_JPRB &
+  &, 0.109626E+01_JPRB, 0.109289E+01_JPRB, 0.108906E+01_JPRB &
+  &, 0.108477E+01_JPRB, 0.108004E+01_JPRB, 0.107486E+01_JPRB, 0.106923E+01_JPRB &
+  &, 0.106317E+01_JPRB, 0.105667E+01_JPRB, 0.104975E+01_JPRB &
+  &, 0.104240E+01_JPRB, 0.103463E+01_JPRB, 0.102646E+01_JPRB, 0.101790E+01_JPRB &
+  &, 0.100894E+01_JPRB, 0.999590E+00_JPRB, 0.989887E+00_JPRB &
+  &, 0.979807E+00_JPRB, 0.969388E+00_JPRB, 0.958626E+00_JPRB, 0.947531E+00_JPRB &
+  &, 0.936127E+00_JPRB, 0.924408E+00_JPRB, 0.912401E+00_JPRB &
+  &, 0.900128E+00_JPRB, 0.887572E+00_JPRB, 0.874784E+00_JPRB, 0.861749E+00_JPRB &
+  &, 0.848480E+00_JPRB, 0.835020E+00_JPRB, 0.821357E+00_JPRB &
+  &, 0.807522E+00_JPRB, 0.793519E+00_JPRB, 0.779299E+00_JPRB, 0.765061E+00_JPRB &
+  &, 0.750662E+00_JPRB, 0.736137E+00_JPRB, 0.721540E+00_JPRB &
+  &, 0.706857E+00_JPRB, 0.692109E+00_JPRB, 0.677334E+00_JPRB, 0.662515E+00_JPRB &
+  &, 0.647674E+00_JPRB, 0.632830E+00_JPRB, 0.618024E+00_JPRB &
+  &, 0.603214E+00_JPRB, 0.588463E+00_JPRB, 0.573745E+00_JPRB, 0.559102E+00_JPRB &
+  &, 0.544551E+00_JPRB, 0.530066E+00_JPRB, 0.515709E+00_JPRB &
+  &, 0.501450E+00_JPRB, 0.487228E+00_JPRB, 0.473307E+00_JPRB, 0.459478E+00_JPRB &
+  &, 0.445778E+00_JPRB, 0.432243E+00_JPRB, 0.418886E+00_JPRB &
+  &, 0.405717E+00_JPRB, 0.392745E+00_JPRB, 0.379951E+00_JPRB, 0.367399E+00_JPRB &
+  &, 0.355038E+00_JPRB, 0.342871E+00_JPRB, 0.330963E+00_JPRB &
+  &, 0.319256E+00_JPRB, 0.307814E+00_JPRB, 0.296607E+00_JPRB, 0.285599E+00_JPRB &
+  &, 0.274889E+00_JPRB, 0.264407E+00_JPRB, 0.254146E+00_JPRB &
+  &, 0.244172E+00_JPRB, 0.234443E+00_JPRB, 0.224949E+00_JPRB, 0.215754E+00_JPRB &
+  &, 0.206774E+00_JPRB, 0.198072E+00_JPRB, 0.189595E+00_JPRB &
+  &, 0.181367E+00_JPRB, 0.173411E+00_JPRB, 0.165712E+00_JPRB, 0.158250E+00_JPRB &
+  &, 0.151047E+00_JPRB, 0.144037E+00_JPRB, 0.137327E+00_JPRB &
+  &, 0.130807E+00_JPRB, 0.124538E+00_JPRB, 0.118495E+00_JPRB, 0.112694E+00_JPRB &
+  &, 0.107060E+00_JPRB, 0.101702E+00_JPRB, 0.964938E-01_JPRB &
+  &, 0.915462E-01_JPRB, 0.867760E-01_JPRB, 0.821965E-01_JPRB, 0.778213E-01_JPRB &
+  &, 0.736641E-01_JPRB, 0.696318E-01_JPRB, 0.658429E-01_JPRB &
+  &, 0.621463E-01_JPRB, 0.586618E-01_JPRB, 0.553452E-01_JPRB, 0.521495E-01_JPRB &
+  &, 0.491412E-01_JPRB, 0.462721E-01_JPRB, 0.435506E-01_JPRB &
+  &, 0.409247E-01_JPRB, 0.384624E-01_JPRB, 0.361103E-01_JPRB, 0.339382E-01_JPRB &
+  &, 0.318271E-01_JPRB, 0.298464E-01_JPRB, 0.279372E-01_JPRB/)
+XCW( 646, :) = (/ &
+  &  0.103442E+01_JPRB, 0.104208E+01_JPRB, 0.104935E+01_JPRB, 0.105623E+01_JPRB &
+  &, 0.106270E+01_JPRB, 0.106877E+01_JPRB, 0.107443E+01_JPRB &
+  &, 0.107967E+01_JPRB, 0.108448E+01_JPRB, 0.108888E+01_JPRB, 0.109284E+01_JPRB &
+  &, 0.109637E+01_JPRB, 0.109945E+01_JPRB, 0.110210E+01_JPRB &
+  &, 0.110429E+01_JPRB, 0.110604E+01_JPRB, 0.110734E+01_JPRB, 0.110818E+01_JPRB &
+  &, 0.110857E+01_JPRB, 0.110849E+01_JPRB, 0.110796E+01_JPRB &
+  &, 0.110696E+01_JPRB, 0.110550E+01_JPRB, 0.110358E+01_JPRB, 0.110120E+01_JPRB &
+  &, 0.109836E+01_JPRB, 0.109506E+01_JPRB, 0.109130E+01_JPRB &
+  &, 0.108708E+01_JPRB, 0.108242E+01_JPRB, 0.107730E+01_JPRB, 0.107174E+01_JPRB &
+  &, 0.106574E+01_JPRB, 0.105931E+01_JPRB, 0.105245E+01_JPRB &
+  &, 0.104516E+01_JPRB, 0.103745E+01_JPRB, 0.102934E+01_JPRB, 0.102083E+01_JPRB &
+  &, 0.101193E+01_JPRB, 0.100264E+01_JPRB, 0.992977E+00_JPRB &
+  &, 0.982952E+00_JPRB, 0.972578E+00_JPRB, 0.961860E+00_JPRB, 0.950822E+00_JPRB &
+  &, 0.939451E+00_JPRB, 0.927776E+00_JPRB, 0.915813E+00_JPRB &
+  &, 0.903571E+00_JPRB, 0.891058E+00_JPRB, 0.878299E+00_JPRB, 0.865291E+00_JPRB &
+  &, 0.852064E+00_JPRB, 0.838615E+00_JPRB, 0.824976E+00_JPRB &
+  &, 0.811164E+00_JPRB, 0.797182E+00_JPRB, 0.783031E+00_JPRB, 0.768762E+00_JPRB &
+  &, 0.754363E+00_JPRB, 0.739852E+00_JPRB, 0.725250E+00_JPRB &
+  &, 0.710577E+00_JPRB, 0.695837E+00_JPRB, 0.681049E+00_JPRB, 0.666235E+00_JPRB &
+  &, 0.651395E+00_JPRB, 0.636550E+00_JPRB, 0.621720E+00_JPRB &
+  &, 0.606905E+00_JPRB, 0.592123E+00_JPRB, 0.577416E+00_JPRB, 0.562737E+00_JPRB &
+  &, 0.548170E+00_JPRB, 0.533665E+00_JPRB, 0.519262E+00_JPRB &
+  &, 0.504976E+00_JPRB, 0.490825E+00_JPRB, 0.476798E+00_JPRB, 0.462909E+00_JPRB &
+  &, 0.449171E+00_JPRB, 0.435622E+00_JPRB, 0.422220E+00_JPRB &
+  &, 0.409003E+00_JPRB, 0.395980E+00_JPRB, 0.383160E+00_JPRB, 0.370521E+00_JPRB &
+  &, 0.358127E+00_JPRB, 0.345925E+00_JPRB, 0.333949E+00_JPRB &
+  &, 0.322201E+00_JPRB, 0.310715E+00_JPRB, 0.299428E+00_JPRB, 0.288404E+00_JPRB &
+  &, 0.277607E+00_JPRB, 0.267069E+00_JPRB, 0.256784E+00_JPRB &
+  &, 0.246748E+00_JPRB, 0.236953E+00_JPRB, 0.227391E+00_JPRB, 0.218125E+00_JPRB &
+  &, 0.209108E+00_JPRB, 0.200327E+00_JPRB, 0.191809E+00_JPRB &
+  &, 0.183536E+00_JPRB, 0.175494E+00_JPRB, 0.167745E+00_JPRB, 0.160231E+00_JPRB &
+  &, 0.152931E+00_JPRB, 0.145907E+00_JPRB, 0.139095E+00_JPRB &
+  &, 0.132557E+00_JPRB, 0.126224E+00_JPRB, 0.120114E+00_JPRB, 0.114245E+00_JPRB &
+  &, 0.108586E+00_JPRB, 0.103155E+00_JPRB, 0.979184E-01_JPRB &
+  &, 0.928923E-01_JPRB, 0.880914E-01_JPRB, 0.834799E-01_JPRB, 0.790713E-01_JPRB &
+  &, 0.748265E-01_JPRB, 0.707574E-01_JPRB, 0.668758E-01_JPRB &
+  &, 0.631939E-01_JPRB, 0.596682E-01_JPRB, 0.563091E-01_JPRB, 0.530693E-01_JPRB &
+  &, 0.500155E-01_JPRB, 0.470992E-01_JPRB, 0.443291E-01_JPRB &
+  &, 0.417139E-01_JPRB, 0.392007E-01_JPRB, 0.367962E-01_JPRB, 0.345700E-01_JPRB &
+  &, 0.324033E-01_JPRB, 0.304302E-01_JPRB, 0.285286E-01_JPRB/)
+XCW( 647, :) = (/ &
+  &  0.103470E+01_JPRB, 0.104243E+01_JPRB, 0.104977E+01_JPRB, 0.105672E+01_JPRB &
+  &, 0.106327E+01_JPRB, 0.106941E+01_JPRB, 0.107514E+01_JPRB &
+  &, 0.108045E+01_JPRB, 0.108534E+01_JPRB, 0.108981E+01_JPRB, 0.109384E+01_JPRB &
+  &, 0.109744E+01_JPRB, 0.110060E+01_JPRB, 0.110332E+01_JPRB &
+  &, 0.110560E+01_JPRB, 0.110742E+01_JPRB, 0.110879E+01_JPRB, 0.110970E+01_JPRB &
+  &, 0.111016E+01_JPRB, 0.111016E+01_JPRB, 0.110970E+01_JPRB &
+  &, 0.110878E+01_JPRB, 0.110740E+01_JPRB, 0.110555E+01_JPRB, 0.110324E+01_JPRB &
+  &, 0.110047E+01_JPRB, 0.109724E+01_JPRB, 0.109355E+01_JPRB &
+  &, 0.108940E+01_JPRB, 0.108480E+01_JPRB, 0.107975E+01_JPRB, 0.107426E+01_JPRB &
+  &, 0.106832E+01_JPRB, 0.106196E+01_JPRB, 0.105515E+01_JPRB &
+  &, 0.104792E+01_JPRB, 0.104029E+01_JPRB, 0.103223E+01_JPRB, 0.102377E+01_JPRB &
+  &, 0.101493E+01_JPRB, 0.100569E+01_JPRB, 0.996088E+00_JPRB &
+  &, 0.986120E+00_JPRB, 0.975790E+00_JPRB, 0.965118E+00_JPRB, 0.954113E+00_JPRB &
+  &, 0.942799E+00_JPRB, 0.931168E+00_JPRB, 0.919238E+00_JPRB &
+  &, 0.907026E+00_JPRB, 0.894557E+00_JPRB, 0.881827E+00_JPRB, 0.868848E+00_JPRB &
+  &, 0.855647E+00_JPRB, 0.842239E+00_JPRB, 0.828626E+00_JPRB &
+  &, 0.814822E+00_JPRB, 0.800861E+00_JPRB, 0.786730E+00_JPRB, 0.772463E+00_JPRB &
+  &, 0.758080E+00_JPRB, 0.743584E+00_JPRB, 0.728995E+00_JPRB &
+  &, 0.714316E+00_JPRB, 0.699584E+00_JPRB, 0.684803E+00_JPRB, 0.669973E+00_JPRB &
+  &, 0.655136E+00_JPRB, 0.640290E+00_JPRB, 0.625437E+00_JPRB &
+  &, 0.610616E+00_JPRB, 0.595827E+00_JPRB, 0.581087E+00_JPRB, 0.566394E+00_JPRB &
+  &, 0.551788E+00_JPRB, 0.537287E+00_JPRB, 0.522862E+00_JPRB &
+  &, 0.508527E+00_JPRB, 0.494348E+00_JPRB, 0.480290E+00_JPRB, 0.466366E+00_JPRB &
+  &, 0.452590E+00_JPRB, 0.439000E+00_JPRB, 0.425554E+00_JPRB &
+  &, 0.412317E+00_JPRB, 0.399243E+00_JPRB, 0.386369E+00_JPRB, 0.373701E+00_JPRB &
+  &, 0.361246E+00_JPRB, 0.349010E+00_JPRB, 0.336966E+00_JPRB &
+  &, 0.325177E+00_JPRB, 0.313616E+00_JPRB, 0.302283E+00_JPRB, 0.291209E+00_JPRB &
+  &, 0.280359E+00_JPRB, 0.269765E+00_JPRB, 0.259422E+00_JPRB &
+  &, 0.249324E+00_JPRB, 0.239464E+00_JPRB, 0.229870E+00_JPRB, 0.220533E+00_JPRB &
+  &, 0.211441E+00_JPRB, 0.202622E+00_JPRB, 0.194022E+00_JPRB &
+  &, 0.185706E+00_JPRB, 0.177617E+00_JPRB, 0.169778E+00_JPRB, 0.162212E+00_JPRB &
+  &, 0.154901E+00_JPRB, 0.147778E+00_JPRB, 0.140950E+00_JPRB &
+  &, 0.134307E+00_JPRB, 0.127910E+00_JPRB, 0.121780E+00_JPRB, 0.115842E+00_JPRB &
+  &, 0.110159E+00_JPRB, 0.104655E+00_JPRB, 0.993431E-01_JPRB &
+  &, 0.942882E-01_JPRB, 0.894068E-01_JPRB, 0.847632E-01_JPRB, 0.802692E-01_JPRB &
+  &, 0.759889E-01_JPRB, 0.718829E-01_JPRB, 0.679630E-01_JPRB &
+  &, 0.642414E-01_JPRB, 0.606747E-01_JPRB, 0.572729E-01_JPRB, 0.539891E-01_JPRB &
+  &, 0.508897E-01_JPRB, 0.479264E-01_JPRB, 0.451077E-01_JPRB &
+  &, 0.424423E-01_JPRB, 0.399390E-01_JPRB, 0.375444E-01_JPRB, 0.352018E-01_JPRB &
+  &, 0.330435E-01_JPRB, 0.310139E-01_JPRB, 0.290543E-01_JPRB/)
+XCW( 648, :) = (/ &
+  &  0.103497E+01_JPRB, 0.104277E+01_JPRB, 0.105019E+01_JPRB, 0.105721E+01_JPRB &
+  &, 0.106383E+01_JPRB, 0.107004E+01_JPRB, 0.107585E+01_JPRB &
+  &, 0.108123E+01_JPRB, 0.108620E+01_JPRB, 0.109074E+01_JPRB, 0.109485E+01_JPRB &
+  &, 0.109852E+01_JPRB, 0.110176E+01_JPRB, 0.110455E+01_JPRB &
+  &, 0.110690E+01_JPRB, 0.110880E+01_JPRB, 0.111024E+01_JPRB, 0.111123E+01_JPRB &
+  &, 0.111177E+01_JPRB, 0.111184E+01_JPRB, 0.111145E+01_JPRB &
+  &, 0.111060E+01_JPRB, 0.110929E+01_JPRB, 0.110752E+01_JPRB, 0.110528E+01_JPRB &
+  &, 0.110258E+01_JPRB, 0.109942E+01_JPRB, 0.109580E+01_JPRB &
+  &, 0.109172E+01_JPRB, 0.108719E+01_JPRB, 0.108221E+01_JPRB, 0.107679E+01_JPRB &
+  &, 0.107091E+01_JPRB, 0.106461E+01_JPRB, 0.105787E+01_JPRB &
+  &, 0.105070E+01_JPRB, 0.104312E+01_JPRB, 0.103512E+01_JPRB, 0.102673E+01_JPRB &
+  &, 0.101793E+01_JPRB, 0.100876E+01_JPRB, 0.999200E+00_JPRB &
+  &, 0.989287E+00_JPRB, 0.979003E+00_JPRB, 0.968387E+00_JPRB, 0.957428E+00_JPRB &
+  &, 0.946147E+00_JPRB, 0.934561E+00_JPRB, 0.922675E+00_JPRB &
+  &, 0.910509E+00_JPRB, 0.898056E+00_JPRB, 0.885370E+00_JPRB, 0.872419E+00_JPRB &
+  &, 0.859246E+00_JPRB, 0.845864E+00_JPRB, 0.832275E+00_JPRB &
+  &, 0.818494E+00_JPRB, 0.804556E+00_JPRB, 0.790445E+00_JPRB, 0.776197E+00_JPRB &
+  &, 0.761815E+00_JPRB, 0.747334E+00_JPRB, 0.732758E+00_JPRB &
+  &, 0.718090E+00_JPRB, 0.703349E+00_JPRB, 0.688556E+00_JPRB, 0.673731E+00_JPRB &
+  &, 0.658896E+00_JPRB, 0.644031E+00_JPRB, 0.629175E+00_JPRB &
+  &, 0.614349E+00_JPRB, 0.599530E+00_JPRB, 0.584780E+00_JPRB, 0.570074E+00_JPRB &
+  &, 0.555452E+00_JPRB, 0.540909E+00_JPRB, 0.526462E+00_JPRB &
+  &, 0.512127E+00_JPRB, 0.497895E+00_JPRB, 0.483806E+00_JPRB, 0.469849E+00_JPRB &
+  &, 0.456061E+00_JPRB, 0.442404E+00_JPRB, 0.428942E+00_JPRB &
+  &, 0.415631E+00_JPRB, 0.402535E+00_JPRB, 0.389606E+00_JPRB, 0.376911E+00_JPRB &
+  &, 0.364396E+00_JPRB, 0.352095E+00_JPRB, 0.340014E+00_JPRB &
+  &, 0.328186E+00_JPRB, 0.316550E+00_JPRB, 0.305170E+00_JPRB, 0.294047E+00_JPRB &
+  &, 0.283146E+00_JPRB, 0.272496E+00_JPRB, 0.262095E+00_JPRB &
+  &, 0.251935E+00_JPRB, 0.242011E+00_JPRB, 0.232349E+00_JPRB, 0.222978E+00_JPRB &
+  &, 0.213813E+00_JPRB, 0.204916E+00_JPRB, 0.196275E+00_JPRB &
+  &, 0.187915E+00_JPRB, 0.179740E+00_JPRB, 0.171852E+00_JPRB, 0.164236E+00_JPRB &
+  &, 0.156828E+00_JPRB, 0.149692E+00_JPRB, 0.142762E+00_JPRB &
+  &, 0.136102E+00_JPRB, 0.129642E+00_JPRB, 0.123445E+00_JPRB, 0.117439E+00_JPRB &
+  &, 0.111685E+00_JPRB, 0.106155E+00_JPRB, 0.100817E+00_JPRB &
+  &, 0.956842E-01_JPRB, 0.907728E-01_JPRB, 0.860466E-01_JPRB, 0.815192E-01_JPRB &
+  &, 0.772042E-01_JPRB, 0.730620E-01_JPRB, 0.691046E-01_JPRB &
+  &, 0.652890E-01_JPRB, 0.616811E-01_JPRB, 0.582367E-01_JPRB, 0.549088E-01_JPRB &
+  &, 0.518222E-01_JPRB, 0.488126E-01_JPRB, 0.459462E-01_JPRB &
+  &, 0.432315E-01_JPRB, 0.406773E-01_JPRB, 0.382302E-01_JPRB, 0.358968E-01_JPRB &
+  &, 0.336837E-01_JPRB, 0.315977E-01_JPRB, 0.296457E-01_JPRB/)
+XCW( 649, :) = (/ &
+  &  0.103525E+01_JPRB, 0.104312E+01_JPRB, 0.105061E+01_JPRB, 0.105770E+01_JPRB &
+  &, 0.106439E+01_JPRB, 0.107068E+01_JPRB, 0.107655E+01_JPRB &
+  &, 0.108201E+01_JPRB, 0.108705E+01_JPRB, 0.109167E+01_JPRB, 0.109585E+01_JPRB &
+  &, 0.109960E+01_JPRB, 0.110291E+01_JPRB, 0.110578E+01_JPRB &
+  &, 0.110821E+01_JPRB, 0.111013E+01_JPRB, 0.111170E+01_JPRB, 0.111276E+01_JPRB &
+  &, 0.111337E+01_JPRB, 0.111352E+01_JPRB, 0.111320E+01_JPRB &
+  &, 0.111243E+01_JPRB, 0.111119E+01_JPRB, 0.110949E+01_JPRB, 0.110732E+01_JPRB &
+  &, 0.110470E+01_JPRB, 0.110161E+01_JPRB, 0.109806E+01_JPRB &
+  &, 0.109405E+01_JPRB, 0.108959E+01_JPRB, 0.108467E+01_JPRB, 0.107932E+01_JPRB &
+  &, 0.107351E+01_JPRB, 0.106727E+01_JPRB, 0.106059E+01_JPRB &
+  &, 0.105348E+01_JPRB, 0.104596E+01_JPRB, 0.103803E+01_JPRB, 0.102969E+01_JPRB &
+  &, 0.102095E+01_JPRB, 0.101167E+01_JPRB, 0.100233E+01_JPRB &
+  &, 0.992454E+00_JPRB, 0.982227E+00_JPRB, 0.971657E+00_JPRB, 0.960742E+00_JPRB &
+  &, 0.949507E+00_JPRB, 0.937967E+00_JPRB, 0.926126E+00_JPRB &
+  &, 0.913991E+00_JPRB, 0.901583E+00_JPRB, 0.888926E+00_JPRB, 0.876004E+00_JPRB &
+  &, 0.862858E+00_JPRB, 0.849503E+00_JPRB, 0.835939E+00_JPRB &
+  &, 0.822183E+00_JPRB, 0.808251E+00_JPRB, 0.794177E+00_JPRB, 0.779932E+00_JPRB &
+  &, 0.765583E+00_JPRB, 0.751101E+00_JPRB, 0.736521E+00_JPRB &
+  &, 0.721865E+00_JPRB, 0.707133E+00_JPRB, 0.692348E+00_JPRB, 0.677528E+00_JPRB &
+  &, 0.662676E+00_JPRB, 0.647791E+00_JPRB, 0.632933E+00_JPRB &
+  &, 0.618082E+00_JPRB, 0.603277E+00_JPRB, 0.588495E+00_JPRB, 0.573776E+00_JPRB &
+  &, 0.559139E+00_JPRB, 0.544554E+00_JPRB, 0.530086E+00_JPRB &
+  &, 0.515727E+00_JPRB, 0.501468E+00_JPRB, 0.487348E+00_JPRB, 0.473357E+00_JPRB &
+  &, 0.459507E+00_JPRB, 0.445836E+00_JPRB, 0.432331E+00_JPRB &
+  &, 0.419000E+00_JPRB, 0.405826E+00_JPRB, 0.392873E+00_JPRB, 0.380120E+00_JPRB &
+  &, 0.367575E+00_JPRB, 0.355211E+00_JPRB, 0.343093E+00_JPRB &
+  &, 0.331194E+00_JPRB, 0.319515E+00_JPRB, 0.308090E+00_JPRB, 0.296885E+00_JPRB &
+  &, 0.285932E+00_JPRB, 0.275227E+00_JPRB, 0.264768E+00_JPRB &
+  &, 0.254547E+00_JPRB, 0.244594E+00_JPRB, 0.234865E+00_JPRB, 0.225424E+00_JPRB &
+  &, 0.216223E+00_JPRB, 0.207250E+00_JPRB, 0.198568E+00_JPRB &
+  &, 0.190125E+00_JPRB, 0.181904E+00_JPRB, 0.173968E+00_JPRB, 0.166259E+00_JPRB &
+  &, 0.158797E+00_JPRB, 0.151606E+00_JPRB, 0.144617E+00_JPRB &
+  &, 0.137897E+00_JPRB, 0.131419E+00_JPRB, 0.125157E+00_JPRB, 0.119083E+00_JPRB &
+  &, 0.113259E+00_JPRB, 0.107656E+00_JPRB, 0.102291E+00_JPRB &
+  &, 0.971301E-01_JPRB, 0.921388E-01_JPRB, 0.873813E-01_JPRB, 0.828212E-01_JPRB &
+  &, 0.784194E-01_JPRB, 0.742411E-01_JPRB, 0.702462E-01_JPRB &
+  &, 0.663917E-01_JPRB, 0.627434E-01_JPRB, 0.592006E-01_JPRB, 0.558861E-01_JPRB &
+  &, 0.526964E-01_JPRB, 0.496989E-01_JPRB, 0.467847E-01_JPRB &
+  &, 0.440206E-01_JPRB, 0.414156E-01_JPRB, 0.389784E-01_JPRB, 0.365917E-01_JPRB &
+  &, 0.343879E-01_JPRB, 0.322463E-01_JPRB, 0.302371E-01_JPRB/)
+XCW( 650, :) = (/ &
+  &  0.103552E+01_JPRB, 0.104347E+01_JPRB, 0.105103E+01_JPRB, 0.105819E+01_JPRB &
+  &, 0.106495E+01_JPRB, 0.107131E+01_JPRB, 0.107727E+01_JPRB &
+  &, 0.108280E+01_JPRB, 0.108791E+01_JPRB, 0.109260E+01_JPRB, 0.109686E+01_JPRB &
+  &, 0.110069E+01_JPRB, 0.110407E+01_JPRB, 0.110702E+01_JPRB &
+  &, 0.110951E+01_JPRB, 0.111156E+01_JPRB, 0.111316E+01_JPRB, 0.111430E+01_JPRB &
+  &, 0.111498E+01_JPRB, 0.111520E+01_JPRB, 0.111496E+01_JPRB &
+  &, 0.111426E+01_JPRB, 0.111310E+01_JPRB, 0.111147E+01_JPRB, 0.110937E+01_JPRB &
+  &, 0.110682E+01_JPRB, 0.110380E+01_JPRB, 0.110032E+01_JPRB &
+  &, 0.109638E+01_JPRB, 0.109199E+01_JPRB, 0.108714E+01_JPRB, 0.108185E+01_JPRB &
+  &, 0.107611E+01_JPRB, 0.106993E+01_JPRB, 0.106332E+01_JPRB &
+  &, 0.105627E+01_JPRB, 0.104881E+01_JPRB, 0.104094E+01_JPRB, 0.103266E+01_JPRB &
+  &, 0.102399E+01_JPRB, 0.101491E+01_JPRB, 0.100547E+01_JPRB &
+  &, 0.995644E+00_JPRB, 0.985473E+00_JPRB, 0.974938E+00_JPRB, 0.964081E+00_JPRB &
+  &, 0.952892E+00_JPRB, 0.941385E+00_JPRB, 0.929576E+00_JPRB &
+  &, 0.917486E+00_JPRB, 0.905122E+00_JPRB, 0.892482E+00_JPRB, 0.879603E+00_JPRB &
+  &, 0.866500E+00_JPRB, 0.853157E+00_JPRB, 0.839619E+00_JPRB &
+  &, 0.825887E+00_JPRB, 0.811977E+00_JPRB, 0.797909E+00_JPRB, 0.783699E+00_JPRB &
+  &, 0.769352E+00_JPRB, 0.754885E+00_JPRB, 0.740320E+00_JPRB &
+  &, 0.725657E+00_JPRB, 0.710936E+00_JPRB, 0.696139E+00_JPRB, 0.681325E+00_JPRB &
+  &, 0.666456E+00_JPRB, 0.651592E+00_JPRB, 0.636712E+00_JPRB &
+  &, 0.621856E+00_JPRB, 0.607023E+00_JPRB, 0.592232E+00_JPRB, 0.577501E+00_JPRB &
+  &, 0.562826E+00_JPRB, 0.548246E+00_JPRB, 0.533734E+00_JPRB &
+  &, 0.519351E+00_JPRB, 0.505065E+00_JPRB, 0.490915E+00_JPRB, 0.476891E+00_JPRB &
+  &, 0.463005E+00_JPRB, 0.449295E+00_JPRB, 0.435746E+00_JPRB &
+  &, 0.422370E+00_JPRB, 0.409174E+00_JPRB, 0.396169E+00_JPRB, 0.383360E+00_JPRB &
+  &, 0.370754E+00_JPRB, 0.358357E+00_JPRB, 0.346203E+00_JPRB &
+  &, 0.334234E+00_JPRB, 0.322513E+00_JPRB, 0.311043E+00_JPRB, 0.299790E+00_JPRB &
+  &, 0.288786E+00_JPRB, 0.277993E+00_JPRB, 0.267476E+00_JPRB &
+  &, 0.257194E+00_JPRB, 0.247178E+00_JPRB, 0.237418E+00_JPRB, 0.227907E+00_JPRB &
+  &, 0.218633E+00_JPRB, 0.209622E+00_JPRB, 0.200861E+00_JPRB &
+  &, 0.192335E+00_JPRB, 0.184109E+00_JPRB, 0.176084E+00_JPRB, 0.168325E+00_JPRB &
+  &, 0.160810E+00_JPRB, 0.153563E+00_JPRB, 0.146517E+00_JPRB &
+  &, 0.139736E+00_JPRB, 0.133196E+00_JPRB, 0.126869E+00_JPRB, 0.120774E+00_JPRB &
+  &, 0.114880E+00_JPRB, 0.109205E+00_JPRB, 0.103764E+00_JPRB &
+  &, 0.985759E-01_JPRB, 0.935554E-01_JPRB, 0.887160E-01_JPRB, 0.841233E-01_JPRB &
+  &, 0.796875E-01_JPRB, 0.754203E-01_JPRB, 0.713878E-01_JPRB &
+  &, 0.674944E-01_JPRB, 0.637498E-01_JPRB, 0.602211E-01_JPRB, 0.568633E-01_JPRB &
+  &, 0.536289E-01_JPRB, 0.505851E-01_JPRB, 0.476231E-01_JPRB &
+  &, 0.448705E-01_JPRB, 0.422154E-01_JPRB, 0.396642E-01_JPRB, 0.372867E-01_JPRB &
+  &, 0.350280E-01_JPRB, 0.328949E-01_JPRB, 0.308285E-01_JPRB/)
+XCW( 651, :) = (/ &
+  &  0.103580E+01_JPRB, 0.104382E+01_JPRB, 0.105145E+01_JPRB, 0.105868E+01_JPRB &
+  &, 0.106552E+01_JPRB, 0.107195E+01_JPRB, 0.107798E+01_JPRB &
+  &, 0.108359E+01_JPRB, 0.108877E+01_JPRB, 0.109354E+01_JPRB, 0.109787E+01_JPRB &
+  &, 0.110177E+01_JPRB, 0.110523E+01_JPRB, 0.110825E+01_JPRB &
+  &, 0.111083E+01_JPRB, 0.111295E+01_JPRB, 0.111462E+01_JPRB, 0.111583E+01_JPRB &
+  &, 0.111659E+01_JPRB, 0.111689E+01_JPRB, 0.111672E+01_JPRB &
+  &, 0.111610E+01_JPRB, 0.111501E+01_JPRB, 0.111345E+01_JPRB, 0.111143E+01_JPRB &
+  &, 0.110895E+01_JPRB, 0.110600E+01_JPRB, 0.110259E+01_JPRB &
+  &, 0.109872E+01_JPRB, 0.109440E+01_JPRB, 0.108962E+01_JPRB, 0.108439E+01_JPRB &
+  &, 0.107872E+01_JPRB, 0.107261E+01_JPRB, 0.106606E+01_JPRB &
+  &, 0.105907E+01_JPRB, 0.105164E+01_JPRB, 0.104386E+01_JPRB, 0.103564E+01_JPRB &
+  &, 0.102702E+01_JPRB, 0.101800E+01_JPRB, 0.100861E+01_JPRB &
+  &, 0.998844E+00_JPRB, 0.988720E+00_JPRB, 0.978242E+00_JPRB, 0.967420E+00_JPRB &
+  &, 0.956277E+00_JPRB, 0.944815E+00_JPRB, 0.933052E+00_JPRB &
+  &, 0.920994E+00_JPRB, 0.908662E+00_JPRB, 0.896066E+00_JPRB, 0.883217E+00_JPRB &
+  &, 0.870142E+00_JPRB, 0.856826E+00_JPRB, 0.843314E+00_JPRB &
+  &, 0.829606E+00_JPRB, 0.815720E+00_JPRB, 0.801673E+00_JPRB, 0.787467E+00_JPRB &
+  &, 0.773137E+00_JPRB, 0.758687E+00_JPRB, 0.744118E+00_JPRB &
+  &, 0.729468E+00_JPRB, 0.714757E+00_JPRB, 0.699969E+00_JPRB, 0.685141E+00_JPRB &
+  &, 0.670276E+00_JPRB, 0.655393E+00_JPRB, 0.640512E+00_JPRB &
+  &, 0.625652E+00_JPRB, 0.610813E+00_JPRB, 0.595991E+00_JPRB, 0.581248E+00_JPRB &
+  &, 0.566558E+00_JPRB, 0.551939E+00_JPRB, 0.537405E+00_JPRB &
+  &, 0.522999E+00_JPRB, 0.508687E+00_JPRB, 0.494483E+00_JPRB, 0.478800E+00_JPRB &
+  &, 0.466529E+00_JPRB, 0.452780E+00_JPRB, 0.439189E+00_JPRB &
+  &, 0.425767E+00_JPRB, 0.412523E+00_JPRB, 0.399464E+00_JPRB, 0.386628E+00_JPRB &
+  &, 0.373963E+00_JPRB, 0.361533E+00_JPRB, 0.349313E+00_JPRB &
+  &, 0.337305E+00_JPRB, 0.325543E+00_JPRB, 0.313996E+00_JPRB, 0.302695E+00_JPRB &
+  &, 0.291606E+00_JPRB, 0.280793E+00_JPRB, 0.270219E+00_JPRB &
+  &, 0.259877E+00_JPRB, 0.249797E+00_JPRB, 0.239972E+00_JPRB, 0.230390E+00_JPRB &
+  &, 0.221081E+00_JPRB, 0.211994E+00_JPRB, 0.203193E+00_JPRB &
+  &, 0.194625E+00_JPRB, 0.186314E+00_JPRB, 0.178242E+00_JPRB, 0.170432E+00_JPRB &
+  &, 0.162866E+00_JPRB, 0.155521E+00_JPRB, 0.148417E+00_JPRB &
+  &, 0.141576E+00_JPRB, 0.134973E+00_JPRB, 0.128581E+00_JPRB, 0.122418E+00_JPRB &
+  &, 0.116501E+00_JPRB, 0.110802E+00_JPRB, 0.105287E+00_JPRB &
+  &, 0.100022E+00_JPRB, 0.949720E-01_JPRB, 0.901020E-01_JPRB, 0.854254E-01_JPRB &
+  &, 0.809027E-01_JPRB, 0.766530E-01_JPRB, 0.725295E-01_JPRB &
+  &, 0.685970E-01_JPRB, 0.648681E-01_JPRB, 0.612416E-01_JPRB, 0.578406E-01_JPRB &
+  &, 0.545614E-01_JPRB, 0.514714E-01_JPRB, 0.484616E-01_JPRB &
+  &, 0.456597E-01_JPRB, 0.430152E-01_JPRB, 0.404124E-01_JPRB, 0.379817E-01_JPRB &
+  &, 0.357322E-01_JPRB, 0.335435E-01_JPRB, 0.314856E-01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART93',1,ZHOOK_HANDLE)
+END SUBROUTINE PART93
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART94
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART94',0,ZHOOK_HANDLE)
+
+XCW( 652, :) = (/ &
+  &  0.103608E+01_JPRB, 0.104416E+01_JPRB, 0.105187E+01_JPRB, 0.105917E+01_JPRB &
+  &, 0.106608E+01_JPRB, 0.107259E+01_JPRB, 0.107869E+01_JPRB &
+  &, 0.108437E+01_JPRB, 0.108964E+01_JPRB, 0.109447E+01_JPRB, 0.109888E+01_JPRB &
+  &, 0.110286E+01_JPRB, 0.110639E+01_JPRB, 0.110949E+01_JPRB &
+  &, 0.111214E+01_JPRB, 0.111434E+01_JPRB, 0.111608E+01_JPRB, 0.111737E+01_JPRB &
+  &, 0.111821E+01_JPRB, 0.111858E+01_JPRB, 0.111849E+01_JPRB &
+  &, 0.111793E+01_JPRB, 0.111692E+01_JPRB, 0.111543E+01_JPRB, 0.111349E+01_JPRB &
+  &, 0.111108E+01_JPRB, 0.110820E+01_JPRB, 0.110486E+01_JPRB &
+  &, 0.110107E+01_JPRB, 0.109681E+01_JPRB, 0.109210E+01_JPRB, 0.108694E+01_JPRB &
+  &, 0.108133E+01_JPRB, 0.107529E+01_JPRB, 0.106880E+01_JPRB &
+  &, 0.106188E+01_JPRB, 0.105454E+01_JPRB, 0.104679E+01_JPRB, 0.103863E+01_JPRB &
+  &, 0.103006E+01_JPRB, 0.102111E+01_JPRB, 0.101176E+01_JPRB &
+  &, 0.100206E+01_JPRB, 0.991978E+00_JPRB, 0.981546E+00_JPRB, 0.970782E+00_JPRB &
+  &, 0.959673E+00_JPRB, 0.948258E+00_JPRB, 0.936541E+00_JPRB &
+  &, 0.924516E+00_JPRB, 0.912229E+00_JPRB, 0.899663E+00_JPRB, 0.886844E+00_JPRB &
+  &, 0.873798E+00_JPRB, 0.860525E+00_JPRB, 0.847039E+00_JPRB &
+  &, 0.833341E+00_JPRB, 0.819478E+00_JPRB, 0.805453E+00_JPRB, 0.791267E+00_JPRB &
+  &, 0.776940E+00_JPRB, 0.762506E+00_JPRB, 0.747952E+00_JPRB &
+  &, 0.733315E+00_JPRB, 0.718597E+00_JPRB, 0.703817E+00_JPRB, 0.688977E+00_JPRB &
+  &, 0.674116E+00_JPRB, 0.659234E+00_JPRB, 0.644332E+00_JPRB &
+  &, 0.629469E+00_JPRB, 0.614603E+00_JPRB, 0.599772E+00_JPRB, 0.585018E+00_JPRB &
+  &, 0.570291E+00_JPRB, 0.555654E+00_JPRB, 0.541101E+00_JPRB &
+  &, 0.526671E+00_JPRB, 0.512308E+00_JPRB, 0.498100E+00_JPRB, 0.484011E+00_JPRB &
+  &, 0.470080E+00_JPRB, 0.456265E+00_JPRB, 0.442632E+00_JPRB &
+  &, 0.429192E+00_JPRB, 0.415899E+00_JPRB, 0.402817E+00_JPRB, 0.389927E+00_JPRB &
+  &, 0.377203E+00_JPRB, 0.364741E+00_JPRB, 0.352454E+00_JPRB &
+  &, 0.340408E+00_JPRB, 0.328573E+00_JPRB, 0.316981E+00_JPRB, 0.305633E+00_JPRB &
+  &, 0.294494E+00_JPRB, 0.283628E+00_JPRB, 0.272997E+00_JPRB &
+  &, 0.262596E+00_JPRB, 0.252454E+00_JPRB, 0.242562E+00_JPRB, 0.232911E+00_JPRB &
+  &, 0.223530E+00_JPRB, 0.214405E+00_JPRB, 0.205525E+00_JPRB &
+  &, 0.196915E+00_JPRB, 0.188518E+00_JPRB, 0.180399E+00_JPRB, 0.172540E+00_JPRB &
+  &, 0.164878E+00_JPRB, 0.157522E+00_JPRB, 0.150361E+00_JPRB &
+  &, 0.143461E+00_JPRB, 0.136795E+00_JPRB, 0.130339E+00_JPRB, 0.124109E+00_JPRB &
+  &, 0.118123E+00_JPRB, 0.112399E+00_JPRB, 0.106810E+00_JPRB &
+  &, 0.101517E+00_JPRB, 0.963886E-01_JPRB, 0.914367E-01_JPRB, 0.867274E-01_JPRB &
+  &, 0.822236E-01_JPRB, 0.778857E-01_JPRB, 0.737254E-01_JPRB &
+  &, 0.697549E-01_JPRB, 0.659304E-01_JPRB, 0.623188E-01_JPRB, 0.588179E-01_JPRB &
+  &, 0.554939E-01_JPRB, 0.523576E-01_JPRB, 0.493600E-01_JPRB &
+  &, 0.465095E-01_JPRB, 0.437535E-01_JPRB, 0.412230E-01_JPRB, 0.387399E-01_JPRB &
+  &, 0.363724E-01_JPRB, 0.341921E-01_JPRB, 0.320770E-01_JPRB/)
+XCW( 653, :) = (/ &
+  &  0.103636E+01_JPRB, 0.104451E+01_JPRB, 0.105229E+01_JPRB, 0.105967E+01_JPRB &
+  &, 0.106665E+01_JPRB, 0.107323E+01_JPRB, 0.107940E+01_JPRB &
+  &, 0.108516E+01_JPRB, 0.109050E+01_JPRB, 0.109541E+01_JPRB, 0.109990E+01_JPRB &
+  &, 0.110395E+01_JPRB, 0.110756E+01_JPRB, 0.111073E+01_JPRB &
+  &, 0.111345E+01_JPRB, 0.111573E+01_JPRB, 0.111755E+01_JPRB, 0.111891E+01_JPRB &
+  &, 0.111983E+01_JPRB, 0.112027E+01_JPRB, 0.112026E+01_JPRB &
+  &, 0.111978E+01_JPRB, 0.111884E+01_JPRB, 0.111743E+01_JPRB, 0.111555E+01_JPRB &
+  &, 0.111321E+01_JPRB, 0.111041E+01_JPRB, 0.110714E+01_JPRB &
+  &, 0.110342E+01_JPRB, 0.109923E+01_JPRB, 0.109459E+01_JPRB, 0.108950E+01_JPRB &
+  &, 0.108396E+01_JPRB, 0.107798E+01_JPRB, 0.107155E+01_JPRB &
+  &, 0.106470E+01_JPRB, 0.105742E+01_JPRB, 0.104973E+01_JPRB, 0.104163E+01_JPRB &
+  &, 0.103312E+01_JPRB, 0.102422E+01_JPRB, 0.101493E+01_JPRB &
+  &, 0.100527E+01_JPRB, 0.995247E+00_JPRB, 0.984862E+00_JPRB, 0.974145E+00_JPRB &
+  &, 0.963082E+00_JPRB, 0.951714E+00_JPRB, 0.940030E+00_JPRB &
+  &, 0.928063E+00_JPRB, 0.915795E+00_JPRB, 0.903275E+00_JPRB, 0.890486E+00_JPRB &
+  &, 0.877469E+00_JPRB, 0.864223E+00_JPRB, 0.850764E+00_JPRB &
+  &, 0.837107E+00_JPRB, 0.823252E+00_JPRB, 0.809249E+00_JPRB, 0.795068E+00_JPRB &
+  &, 0.780776E+00_JPRB, 0.766343E+00_JPRB, 0.751804E+00_JPRB &
+  &, 0.737162E+00_JPRB, 0.722455E+00_JPRB, 0.707665E+00_JPRB, 0.692832E+00_JPRB &
+  &, 0.677975E+00_JPRB, 0.663076E+00_JPRB, 0.648173E+00_JPRB &
+  &, 0.633286E+00_JPRB, 0.618414E+00_JPRB, 0.603575E+00_JPRB, 0.588787E+00_JPRB &
+  &, 0.574070E+00_JPRB, 0.559393E+00_JPRB, 0.544820E+00_JPRB &
+  &, 0.530344E+00_JPRB, 0.515980E+00_JPRB, 0.501743E+00_JPRB, 0.487623E+00_JPRB &
+  &, 0.473630E+00_JPRB, 0.459804E+00_JPRB, 0.446130E+00_JPRB &
+  &, 0.432645E+00_JPRB, 0.419304E+00_JPRB, 0.406171E+00_JPRB, 0.393225E+00_JPRB &
+  &, 0.380472E+00_JPRB, 0.367948E+00_JPRB, 0.355627E+00_JPRB &
+  &, 0.343511E+00_JPRB, 0.331635E+00_JPRB, 0.320000E+00_JPRB, 0.308572E+00_JPRB &
+  &, 0.297382E+00_JPRB, 0.286463E+00_JPRB, 0.275776E+00_JPRB &
+  &, 0.265315E+00_JPRB, 0.255110E+00_JPRB, 0.245189E+00_JPRB, 0.235470E+00_JPRB &
+  &, 0.226054E+00_JPRB, 0.216855E+00_JPRB, 0.207897E+00_JPRB &
+  &, 0.199205E+00_JPRB, 0.190764E+00_JPRB, 0.182598E+00_JPRB, 0.174647E+00_JPRB &
+  &, 0.166977E+00_JPRB, 0.159523E+00_JPRB, 0.152305E+00_JPRB &
+  &, 0.145345E+00_JPRB, 0.138618E+00_JPRB, 0.132097E+00_JPRB, 0.125846E+00_JPRB &
+  &, 0.119791E+00_JPRB, 0.113997E+00_JPRB, 0.108382E+00_JPRB &
+  &, 0.103013E+00_JPRB, 0.978051E-01_JPRB, 0.928228E-01_JPRB, 0.880816E-01_JPRB &
+  &, 0.834917E-01_JPRB, 0.791184E-01_JPRB, 0.749214E-01_JPRB &
+  &, 0.708576E-01_JPRB, 0.670486E-01_JPRB, 0.633394E-01_JPRB, 0.598526E-01_JPRB &
+  &, 0.564847E-01_JPRB, 0.533030E-01_JPRB, 0.502583E-01_JPRB &
+  &, 0.473594E-01_JPRB, 0.446148E-01_JPRB, 0.419712E-01_JPRB, 0.394981E-01_JPRB &
+  &, 0.370766E-01_JPRB, 0.348408E-01_JPRB, 0.327341E-01_JPRB/)
+XCW( 654, :) = (/ &
+  &  0.103663E+01_JPRB, 0.104486E+01_JPRB, 0.105271E+01_JPRB, 0.106016E+01_JPRB &
+  &, 0.106722E+01_JPRB, 0.107387E+01_JPRB, 0.108012E+01_JPRB &
+  &, 0.108595E+01_JPRB, 0.109136E+01_JPRB, 0.109635E+01_JPRB, 0.110091E+01_JPRB &
+  &, 0.110503E+01_JPRB, 0.110872E+01_JPRB, 0.111197E+01_JPRB &
+  &, 0.111477E+01_JPRB, 0.111712E+01_JPRB, 0.111902E+01_JPRB, 0.112046E+01_JPRB &
+  &, 0.112145E+01_JPRB, 0.112197E+01_JPRB, 0.112203E+01_JPRB &
+  &, 0.112162E+01_JPRB, 0.112076E+01_JPRB, 0.111942E+01_JPRB, 0.111762E+01_JPRB &
+  &, 0.111535E+01_JPRB, 0.111262E+01_JPRB, 0.110943E+01_JPRB &
+  &, 0.110577E+01_JPRB, 0.110166E+01_JPRB, 0.109708E+01_JPRB, 0.109206E+01_JPRB &
+  &, 0.108659E+01_JPRB, 0.108067E+01_JPRB, 0.107432E+01_JPRB &
+  &, 0.106753E+01_JPRB, 0.106031E+01_JPRB, 0.105267E+01_JPRB, 0.104464E+01_JPRB &
+  &, 0.103619E+01_JPRB, 0.102734E+01_JPRB, 0.101811E+01_JPRB &
+  &, 0.100850E+01_JPRB, 0.998528E+00_JPRB, 0.988190E+00_JPRB, 0.977519E+00_JPRB &
+  &, 0.966516E+00_JPRB, 0.955182E+00_JPRB, 0.943545E+00_JPRB &
+  &, 0.931611E+00_JPRB, 0.919389E+00_JPRB, 0.906900E+00_JPRB, 0.894127E+00_JPRB &
+  &, 0.881154E+00_JPRB, 0.867936E+00_JPRB, 0.854504E+00_JPRB &
+  &, 0.840873E+00_JPRB, 0.827042E+00_JPRB, 0.813046E+00_JPRB, 0.798902E+00_JPRB &
+  &, 0.784613E+00_JPRB, 0.770197E+00_JPRB, 0.755656E+00_JPRB &
+  &, 0.741027E+00_JPRB, 0.726313E+00_JPRB, 0.711551E+00_JPRB, 0.696706E+00_JPRB &
+  &, 0.681835E+00_JPRB, 0.666937E+00_JPRB, 0.652034E+00_JPRB &
+  &, 0.637145E+00_JPRB, 0.622268E+00_JPRB, 0.607400E+00_JPRB, 0.592602E+00_JPRB &
+  &, 0.577848E+00_JPRB, 0.563179E+00_JPRB, 0.548563E+00_JPRB &
+  &, 0.534065E+00_JPRB, 0.519676E+00_JPRB, 0.505386E+00_JPRB, 0.491234E+00_JPRB &
+  &, 0.477233E+00_JPRB, 0.463343E+00_JPRB, 0.449655E+00_JPRB &
+  &, 0.436098E+00_JPRB, 0.422738E+00_JPRB, 0.409553E+00_JPRB, 0.396552E+00_JPRB &
+  &, 0.383771E+00_JPRB, 0.371185E+00_JPRB, 0.358830E+00_JPRB &
+  &, 0.346678E+00_JPRB, 0.334730E+00_JPRB, 0.323018E+00_JPRB, 0.311543E+00_JPRB &
+  &, 0.300338E+00_JPRB, 0.289332E+00_JPRB, 0.278589E+00_JPRB &
+  &, 0.268070E+00_JPRB, 0.257802E+00_JPRB, 0.247816E+00_JPRB, 0.238066E+00_JPRB &
+  &, 0.228541E+00_JPRB, 0.219305E+00_JPRB, 0.210308E+00_JPRB &
+  &, 0.201535E+00_JPRB, 0.193050E+00_JPRB, 0.184797E+00_JPRB, 0.176797E+00_JPRB &
+  &, 0.169075E+00_JPRB, 0.161567E+00_JPRB, 0.154293E+00_JPRB &
+  &, 0.147275E+00_JPRB, 0.140486E+00_JPRB, 0.133901E+00_JPRB, 0.127584E+00_JPRB &
+  &, 0.121508E+00_JPRB, 0.115642E+00_JPRB, 0.109954E+00_JPRB &
+  &, 0.104509E+00_JPRB, 0.992723E-01_JPRB, 0.942601E-01_JPRB, 0.894357E-01_JPRB &
+  &, 0.848126E-01_JPRB, 0.803511E-01_JPRB, 0.761174E-01_JPRB &
+  &, 0.720154E-01_JPRB, 0.681669E-01_JPRB, 0.644166E-01_JPRB, 0.608873E-01_JPRB &
+  &, 0.574755E-01_JPRB, 0.542483E-01_JPRB, 0.511567E-01_JPRB &
+  &, 0.482092E-01_JPRB, 0.454146E-01_JPRB, 0.427817E-01_JPRB, 0.402562E-01_JPRB &
+  &, 0.378449E-01_JPRB, 0.355542E-01_JPRB, 0.333913E-01_JPRB/)
+XCW( 655, :) = (/ &
+  &  0.103691E+01_JPRB, 0.104521E+01_JPRB, 0.105313E+01_JPRB, 0.106065E+01_JPRB &
+  &, 0.106778E+01_JPRB, 0.107451E+01_JPRB, 0.108083E+01_JPRB &
+  &, 0.108674E+01_JPRB, 0.109223E+01_JPRB, 0.109729E+01_JPRB, 0.110193E+01_JPRB &
+  &, 0.110613E+01_JPRB, 0.110989E+01_JPRB, 0.111322E+01_JPRB &
+  &, 0.111609E+01_JPRB, 0.111852E+01_JPRB, 0.112049E+01_JPRB, 0.112201E+01_JPRB &
+  &, 0.112307E+01_JPRB, 0.112367E+01_JPRB, 0.112380E+01_JPRB &
+  &, 0.112348E+01_JPRB, 0.112268E+01_JPRB, 0.112142E+01_JPRB, 0.111969E+01_JPRB &
+  &, 0.111750E+01_JPRB, 0.111484E+01_JPRB, 0.111172E+01_JPRB &
+  &, 0.110813E+01_JPRB, 0.110409E+01_JPRB, 0.109959E+01_JPRB, 0.109463E+01_JPRB &
+  &, 0.108922E+01_JPRB, 0.108337E+01_JPRB, 0.107708E+01_JPRB &
+  &, 0.107036E+01_JPRB, 0.106320E+01_JPRB, 0.105564E+01_JPRB, 0.104764E+01_JPRB &
+  &, 0.103926E+01_JPRB, 0.103047E+01_JPRB, 0.102129E+01_JPRB &
+  &, 0.101174E+01_JPRB, 0.100182E+01_JPRB, 0.991541E+00_JPRB, 0.980906E+00_JPRB &
+  &, 0.969950E+00_JPRB, 0.958662E+00_JPRB, 0.947059E+00_JPRB &
+  &, 0.935172E+00_JPRB, 0.922982E+00_JPRB, 0.910538E+00_JPRB, 0.897825E+00_JPRB &
+  &, 0.884853E+00_JPRB, 0.871664E+00_JPRB, 0.858259E+00_JPRB &
+  &, 0.844654E+00_JPRB, 0.830848E+00_JPRB, 0.816875E+00_JPRB, 0.802752E+00_JPRB &
+  &, 0.788466E+00_JPRB, 0.774068E+00_JPRB, 0.759543E+00_JPRB &
+  &, 0.744929E+00_JPRB, 0.730208E+00_JPRB, 0.715438E+00_JPRB, 0.700600E+00_JPRB &
+  &, 0.685733E+00_JPRB, 0.670839E+00_JPRB, 0.655917E+00_JPRB &
+  &, 0.641004E+00_JPRB, 0.626122E+00_JPRB, 0.611247E+00_JPRB, 0.596439E+00_JPRB &
+  &, 0.581649E+00_JPRB, 0.566964E+00_JPRB, 0.552330E+00_JPRB &
+  &, 0.537811E+00_JPRB, 0.523373E+00_JPRB, 0.509055E+00_JPRB, 0.494872E+00_JPRB &
+  &, 0.480836E+00_JPRB, 0.466936E+00_JPRB, 0.453180E+00_JPRB &
+  &, 0.439607E+00_JPRB, 0.426199E+00_JPRB, 0.412964E+00_JPRB, 0.399939E+00_JPRB &
+  &, 0.387100E+00_JPRB, 0.374454E+00_JPRB, 0.362034E+00_JPRB &
+  &, 0.349844E+00_JPRB, 0.337856E+00_JPRB, 0.326102E+00_JPRB, 0.314549E+00_JPRB &
+  &, 0.303260E+00_JPRB, 0.292236E+00_JPRB, 0.281403E+00_JPRB &
+  &, 0.270860E+00_JPRB, 0.260531E+00_JPRB, 0.250480E+00_JPRB, 0.240662E+00_JPRB &
+  &, 0.231104E+00_JPRB, 0.221794E+00_JPRB, 0.212720E+00_JPRB &
+  &, 0.203906E+00_JPRB, 0.195337E+00_JPRB, 0.187037E+00_JPRB, 0.178989E+00_JPRB &
+  &, 0.171173E+00_JPRB, 0.163612E+00_JPRB, 0.156282E+00_JPRB &
+  &, 0.149204E+00_JPRB, 0.142354E+00_JPRB, 0.135752E+00_JPRB, 0.129369E+00_JPRB &
+  &, 0.123177E+00_JPRB, 0.117288E+00_JPRB, 0.111575E+00_JPRB &
+  &, 0.106054E+00_JPRB, 0.100790E+00_JPRB, 0.956975E-01_JPRB, 0.907899E-01_JPRB &
+  &, 0.861335E-01_JPRB, 0.816374E-01_JPRB, 0.773677E-01_JPRB &
+  &, 0.732283E-01_JPRB, 0.692851E-01_JPRB, 0.654938E-01_JPRB, 0.619221E-01_JPRB &
+  &, 0.584663E-01_JPRB, 0.551936E-01_JPRB, 0.520551E-01_JPRB &
+  &, 0.491198E-01_JPRB, 0.462760E-01_JPRB, 0.435299E-01_JPRB, 0.410144E-01_JPRB &
+  &, 0.385491E-01_JPRB, 0.362677E-01_JPRB, 0.340484E-01_JPRB/)
+XCW( 656, :) = (/ &
+  &  0.103719E+01_JPRB, 0.104556E+01_JPRB, 0.105355E+01_JPRB, 0.106115E+01_JPRB &
+  &, 0.106835E+01_JPRB, 0.107515E+01_JPRB, 0.108155E+01_JPRB &
+  &, 0.108753E+01_JPRB, 0.109309E+01_JPRB, 0.109823E+01_JPRB, 0.110294E+01_JPRB &
+  &, 0.110722E+01_JPRB, 0.111106E+01_JPRB, 0.111446E+01_JPRB &
+  &, 0.111742E+01_JPRB, 0.111992E+01_JPRB, 0.112197E+01_JPRB, 0.112356E+01_JPRB &
+  &, 0.112470E+01_JPRB, 0.112537E+01_JPRB, 0.112558E+01_JPRB &
+  &, 0.112533E+01_JPRB, 0.112461E+01_JPRB, 0.112343E+01_JPRB, 0.112177E+01_JPRB &
+  &, 0.111965E+01_JPRB, 0.111707E+01_JPRB, 0.111401E+01_JPRB &
+  &, 0.111050E+01_JPRB, 0.110653E+01_JPRB, 0.110209E+01_JPRB, 0.109721E+01_JPRB &
+  &, 0.109187E+01_JPRB, 0.108609E+01_JPRB, 0.107986E+01_JPRB &
+  &, 0.107319E+01_JPRB, 0.106611E+01_JPRB, 0.105860E+01_JPRB, 0.105067E+01_JPRB &
+  &, 0.104234E+01_JPRB, 0.103361E+01_JPRB, 0.102449E+01_JPRB &
+  &, 0.101499E+01_JPRB, 0.100511E+01_JPRB, 0.994892E+00_JPRB, 0.984304E+00_JPRB &
+  &, 0.973395E+00_JPRB, 0.962155E+00_JPRB, 0.950599E+00_JPRB &
+  &, 0.938746E+00_JPRB, 0.926603E+00_JPRB, 0.914177E+00_JPRB, 0.901509E+00_JPRB &
+  &, 0.888582E+00_JPRB, 0.875422E+00_JPRB, 0.862030E+00_JPRB &
+  &, 0.848451E+00_JPRB, 0.834670E+00_JPRB, 0.820720E+00_JPRB, 0.806603E+00_JPRB &
+  &, 0.792337E+00_JPRB, 0.777957E+00_JPRB, 0.763413E+00_JPRB &
+  &, 0.748830E+00_JPRB, 0.734122E+00_JPRB, 0.719362E+00_JPRB, 0.704532E+00_JPRB &
+  &, 0.689652E+00_JPRB, 0.674742E+00_JPRB, 0.659819E+00_JPRB &
+  &, 0.644906E+00_JPRB, 0.629998E+00_JPRB, 0.615116E+00_JPRB, 0.600276E+00_JPRB &
+  &, 0.585497E+00_JPRB, 0.570773E+00_JPRB, 0.556121E+00_JPRB &
+  &, 0.541556E+00_JPRB, 0.527119E+00_JPRB, 0.512774E+00_JPRB, 0.498560E+00_JPRB &
+  &, 0.484466E+00_JPRB, 0.470528E+00_JPRB, 0.456732E+00_JPRB &
+  &, 0.443116E+00_JPRB, 0.429661E+00_JPRB, 0.416404E+00_JPRB, 0.403325E+00_JPRB &
+  &, 0.390430E+00_JPRB, 0.377753E+00_JPRB, 0.365268E+00_JPRB &
+  &, 0.353011E+00_JPRB, 0.340983E+00_JPRB, 0.329186E+00_JPRB, 0.317587E+00_JPRB &
+  &, 0.306250E+00_JPRB, 0.295140E+00_JPRB, 0.284287E+00_JPRB &
+  &, 0.273651E+00_JPRB, 0.263297E+00_JPRB, 0.253145E+00_JPRB, 0.243296E+00_JPRB &
+  &, 0.233667E+00_JPRB, 0.224283E+00_JPRB, 0.215171E+00_JPRB &
+  &, 0.206316E+00_JPRB, 0.197664E+00_JPRB, 0.189319E+00_JPRB, 0.181181E+00_JPRB &
+  &, 0.173314E+00_JPRB, 0.165699E+00_JPRB, 0.158314E+00_JPRB &
+  &, 0.151178E+00_JPRB, 0.144268E+00_JPRB, 0.137602E+00_JPRB, 0.131154E+00_JPRB &
+  &, 0.124941E+00_JPRB, 0.118934E+00_JPRB, 0.113147E+00_JPRB &
+  &, 0.107600E+00_JPRB, 0.102257E+00_JPRB, 0.971349E-01_JPRB, 0.921961E-01_JPRB &
+  &, 0.874545E-01_JPRB, 0.829238E-01_JPRB, 0.785637E-01_JPRB &
+  &, 0.744413E-01_JPRB, 0.704593E-01_JPRB, 0.666277E-01_JPRB, 0.629568E-01_JPRB &
+  &, 0.595153E-01_JPRB, 0.561980E-01_JPRB, 0.530133E-01_JPRB &
+  &, 0.499697E-01_JPRB, 0.471373E-01_JPRB, 0.443404E-01_JPRB, 0.417726E-01_JPRB &
+  &, 0.393173E-01_JPRB, 0.369163E-01_JPRB, 0.347055E-01_JPRB/)
+XCW( 657, :) = (/ &
+  &  0.103747E+01_JPRB, 0.104591E+01_JPRB, 0.105397E+01_JPRB, 0.106165E+01_JPRB &
+  &, 0.106892E+01_JPRB, 0.107580E+01_JPRB, 0.108227E+01_JPRB &
+  &, 0.108832E+01_JPRB, 0.109396E+01_JPRB, 0.109918E+01_JPRB, 0.110396E+01_JPRB &
+  &, 0.110832E+01_JPRB, 0.111224E+01_JPRB, 0.111571E+01_JPRB &
+  &, 0.111874E+01_JPRB, 0.112132E+01_JPRB, 0.112345E+01_JPRB, 0.112512E+01_JPRB &
+  &, 0.112633E+01_JPRB, 0.112708E+01_JPRB, 0.112737E+01_JPRB &
+  &, 0.112719E+01_JPRB, 0.112655E+01_JPRB, 0.112544E+01_JPRB, 0.112386E+01_JPRB &
+  &, 0.112181E+01_JPRB, 0.111930E+01_JPRB, 0.111629E+01_JPRB &
+  &, 0.111288E+01_JPRB, 0.110897E+01_JPRB, 0.110461E+01_JPRB, 0.109979E+01_JPRB &
+  &, 0.109452E+01_JPRB, 0.108880E+01_JPRB, 0.108265E+01_JPRB &
+  &, 0.107605E+01_JPRB, 0.106902E+01_JPRB, 0.106157E+01_JPRB, 0.105371E+01_JPRB &
+  &, 0.104543E+01_JPRB, 0.103676E+01_JPRB, 0.102770E+01_JPRB &
+  &, 0.101825E+01_JPRB, 0.100843E+01_JPRB, 0.998254E+00_JPRB, 0.987726E+00_JPRB &
+  &, 0.976853E+00_JPRB, 0.965661E+00_JPRB, 0.954153E+00_JPRB &
+  &, 0.942333E+00_JPRB, 0.930223E+00_JPRB, 0.917844E+00_JPRB, 0.905207E+00_JPRB &
+  &, 0.892310E+00_JPRB, 0.879180E+00_JPRB, 0.865831E+00_JPRB &
+  &, 0.852263E+00_JPRB, 0.838507E+00_JPRB, 0.824581E+00_JPRB, 0.810487E+00_JPRB &
+  &, 0.796241E+00_JPRB, 0.781863E+00_JPRB, 0.767353E+00_JPRB &
+  &, 0.752750E+00_JPRB, 0.738054E+00_JPRB, 0.723286E+00_JPRB, 0.708465E+00_JPRB &
+  &, 0.693591E+00_JPRB, 0.678684E+00_JPRB, 0.663743E+00_JPRB &
+  &, 0.648828E+00_JPRB, 0.633895E+00_JPRB, 0.619006E+00_JPRB, 0.604157E+00_JPRB &
+  &, 0.589344E+00_JPRB, 0.574606E+00_JPRB, 0.559936E+00_JPRB &
+  &, 0.545350E+00_JPRB, 0.530864E+00_JPRB, 0.516493E+00_JPRB, 0.502249E+00_JPRB &
+  &, 0.488122E+00_JPRB, 0.474148E+00_JPRB, 0.460339E+00_JPRB &
+  &, 0.446680E+00_JPRB, 0.433179E+00_JPRB, 0.419873E+00_JPRB, 0.406741E+00_JPRB &
+  &, 0.393819E+00_JPRB, 0.381082E+00_JPRB, 0.368565E+00_JPRB &
+  &, 0.356241E+00_JPRB, 0.344142E+00_JPRB, 0.332303E+00_JPRB, 0.320659E+00_JPRB &
+  &, 0.309240E+00_JPRB, 0.298078E+00_JPRB, 0.287171E+00_JPRB &
+  &, 0.276477E+00_JPRB, 0.266062E+00_JPRB, 0.255883E+00_JPRB, 0.245930E+00_JPRB &
+  &, 0.236268E+00_JPRB, 0.226811E+00_JPRB, 0.217621E+00_JPRB &
+  &, 0.208687E+00_JPRB, 0.200032E+00_JPRB, 0.191601E+00_JPRB, 0.183415E+00_JPRB &
+  &, 0.175498E+00_JPRB, 0.167787E+00_JPRB, 0.160346E+00_JPRB &
+  &, 0.153153E+00_JPRB, 0.146182E+00_JPRB, 0.139453E+00_JPRB, 0.132939E+00_JPRB &
+  &, 0.126658E+00_JPRB, 0.120628E+00_JPRB, 0.114818E+00_JPRB &
+  &, 0.109195E+00_JPRB, 0.103826E+00_JPRB, 0.986236E-01_JPRB, 0.936544E-01_JPRB &
+  &, 0.888282E-01_JPRB, 0.842637E-01_JPRB, 0.798684E-01_JPRB &
+  &, 0.756542E-01_JPRB, 0.715775E-01_JPRB, 0.677616E-01_JPRB, 0.640491E-01_JPRB &
+  &, 0.605061E-01_JPRB, 0.571434E-01_JPRB, 0.539716E-01_JPRB &
+  &, 0.508802E-01_JPRB, 0.479986E-01_JPRB, 0.452133E-01_JPRB, 0.425308E-01_JPRB &
+  &, 0.400215E-01_JPRB, 0.376947E-01_JPRB, 0.354283E-01_JPRB/)
+XCW( 658, :) = (/ &
+  &  0.103775E+01_JPRB, 0.104626E+01_JPRB, 0.105440E+01_JPRB, 0.106214E+01_JPRB &
+  &, 0.106949E+01_JPRB, 0.107644E+01_JPRB, 0.108299E+01_JPRB &
+  &, 0.108912E+01_JPRB, 0.109483E+01_JPRB, 0.110012E+01_JPRB, 0.110499E+01_JPRB &
+  &, 0.110942E+01_JPRB, 0.111341E+01_JPRB, 0.111696E+01_JPRB &
+  &, 0.112007E+01_JPRB, 0.112273E+01_JPRB, 0.112493E+01_JPRB, 0.112668E+01_JPRB &
+  &, 0.112797E+01_JPRB, 0.112879E+01_JPRB, 0.112915E+01_JPRB &
+  &, 0.112905E+01_JPRB, 0.112848E+01_JPRB, 0.112745E+01_JPRB, 0.112594E+01_JPRB &
+  &, 0.112397E+01_JPRB, 0.112153E+01_JPRB, 0.111862E+01_JPRB &
+  &, 0.111525E+01_JPRB, 0.111142E+01_JPRB, 0.110713E+01_JPRB, 0.110238E+01_JPRB &
+  &, 0.109718E+01_JPRB, 0.109153E+01_JPRB, 0.108543E+01_JPRB &
+  &, 0.107890E+01_JPRB, 0.107194E+01_JPRB, 0.106456E+01_JPRB, 0.105675E+01_JPRB &
+  &, 0.104853E+01_JPRB, 0.103992E+01_JPRB, 0.103091E+01_JPRB &
+  &, 0.102151E+01_JPRB, 0.101175E+01_JPRB, 0.100163E+01_JPRB, 0.991149E+00_JPRB &
+  &, 0.980323E+00_JPRB, 0.969179E+00_JPRB, 0.957706E+00_JPRB &
+  &, 0.945933E+00_JPRB, 0.933870E+00_JPRB, 0.921524E+00_JPRB, 0.908919E+00_JPRB &
+  &, 0.896053E+00_JPRB, 0.882952E+00_JPRB, 0.869632E+00_JPRB &
+  &, 0.856091E+00_JPRB, 0.842361E+00_JPRB, 0.828459E+00_JPRB, 0.814370E+00_JPRB &
+  &, 0.800145E+00_JPRB, 0.785786E+00_JPRB, 0.771294E+00_JPRB &
+  &, 0.756688E+00_JPRB, 0.742005E+00_JPRB, 0.727248E+00_JPRB, 0.712416E+00_JPRB &
+  &, 0.697529E+00_JPRB, 0.682627E+00_JPRB, 0.667687E+00_JPRB &
+  &, 0.652750E+00_JPRB, 0.637836E+00_JPRB, 0.622919E+00_JPRB, 0.608039E+00_JPRB &
+  &, 0.593214E+00_JPRB, 0.578461E+00_JPRB, 0.563774E+00_JPRB &
+  &, 0.549169E+00_JPRB, 0.534660E+00_JPRB, 0.520237E+00_JPRB, 0.505964E+00_JPRB &
+  &, 0.491804E+00_JPRB, 0.477794E+00_JPRB, 0.463946E+00_JPRB &
+  &, 0.450245E+00_JPRB, 0.436698E+00_JPRB, 0.423342E+00_JPRB, 0.410187E+00_JPRB &
+  &, 0.397208E+00_JPRB, 0.384411E+00_JPRB, 0.371862E+00_JPRB &
+  &, 0.359502E+00_JPRB, 0.347333E+00_JPRB, 0.335420E+00_JPRB, 0.323731E+00_JPRB &
+  &, 0.312298E+00_JPRB, 0.301051E+00_JPRB, 0.290090E+00_JPRB &
+  &, 0.279339E+00_JPRB, 0.268864E+00_JPRB, 0.258621E+00_JPRB, 0.248601E+00_JPRB &
+  &, 0.238870E+00_JPRB, 0.229378E+00_JPRB, 0.220151E+00_JPRB &
+  &, 0.211138E+00_JPRB, 0.202400E+00_JPRB, 0.193924E+00_JPRB, 0.185649E+00_JPRB &
+  &, 0.177682E+00_JPRB, 0.169919E+00_JPRB, 0.162423E+00_JPRB &
+  &, 0.155172E+00_JPRB, 0.148141E+00_JPRB, 0.141350E+00_JPRB, 0.134771E+00_JPRB &
+  &, 0.128470E+00_JPRB, 0.122322E+00_JPRB, 0.116439E+00_JPRB &
+  &, 0.110791E+00_JPRB, 0.105343E+00_JPRB, 0.100112E+00_JPRB, 0.950606E-01_JPRB &
+  &, 0.902548E-01_JPRB, 0.856036E-01_JPRB, 0.811187E-01_JPRB &
+  &, 0.768672E-01_JPRB, 0.728076E-01_JPRB, 0.688956E-01_JPRB, 0.651413E-01_JPRB &
+  &, 0.615552E-01_JPRB, 0.581478E-01_JPRB, 0.549298E-01_JPRB &
+  &, 0.517908E-01_JPRB, 0.488600E-01_JPRB, 0.460239E-01_JPRB, 0.433521E-01_JPRB &
+  &, 0.407897E-01_JPRB, 0.384082E-01_JPRB, 0.360854E-01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART94',1,ZHOOK_HANDLE)
+END SUBROUTINE PART94
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART95
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART95',0,ZHOOK_HANDLE)
+
+XCW( 659, :) = (/ &
+  &  0.103803E+01_JPRB, 0.104661E+01_JPRB, 0.105482E+01_JPRB, 0.106264E+01_JPRB &
+  &, 0.107006E+01_JPRB, 0.107709E+01_JPRB, 0.108371E+01_JPRB &
+  &, 0.108991E+01_JPRB, 0.109570E+01_JPRB, 0.110107E+01_JPRB, 0.110601E+01_JPRB &
+  &, 0.111052E+01_JPRB, 0.111459E+01_JPRB, 0.111822E+01_JPRB &
+  &, 0.112140E+01_JPRB, 0.112413E+01_JPRB, 0.112642E+01_JPRB, 0.112824E+01_JPRB &
+  &, 0.112960E+01_JPRB, 0.113051E+01_JPRB, 0.113095E+01_JPRB &
+  &, 0.113092E+01_JPRB, 0.113043E+01_JPRB, 0.112947E+01_JPRB, 0.112804E+01_JPRB &
+  &, 0.112614E+01_JPRB, 0.112377E+01_JPRB, 0.112094E+01_JPRB &
+  &, 0.111764E+01_JPRB, 0.111388E+01_JPRB, 0.110966E+01_JPRB, 0.110498E+01_JPRB &
+  &, 0.109984E+01_JPRB, 0.109426E+01_JPRB, 0.108823E+01_JPRB &
+  &, 0.108177E+01_JPRB, 0.107487E+01_JPRB, 0.106755E+01_JPRB, 0.105980E+01_JPRB &
+  &, 0.105165E+01_JPRB, 0.104309E+01_JPRB, 0.103414E+01_JPRB &
+  &, 0.102480E+01_JPRB, 0.101509E+01_JPRB, 0.100501E+01_JPRB, 0.994583E+00_JPRB &
+  &, 0.983806E+00_JPRB, 0.972710E+00_JPRB, 0.961284E+00_JPRB &
+  &, 0.949547E+00_JPRB, 0.937517E+00_JPRB, 0.925218E+00_JPRB, 0.912645E+00_JPRB &
+  &, 0.899810E+00_JPRB, 0.886739E+00_JPRB, 0.873447E+00_JPRB &
+  &, 0.859934E+00_JPRB, 0.846230E+00_JPRB, 0.832353E+00_JPRB, 0.818287E+00_JPRB &
+  &, 0.804067E+00_JPRB, 0.789727E+00_JPRB, 0.775252E+00_JPRB &
+  &, 0.760662E+00_JPRB, 0.745975E+00_JPRB, 0.731210E+00_JPRB, 0.716387E+00_JPRB &
+  &, 0.701507E+00_JPRB, 0.686589E+00_JPRB, 0.671652E+00_JPRB &
+  &, 0.656715E+00_JPRB, 0.641776E+00_JPRB, 0.626854E+00_JPRB, 0.611966E+00_JPRB &
+  &, 0.597130E+00_JPRB, 0.582340E+00_JPRB, 0.567613E+00_JPRB &
+  &, 0.552987E+00_JPRB, 0.538456E+00_JPRB, 0.524032E+00_JPRB, 0.509705E+00_JPRB &
+  &, 0.495512E+00_JPRB, 0.481467E+00_JPRB, 0.467581E+00_JPRB &
+  &, 0.453837E+00_JPRB, 0.440273E+00_JPRB, 0.426869E+00_JPRB, 0.413632E+00_JPRB &
+  &, 0.400627E+00_JPRB, 0.387802E+00_JPRB, 0.375159E+00_JPRB &
+  &, 0.362764E+00_JPRB, 0.350557E+00_JPRB, 0.338603E+00_JPRB, 0.326870E+00_JPRB &
+  &, 0.315356E+00_JPRB, 0.304059E+00_JPRB, 0.293044E+00_JPRB &
+  &, 0.282237E+00_JPRB, 0.271665E+00_JPRB, 0.261359E+00_JPRB, 0.251310E+00_JPRB &
+  &, 0.241509E+00_JPRB, 0.231944E+00_JPRB, 0.222642E+00_JPRB &
+  &, 0.213588E+00_JPRB, 0.204809E+00_JPRB, 0.196247E+00_JPRB, 0.187925E+00_JPRB &
+  &, 0.179866E+00_JPRB, 0.172094E+00_JPRB, 0.164499E+00_JPRB &
+  &, 0.157191E+00_JPRB, 0.150100E+00_JPRB, 0.143247E+00_JPRB, 0.136650E+00_JPRB &
+  &, 0.130234E+00_JPRB, 0.124064E+00_JPRB, 0.118158E+00_JPRB &
+  &, 0.112436E+00_JPRB, 0.106912E+00_JPRB, 0.101601E+00_JPRB, 0.965189E-01_JPRB &
+  &, 0.916285E-01_JPRB, 0.869435E-01_JPRB, 0.824234E-01_JPRB &
+  &, 0.781353E-01_JPRB, 0.739817E-01_JPRB, 0.700295E-01_JPRB, 0.662335E-01_JPRB &
+  &, 0.626625E-01_JPRB, 0.592113E-01_JPRB, 0.558881E-01_JPRB &
+  &, 0.527621E-01_JPRB, 0.497828E-01_JPRB, 0.468968E-01_JPRB, 0.441735E-01_JPRB &
+  &, 0.416219E-01_JPRB, 0.391216E-01_JPRB, 0.368082E-01_JPRB/)
+XCW( 660, :) = (/ &
+  &  0.103831E+01_JPRB, 0.104697E+01_JPRB, 0.105525E+01_JPRB, 0.106314E+01_JPRB &
+  &, 0.107063E+01_JPRB, 0.107773E+01_JPRB, 0.108443E+01_JPRB &
+  &, 0.109071E+01_JPRB, 0.109658E+01_JPRB, 0.110202E+01_JPRB, 0.110703E+01_JPRB &
+  &, 0.111162E+01_JPRB, 0.111577E+01_JPRB, 0.111947E+01_JPRB &
+  &, 0.112273E+01_JPRB, 0.112554E+01_JPRB, 0.112790E+01_JPRB, 0.112980E+01_JPRB &
+  &, 0.113125E+01_JPRB, 0.113223E+01_JPRB, 0.113274E+01_JPRB &
+  &, 0.113279E+01_JPRB, 0.113237E+01_JPRB, 0.113149E+01_JPRB, 0.113013E+01_JPRB &
+  &, 0.112831E+01_JPRB, 0.112602E+01_JPRB, 0.112326E+01_JPRB &
+  &, 0.112003E+01_JPRB, 0.111634E+01_JPRB, 0.111219E+01_JPRB, 0.110758E+01_JPRB &
+  &, 0.110251E+01_JPRB, 0.109700E+01_JPRB, 0.109104E+01_JPRB &
+  &, 0.108463E+01_JPRB, 0.107780E+01_JPRB, 0.107054E+01_JPRB, 0.106286E+01_JPRB &
+  &, 0.105477E+01_JPRB, 0.104626E+01_JPRB, 0.103737E+01_JPRB &
+  &, 0.102809E+01_JPRB, 0.101844E+01_JPRB, 0.100841E+01_JPRB, 0.998029E+00_JPRB &
+  &, 0.987300E+00_JPRB, 0.976240E+00_JPRB, 0.964863E+00_JPRB &
+  &, 0.953174E+00_JPRB, 0.941192E+00_JPRB, 0.928926E+00_JPRB, 0.916386E+00_JPRB &
+  &, 0.903596E+00_JPRB, 0.890556E+00_JPRB, 0.877278E+00_JPRB &
+  &, 0.863808E+00_JPRB, 0.850115E+00_JPRB, 0.836247E+00_JPRB, 0.822221E+00_JPRB &
+  &, 0.808022E+00_JPRB, 0.793685E+00_JPRB, 0.779211E+00_JPRB &
+  &, 0.764636E+00_JPRB, 0.749963E+00_JPRB, 0.735210E+00_JPRB, 0.720320E+00_JPRB &
+  &, 0.705505E+00_JPRB, 0.690592E+00_JPRB, 0.675658E+00_JPRB &
+  &, 0.660701E+00_JPRB, 0.645738E+00_JPRB, 0.630811E+00_JPRB, 0.615915E+00_JPRB &
+  &, 0.601046E+00_JPRB, 0.586243E+00_JPRB, 0.571499E+00_JPRB &
+  &, 0.556854E+00_JPRB, 0.542276E+00_JPRB, 0.527827E+00_JPRB, 0.513471E+00_JPRB &
+  &, 0.499247E+00_JPRB, 0.485167E+00_JPRB, 0.471242E+00_JPRB &
+  &, 0.457457E+00_JPRB, 0.443848E+00_JPRB, 0.430396E+00_JPRB, 0.417136E+00_JPRB &
+  &, 0.404076E+00_JPRB, 0.391192E+00_JPRB, 0.378518E+00_JPRB &
+  &, 0.366057E+00_JPRB, 0.353812E+00_JPRB, 0.341785E+00_JPRB, 0.329975E+00_JPRB &
+  &, 0.318414E+00_JPRB, 0.307101E+00_JPRB, 0.295998E+00_JPRB &
+  &, 0.285134E+00_JPRB, 0.274540E+00_JPRB, 0.264171E+00_JPRB, 0.254057E+00_JPRB &
+  &, 0.244187E+00_JPRB, 0.234550E+00_JPRB, 0.225211E+00_JPRB &
+  &, 0.216079E+00_JPRB, 0.207218E+00_JPRB, 0.198612E+00_JPRB, 0.190244E+00_JPRB &
+  &, 0.182136E+00_JPRB, 0.174269E+00_JPRB, 0.166620E+00_JPRB &
+  &, 0.159255E+00_JPRB, 0.152105E+00_JPRB, 0.145190E+00_JPRB, 0.138482E+00_JPRB &
+  &, 0.132046E+00_JPRB, 0.125855E+00_JPRB, 0.119829E+00_JPRB &
+  &, 0.114081E+00_JPRB, 0.108480E+00_JPRB, 0.103141E+00_JPRB, 0.980293E-01_JPRB &
+  &, 0.930551E-01_JPRB, 0.883370E-01_JPRB, 0.837825E-01_JPRB &
+  &, 0.794034E-01_JPRB, 0.752118E-01_JPRB, 0.712201E-01_JPRB, 0.673832E-01_JPRB &
+  &, 0.637116E-01_JPRB, 0.602157E-01_JPRB, 0.569062E-01_JPRB &
+  &, 0.536726E-01_JPRB, 0.506442E-01_JPRB, 0.477697E-01_JPRB, 0.449948E-01_JPRB &
+  &, 0.423902E-01_JPRB, 0.399000E-01_JPRB, 0.375311E-01_JPRB/)
+XCW( 661, :) = (/ &
+  &  0.103859E+01_JPRB, 0.104732E+01_JPRB, 0.105567E+01_JPRB, 0.106363E+01_JPRB &
+  &, 0.107121E+01_JPRB, 0.107838E+01_JPRB, 0.108515E+01_JPRB &
+  &, 0.109151E+01_JPRB, 0.109745E+01_JPRB, 0.110297E+01_JPRB, 0.110806E+01_JPRB &
+  &, 0.111272E+01_JPRB, 0.111695E+01_JPRB, 0.112073E+01_JPRB &
+  &, 0.112407E+01_JPRB, 0.112696E+01_JPRB, 0.112939E+01_JPRB, 0.113137E+01_JPRB &
+  &, 0.113289E+01_JPRB, 0.113395E+01_JPRB, 0.113454E+01_JPRB &
+  &, 0.113467E+01_JPRB, 0.113433E+01_JPRB, 0.113352E+01_JPRB, 0.113224E+01_JPRB &
+  &, 0.113049E+01_JPRB, 0.112827E+01_JPRB, 0.112558E+01_JPRB &
+  &, 0.112242E+01_JPRB, 0.111881E+01_JPRB, 0.111473E+01_JPRB, 0.111019E+01_JPRB &
+  &, 0.110519E+01_JPRB, 0.109975E+01_JPRB, 0.109386E+01_JPRB &
+  &, 0.108752E+01_JPRB, 0.108075E+01_JPRB, 0.107355E+01_JPRB, 0.106593E+01_JPRB &
+  &, 0.105789E+01_JPRB, 0.104946E+01_JPRB, 0.104062E+01_JPRB &
+  &, 0.103139E+01_JPRB, 0.102179E+01_JPRB, 0.101182E+01_JPRB, 0.100149E+01_JPRB &
+  &, 0.990807E+00_JPRB, 0.979796E+00_JPRB, 0.968468E+00_JPRB &
+  &, 0.956813E+00_JPRB, 0.944879E+00_JPRB, 0.932647E+00_JPRB, 0.920140E+00_JPRB &
+  &, 0.907382E+00_JPRB, 0.894373E+00_JPRB, 0.881140E+00_JPRB &
+  &, 0.867683E+00_JPRB, 0.854032E+00_JPRB, 0.840173E+00_JPRB, 0.826154E+00_JPRB &
+  &, 0.811977E+00_JPRB, 0.797660E+00_JPRB, 0.783204E+00_JPRB &
+  &, 0.768647E+00_JPRB, 0.753969E+00_JPRB, 0.739229E+00_JPRB, 0.724407E+00_JPRB &
+  &, 0.709523E+00_JPRB, 0.694596E+00_JPRB, 0.679664E+00_JPRB &
+  &, 0.664686E+00_JPRB, 0.649743E+00_JPRB, 0.634790E+00_JPRB, 0.619864E+00_JPRB &
+  &, 0.604985E+00_JPRB, 0.590169E+00_JPRB, 0.575409E+00_JPRB &
+  &, 0.560722E+00_JPRB, 0.546121E+00_JPRB, 0.531647E+00_JPRB, 0.517263E+00_JPRB &
+  &, 0.503008E+00_JPRB, 0.488893E+00_JPRB, 0.474931E+00_JPRB &
+  &, 0.461105E+00_JPRB, 0.447452E+00_JPRB, 0.433952E+00_JPRB, 0.420670E+00_JPRB &
+  &, 0.407526E+00_JPRB, 0.394613E+00_JPRB, 0.381908E+00_JPRB &
+  &, 0.369382E+00_JPRB, 0.357100E+00_JPRB, 0.345001E+00_JPRB, 0.333147E+00_JPRB &
+  &, 0.321540E+00_JPRB, 0.310144E+00_JPRB, 0.298988E+00_JPRB &
+  &, 0.288068E+00_JPRB, 0.277414E+00_JPRB, 0.266983E+00_JPRB, 0.256803E+00_JPRB &
+  &, 0.246865E+00_JPRB, 0.237194E+00_JPRB, 0.227781E+00_JPRB &
+  &, 0.218610E+00_JPRB, 0.209668E+00_JPRB, 0.200977E+00_JPRB, 0.192562E+00_JPRB &
+  &, 0.184406E+00_JPRB, 0.176444E+00_JPRB, 0.168785E+00_JPRB &
+  &, 0.161319E+00_JPRB, 0.154110E+00_JPRB, 0.147133E+00_JPRB, 0.140408E+00_JPRB &
+  &, 0.133906E+00_JPRB, 0.127598E+00_JPRB, 0.121548E+00_JPRB &
+  &, 0.115726E+00_JPRB, 0.110099E+00_JPRB, 0.104681E+00_JPRB, 0.994876E-01_JPRB &
+  &, 0.945345E-01_JPRB, 0.897305E-01_JPRB, 0.850872E-01_JPRB &
+  &, 0.806715E-01_JPRB, 0.764419E-01_JPRB, 0.724107E-01_JPRB, 0.685329E-01_JPRB &
+  &, 0.648189E-01_JPRB, 0.612792E-01_JPRB, 0.579243E-01_JPRB &
+  &, 0.546439E-01_JPRB, 0.515670E-01_JPRB, 0.486426E-01_JPRB, 0.458793E-01_JPRB &
+  &, 0.432224E-01_JPRB, 0.406783E-01_JPRB, 0.382539E-01_JPRB/)
+XCW( 662, :) = (/ &
+  &  0.103887E+01_JPRB, 0.104767E+01_JPRB, 0.105610E+01_JPRB, 0.106413E+01_JPRB &
+  &, 0.107178E+01_JPRB, 0.107903E+01_JPRB, 0.108587E+01_JPRB &
+  &, 0.109231E+01_JPRB, 0.109832E+01_JPRB, 0.110392E+01_JPRB, 0.110909E+01_JPRB &
+  &, 0.111382E+01_JPRB, 0.111813E+01_JPRB, 0.112199E+01_JPRB &
+  &, 0.112541E+01_JPRB, 0.112837E+01_JPRB, 0.113089E+01_JPRB, 0.113294E+01_JPRB &
+  &, 0.113454E+01_JPRB, 0.113568E+01_JPRB, 0.113634E+01_JPRB &
+  &, 0.113655E+01_JPRB, 0.113628E+01_JPRB, 0.113555E+01_JPRB, 0.113434E+01_JPRB &
+  &, 0.113267E+01_JPRB, 0.113053E+01_JPRB, 0.112791E+01_JPRB &
+  &, 0.112483E+01_JPRB, 0.112127E+01_JPRB, 0.111728E+01_JPRB, 0.111281E+01_JPRB &
+  &, 0.110788E+01_JPRB, 0.110250E+01_JPRB, 0.109668E+01_JPRB &
+  &, 0.109041E+01_JPRB, 0.108371E+01_JPRB, 0.107657E+01_JPRB, 0.106901E+01_JPRB &
+  &, 0.106104E+01_JPRB, 0.105266E+01_JPRB, 0.104388E+01_JPRB &
+  &, 0.103470E+01_JPRB, 0.102516E+01_JPRB, 0.101524E+01_JPRB, 0.100496E+01_JPRB &
+  &, 0.994339E+00_JPRB, 0.983364E+00_JPRB, 0.971982E+00_JPRB &
+  &, 0.960479E+00_JPRB, 0.948567E+00_JPRB, 0.936383E+00_JPRB, 0.923908E+00_JPRB &
+  &, 0.911183E+00_JPRB, 0.898219E+00_JPRB, 0.885001E+00_JPRB &
+  &, 0.871572E+00_JPRB, 0.857949E+00_JPRB, 0.844132E+00_JPRB, 0.830121E+00_JPRB &
+  &, 0.815966E+00_JPRB, 0.801653E+00_JPRB, 0.787216E+00_JPRB &
+  &, 0.772657E+00_JPRB, 0.758013E+00_JPRB, 0.743267E+00_JPRB, 0.728436E+00_JPRB &
+  &, 0.713561E+00_JPRB, 0.698639E+00_JPRB, 0.683691E+00_JPRB &
+  &, 0.668714E+00_JPRB, 0.653748E+00_JPRB, 0.638790E+00_JPRB, 0.623858E+00_JPRB &
+  &, 0.608969E+00_JPRB, 0.594118E+00_JPRB, 0.579343E+00_JPRB &
+  &, 0.564637E+00_JPRB, 0.550016E+00_JPRB, 0.535493E+00_JPRB, 0.521081E+00_JPRB &
+  &, 0.506795E+00_JPRB, 0.492647E+00_JPRB, 0.478648E+00_JPRB &
+  &, 0.464781E+00_JPRB, 0.451084E+00_JPRB, 0.437565E+00_JPRB, 0.424204E+00_JPRB &
+  &, 0.411035E+00_JPRB, 0.398065E+00_JPRB, 0.385298E+00_JPRB &
+  &, 0.372738E+00_JPRB, 0.360388E+00_JPRB, 0.348249E+00_JPRB, 0.336353E+00_JPRB &
+  &, 0.324666E+00_JPRB, 0.313220E+00_JPRB, 0.302012E+00_JPRB &
+  &, 0.291037E+00_JPRB, 0.280325E+00_JPRB, 0.269833E+00_JPRB, 0.259588E+00_JPRB &
+  &, 0.249619E+00_JPRB, 0.239878E+00_JPRB, 0.230390E+00_JPRB &
+  &, 0.221141E+00_JPRB, 0.212158E+00_JPRB, 0.203425E+00_JPRB, 0.194923E+00_JPRB &
+  &, 0.186675E+00_JPRB, 0.178662E+00_JPRB, 0.170950E+00_JPRB &
+  &, 0.163428E+00_JPRB, 0.156160E+00_JPRB, 0.149122E+00_JPRB, 0.142333E+00_JPRB &
+  &, 0.135766E+00_JPRB, 0.129437E+00_JPRB, 0.123317E+00_JPRB &
+  &, 0.117422E+00_JPRB, 0.111769E+00_JPRB, 0.106272E+00_JPRB, 0.101050E+00_JPRB &
+  &, 0.959611E-01_JPRB, 0.911240E-01_JPRB, 0.864462E-01_JPRB &
+  &, 0.819947E-01_JPRB, 0.777279E-01_JPRB, 0.736013E-01_JPRB, 0.696827E-01_JPRB &
+  &, 0.659263E-01_JPRB, 0.623427E-01_JPRB, 0.589425E-01_JPRB &
+  &, 0.556759E-01_JPRB, 0.525514E-01_JPRB, 0.495778E-01_JPRB, 0.467007E-01_JPRB &
+  &, 0.440546E-01_JPRB, 0.414567E-01_JPRB, 0.390424E-01_JPRB/)
+XCW( 663, :) = (/ &
+  &  0.103915E+01_JPRB, 0.104803E+01_JPRB, 0.105652E+01_JPRB, 0.106463E+01_JPRB &
+  &, 0.107236E+01_JPRB, 0.107968E+01_JPRB, 0.108660E+01_JPRB &
+  &, 0.109311E+01_JPRB, 0.109920E+01_JPRB, 0.110487E+01_JPRB, 0.111012E+01_JPRB &
+  &, 0.111494E+01_JPRB, 0.111932E+01_JPRB, 0.112325E+01_JPRB &
+  &, 0.112675E+01_JPRB, 0.112979E+01_JPRB, 0.113238E+01_JPRB, 0.113452E+01_JPRB &
+  &, 0.113619E+01_JPRB, 0.113740E+01_JPRB, 0.113815E+01_JPRB &
+  &, 0.113843E+01_JPRB, 0.113824E+01_JPRB, 0.113759E+01_JPRB, 0.113646E+01_JPRB &
+  &, 0.113486E+01_JPRB, 0.113279E+01_JPRB, 0.113025E+01_JPRB &
+  &, 0.112725E+01_JPRB, 0.112377E+01_JPRB, 0.111983E+01_JPRB, 0.111543E+01_JPRB &
+  &, 0.111058E+01_JPRB, 0.110527E+01_JPRB, 0.109951E+01_JPRB &
+  &, 0.109330E+01_JPRB, 0.108666E+01_JPRB, 0.107959E+01_JPRB, 0.107210E+01_JPRB &
+  &, 0.106419E+01_JPRB, 0.105586E+01_JPRB, 0.104714E+01_JPRB &
+  &, 0.103804E+01_JPRB, 0.102854E+01_JPRB, 0.101867E+01_JPRB, 0.100844E+01_JPRB &
+  &, 0.997870E+00_JPRB, 0.986945E+00_JPRB, 0.975702E+00_JPRB &
+  &, 0.964145E+00_JPRB, 0.952282E+00_JPRB, 0.940132E+00_JPRB, 0.927705E+00_JPRB &
+  &, 0.915013E+00_JPRB, 0.902066E+00_JPRB, 0.888893E+00_JPRB &
+  &, 0.875493E+00_JPRB, 0.861882E+00_JPRB, 0.848091E+00_JPRB, 0.834104E+00_JPRB &
+  &, 0.819973E+00_JPRB, 0.805680E+00_JPRB, 0.791245E+00_JPRB &
+  &, 0.776704E+00_JPRB, 0.762057E+00_JPRB, 0.747305E+00_JPRB, 0.732504E+00_JPRB &
+  &, 0.717618E+00_JPRB, 0.702703E+00_JPRB, 0.687738E+00_JPRB &
+  &, 0.672763E+00_JPRB, 0.657775E+00_JPRB, 0.642813E+00_JPRB, 0.627852E+00_JPRB &
+  &, 0.612954E+00_JPRB, 0.598090E+00_JPRB, 0.583277E+00_JPRB &
+  &, 0.568553E+00_JPRB, 0.553911E+00_JPRB, 0.539363E+00_JPRB, 0.524925E+00_JPRB &
+  &, 0.510609E+00_JPRB, 0.496427E+00_JPRB, 0.482364E+00_JPRB &
+  &, 0.468485E+00_JPRB, 0.454744E+00_JPRB, 0.441179E+00_JPRB, 0.427767E+00_JPRB &
+  &, 0.414574E+00_JPRB, 0.401547E+00_JPRB, 0.388719E+00_JPRB &
+  &, 0.376126E+00_JPRB, 0.363708E+00_JPRB, 0.351530E+00_JPRB, 0.339558E+00_JPRB &
+  &, 0.327826E+00_JPRB, 0.316332E+00_JPRB, 0.305072E+00_JPRB &
+  &, 0.294042E+00_JPRB, 0.283236E+00_JPRB, 0.272682E+00_JPRB, 0.262410E+00_JPRB &
+  &, 0.252335E+00_JPRB, 0.242561E+00_JPRB, 0.232999E+00_JPRB &
+  &, 0.223713E+00_JPRB, 0.214649E+00_JPRB, 0.205831E+00_JPRB, 0.197283E+00_JPRB &
+  &, 0.188988E+00_JPRB, 0.180924E+00_JPRB, 0.173115E+00_JPRB &
+  &, 0.165537E+00_JPRB, 0.158211E+00_JPRB, 0.151112E+00_JPRB, 0.144259E+00_JPRB &
+  &, 0.137625E+00_JPRB, 0.131228E+00_JPRB, 0.125085E+00_JPRB &
+  &, 0.119117E+00_JPRB, 0.113388E+00_JPRB, 0.107864E+00_JPRB, 0.102561E+00_JPRB &
+  &, 0.974405E-01_JPRB, 0.925711E-01_JPRB, 0.878596E-01_JPRB &
+  &, 0.833179E-01_JPRB, 0.790138E-01_JPRB, 0.748486E-01_JPRB, 0.708899E-01_JPRB &
+  &, 0.670919E-01_JPRB, 0.634652E-01_JPRB, 0.599606E-01_JPRB &
+  &, 0.566472E-01_JPRB, 0.534743E-01_JPRB, 0.504507E-01_JPRB, 0.475852E-01_JPRB &
+  &, 0.448869E-01_JPRB, 0.422350E-01_JPRB, 0.397652E-01_JPRB/)
+XCW( 664, :) = (/ &
+  &  0.103943E+01_JPRB, 0.104838E+01_JPRB, 0.105695E+01_JPRB, 0.106513E+01_JPRB &
+  &, 0.107293E+01_JPRB, 0.108033E+01_JPRB, 0.108732E+01_JPRB &
+  &, 0.109391E+01_JPRB, 0.110008E+01_JPRB, 0.110583E+01_JPRB, 0.111115E+01_JPRB &
+  &, 0.111605E+01_JPRB, 0.112050E+01_JPRB, 0.112452E+01_JPRB &
+  &, 0.112809E+01_JPRB, 0.113121E+01_JPRB, 0.113388E+01_JPRB, 0.113609E+01_JPRB &
+  &, 0.113785E+01_JPRB, 0.113914E+01_JPRB, 0.113996E+01_JPRB &
+  &, 0.114032E+01_JPRB, 0.114021E+01_JPRB, 0.113963E+01_JPRB, 0.113858E+01_JPRB &
+  &, 0.113705E+01_JPRB, 0.113500E+01_JPRB, 0.113259E+01_JPRB &
+  &, 0.112966E+01_JPRB, 0.112626E+01_JPRB, 0.112239E+01_JPRB, 0.111807E+01_JPRB &
+  &, 0.111328E+01_JPRB, 0.110804E+01_JPRB, 0.110235E+01_JPRB &
+  &, 0.109621E+01_JPRB, 0.108964E+01_JPRB, 0.108263E+01_JPRB, 0.107520E+01_JPRB &
+  &, 0.106735E+01_JPRB, 0.105909E+01_JPRB, 0.105043E+01_JPRB &
+  &, 0.104137E+01_JPRB, 0.103192E+01_JPRB, 0.102212E+01_JPRB, 0.101194E+01_JPRB &
+  &, 0.100141E+01_JPRB, 0.990538E+00_JPRB, 0.979345E+00_JPRB &
+  &, 0.967824E+00_JPRB, 0.956010E+00_JPRB, 0.943895E+00_JPRB, 0.931502E+00_JPRB &
+  &, 0.918842E+00_JPRB, 0.905942E+00_JPRB, 0.892784E+00_JPRB &
+  &, 0.879414E+00_JPRB, 0.865846E+00_JPRB, 0.852066E+00_JPRB, 0.838104E+00_JPRB &
+  &, 0.823979E+00_JPRB, 0.809708E+00_JPRB, 0.795292E+00_JPRB &
+  &, 0.780769E+00_JPRB, 0.766119E+00_JPRB, 0.751381E+00_JPRB, 0.736573E+00_JPRB &
+  &, 0.721695E+00_JPRB, 0.706767E+00_JPRB, 0.691806E+00_JPRB &
+  &, 0.676833E+00_JPRB, 0.661844E+00_JPRB, 0.646858E+00_JPRB, 0.631891E+00_JPRB &
+  &, 0.616961E+00_JPRB, 0.602086E+00_JPRB, 0.587259E+00_JPRB &
+  &, 0.572518E+00_JPRB, 0.557830E+00_JPRB, 0.543259E+00_JPRB, 0.528794E+00_JPRB &
+  &, 0.514449E+00_JPRB, 0.500234E+00_JPRB, 0.486135E+00_JPRB &
+  &, 0.472216E+00_JPRB, 0.458433E+00_JPRB, 0.444821E+00_JPRB, 0.431359E+00_JPRB &
+  &, 0.418113E+00_JPRB, 0.405059E+00_JPRB, 0.392171E+00_JPRB &
+  &, 0.379515E+00_JPRB, 0.367061E+00_JPRB, 0.354843E+00_JPRB, 0.342797E+00_JPRB &
+  &, 0.331020E+00_JPRB, 0.319478E+00_JPRB, 0.308132E+00_JPRB &
+  &, 0.297047E+00_JPRB, 0.286219E+00_JPRB, 0.275605E+00_JPRB, 0.265232E+00_JPRB &
+  &, 0.255128E+00_JPRB, 0.245283E+00_JPRB, 0.235647E+00_JPRB &
+  &, 0.226284E+00_JPRB, 0.217180E+00_JPRB, 0.208320E+00_JPRB, 0.199686E+00_JPRB &
+  &, 0.191343E+00_JPRB, 0.183230E+00_JPRB, 0.175324E+00_JPRB &
+  &, 0.167691E+00_JPRB, 0.160307E+00_JPRB, 0.153148E+00_JPRB, 0.146232E+00_JPRB &
+  &, 0.139533E+00_JPRB, 0.133115E+00_JPRB, 0.126854E+00_JPRB &
+  &, 0.120862E+00_JPRB, 0.115057E+00_JPRB, 0.109506E+00_JPRB, 0.104123E+00_JPRB &
+  &, 0.989728E-01_JPRB, 0.940182E-01_JPRB, 0.892731E-01_JPRB &
+  &, 0.846963E-01_JPRB, 0.802998E-01_JPRB, 0.760959E-01_JPRB, 0.720970E-01_JPRB &
+  &, 0.682575E-01_JPRB, 0.645287E-01_JPRB, 0.610387E-01_JPRB &
+  &, 0.576791E-01_JPRB, 0.544587E-01_JPRB, 0.513859E-01_JPRB, 0.484698E-01_JPRB &
+  &, 0.457191E-01_JPRB, 0.430782E-01_JPRB, 0.405538E-01_JPRB/)
+XCW( 665, :) = (/ &
+  &  0.103971E+01_JPRB, 0.104873E+01_JPRB, 0.105738E+01_JPRB, 0.106564E+01_JPRB &
+  &, 0.107351E+01_JPRB, 0.108098E+01_JPRB, 0.108805E+01_JPRB &
+  &, 0.109471E+01_JPRB, 0.110096E+01_JPRB, 0.110679E+01_JPRB, 0.111219E+01_JPRB &
+  &, 0.111716E+01_JPRB, 0.112169E+01_JPRB, 0.112579E+01_JPRB &
+  &, 0.112944E+01_JPRB, 0.113264E+01_JPRB, 0.113539E+01_JPRB, 0.113768E+01_JPRB &
+  &, 0.113951E+01_JPRB, 0.114087E+01_JPRB, 0.114178E+01_JPRB &
+  &, 0.114221E+01_JPRB, 0.114218E+01_JPRB, 0.114168E+01_JPRB, 0.114070E+01_JPRB &
+  &, 0.113925E+01_JPRB, 0.113733E+01_JPRB, 0.113494E+01_JPRB &
+  &, 0.113208E+01_JPRB, 0.112875E+01_JPRB, 0.112496E+01_JPRB, 0.112070E+01_JPRB &
+  &, 0.111599E+01_JPRB, 0.111082E+01_JPRB, 0.110520E+01_JPRB &
+  &, 0.109913E+01_JPRB, 0.109262E+01_JPRB, 0.108568E+01_JPRB, 0.107831E+01_JPRB &
+  &, 0.107052E+01_JPRB, 0.106232E+01_JPRB, 0.105371E+01_JPRB &
+  &, 0.104472E+01_JPRB, 0.103533E+01_JPRB, 0.102557E+01_JPRB, 0.101545E+01_JPRB &
+  &, 0.100497E+01_JPRB, 0.994144E+00_JPRB, 0.983000E+00_JPRB &
+  &, 0.971530E+00_JPRB, 0.959751E+00_JPRB, 0.947671E+00_JPRB, 0.935327E+00_JPRB &
+  &, 0.922701E+00_JPRB, 0.909818E+00_JPRB, 0.896706E+00_JPRB &
+  &, 0.883366E+00_JPRB, 0.869811E+00_JPRB, 0.856057E+00_JPRB, 0.842120E+00_JPRB &
+  &, 0.828019E+00_JPRB, 0.813770E+00_JPRB, 0.799357E+00_JPRB &
+  &, 0.784833E+00_JPRB, 0.770218E+00_JPRB, 0.755475E+00_JPRB, 0.740679E+00_JPRB &
+  &, 0.725792E+00_JPRB, 0.710871E+00_JPRB, 0.695916E+00_JPRB &
+  &, 0.680924E+00_JPRB, 0.665914E+00_JPRB, 0.650925E+00_JPRB, 0.635952E+00_JPRB &
+  &, 0.621015E+00_JPRB, 0.606106E+00_JPRB, 0.591264E+00_JPRB &
+  &, 0.576482E+00_JPRB, 0.561799E+00_JPRB, 0.547181E+00_JPRB, 0.532690E+00_JPRB &
+  &, 0.518315E+00_JPRB, 0.504041E+00_JPRB, 0.489933E+00_JPRB &
+  &, 0.475948E+00_JPRB, 0.462122E+00_JPRB, 0.448492E+00_JPRB, 0.435011E+00_JPRB &
+  &, 0.421592E+00_JPRB, 0.408572E+00_JPRB, 0.395655E+00_JPRB &
+  &, 0.382966E+00_JPRB, 0.370445E+00_JPRB, 0.358157E+00_JPRB, 0.346069E+00_JPRB &
+  &, 0.334248E+00_JPRB, 0.322624E+00_JPRB, 0.311227E+00_JPRB &
+  &, 0.300088E+00_JPRB, 0.289203E+00_JPRB, 0.278528E+00_JPRB, 0.268091E+00_JPRB &
+  &, 0.257920E+00_JPRB, 0.248005E+00_JPRB, 0.238335E+00_JPRB &
+  &, 0.228896E+00_JPRB, 0.219712E+00_JPRB, 0.210810E+00_JPRB, 0.202131E+00_JPRB &
+  &, 0.193698E+00_JPRB, 0.185535E+00_JPRB, 0.177577E+00_JPRB &
+  &, 0.169889E+00_JPRB, 0.162448E+00_JPRB, 0.155229E+00_JPRB, 0.148252E+00_JPRB &
+  &, 0.141488E+00_JPRB, 0.134955E+00_JPRB, 0.128671E+00_JPRB &
+  &, 0.122607E+00_JPRB, 0.116777E+00_JPRB, 0.111149E+00_JPRB, 0.105738E+00_JPRB &
+  &, 0.100505E+00_JPRB, 0.954653E-01_JPRB, 0.906865E-01_JPRB &
+  &, 0.860746E-01_JPRB, 0.816417E-01_JPRB, 0.773433E-01_JPRB, 0.733043E-01_JPRB &
+  &, 0.694232E-01_JPRB, 0.656513E-01_JPRB, 0.621167E-01_JPRB &
+  &, 0.587111E-01_JPRB, 0.554430E-01_JPRB, 0.523835E-01_JPRB, 0.494175E-01_JPRB &
+  &, 0.466154E-01_JPRB, 0.439214E-01_JPRB, 0.413423E-01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART95',1,ZHOOK_HANDLE)
+END SUBROUTINE PART95
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART96
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART96',0,ZHOOK_HANDLE)
+
+XCW( 666, :) = (/ &
+  &  0.103999E+01_JPRB, 0.104909E+01_JPRB, 0.105781E+01_JPRB, 0.106614E+01_JPRB &
+  &, 0.107408E+01_JPRB, 0.108163E+01_JPRB, 0.108878E+01_JPRB &
+  &, 0.109552E+01_JPRB, 0.110184E+01_JPRB, 0.110774E+01_JPRB, 0.111322E+01_JPRB &
+  &, 0.111827E+01_JPRB, 0.112288E+01_JPRB, 0.112706E+01_JPRB &
+  &, 0.113079E+01_JPRB, 0.113406E+01_JPRB, 0.113689E+01_JPRB, 0.113926E+01_JPRB &
+  &, 0.114117E+01_JPRB, 0.114262E+01_JPRB, 0.114360E+01_JPRB &
+  &, 0.114411E+01_JPRB, 0.114415E+01_JPRB, 0.114373E+01_JPRB, 0.114283E+01_JPRB &
+  &, 0.114146E+01_JPRB, 0.113961E+01_JPRB, 0.113730E+01_JPRB &
+  &, 0.113451E+01_JPRB, 0.113126E+01_JPRB, 0.112754E+01_JPRB, 0.112335E+01_JPRB &
+  &, 0.111871E+01_JPRB, 0.111361E+01_JPRB, 0.110806E+01_JPRB &
+  &, 0.110206E+01_JPRB, 0.109561E+01_JPRB, 0.108874E+01_JPRB, 0.108143E+01_JPRB &
+  &, 0.107370E+01_JPRB, 0.106556E+01_JPRB, 0.105702E+01_JPRB &
+  &, 0.104807E+01_JPRB, 0.103875E+01_JPRB, 0.102904E+01_JPRB, 0.101897E+01_JPRB &
+  &, 0.100854E+01_JPRB, 0.997762E+00_JPRB, 0.986656E+00_JPRB &
+  &, 0.975235E+00_JPRB, 0.963493E+00_JPRB, 0.951462E+00_JPRB, 0.939152E+00_JPRB &
+  &, 0.926574E+00_JPRB, 0.913723E+00_JPRB, 0.900643E+00_JPRB &
+  &, 0.887333E+00_JPRB, 0.873807E+00_JPRB, 0.860080E+00_JPRB, 0.846153E+00_JPRB &
+  &, 0.832076E+00_JPRB, 0.817832E+00_JPRB, 0.803457E+00_JPRB &
+  &, 0.788935E+00_JPRB, 0.774318E+00_JPRB, 0.759589E+00_JPRB, 0.744786E+00_JPRB &
+  &, 0.729928E+00_JPRB, 0.714995E+00_JPRB, 0.700025E+00_JPRB &
+  &, 0.685036E+00_JPRB, 0.670026E+00_JPRB, 0.655013E+00_JPRB, 0.640036E+00_JPRB &
+  &, 0.625068E+00_JPRB, 0.610148E+00_JPRB, 0.595293E+00_JPRB &
+  &, 0.580495E+00_JPRB, 0.565769E+00_JPRB, 0.551127E+00_JPRB, 0.536611E+00_JPRB &
+  &, 0.522181E+00_JPRB, 0.507902E+00_JPRB, 0.493759E+00_JPRB &
+  &, 0.479735E+00_JPRB, 0.465867E+00_JPRB, 0.452164E+00_JPRB, 0.438662E+00_JPRB &
+  &, 0.425311E+00_JPRB, 0.412145E+00_JPRB, 0.399169E+00_JPRB &
+  &, 0.386417E+00_JPRB, 0.373862E+00_JPRB, 0.361504E+00_JPRB, 0.349375E+00_JPRB &
+  &, 0.337476E+00_JPRB, 0.325804E+00_JPRB, 0.314357E+00_JPRB &
+  &, 0.303165E+00_JPRB, 0.292187E+00_JPRB, 0.281488E+00_JPRB, 0.270988E+00_JPRB &
+  &, 0.260751E+00_JPRB, 0.250767E+00_JPRB, 0.241023E+00_JPRB &
+  &, 0.231547E+00_JPRB, 0.222325E+00_JPRB, 0.213340E+00_JPRB, 0.204576E+00_JPRB &
+  &, 0.196096E+00_JPRB, 0.187841E+00_JPRB, 0.179830E+00_JPRB &
+  &, 0.172088E+00_JPRB, 0.164590E+00_JPRB, 0.157311E+00_JPRB, 0.150272E+00_JPRB &
+  &, 0.143443E+00_JPRB, 0.136891E+00_JPRB, 0.130538E+00_JPRB &
+  &, 0.124401E+00_JPRB, 0.118497E+00_JPRB, 0.112792E+00_JPRB, 0.107300E+00_JPRB &
+  &, 0.102037E+00_JPRB, 0.969661E-01_JPRB, 0.920999E-01_JPRB &
+  &, 0.874530E-01_JPRB, 0.829836E-01_JPRB, 0.786473E-01_JPRB, 0.745115E-01_JPRB &
+  &, 0.705888E-01_JPRB, 0.668330E-01_JPRB, 0.631947E-01_JPRB &
+  &, 0.597431E-01_JPRB, 0.564889E-01_JPRB, 0.533188E-01_JPRB, 0.503020E-01_JPRB &
+  &, 0.474476E-01_JPRB, 0.447646E-01_JPRB, 0.421308E-01_JPRB/)
+XCW( 667, :) = (/ &
+  &  0.104028E+01_JPRB, 0.104944E+01_JPRB, 0.105823E+01_JPRB, 0.106664E+01_JPRB &
+  &, 0.107466E+01_JPRB, 0.108228E+01_JPRB, 0.108951E+01_JPRB &
+  &, 0.109632E+01_JPRB, 0.110272E+01_JPRB, 0.110870E+01_JPRB, 0.111426E+01_JPRB &
+  &, 0.111939E+01_JPRB, 0.112408E+01_JPRB, 0.112833E+01_JPRB &
+  &, 0.113214E+01_JPRB, 0.113549E+01_JPRB, 0.113840E+01_JPRB, 0.114085E+01_JPRB &
+  &, 0.114283E+01_JPRB, 0.114436E+01_JPRB, 0.114542E+01_JPRB &
+  &, 0.114601E+01_JPRB, 0.114613E+01_JPRB, 0.114578E+01_JPRB, 0.114496E+01_JPRB &
+  &, 0.114366E+01_JPRB, 0.114190E+01_JPRB, 0.113966E+01_JPRB &
+  &, 0.113695E+01_JPRB, 0.113377E+01_JPRB, 0.113012E+01_JPRB, 0.112601E+01_JPRB &
+  &, 0.112143E+01_JPRB, 0.111640E+01_JPRB, 0.111092E+01_JPRB &
+  &, 0.110499E+01_JPRB, 0.109860E+01_JPRB, 0.109180E+01_JPRB, 0.108456E+01_JPRB &
+  &, 0.107689E+01_JPRB, 0.106881E+01_JPRB, 0.106032E+01_JPRB &
+  &, 0.105144E+01_JPRB, 0.104218E+01_JPRB, 0.103252E+01_JPRB, 0.102250E+01_JPRB &
+  &, 0.101213E+01_JPRB, 0.100141E+01_JPRB, 0.990337E+00_JPRB &
+  &, 0.978954E+00_JPRB, 0.967261E+00_JPRB, 0.955280E+00_JPRB, 0.943005E+00_JPRB &
+  &, 0.930447E+00_JPRB, 0.917644E+00_JPRB, 0.904596E+00_JPRB &
+  &, 0.891300E+00_JPRB, 0.877803E+00_JPRB, 0.864104E+00_JPRB, 0.850220E+00_JPRB &
+  &, 0.836150E+00_JPRB, 0.821929E+00_JPRB, 0.807558E+00_JPRB &
+  &, 0.793054E+00_JPRB, 0.778454E+00_JPRB, 0.763741E+00_JPRB, 0.748931E+00_JPRB &
+  &, 0.734065E+00_JPRB, 0.719140E+00_JPRB, 0.704155E+00_JPRB &
+  &, 0.689170E+00_JPRB, 0.674139E+00_JPRB, 0.659124E+00_JPRB, 0.644142E+00_JPRB &
+  &, 0.629144E+00_JPRB, 0.614214E+00_JPRB, 0.599323E+00_JPRB &
+  &, 0.584508E+00_JPRB, 0.569763E+00_JPRB, 0.555099E+00_JPRB, 0.540558E+00_JPRB &
+  &, 0.526100E+00_JPRB, 0.511789E+00_JPRB, 0.497584E+00_JPRB &
+  &, 0.483550E+00_JPRB, 0.469641E+00_JPRB, 0.455893E+00_JPRB, 0.442343E+00_JPRB &
+  &, 0.428941E+00_JPRB, 0.415719E+00_JPRB, 0.402715E+00_JPRB &
+  &, 0.389901E+00_JPRB, 0.377279E+00_JPRB, 0.364883E+00_JPRB, 0.352714E+00_JPRB &
+  &, 0.340772E+00_JPRB, 0.329019E+00_JPRB, 0.317522E+00_JPRB &
+  &, 0.306277E+00_JPRB, 0.295243E+00_JPRB, 0.284449E+00_JPRB, 0.273923E+00_JPRB &
+  &, 0.263620E+00_JPRB, 0.253567E+00_JPRB, 0.243790E+00_JPRB &
+  &, 0.234239E+00_JPRB, 0.224938E+00_JPRB, 0.215871E+00_JPRB, 0.207063E+00_JPRB &
+  &, 0.198494E+00_JPRB, 0.190190E+00_JPRB, 0.182128E+00_JPRB &
+  &, 0.174331E+00_JPRB, 0.166731E+00_JPRB, 0.159393E+00_JPRB, 0.152291E+00_JPRB &
+  &, 0.145445E+00_JPRB, 0.138778E+00_JPRB, 0.132405E+00_JPRB &
+  &, 0.126196E+00_JPRB, 0.120218E+00_JPRB, 0.114486E+00_JPRB, 0.108967E+00_JPRB &
+  &, 0.103622E+00_JPRB, 0.985203E-01_JPRB, 0.935677E-01_JPRB &
+  &, 0.888313E-01_JPRB, 0.843255E-01_JPRB, 0.799513E-01_JPRB, 0.757761E-01_JPRB &
+  &, 0.718127E-01_JPRB, 0.679556E-01_JPRB, 0.643327E-01_JPRB &
+  &, 0.608357E-01_JPRB, 0.574733E-01_JPRB, 0.543164E-01_JPRB, 0.512497E-01_JPRB &
+  &, 0.483439E-01_JPRB, 0.456078E-01_JPRB, 0.429851E-01_JPRB/)
+XCW( 668, :) = (/ &
+  &  0.104056E+01_JPRB, 0.104980E+01_JPRB, 0.105866E+01_JPRB, 0.106715E+01_JPRB &
+  &, 0.107524E+01_JPRB, 0.108294E+01_JPRB, 0.109024E+01_JPRB &
+  &, 0.109713E+01_JPRB, 0.110361E+01_JPRB, 0.110967E+01_JPRB, 0.111530E+01_JPRB &
+  &, 0.112051E+01_JPRB, 0.112528E+01_JPRB, 0.112961E+01_JPRB &
+  &, 0.113349E+01_JPRB, 0.113693E+01_JPRB, 0.113991E+01_JPRB, 0.114244E+01_JPRB &
+  &, 0.114451E+01_JPRB, 0.114611E+01_JPRB, 0.114725E+01_JPRB &
+  &, 0.114792E+01_JPRB, 0.114811E+01_JPRB, 0.114784E+01_JPRB, 0.114710E+01_JPRB &
+  &, 0.114588E+01_JPRB, 0.114419E+01_JPRB, 0.114202E+01_JPRB &
+  &, 0.113939E+01_JPRB, 0.113628E+01_JPRB, 0.113271E+01_JPRB, 0.112867E+01_JPRB &
+  &, 0.112416E+01_JPRB, 0.111920E+01_JPRB, 0.111379E+01_JPRB &
+  &, 0.110792E+01_JPRB, 0.110162E+01_JPRB, 0.109487E+01_JPRB, 0.108770E+01_JPRB &
+  &, 0.108009E+01_JPRB, 0.107207E+01_JPRB, 0.106365E+01_JPRB &
+  &, 0.105483E+01_JPRB, 0.104560E+01_JPRB, 0.103601E+01_JPRB, 0.102605E+01_JPRB &
+  &, 0.101572E+01_JPRB, 0.100505E+01_JPRB, 0.994031E+00_JPRB &
+  &, 0.982699E+00_JPRB, 0.971043E+00_JPRB, 0.959098E+00_JPRB, 0.946858E+00_JPRB &
+  &, 0.934348E+00_JPRB, 0.921579E+00_JPRB, 0.908563E+00_JPRB &
+  &, 0.895299E+00_JPRB, 0.881831E+00_JPRB, 0.868160E+00_JPRB, 0.854286E+00_JPRB &
+  &, 0.840241E+00_JPRB, 0.826043E+00_JPRB, 0.811676E+00_JPRB &
+  &, 0.797191E+00_JPRB, 0.782590E+00_JPRB, 0.767892E+00_JPRB, 0.753096E+00_JPRB &
+  &, 0.738221E+00_JPRB, 0.723305E+00_JPRB, 0.708326E+00_JPRB &
+  &, 0.693324E+00_JPRB, 0.678295E+00_JPRB, 0.663278E+00_JPRB, 0.648248E+00_JPRB &
+  &, 0.633266E+00_JPRB, 0.618304E+00_JPRB, 0.603400E+00_JPRB &
+  &, 0.588570E+00_JPRB, 0.573781E+00_JPRB, 0.559122E+00_JPRB, 0.544531E+00_JPRB &
+  &, 0.530045E+00_JPRB, 0.515677E+00_JPRB, 0.501465E+00_JPRB &
+  &, 0.487365E+00_JPRB, 0.473443E+00_JPRB, 0.459651E+00_JPRB, 0.446024E+00_JPRB &
+  &, 0.432600E+00_JPRB, 0.419354E+00_JPRB, 0.406291E+00_JPRB &
+  &, 0.393415E+00_JPRB, 0.380760E+00_JPRB, 0.368295E+00_JPRB, 0.356086E+00_JPRB &
+  &, 0.344067E+00_JPRB, 0.332269E+00_JPRB, 0.320723E+00_JPRB &
+  &, 0.309390E+00_JPRB, 0.298300E+00_JPRB, 0.287483E+00_JPRB, 0.276858E+00_JPRB &
+  &, 0.266527E+00_JPRB, 0.256405E+00_JPRB, 0.246518E+00_JPRB &
+  &, 0.236931E+00_JPRB, 0.227551E+00_JPRB, 0.218443E+00_JPRB, 0.209592E+00_JPRB &
+  &, 0.200935E+00_JPRB, 0.192582E+00_JPRB, 0.184470E+00_JPRB &
+  &, 0.176575E+00_JPRB, 0.168919E+00_JPRB, 0.161522E+00_JPRB, 0.154358E+00_JPRB &
+  &, 0.147448E+00_JPRB, 0.140714E+00_JPRB, 0.134272E+00_JPRB &
+  &, 0.128041E+00_JPRB, 0.121988E+00_JPRB, 0.116180E+00_JPRB, 0.110581E+00_JPRB &
+  &, 0.105208E+00_JPRB, 0.100021E+00_JPRB, 0.950899E-01_JPRB &
+  &, 0.902648E-01_JPRB, 0.856674E-01_JPRB, 0.813120E-01_JPRB, 0.770983E-01_JPRB &
+  &, 0.730366E-01_JPRB, 0.691372E-01_JPRB, 0.654706E-01_JPRB &
+  &, 0.619284E-01_JPRB, 0.585192E-01_JPRB, 0.553139E-01_JPRB, 0.521974E-01_JPRB &
+  &, 0.493041E-01_JPRB, 0.464510E-01_JPRB, 0.438393E-01_JPRB/)
+XCW( 669, :) = (/ &
+  &  0.104084E+01_JPRB, 0.105016E+01_JPRB, 0.105909E+01_JPRB, 0.106765E+01_JPRB &
+  &, 0.107582E+01_JPRB, 0.108360E+01_JPRB, 0.109097E+01_JPRB &
+  &, 0.109794E+01_JPRB, 0.110449E+01_JPRB, 0.111063E+01_JPRB, 0.111634E+01_JPRB &
+  &, 0.112163E+01_JPRB, 0.112647E+01_JPRB, 0.113088E+01_JPRB &
+  &, 0.113485E+01_JPRB, 0.113836E+01_JPRB, 0.114143E+01_JPRB, 0.114403E+01_JPRB &
+  &, 0.114618E+01_JPRB, 0.114786E+01_JPRB, 0.114908E+01_JPRB &
+  &, 0.114983E+01_JPRB, 0.115010E+01_JPRB, 0.114991E+01_JPRB, 0.114924E+01_JPRB &
+  &, 0.114810E+01_JPRB, 0.114649E+01_JPRB, 0.114440E+01_JPRB &
+  &, 0.114183E+01_JPRB, 0.113880E+01_JPRB, 0.113530E+01_JPRB, 0.113134E+01_JPRB &
+  &, 0.112690E+01_JPRB, 0.112201E+01_JPRB, 0.111667E+01_JPRB &
+  &, 0.111087E+01_JPRB, 0.110463E+01_JPRB, 0.109795E+01_JPRB, 0.109084E+01_JPRB &
+  &, 0.108330E+01_JPRB, 0.107535E+01_JPRB, 0.106698E+01_JPRB &
+  &, 0.105821E+01_JPRB, 0.104905E+01_JPRB, 0.103951E+01_JPRB, 0.102960E+01_JPRB &
+  &, 0.101933E+01_JPRB, 0.100870E+01_JPRB, 0.997738E+00_JPRB &
+  &, 0.986457E+00_JPRB, 0.974852E+00_JPRB, 0.962943E+00_JPRB, 0.950740E+00_JPRB &
+  &, 0.938265E+00_JPRB, 0.925529E+00_JPRB, 0.912545E+00_JPRB &
+  &, 0.899312E+00_JPRB, 0.885875E+00_JPRB, 0.872216E+00_JPRB, 0.858369E+00_JPRB &
+  &, 0.844349E+00_JPRB, 0.830158E+00_JPRB, 0.815829E+00_JPRB &
+  &, 0.801347E+00_JPRB, 0.786764E+00_JPRB, 0.772063E+00_JPRB, 0.757281E+00_JPRB &
+  &, 0.742417E+00_JPRB, 0.727490E+00_JPRB, 0.712498E+00_JPRB &
+  &, 0.697499E+00_JPRB, 0.682472E+00_JPRB, 0.667433E+00_JPRB, 0.652399E+00_JPRB &
+  &, 0.637411E+00_JPRB, 0.622440E+00_JPRB, 0.607500E+00_JPRB &
+  &, 0.592632E+00_JPRB, 0.577850E+00_JPRB, 0.563145E+00_JPRB, 0.548529E+00_JPRB &
+  &, 0.534016E+00_JPRB, 0.519618E+00_JPRB, 0.505345E+00_JPRB &
+  &, 0.491236E+00_JPRB, 0.477245E+00_JPRB, 0.463438E+00_JPRB, 0.449764E+00_JPRB &
+  &, 0.436289E+00_JPRB, 0.422989E+00_JPRB, 0.409868E+00_JPRB &
+  &, 0.396962E+00_JPRB, 0.384241E+00_JPRB, 0.371740E+00_JPRB, 0.359459E+00_JPRB &
+  &, 0.347397E+00_JPRB, 0.335553E+00_JPRB, 0.323923E+00_JPRB &
+  &, 0.312538E+00_JPRB, 0.301429E+00_JPRB, 0.290517E+00_JPRB, 0.279830E+00_JPRB &
+  &, 0.269435E+00_JPRB, 0.259244E+00_JPRB, 0.249324E+00_JPRB &
+  &, 0.239663E+00_JPRB, 0.230205E+00_JPRB, 0.221057E+00_JPRB, 0.212121E+00_JPRB &
+  &, 0.203419E+00_JPRB, 0.194975E+00_JPRB, 0.186811E+00_JPRB &
+  &, 0.178863E+00_JPRB, 0.171151E+00_JPRB, 0.163696E+00_JPRB, 0.156472E+00_JPRB &
+  &, 0.149451E+00_JPRB, 0.142699E+00_JPRB, 0.136188E+00_JPRB &
+  &, 0.129886E+00_JPRB, 0.123810E+00_JPRB, 0.117925E+00_JPRB, 0.112300E+00_JPRB &
+  &, 0.106845E+00_JPRB, 0.101629E+00_JPRB, 0.965576E-01_JPRB &
+  &, 0.917535E-01_JPRB, 0.870652E-01_JPRB, 0.826160E-01_JPRB, 0.783630E-01_JPRB &
+  &, 0.742605E-01_JPRB, 0.703780E-01_JPRB, 0.666085E-01_JPRB &
+  &, 0.630211E-01_JPRB, 0.595651E-01_JPRB, 0.563115E-01_JPRB, 0.532083E-01_JPRB &
+  &, 0.502004E-01_JPRB, 0.473591E-01_JPRB, 0.446936E-01_JPRB/)
+XCW( 670, :) = (/ &
+  &  0.104113E+01_JPRB, 0.105051E+01_JPRB, 0.105952E+01_JPRB, 0.106815E+01_JPRB &
+  &, 0.107640E+01_JPRB, 0.108425E+01_JPRB, 0.109170E+01_JPRB &
+  &, 0.109875E+01_JPRB, 0.110538E+01_JPRB, 0.111160E+01_JPRB, 0.111739E+01_JPRB &
+  &, 0.112275E+01_JPRB, 0.112768E+01_JPRB, 0.113216E+01_JPRB &
+  &, 0.113621E+01_JPRB, 0.113980E+01_JPRB, 0.114295E+01_JPRB, 0.114563E+01_JPRB &
+  &, 0.114786E+01_JPRB, 0.114962E+01_JPRB, 0.115091E+01_JPRB &
+  &, 0.115174E+01_JPRB, 0.115210E+01_JPRB, 0.115198E+01_JPRB, 0.115139E+01_JPRB &
+  &, 0.115032E+01_JPRB, 0.114879E+01_JPRB, 0.114677E+01_JPRB &
+  &, 0.114429E+01_JPRB, 0.114133E+01_JPRB, 0.113791E+01_JPRB, 0.113401E+01_JPRB &
+  &, 0.112965E+01_JPRB, 0.112484E+01_JPRB, 0.111956E+01_JPRB &
+  &, 0.111383E+01_JPRB, 0.110765E+01_JPRB, 0.110105E+01_JPRB, 0.109400E+01_JPRB &
+  &, 0.108652E+01_JPRB, 0.107863E+01_JPRB, 0.107033E+01_JPRB &
+  &, 0.106161E+01_JPRB, 0.105252E+01_JPRB, 0.104304E+01_JPRB, 0.103317E+01_JPRB &
+  &, 0.102296E+01_JPRB, 0.101237E+01_JPRB, 0.100146E+01_JPRB &
+  &, 0.990215E+00_JPRB, 0.978661E+00_JPRB, 0.966789E+00_JPRB, 0.954635E+00_JPRB &
+  &, 0.942195E+00_JPRB, 0.929494E+00_JPRB, 0.916543E+00_JPRB &
+  &, 0.903342E+00_JPRB, 0.889934E+00_JPRB, 0.876305E+00_JPRB, 0.862485E+00_JPRB &
+  &, 0.848474E+00_JPRB, 0.834307E+00_JPRB, 0.820001E+00_JPRB &
+  &, 0.805539E+00_JPRB, 0.790956E+00_JPRB, 0.776271E+00_JPRB, 0.761484E+00_JPRB &
+  &, 0.746613E+00_JPRB, 0.731695E+00_JPRB, 0.716710E+00_JPRB &
+  &, 0.701696E+00_JPRB, 0.686671E+00_JPRB, 0.671632E+00_JPRB, 0.656573E+00_JPRB &
+  &, 0.641556E+00_JPRB, 0.626576E+00_JPRB, 0.611625E+00_JPRB &
+  &, 0.596742E+00_JPRB, 0.581918E+00_JPRB, 0.567192E+00_JPRB, 0.552553E+00_JPRB &
+  &, 0.538014E+00_JPRB, 0.523586E+00_JPRB, 0.509280E+00_JPRB &
+  &, 0.495107E+00_JPRB, 0.481104E+00_JPRB, 0.467225E+00_JPRB, 0.453534E+00_JPRB &
+  &, 0.440008E+00_JPRB, 0.426654E+00_JPRB, 0.413507E+00_JPRB &
+  &, 0.400540E+00_JPRB, 0.387787E+00_JPRB, 0.375218E+00_JPRB, 0.362865E+00_JPRB &
+  &, 0.350761E+00_JPRB, 0.338837E+00_JPRB, 0.327194E+00_JPRB &
+  &, 0.315758E+00_JPRB, 0.304522E+00_JPRB, 0.293588E+00_JPRB, 0.282840E+00_JPRB &
+  &, 0.272380E+00_JPRB, 0.262122E+00_JPRB, 0.252131E+00_JPRB &
+  &, 0.242395E+00_JPRB, 0.232900E+00_JPRB, 0.223671E+00_JPRB, 0.214692E+00_JPRB &
+  &, 0.205946E+00_JPRB, 0.197411E+00_JPRB, 0.189153E+00_JPRB &
+  &, 0.181152E+00_JPRB, 0.173384E+00_JPRB, 0.165870E+00_JPRB, 0.158586E+00_JPRB &
+  &, 0.151549E+00_JPRB, 0.144683E+00_JPRB, 0.138104E+00_JPRB &
+  &, 0.131730E+00_JPRB, 0.125631E+00_JPRB, 0.119671E+00_JPRB, 0.113967E+00_JPRB &
+  &, 0.108483E+00_JPRB, 0.103183E+00_JPRB, 0.980798E-01_JPRB &
+  &, 0.931870E-01_JPRB, 0.885189E-01_JPRB, 0.839767E-01_JPRB, 0.796852E-01_JPRB &
+  &, 0.755427E-01_JPRB, 0.715596E-01_JPRB, 0.677464E-01_JPRB &
+  &, 0.641138E-01_JPRB, 0.606726E-01_JPRB, 0.573715E-01_JPRB, 0.541560E-01_JPRB &
+  &, 0.511607E-01_JPRB, 0.482672E-01_JPRB, 0.455478E-01_JPRB/)
+XCW( 671, :) = (/ &
+  &  0.104141E+01_JPRB, 0.105087E+01_JPRB, 0.105996E+01_JPRB, 0.106866E+01_JPRB &
+  &, 0.107698E+01_JPRB, 0.108491E+01_JPRB, 0.109244E+01_JPRB &
+  &, 0.109956E+01_JPRB, 0.110627E+01_JPRB, 0.111256E+01_JPRB, 0.111843E+01_JPRB &
+  &, 0.112387E+01_JPRB, 0.112888E+01_JPRB, 0.113345E+01_JPRB &
+  &, 0.113757E+01_JPRB, 0.114124E+01_JPRB, 0.114447E+01_JPRB, 0.114723E+01_JPRB &
+  &, 0.114954E+01_JPRB, 0.115138E+01_JPRB, 0.115273E+01_JPRB &
+  &, 0.115365E+01_JPRB, 0.115409E+01_JPRB, 0.115405E+01_JPRB, 0.115354E+01_JPRB &
+  &, 0.115256E+01_JPRB, 0.115109E+01_JPRB, 0.114916E+01_JPRB &
+  &, 0.114675E+01_JPRB, 0.114387E+01_JPRB, 0.114051E+01_JPRB, 0.113670E+01_JPRB &
+  &, 0.113241E+01_JPRB, 0.112766E+01_JPRB, 0.112246E+01_JPRB &
+  &, 0.111680E+01_JPRB, 0.111070E+01_JPRB, 0.110415E+01_JPRB, 0.109716E+01_JPRB &
+  &, 0.108975E+01_JPRB, 0.108192E+01_JPRB, 0.107368E+01_JPRB &
+  &, 0.106504E+01_JPRB, 0.105599E+01_JPRB, 0.104656E+01_JPRB, 0.103676E+01_JPRB &
+  &, 0.102658E+01_JPRB, 0.101607E+01_JPRB, 0.100518E+01_JPRB &
+  &, 0.993999E+00_JPRB, 0.982483E+00_JPRB, 0.970662E+00_JPRB, 0.958545E+00_JPRB &
+  &, 0.946140E+00_JPRB, 0.933473E+00_JPRB, 0.920556E+00_JPRB &
+  &, 0.907402E+00_JPRB, 0.894010E+00_JPRB, 0.880410E+00_JPRB, 0.866617E+00_JPRB &
+  &, 0.852633E+00_JPRB, 0.838473E+00_JPRB, 0.824172E+00_JPRB &
+  &, 0.809731E+00_JPRB, 0.795167E+00_JPRB, 0.780480E+00_JPRB, 0.765707E+00_JPRB &
+  &, 0.750848E+00_JPRB, 0.735921E+00_JPRB, 0.720943E+00_JPRB &
+  &, 0.705935E+00_JPRB, 0.690891E+00_JPRB, 0.675830E+00_JPRB, 0.660791E+00_JPRB &
+  &, 0.645747E+00_JPRB, 0.630735E+00_JPRB, 0.615773E+00_JPRB &
+  &, 0.600877E+00_JPRB, 0.586036E+00_JPRB, 0.571266E+00_JPRB, 0.556603E+00_JPRB &
+  &, 0.542011E+00_JPRB, 0.527553E+00_JPRB, 0.513242E+00_JPRB &
+  &, 0.499033E+00_JPRB, 0.484963E+00_JPRB, 0.471070E+00_JPRB, 0.457332E+00_JPRB &
+  &, 0.443757E+00_JPRB, 0.430350E+00_JPRB, 0.417146E+00_JPRB &
+  &, 0.404150E+00_JPRB, 0.391333E+00_JPRB, 0.378729E+00_JPRB, 0.366304E+00_JPRB &
+  &, 0.354125E+00_JPRB, 0.342191E+00_JPRB, 0.330465E+00_JPRB &
+  &, 0.318941E+00_JPRB, 0.307687E+00_JPRB, 0.296659E+00_JPRB, 0.285888E+00_JPRB &
+  &, 0.275326E+00_JPRB, 0.265039E+00_JPRB, 0.254977E+00_JPRB &
+  &, 0.245207E+00_JPRB, 0.235635E+00_JPRB, 0.226326E+00_JPRB, 0.217263E+00_JPRB &
+  &, 0.208472E+00_JPRB, 0.199890E+00_JPRB, 0.191583E+00_JPRB &
+  &, 0.183485E+00_JPRB, 0.175662E+00_JPRB, 0.168091E+00_JPRB, 0.160746E+00_JPRB &
+  &, 0.153599E+00_JPRB, 0.146716E+00_JPRB, 0.140069E+00_JPRB &
+  &, 0.133625E+00_JPRB, 0.127452E+00_JPRB, 0.121467E+00_JPRB, 0.115685E+00_JPRB &
+  &, 0.110121E+00_JPRB, 0.104791E+00_JPRB, 0.996563E-01_JPRB &
+  &, 0.946204E-01_JPRB, 0.899726E-01_JPRB, 0.853941E-01_JPRB, 0.810073E-01_JPRB &
+  &, 0.768249E-01_JPRB, 0.728004E-01_JPRB, 0.689442E-01_JPRB &
+  &, 0.652672E-01_JPRB, 0.617800E-01_JPRB, 0.583691E-01_JPRB, 0.551669E-01_JPRB &
+  &, 0.521209E-01_JPRB, 0.491752E-01_JPRB, 0.464021E-01_JPRB/)
+XCW( 672, :) = (/ &
+  &  0.104169E+01_JPRB, 0.105123E+01_JPRB, 0.106039E+01_JPRB, 0.106917E+01_JPRB &
+  &, 0.107756E+01_JPRB, 0.108557E+01_JPRB, 0.109317E+01_JPRB &
+  &, 0.110037E+01_JPRB, 0.110716E+01_JPRB, 0.111353E+01_JPRB, 0.111948E+01_JPRB &
+  &, 0.112500E+01_JPRB, 0.113008E+01_JPRB, 0.113473E+01_JPRB &
+  &, 0.113893E+01_JPRB, 0.114269E+01_JPRB, 0.114599E+01_JPRB, 0.114884E+01_JPRB &
+  &, 0.115122E+01_JPRB, 0.115314E+01_JPRB, 0.115460E+01_JPRB &
+  &, 0.115556E+01_JPRB, 0.115609E+01_JPRB, 0.115614E+01_JPRB, 0.115570E+01_JPRB &
+  &, 0.115479E+01_JPRB, 0.115341E+01_JPRB, 0.115155E+01_JPRB &
+  &, 0.114922E+01_JPRB, 0.114641E+01_JPRB, 0.114313E+01_JPRB, 0.113939E+01_JPRB &
+  &, 0.113517E+01_JPRB, 0.113050E+01_JPRB, 0.112536E+01_JPRB &
+  &, 0.111977E+01_JPRB, 0.111374E+01_JPRB, 0.110726E+01_JPRB, 0.110034E+01_JPRB &
+  &, 0.109300E+01_JPRB, 0.108522E+01_JPRB, 0.107705E+01_JPRB &
+  &, 0.106846E+01_JPRB, 0.105948E+01_JPRB, 0.105010E+01_JPRB, 0.104035E+01_JPRB &
+  &, 0.103024E+01_JPRB, 0.101976E+01_JPRB, 0.100895E+01_JPRB &
+  &, 0.997797E+00_JPRB, 0.986319E+00_JPRB, 0.974549E+00_JPRB, 0.962469E+00_JPRB &
+  &, 0.950100E+00_JPRB, 0.937482E+00_JPRB, 0.924584E+00_JPRB &
+  &, 0.911462E+00_JPRB, 0.898101E+00_JPRB, 0.884530E+00_JPRB, 0.870750E+00_JPRB &
+  &, 0.856792E+00_JPRB, 0.842674E+00_JPRB, 0.828379E+00_JPRB &
+  &, 0.813959E+00_JPRB, 0.799396E+00_JPRB, 0.784727E+00_JPRB, 0.769950E+00_JPRB &
+  &, 0.755103E+00_JPRB, 0.740167E+00_JPRB, 0.725197E+00_JPRB &
+  &, 0.710173E+00_JPRB, 0.695133E+00_JPRB, 0.680073E+00_JPRB, 0.665010E+00_JPRB &
+  &, 0.649960E+00_JPRB, 0.634942E+00_JPRB, 0.619946E+00_JPRB &
+  &, 0.605011E+00_JPRB, 0.590154E+00_JPRB, 0.575364E+00_JPRB, 0.560679E+00_JPRB &
+  &, 0.546062E+00_JPRB, 0.531575E+00_JPRB, 0.517204E+00_JPRB &
+  &, 0.502960E+00_JPRB, 0.488879E+00_JPRB, 0.474943E+00_JPRB, 0.461160E+00_JPRB &
+  &, 0.447536E+00_JPRB, 0.434076E+00_JPRB, 0.420847E+00_JPRB &
+  &, 0.407760E+00_JPRB, 0.394911E+00_JPRB, 0.382239E+00_JPRB, 0.369810E+00_JPRB &
+  &, 0.357556E+00_JPRB, 0.345544E+00_JPRB, 0.333771E+00_JPRB &
+  &, 0.322197E+00_JPRB, 0.310889E+00_JPRB, 0.299805E+00_JPRB, 0.288936E+00_JPRB &
+  &, 0.278348E+00_JPRB, 0.267994E+00_JPRB, 0.257863E+00_JPRB &
+  &, 0.248020E+00_JPRB, 0.238371E+00_JPRB, 0.229023E+00_JPRB, 0.219877E+00_JPRB &
+  &, 0.210999E+00_JPRB, 0.202370E+00_JPRB, 0.194013E+00_JPRB &
+  &, 0.185863E+00_JPRB, 0.177986E+00_JPRB, 0.170312E+00_JPRB, 0.162907E+00_JPRB &
+  &, 0.155697E+00_JPRB, 0.148749E+00_JPRB, 0.142034E+00_JPRB &
+  &, 0.135569E+00_JPRB, 0.129324E+00_JPRB, 0.123264E+00_JPRB, 0.117456E+00_JPRB &
+  &, 0.111812E+00_JPRB, 0.106399E+00_JPRB, 0.101233E+00_JPRB &
+  &, 0.962193E-01_JPRB, 0.914263E-01_JPRB, 0.868115E-01_JPRB, 0.823870E-01_JPRB &
+  &, 0.781071E-01_JPRB, 0.740411E-01_JPRB, 0.701421E-01_JPRB &
+  &, 0.664205E-01_JPRB, 0.628874E-01_JPRB, 0.594914E-01_JPRB, 0.561778E-01_JPRB &
+  &, 0.530812E-01_JPRB, 0.501481E-01_JPRB, 0.473220E-01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART96',1,ZHOOK_HANDLE)
+END SUBROUTINE PART96
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART97
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART97',0,ZHOOK_HANDLE)
+
+XCW( 673, :) = (/ &
+  &  0.104198E+01_JPRB, 0.105159E+01_JPRB, 0.106082E+01_JPRB, 0.106968E+01_JPRB &
+  &, 0.107815E+01_JPRB, 0.108623E+01_JPRB, 0.109391E+01_JPRB &
+  &, 0.110119E+01_JPRB, 0.110805E+01_JPRB, 0.111450E+01_JPRB, 0.112053E+01_JPRB &
+  &, 0.112613E+01_JPRB, 0.113129E+01_JPRB, 0.113602E+01_JPRB &
+  &, 0.114030E+01_JPRB, 0.114414E+01_JPRB, 0.114752E+01_JPRB, 0.115044E+01_JPRB &
+  &, 0.115291E+01_JPRB, 0.115491E+01_JPRB, 0.115644E+01_JPRB &
+  &, 0.115751E+01_JPRB, 0.115810E+01_JPRB, 0.115822E+01_JPRB, 0.115786E+01_JPRB &
+  &, 0.115703E+01_JPRB, 0.115573E+01_JPRB, 0.115395E+01_JPRB &
+  &, 0.115169E+01_JPRB, 0.114896E+01_JPRB, 0.114576E+01_JPRB, 0.114208E+01_JPRB &
+  &, 0.113794E+01_JPRB, 0.113334E+01_JPRB, 0.112828E+01_JPRB &
+  &, 0.112276E+01_JPRB, 0.111679E+01_JPRB, 0.111038E+01_JPRB, 0.110353E+01_JPRB &
+  &, 0.109625E+01_JPRB, 0.108854E+01_JPRB, 0.108042E+01_JPRB &
+  &, 0.107189E+01_JPRB, 0.106297E+01_JPRB, 0.105366E+01_JPRB, 0.104396E+01_JPRB &
+  &, 0.103388E+01_JPRB, 0.102348E+01_JPRB, 0.101271E+01_JPRB &
+  &, 0.100161E+01_JPRB, 0.990181E+00_JPRB, 0.978436E+00_JPRB, 0.966407E+00_JPRB &
+  &, 0.954089E+00_JPRB, 0.941492E+00_JPRB, 0.928642E+00_JPRB &
+  &, 0.915538E+00_JPRB, 0.902208E+00_JPRB, 0.888668E+00_JPRB, 0.874916E+00_JPRB &
+  &, 0.860985E+00_JPRB, 0.846875E+00_JPRB, 0.832603E+00_JPRB &
+  &, 0.818187E+00_JPRB, 0.803644E+00_JPRB, 0.788992E+00_JPRB, 0.774231E+00_JPRB &
+  &, 0.759378E+00_JPRB, 0.744453E+00_JPRB, 0.729472E+00_JPRB &
+  &, 0.714454E+00_JPRB, 0.699396E+00_JPRB, 0.684315E+00_JPRB, 0.669251E+00_JPRB &
+  &, 0.654197E+00_JPRB, 0.639148E+00_JPRB, 0.624142E+00_JPRB &
+  &, 0.609195E+00_JPRB, 0.594322E+00_JPRB, 0.579488E+00_JPRB, 0.564781E+00_JPRB &
+  &, 0.550138E+00_JPRB, 0.535623E+00_JPRB, 0.521221E+00_JPRB &
+  &, 0.506942E+00_JPRB, 0.492795E+00_JPRB, 0.478817E+00_JPRB, 0.464989E+00_JPRB &
+  &, 0.451345E+00_JPRB, 0.437833E+00_JPRB, 0.424548E+00_JPRB &
+  &, 0.411433E+00_JPRB, 0.398521E+00_JPRB, 0.385815E+00_JPRB, 0.373283E+00_JPRB &
+  &, 0.361022E+00_JPRB, 0.348932E+00_JPRB, 0.337077E+00_JPRB &
+  &, 0.325488E+00_JPRB, 0.314091E+00_JPRB, 0.302950E+00_JPRB, 0.292059E+00_JPRB &
+  &, 0.281370E+00_JPRB, 0.270950E+00_JPRB, 0.260788E+00_JPRB &
+  &, 0.250832E+00_JPRB, 0.241147E+00_JPRB, 0.231719E+00_JPRB, 0.222532E+00_JPRB &
+  &, 0.213611E+00_JPRB, 0.204892E+00_JPRB, 0.196443E+00_JPRB &
+  &, 0.188241E+00_JPRB, 0.180310E+00_JPRB, 0.172579E+00_JPRB, 0.165115E+00_JPRB &
+  &, 0.157843E+00_JPRB, 0.150830E+00_JPRB, 0.144048E+00_JPRB &
+  &, 0.137514E+00_JPRB, 0.131196E+00_JPRB, 0.125112E+00_JPRB, 0.119227E+00_JPRB &
+  &, 0.113556E+00_JPRB, 0.108061E+00_JPRB, 0.102809E+00_JPRB &
+  &, 0.977631E-01_JPRB, 0.928800E-01_JPRB, 0.882289E-01_JPRB, 0.837666E-01_JPRB &
+  &, 0.794476E-01_JPRB, 0.753409E-01_JPRB, 0.713998E-01_JPRB &
+  &, 0.676346E-01_JPRB, 0.639949E-01_JPRB, 0.605513E-01_JPRB, 0.572519E-01_JPRB &
+  &, 0.541055E-01_JPRB, 0.511211E-01_JPRB, 0.482420E-01_JPRB/)
+XCW( 674, :) = (/ &
+  &  0.104227E+01_JPRB, 0.105194E+01_JPRB, 0.106125E+01_JPRB, 0.107018E+01_JPRB &
+  &, 0.107873E+01_JPRB, 0.108689E+01_JPRB, 0.109465E+01_JPRB &
+  &, 0.110200E+01_JPRB, 0.110895E+01_JPRB, 0.111547E+01_JPRB, 0.112158E+01_JPRB &
+  &, 0.112726E+01_JPRB, 0.113250E+01_JPRB, 0.113731E+01_JPRB &
+  &, 0.114167E+01_JPRB, 0.114559E+01_JPRB, 0.114905E+01_JPRB, 0.115206E+01_JPRB &
+  &, 0.115460E+01_JPRB, 0.115668E+01_JPRB, 0.115829E+01_JPRB &
+  &, 0.115944E+01_JPRB, 0.116011E+01_JPRB, 0.116031E+01_JPRB, 0.116004E+01_JPRB &
+  &, 0.115928E+01_JPRB, 0.115806E+01_JPRB, 0.115635E+01_JPRB &
+  &, 0.115417E+01_JPRB, 0.115152E+01_JPRB, 0.114839E+01_JPRB, 0.114479E+01_JPRB &
+  &, 0.114072E+01_JPRB, 0.113619E+01_JPRB, 0.113120E+01_JPRB &
+  &, 0.112576E+01_JPRB, 0.111985E+01_JPRB, 0.111350E+01_JPRB, 0.110672E+01_JPRB &
+  &, 0.109951E+01_JPRB, 0.109187E+01_JPRB, 0.108381E+01_JPRB &
+  &, 0.107535E+01_JPRB, 0.106648E+01_JPRB, 0.105722E+01_JPRB, 0.104758E+01_JPRB &
+  &, 0.103757E+01_JPRB, 0.102721E+01_JPRB, 0.101649E+01_JPRB &
+  &, 0.100543E+01_JPRB, 0.994044E+00_JPRB, 0.982351E+00_JPRB, 0.970359E+00_JPRB &
+  &, 0.958077E+00_JPRB, 0.945530E+00_JPRB, 0.932715E+00_JPRB &
+  &, 0.919645E+00_JPRB, 0.906347E+00_JPRB, 0.892821E+00_JPRB, 0.879098E+00_JPRB &
+  &, 0.865195E+00_JPRB, 0.851111E+00_JPRB, 0.836846E+00_JPRB &
+  &, 0.822451E+00_JPRB, 0.807910E+00_JPRB, 0.793276E+00_JPRB, 0.778512E+00_JPRB &
+  &, 0.763673E+00_JPRB, 0.748739E+00_JPRB, 0.733767E+00_JPRB &
+  &, 0.718735E+00_JPRB, 0.703681E+00_JPRB, 0.688602E+00_JPRB, 0.673514E+00_JPRB &
+  &, 0.658456E+00_JPRB, 0.643401E+00_JPRB, 0.628386E+00_JPRB &
+  &, 0.613402E+00_JPRB, 0.598490E+00_JPRB, 0.583662E+00_JPRB, 0.568909E+00_JPRB &
+  &, 0.554241E+00_JPRB, 0.539699E+00_JPRB, 0.525238E+00_JPRB &
+  &, 0.510952E+00_JPRB, 0.496767E+00_JPRB, 0.482749E+00_JPRB, 0.468876E+00_JPRB &
+  &, 0.455155E+00_JPRB, 0.441621E+00_JPRB, 0.428280E+00_JPRB &
+  &, 0.415106E+00_JPRB, 0.402164E+00_JPRB, 0.389392E+00_JPRB, 0.376822E+00_JPRB &
+  &, 0.364488E+00_JPRB, 0.352354E+00_JPRB, 0.340453E+00_JPRB &
+  &, 0.328779E+00_JPRB, 0.317329E+00_JPRB, 0.306132E+00_JPRB, 0.295181E+00_JPRB &
+  &, 0.284430E+00_JPRB, 0.273944E+00_JPRB, 0.263713E+00_JPRB &
+  &, 0.253725E+00_JPRB, 0.243964E+00_JPRB, 0.234458E+00_JPRB, 0.225230E+00_JPRB &
+  &, 0.216223E+00_JPRB, 0.207459E+00_JPRB, 0.198917E+00_JPRB &
+  &, 0.190664E+00_JPRB, 0.182634E+00_JPRB, 0.174846E+00_JPRB, 0.167322E+00_JPRB &
+  &, 0.160037E+00_JPRB, 0.152960E+00_JPRB, 0.146111E+00_JPRB &
+  &, 0.139508E+00_JPRB, 0.133119E+00_JPRB, 0.126960E+00_JPRB, 0.120998E+00_JPRB &
+  &, 0.115246E+00_JPRB, 0.109722E+00_JPRB, 0.104440E+00_JPRB &
+  &, 0.993069E-01_JPRB, 0.943897E-01_JPRB, 0.897030E-01_JPRB, 0.851463E-01_JPRB &
+  &, 0.807880E-01_JPRB, 0.766408E-01_JPRB, 0.726575E-01_JPRB &
+  &, 0.687880E-01_JPRB, 0.651638E-01_JPRB, 0.616736E-01_JPRB, 0.583260E-01_JPRB &
+  &, 0.551298E-01_JPRB, 0.520291E-01_JPRB, 0.491619E-01_JPRB/)
+XCW( 675, :) = (/ &
+  &  0.104255E+01_JPRB, 0.105230E+01_JPRB, 0.106169E+01_JPRB, 0.107069E+01_JPRB &
+  &, 0.107932E+01_JPRB, 0.108755E+01_JPRB, 0.109539E+01_JPRB &
+  &, 0.110282E+01_JPRB, 0.110984E+01_JPRB, 0.111645E+01_JPRB, 0.112263E+01_JPRB &
+  &, 0.112839E+01_JPRB, 0.113372E+01_JPRB, 0.113860E+01_JPRB &
+  &, 0.114305E+01_JPRB, 0.114704E+01_JPRB, 0.115058E+01_JPRB, 0.115367E+01_JPRB &
+  &, 0.115630E+01_JPRB, 0.115846E+01_JPRB, 0.116015E+01_JPRB &
+  &, 0.116138E+01_JPRB, 0.116213E+01_JPRB, 0.116241E+01_JPRB, 0.116221E+01_JPRB &
+  &, 0.116154E+01_JPRB, 0.116039E+01_JPRB, 0.115876E+01_JPRB &
+  &, 0.115666E+01_JPRB, 0.115408E+01_JPRB, 0.115103E+01_JPRB, 0.114750E+01_JPRB &
+  &, 0.114351E+01_JPRB, 0.113905E+01_JPRB, 0.113413E+01_JPRB &
+  &, 0.112875E+01_JPRB, 0.112292E+01_JPRB, 0.111665E+01_JPRB, 0.110993E+01_JPRB &
+  &, 0.110278E+01_JPRB, 0.109520E+01_JPRB, 0.108721E+01_JPRB &
+  &, 0.107880E+01_JPRB, 0.107000E+01_JPRB, 0.106080E+01_JPRB, 0.105122E+01_JPRB &
+  &, 0.104126E+01_JPRB, 0.103094E+01_JPRB, 0.102028E+01_JPRB &
+  &, 0.100927E+01_JPRB, 0.997934E+00_JPRB, 0.986293E+00_JPRB, 0.974339E+00_JPRB &
+  &, 0.962094E+00_JPRB, 0.949569E+00_JPRB, 0.936789E+00_JPRB &
+  &, 0.923767E+00_JPRB, 0.910502E+00_JPRB, 0.897007E+00_JPRB, 0.883314E+00_JPRB &
+  &, 0.869422E+00_JPRB, 0.855347E+00_JPRB, 0.841123E+00_JPRB &
+  &, 0.826734E+00_JPRB, 0.812213E+00_JPRB, 0.797579E+00_JPRB, 0.782832E+00_JPRB &
+  &, 0.767988E+00_JPRB, 0.753066E+00_JPRB, 0.738083E+00_JPRB &
+  &, 0.723058E+00_JPRB, 0.707988E+00_JPRB, 0.692910E+00_JPRB, 0.677822E+00_JPRB &
+  &, 0.662739E+00_JPRB, 0.647654E+00_JPRB, 0.632630E+00_JPRB &
+  &, 0.617634E+00_JPRB, 0.602707E+00_JPRB, 0.587837E+00_JPRB, 0.573062E+00_JPRB &
+  &, 0.558370E+00_JPRB, 0.543774E+00_JPRB, 0.529310E+00_JPRB &
+  &, 0.514962E+00_JPRB, 0.500768E+00_JPRB, 0.486680E+00_JPRB, 0.472792E+00_JPRB &
+  &, 0.459024E+00_JPRB, 0.445439E+00_JPRB, 0.432044E+00_JPRB &
+  &, 0.418842E+00_JPRB, 0.405806E+00_JPRB, 0.393001E+00_JPRB, 0.380395E+00_JPRB &
+  &, 0.367988E+00_JPRB, 0.355811E+00_JPRB, 0.343864E+00_JPRB &
+  &, 0.332107E+00_JPRB, 0.320604E+00_JPRB, 0.309351E+00_JPRB, 0.298304E+00_JPRB &
+  &, 0.287529E+00_JPRB, 0.276978E+00_JPRB, 0.266678E+00_JPRB &
+  &, 0.256617E+00_JPRB, 0.246782E+00_JPRB, 0.237237E+00_JPRB, 0.227928E+00_JPRB &
+  &, 0.218835E+00_JPRB, 0.210025E+00_JPRB, 0.201435E+00_JPRB &
+  &, 0.193132E+00_JPRB, 0.185003E+00_JPRB, 0.177159E+00_JPRB, 0.169577E+00_JPRB &
+  &, 0.162182E+00_JPRB, 0.155090E+00_JPRB, 0.148174E+00_JPRB &
+  &, 0.141502E+00_JPRB, 0.135041E+00_JPRB, 0.128808E+00_JPRB, 0.122821E+00_JPRB &
+  &, 0.117043E+00_JPRB, 0.111437E+00_JPRB, 0.106071E+00_JPRB &
+  &, 0.100906E+00_JPRB, 0.959552E-01_JPRB, 0.911770E-01_JPRB, 0.865835E-01_JPRB &
+  &, 0.821868E-01_JPRB, 0.779406E-01_JPRB, 0.739152E-01_JPRB &
+  &, 0.700021E-01_JPRB, 0.663328E-01_JPRB, 0.627959E-01_JPRB, 0.594001E-01_JPRB &
+  &, 0.561541E-01_JPRB, 0.530669E-01_JPRB, 0.500819E-01_JPRB/)
+XCW( 676, :) = (/ &
+  &  0.104284E+01_JPRB, 0.105266E+01_JPRB, 0.106212E+01_JPRB, 0.107120E+01_JPRB &
+  &, 0.107990E+01_JPRB, 0.108821E+01_JPRB, 0.109613E+01_JPRB &
+  &, 0.110364E+01_JPRB, 0.111074E+01_JPRB, 0.111742E+01_JPRB, 0.112369E+01_JPRB &
+  &, 0.112952E+01_JPRB, 0.113493E+01_JPRB, 0.113990E+01_JPRB &
+  &, 0.114442E+01_JPRB, 0.114850E+01_JPRB, 0.115212E+01_JPRB, 0.115529E+01_JPRB &
+  &, 0.115800E+01_JPRB, 0.116024E+01_JPRB, 0.116201E+01_JPRB &
+  &, 0.116332E+01_JPRB, 0.116415E+01_JPRB, 0.116451E+01_JPRB, 0.116439E+01_JPRB &
+  &, 0.116380E+01_JPRB, 0.116273E+01_JPRB, 0.116118E+01_JPRB &
+  &, 0.115915E+01_JPRB, 0.115665E+01_JPRB, 0.115367E+01_JPRB, 0.115023E+01_JPRB &
+  &, 0.114631E+01_JPRB, 0.114192E+01_JPRB, 0.113707E+01_JPRB &
+  &, 0.113176E+01_JPRB, 0.112600E+01_JPRB, 0.111980E+01_JPRB, 0.111315E+01_JPRB &
+  &, 0.110605E+01_JPRB, 0.109855E+01_JPRB, 0.109062E+01_JPRB &
+  &, 0.108228E+01_JPRB, 0.107353E+01_JPRB, 0.106439E+01_JPRB, 0.105486E+01_JPRB &
+  &, 0.104496E+01_JPRB, 0.103470E+01_JPRB, 0.102408E+01_JPRB &
+  &, 0.101312E+01_JPRB, 0.100184E+01_JPRB, 0.990235E+00_JPRB, 0.978319E+00_JPRB &
+  &, 0.966126E+00_JPRB, 0.953637E+00_JPRB, 0.940892E+00_JPRB &
+  &, 0.927905E+00_JPRB, 0.914657E+00_JPRB, 0.901177E+00_JPRB, 0.887529E+00_JPRB &
+  &, 0.873666E+00_JPRB, 0.859617E+00_JPRB, 0.845401E+00_JPRB &
+  &, 0.831035E+00_JPRB, 0.816535E+00_JPRB, 0.801902E+00_JPRB, 0.787151E+00_JPRB &
+  &, 0.772322E+00_JPRB, 0.757413E+00_JPRB, 0.742440E+00_JPRB &
+  &, 0.727402E+00_JPRB, 0.712337E+00_JPRB, 0.697241E+00_JPRB, 0.682130E+00_JPRB &
+  &, 0.667044E+00_JPRB, 0.651954E+00_JPRB, 0.636897E+00_JPRB &
+  &, 0.621891E+00_JPRB, 0.606949E+00_JPRB, 0.592062E+00_JPRB, 0.577241E+00_JPRB &
+  &, 0.562526E+00_JPRB, 0.547902E+00_JPRB, 0.533408E+00_JPRB &
+  &, 0.519028E+00_JPRB, 0.504769E+00_JPRB, 0.490670E+00_JPRB, 0.476709E+00_JPRB &
+  &, 0.462923E+00_JPRB, 0.449287E+00_JPRB, 0.435838E+00_JPRB &
+  &, 0.422579E+00_JPRB, 0.409513E+00_JPRB, 0.396642E+00_JPRB, 0.383968E+00_JPRB &
+  &, 0.371521E+00_JPRB, 0.359303E+00_JPRB, 0.347276E+00_JPRB &
+  &, 0.335469E+00_JPRB, 0.323915E+00_JPRB, 0.312608E+00_JPRB, 0.301503E+00_JPRB &
+  &, 0.290628E+00_JPRB, 0.280050E+00_JPRB, 0.269682E+00_JPRB &
+  &, 0.259550E+00_JPRB, 0.249680E+00_JPRB, 0.240017E+00_JPRB, 0.230668E+00_JPRB &
+  &, 0.221533E+00_JPRB, 0.212635E+00_JPRB, 0.203998E+00_JPRB &
+  &, 0.195600E+00_JPRB, 0.187418E+00_JPRB, 0.179519E+00_JPRB, 0.171832E+00_JPRB &
+  &, 0.164423E+00_JPRB, 0.157220E+00_JPRB, 0.150238E+00_JPRB &
+  &, 0.143496E+00_JPRB, 0.137014E+00_JPRB, 0.130708E+00_JPRB, 0.124644E+00_JPRB &
+  &, 0.118787E+00_JPRB, 0.113152E+00_JPRB, 0.107756E+00_JPRB &
+  &, 0.102505E+00_JPRB, 0.974648E-01_JPRB, 0.926511E-01_JPRB, 0.880206E-01_JPRB &
+  &, 0.835856E-01_JPRB, 0.792995E-01_JPRB, 0.751729E-01_JPRB &
+  &, 0.712769E-01_JPRB, 0.675017E-01_JPRB, 0.639182E-01_JPRB, 0.604741E-01_JPRB &
+  &, 0.571784E-01_JPRB, 0.540399E-01_JPRB, 0.510676E-01_JPRB/)
+XCW( 677, :) = (/ &
+  &  0.104312E+01_JPRB, 0.105302E+01_JPRB, 0.106256E+01_JPRB, 0.107171E+01_JPRB &
+  &, 0.108049E+01_JPRB, 0.108888E+01_JPRB, 0.109687E+01_JPRB &
+  &, 0.110446E+01_JPRB, 0.111164E+01_JPRB, 0.111840E+01_JPRB, 0.112474E+01_JPRB &
+  &, 0.113066E+01_JPRB, 0.113615E+01_JPRB, 0.114119E+01_JPRB &
+  &, 0.114580E+01_JPRB, 0.114996E+01_JPRB, 0.115366E+01_JPRB, 0.115691E+01_JPRB &
+  &, 0.115970E+01_JPRB, 0.116202E+01_JPRB, 0.116388E+01_JPRB &
+  &, 0.116526E+01_JPRB, 0.116618E+01_JPRB, 0.116661E+01_JPRB, 0.116658E+01_JPRB &
+  &, 0.116606E+01_JPRB, 0.116507E+01_JPRB, 0.116359E+01_JPRB &
+  &, 0.116165E+01_JPRB, 0.115923E+01_JPRB, 0.115633E+01_JPRB, 0.115295E+01_JPRB &
+  &, 0.114911E+01_JPRB, 0.114480E+01_JPRB, 0.114002E+01_JPRB &
+  &, 0.113479E+01_JPRB, 0.112910E+01_JPRB, 0.112296E+01_JPRB, 0.111638E+01_JPRB &
+  &, 0.110936E+01_JPRB, 0.110191E+01_JPRB, 0.109404E+01_JPRB &
+  &, 0.108577E+01_JPRB, 0.107708E+01_JPRB, 0.106799E+01_JPRB, 0.105852E+01_JPRB &
+  &, 0.104868E+01_JPRB, 0.103846E+01_JPRB, 0.102791E+01_JPRB &
+  &, 0.101699E+01_JPRB, 0.100575E+01_JPRB, 0.994191E+00_JPRB, 0.982328E+00_JPRB &
+  &, 0.970173E+00_JPRB, 0.957720E+00_JPRB, 0.945011E+00_JPRB &
+  &, 0.932058E+00_JPRB, 0.918843E+00_JPRB, 0.905411E+00_JPRB, 0.891778E+00_JPRB &
+  &, 0.877926E+00_JPRB, 0.863905E+00_JPRB, 0.849715E+00_JPRB &
+  &, 0.835354E+00_JPRB, 0.820857E+00_JPRB, 0.806243E+00_JPRB, 0.791510E+00_JPRB &
+  &, 0.776696E+00_JPRB, 0.761780E+00_JPRB, 0.746797E+00_JPRB &
+  &, 0.731768E+00_JPRB, 0.716708E+00_JPRB, 0.701594E+00_JPRB, 0.686483E+00_JPRB &
+  &, 0.671372E+00_JPRB, 0.656277E+00_JPRB, 0.641213E+00_JPRB &
+  &, 0.626171E+00_JPRB, 0.611216E+00_JPRB, 0.596286E+00_JPRB, 0.581446E+00_JPRB &
+  &, 0.566708E+00_JPRB, 0.552058E+00_JPRB, 0.537535E+00_JPRB &
+  &, 0.523093E+00_JPRB, 0.508827E+00_JPRB, 0.494457E+00_JPRB, 0.480684E+00_JPRB &
+  &, 0.466852E+00_JPRB, 0.453167E+00_JPRB, 0.439663E+00_JPRB &
+  &, 0.426379E+00_JPRB, 0.413252E+00_JPRB, 0.400317E+00_JPRB, 0.387607E+00_JPRB &
+  &, 0.375089E+00_JPRB, 0.362795E+00_JPRB, 0.350722E+00_JPRB &
+  &, 0.338868E+00_JPRB, 0.327262E+00_JPRB, 0.315864E+00_JPRB, 0.304701E+00_JPRB &
+  &, 0.293803E+00_JPRB, 0.283122E+00_JPRB, 0.272686E+00_JPRB &
+  &, 0.262483E+00_JPRB, 0.252579E+00_JPRB, 0.242880E+00_JPRB, 0.233408E+00_JPRB &
+  &, 0.224231E+00_JPRB, 0.215245E+00_JPRB, 0.206561E+00_JPRB &
+  &, 0.198068E+00_JPRB, 0.189878E+00_JPRB, 0.181878E+00_JPRB, 0.174180E+00_JPRB &
+  &, 0.166665E+00_JPRB, 0.159398E+00_JPRB, 0.152350E+00_JPRB &
+  &, 0.145590E+00_JPRB, 0.138987E+00_JPRB, 0.132658E+00_JPRB, 0.126518E+00_JPRB &
+  &, 0.120636E+00_JPRB, 0.114921E+00_JPRB, 0.109442E+00_JPRB &
+  &, 0.104159E+00_JPRB, 0.990863E-01_JPRB, 0.941819E-01_JPRB, 0.894577E-01_JPRB &
+  &, 0.849843E-01_JPRB, 0.806584E-01_JPRB, 0.764905E-01_JPRB &
+  &, 0.724910E-01_JPRB, 0.687322E-01_JPRB, 0.650405E-01_JPRB, 0.616114E-01_JPRB &
+  &, 0.582667E-01_JPRB, 0.550776E-01_JPRB, 0.520532E-01_JPRB/)
+XCW( 678, :) = (/ &
+  &  0.104341E+01_JPRB, 0.105338E+01_JPRB, 0.106299E+01_JPRB, 0.107223E+01_JPRB &
+  &, 0.108108E+01_JPRB, 0.108954E+01_JPRB, 0.109761E+01_JPRB &
+  &, 0.110528E+01_JPRB, 0.111254E+01_JPRB, 0.111938E+01_JPRB, 0.112580E+01_JPRB &
+  &, 0.113180E+01_JPRB, 0.113737E+01_JPRB, 0.114250E+01_JPRB &
+  &, 0.114718E+01_JPRB, 0.115142E+01_JPRB, 0.115521E+01_JPRB, 0.115854E+01_JPRB &
+  &, 0.116141E+01_JPRB, 0.116381E+01_JPRB, 0.116575E+01_JPRB &
+  &, 0.116721E+01_JPRB, 0.116821E+01_JPRB, 0.116873E+01_JPRB, 0.116877E+01_JPRB &
+  &, 0.116834E+01_JPRB, 0.116742E+01_JPRB, 0.116603E+01_JPRB &
+  &, 0.116416E+01_JPRB, 0.116181E+01_JPRB, 0.115899E+01_JPRB, 0.115569E+01_JPRB &
+  &, 0.115192E+01_JPRB, 0.114768E+01_JPRB, 0.114298E+01_JPRB &
+  &, 0.113782E+01_JPRB, 0.113220E+01_JPRB, 0.112613E+01_JPRB, 0.111962E+01_JPRB &
+  &, 0.111267E+01_JPRB, 0.110529E+01_JPRB, 0.109748E+01_JPRB &
+  &, 0.108926E+01_JPRB, 0.108063E+01_JPRB, 0.107161E+01_JPRB, 0.106219E+01_JPRB &
+  &, 0.105240E+01_JPRB, 0.104225E+01_JPRB, 0.103173E+01_JPRB &
+  &, 0.102088E+01_JPRB, 0.100968E+01_JPRB, 0.998174E+00_JPRB, 0.986350E+00_JPRB &
+  &, 0.974233E+00_JPRB, 0.961818E+00_JPRB, 0.949145E+00_JPRB &
+  &, 0.936227E+00_JPRB, 0.923045E+00_JPRB, 0.909646E+00_JPRB, 0.896027E+00_JPRB &
+  &, 0.882221E+00_JPRB, 0.868210E+00_JPRB, 0.854028E+00_JPRB &
+  &, 0.839709E+00_JPRB, 0.825216E+00_JPRB, 0.810622E+00_JPRB, 0.795888E+00_JPRB &
+  &, 0.781070E+00_JPRB, 0.766167E+00_JPRB, 0.751196E+00_JPRB &
+  &, 0.736154E+00_JPRB, 0.721079E+00_JPRB, 0.705990E+00_JPRB, 0.690858E+00_JPRB &
+  &, 0.675746E+00_JPRB, 0.660623E+00_JPRB, 0.645552E+00_JPRB &
+  &, 0.630501E+00_JPRB, 0.615483E+00_JPRB, 0.600562E+00_JPRB, 0.585702E+00_JPRB &
+  &, 0.570916E+00_JPRB, 0.556240E+00_JPRB, 0.541661E+00_JPRB &
+  &, 0.527215E+00_JPRB, 0.512884E+00_JPRB, 0.498706E+00_JPRB, 0.484660E+00_JPRB &
+  &, 0.470781E+00_JPRB, 0.457076E+00_JPRB, 0.443551E+00_JPRB &
+  &, 0.430178E+00_JPRB, 0.417024E+00_JPRB, 0.404025E+00_JPRB, 0.391247E+00_JPRB &
+  &, 0.378691E+00_JPRB, 0.366356E+00_JPRB, 0.354204E+00_JPRB &
+  &, 0.342302E+00_JPRB, 0.330610E+00_JPRB, 0.319157E+00_JPRB, 0.307974E+00_JPRB &
+  &, 0.296978E+00_JPRB, 0.286233E+00_JPRB, 0.275730E+00_JPRB &
+  &, 0.265496E+00_JPRB, 0.255478E+00_JPRB, 0.245742E+00_JPRB, 0.236232E+00_JPRB &
+  &, 0.226929E+00_JPRB, 0.217942E+00_JPRB, 0.209167E+00_JPRB &
+  &, 0.200625E+00_JPRB, 0.192339E+00_JPRB, 0.184284E+00_JPRB, 0.176482E+00_JPRB &
+  &, 0.168906E+00_JPRB, 0.161624E+00_JPRB, 0.154512E+00_JPRB &
+  &, 0.147635E+00_JPRB, 0.141011E+00_JPRB, 0.134609E+00_JPRB, 0.128393E+00_JPRB &
+  &, 0.122432E+00_JPRB, 0.116690E+00_JPRB, 0.111127E+00_JPRB &
+  &, 0.105813E+00_JPRB, 0.100652E+00_JPRB, 0.957127E-01_JPRB, 0.909524E-01_JPRB &
+  &, 0.863831E-01_JPRB, 0.820173E-01_JPRB, 0.778081E-01_JPRB &
+  &, 0.737658E-01_JPRB, 0.699627E-01_JPRB, 0.662251E-01_JPRB, 0.626855E-01_JPRB &
+  &, 0.593550E-01_JPRB, 0.561154E-01_JPRB, 0.530389E-01_JPRB/)
+XCW( 679, :) = (/ &
+  &  0.104370E+01_JPRB, 0.105375E+01_JPRB, 0.106343E+01_JPRB, 0.107274E+01_JPRB &
+  &, 0.108167E+01_JPRB, 0.109021E+01_JPRB, 0.109835E+01_JPRB &
+  &, 0.110610E+01_JPRB, 0.111344E+01_JPRB, 0.112036E+01_JPRB, 0.112687E+01_JPRB &
+  &, 0.113294E+01_JPRB, 0.113859E+01_JPRB, 0.114380E+01_JPRB &
+  &, 0.114857E+01_JPRB, 0.115289E+01_JPRB, 0.115675E+01_JPRB, 0.116016E+01_JPRB &
+  &, 0.116312E+01_JPRB, 0.116560E+01_JPRB, 0.116762E+01_JPRB &
+  &, 0.116917E+01_JPRB, 0.117024E+01_JPRB, 0.117084E+01_JPRB, 0.117097E+01_JPRB &
+  &, 0.117061E+01_JPRB, 0.116978E+01_JPRB, 0.116846E+01_JPRB &
+  &, 0.116667E+01_JPRB, 0.116440E+01_JPRB, 0.116165E+01_JPRB, 0.115843E+01_JPRB &
+  &, 0.115474E+01_JPRB, 0.115058E+01_JPRB, 0.114595E+01_JPRB &
+  &, 0.114086E+01_JPRB, 0.113531E+01_JPRB, 0.112931E+01_JPRB, 0.112286E+01_JPRB &
+  &, 0.111598E+01_JPRB, 0.110867E+01_JPRB, 0.110092E+01_JPRB &
+  &, 0.109277E+01_JPRB, 0.108420E+01_JPRB, 0.107524E+01_JPRB, 0.106589E+01_JPRB &
+  &, 0.105615E+01_JPRB, 0.104605E+01_JPRB, 0.103559E+01_JPRB &
+  &, 0.102477E+01_JPRB, 0.101363E+01_JPRB, 0.100216E+01_JPRB, 0.990387E+00_JPRB &
+  &, 0.978309E+00_JPRB, 0.965946E+00_JPRB, 0.953309E+00_JPRB &
+  &, 0.940411E+00_JPRB, 0.927279E+00_JPRB, 0.913897E+00_JPRB, 0.900309E+00_JPRB &
+  &, 0.886516E+00_JPRB, 0.872533E+00_JPRB, 0.858377E+00_JPRB &
+  &, 0.844064E+00_JPRB, 0.829612E+00_JPRB, 0.815001E+00_JPRB, 0.800305E+00_JPRB &
+  &, 0.785484E+00_JPRB, 0.770595E+00_JPRB, 0.755615E+00_JPRB &
+  &, 0.740582E+00_JPRB, 0.725493E+00_JPRB, 0.710386E+00_JPRB, 0.695256E+00_JPRB &
+  &, 0.680120E+00_JPRB, 0.664993E+00_JPRB, 0.649891E+00_JPRB &
+  &, 0.634830E+00_JPRB, 0.619799E+00_JPRB, 0.604863E+00_JPRB, 0.589959E+00_JPRB &
+  &, 0.575150E+00_JPRB, 0.560450E+00_JPRB, 0.545842E+00_JPRB &
+  &, 0.531364E+00_JPRB, 0.516999E+00_JPRB, 0.502782E+00_JPRB, 0.488694E+00_JPRB &
+  &, 0.474770E+00_JPRB, 0.461017E+00_JPRB, 0.447439E+00_JPRB &
+  &, 0.434010E+00_JPRB, 0.420795E+00_JPRB, 0.407765E+00_JPRB, 0.394953E+00_JPRB &
+  &, 0.382326E+00_JPRB, 0.369916E+00_JPRB, 0.357721E+00_JPRB &
+  &, 0.345772E+00_JPRB, 0.334030E+00_JPRB, 0.322524E+00_JPRB, 0.311247E+00_JPRB &
+  &, 0.300191E+00_JPRB, 0.289383E+00_JPRB, 0.278814E+00_JPRB &
+  &, 0.268510E+00_JPRB, 0.258459E+00_JPRB, 0.248605E+00_JPRB, 0.239056E+00_JPRB &
+  &, 0.229712E+00_JPRB, 0.219943E+00_JPRB, 0.211774E+00_JPRB &
+  &, 0.203183E+00_JPRB, 0.194845E+00_JPRB, 0.186736E+00_JPRB, 0.178877E+00_JPRB &
+  &, 0.171242E+00_JPRB, 0.163851E+00_JPRB, 0.156673E+00_JPRB &
+  &, 0.149728E+00_JPRB, 0.143035E+00_JPRB, 0.136560E+00_JPRB, 0.130321E+00_JPRB &
+  &, 0.124282E+00_JPRB, 0.118458E+00_JPRB, 0.112866E+00_JPRB &
+  &, 0.107467E+00_JPRB, 0.102273E+00_JPRB, 0.973002E-01_JPRB, 0.924470E-01_JPRB &
+  &, 0.878401E-01_JPRB, 0.834353E-01_JPRB, 0.791856E-01_JPRB &
+  &, 0.751013E-01_JPRB, 0.711932E-01_JPRB, 0.674721E-01_JPRB, 0.638859E-01_JPRB &
+  &, 0.604433E-01_JPRB, 0.571532E-01_JPRB, 0.540246E-01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART97',1,ZHOOK_HANDLE)
+END SUBROUTINE PART97
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART98
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART98',0,ZHOOK_HANDLE)
+
+XCW( 680, :) = (/ &
+  &  0.104399E+01_JPRB, 0.105411E+01_JPRB, 0.106387E+01_JPRB, 0.107325E+01_JPRB &
+  &, 0.108226E+01_JPRB, 0.109087E+01_JPRB, 0.109910E+01_JPRB &
+  &, 0.110692E+01_JPRB, 0.111434E+01_JPRB, 0.112134E+01_JPRB, 0.112793E+01_JPRB &
+  &, 0.113409E+01_JPRB, 0.113981E+01_JPRB, 0.114510E+01_JPRB &
+  &, 0.114995E+01_JPRB, 0.115436E+01_JPRB, 0.115829E+01_JPRB, 0.116180E+01_JPRB &
+  &, 0.116483E+01_JPRB, 0.116740E+01_JPRB, 0.116950E+01_JPRB &
+  &, 0.117113E+01_JPRB, 0.117229E+01_JPRB, 0.117296E+01_JPRB, 0.117317E+01_JPRB &
+  &, 0.117289E+01_JPRB, 0.117214E+01_JPRB, 0.117091E+01_JPRB &
+  &, 0.116919E+01_JPRB, 0.116700E+01_JPRB, 0.116433E+01_JPRB, 0.116119E+01_JPRB &
+  &, 0.115757E+01_JPRB, 0.115348E+01_JPRB, 0.114892E+01_JPRB &
+  &, 0.114390E+01_JPRB, 0.113843E+01_JPRB, 0.113250E+01_JPRB, 0.112612E+01_JPRB &
+  &, 0.111931E+01_JPRB, 0.111206E+01_JPRB, 0.110438E+01_JPRB &
+  &, 0.109629E+01_JPRB, 0.108779E+01_JPRB, 0.107888E+01_JPRB, 0.106958E+01_JPRB &
+  &, 0.105991E+01_JPRB, 0.104986E+01_JPRB, 0.103945E+01_JPRB &
+  &, 0.102869E+01_JPRB, 0.101760E+01_JPRB, 0.100617E+01_JPRB, 0.994438E+00_JPRB &
+  &, 0.982398E+00_JPRB, 0.970073E+00_JPRB, 0.957473E+00_JPRB &
+  &, 0.944626E+00_JPRB, 0.931513E+00_JPRB, 0.918180E+00_JPRB, 0.904608E+00_JPRB &
+  &, 0.890845E+00_JPRB, 0.876890E+00_JPRB, 0.862743E+00_JPRB &
+  &, 0.848455E+00_JPRB, 0.834008E+00_JPRB, 0.819418E+00_JPRB, 0.804721E+00_JPRB &
+  &, 0.789917E+00_JPRB, 0.775022E+00_JPRB, 0.760055E+00_JPRB &
+  &, 0.745011E+00_JPRB, 0.729929E+00_JPRB, 0.714827E+00_JPRB, 0.699677E+00_JPRB &
+  &, 0.684540E+00_JPRB, 0.669410E+00_JPRB, 0.654278E+00_JPRB &
+  &, 0.639208E+00_JPRB, 0.624165E+00_JPRB, 0.609164E+00_JPRB, 0.594267E+00_JPRB &
+  &, 0.579437E+00_JPRB, 0.564686E+00_JPRB, 0.550050E+00_JPRB &
+  &, 0.535541E+00_JPRB, 0.521141E+00_JPRB, 0.506858E+00_JPRB, 0.492758E+00_JPRB &
+  &, 0.478789E+00_JPRB, 0.464987E+00_JPRB, 0.451358E+00_JPRB &
+  &, 0.437905E+00_JPRB, 0.424631E+00_JPRB, 0.411538E+00_JPRB, 0.398659E+00_JPRB &
+  &, 0.385996E+00_JPRB, 0.373512E+00_JPRB, 0.361273E+00_JPRB &
+  &, 0.349243E+00_JPRB, 0.337450E+00_JPRB, 0.325891E+00_JPRB, 0.314521E+00_JPRB &
+  &, 0.303443E+00_JPRB, 0.292572E+00_JPRB, 0.281936E+00_JPRB &
+  &, 0.271563E+00_JPRB, 0.261439E+00_JPRB, 0.251551E+00_JPRB, 0.241880E+00_JPRB &
+  &, 0.232496E+00_JPRB, 0.223336E+00_JPRB, 0.214425E+00_JPRB &
+  &, 0.205786E+00_JPRB, 0.197351E+00_JPRB, 0.189188E+00_JPRB, 0.181226E+00_JPRB &
+  &, 0.173531E+00_JPRB, 0.166077E+00_JPRB, 0.158884E+00_JPRB &
+  &, 0.151872E+00_JPRB, 0.145109E+00_JPRB, 0.138613E+00_JPRB, 0.132300E+00_JPRB &
+  &, 0.126184E+00_JPRB, 0.120281E+00_JPRB, 0.114660E+00_JPRB &
+  &, 0.109176E+00_JPRB, 0.103895E+00_JPRB, 0.988877E-01_JPRB, 0.939991E-01_JPRB &
+  &, 0.893554E-01_JPRB, 0.848533E-01_JPRB, 0.805630E-01_JPRB &
+  &, 0.764368E-01_JPRB, 0.724236E-01_JPRB, 0.686567E-01_JPRB, 0.650232E-01_JPRB &
+  &, 0.615957E-01_JPRB, 0.582559E-01_JPRB, 0.550759E-01_JPRB/)
+XCW( 681, :) = (/ &
+  &  0.104427E+01_JPRB, 0.105447E+01_JPRB, 0.106430E+01_JPRB, 0.107377E+01_JPRB &
+  &, 0.108285E+01_JPRB, 0.109154E+01_JPRB, 0.109985E+01_JPRB &
+  &, 0.110775E+01_JPRB, 0.111525E+01_JPRB, 0.112233E+01_JPRB, 0.112899E+01_JPRB &
+  &, 0.113523E+01_JPRB, 0.114104E+01_JPRB, 0.114641E+01_JPRB &
+  &, 0.115134E+01_JPRB, 0.115583E+01_JPRB, 0.115986E+01_JPRB, 0.116343E+01_JPRB &
+  &, 0.116655E+01_JPRB, 0.116920E+01_JPRB, 0.117138E+01_JPRB &
+  &, 0.117309E+01_JPRB, 0.117433E+01_JPRB, 0.117509E+01_JPRB, 0.117538E+01_JPRB &
+  &, 0.117517E+01_JPRB, 0.117451E+01_JPRB, 0.117336E+01_JPRB &
+  &, 0.117172E+01_JPRB, 0.116961E+01_JPRB, 0.116701E+01_JPRB, 0.116395E+01_JPRB &
+  &, 0.116040E+01_JPRB, 0.115639E+01_JPRB, 0.115191E+01_JPRB &
+  &, 0.114696E+01_JPRB, 0.114156E+01_JPRB, 0.113570E+01_JPRB, 0.112939E+01_JPRB &
+  &, 0.112265E+01_JPRB, 0.111547E+01_JPRB, 0.110785E+01_JPRB &
+  &, 0.109982E+01_JPRB, 0.109138E+01_JPRB, 0.108254E+01_JPRB, 0.107329E+01_JPRB &
+  &, 0.106368E+01_JPRB, 0.105289E+01_JPRB, 0.104333E+01_JPRB &
+  &, 0.103262E+01_JPRB, 0.102157E+01_JPRB, 0.101019E+01_JPRB, 0.998503E+00_JPRB &
+  &, 0.986517E+00_JPRB, 0.974230E+00_JPRB, 0.961668E+00_JPRB &
+  &, 0.948842E+00_JPRB, 0.935779E+00_JPRB, 0.922463E+00_JPRB, 0.908923E+00_JPRB &
+  &, 0.895190E+00_JPRB, 0.881248E+00_JPRB, 0.867145E+00_JPRB &
+  &, 0.852865E+00_JPRB, 0.838423E+00_JPRB, 0.823854E+00_JPRB, 0.809177E+00_JPRB &
+  &, 0.794370E+00_JPRB, 0.779490E+00_JPRB, 0.764515E+00_JPRB &
+  &, 0.749482E+00_JPRB, 0.734386E+00_JPRB, 0.719267E+00_JPRB, 0.704142E+00_JPRB &
+  &, 0.688982E+00_JPRB, 0.673826E+00_JPRB, 0.658689E+00_JPRB &
+  &, 0.643586E+00_JPRB, 0.628531E+00_JPRB, 0.613515E+00_JPRB, 0.598575E+00_JPRB &
+  &, 0.583724E+00_JPRB, 0.568948E+00_JPRB, 0.554285E+00_JPRB &
+  &, 0.539718E+00_JPRB, 0.525284E+00_JPRB, 0.510992E+00_JPRB, 0.496822E+00_JPRB &
+  &, 0.482838E+00_JPRB, 0.468989E+00_JPRB, 0.455308E+00_JPRB &
+  &, 0.441799E+00_JPRB, 0.428467E+00_JPRB, 0.415344E+00_JPRB, 0.402399E+00_JPRB &
+  &, 0.389665E+00_JPRB, 0.377176E+00_JPRB, 0.364861E+00_JPRB &
+  &, 0.352784E+00_JPRB, 0.340907E+00_JPRB, 0.329259E+00_JPRB, 0.317870E+00_JPRB &
+  &, 0.306694E+00_JPRB, 0.295800E+00_JPRB, 0.285099E+00_JPRB &
+  &, 0.274657E+00_JPRB, 0.264461E+00_JPRB, 0.254496E+00_JPRB, 0.244789E+00_JPRB &
+  &, 0.235322E+00_JPRB, 0.226077E+00_JPRB, 0.217120E+00_JPRB &
+  &, 0.208388E+00_JPRB, 0.199903E+00_JPRB, 0.191686E+00_JPRB, 0.183668E+00_JPRB &
+  &, 0.175915E+00_JPRB, 0.168400E+00_JPRB, 0.161095E+00_JPRB &
+  &, 0.154066E+00_JPRB, 0.147234E+00_JPRB, 0.140615E+00_JPRB, 0.134227E+00_JPRB &
+  &, 0.128086E+00_JPRB, 0.122156E+00_JPRB, 0.116400E+00_JPRB &
+  &, 0.110885E+00_JPRB, 0.105572E+00_JPRB, 0.100475E+00_JPRB, 0.955512E-01_JPRB &
+  &, 0.908125E-01_JPRB, 0.862713E-01_JPRB, 0.819405E-01_JPRB &
+  &, 0.777723E-01_JPRB, 0.737156E-01_JPRB, 0.699037E-01_JPRB, 0.662236E-01_JPRB &
+  &, 0.626840E-01_JPRB, 0.593585E-01_JPRB, 0.561273E-01_JPRB/)
+XCW( 682, :) = (/ &
+  &  0.104456E+01_JPRB, 0.105483E+01_JPRB, 0.106474E+01_JPRB, 0.107428E+01_JPRB &
+  &, 0.108344E+01_JPRB, 0.109221E+01_JPRB, 0.110059E+01_JPRB &
+  &, 0.110858E+01_JPRB, 0.111615E+01_JPRB, 0.112332E+01_JPRB, 0.113006E+01_JPRB &
+  &, 0.113638E+01_JPRB, 0.114227E+01_JPRB, 0.114772E+01_JPRB &
+  &, 0.115274E+01_JPRB, 0.115730E+01_JPRB, 0.116142E+01_JPRB, 0.116507E+01_JPRB &
+  &, 0.116827E+01_JPRB, 0.117100E+01_JPRB, 0.117327E+01_JPRB &
+  &, 0.117506E+01_JPRB, 0.117638E+01_JPRB, 0.117723E+01_JPRB, 0.117759E+01_JPRB &
+  &, 0.117748E+01_JPRB, 0.117688E+01_JPRB, 0.117581E+01_JPRB &
+  &, 0.117426E+01_JPRB, 0.117222E+01_JPRB, 0.116971E+01_JPRB, 0.116671E+01_JPRB &
+  &, 0.116325E+01_JPRB, 0.115931E+01_JPRB, 0.115489E+01_JPRB &
+  &, 0.115003E+01_JPRB, 0.114469E+01_JPRB, 0.113891E+01_JPRB, 0.113268E+01_JPRB &
+  &, 0.112599E+01_JPRB, 0.111888E+01_JPRB, 0.111134E+01_JPRB &
+  &, 0.110337E+01_JPRB, 0.109498E+01_JPRB, 0.108620E+01_JPRB, 0.107702E+01_JPRB &
+  &, 0.106746E+01_JPRB, 0.105752E+01_JPRB, 0.104722E+01_JPRB &
+  &, 0.103656E+01_JPRB, 0.102556E+01_JPRB, 0.101423E+01_JPRB, 0.100260E+01_JPRB &
+  &, 0.990650E+00_JPRB, 0.978402E+00_JPRB, 0.965878E+00_JPRB &
+  &, 0.953088E+00_JPRB, 0.940045E+00_JPRB, 0.926779E+00_JPRB, 0.913271E+00_JPRB &
+  &, 0.899553E+00_JPRB, 0.885640E+00_JPRB, 0.871547E+00_JPRB &
+  &, 0.857293E+00_JPRB, 0.842875E+00_JPRB, 0.828328E+00_JPRB, 0.813652E+00_JPRB &
+  &, 0.798863E+00_JPRB, 0.783979E+00_JPRB, 0.768996E+00_JPRB &
+  &, 0.753973E+00_JPRB, 0.738886E+00_JPRB, 0.723751E+00_JPRB, 0.708607E+00_JPRB &
+  &, 0.693448E+00_JPRB, 0.678289E+00_JPRB, 0.663123E+00_JPRB &
+  &, 0.648012E+00_JPRB, 0.632922E+00_JPRB, 0.617892E+00_JPRB, 0.602935E+00_JPRB &
+  &, 0.588064E+00_JPRB, 0.573265E+00_JPRB, 0.558548E+00_JPRB &
+  &, 0.543951E+00_JPRB, 0.529483E+00_JPRB, 0.515155E+00_JPRB, 0.500944E+00_JPRB &
+  &, 0.486887E+00_JPRB, 0.472990E+00_JPRB, 0.459289E+00_JPRB &
+  &, 0.445726E+00_JPRB, 0.432367E+00_JPRB, 0.419182E+00_JPRB, 0.406172E+00_JPRB &
+  &, 0.393403E+00_JPRB, 0.380841E+00_JPRB, 0.368448E+00_JPRB &
+  &, 0.356326E+00_JPRB, 0.344400E+00_JPRB, 0.332700E+00_JPRB, 0.321256E+00_JPRB &
+  &, 0.310022E+00_JPRB, 0.299028E+00_JPRB, 0.288261E+00_JPRB &
+  &, 0.277750E+00_JPRB, 0.267482E+00_JPRB, 0.257483E+00_JPRB, 0.247697E+00_JPRB &
+  &, 0.238148E+00_JPRB, 0.228861E+00_JPRB, 0.219859E+00_JPRB &
+  &, 0.211035E+00_JPRB, 0.202500E+00_JPRB, 0.194185E+00_JPRB, 0.186111E+00_JPRB &
+  &, 0.178299E+00_JPRB, 0.170724E+00_JPRB, 0.163354E+00_JPRB &
+  &, 0.156210E+00_JPRB, 0.149359E+00_JPRB, 0.142669E+00_JPRB, 0.136258E+00_JPRB &
+  &, 0.130041E+00_JPRB, 0.124032E+00_JPRB, 0.118248E+00_JPRB &
+  &, 0.112649E+00_JPRB, 0.107305E+00_JPRB, 0.102119E+00_JPRB, 0.971608E-01_JPRB &
+  &, 0.923278E-01_JPRB, 0.877484E-01_JPRB, 0.833180E-01_JPRB &
+  &, 0.791078E-01_JPRB, 0.750692E-01_JPRB, 0.711507E-01_JPRB, 0.674240E-01_JPRB &
+  &, 0.639003E-01_JPRB, 0.604612E-01_JPRB, 0.571787E-01_JPRB/)
+XCW( 683, :) = (/ &
+  &  0.104485E+01_JPRB, 0.105520E+01_JPRB, 0.106518E+01_JPRB, 0.107480E+01_JPRB &
+  &, 0.108403E+01_JPRB, 0.109288E+01_JPRB, 0.110134E+01_JPRB &
+  &, 0.110940E+01_JPRB, 0.111706E+01_JPRB, 0.112430E+01_JPRB, 0.113113E+01_JPRB &
+  &, 0.113753E+01_JPRB, 0.114350E+01_JPRB, 0.114904E+01_JPRB &
+  &, 0.115413E+01_JPRB, 0.115878E+01_JPRB, 0.116298E+01_JPRB, 0.116672E+01_JPRB &
+  &, 0.117000E+01_JPRB, 0.117281E+01_JPRB, 0.117516E+01_JPRB &
+  &, 0.117704E+01_JPRB, 0.117844E+01_JPRB, 0.117936E+01_JPRB, 0.117981E+01_JPRB &
+  &, 0.117978E+01_JPRB, 0.117927E+01_JPRB, 0.117827E+01_JPRB &
+  &, 0.117680E+01_JPRB, 0.117484E+01_JPRB, 0.117241E+01_JPRB, 0.116949E+01_JPRB &
+  &, 0.116610E+01_JPRB, 0.116224E+01_JPRB, 0.115791E+01_JPRB &
+  &, 0.115311E+01_JPRB, 0.114785E+01_JPRB, 0.114213E+01_JPRB, 0.113597E+01_JPRB &
+  &, 0.112935E+01_JPRB, 0.112231E+01_JPRB, 0.111483E+01_JPRB &
+  &, 0.110692E+01_JPRB, 0.109860E+01_JPRB, 0.108989E+01_JPRB, 0.108077E+01_JPRB &
+  &, 0.107126E+01_JPRB, 0.106138E+01_JPRB, 0.105112E+01_JPRB &
+  &, 0.104053E+01_JPRB, 0.102958E+01_JPRB, 0.101830E+01_JPRB, 0.100670E+01_JPRB &
+  &, 0.994797E+00_JPRB, 0.982589E+00_JPRB, 0.970102E+00_JPRB &
+  &, 0.957349E+00_JPRB, 0.944342E+00_JPRB, 0.931111E+00_JPRB, 0.917636E+00_JPRB &
+  &, 0.903950E+00_JPRB, 0.890049E+00_JPRB, 0.875985E+00_JPRB &
+  &, 0.861739E+00_JPRB, 0.847345E+00_JPRB, 0.832802E+00_JPRB, 0.818146E+00_JPRB &
+  &, 0.803356E+00_JPRB, 0.788487E+00_JPRB, 0.773518E+00_JPRB &
+  &, 0.758486E+00_JPRB, 0.743408E+00_JPRB, 0.728258E+00_JPRB, 0.713117E+00_JPRB &
+  &, 0.697936E+00_JPRB, 0.682753E+00_JPRB, 0.667606E+00_JPRB &
+  &, 0.652463E+00_JPRB, 0.637363E+00_JPRB, 0.622319E+00_JPRB, 0.607320E+00_JPRB &
+  &, 0.592403E+00_JPRB, 0.577581E+00_JPRB, 0.562838E+00_JPRB &
+  &, 0.548212E+00_JPRB, 0.533711E+00_JPRB, 0.519347E+00_JPRB, 0.505096E+00_JPRB &
+  &, 0.490996E+00_JPRB, 0.477052E+00_JPRB, 0.463301E+00_JPRB &
+  &, 0.449684E+00_JPRB, 0.436267E+00_JPRB, 0.423021E+00_JPRB, 0.410012E+00_JPRB &
+  &, 0.397174E+00_JPRB, 0.384540E+00_JPRB, 0.372106E+00_JPRB &
+  &, 0.359903E+00_JPRB, 0.347930E+00_JPRB, 0.336178E+00_JPRB, 0.324642E+00_JPRB &
+  &, 0.313351E+00_JPRB, 0.302294E+00_JPRB, 0.291503E+00_JPRB &
+  &, 0.280924E+00_JPRB, 0.270585E+00_JPRB, 0.260470E+00_JPRB, 0.250648E+00_JPRB &
+  &, 0.241060E+00_JPRB, 0.231688E+00_JPRB, 0.222599E+00_JPRB &
+  &, 0.213728E+00_JPRB, 0.205097E+00_JPRB, 0.196729E+00_JPRB, 0.188600E+00_JPRB &
+  &, 0.180731E+00_JPRB, 0.173047E+00_JPRB, 0.165614E+00_JPRB &
+  &, 0.158453E+00_JPRB, 0.151484E+00_JPRB, 0.144773E+00_JPRB, 0.138289E+00_JPRB &
+  &, 0.131996E+00_JPRB, 0.125908E+00_JPRB, 0.120097E+00_JPRB &
+  &, 0.114414E+00_JPRB, 0.108983E+00_JPRB, 0.103764E+00_JPRB, 0.987129E-01_JPRB &
+  &, 0.939014E-01_JPRB, 0.892255E-01_JPRB, 0.847554E-01_JPRB &
+  &, 0.805040E-01_JPRB, 0.763612E-01_JPRB, 0.724600E-01_JPRB, 0.686877E-01_JPRB &
+  &, 0.650527E-01_JPRB, 0.616287E-01_JPRB, 0.582958E-01_JPRB/)
+XCW( 684, :) = (/ &
+  &  0.104514E+01_JPRB, 0.105556E+01_JPRB, 0.106562E+01_JPRB, 0.107531E+01_JPRB &
+  &, 0.108463E+01_JPRB, 0.109356E+01_JPRB, 0.110209E+01_JPRB &
+  &, 0.111023E+01_JPRB, 0.111797E+01_JPRB, 0.112530E+01_JPRB, 0.113220E+01_JPRB &
+  &, 0.113869E+01_JPRB, 0.114474E+01_JPRB, 0.115036E+01_JPRB &
+  &, 0.115553E+01_JPRB, 0.116026E+01_JPRB, 0.116454E+01_JPRB, 0.116837E+01_JPRB &
+  &, 0.117173E+01_JPRB, 0.117463E+01_JPRB, 0.117706E+01_JPRB &
+  &, 0.117901E+01_JPRB, 0.118050E+01_JPRB, 0.118151E+01_JPRB, 0.118203E+01_JPRB &
+  &, 0.118209E+01_JPRB, 0.118166E+01_JPRB, 0.118074E+01_JPRB &
+  &, 0.117935E+01_JPRB, 0.117747E+01_JPRB, 0.117511E+01_JPRB, 0.117228E+01_JPRB &
+  &, 0.116896E+01_JPRB, 0.116518E+01_JPRB, 0.116092E+01_JPRB &
+  &, 0.115620E+01_JPRB, 0.115101E+01_JPRB, 0.114536E+01_JPRB, 0.113927E+01_JPRB &
+  &, 0.113272E+01_JPRB, 0.112574E+01_JPRB, 0.111833E+01_JPRB &
+  &, 0.111050E+01_JPRB, 0.110224E+01_JPRB, 0.109358E+01_JPRB, 0.108452E+01_JPRB &
+  &, 0.107507E+01_JPRB, 0.106524E+01_JPRB, 0.105505E+01_JPRB &
+  &, 0.104450E+01_JPRB, 0.103360E+01_JPRB, 0.102236E+01_JPRB, 0.101081E+01_JPRB &
+  &, 0.998959E+00_JPRB, 0.986790E+00_JPRB, 0.974357E+00_JPRB &
+  &, 0.961642E+00_JPRB, 0.948672E+00_JPRB, 0.935459E+00_JPRB, 0.922001E+00_JPRB &
+  &, 0.908346E+00_JPRB, 0.894493E+00_JPRB, 0.880440E+00_JPRB &
+  &, 0.866221E+00_JPRB, 0.851834E+00_JPRB, 0.837314E+00_JPRB, 0.822659E+00_JPRB &
+  &, 0.807888E+00_JPRB, 0.793016E+00_JPRB, 0.778061E+00_JPRB &
+  &, 0.763020E+00_JPRB, 0.747930E+00_JPRB, 0.732808E+00_JPRB, 0.717627E+00_JPRB &
+  &, 0.702447E+00_JPRB, 0.687263E+00_JPRB, 0.672088E+00_JPRB &
+  &, 0.656938E+00_JPRB, 0.641828E+00_JPRB, 0.626747E+00_JPRB, 0.611731E+00_JPRB &
+  &, 0.596796E+00_JPRB, 0.581924E+00_JPRB, 0.567156E+00_JPRB &
+  &, 0.552500E+00_JPRB, 0.537968E+00_JPRB, 0.523538E+00_JPRB, 0.509278E+00_JPRB &
+  &, 0.495135E+00_JPRB, 0.481145E+00_JPRB, 0.467344E+00_JPRB &
+  &, 0.453674E+00_JPRB, 0.440200E+00_JPRB, 0.426925E+00_JPRB, 0.413852E+00_JPRB &
+  &, 0.400946E+00_JPRB, 0.388273E+00_JPRB, 0.375798E+00_JPRB &
+  &, 0.363517E+00_JPRB, 0.351495E+00_JPRB, 0.339656E+00_JPRB, 0.328066E+00_JPRB &
+  &, 0.316717E+00_JPRB, 0.305600E+00_JPRB, 0.294744E+00_JPRB &
+  &, 0.284098E+00_JPRB, 0.273688E+00_JPRB, 0.263541E+00_JPRB, 0.253641E+00_JPRB &
+  &, 0.243972E+00_JPRB, 0.234559E+00_JPRB, 0.225382E+00_JPRB &
+  &, 0.216420E+00_JPRB, 0.207740E+00_JPRB, 0.199320E+00_JPRB, 0.191090E+00_JPRB &
+  &, 0.183163E+00_JPRB, 0.175419E+00_JPRB, 0.167923E+00_JPRB &
+  &, 0.160697E+00_JPRB, 0.153659E+00_JPRB, 0.146878E+00_JPRB, 0.140320E+00_JPRB &
+  &, 0.133951E+00_JPRB, 0.127838E+00_JPRB, 0.121945E+00_JPRB &
+  &, 0.116233E+00_JPRB, 0.110772E+00_JPRB, 0.105464E+00_JPRB, 0.100380E+00_JPRB &
+  &, 0.954750E-01_JPRB, 0.907616E-01_JPRB, 0.862527E-01_JPRB &
+  &, 0.819002E-01_JPRB, 0.777147E-01_JPRB, 0.737694E-01_JPRB, 0.698881E-01_JPRB &
+  &, 0.662690E-01_JPRB, 0.627313E-01_JPRB, 0.594129E-01_JPRB/)
+XCW( 685, :) = (/ &
+  &  0.104543E+01_JPRB, 0.105593E+01_JPRB, 0.106606E+01_JPRB, 0.107583E+01_JPRB &
+  &, 0.108522E+01_JPRB, 0.109423E+01_JPRB, 0.110285E+01_JPRB &
+  &, 0.111107E+01_JPRB, 0.111888E+01_JPRB, 0.112629E+01_JPRB, 0.113328E+01_JPRB &
+  &, 0.113984E+01_JPRB, 0.114598E+01_JPRB, 0.115168E+01_JPRB &
+  &, 0.115693E+01_JPRB, 0.116175E+01_JPRB, 0.116611E+01_JPRB, 0.117002E+01_JPRB &
+  &, 0.117346E+01_JPRB, 0.117644E+01_JPRB, 0.117896E+01_JPRB &
+  &, 0.118100E+01_JPRB, 0.118256E+01_JPRB, 0.118366E+01_JPRB, 0.118426E+01_JPRB &
+  &, 0.118440E+01_JPRB, 0.118405E+01_JPRB, 0.118322E+01_JPRB &
+  &, 0.118190E+01_JPRB, 0.118010E+01_JPRB, 0.117783E+01_JPRB, 0.117507E+01_JPRB &
+  &, 0.117183E+01_JPRB, 0.116812E+01_JPRB, 0.116394E+01_JPRB &
+  &, 0.115929E+01_JPRB, 0.115417E+01_JPRB, 0.114861E+01_JPRB, 0.114259E+01_JPRB &
+  &, 0.113611E+01_JPRB, 0.112920E+01_JPRB, 0.112185E+01_JPRB &
+  &, 0.111407E+01_JPRB, 0.110589E+01_JPRB, 0.109729E+01_JPRB, 0.108829E+01_JPRB &
+  &, 0.107889E+01_JPRB, 0.106913E+01_JPRB, 0.105899E+01_JPRB &
+  &, 0.104849E+01_JPRB, 0.103764E+01_JPRB, 0.102646E+01_JPRB, 0.101496E+01_JPRB &
+  &, 0.100314E+01_JPRB, 0.991021E+00_JPRB, 0.978612E+00_JPRB &
+  &, 0.965935E+00_JPRB, 0.953001E+00_JPRB, 0.939823E+00_JPRB, 0.926383E+00_JPRB &
+  &, 0.912777E+00_JPRB, 0.898937E+00_JPRB, 0.884913E+00_JPRB &
+  &, 0.870703E+00_JPRB, 0.856341E+00_JPRB, 0.841845E+00_JPRB, 0.827192E+00_JPRB &
+  &, 0.812440E+00_JPRB, 0.797565E+00_JPRB, 0.782625E+00_JPRB &
+  &, 0.767596E+00_JPRB, 0.752495E+00_JPRB, 0.737358E+00_JPRB, 0.722182E+00_JPRB &
+  &, 0.707005E+00_JPRB, 0.691796E+00_JPRB, 0.676618E+00_JPRB &
+  &, 0.661438E+00_JPRB, 0.646294E+00_JPRB, 0.631199E+00_JPRB, 0.616168E+00_JPRB &
+  &, 0.601214E+00_JPRB, 0.586321E+00_JPRB, 0.571528E+00_JPRB &
+  &, 0.556844E+00_JPRB, 0.542252E+00_JPRB, 0.527788E+00_JPRB, 0.513489E+00_JPRB &
+  &, 0.499304E+00_JPRB, 0.485269E+00_JPRB, 0.471418E+00_JPRB &
+  &, 0.457727E+00_JPRB, 0.444197E+00_JPRB, 0.430863E+00_JPRB, 0.417725E+00_JPRB &
+  &, 0.404751E+00_JPRB, 0.392042E+00_JPRB, 0.379491E+00_JPRB &
+  &, 0.367166E+00_JPRB, 0.355061E+00_JPRB, 0.343209E+00_JPRB, 0.331565E+00_JPRB &
+  &, 0.320122E+00_JPRB, 0.308945E+00_JPRB, 0.297986E+00_JPRB &
+  &, 0.287312E+00_JPRB, 0.276832E+00_JPRB, 0.266611E+00_JPRB, 0.256634E+00_JPRB &
+  &, 0.246884E+00_JPRB, 0.237430E+00_JPRB, 0.228166E+00_JPRB &
+  &, 0.219202E+00_JPRB, 0.210428E+00_JPRB, 0.201911E+00_JPRB, 0.193673E+00_JPRB &
+  &, 0.185643E+00_JPRB, 0.177839E+00_JPRB, 0.170281E+00_JPRB &
+  &, 0.162990E+00_JPRB, 0.155885E+00_JPRB, 0.149034E+00_JPRB, 0.142404E+00_JPRB &
+  &, 0.136011E+00_JPRB, 0.129821E+00_JPRB, 0.123848E+00_JPRB &
+  &, 0.118053E+00_JPRB, 0.112505E+00_JPRB, 0.107165E+00_JPRB, 0.101990E+00_JPRB &
+  &, 0.970486E-01_JPRB, 0.922978E-01_JPRB, 0.876900E-01_JPRB &
+  &, 0.832964E-01_JPRB, 0.791297E-01_JPRB, 0.750787E-01_JPRB, 0.712149E-01_JPRB &
+  &, 0.674853E-01_JPRB, 0.638988E-01_JPRB, 0.605300E-01_JPRB/)
+XCW( 686, :) = (/ &
+  &  0.104572E+01_JPRB, 0.105629E+01_JPRB, 0.106650E+01_JPRB, 0.107635E+01_JPRB &
+  &, 0.108582E+01_JPRB, 0.109490E+01_JPRB, 0.110360E+01_JPRB &
+  &, 0.111190E+01_JPRB, 0.111980E+01_JPRB, 0.112728E+01_JPRB, 0.113435E+01_JPRB &
+  &, 0.114100E+01_JPRB, 0.114722E+01_JPRB, 0.115300E+01_JPRB &
+  &, 0.115834E+01_JPRB, 0.116324E+01_JPRB, 0.116768E+01_JPRB, 0.117167E+01_JPRB &
+  &, 0.117520E+01_JPRB, 0.117827E+01_JPRB, 0.118086E+01_JPRB &
+  &, 0.118299E+01_JPRB, 0.118464E+01_JPRB, 0.118581E+01_JPRB, 0.118650E+01_JPRB &
+  &, 0.118672E+01_JPRB, 0.118645E+01_JPRB, 0.118570E+01_JPRB &
+  &, 0.118446E+01_JPRB, 0.118275E+01_JPRB, 0.118055E+01_JPRB, 0.117787E+01_JPRB &
+  &, 0.117471E+01_JPRB, 0.117108E+01_JPRB, 0.116697E+01_JPRB &
+  &, 0.116239E+01_JPRB, 0.115736E+01_JPRB, 0.115185E+01_JPRB, 0.114590E+01_JPRB &
+  &, 0.113950E+01_JPRB, 0.113265E+01_JPRB, 0.112538E+01_JPRB &
+  &, 0.111767E+01_JPRB, 0.110955E+01_JPRB, 0.110101E+01_JPRB, 0.109207E+01_JPRB &
+  &, 0.108274E+01_JPRB, 0.107303E+01_JPRB, 0.106294E+01_JPRB &
+  &, 0.105250E+01_JPRB, 0.104170E+01_JPRB, 0.103057E+01_JPRB, 0.101911E+01_JPRB &
+  &, 0.100734E+01_JPRB, 0.995267E+00_JPRB, 0.982898E+00_JPRB &
+  &, 0.970259E+00_JPRB, 0.957362E+00_JPRB, 0.944204E+00_JPRB, 0.930831E+00_JPRB &
+  &, 0.917225E+00_JPRB, 0.903416E+00_JPRB, 0.889404E+00_JPRB &
+  &, 0.875222E+00_JPRB, 0.860886E+00_JPRB, 0.846394E+00_JPRB, 0.831764E+00_JPRB &
+  &, 0.817012E+00_JPRB, 0.802155E+00_JPRB, 0.787209E+00_JPRB &
+  &, 0.772172E+00_JPRB, 0.757081E+00_JPRB, 0.741953E+00_JPRB, 0.726782E+00_JPRB &
+  &, 0.711562E+00_JPRB, 0.696353E+00_JPRB, 0.681124E+00_JPRB &
+  &, 0.665962E+00_JPRB, 0.650808E+00_JPRB, 0.635702E+00_JPRB, 0.620631E+00_JPRB &
+  &, 0.605659E+00_JPRB, 0.590745E+00_JPRB, 0.575900E+00_JPRB &
+  &, 0.561188E+00_JPRB, 0.546565E+00_JPRB, 0.532066E+00_JPRB, 0.517729E+00_JPRB &
+  &, 0.503503E+00_JPRB, 0.489423E+00_JPRB, 0.475524E+00_JPRB &
+  &, 0.461780E+00_JPRB, 0.448194E+00_JPRB, 0.434832E+00_JPRB, 0.421632E+00_JPRB &
+  &, 0.408625E+00_JPRB, 0.395810E+00_JPRB, 0.383219E+00_JPRB &
+  &, 0.370851E+00_JPRB, 0.358700E+00_JPRB, 0.346761E+00_JPRB, 0.335064E+00_JPRB &
+  &, 0.323564E+00_JPRB, 0.312328E+00_JPRB, 0.301306E+00_JPRB &
+  &, 0.290526E+00_JPRB, 0.280016E+00_JPRB, 0.269722E+00_JPRB, 0.259669E+00_JPRB &
+  &, 0.249882E+00_JPRB, 0.240345E+00_JPRB, 0.231037E+00_JPRB &
+  &, 0.221939E+00_JPRB, 0.213116E+00_JPRB, 0.204548E+00_JPRB, 0.196210E+00_JPRB &
+  &, 0.188122E+00_JPRB, 0.180259E+00_JPRB, 0.172639E+00_JPRB &
+  &, 0.165284E+00_JPRB, 0.158111E+00_JPRB, 0.151190E+00_JPRB, 0.144487E+00_JPRB &
+  &, 0.138019E+00_JPRB, 0.131804E+00_JPRB, 0.125750E+00_JPRB &
+  &, 0.119927E+00_JPRB, 0.114294E+00_JPRB, 0.108923E+00_JPRB, 0.103714E+00_JPRB &
+  &, 0.986805E-01_JPRB, 0.938340E-01_JPRB, 0.892472E-01_JPRB &
+  &, 0.847533E-01_JPRB, 0.804833E-01_JPRB, 0.763880E-01_JPRB, 0.724785E-01_JPRB &
+  &, 0.687017E-01_JPRB, 0.651312E-01_JPRB, 0.616470E-01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART98',1,ZHOOK_HANDLE)
+END SUBROUTINE PART98
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART99
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART99',0,ZHOOK_HANDLE)
+
+XCW( 687, :) = (/ &
+  &  0.104601E+01_JPRB, 0.105666E+01_JPRB, 0.106695E+01_JPRB, 0.107687E+01_JPRB &
+  &, 0.108641E+01_JPRB, 0.109558E+01_JPRB, 0.110435E+01_JPRB &
+  &, 0.111273E+01_JPRB, 0.112071E+01_JPRB, 0.112828E+01_JPRB, 0.113543E+01_JPRB &
+  &, 0.114216E+01_JPRB, 0.114846E+01_JPRB, 0.115432E+01_JPRB &
+  &, 0.115975E+01_JPRB, 0.116473E+01_JPRB, 0.116926E+01_JPRB, 0.117333E+01_JPRB &
+  &, 0.117694E+01_JPRB, 0.118009E+01_JPRB, 0.118277E+01_JPRB &
+  &, 0.118498E+01_JPRB, 0.118671E+01_JPRB, 0.118797E+01_JPRB, 0.118875E+01_JPRB &
+  &, 0.118904E+01_JPRB, 0.118886E+01_JPRB, 0.118819E+01_JPRB &
+  &, 0.118703E+01_JPRB, 0.118540E+01_JPRB, 0.118328E+01_JPRB, 0.118068E+01_JPRB &
+  &, 0.117760E+01_JPRB, 0.117404E+01_JPRB, 0.117002E+01_JPRB &
+  &, 0.116551E+01_JPRB, 0.116054E+01_JPRB, 0.115512E+01_JPRB, 0.114924E+01_JPRB &
+  &, 0.114291E+01_JPRB, 0.113613E+01_JPRB, 0.112892E+01_JPRB &
+  &, 0.112128E+01_JPRB, 0.111321E+01_JPRB, 0.110475E+01_JPRB, 0.109586E+01_JPRB &
+  &, 0.108659E+01_JPRB, 0.107694E+01_JPRB, 0.106691E+01_JPRB &
+  &, 0.105652E+01_JPRB, 0.104578E+01_JPRB, 0.103469E+01_JPRB, 0.102327E+01_JPRB &
+  &, 0.101155E+01_JPRB, 0.999513E+00_JPRB, 0.987198E+00_JPRB &
+  &, 0.974598E+00_JPRB, 0.961739E+00_JPRB, 0.948617E+00_JPRB, 0.935262E+00_JPRB &
+  &, 0.921689E+00_JPRB, 0.907912E+00_JPRB, 0.893930E+00_JPRB &
+  &, 0.879777E+00_JPRB, 0.865449E+00_JPRB, 0.850963E+00_JPRB, 0.836355E+00_JPRB &
+  &, 0.821604E+00_JPRB, 0.806764E+00_JPRB, 0.791814E+00_JPRB &
+  &, 0.776791E+00_JPRB, 0.761710E+00_JPRB, 0.746569E+00_JPRB, 0.731382E+00_JPRB &
+  &, 0.716165E+00_JPRB, 0.700956E+00_JPRB, 0.685725E+00_JPRB &
+  &, 0.670534E+00_JPRB, 0.655348E+00_JPRB, 0.640231E+00_JPRB, 0.625146E+00_JPRB &
+  &, 0.610130E+00_JPRB, 0.595169E+00_JPRB, 0.580327E+00_JPRB &
+  &, 0.565560E+00_JPRB, 0.550906E+00_JPRB, 0.536402E+00_JPRB, 0.521999E+00_JPRB &
+  &, 0.507732E+00_JPRB, 0.493607E+00_JPRB, 0.479660E+00_JPRB &
+  &, 0.465865E+00_JPRB, 0.452256E+00_JPRB, 0.438802E+00_JPRB, 0.425572E+00_JPRB &
+  &, 0.412498E+00_JPRB, 0.399647E+00_JPRB, 0.387017E+00_JPRB &
+  &, 0.374571E+00_JPRB, 0.362338E+00_JPRB, 0.350350E+00_JPRB, 0.338601E+00_JPRB &
+  &, 0.327046E+00_JPRB, 0.315750E+00_JPRB, 0.304666E+00_JPRB &
+  &, 0.293821E+00_JPRB, 0.283242E+00_JPRB, 0.272875E+00_JPRB, 0.262746E+00_JPRB &
+  &, 0.252879E+00_JPRB, 0.243259E+00_JPRB, 0.233909E+00_JPRB &
+  &, 0.224766E+00_JPRB, 0.215850E+00_JPRB, 0.207231E+00_JPRB, 0.198840E+00_JPRB &
+  &, 0.190649E+00_JPRB, 0.182727E+00_JPRB, 0.175046E+00_JPRB &
+  &, 0.167627E+00_JPRB, 0.160388E+00_JPRB, 0.153397E+00_JPRB, 0.146622E+00_JPRB &
+  &, 0.140080E+00_JPRB, 0.133787E+00_JPRB, 0.127707E+00_JPRB &
+  &, 0.121802E+00_JPRB, 0.116139E+00_JPRB, 0.110680E+00_JPRB, 0.105381E+00_JPRB &
+  &, 0.100312E+00_JPRB, 0.954292E-01_JPRB, 0.907445E-01_JPRB &
+  &, 0.862709E-01_JPRB, 0.818983E-01_JPRB, 0.777597E-01_JPRB, 0.738053E-01_JPRB &
+  &, 0.699821E-01_JPRB, 0.663636E-01_JPRB, 0.628298E-01_JPRB/)
+XCW( 688, :) = (/ &
+  &  0.104630E+01_JPRB, 0.105703E+01_JPRB, 0.106739E+01_JPRB, 0.107739E+01_JPRB &
+  &, 0.108701E+01_JPRB, 0.109626E+01_JPRB, 0.110511E+01_JPRB &
+  &, 0.111357E+01_JPRB, 0.112163E+01_JPRB, 0.112928E+01_JPRB, 0.113651E+01_JPRB &
+  &, 0.114332E+01_JPRB, 0.114970E+01_JPRB, 0.115565E+01_JPRB &
+  &, 0.116116E+01_JPRB, 0.116622E+01_JPRB, 0.117084E+01_JPRB, 0.117499E+01_JPRB &
+  &, 0.117869E+01_JPRB, 0.118192E+01_JPRB, 0.118469E+01_JPRB &
+  &, 0.118698E+01_JPRB, 0.118880E+01_JPRB, 0.119014E+01_JPRB, 0.119100E+01_JPRB &
+  &, 0.119138E+01_JPRB, 0.119127E+01_JPRB, 0.119068E+01_JPRB &
+  &, 0.118961E+01_JPRB, 0.118806E+01_JPRB, 0.118602E+01_JPRB, 0.118349E+01_JPRB &
+  &, 0.118049E+01_JPRB, 0.117702E+01_JPRB, 0.117306E+01_JPRB &
+  &, 0.116863E+01_JPRB, 0.116375E+01_JPRB, 0.115840E+01_JPRB, 0.115258E+01_JPRB &
+  &, 0.114632E+01_JPRB, 0.113962E+01_JPRB, 0.113247E+01_JPRB &
+  &, 0.112489E+01_JPRB, 0.111690E+01_JPRB, 0.110849E+01_JPRB, 0.109968E+01_JPRB &
+  &, 0.109047E+01_JPRB, 0.108087E+01_JPRB, 0.107089E+01_JPRB &
+  &, 0.106055E+01_JPRB, 0.104987E+01_JPRB, 0.103884E+01_JPRB, 0.102747E+01_JPRB &
+  &, 0.101578E+01_JPRB, 0.100380E+01_JPRB, 0.991514E+00_JPRB &
+  &, 0.978953E+00_JPRB, 0.966131E+00_JPRB, 0.953046E+00_JPRB, 0.939727E+00_JPRB &
+  &, 0.926188E+00_JPRB, 0.912426E+00_JPRB, 0.898475E+00_JPRB &
+  &, 0.884331E+00_JPRB, 0.870030E+00_JPRB, 0.855570E+00_JPRB, 0.840966E+00_JPRB &
+  &, 0.826235E+00_JPRB, 0.811394E+00_JPRB, 0.796461E+00_JPRB &
+  &, 0.781430E+00_JPRB, 0.766340E+00_JPRB, 0.751207E+00_JPRB, 0.735982E+00_JPRB &
+  &, 0.720790E+00_JPRB, 0.705583E+00_JPRB, 0.690351E+00_JPRB &
+  &, 0.675131E+00_JPRB, 0.659938E+00_JPRB, 0.644785E+00_JPRB, 0.629660E+00_JPRB &
+  &, 0.614627E+00_JPRB, 0.599646E+00_JPRB, 0.584781E+00_JPRB &
+  &, 0.569988E+00_JPRB, 0.555305E+00_JPRB, 0.540739E+00_JPRB, 0.526299E+00_JPRB &
+  &, 0.511991E+00_JPRB, 0.497823E+00_JPRB, 0.483828E+00_JPRB &
+  &, 0.469981E+00_JPRB, 0.456317E+00_JPRB, 0.442838E+00_JPRB, 0.429546E+00_JPRB &
+  &, 0.416440E+00_JPRB, 0.403519E+00_JPRB, 0.390816E+00_JPRB &
+  &, 0.378327E+00_JPRB, 0.366050E+00_JPRB, 0.353976E+00_JPRB, 0.342138E+00_JPRB &
+  &, 0.330527E+00_JPRB, 0.319172E+00_JPRB, 0.308026E+00_JPRB &
+  &, 0.297115E+00_JPRB, 0.286467E+00_JPRB, 0.276028E+00_JPRB, 0.265865E+00_JPRB &
+  &, 0.255920E+00_JPRB, 0.246260E+00_JPRB, 0.236781E+00_JPRB &
+  &, 0.227593E+00_JPRB, 0.218630E+00_JPRB, 0.209915E+00_JPRB, 0.201470E+00_JPRB &
+  &, 0.193224E+00_JPRB, 0.185244E+00_JPRB, 0.177503E+00_JPRB &
+  &, 0.169970E+00_JPRB, 0.162665E+00_JPRB, 0.155656E+00_JPRB, 0.148810E+00_JPRB &
+  &, 0.142193E+00_JPRB, 0.135824E+00_JPRB, 0.129664E+00_JPRB &
+  &, 0.123731E+00_JPRB, 0.117985E+00_JPRB, 0.112438E+00_JPRB, 0.107106E+00_JPRB &
+  &, 0.102002E+00_JPRB, 0.970244E-01_JPRB, 0.923016E-01_JPRB &
+  &, 0.877278E-01_JPRB, 0.833749E-01_JPRB, 0.791938E-01_JPRB, 0.751321E-01_JPRB &
+  &, 0.712624E-01_JPRB, 0.675960E-01_JPRB, 0.640126E-01_JPRB/)
+XCW( 689, :) = (/ &
+  &  0.104660E+01_JPRB, 0.105739E+01_JPRB, 0.106783E+01_JPRB, 0.107791E+01_JPRB &
+  &, 0.108761E+01_JPRB, 0.109693E+01_JPRB, 0.110587E+01_JPRB &
+  &, 0.111441E+01_JPRB, 0.112255E+01_JPRB, 0.113028E+01_JPRB, 0.113759E+01_JPRB &
+  &, 0.114449E+01_JPRB, 0.115095E+01_JPRB, 0.115698E+01_JPRB &
+  &, 0.116258E+01_JPRB, 0.116772E+01_JPRB, 0.117242E+01_JPRB, 0.117666E+01_JPRB &
+  &, 0.118044E+01_JPRB, 0.118376E+01_JPRB, 0.118660E+01_JPRB &
+  &, 0.118898E+01_JPRB, 0.119088E+01_JPRB, 0.119231E+01_JPRB, 0.119325E+01_JPRB &
+  &, 0.119371E+01_JPRB, 0.119369E+01_JPRB, 0.119319E+01_JPRB &
+  &, 0.119220E+01_JPRB, 0.119072E+01_JPRB, 0.118876E+01_JPRB, 0.118632E+01_JPRB &
+  &, 0.118340E+01_JPRB, 0.118000E+01_JPRB, 0.117612E+01_JPRB &
+  &, 0.117177E+01_JPRB, 0.116695E+01_JPRB, 0.116168E+01_JPRB, 0.115594E+01_JPRB &
+  &, 0.114975E+01_JPRB, 0.114312E+01_JPRB, 0.113603E+01_JPRB &
+  &, 0.112853E+01_JPRB, 0.112060E+01_JPRB, 0.111225E+01_JPRB, 0.110350E+01_JPRB &
+  &, 0.109435E+01_JPRB, 0.108481E+01_JPRB, 0.107489E+01_JPRB &
+  &, 0.106461E+01_JPRB, 0.105398E+01_JPRB, 0.104298E+01_JPRB, 0.103167E+01_JPRB &
+  &, 0.102004E+01_JPRB, 0.100809E+01_JPRB, 0.995860E+00_JPRB &
+  &, 0.983338E+00_JPRB, 0.970540E+00_JPRB, 0.957492E+00_JPRB, 0.944208E+00_JPRB &
+  &, 0.930703E+00_JPRB, 0.916957E+00_JPRB, 0.903036E+00_JPRB &
+  &, 0.888922E+00_JPRB, 0.874631E+00_JPRB, 0.860195E+00_JPRB, 0.845595E+00_JPRB &
+  &, 0.830886E+00_JPRB, 0.816044E+00_JPRB, 0.801128E+00_JPRB &
+  &, 0.786112E+00_JPRB, 0.771012E+00_JPRB, 0.755867E+00_JPRB, 0.740671E+00_JPRB &
+  &, 0.725462E+00_JPRB, 0.710210E+00_JPRB, 0.694976E+00_JPRB &
+  &, 0.679752E+00_JPRB, 0.664527E+00_JPRB, 0.649364E+00_JPRB, 0.634226E+00_JPRB &
+  &, 0.619151E+00_JPRB, 0.604150E+00_JPRB, 0.589235E+00_JPRB &
+  &, 0.574416E+00_JPRB, 0.559703E+00_JPRB, 0.545104E+00_JPRB, 0.530627E+00_JPRB &
+  &, 0.516280E+00_JPRB, 0.502099E+00_JPRB, 0.488027E+00_JPRB &
+  &, 0.474161E+00_JPRB, 0.460443E+00_JPRB, 0.446906E+00_JPRB, 0.433552E+00_JPRB &
+  &, 0.420381E+00_JPRB, 0.407425E+00_JPRB, 0.394649E+00_JPRB &
+  &, 0.382120E+00_JPRB, 0.369761E+00_JPRB, 0.357640E+00_JPRB, 0.345750E+00_JPRB &
+  &, 0.334084E+00_JPRB, 0.322633E+00_JPRB, 0.311426E+00_JPRB &
+  &, 0.300490E+00_JPRB, 0.289734E+00_JPRB, 0.279264E+00_JPRB, 0.269027E+00_JPRB &
+  &, 0.259003E+00_JPRB, 0.249262E+00_JPRB, 0.239741E+00_JPRB &
+  &, 0.230464E+00_JPRB, 0.221455E+00_JPRB, 0.212645E+00_JPRB, 0.204101E+00_JPRB &
+  &, 0.195847E+00_JPRB, 0.187761E+00_JPRB, 0.179959E+00_JPRB &
+  &, 0.172363E+00_JPRB, 0.164992E+00_JPRB, 0.157915E+00_JPRB, 0.150997E+00_JPRB &
+  &, 0.144307E+00_JPRB, 0.137914E+00_JPRB, 0.131676E+00_JPRB &
+  &, 0.125661E+00_JPRB, 0.119830E+00_JPRB, 0.114252E+00_JPRB, 0.108888E+00_JPRB &
+  &, 0.103693E+00_JPRB, 0.986788E-01_JPRB, 0.938588E-01_JPRB &
+  &, 0.892454E-01_JPRB, 0.848515E-01_JPRB, 0.805655E-01_JPRB, 0.765221E-01_JPRB &
+  &, 0.726068E-01_JPRB, 0.688283E-01_JPRB, 0.652612E-01_JPRB/)
+XCW( 690, :) = (/ &
+  &  0.104689E+01_JPRB, 0.105776E+01_JPRB, 0.106828E+01_JPRB, 0.107843E+01_JPRB &
+  &, 0.108821E+01_JPRB, 0.109761E+01_JPRB, 0.110663E+01_JPRB &
+  &, 0.111525E+01_JPRB, 0.112347E+01_JPRB, 0.113128E+01_JPRB, 0.113868E+01_JPRB &
+  &, 0.114565E+01_JPRB, 0.115220E+01_JPRB, 0.115832E+01_JPRB &
+  &, 0.116399E+01_JPRB, 0.116922E+01_JPRB, 0.117401E+01_JPRB, 0.117833E+01_JPRB &
+  &, 0.118220E+01_JPRB, 0.118560E+01_JPRB, 0.118853E+01_JPRB &
+  &, 0.119099E+01_JPRB, 0.119298E+01_JPRB, 0.119449E+01_JPRB, 0.119551E+01_JPRB &
+  &, 0.119606E+01_JPRB, 0.119612E+01_JPRB, 0.119570E+01_JPRB &
+  &, 0.119479E+01_JPRB, 0.119339E+01_JPRB, 0.119152E+01_JPRB, 0.118916E+01_JPRB &
+  &, 0.118631E+01_JPRB, 0.118299E+01_JPRB, 0.117919E+01_JPRB &
+  &, 0.117492E+01_JPRB, 0.117018E+01_JPRB, 0.116498E+01_JPRB, 0.115931E+01_JPRB &
+  &, 0.115319E+01_JPRB, 0.114663E+01_JPRB, 0.113962E+01_JPRB &
+  &, 0.113218E+01_JPRB, 0.112432E+01_JPRB, 0.111603E+01_JPRB, 0.110734E+01_JPRB &
+  &, 0.109825E+01_JPRB, 0.108877E+01_JPRB, 0.107891E+01_JPRB &
+  &, 0.106869E+01_JPRB, 0.105809E+01_JPRB, 0.104716E+01_JPRB, 0.103589E+01_JPRB &
+  &, 0.102431E+01_JPRB, 0.101241E+01_JPRB, 0.100021E+01_JPRB &
+  &, 0.987724E+00_JPRB, 0.974980E+00_JPRB, 0.961970E+00_JPRB, 0.948706E+00_JPRB &
+  &, 0.935235E+00_JPRB, 0.921523E+00_JPRB, 0.907616E+00_JPRB &
+  &, 0.893532E+00_JPRB, 0.879268E+00_JPRB, 0.864840E+00_JPRB, 0.850264E+00_JPRB &
+  &, 0.835557E+00_JPRB, 0.820735E+00_JPRB, 0.805815E+00_JPRB &
+  &, 0.790793E+00_JPRB, 0.775706E+00_JPRB, 0.760572E+00_JPRB, 0.745361E+00_JPRB &
+  &, 0.730134E+00_JPRB, 0.714884E+00_JPRB, 0.699649E+00_JPRB &
+  &, 0.684397E+00_JPRB, 0.669166E+00_JPRB, 0.653969E+00_JPRB, 0.638818E+00_JPRB &
+  &, 0.623727E+00_JPRB, 0.608708E+00_JPRB, 0.593744E+00_JPRB &
+  &, 0.578899E+00_JPRB, 0.564157E+00_JPRB, 0.549498E+00_JPRB, 0.534986E+00_JPRB &
+  &, 0.520599E+00_JPRB, 0.506375E+00_JPRB, 0.492288E+00_JPRB &
+  &, 0.478341E+00_JPRB, 0.464569E+00_JPRB, 0.451008E+00_JPRB, 0.437593E+00_JPRB &
+  &, 0.424356E+00_JPRB, 0.411367E+00_JPRB, 0.398518E+00_JPRB &
+  &, 0.385912E+00_JPRB, 0.373509E+00_JPRB, 0.361340E+00_JPRB, 0.349400E+00_JPRB &
+  &, 0.337642E+00_JPRB, 0.326172E+00_JPRB, 0.314904E+00_JPRB &
+  &, 0.303865E+00_JPRB, 0.293041E+00_JPRB, 0.282501E+00_JPRB, 0.272188E+00_JPRB &
+  &, 0.262129E+00_JPRB, 0.252307E+00_JPRB, 0.242701E+00_JPRB &
+  &, 0.233381E+00_JPRB, 0.224280E+00_JPRB, 0.215420E+00_JPRB, 0.206825E+00_JPRB &
+  &, 0.198470E+00_JPRB, 0.190326E+00_JPRB, 0.182415E+00_JPRB &
+  &, 0.174806E+00_JPRB, 0.167370E+00_JPRB, 0.160174E+00_JPRB, 0.153237E+00_JPRB &
+  &, 0.146473E+00_JPRB, 0.140004E+00_JPRB, 0.133687E+00_JPRB &
+  &, 0.127591E+00_JPRB, 0.121731E+00_JPRB, 0.116123E+00_JPRB, 0.110670E+00_JPRB &
+  &, 0.105383E+00_JPRB, 0.100333E+00_JPRB, 0.954758E-01_JPRB &
+  &, 0.908237E-01_JPRB, 0.863280E-01_JPRB, 0.819995E-01_JPRB, 0.778489E-01_JPRB &
+  &, 0.738872E-01_JPRB, 0.701256E-01_JPRB, 0.664440E-01_JPRB/)
+XCW( 691, :) = (/ &
+  &  0.104718E+01_JPRB, 0.105813E+01_JPRB, 0.106872E+01_JPRB, 0.107895E+01_JPRB &
+  &, 0.108881E+01_JPRB, 0.109829E+01_JPRB, 0.110739E+01_JPRB &
+  &, 0.111609E+01_JPRB, 0.112439E+01_JPRB, 0.113228E+01_JPRB, 0.113976E+01_JPRB &
+  &, 0.114682E+01_JPRB, 0.115345E+01_JPRB, 0.115965E+01_JPRB &
+  &, 0.116541E+01_JPRB, 0.117073E+01_JPRB, 0.117559E+01_JPRB, 0.118000E+01_JPRB &
+  &, 0.118396E+01_JPRB, 0.118744E+01_JPRB, 0.119046E+01_JPRB &
+  &, 0.119300E+01_JPRB, 0.119508E+01_JPRB, 0.119667E+01_JPRB, 0.119778E+01_JPRB &
+  &, 0.119841E+01_JPRB, 0.119855E+01_JPRB, 0.119821E+01_JPRB &
+  &, 0.119739E+01_JPRB, 0.119607E+01_JPRB, 0.119428E+01_JPRB, 0.119200E+01_JPRB &
+  &, 0.118924E+01_JPRB, 0.118599E+01_JPRB, 0.118227E+01_JPRB &
+  &, 0.117807E+01_JPRB, 0.117341E+01_JPRB, 0.116828E+01_JPRB, 0.116269E+01_JPRB &
+  &, 0.115664E+01_JPRB, 0.115015E+01_JPRB, 0.114321E+01_JPRB &
+  &, 0.113584E+01_JPRB, 0.112804E+01_JPRB, 0.111981E+01_JPRB, 0.111119E+01_JPRB &
+  &, 0.110216E+01_JPRB, 0.109274E+01_JPRB, 0.108293E+01_JPRB &
+  &, 0.107277E+01_JPRB, 0.106224E+01_JPRB, 0.105135E+01_JPRB, 0.104014E+01_JPRB &
+  &, 0.102860E+01_JPRB, 0.101675E+01_JPRB, 0.100458E+01_JPRB &
+  &, 0.992141E+00_JPRB, 0.979436E+00_JPRB, 0.966464E+00_JPRB, 0.953237E+00_JPRB &
+  &, 0.939785E+00_JPRB, 0.926106E+00_JPRB, 0.912231E+00_JPRB &
+  &, 0.898159E+00_JPRB, 0.883905E+00_JPRB, 0.869503E+00_JPRB, 0.854952E+00_JPRB &
+  &, 0.840247E+00_JPRB, 0.825446E+00_JPRB, 0.810523E+00_JPRB &
+  &, 0.795517E+00_JPRB, 0.780422E+00_JPRB, 0.765276E+00_JPRB, 0.750095E+00_JPRB &
+  &, 0.734851E+00_JPRB, 0.719604E+00_JPRB, 0.704322E+00_JPRB &
+  &, 0.689067E+00_JPRB, 0.673830E+00_JPRB, 0.658598E+00_JPRB, 0.643436E+00_JPRB &
+  &, 0.628330E+00_JPRB, 0.613266E+00_JPRB, 0.598307E+00_JPRB &
+  &, 0.583411E+00_JPRB, 0.568612E+00_JPRB, 0.553950E+00_JPRB, 0.539403E+00_JPRB &
+  &, 0.524978E+00_JPRB, 0.510682E+00_JPRB, 0.496549E+00_JPRB &
+  &, 0.482584E+00_JPRB, 0.468759E+00_JPRB, 0.455109E+00_JPRB, 0.441666E+00_JPRB &
+  &, 0.428400E+00_JPRB, 0.415308E+00_JPRB, 0.402457E+00_JPRB &
+  &, 0.389775E+00_JPRB, 0.377329E+00_JPRB, 0.365077E+00_JPRB, 0.353049E+00_JPRB &
+  &, 0.341276E+00_JPRB, 0.329711E+00_JPRB, 0.318383E+00_JPRB &
+  &, 0.307280E+00_JPRB, 0.296389E+00_JPRB, 0.285778E+00_JPRB, 0.275392E+00_JPRB &
+  &, 0.265255E+00_JPRB, 0.255352E+00_JPRB, 0.245706E+00_JPRB &
+  &, 0.236297E+00_JPRB, 0.227150E+00_JPRB, 0.218243E+00_JPRB, 0.209550E+00_JPRB &
+  &, 0.201092E+00_JPRB, 0.192940E+00_JPRB, 0.184970E+00_JPRB &
+  &, 0.177249E+00_JPRB, 0.169748E+00_JPRB, 0.162484E+00_JPRB, 0.155476E+00_JPRB &
+  &, 0.148692E+00_JPRB, 0.142094E+00_JPRB, 0.135753E+00_JPRB &
+  &, 0.129631E+00_JPRB, 0.123688E+00_JPRB, 0.117994E+00_JPRB, 0.112452E+00_JPRB &
+  &, 0.107131E+00_JPRB, 0.102047E+00_JPRB, 0.970929E-01_JPRB &
+  &, 0.924020E-01_JPRB, 0.878661E-01_JPRB, 0.834959E-01_JPRB, 0.793020E-01_JPRB &
+  &, 0.752316E-01_JPRB, 0.714228E-01_JPRB, 0.676925E-01_JPRB/)
+XCW( 692, :) = (/ &
+  &  0.104747E+01_JPRB, 0.105850E+01_JPRB, 0.106917E+01_JPRB, 0.107948E+01_JPRB &
+  &, 0.108941E+01_JPRB, 0.109897E+01_JPRB, 0.110815E+01_JPRB &
+  &, 0.111693E+01_JPRB, 0.112531E+01_JPRB, 0.113329E+01_JPRB, 0.114085E+01_JPRB &
+  &, 0.114799E+01_JPRB, 0.115471E+01_JPRB, 0.116099E+01_JPRB &
+  &, 0.116684E+01_JPRB, 0.117224E+01_JPRB, 0.117719E+01_JPRB, 0.118168E+01_JPRB &
+  &, 0.118571E+01_JPRB, 0.118929E+01_JPRB, 0.119239E+01_JPRB &
+  &, 0.119502E+01_JPRB, 0.119718E+01_JPRB, 0.119885E+01_JPRB, 0.120005E+01_JPRB &
+  &, 0.120076E+01_JPRB, 0.120099E+01_JPRB, 0.120074E+01_JPRB &
+  &, 0.119999E+01_JPRB, 0.119876E+01_JPRB, 0.119705E+01_JPRB, 0.119485E+01_JPRB &
+  &, 0.119217E+01_JPRB, 0.118900E+01_JPRB, 0.118536E+01_JPRB &
+  &, 0.118124E+01_JPRB, 0.117665E+01_JPRB, 0.117160E+01_JPRB, 0.116607E+01_JPRB &
+  &, 0.116011E+01_JPRB, 0.115368E+01_JPRB, 0.114682E+01_JPRB &
+  &, 0.113951E+01_JPRB, 0.113177E+01_JPRB, 0.112362E+01_JPRB, 0.111506E+01_JPRB &
+  &, 0.110609E+01_JPRB, 0.109673E+01_JPRB, 0.108699E+01_JPRB &
+  &, 0.107687E+01_JPRB, 0.106640E+01_JPRB, 0.105557E+01_JPRB, 0.104440E+01_JPRB &
+  &, 0.103290E+01_JPRB, 0.102110E+01_JPRB, 0.100899E+01_JPRB &
+  &, 0.996588E+00_JPRB, 0.983908E+00_JPRB, 0.970974E+00_JPRB, 0.957784E+00_JPRB &
+  &, 0.944351E+00_JPRB, 0.930706E+00_JPRB, 0.916864E+00_JPRB &
+  &, 0.902823E+00_JPRB, 0.888598E+00_JPRB, 0.874205E+00_JPRB, 0.859659E+00_JPRB &
+  &, 0.844977E+00_JPRB, 0.830177E+00_JPRB, 0.815273E+00_JPRB &
+  &, 0.800262E+00_JPRB, 0.785181E+00_JPRB, 0.770024E+00_JPRB, 0.754830E+00_JPRB &
+  &, 0.739591E+00_JPRB, 0.724324E+00_JPRB, 0.709043E+00_JPRB &
+  &, 0.693785E+00_JPRB, 0.678518E+00_JPRB, 0.663279E+00_JPRB, 0.648079E+00_JPRB &
+  &, 0.632959E+00_JPRB, 0.617877E+00_JPRB, 0.602871E+00_JPRB &
+  &, 0.587950E+00_JPRB, 0.573124E+00_JPRB, 0.558430E+00_JPRB, 0.543820E+00_JPRB &
+  &, 0.529357E+00_JPRB, 0.515050E+00_JPRB, 0.500872E+00_JPRB &
+  &, 0.486827E+00_JPRB, 0.472982E+00_JPRB, 0.459276E+00_JPRB, 0.445773E+00_JPRB &
+  &, 0.432443E+00_JPRB, 0.419318E+00_JPRB, 0.406396E+00_JPRB &
+  &, 0.393675E+00_JPRB, 0.381150E+00_JPRB, 0.368851E+00_JPRB, 0.356774E+00_JPRB &
+  &, 0.344910E+00_JPRB, 0.333289E+00_JPRB, 0.321862E+00_JPRB &
+  &, 0.310695E+00_JPRB, 0.299778E+00_JPRB, 0.289097E+00_JPRB, 0.278637E+00_JPRB &
+  &, 0.268424E+00_JPRB, 0.258484E+00_JPRB, 0.248754E+00_JPRB &
+  &, 0.239304E+00_JPRB, 0.230067E+00_JPRB, 0.221065E+00_JPRB, 0.212321E+00_JPRB &
+  &, 0.203810E+00_JPRB, 0.195554E+00_JPRB, 0.187524E+00_JPRB &
+  &, 0.179742E+00_JPRB, 0.172176E+00_JPRB, 0.164845E+00_JPRB, 0.157768E+00_JPRB &
+  &, 0.150911E+00_JPRB, 0.144238E+00_JPRB, 0.137819E+00_JPRB &
+  &, 0.131616E+00_JPRB, 0.125645E+00_JPRB, 0.119865E+00_JPRB, 0.114292E+00_JPRB &
+  &, 0.108938E+00_JPRB, 0.103760E+00_JPRB, 0.987698E-01_JPRB &
+  &, 0.939803E-01_JPRB, 0.894042E-01_JPRB, 0.849299E-01_JPRB, 0.806920E-01_JPRB &
+  &, 0.766400E-01_JPRB, 0.727200E-01_JPRB, 0.690067E-01_JPRB/)
+XCW( 693, :) = (/ &
+  &  0.104777E+01_JPRB, 0.105887E+01_JPRB, 0.106962E+01_JPRB, 0.108000E+01_JPRB &
+  &, 0.109002E+01_JPRB, 0.109966E+01_JPRB, 0.110891E+01_JPRB &
+  &, 0.111778E+01_JPRB, 0.112624E+01_JPRB, 0.113430E+01_JPRB, 0.114194E+01_JPRB &
+  &, 0.114917E+01_JPRB, 0.115596E+01_JPRB, 0.116234E+01_JPRB &
+  &, 0.116826E+01_JPRB, 0.117375E+01_JPRB, 0.117878E+01_JPRB, 0.118337E+01_JPRB &
+  &, 0.118749E+01_JPRB, 0.119114E+01_JPRB, 0.119433E+01_JPRB &
+  &, 0.119705E+01_JPRB, 0.119929E+01_JPRB, 0.120105E+01_JPRB, 0.120233E+01_JPRB &
+  &, 0.120313E+01_JPRB, 0.120344E+01_JPRB, 0.120327E+01_JPRB &
+  &, 0.120261E+01_JPRB, 0.120146E+01_JPRB, 0.119983E+01_JPRB, 0.119771E+01_JPRB &
+  &, 0.119510E+01_JPRB, 0.119202E+01_JPRB, 0.118845E+01_JPRB &
+  &, 0.118442E+01_JPRB, 0.117990E+01_JPRB, 0.117492E+01_JPRB, 0.116948E+01_JPRB &
+  &, 0.116358E+01_JPRB, 0.115723E+01_JPRB, 0.115042E+01_JPRB &
+  &, 0.114319E+01_JPRB, 0.113553E+01_JPRB, 0.112745E+01_JPRB, 0.111894E+01_JPRB &
+  &, 0.111004E+01_JPRB, 0.110074E+01_JPRB, 0.109105E+01_JPRB &
+  &, 0.108098E+01_JPRB, 0.107057E+01_JPRB, 0.105979E+01_JPRB, 0.104868E+01_JPRB &
+  &, 0.103723E+01_JPRB, 0.102546E+01_JPRB, 0.101339E+01_JPRB &
+  &, 0.100104E+01_JPRB, 0.988411E+00_JPRB, 0.975501E+00_JPRB, 0.962348E+00_JPRB &
+  &, 0.948952E+00_JPRB, 0.935341E+00_JPRB, 0.921514E+00_JPRB &
+  &, 0.907486E+00_JPRB, 0.893291E+00_JPRB, 0.878925E+00_JPRB, 0.864386E+00_JPRB &
+  &, 0.849728E+00_JPRB, 0.834928E+00_JPRB, 0.820043E+00_JPRB &
+  &, 0.805028E+00_JPRB, 0.789961E+00_JPRB, 0.774816E+00_JPRB, 0.759609E+00_JPRB &
+  &, 0.744355E+00_JPRB, 0.729091E+00_JPRB, 0.713811E+00_JPRB &
+  &, 0.698504E+00_JPRB, 0.683232E+00_JPRB, 0.667984E+00_JPRB, 0.652774E+00_JPRB &
+  &, 0.637614E+00_JPRB, 0.622488E+00_JPRB, 0.607461E+00_JPRB &
+  &, 0.592517E+00_JPRB, 0.577664E+00_JPRB, 0.562940E+00_JPRB, 0.548296E+00_JPRB &
+  &, 0.533796E+00_JPRB, 0.519417E+00_JPRB, 0.505195E+00_JPRB &
+  &, 0.491133E+00_JPRB, 0.477205E+00_JPRB, 0.463475E+00_JPRB, 0.449914E+00_JPRB &
+  &, 0.436554E+00_JPRB, 0.423363E+00_JPRB, 0.410370E+00_JPRB &
+  &, 0.397574E+00_JPRB, 0.385007E+00_JPRB, 0.372663E+00_JPRB, 0.360499E+00_JPRB &
+  &, 0.348583E+00_JPRB, 0.336906E+00_JPRB, 0.325419E+00_JPRB &
+  &, 0.314190E+00_JPRB, 0.303207E+00_JPRB, 0.292458E+00_JPRB, 0.281925E+00_JPRB &
+  &, 0.271636E+00_JPRB, 0.261616E+00_JPRB, 0.251847E+00_JPRB &
+  &, 0.242265E+00_JPRB, 0.232983E+00_JPRB, 0.223933E+00_JPRB, 0.215092E+00_JPRB &
+  &, 0.206528E+00_JPRB, 0.198216E+00_JPRB, 0.190128E+00_JPRB &
+  &, 0.182235E+00_JPRB, 0.174604E+00_JPRB, 0.167258E+00_JPRB, 0.160060E+00_JPRB &
+  &, 0.153130E+00_JPRB, 0.146436E+00_JPRB, 0.139939E+00_JPRB &
+  &, 0.133656E+00_JPRB, 0.127601E+00_JPRB, 0.121793E+00_JPRB, 0.116131E+00_JPRB &
+  &, 0.110745E+00_JPRB, 0.105473E+00_JPRB, 0.100447E+00_JPRB &
+  &, 0.956193E-01_JPRB, 0.909423E-01_JPRB, 0.864887E-01_JPRB, 0.821452E-01_JPRB &
+  &, 0.780484E-01_JPRB, 0.740821E-01_JPRB, 0.702552E-01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART99',1,ZHOOK_HANDLE)
+END SUBROUTINE PART99
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART100
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART100',0,ZHOOK_HANDLE)
+
+XCW( 694, :) = (/ &
+  &  0.104806E+01_JPRB, 0.105924E+01_JPRB, 0.107006E+01_JPRB, 0.108053E+01_JPRB &
+  &, 0.109062E+01_JPRB, 0.110034E+01_JPRB, 0.110968E+01_JPRB &
+  &, 0.111862E+01_JPRB, 0.112717E+01_JPRB, 0.113531E+01_JPRB, 0.114304E+01_JPRB &
+  &, 0.115035E+01_JPRB, 0.115723E+01_JPRB, 0.116368E+01_JPRB &
+  &, 0.116970E+01_JPRB, 0.117526E+01_JPRB, 0.118039E+01_JPRB, 0.118505E+01_JPRB &
+  &, 0.118926E+01_JPRB, 0.119300E+01_JPRB, 0.119627E+01_JPRB &
+  &, 0.119908E+01_JPRB, 0.120140E+01_JPRB, 0.120325E+01_JPRB, 0.120461E+01_JPRB &
+  &, 0.120550E+01_JPRB, 0.120589E+01_JPRB, 0.120581E+01_JPRB &
+  &, 0.120523E+01_JPRB, 0.120416E+01_JPRB, 0.120261E+01_JPRB, 0.120058E+01_JPRB &
+  &, 0.119805E+01_JPRB, 0.119505E+01_JPRB, 0.119157E+01_JPRB &
+  &, 0.118760E+01_JPRB, 0.118317E+01_JPRB, 0.117826E+01_JPRB, 0.117289E+01_JPRB &
+  &, 0.116707E+01_JPRB, 0.116078E+01_JPRB, 0.115405E+01_JPRB &
+  &, 0.114689E+01_JPRB, 0.113930E+01_JPRB, 0.113127E+01_JPRB, 0.112284E+01_JPRB &
+  &, 0.111400E+01_JPRB, 0.110476E+01_JPRB, 0.109513E+01_JPRB &
+  &, 0.108512E+01_JPRB, 0.107476E+01_JPRB, 0.106403E+01_JPRB, 0.105297E+01_JPRB &
+  &, 0.104158E+01_JPRB, 0.102986E+01_JPRB, 0.101783E+01_JPRB &
+  &, 0.100551E+01_JPRB, 0.992915E+00_JPRB, 0.980060E+00_JPRB, 0.966929E+00_JPRB &
+  &, 0.953569E+00_JPRB, 0.939993E+00_JPRB, 0.926200E+00_JPRB &
+  &, 0.912186E+00_JPRB, 0.898021E+00_JPRB, 0.883664E+00_JPRB, 0.869151E+00_JPRB &
+  &, 0.854497E+00_JPRB, 0.839719E+00_JPRB, 0.824834E+00_JPRB &
+  &, 0.809836E+00_JPRB, 0.794762E+00_JPRB, 0.779608E+00_JPRB, 0.764411E+00_JPRB &
+  &, 0.749164E+00_JPRB, 0.733882E+00_JPRB, 0.718579E+00_JPRB &
+  &, 0.703271E+00_JPRB, 0.687995E+00_JPRB, 0.672715E+00_JPRB, 0.657495E+00_JPRB &
+  &, 0.642295E+00_JPRB, 0.627153E+00_JPRB, 0.612107E+00_JPRB &
+  &, 0.597139E+00_JPRB, 0.582232E+00_JPRB, 0.567450E+00_JPRB, 0.552802E+00_JPRB &
+  &, 0.538265E+00_JPRB, 0.523846E+00_JPRB, 0.509580E+00_JPRB &
+  &, 0.495472E+00_JPRB, 0.481492E+00_JPRB, 0.467708E+00_JPRB, 0.454088E+00_JPRB &
+  &, 0.440666E+00_JPRB, 0.427442E+00_JPRB, 0.414380E+00_JPRB &
+  &, 0.401545E+00_JPRB, 0.388900E+00_JPRB, 0.376474E+00_JPRB, 0.364262E+00_JPRB &
+  &, 0.352293E+00_JPRB, 0.340522E+00_JPRB, 0.329016E+00_JPRB &
+  &, 0.317726E+00_JPRB, 0.306637E+00_JPRB, 0.295818E+00_JPRB, 0.285255E+00_JPRB &
+  &, 0.274890E+00_JPRB, 0.264791E+00_JPRB, 0.254940E+00_JPRB &
+  &, 0.245316E+00_JPRB, 0.235944E+00_JPRB, 0.226802E+00_JPRB, 0.217957E+00_JPRB &
+  &, 0.209294E+00_JPRB, 0.200878E+00_JPRB, 0.192732E+00_JPRB &
+  &, 0.184777E+00_JPRB, 0.177083E+00_JPRB, 0.169670E+00_JPRB, 0.162403E+00_JPRB &
+  &, 0.155402E+00_JPRB, 0.148633E+00_JPRB, 0.142113E+00_JPRB &
+  &, 0.135751E+00_JPRB, 0.129614E+00_JPRB, 0.123721E+00_JPRB, 0.118028E+00_JPRB &
+  &, 0.112551E+00_JPRB, 0.107246E+00_JPRB, 0.102124E+00_JPRB &
+  &, 0.972584E-01_JPRB, 0.925420E-01_JPRB, 0.879850E-01_JPRB, 0.836615E-01_JPRB &
+  &, 0.794568E-01_JPRB, 0.754442E-01_JPRB, 0.715694E-01_JPRB/)
+XCW( 695, :) = (/ &
+  &  0.104836E+01_JPRB, 0.105961E+01_JPRB, 0.107051E+01_JPRB, 0.108105E+01_JPRB &
+  &, 0.109123E+01_JPRB, 0.110103E+01_JPRB, 0.111044E+01_JPRB &
+  &, 0.111947E+01_JPRB, 0.112810E+01_JPRB, 0.113632E+01_JPRB, 0.114413E+01_JPRB &
+  &, 0.115153E+01_JPRB, 0.115849E+01_JPRB, 0.116503E+01_JPRB &
+  &, 0.117113E+01_JPRB, 0.117678E+01_JPRB, 0.118199E+01_JPRB, 0.118674E+01_JPRB &
+  &, 0.119103E+01_JPRB, 0.119486E+01_JPRB, 0.119822E+01_JPRB &
+  &, 0.120110E+01_JPRB, 0.120352E+01_JPRB, 0.120546E+01_JPRB, 0.120691E+01_JPRB &
+  &, 0.120787E+01_JPRB, 0.120835E+01_JPRB, 0.120835E+01_JPRB &
+  &, 0.120786E+01_JPRB, 0.120688E+01_JPRB, 0.120541E+01_JPRB, 0.120345E+01_JPRB &
+  &, 0.120101E+01_JPRB, 0.119809E+01_JPRB, 0.119468E+01_JPRB &
+  &, 0.119080E+01_JPRB, 0.118644E+01_JPRB, 0.118161E+01_JPRB, 0.117632E+01_JPRB &
+  &, 0.117056E+01_JPRB, 0.116435E+01_JPRB, 0.115770E+01_JPRB &
+  &, 0.115061E+01_JPRB, 0.114308E+01_JPRB, 0.113511E+01_JPRB, 0.112675E+01_JPRB &
+  &, 0.111797E+01_JPRB, 0.110879E+01_JPRB, 0.109923E+01_JPRB &
+  &, 0.108928E+01_JPRB, 0.107897E+01_JPRB, 0.106829E+01_JPRB, 0.105728E+01_JPRB &
+  &, 0.104594E+01_JPRB, 0.103426E+01_JPRB, 0.102228E+01_JPRB &
+  &, 0.101001E+01_JPRB, 0.997450E+00_JPRB, 0.984635E+00_JPRB, 0.971543E+00_JPRB &
+  &, 0.958220E+00_JPRB, 0.944663E+00_JPRB, 0.930887E+00_JPRB &
+  &, 0.916923E+00_JPRB, 0.902751E+00_JPRB, 0.888422E+00_JPRB, 0.873936E+00_JPRB &
+  &, 0.859307E+00_JPRB, 0.844531E+00_JPRB, 0.829645E+00_JPRB &
+  &, 0.814665E+00_JPRB, 0.799586E+00_JPRB, 0.784444E+00_JPRB, 0.769235E+00_JPRB &
+  &, 0.753973E+00_JPRB, 0.738696E+00_JPRB, 0.723396E+00_JPRB &
+  &, 0.708087E+00_JPRB, 0.692758E+00_JPRB, 0.677472E+00_JPRB, 0.662216E+00_JPRB &
+  &, 0.647003E+00_JPRB, 0.631872E+00_JPRB, 0.616779E+00_JPRB &
+  &, 0.601762E+00_JPRB, 0.586857E+00_JPRB, 0.572046E+00_JPRB, 0.557337E+00_JPRB &
+  &, 0.542734E+00_JPRB, 0.528306E+00_JPRB, 0.513997E+00_JPRB &
+  &, 0.499810E+00_JPRB, 0.485811E+00_JPRB, 0.471973E+00_JPRB, 0.458328E+00_JPRB &
+  &, 0.444845E+00_JPRB, 0.431521E+00_JPRB, 0.418424E+00_JPRB &
+  &, 0.405552E+00_JPRB, 0.392829E+00_JPRB, 0.380359E+00_JPRB, 0.368100E+00_JPRB &
+  &, 0.356042E+00_JPRB, 0.344217E+00_JPRB, 0.332614E+00_JPRB &
+  &, 0.321261E+00_JPRB, 0.310148E+00_JPRB, 0.299262E+00_JPRB, 0.288585E+00_JPRB &
+  &, 0.278188E+00_JPRB, 0.268010E+00_JPRB, 0.258077E+00_JPRB &
+  &, 0.248412E+00_JPRB, 0.238952E+00_JPRB, 0.229763E+00_JPRB, 0.220823E+00_JPRB &
+  &, 0.212107E+00_JPRB, 0.203589E+00_JPRB, 0.195385E+00_JPRB &
+  &, 0.187370E+00_JPRB, 0.179613E+00_JPRB, 0.172083E+00_JPRB, 0.164799E+00_JPRB &
+  &, 0.157727E+00_JPRB, 0.150884E+00_JPRB, 0.144288E+00_JPRB &
+  &, 0.137846E+00_JPRB, 0.131683E+00_JPRB, 0.125705E+00_JPRB, 0.119925E+00_JPRB &
+  &, 0.114416E+00_JPRB, 0.109018E+00_JPRB, 0.103861E+00_JPRB &
+  &, 0.988974E-01_JPRB, 0.941416E-01_JPRB, 0.895438E-01_JPRB, 0.851147E-01_JPRB &
+  &, 0.809292E-01_JPRB, 0.768063E-01_JPRB, 0.729494E-01_JPRB/)
+XCW( 696, :) = (/ &
+  &  0.104865E+01_JPRB, 0.105998E+01_JPRB, 0.107096E+01_JPRB, 0.108158E+01_JPRB &
+  &, 0.109183E+01_JPRB, 0.110171E+01_JPRB, 0.111121E+01_JPRB &
+  &, 0.112032E+01_JPRB, 0.112903E+01_JPRB, 0.113734E+01_JPRB, 0.114523E+01_JPRB &
+  &, 0.115271E+01_JPRB, 0.115976E+01_JPRB, 0.116638E+01_JPRB &
+  &, 0.117256E+01_JPRB, 0.117831E+01_JPRB, 0.118360E+01_JPRB, 0.118844E+01_JPRB &
+  &, 0.119281E+01_JPRB, 0.119673E+01_JPRB, 0.120017E+01_JPRB &
+  &, 0.120315E+01_JPRB, 0.120565E+01_JPRB, 0.120767E+01_JPRB, 0.120920E+01_JPRB &
+  &, 0.121026E+01_JPRB, 0.121082E+01_JPRB, 0.121090E+01_JPRB &
+  &, 0.121049E+01_JPRB, 0.120960E+01_JPRB, 0.120821E+01_JPRB, 0.120634E+01_JPRB &
+  &, 0.120398E+01_JPRB, 0.120114E+01_JPRB, 0.119781E+01_JPRB &
+  &, 0.119400E+01_JPRB, 0.118972E+01_JPRB, 0.118497E+01_JPRB, 0.117975E+01_JPRB &
+  &, 0.117408E+01_JPRB, 0.116794E+01_JPRB, 0.116136E+01_JPRB &
+  &, 0.115433E+01_JPRB, 0.114687E+01_JPRB, 0.113898E+01_JPRB, 0.113067E+01_JPRB &
+  &, 0.112195E+01_JPRB, 0.111285E+01_JPRB, 0.110333E+01_JPRB &
+  &, 0.109344E+01_JPRB, 0.108319E+01_JPRB, 0.107258E+01_JPRB, 0.106161E+01_JPRB &
+  &, 0.105032E+01_JPRB, 0.103869E+01_JPRB, 0.102677E+01_JPRB &
+  &, 0.101453E+01_JPRB, 0.100202E+01_JPRB, 0.989226E+00_JPRB, 0.976174E+00_JPRB &
+  &, 0.962888E+00_JPRB, 0.949350E+00_JPRB, 0.935608E+00_JPRB &
+  &, 0.921659E+00_JPRB, 0.907536E+00_JPRB, 0.893219E+00_JPRB, 0.878740E+00_JPRB &
+  &, 0.864116E+00_JPRB, 0.849363E+00_JPRB, 0.834498E+00_JPRB &
+  &, 0.819515E+00_JPRB, 0.804452E+00_JPRB, 0.789302E+00_JPRB, 0.774104E+00_JPRB &
+  &, 0.758828E+00_JPRB, 0.743533E+00_JPRB, 0.728235E+00_JPRB &
+  &, 0.712902E+00_JPRB, 0.697571E+00_JPRB, 0.682278E+00_JPRB, 0.667014E+00_JPRB &
+  &, 0.651764E+00_JPRB, 0.636590E+00_JPRB, 0.621479E+00_JPRB &
+  &, 0.606440E+00_JPRB, 0.591482E+00_JPRB, 0.576643E+00_JPRB, 0.561901E+00_JPRB &
+  &, 0.547263E+00_JPRB, 0.532796E+00_JPRB, 0.518413E+00_JPRB &
+  &, 0.504211E+00_JPRB, 0.490163E+00_JPRB, 0.476271E+00_JPRB, 0.462569E+00_JPRB &
+  &, 0.449024E+00_JPRB, 0.435670E+00_JPRB, 0.422539E+00_JPRB &
+  &, 0.409559E+00_JPRB, 0.396796E+00_JPRB, 0.384282E+00_JPRB, 0.371937E+00_JPRB &
+  &, 0.359829E+00_JPRB, 0.347950E+00_JPRB, 0.336290E+00_JPRB &
+  &, 0.324837E+00_JPRB, 0.313660E+00_JPRB, 0.302705E+00_JPRB, 0.292000E+00_JPRB &
+  &, 0.281485E+00_JPRB, 0.271273E+00_JPRB, 0.261258E+00_JPRB &
+  &, 0.251508E+00_JPRB, 0.242004E+00_JPRB, 0.232724E+00_JPRB, 0.223688E+00_JPRB &
+  &, 0.214920E+00_JPRB, 0.206348E+00_JPRB, 0.198087E+00_JPRB &
+  &, 0.190012E+00_JPRB, 0.182143E+00_JPRB, 0.174547E+00_JPRB, 0.167195E+00_JPRB &
+  &, 0.160052E+00_JPRB, 0.153135E+00_JPRB, 0.146462E+00_JPRB &
+  &, 0.139996E+00_JPRB, 0.133752E+00_JPRB, 0.127746E+00_JPRB, 0.121880E+00_JPRB &
+  &, 0.116281E+00_JPRB, 0.110850E+00_JPRB, 0.105657E+00_JPRB &
+  &, 0.100597E+00_JPRB, 0.958027E-01_JPRB, 0.911025E-01_JPRB, 0.866310E-01_JPRB &
+  &, 0.823376E-01_JPRB, 0.782333E-01_JPRB, 0.743293E-01_JPRB/)
+XCW( 697, :) = (/ &
+  &  0.104895E+01_JPRB, 0.106035E+01_JPRB, 0.107141E+01_JPRB, 0.108211E+01_JPRB &
+  &, 0.109244E+01_JPRB, 0.110240E+01_JPRB, 0.111198E+01_JPRB &
+  &, 0.112117E+01_JPRB, 0.112996E+01_JPRB, 0.113835E+01_JPRB, 0.114633E+01_JPRB &
+  &, 0.115389E+01_JPRB, 0.116103E+01_JPRB, 0.116774E+01_JPRB &
+  &, 0.117400E+01_JPRB, 0.117983E+01_JPRB, 0.118521E+01_JPRB, 0.119013E+01_JPRB &
+  &, 0.119460E+01_JPRB, 0.119860E+01_JPRB, 0.120213E+01_JPRB &
+  &, 0.120519E+01_JPRB, 0.120778E+01_JPRB, 0.120988E+01_JPRB, 0.121151E+01_JPRB &
+  &, 0.121264E+01_JPRB, 0.121330E+01_JPRB, 0.121346E+01_JPRB &
+  &, 0.121314E+01_JPRB, 0.121232E+01_JPRB, 0.121102E+01_JPRB, 0.120923E+01_JPRB &
+  &, 0.120695E+01_JPRB, 0.120419E+01_JPRB, 0.120095E+01_JPRB &
+  &, 0.119722E+01_JPRB, 0.119302E+01_JPRB, 0.118835E+01_JPRB, 0.118320E+01_JPRB &
+  &, 0.117759E+01_JPRB, 0.117154E+01_JPRB, 0.116502E+01_JPRB &
+  &, 0.115806E+01_JPRB, 0.115067E+01_JPRB, 0.114285E+01_JPRB, 0.113462E+01_JPRB &
+  &, 0.112596E+01_JPRB, 0.111690E+01_JPRB, 0.110746E+01_JPRB &
+  &, 0.109763E+01_JPRB, 0.108743E+01_JPRB, 0.107686E+01_JPRB, 0.106596E+01_JPRB &
+  &, 0.105471E+01_JPRB, 0.104314E+01_JPRB, 0.103125E+01_JPRB &
+  &, 0.101906E+01_JPRB, 0.100658E+01_JPRB, 0.993834E+00_JPRB, 0.980821E+00_JPRB &
+  &, 0.967574E+00_JPRB, 0.954072E+00_JPRB, 0.940365E+00_JPRB &
+  &, 0.926432E+00_JPRB, 0.912322E+00_JPRB, 0.898034E+00_JPRB, 0.883583E+00_JPRB &
+  &, 0.868945E+00_JPRB, 0.854236E+00_JPRB, 0.839371E+00_JPRB &
+  &, 0.824408E+00_JPRB, 0.809340E+00_JPRB, 0.794182E+00_JPRB, 0.778973E+00_JPRB &
+  &, 0.763728E+00_JPRB, 0.748417E+00_JPRB, 0.733099E+00_JPRB &
+  &, 0.717767E+00_JPRB, 0.702433E+00_JPRB, 0.687110E+00_JPRB, 0.671812E+00_JPRB &
+  &, 0.656550E+00_JPRB, 0.641363E+00_JPRB, 0.626207E+00_JPRB &
+  &, 0.611147E+00_JPRB, 0.596164E+00_JPRB, 0.581268E+00_JPRB, 0.566495E+00_JPRB &
+  &, 0.551852E+00_JPRB, 0.537316E+00_JPRB, 0.522892E+00_JPRB &
+  &, 0.508644E+00_JPRB, 0.494547E+00_JPRB, 0.480634E+00_JPRB, 0.466843E+00_JPRB &
+  &, 0.453271E+00_JPRB, 0.439853E+00_JPRB, 0.426654E+00_JPRB &
+  &, 0.413637E+00_JPRB, 0.400834E+00_JPRB, 0.388204E+00_JPRB, 0.375813E+00_JPRB &
+  &, 0.363655E+00_JPRB, 0.351684E+00_JPRB, 0.339966E+00_JPRB &
+  &, 0.328493E+00_JPRB, 0.317212E+00_JPRB, 0.306190E+00_JPRB, 0.295414E+00_JPRB &
+  &, 0.284868E+00_JPRB, 0.274535E+00_JPRB, 0.264483E+00_JPRB &
+  &, 0.254649E+00_JPRB, 0.245057E+00_JPRB, 0.235731E+00_JPRB, 0.226647E+00_JPRB &
+  &, 0.217781E+00_JPRB, 0.209155E+00_JPRB, 0.200789E+00_JPRB &
+  &, 0.192655E+00_JPRB, 0.184723E+00_JPRB, 0.177063E+00_JPRB, 0.169643E+00_JPRB &
+  &, 0.162429E+00_JPRB, 0.155440E+00_JPRB, 0.148691E+00_JPRB &
+  &, 0.142201E+00_JPRB, 0.135876E+00_JPRB, 0.129787E+00_JPRB, 0.123892E+00_JPRB &
+  &, 0.118205E+00_JPRB, 0.112681E+00_JPRB, 0.107454E+00_JPRB &
+  &, 0.102358E+00_JPRB, 0.974639E-01_JPRB, 0.927236E-01_JPRB, 0.882106E-01_JPRB &
+  &, 0.838740E-01_JPRB, 0.796602E-01_JPRB, 0.757092E-01_JPRB/)
+XCW( 698, :) = (/ &
+  &  0.104924E+01_JPRB, 0.106073E+01_JPRB, 0.107186E+01_JPRB, 0.108264E+01_JPRB &
+  &, 0.109305E+01_JPRB, 0.110309E+01_JPRB, 0.111275E+01_JPRB &
+  &, 0.112202E+01_JPRB, 0.113090E+01_JPRB, 0.113937E+01_JPRB, 0.114743E+01_JPRB &
+  &, 0.115508E+01_JPRB, 0.116230E+01_JPRB, 0.116909E+01_JPRB &
+  &, 0.117545E+01_JPRB, 0.118136E+01_JPRB, 0.118683E+01_JPRB, 0.119184E+01_JPRB &
+  &, 0.119639E+01_JPRB, 0.120048E+01_JPRB, 0.120410E+01_JPRB &
+  &, 0.120724E+01_JPRB, 0.120991E+01_JPRB, 0.121211E+01_JPRB, 0.121382E+01_JPRB &
+  &, 0.121504E+01_JPRB, 0.121578E+01_JPRB, 0.121603E+01_JPRB &
+  &, 0.121579E+01_JPRB, 0.121506E+01_JPRB, 0.121384E+01_JPRB, 0.121214E+01_JPRB &
+  &, 0.120994E+01_JPRB, 0.120726E+01_JPRB, 0.120409E+01_JPRB &
+  &, 0.120044E+01_JPRB, 0.119633E+01_JPRB, 0.119173E+01_JPRB, 0.118666E+01_JPRB &
+  &, 0.118113E+01_JPRB, 0.117514E+01_JPRB, 0.116870E+01_JPRB &
+  &, 0.116182E+01_JPRB, 0.115450E+01_JPRB, 0.114675E+01_JPRB, 0.113858E+01_JPRB &
+  &, 0.112998E+01_JPRB, 0.112100E+01_JPRB, 0.111160E+01_JPRB &
+  &, 0.110184E+01_JPRB, 0.109169E+01_JPRB, 0.108118E+01_JPRB, 0.107033E+01_JPRB &
+  &, 0.105913E+01_JPRB, 0.104761E+01_JPRB, 0.103576E+01_JPRB &
+  &, 0.102362E+01_JPRB, 0.101118E+01_JPRB, 0.998474E+00_JPRB, 0.985501E+00_JPRB &
+  &, 0.972276E+00_JPRB, 0.958811E+00_JPRB, 0.945104E+00_JPRB &
+  &, 0.931240E+00_JPRB, 0.917145E+00_JPRB, 0.902887E+00_JPRB, 0.888445E+00_JPRB &
+  &, 0.873854E+00_JPRB, 0.859129E+00_JPRB, 0.844265E+00_JPRB &
+  &, 0.829300E+00_JPRB, 0.814249E+00_JPRB, 0.799106E+00_JPRB, 0.783909E+00_JPRB &
+  &, 0.768629E+00_JPRB, 0.753324E+00_JPRB, 0.737987E+00_JPRB &
+  &, 0.722655E+00_JPRB, 0.707295E+00_JPRB, 0.691968E+00_JPRB, 0.676636E+00_JPRB &
+  &, 0.661363E+00_JPRB, 0.646135E+00_JPRB, 0.630989E+00_JPRB &
+  &, 0.615880E+00_JPRB, 0.600874E+00_JPRB, 0.585951E+00_JPRB, 0.571147E+00_JPRB &
+  &, 0.556441E+00_JPRB, 0.541867E+00_JPRB, 0.527433E+00_JPRB &
+  &, 0.513109E+00_JPRB, 0.498963E+00_JPRB, 0.484998E+00_JPRB, 0.471184E+00_JPRB &
+  &, 0.457519E+00_JPRB, 0.444070E+00_JPRB, 0.430804E+00_JPRB &
+  &, 0.417715E+00_JPRB, 0.404873E+00_JPRB, 0.392200E+00_JPRB, 0.379726E+00_JPRB &
+  &, 0.367519E+00_JPRB, 0.355495E+00_JPRB, 0.343722E+00_JPRB &
+  &, 0.332149E+00_JPRB, 0.320805E+00_JPRB, 0.309716E+00_JPRB, 0.298870E+00_JPRB &
+  &, 0.288251E+00_JPRB, 0.277885E+00_JPRB, 0.267708E+00_JPRB &
+  &, 0.257835E+00_JPRB, 0.248156E+00_JPRB, 0.238784E+00_JPRB, 0.229606E+00_JPRB &
+  &, 0.220690E+00_JPRB, 0.211962E+00_JPRB, 0.203540E+00_JPRB &
+  &, 0.195347E+00_JPRB, 0.187354E+00_JPRB, 0.179629E+00_JPRB, 0.172143E+00_JPRB &
+  &, 0.164860E+00_JPRB, 0.157798E+00_JPRB, 0.150974E+00_JPRB &
+  &, 0.144352E+00_JPRB, 0.138001E+00_JPRB, 0.131828E+00_JPRB, 0.125846E+00_JPRB &
+  &, 0.120128E+00_JPRB, 0.114572E+00_JPRB, 0.109251E+00_JPRB &
+  &, 0.104118E+00_JPRB, 0.991250E-01_JPRB, 0.943447E-01_JPRB, 0.897901E-01_JPRB &
+  &, 0.854105E-01_JPRB, 0.811521E-01_JPRB, 0.770892E-01_JPRB/)
+XCW( 699, :) = (/ &
+  &  0.104954E+01_JPRB, 0.106110E+01_JPRB, 0.107231E+01_JPRB, 0.108317E+01_JPRB &
+  &, 0.109366E+01_JPRB, 0.110378E+01_JPRB, 0.111352E+01_JPRB &
+  &, 0.112288E+01_JPRB, 0.113184E+01_JPRB, 0.114039E+01_JPRB, 0.114854E+01_JPRB &
+  &, 0.115627E+01_JPRB, 0.116358E+01_JPRB, 0.117045E+01_JPRB &
+  &, 0.117689E+01_JPRB, 0.118289E+01_JPRB, 0.118845E+01_JPRB, 0.119354E+01_JPRB &
+  &, 0.119818E+01_JPRB, 0.120236E+01_JPRB, 0.120606E+01_JPRB &
+  &, 0.120930E+01_JPRB, 0.121206E+01_JPRB, 0.121434E+01_JPRB, 0.121613E+01_JPRB &
+  &, 0.121744E+01_JPRB, 0.121827E+01_JPRB, 0.121860E+01_JPRB &
+  &, 0.121845E+01_JPRB, 0.121780E+01_JPRB, 0.121667E+01_JPRB, 0.121505E+01_JPRB &
+  &, 0.121294E+01_JPRB, 0.121033E+01_JPRB, 0.120725E+01_JPRB &
+  &, 0.120368E+01_JPRB, 0.119964E+01_JPRB, 0.119512E+01_JPRB, 0.119014E+01_JPRB &
+  &, 0.118467E+01_JPRB, 0.117877E+01_JPRB, 0.117240E+01_JPRB &
+  &, 0.116558E+01_JPRB, 0.115834E+01_JPRB, 0.115065E+01_JPRB, 0.114255E+01_JPRB &
+  &, 0.113401E+01_JPRB, 0.112509E+01_JPRB, 0.111575E+01_JPRB &
+  &, 0.110606E+01_JPRB, 0.109597E+01_JPRB, 0.108552E+01_JPRB, 0.107472E+01_JPRB &
+  &, 0.106357E+01_JPRB, 0.105209E+01_JPRB, 0.104030E+01_JPRB &
+  &, 0.102820E+01_JPRB, 0.101581E+01_JPRB, 0.100313E+01_JPRB, 0.990198E+00_JPRB &
+  &, 0.977012E+00_JPRB, 0.963585E+00_JPRB, 0.949933E+00_JPRB &
+  &, 0.936049E+00_JPRB, 0.921986E+00_JPRB, 0.907740E+00_JPRB, 0.893327E+00_JPRB &
+  &, 0.878762E+00_JPRB, 0.864042E+00_JPRB, 0.849201E+00_JPRB &
+  &, 0.834087E+00_JPRB, 0.819201E+00_JPRB, 0.804052E+00_JPRB, 0.788846E+00_JPRB &
+  &, 0.773575E+00_JPRB, 0.758278E+00_JPRB, 0.742922E+00_JPRB &
+  &, 0.727568E+00_JPRB, 0.712207E+00_JPRB, 0.696851E+00_JPRB, 0.681512E+00_JPRB &
+  &, 0.666229E+00_JPRB, 0.650961E+00_JPRB, 0.635771E+00_JPRB &
+  &, 0.620642E+00_JPRB, 0.605613E+00_JPRB, 0.590663E+00_JPRB, 0.575800E+00_JPRB &
+  &, 0.561060E+00_JPRB, 0.546449E+00_JPRB, 0.531973E+00_JPRB &
+  &, 0.517637E+00_JPRB, 0.503443E+00_JPRB, 0.489394E+00_JPRB, 0.475524E+00_JPRB &
+  &, 0.461834E+00_JPRB, 0.448323E+00_JPRB, 0.434989E+00_JPRB &
+  &, 0.421865E+00_JPRB, 0.408948E+00_JPRB, 0.396233E+00_JPRB, 0.383714E+00_JPRB &
+  &, 0.371421E+00_JPRB, 0.359345E+00_JPRB, 0.347477E+00_JPRB &
+  &, 0.335845E+00_JPRB, 0.324439E+00_JPRB, 0.313284E+00_JPRB, 0.302369E+00_JPRB &
+  &, 0.291677E+00_JPRB, 0.281234E+00_JPRB, 0.271022E+00_JPRB &
+  &, 0.261066E+00_JPRB, 0.251300E+00_JPRB, 0.241838E+00_JPRB, 0.232613E+00_JPRB &
+  &, 0.223599E+00_JPRB, 0.214866E+00_JPRB, 0.206340E+00_JPRB &
+  &, 0.198039E+00_JPRB, 0.189985E+00_JPRB, 0.182196E+00_JPRB, 0.174643E+00_JPRB &
+  &, 0.167290E+00_JPRB, 0.160156E+00_JPRB, 0.153258E+00_JPRB &
+  &, 0.146612E+00_JPRB, 0.140182E+00_JPRB, 0.133926E+00_JPRB, 0.127916E+00_JPRB &
+  &, 0.122110E+00_JPRB, 0.116463E+00_JPRB, 0.111107E+00_JPRB &
+  &, 0.105878E+00_JPRB, 0.100848E+00_JPRB, 0.960281E-01_JPRB, 0.913696E-01_JPRB &
+  &, 0.869469E-01_JPRB, 0.826439E-01_JPRB, 0.785348E-01_JPRB/)
+XCW( 700, :) = (/ &
+  &  0.104984E+01_JPRB, 0.106147E+01_JPRB, 0.107276E+01_JPRB, 0.108370E+01_JPRB &
+  &, 0.109427E+01_JPRB, 0.110447E+01_JPRB, 0.111430E+01_JPRB &
+  &, 0.112373E+01_JPRB, 0.113277E+01_JPRB, 0.114141E+01_JPRB, 0.114965E+01_JPRB &
+  &, 0.115746E+01_JPRB, 0.116485E+01_JPRB, 0.117182E+01_JPRB &
+  &, 0.117835E+01_JPRB, 0.118443E+01_JPRB, 0.119007E+01_JPRB, 0.119525E+01_JPRB &
+  &, 0.119998E+01_JPRB, 0.120424E+01_JPRB, 0.120804E+01_JPRB &
+  &, 0.121136E+01_JPRB, 0.121420E+01_JPRB, 0.121657E+01_JPRB, 0.121846E+01_JPRB &
+  &, 0.121985E+01_JPRB, 0.122076E+01_JPRB, 0.122118E+01_JPRB &
+  &, 0.122112E+01_JPRB, 0.122056E+01_JPRB, 0.121951E+01_JPRB, 0.121797E+01_JPRB &
+  &, 0.121594E+01_JPRB, 0.121342E+01_JPRB, 0.121042E+01_JPRB &
+  &, 0.120694E+01_JPRB, 0.120296E+01_JPRB, 0.119853E+01_JPRB, 0.119361E+01_JPRB &
+  &, 0.118824E+01_JPRB, 0.118239E+01_JPRB, 0.117610E+01_JPRB &
+  &, 0.116937E+01_JPRB, 0.116219E+01_JPRB, 0.115457E+01_JPRB, 0.114653E+01_JPRB &
+  &, 0.113807E+01_JPRB, 0.112921E+01_JPRB, 0.111994E+01_JPRB &
+  &, 0.111029E+01_JPRB, 0.110026E+01_JPRB, 0.108985E+01_JPRB, 0.107912E+01_JPRB &
+  &, 0.106802E+01_JPRB, 0.105660E+01_JPRB, 0.104485E+01_JPRB &
+  &, 0.103281E+01_JPRB, 0.102044E+01_JPRB, 0.100782E+01_JPRB, 0.994911E+00_JPRB &
+  &, 0.981765E+00_JPRB, 0.968359E+00_JPRB, 0.954743E+00_JPRB &
+  &, 0.940876E+00_JPRB, 0.926864E+00_JPRB, 0.912631E+00_JPRB, 0.898247E+00_JPRB &
+  &, 0.883690E+00_JPRB, 0.868995E+00_JPRB, 0.854157E+00_JPRB &
+  &, 0.839212E+00_JPRB, 0.824154E+00_JPRB, 0.809020E+00_JPRB, 0.793827E+00_JPRB &
+  &, 0.778544E+00_JPRB, 0.763232E+00_JPRB, 0.747881E+00_JPRB &
+  &, 0.732530E+00_JPRB, 0.717144E+00_JPRB, 0.701784E+00_JPRB, 0.686413E+00_JPRB &
+  &, 0.671095E+00_JPRB, 0.655840E+00_JPRB, 0.640607E+00_JPRB &
+  &, 0.625460E+00_JPRB, 0.610380E+00_JPRB, 0.595404E+00_JPRB, 0.580512E+00_JPRB &
+  &, 0.565739E+00_JPRB, 0.551092E+00_JPRB, 0.536545E+00_JPRB &
+  &, 0.522165E+00_JPRB, 0.507924E+00_JPRB, 0.493857E+00_JPRB, 0.479932E+00_JPRB &
+  &, 0.466183E+00_JPRB, 0.452609E+00_JPRB, 0.439245E+00_JPRB &
+  &, 0.426051E+00_JPRB, 0.413060E+00_JPRB, 0.400267E+00_JPRB, 0.387702E+00_JPRB &
+  &, 0.375322E+00_JPRB, 0.363195E+00_JPRB, 0.351272E+00_JPRB &
+  &, 0.339582E+00_JPRB, 0.328113E+00_JPRB, 0.316894E+00_JPRB, 0.305910E+00_JPRB &
+  &, 0.295146E+00_JPRB, 0.284627E+00_JPRB, 0.274336E+00_JPRB &
+  &, 0.264296E+00_JPRB, 0.254489E+00_JPRB, 0.244938E+00_JPRB, 0.235619E+00_JPRB &
+  &, 0.226555E+00_JPRB, 0.217722E+00_JPRB, 0.209140E+00_JPRB &
+  &, 0.200781E+00_JPRB, 0.192666E+00_JPRB, 0.184814E+00_JPRB, 0.177143E+00_JPRB &
+  &, 0.169774E+00_JPRB, 0.162568E+00_JPRB, 0.155595E+00_JPRB &
+  &, 0.148873E+00_JPRB, 0.142362E+00_JPRB, 0.136080E+00_JPRB, 0.129985E+00_JPRB &
+  &, 0.124091E+00_JPRB, 0.118413E+00_JPRB, 0.112964E+00_JPRB &
+  &, 0.107700E+00_JPRB, 0.102632E+00_JPRB, 0.977116E-01_JPRB, 0.930123E-01_JPRB &
+  &, 0.884834E-01_JPRB, 0.841357E-01_JPRB, 0.799804E-01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART100',1,ZHOOK_HANDLE)
+END SUBROUTINE PART100
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART101
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART101',0,ZHOOK_HANDLE)
+
+XCW( 701, :) = (/ &
+  &  0.105013E+01_JPRB, 0.106185E+01_JPRB, 0.107322E+01_JPRB, 0.108423E+01_JPRB &
+  &, 0.109488E+01_JPRB, 0.110517E+01_JPRB, 0.111507E+01_JPRB &
+  &, 0.112459E+01_JPRB, 0.113371E+01_JPRB, 0.114244E+01_JPRB, 0.115075E+01_JPRB &
+  &, 0.115866E+01_JPRB, 0.116613E+01_JPRB, 0.117318E+01_JPRB &
+  &, 0.117980E+01_JPRB, 0.118597E+01_JPRB, 0.119170E+01_JPRB, 0.119697E+01_JPRB &
+  &, 0.120178E+01_JPRB, 0.120613E+01_JPRB, 0.121002E+01_JPRB &
+  &, 0.121342E+01_JPRB, 0.121636E+01_JPRB, 0.121881E+01_JPRB, 0.122078E+01_JPRB &
+  &, 0.122227E+01_JPRB, 0.122327E+01_JPRB, 0.122378E+01_JPRB &
+  &, 0.122379E+01_JPRB, 0.122332E+01_JPRB, 0.122235E+01_JPRB, 0.122090E+01_JPRB &
+  &, 0.121895E+01_JPRB, 0.121652E+01_JPRB, 0.121360E+01_JPRB &
+  &, 0.121019E+01_JPRB, 0.120630E+01_JPRB, 0.120195E+01_JPRB, 0.119711E+01_JPRB &
+  &, 0.119181E+01_JPRB, 0.118605E+01_JPRB, 0.117983E+01_JPRB &
+  &, 0.117316E+01_JPRB, 0.116604E+01_JPRB, 0.115850E+01_JPRB, 0.115052E+01_JPRB &
+  &, 0.114214E+01_JPRB, 0.113334E+01_JPRB, 0.112413E+01_JPRB &
+  &, 0.111454E+01_JPRB, 0.110458E+01_JPRB, 0.109423E+01_JPRB, 0.108354E+01_JPRB &
+  &, 0.107250E+01_JPRB, 0.106113E+01_JPRB, 0.104942E+01_JPRB &
+  &, 0.103742E+01_JPRB, 0.102511E+01_JPRB, 0.101252E+01_JPRB, 0.999658E+00_JPRB &
+  &, 0.986535E+00_JPRB, 0.973185E+00_JPRB, 0.959589E+00_JPRB &
+  &, 0.945776E+00_JPRB, 0.931761E+00_JPRB, 0.917560E+00_JPRB, 0.903187E+00_JPRB &
+  &, 0.888638E+00_JPRB, 0.873948E+00_JPRB, 0.859133E+00_JPRB &
+  &, 0.844209E+00_JPRB, 0.829171E+00_JPRB, 0.814032E+00_JPRB, 0.798831E+00_JPRB &
+  &, 0.783560E+00_JPRB, 0.768233E+00_JPRB, 0.752888E+00_JPRB &
+  &, 0.737492E+00_JPRB, 0.722105E+00_JPRB, 0.706717E+00_JPRB, 0.691366E+00_JPRB &
+  &, 0.676013E+00_JPRB, 0.660720E+00_JPRB, 0.645471E+00_JPRB &
+  &, 0.630305E+00_JPRB, 0.615204E+00_JPRB, 0.600174E+00_JPRB, 0.585253E+00_JPRB &
+  &, 0.570448E+00_JPRB, 0.555735E+00_JPRB, 0.541179E+00_JPRB &
+  &, 0.526757E+00_JPRB, 0.512469E+00_JPRB, 0.498319E+00_JPRB, 0.484373E+00_JPRB &
+  &, 0.470566E+00_JPRB, 0.456931E+00_JPRB, 0.443500E+00_JPRB &
+  &, 0.430272E+00_JPRB, 0.417208E+00_JPRB, 0.404374E+00_JPRB, 0.391728E+00_JPRB &
+  &, 0.379301E+00_JPRB, 0.367084E+00_JPRB, 0.355106E+00_JPRB &
+  &, 0.343358E+00_JPRB, 0.331829E+00_JPRB, 0.320545E+00_JPRB, 0.309451E+00_JPRB &
+  &, 0.298657E+00_JPRB, 0.288063E+00_JPRB, 0.277693E+00_JPRB &
+  &, 0.267572E+00_JPRB, 0.257724E+00_JPRB, 0.248084E+00_JPRB, 0.238719E+00_JPRB &
+  &, 0.229559E+00_JPRB, 0.220674E+00_JPRB, 0.211989E+00_JPRB &
+  &, 0.203573E+00_JPRB, 0.195398E+00_JPRB, 0.187432E+00_JPRB, 0.179747E+00_JPRB &
+  &, 0.172257E+00_JPRB, 0.164980E+00_JPRB, 0.157987E+00_JPRB &
+  &, 0.151188E+00_JPRB, 0.144599E+00_JPRB, 0.138235E+00_JPRB, 0.132055E+00_JPRB &
+  &, 0.126131E+00_JPRB, 0.120362E+00_JPRB, 0.114880E+00_JPRB &
+  &, 0.109521E+00_JPRB, 0.104355E+00_JPRB, 0.994573E-01_JPRB, 0.946550E-01_JPRB &
+  &, 0.900838E-01_JPRB, 0.856924E-01_JPRB, 0.814918E-01_JPRB/)
+XCW( 702, :) = (/ &
+  &  0.105043E+01_JPRB, 0.106222E+01_JPRB, 0.107367E+01_JPRB, 0.108476E+01_JPRB &
+  &, 0.109550E+01_JPRB, 0.110586E+01_JPRB, 0.111585E+01_JPRB &
+  &, 0.112545E+01_JPRB, 0.113466E+01_JPRB, 0.114347E+01_JPRB, 0.115187E+01_JPRB &
+  &, 0.115985E+01_JPRB, 0.116742E+01_JPRB, 0.117455E+01_JPRB &
+  &, 0.118126E+01_JPRB, 0.118751E+01_JPRB, 0.119333E+01_JPRB, 0.119869E+01_JPRB &
+  &, 0.120359E+01_JPRB, 0.120803E+01_JPRB, 0.121200E+01_JPRB &
+  &, 0.121550E+01_JPRB, 0.121852E+01_JPRB, 0.122106E+01_JPRB, 0.122312E+01_JPRB &
+  &, 0.122469E+01_JPRB, 0.122578E+01_JPRB, 0.122637E+01_JPRB &
+  &, 0.122647E+01_JPRB, 0.122609E+01_JPRB, 0.122521E+01_JPRB, 0.122384E+01_JPRB &
+  &, 0.122198E+01_JPRB, 0.121962E+01_JPRB, 0.121679E+01_JPRB &
+  &, 0.121346E+01_JPRB, 0.120966E+01_JPRB, 0.120537E+01_JPRB, 0.120062E+01_JPRB &
+  &, 0.119539E+01_JPRB, 0.118971E+01_JPRB, 0.118356E+01_JPRB &
+  &, 0.117697E+01_JPRB, 0.116993E+01_JPRB, 0.116244E+01_JPRB, 0.115454E+01_JPRB &
+  &, 0.114622E+01_JPRB, 0.113748E+01_JPRB, 0.112834E+01_JPRB &
+  &, 0.111881E+01_JPRB, 0.110890E+01_JPRB, 0.109863E+01_JPRB, 0.108799E+01_JPRB &
+  &, 0.107700E+01_JPRB, 0.106567E+01_JPRB, 0.105402E+01_JPRB &
+  &, 0.104206E+01_JPRB, 0.102980E+01_JPRB, 0.101725E+01_JPRB, 0.100442E+01_JPRB &
+  &, 0.991339E+00_JPRB, 0.978011E+00_JPRB, 0.964452E+00_JPRB &
+  &, 0.950675E+00_JPRB, 0.936677E+00_JPRB, 0.922508E+00_JPRB, 0.908146E+00_JPRB &
+  &, 0.893626E+00_JPRB, 0.878962E+00_JPRB, 0.864151E+00_JPRB &
+  &, 0.849228E+00_JPRB, 0.834188E+00_JPRB, 0.819066E+00_JPRB, 0.803857E+00_JPRB &
+  &, 0.788598E+00_JPRB, 0.773257E+00_JPRB, 0.757895E+00_JPRB &
+  &, 0.742526E+00_JPRB, 0.727116E+00_JPRB, 0.711727E+00_JPRB, 0.696319E+00_JPRB &
+  &, 0.680984E+00_JPRB, 0.665653E+00_JPRB, 0.650390E+00_JPRB &
+  &, 0.635179E+00_JPRB, 0.620027E+00_JPRB, 0.605002E+00_JPRB, 0.590023E+00_JPRB &
+  &, 0.575187E+00_JPRB, 0.560439E+00_JPRB, 0.545845E+00_JPRB &
+  &, 0.531348E+00_JPRB, 0.517046E+00_JPRB, 0.502846E+00_JPRB, 0.488847E+00_JPRB &
+  &, 0.474983E+00_JPRB, 0.461321E+00_JPRB, 0.447826E+00_JPRB &
+  &, 0.434530E+00_JPRB, 0.421392E+00_JPRB, 0.408518E+00_JPRB, 0.395792E+00_JPRB &
+  &, 0.383318E+00_JPRB, 0.371050E+00_JPRB, 0.358980E+00_JPRB &
+  &, 0.347175E+00_JPRB, 0.335585E+00_JPRB, 0.324196E+00_JPRB, 0.313076E+00_JPRB &
+  &, 0.302169E+00_JPRB, 0.291500E+00_JPRB, 0.281095E+00_JPRB &
+  &, 0.270937E+00_JPRB, 0.260959E+00_JPRB, 0.251276E+00_JPRB, 0.241819E+00_JPRB &
+  &, 0.232611E+00_JPRB, 0.223627E+00_JPRB, 0.214888E+00_JPRB &
+  &, 0.206415E+00_JPRB, 0.198130E+00_JPRB, 0.190153E+00_JPRB, 0.182351E+00_JPRB &
+  &, 0.174793E+00_JPRB, 0.167445E+00_JPRB, 0.160379E+00_JPRB &
+  &, 0.153504E+00_JPRB, 0.146835E+00_JPRB, 0.140389E+00_JPRB, 0.134182E+00_JPRB &
+  &, 0.128171E+00_JPRB, 0.122371E+00_JPRB, 0.116797E+00_JPRB &
+  &, 0.111402E+00_JPRB, 0.106200E+00_JPRB, 0.101203E+00_JPRB, 0.963609E-01_JPRB &
+  &, 0.917483E-01_JPRB, 0.872491E-01_JPRB, 0.830032E-01_JPRB/)
+XCW( 703, :) = (/ &
+  &  0.105073E+01_JPRB, 0.106260E+01_JPRB, 0.107413E+01_JPRB, 0.108530E+01_JPRB &
+  &, 0.109611E+01_JPRB, 0.110656E+01_JPRB, 0.111663E+01_JPRB &
+  &, 0.112631E+01_JPRB, 0.113560E+01_JPRB, 0.114450E+01_JPRB, 0.115298E+01_JPRB &
+  &, 0.116105E+01_JPRB, 0.116870E+01_JPRB, 0.117593E+01_JPRB &
+  &, 0.118271E+01_JPRB, 0.118906E+01_JPRB, 0.119496E+01_JPRB, 0.120041E+01_JPRB &
+  &, 0.120540E+01_JPRB, 0.120993E+01_JPRB, 0.121399E+01_JPRB &
+  &, 0.121757E+01_JPRB, 0.122068E+01_JPRB, 0.122331E+01_JPRB, 0.122546E+01_JPRB &
+  &, 0.122712E+01_JPRB, 0.122829E+01_JPRB, 0.122897E+01_JPRB &
+  &, 0.122916E+01_JPRB, 0.122886E+01_JPRB, 0.122807E+01_JPRB, 0.122678E+01_JPRB &
+  &, 0.122501E+01_JPRB, 0.122274E+01_JPRB, 0.121998E+01_JPRB &
+  &, 0.121674E+01_JPRB, 0.121302E+01_JPRB, 0.120881E+01_JPRB, 0.120414E+01_JPRB &
+  &, 0.119899E+01_JPRB, 0.119337E+01_JPRB, 0.118731E+01_JPRB &
+  &, 0.118079E+01_JPRB, 0.117382E+01_JPRB, 0.116641E+01_JPRB, 0.115857E+01_JPRB &
+  &, 0.115031E+01_JPRB, 0.114163E+01_JPRB, 0.113258E+01_JPRB &
+  &, 0.112311E+01_JPRB, 0.111326E+01_JPRB, 0.110303E+01_JPRB, 0.109245E+01_JPRB &
+  &, 0.108150E+01_JPRB, 0.107024E+01_JPRB, 0.105864E+01_JPRB &
+  &, 0.104672E+01_JPRB, 0.103449E+01_JPRB, 0.102200E+01_JPRB, 0.100922E+01_JPRB &
+  &, 0.996160E+00_JPRB, 0.982872E+00_JPRB, 0.969334E+00_JPRB &
+  &, 0.955593E+00_JPRB, 0.941629E+00_JPRB, 0.927474E+00_JPRB, 0.913144E+00_JPRB &
+  &, 0.898633E+00_JPRB, 0.883976E+00_JPRB, 0.869190E+00_JPRB &
+  &, 0.854268E+00_JPRB, 0.839248E+00_JPRB, 0.824122E+00_JPRB, 0.808928E+00_JPRB &
+  &, 0.793659E+00_JPRB, 0.778328E+00_JPRB, 0.762949E+00_JPRB &
+  &, 0.747561E+00_JPRB, 0.732152E+00_JPRB, 0.716736E+00_JPRB, 0.701324E+00_JPRB &
+  &, 0.685954E+00_JPRB, 0.670613E+00_JPRB, 0.655309E+00_JPRB &
+  &, 0.640080E+00_JPRB, 0.624908E+00_JPRB, 0.609829E+00_JPRB, 0.594853E+00_JPRB &
+  &, 0.579956E+00_JPRB, 0.565173E+00_JPRB, 0.550541E+00_JPRB &
+  &, 0.536003E+00_JPRB, 0.521624E+00_JPRB, 0.507407E+00_JPRB, 0.493355E+00_JPRB &
+  &, 0.479434E+00_JPRB, 0.465712E+00_JPRB, 0.452152E+00_JPRB &
+  &, 0.438822E+00_JPRB, 0.425649E+00_JPRB, 0.412663E+00_JPRB, 0.399931E+00_JPRB &
+  &, 0.387373E+00_JPRB, 0.375017E+00_JPRB, 0.362933E+00_JPRB &
+  &, 0.351032E+00_JPRB, 0.339341E+00_JPRB, 0.327930E+00_JPRB, 0.316701E+00_JPRB &
+  &, 0.305766E+00_JPRB, 0.295023E+00_JPRB, 0.284542E+00_JPRB &
+  &, 0.274258E+00_JPRB, 0.264286E+00_JPRB, 0.254514E+00_JPRB, 0.244966E+00_JPRB &
+  &, 0.235663E+00_JPRB, 0.226628E+00_JPRB, 0.217835E+00_JPRB &
+  &, 0.209257E+00_JPRB, 0.200912E+00_JPRB, 0.192822E+00_JPRB, 0.185007E+00_JPRB &
+  &, 0.177382E+00_JPRB, 0.169964E+00_JPRB, 0.162771E+00_JPRB &
+  &, 0.155875E+00_JPRB, 0.149128E+00_JPRB, 0.142657E+00_JPRB, 0.136366E+00_JPRB &
+  &, 0.130269E+00_JPRB, 0.124380E+00_JPRB, 0.118773E+00_JPRB &
+  &, 0.113284E+00_JPRB, 0.108046E+00_JPRB, 0.102949E+00_JPRB, 0.980668E-01_JPRB &
+  &, 0.933488E-01_JPRB, 0.888706E-01_JPRB, 0.845145E-01_JPRB/)
+XCW( 704, :) = (/ &
+  &  0.105103E+01_JPRB, 0.106298E+01_JPRB, 0.107458E+01_JPRB, 0.108583E+01_JPRB &
+  &, 0.109673E+01_JPRB, 0.110725E+01_JPRB, 0.111740E+01_JPRB &
+  &, 0.112717E+01_JPRB, 0.113655E+01_JPRB, 0.114553E+01_JPRB, 0.115410E+01_JPRB &
+  &, 0.116226E+01_JPRB, 0.116999E+01_JPRB, 0.117730E+01_JPRB &
+  &, 0.118418E+01_JPRB, 0.119061E+01_JPRB, 0.119660E+01_JPRB, 0.120214E+01_JPRB &
+  &, 0.120722E+01_JPRB, 0.121183E+01_JPRB, 0.121598E+01_JPRB &
+  &, 0.121965E+01_JPRB, 0.122286E+01_JPRB, 0.122557E+01_JPRB, 0.122781E+01_JPRB &
+  &, 0.122956E+01_JPRB, 0.123082E+01_JPRB, 0.123159E+01_JPRB &
+  &, 0.123187E+01_JPRB, 0.123165E+01_JPRB, 0.123094E+01_JPRB, 0.122974E+01_JPRB &
+  &, 0.122805E+01_JPRB, 0.122587E+01_JPRB, 0.122319E+01_JPRB &
+  &, 0.122003E+01_JPRB, 0.121639E+01_JPRB, 0.121226E+01_JPRB, 0.120767E+01_JPRB &
+  &, 0.120260E+01_JPRB, 0.119706E+01_JPRB, 0.119107E+01_JPRB &
+  &, 0.118462E+01_JPRB, 0.117773E+01_JPRB, 0.117039E+01_JPRB, 0.116263E+01_JPRB &
+  &, 0.115443E+01_JPRB, 0.114582E+01_JPRB, 0.113682E+01_JPRB &
+  &, 0.112741E+01_JPRB, 0.111762E+01_JPRB, 0.110745E+01_JPRB, 0.109692E+01_JPRB &
+  &, 0.108604E+01_JPRB, 0.107483E+01_JPRB, 0.106327E+01_JPRB &
+  &, 0.105140E+01_JPRB, 0.103924E+01_JPRB, 0.102677E+01_JPRB, 0.101401E+01_JPRB &
+  &, 0.100102E+01_JPRB, 0.987750E+00_JPRB, 0.974250E+00_JPRB &
+  &, 0.960529E+00_JPRB, 0.946600E+00_JPRB, 0.932460E+00_JPRB, 0.918161E+00_JPRB &
+  &, 0.903680E+00_JPRB, 0.889031E+00_JPRB, 0.874249E+00_JPRB &
+  &, 0.859351E+00_JPRB, 0.844329E+00_JPRB, 0.829222E+00_JPRB, 0.814022E+00_JPRB &
+  &, 0.798742E+00_JPRB, 0.783422E+00_JPRB, 0.768051E+00_JPRB &
+  &, 0.752644E+00_JPRB, 0.737213E+00_JPRB, 0.721796E+00_JPRB, 0.706380E+00_JPRB &
+  &, 0.690978E+00_JPRB, 0.675599E+00_JPRB, 0.660282E+00_JPRB &
+  &, 0.645037E+00_JPRB, 0.629845E+00_JPRB, 0.614715E+00_JPRB, 0.599682E+00_JPRB &
+  &, 0.584784E+00_JPRB, 0.569968E+00_JPRB, 0.555269E+00_JPRB &
+  &, 0.540689E+00_JPRB, 0.526297E+00_JPRB, 0.512000E+00_JPRB, 0.497896E+00_JPRB &
+  &, 0.483919E+00_JPRB, 0.470171E+00_JPRB, 0.456548E+00_JPRB &
+  &, 0.443151E+00_JPRB, 0.429906E+00_JPRB, 0.416881E+00_JPRB, 0.404069E+00_JPRB &
+  &, 0.391466E+00_JPRB, 0.379061E+00_JPRB, 0.366886E+00_JPRB &
+  &, 0.354929E+00_JPRB, 0.343179E+00_JPRB, 0.331664E+00_JPRB, 0.320410E+00_JPRB &
+  &, 0.309363E+00_JPRB, 0.298590E+00_JPRB, 0.287988E+00_JPRB &
+  &, 0.277668E+00_JPRB, 0.267612E+00_JPRB, 0.257753E+00_JPRB, 0.248160E+00_JPRB &
+  &, 0.238810E+00_JPRB, 0.229677E+00_JPRB, 0.220783E+00_JPRB &
+  &, 0.212149E+00_JPRB, 0.203746E+00_JPRB, 0.195594E+00_JPRB, 0.187663E+00_JPRB &
+  &, 0.179971E+00_JPRB, 0.172484E+00_JPRB, 0.165272E+00_JPRB &
+  &, 0.158245E+00_JPRB, 0.151476E+00_JPRB, 0.144868E+00_JPRB, 0.138551E+00_JPRB &
+  &, 0.132367E+00_JPRB, 0.126448E+00_JPRB, 0.120750E+00_JPRB &
+  &, 0.115227E+00_JPRB, 0.109892E+00_JPRB, 0.104757E+00_JPRB, 0.998359E-01_JPRB &
+  &, 0.950773E-01_JPRB, 0.904922E-01_JPRB, 0.860916E-01_JPRB/)
+XCW( 705, :) = (/ &
+  &  0.105133E+01_JPRB, 0.106335E+01_JPRB, 0.107504E+01_JPRB, 0.108637E+01_JPRB &
+  &, 0.109734E+01_JPRB, 0.110795E+01_JPRB, 0.111819E+01_JPRB &
+  &, 0.112804E+01_JPRB, 0.113750E+01_JPRB, 0.114656E+01_JPRB, 0.115522E+01_JPRB &
+  &, 0.116346E+01_JPRB, 0.117129E+01_JPRB, 0.117868E+01_JPRB &
+  &, 0.118565E+01_JPRB, 0.119217E+01_JPRB, 0.119825E+01_JPRB, 0.120387E+01_JPRB &
+  &, 0.120904E+01_JPRB, 0.121374E+01_JPRB, 0.121798E+01_JPRB &
+  &, 0.122174E+01_JPRB, 0.122503E+01_JPRB, 0.122784E+01_JPRB, 0.123016E+01_JPRB &
+  &, 0.123200E+01_JPRB, 0.123335E+01_JPRB, 0.123419E+01_JPRB &
+  &, 0.123457E+01_JPRB, 0.123445E+01_JPRB, 0.123382E+01_JPRB, 0.123271E+01_JPRB &
+  &, 0.123110E+01_JPRB, 0.122900E+01_JPRB, 0.122642E+01_JPRB &
+  &, 0.122334E+01_JPRB, 0.121978E+01_JPRB, 0.121573E+01_JPRB, 0.121121E+01_JPRB &
+  &, 0.120621E+01_JPRB, 0.120076E+01_JPRB, 0.119485E+01_JPRB &
+  &, 0.118847E+01_JPRB, 0.118165E+01_JPRB, 0.117438E+01_JPRB, 0.116669E+01_JPRB &
+  &, 0.115856E+01_JPRB, 0.115003E+01_JPRB, 0.114108E+01_JPRB &
+  &, 0.113173E+01_JPRB, 0.112201E+01_JPRB, 0.111190E+01_JPRB, 0.110142E+01_JPRB &
+  &, 0.109059E+01_JPRB, 0.107943E+01_JPRB, 0.106792E+01_JPRB &
+  &, 0.105610E+01_JPRB, 0.104398E+01_JPRB, 0.103156E+01_JPRB, 0.101886E+01_JPRB &
+  &, 0.100589E+01_JPRB, 0.992663E+00_JPRB, 0.979203E+00_JPRB &
+  &, 0.965501E+00_JPRB, 0.951590E+00_JPRB, 0.937484E+00_JPRB, 0.923198E+00_JPRB &
+  &, 0.908747E+00_JPRB, 0.894126E+00_JPRB, 0.879350E+00_JPRB &
+  &, 0.864454E+00_JPRB, 0.849454E+00_JPRB, 0.834344E+00_JPRB, 0.819137E+00_JPRB &
+  &, 0.803872E+00_JPRB, 0.788540E+00_JPRB, 0.773153E+00_JPRB &
+  &, 0.757751E+00_JPRB, 0.742323E+00_JPRB, 0.726881E+00_JPRB, 0.711436E+00_JPRB &
+  &, 0.696027E+00_JPRB, 0.680640E+00_JPRB, 0.665310E+00_JPRB &
+  &, 0.650021E+00_JPRB, 0.634782E+00_JPRB, 0.619629E+00_JPRB, 0.604571E+00_JPRB &
+  &, 0.589613E+00_JPRB, 0.574764E+00_JPRB, 0.560027E+00_JPRB &
+  &, 0.545439E+00_JPRB, 0.530971E+00_JPRB, 0.516626E+00_JPRB, 0.502470E+00_JPRB &
+  &, 0.488472E+00_JPRB, 0.474631E+00_JPRB, 0.460979E+00_JPRB &
+  &, 0.447516E+00_JPRB, 0.434236E+00_JPRB, 0.421136E+00_JPRB, 0.408246E+00_JPRB &
+  &, 0.395559E+00_JPRB, 0.383106E+00_JPRB, 0.370878E+00_JPRB &
+  &, 0.358826E+00_JPRB, 0.347058E+00_JPRB, 0.335480E+00_JPRB, 0.324120E+00_JPRB &
+  &, 0.313046E+00_JPRB, 0.302157E+00_JPRB, 0.291522E+00_JPRB &
+  &, 0.281123E+00_JPRB, 0.270984E+00_JPRB, 0.261038E+00_JPRB, 0.251401E+00_JPRB &
+  &, 0.241957E+00_JPRB, 0.232775E+00_JPRB, 0.223780E+00_JPRB &
+  &, 0.215090E+00_JPRB, 0.206629E+00_JPRB, 0.198366E+00_JPRB, 0.190372E+00_JPRB &
+  &, 0.182613E+00_JPRB, 0.175056E+00_JPRB, 0.167772E+00_JPRB &
+  &, 0.160671E+00_JPRB, 0.153824E+00_JPRB, 0.147193E+00_JPRB, 0.140735E+00_JPRB &
+  &, 0.134524E+00_JPRB, 0.128575E+00_JPRB, 0.122726E+00_JPRB &
+  &, 0.117169E+00_JPRB, 0.111799E+00_JPRB, 0.106565E+00_JPRB, 0.101605E+00_JPRB &
+  &, 0.967417E-01_JPRB, 0.921137E-01_JPRB, 0.876686E-01_JPRB/)
+XCW( 706, :) = (/ &
+  &  0.105163E+01_JPRB, 0.106373E+01_JPRB, 0.107550E+01_JPRB, 0.108691E+01_JPRB &
+  &, 0.109796E+01_JPRB, 0.110865E+01_JPRB, 0.111897E+01_JPRB &
+  &, 0.112890E+01_JPRB, 0.113845E+01_JPRB, 0.114759E+01_JPRB, 0.115634E+01_JPRB &
+  &, 0.116467E+01_JPRB, 0.117258E+01_JPRB, 0.118006E+01_JPRB &
+  &, 0.118712E+01_JPRB, 0.119373E+01_JPRB, 0.119989E+01_JPRB, 0.120561E+01_JPRB &
+  &, 0.121086E+01_JPRB, 0.121566E+01_JPRB, 0.121998E+01_JPRB &
+  &, 0.122384E+01_JPRB, 0.122721E+01_JPRB, 0.123006E+01_JPRB, 0.123253E+01_JPRB &
+  &, 0.123445E+01_JPRB, 0.123589E+01_JPRB, 0.123683E+01_JPRB &
+  &, 0.123729E+01_JPRB, 0.123725E+01_JPRB, 0.123671E+01_JPRB, 0.123568E+01_JPRB &
+  &, 0.123416E+01_JPRB, 0.123215E+01_JPRB, 0.122964E+01_JPRB &
+  &, 0.122665E+01_JPRB, 0.122317E+01_JPRB, 0.121921E+01_JPRB, 0.121477E+01_JPRB &
+  &, 0.120986E+01_JPRB, 0.120448E+01_JPRB, 0.119864E+01_JPRB &
+  &, 0.119234E+01_JPRB, 0.118558E+01_JPRB, 0.117840E+01_JPRB, 0.117077E+01_JPRB &
+  &, 0.116272E+01_JPRB, 0.115424E+01_JPRB, 0.114536E+01_JPRB &
+  &, 0.113608E+01_JPRB, 0.112641E+01_JPRB, 0.111637E+01_JPRB, 0.110594E+01_JPRB &
+  &, 0.109517E+01_JPRB, 0.108406E+01_JPRB, 0.107260E+01_JPRB &
+  &, 0.106082E+01_JPRB, 0.104875E+01_JPRB, 0.103637E+01_JPRB, 0.102371E+01_JPRB &
+  &, 0.101078E+01_JPRB, 0.997593E+00_JPRB, 0.984155E+00_JPRB &
+  &, 0.970492E+00_JPRB, 0.956617E+00_JPRB, 0.942546E+00_JPRB, 0.928273E+00_JPRB &
+  &, 0.913833E+00_JPRB, 0.899221E+00_JPRB, 0.884471E+00_JPRB &
+  &, 0.869600E+00_JPRB, 0.854600E+00_JPRB, 0.839488E+00_JPRB, 0.824298E+00_JPRB &
+  &, 0.809024E+00_JPRB, 0.793704E+00_JPRB, 0.778303E+00_JPRB &
+  &, 0.762883E+00_JPRB, 0.747458E+00_JPRB, 0.731991E+00_JPRB, 0.716544E+00_JPRB &
+  &, 0.701104E+00_JPRB, 0.685707E+00_JPRB, 0.670338E+00_JPRB &
+  &, 0.655034E+00_JPRB, 0.639776E+00_JPRB, 0.624601E+00_JPRB, 0.609459E+00_JPRB &
+  &, 0.594502E+00_JPRB, 0.579620E+00_JPRB, 0.564848E+00_JPRB &
+  &, 0.550189E+00_JPRB, 0.535678E+00_JPRB, 0.521318E+00_JPRB, 0.507112E+00_JPRB &
+  &, 0.493025E+00_JPRB, 0.479160E+00_JPRB, 0.465446E+00_JPRB &
+  &, 0.451916E+00_JPRB, 0.438566E+00_JPRB, 0.425428E+00_JPRB, 0.412498E+00_JPRB &
+  &, 0.399729E+00_JPRB, 0.387228E+00_JPRB, 0.374911E+00_JPRB &
+  &, 0.362804E+00_JPRB, 0.350937E+00_JPRB, 0.339297E+00_JPRB, 0.327913E+00_JPRB &
+  &, 0.316729E+00_JPRB, 0.305768E+00_JPRB, 0.295057E+00_JPRB &
+  &, 0.284623E+00_JPRB, 0.274355E+00_JPRB, 0.264369E+00_JPRB, 0.254642E+00_JPRB &
+  &, 0.245152E+00_JPRB, 0.235873E+00_JPRB, 0.226825E+00_JPRB &
+  &, 0.218081E+00_JPRB, 0.209513E+00_JPRB, 0.201190E+00_JPRB, 0.193132E+00_JPRB &
+  &, 0.185308E+00_JPRB, 0.177682E+00_JPRB, 0.170273E+00_JPRB &
+  &, 0.163152E+00_JPRB, 0.156228E+00_JPRB, 0.149517E+00_JPRB, 0.143034E+00_JPRB &
+  &, 0.136738E+00_JPRB, 0.130643E+00_JPRB, 0.124822E+00_JPRB &
+  &, 0.119173E+00_JPRB, 0.113706E+00_JPRB, 0.108436E+00_JPRB, 0.103374E+00_JPRB &
+  &, 0.984702E-01_JPRB, 0.938001E-01_JPRB, 0.893114E-01_JPRB/)
+XCW( 707, :) = (/ &
+  &  0.105193E+01_JPRB, 0.106411E+01_JPRB, 0.107595E+01_JPRB, 0.108745E+01_JPRB &
+  &, 0.109858E+01_JPRB, 0.110935E+01_JPRB, 0.111975E+01_JPRB &
+  &, 0.112977E+01_JPRB, 0.113940E+01_JPRB, 0.114864E+01_JPRB, 0.115746E+01_JPRB &
+  &, 0.116588E+01_JPRB, 0.117388E+01_JPRB, 0.118145E+01_JPRB &
+  &, 0.118854E+01_JPRB, 0.119529E+01_JPRB, 0.120154E+01_JPRB, 0.120735E+01_JPRB &
+  &, 0.121269E+01_JPRB, 0.121758E+01_JPRB, 0.122199E+01_JPRB &
+  &, 0.122594E+01_JPRB, 0.122940E+01_JPRB, 0.123239E+01_JPRB, 0.123489E+01_JPRB &
+  &, 0.123691E+01_JPRB, 0.123844E+01_JPRB, 0.123947E+01_JPRB &
+  &, 0.124001E+01_JPRB, 0.124006E+01_JPRB, 0.123961E+01_JPRB, 0.123867E+01_JPRB &
+  &, 0.123724E+01_JPRB, 0.123531E+01_JPRB, 0.123288E+01_JPRB &
+  &, 0.122998E+01_JPRB, 0.122658E+01_JPRB, 0.122270E+01_JPRB, 0.121834E+01_JPRB &
+  &, 0.121351E+01_JPRB, 0.120820E+01_JPRB, 0.120244E+01_JPRB &
+  &, 0.119621E+01_JPRB, 0.118953E+01_JPRB, 0.118242E+01_JPRB, 0.117486E+01_JPRB &
+  &, 0.116687E+01_JPRB, 0.115847E+01_JPRB, 0.114966E+01_JPRB &
+  &, 0.114044E+01_JPRB, 0.113083E+01_JPRB, 0.112085E+01_JPRB, 0.111049E+01_JPRB &
+  &, 0.109977E+01_JPRB, 0.108871E+01_JPRB, 0.107730E+01_JPRB &
+  &, 0.106558E+01_JPRB, 0.105354E+01_JPRB, 0.104121E+01_JPRB, 0.102859E+01_JPRB &
+  &, 0.101570E+01_JPRB, 0.100254E+01_JPRB, 0.989143E+00_JPRB &
+  &, 0.975518E+00_JPRB, 0.961662E+00_JPRB, 0.947607E+00_JPRB, 0.933368E+00_JPRB &
+  &, 0.918959E+00_JPRB, 0.904356E+00_JPRB, 0.889633E+00_JPRB &
+  &, 0.874766E+00_JPRB, 0.859768E+00_JPRB, 0.844675E+00_JPRB, 0.829481E+00_JPRB &
+  &, 0.814223E+00_JPRB, 0.798892E+00_JPRB, 0.783501E+00_JPRB &
+  &, 0.768064E+00_JPRB, 0.752618E+00_JPRB, 0.737152E+00_JPRB, 0.721678E+00_JPRB &
+  &, 0.706232E+00_JPRB, 0.690801E+00_JPRB, 0.675420E+00_JPRB &
+  &, 0.660074E+00_JPRB, 0.644799E+00_JPRB, 0.629574E+00_JPRB, 0.614465E+00_JPRB &
+  &, 0.599421E+00_JPRB, 0.584507E+00_JPRB, 0.569700E+00_JPRB &
+  &, 0.555002E+00_JPRB, 0.540448E+00_JPRB, 0.526010E+00_JPRB, 0.511753E+00_JPRB &
+  &, 0.497646E+00_JPRB, 0.483723E+00_JPRB, 0.469948E+00_JPRB &
+  &, 0.456352E+00_JPRB, 0.442969E+00_JPRB, 0.429758E+00_JPRB, 0.416749E+00_JPRB &
+  &, 0.403937E+00_JPRB, 0.391350E+00_JPRB, 0.378982E+00_JPRB &
+  &, 0.366821E+00_JPRB, 0.354897E+00_JPRB, 0.343197E+00_JPRB, 0.331707E+00_JPRB &
+  &, 0.320454E+00_JPRB, 0.309422E+00_JPRB, 0.298680E+00_JPRB &
+  &, 0.288123E+00_JPRB, 0.277818E+00_JPRB, 0.267746E+00_JPRB, 0.257930E+00_JPRB &
+  &, 0.248347E+00_JPRB, 0.239019E+00_JPRB, 0.229920E+00_JPRB &
+  &, 0.221073E+00_JPRB, 0.212448E+00_JPRB, 0.204065E+00_JPRB, 0.195892E+00_JPRB &
+  &, 0.188002E+00_JPRB, 0.180309E+00_JPRB, 0.172882E+00_JPRB &
+  &, 0.165633E+00_JPRB, 0.158633E+00_JPRB, 0.151842E+00_JPRB, 0.145276E+00_JPRB &
+  &, 0.138953E+00_JPRB, 0.132829E+00_JPRB, 0.126918E+00_JPRB &
+  &, 0.121176E+00_JPRB, 0.115675E+00_JPRB, 0.110306E+00_JPRB, 0.105206E+00_JPRB &
+  &, 0.100263E+00_JPRB, 0.954865E-01_JPRB, 0.909542E-01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART101',1,ZHOOK_HANDLE)
+END SUBROUTINE PART101
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART102
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART102',0,ZHOOK_HANDLE)
+
+XCW( 708, :) = (/ &
+  &  0.105223E+01_JPRB, 0.106449E+01_JPRB, 0.107641E+01_JPRB, 0.108798E+01_JPRB &
+  &, 0.109920E+01_JPRB, 0.111006E+01_JPRB, 0.112054E+01_JPRB &
+  &, 0.113064E+01_JPRB, 0.114036E+01_JPRB, 0.114968E+01_JPRB, 0.115859E+01_JPRB &
+  &, 0.116709E+01_JPRB, 0.117518E+01_JPRB, 0.118284E+01_JPRB &
+  &, 0.119007E+01_JPRB, 0.119686E+01_JPRB, 0.120320E+01_JPRB, 0.120909E+01_JPRB &
+  &, 0.121453E+01_JPRB, 0.121950E+01_JPRB, 0.122401E+01_JPRB &
+  &, 0.122804E+01_JPRB, 0.123160E+01_JPRB, 0.123467E+01_JPRB, 0.123727E+01_JPRB &
+  &, 0.123937E+01_JPRB, 0.124099E+01_JPRB, 0.124211E+01_JPRB &
+  &, 0.124274E+01_JPRB, 0.124288E+01_JPRB, 0.124252E+01_JPRB, 0.124167E+01_JPRB &
+  &, 0.124032E+01_JPRB, 0.123847E+01_JPRB, 0.123614E+01_JPRB &
+  &, 0.123331E+01_JPRB, 0.123000E+01_JPRB, 0.122620E+01_JPRB, 0.122192E+01_JPRB &
+  &, 0.121716E+01_JPRB, 0.121194E+01_JPRB, 0.120626E+01_JPRB &
+  &, 0.120010E+01_JPRB, 0.119350E+01_JPRB, 0.118646E+01_JPRB, 0.117897E+01_JPRB &
+  &, 0.117106E+01_JPRB, 0.116272E+01_JPRB, 0.115397E+01_JPRB &
+  &, 0.114482E+01_JPRB, 0.113527E+01_JPRB, 0.112534E+01_JPRB, 0.111505E+01_JPRB &
+  &, 0.110438E+01_JPRB, 0.109337E+01_JPRB, 0.108202E+01_JPRB &
+  &, 0.107035E+01_JPRB, 0.105836E+01_JPRB, 0.104608E+01_JPRB, 0.103350E+01_JPRB &
+  &, 0.102064E+01_JPRB, 0.100752E+01_JPRB, 0.994166E+00_JPRB &
+  &, 0.980563E+00_JPRB, 0.966744E+00_JPRB, 0.952726E+00_JPRB, 0.938501E+00_JPRB &
+  &, 0.924105E+00_JPRB, 0.909532E+00_JPRB, 0.894817E+00_JPRB &
+  &, 0.879954E+00_JPRB, 0.864979E+00_JPRB, 0.849885E+00_JPRB, 0.834710E+00_JPRB &
+  &, 0.819444E+00_JPRB, 0.804103E+00_JPRB, 0.788698E+00_JPRB &
+  &, 0.773269E+00_JPRB, 0.757803E+00_JPRB, 0.742339E+00_JPRB, 0.726863E+00_JPRB &
+  &, 0.711387E+00_JPRB, 0.695948E+00_JPRB, 0.680530E+00_JPRB &
+  &, 0.665170E+00_JPRB, 0.649849E+00_JPRB, 0.634604E+00_JPRB, 0.619471E+00_JPRB &
+  &, 0.604400E+00_JPRB, 0.589425E+00_JPRB, 0.574583E+00_JPRB &
+  &, 0.559846E+00_JPRB, 0.545251E+00_JPRB, 0.530767E+00_JPRB, 0.516461E+00_JPRB &
+  &, 0.502301E+00_JPRB, 0.488321E+00_JPRB, 0.474485E+00_JPRB &
+  &, 0.460860E+00_JPRB, 0.447408E+00_JPRB, 0.434124E+00_JPRB, 0.421076E+00_JPRB &
+  &, 0.408183E+00_JPRB, 0.395550E+00_JPRB, 0.383093E+00_JPRB &
+  &, 0.370879E+00_JPRB, 0.358858E+00_JPRB, 0.347097E+00_JPRB, 0.335543E+00_JPRB &
+  &, 0.324223E+00_JPRB, 0.313163E+00_JPRB, 0.302303E+00_JPRB &
+  &, 0.291667E+00_JPRB, 0.281327E+00_JPRB, 0.271170E+00_JPRB, 0.261265E+00_JPRB &
+  &, 0.251637E+00_JPRB, 0.242213E+00_JPRB, 0.233064E+00_JPRB &
+  &, 0.224114E+00_JPRB, 0.215433E+00_JPRB, 0.206939E+00_JPRB, 0.198757E+00_JPRB &
+  &, 0.190750E+00_JPRB, 0.182988E+00_JPRB, 0.175274E+00_JPRB &
+  &, 0.168170E+00_JPRB, 0.161093E+00_JPRB, 0.154223E+00_JPRB, 0.147633E+00_JPRB &
+  &, 0.141226E+00_JPRB, 0.135015E+00_JPRB, 0.129015E+00_JPRB &
+  &, 0.123240E+00_JPRB, 0.117644E+00_JPRB, 0.112239E+00_JPRB, 0.107038E+00_JPRB &
+  &, 0.102055E+00_JPRB, 0.972378E-01_JPRB, 0.925970E-01_JPRB/)
+XCW( 709, :) = (/ &
+  &  0.105254E+01_JPRB, 0.106487E+01_JPRB, 0.107687E+01_JPRB, 0.108852E+01_JPRB &
+  &, 0.109983E+01_JPRB, 0.111076E+01_JPRB, 0.112133E+01_JPRB &
+  &, 0.113152E+01_JPRB, 0.114131E+01_JPRB, 0.115072E+01_JPRB, 0.115972E+01_JPRB &
+  &, 0.116831E+01_JPRB, 0.117648E+01_JPRB, 0.118423E+01_JPRB &
+  &, 0.119155E+01_JPRB, 0.119843E+01_JPRB, 0.120486E+01_JPRB, 0.121084E+01_JPRB &
+  &, 0.121637E+01_JPRB, 0.122143E+01_JPRB, 0.122603E+01_JPRB &
+  &, 0.123015E+01_JPRB, 0.123380E+01_JPRB, 0.123697E+01_JPRB, 0.123965E+01_JPRB &
+  &, 0.124184E+01_JPRB, 0.124355E+01_JPRB, 0.124476E+01_JPRB &
+  &, 0.124549E+01_JPRB, 0.124571E+01_JPRB, 0.124544E+01_JPRB, 0.124467E+01_JPRB &
+  &, 0.124341E+01_JPRB, 0.124165E+01_JPRB, 0.123940E+01_JPRB &
+  &, 0.123665E+01_JPRB, 0.123342E+01_JPRB, 0.122971E+01_JPRB, 0.122552E+01_JPRB &
+  &, 0.122084E+01_JPRB, 0.121569E+01_JPRB, 0.121008E+01_JPRB &
+  &, 0.120401E+01_JPRB, 0.119749E+01_JPRB, 0.119051E+01_JPRB, 0.118310E+01_JPRB &
+  &, 0.117525E+01_JPRB, 0.116698E+01_JPRB, 0.115831E+01_JPRB &
+  &, 0.114922E+01_JPRB, 0.113973E+01_JPRB, 0.112986E+01_JPRB, 0.111962E+01_JPRB &
+  &, 0.110902E+01_JPRB, 0.109805E+01_JPRB, 0.108676E+01_JPRB &
+  &, 0.107514E+01_JPRB, 0.106320E+01_JPRB, 0.105096E+01_JPRB, 0.103841E+01_JPRB &
+  &, 0.102561E+01_JPRB, 0.101252E+01_JPRB, 0.999207E+00_JPRB &
+  &, 0.985644E+00_JPRB, 0.971845E+00_JPRB, 0.957844E+00_JPRB, 0.943654E+00_JPRB &
+  &, 0.929270E+00_JPRB, 0.914728E+00_JPRB, 0.900020E+00_JPRB &
+  &, 0.885184E+00_JPRB, 0.870211E+00_JPRB, 0.855139E+00_JPRB, 0.839960E+00_JPRB &
+  &, 0.824688E+00_JPRB, 0.809360E+00_JPRB, 0.793967E+00_JPRB &
+  &, 0.778522E+00_JPRB, 0.763037E+00_JPRB, 0.747550E+00_JPRB, 0.732074E+00_JPRB &
+  &, 0.716542E+00_JPRB, 0.701122E+00_JPRB, 0.685668E+00_JPRB &
+  &, 0.670294E+00_JPRB, 0.654957E+00_JPRB, 0.639692E+00_JPRB, 0.624507E+00_JPRB &
+  &, 0.609379E+00_JPRB, 0.594282E+00_JPRB, 0.579497E+00_JPRB &
+  &, 0.564723E+00_JPRB, 0.550086E+00_JPRB, 0.535557E+00_JPRB, 0.521203E+00_JPRB &
+  &, 0.506990E+00_JPRB, 0.492953E+00_JPRB, 0.479021E+00_JPRB &
+  &, 0.465367E+00_JPRB, 0.451847E+00_JPRB, 0.438527E+00_JPRB, 0.425403E+00_JPRB &
+  &, 0.412467E+00_JPRB, 0.399750E+00_JPRB, 0.387244E+00_JPRB &
+  &, 0.374977E+00_JPRB, 0.362900E+00_JPRB, 0.351038E+00_JPRB, 0.339421E+00_JPRB &
+  &, 0.328034E+00_JPRB, 0.316904E+00_JPRB, 0.305970E+00_JPRB &
+  &, 0.295302E+00_JPRB, 0.284835E+00_JPRB, 0.274640E+00_JPRB, 0.264647E+00_JPRB &
+  &, 0.254927E+00_JPRB, 0.245456E+00_JPRB, 0.236208E+00_JPRB &
+  &, 0.227205E+00_JPRB, 0.218417E+00_JPRB, 0.209865E+00_JPRB, 0.201569E+00_JPRB &
+  &, 0.193550E+00_JPRB, 0.185722E+00_JPRB, 0.178101E+00_JPRB &
+  &, 0.170761E+00_JPRB, 0.163609E+00_JPRB, 0.156661E+00_JPRB, 0.149990E+00_JPRB &
+  &, 0.143499E+00_JPRB, 0.137201E+00_JPRB, 0.131171E+00_JPRB &
+  &, 0.125304E+00_JPRB, 0.119674E+00_JPRB, 0.114172E+00_JPRB, 0.108934E+00_JPRB &
+  &, 0.103848E+00_JPRB, 0.989891E-01_JPRB, 0.943055E-01_JPRB/)
+XCW( 710, :) = (/ &
+  &  0.105284E+01_JPRB, 0.106525E+01_JPRB, 0.107733E+01_JPRB, 0.108907E+01_JPRB &
+  &, 0.110045E+01_JPRB, 0.111147E+01_JPRB, 0.112212E+01_JPRB &
+  &, 0.113239E+01_JPRB, 0.114227E+01_JPRB, 0.115176E+01_JPRB, 0.116085E+01_JPRB &
+  &, 0.116953E+01_JPRB, 0.117779E+01_JPRB, 0.118563E+01_JPRB &
+  &, 0.119303E+01_JPRB, 0.120000E+01_JPRB, 0.120652E+01_JPRB, 0.121260E+01_JPRB &
+  &, 0.121821E+01_JPRB, 0.122336E+01_JPRB, 0.122805E+01_JPRB &
+  &, 0.123227E+01_JPRB, 0.123601E+01_JPRB, 0.123926E+01_JPRB, 0.124204E+01_JPRB &
+  &, 0.124432E+01_JPRB, 0.124612E+01_JPRB, 0.124742E+01_JPRB &
+  &, 0.124823E+01_JPRB, 0.124855E+01_JPRB, 0.124836E+01_JPRB, 0.124769E+01_JPRB &
+  &, 0.124651E+01_JPRB, 0.124484E+01_JPRB, 0.124267E+01_JPRB &
+  &, 0.124001E+01_JPRB, 0.123687E+01_JPRB, 0.123324E+01_JPRB, 0.122913E+01_JPRB &
+  &, 0.122454E+01_JPRB, 0.121947E+01_JPRB, 0.121393E+01_JPRB &
+  &, 0.120793E+01_JPRB, 0.120148E+01_JPRB, 0.119458E+01_JPRB, 0.118724E+01_JPRB &
+  &, 0.117947E+01_JPRB, 0.117126E+01_JPRB, 0.116265E+01_JPRB &
+  &, 0.115362E+01_JPRB, 0.114420E+01_JPRB, 0.113440E+01_JPRB, 0.112422E+01_JPRB &
+  &, 0.111367E+01_JPRB, 0.110277E+01_JPRB, 0.109153E+01_JPRB &
+  &, 0.107995E+01_JPRB, 0.106807E+01_JPRB, 0.105586E+01_JPRB, 0.104337E+01_JPRB &
+  &, 0.103060E+01_JPRB, 0.101756E+01_JPRB, 0.100427E+01_JPRB &
+  &, 0.990743E+00_JPRB, 0.976984E+00_JPRB, 0.963000E+00_JPRB, 0.948826E+00_JPRB &
+  &, 0.934476E+00_JPRB, 0.919944E+00_JPRB, 0.905266E+00_JPRB &
+  &, 0.890435E+00_JPRB, 0.875486E+00_JPRB, 0.860415E+00_JPRB, 0.845233E+00_JPRB &
+  &, 0.829978E+00_JPRB, 0.814642E+00_JPRB, 0.799236E+00_JPRB &
+  &, 0.783800E+00_JPRB, 0.768321E+00_JPRB, 0.752812E+00_JPRB, 0.737311E+00_JPRB &
+  &, 0.721802E+00_JPRB, 0.706324E+00_JPRB, 0.690859E+00_JPRB &
+  &, 0.675446E+00_JPRB, 0.660093E+00_JPRB, 0.644779E+00_JPRB, 0.629572E+00_JPRB &
+  &, 0.614418E+00_JPRB, 0.599383E+00_JPRB, 0.584442E+00_JPRB &
+  &, 0.569631E+00_JPRB, 0.554954E+00_JPRB, 0.540380E+00_JPRB, 0.525977E+00_JPRB &
+  &, 0.511713E+00_JPRB, 0.497620E+00_JPRB, 0.483699E+00_JPRB &
+  &, 0.469946E+00_JPRB, 0.456359E+00_JPRB, 0.443005E+00_JPRB, 0.429805E+00_JPRB &
+  &, 0.416828E+00_JPRB, 0.404028E+00_JPRB, 0.391474E+00_JPRB &
+  &, 0.379115E+00_JPRB, 0.366983E+00_JPRB, 0.355063E+00_JPRB, 0.343341E+00_JPRB &
+  &, 0.331888E+00_JPRB, 0.320688E+00_JPRB, 0.309681E+00_JPRB &
+  &, 0.298936E+00_JPRB, 0.288389E+00_JPRB, 0.278110E+00_JPRB, 0.268076E+00_JPRB &
+  &, 0.258265E+00_JPRB, 0.248699E+00_JPRB, 0.239402E+00_JPRB &
+  &, 0.230296E+00_JPRB, 0.221453E+00_JPRB, 0.212843E+00_JPRB, 0.204486E+00_JPRB &
+  &, 0.196351E+00_JPRB, 0.188455E+00_JPRB, 0.180765E+00_JPRB &
+  &, 0.173352E+00_JPRB, 0.166125E+00_JPRB, 0.159155E+00_JPRB, 0.152347E+00_JPRB &
+  &, 0.145830E+00_JPRB, 0.139446E+00_JPRB, 0.133327E+00_JPRB &
+  &, 0.127428E+00_JPRB, 0.121704E+00_JPRB, 0.116167E+00_JPRB, 0.110829E+00_JPRB &
+  &, 0.105704E+00_JPRB, 0.100805E+00_JPRB, 0.960140E-01_JPRB/)
+XCW( 711, :) = (/ &
+  &  0.105314E+01_JPRB, 0.106563E+01_JPRB, 0.107779E+01_JPRB, 0.108961E+01_JPRB &
+  &, 0.110107E+01_JPRB, 0.111217E+01_JPRB, 0.112291E+01_JPRB &
+  &, 0.113326E+01_JPRB, 0.114324E+01_JPRB, 0.115281E+01_JPRB, 0.116199E+01_JPRB &
+  &, 0.117075E+01_JPRB, 0.117910E+01_JPRB, 0.118703E+01_JPRB &
+  &, 0.119452E+01_JPRB, 0.120158E+01_JPRB, 0.120819E+01_JPRB, 0.121436E+01_JPRB &
+  &, 0.122006E+01_JPRB, 0.122531E+01_JPRB, 0.123008E+01_JPRB &
+  &, 0.123439E+01_JPRB, 0.123822E+01_JPRB, 0.124157E+01_JPRB, 0.124443E+01_JPRB &
+  &, 0.124681E+01_JPRB, 0.124870E+01_JPRB, 0.125009E+01_JPRB &
+  &, 0.125099E+01_JPRB, 0.125139E+01_JPRB, 0.125130E+01_JPRB, 0.125071E+01_JPRB &
+  &, 0.124962E+01_JPRB, 0.124804E+01_JPRB, 0.124596E+01_JPRB &
+  &, 0.124339E+01_JPRB, 0.124032E+01_JPRB, 0.123678E+01_JPRB, 0.123274E+01_JPRB &
+  &, 0.122824E+01_JPRB, 0.122325E+01_JPRB, 0.121779E+01_JPRB &
+  &, 0.121187E+01_JPRB, 0.120549E+01_JPRB, 0.119849E+01_JPRB, 0.119140E+01_JPRB &
+  &, 0.118370E+01_JPRB, 0.117557E+01_JPRB, 0.116702E+01_JPRB &
+  &, 0.115806E+01_JPRB, 0.114871E+01_JPRB, 0.113896E+01_JPRB, 0.112884E+01_JPRB &
+  &, 0.111835E+01_JPRB, 0.110751E+01_JPRB, 0.109632E+01_JPRB &
+  &, 0.108478E+01_JPRB, 0.107295E+01_JPRB, 0.106079E+01_JPRB, 0.104834E+01_JPRB &
+  &, 0.103561E+01_JPRB, 0.102261E+01_JPRB, 0.100936E+01_JPRB &
+  &, 0.995860E+00_JPRB, 0.982140E+00_JPRB, 0.968195E+00_JPRB, 0.954037E+00_JPRB &
+  &, 0.939721E+00_JPRB, 0.925201E+00_JPRB, 0.910531E+00_JPRB &
+  &, 0.895728E+00_JPRB, 0.880783E+00_JPRB, 0.865712E+00_JPRB, 0.850551E+00_JPRB &
+  &, 0.835291E+00_JPRB, 0.819946E+00_JPRB, 0.804553E+00_JPRB &
+  &, 0.789102E+00_JPRB, 0.773630E+00_JPRB, 0.758100E+00_JPRB, 0.742599E+00_JPRB &
+  &, 0.727062E+00_JPRB, 0.711578E+00_JPRB, 0.696079E+00_JPRB &
+  &, 0.680653E+00_JPRB, 0.665257E+00_JPRB, 0.649925E+00_JPRB, 0.634666E+00_JPRB &
+  &, 0.619516E+00_JPRB, 0.604422E+00_JPRB, 0.589449E+00_JPRB &
+  &, 0.574602E+00_JPRB, 0.559853E+00_JPRB, 0.545269E+00_JPRB, 0.530819E+00_JPRB &
+  &, 0.516504E+00_JPRB, 0.502357E+00_JPRB, 0.488377E+00_JPRB &
+  &, 0.474561E+00_JPRB, 0.460907E+00_JPRB, 0.447482E+00_JPRB, 0.434245E+00_JPRB &
+  &, 0.421189E+00_JPRB, 0.408345E+00_JPRB, 0.395703E+00_JPRB &
+  &, 0.383294E+00_JPRB, 0.371065E+00_JPRB, 0.359087E+00_JPRB, 0.347346E+00_JPRB &
+  &, 0.335785E+00_JPRB, 0.324516E+00_JPRB, 0.313437E+00_JPRB &
+  &, 0.302616E+00_JPRB, 0.291989E+00_JPRB, 0.281672E+00_JPRB, 0.271552E+00_JPRB &
+  &, 0.261651E+00_JPRB, 0.252039E+00_JPRB, 0.242644E+00_JPRB &
+  &, 0.233487E+00_JPRB, 0.224539E+00_JPRB, 0.215872E+00_JPRB, 0.207403E+00_JPRB &
+  &, 0.199204E+00_JPRB, 0.191242E+00_JPRB, 0.183483E+00_JPRB &
+  &, 0.175999E+00_JPRB, 0.168697E+00_JPRB, 0.161650E+00_JPRB, 0.154761E+00_JPRB &
+  &, 0.148161E+00_JPRB, 0.141750E+00_JPRB, 0.135543E+00_JPRB &
+  &, 0.129553E+00_JPRB, 0.123796E+00_JPRB, 0.118162E+00_JPRB, 0.112788E+00_JPRB &
+  &, 0.107625E+00_JPRB, 0.102621E+00_JPRB, 0.977882E-01_JPRB/)
+XCW( 712, :) = (/ &
+  &  0.105344E+01_JPRB, 0.106602E+01_JPRB, 0.107826E+01_JPRB, 0.109015E+01_JPRB &
+  &, 0.110170E+01_JPRB, 0.111288E+01_JPRB, 0.112370E+01_JPRB &
+  &, 0.113414E+01_JPRB, 0.114420E+01_JPRB, 0.115386E+01_JPRB, 0.116312E+01_JPRB &
+  &, 0.117198E+01_JPRB, 0.118041E+01_JPRB, 0.118843E+01_JPRB &
+  &, 0.119601E+01_JPRB, 0.120316E+01_JPRB, 0.120986E+01_JPRB, 0.121612E+01_JPRB &
+  &, 0.122192E+01_JPRB, 0.122725E+01_JPRB, 0.123212E+01_JPRB &
+  &, 0.123652E+01_JPRB, 0.124044E+01_JPRB, 0.124388E+01_JPRB, 0.124684E+01_JPRB &
+  &, 0.124930E+01_JPRB, 0.125128E+01_JPRB, 0.125277E+01_JPRB &
+  &, 0.125376E+01_JPRB, 0.125425E+01_JPRB, 0.125424E+01_JPRB, 0.125374E+01_JPRB &
+  &, 0.125274E+01_JPRB, 0.125124E+01_JPRB, 0.124925E+01_JPRB &
+  &, 0.124677E+01_JPRB, 0.124379E+01_JPRB, 0.124033E+01_JPRB, 0.123637E+01_JPRB &
+  &, 0.123195E+01_JPRB, 0.122704E+01_JPRB, 0.122166E+01_JPRB &
+  &, 0.121583E+01_JPRB, 0.120952E+01_JPRB, 0.120277E+01_JPRB, 0.119557E+01_JPRB &
+  &, 0.118795E+01_JPRB, 0.117989E+01_JPRB, 0.117140E+01_JPRB &
+  &, 0.116252E+01_JPRB, 0.115322E+01_JPRB, 0.114354E+01_JPRB, 0.113348E+01_JPRB &
+  &, 0.112305E+01_JPRB, 0.111226E+01_JPRB, 0.110112E+01_JPRB &
+  &, 0.108965E+01_JPRB, 0.107785E+01_JPRB, 0.106574E+01_JPRB, 0.105335E+01_JPRB &
+  &, 0.104065E+01_JPRB, 0.102770E+01_JPRB, 0.101447E+01_JPRB &
+  &, 0.100101E+01_JPRB, 0.987315E+00_JPRB, 0.973408E+00_JPRB, 0.959287E+00_JPRB &
+  &, 0.944965E+00_JPRB, 0.930478E+00_JPRB, 0.915838E+00_JPRB &
+  &, 0.901042E+00_JPRB, 0.886102E+00_JPRB, 0.871054E+00_JPRB, 0.855891E+00_JPRB &
+  &, 0.840650E+00_JPRB, 0.825297E+00_JPRB, 0.809894E+00_JPRB &
+  &, 0.794453E+00_JPRB, 0.778964E+00_JPRB, 0.763438E+00_JPRB, 0.747913E+00_JPRB &
+  &, 0.732375E+00_JPRB, 0.716833E+00_JPRB, 0.701352E+00_JPRB &
+  &, 0.685889E+00_JPRB, 0.670478E+00_JPRB, 0.655100E+00_JPRB, 0.639819E+00_JPRB &
+  &, 0.624615E+00_JPRB, 0.609493E+00_JPRB, 0.594488E+00_JPRB &
+  &, 0.579605E+00_JPRB, 0.564817E+00_JPRB, 0.550190E+00_JPRB, 0.535661E+00_JPRB &
+  &, 0.521295E+00_JPRB, 0.507093E+00_JPRB, 0.493089E+00_JPRB &
+  &, 0.479212E+00_JPRB, 0.465528E+00_JPRB, 0.452033E+00_JPRB, 0.438722E+00_JPRB &
+  &, 0.425589E+00_JPRB, 0.412700E+00_JPRB, 0.399972E+00_JPRB &
+  &, 0.387472E+00_JPRB, 0.375230E+00_JPRB, 0.363153E+00_JPRB, 0.351350E+00_JPRB &
+  &, 0.339724E+00_JPRB, 0.328387E+00_JPRB, 0.317236E+00_JPRB &
+  &, 0.306340E+00_JPRB, 0.295680E+00_JPRB, 0.285234E+00_JPRB, 0.275028E+00_JPRB &
+  &, 0.265084E+00_JPRB, 0.255379E+00_JPRB, 0.245886E+00_JPRB &
+  &, 0.236678E+00_JPRB, 0.227676E+00_JPRB, 0.218900E+00_JPRB, 0.210423E+00_JPRB &
+  &, 0.202110E+00_JPRB, 0.194083E+00_JPRB, 0.186256E+00_JPRB &
+  &, 0.178645E+00_JPRB, 0.171269E+00_JPRB, 0.164145E+00_JPRB, 0.157233E+00_JPRB &
+  &, 0.150551E+00_JPRB, 0.144055E+00_JPRB, 0.137819E+00_JPRB &
+  &, 0.131738E+00_JPRB, 0.125888E+00_JPRB, 0.120220E+00_JPRB, 0.114810E+00_JPRB &
+  &, 0.109545E+00_JPRB, 0.104437E+00_JPRB, 0.995624E-01_JPRB/)
+XCW( 713, :) = (/ &
+  &  0.105375E+01_JPRB, 0.106640E+01_JPRB, 0.107872E+01_JPRB, 0.109070E+01_JPRB &
+  &, 0.110232E+01_JPRB, 0.111359E+01_JPRB, 0.112450E+01_JPRB &
+  &, 0.113502E+01_JPRB, 0.114516E+01_JPRB, 0.115491E+01_JPRB, 0.116426E+01_JPRB &
+  &, 0.117320E+01_JPRB, 0.118173E+01_JPRB, 0.118983E+01_JPRB &
+  &, 0.119751E+01_JPRB, 0.120475E+01_JPRB, 0.121154E+01_JPRB, 0.121789E+01_JPRB &
+  &, 0.122378E+01_JPRB, 0.122920E+01_JPRB, 0.123416E+01_JPRB &
+  &, 0.123865E+01_JPRB, 0.124267E+01_JPRB, 0.124620E+01_JPRB, 0.124924E+01_JPRB &
+  &, 0.125181E+01_JPRB, 0.125387E+01_JPRB, 0.125545E+01_JPRB &
+  &, 0.125652E+01_JPRB, 0.125711E+01_JPRB, 0.125720E+01_JPRB, 0.125679E+01_JPRB &
+  &, 0.125587E+01_JPRB, 0.125446E+01_JPRB, 0.125256E+01_JPRB &
+  &, 0.125016E+01_JPRB, 0.124727E+01_JPRB, 0.124389E+01_JPRB, 0.124002E+01_JPRB &
+  &, 0.123568E+01_JPRB, 0.123085E+01_JPRB, 0.122555E+01_JPRB &
+  &, 0.121979E+01_JPRB, 0.121356E+01_JPRB, 0.120689E+01_JPRB, 0.119977E+01_JPRB &
+  &, 0.119221E+01_JPRB, 0.118422E+01_JPRB, 0.117580E+01_JPRB &
+  &, 0.116699E+01_JPRB, 0.115776E+01_JPRB, 0.114814E+01_JPRB, 0.113814E+01_JPRB &
+  &, 0.112776E+01_JPRB, 0.111704E+01_JPRB, 0.110595E+01_JPRB &
+  &, 0.109453E+01_JPRB, 0.108278E+01_JPRB, 0.107072E+01_JPRB, 0.105836E+01_JPRB &
+  &, 0.104573E+01_JPRB, 0.103280E+01_JPRB, 0.101962E+01_JPRB &
+  &, 0.100619E+01_JPRB, 0.992528E+00_JPRB, 0.978640E+00_JPRB, 0.964556E+00_JPRB &
+  &, 0.950270E+00_JPRB, 0.935795E+00_JPRB, 0.921166E+00_JPRB &
+  &, 0.906377E+00_JPRB, 0.891463E+00_JPRB, 0.876418E+00_JPRB, 0.861276E+00_JPRB &
+  &, 0.846031E+00_JPRB, 0.830695E+00_JPRB, 0.815282E+00_JPRB &
+  &, 0.799828E+00_JPRB, 0.784322E+00_JPRB, 0.768801E+00_JPRB, 0.753253E+00_JPRB &
+  &, 0.737714E+00_JPRB, 0.722169E+00_JPRB, 0.706654E+00_JPRB &
+  &, 0.691152E+00_JPRB, 0.675727E+00_JPRB, 0.660332E+00_JPRB, 0.645002E+00_JPRB &
+  &, 0.629774E+00_JPRB, 0.614624E+00_JPRB, 0.599588E+00_JPRB &
+  &, 0.584640E+00_JPRB, 0.569814E+00_JPRB, 0.555112E+00_JPRB, 0.540569E+00_JPRB &
+  &, 0.526153E+00_JPRB, 0.511898E+00_JPRB, 0.497837E+00_JPRB &
+  &, 0.483899E+00_JPRB, 0.470149E+00_JPRB, 0.456585E+00_JPRB, 0.443237E+00_JPRB &
+  &, 0.430064E+00_JPRB, 0.417056E+00_JPRB, 0.404321E+00_JPRB &
+  &, 0.391731E+00_JPRB, 0.379395E+00_JPRB, 0.367302E+00_JPRB, 0.355397E+00_JPRB &
+  &, 0.343707E+00_JPRB, 0.332259E+00_JPRB, 0.321080E+00_JPRB &
+  &, 0.310109E+00_JPRB, 0.299370E+00_JPRB, 0.288843E+00_JPRB, 0.278598E+00_JPRB &
+  &, 0.268565E+00_JPRB, 0.258767E+00_JPRB, 0.249227E+00_JPRB &
+  &, 0.239919E+00_JPRB, 0.230863E+00_JPRB, 0.222032E+00_JPRB, 0.213392E+00_JPRB &
+  &, 0.205069E+00_JPRB, 0.196924E+00_JPRB, 0.189028E+00_JPRB &
+  &, 0.181347E+00_JPRB, 0.173953E+00_JPRB, 0.166753E+00_JPRB, 0.159763E+00_JPRB &
+  &, 0.152940E+00_JPRB, 0.146418E+00_JPRB, 0.140094E+00_JPRB &
+  &, 0.133924E+00_JPRB, 0.128041E+00_JPRB, 0.122340E+00_JPRB, 0.116768E+00_JPRB &
+  &, 0.111466E+00_JPRB, 0.106318E+00_JPRB, 0.101402E+00_JPRB/)
+XCW( 714, :) = (/ &
+  &  0.105405E+01_JPRB, 0.106678E+01_JPRB, 0.107918E+01_JPRB, 0.109124E+01_JPRB &
+  &, 0.110295E+01_JPRB, 0.111431E+01_JPRB, 0.112529E+01_JPRB &
+  &, 0.113590E+01_JPRB, 0.114613E+01_JPRB, 0.115597E+01_JPRB, 0.116540E+01_JPRB &
+  &, 0.117443E+01_JPRB, 0.118305E+01_JPRB, 0.119124E+01_JPRB &
+  &, 0.119901E+01_JPRB, 0.120634E+01_JPRB, 0.121322E+01_JPRB, 0.121966E+01_JPRB &
+  &, 0.122564E+01_JPRB, 0.123116E+01_JPRB, 0.123621E+01_JPRB &
+  &, 0.124079E+01_JPRB, 0.124490E+01_JPRB, 0.124852E+01_JPRB, 0.125166E+01_JPRB &
+  &, 0.125431E+01_JPRB, 0.125647E+01_JPRB, 0.125814E+01_JPRB &
+  &, 0.125931E+01_JPRB, 0.125999E+01_JPRB, 0.126016E+01_JPRB, 0.125984E+01_JPRB &
+  &, 0.125902E+01_JPRB, 0.125769E+01_JPRB, 0.125588E+01_JPRB &
+  &, 0.125356E+01_JPRB, 0.125076E+01_JPRB, 0.124747E+01_JPRB, 0.124368E+01_JPRB &
+  &, 0.123942E+01_JPRB, 0.123467E+01_JPRB, 0.122945E+01_JPRB &
+  &, 0.122377E+01_JPRB, 0.121763E+01_JPRB, 0.121103E+01_JPRB, 0.120398E+01_JPRB &
+  &, 0.119649E+01_JPRB, 0.118857E+01_JPRB, 0.118023E+01_JPRB &
+  &, 0.117145E+01_JPRB, 0.116230E+01_JPRB, 0.115276E+01_JPRB, 0.114271E+01_JPRB &
+  &, 0.113250E+01_JPRB, 0.112183E+01_JPRB, 0.111079E+01_JPRB &
+  &, 0.109943E+01_JPRB, 0.108773E+01_JPRB, 0.107572E+01_JPRB, 0.106341E+01_JPRB &
+  &, 0.105080E+01_JPRB, 0.103794E+01_JPRB, 0.102479E+01_JPRB &
+  &, 0.101139E+01_JPRB, 0.997758E+00_JPRB, 0.983910E+00_JPRB, 0.969844E+00_JPRB &
+  &, 0.955594E+00_JPRB, 0.941132E+00_JPRB, 0.926535E+00_JPRB &
+  &, 0.911755E+00_JPRB, 0.896868E+00_JPRB, 0.881825E+00_JPRB, 0.866684E+00_JPRB &
+  &, 0.851435E+00_JPRB, 0.836093E+00_JPRB, 0.820694E+00_JPRB &
+  &, 0.805252E+00_JPRB, 0.789730E+00_JPRB, 0.774190E+00_JPRB, 0.758645E+00_JPRB &
+  &, 0.743079E+00_JPRB, 0.727504E+00_JPRB, 0.711982E+00_JPRB &
+  &, 0.696471E+00_JPRB, 0.681005E+00_JPRB, 0.665593E+00_JPRB, 0.650244E+00_JPRB &
+  &, 0.634963E+00_JPRB, 0.619786E+00_JPRB, 0.604689E+00_JPRB &
+  &, 0.589706E+00_JPRB, 0.574842E+00_JPRB, 0.560131E+00_JPRB, 0.545511E+00_JPRB &
+  &, 0.531046E+00_JPRB, 0.516773E+00_JPRB, 0.502620E+00_JPRB &
+  &, 0.488621E+00_JPRB, 0.474843E+00_JPRB, 0.461210E+00_JPRB, 0.447790E+00_JPRB &
+  &, 0.434540E+00_JPRB, 0.421489E+00_JPRB, 0.408669E+00_JPRB &
+  &, 0.396070E+00_JPRB, 0.383641E+00_JPRB, 0.371450E+00_JPRB, 0.359486E+00_JPRB &
+  &, 0.347732E+00_JPRB, 0.336217E+00_JPRB, 0.324968E+00_JPRB &
+  &, 0.313878E+00_JPRB, 0.303061E+00_JPRB, 0.292498E+00_JPRB, 0.282167E+00_JPRB &
+  &, 0.272046E+00_JPRB, 0.262203E+00_JPRB, 0.252567E+00_JPRB &
+  &, 0.243209E+00_JPRB, 0.234051E+00_JPRB, 0.225112E+00_JPRB, 0.216465E+00_JPRB &
+  &, 0.208027E+00_JPRB, 0.199818E+00_JPRB, 0.191855E+00_JPRB &
+  &, 0.184103E+00_JPRB, 0.176636E+00_JPRB, 0.169304E+00_JPRB, 0.162292E+00_JPRB &
+  &, 0.155447E+00_JPRB, 0.148781E+00_JPRB, 0.142370E+00_JPRB &
+  &, 0.136170E+00_JPRB, 0.130195E+00_JPRB, 0.124397E+00_JPRB, 0.118853E+00_JPRB &
+  &, 0.113451E+00_JPRB, 0.108264E+00_JPRB, 0.103242E+00_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART102',1,ZHOOK_HANDLE)
+END SUBROUTINE PART102
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART103
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART103',0,ZHOOK_HANDLE)
+
+XCW( 715, :) = (/ &
+  &  0.105436E+01_JPRB, 0.106717E+01_JPRB, 0.107965E+01_JPRB, 0.109179E+01_JPRB &
+  &, 0.110358E+01_JPRB, 0.111502E+01_JPRB, 0.112609E+01_JPRB &
+  &, 0.113679E+01_JPRB, 0.114710E+01_JPRB, 0.115702E+01_JPRB, 0.116655E+01_JPRB &
+  &, 0.117567E+01_JPRB, 0.118437E+01_JPRB, 0.119266E+01_JPRB &
+  &, 0.120051E+01_JPRB, 0.120793E+01_JPRB, 0.121491E+01_JPRB, 0.122144E+01_JPRB &
+  &, 0.122751E+01_JPRB, 0.123312E+01_JPRB, 0.123826E+01_JPRB &
+  &, 0.124294E+01_JPRB, 0.124714E+01_JPRB, 0.125085E+01_JPRB, 0.125409E+01_JPRB &
+  &, 0.125683E+01_JPRB, 0.125908E+01_JPRB, 0.126084E+01_JPRB &
+  &, 0.126210E+01_JPRB, 0.126286E+01_JPRB, 0.126313E+01_JPRB, 0.126290E+01_JPRB &
+  &, 0.126217E+01_JPRB, 0.126094E+01_JPRB, 0.125921E+01_JPRB &
+  &, 0.125698E+01_JPRB, 0.125426E+01_JPRB, 0.125105E+01_JPRB, 0.124735E+01_JPRB &
+  &, 0.124317E+01_JPRB, 0.123851E+01_JPRB, 0.123337E+01_JPRB &
+  &, 0.122777E+01_JPRB, 0.122170E+01_JPRB, 0.121517E+01_JPRB, 0.120820E+01_JPRB &
+  &, 0.120079E+01_JPRB, 0.119294E+01_JPRB, 0.118466E+01_JPRB &
+  &, 0.117599E+01_JPRB, 0.116688E+01_JPRB, 0.115739E+01_JPRB, 0.114751E+01_JPRB &
+  &, 0.113726E+01_JPRB, 0.112664E+01_JPRB, 0.111567E+01_JPRB &
+  &, 0.110436E+01_JPRB, 0.109271E+01_JPRB, 0.108075E+01_JPRB, 0.106849E+01_JPRB &
+  &, 0.105593E+01_JPRB, 0.104309E+01_JPRB, 0.102999E+01_JPRB &
+  &, 0.101662E+01_JPRB, 0.100303E+01_JPRB, 0.989199E+00_JPRB, 0.975171E+00_JPRB &
+  &, 0.960937E+00_JPRB, 0.946510E+00_JPRB, 0.931925E+00_JPRB &
+  &, 0.917174E+00_JPRB, 0.902272E+00_JPRB, 0.887255E+00_JPRB, 0.872114E+00_JPRB &
+  &, 0.856886E+00_JPRB, 0.841561E+00_JPRB, 0.826154E+00_JPRB &
+  &, 0.810700E+00_JPRB, 0.795188E+00_JPRB, 0.779630E+00_JPRB, 0.764062E+00_JPRB &
+  &, 0.748471E+00_JPRB, 0.732919E+00_JPRB, 0.717338E+00_JPRB &
+  &, 0.701817E+00_JPRB, 0.686339E+00_JPRB, 0.670884E+00_JPRB, 0.655515E+00_JPRB &
+  &, 0.640212E+00_JPRB, 0.624979E+00_JPRB, 0.609852E+00_JPRB &
+  &, 0.594836E+00_JPRB, 0.579935E+00_JPRB, 0.565151E+00_JPRB, 0.550519E+00_JPRB &
+  &, 0.536007E+00_JPRB, 0.521647E+00_JPRB, 0.507439E+00_JPRB &
+  &, 0.493415E+00_JPRB, 0.479573E+00_JPRB, 0.465872E+00_JPRB, 0.452380E+00_JPRB &
+  &, 0.439092E+00_JPRB, 0.426001E+00_JPRB, 0.413096E+00_JPRB &
+  &, 0.400409E+00_JPRB, 0.387928E+00_JPRB, 0.375682E+00_JPRB, 0.363617E+00_JPRB &
+  &, 0.351801E+00_JPRB, 0.340219E+00_JPRB, 0.328856E+00_JPRB &
+  &, 0.317737E+00_JPRB, 0.306843E+00_JPRB, 0.296199E+00_JPRB, 0.285784E+00_JPRB &
+  &, 0.275622E+00_JPRB, 0.265688E+00_JPRB, 0.255957E+00_JPRB &
+  &, 0.246500E+00_JPRB, 0.237288E+00_JPRB, 0.228294E+00_JPRB, 0.219538E+00_JPRB &
+  &, 0.211039E+00_JPRB, 0.202766E+00_JPRB, 0.194736E+00_JPRB &
+  &, 0.186915E+00_JPRB, 0.179320E+00_JPRB, 0.171969E+00_JPRB, 0.164821E+00_JPRB &
+  &, 0.157953E+00_JPRB, 0.151204E+00_JPRB, 0.144766E+00_JPRB &
+  &, 0.138477E+00_JPRB, 0.132409E+00_JPRB, 0.126579E+00_JPRB, 0.120938E+00_JPRB &
+  &, 0.115435E+00_JPRB, 0.110210E+00_JPRB, 0.105148E+00_JPRB/)
+XCW( 716, :) = (/ &
+  &  0.105466E+01_JPRB, 0.106755E+01_JPRB, 0.108011E+01_JPRB, 0.109234E+01_JPRB &
+  &, 0.110421E+01_JPRB, 0.111573E+01_JPRB, 0.112689E+01_JPRB &
+  &, 0.113767E+01_JPRB, 0.114807E+01_JPRB, 0.115808E+01_JPRB, 0.116770E+01_JPRB &
+  &, 0.117690E+01_JPRB, 0.118570E+01_JPRB, 0.119407E+01_JPRB &
+  &, 0.120202E+01_JPRB, 0.120953E+01_JPRB, 0.121660E+01_JPRB, 0.122322E+01_JPRB &
+  &, 0.122938E+01_JPRB, 0.123509E+01_JPRB, 0.124032E+01_JPRB &
+  &, 0.124509E+01_JPRB, 0.124938E+01_JPRB, 0.125319E+01_JPRB, 0.125652E+01_JPRB &
+  &, 0.125935E+01_JPRB, 0.126170E+01_JPRB, 0.126355E+01_JPRB &
+  &, 0.126490E+01_JPRB, 0.126576E+01_JPRB, 0.126612E+01_JPRB, 0.126597E+01_JPRB &
+  &, 0.126533E+01_JPRB, 0.126419E+01_JPRB, 0.126255E+01_JPRB &
+  &, 0.126041E+01_JPRB, 0.125777E+01_JPRB, 0.125465E+01_JPRB, 0.125104E+01_JPRB &
+  &, 0.124694E+01_JPRB, 0.124236E+01_JPRB, 0.123731E+01_JPRB &
+  &, 0.123178E+01_JPRB, 0.122579E+01_JPRB, 0.121934E+01_JPRB, 0.121244E+01_JPRB &
+  &, 0.120510E+01_JPRB, 0.119733E+01_JPRB, 0.118913E+01_JPRB &
+  &, 0.118051E+01_JPRB, 0.117148E+01_JPRB, 0.116205E+01_JPRB, 0.115224E+01_JPRB &
+  &, 0.114204E+01_JPRB, 0.113149E+01_JPRB, 0.112057E+01_JPRB &
+  &, 0.110930E+01_JPRB, 0.109772E+01_JPRB, 0.108581E+01_JPRB, 0.107358E+01_JPRB &
+  &, 0.106107E+01_JPRB, 0.104827E+01_JPRB, 0.103520E+01_JPRB &
+  &, 0.102188E+01_JPRB, 0.100831E+01_JPRB, 0.994526E+00_JPRB, 0.980518E+00_JPRB &
+  &, 0.966321E+00_JPRB, 0.951909E+00_JPRB, 0.937335E+00_JPRB &
+  &, 0.922615E+00_JPRB, 0.907742E+00_JPRB, 0.892729E+00_JPRB, 0.877589E+00_JPRB &
+  &, 0.862359E+00_JPRB, 0.847030E+00_JPRB, 0.831638E+00_JPRB &
+  &, 0.816172E+00_JPRB, 0.800645E+00_JPRB, 0.785094E+00_JPRB, 0.769531E+00_JPRB &
+  &, 0.753915E+00_JPRB, 0.738335E+00_JPRB, 0.722749E+00_JPRB &
+  &, 0.707192E+00_JPRB, 0.691702E+00_JPRB, 0.676232E+00_JPRB, 0.660816E+00_JPRB &
+  &, 0.645490E+00_JPRB, 0.630232E+00_JPRB, 0.615046E+00_JPRB &
+  &, 0.599998E+00_JPRB, 0.585060E+00_JPRB, 0.570237E+00_JPRB, 0.555528E+00_JPRB &
+  &, 0.540968E+00_JPRB, 0.526556E+00_JPRB, 0.512327E+00_JPRB &
+  &, 0.498244E+00_JPRB, 0.484303E+00_JPRB, 0.470571E+00_JPRB, 0.457046E+00_JPRB &
+  &, 0.443683E+00_JPRB, 0.430512E+00_JPRB, 0.417563E+00_JPRB &
+  &, 0.404788E+00_JPRB, 0.392256E+00_JPRB, 0.379914E+00_JPRB, 0.367790E+00_JPRB &
+  &, 0.355911E+00_JPRB, 0.344265E+00_JPRB, 0.332832E+00_JPRB &
+  &, 0.321641E+00_JPRB, 0.310671E+00_JPRB, 0.299947E+00_JPRB, 0.289448E+00_JPRB &
+  &, 0.279198E+00_JPRB, 0.269173E+00_JPRB, 0.259396E+00_JPRB &
+  &, 0.249890E+00_JPRB, 0.240577E+00_JPRB, 0.231529E+00_JPRB, 0.222715E+00_JPRB &
+  &, 0.214104E+00_JPRB, 0.205767E+00_JPRB, 0.197617E+00_JPRB &
+  &, 0.189727E+00_JPRB, 0.182060E+00_JPRB, 0.174633E+00_JPRB, 0.167466E+00_JPRB &
+  &, 0.160459E+00_JPRB, 0.153685E+00_JPRB, 0.147162E+00_JPRB &
+  &, 0.140783E+00_JPRB, 0.134686E+00_JPRB, 0.128762E+00_JPRB, 0.123023E+00_JPRB &
+  &, 0.117484E+00_JPRB, 0.112156E+00_JPRB, 0.107053E+00_JPRB/)
+XCW( 717, :) = (/ &
+  &  0.105497E+01_JPRB, 0.106794E+01_JPRB, 0.108058E+01_JPRB, 0.109289E+01_JPRB &
+  &, 0.110484E+01_JPRB, 0.111645E+01_JPRB, 0.112769E+01_JPRB &
+  &, 0.113856E+01_JPRB, 0.114905E+01_JPRB, 0.115915E+01_JPRB, 0.116885E+01_JPRB &
+  &, 0.117814E+01_JPRB, 0.118703E+01_JPRB, 0.119549E+01_JPRB &
+  &, 0.120353E+01_JPRB, 0.121113E+01_JPRB, 0.121829E+01_JPRB, 0.122500E+01_JPRB &
+  &, 0.123126E+01_JPRB, 0.123706E+01_JPRB, 0.124239E+01_JPRB &
+  &, 0.124725E+01_JPRB, 0.125163E+01_JPRB, 0.125553E+01_JPRB, 0.125895E+01_JPRB &
+  &, 0.126188E+01_JPRB, 0.126432E+01_JPRB, 0.126627E+01_JPRB &
+  &, 0.126771E+01_JPRB, 0.126866E+01_JPRB, 0.126911E+01_JPRB, 0.126906E+01_JPRB &
+  &, 0.126850E+01_JPRB, 0.126745E+01_JPRB, 0.126590E+01_JPRB &
+  &, 0.126385E+01_JPRB, 0.126130E+01_JPRB, 0.125826E+01_JPRB, 0.125474E+01_JPRB &
+  &, 0.125073E+01_JPRB, 0.124622E+01_JPRB, 0.124125E+01_JPRB &
+  &, 0.123581E+01_JPRB, 0.122990E+01_JPRB, 0.122353E+01_JPRB, 0.121670E+01_JPRB &
+  &, 0.120944E+01_JPRB, 0.120174E+01_JPRB, 0.119361E+01_JPRB &
+  &, 0.118505E+01_JPRB, 0.117609E+01_JPRB, 0.116673E+01_JPRB, 0.115698E+01_JPRB &
+  &, 0.114685E+01_JPRB, 0.113634E+01_JPRB, 0.112548E+01_JPRB &
+  &, 0.111427E+01_JPRB, 0.110275E+01_JPRB, 0.109087E+01_JPRB, 0.107871E+01_JPRB &
+  &, 0.106623E+01_JPRB, 0.105347E+01_JPRB, 0.104046E+01_JPRB &
+  &, 0.102716E+01_JPRB, 0.101364E+01_JPRB, 0.999872E+00_JPRB, 0.985903E+00_JPRB &
+  &, 0.971724E+00_JPRB, 0.957347E+00_JPRB, 0.942787E+00_JPRB &
+  &, 0.928077E+00_JPRB, 0.913232E+00_JPRB, 0.898224E+00_JPRB, 0.883109E+00_JPRB &
+  &, 0.867878E+00_JPRB, 0.852568E+00_JPRB, 0.837169E+00_JPRB &
+  &, 0.821693E+00_JPRB, 0.806177E+00_JPRB, 0.790609E+00_JPRB, 0.775026E+00_JPRB &
+  &, 0.759412E+00_JPRB, 0.743804E+00_JPRB, 0.728214E+00_JPRB &
+  &, 0.712622E+00_JPRB, 0.697093E+00_JPRB, 0.681609E+00_JPRB, 0.666146E+00_JPRB &
+  &, 0.650799E+00_JPRB, 0.635517E+00_JPRB, 0.620302E+00_JPRB &
+  &, 0.605191E+00_JPRB, 0.590218E+00_JPRB, 0.575355E+00_JPRB, 0.560603E+00_JPRB &
+  &, 0.545996E+00_JPRB, 0.531534E+00_JPRB, 0.517251E+00_JPRB &
+  &, 0.503110E+00_JPRB, 0.489142E+00_JPRB, 0.475345E+00_JPRB, 0.461712E+00_JPRB &
+  &, 0.448312E+00_JPRB, 0.435062E+00_JPRB, 0.422030E+00_JPRB &
+  &, 0.409208E+00_JPRB, 0.396625E+00_JPRB, 0.384229E+00_JPRB, 0.372047E+00_JPRB &
+  &, 0.360065E+00_JPRB, 0.348354E+00_JPRB, 0.336853E+00_JPRB &
+  &, 0.325589E+00_JPRB, 0.314544E+00_JPRB, 0.303741E+00_JPRB, 0.293159E+00_JPRB &
+  &, 0.282822E+00_JPRB, 0.272755E+00_JPRB, 0.262884E+00_JPRB &
+  &, 0.253280E+00_JPRB, 0.243916E+00_JPRB, 0.234763E+00_JPRB, 0.225892E+00_JPRB &
+  &, 0.217221E+00_JPRB, 0.208768E+00_JPRB, 0.200553E+00_JPRB &
+  &, 0.192594E+00_JPRB, 0.184856E+00_JPRB, 0.177355E+00_JPRB, 0.170110E+00_JPRB &
+  &, 0.163023E+00_JPRB, 0.156167E+00_JPRB, 0.149557E+00_JPRB &
+  &, 0.143151E+00_JPRB, 0.136962E+00_JPRB, 0.130944E+00_JPRB, 0.125171E+00_JPRB &
+  &, 0.119596E+00_JPRB, 0.114167E+00_JPRB, 0.108959E+00_JPRB/)
+XCW( 718, :) = (/ &
+  &  0.105528E+01_JPRB, 0.106832E+01_JPRB, 0.108105E+01_JPRB, 0.109343E+01_JPRB &
+  &, 0.110548E+01_JPRB, 0.111717E+01_JPRB, 0.112849E+01_JPRB &
+  &, 0.113945E+01_JPRB, 0.115002E+01_JPRB, 0.116021E+01_JPRB, 0.117000E+01_JPRB &
+  &, 0.117939E+01_JPRB, 0.118836E+01_JPRB, 0.119692E+01_JPRB &
+  &, 0.120504E+01_JPRB, 0.121274E+01_JPRB, 0.121999E+01_JPRB, 0.122679E+01_JPRB &
+  &, 0.123314E+01_JPRB, 0.123903E+01_JPRB, 0.124446E+01_JPRB &
+  &, 0.124941E+01_JPRB, 0.125389E+01_JPRB, 0.125789E+01_JPRB, 0.126140E+01_JPRB &
+  &, 0.126442E+01_JPRB, 0.126695E+01_JPRB, 0.126899E+01_JPRB &
+  &, 0.127053E+01_JPRB, 0.127157E+01_JPRB, 0.127211E+01_JPRB, 0.127215E+01_JPRB &
+  &, 0.127169E+01_JPRB, 0.127073E+01_JPRB, 0.126927E+01_JPRB &
+  &, 0.126730E+01_JPRB, 0.126484E+01_JPRB, 0.126189E+01_JPRB, 0.125845E+01_JPRB &
+  &, 0.125452E+01_JPRB, 0.125010E+01_JPRB, 0.124521E+01_JPRB &
+  &, 0.123985E+01_JPRB, 0.123402E+01_JPRB, 0.122773E+01_JPRB, 0.122098E+01_JPRB &
+  &, 0.121379E+01_JPRB, 0.120616E+01_JPRB, 0.119811E+01_JPRB &
+  &, 0.118962E+01_JPRB, 0.118073E+01_JPRB, 0.117143E+01_JPRB, 0.116174E+01_JPRB &
+  &, 0.115166E+01_JPRB, 0.114122E+01_JPRB, 0.113043E+01_JPRB &
+  &, 0.111928E+01_JPRB, 0.110779E+01_JPRB, 0.109598E+01_JPRB, 0.108385E+01_JPRB &
+  &, 0.107143E+01_JPRB, 0.105872E+01_JPRB, 0.104573E+01_JPRB &
+  &, 0.103248E+01_JPRB, 0.101900E+01_JPRB, 0.100526E+01_JPRB, 0.991308E+00_JPRB &
+  &, 0.977166E+00_JPRB, 0.962806E+00_JPRB, 0.948280E+00_JPRB &
+  &, 0.933581E+00_JPRB, 0.918744E+00_JPRB, 0.903764E+00_JPRB, 0.888651E+00_JPRB &
+  &, 0.873420E+00_JPRB, 0.858106E+00_JPRB, 0.842724E+00_JPRB &
+  &, 0.827239E+00_JPRB, 0.811710E+00_JPRB, 0.796150E+00_JPRB, 0.780546E+00_JPRB &
+  &, 0.764935E+00_JPRB, 0.749300E+00_JPRB, 0.733706E+00_JPRB &
+  &, 0.718108E+00_JPRB, 0.702541E+00_JPRB, 0.687014E+00_JPRB, 0.671534E+00_JPRB &
+  &, 0.656138E+00_JPRB, 0.640831E+00_JPRB, 0.625589E+00_JPRB &
+  &, 0.610447E+00_JPRB, 0.595408E+00_JPRB, 0.580506E+00_JPRB, 0.565712E+00_JPRB &
+  &, 0.551059E+00_JPRB, 0.536547E+00_JPRB, 0.522210E+00_JPRB &
+  &, 0.508011E+00_JPRB, 0.493982E+00_JPRB, 0.480118E+00_JPRB, 0.466452E+00_JPRB &
+  &, 0.452979E+00_JPRB, 0.439689E+00_JPRB, 0.426576E+00_JPRB &
+  &, 0.413707E+00_JPRB, 0.401034E+00_JPRB, 0.388543E+00_JPRB, 0.376304E+00_JPRB &
+  &, 0.364262E+00_JPRB, 0.352486E+00_JPRB, 0.340918E+00_JPRB &
+  &, 0.329538E+00_JPRB, 0.318462E+00_JPRB, 0.307581E+00_JPRB, 0.296916E+00_JPRB &
+  &, 0.286541E+00_JPRB, 0.276337E+00_JPRB, 0.266421E+00_JPRB &
+  &, 0.256720E+00_JPRB, 0.247255E+00_JPRB, 0.238048E+00_JPRB, 0.229069E+00_JPRB &
+  &, 0.220338E+00_JPRB, 0.211823E+00_JPRB, 0.203543E+00_JPRB &
+  &, 0.195516E+00_JPRB, 0.187707E+00_JPRB, 0.180133E+00_JPRB, 0.172754E+00_JPRB &
+  &, 0.165646E+00_JPRB, 0.158707E+00_JPRB, 0.152013E+00_JPRB &
+  &, 0.145518E+00_JPRB, 0.139300E+00_JPRB, 0.133188E+00_JPRB, 0.127383E+00_JPRB &
+  &, 0.121709E+00_JPRB, 0.116242E+00_JPRB, 0.110930E+00_JPRB/)
+XCW( 719, :) = (/ &
+  &  0.105558E+01_JPRB, 0.106871E+01_JPRB, 0.108152E+01_JPRB, 0.109399E+01_JPRB &
+  &, 0.110611E+01_JPRB, 0.111789E+01_JPRB, 0.112930E+01_JPRB &
+  &, 0.114034E+01_JPRB, 0.115100E+01_JPRB, 0.116128E+01_JPRB, 0.117116E+01_JPRB &
+  &, 0.118063E+01_JPRB, 0.118970E+01_JPRB, 0.119834E+01_JPRB &
+  &, 0.120656E+01_JPRB, 0.121435E+01_JPRB, 0.122169E+01_JPRB, 0.122859E+01_JPRB &
+  &, 0.123503E+01_JPRB, 0.124102E+01_JPRB, 0.124654E+01_JPRB &
+  &, 0.125158E+01_JPRB, 0.125615E+01_JPRB, 0.126024E+01_JPRB, 0.126385E+01_JPRB &
+  &, 0.126697E+01_JPRB, 0.126959E+01_JPRB, 0.127172E+01_JPRB &
+  &, 0.127336E+01_JPRB, 0.127449E+01_JPRB, 0.127512E+01_JPRB, 0.127525E+01_JPRB &
+  &, 0.127488E+01_JPRB, 0.127401E+01_JPRB, 0.127264E+01_JPRB &
+  &, 0.127076E+01_JPRB, 0.126840E+01_JPRB, 0.126553E+01_JPRB, 0.126218E+01_JPRB &
+  &, 0.125833E+01_JPRB, 0.125400E+01_JPRB, 0.124919E+01_JPRB &
+  &, 0.124391E+01_JPRB, 0.123816E+01_JPRB, 0.123195E+01_JPRB, 0.122527E+01_JPRB &
+  &, 0.121817E+01_JPRB, 0.121060E+01_JPRB, 0.120262E+01_JPRB &
+  &, 0.119421E+01_JPRB, 0.118537E+01_JPRB, 0.117615E+01_JPRB, 0.116652E+01_JPRB &
+  &, 0.115652E+01_JPRB, 0.114614E+01_JPRB, 0.113540E+01_JPRB &
+  &, 0.112430E+01_JPRB, 0.111286E+01_JPRB, 0.110109E+01_JPRB, 0.108903E+01_JPRB &
+  &, 0.107664E+01_JPRB, 0.106398E+01_JPRB, 0.105104E+01_JPRB &
+  &, 0.103783E+01_JPRB, 0.102438E+01_JPRB, 0.101068E+01_JPRB, 0.996751E+00_JPRB &
+  &, 0.982629E+00_JPRB, 0.968305E+00_JPRB, 0.953793E+00_JPRB &
+  &, 0.939127E+00_JPRB, 0.924300E+00_JPRB, 0.909325E+00_JPRB, 0.894215E+00_JPRB &
+  &, 0.879007E+00_JPRB, 0.863691E+00_JPRB, 0.848303E+00_JPRB &
+  &, 0.832833E+00_JPRB, 0.817316E+00_JPRB, 0.801716E+00_JPRB, 0.786118E+00_JPRB &
+  &, 0.770484E+00_JPRB, 0.754850E+00_JPRB, 0.739226E+00_JPRB &
+  &, 0.723594E+00_JPRB, 0.708018E+00_JPRB, 0.692478E+00_JPRB, 0.676982E+00_JPRB &
+  &, 0.661537E+00_JPRB, 0.646177E+00_JPRB, 0.630908E+00_JPRB &
+  &, 0.615735E+00_JPRB, 0.600662E+00_JPRB, 0.585723E+00_JPRB, 0.570888E+00_JPRB &
+  &, 0.556190E+00_JPRB, 0.541629E+00_JPRB, 0.527204E+00_JPRB &
+  &, 0.512948E+00_JPRB, 0.498894E+00_JPRB, 0.484965E+00_JPRB, 0.471231E+00_JPRB &
+  &, 0.457684E+00_JPRB, 0.444317E+00_JPRB, 0.431161E+00_JPRB &
+  &, 0.418207E+00_JPRB, 0.405484E+00_JPRB, 0.392941E+00_JPRB, 0.380562E+00_JPRB &
+  &, 0.368544E+00_JPRB, 0.356662E+00_JPRB, 0.345027E+00_JPRB &
+  &, 0.333576E+00_JPRB, 0.322381E+00_JPRB, 0.311467E+00_JPRB, 0.300721E+00_JPRB &
+  &, 0.290261E+00_JPRB, 0.280015E+00_JPRB, 0.270007E+00_JPRB &
+  &, 0.260210E+00_JPRB, 0.250695E+00_JPRB, 0.241385E+00_JPRB, 0.232350E+00_JPRB &
+  &, 0.223509E+00_JPRB, 0.214932E+00_JPRB, 0.206587E+00_JPRB &
+  &, 0.198493E+00_JPRB, 0.190614E+00_JPRB, 0.182911E+00_JPRB, 0.175514E+00_JPRB &
+  &, 0.168268E+00_JPRB, 0.161307E+00_JPRB, 0.154528E+00_JPRB &
+  &, 0.147946E+00_JPRB, 0.141638E+00_JPRB, 0.135495E+00_JPRB, 0.129594E+00_JPRB &
+  &, 0.123822E+00_JPRB, 0.118318E+00_JPRB, 0.112967E+00_JPRB/)
+XCW( 720, :) = (/ &
+  &  0.105589E+01_JPRB, 0.106910E+01_JPRB, 0.108199E+01_JPRB, 0.109454E+01_JPRB &
+  &, 0.110675E+01_JPRB, 0.111861E+01_JPRB, 0.113010E+01_JPRB &
+  &, 0.114123E+01_JPRB, 0.115198E+01_JPRB, 0.116235E+01_JPRB, 0.117231E+01_JPRB &
+  &, 0.118188E+01_JPRB, 0.119103E+01_JPRB, 0.119977E+01_JPRB &
+  &, 0.120808E+01_JPRB, 0.121596E+01_JPRB, 0.122340E+01_JPRB, 0.123039E+01_JPRB &
+  &, 0.123693E+01_JPRB, 0.124301E+01_JPRB, 0.124862E+01_JPRB &
+  &, 0.125376E+01_JPRB, 0.125843E+01_JPRB, 0.126261E+01_JPRB, 0.126631E+01_JPRB &
+  &, 0.126952E+01_JPRB, 0.127224E+01_JPRB, 0.127447E+01_JPRB &
+  &, 0.127619E+01_JPRB, 0.127742E+01_JPRB, 0.127814E+01_JPRB, 0.127837E+01_JPRB &
+  &, 0.127809E+01_JPRB, 0.127731E+01_JPRB, 0.127602E+01_JPRB &
+  &, 0.127424E+01_JPRB, 0.127196E+01_JPRB, 0.126918E+01_JPRB, 0.126592E+01_JPRB &
+  &, 0.126216E+01_JPRB, 0.125791E+01_JPRB, 0.125319E+01_JPRB &
+  &, 0.124799E+01_JPRB, 0.124232E+01_JPRB, 0.123617E+01_JPRB, 0.122959E+01_JPRB &
+  &, 0.122255E+01_JPRB, 0.121507E+01_JPRB, 0.120715E+01_JPRB &
+  &, 0.119881E+01_JPRB, 0.119006E+01_JPRB, 0.118089E+01_JPRB, 0.117133E+01_JPRB &
+  &, 0.116139E+01_JPRB, 0.115106E+01_JPRB, 0.114038E+01_JPRB &
+  &, 0.112934E+01_JPRB, 0.111795E+01_JPRB, 0.110625E+01_JPRB, 0.109423E+01_JPRB &
+  &, 0.108189E+01_JPRB, 0.106927E+01_JPRB, 0.105636E+01_JPRB &
+  &, 0.104321E+01_JPRB, 0.102977E+01_JPRB, 0.101612E+01_JPRB, 0.100223E+01_JPRB &
+  &, 0.988131E+00_JPRB, 0.973825E+00_JPRB, 0.959348E+00_JPRB &
+  &, 0.944694E+00_JPRB, 0.929877E+00_JPRB, 0.914930E+00_JPRB, 0.899825E+00_JPRB &
+  &, 0.884641E+00_JPRB, 0.869323E+00_JPRB, 0.853930E+00_JPRB &
+  &, 0.838451E+00_JPRB, 0.822923E+00_JPRB, 0.807357E+00_JPRB, 0.791716E+00_JPRB &
+  &, 0.776086E+00_JPRB, 0.760427E+00_JPRB, 0.744773E+00_JPRB &
+  &, 0.729135E+00_JPRB, 0.713551E+00_JPRB, 0.697971E+00_JPRB, 0.682430E+00_JPRB &
+  &, 0.666995E+00_JPRB, 0.651583E+00_JPRB, 0.636288E+00_JPRB &
+  &, 0.621055E+00_JPRB, 0.605948E+00_JPRB, 0.590972E+00_JPRB, 0.576063E+00_JPRB &
+  &, 0.561320E+00_JPRB, 0.546711E+00_JPRB, 0.532268E+00_JPRB &
+  &, 0.517956E+00_JPRB, 0.503806E+00_JPRB, 0.489850E+00_JPRB, 0.476047E+00_JPRB &
+  &, 0.462466E+00_JPRB, 0.449023E+00_JPRB, 0.435826E+00_JPRB &
+  &, 0.422787E+00_JPRB, 0.409976E+00_JPRB, 0.397380E+00_JPRB, 0.384988E+00_JPRB &
+  &, 0.372827E+00_JPRB, 0.360882E+00_JPRB, 0.349136E+00_JPRB &
+  &, 0.337660E+00_JPRB, 0.326390E+00_JPRB, 0.315353E+00_JPRB, 0.304573E+00_JPRB &
+  &, 0.294028E+00_JPRB, 0.283694E+00_JPRB, 0.273593E+00_JPRB &
+  &, 0.263750E+00_JPRB, 0.254136E+00_JPRB, 0.244773E+00_JPRB, 0.235631E+00_JPRB &
+  &, 0.226732E+00_JPRB, 0.218094E+00_JPRB, 0.209686E+00_JPRB &
+  &, 0.201471E+00_JPRB, 0.193522E+00_JPRB, 0.185746E+00_JPRB, 0.178273E+00_JPRB &
+  &, 0.170949E+00_JPRB, 0.163907E+00_JPRB, 0.157044E+00_JPRB &
+  &, 0.150435E+00_JPRB, 0.144037E+00_JPRB, 0.137802E+00_JPRB, 0.131805E+00_JPRB &
+  &, 0.125998E+00_JPRB, 0.120393E+00_JPRB, 0.115004E+00_JPRB/)
+XCW( 721, :) = (/ &
+  &  0.105620E+01_JPRB, 0.106949E+01_JPRB, 0.108246E+01_JPRB, 0.109509E+01_JPRB &
+  &, 0.110739E+01_JPRB, 0.111933E+01_JPRB, 0.113091E+01_JPRB &
+  &, 0.114213E+01_JPRB, 0.115296E+01_JPRB, 0.116342E+01_JPRB, 0.117347E+01_JPRB &
+  &, 0.118313E+01_JPRB, 0.119238E+01_JPRB, 0.120121E+01_JPRB &
+  &, 0.120961E+01_JPRB, 0.121758E+01_JPRB, 0.122511E+01_JPRB, 0.123220E+01_JPRB &
+  &, 0.123883E+01_JPRB, 0.124500E+01_JPRB, 0.125071E+01_JPRB &
+  &, 0.125594E+01_JPRB, 0.126070E+01_JPRB, 0.126498E+01_JPRB, 0.126878E+01_JPRB &
+  &, 0.127209E+01_JPRB, 0.127490E+01_JPRB, 0.127722E+01_JPRB &
+  &, 0.127904E+01_JPRB, 0.128036E+01_JPRB, 0.128118E+01_JPRB, 0.128149E+01_JPRB &
+  &, 0.128130E+01_JPRB, 0.128062E+01_JPRB, 0.127943E+01_JPRB &
+  &, 0.127773E+01_JPRB, 0.127554E+01_JPRB, 0.127285E+01_JPRB, 0.126967E+01_JPRB &
+  &, 0.126599E+01_JPRB, 0.126183E+01_JPRB, 0.125719E+01_JPRB &
+  &, 0.125207E+01_JPRB, 0.124648E+01_JPRB, 0.124043E+01_JPRB, 0.123392E+01_JPRB &
+  &, 0.122695E+01_JPRB, 0.121955E+01_JPRB, 0.121170E+01_JPRB &
+  &, 0.120343E+01_JPRB, 0.119475E+01_JPRB, 0.118566E+01_JPRB, 0.117616E+01_JPRB &
+  &, 0.116627E+01_JPRB, 0.115602E+01_JPRB, 0.114539E+01_JPRB &
+  &, 0.113441E+01_JPRB, 0.112308E+01_JPRB, 0.111143E+01_JPRB, 0.109946E+01_JPRB &
+  &, 0.108717E+01_JPRB, 0.107458E+01_JPRB, 0.106172E+01_JPRB &
+  &, 0.104859E+01_JPRB, 0.103521E+01_JPRB, 0.102158E+01_JPRB, 0.100773E+01_JPRB &
+  &, 0.993653E+00_JPRB, 0.979385E+00_JPRB, 0.964924E+00_JPRB &
+  &, 0.950283E+00_JPRB, 0.935497E+00_JPRB, 0.920558E+00_JPRB, 0.905479E+00_JPRB &
+  &, 0.890274E+00_JPRB, 0.874978E+00_JPRB, 0.859604E+00_JPRB &
+  &, 0.844118E+00_JPRB, 0.828579E+00_JPRB, 0.812999E+00_JPRB, 0.797366E+00_JPRB &
+  &, 0.781715E+00_JPRB, 0.766057E+00_JPRB, 0.750375E+00_JPRB &
+  &, 0.734733E+00_JPRB, 0.719112E+00_JPRB, 0.703492E+00_JPRB, 0.687966E+00_JPRB &
+  &, 0.672454E+00_JPRB, 0.657050E+00_JPRB, 0.641700E+00_JPRB &
+  &, 0.626438E+00_JPRB, 0.611299E+00_JPRB, 0.596255E+00_JPRB, 0.581339E+00_JPRB &
+  &, 0.566519E+00_JPRB, 0.551862E+00_JPRB, 0.537368E+00_JPRB &
+  &, 0.523000E+00_JPRB, 0.508790E+00_JPRB, 0.494771E+00_JPRB, 0.480938E+00_JPRB &
+  &, 0.467247E+00_JPRB, 0.453767E+00_JPRB, 0.440490E+00_JPRB &
+  &, 0.427408E+00_JPRB, 0.414508E+00_JPRB, 0.401861E+00_JPRB, 0.389414E+00_JPRB &
+  &, 0.377152E+00_JPRB, 0.365144E+00_JPRB, 0.353333E+00_JPRB &
+  &, 0.341788E+00_JPRB, 0.330446E+00_JPRB, 0.319332E+00_JPRB, 0.308471E+00_JPRB &
+  &, 0.297842E+00_JPRB, 0.287421E+00_JPRB, 0.277278E+00_JPRB &
+  &, 0.267339E+00_JPRB, 0.257677E+00_JPRB, 0.248212E+00_JPRB, 0.239017E+00_JPRB &
+  &, 0.230007E+00_JPRB, 0.221256E+00_JPRB, 0.212784E+00_JPRB &
+  &, 0.204503E+00_JPRB, 0.196485E+00_JPRB, 0.188637E+00_JPRB, 0.181032E+00_JPRB &
+  &, 0.173689E+00_JPRB, 0.166565E+00_JPRB, 0.159619E+00_JPRB &
+  &, 0.152924E+00_JPRB, 0.146437E+00_JPRB, 0.140172E+00_JPRB, 0.134080E+00_JPRB &
+  &, 0.128239E+00_JPRB, 0.122599E+00_JPRB, 0.117107E+00_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART103',1,ZHOOK_HANDLE)
+END SUBROUTINE PART103
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART104
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART104',0,ZHOOK_HANDLE)
+
+XCW( 722, :) = (/ &
+  &  0.105651E+01_JPRB, 0.106988E+01_JPRB, 0.108293E+01_JPRB, 0.109565E+01_JPRB &
+  &, 0.110802E+01_JPRB, 0.112005E+01_JPRB, 0.113172E+01_JPRB &
+  &, 0.114302E+01_JPRB, 0.115395E+01_JPRB, 0.116449E+01_JPRB, 0.117464E+01_JPRB &
+  &, 0.118439E+01_JPRB, 0.119372E+01_JPRB, 0.120264E+01_JPRB &
+  &, 0.121114E+01_JPRB, 0.121920E+01_JPRB, 0.122683E+01_JPRB, 0.123401E+01_JPRB &
+  &, 0.124073E+01_JPRB, 0.124700E+01_JPRB, 0.125280E+01_JPRB &
+  &, 0.125813E+01_JPRB, 0.126299E+01_JPRB, 0.126736E+01_JPRB, 0.127125E+01_JPRB &
+  &, 0.127465E+01_JPRB, 0.127756E+01_JPRB, 0.127998E+01_JPRB &
+  &, 0.128189E+01_JPRB, 0.128331E+01_JPRB, 0.128422E+01_JPRB, 0.128463E+01_JPRB &
+  &, 0.128453E+01_JPRB, 0.128393E+01_JPRB, 0.128284E+01_JPRB &
+  &, 0.128124E+01_JPRB, 0.127912E+01_JPRB, 0.127653E+01_JPRB, 0.127344E+01_JPRB &
+  &, 0.126984E+01_JPRB, 0.126577E+01_JPRB, 0.126121E+01_JPRB &
+  &, 0.125618E+01_JPRB, 0.125067E+01_JPRB, 0.124470E+01_JPRB, 0.123826E+01_JPRB &
+  &, 0.123137E+01_JPRB, 0.122405E+01_JPRB, 0.121628E+01_JPRB &
+  &, 0.120803E+01_JPRB, 0.119946E+01_JPRB, 0.119044E+01_JPRB, 0.118100E+01_JPRB &
+  &, 0.117119E+01_JPRB, 0.116099E+01_JPRB, 0.115042E+01_JPRB &
+  &, 0.113950E+01_JPRB, 0.112823E+01_JPRB, 0.111662E+01_JPRB, 0.110470E+01_JPRB &
+  &, 0.109246E+01_JPRB, 0.107993E+01_JPRB, 0.106712E+01_JPRB &
+  &, 0.105402E+01_JPRB, 0.104068E+01_JPRB, 0.102708E+01_JPRB, 0.101326E+01_JPRB &
+  &, 0.999214E+00_JPRB, 0.984965E+00_JPRB, 0.970540E+00_JPRB &
+  &, 0.955913E+00_JPRB, 0.941138E+00_JPRB, 0.926207E+00_JPRB, 0.911156E+00_JPRB &
+  &, 0.895976E+00_JPRB, 0.880680E+00_JPRB, 0.865302E+00_JPRB &
+  &, 0.849833E+00_JPRB, 0.834284E+00_JPRB, 0.818692E+00_JPRB, 0.803067E+00_JPRB &
+  &, 0.787396E+00_JPRB, 0.771714E+00_JPRB, 0.756031E+00_JPRB &
+  &, 0.740358E+00_JPRB, 0.724702E+00_JPRB, 0.709071E+00_JPRB, 0.693503E+00_JPRB &
+  &, 0.677973E+00_JPRB, 0.662518E+00_JPRB, 0.647143E+00_JPRB &
+  &, 0.631853E+00_JPRB, 0.616682E+00_JPRB, 0.601570E+00_JPRB, 0.586615E+00_JPRB &
+  &, 0.571785E+00_JPRB, 0.557082E+00_JPRB, 0.542503E+00_JPRB &
+  &, 0.528080E+00_JPRB, 0.513848E+00_JPRB, 0.499766E+00_JPRB, 0.485829E+00_JPRB &
+  &, 0.472106E+00_JPRB, 0.458590E+00_JPRB, 0.445234E+00_JPRB &
+  &, 0.432068E+00_JPRB, 0.419121E+00_JPRB, 0.406383E+00_JPRB, 0.393840E+00_JPRB &
+  &, 0.381520E+00_JPRB, 0.369451E+00_JPRB, 0.357574E+00_JPRB &
+  &, 0.345871E+00_JPRB, 0.334547E+00_JPRB, 0.323357E+00_JPRB, 0.312417E+00_JPRB &
+  &, 0.301705E+00_JPRB, 0.291196E+00_JPRB, 0.280962E+00_JPRB &
+  &, 0.270979E+00_JPRB, 0.261219E+00_JPRB, 0.251652E+00_JPRB, 0.242402E+00_JPRB &
+  &, 0.233336E+00_JPRB, 0.224526E+00_JPRB, 0.215937E+00_JPRB &
+  &, 0.207591E+00_JPRB, 0.199449E+00_JPRB, 0.191586E+00_JPRB, 0.183907E+00_JPRB &
+  &, 0.176486E+00_JPRB, 0.169283E+00_JPRB, 0.162254E+00_JPRB &
+  &, 0.155474E+00_JPRB, 0.148898E+00_JPRB, 0.142541E+00_JPRB, 0.136418E+00_JPRB &
+  &, 0.130479E+00_JPRB, 0.124739E+00_JPRB, 0.119210E+00_JPRB/)
+XCW( 723, :) = (/ &
+  &  0.105682E+01_JPRB, 0.107027E+01_JPRB, 0.108340E+01_JPRB, 0.109620E+01_JPRB &
+  &, 0.110866E+01_JPRB, 0.112078E+01_JPRB, 0.113253E+01_JPRB &
+  &, 0.114392E+01_JPRB, 0.115494E+01_JPRB, 0.116557E+01_JPRB, 0.117581E+01_JPRB &
+  &, 0.118564E+01_JPRB, 0.119507E+01_JPRB, 0.120408E+01_JPRB &
+  &, 0.121267E+01_JPRB, 0.122083E+01_JPRB, 0.122855E+01_JPRB, 0.123582E+01_JPRB &
+  &, 0.124264E+01_JPRB, 0.124900E+01_JPRB, 0.125490E+01_JPRB &
+  &, 0.126033E+01_JPRB, 0.126528E+01_JPRB, 0.126975E+01_JPRB, 0.127373E+01_JPRB &
+  &, 0.127723E+01_JPRB, 0.128023E+01_JPRB, 0.128274E+01_JPRB &
+  &, 0.128475E+01_JPRB, 0.128626E+01_JPRB, 0.128727E+01_JPRB, 0.128777E+01_JPRB &
+  &, 0.128777E+01_JPRB, 0.128727E+01_JPRB, 0.128626E+01_JPRB &
+  &, 0.128474E+01_JPRB, 0.128273E+01_JPRB, 0.128022E+01_JPRB, 0.127722E+01_JPRB &
+  &, 0.127372E+01_JPRB, 0.126972E+01_JPRB, 0.126525E+01_JPRB &
+  &, 0.126030E+01_JPRB, 0.125488E+01_JPRB, 0.124898E+01_JPRB, 0.124264E+01_JPRB &
+  &, 0.123582E+01_JPRB, 0.122857E+01_JPRB, 0.122088E+01_JPRB &
+  &, 0.121274E+01_JPRB, 0.120420E+01_JPRB, 0.119524E+01_JPRB, 0.118587E+01_JPRB &
+  &, 0.117613E+01_JPRB, 0.116599E+01_JPRB, 0.115548E+01_JPRB &
+  &, 0.114462E+01_JPRB, 0.113340E+01_JPRB, 0.112184E+01_JPRB, 0.110998E+01_JPRB &
+  &, 0.109779E+01_JPRB, 0.108530E+01_JPRB, 0.107253E+01_JPRB &
+  &, 0.105948E+01_JPRB, 0.104617E+01_JPRB, 0.103261E+01_JPRB, 0.101882E+01_JPRB &
+  &, 0.100482E+01_JPRB, 0.990585E+00_JPRB, 0.976178E+00_JPRB &
+  &, 0.961586E+00_JPRB, 0.946823E+00_JPRB, 0.931923E+00_JPRB, 0.916878E+00_JPRB &
+  &, 0.901701E+00_JPRB, 0.886405E+00_JPRB, 0.871024E+00_JPRB &
+  &, 0.855549E+00_JPRB, 0.840015E+00_JPRB, 0.824434E+00_JPRB, 0.808794E+00_JPRB &
+  &, 0.793103E+00_JPRB, 0.777424E+00_JPRB, 0.761715E+00_JPRB &
+  &, 0.746039E+00_JPRB, 0.730349E+00_JPRB, 0.714708E+00_JPRB, 0.699098E+00_JPRB &
+  &, 0.683552E+00_JPRB, 0.668046E+00_JPRB, 0.652648E+00_JPRB &
+  &, 0.637331E+00_JPRB, 0.622097E+00_JPRB, 0.606950E+00_JPRB, 0.591957E+00_JPRB &
+  &, 0.577052E+00_JPRB, 0.562302E+00_JPRB, 0.547673E+00_JPRB &
+  &, 0.533232E+00_JPRB, 0.518906E+00_JPRB, 0.504762E+00_JPRB, 0.490796E+00_JPRB &
+  &, 0.477002E+00_JPRB, 0.463412E+00_JPRB, 0.449978E+00_JPRB &
+  &, 0.436769E+00_JPRB, 0.423776E+00_JPRB, 0.410947E+00_JPRB, 0.398350E+00_JPRB &
+  &, 0.385973E+00_JPRB, 0.373801E+00_JPRB, 0.361860E+00_JPRB &
+  &, 0.350133E+00_JPRB, 0.338647E+00_JPRB, 0.327382E+00_JPRB, 0.316363E+00_JPRB &
+  &, 0.305567E+00_JPRB, 0.295020E+00_JPRB, 0.284696E+00_JPRB &
+  &, 0.274618E+00_JPRB, 0.264811E+00_JPRB, 0.255194E+00_JPRB, 0.245840E+00_JPRB &
+  &, 0.236665E+00_JPRB, 0.227795E+00_JPRB, 0.219145E+00_JPRB &
+  &, 0.210678E+00_JPRB, 0.202468E+00_JPRB, 0.194534E+00_JPRB, 0.186781E+00_JPRB &
+  &, 0.179284E+00_JPRB, 0.172001E+00_JPRB, 0.164889E+00_JPRB &
+  &, 0.158084E+00_JPRB, 0.151420E+00_JPRB, 0.145035E+00_JPRB, 0.138818E+00_JPRB &
+  &, 0.132784E+00_JPRB, 0.126944E+00_JPRB, 0.121378E+00_JPRB/)
+XCW( 724, :) = (/ &
+  &  0.105713E+01_JPRB, 0.107066E+01_JPRB, 0.108387E+01_JPRB, 0.109676E+01_JPRB &
+  &, 0.110931E+01_JPRB, 0.112150E+01_JPRB, 0.113335E+01_JPRB &
+  &, 0.114482E+01_JPRB, 0.115593E+01_JPRB, 0.116665E+01_JPRB, 0.117698E+01_JPRB &
+  &, 0.118690E+01_JPRB, 0.119642E+01_JPRB, 0.120553E+01_JPRB &
+  &, 0.121421E+01_JPRB, 0.122246E+01_JPRB, 0.123027E+01_JPRB, 0.123764E+01_JPRB &
+  &, 0.124456E+01_JPRB, 0.125101E+01_JPRB, 0.125701E+01_JPRB &
+  &, 0.126253E+01_JPRB, 0.126758E+01_JPRB, 0.127214E+01_JPRB, 0.127622E+01_JPRB &
+  &, 0.127982E+01_JPRB, 0.128292E+01_JPRB, 0.128552E+01_JPRB &
+  &, 0.128762E+01_JPRB, 0.128923E+01_JPRB, 0.129033E+01_JPRB, 0.129093E+01_JPRB &
+  &, 0.129102E+01_JPRB, 0.129061E+01_JPRB, 0.128969E+01_JPRB &
+  &, 0.128827E+01_JPRB, 0.128635E+01_JPRB, 0.128393E+01_JPRB, 0.128101E+01_JPRB &
+  &, 0.127759E+01_JPRB, 0.127370E+01_JPRB, 0.126932E+01_JPRB &
+  &, 0.126444E+01_JPRB, 0.125909E+01_JPRB, 0.125329E+01_JPRB, 0.124701E+01_JPRB &
+  &, 0.124028E+01_JPRB, 0.123310E+01_JPRB, 0.122548E+01_JPRB &
+  &, 0.121743E+01_JPRB, 0.120895E+01_JPRB, 0.120006E+01_JPRB, 0.119077E+01_JPRB &
+  &, 0.118109E+01_JPRB, 0.117100E+01_JPRB, 0.116057E+01_JPRB &
+  &, 0.114976E+01_JPRB, 0.113860E+01_JPRB, 0.112710E+01_JPRB, 0.111527E+01_JPRB &
+  &, 0.110314E+01_JPRB, 0.109069E+01_JPRB, 0.107797E+01_JPRB &
+  &, 0.106496E+01_JPRB, 0.105170E+01_JPRB, 0.103817E+01_JPRB, 0.102441E+01_JPRB &
+  &, 0.101044E+01_JPRB, 0.996246E+00_JPRB, 0.981857E+00_JPRB &
+  &, 0.967280E+00_JPRB, 0.952550E+00_JPRB, 0.937660E+00_JPRB, 0.922622E+00_JPRB &
+  &, 0.907449E+00_JPRB, 0.892177E+00_JPRB, 0.876794E+00_JPRB &
+  &, 0.861338E+00_JPRB, 0.845795E+00_JPRB, 0.830203E+00_JPRB, 0.814546E+00_JPRB &
+  &, 0.798863E+00_JPRB, 0.783162E+00_JPRB, 0.767453E+00_JPRB &
+  &, 0.751720E+00_JPRB, 0.736024E+00_JPRB, 0.720374E+00_JPRB, 0.704634E+00_JPRB &
+  &, 0.689160E+00_JPRB, 0.673636E+00_JPRB, 0.658184E+00_JPRB &
+  &, 0.642840E+00_JPRB, 0.627545E+00_JPRB, 0.612397E+00_JPRB, 0.597333E+00_JPRB &
+  &, 0.582386E+00_JPRB, 0.567592E+00_JPRB, 0.552913E+00_JPRB &
+  &, 0.538419E+00_JPRB, 0.524036E+00_JPRB, 0.509831E+00_JPRB, 0.495800E+00_JPRB &
+  &, 0.481975E+00_JPRB, 0.468312E+00_JPRB, 0.454800E+00_JPRB &
+  &, 0.441550E+00_JPRB, 0.428430E+00_JPRB, 0.415552E+00_JPRB, 0.402903E+00_JPRB &
+  &, 0.390427E+00_JPRB, 0.378194E+00_JPRB, 0.366190E+00_JPRB &
+  &, 0.354396E+00_JPRB, 0.342839E+00_JPRB, 0.331500E+00_JPRB, 0.320402E+00_JPRB &
+  &, 0.309525E+00_JPRB, 0.298892E+00_JPRB, 0.288528E+00_JPRB &
+  &, 0.278358E+00_JPRB, 0.268403E+00_JPRB, 0.258736E+00_JPRB, 0.249277E+00_JPRB &
+  &, 0.240099E+00_JPRB, 0.231118E+00_JPRB, 0.222352E+00_JPRB &
+  &, 0.213876E+00_JPRB, 0.205599E+00_JPRB, 0.197539E+00_JPRB, 0.189713E+00_JPRB &
+  &, 0.182139E+00_JPRB, 0.174778E+00_JPRB, 0.167584E+00_JPRB &
+  &, 0.160694E+00_JPRB, 0.154004E+00_JPRB, 0.147466E+00_JPRB, 0.141219E+00_JPRB &
+  &, 0.135089E+00_JPRB, 0.129215E+00_JPRB, 0.123547E+00_JPRB/)
+XCW( 725, :) = (/ &
+  &  0.105744E+01_JPRB, 0.107105E+01_JPRB, 0.108435E+01_JPRB, 0.109732E+01_JPRB &
+  &, 0.110995E+01_JPRB, 0.112223E+01_JPRB, 0.113416E+01_JPRB &
+  &, 0.114573E+01_JPRB, 0.115692E+01_JPRB, 0.116773E+01_JPRB, 0.117815E+01_JPRB &
+  &, 0.118817E+01_JPRB, 0.119778E+01_JPRB, 0.120698E+01_JPRB &
+  &, 0.121575E+01_JPRB, 0.122410E+01_JPRB, 0.123200E+01_JPRB, 0.123947E+01_JPRB &
+  &, 0.124648E+01_JPRB, 0.125303E+01_JPRB, 0.125912E+01_JPRB &
+  &, 0.126474E+01_JPRB, 0.126987E+01_JPRB, 0.127454E+01_JPRB, 0.127872E+01_JPRB &
+  &, 0.128241E+01_JPRB, 0.128561E+01_JPRB, 0.128831E+01_JPRB &
+  &, 0.129051E+01_JPRB, 0.129220E+01_JPRB, 0.129340E+01_JPRB, 0.129410E+01_JPRB &
+  &, 0.129428E+01_JPRB, 0.129396E+01_JPRB, 0.129314E+01_JPRB &
+  &, 0.129181E+01_JPRB, 0.128998E+01_JPRB, 0.128764E+01_JPRB, 0.128482E+01_JPRB &
+  &, 0.128150E+01_JPRB, 0.127768E+01_JPRB, 0.127338E+01_JPRB &
+  &, 0.126860E+01_JPRB, 0.126334E+01_JPRB, 0.125761E+01_JPRB, 0.125141E+01_JPRB &
+  &, 0.124477E+01_JPRB, 0.123766E+01_JPRB, 0.123011E+01_JPRB &
+  &, 0.122213E+01_JPRB, 0.121373E+01_JPRB, 0.120491E+01_JPRB, 0.119568E+01_JPRB &
+  &, 0.118606E+01_JPRB, 0.117605E+01_JPRB, 0.116567E+01_JPRB &
+  &, 0.115492E+01_JPRB, 0.114382E+01_JPRB, 0.113237E+01_JPRB, 0.112060E+01_JPRB &
+  &, 0.110852E+01_JPRB, 0.109613E+01_JPRB, 0.108343E+01_JPRB &
+  &, 0.107048E+01_JPRB, 0.105724E+01_JPRB, 0.104376E+01_JPRB, 0.103003E+01_JPRB &
+  &, 0.101610E+01_JPRB, 0.100193E+01_JPRB, 0.987556E+00_JPRB &
+  &, 0.973016E+00_JPRB, 0.958299E+00_JPRB, 0.943419E+00_JPRB, 0.928411E+00_JPRB &
+  &, 0.913243E+00_JPRB, 0.897972E+00_JPRB, 0.882611E+00_JPRB &
+  &, 0.867150E+00_JPRB, 0.851600E+00_JPRB, 0.835996E+00_JPRB, 0.820351E+00_JPRB &
+  &, 0.804649E+00_JPRB, 0.788926E+00_JPRB, 0.773219E+00_JPRB &
+  &, 0.757484E+00_JPRB, 0.741755E+00_JPRB, 0.726069E+00_JPRB, 0.710405E+00_JPRB &
+  &, 0.694799E+00_JPRB, 0.679256E+00_JPRB, 0.663782E+00_JPRB &
+  &, 0.648382E+00_JPRB, 0.633057E+00_JPRB, 0.617843E+00_JPRB, 0.602742E+00_JPRB &
+  &, 0.587755E+00_JPRB, 0.572915E+00_JPRB, 0.558188E+00_JPRB &
+  &, 0.543642E+00_JPRB, 0.529203E+00_JPRB, 0.514974E+00_JPRB, 0.500880E+00_JPRB &
+  &, 0.486948E+00_JPRB, 0.473212E+00_JPRB, 0.459702E+00_JPRB &
+  &, 0.446331E+00_JPRB, 0.433167E+00_JPRB, 0.420240E+00_JPRB, 0.407497E+00_JPRB &
+  &, 0.394966E+00_JPRB, 0.382675E+00_JPRB, 0.370564E+00_JPRB &
+  &, 0.358704E+00_JPRB, 0.347077E+00_JPRB, 0.335663E+00_JPRB, 0.324489E+00_JPRB &
+  &, 0.313530E+00_JPRB, 0.302813E+00_JPRB, 0.292360E+00_JPRB &
+  &, 0.282097E+00_JPRB, 0.272096E+00_JPRB, 0.262329E+00_JPRB, 0.252819E+00_JPRB &
+  &, 0.243534E+00_JPRB, 0.234441E+00_JPRB, 0.225668E+00_JPRB &
+  &, 0.217074E+00_JPRB, 0.208730E+00_JPRB, 0.200600E+00_JPRB, 0.192702E+00_JPRB &
+  &, 0.184995E+00_JPRB, 0.177555E+00_JPRB, 0.170339E+00_JPRB &
+  &, 0.163365E+00_JPRB, 0.156588E+00_JPRB, 0.149960E+00_JPRB, 0.143620E+00_JPRB &
+  &, 0.137457E+00_JPRB, 0.131550E+00_JPRB, 0.125781E+00_JPRB/)
+XCW( 726, :) = (/ &
+  &  0.105775E+01_JPRB, 0.107145E+01_JPRB, 0.108482E+01_JPRB, 0.109788E+01_JPRB &
+  &, 0.111059E+01_JPRB, 0.112296E+01_JPRB, 0.113498E+01_JPRB &
+  &, 0.114663E+01_JPRB, 0.115791E+01_JPRB, 0.116881E+01_JPRB, 0.117932E+01_JPRB &
+  &, 0.118943E+01_JPRB, 0.119914E+01_JPRB, 0.120843E+01_JPRB &
+  &, 0.121730E+01_JPRB, 0.122574E+01_JPRB, 0.123374E+01_JPRB, 0.124130E+01_JPRB &
+  &, 0.124840E+01_JPRB, 0.125505E+01_JPRB, 0.126124E+01_JPRB &
+  &, 0.126695E+01_JPRB, 0.127219E+01_JPRB, 0.127695E+01_JPRB, 0.128123E+01_JPRB &
+  &, 0.128501E+01_JPRB, 0.128830E+01_JPRB, 0.129110E+01_JPRB &
+  &, 0.129340E+01_JPRB, 0.129519E+01_JPRB, 0.129648E+01_JPRB, 0.129727E+01_JPRB &
+  &, 0.129755E+01_JPRB, 0.129733E+01_JPRB, 0.129660E+01_JPRB &
+  &, 0.129536E+01_JPRB, 0.129362E+01_JPRB, 0.129138E+01_JPRB, 0.128865E+01_JPRB &
+  &, 0.128541E+01_JPRB, 0.128168E+01_JPRB, 0.127747E+01_JPRB &
+  &, 0.127277E+01_JPRB, 0.126760E+01_JPRB, 0.126195E+01_JPRB, 0.125584E+01_JPRB &
+  &, 0.124926E+01_JPRB, 0.124224E+01_JPRB, 0.123477E+01_JPRB &
+  &, 0.122686E+01_JPRB, 0.121851E+01_JPRB, 0.120978E+01_JPRB, 0.120062E+01_JPRB &
+  &, 0.119102E+01_JPRB, 0.118112E+01_JPRB, 0.117080E+01_JPRB &
+  &, 0.116011E+01_JPRB, 0.114907E+01_JPRB, 0.113768E+01_JPRB, 0.112596E+01_JPRB &
+  &, 0.111392E+01_JPRB, 0.110158E+01_JPRB, 0.108893E+01_JPRB &
+  &, 0.107601E+01_JPRB, 0.106283E+01_JPRB, 0.104939E+01_JPRB, 0.103569E+01_JPRB &
+  &, 0.102178E+01_JPRB, 0.100765E+01_JPRB, 0.993297E+00_JPRB &
+  &, 0.978773E+00_JPRB, 0.964091E+00_JPRB, 0.949223E+00_JPRB, 0.934223E+00_JPRB &
+  &, 0.919082E+00_JPRB, 0.903814E+00_JPRB, 0.888453E+00_JPRB &
+  &, 0.872988E+00_JPRB, 0.857454E+00_JPRB, 0.841840E+00_JPRB, 0.826181E+00_JPRB &
+  &, 0.810487E+00_JPRB, 0.794770E+00_JPRB, 0.779012E+00_JPRB &
+  &, 0.763276E+00_JPRB, 0.747544E+00_JPRB, 0.731822E+00_JPRB, 0.716148E+00_JPRB &
+  &, 0.700498E+00_JPRB, 0.684907E+00_JPRB, 0.669412E+00_JPRB &
+  &, 0.653955E+00_JPRB, 0.638634E+00_JPRB, 0.623355E+00_JPRB, 0.608218E+00_JPRB &
+  &, 0.593191E+00_JPRB, 0.578308E+00_JPRB, 0.563534E+00_JPRB &
+  &, 0.548901E+00_JPRB, 0.534442E+00_JPRB, 0.520118E+00_JPRB, 0.505959E+00_JPRB &
+  &, 0.491998E+00_JPRB, 0.478229E+00_JPRB, 0.464604E+00_JPRB &
+  &, 0.451192E+00_JPRB, 0.437984E+00_JPRB, 0.424970E+00_JPRB, 0.412134E+00_JPRB &
+  &, 0.399548E+00_JPRB, 0.387155E+00_JPRB, 0.374673E+00_JPRB &
+  &, 0.363056E+00_JPRB, 0.351360E+00_JPRB, 0.339874E+00_JPRB, 0.328622E+00_JPRB &
+  &, 0.317584E+00_JPRB, 0.306782E+00_JPRB, 0.296241E+00_JPRB &
+  &, 0.285936E+00_JPRB, 0.275840E+00_JPRB, 0.265974E+00_JPRB, 0.256360E+00_JPRB &
+  &, 0.247021E+00_JPRB, 0.237871E+00_JPRB, 0.228984E+00_JPRB &
+  &, 0.220327E+00_JPRB, 0.211861E+00_JPRB, 0.203662E+00_JPRB, 0.195691E+00_JPRB &
+  &, 0.187968E+00_JPRB, 0.180450E+00_JPRB, 0.173154E+00_JPRB &
+  &, 0.166036E+00_JPRB, 0.159172E+00_JPRB, 0.152517E+00_JPRB, 0.146084E+00_JPRB &
+  &, 0.139890E+00_JPRB, 0.133820E+00_JPRB, 0.128015E+00_JPRB/)
+XCW( 727, :) = (/ &
+  &  0.105806E+01_JPRB, 0.107184E+01_JPRB, 0.108530E+01_JPRB, 0.109844E+01_JPRB &
+  &, 0.111124E+01_JPRB, 0.112370E+01_JPRB, 0.113580E+01_JPRB &
+  &, 0.114754E+01_JPRB, 0.115891E+01_JPRB, 0.116990E+01_JPRB, 0.118049E+01_JPRB &
+  &, 0.119070E+01_JPRB, 0.120050E+01_JPRB, 0.120989E+01_JPRB &
+  &, 0.121885E+01_JPRB, 0.122738E+01_JPRB, 0.123548E+01_JPRB, 0.124313E+01_JPRB &
+  &, 0.125034E+01_JPRB, 0.125708E+01_JPRB, 0.126336E+01_JPRB &
+  &, 0.126917E+01_JPRB, 0.127451E+01_JPRB, 0.127937E+01_JPRB, 0.128374E+01_JPRB &
+  &, 0.128762E+01_JPRB, 0.129101E+01_JPRB, 0.129391E+01_JPRB &
+  &, 0.129630E+01_JPRB, 0.129819E+01_JPRB, 0.129958E+01_JPRB, 0.130046E+01_JPRB &
+  &, 0.130084E+01_JPRB, 0.130071E+01_JPRB, 0.130007E+01_JPRB &
+  &, 0.129893E+01_JPRB, 0.129728E+01_JPRB, 0.129513E+01_JPRB, 0.129248E+01_JPRB &
+  &, 0.128933E+01_JPRB, 0.128570E+01_JPRB, 0.128157E+01_JPRB &
+  &, 0.127696E+01_JPRB, 0.127187E+01_JPRB, 0.126630E+01_JPRB, 0.126027E+01_JPRB &
+  &, 0.125377E+01_JPRB, 0.124683E+01_JPRB, 0.123944E+01_JPRB &
+  &, 0.123161E+01_JPRB, 0.122335E+01_JPRB, 0.121467E+01_JPRB, 0.120557E+01_JPRB &
+  &, 0.119609E+01_JPRB, 0.118621E+01_JPRB, 0.117595E+01_JPRB &
+  &, 0.116532E+01_JPRB, 0.115435E+01_JPRB, 0.114302E+01_JPRB, 0.113134E+01_JPRB &
+  &, 0.111935E+01_JPRB, 0.110706E+01_JPRB, 0.109447E+01_JPRB &
+  &, 0.108159E+01_JPRB, 0.106843E+01_JPRB, 0.105504E+01_JPRB, 0.104138E+01_JPRB &
+  &, 0.102750E+01_JPRB, 0.101339E+01_JPRB, 0.999079E+00_JPRB &
+  &, 0.984572E+00_JPRB, 0.969905E+00_JPRB, 0.955070E+00_JPRB, 0.940079E+00_JPRB &
+  &, 0.924945E+00_JPRB, 0.909703E+00_JPRB, 0.894342E+00_JPRB &
+  &, 0.878873E+00_JPRB, 0.863334E+00_JPRB, 0.847735E+00_JPRB, 0.832062E+00_JPRB &
+  &, 0.816352E+00_JPRB, 0.800615E+00_JPRB, 0.784860E+00_JPRB &
+  &, 0.769096E+00_JPRB, 0.753361E+00_JPRB, 0.737604E+00_JPRB, 0.721920E+00_JPRB &
+  &, 0.706226E+00_JPRB, 0.690619E+00_JPRB, 0.675072E+00_JPRB &
+  &, 0.659623E+00_JPRB, 0.644210E+00_JPRB, 0.628933E+00_JPRB, 0.613728E+00_JPRB &
+  &, 0.598662E+00_JPRB, 0.583736E+00_JPRB, 0.568915E+00_JPRB &
+  &, 0.554232E+00_JPRB, 0.539718E+00_JPRB, 0.525335E+00_JPRB, 0.511114E+00_JPRB &
+  &, 0.497086E+00_JPRB, 0.483245E+00_JPRB, 0.469584E+00_JPRB &
+  &, 0.456094E+00_JPRB, 0.442802E+00_JPRB, 0.429699E+00_JPRB, 0.416855E+00_JPRB &
+  &, 0.404173E+00_JPRB, 0.391723E+00_JPRB, 0.379489E+00_JPRB &
+  &, 0.367453E+00_JPRB, 0.355689E+00_JPRB, 0.344130E+00_JPRB, 0.332803E+00_JPRB &
+  &, 0.321684E+00_JPRB, 0.310799E+00_JPRB, 0.300171E+00_JPRB &
+  &, 0.289775E+00_JPRB, 0.279634E+00_JPRB, 0.269670E+00_JPRB, 0.260006E+00_JPRB &
+  &, 0.250561E+00_JPRB, 0.241355E+00_JPRB, 0.232355E+00_JPRB &
+  &, 0.223580E+00_JPRB, 0.215104E+00_JPRB, 0.206780E+00_JPRB, 0.198738E+00_JPRB &
+  &, 0.190940E+00_JPRB, 0.183345E+00_JPRB, 0.175969E+00_JPRB &
+  &, 0.168768E+00_JPRB, 0.161879E+00_JPRB, 0.155135E+00_JPRB, 0.148612E+00_JPRB &
+  &, 0.142323E+00_JPRB, 0.136220E+00_JPRB, 0.130315E+00_JPRB/)
+XCW( 728, :) = (/ &
+  &  0.105837E+01_JPRB, 0.107223E+01_JPRB, 0.108578E+01_JPRB, 0.109900E+01_JPRB &
+  &, 0.111188E+01_JPRB, 0.112443E+01_JPRB, 0.113662E+01_JPRB &
+  &, 0.114845E+01_JPRB, 0.115991E+01_JPRB, 0.117099E+01_JPRB, 0.118168E+01_JPRB &
+  &, 0.119198E+01_JPRB, 0.120187E+01_JPRB, 0.121135E+01_JPRB &
+  &, 0.122040E+01_JPRB, 0.122903E+01_JPRB, 0.123722E+01_JPRB, 0.124497E+01_JPRB &
+  &, 0.125227E+01_JPRB, 0.125911E+01_JPRB, 0.126549E+01_JPRB &
+  &, 0.127140E+01_JPRB, 0.127683E+01_JPRB, 0.128179E+01_JPRB, 0.128626E+01_JPRB &
+  &, 0.129024E+01_JPRB, 0.129373E+01_JPRB, 0.129672E+01_JPRB &
+  &, 0.129921E+01_JPRB, 0.130120E+01_JPRB, 0.130268E+01_JPRB, 0.130366E+01_JPRB &
+  &, 0.130413E+01_JPRB, 0.130409E+01_JPRB, 0.130355E+01_JPRB &
+  &, 0.130250E+01_JPRB, 0.130094E+01_JPRB, 0.129889E+01_JPRB, 0.129634E+01_JPRB &
+  &, 0.129328E+01_JPRB, 0.128972E+01_JPRB, 0.128535E+01_JPRB &
+  &, 0.128116E+01_JPRB, 0.127616E+01_JPRB, 0.127067E+01_JPRB, 0.126472E+01_JPRB &
+  &, 0.125830E+01_JPRB, 0.125144E+01_JPRB, 0.124413E+01_JPRB &
+  &, 0.123638E+01_JPRB, 0.122819E+01_JPRB, 0.121958E+01_JPRB, 0.121056E+01_JPRB &
+  &, 0.120115E+01_JPRB, 0.119133E+01_JPRB, 0.118113E+01_JPRB &
+  &, 0.117056E+01_JPRB, 0.115964E+01_JPRB, 0.114837E+01_JPRB, 0.113675E+01_JPRB &
+  &, 0.112482E+01_JPRB, 0.111257E+01_JPRB, 0.110003E+01_JPRB &
+  &, 0.108719E+01_JPRB, 0.107409E+01_JPRB, 0.106071E+01_JPRB, 0.104710E+01_JPRB &
+  &, 0.103324E+01_JPRB, 0.101917E+01_JPRB, 0.100488E+01_JPRB &
+  &, 0.990413E+00_JPRB, 0.975762E+00_JPRB, 0.960939E+00_JPRB, 0.945958E+00_JPRB &
+  &, 0.930853E+00_JPRB, 0.915615E+00_JPRB, 0.900254E+00_JPRB &
+  &, 0.884808E+00_JPRB, 0.869263E+00_JPRB, 0.853655E+00_JPRB, 0.837996E+00_JPRB &
+  &, 0.822270E+00_JPRB, 0.806540E+00_JPRB, 0.790762E+00_JPRB &
+  &, 0.774972E+00_JPRB, 0.759206E+00_JPRB, 0.743443E+00_JPRB, 0.727721E+00_JPRB &
+  &, 0.712015E+00_JPRB, 0.696392E+00_JPRB, 0.680795E+00_JPRB &
+  &, 0.665291E+00_JPRB, 0.649883E+00_JPRB, 0.634543E+00_JPRB, 0.619304E+00_JPRB &
+  &, 0.604200E+00_JPRB, 0.589198E+00_JPRB, 0.574331E+00_JPRB &
+  &, 0.559598E+00_JPRB, 0.545031E+00_JPRB, 0.530590E+00_JPRB, 0.516344E+00_JPRB &
+  &, 0.502250E+00_JPRB, 0.488301E+00_JPRB, 0.474565E+00_JPRB &
+  &, 0.461035E+00_JPRB, 0.447702E+00_JPRB, 0.434512E+00_JPRB, 0.421576E+00_JPRB &
+  &, 0.408841E+00_JPRB, 0.396334E+00_JPRB, 0.383995E+00_JPRB &
+  &, 0.371896E+00_JPRB, 0.360063E+00_JPRB, 0.348433E+00_JPRB, 0.336983E+00_JPRB &
+  &, 0.325833E+00_JPRB, 0.314865E+00_JPRB, 0.304150E+00_JPRB &
+  &, 0.293664E+00_JPRB, 0.283429E+00_JPRB, 0.273418E+00_JPRB, 0.263652E+00_JPRB &
+  &, 0.254154E+00_JPRB, 0.244839E+00_JPRB, 0.235780E+00_JPRB &
+  &, 0.226943E+00_JPRB, 0.218347E+00_JPRB, 0.210012E+00_JPRB, 0.201842E+00_JPRB &
+  &, 0.193971E+00_JPRB, 0.186240E+00_JPRB, 0.178784E+00_JPRB &
+  &, 0.171560E+00_JPRB, 0.164586E+00_JPRB, 0.157754E+00_JPRB, 0.151202E+00_JPRB &
+  &, 0.144820E+00_JPRB, 0.138620E+00_JPRB, 0.132681E+00_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART104',1,ZHOOK_HANDLE)
+END SUBROUTINE PART104
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART105
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART105',0,ZHOOK_HANDLE)
+
+XCW( 729, :) = (/ &
+  &  0.105869E+01_JPRB, 0.107263E+01_JPRB, 0.108626E+01_JPRB, 0.109956E+01_JPRB &
+  &, 0.111253E+01_JPRB, 0.112516E+01_JPRB, 0.113744E+01_JPRB &
+  &, 0.114936E+01_JPRB, 0.116091E+01_JPRB, 0.117208E+01_JPRB, 0.118287E+01_JPRB &
+  &, 0.119325E+01_JPRB, 0.120324E+01_JPRB, 0.121281E+01_JPRB &
+  &, 0.122196E+01_JPRB, 0.123069E+01_JPRB, 0.123897E+01_JPRB, 0.124682E+01_JPRB &
+  &, 0.125421E+01_JPRB, 0.126115E+01_JPRB, 0.126763E+01_JPRB &
+  &, 0.127363E+01_JPRB, 0.127917E+01_JPRB, 0.128422E+01_JPRB, 0.128878E+01_JPRB &
+  &, 0.129287E+01_JPRB, 0.129645E+01_JPRB, 0.129954E+01_JPRB &
+  &, 0.130213E+01_JPRB, 0.130421E+01_JPRB, 0.130579E+01_JPRB, 0.130687E+01_JPRB &
+  &, 0.130744E+01_JPRB, 0.130750E+01_JPRB, 0.130705E+01_JPRB &
+  &, 0.130609E+01_JPRB, 0.130464E+01_JPRB, 0.130266E+01_JPRB, 0.130020E+01_JPRB &
+  &, 0.129724E+01_JPRB, 0.129377E+01_JPRB, 0.128982E+01_JPRB &
+  &, 0.128539E+01_JPRB, 0.128046E+01_JPRB, 0.127507E+01_JPRB, 0.126920E+01_JPRB &
+  &, 0.126286E+01_JPRB, 0.125607E+01_JPRB, 0.124884E+01_JPRB &
+  &, 0.124116E+01_JPRB, 0.123306E+01_JPRB, 0.122451E+01_JPRB, 0.121557E+01_JPRB &
+  &, 0.120622E+01_JPRB, 0.119646E+01_JPRB, 0.118634E+01_JPRB &
+  &, 0.117583E+01_JPRB, 0.116497E+01_JPRB, 0.115374E+01_JPRB, 0.114219E+01_JPRB &
+  &, 0.113032E+01_JPRB, 0.111811E+01_JPRB, 0.110560E+01_JPRB &
+  &, 0.109282E+01_JPRB, 0.107976E+01_JPRB, 0.106643E+01_JPRB, 0.105285E+01_JPRB &
+  &, 0.103904E+01_JPRB, 0.102498E+01_JPRB, 0.101073E+01_JPRB &
+  &, 0.996276E+00_JPRB, 0.981662E+00_JPRB, 0.966852E+00_JPRB, 0.951904E+00_JPRB &
+  &, 0.936784E+00_JPRB, 0.921574E+00_JPRB, 0.906215E+00_JPRB &
+  &, 0.890767E+00_JPRB, 0.875241E+00_JPRB, 0.859626E+00_JPRB, 0.843955E+00_JPRB &
+  &, 0.828240E+00_JPRB, 0.812465E+00_JPRB, 0.796692E+00_JPRB &
+  &, 0.780904E+00_JPRB, 0.765108E+00_JPRB, 0.749312E+00_JPRB, 0.733581E+00_JPRB &
+  &, 0.717864E+00_JPRB, 0.702195E+00_JPRB, 0.686580E+00_JPRB &
+  &, 0.671022E+00_JPRB, 0.655557E+00_JPRB, 0.640186E+00_JPRB, 0.624914E+00_JPRB &
+  &, 0.609772E+00_JPRB, 0.594695E+00_JPRB, 0.579783E+00_JPRB &
+  &, 0.564964E+00_JPRB, 0.550379E+00_JPRB, 0.535918E+00_JPRB, 0.521574E+00_JPRB &
+  &, 0.507414E+00_JPRB, 0.493434E+00_JPRB, 0.479665E+00_JPRB &
+  &, 0.466017E+00_JPRB, 0.452601E+00_JPRB, 0.439407E+00_JPRB, 0.426381E+00_JPRB &
+  &, 0.413551E+00_JPRB, 0.400988E+00_JPRB, 0.388590E+00_JPRB &
+  &, 0.376428E+00_JPRB, 0.364483E+00_JPRB, 0.352782E+00_JPRB, 0.341258E+00_JPRB &
+  &, 0.330029E+00_JPRB, 0.318979E+00_JPRB, 0.308178E+00_JPRB &
+  &, 0.297652E+00_JPRB, 0.287324E+00_JPRB, 0.277216E+00_JPRB, 0.267350E+00_JPRB &
+  &, 0.257747E+00_JPRB, 0.248376E+00_JPRB, 0.239259E+00_JPRB &
+  &, 0.230306E+00_JPRB, 0.221646E+00_JPRB, 0.213187E+00_JPRB, 0.205004E+00_JPRB &
+  &, 0.197001E+00_JPRB, 0.189253E+00_JPRB, 0.181719E+00_JPRB &
+  &, 0.174414E+00_JPRB, 0.167294E+00_JPRB, 0.160435E+00_JPRB, 0.153792E+00_JPRB &
+  &, 0.147316E+00_JPRB, 0.141084E+00_JPRB, 0.135046E+00_JPRB/)
+XCW( 730, :) = (/ &
+  &  0.105900E+01_JPRB, 0.107302E+01_JPRB, 0.108674E+01_JPRB, 0.110012E+01_JPRB &
+  &, 0.111318E+01_JPRB, 0.112590E+01_JPRB, 0.113827E+01_JPRB &
+  &, 0.115028E+01_JPRB, 0.116191E+01_JPRB, 0.117318E+01_JPRB, 0.118405E+01_JPRB &
+  &, 0.119453E+01_JPRB, 0.120461E+01_JPRB, 0.121428E+01_JPRB &
+  &, 0.122352E+01_JPRB, 0.123234E+01_JPRB, 0.124073E+01_JPRB, 0.124867E+01_JPRB &
+  &, 0.125616E+01_JPRB, 0.126320E+01_JPRB, 0.126977E+01_JPRB &
+  &, 0.127588E+01_JPRB, 0.128151E+01_JPRB, 0.128666E+01_JPRB, 0.129132E+01_JPRB &
+  &, 0.129550E+01_JPRB, 0.129918E+01_JPRB, 0.130237E+01_JPRB &
+  &, 0.130506E+01_JPRB, 0.130724E+01_JPRB, 0.130892E+01_JPRB, 0.131009E+01_JPRB &
+  &, 0.131075E+01_JPRB, 0.131091E+01_JPRB, 0.131056E+01_JPRB &
+  &, 0.130970E+01_JPRB, 0.130833E+01_JPRB, 0.130646E+01_JPRB, 0.130409E+01_JPRB &
+  &, 0.130120E+01_JPRB, 0.129784E+01_JPRB, 0.129397E+01_JPRB &
+  &, 0.128962E+01_JPRB, 0.128478E+01_JPRB, 0.127948E+01_JPRB, 0.127369E+01_JPRB &
+  &, 0.126744E+01_JPRB, 0.126073E+01_JPRB, 0.125357E+01_JPRB &
+  &, 0.124597E+01_JPRB, 0.123793E+01_JPRB, 0.122948E+01_JPRB, 0.122059E+01_JPRB &
+  &, 0.121132E+01_JPRB, 0.120163E+01_JPRB, 0.119156E+01_JPRB &
+  &, 0.118113E+01_JPRB, 0.117032E+01_JPRB, 0.115916E+01_JPRB, 0.114765E+01_JPRB &
+  &, 0.113583E+01_JPRB, 0.112368E+01_JPRB, 0.111123E+01_JPRB &
+  &, 0.109848E+01_JPRB, 0.108546E+01_JPRB, 0.107218E+01_JPRB, 0.105862E+01_JPRB &
+  &, 0.104483E+01_JPRB, 0.103084E+01_JPRB, 0.101661E+01_JPRB &
+  &, 0.100218E+01_JPRB, 0.987583E+00_JPRB, 0.972788E+00_JPRB, 0.957850E+00_JPRB &
+  &, 0.942761E+00_JPRB, 0.927556E+00_JPRB, 0.912223E+00_JPRB &
+  &, 0.896774E+00_JPRB, 0.881245E+00_JPRB, 0.865647E+00_JPRB, 0.849966E+00_JPRB &
+  &, 0.834237E+00_JPRB, 0.818471E+00_JPRB, 0.802676E+00_JPRB &
+  &, 0.786863E+00_JPRB, 0.771038E+00_JPRB, 0.755238E+00_JPRB, 0.739470E+00_JPRB &
+  &, 0.723712E+00_JPRB, 0.708029E+00_JPRB, 0.692334E+00_JPRB &
+  &, 0.676817E+00_JPRB, 0.661294E+00_JPRB, 0.645895E+00_JPRB, 0.630590E+00_JPRB &
+  &, 0.615379E+00_JPRB, 0.600295E+00_JPRB, 0.585304E+00_JPRB &
+  &, 0.570473E+00_JPRB, 0.555801E+00_JPRB, 0.541246E+00_JPRB, 0.526879E+00_JPRB &
+  &, 0.512655E+00_JPRB, 0.498645E+00_JPRB, 0.484764E+00_JPRB &
+  &, 0.471079E+00_JPRB, 0.457583E+00_JPRB, 0.444303E+00_JPRB, 0.431229E+00_JPRB &
+  &, 0.418347E+00_JPRB, 0.405686E+00_JPRB, 0.393229E+00_JPRB &
+  &, 0.380959E+00_JPRB, 0.368948E+00_JPRB, 0.357177E+00_JPRB, 0.345579E+00_JPRB &
+  &, 0.334273E+00_JPRB, 0.323141E+00_JPRB, 0.312256E+00_JPRB &
+  &, 0.301641E+00_JPRB, 0.291220E+00_JPRB, 0.281066E+00_JPRB, 0.271152E+00_JPRB &
+  &, 0.261445E+00_JPRB, 0.251967E+00_JPRB, 0.242738E+00_JPRB &
+  &, 0.233779E+00_JPRB, 0.225000E+00_JPRB, 0.216475E+00_JPRB, 0.208166E+00_JPRB &
+  &, 0.200032E+00_JPRB, 0.192266E+00_JPRB, 0.184653E+00_JPRB &
+  &, 0.177267E+00_JPRB, 0.170124E+00_JPRB, 0.163178E+00_JPRB, 0.156383E+00_JPRB &
+  &, 0.149877E+00_JPRB, 0.143549E+00_JPRB, 0.137478E+00_JPRB/)
+XCW( 731, :) = (/ &
+  &  0.105932E+01_JPRB, 0.107342E+01_JPRB, 0.108722E+01_JPRB, 0.110069E+01_JPRB &
+  &, 0.111383E+01_JPRB, 0.112664E+01_JPRB, 0.113909E+01_JPRB &
+  &, 0.115119E+01_JPRB, 0.116292E+01_JPRB, 0.117427E+01_JPRB, 0.118524E+01_JPRB &
+  &, 0.119582E+01_JPRB, 0.120599E+01_JPRB, 0.121575E+01_JPRB &
+  &, 0.122509E+01_JPRB, 0.123401E+01_JPRB, 0.124249E+01_JPRB, 0.125053E+01_JPRB &
+  &, 0.125812E+01_JPRB, 0.126525E+01_JPRB, 0.127192E+01_JPRB &
+  &, 0.127812E+01_JPRB, 0.128386E+01_JPRB, 0.128910E+01_JPRB, 0.129387E+01_JPRB &
+  &, 0.129814E+01_JPRB, 0.130193E+01_JPRB, 0.130521E+01_JPRB &
+  &, 0.130800E+01_JPRB, 0.131028E+01_JPRB, 0.131205E+01_JPRB, 0.131332E+01_JPRB &
+  &, 0.131408E+01_JPRB, 0.131434E+01_JPRB, 0.131408E+01_JPRB &
+  &, 0.131328E+01_JPRB, 0.131204E+01_JPRB, 0.131026E+01_JPRB, 0.130798E+01_JPRB &
+  &, 0.130519E+01_JPRB, 0.130192E+01_JPRB, 0.129814E+01_JPRB &
+  &, 0.129388E+01_JPRB, 0.128913E+01_JPRB, 0.128390E+01_JPRB, 0.127820E+01_JPRB &
+  &, 0.127204E+01_JPRB, 0.126540E+01_JPRB, 0.125833E+01_JPRB &
+  &, 0.125080E+01_JPRB, 0.124284E+01_JPRB, 0.123445E+01_JPRB, 0.122565E+01_JPRB &
+  &, 0.121643E+01_JPRB, 0.120682E+01_JPRB, 0.119682E+01_JPRB &
+  &, 0.118644E+01_JPRB, 0.117569E+01_JPRB, 0.116460E+01_JPRB, 0.115315E+01_JPRB &
+  &, 0.114137E+01_JPRB, 0.112927E+01_JPRB, 0.111687E+01_JPRB &
+  &, 0.110418E+01_JPRB, 0.109119E+01_JPRB, 0.107794E+01_JPRB, 0.106444E+01_JPRB &
+  &, 0.105069E+01_JPRB, 0.103672E+01_JPRB, 0.102252E+01_JPRB &
+  &, 0.100813E+01_JPRB, 0.993547E+00_JPRB, 0.978789E+00_JPRB, 0.963863E+00_JPRB &
+  &, 0.948784E+00_JPRB, 0.933585E+00_JPRB, 0.918255E+00_JPRB &
+  &, 0.902830E+00_JPRB, 0.887298E+00_JPRB, 0.871693E+00_JPRB, 0.856002E+00_JPRB &
+  &, 0.840260E+00_JPRB, 0.824503E+00_JPRB, 0.808688E+00_JPRB &
+  &, 0.792850E+00_JPRB, 0.777025E+00_JPRB, 0.761222E+00_JPRB, 0.745419E+00_JPRB &
+  &, 0.729651E+00_JPRB, 0.713924E+00_JPRB, 0.698243E+00_JPRB &
+  &, 0.682643E+00_JPRB, 0.667096E+00_JPRB, 0.651637E+00_JPRB, 0.636300E+00_JPRB &
+  &, 0.621019E+00_JPRB, 0.605896E+00_JPRB, 0.590896E+00_JPRB &
+  &, 0.576018E+00_JPRB, 0.561259E+00_JPRB, 0.546612E+00_JPRB, 0.532222E+00_JPRB &
+  &, 0.517973E+00_JPRB, 0.503856E+00_JPRB, 0.489942E+00_JPRB &
+  &, 0.476182E+00_JPRB, 0.462645E+00_JPRB, 0.449281E+00_JPRB, 0.436119E+00_JPRB &
+  &, 0.423144E+00_JPRB, 0.410427E+00_JPRB, 0.397868E+00_JPRB &
+  &, 0.385581E+00_JPRB, 0.373459E+00_JPRB, 0.361618E+00_JPRB, 0.349947E+00_JPRB &
+  &, 0.338564E+00_JPRB, 0.327352E+00_JPRB, 0.316431E+00_JPRB &
+  &, 0.305679E+00_JPRB, 0.295217E+00_JPRB, 0.284968E+00_JPRB, 0.274954E+00_JPRB &
+  &, 0.265144E+00_JPRB, 0.255612E+00_JPRB, 0.246326E+00_JPRB &
+  &, 0.237253E+00_JPRB, 0.228411E+00_JPRB, 0.219820E+00_JPRB, 0.211442E+00_JPRB &
+  &, 0.203296E+00_JPRB, 0.195339E+00_JPRB, 0.187648E+00_JPRB &
+  &, 0.180180E+00_JPRB, 0.172954E+00_JPRB, 0.165922E+00_JPRB, 0.159100E+00_JPRB &
+  &, 0.152502E+00_JPRB, 0.146079E+00_JPRB, 0.139909E+00_JPRB/)
+XCW( 732, :) = (/ &
+  &  0.105963E+01_JPRB, 0.107382E+01_JPRB, 0.108770E+01_JPRB, 0.110126E+01_JPRB &
+  &, 0.111449E+01_JPRB, 0.112738E+01_JPRB, 0.113992E+01_JPRB &
+  &, 0.115211E+01_JPRB, 0.116393E+01_JPRB, 0.117537E+01_JPRB, 0.118644E+01_JPRB &
+  &, 0.119710E+01_JPRB, 0.120737E+01_JPRB, 0.121722E+01_JPRB &
+  &, 0.122666E+01_JPRB, 0.123567E+01_JPRB, 0.124425E+01_JPRB, 0.125239E+01_JPRB &
+  &, 0.126008E+01_JPRB, 0.126731E+01_JPRB, 0.127408E+01_JPRB &
+  &, 0.128038E+01_JPRB, 0.128621E+01_JPRB, 0.129156E+01_JPRB, 0.129642E+01_JPRB &
+  &, 0.130079E+01_JPRB, 0.130468E+01_JPRB, 0.130806E+01_JPRB &
+  &, 0.131094E+01_JPRB, 0.131333E+01_JPRB, 0.131520E+01_JPRB, 0.131657E+01_JPRB &
+  &, 0.131742E+01_JPRB, 0.131777E+01_JPRB, 0.131761E+01_JPRB &
+  &, 0.131694E+01_JPRB, 0.131576E+01_JPRB, 0.131408E+01_JPRB, 0.131189E+01_JPRB &
+  &, 0.130920E+01_JPRB, 0.130601E+01_JPRB, 0.130229E+01_JPRB &
+  &, 0.129814E+01_JPRB, 0.129349E+01_JPRB, 0.128834E+01_JPRB, 0.128274E+01_JPRB &
+  &, 0.127664E+01_JPRB, 0.127010E+01_JPRB, 0.126310E+01_JPRB &
+  &, 0.125565E+01_JPRB, 0.124777E+01_JPRB, 0.123946E+01_JPRB, 0.123073E+01_JPRB &
+  &, 0.122158E+01_JPRB, 0.121203E+01_JPRB, 0.120210E+01_JPRB &
+  &, 0.119178E+01_JPRB, 0.118110E+01_JPRB, 0.117006E+01_JPRB, 0.115867E+01_JPRB &
+  &, 0.114695E+01_JPRB, 0.113491E+01_JPRB, 0.112255E+01_JPRB &
+  &, 0.110989E+01_JPRB, 0.109696E+01_JPRB, 0.108376E+01_JPRB, 0.107029E+01_JPRB &
+  &, 0.105657E+01_JPRB, 0.104263E+01_JPRB, 0.102846E+01_JPRB &
+  &, 0.101410E+01_JPRB, 0.999533E+00_JPRB, 0.984812E+00_JPRB, 0.969899E+00_JPRB &
+  &, 0.954852E+00_JPRB, 0.939660E+00_JPRB, 0.924335E+00_JPRB &
+  &, 0.908911E+00_JPRB, 0.893376E+00_JPRB, 0.877765E+00_JPRB, 0.862090E+00_JPRB &
+  &, 0.846361E+00_JPRB, 0.830562E+00_JPRB, 0.814754E+00_JPRB &
+  &, 0.798921E+00_JPRB, 0.783069E+00_JPRB, 0.767235E+00_JPRB, 0.751397E+00_JPRB &
+  &, 0.735619E+00_JPRB, 0.719850E+00_JPRB, 0.704152E+00_JPRB &
+  &, 0.688501E+00_JPRB, 0.672931E+00_JPRB, 0.657444E+00_JPRB, 0.642043E+00_JPRB &
+  &, 0.626761E+00_JPRB, 0.611565E+00_JPRB, 0.596488E+00_JPRB &
+  &, 0.581564E+00_JPRB, 0.566789E+00_JPRB, 0.552125E+00_JPRB, 0.537640E+00_JPRB &
+  &, 0.523290E+00_JPRB, 0.509145E+00_JPRB, 0.495160E+00_JPRB &
+  &, 0.481324E+00_JPRB, 0.467708E+00_JPRB, 0.454302E+00_JPRB, 0.441050E+00_JPRB &
+  &, 0.428025E+00_JPRB, 0.415212E+00_JPRB, 0.402596E+00_JPRB &
+  &, 0.390248E+00_JPRB, 0.378061E+00_JPRB, 0.366106E+00_JPRB, 0.354410E+00_JPRB &
+  &, 0.342904E+00_JPRB, 0.331612E+00_JPRB, 0.320607E+00_JPRB &
+  &, 0.309817E+00_JPRB, 0.299214E+00_JPRB, 0.288921E+00_JPRB, 0.278808E+00_JPRB &
+  &, 0.268948E+00_JPRB, 0.259310E+00_JPRB, 0.249914E+00_JPRB &
+  &, 0.240781E+00_JPRB, 0.231822E+00_JPRB, 0.223165E+00_JPRB, 0.214719E+00_JPRB &
+  &, 0.206501E+00_JPRB, 0.198470E+00_JPRB, 0.190702E+00_JPRB &
+  &, 0.183155E+00_JPRB, 0.175845E+00_JPRB, 0.168728E+00_JPRB, 0.161816E+00_JPRB &
+  &, 0.155126E+00_JPRB, 0.148673E+00_JPRB, 0.142406E+00_JPRB/)
+XCW( 733, :) = (/ &
+  &  0.105995E+01_JPRB, 0.107422E+01_JPRB, 0.108818E+01_JPRB, 0.110182E+01_JPRB &
+  &, 0.111514E+01_JPRB, 0.112812E+01_JPRB, 0.114075E+01_JPRB &
+  &, 0.115303E+01_JPRB, 0.116494E+01_JPRB, 0.117648E+01_JPRB, 0.118763E+01_JPRB &
+  &, 0.119839E+01_JPRB, 0.120875E+01_JPRB, 0.121870E+01_JPRB &
+  &, 0.122824E+01_JPRB, 0.123735E+01_JPRB, 0.124602E+01_JPRB, 0.125425E+01_JPRB &
+  &, 0.126204E+01_JPRB, 0.126937E+01_JPRB, 0.127624E+01_JPRB &
+  &, 0.128264E+01_JPRB, 0.128857E+01_JPRB, 0.129402E+01_JPRB, 0.129898E+01_JPRB &
+  &, 0.130345E+01_JPRB, 0.130744E+01_JPRB, 0.131092E+01_JPRB &
+  &, 0.131390E+01_JPRB, 0.131638E+01_JPRB, 0.131836E+01_JPRB, 0.131982E+01_JPRB &
+  &, 0.132078E+01_JPRB, 0.132122E+01_JPRB, 0.132116E+01_JPRB &
+  &, 0.132058E+01_JPRB, 0.131950E+01_JPRB, 0.131791E+01_JPRB, 0.131582E+01_JPRB &
+  &, 0.131322E+01_JPRB, 0.131012E+01_JPRB, 0.130652E+01_JPRB &
+  &, 0.130244E+01_JPRB, 0.129783E+01_JPRB, 0.129281E+01_JPRB, 0.128728E+01_JPRB &
+  &, 0.128128E+01_JPRB, 0.127482E+01_JPRB, 0.126790E+01_JPRB &
+  &, 0.126053E+01_JPRB, 0.125272E+01_JPRB, 0.124449E+01_JPRB, 0.123582E+01_JPRB &
+  &, 0.122675E+01_JPRB, 0.121726E+01_JPRB, 0.120740E+01_JPRB &
+  &, 0.119715E+01_JPRB, 0.118652E+01_JPRB, 0.117555E+01_JPRB, 0.116422E+01_JPRB &
+  &, 0.115255E+01_JPRB, 0.114055E+01_JPRB, 0.112825E+01_JPRB &
+  &, 0.111565E+01_JPRB, 0.110276E+01_JPRB, 0.108960E+01_JPRB, 0.107617E+01_JPRB &
+  &, 0.106249E+01_JPRB, 0.104859E+01_JPRB, 0.103445E+01_JPRB &
+  &, 0.102011E+01_JPRB, 0.100556E+01_JPRB, 0.990857E+00_JPRB, 0.975980E+00_JPRB &
+  &, 0.960944E+00_JPRB, 0.945759E+00_JPRB, 0.930438E+00_JPRB &
+  &, 0.915040E+00_JPRB, 0.899503E+00_JPRB, 0.883888E+00_JPRB, 0.868023E+00_JPRB &
+  &, 0.852463E+00_JPRB, 0.836675E+00_JPRB, 0.820848E+00_JPRB &
+  &, 0.804991E+00_JPRB, 0.789141E+00_JPRB, 0.773277E+00_JPRB, 0.757433E+00_JPRB &
+  &, 0.741618E+00_JPRB, 0.725836E+00_JPRB, 0.710093E+00_JPRB &
+  &, 0.694422E+00_JPRB, 0.678797E+00_JPRB, 0.663284E+00_JPRB, 0.647853E+00_JPRB &
+  &, 0.632503E+00_JPRB, 0.617270E+00_JPRB, 0.602115E+00_JPRB &
+  &, 0.587180E+00_JPRB, 0.572356E+00_JPRB, 0.557638E+00_JPRB, 0.543095E+00_JPRB &
+  &, 0.528684E+00_JPRB, 0.514473E+00_JPRB, 0.500418E+00_JPRB &
+  &, 0.486547E+00_JPRB, 0.472853E+00_JPRB, 0.459363E+00_JPRB, 0.446067E+00_JPRB &
+  &, 0.432950E+00_JPRB, 0.420084E+00_JPRB, 0.407412E+00_JPRB &
+  &, 0.394914E+00_JPRB, 0.382708E+00_JPRB, 0.370640E+00_JPRB, 0.358872E+00_JPRB &
+  &, 0.347290E+00_JPRB, 0.335920E+00_JPRB, 0.324832E+00_JPRB &
+  &, 0.313955E+00_JPRB, 0.303312E+00_JPRB, 0.292873E+00_JPRB, 0.282714E+00_JPRB &
+  &, 0.272752E+00_JPRB, 0.263062E+00_JPRB, 0.253611E+00_JPRB &
+  &, 0.244365E+00_JPRB, 0.235344E+00_JPRB, 0.226567E+00_JPRB, 0.218053E+00_JPRB &
+  &, 0.209707E+00_JPRB, 0.201661E+00_JPRB, 0.193816E+00_JPRB &
+  &, 0.186130E+00_JPRB, 0.178737E+00_JPRB, 0.171533E+00_JPRB, 0.164596E+00_JPRB &
+  &, 0.157815E+00_JPRB, 0.151268E+00_JPRB, 0.144969E+00_JPRB/)
+XCW( 734, :) = (/ &
+  &  0.106027E+01_JPRB, 0.107462E+01_JPRB, 0.108866E+01_JPRB, 0.110239E+01_JPRB &
+  &, 0.111580E+01_JPRB, 0.112886E+01_JPRB, 0.114159E+01_JPRB &
+  &, 0.115395E+01_JPRB, 0.116595E+01_JPRB, 0.117758E+01_JPRB, 0.118883E+01_JPRB &
+  &, 0.119968E+01_JPRB, 0.121014E+01_JPRB, 0.122019E+01_JPRB &
+  &, 0.122982E+01_JPRB, 0.123902E+01_JPRB, 0.124779E+01_JPRB, 0.125613E+01_JPRB &
+  &, 0.126401E+01_JPRB, 0.127144E+01_JPRB, 0.127841E+01_JPRB &
+  &, 0.128491E+01_JPRB, 0.129094E+01_JPRB, 0.129649E+01_JPRB, 0.130155E+01_JPRB &
+  &, 0.130612E+01_JPRB, 0.131020E+01_JPRB, 0.131379E+01_JPRB &
+  &, 0.131687E+01_JPRB, 0.131945E+01_JPRB, 0.132152E+01_JPRB, 0.132309E+01_JPRB &
+  &, 0.132414E+01_JPRB, 0.132468E+01_JPRB, 0.132472E+01_JPRB &
+  &, 0.132424E+01_JPRB, 0.132325E+01_JPRB, 0.132176E+01_JPRB, 0.131976E+01_JPRB &
+  &, 0.131725E+01_JPRB, 0.131425E+01_JPRB, 0.131075E+01_JPRB &
+  &, 0.130675E+01_JPRB, 0.130227E+01_JPRB, 0.129729E+01_JPRB, 0.129185E+01_JPRB &
+  &, 0.128593E+01_JPRB, 0.127955E+01_JPRB, 0.127271E+01_JPRB &
+  &, 0.126543E+01_JPRB, 0.125769E+01_JPRB, 0.124953E+01_JPRB, 0.124095E+01_JPRB &
+  &, 0.123194E+01_JPRB, 0.122253E+01_JPRB, 0.121273E+01_JPRB &
+  &, 0.120255E+01_JPRB, 0.119199E+01_JPRB, 0.118106E+01_JPRB, 0.116979E+01_JPRB &
+  &, 0.115819E+01_JPRB, 0.114625E+01_JPRB, 0.113398E+01_JPRB &
+  &, 0.112144E+01_JPRB, 0.110859E+01_JPRB, 0.109547E+01_JPRB, 0.108208E+01_JPRB &
+  &, 0.106845E+01_JPRB, 0.105457E+01_JPRB, 0.104046E+01_JPRB &
+  &, 0.102616E+01_JPRB, 0.101163E+01_JPRB, 0.996946E+00_JPRB, 0.982083E+00_JPRB &
+  &, 0.967058E+00_JPRB, 0.951905E+00_JPRB, 0.936613E+00_JPRB &
+  &, 0.921193E+00_JPRB, 0.905680E+00_JPRB, 0.890061E+00_JPRB, 0.874395E+00_JPRB &
+  &, 0.858644E+00_JPRB, 0.842841E+00_JPRB, 0.826996E+00_JPRB &
+  &, 0.811146E+00_JPRB, 0.795270E+00_JPRB, 0.779376E+00_JPRB, 0.763529E+00_JPRB &
+  &, 0.747677E+00_JPRB, 0.731854E+00_JPRB, 0.716095E+00_JPRB &
+  &, 0.700376E+00_JPRB, 0.684729E+00_JPRB, 0.669190E+00_JPRB, 0.653696E+00_JPRB &
+  &, 0.638314E+00_JPRB, 0.623043E+00_JPRB, 0.607883E+00_JPRB &
+  &, 0.592868E+00_JPRB, 0.577960E+00_JPRB, 0.563189E+00_JPRB, 0.548589E+00_JPRB &
+  &, 0.534154E+00_JPRB, 0.519840E+00_JPRB, 0.505754E+00_JPRB &
+  &, 0.491810E+00_JPRB, 0.478038E+00_JPRB, 0.464466E+00_JPRB, 0.451125E+00_JPRB &
+  &, 0.437960E+00_JPRB, 0.425000E+00_JPRB, 0.412227E+00_JPRB &
+  &, 0.399670E+00_JPRB, 0.387356E+00_JPRB, 0.375266E+00_JPRB, 0.363381E+00_JPRB &
+  &, 0.351725E+00_JPRB, 0.340324E+00_JPRB, 0.329106E+00_JPRB &
+  &, 0.318143E+00_JPRB, 0.307410E+00_JPRB, 0.296929E+00_JPRB, 0.286672E+00_JPRB &
+  &, 0.276662E+00_JPRB, 0.266867E+00_JPRB, 0.257307E+00_JPRB &
+  &, 0.247949E+00_JPRB, 0.238867E+00_JPRB, 0.230025E+00_JPRB, 0.221387E+00_JPRB &
+  &, 0.213029E+00_JPRB, 0.204851E+00_JPRB, 0.196931E+00_JPRB &
+  &, 0.189225E+00_JPRB, 0.181690E+00_JPRB, 0.174464E+00_JPRB, 0.167376E+00_JPRB &
+  &, 0.160568E+00_JPRB, 0.153927E+00_JPRB, 0.147532E+00_JPRB/)
+XCW( 735, :) = (/ &
+  &  0.106058E+01_JPRB, 0.107502E+01_JPRB, 0.108915E+01_JPRB, 0.110296E+01_JPRB &
+  &, 0.111645E+01_JPRB, 0.112961E+01_JPRB, 0.114242E+01_JPRB &
+  &, 0.115488E+01_JPRB, 0.116697E+01_JPRB, 0.117869E+01_JPRB, 0.119003E+01_JPRB &
+  &, 0.120098E+01_JPRB, 0.121153E+01_JPRB, 0.122167E+01_JPRB &
+  &, 0.123140E+01_JPRB, 0.124070E+01_JPRB, 0.124957E+01_JPRB, 0.125800E+01_JPRB &
+  &, 0.126599E+01_JPRB, 0.127351E+01_JPRB, 0.128056E+01_JPRB &
+  &, 0.128718E+01_JPRB, 0.129331E+01_JPRB, 0.129896E+01_JPRB, 0.130413E+01_JPRB &
+  &, 0.130880E+01_JPRB, 0.131298E+01_JPRB, 0.131667E+01_JPRB &
+  &, 0.131985E+01_JPRB, 0.132253E+01_JPRB, 0.132470E+01_JPRB, 0.132636E+01_JPRB &
+  &, 0.132752E+01_JPRB, 0.132816E+01_JPRB, 0.132829E+01_JPRB &
+  &, 0.132791E+01_JPRB, 0.132702E+01_JPRB, 0.132562E+01_JPRB, 0.132372E+01_JPRB &
+  &, 0.132130E+01_JPRB, 0.131839E+01_JPRB, 0.131498E+01_JPRB &
+  &, 0.131107E+01_JPRB, 0.130668E+01_JPRB, 0.130179E+01_JPRB, 0.129644E+01_JPRB &
+  &, 0.129060E+01_JPRB, 0.128431E+01_JPRB, 0.127754E+01_JPRB &
+  &, 0.127034E+01_JPRB, 0.126269E+01_JPRB, 0.125460E+01_JPRB, 0.124608E+01_JPRB &
+  &, 0.123716E+01_JPRB, 0.122783E+01_JPRB, 0.121809E+01_JPRB &
+  &, 0.120797E+01_JPRB, 0.119746E+01_JPRB, 0.118661E+01_JPRB, 0.117540E+01_JPRB &
+  &, 0.116384E+01_JPRB, 0.115196E+01_JPRB, 0.113975E+01_JPRB &
+  &, 0.112724E+01_JPRB, 0.111445E+01_JPRB, 0.110137E+01_JPRB, 0.108803E+01_JPRB &
+  &, 0.107442E+01_JPRB, 0.106058E+01_JPRB, 0.104651E+01_JPRB &
+  &, 0.103223E+01_JPRB, 0.101775E+01_JPRB, 0.100308E+01_JPRB, 0.988231E+00_JPRB &
+  &, 0.973241E+00_JPRB, 0.958074E+00_JPRB, 0.942812E+00_JPRB &
+  &, 0.927395E+00_JPRB, 0.911882E+00_JPRB, 0.896284E+00_JPRB, 0.880612E+00_JPRB &
+  &, 0.864851E+00_JPRB, 0.849034E+00_JPRB, 0.833199E+00_JPRB &
+  &, 0.817328E+00_JPRB, 0.801427E+00_JPRB, 0.785534E+00_JPRB, 0.769654E+00_JPRB &
+  &, 0.753765E+00_JPRB, 0.737932E+00_JPRB, 0.722160E+00_JPRB &
+  &, 0.706392E+00_JPRB, 0.690724E+00_JPRB, 0.675128E+00_JPRB, 0.659606E+00_JPRB &
+  &, 0.644192E+00_JPRB, 0.628851E+00_JPRB, 0.613651E+00_JPRB &
+  &, 0.598556E+00_JPRB, 0.583636E+00_JPRB, 0.568813E+00_JPRB, 0.554157E+00_JPRB &
+  &, 0.539624E+00_JPRB, 0.525284E+00_JPRB, 0.511091E+00_JPRB &
+  &, 0.497114E+00_JPRB, 0.483305E+00_JPRB, 0.469652E+00_JPRB, 0.456225E+00_JPRB &
+  &, 0.442971E+00_JPRB, 0.429959E+00_JPRB, 0.417132E+00_JPRB &
+  &, 0.404516E+00_JPRB, 0.392095E+00_JPRB, 0.379939E+00_JPRB, 0.367984E+00_JPRB &
+  &, 0.356255E+00_JPRB, 0.344729E+00_JPRB, 0.333478E+00_JPRB &
+  &, 0.322431E+00_JPRB, 0.311609E+00_JPRB, 0.301035E+00_JPRB, 0.290683E+00_JPRB &
+  &, 0.280572E+00_JPRB, 0.270672E+00_JPRB, 0.261058E+00_JPRB &
+  &, 0.251643E+00_JPRB, 0.242501E+00_JPRB, 0.233541E+00_JPRB, 0.224837E+00_JPRB &
+  &, 0.216351E+00_JPRB, 0.208101E+00_JPRB, 0.200105E+00_JPRB &
+  &, 0.192321E+00_JPRB, 0.184705E+00_JPRB, 0.177394E+00_JPRB, 0.170283E+00_JPRB &
+  &, 0.163321E+00_JPRB, 0.156651E+00_JPRB, 0.150160E+00_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART105',1,ZHOOK_HANDLE)
+END SUBROUTINE PART105
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART106
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART106',0,ZHOOK_HANDLE)
+
+XCW( 736, :) = (/ &
+  &  0.106090E+01_JPRB, 0.107542E+01_JPRB, 0.108963E+01_JPRB, 0.110353E+01_JPRB &
+  &, 0.111711E+01_JPRB, 0.113036E+01_JPRB, 0.114326E+01_JPRB &
+  &, 0.115580E+01_JPRB, 0.116799E+01_JPRB, 0.117980E+01_JPRB, 0.119124E+01_JPRB &
+  &, 0.120228E+01_JPRB, 0.121293E+01_JPRB, 0.122317E+01_JPRB &
+  &, 0.123299E+01_JPRB, 0.124239E+01_JPRB, 0.125136E+01_JPRB, 0.125989E+01_JPRB &
+  &, 0.126797E+01_JPRB, 0.127560E+01_JPRB, 0.128277E+01_JPRB &
+  &, 0.128947E+01_JPRB, 0.129570E+01_JPRB, 0.130145E+01_JPRB, 0.130671E+01_JPRB &
+  &, 0.131149E+01_JPRB, 0.131577E+01_JPRB, 0.131955E+01_JPRB &
+  &, 0.132284E+01_JPRB, 0.132562E+01_JPRB, 0.132789E+01_JPRB, 0.132965E+01_JPRB &
+  &, 0.133091E+01_JPRB, 0.133165E+01_JPRB, 0.133188E+01_JPRB &
+  &, 0.133159E+01_JPRB, 0.133080E+01_JPRB, 0.132949E+01_JPRB, 0.132769E+01_JPRB &
+  &, 0.132537E+01_JPRB, 0.132255E+01_JPRB, 0.131923E+01_JPRB &
+  &, 0.131541E+01_JPRB, 0.131111E+01_JPRB, 0.130632E+01_JPRB, 0.130104E+01_JPRB &
+  &, 0.129529E+01_JPRB, 0.128909E+01_JPRB, 0.128241E+01_JPRB &
+  &, 0.127528E+01_JPRB, 0.126770E+01_JPRB, 0.125969E+01_JPRB, 0.125126E+01_JPRB &
+  &, 0.124240E+01_JPRB, 0.123314E+01_JPRB, 0.122347E+01_JPRB &
+  &, 0.121341E+01_JPRB, 0.120298E+01_JPRB, 0.119219E+01_JPRB, 0.118103E+01_JPRB &
+  &, 0.116953E+01_JPRB, 0.115770E+01_JPRB, 0.114556E+01_JPRB &
+  &, 0.113310E+01_JPRB, 0.112035E+01_JPRB, 0.110730E+01_JPRB, 0.109400E+01_JPRB &
+  &, 0.108044E+01_JPRB, 0.106665E+01_JPRB, 0.105260E+01_JPRB &
+  &, 0.103835E+01_JPRB, 0.102389E+01_JPRB, 0.100926E+01_JPRB, 0.994424E+00_JPRB &
+  &, 0.979447E+00_JPRB, 0.964314E+00_JPRB, 0.949035E+00_JPRB &
+  &, 0.933646E+00_JPRB, 0.918133E+00_JPRB, 0.902533E+00_JPRB, 0.886855E+00_JPRB &
+  &, 0.871110E+00_JPRB, 0.855281E+00_JPRB, 0.839429E+00_JPRB &
+  &, 0.823538E+00_JPRB, 0.807641E+00_JPRB, 0.791720E+00_JPRB, 0.775779E+00_JPRB &
+  &, 0.759944E+00_JPRB, 0.744071E+00_JPRB, 0.728256E+00_JPRB &
+  &, 0.712472E+00_JPRB, 0.696752E+00_JPRB, 0.681100E+00_JPRB, 0.665550E+00_JPRB &
+  &, 0.650104E+00_JPRB, 0.634728E+00_JPRB, 0.619489E+00_JPRB &
+  &, 0.604352E+00_JPRB, 0.589348E+00_JPRB, 0.574475E+00_JPRB, 0.559763E+00_JPRB &
+  &, 0.545171E+00_JPRB, 0.530768E+00_JPRB, 0.516546E+00_JPRB &
+  &, 0.502457E+00_JPRB, 0.488572E+00_JPRB, 0.474879E+00_JPRB, 0.461368E+00_JPRB &
+  &, 0.448067E+00_JPRB, 0.434961E+00_JPRB, 0.422080E+00_JPRB &
+  &, 0.409362E+00_JPRB, 0.396879E+00_JPRB, 0.384658E+00_JPRB, 0.372587E+00_JPRB &
+  &, 0.360785E+00_JPRB, 0.349182E+00_JPRB, 0.337850E+00_JPRB &
+  &, 0.326718E+00_JPRB, 0.315808E+00_JPRB, 0.305142E+00_JPRB, 0.294745E+00_JPRB &
+  &, 0.284535E+00_JPRB, 0.274585E+00_JPRB, 0.264864E+00_JPRB &
+  &, 0.255392E+00_JPRB, 0.246135E+00_JPRB, 0.237112E+00_JPRB, 0.228286E+00_JPRB &
+  &, 0.219731E+00_JPRB, 0.211409E+00_JPRB, 0.203339E+00_JPRB &
+  &, 0.195478E+00_JPRB, 0.187781E+00_JPRB, 0.180387E+00_JPRB, 0.173126E+00_JPRB &
+  &, 0.166138E+00_JPRB, 0.159375E+00_JPRB, 0.152788E+00_JPRB/)
+XCW( 737, :) = (/ &
+  &  0.106122E+01_JPRB, 0.107582E+01_JPRB, 0.109012E+01_JPRB, 0.110411E+01_JPRB &
+  &, 0.111777E+01_JPRB, 0.113110E+01_JPRB, 0.114410E+01_JPRB &
+  &, 0.115673E+01_JPRB, 0.116901E+01_JPRB, 0.118092E+01_JPRB, 0.119245E+01_JPRB &
+  &, 0.120358E+01_JPRB, 0.121433E+01_JPRB, 0.122466E+01_JPRB &
+  &, 0.123458E+01_JPRB, 0.124408E+01_JPRB, 0.125315E+01_JPRB, 0.126177E+01_JPRB &
+  &, 0.126996E+01_JPRB, 0.127769E+01_JPRB, 0.128494E+01_JPRB &
+  &, 0.129176E+01_JPRB, 0.129809E+01_JPRB, 0.130394E+01_JPRB, 0.130931E+01_JPRB &
+  &, 0.131418E+01_JPRB, 0.131857E+01_JPRB, 0.132245E+01_JPRB &
+  &, 0.132584E+01_JPRB, 0.132872E+01_JPRB, 0.133109E+01_JPRB, 0.133295E+01_JPRB &
+  &, 0.133431E+01_JPRB, 0.133515E+01_JPRB, 0.133548E+01_JPRB &
+  &, 0.133529E+01_JPRB, 0.133460E+01_JPRB, 0.133339E+01_JPRB, 0.133168E+01_JPRB &
+  &, 0.132945E+01_JPRB, 0.132672E+01_JPRB, 0.132349E+01_JPRB &
+  &, 0.131977E+01_JPRB, 0.131556E+01_JPRB, 0.131086E+01_JPRB, 0.130567E+01_JPRB &
+  &, 0.130001E+01_JPRB, 0.129388E+01_JPRB, 0.128729E+01_JPRB &
+  &, 0.128024E+01_JPRB, 0.127275E+01_JPRB, 0.126482E+01_JPRB, 0.125646E+01_JPRB &
+  &, 0.124766E+01_JPRB, 0.123848E+01_JPRB, 0.122887E+01_JPRB &
+  &, 0.121890E+01_JPRB, 0.120852E+01_JPRB, 0.119779E+01_JPRB, 0.118669E+01_JPRB &
+  &, 0.117525E+01_JPRB, 0.116348E+01_JPRB, 0.115138E+01_JPRB &
+  &, 0.113898E+01_JPRB, 0.112627E+01_JPRB, 0.111327E+01_JPRB, 0.110002E+01_JPRB &
+  &, 0.108650E+01_JPRB, 0.107273E+01_JPRB, 0.105870E+01_JPRB &
+  &, 0.104450E+01_JPRB, 0.103009E+01_JPRB, 0.101546E+01_JPRB, 0.100066E+01_JPRB &
+  &, 0.985699E+00_JPRB, 0.970576E+00_JPRB, 0.955305E+00_JPRB &
+  &, 0.939921E+00_JPRB, 0.924435E+00_JPRB, 0.908833E+00_JPRB, 0.893150E+00_JPRB &
+  &, 0.877396E+00_JPRB, 0.861581E+00_JPRB, 0.845714E+00_JPRB &
+  &, 0.829831E+00_JPRB, 0.813912E+00_JPRB, 0.797964E+00_JPRB, 0.782052E+00_JPRB &
+  &, 0.766122E+00_JPRB, 0.750241E+00_JPRB, 0.734383E+00_JPRB &
+  &, 0.718583E+00_JPRB, 0.702844E+00_JPRB, 0.687169E+00_JPRB, 0.671560E+00_JPRB &
+  &, 0.656050E+00_JPRB, 0.640639E+00_JPRB, 0.625363E+00_JPRB &
+  &, 0.610147E+00_JPRB, 0.595097E+00_JPRB, 0.580173E+00_JPRB, 0.565407E+00_JPRB &
+  &, 0.550795E+00_JPRB, 0.536329E+00_JPRB, 0.522001E+00_JPRB &
+  &, 0.507881E+00_JPRB, 0.493920E+00_JPRB, 0.480148E+00_JPRB, 0.466595E+00_JPRB &
+  &, 0.453205E+00_JPRB, 0.440051E+00_JPRB, 0.427073E+00_JPRB &
+  &, 0.414298E+00_JPRB, 0.401755E+00_JPRB, 0.389423E+00_JPRB, 0.377285E+00_JPRB &
+  &, 0.365410E+00_JPRB, 0.353731E+00_JPRB, 0.342272E+00_JPRB &
+  &, 0.331106E+00_JPRB, 0.320108E+00_JPRB, 0.309352E+00_JPRB, 0.298860E+00_JPRB &
+  &, 0.288550E+00_JPRB, 0.278551E+00_JPRB, 0.268723E+00_JPRB &
+  &, 0.259141E+00_JPRB, 0.249825E+00_JPRB, 0.240684E+00_JPRB, 0.231850E+00_JPRB &
+  &, 0.223170E+00_JPRB, 0.214777E+00_JPRB, 0.206573E+00_JPRB &
+  &, 0.198635E+00_JPRB, 0.190919E+00_JPRB, 0.183380E+00_JPRB, 0.176095E+00_JPRB &
+  &, 0.169018E+00_JPRB, 0.162164E+00_JPRB, 0.155483E+00_JPRB/)
+XCW( 738, :) = (/ &
+  &  0.106154E+01_JPRB, 0.107622E+01_JPRB, 0.109061E+01_JPRB, 0.110468E+01_JPRB &
+  &, 0.111844E+01_JPRB, 0.113186E+01_JPRB, 0.114494E+01_JPRB &
+  &, 0.115767E+01_JPRB, 0.117004E+01_JPRB, 0.118204E+01_JPRB, 0.119366E+01_JPRB &
+  &, 0.120489E+01_JPRB, 0.121573E+01_JPRB, 0.122616E+01_JPRB &
+  &, 0.123618E+01_JPRB, 0.124577E+01_JPRB, 0.125494E+01_JPRB, 0.126367E+01_JPRB &
+  &, 0.127195E+01_JPRB, 0.127978E+01_JPRB, 0.128715E+01_JPRB &
+  &, 0.129405E+01_JPRB, 0.130048E+01_JPRB, 0.130644E+01_JPRB, 0.131191E+01_JPRB &
+  &, 0.131689E+01_JPRB, 0.132137E+01_JPRB, 0.132536E+01_JPRB &
+  &, 0.132885E+01_JPRB, 0.133183E+01_JPRB, 0.133430E+01_JPRB, 0.133627E+01_JPRB &
+  &, 0.133772E+01_JPRB, 0.133866E+01_JPRB, 0.133909E+01_JPRB &
+  &, 0.133901E+01_JPRB, 0.133840E+01_JPRB, 0.133730E+01_JPRB, 0.133568E+01_JPRB &
+  &, 0.133355E+01_JPRB, 0.133092E+01_JPRB, 0.132778E+01_JPRB &
+  &, 0.132416E+01_JPRB, 0.132003E+01_JPRB, 0.131542E+01_JPRB, 0.131032E+01_JPRB &
+  &, 0.130475E+01_JPRB, 0.129870E+01_JPRB, 0.129219E+01_JPRB &
+  &, 0.128523E+01_JPRB, 0.127781E+01_JPRB, 0.126996E+01_JPRB, 0.126167E+01_JPRB &
+  &, 0.125295E+01_JPRB, 0.124383E+01_JPRB, 0.123431E+01_JPRB &
+  &, 0.122440E+01_JPRB, 0.121410E+01_JPRB, 0.120342E+01_JPRB, 0.119238E+01_JPRB &
+  &, 0.118101E+01_JPRB, 0.116928E+01_JPRB, 0.115724E+01_JPRB &
+  &, 0.114488E+01_JPRB, 0.113224E+01_JPRB, 0.111928E+01_JPRB, 0.110606E+01_JPRB &
+  &, 0.109259E+01_JPRB, 0.107886E+01_JPRB, 0.106489E+01_JPRB &
+  &, 0.105070E+01_JPRB, 0.103629E+01_JPRB, 0.102170E+01_JPRB, 0.100692E+01_JPRB &
+  &, 0.991973E+00_JPRB, 0.976886E+00_JPRB, 0.961623E+00_JPRB &
+  &, 0.946269E+00_JPRB, 0.930761E+00_JPRB, 0.915183E+00_JPRB, 0.899496E+00_JPRB &
+  &, 0.883734E+00_JPRB, 0.867935E+00_JPRB, 0.852054E+00_JPRB &
+  &, 0.836152E+00_JPRB, 0.820212E+00_JPRB, 0.804266E+00_JPRB, 0.788324E+00_JPRB &
+  &, 0.772391E+00_JPRB, 0.756472E+00_JPRB, 0.740572E+00_JPRB &
+  &, 0.724758E+00_JPRB, 0.708969E+00_JPRB, 0.693239E+00_JPRB, 0.677604E+00_JPRB &
+  &, 0.662064E+00_JPRB, 0.646620E+00_JPRB, 0.631271E+00_JPRB &
+  &, 0.616050E+00_JPRB, 0.600919E+00_JPRB, 0.585945E+00_JPRB, 0.571126E+00_JPRB &
+  &, 0.556456E+00_JPRB, 0.541929E+00_JPRB, 0.527535E+00_JPRB &
+  &, 0.513345E+00_JPRB, 0.499351E+00_JPRB, 0.485500E+00_JPRB, 0.471864E+00_JPRB &
+  &, 0.458387E+00_JPRB, 0.445140E+00_JPRB, 0.432109E+00_JPRB &
+  &, 0.419279E+00_JPRB, 0.406630E+00_JPRB, 0.394235E+00_JPRB, 0.382029E+00_JPRB &
+  &, 0.370036E+00_JPRB, 0.358330E+00_JPRB, 0.346791E+00_JPRB &
+  &, 0.335493E+00_JPRB, 0.324459E+00_JPRB, 0.313612E+00_JPRB, 0.303026E+00_JPRB &
+  &, 0.292672E+00_JPRB, 0.282517E+00_JPRB, 0.272637E+00_JPRB &
+  &, 0.263001E+00_JPRB, 0.253572E+00_JPRB, 0.244369E+00_JPRB, 0.235414E+00_JPRB &
+  &, 0.226666E+00_JPRB, 0.218204E+00_JPRB, 0.209927E+00_JPRB &
+  &, 0.201852E+00_JPRB, 0.194056E+00_JPRB, 0.186497E+00_JPRB, 0.179128E+00_JPRB &
+  &, 0.171963E+00_JPRB, 0.165018E+00_JPRB, 0.158242E+00_JPRB/)
+XCW( 739, :) = (/ &
+  &  0.106186E+01_JPRB, 0.107663E+01_JPRB, 0.109110E+01_JPRB, 0.110526E+01_JPRB &
+  &, 0.111910E+01_JPRB, 0.113261E+01_JPRB, 0.114578E+01_JPRB &
+  &, 0.115860E+01_JPRB, 0.117106E+01_JPRB, 0.118316E+01_JPRB, 0.119487E+01_JPRB &
+  &, 0.120620E+01_JPRB, 0.121713E+01_JPRB, 0.122766E+01_JPRB &
+  &, 0.123778E+01_JPRB, 0.124747E+01_JPRB, 0.125674E+01_JPRB, 0.126557E+01_JPRB &
+  &, 0.127395E+01_JPRB, 0.128188E+01_JPRB, 0.128935E+01_JPRB &
+  &, 0.129636E+01_JPRB, 0.130289E+01_JPRB, 0.130895E+01_JPRB, 0.131452E+01_JPRB &
+  &, 0.131960E+01_JPRB, 0.132418E+01_JPRB, 0.132828E+01_JPRB &
+  &, 0.133187E+01_JPRB, 0.133495E+01_JPRB, 0.133753E+01_JPRB, 0.133959E+01_JPRB &
+  &, 0.134115E+01_JPRB, 0.134212E+01_JPRB, 0.134272E+01_JPRB &
+  &, 0.134273E+01_JPRB, 0.134223E+01_JPRB, 0.134122E+01_JPRB, 0.133970E+01_JPRB &
+  &, 0.133766E+01_JPRB, 0.133512E+01_JPRB, 0.133209E+01_JPRB &
+  &, 0.132851E+01_JPRB, 0.132451E+01_JPRB, 0.131999E+01_JPRB, 0.131499E+01_JPRB &
+  &, 0.130950E+01_JPRB, 0.130354E+01_JPRB, 0.129712E+01_JPRB &
+  &, 0.129024E+01_JPRB, 0.128290E+01_JPRB, 0.127513E+01_JPRB, 0.126692E+01_JPRB &
+  &, 0.125827E+01_JPRB, 0.124923E+01_JPRB, 0.123978E+01_JPRB &
+  &, 0.122993E+01_JPRB, 0.121968E+01_JPRB, 0.120908E+01_JPRB, 0.119811E+01_JPRB &
+  &, 0.118679E+01_JPRB, 0.117513E+01_JPRB, 0.116313E+01_JPRB &
+  &, 0.115083E+01_JPRB, 0.113823E+01_JPRB, 0.112533E+01_JPRB, 0.111215E+01_JPRB &
+  &, 0.109871E+01_JPRB, 0.108498E+01_JPRB, 0.107109E+01_JPRB &
+  &, 0.105693E+01_JPRB, 0.104255E+01_JPRB, 0.102798E+01_JPRB, 0.101323E+01_JPRB &
+  &, 0.998317E+00_JPRB, 0.983218E+00_JPRB, 0.967989E+00_JPRB &
+  &, 0.952641E+00_JPRB, 0.937161E+00_JPRB, 0.921558E+00_JPRB, 0.905893E+00_JPRB &
+  &, 0.890126E+00_JPRB, 0.874316E+00_JPRB, 0.858421E+00_JPRB &
+  &, 0.842502E+00_JPRB, 0.826567E+00_JPRB, 0.810597E+00_JPRB, 0.794626E+00_JPRB &
+  &, 0.778690E+00_JPRB, 0.762734E+00_JPRB, 0.746824E+00_JPRB &
+  &, 0.730964E+00_JPRB, 0.715158E+00_JPRB, 0.699407E+00_JPRB, 0.683714E+00_JPRB &
+  &, 0.668146E+00_JPRB, 0.652635E+00_JPRB, 0.637250E+00_JPRB &
+  &, 0.621953E+00_JPRB, 0.606813E+00_JPRB, 0.591792E+00_JPRB, 0.576883E+00_JPRB &
+  &, 0.562156E+00_JPRB, 0.547568E+00_JPRB, 0.533148E+00_JPRB &
+  &, 0.518889E+00_JPRB, 0.504781E+00_JPRB, 0.490894E+00_JPRB, 0.477175E+00_JPRB &
+  &, 0.463654E+00_JPRB, 0.450316E+00_JPRB, 0.437234E+00_JPRB &
+  &, 0.424304E+00_JPRB, 0.411597E+00_JPRB, 0.399093E+00_JPRB, 0.386820E+00_JPRB &
+  &, 0.374756E+00_JPRB, 0.362928E+00_JPRB, 0.351360E+00_JPRB &
+  &, 0.339980E+00_JPRB, 0.328810E+00_JPRB, 0.317924E+00_JPRB, 0.307245E+00_JPRB &
+  &, 0.296793E+00_JPRB, 0.286590E+00_JPRB, 0.276606E+00_JPRB &
+  &, 0.266860E+00_JPRB, 0.257374E+00_JPRB, 0.248111E+00_JPRB, 0.239036E+00_JPRB &
+  &, 0.230222E+00_JPRB, 0.221631E+00_JPRB, 0.213281E+00_JPRB &
+  &, 0.205191E+00_JPRB, 0.197256E+00_JPRB, 0.189615E+00_JPRB, 0.182161E+00_JPRB &
+  &, 0.174908E+00_JPRB, 0.167872E+00_JPRB, 0.161068E+00_JPRB/)
+XCW( 740, :) = (/ &
+  &  0.106218E+01_JPRB, 0.107703E+01_JPRB, 0.109159E+01_JPRB, 0.110583E+01_JPRB &
+  &, 0.111976E+01_JPRB, 0.113336E+01_JPRB, 0.114662E+01_JPRB &
+  &, 0.115954E+01_JPRB, 0.117209E+01_JPRB, 0.118428E+01_JPRB, 0.119609E+01_JPRB &
+  &, 0.120751E+01_JPRB, 0.121854E+01_JPRB, 0.122917E+01_JPRB &
+  &, 0.123939E+01_JPRB, 0.124918E+01_JPRB, 0.125855E+01_JPRB, 0.126747E+01_JPRB &
+  &, 0.127596E+01_JPRB, 0.128399E+01_JPRB, 0.129156E+01_JPRB &
+  &, 0.129867E+01_JPRB, 0.130530E+01_JPRB, 0.131146E+01_JPRB, 0.131713E+01_JPRB &
+  &, 0.132232E+01_JPRB, 0.132701E+01_JPRB, 0.133121E+01_JPRB &
+  &, 0.133490E+01_JPRB, 0.133808E+01_JPRB, 0.134076E+01_JPRB, 0.134290E+01_JPRB &
+  &, 0.134458E+01_JPRB, 0.134566E+01_JPRB, 0.134636E+01_JPRB &
+  &, 0.134647E+01_JPRB, 0.134607E+01_JPRB, 0.134516E+01_JPRB, 0.134373E+01_JPRB &
+  &, 0.134180E+01_JPRB, 0.133936E+01_JPRB, 0.133641E+01_JPRB &
+  &, 0.133296E+01_JPRB, 0.132902E+01_JPRB, 0.132459E+01_JPRB, 0.131968E+01_JPRB &
+  &, 0.131427E+01_JPRB, 0.130839E+01_JPRB, 0.130206E+01_JPRB &
+  &, 0.129526E+01_JPRB, 0.128801E+01_JPRB, 0.128031E+01_JPRB, 0.127218E+01_JPRB &
+  &, 0.126362E+01_JPRB, 0.125465E+01_JPRB, 0.124526E+01_JPRB &
+  &, 0.123548E+01_JPRB, 0.122531E+01_JPRB, 0.121476E+01_JPRB, 0.120387E+01_JPRB &
+  &, 0.119260E+01_JPRB, 0.118100E+01_JPRB, 0.116906E+01_JPRB &
+  &, 0.115680E+01_JPRB, 0.114424E+01_JPRB, 0.113140E+01_JPRB, 0.111827E+01_JPRB &
+  &, 0.110486E+01_JPRB, 0.109121E+01_JPRB, 0.107732E+01_JPRB &
+  &, 0.106319E+01_JPRB, 0.104884E+01_JPRB, 0.103432E+01_JPRB, 0.101958E+01_JPRB &
+  &, 0.100468E+01_JPRB, 0.989598E+00_JPRB, 0.974403E+00_JPRB &
+  &, 0.959038E+00_JPRB, 0.943561E+00_JPRB, 0.927984E+00_JPRB, 0.912317E+00_JPRB &
+  &, 0.896569E+00_JPRB, 0.880724E+00_JPRB, 0.864842E+00_JPRB &
+  &, 0.848934E+00_JPRB, 0.832952E+00_JPRB, 0.816986E+00_JPRB, 0.800986E+00_JPRB &
+  &, 0.785018E+00_JPRB, 0.769057E+00_JPRB, 0.753138E+00_JPRB &
+  &, 0.737234E+00_JPRB, 0.721379E+00_JPRB, 0.705608E+00_JPRB, 0.689891E+00_JPRB &
+  &, 0.674262E+00_JPRB, 0.658720E+00_JPRB, 0.643264E+00_JPRB &
+  &, 0.627963E+00_JPRB, 0.612744E+00_JPRB, 0.597675E+00_JPRB, 0.582715E+00_JPRB &
+  &, 0.567933E+00_JPRB, 0.553284E+00_JPRB, 0.538801E+00_JPRB &
+  &, 0.524474E+00_JPRB, 0.510334E+00_JPRB, 0.496329E+00_JPRB, 0.482571E+00_JPRB &
+  &, 0.468964E+00_JPRB, 0.455580E+00_JPRB, 0.442360E+00_JPRB &
+  &, 0.429375E+00_JPRB, 0.416609E+00_JPRB, 0.404043E+00_JPRB, 0.391705E+00_JPRB &
+  &, 0.379572E+00_JPRB, 0.367623E+00_JPRB, 0.355978E+00_JPRB &
+  &, 0.344517E+00_JPRB, 0.333262E+00_JPRB, 0.322288E+00_JPRB, 0.311516E+00_JPRB &
+  &, 0.300967E+00_JPRB, 0.290717E+00_JPRB, 0.280629E+00_JPRB &
+  &, 0.270830E+00_JPRB, 0.261231E+00_JPRB, 0.251853E+00_JPRB, 0.242715E+00_JPRB &
+  &, 0.233835E+00_JPRB, 0.225176E+00_JPRB, 0.216695E+00_JPRB &
+  &, 0.208529E+00_JPRB, 0.200516E+00_JPRB, 0.192794E+00_JPRB, 0.185256E+00_JPRB &
+  &, 0.177917E+00_JPRB, 0.170791E+00_JPRB, 0.163894E+00_JPRB/)
+XCW( 741, :) = (/ &
+  &  0.106250E+01_JPRB, 0.107744E+01_JPRB, 0.109208E+01_JPRB, 0.110641E+01_JPRB &
+  &, 0.112043E+01_JPRB, 0.113412E+01_JPRB, 0.114747E+01_JPRB &
+  &, 0.116047E+01_JPRB, 0.117312E+01_JPRB, 0.118540E+01_JPRB, 0.119731E+01_JPRB &
+  &, 0.120883E+01_JPRB, 0.121996E+01_JPRB, 0.123068E+01_JPRB &
+  &, 0.124100E+01_JPRB, 0.125089E+01_JPRB, 0.126036E+01_JPRB, 0.126938E+01_JPRB &
+  &, 0.127797E+01_JPRB, 0.128610E+01_JPRB, 0.129378E+01_JPRB &
+  &, 0.130099E+01_JPRB, 0.130772E+01_JPRB, 0.131398E+01_JPRB, 0.131976E+01_JPRB &
+  &, 0.132505E+01_JPRB, 0.132984E+01_JPRB, 0.133414E+01_JPRB &
+  &, 0.133793E+01_JPRB, 0.134123E+01_JPRB, 0.134401E+01_JPRB, 0.134628E+01_JPRB &
+  &, 0.134804E+01_JPRB, 0.134928E+01_JPRB, 0.135001E+01_JPRB &
+  &, 0.135022E+01_JPRB, 0.134993E+01_JPRB, 0.134911E+01_JPRB, 0.134778E+01_JPRB &
+  &, 0.134595E+01_JPRB, 0.134360E+01_JPRB, 0.134075E+01_JPRB &
+  &, 0.133739E+01_JPRB, 0.133355E+01_JPRB, 0.132921E+01_JPRB, 0.132437E+01_JPRB &
+  &, 0.131907E+01_JPRB, 0.131328E+01_JPRB, 0.130703E+01_JPRB &
+  &, 0.130031E+01_JPRB, 0.129314E+01_JPRB, 0.128552E+01_JPRB, 0.127747E+01_JPRB &
+  &, 0.126899E+01_JPRB, 0.126009E+01_JPRB, 0.125077E+01_JPRB &
+  &, 0.124107E+01_JPRB, 0.123097E+01_JPRB, 0.122049E+01_JPRB, 0.120964E+01_JPRB &
+  &, 0.119844E+01_JPRB, 0.118687E+01_JPRB, 0.117501E+01_JPRB &
+  &, 0.116281E+01_JPRB, 0.115031E+01_JPRB, 0.113750E+01_JPRB, 0.112441E+01_JPRB &
+  &, 0.111106E+01_JPRB, 0.109744E+01_JPRB, 0.108358E+01_JPRB &
+  &, 0.106949E+01_JPRB, 0.105519E+01_JPRB, 0.104067E+01_JPRB, 0.102597E+01_JPRB &
+  &, 0.101107E+01_JPRB, 0.996024E+00_JPRB, 0.980840E+00_JPRB &
+  &, 0.965507E+00_JPRB, 0.950036E+00_JPRB, 0.934461E+00_JPRB, 0.918792E+00_JPRB &
+  &, 0.903039E+00_JPRB, 0.887212E+00_JPRB, 0.871319E+00_JPRB &
+  &, 0.855395E+00_JPRB, 0.839421E+00_JPRB, 0.823432E+00_JPRB, 0.807406E+00_JPRB &
+  &, 0.791407E+00_JPRB, 0.775440E+00_JPRB, 0.759482E+00_JPRB &
+  &, 0.743535E+00_JPRB, 0.727664E+00_JPRB, 0.711842E+00_JPRB, 0.696102E+00_JPRB &
+  &, 0.680412E+00_JPRB, 0.664839E+00_JPRB, 0.649348E+00_JPRB &
+  &, 0.633973E+00_JPRB, 0.618748E+00_JPRB, 0.603596E+00_JPRB, 0.588585E+00_JPRB &
+  &, 0.573747E+00_JPRB, 0.559040E+00_JPRB, 0.544493E+00_JPRB &
+  &, 0.530099E+00_JPRB, 0.515887E+00_JPRB, 0.501847E+00_JPRB, 0.488008E+00_JPRB &
+  &, 0.474317E+00_JPRB, 0.460843E+00_JPRB, 0.447573E+00_JPRB &
+  &, 0.434535E+00_JPRB, 0.421666E+00_JPRB, 0.409040E+00_JPRB, 0.396590E+00_JPRB &
+  &, 0.384388E+00_JPRB, 0.372415E+00_JPRB, 0.360645E+00_JPRB &
+  &, 0.349104E+00_JPRB, 0.337765E+00_JPRB, 0.326703E+00_JPRB, 0.315838E+00_JPRB &
+  &, 0.305247E+00_JPRB, 0.294844E+00_JPRB, 0.284706E+00_JPRB &
+  &, 0.274799E+00_JPRB, 0.265089E+00_JPRB, 0.255652E+00_JPRB, 0.246451E+00_JPRB &
+  &, 0.237448E+00_JPRB, 0.228721E+00_JPRB, 0.220168E+00_JPRB &
+  &, 0.211929E+00_JPRB, 0.203839E+00_JPRB, 0.195974E+00_JPRB, 0.188352E+00_JPRB &
+  &, 0.180990E+00_JPRB, 0.173775E+00_JPRB, 0.166785E+00_JPRB/)
+XCW( 742, :) = (/ &
+  &  0.106282E+01_JPRB, 0.107785E+01_JPRB, 0.109257E+01_JPRB, 0.110699E+01_JPRB &
+  &, 0.112110E+01_JPRB, 0.113488E+01_JPRB, 0.114832E+01_JPRB &
+  &, 0.116142E+01_JPRB, 0.117416E+01_JPRB, 0.118653E+01_JPRB, 0.119854E+01_JPRB &
+  &, 0.121015E+01_JPRB, 0.122138E+01_JPRB, 0.123220E+01_JPRB &
+  &, 0.124261E+01_JPRB, 0.125260E+01_JPRB, 0.126217E+01_JPRB, 0.127130E+01_JPRB &
+  &, 0.127999E+01_JPRB, 0.128822E+01_JPRB, 0.129600E+01_JPRB &
+  &, 0.130331E+01_JPRB, 0.131015E+01_JPRB, 0.131652E+01_JPRB, 0.132240E+01_JPRB &
+  &, 0.132779E+01_JPRB, 0.133269E+01_JPRB, 0.133709E+01_JPRB &
+  &, 0.134099E+01_JPRB, 0.134438E+01_JPRB, 0.134726E+01_JPRB, 0.134964E+01_JPRB &
+  &, 0.135150E+01_JPRB, 0.135284E+01_JPRB, 0.135368E+01_JPRB &
+  &, 0.135399E+01_JPRB, 0.135379E+01_JPRB, 0.135308E+01_JPRB, 0.135185E+01_JPRB &
+  &, 0.135011E+01_JPRB, 0.134786E+01_JPRB, 0.134507E+01_JPRB &
+  &, 0.134184E+01_JPRB, 0.133809E+01_JPRB, 0.133385E+01_JPRB, 0.132911E+01_JPRB &
+  &, 0.132388E+01_JPRB, 0.131818E+01_JPRB, 0.131202E+01_JPRB &
+  &, 0.130539E+01_JPRB, 0.129831E+01_JPRB, 0.129076E+01_JPRB, 0.128279E+01_JPRB &
+  &, 0.127438E+01_JPRB, 0.126555E+01_JPRB, 0.125631E+01_JPRB &
+  &, 0.124668E+01_JPRB, 0.123665E+01_JPRB, 0.122623E+01_JPRB, 0.121545E+01_JPRB &
+  &, 0.120431E+01_JPRB, 0.119282E+01_JPRB, 0.118101E+01_JPRB &
+  &, 0.116885E+01_JPRB, 0.115641E+01_JPRB, 0.114364E+01_JPRB, 0.113061E+01_JPRB &
+  &, 0.111729E+01_JPRB, 0.110370E+01_JPRB, 0.108990E+01_JPRB &
+  &, 0.107584E+01_JPRB, 0.106157E+01_JPRB, 0.104707E+01_JPRB, 0.103239E+01_JPRB &
+  &, 0.101753E+01_JPRB, 0.100250E+01_JPRB, 0.987325E+00_JPRB &
+  &, 0.972001E+00_JPRB, 0.956535E+00_JPRB, 0.940988E+00_JPRB, 0.925318E+00_JPRB &
+  &, 0.909562E+00_JPRB, 0.893727E+00_JPRB, 0.877822E+00_JPRB &
+  &, 0.861883E+00_JPRB, 0.845919E+00_JPRB, 0.829908E+00_JPRB, 0.813885E+00_JPRB &
+  &, 0.797855E+00_JPRB, 0.781855E+00_JPRB, 0.765858E+00_JPRB &
+  &, 0.749900E+00_JPRB, 0.734015E+00_JPRB, 0.718141E+00_JPRB, 0.702379E+00_JPRB &
+  &, 0.686664E+00_JPRB, 0.671027E+00_JPRB, 0.655503E+00_JPRB &
+  &, 0.640091E+00_JPRB, 0.624788E+00_JPRB, 0.609590E+00_JPRB, 0.594529E+00_JPRB &
+  &, 0.579638E+00_JPRB, 0.564873E+00_JPRB, 0.550225E+00_JPRB &
+  &, 0.535804E+00_JPRB, 0.521521E+00_JPRB, 0.507406E+00_JPRB, 0.493488E+00_JPRB &
+  &, 0.479755E+00_JPRB, 0.466194E+00_JPRB, 0.452875E+00_JPRB &
+  &, 0.439740E+00_JPRB, 0.426815E+00_JPRB, 0.414083E+00_JPRB, 0.401569E+00_JPRB &
+  &, 0.389252E+00_JPRB, 0.377206E+00_JPRB, 0.365361E+00_JPRB &
+  &, 0.353740E+00_JPRB, 0.342318E+00_JPRB, 0.331169E+00_JPRB, 0.320266E+00_JPRB &
+  &, 0.309526E+00_JPRB, 0.299078E+00_JPRB, 0.288837E+00_JPRB &
+  &, 0.278824E+00_JPRB, 0.269059E+00_JPRB, 0.259564E+00_JPRB, 0.250245E+00_JPRB &
+  &, 0.241178E+00_JPRB, 0.232325E+00_JPRB, 0.223702E+00_JPRB &
+  &, 0.215328E+00_JPRB, 0.207161E+00_JPRB, 0.199279E+00_JPRB, 0.191575E+00_JPRB &
+  &, 0.184063E+00_JPRB, 0.176823E+00_JPRB, 0.169742E+00_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART106',1,ZHOOK_HANDLE)
+END SUBROUTINE PART106
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART107
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART107',0,ZHOOK_HANDLE)
+
+XCW( 743, :) = (/ &
+  &  0.106315E+01_JPRB, 0.107825E+01_JPRB, 0.109307E+01_JPRB, 0.110757E+01_JPRB &
+  &, 0.112177E+01_JPRB, 0.113564E+01_JPRB, 0.114917E+01_JPRB &
+  &, 0.116236E+01_JPRB, 0.117519E+01_JPRB, 0.118767E+01_JPRB, 0.119976E+01_JPRB &
+  &, 0.121148E+01_JPRB, 0.122280E+01_JPRB, 0.123372E+01_JPRB &
+  &, 0.124423E+01_JPRB, 0.125433E+01_JPRB, 0.126399E+01_JPRB, 0.127322E+01_JPRB &
+  &, 0.128201E+01_JPRB, 0.129035E+01_JPRB, 0.129823E+01_JPRB &
+  &, 0.130565E+01_JPRB, 0.131259E+01_JPRB, 0.131906E+01_JPRB, 0.132504E+01_JPRB &
+  &, 0.133054E+01_JPRB, 0.133554E+01_JPRB, 0.134005E+01_JPRB &
+  &, 0.134405E+01_JPRB, 0.134754E+01_JPRB, 0.135053E+01_JPRB, 0.135301E+01_JPRB &
+  &, 0.135498E+01_JPRB, 0.135642E+01_JPRB, 0.135736E+01_JPRB &
+  &, 0.135778E+01_JPRB, 0.135768E+01_JPRB, 0.135706E+01_JPRB, 0.135593E+01_JPRB &
+  &, 0.135429E+01_JPRB, 0.135214E+01_JPRB, 0.134948E+01_JPRB &
+  &, 0.134632E+01_JPRB, 0.134265E+01_JPRB, 0.133850E+01_JPRB, 0.133385E+01_JPRB &
+  &, 0.132872E+01_JPRB, 0.132312E+01_JPRB, 0.131703E+01_JPRB &
+  &, 0.131049E+01_JPRB, 0.130349E+01_JPRB, 0.129602E+01_JPRB, 0.128813E+01_JPRB &
+  &, 0.127980E+01_JPRB, 0.127105E+01_JPRB, 0.126188E+01_JPRB &
+  &, 0.125232E+01_JPRB, 0.124236E+01_JPRB, 0.123201E+01_JPRB, 0.122129E+01_JPRB &
+  &, 0.121022E+01_JPRB, 0.119879E+01_JPRB, 0.118702E+01_JPRB &
+  &, 0.117493E+01_JPRB, 0.116253E+01_JPRB, 0.114982E+01_JPRB, 0.113683E+01_JPRB &
+  &, 0.112355E+01_JPRB, 0.111001E+01_JPRB, 0.109624E+01_JPRB &
+  &, 0.108221E+01_JPRB, 0.106796E+01_JPRB, 0.105351E+01_JPRB, 0.103885E+01_JPRB &
+  &, 0.102403E+01_JPRB, 0.100902E+01_JPRB, 0.993858E+00_JPRB &
+  &, 0.978544E+00_JPRB, 0.963109E+00_JPRB, 0.947540E+00_JPRB, 0.931871E+00_JPRB &
+  &, 0.916137E+00_JPRB, 0.900295E+00_JPRB, 0.884408E+00_JPRB &
+  &, 0.868455E+00_JPRB, 0.852445E+00_JPRB, 0.836441E+00_JPRB, 0.820392E+00_JPRB &
+  &, 0.804364E+00_JPRB, 0.788330E+00_JPRB, 0.772327E+00_JPRB &
+  &, 0.756328E+00_JPRB, 0.740397E+00_JPRB, 0.724506E+00_JPRB, 0.708690E+00_JPRB &
+  &, 0.692950E+00_JPRB, 0.677284E+00_JPRB, 0.661693E+00_JPRB &
+  &, 0.646208E+00_JPRB, 0.630864E+00_JPRB, 0.615622E+00_JPRB, 0.600512E+00_JPRB &
+  &, 0.585568E+00_JPRB, 0.570746E+00_JPRB, 0.556076E+00_JPRB &
+  &, 0.541549E+00_JPRB, 0.527196E+00_JPRB, 0.513048E+00_JPRB, 0.499052E+00_JPRB &
+  &, 0.485237E+00_JPRB, 0.471631E+00_JPRB, 0.458221E+00_JPRB &
+  &, 0.444989E+00_JPRB, 0.431964E+00_JPRB, 0.419172E+00_JPRB, 0.406595E+00_JPRB &
+  &, 0.394211E+00_JPRB, 0.382047E+00_JPRB, 0.370126E+00_JPRB &
+  &, 0.358427E+00_JPRB, 0.346973E+00_JPRB, 0.335686E+00_JPRB, 0.324693E+00_JPRB &
+  &, 0.313912E+00_JPRB, 0.303366E+00_JPRB, 0.293023E+00_JPRB &
+  &, 0.282959E+00_JPRB, 0.273085E+00_JPRB, 0.263476E+00_JPRB, 0.254097E+00_JPRB &
+  &, 0.244909E+00_JPRB, 0.235988E+00_JPRB, 0.227295E+00_JPRB &
+  &, 0.218849E+00_JPRB, 0.210606E+00_JPRB, 0.202583E+00_JPRB, 0.194797E+00_JPRB &
+  &, 0.187200E+00_JPRB, 0.179872E+00_JPRB, 0.172765E+00_JPRB/)
+XCW( 744, :) = (/ &
+  &  0.106347E+01_JPRB, 0.107866E+01_JPRB, 0.109356E+01_JPRB, 0.110816E+01_JPRB &
+  &, 0.112244E+01_JPRB, 0.113640E+01_JPRB, 0.115002E+01_JPRB &
+  &, 0.116331E+01_JPRB, 0.117623E+01_JPRB, 0.118880E+01_JPRB, 0.120099E+01_JPRB &
+  &, 0.121280E+01_JPRB, 0.122423E+01_JPRB, 0.123525E+01_JPRB &
+  &, 0.124586E+01_JPRB, 0.125605E+01_JPRB, 0.126582E+01_JPRB, 0.127515E+01_JPRB &
+  &, 0.128404E+01_JPRB, 0.129248E+01_JPRB, 0.130047E+01_JPRB &
+  &, 0.130799E+01_JPRB, 0.131503E+01_JPRB, 0.132161E+01_JPRB, 0.132770E+01_JPRB &
+  &, 0.133330E+01_JPRB, 0.133840E+01_JPRB, 0.134301E+01_JPRB &
+  &, 0.134712E+01_JPRB, 0.135072E+01_JPRB, 0.135381E+01_JPRB, 0.135640E+01_JPRB &
+  &, 0.135846E+01_JPRB, 0.136002E+01_JPRB, 0.136105E+01_JPRB &
+  &, 0.136157E+01_JPRB, 0.136157E+01_JPRB, 0.136106E+01_JPRB, 0.136003E+01_JPRB &
+  &, 0.135849E+01_JPRB, 0.135643E+01_JPRB, 0.135387E+01_JPRB &
+  &, 0.135080E+01_JPRB, 0.134724E+01_JPRB, 0.134318E+01_JPRB, 0.133862E+01_JPRB &
+  &, 0.133359E+01_JPRB, 0.132806E+01_JPRB, 0.132207E+01_JPRB &
+  &, 0.131561E+01_JPRB, 0.130868E+01_JPRB, 0.130132E+01_JPRB, 0.129351E+01_JPRB &
+  &, 0.128525E+01_JPRB, 0.127657E+01_JPRB, 0.126749E+01_JPRB &
+  &, 0.125800E+01_JPRB, 0.124810E+01_JPRB, 0.123782E+01_JPRB, 0.122717E+01_JPRB &
+  &, 0.121614E+01_JPRB, 0.120478E+01_JPRB, 0.119308E+01_JPRB &
+  &, 0.118105E+01_JPRB, 0.116869E+01_JPRB, 0.115602E+01_JPRB, 0.114308E+01_JPRB &
+  &, 0.112986E+01_JPRB, 0.111636E+01_JPRB, 0.110262E+01_JPRB &
+  &, 0.108864E+01_JPRB, 0.107442E+01_JPRB, 0.105999E+01_JPRB, 0.104536E+01_JPRB &
+  &, 0.103056E+01_JPRB, 0.101556E+01_JPRB, 0.100041E+01_JPRB &
+  &, 0.985135E+00_JPRB, 0.969708E+00_JPRB, 0.954143E+00_JPRB, 0.938500E+00_JPRB &
+  &, 0.922738E+00_JPRB, 0.906917E+00_JPRB, 0.890993E+00_JPRB &
+  &, 0.875055E+00_JPRB, 0.859057E+00_JPRB, 0.843003E+00_JPRB, 0.826959E+00_JPRB &
+  &, 0.810902E+00_JPRB, 0.794867E+00_JPRB, 0.778827E+00_JPRB &
+  &, 0.762819E+00_JPRB, 0.746844E+00_JPRB, 0.730904E+00_JPRB, 0.715068E+00_JPRB &
+  &, 0.699269E+00_JPRB, 0.683576E+00_JPRB, 0.667953E+00_JPRB &
+  &, 0.652433E+00_JPRB, 0.637013E+00_JPRB, 0.621727E+00_JPRB, 0.606569E+00_JPRB &
+  &, 0.591535E+00_JPRB, 0.576657E+00_JPRB, 0.561926E+00_JPRB &
+  &, 0.547375E+00_JPRB, 0.532953E+00_JPRB, 0.518691E+00_JPRB, 0.504658E+00_JPRB &
+  &, 0.490761E+00_JPRB, 0.477069E+00_JPRB, 0.463611E+00_JPRB &
+  &, 0.450284E+00_JPRB, 0.437204E+00_JPRB, 0.424354E+00_JPRB, 0.411668E+00_JPRB &
+  &, 0.399218E+00_JPRB, 0.386984E+00_JPRB, 0.374990E+00_JPRB &
+  &, 0.363163E+00_JPRB, 0.351627E+00_JPRB, 0.340306E+00_JPRB, 0.329172E+00_JPRB &
+  &, 0.318297E+00_JPRB, 0.307654E+00_JPRB, 0.297264E+00_JPRB &
+  &, 0.287094E+00_JPRB, 0.277166E+00_JPRB, 0.267445E+00_JPRB, 0.257948E+00_JPRB &
+  &, 0.248755E+00_JPRB, 0.239710E+00_JPRB, 0.230949E+00_JPRB &
+  &, 0.222370E+00_JPRB, 0.214052E+00_JPRB, 0.205950E+00_JPRB, 0.198082E+00_JPRB &
+  &, 0.190401E+00_JPRB, 0.182985E+00_JPRB, 0.175787E+00_JPRB/)
+XCW( 745, :) = (/ &
+  &  0.106380E+01_JPRB, 0.107907E+01_JPRB, 0.109406E+01_JPRB, 0.110874E+01_JPRB &
+  &, 0.112311E+01_JPRB, 0.113716E+01_JPRB, 0.115088E+01_JPRB &
+  &, 0.116425E+01_JPRB, 0.117728E+01_JPRB, 0.118994E+01_JPRB, 0.120223E+01_JPRB &
+  &, 0.121414E+01_JPRB, 0.122566E+01_JPRB, 0.123677E+01_JPRB &
+  &, 0.124749E+01_JPRB, 0.125769E+01_JPRB, 0.126765E+01_JPRB, 0.127708E+01_JPRB &
+  &, 0.128608E+01_JPRB, 0.129462E+01_JPRB, 0.130271E+01_JPRB &
+  &, 0.131033E+01_JPRB, 0.131749E+01_JPRB, 0.132416E+01_JPRB, 0.133036E+01_JPRB &
+  &, 0.133606E+01_JPRB, 0.134128E+01_JPRB, 0.134599E+01_JPRB &
+  &, 0.135020E+01_JPRB, 0.135391E+01_JPRB, 0.135711E+01_JPRB, 0.135979E+01_JPRB &
+  &, 0.136197E+01_JPRB, 0.136362E+01_JPRB, 0.136476E+01_JPRB &
+  &, 0.136538E+01_JPRB, 0.136549E+01_JPRB, 0.136508E+01_JPRB, 0.136415E+01_JPRB &
+  &, 0.136270E+01_JPRB, 0.136075E+01_JPRB, 0.135828E+01_JPRB &
+  &, 0.135531E+01_JPRB, 0.135185E+01_JPRB, 0.134788E+01_JPRB, 0.134342E+01_JPRB &
+  &, 0.133846E+01_JPRB, 0.133303E+01_JPRB, 0.132703E+01_JPRB &
+  &, 0.132075E+01_JPRB, 0.131392E+01_JPRB, 0.130662E+01_JPRB, 0.129890E+01_JPRB &
+  &, 0.129073E+01_JPRB, 0.128212E+01_JPRB, 0.127310E+01_JPRB &
+  &, 0.126368E+01_JPRB, 0.125387E+01_JPRB, 0.124366E+01_JPRB, 0.123308E+01_JPRB &
+  &, 0.122212E+01_JPRB, 0.121081E+01_JPRB, 0.119916E+01_JPRB &
+  &, 0.118718E+01_JPRB, 0.117488E+01_JPRB, 0.116228E+01_JPRB, 0.114938E+01_JPRB &
+  &, 0.113619E+01_JPRB, 0.112275E+01_JPRB, 0.110904E+01_JPRB &
+  &, 0.109509E+01_JPRB, 0.108090E+01_JPRB, 0.106652E+01_JPRB, 0.105191E+01_JPRB &
+  &, 0.103713E+01_JPRB, 0.102217E+01_JPRB, 0.100704E+01_JPRB &
+  &, 0.991750E+00_JPRB, 0.976332E+00_JPRB, 0.960797E+00_JPRB, 0.945156E+00_JPRB &
+  &, 0.929392E+00_JPRB, 0.913566E+00_JPRB, 0.897661E+00_JPRB &
+  &, 0.881711E+00_JPRB, 0.865696E+00_JPRB, 0.849652E+00_JPRB, 0.833585E+00_JPRB &
+  &, 0.817501E+00_JPRB, 0.801434E+00_JPRB, 0.785359E+00_JPRB &
+  &, 0.769342E+00_JPRB, 0.753323E+00_JPRB, 0.737368E+00_JPRB, 0.721479E+00_JPRB &
+  &, 0.705657E+00_JPRB, 0.689903E+00_JPRB, 0.674249E+00_JPRB &
+  &, 0.658694E+00_JPRB, 0.643235E+00_JPRB, 0.627906E+00_JPRB, 0.612665E+00_JPRB &
+  &, 0.597580E+00_JPRB, 0.582646E+00_JPRB, 0.567855E+00_JPRB &
+  &, 0.553240E+00_JPRB, 0.538751E+00_JPRB, 0.524457E+00_JPRB, 0.510307E+00_JPRB &
+  &, 0.496371E+00_JPRB, 0.482593E+00_JPRB, 0.469045E+00_JPRB &
+  &, 0.455669E+00_JPRB, 0.442535E+00_JPRB, 0.429582E+00_JPRB, 0.416835E+00_JPRB &
+  &, 0.404272E+00_JPRB, 0.391969E+00_JPRB, 0.379853E+00_JPRB &
+  &, 0.367999E+00_JPRB, 0.356332E+00_JPRB, 0.344926E+00_JPRB, 0.333755E+00_JPRB &
+  &, 0.322788E+00_JPRB, 0.312049E+00_JPRB, 0.301558E+00_JPRB &
+  &, 0.291284E+00_JPRB, 0.281304E+00_JPRB, 0.271470E+00_JPRB, 0.261915E+00_JPRB &
+  &, 0.252602E+00_JPRB, 0.243491E+00_JPRB, 0.234602E+00_JPRB &
+  &, 0.226012E+00_JPRB, 0.217559E+00_JPRB, 0.209379E+00_JPRB, 0.201431E+00_JPRB &
+  &, 0.193666E+00_JPRB, 0.186163E+00_JPRB, 0.178876E+00_JPRB/)
+XCW( 746, :) = (/ &
+  &  0.106412E+01_JPRB, 0.107948E+01_JPRB, 0.109455E+01_JPRB, 0.110932E+01_JPRB &
+  &, 0.112379E+01_JPRB, 0.113793E+01_JPRB, 0.115174E+01_JPRB &
+  &, 0.116521E+01_JPRB, 0.117832E+01_JPRB, 0.119108E+01_JPRB, 0.120347E+01_JPRB &
+  &, 0.121547E+01_JPRB, 0.122709E+01_JPRB, 0.123831E+01_JPRB &
+  &, 0.124912E+01_JPRB, 0.125952E+01_JPRB, 0.126949E+01_JPRB, 0.127902E+01_JPRB &
+  &, 0.128812E+01_JPRB, 0.129677E+01_JPRB, 0.130496E+01_JPRB &
+  &, 0.131269E+01_JPRB, 0.131995E+01_JPRB, 0.132673E+01_JPRB, 0.133303E+01_JPRB &
+  &, 0.133884E+01_JPRB, 0.134416E+01_JPRB, 0.134898E+01_JPRB &
+  &, 0.135330E+01_JPRB, 0.135711E+01_JPRB, 0.136041E+01_JPRB, 0.136320E+01_JPRB &
+  &, 0.136548E+01_JPRB, 0.136724E+01_JPRB, 0.136848E+01_JPRB &
+  &, 0.136921E+01_JPRB, 0.136942E+01_JPRB, 0.136910E+01_JPRB, 0.136828E+01_JPRB &
+  &, 0.136694E+01_JPRB, 0.136508E+01_JPRB, 0.136272E+01_JPRB &
+  &, 0.135984E+01_JPRB, 0.135647E+01_JPRB, 0.135259E+01_JPRB, 0.134822E+01_JPRB &
+  &, 0.134337E+01_JPRB, 0.133803E+01_JPRB, 0.133221E+01_JPRB &
+  &, 0.132592E+01_JPRB, 0.131917E+01_JPRB, 0.131197E+01_JPRB, 0.130432E+01_JPRB &
+  &, 0.129622E+01_JPRB, 0.128770E+01_JPRB, 0.127877E+01_JPRB &
+  &, 0.126942E+01_JPRB, 0.125966E+01_JPRB, 0.124953E+01_JPRB, 0.123900E+01_JPRB &
+  &, 0.122811E+01_JPRB, 0.121687E+01_JPRB, 0.120529E+01_JPRB &
+  &, 0.119335E+01_JPRB, 0.118111E+01_JPRB, 0.116855E+01_JPRB, 0.115571E+01_JPRB &
+  &, 0.114257E+01_JPRB, 0.112916E+01_JPRB, 0.111550E+01_JPRB &
+  &, 0.110159E+01_JPRB, 0.108745E+01_JPRB, 0.107307E+01_JPRB, 0.105851E+01_JPRB &
+  &, 0.104375E+01_JPRB, 0.102881E+01_JPRB, 0.101369E+01_JPRB &
+  &, 0.998439E+00_JPRB, 0.983030E+00_JPRB, 0.967501E+00_JPRB, 0.951863E+00_JPRB &
+  &, 0.936125E+00_JPRB, 0.920269E+00_JPRB, 0.904383E+00_JPRB &
+  &, 0.888394E+00_JPRB, 0.872393E+00_JPRB, 0.856330E+00_JPRB, 0.840240E+00_JPRB &
+  &, 0.824159E+00_JPRB, 0.808062E+00_JPRB, 0.791984E+00_JPRB &
+  &, 0.775928E+00_JPRB, 0.759899E+00_JPRB, 0.743897E+00_JPRB, 0.727957E+00_JPRB &
+  &, 0.712113E+00_JPRB, 0.696298E+00_JPRB, 0.680614E+00_JPRB &
+  &, 0.664990E+00_JPRB, 0.649494E+00_JPRB, 0.634123E+00_JPRB, 0.618835E+00_JPRB &
+  &, 0.603700E+00_JPRB, 0.588712E+00_JPRB, 0.573864E+00_JPRB &
+  &, 0.559146E+00_JPRB, 0.544630E+00_JPRB, 0.530224E+00_JPRB, 0.516039E+00_JPRB &
+  &, 0.502023E+00_JPRB, 0.488204E+00_JPRB, 0.474568E+00_JPRB &
+  &, 0.461098E+00_JPRB, 0.447866E+00_JPRB, 0.434856E+00_JPRB, 0.422001E+00_JPRB &
+  &, 0.409422E+00_JPRB, 0.397003E+00_JPRB, 0.384815E+00_JPRB &
+  &, 0.372885E+00_JPRB, 0.361139E+00_JPRB, 0.349649E+00_JPRB, 0.338390E+00_JPRB &
+  &, 0.327332E+00_JPRB, 0.316497E+00_JPRB, 0.305907E+00_JPRB &
+  &, 0.295585E+00_JPRB, 0.285441E+00_JPRB, 0.275552E+00_JPRB, 0.265939E+00_JPRB &
+  &, 0.256507E+00_JPRB, 0.247332E+00_JPRB, 0.238375E+00_JPRB &
+  &, 0.229655E+00_JPRB, 0.221127E+00_JPRB, 0.212871E+00_JPRB, 0.204843E+00_JPRB &
+  &, 0.196994E+00_JPRB, 0.189406E+00_JPRB, 0.182030E+00_JPRB/)
+XCW( 747, :) = (/ &
+  &  0.106445E+01_JPRB, 0.107989E+01_JPRB, 0.109505E+01_JPRB, 0.110991E+01_JPRB &
+  &, 0.112446E+01_JPRB, 0.113869E+01_JPRB, 0.115260E+01_JPRB &
+  &, 0.116616E+01_JPRB, 0.117937E+01_JPRB, 0.119222E+01_JPRB, 0.120471E+01_JPRB &
+  &, 0.121681E+01_JPRB, 0.122853E+01_JPRB, 0.123985E+01_JPRB &
+  &, 0.125076E+01_JPRB, 0.126126E+01_JPRB, 0.127133E+01_JPRB, 0.128097E+01_JPRB &
+  &, 0.129017E+01_JPRB, 0.129892E+01_JPRB, 0.130722E+01_JPRB &
+  &, 0.131505E+01_JPRB, 0.132242E+01_JPRB, 0.132930E+01_JPRB, 0.133571E+01_JPRB &
+  &, 0.134163E+01_JPRB, 0.134705E+01_JPRB, 0.135198E+01_JPRB &
+  &, 0.135640E+01_JPRB, 0.136032E+01_JPRB, 0.136373E+01_JPRB, 0.136663E+01_JPRB &
+  &, 0.136901E+01_JPRB, 0.137088E+01_JPRB, 0.137222E+01_JPRB &
+  &, 0.137305E+01_JPRB, 0.137336E+01_JPRB, 0.137315E+01_JPRB, 0.137243E+01_JPRB &
+  &, 0.137118E+01_JPRB, 0.136943E+01_JPRB, 0.136716E+01_JPRB &
+  &, 0.136439E+01_JPRB, 0.136111E+01_JPRB, 0.135733E+01_JPRB, 0.135306E+01_JPRB &
+  &, 0.134830E+01_JPRB, 0.134304E+01_JPRB, 0.133732E+01_JPRB &
+  &, 0.133111E+01_JPRB, 0.132446E+01_JPRB, 0.131733E+01_JPRB, 0.130977E+01_JPRB &
+  &, 0.130175E+01_JPRB, 0.129330E+01_JPRB, 0.128445E+01_JPRB &
+  &, 0.127517E+01_JPRB, 0.126549E+01_JPRB, 0.125542E+01_JPRB, 0.124498E+01_JPRB &
+  &, 0.123414E+01_JPRB, 0.122296E+01_JPRB, 0.121143E+01_JPRB &
+  &, 0.119957E+01_JPRB, 0.118738E+01_JPRB, 0.117489E+01_JPRB, 0.116207E+01_JPRB &
+  &, 0.114898E+01_JPRB, 0.113563E+01_JPRB, 0.112197E+01_JPRB &
+  &, 0.110813E+01_JPRB, 0.109402E+01_JPRB, 0.107969E+01_JPRB, 0.106515E+01_JPRB &
+  &, 0.105041E+01_JPRB, 0.103549E+01_JPRB, 0.102039E+01_JPRB &
+  &, 0.100515E+01_JPRB, 0.989753E+00_JPRB, 0.974256E+00_JPRB, 0.958596E+00_JPRB &
+  &, 0.942858E+00_JPRB, 0.927052E+00_JPRB, 0.911132E+00_JPRB &
+  &, 0.895161E+00_JPRB, 0.879118E+00_JPRB, 0.863066E+00_JPRB, 0.846954E+00_JPRB &
+  &, 0.830847E+00_JPRB, 0.814751E+00_JPRB, 0.798639E+00_JPRB &
+  &, 0.782546E+00_JPRB, 0.766474E+00_JPRB, 0.750459E+00_JPRB, 0.734501E+00_JPRB &
+  &, 0.718603E+00_JPRB, 0.702763E+00_JPRB, 0.687015E+00_JPRB &
+  &, 0.671358E+00_JPRB, 0.655825E+00_JPRB, 0.640376E+00_JPRB, 0.625044E+00_JPRB &
+  &, 0.609859E+00_JPRB, 0.594818E+00_JPRB, 0.579912E+00_JPRB &
+  &, 0.565133E+00_JPRB, 0.550551E+00_JPRB, 0.536115E+00_JPRB, 0.521814E+00_JPRB &
+  &, 0.507762E+00_JPRB, 0.493859E+00_JPRB, 0.480135E+00_JPRB &
+  &, 0.466617E+00_JPRB, 0.453288E+00_JPRB, 0.440176E+00_JPRB, 0.427262E+00_JPRB &
+  &, 0.414572E+00_JPRB, 0.402085E+00_JPRB, 0.389826E+00_JPRB &
+  &, 0.377821E+00_JPRB, 0.365995E+00_JPRB, 0.354423E+00_JPRB, 0.343026E+00_JPRB &
+  &, 0.331929E+00_JPRB, 0.320999E+00_JPRB, 0.310365E+00_JPRB &
+  &, 0.299885E+00_JPRB, 0.289691E+00_JPRB, 0.279748E+00_JPRB, 0.269963E+00_JPRB &
+  &, 0.260470E+00_JPRB, 0.251231E+00_JPRB, 0.242148E+00_JPRB &
+  &, 0.233357E+00_JPRB, 0.224757E+00_JPRB, 0.216425E+00_JPRB, 0.208254E+00_JPRB &
+  &, 0.200259E+00_JPRB, 0.192649E+00_JPRB, 0.185184E+00_JPRB/)
+XCW( 748, :) = (/ &
+  &  0.106477E+01_JPRB, 0.108031E+01_JPRB, 0.109555E+01_JPRB, 0.111050E+01_JPRB &
+  &, 0.112514E+01_JPRB, 0.113946E+01_JPRB, 0.115346E+01_JPRB &
+  &, 0.116711E+01_JPRB, 0.118042E+01_JPRB, 0.119337E+01_JPRB, 0.120595E+01_JPRB &
+  &, 0.121815E+01_JPRB, 0.122997E+01_JPRB, 0.124139E+01_JPRB &
+  &, 0.125240E+01_JPRB, 0.126300E+01_JPRB, 0.127318E+01_JPRB, 0.128292E+01_JPRB &
+  &, 0.129222E+01_JPRB, 0.130108E+01_JPRB, 0.130948E+01_JPRB &
+  &, 0.131742E+01_JPRB, 0.132489E+01_JPRB, 0.133189E+01_JPRB, 0.133840E+01_JPRB &
+  &, 0.134443E+01_JPRB, 0.134996E+01_JPRB, 0.135499E+01_JPRB &
+  &, 0.135952E+01_JPRB, 0.136354E+01_JPRB, 0.136706E+01_JPRB, 0.137006E+01_JPRB &
+  &, 0.137255E+01_JPRB, 0.137452E+01_JPRB, 0.137597E+01_JPRB &
+  &, 0.137691E+01_JPRB, 0.137732E+01_JPRB, 0.137722E+01_JPRB, 0.137659E+01_JPRB &
+  &, 0.137545E+01_JPRB, 0.137380E+01_JPRB, 0.137163E+01_JPRB &
+  &, 0.136896E+01_JPRB, 0.136578E+01_JPRB, 0.136209E+01_JPRB, 0.135792E+01_JPRB &
+  &, 0.135323E+01_JPRB, 0.134808E+01_JPRB, 0.134245E+01_JPRB &
+  &, 0.133633E+01_JPRB, 0.132976E+01_JPRB, 0.132272E+01_JPRB, 0.131523E+01_JPRB &
+  &, 0.130730E+01_JPRB, 0.129894E+01_JPRB, 0.129016E+01_JPRB &
+  &, 0.128096E+01_JPRB, 0.127135E+01_JPRB, 0.126136E+01_JPRB, 0.125097E+01_JPRB &
+  &, 0.124022E+01_JPRB, 0.122909E+01_JPRB, 0.121762E+01_JPRB &
+  &, 0.120582E+01_JPRB, 0.119367E+01_JPRB, 0.118124E+01_JPRB, 0.116848E+01_JPRB &
+  &, 0.115543E+01_JPRB, 0.114212E+01_JPRB, 0.112853E+01_JPRB &
+  &, 0.111471E+01_JPRB, 0.110063E+01_JPRB, 0.108633E+01_JPRB, 0.107181E+01_JPRB &
+  &, 0.105710E+01_JPRB, 0.104222E+01_JPRB, 0.102714E+01_JPRB &
+  &, 0.101191E+01_JPRB, 0.996550E+00_JPRB, 0.981036E+00_JPRB, 0.965407E+00_JPRB &
+  &, 0.949670E+00_JPRB, 0.933835E+00_JPRB, 0.917936E+00_JPRB &
+  &, 0.901956E+00_JPRB, 0.885927E+00_JPRB, 0.869859E+00_JPRB, 0.853727E+00_JPRB &
+  &, 0.837626E+00_JPRB, 0.821471E+00_JPRB, 0.805357E+00_JPRB &
+  &, 0.789227E+00_JPRB, 0.773147E+00_JPRB, 0.757086E+00_JPRB, 0.741113E+00_JPRB &
+  &, 0.725160E+00_JPRB, 0.709297E+00_JPRB, 0.693522E+00_JPRB &
+  &, 0.677797E+00_JPRB, 0.662192E+00_JPRB, 0.646704E+00_JPRB, 0.631327E+00_JPRB &
+  &, 0.616095E+00_JPRB, 0.600962E+00_JPRB, 0.586000E+00_JPRB &
+  &, 0.571199E+00_JPRB, 0.556512E+00_JPRB, 0.542007E+00_JPRB, 0.527674E+00_JPRB &
+  &, 0.513543E+00_JPRB, 0.499558E+00_JPRB, 0.485790E+00_JPRB &
+  &, 0.472181E+00_JPRB, 0.458802E+00_JPRB, 0.445589E+00_JPRB, 0.432617E+00_JPRB &
+  &, 0.419817E+00_JPRB, 0.407264E+00_JPRB, 0.394935E+00_JPRB &
+  &, 0.382807E+00_JPRB, 0.370903E+00_JPRB, 0.359249E+00_JPRB, 0.347765E+00_JPRB &
+  &, 0.336579E+00_JPRB, 0.325555E+00_JPRB, 0.314823E+00_JPRB &
+  &, 0.304296E+00_JPRB, 0.293996E+00_JPRB, 0.283943E+00_JPRB, 0.274102E+00_JPRB &
+  &, 0.264491E+00_JPRB, 0.255131E+00_JPRB, 0.246041E+00_JPRB &
+  &, 0.237121E+00_JPRB, 0.228448E+00_JPRB, 0.219979E+00_JPRB, 0.211792E+00_JPRB &
+  &, 0.203780E+00_JPRB, 0.196022E+00_JPRB, 0.188404E+00_JPRB/)
+XCW( 749, :) = (/ &
+  &  0.106510E+01_JPRB, 0.108072E+01_JPRB, 0.109605E+01_JPRB, 0.111109E+01_JPRB &
+  &, 0.112582E+01_JPRB, 0.114023E+01_JPRB, 0.115432E+01_JPRB &
+  &, 0.116807E+01_JPRB, 0.118147E+01_JPRB, 0.119452E+01_JPRB, 0.120720E+01_JPRB &
+  &, 0.121950E+01_JPRB, 0.123142E+01_JPRB, 0.124294E+01_JPRB &
+  &, 0.125405E+01_JPRB, 0.126475E+01_JPRB, 0.127503E+01_JPRB, 0.128488E+01_JPRB &
+  &, 0.129429E+01_JPRB, 0.130325E+01_JPRB, 0.131176E+01_JPRB &
+  &, 0.131980E+01_JPRB, 0.132738E+01_JPRB, 0.133448E+01_JPRB, 0.134110E+01_JPRB &
+  &, 0.134723E+01_JPRB, 0.135287E+01_JPRB, 0.135801E+01_JPRB &
+  &, 0.136265E+01_JPRB, 0.136678E+01_JPRB, 0.137040E+01_JPRB, 0.137351E+01_JPRB &
+  &, 0.137611E+01_JPRB, 0.137819E+01_JPRB, 0.137974E+01_JPRB &
+  &, 0.138078E+01_JPRB, 0.138130E+01_JPRB, 0.138130E+01_JPRB, 0.138078E+01_JPRB &
+  &, 0.137973E+01_JPRB, 0.137818E+01_JPRB, 0.137612E+01_JPRB &
+  &, 0.137354E+01_JPRB, 0.137045E+01_JPRB, 0.136687E+01_JPRB, 0.136278E+01_JPRB &
+  &, 0.135821E+01_JPRB, 0.135314E+01_JPRB, 0.134759E+01_JPRB &
+  &, 0.134157E+01_JPRB, 0.133509E+01_JPRB, 0.132814E+01_JPRB, 0.132073E+01_JPRB &
+  &, 0.131288E+01_JPRB, 0.130461E+01_JPRB, 0.129589E+01_JPRB &
+  &, 0.128677E+01_JPRB, 0.127725E+01_JPRB, 0.126731E+01_JPRB, 0.125699E+01_JPRB &
+  &, 0.124631E+01_JPRB, 0.123525E+01_JPRB, 0.122384E+01_JPRB &
+  &, 0.121210E+01_JPRB, 0.120002E+01_JPRB, 0.118762E+01_JPRB, 0.117493E+01_JPRB &
+  &, 0.116192E+01_JPRB, 0.114865E+01_JPRB, 0.113512E+01_JPRB &
+  &, 0.112133E+01_JPRB, 0.110728E+01_JPRB, 0.109301E+01_JPRB, 0.107854E+01_JPRB &
+  &, 0.106386E+01_JPRB, 0.104898E+01_JPRB, 0.103394E+01_JPRB &
+  &, 0.101872E+01_JPRB, 0.100337E+01_JPRB, 0.987867E+00_JPRB, 0.972269E+00_JPRB &
+  &, 0.956534E+00_JPRB, 0.940698E+00_JPRB, 0.924795E+00_JPRB &
+  &, 0.908806E+00_JPRB, 0.892766E+00_JPRB, 0.876681E+00_JPRB, 0.860559E+00_JPRB &
+  &, 0.844434E+00_JPRB, 0.828282E+00_JPRB, 0.812106E+00_JPRB &
+  &, 0.795972E+00_JPRB, 0.779852E+00_JPRB, 0.763779E+00_JPRB, 0.747757E+00_JPRB &
+  &, 0.731786E+00_JPRB, 0.715865E+00_JPRB, 0.700028E+00_JPRB &
+  &, 0.684308E+00_JPRB, 0.668633E+00_JPRB, 0.653105E+00_JPRB, 0.637686E+00_JPRB &
+  &, 0.622368E+00_JPRB, 0.607224E+00_JPRB, 0.592166E+00_JPRB &
+  &, 0.577306E+00_JPRB, 0.562554E+00_JPRB, 0.547981E+00_JPRB, 0.533575E+00_JPRB &
+  &, 0.519367E+00_JPRB, 0.505343E+00_JPRB, 0.491446E+00_JPRB &
+  &, 0.477790E+00_JPRB, 0.464315E+00_JPRB, 0.451049E+00_JPRB, 0.437972E+00_JPRB &
+  &, 0.425158E+00_JPRB, 0.412491E+00_JPRB, 0.400093E+00_JPRB &
+  &, 0.387842E+00_JPRB, 0.375861E+00_JPRB, 0.364126E+00_JPRB, 0.352609E+00_JPRB &
+  &, 0.341281E+00_JPRB, 0.330218E+00_JPRB, 0.319335E+00_JPRB &
+  &, 0.308762E+00_JPRB, 0.298357E+00_JPRB, 0.288195E+00_JPRB, 0.278298E+00_JPRB &
+  &, 0.268629E+00_JPRB, 0.259148E+00_JPRB, 0.249934E+00_JPRB &
+  &, 0.240946E+00_JPRB, 0.232201E+00_JPRB, 0.223657E+00_JPRB, 0.215331E+00_JPRB &
+  &, 0.207237E+00_JPRB, 0.199395E+00_JPRB, 0.191755E+00_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART107',1,ZHOOK_HANDLE)
+END SUBROUTINE PART107
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART108
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART108',0,ZHOOK_HANDLE)
+
+XCW( 750, :) = (/ &
+  &  0.106543E+01_JPRB, 0.108113E+01_JPRB, 0.109655E+01_JPRB, 0.111168E+01_JPRB &
+  &, 0.112650E+01_JPRB, 0.114101E+01_JPRB, 0.115519E+01_JPRB &
+  &, 0.116903E+01_JPRB, 0.118253E+01_JPRB, 0.119567E+01_JPRB, 0.120845E+01_JPRB &
+  &, 0.122085E+01_JPRB, 0.123287E+01_JPRB, 0.124449E+01_JPRB &
+  &, 0.125570E+01_JPRB, 0.126651E+01_JPRB, 0.127689E+01_JPRB, 0.128684E+01_JPRB &
+  &, 0.129636E+01_JPRB, 0.130542E+01_JPRB, 0.131403E+01_JPRB &
+  &, 0.132219E+01_JPRB, 0.132987E+01_JPRB, 0.133708E+01_JPRB, 0.134381E+01_JPRB &
+  &, 0.135004E+01_JPRB, 0.135579E+01_JPRB, 0.136104E+01_JPRB &
+  &, 0.136579E+01_JPRB, 0.137003E+01_JPRB, 0.137376E+01_JPRB, 0.137697E+01_JPRB &
+  &, 0.137967E+01_JPRB, 0.138186E+01_JPRB, 0.138352E+01_JPRB &
+  &, 0.138467E+01_JPRB, 0.138529E+01_JPRB, 0.138540E+01_JPRB, 0.138497E+01_JPRB &
+  &, 0.138404E+01_JPRB, 0.138259E+01_JPRB, 0.138062E+01_JPRB &
+  &, 0.137815E+01_JPRB, 0.137517E+01_JPRB, 0.137167E+01_JPRB, 0.136768E+01_JPRB &
+  &, 0.136320E+01_JPRB, 0.135822E+01_JPRB, 0.135277E+01_JPRB &
+  &, 0.134684E+01_JPRB, 0.134044E+01_JPRB, 0.133357E+01_JPRB, 0.132625E+01_JPRB &
+  &, 0.131849E+01_JPRB, 0.131029E+01_JPRB, 0.130166E+01_JPRB &
+  &, 0.129262E+01_JPRB, 0.128316E+01_JPRB, 0.127330E+01_JPRB, 0.126305E+01_JPRB &
+  &, 0.125244E+01_JPRB, 0.124145E+01_JPRB, 0.123010E+01_JPRB &
+  &, 0.121841E+01_JPRB, 0.120640E+01_JPRB, 0.119405E+01_JPRB, 0.118140E+01_JPRB &
+  &, 0.116845E+01_JPRB, 0.115522E+01_JPRB, 0.114173E+01_JPRB &
+  &, 0.112797E+01_JPRB, 0.111398E+01_JPRB, 0.109976E+01_JPRB, 0.108530E+01_JPRB &
+  &, 0.107064E+01_JPRB, 0.105580E+01_JPRB, 0.104078E+01_JPRB &
+  &, 0.102558E+01_JPRB, 0.101024E+01_JPRB, 0.994749E+00_JPRB, 0.979156E+00_JPRB &
+  &, 0.963425E+00_JPRB, 0.947615E+00_JPRB, 0.931709E+00_JPRB &
+  &, 0.915712E+00_JPRB, 0.899661E+00_JPRB, 0.883561E+00_JPRB, 0.867450E+00_JPRB &
+  &, 0.851273E+00_JPRB, 0.835124E+00_JPRB, 0.818949E+00_JPRB &
+  &, 0.802780E+00_JPRB, 0.786621E+00_JPRB, 0.770538E+00_JPRB, 0.754469E+00_JPRB &
+  &, 0.738446E+00_JPRB, 0.722503E+00_JPRB, 0.706640E+00_JPRB &
+  &, 0.690855E+00_JPRB, 0.675146E+00_JPRB, 0.659544E+00_JPRB, 0.644082E+00_JPRB &
+  &, 0.628719E+00_JPRB, 0.613485E+00_JPRB, 0.598412E+00_JPRB &
+  &, 0.583453E+00_JPRB, 0.568679E+00_JPRB, 0.554038E+00_JPRB, 0.539561E+00_JPRB &
+  &, 0.525276E+00_JPRB, 0.511172E+00_JPRB, 0.497233E+00_JPRB &
+  &, 0.483488E+00_JPRB, 0.469919E+00_JPRB, 0.456600E+00_JPRB, 0.443420E+00_JPRB &
+  &, 0.430499E+00_JPRB, 0.417767E+00_JPRB, 0.405252E+00_JPRB &
+  &, 0.392977E+00_JPRB, 0.380920E+00_JPRB, 0.369054E+00_JPRB, 0.357452E+00_JPRB &
+  &, 0.346036E+00_JPRB, 0.334881E+00_JPRB, 0.323956E+00_JPRB &
+  &, 0.313228E+00_JPRB, 0.302774E+00_JPRB, 0.292561E+00_JPRB, 0.282552E+00_JPRB &
+  &, 0.272767E+00_JPRB, 0.263225E+00_JPRB, 0.253887E+00_JPRB &
+  &, 0.244831E+00_JPRB, 0.235954E+00_JPRB, 0.227336E+00_JPRB, 0.218932E+00_JPRB &
+  &, 0.210758E+00_JPRB, 0.202833E+00_JPRB, 0.195106E+00_JPRB/)
+XCW( 751, :) = (/ &
+  &  0.106576E+01_JPRB, 0.108155E+01_JPRB, 0.109706E+01_JPRB, 0.111227E+01_JPRB &
+  &, 0.112718E+01_JPRB, 0.114178E+01_JPRB, 0.115606E+01_JPRB &
+  &, 0.117000E+01_JPRB, 0.118359E+01_JPRB, 0.119683E+01_JPRB, 0.120971E+01_JPRB &
+  &, 0.122221E+01_JPRB, 0.123432E+01_JPRB, 0.124604E+01_JPRB &
+  &, 0.125736E+01_JPRB, 0.126827E+01_JPRB, 0.127876E+01_JPRB, 0.128881E+01_JPRB &
+  &, 0.129843E+01_JPRB, 0.130760E+01_JPRB, 0.131632E+01_JPRB &
+  &, 0.132458E+01_JPRB, 0.133237E+01_JPRB, 0.133969E+01_JPRB, 0.134652E+01_JPRB &
+  &, 0.135287E+01_JPRB, 0.135873E+01_JPRB, 0.136408E+01_JPRB &
+  &, 0.136894E+01_JPRB, 0.137328E+01_JPRB, 0.137712E+01_JPRB, 0.138045E+01_JPRB &
+  &, 0.138326E+01_JPRB, 0.138555E+01_JPRB, 0.138732E+01_JPRB &
+  &, 0.138857E+01_JPRB, 0.138929E+01_JPRB, 0.138950E+01_JPRB, 0.138919E+01_JPRB &
+  &, 0.138836E+01_JPRB, 0.138701E+01_JPRB, 0.138515E+01_JPRB &
+  &, 0.138278E+01_JPRB, 0.137989E+01_JPRB, 0.137649E+01_JPRB, 0.137261E+01_JPRB &
+  &, 0.136821E+01_JPRB, 0.136333E+01_JPRB, 0.135797E+01_JPRB &
+  &, 0.135214E+01_JPRB, 0.134581E+01_JPRB, 0.133904E+01_JPRB, 0.133181E+01_JPRB &
+  &, 0.132412E+01_JPRB, 0.131601E+01_JPRB, 0.130746E+01_JPRB &
+  &, 0.129849E+01_JPRB, 0.128911E+01_JPRB, 0.127932E+01_JPRB, 0.126914E+01_JPRB &
+  &, 0.125860E+01_JPRB, 0.124768E+01_JPRB, 0.123639E+01_JPRB &
+  &, 0.122476E+01_JPRB, 0.121280E+01_JPRB, 0.120052E+01_JPRB, 0.118791E+01_JPRB &
+  &, 0.117502E+01_JPRB, 0.116185E+01_JPRB, 0.114840E+01_JPRB &
+  &, 0.113468E+01_JPRB, 0.112072E+01_JPRB, 0.110653E+01_JPRB, 0.109210E+01_JPRB &
+  &, 0.107748E+01_JPRB, 0.106267E+01_JPRB, 0.104767E+01_JPRB &
+  &, 0.103249E+01_JPRB, 0.101716E+01_JPRB, 0.100171E+01_JPRB, 0.986096E+00_JPRB &
+  &, 0.970395E+00_JPRB, 0.954559E+00_JPRB, 0.938649E+00_JPRB &
+  &, 0.922674E+00_JPRB, 0.906613E+00_JPRB, 0.890528E+00_JPRB, 0.874370E+00_JPRB &
+  &, 0.858201E+00_JPRB, 0.841997E+00_JPRB, 0.825822E+00_JPRB &
+  &, 0.809620E+00_JPRB, 0.793454E+00_JPRB, 0.777330E+00_JPRB, 0.761214E+00_JPRB &
+  &, 0.745173E+00_JPRB, 0.729209E+00_JPRB, 0.713287E+00_JPRB &
+  &, 0.697438E+00_JPRB, 0.681149E+00_JPRB, 0.666056E+00_JPRB, 0.650554E+00_JPRB &
+  &, 0.635145E+00_JPRB, 0.619862E+00_JPRB, 0.604697E+00_JPRB &
+  &, 0.589680E+00_JPRB, 0.574844E+00_JPRB, 0.560137E+00_JPRB, 0.545588E+00_JPRB &
+  &, 0.531229E+00_JPRB, 0.517045E+00_JPRB, 0.503065E+00_JPRB &
+  &, 0.489232E+00_JPRB, 0.475615E+00_JPRB, 0.462198E+00_JPRB, 0.448963E+00_JPRB &
+  &, 0.435934E+00_JPRB, 0.423140E+00_JPRB, 0.410557E+00_JPRB &
+  &, 0.398162E+00_JPRB, 0.386030E+00_JPRB, 0.374084E+00_JPRB, 0.362348E+00_JPRB &
+  &, 0.350897E+00_JPRB, 0.339651E+00_JPRB, 0.328631E+00_JPRB &
+  &, 0.317804E+00_JPRB, 0.307247E+00_JPRB, 0.296927E+00_JPRB, 0.286806E+00_JPRB &
+  &, 0.276963E+00_JPRB, 0.267361E+00_JPRB, 0.257959E+00_JPRB &
+  &, 0.248776E+00_JPRB, 0.239830E+00_JPRB, 0.231077E+00_JPRB, 0.222596E+00_JPRB &
+  &, 0.214343E+00_JPRB, 0.206335E+00_JPRB, 0.198458E+00_JPRB/)
+XCW( 752, :) = (/ &
+  &  0.106609E+01_JPRB, 0.108196E+01_JPRB, 0.109756E+01_JPRB, 0.111287E+01_JPRB &
+  &, 0.112787E+01_JPRB, 0.114256E+01_JPRB, 0.115693E+01_JPRB &
+  &, 0.117096E+01_JPRB, 0.118465E+01_JPRB, 0.119799E+01_JPRB, 0.121096E+01_JPRB &
+  &, 0.122356E+01_JPRB, 0.123578E+01_JPRB, 0.124760E+01_JPRB &
+  &, 0.125902E+01_JPRB, 0.127004E+01_JPRB, 0.128063E+01_JPRB, 0.129079E+01_JPRB &
+  &, 0.130051E+01_JPRB, 0.130979E+01_JPRB, 0.131862E+01_JPRB &
+  &, 0.132698E+01_JPRB, 0.133488E+01_JPRB, 0.134231E+01_JPRB, 0.134925E+01_JPRB &
+  &, 0.135570E+01_JPRB, 0.136167E+01_JPRB, 0.136713E+01_JPRB &
+  &, 0.137210E+01_JPRB, 0.137655E+01_JPRB, 0.138050E+01_JPRB, 0.138394E+01_JPRB &
+  &, 0.138685E+01_JPRB, 0.138925E+01_JPRB, 0.139113E+01_JPRB &
+  &, 0.139249E+01_JPRB, 0.139332E+01_JPRB, 0.139364E+01_JPRB, 0.139339E+01_JPRB &
+  &, 0.139270E+01_JPRB, 0.139146E+01_JPRB, 0.138970E+01_JPRB &
+  &, 0.138742E+01_JPRB, 0.138463E+01_JPRB, 0.138134E+01_JPRB, 0.137754E+01_JPRB &
+  &, 0.137325E+01_JPRB, 0.136847E+01_JPRB, 0.136320E+01_JPRB &
+  &, 0.135745E+01_JPRB, 0.135123E+01_JPRB, 0.134454E+01_JPRB, 0.133739E+01_JPRB &
+  &, 0.132979E+01_JPRB, 0.132175E+01_JPRB, 0.131329E+01_JPRB &
+  &, 0.130439E+01_JPRB, 0.129509E+01_JPRB, 0.128539E+01_JPRB, 0.127528E+01_JPRB &
+  &, 0.126480E+01_JPRB, 0.125393E+01_JPRB, 0.124272E+01_JPRB &
+  &, 0.123115E+01_JPRB, 0.121925E+01_JPRB, 0.120702E+01_JPRB, 0.119448E+01_JPRB &
+  &, 0.118163E+01_JPRB, 0.116850E+01_JPRB, 0.115509E+01_JPRB &
+  &, 0.114143E+01_JPRB, 0.112750E+01_JPRB, 0.111334E+01_JPRB, 0.109896E+01_JPRB &
+  &, 0.108435E+01_JPRB, 0.106956E+01_JPRB, 0.105458E+01_JPRB &
+  &, 0.103945E+01_JPRB, 0.102414E+01_JPRB, 0.100869E+01_JPRB, 0.993087E+00_JPRB &
+  &, 0.977391E+00_JPRB, 0.961583E+00_JPRB, 0.945672E+00_JPRB &
+  &, 0.929691E+00_JPRB, 0.913621E+00_JPRB, 0.897524E+00_JPRB, 0.881349E+00_JPRB &
+  &, 0.865160E+00_JPRB, 0.848961E+00_JPRB, 0.832758E+00_JPRB &
+  &, 0.816554E+00_JPRB, 0.800353E+00_JPRB, 0.784187E+00_JPRB, 0.768059E+00_JPRB &
+  &, 0.751969E+00_JPRB, 0.735951E+00_JPRB, 0.720004E+00_JPRB &
+  &, 0.704128E+00_JPRB, 0.688281E+00_JPRB, 0.672642E+00_JPRB, 0.657063E+00_JPRB &
+  &, 0.641610E+00_JPRB, 0.626279E+00_JPRB, 0.611062E+00_JPRB &
+  &, 0.595988E+00_JPRB, 0.581050E+00_JPRB, 0.566319E+00_JPRB, 0.551700E+00_JPRB &
+  &, 0.537267E+00_JPRB, 0.523004E+00_JPRB, 0.508942E+00_JPRB &
+  &, 0.495020E+00_JPRB, 0.481356E+00_JPRB, 0.467843E+00_JPRB, 0.454553E+00_JPRB &
+  &, 0.441418E+00_JPRB, 0.428561E+00_JPRB, 0.415863E+00_JPRB &
+  &, 0.403397E+00_JPRB, 0.391191E+00_JPRB, 0.379167E+00_JPRB, 0.367348E+00_JPRB &
+  &, 0.355811E+00_JPRB, 0.344475E+00_JPRB, 0.333360E+00_JPRB &
+  &, 0.322435E+00_JPRB, 0.311776E+00_JPRB, 0.301406E+00_JPRB, 0.291175E+00_JPRB &
+  &, 0.281218E+00_JPRB, 0.271497E+00_JPRB, 0.262032E+00_JPRB &
+  &, 0.252783E+00_JPRB, 0.243706E+00_JPRB, 0.234943E+00_JPRB, 0.226324E+00_JPRB &
+  &, 0.217992E+00_JPRB, 0.209838E+00_JPRB, 0.201940E+00_JPRB/)
+XCW( 753, :) = (/ &
+  &  0.106642E+01_JPRB, 0.108238E+01_JPRB, 0.109807E+01_JPRB, 0.111346E+01_JPRB &
+  &, 0.112856E+01_JPRB, 0.114334E+01_JPRB, 0.115780E+01_JPRB &
+  &, 0.117193E+01_JPRB, 0.118572E+01_JPRB, 0.119915E+01_JPRB, 0.121223E+01_JPRB &
+  &, 0.122493E+01_JPRB, 0.123724E+01_JPRB, 0.124917E+01_JPRB &
+  &, 0.126069E+01_JPRB, 0.127181E+01_JPRB, 0.128250E+01_JPRB, 0.129277E+01_JPRB &
+  &, 0.130260E+01_JPRB, 0.131199E+01_JPRB, 0.132092E+01_JPRB &
+  &, 0.132939E+01_JPRB, 0.133740E+01_JPRB, 0.134493E+01_JPRB, 0.135198E+01_JPRB &
+  &, 0.135855E+01_JPRB, 0.136462E+01_JPRB, 0.137020E+01_JPRB &
+  &, 0.137527E+01_JPRB, 0.137984E+01_JPRB, 0.138390E+01_JPRB, 0.138744E+01_JPRB &
+  &, 0.139046E+01_JPRB, 0.139297E+01_JPRB, 0.139496E+01_JPRB &
+  &, 0.139642E+01_JPRB, 0.139736E+01_JPRB, 0.139778E+01_JPRB, 0.139768E+01_JPRB &
+  &, 0.139705E+01_JPRB, 0.139592E+01_JPRB, 0.139426E+01_JPRB &
+  &, 0.139208E+01_JPRB, 0.138940E+01_JPRB, 0.138621E+01_JPRB, 0.138250E+01_JPRB &
+  &, 0.137831E+01_JPRB, 0.137362E+01_JPRB, 0.136845E+01_JPRB &
+  &, 0.136279E+01_JPRB, 0.135666E+01_JPRB, 0.135005E+01_JPRB, 0.134299E+01_JPRB &
+  &, 0.133548E+01_JPRB, 0.132754E+01_JPRB, 0.131914E+01_JPRB &
+  &, 0.131033E+01_JPRB, 0.130110E+01_JPRB, 0.129147E+01_JPRB, 0.128144E+01_JPRB &
+  &, 0.127103E+01_JPRB, 0.126023E+01_JPRB, 0.124908E+01_JPRB &
+  &, 0.123757E+01_JPRB, 0.122573E+01_JPRB, 0.121356E+01_JPRB, 0.120106E+01_JPRB &
+  &, 0.118826E+01_JPRB, 0.117519E+01_JPRB, 0.116182E+01_JPRB &
+  &, 0.114819E+01_JPRB, 0.113432E+01_JPRB, 0.112020E+01_JPRB, 0.110585E+01_JPRB &
+  &, 0.109129E+01_JPRB, 0.107653E+01_JPRB, 0.106157E+01_JPRB &
+  &, 0.104643E+01_JPRB, 0.103116E+01_JPRB, 0.101570E+01_JPRB, 0.100013E+01_JPRB &
+  &, 0.984439E+00_JPRB, 0.968634E+00_JPRB, 0.952722E+00_JPRB &
+  &, 0.936737E+00_JPRB, 0.920687E+00_JPRB, 0.904549E+00_JPRB, 0.888387E+00_JPRB &
+  &, 0.872208E+00_JPRB, 0.855986E+00_JPRB, 0.839756E+00_JPRB &
+  &, 0.823521E+00_JPRB, 0.807283E+00_JPRB, 0.791110E+00_JPRB, 0.774937E+00_JPRB &
+  &, 0.758832E+00_JPRB, 0.742761E+00_JPRB, 0.726757E+00_JPRB &
+  &, 0.710853E+00_JPRB, 0.695012E+00_JPRB, 0.679303E+00_JPRB, 0.663647E+00_JPRB &
+  &, 0.648152E+00_JPRB, 0.632735E+00_JPRB, 0.617465E+00_JPRB &
+  &, 0.602336E+00_JPRB, 0.587378E+00_JPRB, 0.572542E+00_JPRB, 0.557855E+00_JPRB &
+  &, 0.543348E+00_JPRB, 0.529051E+00_JPRB, 0.514862E+00_JPRB &
+  &, 0.500898E+00_JPRB, 0.487143E+00_JPRB, 0.473580E+00_JPRB, 0.460189E+00_JPRB &
+  &, 0.446997E+00_JPRB, 0.434030E+00_JPRB, 0.421267E+00_JPRB &
+  &, 0.408732E+00_JPRB, 0.396402E+00_JPRB, 0.384300E+00_JPRB, 0.372400E+00_JPRB &
+  &, 0.360778E+00_JPRB, 0.349298E+00_JPRB, 0.338144E+00_JPRB &
+  &, 0.327122E+00_JPRB, 0.316417E+00_JPRB, 0.305885E+00_JPRB, 0.295601E+00_JPRB &
+  &, 0.285589E+00_JPRB, 0.275751E+00_JPRB, 0.266164E+00_JPRB &
+  &, 0.256789E+00_JPRB, 0.247705E+00_JPRB, 0.238808E+00_JPRB, 0.230115E+00_JPRB &
+  &, 0.221706E+00_JPRB, 0.213470E+00_JPRB, 0.205489E+00_JPRB/)
+XCW( 754, :) = (/ &
+  &  0.106675E+01_JPRB, 0.108280E+01_JPRB, 0.109857E+01_JPRB, 0.111406E+01_JPRB &
+  &, 0.112924E+01_JPRB, 0.114412E+01_JPRB, 0.115868E+01_JPRB &
+  &, 0.117290E+01_JPRB, 0.118679E+01_JPRB, 0.120032E+01_JPRB, 0.121349E+01_JPRB &
+  &, 0.122629E+01_JPRB, 0.123871E+01_JPRB, 0.125074E+01_JPRB &
+  &, 0.126237E+01_JPRB, 0.127359E+01_JPRB, 0.128439E+01_JPRB, 0.129476E+01_JPRB &
+  &, 0.130470E+01_JPRB, 0.131419E+01_JPRB, 0.132323E+01_JPRB &
+  &, 0.133181E+01_JPRB, 0.133993E+01_JPRB, 0.134757E+01_JPRB, 0.135473E+01_JPRB &
+  &, 0.136140E+01_JPRB, 0.136759E+01_JPRB, 0.137327E+01_JPRB &
+  &, 0.137846E+01_JPRB, 0.138313E+01_JPRB, 0.138730E+01_JPRB, 0.139095E+01_JPRB &
+  &, 0.139409E+01_JPRB, 0.139670E+01_JPRB, 0.139880E+01_JPRB &
+  &, 0.140037E+01_JPRB, 0.140141E+01_JPRB, 0.140195E+01_JPRB, 0.140195E+01_JPRB &
+  &, 0.140143E+01_JPRB, 0.140040E+01_JPRB, 0.139884E+01_JPRB &
+  &, 0.139676E+01_JPRB, 0.139418E+01_JPRB, 0.139109E+01_JPRB, 0.138748E+01_JPRB &
+  &, 0.138339E+01_JPRB, 0.137881E+01_JPRB, 0.137372E+01_JPRB &
+  &, 0.136816E+01_JPRB, 0.136211E+01_JPRB, 0.135561E+01_JPRB, 0.134864E+01_JPRB &
+  &, 0.134121E+01_JPRB, 0.133334E+01_JPRB, 0.132503E+01_JPRB &
+  &, 0.131630E+01_JPRB, 0.130714E+01_JPRB, 0.129759E+01_JPRB, 0.128763E+01_JPRB &
+  &, 0.127727E+01_JPRB, 0.126657E+01_JPRB, 0.125547E+01_JPRB &
+  &, 0.124403E+01_JPRB, 0.123225E+01_JPRB, 0.122014E+01_JPRB, 0.120755E+01_JPRB &
+  &, 0.119495E+01_JPRB, 0.118193E+01_JPRB, 0.116862E+01_JPRB &
+  &, 0.115503E+01_JPRB, 0.114117E+01_JPRB, 0.112710E+01_JPRB, 0.111279E+01_JPRB &
+  &, 0.109825E+01_JPRB, 0.108351E+01_JPRB, 0.106858E+01_JPRB &
+  &, 0.105348E+01_JPRB, 0.103820E+01_JPRB, 0.102278E+01_JPRB, 0.100722E+01_JPRB &
+  &, 0.991540E+00_JPRB, 0.975739E+00_JPRB, 0.959827E+00_JPRB &
+  &, 0.943866E+00_JPRB, 0.927780E+00_JPRB, 0.911660E+00_JPRB, 0.895484E+00_JPRB &
+  &, 0.879286E+00_JPRB, 0.863042E+00_JPRB, 0.846785E+00_JPRB &
+  &, 0.830550E+00_JPRB, 0.814245E+00_JPRB, 0.798065E+00_JPRB, 0.781882E+00_JPRB &
+  &, 0.765730E+00_JPRB, 0.749641E+00_JPRB, 0.733615E+00_JPRB &
+  &, 0.717650E+00_JPRB, 0.701780E+00_JPRB, 0.686000E+00_JPRB, 0.670307E+00_JPRB &
+  &, 0.654731E+00_JPRB, 0.639268E+00_JPRB, 0.623948E+00_JPRB &
+  &, 0.608764E+00_JPRB, 0.593707E+00_JPRB, 0.578848E+00_JPRB, 0.564093E+00_JPRB &
+  &, 0.549514E+00_JPRB, 0.535140E+00_JPRB, 0.520915E+00_JPRB &
+  &, 0.506866E+00_JPRB, 0.493021E+00_JPRB, 0.479363E+00_JPRB, 0.465873E+00_JPRB &
+  &, 0.452624E+00_JPRB, 0.439596E+00_JPRB, 0.426720E+00_JPRB &
+  &, 0.414116E+00_JPRB, 0.401714E+00_JPRB, 0.389485E+00_JPRB, 0.377504E+00_JPRB &
+  &, 0.365797E+00_JPRB, 0.354283E+00_JPRB, 0.342982E+00_JPRB &
+  &, 0.331918E+00_JPRB, 0.321057E+00_JPRB, 0.310477E+00_JPRB, 0.300085E+00_JPRB &
+  &, 0.289960E+00_JPRB, 0.280064E+00_JPRB, 0.270357E+00_JPRB &
+  &, 0.260917E+00_JPRB, 0.251704E+00_JPRB, 0.242736E+00_JPRB, 0.233969E+00_JPRB &
+  &, 0.225419E+00_JPRB, 0.217102E+00_JPRB, 0.209037E+00_JPRB/)
+XCW( 755, :) = (/ &
+  &  0.106708E+01_JPRB, 0.108322E+01_JPRB, 0.109908E+01_JPRB, 0.111466E+01_JPRB &
+  &, 0.112993E+01_JPRB, 0.114490E+01_JPRB, 0.115955E+01_JPRB &
+  &, 0.117388E+01_JPRB, 0.118786E+01_JPRB, 0.120149E+01_JPRB, 0.121476E+01_JPRB &
+  &, 0.122766E+01_JPRB, 0.124018E+01_JPRB, 0.125231E+01_JPRB &
+  &, 0.126405E+01_JPRB, 0.127537E+01_JPRB, 0.128627E+01_JPRB, 0.129675E+01_JPRB &
+  &, 0.130680E+01_JPRB, 0.131640E+01_JPRB, 0.132555E+01_JPRB &
+  &, 0.133423E+01_JPRB, 0.134246E+01_JPRB, 0.135022E+01_JPRB, 0.135749E+01_JPRB &
+  &, 0.136427E+01_JPRB, 0.137056E+01_JPRB, 0.137636E+01_JPRB &
+  &, 0.138165E+01_JPRB, 0.138644E+01_JPRB, 0.139072E+01_JPRB, 0.139448E+01_JPRB &
+  &, 0.139772E+01_JPRB, 0.140045E+01_JPRB, 0.140265E+01_JPRB &
+  &, 0.140434E+01_JPRB, 0.140550E+01_JPRB, 0.140612E+01_JPRB, 0.140624E+01_JPRB &
+  &, 0.140582E+01_JPRB, 0.140490E+01_JPRB, 0.140344E+01_JPRB &
+  &, 0.140147E+01_JPRB, 0.139899E+01_JPRB, 0.139600E+01_JPRB, 0.139251E+01_JPRB &
+  &, 0.138850E+01_JPRB, 0.138400E+01_JPRB, 0.137902E+01_JPRB &
+  &, 0.137354E+01_JPRB, 0.136760E+01_JPRB, 0.136118E+01_JPRB, 0.135430E+01_JPRB &
+  &, 0.134696E+01_JPRB, 0.133918E+01_JPRB, 0.133095E+01_JPRB &
+  &, 0.132229E+01_JPRB, 0.131323E+01_JPRB, 0.130374E+01_JPRB, 0.129385E+01_JPRB &
+  &, 0.128357E+01_JPRB, 0.127292E+01_JPRB, 0.126191E+01_JPRB &
+  &, 0.125053E+01_JPRB, 0.123880E+01_JPRB, 0.122675E+01_JPRB, 0.121437E+01_JPRB &
+  &, 0.120168E+01_JPRB, 0.118870E+01_JPRB, 0.117543E+01_JPRB &
+  &, 0.116188E+01_JPRB, 0.114808E+01_JPRB, 0.113405E+01_JPRB, 0.111976E+01_JPRB &
+  &, 0.110526E+01_JPRB, 0.109055E+01_JPRB, 0.107566E+01_JPRB &
+  &, 0.106058E+01_JPRB, 0.104532E+01_JPRB, 0.102991E+01_JPRB, 0.101437E+01_JPRB &
+  &, 0.998694E+00_JPRB, 0.982897E+00_JPRB, 0.967013E+00_JPRB &
+  &, 0.951023E+00_JPRB, 0.934959E+00_JPRB, 0.918830E+00_JPRB, 0.902640E+00_JPRB &
+  &, 0.886425E+00_JPRB, 0.870159E+00_JPRB, 0.853907E+00_JPRB &
+  &, 0.837611E+00_JPRB, 0.821337E+00_JPRB, 0.805086E+00_JPRB, 0.788894E+00_JPRB &
+  &, 0.772695E+00_JPRB, 0.756555E+00_JPRB, 0.740508E+00_JPRB &
+  &, 0.724483E+00_JPRB, 0.708584E+00_JPRB, 0.692735E+00_JPRB, 0.677004E+00_JPRB &
+  &, 0.661388E+00_JPRB, 0.645879E+00_JPRB, 0.630510E+00_JPRB &
+  &, 0.615273E+00_JPRB, 0.600158E+00_JPRB, 0.585196E+00_JPRB, 0.570374E+00_JPRB &
+  &, 0.555766E+00_JPRB, 0.541274E+00_JPRB, 0.526968E+00_JPRB &
+  &, 0.512878E+00_JPRB, 0.498944E+00_JPRB, 0.485192E+00_JPRB, 0.471650E+00_JPRB &
+  &, 0.458346E+00_JPRB, 0.445163E+00_JPRB, 0.432271E+00_JPRB &
+  &, 0.419551E+00_JPRB, 0.407026E+00_JPRB, 0.394772E+00_JPRB, 0.382712E+00_JPRB &
+  &, 0.370870E+00_JPRB, 0.359267E+00_JPRB, 0.347875E+00_JPRB &
+  &, 0.336715E+00_JPRB, 0.325810E+00_JPRB, 0.315126E+00_JPRB, 0.304627E+00_JPRB &
+  &, 0.294448E+00_JPRB, 0.284436E+00_JPRB, 0.274669E+00_JPRB &
+  &, 0.265106E+00_JPRB, 0.255826E+00_JPRB, 0.246727E+00_JPRB, 0.237886E+00_JPRB &
+  &, 0.229260E+00_JPRB, 0.220864E+00_JPRB, 0.212651E+00_JPRB/)
+XCW( 756, :) = (/ &
+  &  0.106741E+01_JPRB, 0.108364E+01_JPRB, 0.109959E+01_JPRB, 0.111526E+01_JPRB &
+  &, 0.113063E+01_JPRB, 0.114569E+01_JPRB, 0.116044E+01_JPRB &
+  &, 0.117485E+01_JPRB, 0.118893E+01_JPRB, 0.120266E+01_JPRB, 0.121603E+01_JPRB &
+  &, 0.122904E+01_JPRB, 0.124166E+01_JPRB, 0.125389E+01_JPRB &
+  &, 0.126573E+01_JPRB, 0.127716E+01_JPRB, 0.128817E+01_JPRB, 0.129876E+01_JPRB &
+  &, 0.130891E+01_JPRB, 0.131861E+01_JPRB, 0.132787E+01_JPRB &
+  &, 0.133668E+01_JPRB, 0.134501E+01_JPRB, 0.135287E+01_JPRB, 0.136025E+01_JPRB &
+  &, 0.136715E+01_JPRB, 0.137355E+01_JPRB, 0.137946E+01_JPRB &
+  &, 0.138486E+01_JPRB, 0.138976E+01_JPRB, 0.139415E+01_JPRB, 0.139802E+01_JPRB &
+  &, 0.140138E+01_JPRB, 0.140421E+01_JPRB, 0.140653E+01_JPRB &
+  &, 0.140832E+01_JPRB, 0.140958E+01_JPRB, 0.141032E+01_JPRB, 0.141055E+01_JPRB &
+  &, 0.141024E+01_JPRB, 0.140942E+01_JPRB, 0.140806E+01_JPRB &
+  &, 0.140620E+01_JPRB, 0.140382E+01_JPRB, 0.140093E+01_JPRB, 0.139754E+01_JPRB &
+  &, 0.139363E+01_JPRB, 0.138924E+01_JPRB, 0.138434E+01_JPRB &
+  &, 0.137897E+01_JPRB, 0.137311E+01_JPRB, 0.136679E+01_JPRB, 0.135999E+01_JPRB &
+  &, 0.135274E+01_JPRB, 0.134504E+01_JPRB, 0.133690E+01_JPRB &
+  &, 0.132832E+01_JPRB, 0.131933E+01_JPRB, 0.130992E+01_JPRB, 0.130011E+01_JPRB &
+  &, 0.128990E+01_JPRB, 0.127933E+01_JPRB, 0.126837E+01_JPRB &
+  &, 0.125706E+01_JPRB, 0.124541E+01_JPRB, 0.123341E+01_JPRB, 0.122107E+01_JPRB &
+  &, 0.120845E+01_JPRB, 0.119551E+01_JPRB, 0.118229E+01_JPRB &
+  &, 0.116880E+01_JPRB, 0.115504E+01_JPRB, 0.114104E+01_JPRB, 0.112679E+01_JPRB &
+  &, 0.111234E+01_JPRB, 0.109765E+01_JPRB, 0.108276E+01_JPRB &
+  &, 0.106771E+01_JPRB, 0.105249E+01_JPRB, 0.103710E+01_JPRB, 0.102157E+01_JPRB &
+  &, 0.100590E+01_JPRB, 0.990109E+00_JPRB, 0.974227E+00_JPRB &
+  &, 0.958235E+00_JPRB, 0.942166E+00_JPRB, 0.926028E+00_JPRB, 0.909855E+00_JPRB &
+  &, 0.893623E+00_JPRB, 0.877336E+00_JPRB, 0.861060E+00_JPRB &
+  &, 0.844768E+00_JPRB, 0.828461E+00_JPRB, 0.812206E+00_JPRB, 0.795940E+00_JPRB &
+  &, 0.779729E+00_JPRB, 0.763573E+00_JPRB, 0.747437E+00_JPRB &
+  &, 0.731424E+00_JPRB, 0.715461E+00_JPRB, 0.699580E+00_JPRB, 0.683777E+00_JPRB &
+  &, 0.668120E+00_JPRB, 0.652568E+00_JPRB, 0.637112E+00_JPRB &
+  &, 0.621822E+00_JPRB, 0.606650E+00_JPRB, 0.591626E+00_JPRB, 0.576739E+00_JPRB &
+  &, 0.562061E+00_JPRB, 0.547494E+00_JPRB, 0.533153E+00_JPRB &
+  &, 0.518936E+00_JPRB, 0.504959E+00_JPRB, 0.491114E+00_JPRB, 0.477522E+00_JPRB &
+  &, 0.464068E+00_JPRB, 0.450874E+00_JPRB, 0.437871E+00_JPRB &
+  &, 0.424985E+00_JPRB, 0.412490E+00_JPRB, 0.400111E+00_JPRB, 0.387973E+00_JPRB &
+  &, 0.376048E+00_JPRB, 0.364359E+00_JPRB, 0.352876E+00_JPRB &
+  &, 0.341622E+00_JPRB, 0.330618E+00_JPRB, 0.319832E+00_JPRB, 0.309283E+00_JPRB &
+  &, 0.298935E+00_JPRB, 0.288867E+00_JPRB, 0.278981E+00_JPRB &
+  &, 0.269355E+00_JPRB, 0.259948E+00_JPRB, 0.250779E+00_JPRB, 0.241867E+00_JPRB &
+  &, 0.233101E+00_JPRB, 0.224626E+00_JPRB, 0.216331E+00_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART108',1,ZHOOK_HANDLE)
+END SUBROUTINE PART108
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART109
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART109',0,ZHOOK_HANDLE)
+
+XCW( 757, :) = (/ &
+  &  0.106775E+01_JPRB, 0.108406E+01_JPRB, 0.110010E+01_JPRB, 0.111586E+01_JPRB &
+  &, 0.113132E+01_JPRB, 0.114648E+01_JPRB, 0.116132E+01_JPRB &
+  &, 0.117583E+01_JPRB, 0.119001E+01_JPRB, 0.120384E+01_JPRB, 0.121731E+01_JPRB &
+  &, 0.123041E+01_JPRB, 0.124314E+01_JPRB, 0.125548E+01_JPRB &
+  &, 0.126742E+01_JPRB, 0.127895E+01_JPRB, 0.129007E+01_JPRB, 0.130076E+01_JPRB &
+  &, 0.131102E+01_JPRB, 0.132084E+01_JPRB, 0.133021E+01_JPRB &
+  &, 0.133912E+01_JPRB, 0.134756E+01_JPRB, 0.135553E+01_JPRB, 0.136303E+01_JPRB &
+  &, 0.137003E+01_JPRB, 0.137655E+01_JPRB, 0.138257E+01_JPRB &
+  &, 0.138808E+01_JPRB, 0.139309E+01_JPRB, 0.139759E+01_JPRB, 0.140157E+01_JPRB &
+  &, 0.140504E+01_JPRB, 0.140799E+01_JPRB, 0.141041E+01_JPRB &
+  &, 0.141231E+01_JPRB, 0.141369E+01_JPRB, 0.141454E+01_JPRB, 0.141487E+01_JPRB &
+  &, 0.141467E+01_JPRB, 0.141395E+01_JPRB, 0.141271E+01_JPRB &
+  &, 0.141095E+01_JPRB, 0.140868E+01_JPRB, 0.140588E+01_JPRB, 0.140258E+01_JPRB &
+  &, 0.139879E+01_JPRB, 0.139448E+01_JPRB, 0.138969E+01_JPRB &
+  &, 0.138441E+01_JPRB, 0.137865E+01_JPRB, 0.137241E+01_JPRB, 0.136570E+01_JPRB &
+  &, 0.135855E+01_JPRB, 0.135093E+01_JPRB, 0.134285E+01_JPRB &
+  &, 0.133438E+01_JPRB, 0.132547E+01_JPRB, 0.131613E+01_JPRB, 0.130640E+01_JPRB &
+  &, 0.129627E+01_JPRB, 0.128577E+01_JPRB, 0.127487E+01_JPRB &
+  &, 0.126363E+01_JPRB, 0.125203E+01_JPRB, 0.124010E+01_JPRB, 0.122783E+01_JPRB &
+  &, 0.121526E+01_JPRB, 0.120237E+01_JPRB, 0.118920E+01_JPRB &
+  &, 0.117576E+01_JPRB, 0.116204E+01_JPRB, 0.114807E+01_JPRB, 0.113385E+01_JPRB &
+  &, 0.111944E+01_JPRB, 0.110478E+01_JPRB, 0.108994E+01_JPRB &
+  &, 0.107491E+01_JPRB, 0.105971E+01_JPRB, 0.104434E+01_JPRB, 0.102882E+01_JPRB &
+  &, 0.101316E+01_JPRB, 0.997375E+00_JPRB, 0.981496E+00_JPRB &
+  &, 0.965503E+00_JPRB, 0.949459E+00_JPRB, 0.933313E+00_JPRB, 0.917099E+00_JPRB &
+  &, 0.900851E+00_JPRB, 0.884576E+00_JPRB, 0.868276E+00_JPRB &
+  &, 0.851956E+00_JPRB, 0.835649E+00_JPRB, 0.819358E+00_JPRB, 0.803052E+00_JPRB &
+  &, 0.786830E+00_JPRB, 0.770625E+00_JPRB, 0.754471E+00_JPRB &
+  &, 0.738400E+00_JPRB, 0.722374E+00_JPRB, 0.706463E+00_JPRB, 0.690625E+00_JPRB &
+  &, 0.674891E+00_JPRB, 0.659296E+00_JPRB, 0.643792E+00_JPRB &
+  &, 0.628411E+00_JPRB, 0.613182E+00_JPRB, 0.598098E+00_JPRB, 0.583188E+00_JPRB &
+  &, 0.568399E+00_JPRB, 0.553802E+00_JPRB, 0.539339E+00_JPRB &
+  &, 0.525083E+00_JPRB, 0.511019E+00_JPRB, 0.497129E+00_JPRB, 0.483393E+00_JPRB &
+  &, 0.469933E+00_JPRB, 0.456634E+00_JPRB, 0.443521E+00_JPRB &
+  &, 0.430619E+00_JPRB, 0.417954E+00_JPRB, 0.405501E+00_JPRB, 0.393285E+00_JPRB &
+  &, 0.381278E+00_JPRB, 0.369504E+00_JPRB, 0.357932E+00_JPRB &
+  &, 0.346584E+00_JPRB, 0.335483E+00_JPRB, 0.324594E+00_JPRB, 0.313939E+00_JPRB &
+  &, 0.303540E+00_JPRB, 0.293358E+00_JPRB, 0.283413E+00_JPRB &
+  &, 0.273665E+00_JPRB, 0.264194E+00_JPRB, 0.254894E+00_JPRB, 0.245847E+00_JPRB &
+  &, 0.237070E+00_JPRB, 0.228453E+00_JPRB, 0.220077E+00_JPRB/)
+XCW( 758, :) = (/ &
+  &  0.106808E+01_JPRB, 0.108448E+01_JPRB, 0.110061E+01_JPRB, 0.111646E+01_JPRB &
+  &, 0.113202E+01_JPRB, 0.114727E+01_JPRB, 0.116220E+01_JPRB &
+  &, 0.117681E+01_JPRB, 0.119109E+01_JPRB, 0.120502E+01_JPRB, 0.121859E+01_JPRB &
+  &, 0.123180E+01_JPRB, 0.124462E+01_JPRB, 0.125707E+01_JPRB &
+  &, 0.126911E+01_JPRB, 0.128075E+01_JPRB, 0.129198E+01_JPRB, 0.130278E+01_JPRB &
+  &, 0.131315E+01_JPRB, 0.132307E+01_JPRB, 0.133255E+01_JPRB &
+  &, 0.134157E+01_JPRB, 0.135013E+01_JPRB, 0.135820E+01_JPRB, 0.136581E+01_JPRB &
+  &, 0.137293E+01_JPRB, 0.137956E+01_JPRB, 0.138569E+01_JPRB &
+  &, 0.139132E+01_JPRB, 0.139644E+01_JPRB, 0.140105E+01_JPRB, 0.140514E+01_JPRB &
+  &, 0.140872E+01_JPRB, 0.141178E+01_JPRB, 0.141432E+01_JPRB &
+  &, 0.141633E+01_JPRB, 0.141781E+01_JPRB, 0.141878E+01_JPRB, 0.141921E+01_JPRB &
+  &, 0.141912E+01_JPRB, 0.141851E+01_JPRB, 0.141737E+01_JPRB &
+  &, 0.141571E+01_JPRB, 0.141355E+01_JPRB, 0.141086E+01_JPRB, 0.140766E+01_JPRB &
+  &, 0.140397E+01_JPRB, 0.139977E+01_JPRB, 0.139506E+01_JPRB &
+  &, 0.138968E+01_JPRB, 0.138421E+01_JPRB, 0.137806E+01_JPRB, 0.137146E+01_JPRB &
+  &, 0.136439E+01_JPRB, 0.135686E+01_JPRB, 0.134888E+01_JPRB &
+  &, 0.134047E+01_JPRB, 0.133164E+01_JPRB, 0.132239E+01_JPRB, 0.131273E+01_JPRB &
+  &, 0.130267E+01_JPRB, 0.129221E+01_JPRB, 0.128142E+01_JPRB &
+  &, 0.127024E+01_JPRB, 0.125871E+01_JPRB, 0.124683E+01_JPRB, 0.123461E+01_JPRB &
+  &, 0.122209E+01_JPRB, 0.120926E+01_JPRB, 0.119614E+01_JPRB &
+  &, 0.118274E+01_JPRB, 0.116908E+01_JPRB, 0.115515E+01_JPRB, 0.114099E+01_JPRB &
+  &, 0.112658E+01_JPRB, 0.111198E+01_JPRB, 0.109716E+01_JPRB &
+  &, 0.108215E+01_JPRB, 0.106695E+01_JPRB, 0.105162E+01_JPRB, 0.103612E+01_JPRB &
+  &, 0.102047E+01_JPRB, 0.100469E+01_JPRB, 0.988819E+00_JPRB &
+  &, 0.972855E+00_JPRB, 0.956779E+00_JPRB, 0.940626E+00_JPRB, 0.924431E+00_JPRB &
+  &, 0.908170E+00_JPRB, 0.891876E+00_JPRB, 0.875554E+00_JPRB &
+  &, 0.859239E+00_JPRB, 0.842902E+00_JPRB, 0.826576E+00_JPRB, 0.810264E+00_JPRB &
+  &, 0.793965E+00_JPRB, 0.777747E+00_JPRB, 0.761540E+00_JPRB &
+  &, 0.745447E+00_JPRB, 0.729397E+00_JPRB, 0.713419E+00_JPRB, 0.697548E+00_JPRB &
+  &, 0.681739E+00_JPRB, 0.666102E+00_JPRB, 0.650552E+00_JPRB &
+  &, 0.635120E+00_JPRB, 0.619838E+00_JPRB, 0.604653E+00_JPRB, 0.589680E+00_JPRB &
+  &, 0.574822E+00_JPRB, 0.560153E+00_JPRB, 0.545613E+00_JPRB &
+  &, 0.531320E+00_JPRB, 0.517125E+00_JPRB, 0.503189E+00_JPRB, 0.489405E+00_JPRB &
+  &, 0.475798E+00_JPRB, 0.462442E+00_JPRB, 0.449269E+00_JPRB &
+  &, 0.436302E+00_JPRB, 0.423519E+00_JPRB, 0.410994E+00_JPRB, 0.398650E+00_JPRB &
+  &, 0.386562E+00_JPRB, 0.374703E+00_JPRB, 0.363042E+00_JPRB &
+  &, 0.351601E+00_JPRB, 0.340403E+00_JPRB, 0.329413E+00_JPRB, 0.318711E+00_JPRB &
+  &, 0.308202E+00_JPRB, 0.297907E+00_JPRB, 0.287845E+00_JPRB &
+  &, 0.278036E+00_JPRB, 0.268439E+00_JPRB, 0.259072E+00_JPRB, 0.249954E+00_JPRB &
+  &, 0.241039E+00_JPRB, 0.232345E+00_JPRB, 0.223954E+00_JPRB/)
+XCW( 759, :) = (/ &
+  &  0.106842E+01_JPRB, 0.108490E+01_JPRB, 0.110113E+01_JPRB, 0.111706E+01_JPRB &
+  &, 0.113271E+01_JPRB, 0.114806E+01_JPRB, 0.116309E+01_JPRB &
+  &, 0.117780E+01_JPRB, 0.119217E+01_JPRB, 0.120620E+01_JPRB, 0.121988E+01_JPRB &
+  &, 0.123318E+01_JPRB, 0.124611E+01_JPRB, 0.125866E+01_JPRB &
+  &, 0.127081E+01_JPRB, 0.128256E+01_JPRB, 0.129389E+01_JPRB, 0.130480E+01_JPRB &
+  &, 0.131527E+01_JPRB, 0.132531E+01_JPRB, 0.133490E+01_JPRB &
+  &, 0.134403E+01_JPRB, 0.135270E+01_JPRB, 0.136089E+01_JPRB, 0.136861E+01_JPRB &
+  &, 0.137584E+01_JPRB, 0.138258E+01_JPRB, 0.138882E+01_JPRB &
+  &, 0.139456E+01_JPRB, 0.139979E+01_JPRB, 0.140452E+01_JPRB, 0.140873E+01_JPRB &
+  &, 0.141242E+01_JPRB, 0.141559E+01_JPRB, 0.141823E+01_JPRB &
+  &, 0.142035E+01_JPRB, 0.142196E+01_JPRB, 0.142302E+01_JPRB, 0.142357E+01_JPRB &
+  &, 0.142358E+01_JPRB, 0.142308E+01_JPRB, 0.142205E+01_JPRB &
+  &, 0.142051E+01_JPRB, 0.141844E+01_JPRB, 0.141586E+01_JPRB, 0.141277E+01_JPRB &
+  &, 0.140917E+01_JPRB, 0.140506E+01_JPRB, 0.140046E+01_JPRB &
+  &, 0.139538E+01_JPRB, 0.138981E+01_JPRB, 0.138376E+01_JPRB, 0.137723E+01_JPRB &
+  &, 0.137025E+01_JPRB, 0.136281E+01_JPRB, 0.135492E+01_JPRB &
+  &, 0.134659E+01_JPRB, 0.133784E+01_JPRB, 0.132867E+01_JPRB, 0.131910E+01_JPRB &
+  &, 0.130912E+01_JPRB, 0.129873E+01_JPRB, 0.128800E+01_JPRB &
+  &, 0.127688E+01_JPRB, 0.126542E+01_JPRB, 0.125360E+01_JPRB, 0.124145E+01_JPRB &
+  &, 0.122898E+01_JPRB, 0.121622E+01_JPRB, 0.120314E+01_JPRB &
+  &, 0.118978E+01_JPRB, 0.117616E+01_JPRB, 0.116227E+01_JPRB, 0.114815E+01_JPRB &
+  &, 0.113379E+01_JPRB, 0.111920E+01_JPRB, 0.110441E+01_JPRB &
+  &, 0.108943E+01_JPRB, 0.107427E+01_JPRB, 0.105893E+01_JPRB, 0.104347E+01_JPRB &
+  &, 0.102784E+01_JPRB, 0.101207E+01_JPRB, 0.996197E+00_JPRB &
+  &, 0.980234E+00_JPRB, 0.964157E+00_JPRB, 0.948027E+00_JPRB, 0.931793E+00_JPRB &
+  &, 0.915548E+00_JPRB, 0.899237E+00_JPRB, 0.882894E+00_JPRB &
+  &, 0.866553E+00_JPRB, 0.850186E+00_JPRB, 0.833827E+00_JPRB, 0.817510E+00_JPRB &
+  &, 0.801202E+00_JPRB, 0.784937E+00_JPRB, 0.768714E+00_JPRB &
+  &, 0.752531E+00_JPRB, 0.736455E+00_JPRB, 0.720413E+00_JPRB, 0.704508E+00_JPRB &
+  &, 0.688663E+00_JPRB, 0.672946E+00_JPRB, 0.657351E+00_JPRB &
+  &, 0.641870E+00_JPRB, 0.626534E+00_JPRB, 0.611291E+00_JPRB, 0.596256E+00_JPRB &
+  &, 0.581331E+00_JPRB, 0.566591E+00_JPRB, 0.551975E+00_JPRB &
+  &, 0.537557E+00_JPRB, 0.523367E+00_JPRB, 0.509296E+00_JPRB, 0.495465E+00_JPRB &
+  &, 0.481759E+00_JPRB, 0.468299E+00_JPRB, 0.455065E+00_JPRB &
+  &, 0.441986E+00_JPRB, 0.429185E+00_JPRB, 0.416538E+00_JPRB, 0.404118E+00_JPRB &
+  &, 0.391951E+00_JPRB, 0.379955E+00_JPRB, 0.368207E+00_JPRB &
+  &, 0.356674E+00_JPRB, 0.345379E+00_JPRB, 0.334346E+00_JPRB, 0.323482E+00_JPRB &
+  &, 0.312923E+00_JPRB, 0.302515E+00_JPRB, 0.292397E+00_JPRB &
+  &, 0.282467E+00_JPRB, 0.272807E+00_JPRB, 0.263312E+00_JPRB, 0.254124E+00_JPRB &
+  &, 0.245136E+00_JPRB, 0.236366E+00_JPRB, 0.227765E+00_JPRB/)
+XCW( 760, :) = (/ &
+  &  0.106875E+01_JPRB, 0.108533E+01_JPRB, 0.110164E+01_JPRB, 0.111767E+01_JPRB &
+  &, 0.113341E+01_JPRB, 0.114885E+01_JPRB, 0.116398E+01_JPRB &
+  &, 0.117879E+01_JPRB, 0.119326E+01_JPRB, 0.120739E+01_JPRB, 0.122116E+01_JPRB &
+  &, 0.123457E+01_JPRB, 0.124761E+01_JPRB, 0.126026E+01_JPRB &
+  &, 0.127252E+01_JPRB, 0.128437E+01_JPRB, 0.129581E+01_JPRB, 0.130683E+01_JPRB &
+  &, 0.131741E+01_JPRB, 0.132756E+01_JPRB, 0.133725E+01_JPRB &
+  &, 0.134650E+01_JPRB, 0.135527E+01_JPRB, 0.136358E+01_JPRB, 0.137141E+01_JPRB &
+  &, 0.137875E+01_JPRB, 0.138561E+01_JPRB, 0.139196E+01_JPRB &
+  &, 0.139782E+01_JPRB, 0.140316E+01_JPRB, 0.140800E+01_JPRB, 0.141232E+01_JPRB &
+  &, 0.141613E+01_JPRB, 0.141941E+01_JPRB, 0.142217E+01_JPRB &
+  &, 0.142440E+01_JPRB, 0.142611E+01_JPRB, 0.142729E+01_JPRB, 0.142795E+01_JPRB &
+  &, 0.142808E+01_JPRB, 0.142768E+01_JPRB, 0.142676E+01_JPRB &
+  &, 0.142531E+01_JPRB, 0.142335E+01_JPRB, 0.142088E+01_JPRB, 0.141789E+01_JPRB &
+  &, 0.141439E+01_JPRB, 0.141039E+01_JPRB, 0.140589E+01_JPRB &
+  &, 0.140090E+01_JPRB, 0.139542E+01_JPRB, 0.138945E+01_JPRB, 0.138303E+01_JPRB &
+  &, 0.137615E+01_JPRB, 0.136880E+01_JPRB, 0.136099E+01_JPRB &
+  &, 0.135276E+01_JPRB, 0.134409E+01_JPRB, 0.133500E+01_JPRB, 0.132549E+01_JPRB &
+  &, 0.131559E+01_JPRB, 0.130528E+01_JPRB, 0.129461E+01_JPRB &
+  &, 0.128356E+01_JPRB, 0.127215E+01_JPRB, 0.126040E+01_JPRB, 0.124833E+01_JPRB &
+  &, 0.123592E+01_JPRB, 0.122319E+01_JPRB, 0.121018E+01_JPRB &
+  &, 0.119687E+01_JPRB, 0.118329E+01_JPRB, 0.116944E+01_JPRB, 0.115535E+01_JPRB &
+  &, 0.114103E+01_JPRB, 0.112649E+01_JPRB, 0.111173E+01_JPRB &
+  &, 0.109677E+01_JPRB, 0.108164E+01_JPRB, 0.106632E+01_JPRB, 0.105087E+01_JPRB &
+  &, 0.103525E+01_JPRB, 0.101949E+01_JPRB, 0.100363E+01_JPRB &
+  &, 0.987670E+00_JPRB, 0.971591E+00_JPRB, 0.955456E+00_JPRB, 0.939243E+00_JPRB &
+  &, 0.922956E+00_JPRB, 0.906659E+00_JPRB, 0.890296E+00_JPRB &
+  &, 0.873931E+00_JPRB, 0.857568E+00_JPRB, 0.841177E+00_JPRB, 0.824822E+00_JPRB &
+  &, 0.808474E+00_JPRB, 0.792163E+00_JPRB, 0.775924E+00_JPRB &
+  &, 0.759722E+00_JPRB, 0.743587E+00_JPRB, 0.727517E+00_JPRB, 0.711544E+00_JPRB &
+  &, 0.695664E+00_JPRB, 0.679907E+00_JPRB, 0.664229E+00_JPRB &
+  &, 0.648700E+00_JPRB, 0.633270E+00_JPRB, 0.618012E+00_JPRB, 0.602874E+00_JPRB &
+  &, 0.587883E+00_JPRB, 0.573072E+00_JPRB, 0.558425E+00_JPRB &
+  &, 0.543929E+00_JPRB, 0.529609E+00_JPRB, 0.515496E+00_JPRB, 0.501571E+00_JPRB &
+  &, 0.487814E+00_JPRB, 0.474252E+00_JPRB, 0.460911E+00_JPRB &
+  &, 0.447769E+00_JPRB, 0.434852E+00_JPRB, 0.422134E+00_JPRB, 0.409639E+00_JPRB &
+  &, 0.397341E+00_JPRB, 0.385315E+00_JPRB, 0.373480E+00_JPRB &
+  &, 0.361856E+00_JPRB, 0.350467E+00_JPRB, 0.339335E+00_JPRB, 0.328368E+00_JPRB &
+  &, 0.317702E+00_JPRB, 0.307242E+00_JPRB, 0.297008E+00_JPRB &
+  &, 0.286959E+00_JPRB, 0.277175E+00_JPRB, 0.267676E+00_JPRB, 0.258357E+00_JPRB &
+  &, 0.249233E+00_JPRB, 0.240388E+00_JPRB, 0.231707E+00_JPRB/)
+XCW( 761, :) = (/ &
+  &  0.106909E+01_JPRB, 0.108575E+01_JPRB, 0.110216E+01_JPRB, 0.111828E+01_JPRB &
+  &, 0.113411E+01_JPRB, 0.114965E+01_JPRB, 0.116487E+01_JPRB &
+  &, 0.117978E+01_JPRB, 0.119435E+01_JPRB, 0.120858E+01_JPRB, 0.122246E+01_JPRB &
+  &, 0.123597E+01_JPRB, 0.124911E+01_JPRB, 0.126186E+01_JPRB &
+  &, 0.127423E+01_JPRB, 0.128619E+01_JPRB, 0.129773E+01_JPRB, 0.130886E+01_JPRB &
+  &, 0.131956E+01_JPRB, 0.132981E+01_JPRB, 0.133962E+01_JPRB &
+  &, 0.134897E+01_JPRB, 0.135786E+01_JPRB, 0.136628E+01_JPRB, 0.137423E+01_JPRB &
+  &, 0.138168E+01_JPRB, 0.138865E+01_JPRB, 0.139512E+01_JPRB &
+  &, 0.140109E+01_JPRB, 0.140655E+01_JPRB, 0.141150E+01_JPRB, 0.141593E+01_JPRB &
+  &, 0.141985E+01_JPRB, 0.142325E+01_JPRB, 0.142612E+01_JPRB &
+  &, 0.142847E+01_JPRB, 0.143029E+01_JPRB, 0.143158E+01_JPRB, 0.143234E+01_JPRB &
+  &, 0.143259E+01_JPRB, 0.143229E+01_JPRB, 0.143148E+01_JPRB &
+  &, 0.143015E+01_JPRB, 0.142829E+01_JPRB, 0.142593E+01_JPRB, 0.142304E+01_JPRB &
+  &, 0.141964E+01_JPRB, 0.141574E+01_JPRB, 0.141134E+01_JPRB &
+  &, 0.140646E+01_JPRB, 0.140108E+01_JPRB, 0.139521E+01_JPRB, 0.138888E+01_JPRB &
+  &, 0.138207E+01_JPRB, 0.137480E+01_JPRB, 0.136709E+01_JPRB &
+  &, 0.135894E+01_JPRB, 0.135035E+01_JPRB, 0.134134E+01_JPRB, 0.133193E+01_JPRB &
+  &, 0.132209E+01_JPRB, 0.131188E+01_JPRB, 0.130126E+01_JPRB &
+  &, 0.129029E+01_JPRB, 0.127894E+01_JPRB, 0.126726E+01_JPRB, 0.125524E+01_JPRB &
+  &, 0.124289E+01_JPRB, 0.123023E+01_JPRB, 0.121725E+01_JPRB &
+  &, 0.120399E+01_JPRB, 0.119046E+01_JPRB, 0.117667E+01_JPRB, 0.116262E+01_JPRB &
+  &, 0.114834E+01_JPRB, 0.113382E+01_JPRB, 0.111910E+01_JPRB &
+  &, 0.110417E+01_JPRB, 0.108906E+01_JPRB, 0.107376E+01_JPRB, 0.105833E+01_JPRB &
+  &, 0.104272E+01_JPRB, 0.102697E+01_JPRB, 0.101112E+01_JPRB &
+  &, 0.995161E+00_JPRB, 0.979110E+00_JPRB, 0.962944E+00_JPRB, 0.946723E+00_JPRB &
+  &, 0.930454E+00_JPRB, 0.914112E+00_JPRB, 0.897760E+00_JPRB &
+  &, 0.881372E+00_JPRB, 0.864982E+00_JPRB, 0.848591E+00_JPRB, 0.832202E+00_JPRB &
+  &, 0.815813E+00_JPRB, 0.799492E+00_JPRB, 0.783204E+00_JPRB &
+  &, 0.766948E+00_JPRB, 0.750755E+00_JPRB, 0.734659E+00_JPRB, 0.718656E+00_JPRB &
+  &, 0.702702E+00_JPRB, 0.686907E+00_JPRB, 0.671186E+00_JPRB &
+  &, 0.655570E+00_JPRB, 0.640089E+00_JPRB, 0.624775E+00_JPRB, 0.609576E+00_JPRB &
+  &, 0.594521E+00_JPRB, 0.579640E+00_JPRB, 0.564920E+00_JPRB &
+  &, 0.550345E+00_JPRB, 0.535988E+00_JPRB, 0.521788E+00_JPRB, 0.507771E+00_JPRB &
+  &, 0.493918E+00_JPRB, 0.480303E+00_JPRB, 0.466856E+00_JPRB &
+  &, 0.453652E+00_JPRB, 0.440619E+00_JPRB, 0.427832E+00_JPRB, 0.415264E+00_JPRB &
+  &, 0.402889E+00_JPRB, 0.390728E+00_JPRB, 0.378807E+00_JPRB &
+  &, 0.367094E+00_JPRB, 0.355611E+00_JPRB, 0.344381E+00_JPRB, 0.333312E+00_JPRB &
+  &, 0.322539E+00_JPRB, 0.311969E+00_JPRB, 0.301620E+00_JPRB &
+  &, 0.291573E+00_JPRB, 0.281666E+00_JPRB, 0.272041E+00_JPRB, 0.262590E+00_JPRB &
+  &, 0.253459E+00_JPRB, 0.244474E+00_JPRB, 0.235716E+00_JPRB/)
+XCW( 762, :) = (/ &
+  &  0.106943E+01_JPRB, 0.108618E+01_JPRB, 0.110267E+01_JPRB, 0.111889E+01_JPRB &
+  &, 0.113482E+01_JPRB, 0.115045E+01_JPRB, 0.116577E+01_JPRB &
+  &, 0.118076E+01_JPRB, 0.119544E+01_JPRB, 0.120977E+01_JPRB, 0.122375E+01_JPRB &
+  &, 0.123737E+01_JPRB, 0.125061E+01_JPRB, 0.126347E+01_JPRB &
+  &, 0.127594E+01_JPRB, 0.128801E+01_JPRB, 0.129966E+01_JPRB, 0.131090E+01_JPRB &
+  &, 0.132171E+01_JPRB, 0.133207E+01_JPRB, 0.134199E+01_JPRB &
+  &, 0.135146E+01_JPRB, 0.136046E+01_JPRB, 0.136899E+01_JPRB, 0.137705E+01_JPRB &
+  &, 0.138462E+01_JPRB, 0.139170E+01_JPRB, 0.139829E+01_JPRB &
+  &, 0.140437E+01_JPRB, 0.140994E+01_JPRB, 0.141501E+01_JPRB, 0.141956E+01_JPRB &
+  &, 0.142359E+01_JPRB, 0.142710E+01_JPRB, 0.143009E+01_JPRB &
+  &, 0.143255E+01_JPRB, 0.143448E+01_JPRB, 0.143589E+01_JPRB, 0.143676E+01_JPRB &
+  &, 0.143711E+01_JPRB, 0.143693E+01_JPRB, 0.143623E+01_JPRB &
+  &, 0.143500E+01_JPRB, 0.143325E+01_JPRB, 0.143099E+01_JPRB, 0.142821E+01_JPRB &
+  &, 0.142492E+01_JPRB, 0.142112E+01_JPRB, 0.141682E+01_JPRB &
+  &, 0.141203E+01_JPRB, 0.140674E+01_JPRB, 0.140099E+01_JPRB, 0.139474E+01_JPRB &
+  &, 0.138803E+01_JPRB, 0.138085E+01_JPRB, 0.137323E+01_JPRB &
+  &, 0.136516E+01_JPRB, 0.135666E+01_JPRB, 0.134774E+01_JPRB, 0.133838E+01_JPRB &
+  &, 0.132864E+01_JPRB, 0.131849E+01_JPRB, 0.130796E+01_JPRB &
+  &, 0.129704E+01_JPRB, 0.128577E+01_JPRB, 0.127415E+01_JPRB, 0.126220E+01_JPRB &
+  &, 0.124990E+01_JPRB, 0.123728E+01_JPRB, 0.122437E+01_JPRB &
+  &, 0.121116E+01_JPRB, 0.119769E+01_JPRB, 0.118393E+01_JPRB, 0.116994E+01_JPRB &
+  &, 0.115569E+01_JPRB, 0.114121E+01_JPRB, 0.112651E+01_JPRB &
+  &, 0.111161E+01_JPRB, 0.109652E+01_JPRB, 0.108125E+01_JPRB, 0.106583E+01_JPRB &
+  &, 0.105024E+01_JPRB, 0.103453E+01_JPRB, 0.101869E+01_JPRB &
+  &, 0.100271E+01_JPRB, 0.986658E+00_JPRB, 0.970518E+00_JPRB, 0.954291E+00_JPRB &
+  &, 0.938013E+00_JPRB, 0.921656E+00_JPRB, 0.905287E+00_JPRB &
+  &, 0.888877E+00_JPRB, 0.872460E+00_JPRB, 0.856039E+00_JPRB, 0.839614E+00_JPRB &
+  &, 0.823220E+00_JPRB, 0.806855E+00_JPRB, 0.790520E+00_JPRB &
+  &, 0.774246E+00_JPRB, 0.758032E+00_JPRB, 0.741874E+00_JPRB, 0.725804E+00_JPRB &
+  &, 0.709856E+00_JPRB, 0.693946E+00_JPRB, 0.678183E+00_JPRB &
+  &, 0.662520E+00_JPRB, 0.646989E+00_JPRB, 0.631620E+00_JPRB, 0.616362E+00_JPRB &
+  &, 0.601244E+00_JPRB, 0.586296E+00_JPRB, 0.571459E+00_JPRB &
+  &, 0.556851E+00_JPRB, 0.542367E+00_JPRB, 0.528126E+00_JPRB, 0.514018E+00_JPRB &
+  &, 0.500117E+00_JPRB, 0.486401E+00_JPRB, 0.472898E+00_JPRB &
+  &, 0.459585E+00_JPRB, 0.446488E+00_JPRB, 0.433581E+00_JPRB, 0.420889E+00_JPRB &
+  &, 0.408436E+00_JPRB, 0.396195E+00_JPRB, 0.384189E+00_JPRB &
+  &, 0.372387E+00_JPRB, 0.360811E+00_JPRB, 0.349484E+00_JPRB, 0.338371E+00_JPRB &
+  &, 0.327493E+00_JPRB, 0.316814E+00_JPRB, 0.306411E+00_JPRB &
+  &, 0.296186E+00_JPRB, 0.286219E+00_JPRB, 0.276467E+00_JPRB, 0.266949E+00_JPRB &
+  &, 0.257684E+00_JPRB, 0.248625E+00_JPRB, 0.239790E+00_JPRB/)
+XCW( 763, :) = (/ &
+  &  0.106976E+01_JPRB, 0.108661E+01_JPRB, 0.110319E+01_JPRB, 0.111950E+01_JPRB &
+  &, 0.113552E+01_JPRB, 0.115125E+01_JPRB, 0.116667E+01_JPRB &
+  &, 0.118177E+01_JPRB, 0.119654E+01_JPRB, 0.121097E+01_JPRB, 0.122504E+01_JPRB &
+  &, 0.123877E+01_JPRB, 0.125212E+01_JPRB, 0.126509E+01_JPRB &
+  &, 0.127766E+01_JPRB, 0.128984E+01_JPRB, 0.130160E+01_JPRB, 0.131295E+01_JPRB &
+  &, 0.132386E+01_JPRB, 0.133434E+01_JPRB, 0.134437E+01_JPRB &
+  &, 0.135395E+01_JPRB, 0.136307E+01_JPRB, 0.137172E+01_JPRB, 0.137988E+01_JPRB &
+  &, 0.138757E+01_JPRB, 0.139476E+01_JPRB, 0.140147E+01_JPRB &
+  &, 0.140766E+01_JPRB, 0.141335E+01_JPRB, 0.141853E+01_JPRB, 0.142320E+01_JPRB &
+  &, 0.142735E+01_JPRB, 0.143097E+01_JPRB, 0.143407E+01_JPRB &
+  &, 0.143664E+01_JPRB, 0.143869E+01_JPRB, 0.144021E+01_JPRB, 0.144119E+01_JPRB &
+  &, 0.144165E+01_JPRB, 0.144159E+01_JPRB, 0.144100E+01_JPRB &
+  &, 0.143988E+01_JPRB, 0.143825E+01_JPRB, 0.143608E+01_JPRB, 0.143341E+01_JPRB &
+  &, 0.143022E+01_JPRB, 0.142652E+01_JPRB, 0.142233E+01_JPRB &
+  &, 0.141764E+01_JPRB, 0.141245E+01_JPRB, 0.140676E+01_JPRB, 0.140064E+01_JPRB &
+  &, 0.139401E+01_JPRB, 0.138693E+01_JPRB, 0.137941E+01_JPRB &
+  &, 0.137142E+01_JPRB, 0.136300E+01_JPRB, 0.135416E+01_JPRB, 0.134489E+01_JPRB &
+  &, 0.133521E+01_JPRB, 0.132514E+01_JPRB, 0.131468E+01_JPRB &
+  &, 0.130385E+01_JPRB, 0.129265E+01_JPRB, 0.128108E+01_JPRB, 0.126919E+01_JPRB &
+  &, 0.125696E+01_JPRB, 0.124440E+01_JPRB, 0.123154E+01_JPRB &
+  &, 0.121840E+01_JPRB, 0.120495E+01_JPRB, 0.119125E+01_JPRB, 0.117727E+01_JPRB &
+  &, 0.116308E+01_JPRB, 0.114864E+01_JPRB, 0.113398E+01_JPRB &
+  &, 0.111910E+01_JPRB, 0.110404E+01_JPRB, 0.108879E+01_JPRB, 0.107339E+01_JPRB &
+  &, 0.105782E+01_JPRB, 0.104212E+01_JPRB, 0.102628E+01_JPRB &
+  &, 0.101034E+01_JPRB, 0.994262E+00_JPRB, 0.978120E+00_JPRB, 0.961889E+00_JPRB &
+  &, 0.945601E+00_JPRB, 0.929262E+00_JPRB, 0.912876E+00_JPRB &
+  &, 0.896445E+00_JPRB, 0.880003E+00_JPRB, 0.863553E+00_JPRB, 0.847127E+00_JPRB &
+  &, 0.830695E+00_JPRB, 0.814288E+00_JPRB, 0.797940E+00_JPRB &
+  &, 0.781616E+00_JPRB, 0.765382E+00_JPRB, 0.749164E+00_JPRB, 0.733066E+00_JPRB &
+  &, 0.717048E+00_JPRB, 0.701102E+00_JPRB, 0.685298E+00_JPRB &
+  &, 0.669551E+00_JPRB, 0.653971E+00_JPRB, 0.638507E+00_JPRB, 0.623191E+00_JPRB &
+  &, 0.608010E+00_JPRB, 0.592995E+00_JPRB, 0.578131E+00_JPRB &
+  &, 0.563402E+00_JPRB, 0.548883E+00_JPRB, 0.534511E+00_JPRB, 0.520360E+00_JPRB &
+  &, 0.506363E+00_JPRB, 0.492597E+00_JPRB, 0.478990E+00_JPRB &
+  &, 0.465568E+00_JPRB, 0.452407E+00_JPRB, 0.439433E+00_JPRB, 0.426670E+00_JPRB &
+  &, 0.414090E+00_JPRB, 0.401769E+00_JPRB, 0.389680E+00_JPRB &
+  &, 0.377790E+00_JPRB, 0.366123E+00_JPRB, 0.354643E+00_JPRB, 0.343430E+00_JPRB &
+  &, 0.332447E+00_JPRB, 0.321717E+00_JPRB, 0.311202E+00_JPRB &
+  &, 0.300921E+00_JPRB, 0.290833E+00_JPRB, 0.281019E+00_JPRB, 0.271372E+00_JPRB &
+  &, 0.262037E+00_JPRB, 0.252841E+00_JPRB, 0.243930E+00_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART109',1,ZHOOK_HANDLE)
+END SUBROUTINE PART109
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART110
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART110',0,ZHOOK_HANDLE)
+
+XCW( 764, :) = (/ &
+  &  0.107010E+01_JPRB, 0.108704E+01_JPRB, 0.110371E+01_JPRB, 0.112011E+01_JPRB &
+  &, 0.113623E+01_JPRB, 0.115205E+01_JPRB, 0.116757E+01_JPRB &
+  &, 0.118277E+01_JPRB, 0.119764E+01_JPRB, 0.121217E+01_JPRB, 0.122635E+01_JPRB &
+  &, 0.124018E+01_JPRB, 0.125363E+01_JPRB, 0.126670E+01_JPRB &
+  &, 0.127939E+01_JPRB, 0.129167E+01_JPRB, 0.130355E+01_JPRB, 0.131500E+01_JPRB &
+  &, 0.132603E+01_JPRB, 0.133662E+01_JPRB, 0.134676E+01_JPRB &
+  &, 0.135646E+01_JPRB, 0.136569E+01_JPRB, 0.137445E+01_JPRB, 0.138273E+01_JPRB &
+  &, 0.139047E+01_JPRB, 0.139784E+01_JPRB, 0.140466E+01_JPRB &
+  &, 0.141097E+01_JPRB, 0.141678E+01_JPRB, 0.142207E+01_JPRB, 0.142685E+01_JPRB &
+  &, 0.143112E+01_JPRB, 0.143485E+01_JPRB, 0.143807E+01_JPRB &
+  &, 0.144076E+01_JPRB, 0.144292E+01_JPRB, 0.144455E+01_JPRB, 0.144566E+01_JPRB &
+  &, 0.144623E+01_JPRB, 0.144627E+01_JPRB, 0.144579E+01_JPRB &
+  &, 0.144478E+01_JPRB, 0.144325E+01_JPRB, 0.144119E+01_JPRB, 0.143863E+01_JPRB &
+  &, 0.143554E+01_JPRB, 0.143195E+01_JPRB, 0.142786E+01_JPRB &
+  &, 0.142326E+01_JPRB, 0.141818E+01_JPRB, 0.141260E+01_JPRB, 0.140656E+01_JPRB &
+  &, 0.140004E+01_JPRB, 0.139304E+01_JPRB, 0.138560E+01_JPRB &
+  &, 0.137771E+01_JPRB, 0.136938E+01_JPRB, 0.136062E+01_JPRB, 0.135143E+01_JPRB &
+  &, 0.134183E+01_JPRB, 0.133184E+01_JPRB, 0.132145E+01_JPRB &
+  &, 0.131069E+01_JPRB, 0.129955E+01_JPRB, 0.128806E+01_JPRB, 0.127622E+01_JPRB &
+  &, 0.126405E+01_JPRB, 0.125156E+01_JPRB, 0.123876E+01_JPRB &
+  &, 0.122565E+01_JPRB, 0.121227E+01_JPRB, 0.119861E+01_JPRB, 0.118468E+01_JPRB &
+  &, 0.117053E+01_JPRB, 0.115612E+01_JPRB, 0.114149E+01_JPRB &
+  &, 0.112664E+01_JPRB, 0.111161E+01_JPRB, 0.109640E+01_JPRB, 0.108100E+01_JPRB &
+  &, 0.106547E+01_JPRB, 0.104976E+01_JPRB, 0.103393E+01_JPRB &
+  &, 0.101800E+01_JPRB, 0.100195E+01_JPRB, 0.985810E+00_JPRB, 0.969574E+00_JPRB &
+  &, 0.953279E+00_JPRB, 0.936929E+00_JPRB, 0.920527E+00_JPRB &
+  &, 0.904076E+00_JPRB, 0.887643E+00_JPRB, 0.871164E+00_JPRB, 0.854707E+00_JPRB &
+  &, 0.838238E+00_JPRB, 0.821824E+00_JPRB, 0.805432E+00_JPRB &
+  &, 0.789057E+00_JPRB, 0.772768E+00_JPRB, 0.756527E+00_JPRB, 0.740365E+00_JPRB &
+  &, 0.724316E+00_JPRB, 0.708335E+00_JPRB, 0.692453E+00_JPRB &
+  &, 0.676663E+00_JPRB, 0.661034E+00_JPRB, 0.645477E+00_JPRB, 0.630104E+00_JPRB &
+  &, 0.614862E+00_JPRB, 0.599781E+00_JPRB, 0.584846E+00_JPRB &
+  &, 0.570043E+00_JPRB, 0.555444E+00_JPRB, 0.541034E+00_JPRB, 0.526748E+00_JPRB &
+  &, 0.512705E+00_JPRB, 0.498840E+00_JPRB, 0.485131E+00_JPRB &
+  &, 0.471651E+00_JPRB, 0.458377E+00_JPRB, 0.445337E+00_JPRB, 0.432451E+00_JPRB &
+  &, 0.419849E+00_JPRB, 0.407397E+00_JPRB, 0.395170E+00_JPRB &
+  &, 0.383193E+00_JPRB, 0.371434E+00_JPRB, 0.359916E+00_JPRB, 0.348603E+00_JPRB &
+  &, 0.337518E+00_JPRB, 0.326680E+00_JPRB, 0.316053E+00_JPRB &
+  &, 0.305656E+00_JPRB, 0.295509E+00_JPRB, 0.285570E+00_JPRB, 0.275858E+00_JPRB &
+  &, 0.266390E+00_JPRB, 0.257122E+00_JPRB, 0.248135E+00_JPRB/)
+XCW( 765, :) = (/ &
+  &  0.107044E+01_JPRB, 0.108747E+01_JPRB, 0.110423E+01_JPRB, 0.112073E+01_JPRB &
+  &, 0.113694E+01_JPRB, 0.115285E+01_JPRB, 0.116847E+01_JPRB &
+  &, 0.118377E+01_JPRB, 0.119874E+01_JPRB, 0.121337E+01_JPRB, 0.122766E+01_JPRB &
+  &, 0.124159E+01_JPRB, 0.125515E+01_JPRB, 0.126833E+01_JPRB &
+  &, 0.128112E+01_JPRB, 0.129351E+01_JPRB, 0.130549E+01_JPRB, 0.131706E+01_JPRB &
+  &, 0.132820E+01_JPRB, 0.133891E+01_JPRB, 0.134916E+01_JPRB &
+  &, 0.135897E+01_JPRB, 0.136831E+01_JPRB, 0.137719E+01_JPRB, 0.138559E+01_JPRB &
+  &, 0.139350E+01_JPRB, 0.140093E+01_JPRB, 0.140786E+01_JPRB &
+  &, 0.141429E+01_JPRB, 0.142021E+01_JPRB, 0.142562E+01_JPRB, 0.143046E+01_JPRB &
+  &, 0.143490E+01_JPRB, 0.143876E+01_JPRB, 0.144209E+01_JPRB &
+  &, 0.144489E+01_JPRB, 0.144716E+01_JPRB, 0.144891E+01_JPRB, 0.145013E+01_JPRB &
+  &, 0.145081E+01_JPRB, 0.145097E+01_JPRB, 0.145060E+01_JPRB &
+  &, 0.144970E+01_JPRB, 0.144828E+01_JPRB, 0.144633E+01_JPRB, 0.144388E+01_JPRB &
+  &, 0.144089E+01_JPRB, 0.143741E+01_JPRB, 0.143342E+01_JPRB &
+  &, 0.142893E+01_JPRB, 0.142394E+01_JPRB, 0.141846E+01_JPRB, 0.141252E+01_JPRB &
+  &, 0.140609E+01_JPRB, 0.139918E+01_JPRB, 0.139184E+01_JPRB &
+  &, 0.138403E+01_JPRB, 0.137579E+01_JPRB, 0.136711E+01_JPRB, 0.135800E+01_JPRB &
+  &, 0.134848E+01_JPRB, 0.133858E+01_JPRB, 0.132826E+01_JPRB &
+  &, 0.131756E+01_JPRB, 0.130651E+01_JPRB, 0.129507E+01_JPRB, 0.128331E+01_JPRB &
+  &, 0.127119E+01_JPRB, 0.125876E+01_JPRB, 0.124601E+01_JPRB &
+  &, 0.123297E+01_JPRB, 0.121964E+01_JPRB, 0.120602E+01_JPRB, 0.119213E+01_JPRB &
+  &, 0.117801E+01_JPRB, 0.116364E+01_JPRB, 0.114904E+01_JPRB &
+  &, 0.113425E+01_JPRB, 0.111925E+01_JPRB, 0.110404E+01_JPRB, 0.108869E+01_JPRB &
+  &, 0.107315E+01_JPRB, 0.105748E+01_JPRB, 0.104167E+01_JPRB &
+  &, 0.102574E+01_JPRB, 0.100967E+01_JPRB, 0.993528E+00_JPRB, 0.977319E+00_JPRB &
+  &, 0.961017E+00_JPRB, 0.944626E+00_JPRB, 0.928240E+00_JPRB &
+  &, 0.911771E+00_JPRB, 0.895314E+00_JPRB, 0.878809E+00_JPRB, 0.862320E+00_JPRB &
+  &, 0.845849E+00_JPRB, 0.829395E+00_JPRB, 0.812958E+00_JPRB &
+  &, 0.796570E+00_JPRB, 0.780227E+00_JPRB, 0.763965E+00_JPRB, 0.747740E+00_JPRB &
+  &, 0.731622E+00_JPRB, 0.715607E+00_JPRB, 0.699529E+00_JPRB &
+  &, 0.683854E+00_JPRB, 0.668139E+00_JPRB, 0.652572E+00_JPRB, 0.637101E+00_JPRB &
+  &, 0.621799E+00_JPRB, 0.606610E+00_JPRB, 0.591606E+00_JPRB &
+  &, 0.576774E+00_JPRB, 0.562097E+00_JPRB, 0.547558E+00_JPRB, 0.533230E+00_JPRB &
+  &, 0.519095E+00_JPRB, 0.505133E+00_JPRB, 0.491370E+00_JPRB &
+  &, 0.477833E+00_JPRB, 0.464448E+00_JPRB, 0.451292E+00_JPRB, 0.438337E+00_JPRB &
+  &, 0.425608E+00_JPRB, 0.413132E+00_JPRB, 0.400824E+00_JPRB &
+  &, 0.388762E+00_JPRB, 0.376858E+00_JPRB, 0.365245E+00_JPRB, 0.353834E+00_JPRB &
+  &, 0.342646E+00_JPRB, 0.331703E+00_JPRB, 0.321024E+00_JPRB &
+  &, 0.310513E+00_JPRB, 0.300247E+00_JPRB, 0.290247E+00_JPRB, 0.280407E+00_JPRB &
+  &, 0.270872E+00_JPRB, 0.261533E+00_JPRB, 0.252406E+00_JPRB/)
+XCW( 766, :) = (/ &
+  &  0.107078E+01_JPRB, 0.108790E+01_JPRB, 0.110475E+01_JPRB, 0.112134E+01_JPRB &
+  &, 0.113765E+01_JPRB, 0.115366E+01_JPRB, 0.116937E+01_JPRB &
+  &, 0.118476E+01_JPRB, 0.119984E+01_JPRB, 0.121458E+01_JPRB, 0.122897E+01_JPRB &
+  &, 0.124300E+01_JPRB, 0.125667E+01_JPRB, 0.126996E+01_JPRB &
+  &, 0.128286E+01_JPRB, 0.129536E+01_JPRB, 0.130746E+01_JPRB, 0.131913E+01_JPRB &
+  &, 0.133038E+01_JPRB, 0.134120E+01_JPRB, 0.135157E+01_JPRB &
+  &, 0.136149E+01_JPRB, 0.137095E+01_JPRB, 0.137994E+01_JPRB, 0.138845E+01_JPRB &
+  &, 0.139648E+01_JPRB, 0.140403E+01_JPRB, 0.141107E+01_JPRB &
+  &, 0.141762E+01_JPRB, 0.142366E+01_JPRB, 0.142919E+01_JPRB, 0.143420E+01_JPRB &
+  &, 0.143870E+01_JPRB, 0.144267E+01_JPRB, 0.144612E+01_JPRB &
+  &, 0.144904E+01_JPRB, 0.145142E+01_JPRB, 0.145329E+01_JPRB, 0.145462E+01_JPRB &
+  &, 0.145542E+01_JPRB, 0.145569E+01_JPRB, 0.145544E+01_JPRB &
+  &, 0.145463E+01_JPRB, 0.145333E+01_JPRB, 0.145150E+01_JPRB, 0.144915E+01_JPRB &
+  &, 0.144627E+01_JPRB, 0.144290E+01_JPRB, 0.143901E+01_JPRB &
+  &, 0.143462E+01_JPRB, 0.142973E+01_JPRB, 0.142436E+01_JPRB, 0.141850E+01_JPRB &
+  &, 0.141216E+01_JPRB, 0.140537E+01_JPRB, 0.139811E+01_JPRB &
+  &, 0.139039E+01_JPRB, 0.138222E+01_JPRB, 0.137363E+01_JPRB, 0.136461E+01_JPRB &
+  &, 0.135519E+01_JPRB, 0.134535E+01_JPRB, 0.133511E+01_JPRB &
+  &, 0.132450E+01_JPRB, 0.131350E+01_JPRB, 0.130215E+01_JPRB, 0.129042E+01_JPRB &
+  &, 0.127838E+01_JPRB, 0.126601E+01_JPRB, 0.125332E+01_JPRB &
+  &, 0.124033E+01_JPRB, 0.122704E+01_JPRB, 0.121347E+01_JPRB, 0.119964E+01_JPRB &
+  &, 0.118555E+01_JPRB, 0.117121E+01_JPRB, 0.115667E+01_JPRB &
+  &, 0.114189E+01_JPRB, 0.112691E+01_JPRB, 0.111176E+01_JPRB, 0.109640E+01_JPRB &
+  &, 0.108091E+01_JPRB, 0.106523E+01_JPRB, 0.104943E+01_JPRB &
+  &, 0.103351E+01_JPRB, 0.101747E+01_JPRB, 0.100133E+01_JPRB, 0.985093E+00_JPRB &
+  &, 0.968786E+00_JPRB, 0.952415E+00_JPRB, 0.936015E+00_JPRB &
+  &, 0.919529E+00_JPRB, 0.903051E+00_JPRB, 0.886552E+00_JPRB, 0.870033E+00_JPRB &
+  &, 0.853528E+00_JPRB, 0.837035E+00_JPRB, 0.820449E+00_JPRB &
+  &, 0.804154E+00_JPRB, 0.787759E+00_JPRB, 0.771439E+00_JPRB, 0.755190E+00_JPRB &
+  &, 0.739044E+00_JPRB, 0.722957E+00_JPRB, 0.706961E+00_JPRB &
+  &, 0.691086E+00_JPRB, 0.675324E+00_JPRB, 0.659666E+00_JPRB, 0.644183E+00_JPRB &
+  &, 0.628779E+00_JPRB, 0.613570E+00_JPRB, 0.598410E+00_JPRB &
+  &, 0.583549E+00_JPRB, 0.568795E+00_JPRB, 0.554220E+00_JPRB, 0.539806E+00_JPRB &
+  &, 0.525580E+00_JPRB, 0.511522E+00_JPRB, 0.497707E+00_JPRB &
+  &, 0.484065E+00_JPRB, 0.470621E+00_JPRB, 0.457349E+00_JPRB, 0.444326E+00_JPRB &
+  &, 0.431473E+00_JPRB, 0.418867E+00_JPRB, 0.406478E+00_JPRB &
+  &, 0.394330E+00_JPRB, 0.382393E+00_JPRB, 0.370688E+00_JPRB, 0.359181E+00_JPRB &
+  &, 0.347892E+00_JPRB, 0.336843E+00_JPRB, 0.326055E+00_JPRB &
+  &, 0.315430E+00_JPRB, 0.305107E+00_JPRB, 0.294985E+00_JPRB, 0.285082E+00_JPRB &
+  &, 0.275417E+00_JPRB, 0.265943E+00_JPRB, 0.256743E+00_JPRB/)
+XCW( 767, :) = (/ &
+  &  0.107113E+01_JPRB, 0.108833E+01_JPRB, 0.110528E+01_JPRB, 0.112196E+01_JPRB &
+  &, 0.113836E+01_JPRB, 0.115447E+01_JPRB, 0.117028E+01_JPRB &
+  &, 0.118578E+01_JPRB, 0.120095E+01_JPRB, 0.121579E+01_JPRB, 0.123029E+01_JPRB &
+  &, 0.124443E+01_JPRB, 0.125820E+01_JPRB, 0.127159E+01_JPRB &
+  &, 0.128460E+01_JPRB, 0.129721E+01_JPRB, 0.130942E+01_JPRB, 0.132121E+01_JPRB &
+  &, 0.133257E+01_JPRB, 0.134350E+01_JPRB, 0.135399E+01_JPRB &
+  &, 0.136402E+01_JPRB, 0.137359E+01_JPRB, 0.138270E+01_JPRB, 0.139133E+01_JPRB &
+  &, 0.139948E+01_JPRB, 0.140714E+01_JPRB, 0.141430E+01_JPRB &
+  &, 0.142097E+01_JPRB, 0.142713E+01_JPRB, 0.143277E+01_JPRB, 0.143790E+01_JPRB &
+  &, 0.144224E+01_JPRB, 0.144661E+01_JPRB, 0.145017E+01_JPRB &
+  &, 0.145321E+01_JPRB, 0.145570E+01_JPRB, 0.145769E+01_JPRB, 0.145913E+01_JPRB &
+  &, 0.146005E+01_JPRB, 0.146043E+01_JPRB, 0.146029E+01_JPRB &
+  &, 0.145961E+01_JPRB, 0.145841E+01_JPRB, 0.145669E+01_JPRB, 0.145444E+01_JPRB &
+  &, 0.145168E+01_JPRB, 0.144840E+01_JPRB, 0.144462E+01_JPRB &
+  &, 0.144033E+01_JPRB, 0.143554E+01_JPRB, 0.143028E+01_JPRB, 0.142452E+01_JPRB &
+  &, 0.141827E+01_JPRB, 0.141157E+01_JPRB, 0.140441E+01_JPRB &
+  &, 0.139677E+01_JPRB, 0.138871E+01_JPRB, 0.138020E+01_JPRB, 0.137126E+01_JPRB &
+  &, 0.136191E+01_JPRB, 0.135215E+01_JPRB, 0.134200E+01_JPRB &
+  &, 0.133145E+01_JPRB, 0.132053E+01_JPRB, 0.130924E+01_JPRB, 0.129759E+01_JPRB &
+  &, 0.128562E+01_JPRB, 0.127329E+01_JPRB, 0.126067E+01_JPRB &
+  &, 0.124773E+01_JPRB, 0.123449E+01_JPRB, 0.122097E+01_JPRB, 0.120718E+01_JPRB &
+  &, 0.119315E+01_JPRB, 0.117886E+01_JPRB, 0.116433E+01_JPRB &
+  &, 0.114960E+01_JPRB, 0.113465E+01_JPRB, 0.111952E+01_JPRB, 0.110419E+01_JPRB &
+  &, 0.108869E+01_JPRB, 0.107306E+01_JPRB, 0.105727E+01_JPRB &
+  &, 0.104136E+01_JPRB, 0.102533E+01_JPRB, 0.100920E+01_JPRB, 0.992956E+00_JPRB &
+  &, 0.976644E+00_JPRB, 0.960265E+00_JPRB, 0.943853E+00_JPRB &
+  &, 0.927382E+00_JPRB, 0.910851E+00_JPRB, 0.894328E+00_JPRB, 0.877813E+00_JPRB &
+  &, 0.861275E+00_JPRB, 0.844745E+00_JPRB, 0.828257E+00_JPRB &
+  &, 0.811809E+00_JPRB, 0.795364E+00_JPRB, 0.779025E+00_JPRB, 0.762715E+00_JPRB &
+  &, 0.746503E+00_JPRB, 0.730385E+00_JPRB, 0.714353E+00_JPRB &
+  &, 0.698398E+00_JPRB, 0.682592E+00_JPRB, 0.666885E+00_JPRB, 0.651307E+00_JPRB &
+  &, 0.635845E+00_JPRB, 0.620573E+00_JPRB, 0.605391E+00_JPRB &
+  &, 0.590414E+00_JPRB, 0.575584E+00_JPRB, 0.560928E+00_JPRB, 0.546429E+00_JPRB &
+  &, 0.532112E+00_JPRB, 0.518008E+00_JPRB, 0.504093E+00_JPRB &
+  &, 0.490347E+00_JPRB, 0.476793E+00_JPRB, 0.463509E+00_JPRB, 0.450368E+00_JPRB &
+  &, 0.437444E+00_JPRB, 0.424762E+00_JPRB, 0.412240E+00_JPRB &
+  &, 0.400009E+00_JPRB, 0.387984E+00_JPRB, 0.376131E+00_JPRB, 0.364527E+00_JPRB &
+  &, 0.353195E+00_JPRB, 0.342042E+00_JPRB, 0.331146E+00_JPRB &
+  &, 0.320468E+00_JPRB, 0.309967E+00_JPRB, 0.299786E+00_JPRB, 0.289758E+00_JPRB &
+  &, 0.279962E+00_JPRB, 0.270354E+00_JPRB, 0.261146E+00_JPRB/)
+XCW( 768, :) = (/ &
+  &  0.107147E+01_JPRB, 0.108876E+01_JPRB, 0.110580E+01_JPRB, 0.112258E+01_JPRB &
+  &, 0.113907E+01_JPRB, 0.115528E+01_JPRB, 0.117119E+01_JPRB &
+  &, 0.118679E+01_JPRB, 0.120207E+01_JPRB, 0.121701E+01_JPRB, 0.123161E+01_JPRB &
+  &, 0.124585E+01_JPRB, 0.125973E+01_JPRB, 0.127323E+01_JPRB &
+  &, 0.128635E+01_JPRB, 0.129907E+01_JPRB, 0.131139E+01_JPRB, 0.132329E+01_JPRB &
+  &, 0.133477E+01_JPRB, 0.134581E+01_JPRB, 0.135641E+01_JPRB &
+  &, 0.136656E+01_JPRB, 0.137625E+01_JPRB, 0.138547E+01_JPRB, 0.139422E+01_JPRB &
+  &, 0.140248E+01_JPRB, 0.141026E+01_JPRB, 0.141754E+01_JPRB &
+  &, 0.142433E+01_JPRB, 0.143060E+01_JPRB, 0.143637E+01_JPRB, 0.144162E+01_JPRB &
+  &, 0.144635E+01_JPRB, 0.145056E+01_JPRB, 0.145424E+01_JPRB &
+  &, 0.145739E+01_JPRB, 0.146001E+01_JPRB, 0.146210E+01_JPRB, 0.146367E+01_JPRB &
+  &, 0.146470E+01_JPRB, 0.146519E+01_JPRB, 0.146516E+01_JPRB &
+  &, 0.146459E+01_JPRB, 0.146350E+01_JPRB, 0.146172E+01_JPRB, 0.145976E+01_JPRB &
+  &, 0.145711E+01_JPRB, 0.145394E+01_JPRB, 0.145026E+01_JPRB &
+  &, 0.144607E+01_JPRB, 0.144140E+01_JPRB, 0.143620E+01_JPRB, 0.143056E+01_JPRB &
+  &, 0.142431E+01_JPRB, 0.141781E+01_JPRB, 0.141074E+01_JPRB &
+  &, 0.140320E+01_JPRB, 0.139523E+01_JPRB, 0.138680E+01_JPRB, 0.137795E+01_JPRB &
+  &, 0.136869E+01_JPRB, 0.135901E+01_JPRB, 0.134892E+01_JPRB &
+  &, 0.133845E+01_JPRB, 0.132760E+01_JPRB, 0.131638E+01_JPRB, 0.130482E+01_JPRB &
+  &, 0.129288E+01_JPRB, 0.128063E+01_JPRB, 0.126807E+01_JPRB &
+  &, 0.125517E+01_JPRB, 0.124201E+01_JPRB, 0.122853E+01_JPRB, 0.121479E+01_JPRB &
+  &, 0.120080E+01_JPRB, 0.118654E+01_JPRB, 0.117205E+01_JPRB &
+  &, 0.115736E+01_JPRB, 0.114244E+01_JPRB, 0.112732E+01_JPRB, 0.111204E+01_JPRB &
+  &, 0.109656E+01_JPRB, 0.108094E+01_JPRB, 0.106517E+01_JPRB &
+  &, 0.104927E+01_JPRB, 0.103325E+01_JPRB, 0.101712E+01_JPRB, 0.100088E+01_JPRB &
+  &, 0.984562E+00_JPRB, 0.968176E+00_JPRB, 0.951753E+00_JPRB &
+  &, 0.935266E+00_JPRB, 0.918749E+00_JPRB, 0.902202E+00_JPRB, 0.885627E+00_JPRB &
+  &, 0.869090E+00_JPRB, 0.852523E+00_JPRB, 0.835994E+00_JPRB &
+  &, 0.819501E+00_JPRB, 0.803078E+00_JPRB, 0.786647E+00_JPRB, 0.770315E+00_JPRB &
+  &, 0.754078E+00_JPRB, 0.737891E+00_JPRB, 0.721784E+00_JPRB &
+  &, 0.705791E+00_JPRB, 0.689941E+00_JPRB, 0.674145E+00_JPRB, 0.658515E+00_JPRB &
+  &, 0.642996E+00_JPRB, 0.627664E+00_JPRB, 0.612416E+00_JPRB &
+  &, 0.597369E+00_JPRB, 0.582464E+00_JPRB, 0.567729E+00_JPRB, 0.553146E+00_JPRB &
+  &, 0.538788E+00_JPRB, 0.524590E+00_JPRB, 0.510578E+00_JPRB &
+  &, 0.496728E+00_JPRB, 0.483117E+00_JPRB, 0.469669E+00_JPRB, 0.456461E+00_JPRB &
+  &, 0.443467E+00_JPRB, 0.430711E+00_JPRB, 0.418111E+00_JPRB &
+  &, 0.405743E+00_JPRB, 0.393631E+00_JPRB, 0.381687E+00_JPRB, 0.369988E+00_JPRB &
+  &, 0.358557E+00_JPRB, 0.347300E+00_JPRB, 0.336296E+00_JPRB &
+  &, 0.325507E+00_JPRB, 0.314951E+00_JPRB, 0.304649E+00_JPRB, 0.294559E+00_JPRB &
+  &, 0.284636E+00_JPRB, 0.275024E+00_JPRB, 0.265614E+00_JPRB/)
+XCW( 769, :) = (/ &
+  &  0.107181E+01_JPRB, 0.108920E+01_JPRB, 0.110633E+01_JPRB, 0.112320E+01_JPRB &
+  &, 0.113979E+01_JPRB, 0.115610E+01_JPRB, 0.117210E+01_JPRB &
+  &, 0.118780E+01_JPRB, 0.120318E+01_JPRB, 0.121823E+01_JPRB, 0.123293E+01_JPRB &
+  &, 0.124728E+01_JPRB, 0.126127E+01_JPRB, 0.127488E+01_JPRB &
+  &, 0.128811E+01_JPRB, 0.130094E+01_JPRB, 0.131337E+01_JPRB, 0.132538E+01_JPRB &
+  &, 0.133697E+01_JPRB, 0.134812E+01_JPRB, 0.135884E+01_JPRB &
+  &, 0.136911E+01_JPRB, 0.137891E+01_JPRB, 0.138825E+01_JPRB, 0.139712E+01_JPRB &
+  &, 0.140550E+01_JPRB, 0.141339E+01_JPRB, 0.142080E+01_JPRB &
+  &, 0.142770E+01_JPRB, 0.143409E+01_JPRB, 0.143998E+01_JPRB, 0.144535E+01_JPRB &
+  &, 0.145019E+01_JPRB, 0.145452E+01_JPRB, 0.145832E+01_JPRB &
+  &, 0.146159E+01_JPRB, 0.146432E+01_JPRB, 0.146654E+01_JPRB, 0.146822E+01_JPRB &
+  &, 0.146937E+01_JPRB, 0.146998E+01_JPRB, 0.147006E+01_JPRB &
+  &, 0.146961E+01_JPRB, 0.146864E+01_JPRB, 0.146711E+01_JPRB, 0.146511E+01_JPRB &
+  &, 0.146256E+01_JPRB, 0.145950E+01_JPRB, 0.145593E+01_JPRB &
+  &, 0.145186E+01_JPRB, 0.144728E+01_JPRB, 0.144220E+01_JPRB, 0.143664E+01_JPRB &
+  &, 0.143060E+01_JPRB, 0.142408E+01_JPRB, 0.141710E+01_JPRB &
+  &, 0.140967E+01_JPRB, 0.140178E+01_JPRB, 0.139344E+01_JPRB, 0.138467E+01_JPRB &
+  &, 0.137549E+01_JPRB, 0.136588E+01_JPRB, 0.135588E+01_JPRB &
+  &, 0.134549E+01_JPRB, 0.133472E+01_JPRB, 0.132357E+01_JPRB, 0.131206E+01_JPRB &
+  &, 0.130021E+01_JPRB, 0.128803E+01_JPRB, 0.127550E+01_JPRB &
+  &, 0.126268E+01_JPRB, 0.124954E+01_JPRB, 0.123613E+01_JPRB, 0.122244E+01_JPRB &
+  &, 0.120849E+01_JPRB, 0.119428E+01_JPRB, 0.117985E+01_JPRB &
+  &, 0.116516E+01_JPRB, 0.115028E+01_JPRB, 0.113521E+01_JPRB, 0.111993E+01_JPRB &
+  &, 0.110447E+01_JPRB, 0.108888E+01_JPRB, 0.107312E+01_JPRB &
+  &, 0.105723E+01_JPRB, 0.104122E+01_JPRB, 0.102510E+01_JPRB, 0.100886E+01_JPRB &
+  &, 0.992540E+00_JPRB, 0.976148E+00_JPRB, 0.959715E+00_JPRB &
+  &, 0.943214E+00_JPRB, 0.926678E+00_JPRB, 0.910109E+00_JPRB, 0.893540E+00_JPRB &
+  &, 0.876972E+00_JPRB, 0.860371E+00_JPRB, 0.843837E+00_JPRB &
+  &, 0.827300E+00_JPRB, 0.810828E+00_JPRB, 0.794381E+00_JPRB, 0.777991E+00_JPRB &
+  &, 0.761690E+00_JPRB, 0.745474E+00_JPRB, 0.729335E+00_JPRB &
+  &, 0.713263E+00_JPRB, 0.697331E+00_JPRB, 0.681530E+00_JPRB, 0.665807E+00_JPRB &
+  &, 0.650234E+00_JPRB, 0.634798E+00_JPRB, 0.619529E+00_JPRB &
+  &, 0.604369E+00_JPRB, 0.589390E+00_JPRB, 0.574576E+00_JPRB, 0.559956E+00_JPRB &
+  &, 0.545464E+00_JPRB, 0.531221E+00_JPRB, 0.517112E+00_JPRB &
+  &, 0.503210E+00_JPRB, 0.489492E+00_JPRB, 0.475983E+00_JPRB, 0.462659E+00_JPRB &
+  &, 0.449596E+00_JPRB, 0.436714E+00_JPRB, 0.424037E+00_JPRB &
+  &, 0.411587E+00_JPRB, 0.399334E+00_JPRB, 0.387357E+00_JPRB, 0.375564E+00_JPRB &
+  &, 0.363977E+00_JPRB, 0.352677E+00_JPRB, 0.341567E+00_JPRB &
+  &, 0.330667E+00_JPRB, 0.319996E+00_JPRB, 0.309575E+00_JPRB, 0.299361E+00_JPRB &
+  &, 0.289437E+00_JPRB, 0.279694E+00_JPRB, 0.270148E+00_JPRB/)
+XCW( 770, :) = (/ &
+  &  0.107216E+01_JPRB, 0.108963E+01_JPRB, 0.110686E+01_JPRB, 0.112382E+01_JPRB &
+  &, 0.114051E+01_JPRB, 0.115691E+01_JPRB, 0.117302E+01_JPRB &
+  &, 0.118882E+01_JPRB, 0.120430E+01_JPRB, 0.121945E+01_JPRB, 0.123426E+01_JPRB &
+  &, 0.124871E+01_JPRB, 0.126281E+01_JPRB, 0.127653E+01_JPRB &
+  &, 0.128987E+01_JPRB, 0.130281E+01_JPRB, 0.131535E+01_JPRB, 0.132748E+01_JPRB &
+  &, 0.133918E+01_JPRB, 0.135045E+01_JPRB, 0.136128E+01_JPRB &
+  &, 0.137166E+01_JPRB, 0.138159E+01_JPRB, 0.139104E+01_JPRB, 0.140003E+01_JPRB &
+  &, 0.140853E+01_JPRB, 0.141654E+01_JPRB, 0.142406E+01_JPRB &
+  &, 0.143108E+01_JPRB, 0.143760E+01_JPRB, 0.144360E+01_JPRB, 0.144909E+01_JPRB &
+  &, 0.145406E+01_JPRB, 0.145850E+01_JPRB, 0.146242E+01_JPRB &
+  &, 0.146581E+01_JPRB, 0.146867E+01_JPRB, 0.147100E+01_JPRB, 0.147279E+01_JPRB &
+  &, 0.147405E+01_JPRB, 0.147478E+01_JPRB, 0.147498E+01_JPRB &
+  &, 0.147465E+01_JPRB, 0.147378E+01_JPRB, 0.147240E+01_JPRB, 0.147048E+01_JPRB &
+  &, 0.146804E+01_JPRB, 0.146509E+01_JPRB, 0.146162E+01_JPRB &
+  &, 0.145765E+01_JPRB, 0.145317E+01_JPRB, 0.144821E+01_JPRB, 0.144275E+01_JPRB &
+  &, 0.143681E+01_JPRB, 0.143038E+01_JPRB, 0.142350E+01_JPRB &
+  &, 0.141616E+01_JPRB, 0.140836E+01_JPRB, 0.140011E+01_JPRB, 0.139143E+01_JPRB &
+  &, 0.138233E+01_JPRB, 0.137281E+01_JPRB, 0.136289E+01_JPRB &
+  &, 0.135257E+01_JPRB, 0.134188E+01_JPRB, 0.133081E+01_JPRB, 0.131936E+01_JPRB &
+  &, 0.130757E+01_JPRB, 0.129545E+01_JPRB, 0.128300E+01_JPRB &
+  &, 0.127023E+01_JPRB, 0.125717E+01_JPRB, 0.124378E+01_JPRB, 0.122998E+01_JPRB &
+  &, 0.121623E+01_JPRB, 0.120208E+01_JPRB, 0.118767E+01_JPRB &
+  &, 0.117304E+01_JPRB, 0.115820E+01_JPRB, 0.114313E+01_JPRB, 0.112788E+01_JPRB &
+  &, 0.111247E+01_JPRB, 0.109687E+01_JPRB, 0.108113E+01_JPRB &
+  &, 0.106525E+01_JPRB, 0.104925E+01_JPRB, 0.103313E+01_JPRB, 0.101690E+01_JPRB &
+  &, 0.100061E+01_JPRB, 0.984211E+00_JPRB, 0.967739E+00_JPRB &
+  &, 0.951257E+00_JPRB, 0.934705E+00_JPRB, 0.918114E+00_JPRB, 0.901521E+00_JPRB &
+  &, 0.884923E+00_JPRB, 0.868322E+00_JPRB, 0.851715E+00_JPRB &
+  &, 0.835170E+00_JPRB, 0.818651E+00_JPRB, 0.802151E+00_JPRB, 0.785742E+00_JPRB &
+  &, 0.769379E+00_JPRB, 0.753096E+00_JPRB, 0.736924E+00_JPRB &
+  &, 0.720817E+00_JPRB, 0.704844E+00_JPRB, 0.688956E+00_JPRB, 0.673184E+00_JPRB &
+  &, 0.657556E+00_JPRB, 0.642062E+00_JPRB, 0.626687E+00_JPRB &
+  &, 0.611459E+00_JPRB, 0.596407E+00_JPRB, 0.581516E+00_JPRB, 0.566814E+00_JPRB &
+  &, 0.552283E+00_JPRB, 0.537901E+00_JPRB, 0.523744E+00_JPRB &
+  &, 0.509741E+00_JPRB, 0.495967E+00_JPRB, 0.482349E+00_JPRB, 0.468961E+00_JPRB &
+  &, 0.455778E+00_JPRB, 0.442771E+00_JPRB, 0.430017E+00_JPRB &
+  &, 0.417487E+00_JPRB, 0.405149E+00_JPRB, 0.393026E+00_JPRB, 0.381140E+00_JPRB &
+  &, 0.369514E+00_JPRB, 0.358054E+00_JPRB, 0.346837E+00_JPRB &
+  &, 0.335887E+00_JPRB, 0.325102E+00_JPRB, 0.314625E+00_JPRB, 0.304289E+00_JPRB &
+  &, 0.294238E+00_JPRB, 0.284429E+00_JPRB, 0.274814E+00_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART110',1,ZHOOK_HANDLE)
+END SUBROUTINE PART110
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART111
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART111',0,ZHOOK_HANDLE)
+
+XCW( 771, :) = (/ &
+  &  0.107251E+01_JPRB, 0.109007E+01_JPRB, 0.110739E+01_JPRB, 0.112445E+01_JPRB &
+  &, 0.114123E+01_JPRB, 0.115773E+01_JPRB, 0.117394E+01_JPRB &
+  &, 0.118984E+01_JPRB, 0.120542E+01_JPRB, 0.122068E+01_JPRB, 0.123559E+01_JPRB &
+  &, 0.125015E+01_JPRB, 0.126436E+01_JPRB, 0.127819E+01_JPRB &
+  &, 0.129163E+01_JPRB, 0.130469E+01_JPRB, 0.131734E+01_JPRB, 0.132958E+01_JPRB &
+  &, 0.134140E+01_JPRB, 0.135278E+01_JPRB, 0.136373E+01_JPRB &
+  &, 0.137423E+01_JPRB, 0.138427E+01_JPRB, 0.139385E+01_JPRB, 0.140295E+01_JPRB &
+  &, 0.141157E+01_JPRB, 0.141970E+01_JPRB, 0.142734E+01_JPRB &
+  &, 0.143448E+01_JPRB, 0.144112E+01_JPRB, 0.144724E+01_JPRB, 0.145285E+01_JPRB &
+  &, 0.145794E+01_JPRB, 0.146250E+01_JPRB, 0.146654E+01_JPRB &
+  &, 0.147005E+01_JPRB, 0.147303E+01_JPRB, 0.147547E+01_JPRB, 0.147739E+01_JPRB &
+  &, 0.147877E+01_JPRB, 0.147961E+01_JPRB, 0.147993E+01_JPRB &
+  &, 0.147970E+01_JPRB, 0.147895E+01_JPRB, 0.147768E+01_JPRB, 0.147588E+01_JPRB &
+  &, 0.147355E+01_JPRB, 0.147070E+01_JPRB, 0.146736E+01_JPRB &
+  &, 0.146349E+01_JPRB, 0.145912E+01_JPRB, 0.145424E+01_JPRB, 0.144889E+01_JPRB &
+  &, 0.144306E+01_JPRB, 0.143673E+01_JPRB, 0.142994E+01_JPRB &
+  &, 0.142268E+01_JPRB, 0.141497E+01_JPRB, 0.140683E+01_JPRB, 0.139823E+01_JPRB &
+  &, 0.138923E+01_JPRB, 0.137979E+01_JPRB, 0.136994E+01_JPRB &
+  &, 0.135970E+01_JPRB, 0.134908E+01_JPRB, 0.133807E+01_JPRB, 0.132671E+01_JPRB &
+  &, 0.131499E+01_JPRB, 0.130293E+01_JPRB, 0.129053E+01_JPRB &
+  &, 0.127782E+01_JPRB, 0.126481E+01_JPRB, 0.125150E+01_JPRB, 0.123790E+01_JPRB &
+  &, 0.122404E+01_JPRB, 0.120991E+01_JPRB, 0.119556E+01_JPRB &
+  &, 0.118095E+01_JPRB, 0.116613E+01_JPRB, 0.115112E+01_JPRB, 0.113590E+01_JPRB &
+  &, 0.112049E+01_JPRB, 0.110494E+01_JPRB, 0.108921E+01_JPRB &
+  &, 0.107336E+01_JPRB, 0.105734E+01_JPRB, 0.104123E+01_JPRB, 0.102502E+01_JPRB &
+  &, 0.100871E+01_JPRB, 0.992306E+00_JPRB, 0.975857E+00_JPRB &
+  &, 0.959332E+00_JPRB, 0.942763E+00_JPRB, 0.926186E+00_JPRB, 0.909568E+00_JPRB &
+  &, 0.892942E+00_JPRB, 0.876308E+00_JPRB, 0.859699E+00_JPRB &
+  &, 0.843112E+00_JPRB, 0.826546E+00_JPRB, 0.810033E+00_JPRB, 0.793568E+00_JPRB &
+  &, 0.777145E+00_JPRB, 0.760835E+00_JPRB, 0.744593E+00_JPRB &
+  &, 0.728450E+00_JPRB, 0.712397E+00_JPRB, 0.696466E+00_JPRB, 0.680645E+00_JPRB &
+  &, 0.664922E+00_JPRB, 0.649370E+00_JPRB, 0.633932E+00_JPRB &
+  &, 0.618638E+00_JPRB, 0.603515E+00_JPRB, 0.588549E+00_JPRB, 0.573766E+00_JPRB &
+  &, 0.559149E+00_JPRB, 0.544677E+00_JPRB, 0.530425E+00_JPRB &
+  &, 0.516372E+00_JPRB, 0.502494E+00_JPRB, 0.488817E+00_JPRB, 0.475315E+00_JPRB &
+  &, 0.462013E+00_JPRB, 0.448988E+00_JPRB, 0.436105E+00_JPRB &
+  &, 0.423496E+00_JPRB, 0.410629E+00_JPRB, 0.398866E+00_JPRB, 0.386889E+00_JPRB &
+  &, 0.375109E+00_JPRB, 0.363548E+00_JPRB, 0.352287E+00_JPRB &
+  &, 0.341168E+00_JPRB, 0.330332E+00_JPRB, 0.319676E+00_JPRB, 0.309281E+00_JPRB &
+  &, 0.299104E+00_JPRB, 0.289164E+00_JPRB, 0.279479E+00_JPRB/)
+XCW( 772, :) = (/ &
+  &  0.107285E+01_JPRB, 0.109051E+01_JPRB, 0.110792E+01_JPRB, 0.112507E+01_JPRB &
+  &, 0.114195E+01_JPRB, 0.115855E+01_JPRB, 0.117486E+01_JPRB &
+  &, 0.119086E+01_JPRB, 0.120655E+01_JPRB, 0.122191E+01_JPRB, 0.123693E+01_JPRB &
+  &, 0.125160E+01_JPRB, 0.126591E+01_JPRB, 0.127985E+01_JPRB &
+  &, 0.129340E+01_JPRB, 0.130657E+01_JPRB, 0.131934E+01_JPRB, 0.133169E+01_JPRB &
+  &, 0.134363E+01_JPRB, 0.135513E+01_JPRB, 0.136619E+01_JPRB &
+  &, 0.137681E+01_JPRB, 0.138696E+01_JPRB, 0.139666E+01_JPRB, 0.140588E+01_JPRB &
+  &, 0.141462E+01_JPRB, 0.142288E+01_JPRB, 0.143063E+01_JPRB &
+  &, 0.143790E+01_JPRB, 0.144465E+01_JPRB, 0.145089E+01_JPRB, 0.145662E+01_JPRB &
+  &, 0.146183E+01_JPRB, 0.146652E+01_JPRB, 0.147068E+01_JPRB &
+  &, 0.147430E+01_JPRB, 0.147740E+01_JPRB, 0.147997E+01_JPRB, 0.148200E+01_JPRB &
+  &, 0.148350E+01_JPRB, 0.148446E+01_JPRB, 0.148490E+01_JPRB &
+  &, 0.148478E+01_JPRB, 0.148415E+01_JPRB, 0.148298E+01_JPRB, 0.148130E+01_JPRB &
+  &, 0.147909E+01_JPRB, 0.147635E+01_JPRB, 0.147310E+01_JPRB &
+  &, 0.146935E+01_JPRB, 0.146509E+01_JPRB, 0.146032E+01_JPRB, 0.145506E+01_JPRB &
+  &, 0.144933E+01_JPRB, 0.144311E+01_JPRB, 0.143640E+01_JPRB &
+  &, 0.142925E+01_JPRB, 0.142163E+01_JPRB, 0.141358E+01_JPRB, 0.140507E+01_JPRB &
+  &, 0.139615E+01_JPRB, 0.138678E+01_JPRB, 0.137704E+01_JPRB &
+  &, 0.136687E+01_JPRB, 0.135633E+01_JPRB, 0.134539E+01_JPRB, 0.133411E+01_JPRB &
+  &, 0.132245E+01_JPRB, 0.131045E+01_JPRB, 0.129811E+01_JPRB &
+  &, 0.128548E+01_JPRB, 0.127252E+01_JPRB, 0.125926E+01_JPRB, 0.124571E+01_JPRB &
+  &, 0.123190E+01_JPRB, 0.121781E+01_JPRB, 0.120350E+01_JPRB &
+  &, 0.118893E+01_JPRB, 0.117415E+01_JPRB, 0.115917E+01_JPRB, 0.114397E+01_JPRB &
+  &, 0.112859E+01_JPRB, 0.111306E+01_JPRB, 0.109736E+01_JPRB &
+  &, 0.108149E+01_JPRB, 0.106551E+01_JPRB, 0.104941E+01_JPRB, 0.103318E+01_JPRB &
+  &, 0.101689E+01_JPRB, 0.100049E+01_JPRB, 0.984037E+00_JPRB &
+  &, 0.967501E+00_JPRB, 0.950918E+00_JPRB, 0.934322E+00_JPRB, 0.917682E+00_JPRB &
+  &, 0.901029E+00_JPRB, 0.884363E+00_JPRB, 0.867717E+00_JPRB &
+  &, 0.851090E+00_JPRB, 0.834515E+00_JPRB, 0.817952E+00_JPRB, 0.801469E+00_JPRB &
+  &, 0.785025E+00_JPRB, 0.768652E+00_JPRB, 0.752341E+00_JPRB &
+  &, 0.736124E+00_JPRB, 0.720032E+00_JPRB, 0.704017E+00_JPRB, 0.688148E+00_JPRB &
+  &, 0.672373E+00_JPRB, 0.656765E+00_JPRB, 0.641267E+00_JPRB &
+  &, 0.625907E+00_JPRB, 0.610715E+00_JPRB, 0.595673E+00_JPRB, 0.580812E+00_JPRB &
+  &, 0.566111E+00_JPRB, 0.551550E+00_JPRB, 0.537204E+00_JPRB &
+  &, 0.523052E+00_JPRB, 0.509121E+00_JPRB, 0.495336E+00_JPRB, 0.481773E+00_JPRB &
+  &, 0.468406E+00_JPRB, 0.455205E+00_JPRB, 0.442248E+00_JPRB &
+  &, 0.429561E+00_JPRB, 0.417003E+00_JPRB, 0.404706E+00_JPRB, 0.392637E+00_JPRB &
+  &, 0.380762E+00_JPRB, 0.369161E+00_JPRB, 0.357737E+00_JPRB &
+  &, 0.346571E+00_JPRB, 0.335623E+00_JPRB, 0.324851E+00_JPRB, 0.314398E+00_JPRB &
+  &, 0.304097E+00_JPRB, 0.294093E+00_JPRB, 0.284276E+00_JPRB/)
+XCW( 773, :) = (/ &
+  &  0.107320E+01_JPRB, 0.109095E+01_JPRB, 0.110845E+01_JPRB, 0.112570E+01_JPRB &
+  &, 0.114268E+01_JPRB, 0.115938E+01_JPRB, 0.117578E+01_JPRB &
+  &, 0.119189E+01_JPRB, 0.120768E+01_JPRB, 0.122314E+01_JPRB, 0.123827E+01_JPRB &
+  &, 0.125304E+01_JPRB, 0.126746E+01_JPRB, 0.128151E+01_JPRB &
+  &, 0.129518E+01_JPRB, 0.130846E+01_JPRB, 0.132134E+01_JPRB, 0.133381E+01_JPRB &
+  &, 0.134586E+01_JPRB, 0.135748E+01_JPRB, 0.136866E+01_JPRB &
+  &, 0.137939E+01_JPRB, 0.138967E+01_JPRB, 0.139948E+01_JPRB, 0.140882E+01_JPRB &
+  &, 0.141768E+01_JPRB, 0.142606E+01_JPRB, 0.143393E+01_JPRB &
+  &, 0.144132E+01_JPRB, 0.144820E+01_JPRB, 0.145456E+01_JPRB, 0.146041E+01_JPRB &
+  &, 0.146574E+01_JPRB, 0.147055E+01_JPRB, 0.147483E+01_JPRB &
+  &, 0.147858E+01_JPRB, 0.148180E+01_JPRB, 0.148449E+01_JPRB, 0.148664E+01_JPRB &
+  &, 0.148826E+01_JPRB, 0.148934E+01_JPRB, 0.148988E+01_JPRB &
+  &, 0.148989E+01_JPRB, 0.148937E+01_JPRB, 0.148832E+01_JPRB, 0.148675E+01_JPRB &
+  &, 0.148465E+01_JPRB, 0.148202E+01_JPRB, 0.147889E+01_JPRB &
+  &, 0.147525E+01_JPRB, 0.147109E+01_JPRB, 0.146643E+01_JPRB, 0.146127E+01_JPRB &
+  &, 0.145563E+01_JPRB, 0.144951E+01_JPRB, 0.144291E+01_JPRB &
+  &, 0.143586E+01_JPRB, 0.142834E+01_JPRB, 0.142036E+01_JPRB, 0.141196E+01_JPRB &
+  &, 0.140311E+01_JPRB, 0.139385E+01_JPRB, 0.138416E+01_JPRB &
+  &, 0.137409E+01_JPRB, 0.136362E+01_JPRB, 0.135276E+01_JPRB, 0.134154E+01_JPRB &
+  &, 0.132995E+01_JPRB, 0.131801E+01_JPRB, 0.130575E+01_JPRB &
+  &, 0.129318E+01_JPRB, 0.128027E+01_JPRB, 0.126706E+01_JPRB, 0.125356E+01_JPRB &
+  &, 0.123980E+01_JPRB, 0.122578E+01_JPRB, 0.121149E+01_JPRB &
+  &, 0.119698E+01_JPRB, 0.118223E+01_JPRB, 0.116726E+01_JPRB, 0.115210E+01_JPRB &
+  &, 0.113675E+01_JPRB, 0.112124E+01_JPRB, 0.110555E+01_JPRB &
+  &, 0.108970E+01_JPRB, 0.107374E+01_JPRB, 0.105765E+01_JPRB, 0.104143E+01_JPRB &
+  &, 0.102511E+01_JPRB, 0.100874E+01_JPRB, 0.992247E+00_JPRB &
+  &, 0.975734E+00_JPRB, 0.959138E+00_JPRB, 0.942525E+00_JPRB, 0.925862E+00_JPRB &
+  &, 0.909183E+00_JPRB, 0.892521E+00_JPRB, 0.875841E+00_JPRB &
+  &, 0.859175E+00_JPRB, 0.842556E+00_JPRB, 0.825981E+00_JPRB, 0.809408E+00_JPRB &
+  &, 0.792944E+00_JPRB, 0.776508E+00_JPRB, 0.760168E+00_JPRB &
+  &, 0.743918E+00_JPRB, 0.727749E+00_JPRB, 0.711692E+00_JPRB, 0.695777E+00_JPRB &
+  &, 0.679953E+00_JPRB, 0.664247E+00_JPRB, 0.648689E+00_JPRB &
+  &, 0.633266E+00_JPRB, 0.617959E+00_JPRB, 0.602891E+00_JPRB, 0.587905E+00_JPRB &
+  &, 0.573121E+00_JPRB, 0.558520E+00_JPRB, 0.544082E+00_JPRB &
+  &, 0.529833E+00_JPRB, 0.515800E+00_JPRB, 0.501959E+00_JPRB, 0.488284E+00_JPRB &
+  &, 0.474799E+00_JPRB, 0.461583E+00_JPRB, 0.448500E+00_JPRB &
+  &, 0.435681E+00_JPRB, 0.423097E+00_JPRB, 0.410659E+00_JPRB, 0.398501E+00_JPRB &
+  &, 0.386532E+00_JPRB, 0.374833E+00_JPRB, 0.363307E+00_JPRB &
+  &, 0.352034E+00_JPRB, 0.340975E+00_JPRB, 0.330150E+00_JPRB, 0.319516E+00_JPRB &
+  &, 0.309155E+00_JPRB, 0.299023E+00_JPRB, 0.289073E+00_JPRB/)
+XCW( 774, :) = (/ &
+  &  0.107355E+01_JPRB, 0.109139E+01_JPRB, 0.110899E+01_JPRB, 0.112633E+01_JPRB &
+  &, 0.114341E+01_JPRB, 0.116020E+01_JPRB, 0.117671E+01_JPRB &
+  &, 0.119292E+01_JPRB, 0.120881E+01_JPRB, 0.122438E+01_JPRB, 0.123961E+01_JPRB &
+  &, 0.125450E+01_JPRB, 0.126902E+01_JPRB, 0.128319E+01_JPRB &
+  &, 0.129697E+01_JPRB, 0.131036E+01_JPRB, 0.132335E+01_JPRB, 0.133594E+01_JPRB &
+  &, 0.134810E+01_JPRB, 0.135984E+01_JPRB, 0.137114E+01_JPRB &
+  &, 0.138199E+01_JPRB, 0.139238E+01_JPRB, 0.140231E+01_JPRB, 0.141178E+01_JPRB &
+  &, 0.142076E+01_JPRB, 0.142925E+01_JPRB, 0.143726E+01_JPRB &
+  &, 0.144476E+01_JPRB, 0.145176E+01_JPRB, 0.145824E+01_JPRB, 0.146422E+01_JPRB &
+  &, 0.146967E+01_JPRB, 0.147460E+01_JPRB, 0.147893E+01_JPRB &
+  &, 0.148288E+01_JPRB, 0.148621E+01_JPRB, 0.148902E+01_JPRB, 0.149129E+01_JPRB &
+  &, 0.149303E+01_JPRB, 0.149423E+01_JPRB, 0.149490E+01_JPRB &
+  &, 0.149503E+01_JPRB, 0.149462E+01_JPRB, 0.149369E+01_JPRB, 0.149223E+01_JPRB &
+  &, 0.149023E+01_JPRB, 0.148773E+01_JPRB, 0.148470E+01_JPRB &
+  &, 0.148116E+01_JPRB, 0.147712E+01_JPRB, 0.147256E+01_JPRB, 0.146751E+01_JPRB &
+  &, 0.146197E+01_JPRB, 0.145595E+01_JPRB, 0.144945E+01_JPRB &
+  &, 0.144249E+01_JPRB, 0.143506E+01_JPRB, 0.142719E+01_JPRB, 0.141886E+01_JPRB &
+  &, 0.141010E+01_JPRB, 0.140093E+01_JPRB, 0.139135E+01_JPRB &
+  &, 0.138133E+01_JPRB, 0.137094E+01_JPRB, 0.136017E+01_JPRB, 0.134902E+01_JPRB &
+  &, 0.133751E+01_JPRB, 0.132564E+01_JPRB, 0.131343E+01_JPRB &
+  &, 0.130091E+01_JPRB, 0.128806E+01_JPRB, 0.127491E+01_JPRB, 0.126148E+01_JPRB &
+  &, 0.124777E+01_JPRB, 0.123377E+01_JPRB, 0.121954E+01_JPRB &
+  &, 0.120505E+01_JPRB, 0.119035E+01_JPRB, 0.117544E+01_JPRB, 0.116030E+01_JPRB &
+  &, 0.114498E+01_JPRB, 0.112947E+01_JPRB, 0.111381E+01_JPRB &
+  &, 0.109800E+01_JPRB, 0.108203E+01_JPRB, 0.106594E+01_JPRB, 0.104973E+01_JPRB &
+  &, 0.103345E+01_JPRB, 0.101705E+01_JPRB, 0.100055E+01_JPRB &
+  &, 0.984030E+00_JPRB, 0.967422E+00_JPRB, 0.950792E+00_JPRB, 0.934110E+00_JPRB &
+  &, 0.917440E+00_JPRB, 0.900715E+00_JPRB, 0.884036E+00_JPRB &
+  &, 0.867332E+00_JPRB, 0.850670E+00_JPRB, 0.834048E+00_JPRB, 0.817460E+00_JPRB &
+  &, 0.800939E+00_JPRB, 0.784480E+00_JPRB, 0.768074E+00_JPRB &
+  &, 0.751793E+00_JPRB, 0.735547E+00_JPRB, 0.719450E+00_JPRB, 0.703449E+00_JPRB &
+  &, 0.687575E+00_JPRB, 0.671772E+00_JPRB, 0.656156E+00_JPRB &
+  &, 0.640669E+00_JPRB, 0.625341E+00_JPRB, 0.610154E+00_JPRB, 0.595091E+00_JPRB &
+  &, 0.580273E+00_JPRB, 0.565538E+00_JPRB, 0.551058E+00_JPRB &
+  &, 0.536713E+00_JPRB, 0.522579E+00_JPRB, 0.508632E+00_JPRB, 0.494898E+00_JPRB &
+  &, 0.481351E+00_JPRB, 0.467961E+00_JPRB, 0.454860E+00_JPRB &
+  &, 0.441911E+00_JPRB, 0.429192E+00_JPRB, 0.416725E+00_JPRB, 0.404422E+00_JPRB &
+  &, 0.392361E+00_JPRB, 0.380564E+00_JPRB, 0.368937E+00_JPRB &
+  &, 0.357559E+00_JPRB, 0.346390E+00_JPRB, 0.335450E+00_JPRB, 0.324760E+00_JPRB &
+  &, 0.314276E+00_JPRB, 0.304082E+00_JPRB, 0.294002E+00_JPRB/)
+XCW( 775, :) = (/ &
+  &  0.107390E+01_JPRB, 0.109183E+01_JPRB, 0.110952E+01_JPRB, 0.112696E+01_JPRB &
+  &, 0.114413E+01_JPRB, 0.116103E+01_JPRB, 0.117764E+01_JPRB &
+  &, 0.119395E+01_JPRB, 0.120995E+01_JPRB, 0.122562E+01_JPRB, 0.124096E+01_JPRB &
+  &, 0.125595E+01_JPRB, 0.127059E+01_JPRB, 0.128486E+01_JPRB &
+  &, 0.129876E+01_JPRB, 0.131226E+01_JPRB, 0.132537E+01_JPRB, 0.133807E+01_JPRB &
+  &, 0.135035E+01_JPRB, 0.136220E+01_JPRB, 0.137362E+01_JPRB &
+  &, 0.138459E+01_JPRB, 0.139511E+01_JPRB, 0.140516E+01_JPRB, 0.141474E+01_JPRB &
+  &, 0.142385E+01_JPRB, 0.143246E+01_JPRB, 0.144059E+01_JPRB &
+  &, 0.144821E+01_JPRB, 0.145533E+01_JPRB, 0.146194E+01_JPRB, 0.146804E+01_JPRB &
+  &, 0.147362E+01_JPRB, 0.147867E+01_JPRB, 0.148319E+01_JPRB &
+  &, 0.148718E+01_JPRB, 0.149065E+01_JPRB, 0.149358E+01_JPRB, 0.149597E+01_JPRB &
+  &, 0.149783E+01_JPRB, 0.149915E+01_JPRB, 0.149993E+01_JPRB &
+  &, 0.150018E+01_JPRB, 0.149990E+01_JPRB, 0.149907E+01_JPRB, 0.149772E+01_JPRB &
+  &, 0.149585E+01_JPRB, 0.149346E+01_JPRB, 0.149055E+01_JPRB &
+  &, 0.148711E+01_JPRB, 0.148317E+01_JPRB, 0.147872E+01_JPRB, 0.147379E+01_JPRB &
+  &, 0.146835E+01_JPRB, 0.146243E+01_JPRB, 0.145604E+01_JPRB &
+  &, 0.144917E+01_JPRB, 0.144183E+01_JPRB, 0.143405E+01_JPRB, 0.142582E+01_JPRB &
+  &, 0.141715E+01_JPRB, 0.140807E+01_JPRB, 0.139855E+01_JPRB &
+  &, 0.138864E+01_JPRB, 0.137833E+01_JPRB, 0.136762E+01_JPRB, 0.135654E+01_JPRB &
+  &, 0.134511E+01_JPRB, 0.133332E+01_JPRB, 0.132118E+01_JPRB &
+  &, 0.130872E+01_JPRB, 0.129592E+01_JPRB, 0.128282E+01_JPRB, 0.126945E+01_JPRB &
+  &, 0.125578E+01_JPRB, 0.124183E+01_JPRB, 0.122765E+01_JPRB &
+  &, 0.121320E+01_JPRB, 0.119853E+01_JPRB, 0.118366E+01_JPRB, 0.116856E+01_JPRB &
+  &, 0.115326E+01_JPRB, 0.113778E+01_JPRB, 0.112214E+01_JPRB &
+  &, 0.110633E+01_JPRB, 0.109040E+01_JPRB, 0.107433E+01_JPRB, 0.105812E+01_JPRB &
+  &, 0.104182E+01_JPRB, 0.102542E+01_JPRB, 0.100895E+01_JPRB &
+  &, 0.992390E+00_JPRB, 0.975803E+00_JPRB, 0.959126E+00_JPRB, 0.942457E+00_JPRB &
+  &, 0.925730E+00_JPRB, 0.909012E+00_JPRB, 0.892301E+00_JPRB &
+  &, 0.875560E+00_JPRB, 0.858893E+00_JPRB, 0.842225E+00_JPRB, 0.825587E+00_JPRB &
+  &, 0.809011E+00_JPRB, 0.792530E+00_JPRB, 0.776059E+00_JPRB &
+  &, 0.759707E+00_JPRB, 0.743468E+00_JPRB, 0.727291E+00_JPRB, 0.711205E+00_JPRB &
+  &, 0.695283E+00_JPRB, 0.679428E+00_JPRB, 0.663755E+00_JPRB &
+  &, 0.648162E+00_JPRB, 0.632768E+00_JPRB, 0.617511E+00_JPRB, 0.602372E+00_JPRB &
+  &, 0.587473E+00_JPRB, 0.572702E+00_JPRB, 0.558083E+00_JPRB &
+  &, 0.543693E+00_JPRB, 0.529460E+00_JPRB, 0.515408E+00_JPRB, 0.501565E+00_JPRB &
+  &, 0.487902E+00_JPRB, 0.474500E+00_JPRB, 0.461275E+00_JPRB &
+  &, 0.448252E+00_JPRB, 0.435454E+00_JPRB, 0.422848E+00_JPRB, 0.410458E+00_JPRB &
+  &, 0.398305E+00_JPRB, 0.386354E+00_JPRB, 0.374686E+00_JPRB &
+  &, 0.363204E+00_JPRB, 0.351927E+00_JPRB, 0.340874E+00_JPRB, 0.330067E+00_JPRB &
+  &, 0.319526E+00_JPRB, 0.309141E+00_JPRB, 0.299061E+00_JPRB/)
+XCW( 776, :) = (/ &
+  &  0.107425E+01_JPRB, 0.109227E+01_JPRB, 0.111006E+01_JPRB, 0.112759E+01_JPRB &
+  &, 0.114487E+01_JPRB, 0.116186E+01_JPRB, 0.117857E+01_JPRB &
+  &, 0.119498E+01_JPRB, 0.121109E+01_JPRB, 0.122687E+01_JPRB, 0.124231E+01_JPRB &
+  &, 0.125742E+01_JPRB, 0.127217E+01_JPRB, 0.128655E+01_JPRB &
+  &, 0.130055E+01_JPRB, 0.131417E+01_JPRB, 0.132740E+01_JPRB, 0.134021E+01_JPRB &
+  &, 0.135261E+01_JPRB, 0.136458E+01_JPRB, 0.137612E+01_JPRB &
+  &, 0.138721E+01_JPRB, 0.139784E+01_JPRB, 0.140802E+01_JPRB, 0.141772E+01_JPRB &
+  &, 0.142695E+01_JPRB, 0.143569E+01_JPRB, 0.144393E+01_JPRB &
+  &, 0.145168E+01_JPRB, 0.145892E+01_JPRB, 0.146566E+01_JPRB, 0.147188E+01_JPRB &
+  &, 0.147758E+01_JPRB, 0.148276E+01_JPRB, 0.148740E+01_JPRB &
+  &, 0.149152E+01_JPRB, 0.149510E+01_JPRB, 0.149816E+01_JPRB, 0.150067E+01_JPRB &
+  &, 0.150265E+01_JPRB, 0.150409E+01_JPRB, 0.150499E+01_JPRB &
+  &, 0.150536E+01_JPRB, 0.150519E+01_JPRB, 0.150448E+01_JPRB, 0.150326E+01_JPRB &
+  &, 0.150150E+01_JPRB, 0.149922E+01_JPRB, 0.149641E+01_JPRB &
+  &, 0.149309E+01_JPRB, 0.148927E+01_JPRB, 0.148493E+01_JPRB, 0.148010E+01_JPRB &
+  &, 0.147476E+01_JPRB, 0.146895E+01_JPRB, 0.146264E+01_JPRB &
+  &, 0.145588E+01_JPRB, 0.144865E+01_JPRB, 0.144096E+01_JPRB, 0.143282E+01_JPRB &
+  &, 0.142425E+01_JPRB, 0.141524E+01_JPRB, 0.140581E+01_JPRB &
+  &, 0.139598E+01_JPRB, 0.138575E+01_JPRB, 0.137513E+01_JPRB, 0.136411E+01_JPRB &
+  &, 0.135275E+01_JPRB, 0.134102E+01_JPRB, 0.132896E+01_JPRB &
+  &, 0.131656E+01_JPRB, 0.130383E+01_JPRB, 0.129080E+01_JPRB, 0.127746E+01_JPRB &
+  &, 0.126384E+01_JPRB, 0.124996E+01_JPRB, 0.123580E+01_JPRB &
+  &, 0.122142E+01_JPRB, 0.120679E+01_JPRB, 0.119193E+01_JPRB, 0.117686E+01_JPRB &
+  &, 0.116160E+01_JPRB, 0.114614E+01_JPRB, 0.113053E+01_JPRB &
+  &, 0.111474E+01_JPRB, 0.109882E+01_JPRB, 0.108274E+01_JPRB, 0.106658E+01_JPRB &
+  &, 0.105028E+01_JPRB, 0.103388E+01_JPRB, 0.101738E+01_JPRB &
+  &, 0.100084E+01_JPRB, 0.984216E+00_JPRB, 0.967558E+00_JPRB, 0.950838E+00_JPRB &
+  &, 0.934123E+00_JPRB, 0.917378E+00_JPRB, 0.900636E+00_JPRB &
+  &, 0.883895E+00_JPRB, 0.867153E+00_JPRB, 0.850440E+00_JPRB, 0.833789E+00_JPRB &
+  &, 0.817197E+00_JPRB, 0.800619E+00_JPRB, 0.784162E+00_JPRB &
+  &, 0.767743E+00_JPRB, 0.751430E+00_JPRB, 0.735174E+00_JPRB, 0.719046E+00_JPRB &
+  &, 0.703034E+00_JPRB, 0.687171E+00_JPRB, 0.671399E+00_JPRB &
+  &, 0.655746E+00_JPRB, 0.640286E+00_JPRB, 0.624959E+00_JPRB, 0.609746E+00_JPRB &
+  &, 0.594721E+00_JPRB, 0.579914E+00_JPRB, 0.565206E+00_JPRB &
+  &, 0.550723E+00_JPRB, 0.536391E+00_JPRB, 0.522287E+00_JPRB, 0.508336E+00_JPRB &
+  &, 0.494613E+00_JPRB, 0.481092E+00_JPRB, 0.467744E+00_JPRB &
+  &, 0.454647E+00_JPRB, 0.441716E+00_JPRB, 0.429028E+00_JPRB, 0.416551E+00_JPRB &
+  &, 0.404308E+00_JPRB, 0.392263E+00_JPRB, 0.380496E+00_JPRB &
+  &, 0.368910E+00_JPRB, 0.357525E+00_JPRB, 0.346361E+00_JPRB, 0.335501E+00_JPRB &
+  &, 0.324775E+00_JPRB, 0.314330E+00_JPRB, 0.304121E+00_JPRB/)
+XCW( 777, :) = (/ &
+  &  0.107460E+01_JPRB, 0.109272E+01_JPRB, 0.111060E+01_JPRB, 0.112823E+01_JPRB &
+  &, 0.114560E+01_JPRB, 0.116270E+01_JPRB, 0.117951E+01_JPRB &
+  &, 0.119602E+01_JPRB, 0.121223E+01_JPRB, 0.122812E+01_JPRB, 0.124367E+01_JPRB &
+  &, 0.125888E+01_JPRB, 0.127374E+01_JPRB, 0.128824E+01_JPRB &
+  &, 0.130236E+01_JPRB, 0.131609E+01_JPRB, 0.132943E+01_JPRB, 0.134236E+01_JPRB &
+  &, 0.135488E+01_JPRB, 0.136697E+01_JPRB, 0.137862E+01_JPRB &
+  &, 0.138983E+01_JPRB, 0.140059E+01_JPRB, 0.141088E+01_JPRB, 0.142071E+01_JPRB &
+  &, 0.143006E+01_JPRB, 0.143892E+01_JPRB, 0.144729E+01_JPRB &
+  &, 0.145516E+01_JPRB, 0.146253E+01_JPRB, 0.146939E+01_JPRB, 0.147573E+01_JPRB &
+  &, 0.148156E+01_JPRB, 0.148686E+01_JPRB, 0.149163E+01_JPRB &
+  &, 0.149587E+01_JPRB, 0.149958E+01_JPRB, 0.150275E+01_JPRB, 0.150539E+01_JPRB &
+  &, 0.150749E+01_JPRB, 0.150905E+01_JPRB, 0.151008E+01_JPRB &
+  &, 0.151057E+01_JPRB, 0.151051E+01_JPRB, 0.150993E+01_JPRB, 0.150881E+01_JPRB &
+  &, 0.150718E+01_JPRB, 0.150501E+01_JPRB, 0.150231E+01_JPRB &
+  &, 0.149911E+01_JPRB, 0.149538E+01_JPRB, 0.149116E+01_JPRB, 0.148644E+01_JPRB &
+  &, 0.148121E+01_JPRB, 0.147549E+01_JPRB, 0.146931E+01_JPRB &
+  &, 0.146264E+01_JPRB, 0.145549E+01_JPRB, 0.144791E+01_JPRB, 0.143986E+01_JPRB &
+  &, 0.143138E+01_JPRB, 0.142246E+01_JPRB, 0.141311E+01_JPRB &
+  &, 0.140336E+01_JPRB, 0.139320E+01_JPRB, 0.138268E+01_JPRB, 0.137174E+01_JPRB &
+  &, 0.136045E+01_JPRB, 0.134879E+01_JPRB, 0.133679E+01_JPRB &
+  &, 0.132445E+01_JPRB, 0.131179E+01_JPRB, 0.129883E+01_JPRB, 0.128554E+01_JPRB &
+  &, 0.127197E+01_JPRB, 0.125814E+01_JPRB, 0.124403E+01_JPRB &
+  &, 0.122969E+01_JPRB, 0.121508E+01_JPRB, 0.120028E+01_JPRB, 0.118522E+01_JPRB &
+  &, 0.116999E+01_JPRB, 0.115459E+01_JPRB, 0.113897E+01_JPRB &
+  &, 0.112320E+01_JPRB, 0.110731E+01_JPRB, 0.109124E+01_JPRB, 0.107509E+01_JPRB &
+  &, 0.105879E+01_JPRB, 0.104240E+01_JPRB, 0.102590E+01_JPRB &
+  &, 0.100936E+01_JPRB, 0.992726E+00_JPRB, 0.976056E+00_JPRB, 0.959320E+00_JPRB &
+  &, 0.942583E+00_JPRB, 0.925813E+00_JPRB, 0.909041E+00_JPRB &
+  &, 0.892267E+00_JPRB, 0.875521E+00_JPRB, 0.858765E+00_JPRB, 0.842067E+00_JPRB &
+  &, 0.825422E+00_JPRB, 0.808824E+00_JPRB, 0.792306E+00_JPRB &
+  &, 0.775858E+00_JPRB, 0.759473E+00_JPRB, 0.743181E+00_JPRB, 0.727012E+00_JPRB &
+  &, 0.710914E+00_JPRB, 0.694957E+00_JPRB, 0.679130E+00_JPRB &
+  &, 0.663418E+00_JPRB, 0.647895E+00_JPRB, 0.632454E+00_JPRB, 0.617215E+00_JPRB &
+  &, 0.602112E+00_JPRB, 0.587174E+00_JPRB, 0.572428E+00_JPRB &
+  &, 0.557852E+00_JPRB, 0.543423E+00_JPRB, 0.529217E+00_JPRB, 0.515210E+00_JPRB &
+  &, 0.501376E+00_JPRB, 0.487738E+00_JPRB, 0.474322E+00_JPRB &
+  &, 0.461153E+00_JPRB, 0.448146E+00_JPRB, 0.435321E+00_JPRB, 0.422760E+00_JPRB &
+  &, 0.410428E+00_JPRB, 0.398289E+00_JPRB, 0.386365E+00_JPRB &
+  &, 0.374677E+00_JPRB, 0.363186E+00_JPRB, 0.351973E+00_JPRB, 0.340934E+00_JPRB &
+  &, 0.330153E+00_JPRB, 0.319649E+00_JPRB, 0.309312E+00_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART111',1,ZHOOK_HANDLE)
+END SUBROUTINE PART111
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART112
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART112',0,ZHOOK_HANDLE)
+
+XCW( 778, :) = (/ &
+  &  0.107495E+01_JPRB, 0.109316E+01_JPRB, 0.111114E+01_JPRB, 0.112887E+01_JPRB &
+  &, 0.114634E+01_JPRB, 0.116353E+01_JPRB, 0.118045E+01_JPRB &
+  &, 0.119706E+01_JPRB, 0.121338E+01_JPRB, 0.122937E+01_JPRB, 0.124503E+01_JPRB &
+  &, 0.126035E+01_JPRB, 0.127532E+01_JPRB, 0.128993E+01_JPRB &
+  &, 0.130417E+01_JPRB, 0.131801E+01_JPRB, 0.133147E+01_JPRB, 0.134452E+01_JPRB &
+  &, 0.135715E+01_JPRB, 0.136936E+01_JPRB, 0.138113E+01_JPRB &
+  &, 0.139247E+01_JPRB, 0.140334E+01_JPRB, 0.141376E+01_JPRB, 0.142371E+01_JPRB &
+  &, 0.143318E+01_JPRB, 0.144217E+01_JPRB, 0.145066E+01_JPRB &
+  &, 0.145866E+01_JPRB, 0.146615E+01_JPRB, 0.147314E+01_JPRB, 0.147960E+01_JPRB &
+  &, 0.148556E+01_JPRB, 0.149098E+01_JPRB, 0.149588E+01_JPRB &
+  &, 0.150024E+01_JPRB, 0.150408E+01_JPRB, 0.150737E+01_JPRB, 0.151013E+01_JPRB &
+  &, 0.151235E+01_JPRB, 0.151404E+01_JPRB, 0.151519E+01_JPRB &
+  &, 0.151579E+01_JPRB, 0.151586E+01_JPRB, 0.151540E+01_JPRB, 0.151441E+01_JPRB &
+  &, 0.151287E+01_JPRB, 0.151082E+01_JPRB, 0.150825E+01_JPRB &
+  &, 0.150515E+01_JPRB, 0.150155E+01_JPRB, 0.149743E+01_JPRB, 0.149280E+01_JPRB &
+  &, 0.148768E+01_JPRB, 0.148207E+01_JPRB, 0.147598E+01_JPRB &
+  &, 0.146942E+01_JPRB, 0.146239E+01_JPRB, 0.145488E+01_JPRB, 0.144693E+01_JPRB &
+  &, 0.143854E+01_JPRB, 0.142971E+01_JPRB, 0.142046E+01_JPRB &
+  &, 0.141080E+01_JPRB, 0.140073E+01_JPRB, 0.139026E+01_JPRB, 0.137942E+01_JPRB &
+  &, 0.136819E+01_JPRB, 0.135661E+01_JPRB, 0.134468E+01_JPRB &
+  &, 0.133240E+01_JPRB, 0.131980E+01_JPRB, 0.130689E+01_JPRB, 0.129368E+01_JPRB &
+  &, 0.128017E+01_JPRB, 0.126637E+01_JPRB, 0.125233E+01_JPRB &
+  &, 0.123801E+01_JPRB, 0.122346E+01_JPRB, 0.120868E+01_JPRB, 0.119368E+01_JPRB &
+  &, 0.117846E+01_JPRB, 0.116306E+01_JPRB, 0.114750E+01_JPRB &
+  &, 0.113175E+01_JPRB, 0.111585E+01_JPRB, 0.109982E+01_JPRB, 0.108365E+01_JPRB &
+  &, 0.106737E+01_JPRB, 0.105098E+01_JPRB, 0.103448E+01_JPRB &
+  &, 0.101794E+01_JPRB, 0.100130E+01_JPRB, 0.984619E+00_JPRB, 0.967867E+00_JPRB &
+  &, 0.951111E+00_JPRB, 0.934317E+00_JPRB, 0.917517E+00_JPRB &
+  &, 0.900745E+00_JPRB, 0.883926E+00_JPRB, 0.867165E+00_JPRB, 0.850457E+00_JPRB &
+  &, 0.833761E+00_JPRB, 0.817108E+00_JPRB, 0.800528E+00_JPRB &
+  &, 0.784014E+00_JPRB, 0.767598E+00_JPRB, 0.751271E+00_JPRB, 0.735021E+00_JPRB &
+  &, 0.718879E+00_JPRB, 0.702874E+00_JPRB, 0.686951E+00_JPRB &
+  &, 0.671181E+00_JPRB, 0.655550E+00_JPRB, 0.640088E+00_JPRB, 0.624730E+00_JPRB &
+  &, 0.609598E+00_JPRB, 0.594579E+00_JPRB, 0.579699E+00_JPRB &
+  &, 0.564982E+00_JPRB, 0.550557E+00_JPRB, 0.536250E+00_JPRB, 0.522137E+00_JPRB &
+  &, 0.508245E+00_JPRB, 0.494545E+00_JPRB, 0.481009E+00_JPRB &
+  &, 0.467714E+00_JPRB, 0.454632E+00_JPRB, 0.441728E+00_JPRB, 0.429026E+00_JPRB &
+  &, 0.416606E+00_JPRB, 0.404375E+00_JPRB, 0.392354E+00_JPRB &
+  &, 0.380565E+00_JPRB, 0.368969E+00_JPRB, 0.357646E+00_JPRB, 0.346557E+00_JPRB &
+  &, 0.335658E+00_JPRB, 0.324967E+00_JPRB, 0.314569E+00_JPRB/)
+XCW( 779, :) = (/ &
+  &  0.107530E+01_JPRB, 0.109361E+01_JPRB, 0.111168E+01_JPRB, 0.112951E+01_JPRB &
+  &, 0.114707E+01_JPRB, 0.116437E+01_JPRB, 0.118139E+01_JPRB &
+  &, 0.119811E+01_JPRB, 0.121453E+01_JPRB, 0.123063E+01_JPRB, 0.124640E+01_JPRB &
+  &, 0.126183E+01_JPRB, 0.127691E+01_JPRB, 0.129163E+01_JPRB &
+  &, 0.130598E+01_JPRB, 0.131995E+01_JPRB, 0.133352E+01_JPRB, 0.134668E+01_JPRB &
+  &, 0.135944E+01_JPRB, 0.137176E+01_JPRB, 0.138366E+01_JPRB &
+  &, 0.139511E+01_JPRB, 0.140610E+01_JPRB, 0.141665E+01_JPRB, 0.142672E+01_JPRB &
+  &, 0.143632E+01_JPRB, 0.144543E+01_JPRB, 0.145405E+01_JPRB &
+  &, 0.146217E+01_JPRB, 0.146979E+01_JPRB, 0.147690E+01_JPRB, 0.148349E+01_JPRB &
+  &, 0.148957E+01_JPRB, 0.149512E+01_JPRB, 0.150014E+01_JPRB &
+  &, 0.150462E+01_JPRB, 0.150859E+01_JPRB, 0.151201E+01_JPRB, 0.151489E+01_JPRB &
+  &, 0.151724E+01_JPRB, 0.151904E+01_JPRB, 0.152032E+01_JPRB &
+  &, 0.152104E+01_JPRB, 0.152124E+01_JPRB, 0.152089E+01_JPRB, 0.152002E+01_JPRB &
+  &, 0.151860E+01_JPRB, 0.151668E+01_JPRB, 0.151421E+01_JPRB &
+  &, 0.151122E+01_JPRB, 0.150774E+01_JPRB, 0.150373E+01_JPRB, 0.149921E+01_JPRB &
+  &, 0.149420E+01_JPRB, 0.148870E+01_JPRB, 0.148271E+01_JPRB &
+  &, 0.147624E+01_JPRB, 0.146930E+01_JPRB, 0.146191E+01_JPRB, 0.145405E+01_JPRB &
+  &, 0.144575E+01_JPRB, 0.143702E+01_JPRB, 0.142786E+01_JPRB &
+  &, 0.141828E+01_JPRB, 0.140828E+01_JPRB, 0.139790E+01_JPRB, 0.138713E+01_JPRB &
+  &, 0.137599E+01_JPRB, 0.136447E+01_JPRB, 0.135261E+01_JPRB &
+  &, 0.134041E+01_JPRB, 0.132788E+01_JPRB, 0.131503E+01_JPRB, 0.130185E+01_JPRB &
+  &, 0.128839E+01_JPRB, 0.127466E+01_JPRB, 0.126065E+01_JPRB &
+  &, 0.124640E+01_JPRB, 0.123187E+01_JPRB, 0.121713E+01_JPRB, 0.120217E+01_JPRB &
+  &, 0.118701E+01_JPRB, 0.117164E+01_JPRB, 0.115608E+01_JPRB &
+  &, 0.114036E+01_JPRB, 0.112447E+01_JPRB, 0.110847E+01_JPRB, 0.109231E+01_JPRB &
+  &, 0.107601E+01_JPRB, 0.105963E+01_JPRB, 0.104316E+01_JPRB &
+  &, 0.102659E+01_JPRB, 0.100997E+01_JPRB, 0.993248E+00_JPRB, 0.976516E+00_JPRB &
+  &, 0.959742E+00_JPRB, 0.942925E+00_JPRB, 0.926099E+00_JPRB &
+  &, 0.909260E+00_JPRB, 0.891895E+00_JPRB, 0.875675E+00_JPRB, 0.858886E+00_JPRB &
+  &, 0.842139E+00_JPRB, 0.825469E+00_JPRB, 0.808829E+00_JPRB &
+  &, 0.792291E+00_JPRB, 0.775805E+00_JPRB, 0.759403E+00_JPRB, 0.743115E+00_JPRB &
+  &, 0.726929E+00_JPRB, 0.710835E+00_JPRB, 0.694903E+00_JPRB &
+  &, 0.679033E+00_JPRB, 0.663342E+00_JPRB, 0.647768E+00_JPRB, 0.632387E+00_JPRB &
+  &, 0.617132E+00_JPRB, 0.602033E+00_JPRB, 0.587117E+00_JPRB &
+  &, 0.572360E+00_JPRB, 0.557791E+00_JPRB, 0.543386E+00_JPRB, 0.529221E+00_JPRB &
+  &, 0.515166E+00_JPRB, 0.501405E+00_JPRB, 0.487750E+00_JPRB &
+  &, 0.474385E+00_JPRB, 0.461173E+00_JPRB, 0.448191E+00_JPRB, 0.435407E+00_JPRB &
+  &, 0.422842E+00_JPRB, 0.410519E+00_JPRB, 0.398403E+00_JPRB &
+  &, 0.386515E+00_JPRB, 0.374875E+00_JPRB, 0.363382E+00_JPRB, 0.352180E+00_JPRB &
+  &, 0.341164E+00_JPRB, 0.330416E+00_JPRB, 0.319892E+00_JPRB/)
+XCW( 780, :) = (/ &
+  &  0.107566E+01_JPRB, 0.109406E+01_JPRB, 0.111222E+01_JPRB, 0.113015E+01_JPRB &
+  &, 0.114781E+01_JPRB, 0.116521E+01_JPRB, 0.118233E+01_JPRB &
+  &, 0.119916E+01_JPRB, 0.121568E+01_JPRB, 0.123189E+01_JPRB, 0.124777E+01_JPRB &
+  &, 0.126331E+01_JPRB, 0.127851E+01_JPRB, 0.129334E+01_JPRB &
+  &, 0.130780E+01_JPRB, 0.132188E+01_JPRB, 0.133557E+01_JPRB, 0.134885E+01_JPRB &
+  &, 0.136173E+01_JPRB, 0.137417E+01_JPRB, 0.138619E+01_JPRB &
+  &, 0.139776E+01_JPRB, 0.140889E+01_JPRB, 0.141955E+01_JPRB, 0.142975E+01_JPRB &
+  &, 0.143947E+01_JPRB, 0.144870E+01_JPRB, 0.145745E+01_JPRB &
+  &, 0.146570E+01_JPRB, 0.147344E+01_JPRB, 0.148068E+01_JPRB, 0.148740E+01_JPRB &
+  &, 0.149360E+01_JPRB, 0.149927E+01_JPRB, 0.150442E+01_JPRB &
+  &, 0.150904E+01_JPRB, 0.151313E+01_JPRB, 0.151667E+01_JPRB, 0.151968E+01_JPRB &
+  &, 0.152215E+01_JPRB, 0.152408E+01_JPRB, 0.152547E+01_JPRB &
+  &, 0.152632E+01_JPRB, 0.152664E+01_JPRB, 0.152642E+01_JPRB, 0.152566E+01_JPRB &
+  &, 0.152437E+01_JPRB, 0.152255E+01_JPRB, 0.152020E+01_JPRB &
+  &, 0.151733E+01_JPRB, 0.151395E+01_JPRB, 0.151005E+01_JPRB, 0.150566E+01_JPRB &
+  &, 0.150075E+01_JPRB, 0.149536E+01_JPRB, 0.148948E+01_JPRB &
+  &, 0.148311E+01_JPRB, 0.147628E+01_JPRB, 0.146896E+01_JPRB, 0.146122E+01_JPRB &
+  &, 0.145300E+01_JPRB, 0.144437E+01_JPRB, 0.143530E+01_JPRB &
+  &, 0.142579E+01_JPRB, 0.141589E+01_JPRB, 0.140560E+01_JPRB, 0.139489E+01_JPRB &
+  &, 0.138383E+01_JPRB, 0.137240E+01_JPRB, 0.136060E+01_JPRB &
+  &, 0.134847E+01_JPRB, 0.133599E+01_JPRB, 0.132321E+01_JPRB, 0.131011E+01_JPRB &
+  &, 0.129670E+01_JPRB, 0.128301E+01_JPRB, 0.126906E+01_JPRB &
+  &, 0.125484E+01_JPRB, 0.124036E+01_JPRB, 0.122565E+01_JPRB, 0.121073E+01_JPRB &
+  &, 0.119561E+01_JPRB, 0.118025E+01_JPRB, 0.116474E+01_JPRB &
+  &, 0.114904E+01_JPRB, 0.113319E+01_JPRB, 0.111717E+01_JPRB, 0.110103E+01_JPRB &
+  &, 0.108474E+01_JPRB, 0.106836E+01_JPRB, 0.105190E+01_JPRB &
+  &, 0.103533E+01_JPRB, 0.101867E+01_JPRB, 0.100198E+01_JPRB, 0.985231E+00_JPRB &
+  &, 0.968372E+00_JPRB, 0.951603E+00_JPRB, 0.934751E+00_JPRB &
+  &, 0.917917E+00_JPRB, 0.901064E+00_JPRB, 0.884223E+00_JPRB, 0.867427E+00_JPRB &
+  &, 0.850632E+00_JPRB, 0.833908E+00_JPRB, 0.817249E+00_JPRB &
+  &, 0.800647E+00_JPRB, 0.784093E+00_JPRB, 0.767659E+00_JPRB, 0.751292E+00_JPRB &
+  &, 0.735066E+00_JPRB, 0.718926E+00_JPRB, 0.702900E+00_JPRB &
+  &, 0.686975E+00_JPRB, 0.671225E+00_JPRB, 0.655587E+00_JPRB, 0.640090E+00_JPRB &
+  &, 0.624762E+00_JPRB, 0.609584E+00_JPRB, 0.594584E+00_JPRB &
+  &, 0.579739E+00_JPRB, 0.565077E+00_JPRB, 0.550624E+00_JPRB, 0.536356E+00_JPRB &
+  &, 0.522246E+00_JPRB, 0.508319E+00_JPRB, 0.494599E+00_JPRB &
+  &, 0.481112E+00_JPRB, 0.467827E+00_JPRB, 0.454768E+00_JPRB, 0.441902E+00_JPRB &
+  &, 0.429194E+00_JPRB, 0.416782E+00_JPRB, 0.404572E+00_JPRB &
+  &, 0.392585E+00_JPRB, 0.380781E+00_JPRB, 0.369243E+00_JPRB, 0.357930E+00_JPRB &
+  &, 0.346797E+00_JPRB, 0.335929E+00_JPRB, 0.325280E+00_JPRB/)
+XCW( 781, :) = (/ &
+  &  0.107601E+01_JPRB, 0.109451E+01_JPRB, 0.111277E+01_JPRB, 0.113079E+01_JPRB &
+  &, 0.114856E+01_JPRB, 0.116606E+01_JPRB, 0.118328E+01_JPRB &
+  &, 0.120021E+01_JPRB, 0.121684E+01_JPRB, 0.123315E+01_JPRB, 0.124915E+01_JPRB &
+  &, 0.126480E+01_JPRB, 0.128011E+01_JPRB, 0.129505E+01_JPRB &
+  &, 0.130963E+01_JPRB, 0.132383E+01_JPRB, 0.133763E+01_JPRB, 0.135104E+01_JPRB &
+  &, 0.136403E+01_JPRB, 0.137659E+01_JPRB, 0.138873E+01_JPRB &
+  &, 0.140043E+01_JPRB, 0.141167E+01_JPRB, 0.142246E+01_JPRB, 0.143278E+01_JPRB &
+  &, 0.144263E+01_JPRB, 0.145199E+01_JPRB, 0.146086E+01_JPRB &
+  &, 0.146923E+01_JPRB, 0.147711E+01_JPRB, 0.148447E+01_JPRB, 0.149132E+01_JPRB &
+  &, 0.149765E+01_JPRB, 0.150345E+01_JPRB, 0.150873E+01_JPRB &
+  &, 0.151347E+01_JPRB, 0.151768E+01_JPRB, 0.152135E+01_JPRB, 0.152449E+01_JPRB &
+  &, 0.152708E+01_JPRB, 0.152914E+01_JPRB, 0.153066E+01_JPRB &
+  &, 0.153163E+01_JPRB, 0.153207E+01_JPRB, 0.153197E+01_JPRB, 0.153132E+01_JPRB &
+  &, 0.153015E+01_JPRB, 0.152846E+01_JPRB, 0.152622E+01_JPRB &
+  &, 0.152347E+01_JPRB, 0.152020E+01_JPRB, 0.151642E+01_JPRB, 0.151211E+01_JPRB &
+  &, 0.150734E+01_JPRB, 0.150205E+01_JPRB, 0.149628E+01_JPRB &
+  &, 0.149000E+01_JPRB, 0.148327E+01_JPRB, 0.147607E+01_JPRB, 0.146840E+01_JPRB &
+  &, 0.146030E+01_JPRB, 0.145174E+01_JPRB, 0.144277E+01_JPRB &
+  &, 0.143336E+01_JPRB, 0.142355E+01_JPRB, 0.141333E+01_JPRB, 0.140272E+01_JPRB &
+  &, 0.139172E+01_JPRB, 0.138037E+01_JPRB, 0.136863E+01_JPRB &
+  &, 0.135657E+01_JPRB, 0.134418E+01_JPRB, 0.133143E+01_JPRB, 0.131839E+01_JPRB &
+  &, 0.130504E+01_JPRB, 0.129142E+01_JPRB, 0.127750E+01_JPRB &
+  &, 0.126335E+01_JPRB, 0.124892E+01_JPRB, 0.123426E+01_JPRB, 0.121935E+01_JPRB &
+  &, 0.120426E+01_JPRB, 0.118893E+01_JPRB, 0.117346E+01_JPRB &
+  &, 0.115776E+01_JPRB, 0.114192E+01_JPRB, 0.112593E+01_JPRB, 0.110980E+01_JPRB &
+  &, 0.109356E+01_JPRB, 0.107719E+01_JPRB, 0.106070E+01_JPRB &
+  &, 0.104413E+01_JPRB, 0.102747E+01_JPRB, 0.101077E+01_JPRB, 0.994012E+00_JPRB &
+  &, 0.977206E+00_JPRB, 0.960349E+00_JPRB, 0.943473E+00_JPRB &
+  &, 0.926611E+00_JPRB, 0.909724E+00_JPRB, 0.892882E+00_JPRB, 0.876043E+00_JPRB &
+  &, 0.859200E+00_JPRB, 0.842463E+00_JPRB, 0.825748E+00_JPRB &
+  &, 0.809084E+00_JPRB, 0.792504E+00_JPRB, 0.775998E+00_JPRB, 0.759596E+00_JPRB &
+  &, 0.743288E+00_JPRB, 0.727060E+00_JPRB, 0.710986E+00_JPRB &
+  &, 0.695007E+00_JPRB, 0.679153E+00_JPRB, 0.663452E+00_JPRB, 0.647887E+00_JPRB &
+  &, 0.632487E+00_JPRB, 0.617232E+00_JPRB, 0.602149E+00_JPRB &
+  &, 0.587218E+00_JPRB, 0.572514E+00_JPRB, 0.557913E+00_JPRB, 0.543543E+00_JPRB &
+  &, 0.529379E+00_JPRB, 0.514536E+00_JPRB, 0.501558E+00_JPRB &
+  &, 0.487948E+00_JPRB, 0.474592E+00_JPRB, 0.461401E+00_JPRB, 0.448456E+00_JPRB &
+  &, 0.435664E+00_JPRB, 0.423163E+00_JPRB, 0.410801E+00_JPRB &
+  &, 0.398716E+00_JPRB, 0.386811E+00_JPRB, 0.375167E+00_JPRB, 0.363743E+00_JPRB &
+  &, 0.352559E+00_JPRB, 0.341572E+00_JPRB, 0.330800E+00_JPRB/)
+XCW( 782, :) = (/ &
+  &  0.107637E+01_JPRB, 0.109496E+01_JPRB, 0.111332E+01_JPRB, 0.113143E+01_JPRB &
+  &, 0.114930E+01_JPRB, 0.116690E+01_JPRB, 0.118423E+01_JPRB &
+  &, 0.120126E+01_JPRB, 0.121800E+01_JPRB, 0.123443E+01_JPRB, 0.125053E+01_JPRB &
+  &, 0.126629E+01_JPRB, 0.128171E+01_JPRB, 0.129677E+01_JPRB &
+  &, 0.131146E+01_JPRB, 0.132578E+01_JPRB, 0.133970E+01_JPRB, 0.135322E+01_JPRB &
+  &, 0.136634E+01_JPRB, 0.137902E+01_JPRB, 0.139128E+01_JPRB &
+  &, 0.140310E+01_JPRB, 0.141448E+01_JPRB, 0.142539E+01_JPRB, 0.143583E+01_JPRB &
+  &, 0.144580E+01_JPRB, 0.145529E+01_JPRB, 0.146429E+01_JPRB &
+  &, 0.147279E+01_JPRB, 0.148079E+01_JPRB, 0.148828E+01_JPRB, 0.149525E+01_JPRB &
+  &, 0.150171E+01_JPRB, 0.150765E+01_JPRB, 0.151305E+01_JPRB &
+  &, 0.151792E+01_JPRB, 0.152225E+01_JPRB, 0.152605E+01_JPRB, 0.152932E+01_JPRB &
+  &, 0.153204E+01_JPRB, 0.153422E+01_JPRB, 0.153587E+01_JPRB &
+  &, 0.153697E+01_JPRB, 0.153752E+01_JPRB, 0.153754E+01_JPRB, 0.153702E+01_JPRB &
+  &, 0.153598E+01_JPRB, 0.153439E+01_JPRB, 0.153229E+01_JPRB &
+  &, 0.152964E+01_JPRB, 0.152650E+01_JPRB, 0.152282E+01_JPRB, 0.151865E+01_JPRB &
+  &, 0.151395E+01_JPRB, 0.150878E+01_JPRB, 0.150311E+01_JPRB &
+  &, 0.149695E+01_JPRB, 0.149033E+01_JPRB, 0.148321E+01_JPRB, 0.147566E+01_JPRB &
+  &, 0.146763E+01_JPRB, 0.145919E+01_JPRB, 0.145029E+01_JPRB &
+  &, 0.144098E+01_JPRB, 0.143125E+01_JPRB, 0.142110E+01_JPRB, 0.141058E+01_JPRB &
+  &, 0.139966E+01_JPRB, 0.138837E+01_JPRB, 0.137673E+01_JPRB &
+  &, 0.136473E+01_JPRB, 0.135240E+01_JPRB, 0.133974E+01_JPRB, 0.132676E+01_JPRB &
+  &, 0.131347E+01_JPRB, 0.129988E+01_JPRB, 0.128604E+01_JPRB &
+  &, 0.127191E+01_JPRB, 0.125752E+01_JPRB, 0.124291E+01_JPRB, 0.122804E+01_JPRB &
+  &, 0.121299E+01_JPRB, 0.119770E+01_JPRB, 0.118223E+01_JPRB &
+  &, 0.116659E+01_JPRB, 0.115078E+01_JPRB, 0.113480E+01_JPRB, 0.111867E+01_JPRB &
+  &, 0.110243E+01_JPRB, 0.108605E+01_JPRB, 0.106960E+01_JPRB &
+  &, 0.105303E+01_JPRB, 0.103637E+01_JPRB, 0.101966E+01_JPRB, 0.100286E+01_JPRB &
+  &, 0.986041E+00_JPRB, 0.969165E+00_JPRB, 0.952300E+00_JPRB &
+  &, 0.935375E+00_JPRB, 0.918493E+00_JPRB, 0.901577E+00_JPRB, 0.884734E+00_JPRB &
+  &, 0.867884E+00_JPRB, 0.851058E+00_JPRB, 0.834326E+00_JPRB &
+  &, 0.817602E+00_JPRB, 0.800956E+00_JPRB, 0.784420E+00_JPRB, 0.767942E+00_JPRB &
+  &, 0.751596E+00_JPRB, 0.735325E+00_JPRB, 0.719159E+00_JPRB &
+  &, 0.703129E+00_JPRB, 0.687218E+00_JPRB, 0.671456E+00_JPRB, 0.655825E+00_JPRB &
+  &, 0.640307E+00_JPRB, 0.624976E+00_JPRB, 0.609813E+00_JPRB &
+  &, 0.594796E+00_JPRB, 0.580001E+00_JPRB, 0.565357E+00_JPRB, 0.550887E+00_JPRB &
+  &, 0.536565E+00_JPRB, 0.522522E+00_JPRB, 0.508625E+00_JPRB &
+  &, 0.494895E+00_JPRB, 0.481413E+00_JPRB, 0.468148E+00_JPRB, 0.455067E+00_JPRB &
+  &, 0.442191E+00_JPRB, 0.429603E+00_JPRB, 0.417149E+00_JPRB &
+  &, 0.404969E+00_JPRB, 0.392963E+00_JPRB, 0.381214E+00_JPRB, 0.369682E+00_JPRB &
+  &, 0.358385E+00_JPRB, 0.347280E+00_JPRB, 0.336385E+00_JPRB/)
+XCW( 783, :) = (/ &
+  &  0.107673E+01_JPRB, 0.109541E+01_JPRB, 0.111386E+01_JPRB, 0.113208E+01_JPRB &
+  &, 0.115005E+01_JPRB, 0.116775E+01_JPRB, 0.118518E+01_JPRB &
+  &, 0.120232E+01_JPRB, 0.121917E+01_JPRB, 0.123570E+01_JPRB, 0.125191E+01_JPRB &
+  &, 0.126779E+01_JPRB, 0.128332E+01_JPRB, 0.129850E+01_JPRB &
+  &, 0.131330E+01_JPRB, 0.132774E+01_JPRB, 0.134178E+01_JPRB, 0.135542E+01_JPRB &
+  &, 0.136865E+01_JPRB, 0.138146E+01_JPRB, 0.139385E+01_JPRB &
+  &, 0.140579E+01_JPRB, 0.141728E+01_JPRB, 0.142832E+01_JPRB, 0.143889E+01_JPRB &
+  &, 0.144899E+01_JPRB, 0.145860E+01_JPRB, 0.146773E+01_JPRB &
+  &, 0.147636E+01_JPRB, 0.148449E+01_JPRB, 0.149185E+01_JPRB, 0.149921E+01_JPRB &
+  &, 0.150579E+01_JPRB, 0.151186E+01_JPRB, 0.151739E+01_JPRB &
+  &, 0.152239E+01_JPRB, 0.152685E+01_JPRB, 0.153079E+01_JPRB, 0.153417E+01_JPRB &
+  &, 0.153702E+01_JPRB, 0.153933E+01_JPRB, 0.154109E+01_JPRB &
+  &, 0.154232E+01_JPRB, 0.154300E+01_JPRB, 0.154315E+01_JPRB, 0.154275E+01_JPRB &
+  &, 0.154182E+01_JPRB, 0.154036E+01_JPRB, 0.153837E+01_JPRB &
+  &, 0.153585E+01_JPRB, 0.153281E+01_JPRB, 0.152926E+01_JPRB, 0.152520E+01_JPRB &
+  &, 0.152062E+01_JPRB, 0.151555E+01_JPRB, 0.150998E+01_JPRB &
+  &, 0.150394E+01_JPRB, 0.149740E+01_JPRB, 0.149038E+01_JPRB, 0.148294E+01_JPRB &
+  &, 0.147502E+01_JPRB, 0.146666E+01_JPRB, 0.145786E+01_JPRB &
+  &, 0.144864E+01_JPRB, 0.143900E+01_JPRB, 0.142895E+01_JPRB, 0.141851E+01_JPRB &
+  &, 0.140766E+01_JPRB, 0.139646E+01_JPRB, 0.138488E+01_JPRB &
+  &, 0.137295E+01_JPRB, 0.136069E+01_JPRB, 0.134809E+01_JPRB, 0.133517E+01_JPRB &
+  &, 0.132194E+01_JPRB, 0.130841E+01_JPRB, 0.129460E+01_JPRB &
+  &, 0.128055E+01_JPRB, 0.126621E+01_JPRB, 0.125161E+01_JPRB, 0.123682E+01_JPRB &
+  &, 0.122178E+01_JPRB, 0.120652E+01_JPRB, 0.119108E+01_JPRB &
+  &, 0.117547E+01_JPRB, 0.115966E+01_JPRB, 0.114371E+01_JPRB, 0.112762E+01_JPRB &
+  &, 0.111137E+01_JPRB, 0.109497E+01_JPRB, 0.107855E+01_JPRB &
+  &, 0.106199E+01_JPRB, 0.104533E+01_JPRB, 0.102858E+01_JPRB, 0.101181E+01_JPRB &
+  &, 0.994977E+00_JPRB, 0.978084E+00_JPRB, 0.961198E+00_JPRB &
+  &, 0.944247E+00_JPRB, 0.927335E+00_JPRB, 0.910421E+00_JPRB, 0.893501E+00_JPRB &
+  &, 0.876606E+00_JPRB, 0.859769E+00_JPRB, 0.842983E+00_JPRB &
+  &, 0.826200E+00_JPRB, 0.809530E+00_JPRB, 0.792925E+00_JPRB, 0.776415E+00_JPRB &
+  &, 0.759989E+00_JPRB, 0.743633E+00_JPRB, 0.727421E+00_JPRB &
+  &, 0.711340E+00_JPRB, 0.695328E+00_JPRB, 0.679506E+00_JPRB, 0.663810E+00_JPRB &
+  &, 0.648222E+00_JPRB, 0.632817E+00_JPRB, 0.617575E+00_JPRB &
+  &, 0.602474E+00_JPRB, 0.587590E+00_JPRB, 0.572852E+00_JPRB, 0.558283E+00_JPRB &
+  &, 0.543909E+00_JPRB, 0.529704E+00_JPRB, 0.515746E+00_JPRB &
+  &, 0.501953E+00_JPRB, 0.488347E+00_JPRB, 0.475008E+00_JPRB, 0.461793E+00_JPRB &
+  &, 0.448835E+00_JPRB, 0.436102E+00_JPRB, 0.423557E+00_JPRB &
+  &, 0.411282E+00_JPRB, 0.399177E+00_JPRB, 0.387325E+00_JPRB, 0.375684E+00_JPRB &
+  &, 0.364274E+00_JPRB, 0.353053E+00_JPRB, 0.342102E+00_JPRB/)
+XCW( 784, :) = (/ &
+  &  0.107709E+01_JPRB, 0.109586E+01_JPRB, 0.111441E+01_JPRB, 0.113273E+01_JPRB &
+  &, 0.115080E+01_JPRB, 0.116860E+01_JPRB, 0.118614E+01_JPRB &
+  &, 0.120338E+01_JPRB, 0.122034E+01_JPRB, 0.123698E+01_JPRB, 0.125330E+01_JPRB &
+  &, 0.126929E+01_JPRB, 0.128494E+01_JPRB, 0.130023E+01_JPRB &
+  &, 0.131515E+01_JPRB, 0.132970E+01_JPRB, 0.134386E+01_JPRB, 0.135763E+01_JPRB &
+  &, 0.137098E+01_JPRB, 0.138391E+01_JPRB, 0.139642E+01_JPRB &
+  &, 0.140849E+01_JPRB, 0.142011E+01_JPRB, 0.143127E+01_JPRB, 0.144197E+01_JPRB &
+  &, 0.145219E+01_JPRB, 0.146194E+01_JPRB, 0.147119E+01_JPRB &
+  &, 0.147994E+01_JPRB, 0.148820E+01_JPRB, 0.149595E+01_JPRB, 0.150318E+01_JPRB &
+  &, 0.150990E+01_JPRB, 0.151609E+01_JPRB, 0.152175E+01_JPRB &
+  &, 0.152687E+01_JPRB, 0.153148E+01_JPRB, 0.153553E+01_JPRB, 0.153904E+01_JPRB &
+  &, 0.154203E+01_JPRB, 0.154446E+01_JPRB, 0.154636E+01_JPRB &
+  &, 0.154770E+01_JPRB, 0.154851E+01_JPRB, 0.154878E+01_JPRB, 0.154851E+01_JPRB &
+  &, 0.154770E+01_JPRB, 0.154636E+01_JPRB, 0.154449E+01_JPRB &
+  &, 0.154209E+01_JPRB, 0.153916E+01_JPRB, 0.153573E+01_JPRB, 0.153177E+01_JPRB &
+  &, 0.152732E+01_JPRB, 0.152236E+01_JPRB, 0.151690E+01_JPRB &
+  &, 0.151096E+01_JPRB, 0.150454E+01_JPRB, 0.149763E+01_JPRB, 0.149028E+01_JPRB &
+  &, 0.148245E+01_JPRB, 0.147419E+01_JPRB, 0.146549E+01_JPRB &
+  &, 0.145635E+01_JPRB, 0.144679E+01_JPRB, 0.143684E+01_JPRB, 0.142647E+01_JPRB &
+  &, 0.141571E+01_JPRB, 0.140459E+01_JPRB, 0.139308E+01_JPRB &
+  &, 0.138122E+01_JPRB, 0.136903E+01_JPRB, 0.135649E+01_JPRB, 0.134363E+01_JPRB &
+  &, 0.133046E+01_JPRB, 0.131701E+01_JPRB, 0.130325E+01_JPRB &
+  &, 0.128923E+01_JPRB, 0.127494E+01_JPRB, 0.126039E+01_JPRB, 0.124564E+01_JPRB &
+  &, 0.123064E+01_JPRB, 0.121542E+01_JPRB, 0.120002E+01_JPRB &
+  &, 0.118441E+01_JPRB, 0.116863E+01_JPRB, 0.115270E+01_JPRB, 0.113660E+01_JPRB &
+  &, 0.112040E+01_JPRB, 0.110404E+01_JPRB, 0.108757E+01_JPRB &
+  &, 0.107101E+01_JPRB, 0.105436E+01_JPRB, 0.103764E+01_JPRB, 0.102082E+01_JPRB &
+  &, 0.100398E+01_JPRB, 0.987072E+00_JPRB, 0.970166E+00_JPRB &
+  &, 0.953227E+00_JPRB, 0.936249E+00_JPRB, 0.919302E+00_JPRB, 0.902343E+00_JPRB &
+  &, 0.885443E+00_JPRB, 0.868558E+00_JPRB, 0.851719E+00_JPRB &
+  &, 0.834918E+00_JPRB, 0.818186E+00_JPRB, 0.801223E+00_JPRB, 0.784972E+00_JPRB &
+  &, 0.768468E+00_JPRB, 0.752072E+00_JPRB, 0.735816E+00_JPRB &
+  &, 0.719641E+00_JPRB, 0.703576E+00_JPRB, 0.687648E+00_JPRB, 0.671889E+00_JPRB &
+  &, 0.656233E+00_JPRB, 0.640755E+00_JPRB, 0.625435E+00_JPRB &
+  &, 0.610251E+00_JPRB, 0.595230E+00_JPRB, 0.580449E+00_JPRB, 0.565783E+00_JPRB &
+  &, 0.551306E+00_JPRB, 0.537047E+00_JPRB, 0.522976E+00_JPRB &
+  &, 0.509065E+00_JPRB, 0.495391E+00_JPRB, 0.481925E+00_JPRB, 0.468633E+00_JPRB &
+  &, 0.455596E+00_JPRB, 0.442720E+00_JPRB, 0.430085E+00_JPRB &
+  &, 0.417717E+00_JPRB, 0.405514E+00_JPRB, 0.393497E+00_JPRB, 0.381749E+00_JPRB &
+  &, 0.370228E+00_JPRB, 0.358955E+00_JPRB, 0.347885E+00_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART112',1,ZHOOK_HANDLE)
+END SUBROUTINE PART112
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART113
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART113',0,ZHOOK_HANDLE)
+
+XCW( 785, :) = (/ &
+  &  0.107745E+01_JPRB, 0.109632E+01_JPRB, 0.111497E+01_JPRB, 0.113338E+01_JPRB &
+  &, 0.115155E+01_JPRB, 0.116946E+01_JPRB, 0.118710E+01_JPRB &
+  &, 0.120445E+01_JPRB, 0.122151E+01_JPRB, 0.123826E+01_JPRB, 0.125469E+01_JPRB &
+  &, 0.127080E+01_JPRB, 0.128656E+01_JPRB, 0.130197E+01_JPRB &
+  &, 0.131701E+01_JPRB, 0.133168E+01_JPRB, 0.134596E+01_JPRB, 0.135984E+01_JPRB &
+  &, 0.137331E+01_JPRB, 0.138637E+01_JPRB, 0.139900E+01_JPRB &
+  &, 0.141119E+01_JPRB, 0.142294E+01_JPRB, 0.143423E+01_JPRB, 0.144505E+01_JPRB &
+  &, 0.145540E+01_JPRB, 0.146528E+01_JPRB, 0.147466E+01_JPRB &
+  &, 0.148355E+01_JPRB, 0.149193E+01_JPRB, 0.149981E+01_JPRB, 0.150717E+01_JPRB &
+  &, 0.151402E+01_JPRB, 0.152034E+01_JPRB, 0.152613E+01_JPRB &
+  &, 0.153138E+01_JPRB, 0.153611E+01_JPRB, 0.154030E+01_JPRB, 0.154395E+01_JPRB &
+  &, 0.154705E+01_JPRB, 0.154962E+01_JPRB, 0.155164E+01_JPRB &
+  &, 0.155311E+01_JPRB, 0.155405E+01_JPRB, 0.155445E+01_JPRB, 0.155429E+01_JPRB &
+  &, 0.155361E+01_JPRB, 0.155240E+01_JPRB, 0.155064E+01_JPRB &
+  &, 0.154836E+01_JPRB, 0.154556E+01_JPRB, 0.154224E+01_JPRB, 0.153839E+01_JPRB &
+  &, 0.153403E+01_JPRB, 0.152919E+01_JPRB, 0.152385E+01_JPRB &
+  &, 0.151802E+01_JPRB, 0.151170E+01_JPRB, 0.150490E+01_JPRB, 0.149765E+01_JPRB &
+  &, 0.148992E+01_JPRB, 0.148176E+01_JPRB, 0.147314E+01_JPRB &
+  &, 0.146410E+01_JPRB, 0.145464E+01_JPRB, 0.144476E+01_JPRB, 0.143449E+01_JPRB &
+  &, 0.142381E+01_JPRB, 0.141276E+01_JPRB, 0.140134E+01_JPRB &
+  &, 0.138955E+01_JPRB, 0.137742E+01_JPRB, 0.136495E+01_JPRB, 0.135216E+01_JPRB &
+  &, 0.133905E+01_JPRB, 0.132565E+01_JPRB, 0.131196E+01_JPRB &
+  &, 0.129798E+01_JPRB, 0.128375E+01_JPRB, 0.126924E+01_JPRB, 0.125451E+01_JPRB &
+  &, 0.123955E+01_JPRB, 0.122438E+01_JPRB, 0.120901E+01_JPRB &
+  &, 0.119343E+01_JPRB, 0.117768E+01_JPRB, 0.116177E+01_JPRB, 0.114570E+01_JPRB &
+  &, 0.112949E+01_JPRB, 0.111314E+01_JPRB, 0.109669E+01_JPRB &
+  &, 0.108013E+01_JPRB, 0.106348E+01_JPRB, 0.104673E+01_JPRB, 0.102994E+01_JPRB &
+  &, 0.101305E+01_JPRB, 0.996164E+00_JPRB, 0.979205E+00_JPRB &
+  &, 0.962242E+00_JPRB, 0.945273E+00_JPRB, 0.928293E+00_JPRB, 0.911298E+00_JPRB &
+  &, 0.894356E+00_JPRB, 0.877425E+00_JPRB, 0.860534E+00_JPRB &
+  &, 0.843717E+00_JPRB, 0.826923E+00_JPRB, 0.810225E+00_JPRB, 0.793613E+00_JPRB &
+  &, 0.777032E+00_JPRB, 0.760598E+00_JPRB, 0.744255E+00_JPRB &
+  &, 0.728032E+00_JPRB, 0.711914E+00_JPRB, 0.695930E+00_JPRB, 0.680062E+00_JPRB &
+  &, 0.664339E+00_JPRB, 0.648790E+00_JPRB, 0.633344E+00_JPRB &
+  &, 0.618128E+00_JPRB, 0.603021E+00_JPRB, 0.588098E+00_JPRB, 0.573387E+00_JPRB &
+  &, 0.558809E+00_JPRB, 0.544443E+00_JPRB, 0.530261E+00_JPRB &
+  &, 0.516287E+00_JPRB, 0.502548E+00_JPRB, 0.488956E+00_JPRB, 0.475589E+00_JPRB &
+  &, 0.462415E+00_JPRB, 0.449455E+00_JPRB, 0.436733E+00_JPRB &
+  &, 0.424212E+00_JPRB, 0.411913E+00_JPRB, 0.399857E+00_JPRB, 0.388004E+00_JPRB &
+  &, 0.376310E+00_JPRB, 0.364922E+00_JPRB, 0.353733E+00_JPRB/)
+XCW( 786, :) = (/ &
+  &  0.107780E+01_JPRB, 0.109677E+01_JPRB, 0.111552E+01_JPRB, 0.113403E+01_JPRB &
+  &, 0.115230E+01_JPRB, 0.117031E+01_JPRB, 0.118806E+01_JPRB &
+  &, 0.120552E+01_JPRB, 0.122269E+01_JPRB, 0.123955E+01_JPRB, 0.125609E+01_JPRB &
+  &, 0.127231E+01_JPRB, 0.128819E+01_JPRB, 0.130371E+01_JPRB &
+  &, 0.131887E+01_JPRB, 0.133366E+01_JPRB, 0.134805E+01_JPRB, 0.136206E+01_JPRB &
+  &, 0.137566E+01_JPRB, 0.138884E+01_JPRB, 0.140159E+01_JPRB &
+  &, 0.141391E+01_JPRB, 0.142578E+01_JPRB, 0.143720E+01_JPRB, 0.144815E+01_JPRB &
+  &, 0.145863E+01_JPRB, 0.146863E+01_JPRB, 0.147814E+01_JPRB &
+  &, 0.148716E+01_JPRB, 0.149568E+01_JPRB, 0.150369E+01_JPRB, 0.151118E+01_JPRB &
+  &, 0.151815E+01_JPRB, 0.152461E+01_JPRB, 0.153053E+01_JPRB &
+  &, 0.153591E+01_JPRB, 0.154077E+01_JPRB, 0.154509E+01_JPRB, 0.154887E+01_JPRB &
+  &, 0.155210E+01_JPRB, 0.155480E+01_JPRB, 0.155694E+01_JPRB &
+  &, 0.155855E+01_JPRB, 0.155961E+01_JPRB, 0.156013E+01_JPRB, 0.156011E+01_JPRB &
+  &, 0.155955E+01_JPRB, 0.155846E+01_JPRB, 0.155682E+01_JPRB &
+  &, 0.155466E+01_JPRB, 0.155198E+01_JPRB, 0.154877E+01_JPRB, 0.154505E+01_JPRB &
+  &, 0.154082E+01_JPRB, 0.153609E+01_JPRB, 0.153085E+01_JPRB &
+  &, 0.152512E+01_JPRB, 0.151890E+01_JPRB, 0.151222E+01_JPRB, 0.150507E+01_JPRB &
+  &, 0.149744E+01_JPRB, 0.148936E+01_JPRB, 0.148086E+01_JPRB &
+  &, 0.147190E+01_JPRB, 0.146254E+01_JPRB, 0.145274E+01_JPRB, 0.144255E+01_JPRB &
+  &, 0.143196E+01_JPRB, 0.142098E+01_JPRB, 0.140964E+01_JPRB &
+  &, 0.139794E+01_JPRB, 0.138589E+01_JPRB, 0.137348E+01_JPRB, 0.136075E+01_JPRB &
+  &, 0.134770E+01_JPRB, 0.133437E+01_JPRB, 0.132073E+01_JPRB &
+  &, 0.130679E+01_JPRB, 0.129260E+01_JPRB, 0.127815E+01_JPRB, 0.126346E+01_JPRB &
+  &, 0.124855E+01_JPRB, 0.123341E+01_JPRB, 0.121806E+01_JPRB &
+  &, 0.120251E+01_JPRB, 0.118679E+01_JPRB, 0.117091E+01_JPRB, 0.115486E+01_JPRB &
+  &, 0.113867E+01_JPRB, 0.112233E+01_JPRB, 0.110589E+01_JPRB &
+  &, 0.108932E+01_JPRB, 0.107267E+01_JPRB, 0.105591E+01_JPRB, 0.103912E+01_JPRB &
+  &, 0.102223E+01_JPRB, 0.100533E+01_JPRB, 0.988349E+00_JPRB &
+  &, 0.971365E+00_JPRB, 0.954369E+00_JPRB, 0.937359E+00_JPRB, 0.920365E+00_JPRB &
+  &, 0.903346E+00_JPRB, 0.886408E+00_JPRB, 0.869468E+00_JPRB &
+  &, 0.852595E+00_JPRB, 0.835783E+00_JPRB, 0.819021E+00_JPRB, 0.802339E+00_JPRB &
+  &, 0.785725E+00_JPRB, 0.769211E+00_JPRB, 0.752826E+00_JPRB &
+  &, 0.736512E+00_JPRB, 0.720343E+00_JPRB, 0.704258E+00_JPRB, 0.688329E+00_JPRB &
+  &, 0.672541E+00_JPRB, 0.656921E+00_JPRB, 0.641401E+00_JPRB &
+  &, 0.626055E+00_JPRB, 0.610913E+00_JPRB, 0.595901E+00_JPRB, 0.581095E+00_JPRB &
+  &, 0.566418E+00_JPRB, 0.551947E+00_JPRB, 0.537709E+00_JPRB &
+  &, 0.523620E+00_JPRB, 0.509761E+00_JPRB, 0.496043E+00_JPRB, 0.482602E+00_JPRB &
+  &, 0.469350E+00_JPRB, 0.456309E+00_JPRB, 0.443441E+00_JPRB &
+  &, 0.430829E+00_JPRB, 0.418434E+00_JPRB, 0.406217E+00_JPRB, 0.394259E+00_JPRB &
+  &, 0.382520E+00_JPRB, 0.371019E+00_JPRB, 0.359713E+00_JPRB/)
+XCW( 787, :) = (/ &
+  &  0.107817E+01_JPRB, 0.109723E+01_JPRB, 0.111607E+01_JPRB, 0.113469E+01_JPRB &
+  &, 0.115306E+01_JPRB, 0.117117E+01_JPRB, 0.118902E+01_JPRB &
+  &, 0.120659E+01_JPRB, 0.122387E+01_JPRB, 0.124084E+01_JPRB, 0.125750E+01_JPRB &
+  &, 0.127383E+01_JPRB, 0.128982E+01_JPRB, 0.130546E+01_JPRB &
+  &, 0.132074E+01_JPRB, 0.133564E+01_JPRB, 0.135016E+01_JPRB, 0.136429E+01_JPRB &
+  &, 0.137801E+01_JPRB, 0.139131E+01_JPRB, 0.140420E+01_JPRB &
+  &, 0.141664E+01_JPRB, 0.142864E+01_JPRB, 0.144018E+01_JPRB, 0.145125E+01_JPRB &
+  &, 0.146187E+01_JPRB, 0.147200E+01_JPRB, 0.148165E+01_JPRB &
+  &, 0.149079E+01_JPRB, 0.149944E+01_JPRB, 0.150758E+01_JPRB, 0.151520E+01_JPRB &
+  &, 0.152231E+01_JPRB, 0.152889E+01_JPRB, 0.153495E+01_JPRB &
+  &, 0.154047E+01_JPRB, 0.154546E+01_JPRB, 0.154990E+01_JPRB, 0.155381E+01_JPRB &
+  &, 0.155718E+01_JPRB, 0.156001E+01_JPRB, 0.156228E+01_JPRB &
+  &, 0.156401E+01_JPRB, 0.156520E+01_JPRB, 0.156585E+01_JPRB, 0.156595E+01_JPRB &
+  &, 0.156551E+01_JPRB, 0.156454E+01_JPRB, 0.156303E+01_JPRB &
+  &, 0.156100E+01_JPRB, 0.155844E+01_JPRB, 0.155535E+01_JPRB, 0.155174E+01_JPRB &
+  &, 0.154763E+01_JPRB, 0.154301E+01_JPRB, 0.153789E+01_JPRB &
+  &, 0.153226E+01_JPRB, 0.152617E+01_JPRB, 0.151952E+01_JPRB, 0.151252E+01_JPRB &
+  &, 0.150500E+01_JPRB, 0.149704E+01_JPRB, 0.148862E+01_JPRB &
+  &, 0.147976E+01_JPRB, 0.147048E+01_JPRB, 0.146078E+01_JPRB, 0.145066E+01_JPRB &
+  &, 0.144017E+01_JPRB, 0.142927E+01_JPRB, 0.141801E+01_JPRB &
+  &, 0.140638E+01_JPRB, 0.139439E+01_JPRB, 0.138205E+01_JPRB, 0.136941E+01_JPRB &
+  &, 0.135643E+01_JPRB, 0.134313E+01_JPRB, 0.132955E+01_JPRB &
+  &, 0.131569E+01_JPRB, 0.130153E+01_JPRB, 0.128713E+01_JPRB, 0.127249E+01_JPRB &
+  &, 0.125762E+01_JPRB, 0.124250E+01_JPRB, 0.122715E+01_JPRB &
+  &, 0.121167E+01_JPRB, 0.119598E+01_JPRB, 0.118010E+01_JPRB, 0.116408E+01_JPRB &
+  &, 0.114790E+01_JPRB, 0.113159E+01_JPRB, 0.111513E+01_JPRB &
+  &, 0.109859E+01_JPRB, 0.108195E+01_JPRB, 0.106520E+01_JPRB, 0.104837E+01_JPRB &
+  &, 0.103150E+01_JPRB, 0.101456E+01_JPRB, 0.997599E+00_JPRB &
+  &, 0.980559E+00_JPRB, 0.963538E+00_JPRB, 0.946499E+00_JPRB, 0.929471E+00_JPRB &
+  &, 0.912450E+00_JPRB, 0.895469E+00_JPRB, 0.878480E+00_JPRB &
+  &, 0.861555E+00_JPRB, 0.844684E+00_JPRB, 0.827899E+00_JPRB, 0.811148E+00_JPRB &
+  &, 0.794504E+00_JPRB, 0.777911E+00_JPRB, 0.761441E+00_JPRB &
+  &, 0.745083E+00_JPRB, 0.728818E+00_JPRB, 0.712724E+00_JPRB, 0.696690E+00_JPRB &
+  &, 0.680838E+00_JPRB, 0.665101E+00_JPRB, 0.649556E+00_JPRB &
+  &, 0.634132E+00_JPRB, 0.618856E+00_JPRB, 0.603806E+00_JPRB, 0.588855E+00_JPRB &
+  &, 0.574132E+00_JPRB, 0.559611E+00_JPRB, 0.545211E+00_JPRB &
+  &, 0.531063E+00_JPRB, 0.517085E+00_JPRB, 0.503300E+00_JPRB, 0.489731E+00_JPRB &
+  &, 0.476344E+00_JPRB, 0.463221E+00_JPRB, 0.450269E+00_JPRB &
+  &, 0.437506E+00_JPRB, 0.425017E+00_JPRB, 0.412701E+00_JPRB, 0.400640E+00_JPRB &
+  &, 0.388793E+00_JPRB, 0.377181E+00_JPRB, 0.365758E+00_JPRB/)
+XCW( 788, :) = (/ &
+  &  0.107853E+01_JPRB, 0.109769E+01_JPRB, 0.111663E+01_JPRB, 0.113534E+01_JPRB &
+  &, 0.115382E+01_JPRB, 0.117204E+01_JPRB, 0.118999E+01_JPRB &
+  &, 0.120767E+01_JPRB, 0.122505E+01_JPRB, 0.124214E+01_JPRB, 0.125891E+01_JPRB &
+  &, 0.127535E+01_JPRB, 0.129146E+01_JPRB, 0.130721E+01_JPRB &
+  &, 0.132261E+01_JPRB, 0.133764E+01_JPRB, 0.135228E+01_JPRB, 0.136653E+01_JPRB &
+  &, 0.138037E+01_JPRB, 0.139380E+01_JPRB, 0.140681E+01_JPRB &
+  &, 0.141938E+01_JPRB, 0.143150E+01_JPRB, 0.144318E+01_JPRB, 0.145439E+01_JPRB &
+  &, 0.146511E+01_JPRB, 0.147539E+01_JPRB, 0.148516E+01_JPRB &
+  &, 0.149444E+01_JPRB, 0.150322E+01_JPRB, 0.151143E+01_JPRB, 0.151925E+01_JPRB &
+  &, 0.152649E+01_JPRB, 0.153320E+01_JPRB, 0.153939E+01_JPRB &
+  &, 0.154505E+01_JPRB, 0.155017E+01_JPRB, 0.155474E+01_JPRB, 0.155878E+01_JPRB &
+  &, 0.156227E+01_JPRB, 0.156523E+01_JPRB, 0.156764E+01_JPRB &
+  &, 0.156950E+01_JPRB, 0.157082E+01_JPRB, 0.157159E+01_JPRB, 0.157183E+01_JPRB &
+  &, 0.157152E+01_JPRB, 0.157067E+01_JPRB, 0.156929E+01_JPRB &
+  &, 0.156737E+01_JPRB, 0.156492E+01_JPRB, 0.156196E+01_JPRB, 0.155848E+01_JPRB &
+  &, 0.155448E+01_JPRB, 0.154996E+01_JPRB, 0.154496E+01_JPRB &
+  &, 0.153946E+01_JPRB, 0.153346E+01_JPRB, 0.152698E+01_JPRB, 0.152002E+01_JPRB &
+  &, 0.151262E+01_JPRB, 0.150474E+01_JPRB, 0.149643E+01_JPRB &
+  &, 0.148767E+01_JPRB, 0.147847E+01_JPRB, 0.146886E+01_JPRB, 0.145884E+01_JPRB &
+  &, 0.144843E+01_JPRB, 0.143762E+01_JPRB, 0.142643E+01_JPRB &
+  &, 0.141487E+01_JPRB, 0.140296E+01_JPRB, 0.139069E+01_JPRB, 0.137812E+01_JPRB &
+  &, 0.136520E+01_JPRB, 0.135197E+01_JPRB, 0.133844E+01_JPRB &
+  &, 0.132462E+01_JPRB, 0.131054E+01_JPRB, 0.129619E+01_JPRB, 0.128160E+01_JPRB &
+  &, 0.126675E+01_JPRB, 0.125167E+01_JPRB, 0.123639E+01_JPRB &
+  &, 0.122092E+01_JPRB, 0.120526E+01_JPRB, 0.118941E+01_JPRB, 0.117338E+01_JPRB &
+  &, 0.115723E+01_JPRB, 0.114093E+01_JPRB, 0.112449E+01_JPRB &
+  &, 0.110794E+01_JPRB, 0.109130E+01_JPRB, 0.107455E+01_JPRB, 0.105772E+01_JPRB &
+  &, 0.104085E+01_JPRB, 0.102389E+01_JPRB, 0.100688E+01_JPRB &
+  &, 0.989860E+00_JPRB, 0.972817E+00_JPRB, 0.955749E+00_JPRB, 0.938689E+00_JPRB &
+  &, 0.921631E+00_JPRB, 0.904608E+00_JPRB, 0.887612E+00_JPRB &
+  &, 0.870635E+00_JPRB, 0.853707E+00_JPRB, 0.836860E+00_JPRB, 0.820085E+00_JPRB &
+  &, 0.803369E+00_JPRB, 0.786741E+00_JPRB, 0.770189E+00_JPRB &
+  &, 0.753787E+00_JPRB, 0.737430E+00_JPRB, 0.721237E+00_JPRB, 0.705192E+00_JPRB &
+  &, 0.689230E+00_JPRB, 0.673426E+00_JPRB, 0.657809E+00_JPRB &
+  &, 0.642309E+00_JPRB, 0.626951E+00_JPRB, 0.611763E+00_JPRB, 0.596772E+00_JPRB &
+  &, 0.581952E+00_JPRB, 0.567275E+00_JPRB, 0.552821E+00_JPRB &
+  &, 0.538562E+00_JPRB, 0.524522E+00_JPRB, 0.510614E+00_JPRB, 0.496974E+00_JPRB &
+  &, 0.483454E+00_JPRB, 0.470193E+00_JPRB, 0.457156E+00_JPRB &
+  &, 0.444366E+00_JPRB, 0.431723E+00_JPRB, 0.419310E+00_JPRB, 0.407148E+00_JPRB &
+  &, 0.395195E+00_JPRB, 0.383473E+00_JPRB, 0.371935E+00_JPRB/)
+XCW( 789, :) = (/ &
+  &  0.107889E+01_JPRB, 0.109815E+01_JPRB, 0.111719E+01_JPRB, 0.113600E+01_JPRB &
+  &, 0.115458E+01_JPRB, 0.117290E+01_JPRB, 0.119096E+01_JPRB &
+  &, 0.120875E+01_JPRB, 0.122624E+01_JPRB, 0.124344E+01_JPRB, 0.126032E+01_JPRB &
+  &, 0.127688E+01_JPRB, 0.129310E+01_JPRB, 0.130898E+01_JPRB &
+  &, 0.132449E+01_JPRB, 0.133964E+01_JPRB, 0.135440E+01_JPRB, 0.136877E+01_JPRB &
+  &, 0.138274E+01_JPRB, 0.139630E+01_JPRB, 0.140943E+01_JPRB &
+  &, 0.142213E+01_JPRB, 0.143438E+01_JPRB, 0.144617E+01_JPRB, 0.145752E+01_JPRB &
+  &, 0.146839E+01_JPRB, 0.147878E+01_JPRB, 0.148869E+01_JPRB &
+  &, 0.149810E+01_JPRB, 0.150702E+01_JPRB, 0.151542E+01_JPRB, 0.152331E+01_JPRB &
+  &, 0.153069E+01_JPRB, 0.153753E+01_JPRB, 0.154385E+01_JPRB &
+  &, 0.154964E+01_JPRB, 0.155489E+01_JPRB, 0.155960E+01_JPRB, 0.156378E+01_JPRB &
+  &, 0.156741E+01_JPRB, 0.157049E+01_JPRB, 0.157303E+01_JPRB &
+  &, 0.157502E+01_JPRB, 0.157648E+01_JPRB, 0.157738E+01_JPRB, 0.157773E+01_JPRB &
+  &, 0.157755E+01_JPRB, 0.157683E+01_JPRB, 0.157556E+01_JPRB &
+  &, 0.157378E+01_JPRB, 0.157146E+01_JPRB, 0.156861E+01_JPRB, 0.156524E+01_JPRB &
+  &, 0.156135E+01_JPRB, 0.155696E+01_JPRB, 0.155208E+01_JPRB &
+  &, 0.154668E+01_JPRB, 0.154079E+01_JPRB, 0.153443E+01_JPRB, 0.152757E+01_JPRB &
+  &, 0.152028E+01_JPRB, 0.151250E+01_JPRB, 0.150427E+01_JPRB &
+  &, 0.149562E+01_JPRB, 0.148652E+01_JPRB, 0.147701E+01_JPRB, 0.146707E+01_JPRB &
+  &, 0.145674E+01_JPRB, 0.144601E+01_JPRB, 0.143490E+01_JPRB &
+  &, 0.142344E+01_JPRB, 0.141159E+01_JPRB, 0.139940E+01_JPRB, 0.138687E+01_JPRB &
+  &, 0.137402E+01_JPRB, 0.136087E+01_JPRB, 0.134741E+01_JPRB &
+  &, 0.133364E+01_JPRB, 0.131962E+01_JPRB, 0.130530E+01_JPRB, 0.129076E+01_JPRB &
+  &, 0.127595E+01_JPRB, 0.126092E+01_JPRB, 0.124568E+01_JPRB &
+  &, 0.123022E+01_JPRB, 0.121459E+01_JPRB, 0.119878E+01_JPRB, 0.118278E+01_JPRB &
+  &, 0.116662E+01_JPRB, 0.115034E+01_JPRB, 0.113392E+01_JPRB &
+  &, 0.111737E+01_JPRB, 0.110074E+01_JPRB, 0.108400E+01_JPRB, 0.106717E+01_JPRB &
+  &, 0.105026E+01_JPRB, 0.103329E+01_JPRB, 0.101631E+01_JPRB &
+  &, 0.999269E+00_JPRB, 0.982168E+00_JPRB, 0.965074E+00_JPRB, 0.947982E+00_JPRB &
+  &, 0.930927E+00_JPRB, 0.913825E+00_JPRB, 0.896783E+00_JPRB &
+  &, 0.879795E+00_JPRB, 0.862812E+00_JPRB, 0.845905E+00_JPRB, 0.829063E+00_JPRB &
+  &, 0.812318E+00_JPRB, 0.795615E+00_JPRB, 0.779026E+00_JPRB &
+  &, 0.762537E+00_JPRB, 0.746179E+00_JPRB, 0.729888E+00_JPRB, 0.713741E+00_JPRB &
+  &, 0.697718E+00_JPRB, 0.681848E+00_JPRB, 0.666111E+00_JPRB &
+  &, 0.650535E+00_JPRB, 0.635147E+00_JPRB, 0.619874E+00_JPRB, 0.604792E+00_JPRB &
+  &, 0.589877E+00_JPRB, 0.575100E+00_JPRB, 0.560541E+00_JPRB &
+  &, 0.546170E+00_JPRB, 0.532014E+00_JPRB, 0.518041E+00_JPRB, 0.504274E+00_JPRB &
+  &, 0.490681E+00_JPRB, 0.477342E+00_JPRB, 0.464163E+00_JPRB &
+  &, 0.451225E+00_JPRB, 0.438491E+00_JPRB, 0.425981E+00_JPRB, 0.413719E+00_JPRB &
+  &, 0.401661E+00_JPRB, 0.389829E+00_JPRB, 0.378178E+00_JPRB/)
+XCW( 790, :) = (/ &
+  &  0.107926E+01_JPRB, 0.109861E+01_JPRB, 0.111775E+01_JPRB, 0.113666E+01_JPRB &
+  &, 0.115534E+01_JPRB, 0.117377E+01_JPRB, 0.119194E+01_JPRB &
+  &, 0.120983E+01_JPRB, 0.122744E+01_JPRB, 0.124474E+01_JPRB, 0.126174E+01_JPRB &
+  &, 0.127841E+01_JPRB, 0.129475E+01_JPRB, 0.131075E+01_JPRB &
+  &, 0.132638E+01_JPRB, 0.134165E+01_JPRB, 0.135654E+01_JPRB, 0.137103E+01_JPRB &
+  &, 0.138512E+01_JPRB, 0.139880E+01_JPRB, 0.141206E+01_JPRB &
+  &, 0.142489E+01_JPRB, 0.143727E+01_JPRB, 0.144920E+01_JPRB, 0.146067E+01_JPRB &
+  &, 0.147167E+01_JPRB, 0.148220E+01_JPRB, 0.149224E+01_JPRB &
+  &, 0.150178E+01_JPRB, 0.151083E+01_JPRB, 0.151937E+01_JPRB, 0.152739E+01_JPRB &
+  &, 0.153490E+01_JPRB, 0.154188E+01_JPRB, 0.154834E+01_JPRB &
+  &, 0.155426E+01_JPRB, 0.155964E+01_JPRB, 0.156449E+01_JPRB, 0.156880E+01_JPRB &
+  &, 0.157256E+01_JPRB, 0.157577E+01_JPRB, 0.157844E+01_JPRB &
+  &, 0.158057E+01_JPRB, 0.158215E+01_JPRB, 0.158318E+01_JPRB, 0.158367E+01_JPRB &
+  &, 0.158362E+01_JPRB, 0.158302E+01_JPRB, 0.158189E+01_JPRB &
+  &, 0.158022E+01_JPRB, 0.157802E+01_JPRB, 0.157529E+01_JPRB, 0.157205E+01_JPRB &
+  &, 0.156828E+01_JPRB, 0.156400E+01_JPRB, 0.155922E+01_JPRB &
+  &, 0.155394E+01_JPRB, 0.154818E+01_JPRB, 0.154191E+01_JPRB, 0.153517E+01_JPRB &
+  &, 0.152797E+01_JPRB, 0.152030E+01_JPRB, 0.151205E+01_JPRB &
+  &, 0.150362E+01_JPRB, 0.149461E+01_JPRB, 0.148520E+01_JPRB, 0.147534E+01_JPRB &
+  &, 0.146511E+01_JPRB, 0.145446E+01_JPRB, 0.144345E+01_JPRB &
+  &, 0.143204E+01_JPRB, 0.142027E+01_JPRB, 0.140817E+01_JPRB, 0.139571E+01_JPRB &
+  &, 0.138292E+01_JPRB, 0.136982E+01_JPRB, 0.135642E+01_JPRB &
+  &, 0.134271E+01_JPRB, 0.132875E+01_JPRB, 0.131448E+01_JPRB, 0.129997E+01_JPRB &
+  &, 0.128524E+01_JPRB, 0.127025E+01_JPRB, 0.125503E+01_JPRB &
+  &, 0.123960E+01_JPRB, 0.122401E+01_JPRB, 0.120820E+01_JPRB, 0.119223E+01_JPRB &
+  &, 0.117610E+01_JPRB, 0.115984E+01_JPRB, 0.114343E+01_JPRB &
+  &, 0.112690E+01_JPRB, 0.111025E+01_JPRB, 0.109351E+01_JPRB, 0.107669E+01_JPRB &
+  &, 0.105977E+01_JPRB, 0.104280E+01_JPRB, 0.102577E+01_JPRB &
+  &, 0.100871E+01_JPRB, 0.991628E+00_JPRB, 0.974509E+00_JPRB, 0.957389E+00_JPRB &
+  &, 0.940261E+00_JPRB, 0.923158E+00_JPRB, 0.906112E+00_JPRB &
+  &, 0.889036E+00_JPRB, 0.872039E+00_JPRB, 0.855074E+00_JPRB, 0.838210E+00_JPRB &
+  &, 0.821354E+00_JPRB, 0.804620E+00_JPRB, 0.787995E+00_JPRB &
+  &, 0.771421E+00_JPRB, 0.754973E+00_JPRB, 0.738633E+00_JPRB, 0.722431E+00_JPRB &
+  &, 0.706349E+00_JPRB, 0.690367E+00_JPRB, 0.674561E+00_JPRB &
+  &, 0.658911E+00_JPRB, 0.643394E+00_JPRB, 0.628036E+00_JPRB, 0.612865E+00_JPRB &
+  &, 0.597855E+00_JPRB, 0.583033E+00_JPRB, 0.568369E+00_JPRB &
+  &, 0.553944E+00_JPRB, 0.539674E+00_JPRB, 0.525581E+00_JPRB, 0.511690E+00_JPRB &
+  &, 0.498025E+00_JPRB, 0.484550E+00_JPRB, 0.471290E+00_JPRB &
+  &, 0.458267E+00_JPRB, 0.445443E+00_JPRB, 0.432840E+00_JPRB, 0.420416E+00_JPRB &
+  &, 0.408255E+00_JPRB, 0.396251E+00_JPRB, 0.384552E+00_JPRB/)
+XCW( 791, :) = (/ &
+  &  0.107962E+01_JPRB, 0.109907E+01_JPRB, 0.111831E+01_JPRB, 0.113733E+01_JPRB &
+  &, 0.115611E+01_JPRB, 0.117464E+01_JPRB, 0.119292E+01_JPRB &
+  &, 0.121092E+01_JPRB, 0.122863E+01_JPRB, 0.124605E+01_JPRB, 0.126316E+01_JPRB &
+  &, 0.127995E+01_JPRB, 0.129641E+01_JPRB, 0.131252E+01_JPRB &
+  &, 0.132828E+01_JPRB, 0.134367E+01_JPRB, 0.135867E+01_JPRB, 0.137329E+01_JPRB &
+  &, 0.138751E+01_JPRB, 0.140132E+01_JPRB, 0.141470E+01_JPRB &
+  &, 0.142766E+01_JPRB, 0.144017E+01_JPRB, 0.145223E+01_JPRB, 0.146384E+01_JPRB &
+  &, 0.147497E+01_JPRB, 0.148563E+01_JPRB, 0.149580E+01_JPRB &
+  &, 0.150548E+01_JPRB, 0.151466E+01_JPRB, 0.152333E+01_JPRB, 0.153149E+01_JPRB &
+  &, 0.153913E+01_JPRB, 0.154625E+01_JPRB, 0.155284E+01_JPRB &
+  &, 0.155890E+01_JPRB, 0.156442E+01_JPRB, 0.156940E+01_JPRB, 0.157384E+01_JPRB &
+  &, 0.157774E+01_JPRB, 0.158108E+01_JPRB, 0.158389E+01_JPRB &
+  &, 0.158615E+01_JPRB, 0.158784E+01_JPRB, 0.158902E+01_JPRB, 0.158963E+01_JPRB &
+  &, 0.158969E+01_JPRB, 0.158924E+01_JPRB, 0.158824E+01_JPRB &
+  &, 0.158670E+01_JPRB, 0.158463E+01_JPRB, 0.158202E+01_JPRB, 0.157889E+01_JPRB &
+  &, 0.157524E+01_JPRB, 0.157109E+01_JPRB, 0.156642E+01_JPRB &
+  &, 0.156126E+01_JPRB, 0.155560E+01_JPRB, 0.154945E+01_JPRB, 0.154283E+01_JPRB &
+  &, 0.153572E+01_JPRB, 0.152815E+01_JPRB, 0.152014E+01_JPRB &
+  &, 0.151166E+01_JPRB, 0.150277E+01_JPRB, 0.149342E+01_JPRB, 0.148369E+01_JPRB &
+  &, 0.147352E+01_JPRB, 0.146298E+01_JPRB, 0.145204E+01_JPRB &
+  &, 0.144071E+01_JPRB, 0.142904E+01_JPRB, 0.141698E+01_JPRB, 0.140459E+01_JPRB &
+  &, 0.139188E+01_JPRB, 0.137886E+01_JPRB, 0.136550E+01_JPRB &
+  &, 0.135186E+01_JPRB, 0.133795E+01_JPRB, 0.132374E+01_JPRB, 0.130928E+01_JPRB &
+  &, 0.129458E+01_JPRB, 0.127963E+01_JPRB, 0.126445E+01_JPRB &
+  &, 0.124907E+01_JPRB, 0.123349E+01_JPRB, 0.121771E+01_JPRB, 0.120177E+01_JPRB &
+  &, 0.118567E+01_JPRB, 0.116940E+01_JPRB, 0.115301E+01_JPRB &
+  &, 0.113650E+01_JPRB, 0.111986E+01_JPRB, 0.110313E+01_JPRB, 0.108627E+01_JPRB &
+  &, 0.106939E+01_JPRB, 0.105241E+01_JPRB, 0.103537E+01_JPRB &
+  &, 0.101773E+01_JPRB, 0.100116E+01_JPRB, 0.984019E+00_JPRB, 0.966908E+00_JPRB &
+  &, 0.949748E+00_JPRB, 0.932608E+00_JPRB, 0.915480E+00_JPRB &
+  &, 0.898397E+00_JPRB, 0.881348E+00_JPRB, 0.864325E+00_JPRB, 0.847400E+00_JPRB &
+  &, 0.830518E+00_JPRB, 0.813711E+00_JPRB, 0.797008E+00_JPRB &
+  &, 0.780396E+00_JPRB, 0.763903E+00_JPRB, 0.747469E+00_JPRB, 0.731214E+00_JPRB &
+  &, 0.715027E+00_JPRB, 0.698982E+00_JPRB, 0.683109E+00_JPRB &
+  &, 0.667386E+00_JPRB, 0.651792E+00_JPRB, 0.636352E+00_JPRB, 0.621094E+00_JPRB &
+  &, 0.605992E+00_JPRB, 0.591072E+00_JPRB, 0.576306E+00_JPRB &
+  &, 0.561773E+00_JPRB, 0.547390E+00_JPRB, 0.533235E+00_JPRB, 0.519221E+00_JPRB &
+  &, 0.505485E+00_JPRB, 0.491877E+00_JPRB, 0.478537E+00_JPRB &
+  &, 0.465370E+00_JPRB, 0.452457E+00_JPRB, 0.439698E+00_JPRB, 0.427176E+00_JPRB &
+  &, 0.414913E+00_JPRB, 0.402866E+00_JPRB, 0.390991E+00_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART113',1,ZHOOK_HANDLE)
+END SUBROUTINE PART113
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART114
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART114',0,ZHOOK_HANDLE)
+
+XCW( 792, :) = (/ &
+  &  0.107999E+01_JPRB, 0.109954E+01_JPRB, 0.111887E+01_JPRB, 0.113799E+01_JPRB &
+  &, 0.115688E+01_JPRB, 0.117552E+01_JPRB, 0.119390E+01_JPRB &
+  &, 0.121201E+01_JPRB, 0.122984E+01_JPRB, 0.124737E+01_JPRB, 0.126459E+01_JPRB &
+  &, 0.128150E+01_JPRB, 0.129807E+01_JPRB, 0.131430E+01_JPRB &
+  &, 0.133018E+01_JPRB, 0.134569E+01_JPRB, 0.136082E+01_JPRB, 0.137557E+01_JPRB &
+  &, 0.138991E+01_JPRB, 0.140385E+01_JPRB, 0.141736E+01_JPRB &
+  &, 0.143044E+01_JPRB, 0.144309E+01_JPRB, 0.145528E+01_JPRB, 0.146702E+01_JPRB &
+  &, 0.147828E+01_JPRB, 0.148907E+01_JPRB, 0.149937E+01_JPRB &
+  &, 0.150919E+01_JPRB, 0.151850E+01_JPRB, 0.152730E+01_JPRB, 0.153560E+01_JPRB &
+  &, 0.154338E+01_JPRB, 0.155064E+01_JPRB, 0.155736E+01_JPRB &
+  &, 0.156356E+01_JPRB, 0.156921E+01_JPRB, 0.157433E+01_JPRB, 0.157890E+01_JPRB &
+  &, 0.158294E+01_JPRB, 0.158642E+01_JPRB, 0.158936E+01_JPRB &
+  &, 0.159175E+01_JPRB, 0.159360E+01_JPRB, 0.159489E+01_JPRB, 0.159564E+01_JPRB &
+  &, 0.159584E+01_JPRB, 0.159550E+01_JPRB, 0.159463E+01_JPRB &
+  &, 0.159320E+01_JPRB, 0.159126E+01_JPRB, 0.158877E+01_JPRB, 0.158577E+01_JPRB &
+  &, 0.158225E+01_JPRB, 0.157820E+01_JPRB, 0.157365E+01_JPRB &
+  &, 0.156861E+01_JPRB, 0.156307E+01_JPRB, 0.155703E+01_JPRB, 0.155051E+01_JPRB &
+  &, 0.154351E+01_JPRB, 0.153606E+01_JPRB, 0.152813E+01_JPRB &
+  &, 0.151977E+01_JPRB, 0.151097E+01_JPRB, 0.150173E+01_JPRB, 0.149208E+01_JPRB &
+  &, 0.148201E+01_JPRB, 0.147155E+01_JPRB, 0.146069E+01_JPRB &
+  &, 0.144944E+01_JPRB, 0.143784E+01_JPRB, 0.142586E+01_JPRB, 0.141357E+01_JPRB &
+  &, 0.140092E+01_JPRB, 0.138795E+01_JPRB, 0.137466E+01_JPRB &
+  &, 0.136107E+01_JPRB, 0.134720E+01_JPRB, 0.133307E+01_JPRB, 0.131864E+01_JPRB &
+  &, 0.130399E+01_JPRB, 0.128910E+01_JPRB, 0.127396E+01_JPRB &
+  &, 0.125860E+01_JPRB, 0.124305E+01_JPRB, 0.122731E+01_JPRB, 0.121140E+01_JPRB &
+  &, 0.119532E+01_JPRB, 0.117908E+01_JPRB, 0.116268E+01_JPRB &
+  &, 0.114619E+01_JPRB, 0.112956E+01_JPRB, 0.111281E+01_JPRB, 0.109599E+01_JPRB &
+  &, 0.107907E+01_JPRB, 0.106209E+01_JPRB, 0.104504E+01_JPRB &
+  &, 0.102792E+01_JPRB, 0.101080E+01_JPRB, 0.993640E+00_JPRB, 0.976465E+00_JPRB &
+  &, 0.959312E+00_JPRB, 0.942136E+00_JPRB, 0.924968E+00_JPRB &
+  &, 0.907838E+00_JPRB, 0.890739E+00_JPRB, 0.873702E+00_JPRB, 0.856715E+00_JPRB &
+  &, 0.839768E+00_JPRB, 0.822933E+00_JPRB, 0.806154E+00_JPRB &
+  &, 0.789459E+00_JPRB, 0.772880E+00_JPRB, 0.756445E+00_JPRB, 0.739904E+00_JPRB &
+  &, 0.723849E+00_JPRB, 0.707743E+00_JPRB, 0.691755E+00_JPRB &
+  &, 0.675962E+00_JPRB, 0.660241E+00_JPRB, 0.644720E+00_JPRB, 0.629375E+00_JPRB &
+  &, 0.614182E+00_JPRB, 0.599165E+00_JPRB, 0.584352E+00_JPRB &
+  &, 0.569713E+00_JPRB, 0.555218E+00_JPRB, 0.540946E+00_JPRB, 0.526866E+00_JPRB &
+  &, 0.513003E+00_JPRB, 0.499321E+00_JPRB, 0.485844E+00_JPRB &
+  &, 0.472593E+00_JPRB, 0.459532E+00_JPRB, 0.446744E+00_JPRB, 0.434126E+00_JPRB &
+  &, 0.421699E+00_JPRB, 0.409547E+00_JPRB, 0.397562E+00_JPRB/)
+XCW( 793, :) = (/ &
+  &  0.108036E+01_JPRB, 0.110000E+01_JPRB, 0.111944E+01_JPRB, 0.113866E+01_JPRB &
+  &, 0.115765E+01_JPRB, 0.117639E+01_JPRB, 0.119488E+01_JPRB &
+  &, 0.121310E+01_JPRB, 0.123104E+01_JPRB, 0.124869E+01_JPRB, 0.126603E+01_JPRB &
+  &, 0.128305E+01_JPRB, 0.129974E+01_JPRB, 0.131609E+01_JPRB &
+  &, 0.133209E+01_JPRB, 0.134772E+01_JPRB, 0.136298E+01_JPRB, 0.137785E+01_JPRB &
+  &, 0.139232E+01_JPRB, 0.140638E+01_JPRB, 0.142003E+01_JPRB &
+  &, 0.143324E+01_JPRB, 0.144601E+01_JPRB, 0.145834E+01_JPRB, 0.147021E+01_JPRB &
+  &, 0.148160E+01_JPRB, 0.149253E+01_JPRB, 0.150297E+01_JPRB &
+  &, 0.151291E+01_JPRB, 0.152237E+01_JPRB, 0.153131E+01_JPRB, 0.153974E+01_JPRB &
+  &, 0.154765E+01_JPRB, 0.155505E+01_JPRB, 0.156191E+01_JPRB &
+  &, 0.156824E+01_JPRB, 0.157403E+01_JPRB, 0.157929E+01_JPRB, 0.158400E+01_JPRB &
+  &, 0.158817E+01_JPRB, 0.159179E+01_JPRB, 0.159486E+01_JPRB &
+  &, 0.159738E+01_JPRB, 0.159936E+01_JPRB, 0.160079E+01_JPRB, 0.160166E+01_JPRB &
+  &, 0.160200E+01_JPRB, 0.160180E+01_JPRB, 0.160104E+01_JPRB &
+  &, 0.159976E+01_JPRB, 0.159794E+01_JPRB, 0.159558E+01_JPRB, 0.159269E+01_JPRB &
+  &, 0.158929E+01_JPRB, 0.158538E+01_JPRB, 0.158094E+01_JPRB &
+  &, 0.157601E+01_JPRB, 0.157057E+01_JPRB, 0.156466E+01_JPRB, 0.155824E+01_JPRB &
+  &, 0.155136E+01_JPRB, 0.154401E+01_JPRB, 0.153619E+01_JPRB &
+  &, 0.152792E+01_JPRB, 0.151923E+01_JPRB, 0.151009E+01_JPRB, 0.150053E+01_JPRB &
+  &, 0.149054E+01_JPRB, 0.148016E+01_JPRB, 0.146938E+01_JPRB &
+  &, 0.145823E+01_JPRB, 0.144671E+01_JPRB, 0.143481E+01_JPRB, 0.142259E+01_JPRB &
+  &, 0.141001E+01_JPRB, 0.139711E+01_JPRB, 0.138389E+01_JPRB &
+  &, 0.137037E+01_JPRB, 0.135656E+01_JPRB, 0.134246E+01_JPRB, 0.132808E+01_JPRB &
+  &, 0.131349E+01_JPRB, 0.129861E+01_JPRB, 0.128353E+01_JPRB &
+  &, 0.126823E+01_JPRB, 0.125270E+01_JPRB, 0.123699E+01_JPRB, 0.122109E+01_JPRB &
+  &, 0.120504E+01_JPRB, 0.118880E+01_JPRB, 0.117245E+01_JPRB &
+  &, 0.115594E+01_JPRB, 0.113933E+01_JPRB, 0.112258E+01_JPRB, 0.110577E+01_JPRB &
+  &, 0.108882E+01_JPRB, 0.107184E+01_JPRB, 0.105478E+01_JPRB &
+  &, 0.103769E+01_JPRB, 0.102052E+01_JPRB, 0.100333E+01_JPRB, 0.986135E+00_JPRB &
+  &, 0.968952E+00_JPRB, 0.951742E+00_JPRB, 0.934534E+00_JPRB &
+  &, 0.917400E+00_JPRB, 0.900252E+00_JPRB, 0.883161E+00_JPRB, 0.866115E+00_JPRB &
+  &, 0.849146E+00_JPRB, 0.832242E+00_JPRB, 0.815387E+00_JPRB &
+  &, 0.798658E+00_JPRB, 0.782038E+00_JPRB, 0.765466E+00_JPRB, 0.749063E+00_JPRB &
+  &, 0.732765E+00_JPRB, 0.716552E+00_JPRB, 0.700500E+00_JPRB &
+  &, 0.684587E+00_JPRB, 0.668842E+00_JPRB, 0.653241E+00_JPRB, 0.637813E+00_JPRB &
+  &, 0.622530E+00_JPRB, 0.607419E+00_JPRB, 0.592506E+00_JPRB &
+  &, 0.577762E+00_JPRB, 0.563157E+00_JPRB, 0.548827E+00_JPRB, 0.534627E+00_JPRB &
+  &, 0.520638E+00_JPRB, 0.506884E+00_JPRB, 0.493270E+00_JPRB &
+  &, 0.479939E+00_JPRB, 0.466792E+00_JPRB, 0.453852E+00_JPRB, 0.441076E+00_JPRB &
+  &, 0.428613E+00_JPRB, 0.416293E+00_JPRB, 0.404199E+00_JPRB/)
+XCW( 794, :) = (/ &
+  &  0.108073E+01_JPRB, 0.110047E+01_JPRB, 0.112001E+01_JPRB, 0.113933E+01_JPRB &
+  &, 0.115842E+01_JPRB, 0.117727E+01_JPRB, 0.119587E+01_JPRB &
+  &, 0.121420E+01_JPRB, 0.123225E+01_JPRB, 0.125001E+01_JPRB, 0.126747E+01_JPRB &
+  &, 0.128461E+01_JPRB, 0.130142E+01_JPRB, 0.131789E+01_JPRB &
+  &, 0.133401E+01_JPRB, 0.134976E+01_JPRB, 0.136514E+01_JPRB, 0.138014E+01_JPRB &
+  &, 0.139474E+01_JPRB, 0.140893E+01_JPRB, 0.142270E+01_JPRB &
+  &, 0.143604E+01_JPRB, 0.144895E+01_JPRB, 0.146141E+01_JPRB, 0.147341E+01_JPRB &
+  &, 0.148494E+01_JPRB, 0.149600E+01_JPRB, 0.150657E+01_JPRB &
+  &, 0.151666E+01_JPRB, 0.152624E+01_JPRB, 0.153533E+01_JPRB, 0.154390E+01_JPRB &
+  &, 0.155195E+01_JPRB, 0.155947E+01_JPRB, 0.156648E+01_JPRB &
+  &, 0.157294E+01_JPRB, 0.157887E+01_JPRB, 0.158426E+01_JPRB, 0.158911E+01_JPRB &
+  &, 0.159342E+01_JPRB, 0.159717E+01_JPRB, 0.160038E+01_JPRB &
+  &, 0.160305E+01_JPRB, 0.160515E+01_JPRB, 0.160672E+01_JPRB, 0.160773E+01_JPRB &
+  &, 0.160819E+01_JPRB, 0.160812E+01_JPRB, 0.160750E+01_JPRB &
+  &, 0.160634E+01_JPRB, 0.160464E+01_JPRB, 0.160242E+01_JPRB, 0.159966E+01_JPRB &
+  &, 0.159638E+01_JPRB, 0.159258E+01_JPRB, 0.158827E+01_JPRB &
+  &, 0.158345E+01_JPRB, 0.157813E+01_JPRB, 0.157233E+01_JPRB, 0.156603E+01_JPRB &
+  &, 0.155925E+01_JPRB, 0.155200E+01_JPRB, 0.154430E+01_JPRB &
+  &, 0.153614E+01_JPRB, 0.152754E+01_JPRB, 0.151849E+01_JPRB, 0.150901E+01_JPRB &
+  &, 0.149913E+01_JPRB, 0.148884E+01_JPRB, 0.147816E+01_JPRB &
+  &, 0.146709E+01_JPRB, 0.145563E+01_JPRB, 0.144382E+01_JPRB, 0.143168E+01_JPRB &
+  &, 0.141915E+01_JPRB, 0.140632E+01_JPRB, 0.139318E+01_JPRB &
+  &, 0.137971E+01_JPRB, 0.136596E+01_JPRB, 0.135192E+01_JPRB, 0.133760E+01_JPRB &
+  &, 0.132306E+01_JPRB, 0.130824E+01_JPRB, 0.129317E+01_JPRB &
+  &, 0.127792E+01_JPRB, 0.126243E+01_JPRB, 0.124674E+01_JPRB, 0.123089E+01_JPRB &
+  &, 0.121485E+01_JPRB, 0.119863E+01_JPRB, 0.118228E+01_JPRB &
+  &, 0.116579E+01_JPRB, 0.114919E+01_JPRB, 0.113246E+01_JPRB, 0.111562E+01_JPRB &
+  &, 0.109871E+01_JPRB, 0.108169E+01_JPRB, 0.106463E+01_JPRB &
+  &, 0.104753E+01_JPRB, 0.103034E+01_JPRB, 0.101314E+01_JPRB, 0.995917E+00_JPRB &
+  &, 0.978707E+00_JPRB, 0.961464E+00_JPRB, 0.944219E+00_JPRB &
+  &, 0.927043E+00_JPRB, 0.909847E+00_JPRB, 0.892703E+00_JPRB, 0.875642E+00_JPRB &
+  &, 0.858610E+00_JPRB, 0.841638E+00_JPRB, 0.824754E+00_JPRB &
+  &, 0.807946E+00_JPRB, 0.791242E+00_JPRB, 0.774627E+00_JPRB, 0.758129E+00_JPRB &
+  &, 0.741778E+00_JPRB, 0.725507E+00_JPRB, 0.709392E+00_JPRB &
+  &, 0.693411E+00_JPRB, 0.677544E+00_JPRB, 0.661866E+00_JPRB, 0.646354E+00_JPRB &
+  &, 0.630984E+00_JPRB, 0.615780E+00_JPRB, 0.600769E+00_JPRB &
+  &, 0.585922E+00_JPRB, 0.571264E+00_JPRB, 0.556764E+00_JPRB, 0.542502E+00_JPRB &
+  &, 0.528389E+00_JPRB, 0.514506E+00_JPRB, 0.500816E+00_JPRB &
+  &, 0.487344E+00_JPRB, 0.474113E+00_JPRB, 0.461022E+00_JPRB, 0.448215E+00_JPRB &
+  &, 0.435591E+00_JPRB, 0.423168E+00_JPRB, 0.410967E+00_JPRB/)
+XCW( 795, :) = (/ &
+  &  0.108110E+01_JPRB, 0.110094E+01_JPRB, 0.112058E+01_JPRB, 0.114000E+01_JPRB &
+  &, 0.115920E+01_JPRB, 0.117816E+01_JPRB, 0.119686E+01_JPRB &
+  &, 0.121530E+01_JPRB, 0.123347E+01_JPRB, 0.125134E+01_JPRB, 0.126891E+01_JPRB &
+  &, 0.128617E+01_JPRB, 0.130310E+01_JPRB, 0.131969E+01_JPRB &
+  &, 0.133593E+01_JPRB, 0.135181E+01_JPRB, 0.136732E+01_JPRB, 0.138244E+01_JPRB &
+  &, 0.139717E+01_JPRB, 0.141148E+01_JPRB, 0.142539E+01_JPRB &
+  &, 0.143886E+01_JPRB, 0.145190E+01_JPRB, 0.146449E+01_JPRB, 0.147662E+01_JPRB &
+  &, 0.148829E+01_JPRB, 0.149949E+01_JPRB, 0.151020E+01_JPRB &
+  &, 0.152042E+01_JPRB, 0.153014E+01_JPRB, 0.153936E+01_JPRB, 0.154806E+01_JPRB &
+  &, 0.155626E+01_JPRB, 0.156392E+01_JPRB, 0.157107E+01_JPRB &
+  &, 0.157767E+01_JPRB, 0.158374E+01_JPRB, 0.158927E+01_JPRB, 0.159425E+01_JPRB &
+  &, 0.159869E+01_JPRB, 0.160259E+01_JPRB, 0.160594E+01_JPRB &
+  &, 0.160873E+01_JPRB, 0.161099E+01_JPRB, 0.161268E+01_JPRB, 0.161383E+01_JPRB &
+  &, 0.161443E+01_JPRB, 0.161448E+01_JPRB, 0.161399E+01_JPRB &
+  &, 0.161296E+01_JPRB, 0.161140E+01_JPRB, 0.160927E+01_JPRB, 0.160666E+01_JPRB &
+  &, 0.160351E+01_JPRB, 0.159983E+01_JPRB, 0.159564E+01_JPRB &
+  &, 0.159094E+01_JPRB, 0.158574E+01_JPRB, 0.158004E+01_JPRB, 0.157386E+01_JPRB &
+  &, 0.156720E+01_JPRB, 0.156005E+01_JPRB, 0.155245E+01_JPRB &
+  &, 0.154440E+01_JPRB, 0.153588E+01_JPRB, 0.152694E+01_JPRB, 0.151757E+01_JPRB &
+  &, 0.150778E+01_JPRB, 0.149759E+01_JPRB, 0.148698E+01_JPRB &
+  &, 0.147599E+01_JPRB, 0.146463E+01_JPRB, 0.145290E+01_JPRB, 0.144081E+01_JPRB &
+  &, 0.142838E+01_JPRB, 0.141562E+01_JPRB, 0.140253E+01_JPRB &
+  &, 0.138914E+01_JPRB, 0.137543E+01_JPRB, 0.136146E+01_JPRB, 0.134720E+01_JPRB &
+  &, 0.133268E+01_JPRB, 0.131792E+01_JPRB, 0.130290E+01_JPRB &
+  &, 0.128767E+01_JPRB, 0.127222E+01_JPRB, 0.125659E+01_JPRB, 0.124076E+01_JPRB &
+  &, 0.122472E+01_JPRB, 0.120856E+01_JPRB, 0.119220E+01_JPRB &
+  &, 0.117573E+01_JPRB, 0.115912E+01_JPRB, 0.114240E+01_JPRB, 0.112557E+01_JPRB &
+  &, 0.110867E+01_JPRB, 0.109165E+01_JPRB, 0.107459E+01_JPRB &
+  &, 0.105744E+01_JPRB, 0.104028E+01_JPRB, 0.102306E+01_JPRB, 0.100581E+01_JPRB &
+  &, 0.988538E+00_JPRB, 0.971264E+00_JPRB, 0.954022E+00_JPRB &
+  &, 0.936765E+00_JPRB, 0.919564E+00_JPRB, 0.902370E+00_JPRB, 0.885252E+00_JPRB &
+  &, 0.868160E+00_JPRB, 0.851164E+00_JPRB, 0.834209E+00_JPRB &
+  &, 0.817324E+00_JPRB, 0.800583E+00_JPRB, 0.783880E+00_JPRB, 0.767335E+00_JPRB &
+  &, 0.750885E+00_JPRB, 0.734558E+00_JPRB, 0.718332E+00_JPRB &
+  &, 0.702286E+00_JPRB, 0.686347E+00_JPRB, 0.670592E+00_JPRB, 0.654948E+00_JPRB &
+  &, 0.639490E+00_JPRB, 0.624248E+00_JPRB, 0.609086E+00_JPRB &
+  &, 0.594137E+00_JPRB, 0.579427E+00_JPRB, 0.564815E+00_JPRB, 0.550436E+00_JPRB &
+  &, 0.536257E+00_JPRB, 0.522305E+00_JPRB, 0.508482E+00_JPRB &
+  &, 0.494933E+00_JPRB, 0.481558E+00_JPRB, 0.468379E+00_JPRB, 0.455418E+00_JPRB &
+  &, 0.442697E+00_JPRB, 0.430173E+00_JPRB, 0.417867E+00_JPRB/)
+XCW( 796, :) = (/ &
+  &  0.108147E+01_JPRB, 0.110141E+01_JPRB, 0.112115E+01_JPRB, 0.114067E+01_JPRB &
+  &, 0.115998E+01_JPRB, 0.117904E+01_JPRB, 0.119786E+01_JPRB &
+  &, 0.121641E+01_JPRB, 0.123468E+01_JPRB, 0.125267E+01_JPRB, 0.127036E+01_JPRB &
+  &, 0.128773E+01_JPRB, 0.130478E+01_JPRB, 0.132150E+01_JPRB &
+  &, 0.133786E+01_JPRB, 0.135387E+01_JPRB, 0.136950E+01_JPRB, 0.138475E+01_JPRB &
+  &, 0.139960E+01_JPRB, 0.141405E+01_JPRB, 0.142809E+01_JPRB &
+  &, 0.144169E+01_JPRB, 0.145486E+01_JPRB, 0.146759E+01_JPRB, 0.147986E+01_JPRB &
+  &, 0.149166E+01_JPRB, 0.150299E+01_JPRB, 0.151384E+01_JPRB &
+  &, 0.152420E+01_JPRB, 0.153406E+01_JPRB, 0.154342E+01_JPRB, 0.155226E+01_JPRB &
+  &, 0.156059E+01_JPRB, 0.156840E+01_JPRB, 0.157568E+01_JPRB &
+  &, 0.158242E+01_JPRB, 0.158863E+01_JPRB, 0.159430E+01_JPRB, 0.159943E+01_JPRB &
+  &, 0.160401E+01_JPRB, 0.160804E+01_JPRB, 0.161152E+01_JPRB &
+  &, 0.161446E+01_JPRB, 0.161683E+01_JPRB, 0.161867E+01_JPRB, 0.161996E+01_JPRB &
+  &, 0.162068E+01_JPRB, 0.162087E+01_JPRB, 0.162051E+01_JPRB &
+  &, 0.161961E+01_JPRB, 0.161818E+01_JPRB, 0.161620E+01_JPRB, 0.161371E+01_JPRB &
+  &, 0.161066E+01_JPRB, 0.160711E+01_JPRB, 0.160305E+01_JPRB &
+  &, 0.159847E+01_JPRB, 0.159339E+01_JPRB, 0.158781E+01_JPRB, 0.158173E+01_JPRB &
+  &, 0.157517E+01_JPRB, 0.156816E+01_JPRB, 0.156067E+01_JPRB &
+  &, 0.155271E+01_JPRB, 0.154430E+01_JPRB, 0.153545E+01_JPRB, 0.152619E+01_JPRB &
+  &, 0.151649E+01_JPRB, 0.150638E+01_JPRB, 0.149588E+01_JPRB &
+  &, 0.148497E+01_JPRB, 0.147369E+01_JPRB, 0.146205E+01_JPRB, 0.145003E+01_JPRB &
+  &, 0.143768E+01_JPRB, 0.142499E+01_JPRB, 0.141197E+01_JPRB &
+  &, 0.139863E+01_JPRB, 0.138498E+01_JPRB, 0.137107E+01_JPRB, 0.135687E+01_JPRB &
+  &, 0.134242E+01_JPRB, 0.132768E+01_JPRB, 0.131271E+01_JPRB &
+  &, 0.129753E+01_JPRB, 0.128212E+01_JPRB, 0.126651E+01_JPRB, 0.125068E+01_JPRB &
+  &, 0.123470E+01_JPRB, 0.121855E+01_JPRB, 0.120221E+01_JPRB &
+  &, 0.118577E+01_JPRB, 0.116918E+01_JPRB, 0.115244E+01_JPRB, 0.113562E+01_JPRB &
+  &, 0.111869E+01_JPRB, 0.110171E+01_JPRB, 0.108461E+01_JPRB &
+  &, 0.106746E+01_JPRB, 0.105028E+01_JPRB, 0.103305E+01_JPRB, 0.101578E+01_JPRB &
+  &, 0.998484E+00_JPRB, 0.981181E+00_JPRB, 0.963904E+00_JPRB &
+  &, 0.946608E+00_JPRB, 0.929363E+00_JPRB, 0.912119E+00_JPRB, 0.894947E+00_JPRB &
+  &, 0.877838E+00_JPRB, 0.860777E+00_JPRB, 0.843752E+00_JPRB &
+  &, 0.826836E+00_JPRB, 0.810015E+00_JPRB, 0.793272E+00_JPRB, 0.776636E+00_JPRB &
+  &, 0.760088E+00_JPRB, 0.743706E+00_JPRB, 0.727421E+00_JPRB &
+  &, 0.711310E+00_JPRB, 0.695302E+00_JPRB, 0.679422E+00_JPRB, 0.663698E+00_JPRB &
+  &, 0.648156E+00_JPRB, 0.632770E+00_JPRB, 0.617567E+00_JPRB &
+  &, 0.602517E+00_JPRB, 0.587702E+00_JPRB, 0.573036E+00_JPRB, 0.558541E+00_JPRB &
+  &, 0.544242E+00_JPRB, 0.530163E+00_JPRB, 0.516268E+00_JPRB &
+  &, 0.502581E+00_JPRB, 0.489064E+00_JPRB, 0.475799E+00_JPRB, 0.462747E+00_JPRB &
+  &, 0.449931E+00_JPRB, 0.437243E+00_JPRB, 0.424833E+00_JPRB/)
+XCW( 797, :) = (/ &
+  &  0.108184E+01_JPRB, 0.110188E+01_JPRB, 0.112172E+01_JPRB, 0.114135E+01_JPRB &
+  &, 0.116076E+01_JPRB, 0.117993E+01_JPRB, 0.119885E+01_JPRB &
+  &, 0.121752E+01_JPRB, 0.123591E+01_JPRB, 0.125401E+01_JPRB, 0.127181E+01_JPRB &
+  &, 0.128931E+01_JPRB, 0.130648E+01_JPRB, 0.132332E+01_JPRB &
+  &, 0.133980E+01_JPRB, 0.135593E+01_JPRB, 0.137169E+01_JPRB, 0.138707E+01_JPRB &
+  &, 0.140205E+01_JPRB, 0.141663E+01_JPRB, 0.143080E+01_JPRB &
+  &, 0.144454E+01_JPRB, 0.145784E+01_JPRB, 0.147070E+01_JPRB, 0.148310E+01_JPRB &
+  &, 0.149504E+01_JPRB, 0.150651E+01_JPRB, 0.151750E+01_JPRB &
+  &, 0.152799E+01_JPRB, 0.153799E+01_JPRB, 0.154748E+01_JPRB, 0.155647E+01_JPRB &
+  &, 0.156494E+01_JPRB, 0.157289E+01_JPRB, 0.158031E+01_JPRB &
+  &, 0.158719E+01_JPRB, 0.159354E+01_JPRB, 0.159935E+01_JPRB, 0.160462E+01_JPRB &
+  &, 0.160934E+01_JPRB, 0.161351E+01_JPRB, 0.161713E+01_JPRB &
+  &, 0.162020E+01_JPRB, 0.162272E+01_JPRB, 0.162470E+01_JPRB, 0.162611E+01_JPRB &
+  &, 0.162699E+01_JPRB, 0.162730E+01_JPRB, 0.162708E+01_JPRB &
+  &, 0.162631E+01_JPRB, 0.162500E+01_JPRB, 0.162316E+01_JPRB, 0.162078E+01_JPRB &
+  &, 0.161787E+01_JPRB, 0.161445E+01_JPRB, 0.161050E+01_JPRB &
+  &, 0.160605E+01_JPRB, 0.160108E+01_JPRB, 0.159561E+01_JPRB, 0.158966E+01_JPRB &
+  &, 0.158322E+01_JPRB, 0.157630E+01_JPRB, 0.156892E+01_JPRB &
+  &, 0.156107E+01_JPRB, 0.155278E+01_JPRB, 0.154389E+01_JPRB, 0.153485E+01_JPRB &
+  &, 0.152526E+01_JPRB, 0.151524E+01_JPRB, 0.150482E+01_JPRB &
+  &, 0.149402E+01_JPRB, 0.148280E+01_JPRB, 0.147123E+01_JPRB, 0.145932E+01_JPRB &
+  &, 0.144702E+01_JPRB, 0.143441E+01_JPRB, 0.142146E+01_JPRB &
+  &, 0.140819E+01_JPRB, 0.139461E+01_JPRB, 0.138076E+01_JPRB, 0.136660E+01_JPRB &
+  &, 0.135220E+01_JPRB, 0.133752E+01_JPRB, 0.132260E+01_JPRB &
+  &, 0.130744E+01_JPRB, 0.129208E+01_JPRB, 0.127651E+01_JPRB, 0.126072E+01_JPRB &
+  &, 0.124475E+01_JPRB, 0.122863E+01_JPRB, 0.121232E+01_JPRB &
+  &, 0.119587E+01_JPRB, 0.117930E+01_JPRB, 0.116258E+01_JPRB, 0.114577E+01_JPRB &
+  &, 0.112885E+01_JPRB, 0.111184E+01_JPRB, 0.109474E+01_JPRB &
+  &, 0.107758E+01_JPRB, 0.106040E+01_JPRB, 0.104311E+01_JPRB, 0.102583E+01_JPRB &
+  &, 0.100855E+01_JPRB, 0.991214E+00_JPRB, 0.973866E+00_JPRB &
+  &, 0.956572E+00_JPRB, 0.939285E+00_JPRB, 0.921993E+00_JPRB, 0.904769E+00_JPRB &
+  &, 0.887601E+00_JPRB, 0.870478E+00_JPRB, 0.853428E+00_JPRB &
+  &, 0.836439E+00_JPRB, 0.819538E+00_JPRB, 0.802756E+00_JPRB, 0.786030E+00_JPRB &
+  &, 0.769434E+00_JPRB, 0.752951E+00_JPRB, 0.736607E+00_JPRB &
+  &, 0.720384E+00_JPRB, 0.704307E+00_JPRB, 0.688354E+00_JPRB, 0.672604E+00_JPRB &
+  &, 0.656926E+00_JPRB, 0.641453E+00_JPRB, 0.626156E+00_JPRB &
+  &, 0.611008E+00_JPRB, 0.596089E+00_JPRB, 0.581313E+00_JPRB, 0.566704E+00_JPRB &
+  &, 0.552343E+00_JPRB, 0.538139E+00_JPRB, 0.524114E+00_JPRB &
+  &, 0.510351E+00_JPRB, 0.496754E+00_JPRB, 0.483343E+00_JPRB, 0.470202E+00_JPRB &
+  &, 0.457229E+00_JPRB, 0.444508E+00_JPRB, 0.431995E+00_JPRB/)
+XCW( 798, :) = (/ &
+  &  0.108222E+01_JPRB, 0.110235E+01_JPRB, 0.112229E+01_JPRB, 0.114203E+01_JPRB &
+  &, 0.116154E+01_JPRB, 0.118082E+01_JPRB, 0.119986E+01_JPRB &
+  &, 0.121863E+01_JPRB, 0.123713E+01_JPRB, 0.125535E+01_JPRB, 0.127328E+01_JPRB &
+  &, 0.129089E+01_JPRB, 0.130818E+01_JPRB, 0.132514E+01_JPRB &
+  &, 0.134175E+01_JPRB, 0.135800E+01_JPRB, 0.137389E+01_JPRB, 0.138940E+01_JPRB &
+  &, 0.140451E+01_JPRB, 0.141922E+01_JPRB, 0.143352E+01_JPRB &
+  &, 0.144739E+01_JPRB, 0.146083E+01_JPRB, 0.147382E+01_JPRB, 0.148636E+01_JPRB &
+  &, 0.149844E+01_JPRB, 0.151005E+01_JPRB, 0.152117E+01_JPRB &
+  &, 0.153181E+01_JPRB, 0.154195E+01_JPRB, 0.155158E+01_JPRB, 0.156071E+01_JPRB &
+  &, 0.156932E+01_JPRB, 0.157741E+01_JPRB, 0.158497E+01_JPRB &
+  &, 0.159199E+01_JPRB, 0.159848E+01_JPRB, 0.160444E+01_JPRB, 0.160984E+01_JPRB &
+  &, 0.161470E+01_JPRB, 0.161901E+01_JPRB, 0.162278E+01_JPRB &
+  &, 0.162598E+01_JPRB, 0.162865E+01_JPRB, 0.163075E+01_JPRB, 0.163231E+01_JPRB &
+  &, 0.163332E+01_JPRB, 0.163376E+01_JPRB, 0.163367E+01_JPRB &
+  &, 0.163304E+01_JPRB, 0.163187E+01_JPRB, 0.163015E+01_JPRB, 0.162791E+01_JPRB &
+  &, 0.162513E+01_JPRB, 0.162182E+01_JPRB, 0.161801E+01_JPRB &
+  &, 0.161367E+01_JPRB, 0.160882E+01_JPRB, 0.160348E+01_JPRB, 0.159764E+01_JPRB &
+  &, 0.159132E+01_JPRB, 0.158451E+01_JPRB, 0.157723E+01_JPRB &
+  &, 0.156949E+01_JPRB, 0.156129E+01_JPRB, 0.155267E+01_JPRB, 0.154359E+01_JPRB &
+  &, 0.153409E+01_JPRB, 0.152416E+01_JPRB, 0.151382E+01_JPRB &
+  &, 0.150311E+01_JPRB, 0.149200E+01_JPRB, 0.148051E+01_JPRB, 0.146865E+01_JPRB &
+  &, 0.145646E+01_JPRB, 0.144389E+01_JPRB, 0.143102E+01_JPRB &
+  &, 0.141782E+01_JPRB, 0.140431E+01_JPRB, 0.139050E+01_JPRB, 0.137643E+01_JPRB &
+  &, 0.136206E+01_JPRB, 0.134743E+01_JPRB, 0.133258E+01_JPRB &
+  &, 0.131746E+01_JPRB, 0.130213E+01_JPRB, 0.128657E+01_JPRB, 0.127082E+01_JPRB &
+  &, 0.125489E+01_JPRB, 0.123880E+01_JPRB, 0.122252E+01_JPRB &
+  &, 0.120610E+01_JPRB, 0.118952E+01_JPRB, 0.117281E+01_JPRB, 0.115599E+01_JPRB &
+  &, 0.113908E+01_JPRB, 0.112207E+01_JPRB, 0.110497E+01_JPRB &
+  &, 0.108781E+01_JPRB, 0.107058E+01_JPRB, 0.105332E+01_JPRB, 0.103603E+01_JPRB &
+  &, 0.101868E+01_JPRB, 0.100133E+01_JPRB, 0.983986E+00_JPRB &
+  &, 0.966616E+00_JPRB, 0.949288E+00_JPRB, 0.931992E+00_JPRB, 0.914717E+00_JPRB &
+  &, 0.897493E+00_JPRB, 0.880309E+00_JPRB, 0.863192E+00_JPRB &
+  &, 0.846176E+00_JPRB, 0.829198E+00_JPRB, 0.812333E+00_JPRB, 0.795565E+00_JPRB &
+  &, 0.778923E+00_JPRB, 0.762341E+00_JPRB, 0.745941E+00_JPRB &
+  &, 0.729607E+00_JPRB, 0.713464E+00_JPRB, 0.697440E+00_JPRB, 0.681562E+00_JPRB &
+  &, 0.665750E+00_JPRB, 0.650243E+00_JPRB, 0.634854E+00_JPRB &
+  &, 0.619664E+00_JPRB, 0.604588E+00_JPRB, 0.589704E+00_JPRB, 0.575039E+00_JPRB &
+  &, 0.560561E+00_JPRB, 0.546233E+00_JPRB, 0.532139E+00_JPRB &
+  &, 0.518243E+00_JPRB, 0.504506E+00_JPRB, 0.491012E+00_JPRB, 0.477721E+00_JPRB &
+  &, 0.464655E+00_JPRB, 0.451837E+00_JPRB, 0.439157E+00_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART114',1,ZHOOK_HANDLE)
+END SUBROUTINE PART114
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART115
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART115',0,ZHOOK_HANDLE)
+
+XCW( 799, :) = (/ &
+  &  0.108259E+01_JPRB, 0.110283E+01_JPRB, 0.112287E+01_JPRB, 0.114271E+01_JPRB &
+  &, 0.116233E+01_JPRB, 0.118172E+01_JPRB, 0.120086E+01_JPRB &
+  &, 0.121975E+01_JPRB, 0.123837E+01_JPRB, 0.125670E+01_JPRB, 0.127474E+01_JPRB &
+  &, 0.129247E+01_JPRB, 0.130989E+01_JPRB, 0.132697E+01_JPRB &
+  &, 0.134370E+01_JPRB, 0.136009E+01_JPRB, 0.137610E+01_JPRB, 0.139173E+01_JPRB &
+  &, 0.140698E+01_JPRB, 0.142182E+01_JPRB, 0.143625E+01_JPRB &
+  &, 0.145025E+01_JPRB, 0.146383E+01_JPRB, 0.147696E+01_JPRB, 0.148964E+01_JPRB &
+  &, 0.150185E+01_JPRB, 0.151360E+01_JPRB, 0.152486E+01_JPRB &
+  &, 0.153564E+01_JPRB, 0.154592E+01_JPRB, 0.155569E+01_JPRB, 0.156496E+01_JPRB &
+  &, 0.157371E+01_JPRB, 0.158194E+01_JPRB, 0.158965E+01_JPRB &
+  &, 0.159681E+01_JPRB, 0.160344E+01_JPRB, 0.160954E+01_JPRB, 0.161509E+01_JPRB &
+  &, 0.162008E+01_JPRB, 0.162454E+01_JPRB, 0.162844E+01_JPRB &
+  &, 0.163180E+01_JPRB, 0.163460E+01_JPRB, 0.163684E+01_JPRB, 0.163853E+01_JPRB &
+  &, 0.163967E+01_JPRB, 0.164027E+01_JPRB, 0.164032E+01_JPRB &
+  &, 0.163981E+01_JPRB, 0.163877E+01_JPRB, 0.163718E+01_JPRB, 0.163506E+01_JPRB &
+  &, 0.163242E+01_JPRB, 0.162924E+01_JPRB, 0.162555E+01_JPRB &
+  &, 0.162133E+01_JPRB, 0.161662E+01_JPRB, 0.161138E+01_JPRB, 0.160566E+01_JPRB &
+  &, 0.159945E+01_JPRB, 0.159276E+01_JPRB, 0.158560E+01_JPRB &
+  &, 0.157797E+01_JPRB, 0.156988E+01_JPRB, 0.156135E+01_JPRB, 0.155236E+01_JPRB &
+  &, 0.154297E+01_JPRB, 0.153313E+01_JPRB, 0.152291E+01_JPRB &
+  &, 0.151228E+01_JPRB, 0.150125E+01_JPRB, 0.148985E+01_JPRB, 0.147808E+01_JPRB &
+  &, 0.146594E+01_JPRB, 0.145348E+01_JPRB, 0.144063E+01_JPRB &
+  &, 0.142755E+01_JPRB, 0.141408E+01_JPRB, 0.140035E+01_JPRB, 0.138631E+01_JPRB &
+  &, 0.137200E+01_JPRB, 0.135743E+01_JPRB, 0.134261E+01_JPRB &
+  &, 0.132755E+01_JPRB, 0.131226E+01_JPRB, 0.129675E+01_JPRB, 0.128104E+01_JPRB &
+  &, 0.126512E+01_JPRB, 0.124903E+01_JPRB, 0.123279E+01_JPRB &
+  &, 0.121639E+01_JPRB, 0.119983E+01_JPRB, 0.118315E+01_JPRB, 0.116634E+01_JPRB &
+  &, 0.114941E+01_JPRB, 0.113241E+01_JPRB, 0.111531E+01_JPRB &
+  &, 0.109811E+01_JPRB, 0.108088E+01_JPRB, 0.106361E+01_JPRB, 0.104630E+01_JPRB &
+  &, 0.102893E+01_JPRB, 0.101155E+01_JPRB, 0.994145E+00_JPRB &
+  &, 0.976781E+00_JPRB, 0.959414E+00_JPRB, 0.942074E+00_JPRB, 0.924749E+00_JPRB &
+  &, 0.907471E+00_JPRB, 0.890226E+00_JPRB, 0.873089E+00_JPRB &
+  &, 0.856002E+00_JPRB, 0.838994E+00_JPRB, 0.822049E+00_JPRB, 0.805194E+00_JPRB &
+  &, 0.788460E+00_JPRB, 0.771827E+00_JPRB, 0.755324E+00_JPRB &
+  &, 0.738980E+00_JPRB, 0.722723E+00_JPRB, 0.706629E+00_JPRB, 0.690624E+00_JPRB &
+  &, 0.674838E+00_JPRB, 0.659193E+00_JPRB, 0.643661E+00_JPRB &
+  &, 0.628375E+00_JPRB, 0.613198E+00_JPRB, 0.598265E+00_JPRB, 0.583432E+00_JPRB &
+  &, 0.568837E+00_JPRB, 0.554446E+00_JPRB, 0.540224E+00_JPRB &
+  &, 0.526256E+00_JPRB, 0.512443E+00_JPRB, 0.498805E+00_JPRB, 0.485429E+00_JPRB &
+  &, 0.472209E+00_JPRB, 0.459231E+00_JPRB, 0.446517E+00_JPRB/)
+XCW( 800, :) = (/ &
+  &  0.108297E+01_JPRB, 0.110330E+01_JPRB, 0.112345E+01_JPRB, 0.114339E+01_JPRB &
+  &, 0.116312E+01_JPRB, 0.118261E+01_JPRB, 0.120187E+01_JPRB &
+  &, 0.122087E+01_JPRB, 0.123960E+01_JPRB, 0.125805E+01_JPRB, 0.127621E+01_JPRB &
+  &, 0.129406E+01_JPRB, 0.131160E+01_JPRB, 0.132880E+01_JPRB &
+  &, 0.134567E+01_JPRB, 0.136217E+01_JPRB, 0.137832E+01_JPRB, 0.139408E+01_JPRB &
+  &, 0.140946E+01_JPRB, 0.142443E+01_JPRB, 0.143899E+01_JPRB &
+  &, 0.145314E+01_JPRB, 0.146684E+01_JPRB, 0.148011E+01_JPRB, 0.149293E+01_JPRB &
+  &, 0.150528E+01_JPRB, 0.151716E+01_JPRB, 0.152857E+01_JPRB &
+  &, 0.153948E+01_JPRB, 0.154991E+01_JPRB, 0.155983E+01_JPRB, 0.156923E+01_JPRB &
+  &, 0.157813E+01_JPRB, 0.158650E+01_JPRB, 0.159435E+01_JPRB &
+  &, 0.160166E+01_JPRB, 0.160828E+01_JPRB, 0.161465E+01_JPRB, 0.162036E+01_JPRB &
+  &, 0.162550E+01_JPRB, 0.163009E+01_JPRB, 0.163414E+01_JPRB &
+  &, 0.163763E+01_JPRB, 0.164058E+01_JPRB, 0.164296E+01_JPRB, 0.164479E+01_JPRB &
+  &, 0.164607E+01_JPRB, 0.164681E+01_JPRB, 0.164699E+01_JPRB &
+  &, 0.164662E+01_JPRB, 0.164572E+01_JPRB, 0.164427E+01_JPRB, 0.164227E+01_JPRB &
+  &, 0.163975E+01_JPRB, 0.163668E+01_JPRB, 0.163313E+01_JPRB &
+  &, 0.162904E+01_JPRB, 0.162445E+01_JPRB, 0.161935E+01_JPRB, 0.161374E+01_JPRB &
+  &, 0.160765E+01_JPRB, 0.160107E+01_JPRB, 0.159402E+01_JPRB &
+  &, 0.158650E+01_JPRB, 0.157851E+01_JPRB, 0.157009E+01_JPRB, 0.156122E+01_JPRB &
+  &, 0.155192E+01_JPRB, 0.154219E+01_JPRB, 0.153203E+01_JPRB &
+  &, 0.152150E+01_JPRB, 0.151056E+01_JPRB, 0.149924E+01_JPRB, 0.148739E+01_JPRB &
+  &, 0.147551E+01_JPRB, 0.146310E+01_JPRB, 0.145038E+01_JPRB &
+  &, 0.143732E+01_JPRB, 0.142393E+01_JPRB, 0.141026E+01_JPRB, 0.139629E+01_JPRB &
+  &, 0.138202E+01_JPRB, 0.136752E+01_JPRB, 0.135274E+01_JPRB &
+  &, 0.133771E+01_JPRB, 0.132247E+01_JPRB, 0.130701E+01_JPRB, 0.129132E+01_JPRB &
+  &, 0.127543E+01_JPRB, 0.125939E+01_JPRB, 0.124314E+01_JPRB &
+  &, 0.122677E+01_JPRB, 0.121021E+01_JPRB, 0.119355E+01_JPRB, 0.117676E+01_JPRB &
+  &, 0.115984E+01_JPRB, 0.114281E+01_JPRB, 0.112572E+01_JPRB &
+  &, 0.110856E+01_JPRB, 0.109129E+01_JPRB, 0.107401E+01_JPRB, 0.105664E+01_JPRB &
+  &, 0.103926E+01_JPRB, 0.102186E+01_JPRB, 0.100446E+01_JPRB &
+  &, 0.987026E+00_JPRB, 0.969621E+00_JPRB, 0.952238E+00_JPRB, 0.934908E+00_JPRB &
+  &, 0.917577E+00_JPRB, 0.900275E+00_JPRB, 0.883074E+00_JPRB &
+  &, 0.865918E+00_JPRB, 0.848836E+00_JPRB, 0.831857E+00_JPRB, 0.814964E+00_JPRB &
+  &, 0.798140E+00_JPRB, 0.781459E+00_JPRB, 0.764855E+00_JPRB &
+  &, 0.748403E+00_JPRB, 0.732082E+00_JPRB, 0.715921E+00_JPRB, 0.699843E+00_JPRB &
+  &, 0.683926E+00_JPRB, 0.668197E+00_JPRB, 0.652631E+00_JPRB &
+  &, 0.637197E+00_JPRB, 0.621976E+00_JPRB, 0.606883E+00_JPRB, 0.591998E+00_JPRB &
+  &, 0.577287E+00_JPRB, 0.562776E+00_JPRB, 0.548489E+00_JPRB &
+  &, 0.534330E+00_JPRB, 0.520441E+00_JPRB, 0.506724E+00_JPRB, 0.493200E+00_JPRB &
+  &, 0.479892E+00_JPRB, 0.466820E+00_JPRB, 0.453943E+00_JPRB/)
+XCW( 801, :) = (/ &
+  &  0.108335E+01_JPRB, 0.110378E+01_JPRB, 0.112403E+01_JPRB, 0.114408E+01_JPRB &
+  &, 0.116391E+01_JPRB, 0.118352E+01_JPRB, 0.120288E+01_JPRB &
+  &, 0.122200E+01_JPRB, 0.124084E+01_JPRB, 0.125941E+01_JPRB, 0.127769E+01_JPRB &
+  &, 0.129566E+01_JPRB, 0.131332E+01_JPRB, 0.133065E+01_JPRB &
+  &, 0.134764E+01_JPRB, 0.136427E+01_JPRB, 0.138054E+01_JPRB, 0.139644E+01_JPRB &
+  &, 0.141194E+01_JPRB, 0.142705E+01_JPRB, 0.144175E+01_JPRB &
+  &, 0.145602E+01_JPRB, 0.146987E+01_JPRB, 0.148327E+01_JPRB, 0.149623E+01_JPRB &
+  &, 0.150872E+01_JPRB, 0.152075E+01_JPRB, 0.153229E+01_JPRB &
+  &, 0.154335E+01_JPRB, 0.155391E+01_JPRB, 0.156396E+01_JPRB, 0.157353E+01_JPRB &
+  &, 0.158256E+01_JPRB, 0.159108E+01_JPRB, 0.159907E+01_JPRB &
+  &, 0.160638E+01_JPRB, 0.161344E+01_JPRB, 0.161983E+01_JPRB, 0.162566E+01_JPRB &
+  &, 0.163095E+01_JPRB, 0.163569E+01_JPRB, 0.163987E+01_JPRB &
+  &, 0.164350E+01_JPRB, 0.164658E+01_JPRB, 0.164912E+01_JPRB, 0.165109E+01_JPRB &
+  &, 0.165251E+01_JPRB, 0.165338E+01_JPRB, 0.165369E+01_JPRB &
+  &, 0.165342E+01_JPRB, 0.165269E+01_JPRB, 0.165138E+01_JPRB, 0.164953E+01_JPRB &
+  &, 0.164714E+01_JPRB, 0.164421E+01_JPRB, 0.164077E+01_JPRB &
+  &, 0.163681E+01_JPRB, 0.163233E+01_JPRB, 0.162735E+01_JPRB, 0.162188E+01_JPRB &
+  &, 0.161590E+01_JPRB, 0.160944E+01_JPRB, 0.160249E+01_JPRB &
+  &, 0.159508E+01_JPRB, 0.158721E+01_JPRB, 0.157888E+01_JPRB, 0.157013E+01_JPRB &
+  &, 0.156092E+01_JPRB, 0.155129E+01_JPRB, 0.154124E+01_JPRB &
+  &, 0.153080E+01_JPRB, 0.151994E+01_JPRB, 0.150871E+01_JPRB, 0.149711E+01_JPRB &
+  &, 0.148515E+01_JPRB, 0.147282E+01_JPRB, 0.146016E+01_JPRB &
+  &, 0.144717E+01_JPRB, 0.143386E+01_JPRB, 0.142026E+01_JPRB, 0.140633E+01_JPRB &
+  &, 0.139215E+01_JPRB, 0.137768E+01_JPRB, 0.136296E+01_JPRB &
+  &, 0.134799E+01_JPRB, 0.133277E+01_JPRB, 0.131733E+01_JPRB, 0.130169E+01_JPRB &
+  &, 0.128584E+01_JPRB, 0.126983E+01_JPRB, 0.125363E+01_JPRB &
+  &, 0.123725E+01_JPRB, 0.122072E+01_JPRB, 0.120405E+01_JPRB, 0.118728E+01_JPRB &
+  &, 0.117037E+01_JPRB, 0.115336E+01_JPRB, 0.113624E+01_JPRB &
+  &, 0.111908E+01_JPRB, 0.110180E+01_JPRB, 0.108448E+01_JPRB, 0.106714E+01_JPRB &
+  &, 0.104974E+01_JPRB, 0.103232E+01_JPRB, 0.101486E+01_JPRB &
+  &, 0.997432E+00_JPRB, 0.979992E+00_JPRB, 0.962569E+00_JPRB, 0.945151E+00_JPRB &
+  &, 0.927769E+00_JPRB, 0.910454E+00_JPRB, 0.893192E+00_JPRB &
+  &, 0.875969E+00_JPRB, 0.858860E+00_JPRB, 0.841804E+00_JPRB, 0.824828E+00_JPRB &
+  &, 0.807963E+00_JPRB, 0.791188E+00_JPRB, 0.774533E+00_JPRB &
+  &, 0.757975E+00_JPRB, 0.741594E+00_JPRB, 0.725315E+00_JPRB, 0.709166E+00_JPRB &
+  &, 0.693172E+00_JPRB, 0.677362E+00_JPRB, 0.661655E+00_JPRB &
+  &, 0.646184E+00_JPRB, 0.630811E+00_JPRB, 0.615671E+00_JPRB, 0.600678E+00_JPRB &
+  &, 0.585855E+00_JPRB, 0.571225E+00_JPRB, 0.556814E+00_JPRB &
+  &, 0.542585E+00_JPRB, 0.528562E+00_JPRB, 0.514767E+00_JPRB, 0.501098E+00_JPRB &
+  &, 0.487702E+00_JPRB, 0.474474E+00_JPRB, 0.461499E+00_JPRB/)
+XCW( 802, :) = (/ &
+  &  0.108372E+01_JPRB, 0.110426E+01_JPRB, 0.112461E+01_JPRB, 0.114476E+01_JPRB &
+  &, 0.116470E+01_JPRB, 0.118442E+01_JPRB, 0.120390E+01_JPRB &
+  &, 0.122313E+01_JPRB, 0.124209E+01_JPRB, 0.126078E+01_JPRB, 0.127917E+01_JPRB &
+  &, 0.129727E+01_JPRB, 0.131505E+01_JPRB, 0.133250E+01_JPRB &
+  &, 0.134961E+01_JPRB, 0.136638E+01_JPRB, 0.138278E+01_JPRB, 0.139880E+01_JPRB &
+  &, 0.141444E+01_JPRB, 0.142968E+01_JPRB, 0.144452E+01_JPRB &
+  &, 0.145893E+01_JPRB, 0.147291E+01_JPRB, 0.148645E+01_JPRB, 0.149955E+01_JPRB &
+  &, 0.151218E+01_JPRB, 0.152434E+01_JPRB, 0.153603E+01_JPRB &
+  &, 0.154723E+01_JPRB, 0.155794E+01_JPRB, 0.156815E+01_JPRB, 0.157784E+01_JPRB &
+  &, 0.158702E+01_JPRB, 0.159569E+01_JPRB, 0.160382E+01_JPRB &
+  &, 0.161142E+01_JPRB, 0.161848E+01_JPRB, 0.162501E+01_JPRB, 0.163099E+01_JPRB &
+  &, 0.163642E+01_JPRB, 0.164131E+01_JPRB, 0.164564E+01_JPRB &
+  &, 0.164942E+01_JPRB, 0.165263E+01_JPRB, 0.165531E+01_JPRB, 0.165742E+01_JPRB &
+  &, 0.165898E+01_JPRB, 0.165999E+01_JPRB, 0.166044E+01_JPRB &
+  &, 0.166036E+01_JPRB, 0.165971E+01_JPRB, 0.165853E+01_JPRB, 0.165681E+01_JPRB &
+  &, 0.165455E+01_JPRB, 0.165177E+01_JPRB, 0.164846E+01_JPRB &
+  &, 0.164462E+01_JPRB, 0.164026E+01_JPRB, 0.163541E+01_JPRB, 0.163004E+01_JPRB &
+  &, 0.162420E+01_JPRB, 0.161784E+01_JPRB, 0.161102E+01_JPRB &
+  &, 0.160372E+01_JPRB, 0.159596E+01_JPRB, 0.158776E+01_JPRB, 0.157908E+01_JPRB &
+  &, 0.156999E+01_JPRB, 0.156045E+01_JPRB, 0.155050E+01_JPRB &
+  &, 0.154014E+01_JPRB, 0.152940E+01_JPRB, 0.151825E+01_JPRB, 0.150673E+01_JPRB &
+  &, 0.149484E+01_JPRB, 0.148262E+01_JPRB, 0.147003E+01_JPRB &
+  &, 0.145710E+01_JPRB, 0.144385E+01_JPRB, 0.143030E+01_JPRB, 0.141646E+01_JPRB &
+  &, 0.140233E+01_JPRB, 0.138792E+01_JPRB, 0.137324E+01_JPRB &
+  &, 0.135832E+01_JPRB, 0.134316E+01_JPRB, 0.132777E+01_JPRB, 0.131217E+01_JPRB &
+  &, 0.129634E+01_JPRB, 0.128034E+01_JPRB, 0.126417E+01_JPRB &
+  &, 0.124780E+01_JPRB, 0.123129E+01_JPRB, 0.121465E+01_JPRB, 0.119789E+01_JPRB &
+  &, 0.118097E+01_JPRB, 0.116397E+01_JPRB, 0.114686E+01_JPRB &
+  &, 0.112967E+01_JPRB, 0.111243E+01_JPRB, 0.109510E+01_JPRB, 0.107771E+01_JPRB &
+  &, 0.106030E+01_JPRB, 0.104286E+01_JPRB, 0.102537E+01_JPRB &
+  &, 0.100788E+01_JPRB, 0.990403E+00_JPRB, 0.972941E+00_JPRB, 0.955520E+00_JPRB &
+  &, 0.938090E+00_JPRB, 0.920720E+00_JPRB, 0.903398E+00_JPRB &
+  &, 0.886155E+00_JPRB, 0.868976E+00_JPRB, 0.851843E+00_JPRB, 0.834786E+00_JPRB &
+  &, 0.817881E+00_JPRB, 0.801014E+00_JPRB, 0.784309E+00_JPRB &
+  &, 0.767697E+00_JPRB, 0.751206E+00_JPRB, 0.734863E+00_JPRB, 0.718645E+00_JPRB &
+  &, 0.702577E+00_JPRB, 0.686635E+00_JPRB, 0.670842E+00_JPRB &
+  &, 0.655226E+00_JPRB, 0.639813E+00_JPRB, 0.624572E+00_JPRB, 0.609473E+00_JPRB &
+  &, 0.594539E+00_JPRB, 0.579852E+00_JPRB, 0.565319E+00_JPRB &
+  &, 0.550963E+00_JPRB, 0.536806E+00_JPRB, 0.522872E+00_JPRB, 0.509122E+00_JPRB &
+  &, 0.495640E+00_JPRB, 0.482322E+00_JPRB, 0.469188E+00_JPRB/)
+XCW( 803, :) = (/ &
+  &  0.108410E+01_JPRB, 0.110474E+01_JPRB, 0.112520E+01_JPRB, 0.114545E+01_JPRB &
+  &, 0.116550E+01_JPRB, 0.118533E+01_JPRB, 0.120492E+01_JPRB &
+  &, 0.122426E+01_JPRB, 0.124334E+01_JPRB, 0.126214E+01_JPRB, 0.128066E+01_JPRB &
+  &, 0.129888E+01_JPRB, 0.131677E+01_JPRB, 0.133436E+01_JPRB &
+  &, 0.135160E+01_JPRB, 0.136849E+01_JPRB, 0.138502E+01_JPRB, 0.140118E+01_JPRB &
+  &, 0.141695E+01_JPRB, 0.143232E+01_JPRB, 0.144729E+01_JPRB &
+  &, 0.146185E+01_JPRB, 0.147596E+01_JPRB, 0.148965E+01_JPRB, 0.150288E+01_JPRB &
+  &, 0.151565E+01_JPRB, 0.152796E+01_JPRB, 0.153979E+01_JPRB &
+  &, 0.155113E+01_JPRB, 0.156199E+01_JPRB, 0.157233E+01_JPRB, 0.158218E+01_JPRB &
+  &, 0.159150E+01_JPRB, 0.160031E+01_JPRB, 0.160859E+01_JPRB &
+  &, 0.161633E+01_JPRB, 0.162354E+01_JPRB, 0.163022E+01_JPRB, 0.163634E+01_JPRB &
+  &, 0.164192E+01_JPRB, 0.164694E+01_JPRB, 0.165143E+01_JPRB &
+  &, 0.165534E+01_JPRB, 0.165872E+01_JPRB, 0.166153E+01_JPRB, 0.166379E+01_JPRB &
+  &, 0.166549E+01_JPRB, 0.166664E+01_JPRB, 0.166723E+01_JPRB &
+  &, 0.166728E+01_JPRB, 0.166678E+01_JPRB, 0.166573E+01_JPRB, 0.166415E+01_JPRB &
+  &, 0.166202E+01_JPRB, 0.165936E+01_JPRB, 0.165618E+01_JPRB &
+  &, 0.165248E+01_JPRB, 0.164825E+01_JPRB, 0.164352E+01_JPRB, 0.163827E+01_JPRB &
+  &, 0.163255E+01_JPRB, 0.162631E+01_JPRB, 0.161961E+01_JPRB &
+  &, 0.161243E+01_JPRB, 0.160477E+01_JPRB, 0.159667E+01_JPRB, 0.158810E+01_JPRB &
+  &, 0.157911E+01_JPRB, 0.156969E+01_JPRB, 0.155983E+01_JPRB &
+  &, 0.154956E+01_JPRB, 0.153891E+01_JPRB, 0.152786E+01_JPRB, 0.151643E+01_JPRB &
+  &, 0.150461E+01_JPRB, 0.149245E+01_JPRB, 0.147995E+01_JPRB &
+  &, 0.146712E+01_JPRB, 0.145395E+01_JPRB, 0.144044E+01_JPRB, 0.142668E+01_JPRB &
+  &, 0.141259E+01_JPRB, 0.139824E+01_JPRB, 0.138362E+01_JPRB &
+  &, 0.136873E+01_JPRB, 0.135363E+01_JPRB, 0.133829E+01_JPRB, 0.132271E+01_JPRB &
+  &, 0.130693E+01_JPRB, 0.129097E+01_JPRB, 0.127481E+01_JPRB &
+  &, 0.125847E+01_JPRB, 0.124199E+01_JPRB, 0.122537E+01_JPRB, 0.120858E+01_JPRB &
+  &, 0.119171E+01_JPRB, 0.117469E+01_JPRB, 0.115759E+01_JPRB &
+  &, 0.114040E+01_JPRB, 0.112313E+01_JPRB, 0.110579E+01_JPRB, 0.108840E+01_JPRB &
+  &, 0.107098E+01_JPRB, 0.105348E+01_JPRB, 0.103601E+01_JPRB &
+  &, 0.101848E+01_JPRB, 0.100098E+01_JPRB, 0.983478E+00_JPRB, 0.965974E+00_JPRB &
+  &, 0.948538E+00_JPRB, 0.931116E+00_JPRB, 0.913736E+00_JPRB &
+  &, 0.896430E+00_JPRB, 0.879182E+00_JPRB, 0.862022E+00_JPRB, 0.844885E+00_JPRB &
+  &, 0.827895E+00_JPRB, 0.810985E+00_JPRB, 0.794183E+00_JPRB &
+  &, 0.777519E+00_JPRB, 0.760920E+00_JPRB, 0.744514E+00_JPRB, 0.728176E+00_JPRB &
+  &, 0.712035E+00_JPRB, 0.696014E+00_JPRB, 0.680138E+00_JPRB &
+  &, 0.664433E+00_JPRB, 0.648926E+00_JPRB, 0.633530E+00_JPRB, 0.618384E+00_JPRB &
+  &, 0.603339E+00_JPRB, 0.588537E+00_JPRB, 0.573883E+00_JPRB &
+  &, 0.559461E+00_JPRB, 0.545173E+00_JPRB, 0.531165E+00_JPRB, 0.517272E+00_JPRB &
+  &, 0.503642E+00_JPRB, 0.490235E+00_JPRB, 0.477007E+00_JPRB/)
+XCW( 804, :) = (/ &
+  &  0.108449E+01_JPRB, 0.110522E+01_JPRB, 0.112578E+01_JPRB, 0.114615E+01_JPRB &
+  &, 0.116630E+01_JPRB, 0.118624E+01_JPRB, 0.120594E+01_JPRB &
+  &, 0.122540E+01_JPRB, 0.124459E+01_JPRB, 0.126352E+01_JPRB, 0.128215E+01_JPRB &
+  &, 0.130049E+01_JPRB, 0.131852E+01_JPRB, 0.133623E+01_JPRB &
+  &, 0.135359E+01_JPRB, 0.137062E+01_JPRB, 0.138728E+01_JPRB, 0.140356E+01_JPRB &
+  &, 0.141947E+01_JPRB, 0.143498E+01_JPRB, 0.145009E+01_JPRB &
+  &, 0.146477E+01_JPRB, 0.147903E+01_JPRB, 0.149285E+01_JPRB, 0.150623E+01_JPRB &
+  &, 0.151914E+01_JPRB, 0.153159E+01_JPRB, 0.154356E+01_JPRB &
+  &, 0.155505E+01_JPRB, 0.156605E+01_JPRB, 0.157654E+01_JPRB, 0.158653E+01_JPRB &
+  &, 0.159601E+01_JPRB, 0.160496E+01_JPRB, 0.161339E+01_JPRB &
+  &, 0.162128E+01_JPRB, 0.162864E+01_JPRB, 0.163545E+01_JPRB, 0.164172E+01_JPRB &
+  &, 0.164745E+01_JPRB, 0.165262E+01_JPRB, 0.165725E+01_JPRB &
+  &, 0.166131E+01_JPRB, 0.166483E+01_JPRB, 0.166778E+01_JPRB, 0.167017E+01_JPRB &
+  &, 0.167203E+01_JPRB, 0.167333E+01_JPRB, 0.167406E+01_JPRB &
+  &, 0.167425E+01_JPRB, 0.167388E+01_JPRB, 0.167298E+01_JPRB, 0.167152E+01_JPRB &
+  &, 0.166954E+01_JPRB, 0.166701E+01_JPRB, 0.166396E+01_JPRB &
+  &, 0.166038E+01_JPRB, 0.165626E+01_JPRB, 0.165168E+01_JPRB, 0.164656E+01_JPRB &
+  &, 0.164095E+01_JPRB, 0.163484E+01_JPRB, 0.162826E+01_JPRB &
+  &, 0.162118E+01_JPRB, 0.161364E+01_JPRB, 0.160565E+01_JPRB, 0.159719E+01_JPRB &
+  &, 0.158829E+01_JPRB, 0.157899E+01_JPRB, 0.156923E+01_JPRB &
+  &, 0.155905E+01_JPRB, 0.154850E+01_JPRB, 0.153753E+01_JPRB, 0.152619E+01_JPRB &
+  &, 0.151446E+01_JPRB, 0.150239E+01_JPRB, 0.148996E+01_JPRB &
+  &, 0.147719E+01_JPRB, 0.146410E+01_JPRB, 0.145069E+01_JPRB, 0.143695E+01_JPRB &
+  &, 0.142295E+01_JPRB, 0.140864E+01_JPRB, 0.139409E+01_JPRB &
+  &, 0.137926E+01_JPRB, 0.136418E+01_JPRB, 0.134887E+01_JPRB, 0.133334E+01_JPRB &
+  &, 0.131760E+01_JPRB, 0.130166E+01_JPRB, 0.128554E+01_JPRB &
+  &, 0.126924E+01_JPRB, 0.125279E+01_JPRB, 0.123617E+01_JPRB, 0.121940E+01_JPRB &
+  &, 0.120251E+01_JPRB, 0.118551E+01_JPRB, 0.116842E+01_JPRB &
+  &, 0.115124E+01_JPRB, 0.113393E+01_JPRB, 0.111660E+01_JPRB, 0.109920E+01_JPRB &
+  &, 0.108173E+01_JPRB, 0.106425E+01_JPRB, 0.104672E+01_JPRB &
+  &, 0.102917E+01_JPRB, 0.101163E+01_JPRB, 0.994099E+00_JPRB, 0.976597E+00_JPRB &
+  &, 0.959073E+00_JPRB, 0.941643E+00_JPRB, 0.924208E+00_JPRB &
+  &, 0.906840E+00_JPRB, 0.889525E+00_JPRB, 0.872293E+00_JPRB, 0.855125E+00_JPRB &
+  &, 0.838051E+00_JPRB, 0.821101E+00_JPRB, 0.804205E+00_JPRB &
+  &, 0.787440E+00_JPRB, 0.770785E+00_JPRB, 0.754268E+00_JPRB, 0.737915E+00_JPRB &
+  &, 0.721651E+00_JPRB, 0.705554E+00_JPRB, 0.689597E+00_JPRB &
+  &, 0.673806E+00_JPRB, 0.658152E+00_JPRB, 0.642715E+00_JPRB, 0.627409E+00_JPRB &
+  &, 0.612314E+00_JPRB, 0.597340E+00_JPRB, 0.582627E+00_JPRB &
+  &, 0.568081E+00_JPRB, 0.553725E+00_JPRB, 0.539520E+00_JPRB, 0.525612E+00_JPRB &
+  &, 0.511837E+00_JPRB, 0.498278E+00_JPRB, 0.484958E+00_JPRB/)
+XCW( 805, :) = (/ &
+  &  0.108487E+01_JPRB, 0.110571E+01_JPRB, 0.112637E+01_JPRB, 0.114684E+01_JPRB &
+  &, 0.116711E+01_JPRB, 0.118715E+01_JPRB, 0.120697E+01_JPRB &
+  &, 0.122654E+01_JPRB, 0.124585E+01_JPRB, 0.126490E+01_JPRB, 0.128365E+01_JPRB &
+  &, 0.130211E+01_JPRB, 0.132027E+01_JPRB, 0.133810E+01_JPRB &
+  &, 0.135560E+01_JPRB, 0.137275E+01_JPRB, 0.138954E+01_JPRB, 0.140596E+01_JPRB &
+  &, 0.142200E+01_JPRB, 0.143764E+01_JPRB, 0.145289E+01_JPRB &
+  &, 0.146771E+01_JPRB, 0.148211E+01_JPRB, 0.149608E+01_JPRB, 0.150959E+01_JPRB &
+  &, 0.152265E+01_JPRB, 0.153524E+01_JPRB, 0.154736E+01_JPRB &
+  &, 0.155899E+01_JPRB, 0.157013E+01_JPRB, 0.158077E+01_JPRB, 0.159091E+01_JPRB &
+  &, 0.160053E+01_JPRB, 0.160963E+01_JPRB, 0.161820E+01_JPRB &
+  &, 0.162625E+01_JPRB, 0.163375E+01_JPRB, 0.164071E+01_JPRB, 0.164714E+01_JPRB &
+  &, 0.165301E+01_JPRB, 0.165833E+01_JPRB, 0.166310E+01_JPRB &
+  &, 0.166731E+01_JPRB, 0.167097E+01_JPRB, 0.167407E+01_JPRB, 0.167662E+01_JPRB &
+  &, 0.167861E+01_JPRB, 0.168004E+01_JPRB, 0.168093E+01_JPRB &
+  &, 0.168125E+01_JPRB, 0.168103E+01_JPRB, 0.168025E+01_JPRB, 0.167894E+01_JPRB &
+  &, 0.167709E+01_JPRB, 0.167471E+01_JPRB, 0.167178E+01_JPRB &
+  &, 0.166833E+01_JPRB, 0.166437E+01_JPRB, 0.165989E+01_JPRB, 0.165490E+01_JPRB &
+  &, 0.164941E+01_JPRB, 0.164336E+01_JPRB, 0.163696E+01_JPRB &
+  &, 0.162999E+01_JPRB, 0.162258E+01_JPRB, 0.161469E+01_JPRB, 0.160635E+01_JPRB &
+  &, 0.159756E+01_JPRB, 0.158835E+01_JPRB, 0.157868E+01_JPRB &
+  &, 0.156863E+01_JPRB, 0.155814E+01_JPRB, 0.154720E+01_JPRB, 0.153586E+01_JPRB &
+  &, 0.152440E+01_JPRB, 0.151239E+01_JPRB, 0.150004E+01_JPRB &
+  &, 0.148735E+01_JPRB, 0.147432E+01_JPRB, 0.146099E+01_JPRB, 0.144732E+01_JPRB &
+  &, 0.143336E+01_JPRB, 0.141913E+01_JPRB, 0.140464E+01_JPRB &
+  &, 0.138984E+01_JPRB, 0.137483E+01_JPRB, 0.135956E+01_JPRB, 0.134409E+01_JPRB &
+  &, 0.132837E+01_JPRB, 0.131247E+01_JPRB, 0.129636E+01_JPRB &
+  &, 0.128010E+01_JPRB, 0.126365E+01_JPRB, 0.124706E+01_JPRB, 0.123032E+01_JPRB &
+  &, 0.121345E+01_JPRB, 0.119647E+01_JPRB, 0.117936E+01_JPRB &
+  &, 0.116215E+01_JPRB, 0.114488E+01_JPRB, 0.112751E+01_JPRB, 0.111011E+01_JPRB &
+  &, 0.109263E+01_JPRB, 0.107510E+01_JPRB, 0.105755E+01_JPRB &
+  &, 0.104002E+01_JPRB, 0.102241E+01_JPRB, 0.100484E+01_JPRB, 0.987303E+00_JPRB &
+  &, 0.969693E+00_JPRB, 0.952257E+00_JPRB, 0.934767E+00_JPRB &
+  &, 0.917340E+00_JPRB, 0.900005E+00_JPRB, 0.882702E+00_JPRB, 0.865459E+00_JPRB &
+  &, 0.848351E+00_JPRB, 0.831265E+00_JPRB, 0.814325E+00_JPRB &
+  &, 0.797511E+00_JPRB, 0.780803E+00_JPRB, 0.764175E+00_JPRB, 0.747707E+00_JPRB &
+  &, 0.731373E+00_JPRB, 0.715202E+00_JPRB, 0.699165E+00_JPRB &
+  &, 0.683234E+00_JPRB, 0.667545E+00_JPRB, 0.651956E+00_JPRB, 0.636549E+00_JPRB &
+  &, 0.621348E+00_JPRB, 0.606321E+00_JPRB, 0.591491E+00_JPRB &
+  &, 0.576823E+00_JPRB, 0.562339E+00_JPRB, 0.548061E+00_JPRB, 0.534015E+00_JPRB &
+  &, 0.520095E+00_JPRB, 0.506451E+00_JPRB, 0.492975E+00_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART115',1,ZHOOK_HANDLE)
+END SUBROUTINE PART115
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART116
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART116',0,ZHOOK_HANDLE)
+
+XCW( 806, :) = (/ &
+  &  0.108525E+01_JPRB, 0.110619E+01_JPRB, 0.112696E+01_JPRB, 0.114754E+01_JPRB &
+  &, 0.116791E+01_JPRB, 0.118807E+01_JPRB, 0.120800E+01_JPRB &
+  &, 0.122769E+01_JPRB, 0.124712E+01_JPRB, 0.126628E+01_JPRB, 0.128516E+01_JPRB &
+  &, 0.130374E+01_JPRB, 0.132202E+01_JPRB, 0.133998E+01_JPRB &
+  &, 0.135761E+01_JPRB, 0.137489E+01_JPRB, 0.139181E+01_JPRB, 0.140837E+01_JPRB &
+  &, 0.142454E+01_JPRB, 0.144033E+01_JPRB, 0.145570E+01_JPRB &
+  &, 0.147067E+01_JPRB, 0.148521E+01_JPRB, 0.149931E+01_JPRB, 0.151297E+01_JPRB &
+  &, 0.152617E+01_JPRB, 0.153891E+01_JPRB, 0.155117E+01_JPRB &
+  &, 0.156295E+01_JPRB, 0.157424E+01_JPRB, 0.158502E+01_JPRB, 0.159531E+01_JPRB &
+  &, 0.160508E+01_JPRB, 0.161432E+01_JPRB, 0.162305E+01_JPRB &
+  &, 0.163123E+01_JPRB, 0.163889E+01_JPRB, 0.164600E+01_JPRB, 0.165257E+01_JPRB &
+  &, 0.165860E+01_JPRB, 0.166407E+01_JPRB, 0.166898E+01_JPRB &
+  &, 0.167335E+01_JPRB, 0.167715E+01_JPRB, 0.168040E+01_JPRB, 0.168309E+01_JPRB &
+  &, 0.168522E+01_JPRB, 0.168681E+01_JPRB, 0.168783E+01_JPRB &
+  &, 0.168829E+01_JPRB, 0.168822E+01_JPRB, 0.168759E+01_JPRB, 0.168641E+01_JPRB &
+  &, 0.168469E+01_JPRB, 0.168244E+01_JPRB, 0.167965E+01_JPRB &
+  &, 0.167634E+01_JPRB, 0.167250E+01_JPRB, 0.166815E+01_JPRB, 0.166329E+01_JPRB &
+  &, 0.165793E+01_JPRB, 0.165206E+01_JPRB, 0.164571E+01_JPRB &
+  &, 0.163887E+01_JPRB, 0.163156E+01_JPRB, 0.162379E+01_JPRB, 0.161555E+01_JPRB &
+  &, 0.160688E+01_JPRB, 0.159777E+01_JPRB, 0.158822E+01_JPRB &
+  &, 0.157824E+01_JPRB, 0.156787E+01_JPRB, 0.155710E+01_JPRB, 0.154593E+01_JPRB &
+  &, 0.153438E+01_JPRB, 0.152248E+01_JPRB, 0.151020E+01_JPRB &
+  &, 0.149759E+01_JPRB, 0.148464E+01_JPRB, 0.147136E+01_JPRB, 0.145777E+01_JPRB &
+  &, 0.144388E+01_JPRB, 0.142972E+01_JPRB, 0.141526E+01_JPRB &
+  &, 0.140053E+01_JPRB, 0.138555E+01_JPRB, 0.137035E+01_JPRB, 0.135490E+01_JPRB &
+  &, 0.133923E+01_JPRB, 0.132338E+01_JPRB, 0.130731E+01_JPRB &
+  &, 0.129105E+01_JPRB, 0.127465E+01_JPRB, 0.125805E+01_JPRB, 0.124134E+01_JPRB &
+  &, 0.122446E+01_JPRB, 0.120749E+01_JPRB, 0.119040E+01_JPRB &
+  &, 0.117321E+01_JPRB, 0.115591E+01_JPRB, 0.113854E+01_JPRB, 0.112110E+01_JPRB &
+  &, 0.110361E+01_JPRB, 0.108610E+01_JPRB, 0.106854E+01_JPRB &
+  &, 0.105095E+01_JPRB, 0.103331E+01_JPRB, 0.101571E+01_JPRB, 0.998137E+00_JPRB &
+  &, 0.980527E+00_JPRB, 0.963001E+00_JPRB, 0.945459E+00_JPRB &
+  &, 0.927974E+00_JPRB, 0.910576E+00_JPRB, 0.893204E+00_JPRB, 0.875933E+00_JPRB &
+  &, 0.858746E+00_JPRB, 0.841623E+00_JPRB, 0.824592E+00_JPRB &
+  &, 0.807682E+00_JPRB, 0.790871E+00_JPRB, 0.774237E+00_JPRB, 0.757655E+00_JPRB &
+  &, 0.741254E+00_JPRB, 0.724956E+00_JPRB, 0.708841E+00_JPRB &
+  &, 0.692827E+00_JPRB, 0.676994E+00_JPRB, 0.661368E+00_JPRB, 0.645862E+00_JPRB &
+  &, 0.630557E+00_JPRB, 0.615420E+00_JPRB, 0.600475E+00_JPRB &
+  &, 0.585686E+00_JPRB, 0.571075E+00_JPRB, 0.556728E+00_JPRB, 0.542544E+00_JPRB &
+  &, 0.528546E+00_JPRB, 0.514753E+00_JPRB, 0.501189E+00_JPRB/)
+XCW( 807, :) = (/ &
+  &  0.108564E+01_JPRB, 0.110668E+01_JPRB, 0.112755E+01_JPRB, 0.114824E+01_JPRB &
+  &, 0.116872E+01_JPRB, 0.118899E+01_JPRB, 0.120903E+01_JPRB &
+  &, 0.122884E+01_JPRB, 0.124839E+01_JPRB, 0.126767E+01_JPRB, 0.128667E+01_JPRB &
+  &, 0.130538E+01_JPRB, 0.132378E+01_JPRB, 0.134187E+01_JPRB &
+  &, 0.135962E+01_JPRB, 0.137704E+01_JPRB, 0.139409E+01_JPRB, 0.141078E+01_JPRB &
+  &, 0.142709E+01_JPRB, 0.144301E+01_JPRB, 0.145853E+01_JPRB &
+  &, 0.147364E+01_JPRB, 0.148832E+01_JPRB, 0.150256E+01_JPRB, 0.151636E+01_JPRB &
+  &, 0.152971E+01_JPRB, 0.154259E+01_JPRB, 0.155500E+01_JPRB &
+  &, 0.156692E+01_JPRB, 0.157836E+01_JPRB, 0.158930E+01_JPRB, 0.159973E+01_JPRB &
+  &, 0.160964E+01_JPRB, 0.161905E+01_JPRB, 0.162792E+01_JPRB &
+  &, 0.163626E+01_JPRB, 0.164406E+01_JPRB, 0.165132E+01_JPRB, 0.165805E+01_JPRB &
+  &, 0.166421E+01_JPRB, 0.166983E+01_JPRB, 0.167490E+01_JPRB &
+  &, 0.167941E+01_JPRB, 0.168336E+01_JPRB, 0.168677E+01_JPRB, 0.168960E+01_JPRB &
+  &, 0.169188E+01_JPRB, 0.169361E+01_JPRB, 0.169478E+01_JPRB &
+  &, 0.169539E+01_JPRB, 0.169545E+01_JPRB, 0.169496E+01_JPRB, 0.169392E+01_JPRB &
+  &, 0.169234E+01_JPRB, 0.169022E+01_JPRB, 0.168757E+01_JPRB &
+  &, 0.168440E+01_JPRB, 0.168068E+01_JPRB, 0.167644E+01_JPRB, 0.167173E+01_JPRB &
+  &, 0.166648E+01_JPRB, 0.166076E+01_JPRB, 0.165453E+01_JPRB &
+  &, 0.164780E+01_JPRB, 0.164061E+01_JPRB, 0.163295E+01_JPRB, 0.162483E+01_JPRB &
+  &, 0.161626E+01_JPRB, 0.160725E+01_JPRB, 0.159781E+01_JPRB &
+  &, 0.158795E+01_JPRB, 0.157767E+01_JPRB, 0.156699E+01_JPRB, 0.155592E+01_JPRB &
+  &, 0.154446E+01_JPRB, 0.153262E+01_JPRB, 0.152045E+01_JPRB &
+  &, 0.150790E+01_JPRB, 0.149503E+01_JPRB, 0.148183E+01_JPRB, 0.146832E+01_JPRB &
+  &, 0.145448E+01_JPRB, 0.144039E+01_JPRB, 0.142598E+01_JPRB &
+  &, 0.141131E+01_JPRB, 0.139639E+01_JPRB, 0.138122E+01_JPRB, 0.136582E+01_JPRB &
+  &, 0.135021E+01_JPRB, 0.133437E+01_JPRB, 0.131832E+01_JPRB &
+  &, 0.130210E+01_JPRB, 0.128570E+01_JPRB, 0.126914E+01_JPRB, 0.125245E+01_JPRB &
+  &, 0.123561E+01_JPRB, 0.121863E+01_JPRB, 0.120155E+01_JPRB &
+  &, 0.118433E+01_JPRB, 0.116704E+01_JPRB, 0.114968E+01_JPRB, 0.113223E+01_JPRB &
+  &, 0.111474E+01_JPRB, 0.109719E+01_JPRB, 0.107961E+01_JPRB &
+  &, 0.106200E+01_JPRB, 0.104434E+01_JPRB, 0.102671E+01_JPRB, 0.100905E+01_JPRB &
+  &, 0.991447E+00_JPRB, 0.973832E+00_JPRB, 0.956284E+00_JPRB &
+  &, 0.938743E+00_JPRB, 0.921284E+00_JPRB, 0.903892E+00_JPRB, 0.886549E+00_JPRB &
+  &, 0.869284E+00_JPRB, 0.852078E+00_JPRB, 0.835007E+00_JPRB &
+  &, 0.818002E+00_JPRB, 0.801141E+00_JPRB, 0.784350E+00_JPRB, 0.767759E+00_JPRB &
+  &, 0.751240E+00_JPRB, 0.734871E+00_JPRB, 0.718627E+00_JPRB &
+  &, 0.702531E+00_JPRB, 0.686667E+00_JPRB, 0.670893E+00_JPRB, 0.655289E+00_JPRB &
+  &, 0.639882E+00_JPRB, 0.624636E+00_JPRB, 0.609578E+00_JPRB &
+  &, 0.594670E+00_JPRB, 0.579996E+00_JPRB, 0.565519E+00_JPRB, 0.551200E+00_JPRB &
+  &, 0.537124E+00_JPRB, 0.523185E+00_JPRB, 0.509534E+00_JPRB/)
+XCW( 808, :) = (/ &
+  &  0.108602E+01_JPRB, 0.110717E+01_JPRB, 0.112815E+01_JPRB, 0.114894E+01_JPRB &
+  &, 0.116953E+01_JPRB, 0.118992E+01_JPRB, 0.121007E+01_JPRB &
+  &, 0.122999E+01_JPRB, 0.124966E+01_JPRB, 0.126906E+01_JPRB, 0.128819E+01_JPRB &
+  &, 0.130702E+01_JPRB, 0.132555E+01_JPRB, 0.134377E+01_JPRB &
+  &, 0.136165E+01_JPRB, 0.137919E+01_JPRB, 0.139639E+01_JPRB, 0.141321E+01_JPRB &
+  &, 0.142966E+01_JPRB, 0.144572E+01_JPRB, 0.146137E+01_JPRB &
+  &, 0.147662E+01_JPRB, 0.149144E+01_JPRB, 0.150583E+01_JPRB, 0.151977E+01_JPRB &
+  &, 0.153326E+01_JPRB, 0.154629E+01_JPRB, 0.155885E+01_JPRB &
+  &, 0.157092E+01_JPRB, 0.158250E+01_JPRB, 0.159359E+01_JPRB, 0.160417E+01_JPRB &
+  &, 0.161424E+01_JPRB, 0.162379E+01_JPRB, 0.163281E+01_JPRB &
+  &, 0.164130E+01_JPRB, 0.164925E+01_JPRB, 0.165667E+01_JPRB, 0.166354E+01_JPRB &
+  &, 0.166986E+01_JPRB, 0.167563E+01_JPRB, 0.168085E+01_JPRB &
+  &, 0.168551E+01_JPRB, 0.168962E+01_JPRB, 0.169316E+01_JPRB, 0.169615E+01_JPRB &
+  &, 0.169858E+01_JPRB, 0.170044E+01_JPRB, 0.170176E+01_JPRB &
+  &, 0.170251E+01_JPRB, 0.170271E+01_JPRB, 0.170238E+01_JPRB, 0.170148E+01_JPRB &
+  &, 0.170004E+01_JPRB, 0.169806E+01_JPRB, 0.169555E+01_JPRB &
+  &, 0.169251E+01_JPRB, 0.168893E+01_JPRB, 0.168483E+01_JPRB, 0.168023E+01_JPRB &
+  &, 0.167512E+01_JPRB, 0.166951E+01_JPRB, 0.166339E+01_JPRB &
+  &, 0.165680E+01_JPRB, 0.164972E+01_JPRB, 0.164218E+01_JPRB, 0.163417E+01_JPRB &
+  &, 0.162572E+01_JPRB, 0.161681E+01_JPRB, 0.160747E+01_JPRB &
+  &, 0.159771E+01_JPRB, 0.158753E+01_JPRB, 0.157695E+01_JPRB, 0.156597E+01_JPRB &
+  &, 0.155461E+01_JPRB, 0.154286E+01_JPRB, 0.153075E+01_JPRB &
+  &, 0.151831E+01_JPRB, 0.150550E+01_JPRB, 0.149238E+01_JPRB, 0.147892E+01_JPRB &
+  &, 0.146519E+01_JPRB, 0.145114E+01_JPRB, 0.143680E+01_JPRB &
+  &, 0.142217E+01_JPRB, 0.140731E+01_JPRB, 0.139220E+01_JPRB, 0.137684E+01_JPRB &
+  &, 0.136124E+01_JPRB, 0.134546E+01_JPRB, 0.132945E+01_JPRB &
+  &, 0.131325E+01_JPRB, 0.129689E+01_JPRB, 0.128036E+01_JPRB, 0.126367E+01_JPRB &
+  &, 0.124682E+01_JPRB, 0.122986E+01_JPRB, 0.121266E+01_JPRB &
+  &, 0.119560E+01_JPRB, 0.117829E+01_JPRB, 0.116093E+01_JPRB, 0.114348E+01_JPRB &
+  &, 0.112595E+01_JPRB, 0.110839E+01_JPRB, 0.109080E+01_JPRB &
+  &, 0.107316E+01_JPRB, 0.105548E+01_JPRB, 0.103783E+01_JPRB, 0.102014E+01_JPRB &
+  &, 0.100250E+01_JPRB, 0.984838E+00_JPRB, 0.967241E+00_JPRB &
+  &, 0.949647E+00_JPRB, 0.932128E+00_JPRB, 0.914671E+00_JPRB, 0.897258E+00_JPRB &
+  &, 0.879917E+00_JPRB, 0.862678E+00_JPRB, 0.845520E+00_JPRB &
+  &, 0.828472E+00_JPRB, 0.811512E+00_JPRB, 0.794668E+00_JPRB, 0.777967E+00_JPRB &
+  &, 0.761331E+00_JPRB, 0.744894E+00_JPRB, 0.728575E+00_JPRB &
+  &, 0.712400E+00_JPRB, 0.696396E+00_JPRB, 0.680531E+00_JPRB, 0.664832E+00_JPRB &
+  &, 0.649323E+00_JPRB, 0.633972E+00_JPRB, 0.618801E+00_JPRB &
+  &, 0.603836E+00_JPRB, 0.589040E+00_JPRB, 0.574435E+00_JPRB, 0.559982E+00_JPRB &
+  &, 0.545767E+00_JPRB, 0.531747E+00_JPRB, 0.517945E+00_JPRB/)
+XCW( 809, :) = (/ &
+  &  0.108641E+01_JPRB, 0.110766E+01_JPRB, 0.112874E+01_JPRB, 0.114964E+01_JPRB &
+  &, 0.117035E+01_JPRB, 0.119084E+01_JPRB, 0.121112E+01_JPRB &
+  &, 0.123115E+01_JPRB, 0.125094E+01_JPRB, 0.127046E+01_JPRB, 0.128971E+01_JPRB &
+  &, 0.130867E+01_JPRB, 0.132733E+01_JPRB, 0.134567E+01_JPRB &
+  &, 0.136369E+01_JPRB, 0.138136E+01_JPRB, 0.139869E+01_JPRB, 0.141565E+01_JPRB &
+  &, 0.143223E+01_JPRB, 0.144843E+01_JPRB, 0.146422E+01_JPRB &
+  &, 0.147961E+01_JPRB, 0.149458E+01_JPRB, 0.150911E+01_JPRB, 0.152320E+01_JPRB &
+  &, 0.153683E+01_JPRB, 0.155000E+01_JPRB, 0.156271E+01_JPRB &
+  &, 0.157494E+01_JPRB, 0.158667E+01_JPRB, 0.159790E+01_JPRB, 0.160864E+01_JPRB &
+  &, 0.161885E+01_JPRB, 0.162855E+01_JPRB, 0.163773E+01_JPRB &
+  &, 0.164637E+01_JPRB, 0.165448E+01_JPRB, 0.166205E+01_JPRB, 0.166906E+01_JPRB &
+  &, 0.167554E+01_JPRB, 0.168147E+01_JPRB, 0.168683E+01_JPRB &
+  &, 0.169164E+01_JPRB, 0.169590E+01_JPRB, 0.169959E+01_JPRB, 0.170273E+01_JPRB &
+  &, 0.170531E+01_JPRB, 0.170732E+01_JPRB, 0.170879E+01_JPRB &
+  &, 0.170969E+01_JPRB, 0.171003E+01_JPRB, 0.170983E+01_JPRB, 0.170908E+01_JPRB &
+  &, 0.170779E+01_JPRB, 0.170594E+01_JPRB, 0.170356E+01_JPRB &
+  &, 0.170066E+01_JPRB, 0.169722E+01_JPRB, 0.169325E+01_JPRB, 0.168878E+01_JPRB &
+  &, 0.168380E+01_JPRB, 0.167831E+01_JPRB, 0.167233E+01_JPRB &
+  &, 0.166585E+01_JPRB, 0.165890E+01_JPRB, 0.165147E+01_JPRB, 0.164358E+01_JPRB &
+  &, 0.163524E+01_JPRB, 0.162644E+01_JPRB, 0.161722E+01_JPRB &
+  &, 0.160756E+01_JPRB, 0.159748E+01_JPRB, 0.158699E+01_JPRB, 0.157611E+01_JPRB &
+  &, 0.156482E+01_JPRB, 0.155319E+01_JPRB, 0.154115E+01_JPRB &
+  &, 0.152877E+01_JPRB, 0.151607E+01_JPRB, 0.150301E+01_JPRB, 0.148962E+01_JPRB &
+  &, 0.147594E+01_JPRB, 0.146197E+01_JPRB, 0.144767E+01_JPRB &
+  &, 0.143314E+01_JPRB, 0.141832E+01_JPRB, 0.140325E+01_JPRB, 0.138794E+01_JPRB &
+  &, 0.137240E+01_JPRB, 0.135664E+01_JPRB, 0.134068E+01_JPRB &
+  &, 0.132452E+01_JPRB, 0.130817E+01_JPRB, 0.129165E+01_JPRB, 0.127499E+01_JPRB &
+  &, 0.125817E+01_JPRB, 0.124124E+01_JPRB, 0.122413E+01_JPRB &
+  &, 0.120694E+01_JPRB, 0.118967E+01_JPRB, 0.117229E+01_JPRB, 0.115481E+01_JPRB &
+  &, 0.113731E+01_JPRB, 0.111970E+01_JPRB, 0.110210E+01_JPRB &
+  &, 0.108441E+01_JPRB, 0.106675E+01_JPRB, 0.104903E+01_JPRB, 0.103131E+01_JPRB &
+  &, 0.101363E+01_JPRB, 0.995930E+00_JPRB, 0.978286E+00_JPRB &
+  &, 0.960685E+00_JPRB, 0.943064E+00_JPRB, 0.925544E+00_JPRB, 0.908109E+00_JPRB &
+  &, 0.890694E+00_JPRB, 0.873375E+00_JPRB, 0.856180E+00_JPRB &
+  &, 0.839042E+00_JPRB, 0.821985E+00_JPRB, 0.805089E+00_JPRB, 0.788279E+00_JPRB &
+  &, 0.771582E+00_JPRB, 0.755077E+00_JPRB, 0.738632E+00_JPRB &
+  &, 0.722379E+00_JPRB, 0.706292E+00_JPRB, 0.690340E+00_JPRB, 0.674547E+00_JPRB &
+  &, 0.658940E+00_JPRB, 0.643484E+00_JPRB, 0.628204E+00_JPRB &
+  &, 0.613063E+00_JPRB, 0.598207E+00_JPRB, 0.583476E+00_JPRB, 0.568954E+00_JPRB &
+  &, 0.554601E+00_JPRB, 0.540503E+00_JPRB, 0.526553E+00_JPRB/)
+XCW( 810, :) = (/ &
+  &  0.108680E+01_JPRB, 0.110815E+01_JPRB, 0.112934E+01_JPRB, 0.115035E+01_JPRB &
+  &, 0.117117E+01_JPRB, 0.119178E+01_JPRB, 0.121216E+01_JPRB &
+  &, 0.123232E+01_JPRB, 0.125222E+01_JPRB, 0.127187E+01_JPRB, 0.129124E+01_JPRB &
+  &, 0.131032E+01_JPRB, 0.132911E+01_JPRB, 0.134758E+01_JPRB &
+  &, 0.136573E+01_JPRB, 0.138354E+01_JPRB, 0.140100E+01_JPRB, 0.141809E+01_JPRB &
+  &, 0.143482E+01_JPRB, 0.145115E+01_JPRB, 0.146709E+01_JPRB &
+  &, 0.148262E+01_JPRB, 0.149773E+01_JPRB, 0.151241E+01_JPRB, 0.152664E+01_JPRB &
+  &, 0.154042E+01_JPRB, 0.155374E+01_JPRB, 0.156660E+01_JPRB &
+  &, 0.157897E+01_JPRB, 0.159085E+01_JPRB, 0.160224E+01_JPRB, 0.161312E+01_JPRB &
+  &, 0.162349E+01_JPRB, 0.163334E+01_JPRB, 0.164267E+01_JPRB &
+  &, 0.165146E+01_JPRB, 0.165973E+01_JPRB, 0.166745E+01_JPRB, 0.167462E+01_JPRB &
+  &, 0.168125E+01_JPRB, 0.168733E+01_JPRB, 0.169285E+01_JPRB &
+  &, 0.169781E+01_JPRB, 0.170222E+01_JPRB, 0.170606E+01_JPRB, 0.170935E+01_JPRB &
+  &, 0.171208E+01_JPRB, 0.171424E+01_JPRB, 0.171585E+01_JPRB &
+  &, 0.171690E+01_JPRB, 0.171740E+01_JPRB, 0.171733E+01_JPRB, 0.171673E+01_JPRB &
+  &, 0.171558E+01_JPRB, 0.171388E+01_JPRB, 0.171163E+01_JPRB &
+  &, 0.170885E+01_JPRB, 0.170556E+01_JPRB, 0.170174E+01_JPRB, 0.169739E+01_JPRB &
+  &, 0.169254E+01_JPRB, 0.168718E+01_JPRB, 0.168131E+01_JPRB &
+  &, 0.167496E+01_JPRB, 0.166814E+01_JPRB, 0.166084E+01_JPRB, 0.165306E+01_JPRB &
+  &, 0.164482E+01_JPRB, 0.163614E+01_JPRB, 0.162700E+01_JPRB &
+  &, 0.161747E+01_JPRB, 0.160747E+01_JPRB, 0.159710E+01_JPRB, 0.158630E+01_JPRB &
+  &, 0.157512E+01_JPRB, 0.156356E+01_JPRB, 0.155164E+01_JPRB &
+  &, 0.153935E+01_JPRB, 0.152671E+01_JPRB, 0.151374E+01_JPRB, 0.150043E+01_JPRB &
+  &, 0.148681E+01_JPRB, 0.147288E+01_JPRB, 0.145869E+01_JPRB &
+  &, 0.144417E+01_JPRB, 0.142942E+01_JPRB, 0.141440E+01_JPRB, 0.139913E+01_JPRB &
+  &, 0.138365E+01_JPRB, 0.136791E+01_JPRB, 0.135200E+01_JPRB &
+  &, 0.133586E+01_JPRB, 0.131955E+01_JPRB, 0.130307E+01_JPRB, 0.128641E+01_JPRB &
+  &, 0.126962E+01_JPRB, 0.125268E+01_JPRB, 0.123563E+01_JPRB &
+  &, 0.121842E+01_JPRB, 0.120114E+01_JPRB, 0.118376E+01_JPRB, 0.116629E+01_JPRB &
+  &, 0.114875E+01_JPRB, 0.113118E+01_JPRB, 0.111352E+01_JPRB &
+  &, 0.109582E+01_JPRB, 0.107810E+01_JPRB, 0.106040E+01_JPRB, 0.104265E+01_JPRB &
+  &, 0.102489E+01_JPRB, 0.100720E+01_JPRB, 0.989464E+00_JPRB &
+  &, 0.971813E+00_JPRB, 0.954182E+00_JPRB, 0.936601E+00_JPRB, 0.919053E+00_JPRB &
+  &, 0.901613E+00_JPRB, 0.884217E+00_JPRB, 0.866939E+00_JPRB &
+  &, 0.849711E+00_JPRB, 0.832609E+00_JPRB, 0.815612E+00_JPRB, 0.798748E+00_JPRB &
+  &, 0.781991E+00_JPRB, 0.765368E+00_JPRB, 0.748852E+00_JPRB &
+  &, 0.732524E+00_JPRB, 0.716300E+00_JPRB, 0.700262E+00_JPRB, 0.684377E+00_JPRB &
+  &, 0.668614E+00_JPRB, 0.653115E+00_JPRB, 0.637727E+00_JPRB &
+  &, 0.622472E+00_JPRB, 0.607497E+00_JPRB, 0.592641E+00_JPRB, 0.577989E+00_JPRB &
+  &, 0.563564E+00_JPRB, 0.549324E+00_JPRB, 0.535293E+00_JPRB/)
+XCW( 811, :) = (/ &
+  &  0.108719E+01_JPRB, 0.110865E+01_JPRB, 0.112994E+01_JPRB, 0.115106E+01_JPRB &
+  &, 0.117199E+01_JPRB, 0.119271E+01_JPRB, 0.121321E+01_JPRB &
+  &, 0.123348E+01_JPRB, 0.125351E+01_JPRB, 0.127328E+01_JPRB, 0.129278E+01_JPRB &
+  &, 0.131199E+01_JPRB, 0.133090E+01_JPRB, 0.134950E+01_JPRB &
+  &, 0.136778E+01_JPRB, 0.138573E+01_JPRB, 0.140332E+01_JPRB, 0.142055E+01_JPRB &
+  &, 0.143741E+01_JPRB, 0.145389E+01_JPRB, 0.146997E+01_JPRB &
+  &, 0.148564E+01_JPRB, 0.150089E+01_JPRB, 0.151572E+01_JPRB, 0.153010E+01_JPRB &
+  &, 0.154403E+01_JPRB, 0.155750E+01_JPRB, 0.157050E+01_JPRB &
+  &, 0.158302E+01_JPRB, 0.159506E+01_JPRB, 0.160659E+01_JPRB, 0.161763E+01_JPRB &
+  &, 0.162815E+01_JPRB, 0.163816E+01_JPRB, 0.164764E+01_JPRB &
+  &, 0.165659E+01_JPRB, 0.166500E+01_JPRB, 0.167288E+01_JPRB, 0.168021E+01_JPRB &
+  &, 0.168699E+01_JPRB, 0.169322E+01_JPRB, 0.169881E+01_JPRB &
+  &, 0.170401E+01_JPRB, 0.170856E+01_JPRB, 0.171257E+01_JPRB, 0.171600E+01_JPRB &
+  &, 0.171889E+01_JPRB, 0.172120E+01_JPRB, 0.172296E+01_JPRB &
+  &, 0.172415E+01_JPRB, 0.172480E+01_JPRB, 0.172489E+01_JPRB, 0.172442E+01_JPRB &
+  &, 0.172341E+01_JPRB, 0.172185E+01_JPRB, 0.171975E+01_JPRB &
+  &, 0.171712E+01_JPRB, 0.171395E+01_JPRB, 0.171027E+01_JPRB, 0.170606E+01_JPRB &
+  &, 0.170133E+01_JPRB, 0.169610E+01_JPRB, 0.169037E+01_JPRB &
+  &, 0.168414E+01_JPRB, 0.167743E+01_JPRB, 0.167024E+01_JPRB, 0.166259E+01_JPRB &
+  &, 0.165448E+01_JPRB, 0.164591E+01_JPRB, 0.163690E+01_JPRB &
+  &, 0.162744E+01_JPRB, 0.161757E+01_JPRB, 0.160728E+01_JPRB, 0.159660E+01_JPRB &
+  &, 0.158550E+01_JPRB, 0.157403E+01_JPRB, 0.156220E+01_JPRB &
+  &, 0.154998E+01_JPRB, 0.153743E+01_JPRB, 0.152454E+01_JPRB, 0.151129E+01_JPRB &
+  &, 0.149775E+01_JPRB, 0.148390E+01_JPRB, 0.146975E+01_JPRB &
+  &, 0.145534E+01_JPRB, 0.144063E+01_JPRB, 0.142565E+01_JPRB, 0.141044E+01_JPRB &
+  &, 0.139499E+01_JPRB, 0.137930E+01_JPRB, 0.136342E+01_JPRB &
+  &, 0.134732E+01_JPRB, 0.133106E+01_JPRB, 0.131458E+01_JPRB, 0.129797E+01_JPRB &
+  &, 0.128117E+01_JPRB, 0.126426E+01_JPRB, 0.124720E+01_JPRB &
+  &, 0.123002E+01_JPRB, 0.121274E+01_JPRB, 0.119534E+01_JPRB, 0.117787E+01_JPRB &
+  &, 0.116034E+01_JPRB, 0.114273E+01_JPRB, 0.112507E+01_JPRB &
+  &, 0.110735E+01_JPRB, 0.108962E+01_JPRB, 0.107185E+01_JPRB, 0.105407E+01_JPRB &
+  &, 0.103633E+01_JPRB, 0.101855E+01_JPRB, 0.100077E+01_JPRB &
+  &, 0.983075E+00_JPRB, 0.965391E+00_JPRB, 0.947751E+00_JPRB, 0.930185E+00_JPRB &
+  &, 0.912676E+00_JPRB, 0.895204E+00_JPRB, 0.877845E+00_JPRB &
+  &, 0.860579E+00_JPRB, 0.843386E+00_JPRB, 0.826341E+00_JPRB, 0.809373E+00_JPRB &
+  &, 0.792505E+00_JPRB, 0.775819E+00_JPRB, 0.759235E+00_JPRB &
+  &, 0.742779E+00_JPRB, 0.726476E+00_JPRB, 0.710353E+00_JPRB, 0.694322E+00_JPRB &
+  &, 0.678522E+00_JPRB, 0.662863E+00_JPRB, 0.647369E+00_JPRB &
+  &, 0.632064E+00_JPRB, 0.616910E+00_JPRB, 0.601994E+00_JPRB, 0.587213E+00_JPRB &
+  &, 0.572654E+00_JPRB, 0.558275E+00_JPRB, 0.544098E+00_JPRB/)
+XCW( 812, :) = (/ &
+  &  0.108758E+01_JPRB, 0.110915E+01_JPRB, 0.113055E+01_JPRB, 0.115177E+01_JPRB &
+  &, 0.117281E+01_JPRB, 0.119365E+01_JPRB, 0.121427E+01_JPRB &
+  &, 0.123466E+01_JPRB, 0.125480E+01_JPRB, 0.127470E+01_JPRB, 0.129432E+01_JPRB &
+  &, 0.131365E+01_JPRB, 0.133270E+01_JPRB, 0.135143E+01_JPRB &
+  &, 0.136984E+01_JPRB, 0.138792E+01_JPRB, 0.140565E+01_JPRB, 0.142302E+01_JPRB &
+  &, 0.144002E+01_JPRB, 0.145664E+01_JPRB, 0.147286E+01_JPRB &
+  &, 0.148867E+01_JPRB, 0.150407E+01_JPRB, 0.151904E+01_JPRB, 0.153357E+01_JPRB &
+  &, 0.154765E+01_JPRB, 0.156127E+01_JPRB, 0.157442E+01_JPRB &
+  &, 0.158710E+01_JPRB, 0.159928E+01_JPRB, 0.161097E+01_JPRB, 0.162216E+01_JPRB &
+  &, 0.163284E+01_JPRB, 0.164300E+01_JPRB, 0.165263E+01_JPRB &
+  &, 0.166174E+01_JPRB, 0.167031E+01_JPRB, 0.167834E+01_JPRB, 0.168583E+01_JPRB &
+  &, 0.169276E+01_JPRB, 0.169914E+01_JPRB, 0.170497E+01_JPRB &
+  &, 0.171025E+01_JPRB, 0.171496E+01_JPRB, 0.171911E+01_JPRB, 0.172270E+01_JPRB &
+  &, 0.172573E+01_JPRB, 0.172820E+01_JPRB, 0.173010E+01_JPRB &
+  &, 0.173146E+01_JPRB, 0.173224E+01_JPRB, 0.173248E+01_JPRB, 0.173217E+01_JPRB &
+  &, 0.173130E+01_JPRB, 0.172989E+01_JPRB, 0.172793E+01_JPRB &
+  &, 0.172544E+01_JPRB, 0.172241E+01_JPRB, 0.171885E+01_JPRB, 0.171479E+01_JPRB &
+  &, 0.171018E+01_JPRB, 0.170509E+01_JPRB, 0.169949E+01_JPRB &
+  &, 0.169338E+01_JPRB, 0.168680E+01_JPRB, 0.167974E+01_JPRB, 0.167220E+01_JPRB &
+  &, 0.166420E+01_JPRB, 0.165573E+01_JPRB, 0.164683E+01_JPRB &
+  &, 0.163750E+01_JPRB, 0.162773E+01_JPRB, 0.161755E+01_JPRB, 0.160694E+01_JPRB &
+  &, 0.159596E+01_JPRB, 0.158459E+01_JPRB, 0.157283E+01_JPRB &
+  &, 0.156071E+01_JPRB, 0.154824E+01_JPRB, 0.153542E+01_JPRB, 0.152226E+01_JPRB &
+  &, 0.150879E+01_JPRB, 0.149502E+01_JPRB, 0.148093E+01_JPRB &
+  &, 0.146656E+01_JPRB, 0.145192E+01_JPRB, 0.143701E+01_JPRB, 0.142183E+01_JPRB &
+  &, 0.140644E+01_JPRB, 0.139079E+01_JPRB, 0.137495E+01_JPRB &
+  &, 0.135888E+01_JPRB, 0.134263E+01_JPRB, 0.132620E+01_JPRB, 0.130962E+01_JPRB &
+  &, 0.129286E+01_JPRB, 0.127594E+01_JPRB, 0.125887E+01_JPRB &
+  &, 0.124171E+01_JPRB, 0.122442E+01_JPRB, 0.120703E+01_JPRB, 0.118958E+01_JPRB &
+  &, 0.117201E+01_JPRB, 0.115439E+01_JPRB, 0.113673E+01_JPRB &
+  &, 0.111901E+01_JPRB, 0.110121E+01_JPRB, 0.108346E+01_JPRB, 0.106562E+01_JPRB &
+  &, 0.104784E+01_JPRB, 0.103003E+01_JPRB, 0.101222E+01_JPRB &
+  &, 0.994472E+00_JPRB, 0.976736E+00_JPRB, 0.959040E+00_JPRB, 0.941411E+00_JPRB &
+  &, 0.923834E+00_JPRB, 0.906336E+00_JPRB, 0.888898E+00_JPRB &
+  &, 0.871548E+00_JPRB, 0.854314E+00_JPRB, 0.837173E+00_JPRB, 0.820102E+00_JPRB &
+  &, 0.803178E+00_JPRB, 0.786378E+00_JPRB, 0.769727E+00_JPRB &
+  &, 0.753199E+00_JPRB, 0.736764E+00_JPRB, 0.720559E+00_JPRB, 0.704440E+00_JPRB &
+  &, 0.688547E+00_JPRB, 0.672730E+00_JPRB, 0.657131E+00_JPRB &
+  &, 0.641716E+00_JPRB, 0.626508E+00_JPRB, 0.611471E+00_JPRB, 0.596564E+00_JPRB &
+  &, 0.581873E+00_JPRB, 0.567421E+00_JPRB, 0.553101E+00_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART116',1,ZHOOK_HANDLE)
+END SUBROUTINE PART116
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART117
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART117',0,ZHOOK_HANDLE)
+
+XCW( 813, :) = (/ &
+  &  0.108797E+01_JPRB, 0.110964E+01_JPRB, 0.113115E+01_JPRB, 0.115249E+01_JPRB &
+  &, 0.117364E+01_JPRB, 0.119459E+01_JPRB, 0.121533E+01_JPRB &
+  &, 0.123584E+01_JPRB, 0.125610E+01_JPRB, 0.127612E+01_JPRB, 0.129586E+01_JPRB &
+  &, 0.131533E+01_JPRB, 0.133450E+01_JPRB, 0.135337E+01_JPRB &
+  &, 0.137191E+01_JPRB, 0.139013E+01_JPRB, 0.140799E+01_JPRB, 0.142550E+01_JPRB &
+  &, 0.144264E+01_JPRB, 0.145940E+01_JPRB, 0.147577E+01_JPRB &
+  &, 0.149172E+01_JPRB, 0.150727E+01_JPRB, 0.152238E+01_JPRB, 0.153706E+01_JPRB &
+  &, 0.155129E+01_JPRB, 0.156506E+01_JPRB, 0.157836E+01_JPRB &
+  &, 0.159119E+01_JPRB, 0.160353E+01_JPRB, 0.161537E+01_JPRB, 0.162672E+01_JPRB &
+  &, 0.163755E+01_JPRB, 0.164786E+01_JPRB, 0.165765E+01_JPRB &
+  &, 0.166691E+01_JPRB, 0.167564E+01_JPRB, 0.168382E+01_JPRB, 0.169147E+01_JPRB &
+  &, 0.169856E+01_JPRB, 0.170510E+01_JPRB, 0.171108E+01_JPRB &
+  &, 0.171652E+01_JPRB, 0.172138E+01_JPRB, 0.172570E+01_JPRB, 0.172944E+01_JPRB &
+  &, 0.173262E+01_JPRB, 0.173524E+01_JPRB, 0.173730E+01_JPRB &
+  &, 0.173880E+01_JPRB, 0.173974E+01_JPRB, 0.174013E+01_JPRB, 0.173996E+01_JPRB &
+  &, 0.173923E+01_JPRB, 0.173796E+01_JPRB, 0.173615E+01_JPRB &
+  &, 0.173381E+01_JPRB, 0.173041E+01_JPRB, 0.172750E+01_JPRB, 0.172357E+01_JPRB &
+  &, 0.171911E+01_JPRB, 0.171414E+01_JPRB, 0.170867E+01_JPRB &
+  &, 0.170269E+01_JPRB, 0.169622E+01_JPRB, 0.168929E+01_JPRB, 0.168186E+01_JPRB &
+  &, 0.167397E+01_JPRB, 0.166564E+01_JPRB, 0.165684E+01_JPRB &
+  &, 0.164762E+01_JPRB, 0.163796E+01_JPRB, 0.162788E+01_JPRB, 0.161740E+01_JPRB &
+  &, 0.160650E+01_JPRB, 0.159523E+01_JPRB, 0.158356E+01_JPRB &
+  &, 0.157153E+01_JPRB, 0.155913E+01_JPRB, 0.154640E+01_JPRB, 0.153332E+01_JPRB &
+  &, 0.151992E+01_JPRB, 0.150620E+01_JPRB, 0.149219E+01_JPRB &
+  &, 0.147789E+01_JPRB, 0.146330E+01_JPRB, 0.144846E+01_JPRB, 0.143335E+01_JPRB &
+  &, 0.141799E+01_JPRB, 0.140239E+01_JPRB, 0.138659E+01_JPRB &
+  &, 0.137056E+01_JPRB, 0.135436E+01_JPRB, 0.133794E+01_JPRB, 0.132137E+01_JPRB &
+  &, 0.130461E+01_JPRB, 0.128773E+01_JPRB, 0.127069E+01_JPRB &
+  &, 0.125352E+01_JPRB, 0.123625E+01_JPRB, 0.121887E+01_JPRB, 0.120139E+01_JPRB &
+  &, 0.118383E+01_JPRB, 0.116621E+01_JPRB, 0.114851E+01_JPRB &
+  &, 0.113078E+01_JPRB, 0.111297E+01_JPRB, 0.109516E+01_JPRB, 0.107734E+01_JPRB &
+  &, 0.105949E+01_JPRB, 0.104165E+01_JPRB, 0.102384E+01_JPRB &
+  &, 0.100600E+01_JPRB, 0.988219E+00_JPRB, 0.970467E+00_JPRB, 0.952779E+00_JPRB &
+  &, 0.935135E+00_JPRB, 0.917566E+00_JPRB, 0.900099E+00_JPRB &
+  &, 0.882666E+00_JPRB, 0.865343E+00_JPRB, 0.848107E+00_JPRB, 0.830987E+00_JPRB &
+  &, 0.814010E+00_JPRB, 0.797097E+00_JPRB, 0.780328E+00_JPRB &
+  &, 0.763730E+00_JPRB, 0.747220E+00_JPRB, 0.730877E+00_JPRB, 0.714730E+00_JPRB &
+  &, 0.698688E+00_JPRB, 0.682774E+00_JPRB, 0.667073E+00_JPRB &
+  &, 0.651550E+00_JPRB, 0.636229E+00_JPRB, 0.621073E+00_JPRB, 0.606104E+00_JPRB &
+  &, 0.591284E+00_JPRB, 0.576696E+00_JPRB, 0.562300E+00_JPRB/)
+XCW( 814, :) = (/ &
+  &  0.108837E+01_JPRB, 0.111014E+01_JPRB, 0.113176E+01_JPRB, 0.115321E+01_JPRB &
+  &, 0.117447E+01_JPRB, 0.119553E+01_JPRB, 0.121639E+01_JPRB &
+  &, 0.123702E+01_JPRB, 0.125741E+01_JPRB, 0.127755E+01_JPRB, 0.129742E+01_JPRB &
+  &, 0.131701E+01_JPRB, 0.133631E+01_JPRB, 0.135531E+01_JPRB &
+  &, 0.137399E+01_JPRB, 0.139234E+01_JPRB, 0.141034E+01_JPRB, 0.142799E+01_JPRB &
+  &, 0.144528E+01_JPRB, 0.146217E+01_JPRB, 0.147869E+01_JPRB &
+  &, 0.149479E+01_JPRB, 0.151048E+01_JPRB, 0.152574E+01_JPRB, 0.154057E+01_JPRB &
+  &, 0.155495E+01_JPRB, 0.156887E+01_JPRB, 0.158233E+01_JPRB &
+  &, 0.159530E+01_JPRB, 0.160780E+01_JPRB, 0.161980E+01_JPRB, 0.163130E+01_JPRB &
+  &, 0.164228E+01_JPRB, 0.165275E+01_JPRB, 0.166270E+01_JPRB &
+  &, 0.167212E+01_JPRB, 0.168100E+01_JPRB, 0.168935E+01_JPRB, 0.169715E+01_JPRB &
+  &, 0.170440E+01_JPRB, 0.171110E+01_JPRB, 0.171724E+01_JPRB &
+  &, 0.172282E+01_JPRB, 0.172785E+01_JPRB, 0.173231E+01_JPRB, 0.173621E+01_JPRB &
+  &, 0.173955E+01_JPRB, 0.174232E+01_JPRB, 0.174453E+01_JPRB &
+  &, 0.174619E+01_JPRB, 0.174727E+01_JPRB, 0.174782E+01_JPRB, 0.174779E+01_JPRB &
+  &, 0.174722E+01_JPRB, 0.174610E+01_JPRB, 0.174443E+01_JPRB &
+  &, 0.174222E+01_JPRB, 0.173947E+01_JPRB, 0.173620E+01_JPRB, 0.173240E+01_JPRB &
+  &, 0.172807E+01_JPRB, 0.172323E+01_JPRB, 0.171790E+01_JPRB &
+  &, 0.171205E+01_JPRB, 0.170572E+01_JPRB, 0.169890E+01_JPRB, 0.169161E+01_JPRB &
+  &, 0.168385E+01_JPRB, 0.167561E+01_JPRB, 0.166694E+01_JPRB &
+  &, 0.165783E+01_JPRB, 0.164828E+01_JPRB, 0.163830E+01_JPRB, 0.162790E+01_JPRB &
+  &, 0.161712E+01_JPRB, 0.160593E+01_JPRB, 0.159436E+01_JPRB &
+  &, 0.158243E+01_JPRB, 0.157012E+01_JPRB, 0.155745E+01_JPRB, 0.154447E+01_JPRB &
+  &, 0.153115E+01_JPRB, 0.151752E+01_JPRB, 0.150355E+01_JPRB &
+  &, 0.148931E+01_JPRB, 0.147479E+01_JPRB, 0.145999E+01_JPRB, 0.144495E+01_JPRB &
+  &, 0.142963E+01_JPRB, 0.141409E+01_JPRB, 0.139831E+01_JPRB &
+  &, 0.138234E+01_JPRB, 0.136616E+01_JPRB, 0.134979E+01_JPRB, 0.133323E+01_JPRB &
+  &, 0.131651E+01_JPRB, 0.129963E+01_JPRB, 0.128261E+01_JPRB &
+  &, 0.126547E+01_JPRB, 0.124818E+01_JPRB, 0.123083E+01_JPRB, 0.121335E+01_JPRB &
+  &, 0.119576E+01_JPRB, 0.117811E+01_JPRB, 0.116041E+01_JPRB &
+  &, 0.114267E+01_JPRB, 0.112485E+01_JPRB, 0.110703E+01_JPRB, 0.108914E+01_JPRB &
+  &, 0.107127E+01_JPRB, 0.105339E+01_JPRB, 0.103555E+01_JPRB &
+  &, 0.101767E+01_JPRB, 0.999838E+00_JPRB, 0.982033E+00_JPRB, 0.964287E+00_JPRB &
+  &, 0.946627E+00_JPRB, 0.928989E+00_JPRB, 0.911398E+00_JPRB &
+  &, 0.893933E+00_JPRB, 0.876524E+00_JPRB, 0.859247E+00_JPRB, 0.842028E+00_JPRB &
+  &, 0.824947E+00_JPRB, 0.807977E+00_JPRB, 0.791146E+00_JPRB &
+  &, 0.774426E+00_JPRB, 0.757843E+00_JPRB, 0.741366E+00_JPRB, 0.725077E+00_JPRB &
+  &, 0.708945E+00_JPRB, 0.692996E+00_JPRB, 0.677195E+00_JPRB &
+  &, 0.661566E+00_JPRB, 0.646073E+00_JPRB, 0.630799E+00_JPRB, 0.615708E+00_JPRB &
+  &, 0.600822E+00_JPRB, 0.586101E+00_JPRB, 0.571565E+00_JPRB/)
+XCW( 815, :) = (/ &
+  &  0.108877E+01_JPRB, 0.111064E+01_JPRB, 0.113237E+01_JPRB, 0.115393E+01_JPRB &
+  &, 0.117530E+01_JPRB, 0.119648E+01_JPRB, 0.121746E+01_JPRB &
+  &, 0.123820E+01_JPRB, 0.125872E+01_JPRB, 0.127898E+01_JPRB, 0.129898E+01_JPRB &
+  &, 0.131870E+01_JPRB, 0.133814E+01_JPRB, 0.135726E+01_JPRB &
+  &, 0.137608E+01_JPRB, 0.139456E+01_JPRB, 0.141271E+01_JPRB, 0.143050E+01_JPRB &
+  &, 0.144792E+01_JPRB, 0.146496E+01_JPRB, 0.148162E+01_JPRB &
+  &, 0.149787E+01_JPRB, 0.151370E+01_JPRB, 0.152912E+01_JPRB, 0.154409E+01_JPRB &
+  &, 0.155862E+01_JPRB, 0.157270E+01_JPRB, 0.158631E+01_JPRB &
+  &, 0.159944E+01_JPRB, 0.161208E+01_JPRB, 0.162424E+01_JPRB, 0.163590E+01_JPRB &
+  &, 0.164704E+01_JPRB, 0.165767E+01_JPRB, 0.166778E+01_JPRB &
+  &, 0.167735E+01_JPRB, 0.168639E+01_JPRB, 0.169489E+01_JPRB, 0.170286E+01_JPRB &
+  &, 0.171026E+01_JPRB, 0.171712E+01_JPRB, 0.172342E+01_JPRB &
+  &, 0.172917E+01_JPRB, 0.173434E+01_JPRB, 0.173897E+01_JPRB, 0.174302E+01_JPRB &
+  &, 0.174652E+01_JPRB, 0.174945E+01_JPRB, 0.175182E+01_JPRB &
+  &, 0.175363E+01_JPRB, 0.175487E+01_JPRB, 0.175555E+01_JPRB, 0.175568E+01_JPRB &
+  &, 0.175526E+01_JPRB, 0.175428E+01_JPRB, 0.175276E+01_JPRB &
+  &, 0.175070E+01_JPRB, 0.174810E+01_JPRB, 0.174496E+01_JPRB, 0.174129E+01_JPRB &
+  &, 0.173710E+01_JPRB, 0.173240E+01_JPRB, 0.172720E+01_JPRB &
+  &, 0.172149E+01_JPRB, 0.171529E+01_JPRB, 0.170859E+01_JPRB, 0.170141E+01_JPRB &
+  &, 0.169376E+01_JPRB, 0.168566E+01_JPRB, 0.167710E+01_JPRB &
+  &, 0.166810E+01_JPRB, 0.165865E+01_JPRB, 0.164878E+01_JPRB, 0.163851E+01_JPRB &
+  &, 0.162782E+01_JPRB, 0.161672E+01_JPRB, 0.160526E+01_JPRB &
+  &, 0.159340E+01_JPRB, 0.158119E+01_JPRB, 0.156861E+01_JPRB, 0.155572E+01_JPRB &
+  &, 0.154246E+01_JPRB, 0.152889E+01_JPRB, 0.151500E+01_JPRB &
+  &, 0.150084E+01_JPRB, 0.148637E+01_JPRB, 0.147164E+01_JPRB, 0.145664E+01_JPRB &
+  &, 0.144139E+01_JPRB, 0.142588E+01_JPRB, 0.141016E+01_JPRB &
+  &, 0.139422E+01_JPRB, 0.137809E+01_JPRB, 0.136173E+01_JPRB, 0.134521E+01_JPRB &
+  &, 0.132850E+01_JPRB, 0.131166E+01_JPRB, 0.129454E+01_JPRB &
+  &, 0.127752E+01_JPRB, 0.126026E+01_JPRB, 0.124289E+01_JPRB, 0.122539E+01_JPRB &
+  &, 0.120785E+01_JPRB, 0.119017E+01_JPRB, 0.117246E+01_JPRB &
+  &, 0.115468E+01_JPRB, 0.113686E+01_JPRB, 0.111898E+01_JPRB, 0.110111E+01_JPRB &
+  &, 0.108322E+01_JPRB, 0.106527E+01_JPRB, 0.104739E+01_JPRB &
+  &, 0.102947E+01_JPRB, 0.101159E+01_JPRB, 0.993739E+00_JPRB, 0.975936E+00_JPRB &
+  &, 0.958214E+00_JPRB, 0.940508E+00_JPRB, 0.922894E+00_JPRB &
+  &, 0.905351E+00_JPRB, 0.887856E+00_JPRB, 0.870489E+00_JPRB, 0.853226E+00_JPRB &
+  &, 0.836042E+00_JPRB, 0.818964E+00_JPRB, 0.802073E+00_JPRB &
+  &, 0.785233E+00_JPRB, 0.768578E+00_JPRB, 0.752025E+00_JPRB, 0.735654E+00_JPRB &
+  &, 0.719436E+00_JPRB, 0.703335E+00_JPRB, 0.687436E+00_JPRB &
+  &, 0.671704E+00_JPRB, 0.656101E+00_JPRB, 0.640713E+00_JPRB, 0.625501E+00_JPRB &
+  &, 0.610489E+00_JPRB, 0.595636E+00_JPRB, 0.581028E+00_JPRB/)
+XCW( 816, :) = (/ &
+  &  0.108916E+01_JPRB, 0.111115E+01_JPRB, 0.113298E+01_JPRB, 0.115465E+01_JPRB &
+  &, 0.117614E+01_JPRB, 0.119744E+01_JPRB, 0.121853E+01_JPRB &
+  &, 0.123940E+01_JPRB, 0.126003E+01_JPRB, 0.128042E+01_JPRB, 0.130055E+01_JPRB &
+  &, 0.132040E+01_JPRB, 0.133996E+01_JPRB, 0.135923E+01_JPRB &
+  &, 0.137818E+01_JPRB, 0.139680E+01_JPRB, 0.141508E+01_JPRB, 0.143301E+01_JPRB &
+  &, 0.145058E+01_JPRB, 0.146776E+01_JPRB, 0.148456E+01_JPRB &
+  &, 0.150096E+01_JPRB, 0.151694E+01_JPRB, 0.153251E+01_JPRB, 0.154763E+01_JPRB &
+  &, 0.156232E+01_JPRB, 0.157654E+01_JPRB, 0.159031E+01_JPRB &
+  &, 0.160359E+01_JPRB, 0.161640E+01_JPRB, 0.162871E+01_JPRB, 0.164052E+01_JPRB &
+  &, 0.165183E+01_JPRB, 0.166261E+01_JPRB, 0.167288E+01_JPRB &
+  &, 0.168261E+01_JPRB, 0.169182E+01_JPRB, 0.170048E+01_JPRB, 0.170859E+01_JPRB &
+  &, 0.171616E+01_JPRB, 0.172318E+01_JPRB, 0.172965E+01_JPRB &
+  &, 0.173554E+01_JPRB, 0.174088E+01_JPRB, 0.174566E+01_JPRB, 0.174988E+01_JPRB &
+  &, 0.175353E+01_JPRB, 0.175662E+01_JPRB, 0.175914E+01_JPRB &
+  &, 0.176110E+01_JPRB, 0.176250E+01_JPRB, 0.176334E+01_JPRB, 0.176361E+01_JPRB &
+  &, 0.176334E+01_JPRB, 0.176252E+01_JPRB, 0.176113E+01_JPRB &
+  &, 0.175922E+01_JPRB, 0.175677E+01_JPRB, 0.175377E+01_JPRB, 0.175025E+01_JPRB &
+  &, 0.174620E+01_JPRB, 0.174164E+01_JPRB, 0.173657E+01_JPRB &
+  &, 0.173098E+01_JPRB, 0.172491E+01_JPRB, 0.171835E+01_JPRB, 0.171129E+01_JPRB &
+  &, 0.170378E+01_JPRB, 0.169579E+01_JPRB, 0.168734E+01_JPRB &
+  &, 0.167846E+01_JPRB, 0.166912E+01_JPRB, 0.165936E+01_JPRB, 0.164919E+01_JPRB &
+  &, 0.163860E+01_JPRB, 0.162761E+01_JPRB, 0.161623E+01_JPRB &
+  &, 0.160446E+01_JPRB, 0.159235E+01_JPRB, 0.157987E+01_JPRB, 0.156704E+01_JPRB &
+  &, 0.155387E+01_JPRB, 0.154039E+01_JPRB, 0.152656E+01_JPRB &
+  &, 0.151245E+01_JPRB, 0.149806E+01_JPRB, 0.148338E+01_JPRB, 0.146845E+01_JPRB &
+  &, 0.145323E+01_JPRB, 0.143780E+01_JPRB, 0.142210E+01_JPRB &
+  &, 0.140622E+01_JPRB, 0.139011E+01_JPRB, 0.137380E+01_JPRB, 0.135730E+01_JPRB &
+  &, 0.134063E+01_JPRB, 0.132379E+01_JPRB, 0.130681E+01_JPRB &
+  &, 0.128969E+01_JPRB, 0.127245E+01_JPRB, 0.125506E+01_JPRB, 0.123759E+01_JPRB &
+  &, 0.122001E+01_JPRB, 0.120234E+01_JPRB, 0.118464E+01_JPRB &
+  &, 0.116686E+01_JPRB, 0.114898E+01_JPRB, 0.113109E+01_JPRB, 0.111317E+01_JPRB &
+  &, 0.109525E+01_JPRB, 0.107732E+01_JPRB, 0.105936E+01_JPRB &
+  &, 0.104141E+01_JPRB, 0.102349E+01_JPRB, 0.100558E+01_JPRB, 0.987725E+00_JPRB &
+  &, 0.969944E+00_JPRB, 0.952173E+00_JPRB, 0.934487E+00_JPRB &
+  &, 0.916867E+00_JPRB, 0.899341E+00_JPRB, 0.881885E+00_JPRB, 0.864528E+00_JPRB &
+  &, 0.847297E+00_JPRB, 0.830166E+00_JPRB, 0.813109E+00_JPRB &
+  &, 0.796204E+00_JPRB, 0.779481E+00_JPRB, 0.762854E+00_JPRB, 0.746347E+00_JPRB &
+  &, 0.729926E+00_JPRB, 0.713852E+00_JPRB, 0.697797E+00_JPRB &
+  &, 0.681963E+00_JPRB, 0.666314E+00_JPRB, 0.650813E+00_JPRB, 0.635484E+00_JPRB &
+  &, 0.620348E+00_JPRB, 0.605365E+00_JPRB, 0.590622E+00_JPRB/)
+XCW( 817, :) = (/ &
+  &  0.108956E+01_JPRB, 0.111165E+01_JPRB, 0.113360E+01_JPRB, 0.115538E+01_JPRB &
+  &, 0.117698E+01_JPRB, 0.119839E+01_JPRB, 0.121960E+01_JPRB &
+  &, 0.124059E+01_JPRB, 0.126135E+01_JPRB, 0.128187E+01_JPRB, 0.130212E+01_JPRB &
+  &, 0.132210E+01_JPRB, 0.134180E+01_JPRB, 0.136120E+01_JPRB &
+  &, 0.138028E+01_JPRB, 0.139904E+01_JPRB, 0.141746E+01_JPRB, 0.143554E+01_JPRB &
+  &, 0.145324E+01_JPRB, 0.147057E+01_JPRB, 0.148752E+01_JPRB &
+  &, 0.150407E+01_JPRB, 0.152020E+01_JPRB, 0.153591E+01_JPRB, 0.155119E+01_JPRB &
+  &, 0.156603E+01_JPRB, 0.158041E+01_JPRB, 0.159433E+01_JPRB &
+  &, 0.160777E+01_JPRB, 0.162073E+01_JPRB, 0.163320E+01_JPRB, 0.164517E+01_JPRB &
+  &, 0.165663E+01_JPRB, 0.166758E+01_JPRB, 0.167801E+01_JPRB &
+  &, 0.168790E+01_JPRB, 0.169726E+01_JPRB, 0.170609E+01_JPRB, 0.171437E+01_JPRB &
+  &, 0.172210E+01_JPRB, 0.172928E+01_JPRB, 0.173590E+01_JPRB &
+  &, 0.174196E+01_JPRB, 0.174746E+01_JPRB, 0.175240E+01_JPRB, 0.175677E+01_JPRB &
+  &, 0.176059E+01_JPRB, 0.176383E+01_JPRB, 0.176651E+01_JPRB &
+  &, 0.176853E+01_JPRB, 0.177018E+01_JPRB, 0.177117E+01_JPRB, 0.177160E+01_JPRB &
+  &, 0.177147E+01_JPRB, 0.177081E+01_JPRB, 0.176958E+01_JPRB &
+  &, 0.176781E+01_JPRB, 0.176549E+01_JPRB, 0.176264E+01_JPRB, 0.175927E+01_JPRB &
+  &, 0.175535E+01_JPRB, 0.175092E+01_JPRB, 0.174600E+01_JPRB &
+  &, 0.174054E+01_JPRB, 0.173460E+01_JPRB, 0.172817E+01_JPRB, 0.172125E+01_JPRB &
+  &, 0.171385E+01_JPRB, 0.170598E+01_JPRB, 0.169767E+01_JPRB &
+  &, 0.168887E+01_JPRB, 0.167967E+01_JPRB, 0.167002E+01_JPRB, 0.165994E+01_JPRB &
+  &, 0.164946E+01_JPRB, 0.163857E+01_JPRB, 0.162729E+01_JPRB &
+  &, 0.161563E+01_JPRB, 0.160359E+01_JPRB, 0.159120E+01_JPRB, 0.157844E+01_JPRB &
+  &, 0.156537E+01_JPRB, 0.155194E+01_JPRB, 0.153823E+01_JPRB &
+  &, 0.152418E+01_JPRB, 0.150986E+01_JPRB, 0.149523E+01_JPRB, 0.148034E+01_JPRB &
+  &, 0.146520E+01_JPRB, 0.144980E+01_JPRB, 0.143417E+01_JPRB &
+  &, 0.141832E+01_JPRB, 0.140226E+01_JPRB, 0.138598E+01_JPRB, 0.136952E+01_JPRB &
+  &, 0.135286E+01_JPRB, 0.133606E+01_JPRB, 0.131909E+01_JPRB &
+  &, 0.130199E+01_JPRB, 0.128475E+01_JPRB, 0.126738E+01_JPRB, 0.124989E+01_JPRB &
+  &, 0.123233E+01_JPRB, 0.121467E+01_JPRB, 0.119693E+01_JPRB &
+  &, 0.117911E+01_JPRB, 0.116127E+01_JPRB, 0.114333E+01_JPRB, 0.112539E+01_JPRB &
+  &, 0.110745E+01_JPRB, 0.108945E+01_JPRB, 0.107147E+01_JPRB &
+  &, 0.105348E+01_JPRB, 0.103551E+01_JPRB, 0.101757E+01_JPRB, 0.999656E+00_JPRB &
+  &, 0.981818E+00_JPRB, 0.963983E+00_JPRB, 0.946229E+00_JPRB &
+  &, 0.928584E+00_JPRB, 0.910876E+00_JPRB, 0.893435E+00_JPRB, 0.875986E+00_JPRB &
+  &, 0.858656E+00_JPRB, 0.841421E+00_JPRB, 0.824362E+00_JPRB &
+  &, 0.807341E+00_JPRB, 0.790496E+00_JPRB, 0.773796E+00_JPRB, 0.757212E+00_JPRB &
+  &, 0.740767E+00_JPRB, 0.724487E+00_JPRB, 0.708338E+00_JPRB &
+  &, 0.692404E+00_JPRB, 0.676588E+00_JPRB, 0.660976E+00_JPRB, 0.645529E+00_JPRB &
+  &, 0.630271E+00_JPRB, 0.615224E+00_JPRB, 0.600347E+00_JPRB/)
+XCW( 818, :) = (/ &
+  &  0.108996E+01_JPRB, 0.111216E+01_JPRB, 0.113421E+01_JPRB, 0.115610E+01_JPRB &
+  &, 0.117782E+01_JPRB, 0.119935E+01_JPRB, 0.122068E+01_JPRB &
+  &, 0.124179E+01_JPRB, 0.126268E+01_JPRB, 0.128332E+01_JPRB, 0.130370E+01_JPRB &
+  &, 0.132381E+01_JPRB, 0.134364E+01_JPRB, 0.136318E+01_JPRB &
+  &, 0.138240E+01_JPRB, 0.140130E+01_JPRB, 0.141986E+01_JPRB, 0.143807E+01_JPRB &
+  &, 0.145592E+01_JPRB, 0.147340E+01_JPRB, 0.149049E+01_JPRB &
+  &, 0.150719E+01_JPRB, 0.152347E+01_JPRB, 0.153934E+01_JPRB, 0.155477E+01_JPRB &
+  &, 0.156976E+01_JPRB, 0.158430E+01_JPRB, 0.159837E+01_JPRB &
+  &, 0.161197E+01_JPRB, 0.162509E+01_JPRB, 0.163771E+01_JPRB, 0.164984E+01_JPRB &
+  &, 0.166147E+01_JPRB, 0.167257E+01_JPRB, 0.168316E+01_JPRB &
+  &, 0.169322E+01_JPRB, 0.170275E+01_JPRB, 0.171173E+01_JPRB, 0.172017E+01_JPRB &
+  &, 0.172806E+01_JPRB, 0.173540E+01_JPRB, 0.174219E+01_JPRB &
+  &, 0.174841E+01_JPRB, 0.175407E+01_JPRB, 0.175917E+01_JPRB, 0.176371E+01_JPRB &
+  &, 0.176768E+01_JPRB, 0.177108E+01_JPRB, 0.177392E+01_JPRB &
+  &, 0.177620E+01_JPRB, 0.177791E+01_JPRB, 0.177905E+01_JPRB, 0.177963E+01_JPRB &
+  &, 0.177967E+01_JPRB, 0.177915E+01_JPRB, 0.177806E+01_JPRB &
+  &, 0.177642E+01_JPRB, 0.177428E+01_JPRB, 0.177158E+01_JPRB, 0.176834E+01_JPRB &
+  &, 0.176457E+01_JPRB, 0.176028E+01_JPRB, 0.175549E+01_JPRB &
+  &, 0.175018E+01_JPRB, 0.174437E+01_JPRB, 0.173807E+01_JPRB, 0.173126E+01_JPRB &
+  &, 0.172399E+01_JPRB, 0.171625E+01_JPRB, 0.170806E+01_JPRB &
+  &, 0.169940E+01_JPRB, 0.169029E+01_JPRB, 0.168075E+01_JPRB, 0.167080E+01_JPRB &
+  &, 0.166040E+01_JPRB, 0.164963E+01_JPRB, 0.163845E+01_JPRB &
+  &, 0.162689E+01_JPRB, 0.161493E+01_JPRB, 0.160264E+01_JPRB, 0.158997E+01_JPRB &
+  &, 0.157696E+01_JPRB, 0.156363E+01_JPRB, 0.154998E+01_JPRB &
+  &, 0.153601E+01_JPRB, 0.152175E+01_JPRB, 0.150720E+01_JPRB, 0.149236E+01_JPRB &
+  &, 0.147729E+01_JPRB, 0.146193E+01_JPRB, 0.144636E+01_JPRB &
+  &, 0.143054E+01_JPRB, 0.141451E+01_JPRB, 0.139828E+01_JPRB, 0.138184E+01_JPRB &
+  &, 0.136523E+01_JPRB, 0.134844E+01_JPRB, 0.133150E+01_JPRB &
+  &, 0.131441E+01_JPRB, 0.129716E+01_JPRB, 0.127982E+01_JPRB, 0.126234E+01_JPRB &
+  &, 0.124477E+01_JPRB, 0.122711E+01_JPRB, 0.120934E+01_JPRB &
+  &, 0.119152E+01_JPRB, 0.117364E+01_JPRB, 0.115574E+01_JPRB, 0.113775E+01_JPRB &
+  &, 0.111979E+01_JPRB, 0.110176E+01_JPRB, 0.108375E+01_JPRB &
+  &, 0.106573E+01_JPRB, 0.104768E+01_JPRB, 0.102973E+01_JPRB, 0.101177E+01_JPRB &
+  &, 0.993834E+00_JPRB, 0.975938E+00_JPRB, 0.958166E+00_JPRB &
+  &, 0.940399E+00_JPRB, 0.922715E+00_JPRB, 0.905140E+00_JPRB, 0.887601E+00_JPRB &
+  &, 0.870228E+00_JPRB, 0.852891E+00_JPRB, 0.835723E+00_JPRB &
+  &, 0.818644E+00_JPRB, 0.801678E+00_JPRB, 0.784852E+00_JPRB, 0.768191E+00_JPRB &
+  &, 0.751665E+00_JPRB, 0.735299E+00_JPRB, 0.719058E+00_JPRB &
+  &, 0.702966E+00_JPRB, 0.687109E+00_JPRB, 0.671389E+00_JPRB, 0.655828E+00_JPRB &
+  &, 0.640450E+00_JPRB, 0.625277E+00_JPRB, 0.610269E+00_JPRB/)
+XCW( 819, :) = (/ &
+  &  0.109036E+01_JPRB, 0.111267E+01_JPRB, 0.113483E+01_JPRB, 0.115684E+01_JPRB &
+  &, 0.117867E+01_JPRB, 0.120032E+01_JPRB, 0.122177E+01_JPRB &
+  &, 0.124300E+01_JPRB, 0.126401E+01_JPRB, 0.128478E+01_JPRB, 0.130529E+01_JPRB &
+  &, 0.132553E+01_JPRB, 0.134549E+01_JPRB, 0.136516E+01_JPRB &
+  &, 0.138452E+01_JPRB, 0.140356E+01_JPRB, 0.142226E+01_JPRB, 0.144062E+01_JPRB &
+  &, 0.145862E+01_JPRB, 0.147624E+01_JPRB, 0.149348E+01_JPRB &
+  &, 0.151032E+01_JPRB, 0.152675E+01_JPRB, 0.154278E+01_JPRB, 0.155836E+01_JPRB &
+  &, 0.157351E+01_JPRB, 0.158820E+01_JPRB, 0.160243E+01_JPRB &
+  &, 0.161619E+01_JPRB, 0.162946E+01_JPRB, 0.164225E+01_JPRB, 0.165454E+01_JPRB &
+  &, 0.166633E+01_JPRB, 0.167759E+01_JPRB, 0.168835E+01_JPRB &
+  &, 0.169857E+01_JPRB, 0.170825E+01_JPRB, 0.171740E+01_JPRB, 0.172601E+01_JPRB &
+  &, 0.173407E+01_JPRB, 0.174157E+01_JPRB, 0.174851E+01_JPRB &
+  &, 0.175490E+01_JPRB, 0.176073E+01_JPRB, 0.176599E+01_JPRB, 0.177069E+01_JPRB &
+  &, 0.177482E+01_JPRB, 0.177838E+01_JPRB, 0.178139E+01_JPRB &
+  &, 0.178381E+01_JPRB, 0.178569E+01_JPRB, 0.178698E+01_JPRB, 0.178772E+01_JPRB &
+  &, 0.178792E+01_JPRB, 0.178754E+01_JPRB, 0.178662E+01_JPRB &
+  &, 0.178515E+01_JPRB, 0.178313E+01_JPRB, 0.178057E+01_JPRB, 0.177747E+01_JPRB &
+  &, 0.177385E+01_JPRB, 0.176971E+01_JPRB, 0.176504E+01_JPRB &
+  &, 0.175987E+01_JPRB, 0.175420E+01_JPRB, 0.174802E+01_JPRB, 0.174137E+01_JPRB &
+  &, 0.173422E+01_JPRB, 0.172660E+01_JPRB, 0.171853E+01_JPRB &
+  &, 0.170998E+01_JPRB, 0.170099E+01_JPRB, 0.169156E+01_JPRB, 0.168173E+01_JPRB &
+  &, 0.167144E+01_JPRB, 0.166077E+01_JPRB, 0.164968E+01_JPRB &
+  &, 0.163822E+01_JPRB, 0.162636E+01_JPRB, 0.161415E+01_JPRB, 0.160158E+01_JPRB &
+  &, 0.158867E+01_JPRB, 0.157540E+01_JPRB, 0.156184E+01_JPRB &
+  &, 0.154793E+01_JPRB, 0.153375E+01_JPRB, 0.151925E+01_JPRB, 0.150449E+01_JPRB &
+  &, 0.148946E+01_JPRB, 0.147417E+01_JPRB, 0.145865E+01_JPRB &
+  &, 0.144289E+01_JPRB, 0.142689E+01_JPRB, 0.141068E+01_JPRB, 0.139430E+01_JPRB &
+  &, 0.137770E+01_JPRB, 0.136095E+01_JPRB, 0.134402E+01_JPRB &
+  &, 0.132693E+01_JPRB, 0.130971E+01_JPRB, 0.129236E+01_JPRB, 0.127491E+01_JPRB &
+  &, 0.125735E+01_JPRB, 0.123968E+01_JPRB, 0.122192E+01_JPRB &
+  &, 0.120410E+01_JPRB, 0.118618E+01_JPRB, 0.116827E+01_JPRB, 0.115026E+01_JPRB &
+  &, 0.113225E+01_JPRB, 0.111421E+01_JPRB, 0.109612E+01_JPRB &
+  &, 0.107807E+01_JPRB, 0.106003E+01_JPRB, 0.104199E+01_JPRB, 0.102399E+01_JPRB &
+  &, 0.100599E+01_JPRB, 0.988087E+00_JPRB, 0.970202E+00_JPRB &
+  &, 0.952365E+00_JPRB, 0.934654E+00_JPRB, 0.916947E+00_JPRB, 0.899371E+00_JPRB &
+  &, 0.881904E+00_JPRB, 0.864521E+00_JPRB, 0.847248E+00_JPRB &
+  &, 0.830057E+00_JPRB, 0.813028E+00_JPRB, 0.796134E+00_JPRB, 0.779343E+00_JPRB &
+  &, 0.762739E+00_JPRB, 0.746230E+00_JPRB, 0.729898E+00_JPRB &
+  &, 0.713711E+00_JPRB, 0.697753E+00_JPRB, 0.681863E+00_JPRB, 0.666253E+00_JPRB &
+  &, 0.650757E+00_JPRB, 0.635461E+00_JPRB, 0.620323E+00_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART117',1,ZHOOK_HANDLE)
+END SUBROUTINE PART117
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART118
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART118',0,ZHOOK_HANDLE)
+
+XCW( 820, :) = (/ &
+  &  0.109077E+01_JPRB, 0.111318E+01_JPRB, 0.113545E+01_JPRB, 0.115757E+01_JPRB &
+  &, 0.117952E+01_JPRB, 0.120129E+01_JPRB, 0.122285E+01_JPRB &
+  &, 0.124421E+01_JPRB, 0.126535E+01_JPRB, 0.128624E+01_JPRB, 0.130688E+01_JPRB &
+  &, 0.132726E+01_JPRB, 0.134735E+01_JPRB, 0.136716E+01_JPRB &
+  &, 0.138666E+01_JPRB, 0.140583E+01_JPRB, 0.142468E+01_JPRB, 0.144318E+01_JPRB &
+  &, 0.146132E+01_JPRB, 0.147909E+01_JPRB, 0.149648E+01_JPRB &
+  &, 0.151347E+01_JPRB, 0.153006E+01_JPRB, 0.154623E+01_JPRB, 0.156197E+01_JPRB &
+  &, 0.157727E+01_JPRB, 0.159212E+01_JPRB, 0.160651E+01_JPRB &
+  &, 0.162043E+01_JPRB, 0.163387E+01_JPRB, 0.164681E+01_JPRB, 0.165927E+01_JPRB &
+  &, 0.167121E+01_JPRB, 0.168265E+01_JPRB, 0.169356E+01_JPRB &
+  &, 0.170394E+01_JPRB, 0.171379E+01_JPRB, 0.172310E+01_JPRB, 0.173187E+01_JPRB &
+  &, 0.174010E+01_JPRB, 0.174776E+01_JPRB, 0.175488E+01_JPRB &
+  &, 0.176143E+01_JPRB, 0.176742E+01_JPRB, 0.177284E+01_JPRB, 0.177771E+01_JPRB &
+  &, 0.178200E+01_JPRB, 0.178573E+01_JPRB, 0.178889E+01_JPRB &
+  &, 0.179148E+01_JPRB, 0.179351E+01_JPRB, 0.179497E+01_JPRB, 0.179587E+01_JPRB &
+  &, 0.179621E+01_JPRB, 0.179599E+01_JPRB, 0.179522E+01_JPRB &
+  &, 0.179390E+01_JPRB, 0.179204E+01_JPRB, 0.178962E+01_JPRB, 0.178668E+01_JPRB &
+  &, 0.178321E+01_JPRB, 0.177920E+01_JPRB, 0.177468E+01_JPRB &
+  &, 0.176963E+01_JPRB, 0.176411E+01_JPRB, 0.175807E+01_JPRB, 0.175152E+01_JPRB &
+  &, 0.174451E+01_JPRB, 0.173703E+01_JPRB, 0.172906E+01_JPRB &
+  &, 0.172065E+01_JPRB, 0.171177E+01_JPRB, 0.170246E+01_JPRB, 0.169272E+01_JPRB &
+  &, 0.168257E+01_JPRB, 0.167199E+01_JPRB, 0.166102E+01_JPRB &
+  &, 0.164965E+01_JPRB, 0.163790E+01_JPRB, 0.162576E+01_JPRB, 0.161330E+01_JPRB &
+  &, 0.160045E+01_JPRB, 0.158728E+01_JPRB, 0.157378E+01_JPRB &
+  &, 0.155996E+01_JPRB, 0.154584E+01_JPRB, 0.153142E+01_JPRB, 0.151671E+01_JPRB &
+  &, 0.150176E+01_JPRB, 0.148651E+01_JPRB, 0.147103E+01_JPRB &
+  &, 0.145533E+01_JPRB, 0.143936E+01_JPRB, 0.142321E+01_JPRB, 0.140685E+01_JPRB &
+  &, 0.139031E+01_JPRB, 0.137357E+01_JPRB, 0.135668E+01_JPRB &
+  &, 0.133959E+01_JPRB, 0.132241E+01_JPRB, 0.130509E+01_JPRB, 0.128763E+01_JPRB &
+  &, 0.127005E+01_JPRB, 0.125239E+01_JPRB, 0.123460E+01_JPRB &
+  &, 0.121676E+01_JPRB, 0.119888E+01_JPRB, 0.118092E+01_JPRB, 0.116274E+01_JPRB &
+  &, 0.114484E+01_JPRB, 0.112678E+01_JPRB, 0.110867E+01_JPRB &
+  &, 0.109058E+01_JPRB, 0.107247E+01_JPRB, 0.105439E+01_JPRB, 0.103634E+01_JPRB &
+  &, 0.101834E+01_JPRB, 0.100033E+01_JPRB, 0.982385E+00_JPRB &
+  &, 0.964530E+00_JPRB, 0.946695E+00_JPRB, 0.928959E+00_JPRB, 0.911298E+00_JPRB &
+  &, 0.893740E+00_JPRB, 0.876259E+00_JPRB, 0.858936E+00_JPRB &
+  &, 0.841690E+00_JPRB, 0.824546E+00_JPRB, 0.807530E+00_JPRB, 0.790668E+00_JPRB &
+  &, 0.773929E+00_JPRB, 0.757337E+00_JPRB, 0.740918E+00_JPRB &
+  &, 0.724638E+00_JPRB, 0.708519E+00_JPRB, 0.692587E+00_JPRB, 0.676804E+00_JPRB &
+  &, 0.661192E+00_JPRB, 0.645774E+00_JPRB, 0.630508E+00_JPRB/)
+XCW( 821, :) = (/ &
+  &  0.109117E+01_JPRB, 0.111369E+01_JPRB, 0.113608E+01_JPRB, 0.115831E+01_JPRB &
+  &, 0.118037E+01_JPRB, 0.120226E+01_JPRB, 0.122395E+01_JPRB &
+  &, 0.124543E+01_JPRB, 0.126669E+01_JPRB, 0.128771E+01_JPRB, 0.130848E+01_JPRB &
+  &, 0.132899E+01_JPRB, 0.134922E+01_JPRB, 0.136916E+01_JPRB &
+  &, 0.138880E+01_JPRB, 0.140812E+01_JPRB, 0.142711E+01_JPRB, 0.144575E+01_JPRB &
+  &, 0.146404E+01_JPRB, 0.148196E+01_JPRB, 0.149950E+01_JPRB &
+  &, 0.151664E+01_JPRB, 0.153338E+01_JPRB, 0.154971E+01_JPRB, 0.156560E+01_JPRB &
+  &, 0.158106E+01_JPRB, 0.159607E+01_JPRB, 0.161061E+01_JPRB &
+  &, 0.162469E+01_JPRB, 0.163829E+01_JPRB, 0.165140E+01_JPRB, 0.166402E+01_JPRB &
+  &, 0.167613E+01_JPRB, 0.168772E+01_JPRB, 0.169880E+01_JPRB &
+  &, 0.170935E+01_JPRB, 0.171876E+01_JPRB, 0.172884E+01_JPRB, 0.173778E+01_JPRB &
+  &, 0.174616E+01_JPRB, 0.175400E+01_JPRB, 0.176128E+01_JPRB &
+  &, 0.176799E+01_JPRB, 0.177416E+01_JPRB, 0.177974E+01_JPRB, 0.178477E+01_JPRB &
+  &, 0.178923E+01_JPRB, 0.179312E+01_JPRB, 0.179643E+01_JPRB &
+  &, 0.179919E+01_JPRB, 0.180138E+01_JPRB, 0.180300E+01_JPRB, 0.180407E+01_JPRB &
+  &, 0.180455E+01_JPRB, 0.180449E+01_JPRB, 0.180388E+01_JPRB &
+  &, 0.180271E+01_JPRB, 0.180100E+01_JPRB, 0.179874E+01_JPRB, 0.179594E+01_JPRB &
+  &, 0.179261E+01_JPRB, 0.178875E+01_JPRB, 0.178437E+01_JPRB &
+  &, 0.177949E+01_JPRB, 0.177407E+01_JPRB, 0.176817E+01_JPRB, 0.176177E+01_JPRB &
+  &, 0.175488E+01_JPRB, 0.174752E+01_JPRB, 0.173969E+01_JPRB &
+  &, 0.173139E+01_JPRB, 0.172265E+01_JPRB, 0.171346E+01_JPRB, 0.170383E+01_JPRB &
+  &, 0.169377E+01_JPRB, 0.168330E+01_JPRB, 0.167244E+01_JPRB &
+  &, 0.166108E+01_JPRB, 0.164951E+01_JPRB, 0.163747E+01_JPRB, 0.162508E+01_JPRB &
+  &, 0.161234E+01_JPRB, 0.159926E+01_JPRB, 0.158583E+01_JPRB &
+  &, 0.157210E+01_JPRB, 0.155804E+01_JPRB, 0.154371E+01_JPRB, 0.152905E+01_JPRB &
+  &, 0.151415E+01_JPRB, 0.149898E+01_JPRB, 0.148356E+01_JPRB &
+  &, 0.146787E+01_JPRB, 0.145197E+01_JPRB, 0.143585E+01_JPRB, 0.141954E+01_JPRB &
+  &, 0.140301E+01_JPRB, 0.138633E+01_JPRB, 0.136945E+01_JPRB &
+  &, 0.135240E+01_JPRB, 0.133522E+01_JPRB, 0.131789E+01_JPRB, 0.130046E+01_JPRB &
+  &, 0.128287E+01_JPRB, 0.126523E+01_JPRB, 0.124745E+01_JPRB &
+  &, 0.122961E+01_JPRB, 0.121166E+01_JPRB, 0.119370E+01_JPRB, 0.117568E+01_JPRB &
+  &, 0.115760E+01_JPRB, 0.113948E+01_JPRB, 0.112135E+01_JPRB &
+  &, 0.110324E+01_JPRB, 0.108509E+01_JPRB, 0.106698E+01_JPRB, 0.104888E+01_JPRB &
+  &, 0.103079E+01_JPRB, 0.101258E+01_JPRB, 0.994765E+00_JPRB &
+  &, 0.976795E+00_JPRB, 0.958939E+00_JPRB, 0.941125E+00_JPRB, 0.923381E+00_JPRB &
+  &, 0.905734E+00_JPRB, 0.888211E+00_JPRB, 0.870787E+00_JPRB &
+  &, 0.853434E+00_JPRB, 0.836232E+00_JPRB, 0.819096E+00_JPRB, 0.802165E+00_JPRB &
+  &, 0.785352E+00_JPRB, 0.768622E+00_JPRB, 0.752118E+00_JPRB &
+  &, 0.735686E+00_JPRB, 0.719471E+00_JPRB, 0.703436E+00_JPRB, 0.687545E+00_JPRB &
+  &, 0.671819E+00_JPRB, 0.656281E+00_JPRB, 0.640891E+00_JPRB/)
+XCW( 822, :) = (/ &
+  &  0.109158E+01_JPRB, 0.111421E+01_JPRB, 0.113670E+01_JPRB, 0.115905E+01_JPRB &
+  &, 0.118123E+01_JPRB, 0.120323E+01_JPRB, 0.122504E+01_JPRB &
+  &, 0.124665E+01_JPRB, 0.126803E+01_JPRB, 0.128919E+01_JPRB, 0.131009E+01_JPRB &
+  &, 0.133073E+01_JPRB, 0.135110E+01_JPRB, 0.137118E+01_JPRB &
+  &, 0.139095E+01_JPRB, 0.141041E+01_JPRB, 0.142954E+01_JPRB, 0.144833E+01_JPRB &
+  &, 0.146677E+01_JPRB, 0.148484E+01_JPRB, 0.150253E+01_JPRB &
+  &, 0.151982E+01_JPRB, 0.153672E+01_JPRB, 0.155320E+01_JPRB, 0.156925E+01_JPRB &
+  &, 0.158486E+01_JPRB, 0.160003E+01_JPRB, 0.161474E+01_JPRB &
+  &, 0.162898E+01_JPRB, 0.164274E+01_JPRB, 0.165601E+01_JPRB, 0.166879E+01_JPRB &
+  &, 0.168106E+01_JPRB, 0.169283E+01_JPRB, 0.170407E+01_JPRB &
+  &, 0.171478E+01_JPRB, 0.172497E+01_JPRB, 0.173461E+01_JPRB, 0.174371E+01_JPRB &
+  &, 0.175227E+01_JPRB, 0.176027E+01_JPRB, 0.176772E+01_JPRB &
+  &, 0.177460E+01_JPRB, 0.178092E+01_JPRB, 0.178668E+01_JPRB, 0.179187E+01_JPRB &
+  &, 0.179649E+01_JPRB, 0.180055E+01_JPRB, 0.180404E+01_JPRB &
+  &, 0.180695E+01_JPRB, 0.180931E+01_JPRB, 0.181109E+01_JPRB, 0.181231E+01_JPRB &
+  &, 0.181296E+01_JPRB, 0.181306E+01_JPRB, 0.181260E+01_JPRB &
+  &, 0.181159E+01_JPRB, 0.181002E+01_JPRB, 0.180791E+01_JPRB, 0.180527E+01_JPRB &
+  &, 0.180208E+01_JPRB, 0.179837E+01_JPRB, 0.179413E+01_JPRB &
+  &, 0.178938E+01_JPRB, 0.178412E+01_JPRB, 0.177835E+01_JPRB, 0.177210E+01_JPRB &
+  &, 0.176533E+01_JPRB, 0.175810E+01_JPRB, 0.175039E+01_JPRB &
+  &, 0.174223E+01_JPRB, 0.173361E+01_JPRB, 0.172453E+01_JPRB, 0.171500E+01_JPRB &
+  &, 0.170508E+01_JPRB, 0.169473E+01_JPRB, 0.168396E+01_JPRB &
+  &, 0.167278E+01_JPRB, 0.166124E+01_JPRB, 0.164929E+01_JPRB, 0.163700E+01_JPRB &
+  &, 0.162433E+01_JPRB, 0.161133E+01_JPRB, 0.159799E+01_JPRB &
+  &, 0.158433E+01_JPRB, 0.157036E+01_JPRB, 0.155608E+01_JPRB, 0.154151E+01_JPRB &
+  &, 0.152666E+01_JPRB, 0.151156E+01_JPRB, 0.149613E+01_JPRB &
+  &, 0.148057E+01_JPRB, 0.146470E+01_JPRB, 0.144864E+01_JPRB, 0.143233E+01_JPRB &
+  &, 0.141586E+01_JPRB, 0.139919E+01_JPRB, 0.138236E+01_JPRB &
+  &, 0.136532E+01_JPRB, 0.134817E+01_JPRB, 0.133084E+01_JPRB, 0.131340E+01_JPRB &
+  &, 0.129583E+01_JPRB, 0.127818E+01_JPRB, 0.126042E+01_JPRB &
+  &, 0.124255E+01_JPRB, 0.122464E+01_JPRB, 0.120664E+01_JPRB, 0.118858E+01_JPRB &
+  &, 0.117049E+01_JPRB, 0.115235E+01_JPRB, 0.113420E+01_JPRB &
+  &, 0.111603E+01_JPRB, 0.109785E+01_JPRB, 0.107970E+01_JPRB, 0.106156E+01_JPRB &
+  &, 0.104342E+01_JPRB, 0.102531E+01_JPRB, 0.100724E+01_JPRB &
+  &, 0.989259E+00_JPRB, 0.971334E+00_JPRB, 0.953445E+00_JPRB, 0.935621E+00_JPRB &
+  &, 0.917939E+00_JPRB, 0.900217E+00_JPRB, 0.882747E+00_JPRB &
+  &, 0.865343E+00_JPRB, 0.848029E+00_JPRB, 0.830832E+00_JPRB, 0.813777E+00_JPRB &
+  &, 0.796892E+00_JPRB, 0.780084E+00_JPRB, 0.763437E+00_JPRB &
+  &, 0.746977E+00_JPRB, 0.730606E+00_JPRB, 0.714472E+00_JPRB, 0.698412E+00_JPRB &
+  &, 0.682574E+00_JPRB, 0.666919E+00_JPRB, 0.651470E+00_JPRB/)
+XCW( 823, :) = (/ &
+  &  0.109199E+01_JPRB, 0.111472E+01_JPRB, 0.113733E+01_JPRB, 0.115979E+01_JPRB &
+  &, 0.118209E+01_JPRB, 0.120421E+01_JPRB, 0.122615E+01_JPRB &
+  &, 0.124788E+01_JPRB, 0.126939E+01_JPRB, 0.129067E+01_JPRB, 0.131170E+01_JPRB &
+  &, 0.133248E+01_JPRB, 0.135298E+01_JPRB, 0.137320E+01_JPRB &
+  &, 0.139312E+01_JPRB, 0.141272E+01_JPRB, 0.143200E+01_JPRB, 0.145093E+01_JPRB &
+  &, 0.146951E+01_JPRB, 0.148773E+01_JPRB, 0.150557E+01_JPRB &
+  &, 0.152302E+01_JPRB, 0.154007E+01_JPRB, 0.155671E+01_JPRB, 0.157292E+01_JPRB &
+  &, 0.158869E+01_JPRB, 0.160401E+01_JPRB, 0.161888E+01_JPRB &
+  &, 0.163329E+01_JPRB, 0.164721E+01_JPRB, 0.166065E+01_JPRB, 0.167359E+01_JPRB &
+  &, 0.168603E+01_JPRB, 0.169796E+01_JPRB, 0.170937E+01_JPRB &
+  &, 0.172025E+01_JPRB, 0.173060E+01_JPRB, 0.174041E+01_JPRB, 0.174969E+01_JPRB &
+  &, 0.175841E+01_JPRB, 0.176657E+01_JPRB, 0.177419E+01_JPRB &
+  &, 0.178124E+01_JPRB, 0.178773E+01_JPRB, 0.179366E+01_JPRB, 0.179902E+01_JPRB &
+  &, 0.180381E+01_JPRB, 0.180803E+01_JPRB, 0.181168E+01_JPRB &
+  &, 0.181477E+01_JPRB, 0.181727E+01_JPRB, 0.181922E+01_JPRB, 0.182061E+01_JPRB &
+  &, 0.182142E+01_JPRB, 0.182168E+01_JPRB, 0.182137E+01_JPRB &
+  &, 0.182051E+01_JPRB, 0.181911E+01_JPRB, 0.181716E+01_JPRB, 0.181465E+01_JPRB &
+  &, 0.181162E+01_JPRB, 0.180806E+01_JPRB, 0.180397E+01_JPRB &
+  &, 0.179936E+01_JPRB, 0.179423E+01_JPRB, 0.178861E+01_JPRB, 0.178248E+01_JPRB &
+  &, 0.177586E+01_JPRB, 0.176875E+01_JPRB, 0.176119E+01_JPRB &
+  &, 0.175313E+01_JPRB, 0.174463E+01_JPRB, 0.173568E+01_JPRB, 0.172629E+01_JPRB &
+  &, 0.171646E+01_JPRB, 0.170622E+01_JPRB, 0.169555E+01_JPRB &
+  &, 0.168450E+01_JPRB, 0.167305E+01_JPRB, 0.166120E+01_JPRB, 0.164900E+01_JPRB &
+  &, 0.163643E+01_JPRB, 0.162353E+01_JPRB, 0.161026E+01_JPRB &
+  &, 0.159669E+01_JPRB, 0.158278E+01_JPRB, 0.156857E+01_JPRB, 0.155408E+01_JPRB &
+  &, 0.153928E+01_JPRB, 0.152424E+01_JPRB, 0.150891E+01_JPRB &
+  &, 0.149336E+01_JPRB, 0.147756E+01_JPRB, 0.146150E+01_JPRB, 0.144529E+01_JPRB &
+  &, 0.142884E+01_JPRB, 0.141219E+01_JPRB, 0.139537E+01_JPRB &
+  &, 0.137837E+01_JPRB, 0.136123E+01_JPRB, 0.134394E+01_JPRB, 0.132649E+01_JPRB &
+  &, 0.130896E+01_JPRB, 0.129128E+01_JPRB, 0.127354E+01_JPRB &
+  &, 0.125565E+01_JPRB, 0.123771E+01_JPRB, 0.121971E+01_JPRB, 0.120165E+01_JPRB &
+  &, 0.118355E+01_JPRB, 0.116536E+01_JPRB, 0.114719E+01_JPRB &
+  &, 0.112899E+01_JPRB, 0.111079E+01_JPRB, 0.109256E+01_JPRB, 0.107439E+01_JPRB &
+  &, 0.105620E+01_JPRB, 0.103804E+01_JPRB, 0.101992E+01_JPRB &
+  &, 0.100187E+01_JPRB, 0.983881E+00_JPRB, 0.965920E+00_JPRB, 0.948068E+00_JPRB &
+  &, 0.930250E+00_JPRB, 0.912544E+00_JPRB, 0.894924E+00_JPRB &
+  &, 0.877417E+00_JPRB, 0.860050E+00_JPRB, 0.842738E+00_JPRB, 0.825619E+00_JPRB &
+  &, 0.808606E+00_JPRB, 0.791723E+00_JPRB, 0.774936E+00_JPRB &
+  &, 0.758328E+00_JPRB, 0.741927E+00_JPRB, 0.725633E+00_JPRB, 0.709532E+00_JPRB &
+  &, 0.693585E+00_JPRB, 0.677751E+00_JPRB, 0.662181E+00_JPRB/)
+XCW( 824, :) = (/ &
+  &  0.109240E+01_JPRB, 0.111524E+01_JPRB, 0.113796E+01_JPRB, 0.116054E+01_JPRB &
+  &, 0.118295E+01_JPRB, 0.120520E+01_JPRB, 0.122725E+01_JPRB &
+  &, 0.124911E+01_JPRB, 0.127075E+01_JPRB, 0.129216E+01_JPRB, 0.131333E+01_JPRB &
+  &, 0.133424E+01_JPRB, 0.135488E+01_JPRB, 0.137523E+01_JPRB &
+  &, 0.139529E+01_JPRB, 0.141503E+01_JPRB, 0.143446E+01_JPRB, 0.145354E+01_JPRB &
+  &, 0.147227E+01_JPRB, 0.149064E+01_JPRB, 0.150863E+01_JPRB &
+  &, 0.152624E+01_JPRB, 0.154344E+01_JPRB, 0.156023E+01_JPRB, 0.157660E+01_JPRB &
+  &, 0.159253E+01_JPRB, 0.160802E+01_JPRB, 0.162305E+01_JPRB &
+  &, 0.163761E+01_JPRB, 0.165170E+01_JPRB, 0.166531E+01_JPRB, 0.167841E+01_JPRB &
+  &, 0.169102E+01_JPRB, 0.170312E+01_JPRB, 0.171470E+01_JPRB &
+  &, 0.172574E+01_JPRB, 0.173627E+01_JPRB, 0.174625E+01_JPRB, 0.175569E+01_JPRB &
+  &, 0.176458E+01_JPRB, 0.177292E+01_JPRB, 0.178070E+01_JPRB &
+  &, 0.178793E+01_JPRB, 0.179459E+01_JPRB, 0.180068E+01_JPRB, 0.180621E+01_JPRB &
+  &, 0.181116E+01_JPRB, 0.181555E+01_JPRB, 0.181938E+01_JPRB &
+  &, 0.182262E+01_JPRB, 0.182530E+01_JPRB, 0.182741E+01_JPRB, 0.182895E+01_JPRB &
+  &, 0.182993E+01_JPRB, 0.183035E+01_JPRB, 0.183021E+01_JPRB &
+  &, 0.182949E+01_JPRB, 0.182826E+01_JPRB, 0.182645E+01_JPRB, 0.182411E+01_JPRB &
+  &, 0.182123E+01_JPRB, 0.181781E+01_JPRB, 0.181387E+01_JPRB &
+  &, 0.180941E+01_JPRB, 0.180443E+01_JPRB, 0.179894E+01_JPRB, 0.179296E+01_JPRB &
+  &, 0.178647E+01_JPRB, 0.177951E+01_JPRB, 0.177205E+01_JPRB &
+  &, 0.176414E+01_JPRB, 0.175574E+01_JPRB, 0.174691E+01_JPRB, 0.173764E+01_JPRB &
+  &, 0.172794E+01_JPRB, 0.171781E+01_JPRB, 0.170725E+01_JPRB &
+  &, 0.169630E+01_JPRB, 0.168496E+01_JPRB, 0.167322E+01_JPRB, 0.166110E+01_JPRB &
+  &, 0.164863E+01_JPRB, 0.163581E+01_JPRB, 0.162264E+01_JPRB &
+  &, 0.160914E+01_JPRB, 0.159530E+01_JPRB, 0.158118E+01_JPRB, 0.156674E+01_JPRB &
+  &, 0.155203E+01_JPRB, 0.153703E+01_JPRB, 0.152178E+01_JPRB &
+  &, 0.150628E+01_JPRB, 0.149052E+01_JPRB, 0.147453E+01_JPRB, 0.145834E+01_JPRB &
+  &, 0.144192E+01_JPRB, 0.142532E+01_JPRB, 0.140852E+01_JPRB &
+  &, 0.139157E+01_JPRB, 0.137444E+01_JPRB, 0.135715E+01_JPRB, 0.133974E+01_JPRB &
+  &, 0.132219E+01_JPRB, 0.130454E+01_JPRB, 0.128678E+01_JPRB &
+  &, 0.126890E+01_JPRB, 0.125097E+01_JPRB, 0.123294E+01_JPRB, 0.121484E+01_JPRB &
+  &, 0.119674E+01_JPRB, 0.117854E+01_JPRB, 0.116032E+01_JPRB &
+  &, 0.114210E+01_JPRB, 0.112386E+01_JPRB, 0.110561E+01_JPRB, 0.108735E+01_JPRB &
+  &, 0.106913E+01_JPRB, 0.105091E+01_JPRB, 0.103274E+01_JPRB &
+  &, 0.101464E+01_JPRB, 0.996579E+00_JPRB, 0.978548E+00_JPRB, 0.960620E+00_JPRB &
+  &, 0.942719E+00_JPRB, 0.924978E+00_JPRB, 0.907264E+00_JPRB &
+  &, 0.889657E+00_JPRB, 0.872183E+00_JPRB, 0.854815E+00_JPRB, 0.837576E+00_JPRB &
+  &, 0.820437E+00_JPRB, 0.803481E+00_JPRB, 0.786615E+00_JPRB &
+  &, 0.769923E+00_JPRB, 0.753370E+00_JPRB, 0.736980E+00_JPRB, 0.720778E+00_JPRB &
+  &, 0.704660E+00_JPRB, 0.688777E+00_JPRB, 0.673089E+00_JPRB/)
+XCW( 825, :) = (/ &
+  &  0.109281E+01_JPRB, 0.111576E+01_JPRB, 0.113860E+01_JPRB, 0.116129E+01_JPRB &
+  &, 0.118382E+01_JPRB, 0.120618E+01_JPRB, 0.122836E+01_JPRB &
+  &, 0.125034E+01_JPRB, 0.127211E+01_JPRB, 0.129365E+01_JPRB, 0.131495E+01_JPRB &
+  &, 0.133600E+01_JPRB, 0.135678E+01_JPRB, 0.137727E+01_JPRB &
+  &, 0.139747E+01_JPRB, 0.141736E+01_JPRB, 0.143693E+01_JPRB, 0.145616E+01_JPRB &
+  &, 0.147504E+01_JPRB, 0.149356E+01_JPRB, 0.151171E+01_JPRB &
+  &, 0.152947E+01_JPRB, 0.154683E+01_JPRB, 0.156378E+01_JPRB, 0.158030E+01_JPRB &
+  &, 0.159640E+01_JPRB, 0.161205E+01_JPRB, 0.162724E+01_JPRB &
+  &, 0.164197E+01_JPRB, 0.165622E+01_JPRB, 0.166999E+01_JPRB, 0.168327E+01_JPRB &
+  &, 0.169604E+01_JPRB, 0.170831E+01_JPRB, 0.172005E+01_JPRB &
+  &, 0.173127E+01_JPRB, 0.174196E+01_JPRB, 0.175211E+01_JPRB, 0.176173E+01_JPRB &
+  &, 0.177079E+01_JPRB, 0.177930E+01_JPRB, 0.178726E+01_JPRB &
+  &, 0.179465E+01_JPRB, 0.180148E+01_JPRB, 0.180775E+01_JPRB, 0.181344E+01_JPRB &
+  &, 0.181857E+01_JPRB, 0.182313E+01_JPRB, 0.182711E+01_JPRB &
+  &, 0.183053E+01_JPRB, 0.183336E+01_JPRB, 0.183565E+01_JPRB, 0.183736E+01_JPRB &
+  &, 0.183850E+01_JPRB, 0.183908E+01_JPRB, 0.183910E+01_JPRB &
+  &, 0.183857E+01_JPRB, 0.183747E+01_JPRB, 0.183583E+01_JPRB, 0.183364E+01_JPRB &
+  &, 0.183091E+01_JPRB, 0.182764E+01_JPRB, 0.182385E+01_JPRB &
+  &, 0.181954E+01_JPRB, 0.181469E+01_JPRB, 0.180935E+01_JPRB, 0.180350E+01_JPRB &
+  &, 0.179716E+01_JPRB, 0.179032E+01_JPRB, 0.178299E+01_JPRB &
+  &, 0.177521E+01_JPRB, 0.176696E+01_JPRB, 0.175826E+01_JPRB, 0.174909E+01_JPRB &
+  &, 0.173950E+01_JPRB, 0.172948E+01_JPRB, 0.171906E+01_JPRB &
+  &, 0.170819E+01_JPRB, 0.169696E+01_JPRB, 0.168532E+01_JPRB, 0.167330E+01_JPRB &
+  &, 0.166094E+01_JPRB, 0.164819E+01_JPRB, 0.163510E+01_JPRB &
+  &, 0.162170E+01_JPRB, 0.160795E+01_JPRB, 0.159389E+01_JPRB, 0.157952E+01_JPRB &
+  &, 0.156490E+01_JPRB, 0.154995E+01_JPRB, 0.153475E+01_JPRB &
+  &, 0.151929E+01_JPRB, 0.150361E+01_JPRB, 0.148769E+01_JPRB, 0.147153E+01_JPRB &
+  &, 0.145514E+01_JPRB, 0.143857E+01_JPRB, 0.142182E+01_JPRB &
+  &, 0.140488E+01_JPRB, 0.138779E+01_JPRB, 0.137051E+01_JPRB, 0.135313E+01_JPRB &
+  &, 0.133558E+01_JPRB, 0.131792E+01_JPRB, 0.130018E+01_JPRB &
+  &, 0.128228E+01_JPRB, 0.126437E+01_JPRB, 0.124630E+01_JPRB, 0.122820E+01_JPRB &
+  &, 0.121006E+01_JPRB, 0.119185E+01_JPRB, 0.117361E+01_JPRB &
+  &, 0.115533E+01_JPRB, 0.113708E+01_JPRB, 0.111879E+01_JPRB, 0.110050E+01_JPRB &
+  &, 0.108224E+01_JPRB, 0.106398E+01_JPRB, 0.104576E+01_JPRB &
+  &, 0.102755E+01_JPRB, 0.100943E+01_JPRB, 0.991330E+00_JPRB, 0.973328E+00_JPRB &
+  &, 0.955400E+00_JPRB, 0.937520E+00_JPRB, 0.919768E+00_JPRB &
+  &, 0.902117E+00_JPRB, 0.884540E+00_JPRB, 0.867061E+00_JPRB, 0.849706E+00_JPRB &
+  &, 0.832502E+00_JPRB, 0.815416E+00_JPRB, 0.798473E+00_JPRB &
+  &, 0.781700E+00_JPRB, 0.764998E+00_JPRB, 0.748515E+00_JPRB, 0.732150E+00_JPRB &
+  &, 0.715991E+00_JPRB, 0.699998E+00_JPRB, 0.684129E+00_JPRB/)
+XCW( 826, :) = (/ &
+  &  0.109322E+01_JPRB, 0.111629E+01_JPRB, 0.113923E+01_JPRB, 0.116204E+01_JPRB &
+  &, 0.118469E+01_JPRB, 0.120718E+01_JPRB, 0.122948E+01_JPRB &
+  &, 0.125159E+01_JPRB, 0.127348E+01_JPRB, 0.129516E+01_JPRB, 0.131659E+01_JPRB &
+  &, 0.133777E+01_JPRB, 0.135869E+01_JPRB, 0.137932E+01_JPRB &
+  &, 0.139967E+01_JPRB, 0.141970E+01_JPRB, 0.143941E+01_JPRB, 0.145879E+01_JPRB &
+  &, 0.147783E+01_JPRB, 0.149650E+01_JPRB, 0.151480E+01_JPRB &
+  &, 0.153270E+01_JPRB, 0.155023E+01_JPRB, 0.156734E+01_JPRB, 0.158403E+01_JPRB &
+  &, 0.160028E+01_JPRB, 0.161609E+01_JPRB, 0.163145E+01_JPRB &
+  &, 0.164634E+01_JPRB, 0.166076E+01_JPRB, 0.167470E+01_JPRB, 0.168815E+01_JPRB &
+  &, 0.170109E+01_JPRB, 0.171352E+01_JPRB, 0.172544E+01_JPRB &
+  &, 0.173683E+01_JPRB, 0.174769E+01_JPRB, 0.175802E+01_JPRB, 0.176780E+01_JPRB &
+  &, 0.177704E+01_JPRB, 0.178572E+01_JPRB, 0.179385E+01_JPRB &
+  &, 0.180142E+01_JPRB, 0.180841E+01_JPRB, 0.181486E+01_JPRB, 0.182072E+01_JPRB &
+  &, 0.182602E+01_JPRB, 0.183075E+01_JPRB, 0.183491E+01_JPRB &
+  &, 0.183850E+01_JPRB, 0.184149E+01_JPRB, 0.184395E+01_JPRB, 0.184583E+01_JPRB &
+  &, 0.184713E+01_JPRB, 0.184782E+01_JPRB, 0.184805E+01_JPRB &
+  &, 0.184768E+01_JPRB, 0.184675E+01_JPRB, 0.184526E+01_JPRB, 0.184323E+01_JPRB &
+  &, 0.184065E+01_JPRB, 0.183753E+01_JPRB, 0.183390E+01_JPRB &
+  &, 0.182972E+01_JPRB, 0.182502E+01_JPRB, 0.181983E+01_JPRB, 0.181411E+01_JPRB &
+  &, 0.180792E+01_JPRB, 0.180122E+01_JPRB, 0.179404E+01_JPRB &
+  &, 0.178638E+01_JPRB, 0.177824E+01_JPRB, 0.176966E+01_JPRB, 0.176064E+01_JPRB &
+  &, 0.175116E+01_JPRB, 0.174125E+01_JPRB, 0.173093E+01_JPRB &
+  &, 0.172021E+01_JPRB, 0.170907E+01_JPRB, 0.169753E+01_JPRB, 0.168563E+01_JPRB &
+  &, 0.167333E+01_JPRB, 0.166068E+01_JPRB, 0.164770E+01_JPRB &
+  &, 0.163437E+01_JPRB, 0.162072E+01_JPRB, 0.160673E+01_JPRB, 0.159245E+01_JPRB &
+  &, 0.157785E+01_JPRB, 0.156300E+01_JPRB, 0.154788E+01_JPRB &
+  &, 0.153247E+01_JPRB, 0.151682E+01_JPRB, 0.150094E+01_JPRB, 0.148482E+01_JPRB &
+  &, 0.146849E+01_JPRB, 0.145198E+01_JPRB, 0.143525E+01_JPRB &
+  &, 0.141833E+01_JPRB, 0.140126E+01_JPRB, 0.138402E+01_JPRB, 0.136664E+01_JPRB &
+  &, 0.134912E+01_JPRB, 0.133145E+01_JPRB, 0.131370E+01_JPRB &
+  &, 0.129582E+01_JPRB, 0.127788E+01_JPRB, 0.125983E+01_JPRB, 0.124174E+01_JPRB &
+  &, 0.122355E+01_JPRB, 0.120534E+01_JPRB, 0.118705E+01_JPRB &
+  &, 0.116875E+01_JPRB, 0.115047E+01_JPRB, 0.113212E+01_JPRB, 0.111380E+01_JPRB &
+  &, 0.109550E+01_JPRB, 0.107720E+01_JPRB, 0.105892E+01_JPRB &
+  &, 0.104066E+01_JPRB, 0.102248E+01_JPRB, 0.100432E+01_JPRB, 0.986245E+00_JPRB &
+  &, 0.968239E+00_JPRB, 0.950276E+00_JPRB, 0.932434E+00_JPRB &
+  &, 0.914688E+00_JPRB, 0.897064E+00_JPRB, 0.879477E+00_JPRB, 0.862065E+00_JPRB &
+  &, 0.844741E+00_JPRB, 0.827587E+00_JPRB, 0.810511E+00_JPRB &
+  &, 0.793598E+00_JPRB, 0.776811E+00_JPRB, 0.760237E+00_JPRB, 0.743776E+00_JPRB &
+  &, 0.727451E+00_JPRB, 0.711349E+00_JPRB, 0.695365E+00_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART118',1,ZHOOK_HANDLE)
+END SUBROUTINE PART118
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART119
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART119',0,ZHOOK_HANDLE)
+
+XCW( 827, :) = (/ &
+  &  0.109363E+01_JPRB, 0.111681E+01_JPRB, 0.113987E+01_JPRB, 0.116279E+01_JPRB &
+  &, 0.118556E+01_JPRB, 0.120817E+01_JPRB, 0.123060E+01_JPRB &
+  &, 0.125283E+01_JPRB, 0.127486E+01_JPRB, 0.129667E+01_JPRB, 0.131823E+01_JPRB &
+  &, 0.133955E+01_JPRB, 0.136061E+01_JPRB, 0.138138E+01_JPRB &
+  &, 0.140187E+01_JPRB, 0.142205E+01_JPRB, 0.144191E+01_JPRB, 0.146144E+01_JPRB &
+  &, 0.148062E+01_JPRB, 0.149945E+01_JPRB, 0.151790E+01_JPRB &
+  &, 0.153597E+01_JPRB, 0.155365E+01_JPRB, 0.157092E+01_JPRB, 0.158777E+01_JPRB &
+  &, 0.160418E+01_JPRB, 0.162016E+01_JPRB, 0.163568E+01_JPRB &
+  &, 0.165074E+01_JPRB, 0.166533E+01_JPRB, 0.167944E+01_JPRB, 0.169305E+01_JPRB &
+  &, 0.170617E+01_JPRB, 0.171877E+01_JPRB, 0.173086E+01_JPRB &
+  &, 0.174242E+01_JPRB, 0.175346E+01_JPRB, 0.176396E+01_JPRB, 0.177391E+01_JPRB &
+  &, 0.178332E+01_JPRB, 0.179218E+01_JPRB, 0.180048E+01_JPRB &
+  &, 0.180822E+01_JPRB, 0.181540E+01_JPRB, 0.182201E+01_JPRB, 0.182805E+01_JPRB &
+  &, 0.183352E+01_JPRB, 0.183841E+01_JPRB, 0.184275E+01_JPRB &
+  &, 0.184650E+01_JPRB, 0.184968E+01_JPRB, 0.185230E+01_JPRB, 0.185434E+01_JPRB &
+  &, 0.185581E+01_JPRB, 0.185673E+01_JPRB, 0.185706E+01_JPRB &
+  &, 0.185685E+01_JPRB, 0.185609E+01_JPRB, 0.185475E+01_JPRB, 0.185287E+01_JPRB &
+  &, 0.185046E+01_JPRB, 0.184750E+01_JPRB, 0.184401E+01_JPRB &
+  &, 0.183999E+01_JPRB, 0.183545E+01_JPRB, 0.183039E+01_JPRB, 0.182482E+01_JPRB &
+  &, 0.181875E+01_JPRB, 0.181220E+01_JPRB, 0.180515E+01_JPRB &
+  &, 0.179762E+01_JPRB, 0.178963E+01_JPRB, 0.178118E+01_JPRB, 0.177227E+01_JPRB &
+  &, 0.176293E+01_JPRB, 0.175315E+01_JPRB, 0.174292E+01_JPRB &
+  &, 0.173230E+01_JPRB, 0.172127E+01_JPRB, 0.170986E+01_JPRB, 0.169804E+01_JPRB &
+  &, 0.168585E+01_JPRB, 0.167331E+01_JPRB, 0.166040E+01_JPRB &
+  &, 0.164715E+01_JPRB, 0.163357E+01_JPRB, 0.161968E+01_JPRB, 0.160547E+01_JPRB &
+  &, 0.159096E+01_JPRB, 0.157616E+01_JPRB, 0.156110E+01_JPRB &
+  &, 0.154577E+01_JPRB, 0.153017E+01_JPRB, 0.151433E+01_JPRB, 0.149828E+01_JPRB &
+  &, 0.148198E+01_JPRB, 0.146550E+01_JPRB, 0.144879E+01_JPRB &
+  &, 0.143193E+01_JPRB, 0.141487E+01_JPRB, 0.139767E+01_JPRB, 0.138030E+01_JPRB &
+  &, 0.136278E+01_JPRB, 0.134514E+01_JPRB, 0.132738E+01_JPRB &
+  &, 0.130952E+01_JPRB, 0.129156E+01_JPRB, 0.127352E+01_JPRB, 0.125539E+01_JPRB &
+  &, 0.123721E+01_JPRB, 0.121895E+01_JPRB, 0.120065E+01_JPRB &
+  &, 0.118234E+01_JPRB, 0.116401E+01_JPRB, 0.114563E+01_JPRB, 0.112728E+01_JPRB &
+  &, 0.110889E+01_JPRB, 0.109055E+01_JPRB, 0.107224E+01_JPRB &
+  &, 0.105392E+01_JPRB, 0.103569E+01_JPRB, 0.101746E+01_JPRB, 0.999318E+00_JPRB &
+  &, 0.981237E+00_JPRB, 0.963246E+00_JPRB, 0.945318E+00_JPRB &
+  &, 0.927479E+00_JPRB, 0.909700E+00_JPRB, 0.892064E+00_JPRB, 0.874540E+00_JPRB &
+  &, 0.857155E+00_JPRB, 0.839876E+00_JPRB, 0.822729E+00_JPRB &
+  &, 0.805678E+00_JPRB, 0.788808E+00_JPRB, 0.772083E+00_JPRB, 0.755527E+00_JPRB &
+  &, 0.739102E+00_JPRB, 0.722894E+00_JPRB, 0.706799E+00_JPRB/)
+XCW( 828, :) = (/ &
+  &  0.109405E+01_JPRB, 0.111734E+01_JPRB, 0.114051E+01_JPRB, 0.116355E+01_JPRB &
+  &, 0.118644E+01_JPRB, 0.120917E+01_JPRB, 0.123173E+01_JPRB &
+  &, 0.125409E+01_JPRB, 0.127624E+01_JPRB, 0.129818E+01_JPRB, 0.131989E+01_JPRB &
+  &, 0.134134E+01_JPRB, 0.136254E+01_JPRB, 0.138345E+01_JPRB &
+  &, 0.140408E+01_JPRB, 0.142441E+01_JPRB, 0.144442E+01_JPRB, 0.146410E+01_JPRB &
+  &, 0.148343E+01_JPRB, 0.150241E+01_JPRB, 0.152103E+01_JPRB &
+  &, 0.153925E+01_JPRB, 0.155709E+01_JPRB, 0.157452E+01_JPRB, 0.159153E+01_JPRB &
+  &, 0.160811E+01_JPRB, 0.162425E+01_JPRB, 0.163994E+01_JPRB &
+  &, 0.165517E+01_JPRB, 0.166992E+01_JPRB, 0.168420E+01_JPRB, 0.169798E+01_JPRB &
+  &, 0.171127E+01_JPRB, 0.172405E+01_JPRB, 0.173631E+01_JPRB &
+  &, 0.174805E+01_JPRB, 0.175925E+01_JPRB, 0.176993E+01_JPRB, 0.178006E+01_JPRB &
+  &, 0.178964E+01_JPRB, 0.179867E+01_JPRB, 0.180715E+01_JPRB &
+  &, 0.181507E+01_JPRB, 0.182242E+01_JPRB, 0.182920E+01_JPRB, 0.183542E+01_JPRB &
+  &, 0.184106E+01_JPRB, 0.184614E+01_JPRB, 0.185064E+01_JPRB &
+  &, 0.185457E+01_JPRB, 0.185792E+01_JPRB, 0.186071E+01_JPRB, 0.186292E+01_JPRB &
+  &, 0.186455E+01_JPRB, 0.186563E+01_JPRB, 0.186615E+01_JPRB &
+  &, 0.186609E+01_JPRB, 0.186546E+01_JPRB, 0.186432E+01_JPRB, 0.186260E+01_JPRB &
+  &, 0.186034E+01_JPRB, 0.185753E+01_JPRB, 0.185420E+01_JPRB &
+  &, 0.185033E+01_JPRB, 0.184595E+01_JPRB, 0.184102E+01_JPRB, 0.183561E+01_JPRB &
+  &, 0.182969E+01_JPRB, 0.182326E+01_JPRB, 0.181637E+01_JPRB &
+  &, 0.180897E+01_JPRB, 0.180111E+01_JPRB, 0.179279E+01_JPRB, 0.178400E+01_JPRB &
+  &, 0.177477E+01_JPRB, 0.176511E+01_JPRB, 0.175501E+01_JPRB &
+  &, 0.174451E+01_JPRB, 0.173358E+01_JPRB, 0.172228E+01_JPRB, 0.171055E+01_JPRB &
+  &, 0.169847E+01_JPRB, 0.168602E+01_JPRB, 0.167322E+01_JPRB &
+  &, 0.166004E+01_JPRB, 0.164657E+01_JPRB, 0.163275E+01_JPRB, 0.161860E+01_JPRB &
+  &, 0.160419E+01_JPRB, 0.158945E+01_JPRB, 0.157444E+01_JPRB &
+  &, 0.155894E+01_JPRB, 0.154364E+01_JPRB, 0.152788E+01_JPRB, 0.151183E+01_JPRB &
+  &, 0.149560E+01_JPRB, 0.147915E+01_JPRB, 0.146251E+01_JPRB &
+  &, 0.144567E+01_JPRB, 0.142862E+01_JPRB, 0.141144E+01_JPRB, 0.139411E+01_JPRB &
+  &, 0.137659E+01_JPRB, 0.135899E+01_JPRB, 0.134122E+01_JPRB &
+  &, 0.132338E+01_JPRB, 0.130540E+01_JPRB, 0.128734E+01_JPRB, 0.126922E+01_JPRB &
+  &, 0.125100E+01_JPRB, 0.123274E+01_JPRB, 0.121444E+01_JPRB &
+  &, 0.119607E+01_JPRB, 0.117772E+01_JPRB, 0.115932E+01_JPRB, 0.114090E+01_JPRB &
+  &, 0.112248E+01_JPRB, 0.110411E+01_JPRB, 0.108570E+01_JPRB &
+  &, 0.106733E+01_JPRB, 0.104904E+01_JPRB, 0.103076E+01_JPRB, 0.101255E+01_JPRB &
+  &, 0.994393E+00_JPRB, 0.976324E+00_JPRB, 0.958310E+00_JPRB &
+  &, 0.940380E+00_JPRB, 0.922560E+00_JPRB, 0.904877E+00_JPRB, 0.887244E+00_JPRB &
+  &, 0.869744E+00_JPRB, 0.852343E+00_JPRB, 0.835126E+00_JPRB &
+  &, 0.818001E+00_JPRB, 0.800990E+00_JPRB, 0.784179E+00_JPRB, 0.767468E+00_JPRB &
+  &, 0.750945E+00_JPRB, 0.734569E+00_JPRB, 0.718430E+00_JPRB/)
+XCW( 829, :) = (/ &
+  &  0.109447E+01_JPRB, 0.111787E+01_JPRB, 0.114116E+01_JPRB, 0.116431E+01_JPRB &
+  &, 0.118732E+01_JPRB, 0.121018E+01_JPRB, 0.123286E+01_JPRB &
+  &, 0.125535E+01_JPRB, 0.127763E+01_JPRB, 0.129970E+01_JPRB, 0.132154E+01_JPRB &
+  &, 0.134314E+01_JPRB, 0.136447E+01_JPRB, 0.138553E+01_JPRB &
+  &, 0.140631E+01_JPRB, 0.142678E+01_JPRB, 0.144694E+01_JPRB, 0.146677E+01_JPRB &
+  &, 0.148626E+01_JPRB, 0.150539E+01_JPRB, 0.152416E+01_JPRB &
+  &, 0.154255E+01_JPRB, 0.156054E+01_JPRB, 0.157814E+01_JPRB, 0.159531E+01_JPRB &
+  &, 0.161206E+01_JPRB, 0.162836E+01_JPRB, 0.164422E+01_JPRB &
+  &, 0.165962E+01_JPRB, 0.167454E+01_JPRB, 0.168899E+01_JPRB, 0.170295E+01_JPRB &
+  &, 0.171640E+01_JPRB, 0.172935E+01_JPRB, 0.174179E+01_JPRB &
+  &, 0.175370E+01_JPRB, 0.176509E+01_JPRB, 0.177593E+01_JPRB, 0.178624E+01_JPRB &
+  &, 0.179601E+01_JPRB, 0.180522E+01_JPRB, 0.181387E+01_JPRB &
+  &, 0.182196E+01_JPRB, 0.182948E+01_JPRB, 0.183645E+01_JPRB, 0.184284E+01_JPRB &
+  &, 0.184866E+01_JPRB, 0.185390E+01_JPRB, 0.185858E+01_JPRB &
+  &, 0.186269E+01_JPRB, 0.186621E+01_JPRB, 0.186917E+01_JPRB, 0.187155E+01_JPRB &
+  &, 0.187335E+01_JPRB, 0.187460E+01_JPRB, 0.187528E+01_JPRB &
+  &, 0.187540E+01_JPRB, 0.187496E+01_JPRB, 0.187394E+01_JPRB, 0.187239E+01_JPRB &
+  &, 0.187029E+01_JPRB, 0.186765E+01_JPRB, 0.186446E+01_JPRB &
+  &, 0.186075E+01_JPRB, 0.185650E+01_JPRB, 0.185175E+01_JPRB, 0.184648E+01_JPRB &
+  &, 0.184070E+01_JPRB, 0.183442E+01_JPRB, 0.182764E+01_JPRB &
+  &, 0.182040E+01_JPRB, 0.181267E+01_JPRB, 0.180448E+01_JPRB, 0.179583E+01_JPRB &
+  &, 0.178672E+01_JPRB, 0.177717E+01_JPRB, 0.176719E+01_JPRB &
+  &, 0.175681E+01_JPRB, 0.174601E+01_JPRB, 0.173477E+01_JPRB, 0.172319E+01_JPRB &
+  &, 0.171120E+01_JPRB, 0.169886E+01_JPRB, 0.168614E+01_JPRB &
+  &, 0.167307E+01_JPRB, 0.165965E+01_JPRB, 0.164593E+01_JPRB, 0.163188E+01_JPRB &
+  &, 0.161750E+01_JPRB, 0.160286E+01_JPRB, 0.158794E+01_JPRB &
+  &, 0.157271E+01_JPRB, 0.155724E+01_JPRB, 0.154153E+01_JPRB, 0.152556E+01_JPRB &
+  &, 0.150936E+01_JPRB, 0.149294E+01_JPRB, 0.147633E+01_JPRB &
+  &, 0.145951E+01_JPRB, 0.144252E+01_JPRB, 0.142539E+01_JPRB, 0.140803E+01_JPRB &
+  &, 0.139055E+01_JPRB, 0.137295E+01_JPRB, 0.135521E+01_JPRB &
+  &, 0.133737E+01_JPRB, 0.131940E+01_JPRB, 0.130132E+01_JPRB, 0.128321E+01_JPRB &
+  &, 0.126496E+01_JPRB, 0.124670E+01_JPRB, 0.122836E+01_JPRB &
+  &, 0.120998E+01_JPRB, 0.119157E+01_JPRB, 0.117315E+01_JPRB, 0.115471E+01_JPRB &
+  &, 0.113627E+01_JPRB, 0.111780E+01_JPRB, 0.109935E+01_JPRB &
+  &, 0.108094E+01_JPRB, 0.106260E+01_JPRB, 0.104426E+01_JPRB, 0.102598E+01_JPRB &
+  &, 0.100776E+01_JPRB, 0.989616E+00_JPRB, 0.971521E+00_JPRB &
+  &, 0.953502E+00_JPRB, 0.935588E+00_JPRB, 0.917804E+00_JPRB, 0.900121E+00_JPRB &
+  &, 0.882507E+00_JPRB, 0.865046E+00_JPRB, 0.847644E+00_JPRB &
+  &, 0.830445E+00_JPRB, 0.813356E+00_JPRB, 0.796399E+00_JPRB, 0.779599E+00_JPRB &
+  &, 0.762981E+00_JPRB, 0.746504E+00_JPRB, 0.730192E+00_JPRB/)
+XCW( 830, :) = (/ &
+  &  0.109488E+01_JPRB, 0.111840E+01_JPRB, 0.114180E+01_JPRB, 0.116508E+01_JPRB &
+  &, 0.118821E+01_JPRB, 0.121119E+01_JPRB, 0.123399E+01_JPRB &
+  &, 0.125661E+01_JPRB, 0.127903E+01_JPRB, 0.130123E+01_JPRB, 0.132321E+01_JPRB &
+  &, 0.134494E+01_JPRB, 0.136642E+01_JPRB, 0.138762E+01_JPRB &
+  &, 0.140854E+01_JPRB, 0.142916E+01_JPRB, 0.144947E+01_JPRB, 0.146946E+01_JPRB &
+  &, 0.148910E+01_JPRB, 0.150839E+01_JPRB, 0.152731E+01_JPRB &
+  &, 0.154586E+01_JPRB, 0.156402E+01_JPRB, 0.158177E+01_JPRB, 0.159911E+01_JPRB &
+  &, 0.161602E+01_JPRB, 0.163250E+01_JPRB, 0.164852E+01_JPRB &
+  &, 0.166409E+01_JPRB, 0.167919E+01_JPRB, 0.169380E+01_JPRB, 0.170793E+01_JPRB &
+  &, 0.172156E+01_JPRB, 0.173468E+01_JPRB, 0.174730E+01_JPRB &
+  &, 0.175939E+01_JPRB, 0.177095E+01_JPRB, 0.178198E+01_JPRB, 0.179247E+01_JPRB &
+  &, 0.180240E+01_JPRB, 0.181179E+01_JPRB, 0.182062E+01_JPRB &
+  &, 0.182889E+01_JPRB, 0.183659E+01_JPRB, 0.184373E+01_JPRB, 0.185030E+01_JPRB &
+  &, 0.185630E+01_JPRB, 0.186173E+01_JPRB, 0.186638E+01_JPRB &
+  &, 0.187085E+01_JPRB, 0.187455E+01_JPRB, 0.187766E+01_JPRB, 0.188024E+01_JPRB &
+  &, 0.188223E+01_JPRB, 0.188364E+01_JPRB, 0.188449E+01_JPRB &
+  &, 0.188476E+01_JPRB, 0.188449E+01_JPRB, 0.188364E+01_JPRB, 0.188225E+01_JPRB &
+  &, 0.188032E+01_JPRB, 0.187782E+01_JPRB, 0.187481E+01_JPRB &
+  &, 0.187125E+01_JPRB, 0.186717E+01_JPRB, 0.186254E+01_JPRB, 0.185743E+01_JPRB &
+  &, 0.185180E+01_JPRB, 0.184566E+01_JPRB, 0.183902E+01_JPRB &
+  &, 0.183191E+01_JPRB, 0.182432E+01_JPRB, 0.181627E+01_JPRB, 0.180774E+01_JPRB &
+  &, 0.179877E+01_JPRB, 0.178934E+01_JPRB, 0.177949E+01_JPRB &
+  &, 0.176922E+01_JPRB, 0.175851E+01_JPRB, 0.174742E+01_JPRB, 0.173593E+01_JPRB &
+  &, 0.172404E+01_JPRB, 0.171179E+01_JPRB, 0.169918E+01_JPRB &
+  &, 0.168619E+01_JPRB, 0.167287E+01_JPRB, 0.165923E+01_JPRB, 0.164525E+01_JPRB &
+  &, 0.163097E+01_JPRB, 0.161639E+01_JPRB, 0.160153E+01_JPRB &
+  &, 0.158639E+01_JPRB, 0.157098E+01_JPRB, 0.155531E+01_JPRB, 0.153941E+01_JPRB &
+  &, 0.152326E+01_JPRB, 0.150688E+01_JPRB, 0.149033E+01_JPRB &
+  &, 0.147353E+01_JPRB, 0.145656E+01_JPRB, 0.143945E+01_JPRB, 0.142214E+01_JPRB &
+  &, 0.140467E+01_JPRB, 0.138710E+01_JPRB, 0.136936E+01_JPRB &
+  &, 0.135151E+01_JPRB, 0.133353E+01_JPRB, 0.131546E+01_JPRB, 0.129733E+01_JPRB &
+  &, 0.127909E+01_JPRB, 0.126080E+01_JPRB, 0.124245E+01_JPRB &
+  &, 0.122403E+01_JPRB, 0.120561E+01_JPRB, 0.118713E+01_JPRB, 0.116866E+01_JPRB &
+  &, 0.115019E+01_JPRB, 0.113170E+01_JPRB, 0.111321E+01_JPRB &
+  &, 0.109475E+01_JPRB, 0.107631E+01_JPRB, 0.105791E+01_JPRB, 0.103958E+01_JPRB &
+  &, 0.102129E+01_JPRB, 0.100307E+01_JPRB, 0.984894E+00_JPRB &
+  &, 0.966845E+00_JPRB, 0.948839E+00_JPRB, 0.930957E+00_JPRB, 0.913113E+00_JPRB &
+  &, 0.895446E+00_JPRB, 0.877867E+00_JPRB, 0.860400E+00_JPRB &
+  &, 0.843072E+00_JPRB, 0.825907E+00_JPRB, 0.808869E+00_JPRB, 0.791983E+00_JPRB &
+  &, 0.775208E+00_JPRB, 0.758633E+00_JPRB, 0.742151E+00_JPRB/)
+XCW( 831, :) = (/ &
+  &  0.109531E+01_JPRB, 0.111893E+01_JPRB, 0.114245E+01_JPRB, 0.116584E+01_JPRB &
+  &, 0.118910E+01_JPRB, 0.121220E+01_JPRB, 0.123513E+01_JPRB &
+  &, 0.125788E+01_JPRB, 0.128043E+01_JPRB, 0.130277E+01_JPRB, 0.132488E+01_JPRB &
+  &, 0.134676E+01_JPRB, 0.136837E+01_JPRB, 0.138972E+01_JPRB &
+  &, 0.141079E+01_JPRB, 0.143156E+01_JPRB, 0.145202E+01_JPRB, 0.147215E+01_JPRB &
+  &, 0.149195E+01_JPRB, 0.151140E+01_JPRB, 0.153048E+01_JPRB &
+  &, 0.154919E+01_JPRB, 0.156751E+01_JPRB, 0.158543E+01_JPRB, 0.160293E+01_JPRB &
+  &, 0.162001E+01_JPRB, 0.163665E+01_JPRB, 0.165285E+01_JPRB &
+  &, 0.166859E+01_JPRB, 0.168385E+01_JPRB, 0.169865E+01_JPRB, 0.171295E+01_JPRB &
+  &, 0.172676E+01_JPRB, 0.174006E+01_JPRB, 0.175285E+01_JPRB &
+  &, 0.176511E+01_JPRB, 0.177685E+01_JPRB, 0.178806E+01_JPRB, 0.179872E+01_JPRB &
+  &, 0.180883E+01_JPRB, 0.181840E+01_JPRB, 0.182742E+01_JPRB &
+  &, 0.183586E+01_JPRB, 0.184375E+01_JPRB, 0.185106E+01_JPRB, 0.185781E+01_JPRB &
+  &, 0.186399E+01_JPRB, 0.186959E+01_JPRB, 0.187462E+01_JPRB &
+  &, 0.187907E+01_JPRB, 0.188295E+01_JPRB, 0.188604E+01_JPRB, 0.188899E+01_JPRB &
+  &, 0.189114E+01_JPRB, 0.189272E+01_JPRB, 0.189375E+01_JPRB &
+  &, 0.189420E+01_JPRB, 0.189408E+01_JPRB, 0.189341E+01_JPRB, 0.189219E+01_JPRB &
+  &, 0.189041E+01_JPRB, 0.188808E+01_JPRB, 0.188523E+01_JPRB &
+  &, 0.188182E+01_JPRB, 0.187789E+01_JPRB, 0.187342E+01_JPRB, 0.186845E+01_JPRB &
+  &, 0.186296E+01_JPRB, 0.185698E+01_JPRB, 0.185050E+01_JPRB &
+  &, 0.184353E+01_JPRB, 0.183606E+01_JPRB, 0.182814E+01_JPRB, 0.181974E+01_JPRB &
+  &, 0.181090E+01_JPRB, 0.180161E+01_JPRB, 0.179187E+01_JPRB &
+  &, 0.178172E+01_JPRB, 0.177114E+01_JPRB, 0.176015E+01_JPRB, 0.174878E+01_JPRB &
+  &, 0.173700E+01_JPRB, 0.172484E+01_JPRB, 0.171232E+01_JPRB &
+  &, 0.169945E+01_JPRB, 0.168621E+01_JPRB, 0.167267E+01_JPRB, 0.165877E+01_JPRB &
+  &, 0.164456E+01_JPRB, 0.163007E+01_JPRB, 0.161528E+01_JPRB &
+  &, 0.160020E+01_JPRB, 0.158484E+01_JPRB, 0.156925E+01_JPRB, 0.155337E+01_JPRB &
+  &, 0.153729E+01_JPRB, 0.152098E+01_JPRB, 0.150443E+01_JPRB &
+  &, 0.148770E+01_JPRB, 0.147072E+01_JPRB, 0.145366E+01_JPRB, 0.143640E+01_JPRB &
+  &, 0.141894E+01_JPRB, 0.140138E+01_JPRB, 0.138363E+01_JPRB &
+  &, 0.136581E+01_JPRB, 0.134786E+01_JPRB, 0.132978E+01_JPRB, 0.131162E+01_JPRB &
+  &, 0.129339E+01_JPRB, 0.127507E+01_JPRB, 0.125672E+01_JPRB &
+  &, 0.123830E+01_JPRB, 0.121982E+01_JPRB, 0.120133E+01_JPRB, 0.118280E+01_JPRB &
+  &, 0.116426E+01_JPRB, 0.114573E+01_JPRB, 0.112721E+01_JPRB &
+  &, 0.110871E+01_JPRB, 0.109023E+01_JPRB, 0.107177E+01_JPRB, 0.105338E+01_JPRB &
+  &, 0.103497E+01_JPRB, 0.101668E+01_JPRB, 0.998484E+00_JPRB &
+  &, 0.980298E+00_JPRB, 0.962258E+00_JPRB, 0.944281E+00_JPRB, 0.926392E+00_JPRB &
+  &, 0.908617E+00_JPRB, 0.890924E+00_JPRB, 0.873397E+00_JPRB &
+  &, 0.855941E+00_JPRB, 0.838642E+00_JPRB, 0.821027E+00_JPRB, 0.804493E+00_JPRB &
+  &, 0.787628E+00_JPRB, 0.770892E+00_JPRB, 0.754374E+00_JPRB/)
+XCW( 832, :) = (/ &
+  &  0.109573E+01_JPRB, 0.111947E+01_JPRB, 0.114310E+01_JPRB, 0.116661E+01_JPRB &
+  &, 0.118999E+01_JPRB, 0.121322E+01_JPRB, 0.123628E+01_JPRB &
+  &, 0.125915E+01_JPRB, 0.128184E+01_JPRB, 0.130431E+01_JPRB, 0.132656E+01_JPRB &
+  &, 0.134858E+01_JPRB, 0.137034E+01_JPRB, 0.139183E+01_JPRB &
+  &, 0.141305E+01_JPRB, 0.143397E+01_JPRB, 0.145458E+01_JPRB, 0.147487E+01_JPRB &
+  &, 0.149482E+01_JPRB, 0.151442E+01_JPRB, 0.153367E+01_JPRB &
+  &, 0.155254E+01_JPRB, 0.157102E+01_JPRB, 0.158910E+01_JPRB, 0.160677E+01_JPRB &
+  &, 0.162402E+01_JPRB, 0.164083E+01_JPRB, 0.165720E+01_JPRB &
+  &, 0.167311E+01_JPRB, 0.168855E+01_JPRB, 0.170352E+01_JPRB, 0.171800E+01_JPRB &
+  &, 0.173198E+01_JPRB, 0.174546E+01_JPRB, 0.175842E+01_JPRB &
+  &, 0.177087E+01_JPRB, 0.178279E+01_JPRB, 0.179417E+01_JPRB, 0.180502E+01_JPRB &
+  &, 0.181531E+01_JPRB, 0.182506E+01_JPRB, 0.183425E+01_JPRB &
+  &, 0.184288E+01_JPRB, 0.185095E+01_JPRB, 0.185844E+01_JPRB, 0.186537E+01_JPRB &
+  &, 0.187173E+01_JPRB, 0.187751E+01_JPRB, 0.188272E+01_JPRB &
+  &, 0.188735E+01_JPRB, 0.189140E+01_JPRB, 0.189489E+01_JPRB, 0.189780E+01_JPRB &
+  &, 0.190013E+01_JPRB, 0.190188E+01_JPRB, 0.190308E+01_JPRB &
+  &, 0.190370E+01_JPRB, 0.190376E+01_JPRB, 0.190326E+01_JPRB, 0.190220E+01_JPRB &
+  &, 0.190058E+01_JPRB, 0.189841E+01_JPRB, 0.189572E+01_JPRB &
+  &, 0.189247E+01_JPRB, 0.188870E+01_JPRB, 0.188440E+01_JPRB, 0.187957E+01_JPRB &
+  &, 0.187425E+01_JPRB, 0.186839E+01_JPRB, 0.186206E+01_JPRB &
+  &, 0.185522E+01_JPRB, 0.184790E+01_JPRB, 0.184012E+01_JPRB, 0.183186E+01_JPRB &
+  &, 0.182313E+01_JPRB, 0.181397E+01_JPRB, 0.180436E+01_JPRB &
+  &, 0.179434E+01_JPRB, 0.178386E+01_JPRB, 0.177300E+01_JPRB, 0.176173E+01_JPRB &
+  &, 0.175007E+01_JPRB, 0.173801E+01_JPRB, 0.172560E+01_JPRB &
+  &, 0.171281E+01_JPRB, 0.169969E+01_JPRB, 0.168620E+01_JPRB, 0.167240E+01_JPRB &
+  &, 0.165830E+01_JPRB, 0.164385E+01_JPRB, 0.162915E+01_JPRB &
+  &, 0.161413E+01_JPRB, 0.159886E+01_JPRB, 0.158329E+01_JPRB, 0.156749E+01_JPRB &
+  &, 0.155146E+01_JPRB, 0.153519E+01_JPRB, 0.151871E+01_JPRB &
+  &, 0.150201E+01_JPRB, 0.148513E+01_JPRB, 0.146805E+01_JPRB, 0.145077E+01_JPRB &
+  &, 0.143336E+01_JPRB, 0.141580E+01_JPRB, 0.139810E+01_JPRB &
+  &, 0.138027E+01_JPRB, 0.136232E+01_JPRB, 0.134426E+01_JPRB, 0.132608E+01_JPRB &
+  &, 0.130782E+01_JPRB, 0.128951E+01_JPRB, 0.127112E+01_JPRB &
+  &, 0.125270E+01_JPRB, 0.123418E+01_JPRB, 0.121567E+01_JPRB, 0.119712E+01_JPRB &
+  &, 0.117856E+01_JPRB, 0.115996E+01_JPRB, 0.114141E+01_JPRB &
+  &, 0.112282E+01_JPRB, 0.110429E+01_JPRB, 0.108579E+01_JPRB, 0.106734E+01_JPRB &
+  &, 0.104871E+01_JPRB, 0.103051E+01_JPRB, 0.101224E+01_JPRB &
+  &, 0.993971E+00_JPRB, 0.975844E+00_JPRB, 0.957774E+00_JPRB, 0.939786E+00_JPRB &
+  &, 0.921905E+00_JPRB, 0.904159E+00_JPRB, 0.886513E+00_JPRB &
+  &, 0.868993E+00_JPRB, 0.851562E+00_JPRB, 0.834308E+00_JPRB, 0.817192E+00_JPRB &
+  &, 0.800239E+00_JPRB, 0.783410E+00_JPRB, 0.766728E+00_JPRB/)
+XCW( 833, :) = (/ &
+  &  0.109615E+01_JPRB, 0.112001E+01_JPRB, 0.114376E+01_JPRB, 0.116739E+01_JPRB &
+  &, 0.119089E+01_JPRB, 0.121424E+01_JPRB, 0.123743E+01_JPRB &
+  &, 0.126044E+01_JPRB, 0.128325E+01_JPRB, 0.130586E+01_JPRB, 0.132825E+01_JPRB &
+  &, 0.135041E+01_JPRB, 0.137231E+01_JPRB, 0.139395E+01_JPRB &
+  &, 0.141531E+01_JPRB, 0.143638E+01_JPRB, 0.145715E+01_JPRB, 0.147759E+01_JPRB &
+  &, 0.149770E+01_JPRB, 0.151747E+01_JPRB, 0.153687E+01_JPRB &
+  &, 0.155590E+01_JPRB, 0.157455E+01_JPRB, 0.159280E+01_JPRB, 0.161063E+01_JPRB &
+  &, 0.162805E+01_JPRB, 0.164503E+01_JPRB, 0.166157E+01_JPRB &
+  &, 0.167765E+01_JPRB, 0.169327E+01_JPRB, 0.170841E+01_JPRB, 0.172307E+01_JPRB &
+  &, 0.173722E+01_JPRB, 0.175088E+01_JPRB, 0.176403E+01_JPRB &
+  &, 0.177666E+01_JPRB, 0.178876E+01_JPRB, 0.180032E+01_JPRB, 0.181135E+01_JPRB &
+  &, 0.182183E+01_JPRB, 0.183176E+01_JPRB, 0.184112E+01_JPRB &
+  &, 0.184994E+01_JPRB, 0.185819E+01_JPRB, 0.186587E+01_JPRB, 0.187298E+01_JPRB &
+  &, 0.187952E+01_JPRB, 0.188549E+01_JPRB, 0.189088E+01_JPRB &
+  &, 0.189568E+01_JPRB, 0.189992E+01_JPRB, 0.190358E+01_JPRB, 0.190666E+01_JPRB &
+  &, 0.190916E+01_JPRB, 0.191111E+01_JPRB, 0.191247E+01_JPRB &
+  &, 0.191326E+01_JPRB, 0.191349E+01_JPRB, 0.191316E+01_JPRB, 0.191227E+01_JPRB &
+  &, 0.191083E+01_JPRB, 0.190883E+01_JPRB, 0.190628E+01_JPRB &
+  &, 0.190319E+01_JPRB, 0.189959E+01_JPRB, 0.189543E+01_JPRB, 0.189077E+01_JPRB &
+  &, 0.188559E+01_JPRB, 0.187989E+01_JPRB, 0.187371E+01_JPRB &
+  &, 0.186703E+01_JPRB, 0.185985E+01_JPRB, 0.185218E+01_JPRB, 0.184407E+01_JPRB &
+  &, 0.183548E+01_JPRB, 0.182645E+01_JPRB, 0.181697E+01_JPRB &
+  &, 0.180706E+01_JPRB, 0.179671E+01_JPRB, 0.178596E+01_JPRB, 0.177481E+01_JPRB &
+  &, 0.176325E+01_JPRB, 0.175130E+01_JPRB, 0.173899E+01_JPRB &
+  &, 0.172629E+01_JPRB, 0.171317E+01_JPRB, 0.169987E+01_JPRB, 0.168618E+01_JPRB &
+  &, 0.167212E+01_JPRB, 0.165778E+01_JPRB, 0.164314E+01_JPRB &
+  &, 0.162819E+01_JPRB, 0.161298E+01_JPRB, 0.159750E+01_JPRB, 0.158175E+01_JPRB &
+  &, 0.156577E+01_JPRB, 0.154954E+01_JPRB, 0.153313E+01_JPRB &
+  &, 0.151646E+01_JPRB, 0.149961E+01_JPRB, 0.148255E+01_JPRB, 0.146533E+01_JPRB &
+  &, 0.144793E+01_JPRB, 0.143039E+01_JPRB, 0.141273E+01_JPRB &
+  &, 0.139490E+01_JPRB, 0.137693E+01_JPRB, 0.135890E+01_JPRB, 0.134071E+01_JPRB &
+  &, 0.132247E+01_JPRB, 0.130412E+01_JPRB, 0.128575E+01_JPRB &
+  &, 0.126728E+01_JPRB, 0.124876E+01_JPRB, 0.123020E+01_JPRB, 0.121159E+01_JPRB &
+  &, 0.119301E+01_JPRB, 0.117439E+01_JPRB, 0.115575E+01_JPRB &
+  &, 0.113718E+01_JPRB, 0.111856E+01_JPRB, 0.110001E+01_JPRB, 0.108145E+01_JPRB &
+  &, 0.106298E+01_JPRB, 0.104455E+01_JPRB, 0.102615E+01_JPRB &
+  &, 0.100786E+01_JPRB, 0.989599E+00_JPRB, 0.971495E+00_JPRB, 0.953410E+00_JPRB &
+  &, 0.935427E+00_JPRB, 0.917570E+00_JPRB, 0.899868E+00_JPRB &
+  &, 0.882226E+00_JPRB, 0.864729E+00_JPRB, 0.847339E+00_JPRB, 0.830081E+00_JPRB &
+  &, 0.813043E+00_JPRB, 0.796058E+00_JPRB, 0.779278E+00_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART119',1,ZHOOK_HANDLE)
+END SUBROUTINE PART119
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART120
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART120',0,ZHOOK_HANDLE)
+
+XCW( 834, :) = (/ &
+  &  0.109658E+01_JPRB, 0.112055E+01_JPRB, 0.114442E+01_JPRB, 0.116817E+01_JPRB &
+  &, 0.119179E+01_JPRB, 0.121526E+01_JPRB, 0.123858E+01_JPRB &
+  &, 0.126172E+01_JPRB, 0.128467E+01_JPRB, 0.130742E+01_JPRB, 0.132995E+01_JPRB &
+  &, 0.135225E+01_JPRB, 0.137429E+01_JPRB, 0.139608E+01_JPRB &
+  &, 0.141759E+01_JPRB, 0.143881E+01_JPRB, 0.145973E+01_JPRB, 0.148033E+01_JPRB &
+  &, 0.150060E+01_JPRB, 0.152052E+01_JPRB, 0.154009E+01_JPRB &
+  &, 0.155928E+01_JPRB, 0.157810E+01_JPRB, 0.159651E+01_JPRB, 0.161452E+01_JPRB &
+  &, 0.163210E+01_JPRB, 0.164926E+01_JPRB, 0.166597E+01_JPRB &
+  &, 0.168223E+01_JPRB, 0.169802E+01_JPRB, 0.171334E+01_JPRB, 0.172817E+01_JPRB &
+  &, 0.174251E+01_JPRB, 0.175635E+01_JPRB, 0.176968E+01_JPRB &
+  &, 0.178248E+01_JPRB, 0.179477E+01_JPRB, 0.180651E+01_JPRB, 0.181772E+01_JPRB &
+  &, 0.182838E+01_JPRB, 0.183850E+01_JPRB, 0.184805E+01_JPRB &
+  &, 0.185704E+01_JPRB, 0.186548E+01_JPRB, 0.187334E+01_JPRB, 0.188064E+01_JPRB &
+  &, 0.188736E+01_JPRB, 0.189350E+01_JPRB, 0.189907E+01_JPRB &
+  &, 0.190408E+01_JPRB, 0.190848E+01_JPRB, 0.191233E+01_JPRB, 0.191558E+01_JPRB &
+  &, 0.191828E+01_JPRB, 0.192039E+01_JPRB, 0.192193E+01_JPRB &
+  &, 0.192290E+01_JPRB, 0.192331E+01_JPRB, 0.192313E+01_JPRB, 0.192241E+01_JPRB &
+  &, 0.192113E+01_JPRB, 0.191931E+01_JPRB, 0.191693E+01_JPRB &
+  &, 0.191401E+01_JPRB, 0.191055E+01_JPRB, 0.190658E+01_JPRB, 0.190206E+01_JPRB &
+  &, 0.189703E+01_JPRB, 0.189149E+01_JPRB, 0.188544E+01_JPRB &
+  &, 0.187890E+01_JPRB, 0.187187E+01_JPRB, 0.186436E+01_JPRB, 0.185639E+01_JPRB &
+  &, 0.184793E+01_JPRB, 0.183902E+01_JPRB, 0.182968E+01_JPRB &
+  &, 0.181988E+01_JPRB, 0.180966E+01_JPRB, 0.179903E+01_JPRB, 0.178799E+01_JPRB &
+  &, 0.177653E+01_JPRB, 0.176471E+01_JPRB, 0.175249E+01_JPRB &
+  &, 0.173991E+01_JPRB, 0.172698E+01_JPRB, 0.171369E+01_JPRB, 0.170005E+01_JPRB &
+  &, 0.168610E+01_JPRB, 0.167186E+01_JPRB, 0.165726E+01_JPRB &
+  &, 0.164241E+01_JPRB, 0.162726E+01_JPRB, 0.161184E+01_JPRB, 0.159614E+01_JPRB &
+  &, 0.158024E+01_JPRB, 0.156406E+01_JPRB, 0.154765E+01_JPRB &
+  &, 0.153106E+01_JPRB, 0.151424E+01_JPRB, 0.149724E+01_JPRB, 0.148004E+01_JPRB &
+  &, 0.146270E+01_JPRB, 0.144517E+01_JPRB, 0.142747E+01_JPRB &
+  &, 0.140968E+01_JPRB, 0.139171E+01_JPRB, 0.137367E+01_JPRB, 0.135550E+01_JPRB &
+  &, 0.133724E+01_JPRB, 0.131891E+01_JPRB, 0.130051E+01_JPRB &
+  &, 0.128200E+01_JPRB, 0.126348E+01_JPRB, 0.124491E+01_JPRB, 0.122629E+01_JPRB &
+  &, 0.120765E+01_JPRB, 0.118900E+01_JPRB, 0.117034E+01_JPRB &
+  &, 0.115169E+01_JPRB, 0.113303E+01_JPRB, 0.111438E+01_JPRB, 0.109583E+01_JPRB &
+  &, 0.107724E+01_JPRB, 0.105876E+01_JPRB, 0.104029E+01_JPRB &
+  &, 0.102192E+01_JPRB, 0.100358E+01_JPRB, 0.985385E+00_JPRB, 0.967207E+00_JPRB &
+  &, 0.949181E+00_JPRB, 0.931219E+00_JPRB, 0.913404E+00_JPRB &
+  &, 0.895642E+00_JPRB, 0.878018E+00_JPRB, 0.860557E+00_JPRB, 0.843222E+00_JPRB &
+  &, 0.826039E+00_JPRB, 0.808966E+00_JPRB, 0.792026E+00_JPRB/)
+XCW( 835, :) = (/ &
+  &  0.109701E+01_JPRB, 0.112109E+01_JPRB, 0.114508E+01_JPRB, 0.116895E+01_JPRB &
+  &, 0.119269E+01_JPRB, 0.121630E+01_JPRB, 0.123974E+01_JPRB &
+  &, 0.126301E+01_JPRB, 0.128610E+01_JPRB, 0.130899E+01_JPRB, 0.133166E+01_JPRB &
+  &, 0.135409E+01_JPRB, 0.137629E+01_JPRB, 0.139822E+01_JPRB &
+  &, 0.141988E+01_JPRB, 0.144126E+01_JPRB, 0.146233E+01_JPRB, 0.148308E+01_JPRB &
+  &, 0.150351E+01_JPRB, 0.152360E+01_JPRB, 0.154332E+01_JPRB &
+  &, 0.156268E+01_JPRB, 0.158166E+01_JPRB, 0.160025E+01_JPRB, 0.161842E+01_JPRB &
+  &, 0.163618E+01_JPRB, 0.165351E+01_JPRB, 0.167039E+01_JPRB &
+  &, 0.168683E+01_JPRB, 0.170279E+01_JPRB, 0.171829E+01_JPRB, 0.173331E+01_JPRB &
+  &, 0.174783E+01_JPRB, 0.176184E+01_JPRB, 0.177535E+01_JPRB &
+  &, 0.178834E+01_JPRB, 0.180080E+01_JPRB, 0.181274E+01_JPRB, 0.182413E+01_JPRB &
+  &, 0.183498E+01_JPRB, 0.184527E+01_JPRB, 0.185502E+01_JPRB &
+  &, 0.186420E+01_JPRB, 0.187281E+01_JPRB, 0.188087E+01_JPRB, 0.188835E+01_JPRB &
+  &, 0.189525E+01_JPRB, 0.190159E+01_JPRB, 0.190733E+01_JPRB &
+  &, 0.191251E+01_JPRB, 0.191711E+01_JPRB, 0.192114E+01_JPRB, 0.192457E+01_JPRB &
+  &, 0.192745E+01_JPRB, 0.192974E+01_JPRB, 0.193146E+01_JPRB &
+  &, 0.193260E+01_JPRB, 0.193317E+01_JPRB, 0.193319E+01_JPRB, 0.193264E+01_JPRB &
+  &, 0.193154E+01_JPRB, 0.192987E+01_JPRB, 0.192767E+01_JPRB &
+  &, 0.192491E+01_JPRB, 0.192161E+01_JPRB, 0.191778E+01_JPRB, 0.191343E+01_JPRB &
+  &, 0.190856E+01_JPRB, 0.190318E+01_JPRB, 0.189727E+01_JPRB &
+  &, 0.189090E+01_JPRB, 0.188401E+01_JPRB, 0.187663E+01_JPRB, 0.186879E+01_JPRB &
+  &, 0.186048E+01_JPRB, 0.185171E+01_JPRB, 0.184248E+01_JPRB &
+  &, 0.183282E+01_JPRB, 0.182274E+01_JPRB, 0.181222E+01_JPRB, 0.180128E+01_JPRB &
+  &, 0.178995E+01_JPRB, 0.177822E+01_JPRB, 0.176613E+01_JPRB &
+  &, 0.175364E+01_JPRB, 0.174080E+01_JPRB, 0.172762E+01_JPRB, 0.171407E+01_JPRB &
+  &, 0.170023E+01_JPRB, 0.168603E+01_JPRB, 0.167154E+01_JPRB &
+  &, 0.165675E+01_JPRB, 0.164166E+01_JPRB, 0.162634E+01_JPRB, 0.161070E+01_JPRB &
+  &, 0.159485E+01_JPRB, 0.157871E+01_JPRB, 0.156239E+01_JPRB &
+  &, 0.154580E+01_JPRB, 0.152904E+01_JPRB, 0.151208E+01_JPRB, 0.149491E+01_JPRB &
+  &, 0.147758E+01_JPRB, 0.146006E+01_JPRB, 0.144241E+01_JPRB &
+  &, 0.142463E+01_JPRB, 0.140670E+01_JPRB, 0.138865E+01_JPRB, 0.137047E+01_JPRB &
+  &, 0.135223E+01_JPRB, 0.133388E+01_JPRB, 0.131544E+01_JPRB &
+  &, 0.129694E+01_JPRB, 0.127837E+01_JPRB, 0.125976E+01_JPRB, 0.124114E+01_JPRB &
+  &, 0.122248E+01_JPRB, 0.120377E+01_JPRB, 0.118508E+01_JPRB &
+  &, 0.116635E+01_JPRB, 0.114765E+01_JPRB, 0.112901E+01_JPRB, 0.111036E+01_JPRB &
+  &, 0.109172E+01_JPRB, 0.107317E+01_JPRB, 0.105464E+01_JPRB &
+  &, 0.103615E+01_JPRB, 0.101778E+01_JPRB, 0.999446E+00_JPRB, 0.981233E+00_JPRB &
+  &, 0.963110E+00_JPRB, 0.945044E+00_JPRB, 0.927119E+00_JPRB &
+  &, 0.909300E+00_JPRB, 0.891553E+00_JPRB, 0.874024E+00_JPRB, 0.856554E+00_JPRB &
+  &, 0.839227E+00_JPRB, 0.822068E+00_JPRB, 0.805037E+00_JPRB/)
+XCW( 836, :) = (/ &
+  &  0.109744E+01_JPRB, 0.112163E+01_JPRB, 0.114574E+01_JPRB, 0.116973E+01_JPRB &
+  &, 0.119360E+01_JPRB, 0.121733E+01_JPRB, 0.124091E+01_JPRB &
+  &, 0.126431E+01_JPRB, 0.128754E+01_JPRB, 0.131056E+01_JPRB, 0.133337E+01_JPRB &
+  &, 0.135595E+01_JPRB, 0.137829E+01_JPRB, 0.140037E+01_JPRB &
+  &, 0.142218E+01_JPRB, 0.144371E+01_JPRB, 0.146494E+01_JPRB, 0.148585E+01_JPRB &
+  &, 0.150644E+01_JPRB, 0.152668E+01_JPRB, 0.154658E+01_JPRB &
+  &, 0.156610E+01_JPRB, 0.158525E+01_JPRB, 0.160400E+01_JPRB, 0.162235E+01_JPRB &
+  &, 0.164028E+01_JPRB, 0.165778E+01_JPRB, 0.167484E+01_JPRB &
+  &, 0.169145E+01_JPRB, 0.170760E+01_JPRB, 0.172327E+01_JPRB, 0.173847E+01_JPRB &
+  &, 0.175317E+01_JPRB, 0.176737E+01_JPRB, 0.178106E+01_JPRB &
+  &, 0.179423E+01_JPRB, 0.180689E+01_JPRB, 0.181900E+01_JPRB, 0.183058E+01_JPRB &
+  &, 0.184161E+01_JPRB, 0.185210E+01_JPRB, 0.186203E+01_JPRB &
+  &, 0.187140E+01_JPRB, 0.188020E+01_JPRB, 0.188843E+01_JPRB, 0.189610E+01_JPRB &
+  &, 0.190320E+01_JPRB, 0.190972E+01_JPRB, 0.191566E+01_JPRB &
+  &, 0.192101E+01_JPRB, 0.192580E+01_JPRB, 0.193001E+01_JPRB, 0.193364E+01_JPRB &
+  &, 0.193668E+01_JPRB, 0.193913E+01_JPRB, 0.194104E+01_JPRB &
+  &, 0.194237E+01_JPRB, 0.194313E+01_JPRB, 0.194332E+01_JPRB, 0.194294E+01_JPRB &
+  &, 0.194201E+01_JPRB, 0.194051E+01_JPRB, 0.193848E+01_JPRB &
+  &, 0.193589E+01_JPRB, 0.193276E+01_JPRB, 0.192908E+01_JPRB, 0.192490E+01_JPRB &
+  &, 0.192018E+01_JPRB, 0.191495E+01_JPRB, 0.190921E+01_JPRB &
+  &, 0.190296E+01_JPRB, 0.189622E+01_JPRB, 0.188900E+01_JPRB, 0.188129E+01_JPRB &
+  &, 0.187312E+01_JPRB, 0.186450E+01_JPRB, 0.185541E+01_JPRB &
+  &, 0.184588E+01_JPRB, 0.183591E+01_JPRB, 0.182552E+01_JPRB, 0.181472E+01_JPRB &
+  &, 0.180349E+01_JPRB, 0.179189E+01_JPRB, 0.177987E+01_JPRB &
+  &, 0.176750E+01_JPRB, 0.175476E+01_JPRB, 0.174167E+01_JPRB, 0.172823E+01_JPRB &
+  &, 0.171447E+01_JPRB, 0.170035E+01_JPRB, 0.168594E+01_JPRB &
+  &, 0.167125E+01_JPRB, 0.165623E+01_JPRB, 0.164094E+01_JPRB, 0.162539E+01_JPRB &
+  &, 0.160960E+01_JPRB, 0.159355E+01_JPRB, 0.157723E+01_JPRB &
+  &, 0.156072E+01_JPRB, 0.154400E+01_JPRB, 0.152707E+01_JPRB, 0.150992E+01_JPRB &
+  &, 0.149261E+01_JPRB, 0.147515E+01_JPRB, 0.145751E+01_JPRB &
+  &, 0.143973E+01_JPRB, 0.142185E+01_JPRB, 0.140379E+01_JPRB, 0.138564E+01_JPRB &
+  &, 0.136735E+01_JPRB, 0.134902E+01_JPRB, 0.133042E+01_JPRB &
+  &, 0.131206E+01_JPRB, 0.129346E+01_JPRB, 0.127485E+01_JPRB, 0.125617E+01_JPRB &
+  &, 0.123745E+01_JPRB, 0.121872E+01_JPRB, 0.120001E+01_JPRB &
+  &, 0.118126E+01_JPRB, 0.116252E+01_JPRB, 0.114379E+01_JPRB, 0.112504E+01_JPRB &
+  &, 0.110641E+01_JPRB, 0.108775E+01_JPRB, 0.106916E+01_JPRB &
+  &, 0.105065E+01_JPRB, 0.103215E+01_JPRB, 0.101379E+01_JPRB, 0.995432E+00_JPRB &
+  &, 0.977214E+00_JPRB, 0.959106E+00_JPRB, 0.941073E+00_JPRB &
+  &, 0.923141E+00_JPRB, 0.905334E+00_JPRB, 0.887617E+00_JPRB, 0.870074E+00_JPRB &
+  &, 0.852671E+00_JPRB, 0.835365E+00_JPRB, 0.818245E+00_JPRB/)
+XCW( 837, :) = (/ &
+  &  0.109787E+01_JPRB, 0.112218E+01_JPRB, 0.114641E+01_JPRB, 0.117052E+01_JPRB &
+  &, 0.119452E+01_JPRB, 0.121837E+01_JPRB, 0.124208E+01_JPRB &
+  &, 0.126562E+01_JPRB, 0.128898E+01_JPRB, 0.131214E+01_JPRB, 0.133509E+01_JPRB &
+  &, 0.135782E+01_JPRB, 0.138030E+01_JPRB, 0.140253E+01_JPRB &
+  &, 0.142450E+01_JPRB, 0.144618E+01_JPRB, 0.146756E+01_JPRB, 0.148863E+01_JPRB &
+  &, 0.150938E+01_JPRB, 0.152979E+01_JPRB, 0.154985E+01_JPRB &
+  &, 0.156954E+01_JPRB, 0.158885E+01_JPRB, 0.160777E+01_JPRB, 0.162630E+01_JPRB &
+  &, 0.164440E+01_JPRB, 0.166208E+01_JPRB, 0.167931E+01_JPRB &
+  &, 0.169610E+01_JPRB, 0.171243E+01_JPRB, 0.172828E+01_JPRB, 0.174366E+01_JPRB &
+  &, 0.175855E+01_JPRB, 0.177293E+01_JPRB, 0.178680E+01_JPRB &
+  &, 0.180016E+01_JPRB, 0.181300E+01_JPRB, 0.182530E+01_JPRB, 0.183707E+01_JPRB &
+  &, 0.184829E+01_JPRB, 0.185896E+01_JPRB, 0.186908E+01_JPRB &
+  &, 0.187864E+01_JPRB, 0.188764E+01_JPRB, 0.189605E+01_JPRB, 0.190391E+01_JPRB &
+  &, 0.191120E+01_JPRB, 0.191790E+01_JPRB, 0.192402E+01_JPRB &
+  &, 0.192958E+01_JPRB, 0.193455E+01_JPRB, 0.193893E+01_JPRB, 0.194274E+01_JPRB &
+  &, 0.194597E+01_JPRB, 0.194863E+01_JPRB, 0.195072E+01_JPRB &
+  &, 0.195222E+01_JPRB, 0.195315E+01_JPRB, 0.195352E+01_JPRB, 0.195332E+01_JPRB &
+  &, 0.195255E+01_JPRB, 0.195124E+01_JPRB, 0.194936E+01_JPRB &
+  &, 0.194694E+01_JPRB, 0.194398E+01_JPRB, 0.194047E+01_JPRB, 0.193644E+01_JPRB &
+  &, 0.193190E+01_JPRB, 0.192682E+01_JPRB, 0.192123E+01_JPRB &
+  &, 0.191515E+01_JPRB, 0.190856E+01_JPRB, 0.190147E+01_JPRB, 0.189393E+01_JPRB &
+  &, 0.188588E+01_JPRB, 0.187739E+01_JPRB, 0.186769E+01_JPRB &
+  &, 0.185904E+01_JPRB, 0.184921E+01_JPRB, 0.183893E+01_JPRB, 0.182823E+01_JPRB &
+  &, 0.181714E+01_JPRB, 0.180565E+01_JPRB, 0.179375E+01_JPRB &
+  &, 0.178148E+01_JPRB, 0.176887E+01_JPRB, 0.175587E+01_JPRB, 0.174252E+01_JPRB &
+  &, 0.172884E+01_JPRB, 0.171483E+01_JPRB, 0.170050E+01_JPRB &
+  &, 0.168585E+01_JPRB, 0.167093E+01_JPRB, 0.165573E+01_JPRB, 0.164025E+01_JPRB &
+  &, 0.162448E+01_JPRB, 0.160848E+01_JPRB, 0.159225E+01_JPRB &
+  &, 0.157578E+01_JPRB, 0.155910E+01_JPRB, 0.154220E+01_JPRB, 0.152512E+01_JPRB &
+  &, 0.150784E+01_JPRB, 0.149039E+01_JPRB, 0.147281E+01_JPRB &
+  &, 0.145504E+01_JPRB, 0.143712E+01_JPRB, 0.141910E+01_JPRB, 0.140094E+01_JPRB &
+  &, 0.138268E+01_JPRB, 0.136433E+01_JPRB, 0.134588E+01_JPRB &
+  &, 0.132737E+01_JPRB, 0.130877E+01_JPRB, 0.129011E+01_JPRB, 0.127139E+01_JPRB &
+  &, 0.125266E+01_JPRB, 0.123392E+01_JPRB, 0.121510E+01_JPRB &
+  &, 0.119631E+01_JPRB, 0.117755E+01_JPRB, 0.115873E+01_JPRB, 0.113999E+01_JPRB &
+  &, 0.112125E+01_JPRB, 0.110254E+01_JPRB, 0.108389E+01_JPRB &
+  &, 0.106526E+01_JPRB, 0.104674E+01_JPRB, 0.102825E+01_JPRB, 0.100986E+01_JPRB &
+  &, 0.991552E+00_JPRB, 0.973345E+00_JPRB, 0.955207E+00_JPRB &
+  &, 0.937164E+00_JPRB, 0.919239E+00_JPRB, 0.901458E+00_JPRB, 0.883785E+00_JPRB &
+  &, 0.866242E+00_JPRB, 0.848856E+00_JPRB, 0.831584E+00_JPRB/)
+XCW( 838, :) = (/ &
+  &  0.109830E+01_JPRB, 0.112273E+01_JPRB, 0.114707E+01_JPRB, 0.117131E+01_JPRB &
+  &, 0.119543E+01_JPRB, 0.121942E+01_JPRB, 0.124326E+01_JPRB &
+  &, 0.126693E+01_JPRB, 0.129042E+01_JPRB, 0.131373E+01_JPRB, 0.133682E+01_JPRB &
+  &, 0.135969E+01_JPRB, 0.138232E+01_JPRB, 0.140471E+01_JPRB &
+  &, 0.142682E+01_JPRB, 0.144866E+01_JPRB, 0.147020E+01_JPRB, 0.149143E+01_JPRB &
+  &, 0.151234E+01_JPRB, 0.153291E+01_JPRB, 0.155313E+01_JPRB &
+  &, 0.157299E+01_JPRB, 0.159247E+01_JPRB, 0.161157E+01_JPRB, 0.163026E+01_JPRB &
+  &, 0.164854E+01_JPRB, 0.166640E+01_JPRB, 0.168381E+01_JPRB &
+  &, 0.170078E+01_JPRB, 0.171729E+01_JPRB, 0.173332E+01_JPRB, 0.174888E+01_JPRB &
+  &, 0.176395E+01_JPRB, 0.177852E+01_JPRB, 0.179259E+01_JPRB &
+  &, 0.180613E+01_JPRB, 0.181915E+01_JPRB, 0.183165E+01_JPRB, 0.184360E+01_JPRB &
+  &, 0.185502E+01_JPRB, 0.186587E+01_JPRB, 0.187618E+01_JPRB &
+  &, 0.188591E+01_JPRB, 0.189512E+01_JPRB, 0.190373E+01_JPRB, 0.191178E+01_JPRB &
+  &, 0.191924E+01_JPRB, 0.192614E+01_JPRB, 0.193246E+01_JPRB &
+  &, 0.193819E+01_JPRB, 0.194335E+01_JPRB, 0.194793E+01_JPRB, 0.195193E+01_JPRB &
+  &, 0.195535E+01_JPRB, 0.195818E+01_JPRB, 0.196044E+01_JPRB &
+  &, 0.196213E+01_JPRB, 0.196324E+01_JPRB, 0.196379E+01_JPRB, 0.196377E+01_JPRB &
+  &, 0.196318E+01_JPRB, 0.196204E+01_JPRB, 0.196033E+01_JPRB &
+  &, 0.195809E+01_JPRB, 0.195529E+01_JPRB, 0.195196E+01_JPRB, 0.194809E+01_JPRB &
+  &, 0.194369E+01_JPRB, 0.193878E+01_JPRB, 0.193335E+01_JPRB &
+  &, 0.192742E+01_JPRB, 0.192098E+01_JPRB, 0.191404E+01_JPRB, 0.190665E+01_JPRB &
+  &, 0.189875E+01_JPRB, 0.189039E+01_JPRB, 0.188158E+01_JPRB &
+  &, 0.187232E+01_JPRB, 0.186260E+01_JPRB, 0.185247E+01_JPRB, 0.184191E+01_JPRB &
+  &, 0.183092E+01_JPRB, 0.181954E+01_JPRB, 0.180777E+01_JPRB &
+  &, 0.179560E+01_JPRB, 0.178308E+01_JPRB, 0.177018E+01_JPRB, 0.175695E+01_JPRB &
+  &, 0.174336E+01_JPRB, 0.172943E+01_JPRB, 0.171518E+01_JPRB &
+  &, 0.170064E+01_JPRB, 0.168579E+01_JPRB, 0.167066E+01_JPRB, 0.165524E+01_JPRB &
+  &, 0.163953E+01_JPRB, 0.162362E+01_JPRB, 0.160744E+01_JPRB &
+  &, 0.159102E+01_JPRB, 0.157438E+01_JPRB, 0.155752E+01_JPRB, 0.154047E+01_JPRB &
+  &, 0.152322E+01_JPRB, 0.150583E+01_JPRB, 0.148823E+01_JPRB &
+  &, 0.147051E+01_JPRB, 0.145259E+01_JPRB, 0.143458E+01_JPRB, 0.141646E+01_JPRB &
+  &, 0.139818E+01_JPRB, 0.137981E+01_JPRB, 0.136134E+01_JPRB &
+  &, 0.134285E+01_JPRB, 0.132421E+01_JPRB, 0.130557E+01_JPRB, 0.128684E+01_JPRB &
+  &, 0.126806E+01_JPRB, 0.124926E+01_JPRB, 0.123042E+01_JPRB &
+  &, 0.121162E+01_JPRB, 0.119278E+01_JPRB, 0.117393E+01_JPRB, 0.115510E+01_JPRB &
+  &, 0.113631E+01_JPRB, 0.111755E+01_JPRB, 0.109884E+01_JPRB &
+  &, 0.108015E+01_JPRB, 0.106156E+01_JPRB, 0.104299E+01_JPRB, 0.102452E+01_JPRB &
+  &, 0.100612E+01_JPRB, 0.987761E+00_JPRB, 0.969581E+00_JPRB &
+  &, 0.951429E+00_JPRB, 0.933451E+00_JPRB, 0.915549E+00_JPRB, 0.897748E+00_JPRB &
+  &, 0.880134E+00_JPRB, 0.862607E+00_JPRB, 0.845252E+00_JPRB/)
+XCW( 839, :) = (/ &
+  &  0.109874E+01_JPRB, 0.112328E+01_JPRB, 0.114775E+01_JPRB, 0.117211E+01_JPRB &
+  &, 0.119635E+01_JPRB, 0.122047E+01_JPRB, 0.124444E+01_JPRB &
+  &, 0.126825E+01_JPRB, 0.129188E+01_JPRB, 0.131532E+01_JPRB, 0.133856E+01_JPRB &
+  &, 0.136158E+01_JPRB, 0.138436E+01_JPRB, 0.140689E+01_JPRB &
+  &, 0.142916E+01_JPRB, 0.145115E+01_JPRB, 0.147285E+01_JPRB, 0.149424E+01_JPRB &
+  &, 0.151531E+01_JPRB, 0.153605E+01_JPRB, 0.155644E+01_JPRB &
+  &, 0.157647E+01_JPRB, 0.159612E+01_JPRB, 0.161539E+01_JPRB, 0.163425E+01_JPRB &
+  &, 0.165271E+01_JPRB, 0.167074E+01_JPRB, 0.168834E+01_JPRB &
+  &, 0.170548E+01_JPRB, 0.172218E+01_JPRB, 0.173840E+01_JPRB, 0.175414E+01_JPRB &
+  &, 0.176939E+01_JPRB, 0.178415E+01_JPRB, 0.179840E+01_JPRB &
+  &, 0.181214E+01_JPRB, 0.182534E+01_JPRB, 0.183803E+01_JPRB, 0.185017E+01_JPRB &
+  &, 0.186178E+01_JPRB, 0.187283E+01_JPRB, 0.188333E+01_JPRB &
+  &, 0.189327E+01_JPRB, 0.190264E+01_JPRB, 0.191145E+01_JPRB, 0.191969E+01_JPRB &
+  &, 0.192735E+01_JPRB, 0.193439E+01_JPRB, 0.194094E+01_JPRB &
+  &, 0.194687E+01_JPRB, 0.195222E+01_JPRB, 0.195699E+01_JPRB, 0.196117E+01_JPRB &
+  &, 0.196477E+01_JPRB, 0.196780E+01_JPRB, 0.197025E+01_JPRB &
+  &, 0.197212E+01_JPRB, 0.197342E+01_JPRB, 0.197414E+01_JPRB, 0.197429E+01_JPRB &
+  &, 0.197389E+01_JPRB, 0.197292E+01_JPRB, 0.197139E+01_JPRB &
+  &, 0.196932E+01_JPRB, 0.196670E+01_JPRB, 0.196353E+01_JPRB, 0.195982E+01_JPRB &
+  &, 0.195559E+01_JPRB, 0.195085E+01_JPRB, 0.194557E+01_JPRB &
+  &, 0.193980E+01_JPRB, 0.193351E+01_JPRB, 0.192673E+01_JPRB, 0.191946E+01_JPRB &
+  &, 0.191173E+01_JPRB, 0.190352E+01_JPRB, 0.189484E+01_JPRB &
+  &, 0.188569E+01_JPRB, 0.187612E+01_JPRB, 0.186610E+01_JPRB, 0.185568E+01_JPRB &
+  &, 0.184483E+01_JPRB, 0.183356E+01_JPRB, 0.182190E+01_JPRB &
+  &, 0.180986E+01_JPRB, 0.179744E+01_JPRB, 0.178463E+01_JPRB, 0.177149E+01_JPRB &
+  &, 0.175799E+01_JPRB, 0.174419E+01_JPRB, 0.173001E+01_JPRB &
+  &, 0.171555E+01_JPRB, 0.170078E+01_JPRB, 0.168572E+01_JPRB, 0.167037E+01_JPRB &
+  &, 0.165475E+01_JPRB, 0.163887E+01_JPRB, 0.162278E+01_JPRB &
+  &, 0.160640E+01_JPRB, 0.158981E+01_JPRB, 0.157299E+01_JPRB, 0.155601E+01_JPRB &
+  &, 0.153879E+01_JPRB, 0.152139E+01_JPRB, 0.150384E+01_JPRB &
+  &, 0.148614E+01_JPRB, 0.146827E+01_JPRB, 0.145026E+01_JPRB, 0.143214E+01_JPRB &
+  &, 0.141385E+01_JPRB, 0.139552E+01_JPRB, 0.137703E+01_JPRB &
+  &, 0.135851E+01_JPRB, 0.133989E+01_JPRB, 0.132116E+01_JPRB, 0.130243E+01_JPRB &
+  &, 0.128366E+01_JPRB, 0.126480E+01_JPRB, 0.124595E+01_JPRB &
+  &, 0.122707E+01_JPRB, 0.120821E+01_JPRB, 0.118933E+01_JPRB, 0.117046E+01_JPRB &
+  &, 0.115158E+01_JPRB, 0.113277E+01_JPRB, 0.111395E+01_JPRB &
+  &, 0.109520E+01_JPRB, 0.107654E+01_JPRB, 0.105790E+01_JPRB, 0.103935E+01_JPRB &
+  &, 0.102087E+01_JPRB, 0.100247E+01_JPRB, 0.984135E+00_JPRB &
+  &, 0.965937E+00_JPRB, 0.947786E+00_JPRB, 0.929827E+00_JPRB, 0.911963E+00_JPRB &
+  &, 0.894154E+00_JPRB, 0.876552E+00_JPRB, 0.859052E+00_JPRB/)
+XCW( 840, :) = (/ &
+  &  0.109917E+01_JPRB, 0.112384E+01_JPRB, 0.114842E+01_JPRB, 0.117291E+01_JPRB &
+  &, 0.119728E+01_JPRB, 0.122152E+01_JPRB, 0.124563E+01_JPRB &
+  &, 0.126957E+01_JPRB, 0.129334E+01_JPRB, 0.131692E+01_JPRB, 0.134030E+01_JPRB &
+  &, 0.136347E+01_JPRB, 0.138640E+01_JPRB, 0.140908E+01_JPRB &
+  &, 0.143151E+01_JPRB, 0.145366E+01_JPRB, 0.147551E+01_JPRB, 0.149707E+01_JPRB &
+  &, 0.151830E+01_JPRB, 0.153920E+01_JPRB, 0.155976E+01_JPRB &
+  &, 0.157996E+01_JPRB, 0.159979E+01_JPRB, 0.161923E+01_JPRB, 0.163827E+01_JPRB &
+  &, 0.165690E+01_JPRB, 0.167511E+01_JPRB, 0.169289E+01_JPRB &
+  &, 0.171022E+01_JPRB, 0.172709E+01_JPRB, 0.174350E+01_JPRB, 0.175942E+01_JPRB &
+  &, 0.177487E+01_JPRB, 0.178981E+01_JPRB, 0.180425E+01_JPRB &
+  &, 0.181817E+01_JPRB, 0.183158E+01_JPRB, 0.184445E+01_JPRB, 0.185679E+01_JPRB &
+  &, 0.186858E+01_JPRB, 0.187983E+01_JPRB, 0.189052E+01_JPRB &
+  &, 0.190065E+01_JPRB, 0.191023E+01_JPRB, 0.191922E+01_JPRB, 0.192765E+01_JPRB &
+  &, 0.193549E+01_JPRB, 0.194279E+01_JPRB, 0.194948E+01_JPRB &
+  &, 0.195561E+01_JPRB, 0.196115E+01_JPRB, 0.196610E+01_JPRB, 0.197048E+01_JPRB &
+  &, 0.197427E+01_JPRB, 0.197748E+01_JPRB, 0.198011E+01_JPRB &
+  &, 0.198218E+01_JPRB, 0.198366E+01_JPRB, 0.198456E+01_JPRB, 0.198490E+01_JPRB &
+  &, 0.198467E+01_JPRB, 0.198389E+01_JPRB, 0.198254E+01_JPRB &
+  &, 0.198064E+01_JPRB, 0.197818E+01_JPRB, 0.197518E+01_JPRB, 0.197166E+01_JPRB &
+  &, 0.196758E+01_JPRB, 0.196301E+01_JPRB, 0.195790E+01_JPRB &
+  &, 0.195226E+01_JPRB, 0.194615E+01_JPRB, 0.193952E+01_JPRB, 0.193241E+01_JPRB &
+  &, 0.192481E+01_JPRB, 0.191675E+01_JPRB, 0.190819E+01_JPRB &
+  &, 0.189922E+01_JPRB, 0.188977E+01_JPRB, 0.187989E+01_JPRB, 0.186959E+01_JPRB &
+  &, 0.185885E+01_JPRB, 0.184771E+01_JPRB, 0.183616E+01_JPRB &
+  &, 0.182423E+01_JPRB, 0.181191E+01_JPRB, 0.179923E+01_JPRB, 0.178619E+01_JPRB &
+  &, 0.177281E+01_JPRB, 0.175906E+01_JPRB, 0.174500E+01_JPRB &
+  &, 0.173063E+01_JPRB, 0.171593E+01_JPRB, 0.170095E+01_JPRB, 0.168566E+01_JPRB &
+  &, 0.167011E+01_JPRB, 0.165432E+01_JPRB, 0.163825E+01_JPRB &
+  &, 0.162196E+01_JPRB, 0.160542E+01_JPRB, 0.158864E+01_JPRB, 0.157170E+01_JPRB &
+  &, 0.155451E+01_JPRB, 0.153718E+01_JPRB, 0.151965E+01_JPRB &
+  &, 0.150193E+01_JPRB, 0.148411E+01_JPRB, 0.146611E+01_JPRB, 0.144799E+01_JPRB &
+  &, 0.142974E+01_JPRB, 0.141135E+01_JPRB, 0.139289E+01_JPRB &
+  &, 0.137434E+01_JPRB, 0.135570E+01_JPRB, 0.133703E+01_JPRB, 0.131822E+01_JPRB &
+  &, 0.129944E+01_JPRB, 0.128058E+01_JPRB, 0.126167E+01_JPRB &
+  &, 0.124273E+01_JPRB, 0.122384E+01_JPRB, 0.120488E+01_JPRB, 0.118598E+01_JPRB &
+  &, 0.116706E+01_JPRB, 0.114815E+01_JPRB, 0.112933E+01_JPRB &
+  &, 0.111052E+01_JPRB, 0.109175E+01_JPRB, 0.107304E+01_JPRB, 0.105441E+01_JPRB &
+  &, 0.103585E+01_JPRB, 0.101736E+01_JPRB, 0.998928E+00_JPRB &
+  &, 0.980628E+00_JPRB, 0.962429E+00_JPRB, 0.944292E+00_JPRB, 0.926305E+00_JPRB &
+  &, 0.908494E+00_JPRB, 0.890757E+00_JPRB, 0.873114E+00_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART120',1,ZHOOK_HANDLE)
+END SUBROUTINE PART120
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART121
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART121',0,ZHOOK_HANDLE)
+
+XCW( 841, :) = (/ &
+  &  0.109961E+01_JPRB, 0.112439E+01_JPRB, 0.114910E+01_JPRB, 0.117371E+01_JPRB &
+  &, 0.119821E+01_JPRB, 0.122258E+01_JPRB, 0.124682E+01_JPRB &
+  &, 0.127090E+01_JPRB, 0.129481E+01_JPRB, 0.131853E+01_JPRB, 0.134206E+01_JPRB &
+  &, 0.136537E+01_JPRB, 0.138845E+01_JPRB, 0.141129E+01_JPRB &
+  &, 0.143387E+01_JPRB, 0.145617E+01_JPRB, 0.147819E+01_JPRB, 0.149991E+01_JPRB &
+  &, 0.152131E+01_JPRB, 0.154238E+01_JPRB, 0.156310E+01_JPRB &
+  &, 0.158347E+01_JPRB, 0.160347E+01_JPRB, 0.162309E+01_JPRB, 0.164231E+01_JPRB &
+  &, 0.166112E+01_JPRB, 0.167951E+01_JPRB, 0.169746E+01_JPRB &
+  &, 0.171496E+01_JPRB, 0.173203E+01_JPRB, 0.174863E+01_JPRB, 0.176474E+01_JPRB &
+  &, 0.178037E+01_JPRB, 0.179551E+01_JPRB, 0.181014E+01_JPRB &
+  &, 0.182425E+01_JPRB, 0.183784E+01_JPRB, 0.185091E+01_JPRB, 0.186345E+01_JPRB &
+  &, 0.187543E+01_JPRB, 0.188688E+01_JPRB, 0.189776E+01_JPRB &
+  &, 0.190809E+01_JPRB, 0.191786E+01_JPRB, 0.192705E+01_JPRB, 0.193568E+01_JPRB &
+  &, 0.194373E+01_JPRB, 0.195119E+01_JPRB, 0.195809E+01_JPRB &
+  &, 0.196440E+01_JPRB, 0.197014E+01_JPRB, 0.197529E+01_JPRB, 0.197985E+01_JPRB &
+  &, 0.198383E+01_JPRB, 0.198724E+01_JPRB, 0.199006E+01_JPRB &
+  &, 0.199230E+01_JPRB, 0.199397E+01_JPRB, 0.199507E+01_JPRB, 0.199559E+01_JPRB &
+  &, 0.199555E+01_JPRB, 0.199493E+01_JPRB, 0.199377E+01_JPRB &
+  &, 0.199204E+01_JPRB, 0.198976E+01_JPRB, 0.198694E+01_JPRB, 0.198357E+01_JPRB &
+  &, 0.197968E+01_JPRB, 0.197526E+01_JPRB, 0.197031E+01_JPRB &
+  &, 0.196485E+01_JPRB, 0.195888E+01_JPRB, 0.195238E+01_JPRB, 0.194544E+01_JPRB &
+  &, 0.193800E+01_JPRB, 0.193009E+01_JPRB, 0.192169E+01_JPRB &
+  &, 0.191284E+01_JPRB, 0.190353E+01_JPRB, 0.189378E+01_JPRB, 0.188359E+01_JPRB &
+  &, 0.187300E+01_JPRB, 0.186198E+01_JPRB, 0.185056E+01_JPRB &
+  &, 0.183874E+01_JPRB, 0.182655E+01_JPRB, 0.181397E+01_JPRB, 0.180103E+01_JPRB &
+  &, 0.178775E+01_JPRB, 0.177409E+01_JPRB, 0.176012E+01_JPRB &
+  &, 0.174583E+01_JPRB, 0.173124E+01_JPRB, 0.171633E+01_JPRB, 0.170112E+01_JPRB &
+  &, 0.168564E+01_JPRB, 0.166991E+01_JPRB, 0.165390E+01_JPRB &
+  &, 0.163767E+01_JPRB, 0.162117E+01_JPRB, 0.160448E+01_JPRB, 0.158754E+01_JPRB &
+  &, 0.157042E+01_JPRB, 0.155312E+01_JPRB, 0.153558E+01_JPRB &
+  &, 0.151792E+01_JPRB, 0.150011E+01_JPRB, 0.148212E+01_JPRB, 0.146400E+01_JPRB &
+  &, 0.144576E+01_JPRB, 0.142740E+01_JPRB, 0.140897E+01_JPRB &
+  &, 0.139041E+01_JPRB, 0.137174E+01_JPRB, 0.135303E+01_JPRB, 0.133423E+01_JPRB &
+  &, 0.131541E+01_JPRB, 0.129650E+01_JPRB, 0.127758E+01_JPRB &
+  &, 0.125863E+01_JPRB, 0.123968E+01_JPRB, 0.122069E+01_JPRB, 0.120171E+01_JPRB &
+  &, 0.118276E+01_JPRB, 0.116380E+01_JPRB, 0.114488E+01_JPRB &
+  &, 0.112602E+01_JPRB, 0.110718E+01_JPRB, 0.108840E+01_JPRB, 0.106965E+01_JPRB &
+  &, 0.105100E+01_JPRB, 0.103243E+01_JPRB, 0.101396E+01_JPRB &
+  &, 0.995561E+00_JPRB, 0.977256E+00_JPRB, 0.959069E+00_JPRB, 0.940963E+00_JPRB &
+  &, 0.922963E+00_JPRB, 0.905156E+00_JPRB, 0.887439E+00_JPRB/)
+XCW( 842, :) = (/ &
+  &  0.110005E+01_JPRB, 0.112495E+01_JPRB, 0.114978E+01_JPRB, 0.117451E+01_JPRB &
+  &, 0.119914E+01_JPRB, 0.122365E+01_JPRB, 0.124802E+01_JPRB &
+  &, 0.127223E+01_JPRB, 0.129629E+01_JPRB, 0.132015E+01_JPRB, 0.134382E+01_JPRB &
+  &, 0.136728E+01_JPRB, 0.139052E+01_JPRB, 0.141351E+01_JPRB &
+  &, 0.143624E+01_JPRB, 0.145871E+01_JPRB, 0.148089E+01_JPRB, 0.150276E+01_JPRB &
+  &, 0.152433E+01_JPRB, 0.154557E+01_JPRB, 0.156646E+01_JPRB &
+  &, 0.158701E+01_JPRB, 0.160718E+01_JPRB, 0.162697E+01_JPRB, 0.164636E+01_JPRB &
+  &, 0.166534E+01_JPRB, 0.168393E+01_JPRB, 0.170207E+01_JPRB &
+  &, 0.171976E+01_JPRB, 0.173701E+01_JPRB, 0.175379E+01_JPRB, 0.177009E+01_JPRB &
+  &, 0.178591E+01_JPRB, 0.180124E+01_JPRB, 0.181604E+01_JPRB &
+  &, 0.183037E+01_JPRB, 0.184416E+01_JPRB, 0.185742E+01_JPRB, 0.187014E+01_JPRB &
+  &, 0.188233E+01_JPRB, 0.189397E+01_JPRB, 0.190505E+01_JPRB &
+  &, 0.191557E+01_JPRB, 0.192553E+01_JPRB, 0.193493E+01_JPRB, 0.194375E+01_JPRB &
+  &, 0.195200E+01_JPRB, 0.195966E+01_JPRB, 0.196673E+01_JPRB &
+  &, 0.197326E+01_JPRB, 0.197920E+01_JPRB, 0.198454E+01_JPRB, 0.198929E+01_JPRB &
+  &, 0.199347E+01_JPRB, 0.199706E+01_JPRB, 0.200008E+01_JPRB &
+  &, 0.200251E+01_JPRB, 0.200437E+01_JPRB, 0.200565E+01_JPRB, 0.200636E+01_JPRB &
+  &, 0.200650E+01_JPRB, 0.200606E+01_JPRB, 0.200508E+01_JPRB &
+  &, 0.200352E+01_JPRB, 0.200137E+01_JPRB, 0.199879E+01_JPRB, 0.199560E+01_JPRB &
+  &, 0.199187E+01_JPRB, 0.198761E+01_JPRB, 0.198283E+01_JPRB &
+  &, 0.197753E+01_JPRB, 0.197173E+01_JPRB, 0.196541E+01_JPRB, 0.195861E+01_JPRB &
+  &, 0.195130E+01_JPRB, 0.194353E+01_JPRB, 0.193521E+01_JPRB &
+  &, 0.192658E+01_JPRB, 0.191743E+01_JPRB, 0.190780E+01_JPRB, 0.189776E+01_JPRB &
+  &, 0.188728E+01_JPRB, 0.187640E+01_JPRB, 0.186510E+01_JPRB &
+  &, 0.185339E+01_JPRB, 0.184131E+01_JPRB, 0.182883E+01_JPRB, 0.181602E+01_JPRB &
+  &, 0.180271E+01_JPRB, 0.178927E+01_JPRB, 0.177539E+01_JPRB &
+  &, 0.176121E+01_JPRB, 0.174668E+01_JPRB, 0.173185E+01_JPRB, 0.171675E+01_JPRB &
+  &, 0.170134E+01_JPRB, 0.168568E+01_JPRB, 0.166973E+01_JPRB &
+  &, 0.165355E+01_JPRB, 0.163711E+01_JPRB, 0.162046E+01_JPRB, 0.160357E+01_JPRB &
+  &, 0.158649E+01_JPRB, 0.156922E+01_JPRB, 0.155175E+01_JPRB &
+  &, 0.153411E+01_JPRB, 0.151632E+01_JPRB, 0.149834E+01_JPRB, 0.148023E+01_JPRB &
+  &, 0.146203E+01_JPRB, 0.144367E+01_JPRB, 0.142519E+01_JPRB &
+  &, 0.140665E+01_JPRB, 0.138800E+01_JPRB, 0.136927E+01_JPRB, 0.135044E+01_JPRB &
+  &, 0.133158E+01_JPRB, 0.131267E+01_JPRB, 0.129370E+01_JPRB &
+  &, 0.127474E+01_JPRB, 0.125571E+01_JPRB, 0.123671E+01_JPRB, 0.121770E+01_JPRB &
+  &, 0.119866E+01_JPRB, 0.117967E+01_JPRB, 0.116070E+01_JPRB &
+  &, 0.114173E+01_JPRB, 0.112284E+01_JPRB, 0.110399E+01_JPRB, 0.108517E+01_JPRB &
+  &, 0.106644E+01_JPRB, 0.104779E+01_JPRB, 0.102917E+01_JPRB &
+  &, 0.101068E+01_JPRB, 0.992268E+00_JPRB, 0.973970E+00_JPRB, 0.955811E+00_JPRB &
+  &, 0.937687E+00_JPRB, 0.919750E+00_JPRB, 0.901961E+00_JPRB/)
+XCW( 843, :) = (/ &
+  &  0.110050E+01_JPRB, 0.112551E+01_JPRB, 0.115046E+01_JPRB, 0.117532E+01_JPRB &
+  &, 0.120008E+01_JPRB, 0.122472E+01_JPRB, 0.124922E+01_JPRB &
+  &, 0.127358E+01_JPRB, 0.129777E+01_JPRB, 0.132178E+01_JPRB, 0.134560E+01_JPRB &
+  &, 0.136921E+01_JPRB, 0.139259E+01_JPRB, 0.141574E+01_JPRB &
+  &, 0.143863E+01_JPRB, 0.146125E+01_JPRB, 0.148359E+01_JPRB, 0.150563E+01_JPRB &
+  &, 0.152737E+01_JPRB, 0.154877E+01_JPRB, 0.156984E+01_JPRB &
+  &, 0.159056E+01_JPRB, 0.161090E+01_JPRB, 0.163087E+01_JPRB, 0.165045E+01_JPRB &
+  &, 0.166962E+01_JPRB, 0.168837E+01_JPRB, 0.170670E+01_JPRB &
+  &, 0.172458E+01_JPRB, 0.174201E+01_JPRB, 0.175898E+01_JPRB, 0.177547E+01_JPRB &
+  &, 0.179148E+01_JPRB, 0.180700E+01_JPRB, 0.182202E+01_JPRB &
+  &, 0.183652E+01_JPRB, 0.185051E+01_JPRB, 0.186396E+01_JPRB, 0.187688E+01_JPRB &
+  &, 0.188927E+01_JPRB, 0.190110E+01_JPRB, 0.191238E+01_JPRB &
+  &, 0.192310E+01_JPRB, 0.193326E+01_JPRB, 0.194285E+01_JPRB, 0.195188E+01_JPRB &
+  &, 0.196032E+01_JPRB, 0.196818E+01_JPRB, 0.197548E+01_JPRB &
+  &, 0.198218E+01_JPRB, 0.198831E+01_JPRB, 0.199384E+01_JPRB, 0.199880E+01_JPRB &
+  &, 0.200318E+01_JPRB, 0.200696E+01_JPRB, 0.201017E+01_JPRB &
+  &, 0.201280E+01_JPRB, 0.201484E+01_JPRB, 0.201631E+01_JPRB, 0.201721E+01_JPRB &
+  &, 0.201754E+01_JPRB, 0.201729E+01_JPRB, 0.201647E+01_JPRB &
+  &, 0.201512E+01_JPRB, 0.201320E+01_JPRB, 0.201073E+01_JPRB, 0.200771E+01_JPRB &
+  &, 0.200416E+01_JPRB, 0.200006E+01_JPRB, 0.199546E+01_JPRB &
+  &, 0.199033E+01_JPRB, 0.198467E+01_JPRB, 0.197852E+01_JPRB, 0.197188E+01_JPRB &
+  &, 0.196472E+01_JPRB, 0.195710E+01_JPRB, 0.194901E+01_JPRB &
+  &, 0.194044E+01_JPRB, 0.193142E+01_JPRB, 0.192194E+01_JPRB, 0.191205E+01_JPRB &
+  &, 0.190170E+01_JPRB, 0.189093E+01_JPRB, 0.187975E+01_JPRB &
+  &, 0.186817E+01_JPRB, 0.185620E+01_JPRB, 0.184386E+01_JPRB, 0.183112E+01_JPRB &
+  &, 0.181804E+01_JPRB, 0.180460E+01_JPRB, 0.179072E+01_JPRB &
+  &, 0.177673E+01_JPRB, 0.176228E+01_JPRB, 0.174754E+01_JPRB, 0.173251E+01_JPRB &
+  &, 0.171717E+01_JPRB, 0.170158E+01_JPRB, 0.168569E+01_JPRB &
+  &, 0.166958E+01_JPRB, 0.165323E+01_JPRB, 0.163660E+01_JPRB, 0.161978E+01_JPRB &
+  &, 0.160275E+01_JPRB, 0.158552E+01_JPRB, 0.156808E+01_JPRB &
+  &, 0.155046E+01_JPRB, 0.153270E+01_JPRB, 0.151477E+01_JPRB, 0.149667E+01_JPRB &
+  &, 0.147847E+01_JPRB, 0.146011E+01_JPRB, 0.144167E+01_JPRB &
+  &, 0.142307E+01_JPRB, 0.140441E+01_JPRB, 0.138570E+01_JPRB, 0.136688E+01_JPRB &
+  &, 0.134798E+01_JPRB, 0.132903E+01_JPRB, 0.131006E+01_JPRB &
+  &, 0.129104E+01_JPRB, 0.127200E+01_JPRB, 0.125293E+01_JPRB, 0.123385E+01_JPRB &
+  &, 0.121477E+01_JPRB, 0.119575E+01_JPRB, 0.117668E+01_JPRB &
+  &, 0.115766E+01_JPRB, 0.113872E+01_JPRB, 0.111975E+01_JPRB, 0.110092E+01_JPRB &
+  &, 0.108206E+01_JPRB, 0.106333E+01_JPRB, 0.104468E+01_JPRB &
+  &, 0.102610E+01_JPRB, 0.100759E+01_JPRB, 0.989184E+00_JPRB, 0.970911E+00_JPRB &
+  &, 0.952667E+00_JPRB, 0.934603E+00_JPRB, 0.916680E+00_JPRB/)
+XCW( 844, :) = (/ &
+  &  0.110094E+01_JPRB, 0.112608E+01_JPRB, 0.115115E+01_JPRB, 0.117614E+01_JPRB &
+  &, 0.120102E+01_JPRB, 0.122579E+01_JPRB, 0.125043E+01_JPRB &
+  &, 0.127493E+01_JPRB, 0.129926E+01_JPRB, 0.132342E+01_JPRB, 0.134738E+01_JPRB &
+  &, 0.137114E+01_JPRB, 0.139468E+01_JPRB, 0.141797E+01_JPRB &
+  &, 0.144103E+01_JPRB, 0.146381E+01_JPRB, 0.148631E+01_JPRB, 0.150852E+01_JPRB &
+  &, 0.153042E+01_JPRB, 0.155200E+01_JPRB, 0.157324E+01_JPRB &
+  &, 0.159413E+01_JPRB, 0.161465E+01_JPRB, 0.163480E+01_JPRB, 0.165456E+01_JPRB &
+  &, 0.167391E+01_JPRB, 0.169285E+01_JPRB, 0.171135E+01_JPRB &
+  &, 0.172943E+01_JPRB, 0.174705E+01_JPRB, 0.176421E+01_JPRB, 0.178089E+01_JPRB &
+  &, 0.179709E+01_JPRB, 0.181281E+01_JPRB, 0.182802E+01_JPRB &
+  &, 0.184271E+01_JPRB, 0.185690E+01_JPRB, 0.187055E+01_JPRB, 0.188367E+01_JPRB &
+  &, 0.189626E+01_JPRB, 0.190829E+01_JPRB, 0.191976E+01_JPRB &
+  &, 0.193069E+01_JPRB, 0.194105E+01_JPRB, 0.195084E+01_JPRB, 0.196006E+01_JPRB &
+  &, 0.196870E+01_JPRB, 0.197677E+01_JPRB, 0.198426E+01_JPRB &
+  &, 0.199117E+01_JPRB, 0.199749E+01_JPRB, 0.200323E+01_JPRB, 0.200839E+01_JPRB &
+  &, 0.201295E+01_JPRB, 0.201693E+01_JPRB, 0.202034E+01_JPRB &
+  &, 0.202315E+01_JPRB, 0.202540E+01_JPRB, 0.202705E+01_JPRB, 0.202814E+01_JPRB &
+  &, 0.202865E+01_JPRB, 0.202859E+01_JPRB, 0.202798E+01_JPRB &
+  &, 0.202679E+01_JPRB, 0.202506E+01_JPRB, 0.202277E+01_JPRB, 0.201991E+01_JPRB &
+  &, 0.201655E+01_JPRB, 0.201264E+01_JPRB, 0.200818E+01_JPRB &
+  &, 0.200321E+01_JPRB, 0.199774E+01_JPRB, 0.199175E+01_JPRB, 0.198525E+01_JPRB &
+  &, 0.197828E+01_JPRB, 0.197080E+01_JPRB, 0.196286E+01_JPRB &
+  &, 0.195443E+01_JPRB, 0.194556E+01_JPRB, 0.193623E+01_JPRB, 0.192644E+01_JPRB &
+  &, 0.191624E+01_JPRB, 0.190560E+01_JPRB, 0.189456E+01_JPRB &
+  &, 0.188310E+01_JPRB, 0.187124E+01_JPRB, 0.185901E+01_JPRB, 0.184641E+01_JPRB &
+  &, 0.183343E+01_JPRB, 0.182009E+01_JPRB, 0.180640E+01_JPRB &
+  &, 0.179240E+01_JPRB, 0.177805E+01_JPRB, 0.176341E+01_JPRB, 0.174844E+01_JPRB &
+  &, 0.173321E+01_JPRB, 0.171765E+01_JPRB, 0.170187E+01_JPRB &
+  &, 0.168582E+01_JPRB, 0.166949E+01_JPRB, 0.165295E+01_JPRB, 0.163619E+01_JPRB &
+  &, 0.161920E+01_JPRB, 0.160201E+01_JPRB, 0.158460E+01_JPRB &
+  &, 0.156701E+01_JPRB, 0.154927E+01_JPRB, 0.153137E+01_JPRB, 0.151328E+01_JPRB &
+  &, 0.149509E+01_JPRB, 0.147677E+01_JPRB, 0.145828E+01_JPRB &
+  &, 0.143972E+01_JPRB, 0.142108E+01_JPRB, 0.140231E+01_JPRB, 0.138346E+01_JPRB &
+  &, 0.136457E+01_JPRB, 0.134563E+01_JPRB, 0.132661E+01_JPRB &
+  &, 0.130754E+01_JPRB, 0.128845E+01_JPRB, 0.126936E+01_JPRB, 0.125025E+01_JPRB &
+  &, 0.123115E+01_JPRB, 0.121204E+01_JPRB, 0.119294E+01_JPRB &
+  &, 0.117387E+01_JPRB, 0.115482E+01_JPRB, 0.113580E+01_JPRB, 0.111684E+01_JPRB &
+  &, 0.109797E+01_JPRB, 0.107910E+01_JPRB, 0.106038E+01_JPRB &
+  &, 0.104170E+01_JPRB, 0.102309E+01_JPRB, 0.100458E+01_JPRB, 0.986201E+00_JPRB &
+  &, 0.967904E+00_JPRB, 0.949716E+00_JPRB, 0.931662E+00_JPRB/)
+XCW( 845, :) = (/ &
+  &  0.110139E+01_JPRB, 0.112665E+01_JPRB, 0.115184E+01_JPRB, 0.117695E+01_JPRB &
+  &, 0.120197E+01_JPRB, 0.122687E+01_JPRB, 0.125165E+01_JPRB &
+  &, 0.127628E+01_JPRB, 0.130076E+01_JPRB, 0.132506E+01_JPRB, 0.134917E+01_JPRB &
+  &, 0.137308E+01_JPRB, 0.139677E+01_JPRB, 0.142023E+01_JPRB &
+  &, 0.144344E+01_JPRB, 0.146638E+01_JPRB, 0.148905E+01_JPRB, 0.151143E+01_JPRB &
+  &, 0.153349E+01_JPRB, 0.155524E+01_JPRB, 0.157665E+01_JPRB &
+  &, 0.159772E+01_JPRB, 0.161842E+01_JPRB, 0.163875E+01_JPRB, 0.165869E+01_JPRB &
+  &, 0.167822E+01_JPRB, 0.169735E+01_JPRB, 0.171604E+01_JPRB &
+  &, 0.173430E+01_JPRB, 0.175211E+01_JPRB, 0.176946E+01_JPRB, 0.178634E+01_JPRB &
+  &, 0.180273E+01_JPRB, 0.181865E+01_JPRB, 0.183405E+01_JPRB &
+  &, 0.184895E+01_JPRB, 0.186333E+01_JPRB, 0.187718E+01_JPRB, 0.189050E+01_JPRB &
+  &, 0.190329E+01_JPRB, 0.191552E+01_JPRB, 0.192720E+01_JPRB &
+  &, 0.193832E+01_JPRB, 0.194888E+01_JPRB, 0.195888E+01_JPRB, 0.196830E+01_JPRB &
+  &, 0.197715E+01_JPRB, 0.198542E+01_JPRB, 0.199311E+01_JPRB &
+  &, 0.200022E+01_JPRB, 0.200675E+01_JPRB, 0.201267E+01_JPRB, 0.201803E+01_JPRB &
+  &, 0.202279E+01_JPRB, 0.202698E+01_JPRB, 0.203058E+01_JPRB &
+  &, 0.203360E+01_JPRB, 0.203603E+01_JPRB, 0.203789E+01_JPRB, 0.203916E+01_JPRB &
+  &, 0.203986E+01_JPRB, 0.204000E+01_JPRB, 0.203955E+01_JPRB &
+  &, 0.203857E+01_JPRB, 0.203700E+01_JPRB, 0.203490E+01_JPRB, 0.203224E+01_JPRB &
+  &, 0.202904E+01_JPRB, 0.202530E+01_JPRB, 0.202103E+01_JPRB &
+  &, 0.201622E+01_JPRB, 0.201092E+01_JPRB, 0.200509E+01_JPRB, 0.199876E+01_JPRB &
+  &, 0.199193E+01_JPRB, 0.198461E+01_JPRB, 0.197681E+01_JPRB &
+  &, 0.196856E+01_JPRB, 0.195982E+01_JPRB, 0.195063E+01_JPRB, 0.194099E+01_JPRB &
+  &, 0.193092E+01_JPRB, 0.192042E+01_JPRB, 0.190951E+01_JPRB &
+  &, 0.189816E+01_JPRB, 0.188645E+01_JPRB, 0.187433E+01_JPRB, 0.186181E+01_JPRB &
+  &, 0.184896E+01_JPRB, 0.183573E+01_JPRB, 0.182213E+01_JPRB &
+  &, 0.180824E+01_JPRB, 0.179397E+01_JPRB, 0.177943E+01_JPRB, 0.176453E+01_JPRB &
+  &, 0.174938E+01_JPRB, 0.173394E+01_JPRB, 0.171819E+01_JPRB &
+  &, 0.170221E+01_JPRB, 0.168594E+01_JPRB, 0.166945E+01_JPRB, 0.165274E+01_JPRB &
+  &, 0.163580E+01_JPRB, 0.161865E+01_JPRB, 0.160128E+01_JPRB &
+  &, 0.158377E+01_JPRB, 0.156605E+01_JPRB, 0.154817E+01_JPRB, 0.153010E+01_JPRB &
+  &, 0.151192E+01_JPRB, 0.149361E+01_JPRB, 0.147516E+01_JPRB &
+  &, 0.145659E+01_JPRB, 0.143790E+01_JPRB, 0.141915E+01_JPRB, 0.140032E+01_JPRB &
+  &, 0.138141E+01_JPRB, 0.136243E+01_JPRB, 0.134336E+01_JPRB &
+  &, 0.132429E+01_JPRB, 0.130519E+01_JPRB, 0.128604E+01_JPRB, 0.126687E+01_JPRB &
+  &, 0.124769E+01_JPRB, 0.122855E+01_JPRB, 0.120936E+01_JPRB &
+  &, 0.119025E+01_JPRB, 0.117115E+01_JPRB, 0.115207E+01_JPRB, 0.113305E+01_JPRB &
+  &, 0.111406E+01_JPRB, 0.109517E+01_JPRB, 0.107631E+01_JPRB &
+  &, 0.105754E+01_JPRB, 0.103884E+01_JPRB, 0.102023E+01_JPRB, 0.100174E+01_JPRB &
+  &, 0.983396E+00_JPRB, 0.965088E+00_JPRB, 0.946908E+00_JPRB/)
+XCW( 846, :) = (/ &
+  &  0.110184E+01_JPRB, 0.112722E+01_JPRB, 0.115253E+01_JPRB, 0.117777E+01_JPRB &
+  &, 0.120292E+01_JPRB, 0.122796E+01_JPRB, 0.125287E+01_JPRB &
+  &, 0.127764E+01_JPRB, 0.130226E+01_JPRB, 0.132671E+01_JPRB, 0.135097E+01_JPRB &
+  &, 0.137503E+01_JPRB, 0.139888E+01_JPRB, 0.142249E+01_JPRB &
+  &, 0.144586E+01_JPRB, 0.146897E+01_JPRB, 0.149180E+01_JPRB, 0.151434E+01_JPRB &
+  &, 0.153658E+01_JPRB, 0.155850E+01_JPRB, 0.158009E+01_JPRB &
+  &, 0.160133E+01_JPRB, 0.162221E+01_JPRB, 0.164272E+01_JPRB, 0.166284E+01_JPRB &
+  &, 0.168256E+01_JPRB, 0.170187E+01_JPRB, 0.172076E+01_JPRB &
+  &, 0.173920E+01_JPRB, 0.175721E+01_JPRB, 0.177475E+01_JPRB, 0.179182E+01_JPRB &
+  &, 0.180841E+01_JPRB, 0.182452E+01_JPRB, 0.184012E+01_JPRB &
+  &, 0.185522E+01_JPRB, 0.186980E+01_JPRB, 0.188386E+01_JPRB, 0.189737E+01_JPRB &
+  &, 0.191036E+01_JPRB, 0.192280E+01_JPRB, 0.193468E+01_JPRB &
+  &, 0.194600E+01_JPRB, 0.195677E+01_JPRB, 0.196697E+01_JPRB, 0.197660E+01_JPRB &
+  &, 0.198565E+01_JPRB, 0.199412E+01_JPRB, 0.200202E+01_JPRB &
+  &, 0.200933E+01_JPRB, 0.201606E+01_JPRB, 0.202220E+01_JPRB, 0.202775E+01_JPRB &
+  &, 0.203272E+01_JPRB, 0.203710E+01_JPRB, 0.204089E+01_JPRB &
+  &, 0.204411E+01_JPRB, 0.204675E+01_JPRB, 0.204879E+01_JPRB, 0.205026E+01_JPRB &
+  &, 0.205116E+01_JPRB, 0.205147E+01_JPRB, 0.205123E+01_JPRB &
+  &, 0.205042E+01_JPRB, 0.204906E+01_JPRB, 0.204713E+01_JPRB, 0.204465E+01_JPRB &
+  &, 0.204162E+01_JPRB, 0.203805E+01_JPRB, 0.203395E+01_JPRB &
+  &, 0.202934E+01_JPRB, 0.202418E+01_JPRB, 0.201855E+01_JPRB, 0.201238E+01_JPRB &
+  &, 0.200571E+01_JPRB, 0.199856E+01_JPRB, 0.199090E+01_JPRB &
+  &, 0.198279E+01_JPRB, 0.197421E+01_JPRB, 0.196515E+01_JPRB, 0.195567E+01_JPRB &
+  &, 0.194572E+01_JPRB, 0.193538E+01_JPRB, 0.192459E+01_JPRB &
+  &, 0.191337E+01_JPRB, 0.190177E+01_JPRB, 0.188977E+01_JPRB, 0.187739E+01_JPRB &
+  &, 0.186465E+01_JPRB, 0.185152E+01_JPRB, 0.183803E+01_JPRB &
+  &, 0.182423E+01_JPRB, 0.181006E+01_JPRB, 0.179560E+01_JPRB, 0.178083E+01_JPRB &
+  &, 0.176572E+01_JPRB, 0.175036E+01_JPRB, 0.173469E+01_JPRB &
+  &, 0.171877E+01_JPRB, 0.170260E+01_JPRB, 0.168618E+01_JPRB, 0.166949E+01_JPRB &
+  &, 0.165259E+01_JPRB, 0.163549E+01_JPRB, 0.161820E+01_JPRB &
+  &, 0.160068E+01_JPRB, 0.158300E+01_JPRB, 0.156514E+01_JPRB, 0.154713E+01_JPRB &
+  &, 0.152896E+01_JPRB, 0.151066E+01_JPRB, 0.149221E+01_JPRB &
+  &, 0.147364E+01_JPRB, 0.145498E+01_JPRB, 0.143622E+01_JPRB, 0.141737E+01_JPRB &
+  &, 0.139843E+01_JPRB, 0.137942E+01_JPRB, 0.136036E+01_JPRB &
+  &, 0.134124E+01_JPRB, 0.132209E+01_JPRB, 0.130293E+01_JPRB, 0.128369E+01_JPRB &
+  &, 0.126449E+01_JPRB, 0.124527E+01_JPRB, 0.122610E+01_JPRB &
+  &, 0.120690E+01_JPRB, 0.118770E+01_JPRB, 0.116857E+01_JPRB, 0.114949E+01_JPRB &
+  &, 0.113044E+01_JPRB, 0.111142E+01_JPRB, 0.109248E+01_JPRB &
+  &, 0.107363E+01_JPRB, 0.105484E+01_JPRB, 0.103620E+01_JPRB, 0.101760E+01_JPRB &
+  &, 0.999081E+00_JPRB, 0.980655E+00_JPRB, 0.962415E+00_JPRB/)
+XCW( 847, :) = (/ &
+  &  0.110229E+01_JPRB, 0.112779E+01_JPRB, 0.115323E+01_JPRB, 0.117860E+01_JPRB &
+  &, 0.120388E+01_JPRB, 0.122905E+01_JPRB, 0.125410E+01_JPRB &
+  &, 0.127901E+01_JPRB, 0.130377E+01_JPRB, 0.132837E+01_JPRB, 0.135278E+01_JPRB &
+  &, 0.137699E+01_JPRB, 0.140099E+01_JPRB, 0.142477E+01_JPRB &
+  &, 0.144830E+01_JPRB, 0.147157E+01_JPRB, 0.149457E+01_JPRB, 0.151728E+01_JPRB &
+  &, 0.153969E+01_JPRB, 0.156178E+01_JPRB, 0.158354E+01_JPRB &
+  &, 0.160497E+01_JPRB, 0.162603E+01_JPRB, 0.164672E+01_JPRB, 0.166702E+01_JPRB &
+  &, 0.168693E+01_JPRB, 0.170643E+01_JPRB, 0.172550E+01_JPRB &
+  &, 0.174414E+01_JPRB, 0.176233E+01_JPRB, 0.178007E+01_JPRB, 0.179734E+01_JPRB &
+  &, 0.181413E+01_JPRB, 0.183043E+01_JPRB, 0.184624E+01_JPRB &
+  &, 0.186153E+01_JPRB, 0.187631E+01_JPRB, 0.189057E+01_JPRB, 0.190429E+01_JPRB &
+  &, 0.191748E+01_JPRB, 0.193012E+01_JPRB, 0.194221E+01_JPRB &
+  &, 0.195375E+01_JPRB, 0.196472E+01_JPRB, 0.197512E+01_JPRB, 0.198496E+01_JPRB &
+  &, 0.199421E+01_JPRB, 0.200289E+01_JPRB, 0.201099E+01_JPRB &
+  &, 0.201851E+01_JPRB, 0.202544E+01_JPRB, 0.203179E+01_JPRB, 0.203755E+01_JPRB &
+  &, 0.204271E+01_JPRB, 0.204730E+01_JPRB, 0.205130E+01_JPRB &
+  &, 0.205471E+01_JPRB, 0.205753E+01_JPRB, 0.205978E+01_JPRB, 0.206145E+01_JPRB &
+  &, 0.206254E+01_JPRB, 0.206305E+01_JPRB, 0.206300E+01_JPRB &
+  &, 0.206237E+01_JPRB, 0.206119E+01_JPRB, 0.205945E+01_JPRB, 0.205717E+01_JPRB &
+  &, 0.205431E+01_JPRB, 0.205093E+01_JPRB, 0.204701E+01_JPRB &
+  &, 0.204256E+01_JPRB, 0.203760E+01_JPRB, 0.203211E+01_JPRB, 0.202611E+01_JPRB &
+  &, 0.201959E+01_JPRB, 0.201260E+01_JPRB, 0.200511E+01_JPRB &
+  &, 0.199716E+01_JPRB, 0.198872E+01_JPRB, 0.197982E+01_JPRB, 0.197048E+01_JPRB &
+  &, 0.196069E+01_JPRB, 0.195045E+01_JPRB, 0.193981E+01_JPRB &
+  &, 0.192874E+01_JPRB, 0.191727E+01_JPRB, 0.190538E+01_JPRB, 0.189311E+01_JPRB &
+  &, 0.188048E+01_JPRB, 0.186746E+01_JPRB, 0.185411E+01_JPRB &
+  &, 0.184038E+01_JPRB, 0.182633E+01_JPRB, 0.181194E+01_JPRB, 0.179725E+01_JPRB &
+  &, 0.178224E+01_JPRB, 0.176695E+01_JPRB, 0.175139E+01_JPRB &
+  &, 0.173551E+01_JPRB, 0.171941E+01_JPRB, 0.170305E+01_JPRB, 0.168646E+01_JPRB &
+  &, 0.166962E+01_JPRB, 0.165256E+01_JPRB, 0.163528E+01_JPRB &
+  &, 0.161780E+01_JPRB, 0.160015E+01_JPRB, 0.158235E+01_JPRB, 0.156433E+01_JPRB &
+  &, 0.154618E+01_JPRB, 0.152789E+01_JPRB, 0.150949E+01_JPRB &
+  &, 0.149092E+01_JPRB, 0.147225E+01_JPRB, 0.145347E+01_JPRB, 0.143461E+01_JPRB &
+  &, 0.141564E+01_JPRB, 0.139665E+01_JPRB, 0.137756E+01_JPRB &
+  &, 0.135844E+01_JPRB, 0.133924E+01_JPRB, 0.132003E+01_JPRB, 0.130077E+01_JPRB &
+  &, 0.128151E+01_JPRB, 0.126226E+01_JPRB, 0.124301E+01_JPRB &
+  &, 0.122377E+01_JPRB, 0.120452E+01_JPRB, 0.118530E+01_JPRB, 0.116616E+01_JPRB &
+  &, 0.114699E+01_JPRB, 0.112797E+01_JPRB, 0.110895E+01_JPRB &
+  &, 0.108996E+01_JPRB, 0.107114E+01_JPRB, 0.105234E+01_JPRB, 0.103365E+01_JPRB &
+  &, 0.101502E+01_JPRB, 0.996546E+00_JPRB, 0.978120E+00_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART121',1,ZHOOK_HANDLE)
+END SUBROUTINE PART121
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART122
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART122',0,ZHOOK_HANDLE)
+
+XCW( 848, :) = (/ &
+  &  0.110274E+01_JPRB, 0.112836E+01_JPRB, 0.115393E+01_JPRB, 0.117943E+01_JPRB &
+  &, 0.120484E+01_JPRB, 0.123014E+01_JPRB, 0.125533E+01_JPRB &
+  &, 0.128039E+01_JPRB, 0.130530E+01_JPRB, 0.133004E+01_JPRB, 0.135460E+01_JPRB &
+  &, 0.137897E+01_JPRB, 0.140312E+01_JPRB, 0.142706E+01_JPRB &
+  &, 0.145075E+01_JPRB, 0.147418E+01_JPRB, 0.149735E+01_JPRB, 0.152023E+01_JPRB &
+  &, 0.154281E+01_JPRB, 0.156508E+01_JPRB, 0.158702E+01_JPRB &
+  &, 0.160862E+01_JPRB, 0.162986E+01_JPRB, 0.165073E+01_JPRB, 0.167122E+01_JPRB &
+  &, 0.169132E+01_JPRB, 0.171101E+01_JPRB, 0.173027E+01_JPRB &
+  &, 0.174910E+01_JPRB, 0.176749E+01_JPRB, 0.178543E+01_JPRB, 0.180289E+01_JPRB &
+  &, 0.181988E+01_JPRB, 0.183638E+01_JPRB, 0.185239E+01_JPRB &
+  &, 0.186789E+01_JPRB, 0.188287E+01_JPRB, 0.189733E+01_JPRB, 0.191126E+01_JPRB &
+  &, 0.192466E+01_JPRB, 0.193750E+01_JPRB, 0.194980E+01_JPRB &
+  &, 0.196154E+01_JPRB, 0.197272E+01_JPRB, 0.198333E+01_JPRB, 0.199336E+01_JPRB &
+  &, 0.200284E+01_JPRB, 0.201173E+01_JPRB, 0.202003E+01_JPRB &
+  &, 0.202775E+01_JPRB, 0.203489E+01_JPRB, 0.204144E+01_JPRB, 0.204740E+01_JPRB &
+  &, 0.205278E+01_JPRB, 0.205757E+01_JPRB, 0.206177E+01_JPRB &
+  &, 0.206538E+01_JPRB, 0.206841E+01_JPRB, 0.207086E+01_JPRB, 0.207273E+01_JPRB &
+  &, 0.207401E+01_JPRB, 0.207472E+01_JPRB, 0.207485E+01_JPRB &
+  &, 0.207444E+01_JPRB, 0.207341E+01_JPRB, 0.207189E+01_JPRB, 0.206978E+01_JPRB &
+  &, 0.206712E+01_JPRB, 0.206391E+01_JPRB, 0.206018E+01_JPRB &
+  &, 0.205591E+01_JPRB, 0.205110E+01_JPRB, 0.204578E+01_JPRB, 0.203995E+01_JPRB &
+  &, 0.203354E+01_JPRB, 0.202679E+01_JPRB, 0.201946E+01_JPRB &
+  &, 0.201166E+01_JPRB, 0.200338E+01_JPRB, 0.199462E+01_JPRB, 0.198544E+01_JPRB &
+  &, 0.197579E+01_JPRB, 0.196570E+01_JPRB, 0.195517E+01_JPRB &
+  &, 0.194422E+01_JPRB, 0.193287E+01_JPRB, 0.192114E+01_JPRB, 0.190898E+01_JPRB &
+  &, 0.189647E+01_JPRB, 0.188356E+01_JPRB, 0.187031E+01_JPRB &
+  &, 0.185668E+01_JPRB, 0.184274E+01_JPRB, 0.182848E+01_JPRB, 0.181385E+01_JPRB &
+  &, 0.179896E+01_JPRB, 0.178375E+01_JPRB, 0.176824E+01_JPRB &
+  &, 0.175247E+01_JPRB, 0.173641E+01_JPRB, 0.172011E+01_JPRB, 0.170358E+01_JPRB &
+  &, 0.168679E+01_JPRB, 0.166979E+01_JPRB, 0.165255E+01_JPRB &
+  &, 0.163515E+01_JPRB, 0.161754E+01_JPRB, 0.159974E+01_JPRB, 0.158178E+01_JPRB &
+  &, 0.156365E+01_JPRB, 0.154537E+01_JPRB, 0.152694E+01_JPRB &
+  &, 0.150842E+01_JPRB, 0.148975E+01_JPRB, 0.147096E+01_JPRB, 0.145208E+01_JPRB &
+  &, 0.143314E+01_JPRB, 0.141412E+01_JPRB, 0.139500E+01_JPRB &
+  &, 0.137584E+01_JPRB, 0.135665E+01_JPRB, 0.133738E+01_JPRB, 0.131811E+01_JPRB &
+  &, 0.129878E+01_JPRB, 0.127947E+01_JPRB, 0.126019E+01_JPRB &
+  &, 0.124086E+01_JPRB, 0.122158E+01_JPRB, 0.120230E+01_JPRB, 0.118307E+01_JPRB &
+  &, 0.116383E+01_JPRB, 0.114469E+01_JPRB, 0.112560E+01_JPRB &
+  &, 0.110659E+01_JPRB, 0.108763E+01_JPRB, 0.106874E+01_JPRB, 0.104995E+01_JPRB &
+  &, 0.103122E+01_JPRB, 0.101263E+01_JPRB, 0.994154E+00_JPRB/)
+XCW( 849, :) = (/ &
+  &  0.110319E+01_JPRB, 0.112894E+01_JPRB, 0.115464E+01_JPRB, 0.118026E+01_JPRB &
+  &, 0.120580E+01_JPRB, 0.123125E+01_JPRB, 0.125657E+01_JPRB &
+  &, 0.128177E+01_JPRB, 0.130682E+01_JPRB, 0.133171E+01_JPRB, 0.135643E+01_JPRB &
+  &, 0.138095E+01_JPRB, 0.140526E+01_JPRB, 0.142936E+01_JPRB &
+  &, 0.145321E+01_JPRB, 0.147681E+01_JPRB, 0.150015E+01_JPRB, 0.152320E+01_JPRB &
+  &, 0.154595E+01_JPRB, 0.156840E+01_JPRB, 0.159052E+01_JPRB &
+  &, 0.161229E+01_JPRB, 0.163372E+01_JPRB, 0.165478E+01_JPRB, 0.167545E+01_JPRB &
+  &, 0.169574E+01_JPRB, 0.171562E+01_JPRB, 0.173507E+01_JPRB &
+  &, 0.175410E+01_JPRB, 0.177269E+01_JPRB, 0.179081E+01_JPRB, 0.180848E+01_JPRB &
+  &, 0.182567E+01_JPRB, 0.184237E+01_JPRB, 0.185858E+01_JPRB &
+  &, 0.187428E+01_JPRB, 0.188947E+01_JPRB, 0.190413E+01_JPRB, 0.191828E+01_JPRB &
+  &, 0.193187E+01_JPRB, 0.194493E+01_JPRB, 0.195743E+01_JPRB &
+  &, 0.196938E+01_JPRB, 0.198078E+01_JPRB, 0.199159E+01_JPRB, 0.200184E+01_JPRB &
+  &, 0.201152E+01_JPRB, 0.202062E+01_JPRB, 0.202914E+01_JPRB &
+  &, 0.203707E+01_JPRB, 0.204442E+01_JPRB, 0.205117E+01_JPRB, 0.205733E+01_JPRB &
+  &, 0.206292E+01_JPRB, 0.206790E+01_JPRB, 0.207233E+01_JPRB &
+  &, 0.207614E+01_JPRB, 0.207938E+01_JPRB, 0.208202E+01_JPRB, 0.208408E+01_JPRB &
+  &, 0.208557E+01_JPRB, 0.208649E+01_JPRB, 0.208682E+01_JPRB &
+  &, 0.208658E+01_JPRB, 0.208578E+01_JPRB, 0.208442E+01_JPRB, 0.208250E+01_JPRB &
+  &, 0.208002E+01_JPRB, 0.207701E+01_JPRB, 0.207346E+01_JPRB &
+  &, 0.206937E+01_JPRB, 0.206473E+01_JPRB, 0.205959E+01_JPRB, 0.205393E+01_JPRB &
+  &, 0.204776E+01_JPRB, 0.204109E+01_JPRB, 0.203393E+01_JPRB &
+  &, 0.202591E+01_JPRB, 0.201817E+01_JPRB, 0.200957E+01_JPRB, 0.200051E+01_JPRB &
+  &, 0.199101E+01_JPRB, 0.198107E+01_JPRB, 0.197069E+01_JPRB &
+  &, 0.195987E+01_JPRB, 0.194868E+01_JPRB, 0.193704E+01_JPRB, 0.192503E+01_JPRB &
+  &, 0.191261E+01_JPRB, 0.189984E+01_JPRB, 0.188670E+01_JPRB &
+  &, 0.187318E+01_JPRB, 0.185934E+01_JPRB, 0.184514E+01_JPRB, 0.183065E+01_JPRB &
+  &, 0.181584E+01_JPRB, 0.180069E+01_JPRB, 0.178530E+01_JPRB &
+  &, 0.176957E+01_JPRB, 0.175362E+01_JPRB, 0.173739E+01_JPRB, 0.172088E+01_JPRB &
+  &, 0.170416E+01_JPRB, 0.168721E+01_JPRB, 0.167006E+01_JPRB &
+  &, 0.165267E+01_JPRB, 0.163510E+01_JPRB, 0.161733E+01_JPRB, 0.159940E+01_JPRB &
+  &, 0.158129E+01_JPRB, 0.156303E+01_JPRB, 0.154465E+01_JPRB &
+  &, 0.152610E+01_JPRB, 0.150743E+01_JPRB, 0.148868E+01_JPRB, 0.146979E+01_JPRB &
+  &, 0.145083E+01_JPRB, 0.143179E+01_JPRB, 0.141268E+01_JPRB &
+  &, 0.139349E+01_JPRB, 0.137425E+01_JPRB, 0.135498E+01_JPRB, 0.133567E+01_JPRB &
+  &, 0.131633E+01_JPRB, 0.129694E+01_JPRB, 0.127758E+01_JPRB &
+  &, 0.125823E+01_JPRB, 0.123886E+01_JPRB, 0.121954E+01_JPRB, 0.120020E+01_JPRB &
+  &, 0.118097E+01_JPRB, 0.116170E+01_JPRB, 0.114255E+01_JPRB &
+  &, 0.112340E+01_JPRB, 0.110436E+01_JPRB, 0.108539E+01_JPRB, 0.106650E+01_JPRB &
+  &, 0.104773E+01_JPRB, 0.102898E+01_JPRB, 0.101038E+01_JPRB/)
+XCW( 850, :) = (/ &
+  &  0.110365E+01_JPRB, 0.112952E+01_JPRB, 0.115534E+01_JPRB, 0.118110E+01_JPRB &
+  &, 0.120677E+01_JPRB, 0.123235E+01_JPRB, 0.125782E+01_JPRB &
+  &, 0.128316E+01_JPRB, 0.130836E+01_JPRB, 0.133340E+01_JPRB, 0.135827E+01_JPRB &
+  &, 0.138294E+01_JPRB, 0.140742E+01_JPRB, 0.143167E+01_JPRB &
+  &, 0.145569E+01_JPRB, 0.147946E+01_JPRB, 0.150296E+01_JPRB, 0.152618E+01_JPRB &
+  &, 0.154911E+01_JPRB, 0.157173E+01_JPRB, 0.159403E+01_JPRB &
+  &, 0.161599E+01_JPRB, 0.163760E+01_JPRB, 0.165885E+01_JPRB, 0.167971E+01_JPRB &
+  &, 0.170019E+01_JPRB, 0.172025E+01_JPRB, 0.173990E+01_JPRB &
+  &, 0.175913E+01_JPRB, 0.177791E+01_JPRB, 0.179624E+01_JPRB, 0.181410E+01_JPRB &
+  &, 0.183149E+01_JPRB, 0.184840E+01_JPRB, 0.186481E+01_JPRB &
+  &, 0.188072E+01_JPRB, 0.189611E+01_JPRB, 0.191099E+01_JPRB, 0.192534E+01_JPRB &
+  &, 0.193913E+01_JPRB, 0.195241E+01_JPRB, 0.196513E+01_JPRB &
+  &, 0.197729E+01_JPRB, 0.198888E+01_JPRB, 0.199992E+01_JPRB, 0.201038E+01_JPRB &
+  &, 0.202027E+01_JPRB, 0.202957E+01_JPRB, 0.203830E+01_JPRB &
+  &, 0.204645E+01_JPRB, 0.205400E+01_JPRB, 0.206097E+01_JPRB, 0.206736E+01_JPRB &
+  &, 0.207314E+01_JPRB, 0.207834E+01_JPRB, 0.208296E+01_JPRB &
+  &, 0.208699E+01_JPRB, 0.209042E+01_JPRB, 0.209328E+01_JPRB, 0.209555E+01_JPRB &
+  &, 0.209724E+01_JPRB, 0.209835E+01_JPRB, 0.209887E+01_JPRB &
+  &, 0.209883E+01_JPRB, 0.209823E+01_JPRB, 0.209706E+01_JPRB, 0.209533E+01_JPRB &
+  &, 0.209304E+01_JPRB, 0.209022E+01_JPRB, 0.208684E+01_JPRB &
+  &, 0.208293E+01_JPRB, 0.207849E+01_JPRB, 0.207350E+01_JPRB, 0.206802E+01_JPRB &
+  &, 0.206203E+01_JPRB, 0.205553E+01_JPRB, 0.204853E+01_JPRB &
+  &, 0.204104E+01_JPRB, 0.203308E+01_JPRB, 0.202465E+01_JPRB, 0.201575E+01_JPRB &
+  &, 0.200640E+01_JPRB, 0.199659E+01_JPRB, 0.198635E+01_JPRB &
+  &, 0.197569E+01_JPRB, 0.196459E+01_JPRB, 0.195311E+01_JPRB, 0.194120E+01_JPRB &
+  &, 0.192892E+01_JPRB, 0.191627E+01_JPRB, 0.190325E+01_JPRB &
+  &, 0.188984E+01_JPRB, 0.187610E+01_JPRB, 0.186201E+01_JPRB, 0.184761E+01_JPRB &
+  &, 0.183286E+01_JPRB, 0.181784E+01_JPRB, 0.180249E+01_JPRB &
+  &, 0.178688E+01_JPRB, 0.177097E+01_JPRB, 0.175482E+01_JPRB, 0.173842E+01_JPRB &
+  &, 0.172176E+01_JPRB, 0.170487E+01_JPRB, 0.168773E+01_JPRB &
+  &, 0.167039E+01_JPRB, 0.165286E+01_JPRB, 0.163513E+01_JPRB, 0.161723E+01_JPRB &
+  &, 0.159915E+01_JPRB, 0.158091E+01_JPRB, 0.156255E+01_JPRB &
+  &, 0.154404E+01_JPRB, 0.152538E+01_JPRB, 0.150663E+01_JPRB, 0.148774E+01_JPRB &
+  &, 0.146876E+01_JPRB, 0.144970E+01_JPRB, 0.143056E+01_JPRB &
+  &, 0.141134E+01_JPRB, 0.139211E+01_JPRB, 0.137280E+01_JPRB, 0.135343E+01_JPRB &
+  &, 0.133403E+01_JPRB, 0.131462E+01_JPRB, 0.129525E+01_JPRB &
+  &, 0.127582E+01_JPRB, 0.125641E+01_JPRB, 0.123700E+01_JPRB, 0.121761E+01_JPRB &
+  &, 0.119828E+01_JPRB, 0.117901E+01_JPRB, 0.115973E+01_JPRB &
+  &, 0.114052E+01_JPRB, 0.112141E+01_JPRB, 0.110235E+01_JPRB, 0.108337E+01_JPRB &
+  &, 0.106444E+01_JPRB, 0.104565E+01_JPRB, 0.102694E+01_JPRB/)
+XCW( 851, :) = (/ &
+  &  0.110411E+01_JPRB, 0.113010E+01_JPRB, 0.115605E+01_JPRB, 0.118194E+01_JPRB &
+  &, 0.120775E+01_JPRB, 0.123347E+01_JPRB, 0.125908E+01_JPRB &
+  &, 0.128456E+01_JPRB, 0.130990E+01_JPRB, 0.133509E+01_JPRB, 0.136011E+01_JPRB &
+  &, 0.138495E+01_JPRB, 0.140958E+01_JPRB, 0.143400E+01_JPRB &
+  &, 0.145818E+01_JPRB, 0.148211E+01_JPRB, 0.150579E+01_JPRB, 0.152919E+01_JPRB &
+  &, 0.155229E+01_JPRB, 0.157509E+01_JPRB, 0.159757E+01_JPRB &
+  &, 0.161971E+01_JPRB, 0.164151E+01_JPRB, 0.166294E+01_JPRB, 0.168399E+01_JPRB &
+  &, 0.170466E+01_JPRB, 0.172492E+01_JPRB, 0.174477E+01_JPRB &
+  &, 0.176419E+01_JPRB, 0.178317E+01_JPRB, 0.180170E+01_JPRB, 0.181976E+01_JPRB &
+  &, 0.183736E+01_JPRB, 0.185447E+01_JPRB, 0.187109E+01_JPRB &
+  &, 0.188720E+01_JPRB, 0.190281E+01_JPRB, 0.191788E+01_JPRB, 0.193244E+01_JPRB &
+  &, 0.194647E+01_JPRB, 0.195994E+01_JPRB, 0.197287E+01_JPRB &
+  &, 0.198524E+01_JPRB, 0.199706E+01_JPRB, 0.200830E+01_JPRB, 0.201898E+01_JPRB &
+  &, 0.202908E+01_JPRB, 0.203860E+01_JPRB, 0.204753E+01_JPRB &
+  &, 0.205589E+01_JPRB, 0.206366E+01_JPRB, 0.207085E+01_JPRB, 0.207743E+01_JPRB &
+  &, 0.208345E+01_JPRB, 0.208886E+01_JPRB, 0.209368E+01_JPRB &
+  &, 0.209791E+01_JPRB, 0.210157E+01_JPRB, 0.210462E+01_JPRB, 0.210709E+01_JPRB &
+  &, 0.210898E+01_JPRB, 0.211029E+01_JPRB, 0.211103E+01_JPRB &
+  &, 0.211119E+01_JPRB, 0.211077E+01_JPRB, 0.210980E+01_JPRB, 0.210827E+01_JPRB &
+  &, 0.210616E+01_JPRB, 0.210354E+01_JPRB, 0.210034E+01_JPRB &
+  &, 0.209661E+01_JPRB, 0.209236E+01_JPRB, 0.208755E+01_JPRB, 0.208225E+01_JPRB &
+  &, 0.207643E+01_JPRB, 0.207009E+01_JPRB, 0.206326E+01_JPRB &
+  &, 0.205594E+01_JPRB, 0.204814E+01_JPRB, 0.203986E+01_JPRB, 0.203113E+01_JPRB &
+  &, 0.202192E+01_JPRB, 0.201225E+01_JPRB, 0.200217E+01_JPRB &
+  &, 0.199165E+01_JPRB, 0.198068E+01_JPRB, 0.196933E+01_JPRB, 0.195757E+01_JPRB &
+  &, 0.194542E+01_JPRB, 0.193286E+01_JPRB, 0.191995E+01_JPRB &
+  &, 0.190668E+01_JPRB, 0.189303E+01_JPRB, 0.187907E+01_JPRB, 0.186474E+01_JPRB &
+  &, 0.185013E+01_JPRB, 0.183516E+01_JPRB, 0.181994E+01_JPRB &
+  &, 0.180438E+01_JPRB, 0.178855E+01_JPRB, 0.177247E+01_JPRB, 0.175614E+01_JPRB &
+  &, 0.173951E+01_JPRB, 0.172268E+01_JPRB, 0.170560E+01_JPRB &
+  &, 0.168835E+01_JPRB, 0.167086E+01_JPRB, 0.165317E+01_JPRB, 0.163531E+01_JPRB &
+  &, 0.161726E+01_JPRB, 0.159905E+01_JPRB, 0.158066E+01_JPRB &
+  &, 0.156217E+01_JPRB, 0.154352E+01_JPRB, 0.152477E+01_JPRB, 0.150591E+01_JPRB &
+  &, 0.148693E+01_JPRB, 0.146785E+01_JPRB, 0.144869E+01_JPRB &
+  &, 0.142949E+01_JPRB, 0.141012E+01_JPRB, 0.139087E+01_JPRB, 0.137145E+01_JPRB &
+  &, 0.135204E+01_JPRB, 0.133092E+01_JPRB, 0.131313E+01_JPRB &
+  &, 0.129368E+01_JPRB, 0.127419E+01_JPRB, 0.125475E+01_JPRB, 0.123532E+01_JPRB &
+  &, 0.121588E+01_JPRB, 0.119650E+01_JPRB, 0.117722E+01_JPRB &
+  &, 0.115788E+01_JPRB, 0.113869E+01_JPRB, 0.111956E+01_JPRB, 0.110043E+01_JPRB &
+  &, 0.108147E+01_JPRB, 0.106251E+01_JPRB, 0.104370E+01_JPRB/)
+XCW( 852, :) = (/ &
+  &  0.110457E+01_JPRB, 0.113069E+01_JPRB, 0.115677E+01_JPRB, 0.118278E+01_JPRB &
+  &, 0.120873E+01_JPRB, 0.123458E+01_JPRB, 0.126033E+01_JPRB &
+  &, 0.128596E+01_JPRB, 0.131146E+01_JPRB, 0.133680E+01_JPRB, 0.136197E+01_JPRB &
+  &, 0.138696E+01_JPRB, 0.141176E+01_JPRB, 0.143633E+01_JPRB &
+  &, 0.146068E+01_JPRB, 0.148479E+01_JPRB, 0.150863E+01_JPRB, 0.153221E+01_JPRB &
+  &, 0.155549E+01_JPRB, 0.157847E+01_JPRB, 0.160112E+01_JPRB &
+  &, 0.162345E+01_JPRB, 0.164543E+01_JPRB, 0.166705E+01_JPRB, 0.168830E+01_JPRB &
+  &, 0.170915E+01_JPRB, 0.172962E+01_JPRB, 0.174966E+01_JPRB &
+  &, 0.176928E+01_JPRB, 0.178846E+01_JPRB, 0.180719E+01_JPRB, 0.182546E+01_JPRB &
+  &, 0.184326E+01_JPRB, 0.186058E+01_JPRB, 0.187740E+01_JPRB &
+  &, 0.189373E+01_JPRB, 0.190954E+01_JPRB, 0.192484E+01_JPRB, 0.193960E+01_JPRB &
+  &, 0.195384E+01_JPRB, 0.196752E+01_JPRB, 0.198065E+01_JPRB &
+  &, 0.199325E+01_JPRB, 0.200528E+01_JPRB, 0.201674E+01_JPRB, 0.202763E+01_JPRB &
+  &, 0.203795E+01_JPRB, 0.204769E+01_JPRB, 0.205684E+01_JPRB &
+  &, 0.206541E+01_JPRB, 0.207339E+01_JPRB, 0.208079E+01_JPRB, 0.208760E+01_JPRB &
+  &, 0.209382E+01_JPRB, 0.209945E+01_JPRB, 0.210448E+01_JPRB &
+  &, 0.210893E+01_JPRB, 0.211278E+01_JPRB, 0.211604E+01_JPRB, 0.211872E+01_JPRB &
+  &, 0.212083E+01_JPRB, 0.212234E+01_JPRB, 0.212328E+01_JPRB &
+  &, 0.212364E+01_JPRB, 0.212342E+01_JPRB, 0.212265E+01_JPRB, 0.212131E+01_JPRB &
+  &, 0.211941E+01_JPRB, 0.211696E+01_JPRB, 0.211395E+01_JPRB &
+  &, 0.211042E+01_JPRB, 0.210633E+01_JPRB, 0.210173E+01_JPRB, 0.209659E+01_JPRB &
+  &, 0.209095E+01_JPRB, 0.208479E+01_JPRB, 0.207814E+01_JPRB &
+  &, 0.207098E+01_JPRB, 0.206334E+01_JPRB, 0.205521E+01_JPRB, 0.204663E+01_JPRB &
+  &, 0.203759E+01_JPRB, 0.202809E+01_JPRB, 0.201813E+01_JPRB &
+  &, 0.200774E+01_JPRB, 0.199694E+01_JPRB, 0.198572E+01_JPRB, 0.197409E+01_JPRB &
+  &, 0.196207E+01_JPRB, 0.194963E+01_JPRB, 0.193684E+01_JPRB &
+  &, 0.192369E+01_JPRB, 0.191014E+01_JPRB, 0.189629E+01_JPRB, 0.188207E+01_JPRB &
+  &, 0.186752E+01_JPRB, 0.185269E+01_JPRB, 0.183752E+01_JPRB &
+  &, 0.182209E+01_JPRB, 0.180634E+01_JPRB, 0.179030E+01_JPRB, 0.177405E+01_JPRB &
+  &, 0.175749E+01_JPRB, 0.174072E+01_JPRB, 0.172371E+01_JPRB &
+  &, 0.170647E+01_JPRB, 0.168903E+01_JPRB, 0.167139E+01_JPRB, 0.165356E+01_JPRB &
+  &, 0.163555E+01_JPRB, 0.161736E+01_JPRB, 0.159904E+01_JPRB &
+  &, 0.158057E+01_JPRB, 0.156192E+01_JPRB, 0.154318E+01_JPRB, 0.152428E+01_JPRB &
+  &, 0.150534E+01_JPRB, 0.148624E+01_JPRB, 0.146706E+01_JPRB &
+  &, 0.144784E+01_JPRB, 0.142854E+01_JPRB, 0.140919E+01_JPRB, 0.138978E+01_JPRB &
+  &, 0.137027E+01_JPRB, 0.135080E+01_JPRB, 0.133129E+01_JPRB &
+  &, 0.131177E+01_JPRB, 0.129225E+01_JPRB, 0.127278E+01_JPRB, 0.125326E+01_JPRB &
+  &, 0.123377E+01_JPRB, 0.121434E+01_JPRB, 0.119489E+01_JPRB &
+  &, 0.117555E+01_JPRB, 0.115623E+01_JPRB, 0.113701E+01_JPRB, 0.111781E+01_JPRB &
+  &, 0.109869E+01_JPRB, 0.107970E+01_JPRB, 0.106078E+01_JPRB/)
+XCW( 853, :) = (/ &
+  &  0.110504E+01_JPRB, 0.113128E+01_JPRB, 0.115748E+01_JPRB, 0.118363E+01_JPRB &
+  &, 0.120971E+01_JPRB, 0.123571E+01_JPRB, 0.126160E+01_JPRB &
+  &, 0.128738E+01_JPRB, 0.131302E+01_JPRB, 0.133851E+01_JPRB, 0.136384E+01_JPRB &
+  &, 0.138899E+01_JPRB, 0.141394E+01_JPRB, 0.143869E+01_JPRB &
+  &, 0.146320E+01_JPRB, 0.148748E+01_JPRB, 0.151150E+01_JPRB, 0.153524E+01_JPRB &
+  &, 0.155870E+01_JPRB, 0.158186E+01_JPRB, 0.160470E+01_JPRB &
+  &, 0.162722E+01_JPRB, 0.164938E+01_JPRB, 0.167119E+01_JPRB, 0.169263E+01_JPRB &
+  &, 0.171368E+01_JPRB, 0.173434E+01_JPRB, 0.175458E+01_JPRB &
+  &, 0.177440E+01_JPRB, 0.179378E+01_JPRB, 0.181272E+01_JPRB, 0.183119E+01_JPRB &
+  &, 0.184920E+01_JPRB, 0.186672E+01_JPRB, 0.188376E+01_JPRB &
+  &, 0.190029E+01_JPRB, 0.191632E+01_JPRB, 0.193183E+01_JPRB, 0.194681E+01_JPRB &
+  &, 0.196126E+01_JPRB, 0.197516E+01_JPRB, 0.198851E+01_JPRB &
+  &, 0.200132E+01_JPRB, 0.201356E+01_JPRB, 0.202525E+01_JPRB, 0.203635E+01_JPRB &
+  &, 0.204689E+01_JPRB, 0.205684E+01_JPRB, 0.206617E+01_JPRB &
+  &, 0.207500E+01_JPRB, 0.208320E+01_JPRB, 0.209083E+01_JPRB, 0.209784E+01_JPRB &
+  &, 0.210427E+01_JPRB, 0.211012E+01_JPRB, 0.211536E+01_JPRB &
+  &, 0.212003E+01_JPRB, 0.212408E+01_JPRB, 0.212756E+01_JPRB, 0.213046E+01_JPRB &
+  &, 0.213276E+01_JPRB, 0.213449E+01_JPRB, 0.213563E+01_JPRB &
+  &, 0.213619E+01_JPRB, 0.213618E+01_JPRB, 0.213560E+01_JPRB, 0.213446E+01_JPRB &
+  &, 0.213276E+01_JPRB, 0.213051E+01_JPRB, 0.212768E+01_JPRB &
+  &, 0.212434E+01_JPRB, 0.212045E+01_JPRB, 0.211602E+01_JPRB, 0.211108E+01_JPRB &
+  &, 0.210560E+01_JPRB, 0.209962E+01_JPRB, 0.209313E+01_JPRB &
+  &, 0.208615E+01_JPRB, 0.207868E+01_JPRB, 0.207072E+01_JPRB, 0.206229E+01_JPRB &
+  &, 0.205340E+01_JPRB, 0.204404E+01_JPRB, 0.203425E+01_JPRB &
+  &, 0.202401E+01_JPRB, 0.201334E+01_JPRB, 0.200225E+01_JPRB, 0.199076E+01_JPRB &
+  &, 0.197886E+01_JPRB, 0.196658E+01_JPRB, 0.195391E+01_JPRB &
+  &, 0.194085E+01_JPRB, 0.192745E+01_JPRB, 0.191368E+01_JPRB, 0.189953E+01_JPRB &
+  &, 0.188516E+01_JPRB, 0.187039E+01_JPRB, 0.185532E+01_JPRB &
+  &, 0.183994E+01_JPRB, 0.182431E+01_JPRB, 0.180836E+01_JPRB, 0.179215E+01_JPRB &
+  &, 0.177570E+01_JPRB, 0.175896E+01_JPRB, 0.174201E+01_JPRB &
+  &, 0.172487E+01_JPRB, 0.170745E+01_JPRB, 0.168985E+01_JPRB, 0.167207E+01_JPRB &
+  &, 0.165409E+01_JPRB, 0.163594E+01_JPRB, 0.161764E+01_JPRB &
+  &, 0.159915E+01_JPRB, 0.158056E+01_JPRB, 0.156183E+01_JPRB, 0.154293E+01_JPRB &
+  &, 0.152398E+01_JPRB, 0.150487E+01_JPRB, 0.148573E+01_JPRB &
+  &, 0.146643E+01_JPRB, 0.144711E+01_JPRB, 0.142772E+01_JPRB, 0.140827E+01_JPRB &
+  &, 0.138882E+01_JPRB, 0.136929E+01_JPRB, 0.134972E+01_JPRB &
+  &, 0.133018E+01_JPRB, 0.131059E+01_JPRB, 0.129103E+01_JPRB, 0.127148E+01_JPRB &
+  &, 0.125189E+01_JPRB, 0.123237E+01_JPRB, 0.121292E+01_JPRB &
+  &, 0.119346E+01_JPRB, 0.117407E+01_JPRB, 0.115472E+01_JPRB, 0.113550E+01_JPRB &
+  &, 0.111630E+01_JPRB, 0.109715E+01_JPRB, 0.107813E+01_JPRB/)
+XCW( 854, :) = (/ &
+  &  0.110550E+01_JPRB, 0.113187E+01_JPRB, 0.115820E+01_JPRB, 0.118449E+01_JPRB &
+  &, 0.121070E+01_JPRB, 0.123684E+01_JPRB, 0.126287E+01_JPRB &
+  &, 0.128880E+01_JPRB, 0.131459E+01_JPRB, 0.134023E+01_JPRB, 0.136572E+01_JPRB &
+  &, 0.139103E+01_JPRB, 0.141614E+01_JPRB, 0.144105E+01_JPRB &
+  &, 0.146574E+01_JPRB, 0.149018E+01_JPRB, 0.151437E+01_JPRB, 0.153830E+01_JPRB &
+  &, 0.156194E+01_JPRB, 0.158528E+01_JPRB, 0.160830E+01_JPRB &
+  &, 0.163100E+01_JPRB, 0.165336E+01_JPRB, 0.167536E+01_JPRB, 0.169699E+01_JPRB &
+  &, 0.171824E+01_JPRB, 0.173909E+01_JPRB, 0.175953E+01_JPRB &
+  &, 0.177956E+01_JPRB, 0.179914E+01_JPRB, 0.181828E+01_JPRB, 0.183696E+01_JPRB &
+  &, 0.185518E+01_JPRB, 0.187291E+01_JPRB, 0.189016E+01_JPRB &
+  &, 0.190691E+01_JPRB, 0.192314E+01_JPRB, 0.193887E+01_JPRB, 0.195406E+01_JPRB &
+  &, 0.196869E+01_JPRB, 0.198285E+01_JPRB, 0.199642E+01_JPRB &
+  &, 0.200945E+01_JPRB, 0.202191E+01_JPRB, 0.203381E+01_JPRB, 0.204514E+01_JPRB &
+  &, 0.205588E+01_JPRB, 0.206606E+01_JPRB, 0.207566E+01_JPRB &
+  &, 0.208467E+01_JPRB, 0.209308E+01_JPRB, 0.210091E+01_JPRB, 0.210816E+01_JPRB &
+  &, 0.211479E+01_JPRB, 0.212087E+01_JPRB, 0.212633E+01_JPRB &
+  &, 0.213118E+01_JPRB, 0.213549E+01_JPRB, 0.213918E+01_JPRB, 0.214229E+01_JPRB &
+  &, 0.214480E+01_JPRB, 0.214673E+01_JPRB, 0.214807E+01_JPRB &
+  &, 0.214884E+01_JPRB, 0.214905E+01_JPRB, 0.214866E+01_JPRB, 0.214773E+01_JPRB &
+  &, 0.214622E+01_JPRB, 0.214416E+01_JPRB, 0.214154E+01_JPRB &
+  &, 0.213839E+01_JPRB, 0.213469E+01_JPRB, 0.213046E+01_JPRB, 0.212569E+01_JPRB &
+  &, 0.212040E+01_JPRB, 0.211458E+01_JPRB, 0.210827E+01_JPRB &
+  &, 0.210148E+01_JPRB, 0.209416E+01_JPRB, 0.208638E+01_JPRB, 0.207810E+01_JPRB &
+  &, 0.206936E+01_JPRB, 0.206018E+01_JPRB, 0.205053E+01_JPRB &
+  &, 0.204044E+01_JPRB, 0.202991E+01_JPRB, 0.201899E+01_JPRB, 0.200760E+01_JPRB &
+  &, 0.199584E+01_JPRB, 0.198368E+01_JPRB, 0.197114E+01_JPRB &
+  &, 0.195820E+01_JPRB, 0.194492E+01_JPRB, 0.193127E+01_JPRB, 0.191726E+01_JPRB &
+  &, 0.190289E+01_JPRB, 0.188830E+01_JPRB, 0.187332E+01_JPRB &
+  &, 0.185804E+01_JPRB, 0.184247E+01_JPRB, 0.182660E+01_JPRB, 0.181047E+01_JPRB &
+  &, 0.179410E+01_JPRB, 0.177743E+01_JPRB, 0.176055E+01_JPRB &
+  &, 0.174343E+01_JPRB, 0.172610E+01_JPRB, 0.170856E+01_JPRB, 0.169078E+01_JPRB &
+  &, 0.167285E+01_JPRB, 0.165473E+01_JPRB, 0.163646E+01_JPRB &
+  &, 0.161799E+01_JPRB, 0.159942E+01_JPRB, 0.158066E+01_JPRB, 0.156181E+01_JPRB &
+  &, 0.154286E+01_JPRB, 0.152375E+01_JPRB, 0.150460E+01_JPRB &
+  &, 0.148533E+01_JPRB, 0.146598E+01_JPRB, 0.144656E+01_JPRB, 0.142707E+01_JPRB &
+  &, 0.140758E+01_JPRB, 0.138800E+01_JPRB, 0.136842E+01_JPRB &
+  &, 0.134882E+01_JPRB, 0.132915E+01_JPRB, 0.130957E+01_JPRB, 0.128993E+01_JPRB &
+  &, 0.127031E+01_JPRB, 0.125074E+01_JPRB, 0.123118E+01_JPRB &
+  &, 0.121167E+01_JPRB, 0.119216E+01_JPRB, 0.117274E+01_JPRB, 0.115338E+01_JPRB &
+  &, 0.113410E+01_JPRB, 0.111492E+01_JPRB, 0.109574E+01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART122',1,ZHOOK_HANDLE)
+END SUBROUTINE PART122
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART123
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART123',0,ZHOOK_HANDLE)
+
+XCW( 855, :) = (/ &
+  &  0.110597E+01_JPRB, 0.113246E+01_JPRB, 0.115893E+01_JPRB, 0.118535E+01_JPRB &
+  &, 0.121170E+01_JPRB, 0.123797E+01_JPRB, 0.126415E+01_JPRB &
+  &, 0.129022E+01_JPRB, 0.131617E+01_JPRB, 0.134197E+01_JPRB, 0.136761E+01_JPRB &
+  &, 0.139308E+01_JPRB, 0.141836E+01_JPRB, 0.144343E+01_JPRB &
+  &, 0.146828E+01_JPRB, 0.149290E+01_JPRB, 0.151727E+01_JPRB, 0.154137E+01_JPRB &
+  &, 0.156519E+01_JPRB, 0.158871E+01_JPRB, 0.161193E+01_JPRB &
+  &, 0.163481E+01_JPRB, 0.165736E+01_JPRB, 0.167955E+01_JPRB, 0.170138E+01_JPRB &
+  &, 0.172283E+01_JPRB, 0.174388E+01_JPRB, 0.176452E+01_JPRB &
+  &, 0.178475E+01_JPRB, 0.180453E+01_JPRB, 0.182388E+01_JPRB, 0.184277E+01_JPRB &
+  &, 0.186120E+01_JPRB, 0.187915E+01_JPRB, 0.189660E+01_JPRB &
+  &, 0.191357E+01_JPRB, 0.193002E+01_JPRB, 0.194596E+01_JPRB, 0.196137E+01_JPRB &
+  &, 0.197626E+01_JPRB, 0.199059E+01_JPRB, 0.200440E+01_JPRB &
+  &, 0.201763E+01_JPRB, 0.203032E+01_JPRB, 0.204243E+01_JPRB, 0.205399E+01_JPRB &
+  &, 0.206496E+01_JPRB, 0.207535E+01_JPRB, 0.208517E+01_JPRB &
+  &, 0.209439E+01_JPRB, 0.210304E+01_JPRB, 0.211110E+01_JPRB, 0.211856E+01_JPRB &
+  &, 0.212543E+01_JPRB, 0.213170E+01_JPRB, 0.213740E+01_JPRB &
+  &, 0.214248E+01_JPRB, 0.214698E+01_JPRB, 0.215089E+01_JPRB, 0.215421E+01_JPRB &
+  &, 0.215694E+01_JPRB, 0.215907E+01_JPRB, 0.216064E+01_JPRB &
+  &, 0.216162E+01_JPRB, 0.216202E+01_JPRB, 0.216186E+01_JPRB, 0.216111E+01_JPRB &
+  &, 0.215980E+01_JPRB, 0.215795E+01_JPRB, 0.215552E+01_JPRB &
+  &, 0.215256E+01_JPRB, 0.214905E+01_JPRB, 0.214501E+01_JPRB, 0.214043E+01_JPRB &
+  &, 0.213531E+01_JPRB, 0.212970E+01_JPRB, 0.212356E+01_JPRB &
+  &, 0.211692E+01_JPRB, 0.210978E+01_JPRB, 0.210217E+01_JPRB, 0.209407E+01_JPRB &
+  &, 0.208551E+01_JPRB, 0.207646E+01_JPRB, 0.206698E+01_JPRB &
+  &, 0.205703E+01_JPRB, 0.204665E+01_JPRB, 0.203584E+01_JPRB, 0.202463E+01_JPRB &
+  &, 0.201299E+01_JPRB, 0.200097E+01_JPRB, 0.198856E+01_JPRB &
+  &, 0.197575E+01_JPRB, 0.196259E+01_JPRB, 0.194905E+01_JPRB, 0.193516E+01_JPRB &
+  &, 0.192093E+01_JPRB, 0.190638E+01_JPRB, 0.189151E+01_JPRB &
+  &, 0.187632E+01_JPRB, 0.186084E+01_JPRB, 0.184507E+01_JPRB, 0.182902E+01_JPRB &
+  &, 0.181269E+01_JPRB, 0.179606E+01_JPRB, 0.177929E+01_JPRB &
+  &, 0.176223E+01_JPRB, 0.174489E+01_JPRB, 0.172744E+01_JPRB, 0.170975E+01_JPRB &
+  &, 0.169186E+01_JPRB, 0.167370E+01_JPRB, 0.165551E+01_JPRB &
+  &, 0.163706E+01_JPRB, 0.161852E+01_JPRB, 0.159981E+01_JPRB, 0.158093E+01_JPRB &
+  &, 0.156199E+01_JPRB, 0.154287E+01_JPRB, 0.152371E+01_JPRB &
+  &, 0.150442E+01_JPRB, 0.148505E+01_JPRB, 0.146566E+01_JPRB, 0.144613E+01_JPRB &
+  &, 0.142660E+01_JPRB, 0.140702E+01_JPRB, 0.138739E+01_JPRB &
+  &, 0.136773E+01_JPRB, 0.134805E+01_JPRB, 0.132834E+01_JPRB, 0.130867E+01_JPRB &
+  &, 0.128902E+01_JPRB, 0.126935E+01_JPRB, 0.124975E+01_JPRB &
+  &, 0.123012E+01_JPRB, 0.121055E+01_JPRB, 0.119107E+01_JPRB, 0.117164E+01_JPRB &
+  &, 0.115221E+01_JPRB, 0.113289E+01_JPRB, 0.111368E+01_JPRB/)
+XCW( 856, :) = (/ &
+  &  0.110644E+01_JPRB, 0.113306E+01_JPRB, 0.115966E+01_JPRB, 0.118621E+01_JPRB &
+  &, 0.121270E+01_JPRB, 0.123912E+01_JPRB, 0.126544E+01_JPRB &
+  &, 0.129166E+01_JPRB, 0.131775E+01_JPRB, 0.134371E+01_JPRB, 0.136951E+01_JPRB &
+  &, 0.139514E+01_JPRB, 0.142058E+01_JPRB, 0.144582E+01_JPRB &
+  &, 0.147085E+01_JPRB, 0.149564E+01_JPRB, 0.152018E+01_JPRB, 0.154446E+01_JPRB &
+  &, 0.156846E+01_JPRB, 0.159217E+01_JPRB, 0.161557E+01_JPRB &
+  &, 0.163865E+01_JPRB, 0.166139E+01_JPRB, 0.168377E+01_JPRB, 0.170580E+01_JPRB &
+  &, 0.172744E+01_JPRB, 0.174869E+01_JPRB, 0.176954E+01_JPRB &
+  &, 0.178997E+01_JPRB, 0.180996E+01_JPRB, 0.182952E+01_JPRB, 0.184862E+01_JPRB &
+  &, 0.186726E+01_JPRB, 0.188541E+01_JPRB, 0.190309E+01_JPRB &
+  &, 0.192026E+01_JPRB, 0.193694E+01_JPRB, 0.195309E+01_JPRB, 0.196873E+01_JPRB &
+  &, 0.198383E+01_JPRB, 0.199839E+01_JPRB, 0.201241E+01_JPRB &
+  &, 0.202587E+01_JPRB, 0.203879E+01_JPRB, 0.205112E+01_JPRB, 0.206289E+01_JPRB &
+  &, 0.207409E+01_JPRB, 0.208472E+01_JPRB, 0.209476E+01_JPRB &
+  &, 0.210421E+01_JPRB, 0.211307E+01_JPRB, 0.212136E+01_JPRB, 0.212904E+01_JPRB &
+  &, 0.213613E+01_JPRB, 0.214263E+01_JPRB, 0.214854E+01_JPRB &
+  &, 0.215384E+01_JPRB, 0.215856E+01_JPRB, 0.216269E+01_JPRB, 0.216622E+01_JPRB &
+  &, 0.216918E+01_JPRB, 0.217152E+01_JPRB, 0.217330E+01_JPRB &
+  &, 0.217448E+01_JPRB, 0.217510E+01_JPRB, 0.217515E+01_JPRB, 0.217462E+01_JPRB &
+  &, 0.217352E+01_JPRB, 0.217186E+01_JPRB, 0.216963E+01_JPRB &
+  &, 0.216686E+01_JPRB, 0.216354E+01_JPRB, 0.215969E+01_JPRB, 0.215528E+01_JPRB &
+  &, 0.215037E+01_JPRB, 0.214493E+01_JPRB, 0.213898E+01_JPRB &
+  &, 0.213253E+01_JPRB, 0.212556E+01_JPRB, 0.211813E+01_JPRB, 0.211019E+01_JPRB &
+  &, 0.210179E+01_JPRB, 0.209292E+01_JPRB, 0.208357E+01_JPRB &
+  &, 0.207380E+01_JPRB, 0.206357E+01_JPRB, 0.205290E+01_JPRB, 0.204182E+01_JPRB &
+  &, 0.203033E+01_JPRB, 0.201844E+01_JPRB, 0.200616E+01_JPRB &
+  &, 0.199348E+01_JPRB, 0.198041E+01_JPRB, 0.196700E+01_JPRB, 0.195326E+01_JPRB &
+  &, 0.193911E+01_JPRB, 0.192466E+01_JPRB, 0.190990E+01_JPRB &
+  &, 0.189482E+01_JPRB, 0.187940E+01_JPRB, 0.186372E+01_JPRB, 0.184776E+01_JPRB &
+  &, 0.183151E+01_JPRB, 0.181500E+01_JPRB, 0.179826E+01_JPRB &
+  &, 0.178128E+01_JPRB, 0.176403E+01_JPRB, 0.174656E+01_JPRB, 0.172893E+01_JPRB &
+  &, 0.171109E+01_JPRB, 0.169301E+01_JPRB, 0.167481E+01_JPRB &
+  &, 0.165640E+01_JPRB, 0.163784E+01_JPRB, 0.161915E+01_JPRB, 0.160033E+01_JPRB &
+  &, 0.158134E+01_JPRB, 0.156228E+01_JPRB, 0.154311E+01_JPRB &
+  &, 0.152382E+01_JPRB, 0.150443E+01_JPRB, 0.148496E+01_JPRB, 0.146546E+01_JPRB &
+  &, 0.144588E+01_JPRB, 0.142627E+01_JPRB, 0.140658E+01_JPRB &
+  &, 0.138691E+01_JPRB, 0.136717E+01_JPRB, 0.134745E+01_JPRB, 0.132770E+01_JPRB &
+  &, 0.130796E+01_JPRB, 0.128826E+01_JPRB, 0.126856E+01_JPRB &
+  &, 0.124888E+01_JPRB, 0.122926E+01_JPRB, 0.120965E+01_JPRB, 0.119015E+01_JPRB &
+  &, 0.117065E+01_JPRB, 0.115124E+01_JPRB, 0.113188E+01_JPRB/)
+XCW( 857, :) = (/ &
+  &  0.110691E+01_JPRB, 0.113366E+01_JPRB, 0.116039E+01_JPRB, 0.118707E+01_JPRB &
+  &, 0.121371E+01_JPRB, 0.124026E+01_JPRB, 0.126673E+01_JPRB &
+  &, 0.129310E+01_JPRB, 0.131935E+01_JPRB, 0.134546E+01_JPRB, 0.137142E+01_JPRB &
+  &, 0.139721E+01_JPRB, 0.142282E+01_JPRB, 0.144823E+01_JPRB &
+  &, 0.147342E+01_JPRB, 0.149839E+01_JPRB, 0.152311E+01_JPRB, 0.154757E+01_JPRB &
+  &, 0.157176E+01_JPRB, 0.159565E+01_JPRB, 0.161924E+01_JPRB &
+  &, 0.164250E+01_JPRB, 0.166544E+01_JPRB, 0.168802E+01_JPRB, 0.171024E+01_JPRB &
+  &, 0.173208E+01_JPRB, 0.175354E+01_JPRB, 0.177459E+01_JPRB &
+  &, 0.179522E+01_JPRB, 0.181543E+01_JPRB, 0.183520E+01_JPRB, 0.185451E+01_JPRB &
+  &, 0.187336E+01_JPRB, 0.189173E+01_JPRB, 0.190962E+01_JPRB &
+  &, 0.192702E+01_JPRB, 0.194390E+01_JPRB, 0.196028E+01_JPRB, 0.197613E+01_JPRB &
+  &, 0.199146E+01_JPRB, 0.200625E+01_JPRB, 0.202049E+01_JPRB &
+  &, 0.203418E+01_JPRB, 0.204731E+01_JPRB, 0.205984E+01_JPRB, 0.207187E+01_JPRB &
+  &, 0.208330E+01_JPRB, 0.209415E+01_JPRB, 0.210442E+01_JPRB &
+  &, 0.211409E+01_JPRB, 0.212319E+01_JPRB, 0.213169E+01_JPRB, 0.213958E+01_JPRB &
+  &, 0.214691E+01_JPRB, 0.215364E+01_JPRB, 0.215978E+01_JPRB &
+  &, 0.216531E+01_JPRB, 0.217025E+01_JPRB, 0.217460E+01_JPRB, 0.217834E+01_JPRB &
+  &, 0.218150E+01_JPRB, 0.218409E+01_JPRB, 0.218606E+01_JPRB &
+  &, 0.218748E+01_JPRB, 0.218830E+01_JPRB, 0.218855E+01_JPRB, 0.218821E+01_JPRB &
+  &, 0.218733E+01_JPRB, 0.218587E+01_JPRB, 0.218385E+01_JPRB &
+  &, 0.218128E+01_JPRB, 0.217816E+01_JPRB, 0.217451E+01_JPRB, 0.217030E+01_JPRB &
+  &, 0.216558E+01_JPRB, 0.216033E+01_JPRB, 0.215455E+01_JPRB &
+  &, 0.214827E+01_JPRB, 0.214149E+01_JPRB, 0.213422E+01_JPRB, 0.212645E+01_JPRB &
+  &, 0.211823E+01_JPRB, 0.210951E+01_JPRB, 0.210035E+01_JPRB &
+  &, 0.209070E+01_JPRB, 0.208065E+01_JPRB, 0.207013E+01_JPRB, 0.205920E+01_JPRB &
+  &, 0.204785E+01_JPRB, 0.203610E+01_JPRB, 0.202392E+01_JPRB &
+  &, 0.201140E+01_JPRB, 0.199846E+01_JPRB, 0.198517E+01_JPRB, 0.197152E+01_JPRB &
+  &, 0.195753E+01_JPRB, 0.194316E+01_JPRB, 0.192851E+01_JPRB &
+  &, 0.191349E+01_JPRB, 0.189821E+01_JPRB, 0.188263E+01_JPRB, 0.186672E+01_JPRB &
+  &, 0.185056E+01_JPRB, 0.183413E+01_JPRB, 0.181743E+01_JPRB &
+  &, 0.180052E+01_JPRB, 0.178335E+01_JPRB, 0.176594E+01_JPRB, 0.174832E+01_JPRB &
+  &, 0.173053E+01_JPRB, 0.171254E+01_JPRB, 0.169434E+01_JPRB &
+  &, 0.167596E+01_JPRB, 0.165743E+01_JPRB, 0.163877E+01_JPRB, 0.161996E+01_JPRB &
+  &, 0.160099E+01_JPRB, 0.158193E+01_JPRB, 0.156271E+01_JPRB &
+  &, 0.154346E+01_JPRB, 0.152406E+01_JPRB, 0.150462E+01_JPRB, 0.148504E+01_JPRB &
+  &, 0.146506E+01_JPRB, 0.144583E+01_JPRB, 0.142610E+01_JPRB &
+  &, 0.140638E+01_JPRB, 0.138657E+01_JPRB, 0.136684E+01_JPRB, 0.134701E+01_JPRB &
+  &, 0.132725E+01_JPRB, 0.130746E+01_JPRB, 0.128766E+01_JPRB &
+  &, 0.126794E+01_JPRB, 0.124821E+01_JPRB, 0.122854E+01_JPRB, 0.120891E+01_JPRB &
+  &, 0.118934E+01_JPRB, 0.116986E+01_JPRB, 0.115041E+01_JPRB/)
+XCW( 858, :) = (/ &
+  &  0.110739E+01_JPRB, 0.113427E+01_JPRB, 0.116113E+01_JPRB, 0.118795E+01_JPRB &
+  &, 0.121472E+01_JPRB, 0.124142E+01_JPRB, 0.126803E+01_JPRB &
+  &, 0.129455E+01_JPRB, 0.132095E+01_JPRB, 0.134722E+01_JPRB, 0.137334E+01_JPRB &
+  &, 0.139929E+01_JPRB, 0.142507E+01_JPRB, 0.145065E+01_JPRB &
+  &, 0.147602E+01_JPRB, 0.150116E+01_JPRB, 0.152606E+01_JPRB, 0.155070E+01_JPRB &
+  &, 0.157507E+01_JPRB, 0.159915E+01_JPRB, 0.162292E+01_JPRB &
+  &, 0.164639E+01_JPRB, 0.166951E+01_JPRB, 0.169229E+01_JPRB, 0.171471E+01_JPRB &
+  &, 0.173676E+01_JPRB, 0.175842E+01_JPRB, 0.177967E+01_JPRB &
+  &, 0.180051E+01_JPRB, 0.182093E+01_JPRB, 0.184091E+01_JPRB, 0.186043E+01_JPRB &
+  &, 0.187950E+01_JPRB, 0.189809E+01_JPRB, 0.191620E+01_JPRB &
+  &, 0.193381E+01_JPRB, 0.195092E+01_JPRB, 0.196753E+01_JPRB, 0.198360E+01_JPRB &
+  &, 0.199915E+01_JPRB, 0.201417E+01_JPRB, 0.202863E+01_JPRB &
+  &, 0.204254E+01_JPRB, 0.205590E+01_JPRB, 0.206869E+01_JPRB, 0.208092E+01_JPRB &
+  &, 0.209258E+01_JPRB, 0.210365E+01_JPRB, 0.211414E+01_JPRB &
+  &, 0.212405E+01_JPRB, 0.213338E+01_JPRB, 0.214209E+01_JPRB, 0.215025E+01_JPRB &
+  &, 0.215780E+01_JPRB, 0.216474E+01_JPRB, 0.217109E+01_JPRB &
+  &, 0.217686E+01_JPRB, 0.218201E+01_JPRB, 0.218659E+01_JPRB, 0.219057E+01_JPRB &
+  &, 0.219394E+01_JPRB, 0.219674E+01_JPRB, 0.219895E+01_JPRB &
+  &, 0.220056E+01_JPRB, 0.220160E+01_JPRB, 0.220207E+01_JPRB, 0.220195E+01_JPRB &
+  &, 0.220126E+01_JPRB, 0.220002E+01_JPRB, 0.219820E+01_JPRB &
+  &, 0.219583E+01_JPRB, 0.219291E+01_JPRB, 0.218946E+01_JPRB, 0.218544E+01_JPRB &
+  &, 0.218092E+01_JPRB, 0.217585E+01_JPRB, 0.217026E+01_JPRB &
+  &, 0.216418E+01_JPRB, 0.215759E+01_JPRB, 0.215044E+01_JPRB, 0.214288E+01_JPRB &
+  &, 0.213482E+01_JPRB, 0.212627E+01_JPRB, 0.211726E+01_JPRB &
+  &, 0.210780E+01_JPRB, 0.209790E+01_JPRB, 0.208753E+01_JPRB, 0.207675E+01_JPRB &
+  &, 0.206554E+01_JPRB, 0.205394E+01_JPRB, 0.204190E+01_JPRB &
+  &, 0.202948E+01_JPRB, 0.201668E+01_JPRB, 0.200351E+01_JPRB, 0.198998E+01_JPRB &
+  &, 0.197611E+01_JPRB, 0.196186E+01_JPRB, 0.194729E+01_JPRB &
+  &, 0.193242E+01_JPRB, 0.191721E+01_JPRB, 0.190172E+01_JPRB, 0.188591E+01_JPRB &
+  &, 0.186984E+01_JPRB, 0.185346E+01_JPRB, 0.183684E+01_JPRB &
+  &, 0.182001E+01_JPRB, 0.180290E+01_JPRB, 0.178556E+01_JPRB, 0.176801E+01_JPRB &
+  &, 0.175023E+01_JPRB, 0.173229E+01_JPRB, 0.171414E+01_JPRB &
+  &, 0.169580E+01_JPRB, 0.167729E+01_JPRB, 0.165866E+01_JPRB, 0.163983E+01_JPRB &
+  &, 0.162087E+01_JPRB, 0.160182E+01_JPRB, 0.158266E+01_JPRB &
+  &, 0.156335E+01_JPRB, 0.154389E+01_JPRB, 0.152449E+01_JPRB, 0.150493E+01_JPRB &
+  &, 0.148530E+01_JPRB, 0.146561E+01_JPRB, 0.144589E+01_JPRB &
+  &, 0.142611E+01_JPRB, 0.140631E+01_JPRB, 0.138645E+01_JPRB, 0.136662E+01_JPRB &
+  &, 0.134678E+01_JPRB, 0.132696E+01_JPRB, 0.130713E+01_JPRB &
+  &, 0.128731E+01_JPRB, 0.126753E+01_JPRB, 0.124775E+01_JPRB, 0.122806E+01_JPRB &
+  &, 0.120836E+01_JPRB, 0.118880E+01_JPRB, 0.116927E+01_JPRB/)
+XCW( 859, :) = (/ &
+  &  0.110787E+01_JPRB, 0.113487E+01_JPRB, 0.116186E+01_JPRB, 0.118882E+01_JPRB &
+  &, 0.121573E+01_JPRB, 0.124258E+01_JPRB, 0.126934E+01_JPRB &
+  &, 0.129601E+01_JPRB, 0.132256E+01_JPRB, 0.134899E+01_JPRB, 0.137527E+01_JPRB &
+  &, 0.140139E+01_JPRB, 0.142733E+01_JPRB, 0.145308E+01_JPRB &
+  &, 0.147862E+01_JPRB, 0.150394E+01_JPRB, 0.152902E+01_JPRB, 0.155385E+01_JPRB &
+  &, 0.157840E+01_JPRB, 0.160267E+01_JPRB, 0.162664E+01_JPRB &
+  &, 0.165029E+01_JPRB, 0.167361E+01_JPRB, 0.169659E+01_JPRB, 0.171921E+01_JPRB &
+  &, 0.174146E+01_JPRB, 0.176333E+01_JPRB, 0.178479E+01_JPRB &
+  &, 0.180584E+01_JPRB, 0.182647E+01_JPRB, 0.184666E+01_JPRB, 0.186640E+01_JPRB &
+  &, 0.188568E+01_JPRB, 0.190450E+01_JPRB, 0.192282E+01_JPRB &
+  &, 0.194066E+01_JPRB, 0.195799E+01_JPRB, 0.197481E+01_JPRB, 0.199111E+01_JPRB &
+  &, 0.200689E+01_JPRB, 0.202213E+01_JPRB, 0.203683E+01_JPRB &
+  &, 0.205097E+01_JPRB, 0.206455E+01_JPRB, 0.207758E+01_JPRB, 0.209004E+01_JPRB &
+  &, 0.210192E+01_JPRB, 0.211323E+01_JPRB, 0.212395E+01_JPRB &
+  &, 0.213409E+01_JPRB, 0.214365E+01_JPRB, 0.215260E+01_JPRB, 0.216098E+01_JPRB &
+  &, 0.216875E+01_JPRB, 0.217592E+01_JPRB, 0.218251E+01_JPRB &
+  &, 0.218849E+01_JPRB, 0.219389E+01_JPRB, 0.219869E+01_JPRB, 0.220288E+01_JPRB &
+  &, 0.220649E+01_JPRB, 0.220950E+01_JPRB, 0.221190E+01_JPRB &
+  &, 0.221377E+01_JPRB, 0.221503E+01_JPRB, 0.221570E+01_JPRB, 0.221580E+01_JPRB &
+  &, 0.221534E+01_JPRB, 0.221429E+01_JPRB, 0.221268E+01_JPRB &
+  &, 0.221053E+01_JPRB, 0.220781E+01_JPRB, 0.220454E+01_JPRB, 0.220074E+01_JPRB &
+  &, 0.219640E+01_JPRB, 0.219153E+01_JPRB, 0.218614E+01_JPRB &
+  &, 0.218023E+01_JPRB, 0.217381E+01_JPRB, 0.216688E+01_JPRB, 0.215949E+01_JPRB &
+  &, 0.215158E+01_JPRB, 0.214321E+01_JPRB, 0.213437E+01_JPRB &
+  &, 0.212506E+01_JPRB, 0.211532E+01_JPRB, 0.210511E+01_JPRB, 0.209448E+01_JPRB &
+  &, 0.208342E+01_JPRB, 0.207196E+01_JPRB, 0.206006E+01_JPRB &
+  &, 0.204778E+01_JPRB, 0.203511E+01_JPRB, 0.202208E+01_JPRB, 0.200865E+01_JPRB &
+  &, 0.199490E+01_JPRB, 0.198077E+01_JPRB, 0.196631E+01_JPRB &
+  &, 0.195152E+01_JPRB, 0.193642E+01_JPRB, 0.192103E+01_JPRB, 0.190532E+01_JPRB &
+  &, 0.188931E+01_JPRB, 0.187306E+01_JPRB, 0.185653E+01_JPRB &
+  &, 0.183973E+01_JPRB, 0.182266E+01_JPRB, 0.180539E+01_JPRB, 0.178790E+01_JPRB &
+  &, 0.177018E+01_JPRB, 0.175226E+01_JPRB, 0.173415E+01_JPRB &
+  &, 0.171585E+01_JPRB, 0.169739E+01_JPRB, 0.167879E+01_JPRB, 0.165998E+01_JPRB &
+  &, 0.164104E+01_JPRB, 0.162201E+01_JPRB, 0.160285E+01_JPRB &
+  &, 0.158355E+01_JPRB, 0.156413E+01_JPRB, 0.154466E+01_JPRB, 0.152509E+01_JPRB &
+  &, 0.150543E+01_JPRB, 0.148570E+01_JPRB, 0.146595E+01_JPRB &
+  &, 0.144613E+01_JPRB, 0.142622E+01_JPRB, 0.140641E+01_JPRB, 0.138651E+01_JPRB &
+  &, 0.136665E+01_JPRB, 0.134675E+01_JPRB, 0.132683E+01_JPRB &
+  &, 0.130691E+01_JPRB, 0.128709E+01_JPRB, 0.126726E+01_JPRB, 0.124745E+01_JPRB &
+  &, 0.122769E+01_JPRB, 0.120800E+01_JPRB, 0.118840E+01_JPRB/)
+XCW( 860, :) = (/ &
+  &  0.110835E+01_JPRB, 0.113548E+01_JPRB, 0.116261E+01_JPRB, 0.118970E+01_JPRB &
+  &, 0.121675E+01_JPRB, 0.124374E+01_JPRB, 0.127066E+01_JPRB &
+  &, 0.129748E+01_JPRB, 0.132418E+01_JPRB, 0.135077E+01_JPRB, 0.137721E+01_JPRB &
+  &, 0.140350E+01_JPRB, 0.142961E+01_JPRB, 0.145553E+01_JPRB &
+  &, 0.148125E+01_JPRB, 0.150674E+01_JPRB, 0.153200E+01_JPRB, 0.155701E+01_JPRB &
+  &, 0.158176E+01_JPRB, 0.160621E+01_JPRB, 0.163037E+01_JPRB &
+  &, 0.165422E+01_JPRB, 0.167774E+01_JPRB, 0.170092E+01_JPRB, 0.172375E+01_JPRB &
+  &, 0.174620E+01_JPRB, 0.176827E+01_JPRB, 0.178994E+01_JPRB &
+  &, 0.181120E+01_JPRB, 0.183204E+01_JPRB, 0.185245E+01_JPRB, 0.187241E+01_JPRB &
+  &, 0.189191E+01_JPRB, 0.191094E+01_JPRB, 0.192949E+01_JPRB &
+  &, 0.194755E+01_JPRB, 0.196511E+01_JPRB, 0.198215E+01_JPRB, 0.199869E+01_JPRB &
+  &, 0.201469E+01_JPRB, 0.203015E+01_JPRB, 0.204508E+01_JPRB &
+  &, 0.205945E+01_JPRB, 0.207328E+01_JPRB, 0.208653E+01_JPRB, 0.209922E+01_JPRB &
+  &, 0.211125E+01_JPRB, 0.212288E+01_JPRB, 0.213383E+01_JPRB &
+  &, 0.214421E+01_JPRB, 0.215400E+01_JPRB, 0.216319E+01_JPRB, 0.217179E+01_JPRB &
+  &, 0.217979E+01_JPRB, 0.218721E+01_JPRB, 0.219401E+01_JPRB &
+  &, 0.220024E+01_JPRB, 0.220585E+01_JPRB, 0.221087E+01_JPRB, 0.221530E+01_JPRB &
+  &, 0.221914E+01_JPRB, 0.222238E+01_JPRB, 0.222502E+01_JPRB &
+  &, 0.222709E+01_JPRB, 0.222857E+01_JPRB, 0.222946E+01_JPRB, 0.222979E+01_JPRB &
+  &, 0.222953E+01_JPRB, 0.222869E+01_JPRB, 0.222730E+01_JPRB &
+  &, 0.222533E+01_JPRB, 0.222284E+01_JPRB, 0.221977E+01_JPRB, 0.221616E+01_JPRB &
+  &, 0.221202E+01_JPRB, 0.220735E+01_JPRB, 0.220214E+01_JPRB &
+  &, 0.219643E+01_JPRB, 0.219021E+01_JPRB, 0.218346E+01_JPRB, 0.217623E+01_JPRB &
+  &, 0.216852E+01_JPRB, 0.216032E+01_JPRB, 0.215164E+01_JPRB &
+  &, 0.214250E+01_JPRB, 0.213291E+01_JPRB, 0.212286E+01_JPRB, 0.211238E+01_JPRB &
+  &, 0.210147E+01_JPRB, 0.209016E+01_JPRB, 0.207841E+01_JPRB &
+  &, 0.206628E+01_JPRB, 0.205375E+01_JPRB, 0.204082E+01_JPRB, 0.202755E+01_JPRB &
+  &, 0.201390E+01_JPRB, 0.199989E+01_JPRB, 0.198555E+01_JPRB &
+  &, 0.197087E+01_JPRB, 0.195588E+01_JPRB, 0.194057E+01_JPRB, 0.192493E+01_JPRB &
+  &, 0.190905E+01_JPRB, 0.189286E+01_JPRB, 0.187637E+01_JPRB &
+  &, 0.185966E+01_JPRB, 0.184271E+01_JPRB, 0.182547E+01_JPRB, 0.180805E+01_JPRB &
+  &, 0.179039E+01_JPRB, 0.177253E+01_JPRB, 0.175447E+01_JPRB &
+  &, 0.173618E+01_JPRB, 0.171776E+01_JPRB, 0.169914E+01_JPRB, 0.168041E+01_JPRB &
+  &, 0.166150E+01_JPRB, 0.164243E+01_JPRB, 0.162328E+01_JPRB &
+  &, 0.160399E+01_JPRB, 0.158462E+01_JPRB, 0.156510E+01_JPRB, 0.154551E+01_JPRB &
+  &, 0.152582E+01_JPRB, 0.150612E+01_JPRB, 0.148633E+01_JPRB &
+  &, 0.146647E+01_JPRB, 0.144657E+01_JPRB, 0.142665E+01_JPRB, 0.140674E+01_JPRB &
+  &, 0.138676E+01_JPRB, 0.136684E+01_JPRB, 0.134683E+01_JPRB &
+  &, 0.132689E+01_JPRB, 0.130696E+01_JPRB, 0.128709E+01_JPRB, 0.126717E+01_JPRB &
+  &, 0.124734E+01_JPRB, 0.122758E+01_JPRB, 0.120785E+01_JPRB/)
+XCW( 861, :) = (/ &
+  &  0.110883E+01_JPRB, 0.113610E+01_JPRB, 0.116336E+01_JPRB, 0.119059E+01_JPRB &
+  &, 0.121778E+01_JPRB, 0.124492E+01_JPRB, 0.127198E+01_JPRB &
+  &, 0.129895E+01_JPRB, 0.132582E+01_JPRB, 0.135256E+01_JPRB, 0.137917E+01_JPRB &
+  &, 0.140562E+01_JPRB, 0.143190E+01_JPRB, 0.145799E+01_JPRB &
+  &, 0.148389E+01_JPRB, 0.150956E+01_JPRB, 0.153501E+01_JPRB, 0.156020E+01_JPRB &
+  &, 0.158513E+01_JPRB, 0.160978E+01_JPRB, 0.163413E+01_JPRB &
+  &, 0.165818E+01_JPRB, 0.168190E+01_JPRB, 0.170528E+01_JPRB, 0.172830E+01_JPRB &
+  &, 0.175097E+01_JPRB, 0.177325E+01_JPRB, 0.179513E+01_JPRB &
+  &, 0.181660E+01_JPRB, 0.183766E+01_JPRB, 0.185828E+01_JPRB, 0.187846E+01_JPRB &
+  &, 0.189818E+01_JPRB, 0.191744E+01_JPRB, 0.193621E+01_JPRB &
+  &, 0.195449E+01_JPRB, 0.197227E+01_JPRB, 0.198956E+01_JPRB, 0.200631E+01_JPRB &
+  &, 0.202254E+01_JPRB, 0.203825E+01_JPRB, 0.205340E+01_JPRB &
+  &, 0.206801E+01_JPRB, 0.208206E+01_JPRB, 0.209556E+01_JPRB, 0.210848E+01_JPRB &
+  &, 0.212083E+01_JPRB, 0.213261E+01_JPRB, 0.214380E+01_JPRB &
+  &, 0.215440E+01_JPRB, 0.216443E+01_JPRB, 0.217386E+01_JPRB, 0.218268E+01_JPRB &
+  &, 0.219093E+01_JPRB, 0.219857E+01_JPRB, 0.220561E+01_JPRB &
+  &, 0.221206E+01_JPRB, 0.221791E+01_JPRB, 0.222317E+01_JPRB, 0.222783E+01_JPRB &
+  &, 0.223190E+01_JPRB, 0.223537E+01_JPRB, 0.223825E+01_JPRB &
+  &, 0.224052E+01_JPRB, 0.224223E+01_JPRB, 0.224334E+01_JPRB, 0.224387E+01_JPRB &
+  &, 0.224384E+01_JPRB, 0.224323E+01_JPRB, 0.224204E+01_JPRB &
+  &, 0.224031E+01_JPRB, 0.223800E+01_JPRB, 0.223514E+01_JPRB, 0.223173E+01_JPRB &
+  &, 0.222780E+01_JPRB, 0.222331E+01_JPRB, 0.221830E+01_JPRB &
+  &, 0.221280E+01_JPRB, 0.220676E+01_JPRB, 0.220020E+01_JPRB, 0.219316E+01_JPRB &
+  &, 0.218561E+01_JPRB, 0.217758E+01_JPRB, 0.216910E+01_JPRB &
+  &, 0.216012E+01_JPRB, 0.215068E+01_JPRB, 0.214081E+01_JPRB, 0.213049E+01_JPRB &
+  &, 0.211974E+01_JPRB, 0.210855E+01_JPRB, 0.209698E+01_JPRB &
+  &, 0.208496E+01_JPRB, 0.207257E+01_JPRB, 0.205978E+01_JPRB, 0.204665E+01_JPRB &
+  &, 0.203309E+01_JPRB, 0.201921E+01_JPRB, 0.200500E+01_JPRB &
+  &, 0.199044E+01_JPRB, 0.197553E+01_JPRB, 0.196033E+01_JPRB, 0.194479E+01_JPRB &
+  &, 0.192898E+01_JPRB, 0.191288E+01_JPRB, 0.189649E+01_JPRB &
+  &, 0.187987E+01_JPRB, 0.186296E+01_JPRB, 0.184584E+01_JPRB, 0.182845E+01_JPRB &
+  &, 0.181086E+01_JPRB, 0.179301E+01_JPRB, 0.177502E+01_JPRB &
+  &, 0.175677E+01_JPRB, 0.173840E+01_JPRB, 0.171982E+01_JPRB, 0.170108E+01_JPRB &
+  &, 0.168220E+01_JPRB, 0.166315E+01_JPRB, 0.164402E+01_JPRB &
+  &, 0.162473E+01_JPRB, 0.160531E+01_JPRB, 0.158584E+01_JPRB, 0.156624E+01_JPRB &
+  &, 0.154654E+01_JPRB, 0.152681E+01_JPRB, 0.150699E+01_JPRB &
+  &, 0.148709E+01_JPRB, 0.146720E+01_JPRB, 0.144723E+01_JPRB, 0.142721E+01_JPRB &
+  &, 0.140721E+01_JPRB, 0.138722E+01_JPRB, 0.136720E+01_JPRB &
+  &, 0.134716E+01_JPRB, 0.132714E+01_JPRB, 0.130717E+01_JPRB, 0.128726E+01_JPRB &
+  &, 0.126732E+01_JPRB, 0.124743E+01_JPRB, 0.122763E+01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART123',1,ZHOOK_HANDLE)
+END SUBROUTINE PART123
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART124
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART124',0,ZHOOK_HANDLE)
+
+XCW( 862, :) = (/ &
+  &  0.110931E+01_JPRB, 0.113671E+01_JPRB, 0.116411E+01_JPRB, 0.119148E+01_JPRB &
+  &, 0.121881E+01_JPRB, 0.124610E+01_JPRB, 0.127331E+01_JPRB &
+  &, 0.130043E+01_JPRB, 0.132746E+01_JPRB, 0.135436E+01_JPRB, 0.138113E+01_JPRB &
+  &, 0.140775E+01_JPRB, 0.143420E+01_JPRB, 0.146047E+01_JPRB &
+  &, 0.148654E+01_JPRB, 0.151240E+01_JPRB, 0.153803E+01_JPRB, 0.156341E+01_JPRB &
+  &, 0.158852E+01_JPRB, 0.161337E+01_JPRB, 0.163791E+01_JPRB &
+  &, 0.166216E+01_JPRB, 0.168607E+01_JPRB, 0.170966E+01_JPRB, 0.173290E+01_JPRB &
+  &, 0.175576E+01_JPRB, 0.177825E+01_JPRB, 0.180035E+01_JPRB &
+  &, 0.182204E+01_JPRB, 0.184331E+01_JPRB, 0.186416E+01_JPRB, 0.188455E+01_JPRB &
+  &, 0.190450E+01_JPRB, 0.192397E+01_JPRB, 0.194297E+01_JPRB &
+  &, 0.196149E+01_JPRB, 0.197949E+01_JPRB, 0.199701E+01_JPRB, 0.201399E+01_JPRB &
+  &, 0.203046E+01_JPRB, 0.204639E+01_JPRB, 0.206178E+01_JPRB &
+  &, 0.207663E+01_JPRB, 0.209091E+01_JPRB, 0.210464E+01_JPRB, 0.211780E+01_JPRB &
+  &, 0.213039E+01_JPRB, 0.214240E+01_JPRB, 0.215383E+01_JPRB &
+  &, 0.216468E+01_JPRB, 0.217494E+01_JPRB, 0.218461E+01_JPRB, 0.219368E+01_JPRB &
+  &, 0.220216E+01_JPRB, 0.221004E+01_JPRB, 0.221732E+01_JPRB &
+  &, 0.222400E+01_JPRB, 0.223009E+01_JPRB, 0.223558E+01_JPRB, 0.224046E+01_JPRB &
+  &, 0.224470E+01_JPRB, 0.224846E+01_JPRB, 0.225156E+01_JPRB &
+  &, 0.225407E+01_JPRB, 0.225601E+01_JPRB, 0.225734E+01_JPRB, 0.225811E+01_JPRB &
+  &, 0.225828E+01_JPRB, 0.225788E+01_JPRB, 0.225691E+01_JPRB &
+  &, 0.225538E+01_JPRB, 0.225314E+01_JPRB, 0.225066E+01_JPRB, 0.224746E+01_JPRB &
+  &, 0.224372E+01_JPRB, 0.223944E+01_JPRB, 0.223464E+01_JPRB &
+  &, 0.222931E+01_JPRB, 0.222345E+01_JPRB, 0.221710E+01_JPRB, 0.221024E+01_JPRB &
+  &, 0.220289E+01_JPRB, 0.219504E+01_JPRB, 0.218670E+01_JPRB &
+  &, 0.217792E+01_JPRB, 0.216867E+01_JPRB, 0.215894E+01_JPRB, 0.214878E+01_JPRB &
+  &, 0.213818E+01_JPRB, 0.212715E+01_JPRB, 0.211570E+01_JPRB &
+  &, 0.210386E+01_JPRB, 0.209159E+01_JPRB, 0.207894E+01_JPRB, 0.206591E+01_JPRB &
+  &, 0.205253E+01_JPRB, 0.203878E+01_JPRB, 0.202466E+01_JPRB &
+  &, 0.201023E+01_JPRB, 0.199544E+01_JPRB, 0.198031E+01_JPRB, 0.196488E+01_JPRB &
+  &, 0.194918E+01_JPRB, 0.193318E+01_JPRB, 0.191689E+01_JPRB &
+  &, 0.190032E+01_JPRB, 0.188350E+01_JPRB, 0.186642E+01_JPRB, 0.184911E+01_JPRB &
+  &, 0.183155E+01_JPRB, 0.181381E+01_JPRB, 0.179583E+01_JPRB &
+  &, 0.177764E+01_JPRB, 0.175931E+01_JPRB, 0.174069E+01_JPRB, 0.172203E+01_JPRB &
+  &, 0.170318E+01_JPRB, 0.168416E+01_JPRB, 0.166504E+01_JPRB &
+  &, 0.164577E+01_JPRB, 0.162635E+01_JPRB, 0.160683E+01_JPRB, 0.158723E+01_JPRB &
+  &, 0.156756E+01_JPRB, 0.154777E+01_JPRB, 0.152792E+01_JPRB &
+  &, 0.150804E+01_JPRB, 0.148806E+01_JPRB, 0.146809E+01_JPRB, 0.144807E+01_JPRB &
+  &, 0.142802E+01_JPRB, 0.140790E+01_JPRB, 0.138786E+01_JPRB &
+  &, 0.136774E+01_JPRB, 0.134769E+01_JPRB, 0.132762E+01_JPRB, 0.130760E+01_JPRB &
+  &, 0.128761E+01_JPRB, 0.126767E+01_JPRB, 0.124773E+01_JPRB/)
+XCW( 863, :) = (/ &
+  &  0.110980E+01_JPRB, 0.113733E+01_JPRB, 0.116486E+01_JPRB, 0.119237E+01_JPRB &
+  &, 0.121985E+01_JPRB, 0.124728E+01_JPRB, 0.127464E+01_JPRB &
+  &, 0.130192E+01_JPRB, 0.132911E+01_JPRB, 0.135617E+01_JPRB, 0.138311E+01_JPRB &
+  &, 0.140990E+01_JPRB, 0.143652E+01_JPRB, 0.146297E+01_JPRB &
+  &, 0.148921E+01_JPRB, 0.151525E+01_JPRB, 0.154106E+01_JPRB, 0.156663E+01_JPRB &
+  &, 0.159194E+01_JPRB, 0.161698E+01_JPRB, 0.164172E+01_JPRB &
+  &, 0.166617E+01_JPRB, 0.169029E+01_JPRB, 0.171408E+01_JPRB, 0.173752E+01_JPRB &
+  &, 0.176059E+01_JPRB, 0.178330E+01_JPRB, 0.180561E+01_JPRB &
+  &, 0.182751E+01_JPRB, 0.184901E+01_JPRB, 0.187007E+01_JPRB, 0.189069E+01_JPRB &
+  &, 0.191086E+01_JPRB, 0.193056E+01_JPRB, 0.194978E+01_JPRB &
+  &, 0.196853E+01_JPRB, 0.198677E+01_JPRB, 0.200451E+01_JPRB, 0.202173E+01_JPRB &
+  &, 0.203843E+01_JPRB, 0.205460E+01_JPRB, 0.207023E+01_JPRB &
+  &, 0.208531E+01_JPRB, 0.209984E+01_JPRB, 0.211380E+01_JPRB, 0.212720E+01_JPRB &
+  &, 0.213999E+01_JPRB, 0.215228E+01_JPRB, 0.216395E+01_JPRB &
+  &, 0.217503E+01_JPRB, 0.218553E+01_JPRB, 0.219544E+01_JPRB, 0.220476E+01_JPRB &
+  &, 0.221348E+01_JPRB, 0.222159E+01_JPRB, 0.222911E+01_JPRB &
+  &, 0.223604E+01_JPRB, 0.224237E+01_JPRB, 0.224808E+01_JPRB, 0.225321E+01_JPRB &
+  &, 0.225774E+01_JPRB, 0.226167E+01_JPRB, 0.226500E+01_JPRB &
+  &, 0.226774E+01_JPRB, 0.226990E+01_JPRB, 0.227147E+01_JPRB, 0.227244E+01_JPRB &
+  &, 0.227285E+01_JPRB, 0.227268E+01_JPRB, 0.227193E+01_JPRB &
+  &, 0.227061E+01_JPRB, 0.226875E+01_JPRB, 0.226631E+01_JPRB, 0.226332E+01_JPRB &
+  &, 0.225979E+01_JPRB, 0.225572E+01_JPRB, 0.225111E+01_JPRB &
+  &, 0.224599E+01_JPRB, 0.224032E+01_JPRB, 0.223416E+01_JPRB, 0.222749E+01_JPRB &
+  &, 0.222033E+01_JPRB, 0.221265E+01_JPRB, 0.220451E+01_JPRB &
+  &, 0.219588E+01_JPRB, 0.218680E+01_JPRB, 0.217726E+01_JPRB, 0.216727E+01_JPRB &
+  &, 0.215681E+01_JPRB, 0.214597E+01_JPRB, 0.213468E+01_JPRB &
+  &, 0.212296E+01_JPRB, 0.211083E+01_JPRB, 0.209833E+01_JPRB, 0.208545E+01_JPRB &
+  &, 0.207217E+01_JPRB, 0.205856E+01_JPRB, 0.204457E+01_JPRB &
+  &, 0.203022E+01_JPRB, 0.201556E+01_JPRB, 0.200055E+01_JPRB, 0.198524E+01_JPRB &
+  &, 0.196961E+01_JPRB, 0.195368E+01_JPRB, 0.193748E+01_JPRB &
+  &, 0.192101E+01_JPRB, 0.190424E+01_JPRB, 0.188725E+01_JPRB, 0.187002E+01_JPRB &
+  &, 0.185253E+01_JPRB, 0.183482E+01_JPRB, 0.181690E+01_JPRB &
+  &, 0.179877E+01_JPRB, 0.178045E+01_JPRB, 0.176197E+01_JPRB, 0.174331E+01_JPRB &
+  &, 0.172444E+01_JPRB, 0.170545E+01_JPRB, 0.168631E+01_JPRB &
+  &, 0.166705E+01_JPRB, 0.164765E+01_JPRB, 0.162819E+01_JPRB, 0.160858E+01_JPRB &
+  &, 0.158886E+01_JPRB, 0.156905E+01_JPRB, 0.154923E+01_JPRB &
+  &, 0.152927E+01_JPRB, 0.150930E+01_JPRB, 0.148924E+01_JPRB, 0.146917E+01_JPRB &
+  &, 0.144906E+01_JPRB, 0.142893E+01_JPRB, 0.140882E+01_JPRB &
+  &, 0.138868E+01_JPRB, 0.136855E+01_JPRB, 0.134844E+01_JPRB, 0.132833E+01_JPRB &
+  &, 0.130823E+01_JPRB, 0.128823E+01_JPRB, 0.126823E+01_JPRB/)
+XCW( 864, :) = (/ &
+  &  0.111029E+01_JPRB, 0.113795E+01_JPRB, 0.116562E+01_JPRB, 0.119327E+01_JPRB &
+  &, 0.122090E+01_JPRB, 0.124847E+01_JPRB, 0.127599E+01_JPRB &
+  &, 0.130342E+01_JPRB, 0.133077E+01_JPRB, 0.135799E+01_JPRB, 0.138510E+01_JPRB &
+  &, 0.141205E+01_JPRB, 0.143885E+01_JPRB, 0.146547E+01_JPRB &
+  &, 0.149190E+01_JPRB, 0.151812E+01_JPRB, 0.154412E+01_JPRB, 0.156988E+01_JPRB &
+  &, 0.159538E+01_JPRB, 0.162061E+01_JPRB, 0.164556E+01_JPRB &
+  &, 0.167020E+01_JPRB, 0.169453E+01_JPRB, 0.171852E+01_JPRB, 0.174217E+01_JPRB &
+  &, 0.176546E+01_JPRB, 0.178837E+01_JPRB, 0.181090E+01_JPRB &
+  &, 0.183303E+01_JPRB, 0.185474E+01_JPRB, 0.187602E+01_JPRB, 0.189686E+01_JPRB &
+  &, 0.191726E+01_JPRB, 0.193719E+01_JPRB, 0.195665E+01_JPRB &
+  &, 0.197561E+01_JPRB, 0.199409E+01_JPRB, 0.201207E+01_JPRB, 0.202953E+01_JPRB &
+  &, 0.204646E+01_JPRB, 0.206287E+01_JPRB, 0.207873E+01_JPRB &
+  &, 0.209406E+01_JPRB, 0.210883E+01_JPRB, 0.212303E+01_JPRB, 0.213668E+01_JPRB &
+  &, 0.214974E+01_JPRB, 0.216224E+01_JPRB, 0.217415E+01_JPRB &
+  &, 0.218548E+01_JPRB, 0.219622E+01_JPRB, 0.220637E+01_JPRB, 0.221592E+01_JPRB &
+  &, 0.222488E+01_JPRB, 0.223325E+01_JPRB, 0.224099E+01_JPRB &
+  &, 0.224817E+01_JPRB, 0.225474E+01_JPRB, 0.226070E+01_JPRB, 0.226605E+01_JPRB &
+  &, 0.227083E+01_JPRB, 0.227498E+01_JPRB, 0.227856E+01_JPRB &
+  &, 0.228153E+01_JPRB, 0.228392E+01_JPRB, 0.228572E+01_JPRB, 0.228693E+01_JPRB &
+  &, 0.228756E+01_JPRB, 0.228760E+01_JPRB, 0.228708E+01_JPRB &
+  &, 0.228598E+01_JPRB, 0.228434E+01_JPRB, 0.228211E+01_JPRB, 0.227935E+01_JPRB &
+  &, 0.227603E+01_JPRB, 0.227215E+01_JPRB, 0.226775E+01_JPRB &
+  &, 0.226283E+01_JPRB, 0.225736E+01_JPRB, 0.225141E+01_JPRB, 0.224491E+01_JPRB &
+  &, 0.223795E+01_JPRB, 0.223045E+01_JPRB, 0.222249E+01_JPRB &
+  &, 0.221406E+01_JPRB, 0.220513E+01_JPRB, 0.219576E+01_JPRB, 0.218594E+01_JPRB &
+  &, 0.217568E+01_JPRB, 0.216497E+01_JPRB, 0.215383E+01_JPRB &
+  &, 0.214227E+01_JPRB, 0.213030E+01_JPRB, 0.211792E+01_JPRB, 0.210518E+01_JPRB &
+  &, 0.209205E+01_JPRB, 0.207854E+01_JPRB, 0.206468E+01_JPRB &
+  &, 0.205047E+01_JPRB, 0.203590E+01_JPRB, 0.202102E+01_JPRB, 0.200578E+01_JPRB &
+  &, 0.199026E+01_JPRB, 0.197445E+01_JPRB, 0.195836E+01_JPRB &
+  &, 0.194194E+01_JPRB, 0.192527E+01_JPRB, 0.190837E+01_JPRB, 0.189118E+01_JPRB &
+  &, 0.187377E+01_JPRB, 0.185613E+01_JPRB, 0.183824E+01_JPRB &
+  &, 0.182018E+01_JPRB, 0.180191E+01_JPRB, 0.178344E+01_JPRB, 0.176482E+01_JPRB &
+  &, 0.174600E+01_JPRB, 0.172704E+01_JPRB, 0.170793E+01_JPRB &
+  &, 0.168869E+01_JPRB, 0.166931E+01_JPRB, 0.164980E+01_JPRB, 0.163019E+01_JPRB &
+  &, 0.161047E+01_JPRB, 0.159065E+01_JPRB, 0.157081E+01_JPRB &
+  &, 0.155083E+01_JPRB, 0.153083E+01_JPRB, 0.151073E+01_JPRB, 0.149061E+01_JPRB &
+  &, 0.147051E+01_JPRB, 0.145032E+01_JPRB, 0.143014E+01_JPRB &
+  &, 0.140993E+01_JPRB, 0.138971E+01_JPRB, 0.136952E+01_JPRB, 0.134936E+01_JPRB &
+  &, 0.132922E+01_JPRB, 0.130905E+01_JPRB, 0.128900E+01_JPRB/)
+XCW( 865, :) = (/ &
+  &  0.111078E+01_JPRB, 0.113858E+01_JPRB, 0.116639E+01_JPRB, 0.119418E+01_JPRB &
+  &, 0.122195E+01_JPRB, 0.124967E+01_JPRB, 0.127734E+01_JPRB &
+  &, 0.130493E+01_JPRB, 0.133243E+01_JPRB, 0.135983E+01_JPRB, 0.138710E+01_JPRB &
+  &, 0.141423E+01_JPRB, 0.144120E+01_JPRB, 0.146800E+01_JPRB &
+  &, 0.149461E+01_JPRB, 0.152101E+01_JPRB, 0.154720E+01_JPRB, 0.157315E+01_JPRB &
+  &, 0.159884E+01_JPRB, 0.162427E+01_JPRB, 0.164941E+01_JPRB &
+  &, 0.167426E+01_JPRB, 0.169879E+01_JPRB, 0.172299E+01_JPRB, 0.174685E+01_JPRB &
+  &, 0.177035E+01_JPRB, 0.179349E+01_JPRB, 0.181623E+01_JPRB &
+  &, 0.183858E+01_JPRB, 0.186051E+01_JPRB, 0.188202E+01_JPRB, 0.190309E+01_JPRB &
+  &, 0.192371E+01_JPRB, 0.194387E+01_JPRB, 0.196356E+01_JPRB &
+  &, 0.198277E+01_JPRB, 0.200147E+01_JPRB, 0.201968E+01_JPRB, 0.203738E+01_JPRB &
+  &, 0.205456E+01_JPRB, 0.207053E+01_JPRB, 0.208731E+01_JPRB &
+  &, 0.210288E+01_JPRB, 0.211788E+01_JPRB, 0.213233E+01_JPRB, 0.214622E+01_JPRB &
+  &, 0.215954E+01_JPRB, 0.217227E+01_JPRB, 0.218443E+01_JPRB &
+  &, 0.219600E+01_JPRB, 0.220697E+01_JPRB, 0.221739E+01_JPRB, 0.222719E+01_JPRB &
+  &, 0.223640E+01_JPRB, 0.224499E+01_JPRB, 0.225301E+01_JPRB &
+  &, 0.226042E+01_JPRB, 0.226722E+01_JPRB, 0.227342E+01_JPRB, 0.227901E+01_JPRB &
+  &, 0.228403E+01_JPRB, 0.228844E+01_JPRB, 0.229224E+01_JPRB &
+  &, 0.229545E+01_JPRB, 0.229808E+01_JPRB, 0.230009E+01_JPRB, 0.230154E+01_JPRB &
+  &, 0.230240E+01_JPRB, 0.230269E+01_JPRB, 0.230238E+01_JPRB &
+  &, 0.230150E+01_JPRB, 0.230008E+01_JPRB, 0.229807E+01_JPRB, 0.229552E+01_JPRB &
+  &, 0.229240E+01_JPRB, 0.228858E+01_JPRB, 0.228456E+01_JPRB &
+  &, 0.227983E+01_JPRB, 0.227458E+01_JPRB, 0.226882E+01_JPRB, 0.226253E+01_JPRB &
+  &, 0.225573E+01_JPRB, 0.224844E+01_JPRB, 0.224067E+01_JPRB &
+  &, 0.223242E+01_JPRB, 0.222369E+01_JPRB, 0.221447E+01_JPRB, 0.220482E+01_JPRB &
+  &, 0.219472E+01_JPRB, 0.218415E+01_JPRB, 0.217318E+01_JPRB &
+  &, 0.216178E+01_JPRB, 0.214997E+01_JPRB, 0.213774E+01_JPRB, 0.212515E+01_JPRB &
+  &, 0.211213E+01_JPRB, 0.209876E+01_JPRB, 0.208501E+01_JPRB &
+  &, 0.207094E+01_JPRB, 0.205649E+01_JPRB, 0.204174E+01_JPRB, 0.202663E+01_JPRB &
+  &, 0.201119E+01_JPRB, 0.199548E+01_JPRB, 0.197946E+01_JPRB &
+  &, 0.196315E+01_JPRB, 0.194658E+01_JPRB, 0.192973E+01_JPRB, 0.191263E+01_JPRB &
+  &, 0.189527E+01_JPRB, 0.187771E+01_JPRB, 0.185989E+01_JPRB &
+  &, 0.184189E+01_JPRB, 0.182365E+01_JPRB, 0.180523E+01_JPRB, 0.178662E+01_JPRB &
+  &, 0.176784E+01_JPRB, 0.174892E+01_JPRB, 0.172984E+01_JPRB &
+  &, 0.171058E+01_JPRB, 0.169121E+01_JPRB, 0.167172E+01_JPRB, 0.165212E+01_JPRB &
+  &, 0.163239E+01_JPRB, 0.161257E+01_JPRB, 0.159267E+01_JPRB &
+  &, 0.157272E+01_JPRB, 0.155269E+01_JPRB, 0.153256E+01_JPRB, 0.151240E+01_JPRB &
+  &, 0.149225E+01_JPRB, 0.147201E+01_JPRB, 0.145176E+01_JPRB &
+  &, 0.143142E+01_JPRB, 0.141125E+01_JPRB, 0.139096E+01_JPRB, 0.137072E+01_JPRB &
+  &, 0.135054E+01_JPRB, 0.133032E+01_JPRB, 0.131016E+01_JPRB/)
+XCW( 866, :) = (/ &
+  &  0.111128E+01_JPRB, 0.113921E+01_JPRB, 0.116715E+01_JPRB, 0.119509E+01_JPRB &
+  &, 0.122300E+01_JPRB, 0.125088E+01_JPRB, 0.127870E+01_JPRB &
+  &, 0.130645E+01_JPRB, 0.133411E+01_JPRB, 0.136167E+01_JPRB, 0.138911E+01_JPRB &
+  &, 0.141641E+01_JPRB, 0.144356E+01_JPRB, 0.147054E+01_JPRB &
+  &, 0.149733E+01_JPRB, 0.152392E+01_JPRB, 0.155029E+01_JPRB, 0.157644E+01_JPRB &
+  &, 0.160233E+01_JPRB, 0.162795E+01_JPRB, 0.165330E+01_JPRB &
+  &, 0.167834E+01_JPRB, 0.170308E+01_JPRB, 0.172749E+01_JPRB, 0.175157E+01_JPRB &
+  &, 0.177528E+01_JPRB, 0.179863E+01_JPRB, 0.182160E+01_JPRB &
+  &, 0.184416E+01_JPRB, 0.186632E+01_JPRB, 0.188805E+01_JPRB, 0.190935E+01_JPRB &
+  &, 0.193021E+01_JPRB, 0.195060E+01_JPRB, 0.197052E+01_JPRB &
+  &, 0.198996E+01_JPRB, 0.200891E+01_JPRB, 0.202736E+01_JPRB, 0.204529E+01_JPRB &
+  &, 0.206271E+01_JPRB, 0.207960E+01_JPRB, 0.209595E+01_JPRB &
+  &, 0.211176E+01_JPRB, 0.212701E+01_JPRB, 0.214171E+01_JPRB, 0.215584E+01_JPRB &
+  &, 0.216940E+01_JPRB, 0.218239E+01_JPRB, 0.219480E+01_JPRB &
+  &, 0.220662E+01_JPRB, 0.221785E+01_JPRB, 0.222850E+01_JPRB, 0.223853E+01_JPRB &
+  &, 0.224799E+01_JPRB, 0.225684E+01_JPRB, 0.226509E+01_JPRB &
+  &, 0.227275E+01_JPRB, 0.227981E+01_JPRB, 0.228625E+01_JPRB, 0.229209E+01_JPRB &
+  &, 0.229734E+01_JPRB, 0.230199E+01_JPRB, 0.230603E+01_JPRB &
+  &, 0.230949E+01_JPRB, 0.231234E+01_JPRB, 0.231461E+01_JPRB, 0.231628E+01_JPRB &
+  &, 0.231738E+01_JPRB, 0.231789E+01_JPRB, 0.231781E+01_JPRB &
+  &, 0.231717E+01_JPRB, 0.231597E+01_JPRB, 0.231418E+01_JPRB, 0.231184E+01_JPRB &
+  &, 0.230896E+01_JPRB, 0.230552E+01_JPRB, 0.230154E+01_JPRB &
+  &, 0.229700E+01_JPRB, 0.229197E+01_JPRB, 0.228640E+01_JPRB, 0.228030E+01_JPRB &
+  &, 0.227372E+01_JPRB, 0.226662E+01_JPRB, 0.225903E+01_JPRB &
+  &, 0.225096E+01_JPRB, 0.224238E+01_JPRB, 0.223337E+01_JPRB, 0.222390E+01_JPRB &
+  &, 0.221395E+01_JPRB, 0.220357E+01_JPRB, 0.219274E+01_JPRB &
+  &, 0.218150E+01_JPRB, 0.216985E+01_JPRB, 0.215778E+01_JPRB, 0.214532E+01_JPRB &
+  &, 0.213245E+01_JPRB, 0.211923E+01_JPRB, 0.210562E+01_JPRB &
+  &, 0.209165E+01_JPRB, 0.207734E+01_JPRB, 0.206268E+01_JPRB, 0.204770E+01_JPRB &
+  &, 0.203238E+01_JPRB, 0.201676E+01_JPRB, 0.200085E+01_JPRB &
+  &, 0.198461E+01_JPRB, 0.196814E+01_JPRB, 0.195135E+01_JPRB, 0.193434E+01_JPRB &
+  &, 0.191706E+01_JPRB, 0.189954E+01_JPRB, 0.188181E+01_JPRB &
+  &, 0.186384E+01_JPRB, 0.184566E+01_JPRB, 0.182730E+01_JPRB, 0.180874E+01_JPRB &
+  &, 0.179001E+01_JPRB, 0.177109E+01_JPRB, 0.175200E+01_JPRB &
+  &, 0.173282E+01_JPRB, 0.171342E+01_JPRB, 0.169395E+01_JPRB, 0.167436E+01_JPRB &
+  &, 0.165464E+01_JPRB, 0.163481E+01_JPRB, 0.161490E+01_JPRB &
+  &, 0.159493E+01_JPRB, 0.157483E+01_JPRB, 0.155473E+01_JPRB, 0.153453E+01_JPRB &
+  &, 0.151434E+01_JPRB, 0.149404E+01_JPRB, 0.147374E+01_JPRB &
+  &, 0.145345E+01_JPRB, 0.143315E+01_JPRB, 0.141279E+01_JPRB, 0.139245E+01_JPRB &
+  &, 0.137218E+01_JPRB, 0.135186E+01_JPRB, 0.133165E+01_JPRB/)
+XCW( 867, :) = (/ &
+  &  0.111178E+01_JPRB, 0.113984E+01_JPRB, 0.116793E+01_JPRB, 0.119600E+01_JPRB &
+  &, 0.122407E+01_JPRB, 0.125209E+01_JPRB, 0.128007E+01_JPRB &
+  &, 0.130798E+01_JPRB, 0.133580E+01_JPRB, 0.136353E+01_JPRB, 0.139113E+01_JPRB &
+  &, 0.141861E+01_JPRB, 0.144593E+01_JPRB, 0.147309E+01_JPRB &
+  &, 0.150007E+01_JPRB, 0.152685E+01_JPRB, 0.155341E+01_JPRB, 0.157974E+01_JPRB &
+  &, 0.160583E+01_JPRB, 0.163166E+01_JPRB, 0.165720E+01_JPRB &
+  &, 0.168246E+01_JPRB, 0.170741E+01_JPRB, 0.173203E+01_JPRB, 0.175631E+01_JPRB &
+  &, 0.178025E+01_JPRB, 0.180382E+01_JPRB, 0.182700E+01_JPRB &
+  &, 0.184979E+01_JPRB, 0.187217E+01_JPRB, 0.189414E+01_JPRB, 0.191566E+01_JPRB &
+  &, 0.193675E+01_JPRB, 0.195738E+01_JPRB, 0.197753E+01_JPRB &
+  &, 0.199721E+01_JPRB, 0.201640E+01_JPRB, 0.203509E+01_JPRB, 0.205327E+01_JPRB &
+  &, 0.207092E+01_JPRB, 0.208806E+01_JPRB, 0.210465E+01_JPRB &
+  &, 0.212071E+01_JPRB, 0.213621E+01_JPRB, 0.215116E+01_JPRB, 0.216553E+01_JPRB &
+  &, 0.217934E+01_JPRB, 0.219258E+01_JPRB, 0.220524E+01_JPRB &
+  &, 0.221732E+01_JPRB, 0.222880E+01_JPRB, 0.223969E+01_JPRB, 0.224998E+01_JPRB &
+  &, 0.225969E+01_JPRB, 0.226880E+01_JPRB, 0.227730E+01_JPRB &
+  &, 0.228520E+01_JPRB, 0.229249E+01_JPRB, 0.229920E+01_JPRB, 0.230529E+01_JPRB &
+  &, 0.231079E+01_JPRB, 0.231567E+01_JPRB, 0.231995E+01_JPRB &
+  &, 0.232365E+01_JPRB, 0.232675E+01_JPRB, 0.232925E+01_JPRB, 0.233118E+01_JPRB &
+  &, 0.233242E+01_JPRB, 0.233324E+01_JPRB, 0.233340E+01_JPRB &
+  &, 0.233299E+01_JPRB, 0.233199E+01_JPRB, 0.233043E+01_JPRB, 0.232833E+01_JPRB &
+  &, 0.232565E+01_JPRB, 0.232244E+01_JPRB, 0.231865E+01_JPRB &
+  &, 0.231436E+01_JPRB, 0.230951E+01_JPRB, 0.230416E+01_JPRB, 0.229825E+01_JPRB &
+  &, 0.229187E+01_JPRB, 0.228496E+01_JPRB, 0.227758E+01_JPRB &
+  &, 0.226967E+01_JPRB, 0.226131E+01_JPRB, 0.225248E+01_JPRB, 0.224316E+01_JPRB &
+  &, 0.223341E+01_JPRB, 0.222318E+01_JPRB, 0.221255E+01_JPRB &
+  &, 0.220145E+01_JPRB, 0.218997E+01_JPRB, 0.217803E+01_JPRB, 0.216572E+01_JPRB &
+  &, 0.215300E+01_JPRB, 0.213990E+01_JPRB, 0.212644E+01_JPRB &
+  &, 0.211261E+01_JPRB, 0.209841E+01_JPRB, 0.208388E+01_JPRB, 0.206899E+01_JPRB &
+  &, 0.205380E+01_JPRB, 0.203830E+01_JPRB, 0.202247E+01_JPRB &
+  &, 0.200634E+01_JPRB, 0.198994E+01_JPRB, 0.197325E+01_JPRB, 0.195634E+01_JPRB &
+  &, 0.193912E+01_JPRB, 0.192169E+01_JPRB, 0.190399E+01_JPRB &
+  &, 0.188609E+01_JPRB, 0.186798E+01_JPRB, 0.184964E+01_JPRB, 0.183114E+01_JPRB &
+  &, 0.181247E+01_JPRB, 0.179354E+01_JPRB, 0.177454E+01_JPRB &
+  &, 0.175535E+01_JPRB, 0.173599E+01_JPRB, 0.171653E+01_JPRB, 0.169691E+01_JPRB &
+  &, 0.167720E+01_JPRB, 0.165737E+01_JPRB, 0.163746E+01_JPRB &
+  &, 0.161743E+01_JPRB, 0.159736E+01_JPRB, 0.157718E+01_JPRB, 0.155701E+01_JPRB &
+  &, 0.153672E+01_JPRB, 0.151644E+01_JPRB, 0.149608E+01_JPRB &
+  &, 0.147573E+01_JPRB, 0.145536E+01_JPRB, 0.143498E+01_JPRB, 0.141457E+01_JPRB &
+  &, 0.139420E+01_JPRB, 0.137385E+01_JPRB, 0.135340E+01_JPRB/)
+XCW( 868, :) = (/ &
+  &  0.111228E+01_JPRB, 0.114048E+01_JPRB, 0.116870E+01_JPRB, 0.119692E+01_JPRB &
+  &, 0.122513E+01_JPRB, 0.125331E+01_JPRB, 0.128145E+01_JPRB &
+  &, 0.130951E+01_JPRB, 0.133750E+01_JPRB, 0.136539E+01_JPRB, 0.139317E+01_JPRB &
+  &, 0.142082E+01_JPRB, 0.144832E+01_JPRB, 0.147566E+01_JPRB &
+  &, 0.150282E+01_JPRB, 0.152979E+01_JPRB, 0.155655E+01_JPRB, 0.158308E+01_JPRB &
+  &, 0.160936E+01_JPRB, 0.163539E+01_JPRB, 0.166114E+01_JPRB &
+  &, 0.168660E+01_JPRB, 0.171176E+01_JPRB, 0.173659E+01_JPRB, 0.176110E+01_JPRB &
+  &, 0.178525E+01_JPRB, 0.180903E+01_JPRB, 0.183244E+01_JPRB &
+  &, 0.185546E+01_JPRB, 0.187807E+01_JPRB, 0.190026E+01_JPRB, 0.192203E+01_JPRB &
+  &, 0.194334E+01_JPRB, 0.196420E+01_JPRB, 0.198460E+01_JPRB &
+  &, 0.200452E+01_JPRB, 0.202393E+01_JPRB, 0.204288E+01_JPRB, 0.206130E+01_JPRB &
+  &, 0.207921E+01_JPRB, 0.209658E+01_JPRB, 0.211343E+01_JPRB &
+  &, 0.212973E+01_JPRB, 0.214548E+01_JPRB, 0.216068E+01_JPRB, 0.217531E+01_JPRB &
+  &, 0.218938E+01_JPRB, 0.220282E+01_JPRB, 0.221577E+01_JPRB &
+  &, 0.222768E+01_JPRB, 0.223984E+01_JPRB, 0.225098E+01_JPRB, 0.226153E+01_JPRB &
+  &, 0.227148E+01_JPRB, 0.228084E+01_JPRB, 0.228959E+01_JPRB &
+  &, 0.229775E+01_JPRB, 0.230531E+01_JPRB, 0.231224E+01_JPRB, 0.231860E+01_JPRB &
+  &, 0.232433E+01_JPRB, 0.232948E+01_JPRB, 0.233401E+01_JPRB &
+  &, 0.233795E+01_JPRB, 0.234128E+01_JPRB, 0.234404E+01_JPRB, 0.234619E+01_JPRB &
+  &, 0.234774E+01_JPRB, 0.234872E+01_JPRB, 0.234911E+01_JPRB &
+  &, 0.234893E+01_JPRB, 0.234818E+01_JPRB, 0.234685E+01_JPRB, 0.234498E+01_JPRB &
+  &, 0.234251E+01_JPRB, 0.233952E+01_JPRB, 0.233596E+01_JPRB &
+  &, 0.233187E+01_JPRB, 0.232725E+01_JPRB, 0.232210E+01_JPRB, 0.231642E+01_JPRB &
+  &, 0.231022E+01_JPRB, 0.230351E+01_JPRB, 0.229630E+01_JPRB &
+  &, 0.228861E+01_JPRB, 0.228043E+01_JPRB, 0.227179E+01_JPRB, 0.226265E+01_JPRB &
+  &, 0.225306E+01_JPRB, 0.224304E+01_JPRB, 0.223255E+01_JPRB &
+  &, 0.222162E+01_JPRB, 0.221028E+01_JPRB, 0.219853E+01_JPRB, 0.218635E+01_JPRB &
+  &, 0.217380E+01_JPRB, 0.216085E+01_JPRB, 0.214751E+01_JPRB &
+  &, 0.213383E+01_JPRB, 0.211969E+01_JPRB, 0.210534E+01_JPRB, 0.209059E+01_JPRB &
+  &, 0.207549E+01_JPRB, 0.206008E+01_JPRB, 0.204437E+01_JPRB &
+  &, 0.202836E+01_JPRB, 0.201203E+01_JPRB, 0.199545E+01_JPRB, 0.197860E+01_JPRB &
+  &, 0.196147E+01_JPRB, 0.194409E+01_JPRB, 0.192652E+01_JPRB &
+  &, 0.190866E+01_JPRB, 0.189058E+01_JPRB, 0.187231E+01_JPRB, 0.185388E+01_JPRB &
+  &, 0.183521E+01_JPRB, 0.181634E+01_JPRB, 0.179734E+01_JPRB &
+  &, 0.177818E+01_JPRB, 0.175886E+01_JPRB, 0.173938E+01_JPRB, 0.171983E+01_JPRB &
+  &, 0.170008E+01_JPRB, 0.168026E+01_JPRB, 0.166035E+01_JPRB &
+  &, 0.164031E+01_JPRB, 0.162023E+01_JPRB, 0.160003E+01_JPRB, 0.157977E+01_JPRB &
+  &, 0.155950E+01_JPRB, 0.153912E+01_JPRB, 0.151878E+01_JPRB &
+  &, 0.149838E+01_JPRB, 0.147794E+01_JPRB, 0.145749E+01_JPRB, 0.143700E+01_JPRB &
+  &, 0.141654E+01_JPRB, 0.139616E+01_JPRB, 0.137574E+01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART124',1,ZHOOK_HANDLE)
+END SUBROUTINE PART124
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART125
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART125',0,ZHOOK_HANDLE)
+
+XCW( 869, :) = (/ &
+  &  0.111278E+01_JPRB, 0.114112E+01_JPRB, 0.116948E+01_JPRB, 0.119785E+01_JPRB &
+  &, 0.122621E+01_JPRB, 0.125454E+01_JPRB, 0.128283E+01_JPRB &
+  &, 0.131106E+01_JPRB, 0.133921E+01_JPRB, 0.136727E+01_JPRB, 0.139522E+01_JPRB &
+  &, 0.142304E+01_JPRB, 0.145073E+01_JPRB, 0.147825E+01_JPRB &
+  &, 0.150560E+01_JPRB, 0.153275E+01_JPRB, 0.155970E+01_JPRB, 0.158643E+01_JPRB &
+  &, 0.161291E+01_JPRB, 0.163914E+01_JPRB, 0.166510E+01_JPRB &
+  &, 0.169077E+01_JPRB, 0.171614E+01_JPRB, 0.174119E+01_JPRB, 0.176591E+01_JPRB &
+  &, 0.179028E+01_JPRB, 0.181429E+01_JPRB, 0.183792E+01_JPRB &
+  &, 0.186117E+01_JPRB, 0.188401E+01_JPRB, 0.190644E+01_JPRB, 0.192843E+01_JPRB &
+  &, 0.194998E+01_JPRB, 0.197108E+01_JPRB, 0.199172E+01_JPRB &
+  &, 0.201188E+01_JPRB, 0.203155E+01_JPRB, 0.205073E+01_JPRB, 0.206940E+01_JPRB &
+  &, 0.208755E+01_JPRB, 0.210518E+01_JPRB, 0.212227E+01_JPRB &
+  &, 0.213882E+01_JPRB, 0.215483E+01_JPRB, 0.217028E+01_JPRB, 0.218516E+01_JPRB &
+  &, 0.219948E+01_JPRB, 0.221322E+01_JPRB, 0.222639E+01_JPRB &
+  &, 0.223897E+01_JPRB, 0.225097E+01_JPRB, 0.226238E+01_JPRB, 0.227317E+01_JPRB &
+  &, 0.228339E+01_JPRB, 0.229300E+01_JPRB, 0.230201E+01_JPRB &
+  &, 0.231041E+01_JPRB, 0.231822E+01_JPRB, 0.232542E+01_JPRB, 0.233201E+01_JPRB &
+  &, 0.233801E+01_JPRB, 0.234340E+01_JPRB, 0.234816E+01_JPRB &
+  &, 0.235238E+01_JPRB, 0.235595E+01_JPRB, 0.235894E+01_JPRB, 0.236134E+01_JPRB &
+  &, 0.236314E+01_JPRB, 0.236437E+01_JPRB, 0.236499E+01_JPRB &
+  &, 0.236504E+01_JPRB, 0.236452E+01_JPRB, 0.236345E+01_JPRB, 0.236178E+01_JPRB &
+  &, 0.235954E+01_JPRB, 0.235677E+01_JPRB, 0.235344E+01_JPRB &
+  &, 0.234956E+01_JPRB, 0.234516E+01_JPRB, 0.234021E+01_JPRB, 0.233473E+01_JPRB &
+  &, 0.232877E+01_JPRB, 0.232225E+01_JPRB, 0.231524E+01_JPRB &
+  &, 0.230774E+01_JPRB, 0.229976E+01_JPRB, 0.229131E+01_JPRB, 0.228235E+01_JPRB &
+  &, 0.227294E+01_JPRB, 0.226307E+01_JPRB, 0.225277E+01_JPRB &
+  &, 0.224202E+01_JPRB, 0.223084E+01_JPRB, 0.221924E+01_JPRB, 0.220722E+01_JPRB &
+  &, 0.219483E+01_JPRB, 0.218201E+01_JPRB, 0.216882E+01_JPRB &
+  &, 0.215526E+01_JPRB, 0.214134E+01_JPRB, 0.212703E+01_JPRB, 0.211241E+01_JPRB &
+  &, 0.209745E+01_JPRB, 0.208217E+01_JPRB, 0.206655E+01_JPRB &
+  &, 0.205062E+01_JPRB, 0.203440E+01_JPRB, 0.201794E+01_JPRB, 0.200115E+01_JPRB &
+  &, 0.198413E+01_JPRB, 0.196684E+01_JPRB, 0.194927E+01_JPRB &
+  &, 0.193150E+01_JPRB, 0.191350E+01_JPRB, 0.189531E+01_JPRB, 0.187689E+01_JPRB &
+  &, 0.185824E+01_JPRB, 0.183948E+01_JPRB, 0.182048E+01_JPRB &
+  &, 0.180132E+01_JPRB, 0.178203E+01_JPRB, 0.176258E+01_JPRB, 0.174300E+01_JPRB &
+  &, 0.172333E+01_JPRB, 0.170347E+01_JPRB, 0.168356E+01_JPRB &
+  &, 0.166352E+01_JPRB, 0.164344E+01_JPRB, 0.162321E+01_JPRB, 0.160294E+01_JPRB &
+  &, 0.158258E+01_JPRB, 0.156223E+01_JPRB, 0.154178E+01_JPRB &
+  &, 0.152132E+01_JPRB, 0.150082E+01_JPRB, 0.148037E+01_JPRB, 0.145987E+01_JPRB &
+  &, 0.143933E+01_JPRB, 0.141880E+01_JPRB, 0.139834E+01_JPRB/)
+XCW( 870, :) = (/ &
+  &  0.111329E+01_JPRB, 0.114176E+01_JPRB, 0.117027E+01_JPRB, 0.119878E+01_JPRB &
+  &, 0.122729E+01_JPRB, 0.125577E+01_JPRB, 0.128422E+01_JPRB &
+  &, 0.131261E+01_JPRB, 0.134093E+01_JPRB, 0.136916E+01_JPRB, 0.139728E+01_JPRB &
+  &, 0.142529E+01_JPRB, 0.145315E+01_JPRB, 0.148086E+01_JPRB &
+  &, 0.150839E+01_JPRB, 0.153574E+01_JPRB, 0.156288E+01_JPRB, 0.158981E+01_JPRB &
+  &, 0.161649E+01_JPRB, 0.164292E+01_JPRB, 0.166909E+01_JPRB &
+  &, 0.169497E+01_JPRB, 0.172055E+01_JPRB, 0.174582E+01_JPRB, 0.177076E+01_JPRB &
+  &, 0.179535E+01_JPRB, 0.181958E+01_JPRB, 0.184344E+01_JPRB &
+  &, 0.186692E+01_JPRB, 0.188999E+01_JPRB, 0.191265E+01_JPRB, 0.193488E+01_JPRB &
+  &, 0.195667E+01_JPRB, 0.197802E+01_JPRB, 0.199889E+01_JPRB &
+  &, 0.201929E+01_JPRB, 0.203921E+01_JPRB, 0.205864E+01_JPRB, 0.207755E+01_JPRB &
+  &, 0.209596E+01_JPRB, 0.211385E+01_JPRB, 0.213118E+01_JPRB &
+  &, 0.214799E+01_JPRB, 0.216426E+01_JPRB, 0.217996E+01_JPRB, 0.219510E+01_JPRB &
+  &, 0.220967E+01_JPRB, 0.222368E+01_JPRB, 0.223710E+01_JPRB &
+  &, 0.224994E+01_JPRB, 0.226219E+01_JPRB, 0.227386E+01_JPRB, 0.228491E+01_JPRB &
+  &, 0.229539E+01_JPRB, 0.230526E+01_JPRB, 0.231452E+01_JPRB &
+  &, 0.232320E+01_JPRB, 0.233125E+01_JPRB, 0.233871E+01_JPRB, 0.234555E+01_JPRB &
+  &, 0.235180E+01_JPRB, 0.235744E+01_JPRB, 0.236248E+01_JPRB &
+  &, 0.236693E+01_JPRB, 0.237075E+01_JPRB, 0.237401E+01_JPRB, 0.237664E+01_JPRB &
+  &, 0.237870E+01_JPRB, 0.238016E+01_JPRB, 0.238102E+01_JPRB &
+  &, 0.238132E+01_JPRB, 0.238104E+01_JPRB, 0.238018E+01_JPRB, 0.237875E+01_JPRB &
+  &, 0.237674E+01_JPRB, 0.237420E+01_JPRB, 0.237111E+01_JPRB &
+  &, 0.236743E+01_JPRB, 0.236324E+01_JPRB, 0.235853E+01_JPRB, 0.235325E+01_JPRB &
+  &, 0.234749E+01_JPRB, 0.234118E+01_JPRB, 0.233439E+01_JPRB &
+  &, 0.232710E+01_JPRB, 0.231931E+01_JPRB, 0.231102E+01_JPRB, 0.230226E+01_JPRB &
+  &, 0.229304E+01_JPRB, 0.228336E+01_JPRB, 0.227323E+01_JPRB &
+  &, 0.226266E+01_JPRB, 0.225163E+01_JPRB, 0.224020E+01_JPRB, 0.222836E+01_JPRB &
+  &, 0.221610E+01_JPRB, 0.220344E+01_JPRB, 0.219038E+01_JPRB &
+  &, 0.217697E+01_JPRB, 0.216317E+01_JPRB, 0.214901E+01_JPRB, 0.213450E+01_JPRB &
+  &, 0.211968E+01_JPRB, 0.210449E+01_JPRB, 0.208900E+01_JPRB &
+  &, 0.207320E+01_JPRB, 0.205707E+01_JPRB, 0.204067E+01_JPRB, 0.202400E+01_JPRB &
+  &, 0.200704E+01_JPRB, 0.198985E+01_JPRB, 0.197238E+01_JPRB &
+  &, 0.195465E+01_JPRB, 0.193674E+01_JPRB, 0.191858E+01_JPRB, 0.190019E+01_JPRB &
+  &, 0.188166E+01_JPRB, 0.186290E+01_JPRB, 0.184396E+01_JPRB &
+  &, 0.182485E+01_JPRB, 0.180555E+01_JPRB, 0.178614E+01_JPRB, 0.176660E+01_JPRB &
+  &, 0.174689E+01_JPRB, 0.172705E+01_JPRB, 0.170710E+01_JPRB &
+  &, 0.168706E+01_JPRB, 0.166697E+01_JPRB, 0.164674E+01_JPRB, 0.162645E+01_JPRB &
+  &, 0.160607E+01_JPRB, 0.158568E+01_JPRB, 0.156519E+01_JPRB &
+  &, 0.154469E+01_JPRB, 0.152414E+01_JPRB, 0.150363E+01_JPRB, 0.148306E+01_JPRB &
+  &, 0.146245E+01_JPRB, 0.144189E+01_JPRB, 0.142128E+01_JPRB/)
+XCW( 871, :) = (/ &
+  &  0.111380E+01_JPRB, 0.114241E+01_JPRB, 0.117106E+01_JPRB, 0.119972E+01_JPRB &
+  &, 0.122838E+01_JPRB, 0.125702E+01_JPRB, 0.128562E+01_JPRB &
+  &, 0.131418E+01_JPRB, 0.134266E+01_JPRB, 0.137106E+01_JPRB, 0.139936E+01_JPRB &
+  &, 0.142754E+01_JPRB, 0.145558E+01_JPRB, 0.148348E+01_JPRB &
+  &, 0.151120E+01_JPRB, 0.153874E+01_JPRB, 0.156608E+01_JPRB, 0.159320E+01_JPRB &
+  &, 0.162009E+01_JPRB, 0.164673E+01_JPRB, 0.167310E+01_JPRB &
+  &, 0.169920E+01_JPRB, 0.172499E+01_JPRB, 0.175048E+01_JPRB, 0.177564E+01_JPRB &
+  &, 0.180046E+01_JPRB, 0.182492E+01_JPRB, 0.184900E+01_JPRB &
+  &, 0.187271E+01_JPRB, 0.189602E+01_JPRB, 0.191891E+01_JPRB, 0.194138E+01_JPRB &
+  &, 0.196342E+01_JPRB, 0.198500E+01_JPRB, 0.200612E+01_JPRB &
+  &, 0.202677E+01_JPRB, 0.204694E+01_JPRB, 0.206661E+01_JPRB, 0.208578E+01_JPRB &
+  &, 0.210443E+01_JPRB, 0.212257E+01_JPRB, 0.214017E+01_JPRB &
+  &, 0.215724E+01_JPRB, 0.217376E+01_JPRB, 0.218972E+01_JPRB, 0.220512E+01_JPRB &
+  &, 0.221995E+01_JPRB, 0.223421E+01_JPRB, 0.224790E+01_JPRB &
+  &, 0.226099E+01_JPRB, 0.227351E+01_JPRB, 0.228544E+01_JPRB, 0.229676E+01_JPRB &
+  &, 0.230750E+01_JPRB, 0.231762E+01_JPRB, 0.232715E+01_JPRB &
+  &, 0.233607E+01_JPRB, 0.234440E+01_JPRB, 0.235212E+01_JPRB, 0.235923E+01_JPRB &
+  &, 0.236574E+01_JPRB, 0.237163E+01_JPRB, 0.237693E+01_JPRB &
+  &, 0.238161E+01_JPRB, 0.238570E+01_JPRB, 0.238919E+01_JPRB, 0.239208E+01_JPRB &
+  &, 0.239439E+01_JPRB, 0.239609E+01_JPRB, 0.239721E+01_JPRB &
+  &, 0.239775E+01_JPRB, 0.239770E+01_JPRB, 0.239708E+01_JPRB, 0.239589E+01_JPRB &
+  &, 0.239412E+01_JPRB, 0.239179E+01_JPRB, 0.238892E+01_JPRB &
+  &, 0.238550E+01_JPRB, 0.238152E+01_JPRB, 0.237702E+01_JPRB, 0.237198E+01_JPRB &
+  &, 0.236640E+01_JPRB, 0.236032E+01_JPRB, 0.235374E+01_JPRB &
+  &, 0.234664E+01_JPRB, 0.233906E+01_JPRB, 0.233097E+01_JPRB, 0.232240E+01_JPRB &
+  &, 0.231337E+01_JPRB, 0.230388E+01_JPRB, 0.229392E+01_JPRB &
+  &, 0.228353E+01_JPRB, 0.227268E+01_JPRB, 0.226140E+01_JPRB, 0.224973E+01_JPRB &
+  &, 0.223761E+01_JPRB, 0.222512E+01_JPRB, 0.221222E+01_JPRB &
+  &, 0.219894E+01_JPRB, 0.218530E+01_JPRB, 0.217125E+01_JPRB, 0.215689E+01_JPRB &
+  &, 0.214217E+01_JPRB, 0.212712E+01_JPRB, 0.211173E+01_JPRB &
+  &, 0.209602E+01_JPRB, 0.208001E+01_JPRB, 0.206374E+01_JPRB, 0.204714E+01_JPRB &
+  &, 0.203029E+01_JPRB, 0.201316E+01_JPRB, 0.199575E+01_JPRB &
+  &, 0.197812E+01_JPRB, 0.196025E+01_JPRB, 0.194217E+01_JPRB, 0.192387E+01_JPRB &
+  &, 0.190536E+01_JPRB, 0.188662E+01_JPRB, 0.186774E+01_JPRB &
+  &, 0.184868E+01_JPRB, 0.182943E+01_JPRB, 0.181001E+01_JPRB, 0.179050E+01_JPRB &
+  &, 0.177077E+01_JPRB, 0.175095E+01_JPRB, 0.173102E+01_JPRB &
+  &, 0.171099E+01_JPRB, 0.169085E+01_JPRB, 0.167061E+01_JPRB, 0.165031E+01_JPRB &
+  &, 0.162997E+01_JPRB, 0.160949E+01_JPRB, 0.158897E+01_JPRB &
+  &, 0.156843E+01_JPRB, 0.154789E+01_JPRB, 0.152726E+01_JPRB, 0.150662E+01_JPRB &
+  &, 0.148594E+01_JPRB, 0.146530E+01_JPRB, 0.144467E+01_JPRB/)
+XCW( 872, :) = (/ &
+  &  0.111431E+01_JPRB, 0.114306E+01_JPRB, 0.117185E+01_JPRB, 0.120066E+01_JPRB &
+  &, 0.122947E+01_JPRB, 0.125827E+01_JPRB, 0.128703E+01_JPRB &
+  &, 0.131575E+01_JPRB, 0.134440E+01_JPRB, 0.137297E+01_JPRB, 0.140145E+01_JPRB &
+  &, 0.142981E+01_JPRB, 0.145803E+01_JPRB, 0.148611E+01_JPRB &
+  &, 0.151403E+01_JPRB, 0.154177E+01_JPRB, 0.156928E+01_JPRB, 0.159662E+01_JPRB &
+  &, 0.162372E+01_JPRB, 0.165056E+01_JPRB, 0.167715E+01_JPRB &
+  &, 0.170346E+01_JPRB, 0.172947E+01_JPRB, 0.175518E+01_JPRB, 0.178056E+01_JPRB &
+  &, 0.180560E+01_JPRB, 0.183029E+01_JPRB, 0.185461E+01_JPRB &
+  &, 0.187854E+01_JPRB, 0.190209E+01_JPRB, 0.192522E+01_JPRB, 0.194793E+01_JPRB &
+  &, 0.197021E+01_JPRB, 0.199204E+01_JPRB, 0.201340E+01_JPRB &
+  &, 0.203431E+01_JPRB, 0.205472E+01_JPRB, 0.207465E+01_JPRB, 0.209406E+01_JPRB &
+  &, 0.211298E+01_JPRB, 0.213137E+01_JPRB, 0.214922E+01_JPRB &
+  &, 0.216655E+01_JPRB, 0.218333E+01_JPRB, 0.219955E+01_JPRB, 0.221522E+01_JPRB &
+  &, 0.223031E+01_JPRB, 0.224484E+01_JPRB, 0.225878E+01_JPRB &
+  &, 0.227215E+01_JPRB, 0.228492E+01_JPRB, 0.229711E+01_JPRB, 0.230871E+01_JPRB &
+  &, 0.231971E+01_JPRB, 0.233010E+01_JPRB, 0.233990E+01_JPRB &
+  &, 0.234908E+01_JPRB, 0.235767E+01_JPRB, 0.236564E+01_JPRB, 0.237302E+01_JPRB &
+  &, 0.237977E+01_JPRB, 0.238593E+01_JPRB, 0.239148E+01_JPRB &
+  &, 0.239644E+01_JPRB, 0.240078E+01_JPRB, 0.240453E+01_JPRB, 0.240767E+01_JPRB &
+  &, 0.241022E+01_JPRB, 0.241219E+01_JPRB, 0.241354E+01_JPRB &
+  &, 0.241432E+01_JPRB, 0.241452E+01_JPRB, 0.241414E+01_JPRB, 0.241319E+01_JPRB &
+  &, 0.241166E+01_JPRB, 0.240958E+01_JPRB, 0.240694E+01_JPRB &
+  &, 0.240374E+01_JPRB, 0.239998E+01_JPRB, 0.239572E+01_JPRB, 0.239089E+01_JPRB &
+  &, 0.238555E+01_JPRB, 0.237968E+01_JPRB, 0.237328E+01_JPRB &
+  &, 0.236639E+01_JPRB, 0.235900E+01_JPRB, 0.235112E+01_JPRB, 0.234275E+01_JPRB &
+  &, 0.233392E+01_JPRB, 0.232459E+01_JPRB, 0.231482E+01_JPRB &
+  &, 0.230462E+01_JPRB, 0.229396E+01_JPRB, 0.228285E+01_JPRB, 0.227133E+01_JPRB &
+  &, 0.225939E+01_JPRB, 0.224704E+01_JPRB, 0.223431E+01_JPRB &
+  &, 0.222115E+01_JPRB, 0.220764E+01_JPRB, 0.219378E+01_JPRB, 0.217954E+01_JPRB &
+  &, 0.216493E+01_JPRB, 0.215003E+01_JPRB, 0.213474E+01_JPRB &
+  &, 0.211916E+01_JPRB, 0.210328E+01_JPRB, 0.208705E+01_JPRB, 0.207058E+01_JPRB &
+  &, 0.205380E+01_JPRB, 0.203679E+01_JPRB, 0.201948E+01_JPRB &
+  &, 0.200190E+01_JPRB, 0.198413E+01_JPRB, 0.196609E+01_JPRB, 0.194782E+01_JPRB &
+  &, 0.192939E+01_JPRB, 0.191073E+01_JPRB, 0.189186E+01_JPRB &
+  &, 0.187281E+01_JPRB, 0.185362E+01_JPRB, 0.183424E+01_JPRB, 0.181472E+01_JPRB &
+  &, 0.179508E+01_JPRB, 0.177523E+01_JPRB, 0.175532E+01_JPRB &
+  &, 0.173531E+01_JPRB, 0.171511E+01_JPRB, 0.169488E+01_JPRB, 0.167457E+01_JPRB &
+  &, 0.165415E+01_JPRB, 0.163372E+01_JPRB, 0.161317E+01_JPRB &
+  &, 0.159259E+01_JPRB, 0.157195E+01_JPRB, 0.155126E+01_JPRB, 0.153057E+01_JPRB &
+  &, 0.150988E+01_JPRB, 0.148917E+01_JPRB, 0.146846E+01_JPRB/)
+XCW( 873, :) = (/ &
+  &  0.111483E+01_JPRB, 0.114372E+01_JPRB, 0.117265E+01_JPRB, 0.120161E+01_JPRB &
+  &, 0.123057E+01_JPRB, 0.125952E+01_JPRB, 0.128845E+01_JPRB &
+  &, 0.131733E+01_JPRB, 0.134616E+01_JPRB, 0.137490E+01_JPRB, 0.140355E+01_JPRB &
+  &, 0.143209E+01_JPRB, 0.146050E+01_JPRB, 0.148877E+01_JPRB &
+  &, 0.151688E+01_JPRB, 0.154481E+01_JPRB, 0.157254E+01_JPRB, 0.160007E+01_JPRB &
+  &, 0.162737E+01_JPRB, 0.165442E+01_JPRB, 0.168122E+01_JPRB &
+  &, 0.170774E+01_JPRB, 0.173398E+01_JPRB, 0.175990E+01_JPRB, 0.178551E+01_JPRB &
+  &, 0.181078E+01_JPRB, 0.183570E+01_JPRB, 0.186025E+01_JPRB &
+  &, 0.188442E+01_JPRB, 0.190820E+01_JPRB, 0.193158E+01_JPRB, 0.195453E+01_JPRB &
+  &, 0.197705E+01_JPRB, 0.199913E+01_JPRB, 0.202074E+01_JPRB &
+  &, 0.204190E+01_JPRB, 0.206257E+01_JPRB, 0.208274E+01_JPRB, 0.210243E+01_JPRB &
+  &, 0.212159E+01_JPRB, 0.214024E+01_JPRB, 0.215836E+01_JPRB &
+  &, 0.217595E+01_JPRB, 0.219299E+01_JPRB, 0.220947E+01_JPRB, 0.222539E+01_JPRB &
+  &, 0.224076E+01_JPRB, 0.225555E+01_JPRB, 0.226977E+01_JPRB &
+  &, 0.228340E+01_JPRB, 0.229644E+01_JPRB, 0.230889E+01_JPRB, 0.232075E+01_JPRB &
+  &, 0.233202E+01_JPRB, 0.234268E+01_JPRB, 0.235274E+01_JPRB &
+  &, 0.236220E+01_JPRB, 0.237105E+01_JPRB, 0.237928E+01_JPRB, 0.238693E+01_JPRB &
+  &, 0.239395E+01_JPRB, 0.240037E+01_JPRB, 0.240620E+01_JPRB &
+  &, 0.241141E+01_JPRB, 0.241601E+01_JPRB, 0.242002E+01_JPRB, 0.242338E+01_JPRB &
+  &, 0.242622E+01_JPRB, 0.242842E+01_JPRB, 0.243004E+01_JPRB &
+  &, 0.243107E+01_JPRB, 0.243153E+01_JPRB, 0.243139E+01_JPRB, 0.243067E+01_JPRB &
+  &, 0.242939E+01_JPRB, 0.242755E+01_JPRB, 0.242513E+01_JPRB &
+  &, 0.242218E+01_JPRB, 0.241866E+01_JPRB, 0.241459E+01_JPRB, 0.240995E+01_JPRB &
+  &, 0.240488E+01_JPRB, 0.239922E+01_JPRB, 0.239303E+01_JPRB &
+  &, 0.238635E+01_JPRB, 0.237918E+01_JPRB, 0.237150E+01_JPRB, 0.236333E+01_JPRB &
+  &, 0.235467E+01_JPRB, 0.234558E+01_JPRB, 0.233587E+01_JPRB &
+  &, 0.232596E+01_JPRB, 0.231546E+01_JPRB, 0.230454E+01_JPRB, 0.229317E+01_JPRB &
+  &, 0.228140E+01_JPRB, 0.226923E+01_JPRB, 0.225664E+01_JPRB &
+  &, 0.224366E+01_JPRB, 0.223030E+01_JPRB, 0.221657E+01_JPRB, 0.220245E+01_JPRB &
+  &, 0.218800E+01_JPRB, 0.217321E+01_JPRB, 0.215806E+01_JPRB &
+  &, 0.214258E+01_JPRB, 0.212680E+01_JPRB, 0.211070E+01_JPRB, 0.209435E+01_JPRB &
+  &, 0.207765E+01_JPRB, 0.206071E+01_JPRB, 0.204351E+01_JPRB &
+  &, 0.202604E+01_JPRB, 0.200828E+01_JPRB, 0.199034E+01_JPRB, 0.197215E+01_JPRB &
+  &, 0.195375E+01_JPRB, 0.193517E+01_JPRB, 0.191632E+01_JPRB &
+  &, 0.189734E+01_JPRB, 0.187815E+01_JPRB, 0.185883E+01_JPRB, 0.183936E+01_JPRB &
+  &, 0.181970E+01_JPRB, 0.179989E+01_JPRB, 0.178000E+01_JPRB &
+  &, 0.175995E+01_JPRB, 0.173977E+01_JPRB, 0.171954E+01_JPRB, 0.169917E+01_JPRB &
+  &, 0.167875E+01_JPRB, 0.165830E+01_JPRB, 0.163772E+01_JPRB &
+  &, 0.161705E+01_JPRB, 0.159643E+01_JPRB, 0.157570E+01_JPRB, 0.155496E+01_JPRB &
+  &, 0.153421E+01_JPRB, 0.151343E+01_JPRB, 0.149264E+01_JPRB/)
+XCW( 874, :) = (/ &
+  &  0.111534E+01_JPRB, 0.114438E+01_JPRB, 0.117346E+01_JPRB, 0.120256E+01_JPRB &
+  &, 0.123168E+01_JPRB, 0.126079E+01_JPRB, 0.128988E+01_JPRB &
+  &, 0.131893E+01_JPRB, 0.134792E+01_JPRB, 0.137684E+01_JPRB, 0.140567E+01_JPRB &
+  &, 0.143439E+01_JPRB, 0.146299E+01_JPRB, 0.149144E+01_JPRB &
+  &, 0.151975E+01_JPRB, 0.154787E+01_JPRB, 0.157581E+01_JPRB, 0.160354E+01_JPRB &
+  &, 0.163105E+01_JPRB, 0.165831E+01_JPRB, 0.168532E+01_JPRB &
+  &, 0.171206E+01_JPRB, 0.173852E+01_JPRB, 0.176467E+01_JPRB, 0.179050E+01_JPRB &
+  &, 0.181600E+01_JPRB, 0.184115E+01_JPRB, 0.186594E+01_JPRB &
+  &, 0.189034E+01_JPRB, 0.191437E+01_JPRB, 0.193798E+01_JPRB, 0.196118E+01_JPRB &
+  &, 0.198395E+01_JPRB, 0.200627E+01_JPRB, 0.202814E+01_JPRB &
+  &, 0.204954E+01_JPRB, 0.207046E+01_JPRB, 0.209091E+01_JPRB, 0.211085E+01_JPRB &
+  &, 0.213027E+01_JPRB, 0.214918E+01_JPRB, 0.216757E+01_JPRB &
+  &, 0.218541E+01_JPRB, 0.220272E+01_JPRB, 0.221947E+01_JPRB, 0.223567E+01_JPRB &
+  &, 0.225130E+01_JPRB, 0.226636E+01_JPRB, 0.228084E+01_JPRB &
+  &, 0.229474E+01_JPRB, 0.230806E+01_JPRB, 0.232078E+01_JPRB, 0.233289E+01_JPRB &
+  &, 0.234445E+01_JPRB, 0.235537E+01_JPRB, 0.236570E+01_JPRB &
+  &, 0.237544E+01_JPRB, 0.238455E+01_JPRB, 0.239304E+01_JPRB, 0.240097E+01_JPRB &
+  &, 0.240826E+01_JPRB, 0.241496E+01_JPRB, 0.242104E+01_JPRB &
+  &, 0.242650E+01_JPRB, 0.243137E+01_JPRB, 0.243564E+01_JPRB, 0.243931E+01_JPRB &
+  &, 0.244237E+01_JPRB, 0.244484E+01_JPRB, 0.244671E+01_JPRB &
+  &, 0.244798E+01_JPRB, 0.244869E+01_JPRB, 0.244880E+01_JPRB, 0.244833E+01_JPRB &
+  &, 0.244730E+01_JPRB, 0.244568E+01_JPRB, 0.244351E+01_JPRB &
+  &, 0.244079E+01_JPRB, 0.243752E+01_JPRB, 0.243367E+01_JPRB, 0.242930E+01_JPRB &
+  &, 0.242439E+01_JPRB, 0.241893E+01_JPRB, 0.241301E+01_JPRB &
+  &, 0.240654E+01_JPRB, 0.239958E+01_JPRB, 0.239211E+01_JPRB, 0.238412E+01_JPRB &
+  &, 0.237570E+01_JPRB, 0.236677E+01_JPRB, 0.235736E+01_JPRB &
+  &, 0.234752E+01_JPRB, 0.233721E+01_JPRB, 0.232649E+01_JPRB, 0.231531E+01_JPRB &
+  &, 0.230369E+01_JPRB, 0.229167E+01_JPRB, 0.227925E+01_JPRB &
+  &, 0.226644E+01_JPRB, 0.225323E+01_JPRB, 0.223963E+01_JPRB, 0.222567E+01_JPRB &
+  &, 0.221134E+01_JPRB, 0.219666E+01_JPRB, 0.218166E+01_JPRB &
+  &, 0.216633E+01_JPRB, 0.215065E+01_JPRB, 0.213468E+01_JPRB, 0.211838E+01_JPRB &
+  &, 0.210180E+01_JPRB, 0.208498E+01_JPRB, 0.206786E+01_JPRB &
+  &, 0.205045E+01_JPRB, 0.203279E+01_JPRB, 0.201495E+01_JPRB, 0.199681E+01_JPRB &
+  &, 0.197845E+01_JPRB, 0.195990E+01_JPRB, 0.194118E+01_JPRB &
+  &, 0.192222E+01_JPRB, 0.190309E+01_JPRB, 0.188378E+01_JPRB, 0.186430E+01_JPRB &
+  &, 0.184469E+01_JPRB, 0.182492E+01_JPRB, 0.180501E+01_JPRB &
+  &, 0.178498E+01_JPRB, 0.176482E+01_JPRB, 0.174454E+01_JPRB, 0.172418E+01_JPRB &
+  &, 0.170375E+01_JPRB, 0.168323E+01_JPRB, 0.166264E+01_JPRB &
+  &, 0.164200E+01_JPRB, 0.162129E+01_JPRB, 0.160052E+01_JPRB, 0.157972E+01_JPRB &
+  &, 0.155892E+01_JPRB, 0.153808E+01_JPRB, 0.151721E+01_JPRB/)
+XCW( 875, :) = (/ &
+  &  0.111587E+01_JPRB, 0.114504E+01_JPRB, 0.117426E+01_JPRB, 0.120352E+01_JPRB &
+  &, 0.123279E+01_JPRB, 0.126206E+01_JPRB, 0.129131E+01_JPRB &
+  &, 0.132053E+01_JPRB, 0.134969E+01_JPRB, 0.137879E+01_JPRB, 0.140780E+01_JPRB &
+  &, 0.143670E+01_JPRB, 0.146549E+01_JPRB, 0.149414E+01_JPRB &
+  &, 0.152263E+01_JPRB, 0.155096E+01_JPRB, 0.157910E+01_JPRB, 0.160703E+01_JPRB &
+  &, 0.163475E+01_JPRB, 0.166223E+01_JPRB, 0.168945E+01_JPRB &
+  &, 0.171641E+01_JPRB, 0.174309E+01_JPRB, 0.176946E+01_JPRB, 0.179552E+01_JPRB &
+  &, 0.182125E+01_JPRB, 0.184664E+01_JPRB, 0.187166E+01_JPRB &
+  &, 0.189631E+01_JPRB, 0.192057E+01_JPRB, 0.194444E+01_JPRB, 0.196788E+01_JPRB &
+  &, 0.199090E+01_JPRB, 0.201348E+01_JPRB, 0.203560E+01_JPRB &
+  &, 0.205725E+01_JPRB, 0.207844E+01_JPRB, 0.209913E+01_JPRB, 0.211933E+01_JPRB &
+  &, 0.213902E+01_JPRB, 0.215820E+01_JPRB, 0.217685E+01_JPRB &
+  &, 0.219496E+01_JPRB, 0.221253E+01_JPRB, 0.222956E+01_JPRB, 0.224602E+01_JPRB &
+  &, 0.226192E+01_JPRB, 0.227725E+01_JPRB, 0.229201E+01_JPRB &
+  &, 0.230618E+01_JPRB, 0.231977E+01_JPRB, 0.233277E+01_JPRB, 0.234517E+01_JPRB &
+  &, 0.235698E+01_JPRB, 0.236818E+01_JPRB, 0.237878E+01_JPRB &
+  &, 0.238879E+01_JPRB, 0.239819E+01_JPRB, 0.240696E+01_JPRB, 0.241514E+01_JPRB &
+  &, 0.242270E+01_JPRB, 0.242966E+01_JPRB, 0.243602E+01_JPRB &
+  &, 0.244175E+01_JPRB, 0.244690E+01_JPRB, 0.245141E+01_JPRB, 0.245535E+01_JPRB &
+  &, 0.245867E+01_JPRB, 0.246140E+01_JPRB, 0.246354E+01_JPRB &
+  &, 0.246506E+01_JPRB, 0.246602E+01_JPRB, 0.246639E+01_JPRB, 0.246617E+01_JPRB &
+  &, 0.246539E+01_JPRB, 0.246402E+01_JPRB, 0.246209E+01_JPRB &
+  &, 0.245959E+01_JPRB, 0.245654E+01_JPRB, 0.245297E+01_JPRB, 0.244883E+01_JPRB &
+  &, 0.244415E+01_JPRB, 0.243893E+01_JPRB, 0.243320E+01_JPRB &
+  &, 0.242696E+01_JPRB, 0.242015E+01_JPRB, 0.241292E+01_JPRB, 0.240518E+01_JPRB &
+  &, 0.239693E+01_JPRB, 0.238821E+01_JPRB, 0.237901E+01_JPRB &
+  &, 0.236934E+01_JPRB, 0.235923E+01_JPRB, 0.234867E+01_JPRB, 0.233768E+01_JPRB &
+  &, 0.232625E+01_JPRB, 0.231441E+01_JPRB, 0.230215E+01_JPRB &
+  &, 0.228948E+01_JPRB, 0.227641E+01_JPRB, 0.226298E+01_JPRB, 0.224911E+01_JPRB &
+  &, 0.223498E+01_JPRB, 0.222046E+01_JPRB, 0.220557E+01_JPRB &
+  &, 0.219035E+01_JPRB, 0.217482E+01_JPRB, 0.215895E+01_JPRB, 0.214278E+01_JPRB &
+  &, 0.212630E+01_JPRB, 0.210956E+01_JPRB, 0.209251E+01_JPRB &
+  &, 0.207522E+01_JPRB, 0.205767E+01_JPRB, 0.203984E+01_JPRB, 0.202180E+01_JPRB &
+  &, 0.200354E+01_JPRB, 0.198502E+01_JPRB, 0.196633E+01_JPRB &
+  &, 0.194745E+01_JPRB, 0.192834E+01_JPRB, 0.190909E+01_JPRB, 0.188962E+01_JPRB &
+  &, 0.187005E+01_JPRB, 0.185027E+01_JPRB, 0.183039E+01_JPRB &
+  &, 0.181034E+01_JPRB, 0.179020E+01_JPRB, 0.176994E+01_JPRB, 0.174959E+01_JPRB &
+  &, 0.172916E+01_JPRB, 0.170857E+01_JPRB, 0.168797E+01_JPRB &
+  &, 0.166732E+01_JPRB, 0.164657E+01_JPRB, 0.162577E+01_JPRB, 0.160493E+01_JPRB &
+  &, 0.158408E+01_JPRB, 0.156318E+01_JPRB, 0.154225E+01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART125',1,ZHOOK_HANDLE)
+END SUBROUTINE PART125
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART126
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART126',0,ZHOOK_HANDLE)
+
+XCW( 876, :) = (/ &
+  &  0.111639E+01_JPRB, 0.114571E+01_JPRB, 0.117508E+01_JPRB, 0.120448E+01_JPRB &
+  &, 0.123391E+01_JPRB, 0.126334E+01_JPRB, 0.129276E+01_JPRB &
+  &, 0.132214E+01_JPRB, 0.135148E+01_JPRB, 0.138075E+01_JPRB, 0.140994E+01_JPRB &
+  &, 0.143903E+01_JPRB, 0.146800E+01_JPRB, 0.149685E+01_JPRB &
+  &, 0.152554E+01_JPRB, 0.155406E+01_JPRB, 0.158240E+01_JPRB, 0.161055E+01_JPRB &
+  &, 0.163847E+01_JPRB, 0.166617E+01_JPRB, 0.169361E+01_JPRB &
+  &, 0.172079E+01_JPRB, 0.174769E+01_JPRB, 0.177429E+01_JPRB, 0.180059E+01_JPRB &
+  &, 0.182655E+01_JPRB, 0.185217E+01_JPRB, 0.187742E+01_JPRB &
+  &, 0.190232E+01_JPRB, 0.192683E+01_JPRB, 0.195094E+01_JPRB, 0.197463E+01_JPRB &
+  &, 0.199790E+01_JPRB, 0.202073E+01_JPRB, 0.204311E+01_JPRB &
+  &, 0.206503E+01_JPRB, 0.208647E+01_JPRB, 0.210742E+01_JPRB, 0.212789E+01_JPRB &
+  &, 0.214785E+01_JPRB, 0.216728E+01_JPRB, 0.218620E+01_JPRB &
+  &, 0.220458E+01_JPRB, 0.222243E+01_JPRB, 0.223972E+01_JPRB, 0.225647E+01_JPRB &
+  &, 0.227264E+01_JPRB, 0.228824E+01_JPRB, 0.230327E+01_JPRB &
+  &, 0.231772E+01_JPRB, 0.233159E+01_JPRB, 0.234487E+01_JPRB, 0.235755E+01_JPRB &
+  &, 0.236962E+01_JPRB, 0.238111E+01_JPRB, 0.239199E+01_JPRB &
+  &, 0.240226E+01_JPRB, 0.241193E+01_JPRB, 0.242100E+01_JPRB, 0.242945E+01_JPRB &
+  &, 0.243729E+01_JPRB, 0.244452E+01_JPRB, 0.245114E+01_JPRB &
+  &, 0.245715E+01_JPRB, 0.246255E+01_JPRB, 0.246735E+01_JPRB, 0.247154E+01_JPRB &
+  &, 0.247514E+01_JPRB, 0.247814E+01_JPRB, 0.248053E+01_JPRB &
+  &, 0.248231E+01_JPRB, 0.248353E+01_JPRB, 0.248415E+01_JPRB, 0.248418E+01_JPRB &
+  &, 0.248366E+01_JPRB, 0.248253E+01_JPRB, 0.248085E+01_JPRB &
+  &, 0.247861E+01_JPRB, 0.247582E+01_JPRB, 0.247245E+01_JPRB, 0.246854E+01_JPRB &
+  &, 0.246411E+01_JPRB, 0.245912E+01_JPRB, 0.245362E+01_JPRB &
+  &, 0.244759E+01_JPRB, 0.244104E+01_JPRB, 0.243400E+01_JPRB, 0.242644E+01_JPRB &
+  &, 0.241841E+01_JPRB, 0.240990E+01_JPRB, 0.240091E+01_JPRB &
+  &, 0.239144E+01_JPRB, 0.238150E+01_JPRB, 0.237114E+01_JPRB, 0.236032E+01_JPRB &
+  &, 0.234909E+01_JPRB, 0.233740E+01_JPRB, 0.232529E+01_JPRB &
+  &, 0.231281E+01_JPRB, 0.229991E+01_JPRB, 0.228662E+01_JPRB, 0.227296E+01_JPRB &
+  &, 0.225892E+01_JPRB, 0.224453E+01_JPRB, 0.222977E+01_JPRB &
+  &, 0.221470E+01_JPRB, 0.219927E+01_JPRB, 0.218351E+01_JPRB, 0.216744E+01_JPRB &
+  &, 0.215109E+01_JPRB, 0.213444E+01_JPRB, 0.211752E+01_JPRB &
+  &, 0.210030E+01_JPRB, 0.208282E+01_JPRB, 0.206510E+01_JPRB, 0.204717E+01_JPRB &
+  &, 0.202895E+01_JPRB, 0.201053E+01_JPRB, 0.199188E+01_JPRB &
+  &, 0.197302E+01_JPRB, 0.195399E+01_JPRB, 0.193476E+01_JPRB, 0.191535E+01_JPRB &
+  &, 0.189578E+01_JPRB, 0.187605E+01_JPRB, 0.185616E+01_JPRB &
+  &, 0.183615E+01_JPRB, 0.181604E+01_JPRB, 0.179580E+01_JPRB, 0.177540E+01_JPRB &
+  &, 0.175492E+01_JPRB, 0.173439E+01_JPRB, 0.171372E+01_JPRB &
+  &, 0.169293E+01_JPRB, 0.167223E+01_JPRB, 0.165140E+01_JPRB, 0.163052E+01_JPRB &
+  &, 0.160962E+01_JPRB, 0.158867E+01_JPRB, 0.156768E+01_JPRB/)
+XCW( 877, :) = (/ &
+  &  0.111692E+01_JPRB, 0.114638E+01_JPRB, 0.117590E+01_JPRB, 0.120546E+01_JPRB &
+  &, 0.123504E+01_JPRB, 0.126463E+01_JPRB, 0.129421E+01_JPRB &
+  &, 0.132377E+01_JPRB, 0.135328E+01_JPRB, 0.138273E+01_JPRB, 0.141210E+01_JPRB &
+  &, 0.144137E+01_JPRB, 0.147054E+01_JPRB, 0.149957E+01_JPRB &
+  &, 0.152846E+01_JPRB, 0.155719E+01_JPRB, 0.158574E+01_JPRB, 0.161409E+01_JPRB &
+  &, 0.164223E+01_JPRB, 0.167014E+01_JPRB, 0.169780E+01_JPRB &
+  &, 0.172521E+01_JPRB, 0.175233E+01_JPRB, 0.177916E+01_JPRB, 0.180569E+01_JPRB &
+  &, 0.183188E+01_JPRB, 0.185774E+01_JPRB, 0.188325E+01_JPRB &
+  &, 0.190838E+01_JPRB, 0.193314E+01_JPRB, 0.195749E+01_JPRB, 0.198144E+01_JPRB &
+  &, 0.200496E+01_JPRB, 0.202805E+01_JPRB, 0.205068E+01_JPRB &
+  &, 0.207286E+01_JPRB, 0.209456E+01_JPRB, 0.211579E+01_JPRB, 0.213651E+01_JPRB &
+  &, 0.215674E+01_JPRB, 0.217645E+01_JPRB, 0.219564E+01_JPRB &
+  &, 0.221430E+01_JPRB, 0.223241E+01_JPRB, 0.224999E+01_JPRB, 0.226699E+01_JPRB &
+  &, 0.228345E+01_JPRB, 0.229934E+01_JPRB, 0.231464E+01_JPRB &
+  &, 0.232936E+01_JPRB, 0.234351E+01_JPRB, 0.235707E+01_JPRB, 0.237002E+01_JPRB &
+  &, 0.238237E+01_JPRB, 0.239416E+01_JPRB, 0.240531E+01_JPRB &
+  &, 0.241587E+01_JPRB, 0.242581E+01_JPRB, 0.243516E+01_JPRB, 0.244389E+01_JPRB &
+  &, 0.245200E+01_JPRB, 0.245950E+01_JPRB, 0.246641E+01_JPRB &
+  &, 0.247269E+01_JPRB, 0.247837E+01_JPRB, 0.248345E+01_JPRB, 0.248791E+01_JPRB &
+  &, 0.249177E+01_JPRB, 0.249502E+01_JPRB, 0.249769E+01_JPRB &
+  &, 0.249975E+01_JPRB, 0.250119E+01_JPRB, 0.250211E+01_JPRB, 0.250240E+01_JPRB &
+  &, 0.250212E+01_JPRB, 0.250125E+01_JPRB, 0.249983E+01_JPRB &
+  &, 0.249782E+01_JPRB, 0.249527E+01_JPRB, 0.249216E+01_JPRB, 0.248848E+01_JPRB &
+  &, 0.248428E+01_JPRB, 0.247952E+01_JPRB, 0.247425E+01_JPRB &
+  &, 0.246845E+01_JPRB, 0.246212E+01_JPRB, 0.245530E+01_JPRB, 0.244796E+01_JPRB &
+  &, 0.244015E+01_JPRB, 0.243183E+01_JPRB, 0.242305E+01_JPRB &
+  &, 0.241377E+01_JPRB, 0.240404E+01_JPRB, 0.239385E+01_JPRB, 0.238322E+01_JPRB &
+  &, 0.237216E+01_JPRB, 0.236067E+01_JPRB, 0.234875E+01_JPRB &
+  &, 0.233642E+01_JPRB, 0.232367E+01_JPRB, 0.231056E+01_JPRB, 0.229704E+01_JPRB &
+  &, 0.228314E+01_JPRB, 0.226891E+01_JPRB, 0.225428E+01_JPRB &
+  &, 0.223933E+01_JPRB, 0.222406E+01_JPRB, 0.220845E+01_JPRB, 0.219248E+01_JPRB &
+  &, 0.217623E+01_JPRB, 0.215971E+01_JPRB, 0.214288E+01_JPRB &
+  &, 0.212574E+01_JPRB, 0.210838E+01_JPRB, 0.209073E+01_JPRB, 0.207286E+01_JPRB &
+  &, 0.205470E+01_JPRB, 0.203633E+01_JPRB, 0.201777E+01_JPRB &
+  &, 0.199900E+01_JPRB, 0.197999E+01_JPRB, 0.196078E+01_JPRB, 0.194144E+01_JPRB &
+  &, 0.192189E+01_JPRB, 0.190220E+01_JPRB, 0.188236E+01_JPRB &
+  &, 0.186234E+01_JPRB, 0.184226E+01_JPRB, 0.182199E+01_JPRB, 0.180161E+01_JPRB &
+  &, 0.178115E+01_JPRB, 0.176057E+01_JPRB, 0.173990E+01_JPRB &
+  &, 0.171916E+01_JPRB, 0.169838E+01_JPRB, 0.167752E+01_JPRB, 0.165655E+01_JPRB &
+  &, 0.163562E+01_JPRB, 0.161461E+01_JPRB, 0.159357E+01_JPRB/)
+XCW( 878, :) = (/ &
+  &  0.111745E+01_JPRB, 0.114705E+01_JPRB, 0.117672E+01_JPRB, 0.120643E+01_JPRB &
+  &, 0.123618E+01_JPRB, 0.126593E+01_JPRB, 0.129568E+01_JPRB &
+  &, 0.132540E+01_JPRB, 0.135509E+01_JPRB, 0.138472E+01_JPRB, 0.141427E+01_JPRB &
+  &, 0.144373E+01_JPRB, 0.147309E+01_JPRB, 0.150232E+01_JPRB &
+  &, 0.153141E+01_JPRB, 0.156034E+01_JPRB, 0.158909E+01_JPRB, 0.161766E+01_JPRB &
+  &, 0.164601E+01_JPRB, 0.167414E+01_JPRB, 0.170202E+01_JPRB &
+  &, 0.172965E+01_JPRB, 0.175700E+01_JPRB, 0.178407E+01_JPRB, 0.181082E+01_JPRB &
+  &, 0.183726E+01_JPRB, 0.186336E+01_JPRB, 0.188911E+01_JPRB &
+  &, 0.191449E+01_JPRB, 0.193949E+01_JPRB, 0.196410E+01_JPRB, 0.198830E+01_JPRB &
+  &, 0.201208E+01_JPRB, 0.203542E+01_JPRB, 0.205832E+01_JPRB &
+  &, 0.208076E+01_JPRB, 0.210273E+01_JPRB, 0.212422E+01_JPRB, 0.214521E+01_JPRB &
+  &, 0.216571E+01_JPRB, 0.218569E+01_JPRB, 0.220515E+01_JPRB &
+  &, 0.222409E+01_JPRB, 0.224248E+01_JPRB, 0.226033E+01_JPRB, 0.227762E+01_JPRB &
+  &, 0.229435E+01_JPRB, 0.231052E+01_JPRB, 0.232611E+01_JPRB &
+  &, 0.234111E+01_JPRB, 0.235554E+01_JPRB, 0.236938E+01_JPRB, 0.238261E+01_JPRB &
+  &, 0.239527E+01_JPRB, 0.240731E+01_JPRB, 0.241876E+01_JPRB &
+  &, 0.242960E+01_JPRB, 0.243983E+01_JPRB, 0.244945E+01_JPRB, 0.245846E+01_JPRB &
+  &, 0.246686E+01_JPRB, 0.247464E+01_JPRB, 0.248181E+01_JPRB &
+  &, 0.248838E+01_JPRB, 0.249434E+01_JPRB, 0.249969E+01_JPRB, 0.250443E+01_JPRB &
+  &, 0.250855E+01_JPRB, 0.251208E+01_JPRB, 0.251502E+01_JPRB &
+  &, 0.251734E+01_JPRB, 0.251908E+01_JPRB, 0.252022E+01_JPRB, 0.252078E+01_JPRB &
+  &, 0.252076E+01_JPRB, 0.252015E+01_JPRB, 0.251897E+01_JPRB &
+  &, 0.251723E+01_JPRB, 0.251491E+01_JPRB, 0.251207E+01_JPRB, 0.250863E+01_JPRB &
+  &, 0.250466E+01_JPRB, 0.250016E+01_JPRB, 0.249507E+01_JPRB &
+  &, 0.248953E+01_JPRB, 0.248346E+01_JPRB, 0.247684E+01_JPRB, 0.246973E+01_JPRB &
+  &, 0.246211E+01_JPRB, 0.245401E+01_JPRB, 0.244544E+01_JPRB &
+  &, 0.243638E+01_JPRB, 0.242686E+01_JPRB, 0.241685E+01_JPRB, 0.240643E+01_JPRB &
+  &, 0.239553E+01_JPRB, 0.238421E+01_JPRB, 0.237249E+01_JPRB &
+  &, 0.236032E+01_JPRB, 0.234776E+01_JPRB, 0.233480E+01_JPRB, 0.232142E+01_JPRB &
+  &, 0.230770E+01_JPRB, 0.229361E+01_JPRB, 0.227914E+01_JPRB &
+  &, 0.226432E+01_JPRB, 0.224917E+01_JPRB, 0.223367E+01_JPRB, 0.221786E+01_JPRB &
+  &, 0.220171E+01_JPRB, 0.218529E+01_JPRB, 0.216855E+01_JPRB &
+  &, 0.215154E+01_JPRB, 0.213426E+01_JPRB, 0.211636E+01_JPRB, 0.209888E+01_JPRB &
+  &, 0.208083E+01_JPRB, 0.206256E+01_JPRB, 0.204405E+01_JPRB &
+  &, 0.202532E+01_JPRB, 0.200640E+01_JPRB, 0.198727E+01_JPRB, 0.196795E+01_JPRB &
+  &, 0.194841E+01_JPRB, 0.192873E+01_JPRB, 0.190895E+01_JPRB &
+  &, 0.188897E+01_JPRB, 0.186887E+01_JPRB, 0.184858E+01_JPRB, 0.182823E+01_JPRB &
+  &, 0.180778E+01_JPRB, 0.178716E+01_JPRB, 0.176649E+01_JPRB &
+  &, 0.174575E+01_JPRB, 0.172489E+01_JPRB, 0.170402E+01_JPRB, 0.168309E+01_JPRB &
+  &, 0.166205E+01_JPRB, 0.164101E+01_JPRB, 0.161992E+01_JPRB/)
+XCW( 879, :) = (/ &
+  &  0.111798E+01_JPRB, 0.114773E+01_JPRB, 0.117755E+01_JPRB, 0.120742E+01_JPRB &
+  &, 0.123732E+01_JPRB, 0.126723E+01_JPRB, 0.129715E+01_JPRB &
+  &, 0.132705E+01_JPRB, 0.135691E+01_JPRB, 0.138672E+01_JPRB, 0.141646E+01_JPRB &
+  &, 0.144611E+01_JPRB, 0.147566E+01_JPRB, 0.150509E+01_JPRB &
+  &, 0.153438E+01_JPRB, 0.156351E+01_JPRB, 0.159248E+01_JPRB, 0.162125E+01_JPRB &
+  &, 0.164982E+01_JPRB, 0.167816E+01_JPRB, 0.170628E+01_JPRB &
+  &, 0.173413E+01_JPRB, 0.176171E+01_JPRB, 0.178901E+01_JPRB, 0.181600E+01_JPRB &
+  &, 0.184268E+01_JPRB, 0.186902E+01_JPRB, 0.189501E+01_JPRB &
+  &, 0.192064E+01_JPRB, 0.194589E+01_JPRB, 0.197076E+01_JPRB, 0.199521E+01_JPRB &
+  &, 0.201925E+01_JPRB, 0.204286E+01_JPRB, 0.206602E+01_JPRB &
+  &, 0.208872E+01_JPRB, 0.211096E+01_JPRB, 0.213272E+01_JPRB, 0.215399E+01_JPRB &
+  &, 0.217476E+01_JPRB, 0.219501E+01_JPRB, 0.221475E+01_JPRB &
+  &, 0.223396E+01_JPRB, 0.225255E+01_JPRB, 0.227077E+01_JPRB, 0.228834E+01_JPRB &
+  &, 0.230535E+01_JPRB, 0.232180E+01_JPRB, 0.233768E+01_JPRB &
+  &, 0.235296E+01_JPRB, 0.236768E+01_JPRB, 0.238180E+01_JPRB, 0.239533E+01_JPRB &
+  &, 0.240826E+01_JPRB, 0.242060E+01_JPRB, 0.243233E+01_JPRB &
+  &, 0.244345E+01_JPRB, 0.245391E+01_JPRB, 0.246388E+01_JPRB, 0.247316E+01_JPRB &
+  &, 0.248185E+01_JPRB, 0.248990E+01_JPRB, 0.249738E+01_JPRB &
+  &, 0.250423E+01_JPRB, 0.251046E+01_JPRB, 0.251609E+01_JPRB, 0.252111E+01_JPRB &
+  &, 0.252551E+01_JPRB, 0.252933E+01_JPRB, 0.253253E+01_JPRB &
+  &, 0.253514E+01_JPRB, 0.253715E+01_JPRB, 0.253856E+01_JPRB, 0.253938E+01_JPRB &
+  &, 0.253961E+01_JPRB, 0.253927E+01_JPRB, 0.253836E+01_JPRB &
+  &, 0.253686E+01_JPRB, 0.253481E+01_JPRB, 0.253218E+01_JPRB, 0.252901E+01_JPRB &
+  &, 0.252528E+01_JPRB, 0.252102E+01_JPRB, 0.251619E+01_JPRB &
+  &, 0.251086E+01_JPRB, 0.250502E+01_JPRB, 0.249864E+01_JPRB, 0.249175E+01_JPRB &
+  &, 0.248436E+01_JPRB, 0.247646E+01_JPRB, 0.246809E+01_JPRB &
+  &, 0.245924E+01_JPRB, 0.244990E+01_JPRB, 0.244011E+01_JPRB, 0.242987E+01_JPRB &
+  &, 0.241918E+01_JPRB, 0.240807E+01_JPRB, 0.239651E+01_JPRB &
+  &, 0.238447E+01_JPRB, 0.237214E+01_JPRB, 0.235933E+01_JPRB, 0.234614E+01_JPRB &
+  &, 0.233256E+01_JPRB, 0.231861E+01_JPRB, 0.230428E+01_JPRB &
+  &, 0.228963E+01_JPRB, 0.227460E+01_JPRB, 0.225923E+01_JPRB, 0.224353E+01_JPRB &
+  &, 0.222753E+01_JPRB, 0.221122E+01_JPRB, 0.219461E+01_JPRB &
+  &, 0.217770E+01_JPRB, 0.216051E+01_JPRB, 0.214306E+01_JPRB, 0.212533E+01_JPRB &
+  &, 0.210734E+01_JPRB, 0.208913E+01_JPRB, 0.207073E+01_JPRB &
+  &, 0.205205E+01_JPRB, 0.203317E+01_JPRB, 0.201407E+01_JPRB, 0.199482E+01_JPRB &
+  &, 0.197536E+01_JPRB, 0.195564E+01_JPRB, 0.193591E+01_JPRB &
+  &, 0.191598E+01_JPRB, 0.189588E+01_JPRB, 0.187562E+01_JPRB, 0.185530E+01_JPRB &
+  &, 0.183483E+01_JPRB, 0.181422E+01_JPRB, 0.179356E+01_JPRB &
+  &, 0.177276E+01_JPRB, 0.175190E+01_JPRB, 0.173096E+01_JPRB, 0.171000E+01_JPRB &
+  &, 0.168894E+01_JPRB, 0.166787E+01_JPRB, 0.164673E+01_JPRB/)
+XCW( 880, :) = (/ &
+  &  0.111852E+01_JPRB, 0.114841E+01_JPRB, 0.117838E+01_JPRB, 0.120841E+01_JPRB &
+  &, 0.123847E+01_JPRB, 0.126855E+01_JPRB, 0.129863E+01_JPRB &
+  &, 0.132870E+01_JPRB, 0.135874E+01_JPRB, 0.138873E+01_JPRB, 0.141866E+01_JPRB &
+  &, 0.144850E+01_JPRB, 0.147825E+01_JPRB, 0.150787E+01_JPRB &
+  &, 0.153737E+01_JPRB, 0.156671E+01_JPRB, 0.159588E+01_JPRB, 0.162487E+01_JPRB &
+  &, 0.165366E+01_JPRB, 0.168223E+01_JPRB, 0.171056E+01_JPRB &
+  &, 0.173864E+01_JPRB, 0.176646E+01_JPRB, 0.179399E+01_JPRB, 0.182122E+01_JPRB &
+  &, 0.184814E+01_JPRB, 0.187472E+01_JPRB, 0.190096E+01_JPRB &
+  &, 0.192684E+01_JPRB, 0.195235E+01_JPRB, 0.197747E+01_JPRB, 0.200218E+01_JPRB &
+  &, 0.202648E+01_JPRB, 0.205035E+01_JPRB, 0.207378E+01_JPRB &
+  &, 0.209675E+01_JPRB, 0.211925E+01_JPRB, 0.214129E+01_JPRB, 0.216283E+01_JPRB &
+  &, 0.218388E+01_JPRB, 0.220441E+01_JPRB, 0.222443E+01_JPRB &
+  &, 0.224392E+01_JPRB, 0.226288E+01_JPRB, 0.228128E+01_JPRB, 0.229914E+01_JPRB &
+  &, 0.231644E+01_JPRB, 0.233318E+01_JPRB, 0.234934E+01_JPRB &
+  &, 0.236492E+01_JPRB, 0.237993E+01_JPRB, 0.239434E+01_JPRB, 0.240816E+01_JPRB &
+  &, 0.242138E+01_JPRB, 0.243400E+01_JPRB, 0.244602E+01_JPRB &
+  &, 0.245743E+01_JPRB, 0.246825E+01_JPRB, 0.247843E+01_JPRB, 0.248802E+01_JPRB &
+  &, 0.249699E+01_JPRB, 0.250535E+01_JPRB, 0.251309E+01_JPRB &
+  &, 0.252023E+01_JPRB, 0.252675E+01_JPRB, 0.253266E+01_JPRB, 0.253797E+01_JPRB &
+  &, 0.254265E+01_JPRB, 0.254674E+01_JPRB, 0.255020E+01_JPRB &
+  &, 0.255309E+01_JPRB, 0.255538E+01_JPRB, 0.255707E+01_JPRB, 0.255816E+01_JPRB &
+  &, 0.255866E+01_JPRB, 0.255857E+01_JPRB, 0.255793E+01_JPRB &
+  &, 0.255593E+01_JPRB, 0.255488E+01_JPRB, 0.255252E+01_JPRB, 0.254959E+01_JPRB &
+  &, 0.254611E+01_JPRB, 0.254210E+01_JPRB, 0.253753E+01_JPRB &
+  &, 0.253244E+01_JPRB, 0.252681E+01_JPRB, 0.252066E+01_JPRB, 0.251402E+01_JPRB &
+  &, 0.250683E+01_JPRB, 0.249918E+01_JPRB, 0.249101E+01_JPRB &
+  &, 0.248238E+01_JPRB, 0.247302E+01_JPRB, 0.246367E+01_JPRB, 0.245361E+01_JPRB &
+  &, 0.244314E+01_JPRB, 0.243220E+01_JPRB, 0.242081E+01_JPRB &
+  &, 0.240901E+01_JPRB, 0.239681E+01_JPRB, 0.238416E+01_JPRB, 0.237116E+01_JPRB &
+  &, 0.235773E+01_JPRB, 0.234393E+01_JPRB, 0.232978E+01_JPRB &
+  &, 0.231526E+01_JPRB, 0.230037E+01_JPRB, 0.228516E+01_JPRB, 0.226958E+01_JPRB &
+  &, 0.225370E+01_JPRB, 0.223749E+01_JPRB, 0.222099E+01_JPRB &
+  &, 0.220422E+01_JPRB, 0.218712E+01_JPRB, 0.216975E+01_JPRB, 0.215215E+01_JPRB &
+  &, 0.213424E+01_JPRB, 0.211609E+01_JPRB, 0.209775E+01_JPRB &
+  &, 0.207917E+01_JPRB, 0.206034E+01_JPRB, 0.204133E+01_JPRB, 0.202211E+01_JPRB &
+  &, 0.200267E+01_JPRB, 0.198308E+01_JPRB, 0.196331E+01_JPRB &
+  &, 0.194338E+01_JPRB, 0.192333E+01_JPRB, 0.190312E+01_JPRB, 0.188278E+01_JPRB &
+  &, 0.186228E+01_JPRB, 0.184169E+01_JPRB, 0.182099E+01_JPRB &
+  &, 0.180020E+01_JPRB, 0.177934E+01_JPRB, 0.175839E+01_JPRB, 0.173736E+01_JPRB &
+  &, 0.171628E+01_JPRB, 0.169511E+01_JPRB, 0.167394E+01_JPRB/)
+XCW( 881, :) = (/ &
+  &  0.111906E+01_JPRB, 0.114910E+01_JPRB, 0.117922E+01_JPRB, 0.120940E+01_JPRB &
+  &, 0.123962E+01_JPRB, 0.126987E+01_JPRB, 0.130013E+01_JPRB &
+  &, 0.133037E+01_JPRB, 0.136059E+01_JPRB, 0.139076E+01_JPRB, 0.142088E+01_JPRB &
+  &, 0.145091E+01_JPRB, 0.148085E+01_JPRB, 0.151068E+01_JPRB &
+  &, 0.154037E+01_JPRB, 0.156992E+01_JPRB, 0.159931E+01_JPRB, 0.162851E+01_JPRB &
+  &, 0.165752E+01_JPRB, 0.168631E+01_JPRB, 0.171487E+01_JPRB &
+  &, 0.174319E+01_JPRB, 0.177123E+01_JPRB, 0.179900E+01_JPRB, 0.182648E+01_JPRB &
+  &, 0.185363E+01_JPRB, 0.188047E+01_JPRB, 0.190696E+01_JPRB &
+  &, 0.193309E+01_JPRB, 0.195886E+01_JPRB, 0.198423E+01_JPRB, 0.200921E+01_JPRB &
+  &, 0.203377E+01_JPRB, 0.205791E+01_JPRB, 0.208160E+01_JPRB &
+  &, 0.210485E+01_JPRB, 0.212763E+01_JPRB, 0.214993E+01_JPRB, 0.217175E+01_JPRB &
+  &, 0.219308E+01_JPRB, 0.221389E+01_JPRB, 0.223419E+01_JPRB &
+  &, 0.225397E+01_JPRB, 0.227321E+01_JPRB, 0.229191E+01_JPRB, 0.231005E+01_JPRB &
+  &, 0.232762E+01_JPRB, 0.234466E+01_JPRB, 0.236111E+01_JPRB &
+  &, 0.237699E+01_JPRB, 0.239228E+01_JPRB, 0.240699E+01_JPRB, 0.242110E+01_JPRB &
+  &, 0.243462E+01_JPRB, 0.244754E+01_JPRB, 0.245984E+01_JPRB &
+  &, 0.247155E+01_JPRB, 0.248265E+01_JPRB, 0.249314E+01_JPRB, 0.250302E+01_JPRB &
+  &, 0.251228E+01_JPRB, 0.252094E+01_JPRB, 0.252896E+01_JPRB &
+  &, 0.253638E+01_JPRB, 0.254320E+01_JPRB, 0.254940E+01_JPRB, 0.255498E+01_JPRB &
+  &, 0.255995E+01_JPRB, 0.256433E+01_JPRB, 0.256809E+01_JPRB &
+  &, 0.257124E+01_JPRB, 0.257379E+01_JPRB, 0.257577E+01_JPRB, 0.257712E+01_JPRB &
+  &, 0.257790E+01_JPRB, 0.257806E+01_JPRB, 0.257770E+01_JPRB &
+  &, 0.257674E+01_JPRB, 0.257520E+01_JPRB, 0.257309E+01_JPRB, 0.257041E+01_JPRB &
+  &, 0.256721E+01_JPRB, 0.256344E+01_JPRB, 0.255912E+01_JPRB &
+  &, 0.255425E+01_JPRB, 0.254886E+01_JPRB, 0.254295E+01_JPRB, 0.253651E+01_JPRB &
+  &, 0.252959E+01_JPRB, 0.252215E+01_JPRB, 0.251421E+01_JPRB &
+  &, 0.250578E+01_JPRB, 0.249687E+01_JPRB, 0.248752E+01_JPRB, 0.247765E+01_JPRB &
+  &, 0.246736E+01_JPRB, 0.245664E+01_JPRB, 0.244543E+01_JPRB &
+  &, 0.243383E+01_JPRB, 0.242180E+01_JPRB, 0.240936E+01_JPRB, 0.239649E+01_JPRB &
+  &, 0.238325E+01_JPRB, 0.236960E+01_JPRB, 0.235559E+01_JPRB &
+  &, 0.234122E+01_JPRB, 0.232650E+01_JPRB, 0.231142E+01_JPRB, 0.229597E+01_JPRB &
+  &, 0.228025E+01_JPRB, 0.226416E+01_JPRB, 0.224777E+01_JPRB &
+  &, 0.223110E+01_JPRB, 0.221409E+01_JPRB, 0.219686E+01_JPRB, 0.217930E+01_JPRB &
+  &, 0.216151E+01_JPRB, 0.214349E+01_JPRB, 0.212521E+01_JPRB &
+  &, 0.210669E+01_JPRB, 0.208791E+01_JPRB, 0.206894E+01_JPRB, 0.204977E+01_JPRB &
+  &, 0.203041E+01_JPRB, 0.201090E+01_JPRB, 0.199114E+01_JPRB &
+  &, 0.197128E+01_JPRB, 0.195123E+01_JPRB, 0.193102E+01_JPRB, 0.191066E+01_JPRB &
+  &, 0.189019E+01_JPRB, 0.186964E+01_JPRB, 0.184896E+01_JPRB &
+  &, 0.182812E+01_JPRB, 0.180727E+01_JPRB, 0.178626E+01_JPRB, 0.176522E+01_JPRB &
+  &, 0.174406E+01_JPRB, 0.172293E+01_JPRB, 0.170167E+01_JPRB/)
+XCW( 882, :) = (/ &
+  &  0.111960E+01_JPRB, 0.114979E+01_JPRB, 0.118007E+01_JPRB, 0.121040E+01_JPRB &
+  &, 0.124079E+01_JPRB, 0.127120E+01_JPRB, 0.130163E+01_JPRB &
+  &, 0.133205E+01_JPRB, 0.136245E+01_JPRB, 0.139281E+01_JPRB, 0.142311E+01_JPRB &
+  &, 0.145334E+01_JPRB, 0.148347E+01_JPRB, 0.151350E+01_JPRB &
+  &, 0.154341E+01_JPRB, 0.157316E+01_JPRB, 0.160276E+01_JPRB, 0.163219E+01_JPRB &
+  &, 0.166141E+01_JPRB, 0.169043E+01_JPRB, 0.171922E+01_JPRB &
+  &, 0.174776E+01_JPRB, 0.177605E+01_JPRB, 0.180406E+01_JPRB, 0.183177E+01_JPRB &
+  &, 0.185918E+01_JPRB, 0.188626E+01_JPRB, 0.191301E+01_JPRB &
+  &, 0.193940E+01_JPRB, 0.196542E+01_JPRB, 0.199105E+01_JPRB, 0.201629E+01_JPRB &
+  &, 0.204112E+01_JPRB, 0.206553E+01_JPRB, 0.208949E+01_JPRB &
+  &, 0.211301E+01_JPRB, 0.213607E+01_JPRB, 0.215865E+01_JPRB, 0.218074E+01_JPRB &
+  &, 0.220236E+01_JPRB, 0.222345E+01_JPRB, 0.224404E+01_JPRB &
+  &, 0.226410E+01_JPRB, 0.228363E+01_JPRB, 0.230262E+01_JPRB, 0.232106E+01_JPRB &
+  &, 0.233894E+01_JPRB, 0.235625E+01_JPRB, 0.237300E+01_JPRB &
+  &, 0.238917E+01_JPRB, 0.240476E+01_JPRB, 0.241976E+01_JPRB, 0.243416E+01_JPRB &
+  &, 0.244797E+01_JPRB, 0.246119E+01_JPRB, 0.247380E+01_JPRB &
+  &, 0.248581E+01_JPRB, 0.249720E+01_JPRB, 0.250799E+01_JPRB, 0.251816E+01_JPRB &
+  &, 0.252771E+01_JPRB, 0.253667E+01_JPRB, 0.254499E+01_JPRB &
+  &, 0.255271E+01_JPRB, 0.255980E+01_JPRB, 0.256629E+01_JPRB, 0.257218E+01_JPRB &
+  &, 0.257745E+01_JPRB, 0.258210E+01_JPRB, 0.258614E+01_JPRB &
+  &, 0.258959E+01_JPRB, 0.259242E+01_JPRB, 0.259466E+01_JPRB, 0.259631E+01_JPRB &
+  &, 0.259736E+01_JPRB, 0.259783E+01_JPRB, 0.259770E+01_JPRB &
+  &, 0.259700E+01_JPRB, 0.259574E+01_JPRB, 0.259388E+01_JPRB, 0.259149E+01_JPRB &
+  &, 0.258851E+01_JPRB, 0.258499E+01_JPRB, 0.258093E+01_JPRB &
+  &, 0.257622E+01_JPRB, 0.257116E+01_JPRB, 0.256550E+01_JPRB, 0.255931E+01_JPRB &
+  &, 0.255260E+01_JPRB, 0.254540E+01_JPRB, 0.253769E+01_JPRB &
+  &, 0.252947E+01_JPRB, 0.252079E+01_JPRB, 0.251163E+01_JPRB, 0.250199E+01_JPRB &
+  &, 0.249189E+01_JPRB, 0.248136E+01_JPRB, 0.247037E+01_JPRB &
+  &, 0.245895E+01_JPRB, 0.244709E+01_JPRB, 0.243478E+01_JPRB, 0.242215E+01_JPRB &
+  &, 0.240907E+01_JPRB, 0.239561E+01_JPRB, 0.238176E+01_JPRB &
+  &, 0.236753E+01_JPRB, 0.235295E+01_JPRB, 0.233801E+01_JPRB, 0.232273E+01_JPRB &
+  &, 0.230710E+01_JPRB, 0.229117E+01_JPRB, 0.227489E+01_JPRB &
+  &, 0.225834E+01_JPRB, 0.224148E+01_JPRB, 0.222434E+01_JPRB, 0.220692E+01_JPRB &
+  &, 0.218922E+01_JPRB, 0.217122E+01_JPRB, 0.215301E+01_JPRB &
+  &, 0.213461E+01_JPRB, 0.211594E+01_JPRB, 0.209702E+01_JPRB, 0.207789E+01_JPRB &
+  &, 0.205852E+01_JPRB, 0.203909E+01_JPRB, 0.201941E+01_JPRB &
+  &, 0.199957E+01_JPRB, 0.197952E+01_JPRB, 0.195936E+01_JPRB, 0.193906E+01_JPRB &
+  &, 0.191858E+01_JPRB, 0.189800E+01_JPRB, 0.187735E+01_JPRB &
+  &, 0.185653E+01_JPRB, 0.183564E+01_JPRB, 0.181463E+01_JPRB, 0.179353E+01_JPRB &
+  &, 0.177236E+01_JPRB, 0.175115E+01_JPRB, 0.172992E+01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART126',1,ZHOOK_HANDLE)
+END SUBROUTINE PART126
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART127
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART127',0,ZHOOK_HANDLE)
+
+XCW( 883, :) = (/ &
+  &  0.112015E+01_JPRB, 0.115049E+01_JPRB, 0.118092E+01_JPRB, 0.121141E+01_JPRB &
+  &, 0.124196E+01_JPRB, 0.127254E+01_JPRB, 0.130314E+01_JPRB &
+  &, 0.133374E+01_JPRB, 0.136432E+01_JPRB, 0.139487E+01_JPRB, 0.142536E+01_JPRB &
+  &, 0.145578E+01_JPRB, 0.148612E+01_JPRB, 0.151635E+01_JPRB &
+  &, 0.154646E+01_JPRB, 0.157643E+01_JPRB, 0.160625E+01_JPRB, 0.163589E+01_JPRB &
+  &, 0.166534E+01_JPRB, 0.169458E+01_JPRB, 0.172360E+01_JPRB &
+  &, 0.175238E+01_JPRB, 0.178090E+01_JPRB, 0.180916E+01_JPRB, 0.183711E+01_JPRB &
+  &, 0.186477E+01_JPRB, 0.189210E+01_JPRB, 0.191910E+01_JPRB &
+  &, 0.194575E+01_JPRB, 0.197203E+01_JPRB, 0.199793E+01_JPRB, 0.202343E+01_JPRB &
+  &, 0.204853E+01_JPRB, 0.207321E+01_JPRB, 0.209745E+01_JPRB &
+  &, 0.212124E+01_JPRB, 0.214457E+01_JPRB, 0.216744E+01_JPRB, 0.218983E+01_JPRB &
+  &, 0.221171E+01_JPRB, 0.223311E+01_JPRB, 0.225397E+01_JPRB &
+  &, 0.227432E+01_JPRB, 0.229414E+01_JPRB, 0.231342E+01_JPRB, 0.233216E+01_JPRB &
+  &, 0.235034E+01_JPRB, 0.236795E+01_JPRB, 0.238498E+01_JPRB &
+  &, 0.240146E+01_JPRB, 0.241734E+01_JPRB, 0.243264E+01_JPRB, 0.244736E+01_JPRB &
+  &, 0.246147E+01_JPRB, 0.247498E+01_JPRB, 0.248789E+01_JPRB &
+  &, 0.250019E+01_JPRB, 0.251189E+01_JPRB, 0.252298E+01_JPRB, 0.253344E+01_JPRB &
+  &, 0.254331E+01_JPRB, 0.255255E+01_JPRB, 0.256118E+01_JPRB &
+  &, 0.256919E+01_JPRB, 0.257659E+01_JPRB, 0.258337E+01_JPRB, 0.258955E+01_JPRB &
+  &, 0.259510E+01_JPRB, 0.260005E+01_JPRB, 0.260439E+01_JPRB &
+  &, 0.260810E+01_JPRB, 0.261124E+01_JPRB, 0.261376E+01_JPRB, 0.261569E+01_JPRB &
+  &, 0.261703E+01_JPRB, 0.261776E+01_JPRB, 0.261792E+01_JPRB &
+  &, 0.261748E+01_JPRB, 0.261650E+01_JPRB, 0.261491E+01_JPRB, 0.261277E+01_JPRB &
+  &, 0.261008E+01_JPRB, 0.260679E+01_JPRB, 0.260298E+01_JPRB &
+  &, 0.259863E+01_JPRB, 0.259375E+01_JPRB, 0.258831E+01_JPRB, 0.258236E+01_JPRB &
+  &, 0.257590E+01_JPRB, 0.256892E+01_JPRB, 0.256142E+01_JPRB &
+  &, 0.255347E+01_JPRB, 0.254500E+01_JPRB, 0.253604E+01_JPRB, 0.252664E+01_JPRB &
+  &, 0.251673E+01_JPRB, 0.250642E+01_JPRB, 0.249562E+01_JPRB &
+  &, 0.248438E+01_JPRB, 0.247274E+01_JPRB, 0.246064E+01_JPRB, 0.244815E+01_JPRB &
+  &, 0.243524E+01_JPRB, 0.242194E+01_JPRB, 0.240828E+01_JPRB &
+  &, 0.239421E+01_JPRB, 0.237978E+01_JPRB, 0.236498E+01_JPRB, 0.234984E+01_JPRB &
+  &, 0.233437E+01_JPRB, 0.231857E+01_JPRB, 0.230242E+01_JPRB &
+  &, 0.228598E+01_JPRB, 0.226923E+01_JPRB, 0.225220E+01_JPRB, 0.223486E+01_JPRB &
+  &, 0.221725E+01_JPRB, 0.219939E+01_JPRB, 0.218131E+01_JPRB &
+  &, 0.216293E+01_JPRB, 0.214432E+01_JPRB, 0.212551E+01_JPRB, 0.210644E+01_JPRB &
+  &, 0.208721E+01_JPRB, 0.206776E+01_JPRB, 0.204811E+01_JPRB &
+  &, 0.202829E+01_JPRB, 0.200832E+01_JPRB, 0.198817E+01_JPRB, 0.196786E+01_JPRB &
+  &, 0.194743E+01_JPRB, 0.192689E+01_JPRB, 0.190615E+01_JPRB &
+  &, 0.188537E+01_JPRB, 0.186443E+01_JPRB, 0.184343E+01_JPRB, 0.182234E+01_JPRB &
+  &, 0.180117E+01_JPRB, 0.177995E+01_JPRB, 0.175864E+01_JPRB/)
+XCW( 884, :) = (/ &
+  &  0.112070E+01_JPRB, 0.115119E+01_JPRB, 0.118177E+01_JPRB, 0.121243E+01_JPRB &
+  &, 0.124314E+01_JPRB, 0.127389E+01_JPRB, 0.130466E+01_JPRB &
+  &, 0.133544E+01_JPRB, 0.136620E+01_JPRB, 0.139694E+01_JPRB, 0.142762E+01_JPRB &
+  &, 0.145824E+01_JPRB, 0.148878E+01_JPRB, 0.151922E+01_JPRB &
+  &, 0.154953E+01_JPRB, 0.157972E+01_JPRB, 0.160975E+01_JPRB, 0.163961E+01_JPRB &
+  &, 0.166929E+01_JPRB, 0.169876E+01_JPRB, 0.172802E+01_JPRB &
+  &, 0.175703E+01_JPRB, 0.178580E+01_JPRB, 0.181429E+01_JPRB, 0.184250E+01_JPRB &
+  &, 0.187040E+01_JPRB, 0.189799E+01_JPRB, 0.192524E+01_JPRB &
+  &, 0.195215E+01_JPRB, 0.197869E+01_JPRB, 0.200486E+01_JPRB, 0.203063E+01_JPRB &
+  &, 0.205600E+01_JPRB, 0.208095E+01_JPRB, 0.210547E+01_JPRB &
+  &, 0.212954E+01_JPRB, 0.215316E+01_JPRB, 0.217631E+01_JPRB, 0.219898E+01_JPRB &
+  &, 0.222116E+01_JPRB, 0.224283E+01_JPRB, 0.226400E+01_JPRB &
+  &, 0.228464E+01_JPRB, 0.230476E+01_JPRB, 0.232433E+01_JPRB, 0.234335E+01_JPRB &
+  &, 0.236183E+01_JPRB, 0.237975E+01_JPRB, 0.239709E+01_JPRB &
+  &, 0.241386E+01_JPRB, 0.243005E+01_JPRB, 0.244566E+01_JPRB, 0.246067E+01_JPRB &
+  &, 0.247509E+01_JPRB, 0.248890E+01_JPRB, 0.250212E+01_JPRB &
+  &, 0.251472E+01_JPRB, 0.252673E+01_JPRB, 0.253812E+01_JPRB, 0.254890E+01_JPRB &
+  &, 0.255905E+01_JPRB, 0.256859E+01_JPRB, 0.257752E+01_JPRB &
+  &, 0.258585E+01_JPRB, 0.259354E+01_JPRB, 0.260062E+01_JPRB, 0.260708E+01_JPRB &
+  &, 0.261295E+01_JPRB, 0.261819E+01_JPRB, 0.262281E+01_JPRB &
+  &, 0.262683E+01_JPRB, 0.263025E+01_JPRB, 0.263306E+01_JPRB, 0.263528E+01_JPRB &
+  &, 0.263689E+01_JPRB, 0.263793E+01_JPRB, 0.263835E+01_JPRB &
+  &, 0.263821E+01_JPRB, 0.263749E+01_JPRB, 0.263616E+01_JPRB, 0.263428E+01_JPRB &
+  &, 0.263185E+01_JPRB, 0.262885E+01_JPRB, 0.262530E+01_JPRB &
+  &, 0.262077E+01_JPRB, 0.261656E+01_JPRB, 0.261138E+01_JPRB, 0.260569E+01_JPRB &
+  &, 0.259948E+01_JPRB, 0.259271E+01_JPRB, 0.258546E+01_JPRB &
+  &, 0.257773E+01_JPRB, 0.256949E+01_JPRB, 0.256078E+01_JPRB, 0.255158E+01_JPRB &
+  &, 0.254191E+01_JPRB, 0.253176E+01_JPRB, 0.252119E+01_JPRB &
+  &, 0.251014E+01_JPRB, 0.249869E+01_JPRB, 0.248680E+01_JPRB, 0.247448E+01_JPRB &
+  &, 0.246179E+01_JPRB, 0.244866E+01_JPRB, 0.243512E+01_JPRB &
+  &, 0.242125E+01_JPRB, 0.240697E+01_JPRB, 0.239232E+01_JPRB, 0.237736E+01_JPRB &
+  &, 0.236200E+01_JPRB, 0.234633E+01_JPRB, 0.233034E+01_JPRB &
+  &, 0.231402E+01_JPRB, 0.229739E+01_JPRB, 0.228046E+01_JPRB, 0.226323E+01_JPRB &
+  &, 0.224577E+01_JPRB, 0.222800E+01_JPRB, 0.220995E+01_JPRB &
+  &, 0.219169E+01_JPRB, 0.217316E+01_JPRB, 0.215442E+01_JPRB, 0.213545E+01_JPRB &
+  &, 0.211627E+01_JPRB, 0.209687E+01_JPRB, 0.207725E+01_JPRB &
+  &, 0.205751E+01_JPRB, 0.203756E+01_JPRB, 0.201742E+01_JPRB, 0.199718E+01_JPRB &
+  &, 0.197674E+01_JPRB, 0.195619E+01_JPRB, 0.193550E+01_JPRB &
+  &, 0.191469E+01_JPRB, 0.189378E+01_JPRB, 0.187274E+01_JPRB, 0.185165E+01_JPRB &
+  &, 0.183042E+01_JPRB, 0.180920E+01_JPRB, 0.178781E+01_JPRB/)
+XCW( 885, :) = (/ &
+  &  0.112126E+01_JPRB, 0.115190E+01_JPRB, 0.118263E+01_JPRB, 0.121345E+01_JPRB &
+  &, 0.124433E+01_JPRB, 0.127525E+01_JPRB, 0.130620E+01_JPRB &
+  &, 0.133715E+01_JPRB, 0.136810E+01_JPRB, 0.139903E+01_JPRB, 0.142990E+01_JPRB &
+  &, 0.146072E+01_JPRB, 0.149146E+01_JPRB, 0.152210E+01_JPRB &
+  &, 0.155263E+01_JPRB, 0.158303E+01_JPRB, 0.161328E+01_JPRB, 0.164337E+01_JPRB &
+  &, 0.167327E+01_JPRB, 0.170298E+01_JPRB, 0.173246E+01_JPRB &
+  &, 0.176172E+01_JPRB, 0.179073E+01_JPRB, 0.181947E+01_JPRB, 0.184792E+01_JPRB &
+  &, 0.187608E+01_JPRB, 0.190392E+01_JPRB, 0.193144E+01_JPRB &
+  &, 0.195861E+01_JPRB, 0.198541E+01_JPRB, 0.201185E+01_JPRB, 0.203789E+01_JPRB &
+  &, 0.206354E+01_JPRB, 0.208877E+01_JPRB, 0.211356E+01_JPRB &
+  &, 0.213791E+01_JPRB, 0.216182E+01_JPRB, 0.218526E+01_JPRB, 0.220821E+01_JPRB &
+  &, 0.223068E+01_JPRB, 0.225264E+01_JPRB, 0.227411E+01_JPRB &
+  &, 0.229501E+01_JPRB, 0.231546E+01_JPRB, 0.233534E+01_JPRB, 0.235466E+01_JPRB &
+  &, 0.237344E+01_JPRB, 0.239166E+01_JPRB, 0.240930E+01_JPRB &
+  &, 0.242636E+01_JPRB, 0.244288E+01_JPRB, 0.245878E+01_JPRB, 0.247410E+01_JPRB &
+  &, 0.248883E+01_JPRB, 0.250295E+01_JPRB, 0.251647E+01_JPRB &
+  &, 0.252915E+01_JPRB, 0.254170E+01_JPRB, 0.255340E+01_JPRB, 0.256448E+01_JPRB &
+  &, 0.257496E+01_JPRB, 0.258480E+01_JPRB, 0.259405E+01_JPRB &
+  &, 0.260267E+01_JPRB, 0.261066E+01_JPRB, 0.261804E+01_JPRB, 0.262483E+01_JPRB &
+  &, 0.263098E+01_JPRB, 0.263652E+01_JPRB, 0.264144E+01_JPRB &
+  &, 0.264577E+01_JPRB, 0.264948E+01_JPRB, 0.265258E+01_JPRB, 0.265507E+01_JPRB &
+  &, 0.265699E+01_JPRB, 0.265831E+01_JPRB, 0.265902E+01_JPRB &
+  &, 0.265915E+01_JPRB, 0.265870E+01_JPRB, 0.265766E+01_JPRB, 0.265608E+01_JPRB &
+  &, 0.265389E+01_JPRB, 0.265116E+01_JPRB, 0.264787E+01_JPRB &
+  &, 0.264405E+01_JPRB, 0.263966E+01_JPRB, 0.263474E+01_JPRB, 0.262927E+01_JPRB &
+  &, 0.262332E+01_JPRB, 0.261681E+01_JPRB, 0.260982E+01_JPRB &
+  &, 0.260230E+01_JPRB, 0.259428E+01_JPRB, 0.258578E+01_JPRB, 0.257682E+01_JPRB &
+  &, 0.256736E+01_JPRB, 0.255745E+01_JPRB, 0.254707E+01_JPRB &
+  &, 0.253626E+01_JPRB, 0.252499E+01_JPRB, 0.251330E+01_JPRB, 0.250116E+01_JPRB &
+  &, 0.248864E+01_JPRB, 0.247569E+01_JPRB, 0.246236E+01_JPRB &
+  &, 0.244865E+01_JPRB, 0.243453E+01_JPRB, 0.242004E+01_JPRB, 0.240523E+01_JPRB &
+  &, 0.239004E+01_JPRB, 0.237452E+01_JPRB, 0.235862E+01_JPRB &
+  &, 0.234247E+01_JPRB, 0.232595E+01_JPRB, 0.230915E+01_JPRB, 0.229203E+01_JPRB &
+  &, 0.227467E+01_JPRB, 0.225699E+01_JPRB, 0.223908E+01_JPRB &
+  &, 0.222086E+01_JPRB, 0.220245E+01_JPRB, 0.218378E+01_JPRB, 0.216487E+01_JPRB &
+  &, 0.214575E+01_JPRB, 0.212640E+01_JPRB, 0.210688E+01_JPRB &
+  &, 0.208717E+01_JPRB, 0.206725E+01_JPRB, 0.204719E+01_JPRB, 0.202696E+01_JPRB &
+  &, 0.200652E+01_JPRB, 0.198603E+01_JPRB, 0.196532E+01_JPRB &
+  &, 0.194455E+01_JPRB, 0.192362E+01_JPRB, 0.190260E+01_JPRB, 0.188147E+01_JPRB &
+  &, 0.186026E+01_JPRB, 0.183891E+01_JPRB, 0.181758E+01_JPRB/)
+XCW( 886, :) = (/ &
+  &  0.112181E+01_JPRB, 0.115261E+01_JPRB, 0.118350E+01_JPRB, 0.121448E+01_JPRB &
+  &, 0.124553E+01_JPRB, 0.127662E+01_JPRB, 0.130774E+01_JPRB &
+  &, 0.133888E+01_JPRB, 0.137001E+01_JPRB, 0.140113E+01_JPRB, 0.143220E+01_JPRB &
+  &, 0.146322E+01_JPRB, 0.149416E+01_JPRB, 0.152501E+01_JPRB &
+  &, 0.155576E+01_JPRB, 0.158637E+01_JPRB, 0.161684E+01_JPRB, 0.164716E+01_JPRB &
+  &, 0.167729E+01_JPRB, 0.170722E+01_JPRB, 0.173695E+01_JPRB &
+  &, 0.176645E+01_JPRB, 0.179570E+01_JPRB, 0.182468E+01_JPRB, 0.185339E+01_JPRB &
+  &, 0.188180E+01_JPRB, 0.190990E+01_JPRB, 0.193768E+01_JPRB &
+  &, 0.196512E+01_JPRB, 0.199219E+01_JPRB, 0.201890E+01_JPRB, 0.204522E+01_JPRB &
+  &, 0.207114E+01_JPRB, 0.209665E+01_JPRB, 0.212173E+01_JPRB &
+  &, 0.214637E+01_JPRB, 0.217055E+01_JPRB, 0.219427E+01_JPRB, 0.221753E+01_JPRB &
+  &, 0.224029E+01_JPRB, 0.226255E+01_JPRB, 0.228431E+01_JPRB &
+  &, 0.230555E+01_JPRB, 0.232626E+01_JPRB, 0.234644E+01_JPRB, 0.236607E+01_JPRB &
+  &, 0.238516E+01_JPRB, 0.240368E+01_JPRB, 0.242163E+01_JPRB &
+  &, 0.243901E+01_JPRB, 0.245582E+01_JPRB, 0.247204E+01_JPRB, 0.248767E+01_JPRB &
+  &, 0.250270E+01_JPRB, 0.251714E+01_JPRB, 0.253098E+01_JPRB &
+  &, 0.254422E+01_JPRB, 0.255683E+01_JPRB, 0.256878E+01_JPRB, 0.258023E+01_JPRB &
+  &, 0.259102E+01_JPRB, 0.260117E+01_JPRB, 0.261073E+01_JPRB &
+  &, 0.261966E+01_JPRB, 0.262797E+01_JPRB, 0.263566E+01_JPRB, 0.264273E+01_JPRB &
+  &, 0.264919E+01_JPRB, 0.265504E+01_JPRB, 0.266027E+01_JPRB &
+  &, 0.266489E+01_JPRB, 0.266890E+01_JPRB, 0.267230E+01_JPRB, 0.267511E+01_JPRB &
+  &, 0.267731E+01_JPRB, 0.267889E+01_JPRB, 0.267991E+01_JPRB &
+  &, 0.268033E+01_JPRB, 0.268016E+01_JPRB, 0.267942E+01_JPRB, 0.267809E+01_JPRB &
+  &, 0.267619E+01_JPRB, 0.267373E+01_JPRB, 0.267072E+01_JPRB &
+  &, 0.266714E+01_JPRB, 0.266304E+01_JPRB, 0.265838E+01_JPRB, 0.265313E+01_JPRB &
+  &, 0.264744E+01_JPRB, 0.264118E+01_JPRB, 0.263445E+01_JPRB &
+  &, 0.262716E+01_JPRB, 0.261939E+01_JPRB, 0.261111E+01_JPRB, 0.260237E+01_JPRB &
+  &, 0.259315E+01_JPRB, 0.258344E+01_JPRB, 0.257327E+01_JPRB &
+  &, 0.256270E+01_JPRB, 0.255163E+01_JPRB, 0.254012E+01_JPRB, 0.252821E+01_JPRB &
+  &, 0.251584E+01_JPRB, 0.250310E+01_JPRB, 0.248995E+01_JPRB &
+  &, 0.247641E+01_JPRB, 0.246246E+01_JPRB, 0.244812E+01_JPRB, 0.243347E+01_JPRB &
+  &, 0.241844E+01_JPRB, 0.240305E+01_JPRB, 0.238734E+01_JPRB &
+  &, 0.237127E+01_JPRB, 0.235489E+01_JPRB, 0.233825E+01_JPRB, 0.232124E+01_JPRB &
+  &, 0.230399E+01_JPRB, 0.228642E+01_JPRB, 0.226861E+01_JPRB &
+  &, 0.225052E+01_JPRB, 0.223215E+01_JPRB, 0.221355E+01_JPRB, 0.219477E+01_JPRB &
+  &, 0.217571E+01_JPRB, 0.215641E+01_JPRB, 0.213694E+01_JPRB &
+  &, 0.211728E+01_JPRB, 0.209744E+01_JPRB, 0.207741E+01_JPRB, 0.205719E+01_JPRB &
+  &, 0.203683E+01_JPRB, 0.201634E+01_JPRB, 0.199563E+01_JPRB &
+  &, 0.197484E+01_JPRB, 0.195395E+01_JPRB, 0.193290E+01_JPRB, 0.191180E+01_JPRB &
+  &, 0.189054E+01_JPRB, 0.186920E+01_JPRB, 0.184781E+01_JPRB/)
+XCW( 887, :) = (/ &
+  &  0.112238E+01_JPRB, 0.115332E+01_JPRB, 0.118438E+01_JPRB, 0.121552E+01_JPRB &
+  &, 0.124673E+01_JPRB, 0.127800E+01_JPRB, 0.130930E+01_JPRB &
+  &, 0.134062E+01_JPRB, 0.137194E+01_JPRB, 0.140324E+01_JPRB, 0.143451E+01_JPRB &
+  &, 0.146573E+01_JPRB, 0.149688E+01_JPRB, 0.152794E+01_JPRB &
+  &, 0.155890E+01_JPRB, 0.158974E+01_JPRB, 0.162043E+01_JPRB, 0.165097E+01_JPRB &
+  &, 0.168133E+01_JPRB, 0.171151E+01_JPRB, 0.174147E+01_JPRB &
+  &, 0.177121E+01_JPRB, 0.180071E+01_JPRB, 0.182994E+01_JPRB, 0.185891E+01_JPRB &
+  &, 0.188758E+01_JPRB, 0.191594E+01_JPRB, 0.194398E+01_JPRB &
+  &, 0.197168E+01_JPRB, 0.199903E+01_JPRB, 0.202601E+01_JPRB, 0.205261E+01_JPRB &
+  &, 0.207881E+01_JPRB, 0.210459E+01_JPRB, 0.212996E+01_JPRB &
+  &, 0.215489E+01_JPRB, 0.217936E+01_JPRB, 0.220338E+01_JPRB, 0.222692E+01_JPRB &
+  &, 0.224998E+01_JPRB, 0.227255E+01_JPRB, 0.229461E+01_JPRB &
+  &, 0.231615E+01_JPRB, 0.233717E+01_JPRB, 0.235764E+01_JPRB, 0.237759E+01_JPRB &
+  &, 0.239698E+01_JPRB, 0.241581E+01_JPRB, 0.243408E+01_JPRB &
+  &, 0.245177E+01_JPRB, 0.246889E+01_JPRB, 0.248542E+01_JPRB, 0.250137E+01_JPRB &
+  &, 0.251672E+01_JPRB, 0.253148E+01_JPRB, 0.254562E+01_JPRB &
+  &, 0.255917E+01_JPRB, 0.257211E+01_JPRB, 0.258444E+01_JPRB, 0.259615E+01_JPRB &
+  &, 0.260724E+01_JPRB, 0.261772E+01_JPRB, 0.262758E+01_JPRB &
+  &, 0.263682E+01_JPRB, 0.264544E+01_JPRB, 0.265346E+01_JPRB, 0.266084E+01_JPRB &
+  &, 0.266762E+01_JPRB, 0.267376E+01_JPRB, 0.267929E+01_JPRB &
+  &, 0.268423E+01_JPRB, 0.268854E+01_JPRB, 0.269223E+01_JPRB, 0.269535E+01_JPRB &
+  &, 0.269785E+01_JPRB, 0.269974E+01_JPRB, 0.270103E+01_JPRB &
+  &, 0.270173E+01_JPRB, 0.270186E+01_JPRB, 0.270141E+01_JPRB, 0.270038E+01_JPRB &
+  &, 0.269876E+01_JPRB, 0.269658E+01_JPRB, 0.269384E+01_JPRB &
+  &, 0.269053E+01_JPRB, 0.268668E+01_JPRB, 0.268226E+01_JPRB, 0.267733E+01_JPRB &
+  &, 0.267188E+01_JPRB, 0.266586E+01_JPRB, 0.265936E+01_JPRB &
+  &, 0.265233E+01_JPRB, 0.264482E+01_JPRB, 0.263677E+01_JPRB, 0.262828E+01_JPRB &
+  &, 0.261928E+01_JPRB, 0.260979E+01_JPRB, 0.259986E+01_JPRB &
+  &, 0.258945E+01_JPRB, 0.257859E+01_JPRB, 0.256732E+01_JPRB, 0.255560E+01_JPRB &
+  &, 0.254315E+01_JPRB, 0.253087E+01_JPRB, 0.251790E+01_JPRB &
+  &, 0.250453E+01_JPRB, 0.249075E+01_JPRB, 0.247662E+01_JPRB, 0.246213E+01_JPRB &
+  &, 0.244726E+01_JPRB, 0.243202E+01_JPRB, 0.241645E+01_JPRB &
+  &, 0.240053E+01_JPRB, 0.238428E+01_JPRB, 0.236777E+01_JPRB, 0.235088E+01_JPRB &
+  &, 0.233375E+01_JPRB, 0.231629E+01_JPRB, 0.229857E+01_JPRB &
+  &, 0.228059E+01_JPRB, 0.226235E+01_JPRB, 0.224384E+01_JPRB, 0.222508E+01_JPRB &
+  &, 0.220609E+01_JPRB, 0.218691E+01_JPRB, 0.216749E+01_JPRB &
+  &, 0.214788E+01_JPRB, 0.212808E+01_JPRB, 0.210808E+01_JPRB, 0.208795E+01_JPRB &
+  &, 0.206760E+01_JPRB, 0.204712E+01_JPRB, 0.202647E+01_JPRB &
+  &, 0.200568E+01_JPRB, 0.198477E+01_JPRB, 0.196377E+01_JPRB, 0.194263E+01_JPRB &
+  &, 0.192139E+01_JPRB, 0.189994E+01_JPRB, 0.187863E+01_JPRB/)
+XCW( 888, :) = (/ &
+  &  0.112294E+01_JPRB, 0.115404E+01_JPRB, 0.118525E+01_JPRB, 0.121656E+01_JPRB &
+  &, 0.124794E+01_JPRB, 0.127938E+01_JPRB, 0.131086E+01_JPRB &
+  &, 0.134237E+01_JPRB, 0.137388E+01_JPRB, 0.140538E+01_JPRB, 0.143685E+01_JPRB &
+  &, 0.146827E+01_JPRB, 0.149962E+01_JPRB, 0.153090E+01_JPRB &
+  &, 0.156207E+01_JPRB, 0.159313E+01_JPRB, 0.162405E+01_JPRB, 0.165481E+01_JPRB &
+  &, 0.168541E+01_JPRB, 0.171582E+01_JPRB, 0.174602E+01_JPRB &
+  &, 0.177601E+01_JPRB, 0.180576E+01_JPRB, 0.183525E+01_JPRB, 0.186447E+01_JPRB &
+  &, 0.189339E+01_JPRB, 0.192202E+01_JPRB, 0.195033E+01_JPRB &
+  &, 0.197830E+01_JPRB, 0.200592E+01_JPRB, 0.203318E+01_JPRB, 0.206005E+01_JPRB &
+  &, 0.208654E+01_JPRB, 0.211261E+01_JPRB, 0.213826E+01_JPRB &
+  &, 0.216348E+01_JPRB, 0.218825E+01_JPRB, 0.221257E+01_JPRB, 0.223641E+01_JPRB &
+  &, 0.225977E+01_JPRB, 0.228263E+01_JPRB, 0.230499E+01_JPRB &
+  &, 0.232684E+01_JPRB, 0.234816E+01_JPRB, 0.236896E+01_JPRB, 0.238921E+01_JPRB &
+  &, 0.240891E+01_JPRB, 0.242805E+01_JPRB, 0.244664E+01_JPRB &
+  &, 0.246465E+01_JPRB, 0.248209E+01_JPRB, 0.249894E+01_JPRB, 0.251520E+01_JPRB &
+  &, 0.253087E+01_JPRB, 0.254595E+01_JPRB, 0.256042E+01_JPRB &
+  &, 0.257428E+01_JPRB, 0.258754E+01_JPRB, 0.260018E+01_JPRB, 0.261221E+01_JPRB &
+  &, 0.262363E+01_JPRB, 0.263444E+01_JPRB, 0.264460E+01_JPRB &
+  &, 0.265417E+01_JPRB, 0.266305E+01_JPRB, 0.267143E+01_JPRB, 0.267915E+01_JPRB &
+  &, 0.268622E+01_JPRB, 0.269269E+01_JPRB, 0.269853E+01_JPRB &
+  &, 0.270376E+01_JPRB, 0.270839E+01_JPRB, 0.271239E+01_JPRB, 0.271579E+01_JPRB &
+  &, 0.271859E+01_JPRB, 0.272079E+01_JPRB, 0.272239E+01_JPRB &
+  &, 0.272340E+01_JPRB, 0.272382E+01_JPRB, 0.272364E+01_JPRB, 0.272290E+01_JPRB &
+  &, 0.272156E+01_JPRB, 0.271966E+01_JPRB, 0.271720E+01_JPRB &
+  &, 0.271417E+01_JPRB, 0.271060E+01_JPRB, 0.270646E+01_JPRB, 0.270180E+01_JPRB &
+  &, 0.269659E+01_JPRB, 0.269085E+01_JPRB, 0.268458E+01_JPRB &
+  &, 0.267782E+01_JPRB, 0.267055E+01_JPRB, 0.266275E+01_JPRB, 0.265449E+01_JPRB &
+  &, 0.264571E+01_JPRB, 0.263647E+01_JPRB, 0.262677E+01_JPRB &
+  &, 0.261657E+01_JPRB, 0.260595E+01_JPRB, 0.259485E+01_JPRB, 0.258333E+01_JPRB &
+  &, 0.257138E+01_JPRB, 0.255903E+01_JPRB, 0.254624E+01_JPRB &
+  &, 0.253306E+01_JPRB, 0.251950E+01_JPRB, 0.250550E+01_JPRB, 0.249117E+01_JPRB &
+  &, 0.247646E+01_JPRB, 0.246138E+01_JPRB, 0.244597E+01_JPRB &
+  &, 0.243019E+01_JPRB, 0.241412E+01_JPRB, 0.239770E+01_JPRB, 0.238099E+01_JPRB &
+  &, 0.236393E+01_JPRB, 0.234663E+01_JPRB, 0.232898E+01_JPRB &
+  &, 0.231115E+01_JPRB, 0.229296E+01_JPRB, 0.227454E+01_JPRB, 0.225591E+01_JPRB &
+  &, 0.223700E+01_JPRB, 0.221789E+01_JPRB, 0.219853E+01_JPRB &
+  &, 0.217903E+01_JPRB, 0.215928E+01_JPRB, 0.213932E+01_JPRB, 0.211916E+01_JPRB &
+  &, 0.209890E+01_JPRB, 0.207844E+01_JPRB, 0.205738E+01_JPRB &
+  &, 0.203707E+01_JPRB, 0.201615E+01_JPRB, 0.199513E+01_JPRB, 0.197378E+01_JPRB &
+  &, 0.195276E+01_JPRB, 0.193140E+01_JPRB, 0.190997E+01_JPRB/)
+XCW( 889, :) = (/ &
+  &  0.112351E+01_JPRB, 0.115477E+01_JPRB, 0.118614E+01_JPRB, 0.121761E+01_JPRB &
+  &, 0.124916E+01_JPRB, 0.128078E+01_JPRB, 0.131244E+01_JPRB &
+  &, 0.134413E+01_JPRB, 0.137583E+01_JPRB, 0.140753E+01_JPRB, 0.143920E+01_JPRB &
+  &, 0.147082E+01_JPRB, 0.150239E+01_JPRB, 0.153387E+01_JPRB &
+  &, 0.156526E+01_JPRB, 0.159654E+01_JPRB, 0.162769E+01_JPRB, 0.165869E+01_JPRB &
+  &, 0.168952E+01_JPRB, 0.172017E+01_JPRB, 0.175062E+01_JPRB &
+  &, 0.178085E+01_JPRB, 0.181085E+01_JPRB, 0.184059E+01_JPRB, 0.187007E+01_JPRB &
+  &, 0.189926E+01_JPRB, 0.192815E+01_JPRB, 0.195673E+01_JPRB &
+  &, 0.198498E+01_JPRB, 0.201287E+01_JPRB, 0.204041E+01_JPRB, 0.206757E+01_JPRB &
+  &, 0.209434E+01_JPRB, 0.212070E+01_JPRB, 0.214664E+01_JPRB &
+  &, 0.217215E+01_JPRB, 0.219722E+01_JPRB, 0.222183E+01_JPRB, 0.224597E+01_JPRB &
+  &, 0.226963E+01_JPRB, 0.229280E+01_JPRB, 0.231548E+01_JPRB &
+  &, 0.233763E+01_JPRB, 0.235928E+01_JPRB, 0.238038E+01_JPRB, 0.240095E+01_JPRB &
+  &, 0.242096E+01_JPRB, 0.244042E+01_JPRB, 0.245933E+01_JPRB &
+  &, 0.247766E+01_JPRB, 0.249542E+01_JPRB, 0.251259E+01_JPRB, 0.252918E+01_JPRB &
+  &, 0.254514E+01_JPRB, 0.256056E+01_JPRB, 0.257536E+01_JPRB &
+  &, 0.258955E+01_JPRB, 0.260313E+01_JPRB, 0.261609E+01_JPRB, 0.262845E+01_JPRB &
+  &, 0.264019E+01_JPRB, 0.265131E+01_JPRB, 0.266182E+01_JPRB &
+  &, 0.267170E+01_JPRB, 0.268096E+01_JPRB, 0.268961E+01_JPRB, 0.269763E+01_JPRB &
+  &, 0.270502E+01_JPRB, 0.271182E+01_JPRB, 0.271797E+01_JPRB &
+  &, 0.272352E+01_JPRB, 0.272846E+01_JPRB, 0.273279E+01_JPRB, 0.273650E+01_JPRB &
+  &, 0.273959E+01_JPRB, 0.274210E+01_JPRB, 0.274402E+01_JPRB &
+  &, 0.274532E+01_JPRB, 0.274602E+01_JPRB, 0.274616E+01_JPRB, 0.274570E+01_JPRB &
+  &, 0.274466E+01_JPRB, 0.274304E+01_JPRB, 0.274086E+01_JPRB &
+  &, 0.273812E+01_JPRB, 0.273483E+01_JPRB, 0.273097E+01_JPRB, 0.272657E+01_JPRB &
+  &, 0.272161E+01_JPRB, 0.271614E+01_JPRB, 0.271015E+01_JPRB &
+  &, 0.270363E+01_JPRB, 0.269659E+01_JPRB, 0.268907E+01_JPRB, 0.268104E+01_JPRB &
+  &, 0.267249E+01_JPRB, 0.266347E+01_JPRB, 0.265399E+01_JPRB &
+  &, 0.264405E+01_JPRB, 0.263364E+01_JPRB, 0.262275E+01_JPRB, 0.261148E+01_JPRB &
+  &, 0.259973E+01_JPRB, 0.258757E+01_JPRB, 0.257498E+01_JPRB &
+  &, 0.256199E+01_JPRB, 0.254857E+01_JPRB, 0.253479E+01_JPRB, 0.252064E+01_JPRB &
+  &, 0.250609E+01_JPRB, 0.249118E+01_JPRB, 0.247592E+01_JPRB &
+  &, 0.246030E+01_JPRB, 0.244438E+01_JPRB, 0.242810E+01_JPRB, 0.241148E+01_JPRB &
+  &, 0.239459E+01_JPRB, 0.237737E+01_JPRB, 0.235988E+01_JPRB &
+  &, 0.234211E+01_JPRB, 0.232407E+01_JPRB, 0.230575E+01_JPRB, 0.228721E+01_JPRB &
+  &, 0.226839E+01_JPRB, 0.224935E+01_JPRB, 0.223012E+01_JPRB &
+  &, 0.221062E+01_JPRB, 0.219093E+01_JPRB, 0.217107E+01_JPRB, 0.215095E+01_JPRB &
+  &, 0.213072E+01_JPRB, 0.211028E+01_JPRB, 0.208972E+01_JPRB &
+  &, 0.206894E+01_JPRB, 0.204808E+01_JPRB, 0.202705E+01_JPRB, 0.200594E+01_JPRB &
+  &, 0.198471E+01_JPRB, 0.196331E+01_JPRB, 0.194184E+01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART127',1,ZHOOK_HANDLE)
+END SUBROUTINE PART127
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART128
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART128',0,ZHOOK_HANDLE)
+
+XCW( 890, :) = (/ &
+  &  0.112408E+01_JPRB, 0.115550E+01_JPRB, 0.118703E+01_JPRB, 0.121867E+01_JPRB &
+  &, 0.125039E+01_JPRB, 0.128219E+01_JPRB, 0.131403E+01_JPRB &
+  &, 0.134591E+01_JPRB, 0.137780E+01_JPRB, 0.140969E+01_JPRB, 0.144156E+01_JPRB &
+  &, 0.147339E+01_JPRB, 0.150517E+01_JPRB, 0.153687E+01_JPRB &
+  &, 0.156848E+01_JPRB, 0.159999E+01_JPRB, 0.163136E+01_JPRB, 0.166259E+01_JPRB &
+  &, 0.169366E+01_JPRB, 0.172456E+01_JPRB, 0.175525E+01_JPRB &
+  &, 0.178573E+01_JPRB, 0.181598E+01_JPRB, 0.184598E+01_JPRB, 0.187572E+01_JPRB &
+  &, 0.190518E+01_JPRB, 0.193434E+01_JPRB, 0.196319E+01_JPRB &
+  &, 0.199171E+01_JPRB, 0.201989E+01_JPRB, 0.204770E+01_JPRB, 0.207515E+01_JPRB &
+  &, 0.210220E+01_JPRB, 0.212886E+01_JPRB, 0.215510E+01_JPRB &
+  &, 0.218090E+01_JPRB, 0.220627E+01_JPRB, 0.223118E+01_JPRB, 0.225563E+01_JPRB &
+  &, 0.227960E+01_JPRB, 0.230308E+01_JPRB, 0.232606E+01_JPRB &
+  &, 0.234853E+01_JPRB, 0.237048E+01_JPRB, 0.239191E+01_JPRB, 0.241279E+01_JPRB &
+  &, 0.243313E+01_JPRB, 0.245292E+01_JPRB, 0.247214E+01_JPRB &
+  &, 0.249080E+01_JPRB, 0.250888E+01_JPRB, 0.252637E+01_JPRB, 0.254328E+01_JPRB &
+  &, 0.255960E+01_JPRB, 0.257533E+01_JPRB, 0.259045E+01_JPRB &
+  &, 0.260496E+01_JPRB, 0.261888E+01_JPRB, 0.263217E+01_JPRB, 0.264486E+01_JPRB &
+  &, 0.265693E+01_JPRB, 0.266837E+01_JPRB, 0.267920E+01_JPRB &
+  &, 0.268941E+01_JPRB, 0.269899E+01_JPRB, 0.270798E+01_JPRB, 0.271632E+01_JPRB &
+  &, 0.272404E+01_JPRB, 0.273114E+01_JPRB, 0.273762E+01_JPRB &
+  &, 0.274349E+01_JPRB, 0.274874E+01_JPRB, 0.275339E+01_JPRB, 0.275741E+01_JPRB &
+  &, 0.276085E+01_JPRB, 0.276365E+01_JPRB, 0.276586E+01_JPRB &
+  &, 0.276748E+01_JPRB, 0.276850E+01_JPRB, 0.276890E+01_JPRB, 0.276876E+01_JPRB &
+  &, 0.276801E+01_JPRB, 0.276668E+01_JPRB, 0.276480E+01_JPRB &
+  &, 0.276235E+01_JPRB, 0.275932E+01_JPRB, 0.275575E+01_JPRB, 0.275163E+01_JPRB &
+  &, 0.274695E+01_JPRB, 0.274174E+01_JPRB, 0.273603E+01_JPRB &
+  &, 0.272975E+01_JPRB, 0.272299E+01_JPRB, 0.271571E+01_JPRB, 0.270791E+01_JPRB &
+  &, 0.269963E+01_JPRB, 0.269085E+01_JPRB, 0.268160E+01_JPRB &
+  &, 0.267188E+01_JPRB, 0.266169E+01_JPRB, 0.265106E+01_JPRB, 0.263996E+01_JPRB &
+  &, 0.262842E+01_JPRB, 0.261646E+01_JPRB, 0.260407E+01_JPRB &
+  &, 0.259131E+01_JPRB, 0.257809E+01_JPRB, 0.256450E+01_JPRB, 0.255048E+01_JPRB &
+  &, 0.253581E+01_JPRB, 0.252141E+01_JPRB, 0.250627E+01_JPRB &
+  &, 0.249085E+01_JPRB, 0.247504E+01_JPRB, 0.245891E+01_JPRB, 0.244248E+01_JPRB &
+  &, 0.242573E+01_JPRB, 0.240864E+01_JPRB, 0.239127E+01_JPRB &
+  &, 0.237362E+01_JPRB, 0.235564E+01_JPRB, 0.233747E+01_JPRB, 0.231898E+01_JPRB &
+  &, 0.230030E+01_JPRB, 0.228134E+01_JPRB, 0.226214E+01_JPRB &
+  &, 0.224271E+01_JPRB, 0.222313E+01_JPRB, 0.220327E+01_JPRB, 0.218326E+01_JPRB &
+  &, 0.216307E+01_JPRB, 0.214266E+01_JPRB, 0.212212E+01_JPRB &
+  &, 0.210141E+01_JPRB, 0.208056E+01_JPRB, 0.205954E+01_JPRB, 0.203842E+01_JPRB &
+  &, 0.201716E+01_JPRB, 0.199581E+01_JPRB, 0.197437E+01_JPRB/)
+XCW( 891, :) = (/ &
+  &  0.112466E+01_JPRB, 0.115623E+01_JPRB, 0.118793E+01_JPRB, 0.121973E+01_JPRB &
+  &, 0.125163E+01_JPRB, 0.128360E+01_JPRB, 0.131563E+01_JPRB &
+  &, 0.134770E+01_JPRB, 0.137978E+01_JPRB, 0.141187E+01_JPRB, 0.144395E+01_JPRB &
+  &, 0.147598E+01_JPRB, 0.150797E+01_JPRB, 0.153989E+01_JPRB &
+  &, 0.157173E+01_JPRB, 0.160346E+01_JPRB, 0.163506E+01_JPRB, 0.166653E+01_JPRB &
+  &, 0.169784E+01_JPRB, 0.172897E+01_JPRB, 0.175992E+01_JPRB &
+  &, 0.179065E+01_JPRB, 0.182116E+01_JPRB, 0.185142E+01_JPRB, 0.188142E+01_JPRB &
+  &, 0.191115E+01_JPRB, 0.194058E+01_JPRB, 0.196971E+01_JPRB &
+  &, 0.199850E+01_JPRB, 0.202696E+01_JPRB, 0.205506E+01_JPRB, 0.208279E+01_JPRB &
+  &, 0.211014E+01_JPRB, 0.213709E+01_JPRB, 0.216362E+01_JPRB &
+  &, 0.218973E+01_JPRB, 0.221540E+01_JPRB, 0.224062E+01_JPRB, 0.226538E+01_JPRB &
+  &, 0.228966E+01_JPRB, 0.231345E+01_JPRB, 0.233674E+01_JPRB &
+  &, 0.235953E+01_JPRB, 0.238180E+01_JPRB, 0.240354E+01_JPRB, 0.242475E+01_JPRB &
+  &, 0.244541E+01_JPRB, 0.246553E+01_JPRB, 0.248507E+01_JPRB &
+  &, 0.250406E+01_JPRB, 0.252246E+01_JPRB, 0.254029E+01_JPRB, 0.255753E+01_JPRB &
+  &, 0.257418E+01_JPRB, 0.259024E+01_JPRB, 0.260569E+01_JPRB &
+  &, 0.262054E+01_JPRB, 0.263478E+01_JPRB, 0.264841E+01_JPRB, 0.266142E+01_JPRB &
+  &, 0.267384E+01_JPRB, 0.268561E+01_JPRB, 0.269677E+01_JPRB &
+  &, 0.270732E+01_JPRB, 0.271723E+01_JPRB, 0.272654E+01_JPRB, 0.273521E+01_JPRB &
+  &, 0.274326E+01_JPRB, 0.275069E+01_JPRB, 0.275751E+01_JPRB &
+  &, 0.276369E+01_JPRB, 0.276926E+01_JPRB, 0.277423E+01_JPRB, 0.277857E+01_JPRB &
+  &, 0.278228E+01_JPRB, 0.278545E+01_JPRB, 0.278796E+01_JPRB &
+  &, 0.278988E+01_JPRB, 0.279122E+01_JPRB, 0.279195E+01_JPRB, 0.279208E+01_JPRB &
+  &, 0.279165E+01_JPRB, 0.279063E+01_JPRB, 0.278901E+01_JPRB &
+  &, 0.278685E+01_JPRB, 0.278392E+01_JPRB, 0.278084E+01_JPRB, 0.277698E+01_JPRB &
+  &, 0.277260E+01_JPRB, 0.276767E+01_JPRB, 0.276221E+01_JPRB &
+  &, 0.275622E+01_JPRB, 0.274971E+01_JPRB, 0.274268E+01_JPRB, 0.273516E+01_JPRB &
+  &, 0.272712E+01_JPRB, 0.271858E+01_JPRB, 0.270959E+01_JPRB &
+  &, 0.270011E+01_JPRB, 0.269015E+01_JPRB, 0.267973E+01_JPRB, 0.266886E+01_JPRB &
+  &, 0.265753E+01_JPRB, 0.264579E+01_JPRB, 0.263360E+01_JPRB &
+  &, 0.262100E+01_JPRB, 0.260801E+01_JPRB, 0.259462E+01_JPRB, 0.258079E+01_JPRB &
+  &, 0.256660E+01_JPRB, 0.255204E+01_JPRB, 0.253711E+01_JPRB &
+  &, 0.252181E+01_JPRB, 0.250621E+01_JPRB, 0.249023E+01_JPRB, 0.247390E+01_JPRB &
+  &, 0.245729E+01_JPRB, 0.244034E+01_JPRB, 0.242311E+01_JPRB &
+  &, 0.240558E+01_JPRB, 0.238777E+01_JPRB, 0.236966E+01_JPRB, 0.235128E+01_JPRB &
+  &, 0.233269E+01_JPRB, 0.231382E+01_JPRB, 0.229470E+01_JPRB &
+  &, 0.227535E+01_JPRB, 0.225584E+01_JPRB, 0.223604E+01_JPRB, 0.221608E+01_JPRB &
+  &, 0.219594E+01_JPRB, 0.217563E+01_JPRB, 0.215416E+01_JPRB &
+  &, 0.213443E+01_JPRB, 0.211360E+01_JPRB, 0.209258E+01_JPRB, 0.207152E+01_JPRB &
+  &, 0.205026E+01_JPRB, 0.202889E+01_JPRB, 0.200742E+01_JPRB/)
+XCW( 892, :) = (/ &
+  &  0.112524E+01_JPRB, 0.115697E+01_JPRB, 0.118883E+01_JPRB, 0.122081E+01_JPRB &
+  &, 0.125288E+01_JPRB, 0.128503E+01_JPRB, 0.131724E+01_JPRB &
+  &, 0.134950E+01_JPRB, 0.138178E+01_JPRB, 0.141407E+01_JPRB, 0.144635E+01_JPRB &
+  &, 0.147860E+01_JPRB, 0.151080E+01_JPRB, 0.154294E+01_JPRB &
+  &, 0.157500E+01_JPRB, 0.160696E+01_JPRB, 0.163880E+01_JPRB, 0.167050E+01_JPRB &
+  &, 0.170205E+01_JPRB, 0.173343E+01_JPRB, 0.176462E+01_JPRB &
+  &, 0.179561E+01_JPRB, 0.182638E+01_JPRB, 0.185690E+01_JPRB, 0.188717E+01_JPRB &
+  &, 0.191717E+01_JPRB, 0.194687E+01_JPRB, 0.197627E+01_JPRB &
+  &, 0.200535E+01_JPRB, 0.203410E+01_JPRB, 0.206249E+01_JPRB, 0.209051E+01_JPRB &
+  &, 0.211815E+01_JPRB, 0.214540E+01_JPRB, 0.217223E+01_JPRB &
+  &, 0.219864E+01_JPRB, 0.222462E+01_JPRB, 0.225014E+01_JPRB, 0.227521E+01_JPRB &
+  &, 0.229980E+01_JPRB, 0.232391E+01_JPRB, 0.234752E+01_JPRB &
+  &, 0.237064E+01_JPRB, 0.239322E+01_JPRB, 0.241529E+01_JPRB, 0.243683E+01_JPRB &
+  &, 0.245781E+01_JPRB, 0.247825E+01_JPRB, 0.249813E+01_JPRB &
+  &, 0.251744E+01_JPRB, 0.253618E+01_JPRB, 0.255435E+01_JPRB, 0.257193E+01_JPRB &
+  &, 0.258890E+01_JPRB, 0.260530E+01_JPRB, 0.262109E+01_JPRB &
+  &, 0.263629E+01_JPRB, 0.265086E+01_JPRB, 0.266483E+01_JPRB, 0.267819E+01_JPRB &
+  &, 0.269092E+01_JPRB, 0.270304E+01_JPRB, 0.271454E+01_JPRB &
+  &, 0.272542E+01_JPRB, 0.273567E+01_JPRB, 0.274530E+01_JPRB, 0.275431E+01_JPRB &
+  &, 0.276270E+01_JPRB, 0.277047E+01_JPRB, 0.277760E+01_JPRB &
+  &, 0.278413E+01_JPRB, 0.279002E+01_JPRB, 0.279531E+01_JPRB, 0.279998E+01_JPRB &
+  &, 0.280403E+01_JPRB, 0.280749E+01_JPRB, 0.281032E+01_JPRB &
+  &, 0.281257E+01_JPRB, 0.281422E+01_JPRB, 0.281525E+01_JPRB, 0.281569E+01_JPRB &
+  &, 0.281556E+01_JPRB, 0.281484E+01_JPRB, 0.281355E+01_JPRB &
+  &, 0.281167E+01_JPRB, 0.280923E+01_JPRB, 0.280625E+01_JPRB, 0.280269E+01_JPRB &
+  &, 0.279857E+01_JPRB, 0.279394E+01_JPRB, 0.278874E+01_JPRB &
+  &, 0.278301E+01_JPRB, 0.277676E+01_JPRB, 0.277001E+01_JPRB, 0.276274E+01_JPRB &
+  &, 0.275495E+01_JPRB, 0.274669E+01_JPRB, 0.273794E+01_JPRB &
+  &, 0.272869E+01_JPRB, 0.271896E+01_JPRB, 0.270878E+01_JPRB, 0.269813E+01_JPRB &
+  &, 0.268707E+01_JPRB, 0.267554E+01_JPRB, 0.266357E+01_JPRB &
+  &, 0.265118E+01_JPRB, 0.263835E+01_JPRB, 0.262515E+01_JPRB, 0.261152E+01_JPRB &
+  &, 0.259752E+01_JPRB, 0.258314E+01_JPRB, 0.256839E+01_JPRB &
+  &, 0.255327E+01_JPRB, 0.253779E+01_JPRB, 0.252197E+01_JPRB, 0.250584E+01_JPRB &
+  &, 0.248934E+01_JPRB, 0.247253E+01_JPRB, 0.245543E+01_JPRB &
+  &, 0.243803E+01_JPRB, 0.241873E+01_JPRB, 0.240236E+01_JPRB, 0.238409E+01_JPRB &
+  &, 0.236555E+01_JPRB, 0.234679E+01_JPRB, 0.232781E+01_JPRB &
+  &, 0.230854E+01_JPRB, 0.228905E+01_JPRB, 0.226938E+01_JPRB, 0.224948E+01_JPRB &
+  &, 0.222939E+01_JPRB, 0.220913E+01_JPRB, 0.218860E+01_JPRB &
+  &, 0.216800E+01_JPRB, 0.214719E+01_JPRB, 0.212625E+01_JPRB, 0.210513E+01_JPRB &
+  &, 0.208394E+01_JPRB, 0.206255E+01_JPRB, 0.204106E+01_JPRB/)
+XCW( 893, :) = (/ &
+  &  0.112583E+01_JPRB, 0.115772E+01_JPRB, 0.118974E+01_JPRB, 0.122189E+01_JPRB &
+  &, 0.125414E+01_JPRB, 0.128647E+01_JPRB, 0.131887E+01_JPRB &
+  &, 0.135132E+01_JPRB, 0.138379E+01_JPRB, 0.141628E+01_JPRB, 0.144877E+01_JPRB &
+  &, 0.148123E+01_JPRB, 0.151365E+01_JPRB, 0.154601E+01_JPRB &
+  &, 0.157829E+01_JPRB, 0.161048E+01_JPRB, 0.164256E+01_JPRB, 0.167450E+01_JPRB &
+  &, 0.170630E+01_JPRB, 0.173793E+01_JPRB, 0.176937E+01_JPRB &
+  &, 0.180062E+01_JPRB, 0.183164E+01_JPRB, 0.186243E+01_JPRB, 0.189297E+01_JPRB &
+  &, 0.192324E+01_JPRB, 0.195322E+01_JPRB, 0.198290E+01_JPRB &
+  &, 0.201227E+01_JPRB, 0.204130E+01_JPRB, 0.206998E+01_JPRB, 0.209830E+01_JPRB &
+  &, 0.212624E+01_JPRB, 0.215378E+01_JPRB, 0.218092E+01_JPRB &
+  &, 0.220764E+01_JPRB, 0.223392E+01_JPRB, 0.225976E+01_JPRB, 0.228514E+01_JPRB &
+  &, 0.231005E+01_JPRB, 0.233448E+01_JPRB, 0.235841E+01_JPRB &
+  &, 0.238184E+01_JPRB, 0.240476E+01_JPRB, 0.242716E+01_JPRB, 0.244901E+01_JPRB &
+  &, 0.247034E+01_JPRB, 0.249110E+01_JPRB, 0.251133E+01_JPRB &
+  &, 0.253095E+01_JPRB, 0.255005E+01_JPRB, 0.256855E+01_JPRB, 0.258647E+01_JPRB &
+  &, 0.260379E+01_JPRB, 0.262052E+01_JPRB, 0.263663E+01_JPRB &
+  &, 0.265219E+01_JPRB, 0.266710E+01_JPRB, 0.268141E+01_JPRB, 0.269511E+01_JPRB &
+  &, 0.270818E+01_JPRB, 0.272064E+01_JPRB, 0.273248E+01_JPRB &
+  &, 0.274371E+01_JPRB, 0.275431E+01_JPRB, 0.276413E+01_JPRB, 0.277362E+01_JPRB &
+  &, 0.278235E+01_JPRB, 0.279044E+01_JPRB, 0.279792E+01_JPRB &
+  &, 0.280477E+01_JPRB, 0.281101E+01_JPRB, 0.281663E+01_JPRB, 0.282163E+01_JPRB &
+  &, 0.282602E+01_JPRB, 0.282978E+01_JPRB, 0.283295E+01_JPRB &
+  &, 0.283550E+01_JPRB, 0.283746E+01_JPRB, 0.283883E+01_JPRB, 0.283960E+01_JPRB &
+  &, 0.283976E+01_JPRB, 0.283937E+01_JPRB, 0.283836E+01_JPRB &
+  &, 0.283678E+01_JPRB, 0.283465E+01_JPRB, 0.283195E+01_JPRB, 0.282869E+01_JPRB &
+  &, 0.282488E+01_JPRB, 0.282051E+01_JPRB, 0.281558E+01_JPRB &
+  &, 0.281015E+01_JPRB, 0.280419E+01_JPRB, 0.279770E+01_JPRB, 0.279069E+01_JPRB &
+  &, 0.278319E+01_JPRB, 0.277514E+01_JPRB, 0.276664E+01_JPRB &
+  &, 0.275752E+01_JPRB, 0.274818E+01_JPRB, 0.273824E+01_JPRB, 0.272782E+01_JPRB &
+  &, 0.271637E+01_JPRB, 0.270568E+01_JPRB, 0.269393E+01_JPRB &
+  &, 0.268175E+01_JPRB, 0.266914E+01_JPRB, 0.265614E+01_JPRB, 0.264271E+01_JPRB &
+  &, 0.262891E+01_JPRB, 0.261472E+01_JPRB, 0.260012E+01_JPRB &
+  &, 0.258517E+01_JPRB, 0.256986E+01_JPRB, 0.255421E+01_JPRB, 0.253816E+01_JPRB &
+  &, 0.252191E+01_JPRB, 0.250525E+01_JPRB, 0.248825E+01_JPRB &
+  &, 0.247099E+01_JPRB, 0.245344E+01_JPRB, 0.243558E+01_JPRB, 0.241742E+01_JPRB &
+  &, 0.239900E+01_JPRB, 0.238034E+01_JPRB, 0.236140E+01_JPRB &
+  &, 0.234228E+01_JPRB, 0.232288E+01_JPRB, 0.230328E+01_JPRB, 0.228340E+01_JPRB &
+  &, 0.226337E+01_JPRB, 0.224316E+01_JPRB, 0.222274E+01_JPRB &
+  &, 0.220212E+01_JPRB, 0.218140E+01_JPRB, 0.216048E+01_JPRB, 0.213938E+01_JPRB &
+  &, 0.211819E+01_JPRB, 0.209680E+01_JPRB, 0.207536E+01_JPRB/)
+XCW( 894, :) = (/ &
+  &  0.112642E+01_JPRB, 0.115846E+01_JPRB, 0.119066E+01_JPRB, 0.122298E+01_JPRB &
+  &, 0.125540E+01_JPRB, 0.128792E+01_JPRB, 0.132051E+01_JPRB &
+  &, 0.135315E+01_JPRB, 0.138582E+01_JPRB, 0.141852E+01_JPRB, 0.145121E+01_JPRB &
+  &, 0.148388E+01_JPRB, 0.151652E+01_JPRB, 0.154911E+01_JPRB &
+  &, 0.158162E+01_JPRB, 0.161404E+01_JPRB, 0.164635E+01_JPRB, 0.167854E+01_JPRB &
+  &, 0.171058E+01_JPRB, 0.174246E+01_JPRB, 0.177416E+01_JPRB &
+  &, 0.180566E+01_JPRB, 0.183695E+01_JPRB, 0.186801E+01_JPRB, 0.189882E+01_JPRB &
+  &, 0.192936E+01_JPRB, 0.195963E+01_JPRB, 0.198959E+01_JPRB &
+  &, 0.201924E+01_JPRB, 0.204856E+01_JPRB, 0.207754E+01_JPRB, 0.210615E+01_JPRB &
+  &, 0.213439E+01_JPRB, 0.216224E+01_JPRB, 0.218969E+01_JPRB &
+  &, 0.221671E+01_JPRB, 0.224331E+01_JPRB, 0.226947E+01_JPRB, 0.229517E+01_JPRB &
+  &, 0.232039E+01_JPRB, 0.234515E+01_JPRB, 0.236941E+01_JPRB &
+  &, 0.239316E+01_JPRB, 0.241641E+01_JPRB, 0.243913E+01_JPRB, 0.246133E+01_JPRB &
+  &, 0.248298E+01_JPRB, 0.250410E+01_JPRB, 0.252455E+01_JPRB &
+  &, 0.254463E+01_JPRB, 0.256406E+01_JPRB, 0.258290E+01_JPRB, 0.260115E+01_JPRB &
+  &, 0.261882E+01_JPRB, 0.263589E+01_JPRB, 0.265238E+01_JPRB &
+  &, 0.266826E+01_JPRB, 0.268352E+01_JPRB, 0.269817E+01_JPRB, 0.271221E+01_JPRB &
+  &, 0.272565E+01_JPRB, 0.273844E+01_JPRB, 0.275062E+01_JPRB &
+  &, 0.276220E+01_JPRB, 0.277313E+01_JPRB, 0.278345E+01_JPRB, 0.279315E+01_JPRB &
+  &, 0.280222E+01_JPRB, 0.281066E+01_JPRB, 0.281847E+01_JPRB &
+  &, 0.282567E+01_JPRB, 0.283224E+01_JPRB, 0.283820E+01_JPRB, 0.284353E+01_JPRB &
+  &, 0.284823E+01_JPRB, 0.285235E+01_JPRB, 0.285583E+01_JPRB &
+  &, 0.285873E+01_JPRB, 0.286100E+01_JPRB, 0.286269E+01_JPRB, 0.286377E+01_JPRB &
+  &, 0.286427E+01_JPRB, 0.286417E+01_JPRB, 0.286347E+01_JPRB &
+  &, 0.286224E+01_JPRB, 0.286039E+01_JPRB, 0.285799E+01_JPRB, 0.285502E+01_JPRB &
+  &, 0.285151E+01_JPRB, 0.284742E+01_JPRB, 0.284280E+01_JPRB &
+  &, 0.283766E+01_JPRB, 0.283198E+01_JPRB, 0.282575E+01_JPRB, 0.281900E+01_JPRB &
+  &, 0.281176E+01_JPRB, 0.280400E+01_JPRB, 0.279576E+01_JPRB &
+  &, 0.278700E+01_JPRB, 0.277780E+01_JPRB, 0.276810E+01_JPRB, 0.275792E+01_JPRB &
+  &, 0.274728E+01_JPRB, 0.273620E+01_JPRB, 0.272468E+01_JPRB &
+  &, 0.271273E+01_JPRB, 0.270037E+01_JPRB, 0.268755E+01_JPRB, 0.267433E+01_JPRB &
+  &, 0.266073E+01_JPRB, 0.264673E+01_JPRB, 0.263233E+01_JPRB &
+  &, 0.261757E+01_JPRB, 0.260244E+01_JPRB, 0.258697E+01_JPRB, 0.257113E+01_JPRB &
+  &, 0.255495E+01_JPRB, 0.253845E+01_JPRB, 0.252161E+01_JPRB &
+  &, 0.250449E+01_JPRB, 0.248703E+01_JPRB, 0.246930E+01_JPRB, 0.245127E+01_JPRB &
+  &, 0.243297E+01_JPRB, 0.241442E+01_JPRB, 0.239560E+01_JPRB &
+  &, 0.237652E+01_JPRB, 0.235721E+01_JPRB, 0.233770E+01_JPRB, 0.231795E+01_JPRB &
+  &, 0.229799E+01_JPRB, 0.227778E+01_JPRB, 0.225741E+01_JPRB &
+  &, 0.223690E+01_JPRB, 0.221616E+01_JPRB, 0.219527E+01_JPRB, 0.217425E+01_JPRB &
+  &, 0.215301E+01_JPRB, 0.213169E+01_JPRB, 0.211026E+01_JPRB/)
+XCW( 895, :) = (/ &
+  &  0.112701E+01_JPRB, 0.115922E+01_JPRB, 0.119158E+01_JPRB, 0.122408E+01_JPRB &
+  &, 0.125668E+01_JPRB, 0.128938E+01_JPRB, 0.132216E+01_JPRB &
+  &, 0.135499E+01_JPRB, 0.138787E+01_JPRB, 0.142077E+01_JPRB, 0.145367E+01_JPRB &
+  &, 0.148656E+01_JPRB, 0.151942E+01_JPRB, 0.155223E+01_JPRB &
+  &, 0.158497E+01_JPRB, 0.161762E+01_JPRB, 0.165018E+01_JPRB, 0.168261E+01_JPRB &
+  &, 0.171490E+01_JPRB, 0.174703E+01_JPRB, 0.177899E+01_JPRB &
+  &, 0.181075E+01_JPRB, 0.184231E+01_JPRB, 0.187364E+01_JPRB, 0.190472E+01_JPRB &
+  &, 0.193554E+01_JPRB, 0.196609E+01_JPRB, 0.199634E+01_JPRB &
+  &, 0.202628E+01_JPRB, 0.205590E+01_JPRB, 0.208517E+01_JPRB, 0.211408E+01_JPRB &
+  &, 0.214262E+01_JPRB, 0.217078E+01_JPRB, 0.219854E+01_JPRB &
+  &, 0.222587E+01_JPRB, 0.225279E+01_JPRB, 0.227926E+01_JPRB, 0.230528E+01_JPRB &
+  &, 0.233083E+01_JPRB, 0.235592E+01_JPRB, 0.238050E+01_JPRB &
+  &, 0.240459E+01_JPRB, 0.242817E+01_JPRB, 0.245123E+01_JPRB, 0.247377E+01_JPRB &
+  &, 0.249577E+01_JPRB, 0.251721E+01_JPRB, 0.253811E+01_JPRB &
+  &, 0.255844E+01_JPRB, 0.257820E+01_JPRB, 0.259738E+01_JPRB, 0.261600E+01_JPRB &
+  &, 0.263402E+01_JPRB, 0.265144E+01_JPRB, 0.266826E+01_JPRB &
+  &, 0.268437E+01_JPRB, 0.270010E+01_JPRB, 0.271511E+01_JPRB, 0.272950E+01_JPRB &
+  &, 0.274328E+01_JPRB, 0.275644E+01_JPRB, 0.276898E+01_JPRB &
+  &, 0.278089E+01_JPRB, 0.279218E+01_JPRB, 0.280284E+01_JPRB, 0.281289E+01_JPRB &
+  &, 0.282231E+01_JPRB, 0.283110E+01_JPRB, 0.283924E+01_JPRB &
+  &, 0.284680E+01_JPRB, 0.285371E+01_JPRB, 0.286000E+01_JPRB, 0.286568E+01_JPRB &
+  &, 0.287074E+01_JPRB, 0.287518E+01_JPRB, 0.287901E+01_JPRB &
+  &, 0.288222E+01_JPRB, 0.288482E+01_JPRB, 0.288685E+01_JPRB, 0.288825E+01_JPRB &
+  &, 0.288907E+01_JPRB, 0.288929E+01_JPRB, 0.288891E+01_JPRB &
+  &, 0.288797E+01_JPRB, 0.288646E+01_JPRB, 0.288436E+01_JPRB, 0.288170E+01_JPRB &
+  &, 0.287847E+01_JPRB, 0.287470E+01_JPRB, 0.287039E+01_JPRB &
+  &, 0.286550E+01_JPRB, 0.286008E+01_JPRB, 0.285416E+01_JPRB, 0.284772E+01_JPRB &
+  &, 0.284074E+01_JPRB, 0.283325E+01_JPRB, 0.282526E+01_JPRB &
+  &, 0.281677E+01_JPRB, 0.280782E+01_JPRB, 0.279837E+01_JPRB, 0.278843E+01_JPRB &
+  &, 0.277803E+01_JPRB, 0.276720E+01_JPRB, 0.275591E+01_JPRB &
+  &, 0.274419E+01_JPRB, 0.273201E+01_JPRB, 0.271945E+01_JPRB, 0.270645E+01_JPRB &
+  &, 0.269302E+01_JPRB, 0.267888E+01_JPRB, 0.266502E+01_JPRB &
+  &, 0.265046E+01_JPRB, 0.263548E+01_JPRB, 0.262019E+01_JPRB, 0.260453E+01_JPRB &
+  &, 0.258852E+01_JPRB, 0.257214E+01_JPRB, 0.255545E+01_JPRB &
+  &, 0.253849E+01_JPRB, 0.252118E+01_JPRB, 0.250359E+01_JPRB, 0.248570E+01_JPRB &
+  &, 0.246748E+01_JPRB, 0.244905E+01_JPRB, 0.243034E+01_JPRB &
+  &, 0.241136E+01_JPRB, 0.239215E+01_JPRB, 0.237273E+01_JPRB, 0.235301E+01_JPRB &
+  &, 0.233313E+01_JPRB, 0.231305E+01_JPRB, 0.229275E+01_JPRB &
+  &, 0.227223E+01_JPRB, 0.225160E+01_JPRB, 0.223075E+01_JPRB, 0.220970E+01_JPRB &
+  &, 0.218854E+01_JPRB, 0.216724E+01_JPRB, 0.214574E+01_JPRB/)
+XCW( 896, :) = (/ &
+  &  0.112761E+01_JPRB, 0.115998E+01_JPRB, 0.119251E+01_JPRB, 0.122518E+01_JPRB &
+  &, 0.125797E+01_JPRB, 0.129085E+01_JPRB, 0.132382E+01_JPRB &
+  &, 0.135685E+01_JPRB, 0.138993E+01_JPRB, 0.142303E+01_JPRB, 0.145615E+01_JPRB &
+  &, 0.148926E+01_JPRB, 0.152234E+01_JPRB, 0.155537E+01_JPRB &
+  &, 0.158835E+01_JPRB, 0.162123E+01_JPRB, 0.165403E+01_JPRB, 0.168671E+01_JPRB &
+  &, 0.171925E+01_JPRB, 0.175164E+01_JPRB, 0.178386E+01_JPRB &
+  &, 0.181589E+01_JPRB, 0.184771E+01_JPRB, 0.187931E+01_JPRB, 0.191068E+01_JPRB &
+  &, 0.194178E+01_JPRB, 0.197261E+01_JPRB, 0.200315E+01_JPRB &
+  &, 0.203338E+01_JPRB, 0.206329E+01_JPRB, 0.209287E+01_JPRB, 0.212208E+01_JPRB &
+  &, 0.215093E+01_JPRB, 0.217940E+01_JPRB, 0.220747E+01_JPRB &
+  &, 0.223513E+01_JPRB, 0.226236E+01_JPRB, 0.228916E+01_JPRB, 0.231550E+01_JPRB &
+  &, 0.234138E+01_JPRB, 0.236679E+01_JPRB, 0.239172E+01_JPRB &
+  &, 0.241614E+01_JPRB, 0.244006E+01_JPRB, 0.246346E+01_JPRB, 0.248633E+01_JPRB &
+  &, 0.250867E+01_JPRB, 0.253047E+01_JPRB, 0.255171E+01_JPRB &
+  &, 0.257238E+01_JPRB, 0.259250E+01_JPRB, 0.261204E+01_JPRB, 0.263099E+01_JPRB &
+  &, 0.264937E+01_JPRB, 0.266714E+01_JPRB, 0.268430E+01_JPRB &
+  &, 0.270091E+01_JPRB, 0.271688E+01_JPRB, 0.273224E+01_JPRB, 0.274698E+01_JPRB &
+  &, 0.276113E+01_JPRB, 0.277463E+01_JPRB, 0.278753E+01_JPRB &
+  &, 0.279980E+01_JPRB, 0.281144E+01_JPRB, 0.282246E+01_JPRB, 0.283286E+01_JPRB &
+  &, 0.284261E+01_JPRB, 0.285176E+01_JPRB, 0.286029E+01_JPRB &
+  &, 0.286816E+01_JPRB, 0.287544E+01_JPRB, 0.288207E+01_JPRB, 0.288809E+01_JPRB &
+  &, 0.289348E+01_JPRB, 0.289827E+01_JPRB, 0.290245E+01_JPRB &
+  &, 0.290599E+01_JPRB, 0.290896E+01_JPRB, 0.291129E+01_JPRB, 0.291302E+01_JPRB &
+  &, 0.291416E+01_JPRB, 0.291470E+01_JPRB, 0.291468E+01_JPRB &
+  &, 0.291406E+01_JPRB, 0.291285E+01_JPRB, 0.291107E+01_JPRB, 0.290870E+01_JPRB &
+  &, 0.290580E+01_JPRB, 0.290231E+01_JPRB, 0.289828E+01_JPRB &
+  &, 0.289371E+01_JPRB, 0.288861E+01_JPRB, 0.288297E+01_JPRB, 0.287677E+01_JPRB &
+  &, 0.287007E+01_JPRB, 0.286288E+01_JPRB, 0.285516E+01_JPRB &
+  &, 0.284682E+01_JPRB, 0.283824E+01_JPRB, 0.282904E+01_JPRB, 0.281936E+01_JPRB &
+  &, 0.280925E+01_JPRB, 0.279862E+01_JPRB, 0.278757E+01_JPRB &
+  &, 0.277609E+01_JPRB, 0.276414E+01_JPRB, 0.275177E+01_JPRB, 0.273899E+01_JPRB &
+  &, 0.272578E+01_JPRB, 0.271220E+01_JPRB, 0.269820E+01_JPRB &
+  &, 0.268380E+01_JPRB, 0.266906E+01_JPRB, 0.265392E+01_JPRB, 0.263840E+01_JPRB &
+  &, 0.262257E+01_JPRB, 0.260641E+01_JPRB, 0.258989E+01_JPRB &
+  &, 0.257304E+01_JPRB, 0.255589E+01_JPRB, 0.253840E+01_JPRB, 0.252065E+01_JPRB &
+  &, 0.250261E+01_JPRB, 0.248426E+01_JPRB, 0.246567E+01_JPRB &
+  &, 0.244681E+01_JPRB, 0.242771E+01_JPRB, 0.240834E+01_JPRB, 0.238877E+01_JPRB &
+  &, 0.236892E+01_JPRB, 0.234892E+01_JPRB, 0.232868E+01_JPRB &
+  &, 0.230823E+01_JPRB, 0.228759E+01_JPRB, 0.226679E+01_JPRB, 0.224584E+01_JPRB &
+  &, 0.222471E+01_JPRB, 0.220343E+01_JPRB, 0.218195E+01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART128',1,ZHOOK_HANDLE)
+END SUBROUTINE PART128
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART129
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART129',0,ZHOOK_HANDLE)
+
+XCW( 897, :) = (/ &
+  &  0.112821E+01_JPRB, 0.116075E+01_JPRB, 0.119345E+01_JPRB, 0.122629E+01_JPRB &
+  &, 0.125926E+01_JPRB, 0.129233E+01_JPRB, 0.132549E+01_JPRB &
+  &, 0.135872E+01_JPRB, 0.139200E+01_JPRB, 0.142532E+01_JPRB, 0.145865E+01_JPRB &
+  &, 0.149197E+01_JPRB, 0.152528E+01_JPRB, 0.155854E+01_JPRB &
+  &, 0.159175E+01_JPRB, 0.162488E+01_JPRB, 0.165787E+01_JPRB, 0.169085E+01_JPRB &
+  &, 0.172364E+01_JPRB, 0.175629E+01_JPRB, 0.178877E+01_JPRB &
+  &, 0.182107E+01_JPRB, 0.185316E+01_JPRB, 0.188504E+01_JPRB, 0.191668E+01_JPRB &
+  &, 0.194807E+01_JPRB, 0.197919E+01_JPRB, 0.201002E+01_JPRB &
+  &, 0.204055E+01_JPRB, 0.207076E+01_JPRB, 0.210064E+01_JPRB, 0.213016E+01_JPRB &
+  &, 0.215932E+01_JPRB, 0.218810E+01_JPRB, 0.221649E+01_JPRB &
+  &, 0.224447E+01_JPRB, 0.227202E+01_JPRB, 0.229914E+01_JPRB, 0.232581E+01_JPRB &
+  &, 0.235203E+01_JPRB, 0.237777E+01_JPRB, 0.240303E+01_JPRB &
+  &, 0.242779E+01_JPRB, 0.245206E+01_JPRB, 0.247571E+01_JPRB, 0.249902E+01_JPRB &
+  &, 0.252171E+01_JPRB, 0.254385E+01_JPRB, 0.256544E+01_JPRB &
+  &, 0.258645E+01_JPRB, 0.260694E+01_JPRB, 0.262684E+01_JPRB, 0.264614E+01_JPRB &
+  &, 0.266487E+01_JPRB, 0.268301E+01_JPRB, 0.270053E+01_JPRB &
+  &, 0.271749E+01_JPRB, 0.273382E+01_JPRB, 0.274955E+01_JPRB, 0.276466E+01_JPRB &
+  &, 0.277915E+01_JPRB, 0.279304E+01_JPRB, 0.280625E+01_JPRB &
+  &, 0.281891E+01_JPRB, 0.283091E+01_JPRB, 0.284229E+01_JPRB, 0.285304E+01_JPRB &
+  &, 0.286318E+01_JPRB, 0.287267E+01_JPRB, 0.288151E+01_JPRB &
+  &, 0.288978E+01_JPRB, 0.289740E+01_JPRB, 0.290441E+01_JPRB, 0.291078E+01_JPRB &
+  &, 0.291652E+01_JPRB, 0.292157E+01_JPRB, 0.292617E+01_JPRB &
+  &, 0.293007E+01_JPRB, 0.293334E+01_JPRB, 0.293603E+01_JPRB, 0.293812E+01_JPRB &
+  &, 0.293960E+01_JPRB, 0.294047E+01_JPRB, 0.294075E+01_JPRB &
+  &, 0.294046E+01_JPRB, 0.293955E+01_JPRB, 0.293810E+01_JPRB, 0.293606E+01_JPRB &
+  &, 0.293345E+01_JPRB, 0.293029E+01_JPRB, 0.292659E+01_JPRB &
+  &, 0.292231E+01_JPRB, 0.291749E+01_JPRB, 0.291214E+01_JPRB, 0.290625E+01_JPRB &
+  &, 0.289983E+01_JPRB, 0.289292E+01_JPRB, 0.288547E+01_JPRB &
+  &, 0.287751E+01_JPRB, 0.286909E+01_JPRB, 0.286016E+01_JPRB, 0.285074E+01_JPRB &
+  &, 0.284085E+01_JPRB, 0.283051E+01_JPRB, 0.281971E+01_JPRB &
+  &, 0.280843E+01_JPRB, 0.279673E+01_JPRB, 0.278459E+01_JPRB, 0.277204E+01_JPRB &
+  &, 0.275905E+01_JPRB, 0.274565E+01_JPRB, 0.273187E+01_JPRB &
+  &, 0.271767E+01_JPRB, 0.270309E+01_JPRB, 0.268815E+01_JPRB, 0.267283E+01_JPRB &
+  &, 0.265719E+01_JPRB, 0.264116E+01_JPRB, 0.262482E+01_JPRB &
+  &, 0.260814E+01_JPRB, 0.259110E+01_JPRB, 0.257382E+01_JPRB, 0.255617E+01_JPRB &
+  &, 0.253828E+01_JPRB, 0.252006E+01_JPRB, 0.250155E+01_JPRB &
+  &, 0.248282E+01_JPRB, 0.246383E+01_JPRB, 0.244457E+01_JPRB, 0.242504E+01_JPRB &
+  &, 0.240534E+01_JPRB, 0.238537E+01_JPRB, 0.236522E+01_JPRB &
+  &, 0.234484E+01_JPRB, 0.232426E+01_JPRB, 0.230351E+01_JPRB, 0.228261E+01_JPRB &
+  &, 0.226146E+01_JPRB, 0.224021E+01_JPRB, 0.221881E+01_JPRB/)
+XCW( 898, :) = (/ &
+  &  0.112882E+01_JPRB, 0.116152E+01_JPRB, 0.119440E+01_JPRB, 0.122742E+01_JPRB &
+  &, 0.126057E+01_JPRB, 0.129383E+01_JPRB, 0.132718E+01_JPRB &
+  &, 0.136061E+01_JPRB, 0.139410E+01_JPRB, 0.142762E+01_JPRB, 0.146117E+01_JPRB &
+  &, 0.149472E+01_JPRB, 0.152825E+01_JPRB, 0.156174E+01_JPRB &
+  &, 0.159519E+01_JPRB, 0.162856E+01_JPRB, 0.166184E+01_JPRB, 0.169502E+01_JPRB &
+  &, 0.172807E+01_JPRB, 0.176098E+01_JPRB, 0.179373E+01_JPRB &
+  &, 0.182629E+01_JPRB, 0.185866E+01_JPRB, 0.189082E+01_JPRB, 0.192274E+01_JPRB &
+  &, 0.195442E+01_JPRB, 0.198583E+01_JPRB, 0.201695E+01_JPRB &
+  &, 0.204778E+01_JPRB, 0.207830E+01_JPRB, 0.210848E+01_JPRB, 0.213831E+01_JPRB &
+  &, 0.216779E+01_JPRB, 0.219689E+01_JPRB, 0.222559E+01_JPRB &
+  &, 0.225389E+01_JPRB, 0.228178E+01_JPRB, 0.230923E+01_JPRB, 0.233624E+01_JPRB &
+  &, 0.236279E+01_JPRB, 0.238887E+01_JPRB, 0.241447E+01_JPRB &
+  &, 0.243957E+01_JPRB, 0.246418E+01_JPRB, 0.248827E+01_JPRB, 0.251184E+01_JPRB &
+  &, 0.253488E+01_JPRB, 0.255737E+01_JPRB, 0.257932E+01_JPRB &
+  &, 0.260071E+01_JPRB, 0.262154E+01_JPRB, 0.264180E+01_JPRB, 0.266146E+01_JPRB &
+  &, 0.268055E+01_JPRB, 0.269900E+01_JPRB, 0.271696E+01_JPRB &
+  &, 0.273426E+01_JPRB, 0.275096E+01_JPRB, 0.276704E+01_JPRB, 0.278253E+01_JPRB &
+  &, 0.279739E+01_JPRB, 0.281163E+01_JPRB, 0.282525E+01_JPRB &
+  &, 0.283823E+01_JPRB, 0.285061E+01_JPRB, 0.286237E+01_JPRB, 0.287348E+01_JPRB &
+  &, 0.288396E+01_JPRB, 0.289382E+01_JPRB, 0.290305E+01_JPRB &
+  &, 0.291167E+01_JPRB, 0.291964E+01_JPRB, 0.292700E+01_JPRB, 0.293371E+01_JPRB &
+  &, 0.293983E+01_JPRB, 0.294531E+01_JPRB, 0.295018E+01_JPRB &
+  &, 0.295441E+01_JPRB, 0.295805E+01_JPRB, 0.296108E+01_JPRB, 0.296350E+01_JPRB &
+  &, 0.296532E+01_JPRB, 0.296653E+01_JPRB, 0.296715E+01_JPRB &
+  &, 0.296719E+01_JPRB, 0.296662E+01_JPRB, 0.296550E+01_JPRB, 0.296377E+01_JPRB &
+  &, 0.296149E+01_JPRB, 0.295863E+01_JPRB, 0.295523E+01_JPRB &
+  &, 0.295128E+01_JPRB, 0.294676E+01_JPRB, 0.294170E+01_JPRB, 0.293610E+01_JPRB &
+  &, 0.293000E+01_JPRB, 0.292334E+01_JPRB, 0.291621E+01_JPRB &
+  &, 0.290853E+01_JPRB, 0.290038E+01_JPRB, 0.289172E+01_JPRB, 0.288257E+01_JPRB &
+  &, 0.287294E+01_JPRB, 0.286283E+01_JPRB, 0.285228E+01_JPRB &
+  &, 0.284125E+01_JPRB, 0.282980E+01_JPRB, 0.281790E+01_JPRB, 0.280555E+01_JPRB &
+  &, 0.279279E+01_JPRB, 0.277963E+01_JPRB, 0.276602E+01_JPRB &
+  &, 0.275204E+01_JPRB, 0.273768E+01_JPRB, 0.272294E+01_JPRB, 0.270782E+01_JPRB &
+  &, 0.269233E+01_JPRB, 0.267649E+01_JPRB, 0.266029E+01_JPRB &
+  &, 0.264379E+01_JPRB, 0.262692E+01_JPRB, 0.260975E+01_JPRB, 0.259226E+01_JPRB &
+  &, 0.257452E+01_JPRB, 0.255646E+01_JPRB, 0.253808E+01_JPRB &
+  &, 0.251943E+01_JPRB, 0.250057E+01_JPRB, 0.248142E+01_JPRB, 0.246201E+01_JPRB &
+  &, 0.244235E+01_JPRB, 0.242248E+01_JPRB, 0.240241E+01_JPRB &
+  &, 0.238211E+01_JPRB, 0.236160E+01_JPRB, 0.234092E+01_JPRB, 0.232001E+01_JPRB &
+  &, 0.229897E+01_JPRB, 0.227776E+01_JPRB, 0.225640E+01_JPRB/)
+XCW( 899, :) = (/ &
+  &  0.112943E+01_JPRB, 0.116230E+01_JPRB, 0.119535E+01_JPRB, 0.122855E+01_JPRB &
+  &, 0.126188E+01_JPRB, 0.129533E+01_JPRB, 0.132888E+01_JPRB &
+  &, 0.136252E+01_JPRB, 0.139621E+01_JPRB, 0.142995E+01_JPRB, 0.146371E+01_JPRB &
+  &, 0.149748E+01_JPRB, 0.153124E+01_JPRB, 0.156497E+01_JPRB &
+  &, 0.159865E+01_JPRB, 0.163227E+01_JPRB, 0.166580E+01_JPRB, 0.169923E+01_JPRB &
+  &, 0.173254E+01_JPRB, 0.176571E+01_JPRB, 0.179873E+01_JPRB &
+  &, 0.183157E+01_JPRB, 0.186421E+01_JPRB, 0.189665E+01_JPRB, 0.192886E+01_JPRB &
+  &, 0.196082E+01_JPRB, 0.199253E+01_JPRB, 0.202395E+01_JPRB &
+  &, 0.205509E+01_JPRB, 0.208590E+01_JPRB, 0.211640E+01_JPRB, 0.214655E+01_JPRB &
+  &, 0.217634E+01_JPRB, 0.220576E+01_JPRB, 0.223479E+01_JPRB &
+  &, 0.226342E+01_JPRB, 0.229163E+01_JPRB, 0.231941E+01_JPRB, 0.234676E+01_JPRB &
+  &, 0.237364E+01_JPRB, 0.240007E+01_JPRB, 0.242602E+01_JPRB &
+  &, 0.245147E+01_JPRB, 0.247643E+01_JPRB, 0.250087E+01_JPRB, 0.252479E+01_JPRB &
+  &, 0.254819E+01_JPRB, 0.257104E+01_JPRB, 0.259330E+01_JPRB &
+  &, 0.261510E+01_JPRB, 0.263629E+01_JPRB, 0.265690E+01_JPRB, 0.267694E+01_JPRB &
+  &, 0.269640E+01_JPRB, 0.271528E+01_JPRB, 0.273354E+01_JPRB &
+  &, 0.275121E+01_JPRB, 0.276829E+01_JPRB, 0.278475E+01_JPRB, 0.280059E+01_JPRB &
+  &, 0.281582E+01_JPRB, 0.283043E+01_JPRB, 0.284443E+01_JPRB &
+  &, 0.285780E+01_JPRB, 0.287054E+01_JPRB, 0.288265E+01_JPRB, 0.289411E+01_JPRB &
+  &, 0.290500E+01_JPRB, 0.291523E+01_JPRB, 0.292480E+01_JPRB &
+  &, 0.293381E+01_JPRB, 0.294214E+01_JPRB, 0.294987E+01_JPRB, 0.295696E+01_JPRB &
+  &, 0.296342E+01_JPRB, 0.296924E+01_JPRB, 0.297447E+01_JPRB &
+  &, 0.297907E+01_JPRB, 0.298308E+01_JPRB, 0.298645E+01_JPRB, 0.298920E+01_JPRB &
+  &, 0.299138E+01_JPRB, 0.299294E+01_JPRB, 0.299390E+01_JPRB &
+  &, 0.299426E+01_JPRB, 0.299406E+01_JPRB, 0.299326E+01_JPRB, 0.299186E+01_JPRB &
+  &, 0.298990E+01_JPRB, 0.298737E+01_JPRB, 0.298428E+01_JPRB &
+  &, 0.298063E+01_JPRB, 0.297642E+01_JPRB, 0.297169E+01_JPRB, 0.296639E+01_JPRB &
+  &, 0.296058E+01_JPRB, 0.295421E+01_JPRB, 0.294737E+01_JPRB &
+  &, 0.293998E+01_JPRB, 0.293182E+01_JPRB, 0.292373E+01_JPRB, 0.291485E+01_JPRB &
+  &, 0.290546E+01_JPRB, 0.289565E+01_JPRB, 0.288533E+01_JPRB &
+  &, 0.287456E+01_JPRB, 0.286336E+01_JPRB, 0.285167E+01_JPRB, 0.283956E+01_JPRB &
+  &, 0.282705E+01_JPRB, 0.281412E+01_JPRB, 0.280075E+01_JPRB &
+  &, 0.278695E+01_JPRB, 0.277281E+01_JPRB, 0.275824E+01_JPRB, 0.274333E+01_JPRB &
+  &, 0.272804E+01_JPRB, 0.271236E+01_JPRB, 0.269635E+01_JPRB &
+  &, 0.268004E+01_JPRB, 0.266335E+01_JPRB, 0.264630E+01_JPRB, 0.262898E+01_JPRB &
+  &, 0.261135E+01_JPRB, 0.259344E+01_JPRB, 0.257516E+01_JPRB &
+  &, 0.255670E+01_JPRB, 0.253792E+01_JPRB, 0.251884E+01_JPRB, 0.249955E+01_JPRB &
+  &, 0.248000E+01_JPRB, 0.246023E+01_JPRB, 0.244026E+01_JPRB &
+  &, 0.241999E+01_JPRB, 0.239957E+01_JPRB, 0.237895E+01_JPRB, 0.235811E+01_JPRB &
+  &, 0.233713E+01_JPRB, 0.231596E+01_JPRB, 0.229458E+01_JPRB/)
+XCW( 900, :) = (/ &
+  &  0.113004E+01_JPRB, 0.116309E+01_JPRB, 0.119631E+01_JPRB, 0.122969E+01_JPRB &
+  &, 0.126321E+01_JPRB, 0.129685E+01_JPRB, 0.133060E+01_JPRB &
+  &, 0.136443E+01_JPRB, 0.139834E+01_JPRB, 0.143229E+01_JPRB, 0.146627E+01_JPRB &
+  &, 0.150027E+01_JPRB, 0.153426E+01_JPRB, 0.156822E+01_JPRB &
+  &, 0.160215E+01_JPRB, 0.163601E+01_JPRB, 0.166979E+01_JPRB, 0.170348E+01_JPRB &
+  &, 0.173705E+01_JPRB, 0.177049E+01_JPRB, 0.180377E+01_JPRB &
+  &, 0.183689E+01_JPRB, 0.186982E+01_JPRB, 0.190254E+01_JPRB, 0.193503E+01_JPRB &
+  &, 0.196729E+01_JPRB, 0.199929E+01_JPRB, 0.203102E+01_JPRB &
+  &, 0.206246E+01_JPRB, 0.209358E+01_JPRB, 0.212439E+01_JPRB, 0.215486E+01_JPRB &
+  &, 0.218497E+01_JPRB, 0.221471E+01_JPRB, 0.224407E+01_JPRB &
+  &, 0.227303E+01_JPRB, 0.230158E+01_JPRB, 0.232970E+01_JPRB, 0.235738E+01_JPRB &
+  &, 0.238462E+01_JPRB, 0.241139E+01_JPRB, 0.243768E+01_JPRB &
+  &, 0.246348E+01_JPRB, 0.248880E+01_JPRB, 0.251360E+01_JPRB, 0.253788E+01_JPRB &
+  &, 0.256164E+01_JPRB, 0.258485E+01_JPRB, 0.260753E+01_JPRB &
+  &, 0.262965E+01_JPRB, 0.265120E+01_JPRB, 0.267219E+01_JPRB, 0.269259E+01_JPRB &
+  &, 0.271220E+01_JPRB, 0.273167E+01_JPRB, 0.275031E+01_JPRB &
+  &, 0.276835E+01_JPRB, 0.278580E+01_JPRB, 0.280264E+01_JPRB, 0.281886E+01_JPRB &
+  &, 0.283448E+01_JPRB, 0.284945E+01_JPRB, 0.286377E+01_JPRB &
+  &, 0.287757E+01_JPRB, 0.289070E+01_JPRB, 0.290318E+01_JPRB, 0.291505E+01_JPRB &
+  &, 0.292627E+01_JPRB, 0.293688E+01_JPRB, 0.294685E+01_JPRB &
+  &, 0.295621E+01_JPRB, 0.296493E+01_JPRB, 0.297299E+01_JPRB, 0.298045E+01_JPRB &
+  &, 0.298728E+01_JPRB, 0.299350E+01_JPRB, 0.299908E+01_JPRB &
+  &, 0.300405E+01_JPRB, 0.300836E+01_JPRB, 0.301213E+01_JPRB, 0.301525E+01_JPRB &
+  &, 0.301776E+01_JPRB, 0.301948E+01_JPRB, 0.302098E+01_JPRB &
+  &, 0.302169E+01_JPRB, 0.302181E+01_JPRB, 0.302136E+01_JPRB, 0.302031E+01_JPRB &
+  &, 0.301863E+01_JPRB, 0.301648E+01_JPRB, 0.301370E+01_JPRB &
+  &, 0.301033E+01_JPRB, 0.300649E+01_JPRB, 0.300207E+01_JPRB, 0.299708E+01_JPRB &
+  &, 0.299157E+01_JPRB, 0.298553E+01_JPRB, 0.297896E+01_JPRB &
+  &, 0.297185E+01_JPRB, 0.296428E+01_JPRB, 0.295618E+01_JPRB, 0.294744E+01_JPRB &
+  &, 0.293847E+01_JPRB, 0.292890E+01_JPRB, 0.291889E+01_JPRB &
+  &, 0.290831E+01_JPRB, 0.289741E+01_JPRB, 0.288598E+01_JPRB, 0.287413E+01_JPRB &
+  &, 0.286182E+01_JPRB, 0.284909E+01_JPRB, 0.283596E+01_JPRB &
+  &, 0.282240E+01_JPRB, 0.280849E+01_JPRB, 0.279415E+01_JPRB, 0.277940E+01_JPRB &
+  &, 0.276433E+01_JPRB, 0.274885E+01_JPRB, 0.273300E+01_JPRB &
+  &, 0.271683E+01_JPRB, 0.270033E+01_JPRB, 0.268347E+01_JPRB, 0.266622E+01_JPRB &
+  &, 0.264881E+01_JPRB, 0.263101E+01_JPRB, 0.261294E+01_JPRB &
+  &, 0.259457E+01_JPRB, 0.257588E+01_JPRB, 0.255700E+01_JPRB, 0.253777E+01_JPRB &
+  &, 0.251835E+01_JPRB, 0.249869E+01_JPRB, 0.247877E+01_JPRB &
+  &, 0.245860E+01_JPRB, 0.243826E+01_JPRB, 0.241773E+01_JPRB, 0.239697E+01_JPRB &
+  &, 0.237599E+01_JPRB, 0.235488E+01_JPRB, 0.233354E+01_JPRB/)
+XCW( 901, :) = (/ &
+  &  0.113066E+01_JPRB, 0.116388E+01_JPRB, 0.119728E+01_JPRB, 0.123084E+01_JPRB &
+  &, 0.126455E+01_JPRB, 0.129838E+01_JPRB, 0.133233E+01_JPRB &
+  &, 0.136637E+01_JPRB, 0.140048E+01_JPRB, 0.143465E+01_JPRB, 0.146886E+01_JPRB &
+  &, 0.150308E+01_JPRB, 0.153730E+01_JPRB, 0.157151E+01_JPRB &
+  &, 0.160567E+01_JPRB, 0.163978E+01_JPRB, 0.167382E+01_JPRB, 0.170777E+01_JPRB &
+  &, 0.174160E+01_JPRB, 0.177530E+01_JPRB, 0.180886E+01_JPRB &
+  &, 0.184226E+01_JPRB, 0.187547E+01_JPRB, 0.190848E+01_JPRB, 0.194127E+01_JPRB &
+  &, 0.197382E+01_JPRB, 0.200612E+01_JPRB, 0.203815E+01_JPRB &
+  &, 0.206990E+01_JPRB, 0.210134E+01_JPRB, 0.213246E+01_JPRB, 0.216325E+01_JPRB &
+  &, 0.219369E+01_JPRB, 0.222376E+01_JPRB, 0.225345E+01_JPRB &
+  &, 0.228274E+01_JPRB, 0.231163E+01_JPRB, 0.234009E+01_JPRB, 0.236812E+01_JPRB &
+  &, 0.239570E+01_JPRB, 0.242282E+01_JPRB, 0.244947E+01_JPRB &
+  &, 0.247563E+01_JPRB, 0.250130E+01_JPRB, 0.252646E+01_JPRB, 0.255110E+01_JPRB &
+  &, 0.257523E+01_JPRB, 0.259881E+01_JPRB, 0.262186E+01_JPRB &
+  &, 0.264434E+01_JPRB, 0.266626E+01_JPRB, 0.268763E+01_JPRB, 0.270842E+01_JPRB &
+  &, 0.272862E+01_JPRB, 0.274824E+01_JPRB, 0.276727E+01_JPRB &
+  &, 0.278569E+01_JPRB, 0.280351E+01_JPRB, 0.282073E+01_JPRB, 0.283733E+01_JPRB &
+  &, 0.285330E+01_JPRB, 0.286869E+01_JPRB, 0.288345E+01_JPRB &
+  &, 0.289757E+01_JPRB, 0.291108E+01_JPRB, 0.292396E+01_JPRB, 0.293621E+01_JPRB &
+  &, 0.294781E+01_JPRB, 0.295880E+01_JPRB, 0.296915E+01_JPRB &
+  &, 0.297888E+01_JPRB, 0.298796E+01_JPRB, 0.299642E+01_JPRB, 0.300426E+01_JPRB &
+  &, 0.301146E+01_JPRB, 0.301803E+01_JPRB, 0.302399E+01_JPRB &
+  &, 0.302932E+01_JPRB, 0.303403E+01_JPRB, 0.303814E+01_JPRB, 0.304162E+01_JPRB &
+  &, 0.304446E+01_JPRB, 0.304677E+01_JPRB, 0.304841E+01_JPRB &
+  &, 0.304948E+01_JPRB, 0.304996E+01_JPRB, 0.304983E+01_JPRB, 0.304914E+01_JPRB &
+  &, 0.304784E+01_JPRB, 0.304596E+01_JPRB, 0.304353E+01_JPRB &
+  &, 0.304054E+01_JPRB, 0.303699E+01_JPRB, 0.303288E+01_JPRB, 0.302820E+01_JPRB &
+  &, 0.302300E+01_JPRB, 0.301727E+01_JPRB, 0.301099E+01_JPRB &
+  &, 0.300419E+01_JPRB, 0.299691E+01_JPRB, 0.298908E+01_JPRB, 0.298077E+01_JPRB &
+  &, 0.297198E+01_JPRB, 0.296269E+01_JPRB, 0.295292E+01_JPRB &
+  &, 0.294266E+01_JPRB, 0.293195E+01_JPRB, 0.292079E+01_JPRB, 0.290920E+01_JPRB &
+  &, 0.289707E+01_JPRB, 0.288463E+01_JPRB, 0.287175E+01_JPRB &
+  &, 0.285843E+01_JPRB, 0.284471E+01_JPRB, 0.283056E+01_JPRB, 0.281604E+01_JPRB &
+  &, 0.280114E+01_JPRB, 0.278588E+01_JPRB, 0.277023E+01_JPRB &
+  &, 0.275427E+01_JPRB, 0.273792E+01_JPRB, 0.272125E+01_JPRB, 0.270424E+01_JPRB &
+  &, 0.268691E+01_JPRB, 0.266928E+01_JPRB, 0.265132E+01_JPRB &
+  &, 0.263306E+01_JPRB, 0.261457E+01_JPRB, 0.259578E+01_JPRB, 0.257669E+01_JPRB &
+  &, 0.255734E+01_JPRB, 0.253781E+01_JPRB, 0.251794E+01_JPRB &
+  &, 0.249793E+01_JPRB, 0.247764E+01_JPRB, 0.245714E+01_JPRB, 0.243646E+01_JPRB &
+  &, 0.241555E+01_JPRB, 0.239451E+01_JPRB, 0.237323E+01_JPRB/)
+XCW( 902, :) = (/ &
+  &  0.113129E+01_JPRB, 0.116467E+01_JPRB, 0.119825E+01_JPRB, 0.123200E+01_JPRB &
+  &, 0.126589E+01_JPRB, 0.129993E+01_JPRB, 0.133408E+01_JPRB &
+  &, 0.136832E+01_JPRB, 0.140265E+01_JPRB, 0.143703E+01_JPRB, 0.147146E+01_JPRB &
+  &, 0.150591E+01_JPRB, 0.154037E+01_JPRB, 0.157482E+01_JPRB &
+  &, 0.160923E+01_JPRB, 0.164359E+01_JPRB, 0.167788E+01_JPRB, 0.171209E+01_JPRB &
+  &, 0.174619E+01_JPRB, 0.178017E+01_JPRB, 0.181400E+01_JPRB &
+  &, 0.184768E+01_JPRB, 0.188117E+01_JPRB, 0.191447E+01_JPRB, 0.194756E+01_JPRB &
+  &, 0.198041E+01_JPRB, 0.201302E+01_JPRB, 0.204535E+01_JPRB &
+  &, 0.207741E+01_JPRB, 0.210917E+01_JPRB, 0.214061E+01_JPRB, 0.217172E+01_JPRB &
+  &, 0.220249E+01_JPRB, 0.223290E+01_JPRB, 0.226292E+01_JPRB &
+  &, 0.229256E+01_JPRB, 0.232179E+01_JPRB, 0.235059E+01_JPRB, 0.237897E+01_JPRB &
+  &, 0.240691E+01_JPRB, 0.243437E+01_JPRB, 0.246138E+01_JPRB &
+  &, 0.248790E+01_JPRB, 0.251393E+01_JPRB, 0.253946E+01_JPRB, 0.256447E+01_JPRB &
+  &, 0.258896E+01_JPRB, 0.261292E+01_JPRB, 0.263634E+01_JPRB &
+  &, 0.265920E+01_JPRB, 0.268150E+01_JPRB, 0.270324E+01_JPRB, 0.272441E+01_JPRB &
+  &, 0.274500E+01_JPRB, 0.276500E+01_JPRB, 0.278441E+01_JPRB &
+  &, 0.280322E+01_JPRB, 0.282143E+01_JPRB, 0.283903E+01_JPRB, 0.285602E+01_JPRB &
+  &, 0.287240E+01_JPRB, 0.288817E+01_JPRB, 0.290330E+01_JPRB &
+  &, 0.291781E+01_JPRB, 0.293171E+01_JPRB, 0.294496E+01_JPRB, 0.295759E+01_JPRB &
+  &, 0.296960E+01_JPRB, 0.298098E+01_JPRB, 0.299170E+01_JPRB &
+  &, 0.300182E+01_JPRB, 0.301128E+01_JPRB, 0.302014E+01_JPRB, 0.302835E+01_JPRB &
+  &, 0.303592E+01_JPRB, 0.304290E+01_JPRB, 0.304922E+01_JPRB &
+  &, 0.305493E+01_JPRB, 0.306001E+01_JPRB, 0.306448E+01_JPRB, 0.306829E+01_JPRB &
+  &, 0.307157E+01_JPRB, 0.307420E+01_JPRB, 0.307623E+01_JPRB &
+  &, 0.307764E+01_JPRB, 0.307848E+01_JPRB, 0.307871E+01_JPRB, 0.307832E+01_JPRB &
+  &, 0.307739E+01_JPRB, 0.307586E+01_JPRB, 0.307376E+01_JPRB &
+  &, 0.307110E+01_JPRB, 0.306787E+01_JPRB, 0.306408E+01_JPRB, 0.305975E+01_JPRB &
+  &, 0.305487E+01_JPRB, 0.304946E+01_JPRB, 0.304349E+01_JPRB &
+  &, 0.303700E+01_JPRB, 0.302999E+01_JPRB, 0.302249E+01_JPRB, 0.301448E+01_JPRB &
+  &, 0.300595E+01_JPRB, 0.299696E+01_JPRB, 0.298743E+01_JPRB &
+  &, 0.297749E+01_JPRB, 0.296702E+01_JPRB, 0.295614E+01_JPRB, 0.294478E+01_JPRB &
+  &, 0.293300E+01_JPRB, 0.292074E+01_JPRB, 0.290806E+01_JPRB &
+  &, 0.289500E+01_JPRB, 0.288148E+01_JPRB, 0.286757E+01_JPRB, 0.285329E+01_JPRB &
+  &, 0.283857E+01_JPRB, 0.282354E+01_JPRB, 0.280806E+01_JPRB &
+  &, 0.279226E+01_JPRB, 0.277612E+01_JPRB, 0.275960E+01_JPRB, 0.274278E+01_JPRB &
+  &, 0.272564E+01_JPRB, 0.270813E+01_JPRB, 0.269035E+01_JPRB &
+  &, 0.267226E+01_JPRB, 0.265388E+01_JPRB, 0.263433E+01_JPRB, 0.261624E+01_JPRB &
+  &, 0.259703E+01_JPRB, 0.257757E+01_JPRB, 0.255788E+01_JPRB &
+  &, 0.253794E+01_JPRB, 0.251775E+01_JPRB, 0.249735E+01_JPRB, 0.247670E+01_JPRB &
+  &, 0.245588E+01_JPRB, 0.243466E+01_JPRB, 0.241345E+01_JPRB/)
+XCW( 903, :) = (/ &
+  &  0.113192E+01_JPRB, 0.116548E+01_JPRB, 0.119923E+01_JPRB, 0.123316E+01_JPRB &
+  &, 0.126725E+01_JPRB, 0.130148E+01_JPRB, 0.133583E+01_JPRB &
+  &, 0.137029E+01_JPRB, 0.140483E+01_JPRB, 0.143944E+01_JPRB, 0.147409E+01_JPRB &
+  &, 0.150877E+01_JPRB, 0.154347E+01_JPRB, 0.157816E+01_JPRB &
+  &, 0.161282E+01_JPRB, 0.164743E+01_JPRB, 0.168198E+01_JPRB, 0.171645E+01_JPRB &
+  &, 0.175083E+01_JPRB, 0.178508E+01_JPRB, 0.181919E+01_JPRB &
+  &, 0.185314E+01_JPRB, 0.188693E+01_JPRB, 0.192052E+01_JPRB, 0.195391E+01_JPRB &
+  &, 0.198706E+01_JPRB, 0.201998E+01_JPRB, 0.205263E+01_JPRB &
+  &, 0.208500E+01_JPRB, 0.211708E+01_JPRB, 0.214884E+01_JPRB, 0.218029E+01_JPRB &
+  &, 0.221138E+01_JPRB, 0.224212E+01_JPRB, 0.227249E+01_JPRB &
+  &, 0.230246E+01_JPRB, 0.233204E+01_JPRB, 0.236119E+01_JPRB, 0.238993E+01_JPRB &
+  &, 0.241821E+01_JPRB, 0.244605E+01_JPRB, 0.247342E+01_JPRB &
+  &, 0.250031E+01_JPRB, 0.252670E+01_JPRB, 0.255260E+01_JPRB, 0.257798E+01_JPRB &
+  &, 0.260285E+01_JPRB, 0.262718E+01_JPRB, 0.265097E+01_JPRB &
+  &, 0.267422E+01_JPRB, 0.269691E+01_JPRB, 0.271904E+01_JPRB, 0.274058E+01_JPRB &
+  &, 0.276156E+01_JPRB, 0.278195E+01_JPRB, 0.280175E+01_JPRB &
+  &, 0.282095E+01_JPRB, 0.283956E+01_JPRB, 0.285754E+01_JPRB, 0.287494E+01_JPRB &
+  &, 0.289170E+01_JPRB, 0.290785E+01_JPRB, 0.292339E+01_JPRB &
+  &, 0.293829E+01_JPRB, 0.295258E+01_JPRB, 0.296623E+01_JPRB, 0.297927E+01_JPRB &
+  &, 0.299165E+01_JPRB, 0.300342E+01_JPRB, 0.301454E+01_JPRB &
+  &, 0.302504E+01_JPRB, 0.303490E+01_JPRB, 0.304412E+01_JPRB, 0.305274E+01_JPRB &
+  &, 0.306070E+01_JPRB, 0.306804E+01_JPRB, 0.307475E+01_JPRB &
+  &, 0.308086E+01_JPRB, 0.308630E+01_JPRB, 0.309117E+01_JPRB, 0.309538E+01_JPRB &
+  &, 0.309900E+01_JPRB, 0.310200E+01_JPRB, 0.310438E+01_JPRB &
+  &, 0.310618E+01_JPRB, 0.310736E+01_JPRB, 0.310794E+01_JPRB, 0.310795E+01_JPRB &
+  &, 0.310735E+01_JPRB, 0.310613E+01_JPRB, 0.310443E+01_JPRB &
+  &, 0.310210E+01_JPRB, 0.309920E+01_JPRB, 0.309574E+01_JPRB, 0.309174E+01_JPRB &
+  &, 0.308718E+01_JPRB, 0.308209E+01_JPRB, 0.307645E+01_JPRB &
+  &, 0.307027E+01_JPRB, 0.306357E+01_JPRB, 0.305638E+01_JPRB, 0.304865E+01_JPRB &
+  &, 0.304042E+01_JPRB, 0.303172E+01_JPRB, 0.302250E+01_JPRB &
+  &, 0.301281E+01_JPRB, 0.300263E+01_JPRB, 0.299203E+01_JPRB, 0.298090E+01_JPRB &
+  &, 0.296935E+01_JPRB, 0.295736E+01_JPRB, 0.294496E+01_JPRB &
+  &, 0.293211E+01_JPRB, 0.291884E+01_JPRB, 0.290518E+01_JPRB, 0.289110E+01_JPRB &
+  &, 0.287663E+01_JPRB, 0.286177E+01_JPRB, 0.284653E+01_JPRB &
+  &, 0.283095E+01_JPRB, 0.281497E+01_JPRB, 0.279866E+01_JPRB, 0.278200E+01_JPRB &
+  &, 0.276500E+01_JPRB, 0.274769E+01_JPRB, 0.273004E+01_JPRB &
+  &, 0.271212E+01_JPRB, 0.269386E+01_JPRB, 0.267532E+01_JPRB, 0.265654E+01_JPRB &
+  &, 0.263742E+01_JPRB, 0.261810E+01_JPRB, 0.259849E+01_JPRB &
+  &, 0.257867E+01_JPRB, 0.255854E+01_JPRB, 0.253826E+01_JPRB, 0.251771E+01_JPRB &
+  &, 0.249698E+01_JPRB, 0.247604E+01_JPRB, 0.245491E+01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART129',1,ZHOOK_HANDLE)
+END SUBROUTINE PART129
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART130
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART130',0,ZHOOK_HANDLE)
+
+XCW( 904, :) = (/ &
+  &  0.113255E+01_JPRB, 0.116629E+01_JPRB, 0.120022E+01_JPRB, 0.123434E+01_JPRB &
+  &, 0.126862E+01_JPRB, 0.130305E+01_JPRB, 0.133761E+01_JPRB &
+  &, 0.137227E+01_JPRB, 0.140703E+01_JPRB, 0.144186E+01_JPRB, 0.147674E+01_JPRB &
+  &, 0.151166E+01_JPRB, 0.154659E+01_JPRB, 0.158153E+01_JPRB &
+  &, 0.161644E+01_JPRB, 0.165131E+01_JPRB, 0.168612E+01_JPRB, 0.172086E+01_JPRB &
+  &, 0.175550E+01_JPRB, 0.179003E+01_JPRB, 0.182442E+01_JPRB &
+  &, 0.185867E+01_JPRB, 0.189274E+01_JPRB, 0.192663E+01_JPRB, 0.196032E+01_JPRB &
+  &, 0.199378E+01_JPRB, 0.202700E+01_JPRB, 0.205997E+01_JPRB &
+  &, 0.209266E+01_JPRB, 0.212507E+01_JPRB, 0.215716E+01_JPRB, 0.218893E+01_JPRB &
+  &, 0.222036E+01_JPRB, 0.225144E+01_JPRB, 0.228215E+01_JPRB &
+  &, 0.231248E+01_JPRB, 0.234240E+01_JPRB, 0.237191E+01_JPRB, 0.240100E+01_JPRB &
+  &, 0.242965E+01_JPRB, 0.245785E+01_JPRB, 0.248559E+01_JPRB &
+  &, 0.251284E+01_JPRB, 0.253961E+01_JPRB, 0.256588E+01_JPRB, 0.259165E+01_JPRB &
+  &, 0.261688E+01_JPRB, 0.264159E+01_JPRB, 0.266578E+01_JPRB &
+  &, 0.268941E+01_JPRB, 0.271248E+01_JPRB, 0.273500E+01_JPRB, 0.275694E+01_JPRB &
+  &, 0.277831E+01_JPRB, 0.279910E+01_JPRB, 0.281928E+01_JPRB &
+  &, 0.283888E+01_JPRB, 0.285789E+01_JPRB, 0.287628E+01_JPRB, 0.289406E+01_JPRB &
+  &, 0.291122E+01_JPRB, 0.292778E+01_JPRB, 0.294371E+01_JPRB &
+  &, 0.295902E+01_JPRB, 0.297370E+01_JPRB, 0.298775E+01_JPRB, 0.300118E+01_JPRB &
+  &, 0.301397E+01_JPRB, 0.302614E+01_JPRB, 0.303765E+01_JPRB &
+  &, 0.304855E+01_JPRB, 0.305881E+01_JPRB, 0.306844E+01_JPRB, 0.307601E+01_JPRB &
+  &, 0.308580E+01_JPRB, 0.309353E+01_JPRB, 0.310064E+01_JPRB &
+  &, 0.310710E+01_JPRB, 0.311295E+01_JPRB, 0.311819E+01_JPRB, 0.312277E+01_JPRB &
+  &, 0.312678E+01_JPRB, 0.313015E+01_JPRB, 0.313291E+01_JPRB &
+  &, 0.313509E+01_JPRB, 0.313664E+01_JPRB, 0.313760E+01_JPRB, 0.313795E+01_JPRB &
+  &, 0.313770E+01_JPRB, 0.313689E+01_JPRB, 0.313550E+01_JPRB &
+  &, 0.313351E+01_JPRB, 0.313098E+01_JPRB, 0.312786E+01_JPRB, 0.312419E+01_JPRB &
+  &, 0.311997E+01_JPRB, 0.311517E+01_JPRB, 0.310989E+01_JPRB &
+  &, 0.310404E+01_JPRB, 0.309767E+01_JPRB, 0.309076E+01_JPRB, 0.308334E+01_JPRB &
+  &, 0.307542E+01_JPRB, 0.306699E+01_JPRB, 0.305807E+01_JPRB &
+  &, 0.304868E+01_JPRB, 0.303880E+01_JPRB, 0.302845E+01_JPRB, 0.301762E+01_JPRB &
+  &, 0.300635E+01_JPRB, 0.299460E+01_JPRB, 0.298247E+01_JPRB &
+  &, 0.296985E+01_JPRB, 0.295684E+01_JPRB, 0.294340E+01_JPRB, 0.292952E+01_JPRB &
+  &, 0.291530E+01_JPRB, 0.290064E+01_JPRB, 0.288563E+01_JPRB &
+  &, 0.287024E+01_JPRB, 0.285449E+01_JPRB, 0.283835E+01_JPRB, 0.282189E+01_JPRB &
+  &, 0.280505E+01_JPRB, 0.278794E+01_JPRB, 0.277043E+01_JPRB &
+  &, 0.275264E+01_JPRB, 0.273456E+01_JPRB, 0.271620E+01_JPRB, 0.269753E+01_JPRB &
+  &, 0.267857E+01_JPRB, 0.265934E+01_JPRB, 0.263987E+01_JPRB &
+  &, 0.262013E+01_JPRB, 0.260013E+01_JPRB, 0.257990E+01_JPRB, 0.255947E+01_JPRB &
+  &, 0.253879E+01_JPRB, 0.251794E+01_JPRB, 0.249677E+01_JPRB/)
+XCW( 905, :) = (/ &
+  &  0.113320E+01_JPRB, 0.116710E+01_JPRB, 0.120122E+01_JPRB, 0.123553E+01_JPRB &
+  &, 0.127000E+01_JPRB, 0.130463E+01_JPRB, 0.133940E+01_JPRB &
+  &, 0.137428E+01_JPRB, 0.140925E+01_JPRB, 0.144430E+01_JPRB, 0.147942E+01_JPRB &
+  &, 0.151457E+01_JPRB, 0.154975E+01_JPRB, 0.158493E+01_JPRB &
+  &, 0.162009E+01_JPRB, 0.165522E+01_JPRB, 0.169030E+01_JPRB, 0.172530E+01_JPRB &
+  &, 0.176022E+01_JPRB, 0.179503E+01_JPRB, 0.182971E+01_JPRB &
+  &, 0.186425E+01_JPRB, 0.189862E+01_JPRB, 0.193280E+01_JPRB, 0.196679E+01_JPRB &
+  &, 0.200057E+01_JPRB, 0.203411E+01_JPRB, 0.206739E+01_JPRB &
+  &, 0.210040E+01_JPRB, 0.213313E+01_JPRB, 0.216556E+01_JPRB, 0.219767E+01_JPRB &
+  &, 0.222944E+01_JPRB, 0.226086E+01_JPRB, 0.229192E+01_JPRB &
+  &, 0.232259E+01_JPRB, 0.235287E+01_JPRB, 0.238275E+01_JPRB, 0.241219E+01_JPRB &
+  &, 0.244121E+01_JPRB, 0.246977E+01_JPRB, 0.249788E+01_JPRB &
+  &, 0.252551E+01_JPRB, 0.255265E+01_JPRB, 0.257931E+01_JPRB, 0.260545E+01_JPRB &
+  &, 0.263108E+01_JPRB, 0.265618E+01_JPRB, 0.268074E+01_JPRB &
+  &, 0.270477E+01_JPRB, 0.272824E+01_JPRB, 0.275114E+01_JPRB, 0.277348E+01_JPRB &
+  &, 0.279525E+01_JPRB, 0.281644E+01_JPRB, 0.283703E+01_JPRB &
+  &, 0.285703E+01_JPRB, 0.287643E+01_JPRB, 0.289522E+01_JPRB, 0.291341E+01_JPRB &
+  &, 0.293098E+01_JPRB, 0.294794E+01_JPRB, 0.296428E+01_JPRB &
+  &, 0.297999E+01_JPRB, 0.299507E+01_JPRB, 0.300951E+01_JPRB, 0.302338E+01_JPRB &
+  &, 0.303657E+01_JPRB, 0.304913E+01_JPRB, 0.306107E+01_JPRB &
+  &, 0.307236E+01_JPRB, 0.308303E+01_JPRB, 0.309306E+01_JPRB, 0.310244E+01_JPRB &
+  &, 0.311113E+01_JPRB, 0.311933E+01_JPRB, 0.312684E+01_JPRB &
+  &, 0.313371E+01_JPRB, 0.313994E+01_JPRB, 0.314556E+01_JPRB, 0.315056E+01_JPRB &
+  &, 0.315494E+01_JPRB, 0.315870E+01_JPRB, 0.316184E+01_JPRB &
+  &, 0.316438E+01_JPRB, 0.316630E+01_JPRB, 0.316763E+01_JPRB, 0.316834E+01_JPRB &
+  &, 0.316851E+01_JPRB, 0.316804E+01_JPRB, 0.316700E+01_JPRB &
+  &, 0.316537E+01_JPRB, 0.316318E+01_JPRB, 0.316040E+01_JPRB, 0.315708E+01_JPRB &
+  &, 0.315320E+01_JPRB, 0.314878E+01_JPRB, 0.314380E+01_JPRB &
+  &, 0.313827E+01_JPRB, 0.313223E+01_JPRB, 0.312565E+01_JPRB, 0.311856E+01_JPRB &
+  &, 0.311092E+01_JPRB, 0.310281E+01_JPRB, 0.309420E+01_JPRB &
+  &, 0.308508E+01_JPRB, 0.307551E+01_JPRB, 0.306542E+01_JPRB, 0.305488E+01_JPRB &
+  &, 0.304387E+01_JPRB, 0.303240E+01_JPRB, 0.302051E+01_JPRB &
+  &, 0.300816E+01_JPRB, 0.299539E+01_JPRB, 0.298221E+01_JPRB, 0.296860E+01_JPRB &
+  &, 0.295459E+01_JPRB, 0.294019E+01_JPRB, 0.292537E+01_JPRB &
+  &, 0.291017E+01_JPRB, 0.289460E+01_JPRB, 0.287869E+01_JPRB, 0.286241E+01_JPRB &
+  &, 0.284579E+01_JPRB, 0.282883E+01_JPRB, 0.281153E+01_JPRB &
+  &, 0.279394E+01_JPRB, 0.277599E+01_JPRB, 0.275776E+01_JPRB, 0.273926E+01_JPRB &
+  &, 0.272041E+01_JPRB, 0.270135E+01_JPRB, 0.268198E+01_JPRB &
+  &, 0.266238E+01_JPRB, 0.264246E+01_JPRB, 0.262236E+01_JPRB, 0.260205E+01_JPRB &
+  &, 0.258142E+01_JPRB, 0.256069E+01_JPRB, 0.253968E+01_JPRB/)
+XCW( 906, :) = (/ &
+  &  0.113384E+01_JPRB, 0.116793E+01_JPRB, 0.120223E+01_JPRB, 0.123672E+01_JPRB &
+  &, 0.127140E+01_JPRB, 0.130623E+01_JPRB, 0.134120E+01_JPRB &
+  &, 0.137629E+01_JPRB, 0.141149E+01_JPRB, 0.144677E+01_JPRB, 0.148212E+01_JPRB &
+  &, 0.151751E+01_JPRB, 0.155293E+01_JPRB, 0.158836E+01_JPRB &
+  &, 0.162378E+01_JPRB, 0.165917E+01_JPRB, 0.169451E+01_JPRB, 0.172979E+01_JPRB &
+  &, 0.176499E+01_JPRB, 0.180008E+01_JPRB, 0.183504E+01_JPRB &
+  &, 0.186987E+01_JPRB, 0.190454E+01_JPRB, 0.193903E+01_JPRB, 0.197333E+01_JPRB &
+  &, 0.200742E+01_JPRB, 0.204127E+01_JPRB, 0.207488E+01_JPRB &
+  &, 0.210822E+01_JPRB, 0.214128E+01_JPRB, 0.217404E+01_JPRB, 0.220649E+01_JPRB &
+  &, 0.223861E+01_JPRB, 0.227038E+01_JPRB, 0.230178E+01_JPRB &
+  &, 0.233281E+01_JPRB, 0.236345E+01_JPRB, 0.239369E+01_JPRB, 0.242350E+01_JPRB &
+  &, 0.245288E+01_JPRB, 0.248183E+01_JPRB, 0.251030E+01_JPRB &
+  &, 0.253832E+01_JPRB, 0.256585E+01_JPRB, 0.259288E+01_JPRB, 0.261940E+01_JPRB &
+  &, 0.264542E+01_JPRB, 0.267092E+01_JPRB, 0.269588E+01_JPRB &
+  &, 0.272030E+01_JPRB, 0.274416E+01_JPRB, 0.276747E+01_JPRB, 0.279020E+01_JPRB &
+  &, 0.281239E+01_JPRB, 0.283397E+01_JPRB, 0.285497E+01_JPRB &
+  &, 0.287538E+01_JPRB, 0.289519E+01_JPRB, 0.291439E+01_JPRB, 0.293300E+01_JPRB &
+  &, 0.295098E+01_JPRB, 0.296835E+01_JPRB, 0.298509E+01_JPRB &
+  &, 0.300123E+01_JPRB, 0.301672E+01_JPRB, 0.303160E+01_JPRB, 0.304583E+01_JPRB &
+  &, 0.305945E+01_JPRB, 0.307242E+01_JPRB, 0.308475E+01_JPRB &
+  &, 0.309646E+01_JPRB, 0.310753E+01_JPRB, 0.311799E+01_JPRB, 0.312778E+01_JPRB &
+  &, 0.313693E+01_JPRB, 0.314548E+01_JPRB, 0.315338E+01_JPRB &
+  &, 0.315988E+01_JPRB, 0.316730E+01_JPRB, 0.317331E+01_JPRB, 0.317870E+01_JPRB &
+  &, 0.318345E+01_JPRB, 0.318763E+01_JPRB, 0.319114E+01_JPRB &
+  &, 0.319407E+01_JPRB, 0.319637E+01_JPRB, 0.319810E+01_JPRB, 0.319920E+01_JPRB &
+  &, 0.319970E+01_JPRB, 0.319963E+01_JPRB, 0.319894E+01_JPRB &
+  &, 0.319770E+01_JPRB, 0.319587E+01_JPRB, 0.319344E+01_JPRB, 0.319047E+01_JPRB &
+  &, 0.318694E+01_JPRB, 0.318286E+01_JPRB, 0.317823E+01_JPRB &
+  &, 0.317301E+01_JPRB, 0.316731E+01_JPRB, 0.316106E+01_JPRB, 0.315422E+01_JPRB &
+  &, 0.314700E+01_JPRB, 0.313917E+01_JPRB, 0.313085E+01_JPRB &
+  &, 0.312205E+01_JPRB, 0.311274E+01_JPRB, 0.310301E+01_JPRB, 0.309273E+01_JPRB &
+  &, 0.308202E+01_JPRB, 0.307081E+01_JPRB, 0.305921E+01_JPRB &
+  &, 0.304711E+01_JPRB, 0.303462E+01_JPRB, 0.302168E+01_JPRB, 0.300830E+01_JPRB &
+  &, 0.299378E+01_JPRB, 0.298031E+01_JPRB, 0.296575E+01_JPRB &
+  &, 0.295080E+01_JPRB, 0.293548E+01_JPRB, 0.291976E+01_JPRB, 0.290366E+01_JPRB &
+  &, 0.288726E+01_JPRB, 0.287048E+01_JPRB, 0.285333E+01_JPRB &
+  &, 0.283590E+01_JPRB, 0.281815E+01_JPRB, 0.280011E+01_JPRB, 0.278169E+01_JPRB &
+  &, 0.276302E+01_JPRB, 0.274412E+01_JPRB, 0.272486E+01_JPRB &
+  &, 0.270536E+01_JPRB, 0.268559E+01_JPRB, 0.266564E+01_JPRB, 0.264539E+01_JPRB &
+  &, 0.262489E+01_JPRB, 0.260421E+01_JPRB, 0.258325E+01_JPRB/)
+XCW( 907, :) = (/ &
+  &  0.113449E+01_JPRB, 0.116876E+01_JPRB, 0.120324E+01_JPRB, 0.123793E+01_JPRB &
+  &, 0.127280E+01_JPRB, 0.130784E+01_JPRB, 0.134302E+01_JPRB &
+  &, 0.137833E+01_JPRB, 0.141375E+01_JPRB, 0.144926E+01_JPRB, 0.148484E+01_JPRB &
+  &, 0.152047E+01_JPRB, 0.155614E+01_JPRB, 0.159182E+01_JPRB &
+  &, 0.162750E+01_JPRB, 0.166316E+01_JPRB, 0.169877E+01_JPRB, 0.173432E+01_JPRB &
+  &, 0.176980E+01_JPRB, 0.180517E+01_JPRB, 0.184043E+01_JPRB &
+  &, 0.187556E+01_JPRB, 0.191053E+01_JPRB, 0.194533E+01_JPRB, 0.197994E+01_JPRB &
+  &, 0.201434E+01_JPRB, 0.204851E+01_JPRB, 0.208245E+01_JPRB &
+  &, 0.211612E+01_JPRB, 0.214952E+01_JPRB, 0.218262E+01_JPRB, 0.221541E+01_JPRB &
+  &, 0.224787E+01_JPRB, 0.228000E+01_JPRB, 0.231176E+01_JPRB &
+  &, 0.234315E+01_JPRB, 0.237415E+01_JPRB, 0.240476E+01_JPRB, 0.243494E+01_JPRB &
+  &, 0.246469E+01_JPRB, 0.249401E+01_JPRB, 0.252287E+01_JPRB &
+  &, 0.255126E+01_JPRB, 0.257918E+01_JPRB, 0.260660E+01_JPRB, 0.263352E+01_JPRB &
+  &, 0.265994E+01_JPRB, 0.268583E+01_JPRB, 0.271118E+01_JPRB &
+  &, 0.273601E+01_JPRB, 0.276029E+01_JPRB, 0.278400E+01_JPRB, 0.280715E+01_JPRB &
+  &, 0.282972E+01_JPRB, 0.285172E+01_JPRB, 0.287313E+01_JPRB &
+  &, 0.289396E+01_JPRB, 0.291418E+01_JPRB, 0.293380E+01_JPRB, 0.295282E+01_JPRB &
+  &, 0.297121E+01_JPRB, 0.298899E+01_JPRB, 0.300616E+01_JPRB &
+  &, 0.302271E+01_JPRB, 0.303863E+01_JPRB, 0.305391E+01_JPRB, 0.306857E+01_JPRB &
+  &, 0.308261E+01_JPRB, 0.309600E+01_JPRB, 0.310877E+01_JPRB &
+  &, 0.312088E+01_JPRB, 0.313236E+01_JPRB, 0.314322E+01_JPRB, 0.315345E+01_JPRB &
+  &, 0.316302E+01_JPRB, 0.317196E+01_JPRB, 0.318027E+01_JPRB &
+  &, 0.318795E+01_JPRB, 0.319501E+01_JPRB, 0.320142E+01_JPRB, 0.320721E+01_JPRB &
+  &, 0.321238E+01_JPRB, 0.321693E+01_JPRB, 0.322084E+01_JPRB &
+  &, 0.322417E+01_JPRB, 0.322688E+01_JPRB, 0.322897E+01_JPRB, 0.323045E+01_JPRB &
+  &, 0.323134E+01_JPRB, 0.323164E+01_JPRB, 0.323135E+01_JPRB &
+  &, 0.323047E+01_JPRB, 0.322900E+01_JPRB, 0.322694E+01_JPRB, 0.322433E+01_JPRB &
+  &, 0.322116E+01_JPRB, 0.321743E+01_JPRB, 0.321315E+01_JPRB &
+  &, 0.320829E+01_JPRB, 0.320293E+01_JPRB, 0.319699E+01_JPRB, 0.319057E+01_JPRB &
+  &, 0.318357E+01_JPRB, 0.317612E+01_JPRB, 0.316812E+01_JPRB &
+  &, 0.315961E+01_JPRB, 0.315063E+01_JPRB, 0.314113E+01_JPRB, 0.313117E+01_JPRB &
+  &, 0.312073E+01_JPRB, 0.310983E+01_JPRB, 0.309849E+01_JPRB &
+  &, 0.308669E+01_JPRB, 0.307445E+01_JPRB, 0.306174E+01_JPRB, 0.304864E+01_JPRB &
+  &, 0.303513E+01_JPRB, 0.302116E+01_JPRB, 0.300682E+01_JPRB &
+  &, 0.299209E+01_JPRB, 0.297697E+01_JPRB, 0.296150E+01_JPRB, 0.294564E+01_JPRB &
+  &, 0.292937E+01_JPRB, 0.291282E+01_JPRB, 0.289590E+01_JPRB &
+  &, 0.287863E+01_JPRB, 0.286103E+01_JPRB, 0.284314E+01_JPRB, 0.282486E+01_JPRB &
+  &, 0.280644E+01_JPRB, 0.278761E+01_JPRB, 0.276852E+01_JPRB &
+  &, 0.274919E+01_JPRB, 0.272958E+01_JPRB, 0.270965E+01_JPRB, 0.268956E+01_JPRB &
+  &, 0.266906E+01_JPRB, 0.264858E+01_JPRB, 0.262773E+01_JPRB/)
+XCW( 908, :) = (/ &
+  &  0.113515E+01_JPRB, 0.116960E+01_JPRB, 0.120427E+01_JPRB, 0.123915E+01_JPRB &
+  &, 0.127422E+01_JPRB, 0.130946E+01_JPRB, 0.134486E+01_JPRB &
+  &, 0.138039E+01_JPRB, 0.141603E+01_JPRB, 0.145177E+01_JPRB, 0.148759E+01_JPRB &
+  &, 0.152346E+01_JPRB, 0.155938E+01_JPRB, 0.159532E+01_JPRB &
+  &, 0.163126E+01_JPRB, 0.166718E+01_JPRB, 0.170307E+01_JPRB, 0.173890E+01_JPRB &
+  &, 0.177466E+01_JPRB, 0.181032E+01_JPRB, 0.184587E+01_JPRB &
+  &, 0.188130E+01_JPRB, 0.191657E+01_JPRB, 0.195168E+01_JPRB, 0.198661E+01_JPRB &
+  &, 0.202133E+01_JPRB, 0.205583E+01_JPRB, 0.209010E+01_JPRB &
+  &, 0.212410E+01_JPRB, 0.215784E+01_JPRB, 0.219128E+01_JPRB, 0.222442E+01_JPRB &
+  &, 0.225723E+01_JPRB, 0.228971E+01_JPRB, 0.232184E+01_JPRB &
+  &, 0.235359E+01_JPRB, 0.238497E+01_JPRB, 0.241593E+01_JPRB, 0.244650E+01_JPRB &
+  &, 0.247663E+01_JPRB, 0.250633E+01_JPRB, 0.253557E+01_JPRB &
+  &, 0.256436E+01_JPRB, 0.259267E+01_JPRB, 0.262049E+01_JPRB, 0.264781E+01_JPRB &
+  &, 0.267461E+01_JPRB, 0.270091E+01_JPRB, 0.272668E+01_JPRB &
+  &, 0.275190E+01_JPRB, 0.277658E+01_JPRB, 0.280071E+01_JPRB, 0.282427E+01_JPRB &
+  &, 0.284726E+01_JPRB, 0.286968E+01_JPRB, 0.289151E+01_JPRB &
+  &, 0.291274E+01_JPRB, 0.293339E+01_JPRB, 0.295343E+01_JPRB, 0.297286E+01_JPRB &
+  &, 0.299169E+01_JPRB, 0.300991E+01_JPRB, 0.302749E+01_JPRB &
+  &, 0.304447E+01_JPRB, 0.306081E+01_JPRB, 0.307652E+01_JPRB, 0.309160E+01_JPRB &
+  &, 0.310606E+01_JPRB, 0.311987E+01_JPRB, 0.313305E+01_JPRB &
+  &, 0.314562E+01_JPRB, 0.315751E+01_JPRB, 0.316879E+01_JPRB, 0.317943E+01_JPRB &
+  &, 0.318942E+01_JPRB, 0.319878E+01_JPRB, 0.320753E+01_JPRB &
+  &, 0.321563E+01_JPRB, 0.322309E+01_JPRB, 0.322991E+01_JPRB, 0.323610E+01_JPRB &
+  &, 0.324168E+01_JPRB, 0.324664E+01_JPRB, 0.325098E+01_JPRB &
+  &, 0.325469E+01_JPRB, 0.325780E+01_JPRB, 0.326028E+01_JPRB, 0.326216E+01_JPRB &
+  &, 0.326343E+01_JPRB, 0.326414E+01_JPRB, 0.326419E+01_JPRB &
+  &, 0.326372E+01_JPRB, 0.326262E+01_JPRB, 0.326093E+01_JPRB, 0.325869E+01_JPRB &
+  &, 0.325588E+01_JPRB, 0.325252E+01_JPRB, 0.324857E+01_JPRB &
+  &, 0.324410E+01_JPRB, 0.323906E+01_JPRB, 0.323348E+01_JPRB, 0.322737E+01_JPRB &
+  &, 0.322075E+01_JPRB, 0.321357E+01_JPRB, 0.320592E+01_JPRB &
+  &, 0.319774E+01_JPRB, 0.318905E+01_JPRB, 0.317988E+01_JPRB, 0.317025E+01_JPRB &
+  &, 0.316009E+01_JPRB, 0.314950E+01_JPRB, 0.313843E+01_JPRB &
+  &, 0.312689E+01_JPRB, 0.311491E+01_JPRB, 0.310250E+01_JPRB, 0.308965E+01_JPRB &
+  &, 0.307642E+01_JPRB, 0.306269E+01_JPRB, 0.304863E+01_JPRB &
+  &, 0.303411E+01_JPRB, 0.301921E+01_JPRB, 0.300395E+01_JPRB, 0.298830E+01_JPRB &
+  &, 0.297228E+01_JPRB, 0.295591E+01_JPRB, 0.293922E+01_JPRB &
+  &, 0.292213E+01_JPRB, 0.290386E+01_JPRB, 0.288702E+01_JPRB, 0.286895E+01_JPRB &
+  &, 0.285061E+01_JPRB, 0.283198E+01_JPRB, 0.281302E+01_JPRB &
+  &, 0.279381E+01_JPRB, 0.277431E+01_JPRB, 0.275455E+01_JPRB, 0.273454E+01_JPRB &
+  &, 0.271426E+01_JPRB, 0.269378E+01_JPRB, 0.267307E+01_JPRB/)
+XCW( 909, :) = (/ &
+  &  0.113581E+01_JPRB, 0.117044E+01_JPRB, 0.120530E+01_JPRB, 0.124038E+01_JPRB &
+  &, 0.127565E+01_JPRB, 0.131110E+01_JPRB, 0.134671E+01_JPRB &
+  &, 0.138246E+01_JPRB, 0.141833E+01_JPRB, 0.145430E+01_JPRB, 0.149036E+01_JPRB &
+  &, 0.152648E+01_JPRB, 0.156265E+01_JPRB, 0.159885E+01_JPRB &
+  &, 0.163505E+01_JPRB, 0.167124E+01_JPRB, 0.170740E+01_JPRB, 0.174352E+01_JPRB &
+  &, 0.177956E+01_JPRB, 0.181552E+01_JPRB, 0.185137E+01_JPRB &
+  &, 0.188710E+01_JPRB, 0.192268E+01_JPRB, 0.195810E+01_JPRB, 0.199335E+01_JPRB &
+  &, 0.202839E+01_JPRB, 0.206322E+01_JPRB, 0.209782E+01_JPRB &
+  &, 0.213217E+01_JPRB, 0.216624E+01_JPRB, 0.220003E+01_JPRB, 0.223353E+01_JPRB &
+  &, 0.226670E+01_JPRB, 0.229954E+01_JPRB, 0.233203E+01_JPRB &
+  &, 0.236415E+01_JPRB, 0.239590E+01_JPRB, 0.242724E+01_JPRB, 0.245818E+01_JPRB &
+  &, 0.248871E+01_JPRB, 0.251878E+01_JPRB, 0.254842E+01_JPRB &
+  &, 0.257760E+01_JPRB, 0.260630E+01_JPRB, 0.263452E+01_JPRB, 0.266225E+01_JPRB &
+  &, 0.268946E+01_JPRB, 0.271616E+01_JPRB, 0.274234E+01_JPRB &
+  &, 0.276798E+01_JPRB, 0.279307E+01_JPRB, 0.281762E+01_JPRB, 0.284160E+01_JPRB &
+  &, 0.286501E+01_JPRB, 0.288785E+01_JPRB, 0.291011E+01_JPRB &
+  &, 0.293177E+01_JPRB, 0.295284E+01_JPRB, 0.297331E+01_JPRB, 0.299318E+01_JPRB &
+  &, 0.301243E+01_JPRB, 0.303107E+01_JPRB, 0.304910E+01_JPRB &
+  &, 0.306650E+01_JPRB, 0.308327E+01_JPRB, 0.309941E+01_JPRB, 0.311493E+01_JPRB &
+  &, 0.312981E+01_JPRB, 0.314407E+01_JPRB, 0.315769E+01_JPRB &
+  &, 0.317065E+01_JPRB, 0.318300E+01_JPRB, 0.319470E+01_JPRB, 0.320577E+01_JPRB &
+  &, 0.321619E+01_JPRB, 0.322598E+01_JPRB, 0.323513E+01_JPRB &
+  &, 0.324364E+01_JPRB, 0.325155E+01_JPRB, 0.325875E+01_JPRB, 0.326540E+01_JPRB &
+  &, 0.327140E+01_JPRB, 0.327677E+01_JPRB, 0.328150E+01_JPRB &
+  &, 0.328563E+01_JPRB, 0.328913E+01_JPRB, 0.329202E+01_JPRB, 0.329432E+01_JPRB &
+  &, 0.329601E+01_JPRB, 0.329706E+01_JPRB, 0.329754E+01_JPRB &
+  &, 0.329744E+01_JPRB, 0.329673E+01_JPRB, 0.329545E+01_JPRB, 0.329358E+01_JPRB &
+  &, 0.329112E+01_JPRB, 0.328813E+01_JPRB, 0.328454E+01_JPRB &
+  &, 0.328044E+01_JPRB, 0.327574E+01_JPRB, 0.327052E+01_JPRB, 0.326477E+01_JPRB &
+  &, 0.325847E+01_JPRB, 0.325164E+01_JPRB, 0.324434E+01_JPRB &
+  &, 0.323647E+01_JPRB, 0.322813E+01_JPRB, 0.321926E+01_JPRB, 0.320991E+01_JPRB &
+  &, 0.320008E+01_JPRB, 0.318978E+01_JPRB, 0.317899E+01_JPRB &
+  &, 0.316777E+01_JPRB, 0.315610E+01_JPRB, 0.314396E+01_JPRB, 0.313136E+01_JPRB &
+  &, 0.311838E+01_JPRB, 0.310495E+01_JPRB, 0.309108E+01_JPRB &
+  &, 0.307684E+01_JPRB, 0.306222E+01_JPRB, 0.304717E+01_JPRB, 0.303173E+01_JPRB &
+  &, 0.301592E+01_JPRB, 0.299970E+01_JPRB, 0.298326E+01_JPRB &
+  &, 0.296640E+01_JPRB, 0.294921E+01_JPRB, 0.293164E+01_JPRB, 0.291379E+01_JPRB &
+  &, 0.289561E+01_JPRB, 0.287712E+01_JPRB, 0.285836E+01_JPRB &
+  &, 0.283927E+01_JPRB, 0.281990E+01_JPRB, 0.280031E+01_JPRB, 0.278041E+01_JPRB &
+  &, 0.276029E+01_JPRB, 0.273990E+01_JPRB, 0.271927E+01_JPRB/)
+XCW( 910, :) = (/ &
+  &  0.113648E+01_JPRB, 0.117129E+01_JPRB, 0.120634E+01_JPRB, 0.124162E+01_JPRB &
+  &, 0.127709E+01_JPRB, 0.131275E+01_JPRB, 0.134858E+01_JPRB &
+  &, 0.138455E+01_JPRB, 0.142065E+01_JPRB, 0.145686E+01_JPRB, 0.149316E+01_JPRB &
+  &, 0.152953E+01_JPRB, 0.156596E+01_JPRB, 0.160241E+01_JPRB &
+  &, 0.163888E+01_JPRB, 0.167535E+01_JPRB, 0.171178E+01_JPRB, 0.174818E+01_JPRB &
+  &, 0.178452E+01_JPRB, 0.182077E+01_JPRB, 0.185692E+01_JPRB &
+  &, 0.189295E+01_JPRB, 0.192885E+01_JPRB, 0.196459E+01_JPRB, 0.200016E+01_JPRB &
+  &, 0.203553E+01_JPRB, 0.207069E+01_JPRB, 0.210563E+01_JPRB &
+  &, 0.214031E+01_JPRB, 0.217474E+01_JPRB, 0.220888E+01_JPRB, 0.224273E+01_JPRB &
+  &, 0.227626E+01_JPRB, 0.230946E+01_JPRB, 0.234232E+01_JPRB &
+  &, 0.237482E+01_JPRB, 0.240694E+01_JPRB, 0.243868E+01_JPRB, 0.247000E+01_JPRB &
+  &, 0.250091E+01_JPRB, 0.253139E+01_JPRB, 0.256142E+01_JPRB &
+  &, 0.259099E+01_JPRB, 0.262009E+01_JPRB, 0.264872E+01_JPRB, 0.267685E+01_JPRB &
+  &, 0.270448E+01_JPRB, 0.273160E+01_JPRB, 0.275818E+01_JPRB &
+  &, 0.278425E+01_JPRB, 0.280976E+01_JPRB, 0.283472E+01_JPRB, 0.285913E+01_JPRB &
+  &, 0.288297E+01_JPRB, 0.290624E+01_JPRB, 0.292893E+01_JPRB &
+  &, 0.295102E+01_JPRB, 0.297252E+01_JPRB, 0.299342E+01_JPRB, 0.301373E+01_JPRB &
+  &, 0.303341E+01_JPRB, 0.305250E+01_JPRB, 0.307096E+01_JPRB &
+  &, 0.308880E+01_JPRB, 0.310601E+01_JPRB, 0.312259E+01_JPRB, 0.313856E+01_JPRB &
+  &, 0.315388E+01_JPRB, 0.316856E+01_JPRB, 0.318261E+01_JPRB &
+  &, 0.319604E+01_JPRB, 0.320882E+01_JPRB, 0.322095E+01_JPRB, 0.323245E+01_JPRB &
+  &, 0.324330E+01_JPRB, 0.325354E+01_JPRB, 0.326312E+01_JPRB &
+  &, 0.327205E+01_JPRB, 0.328037E+01_JPRB, 0.328804E+01_JPRB, 0.329510E+01_JPRB &
+  &, 0.330152E+01_JPRB, 0.330731E+01_JPRB, 0.331246E+01_JPRB &
+  &, 0.331701E+01_JPRB, 0.332094E+01_JPRB, 0.332423E+01_JPRB, 0.332692E+01_JPRB &
+  &, 0.332903E+01_JPRB, 0.333048E+01_JPRB, 0.333137E+01_JPRB &
+  &, 0.333164E+01_JPRB, 0.333135E+01_JPRB, 0.333042E+01_JPRB, 0.332894E+01_JPRB &
+  &, 0.332689E+01_JPRB, 0.332426E+01_JPRB, 0.332102E+01_JPRB &
+  &, 0.331704E+01_JPRB, 0.331300E+01_JPRB, 0.330815E+01_JPRB, 0.330273E+01_JPRB &
+  &, 0.329680E+01_JPRB, 0.329033E+01_JPRB, 0.328331E+01_JPRB &
+  &, 0.327580E+01_JPRB, 0.326777E+01_JPRB, 0.325925E+01_JPRB, 0.325025E+01_JPRB &
+  &, 0.324072E+01_JPRB, 0.323072E+01_JPRB, 0.322025E+01_JPRB &
+  &, 0.320932E+01_JPRB, 0.319793E+01_JPRB, 0.318606E+01_JPRB, 0.317378E+01_JPRB &
+  &, 0.316106E+01_JPRB, 0.314788E+01_JPRB, 0.313431E+01_JPRB &
+  &, 0.312032E+01_JPRB, 0.310593E+01_JPRB, 0.309112E+01_JPRB, 0.307595E+01_JPRB &
+  &, 0.306035E+01_JPRB, 0.304440E+01_JPRB, 0.302811E+01_JPRB &
+  &, 0.301144E+01_JPRB, 0.299444E+01_JPRB, 0.297711E+01_JPRB, 0.295943E+01_JPRB &
+  &, 0.294141E+01_JPRB, 0.292315E+01_JPRB, 0.290453E+01_JPRB &
+  &, 0.288559E+01_JPRB, 0.286641E+01_JPRB, 0.284695E+01_JPRB, 0.282717E+01_JPRB &
+  &, 0.280715E+01_JPRB, 0.278686E+01_JPRB, 0.276638E+01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART130',1,ZHOOK_HANDLE)
+END SUBROUTINE PART130
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART131
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART131',0,ZHOOK_HANDLE)
+
+XCW( 911, :) = (/ &
+  &  0.113715E+01_JPRB, 0.117215E+01_JPRB, 0.120739E+01_JPRB, 0.124287E+01_JPRB &
+  &, 0.127855E+01_JPRB, 0.131442E+01_JPRB, 0.135047E+01_JPRB &
+  &, 0.138666E+01_JPRB, 0.142300E+01_JPRB, 0.145945E+01_JPRB, 0.149599E+01_JPRB &
+  &, 0.153261E+01_JPRB, 0.156929E+01_JPRB, 0.160601E+01_JPRB &
+  &, 0.164275E+01_JPRB, 0.167949E+01_JPRB, 0.171621E+01_JPRB, 0.175289E+01_JPRB &
+  &, 0.178952E+01_JPRB, 0.182607E+01_JPRB, 0.186253E+01_JPRB &
+  &, 0.189887E+01_JPRB, 0.193508E+01_JPRB, 0.197114E+01_JPRB, 0.200704E+01_JPRB &
+  &, 0.204274E+01_JPRB, 0.207824E+01_JPRB, 0.211352E+01_JPRB &
+  &, 0.214855E+01_JPRB, 0.218332E+01_JPRB, 0.221783E+01_JPRB, 0.225203E+01_JPRB &
+  &, 0.228593E+01_JPRB, 0.231950E+01_JPRB, 0.235274E+01_JPRB &
+  &, 0.238561E+01_JPRB, 0.241812E+01_JPRB, 0.245023E+01_JPRB, 0.248195E+01_JPRB &
+  &, 0.251325E+01_JPRB, 0.254413E+01_JPRB, 0.257455E+01_JPRB &
+  &, 0.260454E+01_JPRB, 0.263405E+01_JPRB, 0.266308E+01_JPRB, 0.269163E+01_JPRB &
+  &, 0.271968E+01_JPRB, 0.274721E+01_JPRB, 0.277423E+01_JPRB &
+  &, 0.280070E+01_JPRB, 0.282665E+01_JPRB, 0.285204E+01_JPRB, 0.287686E+01_JPRB &
+  &, 0.290115E+01_JPRB, 0.292485E+01_JPRB, 0.294798E+01_JPRB &
+  &, 0.297051E+01_JPRB, 0.299246E+01_JPRB, 0.301380E+01_JPRB, 0.303454E+01_JPRB &
+  &, 0.305468E+01_JPRB, 0.307420E+01_JPRB, 0.309310E+01_JPRB &
+  &, 0.311139E+01_JPRB, 0.312905E+01_JPRB, 0.314608E+01_JPRB, 0.316248E+01_JPRB &
+  &, 0.317824E+01_JPRB, 0.319338E+01_JPRB, 0.320789E+01_JPRB &
+  &, 0.322175E+01_JPRB, 0.323496E+01_JPRB, 0.324755E+01_JPRB, 0.325949E+01_JPRB &
+  &, 0.327081E+01_JPRB, 0.328146E+01_JPRB, 0.329147E+01_JPRB &
+  &, 0.330087E+01_JPRB, 0.330962E+01_JPRB, 0.331774E+01_JPRB, 0.332520E+01_JPRB &
+  &, 0.333205E+01_JPRB, 0.333828E+01_JPRB, 0.334386E+01_JPRB &
+  &, 0.334884E+01_JPRB, 0.335317E+01_JPRB, 0.335689E+01_JPRB, 0.336002E+01_JPRB &
+  &, 0.336250E+01_JPRB, 0.336438E+01_JPRB, 0.336568E+01_JPRB &
+  &, 0.336637E+01_JPRB, 0.336645E+01_JPRB, 0.336596E+01_JPRB, 0.336487E+01_JPRB &
+  &, 0.336322E+01_JPRB, 0.336097E+01_JPRB, 0.335816E+01_JPRB &
+  &, 0.335475E+01_JPRB, 0.335084E+01_JPRB, 0.334634E+01_JPRB, 0.334130E+01_JPRB &
+  &, 0.333570E+01_JPRB, 0.332961E+01_JPRB, 0.332296E+01_JPRB &
+  &, 0.331578E+01_JPRB, 0.330811E+01_JPRB, 0.329991E+01_JPRB, 0.329123E+01_JPRB &
+  &, 0.328200E+01_JPRB, 0.327234E+01_JPRB, 0.326218E+01_JPRB &
+  &, 0.325154E+01_JPRB, 0.324039E+01_JPRB, 0.322890E+01_JPRB, 0.321690E+01_JPRB &
+  &, 0.320445E+01_JPRB, 0.319159E+01_JPRB, 0.317827E+01_JPRB &
+  &, 0.316454E+01_JPRB, 0.315040E+01_JPRB, 0.313583E+01_JPRB, 0.312090E+01_JPRB &
+  &, 0.310558E+01_JPRB, 0.308985E+01_JPRB, 0.307377E+01_JPRB &
+  &, 0.305732E+01_JPRB, 0.304057E+01_JPRB, 0.302343E+01_JPRB, 0.300594E+01_JPRB &
+  &, 0.298810E+01_JPRB, 0.297000E+01_JPRB, 0.295155E+01_JPRB &
+  &, 0.293282E+01_JPRB, 0.291378E+01_JPRB, 0.289446E+01_JPRB, 0.287480E+01_JPRB &
+  &, 0.285497E+01_JPRB, 0.283479E+01_JPRB, 0.281442E+01_JPRB/)
+XCW( 912, :) = (/ &
+  &  0.113783E+01_JPRB, 0.117302E+01_JPRB, 0.120846E+01_JPRB, 0.124413E+01_JPRB &
+  &, 0.128002E+01_JPRB, 0.131611E+01_JPRB, 0.135237E+01_JPRB &
+  &, 0.138880E+01_JPRB, 0.142536E+01_JPRB, 0.146205E+01_JPRB, 0.149884E+01_JPRB &
+  &, 0.153572E+01_JPRB, 0.157266E+01_JPRB, 0.160964E+01_JPRB &
+  &, 0.164665E+01_JPRB, 0.168367E+01_JPRB, 0.172068E+01_JPRB, 0.175765E+01_JPRB &
+  &, 0.179458E+01_JPRB, 0.183143E+01_JPRB, 0.186819E+01_JPRB &
+  &, 0.190485E+01_JPRB, 0.194138E+01_JPRB, 0.197777E+01_JPRB, 0.201399E+01_JPRB &
+  &, 0.205003E+01_JPRB, 0.208587E+01_JPRB, 0.212149E+01_JPRB &
+  &, 0.215687E+01_JPRB, 0.219201E+01_JPRB, 0.222687E+01_JPRB, 0.226144E+01_JPRB &
+  &, 0.229571E+01_JPRB, 0.232966E+01_JPRB, 0.236326E+01_JPRB &
+  &, 0.239653E+01_JPRB, 0.242942E+01_JPRB, 0.246192E+01_JPRB, 0.249403E+01_JPRB &
+  &, 0.252574E+01_JPRB, 0.255701E+01_JPRB, 0.258785E+01_JPRB &
+  &, 0.261824E+01_JPRB, 0.264817E+01_JPRB, 0.267761E+01_JPRB, 0.270658E+01_JPRB &
+  &, 0.273505E+01_JPRB, 0.276301E+01_JPRB, 0.279045E+01_JPRB &
+  &, 0.281736E+01_JPRB, 0.284374E+01_JPRB, 0.286957E+01_JPRB, 0.289484E+01_JPRB &
+  &, 0.291956E+01_JPRB, 0.294369E+01_JPRB, 0.296727E+01_JPRB &
+  &, 0.299024E+01_JPRB, 0.301263E+01_JPRB, 0.303442E+01_JPRB, 0.305562E+01_JPRB &
+  &, 0.307621E+01_JPRB, 0.309617E+01_JPRB, 0.311553E+01_JPRB &
+  &, 0.313426E+01_JPRB, 0.315239E+01_JPRB, 0.316987E+01_JPRB, 0.318672E+01_JPRB &
+  &, 0.320294E+01_JPRB, 0.321854E+01_JPRB, 0.323347E+01_JPRB &
+  &, 0.324779E+01_JPRB, 0.326147E+01_JPRB, 0.327450E+01_JPRB, 0.328691E+01_JPRB &
+  &, 0.329865E+01_JPRB, 0.330976E+01_JPRB, 0.332023E+01_JPRB &
+  &, 0.333004E+01_JPRB, 0.333927E+01_JPRB, 0.334783E+01_JPRB, 0.335575E+01_JPRB &
+  &, 0.336303E+01_JPRB, 0.336970E+01_JPRB, 0.337572E+01_JPRB &
+  &, 0.338112E+01_JPRB, 0.338589E+01_JPRB, 0.339005E+01_JPRB, 0.339359E+01_JPRB &
+  &, 0.339648E+01_JPRB, 0.339881E+01_JPRB, 0.340051E+01_JPRB &
+  &, 0.340162E+01_JPRB, 0.340210E+01_JPRB, 0.340201E+01_JPRB, 0.340133E+01_JPRB &
+  &, 0.340005E+01_JPRB, 0.339820E+01_JPRB, 0.339579E+01_JPRB &
+  &, 0.339278E+01_JPRB, 0.338922E+01_JPRB, 0.338511E+01_JPRB, 0.338047E+01_JPRB &
+  &, 0.337522E+01_JPRB, 0.336936E+01_JPRB, 0.336320E+01_JPRB &
+  &, 0.335639E+01_JPRB, 0.334906E+01_JPRB, 0.334119E+01_JPRB, 0.333287E+01_JPRB &
+  &, 0.332401E+01_JPRB, 0.331467E+01_JPRB, 0.330482E+01_JPRB &
+  &, 0.329448E+01_JPRB, 0.328373E+01_JPRB, 0.327248E+01_JPRB, 0.326077E+01_JPRB &
+  &, 0.324861E+01_JPRB, 0.323602E+01_JPRB, 0.322298E+01_JPRB &
+  &, 0.320951E+01_JPRB, 0.319563E+01_JPRB, 0.318136E+01_JPRB, 0.316668E+01_JPRB &
+  &, 0.315160E+01_JPRB, 0.313610E+01_JPRB, 0.312030E+01_JPRB &
+  &, 0.310407E+01_JPRB, 0.308748E+01_JPRB, 0.307055E+01_JPRB, 0.305331E+01_JPRB &
+  &, 0.303566E+01_JPRB, 0.301774E+01_JPRB, 0.299946E+01_JPRB &
+  &, 0.298090E+01_JPRB, 0.296202E+01_JPRB, 0.294290E+01_JPRB, 0.292345E+01_JPRB &
+  &, 0.290369E+01_JPRB, 0.288370E+01_JPRB, 0.286344E+01_JPRB/)
+XCW( 913, :) = (/ &
+  &  0.113852E+01_JPRB, 0.117389E+01_JPRB, 0.120953E+01_JPRB, 0.124540E+01_JPRB &
+  &, 0.128150E+01_JPRB, 0.131780E+01_JPRB, 0.135429E+01_JPRB &
+  &, 0.139095E+01_JPRB, 0.142775E+01_JPRB, 0.146468E+01_JPRB, 0.150173E+01_JPRB &
+  &, 0.153886E+01_JPRB, 0.157606E+01_JPRB, 0.161331E+01_JPRB &
+  &, 0.165060E+01_JPRB, 0.168790E+01_JPRB, 0.172519E+01_JPRB, 0.176246E+01_JPRB &
+  &, 0.179968E+01_JPRB, 0.183684E+01_JPRB, 0.187392E+01_JPRB &
+  &, 0.191089E+01_JPRB, 0.194775E+01_JPRB, 0.198446E+01_JPRB, 0.202102E+01_JPRB &
+  &, 0.205740E+01_JPRB, 0.209358E+01_JPRB, 0.212955E+01_JPRB &
+  &, 0.216529E+01_JPRB, 0.220078E+01_JPRB, 0.223601E+01_JPRB, 0.227095E+01_JPRB &
+  &, 0.230559E+01_JPRB, 0.233992E+01_JPRB, 0.237391E+01_JPRB &
+  &, 0.240756E+01_JPRB, 0.244084E+01_JPRB, 0.247375E+01_JPRB, 0.250626E+01_JPRB &
+  &, 0.253836E+01_JPRB, 0.257005E+01_JPRB, 0.260130E+01_JPRB &
+  &, 0.263211E+01_JPRB, 0.266245E+01_JPRB, 0.269232E+01_JPRB, 0.272171E+01_JPRB &
+  &, 0.275060E+01_JPRB, 0.277900E+01_JPRB, 0.280687E+01_JPRB &
+  &, 0.283422E+01_JPRB, 0.286104E+01_JPRB, 0.288731E+01_JPRB, 0.291303E+01_JPRB &
+  &, 0.293819E+01_JPRB, 0.296278E+01_JPRB, 0.298679E+01_JPRB &
+  &, 0.301022E+01_JPRB, 0.303307E+01_JPRB, 0.305532E+01_JPRB, 0.307696E+01_JPRB &
+  &, 0.309800E+01_JPRB, 0.311843E+01_JPRB, 0.313825E+01_JPRB &
+  &, 0.315745E+01_JPRB, 0.317602E+01_JPRB, 0.319397E+01_JPRB, 0.321128E+01_JPRB &
+  &, 0.322796E+01_JPRB, 0.324401E+01_JPRB, 0.325943E+01_JPRB &
+  &, 0.327419E+01_JPRB, 0.328834E+01_JPRB, 0.330182E+01_JPRB, 0.331469E+01_JPRB &
+  &, 0.332689E+01_JPRB, 0.333845E+01_JPRB, 0.334938E+01_JPRB &
+  &, 0.335968E+01_JPRB, 0.336933E+01_JPRB, 0.337834E+01_JPRB, 0.338670E+01_JPRB &
+  &, 0.339446E+01_JPRB, 0.340155E+01_JPRB, 0.340802E+01_JPRB &
+  &, 0.341386E+01_JPRB, 0.341906E+01_JPRB, 0.342367E+01_JPRB, 0.342763E+01_JPRB &
+  &, 0.343097E+01_JPRB, 0.343372E+01_JPRB, 0.343585E+01_JPRB &
+  &, 0.343737E+01_JPRB, 0.343827E+01_JPRB, 0.343860E+01_JPRB, 0.343833E+01_JPRB &
+  &, 0.343746E+01_JPRB, 0.343603E+01_JPRB, 0.343402E+01_JPRB &
+  &, 0.343141E+01_JPRB, 0.342812E+01_JPRB, 0.342452E+01_JPRB, 0.342024E+01_JPRB &
+  &, 0.341539E+01_JPRB, 0.341003E+01_JPRB, 0.340412E+01_JPRB &
+  &, 0.339766E+01_JPRB, 0.339067E+01_JPRB, 0.338317E+01_JPRB, 0.337519E+01_JPRB &
+  &, 0.336666E+01_JPRB, 0.335765E+01_JPRB, 0.334816E+01_JPRB &
+  &, 0.333819E+01_JPRB, 0.332770E+01_JPRB, 0.331676E+01_JPRB, 0.330539E+01_JPRB &
+  &, 0.329352E+01_JPRB, 0.328123E+01_JPRB, 0.326847E+01_JPRB &
+  &, 0.325533E+01_JPRB, 0.324172E+01_JPRB, 0.322767E+01_JPRB, 0.321329E+01_JPRB &
+  &, 0.319842E+01_JPRB, 0.318321E+01_JPRB, 0.316760E+01_JPRB &
+  &, 0.315165E+01_JPRB, 0.313528E+01_JPRB, 0.311851E+01_JPRB, 0.310154E+01_JPRB &
+  &, 0.308415E+01_JPRB, 0.306642E+01_JPRB, 0.304833E+01_JPRB &
+  &, 0.302995E+01_JPRB, 0.301124E+01_JPRB, 0.299179E+01_JPRB, 0.297299E+01_JPRB &
+  &, 0.295337E+01_JPRB, 0.293351E+01_JPRB, 0.291338E+01_JPRB/)
+XCW( 914, :) = (/ &
+  &  0.113921E+01_JPRB, 0.117477E+01_JPRB, 0.121061E+01_JPRB, 0.124669E+01_JPRB &
+  &, 0.128300E+01_JPRB, 0.131952E+01_JPRB, 0.135623E+01_JPRB &
+  &, 0.139312E+01_JPRB, 0.143016E+01_JPRB, 0.146734E+01_JPRB, 0.150464E+01_JPRB &
+  &, 0.154203E+01_JPRB, 0.157949E+01_JPRB, 0.161702E+01_JPRB &
+  &, 0.165458E+01_JPRB, 0.169217E+01_JPRB, 0.172975E+01_JPRB, 0.176732E+01_JPRB &
+  &, 0.180484E+01_JPRB, 0.184231E+01_JPRB, 0.187970E+01_JPRB &
+  &, 0.191700E+01_JPRB, 0.195418E+01_JPRB, 0.199123E+01_JPRB, 0.202812E+01_JPRB &
+  &, 0.206484E+01_JPRB, 0.210138E+01_JPRB, 0.213770E+01_JPRB &
+  &, 0.217380E+01_JPRB, 0.220966E+01_JPRB, 0.224525E+01_JPRB, 0.228057E+01_JPRB &
+  &, 0.231559E+01_JPRB, 0.235030E+01_JPRB, 0.238469E+01_JPRB &
+  &, 0.241872E+01_JPRB, 0.245240E+01_JPRB, 0.248571E+01_JPRB, 0.251862E+01_JPRB &
+  &, 0.255114E+01_JPRB, 0.258324E+01_JPRB, 0.261491E+01_JPRB &
+  &, 0.264614E+01_JPRB, 0.267691E+01_JPRB, 0.270721E+01_JPRB, 0.273702E+01_JPRB &
+  &, 0.276635E+01_JPRB, 0.279519E+01_JPRB, 0.282349E+01_JPRB &
+  &, 0.285129E+01_JPRB, 0.287856E+01_JPRB, 0.290527E+01_JPRB, 0.293144E+01_JPRB &
+  &, 0.295706E+01_JPRB, 0.298210E+01_JPRB, 0.300656E+01_JPRB &
+  &, 0.303046E+01_JPRB, 0.305376E+01_JPRB, 0.307648E+01_JPRB, 0.309859E+01_JPRB &
+  &, 0.312009E+01_JPRB, 0.314096E+01_JPRB, 0.316126E+01_JPRB &
+  &, 0.318093E+01_JPRB, 0.319996E+01_JPRB, 0.321838E+01_JPRB, 0.323617E+01_JPRB &
+  &, 0.325329E+01_JPRB, 0.326981E+01_JPRB, 0.328572E+01_JPRB &
+  &, 0.330095E+01_JPRB, 0.331558E+01_JPRB, 0.332952E+01_JPRB, 0.334285E+01_JPRB &
+  &, 0.335551E+01_JPRB, 0.336757E+01_JPRB, 0.337895E+01_JPRB &
+  &, 0.338970E+01_JPRB, 0.339982E+01_JPRB, 0.340928E+01_JPRB, 0.341812E+01_JPRB &
+  &, 0.342631E+01_JPRB, 0.343388E+01_JPRB, 0.344079E+01_JPRB &
+  &, 0.344709E+01_JPRB, 0.345274E+01_JPRB, 0.345778E+01_JPRB, 0.346220E+01_JPRB &
+  &, 0.346598E+01_JPRB, 0.346915E+01_JPRB, 0.347171E+01_JPRB &
+  &, 0.347366E+01_JPRB, 0.347502E+01_JPRB, 0.347577E+01_JPRB, 0.347593E+01_JPRB &
+  &, 0.347548E+01_JPRB, 0.347443E+01_JPRB, 0.347284E+01_JPRB &
+  &, 0.347062E+01_JPRB, 0.346789E+01_JPRB, 0.346456E+01_JPRB, 0.346065E+01_JPRB &
+  &, 0.345620E+01_JPRB, 0.345122E+01_JPRB, 0.344566E+01_JPRB &
+  &, 0.343960E+01_JPRB, 0.343293E+01_JPRB, 0.342587E+01_JPRB, 0.341823E+01_JPRB &
+  &, 0.341004E+01_JPRB, 0.340141E+01_JPRB, 0.339225E+01_JPRB &
+  &, 0.338256E+01_JPRB, 0.337244E+01_JPRB, 0.336182E+01_JPRB, 0.335076E+01_JPRB &
+  &, 0.333920E+01_JPRB, 0.332721E+01_JPRB, 0.331480E+01_JPRB &
+  &, 0.330189E+01_JPRB, 0.328852E+01_JPRB, 0.327484E+01_JPRB, 0.326069E+01_JPRB &
+  &, 0.324613E+01_JPRB, 0.323118E+01_JPRB, 0.321582E+01_JPRB &
+  &, 0.320011E+01_JPRB, 0.318398E+01_JPRB, 0.316750E+01_JPRB, 0.315069E+01_JPRB &
+  &, 0.313351E+01_JPRB, 0.311599E+01_JPRB, 0.309810E+01_JPRB &
+  &, 0.307990E+01_JPRB, 0.306144E+01_JPRB, 0.304260E+01_JPRB, 0.302347E+01_JPRB &
+  &, 0.300407E+01_JPRB, 0.298436E+01_JPRB, 0.296437E+01_JPRB/)
+XCW( 915, :) = (/ &
+  &  0.113991E+01_JPRB, 0.117567E+01_JPRB, 0.121170E+01_JPRB, 0.124798E+01_JPRB &
+  &, 0.128451E+01_JPRB, 0.132125E+01_JPRB, 0.135819E+01_JPRB &
+  &, 0.139532E+01_JPRB, 0.143260E+01_JPRB, 0.147003E+01_JPRB, 0.150758E+01_JPRB &
+  &, 0.154523E+01_JPRB, 0.158296E+01_JPRB, 0.162076E+01_JPRB &
+  &, 0.165861E+01_JPRB, 0.169648E+01_JPRB, 0.173436E+01_JPRB, 0.177223E+01_JPRB &
+  &, 0.181006E+01_JPRB, 0.184784E+01_JPRB, 0.188555E+01_JPRB &
+  &, 0.192317E+01_JPRB, 0.196068E+01_JPRB, 0.199807E+01_JPRB, 0.203530E+01_JPRB &
+  &, 0.207237E+01_JPRB, 0.210926E+01_JPRB, 0.214594E+01_JPRB &
+  &, 0.218241E+01_JPRB, 0.221863E+01_JPRB, 0.225460E+01_JPRB, 0.229030E+01_JPRB &
+  &, 0.232570E+01_JPRB, 0.236080E+01_JPRB, 0.239558E+01_JPRB &
+  &, 0.243001E+01_JPRB, 0.246410E+01_JPRB, 0.249781E+01_JPRB, 0.253115E+01_JPRB &
+  &, 0.256407E+01_JPRB, 0.259660E+01_JPRB, 0.262869E+01_JPRB &
+  &, 0.266033E+01_JPRB, 0.269153E+01_JPRB, 0.272227E+01_JPRB, 0.275252E+01_JPRB &
+  &, 0.278230E+01_JPRB, 0.281158E+01_JPRB, 0.284034E+01_JPRB &
+  &, 0.286858E+01_JPRB, 0.289629E+01_JPRB, 0.292346E+01_JPRB, 0.295010E+01_JPRB &
+  &, 0.297616E+01_JPRB, 0.300167E+01_JPRB, 0.302660E+01_JPRB &
+  &, 0.305096E+01_JPRB, 0.307473E+01_JPRB, 0.309791E+01_JPRB, 0.312049E+01_JPRB &
+  &, 0.314246E+01_JPRB, 0.316382E+01_JPRB, 0.318458E+01_JPRB &
+  &, 0.320472E+01_JPRB, 0.322425E+01_JPRB, 0.324312E+01_JPRB, 0.326140E+01_JPRB &
+  &, 0.327902E+01_JPRB, 0.329601E+01_JPRB, 0.331238E+01_JPRB &
+  &, 0.332809E+01_JPRB, 0.334318E+01_JPRB, 0.335761E+01_JPRB, 0.337141E+01_JPRB &
+  &, 0.338455E+01_JPRB, 0.339706E+01_JPRB, 0.340894E+01_JPRB &
+  &, 0.342012E+01_JPRB, 0.343073E+01_JPRB, 0.344067E+01_JPRB, 0.344998E+01_JPRB &
+  &, 0.345864E+01_JPRB, 0.346667E+01_JPRB, 0.347404E+01_JPRB &
+  &, 0.348081E+01_JPRB, 0.348690E+01_JPRB, 0.349241E+01_JPRB, 0.349727E+01_JPRB &
+  &, 0.350152E+01_JPRB, 0.350513E+01_JPRB, 0.350813E+01_JPRB &
+  &, 0.351055E+01_JPRB, 0.351231E+01_JPRB, 0.351350E+01_JPRB, 0.351403E+01_JPRB &
+  &, 0.351404E+01_JPRB, 0.351346E+01_JPRB, 0.351227E+01_JPRB &
+  &, 0.351047E+01_JPRB, 0.350813E+01_JPRB, 0.350523E+01_JPRB, 0.350173E+01_JPRB &
+  &, 0.349767E+01_JPRB, 0.349306E+01_JPRB, 0.348792E+01_JPRB &
+  &, 0.348223E+01_JPRB, 0.347600E+01_JPRB, 0.346926E+01_JPRB, 0.346199E+01_JPRB &
+  &, 0.345415E+01_JPRB, 0.344586E+01_JPRB, 0.343705E+01_JPRB &
+  &, 0.342775E+01_JPRB, 0.341796E+01_JPRB, 0.340767E+01_JPRB, 0.339694E+01_JPRB &
+  &, 0.338570E+01_JPRB, 0.337401E+01_JPRB, 0.336191E+01_JPRB &
+  &, 0.334931E+01_JPRB, 0.333633E+01_JPRB, 0.332289E+01_JPRB, 0.330902E+01_JPRB &
+  &, 0.329468E+01_JPRB, 0.328001E+01_JPRB, 0.326496E+01_JPRB &
+  &, 0.324946E+01_JPRB, 0.323363E+01_JPRB, 0.321739E+01_JPRB, 0.320076E+01_JPRB &
+  &, 0.318381E+01_JPRB, 0.316651E+01_JPRB, 0.314883E+01_JPRB &
+  &, 0.313041E+01_JPRB, 0.311257E+01_JPRB, 0.309391E+01_JPRB, 0.307502E+01_JPRB &
+  &, 0.305573E+01_JPRB, 0.303625E+01_JPRB, 0.301641E+01_JPRB/)
+XCW( 916, :) = (/ &
+  &  0.114061E+01_JPRB, 0.117656E+01_JPRB, 0.121280E+01_JPRB, 0.124929E+01_JPRB &
+  &, 0.128603E+01_JPRB, 0.132300E+01_JPRB, 0.136017E+01_JPRB &
+  &, 0.139753E+01_JPRB, 0.143506E+01_JPRB, 0.147274E+01_JPRB, 0.151055E+01_JPRB &
+  &, 0.154846E+01_JPRB, 0.158647E+01_JPRB, 0.162455E+01_JPRB &
+  &, 0.166268E+01_JPRB, 0.170084E+01_JPRB, 0.173902E+01_JPRB, 0.177719E+01_JPRB &
+  &, 0.181533E+01_JPRB, 0.185343E+01_JPRB, 0.189146E+01_JPRB &
+  &, 0.192941E+01_JPRB, 0.196726E+01_JPRB, 0.200498E+01_JPRB, 0.204256E+01_JPRB &
+  &, 0.207998E+01_JPRB, 0.211723E+01_JPRB, 0.215428E+01_JPRB &
+  &, 0.219111E+01_JPRB, 0.222771E+01_JPRB, 0.226406E+01_JPRB, 0.230014E+01_JPRB &
+  &, 0.233593E+01_JPRB, 0.237143E+01_JPRB, 0.240660E+01_JPRB &
+  &, 0.244144E+01_JPRB, 0.247594E+01_JPRB, 0.251006E+01_JPRB, 0.254381E+01_JPRB &
+  &, 0.257715E+01_JPRB, 0.261011E+01_JPRB, 0.264262E+01_JPRB &
+  &, 0.267471E+01_JPRB, 0.270634E+01_JPRB, 0.273752E+01_JPRB, 0.276823E+01_JPRB &
+  &, 0.279844E+01_JPRB, 0.282817E+01_JPRB, 0.285737E+01_JPRB &
+  &, 0.288607E+01_JPRB, 0.291425E+01_JPRB, 0.294188E+01_JPRB, 0.296897E+01_JPRB &
+  &, 0.299551E+01_JPRB, 0.302148E+01_JPRB, 0.304689E+01_JPRB &
+  &, 0.307173E+01_JPRB, 0.309596E+01_JPRB, 0.311962E+01_JPRB, 0.314268E+01_JPRB &
+  &, 0.316514E+01_JPRB, 0.318698E+01_JPRB, 0.320823E+01_JPRB &
+  &, 0.322884E+01_JPRB, 0.324884E+01_JPRB, 0.326822E+01_JPRB, 0.328697E+01_JPRB &
+  &, 0.330507E+01_JPRB, 0.332256E+01_JPRB, 0.333939E+01_JPRB &
+  &, 0.335559E+01_JPRB, 0.337117E+01_JPRB, 0.338610E+01_JPRB, 0.340038E+01_JPRB &
+  &, 0.341400E+01_JPRB, 0.342700E+01_JPRB, 0.343934E+01_JPRB &
+  &, 0.345106E+01_JPRB, 0.346211E+01_JPRB, 0.347253E+01_JPRB, 0.348231E+01_JPRB &
+  &, 0.349143E+01_JPRB, 0.349992E+01_JPRB, 0.350779E+01_JPRB &
+  &, 0.351501E+01_JPRB, 0.352160E+01_JPRB, 0.352754E+01_JPRB, 0.353288E+01_JPRB &
+  &, 0.353757E+01_JPRB, 0.354166E+01_JPRB, 0.354511E+01_JPRB &
+  &, 0.354797E+01_JPRB, 0.355019E+01_JPRB, 0.355182E+01_JPRB, 0.355283E+01_JPRB &
+  &, 0.355325E+01_JPRB, 0.355308E+01_JPRB, 0.355233E+01_JPRB &
+  &, 0.355097E+01_JPRB, 0.354903E+01_JPRB, 0.354652E+01_JPRB, 0.354346E+01_JPRB &
+  &, 0.353983E+01_JPRB, 0.353565E+01_JPRB, 0.353081E+01_JPRB &
+  &, 0.352558E+01_JPRB, 0.351973E+01_JPRB, 0.351336E+01_JPRB, 0.350646E+01_JPRB &
+  &, 0.349903E+01_JPRB, 0.349110E+01_JPRB, 0.348265E+01_JPRB &
+  &, 0.347370E+01_JPRB, 0.346425E+01_JPRB, 0.345435E+01_JPRB, 0.344391E+01_JPRB &
+  &, 0.343305E+01_JPRB, 0.342169E+01_JPRB, 0.340985E+01_JPRB &
+  &, 0.339762E+01_JPRB, 0.338490E+01_JPRB, 0.337176E+01_JPRB, 0.335819E+01_JPRB &
+  &, 0.334419E+01_JPRB, 0.332980E+01_JPRB, 0.331498E+01_JPRB &
+  &, 0.329974E+01_JPRB, 0.328418E+01_JPRB, 0.326819E+01_JPRB, 0.325180E+01_JPRB &
+  &, 0.323509E+01_JPRB, 0.321803E+01_JPRB, 0.320057E+01_JPRB &
+  &, 0.318280E+01_JPRB, 0.316474E+01_JPRB, 0.314629E+01_JPRB, 0.312753E+01_JPRB &
+  &, 0.310849E+01_JPRB, 0.308912E+01_JPRB, 0.306951E+01_JPRB/)
+XCW( 917, :) = (/ &
+  &  0.114132E+01_JPRB, 0.117747E+01_JPRB, 0.121391E+01_JPRB, 0.125062E+01_JPRB &
+  &, 0.128758E+01_JPRB, 0.132477E+01_JPRB, 0.136217E+01_JPRB &
+  &, 0.139977E+01_JPRB, 0.143755E+01_JPRB, 0.147548E+01_JPRB, 0.151354E+01_JPRB &
+  &, 0.155173E+01_JPRB, 0.159001E+01_JPRB, 0.162837E+01_JPRB &
+  &, 0.166679E+01_JPRB, 0.170525E+01_JPRB, 0.174372E+01_JPRB, 0.178220E+01_JPRB &
+  &, 0.182066E+01_JPRB, 0.185908E+01_JPRB, 0.189744E+01_JPRB &
+  &, 0.193572E+01_JPRB, 0.197390E+01_JPRB, 0.201197E+01_JPRB, 0.204991E+01_JPRB &
+  &, 0.208769E+01_JPRB, 0.212529E+01_JPRB, 0.216271E+01_JPRB &
+  &, 0.219991E+01_JPRB, 0.223689E+01_JPRB, 0.227362E+01_JPRB, 0.231009E+01_JPRB &
+  &, 0.234628E+01_JPRB, 0.238218E+01_JPRB, 0.241775E+01_JPRB &
+  &, 0.245300E+01_JPRB, 0.248791E+01_JPRB, 0.252246E+01_JPRB, 0.255662E+01_JPRB &
+  &, 0.259040E+01_JPRB, 0.262377E+01_JPRB, 0.265673E+01_JPRB &
+  &, 0.268926E+01_JPRB, 0.272134E+01_JPRB, 0.275296E+01_JPRB, 0.278411E+01_JPRB &
+  &, 0.281478E+01_JPRB, 0.284496E+01_JPRB, 0.287464E+01_JPRB &
+  &, 0.290380E+01_JPRB, 0.293244E+01_JPRB, 0.296054E+01_JPRB, 0.298811E+01_JPRB &
+  &, 0.301511E+01_JPRB, 0.304157E+01_JPRB, 0.306745E+01_JPRB &
+  &, 0.309276E+01_JPRB, 0.311748E+01_JPRB, 0.314162E+01_JPRB, 0.316517E+01_JPRB &
+  &, 0.318811E+01_JPRB, 0.321045E+01_JPRB, 0.323217E+01_JPRB &
+  &, 0.325328E+01_JPRB, 0.327377E+01_JPRB, 0.329364E+01_JPRB, 0.331289E+01_JPRB &
+  &, 0.333149E+01_JPRB, 0.334947E+01_JPRB, 0.336679E+01_JPRB &
+  &, 0.338349E+01_JPRB, 0.339955E+01_JPRB, 0.341496E+01_JPRB, 0.342975E+01_JPRB &
+  &, 0.344389E+01_JPRB, 0.345735E+01_JPRB, 0.347019E+01_JPRB &
+  &, 0.348239E+01_JPRB, 0.349394E+01_JPRB, 0.350483E+01_JPRB, 0.351509E+01_JPRB &
+  &, 0.352473E+01_JPRB, 0.353370E+01_JPRB, 0.354203E+01_JPRB &
+  &, 0.354973E+01_JPRB, 0.355679E+01_JPRB, 0.356321E+01_JPRB, 0.356901E+01_JPRB &
+  &, 0.357419E+01_JPRB, 0.357874E+01_JPRB, 0.358268E+01_JPRB &
+  &, 0.358597E+01_JPRB, 0.358867E+01_JPRB, 0.359073E+01_JPRB, 0.359219E+01_JPRB &
+  &, 0.359308E+01_JPRB, 0.359336E+01_JPRB, 0.359302E+01_JPRB &
+  &, 0.359211E+01_JPRB, 0.359062E+01_JPRB, 0.358852E+01_JPRB, 0.358586E+01_JPRB &
+  &, 0.358267E+01_JPRB, 0.357889E+01_JPRB, 0.357453E+01_JPRB &
+  &, 0.356965E+01_JPRB, 0.356419E+01_JPRB, 0.355821E+01_JPRB, 0.355173E+01_JPRB &
+  &, 0.354468E+01_JPRB, 0.353712E+01_JPRB, 0.352904E+01_JPRB &
+  &, 0.352045E+01_JPRB, 0.351137E+01_JPRB, 0.350182E+01_JPRB, 0.349173E+01_JPRB &
+  &, 0.348121E+01_JPRB, 0.347019E+01_JPRB, 0.345869E+01_JPRB &
+  &, 0.344677E+01_JPRB, 0.343438E+01_JPRB, 0.342156E+01_JPRB, 0.340829E+01_JPRB &
+  &, 0.339460E+01_JPRB, 0.338045E+01_JPRB, 0.336591E+01_JPRB &
+  &, 0.335096E+01_JPRB, 0.333567E+01_JPRB, 0.331995E+01_JPRB, 0.330383E+01_JPRB &
+  &, 0.328737E+01_JPRB, 0.327055E+01_JPRB, 0.325333E+01_JPRB &
+  &, 0.323579E+01_JPRB, 0.321789E+01_JPRB, 0.319972E+01_JPRB, 0.318117E+01_JPRB &
+  &, 0.316232E+01_JPRB, 0.314315E+01_JPRB, 0.312365E+01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART131',1,ZHOOK_HANDLE)
+END SUBROUTINE PART131
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART132
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART132',0,ZHOOK_HANDLE)
+
+XCW( 918, :) = (/ &
+  &  0.114204E+01_JPRB, 0.117839E+01_JPRB, 0.121503E+01_JPRB, 0.125195E+01_JPRB &
+  &, 0.128913E+01_JPRB, 0.132655E+01_JPRB, 0.136419E+01_JPRB &
+  &, 0.140203E+01_JPRB, 0.144006E+01_JPRB, 0.147824E+01_JPRB, 0.151658E+01_JPRB &
+  &, 0.155503E+01_JPRB, 0.159359E+01_JPRB, 0.163224E+01_JPRB &
+  &, 0.167095E+01_JPRB, 0.170970E+01_JPRB, 0.174848E+01_JPRB, 0.178727E+01_JPRB &
+  &, 0.182605E+01_JPRB, 0.186479E+01_JPRB, 0.190348E+01_JPRB &
+  &, 0.194210E+01_JPRB, 0.198063E+01_JPRB, 0.201904E+01_JPRB, 0.205733E+01_JPRB &
+  &, 0.209547E+01_JPRB, 0.213345E+01_JPRB, 0.217123E+01_JPRB &
+  &, 0.220882E+01_JPRB, 0.224618E+01_JPRB, 0.228330E+01_JPRB, 0.232017E+01_JPRB &
+  &, 0.235676E+01_JPRB, 0.239305E+01_JPRB, 0.242904E+01_JPRB &
+  &, 0.246470E+01_JPRB, 0.250003E+01_JPRB, 0.253500E+01_JPRB, 0.256959E+01_JPRB &
+  &, 0.260381E+01_JPRB, 0.263762E+01_JPRB, 0.267102E+01_JPRB &
+  &, 0.270399E+01_JPRB, 0.273652E+01_JPRB, 0.276860E+01_JPRB, 0.280021E+01_JPRB &
+  &, 0.283133E+01_JPRB, 0.286197E+01_JPRB, 0.289212E+01_JPRB &
+  &, 0.292174E+01_JPRB, 0.295086E+01_JPRB, 0.297944E+01_JPRB, 0.300749E+01_JPRB &
+  &, 0.303497E+01_JPRB, 0.306191E+01_JPRB, 0.308827E+01_JPRB &
+  &, 0.311383E+01_JPRB, 0.313929E+01_JPRB, 0.316393E+01_JPRB, 0.318796E+01_JPRB &
+  &, 0.321140E+01_JPRB, 0.323424E+01_JPRB, 0.325645E+01_JPRB &
+  &, 0.327807E+01_JPRB, 0.329905E+01_JPRB, 0.331942E+01_JPRB, 0.333915E+01_JPRB &
+  &, 0.335827E+01_JPRB, 0.337674E+01_JPRB, 0.339458E+01_JPRB &
+  &, 0.341179E+01_JPRB, 0.342834E+01_JPRB, 0.344427E+01_JPRB, 0.345955E+01_JPRB &
+  &, 0.347416E+01_JPRB, 0.348815E+01_JPRB, 0.350150E+01_JPRB &
+  &, 0.351417E+01_JPRB, 0.352624E+01_JPRB, 0.353744E+01_JPRB, 0.354840E+01_JPRB &
+  &, 0.355850E+01_JPRB, 0.356799E+01_JPRB, 0.357681E+01_JPRB &
+  &, 0.358499E+01_JPRB, 0.359254E+01_JPRB, 0.359943E+01_JPRB, 0.360573E+01_JPRB &
+  &, 0.361138E+01_JPRB, 0.361641E+01_JPRB, 0.362081E+01_JPRB &
+  &, 0.362457E+01_JPRB, 0.362774E+01_JPRB, 0.363027E+01_JPRB, 0.363210E+01_JPRB &
+  &, 0.363354E+01_JPRB, 0.363425E+01_JPRB, 0.363438E+01_JPRB &
+  &, 0.363393E+01_JPRB, 0.363286E+01_JPRB, 0.363122E+01_JPRB, 0.362902E+01_JPRB &
+  &, 0.362621E+01_JPRB, 0.362284E+01_JPRB, 0.361892E+01_JPRB &
+  &, 0.361445E+01_JPRB, 0.360943E+01_JPRB, 0.360385E+01_JPRB, 0.359772E+01_JPRB &
+  &, 0.359110E+01_JPRB, 0.358393E+01_JPRB, 0.357623E+01_JPRB &
+  &, 0.356801E+01_JPRB, 0.355916E+01_JPRB, 0.355012E+01_JPRB, 0.354034E+01_JPRB &
+  &, 0.353023E+01_JPRB, 0.351956E+01_JPRB, 0.350840E+01_JPRB &
+  &, 0.349683E+01_JPRB, 0.348477E+01_JPRB, 0.347222E+01_JPRB, 0.345928E+01_JPRB &
+  &, 0.344590E+01_JPRB, 0.343190E+01_JPRB, 0.341788E+01_JPRB &
+  &, 0.340323E+01_JPRB, 0.338817E+01_JPRB, 0.337274E+01_JPRB, 0.335689E+01_JPRB &
+  &, 0.334070E+01_JPRB, 0.332408E+01_JPRB, 0.330712E+01_JPRB &
+  &, 0.328982E+01_JPRB, 0.327216E+01_JPRB, 0.325421E+01_JPRB, 0.323588E+01_JPRB &
+  &, 0.321719E+01_JPRB, 0.319821E+01_JPRB, 0.317885E+01_JPRB/)
+XCW( 919, :) = (/ &
+  &  0.114277E+01_JPRB, 0.117931E+01_JPRB, 0.121616E+01_JPRB, 0.125330E+01_JPRB &
+  &, 0.129070E+01_JPRB, 0.132835E+01_JPRB, 0.136623E+01_JPRB &
+  &, 0.140432E+01_JPRB, 0.144259E+01_JPRB, 0.148104E+01_JPRB, 0.151964E+01_JPRB &
+  &, 0.155837E+01_JPRB, 0.159721E+01_JPRB, 0.163614E+01_JPRB &
+  &, 0.167515E+01_JPRB, 0.171420E+01_JPRB, 0.175329E+01_JPRB, 0.179239E+01_JPRB &
+  &, 0.183149E+01_JPRB, 0.187056E+01_JPRB, 0.190959E+01_JPRB &
+  &, 0.194855E+01_JPRB, 0.198743E+01_JPRB, 0.202620E+01_JPRB, 0.206484E+01_JPRB &
+  &, 0.210335E+01_JPRB, 0.214170E+01_JPRB, 0.217986E+01_JPRB &
+  &, 0.221783E+01_JPRB, 0.225558E+01_JPRB, 0.229309E+01_JPRB, 0.233036E+01_JPRB &
+  &, 0.236735E+01_JPRB, 0.240406E+01_JPRB, 0.244047E+01_JPRB &
+  &, 0.247655E+01_JPRB, 0.251230E+01_JPRB, 0.254770E+01_JPRB, 0.258274E+01_JPRB &
+  &, 0.261739E+01_JPRB, 0.265164E+01_JPRB, 0.268548E+01_JPRB &
+  &, 0.271891E+01_JPRB, 0.275189E+01_JPRB, 0.278442E+01_JPRB, 0.281649E+01_JPRB &
+  &, 0.284810E+01_JPRB, 0.287921E+01_JPRB, 0.290982E+01_JPRB &
+  &, 0.293993E+01_JPRB, 0.296953E+01_JPRB, 0.299858E+01_JPRB, 0.302712E+01_JPRB &
+  &, 0.305510E+01_JPRB, 0.308252E+01_JPRB, 0.310938E+01_JPRB &
+  &, 0.313568E+01_JPRB, 0.316139E+01_JPRB, 0.318653E+01_JPRB, 0.321106E+01_JPRB &
+  &, 0.323499E+01_JPRB, 0.325833E+01_JPRB, 0.328107E+01_JPRB &
+  &, 0.330319E+01_JPRB, 0.332469E+01_JPRB, 0.334557E+01_JPRB, 0.336581E+01_JPRB &
+  &, 0.338544E+01_JPRB, 0.340442E+01_JPRB, 0.342277E+01_JPRB &
+  &, 0.344047E+01_JPRB, 0.345756E+01_JPRB, 0.347399E+01_JPRB, 0.348977E+01_JPRB &
+  &, 0.350492E+01_JPRB, 0.351942E+01_JPRB, 0.353325E+01_JPRB &
+  &, 0.354645E+01_JPRB, 0.355901E+01_JPRB, 0.357091E+01_JPRB, 0.358217E+01_JPRB &
+  &, 0.359280E+01_JPRB, 0.360276E+01_JPRB, 0.361209E+01_JPRB &
+  &, 0.362077E+01_JPRB, 0.362883E+01_JPRB, 0.363623E+01_JPRB, 0.364301E+01_JPRB &
+  &, 0.364914E+01_JPRB, 0.365465E+01_JPRB, 0.365953E+01_JPRB &
+  &, 0.366380E+01_JPRB, 0.366742E+01_JPRB, 0.367046E+01_JPRB, 0.367283E+01_JPRB &
+  &, 0.367466E+01_JPRB, 0.367584E+01_JPRB, 0.367637E+01_JPRB &
+  &, 0.367640E+01_JPRB, 0.367580E+01_JPRB, 0.367462E+01_JPRB, 0.367285E+01_JPRB &
+  &, 0.367051E+01_JPRB, 0.366756E+01_JPRB, 0.366407E+01_JPRB &
+  &, 0.366005E+01_JPRB, 0.365540E+01_JPRB, 0.365027E+01_JPRB, 0.364459E+01_JPRB &
+  &, 0.363833E+01_JPRB, 0.363156E+01_JPRB, 0.362425E+01_JPRB &
+  &, 0.361643E+01_JPRB, 0.360810E+01_JPRB, 0.359930E+01_JPRB, 0.358994E+01_JPRB &
+  &, 0.358015E+01_JPRB, 0.356985E+01_JPRB, 0.355905E+01_JPRB &
+  &, 0.354778E+01_JPRB, 0.353607E+01_JPRB, 0.352392E+01_JPRB, 0.351126E+01_JPRB &
+  &, 0.349821E+01_JPRB, 0.348469E+01_JPRB, 0.347078E+01_JPRB &
+  &, 0.345643E+01_JPRB, 0.344168E+01_JPRB, 0.342654E+01_JPRB, 0.341098E+01_JPRB &
+  &, 0.339502E+01_JPRB, 0.337868E+01_JPRB, 0.336198E+01_JPRB &
+  &, 0.334494E+01_JPRB, 0.332753E+01_JPRB, 0.330977E+01_JPRB, 0.329167E+01_JPRB &
+  &, 0.327320E+01_JPRB, 0.325445E+01_JPRB, 0.323536E+01_JPRB/)
+XCW( 920, :) = (/ &
+  &  0.114350E+01_JPRB, 0.118025E+01_JPRB, 0.121731E+01_JPRB, 0.125466E+01_JPRB &
+  &, 0.129229E+01_JPRB, 0.133017E+01_JPRB, 0.136829E+01_JPRB &
+  &, 0.140663E+01_JPRB, 0.144516E+01_JPRB, 0.148387E+01_JPRB, 0.152273E+01_JPRB &
+  &, 0.156174E+01_JPRB, 0.160086E+01_JPRB, 0.164009E+01_JPRB &
+  &, 0.167939E+01_JPRB, 0.171875E+01_JPRB, 0.175816E+01_JPRB, 0.179758E+01_JPRB &
+  &, 0.183700E+01_JPRB, 0.187640E+01_JPRB, 0.191577E+01_JPRB &
+  &, 0.195508E+01_JPRB, 0.199430E+01_JPRB, 0.203343E+01_JPRB, 0.207245E+01_JPRB &
+  &, 0.211132E+01_JPRB, 0.215004E+01_JPRB, 0.218859E+01_JPRB &
+  &, 0.222695E+01_JPRB, 0.226509E+01_JPRB, 0.230300E+01_JPRB, 0.234068E+01_JPRB &
+  &, 0.237808E+01_JPRB, 0.241521E+01_JPRB, 0.245203E+01_JPRB &
+  &, 0.248854E+01_JPRB, 0.252473E+01_JPRB, 0.256056E+01_JPRB, 0.259603E+01_JPRB &
+  &, 0.263113E+01_JPRB, 0.266583E+01_JPRB, 0.270013E+01_JPRB &
+  &, 0.273401E+01_JPRB, 0.276746E+01_JPRB, 0.280046E+01_JPRB, 0.283301E+01_JPRB &
+  &, 0.286508E+01_JPRB, 0.289666E+01_JPRB, 0.292776E+01_JPRB &
+  &, 0.295836E+01_JPRB, 0.298844E+01_JPRB, 0.301799E+01_JPRB, 0.304701E+01_JPRB &
+  &, 0.307549E+01_JPRB, 0.310341E+01_JPRB, 0.313078E+01_JPRB &
+  &, 0.315756E+01_JPRB, 0.318380E+01_JPRB, 0.320943E+01_JPRB, 0.323448E+01_JPRB &
+  &, 0.325893E+01_JPRB, 0.328279E+01_JPRB, 0.330603E+01_JPRB &
+  &, 0.332866E+01_JPRB, 0.335067E+01_JPRB, 0.337207E+01_JPRB, 0.339283E+01_JPRB &
+  &, 0.341297E+01_JPRB, 0.343248E+01_JPRB, 0.345135E+01_JPRB &
+  &, 0.346960E+01_JPRB, 0.348719E+01_JPRB, 0.350415E+01_JPRB, 0.352044E+01_JPRB &
+  &, 0.353611E+01_JPRB, 0.355113E+01_JPRB, 0.356549E+01_JPRB &
+  &, 0.357921E+01_JPRB, 0.359228E+01_JPRB, 0.360471E+01_JPRB, 0.361647E+01_JPRB &
+  &, 0.362762E+01_JPRB, 0.363810E+01_JPRB, 0.364794E+01_JPRB &
+  &, 0.365714E+01_JPRB, 0.366558E+01_JPRB, 0.367361E+01_JPRB, 0.368085E+01_JPRB &
+  &, 0.368751E+01_JPRB, 0.369353E+01_JPRB, 0.369890E+01_JPRB &
+  &, 0.370364E+01_JPRB, 0.370778E+01_JPRB, 0.371127E+01_JPRB, 0.371417E+01_JPRB &
+  &, 0.371645E+01_JPRB, 0.371809E+01_JPRB, 0.371914E+01_JPRB &
+  &, 0.371961E+01_JPRB, 0.371946E+01_JPRB, 0.371873E+01_JPRB, 0.371744E+01_JPRB &
+  &, 0.371553E+01_JPRB, 0.371306E+01_JPRB, 0.371000E+01_JPRB &
+  &, 0.370637E+01_JPRB, 0.370219E+01_JPRB, 0.369749E+01_JPRB, 0.369222E+01_JPRB &
+  &, 0.368638E+01_JPRB, 0.368002E+01_JPRB, 0.367316E+01_JPRB &
+  &, 0.366574E+01_JPRB, 0.365781E+01_JPRB, 0.364936E+01_JPRB, 0.364039E+01_JPRB &
+  &, 0.363098E+01_JPRB, 0.362101E+01_JPRB, 0.361058E+01_JPRB &
+  &, 0.359973E+01_JPRB, 0.358833E+01_JPRB, 0.357654E+01_JPRB, 0.356423E+01_JPRB &
+  &, 0.355147E+01_JPRB, 0.353834E+01_JPRB, 0.352471E+01_JPRB &
+  &, 0.351069E+01_JPRB, 0.349625E+01_JPRB, 0.348137E+01_JPRB, 0.346611E+01_JPRB &
+  &, 0.345044E+01_JPRB, 0.343439E+01_JPRB, 0.341797E+01_JPRB &
+  &, 0.340115E+01_JPRB, 0.338401E+01_JPRB, 0.336650E+01_JPRB, 0.334860E+01_JPRB &
+  &, 0.333044E+01_JPRB, 0.331185E+01_JPRB, 0.329299E+01_JPRB/)
+XCW( 921, :) = (/ &
+  &  0.114424E+01_JPRB, 0.118119E+01_JPRB, 0.121846E+01_JPRB, 0.125604E+01_JPRB &
+  &, 0.129389E+01_JPRB, 0.133201E+01_JPRB, 0.137037E+01_JPRB &
+  &, 0.140896E+01_JPRB, 0.144775E+01_JPRB, 0.148672E+01_JPRB, 0.152586E+01_JPRB &
+  &, 0.156515E+01_JPRB, 0.160456E+01_JPRB, 0.164408E+01_JPRB &
+  &, 0.168368E+01_JPRB, 0.172336E+01_JPRB, 0.176308E+01_JPRB, 0.180282E+01_JPRB &
+  &, 0.184257E+01_JPRB, 0.188232E+01_JPRB, 0.192202E+01_JPRB &
+  &, 0.196168E+01_JPRB, 0.200126E+01_JPRB, 0.204075E+01_JPRB, 0.208013E+01_JPRB &
+  &, 0.211938E+01_JPRB, 0.215849E+01_JPRB, 0.219743E+01_JPRB &
+  &, 0.223617E+01_JPRB, 0.227472E+01_JPRB, 0.231304E+01_JPRB, 0.235112E+01_JPRB &
+  &, 0.238894E+01_JPRB, 0.242649E+01_JPRB, 0.246374E+01_JPRB &
+  &, 0.250068E+01_JPRB, 0.253731E+01_JPRB, 0.257358E+01_JPRB, 0.260950E+01_JPRB &
+  &, 0.264505E+01_JPRB, 0.268020E+01_JPRB, 0.271497E+01_JPRB &
+  &, 0.274932E+01_JPRB, 0.278323E+01_JPRB, 0.281671E+01_JPRB, 0.284973E+01_JPRB &
+  &, 0.288229E+01_JPRB, 0.291435E+01_JPRB, 0.294594E+01_JPRB &
+  &, 0.297702E+01_JPRB, 0.300760E+01_JPRB, 0.303766E+01_JPRB, 0.306718E+01_JPRB &
+  &, 0.309615E+01_JPRB, 0.312459E+01_JPRB, 0.315246E+01_JPRB &
+  &, 0.317977E+01_JPRB, 0.320651E+01_JPRB, 0.323265E+01_JPRB, 0.325823E+01_JPRB &
+  &, 0.328320E+01_JPRB, 0.330758E+01_JPRB, 0.333134E+01_JPRB &
+  &, 0.335450E+01_JPRB, 0.337703E+01_JPRB, 0.339897E+01_JPRB, 0.342026E+01_JPRB &
+  &, 0.344092E+01_JPRB, 0.346097E+01_JPRB, 0.348036E+01_JPRB &
+  &, 0.349914E+01_JPRB, 0.351725E+01_JPRB, 0.353475E+01_JPRB, 0.355157E+01_JPRB &
+  &, 0.356775E+01_JPRB, 0.358330E+01_JPRB, 0.359822E+01_JPRB &
+  &, 0.361246E+01_JPRB, 0.362606E+01_JPRB, 0.363902E+01_JPRB, 0.365130E+01_JPRB &
+  &, 0.366297E+01_JPRB, 0.367397E+01_JPRB, 0.368434E+01_JPRB &
+  &, 0.369404E+01_JPRB, 0.370312E+01_JPRB, 0.371154E+01_JPRB, 0.371934E+01_JPRB &
+  &, 0.372650E+01_JPRB, 0.373299E+01_JPRB, 0.373887E+01_JPRB &
+  &, 0.374414E+01_JPRB, 0.374872E+01_JPRB, 0.375275E+01_JPRB, 0.375614E+01_JPRB &
+  &, 0.375892E+01_JPRB, 0.376106E+01_JPRB, 0.376261E+01_JPRB &
+  &, 0.376354E+01_JPRB, 0.376389E+01_JPRB, 0.376361E+01_JPRB, 0.376270E+01_JPRB &
+  &, 0.376132E+01_JPRB, 0.375930E+01_JPRB, 0.375672E+01_JPRB &
+  &, 0.375354E+01_JPRB, 0.374984E+01_JPRB, 0.374553E+01_JPRB, 0.374070E+01_JPRB &
+  &, 0.373528E+01_JPRB, 0.372935E+01_JPRB, 0.372291E+01_JPRB &
+  &, 0.371591E+01_JPRB, 0.370839E+01_JPRB, 0.370034E+01_JPRB, 0.369178E+01_JPRB &
+  &, 0.368272E+01_JPRB, 0.367319E+01_JPRB, 0.366315E+01_JPRB &
+  &, 0.365263E+01_JPRB, 0.364160E+01_JPRB, 0.363013E+01_JPRB, 0.361818E+01_JPRB &
+  &, 0.360579E+01_JPRB, 0.359296E+01_JPRB, 0.357972E+01_JPRB &
+  &, 0.356599E+01_JPRB, 0.355177E+01_JPRB, 0.353733E+01_JPRB, 0.352233E+01_JPRB &
+  &, 0.350698E+01_JPRB, 0.349123E+01_JPRB, 0.347505E+01_JPRB &
+  &, 0.345852E+01_JPRB, 0.344166E+01_JPRB, 0.342437E+01_JPRB, 0.340672E+01_JPRB &
+  &, 0.338876E+01_JPRB, 0.337049E+01_JPRB, 0.335180E+01_JPRB/)
+XCW( 922, :) = (/ &
+  &  0.114498E+01_JPRB, 0.118214E+01_JPRB, 0.121963E+01_JPRB, 0.125743E+01_JPRB &
+  &, 0.129551E+01_JPRB, 0.133387E+01_JPRB, 0.137248E+01_JPRB &
+  &, 0.141132E+01_JPRB, 0.145037E+01_JPRB, 0.148961E+01_JPRB, 0.152903E+01_JPRB &
+  &, 0.156860E+01_JPRB, 0.160830E+01_JPRB, 0.164811E+01_JPRB &
+  &, 0.168803E+01_JPRB, 0.172801E+01_JPRB, 0.176805E+01_JPRB, 0.180812E+01_JPRB &
+  &, 0.184821E+01_JPRB, 0.188829E+01_JPRB, 0.192835E+01_JPRB &
+  &, 0.196835E+01_JPRB, 0.200830E+01_JPRB, 0.204816E+01_JPRB, 0.208792E+01_JPRB &
+  &, 0.212755E+01_JPRB, 0.216704E+01_JPRB, 0.220637E+01_JPRB &
+  &, 0.224551E+01_JPRB, 0.228446E+01_JPRB, 0.232320E+01_JPRB, 0.236169E+01_JPRB &
+  &, 0.239993E+01_JPRB, 0.243791E+01_JPRB, 0.247560E+01_JPRB &
+  &, 0.251298E+01_JPRB, 0.255004E+01_JPRB, 0.258677E+01_JPRB, 0.262314E+01_JPRB &
+  &, 0.265915E+01_JPRB, 0.269477E+01_JPRB, 0.273000E+01_JPRB &
+  &, 0.276482E+01_JPRB, 0.279921E+01_JPRB, 0.283317E+01_JPRB, 0.286667E+01_JPRB &
+  &, 0.289971E+01_JPRB, 0.293228E+01_JPRB, 0.296437E+01_JPRB &
+  &, 0.299596E+01_JPRB, 0.302702E+01_JPRB, 0.305759E+01_JPRB, 0.308761E+01_JPRB &
+  &, 0.311711E+01_JPRB, 0.314606E+01_JPRB, 0.317445E+01_JPRB &
+  &, 0.320227E+01_JPRB, 0.322953E+01_JPRB, 0.325621E+01_JPRB, 0.328231E+01_JPRB &
+  &, 0.330782E+01_JPRB, 0.333272E+01_JPRB, 0.335701E+01_JPRB &
+  &, 0.338071E+01_JPRB, 0.340378E+01_JPRB, 0.342625E+01_JPRB, 0.344808E+01_JPRB &
+  &, 0.346928E+01_JPRB, 0.348986E+01_JPRB, 0.350979E+01_JPRB &
+  &, 0.352911E+01_JPRB, 0.354778E+01_JPRB, 0.356578E+01_JPRB, 0.358318E+01_JPRB &
+  &, 0.359991E+01_JPRB, 0.361600E+01_JPRB, 0.363143E+01_JPRB &
+  &, 0.364622E+01_JPRB, 0.366035E+01_JPRB, 0.367224E+01_JPRB, 0.368667E+01_JPRB &
+  &, 0.369886E+01_JPRB, 0.371040E+01_JPRB, 0.372128E+01_JPRB &
+  &, 0.373155E+01_JPRB, 0.374114E+01_JPRB, 0.375010E+01_JPRB, 0.375842E+01_JPRB &
+  &, 0.376609E+01_JPRB, 0.377313E+01_JPRB, 0.377952E+01_JPRB &
+  &, 0.378530E+01_JPRB, 0.379043E+01_JPRB, 0.379494E+01_JPRB, 0.379882E+01_JPRB &
+  &, 0.380207E+01_JPRB, 0.380472E+01_JPRB, 0.380678E+01_JPRB &
+  &, 0.380819E+01_JPRB, 0.380901E+01_JPRB, 0.380924E+01_JPRB, 0.380887E+01_JPRB &
+  &, 0.380791E+01_JPRB, 0.380639E+01_JPRB, 0.380424E+01_JPRB &
+  &, 0.380155E+01_JPRB, 0.379827E+01_JPRB, 0.379444E+01_JPRB, 0.379006E+01_JPRB &
+  &, 0.378509E+01_JPRB, 0.377959E+01_JPRB, 0.377354E+01_JPRB &
+  &, 0.376697E+01_JPRB, 0.375988E+01_JPRB, 0.375225E+01_JPRB, 0.374410E+01_JPRB &
+  &, 0.373546E+01_JPRB, 0.372628E+01_JPRB, 0.371665E+01_JPRB &
+  &, 0.370653E+01_JPRB, 0.369589E+01_JPRB, 0.368459E+01_JPRB, 0.367323E+01_JPRB &
+  &, 0.366116E+01_JPRB, 0.364870E+01_JPRB, 0.363577E+01_JPRB &
+  &, 0.362239E+01_JPRB, 0.360858E+01_JPRB, 0.359436E+01_JPRB, 0.357970E+01_JPRB &
+  &, 0.356462E+01_JPRB, 0.354919E+01_JPRB, 0.353332E+01_JPRB &
+  &, 0.351710E+01_JPRB, 0.350047E+01_JPRB, 0.348347E+01_JPRB, 0.346611E+01_JPRB &
+  &, 0.344836E+01_JPRB, 0.343035E+01_JPRB, 0.341193E+01_JPRB/)
+XCW( 923, :) = (/ &
+  &  0.114574E+01_JPRB, 0.118311E+01_JPRB, 0.122081E+01_JPRB, 0.125883E+01_JPRB &
+  &, 0.129715E+01_JPRB, 0.133575E+01_JPRB, 0.137460E+01_JPRB &
+  &, 0.141370E+01_JPRB, 0.145301E+01_JPRB, 0.149253E+01_JPRB, 0.153223E+01_JPRB &
+  &, 0.157208E+01_JPRB, 0.161208E+01_JPRB, 0.165220E+01_JPRB &
+  &, 0.169242E+01_JPRB, 0.173272E+01_JPRB, 0.177308E+01_JPRB, 0.181349E+01_JPRB &
+  &, 0.185391E+01_JPRB, 0.189434E+01_JPRB, 0.193474E+01_JPRB &
+  &, 0.197512E+01_JPRB, 0.201543E+01_JPRB, 0.205566E+01_JPRB, 0.209579E+01_JPRB &
+  &, 0.213581E+01_JPRB, 0.217569E+01_JPRB, 0.221542E+01_JPRB &
+  &, 0.225497E+01_JPRB, 0.229433E+01_JPRB, 0.233348E+01_JPRB, 0.237240E+01_JPRB &
+  &, 0.241107E+01_JPRB, 0.244948E+01_JPRB, 0.248761E+01_JPRB &
+  &, 0.252543E+01_JPRB, 0.256294E+01_JPRB, 0.260012E+01_JPRB, 0.263696E+01_JPRB &
+  &, 0.267344E+01_JPRB, 0.270953E+01_JPRB, 0.274523E+01_JPRB &
+  &, 0.278053E+01_JPRB, 0.281540E+01_JPRB, 0.284985E+01_JPRB, 0.288385E+01_JPRB &
+  &, 0.291739E+01_JPRB, 0.295046E+01_JPRB, 0.298304E+01_JPRB &
+  &, 0.301513E+01_JPRB, 0.304673E+01_JPRB, 0.307780E+01_JPRB, 0.310835E+01_JPRB &
+  &, 0.313836E+01_JPRB, 0.316783E+01_JPRB, 0.319674E+01_JPRB &
+  &, 0.322510E+01_JPRB, 0.325289E+01_JPRB, 0.328011E+01_JPRB, 0.330671E+01_JPRB &
+  &, 0.333277E+01_JPRB, 0.335822E+01_JPRB, 0.338307E+01_JPRB &
+  &, 0.340729E+01_JPRB, 0.343092E+01_JPRB, 0.345393E+01_JPRB, 0.347630E+01_JPRB &
+  &, 0.349806E+01_JPRB, 0.351920E+01_JPRB, 0.353967E+01_JPRB &
+  &, 0.355954E+01_JPRB, 0.357874E+01_JPRB, 0.359731E+01_JPRB, 0.361525E+01_JPRB &
+  &, 0.363254E+01_JPRB, 0.364916E+01_JPRB, 0.366515E+01_JPRB &
+  &, 0.368049E+01_JPRB, 0.369518E+01_JPRB, 0.370922E+01_JPRB, 0.372260E+01_JPRB &
+  &, 0.373532E+01_JPRB, 0.374743E+01_JPRB, 0.375886E+01_JPRB &
+  &, 0.376964E+01_JPRB, 0.377979E+01_JPRB, 0.378927E+01_JPRB, 0.379811E+01_JPRB &
+  &, 0.380634E+01_JPRB, 0.381390E+01_JPRB, 0.382082E+01_JPRB &
+  &, 0.382713E+01_JPRB, 0.383278E+01_JPRB, 0.383782E+01_JPRB, 0.384222E+01_JPRB &
+  &, 0.384600E+01_JPRB, 0.384914E+01_JPRB, 0.385169E+01_JPRB &
+  &, 0.385362E+01_JPRB, 0.385496E+01_JPRB, 0.385568E+01_JPRB, 0.385579E+01_JPRB &
+  &, 0.385531E+01_JPRB, 0.385426E+01_JPRB, 0.385262E+01_JPRB &
+  &, 0.385036E+01_JPRB, 0.384759E+01_JPRB, 0.384419E+01_JPRB, 0.384026E+01_JPRB &
+  &, 0.383579E+01_JPRB, 0.383075E+01_JPRB, 0.382515E+01_JPRB &
+  &, 0.381902E+01_JPRB, 0.381232E+01_JPRB, 0.380513E+01_JPRB, 0.379742E+01_JPRB &
+  &, 0.378915E+01_JPRB, 0.378044E+01_JPRB, 0.377118E+01_JPRB &
+  &, 0.376142E+01_JPRB, 0.375118E+01_JPRB, 0.374050E+01_JPRB, 0.372928E+01_JPRB &
+  &, 0.371764E+01_JPRB, 0.370551E+01_JPRB, 0.369290E+01_JPRB &
+  &, 0.367989E+01_JPRB, 0.366645E+01_JPRB, 0.365253E+01_JPRB, 0.363822E+01_JPRB &
+  &, 0.362348E+01_JPRB, 0.360833E+01_JPRB, 0.359280E+01_JPRB &
+  &, 0.357683E+01_JPRB, 0.355954E+01_JPRB, 0.354376E+01_JPRB, 0.352671E+01_JPRB &
+  &, 0.350924E+01_JPRB, 0.349145E+01_JPRB, 0.347330E+01_JPRB/)
+XCW( 924, :) = (/ &
+  &  0.114650E+01_JPRB, 0.118408E+01_JPRB, 0.122200E+01_JPRB, 0.126025E+01_JPRB &
+  &, 0.129881E+01_JPRB, 0.133765E+01_JPRB, 0.137675E+01_JPRB &
+  &, 0.141611E+01_JPRB, 0.145569E+01_JPRB, 0.149548E+01_JPRB, 0.153546E+01_JPRB &
+  &, 0.157561E+01_JPRB, 0.161590E+01_JPRB, 0.165633E+01_JPRB &
+  &, 0.169686E+01_JPRB, 0.173749E+01_JPRB, 0.177818E+01_JPRB, 0.181892E+01_JPRB &
+  &, 0.185968E+01_JPRB, 0.190046E+01_JPRB, 0.194122E+01_JPRB &
+  &, 0.198196E+01_JPRB, 0.202264E+01_JPRB, 0.206325E+01_JPRB, 0.210377E+01_JPRB &
+  &, 0.214418E+01_JPRB, 0.218445E+01_JPRB, 0.222459E+01_JPRB &
+  &, 0.226455E+01_JPRB, 0.230432E+01_JPRB, 0.234390E+01_JPRB, 0.238324E+01_JPRB &
+  &, 0.242235E+01_JPRB, 0.246120E+01_JPRB, 0.249977E+01_JPRB &
+  &, 0.253804E+01_JPRB, 0.257602E+01_JPRB, 0.261366E+01_JPRB, 0.265096E+01_JPRB &
+  &, 0.268791E+01_JPRB, 0.272448E+01_JPRB, 0.276066E+01_JPRB &
+  &, 0.279645E+01_JPRB, 0.283182E+01_JPRB, 0.286676E+01_JPRB, 0.290125E+01_JPRB &
+  &, 0.293529E+01_JPRB, 0.296888E+01_JPRB, 0.300197E+01_JPRB &
+  &, 0.303458E+01_JPRB, 0.306669E+01_JPRB, 0.309828E+01_JPRB, 0.312936E+01_JPRB &
+  &, 0.315990E+01_JPRB, 0.318991E+01_JPRB, 0.321936E+01_JPRB &
+  &, 0.324825E+01_JPRB, 0.327658E+01_JPRB, 0.330433E+01_JPRB, 0.333152E+01_JPRB &
+  &, 0.335810E+01_JPRB, 0.338410E+01_JPRB, 0.340950E+01_JPRB &
+  &, 0.343428E+01_JPRB, 0.345843E+01_JPRB, 0.348202E+01_JPRB, 0.350495E+01_JPRB &
+  &, 0.352727E+01_JPRB, 0.354896E+01_JPRB, 0.357001E+01_JPRB &
+  &, 0.359041E+01_JPRB, 0.361020E+01_JPRB, 0.362933E+01_JPRB, 0.364783E+01_JPRB &
+  &, 0.366565E+01_JPRB, 0.368285E+01_JPRB, 0.369941E+01_JPRB &
+  &, 0.371532E+01_JPRB, 0.373055E+01_JPRB, 0.374515E+01_JPRB, 0.375908E+01_JPRB &
+  &, 0.377238E+01_JPRB, 0.378504E+01_JPRB, 0.379700E+01_JPRB &
+  &, 0.380835E+01_JPRB, 0.381906E+01_JPRB, 0.382908E+01_JPRB, 0.383848E+01_JPRB &
+  &, 0.384725E+01_JPRB, 0.385535E+01_JPRB, 0.386281E+01_JPRB &
+  &, 0.386966E+01_JPRB, 0.387585E+01_JPRB, 0.388139E+01_JPRB, 0.388633E+01_JPRB &
+  &, 0.389065E+01_JPRB, 0.389433E+01_JPRB, 0.389738E+01_JPRB &
+  &, 0.389985E+01_JPRB, 0.390168E+01_JPRB, 0.390289E+01_JPRB, 0.390353E+01_JPRB &
+  &, 0.390355E+01_JPRB, 0.390299E+01_JPRB, 0.390184E+01_JPRB &
+  &, 0.390010E+01_JPRB, 0.389777E+01_JPRB, 0.389489E+01_JPRB, 0.389143E+01_JPRB &
+  &, 0.388739E+01_JPRB, 0.388282E+01_JPRB, 0.387768E+01_JPRB &
+  &, 0.387196E+01_JPRB, 0.386577E+01_JPRB, 0.385898E+01_JPRB, 0.385171E+01_JPRB &
+  &, 0.384389E+01_JPRB, 0.383557E+01_JPRB, 0.382674E+01_JPRB &
+  &, 0.381741E+01_JPRB, 0.380760E+01_JPRB, 0.379727E+01_JPRB, 0.378646E+01_JPRB &
+  &, 0.377518E+01_JPRB, 0.376345E+01_JPRB, 0.375123E+01_JPRB &
+  &, 0.373856E+01_JPRB, 0.372544E+01_JPRB, 0.371189E+01_JPRB, 0.369789E+01_JPRB &
+  &, 0.368351E+01_JPRB, 0.366860E+01_JPRB, 0.365347E+01_JPRB &
+  &, 0.363778E+01_JPRB, 0.362180E+01_JPRB, 0.360537E+01_JPRB, 0.358856E+01_JPRB &
+  &, 0.357140E+01_JPRB, 0.355385E+01_JPRB, 0.353599E+01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART132',1,ZHOOK_HANDLE)
+END SUBROUTINE PART132
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART133
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART133',0,ZHOOK_HANDLE)
+
+XCW( 925, :) = (/ &
+  &  0.114727E+01_JPRB, 0.118506E+01_JPRB, 0.122321E+01_JPRB, 0.126169E+01_JPRB &
+  &, 0.130048E+01_JPRB, 0.133957E+01_JPRB, 0.137893E+01_JPRB &
+  &, 0.141854E+01_JPRB, 0.145840E+01_JPRB, 0.149847E+01_JPRB, 0.153873E+01_JPRB &
+  &, 0.157917E+01_JPRB, 0.161977E+01_JPRB, 0.166051E+01_JPRB &
+  &, 0.170136E+01_JPRB, 0.174231E+01_JPRB, 0.178333E+01_JPRB, 0.182441E+01_JPRB &
+  &, 0.186552E+01_JPRB, 0.190665E+01_JPRB, 0.194778E+01_JPRB &
+  &, 0.198888E+01_JPRB, 0.202994E+01_JPRB, 0.207093E+01_JPRB, 0.211184E+01_JPRB &
+  &, 0.215264E+01_JPRB, 0.219333E+01_JPRB, 0.223387E+01_JPRB &
+  &, 0.227425E+01_JPRB, 0.231445E+01_JPRB, 0.235445E+01_JPRB, 0.239423E+01_JPRB &
+  &, 0.243378E+01_JPRB, 0.247307E+01_JPRB, 0.251210E+01_JPRB &
+  &, 0.255083E+01_JPRB, 0.258926E+01_JPRB, 0.262737E+01_JPRB, 0.266515E+01_JPRB &
+  &, 0.270258E+01_JPRB, 0.273963E+01_JPRB, 0.277630E+01_JPRB &
+  &, 0.281259E+01_JPRB, 0.284846E+01_JPRB, 0.288390E+01_JPRB, 0.291890E+01_JPRB &
+  &, 0.295346E+01_JPRB, 0.298756E+01_JPRB, 0.302117E+01_JPRB &
+  &, 0.305430E+01_JPRB, 0.308694E+01_JPRB, 0.311907E+01_JPRB, 0.315068E+01_JPRB &
+  &, 0.318176E+01_JPRB, 0.321231E+01_JPRB, 0.324230E+01_JPRB &
+  &, 0.327175E+01_JPRB, 0.330062E+01_JPRB, 0.332893E+01_JPRB, 0.335667E+01_JPRB &
+  &, 0.338380E+01_JPRB, 0.341035E+01_JPRB, 0.343632E+01_JPRB &
+  &, 0.346166E+01_JPRB, 0.348640E+01_JPRB, 0.351053E+01_JPRB, 0.353403E+01_JPRB &
+  &, 0.355692E+01_JPRB, 0.357916E+01_JPRB, 0.360080E+01_JPRB &
+  &, 0.362177E+01_JPRB, 0.364213E+01_JPRB, 0.366182E+01_JPRB, 0.368090E+01_JPRB &
+  &, 0.369931E+01_JPRB, 0.371709E+01_JPRB, 0.373419E+01_JPRB &
+  &, 0.375068E+01_JPRB, 0.376650E+01_JPRB, 0.378166E+01_JPRB, 0.379618E+01_JPRB &
+  &, 0.381004E+01_JPRB, 0.382325E+01_JPRB, 0.383578E+01_JPRB &
+  &, 0.384770E+01_JPRB, 0.385895E+01_JPRB, 0.386955E+01_JPRB, 0.387950E+01_JPRB &
+  &, 0.388882E+01_JPRB, 0.389750E+01_JPRB, 0.390551E+01_JPRB &
+  &, 0.391288E+01_JPRB, 0.391962E+01_JPRB, 0.392575E+01_JPRB, 0.393121E+01_JPRB &
+  &, 0.393608E+01_JPRB, 0.394027E+01_JPRB, 0.394387E+01_JPRB &
+  &, 0.394685E+01_JPRB, 0.394916E+01_JPRB, 0.395070E+01_JPRB, 0.395211E+01_JPRB &
+  &, 0.395267E+01_JPRB, 0.395261E+01_JPRB, 0.395196E+01_JPRB &
+  &, 0.395073E+01_JPRB, 0.394889E+01_JPRB, 0.394650E+01_JPRB, 0.394349E+01_JPRB &
+  &, 0.393998E+01_JPRB, 0.393584E+01_JPRB, 0.393119E+01_JPRB &
+  &, 0.392594E+01_JPRB, 0.392017E+01_JPRB, 0.391390E+01_JPRB, 0.390705E+01_JPRB &
+  &, 0.389968E+01_JPRB, 0.389177E+01_JPRB, 0.388338E+01_JPRB &
+  &, 0.387449E+01_JPRB, 0.386507E+01_JPRB, 0.385513E+01_JPRB, 0.384474E+01_JPRB &
+  &, 0.383388E+01_JPRB, 0.382251E+01_JPRB, 0.381071E+01_JPRB &
+  &, 0.379838E+01_JPRB, 0.378565E+01_JPRB, 0.377250E+01_JPRB, 0.375883E+01_JPRB &
+  &, 0.374477E+01_JPRB, 0.373028E+01_JPRB, 0.371539E+01_JPRB &
+  &, 0.370006E+01_JPRB, 0.368437E+01_JPRB, 0.366828E+01_JPRB, 0.365174E+01_JPRB &
+  &, 0.363484E+01_JPRB, 0.361761E+01_JPRB, 0.359999E+01_JPRB/)
+XCW( 926, :) = (/ &
+  &  0.114805E+01_JPRB, 0.118606E+01_JPRB, 0.122443E+01_JPRB, 0.126314E+01_JPRB &
+  &, 0.130217E+01_JPRB, 0.134151E+01_JPRB, 0.138113E+01_JPRB &
+  &, 0.142101E+01_JPRB, 0.146113E+01_JPRB, 0.150149E+01_JPRB, 0.154204E+01_JPRB &
+  &, 0.158278E+01_JPRB, 0.162368E+01_JPRB, 0.166473E+01_JPRB &
+  &, 0.170591E+01_JPRB, 0.174718E+01_JPRB, 0.178854E+01_JPRB, 0.182997E+01_JPRB &
+  &, 0.187143E+01_JPRB, 0.191292E+01_JPRB, 0.195442E+01_JPRB &
+  &, 0.199589E+01_JPRB, 0.203733E+01_JPRB, 0.207871E+01_JPRB, 0.212001E+01_JPRB &
+  &, 0.216122E+01_JPRB, 0.220231E+01_JPRB, 0.224327E+01_JPRB &
+  &, 0.228407E+01_JPRB, 0.232470E+01_JPRB, 0.236513E+01_JPRB, 0.240536E+01_JPRB &
+  &, 0.244535E+01_JPRB, 0.248510E+01_JPRB, 0.252458E+01_JPRB &
+  &, 0.256378E+01_JPRB, 0.260268E+01_JPRB, 0.264127E+01_JPRB, 0.267953E+01_JPRB &
+  &, 0.271744E+01_JPRB, 0.275499E+01_JPRB, 0.279216E+01_JPRB &
+  &, 0.282894E+01_JPRB, 0.286531E+01_JPRB, 0.290128E+01_JPRB, 0.293680E+01_JPRB &
+  &, 0.297188E+01_JPRB, 0.300649E+01_JPRB, 0.304064E+01_JPRB &
+  &, 0.307430E+01_JPRB, 0.310748E+01_JPRB, 0.314014E+01_JPRB, 0.317230E+01_JPRB &
+  &, 0.320393E+01_JPRB, 0.323501E+01_JPRB, 0.326558E+01_JPRB &
+  &, 0.329557E+01_JPRB, 0.332501E+01_JPRB, 0.335388E+01_JPRB, 0.338218E+01_JPRB &
+  &, 0.340989E+01_JPRB, 0.343702E+01_JPRB, 0.346353E+01_JPRB &
+  &, 0.348946E+01_JPRB, 0.351478E+01_JPRB, 0.353948E+01_JPRB, 0.356355E+01_JPRB &
+  &, 0.358702E+01_JPRB, 0.360985E+01_JPRB, 0.363206E+01_JPRB &
+  &, 0.365363E+01_JPRB, 0.367456E+01_JPRB, 0.369484E+01_JPRB, 0.371449E+01_JPRB &
+  &, 0.373348E+01_JPRB, 0.375186E+01_JPRB, 0.376955E+01_JPRB &
+  &, 0.378660E+01_JPRB, 0.380302E+01_JPRB, 0.381874E+01_JPRB, 0.383384E+01_JPRB &
+  &, 0.384788E+01_JPRB, 0.386209E+01_JPRB, 0.387521E+01_JPRB &
+  &, 0.388769E+01_JPRB, 0.389953E+01_JPRB, 0.391072E+01_JPRB, 0.392123E+01_JPRB &
+  &, 0.393111E+01_JPRB, 0.394036E+01_JPRB, 0.394893E+01_JPRB &
+  &, 0.395689E+01_JPRB, 0.396417E+01_JPRB, 0.397086E+01_JPRB, 0.397689E+01_JPRB &
+  &, 0.398229E+01_JPRB, 0.398705E+01_JPRB, 0.399117E+01_JPRB &
+  &, 0.399472E+01_JPRB, 0.399759E+01_JPRB, 0.399984E+01_JPRB, 0.400155E+01_JPRB &
+  &, 0.400263E+01_JPRB, 0.400309E+01_JPRB, 0.400295E+01_JPRB &
+  &, 0.400223E+01_JPRB, 0.400094E+01_JPRB, 0.399902E+01_JPRB, 0.399656E+01_JPRB &
+  &, 0.399351E+01_JPRB, 0.398987E+01_JPRB, 0.398571E+01_JPRB &
+  &, 0.398095E+01_JPRB, 0.397567E+01_JPRB, 0.396984E+01_JPRB, 0.396327E+01_JPRB &
+  &, 0.395652E+01_JPRB, 0.394908E+01_JPRB, 0.394111E+01_JPRB &
+  &, 0.393267E+01_JPRB, 0.392365E+01_JPRB, 0.391421E+01_JPRB, 0.390422E+01_JPRB &
+  &, 0.389374E+01_JPRB, 0.388281E+01_JPRB, 0.387137E+01_JPRB &
+  &, 0.385947E+01_JPRB, 0.384710E+01_JPRB, 0.383430E+01_JPRB, 0.382103E+01_JPRB &
+  &, 0.380730E+01_JPRB, 0.379320E+01_JPRB, 0.377864E+01_JPRB &
+  &, 0.376368E+01_JPRB, 0.374829E+01_JPRB, 0.373250E+01_JPRB, 0.371631E+01_JPRB &
+  &, 0.369976E+01_JPRB, 0.368280E+01_JPRB, 0.366544E+01_JPRB/)
+XCW( 927, :) = (/ &
+  &  0.114883E+01_JPRB, 0.118706E+01_JPRB, 0.122566E+01_JPRB, 0.126460E+01_JPRB &
+  &, 0.130388E+01_JPRB, 0.134347E+01_JPRB, 0.138335E+01_JPRB &
+  &, 0.142350E+01_JPRB, 0.146391E+01_JPRB, 0.150454E+01_JPRB, 0.154539E+01_JPRB &
+  &, 0.158643E+01_JPRB, 0.162765E+01_JPRB, 0.166901E+01_JPRB &
+  &, 0.171051E+01_JPRB, 0.175212E+01_JPRB, 0.179382E+01_JPRB, 0.183559E+01_JPRB &
+  &, 0.187742E+01_JPRB, 0.191927E+01_JPRB, 0.196113E+01_JPRB &
+  &, 0.200299E+01_JPRB, 0.204482E+01_JPRB, 0.208659E+01_JPRB, 0.212829E+01_JPRB &
+  &, 0.216991E+01_JPRB, 0.221141E+01_JPRB, 0.225279E+01_JPRB &
+  &, 0.229402E+01_JPRB, 0.233508E+01_JPRB, 0.237596E+01_JPRB, 0.241663E+01_JPRB &
+  &, 0.245708E+01_JPRB, 0.249729E+01_JPRB, 0.253724E+01_JPRB &
+  &, 0.257691E+01_JPRB, 0.261629E+01_JPRB, 0.265536E+01_JPRB, 0.269411E+01_JPRB &
+  &, 0.273252E+01_JPRB, 0.277057E+01_JPRB, 0.280824E+01_JPRB &
+  &, 0.284553E+01_JPRB, 0.288242E+01_JPRB, 0.291889E+01_JPRB, 0.295494E+01_JPRB &
+  &, 0.299055E+01_JPRB, 0.302571E+01_JPRB, 0.306038E+01_JPRB &
+  &, 0.309459E+01_JPRB, 0.312831E+01_JPRB, 0.316153E+01_JPRB, 0.319423E+01_JPRB &
+  &, 0.322641E+01_JPRB, 0.325808E+01_JPRB, 0.328918E+01_JPRB &
+  &, 0.331976E+01_JPRB, 0.334977E+01_JPRB, 0.337921E+01_JPRB, 0.340807E+01_JPRB &
+  &, 0.343636E+01_JPRB, 0.346406E+01_JPRB, 0.349117E+01_JPRB &
+  &, 0.351768E+01_JPRB, 0.354358E+01_JPRB, 0.356886E+01_JPRB, 0.359354E+01_JPRB &
+  &, 0.361760E+01_JPRB, 0.364101E+01_JPRB, 0.366382E+01_JPRB &
+  &, 0.368598E+01_JPRB, 0.370733E+01_JPRB, 0.372839E+01_JPRB, 0.374862E+01_JPRB &
+  &, 0.376822E+01_JPRB, 0.378717E+01_JPRB, 0.380546E+01_JPRB &
+  &, 0.382311E+01_JPRB, 0.384010E+01_JPRB, 0.385647E+01_JPRB, 0.387215E+01_JPRB &
+  &, 0.388718E+01_JPRB, 0.390156E+01_JPRB, 0.391530E+01_JPRB &
+  &, 0.392837E+01_JPRB, 0.394079E+01_JPRB, 0.395255E+01_JPRB, 0.396367E+01_JPRB &
+  &, 0.397412E+01_JPRB, 0.398392E+01_JPRB, 0.399309E+01_JPRB &
+  &, 0.400164E+01_JPRB, 0.400949E+01_JPRB, 0.401673E+01_JPRB, 0.402333E+01_JPRB &
+  &, 0.402928E+01_JPRB, 0.403462E+01_JPRB, 0.403932E+01_JPRB &
+  &, 0.404341E+01_JPRB, 0.404686E+01_JPRB, 0.404957E+01_JPRB, 0.405193E+01_JPRB &
+  &, 0.405351E+01_JPRB, 0.405454E+01_JPRB, 0.405494E+01_JPRB &
+  &, 0.405470E+01_JPRB, 0.405394E+01_JPRB, 0.405254E+01_JPRB, 0.405060E+01_JPRB &
+  &, 0.404806E+01_JPRB, 0.404494E+01_JPRB, 0.404124E+01_JPRB &
+  &, 0.403700E+01_JPRB, 0.403217E+01_JPRB, 0.402683E+01_JPRB, 0.402076E+01_JPRB &
+  &, 0.401450E+01_JPRB, 0.400750E+01_JPRB, 0.400001E+01_JPRB &
+  &, 0.399200E+01_JPRB, 0.398345E+01_JPRB, 0.397443E+01_JPRB, 0.396484E+01_JPRB &
+  &, 0.395482E+01_JPRB, 0.394428E+01_JPRB, 0.393324E+01_JPRB &
+  &, 0.392177E+01_JPRB, 0.390983E+01_JPRB, 0.389740E+01_JPRB, 0.388449E+01_JPRB &
+  &, 0.387118E+01_JPRB, 0.385743E+01_JPRB, 0.384320E+01_JPRB &
+  &, 0.382863E+01_JPRB, 0.381357E+01_JPRB, 0.379809E+01_JPRB, 0.378227E+01_JPRB &
+  &, 0.376602E+01_JPRB, 0.374934E+01_JPRB, 0.373234E+01_JPRB/)
+XCW( 928, :) = (/ &
+  &  0.114963E+01_JPRB, 0.118808E+01_JPRB, 0.122690E+01_JPRB, 0.126609E+01_JPRB &
+  &, 0.130561E+01_JPRB, 0.134545E+01_JPRB, 0.138560E+01_JPRB &
+  &, 0.142602E+01_JPRB, 0.146671E+01_JPRB, 0.150763E+01_JPRB, 0.154878E+01_JPRB &
+  &, 0.159013E+01_JPRB, 0.163165E+01_JPRB, 0.167334E+01_JPRB &
+  &, 0.171517E+01_JPRB, 0.175712E+01_JPRB, 0.179917E+01_JPRB, 0.184129E+01_JPRB &
+  &, 0.188348E+01_JPRB, 0.192570E+01_JPRB, 0.196794E+01_JPRB &
+  &, 0.201018E+01_JPRB, 0.205240E+01_JPRB, 0.209457E+01_JPRB, 0.213668E+01_JPRB &
+  &, 0.217871E+01_JPRB, 0.222064E+01_JPRB, 0.226244E+01_JPRB &
+  &, 0.230411E+01_JPRB, 0.234561E+01_JPRB, 0.238693E+01_JPRB, 0.242806E+01_JPRB &
+  &, 0.246897E+01_JPRB, 0.250964E+01_JPRB, 0.255007E+01_JPRB &
+  &, 0.259022E+01_JPRB, 0.263008E+01_JPRB, 0.266965E+01_JPRB, 0.270889E+01_JPRB &
+  &, 0.274780E+01_JPRB, 0.278636E+01_JPRB, 0.282454E+01_JPRB &
+  &, 0.286236E+01_JPRB, 0.289977E+01_JPRB, 0.293673E+01_JPRB, 0.297335E+01_JPRB &
+  &, 0.300950E+01_JPRB, 0.304519E+01_JPRB, 0.308042E+01_JPRB &
+  &, 0.311518E+01_JPRB, 0.314944E+01_JPRB, 0.318323E+01_JPRB, 0.321649E+01_JPRB &
+  &, 0.324925E+01_JPRB, 0.328147E+01_JPRB, 0.331315E+01_JPRB &
+  &, 0.334431E+01_JPRB, 0.337488E+01_JPRB, 0.340491E+01_JPRB, 0.343436E+01_JPRB &
+  &, 0.346325E+01_JPRB, 0.349153E+01_JPRB, 0.351923E+01_JPRB &
+  &, 0.354633E+01_JPRB, 0.357269E+01_JPRB, 0.359872E+01_JPRB, 0.362399E+01_JPRB &
+  &, 0.364802E+01_JPRB, 0.367267E+01_JPRB, 0.369607E+01_JPRB &
+  &, 0.371884E+01_JPRB, 0.374097E+01_JPRB, 0.376246E+01_JPRB, 0.378331E+01_JPRB &
+  &, 0.380351E+01_JPRB, 0.382306E+01_JPRB, 0.384198E+01_JPRB &
+  &, 0.386022E+01_JPRB, 0.387784E+01_JPRB, 0.389479E+01_JPRB, 0.391107E+01_JPRB &
+  &, 0.392668E+01_JPRB, 0.394172E+01_JPRB, 0.395604E+01_JPRB &
+  &, 0.396972E+01_JPRB, 0.398272E+01_JPRB, 0.399510E+01_JPRB, 0.400681E+01_JPRB &
+  &, 0.401788E+01_JPRB, 0.402827E+01_JPRB, 0.403804E+01_JPRB &
+  &, 0.404714E+01_JPRB, 0.405562E+01_JPRB, 0.406342E+01_JPRB, 0.407061E+01_JPRB &
+  &, 0.407715E+01_JPRB, 0.408305E+01_JPRB, 0.408835E+01_JPRB &
+  &, 0.409299E+01_JPRB, 0.409700E+01_JPRB, 0.410041E+01_JPRB, 0.410318E+01_JPRB &
+  &, 0.410534E+01_JPRB, 0.410689E+01_JPRB, 0.410779E+01_JPRB &
+  &, 0.410818E+01_JPRB, 0.410791E+01_JPRB, 0.410710E+01_JPRB, 0.410565E+01_JPRB &
+  &, 0.410348E+01_JPRB, 0.410101E+01_JPRB, 0.409784E+01_JPRB &
+  &, 0.409412E+01_JPRB, 0.408981E+01_JPRB, 0.408494E+01_JPRB, 0.407953E+01_JPRB &
+  &, 0.407358E+01_JPRB, 0.406708E+01_JPRB, 0.406004E+01_JPRB &
+  &, 0.405253E+01_JPRB, 0.404442E+01_JPRB, 0.403583E+01_JPRB, 0.402672E+01_JPRB &
+  &, 0.401712E+01_JPRB, 0.400704E+01_JPRB, 0.399641E+01_JPRB &
+  &, 0.398539E+01_JPRB, 0.397385E+01_JPRB, 0.396181E+01_JPRB, 0.394933E+01_JPRB &
+  &, 0.393640E+01_JPRB, 0.392301E+01_JPRB, 0.390920E+01_JPRB &
+  &, 0.389492E+01_JPRB, 0.388026E+01_JPRB, 0.386518E+01_JPRB, 0.384969E+01_JPRB &
+  &, 0.383375E+01_JPRB, 0.381745E+01_JPRB, 0.380074E+01_JPRB/)
+XCW( 929, :) = (/ &
+  &  0.115043E+01_JPRB, 0.118911E+01_JPRB, 0.122816E+01_JPRB, 0.126759E+01_JPRB &
+  &, 0.130736E+01_JPRB, 0.134746E+01_JPRB, 0.138787E+01_JPRB &
+  &, 0.142857E+01_JPRB, 0.146954E+01_JPRB, 0.151076E+01_JPRB, 0.155221E+01_JPRB &
+  &, 0.159386E+01_JPRB, 0.163571E+01_JPRB, 0.167773E+01_JPRB &
+  &, 0.171989E+01_JPRB, 0.176218E+01_JPRB, 0.180458E+01_JPRB, 0.184706E+01_JPRB &
+  &, 0.188961E+01_JPRB, 0.193221E+01_JPRB, 0.197483E+01_JPRB &
+  &, 0.201746E+01_JPRB, 0.206008E+01_JPRB, 0.210266E+01_JPRB, 0.214518E+01_JPRB &
+  &, 0.218763E+01_JPRB, 0.222998E+01_JPRB, 0.227222E+01_JPRB &
+  &, 0.231432E+01_JPRB, 0.235628E+01_JPRB, 0.239806E+01_JPRB, 0.243964E+01_JPRB &
+  &, 0.248102E+01_JPRB, 0.252217E+01_JPRB, 0.256307E+01_JPRB &
+  &, 0.260371E+01_JPRB, 0.264407E+01_JPRB, 0.268414E+01_JPRB, 0.272389E+01_JPRB &
+  &, 0.276330E+01_JPRB, 0.280237E+01_JPRB, 0.284108E+01_JPRB &
+  &, 0.287942E+01_JPRB, 0.291736E+01_JPRB, 0.295490E+01_JPRB, 0.299203E+01_JPRB &
+  &, 0.302872E+01_JPRB, 0.306496E+01_JPRB, 0.310075E+01_JPRB &
+  &, 0.313607E+01_JPRB, 0.317090E+01_JPRB, 0.320525E+01_JPRB, 0.323909E+01_JPRB &
+  &, 0.327241E+01_JPRB, 0.330523E+01_JPRB, 0.333749E+01_JPRB &
+  &, 0.336923E+01_JPRB, 0.340040E+01_JPRB, 0.343101E+01_JPRB, 0.346106E+01_JPRB &
+  &, 0.349054E+01_JPRB, 0.351942E+01_JPRB, 0.354774E+01_JPRB &
+  &, 0.357544E+01_JPRB, 0.360251E+01_JPRB, 0.362903E+01_JPRB, 0.365493E+01_JPRB &
+  &, 0.368018E+01_JPRB, 0.370484E+01_JPRB, 0.372885E+01_JPRB &
+  &, 0.375222E+01_JPRB, 0.377499E+01_JPRB, 0.379708E+01_JPRB, 0.381856E+01_JPRB &
+  &, 0.383937E+01_JPRB, 0.385947E+01_JPRB, 0.387908E+01_JPRB &
+  &, 0.389795E+01_JPRB, 0.391619E+01_JPRB, 0.393375E+01_JPRB, 0.395067E+01_JPRB &
+  &, 0.396692E+01_JPRB, 0.398253E+01_JPRB, 0.399747E+01_JPRB &
+  &, 0.401177E+01_JPRB, 0.402540E+01_JPRB, 0.403838E+01_JPRB, 0.405059E+01_JPRB &
+  &, 0.406236E+01_JPRB, 0.407338E+01_JPRB, 0.408376E+01_JPRB &
+  &, 0.409347E+01_JPRB, 0.410252E+01_JPRB, 0.411096E+01_JPRB, 0.411873E+01_JPRB &
+  &, 0.412588E+01_JPRB, 0.413238E+01_JPRB, 0.413822E+01_JPRB &
+  &, 0.414347E+01_JPRB, 0.414805E+01_JPRB, 0.415203E+01_JPRB, 0.415540E+01_JPRB &
+  &, 0.415813E+01_JPRB, 0.416024E+01_JPRB, 0.416175E+01_JPRB &
+  &, 0.416266E+01_JPRB, 0.416295E+01_JPRB, 0.416265E+01_JPRB, 0.416176E+01_JPRB &
+  &, 0.416026E+01_JPRB, 0.415821E+01_JPRB, 0.415559E+01_JPRB &
+  &, 0.415236E+01_JPRB, 0.414855E+01_JPRB, 0.414421E+01_JPRB, 0.413932E+01_JPRB &
+  &, 0.413385E+01_JPRB, 0.412787E+01_JPRB, 0.412130E+01_JPRB &
+  &, 0.411425E+01_JPRB, 0.410665E+01_JPRB, 0.409851E+01_JPRB, 0.408990E+01_JPRB &
+  &, 0.408073E+01_JPRB, 0.407109E+01_JPRB, 0.406094E+01_JPRB &
+  &, 0.405028E+01_JPRB, 0.403921E+01_JPRB, 0.402758E+01_JPRB, 0.401556E+01_JPRB &
+  &, 0.400301E+01_JPRB, 0.399001E+01_JPRB, 0.397658E+01_JPRB &
+  &, 0.396273E+01_JPRB, 0.394843E+01_JPRB, 0.393370E+01_JPRB, 0.391855E+01_JPRB &
+  &, 0.390295E+01_JPRB, 0.388653E+01_JPRB, 0.387066E+01_JPRB/)
+XCW( 930, :) = (/ &
+  &  0.115125E+01_JPRB, 0.119014E+01_JPRB, 0.122944E+01_JPRB, 0.126911E+01_JPRB &
+  &, 0.130913E+01_JPRB, 0.134950E+01_JPRB, 0.139018E+01_JPRB &
+  &, 0.143116E+01_JPRB, 0.147241E+01_JPRB, 0.151393E+01_JPRB, 0.155568E+01_JPRB &
+  &, 0.159765E+01_JPRB, 0.163982E+01_JPRB, 0.168216E+01_JPRB &
+  &, 0.172467E+01_JPRB, 0.176731E+01_JPRB, 0.181006E+01_JPRB, 0.185291E+01_JPRB &
+  &, 0.189583E+01_JPRB, 0.193881E+01_JPRB, 0.198182E+01_JPRB &
+  &, 0.202484E+01_JPRB, 0.206786E+01_JPRB, 0.211085E+01_JPRB, 0.215379E+01_JPRB &
+  &, 0.219667E+01_JPRB, 0.223945E+01_JPRB, 0.228213E+01_JPRB &
+  &, 0.232469E+01_JPRB, 0.236709E+01_JPRB, 0.240933E+01_JPRB, 0.245139E+01_JPRB &
+  &, 0.249324E+01_JPRB, 0.253487E+01_JPRB, 0.257626E+01_JPRB &
+  &, 0.261739E+01_JPRB, 0.265825E+01_JPRB, 0.269882E+01_JPRB, 0.273908E+01_JPRB &
+  &, 0.277902E+01_JPRB, 0.281862E+01_JPRB, 0.285786E+01_JPRB &
+  &, 0.289673E+01_JPRB, 0.293522E+01_JPRB, 0.297330E+01_JPRB, 0.301097E+01_JPRB &
+  &, 0.304822E+01_JPRB, 0.308503E+01_JPRB, 0.312137E+01_JPRB &
+  &, 0.315726E+01_JPRB, 0.319267E+01_JPRB, 0.322760E+01_JPRB, 0.326202E+01_JPRB &
+  &, 0.329594E+01_JPRB, 0.332934E+01_JPRB, 0.336220E+01_JPRB &
+  &, 0.339452E+01_JPRB, 0.342630E+01_JPRB, 0.345752E+01_JPRB, 0.348818E+01_JPRB &
+  &, 0.351826E+01_JPRB, 0.354777E+01_JPRB, 0.357669E+01_JPRB &
+  &, 0.360500E+01_JPRB, 0.363273E+01_JPRB, 0.365984E+01_JPRB, 0.368635E+01_JPRB &
+  &, 0.371224E+01_JPRB, 0.373751E+01_JPRB, 0.376215E+01_JPRB &
+  &, 0.378617E+01_JPRB, 0.380955E+01_JPRB, 0.383230E+01_JPRB, 0.385435E+01_JPRB &
+  &, 0.387583E+01_JPRB, 0.389665E+01_JPRB, 0.391680E+01_JPRB &
+  &, 0.393623E+01_JPRB, 0.395518E+01_JPRB, 0.397337E+01_JPRB, 0.399089E+01_JPRB &
+  &, 0.400782E+01_JPRB, 0.402405E+01_JPRB, 0.403963E+01_JPRB &
+  &, 0.405455E+01_JPRB, 0.406881E+01_JPRB, 0.408232E+01_JPRB, 0.409536E+01_JPRB &
+  &, 0.410768E+01_JPRB, 0.411929E+01_JPRB, 0.413028E+01_JPRB &
+  &, 0.414061E+01_JPRB, 0.415029E+01_JPRB, 0.415932E+01_JPRB, 0.416771E+01_JPRB &
+  &, 0.417549E+01_JPRB, 0.418258E+01_JPRB, 0.418904E+01_JPRB &
+  &, 0.419488E+01_JPRB, 0.420008E+01_JPRB, 0.420461E+01_JPRB, 0.420856E+01_JPRB &
+  &, 0.421188E+01_JPRB, 0.421457E+01_JPRB, 0.421669E+01_JPRB &
+  &, 0.421814E+01_JPRB, 0.421901E+01_JPRB, 0.421928E+01_JPRB, 0.421896E+01_JPRB &
+  &, 0.421803E+01_JPRB, 0.421650E+01_JPRB, 0.421439E+01_JPRB &
+  &, 0.421172E+01_JPRB, 0.420846E+01_JPRB, 0.420468E+01_JPRB, 0.420020E+01_JPRB &
+  &, 0.419537E+01_JPRB, 0.418983E+01_JPRB, 0.418379E+01_JPRB &
+  &, 0.417722E+01_JPRB, 0.417014E+01_JPRB, 0.416252E+01_JPRB, 0.415432E+01_JPRB &
+  &, 0.414567E+01_JPRB, 0.413648E+01_JPRB, 0.412677E+01_JPRB &
+  &, 0.411661E+01_JPRB, 0.410592E+01_JPRB, 0.409476E+01_JPRB, 0.408316E+01_JPRB &
+  &, 0.407103E+01_JPRB, 0.405849E+01_JPRB, 0.404545E+01_JPRB &
+  &, 0.403199E+01_JPRB, 0.401807E+01_JPRB, 0.400372E+01_JPRB, 0.398894E+01_JPRB &
+  &, 0.397376E+01_JPRB, 0.395813E+01_JPRB, 0.394215E+01_JPRB/)
+XCW( 931, :) = (/ &
+  &  0.115207E+01_JPRB, 0.119120E+01_JPRB, 0.123073E+01_JPRB, 0.127064E+01_JPRB &
+  &, 0.131093E+01_JPRB, 0.135155E+01_JPRB, 0.139251E+01_JPRB &
+  &, 0.143377E+01_JPRB, 0.147532E+01_JPRB, 0.151713E+01_JPRB, 0.155920E+01_JPRB &
+  &, 0.160148E+01_JPRB, 0.164398E+01_JPRB, 0.168666E+01_JPRB &
+  &, 0.172951E+01_JPRB, 0.177250E+01_JPRB, 0.181561E+01_JPRB, 0.185883E+01_JPRB &
+  &, 0.190213E+01_JPRB, 0.194549E+01_JPRB, 0.198890E+01_JPRB &
+  &, 0.203232E+01_JPRB, 0.207575E+01_JPRB, 0.211916E+01_JPRB, 0.216252E+01_JPRB &
+  &, 0.220583E+01_JPRB, 0.224905E+01_JPRB, 0.229218E+01_JPRB &
+  &, 0.233519E+01_JPRB, 0.237806E+01_JPRB, 0.242077E+01_JPRB, 0.246330E+01_JPRB &
+  &, 0.250563E+01_JPRB, 0.254775E+01_JPRB, 0.258964E+01_JPRB &
+  &, 0.263127E+01_JPRB, 0.267264E+01_JPRB, 0.271373E+01_JPRB, 0.275451E+01_JPRB &
+  &, 0.279497E+01_JPRB, 0.283510E+01_JPRB, 0.287488E+01_JPRB &
+  &, 0.291430E+01_JPRB, 0.295334E+01_JPRB, 0.299197E+01_JPRB, 0.303021E+01_JPRB &
+  &, 0.306803E+01_JPRB, 0.310540E+01_JPRB, 0.314232E+01_JPRB &
+  &, 0.317544E+01_JPRB, 0.321479E+01_JPRB, 0.325030E+01_JPRB, 0.328531E+01_JPRB &
+  &, 0.331983E+01_JPRB, 0.335382E+01_JPRB, 0.338729E+01_JPRB &
+  &, 0.342023E+01_JPRB, 0.345260E+01_JPRB, 0.348445E+01_JPRB, 0.351572E+01_JPRB &
+  &, 0.354642E+01_JPRB, 0.357655E+01_JPRB, 0.360610E+01_JPRB &
+  &, 0.363505E+01_JPRB, 0.366339E+01_JPRB, 0.369116E+01_JPRB, 0.371829E+01_JPRB &
+  &, 0.374482E+01_JPRB, 0.377073E+01_JPRB, 0.379598E+01_JPRB &
+  &, 0.382067E+01_JPRB, 0.384469E+01_JPRB, 0.386808E+01_JPRB, 0.389081E+01_JPRB &
+  &, 0.391293E+01_JPRB, 0.393434E+01_JPRB, 0.395518E+01_JPRB &
+  &, 0.397534E+01_JPRB, 0.399483E+01_JPRB, 0.401367E+01_JPRB, 0.403188E+01_JPRB &
+  &, 0.404943E+01_JPRB, 0.406631E+01_JPRB, 0.408253E+01_JPRB &
+  &, 0.409807E+01_JPRB, 0.411299E+01_JPRB, 0.412724E+01_JPRB, 0.414082E+01_JPRB &
+  &, 0.415375E+01_JPRB, 0.416602E+01_JPRB, 0.417765E+01_JPRB &
+  &, 0.418862E+01_JPRB, 0.419893E+01_JPRB, 0.420860E+01_JPRB, 0.421737E+01_JPRB &
+  &, 0.422598E+01_JPRB, 0.423371E+01_JPRB, 0.424077E+01_JPRB &
+  &, 0.424722E+01_JPRB, 0.425306E+01_JPRB, 0.425823E+01_JPRB, 0.426274E+01_JPRB &
+  &, 0.426666E+01_JPRB, 0.426999E+01_JPRB, 0.427263E+01_JPRB &
+  &, 0.427471E+01_JPRB, 0.427617E+01_JPRB, 0.427703E+01_JPRB, 0.427726E+01_JPRB &
+  &, 0.427682E+01_JPRB, 0.427592E+01_JPRB, 0.427439E+01_JPRB &
+  &, 0.427230E+01_JPRB, 0.426957E+01_JPRB, 0.426630E+01_JPRB, 0.426248E+01_JPRB &
+  &, 0.425807E+01_JPRB, 0.425309E+01_JPRB, 0.424760E+01_JPRB &
+  &, 0.424153E+01_JPRB, 0.423490E+01_JPRB, 0.422782E+01_JPRB, 0.422015E+01_JPRB &
+  &, 0.421193E+01_JPRB, 0.420326E+01_JPRB, 0.419402E+01_JPRB &
+  &, 0.418432E+01_JPRB, 0.417413E+01_JPRB, 0.416342E+01_JPRB, 0.415220E+01_JPRB &
+  &, 0.414055E+01_JPRB, 0.412844E+01_JPRB, 0.411582E+01_JPRB &
+  &, 0.410277E+01_JPRB, 0.408926E+01_JPRB, 0.407536E+01_JPRB, 0.406096E+01_JPRB &
+  &, 0.404616E+01_JPRB, 0.403091E+01_JPRB, 0.401522E+01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART133',1,ZHOOK_HANDLE)
+END SUBROUTINE PART133
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART134
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART134',0,ZHOOK_HANDLE)
+
+XCW( 932, :) = (/ &
+  &  0.115290E+01_JPRB, 0.119226E+01_JPRB, 0.123203E+01_JPRB, 0.127220E+01_JPRB &
+  &, 0.131274E+01_JPRB, 0.135364E+01_JPRB, 0.139487E+01_JPRB &
+  &, 0.143642E+01_JPRB, 0.147826E+01_JPRB, 0.152038E+01_JPRB, 0.156276E+01_JPRB &
+  &, 0.160537E+01_JPRB, 0.164819E+01_JPRB, 0.169121E+01_JPRB &
+  &, 0.173441E+01_JPRB, 0.177776E+01_JPRB, 0.182124E+01_JPRB, 0.186483E+01_JPRB &
+  &, 0.190851E+01_JPRB, 0.195227E+01_JPRB, 0.199607E+01_JPRB &
+  &, 0.203990E+01_JPRB, 0.208374E+01_JPRB, 0.212758E+01_JPRB, 0.217137E+01_JPRB &
+  &, 0.221512E+01_JPRB, 0.225879E+01_JPRB, 0.230237E+01_JPRB &
+  &, 0.234584E+01_JPRB, 0.238917E+01_JPRB, 0.243236E+01_JPRB, 0.247537E+01_JPRB &
+  &, 0.251820E+01_JPRB, 0.256082E+01_JPRB, 0.260321E+01_JPRB &
+  &, 0.264535E+01_JPRB, 0.268724E+01_JPRB, 0.272885E+01_JPRB, 0.277016E+01_JPRB &
+  &, 0.281116E+01_JPRB, 0.285184E+01_JPRB, 0.289216E+01_JPRB &
+  &, 0.293214E+01_JPRB, 0.297172E+01_JPRB, 0.301094E+01_JPRB, 0.304974E+01_JPRB &
+  &, 0.308813E+01_JPRB, 0.312608E+01_JPRB, 0.316359E+01_JPRB &
+  &, 0.320065E+01_JPRB, 0.323724E+01_JPRB, 0.327334E+01_JPRB, 0.330897E+01_JPRB &
+  &, 0.334409E+01_JPRB, 0.337869E+01_JPRB, 0.341278E+01_JPRB &
+  &, 0.344632E+01_JPRB, 0.347934E+01_JPRB, 0.351181E+01_JPRB, 0.354370E+01_JPRB &
+  &, 0.357505E+01_JPRB, 0.360581E+01_JPRB, 0.363599E+01_JPRB &
+  &, 0.366557E+01_JPRB, 0.369457E+01_JPRB, 0.372297E+01_JPRB, 0.375076E+01_JPRB &
+  &, 0.377793E+01_JPRB, 0.380449E+01_JPRB, 0.383042E+01_JPRB &
+  &, 0.385574E+01_JPRB, 0.388041E+01_JPRB, 0.390446E+01_JPRB, 0.392785E+01_JPRB &
+  &, 0.395062E+01_JPRB, 0.397273E+01_JPRB, 0.399421E+01_JPRB &
+  &, 0.401503E+01_JPRB, 0.403519E+01_JPRB, 0.405466E+01_JPRB, 0.407354E+01_JPRB &
+  &, 0.409174E+01_JPRB, 0.410928E+01_JPRB, 0.412617E+01_JPRB &
+  &, 0.414240E+01_JPRB, 0.415794E+01_JPRB, 0.417286E+01_JPRB, 0.418709E+01_JPRB &
+  &, 0.420069E+01_JPRB, 0.421361E+01_JPRB, 0.422589E+01_JPRB &
+  &, 0.423751E+01_JPRB, 0.424844E+01_JPRB, 0.425876E+01_JPRB, 0.426842E+01_JPRB &
+  &, 0.427742E+01_JPRB, 0.428581E+01_JPRB, 0.429349E+01_JPRB &
+  &, 0.430059E+01_JPRB, 0.430702E+01_JPRB, 0.431281E+01_JPRB, 0.431798E+01_JPRB &
+  &, 0.432251E+01_JPRB, 0.432642E+01_JPRB, 0.432971E+01_JPRB &
+  &, 0.433236E+01_JPRB, 0.433443E+01_JPRB, 0.433586E+01_JPRB, 0.433669E+01_JPRB &
+  &, 0.433677E+01_JPRB, 0.433656E+01_JPRB, 0.433563E+01_JPRB &
+  &, 0.433404E+01_JPRB, 0.433190E+01_JPRB, 0.432922E+01_JPRB, 0.432594E+01_JPRB &
+  &, 0.432206E+01_JPRB, 0.431766E+01_JPRB, 0.431270E+01_JPRB &
+  &, 0.430715E+01_JPRB, 0.430107E+01_JPRB, 0.429445E+01_JPRB, 0.428734E+01_JPRB &
+  &, 0.427961E+01_JPRB, 0.427144E+01_JPRB, 0.426273E+01_JPRB &
+  &, 0.425351E+01_JPRB, 0.424374E+01_JPRB, 0.423355E+01_JPRB, 0.422279E+01_JPRB &
+  &, 0.421160E+01_JPRB, 0.419993E+01_JPRB, 0.418775E+01_JPRB &
+  &, 0.417513E+01_JPRB, 0.416210E+01_JPRB, 0.414855E+01_JPRB, 0.413457E+01_JPRB &
+  &, 0.412017E+01_JPRB, 0.410531E+01_JPRB, 0.409007E+01_JPRB/)
+XCW( 933, :) = (/ &
+  &  0.115375E+01_JPRB, 0.119334E+01_JPRB, 0.123335E+01_JPRB, 0.127377E+01_JPRB &
+  &, 0.131458E+01_JPRB, 0.135574E+01_JPRB, 0.139726E+01_JPRB &
+  &, 0.143910E+01_JPRB, 0.148124E+01_JPRB, 0.152367E+01_JPRB, 0.156636E+01_JPRB &
+  &, 0.160930E+01_JPRB, 0.165246E+01_JPRB, 0.169582E+01_JPRB &
+  &, 0.173938E+01_JPRB, 0.178309E+01_JPRB, 0.182694E+01_JPRB, 0.187091E+01_JPRB &
+  &, 0.191498E+01_JPRB, 0.195913E+01_JPRB, 0.200334E+01_JPRB &
+  &, 0.204759E+01_JPRB, 0.209185E+01_JPRB, 0.213611E+01_JPRB, 0.218035E+01_JPRB &
+  &, 0.222454E+01_JPRB, 0.226866E+01_JPRB, 0.231268E+01_JPRB &
+  &, 0.235664E+01_JPRB, 0.240045E+01_JPRB, 0.244412E+01_JPRB, 0.248763E+01_JPRB &
+  &, 0.253095E+01_JPRB, 0.257408E+01_JPRB, 0.261698E+01_JPRB &
+  &, 0.265964E+01_JPRB, 0.270205E+01_JPRB, 0.274419E+01_JPRB, 0.278604E+01_JPRB &
+  &, 0.282760E+01_JPRB, 0.286882E+01_JPRB, 0.290970E+01_JPRB &
+  &, 0.295023E+01_JPRB, 0.299040E+01_JPRB, 0.303018E+01_JPRB, 0.306957E+01_JPRB &
+  &, 0.310853E+01_JPRB, 0.314707E+01_JPRB, 0.318519E+01_JPRB &
+  &, 0.322284E+01_JPRB, 0.326003E+01_JPRB, 0.329676E+01_JPRB, 0.333299E+01_JPRB &
+  &, 0.336873E+01_JPRB, 0.340396E+01_JPRB, 0.343867E+01_JPRB &
+  &, 0.347285E+01_JPRB, 0.350650E+01_JPRB, 0.353960E+01_JPRB, 0.357214E+01_JPRB &
+  &, 0.360412E+01_JPRB, 0.363553E+01_JPRB, 0.366636E+01_JPRB &
+  &, 0.369662E+01_JPRB, 0.372627E+01_JPRB, 0.375533E+01_JPRB, 0.378377E+01_JPRB &
+  &, 0.381158E+01_JPRB, 0.383884E+01_JPRB, 0.386536E+01_JPRB &
+  &, 0.389142E+01_JPRB, 0.391675E+01_JPRB, 0.394146E+01_JPRB, 0.396555E+01_JPRB &
+  &, 0.398898E+01_JPRB, 0.401173E+01_JPRB, 0.403391E+01_JPRB &
+  &, 0.405541E+01_JPRB, 0.407625E+01_JPRB, 0.409643E+01_JPRB, 0.411595E+01_JPRB &
+  &, 0.413482E+01_JPRB, 0.415304E+01_JPRB, 0.417060E+01_JPRB &
+  &, 0.418749E+01_JPRB, 0.420373E+01_JPRB, 0.421928E+01_JPRB, 0.423420E+01_JPRB &
+  &, 0.424847E+01_JPRB, 0.426205E+01_JPRB, 0.427500E+01_JPRB &
+  &, 0.428729E+01_JPRB, 0.429892E+01_JPRB, 0.430988E+01_JPRB, 0.432017E+01_JPRB &
+  &, 0.432985E+01_JPRB, 0.433887E+01_JPRB, 0.434723E+01_JPRB &
+  &, 0.435494E+01_JPRB, 0.436203E+01_JPRB, 0.436846E+01_JPRB, 0.437427E+01_JPRB &
+  &, 0.437943E+01_JPRB, 0.438397E+01_JPRB, 0.438790E+01_JPRB &
+  &, 0.439118E+01_JPRB, 0.439384E+01_JPRB, 0.439589E+01_JPRB, 0.439735E+01_JPRB &
+  &, 0.439818E+01_JPRB, 0.439842E+01_JPRB, 0.439806E+01_JPRB &
+  &, 0.439708E+01_JPRB, 0.439555E+01_JPRB, 0.439339E+01_JPRB, 0.439052E+01_JPRB &
+  &, 0.438739E+01_JPRB, 0.438353E+01_JPRB, 0.437911E+01_JPRB &
+  &, 0.437415E+01_JPRB, 0.436862E+01_JPRB, 0.436257E+01_JPRB, 0.435593E+01_JPRB &
+  &, 0.434877E+01_JPRB, 0.434111E+01_JPRB, 0.433248E+01_JPRB &
+  &, 0.432408E+01_JPRB, 0.431492E+01_JPRB, 0.430522E+01_JPRB, 0.429494E+01_JPRB &
+  &, 0.428422E+01_JPRB, 0.427302E+01_JPRB, 0.426130E+01_JPRB &
+  &, 0.424913E+01_JPRB, 0.423630E+01_JPRB, 0.422344E+01_JPRB, 0.420988E+01_JPRB &
+  &, 0.419590E+01_JPRB, 0.418126E+01_JPRB, 0.416662E+01_JPRB/)
+XCW( 934, :) = (/ &
+  &  0.115460E+01_JPRB, 0.119443E+01_JPRB, 0.123469E+01_JPRB, 0.127536E+01_JPRB &
+  &, 0.131643E+01_JPRB, 0.135788E+01_JPRB, 0.139968E+01_JPRB &
+  &, 0.144181E+01_JPRB, 0.148426E+01_JPRB, 0.152700E+01_JPRB, 0.157002E+01_JPRB &
+  &, 0.161329E+01_JPRB, 0.165679E+01_JPRB, 0.170050E+01_JPRB &
+  &, 0.174441E+01_JPRB, 0.178849E+01_JPRB, 0.183272E+01_JPRB, 0.187707E+01_JPRB &
+  &, 0.192154E+01_JPRB, 0.196609E+01_JPRB, 0.201072E+01_JPRB &
+  &, 0.205538E+01_JPRB, 0.210007E+01_JPRB, 0.214477E+01_JPRB, 0.218945E+01_JPRB &
+  &, 0.223409E+01_JPRB, 0.227868E+01_JPRB, 0.232319E+01_JPRB &
+  &, 0.236760E+01_JPRB, 0.241190E+01_JPRB, 0.245606E+01_JPRB, 0.250006E+01_JPRB &
+  &, 0.254390E+01_JPRB, 0.258753E+01_JPRB, 0.263095E+01_JPRB &
+  &, 0.267415E+01_JPRB, 0.271709E+01_JPRB, 0.275978E+01_JPRB, 0.280217E+01_JPRB &
+  &, 0.284427E+01_JPRB, 0.288606E+01_JPRB, 0.292751E+01_JPRB &
+  &, 0.296862E+01_JPRB, 0.300936E+01_JPRB, 0.304973E+01_JPRB, 0.308969E+01_JPRB &
+  &, 0.312927E+01_JPRB, 0.316841E+01_JPRB, 0.320712E+01_JPRB &
+  &, 0.324539E+01_JPRB, 0.328321E+01_JPRB, 0.332055E+01_JPRB, 0.335741E+01_JPRB &
+  &, 0.339377E+01_JPRB, 0.342964E+01_JPRB, 0.346499E+01_JPRB &
+  &, 0.349982E+01_JPRB, 0.353411E+01_JPRB, 0.356785E+01_JPRB, 0.360106E+01_JPRB &
+  &, 0.363370E+01_JPRB, 0.366577E+01_JPRB, 0.369725E+01_JPRB &
+  &, 0.372816E+01_JPRB, 0.375849E+01_JPRB, 0.378822E+01_JPRB, 0.381734E+01_JPRB &
+  &, 0.384586E+01_JPRB, 0.387376E+01_JPRB, 0.390105E+01_JPRB &
+  &, 0.392769E+01_JPRB, 0.395373E+01_JPRB, 0.397914E+01_JPRB, 0.400387E+01_JPRB &
+  &, 0.402800E+01_JPRB, 0.405148E+01_JPRB, 0.407432E+01_JPRB &
+  &, 0.409648E+01_JPRB, 0.411802E+01_JPRB, 0.413888E+01_JPRB, 0.415911E+01_JPRB &
+  &, 0.417867E+01_JPRB, 0.419757E+01_JPRB, 0.421583E+01_JPRB &
+  &, 0.423341E+01_JPRB, 0.425033E+01_JPRB, 0.426661E+01_JPRB, 0.428220E+01_JPRB &
+  &, 0.429714E+01_JPRB, 0.431141E+01_JPRB, 0.432504E+01_JPRB &
+  &, 0.433801E+01_JPRB, 0.435030E+01_JPRB, 0.436195E+01_JPRB, 0.437293E+01_JPRB &
+  &, 0.438326E+01_JPRB, 0.439294E+01_JPRB, 0.440196E+01_JPRB &
+  &, 0.441035E+01_JPRB, 0.441810E+01_JPRB, 0.442518E+01_JPRB, 0.443165E+01_JPRB &
+  &, 0.443746E+01_JPRB, 0.444265E+01_JPRB, 0.444719E+01_JPRB &
+  &, 0.445116E+01_JPRB, 0.445443E+01_JPRB, 0.445713E+01_JPRB, 0.445923E+01_JPRB &
+  &, 0.446066E+01_JPRB, 0.446149E+01_JPRB, 0.446177E+01_JPRB &
+  &, 0.446143E+01_JPRB, 0.446048E+01_JPRB, 0.445890E+01_JPRB, 0.445680E+01_JPRB &
+  &, 0.445410E+01_JPRB, 0.445081E+01_JPRB, 0.444691E+01_JPRB &
+  &, 0.444241E+01_JPRB, 0.443762E+01_JPRB, 0.443208E+01_JPRB, 0.442604E+01_JPRB &
+  &, 0.441942E+01_JPRB, 0.441207E+01_JPRB, 0.440456E+01_JPRB &
+  &, 0.439636E+01_JPRB, 0.438766E+01_JPRB, 0.437847E+01_JPRB, 0.436869E+01_JPRB &
+  &, 0.435847E+01_JPRB, 0.434776E+01_JPRB, 0.433652E+01_JPRB &
+  &, 0.432483E+01_JPRB, 0.431265E+01_JPRB, 0.430006E+01_JPRB, 0.428696E+01_JPRB &
+  &, 0.427336E+01_JPRB, 0.425942E+01_JPRB, 0.424495E+01_JPRB/)
+XCW( 935, :) = (/ &
+  &  0.115546E+01_JPRB, 0.119553E+01_JPRB, 0.123604E+01_JPRB, 0.127698E+01_JPRB &
+  &, 0.131832E+01_JPRB, 0.136004E+01_JPRB, 0.140213E+01_JPRB &
+  &, 0.144456E+01_JPRB, 0.148732E+01_JPRB, 0.153038E+01_JPRB, 0.157372E+01_JPRB &
+  &, 0.161732E+01_JPRB, 0.166117E+01_JPRB, 0.170524E+01_JPRB &
+  &, 0.174951E+01_JPRB, 0.179397E+01_JPRB, 0.183858E+01_JPRB, 0.188333E+01_JPRB &
+  &, 0.192819E+01_JPRB, 0.197315E+01_JPRB, 0.201819E+01_JPRB &
+  &, 0.206328E+01_JPRB, 0.210841E+01_JPRB, 0.215355E+01_JPRB, 0.219868E+01_JPRB &
+  &, 0.224379E+01_JPRB, 0.228884E+01_JPRB, 0.233383E+01_JPRB &
+  &, 0.237873E+01_JPRB, 0.242351E+01_JPRB, 0.246817E+01_JPRB, 0.251268E+01_JPRB &
+  &, 0.255703E+01_JPRB, 0.260119E+01_JPRB, 0.264514E+01_JPRB &
+  &, 0.268887E+01_JPRB, 0.273236E+01_JPRB, 0.277559E+01_JPRB, 0.281855E+01_JPRB &
+  &, 0.286121E+01_JPRB, 0.290357E+01_JPRB, 0.294559E+01_JPRB &
+  &, 0.298729E+01_JPRB, 0.302862E+01_JPRB, 0.306958E+01_JPRB, 0.311016E+01_JPRB &
+  &, 0.315032E+01_JPRB, 0.319008E+01_JPRB, 0.322942E+01_JPRB &
+  &, 0.326831E+01_JPRB, 0.330675E+01_JPRB, 0.334472E+01_JPRB, 0.338222E+01_JPRB &
+  &, 0.341922E+01_JPRB, 0.345574E+01_JPRB, 0.349173E+01_JPRB &
+  &, 0.352722E+01_JPRB, 0.356216E+01_JPRB, 0.359658E+01_JPRB, 0.363045E+01_JPRB &
+  &, 0.366376E+01_JPRB, 0.369649E+01_JPRB, 0.372866E+01_JPRB &
+  &, 0.376024E+01_JPRB, 0.379125E+01_JPRB, 0.382168E+01_JPRB, 0.385149E+01_JPRB &
+  &, 0.388069E+01_JPRB, 0.390928E+01_JPRB, 0.393723E+01_JPRB &
+  &, 0.396462E+01_JPRB, 0.399134E+01_JPRB, 0.401743E+01_JPRB, 0.404290E+01_JPRB &
+  &, 0.406771E+01_JPRB, 0.409191E+01_JPRB, 0.411545E+01_JPRB &
+  &, 0.413832E+01_JPRB, 0.416057E+01_JPRB, 0.418214E+01_JPRB, 0.420304E+01_JPRB &
+  &, 0.422332E+01_JPRB, 0.424293E+01_JPRB, 0.426190E+01_JPRB &
+  &, 0.428019E+01_JPRB, 0.429777E+01_JPRB, 0.431477E+01_JPRB, 0.433106E+01_JPRB &
+  &, 0.434672E+01_JPRB, 0.436169E+01_JPRB, 0.437602E+01_JPRB &
+  &, 0.438966E+01_JPRB, 0.440268E+01_JPRB, 0.441500E+01_JPRB, 0.442669E+01_JPRB &
+  &, 0.443772E+01_JPRB, 0.444808E+01_JPRB, 0.445781E+01_JPRB &
+  &, 0.446684E+01_JPRB, 0.447526E+01_JPRB, 0.448305E+01_JPRB, 0.449019E+01_JPRB &
+  &, 0.449664E+01_JPRB, 0.450251E+01_JPRB, 0.450775E+01_JPRB &
+  &, 0.451231E+01_JPRB, 0.451629E+01_JPRB, 0.451961E+01_JPRB, 0.452233E+01_JPRB &
+  &, 0.452443E+01_JPRB, 0.452591E+01_JPRB, 0.452680E+01_JPRB &
+  &, 0.452707E+01_JPRB, 0.452673E+01_JPRB, 0.452580E+01_JPRB, 0.452430E+01_JPRB &
+  &, 0.452214E+01_JPRB, 0.451954E+01_JPRB, 0.451627E+01_JPRB &
+  &, 0.451245E+01_JPRB, 0.450810E+01_JPRB, 0.450312E+01_JPRB, 0.449765E+01_JPRB &
+  &, 0.449159E+01_JPRB, 0.448502E+01_JPRB, 0.447784E+01_JPRB &
+  &, 0.447019E+01_JPRB, 0.446202E+01_JPRB, 0.445336E+01_JPRB, 0.444411E+01_JPRB &
+  &, 0.443441E+01_JPRB, 0.442421E+01_JPRB, 0.441348E+01_JPRB &
+  &, 0.440223E+01_JPRB, 0.439036E+01_JPRB, 0.437844E+01_JPRB, 0.436581E+01_JPRB &
+  &, 0.435268E+01_JPRB, 0.433913E+01_JPRB, 0.432518E+01_JPRB/)
+XCW( 936, :) = (/ &
+  &  0.115634E+01_JPRB, 0.119665E+01_JPRB, 0.123741E+01_JPRB, 0.127861E+01_JPRB &
+  &, 0.132022E+01_JPRB, 0.136223E+01_JPRB, 0.140461E+01_JPRB &
+  &, 0.144735E+01_JPRB, 0.149041E+01_JPRB, 0.153380E+01_JPRB, 0.157747E+01_JPRB &
+  &, 0.162142E+01_JPRB, 0.166562E+01_JPRB, 0.171005E+01_JPRB &
+  &, 0.175469E+01_JPRB, 0.179952E+01_JPRB, 0.184452E+01_JPRB, 0.188966E+01_JPRB &
+  &, 0.193494E+01_JPRB, 0.198032E+01_JPRB, 0.202578E+01_JPRB &
+  &, 0.207130E+01_JPRB, 0.211687E+01_JPRB, 0.216246E+01_JPRB, 0.220805E+01_JPRB &
+  &, 0.225362E+01_JPRB, 0.229915E+01_JPRB, 0.234462E+01_JPRB &
+  &, 0.239001E+01_JPRB, 0.243530E+01_JPRB, 0.248047E+01_JPRB, 0.252550E+01_JPRB &
+  &, 0.257037E+01_JPRB, 0.261505E+01_JPRB, 0.265955E+01_JPRB &
+  &, 0.270382E+01_JPRB, 0.274787E+01_JPRB, 0.279166E+01_JPRB, 0.283518E+01_JPRB &
+  &, 0.287842E+01_JPRB, 0.292136E+01_JPRB, 0.296397E+01_JPRB &
+  &, 0.300625E+01_JPRB, 0.304818E+01_JPRB, 0.308975E+01_JPRB, 0.313093E+01_JPRB &
+  &, 0.317173E+01_JPRB, 0.321210E+01_JPRB, 0.325207E+01_JPRB &
+  &, 0.329159E+01_JPRB, 0.333067E+01_JPRB, 0.336929E+01_JPRB, 0.340743E+01_JPRB &
+  &, 0.344510E+01_JPRB, 0.348226E+01_JPRB, 0.351893E+01_JPRB &
+  &, 0.355508E+01_JPRB, 0.359071E+01_JPRB, 0.362579E+01_JPRB, 0.366034E+01_JPRB &
+  &, 0.369433E+01_JPRB, 0.372776E+01_JPRB, 0.376061E+01_JPRB &
+  &, 0.379291E+01_JPRB, 0.382460E+01_JPRB, 0.385571E+01_JPRB, 0.388622E+01_JPRB &
+  &, 0.391614E+01_JPRB, 0.394543E+01_JPRB, 0.397411E+01_JPRB &
+  &, 0.400203E+01_JPRB, 0.402963E+01_JPRB, 0.405645E+01_JPRB, 0.408261E+01_JPRB &
+  &, 0.410815E+01_JPRB, 0.413304E+01_JPRB, 0.415731E+01_JPRB &
+  &, 0.418090E+01_JPRB, 0.420388E+01_JPRB, 0.422616E+01_JPRB, 0.424780E+01_JPRB &
+  &, 0.426880E+01_JPRB, 0.428915E+01_JPRB, 0.430881E+01_JPRB &
+  &, 0.432781E+01_JPRB, 0.434618E+01_JPRB, 0.436385E+01_JPRB, 0.438088E+01_JPRB &
+  &, 0.439723E+01_JPRB, 0.441294E+01_JPRB, 0.442796E+01_JPRB &
+  &, 0.444235E+01_JPRB, 0.445606E+01_JPRB, 0.446910E+01_JPRB, 0.448148E+01_JPRB &
+  &, 0.449321E+01_JPRB, 0.450429E+01_JPRB, 0.451471E+01_JPRB &
+  &, 0.452447E+01_JPRB, 0.453359E+01_JPRB, 0.454200E+01_JPRB, 0.454986E+01_JPRB &
+  &, 0.455705E+01_JPRB, 0.456360E+01_JPRB, 0.456950E+01_JPRB &
+  &, 0.457475E+01_JPRB, 0.457937E+01_JPRB, 0.458338E+01_JPRB, 0.458678E+01_JPRB &
+  &, 0.458952E+01_JPRB, 0.459164E+01_JPRB, 0.459321E+01_JPRB &
+  &, 0.459411E+01_JPRB, 0.459440E+01_JPRB, 0.459414E+01_JPRB, 0.459325E+01_JPRB &
+  &, 0.459176E+01_JPRB, 0.458973E+01_JPRB, 0.458706E+01_JPRB &
+  &, 0.458390E+01_JPRB, 0.458009E+01_JPRB, 0.457576E+01_JPRB, 0.457077E+01_JPRB &
+  &, 0.456535E+01_JPRB, 0.455936E+01_JPRB, 0.455281E+01_JPRB &
+  &, 0.454484E+01_JPRB, 0.453806E+01_JPRB, 0.452990E+01_JPRB, 0.452126E+01_JPRB &
+  &, 0.451204E+01_JPRB, 0.450238E+01_JPRB, 0.449218E+01_JPRB &
+  &, 0.448145E+01_JPRB, 0.447028E+01_JPRB, 0.445862E+01_JPRB, 0.444649E+01_JPRB &
+  &, 0.443386E+01_JPRB, 0.442079E+01_JPRB, 0.440726E+01_JPRB/)
+XCW( 937, :) = (/ &
+  &  0.115722E+01_JPRB, 0.119778E+01_JPRB, 0.123880E+01_JPRB, 0.128027E+01_JPRB &
+  &, 0.132216E+01_JPRB, 0.136445E+01_JPRB, 0.140713E+01_JPRB &
+  &, 0.145017E+01_JPRB, 0.149356E+01_JPRB, 0.153726E+01_JPRB, 0.158128E+01_JPRB &
+  &, 0.162557E+01_JPRB, 0.167012E+01_JPRB, 0.171492E+01_JPRB &
+  &, 0.175994E+01_JPRB, 0.180515E+01_JPRB, 0.185054E+01_JPRB, 0.189609E+01_JPRB &
+  &, 0.194178E+01_JPRB, 0.198758E+01_JPRB, 0.203347E+01_JPRB &
+  &, 0.207944E+01_JPRB, 0.212546E+01_JPRB, 0.217150E+01_JPRB, 0.221756E+01_JPRB &
+  &, 0.226361E+01_JPRB, 0.230962E+01_JPRB, 0.235558E+01_JPRB &
+  &, 0.240148E+01_JPRB, 0.244727E+01_JPRB, 0.249295E+01_JPRB, 0.253851E+01_JPRB &
+  &, 0.258391E+01_JPRB, 0.262914E+01_JPRB, 0.267418E+01_JPRB &
+  &, 0.271901E+01_JPRB, 0.276361E+01_JPRB, 0.280798E+01_JPRB, 0.285208E+01_JPRB &
+  &, 0.289590E+01_JPRB, 0.293942E+01_JPRB, 0.298264E+01_JPRB &
+  &, 0.302553E+01_JPRB, 0.306807E+01_JPRB, 0.311025E+01_JPRB, 0.315206E+01_JPRB &
+  &, 0.319348E+01_JPRB, 0.323449E+01_JPRB, 0.327509E+01_JPRB &
+  &, 0.331527E+01_JPRB, 0.335500E+01_JPRB, 0.339427E+01_JPRB, 0.343308E+01_JPRB &
+  &, 0.347141E+01_JPRB, 0.350925E+01_JPRB, 0.354659E+01_JPRB &
+  &, 0.358341E+01_JPRB, 0.361973E+01_JPRB, 0.365551E+01_JPRB, 0.369075E+01_JPRB &
+  &, 0.372543E+01_JPRB, 0.375956E+01_JPRB, 0.379312E+01_JPRB &
+  &, 0.382612E+01_JPRB, 0.385853E+01_JPRB, 0.389034E+01_JPRB, 0.392158E+01_JPRB &
+  &, 0.395218E+01_JPRB, 0.398223E+01_JPRB, 0.401163E+01_JPRB &
+  &, 0.404043E+01_JPRB, 0.406860E+01_JPRB, 0.409615E+01_JPRB, 0.412304E+01_JPRB &
+  &, 0.414932E+01_JPRB, 0.417496E+01_JPRB, 0.419994E+01_JPRB &
+  &, 0.422420E+01_JPRB, 0.424796E+01_JPRB, 0.427102E+01_JPRB, 0.429339E+01_JPRB &
+  &, 0.431514E+01_JPRB, 0.433620E+01_JPRB, 0.435661E+01_JPRB &
+  &, 0.437627E+01_JPRB, 0.439543E+01_JPRB, 0.441387E+01_JPRB, 0.443162E+01_JPRB &
+  &, 0.444873E+01_JPRB, 0.446517E+01_JPRB, 0.448092E+01_JPRB &
+  &, 0.449593E+01_JPRB, 0.451047E+01_JPRB, 0.452426E+01_JPRB, 0.453738E+01_JPRB &
+  &, 0.454982E+01_JPRB, 0.456161E+01_JPRB, 0.457278E+01_JPRB &
+  &, 0.458325E+01_JPRB, 0.459308E+01_JPRB, 0.460224E+01_JPRB, 0.461078E+01_JPRB &
+  &, 0.461867E+01_JPRB, 0.462590E+01_JPRB, 0.463251E+01_JPRB &
+  &, 0.463847E+01_JPRB, 0.464376E+01_JPRB, 0.464847E+01_JPRB, 0.465254E+01_JPRB &
+  &, 0.465598E+01_JPRB, 0.465863E+01_JPRB, 0.466098E+01_JPRB &
+  &, 0.466258E+01_JPRB, 0.466347E+01_JPRB, 0.466390E+01_JPRB, 0.466366E+01_JPRB &
+  &, 0.466286E+01_JPRB, 0.466146E+01_JPRB, 0.465943E+01_JPRB &
+  &, 0.465684E+01_JPRB, 0.465370E+01_JPRB, 0.464994E+01_JPRB, 0.464567E+01_JPRB &
+  &, 0.464080E+01_JPRB, 0.463536E+01_JPRB, 0.462940E+01_JPRB &
+  &, 0.462291E+01_JPRB, 0.461584E+01_JPRB, 0.460826E+01_JPRB, 0.460019E+01_JPRB &
+  &, 0.459154E+01_JPRB, 0.458238E+01_JPRB, 0.457273E+01_JPRB &
+  &, 0.456255E+01_JPRB, 0.455192E+01_JPRB, 0.454073E+01_JPRB, 0.452913E+01_JPRB &
+  &, 0.451689E+01_JPRB, 0.450440E+01_JPRB, 0.449137E+01_JPRB/)
+XCW( 938, :) = (/ &
+  &  0.115812E+01_JPRB, 0.119893E+01_JPRB, 0.124021E+01_JPRB, 0.128194E+01_JPRB &
+  &, 0.132412E+01_JPRB, 0.136670E+01_JPRB, 0.140968E+01_JPRB &
+  &, 0.145303E+01_JPRB, 0.149674E+01_JPRB, 0.154078E+01_JPRB, 0.158513E+01_JPRB &
+  &, 0.162978E+01_JPRB, 0.167469E+01_JPRB, 0.171986E+01_JPRB &
+  &, 0.176526E+01_JPRB, 0.181087E+01_JPRB, 0.185666E+01_JPRB, 0.190261E+01_JPRB &
+  &, 0.194872E+01_JPRB, 0.199495E+01_JPRB, 0.204128E+01_JPRB &
+  &, 0.208770E+01_JPRB, 0.213417E+01_JPRB, 0.218068E+01_JPRB, 0.222721E+01_JPRB &
+  &, 0.227374E+01_JPRB, 0.232025E+01_JPRB, 0.236671E+01_JPRB &
+  &, 0.241311E+01_JPRB, 0.245942E+01_JPRB, 0.250564E+01_JPRB, 0.255172E+01_JPRB &
+  &, 0.259767E+01_JPRB, 0.264344E+01_JPRB, 0.268904E+01_JPRB &
+  &, 0.273443E+01_JPRB, 0.277962E+01_JPRB, 0.282456E+01_JPRB, 0.286925E+01_JPRB &
+  &, 0.291366E+01_JPRB, 0.295779E+01_JPRB, 0.300161E+01_JPRB &
+  &, 0.304511E+01_JPRB, 0.308827E+01_JPRB, 0.313109E+01_JPRB, 0.317353E+01_JPRB &
+  &, 0.321558E+01_JPRB, 0.325725E+01_JPRB, 0.329851E+01_JPRB &
+  &, 0.333934E+01_JPRB, 0.337974E+01_JPRB, 0.341967E+01_JPRB, 0.345916E+01_JPRB &
+  &, 0.349817E+01_JPRB, 0.353669E+01_JPRB, 0.357473E+01_JPRB &
+  &, 0.361222E+01_JPRB, 0.364926E+01_JPRB, 0.368573E+01_JPRB, 0.372167E+01_JPRB &
+  &, 0.375707E+01_JPRB, 0.379192E+01_JPRB, 0.382620E+01_JPRB &
+  &, 0.385992E+01_JPRB, 0.389305E+01_JPRB, 0.392560E+01_JPRB, 0.395757E+01_JPRB &
+  &, 0.398893E+01_JPRB, 0.401969E+01_JPRB, 0.404983E+01_JPRB &
+  &, 0.407938E+01_JPRB, 0.410828E+01_JPRB, 0.413657E+01_JPRB, 0.416422E+01_JPRB &
+  &, 0.419125E+01_JPRB, 0.421763E+01_JPRB, 0.424336E+01_JPRB &
+  &, 0.426846E+01_JPRB, 0.429291E+01_JPRB, 0.431671E+01_JPRB, 0.433985E+01_JPRB &
+  &, 0.436235E+01_JPRB, 0.438417E+01_JPRB, 0.440533E+01_JPRB &
+  &, 0.442583E+01_JPRB, 0.444569E+01_JPRB, 0.446486E+01_JPRB, 0.448336E+01_JPRB &
+  &, 0.450122E+01_JPRB, 0.451841E+01_JPRB, 0.453492E+01_JPRB &
+  &, 0.455080E+01_JPRB, 0.456598E+01_JPRB, 0.458049E+01_JPRB, 0.459434E+01_JPRB &
+  &, 0.460758E+01_JPRB, 0.462011E+01_JPRB, 0.463197E+01_JPRB &
+  &, 0.464321E+01_JPRB, 0.465377E+01_JPRB, 0.466366E+01_JPRB, 0.467294E+01_JPRB &
+  &, 0.468141E+01_JPRB, 0.468952E+01_JPRB, 0.469682E+01_JPRB &
+  &, 0.470351E+01_JPRB, 0.470953E+01_JPRB, 0.471493E+01_JPRB, 0.471969E+01_JPRB &
+  &, 0.472385E+01_JPRB, 0.472718E+01_JPRB, 0.473022E+01_JPRB &
+  &, 0.473253E+01_JPRB, 0.473414E+01_JPRB, 0.473520E+01_JPRB, 0.473548E+01_JPRB &
+  &, 0.473548E+01_JPRB, 0.473474E+01_JPRB, 0.473336E+01_JPRB &
+  &, 0.473147E+01_JPRB, 0.472893E+01_JPRB, 0.472581E+01_JPRB, 0.472218E+01_JPRB &
+  &, 0.471794E+01_JPRB, 0.471312E+01_JPRB, 0.470779E+01_JPRB &
+  &, 0.470186E+01_JPRB, 0.469540E+01_JPRB, 0.468842E+01_JPRB, 0.468090E+01_JPRB &
+  &, 0.467284E+01_JPRB, 0.466427E+01_JPRB, 0.465514E+01_JPRB &
+  &, 0.464553E+01_JPRB, 0.463547E+01_JPRB, 0.462484E+01_JPRB, 0.461373E+01_JPRB &
+  &, 0.460210E+01_JPRB, 0.459008E+01_JPRB, 0.457751E+01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART134',1,ZHOOK_HANDLE)
+END SUBROUTINE PART134
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART135
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART135',0,ZHOOK_HANDLE)
+
+XCW( 939, :) = (/ &
+  &  0.115902E+01_JPRB, 0.120009E+01_JPRB, 0.124164E+01_JPRB, 0.128365E+01_JPRB &
+  &, 0.132610E+01_JPRB, 0.136898E+01_JPRB, 0.141227E+01_JPRB &
+  &, 0.145593E+01_JPRB, 0.149997E+01_JPRB, 0.154435E+01_JPRB, 0.158904E+01_JPRB &
+  &, 0.163405E+01_JPRB, 0.167933E+01_JPRB, 0.172488E+01_JPRB &
+  &, 0.177066E+01_JPRB, 0.181666E+01_JPRB, 0.186286E+01_JPRB, 0.190924E+01_JPRB &
+  &, 0.195577E+01_JPRB, 0.200243E+01_JPRB, 0.204921E+01_JPRB &
+  &, 0.209608E+01_JPRB, 0.214302E+01_JPRB, 0.219000E+01_JPRB, 0.223702E+01_JPRB &
+  &, 0.228404E+01_JPRB, 0.233104E+01_JPRB, 0.237801E+01_JPRB &
+  &, 0.242493E+01_JPRB, 0.247177E+01_JPRB, 0.251851E+01_JPRB, 0.256514E+01_JPRB &
+  &, 0.261164E+01_JPRB, 0.265798E+01_JPRB, 0.270414E+01_JPRB &
+  &, 0.275011E+01_JPRB, 0.279588E+01_JPRB, 0.284141E+01_JPRB, 0.288669E+01_JPRB &
+  &, 0.293171E+01_JPRB, 0.297645E+01_JPRB, 0.302090E+01_JPRB &
+  &, 0.306502E+01_JPRB, 0.310882E+01_JPRB, 0.315228E+01_JPRB, 0.319537E+01_JPRB &
+  &, 0.323808E+01_JPRB, 0.328040E+01_JPRB, 0.332232E+01_JPRB &
+  &, 0.336382E+01_JPRB, 0.340489E+01_JPRB, 0.344552E+01_JPRB, 0.348569E+01_JPRB &
+  &, 0.352539E+01_JPRB, 0.356462E+01_JPRB, 0.360335E+01_JPRB &
+  &, 0.364157E+01_JPRB, 0.367929E+01_JPRB, 0.371650E+01_JPRB, 0.375315E+01_JPRB &
+  &, 0.378929E+01_JPRB, 0.382485E+01_JPRB, 0.385987E+01_JPRB &
+  &, 0.389433E+01_JPRB, 0.392820E+01_JPRB, 0.396151E+01_JPRB, 0.399422E+01_JPRB &
+  &, 0.402634E+01_JPRB, 0.405784E+01_JPRB, 0.408873E+01_JPRB &
+  &, 0.411902E+01_JPRB, 0.414870E+01_JPRB, 0.417775E+01_JPRB, 0.420618E+01_JPRB &
+  &, 0.423396E+01_JPRB, 0.426112E+01_JPRB, 0.428761E+01_JPRB &
+  &, 0.431348E+01_JPRB, 0.433871E+01_JPRB, 0.436328E+01_JPRB, 0.438718E+01_JPRB &
+  &, 0.441045E+01_JPRB, 0.443304E+01_JPRB, 0.445498E+01_JPRB &
+  &, 0.447627E+01_JPRB, 0.449690E+01_JPRB, 0.451663E+01_JPRB, 0.453613E+01_JPRB &
+  &, 0.455475E+01_JPRB, 0.457272E+01_JPRB, 0.459000E+01_JPRB &
+  &, 0.460663E+01_JPRB, 0.462258E+01_JPRB, 0.463788E+01_JPRB, 0.465251E+01_JPRB &
+  &, 0.466650E+01_JPRB, 0.467977E+01_JPRB, 0.469242E+01_JPRB &
+  &, 0.470438E+01_JPRB, 0.471570E+01_JPRB, 0.472638E+01_JPRB, 0.473637E+01_JPRB &
+  &, 0.474568E+01_JPRB, 0.475447E+01_JPRB, 0.476252E+01_JPRB &
+  &, 0.476992E+01_JPRB, 0.477670E+01_JPRB, 0.478281E+01_JPRB, 0.478831E+01_JPRB &
+  &, 0.479314E+01_JPRB, 0.479739E+01_JPRB, 0.480100E+01_JPRB &
+  &, 0.480397E+01_JPRB, 0.480632E+01_JPRB, 0.480807E+01_JPRB, 0.480923E+01_JPRB &
+  &, 0.480977E+01_JPRB, 0.480966E+01_JPRB, 0.480897E+01_JPRB &
+  &, 0.480775E+01_JPRB, 0.480588E+01_JPRB, 0.480343E+01_JPRB, 0.480041E+01_JPRB &
+  &, 0.479683E+01_JPRB, 0.479266E+01_JPRB, 0.478798E+01_JPRB &
+  &, 0.478269E+01_JPRB, 0.477686E+01_JPRB, 0.477046E+01_JPRB, 0.476350E+01_JPRB &
+  &, 0.475606E+01_JPRB, 0.474810E+01_JPRB, 0.473958E+01_JPRB &
+  &, 0.473052E+01_JPRB, 0.472099E+01_JPRB, 0.471095E+01_JPRB, 0.470042E+01_JPRB &
+  &, 0.468936E+01_JPRB, 0.467784E+01_JPRB, 0.466583E+01_JPRB/)
+XCW( 940, :) = (/ &
+  &  0.115995E+01_JPRB, 0.120127E+01_JPRB, 0.124308E+01_JPRB, 0.128537E+01_JPRB &
+  &, 0.132811E+01_JPRB, 0.137129E+01_JPRB, 0.141489E+01_JPRB &
+  &, 0.145888E+01_JPRB, 0.150324E+01_JPRB, 0.154796E+01_JPRB, 0.159301E+01_JPRB &
+  &, 0.163838E+01_JPRB, 0.168404E+01_JPRB, 0.172996E+01_JPRB &
+  &, 0.177614E+01_JPRB, 0.182255E+01_JPRB, 0.186916E+01_JPRB, 0.191596E+01_JPRB &
+  &, 0.196292E+01_JPRB, 0.201003E+01_JPRB, 0.205726E+01_JPRB &
+  &, 0.210459E+01_JPRB, 0.215200E+01_JPRB, 0.219947E+01_JPRB, 0.224697E+01_JPRB &
+  &, 0.229449E+01_JPRB, 0.234201E+01_JPRB, 0.238950E+01_JPRB &
+  &, 0.243694E+01_JPRB, 0.248431E+01_JPRB, 0.253160E+01_JPRB, 0.257879E+01_JPRB &
+  &, 0.262584E+01_JPRB, 0.267275E+01_JPRB, 0.271949E+01_JPRB &
+  &, 0.276605E+01_JPRB, 0.281240E+01_JPRB, 0.285854E+01_JPRB, 0.290443E+01_JPRB &
+  &, 0.295007E+01_JPRB, 0.299544E+01_JPRB, 0.304051E+01_JPRB &
+  &, 0.308528E+01_JPRB, 0.312972E+01_JPRB, 0.317383E+01_JPRB, 0.321757E+01_JPRB &
+  &, 0.326095E+01_JPRB, 0.330395E+01_JPRB, 0.334654E+01_JPRB &
+  &, 0.338873E+01_JPRB, 0.343049E+01_JPRB, 0.347181E+01_JPRB, 0.351268E+01_JPRB &
+  &, 0.355310E+01_JPRB, 0.359303E+01_JPRB, 0.363248E+01_JPRB &
+  &, 0.367144E+01_JPRB, 0.370988E+01_JPRB, 0.374781E+01_JPRB, 0.378522E+01_JPRB &
+  &, 0.382207E+01_JPRB, 0.385839E+01_JPRB, 0.389417E+01_JPRB &
+  &, 0.392937E+01_JPRB, 0.396400E+01_JPRB, 0.399806E+01_JPRB, 0.403153E+01_JPRB &
+  &, 0.406442E+01_JPRB, 0.409670E+01_JPRB, 0.412836E+01_JPRB &
+  &, 0.415943E+01_JPRB, 0.418989E+01_JPRB, 0.421971E+01_JPRB, 0.424892E+01_JPRB &
+  &, 0.427747E+01_JPRB, 0.430542E+01_JPRB, 0.433272E+01_JPRB &
+  &, 0.435938E+01_JPRB, 0.438540E+01_JPRB, 0.441075E+01_JPRB, 0.443545E+01_JPRB &
+  &, 0.445950E+01_JPRB, 0.448291E+01_JPRB, 0.450559E+01_JPRB &
+  &, 0.452770E+01_JPRB, 0.454911E+01_JPRB, 0.456985E+01_JPRB, 0.458996E+01_JPRB &
+  &, 0.460937E+01_JPRB, 0.462813E+01_JPRB, 0.464620E+01_JPRB &
+  &, 0.466363E+01_JPRB, 0.468035E+01_JPRB, 0.469644E+01_JPRB, 0.471181E+01_JPRB &
+  &, 0.472657E+01_JPRB, 0.474069E+01_JPRB, 0.475411E+01_JPRB &
+  &, 0.476688E+01_JPRB, 0.477897E+01_JPRB, 0.479040E+01_JPRB, 0.480116E+01_JPRB &
+  &, 0.481132E+01_JPRB, 0.482077E+01_JPRB, 0.482960E+01_JPRB &
+  &, 0.483774E+01_JPRB, 0.484529E+01_JPRB, 0.485218E+01_JPRB, 0.485841E+01_JPRB &
+  &, 0.486401E+01_JPRB, 0.486895E+01_JPRB, 0.487332E+01_JPRB &
+  &, 0.487702E+01_JPRB, 0.488009E+01_JPRB, 0.488260E+01_JPRB, 0.488438E+01_JPRB &
+  &, 0.488563E+01_JPRB, 0.488628E+01_JPRB, 0.488629E+01_JPRB &
+  &, 0.488573E+01_JPRB, 0.488456E+01_JPRB, 0.488274E+01_JPRB, 0.488051E+01_JPRB &
+  &, 0.487756E+01_JPRB, 0.487407E+01_JPRB, 0.487001E+01_JPRB &
+  &, 0.486534E+01_JPRB, 0.486017E+01_JPRB, 0.485443E+01_JPRB, 0.484812E+01_JPRB &
+  &, 0.484133E+01_JPRB, 0.483395E+01_JPRB, 0.482601E+01_JPRB &
+  &, 0.481757E+01_JPRB, 0.480866E+01_JPRB, 0.479917E+01_JPRB, 0.478925E+01_JPRB &
+  &, 0.477872E+01_JPRB, 0.476774E+01_JPRB, 0.475631E+01_JPRB/)
+XCW( 941, :) = (/ &
+  &  0.116088E+01_JPRB, 0.120246E+01_JPRB, 0.124455E+01_JPRB, 0.128712E+01_JPRB &
+  &, 0.133015E+01_JPRB, 0.137364E+01_JPRB, 0.141755E+01_JPRB &
+  &, 0.146186E+01_JPRB, 0.150657E+01_JPRB, 0.155163E+01_JPRB, 0.159704E+01_JPRB &
+  &, 0.164278E+01_JPRB, 0.168881E+01_JPRB, 0.173513E+01_JPRB &
+  &, 0.178171E+01_JPRB, 0.182852E+01_JPRB, 0.187556E+01_JPRB, 0.192278E+01_JPRB &
+  &, 0.197019E+01_JPRB, 0.201775E+01_JPRB, 0.206544E+01_JPRB &
+  &, 0.211324E+01_JPRB, 0.216112E+01_JPRB, 0.220908E+01_JPRB, 0.225709E+01_JPRB &
+  &, 0.230512E+01_JPRB, 0.235315E+01_JPRB, 0.240116E+01_JPRB &
+  &, 0.244914E+01_JPRB, 0.249706E+01_JPRB, 0.254491E+01_JPRB, 0.259265E+01_JPRB &
+  &, 0.264028E+01_JPRB, 0.268777E+01_JPRB, 0.273510E+01_JPRB &
+  &, 0.278225E+01_JPRB, 0.282922E+01_JPRB, 0.287596E+01_JPRB, 0.292247E+01_JPRB &
+  &, 0.296875E+01_JPRB, 0.301340E+01_JPRB, 0.306045E+01_JPRB &
+  &, 0.310587E+01_JPRB, 0.315098E+01_JPRB, 0.319575E+01_JPRB, 0.324016E+01_JPRB &
+  &, 0.328423E+01_JPRB, 0.332790E+01_JPRB, 0.337119E+01_JPRB &
+  &, 0.341408E+01_JPRB, 0.345655E+01_JPRB, 0.349857E+01_JPRB, 0.354016E+01_JPRB &
+  &, 0.358129E+01_JPRB, 0.362196E+01_JPRB, 0.366215E+01_JPRB &
+  &, 0.370183E+01_JPRB, 0.374103E+01_JPRB, 0.377969E+01_JPRB, 0.381785E+01_JPRB &
+  &, 0.385548E+01_JPRB, 0.389256E+01_JPRB, 0.392908E+01_JPRB &
+  &, 0.396507E+01_JPRB, 0.400046E+01_JPRB, 0.403531E+01_JPRB, 0.406956E+01_JPRB &
+  &, 0.410307E+01_JPRB, 0.413629E+01_JPRB, 0.416875E+01_JPRB &
+  &, 0.420061E+01_JPRB, 0.423186E+01_JPRB, 0.426249E+01_JPRB, 0.429247E+01_JPRB &
+  &, 0.432185E+01_JPRB, 0.435059E+01_JPRB, 0.437868E+01_JPRB &
+  &, 0.440615E+01_JPRB, 0.443298E+01_JPRB, 0.445914E+01_JPRB, 0.448467E+01_JPRB &
+  &, 0.450953E+01_JPRB, 0.453374E+01_JPRB, 0.455729E+01_JPRB &
+  &, 0.458016E+01_JPRB, 0.460240E+01_JPRB, 0.462397E+01_JPRB, 0.464485E+01_JPRB &
+  &, 0.466507E+01_JPRB, 0.468463E+01_JPRB, 0.470355E+01_JPRB &
+  &, 0.472176E+01_JPRB, 0.473934E+01_JPRB, 0.475622E+01_JPRB, 0.477192E+01_JPRB &
+  &, 0.478800E+01_JPRB, 0.480288E+01_JPRB, 0.481710E+01_JPRB &
+  &, 0.483067E+01_JPRB, 0.484356E+01_JPRB, 0.485578E+01_JPRB, 0.486735E+01_JPRB &
+  &, 0.487827E+01_JPRB, 0.488852E+01_JPRB, 0.489815E+01_JPRB &
+  &, 0.490709E+01_JPRB, 0.491539E+01_JPRB, 0.492304E+01_JPRB, 0.493003E+01_JPRB &
+  &, 0.493638E+01_JPRB, 0.494211E+01_JPRB, 0.494724E+01_JPRB &
+  &, 0.495155E+01_JPRB, 0.495550E+01_JPRB, 0.495875E+01_JPRB, 0.496132E+01_JPRB &
+  &, 0.496293E+01_JPRB, 0.496465E+01_JPRB, 0.496539E+01_JPRB &
+  &, 0.496555E+01_JPRB, 0.496510E+01_JPRB, 0.496406E+01_JPRB, 0.496160E+01_JPRB &
+  &, 0.496009E+01_JPRB, 0.495736E+01_JPRB, 0.495400E+01_JPRB &
+  &, 0.495002E+01_JPRB, 0.494549E+01_JPRB, 0.494044E+01_JPRB, 0.493481E+01_JPRB &
+  &, 0.492852E+01_JPRB, 0.492187E+01_JPRB, 0.491458E+01_JPRB &
+  &, 0.490680E+01_JPRB, 0.489848E+01_JPRB, 0.488958E+01_JPRB, 0.488023E+01_JPRB &
+  &, 0.487033E+01_JPRB, 0.485997E+01_JPRB, 0.484897E+01_JPRB/)
+XCW( 942, :) = (/ &
+  &  0.116182E+01_JPRB, 0.120367E+01_JPRB, 0.124603E+01_JPRB, 0.128889E+01_JPRB &
+  &, 0.133223E+01_JPRB, 0.137602E+01_JPRB, 0.142025E+01_JPRB &
+  &, 0.146489E+01_JPRB, 0.150994E+01_JPRB, 0.155536E+01_JPRB, 0.160113E+01_JPRB &
+  &, 0.164724E+01_JPRB, 0.169366E+01_JPRB, 0.174037E+01_JPRB &
+  &, 0.178735E+01_JPRB, 0.183459E+01_JPRB, 0.188205E+01_JPRB, 0.192972E+01_JPRB &
+  &, 0.197757E+01_JPRB, 0.202558E+01_JPRB, 0.207374E+01_JPRB &
+  &, 0.212202E+01_JPRB, 0.217040E+01_JPRB, 0.221885E+01_JPRB, 0.226736E+01_JPRB &
+  &, 0.231591E+01_JPRB, 0.236447E+01_JPRB, 0.241302E+01_JPRB &
+  &, 0.246155E+01_JPRB, 0.251002E+01_JPRB, 0.255843E+01_JPRB, 0.260675E+01_JPRB &
+  &, 0.265496E+01_JPRB, 0.270304E+01_JPRB, 0.275097E+01_JPRB &
+  &, 0.279873E+01_JPRB, 0.284631E+01_JPRB, 0.289368E+01_JPRB, 0.294083E+01_JPRB &
+  &, 0.298773E+01_JPRB, 0.303438E+01_JPRB, 0.308075E+01_JPRB &
+  &, 0.312684E+01_JPRB, 0.317260E+01_JPRB, 0.321805E+01_JPRB, 0.326316E+01_JPRB &
+  &, 0.330791E+01_JPRB, 0.335229E+01_JPRB, 0.339628E+01_JPRB &
+  &, 0.343987E+01_JPRB, 0.348306E+01_JPRB, 0.352582E+01_JPRB, 0.356814E+01_JPRB &
+  &, 0.361001E+01_JPRB, 0.365142E+01_JPRB, 0.369234E+01_JPRB &
+  &, 0.373279E+01_JPRB, 0.377274E+01_JPRB, 0.381217E+01_JPRB, 0.385109E+01_JPRB &
+  &, 0.388950E+01_JPRB, 0.392735E+01_JPRB, 0.396467E+01_JPRB &
+  &, 0.400143E+01_JPRB, 0.403762E+01_JPRB, 0.407324E+01_JPRB, 0.410830E+01_JPRB &
+  &, 0.414273E+01_JPRB, 0.417662E+01_JPRB, 0.420991E+01_JPRB &
+  &, 0.424258E+01_JPRB, 0.427462E+01_JPRB, 0.430608E+01_JPRB, 0.433690E+01_JPRB &
+  &, 0.436706E+01_JPRB, 0.439665E+01_JPRB, 0.442558E+01_JPRB &
+  &, 0.445387E+01_JPRB, 0.448152E+01_JPRB, 0.450772E+01_JPRB, 0.453487E+01_JPRB &
+  &, 0.456055E+01_JPRB, 0.458559E+01_JPRB, 0.460997E+01_JPRB &
+  &, 0.463369E+01_JPRB, 0.465677E+01_JPRB, 0.467916E+01_JPRB, 0.470089E+01_JPRB &
+  &, 0.472197E+01_JPRB, 0.474233E+01_JPRB, 0.476208E+01_JPRB &
+  &, 0.478113E+01_JPRB, 0.479952E+01_JPRB, 0.481725E+01_JPRB, 0.483429E+01_JPRB &
+  &, 0.485069E+01_JPRB, 0.486639E+01_JPRB, 0.488143E+01_JPRB &
+  &, 0.489581E+01_JPRB, 0.490953E+01_JPRB, 0.492257E+01_JPRB, 0.493496E+01_JPRB &
+  &, 0.494667E+01_JPRB, 0.495778E+01_JPRB, 0.496819E+01_JPRB &
+  &, 0.497792E+01_JPRB, 0.498701E+01_JPRB, 0.499547E+01_JPRB, 0.500329E+01_JPRB &
+  &, 0.501042E+01_JPRB, 0.501693E+01_JPRB, 0.502283E+01_JPRB &
+  &, 0.502805E+01_JPRB, 0.503268E+01_JPRB, 0.503666E+01_JPRB, 0.504000E+01_JPRB &
+  &, 0.504275E+01_JPRB, 0.504485E+01_JPRB, 0.504635E+01_JPRB &
+  &, 0.504721E+01_JPRB, 0.504751E+01_JPRB, 0.504722E+01_JPRB, 0.504629E+01_JPRB &
+  &, 0.504474E+01_JPRB, 0.504269E+01_JPRB, 0.504000E+01_JPRB &
+  &, 0.503675E+01_JPRB, 0.503294E+01_JPRB, 0.502854E+01_JPRB, 0.502357E+01_JPRB &
+  &, 0.501804E+01_JPRB, 0.501197E+01_JPRB, 0.500532E+01_JPRB &
+  &, 0.499816E+01_JPRB, 0.499052E+01_JPRB, 0.498229E+01_JPRB, 0.497355E+01_JPRB &
+  &, 0.496425E+01_JPRB, 0.495448E+01_JPRB, 0.494418E+01_JPRB/)
+XCW( 943, :) = (/ &
+  &  0.116278E+01_JPRB, 0.120490E+01_JPRB, 0.124754E+01_JPRB, 0.129069E+01_JPRB &
+  &, 0.133433E+01_JPRB, 0.137843E+01_JPRB, 0.142299E+01_JPRB &
+  &, 0.146797E+01_JPRB, 0.151336E+01_JPRB, 0.155914E+01_JPRB, 0.160528E+01_JPRB &
+  &, 0.165177E+01_JPRB, 0.169858E+01_JPRB, 0.174570E+01_JPRB &
+  &, 0.179309E+01_JPRB, 0.184075E+01_JPRB, 0.188865E+01_JPRB, 0.193676E+01_JPRB &
+  &, 0.198507E+01_JPRB, 0.203355E+01_JPRB, 0.208218E+01_JPRB &
+  &, 0.213095E+01_JPRB, 0.217982E+01_JPRB, 0.222878E+01_JPRB, 0.227781E+01_JPRB &
+  &, 0.232689E+01_JPRB, 0.237598E+01_JPRB, 0.242508E+01_JPRB &
+  &, 0.247416E+01_JPRB, 0.252321E+01_JPRB, 0.257219E+01_JPRB, 0.262109E+01_JPRB &
+  &, 0.266989E+01_JPRB, 0.271857E+01_JPRB, 0.276711E+01_JPRB &
+  &, 0.281549E+01_JPRB, 0.286370E+01_JPRB, 0.291170E+01_JPRB, 0.295949E+01_JPRB &
+  &, 0.300706E+01_JPRB, 0.305437E+01_JPRB, 0.310141E+01_JPRB &
+  &, 0.314817E+01_JPRB, 0.319463E+01_JPRB, 0.324076E+01_JPRB, 0.328657E+01_JPRB &
+  &, 0.333202E+01_JPRB, 0.337712E+01_JPRB, 0.342183E+01_JPRB &
+  &, 0.346615E+01_JPRB, 0.351007E+01_JPRB, 0.355356E+01_JPRB, 0.359663E+01_JPRB &
+  &, 0.363925E+01_JPRB, 0.368142E+01_JPRB, 0.372311E+01_JPRB &
+  &, 0.376433E+01_JPRB, 0.380504E+01_JPRB, 0.384527E+01_JPRB, 0.388496E+01_JPRB &
+  &, 0.392416E+01_JPRB, 0.396281E+01_JPRB, 0.400092E+01_JPRB &
+  &, 0.403849E+01_JPRB, 0.407549E+01_JPRB, 0.411193E+01_JPRB, 0.414780E+01_JPRB &
+  &, 0.418307E+01_JPRB, 0.421776E+01_JPRB, 0.425187E+01_JPRB &
+  &, 0.428537E+01_JPRB, 0.431824E+01_JPRB, 0.435037E+01_JPRB, 0.438218E+01_JPRB &
+  &, 0.441322E+01_JPRB, 0.444364E+01_JPRB, 0.447341E+01_JPRB &
+  &, 0.450253E+01_JPRB, 0.453104E+01_JPRB, 0.455887E+01_JPRB, 0.458608E+01_JPRB &
+  &, 0.461263E+01_JPRB, 0.463852E+01_JPRB, 0.466375E+01_JPRB &
+  &, 0.468832E+01_JPRB, 0.471227E+01_JPRB, 0.473550E+01_JPRB, 0.475808E+01_JPRB &
+  &, 0.478000E+01_JPRB, 0.480125E+01_JPRB, 0.482183E+01_JPRB &
+  &, 0.484171E+01_JPRB, 0.486102E+01_JPRB, 0.487958E+01_JPRB, 0.489746E+01_JPRB &
+  &, 0.491467E+01_JPRB, 0.493128E+01_JPRB, 0.494716E+01_JPRB &
+  &, 0.496239E+01_JPRB, 0.497695E+01_JPRB, 0.499084E+01_JPRB, 0.500408E+01_JPRB &
+  &, 0.501663E+01_JPRB, 0.502852E+01_JPRB, 0.503978E+01_JPRB &
+  &, 0.505036E+01_JPRB, 0.506026E+01_JPRB, 0.506953E+01_JPRB, 0.507815E+01_JPRB &
+  &, 0.508613E+01_JPRB, 0.509345E+01_JPRB, 0.510015E+01_JPRB &
+  &, 0.510617E+01_JPRB, 0.511156E+01_JPRB, 0.511638E+01_JPRB, 0.512046E+01_JPRB &
+  &, 0.512401E+01_JPRB, 0.512689E+01_JPRB, 0.512917E+01_JPRB &
+  &, 0.513082E+01_JPRB, 0.513190E+01_JPRB, 0.513233E+01_JPRB, 0.513212E+01_JPRB &
+  &, 0.513139E+01_JPRB, 0.513005E+01_JPRB, 0.512807E+01_JPRB &
+  &, 0.512551E+01_JPRB, 0.512246E+01_JPRB, 0.511875E+01_JPRB, 0.511451E+01_JPRB &
+  &, 0.510966E+01_JPRB, 0.510432E+01_JPRB, 0.509839E+01_JPRB &
+  &, 0.509189E+01_JPRB, 0.508490E+01_JPRB, 0.507731E+01_JPRB, 0.506920E+01_JPRB &
+  &, 0.506060E+01_JPRB, 0.505144E+01_JPRB, 0.504183E+01_JPRB/)
+XCW( 944, :) = (/ &
+  &  0.116376E+01_JPRB, 0.120614E+01_JPRB, 0.124907E+01_JPRB, 0.129251E+01_JPRB &
+  &, 0.133646E+01_JPRB, 0.138088E+01_JPRB, 0.142577E+01_JPRB &
+  &, 0.147109E+01_JPRB, 0.151684E+01_JPRB, 0.156298E+01_JPRB, 0.160950E+01_JPRB &
+  &, 0.165637E+01_JPRB, 0.170358E+01_JPRB, 0.175111E+01_JPRB &
+  &, 0.179892E+01_JPRB, 0.184701E+01_JPRB, 0.189535E+01_JPRB, 0.194392E+01_JPRB &
+  &, 0.199269E+01_JPRB, 0.204164E+01_JPRB, 0.209076E+01_JPRB &
+  &, 0.214003E+01_JPRB, 0.218940E+01_JPRB, 0.223888E+01_JPRB, 0.228844E+01_JPRB &
+  &, 0.233805E+01_JPRB, 0.238769E+01_JPRB, 0.243735E+01_JPRB &
+  &, 0.248700E+01_JPRB, 0.253661E+01_JPRB, 0.258618E+01_JPRB, 0.263567E+01_JPRB &
+  &, 0.268508E+01_JPRB, 0.273438E+01_JPRB, 0.278354E+01_JPRB &
+  &, 0.283255E+01_JPRB, 0.288140E+01_JPRB, 0.293006E+01_JPRB, 0.297850E+01_JPRB &
+  &, 0.302673E+01_JPRB, 0.307472E+01_JPRB, 0.312244E+01_JPRB &
+  &, 0.316988E+01_JPRB, 0.321705E+01_JPRB, 0.326388E+01_JPRB, 0.331041E+01_JPRB &
+  &, 0.335658E+01_JPRB, 0.340241E+01_JPRB, 0.344785E+01_JPRB &
+  &, 0.349292E+01_JPRB, 0.353758E+01_JPRB, 0.358183E+01_JPRB, 0.362567E+01_JPRB &
+  &, 0.366905E+01_JPRB, 0.371198E+01_JPRB, 0.375445E+01_JPRB &
+  &, 0.379645E+01_JPRB, 0.383796E+01_JPRB, 0.387898E+01_JPRB, 0.391950E+01_JPRB &
+  &, 0.395949E+01_JPRB, 0.399895E+01_JPRB, 0.403789E+01_JPRB &
+  &, 0.407627E+01_JPRB, 0.411409E+01_JPRB, 0.415136E+01_JPRB, 0.418807E+01_JPRB &
+  &, 0.422419E+01_JPRB, 0.425972E+01_JPRB, 0.429466E+01_JPRB &
+  &, 0.432902E+01_JPRB, 0.436277E+01_JPRB, 0.439590E+01_JPRB, 0.442841E+01_JPRB &
+  &, 0.446031E+01_JPRB, 0.449157E+01_JPRB, 0.452221E+01_JPRB &
+  &, 0.455220E+01_JPRB, 0.458157E+01_JPRB, 0.461028E+01_JPRB, 0.463834E+01_JPRB &
+  &, 0.466578E+01_JPRB, 0.469254E+01_JPRB, 0.471867E+01_JPRB &
+  &, 0.474413E+01_JPRB, 0.476890E+01_JPRB, 0.479305E+01_JPRB, 0.481650E+01_JPRB &
+  &, 0.483930E+01_JPRB, 0.486143E+01_JPRB, 0.488291E+01_JPRB &
+  &, 0.490368E+01_JPRB, 0.492381E+01_JPRB, 0.494327E+01_JPRB, 0.496197E+01_JPRB &
+  &, 0.498014E+01_JPRB, 0.499758E+01_JPRB, 0.501433E+01_JPRB &
+  &, 0.503043E+01_JPRB, 0.504586E+01_JPRB, 0.506048E+01_JPRB, 0.507470E+01_JPRB &
+  &, 0.508813E+01_JPRB, 0.510089E+01_JPRB, 0.511299E+01_JPRB &
+  &, 0.512440E+01_JPRB, 0.513518E+01_JPRB, 0.514533E+01_JPRB, 0.515478E+01_JPRB &
+  &, 0.516360E+01_JPRB, 0.517175E+01_JPRB, 0.517919E+01_JPRB &
+  &, 0.518613E+01_JPRB, 0.519234E+01_JPRB, 0.519794E+01_JPRB, 0.520289E+01_JPRB &
+  &, 0.520707E+01_JPRB, 0.521091E+01_JPRB, 0.521396E+01_JPRB &
+  &, 0.521642E+01_JPRB, 0.521826E+01_JPRB, 0.521950E+01_JPRB, 0.521993E+01_JPRB &
+  &, 0.522010E+01_JPRB, 0.521945E+01_JPRB, 0.521837E+01_JPRB &
+  &, 0.521654E+01_JPRB, 0.521421E+01_JPRB, 0.521127E+01_JPRB, 0.520591E+01_JPRB &
+  &, 0.520361E+01_JPRB, 0.519897E+01_JPRB, 0.519374E+01_JPRB &
+  &, 0.518799E+01_JPRB, 0.518168E+01_JPRB, 0.517476E+01_JPRB, 0.516739E+01_JPRB &
+  &, 0.515944E+01_JPRB, 0.515094E+01_JPRB, 0.514197E+01_JPRB/)
+XCW( 945, :) = (/ &
+  &  0.116474E+01_JPRB, 0.120741E+01_JPRB, 0.125062E+01_JPRB, 0.129437E+01_JPRB &
+  &, 0.133862E+01_JPRB, 0.138337E+01_JPRB, 0.142859E+01_JPRB &
+  &, 0.147426E+01_JPRB, 0.152037E+01_JPRB, 0.156688E+01_JPRB, 0.161378E+01_JPRB &
+  &, 0.166105E+01_JPRB, 0.170866E+01_JPRB, 0.175661E+01_JPRB &
+  &, 0.180485E+01_JPRB, 0.185338E+01_JPRB, 0.190216E+01_JPRB, 0.195119E+01_JPRB &
+  &, 0.200044E+01_JPRB, 0.204987E+01_JPRB, 0.209949E+01_JPRB &
+  &, 0.214925E+01_JPRB, 0.219915E+01_JPRB, 0.224915E+01_JPRB, 0.229924E+01_JPRB &
+  &, 0.234940E+01_JPRB, 0.239960E+01_JPRB, 0.244982E+01_JPRB &
+  &, 0.250005E+01_JPRB, 0.255025E+01_JPRB, 0.260042E+01_JPRB, 0.265052E+01_JPRB &
+  &, 0.270054E+01_JPRB, 0.275046E+01_JPRB, 0.280026E+01_JPRB &
+  &, 0.284992E+01_JPRB, 0.289942E+01_JPRB, 0.294873E+01_JPRB, 0.299785E+01_JPRB &
+  &, 0.304676E+01_JPRB, 0.309544E+01_JPRB, 0.314386E+01_JPRB &
+  &, 0.319200E+01_JPRB, 0.323987E+01_JPRB, 0.328744E+01_JPRB, 0.333468E+01_JPRB &
+  &, 0.338160E+01_JPRB, 0.342816E+01_JPRB, 0.347436E+01_JPRB &
+  &, 0.352018E+01_JPRB, 0.356561E+01_JPRB, 0.361064E+01_JPRB, 0.365524E+01_JPRB &
+  &, 0.369941E+01_JPRB, 0.374314E+01_JPRB, 0.378641E+01_JPRB &
+  &, 0.382921E+01_JPRB, 0.387154E+01_JPRB, 0.391336E+01_JPRB, 0.395470E+01_JPRB &
+  &, 0.399551E+01_JPRB, 0.403581E+01_JPRB, 0.407557E+01_JPRB &
+  &, 0.411479E+01_JPRB, 0.415347E+01_JPRB, 0.419159E+01_JPRB, 0.422914E+01_JPRB &
+  &, 0.426611E+01_JPRB, 0.430252E+01_JPRB, 0.433833E+01_JPRB &
+  &, 0.437354E+01_JPRB, 0.440816E+01_JPRB, 0.444217E+01_JPRB, 0.447557E+01_JPRB &
+  &, 0.450831E+01_JPRB, 0.454050E+01_JPRB, 0.457202E+01_JPRB &
+  &, 0.460291E+01_JPRB, 0.463317E+01_JPRB, 0.466278E+01_JPRB, 0.469174E+01_JPRB &
+  &, 0.472006E+01_JPRB, 0.474771E+01_JPRB, 0.477469E+01_JPRB &
+  &, 0.480108E+01_JPRB, 0.482667E+01_JPRB, 0.485180E+01_JPRB, 0.487616E+01_JPRB &
+  &, 0.489988E+01_JPRB, 0.492291E+01_JPRB, 0.494527E+01_JPRB &
+  &, 0.496698E+01_JPRB, 0.498799E+01_JPRB, 0.500833E+01_JPRB, 0.502802E+01_JPRB &
+  &, 0.504701E+01_JPRB, 0.506534E+01_JPRB, 0.508302E+01_JPRB &
+  &, 0.510002E+01_JPRB, 0.511634E+01_JPRB, 0.513197E+01_JPRB, 0.514694E+01_JPRB &
+  &, 0.516127E+01_JPRB, 0.517490E+01_JPRB, 0.518790E+01_JPRB &
+  &, 0.520013E+01_JPRB, 0.521185E+01_JPRB, 0.522283E+01_JPRB, 0.523319E+01_JPRB &
+  &, 0.524282E+01_JPRB, 0.525187E+01_JPRB, 0.526022E+01_JPRB &
+  &, 0.526797E+01_JPRB, 0.527504E+01_JPRB, 0.528150E+01_JPRB, 0.528726E+01_JPRB &
+  &, 0.529243E+01_JPRB, 0.529693E+01_JPRB, 0.530082E+01_JPRB &
+  &, 0.530412E+01_JPRB, 0.530680E+01_JPRB, 0.530882E+01_JPRB, 0.531024E+01_JPRB &
+  &, 0.531103E+01_JPRB, 0.531126E+01_JPRB, 0.531084E+01_JPRB &
+  &, 0.530983E+01_JPRB, 0.530825E+01_JPRB, 0.530607E+01_JPRB, 0.530330E+01_JPRB &
+  &, 0.529989E+01_JPRB, 0.529610E+01_JPRB, 0.529160E+01_JPRB &
+  &, 0.528651E+01_JPRB, 0.528073E+01_JPRB, 0.527477E+01_JPRB, 0.526810E+01_JPRB &
+  &, 0.526085E+01_JPRB, 0.525310E+01_JPRB, 0.524474E+01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART135',1,ZHOOK_HANDLE)
+END SUBROUTINE PART135
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART136
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART136',0,ZHOOK_HANDLE)
+
+XCW( 946, :) = (/ &
+  &  0.116575E+01_JPRB, 0.120869E+01_JPRB, 0.125220E+01_JPRB, 0.129625E+01_JPRB &
+  &, 0.134082E+01_JPRB, 0.138590E+01_JPRB, 0.143146E+01_JPRB &
+  &, 0.147749E+01_JPRB, 0.152395E+01_JPRB, 0.157084E+01_JPRB, 0.161813E+01_JPRB &
+  &, 0.166580E+01_JPRB, 0.171383E+01_JPRB, 0.176219E+01_JPRB &
+  &, 0.181087E+01_JPRB, 0.185985E+01_JPRB, 0.190909E+01_JPRB, 0.195859E+01_JPRB &
+  &, 0.200831E+01_JPRB, 0.205824E+01_JPRB, 0.210836E+01_JPRB &
+  &, 0.215864E+01_JPRB, 0.220906E+01_JPRB, 0.225960E+01_JPRB, 0.231024E+01_JPRB &
+  &, 0.236095E+01_JPRB, 0.241172E+01_JPRB, 0.246252E+01_JPRB &
+  &, 0.251333E+01_JPRB, 0.256414E+01_JPRB, 0.261491E+01_JPRB, 0.266563E+01_JPRB &
+  &, 0.271628E+01_JPRB, 0.276684E+01_JPRB, 0.281729E+01_JPRB &
+  &, 0.286760E+01_JPRB, 0.291776E+01_JPRB, 0.296776E+01_JPRB, 0.301756E+01_JPRB &
+  &, 0.306717E+01_JPRB, 0.311653E+01_JPRB, 0.316567E+01_JPRB &
+  &, 0.321454E+01_JPRB, 0.326313E+01_JPRB, 0.331143E+01_JPRB, 0.335943E+01_JPRB &
+  &, 0.340709E+01_JPRB, 0.345441E+01_JPRB, 0.350138E+01_JPRB &
+  &, 0.354798E+01_JPRB, 0.359419E+01_JPRB, 0.364000E+01_JPRB, 0.368540E+01_JPRB &
+  &, 0.373037E+01_JPRB, 0.377490E+01_JPRB, 0.381899E+01_JPRB &
+  &, 0.386261E+01_JPRB, 0.390577E+01_JPRB, 0.394842E+01_JPRB, 0.399060E+01_JPRB &
+  &, 0.403226E+01_JPRB, 0.407341E+01_JPRB, 0.411402E+01_JPRB &
+  &, 0.415410E+01_JPRB, 0.419365E+01_JPRB, 0.423263E+01_JPRB, 0.427106E+01_JPRB &
+  &, 0.430892E+01_JPRB, 0.434619E+01_JPRB, 0.438289E+01_JPRB &
+  &, 0.441900E+01_JPRB, 0.445450E+01_JPRB, 0.448941E+01_JPRB, 0.452354E+01_JPRB &
+  &, 0.455738E+01_JPRB, 0.459044E+01_JPRB, 0.462287E+01_JPRB &
+  &, 0.465467E+01_JPRB, 0.468584E+01_JPRB, 0.471636E+01_JPRB, 0.474625E+01_JPRB &
+  &, 0.477545E+01_JPRB, 0.480410E+01_JPRB, 0.483197E+01_JPRB &
+  &, 0.485928E+01_JPRB, 0.488501E+01_JPRB, 0.491187E+01_JPRB, 0.493715E+01_JPRB &
+  &, 0.496179E+01_JPRB, 0.498574E+01_JPRB, 0.500903E+01_JPRB &
+  &, 0.503167E+01_JPRB, 0.505359E+01_JPRB, 0.507486E+01_JPRB, 0.509547E+01_JPRB &
+  &, 0.511541E+01_JPRB, 0.513466E+01_JPRB, 0.515325E+01_JPRB &
+  &, 0.517117E+01_JPRB, 0.518839E+01_JPRB, 0.520494E+01_JPRB, 0.522084E+01_JPRB &
+  &, 0.523606E+01_JPRB, 0.525061E+01_JPRB, 0.526451E+01_JPRB &
+  &, 0.527760E+01_JPRB, 0.529029E+01_JPRB, 0.530219E+01_JPRB, 0.531340E+01_JPRB &
+  &, 0.532397E+01_JPRB, 0.533374E+01_JPRB, 0.534315E+01_JPRB &
+  &, 0.535174E+01_JPRB, 0.535970E+01_JPRB, 0.536704E+01_JPRB, 0.537368E+01_JPRB &
+  &, 0.537973E+01_JPRB, 0.538511E+01_JPRB, 0.538984E+01_JPRB &
+  &, 0.539401E+01_JPRB, 0.539741E+01_JPRB, 0.540035E+01_JPRB, 0.540258E+01_JPRB &
+  &, 0.540424E+01_JPRB, 0.540527E+01_JPRB, 0.540570E+01_JPRB &
+  &, 0.540549E+01_JPRB, 0.540470E+01_JPRB, 0.540336E+01_JPRB, 0.540137E+01_JPRB &
+  &, 0.539879E+01_JPRB, 0.539571E+01_JPRB, 0.539197E+01_JPRB &
+  &, 0.538770E+01_JPRB, 0.538286E+01_JPRB, 0.537746E+01_JPRB, 0.537146E+01_JPRB &
+  &, 0.536494E+01_JPRB, 0.535792E+01_JPRB, 0.535028E+01_JPRB/)
+XCW( 947, :) = (/ &
+  &  0.116676E+01_JPRB, 0.120999E+01_JPRB, 0.125380E+01_JPRB, 0.129816E+01_JPRB &
+  &, 0.134306E+01_JPRB, 0.138847E+01_JPRB, 0.143438E+01_JPRB &
+  &, 0.148076E+01_JPRB, 0.152760E+01_JPRB, 0.157487E+01_JPRB, 0.162256E+01_JPRB &
+  &, 0.167063E+01_JPRB, 0.171908E+01_JPRB, 0.176788E+01_JPRB &
+  &, 0.181700E+01_JPRB, 0.186643E+01_JPRB, 0.191614E+01_JPRB, 0.196611E+01_JPRB &
+  &, 0.201633E+01_JPRB, 0.206676E+01_JPRB, 0.211739E+01_JPRB &
+  &, 0.216819E+01_JPRB, 0.221915E+01_JPRB, 0.227024E+01_JPRB, 0.232143E+01_JPRB &
+  &, 0.237271E+01_JPRB, 0.242406E+01_JPRB, 0.247545E+01_JPRB &
+  &, 0.252686E+01_JPRB, 0.257828E+01_JPRB, 0.262967E+01_JPRB, 0.268102E+01_JPRB &
+  &, 0.273231E+01_JPRB, 0.278352E+01_JPRB, 0.283463E+01_JPRB &
+  &, 0.288562E+01_JPRB, 0.293646E+01_JPRB, 0.298714E+01_JPRB, 0.303764E+01_JPRB &
+  &, 0.308795E+01_JPRB, 0.313804E+01_JPRB, 0.318790E+01_JPRB &
+  &, 0.323751E+01_JPRB, 0.328684E+01_JPRB, 0.333590E+01_JPRB, 0.338464E+01_JPRB &
+  &, 0.343307E+01_JPRB, 0.348117E+01_JPRB, 0.352892E+01_JPRB &
+  &, 0.357631E+01_JPRB, 0.362333E+01_JPRB, 0.366994E+01_JPRB, 0.371615E+01_JPRB &
+  &, 0.376194E+01_JPRB, 0.380730E+01_JPRB, 0.385223E+01_JPRB &
+  &, 0.389669E+01_JPRB, 0.394068E+01_JPRB, 0.398420E+01_JPRB, 0.402723E+01_JPRB &
+  &, 0.406974E+01_JPRB, 0.411176E+01_JPRB, 0.415325E+01_JPRB &
+  &, 0.419422E+01_JPRB, 0.423464E+01_JPRB, 0.427453E+01_JPRB, 0.431385E+01_JPRB &
+  &, 0.435260E+01_JPRB, 0.439079E+01_JPRB, 0.442839E+01_JPRB &
+  &, 0.446540E+01_JPRB, 0.450183E+01_JPRB, 0.453766E+01_JPRB, 0.457286E+01_JPRB &
+  &, 0.460746E+01_JPRB, 0.464145E+01_JPRB, 0.467482E+01_JPRB &
+  &, 0.470757E+01_JPRB, 0.473967E+01_JPRB, 0.477113E+01_JPRB, 0.480194E+01_JPRB &
+  &, 0.483213E+01_JPRB, 0.486166E+01_JPRB, 0.489055E+01_JPRB &
+  &, 0.491876E+01_JPRB, 0.494633E+01_JPRB, 0.497324E+01_JPRB, 0.499949E+01_JPRB &
+  &, 0.502508E+01_JPRB, 0.504998E+01_JPRB, 0.507422E+01_JPRB &
+  &, 0.509778E+01_JPRB, 0.512070E+01_JPRB, 0.514291E+01_JPRB, 0.516445E+01_JPRB &
+  &, 0.518537E+01_JPRB, 0.520556E+01_JPRB, 0.522482E+01_JPRB &
+  &, 0.524394E+01_JPRB, 0.526214E+01_JPRB, 0.527965E+01_JPRB, 0.529650E+01_JPRB &
+  &, 0.531265E+01_JPRB, 0.532816E+01_JPRB, 0.534294E+01_JPRB &
+  &, 0.535710E+01_JPRB, 0.537060E+01_JPRB, 0.538343E+01_JPRB, 0.539560E+01_JPRB &
+  &, 0.540705E+01_JPRB, 0.541787E+01_JPRB, 0.542807E+01_JPRB &
+  &, 0.543758E+01_JPRB, 0.544646E+01_JPRB, 0.545467E+01_JPRB, 0.546222E+01_JPRB &
+  &, 0.546914E+01_JPRB, 0.547543E+01_JPRB, 0.548106E+01_JPRB &
+  &, 0.548600E+01_JPRB, 0.549045E+01_JPRB, 0.549419E+01_JPRB, 0.549732E+01_JPRB &
+  &, 0.549982E+01_JPRB, 0.550169E+01_JPRB, 0.550295E+01_JPRB &
+  &, 0.550362E+01_JPRB, 0.550366E+01_JPRB, 0.550269E+01_JPRB, 0.550197E+01_JPRB &
+  &, 0.550026E+01_JPRB, 0.549793E+01_JPRB, 0.549499E+01_JPRB &
+  &, 0.549151E+01_JPRB, 0.548745E+01_JPRB, 0.548283E+01_JPRB, 0.547761E+01_JPRB &
+  &, 0.547185E+01_JPRB, 0.546559E+01_JPRB, 0.545870E+01_JPRB/)
+XCW( 948, :) = (/ &
+  &  0.116780E+01_JPRB, 0.121132E+01_JPRB, 0.125542E+01_JPRB, 0.130010E+01_JPRB &
+  &, 0.134532E+01_JPRB, 0.139108E+01_JPRB, 0.143734E+01_JPRB &
+  &, 0.148409E+01_JPRB, 0.153130E+01_JPRB, 0.157897E+01_JPRB, 0.162705E+01_JPRB &
+  &, 0.167555E+01_JPRB, 0.172442E+01_JPRB, 0.177366E+01_JPRB &
+  &, 0.182323E+01_JPRB, 0.187312E+01_JPRB, 0.192331E+01_JPRB, 0.197377E+01_JPRB &
+  &, 0.202449E+01_JPRB, 0.207543E+01_JPRB, 0.212658E+01_JPRB &
+  &, 0.217792E+01_JPRB, 0.222942E+01_JPRB, 0.228106E+01_JPRB, 0.233282E+01_JPRB &
+  &, 0.238469E+01_JPRB, 0.243662E+01_JPRB, 0.248862E+01_JPRB &
+  &, 0.254064E+01_JPRB, 0.259267E+01_JPRB, 0.264470E+01_JPRB, 0.269670E+01_JPRB &
+  &, 0.274864E+01_JPRB, 0.280052E+01_JPRB, 0.285230E+01_JPRB &
+  &, 0.290397E+01_JPRB, 0.295550E+01_JPRB, 0.300689E+01_JPRB, 0.305812E+01_JPRB &
+  &, 0.310914E+01_JPRB, 0.315996E+01_JPRB, 0.321057E+01_JPRB &
+  &, 0.326092E+01_JPRB, 0.331102E+01_JPRB, 0.336083E+01_JPRB, 0.341035E+01_JPRB &
+  &, 0.345957E+01_JPRB, 0.350846E+01_JPRB, 0.355702E+01_JPRB &
+  &, 0.360521E+01_JPRB, 0.365304E+01_JPRB, 0.370048E+01_JPRB, 0.374752E+01_JPRB &
+  &, 0.379416E+01_JPRB, 0.384036E+01_JPRB, 0.388613E+01_JPRB &
+  &, 0.393145E+01_JPRB, 0.397632E+01_JPRB, 0.402070E+01_JPRB, 0.406461E+01_JPRB &
+  &, 0.410802E+01_JPRB, 0.415092E+01_JPRB, 0.419331E+01_JPRB &
+  &, 0.423518E+01_JPRB, 0.427651E+01_JPRB, 0.431730E+01_JPRB, 0.435753E+01_JPRB &
+  &, 0.439721E+01_JPRB, 0.443632E+01_JPRB, 0.447485E+01_JPRB &
+  &, 0.451280E+01_JPRB, 0.455017E+01_JPRB, 0.458690E+01_JPRB, 0.462310E+01_JPRB &
+  &, 0.465864E+01_JPRB, 0.469359E+01_JPRB, 0.472790E+01_JPRB &
+  &, 0.476161E+01_JPRB, 0.479467E+01_JPRB, 0.482709E+01_JPRB, 0.485888E+01_JPRB &
+  &, 0.489004E+01_JPRB, 0.492053E+01_JPRB, 0.495040E+01_JPRB &
+  &, 0.497958E+01_JPRB, 0.500813E+01_JPRB, 0.503600E+01_JPRB, 0.506324E+01_JPRB &
+  &, 0.508977E+01_JPRB, 0.511568E+01_JPRB, 0.514087E+01_JPRB &
+  &, 0.516545E+01_JPRB, 0.518933E+01_JPRB, 0.521253E+01_JPRB, 0.523504E+01_JPRB &
+  &, 0.525693E+01_JPRB, 0.527809E+01_JPRB, 0.529861E+01_JPRB &
+  &, 0.531846E+01_JPRB, 0.533760E+01_JPRB, 0.535609E+01_JPRB, 0.537390E+01_JPRB &
+  &, 0.539103E+01_JPRB, 0.540745E+01_JPRB, 0.542330E+01_JPRB &
+  &, 0.543842E+01_JPRB, 0.545287E+01_JPRB, 0.546661E+01_JPRB, 0.547974E+01_JPRB &
+  &, 0.549218E+01_JPRB, 0.550395E+01_JPRB, 0.551506E+01_JPRB &
+  &, 0.552553E+01_JPRB, 0.553535E+01_JPRB, 0.554451E+01_JPRB, 0.555297E+01_JPRB &
+  &, 0.556084E+01_JPRB, 0.556803E+01_JPRB, 0.557460E+01_JPRB &
+  &, 0.558052E+01_JPRB, 0.558582E+01_JPRB, 0.559044E+01_JPRB, 0.559446E+01_JPRB &
+  &, 0.559783E+01_JPRB, 0.560057E+01_JPRB, 0.560276E+01_JPRB &
+  &, 0.560430E+01_JPRB, 0.560520E+01_JPRB, 0.560554E+01_JPRB, 0.560521E+01_JPRB &
+  &, 0.560435E+01_JPRB, 0.560286E+01_JPRB, 0.560081E+01_JPRB &
+  &, 0.559810E+01_JPRB, 0.559487E+01_JPRB, 0.559107E+01_JPRB, 0.558666E+01_JPRB &
+  &, 0.558171E+01_JPRB, 0.557624E+01_JPRB, 0.557015E+01_JPRB/)
+XCW( 949, :) = (/ &
+  &  0.116885E+01_JPRB, 0.121266E+01_JPRB, 0.125708E+01_JPRB, 0.130207E+01_JPRB &
+  &, 0.134763E+01_JPRB, 0.139373E+01_JPRB, 0.144035E+01_JPRB &
+  &, 0.148747E+01_JPRB, 0.153507E+01_JPRB, 0.158313E+01_JPRB, 0.163163E+01_JPRB &
+  &, 0.168054E+01_JPRB, 0.172985E+01_JPRB, 0.177954E+01_JPRB &
+  &, 0.182957E+01_JPRB, 0.187994E+01_JPRB, 0.193061E+01_JPRB, 0.198157E+01_JPRB &
+  &, 0.203279E+01_JPRB, 0.208425E+01_JPRB, 0.213594E+01_JPRB &
+  &, 0.218782E+01_JPRB, 0.223988E+01_JPRB, 0.229209E+01_JPRB, 0.234443E+01_JPRB &
+  &, 0.239688E+01_JPRB, 0.244942E+01_JPRB, 0.250203E+01_JPRB &
+  &, 0.255468E+01_JPRB, 0.260735E+01_JPRB, 0.266002E+01_JPRB, 0.271268E+01_JPRB &
+  &, 0.276529E+01_JPRB, 0.281784E+01_JPRB, 0.287031E+01_JPRB &
+  &, 0.292267E+01_JPRB, 0.297493E+01_JPRB, 0.302703E+01_JPRB, 0.307898E+01_JPRB &
+  &, 0.313074E+01_JPRB, 0.318231E+01_JPRB, 0.323367E+01_JPRB &
+  &, 0.328479E+01_JPRB, 0.333566E+01_JPRB, 0.338627E+01_JPRB, 0.343659E+01_JPRB &
+  &, 0.348660E+01_JPRB, 0.353631E+01_JPRB, 0.358568E+01_JPRB &
+  &, 0.363470E+01_JPRB, 0.368337E+01_JPRB, 0.373165E+01_JPRB, 0.377954E+01_JPRB &
+  &, 0.382703E+01_JPRB, 0.387387E+01_JPRB, 0.392075E+01_JPRB &
+  &, 0.396695E+01_JPRB, 0.401269E+01_JPRB, 0.405797E+01_JPRB, 0.410278E+01_JPRB &
+  &, 0.414708E+01_JPRB, 0.419090E+01_JPRB, 0.423421E+01_JPRB &
+  &, 0.427701E+01_JPRB, 0.431926E+01_JPRB, 0.436097E+01_JPRB, 0.440216E+01_JPRB &
+  &, 0.444277E+01_JPRB, 0.448284E+01_JPRB, 0.452232E+01_JPRB &
+  &, 0.456122E+01_JPRB, 0.459956E+01_JPRB, 0.463728E+01_JPRB, 0.467442E+01_JPRB &
+  &, 0.471095E+01_JPRB, 0.474687E+01_JPRB, 0.478216E+01_JPRB &
+  &, 0.481684E+01_JPRB, 0.485091E+01_JPRB, 0.488432E+01_JPRB, 0.491710E+01_JPRB &
+  &, 0.494925E+01_JPRB, 0.498075E+01_JPRB, 0.501158E+01_JPRB &
+  &, 0.504179E+01_JPRB, 0.507132E+01_JPRB, 0.510020E+01_JPRB, 0.512844E+01_JPRB &
+  &, 0.515599E+01_JPRB, 0.518287E+01_JPRB, 0.520911E+01_JPRB &
+  &, 0.523467E+01_JPRB, 0.525956E+01_JPRB, 0.528379E+01_JPRB, 0.530733E+01_JPRB &
+  &, 0.533018E+01_JPRB, 0.535238E+01_JPRB, 0.537391E+01_JPRB &
+  &, 0.539473E+01_JPRB, 0.541489E+01_JPRB, 0.543439E+01_JPRB, 0.545321E+01_JPRB &
+  &, 0.547132E+01_JPRB, 0.548881E+01_JPRB, 0.550556E+01_JPRB &
+  &, 0.552155E+01_JPRB, 0.553710E+01_JPRB, 0.555174E+01_JPRB, 0.556598E+01_JPRB &
+  &, 0.557941E+01_JPRB, 0.559217E+01_JPRB, 0.560427E+01_JPRB &
+  &, 0.561572E+01_JPRB, 0.562648E+01_JPRB, 0.563658E+01_JPRB, 0.564607E+01_JPRB &
+  &, 0.565487E+01_JPRB, 0.566299E+01_JPRB, 0.567054E+01_JPRB &
+  &, 0.567739E+01_JPRB, 0.568361E+01_JPRB, 0.568921E+01_JPRB, 0.569414E+01_JPRB &
+  &, 0.569843E+01_JPRB, 0.570203E+01_JPRB, 0.570518E+01_JPRB &
+  &, 0.570762E+01_JPRB, 0.570942E+01_JPRB, 0.571065E+01_JPRB, 0.571121E+01_JPRB &
+  &, 0.571124E+01_JPRB, 0.571063E+01_JPRB, 0.570945E+01_JPRB &
+  &, 0.570761E+01_JPRB, 0.570525E+01_JPRB, 0.570224E+01_JPRB, 0.569874E+01_JPRB &
+  &, 0.569457E+01_JPRB, 0.568968E+01_JPRB, 0.568455E+01_JPRB/)
+XCW( 950, :) = (/ &
+  &  0.116992E+01_JPRB, 0.121403E+01_JPRB, 0.125876E+01_JPRB, 0.130408E+01_JPRB &
+  &, 0.134998E+01_JPRB, 0.139643E+01_JPRB, 0.144342E+01_JPRB &
+  &, 0.149092E+01_JPRB, 0.153891E+01_JPRB, 0.158737E+01_JPRB, 0.163629E+01_JPRB &
+  &, 0.168563E+01_JPRB, 0.173538E+01_JPRB, 0.178552E+01_JPRB &
+  &, 0.183603E+01_JPRB, 0.188687E+01_JPRB, 0.193804E+01_JPRB, 0.198950E+01_JPRB &
+  &, 0.204124E+01_JPRB, 0.209324E+01_JPRB, 0.214547E+01_JPRB &
+  &, 0.219790E+01_JPRB, 0.225053E+01_JPRB, 0.230332E+01_JPRB, 0.235625E+01_JPRB &
+  &, 0.240931E+01_JPRB, 0.246246E+01_JPRB, 0.251569E+01_JPRB &
+  &, 0.256898E+01_JPRB, 0.262230E+01_JPRB, 0.267563E+01_JPRB, 0.272896E+01_JPRB &
+  &, 0.278226E+01_JPRB, 0.283550E+01_JPRB, 0.288868E+01_JPRB &
+  &, 0.294176E+01_JPRB, 0.299473E+01_JPRB, 0.304757E+01_JPRB, 0.310026E+01_JPRB &
+  &, 0.315278E+01_JPRB, 0.320512E+01_JPRB, 0.325725E+01_JPRB &
+  &, 0.330915E+01_JPRB, 0.336082E+01_JPRB, 0.341222E+01_JPRB, 0.346335E+01_JPRB &
+  &, 0.351419E+01_JPRB, 0.356473E+01_JPRB, 0.361493E+01_JPRB &
+  &, 0.366480E+01_JPRB, 0.371431E+01_JPRB, 0.376346E+01_JPRB, 0.381223E+01_JPRB &
+  &, 0.386059E+01_JPRB, 0.390855E+01_JPRB, 0.395609E+01_JPRB &
+  &, 0.400318E+01_JPRB, 0.404984E+01_JPRB, 0.409603E+01_JPRB, 0.414175E+01_JPRB &
+  &, 0.418699E+01_JPRB, 0.423175E+01_JPRB, 0.427599E+01_JPRB &
+  &, 0.431972E+01_JPRB, 0.436295E+01_JPRB, 0.440562E+01_JPRB, 0.444776E+01_JPRB &
+  &, 0.448934E+01_JPRB, 0.453037E+01_JPRB, 0.457083E+01_JPRB &
+  &, 0.461074E+01_JPRB, 0.465003E+01_JPRB, 0.468877E+01_JPRB, 0.472690E+01_JPRB &
+  &, 0.476442E+01_JPRB, 0.480134E+01_JPRB, 0.483764E+01_JPRB &
+  &, 0.487329E+01_JPRB, 0.490841E+01_JPRB, 0.494284E+01_JPRB, 0.497661E+01_JPRB &
+  &, 0.500982E+01_JPRB, 0.504230E+01_JPRB, 0.507418E+01_JPRB &
+  &, 0.510542E+01_JPRB, 0.513599E+01_JPRB, 0.516591E+01_JPRB, 0.519517E+01_JPRB &
+  &, 0.522375E+01_JPRB, 0.525169E+01_JPRB, 0.527896E+01_JPRB &
+  &, 0.530557E+01_JPRB, 0.533148E+01_JPRB, 0.535660E+01_JPRB, 0.538129E+01_JPRB &
+  &, 0.540520E+01_JPRB, 0.542844E+01_JPRB, 0.545100E+01_JPRB &
+  &, 0.547282E+01_JPRB, 0.549406E+01_JPRB, 0.551458E+01_JPRB, 0.553445E+01_JPRB &
+  &, 0.555361E+01_JPRB, 0.557211E+01_JPRB, 0.558992E+01_JPRB &
+  &, 0.560704E+01_JPRB, 0.562349E+01_JPRB, 0.563932E+01_JPRB, 0.565442E+01_JPRB &
+  &, 0.566883E+01_JPRB, 0.568261E+01_JPRB, 0.569572E+01_JPRB &
+  &, 0.570819E+01_JPRB, 0.571994E+01_JPRB, 0.573106E+01_JPRB, 0.574152E+01_JPRB &
+  &, 0.575133E+01_JPRB, 0.576047E+01_JPRB, 0.576894E+01_JPRB &
+  &, 0.577681E+01_JPRB, 0.578399E+01_JPRB, 0.579054E+01_JPRB, 0.579643E+01_JPRB &
+  &, 0.580167E+01_JPRB, 0.580633E+01_JPRB, 0.581037E+01_JPRB &
+  &, 0.581370E+01_JPRB, 0.581649E+01_JPRB, 0.581866E+01_JPRB, 0.582015E+01_JPRB &
+  &, 0.582104E+01_JPRB, 0.582135E+01_JPRB, 0.582103E+01_JPRB &
+  &, 0.582016E+01_JPRB, 0.581869E+01_JPRB, 0.581659E+01_JPRB, 0.581392E+01_JPRB &
+  &, 0.581064E+01_JPRB, 0.580682E+01_JPRB, 0.580243E+01_JPRB/)
+XCW( 951, :) = (/ &
+  &  0.117100E+01_JPRB, 0.121542E+01_JPRB, 0.126047E+01_JPRB, 0.130612E+01_JPRB &
+  &, 0.135236E+01_JPRB, 0.139917E+01_JPRB, 0.144653E+01_JPRB &
+  &, 0.149442E+01_JPRB, 0.154281E+01_JPRB, 0.159169E+01_JPRB, 0.164103E+01_JPRB &
+  &, 0.169081E+01_JPRB, 0.174101E+01_JPRB, 0.179162E+01_JPRB &
+  &, 0.184260E+01_JPRB, 0.189394E+01_JPRB, 0.194561E+01_JPRB, 0.199759E+01_JPRB &
+  &, 0.204986E+01_JPRB, 0.210240E+01_JPRB, 0.215518E+01_JPRB &
+  &, 0.220818E+01_JPRB, 0.226139E+01_JPRB, 0.231477E+01_JPRB, 0.236831E+01_JPRB &
+  &, 0.242198E+01_JPRB, 0.247576E+01_JPRB, 0.252963E+01_JPRB &
+  &, 0.258357E+01_JPRB, 0.263755E+01_JPRB, 0.269156E+01_JPRB, 0.274557E+01_JPRB &
+  &, 0.279956E+01_JPRB, 0.285352E+01_JPRB, 0.290741E+01_JPRB &
+  &, 0.296122E+01_JPRB, 0.301493E+01_JPRB, 0.306852E+01_JPRB, 0.312198E+01_JPRB &
+  &, 0.317527E+01_JPRB, 0.322839E+01_JPRB, 0.328131E+01_JPRB &
+  &, 0.333402E+01_JPRB, 0.338649E+01_JPRB, 0.343871E+01_JPRB, 0.349068E+01_JPRB &
+  &, 0.354235E+01_JPRB, 0.359374E+01_JPRB, 0.364480E+01_JPRB &
+  &, 0.369554E+01_JPRB, 0.374592E+01_JPRB, 0.379595E+01_JPRB, 0.384561E+01_JPRB &
+  &, 0.389488E+01_JPRB, 0.394374E+01_JPRB, 0.399219E+01_JPRB &
+  &, 0.404021E+01_JPRB, 0.408780E+01_JPRB, 0.413492E+01_JPRB, 0.418160E+01_JPRB &
+  &, 0.422778E+01_JPRB, 0.427350E+01_JPRB, 0.431870E+01_JPRB &
+  &, 0.436340E+01_JPRB, 0.440759E+01_JPRB, 0.445125E+01_JPRB, 0.449437E+01_JPRB &
+  &, 0.453696E+01_JPRB, 0.457898E+01_JPRB, 0.462045E+01_JPRB &
+  &, 0.466135E+01_JPRB, 0.470167E+01_JPRB, 0.474141E+01_JPRB, 0.478057E+01_JPRB &
+  &, 0.481911E+01_JPRB, 0.485707E+01_JPRB, 0.489441E+01_JPRB &
+  &, 0.493113E+01_JPRB, 0.496723E+01_JPRB, 0.500267E+01_JPRB, 0.503755E+01_JPRB &
+  &, 0.507178E+01_JPRB, 0.510536E+01_JPRB, 0.513829E+01_JPRB &
+  &, 0.517055E+01_JPRB, 0.520219E+01_JPRB, 0.523315E+01_JPRB, 0.526349E+01_JPRB &
+  &, 0.529315E+01_JPRB, 0.532216E+01_JPRB, 0.535047E+01_JPRB &
+  &, 0.537815E+01_JPRB, 0.540513E+01_JPRB, 0.543144E+01_JPRB, 0.545709E+01_JPRB &
+  &, 0.548209E+01_JPRB, 0.550636E+01_JPRB, 0.552999E+01_JPRB &
+  &, 0.555282E+01_JPRB, 0.557520E+01_JPRB, 0.559679E+01_JPRB, 0.561767E+01_JPRB &
+  &, 0.563792E+01_JPRB, 0.565747E+01_JPRB, 0.567637E+01_JPRB &
+  &, 0.569455E+01_JPRB, 0.571201E+01_JPRB, 0.572890E+01_JPRB, 0.574509E+01_JPRB &
+  &, 0.576060E+01_JPRB, 0.577539E+01_JPRB, 0.578957E+01_JPRB &
+  &, 0.580305E+01_JPRB, 0.581585E+01_JPRB, 0.582803E+01_JPRB, 0.583800E+01_JPRB &
+  &, 0.585032E+01_JPRB, 0.586047E+01_JPRB, 0.586685E+01_JPRB &
+  &, 0.587887E+01_JPRB, 0.588704E+01_JPRB, 0.589460E+01_JPRB, 0.590148E+01_JPRB &
+  &, 0.590777E+01_JPRB, 0.591342E+01_JPRB, 0.591839E+01_JPRB &
+  &, 0.592276E+01_JPRB, 0.592647E+01_JPRB, 0.592950E+01_JPRB, 0.593207E+01_JPRB &
+  &, 0.593393E+01_JPRB, 0.593520E+01_JPRB, 0.593584E+01_JPRB &
+  &, 0.593586E+01_JPRB, 0.593528E+01_JPRB, 0.593412E+01_JPRB, 0.593238E+01_JPRB &
+  &, 0.593003E+01_JPRB, 0.592708E+01_JPRB, 0.592354E+01_JPRB/)
+XCW( 952, :) = (/ &
+  &  0.117211E+01_JPRB, 0.121683E+01_JPRB, 0.126221E+01_JPRB, 0.130820E+01_JPRB &
+  &, 0.135479E+01_JPRB, 0.140197E+01_JPRB, 0.144971E+01_JPRB &
+  &, 0.149799E+01_JPRB, 0.154678E+01_JPRB, 0.159608E+01_JPRB, 0.164586E+01_JPRB &
+  &, 0.169609E+01_JPRB, 0.174675E+01_JPRB, 0.179783E+01_JPRB &
+  &, 0.184930E+01_JPRB, 0.190113E+01_JPRB, 0.195332E+01_JPRB, 0.200583E+01_JPRB &
+  &, 0.205864E+01_JPRB, 0.211173E+01_JPRB, 0.216508E+01_JPRB &
+  &, 0.221866E+01_JPRB, 0.227245E+01_JPRB, 0.232644E+01_JPRB, 0.238059E+01_JPRB &
+  &, 0.243489E+01_JPRB, 0.248932E+01_JPRB, 0.254384E+01_JPRB &
+  &, 0.259844E+01_JPRB, 0.265311E+01_JPRB, 0.270780E+01_JPRB, 0.276251E+01_JPRB &
+  &, 0.281722E+01_JPRB, 0.287189E+01_JPRB, 0.292652E+01_JPRB &
+  &, 0.298108E+01_JPRB, 0.303555E+01_JPRB, 0.308991E+01_JPRB, 0.314414E+01_JPRB &
+  &, 0.319822E+01_JPRB, 0.325214E+01_JPRB, 0.330587E+01_JPRB &
+  &, 0.335940E+01_JPRB, 0.341270E+01_JPRB, 0.346578E+01_JPRB, 0.351859E+01_JPRB &
+  &, 0.357112E+01_JPRB, 0.362337E+01_JPRB, 0.367530E+01_JPRB &
+  &, 0.372693E+01_JPRB, 0.377821E+01_JPRB, 0.382915E+01_JPRB, 0.387971E+01_JPRB &
+  &, 0.392991E+01_JPRB, 0.397969E+01_JPRB, 0.402908E+01_JPRB &
+  &, 0.407805E+01_JPRB, 0.412659E+01_JPRB, 0.417467E+01_JPRB, 0.422231E+01_JPRB &
+  &, 0.426947E+01_JPRB, 0.431617E+01_JPRB, 0.436237E+01_JPRB &
+  &, 0.440806E+01_JPRB, 0.445324E+01_JPRB, 0.449792E+01_JPRB, 0.454205E+01_JPRB &
+  &, 0.458565E+01_JPRB, 0.462869E+01_JPRB, 0.467121E+01_JPRB &
+  &, 0.471314E+01_JPRB, 0.475449E+01_JPRB, 0.479527E+01_JPRB, 0.483548E+01_JPRB &
+  &, 0.487507E+01_JPRB, 0.491409E+01_JPRB, 0.495249E+01_JPRB &
+  &, 0.499028E+01_JPRB, 0.502746E+01_JPRB, 0.506402E+01_JPRB, 0.509992E+01_JPRB &
+  &, 0.513524E+01_JPRB, 0.516987E+01_JPRB, 0.520390E+01_JPRB &
+  &, 0.523728E+01_JPRB, 0.527000E+01_JPRB, 0.530207E+01_JPRB, 0.533345E+01_JPRB &
+  &, 0.536421E+01_JPRB, 0.539427E+01_JPRB, 0.542374E+01_JPRB &
+  &, 0.545253E+01_JPRB, 0.548059E+01_JPRB, 0.550801E+01_JPRB, 0.553476E+01_JPRB &
+  &, 0.556085E+01_JPRB, 0.558625E+01_JPRB, 0.561099E+01_JPRB &
+  &, 0.563503E+01_JPRB, 0.565838E+01_JPRB, 0.568109E+01_JPRB, 0.570308E+01_JPRB &
+  &, 0.572441E+01_JPRB, 0.574505E+01_JPRB, 0.576440E+01_JPRB &
+  &, 0.578430E+01_JPRB, 0.580294E+01_JPRB, 0.582083E+01_JPRB, 0.583812E+01_JPRB &
+  &, 0.585472E+01_JPRB, 0.587061E+01_JPRB, 0.588584E+01_JPRB &
+  &, 0.590042E+01_JPRB, 0.591427E+01_JPRB, 0.592750E+01_JPRB, 0.594006E+01_JPRB &
+  &, 0.595194E+01_JPRB, 0.596318E+01_JPRB, 0.597375E+01_JPRB &
+  &, 0.598366E+01_JPRB, 0.599288E+01_JPRB, 0.600142E+01_JPRB, 0.600945E+01_JPRB &
+  &, 0.601672E+01_JPRB, 0.602340E+01_JPRB, 0.602940E+01_JPRB &
+  &, 0.603479E+01_JPRB, 0.603953E+01_JPRB, 0.604363E+01_JPRB, 0.604710E+01_JPRB &
+  &, 0.604997E+01_JPRB, 0.605219E+01_JPRB, 0.605383E+01_JPRB &
+  &, 0.605484E+01_JPRB, 0.605525E+01_JPRB, 0.605501E+01_JPRB, 0.605419E+01_JPRB &
+  &, 0.605282E+01_JPRB, 0.605083E+01_JPRB, 0.604826E+01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART136',1,ZHOOK_HANDLE)
+END SUBROUTINE PART136
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART137
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART137',0,ZHOOK_HANDLE)
+
+XCW( 953, :) = (/ &
+  &  0.117323E+01_JPRB, 0.121827E+01_JPRB, 0.126398E+01_JPRB, 0.131031E+01_JPRB &
+  &, 0.135726E+01_JPRB, 0.140481E+01_JPRB, 0.145294E+01_JPRB &
+  &, 0.150162E+01_JPRB, 0.155083E+01_JPRB, 0.160056E+01_JPRB, 0.165077E+01_JPRB &
+  &, 0.170146E+01_JPRB, 0.175259E+01_JPRB, 0.180416E+01_JPRB &
+  &, 0.185612E+01_JPRB, 0.190847E+01_JPRB, 0.196118E+01_JPRB, 0.201423E+01_JPRB &
+  &, 0.206759E+01_JPRB, 0.212124E+01_JPRB, 0.217517E+01_JPRB &
+  &, 0.222934E+01_JPRB, 0.228374E+01_JPRB, 0.233835E+01_JPRB, 0.239313E+01_JPRB &
+  &, 0.244808E+01_JPRB, 0.250315E+01_JPRB, 0.255834E+01_JPRB &
+  &, 0.261363E+01_JPRB, 0.266898E+01_JPRB, 0.272438E+01_JPRB, 0.277981E+01_JPRB &
+  &, 0.283524E+01_JPRB, 0.289066E+01_JPRB, 0.294604E+01_JPRB &
+  &, 0.300136E+01_JPRB, 0.305660E+01_JPRB, 0.311175E+01_JPRB, 0.316678E+01_JPRB &
+  &, 0.322167E+01_JPRB, 0.327641E+01_JPRB, 0.333097E+01_JPRB &
+  &, 0.338533E+01_JPRB, 0.343948E+01_JPRB, 0.349341E+01_JPRB, 0.354710E+01_JPRB &
+  &, 0.360049E+01_JPRB, 0.365364E+01_JPRB, 0.370649E+01_JPRB &
+  &, 0.375901E+01_JPRB, 0.381122E+01_JPRB, 0.386307E+01_JPRB, 0.391459E+01_JPRB &
+  &, 0.396572E+01_JPRB, 0.401646E+01_JPRB, 0.406681E+01_JPRB &
+  &, 0.411675E+01_JPRB, 0.416625E+01_JPRB, 0.421533E+01_JPRB, 0.426395E+01_JPRB &
+  &, 0.431212E+01_JPRB, 0.435981E+01_JPRB, 0.440703E+01_JPRB &
+  &, 0.445374E+01_JPRB, 0.449995E+01_JPRB, 0.454565E+01_JPRB, 0.459082E+01_JPRB &
+  &, 0.463547E+01_JPRB, 0.467958E+01_JPRB, 0.472312E+01_JPRB &
+  &, 0.476613E+01_JPRB, 0.480855E+01_JPRB, 0.485042E+01_JPRB, 0.489169E+01_JPRB &
+  &, 0.493237E+01_JPRB, 0.497246E+01_JPRB, 0.501197E+01_JPRB &
+  &, 0.505084E+01_JPRB, 0.508913E+01_JPRB, 0.512679E+01_JPRB, 0.516380E+01_JPRB &
+  &, 0.520021E+01_JPRB, 0.523598E+01_JPRB, 0.527112E+01_JPRB &
+  &, 0.530561E+01_JPRB, 0.533943E+01_JPRB, 0.537264E+01_JPRB, 0.540519E+01_JPRB &
+  &, 0.543706E+01_JPRB, 0.546828E+01_JPRB, 0.549885E+01_JPRB &
+  &, 0.552874E+01_JPRB, 0.555796E+01_JPRB, 0.558548E+01_JPRB, 0.561439E+01_JPRB &
+  &, 0.564162E+01_JPRB, 0.566815E+01_JPRB, 0.569399E+01_JPRB &
+  &, 0.571920E+01_JPRB, 0.574370E+01_JPRB, 0.576752E+01_JPRB, 0.579068E+01_JPRB &
+  &, 0.581282E+01_JPRB, 0.583492E+01_JPRB, 0.585599E+01_JPRB &
+  &, 0.587643E+01_JPRB, 0.589615E+01_JPRB, 0.591518E+01_JPRB, 0.593359E+01_JPRB &
+  &, 0.595133E+01_JPRB, 0.596831E+01_JPRB, 0.598472E+01_JPRB &
+  &, 0.600039E+01_JPRB, 0.601538E+01_JPRB, 0.602970E+01_JPRB, 0.604335E+01_JPRB &
+  &, 0.605637E+01_JPRB, 0.606865E+01_JPRB, 0.608035E+01_JPRB &
+  &, 0.609125E+01_JPRB, 0.610171E+01_JPRB, 0.611128E+01_JPRB, 0.612039E+01_JPRB &
+  &, 0.612873E+01_JPRB, 0.613649E+01_JPRB, 0.614356E+01_JPRB &
+  &, 0.614996E+01_JPRB, 0.615577E+01_JPRB, 0.616093E+01_JPRB, 0.616547E+01_JPRB &
+  &, 0.616933E+01_JPRB, 0.617260E+01_JPRB, 0.617522E+01_JPRB &
+  &, 0.617722E+01_JPRB, 0.617867E+01_JPRB, 0.617946E+01_JPRB, 0.617967E+01_JPRB &
+  &, 0.617919E+01_JPRB, 0.617822E+01_JPRB, 0.617659E+01_JPRB/)
+XCW( 954, :) = (/ &
+  &  0.117437E+01_JPRB, 0.121974E+01_JPRB, 0.126578E+01_JPRB, 0.131246E+01_JPRB &
+  &, 0.135978E+01_JPRB, 0.140771E+01_JPRB, 0.145623E+01_JPRB &
+  &, 0.150532E+01_JPRB, 0.155495E+01_JPRB, 0.160512E+01_JPRB, 0.165578E+01_JPRB &
+  &, 0.170694E+01_JPRB, 0.175855E+01_JPRB, 0.181061E+01_JPRB &
+  &, 0.186308E+01_JPRB, 0.191595E+01_JPRB, 0.196920E+01_JPRB, 0.202279E+01_JPRB &
+  &, 0.207672E+01_JPRB, 0.213095E+01_JPRB, 0.218547E+01_JPRB &
+  &, 0.224025E+01_JPRB, 0.229527E+01_JPRB, 0.235050E+01_JPRB, 0.240593E+01_JPRB &
+  &, 0.246153E+01_JPRB, 0.251727E+01_JPRB, 0.257315E+01_JPRB &
+  &, 0.262913E+01_JPRB, 0.268516E+01_JPRB, 0.274131E+01_JPRB, 0.279747E+01_JPRB &
+  &, 0.285365E+01_JPRB, 0.290982E+01_JPRB, 0.296597E+01_JPRB &
+  &, 0.302208E+01_JPRB, 0.307811E+01_JPRB, 0.313406E+01_JPRB, 0.318990E+01_JPRB &
+  &, 0.324563E+01_JPRB, 0.330119E+01_JPRB, 0.335661E+01_JPRB &
+  &, 0.341183E+01_JPRB, 0.346686E+01_JPRB, 0.352166E+01_JPRB, 0.357624E+01_JPRB &
+  &, 0.363055E+01_JPRB, 0.368461E+01_JPRB, 0.373836E+01_JPRB &
+  &, 0.379182E+01_JPRB, 0.384496E+01_JPRB, 0.389778E+01_JPRB, 0.395024E+01_JPRB &
+  &, 0.400234E+01_JPRB, 0.405406E+01_JPRB, 0.410540E+01_JPRB &
+  &, 0.415630E+01_JPRB, 0.420683E+01_JPRB, 0.425691E+01_JPRB, 0.430656E+01_JPRB &
+  &, 0.435574E+01_JPRB, 0.440448E+01_JPRB, 0.445273E+01_JPRB &
+  &, 0.450048E+01_JPRB, 0.454775E+01_JPRB, 0.459453E+01_JPRB, 0.464076E+01_JPRB &
+  &, 0.468649E+01_JPRB, 0.473166E+01_JPRB, 0.477630E+01_JPRB &
+  &, 0.482039E+01_JPRB, 0.486391E+01_JPRB, 0.490687E+01_JPRB, 0.494926E+01_JPRB &
+  &, 0.499106E+01_JPRB, 0.503226E+01_JPRB, 0.507289E+01_JPRB &
+  &, 0.511289E+01_JPRB, 0.515229E+01_JPRB, 0.519100E+01_JPRB, 0.522924E+01_JPRB &
+  &, 0.526680E+01_JPRB, 0.530373E+01_JPRB, 0.534001E+01_JPRB &
+  &, 0.537565E+01_JPRB, 0.541063E+01_JPRB, 0.544499E+01_JPRB, 0.547869E+01_JPRB &
+  &, 0.551174E+01_JPRB, 0.554412E+01_JPRB, 0.557583E+01_JPRB &
+  &, 0.560689E+01_JPRB, 0.563728E+01_JPRB, 0.566701E+01_JPRB, 0.569603E+01_JPRB &
+  &, 0.572446E+01_JPRB, 0.575216E+01_JPRB, 0.577920E+01_JPRB &
+  &, 0.580556E+01_JPRB, 0.583125E+01_JPRB, 0.585622E+01_JPRB, 0.588053E+01_JPRB &
+  &, 0.590417E+01_JPRB, 0.592717E+01_JPRB, 0.594940E+01_JPRB &
+  &, 0.597100E+01_JPRB, 0.599189E+01_JPRB, 0.601213E+01_JPRB, 0.603168E+01_JPRB &
+  &, 0.605055E+01_JPRB, 0.606871E+01_JPRB, 0.608625E+01_JPRB &
+  &, 0.610310E+01_JPRB, 0.611922E+01_JPRB, 0.613472E+01_JPRB, 0.614951E+01_JPRB &
+  &, 0.616365E+01_JPRB, 0.617711E+01_JPRB, 0.618990E+01_JPRB &
+  &, 0.620203E+01_JPRB, 0.621352E+01_JPRB, 0.622432E+01_JPRB, 0.623445E+01_JPRB &
+  &, 0.624391E+01_JPRB, 0.625236E+01_JPRB, 0.626093E+01_JPRB &
+  &, 0.626845E+01_JPRB, 0.627536E+01_JPRB, 0.628164E+01_JPRB, 0.628711E+01_JPRB &
+  &, 0.629207E+01_JPRB, 0.629649E+01_JPRB, 0.630022E+01_JPRB &
+  &, 0.630331E+01_JPRB, 0.630572E+01_JPRB, 0.630759E+01_JPRB, 0.630881E+01_JPRB &
+  &, 0.630940E+01_JPRB, 0.630944E+01_JPRB, 0.630880E+01_JPRB/)
+XCW( 955, :) = (/ &
+  &  0.117554E+01_JPRB, 0.122123E+01_JPRB, 0.126761E+01_JPRB, 0.131466E+01_JPRB &
+  &, 0.136235E+01_JPRB, 0.141066E+01_JPRB, 0.145958E+01_JPRB &
+  &, 0.150909E+01_JPRB, 0.155916E+01_JPRB, 0.160976E+01_JPRB, 0.166089E+01_JPRB &
+  &, 0.171252E+01_JPRB, 0.176454E+01_JPRB, 0.181719E+01_JPRB &
+  &, 0.187018E+01_JPRB, 0.192358E+01_JPRB, 0.197738E+01_JPRB, 0.203153E+01_JPRB &
+  &, 0.208604E+01_JPRB, 0.214086E+01_JPRB, 0.219598E+01_JPRB &
+  &, 0.225137E+01_JPRB, 0.230702E+01_JPRB, 0.236290E+01_JPRB, 0.241899E+01_JPRB &
+  &, 0.247526E+01_JPRB, 0.253169E+01_JPRB, 0.258824E+01_JPRB &
+  &, 0.264495E+01_JPRB, 0.270174E+01_JPRB, 0.275860E+01_JPRB, 0.281551E+01_JPRB &
+  &, 0.287246E+01_JPRB, 0.292940E+01_JPRB, 0.298634E+01_JPRB &
+  &, 0.304324E+01_JPRB, 0.310009E+01_JPRB, 0.315686E+01_JPRB, 0.321354E+01_JPRB &
+  &, 0.327011E+01_JPRB, 0.332654E+01_JPRB, 0.338281E+01_JPRB &
+  &, 0.343893E+01_JPRB, 0.349484E+01_JPRB, 0.355055E+01_JPRB, 0.360604E+01_JPRB &
+  &, 0.366128E+01_JPRB, 0.371627E+01_JPRB, 0.377097E+01_JPRB &
+  &, 0.382538E+01_JPRB, 0.387949E+01_JPRB, 0.393327E+01_JPRB, 0.398671E+01_JPRB &
+  &, 0.403981E+01_JPRB, 0.409254E+01_JPRB, 0.414487E+01_JPRB &
+  &, 0.419682E+01_JPRB, 0.424836E+01_JPRB, 0.429949E+01_JPRB, 0.435017E+01_JPRB &
+  &, 0.440042E+01_JPRB, 0.445021E+01_JPRB, 0.449952E+01_JPRB &
+  &, 0.454835E+01_JPRB, 0.459670E+01_JPRB, 0.464455E+01_JPRB, 0.469190E+01_JPRB &
+  &, 0.473872E+01_JPRB, 0.478502E+01_JPRB, 0.483077E+01_JPRB &
+  &, 0.487598E+01_JPRB, 0.492063E+01_JPRB, 0.496473E+01_JPRB, 0.500825E+01_JPRB &
+  &, 0.505120E+01_JPRB, 0.509355E+01_JPRB, 0.513533E+01_JPRB &
+  &, 0.517649E+01_JPRB, 0.521706E+01_JPRB, 0.525703E+01_JPRB, 0.529634E+01_JPRB &
+  &, 0.533507E+01_JPRB, 0.537320E+01_JPRB, 0.541064E+01_JPRB &
+  &, 0.544744E+01_JPRB, 0.548361E+01_JPRB, 0.551920E+01_JPRB, 0.555408E+01_JPRB &
+  &, 0.558835E+01_JPRB, 0.562192E+01_JPRB, 0.565483E+01_JPRB &
+  &, 0.568710E+01_JPRB, 0.571871E+01_JPRB, 0.574952E+01_JPRB, 0.577991E+01_JPRB &
+  &, 0.580950E+01_JPRB, 0.583841E+01_JPRB, 0.586663E+01_JPRB &
+  &, 0.589421E+01_JPRB, 0.592112E+01_JPRB, 0.594732E+01_JPRB, 0.597282E+01_JPRB &
+  &, 0.599770E+01_JPRB, 0.602186E+01_JPRB, 0.604534E+01_JPRB &
+  &, 0.606815E+01_JPRB, 0.609025E+01_JPRB, 0.611170E+01_JPRB, 0.613242E+01_JPRB &
+  &, 0.615251E+01_JPRB, 0.617189E+01_JPRB, 0.619061E+01_JPRB &
+  &, 0.620863E+01_JPRB, 0.622598E+01_JPRB, 0.624265E+01_JPRB, 0.625863E+01_JPRB &
+  &, 0.627399E+01_JPRB, 0.628858E+01_JPRB, 0.630260E+01_JPRB &
+  &, 0.631591E+01_JPRB, 0.632851E+01_JPRB, 0.634049E+01_JPRB, 0.635179E+01_JPRB &
+  &, 0.636243E+01_JPRB, 0.637242E+01_JPRB, 0.638172E+01_JPRB &
+  &, 0.639040E+01_JPRB, 0.639843E+01_JPRB, 0.640586E+01_JPRB, 0.641254E+01_JPRB &
+  &, 0.641866E+01_JPRB, 0.642400E+01_JPRB, 0.642892E+01_JPRB &
+  &, 0.643309E+01_JPRB, 0.643664E+01_JPRB, 0.643958E+01_JPRB, 0.644187E+01_JPRB &
+  &, 0.644352E+01_JPRB, 0.644461E+01_JPRB, 0.644509E+01_JPRB/)
+XCW( 956, :) = (/ &
+  &  0.117672E+01_JPRB, 0.122275E+01_JPRB, 0.126948E+01_JPRB, 0.131689E+01_JPRB &
+  &, 0.136496E+01_JPRB, 0.141367E+01_JPRB, 0.146300E+01_JPRB &
+  &, 0.151293E+01_JPRB, 0.156344E+01_JPRB, 0.161451E+01_JPRB, 0.166611E+01_JPRB &
+  &, 0.171822E+01_JPRB, 0.177083E+01_JPRB, 0.182390E+01_JPRB &
+  &, 0.187743E+01_JPRB, 0.193137E+01_JPRB, 0.198573E+01_JPRB, 0.204046E+01_JPRB &
+  &, 0.209555E+01_JPRB, 0.215097E+01_JPRB, 0.220671E+01_JPRB &
+  &, 0.226274E+01_JPRB, 0.231903E+01_JPRB, 0.237557E+01_JPRB, 0.243233E+01_JPRB &
+  &, 0.248929E+01_JPRB, 0.254643E+01_JPRB, 0.260371E+01_JPRB &
+  &, 0.266113E+01_JPRB, 0.271866E+01_JPRB, 0.277628E+01_JPRB, 0.283395E+01_JPRB &
+  &, 0.289168E+01_JPRB, 0.294942E+01_JPRB, 0.300716E+01_JPRB &
+  &, 0.306488E+01_JPRB, 0.312012E+01_JPRB, 0.318018E+01_JPRB, 0.323771E+01_JPRB &
+  &, 0.329515E+01_JPRB, 0.335246E+01_JPRB, 0.340963E+01_JPRB &
+  &, 0.346664E+01_JPRB, 0.352347E+01_JPRB, 0.358011E+01_JPRB, 0.363653E+01_JPRB &
+  &, 0.369272E+01_JPRB, 0.374866E+01_JPRB, 0.380433E+01_JPRB &
+  &, 0.385973E+01_JPRB, 0.391483E+01_JPRB, 0.396961E+01_JPRB, 0.402406E+01_JPRB &
+  &, 0.407817E+01_JPRB, 0.413192E+01_JPRB, 0.418530E+01_JPRB &
+  &, 0.423829E+01_JPRB, 0.429089E+01_JPRB, 0.434308E+01_JPRB, 0.439484E+01_JPRB &
+  &, 0.444615E+01_JPRB, 0.449704E+01_JPRB, 0.454745E+01_JPRB &
+  &, 0.459740E+01_JPRB, 0.464686E+01_JPRB, 0.469583E+01_JPRB, 0.474430E+01_JPRB &
+  &, 0.479226E+01_JPRB, 0.483969E+01_JPRB, 0.488659E+01_JPRB &
+  &, 0.493294E+01_JPRB, 0.497876E+01_JPRB, 0.502402E+01_JPRB, 0.506872E+01_JPRB &
+  &, 0.511285E+01_JPRB, 0.515639E+01_JPRB, 0.519935E+01_JPRB &
+  &, 0.524169E+01_JPRB, 0.528347E+01_JPRB, 0.532463E+01_JPRB, 0.536519E+01_JPRB &
+  &, 0.540511E+01_JPRB, 0.544443E+01_JPRB, 0.548308E+01_JPRB &
+  &, 0.552115E+01_JPRB, 0.555855E+01_JPRB, 0.559535E+01_JPRB, 0.563146E+01_JPRB &
+  &, 0.566693E+01_JPRB, 0.570173E+01_JPRB, 0.573591E+01_JPRB &
+  &, 0.576943E+01_JPRB, 0.580229E+01_JPRB, 0.583443E+01_JPRB, 0.586596E+01_JPRB &
+  &, 0.589683E+01_JPRB, 0.592698E+01_JPRB, 0.595646E+01_JPRB &
+  &, 0.598526E+01_JPRB, 0.601343E+01_JPRB, 0.604086E+01_JPRB, 0.606767E+01_JPRB &
+  &, 0.609376E+01_JPRB, 0.611920E+01_JPRB, 0.614393E+01_JPRB &
+  &, 0.616795E+01_JPRB, 0.619130E+01_JPRB, 0.621401E+01_JPRB, 0.623599E+01_JPRB &
+  &, 0.625730E+01_JPRB, 0.627794E+01_JPRB, 0.629792E+01_JPRB &
+  &, 0.631718E+01_JPRB, 0.633574E+01_JPRB, 0.635364E+01_JPRB, 0.637089E+01_JPRB &
+  &, 0.638743E+01_JPRB, 0.640330E+01_JPRB, 0.641844E+01_JPRB &
+  &, 0.643267E+01_JPRB, 0.644690E+01_JPRB, 0.646005E+01_JPRB, 0.647241E+01_JPRB &
+  &, 0.648443E+01_JPRB, 0.649558E+01_JPRB, 0.650610E+01_JPRB &
+  &, 0.651594E+01_JPRB, 0.652518E+01_JPRB, 0.653376E+01_JPRB, 0.654165E+01_JPRB &
+  &, 0.654892E+01_JPRB, 0.655552E+01_JPRB, 0.656152E+01_JPRB &
+  &, 0.656682E+01_JPRB, 0.657150E+01_JPRB, 0.657557E+01_JPRB, 0.657904E+01_JPRB &
+  &, 0.658180E+01_JPRB, 0.658400E+01_JPRB, 0.658558E+01_JPRB/)
+XCW( 957, :) = (/ &
+  &  0.117793E+01_JPRB, 0.122430E+01_JPRB, 0.127139E+01_JPRB, 0.131917E+01_JPRB &
+  &, 0.136763E+01_JPRB, 0.141674E+01_JPRB, 0.146649E+01_JPRB &
+  &, 0.151686E+01_JPRB, 0.156782E+01_JPRB, 0.161935E+01_JPRB, 0.167143E+01_JPRB &
+  &, 0.172404E+01_JPRB, 0.177715E+01_JPRB, 0.183076E+01_JPRB &
+  &, 0.188482E+01_JPRB, 0.193933E+01_JPRB, 0.199425E+01_JPRB, 0.204957E+01_JPRB &
+  &, 0.210526E+01_JPRB, 0.216131E+01_JPRB, 0.221767E+01_JPRB &
+  &, 0.227435E+01_JPRB, 0.233130E+01_JPRB, 0.238852E+01_JPRB, 0.244597E+01_JPRB &
+  &, 0.250363E+01_JPRB, 0.256148E+01_JPRB, 0.261950E+01_JPRB &
+  &, 0.267767E+01_JPRB, 0.273596E+01_JPRB, 0.279434E+01_JPRB, 0.285281E+01_JPRB &
+  &, 0.291133E+01_JPRB, 0.296989E+01_JPRB, 0.302846E+01_JPRB &
+  &, 0.308702E+01_JPRB, 0.314555E+01_JPRB, 0.320403E+01_JPRB, 0.326245E+01_JPRB &
+  &, 0.332078E+01_JPRB, 0.337899E+01_JPRB, 0.343707E+01_JPRB &
+  &, 0.349501E+01_JPRB, 0.355277E+01_JPRB, 0.361036E+01_JPRB, 0.366774E+01_JPRB &
+  &, 0.372491E+01_JPRB, 0.378182E+01_JPRB, 0.383850E+01_JPRB &
+  &, 0.389489E+01_JPRB, 0.395101E+01_JPRB, 0.400681E+01_JPRB, 0.406231E+01_JPRB &
+  &, 0.411746E+01_JPRB, 0.417226E+01_JPRB, 0.422672E+01_JPRB &
+  &, 0.428079E+01_JPRB, 0.433446E+01_JPRB, 0.438775E+01_JPRB, 0.444061E+01_JPRB &
+  &, 0.449304E+01_JPRB, 0.454503E+01_JPRB, 0.459658E+01_JPRB &
+  &, 0.464765E+01_JPRB, 0.469826E+01_JPRB, 0.474838E+01_JPRB, 0.479800E+01_JPRB &
+  &, 0.484714E+01_JPRB, 0.489573E+01_JPRB, 0.494383E+01_JPRB &
+  &, 0.499138E+01_JPRB, 0.503839E+01_JPRB, 0.508484E+01_JPRB, 0.513074E+01_JPRB &
+  &, 0.517607E+01_JPRB, 0.522084E+01_JPRB, 0.526501E+01_JPRB &
+  &, 0.530860E+01_JPRB, 0.535162E+01_JPRB, 0.539400E+01_JPRB, 0.543580E+01_JPRB &
+  &, 0.547699E+01_JPRB, 0.551754E+01_JPRB, 0.555746E+01_JPRB &
+  &, 0.559678E+01_JPRB, 0.563547E+01_JPRB, 0.567351E+01_JPRB, 0.571086E+01_JPRB &
+  &, 0.574764E+01_JPRB, 0.578365E+01_JPRB, 0.581920E+01_JPRB &
+  &, 0.585397E+01_JPRB, 0.588810E+01_JPRB, 0.592158E+01_JPRB, 0.595437E+01_JPRB &
+  &, 0.598646E+01_JPRB, 0.601797E+01_JPRB, 0.604874E+01_JPRB &
+  &, 0.607885E+01_JPRB, 0.610829E+01_JPRB, 0.613707E+01_JPRB, 0.616512E+01_JPRB &
+  &, 0.619253E+01_JPRB, 0.621922E+01_JPRB, 0.624524E+01_JPRB &
+  &, 0.627060E+01_JPRB, 0.629526E+01_JPRB, 0.631910E+01_JPRB, 0.634251E+01_JPRB &
+  &, 0.636513E+01_JPRB, 0.638704E+01_JPRB, 0.640829E+01_JPRB &
+  &, 0.642886E+01_JPRB, 0.644870E+01_JPRB, 0.646792E+01_JPRB, 0.648639E+01_JPRB &
+  &, 0.650426E+01_JPRB, 0.652135E+01_JPRB, 0.653782E+01_JPRB &
+  &, 0.655362E+01_JPRB, 0.656873E+01_JPRB, 0.658320E+01_JPRB, 0.659699E+01_JPRB &
+  &, 0.660923E+01_JPRB, 0.662250E+01_JPRB, 0.663424E+01_JPRB &
+  &, 0.664524E+01_JPRB, 0.665579E+01_JPRB, 0.666558E+01_JPRB, 0.667473E+01_JPRB &
+  &, 0.668314E+01_JPRB, 0.669099E+01_JPRB, 0.669819E+01_JPRB &
+  &, 0.670468E+01_JPRB, 0.671061E+01_JPRB, 0.671585E+01_JPRB, 0.672044E+01_JPRB &
+  &, 0.672443E+01_JPRB, 0.672780E+01_JPRB, 0.673054E+01_JPRB/)
+XCW( 958, :) = (/ &
+  &  0.117916E+01_JPRB, 0.122588E+01_JPRB, 0.127333E+01_JPRB, 0.132149E+01_JPRB &
+  &, 0.137035E+01_JPRB, 0.141988E+01_JPRB, 0.147005E+01_JPRB &
+  &, 0.152086E+01_JPRB, 0.157228E+01_JPRB, 0.162429E+01_JPRB, 0.167686E+01_JPRB &
+  &, 0.172998E+01_JPRB, 0.178362E+01_JPRB, 0.183775E+01_JPRB &
+  &, 0.189238E+01_JPRB, 0.194745E+01_JPRB, 0.200296E+01_JPRB, 0.205888E+01_JPRB &
+  &, 0.211519E+01_JPRB, 0.217186E+01_JPRB, 0.222888E+01_JPRB &
+  &, 0.228622E+01_JPRB, 0.234385E+01_JPRB, 0.240176E+01_JPRB, 0.245991E+01_JPRB &
+  &, 0.251829E+01_JPRB, 0.257688E+01_JPRB, 0.263565E+01_JPRB &
+  &, 0.269458E+01_JPRB, 0.275365E+01_JPRB, 0.281283E+01_JPRB, 0.287210E+01_JPRB &
+  &, 0.293145E+01_JPRB, 0.299084E+01_JPRB, 0.305025E+01_JPRB &
+  &, 0.310967E+01_JPRB, 0.316908E+01_JPRB, 0.322846E+01_JPRB, 0.328777E+01_JPRB &
+  &, 0.334700E+01_JPRB, 0.340614E+01_JPRB, 0.346517E+01_JPRB &
+  &, 0.352405E+01_JPRB, 0.358279E+01_JPRB, 0.364135E+01_JPRB, 0.369971E+01_JPRB &
+  &, 0.375787E+01_JPRB, 0.381580E+01_JPRB, 0.387349E+01_JPRB &
+  &, 0.393092E+01_JPRB, 0.398808E+01_JPRB, 0.404493E+01_JPRB, 0.410149E+01_JPRB &
+  &, 0.415772E+01_JPRB, 0.421361E+01_JPRB, 0.426916E+01_JPRB &
+  &, 0.432433E+01_JPRB, 0.437913E+01_JPRB, 0.443353E+01_JPRB, 0.448753E+01_JPRB &
+  &, 0.454110E+01_JPRB, 0.459424E+01_JPRB, 0.464696E+01_JPRB &
+  &, 0.469921E+01_JPRB, 0.475097E+01_JPRB, 0.480228E+01_JPRB, 0.485311E+01_JPRB &
+  &, 0.490343E+01_JPRB, 0.495325E+01_JPRB, 0.500254E+01_JPRB &
+  &, 0.505131E+01_JPRB, 0.509956E+01_JPRB, 0.514725E+01_JPRB, 0.519440E+01_JPRB &
+  &, 0.524097E+01_JPRB, 0.528699E+01_JPRB, 0.533243E+01_JPRB &
+  &, 0.537729E+01_JPRB, 0.542155E+01_JPRB, 0.546524E+01_JPRB, 0.550831E+01_JPRB &
+  &, 0.555077E+01_JPRB, 0.559264E+01_JPRB, 0.563387E+01_JPRB &
+  &, 0.567448E+01_JPRB, 0.571446E+01_JPRB, 0.575382E+01_JPRB, 0.579251E+01_JPRB &
+  &, 0.583057E+01_JPRB, 0.586798E+01_JPRB, 0.590476E+01_JPRB &
+  &, 0.594086E+01_JPRB, 0.597623E+01_JPRB, 0.601111E+01_JPRB, 0.604526E+01_JPRB &
+  &, 0.607874E+01_JPRB, 0.611148E+01_JPRB, 0.614363E+01_JPRB &
+  &, 0.617508E+01_JPRB, 0.620584E+01_JPRB, 0.623538E+01_JPRB, 0.626536E+01_JPRB &
+  &, 0.629410E+01_JPRB, 0.632212E+01_JPRB, 0.634952E+01_JPRB &
+  &, 0.637618E+01_JPRB, 0.640219E+01_JPRB, 0.642747E+01_JPRB, 0.645215E+01_JPRB &
+  &, 0.647608E+01_JPRB, 0.649935E+01_JPRB, 0.652193E+01_JPRB &
+  &, 0.654382E+01_JPRB, 0.656503E+01_JPRB, 0.658553E+01_JPRB, 0.660537E+01_JPRB &
+  &, 0.662452E+01_JPRB, 0.664298E+01_JPRB, 0.666073E+01_JPRB &
+  &, 0.667786E+01_JPRB, 0.669430E+01_JPRB, 0.671004E+01_JPRB, 0.672512E+01_JPRB &
+  &, 0.673952E+01_JPRB, 0.675322E+01_JPRB, 0.676628E+01_JPRB &
+  &, 0.677866E+01_JPRB, 0.679043E+01_JPRB, 0.680148E+01_JPRB, 0.681189E+01_JPRB &
+  &, 0.682162E+01_JPRB, 0.683072E+01_JPRB, 0.683917E+01_JPRB &
+  &, 0.684691E+01_JPRB, 0.685408E+01_JPRB, 0.686057E+01_JPRB, 0.686645E+01_JPRB &
+  &, 0.687161E+01_JPRB, 0.687620E+01_JPRB, 0.688016E+01_JPRB/)
+XCW( 959, :) = (/ &
+  &  0.118042E+01_JPRB, 0.122749E+01_JPRB, 0.127532E+01_JPRB, 0.132387E+01_JPRB &
+  &, 0.137313E+01_JPRB, 0.142307E+01_JPRB, 0.147369E+01_JPRB &
+  &, 0.152495E+01_JPRB, 0.157684E+01_JPRB, 0.162933E+01_JPRB, 0.168241E+01_JPRB &
+  &, 0.173604E+01_JPRB, 0.179022E+01_JPRB, 0.184491E+01_JPRB &
+  &, 0.190010E+01_JPRB, 0.195576E+01_JPRB, 0.201187E+01_JPRB, 0.206840E+01_JPRB &
+  &, 0.212535E+01_JPRB, 0.218266E+01_JPRB, 0.224034E+01_JPRB &
+  &, 0.229836E+01_JPRB, 0.235668E+01_JPRB, 0.241530E+01_JPRB, 0.247418E+01_JPRB &
+  &, 0.253330E+01_JPRB, 0.259264E+01_JPRB, 0.265218E+01_JPRB &
+  &, 0.271189E+01_JPRB, 0.277176E+01_JPRB, 0.283175E+01_JPRB, 0.289185E+01_JPRB &
+  &, 0.295204E+01_JPRB, 0.301229E+01_JPRB, 0.307257E+01_JPRB &
+  &, 0.313287E+01_JPRB, 0.319318E+01_JPRB, 0.325346E+01_JPRB, 0.331370E+01_JPRB &
+  &, 0.337388E+01_JPRB, 0.343396E+01_JPRB, 0.349395E+01_JPRB &
+  &, 0.355381E+01_JPRB, 0.361353E+01_JPRB, 0.367309E+01_JPRB, 0.373248E+01_JPRB &
+  &, 0.379166E+01_JPRB, 0.385063E+01_JPRB, 0.390937E+01_JPRB &
+  &, 0.396786E+01_JPRB, 0.402608E+01_JPRB, 0.408402E+01_JPRB, 0.414167E+01_JPRB &
+  &, 0.419900E+01_JPRB, 0.425603E+01_JPRB, 0.431268E+01_JPRB &
+  &, 0.436900E+01_JPRB, 0.442494E+01_JPRB, 0.448050E+01_JPRB, 0.453566E+01_JPRB &
+  &, 0.459041E+01_JPRB, 0.464474E+01_JPRB, 0.469863E+01_JPRB &
+  &, 0.475208E+01_JPRB, 0.480508E+01_JPRB, 0.485760E+01_JPRB, 0.490966E+01_JPRB &
+  &, 0.496122E+01_JPRB, 0.501227E+01_JPRB, 0.506282E+01_JPRB &
+  &, 0.511284E+01_JPRB, 0.516235E+01_JPRB, 0.521133E+01_JPRB, 0.525974E+01_JPRB &
+  &, 0.530761E+01_JPRB, 0.535493E+01_JPRB, 0.540167E+01_JPRB &
+  &, 0.544782E+01_JPRB, 0.549342E+01_JPRB, 0.553841E+01_JPRB, 0.558282E+01_JPRB &
+  &, 0.562659E+01_JPRB, 0.566980E+01_JPRB, 0.571237E+01_JPRB &
+  &, 0.575429E+01_JPRB, 0.579564E+01_JPRB, 0.583632E+01_JPRB, 0.587641E+01_JPRB &
+  &, 0.591581E+01_JPRB, 0.595458E+01_JPRB, 0.599272E+01_JPRB &
+  &, 0.603022E+01_JPRB, 0.606706E+01_JPRB, 0.610321E+01_JPRB, 0.613869E+01_JPRB &
+  &, 0.617357E+01_JPRB, 0.620773E+01_JPRB, 0.624123E+01_JPRB &
+  &, 0.627407E+01_JPRB, 0.630622E+01_JPRB, 0.633770E+01_JPRB, 0.636849E+01_JPRB &
+  &, 0.639865E+01_JPRB, 0.642810E+01_JPRB, 0.645685E+01_JPRB &
+  &, 0.648490E+01_JPRB, 0.651230E+01_JPRB, 0.653903E+01_JPRB, 0.656503E+01_JPRB &
+  &, 0.659033E+01_JPRB, 0.661497E+01_JPRB, 0.663896E+01_JPRB &
+  &, 0.666223E+01_JPRB, 0.668473E+01_JPRB, 0.670669E+01_JPRB, 0.672792E+01_JPRB &
+  &, 0.674845E+01_JPRB, 0.676825E+01_JPRB, 0.678743E+01_JPRB &
+  &, 0.680594E+01_JPRB, 0.682371E+01_JPRB, 0.684064E+01_JPRB, 0.685730E+01_JPRB &
+  &, 0.687304E+01_JPRB, 0.688807E+01_JPRB, 0.690246E+01_JPRB &
+  &, 0.691622E+01_JPRB, 0.692931E+01_JPRB, 0.694169E+01_JPRB, 0.695342E+01_JPRB &
+  &, 0.696446E+01_JPRB, 0.697489E+01_JPRB, 0.698465E+01_JPRB &
+  &, 0.699364E+01_JPRB, 0.700217E+01_JPRB, 0.700996E+01_JPRB, 0.701713E+01_JPRB &
+  &, 0.702359E+01_JPRB, 0.702947E+01_JPRB, 0.703465E+01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART137',1,ZHOOK_HANDLE)
+END SUBROUTINE PART137
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART138
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART138',0,ZHOOK_HANDLE)
+
+XCW( 960, :) = (/ &
+  &  0.118170E+01_JPRB, 0.122914E+01_JPRB, 0.127734E+01_JPRB, 0.132629E+01_JPRB &
+  &, 0.137596E+01_JPRB, 0.142634E+01_JPRB, 0.147740E+01_JPRB &
+  &, 0.152913E+01_JPRB, 0.158150E+01_JPRB, 0.163449E+01_JPRB, 0.168808E+01_JPRB &
+  &, 0.174225E+01_JPRB, 0.179697E+01_JPRB, 0.185223E+01_JPRB &
+  &, 0.190800E+01_JPRB, 0.196425E+01_JPRB, 0.202098E+01_JPRB, 0.207814E+01_JPRB &
+  &, 0.213573E+01_JPRB, 0.219371E+01_JPRB, 0.225206E+01_JPRB &
+  &, 0.231078E+01_JPRB, 0.236982E+01_JPRB, 0.242916E+01_JPRB, 0.248878E+01_JPRB &
+  &, 0.254866E+01_JPRB, 0.260878E+01_JPRB, 0.266911E+01_JPRB &
+  &, 0.272962E+01_JPRB, 0.279031E+01_JPRB, 0.285113E+01_JPRB, 0.291208E+01_JPRB &
+  &, 0.297313E+01_JPRB, 0.303426E+01_JPRB, 0.309544E+01_JPRB &
+  &, 0.315665E+01_JPRB, 0.321788E+01_JPRB, 0.327909E+01_JPRB, 0.334027E+01_JPRB &
+  &, 0.340141E+01_JPRB, 0.346248E+01_JPRB, 0.352345E+01_JPRB &
+  &, 0.358432E+01_JPRB, 0.364505E+01_JPRB, 0.370564E+01_JPRB, 0.376607E+01_JPRB &
+  &, 0.382631E+01_JPRB, 0.388634E+01_JPRB, 0.394616E+01_JPRB &
+  &, 0.400574E+01_JPRB, 0.406507E+01_JPRB, 0.412412E+01_JPRB, 0.418290E+01_JPRB &
+  &, 0.424138E+01_JPRB, 0.429952E+01_JPRB, 0.435735E+01_JPRB &
+  &, 0.441484E+01_JPRB, 0.447196E+01_JPRB, 0.452870E+01_JPRB, 0.458505E+01_JPRB &
+  &, 0.464102E+01_JPRB, 0.469658E+01_JPRB, 0.475170E+01_JPRB &
+  &, 0.480638E+01_JPRB, 0.486063E+01_JPRB, 0.491441E+01_JPRB, 0.496771E+01_JPRB &
+  &, 0.502055E+01_JPRB, 0.507290E+01_JPRB, 0.512473E+01_JPRB &
+  &, 0.517607E+01_JPRB, 0.522688E+01_JPRB, 0.527716E+01_JPRB, 0.532690E+01_JPRB &
+  &, 0.537610E+01_JPRB, 0.542438E+01_JPRB, 0.547281E+01_JPRB &
+  &, 0.552032E+01_JPRB, 0.556727E+01_JPRB, 0.561362E+01_JPRB, 0.565938E+01_JPRB &
+  &, 0.570454E+01_JPRB, 0.574910E+01_JPRB, 0.579307E+01_JPRB &
+  &, 0.583641E+01_JPRB, 0.587912E+01_JPRB, 0.592111E+01_JPRB, 0.596257E+01_JPRB &
+  &, 0.600348E+01_JPRB, 0.604368E+01_JPRB, 0.608300E+01_JPRB &
+  &, 0.612214E+01_JPRB, 0.616038E+01_JPRB, 0.619783E+01_JPRB, 0.623489E+01_JPRB &
+  &, 0.627092E+01_JPRB, 0.630677E+01_JPRB, 0.634171E+01_JPRB &
+  &, 0.637596E+01_JPRB, 0.640956E+01_JPRB, 0.644249E+01_JPRB, 0.647471E+01_JPRB &
+  &, 0.650625E+01_JPRB, 0.653718E+01_JPRB, 0.656733E+01_JPRB &
+  &, 0.659687E+01_JPRB, 0.662569E+01_JPRB, 0.665382E+01_JPRB, 0.668100E+01_JPRB &
+  &, 0.670805E+01_JPRB, 0.673416E+01_JPRB, 0.675954E+01_JPRB &
+  &, 0.678428E+01_JPRB, 0.680830E+01_JPRB, 0.683161E+01_JPRB, 0.685408E+01_JPRB &
+  &, 0.687619E+01_JPRB, 0.689709E+01_JPRB, 0.691805E+01_JPRB &
+  &, 0.693796E+01_JPRB, 0.695718E+01_JPRB, 0.697570E+01_JPRB, 0.699355E+01_JPRB &
+  &, 0.701073E+01_JPRB, 0.702721E+01_JPRB, 0.704299E+01_JPRB &
+  &, 0.705814E+01_JPRB, 0.707262E+01_JPRB, 0.708643E+01_JPRB, 0.709955E+01_JPRB &
+  &, 0.711198E+01_JPRB, 0.712378E+01_JPRB, 0.713491E+01_JPRB &
+  &, 0.714534E+01_JPRB, 0.715512E+01_JPRB, 0.716433E+01_JPRB, 0.717281E+01_JPRB &
+  &, 0.718056E+01_JPRB, 0.718780E+01_JPRB, 0.719433E+01_JPRB/)
+XCW( 961, :) = (/ &
+  &  0.118301E+01_JPRB, 0.123082E+01_JPRB, 0.127941E+01_JPRB, 0.132876E+01_JPRB &
+  &, 0.137886E+01_JPRB, 0.142968E+01_JPRB, 0.148120E+01_JPRB &
+  &, 0.153340E+01_JPRB, 0.158626E+01_JPRB, 0.163976E+01_JPRB, 0.169388E+01_JPRB &
+  &, 0.174859E+01_JPRB, 0.180388E+01_JPRB, 0.185971E+01_JPRB &
+  &, 0.191608E+01_JPRB, 0.197295E+01_JPRB, 0.203030E+01_JPRB, 0.208811E+01_JPRB &
+  &, 0.214636E+01_JPRB, 0.220503E+01_JPRB, 0.226408E+01_JPRB &
+  &, 0.232350E+01_JPRB, 0.238327E+01_JPRB, 0.244335E+01_JPRB, 0.250374E+01_JPRB &
+  &, 0.256440E+01_JPRB, 0.262531E+01_JPRB, 0.268645E+01_JPRB &
+  &, 0.274779E+01_JPRB, 0.280931E+01_JPRB, 0.287100E+01_JPRB, 0.293282E+01_JPRB &
+  &, 0.299475E+01_JPRB, 0.305678E+01_JPRB, 0.311887E+01_JPRB &
+  &, 0.318102E+01_JPRB, 0.324319E+01_JPRB, 0.330537E+01_JPRB, 0.336753E+01_JPRB &
+  &, 0.342964E+01_JPRB, 0.349172E+01_JPRB, 0.355371E+01_JPRB &
+  &, 0.361561E+01_JPRB, 0.367739E+01_JPRB, 0.373904E+01_JPRB, 0.380054E+01_JPRB &
+  &, 0.386186E+01_JPRB, 0.392299E+01_JPRB, 0.398392E+01_JPRB &
+  &, 0.404462E+01_JPRB, 0.410508E+01_JPRB, 0.416529E+01_JPRB, 0.422522E+01_JPRB &
+  &, 0.428486E+01_JPRB, 0.434420E+01_JPRB, 0.440321E+01_JPRB &
+  &, 0.446190E+01_JPRB, 0.452023E+01_JPRB, 0.457820E+01_JPRB, 0.463581E+01_JPRB &
+  &, 0.469301E+01_JPRB, 0.474982E+01_JPRB, 0.480621E+01_JPRB &
+  &, 0.486216E+01_JPRB, 0.491769E+01_JPRB, 0.497278E+01_JPRB, 0.502740E+01_JPRB &
+  &, 0.508153E+01_JPRB, 0.513519E+01_JPRB, 0.518837E+01_JPRB &
+  &, 0.524104E+01_JPRB, 0.529320E+01_JPRB, 0.534482E+01_JPRB, 0.539594E+01_JPRB &
+  &, 0.544650E+01_JPRB, 0.549651E+01_JPRB, 0.554598E+01_JPRB &
+  &, 0.559489E+01_JPRB, 0.564323E+01_JPRB, 0.569099E+01_JPRB, 0.573816E+01_JPRB &
+  &, 0.578473E+01_JPRB, 0.583071E+01_JPRB, 0.587611E+01_JPRB &
+  &, 0.592087E+01_JPRB, 0.596501E+01_JPRB, 0.600856E+01_JPRB, 0.605148E+01_JPRB &
+  &, 0.609376E+01_JPRB, 0.613540E+01_JPRB, 0.617640E+01_JPRB &
+  &, 0.621676E+01_JPRB, 0.625647E+01_JPRB, 0.629554E+01_JPRB, 0.633392E+01_JPRB &
+  &, 0.637163E+01_JPRB, 0.640876E+01_JPRB, 0.644518E+01_JPRB &
+  &, 0.648092E+01_JPRB, 0.651595E+01_JPRB, 0.655042E+01_JPRB, 0.658416E+01_JPRB &
+  &, 0.661719E+01_JPRB, 0.664957E+01_JPRB, 0.668126E+01_JPRB &
+  &, 0.671222E+01_JPRB, 0.674258E+01_JPRB, 0.677223E+01_JPRB, 0.680121E+01_JPRB &
+  &, 0.682946E+01_JPRB, 0.685705E+01_JPRB, 0.688395E+01_JPRB &
+  &, 0.691014E+01_JPRB, 0.693565E+01_JPRB, 0.695976E+01_JPRB, 0.698457E+01_JPRB &
+  &, 0.700804E+01_JPRB, 0.703078E+01_JPRB, 0.705285E+01_JPRB &
+  &, 0.707427E+01_JPRB, 0.709494E+01_JPRB, 0.711492E+01_JPRB, 0.713428E+01_JPRB &
+  &, 0.715291E+01_JPRB, 0.717084E+01_JPRB, 0.718813E+01_JPRB &
+  &, 0.720474E+01_JPRB, 0.722067E+01_JPRB, 0.723594E+01_JPRB, 0.725045E+01_JPRB &
+  &, 0.726438E+01_JPRB, 0.727763E+01_JPRB, 0.729015E+01_JPRB &
+  &, 0.730201E+01_JPRB, 0.731323E+01_JPRB, 0.732382E+01_JPRB, 0.733367E+01_JPRB &
+  &, 0.734292E+01_JPRB, 0.735151E+01_JPRB, 0.735939E+01_JPRB/)
+XCW( 962, :) = (/ &
+  &  0.118435E+01_JPRB, 0.123254E+01_JPRB, 0.128153E+01_JPRB, 0.133130E+01_JPRB &
+  &, 0.138182E+01_JPRB, 0.143309E+01_JPRB, 0.148508E+01_JPRB &
+  &, 0.153777E+01_JPRB, 0.159114E+01_JPRB, 0.164516E+01_JPRB, 0.169982E+01_JPRB &
+  &, 0.175509E+01_JPRB, 0.181095E+01_JPRB, 0.186738E+01_JPRB &
+  &, 0.192435E+01_JPRB, 0.198185E+01_JPRB, 0.203985E+01_JPRB, 0.209832E+01_JPRB &
+  &, 0.215725E+01_JPRB, 0.221662E+01_JPRB, 0.227638E+01_JPRB &
+  &, 0.233654E+01_JPRB, 0.239705E+01_JPRB, 0.245790E+01_JPRB, 0.251907E+01_JPRB &
+  &, 0.258053E+01_JPRB, 0.264225E+01_JPRB, 0.270422E+01_JPRB &
+  &, 0.276641E+01_JPRB, 0.282880E+01_JPRB, 0.289136E+01_JPRB, 0.295408E+01_JPRB &
+  &, 0.301692E+01_JPRB, 0.307988E+01_JPRB, 0.314292E+01_JPRB &
+  &, 0.320602E+01_JPRB, 0.326916E+01_JPRB, 0.333233E+01_JPRB, 0.339549E+01_JPRB &
+  &, 0.345863E+01_JPRB, 0.352173E+01_JPRB, 0.358478E+01_JPRB &
+  &, 0.364774E+01_JPRB, 0.371059E+01_JPRB, 0.377333E+01_JPRB, 0.383588E+01_JPRB &
+  &, 0.389837E+01_JPRB, 0.396062E+01_JPRB, 0.402270E+01_JPRB &
+  &, 0.408455E+01_JPRB, 0.414618E+01_JPRB, 0.420757E+01_JPRB, 0.426869E+01_JPRB &
+  &, 0.432953E+01_JPRB, 0.439009E+01_JPRB, 0.445033E+01_JPRB &
+  &, 0.451025E+01_JPRB, 0.456985E+01_JPRB, 0.462908E+01_JPRB, 0.468795E+01_JPRB &
+  &, 0.474643E+01_JPRB, 0.480454E+01_JPRB, 0.486223E+01_JPRB &
+  &, 0.491952E+01_JPRB, 0.497638E+01_JPRB, 0.503278E+01_JPRB, 0.508875E+01_JPRB &
+  &, 0.514425E+01_JPRB, 0.519926E+01_JPRB, 0.525381E+01_JPRB &
+  &, 0.530787E+01_JPRB, 0.536141E+01_JPRB, 0.541444E+01_JPRB, 0.546696E+01_JPRB &
+  &, 0.551893E+01_JPRB, 0.557038E+01_JPRB, 0.562127E+01_JPRB &
+  &, 0.567163E+01_JPRB, 0.572140E+01_JPRB, 0.577060E+01_JPRB, 0.581922E+01_JPRB &
+  &, 0.586727E+01_JPRB, 0.591473E+01_JPRB, 0.596158E+01_JPRB &
+  &, 0.600784E+01_JPRB, 0.605349E+01_JPRB, 0.609852E+01_JPRB, 0.614291E+01_JPRB &
+  &, 0.618671E+01_JPRB, 0.622984E+01_JPRB, 0.627238E+01_JPRB &
+  &, 0.631426E+01_JPRB, 0.635543E+01_JPRB, 0.639607E+01_JPRB, 0.643600E+01_JPRB &
+  &, 0.647526E+01_JPRB, 0.651382E+01_JPRB, 0.655185E+01_JPRB &
+  &, 0.658885E+01_JPRB, 0.662576E+01_JPRB, 0.666169E+01_JPRB, 0.669696E+01_JPRB &
+  &, 0.673157E+01_JPRB, 0.676550E+01_JPRB, 0.679874E+01_JPRB &
+  &, 0.683130E+01_JPRB, 0.686315E+01_JPRB, 0.689437E+01_JPRB, 0.692485E+01_JPRB &
+  &, 0.695471E+01_JPRB, 0.698380E+01_JPRB, 0.701221E+01_JPRB &
+  &, 0.704004E+01_JPRB, 0.706711E+01_JPRB, 0.709347E+01_JPRB, 0.711914E+01_JPRB &
+  &, 0.714413E+01_JPRB, 0.716843E+01_JPRB, 0.719051E+01_JPRB &
+  &, 0.721481E+01_JPRB, 0.723721E+01_JPRB, 0.725876E+01_JPRB, 0.727964E+01_JPRB &
+  &, 0.729980E+01_JPRB, 0.731925E+01_JPRB, 0.733807E+01_JPRB &
+  &, 0.735619E+01_JPRB, 0.737365E+01_JPRB, 0.738953E+01_JPRB, 0.740647E+01_JPRB &
+  &, 0.742192E+01_JPRB, 0.743662E+01_JPRB, 0.745066E+01_JPRB &
+  &, 0.746403E+01_JPRB, 0.747676E+01_JPRB, 0.748880E+01_JPRB, 0.750022E+01_JPRB &
+  &, 0.751064E+01_JPRB, 0.752086E+01_JPRB, 0.753038E+01_JPRB/)
+XCW( 963, :) = (/ &
+  &  0.118572E+01_JPRB, 0.123430E+01_JPRB, 0.128369E+01_JPRB, 0.133388E+01_JPRB &
+  &, 0.138486E+01_JPRB, 0.143659E+01_JPRB, 0.148906E+01_JPRB &
+  &, 0.154224E+01_JPRB, 0.159613E+01_JPRB, 0.165069E+01_JPRB, 0.170590E+01_JPRB &
+  &, 0.176174E+01_JPRB, 0.181819E+01_JPRB, 0.187523E+01_JPRB &
+  &, 0.193283E+01_JPRB, 0.199097E+01_JPRB, 0.204963E+01_JPRB, 0.210879E+01_JPRB &
+  &, 0.216842E+01_JPRB, 0.222849E+01_JPRB, 0.228900E+01_JPRB &
+  &, 0.234990E+01_JPRB, 0.241118E+01_JPRB, 0.247282E+01_JPRB, 0.253479E+01_JPRB &
+  &, 0.259707E+01_JPRB, 0.265963E+01_JPRB, 0.272246E+01_JPRB &
+  &, 0.278552E+01_JPRB, 0.284880E+01_JPRB, 0.291227E+01_JPRB, 0.297590E+01_JPRB &
+  &, 0.303968E+01_JPRB, 0.310359E+01_JPRB, 0.316760E+01_JPRB &
+  &, 0.323169E+01_JPRB, 0.329583E+01_JPRB, 0.336001E+01_JPRB, 0.342421E+01_JPRB &
+  &, 0.348840E+01_JPRB, 0.355257E+01_JPRB, 0.361669E+01_JPRB &
+  &, 0.368073E+01_JPRB, 0.374470E+01_JPRB, 0.380855E+01_JPRB, 0.387228E+01_JPRB &
+  &, 0.393587E+01_JPRB, 0.399929E+01_JPRB, 0.406254E+01_JPRB &
+  &, 0.412558E+01_JPRB, 0.418842E+01_JPRB, 0.425101E+01_JPRB, 0.431336E+01_JPRB &
+  &, 0.437545E+01_JPRB, 0.443727E+01_JPRB, 0.449877E+01_JPRB &
+  &, 0.455998E+01_JPRB, 0.462086E+01_JPRB, 0.468139E+01_JPRB, 0.474158E+01_JPRB &
+  &, 0.480140E+01_JPRB, 0.486084E+01_JPRB, 0.491988E+01_JPRB &
+  &, 0.497852E+01_JPRB, 0.503674E+01_JPRB, 0.509452E+01_JPRB, 0.515188E+01_JPRB &
+  &, 0.520877E+01_JPRB, 0.526521E+01_JPRB, 0.532117E+01_JPRB &
+  &, 0.537666E+01_JPRB, 0.543163E+01_JPRB, 0.548610E+01_JPRB, 0.554008E+01_JPRB &
+  &, 0.559352E+01_JPRB, 0.564644E+01_JPRB, 0.569881E+01_JPRB &
+  &, 0.575063E+01_JPRB, 0.580190E+01_JPRB, 0.585262E+01_JPRB, 0.590275E+01_JPRB &
+  &, 0.595230E+01_JPRB, 0.600128E+01_JPRB, 0.604966E+01_JPRB &
+  &, 0.609745E+01_JPRB, 0.614463E+01_JPRB, 0.619120E+01_JPRB, 0.623717E+01_JPRB &
+  &, 0.628250E+01_JPRB, 0.632722E+01_JPRB, 0.637132E+01_JPRB &
+  &, 0.641470E+01_JPRB, 0.645755E+01_JPRB, 0.649971E+01_JPRB, 0.654121E+01_JPRB &
+  &, 0.658209E+01_JPRB, 0.662227E+01_JPRB, 0.666182E+01_JPRB &
+  &, 0.670072E+01_JPRB, 0.673892E+01_JPRB, 0.677533E+01_JPRB, 0.681322E+01_JPRB &
+  &, 0.684959E+01_JPRB, 0.688508E+01_JPRB, 0.691994E+01_JPRB &
+  &, 0.695412E+01_JPRB, 0.698760E+01_JPRB, 0.702041E+01_JPRB, 0.705253E+01_JPRB &
+  &, 0.708395E+01_JPRB, 0.711474E+01_JPRB, 0.714480E+01_JPRB &
+  &, 0.717415E+01_JPRB, 0.720284E+01_JPRB, 0.723083E+01_JPRB, 0.725813E+01_JPRB &
+  &, 0.728475E+01_JPRB, 0.731064E+01_JPRB, 0.733587E+01_JPRB &
+  &, 0.736039E+01_JPRB, 0.738407E+01_JPRB, 0.740742E+01_JPRB, 0.742990E+01_JPRB &
+  &, 0.745165E+01_JPRB, 0.747275E+01_JPRB, 0.749311E+01_JPRB &
+  &, 0.751239E+01_JPRB, 0.753188E+01_JPRB, 0.755021E+01_JPRB, 0.756783E+01_JPRB &
+  &, 0.758487E+01_JPRB, 0.760117E+01_JPRB, 0.761673E+01_JPRB &
+  &, 0.763170E+01_JPRB, 0.764596E+01_JPRB, 0.765958E+01_JPRB, 0.767245E+01_JPRB &
+  &, 0.768477E+01_JPRB, 0.769638E+01_JPRB, 0.770727E+01_JPRB/)
+XCW( 964, :) = (/ &
+  &  0.118712E+01_JPRB, 0.123610E+01_JPRB, 0.128591E+01_JPRB, 0.133653E+01_JPRB &
+  &, 0.138796E+01_JPRB, 0.144017E+01_JPRB, 0.149313E+01_JPRB &
+  &, 0.154683E+01_JPRB, 0.160124E+01_JPRB, 0.165635E+01_JPRB, 0.171213E+01_JPRB &
+  &, 0.176855E+01_JPRB, 0.182561E+01_JPRB, 0.188327E+01_JPRB &
+  &, 0.194152E+01_JPRB, 0.200032E+01_JPRB, 0.205966E+01_JPRB, 0.211952E+01_JPRB &
+  &, 0.217987E+01_JPRB, 0.224068E+01_JPRB, 0.230193E+01_JPRB &
+  &, 0.236361E+01_JPRB, 0.242569E+01_JPRB, 0.248813E+01_JPRB, 0.255093E+01_JPRB &
+  &, 0.261405E+01_JPRB, 0.267747E+01_JPRB, 0.274118E+01_JPRB &
+  &, 0.280514E+01_JPRB, 0.286933E+01_JPRB, 0.293373E+01_JPRB, 0.299831E+01_JPRB &
+  &, 0.306306E+01_JPRB, 0.312795E+01_JPRB, 0.319295E+01_JPRB &
+  &, 0.325806E+01_JPRB, 0.332323E+01_JPRB, 0.338846E+01_JPRB, 0.345372E+01_JPRB &
+  &, 0.351899E+01_JPRB, 0.358425E+01_JPRB, 0.364947E+01_JPRB &
+  &, 0.371464E+01_JPRB, 0.377975E+01_JPRB, 0.384476E+01_JPRB, 0.390965E+01_JPRB &
+  &, 0.397443E+01_JPRB, 0.403906E+01_JPRB, 0.410351E+01_JPRB &
+  &, 0.416778E+01_JPRB, 0.423186E+01_JPRB, 0.429571E+01_JPRB, 0.435933E+01_JPRB &
+  &, 0.442271E+01_JPRB, 0.448581E+01_JPRB, 0.454862E+01_JPRB &
+  &, 0.461114E+01_JPRB, 0.467335E+01_JPRB, 0.473524E+01_JPRB, 0.479678E+01_JPRB &
+  &, 0.485796E+01_JPRB, 0.491878E+01_JPRB, 0.497922E+01_JPRB &
+  &, 0.503926E+01_JPRB, 0.509890E+01_JPRB, 0.515811E+01_JPRB, 0.521689E+01_JPRB &
+  &, 0.527523E+01_JPRB, 0.533312E+01_JPRB, 0.539055E+01_JPRB &
+  &, 0.544749E+01_JPRB, 0.550398E+01_JPRB, 0.555994E+01_JPRB, 0.561541E+01_JPRB &
+  &, 0.567037E+01_JPRB, 0.572479E+01_JPRB, 0.577870E+01_JPRB &
+  &, 0.583205E+01_JPRB, 0.588488E+01_JPRB, 0.593715E+01_JPRB, 0.598883E+01_JPRB &
+  &, 0.603996E+01_JPRB, 0.609050E+01_JPRB, 0.614046E+01_JPRB &
+  &, 0.618985E+01_JPRB, 0.623863E+01_JPRB, 0.628680E+01_JPRB, 0.633435E+01_JPRB &
+  &, 0.638130E+01_JPRB, 0.642765E+01_JPRB, 0.647336E+01_JPRB &
+  &, 0.651843E+01_JPRB, 0.656237E+01_JPRB, 0.660664E+01_JPRB, 0.664980E+01_JPRB &
+  &, 0.669234E+01_JPRB, 0.673417E+01_JPRB, 0.677538E+01_JPRB &
+  &, 0.681581E+01_JPRB, 0.685579E+01_JPRB, 0.689503E+01_JPRB, 0.693355E+01_JPRB &
+  &, 0.697143E+01_JPRB, 0.700863E+01_JPRB, 0.704517E+01_JPRB &
+  &, 0.708100E+01_JPRB, 0.711617E+01_JPRB, 0.715068E+01_JPRB, 0.718446E+01_JPRB &
+  &, 0.721756E+01_JPRB, 0.724998E+01_JPRB, 0.728172E+01_JPRB &
+  &, 0.731280E+01_JPRB, 0.734318E+01_JPRB, 0.737287E+01_JPRB, 0.740182E+01_JPRB &
+  &, 0.743013E+01_JPRB, 0.745773E+01_JPRB, 0.748462E+01_JPRB &
+  &, 0.751081E+01_JPRB, 0.753636E+01_JPRB, 0.756117E+01_JPRB, 0.758531E+01_JPRB &
+  &, 0.760873E+01_JPRB, 0.763151E+01_JPRB, 0.765353E+01_JPRB &
+  &, 0.767492E+01_JPRB, 0.769553E+01_JPRB, 0.771565E+01_JPRB, 0.773494E+01_JPRB &
+  &, 0.775354E+01_JPRB, 0.777150E+01_JPRB, 0.778874E+01_JPRB &
+  &, 0.780531E+01_JPRB, 0.782124E+01_JPRB, 0.783646E+01_JPRB, 0.785100E+01_JPRB &
+  &, 0.786486E+01_JPRB, 0.787812E+01_JPRB, 0.789060E+01_JPRB/)
+XCW( 965, :) = (/ &
+  &  0.118856E+01_JPRB, 0.123794E+01_JPRB, 0.128817E+01_JPRB, 0.133925E+01_JPRB &
+  &, 0.139114E+01_JPRB, 0.144383E+01_JPRB, 0.149730E+01_JPRB &
+  &, 0.155152E+01_JPRB, 0.160648E+01_JPRB, 0.166215E+01_JPRB, 0.171851E+01_JPRB &
+  &, 0.177554E+01_JPRB, 0.183322E+01_JPRB, 0.189153E+01_JPRB &
+  &, 0.195043E+01_JPRB, 0.200992E+01_JPRB, 0.206996E+01_JPRB, 0.213053E+01_JPRB &
+  &, 0.219162E+01_JPRB, 0.225319E+01_JPRB, 0.231522E+01_JPRB &
+  &, 0.237769E+01_JPRB, 0.244058E+01_JPRB, 0.250385E+01_JPRB, 0.256750E+01_JPRB &
+  &, 0.263149E+01_JPRB, 0.269580E+01_JPRB, 0.276041E+01_JPRB &
+  &, 0.282529E+01_JPRB, 0.289042E+01_JPRB, 0.295578E+01_JPRB, 0.302134E+01_JPRB &
+  &, 0.308708E+01_JPRB, 0.315298E+01_JPRB, 0.321902E+01_JPRB &
+  &, 0.328516E+01_JPRB, 0.335140E+01_JPRB, 0.341771E+01_JPRB, 0.348407E+01_JPRB &
+  &, 0.355044E+01_JPRB, 0.361683E+01_JPRB, 0.368320E+01_JPRB &
+  &, 0.374954E+01_JPRB, 0.381581E+01_JPRB, 0.388201E+01_JPRB, 0.394812E+01_JPRB &
+  &, 0.401412E+01_JPRB, 0.407997E+01_JPRB, 0.414568E+01_JPRB &
+  &, 0.421122E+01_JPRB, 0.427657E+01_JPRB, 0.434172E+01_JPRB, 0.440666E+01_JPRB &
+  &, 0.447134E+01_JPRB, 0.453578E+01_JPRB, 0.459995E+01_JPRB &
+  &, 0.466383E+01_JPRB, 0.472741E+01_JPRB, 0.479070E+01_JPRB, 0.485363E+01_JPRB &
+  &, 0.491622E+01_JPRB, 0.497847E+01_JPRB, 0.504034E+01_JPRB &
+  &, 0.510184E+01_JPRB, 0.516293E+01_JPRB, 0.522362E+01_JPRB, 0.528388E+01_JPRB &
+  &, 0.534371E+01_JPRB, 0.540312E+01_JPRB, 0.546206E+01_JPRB &
+  &, 0.552054E+01_JPRB, 0.557854E+01_JPRB, 0.563589E+01_JPRB, 0.569309E+01_JPRB &
+  &, 0.574960E+01_JPRB, 0.580560E+01_JPRB, 0.586110E+01_JPRB &
+  &, 0.591604E+01_JPRB, 0.597047E+01_JPRB, 0.602433E+01_JPRB, 0.607763E+01_JPRB &
+  &, 0.613038E+01_JPRB, 0.618257E+01_JPRB, 0.623419E+01_JPRB &
+  &, 0.628520E+01_JPRB, 0.633562E+01_JPRB, 0.638547E+01_JPRB, 0.643468E+01_JPRB &
+  &, 0.648331E+01_JPRB, 0.653132E+01_JPRB, 0.657870E+01_JPRB &
+  &, 0.662549E+01_JPRB, 0.667161E+01_JPRB, 0.671710E+01_JPRB, 0.676196E+01_JPRB &
+  &, 0.680617E+01_JPRB, 0.684974E+01_JPRB, 0.689268E+01_JPRB &
+  &, 0.693493E+01_JPRB, 0.697652E+01_JPRB, 0.701751E+01_JPRB, 0.705764E+01_JPRB &
+  &, 0.709736E+01_JPRB, 0.713634E+01_JPRB, 0.717451E+01_JPRB &
+  &, 0.721217E+01_JPRB, 0.724907E+01_JPRB, 0.728531E+01_JPRB, 0.732087E+01_JPRB &
+  &, 0.735575E+01_JPRB, 0.738992E+01_JPRB, 0.742337E+01_JPRB &
+  &, 0.745621E+01_JPRB, 0.748831E+01_JPRB, 0.751976E+01_JPRB, 0.755048E+01_JPRB &
+  &, 0.758053E+01_JPRB, 0.760986E+01_JPRB, 0.763854E+01_JPRB &
+  &, 0.766651E+01_JPRB, 0.769375E+01_JPRB, 0.772036E+01_JPRB, 0.774625E+01_JPRB &
+  &, 0.777121E+01_JPRB, 0.779594E+01_JPRB, 0.781972E+01_JPRB &
+  &, 0.784281E+01_JPRB, 0.786523E+01_JPRB, 0.788698E+01_JPRB, 0.790803E+01_JPRB &
+  &, 0.792838E+01_JPRB, 0.794805E+01_JPRB, 0.796692E+01_JPRB &
+  &, 0.798530E+01_JPRB, 0.800292E+01_JPRB, 0.801964E+01_JPRB, 0.803612E+01_JPRB &
+  &, 0.805160E+01_JPRB, 0.806654E+01_JPRB, 0.808084E+01_JPRB/)
+XCW( 966, :) = (/ &
+  &  0.119003E+01_JPRB, 0.123982E+01_JPRB, 0.129050E+01_JPRB, 0.134203E+01_JPRB &
+  &, 0.139440E+01_JPRB, 0.144759E+01_JPRB, 0.150158E+01_JPRB &
+  &, 0.155634E+01_JPRB, 0.161186E+01_JPRB, 0.166811E+01_JPRB, 0.172507E+01_JPRB &
+  &, 0.178272E+01_JPRB, 0.184104E+01_JPRB, 0.190000E+01_JPRB &
+  &, 0.195959E+01_JPRB, 0.201977E+01_JPRB, 0.208053E+01_JPRB, 0.214185E+01_JPRB &
+  &, 0.220369E+01_JPRB, 0.226604E+01_JPRB, 0.232887E+01_JPRB &
+  &, 0.239216E+01_JPRB, 0.245588E+01_JPRB, 0.252002E+01_JPRB, 0.258454E+01_JPRB &
+  &, 0.264942E+01_JPRB, 0.271464E+01_JPRB, 0.278019E+01_JPRB &
+  &, 0.284602E+01_JPRB, 0.291212E+01_JPRB, 0.297846E+01_JPRB, 0.304503E+01_JPRB &
+  &, 0.311180E+01_JPRB, 0.317874E+01_JPRB, 0.324583E+01_JPRB &
+  &, 0.331306E+01_JPRB, 0.338039E+01_JPRB, 0.344781E+01_JPRB, 0.351530E+01_JPRB &
+  &, 0.358282E+01_JPRB, 0.365037E+01_JPRB, 0.371792E+01_JPRB &
+  &, 0.378545E+01_JPRB, 0.385295E+01_JPRB, 0.392037E+01_JPRB, 0.398772E+01_JPRB &
+  &, 0.405498E+01_JPRB, 0.412211E+01_JPRB, 0.418911E+01_JPRB &
+  &, 0.425596E+01_JPRB, 0.432264E+01_JPRB, 0.438912E+01_JPRB, 0.445541E+01_JPRB &
+  &, 0.452145E+01_JPRB, 0.458728E+01_JPRB, 0.465285E+01_JPRB &
+  &, 0.471813E+01_JPRB, 0.478314E+01_JPRB, 0.484785E+01_JPRB, 0.491223E+01_JPRB &
+  &, 0.497630E+01_JPRB, 0.504001E+01_JPRB, 0.510337E+01_JPRB &
+  &, 0.516635E+01_JPRB, 0.522896E+01_JPRB, 0.529119E+01_JPRB, 0.535297E+01_JPRB &
+  &, 0.541437E+01_JPRB, 0.547532E+01_JPRB, 0.553583E+01_JPRB &
+  &, 0.559589E+01_JPRB, 0.565548E+01_JPRB, 0.571459E+01_JPRB, 0.577324E+01_JPRB &
+  &, 0.583136E+01_JPRB, 0.588900E+01_JPRB, 0.594612E+01_JPRB &
+  &, 0.600274E+01_JPRB, 0.605881E+01_JPRB, 0.611434E+01_JPRB, 0.616933E+01_JPRB &
+  &, 0.622377E+01_JPRB, 0.627764E+01_JPRB, 0.633095E+01_JPRB &
+  &, 0.638367E+01_JPRB, 0.643581E+01_JPRB, 0.648737E+01_JPRB, 0.653833E+01_JPRB &
+  &, 0.658867E+01_JPRB, 0.663844E+01_JPRB, 0.668756E+01_JPRB &
+  &, 0.673610E+01_JPRB, 0.678398E+01_JPRB, 0.683125E+01_JPRB, 0.687685E+01_JPRB &
+  &, 0.692387E+01_JPRB, 0.696918E+01_JPRB, 0.701394E+01_JPRB &
+  &, 0.705800E+01_JPRB, 0.710140E+01_JPRB, 0.714409E+01_JPRB, 0.718620E+01_JPRB &
+  &, 0.722762E+01_JPRB, 0.726837E+01_JPRB, 0.730848E+01_JPRB &
+  &, 0.734785E+01_JPRB, 0.738658E+01_JPRB, 0.742463E+01_JPRB, 0.746200E+01_JPRB &
+  &, 0.749869E+01_JPRB, 0.753468E+01_JPRB, 0.757001E+01_JPRB &
+  &, 0.760464E+01_JPRB, 0.763858E+01_JPRB, 0.767188E+01_JPRB, 0.770441E+01_JPRB &
+  &, 0.773631E+01_JPRB, 0.776746E+01_JPRB, 0.779795E+01_JPRB &
+  &, 0.782775E+01_JPRB, 0.785681E+01_JPRB, 0.788524E+01_JPRB, 0.791296E+01_JPRB &
+  &, 0.793997E+01_JPRB, 0.796627E+01_JPRB, 0.799194E+01_JPRB &
+  &, 0.801681E+01_JPRB, 0.804107E+01_JPRB, 0.806461E+01_JPRB, 0.808750E+01_JPRB &
+  &, 0.810952E+01_JPRB, 0.813108E+01_JPRB, 0.815186E+01_JPRB &
+  &, 0.817197E+01_JPRB, 0.819143E+01_JPRB, 0.821012E+01_JPRB, 0.822812E+01_JPRB &
+  &, 0.824545E+01_JPRB, 0.826217E+01_JPRB, 0.827817E+01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART138',1,ZHOOK_HANDLE)
+END SUBROUTINE PART138
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART139
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART139',0,ZHOOK_HANDLE)
+
+XCW( 967, :) = (/ &
+  &  0.119153E+01_JPRB, 0.124176E+01_JPRB, 0.129288E+01_JPRB, 0.134489E+01_JPRB &
+  &, 0.139775E+01_JPRB, 0.145145E+01_JPRB, 0.150597E+01_JPRB &
+  &, 0.156128E+01_JPRB, 0.161738E+01_JPRB, 0.167422E+01_JPRB, 0.173180E+01_JPRB &
+  &, 0.179009E+01_JPRB, 0.184906E+01_JPRB, 0.190871E+01_JPRB &
+  &, 0.196899E+01_JPRB, 0.202990E+01_JPRB, 0.209140E+01_JPRB, 0.215347E+01_JPRB &
+  &, 0.221610E+01_JPRB, 0.227925E+01_JPRB, 0.234290E+01_JPRB &
+  &, 0.240703E+01_JPRB, 0.247162E+01_JPRB, 0.253664E+01_JPRB, 0.260206E+01_JPRB &
+  &, 0.266787E+01_JPRB, 0.273403E+01_JPRB, 0.280053E+01_JPRB &
+  &, 0.286735E+01_JPRB, 0.293445E+01_JPRB, 0.300181E+01_JPRB, 0.306942E+01_JPRB &
+  &, 0.313724E+01_JPRB, 0.320526E+01_JPRB, 0.327344E+01_JPRB &
+  &, 0.334178E+01_JPRB, 0.341024E+01_JPRB, 0.347882E+01_JPRB, 0.354746E+01_JPRB &
+  &, 0.361617E+01_JPRB, 0.368493E+01_JPRB, 0.375369E+01_JPRB &
+  &, 0.382246E+01_JPRB, 0.389120E+01_JPRB, 0.395990E+01_JPRB, 0.402854E+01_JPRB &
+  &, 0.409709E+01_JPRB, 0.416555E+01_JPRB, 0.423389E+01_JPRB &
+  &, 0.430208E+01_JPRB, 0.437012E+01_JPRB, 0.443800E+01_JPRB, 0.450567E+01_JPRB &
+  &, 0.457314E+01_JPRB, 0.464039E+01_JPRB, 0.470739E+01_JPRB &
+  &, 0.477414E+01_JPRB, 0.484062E+01_JPRB, 0.490681E+01_JPRB, 0.497271E+01_JPRB &
+  &, 0.503827E+01_JPRB, 0.510351E+01_JPRB, 0.516842E+01_JPRB &
+  &, 0.523295E+01_JPRB, 0.529713E+01_JPRB, 0.536091E+01_JPRB, 0.542430E+01_JPRB &
+  &, 0.548730E+01_JPRB, 0.554986E+01_JPRB, 0.561200E+01_JPRB &
+  &, 0.567368E+01_JPRB, 0.573493E+01_JPRB, 0.579570E+01_JPRB, 0.585601E+01_JPRB &
+  &, 0.591584E+01_JPRB, 0.597516E+01_JPRB, 0.603398E+01_JPRB &
+  &, 0.609230E+01_JPRB, 0.615010E+01_JPRB, 0.620734E+01_JPRB, 0.626409E+01_JPRB &
+  &, 0.632027E+01_JPRB, 0.637590E+01_JPRB, 0.643096E+01_JPRB &
+  &, 0.648545E+01_JPRB, 0.653938E+01_JPRB, 0.659274E+01_JPRB, 0.664546E+01_JPRB &
+  &, 0.669764E+01_JPRB, 0.674919E+01_JPRB, 0.680015E+01_JPRB &
+  &, 0.685050E+01_JPRB, 0.690022E+01_JPRB, 0.694933E+01_JPRB, 0.699779E+01_JPRB &
+  &, 0.704564E+01_JPRB, 0.709284E+01_JPRB, 0.713939E+01_JPRB &
+  &, 0.718532E+01_JPRB, 0.723060E+01_JPRB, 0.727516E+01_JPRB, 0.731917E+01_JPRB &
+  &, 0.736246E+01_JPRB, 0.740511E+01_JPRB, 0.744707E+01_JPRB &
+  &, 0.748835E+01_JPRB, 0.752891E+01_JPRB, 0.756892E+01_JPRB, 0.760822E+01_JPRB &
+  &, 0.764682E+01_JPRB, 0.768471E+01_JPRB, 0.772195E+01_JPRB &
+  &, 0.775850E+01_JPRB, 0.779432E+01_JPRB, 0.782950E+01_JPRB, 0.786392E+01_JPRB &
+  &, 0.789758E+01_JPRB, 0.793081E+01_JPRB, 0.796321E+01_JPRB &
+  &, 0.799457E+01_JPRB, 0.802594E+01_JPRB, 0.805624E+01_JPRB, 0.808588E+01_JPRB &
+  &, 0.811475E+01_JPRB, 0.814303E+01_JPRB, 0.817046E+01_JPRB &
+  &, 0.819694E+01_JPRB, 0.822351E+01_JPRB, 0.824898E+01_JPRB, 0.827369E+01_JPRB &
+  &, 0.829777E+01_JPRB, 0.832116E+01_JPRB, 0.834381E+01_JPRB &
+  &, 0.836580E+01_JPRB, 0.838707E+01_JPRB, 0.840771E+01_JPRB, 0.842759E+01_JPRB &
+  &, 0.844678E+01_JPRB, 0.846531E+01_JPRB, 0.848319E+01_JPRB/)
+XCW( 968, :) = (/ &
+  &  0.119308E+01_JPRB, 0.124375E+01_JPRB, 0.129533E+01_JPRB, 0.134782E+01_JPRB &
+  &, 0.140118E+01_JPRB, 0.145541E+01_JPRB, 0.151048E+01_JPRB &
+  &, 0.156636E+01_JPRB, 0.162305E+01_JPRB, 0.168051E+01_JPRB, 0.173872E+01_JPRB &
+  &, 0.179766E+01_JPRB, 0.185732E+01_JPRB, 0.191766E+01_JPRB &
+  &, 0.197867E+01_JPRB, 0.204031E+01_JPRB, 0.210258E+01_JPRB, 0.216544E+01_JPRB &
+  &, 0.222887E+01_JPRB, 0.229284E+01_JPRB, 0.235734E+01_JPRB &
+  &, 0.242234E+01_JPRB, 0.248782E+01_JPRB, 0.255375E+01_JPRB, 0.262010E+01_JPRB &
+  &, 0.268686E+01_JPRB, 0.275400E+01_JPRB, 0.282149E+01_JPRB &
+  &, 0.288932E+01_JPRB, 0.295745E+01_JPRB, 0.302586E+01_JPRB, 0.309454E+01_JPRB &
+  &, 0.316345E+01_JPRB, 0.323258E+01_JPRB, 0.330190E+01_JPRB &
+  &, 0.337139E+01_JPRB, 0.344102E+01_JPRB, 0.351077E+01_JPRB, 0.358062E+01_JPRB &
+  &, 0.365056E+01_JPRB, 0.372055E+01_JPRB, 0.379058E+01_JPRB &
+  &, 0.386063E+01_JPRB, 0.393066E+01_JPRB, 0.400068E+01_JPRB, 0.407064E+01_JPRB &
+  &, 0.414055E+01_JPRB, 0.421037E+01_JPRB, 0.428008E+01_JPRB &
+  &, 0.434968E+01_JPRB, 0.441914E+01_JPRB, 0.448843E+01_JPRB, 0.455755E+01_JPRB &
+  &, 0.462650E+01_JPRB, 0.469521E+01_JPRB, 0.476372E+01_JPRB &
+  &, 0.483197E+01_JPRB, 0.489998E+01_JPRB, 0.496770E+01_JPRB, 0.503515E+01_JPRB &
+  &, 0.510229E+01_JPRB, 0.516911E+01_JPRB, 0.523559E+01_JPRB &
+  &, 0.530175E+01_JPRB, 0.536754E+01_JPRB, 0.543297E+01_JPRB, 0.549801E+01_JPRB &
+  &, 0.556265E+01_JPRB, 0.562689E+01_JPRB, 0.569070E+01_JPRB &
+  &, 0.575409E+01_JPRB, 0.581705E+01_JPRB, 0.587954E+01_JPRB, 0.594159E+01_JPRB &
+  &, 0.600316E+01_JPRB, 0.606424E+01_JPRB, 0.612481E+01_JPRB &
+  &, 0.618491E+01_JPRB, 0.624449E+01_JPRB, 0.630355E+01_JPRB, 0.636209E+01_JPRB &
+  &, 0.642008E+01_JPRB, 0.647753E+01_JPRB, 0.653444E+01_JPRB &
+  &, 0.659077E+01_JPRB, 0.664655E+01_JPRB, 0.670175E+01_JPRB, 0.675636E+01_JPRB &
+  &, 0.681041E+01_JPRB, 0.686385E+01_JPRB, 0.691668E+01_JPRB &
+  &, 0.696893E+01_JPRB, 0.702055E+01_JPRB, 0.707158E+01_JPRB, 0.712197E+01_JPRB &
+  &, 0.717173E+01_JPRB, 0.722089E+01_JPRB, 0.726938E+01_JPRB &
+  &, 0.731722E+01_JPRB, 0.736446E+01_JPRB, 0.741103E+01_JPRB, 0.745692E+01_JPRB &
+  &, 0.750220E+01_JPRB, 0.754666E+01_JPRB, 0.759072E+01_JPRB &
+  &, 0.763399E+01_JPRB, 0.767655E+01_JPRB, 0.771853E+01_JPRB, 0.775976E+01_JPRB &
+  &, 0.780034E+01_JPRB, 0.784022E+01_JPRB, 0.787946E+01_JPRB &
+  &, 0.791797E+01_JPRB, 0.795580E+01_JPRB, 0.799300E+01_JPRB, 0.802945E+01_JPRB &
+  &, 0.806523E+01_JPRB, 0.810032E+01_JPRB, 0.813471E+01_JPRB &
+  &, 0.816842E+01_JPRB, 0.820124E+01_JPRB, 0.823375E+01_JPRB, 0.826540E+01_JPRB &
+  &, 0.829630E+01_JPRB, 0.832649E+01_JPRB, 0.835600E+01_JPRB &
+  &, 0.838483E+01_JPRB, 0.841300E+01_JPRB, 0.844045E+01_JPRB, 0.846719E+01_JPRB &
+  &, 0.849324E+01_JPRB, 0.851861E+01_JPRB, 0.854324E+01_JPRB &
+  &, 0.856715E+01_JPRB, 0.859047E+01_JPRB, 0.861302E+01_JPRB, 0.863494E+01_JPRB &
+  &, 0.865606E+01_JPRB, 0.867657E+01_JPRB, 0.869642E+01_JPRB/)
+XCW( 969, :) = (/ &
+  &  0.119467E+01_JPRB, 0.124579E+01_JPRB, 0.129785E+01_JPRB, 0.135083E+01_JPRB &
+  &, 0.140472E+01_JPRB, 0.145948E+01_JPRB, 0.151512E+01_JPRB &
+  &, 0.157159E+01_JPRB, 0.162888E+01_JPRB, 0.168697E+01_JPRB, 0.174584E+01_JPRB &
+  &, 0.180546E+01_JPRB, 0.186581E+01_JPRB, 0.192687E+01_JPRB &
+  &, 0.198862E+01_JPRB, 0.205104E+01_JPRB, 0.211409E+01_JPRB, 0.217776E+01_JPRB &
+  &, 0.224202E+01_JPRB, 0.230685E+01_JPRB, 0.237222E+01_JPRB &
+  &, 0.243812E+01_JPRB, 0.250451E+01_JPRB, 0.257138E+01_JPRB, 0.263870E+01_JPRB &
+  &, 0.270644E+01_JPRB, 0.277458E+01_JPRB, 0.284310E+01_JPRB &
+  &, 0.291196E+01_JPRB, 0.298116E+01_JPRB, 0.305067E+01_JPRB, 0.312045E+01_JPRB &
+  &, 0.319049E+01_JPRB, 0.326077E+01_JPRB, 0.333125E+01_JPRB &
+  &, 0.340192E+01_JPRB, 0.347276E+01_JPRB, 0.354374E+01_JPRB, 0.361485E+01_JPRB &
+  &, 0.368604E+01_JPRB, 0.375732E+01_JPRB, 0.382866E+01_JPRB &
+  &, 0.390002E+01_JPRB, 0.397140E+01_JPRB, 0.404277E+01_JPRB, 0.411411E+01_JPRB &
+  &, 0.418541E+01_JPRB, 0.425665E+01_JPRB, 0.432780E+01_JPRB &
+  &, 0.439885E+01_JPRB, 0.446976E+01_JPRB, 0.454054E+01_JPRB, 0.461116E+01_JPRB &
+  &, 0.468161E+01_JPRB, 0.475186E+01_JPRB, 0.482191E+01_JPRB &
+  &, 0.489173E+01_JPRB, 0.496131E+01_JPRB, 0.503064E+01_JPRB, 0.509969E+01_JPRB &
+  &, 0.516844E+01_JPRB, 0.523690E+01_JPRB, 0.530506E+01_JPRB &
+  &, 0.537288E+01_JPRB, 0.544034E+01_JPRB, 0.550747E+01_JPRB, 0.557422E+01_JPRB &
+  &, 0.564059E+01_JPRB, 0.570657E+01_JPRB, 0.577214E+01_JPRB &
+  &, 0.583729E+01_JPRB, 0.590202E+01_JPRB, 0.596630E+01_JPRB, 0.603013E+01_JPRB &
+  &, 0.609352E+01_JPRB, 0.615642E+01_JPRB, 0.621885E+01_JPRB &
+  &, 0.628077E+01_JPRB, 0.634221E+01_JPRB, 0.640313E+01_JPRB, 0.646355E+01_JPRB &
+  &, 0.652344E+01_JPRB, 0.658279E+01_JPRB, 0.664159E+01_JPRB &
+  &, 0.669984E+01_JPRB, 0.675755E+01_JPRB, 0.681469E+01_JPRB, 0.687124E+01_JPRB &
+  &, 0.692724E+01_JPRB, 0.698264E+01_JPRB, 0.703745E+01_JPRB &
+  &, 0.709166E+01_JPRB, 0.714530E+01_JPRB, 0.719829E+01_JPRB, 0.725066E+01_JPRB &
+  &, 0.730245E+01_JPRB, 0.735358E+01_JPRB, 0.740411E+01_JPRB &
+  &, 0.745374E+01_JPRB, 0.750324E+01_JPRB, 0.755182E+01_JPRB, 0.759978E+01_JPRB &
+  &, 0.764711E+01_JPRB, 0.769374E+01_JPRB, 0.773974E+01_JPRB &
+  &, 0.778505E+01_JPRB, 0.782970E+01_JPRB, 0.787373E+01_JPRB, 0.791703E+01_JPRB &
+  &, 0.795968E+01_JPRB, 0.800165E+01_JPRB, 0.804293E+01_JPRB &
+  &, 0.808359E+01_JPRB, 0.812352E+01_JPRB, 0.816275E+01_JPRB, 0.820122E+01_JPRB &
+  &, 0.823918E+01_JPRB, 0.827636E+01_JPRB, 0.831284E+01_JPRB &
+  &, 0.834865E+01_JPRB, 0.838378E+01_JPRB, 0.841820E+01_JPRB, 0.845186E+01_JPRB &
+  &, 0.848487E+01_JPRB, 0.851724E+01_JPRB, 0.854882E+01_JPRB &
+  &, 0.857973E+01_JPRB, 0.860997E+01_JPRB, 0.863956E+01_JPRB, 0.866833E+01_JPRB &
+  &, 0.869647E+01_JPRB, 0.872351E+01_JPRB, 0.875065E+01_JPRB &
+  &, 0.877670E+01_JPRB, 0.880205E+01_JPRB, 0.882669E+01_JPRB, 0.885065E+01_JPRB &
+  &, 0.887385E+01_JPRB, 0.889645E+01_JPRB, 0.891833E+01_JPRB/)
+XCW( 970, :) = (/ &
+  &  0.119630E+01_JPRB, 0.124788E+01_JPRB, 0.130043E+01_JPRB, 0.135393E+01_JPRB &
+  &, 0.140835E+01_JPRB, 0.146368E+01_JPRB, 0.151989E+01_JPRB &
+  &, 0.157696E+01_JPRB, 0.163489E+01_JPRB, 0.169363E+01_JPRB, 0.175317E+01_JPRB &
+  &, 0.181349E+01_JPRB, 0.187456E+01_JPRB, 0.193637E+01_JPRB &
+  &, 0.199888E+01_JPRB, 0.206208E+01_JPRB, 0.212595E+01_JPRB, 0.219045E+01_JPRB &
+  &, 0.225557E+01_JPRB, 0.232128E+01_JPRB, 0.238756E+01_JPRB &
+  &, 0.245439E+01_JPRB, 0.252173E+01_JPRB, 0.258957E+01_JPRB, 0.265788E+01_JPRB &
+  &, 0.272664E+01_JPRB, 0.279581E+01_JPRB, 0.286539E+01_JPRB &
+  &, 0.293534E+01_JPRB, 0.300564E+01_JPRB, 0.307627E+01_JPRB, 0.314720E+01_JPRB &
+  &, 0.321841E+01_JPRB, 0.328987E+01_JPRB, 0.336156E+01_JPRB &
+  &, 0.343346E+01_JPRB, 0.350555E+01_JPRB, 0.357781E+01_JPRB, 0.365020E+01_JPRB &
+  &, 0.372271E+01_JPRB, 0.379531E+01_JPRB, 0.386799E+01_JPRB &
+  &, 0.394073E+01_JPRB, 0.401350E+01_JPRB, 0.408629E+01_JPRB, 0.415905E+01_JPRB &
+  &, 0.423180E+01_JPRB, 0.430449E+01_JPRB, 0.437713E+01_JPRB &
+  &, 0.444967E+01_JPRB, 0.452211E+01_JPRB, 0.459443E+01_JPRB, 0.466660E+01_JPRB &
+  &, 0.473863E+01_JPRB, 0.481046E+01_JPRB, 0.488210E+01_JPRB &
+  &, 0.495355E+01_JPRB, 0.502478E+01_JPRB, 0.509575E+01_JPRB, 0.516648E+01_JPRB &
+  &, 0.523692E+01_JPRB, 0.530709E+01_JPRB, 0.537695E+01_JPRB &
+  &, 0.544650E+01_JPRB, 0.551573E+01_JPRB, 0.558461E+01_JPRB, 0.565314E+01_JPRB &
+  &, 0.572128E+01_JPRB, 0.578906E+01_JPRB, 0.585646E+01_JPRB &
+  &, 0.592345E+01_JPRB, 0.599002E+01_JPRB, 0.605615E+01_JPRB, 0.612186E+01_JPRB &
+  &, 0.618711E+01_JPRB, 0.625193E+01_JPRB, 0.631624E+01_JPRB &
+  &, 0.638009E+01_JPRB, 0.644347E+01_JPRB, 0.650635E+01_JPRB, 0.656870E+01_JPRB &
+  &, 0.663056E+01_JPRB, 0.669188E+01_JPRB, 0.675267E+01_JPRB &
+  &, 0.681293E+01_JPRB, 0.687264E+01_JPRB, 0.693177E+01_JPRB, 0.699039E+01_JPRB &
+  &, 0.704841E+01_JPRB, 0.710586E+01_JPRB, 0.716270E+01_JPRB &
+  &, 0.721899E+01_JPRB, 0.727465E+01_JPRB, 0.732975E+01_JPRB, 0.738422E+01_JPRB &
+  &, 0.743808E+01_JPRB, 0.749134E+01_JPRB, 0.754395E+01_JPRB &
+  &, 0.759594E+01_JPRB, 0.764729E+01_JPRB, 0.769802E+01_JPRB, 0.774810E+01_JPRB &
+  &, 0.779753E+01_JPRB, 0.784634E+01_JPRB, 0.789443E+01_JPRB &
+  &, 0.794194E+01_JPRB, 0.798877E+01_JPRB, 0.803487E+01_JPRB, 0.808041E+01_JPRB &
+  &, 0.812523E+01_JPRB, 0.816938E+01_JPRB, 0.821149E+01_JPRB &
+  &, 0.825567E+01_JPRB, 0.829776E+01_JPRB, 0.833921E+01_JPRB, 0.837995E+01_JPRB &
+  &, 0.842005E+01_JPRB, 0.845936E+01_JPRB, 0.849805E+01_JPRB &
+  &, 0.853606E+01_JPRB, 0.857340E+01_JPRB, 0.860998E+01_JPRB, 0.864592E+01_JPRB &
+  &, 0.868110E+01_JPRB, 0.871560E+01_JPRB, 0.874942E+01_JPRB &
+  &, 0.878246E+01_JPRB, 0.881489E+01_JPRB, 0.884673E+01_JPRB, 0.887776E+01_JPRB &
+  &, 0.890809E+01_JPRB, 0.893775E+01_JPRB, 0.896661E+01_JPRB &
+  &, 0.899488E+01_JPRB, 0.902243E+01_JPRB, 0.904928E+01_JPRB, 0.907538E+01_JPRB &
+  &, 0.910080E+01_JPRB, 0.912554E+01_JPRB, 0.914963E+01_JPRB/)
+XCW( 971, :) = (/ &
+  &  0.119798E+01_JPRB, 0.125004E+01_JPRB, 0.130310E+01_JPRB, 0.135712E+01_JPRB &
+  &, 0.141209E+01_JPRB, 0.146799E+01_JPRB, 0.152481E+01_JPRB &
+  &, 0.158251E+01_JPRB, 0.164107E+01_JPRB, 0.170049E+01_JPRB, 0.176073E+01_JPRB &
+  &, 0.182176E+01_JPRB, 0.188358E+01_JPRB, 0.194616E+01_JPRB &
+  &, 0.200946E+01_JPRB, 0.207348E+01_JPRB, 0.213819E+01_JPRB, 0.220356E+01_JPRB &
+  &, 0.226956E+01_JPRB, 0.233618E+01_JPRB, 0.240340E+01_JPRB &
+  &, 0.247118E+01_JPRB, 0.253951E+01_JPRB, 0.260835E+01_JPRB, 0.267769E+01_JPRB &
+  &, 0.274749E+01_JPRB, 0.281775E+01_JPRB, 0.288842E+01_JPRB &
+  &, 0.295949E+01_JPRB, 0.303093E+01_JPRB, 0.310272E+01_JPRB, 0.317484E+01_JPRB &
+  &, 0.324726E+01_JPRB, 0.331995E+01_JPRB, 0.339290E+01_JPRB &
+  &, 0.346607E+01_JPRB, 0.353945E+01_JPRB, 0.361302E+01_JPRB, 0.368675E+01_JPRB &
+  &, 0.376063E+01_JPRB, 0.383461E+01_JPRB, 0.390869E+01_JPRB &
+  &, 0.398284E+01_JPRB, 0.405701E+01_JPRB, 0.413130E+01_JPRB, 0.420555E+01_JPRB &
+  &, 0.427979E+01_JPRB, 0.435401E+01_JPRB, 0.442818E+01_JPRB &
+  &, 0.450228E+01_JPRB, 0.457630E+01_JPRB, 0.465020E+01_JPRB, 0.472399E+01_JPRB &
+  &, 0.479764E+01_JPRB, 0.487114E+01_JPRB, 0.494445E+01_JPRB &
+  &, 0.501758E+01_JPRB, 0.509049E+01_JPRB, 0.516319E+01_JPRB, 0.523565E+01_JPRB &
+  &, 0.530786E+01_JPRB, 0.537979E+01_JPRB, 0.545143E+01_JPRB &
+  &, 0.552279E+01_JPRB, 0.559382E+01_JPRB, 0.566453E+01_JPRB, 0.573490E+01_JPRB &
+  &, 0.580494E+01_JPRB, 0.587460E+01_JPRB, 0.594387E+01_JPRB &
+  &, 0.601276E+01_JPRB, 0.608125E+01_JPRB, 0.614933E+01_JPRB, 0.621697E+01_JPRB &
+  &, 0.628421E+01_JPRB, 0.635099E+01_JPRB, 0.641731E+01_JPRB &
+  &, 0.648315E+01_JPRB, 0.654853E+01_JPRB, 0.661342E+01_JPRB, 0.667782E+01_JPRB &
+  &, 0.674171E+01_JPRB, 0.680510E+01_JPRB, 0.686795E+01_JPRB &
+  &, 0.693031E+01_JPRB, 0.699210E+01_JPRB, 0.705336E+01_JPRB, 0.711407E+01_JPRB &
+  &, 0.717420E+01_JPRB, 0.723378E+01_JPRB, 0.729277E+01_JPRB &
+  &, 0.735122E+01_JPRB, 0.740904E+01_JPRB, 0.746631E+01_JPRB, 0.752293E+01_JPRB &
+  &, 0.757899E+01_JPRB, 0.763443E+01_JPRB, 0.768923E+01_JPRB &
+  &, 0.774344E+01_JPRB, 0.779702E+01_JPRB, 0.784995E+01_JPRB, 0.790229E+01_JPRB &
+  &, 0.795395E+01_JPRB, 0.800493E+01_JPRB, 0.805535E+01_JPRB &
+  &, 0.810510E+01_JPRB, 0.815417E+01_JPRB, 0.820261E+01_JPRB, 0.825037E+01_JPRB &
+  &, 0.829743E+01_JPRB, 0.834386E+01_JPRB, 0.838963E+01_JPRB &
+  &, 0.843470E+01_JPRB, 0.847907E+01_JPRB, 0.852283E+01_JPRB, 0.856586E+01_JPRB &
+  &, 0.860821E+01_JPRB, 0.864987E+01_JPRB, 0.869087E+01_JPRB &
+  &, 0.873119E+01_JPRB, 0.877076E+01_JPRB, 0.880968E+01_JPRB, 0.884795E+01_JPRB &
+  &, 0.888542E+01_JPRB, 0.892227E+01_JPRB, 0.895839E+01_JPRB &
+  &, 0.899379E+01_JPRB, 0.902859E+01_JPRB, 0.906263E+01_JPRB, 0.909597E+01_JPRB &
+  &, 0.912857E+01_JPRB, 0.916061E+01_JPRB, 0.919174E+01_JPRB &
+  &, 0.922221E+01_JPRB, 0.925216E+01_JPRB, 0.928128E+01_JPRB, 0.930972E+01_JPRB &
+  &, 0.933747E+01_JPRB, 0.936449E+01_JPRB, 0.939079E+01_JPRB/)
+XCW( 972, :) = (/ &
+  &  0.119971E+01_JPRB, 0.125227E+01_JPRB, 0.130584E+01_JPRB, 0.136041E+01_JPRB &
+  &, 0.141595E+01_JPRB, 0.147244E+01_JPRB, 0.152988E+01_JPRB &
+  &, 0.158822E+01_JPRB, 0.164746E+01_JPRB, 0.170757E+01_JPRB, 0.176852E+01_JPRB &
+  &, 0.183031E+01_JPRB, 0.189289E+01_JPRB, 0.195626E+01_JPRB &
+  &, 0.202039E+01_JPRB, 0.208525E+01_JPRB, 0.215083E+01_JPRB, 0.221709E+01_JPRB &
+  &, 0.228402E+01_JPRB, 0.235158E+01_JPRB, 0.241976E+01_JPRB &
+  &, 0.248854E+01_JPRB, 0.255788E+01_JPRB, 0.262776E+01_JPRB, 0.269816E+01_JPRB &
+  &, 0.276906E+01_JPRB, 0.284043E+01_JPRB, 0.291224E+01_JPRB &
+  &, 0.298447E+01_JPRB, 0.305706E+01_JPRB, 0.313009E+01_JPRB, 0.320344E+01_JPRB &
+  &, 0.327711E+01_JPRB, 0.335108E+01_JPRB, 0.342532E+01_JPRB &
+  &, 0.349982E+01_JPRB, 0.357455E+01_JPRB, 0.364948E+01_JPRB, 0.372460E+01_JPRB &
+  &, 0.379988E+01_JPRB, 0.387530E+01_JPRB, 0.395083E+01_JPRB &
+  &, 0.402646E+01_JPRB, 0.410216E+01_JPRB, 0.417792E+01_JPRB, 0.425369E+01_JPRB &
+  &, 0.432951E+01_JPRB, 0.440530E+01_JPRB, 0.448108E+01_JPRB &
+  &, 0.455680E+01_JPRB, 0.463245E+01_JPRB, 0.470802E+01_JPRB, 0.478348E+01_JPRB &
+  &, 0.485883E+01_JPRB, 0.493403E+01_JPRB, 0.500909E+01_JPRB &
+  &, 0.508396E+01_JPRB, 0.515865E+01_JPRB, 0.523313E+01_JPRB, 0.530740E+01_JPRB &
+  &, 0.538143E+01_JPRB, 0.545520E+01_JPRB, 0.552870E+01_JPRB &
+  &, 0.560193E+01_JPRB, 0.567486E+01_JPRB, 0.574749E+01_JPRB, 0.581977E+01_JPRB &
+  &, 0.589175E+01_JPRB, 0.596336E+01_JPRB, 0.603461E+01_JPRB &
+  &, 0.610548E+01_JPRB, 0.617597E+01_JPRB, 0.624605E+01_JPRB, 0.631575E+01_JPRB &
+  &, 0.638501E+01_JPRB, 0.645383E+01_JPRB, 0.652223E+01_JPRB &
+  &, 0.659016E+01_JPRB, 0.665763E+01_JPRB, 0.672463E+01_JPRB, 0.679117E+01_JPRB &
+  &, 0.685719E+01_JPRB, 0.692274E+01_JPRB, 0.698775E+01_JPRB &
+  &, 0.705225E+01_JPRB, 0.711624E+01_JPRB, 0.717969E+01_JPRB, 0.724260E+01_JPRB &
+  &, 0.730497E+01_JPRB, 0.736677E+01_JPRB, 0.742800E+01_JPRB &
+  &, 0.748868E+01_JPRB, 0.754877E+01_JPRB, 0.760830E+01_JPRB, 0.766721E+01_JPRB &
+  &, 0.772554E+01_JPRB, 0.778329E+01_JPRB, 0.784039E+01_JPRB &
+  &, 0.789692E+01_JPRB, 0.795278E+01_JPRB, 0.800807E+01_JPRB, 0.806272E+01_JPRB &
+  &, 0.811672E+01_JPRB, 0.817009E+01_JPRB, 0.822284E+01_JPRB &
+  &, 0.827492E+01_JPRB, 0.832638E+01_JPRB, 0.837719E+01_JPRB, 0.842728E+01_JPRB &
+  &, 0.847677E+01_JPRB, 0.852556E+01_JPRB, 0.857374E+01_JPRB &
+  &, 0.862122E+01_JPRB, 0.866798E+01_JPRB, 0.871414E+01_JPRB, 0.875957E+01_JPRB &
+  &, 0.880433E+01_JPRB, 0.884827E+01_JPRB, 0.889145E+01_JPRB &
+  &, 0.893456E+01_JPRB, 0.897662E+01_JPRB, 0.901784E+01_JPRB, 0.905857E+01_JPRB &
+  &, 0.909851E+01_JPRB, 0.913757E+01_JPRB, 0.917633E+01_JPRB &
+  &, 0.921422E+01_JPRB, 0.925140E+01_JPRB, 0.928782E+01_JPRB, 0.932361E+01_JPRB &
+  &, 0.935866E+01_JPRB, 0.939304E+01_JPRB, 0.942675E+01_JPRB &
+  &, 0.945975E+01_JPRB, 0.949198E+01_JPRB, 0.952357E+01_JPRB, 0.955442E+01_JPRB &
+  &, 0.958433E+01_JPRB, 0.961402E+01_JPRB, 0.964279E+01_JPRB/)
+XCW( 973, :) = (/ &
+  &  0.120149E+01_JPRB, 0.125456E+01_JPRB, 0.130867E+01_JPRB, 0.136380E+01_JPRB &
+  &, 0.141993E+01_JPRB, 0.147704E+01_JPRB, 0.153511E+01_JPRB &
+  &, 0.159412E+01_JPRB, 0.165405E+01_JPRB, 0.171488E+01_JPRB, 0.177658E+01_JPRB &
+  &, 0.183913E+01_JPRB, 0.190252E+01_JPRB, 0.196671E+01_JPRB &
+  &, 0.203169E+01_JPRB, 0.209742E+01_JPRB, 0.216390E+01_JPRB, 0.223109E+01_JPRB &
+  &, 0.229896E+01_JPRB, 0.236751E+01_JPRB, 0.243669E+01_JPRB &
+  &, 0.250650E+01_JPRB, 0.257689E+01_JPRB, 0.264785E+01_JPRB, 0.271936E+01_JPRB &
+  &, 0.279139E+01_JPRB, 0.286391E+01_JPRB, 0.293690E+01_JPRB &
+  &, 0.301033E+01_JPRB, 0.308419E+01_JPRB, 0.315844E+01_JPRB, 0.323306E+01_JPRB &
+  &, 0.330803E+01_JPRB, 0.338333E+01_JPRB, 0.345892E+01_JPRB &
+  &, 0.353479E+01_JPRB, 0.361091E+01_JPRB, 0.368727E+01_JPRB, 0.376383E+01_JPRB &
+  &, 0.384057E+01_JPRB, 0.391748E+01_JPRB, 0.399452E+01_JPRB &
+  &, 0.407168E+01_JPRB, 0.414894E+01_JPRB, 0.422628E+01_JPRB, 0.430367E+01_JPRB &
+  &, 0.438109E+01_JPRB, 0.445853E+01_JPRB, 0.453595E+01_JPRB &
+  &, 0.461337E+01_JPRB, 0.469072E+01_JPRB, 0.476801E+01_JPRB, 0.484522E+01_JPRB &
+  &, 0.492233E+01_JPRB, 0.499933E+01_JPRB, 0.507619E+01_JPRB &
+  &, 0.515289E+01_JPRB, 0.522942E+01_JPRB, 0.530577E+01_JPRB, 0.538191E+01_JPRB &
+  &, 0.545784E+01_JPRB, 0.553353E+01_JPRB, 0.560897E+01_JPRB &
+  &, 0.568415E+01_JPRB, 0.575902E+01_JPRB, 0.583365E+01_JPRB, 0.590795E+01_JPRB &
+  &, 0.598194E+01_JPRB, 0.605559E+01_JPRB, 0.612889E+01_JPRB &
+  &, 0.620184E+01_JPRB, 0.627442E+01_JPRB, 0.634662E+01_JPRB, 0.641842E+01_JPRB &
+  &, 0.648980E+01_JPRB, 0.656078E+01_JPRB, 0.663133E+01_JPRB &
+  &, 0.670146E+01_JPRB, 0.677113E+01_JPRB, 0.684033E+01_JPRB, 0.690906E+01_JPRB &
+  &, 0.697733E+01_JPRB, 0.704510E+01_JPRB, 0.711238E+01_JPRB &
+  &, 0.717918E+01_JPRB, 0.724543E+01_JPRB, 0.731116E+01_JPRB, 0.737639E+01_JPRB &
+  &, 0.744108E+01_JPRB, 0.750520E+01_JPRB, 0.756879E+01_JPRB &
+  &, 0.763180E+01_JPRB, 0.769428E+01_JPRB, 0.775614E+01_JPRB, 0.781746E+01_JPRB &
+  &, 0.787816E+01_JPRB, 0.793830E+01_JPRB, 0.799785E+01_JPRB &
+  &, 0.805676E+01_JPRB, 0.811510E+01_JPRB, 0.817280E+01_JPRB, 0.822989E+01_JPRB &
+  &, 0.828634E+01_JPRB, 0.834218E+01_JPRB, 0.839740E+01_JPRB &
+  &, 0.845194E+01_JPRB, 0.850587E+01_JPRB, 0.855915E+01_JPRB, 0.861178E+01_JPRB &
+  &, 0.866361E+01_JPRB, 0.871504E+01_JPRB, 0.876571E+01_JPRB &
+  &, 0.881574E+01_JPRB, 0.886500E+01_JPRB, 0.891363E+01_JPRB, 0.896169E+01_JPRB &
+  &, 0.900899E+01_JPRB, 0.905558E+01_JPRB, 0.910156E+01_JPRB &
+  &, 0.914645E+01_JPRB, 0.919144E+01_JPRB, 0.923529E+01_JPRB, 0.927851E+01_JPRB &
+  &, 0.932101E+01_JPRB, 0.936278E+01_JPRB, 0.940384E+01_JPRB &
+  &, 0.944435E+01_JPRB, 0.948416E+01_JPRB, 0.952317E+01_JPRB, 0.956149E+01_JPRB &
+  &, 0.959913E+01_JPRB, 0.963611E+01_JPRB, 0.967231E+01_JPRB &
+  &, 0.970785E+01_JPRB, 0.974269E+01_JPRB, 0.977677E+01_JPRB, 0.981024E+01_JPRB &
+  &, 0.984296E+01_JPRB, 0.987496E+01_JPRB, 0.990629E+01_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART139',1,ZHOOK_HANDLE)
+END SUBROUTINE PART139
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART140
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART140',0,ZHOOK_HANDLE)
+
+XCW( 974, :) = (/ &
+  &  0.120334E+01_JPRB, 0.125693E+01_JPRB, 0.131159E+01_JPRB, 0.136730E+01_JPRB &
+  &, 0.142404E+01_JPRB, 0.148179E+01_JPRB, 0.154052E+01_JPRB &
+  &, 0.160022E+01_JPRB, 0.166087E+01_JPRB, 0.172244E+01_JPRB, 0.178491E+01_JPRB &
+  &, 0.184826E+01_JPRB, 0.191247E+01_JPRB, 0.197752E+01_JPRB &
+  &, 0.204338E+01_JPRB, 0.211002E+01_JPRB, 0.217743E+01_JPRB, 0.224558E+01_JPRB &
+  &, 0.231445E+01_JPRB, 0.238400E+01_JPRB, 0.245423E+01_JPRB &
+  &, 0.252510E+01_JPRB, 0.259659E+01_JPRB, 0.266868E+01_JPRB, 0.274133E+01_JPRB &
+  &, 0.281453E+01_JPRB, 0.288825E+01_JPRB, 0.296246E+01_JPRB &
+  &, 0.303715E+01_JPRB, 0.311228E+01_JPRB, 0.318784E+01_JPRB, 0.326379E+01_JPRB &
+  &, 0.334011E+01_JPRB, 0.341679E+01_JPRB, 0.349378E+01_JPRB &
+  &, 0.357108E+01_JPRB, 0.364865E+01_JPRB, 0.372649E+01_JPRB, 0.380454E+01_JPRB &
+  &, 0.388281E+01_JPRB, 0.396127E+01_JPRB, 0.403988E+01_JPRB &
+  &, 0.411865E+01_JPRB, 0.419753E+01_JPRB, 0.427650E+01_JPRB, 0.435556E+01_JPRB &
+  &, 0.443467E+01_JPRB, 0.451381E+01_JPRB, 0.459297E+01_JPRB &
+  &, 0.467213E+01_JPRB, 0.475126E+01_JPRB, 0.483035E+01_JPRB, 0.490938E+01_JPRB &
+  &, 0.498834E+01_JPRB, 0.506719E+01_JPRB, 0.514592E+01_JPRB &
+  &, 0.522453E+01_JPRB, 0.530299E+01_JPRB, 0.538128E+01_JPRB, 0.545938E+01_JPRB &
+  &, 0.553728E+01_JPRB, 0.561498E+01_JPRB, 0.569245E+01_JPRB &
+  &, 0.576966E+01_JPRB, 0.584662E+01_JPRB, 0.592330E+01_JPRB, 0.599969E+01_JPRB &
+  &, 0.607579E+01_JPRB, 0.615157E+01_JPRB, 0.622702E+01_JPRB &
+  &, 0.630213E+01_JPRB, 0.637689E+01_JPRB, 0.645128E+01_JPRB, 0.652530E+01_JPRB &
+  &, 0.659892E+01_JPRB, 0.667213E+01_JPRB, 0.674496E+01_JPRB &
+  &, 0.681735E+01_JPRB, 0.688931E+01_JPRB, 0.696083E+01_JPRB, 0.703188E+01_JPRB &
+  &, 0.710247E+01_JPRB, 0.717261E+01_JPRB, 0.724223E+01_JPRB &
+  &, 0.731140E+01_JPRB, 0.738006E+01_JPRB, 0.744819E+01_JPRB, 0.751582E+01_JPRB &
+  &, 0.758294E+01_JPRB, 0.764952E+01_JPRB, 0.771553E+01_JPRB &
+  &, 0.778104E+01_JPRB, 0.784597E+01_JPRB, 0.791032E+01_JPRB, 0.797413E+01_JPRB &
+  &, 0.803735E+01_JPRB, 0.809999E+01_JPRB, 0.816206E+01_JPRB &
+  &, 0.822354E+01_JPRB, 0.828440E+01_JPRB, 0.834468E+01_JPRB, 0.840433E+01_JPRB &
+  &, 0.846334E+01_JPRB, 0.852177E+01_JPRB, 0.857955E+01_JPRB &
+  &, 0.863667E+01_JPRB, 0.869327E+01_JPRB, 0.874917E+01_JPRB, 0.880438E+01_JPRB &
+  &, 0.885901E+01_JPRB, 0.891292E+01_JPRB, 0.896625E+01_JPRB &
+  &, 0.901887E+01_JPRB, 0.907068E+01_JPRB, 0.912220E+01_JPRB, 0.917283E+01_JPRB &
+  &, 0.922280E+01_JPRB, 0.927189E+01_JPRB, 0.932061E+01_JPRB &
+  &, 0.936866E+01_JPRB, 0.941592E+01_JPRB, 0.946250E+01_JPRB, 0.950841E+01_JPRB &
+  &, 0.955359E+01_JPRB, 0.959807E+01_JPRB, 0.964194E+01_JPRB &
+  &, 0.968506E+01_JPRB, 0.972755E+01_JPRB, 0.976929E+01_JPRB, 0.981029E+01_JPRB &
+  &, 0.985068E+01_JPRB, 0.989040E+01_JPRB, 0.992924E+01_JPRB &
+  &, 0.996748E+01_JPRB, 0.100051E+02_JPRB, 0.100419E+02_JPRB, 0.100781E+02_JPRB &
+  &, 0.101135E+02_JPRB, 0.101482E+02_JPRB, 0.101823E+02_JPRB/)
+XCW( 975, :) = (/ &
+  &  0.120524E+01_JPRB, 0.125938E+01_JPRB, 0.131462E+01_JPRB, 0.137093E+01_JPRB &
+  &, 0.142830E+01_JPRB, 0.148670E+01_JPRB, 0.154612E+01_JPRB &
+  &, 0.160654E+01_JPRB, 0.166793E+01_JPRB, 0.173027E+01_JPRB, 0.179354E+01_JPRB &
+  &, 0.185773E+01_JPRB, 0.192279E+01_JPRB, 0.198872E+01_JPRB &
+  &, 0.205549E+01_JPRB, 0.212308E+01_JPRB, 0.219146E+01_JPRB, 0.226061E+01_JPRB &
+  &, 0.233050E+01_JPRB, 0.240112E+01_JPRB, 0.247242E+01_JPRB &
+  &, 0.254441E+01_JPRB, 0.261703E+01_JPRB, 0.269028E+01_JPRB, 0.276413E+01_JPRB &
+  &, 0.283855E+01_JPRB, 0.291352E+01_JPRB, 0.298901E+01_JPRB &
+  &, 0.306500E+01_JPRB, 0.314146E+01_JPRB, 0.321837E+01_JPRB, 0.329570E+01_JPRB &
+  &, 0.337344E+01_JPRB, 0.345155E+01_JPRB, 0.353000E+01_JPRB &
+  &, 0.360878E+01_JPRB, 0.368787E+01_JPRB, 0.376724E+01_JPRB, 0.384687E+01_JPRB &
+  &, 0.392672E+01_JPRB, 0.400679E+01_JPRB, 0.408705E+01_JPRB &
+  &, 0.416748E+01_JPRB, 0.424804E+01_JPRB, 0.432873E+01_JPRB, 0.440952E+01_JPRB &
+  &, 0.449039E+01_JPRB, 0.457132E+01_JPRB, 0.465229E+01_JPRB &
+  &, 0.473328E+01_JPRB, 0.481426E+01_JPRB, 0.489523E+01_JPRB, 0.497616E+01_JPRB &
+  &, 0.505703E+01_JPRB, 0.513783E+01_JPRB, 0.521853E+01_JPRB &
+  &, 0.529912E+01_JPRB, 0.537958E+01_JPRB, 0.545990E+01_JPRB, 0.554006E+01_JPRB &
+  &, 0.562004E+01_JPRB, 0.569982E+01_JPRB, 0.577939E+01_JPRB &
+  &, 0.585874E+01_JPRB, 0.593785E+01_JPRB, 0.601670E+01_JPRB, 0.609529E+01_JPRB &
+  &, 0.617358E+01_JPRB, 0.625158E+01_JPRB, 0.632928E+01_JPRB &
+  &, 0.640666E+01_JPRB, 0.648369E+01_JPRB, 0.656040E+01_JPRB, 0.663672E+01_JPRB &
+  &, 0.671267E+01_JPRB, 0.678825E+01_JPRB, 0.686343E+01_JPRB &
+  &, 0.693820E+01_JPRB, 0.701255E+01_JPRB, 0.708649E+01_JPRB, 0.715999E+01_JPRB &
+  &, 0.723303E+01_JPRB, 0.730562E+01_JPRB, 0.737774E+01_JPRB &
+  &, 0.744938E+01_JPRB, 0.752055E+01_JPRB, 0.759120E+01_JPRB, 0.766135E+01_JPRB &
+  &, 0.773102E+01_JPRB, 0.780016E+01_JPRB, 0.786874E+01_JPRB &
+  &, 0.793683E+01_JPRB, 0.800434E+01_JPRB, 0.807134E+01_JPRB, 0.813775E+01_JPRB &
+  &, 0.820360E+01_JPRB, 0.826890E+01_JPRB, 0.833361E+01_JPRB &
+  &, 0.839776E+01_JPRB, 0.846131E+01_JPRB, 0.852425E+01_JPRB, 0.858658E+01_JPRB &
+  &, 0.864834E+01_JPRB, 0.870948E+01_JPRB, 0.877001E+01_JPRB &
+  &, 0.882988E+01_JPRB, 0.888917E+01_JPRB, 0.894781E+01_JPRB, 0.900583E+01_JPRB &
+  &, 0.906319E+01_JPRB, 0.911989E+01_JPRB, 0.917598E+01_JPRB &
+  &, 0.923142E+01_JPRB, 0.928611E+01_JPRB, 0.934029E+01_JPRB, 0.939373E+01_JPRB &
+  &, 0.944654E+01_JPRB, 0.949860E+01_JPRB, 0.954856E+01_JPRB &
+  &, 0.960084E+01_JPRB, 0.965097E+01_JPRB, 0.970038E+01_JPRB, 0.974918E+01_JPRB &
+  &, 0.979717E+01_JPRB, 0.984456E+01_JPRB, 0.989125E+01_JPRB &
+  &, 0.993719E+01_JPRB, 0.998256E+01_JPRB, 0.100271E+02_JPRB, 0.100710E+02_JPRB &
+  &, 0.101143E+02_JPRB, 0.101568E+02_JPRB, 0.101986E+02_JPRB &
+  &, 0.102397E+02_JPRB, 0.102802E+02_JPRB, 0.103199E+02_JPRB, 0.103586E+02_JPRB &
+  &, 0.103972E+02_JPRB, 0.104347E+02_JPRB, 0.104717E+02_JPRB/)
+XCW( 976, :) = (/ &
+  &  0.120721E+01_JPRB, 0.126192E+01_JPRB, 0.131775E+01_JPRB, 0.137468E+01_JPRB &
+  &, 0.143270E+01_JPRB, 0.149179E+01_JPRB, 0.155193E+01_JPRB &
+  &, 0.161309E+01_JPRB, 0.167525E+01_JPRB, 0.173839E+01_JPRB, 0.180250E+01_JPRB &
+  &, 0.186754E+01_JPRB, 0.193350E+01_JPRB, 0.200035E+01_JPRB &
+  &, 0.206807E+01_JPRB, 0.213664E+01_JPRB, 0.220603E+01_JPRB, 0.227622E+01_JPRB &
+  &, 0.234718E+01_JPRB, 0.241889E+01_JPRB, 0.249132E+01_JPRB &
+  &, 0.256446E+01_JPRB, 0.263828E+01_JPRB, 0.271274E+01_JPRB, 0.278783E+01_JPRB &
+  &, 0.286352E+01_JPRB, 0.293979E+01_JPRB, 0.301661E+01_JPRB &
+  &, 0.309396E+01_JPRB, 0.317181E+01_JPRB, 0.325013E+01_JPRB, 0.332890E+01_JPRB &
+  &, 0.340810E+01_JPRB, 0.348771E+01_JPRB, 0.356769E+01_JPRB &
+  &, 0.364802E+01_JPRB, 0.372868E+01_JPRB, 0.380967E+01_JPRB, 0.389093E+01_JPRB &
+  &, 0.397244E+01_JPRB, 0.405420E+01_JPRB, 0.413616E+01_JPRB &
+  &, 0.421833E+01_JPRB, 0.430066E+01_JPRB, 0.438314E+01_JPRB, 0.446574E+01_JPRB &
+  &, 0.454845E+01_JPRB, 0.463124E+01_JPRB, 0.471409E+01_JPRB &
+  &, 0.479700E+01_JPRB, 0.487993E+01_JPRB, 0.496285E+01_JPRB, 0.504577E+01_JPRB &
+  &, 0.512865E+01_JPRB, 0.521147E+01_JPRB, 0.529422E+01_JPRB &
+  &, 0.537690E+01_JPRB, 0.545946E+01_JPRB, 0.554190E+01_JPRB, 0.562420E+01_JPRB &
+  &, 0.570634E+01_JPRB, 0.578832E+01_JPRB, 0.587009E+01_JPRB &
+  &, 0.595167E+01_JPRB, 0.603304E+01_JPRB, 0.611416E+01_JPRB, 0.619503E+01_JPRB &
+  &, 0.627565E+01_JPRB, 0.635599E+01_JPRB, 0.643604E+01_JPRB &
+  &, 0.651580E+01_JPRB, 0.659521E+01_JPRB, 0.667431E+01_JPRB, 0.675307E+01_JPRB &
+  &, 0.683147E+01_JPRB, 0.690951E+01_JPRB, 0.698717E+01_JPRB &
+  &, 0.706446E+01_JPRB, 0.714133E+01_JPRB, 0.721779E+01_JPRB, 0.729382E+01_JPRB &
+  &, 0.736945E+01_JPRB, 0.744460E+01_JPRB, 0.751932E+01_JPRB &
+  &, 0.759357E+01_JPRB, 0.766739E+01_JPRB, 0.774068E+01_JPRB, 0.781351E+01_JPRB &
+  &, 0.788584E+01_JPRB, 0.795765E+01_JPRB, 0.802897E+01_JPRB &
+  &, 0.809975E+01_JPRB, 0.817002E+01_JPRB, 0.823972E+01_JPRB, 0.830891E+01_JPRB &
+  &, 0.837753E+01_JPRB, 0.844563E+01_JPRB, 0.851312E+01_JPRB &
+  &, 0.858007E+01_JPRB, 0.864644E+01_JPRB, 0.871219E+01_JPRB, 0.877738E+01_JPRB &
+  &, 0.884198E+01_JPRB, 0.890599E+01_JPRB, 0.896936E+01_JPRB &
+  &, 0.903213E+01_JPRB, 0.909430E+01_JPRB, 0.915583E+01_JPRB, 0.921676E+01_JPRB &
+  &, 0.927704E+01_JPRB, 0.933669E+01_JPRB, 0.939570E+01_JPRB &
+  &, 0.945406E+01_JPRB, 0.951175E+01_JPRB, 0.956875E+01_JPRB, 0.962526E+01_JPRB &
+  &, 0.968104E+01_JPRB, 0.973611E+01_JPRB, 0.979056E+01_JPRB &
+  &, 0.984424E+01_JPRB, 0.989745E+01_JPRB, 0.994987E+01_JPRB, 0.100015E+02_JPRB &
+  &, 0.100525E+02_JPRB, 0.101029E+02_JPRB, 0.101527E+02_JPRB &
+  &, 0.102017E+02_JPRB, 0.102501E+02_JPRB, 0.102977E+02_JPRB, 0.103447E+02_JPRB &
+  &, 0.103909E+02_JPRB, 0.104365E+02_JPRB, 0.104814E+02_JPRB &
+  &, 0.105255E+02_JPRB, 0.105690E+02_JPRB, 0.106118E+02_JPRB, 0.106528E+02_JPRB &
+  &, 0.106952E+02_JPRB, 0.107358E+02_JPRB, 0.107758E+02_JPRB/)
+XCW( 977, :) = (/ &
+  &  0.120926E+01_JPRB, 0.126455E+01_JPRB, 0.132100E+01_JPRB, 0.137858E+01_JPRB &
+  &, 0.143728E+01_JPRB, 0.149708E+01_JPRB, 0.155795E+01_JPRB &
+  &, 0.161988E+01_JPRB, 0.168285E+01_JPRB, 0.174683E+01_JPRB, 0.181180E+01_JPRB &
+  &, 0.187774E+01_JPRB, 0.194463E+01_JPRB, 0.201244E+01_JPRB &
+  &, 0.208115E+01_JPRB, 0.215074E+01_JPRB, 0.222118E+01_JPRB, 0.229245E+01_JPRB &
+  &, 0.236453E+01_JPRB, 0.243738E+01_JPRB, 0.251100E+01_JPRB &
+  &, 0.258534E+01_JPRB, 0.266039E+01_JPRB, 0.273612E+01_JPRB, 0.281251E+01_JPRB &
+  &, 0.288953E+01_JPRB, 0.296716E+01_JPRB, 0.304536E+01_JPRB &
+  &, 0.312412E+01_JPRB, 0.320342E+01_JPRB, 0.328322E+01_JPRB, 0.336350E+01_JPRB &
+  &, 0.344424E+01_JPRB, 0.352541E+01_JPRB, 0.360698E+01_JPRB &
+  &, 0.368894E+01_JPRB, 0.377125E+01_JPRB, 0.385390E+01_JPRB, 0.393687E+01_JPRB &
+  &, 0.402012E+01_JPRB, 0.410364E+01_JPRB, 0.418740E+01_JPRB &
+  &, 0.427138E+01_JPRB, 0.435555E+01_JPRB, 0.443990E+01_JPRB, 0.452440E+01_JPRB &
+  &, 0.460903E+01_JPRB, 0.469378E+01_JPRB, 0.477861E+01_JPRB &
+  &, 0.486351E+01_JPRB, 0.494847E+01_JPRB, 0.503345E+01_JPRB, 0.511845E+01_JPRB &
+  &, 0.520343E+01_JPRB, 0.528839E+01_JPRB, 0.537328E+01_JPRB &
+  &, 0.545814E+01_JPRB, 0.554290E+01_JPRB, 0.562757E+01_JPRB, 0.571212E+01_JPRB &
+  &, 0.579653E+01_JPRB, 0.588080E+01_JPRB, 0.596489E+01_JPRB &
+  &, 0.604881E+01_JPRB, 0.613254E+01_JPRB, 0.621604E+01_JPRB, 0.629933E+01_JPRB &
+  &, 0.638236E+01_JPRB, 0.646514E+01_JPRB, 0.654768E+01_JPRB &
+  &, 0.662990E+01_JPRB, 0.671184E+01_JPRB, 0.679347E+01_JPRB, 0.687477E+01_JPRB &
+  &, 0.695575E+01_JPRB, 0.703637E+01_JPRB, 0.711666E+01_JPRB &
+  &, 0.719655E+01_JPRB, 0.727606E+01_JPRB, 0.735519E+01_JPRB, 0.743392E+01_JPRB &
+  &, 0.751223E+01_JPRB, 0.759010E+01_JPRB, 0.766756E+01_JPRB &
+  &, 0.774456E+01_JPRB, 0.782112E+01_JPRB, 0.789722E+01_JPRB, 0.797285E+01_JPRB &
+  &, 0.804799E+01_JPRB, 0.812262E+01_JPRB, 0.819680E+01_JPRB &
+  &, 0.827042E+01_JPRB, 0.834357E+01_JPRB, 0.841617E+01_JPRB, 0.848828E+01_JPRB &
+  &, 0.855982E+01_JPRB, 0.863082E+01_JPRB, 0.870128E+01_JPRB &
+  &, 0.877118E+01_JPRB, 0.884048E+01_JPRB, 0.890926E+01_JPRB, 0.897743E+01_JPRB &
+  &, 0.904504E+01_JPRB, 0.911206E+01_JPRB, 0.917847E+01_JPRB &
+  &, 0.924430E+01_JPRB, 0.930951E+01_JPRB, 0.937410E+01_JPRB, 0.943810E+01_JPRB &
+  &, 0.950144E+01_JPRB, 0.956419E+01_JPRB, 0.962632E+01_JPRB &
+  &, 0.968779E+01_JPRB, 0.974864E+01_JPRB, 0.980882E+01_JPRB, 0.986838E+01_JPRB &
+  &, 0.992728E+01_JPRB, 0.998553E+01_JPRB, 0.100431E+02_JPRB &
+  &, 0.101000E+02_JPRB, 0.101563E+02_JPRB, 0.102119E+02_JPRB, 0.102668E+02_JPRB &
+  &, 0.103210E+02_JPRB, 0.103747E+02_JPRB, 0.104275E+02_JPRB &
+  &, 0.104798E+02_JPRB, 0.105313E+02_JPRB, 0.105817E+02_JPRB, 0.106321E+02_JPRB &
+  &, 0.106818E+02_JPRB, 0.107306E+02_JPRB, 0.107787E+02_JPRB &
+  &, 0.108261E+02_JPRB, 0.108728E+02_JPRB, 0.109188E+02_JPRB, 0.109622E+02_JPRB &
+  &, 0.110086E+02_JPRB, 0.110526E+02_JPRB, 0.110957E+02_JPRB/)
+XCW( 978, :) = (/ &
+  &  0.121138E+01_JPRB, 0.126728E+01_JPRB, 0.132437E+01_JPRB, 0.138263E+01_JPRB &
+  &, 0.144204E+01_JPRB, 0.150257E+01_JPRB, 0.156422E+01_JPRB &
+  &, 0.162696E+01_JPRB, 0.169076E+01_JPRB, 0.175561E+01_JPRB, 0.182148E+01_JPRB &
+  &, 0.188836E+01_JPRB, 0.195621E+01_JPRB, 0.202503E+01_JPRB &
+  &, 0.209477E+01_JPRB, 0.216542E+01_JPRB, 0.223696E+01_JPRB, 0.230937E+01_JPRB &
+  &, 0.238261E+01_JPRB, 0.245666E+01_JPRB, 0.253150E+01_JPRB &
+  &, 0.260710E+01_JPRB, 0.268345E+01_JPRB, 0.276050E+01_JPRB, 0.283825E+01_JPRB &
+  &, 0.291665E+01_JPRB, 0.299570E+01_JPRB, 0.307536E+01_JPRB &
+  &, 0.315560E+01_JPRB, 0.323641E+01_JPRB, 0.331776E+01_JPRB, 0.339962E+01_JPRB &
+  &, 0.348196E+01_JPRB, 0.356476E+01_JPRB, 0.364801E+01_JPRB &
+  &, 0.373166E+01_JPRB, 0.381571E+01_JPRB, 0.390012E+01_JPRB, 0.398487E+01_JPRB &
+  &, 0.406994E+01_JPRB, 0.415531E+01_JPRB, 0.424093E+01_JPRB &
+  &, 0.432682E+01_JPRB, 0.441292E+01_JPRB, 0.449923E+01_JPRB, 0.458573E+01_JPRB &
+  &, 0.467238E+01_JPRB, 0.475917E+01_JPRB, 0.484607E+01_JPRB &
+  &, 0.493307E+01_JPRB, 0.502015E+01_JPRB, 0.510729E+01_JPRB, 0.519447E+01_JPRB &
+  &, 0.528166E+01_JPRB, 0.536885E+01_JPRB, 0.545602E+01_JPRB &
+  &, 0.554314E+01_JPRB, 0.563023E+01_JPRB, 0.571722E+01_JPRB, 0.580413E+01_JPRB &
+  &, 0.589093E+01_JPRB, 0.597761E+01_JPRB, 0.606414E+01_JPRB &
+  &, 0.615052E+01_JPRB, 0.623673E+01_JPRB, 0.632273E+01_JPRB, 0.640855E+01_JPRB &
+  &, 0.649413E+01_JPRB, 0.657950E+01_JPRB, 0.666462E+01_JPRB &
+  &, 0.674947E+01_JPRB, 0.683404E+01_JPRB, 0.691833E+01_JPRB, 0.700233E+01_JPRB &
+  &, 0.708601E+01_JPRB, 0.716936E+01_JPRB, 0.725237E+01_JPRB &
+  &, 0.733504E+01_JPRB, 0.741734E+01_JPRB, 0.749927E+01_JPRB, 0.758081E+01_JPRB &
+  &, 0.766196E+01_JPRB, 0.774270E+01_JPRB, 0.782304E+01_JPRB &
+  &, 0.790296E+01_JPRB, 0.798243E+01_JPRB, 0.806145E+01_JPRB, 0.814002E+01_JPRB &
+  &, 0.821814E+01_JPRB, 0.829578E+01_JPRB, 0.837293E+01_JPRB &
+  &, 0.844958E+01_JPRB, 0.852576E+01_JPRB, 0.860141E+01_JPRB, 0.867657E+01_JPRB &
+  &, 0.875118E+01_JPRB, 0.882528E+01_JPRB, 0.889886E+01_JPRB &
+  &, 0.897188E+01_JPRB, 0.904435E+01_JPRB, 0.911626E+01_JPRB, 0.918761E+01_JPRB &
+  &, 0.925838E+01_JPRB, 0.932856E+01_JPRB, 0.939814E+01_JPRB &
+  &, 0.946724E+01_JPRB, 0.953566E+01_JPRB, 0.960352E+01_JPRB, 0.967074E+01_JPRB &
+  &, 0.973739E+01_JPRB, 0.980340E+01_JPRB, 0.986880E+01_JPRB &
+  &, 0.993355E+01_JPRB, 0.999769E+01_JPRB, 0.100612E+02_JPRB, 0.101241E+02_JPRB &
+  &, 0.101863E+02_JPRB, 0.102479E+02_JPRB, 0.103088E+02_JPRB &
+  &, 0.103691E+02_JPRB, 0.104288E+02_JPRB, 0.104876E+02_JPRB, 0.105460E+02_JPRB &
+  &, 0.106028E+02_JPRB, 0.106607E+02_JPRB, 0.107169E+02_JPRB &
+  &, 0.107725E+02_JPRB, 0.108273E+02_JPRB, 0.108818E+02_JPRB, 0.109353E+02_JPRB &
+  &, 0.109882E+02_JPRB, 0.110405E+02_JPRB, 0.110920E+02_JPRB &
+  &, 0.111428E+02_JPRB, 0.111930E+02_JPRB, 0.112424E+02_JPRB, 0.112907E+02_JPRB &
+  &, 0.113392E+02_JPRB, 0.113866E+02_JPRB, 0.114332E+02_JPRB/)
+XCW( 979, :) = (/ &
+  &  0.121359E+01_JPRB, 0.127012E+01_JPRB, 0.132788E+01_JPRB, 0.138684E+01_JPRB &
+  &, 0.144699E+01_JPRB, 0.150830E+01_JPRB, 0.157075E+01_JPRB &
+  &, 0.163433E+01_JPRB, 0.169901E+01_JPRB, 0.176476E+01_JPRB, 0.183158E+01_JPRB &
+  &, 0.189943E+01_JPRB, 0.196830E+01_JPRB, 0.203816E+01_JPRB &
+  &, 0.210898E+01_JPRB, 0.218075E+01_JPRB, 0.225344E+01_JPRB, 0.232703E+01_JPRB &
+  &, 0.240148E+01_JPRB, 0.247678E+01_JPRB, 0.255291E+01_JPRB &
+  &, 0.262984E+01_JPRB, 0.270753E+01_JPRB, 0.278598E+01_JPRB, 0.286514E+01_JPRB &
+  &, 0.294501E+01_JPRB, 0.302554E+01_JPRB, 0.310672E+01_JPRB &
+  &, 0.318852E+01_JPRB, 0.327091E+01_JPRB, 0.335388E+01_JPRB, 0.343739E+01_JPRB &
+  &, 0.352142E+01_JPRB, 0.360594E+01_JPRB, 0.369093E+01_JPRB &
+  &, 0.377637E+01_JPRB, 0.386223E+01_JPRB, 0.394849E+01_JPRB, 0.403511E+01_JPRB &
+  &, 0.412209E+01_JPRB, 0.420939E+01_JPRB, 0.429699E+01_JPRB &
+  &, 0.438487E+01_JPRB, 0.447301E+01_JPRB, 0.456138E+01_JPRB, 0.464996E+01_JPRB &
+  &, 0.473874E+01_JPRB, 0.482768E+01_JPRB, 0.491676E+01_JPRB &
+  &, 0.500597E+01_JPRB, 0.509529E+01_JPRB, 0.518468E+01_JPRB, 0.527416E+01_JPRB &
+  &, 0.536367E+01_JPRB, 0.545321E+01_JPRB, 0.554276E+01_JPRB &
+  &, 0.563228E+01_JPRB, 0.572179E+01_JPRB, 0.581126E+01_JPRB, 0.590064E+01_JPRB &
+  &, 0.598995E+01_JPRB, 0.607917E+01_JPRB, 0.616826E+01_JPRB &
+  &, 0.625722E+01_JPRB, 0.634603E+01_JPRB, 0.643469E+01_JPRB, 0.652317E+01_JPRB &
+  &, 0.661145E+01_JPRB, 0.669953E+01_JPRB, 0.678736E+01_JPRB &
+  &, 0.687499E+01_JPRB, 0.696235E+01_JPRB, 0.704943E+01_JPRB, 0.713626E+01_JPRB &
+  &, 0.722279E+01_JPRB, 0.730900E+01_JPRB, 0.739492E+01_JPRB &
+  &, 0.748050E+01_JPRB, 0.756573E+01_JPRB, 0.765063E+01_JPRB, 0.773515E+01_JPRB &
+  &, 0.781932E+01_JPRB, 0.790308E+01_JPRB, 0.798645E+01_JPRB &
+  &, 0.806943E+01_JPRB, 0.815197E+01_JPRB, 0.823409E+01_JPRB, 0.831580E+01_JPRB &
+  &, 0.839704E+01_JPRB, 0.847782E+01_JPRB, 0.855814E+01_JPRB &
+  &, 0.863799E+01_JPRB, 0.871739E+01_JPRB, 0.879627E+01_JPRB, 0.887464E+01_JPRB &
+  &, 0.895254E+01_JPRB, 0.902991E+01_JPRB, 0.910675E+01_JPRB &
+  &, 0.918309E+01_JPRB, 0.925888E+01_JPRB, 0.933413E+01_JPRB, 0.940881E+01_JPRB &
+  &, 0.948297E+01_JPRB, 0.955657E+01_JPRB, 0.962958E+01_JPRB &
+  &, 0.970199E+01_JPRB, 0.977386E+01_JPRB, 0.984515E+01_JPRB, 0.991581E+01_JPRB &
+  &, 0.998589E+01_JPRB, 0.100554E+02_JPRB, 0.101243E+02_JPRB &
+  &, 0.101925E+02_JPRB, 0.102602E+02_JPRB, 0.103272E+02_JPRB, 0.103936E+02_JPRB &
+  &, 0.104594E+02_JPRB, 0.105245E+02_JPRB, 0.105890E+02_JPRB &
+  &, 0.106529E+02_JPRB, 0.107160E+02_JPRB, 0.107786E+02_JPRB, 0.108405E+02_JPRB &
+  &, 0.109017E+02_JPRB, 0.109623E+02_JPRB, 0.110221E+02_JPRB &
+  &, 0.110814E+02_JPRB, 0.111401E+02_JPRB, 0.111980E+02_JPRB, 0.112551E+02_JPRB &
+  &, 0.113113E+02_JPRB, 0.113676E+02_JPRB, 0.114224E+02_JPRB &
+  &, 0.114773E+02_JPRB, 0.115311E+02_JPRB, 0.115843E+02_JPRB, 0.116367E+02_JPRB &
+  &, 0.116884E+02_JPRB, 0.117395E+02_JPRB, 0.117898E+02_JPRB/)
+XCW( 980, :) = (/ &
+  &  0.121589E+01_JPRB, 0.127309E+01_JPRB, 0.133155E+01_JPRB, 0.139124E+01_JPRB &
+  &, 0.145216E+01_JPRB, 0.151427E+01_JPRB, 0.157757E+01_JPRB &
+  &, 0.164202E+01_JPRB, 0.170762E+01_JPRB, 0.177433E+01_JPRB, 0.184213E+01_JPRB &
+  &, 0.191101E+01_JPRB, 0.198093E+01_JPRB, 0.205189E+01_JPRB &
+  &, 0.212384E+01_JPRB, 0.219678E+01_JPRB, 0.227068E+01_JPRB, 0.234550E+01_JPRB &
+  &, 0.242124E+01_JPRB, 0.249785E+01_JPRB, 0.257533E+01_JPRB &
+  &, 0.265364E+01_JPRB, 0.273275E+01_JPRB, 0.281265E+01_JPRB, 0.289331E+01_JPRB &
+  &, 0.297470E+01_JPRB, 0.305680E+01_JPRB, 0.313957E+01_JPRB &
+  &, 0.322301E+01_JPRB, 0.330707E+01_JPRB, 0.339173E+01_JPRB, 0.347698E+01_JPRB &
+  &, 0.356278E+01_JPRB, 0.364911E+01_JPRB, 0.373594E+01_JPRB &
+  &, 0.382325E+01_JPRB, 0.391102E+01_JPRB, 0.399922E+01_JPRB, 0.408781E+01_JPRB &
+  &, 0.417679E+01_JPRB, 0.426613E+01_JPRB, 0.435582E+01_JPRB &
+  &, 0.444580E+01_JPRB, 0.453608E+01_JPRB, 0.462662E+01_JPRB, 0.471740E+01_JPRB &
+  &, 0.480840E+01_JPRB, 0.489960E+01_JPRB, 0.499099E+01_JPRB &
+  &, 0.508252E+01_JPRB, 0.517420E+01_JPRB, 0.526598E+01_JPRB, 0.535787E+01_JPRB &
+  &, 0.544982E+01_JPRB, 0.554184E+01_JPRB, 0.563389E+01_JPRB &
+  &, 0.572596E+01_JPRB, 0.581803E+01_JPRB, 0.591008E+01_JPRB, 0.600210E+01_JPRB &
+  &, 0.609406E+01_JPRB, 0.618595E+01_JPRB, 0.627774E+01_JPRB &
+  &, 0.636944E+01_JPRB, 0.646102E+01_JPRB, 0.655245E+01_JPRB, 0.664374E+01_JPRB &
+  &, 0.673485E+01_JPRB, 0.682579E+01_JPRB, 0.691653E+01_JPRB &
+  &, 0.700704E+01_JPRB, 0.709736E+01_JPRB, 0.718742E+01_JPRB, 0.727722E+01_JPRB &
+  &, 0.736676E+01_JPRB, 0.745601E+01_JPRB, 0.754500E+01_JPRB &
+  &, 0.763366E+01_JPRB, 0.772200E+01_JPRB, 0.781002E+01_JPRB, 0.789770E+01_JPRB &
+  &, 0.798504E+01_JPRB, 0.807199E+01_JPRB, 0.815857E+01_JPRB &
+  &, 0.824478E+01_JPRB, 0.833059E+01_JPRB, 0.841601E+01_JPRB, 0.850099E+01_JPRB &
+  &, 0.858558E+01_JPRB, 0.866970E+01_JPRB, 0.875340E+01_JPRB &
+  &, 0.883662E+01_JPRB, 0.891940E+01_JPRB, 0.900172E+01_JPRB, 0.908353E+01_JPRB &
+  &, 0.916486E+01_JPRB, 0.924573E+01_JPRB, 0.932607E+01_JPRB &
+  &, 0.940589E+01_JPRB, 0.948520E+01_JPRB, 0.956399E+01_JPRB, 0.964224E+01_JPRB &
+  &, 0.971996E+01_JPRB, 0.979713E+01_JPRB, 0.987376E+01_JPRB &
+  &, 0.994980E+01_JPRB, 0.100253E+02_JPRB, 0.101002E+02_JPRB, 0.101745E+02_JPRB &
+  &, 0.102483E+02_JPRB, 0.103215E+02_JPRB, 0.103941E+02_JPRB &
+  &, 0.104661E+02_JPRB, 0.105374E+02_JPRB, 0.106082E+02_JPRB, 0.106784E+02_JPRB &
+  &, 0.107479E+02_JPRB, 0.108168E+02_JPRB, 0.108850E+02_JPRB &
+  &, 0.109527E+02_JPRB, 0.110197E+02_JPRB, 0.110861E+02_JPRB, 0.111518E+02_JPRB &
+  &, 0.112169E+02_JPRB, 0.112813E+02_JPRB, 0.113450E+02_JPRB &
+  &, 0.114080E+02_JPRB, 0.114705E+02_JPRB, 0.115324E+02_JPRB, 0.115936E+02_JPRB &
+  &, 0.116540E+02_JPRB, 0.117138E+02_JPRB, 0.117729E+02_JPRB &
+  &, 0.118312E+02_JPRB, 0.118890E+02_JPRB, 0.119461E+02_JPRB, 0.120024E+02_JPRB &
+  &, 0.120580E+02_JPRB, 0.121131E+02_JPRB, 0.121674E+02_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART140',1,ZHOOK_HANDLE)
+END SUBROUTINE PART140
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART141
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART141',0,ZHOOK_HANDLE)
+
+XCW( 981, :) = (/ &
+  &  0.121829E+01_JPRB, 0.127619E+01_JPRB, 0.133538E+01_JPRB, 0.139584E+01_JPRB &
+  &, 0.145757E+01_JPRB, 0.152053E+01_JPRB, 0.158470E+01_JPRB &
+  &, 0.165008E+01_JPRB, 0.171663E+01_JPRB, 0.178434E+01_JPRB, 0.185318E+01_JPRB &
+  &, 0.192313E+01_JPRB, 0.199417E+01_JPRB, 0.206627E+01_JPRB &
+  &, 0.213942E+01_JPRB, 0.221358E+01_JPRB, 0.228874E+01_JPRB, 0.236487E+01_JPRB &
+  &, 0.244195E+01_JPRB, 0.251995E+01_JPRB, 0.259884E+01_JPRB &
+  &, 0.267861E+01_JPRB, 0.275922E+01_JPRB, 0.284065E+01_JPRB, 0.292288E+01_JPRB &
+  &, 0.300587E+01_JPRB, 0.308962E+01_JPRB, 0.317407E+01_JPRB &
+  &, 0.325922E+01_JPRB, 0.334504E+01_JPRB, 0.343150E+01_JPRB, 0.351858E+01_JPRB &
+  &, 0.360625E+01_JPRB, 0.369448E+01_JPRB, 0.378325E+01_JPRB &
+  &, 0.387254E+01_JPRB, 0.396231E+01_JPRB, 0.405256E+01_JPRB, 0.414323E+01_JPRB &
+  &, 0.423434E+01_JPRB, 0.432583E+01_JPRB, 0.441769E+01_JPRB &
+  &, 0.450989E+01_JPRB, 0.460243E+01_JPRB, 0.469525E+01_JPRB, 0.478836E+01_JPRB &
+  &, 0.488172E+01_JPRB, 0.497531E+01_JPRB, 0.506912E+01_JPRB &
+  &, 0.516311E+01_JPRB, 0.525727E+01_JPRB, 0.535159E+01_JPRB, 0.544603E+01_JPRB &
+  &, 0.554056E+01_JPRB, 0.563520E+01_JPRB, 0.572989E+01_JPRB &
+  &, 0.582465E+01_JPRB, 0.591943E+01_JPRB, 0.601421E+01_JPRB, 0.610900E+01_JPRB &
+  &, 0.620375E+01_JPRB, 0.629847E+01_JPRB, 0.639314E+01_JPRB &
+  &, 0.648772E+01_JPRB, 0.658222E+01_JPRB, 0.667660E+01_JPRB, 0.677087E+01_JPRB &
+  &, 0.686498E+01_JPRB, 0.695895E+01_JPRB, 0.705276E+01_JPRB &
+  &, 0.714635E+01_JPRB, 0.723977E+01_JPRB, 0.733298E+01_JPRB, 0.742594E+01_JPRB &
+  &, 0.751868E+01_JPRB, 0.761115E+01_JPRB, 0.770338E+01_JPRB &
+  &, 0.779530E+01_JPRB, 0.788694E+01_JPRB, 0.797828E+01_JPRB, 0.806930E+01_JPRB &
+  &, 0.815999E+01_JPRB, 0.825035E+01_JPRB, 0.834037E+01_JPRB &
+  &, 0.842999E+01_JPRB, 0.851928E+01_JPRB, 0.860816E+01_JPRB, 0.869667E+01_JPRB &
+  &, 0.878476E+01_JPRB, 0.887242E+01_JPRB, 0.895969E+01_JPRB &
+  &, 0.904653E+01_JPRB, 0.913292E+01_JPRB, 0.921885E+01_JPRB, 0.930431E+01_JPRB &
+  &, 0.938932E+01_JPRB, 0.947386E+01_JPRB, 0.955791E+01_JPRB &
+  &, 0.964147E+01_JPRB, 0.972455E+01_JPRB, 0.980709E+01_JPRB, 0.988914E+01_JPRB &
+  &, 0.997067E+01_JPRB, 0.100517E+02_JPRB, 0.101321E+02_JPRB &
+  &, 0.102120E+02_JPRB, 0.102914E+02_JPRB, 0.103702E+02_JPRB, 0.104484E+02_JPRB &
+  &, 0.105261E+02_JPRB, 0.106032E+02_JPRB, 0.106797E+02_JPRB &
+  &, 0.107557E+02_JPRB, 0.108310E+02_JPRB, 0.109058E+02_JPRB, 0.109799E+02_JPRB &
+  &, 0.110535E+02_JPRB, 0.111264E+02_JPRB, 0.111988E+02_JPRB &
+  &, 0.112704E+02_JPRB, 0.113415E+02_JPRB, 0.114120E+02_JPRB, 0.114818E+02_JPRB &
+  &, 0.115510E+02_JPRB, 0.116195E+02_JPRB, 0.116874E+02_JPRB &
+  &, 0.117546E+02_JPRB, 0.118212E+02_JPRB, 0.118872E+02_JPRB, 0.119524E+02_JPRB &
+  &, 0.120171E+02_JPRB, 0.120808E+02_JPRB, 0.121442E+02_JPRB &
+  &, 0.121992E+02_JPRB, 0.122689E+02_JPRB, 0.123301E+02_JPRB, 0.123907E+02_JPRB &
+  &, 0.124505E+02_JPRB, 0.125098E+02_JPRB, 0.125683E+02_JPRB/)
+XCW( 982, :) = (/ &
+  &  0.122081E+01_JPRB, 0.127943E+01_JPRB, 0.133939E+01_JPRB, 0.140066E+01_JPRB &
+  &, 0.146323E+01_JPRB, 0.152708E+01_JPRB, 0.159219E+01_JPRB &
+  &, 0.165853E+01_JPRB, 0.172609E+01_JPRB, 0.179485E+01_JPRB, 0.186478E+01_JPRB &
+  &, 0.193586E+01_JPRB, 0.200807E+01_JPRB, 0.208138E+01_JPRB &
+  &, 0.215578E+01_JPRB, 0.223124E+01_JPRB, 0.230774E+01_JPRB, 0.238524E+01_JPRB &
+  &, 0.246373E+01_JPRB, 0.254318E+01_JPRB, 0.262357E+01_JPRB &
+  &, 0.270488E+01_JPRB, 0.278706E+01_JPRB, 0.287011E+01_JPRB, 0.295400E+01_JPRB &
+  &, 0.303869E+01_JPRB, 0.312417E+01_JPRB, 0.321040E+01_JPRB &
+  &, 0.329737E+01_JPRB, 0.338504E+01_JPRB, 0.347340E+01_JPRB, 0.356240E+01_JPRB &
+  &, 0.365204E+01_JPRB, 0.374228E+01_JPRB, 0.383311E+01_JPRB &
+  &, 0.392448E+01_JPRB, 0.401638E+01_JPRB, 0.410878E+01_JPRB, 0.420166E+01_JPRB &
+  &, 0.429500E+01_JPRB, 0.438878E+01_JPRB, 0.448295E+01_JPRB &
+  &, 0.457750E+01_JPRB, 0.467242E+01_JPRB, 0.476767E+01_JPRB, 0.486323E+01_JPRB &
+  &, 0.495909E+01_JPRB, 0.505521E+01_JPRB, 0.515158E+01_JPRB &
+  &, 0.524818E+01_JPRB, 0.534498E+01_JPRB, 0.544195E+01_JPRB, 0.553910E+01_JPRB &
+  &, 0.563637E+01_JPRB, 0.573379E+01_JPRB, 0.583128E+01_JPRB &
+  &, 0.592888E+01_JPRB, 0.602653E+01_JPRB, 0.612423E+01_JPRB, 0.622196E+01_JPRB &
+  &, 0.631968E+01_JPRB, 0.641741E+01_JPRB, 0.651510E+01_JPRB &
+  &, 0.661275E+01_JPRB, 0.671034E+01_JPRB, 0.680784E+01_JPRB, 0.690527E+01_JPRB &
+  &, 0.700257E+01_JPRB, 0.709976E+01_JPRB, 0.719681E+01_JPRB &
+  &, 0.729369E+01_JPRB, 0.739041E+01_JPRB, 0.748694E+01_JPRB, 0.758330E+01_JPRB &
+  &, 0.767942E+01_JPRB, 0.777531E+01_JPRB, 0.787097E+01_JPRB &
+  &, 0.796638E+01_JPRB, 0.806154E+01_JPRB, 0.815639E+01_JPRB, 0.825096E+01_JPRB &
+  &, 0.834525E+01_JPRB, 0.843921E+01_JPRB, 0.853286E+01_JPRB &
+  &, 0.862615E+01_JPRB, 0.871910E+01_JPRB, 0.881170E+01_JPRB, 0.890392E+01_JPRB &
+  &, 0.899577E+01_JPRB, 0.908724E+01_JPRB, 0.917831E+01_JPRB &
+  &, 0.926894E+01_JPRB, 0.935917E+01_JPRB, 0.944898E+01_JPRB, 0.953834E+01_JPRB &
+  &, 0.962726E+01_JPRB, 0.971575E+01_JPRB, 0.980374E+01_JPRB &
+  &, 0.989128E+01_JPRB, 0.997834E+01_JPRB, 0.100649E+02_JPRB, 0.101510E+02_JPRB &
+  &, 0.102366E+02_JPRB, 0.103216E+02_JPRB, 0.104062E+02_JPRB &
+  &, 0.104902E+02_JPRB, 0.105737E+02_JPRB, 0.106567E+02_JPRB, 0.107391E+02_JPRB &
+  &, 0.108209E+02_JPRB, 0.109022E+02_JPRB, 0.109830E+02_JPRB &
+  &, 0.110632E+02_JPRB, 0.111428E+02_JPRB, 0.112218E+02_JPRB, 0.113003E+02_JPRB &
+  &, 0.113781E+02_JPRB, 0.114553E+02_JPRB, 0.115320E+02_JPRB &
+  &, 0.116080E+02_JPRB, 0.116835E+02_JPRB, 0.117583E+02_JPRB, 0.118325E+02_JPRB &
+  &, 0.119060E+02_JPRB, 0.119790E+02_JPRB, 0.120513E+02_JPRB &
+  &, 0.121230E+02_JPRB, 0.121940E+02_JPRB, 0.122644E+02_JPRB, 0.123341E+02_JPRB &
+  &, 0.124032E+02_JPRB, 0.124717E+02_JPRB, 0.125395E+02_JPRB &
+  &, 0.126065E+02_JPRB, 0.126730E+02_JPRB, 0.127389E+02_JPRB, 0.128020E+02_JPRB &
+  &, 0.128683E+02_JPRB, 0.129319E+02_JPRB, 0.129952E+02_JPRB/)
+XCW( 983, :) = (/ &
+  &  0.122345E+01_JPRB, 0.128284E+01_JPRB, 0.134361E+01_JPRB, 0.140573E+01_JPRB &
+  &, 0.146919E+01_JPRB, 0.153397E+01_JPRB, 0.160006E+01_JPRB &
+  &, 0.166742E+01_JPRB, 0.173604E+01_JPRB, 0.180591E+01_JPRB, 0.187699E+01_JPRB &
+  &, 0.194926E+01_JPRB, 0.202271E+01_JPRB, 0.209730E+01_JPRB &
+  &, 0.217303E+01_JPRB, 0.224985E+01_JPRB, 0.232776E+01_JPRB, 0.240671E+01_JPRB &
+  &, 0.248670E+01_JPRB, 0.256769E+01_JPRB, 0.264966E+01_JPRB &
+  &, 0.273259E+01_JPRB, 0.281644E+01_JPRB, 0.290120E+01_JPRB, 0.298684E+01_JPRB &
+  &, 0.307333E+01_JPRB, 0.316065E+01_JPRB, 0.324876E+01_JPRB &
+  &, 0.333765E+01_JPRB, 0.342729E+01_JPRB, 0.351765E+01_JPRB, 0.360870E+01_JPRB &
+  &, 0.370043E+01_JPRB, 0.379281E+01_JPRB, 0.388580E+01_JPRB &
+  &, 0.397938E+01_JPRB, 0.407354E+01_JPRB, 0.416823E+01_JPRB, 0.426345E+01_JPRB &
+  &, 0.435917E+01_JPRB, 0.445535E+01_JPRB, 0.455197E+01_JPRB &
+  &, 0.464902E+01_JPRB, 0.474647E+01_JPRB, 0.484429E+01_JPRB, 0.494248E+01_JPRB &
+  &, 0.504097E+01_JPRB, 0.513979E+01_JPRB, 0.523888E+01_JPRB &
+  &, 0.533824E+01_JPRB, 0.543783E+01_JPRB, 0.553765E+01_JPRB, 0.563767E+01_JPRB &
+  &, 0.573786E+01_JPRB, 0.583822E+01_JPRB, 0.593871E+01_JPRB &
+  &, 0.603932E+01_JPRB, 0.614001E+01_JPRB, 0.624080E+01_JPRB, 0.634165E+01_JPRB &
+  &, 0.644255E+01_JPRB, 0.654346E+01_JPRB, 0.664437E+01_JPRB &
+  &, 0.674529E+01_JPRB, 0.684617E+01_JPRB, 0.694703E+01_JPRB, 0.704781E+01_JPRB &
+  &, 0.714850E+01_JPRB, 0.724911E+01_JPRB, 0.734962E+01_JPRB &
+  &, 0.745000E+01_JPRB, 0.755024E+01_JPRB, 0.765034E+01_JPRB, 0.775026E+01_JPRB &
+  &, 0.785000E+01_JPRB, 0.794954E+01_JPRB, 0.804887E+01_JPRB &
+  &, 0.814799E+01_JPRB, 0.824687E+01_JPRB, 0.834550E+01_JPRB, 0.844387E+01_JPRB &
+  &, 0.854195E+01_JPRB, 0.863977E+01_JPRB, 0.873728E+01_JPRB &
+  &, 0.883448E+01_JPRB, 0.893137E+01_JPRB, 0.902794E+01_JPRB, 0.912413E+01_JPRB &
+  &, 0.921999E+01_JPRB, 0.931550E+01_JPRB, 0.941060E+01_JPRB &
+  &, 0.950536E+01_JPRB, 0.959970E+01_JPRB, 0.969363E+01_JPRB, 0.978717E+01_JPRB &
+  &, 0.988029E+01_JPRB, 0.997296E+01_JPRB, 0.100652E+02_JPRB &
+  &, 0.101570E+02_JPRB, 0.102483E+02_JPRB, 0.103392E+02_JPRB, 0.104296E+02_JPRB &
+  &, 0.105195E+02_JPRB, 0.106089E+02_JPRB, 0.106979E+02_JPRB &
+  &, 0.107863E+02_JPRB, 0.108742E+02_JPRB, 0.109617E+02_JPRB, 0.110485E+02_JPRB &
+  &, 0.111349E+02_JPRB, 0.112207E+02_JPRB, 0.113059E+02_JPRB &
+  &, 0.113907E+02_JPRB, 0.114749E+02_JPRB, 0.115584E+02_JPRB, 0.116415E+02_JPRB &
+  &, 0.117240E+02_JPRB, 0.118058E+02_JPRB, 0.118871E+02_JPRB &
+  &, 0.119678E+02_JPRB, 0.120479E+02_JPRB, 0.121274E+02_JPRB, 0.122063E+02_JPRB &
+  &, 0.122847E+02_JPRB, 0.123623E+02_JPRB, 0.124394E+02_JPRB &
+  &, 0.125158E+02_JPRB, 0.125916E+02_JPRB, 0.126668E+02_JPRB, 0.127414E+02_JPRB &
+  &, 0.128153E+02_JPRB, 0.128886E+02_JPRB, 0.129612E+02_JPRB &
+  &, 0.130332E+02_JPRB, 0.131045E+02_JPRB, 0.131751E+02_JPRB, 0.132451E+02_JPRB &
+  &, 0.133144E+02_JPRB, 0.133831E+02_JPRB, 0.134511E+02_JPRB/)
+XCW( 984, :) = (/ &
+  &  0.122624E+01_JPRB, 0.128643E+01_JPRB, 0.134805E+01_JPRB, 0.141107E+01_JPRB &
+  &, 0.147547E+01_JPRB, 0.154124E+01_JPRB, 0.160836E+01_JPRB &
+  &, 0.167680E+01_JPRB, 0.174655E+01_JPRB, 0.181758E+01_JPRB, 0.188988E+01_JPRB &
+  &, 0.196342E+01_JPRB, 0.203818E+01_JPRB, 0.211413E+01_JPRB &
+  &, 0.219125E+01_JPRB, 0.226952E+01_JPRB, 0.234892E+01_JPRB, 0.242942E+01_JPRB &
+  &, 0.251100E+01_JPRB, 0.259362E+01_JPRB, 0.267727E+01_JPRB &
+  &, 0.276192E+01_JPRB, 0.284755E+01_JPRB, 0.293412E+01_JPRB, 0.302162E+01_JPRB &
+  &, 0.311001E+01_JPRB, 0.319929E+01_JPRB, 0.328940E+01_JPRB &
+  &, 0.338033E+01_JPRB, 0.347206E+01_JPRB, 0.356455E+01_JPRB, 0.365778E+01_JPRB &
+  &, 0.375172E+01_JPRB, 0.384637E+01_JPRB, 0.394167E+01_JPRB &
+  &, 0.403761E+01_JPRB, 0.413417E+01_JPRB, 0.423130E+01_JPRB, 0.432901E+01_JPRB &
+  &, 0.442725E+01_JPRB, 0.452599E+01_JPRB, 0.462524E+01_JPRB &
+  &, 0.472494E+01_JPRB, 0.482508E+01_JPRB, 0.492564E+01_JPRB, 0.502660E+01_JPRB &
+  &, 0.512793E+01_JPRB, 0.522960E+01_JPRB, 0.533160E+01_JPRB &
+  &, 0.543390E+01_JPRB, 0.553648E+01_JPRB, 0.563932E+01_JPRB, 0.574240E+01_JPRB &
+  &, 0.584570E+01_JPRB, 0.594920E+01_JPRB, 0.605287E+01_JPRB &
+  &, 0.615671E+01_JPRB, 0.626066E+01_JPRB, 0.636475E+01_JPRB, 0.646894E+01_JPRB &
+  &, 0.657319E+01_JPRB, 0.667753E+01_JPRB, 0.678189E+01_JPRB &
+  &, 0.688629E+01_JPRB, 0.699068E+01_JPRB, 0.709508E+01_JPRB, 0.719947E+01_JPRB &
+  &, 0.730379E+01_JPRB, 0.740807E+01_JPRB, 0.751226E+01_JPRB &
+  &, 0.761638E+01_JPRB, 0.772039E+01_JPRB, 0.782428E+01_JPRB, 0.792804E+01_JPRB &
+  &, 0.803165E+01_JPRB, 0.813509E+01_JPRB, 0.823835E+01_JPRB &
+  &, 0.834142E+01_JPRB, 0.844429E+01_JPRB, 0.854696E+01_JPRB, 0.864939E+01_JPRB &
+  &, 0.875157E+01_JPRB, 0.885350E+01_JPRB, 0.895518E+01_JPRB &
+  &, 0.905656E+01_JPRB, 0.915766E+01_JPRB, 0.925845E+01_JPRB, 0.935892E+01_JPRB &
+  &, 0.945907E+01_JPRB, 0.955891E+01_JPRB, 0.965839E+01_JPRB &
+  &, 0.975750E+01_JPRB, 0.985626E+01_JPRB, 0.995463E+01_JPRB, 0.100526E+02_JPRB &
+  &, 0.101502E+02_JPRB, 0.102474E+02_JPRB, 0.103442E+02_JPRB &
+  &, 0.104406E+02_JPRB, 0.105365E+02_JPRB, 0.106320E+02_JPRB, 0.107270E+02_JPRB &
+  &, 0.108216E+02_JPRB, 0.109157E+02_JPRB, 0.110094E+02_JPRB &
+  &, 0.111025E+02_JPRB, 0.111952E+02_JPRB, 0.112874E+02_JPRB, 0.113791E+02_JPRB &
+  &, 0.114703E+02_JPRB, 0.115609E+02_JPRB, 0.116511E+02_JPRB &
+  &, 0.117407E+02_JPRB, 0.118298E+02_JPRB, 0.119183E+02_JPRB, 0.120063E+02_JPRB &
+  &, 0.120937E+02_JPRB, 0.121806E+02_JPRB, 0.122669E+02_JPRB &
+  &, 0.123526E+02_JPRB, 0.124378E+02_JPRB, 0.125223E+02_JPRB, 0.126063E+02_JPRB &
+  &, 0.126897E+02_JPRB, 0.127725E+02_JPRB, 0.128547E+02_JPRB &
+  &, 0.129363E+02_JPRB, 0.130172E+02_JPRB, 0.130976E+02_JPRB, 0.131773E+02_JPRB &
+  &, 0.132565E+02_JPRB, 0.133349E+02_JPRB, 0.134128E+02_JPRB &
+  &, 0.134900E+02_JPRB, 0.135666E+02_JPRB, 0.136426E+02_JPRB, 0.137178E+02_JPRB &
+  &, 0.137924E+02_JPRB, 0.138664E+02_JPRB, 0.139398E+02_JPRB/)
+XCW( 985, :) = (/ &
+  &  0.122918E+01_JPRB, 0.129023E+01_JPRB, 0.135275E+01_JPRB, 0.141672E+01_JPRB &
+  &, 0.148212E+01_JPRB, 0.154894E+01_JPRB, 0.161715E+01_JPRB &
+  &, 0.168674E+01_JPRB, 0.175768E+01_JPRB, 0.182996E+01_JPRB, 0.190355E+01_JPRB &
+  &, 0.197843E+01_JPRB, 0.205458E+01_JPRB, 0.213197E+01_JPRB &
+  &, 0.221059E+01_JPRB, 0.229040E+01_JPRB, 0.237139E+01_JPRB, 0.245352E+01_JPRB &
+  &, 0.253679E+01_JPRB, 0.262115E+01_JPRB, 0.270659E+01_JPRB &
+  &, 0.279307E+01_JPRB, 0.288059E+01_JPRB, 0.296910E+01_JPRB, 0.305858E+01_JPRB &
+  &, 0.314901E+01_JPRB, 0.324036E+01_JPRB, 0.333260E+01_JPRB &
+  &, 0.342571E+01_JPRB, 0.351967E+01_JPRB, 0.361444E+01_JPRB, 0.370999E+01_JPRB &
+  &, 0.380631E+01_JPRB, 0.390337E+01_JPRB, 0.400114E+01_JPRB &
+  &, 0.409958E+01_JPRB, 0.419870E+01_JPRB, 0.429845E+01_JPRB, 0.439880E+01_JPRB &
+  &, 0.449974E+01_JPRB, 0.460125E+01_JPRB, 0.470327E+01_JPRB &
+  &, 0.480581E+01_JPRB, 0.490885E+01_JPRB, 0.501234E+01_JPRB, 0.511626E+01_JPRB &
+  &, 0.522060E+01_JPRB, 0.532534E+01_JPRB, 0.543045E+01_JPRB &
+  &, 0.553590E+01_JPRB, 0.564168E+01_JPRB, 0.574776E+01_JPRB, 0.585412E+01_JPRB &
+  &, 0.596073E+01_JPRB, 0.606759E+01_JPRB, 0.617467E+01_JPRB &
+  &, 0.628195E+01_JPRB, 0.638941E+01_JPRB, 0.649703E+01_JPRB, 0.660478E+01_JPRB &
+  &, 0.671266E+01_JPRB, 0.682064E+01_JPRB, 0.692870E+01_JPRB &
+  &, 0.703684E+01_JPRB, 0.714501E+01_JPRB, 0.725322E+01_JPRB, 0.736145E+01_JPRB &
+  &, 0.746966E+01_JPRB, 0.757786E+01_JPRB, 0.768603E+01_JPRB &
+  &, 0.779416E+01_JPRB, 0.790219E+01_JPRB, 0.801016E+01_JPRB, 0.811802E+01_JPRB &
+  &, 0.822579E+01_JPRB, 0.833341E+01_JPRB, 0.844091E+01_JPRB &
+  &, 0.854825E+01_JPRB, 0.865540E+01_JPRB, 0.876241E+01_JPRB, 0.886918E+01_JPRB &
+  &, 0.897578E+01_JPRB, 0.908214E+01_JPRB, 0.918826E+01_JPRB &
+  &, 0.929415E+01_JPRB, 0.939975E+01_JPRB, 0.950513E+01_JPRB, 0.961020E+01_JPRB &
+  &, 0.971497E+01_JPRB, 0.981945E+01_JPRB, 0.992363E+01_JPRB &
+  &, 0.100274E+02_JPRB, 0.101310E+02_JPRB, 0.102341E+02_JPRB, 0.103369E+02_JPRB &
+  &, 0.104394E+02_JPRB, 0.105414E+02_JPRB, 0.106431E+02_JPRB &
+  &, 0.107444E+02_JPRB, 0.108453E+02_JPRB, 0.109457E+02_JPRB, 0.110458E+02_JPRB &
+  &, 0.111454E+02_JPRB, 0.112446E+02_JPRB, 0.113433E+02_JPRB &
+  &, 0.114416E+02_JPRB, 0.115394E+02_JPRB, 0.116368E+02_JPRB, 0.117336E+02_JPRB &
+  &, 0.118300E+02_JPRB, 0.119259E+02_JPRB, 0.120213E+02_JPRB &
+  &, 0.121162E+02_JPRB, 0.122106E+02_JPRB, 0.123044E+02_JPRB, 0.123977E+02_JPRB &
+  &, 0.124906E+02_JPRB, 0.125828E+02_JPRB, 0.126746E+02_JPRB &
+  &, 0.127657E+02_JPRB, 0.128563E+02_JPRB, 0.129464E+02_JPRB, 0.130359E+02_JPRB &
+  &, 0.131248E+02_JPRB, 0.132131E+02_JPRB, 0.133009E+02_JPRB &
+  &, 0.133880E+02_JPRB, 0.134746E+02_JPRB, 0.135605E+02_JPRB, 0.136459E+02_JPRB &
+  &, 0.137306E+02_JPRB, 0.138148E+02_JPRB, 0.138984E+02_JPRB &
+  &, 0.139813E+02_JPRB, 0.140636E+02_JPRB, 0.141452E+02_JPRB, 0.142263E+02_JPRB &
+  &, 0.143066E+02_JPRB, 0.143864E+02_JPRB, 0.144655E+02_JPRB/)
+XCW( 986, :) = (/ &
+  &  0.123230E+01_JPRB, 0.129426E+01_JPRB, 0.135773E+01_JPRB, 0.142271E+01_JPRB &
+  &, 0.148918E+01_JPRB, 0.155711E+01_JPRB, 0.162649E+01_JPRB &
+  &, 0.169730E+01_JPRB, 0.176952E+01_JPRB, 0.184312E+01_JPRB, 0.191809E+01_JPRB &
+  &, 0.199440E+01_JPRB, 0.207204E+01_JPRB, 0.215097E+01_JPRB &
+  &, 0.223117E+01_JPRB, 0.231263E+01_JPRB, 0.239532E+01_JPRB, 0.247921E+01_JPRB &
+  &, 0.256428E+01_JPRB, 0.265050E+01_JPRB, 0.273785E+01_JPRB &
+  &, 0.282630E+01_JPRB, 0.291583E+01_JPRB, 0.300641E+01_JPRB, 0.309802E+01_JPRB &
+  &, 0.319063E+01_JPRB, 0.328420E+01_JPRB, 0.337873E+01_JPRB &
+  &, 0.347417E+01_JPRB, 0.357051E+01_JPRB, 0.366772E+01_JPRB, 0.376576E+01_JPRB &
+  &, 0.386463E+01_JPRB, 0.396428E+01_JPRB, 0.406469E+01_JPRB &
+  &, 0.416584E+01_JPRB, 0.426769E+01_JPRB, 0.437024E+01_JPRB, 0.447344E+01_JPRB &
+  &, 0.457728E+01_JPRB, 0.468173E+01_JPRB, 0.478675E+01_JPRB &
+  &, 0.489234E+01_JPRB, 0.499847E+01_JPRB, 0.510510E+01_JPRB, 0.521222E+01_JPRB &
+  &, 0.531981E+01_JPRB, 0.542783E+01_JPRB, 0.553627E+01_JPRB &
+  &, 0.564511E+01_JPRB, 0.575431E+01_JPRB, 0.586387E+01_JPRB, 0.597376E+01_JPRB &
+  &, 0.608395E+01_JPRB, 0.619442E+01_JPRB, 0.630517E+01_JPRB &
+  &, 0.641616E+01_JPRB, 0.652737E+01_JPRB, 0.663876E+01_JPRB, 0.675039E+01_JPRB &
+  &, 0.686216E+01_JPRB, 0.697407E+01_JPRB, 0.708611E+01_JPRB &
+  &, 0.719827E+01_JPRB, 0.731051E+01_JPRB, 0.742282E+01_JPRB, 0.753519E+01_JPRB &
+  &, 0.764761E+01_JPRB, 0.776004E+01_JPRB, 0.787248E+01_JPRB &
+  &, 0.798492E+01_JPRB, 0.809731E+01_JPRB, 0.820967E+01_JPRB, 0.832199E+01_JPRB &
+  &, 0.843423E+01_JPRB, 0.854636E+01_JPRB, 0.865842E+01_JPRB &
+  &, 0.877033E+01_JPRB, 0.888214E+01_JPRB, 0.899379E+01_JPRB, 0.910528E+01_JPRB &
+  &, 0.921661E+01_JPRB, 0.932775E+01_JPRB, 0.943870E+01_JPRB &
+  &, 0.954946E+01_JPRB, 0.965995E+01_JPRB, 0.977024E+01_JPRB, 0.988029E+01_JPRB &
+  &, 0.999007E+01_JPRB, 0.100996E+02_JPRB, 0.102088E+02_JPRB &
+  &, 0.103178E+02_JPRB, 0.104264E+02_JPRB, 0.105347E+02_JPRB, 0.106427E+02_JPRB &
+  &, 0.107504E+02_JPRB, 0.108577E+02_JPRB, 0.109647E+02_JPRB &
+  &, 0.110713E+02_JPRB, 0.111775E+02_JPRB, 0.112834E+02_JPRB, 0.113889E+02_JPRB &
+  &, 0.114939E+02_JPRB, 0.115986E+02_JPRB, 0.117028E+02_JPRB &
+  &, 0.118066E+02_JPRB, 0.119100E+02_JPRB, 0.120130E+02_JPRB, 0.121155E+02_JPRB &
+  &, 0.122175E+02_JPRB, 0.123191E+02_JPRB, 0.124202E+02_JPRB &
+  &, 0.125208E+02_JPRB, 0.126209E+02_JPRB, 0.127206E+02_JPRB, 0.128197E+02_JPRB &
+  &, 0.129184E+02_JPRB, 0.130165E+02_JPRB, 0.131141E+02_JPRB &
+  &, 0.132112E+02_JPRB, 0.133077E+02_JPRB, 0.134038E+02_JPRB, 0.134992E+02_JPRB &
+  &, 0.135941E+02_JPRB, 0.136884E+02_JPRB, 0.137822E+02_JPRB &
+  &, 0.138755E+02_JPRB, 0.139681E+02_JPRB, 0.140602E+02_JPRB, 0.141517E+02_JPRB &
+  &, 0.142426E+02_JPRB, 0.143329E+02_JPRB, 0.144227E+02_JPRB &
+  &, 0.145118E+02_JPRB, 0.146003E+02_JPRB, 0.146882E+02_JPRB, 0.147755E+02_JPRB &
+  &, 0.148621E+02_JPRB, 0.149482E+02_JPRB, 0.150336E+02_JPRB/)
+XCW( 987, :) = (/ &
+  &  0.123563E+01_JPRB, 0.129855E+01_JPRB, 0.136305E+01_JPRB, 0.142911E+01_JPRB &
+  &, 0.149671E+01_JPRB, 0.156584E+01_JPRB, 0.163647E+01_JPRB &
+  &, 0.170858E+01_JPRB, 0.178216E+01_JPRB, 0.185718E+01_JPRB, 0.193363E+01_JPRB &
+  &, 0.201148E+01_JPRB, 0.209071E+01_JPRB, 0.217129E+01_JPRB &
+  &, 0.225320E+01_JPRB, 0.233643E+01_JPRB, 0.242094E+01_JPRB, 0.250671E+01_JPRB &
+  &, 0.259372E+01_JPRB, 0.268193E+01_JPRB, 0.277134E+01_JPRB &
+  &, 0.286191E+01_JPRB, 0.295361E+01_JPRB, 0.304641E+01_JPRB, 0.314030E+01_JPRB &
+  &, 0.323525E+01_JPRB, 0.333123E+01_JPRB, 0.342821E+01_JPRB &
+  &, 0.352616E+01_JPRB, 0.362507E+01_JPRB, 0.372490E+01_JPRB, 0.382563E+01_JPRB &
+  &, 0.392723E+01_JPRB, 0.402967E+01_JPRB, 0.413293E+01_JPRB &
+  &, 0.423698E+01_JPRB, 0.434180E+01_JPRB, 0.444736E+01_JPRB, 0.455363E+01_JPRB &
+  &, 0.466059E+01_JPRB, 0.476821E+01_JPRB, 0.487647E+01_JPRB &
+  &, 0.498536E+01_JPRB, 0.509481E+01_JPRB, 0.520485E+01_JPRB, 0.531541E+01_JPRB &
+  &, 0.542649E+01_JPRB, 0.553807E+01_JPRB, 0.565011E+01_JPRB &
+  &, 0.576260E+01_JPRB, 0.587552E+01_JPRB, 0.598883E+01_JPRB, 0.610253E+01_JPRB &
+  &, 0.621659E+01_JPRB, 0.633097E+01_JPRB, 0.644568E+01_JPRB &
+  &, 0.656067E+01_JPRB, 0.667596E+01_JPRB, 0.679147E+01_JPRB, 0.690723E+01_JPRB &
+  &, 0.702321E+01_JPRB, 0.713937E+01_JPRB, 0.725571E+01_JPRB &
+  &, 0.737222E+01_JPRB, 0.748886E+01_JPRB, 0.760562E+01_JPRB, 0.772248E+01_JPRB &
+  &, 0.783943E+01_JPRB, 0.795646E+01_JPRB, 0.807353E+01_JPRB &
+  &, 0.819063E+01_JPRB, 0.830775E+01_JPRB, 0.842488E+01_JPRB, 0.854199E+01_JPRB &
+  &, 0.865906E+01_JPRB, 0.877612E+01_JPRB, 0.889309E+01_JPRB &
+  &, 0.901000E+01_JPRB, 0.912682E+01_JPRB, 0.924355E+01_JPRB, 0.936015E+01_JPRB &
+  &, 0.947662E+01_JPRB, 0.959295E+01_JPRB, 0.970915E+01_JPRB &
+  &, 0.982514E+01_JPRB, 0.994097E+01_JPRB, 0.100566E+02_JPRB, 0.101720E+02_JPRB &
+  &, 0.102872E+02_JPRB, 0.104022E+02_JPRB, 0.105170E+02_JPRB &
+  &, 0.106313E+02_JPRB, 0.107457E+02_JPRB, 0.108596E+02_JPRB, 0.109733E+02_JPRB &
+  &, 0.110866E+02_JPRB, 0.111997E+02_JPRB, 0.113124E+02_JPRB &
+  &, 0.114248E+02_JPRB, 0.115369E+02_JPRB, 0.116486E+02_JPRB, 0.117600E+02_JPRB &
+  &, 0.118710E+02_JPRB, 0.119816E+02_JPRB, 0.120919E+02_JPRB &
+  &, 0.122017E+02_JPRB, 0.123112E+02_JPRB, 0.124202E+02_JPRB, 0.125288E+02_JPRB &
+  &, 0.126371E+02_JPRB, 0.127448E+02_JPRB, 0.128521E+02_JPRB &
+  &, 0.129590E+02_JPRB, 0.130654E+02_JPRB, 0.131714E+02_JPRB, 0.132769E+02_JPRB &
+  &, 0.133819E+02_JPRB, 0.134864E+02_JPRB, 0.135905E+02_JPRB &
+  &, 0.136940E+02_JPRB, 0.137970E+02_JPRB, 0.138995E+02_JPRB, 0.140015E+02_JPRB &
+  &, 0.141030E+02_JPRB, 0.142039E+02_JPRB, 0.143043E+02_JPRB &
+  &, 0.144042E+02_JPRB, 0.145035E+02_JPRB, 0.146023E+02_JPRB, 0.147005E+02_JPRB &
+  &, 0.147981E+02_JPRB, 0.148952E+02_JPRB, 0.149917E+02_JPRB &
+  &, 0.150876E+02_JPRB, 0.151829E+02_JPRB, 0.152777E+02_JPRB, 0.153719E+02_JPRB &
+  &, 0.154654E+02_JPRB, 0.155583E+02_JPRB, 0.156507E+02_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART141',1,ZHOOK_HANDLE)
+END SUBROUTINE PART141
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART142
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART142',0,ZHOOK_HANDLE)
+
+XCW( 988, :) = (/ &
+  &  0.123919E+01_JPRB, 0.130315E+01_JPRB, 0.136875E+01_JPRB, 0.143597E+01_JPRB &
+  &, 0.150479E+01_JPRB, 0.157520E+01_JPRB, 0.164717E+01_JPRB &
+  &, 0.172069E+01_JPRB, 0.179574E+01_JPRB, 0.187229E+01_JPRB, 0.195033E+01_JPRB &
+  &, 0.202983E+01_JPRB, 0.211078E+01_JPRB, 0.219314E+01_JPRB &
+  &, 0.227690E+01_JPRB, 0.236203E+01_JPRB, 0.244851E+01_JPRB, 0.253631E+01_JPRB &
+  &, 0.262541E+01_JPRB, 0.271579E+01_JPRB, 0.280741E+01_JPRB &
+  &, 0.290026E+01_JPRB, 0.299431E+01_JPRB, 0.308952E+01_JPRB, 0.318588E+01_JPRB &
+  &, 0.328336E+01_JPRB, 0.338194E+01_JPRB, 0.348157E+01_JPRB &
+  &, 0.358225E+01_JPRB, 0.368393E+01_JPRB, 0.378661E+01_JPRB, 0.389024E+01_JPRB &
+  &, 0.399481E+01_JPRB, 0.410027E+01_JPRB, 0.420662E+01_JPRB &
+  &, 0.431382E+01_JPRB, 0.442184E+01_JPRB, 0.453067E+01_JPRB, 0.464027E+01_JPRB &
+  &, 0.475062E+01_JPRB, 0.486168E+01_JPRB, 0.497345E+01_JPRB &
+  &, 0.508590E+01_JPRB, 0.519898E+01_JPRB, 0.531269E+01_JPRB, 0.542701E+01_JPRB &
+  &, 0.554189E+01_JPRB, 0.565731E+01_JPRB, 0.577327E+01_JPRB &
+  &, 0.588973E+01_JPRB, 0.600668E+01_JPRB, 0.612407E+01_JPRB, 0.624191E+01_JPRB &
+  &, 0.636016E+01_JPRB, 0.647879E+01_JPRB, 0.659780E+01_JPRB &
+  &, 0.671716E+01_JPRB, 0.683685E+01_JPRB, 0.695684E+01_JPRB, 0.707713E+01_JPRB &
+  &, 0.719768E+01_JPRB, 0.731847E+01_JPRB, 0.743950E+01_JPRB &
+  &, 0.756073E+01_JPRB, 0.768215E+01_JPRB, 0.780376E+01_JPRB, 0.792551E+01_JPRB &
+  &, 0.804740E+01_JPRB, 0.816941E+01_JPRB, 0.829153E+01_JPRB &
+  &, 0.841373E+01_JPRB, 0.853599E+01_JPRB, 0.865831E+01_JPRB, 0.878065E+01_JPRB &
+  &, 0.890304E+01_JPRB, 0.902541E+01_JPRB, 0.914777E+01_JPRB &
+  &, 0.927012E+01_JPRB, 0.939241E+01_JPRB, 0.951468E+01_JPRB, 0.963685E+01_JPRB &
+  &, 0.975893E+01_JPRB, 0.988073E+01_JPRB, 0.100028E+02_JPRB &
+  &, 0.101246E+02_JPRB, 0.102462E+02_JPRB, 0.103677E+02_JPRB, 0.104890E+02_JPRB &
+  &, 0.106101E+02_JPRB, 0.107311E+02_JPRB, 0.108519E+02_JPRB &
+  &, 0.109724E+02_JPRB, 0.110927E+02_JPRB, 0.112128E+02_JPRB, 0.113327E+02_JPRB &
+  &, 0.114522E+02_JPRB, 0.115715E+02_JPRB, 0.116906E+02_JPRB &
+  &, 0.118093E+02_JPRB, 0.119278E+02_JPRB, 0.120459E+02_JPRB, 0.121638E+02_JPRB &
+  &, 0.122813E+02_JPRB, 0.123985E+02_JPRB, 0.125153E+02_JPRB &
+  &, 0.126317E+02_JPRB, 0.127479E+02_JPRB, 0.128636E+02_JPRB, 0.129789E+02_JPRB &
+  &, 0.130939E+02_JPRB, 0.132084E+02_JPRB, 0.133226E+02_JPRB &
+  &, 0.134364E+02_JPRB, 0.135497E+02_JPRB, 0.136625E+02_JPRB, 0.137750E+02_JPRB &
+  &, 0.138870E+02_JPRB, 0.139985E+02_JPRB, 0.141096E+02_JPRB &
+  &, 0.142203E+02_JPRB, 0.143304E+02_JPRB, 0.144400E+02_JPRB, 0.145493E+02_JPRB &
+  &, 0.146579E+02_JPRB, 0.147661E+02_JPRB, 0.148738E+02_JPRB &
+  &, 0.149809E+02_JPRB, 0.150876E+02_JPRB, 0.151937E+02_JPRB, 0.152993E+02_JPRB &
+  &, 0.154044E+02_JPRB, 0.155089E+02_JPRB, 0.156129E+02_JPRB &
+  &, 0.157162E+02_JPRB, 0.158191E+02_JPRB, 0.159214E+02_JPRB, 0.160231E+02_JPRB &
+  &, 0.161243E+02_JPRB, 0.162249E+02_JPRB, 0.163249E+02_JPRB/)
+XCW( 989, :) = (/ &
+  &  0.124302E+01_JPRB, 0.130811E+01_JPRB, 0.137489E+01_JPRB, 0.144336E+01_JPRB &
+  &, 0.151351E+01_JPRB, 0.158530E+01_JPRB, 0.165873E+01_JPRB &
+  &, 0.173377E+01_JPRB, 0.181041E+01_JPRB, 0.188862E+01_JPRB, 0.196839E+01_JPRB &
+  &, 0.204969E+01_JPRB, 0.213249E+01_JPRB, 0.221679E+01_JPRB &
+  &, 0.230255E+01_JPRB, 0.238975E+01_JPRB, 0.247837E+01_JPRB, 0.256838E+01_JPRB &
+  &, 0.265976E+01_JPRB, 0.275248E+01_JPRB, 0.284652E+01_JPRB &
+  &, 0.294185E+01_JPRB, 0.303844E+01_JPRB, 0.313628E+01_JPRB, 0.323533E+01_JPRB &
+  &, 0.333557E+01_JPRB, 0.343696E+01_JPRB, 0.353950E+01_JPRB &
+  &, 0.364313E+01_JPRB, 0.374785E+01_JPRB, 0.385362E+01_JPRB, 0.396042E+01_JPRB &
+  &, 0.406821E+01_JPRB, 0.417698E+01_JPRB, 0.428670E+01_JPRB &
+  &, 0.439733E+01_JPRB, 0.450885E+01_JPRB, 0.462124E+01_JPRB, 0.473448E+01_JPRB &
+  &, 0.484853E+01_JPRB, 0.496336E+01_JPRB, 0.507896E+01_JPRB &
+  &, 0.519530E+01_JPRB, 0.531233E+01_JPRB, 0.543007E+01_JPRB, 0.554846E+01_JPRB &
+  &, 0.566750E+01_JPRB, 0.578714E+01_JPRB, 0.590738E+01_JPRB &
+  &, 0.602818E+01_JPRB, 0.614953E+01_JPRB, 0.627139E+01_JPRB, 0.639375E+01_JPRB &
+  &, 0.651659E+01_JPRB, 0.663988E+01_JPRB, 0.676360E+01_JPRB &
+  &, 0.688771E+01_JPRB, 0.701225E+01_JPRB, 0.713713E+01_JPRB, 0.726237E+01_JPRB &
+  &, 0.738792E+01_JPRB, 0.751380E+01_JPRB, 0.763995E+01_JPRB &
+  &, 0.776638E+01_JPRB, 0.789305E+01_JPRB, 0.801995E+01_JPRB, 0.814706E+01_JPRB &
+  &, 0.827437E+01_JPRB, 0.840186E+01_JPRB, 0.852950E+01_JPRB &
+  &, 0.865727E+01_JPRB, 0.878518E+01_JPRB, 0.891319E+01_JPRB, 0.904129E+01_JPRB &
+  &, 0.916948E+01_JPRB, 0.929771E+01_JPRB, 0.942598E+01_JPRB &
+  &, 0.955429E+01_JPRB, 0.968260E+01_JPRB, 0.981093E+01_JPRB, 0.993924E+01_JPRB &
+  &, 0.100675E+02_JPRB, 0.101957E+02_JPRB, 0.103239E+02_JPRB &
+  &, 0.104520E+02_JPRB, 0.105800E+02_JPRB, 0.107079E+02_JPRB, 0.108357E+02_JPRB &
+  &, 0.109633E+02_JPRB, 0.110909E+02_JPRB, 0.112182E+02_JPRB &
+  &, 0.113454E+02_JPRB, 0.114725E+02_JPRB, 0.115993E+02_JPRB, 0.117260E+02_JPRB &
+  &, 0.118524E+02_JPRB, 0.119786E+02_JPRB, 0.121046E+02_JPRB &
+  &, 0.122304E+02_JPRB, 0.123559E+02_JPRB, 0.124811E+02_JPRB, 0.126061E+02_JPRB &
+  &, 0.127307E+02_JPRB, 0.128551E+02_JPRB, 0.129792E+02_JPRB &
+  &, 0.131029E+02_JPRB, 0.132264E+02_JPRB, 0.133495E+02_JPRB, 0.134723E+02_JPRB &
+  &, 0.135947E+02_JPRB, 0.137167E+02_JPRB, 0.138385E+02_JPRB &
+  &, 0.139598E+02_JPRB, 0.140807E+02_JPRB, 0.142012E+02_JPRB, 0.143214E+02_JPRB &
+  &, 0.144411E+02_JPRB, 0.145604E+02_JPRB, 0.146793E+02_JPRB &
+  &, 0.147978E+02_JPRB, 0.149158E+02_JPRB, 0.150334E+02_JPRB, 0.151506E+02_JPRB &
+  &, 0.152672E+02_JPRB, 0.153834E+02_JPRB, 0.154992E+02_JPRB &
+  &, 0.156144E+02_JPRB, 0.157292E+02_JPRB, 0.158435E+02_JPRB, 0.159572E+02_JPRB &
+  &, 0.160705E+02_JPRB, 0.161833E+02_JPRB, 0.162956E+02_JPRB &
+  &, 0.164073E+02_JPRB, 0.165185E+02_JPRB, 0.166292E+02_JPRB, 0.167393E+02_JPRB &
+  &, 0.168489E+02_JPRB, 0.169579E+02_JPRB, 0.170664E+02_JPRB/)
+XCW( 990, :) = (/ &
+  &  0.124718E+01_JPRB, 0.131348E+01_JPRB, 0.138156E+01_JPRB, 0.145140E+01_JPRB &
+  &, 0.152298E+01_JPRB, 0.159628E+01_JPRB, 0.167130E+01_JPRB &
+  &, 0.174800E+01_JPRB, 0.182637E+01_JPRB, 0.190640E+01_JPRB, 0.198805E+01_JPRB &
+  &, 0.207131E+01_JPRB, 0.215615E+01_JPRB, 0.224256E+01_JPRB &
+  &, 0.233051E+01_JPRB, 0.241998E+01_JPRB, 0.251094E+01_JPRB, 0.260337E+01_JPRB &
+  &, 0.269724E+01_JPRB, 0.279253E+01_JPRB, 0.288921E+01_JPRB &
+  &, 0.298727E+01_JPRB, 0.308666E+01_JPRB, 0.318737E+01_JPRB, 0.328937E+01_JPRB &
+  &, 0.339263E+01_JPRB, 0.349713E+01_JPRB, 0.360284E+01_JPRB &
+  &, 0.370973E+01_JPRB, 0.381778E+01_JPRB, 0.392695E+01_JPRB, 0.403723E+01_JPRB &
+  &, 0.414857E+01_JPRB, 0.426097E+01_JPRB, 0.437439E+01_JPRB &
+  &, 0.448879E+01_JPRB, 0.460416E+01_JPRB, 0.472048E+01_JPRB, 0.483771E+01_JPRB &
+  &, 0.495583E+01_JPRB, 0.507480E+01_JPRB, 0.519461E+01_JPRB &
+  &, 0.531523E+01_JPRB, 0.543663E+01_JPRB, 0.555880E+01_JPRB, 0.568169E+01_JPRB &
+  &, 0.580529E+01_JPRB, 0.592958E+01_JPRB, 0.605453E+01_JPRB &
+  &, 0.618012E+01_JPRB, 0.630632E+01_JPRB, 0.643310E+01_JPRB, 0.656045E+01_JPRB &
+  &, 0.668836E+01_JPRB, 0.681677E+01_JPRB, 0.694569E+01_JPRB &
+  &, 0.707509E+01_JPRB, 0.720494E+01_JPRB, 0.733523E+01_JPRB, 0.746593E+01_JPRB &
+  &, 0.759703E+01_JPRB, 0.772849E+01_JPRB, 0.786030E+01_JPRB &
+  &, 0.799245E+01_JPRB, 0.812492E+01_JPRB, 0.825767E+01_JPRB, 0.839072E+01_JPRB &
+  &, 0.852400E+01_JPRB, 0.865753E+01_JPRB, 0.879130E+01_JPRB &
+  &, 0.892526E+01_JPRB, 0.905939E+01_JPRB, 0.919371E+01_JPRB, 0.932816E+01_JPRB &
+  &, 0.946276E+01_JPRB, 0.959748E+01_JPRB, 0.973230E+01_JPRB &
+  &, 0.986721E+01_JPRB, 0.100022E+02_JPRB, 0.101372E+02_JPRB, 0.102723E+02_JPRB &
+  &, 0.104074E+02_JPRB, 0.105425E+02_JPRB, 0.106777E+02_JPRB &
+  &, 0.108127E+02_JPRB, 0.109478E+02_JPRB, 0.110829E+02_JPRB, 0.112178E+02_JPRB &
+  &, 0.113527E+02_JPRB, 0.114875E+02_JPRB, 0.116222E+02_JPRB &
+  &, 0.117569E+02_JPRB, 0.118913E+02_JPRB, 0.120257E+02_JPRB, 0.121599E+02_JPRB &
+  &, 0.122940E+02_JPRB, 0.124279E+02_JPRB, 0.125615E+02_JPRB &
+  &, 0.126951E+02_JPRB, 0.128284E+02_JPRB, 0.129615E+02_JPRB, 0.130943E+02_JPRB &
+  &, 0.132270E+02_JPRB, 0.133594E+02_JPRB, 0.134915E+02_JPRB &
+  &, 0.136234E+02_JPRB, 0.137550E+02_JPRB, 0.138863E+02_JPRB, 0.140174E+02_JPRB &
+  &, 0.141481E+02_JPRB, 0.142785E+02_JPRB, 0.144086E+02_JPRB &
+  &, 0.145383E+02_JPRB, 0.146678E+02_JPRB, 0.147968E+02_JPRB, 0.149256E+02_JPRB &
+  &, 0.150539E+02_JPRB, 0.151819E+02_JPRB, 0.153095E+02_JPRB &
+  &, 0.154367E+02_JPRB, 0.155636E+02_JPRB, 0.156899E+02_JPRB, 0.158160E+02_JPRB &
+  &, 0.159415E+02_JPRB, 0.160667E+02_JPRB, 0.161914E+02_JPRB &
+  &, 0.163157E+02_JPRB, 0.164396E+02_JPRB, 0.165630E+02_JPRB, 0.166859E+02_JPRB &
+  &, 0.168084E+02_JPRB, 0.169304E+02_JPRB, 0.170519E+02_JPRB &
+  &, 0.171729E+02_JPRB, 0.172935E+02_JPRB, 0.174135E+02_JPRB, 0.175330E+02_JPRB &
+  &, 0.176520E+02_JPRB, 0.177706E+02_JPRB, 0.178886E+02_JPRB/)
+XCW( 991, :) = (/ &
+  &  0.125173E+01_JPRB, 0.131937E+01_JPRB, 0.138887E+01_JPRB, 0.146020E+01_JPRB &
+  &, 0.153336E+01_JPRB, 0.160833E+01_JPRB, 0.168509E+01_JPRB &
+  &, 0.176362E+01_JPRB, 0.184390E+01_JPRB, 0.192592E+01_JPRB, 0.200965E+01_JPRB &
+  &, 0.209507E+01_JPRB, 0.218217E+01_JPRB, 0.227091E+01_JPRB &
+  &, 0.236127E+01_JPRB, 0.245324E+01_JPRB, 0.254679E+01_JPRB, 0.264189E+01_JPRB &
+  &, 0.273852E+01_JPRB, 0.283665E+01_JPRB, 0.293626E+01_JPRB &
+  &, 0.303732E+01_JPRB, 0.313982E+01_JPRB, 0.324371E+01_JPRB, 0.334897E+01_JPRB &
+  &, 0.345559E+01_JPRB, 0.356352E+01_JPRB, 0.367275E+01_JPRB &
+  &, 0.378324E+01_JPRB, 0.389498E+01_JPRB, 0.400792E+01_JPRB, 0.412205E+01_JPRB &
+  &, 0.423734E+01_JPRB, 0.435376E+01_JPRB, 0.447128E+01_JPRB &
+  &, 0.458988E+01_JPRB, 0.470953E+01_JPRB, 0.483019E+01_JPRB, 0.495186E+01_JPRB &
+  &, 0.507450E+01_JPRB, 0.519807E+01_JPRB, 0.532256E+01_JPRB &
+  &, 0.544794E+01_JPRB, 0.557419E+01_JPRB, 0.570128E+01_JPRB, 0.582918E+01_JPRB &
+  &, 0.595787E+01_JPRB, 0.608732E+01_JPRB, 0.621751E+01_JPRB &
+  &, 0.634842E+01_JPRB, 0.648002E+01_JPRB, 0.661228E+01_JPRB, 0.674520E+01_JPRB &
+  &, 0.687872E+01_JPRB, 0.701285E+01_JPRB, 0.714755E+01_JPRB &
+  &, 0.728281E+01_JPRB, 0.741861E+01_JPRB, 0.755491E+01_JPRB, 0.769170E+01_JPRB &
+  &, 0.782896E+01_JPRB, 0.796667E+01_JPRB, 0.810479E+01_JPRB &
+  &, 0.824333E+01_JPRB, 0.838227E+01_JPRB, 0.852156E+01_JPRB, 0.866120E+01_JPRB &
+  &, 0.880117E+01_JPRB, 0.894145E+01_JPRB, 0.908203E+01_JPRB &
+  &, 0.922288E+01_JPRB, 0.936398E+01_JPRB, 0.950533E+01_JPRB, 0.964689E+01_JPRB &
+  &, 0.978868E+01_JPRB, 0.993064E+01_JPRB, 0.100728E+02_JPRB &
+  &, 0.102150E+02_JPRB, 0.103575E+02_JPRB, 0.105000E+02_JPRB, 0.106427E+02_JPRB &
+  &, 0.107854E+02_JPRB, 0.109283E+02_JPRB, 0.110712E+02_JPRB &
+  &, 0.112141E+02_JPRB, 0.113571E+02_JPRB, 0.115001E+02_JPRB, 0.116431E+02_JPRB &
+  &, 0.117861E+02_JPRB, 0.119291E+02_JPRB, 0.120720E+02_JPRB &
+  &, 0.122149E+02_JPRB, 0.123577E+02_JPRB, 0.125005E+02_JPRB, 0.126432E+02_JPRB &
+  &, 0.127858E+02_JPRB, 0.129282E+02_JPRB, 0.130706E+02_JPRB &
+  &, 0.132128E+02_JPRB, 0.133549E+02_JPRB, 0.134968E+02_JPRB, 0.136386E+02_JPRB &
+  &, 0.137802E+02_JPRB, 0.139216E+02_JPRB, 0.140628E+02_JPRB &
+  &, 0.142038E+02_JPRB, 0.143445E+02_JPRB, 0.144851E+02_JPRB, 0.146254E+02_JPRB &
+  &, 0.147654E+02_JPRB, 0.149052E+02_JPRB, 0.150448E+02_JPRB &
+  &, 0.151840E+02_JPRB, 0.153230E+02_JPRB, 0.154617E+02_JPRB, 0.156000E+02_JPRB &
+  &, 0.157381E+02_JPRB, 0.158758E+02_JPRB, 0.160132E+02_JPRB &
+  &, 0.161503E+02_JPRB, 0.162870E+02_JPRB, 0.164234E+02_JPRB, 0.165594E+02_JPRB &
+  &, 0.166950E+02_JPRB, 0.168303E+02_JPRB, 0.169652E+02_JPRB &
+  &, 0.170996E+02_JPRB, 0.172338E+02_JPRB, 0.173674E+02_JPRB, 0.175007E+02_JPRB &
+  &, 0.176335E+02_JPRB, 0.177659E+02_JPRB, 0.178979E+02_JPRB &
+  &, 0.180294E+02_JPRB, 0.181605E+02_JPRB, 0.182912E+02_JPRB, 0.184214E+02_JPRB &
+  &, 0.185511E+02_JPRB, 0.186803E+02_JPRB, 0.188090E+02_JPRB/)
+XCW( 992, :) = (/ &
+  &  0.125676E+01_JPRB, 0.132588E+01_JPRB, 0.139695E+01_JPRB, 0.146994E+01_JPRB &
+  &, 0.154486E+01_JPRB, 0.162167E+01_JPRB, 0.170037E+01_JPRB &
+  &, 0.178094E+01_JPRB, 0.186335E+01_JPRB, 0.194759E+01_JPRB, 0.203364E+01_JPRB &
+  &, 0.212147E+01_JPRB, 0.221107E+01_JPRB, 0.230242E+01_JPRB &
+  &, 0.239548E+01_JPRB, 0.249024E+01_JPRB, 0.258668E+01_JPRB, 0.268476E+01_JPRB &
+  &, 0.278447E+01_JPRB, 0.288578E+01_JPRB, 0.298867E+01_JPRB &
+  &, 0.309310E+01_JPRB, 0.319906E+01_JPRB, 0.330651E+01_JPRB, 0.341544E+01_JPRB &
+  &, 0.352580E+01_JPRB, 0.363759E+01_JPRB, 0.375076E+01_JPRB &
+  &, 0.386529E+01_JPRB, 0.398116E+01_JPRB, 0.409834E+01_JPRB, 0.421679E+01_JPRB &
+  &, 0.433650E+01_JPRB, 0.445744E+01_JPRB, 0.457957E+01_JPRB &
+  &, 0.470287E+01_JPRB, 0.482728E+01_JPRB, 0.495287E+01_JPRB, 0.507952E+01_JPRB &
+  &, 0.520723E+01_JPRB, 0.533597E+01_JPRB, 0.546572E+01_JPRB &
+  &, 0.559646E+01_JPRB, 0.572815E+01_JPRB, 0.586077E+01_JPRB, 0.599430E+01_JPRB &
+  &, 0.612871E+01_JPRB, 0.626398E+01_JPRB, 0.640006E+01_JPRB &
+  &, 0.653696E+01_JPRB, 0.667463E+01_JPRB, 0.681307E+01_JPRB, 0.695224E+01_JPRB &
+  &, 0.709211E+01_JPRB, 0.723267E+01_JPRB, 0.737390E+01_JPRB &
+  &, 0.751576E+01_JPRB, 0.765825E+01_JPRB, 0.780134E+01_JPRB, 0.794500E+01_JPRB &
+  &, 0.808919E+01_JPRB, 0.823394E+01_JPRB, 0.837920E+01_JPRB &
+  &, 0.852495E+01_JPRB, 0.867117E+01_JPRB, 0.881782E+01_JPRB, 0.896493E+01_JPRB &
+  &, 0.911243E+01_JPRB, 0.926035E+01_JPRB, 0.940861E+01_JPRB &
+  &, 0.955725E+01_JPRB, 0.970624E+01_JPRB, 0.985553E+01_JPRB, 0.100051E+02_JPRB &
+  &, 0.101550E+02_JPRB, 0.103051E+02_JPRB, 0.104555E+02_JPRB &
+  &, 0.106062E+02_JPRB, 0.107570E+02_JPRB, 0.109081E+02_JPRB, 0.110593E+02_JPRB &
+  &, 0.112107E+02_JPRB, 0.113623E+02_JPRB, 0.115140E+02_JPRB &
+  &, 0.116658E+02_JPRB, 0.118177E+02_JPRB, 0.119697E+02_JPRB, 0.121218E+02_JPRB &
+  &, 0.122740E+02_JPRB, 0.124262E+02_JPRB, 0.125785E+02_JPRB &
+  &, 0.127308E+02_JPRB, 0.128831E+02_JPRB, 0.130354E+02_JPRB, 0.131877E+02_JPRB &
+  &, 0.133400E+02_JPRB, 0.134922E+02_JPRB, 0.136443E+02_JPRB &
+  &, 0.137965E+02_JPRB, 0.139485E+02_JPRB, 0.141005E+02_JPRB, 0.142523E+02_JPRB &
+  &, 0.144040E+02_JPRB, 0.145557E+02_JPRB, 0.147071E+02_JPRB &
+  &, 0.148585E+02_JPRB, 0.150097E+02_JPRB, 0.151607E+02_JPRB, 0.153116E+02_JPRB &
+  &, 0.154623E+02_JPRB, 0.156128E+02_JPRB, 0.157630E+02_JPRB &
+  &, 0.159131E+02_JPRB, 0.160629E+02_JPRB, 0.162125E+02_JPRB, 0.163619E+02_JPRB &
+  &, 0.165110E+02_JPRB, 0.166598E+02_JPRB, 0.168084E+02_JPRB &
+  &, 0.169567E+02_JPRB, 0.171047E+02_JPRB, 0.172524E+02_JPRB, 0.173998E+02_JPRB &
+  &, 0.175469E+02_JPRB, 0.176937E+02_JPRB, 0.178402E+02_JPRB &
+  &, 0.179863E+02_JPRB, 0.181320E+02_JPRB, 0.182775E+02_JPRB, 0.184225E+02_JPRB &
+  &, 0.185672E+02_JPRB, 0.187115E+02_JPRB, 0.188555E+02_JPRB &
+  &, 0.189990E+02_JPRB, 0.191422E+02_JPRB, 0.192849E+02_JPRB, 0.194273E+02_JPRB &
+  &, 0.195692E+02_JPRB, 0.197107E+02_JPRB, 0.198517E+02_JPRB/)
+XCW( 993, :) = (/ &
+  &  0.126240E+01_JPRB, 0.133318E+01_JPRB, 0.140601E+01_JPRB, 0.148088E+01_JPRB &
+  &, 0.155776E+01_JPRB, 0.163666E+01_JPRB, 0.171755E+01_JPRB &
+  &, 0.180041E+01_JPRB, 0.188522E+01_JPRB, 0.197197E+01_JPRB, 0.206063E+01_JPRB &
+  &, 0.215119E+01_JPRB, 0.224363E+01_JPRB, 0.233792E+01_JPRB &
+  &, 0.243404E+01_JPRB, 0.253196E+01_JPRB, 0.263167E+01_JPRB, 0.273314E+01_JPRB &
+  &, 0.283634E+01_JPRB, 0.294126E+01_JPRB, 0.304785E+01_JPRB &
+  &, 0.315611E+01_JPRB, 0.326600E+01_JPRB, 0.337750E+01_JPRB, 0.349058E+01_JPRB &
+  &, 0.360521E+01_JPRB, 0.372137E+01_JPRB, 0.383903E+01_JPRB &
+  &, 0.395815E+01_JPRB, 0.407872E+01_JPRB, 0.420072E+01_JPRB, 0.432409E+01_JPRB &
+  &, 0.444883E+01_JPRB, 0.457490E+01_JPRB, 0.470228E+01_JPRB &
+  &, 0.483094E+01_JPRB, 0.496084E+01_JPRB, 0.509197E+01_JPRB, 0.522429E+01_JPRB &
+  &, 0.535779E+01_JPRB, 0.549243E+01_JPRB, 0.562818E+01_JPRB &
+  &, 0.576503E+01_JPRB, 0.590292E+01_JPRB, 0.604187E+01_JPRB, 0.618181E+01_JPRB &
+  &, 0.632275E+01_JPRB, 0.646465E+01_JPRB, 0.660747E+01_JPRB &
+  &, 0.675120E+01_JPRB, 0.689583E+01_JPRB, 0.704130E+01_JPRB, 0.718761E+01_JPRB &
+  &, 0.733474E+01_JPRB, 0.748266E+01_JPRB, 0.763134E+01_JPRB &
+  &, 0.778075E+01_JPRB, 0.793090E+01_JPRB, 0.808173E+01_JPRB, 0.823324E+01_JPRB &
+  &, 0.838541E+01_JPRB, 0.853821E+01_JPRB, 0.869160E+01_JPRB &
+  &, 0.884560E+01_JPRB, 0.900017E+01_JPRB, 0.915528E+01_JPRB, 0.931092E+01_JPRB &
+  &, 0.946706E+01_JPRB, 0.962370E+01_JPRB, 0.978081E+01_JPRB &
+  &, 0.993838E+01_JPRB, 0.100964E+02_JPRB, 0.102548E+02_JPRB, 0.104136E+02_JPRB &
+  &, 0.105727E+02_JPRB, 0.107323E+02_JPRB, 0.108921E+02_JPRB &
+  &, 0.110524E+02_JPRB, 0.112129E+02_JPRB, 0.113737E+02_JPRB, 0.115347E+02_JPRB &
+  &, 0.116961E+02_JPRB, 0.118577E+02_JPRB, 0.120195E+02_JPRB &
+  &, 0.121815E+02_JPRB, 0.123437E+02_JPRB, 0.125061E+02_JPRB, 0.126687E+02_JPRB &
+  &, 0.128314E+02_JPRB, 0.129943E+02_JPRB, 0.131573E+02_JPRB &
+  &, 0.133204E+02_JPRB, 0.134836E+02_JPRB, 0.136469E+02_JPRB, 0.138102E+02_JPRB &
+  &, 0.139736E+02_JPRB, 0.141371E+02_JPRB, 0.143005E+02_JPRB &
+  &, 0.144640E+02_JPRB, 0.146275E+02_JPRB, 0.147910E+02_JPRB, 0.149545E+02_JPRB &
+  &, 0.151180E+02_JPRB, 0.152814E+02_JPRB, 0.154447E+02_JPRB &
+  &, 0.156081E+02_JPRB, 0.157713E+02_JPRB, 0.159344E+02_JPRB, 0.160974E+02_JPRB &
+  &, 0.162604E+02_JPRB, 0.164231E+02_JPRB, 0.165858E+02_JPRB &
+  &, 0.167484E+02_JPRB, 0.169108E+02_JPRB, 0.170730E+02_JPRB, 0.172351E+02_JPRB &
+  &, 0.173969E+02_JPRB, 0.175586E+02_JPRB, 0.177201E+02_JPRB &
+  &, 0.178814E+02_JPRB, 0.180425E+02_JPRB, 0.182033E+02_JPRB, 0.183639E+02_JPRB &
+  &, 0.185243E+02_JPRB, 0.186844E+02_JPRB, 0.188443E+02_JPRB &
+  &, 0.190039E+02_JPRB, 0.191632E+02_JPRB, 0.193222E+02_JPRB, 0.194809E+02_JPRB &
+  &, 0.196394E+02_JPRB, 0.197975E+02_JPRB, 0.199553E+02_JPRB &
+  &, 0.201128E+02_JPRB, 0.202699E+02_JPRB, 0.204267E+02_JPRB, 0.205832E+02_JPRB &
+  &, 0.207393E+02_JPRB, 0.208951E+02_JPRB, 0.210504E+02_JPRB/)
+XCW( 994, :) = (/ &
+  &  0.126881E+01_JPRB, 0.134149E+01_JPRB, 0.141634E+01_JPRB, 0.149335E+01_JPRB &
+  &, 0.157250E+01_JPRB, 0.165378E+01_JPRB, 0.173717E+01_JPRB &
+  &, 0.182267E+01_JPRB, 0.191024E+01_JPRB, 0.199987E+01_JPRB, 0.209155E+01_JPRB &
+  &, 0.218525E+01_JPRB, 0.228095E+01_JPRB, 0.237863E+01_JPRB &
+  &, 0.247827E+01_JPRB, 0.257984E+01_JPRB, 0.268332E+01_JPRB, 0.278870E+01_JPRB &
+  &, 0.289593E+01_JPRB, 0.300501E+01_JPRB, 0.311590E+01_JPRB &
+  &, 0.322857E+01_JPRB, 0.334301E+01_JPRB, 0.345919E+01_JPRB, 0.357707E+01_JPRB &
+  &, 0.369664E+01_JPRB, 0.381785E+01_JPRB, 0.394070E+01_JPRB &
+  &, 0.406515E+01_JPRB, 0.419117E+01_JPRB, 0.431874E+01_JPRB, 0.444782E+01_JPRB &
+  &, 0.457839E+01_JPRB, 0.471042E+01_JPRB, 0.484388E+01_JPRB &
+  &, 0.497874E+01_JPRB, 0.511499E+01_JPRB, 0.525259E+01_JPRB, 0.539151E+01_JPRB &
+  &, 0.553172E+01_JPRB, 0.567320E+01_JPRB, 0.581592E+01_JPRB &
+  &, 0.595986E+01_JPRB, 0.610497E+01_JPRB, 0.625126E+01_JPRB, 0.639867E+01_JPRB &
+  &, 0.654719E+01_JPRB, 0.669679E+01_JPRB, 0.684746E+01_JPRB &
+  &, 0.699915E+01_JPRB, 0.715185E+01_JPRB, 0.730552E+01_JPRB, 0.746016E+01_JPRB &
+  &, 0.761573E+01_JPRB, 0.777220E+01_JPRB, 0.792956E+01_JPRB &
+  &, 0.808778E+01_JPRB, 0.824685E+01_JPRB, 0.840672E+01_JPRB, 0.856738E+01_JPRB &
+  &, 0.872876E+01_JPRB, 0.889101E+01_JPRB, 0.905392E+01_JPRB &
+  &, 0.921753E+01_JPRB, 0.938183E+01_JPRB, 0.954679E+01_JPRB, 0.971240E+01_JPRB &
+  &, 0.987863E+01_JPRB, 0.100455E+02_JPRB, 0.102129E+02_JPRB &
+  &, 0.103808E+02_JPRB, 0.105494E+02_JPRB, 0.107184E+02_JPRB, 0.108880E+02_JPRB &
+  &, 0.110580E+02_JPRB, 0.112285E+02_JPRB, 0.113995E+02_JPRB &
+  &, 0.115709E+02_JPRB, 0.117427E+02_JPRB, 0.119149E+02_JPRB, 0.120875E+02_JPRB &
+  &, 0.122605E+02_JPRB, 0.124338E+02_JPRB, 0.126075E+02_JPRB &
+  &, 0.127814E+02_JPRB, 0.129557E+02_JPRB, 0.131303E+02_JPRB, 0.133051E+02_JPRB &
+  &, 0.134802E+02_JPRB, 0.136555E+02_JPRB, 0.138311E+02_JPRB &
+  &, 0.140068E+02_JPRB, 0.141828E+02_JPRB, 0.143590E+02_JPRB, 0.145353E+02_JPRB &
+  &, 0.147118E+02_JPRB, 0.148884E+02_JPRB, 0.150652E+02_JPRB &
+  &, 0.152420E+02_JPRB, 0.154190E+02_JPRB, 0.155961E+02_JPRB, 0.157732E+02_JPRB &
+  &, 0.159504E+02_JPRB, 0.161277E+02_JPRB, 0.163049E+02_JPRB &
+  &, 0.164823E+02_JPRB, 0.166597E+02_JPRB, 0.168370E+02_JPRB, 0.170144E+02_JPRB &
+  &, 0.171918E+02_JPRB, 0.173691E+02_JPRB, 0.175464E+02_JPRB &
+  &, 0.177236E+02_JPRB, 0.179008E+02_JPRB, 0.180779E+02_JPRB, 0.182549E+02_JPRB &
+  &, 0.184319E+02_JPRB, 0.186087E+02_JPRB, 0.187854E+02_JPRB &
+  &, 0.189620E+02_JPRB, 0.191385E+02_JPRB, 0.193148E+02_JPRB, 0.194910E+02_JPRB &
+  &, 0.196670E+02_JPRB, 0.198429E+02_JPRB, 0.200186E+02_JPRB &
+  &, 0.201941E+02_JPRB, 0.203694E+02_JPRB, 0.205445E+02_JPRB, 0.207194E+02_JPRB &
+  &, 0.208941E+02_JPRB, 0.210685E+02_JPRB, 0.212427E+02_JPRB &
+  &, 0.214167E+02_JPRB, 0.215904E+02_JPRB, 0.217638E+02_JPRB, 0.219371E+02_JPRB &
+  &, 0.221100E+02_JPRB, 0.222826E+02_JPRB, 0.224549E+02_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART142',1,ZHOOK_HANDLE)
+END SUBROUTINE PART142
+
+#ifdef VPP5000
+!OCL SCALAR
+#endif
+!option! -Nv -NO
+#ifdef RS6K
+@PROCESS NOOPTIMIZE
+#endif
+!pgi$r opt=0
+SUBROUTINE PART143
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART143',0,ZHOOK_HANDLE)
+
+XCW( 995, :) = (/ &
+  &  0.127628E+01_JPRB, 0.135118E+01_JPRB, 0.142839E+01_JPRB, 0.150790E+01_JPRB &
+  &, 0.158971E+01_JPRB, 0.167379E+01_JPRB, 0.176013E+01_JPRB &
+  &, 0.184872E+01_JPRB, 0.193953E+01_JPRB, 0.203256E+01_JPRB, 0.212779E+01_JPRB &
+  &, 0.222518E+01_JPRB, 0.232473E+01_JPRB, 0.242642E+01_JPRB &
+  &, 0.253021E+01_JPRB, 0.263609E+01_JPRB, 0.274404E+01_JPRB, 0.285402E+01_JPRB &
+  &, 0.296603E+01_JPRB, 0.308003E+01_JPRB, 0.319600E+01_JPRB &
+  &, 0.331391E+01_JPRB, 0.343373E+01_JPRB, 0.355545E+01_JPRB, 0.367903E+01_JPRB &
+  &, 0.380445E+01_JPRB, 0.393167E+01_JPRB, 0.406068E+01_JPRB &
+  &, 0.419144E+01_JPRB, 0.432392E+01_JPRB, 0.445811E+01_JPRB, 0.459396E+01_JPRB &
+  &, 0.473146E+01_JPRB, 0.487057E+01_JPRB, 0.501127E+01_JPRB &
+  &, 0.515352E+01_JPRB, 0.529731E+01_JPRB, 0.544260E+01_JPRB, 0.558936E+01_JPRB &
+  &, 0.573757E+01_JPRB, 0.588720E+01_JPRB, 0.603822E+01_JPRB &
+  &, 0.619060E+01_JPRB, 0.634432E+01_JPRB, 0.649935E+01_JPRB, 0.665566E+01_JPRB &
+  &, 0.681323E+01_JPRB, 0.697203E+01_JPRB, 0.713203E+01_JPRB &
+  &, 0.729321E+01_JPRB, 0.745555E+01_JPRB, 0.761901E+01_JPRB, 0.778358E+01_JPRB &
+  &, 0.794922E+01_JPRB, 0.811592E+01_JPRB, 0.828365E+01_JPRB &
+  &, 0.845238E+01_JPRB, 0.862209E+01_JPRB, 0.879276E+01_JPRB, 0.896438E+01_JPRB &
+  &, 0.913690E+01_JPRB, 0.931030E+01_JPRB, 0.948459E+01_JPRB &
+  &, 0.965971E+01_JPRB, 0.983567E+01_JPRB, 0.100124E+02_JPRB, 0.101900E+02_JPRB &
+  &, 0.103683E+02_JPRB, 0.105473E+02_JPRB, 0.107271E+02_JPRB &
+  &, 0.109075E+02_JPRB, 0.110886E+02_JPRB, 0.112705E+02_JPRB, 0.114529E+02_JPRB &
+  &, 0.116360E+02_JPRB, 0.118196E+02_JPRB, 0.120039E+02_JPRB &
+  &, 0.121887E+02_JPRB, 0.123741E+02_JPRB, 0.125600E+02_JPRB, 0.127465E+02_JPRB &
+  &, 0.129334E+02_JPRB, 0.131208E+02_JPRB, 0.133087E+02_JPRB &
+  &, 0.134970E+02_JPRB, 0.136857E+02_JPRB, 0.138749E+02_JPRB, 0.140645E+02_JPRB &
+  &, 0.142544E+02_JPRB, 0.144447E+02_JPRB, 0.146354E+02_JPRB &
+  &, 0.148264E+02_JPRB, 0.150177E+02_JPRB, 0.152094E+02_JPRB, 0.154013E+02_JPRB &
+  &, 0.155935E+02_JPRB, 0.157860E+02_JPRB, 0.159787E+02_JPRB &
+  &, 0.161717E+02_JPRB, 0.163649E+02_JPRB, 0.165584E+02_JPRB, 0.167519E+02_JPRB &
+  &, 0.169458E+02_JPRB, 0.171397E+02_JPRB, 0.173339E+02_JPRB &
+  &, 0.175281E+02_JPRB, 0.177226E+02_JPRB, 0.179171E+02_JPRB, 0.181118E+02_JPRB &
+  &, 0.183065E+02_JPRB, 0.185013E+02_JPRB, 0.186963E+02_JPRB &
+  &, 0.188912E+02_JPRB, 0.190863E+02_JPRB, 0.192814E+02_JPRB, 0.194765E+02_JPRB &
+  &, 0.196716E+02_JPRB, 0.198667E+02_JPRB, 0.200619E+02_JPRB &
+  &, 0.202570E+02_JPRB, 0.204521E+02_JPRB, 0.206472E+02_JPRB, 0.208423E+02_JPRB &
+  &, 0.210372E+02_JPRB, 0.212322E+02_JPRB, 0.214271E+02_JPRB &
+  &, 0.216219E+02_JPRB, 0.218165E+02_JPRB, 0.220111E+02_JPRB, 0.222056E+02_JPRB &
+  &, 0.224000E+02_JPRB, 0.225943E+02_JPRB, 0.227884E+02_JPRB &
+  &, 0.229823E+02_JPRB, 0.231762E+02_JPRB, 0.233698E+02_JPRB, 0.235633E+02_JPRB &
+  &, 0.237566E+02_JPRB, 0.239498E+02_JPRB, 0.241427E+02_JPRB/)
+XCW( 996, :) = (/ &
+  &  0.128526E+01_JPRB, 0.136283E+01_JPRB, 0.144290E+01_JPRB, 0.152545E+01_JPRB &
+  &, 0.161046E+01_JPRB, 0.169794E+01_JPRB, 0.178786E+01_JPRB &
+  &, 0.188021E+01_JPRB, 0.197498E+01_JPRB, 0.207214E+01_JPRB, 0.217168E+01_JPRB &
+  &, 0.227359E+01_JPRB, 0.237783E+01_JPRB, 0.248440E+01_JPRB &
+  &, 0.259327E+01_JPRB, 0.270441E+01_JPRB, 0.281782E+01_JPRB, 0.293345E+01_JPRB &
+  &, 0.305130E+01_JPRB, 0.317132E+01_JPRB, 0.329351E+01_JPRB &
+  &, 0.341783E+01_JPRB, 0.354427E+01_JPRB, 0.367278E+01_JPRB, 0.380335E+01_JPRB &
+  &, 0.393594E+01_JPRB, 0.407054E+01_JPRB, 0.420712E+01_JPRB &
+  &, 0.434563E+01_JPRB, 0.448607E+01_JPRB, 0.462839E+01_JPRB, 0.477258E+01_JPRB &
+  &, 0.491861E+01_JPRB, 0.506643E+01_JPRB, 0.521603E+01_JPRB &
+  &, 0.536739E+01_JPRB, 0.552045E+01_JPRB, 0.567522E+01_JPRB, 0.583165E+01_JPRB &
+  &, 0.598971E+01_JPRB, 0.614939E+01_JPRB, 0.631064E+01_JPRB &
+  &, 0.647344E+01_JPRB, 0.663777E+01_JPRB, 0.680360E+01_JPRB, 0.697089E+01_JPRB &
+  &, 0.713962E+01_JPRB, 0.730978E+01_JPRB, 0.748133E+01_JPRB &
+  &, 0.765424E+01_JPRB, 0.782848E+01_JPRB, 0.800404E+01_JPRB, 0.818088E+01_JPRB &
+  &, 0.835900E+01_JPRB, 0.853833E+01_JPRB, 0.871888E+01_JPRB &
+  &, 0.890063E+01_JPRB, 0.908354E+01_JPRB, 0.926757E+01_JPRB, 0.945273E+01_JPRB &
+  &, 0.963898E+01_JPRB, 0.982631E+01_JPRB, 0.100147E+02_JPRB &
+  &, 0.102041E+02_JPRB, 0.103945E+02_JPRB, 0.105858E+02_JPRB, 0.107782E+02_JPRB &
+  &, 0.109714E+02_JPRB, 0.111656E+02_JPRB, 0.113607E+02_JPRB &
+  &, 0.115566E+02_JPRB, 0.117534E+02_JPRB, 0.119511E+02_JPRB, 0.121495E+02_JPRB &
+  &, 0.123488E+02_JPRB, 0.125488E+02_JPRB, 0.127496E+02_JPRB &
+  &, 0.129511E+02_JPRB, 0.131533E+02_JPRB, 0.133563E+02_JPRB, 0.135599E+02_JPRB &
+  &, 0.137642E+02_JPRB, 0.139691E+02_JPRB, 0.141747E+02_JPRB &
+  &, 0.143809E+02_JPRB, 0.145877E+02_JPRB, 0.147950E+02_JPRB, 0.150029E+02_JPRB &
+  &, 0.152114E+02_JPRB, 0.154204E+02_JPRB, 0.156299E+02_JPRB &
+  &, 0.158399E+02_JPRB, 0.160504E+02_JPRB, 0.162613E+02_JPRB, 0.164728E+02_JPRB &
+  &, 0.166846E+02_JPRB, 0.168969E+02_JPRB, 0.171096E+02_JPRB &
+  &, 0.173227E+02_JPRB, 0.175361E+02_JPRB, 0.177499E+02_JPRB, 0.179641E+02_JPRB &
+  &, 0.181787E+02_JPRB, 0.183935E+02_JPRB, 0.186087E+02_JPRB &
+  &, 0.188241E+02_JPRB, 0.190399E+02_JPRB, 0.192559E+02_JPRB, 0.194722E+02_JPRB &
+  &, 0.196887E+02_JPRB, 0.199055E+02_JPRB, 0.201225E+02_JPRB &
+  &, 0.203397E+02_JPRB, 0.205571E+02_JPRB, 0.207747E+02_JPRB, 0.209925E+02_JPRB &
+  &, 0.212104E+02_JPRB, 0.214286E+02_JPRB, 0.216468E+02_JPRB &
+  &, 0.218652E+02_JPRB, 0.220837E+02_JPRB, 0.223023E+02_JPRB, 0.225210E+02_JPRB &
+  &, 0.227398E+02_JPRB, 0.229587E+02_JPRB, 0.231776E+02_JPRB &
+  &, 0.233966E+02_JPRB, 0.236157E+02_JPRB, 0.238348E+02_JPRB, 0.240539E+02_JPRB &
+  &, 0.242731E+02_JPRB, 0.244923E+02_JPRB, 0.247114E+02_JPRB &
+  &, 0.249306E+02_JPRB, 0.251497E+02_JPRB, 0.253687E+02_JPRB, 0.255878E+02_JPRB &
+  &, 0.258068E+02_JPRB, 0.260259E+02_JPRB, 0.262448E+02_JPRB/)
+XCW( 997, :) = (/ &
+  &  0.129659E+01_JPRB, 0.137756E+01_JPRB, 0.146125E+01_JPRB, 0.154766E+01_JPRB &
+  &, 0.163677E+01_JPRB, 0.172858E+01_JPRB, 0.182307E+01_JPRB &
+  &, 0.192023E+01_JPRB, 0.202004E+01_JPRB, 0.212250E+01_JPRB, 0.222758E+01_JPRB &
+  &, 0.233527E+01_JPRB, 0.244555E+01_JPRB, 0.255839E+01_JPRB &
+  &, 0.267379E+01_JPRB, 0.279171E+01_JPRB, 0.291214E+01_JPRB, 0.303505E+01_JPRB &
+  &, 0.316042E+01_JPRB, 0.328823E+01_JPRB, 0.341844E+01_JPRB &
+  &, 0.355105E+01_JPRB, 0.368601E+01_JPRB, 0.382331E+01_JPRB, 0.396292E+01_JPRB &
+  &, 0.410480E+01_JPRB, 0.424894E+01_JPRB, 0.439531E+01_JPRB &
+  &, 0.454387E+01_JPRB, 0.469461E+01_JPRB, 0.484748E+01_JPRB, 0.500247E+01_JPRB &
+  &, 0.515955E+01_JPRB, 0.531868E+01_JPRB, 0.547985E+01_JPRB &
+  &, 0.564300E+01_JPRB, 0.580814E+01_JPRB, 0.597521E+01_JPRB, 0.614420E+01_JPRB &
+  &, 0.631508E+01_JPRB, 0.648781E+01_JPRB, 0.666237E+01_JPRB &
+  &, 0.683873E+01_JPRB, 0.701687E+01_JPRB, 0.719674E+01_JPRB, 0.737834E+01_JPRB &
+  &, 0.756163E+01_JPRB, 0.774658E+01_JPRB, 0.793316E+01_JPRB &
+  &, 0.812135E+01_JPRB, 0.831112E+01_JPRB, 0.850246E+01_JPRB, 0.869531E+01_JPRB &
+  &, 0.888968E+01_JPRB, 0.908553E+01_JPRB, 0.928282E+01_JPRB &
+  &, 0.948155E+01_JPRB, 0.968168E+01_JPRB, 0.988319E+01_JPRB, 0.100860E+02_JPRB &
+  &, 0.102902E+02_JPRB, 0.104957E+02_JPRB, 0.107025E+02_JPRB &
+  &, 0.109106E+02_JPRB, 0.111199E+02_JPRB, 0.113303E+02_JPRB, 0.115420E+02_JPRB &
+  &, 0.117549E+02_JPRB, 0.119689E+02_JPRB, 0.121840E+02_JPRB &
+  &, 0.124003E+02_JPRB, 0.126176E+02_JPRB, 0.128360E+02_JPRB, 0.130555E+02_JPRB &
+  &, 0.132759E+02_JPRB, 0.134974E+02_JPRB, 0.137198E+02_JPRB &
+  &, 0.139433E+02_JPRB, 0.141676E+02_JPRB, 0.143929E+02_JPRB, 0.146191E+02_JPRB &
+  &, 0.148462E+02_JPRB, 0.150742E+02_JPRB, 0.153030E+02_JPRB &
+  &, 0.155326E+02_JPRB, 0.157631E+02_JPRB, 0.159943E+02_JPRB, 0.162264E+02_JPRB &
+  &, 0.164592E+02_JPRB, 0.166928E+02_JPRB, 0.169271E+02_JPRB &
+  &, 0.171621E+02_JPRB, 0.173978E+02_JPRB, 0.176342E+02_JPRB, 0.178712E+02_JPRB &
+  &, 0.181090E+02_JPRB, 0.183473E+02_JPRB, 0.185863E+02_JPRB &
+  &, 0.188259E+02_JPRB, 0.190661E+02_JPRB, 0.193068E+02_JPRB, 0.195481E+02_JPRB &
+  &, 0.197900E+02_JPRB, 0.200325E+02_JPRB, 0.202754E+02_JPRB &
+  &, 0.205188E+02_JPRB, 0.207627E+02_JPRB, 0.210072E+02_JPRB, 0.212520E+02_JPRB &
+  &, 0.214973E+02_JPRB, 0.217431E+02_JPRB, 0.219893E+02_JPRB &
+  &, 0.222359E+02_JPRB, 0.224829E+02_JPRB, 0.227303E+02_JPRB, 0.229781E+02_JPRB &
+  &, 0.232263E+02_JPRB, 0.234748E+02_JPRB, 0.237236E+02_JPRB &
+  &, 0.239727E+02_JPRB, 0.242223E+02_JPRB, 0.244721E+02_JPRB, 0.247222E+02_JPRB &
+  &, 0.249726E+02_JPRB, 0.252232E+02_JPRB, 0.254741E+02_JPRB &
+  &, 0.257253E+02_JPRB, 0.259767E+02_JPRB, 0.262283E+02_JPRB, 0.264802E+02_JPRB &
+  &, 0.267322E+02_JPRB, 0.269845E+02_JPRB, 0.272369E+02_JPRB &
+  &, 0.274895E+02_JPRB, 0.277424E+02_JPRB, 0.279953E+02_JPRB, 0.282484E+02_JPRB &
+  &, 0.285016E+02_JPRB, 0.287550E+02_JPRB, 0.290085E+02_JPRB/)
+XCW( 998, :) = (/ &
+  &  0.131213E+01_JPRB, 0.139779E+01_JPRB, 0.148650E+01_JPRB, 0.157825E+01_JPRB &
+  &, 0.167304E+01_JPRB, 0.177087E+01_JPRB, 0.187172E+01_JPRB &
+  &, 0.197559E+01_JPRB, 0.208246E+01_JPRB, 0.219232E+01_JPRB, 0.230516E+01_JPRB &
+  &, 0.242095E+01_JPRB, 0.253969E+01_JPRB, 0.266135E+01_JPRB &
+  &, 0.278592E+01_JPRB, 0.291337E+01_JPRB, 0.304369E+01_JPRB, 0.317685E+01_JPRB &
+  &, 0.331282E+01_JPRB, 0.345160E+01_JPRB, 0.359315E+01_JPRB &
+  &, 0.373744E+01_JPRB, 0.388447E+01_JPRB, 0.403419E+01_JPRB, 0.418657E+01_JPRB &
+  &, 0.434161E+01_JPRB, 0.449926E+01_JPRB, 0.465950E+01_JPRB &
+  &, 0.482231E+01_JPRB, 0.498765E+01_JPRB, 0.515549E+01_JPRB, 0.532582E+01_JPRB &
+  &, 0.549859E+01_JPRB, 0.567379E+01_JPRB, 0.585137E+01_JPRB &
+  &, 0.603132E+01_JPRB, 0.621360E+01_JPRB, 0.639819E+01_JPRB, 0.658505E+01_JPRB &
+  &, 0.677417E+01_JPRB, 0.696550E+01_JPRB, 0.715902E+01_JPRB &
+  &, 0.735470E+01_JPRB, 0.755252E+01_JPRB, 0.775243E+01_JPRB, 0.795443E+01_JPRB &
+  &, 0.815847E+01_JPRB, 0.836454E+01_JPRB, 0.857259E+01_JPRB &
+  &, 0.878261E+01_JPRB, 0.899457E+01_JPRB, 0.920844E+01_JPRB, 0.942420E+01_JPRB &
+  &, 0.964181E+01_JPRB, 0.986126E+01_JPRB, 0.100825E+02_JPRB &
+  &, 0.103055E+02_JPRB, 0.105303E+02_JPRB, 0.107568E+02_JPRB, 0.109851E+02_JPRB &
+  &, 0.112150E+02_JPRB, 0.114465E+02_JPRB, 0.116797E+02_JPRB &
+  &, 0.119145E+02_JPRB, 0.121509E+02_JPRB, 0.123888E+02_JPRB, 0.126283E+02_JPRB &
+  &, 0.128693E+02_JPRB, 0.131117E+02_JPRB, 0.133557E+02_JPRB &
+  &, 0.136011E+02_JPRB, 0.138479E+02_JPRB, 0.140961E+02_JPRB, 0.143457E+02_JPRB &
+  &, 0.145967E+02_JPRB, 0.148490E+02_JPRB, 0.151027E+02_JPRB &
+  &, 0.153576E+02_JPRB, 0.156138E+02_JPRB, 0.158713E+02_JPRB, 0.161300E+02_JPRB &
+  &, 0.163899E+02_JPRB, 0.166510E+02_JPRB, 0.169134E+02_JPRB &
+  &, 0.171768E+02_JPRB, 0.174415E+02_JPRB, 0.177072E+02_JPRB, 0.179741E+02_JPRB &
+  &, 0.182421E+02_JPRB, 0.185111E+02_JPRB, 0.187812E+02_JPRB &
+  &, 0.190523E+02_JPRB, 0.193244E+02_JPRB, 0.195976E+02_JPRB, 0.198717E+02_JPRB &
+  &, 0.201469E+02_JPRB, 0.204229E+02_JPRB, 0.207000E+02_JPRB &
+  &, 0.209779E+02_JPRB, 0.212567E+02_JPRB, 0.215365E+02_JPRB, 0.218171E+02_JPRB &
+  &, 0.220986E+02_JPRB, 0.223809E+02_JPRB, 0.226641E+02_JPRB &
+  &, 0.229481E+02_JPRB, 0.232328E+02_JPRB, 0.235184E+02_JPRB, 0.238047E+02_JPRB &
+  &, 0.240919E+02_JPRB, 0.243797E+02_JPRB, 0.246683E+02_JPRB &
+  &, 0.249576E+02_JPRB, 0.252476E+02_JPRB, 0.255384E+02_JPRB, 0.258297E+02_JPRB &
+  &, 0.261217E+02_JPRB, 0.264145E+02_JPRB, 0.267078E+02_JPRB &
+  &, 0.270018E+02_JPRB, 0.272964E+02_JPRB, 0.275916E+02_JPRB, 0.278874E+02_JPRB &
+  &, 0.281838E+02_JPRB, 0.284807E+02_JPRB, 0.287782E+02_JPRB &
+  &, 0.290762E+02_JPRB, 0.293748E+02_JPRB, 0.296739E+02_JPRB, 0.299735E+02_JPRB &
+  &, 0.302736E+02_JPRB, 0.305742E+02_JPRB, 0.308752E+02_JPRB &
+  &, 0.311767E+02_JPRB, 0.314787E+02_JPRB, 0.317810E+02_JPRB, 0.320840E+02_JPRB &
+  &, 0.323872E+02_JPRB, 0.326909E+02_JPRB, 0.329950E+02_JPRB/)
+XCW( 999, :) = (/ &
+  &  0.133767E+01_JPRB, 0.143110E+01_JPRB, 0.152815E+01_JPRB, 0.162883E+01_JPRB &
+  &, 0.173313E+01_JPRB, 0.184106E+01_JPRB, 0.195261E+01_JPRB &
+  &, 0.206778E+01_JPRB, 0.218654E+01_JPRB, 0.230893E+01_JPRB, 0.243489E+01_JPRB &
+  &, 0.256443E+01_JPRB, 0.269753E+01_JPRB, 0.283418E+01_JPRB &
+  &, 0.297436E+01_JPRB, 0.311805E+01_JPRB, 0.326524E+01_JPRB, 0.341591E+01_JPRB &
+  &, 0.357002E+01_JPRB, 0.372757E+01_JPRB, 0.388853E+01_JPRB &
+  &, 0.405288E+01_JPRB, 0.422058E+01_JPRB, 0.439163E+01_JPRB, 0.456599E+01_JPRB &
+  &, 0.474363E+01_JPRB, 0.492453E+01_JPRB, 0.510867E+01_JPRB &
+  &, 0.529601E+01_JPRB, 0.548653E+01_JPRB, 0.568020E+01_JPRB, 0.587699E+01_JPRB &
+  &, 0.607687E+01_JPRB, 0.627982E+01_JPRB, 0.648580E+01_JPRB &
+  &, 0.669479E+01_JPRB, 0.690675E+01_JPRB, 0.712166E+01_JPRB, 0.733949E+01_JPRB &
+  &, 0.756021E+01_JPRB, 0.778379E+01_JPRB, 0.801020E+01_JPRB &
+  &, 0.823941E+01_JPRB, 0.847139E+01_JPRB, 0.870612E+01_JPRB, 0.894355E+01_JPRB &
+  &, 0.918368E+01_JPRB, 0.942647E+01_JPRB, 0.967189E+01_JPRB &
+  &, 0.991989E+01_JPRB, 0.101705E+02_JPRB, 0.104236E+02_JPRB, 0.106793E+02_JPRB &
+  &, 0.109374E+02_JPRB, 0.111980E+02_JPRB, 0.114610E+02_JPRB &
+  &, 0.117265E+02_JPRB, 0.119943E+02_JPRB, 0.122645E+02_JPRB, 0.125370E+02_JPRB &
+  &, 0.128118E+02_JPRB, 0.130889E+02_JPRB, 0.133682E+02_JPRB &
+  &, 0.136498E+02_JPRB, 0.139336E+02_JPRB, 0.142196E+02_JPRB, 0.145077E+02_JPRB &
+  &, 0.147979E+02_JPRB, 0.150903E+02_JPRB, 0.153847E+02_JPRB &
+  &, 0.156812E+02_JPRB, 0.159798E+02_JPRB, 0.162803E+02_JPRB, 0.165829E+02_JPRB &
+  &, 0.168874E+02_JPRB, 0.171939E+02_JPRB, 0.175023E+02_JPRB &
+  &, 0.178126E+02_JPRB, 0.181248E+02_JPRB, 0.184388E+02_JPRB, 0.187547E+02_JPRB &
+  &, 0.190725E+02_JPRB, 0.193920E+02_JPRB, 0.197133E+02_JPRB &
+  &, 0.200364E+02_JPRB, 0.203612E+02_JPRB, 0.206877E+02_JPRB, 0.210159E+02_JPRB &
+  &, 0.213459E+02_JPRB, 0.216775E+02_JPRB, 0.220107E+02_JPRB &
+  &, 0.223456E+02_JPRB, 0.226820E+02_JPRB, 0.230201E+02_JPRB, 0.233598E+02_JPRB &
+  &, 0.237010E+02_JPRB, 0.240437E+02_JPRB, 0.243880E+02_JPRB &
+  &, 0.247338E+02_JPRB, 0.250810E+02_JPRB, 0.254298E+02_JPRB, 0.257800E+02_JPRB &
+  &, 0.261316E+02_JPRB, 0.264847E+02_JPRB, 0.268392E+02_JPRB &
+  &, 0.271950E+02_JPRB, 0.275522E+02_JPRB, 0.279108E+02_JPRB, 0.282708E+02_JPRB &
+  &, 0.286320E+02_JPRB, 0.289946E+02_JPRB, 0.293585E+02_JPRB &
+  &, 0.297237E+02_JPRB, 0.300901E+02_JPRB, 0.304578E+02_JPRB, 0.308268E+02_JPRB &
+  &, 0.311969E+02_JPRB, 0.315683E+02_JPRB, 0.319408E+02_JPRB &
+  &, 0.323146E+02_JPRB, 0.326895E+02_JPRB, 0.330656E+02_JPRB, 0.334429E+02_JPRB &
+  &, 0.338213E+02_JPRB, 0.342007E+02_JPRB, 0.345813E+02_JPRB &
+  &, 0.349630E+02_JPRB, 0.353458E+02_JPRB, 0.357296E+02_JPRB, 0.361145E+02_JPRB &
+  &, 0.365004E+02_JPRB, 0.368873E+02_JPRB, 0.372753E+02_JPRB &
+  &, 0.376643E+02_JPRB, 0.380542E+02_JPRB, 0.384452E+02_JPRB, 0.388371E+02_JPRB &
+  &, 0.392299E+02_JPRB, 0.396237E+02_JPRB, 0.400185E+02_JPRB/)
+XCW(1000, :) = (/ &
+  &  0.100000E-04_JPRB, 0.100000E-04_JPRB, 0.255626E+01_JPRB, 0.257657E+01_JPRB &
+  &, 0.260001E+01_JPRB, 0.393985E+01_JPRB, 0.464844E+01_JPRB &
+  &, 0.504199E+01_JPRB, 0.545000E+01_JPRB, 0.552812E+01_JPRB, 0.561250E+01_JPRB &
+  &, 0.570312E+01_JPRB, 0.580000E+01_JPRB, 0.590312E+01_JPRB &
+  &, 0.601250E+01_JPRB, 0.612812E+01_JPRB, 0.625000E+01_JPRB, 0.637812E+01_JPRB &
+  &, 0.651250E+01_JPRB, 0.665312E+01_JPRB, 0.680000E+01_JPRB &
+  &, 0.695312E+01_JPRB, 0.711250E+01_JPRB, 0.727812E+01_JPRB, 0.745000E+01_JPRB &
+  &, 0.762812E+01_JPRB, 0.781250E+01_JPRB, 0.800312E+01_JPRB &
+  &, 0.820000E+01_JPRB, 0.840312E+01_JPRB, 0.861250E+01_JPRB, 0.882812E+01_JPRB &
+  &, 0.905000E+01_JPRB, 0.927812E+01_JPRB, 0.951249E+01_JPRB &
+  &, 0.975312E+01_JPRB, 0.999999E+01_JPRB, 0.102531E+02_JPRB, 0.105125E+02_JPRB &
+  &, 0.107781E+02_JPRB, 0.110500E+02_JPRB, 0.113281E+02_JPRB &
+  &, 0.116125E+02_JPRB, 0.119031E+02_JPRB, 0.122000E+02_JPRB, 0.125031E+02_JPRB &
+  &, 0.128125E+02_JPRB, 0.131281E+02_JPRB, 0.134500E+02_JPRB &
+  &, 0.137781E+02_JPRB, 0.141125E+02_JPRB, 0.144531E+02_JPRB, 0.148000E+02_JPRB &
+  &, 0.151531E+02_JPRB, 0.155125E+02_JPRB, 0.158781E+02_JPRB &
+  &, 0.162500E+02_JPRB, 0.166281E+02_JPRB, 0.170125E+02_JPRB, 0.174031E+02_JPRB &
+  &, 0.178000E+02_JPRB, 0.182031E+02_JPRB, 0.186125E+02_JPRB &
+  &, 0.190281E+02_JPRB, 0.194500E+02_JPRB, 0.198781E+02_JPRB, 0.203125E+02_JPRB &
+  &, 0.207531E+02_JPRB, 0.212000E+02_JPRB, 0.216531E+02_JPRB &
+  &, 0.221125E+02_JPRB, 0.225781E+02_JPRB, 0.230500E+02_JPRB, 0.235281E+02_JPRB &
+  &, 0.240125E+02_JPRB, 0.245031E+02_JPRB, 0.250000E+02_JPRB &
+  &, 0.255031E+02_JPRB, 0.260125E+02_JPRB, 0.265281E+02_JPRB, 0.270500E+02_JPRB &
+  &, 0.275781E+02_JPRB, 0.281125E+02_JPRB, 0.286531E+02_JPRB &
+  &, 0.292000E+02_JPRB, 0.297531E+02_JPRB, 0.303125E+02_JPRB, 0.308781E+02_JPRB &
+  &, 0.314500E+02_JPRB, 0.320281E+02_JPRB, 0.326125E+02_JPRB &
+  &, 0.332031E+02_JPRB, 0.338000E+02_JPRB, 0.344031E+02_JPRB, 0.350125E+02_JPRB &
+  &, 0.356281E+02_JPRB, 0.362500E+02_JPRB, 0.368781E+02_JPRB &
+  &, 0.375125E+02_JPRB, 0.381531E+02_JPRB, 0.388000E+02_JPRB, 0.394531E+02_JPRB &
+  &, 0.401125E+02_JPRB, 0.407781E+02_JPRB, 0.414500E+02_JPRB &
+  &, 0.421281E+02_JPRB, 0.428125E+02_JPRB, 0.435031E+02_JPRB, 0.442000E+02_JPRB &
+  &, 0.449031E+02_JPRB, 0.456125E+02_JPRB, 0.463281E+02_JPRB &
+  &, 0.470500E+02_JPRB, 0.477781E+02_JPRB, 0.485125E+02_JPRB, 0.492531E+02_JPRB &
+  &, 0.500000E+02_JPRB, 0.507531E+02_JPRB, 0.515125E+02_JPRB &
+  &, 0.522781E+02_JPRB, 0.530500E+02_JPRB, 0.538281E+02_JPRB, 0.546125E+02_JPRB &
+  &, 0.554031E+02_JPRB, 0.561999E+02_JPRB, 0.570031E+02_JPRB &
+  &, 0.578124E+02_JPRB, 0.586281E+02_JPRB, 0.594499E+02_JPRB, 0.602781E+02_JPRB &
+  &, 0.611124E+02_JPRB, 0.619531E+02_JPRB, 0.627999E+02_JPRB &
+  &, 0.636531E+02_JPRB, 0.645124E+02_JPRB, 0.653781E+02_JPRB, 0.662499E+02_JPRB &
+  &, 0.671281E+02_JPRB, 0.680124E+02_JPRB, 0.689031E+02_JPRB/)
+  
+IF (LHOOK) CALL DR_HOOK('SU_MCICA:PART143',1,ZHOOK_HANDLE)
+END SUBROUTINE PART143
+
+
+END SUBROUTINE SU_MCICA
Index: LMDZ5/trunk/libf/phylmd/rrtm/su_mcica.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/su_mcica.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/su_mcica.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SU_MCICA
+END SUBROUTINE SU_MCICA
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/su_uvrad.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/su_uvrad.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/su_uvrad.F90	(revision 1989)
@@ -0,0 +1,1107 @@
+SUBROUTINE SU_UVRAD ( KUV )
+
+!**** *SU_UVRAD*   - INITIALIZE COMMON YOE_UVRAD
+
+!     PURPOSE.
+!     --------
+!           INITIALIZE YOE_UVRAD, THE COMMON THAT CONTAINS COEFFICIENTS
+!           NEEDED TO RUN THE ULTRAVIOLET RADIATION PROCESSOR
+
+!**   INTERFACE.
+!     ----------
+!        *CALL* *SU_UVRAD* FROM *SUECRAD*
+
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+!        COMMON YOE_UVRAD
+
+
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+
+!     EXTERNALS.
+!     ----------
+
+!     REFERENCE.
+!     ----------
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 2005-10-04
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOMLUN   , ONLY : NULOUT
+USE YOE_UVRAD, ONLY : IPUV, JUVLAM, &
+              & RK250 , RTUV1, RTUV2, RSUVB0, RAYUVB, &
+              & RTAUVA, RPIUVA, RCGUVA, RCIEAS, RUVLAM, RFCAER, RFCOZO, &
+              & RASA  , RASB, RASC, RASD, RASE, RASF, RFA0, RFA1, &
+              & RFB0  , RFB1, RFB2, RFB3, RFC0, RFC1, RFC2, RFC3, &
+              & RFD0  , RFD1, RFD2, RFD3, JCOP, RXPO, RXPL 
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KUV 
+
+
+INTEGER(KIND=JPIM) :: J, JAE
+!INTEGER(KIND=JPIM) :: IACOP(24), IBCOP(120), ICCOP(600), IDCOP(3000)
+INTEGER(KIND=JPIM) :: IACOP(24), IBCOP(120), ICCOP(600)
+
+REAL(KIND=JPRB) :: ZBEG, ZEXP, ZHRES, ZRES, ZUVLAM
+REAL(KIND=JPRB) :: ZAK250(24)  ,ZATUV1(24)  ,ZATUV2(24)  ,ZASUVB(24)  ,ZARAYUV(24)
+REAL(KIND=JPRB) :: ZBK250(120) ,ZBTUV1(120) ,ZBTUV2(120) ,ZBSUVB(120) ,ZBRAYUV(120)
+REAL(KIND=JPRB) :: ZCK250(600) ,ZCTUV1(600) ,ZCTUV2(600) ,ZCSUVB(600) ,ZCRAYUV(600)
+!REAL(KIND=JPRB) :: ZDK250(3000),ZDTUV1(3000),ZDTUV2(3000),ZDSUVB(3000),ZDRAYUV(3000)
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+!     ----------------------------------------------------------------
+!#include "abor1.intfb.h"
+
+!     ----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SU_UVRAD',0,ZHOOK_HANDLE)
+
+! multiplying factors for sensitivity studies
+
+RFCAER=1.0_JPRB
+RFCOZO=1.0_JPRB
+
+!-- explicit computations from 280. to 400. nm by (400-280)/(KUV-1) nm
+
+!-- correspondence table with intervals in Slingo (1989) and Fu (1996)
+
+IACOP = (/ 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 4, 4, 4 /) 
+IBCOP = (/ 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,&
+         & 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,&
+         & 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,&
+         & 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 /)
+ICCOP = (/ 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,&
+         & 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,&
+         & 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,&
+         & 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,&
+         & 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,&
+         & 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,&
+         & 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,&
+         & 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,&
+         & 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,&
+         & 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,&
+         & 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,&
+         & 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,&
+         & 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,&
+         & 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,&
+         & 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,&
+         & 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,&
+         & 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,&
+         & 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,&
+         & 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,&
+         & 4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4 /)
+!IDCOP = (/ 
+
+!          O3 absorption parameters from integrating Molina & Molina, 1986
+
+! RK250: ozone cross-section ( x E-20 cm2 molecule-1 )
+
+! revised 20051031 (code "read_integrate_kurucz_rayleigh_O3")
+! check norms: 0.1262176396E+05  0.1293728681E+05  0.1350083624E+05
+ZAK250 = (/ &                                                            
+ & 0.3053413E+03_JPRB, 0.1737485E+03_JPRB, 0.1045573E+03_JPRB, 0.5265653E+02_JPRB, 0.2620346E+02_JPRB, &
+ & 0.1350141E+02_JPRB, 0.6771311E+01_JPRB, 0.3435206E+01_JPRB, 0.1629208E+01_JPRB, 0.7546285E+00_JPRB, &
+ & 0.3856211E+00_JPRB, 0.1501495E+00_JPRB, 0.7608691E-01_JPRB, 0.2646207E-01_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB /)
+ZATUV1 = (/ &                                                              
+ & 0.1955606E-03_JPRB, 0.4455332E-03_JPRB, 0.6856191E-03_JPRB, 0.1009841E-02_JPRB, 0.1181320E-02_JPRB, &
+ & 0.1593266E-02_JPRB, 0.1902945E-02_JPRB, 0.2377848E-02_JPRB, 0.3512989E-02_JPRB, 0.4511920E-02_JPRB, &
+ & 0.4672713E-02_JPRB, 0.6355066E-02_JPRB, 0.7100463E-02_JPRB, 0.1112103E-01_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB /)
+ZATUV2 = (/ &                                                              
+ &-0.3391206E-06_JPRB, 0.1269089E-05_JPRB, 0.3833753E-05_JPRB, 0.5239359E-05_JPRB, 0.1149881E-04_JPRB, &
+ & 0.1214144E-04_JPRB, 0.1456489E-04_JPRB, 0.1640689E-04_JPRB, 0.8903441E-05_JPRB, 0.9585654E-05_JPRB, &
+ & 0.1444280E-04_JPRB, 0.2252139E-04_JPRB, 0.7899461E-05_JPRB, 0.1340369E-04_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB /)
+
+! check norms: 0.1262176396E+05  0.1293728681E+05  0.1350083624E+05
+ZBK250 = (/ &                                                            
+ & 0.3746235E+03_JPRB, 0.3374782E+03_JPRB, 0.3109353E+03_JPRB, 0.2882899E+03_JPRB, 0.2577510E+03_JPRB, &
+ & 0.2259643E+03_JPRB, 0.2085487E+03_JPRB, 0.1854031E+03_JPRB, 0.1612119E+03_JPRB, 0.1453486E+03_JPRB, &
+ & 0.1310256E+03_JPRB, 0.1133554E+03_JPRB, 0.1020065E+03_JPRB, 0.8859325E+02_JPRB, 0.7909053E+02_JPRB, &
+ & 0.6807025E+02_JPRB, 0.6024819E+02_JPRB, 0.5107318E+02_JPRB, 0.4535628E+02_JPRB, 0.3949330E+02_JPRB, &
+ & 0.3422062E+02_JPRB, 0.2996915E+02_JPRB, 0.2577570E+02_JPRB, 0.2279167E+02_JPRB, 0.2034549E+02_JPRB, &
+ & 0.1721408E+02_JPRB, 0.1564205E+02_JPRB, 0.1300914E+02_JPRB, 0.1160289E+02_JPRB, 0.9688561E+01_JPRB, &
+ & 0.8512331E+01_JPRB, 0.7888720E+01_JPRB, 0.6400194E+01_JPRB, 0.5981788E+01_JPRB, 0.4811029E+01_JPRB, &
+ & 0.4636916E+01_JPRB, 0.3695886E+01_JPRB, 0.3476093E+01_JPRB, 0.2543994E+01_JPRB, 0.2691098E+01_JPRB, &
+ & 0.2131005E+01_JPRB, 0.1743577E+01_JPRB, 0.1933369E+01_JPRB, 0.1154597E+01_JPRB, 0.1144737E+01_JPRB, &
+ & 0.1227887E+01_JPRB, 0.6772851E+00_JPRB, 0.8242575E+00_JPRB, 0.7724384E+00_JPRB, 0.3580751E+00_JPRB, &
+ & 0.5599410E+00_JPRB, 0.5106917E+00_JPRB, 0.2370067E+00_JPRB, 0.3617942E+00_JPRB, 0.2703357E+00_JPRB, &
+ & 0.1238728E+00_JPRB, 0.2085226E+00_JPRB, 0.2350139E+00_JPRB, 0.9726696E-01_JPRB, 0.1077734E+00_JPRB, &
+ & 0.1266662E+00_JPRB, 0.5216565E-01_JPRB, 0.4033553E-01_JPRB, 0.7404691E-01_JPRB, 0.8175474E-01_JPRB, &
+ & 0.3928745E-01_JPRB, 0.2581425E-01_JPRB, 0.3220713E-01_JPRB, 0.1852549E-01_JPRB, 0.1710368E-01_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB /)
+ZBTUV1 = (/ &                                                              
+ & 0.1304379E-03_JPRB, 0.2381045E-03_JPRB, 0.1312193E-03_JPRB, 0.1382507E-03_JPRB, 0.4377790E-03_JPRB, &
+ & 0.2744315E-03_JPRB, 0.3904921E-03_JPRB, 0.4057293E-03_JPRB, 0.3944389E-03_JPRB, 0.6213526E-03_JPRB, &
+ & 0.5230166E-03_JPRB, 0.7115036E-03_JPRB, 0.8224138E-03_JPRB, 0.7839015E-03_JPRB, 0.6757493E-03_JPRB, &
+ & 0.1013929E-02_JPRB, 0.9388676E-03_JPRB, 0.1139504E-02_JPRB, 0.9152941E-03_JPRB, 0.1010882E-02_JPRB, &
+ & 0.1092914E-02_JPRB, 0.1116954E-02_JPRB, 0.1157353E-02_JPRB, 0.1312172E-02_JPRB, 0.1258207E-02_JPRB, &
+ & 0.1565364E-02_JPRB, 0.1304358E-02_JPRB, 0.1921441E-02_JPRB, 0.1597455E-02_JPRB, 0.1585083E-02_JPRB, &
+ & 0.1804721E-02_JPRB, 0.1717419E-02_JPRB, 0.2201039E-02_JPRB, 0.1650979E-02_JPRB, 0.2436943E-02_JPRB, &
+ & 0.1758300E-02_JPRB, 0.2866617E-02_JPRB, 0.2292916E-02_JPRB, 0.3437942E-02_JPRB, 0.2268845E-02_JPRB, &
+ & 0.3270049E-02_JPRB, 0.3506425E-02_JPRB, 0.2534346E-02_JPRB, 0.5591768E-02_JPRB, 0.3701606E-02_JPRB, &
+ & 0.3035392E-02_JPRB, 0.6216419E-02_JPRB, 0.3456239E-02_JPRB, 0.4134974E-02_JPRB, 0.8414933E-02_JPRB, &
+ & 0.3396263E-02_JPRB, 0.4222453E-02_JPRB, 0.8249625E-02_JPRB, 0.3627255E-02_JPRB, 0.6302904E-02_JPRB, &
+ & 0.1011540E-01_JPRB, 0.4498586E-02_JPRB, 0.4007648E-02_JPRB, 0.8463577E-02_JPRB, 0.7236953E-02_JPRB, &
+ & 0.5225470E-02_JPRB, 0.1114658E-01_JPRB, 0.1362563E-01_JPRB, 0.6584077E-02_JPRB, 0.4911811E-02_JPRB, &
+ & 0.1365494E-01_JPRB, 0.9170420E-02_JPRB, 0.7847505E-02_JPRB, 0.8155373E-02_JPRB, 0.2917714E-01_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB /)
+ZBTUV2 = (/ &                                                              
+ &-0.2310595E-05_JPRB,-0.1588555E-05_JPRB,-0.3803504E-06_JPRB, 0.2203029E-05_JPRB,-0.2347744E-05_JPRB, &
+ & 0.3014092E-05_JPRB,-0.2353008E-05_JPRB, 0.3071326E-05_JPRB, 0.2498274E-05_JPRB, 0.6234744E-06_JPRB, &
+ & 0.3393139E-05_JPRB, 0.5542024E-05_JPRB, 0.9758300E-06_JPRB, 0.5219182E-05_JPRB, 0.3721842E-05_JPRB, &
+ & 0.2097421E-05_JPRB, 0.4340026E-05_JPRB, 0.5201248E-05_JPRB, 0.8369003E-05_JPRB, 0.8713780E-05_JPRB, &
+ & 0.8890532E-05_JPRB, 0.1285612E-04_JPRB, 0.1431880E-04_JPRB, 0.1206355E-04_JPRB, 0.8875655E-05_JPRB, &
+ & 0.1178909E-04_JPRB, 0.1027358E-04_JPRB, 0.6029656E-05_JPRB, 0.1471264E-04_JPRB, 0.2339166E-04_JPRB, &
+ & 0.1449467E-04_JPRB, 0.1392035E-04_JPRB, 0.9490171E-05_JPRB, 0.1963981E-04_JPRB, 0.1545245E-04_JPRB, &
+ & 0.2217010E-04_JPRB, 0.9402666E-05_JPRB, 0.1555344E-04_JPRB, 0.1678093E-04_JPRB, 0.1418057E-04_JPRB, &
+ & 0.1018282E-04_JPRB, 0.1016892E-04_JPRB, 0.6648122E-05_JPRB,-0.1761027E-05_JPRB, 0.1343048E-04_JPRB, &
+ & 0.5945775E-05_JPRB, 0.5228630E-05_JPRB, 0.1189961E-04_JPRB, 0.1062544E-04_JPRB, 0.6783912E-05_JPRB, &
+ & 0.1611166E-04_JPRB, 0.9911433E-05_JPRB, 0.4732061E-05_JPRB, 0.2326484E-04_JPRB, 0.6846333E-05_JPRB, &
+ & 0.5566848E-05_JPRB, 0.2998335E-04_JPRB, 0.4369986E-05_JPRB, 0.2288655E-04_JPRB, 0.4555816E-04_JPRB, &
+ & 0.2229065E-04_JPRB,-0.5176777E-05_JPRB, 0.9089374E-05_JPRB, 0.2211234E-04_JPRB,-0.5195374E-04_JPRB, &
+ &-0.5204193E-04_JPRB, 0.1285348E-03_JPRB,-0.3511670E-05_JPRB, 0.6086764E-04_JPRB,-0.2923827E-03_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB /)
+
+! check norms: 0.1262176396E+05  0.1293728681E+05  0.1350083624E+05
+ZCK250(  1:300) = (/ &
+ & 0.3912691E+03_JPRB, 0.3839502E+03_JPRB, 0.3743189E+03_JPRB, 0.3712760E+03_JPRB, 0.3682782E+03_JPRB, &
+ & 0.3607995E+03_JPRB, 0.3484512E+03_JPRB, 0.3362245E+03_JPRB, 0.3306447E+03_JPRB, 0.3257288E+03_JPRB, &
+ & 0.3205932E+03_JPRB, 0.3156011E+03_JPRB, 0.3106752E+03_JPRB, 0.3061641E+03_JPRB, 0.3025993E+03_JPRB, &
+ & 0.2990364E+03_JPRB, 0.2958928E+03_JPRB, 0.2922895E+03_JPRB, 0.2815917E+03_JPRB, 0.2710969E+03_JPRB, &
+ & 0.2643130E+03_JPRB, 0.2602894E+03_JPRB, 0.2555913E+03_JPRB, 0.2508463E+03_JPRB, 0.2458966E+03_JPRB, &
+ & 0.2400022E+03_JPRB, 0.2328428E+03_JPRB, 0.2266644E+03_JPRB, 0.2237314E+03_JPRB, 0.2211230E+03_JPRB, &
+ & 0.2176822E+03_JPRB, 0.2129666E+03_JPRB, 0.2082285E+03_JPRB, 0.2050648E+03_JPRB, 0.2015646E+03_JPRB, &
+ & 0.1964826E+03_JPRB, 0.1907146E+03_JPRB, 0.1843511E+03_JPRB, 0.1790203E+03_JPRB, 0.1740547E+03_JPRB, &
+ & 0.1699693E+03_JPRB, 0.1658762E+03_JPRB, 0.1631024E+03_JPRB, 0.1594428E+03_JPRB, 0.1561083E+03_JPRB, &
+ & 0.1522514E+03_JPRB, 0.1489648E+03_JPRB, 0.1456738E+03_JPRB, 0.1427900E+03_JPRB, 0.1400463E+03_JPRB, &
+ & 0.1368885E+03_JPRB, 0.1338666E+03_JPRB, 0.1308455E+03_JPRB, 0.1279194E+03_JPRB, 0.1252291E+03_JPRB, &
+ & 0.1221635E+03_JPRB, 0.1173480E+03_JPRB, 0.1134466E+03_JPRB, 0.1104490E+03_JPRB, 0.1075005E+03_JPRB, &
+ & 0.1052409E+03_JPRB, 0.1034875E+03_JPRB, 0.1014312E+03_JPRB, 0.9917348E+02_JPRB, 0.9690936E+02_JPRB, &
+ & 0.9363521E+02_JPRB, 0.9064002E+02_JPRB, 0.8742842E+02_JPRB, 0.8607183E+02_JPRB, 0.8419236E+02_JPRB, &
+ & 0.8235930E+02_JPRB, 0.8037249E+02_JPRB, 0.7882393E+02_JPRB, 0.7689006E+02_JPRB, 0.7481278E+02_JPRB, &
+ & 0.7260259E+02_JPRB, 0.7000890E+02_JPRB, 0.6741465E+02_JPRB, 0.6606238E+02_JPRB, 0.6431214E+02_JPRB, &
+ & 0.6274430E+02_JPRB, 0.6096603E+02_JPRB, 0.5956343E+02_JPRB, 0.5820831E+02_JPRB, 0.5665523E+02_JPRB, &
+ & 0.5500309E+02_JPRB, 0.5351154E+02_JPRB, 0.5118981E+02_JPRB, 0.5002563E+02_JPRB, 0.4881731E+02_JPRB, &
+ & 0.4748677E+02_JPRB, 0.4631187E+02_JPRB, 0.4524318E+02_JPRB, 0.4422579E+02_JPRB, 0.4326350E+02_JPRB, &
+ & 0.4201139E+02_JPRB, 0.4046981E+02_JPRB, 0.3921751E+02_JPRB, 0.3804230E+02_JPRB, 0.3728167E+02_JPRB, &
+ & 0.3646048E+02_JPRB, 0.3568511E+02_JPRB, 0.3469347E+02_JPRB, 0.3368040E+02_JPRB, 0.3223647E+02_JPRB, &
+ & 0.3120151E+02_JPRB, 0.3046987E+02_JPRB, 0.2973342E+02_JPRB, 0.2916021E+02_JPRB, 0.2869675E+02_JPRB, &
+ & 0.2819547E+02_JPRB, 0.2704570E+02_JPRB, 0.2633426E+02_JPRB, 0.2524253E+02_JPRB, 0.2440977E+02_JPRB, &
+ & 0.2368355E+02_JPRB, 0.2307297E+02_JPRB, 0.2260014E+02_JPRB, 0.2230349E+02_JPRB, 0.2196699E+02_JPRB, &
+ & 0.2159911E+02_JPRB, 0.2100203E+02_JPRB, 0.2042105E+02_JPRB, 0.1959785E+02_JPRB, 0.1850330E+02_JPRB, &
+ & 0.1799117E+02_JPRB, 0.1739673E+02_JPRB, 0.1696323E+02_JPRB, 0.1671992E+02_JPRB, 0.1652047E+02_JPRB, &
+ & 0.1630084E+02_JPRB, 0.1608451E+02_JPRB, 0.1578843E+02_JPRB, 0.1524567E+02_JPRB, 0.1440076E+02_JPRB, &
+ & 0.1386541E+02_JPRB, 0.1329988E+02_JPRB, 0.1272576E+02_JPRB, 0.1254554E+02_JPRB, 0.1245282E+02_JPRB, &
+ & 0.1218871E+02_JPRB, 0.1178283E+02_JPRB, 0.1145067E+02_JPRB, 0.1133450E+02_JPRB, 0.1119256E+02_JPRB, &
+ & 0.1078407E+02_JPRB, 0.1020251E+02_JPRB, 0.9528469E+01_JPRB, 0.9329364E+01_JPRB, 0.9126274E+01_JPRB, &
+ & 0.8931937E+01_JPRB, 0.8718665E+01_JPRB, 0.8575605E+01_JPRB, 0.8437309E+01_JPRB, 0.8310787E+01_JPRB, &
+ & 0.8215147E+01_JPRB, 0.8127766E+01_JPRB, 0.8001044E+01_JPRB, 0.7630502E+01_JPRB, 0.7218388E+01_JPRB, &
+ & 0.6842024E+01_JPRB, 0.6619379E+01_JPRB, 0.6379956E+01_JPRB, 0.6211814E+01_JPRB, 0.6073732E+01_JPRB, &
+ & 0.6047354E+01_JPRB, 0.6167841E+01_JPRB, 0.6213631E+01_JPRB, 0.5978124E+01_JPRB, 0.5663016E+01_JPRB, &
+ & 0.5312896E+01_JPRB, 0.4966990E+01_JPRB, 0.4632250E+01_JPRB, 0.4511959E+01_JPRB, 0.4437874E+01_JPRB, &
+ & 0.4521541E+01_JPRB, 0.4730288E+01_JPRB, 0.4850666E+01_JPRB, 0.4597253E+01_JPRB, 0.4254414E+01_JPRB, &
+ & 0.3974671E+01_JPRB, 0.3772243E+01_JPRB, 0.3622352E+01_JPRB, 0.3596173E+01_JPRB, 0.3597771E+01_JPRB, &
+ & 0.3587278E+01_JPRB, 0.3569527E+01_JPRB, 0.3534352E+01_JPRB, 0.3400931E+01_JPRB, 0.3269153E+01_JPRB, &
+ & 0.3038523E+01_JPRB, 0.2772412E+01_JPRB, 0.2532108E+01_JPRB, 0.2400635E+01_JPRB, 0.2269651E+01_JPRB, &
+ & 0.2318103E+01_JPRB, 0.2555933E+01_JPRB, 0.2783417E+01_JPRB, 0.2859555E+01_JPRB, 0.2929581E+01_JPRB, &
+ & 0.2773406E+01_JPRB, 0.2471774E+01_JPRB, 0.2117337E+01_JPRB, 0.1887952E+01_JPRB, 0.1665876E+01_JPRB, &
+ & 0.1545364E+01_JPRB, 0.1530765E+01_JPRB, 0.1569366E+01_JPRB, 0.1765859E+01_JPRB, 0.2076064E+01_JPRB, &
+ & 0.2118826E+01_JPRB, 0.2013361E+01_JPRB, 0.1904165E+01_JPRB, 0.1817854E+01_JPRB, 0.1717719E+01_JPRB, &
+ & 0.1528353E+01_JPRB, 0.1301476E+01_JPRB, 0.1075097E+01_JPRB, 0.9913148E+00_JPRB, 0.9390067E+00_JPRB, &
+ & 0.9410631E+00_JPRB, 0.9908390E+00_JPRB, 0.1077318E+01_JPRB, 0.1253445E+01_JPRB, 0.1470490E+01_JPRB, &
+ & 0.1500942E+01_JPRB, 0.1410377E+01_JPRB, 0.1291770E+01_JPRB, 0.1121325E+01_JPRB, 0.9340122E+00_JPRB, &
+ & 0.7967983E+00_JPRB, 0.6878130E+00_JPRB, 0.6101190E+00_JPRB, 0.6281103E+00_JPRB, 0.6616779E+00_JPRB, &
+ & 0.6857364E+00_JPRB, 0.7056597E+00_JPRB, 0.7477958E+00_JPRB, 0.9194159E+00_JPRB, 0.1109930E+01_JPRB, &
+ & 0.1092774E+01_JPRB, 0.9152249E+00_JPRB, 0.7291639E+00_JPRB, 0.6087120E+00_JPRB, 0.4870125E+00_JPRB, &
+ & 0.4089467E+00_JPRB, 0.3685752E+00_JPRB, 0.3364085E+00_JPRB, 0.3355197E+00_JPRB, 0.3394912E+00_JPRB, &
+ & 0.4048120E+00_JPRB, 0.4981886E+00_JPRB, 0.6072237E+00_JPRB, 0.6562844E+00_JPRB, 0.7088529E+00_JPRB, &
+ & 0.6887763E+00_JPRB, 0.6012469E+00_JPRB, 0.5178619E+00_JPRB, 0.4263444E+00_JPRB, 0.3389390E+00_JPRB, &
+ & 0.2766929E+00_JPRB, 0.2419911E+00_JPRB, 0.2081429E+00_JPRB, 0.2205261E+00_JPRB, 0.2407883E+00_JPRB, &
+ & 0.2829715E+00_JPRB, 0.3323930E+00_JPRB, 0.3840338E+00_JPRB, 0.4009112E+00_JPRB, 0.4141605E+00_JPRB, &
+ & 0.3841738E+00_JPRB, 0.3191549E+00_JPRB, 0.2538516E+00_JPRB, 0.2141375E+00_JPRB, 0.1749193E+00_JPRB, &
+ & 0.1442347E+00_JPRB, 0.1308030E+00_JPRB, 0.1175839E+00_JPRB, 0.1152005E+00_JPRB, 0.1144295E+00_JPRB, &
+ & 0.1332690E+00_JPRB, 0.1750619E+00_JPRB, 0.2049352E+00_JPRB, 0.2269636E+00_JPRB, 0.2466895E+00_JPRB, &
+ & 0.2630055E+00_JPRB, 0.2741632E+00_JPRB, 0.2762103E+00_JPRB, 0.2284683E+00_JPRB, 0.1768542E+00_JPRB, &
+ & 0.1404621E+00_JPRB, 0.1127350E+00_JPRB, 0.8942173E-01_JPRB, 0.8041714E-01_JPRB, 0.7391840E-01_JPRB, &
+ & 0.7558672E-01_JPRB, 0.8552747E-01_JPRB, 0.9933794E-01_JPRB, 0.1231135E+00_JPRB, 0.1472332E+00_JPRB /)
+ZCK250(301:600) = (/ &
+ & 0.1526061E+00_JPRB, 0.1421443E+00_JPRB, 0.1296576E+00_JPRB, 0.1091694E+00_JPRB, 0.8614825E-01_JPRB, &
+ & 0.6917399E-01_JPRB, 0.5783544E-01_JPRB, 0.4674525E-01_JPRB, 0.4370108E-01_JPRB, 0.4142633E-01_JPRB, &
+ & 0.3910948E-01_JPRB, 0.3637619E-01_JPRB, 0.3495317E-01_JPRB, 0.4133272E-01_JPRB, 0.4971278E-01_JPRB, &
+ & 0.5383842E-01_JPRB, 0.5446874E-01_JPRB, 0.6006002E-01_JPRB, 0.8558061E-01_JPRB, 0.1183642E+00_JPRB, &
+ & 0.1234464E+00_JPRB, 0.1012597E+00_JPRB, 0.8177673E-01_JPRB, 0.7039373E-01_JPRB, 0.5842135E-01_JPRB, &
+ & 0.4994100E-01_JPRB, 0.4395068E-01_JPRB, 0.3678789E-01_JPRB, 0.3423710E-01_JPRB, 0.3205213E-01_JPRB, &
+ & 0.2882322E-01_JPRB, 0.2490090E-01_JPRB, 0.2239739E-01_JPRB, 0.2488575E-01_JPRB, 0.2809792E-01_JPRB, &
+ & 0.3163878E-01_JPRB, 0.3529353E-01_JPRB, 0.3743464E-01_JPRB, 0.3154792E-01_JPRB, 0.2476330E-01_JPRB, &
+ & 0.2125607E-01_JPRB, 0.2063931E-01_JPRB, 0.1970776E-01_JPRB, 0.1711069E-01_JPRB, 0.1448247E-01_JPRB, &
+ & 0.1419092E-01_JPRB, 0.1697305E-01_JPRB, 0.1922265E-01_JPRB, 0.1809877E-01_JPRB, 0.1633014E-01_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB /)
+ZCTUV1(  1:300) = (/ &
+ &-0.7300886E-04_JPRB, 0.2165305E-04_JPRB, 0.1518885E-03_JPRB, 0.1801729E-03_JPRB, 0.2046781E-03_JPRB, &
+ & 0.2321395E-03_JPRB, 0.2666132E-03_JPRB, 0.2905016E-03_JPRB, 0.2372348E-03_JPRB, 0.1789425E-03_JPRB, &
+ & 0.1385595E-03_JPRB, 0.1176325E-03_JPRB, 0.1025867E-03_JPRB, 0.1330112E-03_JPRB, 0.1624851E-03_JPRB, &
+ & 0.1525305E-03_JPRB, 0.8864058E-04_JPRB, 0.4904664E-04_JPRB, 0.1451164E-03_JPRB, 0.2617269E-03_JPRB, &
+ & 0.3550630E-03_JPRB, 0.4328231E-03_JPRB, 0.5061485E-03_JPRB, 0.5026669E-03_JPRB, 0.4904191E-03_JPRB, &
+ & 0.4514644E-03_JPRB, 0.3765797E-03_JPRB, 0.3052066E-03_JPRB, 0.2502422E-03_JPRB, 0.1951159E-03_JPRB, &
+ & 0.2224293E-03_JPRB, 0.3463365E-03_JPRB, 0.4626359E-03_JPRB, 0.4548639E-03_JPRB, 0.4312663E-03_JPRB, &
+ & 0.3981121E-03_JPRB, 0.3601595E-03_JPRB, 0.3408163E-03_JPRB, 0.4272911E-03_JPRB, 0.5288183E-03_JPRB, &
+ & 0.5513737E-03_JPRB, 0.4471895E-03_JPRB, 0.3864898E-03_JPRB, 0.3626459E-03_JPRB, 0.3489821E-03_JPRB, &
+ & 0.4398179E-03_JPRB, 0.5966221E-03_JPRB, 0.7405845E-03_JPRB, 0.6992127E-03_JPRB, 0.6250672E-03_JPRB, &
+ & 0.5602797E-03_JPRB, 0.5163022E-03_JPRB, 0.4840466E-03_JPRB, 0.5107349E-03_JPRB, 0.5462615E-03_JPRB, &
+ & 0.5881982E-03_JPRB, 0.6573852E-03_JPRB, 0.7159264E-03_JPRB, 0.7562820E-03_JPRB, 0.7965609E-03_JPRB, &
+ & 0.8163875E-03_JPRB, 0.8190289E-03_JPRB, 0.8226782E-03_JPRB, 0.8284381E-03_JPRB, 0.8345755E-03_JPRB, &
+ & 0.8056005E-03_JPRB, 0.7495604E-03_JPRB, 0.7066258E-03_JPRB, 0.7724642E-03_JPRB, 0.9057206E-03_JPRB, &
+ & 0.8502832E-03_JPRB, 0.6413947E-03_JPRB, 0.5219530E-03_JPRB, 0.6165869E-03_JPRB, 0.7758490E-03_JPRB, &
+ & 0.8803623E-03_JPRB, 0.9650903E-03_JPRB, 0.1049895E-02_JPRB, 0.1079331E-02_JPRB, 0.1114359E-02_JPRB, &
+ & 0.1041519E-02_JPRB, 0.8810123E-03_JPRB, 0.7704380E-03_JPRB, 0.8720518E-03_JPRB, 0.1053372E-02_JPRB, &
+ & 0.1148837E-02_JPRB, 0.1189115E-02_JPRB, 0.1224080E-02_JPRB, 0.1139373E-02_JPRB, 0.1039175E-02_JPRB, &
+ & 0.9717263E-03_JPRB, 0.9659483E-03_JPRB, 0.9509932E-03_JPRB, 0.8842079E-03_JPRB, 0.8138584E-03_JPRB, &
+ & 0.8657698E-03_JPRB, 0.1011626E-02_JPRB, 0.1128555E-02_JPRB, 0.1102516E-02_JPRB, 0.1043855E-02_JPRB, &
+ & 0.1035198E-02_JPRB, 0.1093726E-02_JPRB, 0.1145715E-02_JPRB, 0.1101793E-02_JPRB, 0.1023007E-02_JPRB, &
+ & 0.1049129E-02_JPRB, 0.1125353E-02_JPRB, 0.1193913E-02_JPRB, 0.1135826E-02_JPRB, 0.1054100E-02_JPRB, &
+ & 0.1004690E-02_JPRB, 0.9727073E-03_JPRB, 0.9889501E-03_JPRB, 0.1206755E-02_JPRB, 0.1413361E-02_JPRB, &
+ & 0.1483673E-02_JPRB, 0.1389585E-02_JPRB, 0.1303692E-02_JPRB, 0.1202618E-02_JPRB, 0.1067236E-02_JPRB, &
+ & 0.1081125E-02_JPRB, 0.1193359E-02_JPRB, 0.1297538E-02_JPRB, 0.1362035E-02_JPRB, 0.1438721E-02_JPRB, &
+ & 0.1498571E-02_JPRB, 0.1605460E-02_JPRB, 0.1667381E-02_JPRB, 0.1561088E-02_JPRB, 0.1404859E-02_JPRB, &
+ & 0.1300112E-02_JPRB, 0.1232071E-02_JPRB, 0.1186359E-02_JPRB, 0.1317165E-02_JPRB, 0.1565706E-02_JPRB, &
+ & 0.1757936E-02_JPRB, 0.1998126E-02_JPRB, 0.2219445E-02_JPRB, 0.1934279E-02_JPRB, 0.1663420E-02_JPRB, &
+ & 0.1494387E-02_JPRB, 0.1478608E-02_JPRB, 0.1506739E-02_JPRB, 0.1668795E-02_JPRB, 0.1919090E-02_JPRB, &
+ & 0.1843774E-02_JPRB, 0.1546209E-02_JPRB, 0.1246735E-02_JPRB, 0.1458146E-02_JPRB, 0.1869647E-02_JPRB, &
+ & 0.1982769E-02_JPRB, 0.1804524E-02_JPRB, 0.1709744E-02_JPRB, 0.1773561E-02_JPRB, 0.1859586E-02_JPRB, &
+ & 0.1826165E-02_JPRB, 0.1656768E-02_JPRB, 0.1557886E-02_JPRB, 0.1705018E-02_JPRB, 0.1915113E-02_JPRB, &
+ & 0.2075051E-02_JPRB, 0.2126461E-02_JPRB, 0.2189845E-02_JPRB, 0.2264029E-02_JPRB, 0.2330736E-02_JPRB, &
+ & 0.2142399E-02_JPRB, 0.1641383E-02_JPRB, 0.1314965E-02_JPRB, 0.1430123E-02_JPRB, 0.1671123E-02_JPRB, &
+ & 0.2000943E-02_JPRB, 0.2398306E-02_JPRB, 0.2805397E-02_JPRB, 0.2760983E-02_JPRB, 0.2603031E-02_JPRB, &
+ & 0.2254001E-02_JPRB, 0.1707438E-02_JPRB, 0.1358394E-02_JPRB, 0.1617800E-02_JPRB, 0.2065673E-02_JPRB, &
+ & 0.2466817E-02_JPRB, 0.2769094E-02_JPRB, 0.3017141E-02_JPRB, 0.3025354E-02_JPRB, 0.2981591E-02_JPRB, &
+ & 0.2718787E-02_JPRB, 0.2352677E-02_JPRB, 0.2036865E-02_JPRB, 0.2123214E-02_JPRB, 0.2251885E-02_JPRB, &
+ & 0.2545599E-02_JPRB, 0.2963245E-02_JPRB, 0.3421649E-02_JPRB, 0.3761743E-02_JPRB, 0.4168039E-02_JPRB, &
+ & 0.3792586E-02_JPRB, 0.2691818E-02_JPRB, 0.1859473E-02_JPRB, 0.1698663E-02_JPRB, 0.1596011E-02_JPRB, &
+ & 0.1866468E-02_JPRB, 0.2472971E-02_JPRB, 0.3382006E-02_JPRB, 0.4041891E-02_JPRB, 0.4838723E-02_JPRB, &
+ & 0.5173073E-02_JPRB, 0.4874604E-02_JPRB, 0.4306427E-02_JPRB, 0.3231780E-02_JPRB, 0.2000433E-02_JPRB, &
+ & 0.1861439E-02_JPRB, 0.2225228E-02_JPRB, 0.2649365E-02_JPRB, 0.3034028E-02_JPRB, 0.3543490E-02_JPRB, &
+ & 0.4232267E-02_JPRB, 0.5139813E-02_JPRB, 0.6346525E-02_JPRB, 0.6436912E-02_JPRB, 0.6250926E-02_JPRB, &
+ & 0.5587344E-02_JPRB, 0.4808163E-02_JPRB, 0.3922214E-02_JPRB, 0.2997367E-02_JPRB, 0.2173786E-02_JPRB, &
+ & 0.2030102E-02_JPRB, 0.2242679E-02_JPRB, 0.2624961E-02_JPRB, 0.3565763E-02_JPRB, 0.5075541E-02_JPRB, &
+ & 0.6281868E-02_JPRB, 0.6886248E-02_JPRB, 0.7266843E-02_JPRB, 0.6076686E-02_JPRB, 0.4795772E-02_JPRB, &
+ & 0.4356297E-02_JPRB, 0.4466772E-02_JPRB, 0.4258595E-02_JPRB, 0.2897404E-02_JPRB, 0.1843119E-02_JPRB, &
+ & 0.2009932E-02_JPRB, 0.3199593E-02_JPRB, 0.4951469E-02_JPRB, 0.6041670E-02_JPRB, 0.7461846E-02_JPRB, &
+ & 0.8546823E-02_JPRB, 0.8710152E-02_JPRB, 0.8794515E-02_JPRB, 0.8287750E-02_JPRB, 0.7636299E-02_JPRB, &
+ & 0.5824848E-02_JPRB, 0.4316517E-02_JPRB, 0.3105479E-02_JPRB, 0.2465729E-02_JPRB, 0.1831760E-02_JPRB, &
+ & 0.2086637E-02_JPRB, 0.3358716E-02_JPRB, 0.4856066E-02_JPRB, 0.5922231E-02_JPRB, 0.7184053E-02_JPRB, &
+ & 0.8372539E-02_JPRB, 0.9001604E-02_JPRB, 0.9555919E-02_JPRB, 0.8104750E-02_JPRB, 0.6525334E-02_JPRB, &
+ & 0.4792899E-02_JPRB, 0.3547894E-02_JPRB, 0.2745707E-02_JPRB, 0.3341994E-02_JPRB, 0.4115321E-02_JPRB, &
+ & 0.4877749E-02_JPRB, 0.5827051E-02_JPRB, 0.7167797E-02_JPRB, 0.7492950E-02_JPRB, 0.7709746E-02_JPRB, &
+ & 0.8481136E-02_JPRB, 0.9578651E-02_JPRB, 0.1096287E-01_JPRB, 0.1099204E-01_JPRB, 0.1081739E-01_JPRB, &
+ & 0.8763371E-02_JPRB, 0.6211870E-02_JPRB, 0.4962033E-02_JPRB, 0.3850856E-02_JPRB, 0.2970878E-02_JPRB, &
+ & 0.2839165E-02_JPRB, 0.3280359E-02_JPRB, 0.3735243E-02_JPRB, 0.4371049E-02_JPRB, 0.5292864E-02_JPRB, &
+ & 0.6320171E-02_JPRB, 0.7608543E-02_JPRB, 0.9269996E-02_JPRB, 0.9811061E-02_JPRB, 0.1011115E-01_JPRB, &
+ & 0.1063044E-01_JPRB, 0.1127774E-01_JPRB, 0.1068954E-01_JPRB, 0.6261593E-02_JPRB, 0.3448325E-02_JPRB /)
+ZCTUV1(301:600) = (/ &
+ & 0.3132930E-02_JPRB, 0.4512714E-02_JPRB, 0.6235344E-02_JPRB, 0.7328861E-02_JPRB, 0.9068431E-02_JPRB, &
+ & 0.1026526E-01_JPRB, 0.1043364E-01_JPRB, 0.1075774E-01_JPRB, 0.1175188E-01_JPRB, 0.1299149E-01_JPRB, &
+ & 0.1349927E-01_JPRB, 0.1335356E-01_JPRB, 0.1329088E-01_JPRB, 0.1371228E-01_JPRB, 0.1416486E-01_JPRB, &
+ & 0.1314228E-01_JPRB, 0.1087734E-01_JPRB, 0.8150859E-02_JPRB, 0.4523423E-02_JPRB, 0.2050808E-02_JPRB, &
+ & 0.1681349E-02_JPRB, 0.2845095E-02_JPRB, 0.4677435E-02_JPRB, 0.6798010E-02_JPRB, 0.1090589E-01_JPRB, &
+ & 0.1337907E-01_JPRB, 0.1275446E-01_JPRB, 0.1242592E-01_JPRB, 0.1394778E-01_JPRB, 0.1606850E-01_JPRB, &
+ & 0.1529291E-01_JPRB, 0.1153001E-01_JPRB, 0.8916092E-02_JPRB, 0.6729881E-02_JPRB, 0.4765625E-02_JPRB, &
+ & 0.5167450E-02_JPRB, 0.7806076E-02_JPRB, 0.1046871E-01_JPRB, 0.9795097E-02_JPRB, 0.8494707E-02_JPRB, &
+ & 0.7421230E-02_JPRB, 0.6606390E-02_JPRB, 0.6140483E-02_JPRB, 0.8835159E-02_JPRB, 0.1348886E-01_JPRB, &
+ & 0.2018839E-01_JPRB, 0.2876065E-01_JPRB, 0.4566265E-01_JPRB, 0.3430709E-01_JPRB, 0.2582433E-01_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB /)
+ZCTUV2(  1:300) = (/ &
+ & 0.5449728E-05_JPRB, 0.1073871E-05_JPRB,-0.4617351E-05_JPRB,-0.4662597E-05_JPRB,-0.4245903E-05_JPRB, &
+ &-0.3501344E-05_JPRB,-0.2327032E-05_JPRB,-0.1160485E-05_JPRB,-0.9958612E-06_JPRB,-0.9097969E-06_JPRB, &
+ &-0.6708045E-06_JPRB,-0.3015507E-06_JPRB,-0.6392786E-08_JPRB,-0.3021240E-06_JPRB,-0.6042436E-06_JPRB, &
+ & 0.1495235E-06_JPRB, 0.2286339E-05_JPRB, 0.3876945E-05_JPRB, 0.3135600E-05_JPRB, 0.1962560E-05_JPRB, &
+ & 0.2706349E-06_JPRB,-0.2130587E-05_JPRB,-0.4417644E-05_JPRB,-0.4455218E-05_JPRB,-0.4247367E-05_JPRB, &
+ &-0.2599687E-05_JPRB, 0.1002400E-05_JPRB, 0.4013848E-05_JPRB, 0.4290779E-05_JPRB, 0.4239120E-05_JPRB, &
+ & 0.2425512E-05_JPRB,-0.1615081E-05_JPRB,-0.5240423E-05_JPRB,-0.4114007E-05_JPRB,-0.2223535E-05_JPRB, &
+ & 0.7356294E-06_JPRB, 0.4315885E-05_JPRB, 0.7074211E-05_JPRB, 0.3583437E-05_JPRB,-0.7265943E-06_JPRB, &
+ &-0.2152072E-05_JPRB, 0.8515158E-06_JPRB, 0.2627439E-05_JPRB, 0.3447826E-05_JPRB, 0.3982830E-05_JPRB, &
+ & 0.3435070E-05_JPRB, 0.2089333E-05_JPRB, 0.6670214E-06_JPRB,-0.5065600E-06_JPRB,-0.1649474E-05_JPRB, &
+ &-0.5022627E-06_JPRB, 0.2711703E-05_JPRB, 0.5396061E-05_JPRB, 0.5160576E-05_JPRB, 0.4445397E-05_JPRB, &
+ & 0.4654078E-05_JPRB, 0.6341880E-05_JPRB, 0.7375423E-05_JPRB, 0.5832266E-05_JPRB, 0.3559810E-05_JPRB, &
+ & 0.1810887E-05_JPRB, 0.4885454E-06_JPRB,-0.4923044E-06_JPRB, 0.8285694E-06_JPRB, 0.2424262E-05_JPRB, &
+ & 0.4601969E-05_JPRB, 0.6532422E-05_JPRB, 0.7979189E-05_JPRB, 0.5542080E-05_JPRB, 0.6684266E-06_JPRB, &
+ & 0.5030713E-06_JPRB, 0.3990714E-05_JPRB, 0.6064054E-05_JPRB, 0.5041105E-05_JPRB, 0.3097796E-05_JPRB, &
+ & 0.2510567E-05_JPRB, 0.2758335E-05_JPRB, 0.2725572E-05_JPRB, 0.1902094E-05_JPRB, 0.5449911E-06_JPRB, &
+ & 0.1825130E-05_JPRB, 0.5139096E-05_JPRB, 0.7489894E-05_JPRB, 0.6139778E-05_JPRB, 0.3478090E-05_JPRB, &
+ & 0.2995152E-05_JPRB, 0.3705460E-05_JPRB, 0.4955684E-05_JPRB, 0.5840223E-05_JPRB, 0.6808994E-05_JPRB, &
+ & 0.7637068E-05_JPRB, 0.8072566E-05_JPRB, 0.8472739E-05_JPRB, 0.8785633E-05_JPRB, 0.9082861E-05_JPRB, &
+ & 0.8783771E-05_JPRB, 0.8007679E-05_JPRB, 0.7444976E-05_JPRB, 0.8667521E-05_JPRB, 0.1001028E-04_JPRB, &
+ & 0.9730282E-05_JPRB, 0.7358927E-05_JPRB, 0.5605692E-05_JPRB, 0.9000273E-05_JPRB, 0.1483381E-04_JPRB, &
+ & 0.1546519E-04_JPRB, 0.1342223E-04_JPRB, 0.1142913E-04_JPRB, 0.1142773E-04_JPRB, 0.1189336E-04_JPRB, &
+ & 0.1269055E-04_JPRB, 0.1521436E-04_JPRB, 0.1622249E-04_JPRB, 0.1450292E-04_JPRB, 0.1258747E-04_JPRB, &
+ & 0.1118601E-04_JPRB, 0.1046087E-04_JPRB, 0.1042888E-04_JPRB, 0.1318807E-04_JPRB, 0.1757355E-04_JPRB, &
+ & 0.1569589E-04_JPRB, 0.8876419E-05_JPRB, 0.3477785E-05_JPRB, 0.6092179E-05_JPRB, 0.1169360E-04_JPRB, &
+ & 0.1280658E-04_JPRB, 0.1156909E-04_JPRB, 0.1077928E-04_JPRB, 0.1150577E-04_JPRB, 0.1265658E-04_JPRB, &
+ & 0.1216864E-04_JPRB, 0.1071351E-04_JPRB, 0.9272525E-05_JPRB, 0.9172681E-05_JPRB, 0.9266210E-05_JPRB, &
+ & 0.8021223E-05_JPRB, 0.5337233E-05_JPRB, 0.2790878E-05_JPRB, 0.5715482E-05_JPRB, 0.8468879E-05_JPRB, &
+ & 0.1234670E-04_JPRB, 0.1693622E-04_JPRB, 0.1945495E-04_JPRB, 0.1515071E-04_JPRB, 0.8224375E-05_JPRB, &
+ & 0.1201112E-04_JPRB, 0.2331155E-04_JPRB, 0.3526882E-04_JPRB, 0.2870291E-04_JPRB, 0.1563162E-04_JPRB, &
+ & 0.1140909E-04_JPRB, 0.1557432E-04_JPRB, 0.1762633E-04_JPRB, 0.1500678E-04_JPRB, 0.1178058E-04_JPRB, &
+ & 0.1138556E-04_JPRB, 0.1392922E-04_JPRB, 0.1566068E-04_JPRB, 0.1500365E-04_JPRB, 0.1378532E-04_JPRB, &
+ & 0.1177548E-04_JPRB, 0.9777851E-05_JPRB, 0.7775072E-05_JPRB, 0.8716728E-05_JPRB, 0.9806249E-05_JPRB, &
+ & 0.1316521E-04_JPRB, 0.1904226E-04_JPRB, 0.2291855E-04_JPRB, 0.2240074E-04_JPRB, 0.2072333E-04_JPRB, &
+ & 0.1811899E-04_JPRB, 0.1469667E-04_JPRB, 0.1133881E-04_JPRB, 0.1322723E-04_JPRB, 0.1647023E-04_JPRB, &
+ & 0.1916838E-04_JPRB, 0.2205816E-04_JPRB, 0.2387456E-04_JPRB, 0.2335926E-04_JPRB, 0.2209182E-04_JPRB, &
+ & 0.1890222E-04_JPRB, 0.1381362E-04_JPRB, 0.9271030E-05_JPRB, 0.5131299E-05_JPRB, 0.1653106E-05_JPRB, &
+ & 0.4911985E-05_JPRB, 0.1272395E-04_JPRB, 0.1980745E-04_JPRB, 0.2038804E-04_JPRB, 0.2024396E-04_JPRB, &
+ & 0.2059572E-04_JPRB, 0.2124187E-04_JPRB, 0.2100664E-04_JPRB, 0.1594810E-04_JPRB, 0.8547316E-05_JPRB, &
+ & 0.9426703E-05_JPRB, 0.1696874E-04_JPRB, 0.2096693E-04_JPRB, 0.1660292E-04_JPRB, 0.1010086E-04_JPRB, &
+ & 0.8478976E-05_JPRB, 0.9815730E-05_JPRB, 0.1096572E-04_JPRB, 0.1022864E-04_JPRB, 0.8534034E-05_JPRB, &
+ & 0.7089896E-05_JPRB, 0.6877433E-05_JPRB, 0.7622835E-05_JPRB, 0.1016432E-04_JPRB, 0.1179338E-04_JPRB, &
+ & 0.1105352E-04_JPRB, 0.9418647E-05_JPRB, 0.7047521E-05_JPRB, 0.2836491E-05_JPRB,-0.3273142E-05_JPRB, &
+ &-0.5378550E-05_JPRB,-0.4812351E-05_JPRB,-0.4587549E-05_JPRB, 0.2554223E-06_JPRB, 0.6261604E-05_JPRB, &
+ & 0.1238181E-04_JPRB, 0.1535396E-04_JPRB, 0.1632936E-04_JPRB, 0.1245009E-04_JPRB, 0.7953743E-05_JPRB, &
+ & 0.7041203E-05_JPRB, 0.8162968E-05_JPRB, 0.8718669E-05_JPRB, 0.4926565E-05_JPRB,-0.3380653E-05_JPRB, &
+ &-0.8394464E-05_JPRB,-0.4490310E-05_JPRB, 0.1038037E-05_JPRB, 0.1348030E-04_JPRB, 0.2415614E-04_JPRB, &
+ & 0.2358109E-04_JPRB, 0.1487318E-04_JPRB, 0.8895374E-05_JPRB, 0.7548401E-05_JPRB, 0.6078768E-05_JPRB, &
+ & 0.6853832E-05_JPRB, 0.9282053E-05_JPRB, 0.1039655E-04_JPRB, 0.1021246E-04_JPRB, 0.8594036E-05_JPRB, &
+ & 0.6369831E-05_JPRB, 0.6854452E-05_JPRB, 0.7271157E-05_JPRB, 0.6951013E-05_JPRB, 0.6097368E-05_JPRB, &
+ & 0.1010198E-04_JPRB, 0.1231559E-04_JPRB, 0.1322275E-04_JPRB, 0.1709857E-04_JPRB, 0.2124202E-04_JPRB, &
+ & 0.1979320E-04_JPRB, 0.1126303E-04_JPRB, 0.4723688E-06_JPRB,-0.7984352E-06_JPRB,-0.7715917E-07_JPRB, &
+ &-0.1499937E-05_JPRB,-0.3995374E-05_JPRB,-0.4728345E-05_JPRB, 0.8784824E-05_JPRB, 0.2100014E-04_JPRB, &
+ & 0.2723090E-04_JPRB, 0.2794500E-04_JPRB, 0.2646355E-04_JPRB, 0.2066187E-04_JPRB, 0.1373170E-04_JPRB, &
+ & 0.8347183E-05_JPRB, 0.3109514E-05_JPRB,-0.3910176E-05_JPRB, 0.5399752E-05_JPRB, 0.2236864E-04_JPRB, &
+ & 0.2737938E-04_JPRB, 0.1373889E-04_JPRB,-0.4865972E-05_JPRB,-0.7329967E-05_JPRB,-0.7027517E-05_JPRB, &
+ & 0.5835257E-05_JPRB, 0.1728207E-04_JPRB, 0.2252474E-04_JPRB, 0.3336825E-04_JPRB, 0.4236085E-04_JPRB, &
+ & 0.3230816E-04_JPRB, 0.8722150E-05_JPRB,-0.9830307E-05_JPRB,-0.4446554E-05_JPRB, 0.7582591E-05_JPRB, &
+ & 0.1569976E-04_JPRB, 0.1360494E-04_JPRB, 0.1223443E-04_JPRB, 0.2941493E-04_JPRB, 0.5059241E-04_JPRB, &
+ & 0.4548364E-04_JPRB, 0.1569561E-04_JPRB, 0.3601336E-05_JPRB, 0.4300248E-04_JPRB, 0.6058728E-04_JPRB /)
+ZCTUV2(301:600) = (/ &
+ & 0.5357265E-04_JPRB, 0.3029424E-04_JPRB, 0.1513925E-05_JPRB,-0.1018678E-04_JPRB,-0.2847171E-04_JPRB, &
+ &-0.3043390E-04_JPRB,-0.9641391E-05_JPRB, 0.1707224E-04_JPRB, 0.1344189E-04_JPRB, 0.3707683E-05_JPRB, &
+ & 0.7901584E-05_JPRB, 0.2753039E-04_JPRB, 0.4065997E-04_JPRB, 0.8414642E-05_JPRB,-0.2501079E-04_JPRB, &
+ &-0.1891941E-04_JPRB, 0.1456770E-04_JPRB, 0.3651696E-04_JPRB, 0.2586492E-04_JPRB, 0.1050168E-04_JPRB, &
+ & 0.5334877E-06_JPRB,-0.1962072E-04_JPRB,-0.5089322E-04_JPRB,-0.8441173E-04_JPRB,-0.1526737E-03_JPRB, &
+ &-0.1566662E-03_JPRB,-0.7777984E-04_JPRB, 0.1420665E-04_JPRB, 0.2271288E-05_JPRB,-0.2627546E-04_JPRB, &
+ & 0.1128679E-04_JPRB, 0.1177677E-03_JPRB, 0.1880122E-03_JPRB, 0.1648969E-03_JPRB, 0.1299399E-03_JPRB, &
+ & 0.6704369E-04_JPRB,-0.2064946E-04_JPRB,-0.9502823E-04_JPRB,-0.4572404E-04_JPRB, 0.3763052E-04_JPRB, &
+ & 0.8176474E-04_JPRB, 0.7521586E-04_JPRB, 0.6640679E-04_JPRB, 0.4663960E-04_JPRB, 0.1536782E-05_JPRB, &
+ &-0.1030770E-03_JPRB,-0.2760625E-03_JPRB,-0.6169242E-03_JPRB,-0.3990865E-03_JPRB,-0.2450004E-03_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, &
+ & 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB, 0.0000000E+00_JPRB /)
+
+!ZDK250 = (/ &
+!ZDTUV1 = (/ &
+!ZDTUV2 = (/ &
+
+
+                                    
+! revised 20051031
+! TSI UV: 0.1057502799E+03 integrated over the 280-400 nm interval
+ZASUVB = (/ &                                                            
+ & 0.1251796E+01_JPRB, 0.1800686E+01_JPRB, 0.3127783E+01_JPRB, 0.3057467E+01_JPRB, 0.3225982E+01_JPRB, &
+ & 0.3601007E+01_JPRB, 0.3833149E+01_JPRB, 0.3772373E+01_JPRB, 0.3740471E+01_JPRB, 0.5108631E+01_JPRB, &
+ & 0.4926397E+01_JPRB, 0.4104165E+01_JPRB, 0.4356608E+01_JPRB, 0.5318757E+01_JPRB, 0.5635120E+01_JPRB, &
+ & 0.4680448E+01_JPRB, 0.5237057E+01_JPRB, 0.6325728E+01_JPRB, 0.5219252E+01_JPRB, 0.5970084E+01_JPRB, &
+ & 0.4724881E+01_JPRB, 0.4951663E+01_JPRB, 0.5338753E+01_JPRB, 0.6442023E+01_JPRB /)
+
+! TSI UV: 0.1057502799E+03 integrated over the 280-400 nm interval
+ZBSUVB = (/ &                                                            
+ & 0.6848311E-01_JPRB, 0.2498671E+00_JPRB, 0.3945846E+00_JPRB, 0.3491516E+00_JPRB, 0.1897091E+00_JPRB, &
+ & 0.8228300E-01_JPRB, 0.2997684E+00_JPRB, 0.4743167E+00_JPRB, 0.4136641E+00_JPRB, 0.5306536E+00_JPRB, &
+ & 0.7163181E+00_JPRB, 0.6737111E+00_JPRB, 0.5750798E+00_JPRB, 0.6513190E+00_JPRB, 0.5113551E+00_JPRB, &
+ & 0.6462190E+00_JPRB, 0.5669341E+00_JPRB, 0.6326718E+00_JPRB, 0.4581728E+00_JPRB, 0.7534690E+00_JPRB, &
+ & 0.5087756E+00_JPRB, 0.7125608E+00_JPRB, 0.5832244E+00_JPRB, 0.7415306E+00_JPRB, 0.6798909E+00_JPRB, &
+ & 0.7188407E+00_JPRB, 0.6775800E+00_JPRB, 0.8080093E+00_JPRB, 0.8375965E+00_JPRB, 0.5589809E+00_JPRB, &
+ & 0.7169390E+00_JPRB, 0.8965086E+00_JPRB, 0.7290298E+00_JPRB, 0.8052218E+00_JPRB, 0.6854493E+00_JPRB, &
+ & 0.7742989E+00_JPRB, 0.6145189E+00_JPRB, 0.9867508E+00_JPRB, 0.6230114E+00_JPRB, 0.7737931E+00_JPRB, &
+ & 0.8929048E+00_JPRB, 0.6839315E+00_JPRB, 0.6537453E+00_JPRB, 0.6464708E+00_JPRB, 0.8634182E+00_JPRB, &
+ & 0.9398837E+00_JPRB, 0.1117516E+01_JPRB, 0.1016506E+01_JPRB, 0.9115749E+00_JPRB, 0.1123150E+01_JPRB, &
+ & 0.9910813E+00_JPRB, 0.9517728E+00_JPRB, 0.1039072E+01_JPRB, 0.9489145E+00_JPRB, 0.9955564E+00_JPRB, &
+ & 0.9388580E+00_JPRB, 0.6909630E+00_JPRB, 0.7680316E+00_JPRB, 0.8123949E+00_JPRB, 0.8939177E+00_JPRB, &
+ & 0.9223812E+00_JPRB, 0.8122940E+00_JPRB, 0.8338263E+00_JPRB, 0.9790789E+00_JPRB, 0.8090277E+00_JPRB, &
+ & 0.1097064E+01_JPRB, 0.1042524E+01_JPRB, 0.9627741E+00_JPRB, 0.1277082E+01_JPRB, 0.9393126E+00_JPRB, &
+ & 0.1239610E+01_JPRB, 0.1066807E+01_JPRB, 0.9717703E+00_JPRB, 0.1129375E+01_JPRB, 0.1227557E+01_JPRB, &
+ & 0.1157243E+01_JPRB, 0.9689299E+00_JPRB, 0.8114618E+00_JPRB, 0.6022537E+00_JPRB, 0.1140560E+01_JPRB, &
+ & 0.1067406E+01_JPRB, 0.1023137E+01_JPRB, 0.1176517E+01_JPRB, 0.9235301E+00_JPRB, 0.1046466E+01_JPRB, &
+ & 0.1342558E+01_JPRB, 0.1303960E+01_JPRB, 0.1248713E+01_JPRB, 0.1120003E+01_JPRB, 0.1310493E+01_JPRB, &
+ & 0.1126627E+01_JPRB, 0.1383549E+01_JPRB, 0.9327253E+00_JPRB, 0.8592345E+00_JPRB, 0.9171154E+00_JPRB, &
+ & 0.1090722E+01_JPRB, 0.1083875E+01_JPRB, 0.1342697E+01_JPRB, 0.1462411E+01_JPRB, 0.9903797E+00_JPRB, &
+ & 0.1264847E+01_JPRB, 0.1143896E+01_JPRB, 0.6993406E+00_JPRB, 0.6519147E+00_JPRB, 0.9648829E+00_JPRB, &
+ & 0.9177119E+00_JPRB, 0.9760993E+00_JPRB, 0.8564172E+00_JPRB, 0.8915388E+00_JPRB, 0.1309896E+01_JPRB, &
+ & 0.1252062E+01_JPRB, 0.1518355E+01_JPRB, 0.1037630E+01_JPRB, 0.3918341E+00_JPRB, 0.1138872E+01_JPRB, &
+ & 0.1384648E+01_JPRB, 0.7875828E+00_JPRB, 0.9430014E+00_JPRB, 0.1651466E+01_JPRB, 0.1675324E+01_JPRB /)
+
+! TSI UV: 0.1057502799E+03 integrated over the 280-400 nm interval
+ZCSUVB(  1:300) = (/ &
+ & 0.1158150E-01_JPRB, 0.4307253E-02_JPRB, 0.8679530E-02_JPRB, 0.1612620E-01_JPRB, 0.2778863E-01_JPRB, &
+ & 0.3575870E-01_JPRB, 0.3593124E-01_JPRB, 0.5114494E-01_JPRB, 0.6681306E-01_JPRB, 0.6021919E-01_JPRB, &
+ & 0.8154579E-01_JPRB, 0.6622351E-01_JPRB, 0.8759850E-01_JPRB, 0.7109950E-01_JPRB, 0.8811727E-01_JPRB, &
+ & 0.7734752E-01_JPRB, 0.6886194E-01_JPRB, 0.7562198E-01_JPRB, 0.5066989E-01_JPRB, 0.7665027E-01_JPRB, &
+ & 0.5342708E-01_JPRB, 0.5731519E-01_JPRB, 0.3119192E-01_JPRB, 0.2780394E-01_JPRB, 0.1997097E-01_JPRB, &
+ & 0.1199952E-01_JPRB, 0.3781212E-02_JPRB, 0.1343422E-01_JPRB, 0.2034198E-01_JPRB, 0.3272607E-01_JPRB, &
+ & 0.4846868E-01_JPRB, 0.5698028E-01_JPRB, 0.7398895E-01_JPRB, 0.4847769E-01_JPRB, 0.7185277E-01_JPRB, &
+ & 0.9515611E-01_JPRB, 0.1128814E+00_JPRB, 0.9564205E-01_JPRB, 0.7717521E-01_JPRB, 0.9346189E-01_JPRB, &
+ & 0.4597404E-01_JPRB, 0.3428929E-01_JPRB, 0.1077923E+00_JPRB, 0.1154901E+00_JPRB, 0.1101183E+00_JPRB, &
+ & 0.9279595E-01_JPRB, 0.9740494E-01_JPRB, 0.7512583E-01_JPRB, 0.1420005E+00_JPRB, 0.1233264E+00_JPRB, &
+ & 0.1506065E+00_JPRB, 0.1314347E+00_JPRB, 0.1466181E+00_JPRB, 0.1625762E+00_JPRB, 0.1250826E+00_JPRB, &
+ & 0.1025410E+00_JPRB, 0.1180653E+00_JPRB, 0.1372793E+00_JPRB, 0.1567150E+00_JPRB, 0.1591106E+00_JPRB, &
+ & 0.1509978E+00_JPRB, 0.1523881E+00_JPRB, 0.1050467E+00_JPRB, 0.8648758E-01_JPRB, 0.8015965E-01_JPRB, &
+ & 0.1484698E+00_JPRB, 0.1179774E+00_JPRB, 0.1492430E+00_JPRB, 0.1174614E+00_JPRB, 0.1181674E+00_JPRB, &
+ & 0.1251424E+00_JPRB, 0.1001071E+00_JPRB, 0.9280812E-01_JPRB, 0.1512694E+00_JPRB, 0.4202820E-01_JPRB, &
+ & 0.1189204E+00_JPRB, 0.1582238E+00_JPRB, 0.9405126E-01_JPRB, 0.1425538E+00_JPRB, 0.1324698E+00_JPRB, &
+ & 0.1597341E+00_JPRB, 0.1710007E+00_JPRB, 0.8407424E-01_JPRB, 0.5323930E-01_JPRB, 0.9888584E-01_JPRB, &
+ & 0.6824519E-01_JPRB, 0.1120127E+00_JPRB, 0.1361283E+00_JPRB, 0.1293499E+00_JPRB, 0.1869357E+00_JPRB, &
+ & 0.1177258E+00_JPRB, 0.9133044E-01_JPRB, 0.4441319E-01_JPRB, 0.9906802E-01_JPRB, 0.1056354E+00_JPRB, &
+ & 0.1822143E+00_JPRB, 0.1713972E+00_JPRB, 0.6409213E-01_JPRB, 0.1762541E+00_JPRB, 0.1595112E+00_JPRB, &
+ & 0.4608663E-01_JPRB, 0.6802742E-01_JPRB, 0.1393778E+00_JPRB, 0.1646635E+00_JPRB, 0.9062016E-01_JPRB, &
+ & 0.1500694E+00_JPRB, 0.1700569E+00_JPRB, 0.1527697E+00_JPRB, 0.1529162E+00_JPRB, 0.8674857E-01_JPRB, &
+ & 0.4436884E-01_JPRB, 0.1046963E+00_JPRB, 0.1463353E+00_JPRB, 0.8535615E-01_JPRB, 0.2024678E+00_JPRB, &
+ & 0.1631171E+00_JPRB, 0.1501661E+00_JPRB, 0.1783627E+00_JPRB, 0.1560721E+00_JPRB, 0.9381256E-01_JPRB, &
+ & 0.1548443E+00_JPRB, 0.1065238E+00_JPRB, 0.1752939E+00_JPRB, 0.1560214E+00_JPRB, 0.8720748E-01_JPRB, &
+ & 0.1526506E+00_JPRB, 0.2124056E+00_JPRB, 0.1212607E+00_JPRB, 0.1718601E+00_JPRB, 0.6066382E-01_JPRB, &
+ & 0.1302736E+00_JPRB, 0.1977617E+00_JPRB, 0.1057830E+00_JPRB, 0.1346538E+00_JPRB, 0.1091080E+00_JPRB, &
+ & 0.1827814E+00_JPRB, 0.1490962E+00_JPRB, 0.1923628E+00_JPRB, 0.1350661E+00_JPRB, 0.1487027E+00_JPRB, &
+ & 0.1854675E+00_JPRB, 0.1422262E+00_JPRB, 0.1845453E+00_JPRB, 0.1926982E+00_JPRB, 0.1326593E+00_JPRB, &
+ & 0.9339384E-01_JPRB, 0.7605023E-01_JPRB, 0.1398333E+00_JPRB, 0.1053312E+00_JPRB, 0.1443723E+00_JPRB, &
+ & 0.4935243E-01_JPRB, 0.1231221E+00_JPRB, 0.1592260E+00_JPRB, 0.1695701E+00_JPRB, 0.2156683E+00_JPRB, &
+ & 0.1872401E+00_JPRB, 0.2222135E+00_JPRB, 0.1774713E+00_JPRB, 0.1779839E+00_JPRB, 0.1315997E+00_JPRB, &
+ & 0.1245990E+00_JPRB, 0.1306088E+00_JPRB, 0.1570354E+00_JPRB, 0.1659742E+00_JPRB, 0.1508124E+00_JPRB, &
+ & 0.1550767E+00_JPRB, 0.1582761E+00_JPRB, 0.1203409E+00_JPRB, 0.1615870E+00_JPRB, 0.2099411E+00_JPRB, &
+ & 0.1686777E+00_JPRB, 0.1619672E+00_JPRB, 0.5918952E-01_JPRB, 0.1481797E+00_JPRB, 0.1474352E+00_JPRB, &
+ & 0.1851919E+00_JPRB, 0.1679120E+00_JPRB, 0.1998436E+00_JPRB, 0.1389546E+00_JPRB, 0.8239684E-01_JPRB, &
+ & 0.1047535E+00_JPRB, 0.9949701E-01_JPRB, 0.1487465E+00_JPRB, 0.1276272E+00_JPRB, 0.1338947E+00_JPRB, &
+ & 0.1867179E+00_JPRB, 0.2201701E+00_JPRB, 0.1779457E+00_JPRB, 0.2388429E+00_JPRB, 0.1630742E+00_JPRB, &
+ & 0.1068201E+00_JPRB, 0.8450688E-01_JPRB, 0.1127901E+00_JPRB, 0.1274841E+00_JPRB, 0.1914103E+00_JPRB, &
+ & 0.2002285E+00_JPRB, 0.9097867E-01_JPRB, 0.1278886E+00_JPRB, 0.1344432E+00_JPRB, 0.2202541E+00_JPRB, &
+ & 0.1482008E+00_JPRB, 0.1469951E+00_JPRB, 0.2015719E+00_JPRB, 0.1878379E+00_JPRB, 0.2082990E+00_JPRB, &
+ & 0.1017584E+00_JPRB, 0.1451019E+00_JPRB, 0.7703697E-01_JPRB, 0.1780647E+00_JPRB, 0.1819695E+00_JPRB, &
+ & 0.1600806E+00_JPRB, 0.1267505E+00_JPRB, 0.1588537E+00_JPRB, 0.9667448E-01_JPRB, 0.1113860E+00_JPRB, &
+ & 0.9133881E-01_JPRB, 0.1729763E+00_JPRB, 0.1181825E+00_JPRB, 0.1292425E+00_JPRB, 0.1347307E+00_JPRB, &
+ & 0.1512866E+00_JPRB, 0.1808238E+00_JPRB, 0.1699806E+00_JPRB, 0.2193174E+00_JPRB, 0.1420098E+00_JPRB, &
+ & 0.1576642E+00_JPRB, 0.1784694E+00_JPRB, 0.1526431E+00_JPRB, 0.2519739E+00_JPRB, 0.1991331E+00_JPRB, &
+ & 0.2155590E+00_JPRB, 0.2423780E+00_JPRB, 0.2025711E+00_JPRB, 0.2256757E+00_JPRB, 0.2313318E+00_JPRB, &
+ & 0.1832516E+00_JPRB, 0.2300989E+00_JPRB, 0.2196651E+00_JPRB, 0.2103950E+00_JPRB, 0.1730957E+00_JPRB, &
+ & 0.1979747E+00_JPRB, 0.1740626E+00_JPRB, 0.1905000E+00_JPRB, 0.1610193E+00_JPRB, 0.1880183E+00_JPRB, &
+ & 0.2203149E+00_JPRB, 0.2412104E+00_JPRB, 0.2545475E+00_JPRB, 0.1662324E+00_JPRB, 0.2408452E+00_JPRB, &
+ & 0.2558326E+00_JPRB, 0.1969197E+00_JPRB, 0.2039628E+00_JPRB, 0.1443392E+00_JPRB, 0.1900270E+00_JPRB, &
+ & 0.2009350E+00_JPRB, 0.1847773E+00_JPRB, 0.1558351E+00_JPRB, 0.1924818E+00_JPRB, 0.2177436E+00_JPRB, &
+ & 0.2086823E+00_JPRB, 0.1804881E+00_JPRB, 0.2275202E+00_JPRB, 0.2078572E+00_JPRB, 0.2145247E+00_JPRB, &
+ & 0.1762646E+00_JPRB, 0.2206831E+00_JPRB, 0.2270376E+00_JPRB, 0.1269940E+00_JPRB, 0.1979352E+00_JPRB, &
+ & 0.2014534E+00_JPRB, 0.2058836E+00_JPRB, 0.2000303E+00_JPRB, 0.1874826E+00_JPRB, 0.2007064E+00_JPRB, &
+ & 0.1420998E+00_JPRB, 0.2326092E+00_JPRB, 0.2102334E+00_JPRB, 0.2060209E+00_JPRB, 0.1478948E+00_JPRB, &
+ & 0.6166791E-01_JPRB, 0.9824482E-01_JPRB, 0.2134419E+00_JPRB, 0.1737989E+00_JPRB, 0.1438094E+00_JPRB, &
+ & 0.9751125E-01_JPRB, 0.9984105E-01_JPRB, 0.1418594E+00_JPRB, 0.2413629E+00_JPRB, 0.1874570E+00_JPRB, &
+ & 0.1152467E+00_JPRB, 0.1874475E+00_JPRB, 0.1836579E+00_JPRB, 0.1809469E+00_JPRB, 0.1450959E+00_JPRB, &
+ & 0.2264130E+00_JPRB, 0.1111494E+00_JPRB, 0.1591455E+00_JPRB, 0.1895232E+00_JPRB, 0.2076865E+00_JPRB /)
+ZCSUVB(301:600) = (/ &
+ & 0.2530582E+00_JPRB, 0.1691832E+00_JPRB, 0.1673257E+00_JPRB, 0.1651305E+00_JPRB, 0.1676837E+00_JPRB, &
+ & 0.1801740E+00_JPRB, 0.1678922E+00_JPRB, 0.1142739E+00_JPRB, 0.1588322E+00_JPRB, 0.1911218E+00_JPRB, &
+ & 0.2137500E+00_JPRB, 0.1589394E+00_JPRB, 0.1462175E+00_JPRB, 0.1521134E+00_JPRB, 0.1628060E+00_JPRB, &
+ & 0.2311198E+00_JPRB, 0.1948069E+00_JPRB, 0.1652501E+00_JPRB, 0.1950638E+00_JPRB, 0.1928383E+00_JPRB, &
+ & 0.1185256E+00_JPRB, 0.1315500E+00_JPRB, 0.1481399E+00_JPRB, 0.1733126E+00_JPRB, 0.2374996E+00_JPRB, &
+ & 0.2374471E+00_JPRB, 0.1786689E+00_JPRB, 0.2087820E+00_JPRB, 0.2633031E+00_JPRB, 0.2088632E+00_JPRB, &
+ & 0.2220497E+00_JPRB, 0.1871010E+00_JPRB, 0.2358347E+00_JPRB, 0.1865678E+00_JPRB, 0.2109712E+00_JPRB, &
+ & 0.2466503E+00_JPRB, 0.2067040E+00_JPRB, 0.2054577E+00_JPRB, 0.1018214E+00_JPRB, 0.2021408E+00_JPRB, &
+ & 0.2510176E+00_JPRB, 0.2619543E+00_JPRB, 0.2186540E+00_JPRB, 0.2692426E+00_JPRB, 0.2762131E+00_JPRB, &
+ & 0.1443544E+00_JPRB, 0.2331391E+00_JPRB, 0.2068319E+00_JPRB, 0.1624159E+00_JPRB, 0.1925712E+00_JPRB, &
+ & 0.2315444E+00_JPRB, 0.2675816E+00_JPRB, 0.2617563E+00_JPRB, 0.2397498E+00_JPRB, 0.2389780E+00_JPRB, &
+ & 0.2017490E+00_JPRB, 0.2164805E+00_JPRB, 0.1560795E+00_JPRB, 0.2334687E+00_JPRB, 0.2590291E+00_JPRB, &
+ & 0.2519819E+00_JPRB, 0.2069263E+00_JPRB, 0.1131312E+00_JPRB, 0.1501324E+00_JPRB, 0.2495983E+00_JPRB, &
+ & 0.2326745E+00_JPRB, 0.2538886E+00_JPRB, 0.2257110E+00_JPRB, 0.2008390E+00_JPRB, 0.2162623E+00_JPRB, &
+ & 0.2815691E+00_JPRB, 0.2071696E+00_JPRB, 0.2931835E+00_JPRB, 0.2567119E+00_JPRB, 0.1889232E+00_JPRB, &
+ & 0.2792606E+00_JPRB, 0.2335529E+00_JPRB, 0.1652571E+00_JPRB, 0.2136573E+00_JPRB, 0.2655147E+00_JPRB, &
+ & 0.2021998E+00_JPRB, 0.2492024E+00_JPRB, 0.2237493E+00_JPRB, 0.9668919E-01_JPRB, 0.1970893E+00_JPRB, &
+ & 0.9243014E-01_JPRB, 0.1704992E+00_JPRB, 0.1867496E+00_JPRB, 0.1740344E+00_JPRB, 0.1877484E+00_JPRB, &
+ & 0.1485550E+00_JPRB, 0.9281972E-01_JPRB, 0.1346586E+00_JPRB, 0.8005841E-01_JPRB, 0.1461620E+00_JPRB, &
+ & 0.1703585E+00_JPRB, 0.2748065E+00_JPRB, 0.2135569E+00_JPRB, 0.2206926E+00_JPRB, 0.2611456E+00_JPRB, &
+ & 0.3002764E+00_JPRB, 0.2001613E+00_JPRB, 0.1852186E+00_JPRB, 0.1820937E+00_JPRB, 0.1996564E+00_JPRB, &
+ & 0.1438404E+00_JPRB, 0.2192468E+00_JPRB, 0.2426639E+00_JPRB, 0.2698561E+00_JPRB, 0.1475303E+00_JPRB, &
+ & 0.1369558E+00_JPRB, 0.2283586E+00_JPRB, 0.1959572E+00_JPRB, 0.3457803E+00_JPRB, 0.2694656E+00_JPRB, &
+ & 0.1617160E+00_JPRB, 0.1227123E+00_JPRB, 0.2226935E+00_JPRB, 0.1845919E+00_JPRB, 0.2318165E+00_JPRB, &
+ & 0.2967969E+00_JPRB, 0.2018478E+00_JPRB, 0.1869166E+00_JPRB, 0.2005376E+00_JPRB, 0.1603670E+00_JPRB, &
+ & 0.2054483E+00_JPRB, 0.2567736E+00_JPRB, 0.2826306E+00_JPRB, 0.2930521E+00_JPRB, 0.3046532E+00_JPRB, &
+ & 0.2922131E+00_JPRB, 0.2425442E+00_JPRB, 0.2202092E+00_JPRB, 0.3031651E+00_JPRB, 0.2458283E+00_JPRB, &
+ & 0.2005188E+00_JPRB, 0.3134617E+00_JPRB, 0.2558356E+00_JPRB, 0.2571902E+00_JPRB, 0.2217072E+00_JPRB, &
+ & 0.2084442E+00_JPRB, 0.2559362E+00_JPRB, 0.2557498E+00_JPRB, 0.2190597E+00_JPRB, 0.1808136E+00_JPRB, &
+ & 0.2219874E+00_JPRB, 0.3175022E+00_JPRB, 0.2378181E+00_JPRB, 0.2659648E+00_JPRB, 0.2672206E+00_JPRB, &
+ & 0.2852412E+00_JPRB, 0.2738525E+00_JPRB, 0.2187990E+00_JPRB, 0.1703537E+00_JPRB, 0.1783808E+00_JPRB, &
+ & 0.1845599E+00_JPRB, 0.2636097E+00_JPRB, 0.3560195E+00_JPRB, 0.3115435E+00_JPRB, 0.2678166E+00_JPRB, &
+ & 0.1147860E+00_JPRB, 0.1107158E+00_JPRB, 0.2578273E+00_JPRB, 0.2698551E+00_JPRB, 0.1795411E+00_JPRB, &
+ & 0.2748137E+00_JPRB, 0.2236250E+00_JPRB, 0.9111431E-01_JPRB, 0.1095607E+00_JPRB, 0.1601207E+00_JPRB, &
+ & 0.2477373E+00_JPRB, 0.2842807E+00_JPRB, 0.1589658E+00_JPRB, 0.1025690E+00_JPRB, 0.1235626E+00_JPRB, &
+ & 0.1114009E+00_JPRB, 0.2359608E+00_JPRB, 0.2825647E+00_JPRB, 0.3238992E+00_JPRB, 0.1368962E+00_JPRB, &
+ & 0.2139942E+00_JPRB, 0.2490571E+00_JPRB, 0.1949766E+00_JPRB, 0.2244310E+00_JPRB, 0.2014157E+00_JPRB, &
+ & 0.2007936E+00_JPRB, 0.2693866E+00_JPRB, 0.2962085E+00_JPRB, 0.2980880E+00_JPRB, 0.2782205E+00_JPRB, &
+ & 0.3581445E+00_JPRB, 0.3251818E+00_JPRB, 0.3322366E+00_JPRB, 0.2409279E+00_JPRB, 0.2059198E+00_JPRB, &
+ & 0.1942687E+00_JPRB, 0.2585852E+00_JPRB, 0.1726274E+00_JPRB, 0.2225615E+00_JPRB, 0.1423369E+00_JPRB, &
+ & 0.2277843E+00_JPRB, 0.2619196E+00_JPRB, 0.3190190E+00_JPRB, 0.2141752E+00_JPRB, 0.2419485E+00_JPRB, &
+ & 0.3032540E+00_JPRB, 0.2357463E+00_JPRB, 0.1822032E+00_JPRB, 0.1373469E+00_JPRB, 0.2853460E+00_JPRB, &
+ & 0.1031687E+00_JPRB, 0.1750166E+00_JPRB, 0.1704368E+00_JPRB, 0.1019661E+00_JPRB, 0.1487524E+00_JPRB, &
+ & 0.1650886E+00_JPRB, 0.1164109E+00_JPRB, 0.1054042E+00_JPRB, 0.1594288E+00_JPRB, 0.1055822E+00_JPRB, &
+ & 0.1176607E+00_JPRB, 0.1849293E+00_JPRB, 0.2224796E+00_JPRB, 0.1783373E+00_JPRB, 0.2614759E+00_JPRB, &
+ & 0.1500050E+00_JPRB, 0.2488365E+00_JPRB, 0.1675993E+00_JPRB, 0.1911893E+00_JPRB, 0.1600818E+00_JPRB, &
+ & 0.9722187E-01_JPRB, 0.1919937E+00_JPRB, 0.2495219E+00_JPRB, 0.2255473E+00_JPRB, 0.2118145E+00_JPRB, &
+ & 0.1620823E+00_JPRB, 0.1034425E+00_JPRB, 0.2278996E+00_JPRB, 0.2416400E+00_JPRB, 0.1213528E+00_JPRB, &
+ & 0.2125401E+00_JPRB, 0.1247030E+00_JPRB, 0.2620897E+00_JPRB, 0.1179802E+00_JPRB, 0.1742258E+00_JPRB, &
+ & 0.1820025E+00_JPRB, 0.3155541E+00_JPRB, 0.2765884E+00_JPRB, 0.2444874E+00_JPRB, 0.2912637E+00_JPRB, &
+ & 0.2198656E+00_JPRB, 0.2843479E+00_JPRB, 0.2241306E+00_JPRB, 0.2015474E+00_JPRB, 0.3221704E+00_JPRB, &
+ & 0.2833514E+00_JPRB, 0.3601597E+00_JPRB, 0.2911269E+00_JPRB, 0.2972085E+00_JPRB, 0.2865082E+00_JPRB, &
+ & 0.2065020E+00_JPRB, 0.2025947E+00_JPRB, 0.2778561E+00_JPRB, 0.2096391E+00_JPRB, 0.1410383E+00_JPRB, &
+ & 0.9857938E-01_JPRB, 0.6269173E-01_JPRB, 0.2530281E-01_JPRB, 0.7657863E-01_JPRB, 0.1286815E+00_JPRB, &
+ & 0.2086445E+00_JPRB, 0.2141411E+00_JPRB, 0.1877717E+00_JPRB, 0.2910647E+00_JPRB, 0.2372502E+00_JPRB, &
+ & 0.2744186E+00_JPRB, 0.2735835E+00_JPRB, 0.2960536E+00_JPRB, 0.2737275E+00_JPRB, 0.2668652E+00_JPRB, &
+ & 0.3166273E+00_JPRB, 0.1598142E+00_JPRB, 0.1693170E+00_JPRB, 0.9992833E-01_JPRB, 0.4189600E-01_JPRB, &
+ & 0.7145026E-01_JPRB, 0.1279196E+00_JPRB, 0.1842234E+00_JPRB, 0.2720304E+00_JPRB, 0.2873777E+00_JPRB, &
+ & 0.3626651E+00_JPRB, 0.2933673E+00_JPRB, 0.3022911E+00_JPRB, 0.3212442E+00_JPRB, 0.3718986E+00_JPRB, &
+ & 0.3289628E+00_JPRB, 0.3477682E+00_JPRB, 0.3787437E+00_JPRB, 0.3112315E+00_JPRB, 0.3086174E+00_JPRB /)
+
+!ZDSUVB = (/ &
+                                               
+!          Rayleigh cross-sections from Bodhaine et al., 1999
+! NB: values in cm2, so tau = RAYUVB * Pressure * Avogadro / ( m_a * grav )
+!     Pressure: N cm-1 s-2
+!     Avogadro: Avog number (mol-1)
+!     m_a     : dry air mean molecular weight ( g mol-1 )
+!     grav    : gravity ( cm s-2) 
+
+! revised 20051031
+!Rayl: 0.3293000611E-25 sun-weighted over the 280-400 nm interval
+ZARAYUV = (/ &                                                           
+ & 0.7306844E-25_JPRB, 0.6736580E-25_JPRB, 0.6322517E-25_JPRB, 0.5858758E-25_JPRB, 0.5445114E-25_JPRB, &
+ & 0.5087498E-25_JPRB, 0.4744089E-25_JPRB, 0.4430921E-25_JPRB, 0.4145744E-25_JPRB, 0.3880453E-25_JPRB, &
+ & 0.3640141E-25_JPRB, 0.3414811E-25_JPRB, 0.3210803E-25_JPRB, 0.3019948E-25_JPRB, 0.2842767E-25_JPRB, &
+ & 0.2681506E-25_JPRB, 0.2527365E-25_JPRB, 0.2386328E-25_JPRB, 0.2259065E-25_JPRB, 0.2130931E-25_JPRB, &
+ & 0.2022461E-25_JPRB, 0.1907690E-25_JPRB, 0.1816129E-25_JPRB, 0.1714296E-25_JPRB /)
+
+!Rayl: 0.3293000611E-25 sun-weighted over the 280-400 nm interval
+ZBRAYUV = (/ &                                                           
+ & 0.7553307E-25_JPRB, 0.7443457E-25_JPRB, 0.7335825E-25_JPRB, 0.7226265E-25_JPRB, 0.7125960E-25_JPRB, &
+ & 0.6991365E-25_JPRB, 0.6898332E-25_JPRB, 0.6798154E-25_JPRB, 0.6684466E-25_JPRB, 0.6591285E-25_JPRB, &
+ & 0.6496839E-25_JPRB, 0.6396853E-25_JPRB, 0.6313266E-25_JPRB, 0.6216223E-25_JPRB, 0.6126177E-25_JPRB, &
+ & 0.6032645E-25_JPRB, 0.5953125E-25_JPRB, 0.5853245E-25_JPRB, 0.5775356E-25_JPRB, 0.5693963E-25_JPRB, &
+ & 0.5606095E-25_JPRB, 0.5534949E-25_JPRB, 0.5444878E-25_JPRB, 0.5378845E-25_JPRB, 0.5302978E-25_JPRB, &
+ & 0.5231385E-25_JPRB, 0.5155581E-25_JPRB, 0.5083396E-25_JPRB, 0.5011746E-25_JPRB, 0.4939369E-25_JPRB, &
+ & 0.4866159E-25_JPRB, 0.4809942E-25_JPRB, 0.4740003E-25_JPRB, 0.4675913E-25_JPRB, 0.4614712E-25_JPRB, &
+ & 0.4555732E-25_JPRB, 0.4489270E-25_JPRB, 0.4430247E-25_JPRB, 0.4366891E-25_JPRB, 0.4312100E-25_JPRB, &
+ & 0.4253825E-25_JPRB, 0.4196292E-25_JPRB, 0.4146292E-25_JPRB, 0.4089423E-25_JPRB, 0.4035688E-25_JPRB, &
+ & 0.3982210E-25_JPRB, 0.3931992E-25_JPRB, 0.3881491E-25_JPRB, 0.3831836E-25_JPRB, 0.3782540E-25_JPRB, &
+ & 0.3735359E-25_JPRB, 0.3685556E-25_JPRB, 0.3638909E-25_JPRB, 0.3593377E-25_JPRB, 0.3547793E-25_JPRB, &
+ & 0.3502970E-25_JPRB, 0.3455926E-25_JPRB, 0.3412171E-25_JPRB, 0.3372662E-25_JPRB, 0.3331015E-25_JPRB, &
+ & 0.3291422E-25_JPRB, 0.3249210E-25_JPRB, 0.3210885E-25_JPRB, 0.3170751E-25_JPRB, 0.3128713E-25_JPRB, &
+ & 0.3093283E-25_JPRB, 0.3055725E-25_JPRB, 0.3020082E-25_JPRB, 0.2981950E-25_JPRB, 0.2946112E-25_JPRB, &
+ & 0.2911369E-25_JPRB, 0.2875635E-25_JPRB, 0.2842758E-25_JPRB, 0.2809044E-25_JPRB, 0.2775960E-25_JPRB, &
+ & 0.2742853E-25_JPRB, 0.2711246E-25_JPRB, 0.2676895E-25_JPRB, 0.2647165E-25_JPRB, 0.2615410E-25_JPRB, &
+ & 0.2587241E-25_JPRB, 0.2555613E-25_JPRB, 0.2524211E-25_JPRB, 0.2495965E-25_JPRB, 0.2469929E-25_JPRB, &
+ & 0.2439028E-25_JPRB, 0.2412799E-25_JPRB, 0.2385009E-25_JPRB, 0.2358339E-25_JPRB, 0.2331176E-25_JPRB, &
+ & 0.2306411E-25_JPRB, 0.2278344E-25_JPRB, 0.2251960E-25_JPRB, 0.2230511E-25_JPRB, 0.2205796E-25_JPRB, &
+ & 0.2178428E-25_JPRB, 0.2154956E-25_JPRB, 0.2130606E-25_JPRB, 0.2108947E-25_JPRB, 0.2085232E-25_JPRB, &
+ & 0.2061758E-25_JPRB, 0.2039777E-25_JPRB, 0.2017122E-25_JPRB, 0.1995736E-25_JPRB, 0.1972342E-25_JPRB, &
+ & 0.1952774E-25_JPRB, 0.1930078E-25_JPRB, 0.1910372E-25_JPRB, 0.1890537E-25_JPRB, 0.1869344E-25_JPRB, &
+ & 0.1849739E-25_JPRB, 0.1830610E-25_JPRB, 0.1811516E-25_JPRB, 0.1791227E-25_JPRB, 0.1772642E-25_JPRB, &
+ & 0.1754530E-25_JPRB, 0.1739054E-25_JPRB, 0.1715780E-25_JPRB, 0.1699967E-25_JPRB, 0.1682695E-25_JPRB /)
+
+!Rayl: 0.3293000611E-25 sun-weighted over the 280-400 nm interval
+ZCRAYUV(  1:300) = (/ &
+ & 0.7616638E-25_JPRB, 0.7596217E-25_JPRB, 0.7566579E-25_JPRB, 0.7545073E-25_JPRB, 0.7520894E-25_JPRB, &
+ & 0.7498396E-25_JPRB, 0.7474992E-25_JPRB, 0.7449660E-25_JPRB, 0.7426870E-25_JPRB, 0.7405151E-25_JPRB, &
+ & 0.7382129E-25_JPRB, 0.7359474E-25_JPRB, 0.7336698E-25_JPRB, 0.7312532E-25_JPRB, 0.7293129E-25_JPRB, &
+ & 0.7270750E-25_JPRB, 0.7246929E-25_JPRB, 0.7225889E-25_JPRB, 0.7201327E-25_JPRB, 0.7179669E-25_JPRB, &
+ & 0.7159132E-25_JPRB, 0.7137091E-25_JPRB, 0.7112686E-25_JPRB, 0.7092680E-25_JPRB, 0.7072331E-25_JPRB, &
+ & 0.7050776E-25_JPRB, 0.7027431E-25_JPRB, 0.7005233E-25_JPRB, 0.6984647E-25_JPRB, 0.6963897E-25_JPRB, &
+ & 0.6943879E-25_JPRB, 0.6922317E-25_JPRB, 0.6899903E-25_JPRB, 0.6880721E-25_JPRB, 0.6858853E-25_JPRB, &
+ & 0.6837090E-25_JPRB, 0.6817655E-25_JPRB, 0.6795759E-25_JPRB, 0.6775398E-25_JPRB, 0.6756201E-25_JPRB, &
+ & 0.6737114E-25_JPRB, 0.6711798E-25_JPRB, 0.6694924E-25_JPRB, 0.6673852E-25_JPRB, 0.6654869E-25_JPRB, &
+ & 0.6633041E-25_JPRB, 0.6614539E-25_JPRB, 0.6595648E-25_JPRB, 0.6575899E-25_JPRB, 0.6556557E-25_JPRB, &
+ & 0.6535321E-25_JPRB, 0.6515833E-25_JPRB, 0.6496196E-25_JPRB, 0.6476328E-25_JPRB, 0.6457961E-25_JPRB, &
+ & 0.6441038E-25_JPRB, 0.6419320E-25_JPRB, 0.6400914E-25_JPRB, 0.6382210E-25_JPRB, 0.6362626E-25_JPRB, &
+ & 0.6343807E-25_JPRB, 0.6325313E-25_JPRB, 0.6305017E-25_JPRB, 0.6287837E-25_JPRB, 0.6271078E-25_JPRB, &
+ & 0.6250013E-25_JPRB, 0.6232995E-25_JPRB, 0.6213345E-25_JPRB, 0.6199295E-25_JPRB, 0.6177485E-25_JPRB, &
+ & 0.6158079E-25_JPRB, 0.6138453E-25_JPRB, 0.6123282E-25_JPRB, 0.6104834E-25_JPRB, 0.6085159E-25_JPRB, &
+ & 0.6068199E-25_JPRB, 0.6050634E-25_JPRB, 0.6031437E-25_JPRB, 0.6016957E-25_JPRB, 0.5996980E-25_JPRB, &
+ & 0.5980282E-25_JPRB, 0.5962179E-25_JPRB, 0.5947632E-25_JPRB, 0.5930616E-25_JPRB, 0.5910388E-25_JPRB, &
+ & 0.5893103E-25_JPRB, 0.5879395E-25_JPRB, 0.5857085E-25_JPRB, 0.5842694E-25_JPRB, 0.5827528E-25_JPRB, &
+ & 0.5809260E-25_JPRB, 0.5791326E-25_JPRB, 0.5774750E-25_JPRB, 0.5757388E-25_JPRB, 0.5740871E-25_JPRB, &
+ & 0.5725365E-25_JPRB, 0.5709284E-25_JPRB, 0.5695706E-25_JPRB, 0.5675827E-25_JPRB, 0.5660968E-25_JPRB, &
+ & 0.5644708E-25_JPRB, 0.5629105E-25_JPRB, 0.5610676E-25_JPRB, 0.5597107E-25_JPRB, 0.5578470E-25_JPRB, &
+ & 0.5561693E-25_JPRB, 0.5547664E-25_JPRB, 0.5532939E-25_JPRB, 0.5515983E-25_JPRB, 0.5500726E-25_JPRB, &
+ & 0.5488026E-25_JPRB, 0.5466552E-25_JPRB, 0.5453631E-25_JPRB, 0.5435469E-25_JPRB, 0.5421854E-25_JPRB, &
+ & 0.5406856E-25_JPRB, 0.5390386E-25_JPRB, 0.5376519E-25_JPRB, 0.5362250E-25_JPRB, 0.5343698E-25_JPRB, &
+ & 0.5331479E-25_JPRB, 0.5315746E-25_JPRB, 0.5301434E-25_JPRB, 0.5286928E-25_JPRB, 0.5268597E-25_JPRB, &
+ & 0.5257406E-25_JPRB, 0.5240588E-25_JPRB, 0.5227215E-25_JPRB, 0.5212194E-25_JPRB, 0.5196392E-25_JPRB, &
+ & 0.5181440E-25_JPRB, 0.5168025E-25_JPRB, 0.5153224E-25_JPRB, 0.5140691E-25_JPRB, 0.5122811E-25_JPRB, &
+ & 0.5110644E-25_JPRB, 0.5097039E-25_JPRB, 0.5081770E-25_JPRB, 0.5066004E-25_JPRB, 0.5054125E-25_JPRB, &
+ & 0.5039219E-25_JPRB, 0.5023992E-25_JPRB, 0.5009734E-25_JPRB, 0.4998271E-25_JPRB, 0.4982583E-25_JPRB, &
+ & 0.4969272E-25_JPRB, 0.4957173E-25_JPRB, 0.4941637E-25_JPRB, 0.4930264E-25_JPRB, 0.4915094E-25_JPRB, &
+ & 0.4900671E-25_JPRB, 0.4884935E-25_JPRB, 0.4873834E-25_JPRB, 0.4859938E-25_JPRB, 0.4846769E-25_JPRB, &
+ & 0.4834488E-25_JPRB, 0.4820086E-25_JPRB, 0.4807528E-25_JPRB, 0.4794680E-25_JPRB, 0.4781788E-25_JPRB, &
+ & 0.4766772E-25_JPRB, 0.4754919E-25_JPRB, 0.4741631E-25_JPRB, 0.4728048E-25_JPRB, 0.4716431E-25_JPRB, &
+ & 0.4703830E-25_JPRB, 0.4689923E-25_JPRB, 0.4677535E-25_JPRB, 0.4665251E-25_JPRB, 0.4652005E-25_JPRB, &
+ & 0.4638987E-25_JPRB, 0.4627368E-25_JPRB, 0.4614312E-25_JPRB, 0.4600859E-25_JPRB, 0.4587120E-25_JPRB, &
+ & 0.4576507E-25_JPRB, 0.4563778E-25_JPRB, 0.4551894E-25_JPRB, 0.4540353E-25_JPRB, 0.4527886E-25_JPRB, &
+ & 0.4514944E-25_JPRB, 0.4502190E-25_JPRB, 0.4491759E-25_JPRB, 0.4478702E-25_JPRB, 0.4466893E-25_JPRB, &
+ & 0.4453446E-25_JPRB, 0.4442118E-25_JPRB, 0.4429979E-25_JPRB, 0.4417654E-25_JPRB, 0.4406395E-25_JPRB, &
+ & 0.4393794E-25_JPRB, 0.4382254E-25_JPRB, 0.4371032E-25_JPRB, 0.4359890E-25_JPRB, 0.4347318E-25_JPRB, &
+ & 0.4337158E-25_JPRB, 0.4325351E-25_JPRB, 0.4312833E-25_JPRB, 0.4302253E-25_JPRB, 0.4289430E-25_JPRB, &
+ & 0.4278239E-25_JPRB, 0.4267910E-25_JPRB, 0.4255298E-25_JPRB, 0.4244454E-25_JPRB, 0.4233537E-25_JPRB, &
+ & 0.4221707E-25_JPRB, 0.4210167E-25_JPRB, 0.4198555E-25_JPRB, 0.4189473E-25_JPRB, 0.4176732E-25_JPRB, &
+ & 0.4165337E-25_JPRB, 0.4155153E-25_JPRB, 0.4144353E-25_JPRB, 0.4134188E-25_JPRB, 0.4122111E-25_JPRB, &
+ & 0.4110894E-25_JPRB, 0.4101121E-25_JPRB, 0.4090171E-25_JPRB, 0.4079204E-25_JPRB, 0.4068998E-25_JPRB, &
+ & 0.4056811E-25_JPRB, 0.4046853E-25_JPRB, 0.4035664E-25_JPRB, 0.4025730E-25_JPRB, 0.4014375E-25_JPRB, &
+ & 0.4004650E-25_JPRB, 0.3994781E-25_JPRB, 0.3983609E-25_JPRB, 0.3973505E-25_JPRB, 0.3963121E-25_JPRB, &
+ & 0.3953201E-25_JPRB, 0.3941969E-25_JPRB, 0.3932154E-25_JPRB, 0.3922008E-25_JPRB, 0.3911375E-25_JPRB, &
+ & 0.3901542E-25_JPRB, 0.3890660E-25_JPRB, 0.3881347E-25_JPRB, 0.3870995E-25_JPRB, 0.3861014E-25_JPRB, &
+ & 0.3850985E-25_JPRB, 0.3841576E-25_JPRB, 0.3831229E-25_JPRB, 0.3821930E-25_JPRB, 0.3811757E-25_JPRB, &
+ & 0.3802202E-25_JPRB, 0.3791729E-25_JPRB, 0.3782096E-25_JPRB, 0.3772830E-25_JPRB, 0.3762521E-25_JPRB, &
+ & 0.3752196E-25_JPRB, 0.3743804E-25_JPRB, 0.3733339E-25_JPRB, 0.3724655E-25_JPRB, 0.3714239E-25_JPRB, &
+ & 0.3704893E-25_JPRB, 0.3695292E-25_JPRB, 0.3686195E-25_JPRB, 0.3676398E-25_JPRB, 0.3667089E-25_JPRB, &
+ & 0.3657894E-25_JPRB, 0.3649280E-25_JPRB, 0.3638438E-25_JPRB, 0.3630178E-25_JPRB, 0.3620675E-25_JPRB, &
+ & 0.3610680E-25_JPRB, 0.3602397E-25_JPRB, 0.3592707E-25_JPRB, 0.3583906E-25_JPRB, 0.3574758E-25_JPRB, &
+ & 0.3565372E-25_JPRB, 0.3556517E-25_JPRB, 0.3547120E-25_JPRB, 0.3538869E-25_JPRB, 0.3530207E-25_JPRB, &
+ & 0.3519870E-25_JPRB, 0.3511801E-25_JPRB, 0.3502476E-25_JPRB, 0.3493818E-25_JPRB, 0.3486291E-25_JPRB, &
+ & 0.3476539E-25_JPRB, 0.3466662E-25_JPRB, 0.3458988E-25_JPRB, 0.3450374E-25_JPRB, 0.3441917E-25_JPRB, &
+ & 0.3432756E-25_JPRB, 0.3424206E-25_JPRB, 0.3415836E-25_JPRB, 0.3407089E-25_JPRB, 0.3398823E-25_JPRB, &
+ & 0.3391132E-25_JPRB, 0.3381723E-25_JPRB, 0.3372699E-25_JPRB, 0.3364352E-25_JPRB, 0.3356600E-25_JPRB, &
+ & 0.3348421E-25_JPRB, 0.3340288E-25_JPRB, 0.3330966E-25_JPRB, 0.3322651E-25_JPRB, 0.3314748E-25_JPRB /)
+ZCRAYUV(301:600) = (/ &
+ & 0.3305984E-25_JPRB, 0.3298072E-25_JPRB, 0.3289859E-25_JPRB, 0.3282017E-25_JPRB, 0.3273561E-25_JPRB, &
+ & 0.3265128E-25_JPRB, 0.3257629E-25_JPRB, 0.3249522E-25_JPRB, 0.3241397E-25_JPRB, 0.3233116E-25_JPRB, &
+ & 0.3225721E-25_JPRB, 0.3217845E-25_JPRB, 0.3209827E-25_JPRB, 0.3202007E-25_JPRB, 0.3193858E-25_JPRB, &
+ & 0.3186312E-25_JPRB, 0.3177970E-25_JPRB, 0.3169526E-25_JPRB, 0.3162512E-25_JPRB, 0.3154191E-25_JPRB, &
+ & 0.3147949E-25_JPRB, 0.3139129E-25_JPRB, 0.3130702E-25_JPRB, 0.3123660E-25_JPRB, 0.3115790E-25_JPRB, &
+ & 0.3108486E-25_JPRB, 0.3101754E-25_JPRB, 0.3092851E-25_JPRB, 0.3085713E-25_JPRB, 0.3078730E-25_JPRB, &
+ & 0.3070664E-25_JPRB, 0.3062619E-25_JPRB, 0.3055719E-25_JPRB, 0.3048145E-25_JPRB, 0.3040600E-25_JPRB, &
+ & 0.3033070E-25_JPRB, 0.3025883E-25_JPRB, 0.3018769E-25_JPRB, 0.3011228E-25_JPRB, 0.3004097E-25_JPRB, &
+ & 0.2996710E-25_JPRB, 0.2989633E-25_JPRB, 0.2982268E-25_JPRB, 0.2974796E-25_JPRB, 0.2967974E-25_JPRB, &
+ & 0.2961358E-25_JPRB, 0.2953785E-25_JPRB, 0.2945691E-25_JPRB, 0.2939451E-25_JPRB, 0.2931466E-25_JPRB, &
+ & 0.2925504E-25_JPRB, 0.2918363E-25_JPRB, 0.2911492E-25_JPRB, 0.2904339E-25_JPRB, 0.2896760E-25_JPRB, &
+ & 0.2890574E-25_JPRB, 0.2883687E-25_JPRB, 0.2876630E-25_JPRB, 0.2869037E-25_JPRB, 0.2862616E-25_JPRB, &
+ & 0.2855907E-25_JPRB, 0.2848499E-25_JPRB, 0.2842363E-25_JPRB, 0.2836590E-25_JPRB, 0.2828614E-25_JPRB, &
+ & 0.2822013E-25_JPRB, 0.2815331E-25_JPRB, 0.2808206E-25_JPRB, 0.2801999E-25_JPRB, 0.2795129E-25_JPRB, &
+ & 0.2788733E-25_JPRB, 0.2781790E-25_JPRB, 0.2775226E-25_JPRB, 0.2768396E-25_JPRB, 0.2761947E-25_JPRB, &
+ & 0.2755280E-25_JPRB, 0.2748942E-25_JPRB, 0.2742622E-25_JPRB, 0.2736305E-25_JPRB, 0.2729839E-25_JPRB, &
+ & 0.2723205E-25_JPRB, 0.2716291E-25_JPRB, 0.2710531E-25_JPRB, 0.2703178E-25_JPRB, 0.2697369E-25_JPRB, &
+ & 0.2690815E-25_JPRB, 0.2684563E-25_JPRB, 0.2678317E-25_JPRB, 0.2671934E-25_JPRB, 0.2666264E-25_JPRB, &
+ & 0.2660071E-25_JPRB, 0.2652226E-25_JPRB, 0.2647622E-25_JPRB, 0.2640349E-25_JPRB, 0.2634147E-25_JPRB, &
+ & 0.2628049E-25_JPRB, 0.2622270E-25_JPRB, 0.2615982E-25_JPRB, 0.2610121E-25_JPRB, 0.2603948E-25_JPRB, &
+ & 0.2597863E-25_JPRB, 0.2592153E-25_JPRB, 0.2585788E-25_JPRB, 0.2579637E-25_JPRB, 0.2574628E-25_JPRB, &
+ & 0.2567483E-25_JPRB, 0.2561915E-25_JPRB, 0.2555600E-25_JPRB, 0.2549877E-25_JPRB, 0.2545187E-25_JPRB, &
+ & 0.2537348E-25_JPRB, 0.2531826E-25_JPRB, 0.2526576E-25_JPRB, 0.2520277E-25_JPRB, 0.2514406E-25_JPRB, &
+ & 0.2508984E-25_JPRB, 0.2502242E-25_JPRB, 0.2497412E-25_JPRB, 0.2491734E-25_JPRB, 0.2485537E-25_JPRB, &
+ & 0.2479957E-25_JPRB, 0.2474433E-25_JPRB, 0.2468558E-25_JPRB, 0.2462352E-25_JPRB, 0.2456774E-25_JPRB, &
+ & 0.2451092E-25_JPRB, 0.2445473E-25_JPRB, 0.2440110E-25_JPRB, 0.2434430E-25_JPRB, 0.2428878E-25_JPRB, &
+ & 0.2423375E-25_JPRB, 0.2418300E-25_JPRB, 0.2412748E-25_JPRB, 0.2407345E-25_JPRB, 0.2401573E-25_JPRB, &
+ & 0.2395626E-25_JPRB, 0.2390419E-25_JPRB, 0.2384824E-25_JPRB, 0.2379713E-25_JPRB, 0.2374113E-25_JPRB, &
+ & 0.2368813E-25_JPRB, 0.2363609E-25_JPRB, 0.2357891E-25_JPRB, 0.2352318E-25_JPRB, 0.2346731E-25_JPRB, &
+ & 0.2342027E-25_JPRB, 0.2336675E-25_JPRB, 0.2330989E-25_JPRB, 0.2326043E-25_JPRB, 0.2320905E-25_JPRB, &
+ & 0.2315493E-25_JPRB, 0.2310179E-25_JPRB, 0.2305187E-25_JPRB, 0.2299280E-25_JPRB, 0.2294418E-25_JPRB, &
+ & 0.2288918E-25_JPRB, 0.2284270E-25_JPRB, 0.2279157E-25_JPRB, 0.2274044E-25_JPRB, 0.2269143E-25_JPRB, &
+ & 0.2263537E-25_JPRB, 0.2258695E-25_JPRB, 0.2253686E-25_JPRB, 0.2248540E-25_JPRB, 0.2243068E-25_JPRB, &
+ & 0.2238817E-25_JPRB, 0.2233570E-25_JPRB, 0.2228893E-25_JPRB, 0.2223422E-25_JPRB, 0.2217755E-25_JPRB, &
+ & 0.2213169E-25_JPRB, 0.2208572E-25_JPRB, 0.2203020E-25_JPRB, 0.2198316E-25_JPRB, 0.2194407E-25_JPRB, &
+ & 0.2188110E-25_JPRB, 0.2183839E-25_JPRB, 0.2178888E-25_JPRB, 0.2174415E-25_JPRB, 0.2169765E-25_JPRB, &
+ & 0.2164350E-25_JPRB, 0.2159686E-25_JPRB, 0.2154432E-25_JPRB, 0.2150311E-25_JPRB, 0.2144809E-25_JPRB, &
+ & 0.2141063E-25_JPRB, 0.2135743E-25_JPRB, 0.2131350E-25_JPRB, 0.2126439E-25_JPRB, 0.2121757E-25_JPRB, &
+ & 0.2116993E-25_JPRB, 0.2112348E-25_JPRB, 0.2107558E-25_JPRB, 0.2103303E-25_JPRB, 0.2098430E-25_JPRB, &
+ & 0.2093762E-25_JPRB, 0.2089122E-25_JPRB, 0.2084616E-25_JPRB, 0.2079919E-25_JPRB, 0.2075581E-25_JPRB, &
+ & 0.2070484E-25_JPRB, 0.2066188E-25_JPRB, 0.2061627E-25_JPRB, 0.2057537E-25_JPRB, 0.2052658E-25_JPRB, &
+ & 0.2048236E-25_JPRB, 0.2043740E-25_JPRB, 0.2039009E-25_JPRB, 0.2034790E-25_JPRB, 0.2030402E-25_JPRB, &
+ & 0.2026373E-25_JPRB, 0.2021292E-25_JPRB, 0.2017653E-25_JPRB, 0.2012671E-25_JPRB, 0.2008244E-25_JPRB, &
+ & 0.2003679E-25_JPRB, 0.1999900E-25_JPRB, 0.1995156E-25_JPRB, 0.1990708E-25_JPRB, 0.1986896E-25_JPRB, &
+ & 0.1982515E-25_JPRB, 0.1977577E-25_JPRB, 0.1973389E-25_JPRB, 0.1969472E-25_JPRB, 0.1965130E-25_JPRB, &
+ & 0.1961169E-25_JPRB, 0.1956593E-25_JPRB, 0.1952552E-25_JPRB, 0.1948516E-25_JPRB, 0.1944288E-25_JPRB, &
+ & 0.1939545E-25_JPRB, 0.1935074E-25_JPRB, 0.1931325E-25_JPRB, 0.1927054E-25_JPRB, 0.1922953E-25_JPRB, &
+ & 0.1919001E-25_JPRB, 0.1914619E-25_JPRB, 0.1910454E-25_JPRB, 0.1906483E-25_JPRB, 0.1902818E-25_JPRB, &
+ & 0.1898249E-25_JPRB, 0.1894532E-25_JPRB, 0.1889855E-25_JPRB, 0.1886213E-25_JPRB, 0.1882224E-25_JPRB, &
+ & 0.1877868E-25_JPRB, 0.1874022E-25_JPRB, 0.1869706E-25_JPRB, 0.1865394E-25_JPRB, 0.1861920E-25_JPRB, &
+ & 0.1857844E-25_JPRB, 0.1854381E-25_JPRB, 0.1849851E-25_JPRB, 0.1846284E-25_JPRB, 0.1842192E-25_JPRB, &
+ & 0.1838483E-25_JPRB, 0.1834272E-25_JPRB, 0.1830332E-25_JPRB, 0.1826590E-25_JPRB, 0.1822672E-25_JPRB, &
+ & 0.1818896E-25_JPRB, 0.1814961E-25_JPRB, 0.1810901E-25_JPRB, 0.1807128E-25_JPRB, 0.1803498E-25_JPRB, &
+ & 0.1799625E-25_JPRB, 0.1795890E-25_JPRB, 0.1791572E-25_JPRB, 0.1788046E-25_JPRB, 0.1784347E-25_JPRB, &
+ & 0.1780655E-25_JPRB, 0.1776813E-25_JPRB, 0.1773257E-25_JPRB, 0.1769180E-25_JPRB, 0.1765592E-25_JPRB, &
+ & 0.1761816E-25_JPRB, 0.1758429E-25_JPRB, 0.1754198E-25_JPRB, 0.1750965E-25_JPRB, 0.1747065E-25_JPRB, &
+ & 0.1743662E-25_JPRB, 0.1739582E-25_JPRB, 0.1736024E-25_JPRB, 0.1732771E-25_JPRB, 0.1729447E-25_JPRB, &
+ & 0.1724799E-25_JPRB, 0.1721488E-25_JPRB, 0.1718100E-25_JPRB, 0.1714394E-25_JPRB, 0.1710822E-25_JPRB, &
+ & 0.1707207E-25_JPRB, 0.1703568E-25_JPRB, 0.1700035E-25_JPRB, 0.1696602E-25_JPRB, 0.1692917E-25_JPRB, &
+ & 0.1689509E-25_JPRB, 0.1686000E-25_JPRB, 0.1682677E-25_JPRB, 0.1679007E-25_JPRB, 0.1675450E-25_JPRB /)
+
+!ZDRAYUV = (/
+
+
+!          Liquid water cloud optical parameters from Slingo, 1989, JAS 46, 120
+RASA = (/ 3.094E-02_JPRB, 2.944E-02_JPRB, 3.308E-02_JPRB, 2.801E-02_JPRB /)
+RASB = (/ 1.252_JPRB    , 1.270_JPRB    , 1.246_JPRB    , 1.293_JPRB     /)
+RASC = (/ 7.90E-07_JPRB ,-6.50E-07_JPRB ,-3.00E-07_JPRB , 1.00E-06_JPRB  /)
+RASD = (/ 3.69E-07_JPRB , 4.33E-07_JPRB , 2.36E-07_JPRB , 0.00E+00_JPRB  /)
+RASE = (/ 0.844_JPRB    , 0.841_JPRB    , 0.839_JPRB    , 0.836_JPRB     /)
+RASF = (/ 1.558E-03_JPRB, 1.680E-03_JPRB, 1.946E-03_JPRB, 2.153E-03_JPRB /)
+
+!          Ice water cloud optical parameters from Fu, 1996, J. Clim., 9, 2070 &
+!          extinction coefficient
+RFA0 = (/-0.236447E-03_JPRB,-0.266955E-03_JPRB,-0.293599E-03_JPRB,-0.258858E-03_JPRB /)
+RFA1 = (/ 0.253817E+01_JPRB, 0.254179E+01_JPRB, 0.254540E+01_JPRB, 0.253815E+01_JPRB /)
+!	   single scattering albedo
+RFB0 = (/-0.269916E-06_JPRB,-0.100570E-06_JPRB, 0.182299E-06_JPRB,-0.198529E-06_JPRB /)
+RFB1 = (/ 0.212909E-06_JPRB, 0.160441E-06_JPRB, 0.112454E-06_JPRB, 0.939480E-07_JPRB /)
+RFB2 = (/-0.265397E-09_JPRB,-0.205663E-09_JPRB,-0.108031E-09_JPRB,-0.254540E-09_JPRB /)
+RFB3 = (/ 0.112983E-11_JPRB, 0.888595E-12_JPRB, 0.499801E-12_JPRB, 0.110876E-11_JPRB /)
+!          assymetry factor
+RFC0 = (/ 0.733260E+00_JPRB, 0.737809E+00_JPRB, 0.740926E+00_JPRB, 0.743546E+00_JPRB /)
+RFC1 = (/ 0.918317E-03_JPRB, 0.897515E-03_JPRB, 0.890216E-03_JPRB, 0.908674E-03_JPRB /)
+RFC2 = (/-0.422974E-06_JPRB,-0.217099E-06_JPRB,-0.187919E-06_JPRB,-0.465326E-06_JPRB /)
+RFC3 = (/-0.107976E-07_JPRB,-0.116090E-07_JPRB,-0.116760E-07_JPRB,-0.105786E-07_JPRB /)
+!          forward Delta function
+RFD0 = (/ 0.119114E+00_JPRB, 0.118072E+00_JPRB, 0.117402E+00_JPRB, 0.116918E+00_JPRB /)
+RFD1 = (/ 0.271746E-03_JPRB, 0.271772E-03_JPRB, 0.266303E-03_JPRB, 0.259549E-03_JPRB /)
+RFD2 = (/ 0.167483E-05_JPRB, 0.169253E-05_JPRB, 0.177039E-05_JPRB, 0.186749E-05_JPRB /)
+RFD3 = (/-0.114603E-07_JPRB,-0.115557E-07_JPRB,-0.118611E-07_JPRB,-0.122603E-07_JPRB /)
+
+!          Aerosols (from GADS)
+! continental average 80%
+! maritime clean      95%
+! desert              50% 
+! urban               80% 
+RTAUVA(1,:) = (/ & 
+ & 2.2150_JPRB , 1.0985_JPRB , 1.1208_JPRB , 2.2535_JPRB , 1.03858_JPRB , 1.12044_JPRB /)  
+RTAUVA(2,:) = (/ & 
+ & 1.9353_JPRB , 1.0754_JPRB , 1.0955_JPRB , 1.9756_JPRB , 1.03858_JPRB , 1.12044_JPRB /)  
+RTAUVA(3,:) = (/ & 
+ & 1.6822_JPRB , 1.0506_JPRB , 1.0716_JPRB , 1.7074_JPRB , 1.03858_JPRB , 1.12044_JPRB /)  
+RTAUVA(4,:) = (/ & 
+ & 1.4664_JPRB , 1.0347_JPRB , 1.0499_JPRB , 1.4806_JPRB , 1.03858_JPRB , 1.12044_JPRB /)
+
+RPIUVA(1, :)= (/ &
+ &  .8736_JPRB , 0.9868_JPRB , 0.6758_JPRB , 0.7806_JPRB, .9401905_JPRB , 0.9989_JPRB /)  
+RPIUVA(2, :)= (/ &
+ &  .9253_JPRB , 0.9969_JPRB , 0.7080_JPRB , 0.8226_JPRB, .9401905_JPRB , 0.9990_JPRB /)  
+RPIUVA(3, :)= (/ &
+ &  .9322_JPRB , 0.9983_JPRB , 0.7512_JPRB , 0.8278_JPRB, .9401905_JPRB , 0.9990_JPRB /)  
+RPIUVA(4, :)= (/ &
+ &  .9315_JPRB , 0.9985_JPRB , 0.7849_JPRB , 0.8259_JPRB, .9401905_JPRB , 0.9991_JPRB /)  
+
+RCGUVA(1, :)= (/ &
+ & 0.7445_JPRB , 0.8093_JPRB , 0.8242_JPRB , 0.7285_JPRB, .7008249_JPRB , 0.7567_JPRB /)  
+RCGUVA(2, :)= (/ &
+ & 0.7317_JPRB , 0.8061_JPRB , 0.8068_JPRB , 0.7137_JPRB, .7008249_JPRB , 0.7675_JPRB /)  
+RCGUVA(3, :)= (/ &
+ & 0.7262_JPRB , 0.8046_JPRB , 0.7861_JPRB , 0.7086_JPRB, .7008249_JPRB , 0.7743_JPRB /)  
+RCGUVA(4, :)= (/ &
+ & 0.7209_JPRB , 0.7993_JPRB , 0.7700_JPRB , 0.7040_JPRB, .7008249_JPRB , 0.7782_JPRB /)  
+
+!- Definition of the CIE erythemasl action spectrum
+
+RXPO = (/ 0.000_JPRB, -0.094_JPRB, -0.015_JPRB /)
+RXPL = (/ 298.0_JPRB,  328.0_JPRB,  139.0_JPRB /)
+
+RK250(:) =0._JPRB
+RTUV1(:) =0._JPRB
+RTUV2(:) =0._JPRB
+RSUVB0(:)=0._JPRB
+RAYUVB(:)=0._JPRB
+JCOP(:)  =0
+JUVLAM(:)=0
+
+ZRES=120._JPRB/KUV
+ZBEG=280._JPRB-ZRES
+ZHRES=ZRES*0.5_JPRB
+
+DO J=1,KUV
+  RUVLAM(J)=280._JPRB+(J-1)*ZRES
+  IPUV(J)  =INT((RUVLAM(J)-ZBEG)/ZRES+0.0001_JPRB)
+  ZUVLAM=RUVLAM(J)+ZHRES
+  IF( ZUVLAM <= RXPL(1) ) THEN
+    RCIEAS(J) = 10._JPRB**RXPO(1)
+  ELSEIF (ZUVLAM <= RXPL(2) ) THEN
+    ZEXP= RXPO(2)*(ZUVLAM-RXPL(1))
+    RCIEAS(J) = 10._JPRB**ZEXP
+  ELSE
+    ZEXP= RXPO(3)*(ZUVLAM-RXPL(3))
+    RCIEAS(J) = 10._JPRB**ZEXP
+  ENDIF
+  IF (RUVLAM(J) == 305._JPRB .OR. RUVLAM(J) == 310._JPRB .OR. &
+    & RUVLAM(J) == 320._JPRB .OR. RUVLAM(J) == 380._JPRB) JUVLAM(J) = 1
+
+  WRITE(NULOUT,'("Eryth.Action Spectrum:",I3,F8.2,E12.5,F10.2,I3)') &
+    & IPUV(J),ZUVLAM,RCIEAS(J),RUVLAM(J),JUVLAM(J)
+ENDDO
+
+IF (KUV == 24) THEN
+  DO J=1,KUV
+    JCOP(J)=IACOP(J)
+    RK250(J)=ZAK250(J)
+    RTUV1(J)=ZATUV1(J)
+    RTUV2(J)=ZATUV2(J)
+    RSUVB0(J)=ZASUVB(J)
+    RAYUVB(J)=ZARAYUV(J)
+    JUVLAM(J)=1
+  ENDDO
+ELSEIF (KUV == 120) THEN
+  DO J=1,KUV
+    JCOP(J)=IBCOP(J)
+    RK250(J)=ZBK250(J)
+    RTUV1(J)=ZBTUV1(J)
+    RTUV2(J)=ZBTUV2(J)
+    RSUVB0(J)=ZBSUVB(J)
+    RAYUVB(J)=ZBRAYUV(J)
+  ENDDO
+ELSEIF (KUV == 600) THEN
+  DO J=1,KUV
+    JCOP(J)=ICCOP(J)
+    RK250(J)=ZCK250(J)
+    RTUV1(J)=ZCTUV1(J)
+    RTUV2(J)=ZCTUV2(J)
+    RSUVB0(J)=ZCSUVB(J)
+    RAYUVB(J)=ZCRAYUV(J)
+  ENDDO
+ELSE
+  STOP
+ENDIF
+ 
+   
+WRITE(NULOUT,'("SU_UVRAD O3:",25I3)') (JCOP(J),J=1,KUV)
+DO J=1,KUV
+  WRITE(NULOUT,'("SU_UVRAD O3:",I3,5E12.5)') J,RK250(J),RTUV1(J),RTUV2(J),RSUVB0(J),RAYUVB(J)
+ENDDO
+DO J=1,4
+  WRITE(NULOUT,'("CLOUDSLINGO:",I3,6E12.5)') J,RASA(J),RASB(J),RASC(J),RASD(J),RASE(J),RASF(J)
+ENDDO
+DO J=1,4
+  WRITE(NULOUT,'("ICECLDFUA B:",I3,6E12.5)') J,RFA0(J),RFA1(J),RFB0(J),RFB1(J),RFB2(J),RFB3(J)
+ENDDO
+DO J=1,4
+  WRITE(NULOUT,'("ICECLDFUC D:",I3,8E12.5)') J,RFC0(J),RFC1(J),RFC2(J),RFC3(J),&
+     &                                        RFD0(J),RFD1(J),RFD2(J),RFD3(J)
+ENDDO
+DO J=1,4
+  DO JAE=1,6
+    WRITE(NULOUT,'("AEROSOLS   :",2I3,3E12.5)') J,JAE,RTAUVA(J,JAE),RPIUVA(J,JAE),RCGUVA(J,JAE)
+  ENDDO
+ENDDO
+  
+!     ----------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SU_UVRAD',1,ZHOOK_HANDLE)
+END SUBROUTINE SU_UVRAD
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/su_uvrad.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/su_uvrad.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/su_uvrad.intfb.h	(revision 1989)
@@ -0,0 +1,6 @@
+INTERFACE
+SUBROUTINE SU_UVRAD ( KUV )
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KUV
+END SUBROUTINE SU_UVRAD
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/suaer15.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/suaer15.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/suaer15.F90	(revision 1989)
@@ -0,0 +1,139 @@
+SUBROUTINE SUAER15
+
+!**** *SUAER15*   - INITIALIZE COMMON YOMAER15
+
+!     PURPOSE.
+!     --------
+!           INITIALIZE YOMAER15, THE COMMON THAT CONTAINS THE
+!           RADIATIVE CHARACTERISTICS OF THE AEROSOLS
+
+!**   INTERFACE.
+!     ----------
+!              -----        -----
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!        NONE
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+!        COMMON YOMAER15
+
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+
+!     EXTERNALS.
+!     ----------
+
+!     REFERENCE.
+!     ----------
+
+!     04-06: F. Bouyssel. Meteo-France
+!     05-09: A. Alias - PAESOD (black_carbon) is added to PAELAN (oraganic)
+!                     - the sulfate is put in a separate type 
+!                     (see Hu Ron Ming work) - P.Marquet
+
+!=======================================================================
+!-- The (old) five aerosol types were respectively:
+
+!  1/ continental average (+desert)       2/ maritime
+!  3/ urban                               4/ volcanic active
+!  5/ stratospheric background
+
+!=======================================================================
+
+!-- The (new) six aerosol types are respectively:
+
+!  1/ continental average                 2/ maritime
+!  3/ desert                              4/ volcanic active
+!  5/ stratospheric background            6/ sulfate
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOMRAD15 , ONLY : LNEWAER15
+USE YOMAER15 , ONLY : RAER15    ,TAUA15   ,RPIZA15  ,RCGA15
+
+IMPLICIT NONE
+
+!     ------------------------------------------------------------------
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SUAER15',0,ZHOOK_HANDLE)
+IF (.NOT.LNEWAER15) THEN
+  
+  RAER15=RESHAPE((/&
+   & .038520_JPRB, .037196_JPRB, .040532_JPRB, .054934_JPRB, .038520_JPRB ,&
+   & .12613_JPRB , .18313_JPRB , .10357_JPRB , .064106_JPRB, .126130_JPRB ,&
+   & .012579_JPRB, .013649_JPRB, .018652_JPRB, .025181_JPRB, .012579_JPRB ,&
+   & .011890_JPRB, .016142_JPRB, .021105_JPRB, .028908_JPRB, .011890_JPRB ,&
+   & .013792_JPRB, .026810_JPRB, .052203_JPRB, .066338_JPRB, .013792_JPRB ,&
+   & .012579_JPRB, .013649_JPRB, .018652_JPRB, .025181_JPRB, .012579_JPRB /)&
+   & ,SHAPE=(/5,6/))  
+
+  TAUA15=RESHAPE((/&
+   & .730719_JPRB,.730719_JPRB,&
+   & .912819_JPRB,.912819_JPRB,&
+   & .725059_JPRB,.725059_JPRB,&
+   & .745405_JPRB,.745405_JPRB,&
+   & .682188_JPRB,.682188_JPRB,&
+   & 1.35059_JPRB,.725059_JPRB /)&
+   & ,SHAPE=(/2,6/))  
+
+  RPIZA15=RESHAPE((/&
+   & .872212_JPRB,.872212_JPRB,&
+   & .982545_JPRB,.982545_JPRB,&
+   & .623143_JPRB,.623143_JPRB,&
+   & .944887_JPRB,.944887_JPRB,&
+   & .997975_JPRB,.997975_JPRB,&
+   & .999999_JPRB,.999999_JPRB /)&
+   & ,SHAPE=(/2,6/))  
+
+  RCGA15=RESHAPE((/&
+   & .647596_JPRB,.647596_JPRB,&
+   & .739002_JPRB,.739002_JPRB,&
+   & .580845_JPRB,.580845_JPRB,&
+   & .662657_JPRB,.662657_JPRB,&
+   & .624246_JPRB,.624246_JPRB,&
+   & .680845_JPRB,.680845_JPRB /)&
+   & ,SHAPE=(/2,6/))  
+
+ELSE
+
+  RAER15( :, 1)= (/&
+   & .036271_JPRB, .030153_JPRB, .017343_JPRB, .015002_JPRB, .008806_JPRB /)  
+  RAER15( :, 2)= (/&
+   & .026561_JPRB, .032657_JPRB, .017977_JPRB, .014210_JPRB, .016775_JPRB /)  
+  RAER15( :, 3)= (/&
+   & .014897_JPRB, .016359_JPRB, .019789_JPRB, .030777_JPRB, .013341_JPRB /)  
+  RAER15( :, 4)= (/&
+   & .011890_JPRB, .016142_JPRB, .021105_JPRB, .028908_JPRB, .011890_JPRB /)  
+  RAER15( :, 5)= (/&
+   & .013792_JPRB, .026810_JPRB, .052203_JPRB, .066338_JPRB, .013792_JPRB /)  
+  RAER15( :, 6)= (/&
+   & .012579_JPRB, .013649_JPRB, .018652_JPRB, .025181_JPRB, .012579_JPRB /)
+
+  TAUA15(1, :)= (/&
+   & 1.69446_JPRB, 1.11855_JPRB, 1.09212_JPRB, 1.03858_JPRB, 1.12044_JPRB, 1.35059_JPRB  /)  
+  TAUA15(2, :)= (/&
+   & 0.40174_JPRB, 0.89383_JPRB, 0.89546_JPRB, 0.51143_JPRB, 0.32646_JPRB, .725059_JPRB /)  
+ 
+  RPIZA15(1, :)= (/&
+   & .9148907_JPRB, .9956173_JPRB, .7504584_JPRB, .9401905_JPRB, .9999999_JPRB, .999999_JPRB/)  
+  RPIZA15(2, :)= (/&
+   & .8814597_JPRB, .9920407_JPRB, .9239428_JPRB, .9515548_JPRB, .9938563_JPRB, .999999_JPRB/)  
+ 
+  RCGA15(1, :)= (/&
+   & 0.729019_JPRB, 0.803129_JPRB, 0.784592_JPRB, .7008249_JPRB, .7270548_JPRB, .680845_JPRB/)  
+  RCGA15(2, :)= (/&
+   & 0.663224_JPRB, 0.793746_JPRB, 0.696315_JPRB, .6608509_JPRB, .6318786_JPRB, .680845_JPRB/)  
+
+ENDIF
+
+!      ----------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUAER15',1,ZHOOK_HANDLE)
+END SUBROUTINE SUAER15
Index: LMDZ5/trunk/libf/phylmd/rrtm/suaer15.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/suaer15.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/suaer15.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SUAER15
+END SUBROUTINE SUAER15
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/suaerh.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/suaerh.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/suaerh.F90	(revision 1989)
@@ -0,0 +1,213 @@
+SUBROUTINE SUAERH
+
+!**** *SUAERH* - SETS UP THE AEROSOL HORIZONTAL DISTRIBUTION
+
+!     PURPOSE.
+!     --------
+
+!          THIS ROUTINE FETCHES VALUES OF A T10 SPECTRAL DISTRIBUTION
+!     FOR FOUR AEROSOL TYPES OF DIFFERENT ORIGINS (SEA,LAND,URBAN AREAS
+!     AND DESERTS). THE VALUES TO BE OBTAINED ARE BETWEEN ZERO AND ONE.
+
+!**   INTERFACE.
+!     ----------
+
+!          THERE ARE EIGHT DUMMY ARGUMENTS: *PAESC*, *PAESS*, *PAELC*,
+!     *PAELS*, *PAEUC*, *PAEUS*, *PAEDC* AND *PAEDS*ARE ARRAYS FOR THE
+!     T10 DISTRIBUTIONS (*S FOR SEA, *L FOR LAND, *U FOR URBAN AND *D
+!     FOR DESERT, *C FOR COSINE AND *S FOR SINE).
+
+!     METHOD.
+!     -------
+
+!          NONE.
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE.
+
+!     REFERENCE.
+!     ----------
+
+!          NONE.
+
+!     AUTHOR
+!     ------
+!     J.-F. GELEYN      E.C.M.W.F.     29/09/82.
+
+!     MODIFICATIONS
+!     -------------
+!     J.-J. MORCRETTE   E.C.M.W.F.     91/07/14   ADAPTATION TO I.F.S.
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOEAERD  , ONLY : RCAEROS  ,RAESC    ,RAESS    ,RAELC    ,&
+ & RAELS    ,RAEUC    ,RAEUS    ,RAEDC    ,RAEDS  
+
+IMPLICIT NONE
+
+!     ------------------------------------------------------------------
+
+!*    DATA STATEMENTS.
+!     ---- -----------
+
+!          *RAE S/L/U/D C/S*  (SEE ABOVE).
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SUAERH',0,ZHOOK_HANDLE)
+RAESC = (/&
+ & +.6688E+00_JPRB,-.1172E+00_JPRB,-.1013E+00_JPRB,+.1636E-01_JPRB,-.3699E-01_JPRB,+.1775E-01_JPRB,&
+ & -.9635E-02_JPRB,+.1290E-02_JPRB,+.4681E-04_JPRB,-.9106E-04_JPRB,+.9355E-04_JPRB,&
+ & -.7076E-01_JPRB,-.1782E-01_JPRB,+.1856E-01_JPRB,+.1372E-01_JPRB,+.8210E-04_JPRB,&
+ & +.2149E-02_JPRB,+.4856E-03_JPRB,+.2231E-03_JPRB,+.1824E-03_JPRB,+.1960E-05_JPRB,&
+ & +.2057E-01_JPRB,+.2703E-01_JPRB,+.2424E-01_JPRB,+.9716E-02_JPRB,&
+ & +.1312E-02_JPRB,-.8846E-03_JPRB,-.3347E-03_JPRB,+.6231E-04_JPRB,+.6397E-04_JPRB,&
+ & -.3341E-02_JPRB,-.1295E-01_JPRB,-.4598E-02_JPRB,&
+ & +.3242E-03_JPRB,+.8122E-03_JPRB,-.2975E-03_JPRB,-.7757E-04_JPRB,+.7793E-04_JPRB,&
+ & +.4455E-02_JPRB,-.1584E-01_JPRB,&
+ & -.2551E-02_JPRB,+.1174E-02_JPRB,+.1335E-04_JPRB,+.5112E-04_JPRB,+.5605E-04_JPRB,&
+ & +.7412E-04_JPRB,&
+ & +.1857E-02_JPRB,-.1917E-03_JPRB,+.4460E-03_JPRB,+.1767E-04_JPRB,-.5281E-04_JPRB,&
+ & -.5043E-03_JPRB,+.2467E-03_JPRB,-.2497E-03_JPRB,-.2377E-04_JPRB,-.3954E-04_JPRB,&
+ & +.2666E-03_JPRB,-.8186E-03_JPRB,-.1441E-03_JPRB,-.1904E-04_JPRB,&
+ & +.3337E-03_JPRB,-.1696E-03_JPRB,-.2503E-04_JPRB,&
+ & +.1239E-03_JPRB,-.9983E-04_JPRB,&
+ & -.5283E-04_JPRB &
+ & /)  
+RAESS = (/&
+ & -.3374E-01_JPRB,-.3247E-01_JPRB,-.1012E-01_JPRB,+.6002E-02_JPRB,+.5190E-02_JPRB,&
+ & +.7784E-03_JPRB,-.1090E-02_JPRB,+.3294E-03_JPRB,+.1719E-03_JPRB,-.5866E-05_JPRB,&
+ & -.4124E-03_JPRB,-.3742E-01_JPRB,-.5054E-02_JPRB,+.3430E-02_JPRB,&
+ & +.5513E-03_JPRB,-.6235E-03_JPRB,+.2892E-03_JPRB,-.9730E-04_JPRB,+.7078E-04_JPRB,&
+ & -.3300E-01_JPRB,+.5104E-03_JPRB,-.2156E-02_JPRB,&
+ & -.3194E-02_JPRB,-.5079E-03_JPRB,-.5517E-03_JPRB,+.4632E-04_JPRB,+.5369E-04_JPRB,&
+ & -.2731E-01_JPRB,+.5126E-02_JPRB,&
+ & +.2241E-02_JPRB,-.5789E-03_JPRB,-.3048E-03_JPRB,-.1774E-03_JPRB,+.1946E-05_JPRB,&
+ & -.8247E-02_JPRB,&
+ & +.2338E-02_JPRB,+.1021E-02_JPRB,+.1575E-04_JPRB,+.2612E-05_JPRB,+.1995E-04_JPRB,&
+ & -.1319E-02_JPRB,+.1384E-02_JPRB,-.4159E-03_JPRB,-.2337E-03_JPRB,+.5764E-04_JPRB,&
+ & +.1495E-02_JPRB,-.3727E-03_JPRB,+.6075E-04_JPRB,-.4642E-04_JPRB,&
+ & +.5368E-03_JPRB,-.7619E-04_JPRB,+.3774E-04_JPRB,&
+ & +.1206E-03_JPRB,-.4104E-06_JPRB,&
+ & +.2158E-04_JPRB &
+ & /)  
+RAELC = (/&
+ & +.1542E+00_JPRB,+.8245E-01_JPRB,-.1879E-03_JPRB,+.4864E-02_JPRB,-.5527E-02_JPRB,-.7966E-02_JPRB,&
+ & -.2683E-02_JPRB,-.2011E-02_JPRB,-.8889E-03_JPRB,-.1058E-03_JPRB,-.1614E-04_JPRB,&
+ & +.4206E-01_JPRB,+.1912E-01_JPRB,-.9476E-02_JPRB,-.6780E-02_JPRB,+.1767E-03_JPRB,&
+ & -.5422E-03_JPRB,-.7753E-03_JPRB,-.2106E-03_JPRB,-.9870E-04_JPRB,-.1721E-04_JPRB,&
+ & -.9536E-02_JPRB,-.9580E-02_JPRB,-.1050E-01_JPRB,-.5747E-02_JPRB,&
+ & -.1282E-02_JPRB,+.2248E-03_JPRB,+.1694E-03_JPRB,-.4782E-04_JPRB,-.2441E-04_JPRB,&
+ & +.5781E-03_JPRB,+.6212E-02_JPRB,+.1921E-02_JPRB,&
+ & -.1102E-02_JPRB,-.8145E-03_JPRB,+.2497E-03_JPRB,+.1539E-03_JPRB,-.2538E-04_JPRB,&
+ & -.3993E-02_JPRB,+.9777E-02_JPRB,&
+ & +.4837E-03_JPRB,-.1304E-02_JPRB,+.2417E-04_JPRB,-.1370E-04_JPRB,-.3731E-05_JPRB,&
+ & +.1922E-02_JPRB,&
+ & -.5167E-03_JPRB,+.4295E-03_JPRB,-.1888E-03_JPRB,+.2427E-04_JPRB,+.4012E-04_JPRB,&
+ & +.1529E-02_JPRB,-.2120E-03_JPRB,+.8166E-04_JPRB,+.2579E-04_JPRB,+.3488E-04_JPRB,&
+ & +.2140E-03_JPRB,+.2274E-03_JPRB,-.3447E-05_JPRB,-.1075E-04_JPRB,&
+ & -.1018E-03_JPRB,+.2864E-04_JPRB,+.3442E-04_JPRB,&
+ & -.1002E-03_JPRB,+.7117E-04_JPRB,&
+ & +.2045E-04_JPRB &
+ & /)  
+RAELS = (/&
+ & +.1637E-01_JPRB,+.1935E-01_JPRB,+.1080E-01_JPRB,+.2784E-02_JPRB,+.1606E-03_JPRB,&
+ & +.1860E-02_JPRB,+.1263E-02_JPRB,-.2707E-03_JPRB,-.2290E-03_JPRB,-.9761E-05_JPRB,&
+ & -.7317E-02_JPRB,+.2465E-01_JPRB,+.6799E-02_JPRB,-.1913E-02_JPRB,&
+ & +.1382E-02_JPRB,+.6691E-03_JPRB,+.1414E-03_JPRB,+.3527E-04_JPRB,-.5210E-04_JPRB,&
+ & +.1873E-01_JPRB,+.2977E-02_JPRB,+.4650E-02_JPRB,&
+ & +.2509E-02_JPRB,+.3680E-03_JPRB,+.1481E-03_JPRB,-.6594E-04_JPRB,-.5634E-04_JPRB,&
+ & +.1592E-01_JPRB,-.1875E-02_JPRB,&
+ & -.1093E-02_JPRB,+.3022E-03_JPRB,+.2625E-03_JPRB,+.3252E-04_JPRB,-.3803E-04_JPRB,&
+ & +.4218E-02_JPRB,&
+ & -.1843E-02_JPRB,-.1351E-02_JPRB,-.2952E-03_JPRB,-.8171E-05_JPRB,-.1473E-04_JPRB,&
+ & +.9076E-03_JPRB,-.1057E-02_JPRB,+.2676E-03_JPRB,+.1307E-03_JPRB,-.3628E-04_JPRB,&
+ & -.9158E-03_JPRB,+.4335E-03_JPRB,+.2927E-04_JPRB,+.6602E-04_JPRB,&
+ & -.3570E-03_JPRB,+.5760E-04_JPRB,-.3465E-04_JPRB,&
+ & -.8535E-04_JPRB,-.2011E-04_JPRB,&
+ & +.6612E-06_JPRB &
+ & /)  
+RAEUC = (/&
+ & +.8005E-01_JPRB,+.7095E-01_JPRB,+.2014E-01_JPRB,-.1412E-01_JPRB,-.2425E-01_JPRB,-.1332E-01_JPRB,&
+ & -.2904E-02_JPRB,+.5068E-03_JPRB,+.9369E-03_JPRB,+.4114E-03_JPRB,+.7549E-04_JPRB,&
+ & +.1922E-01_JPRB,+.2534E-01_JPRB,+.2088E-01_JPRB,+.1064E-01_JPRB,+.1063E-02_JPRB,&
+ & -.2526E-02_JPRB,-.2091E-02_JPRB,-.9660E-03_JPRB,-.2030E-03_JPRB,+.3865E-04_JPRB,&
+ & -.9900E-02_JPRB,-.5964E-02_JPRB,+.2223E-02_JPRB,+.4941E-02_JPRB,&
+ & +.3277E-02_JPRB,+.1038E-02_JPRB,-.1480E-03_JPRB,-.2844E-03_JPRB,-.1208E-03_JPRB,&
+ & +.3999E-02_JPRB,+.6282E-02_JPRB,+.2813E-02_JPRB,&
+ & +.1475E-02_JPRB,+.4571E-03_JPRB,-.1349E-03_JPRB,-.9011E-04_JPRB,-.1936E-04_JPRB,&
+ & +.1994E-02_JPRB,+.3540E-02_JPRB,&
+ & +.8837E-03_JPRB,+.1992E-03_JPRB,+.3092E-04_JPRB,-.7979E-04_JPRB,-.2664E-04_JPRB,&
+ & -.5006E-04_JPRB,&
+ & +.6447E-03_JPRB,+.5550E-03_JPRB,+.1197E-03_JPRB,+.6657E-04_JPRB,+.1488E-04_JPRB,&
+ & -.9141E-04_JPRB,-.2896E-03_JPRB,-.1561E-03_JPRB,-.6524E-04_JPRB,-.1559E-04_JPRB,&
+ & -.1082E-03_JPRB,-.4126E-03_JPRB,-.1732E-03_JPRB,-.8286E-04_JPRB,&
+ & -.1993E-04_JPRB,+.3850E-04_JPRB,+.2870E-04_JPRB,&
+ & +.4493E-04_JPRB,+.4721E-04_JPRB,&
+ & +.1338E-04_JPRB &
+ & /)  
+RAEUS = (/&
+ & +.6646E-02_JPRB,+.8373E-02_JPRB,+.5463E-02_JPRB,+.4554E-02_JPRB,+.3301E-02_JPRB,&
+ & +.5725E-03_JPRB,-.7482E-03_JPRB,-.6222E-03_JPRB,-.2603E-03_JPRB,-.5127E-04_JPRB,&
+ & -.3849E-04_JPRB,+.9741E-02_JPRB,+.8190E-02_JPRB,+.5712E-02_JPRB,&
+ & +.3039E-02_JPRB,+.5290E-03_JPRB,-.2044E-03_JPRB,-.2309E-03_JPRB,-.1160E-03_JPRB,&
+ & +.9160E-02_JPRB,+.1286E-01_JPRB,+.1170E-01_JPRB,&
+ & +.5491E-02_JPRB,+.1393E-02_JPRB,-.6288E-04_JPRB,-.2715E-03_JPRB,-.1047E-03_JPRB,&
+ & +.4873E-02_JPRB,+.3545E-02_JPRB,&
+ & +.3069E-02_JPRB,+.1819E-02_JPRB,+.6947E-03_JPRB,+.1416E-03_JPRB,-.1538E-04_JPRB,&
+ & -.4351E-03_JPRB,&
+ & -.1907E-02_JPRB,-.5774E-03_JPRB,-.2247E-03_JPRB,+.5345E-04_JPRB,+.9052E-04_JPRB,&
+ & -.3972E-04_JPRB,-.9665E-04_JPRB,+.7912E-04_JPRB,-.1094E-04_JPRB,-.6776E-05_JPRB,&
+ & +.2724E-03_JPRB,+.1973E-03_JPRB,+.6837E-04_JPRB,+.4313E-04_JPRB,&
+ & -.7174E-05_JPRB,+.8527E-05_JPRB,-.2160E-05_JPRB,&
+ & -.7852E-04_JPRB,+.3453E-06_JPRB,&
+ & -.2402E-05_JPRB &
+ & /)  
+RAEDC = (/&
+ & +.2840E-01_JPRB,+.1775E-01_JPRB,-.1069E-01_JPRB,-.1553E-01_JPRB,-.3299E-02_JPRB,+.3583E-02_JPRB,&
+ & +.2274E-02_JPRB,+.5767E-04_JPRB,-.3678E-03_JPRB,-.1050E-03_JPRB,+.2133E-04_JPRB,&
+ & +.2326E-01_JPRB,+.1566E-01_JPRB,-.3130E-02_JPRB,-.8253E-02_JPRB,-.2615E-02_JPRB,&
+ & +.1247E-02_JPRB,+.1059E-02_JPRB,+.1196E-03_JPRB,-.1303E-03_JPRB,-.5094E-04_JPRB,&
+ & +.1185E-01_JPRB,+.7238E-02_JPRB,-.1562E-02_JPRB,-.3665E-02_JPRB,&
+ & -.1182E-02_JPRB,+.4678E-03_JPRB,+.4448E-03_JPRB,+.8307E-04_JPRB,-.3468E-04_JPRB,&
+ & +.5273E-02_JPRB,+.3037E-02_JPRB,-.4014E-03_JPRB,&
+ & -.1202E-02_JPRB,-.4647E-03_JPRB,+.5148E-04_JPRB,+.1014E-03_JPRB,+.2996E-04_JPRB,&
+ & +.2505E-02_JPRB,+.1495E-02_JPRB,&
+ & +.2438E-03_JPRB,-.1223E-03_JPRB,-.7669E-04_JPRB,-.1638E-04_JPRB,+.1869E-05_JPRB,&
+ & +.1094E-02_JPRB,&
+ & +.6131E-03_JPRB,+.1508E-03_JPRB,+.1765E-04_JPRB,+.1360E-05_JPRB,-.7998E-06_JPRB,&
+ & +.4475E-03_JPRB,+.2737E-03_JPRB,+.6430E-04_JPRB,-.6759E-05_JPRB,-.6761E-05_JPRB,&
+ & +.1992E-03_JPRB,+.1531E-03_JPRB,+.4828E-04_JPRB,+.5103E-06_JPRB,&
+ & +.7454E-04_JPRB,+.5917E-04_JPRB,+.2152E-04_JPRB,&
+ & +.9300E-05_JPRB,+.9790E-05_JPRB,&
+ & -.8853E-05_JPRB &
+ & /)  
+RAEDS = (/&
+ & +.9815E-02_JPRB,+.8436E-02_JPRB,+.1087E-02_JPRB,-.2717E-02_JPRB,-.1755E-02_JPRB,&
+ & -.1559E-03_JPRB,+.2367E-03_JPRB,+.8808E-04_JPRB,+.2001E-05_JPRB,-.1244E-05_JPRB,&
+ & +.1041E-01_JPRB,+.8039E-02_JPRB,+.1005E-02_JPRB,-.1981E-02_JPRB,&
+ & -.1090E-02_JPRB,+.1595E-05_JPRB,+.1787E-03_JPRB,+.4644E-04_JPRB,-.1052E-04_JPRB,&
+ & +.6593E-02_JPRB,+.3983E-02_JPRB,-.1527E-03_JPRB,&
+ & -.1235E-02_JPRB,-.5078E-03_JPRB,+.3649E-04_JPRB,+.1005E-03_JPRB,+.3182E-04_JPRB,&
+ & +.3225E-02_JPRB,+.1672E-02_JPRB,&
+ & -.7752E-04_JPRB,-.4312E-03_JPRB,-.1872E-03_JPRB,-.1666E-04_JPRB,+.1872E-04_JPRB,&
+ & +.1133E-02_JPRB,&
+ & +.5643E-03_JPRB,+.7747E-04_JPRB,-.2980E-04_JPRB,-.2092E-04_JPRB,-.8590E-05_JPRB,&
+ & +.2988E-03_JPRB,+.6714E-04_JPRB,-.6249E-05_JPRB,+.1052E-04_JPRB,+.8790E-05_JPRB,&
+ & +.1569E-03_JPRB,-.1175E-04_JPRB,-.3033E-04_JPRB,-.9777E-06_JPRB,&
+ & +.1101E-03_JPRB,+.6827E-05_JPRB,-.1023E-04_JPRB,&
+ & +.4231E-04_JPRB,+.4905E-05_JPRB,&
+ & +.6229E-05_JPRB &
+ & /)  
+
+!     ------------------------------------------------------------------
+RCAEROS= 0.1462E-16_JPRB
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUAERH',1,ZHOOK_HANDLE)
+END SUBROUTINE SUAERH
Index: LMDZ5/trunk/libf/phylmd/rrtm/suaerh.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/suaerh.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/suaerh.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SUAERH
+END SUBROUTINE SUAERH
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/suaerl.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/suaerl.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/suaerl.F90	(revision 1989)
@@ -0,0 +1,117 @@
+SUBROUTINE SUAERL
+
+!**** *SUAERL*   - INITIALIZE COMMON YOEAER
+
+!     PURPOSE.
+!     --------
+!           INITIALIZE YOEAER, THE COMMON THAT CONTAINS THE
+!           RADIATIVE CHARACTERISTICS OF THE AEROSOLS
+
+!**   INTERFACE.
+!     ----------
+!              -----        -----
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!        NONE
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+!        COMMON YOEAER
+
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+
+!     EXTERNALS.
+!     ----------
+
+!     REFERENCE.
+!     ----------
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "IFS MODEL"
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 88-02-15
+!        99-05-25   JJMorcrette   Revised Aerosol LW properties (OPAC)
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOESW    , ONLY : RAER
+
+!      ----------------------------------------------------------------
+
+!*       1.    SHORTWAVE COEFFICIENTS
+!              ----------------------
+
+!      Initialised in SUAERSn depending on NSW number of SW spectral 
+!      intervals
+
+!      ----------------------------------------------------------------
+
+!*       2.    LONGWAVE COEFFICIENTS
+!              ---------------------
+
+!=======================================================================
+!-- The (old) five aerosol types were respectively:
+
+!  1/ continental average (+desert)       2/ maritime
+!  3/ urban                               4/ volcanic active
+!  5/ stratospheric background
+
+!      RAER  = RESHAPE((/
+!     &          .038520, .037196, .040532, .054934, .038520
+!     &        , .126130, .18313 , .10357 , .064106, .126130
+!     &        , .012579, .013649, .018652, .025181, .012579
+!     &        , .011890, .016142, .021105, .028908, .011890
+!     &        , .013792, .026810, .052203, .066338, .013792 /)
+!     & ,SHAPE=(/5,5/))
+
+!=======================================================================
+
+!-- The six aerosol types are respectively:
+
+!  1/ continental average                 2/ maritime
+!  3/ desert                              4/ urban
+!  5/ volcanic active                     6/ stratospheric background
+
+! The quantities given are:
+! TAU : ratio of average optical thickness in interval to that at 0.55 
+!       micron
+! PIZA: average single scattering albedo
+! CGA : average asymmetry factor
+
+! computed from Hess and Koepke (con, mar, des, urb)
+!          from Bonnel et al.   (vol, str)
+
+!-- data are entered for the 6 spectral intervals of the LW scheme (line)
+!   and the different types of aerosols (column)
+
+IMPLICIT NONE
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SUAERL',0,ZHOOK_HANDLE)
+RAER( :, 1)= (/&
+ & .036271_JPRB, .030153_JPRB, .017343_JPRB, .015002_JPRB, .008806_JPRB, .006865_JPRB /)  
+RAER( :, 2)= (/&
+ & .026561_JPRB, .032657_JPRB, .017977_JPRB, .014210_JPRB, .016775_JPRB, .022123_JPRB /)  
+RAER( :, 3)= (/&
+ & .014897_JPRB, .016359_JPRB, .019789_JPRB, .030777_JPRB, .013341_JPRB, .014321_JPRB /)  
+RAER( :, 4)= (/&
+ & .001863_JPRB, .002816_JPRB, .002355_JPRB, .002557_JPRB, .001774_JPRB, .001780_JPRB /)  
+RAER( :, 5)= (/&
+ & .011890_JPRB, .016142_JPRB, .021105_JPRB, .028908_JPRB, .011890_JPRB, .011890_JPRB /)  
+RAER( :, 6)= (/&
+ & .013792_JPRB, .026810_JPRB, .052203_JPRB, .066338_JPRB, .013792_JPRB, .013792_JPRB /)  
+
+!      ----------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUAERL',1,ZHOOK_HANDLE)
+END SUBROUTINE SUAERL
Index: LMDZ5/trunk/libf/phylmd/rrtm/suaerl.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/suaerl.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/suaerl.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SUAERL
+END SUBROUTINE SUAERL
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/suaersn.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/suaersn.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/suaersn.F90	(revision 1989)
@@ -0,0 +1,220 @@
+SUBROUTINE SUAERSN (KTSW, KSW)
+
+!**** *SUAERS*   - INITIALIZE COMMON YOEAER
+
+!     PURPOSE.
+!     --------
+!           INITIALIZE YOEAER, THE COMMON THAT CONTAINS THE
+!           RADIATIVE CHARACTERISTICS OF THE AEROSOLS
+
+!**   INTERFACE.
+!     ----------
+!              -----        -----
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!        NONE
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+!        COMMON YOEAER
+
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+
+!     EXTERNALS.
+!     ----------
+
+!     REFERENCE.
+!     ----------
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "IFS MODEL"
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 88-02-15
+!        96-01-27  JJ Morcrette  Various spectral resolutions
+!        99-05-25  JJMorcrette   Revised aerosol optical properties
+!        00-10-25  JJMorcrette   6 spectral intervals
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOESW    , ONLY : RTAUA     ,RPIZA    ,RCGA
+
+!      ----------------------------------------------------------------
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KTSW 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KSW 
+REAL(KIND=JPRB) :: ZTAUA2(2,6)  ,ZPIZA2(2,6)  ,ZCGA2(2,6)
+REAL(KIND=JPRB) :: ZTAUA4(4,6)  ,ZPIZA4(4,6)  ,ZCGA4(4,6)
+REAL(KIND=JPRB) :: ZTAUA6(6,6)  ,ZPIZA6(6,6)  ,ZCGA6(6,6)
+
+INTEGER(KIND=JPIM) :: JAER, JNU
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!      ----------------------------------------------------------------
+
+!*       1.    SHORTWAVE COEFFICIENTS
+!              ----------------------
+!=======================================================================
+!-- The (old) five aerosol types were respectively:
+
+!  1/ continental average (+desert)       2/ maritime
+!  3/ urban                               4/ volcanic active
+!  5/ stratospheric background
+
+!-- old values were not spectrally defined:
+! ZTAU2  = .730719, .912819, .725059, .745405, .682188
+! ZPIZA2 = .872212, .982545, .623143, .944887, .997975
+! ZCGA2  = .647596, .739002, .580845, .662657, .624246
+!=======================================================================
+
+!-- The six aerosol types are respectively:
+
+!  1/ continental average                 2/ maritime
+!  3/ desert                              4/ urban
+!  5/ volcanic active                     6/ stratospheric background
+
+! The quantities given are:
+! TAU : ratio of average optical thickness in interval to that at 0.55 
+!       micron
+! PIZA: average single scattering albedo
+! CGA : average asymmetry factor
+
+! computed from Hess and Koepke (con, mar, des, urb)
+!          from Bonnel et al.   (vol, str)
+
+!        1.1   TWO SPECTRAL INTERVALS (0.25-0.69-4.00microns)
+
+IF (LHOOK) CALL DR_HOOK('SUAERSN',0,ZHOOK_HANDLE)
+ZTAUA2(1, :)= (/&
+ & 1.69446_JPRB , 1.11855_JPRB , 1.09212_JPRB , 1.72145_JPRB , 1.03858_JPRB , 1.12044_JPRB /)  
+ZTAUA2(2, :)= (/&
+ & 0.40174_JPRB , 0.89383_JPRB , 0.89546_JPRB , 0.40741_JPRB , 0.51143_JPRB , 0.32646_JPRB /)  
+ 
+ZPIZA2(1, :)= (/&
+ & .9148907_JPRB, .9956173_JPRB, .7504584_JPRB, .8131335_JPRB, .9401905_JPRB, .9999999_JPRB/)  
+ZPIZA2(2, :)= (/&
+ & .8814597_JPRB, .9920407_JPRB, .9239428_JPRB, .7546879_JPRB, .9515548_JPRB, .9938563_JPRB/)  
+ 
+ZCGA2(1, :)= (/&
+ & 0.729019_JPRB, 0.803129_JPRB, 0.784592_JPRB, 0.712208_JPRB, .7008249_JPRB, .7270548_JPRB/)  
+ZCGA2(2, :)= (/&
+ & 0.663224_JPRB, 0.793746_JPRB, 0.696315_JPRB, 0.652612_JPRB, .6608509_JPRB, .6318786_JPRB/)  
+
+!        1.2   FOUR SPECTRAL INTERVALS (0.25-0.69-1.19-2.38-4.00microns)
+
+ZTAUA4(1, :)= (/&
+ & 1.69446_JPRB , 1.11855_JPRB , 1.09212_JPRB , 1.72145_JPRB , 1.03858_JPRB , 1.12044_JPRB /)  
+ZTAUA4(2, :)= (/&
+ & 0.52838_JPRB , 0.93285_JPRB , 0.93449_JPRB , 0.53078_JPRB , 0.67148_JPRB , 0.46608_JPRB /)  
+ZTAUA4(3, :)= (/&
+ & 0.20543_JPRB , 0.84642_JPRB , 0.84958_JPRB , 0.21673_JPRB , 0.28270_JPRB , 0.10915_JPRB /)  
+ZTAUA4(4, :)= (/&
+ & 0.10849_JPRB , 0.66699_JPRB , 0.65255_JPRB , 0.11600_JPRB , 0.06529_JPRB , 0.04468_JPRB /)  
+ 
+ZPIZA4(1, :)= (/&
+ & .9148907_JPRB, .9956173_JPRB, .7504584_JPRB, .8131335_JPRB, .9401905_JPRB, .9999999_JPRB/)  
+ZPIZA4(2, :)= (/&
+ & .8970131_JPRB, .9984940_JPRB, .9245594_JPRB, .7768385_JPRB, .9532763_JPRB, .9999999_JPRB/)  
+ZPIZA4(3, :)= (/&
+ & .8287144_JPRB, .9949396_JPRB, .9279543_JPRB, .6765051_JPRB, .9467578_JPRB, .9955938_JPRB/)  
+ZPIZA4(4, :)= (/&
+ & .5230504_JPRB, .7868518_JPRB, .8531531_JPRB, .4048149_JPRB, .8748231_JPRB, .2355667_JPRB/)  
+ 
+ZCGA4(1, :)= (/&
+ & 0.729019_JPRB, 0.803129_JPRB, 0.784592_JPRB, 0.712208_JPRB, .7008249_JPRB, .7270548_JPRB/)  
+ZCGA4(2, :)= (/&
+ & 0.668431_JPRB, 0.788530_JPRB, 0.698682_JPRB, 0.657422_JPRB, .6735182_JPRB, .6519706_JPRB/)  
+ZCGA4(3, :)= (/&
+ & 0.636342_JPRB, 0.802467_JPRB, 0.691305_JPRB, 0.627497_JPRB, .6105750_JPRB, .4760794_JPRB/)  
+ZCGA4(4, :)= (/&
+ & 0.700610_JPRB, 0.818871_JPRB, 0.702399_JPRB, 0.689886_JPRB, .4629866_JPRB, .1907639_JPRB/)  
+
+!        1.3   SIX SPECTRAL INTERVALS (0.185-0.25-0.44-0.69-1.19-2.38-4.00microns)
+
+ZTAUA6(1, :)= (/&
+ & 1.69446_JPRB , 1.11855_JPRB , 1.09212_JPRB , 1.72145_JPRB , 1.03858_JPRB , 1.12044_JPRB /)  
+ZTAUA6(2, :)= (/&
+ & 1.69446_JPRB , 1.11855_JPRB , 1.09212_JPRB , 1.72145_JPRB , 1.03858_JPRB , 1.12044_JPRB /)  
+ZTAUA6(3, :)= (/&
+ & 1.69446_JPRB , 1.11855_JPRB , 1.09212_JPRB , 1.72145_JPRB , 1.03858_JPRB , 1.12044_JPRB /)  
+ZTAUA6(4, :)= (/&
+ & 0.52838_JPRB , 0.93285_JPRB , 0.93449_JPRB , 0.53078_JPRB , 0.67148_JPRB , 0.46608_JPRB /)  
+ZTAUA6(5, :)= (/&
+ & 0.20543_JPRB , 0.84642_JPRB , 0.84958_JPRB , 0.21673_JPRB , 0.28270_JPRB , 0.10915_JPRB /)  
+ZTAUA6(6, :)= (/&
+ & 0.10849_JPRB , 0.66699_JPRB , 0.65255_JPRB , 0.11600_JPRB , 0.06529_JPRB , 0.04468_JPRB /)  
+ 
+ZPIZA6(1, :)= (/&
+ & .9148907_JPRB, .9956173_JPRB, .7504584_JPRB, .8131335_JPRB, .9401905_JPRB, .9999999_JPRB/)  
+ZPIZA6(2, :)= (/&
+ & .9148907_JPRB, .9956173_JPRB, .7504584_JPRB, .8131335_JPRB, .9401905_JPRB, .9999999_JPRB/)  
+ZPIZA6(3, :)= (/&
+ & .9148907_JPRB, .9956173_JPRB, .7504584_JPRB, .8131335_JPRB, .9401905_JPRB, .9999999_JPRB/)  
+ZPIZA6(4, :)= (/&
+ & .8970131_JPRB, .9984940_JPRB, .9245594_JPRB, .7768385_JPRB, .9532763_JPRB, .9999999_JPRB/)  
+ZPIZA6(5, :)= (/&
+ & .8287144_JPRB, .9949396_JPRB, .9279543_JPRB, .6765051_JPRB, .9467578_JPRB, .9955938_JPRB/)  
+ZPIZA6(6, :)= (/&
+ & .5230504_JPRB, .7868518_JPRB, .8531531_JPRB, .4048149_JPRB, .8748231_JPRB, .2355667_JPRB/)  
+ 
+ZCGA6(1, :)= (/&
+ & 0.729019_JPRB, 0.803129_JPRB, 0.784592_JPRB, 0.712208_JPRB, .7008249_JPRB, .7270548_JPRB/)  
+ZCGA6(2, :)= (/&
+ & 0.729019_JPRB, 0.803129_JPRB, 0.784592_JPRB, 0.712208_JPRB, .7008249_JPRB, .7270548_JPRB/)  
+ZCGA6(3, :)= (/&
+ & 0.729019_JPRB, 0.803129_JPRB, 0.784592_JPRB, 0.712208_JPRB, .7008249_JPRB, .7270548_JPRB/)  
+ZCGA6(4, :)= (/&
+ & 0.668431_JPRB, 0.788530_JPRB, 0.698682_JPRB, 0.657422_JPRB, .6735182_JPRB, .6519706_JPRB/)  
+ZCGA6(5, :)= (/&
+ & 0.636342_JPRB, 0.802467_JPRB, 0.691305_JPRB, 0.627497_JPRB, .6105750_JPRB, .4760794_JPRB/)  
+ZCGA6(6, :)= (/&
+ & 0.700610_JPRB, 0.818871_JPRB, 0.702399_JPRB, 0.689886_JPRB, .4629866_JPRB, .1907639_JPRB/)  
+
+!      ----------------------------------------------------------------
+
+IF (KSW == 2) THEN
+  DO JNU=1,KSW
+    DO JAER=1,6
+      RTAUA(JNU,JAER)=ZTAUA2(JNU,JAER)
+      RPIZA(JNU,JAER)=ZPIZA2(JNU,JAER)
+      RCGA(JNU,JAER) =ZCGA2 (JNU,JAER)
+    ENDDO
+  ENDDO
+ELSEIF (KSW == 4) THEN
+  DO JNU=1,KSW
+    DO JAER=1,6
+      RTAUA(JNU,JAER)=ZTAUA4(JNU,JAER)
+      RPIZA(JNU,JAER)=ZPIZA4(JNU,JAER)
+      RCGA(JNU,JAER) =ZCGA4 (JNU,JAER)
+    ENDDO
+  ENDDO
+ELSEIF (KSW == 6) THEN
+  DO JNU=1,KSW
+    DO JAER=1,6
+      RTAUA(JNU,JAER)=ZTAUA6(JNU,JAER)
+      RPIZA(JNU,JAER)=ZPIZA6(JNU,JAER)
+      RCGA(JNU,JAER) =ZCGA6 (JNU,JAER)
+    ENDDO
+  ENDDO
+ELSEIF (KSW == 14 .AND. KTSW == 14) THEN
+  PRINT *,'SUAERSN: 14-SPECTRAL INTERVALS --> RRTM_SW'
+ELSE
+  STOP 'SUAERSN: WRONG NUMBER OF SPECTRAL INTERVALS'
+ENDIF
+
+!      ----------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUAERSN',1,ZHOOK_HANDLE)
+END SUBROUTINE SUAERSN
Index: LMDZ5/trunk/libf/phylmd/rrtm/suaersn.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/suaersn.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/suaersn.intfb.h	(revision 1989)
@@ -0,0 +1,7 @@
+INTERFACE
+SUBROUTINE SUAERSN (KTSW, KSW)
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KTSW
+INTEGER(KIND=JPIM),INTENT(IN) :: KSW
+END SUBROUTINE SUAERSN
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/suaerv.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/suaerv.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/suaerv.F90	(revision 1989)
@@ -0,0 +1,154 @@
+SUBROUTINE SUAERV &
+ & (  KLEV  , PETAH,&
+ & PVDAES, PVDAEL, PVDAEU, PVDAED,&
+ & PTRBGA, PVOBGA, PSTBGA, PAEOPS, PAEOPL, PAEOPU,&
+ & PAEOPD, PTRPT , PAEADK, PAEADM, PAEROS &
+ & )  
+
+!**** *SUAERV* - PARAMETERS FOR THE VERTICAL DISTRIBUTIONS OF AEROSOLS.
+
+!     PURPOSE.
+!     --------
+
+!          THIS ROUTINE COMPUTES THE VALUES *PVDAEN* (*N=*S,*L,*U OR *D
+!     FOR SEA,LAND,URBAN OR DESERT) OF A SURFACE-NORMALISED VERTICAL
+!     DISTRIBUTION OF AEROSOLS' OPTICAL DEPHTS FROM THE ARGUMENT *PETAH*
+!     (VERTICAL COORDINATE) AT *KLEVP1* LEVELS. IT ALSO SETS VALUES FOR
+!     NON-GEOGRAPHICALLY WEIGHTED TOTAL OPTICAL DEPTHS (AT 0.55 E-06
+!     WAVE-LENGTH) *PAEOPN* FOR THE SAME FOUR TYPES AND SIMILEAR OPTICAL
+!     DEPHTS DIVIDED BY PRESSURE FOR BACKGROUND WELL-MIXED AEROSOLS
+!     OF THREE TYPES *PMNBGA* (*MN*=*TR*,*VO* OR *ST* FOR TROPOSPHERIC,
+!     VOLCANIC (STRATOSPHERIC ASHES) OR STRATOSPHERIC (SULFURIC TYPE)).
+!     IT FINALLY SET VALUES FOR THE POWER TO BE APPLIED TO A TEMPERATURE
+!     RATIO SMALLER THAN ONE IN ORDER TO OBTAIN AN IDEX ONE IN THE
+!     STRATOSPHERE AND ZERO IN THE TROPOSPHERE WITH A RELATIVELY SMOOTH
+!     TRANSITION (*PTRPT*), AS WELL AS FOR ADSORPTION COEFFICIENTS FOR
+!     WATER TO THE THREE TYPE OF TROPOSPHERIC AEROSOLS (*PAEADK*) WITH
+!     A MINIMUM VALUE (IN THE WHOLE ATMOSPHERE) FOR THE SUM OF THE
+!     PRODUCTS OF *PAEADK* BY THE OPTICAL DEPTHS DIVIDED BY PRESURE
+!     THICKNESS: *PAEADM*.
+
+!**   INTERFACE.
+!     ----------
+
+!          *SUAERV* IS CALLED FROM *SUECRAD*.
+!          THERE ARE SIXTEEN DUMMY ARGUMENTS: *PETAH* IS THE VERTICAL
+!     COORDINATE.
+!                                             *PVDAEN* (*N=*S,*L,*U OR
+!     *D) ARE THE NORMALISED VERTICAL DISTRIBUTIONS.
+!                                             *KLEVP1* IS THE NUMBER OF
+!     LEVELS.
+!                                             *PMNBGA* (*MN*=*TR*,*VO*
+!     OR *ST*) ARE THE BACKGROUND OPTICAL DEPTHS DIVIDED BY PRESSURE.
+!                                             *PAEOPN* (*N=*S,*L,*U OR
+!     *D) ARE THE TOTAL OPTICAL DEPHTS FOR THE VERTICALLY VARYING
+!     AEROSOLS.
+!                                             *PTRPT* IS THE TEMPERATURE
+!     EXPONENT FOR THE STRATOSPHERIC DEFINITION.
+!                                             *PAEADK* (1,2,3) AND
+!     AND *PAEADM* ARE THE CONSTANTS FOR THE DEFINITION OF THE QUANTITY
+!     OF WATER VAPOUR THAT WILL BE ADSORBED TO THE DRY AEROSOLS TO FORM
+!     MOIST AEROSOLS.
+
+!     METHOD.
+!     -------
+
+!          STRAIGHTFORWARD, EQUIVALENT HEIGTHS ARE GIVEN IN METERS (8434
+!     FOR THE ATMOSPHERE) AND TROPOSPHERIC AND STRATOSPHERIC PRESSURE
+!     BOUNDARY VALUES ARE SET AT 101325 AND 19330 *PASCAL.
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE.
+
+!     REFERENCE.
+!     ----------
+
+!          NONE.
+
+!     AUTHOR
+!     ------
+!     J.-F. GELEYN     E.C.M.W.F.     04/11/82.
+
+!     MODIFICATIONS
+!     -------------
+!     J.-J. MORCRETTE  E.C.M.W.F.     91/07/14   ADAPTATION TO I.F.S.
+!     JJ Morcrette 960903  block data SUAERH moved after end of SUAERV
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PETAH(KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PVDAES(KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PVDAEL(KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PVDAEU(KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PVDAED(KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTRBGA 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PVOBGA 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PSTBGA 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PAEOPS 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PAEOPL 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PAEOPU 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PAEOPD 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTRPT 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PAEADK(3) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PAEADM 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PAEROS 
+!     ------------------------------------------------------------------
+INTEGER(KIND=JPIM) :: JK
+
+REAL(KIND=JPRB) :: ZHSD, ZHSL, ZHSS, ZHSU
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!     ------------------------------------------------------------------
+
+!*         1.     COMPUTATIONS.
+!                 -------------
+
+IF (LHOOK) CALL DR_HOOK('SUAERV',0,ZHOOK_HANDLE)
+ZHSS=MAX(1.0_JPRB,8434._JPRB/1000._JPRB)
+ZHSL=MAX(1.0_JPRB,8434._JPRB/1000._JPRB)
+ZHSU=MAX(1.0_JPRB,8434._JPRB/1000._JPRB)
+ZHSD=MAX(1.0_JPRB,8434._JPRB/3000._JPRB)
+PVDAES(1)=0._JPRB
+PVDAEL(1)=0._JPRB
+PVDAEU(1)=0._JPRB
+PVDAED(1)=0._JPRB
+IF(PETAH(1) /= 0.0_JPRB) THEN
+  PVDAES(1)=PETAH(1)**ZHSS
+  PVDAEL(1)=PETAH(1)**ZHSL
+  PVDAEU(1)=PETAH(1)**ZHSU
+  PVDAED(1)=PETAH(1)**ZHSD
+ENDIF
+DO JK=2,KLEV+1
+  PVDAES(JK)=PETAH(JK)**ZHSS
+  PVDAEL(JK)=PETAH(JK)**ZHSL
+  PVDAEU(JK)=PETAH(JK)**ZHSU
+  PVDAED(JK)=PETAH(JK)**ZHSD
+ENDDO
+PTRBGA= 0.03_JPRB/(101325._JPRB-19330._JPRB)
+PVOBGA= 0.007_JPRB/19330._JPRB
+PSTBGA= 0.045_JPRB/19330._JPRB
+PAEOPS= 0.05_JPRB
+PAEOPL= 0.2_JPRB
+PAEOPU= 0.1_JPRB
+PAEOPD= 1.9_JPRB
+PTRPT = 30._JPRB
+PAEADK(1)=+.3876E-03_JPRB
+PAEADK(2)=+.6693E-02_JPRB
+PAEADK(3)=+.8563E-03_JPRB
+PAEADM   = 2.6E-10_JPRB
+
+PAEROS   = 0.1462E-16_JPRB
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUAERV',1,ZHOOK_HANDLE)
+END SUBROUTINE SUAERV
Index: LMDZ5/trunk/libf/phylmd/rrtm/suaerv.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/suaerv.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/suaerv.intfb.h	(revision 1989)
@@ -0,0 +1,27 @@
+INTERFACE
+SUBROUTINE SUAERV&
+ & ( KLEV , PETAH,&
+ & PVDAES, PVDAEL, PVDAEU, PVDAED,&
+ & PTRBGA, PVOBGA, PSTBGA, PAEOPS, PAEOPL, PAEOPU,&
+ & PAEOPD, PTRPT , PAEADK, PAEADM, PAEROS&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(IN) :: PETAH(KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PVDAES(KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PVDAEL(KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PVDAEU(KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PVDAED(KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PTRBGA
+REAL(KIND=JPRB) ,INTENT(OUT) :: PVOBGA
+REAL(KIND=JPRB) ,INTENT(OUT) :: PSTBGA
+REAL(KIND=JPRB) ,INTENT(OUT) :: PAEOPS
+REAL(KIND=JPRB) ,INTENT(OUT) :: PAEOPL
+REAL(KIND=JPRB) ,INTENT(OUT) :: PAEOPU
+REAL(KIND=JPRB) ,INTENT(OUT) :: PAEOPD
+REAL(KIND=JPRB) ,INTENT(OUT) :: PTRPT
+REAL(KIND=JPRB) ,INTENT(OUT) :: PAEADK(3)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PAEADM
+REAL(KIND=JPRB) ,INTENT(OUT) :: PAEROS
+END SUBROUTINE SUAERV
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/suaerv15.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/suaerv15.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/suaerv15.F90	(revision 1989)
@@ -0,0 +1,163 @@
+!OPTIONS XOPT(NOEVAL)
+SUBROUTINE SUAERV15 ( KLEV  , PETAH,&
+ & PVDAES,PVDAEL,PVDAEU,PVDAED,PVDAEF,&
+ & PTRBGA,PVOBGA,PSTBGA,PAEOPS,PAEOPL,PAEOPU,&
+ & PAEOPF,&
+ & PAEOPD,PTRPT,PAEADK,PAEADM,  PAEROS      )  
+
+!**** *SUAERV15* - PARAM. FOR THE VERTICAL DISTRIBUTIONS OF AEROSOLS.
+!****              FROZEN VERSION (CYCLE 15) OF SUAERV
+
+!     PURPOSE.
+!     --------
+
+!          THIS ROUTINE COMPUTES THE VALUES *PVDAEN* (*N=*S,*L,*U OR *D
+!     FOR SEA,LAND,URBAN OR DESERT) OF A SURFACE-NORMALISED VERTICAL
+!     DISTRIBUTION OF AEROSOLS' OPTICAL DEPHTS FROM THE ARGUMENT *PETAH*
+!     (VERTICAL COORDINATE) AT *KLEVP1* LEVELS. IT ALSO SETS VALUES FOR
+!     NON-GEOGRAPHICALLY WEIGHTED TOTAL OPTICAL DEPTHS (AT 0.55 E-06
+!     WAVE-LENGTH) *PAEOPN* FOR THE SAME FOUR TYPES AND SIMILEAR OPTICAL
+!     DEPHTS DIVIDED BY PRESSURE FOR BACKGROUND WELL-MIXED AEROSOLS
+!     OF THREE TYPES *PMNBGA* (*MN*=*TR*,*VO* OR *ST* FOR TROPOSPHERIC,
+!     VOLCANIC (STRATOSPHERIC ASHES) OR STRATOSPHERIC (SULFURIC TYPE)).
+!     IT FINALLY SET VALUES FOR THE POWER TO BE APPLIED TO A TEMPERATURE
+!     RATIO SMALLER THAN ONE IN ORDER TO OBTAIN AN IDEX ONE IN THE
+!     STRATOSPHERE AND ZERO IN THE TROPOSPHERE WITH A RELATIVELY SMOOTH
+!     TRANSITION (*PTRPT*), AS WELL AS FOR ADSORPTION COEFFICIENTS FOR
+!     WATER TO THE THREE TYPE OF TROPOSPHERIC AEROSOLS (*PAEADK*) WITH
+!     A MINIMUM VALUE (IN THE WHOLE ATMOSPHERE) FOR THE SUM OF THE
+!     PRODUCTS OF *PAEADK* BY THE OPTICAL DEPTHS DIVIDED BY PRESURE
+!     THICKNESS: *PAEADM*.
+
+!**   INTERFACE.
+!     ----------
+
+!          *SUAERV15* IS CALLED FROM *SUECRAD15*.
+!          THERE ARE SIXTEEN DUMMY ARGUMENTS: *PETAH* IS THE VERTICAL
+!     COORDINATE.
+!                                             *PVDAEN* (*N=*S,*L,*U OR
+!     *D) ARE THE NORMALISED VERTICAL DISTRIBUTIONS.
+!                                             *KLEVP1* IS THE NUMBER OF
+!     LEVELS.
+!                                             *PMNBGA* (*MN*=*TR*,*VO*
+!     OR *ST*) ARE THE BACKGROUND OPTICAL DEPTHS DIVIDED BY PRESSURE.
+!                                             *PAEOPN* (*N=*S,*L,*U OR
+!     *D) ARE THE TOTAL OPTICAL DEPHTS FOR THE VERTICALLY VARYING
+!     AEROSOLS.
+!                                             *PTRPT* IS THE TEMPERATURE
+!     EXPONENT FOR THE STRATOSPHERIC DEFINITION.
+!                                             *PAEADK* (1,2,3) AND
+!     AND *PAEADM* ARE THE CONSTANTS FOR THE DEFINITION OF THE QUANTITY
+!     OF WATER VAPOUR THAT WILL BE ADSORBED TO THE DRY AEROSOLS TO FORM
+!     MOIST AEROSOLS.
+
+!     METHOD.
+!     -------
+
+!          STRAIGHTFORWARD, EQUIVALENT HEIGTHS ARE GIVEN IN METERS (8434
+!     FOR THE ATMOSPHERE) AND TROPOSPHERIC AND STRATOSPHERIC PRESSURE
+!     BOUNDARY VALUES ARE SET AT 101325 AND 19330 *PASCAL.
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE.
+
+!     REFERENCE.
+!     ----------
+
+!          NONE.
+
+!     AUTHOR
+!     ------
+!        96-11: Ph. Dandin. Meteo-France
+!     J.-J. MORCRETTE  E.C.M.W.F.     91/07/14   ADAPTATION TO I.F.S.
+!     J.-F. GELEYN     E.C.M.W.F.     04/11/82.
+
+!     MODIFICATIONS
+!     -------------
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        A.Alias       29-09-2005 Sulfate aerosols (Hu Rong Ming)
+!                                 PVDAEF and PAEOPF added
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PETAH(KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PVDAES(KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PVDAEL(KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PVDAEU(KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PVDAED(KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PVDAEF(KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTRBGA 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PVOBGA 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PSTBGA 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PAEOPS 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PAEOPL 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PAEOPU 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PAEOPF
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PAEOPD 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTRPT 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PAEADK(3) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PAEADM 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PAEROS 
+!     ------------------------------------------------------------------
+INTEGER(KIND=JPIM) :: JK
+
+REAL(KIND=JPRB) :: ZHSD, ZHSF, ZHSL, ZHSS, ZHSU
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!     ------------------------------------------------------------------
+
+!*         1.     COMPUTATIONS.
+!                 -------------
+
+IF (LHOOK) CALL DR_HOOK('SUAERV15',0,ZHOOK_HANDLE)
+ZHSS=MAX(1.0_JPRB,8434._JPRB/1000._JPRB)
+ZHSL=MAX(1.0_JPRB,8434._JPRB/1000._JPRB)
+ZHSU=MAX(1.0_JPRB,8434._JPRB/1000._JPRB)
+ZHSD=MAX(1.0_JPRB,8434._JPRB/3000._JPRB)
+ZHSF=MAX(1.0_JPRB,8434._JPRB/1000._JPRB)
+PVDAES(1)=0._JPRB
+PVDAEL(1)=0._JPRB
+PVDAEU(1)=0._JPRB
+PVDAED(1)=0._JPRB
+PVDAEF(1)=0._JPRB
+IF(PETAH(1) /= 0.0_JPRB) THEN
+  PVDAES(1)=PETAH(1)**ZHSS
+  PVDAEL(1)=PETAH(1)**ZHSL
+  PVDAEU(1)=PETAH(1)**ZHSU
+  PVDAED(1)=PETAH(1)**ZHSD
+  PVDAEF(1)=PETAH(1)**ZHSF
+ENDIF
+DO JK=2,KLEV+1
+  PVDAES(JK)=PETAH(JK)**ZHSS
+  PVDAEL(JK)=PETAH(JK)**ZHSL
+  PVDAEU(JK)=PETAH(JK)**ZHSU
+  PVDAED(JK)=PETAH(JK)**ZHSD
+  PVDAEF(JK)=PETAH(JK)**ZHSF
+ENDDO
+PTRBGA=0.03_JPRB/(101325._JPRB-19330._JPRB)
+PVOBGA=0.007_JPRB/19330._JPRB
+PSTBGA=0.045_JPRB/19330._JPRB
+PAEOPS=0.05_JPRB
+PAEOPL=0.2_JPRB
+PAEOPU=0.1_JPRB
+PAEOPD=1.9_JPRB
+PAEOPF=0.22_JPRB
+PTRPT=30._JPRB
+PAEADK(1)=+.3876E-03_JPRB
+PAEADK(2)=+.6693E-02_JPRB
+PAEADK(3)=+.8563E-03_JPRB
+PAEADM=2.6E-10_JPRB
+
+PAEROS=0.1462E-16_JPRB
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUAERV15',1,ZHOOK_HANDLE)
+END SUBROUTINE SUAERV15
Index: LMDZ5/trunk/libf/phylmd/rrtm/suaerv15.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/suaerv15.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/suaerv15.intfb.h	(revision 1989)
@@ -0,0 +1,28 @@
+INTERFACE
+SUBROUTINE SUAERV15 ( KLEV , PETAH,&
+ & PVDAES,PVDAEL,PVDAEU,PVDAED,PVDAEF,&
+ & PTRBGA,PVOBGA,PSTBGA,PAEOPS,PAEOPL,PAEOPU,&
+ & PAEOPF,&
+ & PAEOPD,PTRPT,PAEADK,PAEADM, PAEROS ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(IN) :: PETAH(KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PVDAES(KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PVDAEL(KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PVDAEU(KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PVDAED(KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PVDAEF(KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PTRBGA
+REAL(KIND=JPRB) ,INTENT(OUT) :: PVOBGA
+REAL(KIND=JPRB) ,INTENT(OUT) :: PSTBGA
+REAL(KIND=JPRB) ,INTENT(OUT) :: PAEOPS
+REAL(KIND=JPRB) ,INTENT(OUT) :: PAEOPL
+REAL(KIND=JPRB) ,INTENT(OUT) :: PAEOPU
+REAL(KIND=JPRB) ,INTENT(OUT) :: PAEOPF
+REAL(KIND=JPRB) ,INTENT(OUT) :: PAEOPD
+REAL(KIND=JPRB) ,INTENT(OUT) :: PTRPT
+REAL(KIND=JPRB) ,INTENT(OUT) :: PAEADK(3)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PAEADM
+REAL(KIND=JPRB) ,INTENT(OUT) :: PAEROS
+END SUBROUTINE SUAERV15
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/sucape.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/sucape.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/sucape.F90	(revision 1989)
@@ -0,0 +1,91 @@
+SUBROUTINE SUCAPE(KULOUT)
+
+!**** *SUCAPE  * - ROUTINE TO INITIALIZE THE VARIABLES FOR CAPE 
+!                  AND CIN COMPUTATION
+
+!     PURPOSE.
+!     --------
+!        SET DEFAULT VALUES, THEN READS NAMELIST NAMCAPE
+
+!**   INTERFACE.
+!     ----------
+!        *CALL* *SUCAPE(KULOUT)*
+
+!         EXPLICIT ARGUMENTS :  KULOUT
+!         --------------------
+
+!         IMPLICIT ARGUMENTS :
+!         --------------------
+!            COMMON  YOMCAPE
+!            COMMON  YOMPHY
+!            COMMON  YOMLUN
+
+!     METHOD.
+!     -------
+
+!     EXTERNALS.
+!     ----------
+
+!     REFERENCE.
+!     ----------
+
+!     AUTHOR.
+!     -------
+!        N.Pristov 03/2001
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 03/2001
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOMCAPE  , ONLY :  NCAPEITER   ,NETAPES  ,GCAPERET   ,GCAPEPSD
+USE YOMPHY   , ONLY :  NBITER 
+! Ce qui concerne NULNAM commente par MPL le 15.04.09
+!USE YOMLUN   , ONLY :  NULNAM
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KULOUT 
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+#include "abor1.intfb.h"
+#include "posnam.intfb.h"
+
+#include "namcape.h"
+
+!      ----------------------------------------------------------------
+!*       1.    SET DEFAULT VALUES.
+!              -------------------
+IF (LHOOK) CALL DR_HOOK('SUCAPE',0,ZHOOK_HANDLE)
+NCAPEITER=NBITER
+NETAPES=2
+GCAPERET=0._JPRB
+GCAPEPSD=30000._JPRB
+
+!      ----------------------------------------------------------------
+!*       2.    MODIFIES DEFAULT VALUES. READ NAMELIST.
+!              ------------------------
+
+! Ce qui concerne NAMCAPE commente par MPL le 15.04.09
+!CALL POSNAM(NULNAM,'NAMCAPE')
+!READ(NULNAM,NAMCAPE)
+
+IF (NCAPEITER <= 0 ) CALL ABOR1('SUCAPE:  INVALID VALUE FOR NCAPEITER')
+IF (NETAPES <= 0 ) CALL ABOR1('SUCAPE:  INVALID VALUE FOR NETAPES')
+IF ((GCAPERET < 0.0_JPRB ) .OR. (GCAPERET > 1.0_JPRB ))  &
+ & CALL ABOR1('SUCAPE:  INVALID VALUE FOR GCAPERET')  
+IF (GCAPEPSD <= 0.0_JPRB ) CALL ABOR1('SUCAPE:  INVALID VALUE FOR GCAPEPSD')
+
+!      -----------------------------------------------------------
+!*       3.    PRINT FINAL VALUES.
+!              -------------------
+
+WRITE(KULOUT,'('' NCAPEITER = '',I2,'' NETAPES = '',I2,'' GCAPERET = '',&
+ & E13.6,'' GCAPEPSD = '',E13.6)') NCAPEITER, NETAPES, GCAPERET, GCAPEPSD  
+ 
+IF (LHOOK) CALL DR_HOOK('SUCAPE',1,ZHOOK_HANDLE)
+END SUBROUTINE SUCAPE
Index: LMDZ5/trunk/libf/phylmd/rrtm/sucape.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/sucape.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/sucape.intfb.h	(revision 1989)
@@ -0,0 +1,6 @@
+INTERFACE
+SUBROUTINE SUCAPE(KULOUT)
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KULOUT
+END SUBROUTINE SUCAPE
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/sucld.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/sucld.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/sucld.F90	(revision 1989)
@@ -0,0 +1,109 @@
+SUBROUTINE SUCLD ( KLEV , PETA )
+
+!**** *SUCLD*   - INITIALIZE COMMON YOECLD CONTROLLING *CLOUD*
+
+!     PURPOSE.
+!     --------
+!           INITIALIZE YOECLD
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUCLD* FROM *SUPHEC*
+!              -----        ------
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!        NONE
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+!        COMMON YOECLD
+
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+
+!     EXTERNALS.
+!     ----------
+!        NONE
+
+!     REFERENCE.
+!     ----------
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE
+!     "INTEGRATED FORECASTING SYSTEM"
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 89-12-15
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOECLD   , ONLY : CETA     ,RANVA    ,RANVB    ,RANVH    ,&
+ & RCCA     ,RCCB     ,RCCC     ,RCFCT    ,RCLWMR   ,&
+ & RCSCAL   ,RETAHB   ,RETAMB   ,RLOIA    ,RLOIB    ,&
+ & RLOIC    ,RLOID    ,RLONIA   ,RLONIB   ,RRHH     ,&
+ & RRHL     ,RRHM     ,RGAMMAS  ,REPSCR   ,REPSEC   ,&
+ & LOMEGA  
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PETA(KLEV) 
+!      ----------------------------------------------------------------
+
+INTEGER(KIND=JPIM) :: JK
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!      ----------------------------------------------------------------
+
+!*       1.    SET VALUES
+!              ----------
+
+IF (LHOOK) CALL DR_HOOK('SUCLD',0,ZHOOK_HANDLE)
+RANVA  = 2._JPRB
+RANVB  = 0.3_JPRB
+RANVH  = 0.4_JPRB
+RCCA   = 0.125_JPRB
+RCCB   = 1.5_JPRB
+RCCC   = 0.8_JPRB
+RCFCT  = 0.400_JPRB
+RCSCAL = 1.0E+11_JPRB
+
+RETAHB = 0.45_JPRB
+RETAMB = 0.80_JPRB
+
+RLOIA  = 1.0E+02_JPRB
+RLOIB  =-10.00_JPRB
+RLOIC  =-0.9_JPRB
+RLOID  = 5.0_JPRB
+
+RLONIA = -0.1_JPRB
+RLONIB = -10.0_JPRB
+
+RRHH   = 0.9_JPRB
+RRHM   = 0.8_JPRB
+RRHL   = 0.70_JPRB
+
+RGAMMAS= 0.05_JPRB
+RCLWMR = 1.E-04_JPRB
+LOMEGA =.TRUE.
+
+REPSEC = 1.0E-12_JPRB
+REPSCR = 1.0E-12_JPRB
+
+DO JK=1,KLEV
+  CETA(JK)=PETA(JK)
+ENDDO
+
+!     -----------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUCLD',1,ZHOOK_HANDLE)
+END SUBROUTINE SUCLD
Index: LMDZ5/trunk/libf/phylmd/rrtm/sucld.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/sucld.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/sucld.intfb.h	(revision 1989)
@@ -0,0 +1,7 @@
+INTERFACE
+SUBROUTINE SUCLD ( KLEV , PETA )
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+REAL(KIND=JPRB) ,INTENT(IN) :: PETA(KLEV)
+END SUBROUTINE SUCLD
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/sucldp.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/sucldp.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/sucldp.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SUCLDP
+END SUBROUTINE SUCLDP
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/suclop.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/suclop.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/suclop.F90	(revision 1989)
@@ -0,0 +1,111 @@
+SUBROUTINE SUCLOP
+
+!**** *SUCLOP*  - INITIALIZE COMMON YOECLOP
+
+!     PURPOSE.
+!     --------
+!           INITIALIZE YOMCLOP, WITH CLOUD OPTICAL PARAMETERS
+
+!**   INTERFACE.
+!     ----------
+!        *CALL*  SUCLOP
+!     FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!        NONE
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+!        COMMON YOECLOP
+
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+
+!     EXTERNALS.
+!     ----------
+!        NONE
+
+!     REFERENCE.
+!     ----------
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE
+!     "INTEGRATED FORECASTING SYSTEM"
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 92-02-29
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOECLOP  , ONLY : RYFWCA   ,RYFWCB   ,RYFWCC   ,RYFWCD   ,&
+ & RYFWCE   ,RYFWCF   ,REBCUA   ,REBCUB   ,REBCUC   ,&
+ & REBCUD   ,REBCUE   ,REBCUF   ,REBCUG   ,REBCUH   ,&
+ & REFFIA   ,REFFIB   ,RTIW     ,RRIW  
+
+IMPLICIT NONE
+
+!      ----------------------------------------------------------------
+
+!* Ice cloud properties - crystal: adapted from Ebert and Curry, 1992
+
+! SW : 2 spectral intervals
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SUCLOP',0,ZHOOK_HANDLE)
+REBCUA(1)= 3.448E-03_JPRB
+REBCUA(2)= 3.448E-03_JPRB
+REBCUB(1)= 2.431_JPRB
+REBCUB(2)= 2.431_JPRB
+REBCUC(1)= 0.99999_JPRB
+REBCUC(2)= 0.975634_JPRB
+REBCUD(1)= 0._JPRB
+REBCUD(2)= 2.487E-04_JPRB
+REBCUE(1)= 0.7661_JPRB
+REBCUE(2)= 0.7866_JPRB
+REBCUF(1)= 5.851E-04_JPRB
+REBCUF(2)= 5.937E-04_JPRB
+
+! LW : spectrally averaged with reference Planck function at 257 K
+
+REBCUG= 1.07677_JPRB
+REBCUH= 0.00267_JPRB
+
+! Ice particle Effective Radius as a function of LWC
+
+REFFIA= 40._JPRB
+REFFIB=  0._JPRB
+
+!* Water cloud properties - from Fouquart (1987)
+
+! SW : 2 spectral intervals: parameters as a function of Reff
+
+RYFWCA(1)= 0._JPRB
+RYFWCA(2)= 0._JPRB
+RYFWCB(1)= 1.5_JPRB
+RYFWCB(2)= 1.5_JPRB
+RYFWCC(1)= 0.9999_JPRB
+RYFWCC(2)= 0.9988_JPRB
+RYFWCD(1)= 5.000E-04_JPRB
+RYFWCD(2)= 2.500E-03_JPRB
+RYFWCE(1)= 0.5_JPRB
+RYFWCE(2)= 0.05_JPRB
+RYFWCF(1)= 0.865_JPRB
+RYFWCF(2)= 0.910_JPRB
+
+!* Liquid/Solid water transition
+
+RTIW= 263._JPRB
+RRIW= 20._JPRB
+IF (LHOOK) CALL DR_HOOK('SUCLOP',1,ZHOOK_HANDLE)
+
+!     ------------------------------------------------------------------
+
+END SUBROUTINE SUCLOP
Index: LMDZ5/trunk/libf/phylmd/rrtm/suclop.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/suclop.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/suclop.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SUCLOP
+END SUBROUTINE SUCLOP
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/suclop15.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/suclop15.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/suclop15.F90	(revision 1989)
@@ -0,0 +1,146 @@
+!OPTIONS XOPT(NOEVAL)
+SUBROUTINE SUCLOP15
+
+!**** *SUCLOP15*  - INITIALIZE COMMON YOMCLOP15
+!****               FROZEN VERSION (CYCLE 15) OF SUCLOP
+
+!     PURPOSE.
+!     --------
+!           INITIALIZE YOMCLOP15, WITH CLOUD OPTICAL PARAMETERS
+
+!**   INTERFACE.
+!     ----------
+!        *CALL*  SUCLOP15
+!     FROM *SUPHEC*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!        NONE
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+!        COMMON YOMCLOP15
+
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+
+!     EXTERNALS.
+!     ----------
+!        NONE
+
+!     REFERENCE.
+!     ----------
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE
+!     "INTEGRATED FORECASTING SYSTEM"
+
+!     AUTHOR.
+!     -------
+!        96-11: Ph. Dandin. Meteo-France
+!        ORIGINAL : J.-J. MORCRETTE         *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        P. Marquet    14-Feb-2006 REFFWIA15 + NAMCLOP15 introduced
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+ 
+! Ce qui concerne NULNAM commente par MPL le 15.04.09
+!USE YOMLUN   , ONLY : NULNAM, NULOUT
+USE YOMLUN   , ONLY : NULOUT
+USE YOMCLOP15, ONLY : RYFWCA15 ,RYFWCB15 ,RYFWCC15 ,RYFWCD15 ,&
+ & RYFWCE15 ,RYFWCF15 ,REBCUA15 ,REBCUB15 ,REBCUC15 ,&
+ & REBCUD15 ,REBCUE15 ,REBCUF15 ,REBCUG15 ,REBCUH15 ,&
+ & REFFIA15 ,REFFIB15 ,RTIW15   ,RRIW15   ,REFFWIA15 
+
+IMPLICIT NONE
+
+#include "posnam.intfb.h"
+#include "namclop15.h"
+
+
+!*       1.    Set default values.
+!              -------------------
+
+!* Ice cloud properties - crystal: adapted from Ebert and Curry, 1992
+
+! SW : 2 spectral intervals
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SUCLOP15',0,ZHOOK_HANDLE)
+REBCUA15(1)= 3.448E-03_JPRB
+REBCUA15(2)= 3.448E-03_JPRB
+REBCUB15(1)= 2.431_JPRB
+REBCUB15(2)= 2.431_JPRB
+REBCUC15(1)= 0.99999_JPRB
+REBCUC15(2)= 0.975634_JPRB
+REBCUD15(1)= 0._JPRB
+REBCUD15(2)= 2.487E-04_JPRB
+REBCUE15(1)= 0.7661_JPRB
+REBCUE15(2)= 0.7866_JPRB
+REBCUF15(1)= 5.851E-04_JPRB
+REBCUF15(2)= 5.937E-04_JPRB
+
+! LW : spectrally averaged with reference Planck function at 257 K
+
+REBCUG15= 1.07677_JPRB
+REBCUH15= 0.00267_JPRB
+
+! Ice particle Effective Radius as a function of LWC
+
+REFFIA15= 40._JPRB
+REFFIB15=  0._JPRB
+
+! Water and Ice particle Effective Radius in the RADLSW15 formulae
+
+REFFWIA15= 10._JPRB
+
+!* Water cloud properties - from Fouquart (1987)
+
+! SW : 2 spectral intervals: parameters as a function of Reff
+
+RYFWCA15(1)= 0._JPRB
+RYFWCA15(2)= 0._JPRB
+RYFWCB15(1)= 1.5_JPRB
+RYFWCB15(2)= 1.5_JPRB
+RYFWCC15(1)= 0.9999_JPRB
+RYFWCC15(2)= 0.9988_JPRB
+RYFWCD15(1)= 5.000E-04_JPRB
+RYFWCD15(2)= 2.500E-03_JPRB
+RYFWCE15(1)= 0.5_JPRB
+RYFWCE15(2)= 0.05_JPRB
+RYFWCF15(1)= 0.865_JPRB
+RYFWCF15(2)= 0.910_JPRB
+
+!* Liquid/Solid water transition
+
+RTIW15= 263._JPRB
+RRIW15= 20._JPRB
+
+
+!*       2.    Modify default values.
+!              ----------------------
+
+! Ce qui concerne NAMCLOP15 commente par MPL le 15.04.09
+!CALL POSNAM(NULNAM,'NAMCLOP15')
+!READ       (NULNAM, NAMCLOP15)
+
+
+!*       3.    Print final values.
+!              -------------------
+
+WRITE(UNIT=NULOUT,FMT='('' - - - - - - - - -'')')
+WRITE(UNIT=NULOUT,FMT='('' COMMON YOMCLOP15 '')')
+WRITE(UNIT=NULOUT,FMT='('' - - - - - - - - -'')')
+WRITE(UNIT=NULOUT,FMT='( '' REFFWIA15 = '',E11.4 )') &
+                          & REFFWIA15
+
+IF (LHOOK) CALL DR_HOOK('SUCLOP15',1,ZHOOK_HANDLE)
+
+!     ------------------------------------------------------------------
+
+END SUBROUTINE SUCLOP15
Index: LMDZ5/trunk/libf/phylmd/rrtm/suclop15.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/suclop15.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/suclop15.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SUCLOP15
+END SUBROUTINE SUCLOP15
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/suclopn.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/suclopn.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/suclopn.F90	(revision 1989)
@@ -0,0 +1,1086 @@
+SUBROUTINE SUCLOPN (KTSW, KSW, KLEV)
+
+!**** *SUCLOP*  - INITIALIZE COMMON YOECLOP
+
+!     PURPOSE.
+!     --------
+!           INITIALIZE YOMCLOP, WITH CLOUD OPTICAL PARAMETERS
+
+!**   INTERFACE.
+!     ----------
+!        *CALL*  SUCLOPN
+!        FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!        NONE
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+!        COMMON YOECLOP
+
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+
+!     EXTERNALS.
+!     ----------
+!        NONE
+
+!     REFERENCE.
+!     ----------
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE
+!     "INTEGRATED FORECASTING SYSTEM"
+
+!     Fouquart, 1987: NATO ASI,  223-284
+!     A. Slingo, 1989: J. Atmos. Sci., 46, 1419-1427
+!     Ebert and Curry, 1992: J. Geophys. Res., 97D, 3831-3836
+!     Sun and Shine, 1994: Quart. J. Roy. Meteor. Soc., 120, 111-138
+!     Fu and Liou, 1993: J. Atmos. Sci., 50, 2008-2025
+!     Fu, 1996: J. Climate, 9, 2058-2082
+!     Fu et al., 1998: J. Climate, 11, 2223-2237
+!     Lindner & Li, 2000: J. Climate, 13, 1797-1805
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 92-02-29
+!        97-04-16  JJ Morcrette  2 and 4 spectral intervals
+!        01-01-16  JJ Morcrette  ice cloud from Fu 96, Fu et al 98
+!        01-03-01  JJ Morcrette  water clouds from Lindner, Li 2000
+!        00-10-25  JJMorcrette   6 spectral intervals
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOESW    , ONLY : RYFWCA   ,RYFWCB   ,RYFWCC   ,RYFWCD   ,&
+ & RYFWCE   ,RYFWCF   ,REBCUA   ,REBCUB   ,REBCUC   ,&
+ & REBCUD   ,REBCUE   ,REBCUF   ,REBCUG   ,REBCUH   ,&
+ & REBCUI   ,REBCUJ   ,RASWCA   ,RASWCB   ,RASWCC   ,&
+ & RASWCD   ,RASWCE   ,RASWCF   ,RSUSHE   ,RSUSHF   ,&
+ & RSUSHH   ,RSUSHK   ,RSUSHA   ,RSUSHG   ,RSUSHFA  ,&
+ & RSUSHC   ,RSUSHD   ,REFFIA   ,REFFIB   ,RHSAVI   ,&
+ & RFUAA0   ,RFUAA1   ,RFUBB0   ,RFUBB1   ,RFUBB2   ,&
+ & RFUBB3   ,RFUCC0   ,RFUCC1   ,RFUCC2   ,RFUCC3   ,&
+ & RFUETA   ,RFUETB   ,RFUETC   ,RFULIO   ,RFLAA0   ,RFLAA1   ,RFLBB0   ,&
+ & RFLBB1   ,RFLBB2   ,RFLBB3   ,RFLCC0   ,RFLCC1   ,&
+ & RFLCC2   ,RFLCC3   ,RFLDD0   ,RFLDD1   ,RFLDD2   ,&
+ & RFLDD3   ,RLILIA   ,RLILIB   ,RTIW     ,RRIW  
+USE YOERAD   , ONLY : RAOVLP   ,RBOVLP   ,LSRTM
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KTSW 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KSW 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+INTEGER(KIND=JPIM) ::  JNU
+
+!     -----------------------------------------------------------------
+REAL(KIND=JPRB) :: ZEBCUA2(2)  ,ZEBCUB2(2)  ,ZEBCUC2(2)  ,ZEBCUD2(2)&
+ & ,  ZEBCUE2(2)  ,ZEBCUF2(2)  ,ZYFWCA2(2)  ,ZYFWCB2(2)&
+ & ,  ZYFWCC2(2)  ,ZYFWCD2(2)  ,ZYFWCE2(2)  ,ZYFWCF2(2)&
+ & ,  ZASWCA2(2)  ,ZASWCB2(2)  ,ZASWCC2(2)  ,ZASWCD2(2)&
+ & ,  ZASWCE2(2)  ,ZASWCF2(2)  ,ZSUSHE2(2)  ,ZSUSHF2(2)&
+ & ,  ZSUSHH2(2)  ,ZSUSHK2(2)  ,ZSUSHA2(2)  ,ZSUSHG2(2)&
+ & ,  ZFLAA02(2)  ,ZFLAA12(2)  ,ZFLBB02(2)  ,ZFLBB12(2)&
+ & ,  ZFLBB22(2)  ,ZFLBB32(2)  ,ZFLCC02(2)  ,ZFLCC12(2)&
+ & ,  ZFLCC22(2)  ,ZFLCC32(2)  ,ZFLDD02(2)  ,ZFLDD12(2)&
+ & ,  ZFLDD22(2)  ,ZFLDD32(2)  
+
+REAL(KIND=JPRB) :: ZEBCUA4(4)  ,ZEBCUB4(4)  ,ZEBCUC4(4)  ,ZEBCUD4(4)&
+ & ,  ZEBCUE4(4)  ,ZEBCUF4(4)  ,ZYFWCA4(4)  ,ZYFWCB4(4)&
+ & ,  ZYFWCC4(4)  ,ZYFWCD4(4)  ,ZYFWCE4(4)  ,ZYFWCF4(4)&
+ & ,  ZASWCA4(4)  ,ZASWCB4(4)  ,ZASWCC4(4)  ,ZASWCD4(4)&
+ & ,  ZASWCE4(4)  ,ZASWCF4(4)  ,ZSUSHE4(4)  ,ZSUSHF4(4)&
+ & ,  ZSUSHH4(4)  ,ZSUSHK4(4)  ,ZSUSHA4(4)  ,ZSUSHG4(4)&
+ & ,  ZFLAA04(4)  ,ZFLAA14(4)  ,ZFLBB04(4)  ,ZFLBB14(4)&
+ & ,  ZFLBB24(4)  ,ZFLBB34(4)  ,ZFLCC04(4)  ,ZFLCC14(4)&
+ & ,  ZFLCC24(4)  ,ZFLCC34(4)  ,ZFLDD04(4)  ,ZFLDD14(4)&
+ & ,  ZFLDD24(4)  ,ZFLDD34(4)&
+ & ,  ZFUAA04(4)  ,ZFUAA14(4)  ,ZFUBB04(4)  ,ZFUBB14(4)&
+ & ,  ZFUBB24(4)  ,ZFUBB34(4)  ,ZFUCC04(4)  ,ZFUCC14(4)&
+ & ,  ZFUCC24(4)  ,ZFUCC34(4)    
+  
+REAL(KIND=JPRB) :: ZAOVLP(3), ZBOVLP(3)  
+
+REAL(KIND=JPRB) :: ZEBCUA6(6)  ,ZEBCUB6(6)  ,ZEBCUC6(6)  ,ZEBCUD6(6)&
+ & ,  ZEBCUE6(6)  ,ZEBCUF6(6)  ,ZYFWCA6(6)  ,ZYFWCB6(6)&
+ & ,  ZYFWCC6(6)  ,ZYFWCD6(6)  ,ZYFWCE6(6)  ,ZYFWCF6(6)&
+ & ,  ZASWCA6(6)  ,ZASWCB6(6)  ,ZASWCC6(6)  ,ZASWCD6(6)&
+ & ,  ZASWCE6(6)  ,ZASWCF6(6)  ,ZSUSHE6(6)  ,ZSUSHF6(6)&
+ & ,  ZSUSHH6(6)  ,ZSUSHK6(6)  ,ZSUSHA6(6)  ,ZSUSHG6(6)&
+ & ,  ZFLAA06(6)  ,ZFLAA16(6)  ,ZFLBB06(6)  ,ZFLBB16(6)&
+ & ,  ZFLBB26(6)  ,ZFLBB36(6)  ,ZFLCC06(6)  ,ZFLCC16(6)&
+ & ,  ZFLCC26(6)  ,ZFLCC36(6)  ,ZFLDD06(6)  ,ZFLDD16(6)&
+ & ,  ZFLDD26(6)  ,ZFLDD36(6)&
+ & ,  ZFUAA06(6)  ,ZFUAA16(6)  ,ZFUBB06(6)  ,ZFUBB16(6)&
+ & ,  ZFUBB26(6)  ,ZFUBB36(6)  ,ZFUCC06(6)  ,ZFUCC16(6)&
+ & ,  ZFUCC26(6)  ,ZFUCC36(6)    
+
+REAL(KIND=JPRB) :: ZEBCUA14(14)  ,ZEBCUB14(14)  ,ZEBCUC14(14)  ,ZEBCUD14(14)&
+ & ,  ZEBCUE14(14)  ,ZEBCUF14(14)  ,ZYFWCA14(14)  ,ZYFWCB14(14)&
+ & ,  ZYFWCC14(14)  ,ZYFWCD14(14)  ,ZYFWCE14(14)  ,ZYFWCF14(14)&
+ & ,  ZASWCA14(14)  ,ZASWCB14(14)  ,ZASWCC14(14)  ,ZASWCD14(14)&
+ & ,  ZASWCE14(14)  ,ZASWCF14(14)  ,ZSUSHE14(14)  ,ZSUSHF14(14)&
+ & ,  ZSUSHH14(14)  ,ZSUSHK14(14)  ,ZSUSHA14(14)  ,ZSUSHG14(14)&
+ & ,  ZFLAA014(14)  ,ZFLAA114(14)  ,ZFLBB014(14)  ,ZFLBB114(14)&
+ & ,  ZFLBB214(14)  ,ZFLBB314(14)  ,ZFLCC014(14)  ,ZFLCC114(14)&
+ & ,  ZFLCC214(14)  ,ZFLCC314(14)  ,ZFLDD014(14)  ,ZFLDD114(14)&
+ & ,  ZFLDD214(14)  ,ZFLDD314(14)&
+ & ,  ZFUAA014(14)  ,ZFUAA114(14)  ,ZFUBB014(14)  ,ZFUBB114(14)&
+ & ,  ZFUBB214(14)  ,ZFUBB314(14)  ,ZFUCC014(14)  ,ZFUCC114(14)&
+ & ,  ZFUCC214(14)  ,ZFUCC314(14)    
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+#include "abor1.intfb.h"
+
+!     -----------------------------------------------------------------
+
+!*          1.    SHORTWAVE CLOUD OPTICAL PROPERTIES
+!                 ----------------------------------
+
+!     ------------------------------------------------------------------
+
+!*          1.1   TWO SPECTRAL INTERVALS
+!                 ----------------------
+
+! SW : 0.25 - 0.68 - 4.00 microns
+
+!* Ice cloud properties - crystal: adapted from Ebert and Curry, 1992
+
+!  optical properties
+IF (LHOOK) CALL DR_HOOK('SUCLOPN',0,ZHOOK_HANDLE)
+ZEBCUA2 = (/ 3.448E-04_JPRB , 3.448E-04_JPRB /)
+ZEBCUB2 = (/ 2.431_JPRB     , 2.431_JPRB     /)
+ZEBCUC2 = (/ 0.00001_JPRB   , 0.024366_JPRB  /)
+ZEBCUD2 = (/ 0.0_JPRB         , 2.487E-04_JPRB /)
+ZEBCUE2 = (/ 0.7661_JPRB    , 0.7866_JPRB    /)
+ZEBCUF2 = (/ 5.851E-04_JPRB , 5.937E-04_JPRB /)
+
+!  optical properties
+!      ZEBCUA2 = (/ 3.448E-04 , 3.448E-04 /)
+!      ZEBCUB2 = (/ 2.431     , 2.431     /)
+!      ZEBCUC2 = (/ 0.00001   , 0.035589  /)
+!      ZEBCUD2 = (/ 0.        , 2.757E-04 /)
+!      ZEBCUE2 = (/ 0.7661    , 0.7921    /)
+!      ZEBCUF2 = (/ 5.851E-04 , 5.893E-04 /)
+
+!* Water cloud properties - from Fouquart (1987)
+
+ZYFWCA2 = (/ 0.0_JPRB       , 0.0_JPRB       /)
+ZYFWCB2 = (/ 1.5_JPRB       , 1.5_JPRB       /)
+ZYFWCC2 = (/ 0.9999_JPRB    , 0.9988_JPRB    /)
+ZYFWCD2 = (/ 5.000E-04_JPRB , 2.500E-03_JPRB /)
+ZYFWCE2 = (/ 0.5_JPRB       , 0.05_JPRB      /)
+ZYFWCF2 = (/ 0.865_JPRB     , 0.910_JPRB     /)
+
+!* Water cloud properties - from Slingo (1989)
+
+ZASWCA2 = (/ 2.817_JPRB     , 2.455_JPRB    /)
+ZASWCB2 = (/ 1.305_JPRB     , 1.400_JPRB    /)
+ZASWCC2 = (/-5.62E-08_JPRB  , 1.28E-02_JPRB /)
+ZASWCD2 = (/ 1.63E-07_JPRB  , 8.97E-04_JPRB /)
+ZASWCE2 = (/ 0.829_JPRB     , 0.783_JPRB    /)
+ZASWCF2 = (/ 2.482_JPRB     , 4.988_JPRB    /)
+
+!* Ice cloud properties - from Sun and Shine (1995)
+
+ZSUSHE2 = (/ 0.0_JPRB       , 8.6822_JPRB    /)
+ZSUSHF2 = (/ 0.0_JPRB       , 9.6277_JPRB    /)
+ZSUSHH2 = (/ 0.8522_JPRB    , 0.8819_JPRB    /)
+ZSUSHK2 = (/ 0.1620_JPRB    , 0.1630_JPRB    /)
+ZSUSHA2 = (/ 0.0_JPRB       , 23.204_JPRB    /)
+ZSUSHG2 = (/ 0.3270_JPRB    , 0.4180_JPRB    /)
+
+!* Ice cloud properties - from Fu and Liou (1993)
+
+ZFLAA02 = (/-6.656E-3_JPRB  ,-6.656E-3_JPRB  /)
+ZFLAA12 = (/ 3.686_JPRB     , 3.686_JPRB     /)
+ZFLBB02 = (/ .10998E-5_JPRB , .21136E-1_JPRB /)
+ZFLBB12 = (/-.26101E-7_JPRB , .39150E-3_JPRB /)
+ZFLBB22 = (/ .18096E-8_JPRB ,-.20740E-6_JPRB /)
+ZFLBB32 = (/-.47387E-11_JPRB,-.28829E-8_JPRB /)
+ZFLCC02 = (/ .22110E+1_JPRB , .22498E+1_JPRB /)
+ZFLCC12 = (/-.10398E-2_JPRB , .23656E-3_JPRB /)
+ZFLCC22 = (/ .65199E-4_JPRB , .51948E-4_JPRB /) 
+ZFLCC32 = (/-.34498E-6_JPRB ,-.29768E-6_JPRB /)
+ZFLDD02 = (/ .12495_JPRB    , .11716_JPRB    /)
+ZFLDD12 = (/-.43582E-3_JPRB ,-.45208E-3_JPRB /)
+ZFLDD22 = (/ .14092E-4_JPRB , .12772E-4_JPRB /)
+ZFLDD32 = (/-.69565E-7_JPRB ,-.62779E-7_JPRB /) 
+
+!* Ice cloud properties - from Fu (1996)
+
+!ZFUAA02 = (/-.291721E-04_JPRB ,
+!ZFUAA12 = (/ .251925E+01_JPRB ,
+!ZFUBB02 = (/ .135403E-06_JPRB ,
+!ZFUBB12 = (/ .992822E-07_JPRB ,
+!ZFUBB22 = (/-.738432E-10_JPRB ,
+!ZFUBB32 = (/ .331119E-12_JPRB ,
+!ZFUCC02 = (/ .748127E+00_JPRB ,
+!ZFUCC12 = (/ .956845E-03_JPRB ,
+!ZFUCC22 = (/-.111517E-05_JPRB ,
+!ZFUCC32 = (/-.815573E-08_JPRB ,
+!ZFUDD02 = (/ .115730E+00_JPRB ,
+!ZFUDD12 = (/ .256481E-03_JPRB ,
+!ZFUDD22 = (/ .191313E-05_JPRB ,
+!ZFUDD32 = (/-.124603E-07_JPRB ,
+!     ------------------------------------------------------------------
+
+!*          1.2    FOUR SPECTRAL INTERVALS
+!                  -----------------------
+
+! SW : 4 spectral intervals (0.25 - 0.69 - 1.19 - 2.38 - 4.00)
+
+!* Ice cloud properties - crystal: adapted from Ebert and Curry, 1992
+
+!      ZEBCUA4 = (/ 3.448E-03 , 3.448E-03 , 3.448E-03 , 3.448E-03 /)
+!      ZEBCUB4 = (/ 2.431     , 2.431     , 2.431     , 2.431     /)
+!      ZEBCUC4 = (/ 0.00001   , 0.00011   , 0.01861   , 0.46658   /)
+!      ZEBCUD4 = (/ 0.        , 1.405E-05 , 8.328E-4  , 2.050E-05 /)
+!      ZEBCUE4 = (/ 0.7661    , 0.7730    , 0.7940    , 0.9595    /)
+!      ZEBCUF4 = (/ 5.851E-04 , 5.665E-04 , 7.267E-04 , 1.076E-04 /)
+
+ZEBCUA4 = (/ 3.448E-03_JPRB , 3.448E-03_JPRB , 3.448E-03_JPRB , 3.448E-03_JPRB /)
+ZEBCUB4 = (/ 2.431_JPRB     , 2.431_JPRB     , 2.431_JPRB     , 2.431_JPRB     /)
+ZEBCUC4 = (/ 0.00001_JPRB   , 0.00011_JPRB   , 0.0197796_JPRB , 0.46658_JPRB   /)
+ZEBCUD4 = (/ 0.0_JPRB       , 1.405E-05_JPRB , 7.95513E-4_JPRB, 2.050E-05_JPRB /)
+ZEBCUE4 = (/ 0.7661_JPRB    , 0.7730_JPRB    , 0.795653_JPRB  , 0.9595_JPRB    /)
+ZEBCUF4 = (/ 5.851E-04_JPRB , 5.665E-04_JPRB , 7.267E-04_JPRB , 1.076E-04_JPRB /)
+
+!* Water cloud properties - from Fouquart (1987)
+
+ZYFWCA4 = (/ 0.0_JPRB       , 0.0_JPRB       , 0.0_JPRB      , 0.0_JPRB        /)
+ZYFWCB4 = (/ 1.5_JPRB       , 1.5_JPRB       , 1.5_JPRB      , 1.5_JPRB        /)
+ZYFWCC4 = (/ 0.9999_JPRB    , 0.9988_JPRB    , 0.9988_JPRB   , 0.9988_JPRB     /)
+ZYFWCD4 = (/ 5.000E-04_JPRB , 2.500E-03_JPRB , 2.500E-03_JPRB, 2.500E-03_JPRB  /)
+ZYFWCE4 = (/ 0.5_JPRB       , 0.05_JPRB      , 0.05_JPRB     , 0.05_JPRB       /)
+ZYFWCF4 = (/ 0.865_JPRB     , 0.910_JPRB     , 0.910_JPRB    , 0.910_JPRB      /)
+
+!* Water cloud properties - from Slingo (1989)
+
+ZASWCA4 = (/ 2.817_JPRB     , 2.682_JPRB     , 2.264_JPRB    , 1.281_JPRB      /)
+ZASWCB4 = (/ 1.305_JPRB     , 1.346_JPRB     , 1.454_JPRB    , 1.641_JPRB      /)
+ZASWCC4 = (/-5.62E-08_JPRB  ,-6.94E-06_JPRB  , 4.64E-04_JPRB , 2.01E-01_JPRB   /)
+ZASWCD4 = (/ 1.63E-07_JPRB  , 2.35E-05_JPRB  , 1.24E-03_JPRB , 7.56E-03_JPRB   /)
+ZASWCE4 = (/ 0.829_JPRB     , 0.794_JPRB     , 0.754_JPRB    , 0.826_JPRB      /)
+ZASWCF4 = (/ 2.482_JPRB     , 4.226_JPRB     , 6.560_JPRB    , 4.353_JPRB      /)
+
+!* Ice cloud properties - from Sun and Shine (1995)
+
+ZSUSHE4 = (/ 0.0_JPRB     , 7.2471E-02_JPRB , 17.5933_JPRB  , 48.7166_JPRB  /)
+ZSUSHF4 = (/ 0.0_JPRB     , 4.01511_JPRB    , 21.1249_JPRB  , 1.20890_JPRB  /)
+ZSUSHH4 = (/ 0.8522_JPRB  , 0.85841_JPRB    , 0.90778_JPRB  ,0.982046_JPRB  /)
+ZSUSHK4 = (/ 0.1620_JPRB  , 0.160048_JPRB   , 0.188521_JPRB ,0.0411446_JPRB /)
+ZSUSHA4 = (/ 0.0_JPRB     , 0.273455_JPRB   , 41.7675_JPRB  , 161.104_JPRB  /)
+ZSUSHG4 = (/ 0.3270_JPRB  , 0.343668_JPRB   , 0.526192_JPRB , 0.574040_JPRB /)
+
+!* Ice cloud properties - from Fu and Liou (1993)
+
+ZFLAA04 = (/-6.656E-03_JPRB ,-6.656E-03_JPRB,-6.656E-03_JPRB,-6.656E-03_JPRB /)
+ZFLAA14 = (/ 3.686_JPRB     , 3.686_JPRB    , 3.686_JPRB    , 3.686_JPRB     /)
+ZFLBB04 = (/ .10998E-5_JPRB , .20208E-4_JPRB, .51557E-3_JPRB, .39517E+0_JPRB /)
+ZFLBB14 = (/-.26101E-7_JPRB , .96483E-5_JPRB, .10731E-2_JPRB, .15787E-2_JPRB /)
+ZFLBB24 = (/ .18096E-8_JPRB , .83009E-7_JPRB, .17753E-5_JPRB,-.14337E-4_JPRB /)
+ZFLBB34 = (/-.47387E-11_JPRB,-.32217E-9_JPRB,-.18379E-7_JPRB, .46942E-7_JPRB /)
+ZFLCC04 = (/ .22110E+1_JPRB , .22151E+1_JPRB, .22534E+1_JPRB, .26653E+1_JPRB /)
+ZFLCC14 = (/-.10398E-2_JPRB ,-.77982E-3_JPRB, .16163E-2_JPRB, .56935E-2_JPRB /)
+ZFLCC24 = (/ .65199E-4_JPRB , .63750E-4_JPRB, .44037E-4_JPRB,-.54316E-4_JPRB /)
+ZFLCC34 = (/-.34498E-6_JPRB ,-.34466E-6_JPRB,-.27627E-6_JPRB, .17858E-6_JPRB /)
+ZFLDD04 = (/ .12495_JPRB    , .12363_JPRB   , .11983_JPRB   , .21834E-1_JPRB /)
+ZFLDD14 = (/-.43582E-3_JPRB ,-.44419E-3_JPRB,-.50108E-3_JPRB,-.29204E-3_JPRB /)
+ZFLDD24 = (/ .14092E-4_JPRB , .14038E-4_JPRB, .11843E-4_JPRB, .18060E-5_JPRB /)
+ZFLDD34 = (/-.69565E-7_JPRB ,-.68851E-7_JPRB,-.59367E-7_JPRB,-.46257E-8_JPRB /)
+
+!* Ice cloud properties - from Fu (1996) as tabulated in Sun & Rikus (1999)
+
+ZFUAA04 = (/-1.30817E-04_JPRB,-6.39479E-05_JPRB,-6.74730E-06_JPRB, 1.62674E-04_JPRB /)
+ZFUAA14 = (/ 2.52883E+00_JPRB, 2.52393E+00_JPRB, 2.52056E+00_JPRB, 2.49823E+00_JPRB /)
+ZFUBB04 = (/-1.55357E-08_JPRB,-7.90657E-07_JPRB, 9.64842E-04_JPRB, 2.25112E-01_JPRB /)
+ZFUBB14 = (/ 1.95793E-07_JPRB, 7.79991E-06_JPRB, 9.09809E-04_JPRB, 3.05017E-03_JPRB /)
+ZFUBB24 = (/-2.31234E-10_JPRB, 2.90894E-10_JPRB,-3.57557E-06_JPRB,-2.54236E-05_JPRB /)
+ZFUBB34 = (/ 1.12247E-12_JPRB,-2.02818E-12_JPRB, 1.00197E-08_JPRB, 8.49116E-08_JPRB /)
+ZFUCC04 = (/ 7.39781E-01_JPRB, 7.52335E-01_JPRB, 7.56307E-01_JPRB, 8.30812E-01_JPRB /)
+ZFUCC14 = (/ 9.10564E-04_JPRB, 1.06211E-03_JPRB, 1.73364E-03_JPRB, 2.62788E-03_JPRB /)
+ZFUCC24 = (/-4.62479E-07_JPRB,-2.45770E-06_JPRB,-8.92191E-06_JPRB,-2.43196E-05_JPRB /)
+ZFUCC34 = (/-1.05910E-08_JPRB,-3.03712E-09_JPRB, 1.97757E-08_JPRB, 8.23543E-08_JPRB /)
+
+!     ------------------------------------------------------------------
+
+!*          1.3    SIX SPECTRAL INTERVALS
+!                  ----------------------
+
+! SW : 6 spectral intervals (0.185-0.25-0.44-0.69-1.19-2.38-4.00)
+
+!* Ice cloud properties - crystal: adapted from Ebert and Curry, 1992
+
+ZEBCUA6 = (/ 3.448E-03_JPRB , 3.448E-03_JPRB , 3.448E-03_JPRB , 3.448E-03_JPRB , 3.448E-03_JPRB , 3.448E-03_JPRB /)
+ZEBCUB6 = (/ 2.431_JPRB     , 2.431_JPRB     , 2.431_JPRB     , 2.431_JPRB     , 2.431_JPRB     , 2.431_JPRB     /)
+ZEBCUC6 = (/ 0.00001_JPRB   , 0.00001_JPRB   , 0.00001_JPRB   , 0.00011_JPRB   , 0.0197796_JPRB , 0.46658_JPRB   /)
+ZEBCUD6 = (/ 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 1.405E-05_JPRB , 7.95513E-4_JPRB, 2.050E-05_JPRB /)
+ZEBCUE6 = (/ 0.7661_JPRB    , 0.7661_JPRB    , 0.7661_JPRB    , 0.7730_JPRB    , 0.795653_JPRB  , 0.9595_JPRB    /)
+ZEBCUF6 = (/ 5.851E-04_JPRB , 5.851E-04_JPRB , 5.851E-04_JPRB , 5.665E-04_JPRB , 7.267E-04_JPRB , 1.076E-04_JPRB /)
+
+!* Water cloud properties - from Fouquart (1987)
+
+ZYFWCA6 = (/ 0.0_JPRB       , 0.0_JPRB       , 0.0_JPRB       , 0.0_JPRB       , 0.0_JPRB      , 0.0_JPRB        /)
+ZYFWCB6 = (/ 1.5_JPRB       , 1.5_JPRB       , 1.5_JPRB       , 1.5_JPRB       , 1.5_JPRB      , 1.5_JPRB        /)
+ZYFWCC6 = (/ 0.9999_JPRB    , 0.9999_JPRB    , 0.9999_JPRB    , 0.9988_JPRB    , 0.9988_JPRB   , 0.9988_JPRB     /)
+ZYFWCD6 = (/ 5.000E-04_JPRB , 5.000E-04_JPRB , 5.000E-04_JPRB , 2.500E-03_JPRB , 2.500E-03_JPRB, 2.500E-03_JPRB  /)
+ZYFWCE6 = (/ 0.5_JPRB       , 0.5_JPRB       , 0.5_JPRB       , 0.05_JPRB      , 0.05_JPRB     , 0.05_JPRB       /)
+ZYFWCF6 = (/ 0.865_JPRB     , 0.865_JPRB     , 0.865_JPRB     , 0.910_JPRB     , 0.910_JPRB    , 0.910_JPRB      /)
+
+!* Water cloud properties - from Slingo (1989)
+
+ZASWCA6 = (/ 3.094_JPRB     , 2.881_JPRB     , 2.790_JPRB     , 2.682_JPRB     , 2.254_JPRB    , 1.281_JPRB      /)
+ZASWCB6 = (/ 1.252_JPRB     , 1.284_JPRB     , 1.313_JPRB     , 1.346_JPRB     , 1.456_JPRB    , 1.641_JPRB      /)
+ZASWCC6 = (/ 7.90E-07_JPRB  , 1.77E-07_JPRB  ,-1.55E-07_JPRB  ,-6.94E-06_JPRB  , 4.75E-04_JPRB , 2.01E-01_JPRB   /)
+ZASWCD6 = (/ 3.69E-07_JPRB  , 1.23E-07_JPRB  , 1.80E-07_JPRB  , 2.35E-05_JPRB  , 1.26E-03_JPRB , 7.56E-03_JPRB   /)
+ZASWCE6 = (/ 0.844_JPRB     , 0.839_JPRB     , 0.824_JPRB     , 0.794_JPRB     , 0.754_JPRB    , 0.826_JPRB      /)
+ZASWCF6 = (/ 1.558_JPRB     , 1.914_JPRB     , 2.723_JPRB     , 4.226_JPRB     , 6.561_JPRB    , 4.353_JPRB      /)
+
+!* Ice cloud properties - from Sun and Shine (1995)
+
+ZSUSHE6 = (/ 0.0_JPRB     , 0.0_JPRB     , 0.0_JPRB     , 7.2471E-02_JPRB , 17.5933_JPRB  , 48.7166_JPRB  /)
+ZSUSHF6 = (/ 0.0_JPRB     , 0.0_JPRB     , 0.0_JPRB     , 4.01511_JPRB    , 21.1249_JPRB  , 1.20890_JPRB  /)
+ZSUSHH6 = (/ 0.8522_JPRB  , 0.8522_JPRB  , 0.8522_JPRB  , 0.85841_JPRB    , 0.90778_JPRB  ,0.982046_JPRB  /)
+ZSUSHK6 = (/ 0.1620_JPRB  , 0.1620_JPRB  , 0.1620_JPRB  , 0.160048_JPRB   , 0.188521_JPRB ,0.0411446_JPRB /)
+ZSUSHA6 = (/ 0.0_JPRB     , 0.0_JPRB     , 0.0_JPRB     , 0.273455_JPRB   , 41.7675_JPRB  , 161.104_JPRB  /)
+ZSUSHG6 = (/ 0.3270_JPRB  , 0.3270_JPRB  , 0.3270_JPRB  , 0.343668_JPRB   , 0.526192_JPRB , 0.574040_JPRB /)
+
+!* Ice cloud properties - from Fu and Liou (1993)
+
+ZFLAA06 = (/-6.656E-03_JPRB ,-6.656E-03_JPRB ,-6.656E-03_JPRB ,-6.656E-03_JPRB,-6.656E-03_JPRB,-6.656E-03_JPRB /)
+ZFLAA16 = (/ 3.686_JPRB     , 3.686_JPRB     , 3.686_JPRB     , 3.686_JPRB    , 3.686_JPRB    , 3.686_JPRB     /)
+ZFLBB06 = (/ .10998E-5_JPRB , .10998E-5_JPRB , .10998E-5_JPRB , .20208E-4_JPRB, .51557E-3_JPRB, .39517E+0_JPRB /)
+ZFLBB16 = (/-.26101E-7_JPRB ,-.26101E-7_JPRB ,-.26101E-7_JPRB , .96483E-5_JPRB, .10731E-2_JPRB, .15787E-2_JPRB /)
+ZFLBB26 = (/ .18096E-8_JPRB , .18096E-8_JPRB , .18096E-8_JPRB , .83009E-7_JPRB, .17753E-5_JPRB,-.14337E-4_JPRB /)
+ZFLBB36 = (/-.47387E-11_JPRB,-.47387E-11_JPRB,-.47387E-11_JPRB,-.32217E-9_JPRB,-.18379E-7_JPRB, .46942E-7_JPRB /)
+ZFLCC06 = (/ .22110E+1_JPRB , .22110E+1_JPRB , .22110E+1_JPRB , .22151E+1_JPRB, .22534E+1_JPRB, .26653E+1_JPRB /)
+ZFLCC16 = (/-.10398E-2_JPRB ,-.10398E-2_JPRB ,-.10398E-2_JPRB ,-.77982E-3_JPRB, .16163E-2_JPRB, .56935E-2_JPRB /)
+ZFLCC26 = (/ .65199E-4_JPRB , .65199E-4_JPRB , .65199E-4_JPRB , .63750E-4_JPRB, .44037E-4_JPRB,-.54316E-4_JPRB /)
+ZFLCC36 = (/-.34498E-6_JPRB ,-.34498E-6_JPRB ,-.34498E-6_JPRB ,-.34466E-6_JPRB,-.27627E-6_JPRB, .17858E-6_JPRB /)
+ZFLDD06 = (/ .12495_JPRB    , .12495_JPRB    , .12495_JPRB    , .12363_JPRB   , .11983_JPRB   , .21834E-1_JPRB /)
+ZFLDD16 = (/-.43582E-3_JPRB ,-.43582E-3_JPRB ,-.43582E-3_JPRB ,-.44419E-3_JPRB,-.50108E-3_JPRB,-.29204E-3_JPRB /)
+ZFLDD26 = (/ .14092E-4_JPRB , .14092E-4_JPRB , .14092E-4_JPRB , .14038E-4_JPRB, .11843E-4_JPRB, .18060E-5_JPRB /)
+ZFLDD36 = (/-.69565E-7_JPRB ,-.69565E-7_JPRB ,-.69565E-7_JPRB ,-.68851E-7_JPRB,-.59367E-7_JPRB,-.46257E-8_JPRB /)
+
+!* Ice cloud properties - from Fu (1996) as tabulated in Sun & Rikus (1999)
+
+ZFUAA06 = (/-1.30817E-04_JPRB,-1.30817E-04_JPRB,-1.30817E-04_JPRB,-6.39479E-05_JPRB,-6.74730E-06_JPRB, 1.62674E-04_JPRB /)
+ZFUAA16 = (/ 2.52883E+00_JPRB, 2.52883E+00_JPRB, 2.52883E+00_JPRB, 2.52393E+00_JPRB, 2.52056E+00_JPRB, 2.49823E+00_JPRB /)
+ZFUBB06 = (/-1.55357E-08_JPRB,-1.55357E-08_JPRB,-1.55357E-08_JPRB,-7.90657E-07_JPRB, 9.64842E-04_JPRB, 2.25112E-01_JPRB /)
+ZFUBB16 = (/ 1.95793E-07_JPRB, 1.95793E-07_JPRB, 1.95793E-07_JPRB, 7.79991E-06_JPRB, 9.09809E-04_JPRB, 3.05017E-03_JPRB /)
+ZFUBB26 = (/-2.31234E-10_JPRB,-2.31234E-10_JPRB,-2.31234E-10_JPRB, 2.90894E-10_JPRB,-3.57557E-06_JPRB,-2.54236E-05_JPRB /)
+ZFUBB36 = (/ 1.12247E-12_JPRB, 1.12247E-12_JPRB, 1.12247E-12_JPRB,-2.02818E-12_JPRB, 1.00197E-08_JPRB, 8.49116E-08_JPRB /)
+ZFUCC06 = (/ 7.39781E-01_JPRB, 7.39781E-01_JPRB, 7.39781E-01_JPRB, 7.52335E-01_JPRB, 7.56307E-01_JPRB, 8.30812E-01_JPRB /)
+ZFUCC16 = (/ 9.10564E-04_JPRB, 9.10564E-04_JPRB, 9.10564E-04_JPRB, 1.06211E-03_JPRB, 1.73364E-03_JPRB, 2.62788E-03_JPRB /)
+ZFUCC26 = (/-4.62479E-07_JPRB,-4.62479E-07_JPRB,-4.62479E-07_JPRB,-2.45770E-06_JPRB,-8.92191E-06_JPRB,-2.43196E-05_JPRB /)
+ZFUCC36 = (/-1.05910E-08_JPRB,-1.05910E-08_JPRB,-1.05910E-08_JPRB,-3.03712E-09_JPRB, 1.97757E-08_JPRB, 8.23543E-08_JPRB /)
+
+!     ------------------------------------------------------------------
+
+!*          1.4    FOURTEEN SPECTRAL INTERVALS FOR RRTM_SW
+!                  ---------------------------------------
+
+! SW : 14 spectral intervals 
+!  3.846 -  3.077
+!  3.077 -  2.500
+!  2.500 -  2.150
+!  2.150 -  1.942
+!  1.942 -  1.626
+!  1.626 -  1.299
+!  1.299 -  1.242
+!  1.242 -  0.7782
+!  0.7782-  0.6250
+!  0.6250-  0.4415
+!  0.4415-  0.3448
+!  0.3448-  0.2632
+!  0.2632-  0.2000
+! 12.195 -  3.846
+
+!* Ice cloud properties - crystal: remapped from Ebert and Curry, 1992
+
+ZEBCUA14 = (/ &
+ & 3.448E-03_JPRB , 3.448E-03_JPRB , 3.448E-03_JPRB , 3.448E-03_JPRB , 3.448E-03_JPRB , 3.448E-03_JPRB &
+ & , 3.448E-03_JPRB , 3.448E-03_JPRB , 3.448E-03_JPRB , 3.448E-03_JPRB , 3.448E-03_JPRB , 3.448E-03_JPRB &
+ & , 3.448E-03_JPRB , 3.448E-03_JPRB /)  
+
+ZEBCUB14 = (/ &
+ & 2.431_JPRB     , 2.431_JPRB     , 2.431_JPRB     , 2.431_JPRB     , 2.431_JPRB     , 2.431_JPRB     &
+ & , 2.431_JPRB     , 2.431_JPRB     , 2.431_JPRB     , 2.431_JPRB     , 2.431_JPRB     , 2.431_JPRB     &
+ & , 2.431_JPRB     , 2.431_JPRB     /)  
+
+ZEBCUC14 = (/ &
+ & 0.46658_JPRB   , 0.46658_JPRB   , 0.03779_JPRB   , 0.03779_JPRB   , 0.01240_JPRB   , 0.01240_JPRB   &
+ & , 0.00011_JPRB   , 0.00011_JPRB   , 0.00001_JPRB   , 0.00001_JPRB   , 0.00001_JPRB   , 0.00001_JPRB   &
+ & , 0.00001_JPRB   , 0.46658_JPRB   /)  
+
+ZEBCUD14 = (/ &
+ & 2.050E-05_JPRB , 2.050E-05_JPRB , 1.284E-03_JPRB , 1.284E-03_JPRB , 6.867E-04_JPRB , 6.867E-04_JPRB &
+ & , 1.405E-05_JPRB , 1.405E-05_JPRB , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB          &
+ & , 0.0_JPRB         , 2.050E-05_JPRB /)  
+
+ZEBCUE14 = (/ &
+ & 0.9595_JPRB    , 0.9595_JPRB    , 0.8172_JPRB    , 0.8172_JPRB    , 0.7865_JPRB    , 0.7865_JPRB    &
+ & , 0.7730_JPRB    , 0.7730_JPRB    , 0.7661_JPRB    , 0.7661_JPRB    , 0.7661_JPRB    , 0.7661_JPRB    &
+ & , 0.7661_JPRB    , 0.9595_JPRB    /)  
+
+ZEBCUF14 = (/ &
+ & 1.076E-04_JPRB , 1.076E-04_JPRB , 7.463E-04_JPRB , 7.463E-04_JPRB , 7.204E-04_JPRB , 7.204E-04_JPRB &
+ & , 5.665E-04_JPRB , 5.665E-04_JPRB , 5.851E-04_JPRB , 5.851E-04_JPRB , 5.851E-04_JPRB , 5.851E-04_JPRB &
+ & , 5.851E-04_JPRB , 1.076E-04_JPRB /)  
+
+!* Water cloud properties - from Fouquart (1987)
+
+ZYFWCA14 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ 
+ZYFWCB14 = (/ &
+ & 1.5_JPRB       , 1.5_JPRB       , 1.5_JPRB       , 1.5_JPRB       , 1.5_JPRB      , 1.5_JPRB        &
+ & , 1.5_JPRB       , 1.5_JPRB       , 1.5_JPRB       , 1.5_JPRB       , 1.5_JPRB      , 1.5_JPRB        &
+ & , 1.5_JPRB       , 1.5_JPRB       /)  
+ 
+ZYFWCC14 = (/ &
+ & 0.9988_JPRB    , 0.9988_JPRB    , 0.9988_JPRB    , 0.9988_JPRB    , 0.9988_JPRB    , 0.9988_JPRB    &
+ & , 0.9988_JPRB    , 0.9988_JPRB    , 0.9999_JPRB    , 0.9999_JPRB    , 0.9999_JPRB    , 0.9999_JPRB    &
+ & , 0.9999_JPRB    , 0.9988_JPRB    /)  
+
+ZYFWCD14 = (/ &
+ & 2.500E-03_JPRB , 2.500E-03_JPRB , 2.500E-03_JPRB , 2.500E-03_JPRB , 2.500E-03_JPRB , 2.500E-03_JPRB &
+ & , 2.500E-03_JPRB , 2.500E-03_JPRB , 5.000E-04_JPRB , 5.000E-04_JPRB , 5.000E-04_JPRB , 5.000E-04_JPRB &
+ & , 5.000E-04_JPRB , 2.500E-03_JPRB /)  
+
+ZYFWCE14 = (/ &
+ & 0.05_JPRB      , 0.05_JPRB      , 0.05_JPRB      , 0.05_JPRB      , 0.05_JPRB      , 0.05_JPRB      &
+ & , 0.05_JPRB      , 0.05_JPRB      , 0.5_JPRB         , 0.5_JPRB         , 0.5_JPRB         , 0.5_JPRB               &
+ & , 0.5_JPRB         , 0.05_JPRB      /)  
+
+ZYFWCF14 = (/ &
+ & 0.910_JPRB     , 0.910_JPRB     , 0.910_JPRB     , 0.910_JPRB     , 0.910_JPRB     , 0.910_JPRB     &
+ & , 0.910_JPRB     , 0.910_JPRB     , 0.865_JPRB     , 0.865_JPRB     , 0.865_JPRB     , 0.865_JPRB      &
+ & , 0.865_JPRB     , 0.910_JPRB     /)  
+
+!* Water cloud properties - from Slingo (1989)
+
+ZASWCA14 = (/ &
+ & -1.023_JPRB     , 1.950_JPRB     , 1.850_JPRB     , 1.970_JPRB     , 1.970_JPRB     , 2.463_JPRB     &
+ & , 2.551_JPRB     , 2.622_JPRB     , 2.895_JPRB     , 2.672_JPRB     , 2.801_JPRB    , 2.944_JPRB     &
+ & , 3.094_JPRB     ,-1.023_JPRB     /)  
+
+ZASWCB14 = (/ &
+ & 1.933_JPRB     , 1.540_JPRB     , 1.556_JPRB     , 1.501_JPRB     , 1.501_JPRB     , 1.420_JPRB     &
+ & , 1.401_JPRB     , 1.362_JPRB     , 1.315_JPRB     , 1.320_JPRB     , 1.293_JPRB     , 1.270_JPRB     &
+ & , 1.252_JPRB     , 1.933_JPRB     /)  
+   
+ZASWCC14 = (/ &
+ & 2.50E-02_JPRB  , 4.49E-01_JPRB  , 1.90E-04_JPRB  , 1.20E-03_JPRB  , 1.20E-03_JPRB  , 2.40E-04_JPRB  &
+ & , 6.20E-05_JPRB  , 3.30E-06_JPRB  ,-1.20E-07_JPRB  , 0.0_JPRB         , 1.00E-06_JPRB  ,-6.50E-07_JPRB  &
+ & , 7.90E-07_JPRB  , 2.50E-02_JPRB  /)  
+    
+ZASWCD14 = (/ &
+ & 1.22E-02_JPRB  , 1.54E-03_JPRB  , 2.54E-03_JPRB  , 2.16E-03_JPRB  , 2.16E-03_JPRB  , 8.56E-04_JPRB  &
+ & , 2.60E-04_JPRB  , 2.80E-06_JPRB  , 4.40E-07_JPRB  , 0.0_JPRB         , 0.0_JPRB         , 4.33E-07_JPRB  &
+ & , 3.69E-07_JPRB  , 1.22E-02_JPRB  /)  
+
+ZASWCE14 = (/ &
+ & 0.726_JPRB     , 0.831_JPRB     , 0.769_JPRB     , 0.740_JPRB     , 0.740_JPRB     , 0.754_JPRB     &
+ & , 0.773_JPRB     , 0.806_JPRB     , 0.818_JPRB     , 0.828_JPRB     , 0.836_JPRB     , 0.841_JPRB     &
+ & , 0.844_JPRB     , 0.726_JPRB     /)  
+
+ZASWCF14 = (/ &
+ & 6.652_JPRB     , 6.102_JPRB     , 5.171_JPRB     , 7.469_JPRB     , 7.469_JPRB     , 6.555_JPRB     &
+ & , 5.405_JPRB     , 3.355_JPRB     , 2.989_JPRB     , 2.467_JPRB     , 2.153_JPRB     , 1.680_JPRB     &
+ & , 1.558_JPRB     , 6.652_JPRB     /)  
+
+!* Ice cloud properties - from Sun and Shine (1995)
+
+ZSUSHE14 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZSUSHF14 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZSUSHH14 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZSUSHK14 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZSUSHA14 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZSUSHG14 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+
+!* Ice cloud properties - from Fu and Liou (1993)
+
+ZFLAA014 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZFLAA114 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZFLBB014 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZFLBB114 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZFLBB214 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZFLBB314 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZFLCC014 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZFLCC114 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZFLCC214 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZFLCC314 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZFLDD014 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZFLDD114 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZFLDD214 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZFLDD314 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+
+!* Ice cloud properties - from Fu (1996) 
+
+ZFUAA014 = (/ &
+ & 1.87598E-04_JPRB, 2.97295E-04_JPRB, 4.89477E-04_JPRB,-8.37325E-06_JPRB,-8.37325E-06_JPRB,-8.05155E-04_JPRB  &
+ & , 6.51659E-05_JPRB, 8.10443E-05_JPRB, 1.61983E-04_JPRB,-9.45458E-05_JPRB,-2.58858E-04_JPRB,-2.66955E-04_JPRB &
+ & ,-2.36447E-04_JPRB,-2.54823E-04_JPRB /)  
+
+ZFUAA114 = (/ &
+ & 2.51396E+00_JPRB, 2.48895E+00_JPRB, 2.48776E+00_JPRB, 2.52504E+00_JPRB, 2.52504E+00_JPRB, 2.57600E+00_JPRB &
+ & , 2.51660E+00_JPRB, 2.51619E+00_JPRB, 2.50746E+00_JPRB, 2.52061E+00_JPRB, 2.53815E+00_JPRB, 2.54179E+00_JPRB &
+ & , 2.53817E+00_JPRB, 2.52909E+00_JPRB /)  
+
+ZFUBB014 = (/ &
+ & 1.96793E-01_JPRB, 4.64416E-01_JPRB, 5.83469E-04_JPRB, 2.53234E-03_JPRB, 2.53234E-03_JPRB,-2.85518E-05_JPRB &
+ & ,-1.48012E-07_JPRB,-1.57963E-07_JPRB,-7.78001E-08_JPRB, 5.08447E-07_JPRB,-1.98529E-07_JPRB,-1.00570E-07_JPRB &
+ & ,-2.69916E-07_JPRB, 2.60155E-01_JPRB /)   
+
+ZFUBB114 = (/ &
+ & 5.75235E-03_JPRB, 2.04716E-05_JPRB, 1.18127E-03_JPRB, 1.75078E-03_JPRB, 1.75078E-03_JPRB, 1.71993E-03_JPRB &
+ & , 9.02355E-05_JPRB, 1.72475E-06_JPRB, 2.53360E-07_JPRB, 2.73206E-08_JPRB, 9.39480E-08_JPRB, 1.60441E-07_JPRB &
+ & , 2.12909E-07_JPRB, 5.45547E-03_JPRB /)  
+
+ZFUBB214 = (/ &
+ & -5.29220E-05_JPRB,-4.60375E-07_JPRB,-3.40011E-06_JPRB,-8.00994E-06_JPRB,-8.00994E-06_JPRB,-7.43697E-06_JPRB &
+ & ,-1.98190E-08_JPRB, 9.02156E-11_JPRB,-1.15489E-10_JPRB, 4.96553E-11_JPRB,-2.54540E-10_JPRB,-2.05663E-10_JPRB &
+ & ,-2.65397E-10_JPRB,-5.58760E-05_JPRB /)  
+
+ZFUBB314 = (/ &
+ & 1.76618E-07_JPRB, 2.03198E-09_JPRB, 8.78549E-09_JPRB, 2.31309E-08_JPRB, 2.31309E-08_JPRB, 2.09647E-08_JPRB &
+ & , 4.01914E-11_JPRB,-3.79423E-13_JPRB, 4.65084E-13_JPRB,-1.86001E-13_JPRB, 1.10876E-12_JPRB, 8.88595E-13_JPRB &
+ & , 1.12983E-12_JPRB, 1.97086E-07_JPRB /)  
+
+ZFUCC014 = (/ &
+ & 0.759183_JPRB   , 0.919599_JPRB   , 0.775916_JPRB   , 0.758748_JPRB   , 0.758748_JPRB   , 0.752528_JPRB    &
+ & , 0.751277_JPRB   , 0.752318_JPRB   , 0.749693_JPRB   , 0.749856_JPRB   , 0.743546_JPRB   , 0.737809_JPRB    &
+ & , 0.733260_JPRB   , 0.799084_JPRB   /)  
+   
+ZFUCC114 = (/ &
+ & 4.93765E-03_JPRB, 5.03025E-04_JPRB, 1.74517E-03_JPRB, 2.02709E-03_JPRB, 2.02709E-03_JPRB, 1.95748E-03_JPRB &
+ & , 1.29824E-03_JPRB, 1.04224E-03_JPRB, 1.05446E-03_JPRB, 8.89161E-04_JPRB, 9.08674E-04_JPRB, 8.97515E-04_JPRB &
+ & , 9.18317E-04_JPRB, 4.81706E-03_JPRB /)  
+
+ZFUCC214 = (/ &
+ & -4.84059E-05_JPRB,-5.74771E-06_JPRB,-9.21314E-06_JPRB,-1.17029E-05_JPRB,-1.17029E-05_JPRB,-1.02495E-05_JPRB &
+ & ,-4.99075E-06_JPRB,-2.26618E-06_JPRB,-2.32576E-06_JPRB,-3.49578E-07_JPRB,-4.65326E-07_JPRB,-2.17099E-07_JPRB &
+ & ,-4.22974E-07_JPRB,-5.13220E-05_JPRB /)  
+
+ZFUCC314 = (/ &
+ & 1.65801E-07_JPRB, 2.01731E-08_JPRB, 2.15003E-08_JPRB, 2.95195E-08_JPRB, 2.95195E-08_JPRB, 2.35479E-08_JPRB &
+ & , 6.33757E-09_JPRB,-3.68283E-09_JPRB,-3.58307E-09_JPRB, 1.09913E-08_JPRB,-1.05786E-08_JPRB,-1.16090E-08_JPRB &
+ & ,-1.07976E-08_JPRB, 1.84420E-07_JPRB /)  
+
+!     ------------------------------------------------------------------
+
+! LW : absorption coefficient as a function of effective radius in RRTM
+
+! water clouds from Savijarvi
+
+RHSAVI( 1, :) = (/  0.1651082_JPRB  , -0.003494839_JPRB  , 0.0_JPRB            /)  
+RHSAVI( 2, :) = (/  0.327820597_JPRB, -0.0219634383_JPRB , 0.000506783898_JPRB /)   
+RHSAVI( 3, :) = (/  0.504805453_JPRB, -0.0478602354_JPRB , 0.00141521102_JPRB  /)  
+RHSAVI( 4, :) = (/  0.513169093_JPRB, -0.0508960145_JPRB , 0.00155498711_JPRB  /)  
+RHSAVI( 5, :) = (/  0.448042082_JPRB, -0.0431857592_JPRB , 0.00130848978_JPRB  /)  
+RHSAVI( 6, :) = (/  0.249547237_JPRB, -0.0185273835_JPRB , 0.00050361258_JPRB  /)  
+RHSAVI( 7, :) = (/  0.135486796_JPRB, -0.00585852322_JPRB, 0.00011873119_JPRB  /)  
+RHSAVI( 8, :) = (/  0.126668819_JPRB, -0.00497949082_JPRB, 0.0000927679172_JPRB/)  
+RHSAVI( 9, :) = (/  0.130938752_JPRB, -0.00531814674_JPRB, 0.0000984953029_JPRB/)  
+RHSAVI(10, :) = (/  0.147024519_JPRB, -0.00671655774_JPRB, 0.000130885091_JPRB /)  
+RHSAVI(11, :) = (/  0.241463914_JPRB, -0.0174486461_JPRB , 0.000457756556_JPRB /)  
+RHSAVI(12, :) = (/  0.07576579_JPRB , -0.001695588_JPRB  , 0.0_JPRB            /)  
+RHSAVI(13, :) = (/  0.1032178_JPRB  , -0.00293412_JPRB   , 0.0_JPRB            /)  
+RHSAVI(14, :) = (/  0.07342832_JPRB , -0.001775135_JPRB  , 0.0_JPRB            /)  
+RHSAVI(15, :) = (/  0.04649514_JPRB , -0.0009165462_JPRB , 0.0_JPRB            /)  
+RHSAVI(16, :) = (/  0.06893519_JPRB , -0.0001245402_JPRB , 0.0_JPRB            /)  
+    
+! water clouds from Lindner & Li (2000)
+
+RLILIA( 1, :) = (/ 0.88116E-01_JPRB,-0.12857E-02_JPRB, 0.81658E+00_JPRB,-0.39428E+01_JPRB, 0.46652E+01_JPRB /)        
+RLILIA( 2, :) = (/ 0.41307E-03_JPRB,-0.59631E-04_JPRB, 0.24275E+01_JPRB,-0.90838E+01_JPRB, 0.96069E+01_JPRB /)     
+RLILIA( 3, :) = (/-0.57709E-01_JPRB, 0.99071E-03_JPRB, 0.31118E+01_JPRB,-0.95540E+01_JPRB, 0.90189E+01_JPRB /)     
+RLILIA( 4, :) = (/-0.53069E-01_JPRB, 0.99992E-03_JPRB, 0.28045E+01_JPRB,-0.72836E+01_JPRB, 0.62573E+01_JPRB /)  
+RLILIA( 5, :) = (/-0.23627E-01_JPRB, 0.55291E-03_JPRB, 0.21785E+01_JPRB,-0.54664E+01_JPRB, 0.47379E+01_JPRB /)       
+RLILIA( 6, :) = (/ 0.29022E-01_JPRB,-0.39657E-03_JPRB, 0.14902E+01_JPRB,-0.50777E+01_JPRB, 0.52170E+01_JPRB /)  
+RLILIA( 7, :) = (/-0.24901E-01_JPRB, 0.16195E-03_JPRB, 0.29375E+02_JPRB,-0.11437E+02_JPRB, 0.12273E+02_JPRB /)  
+RLILIA( 8, :) = (/-0.14269E+00_JPRB, 0.22282E-02_JPRB, 0.46478E+01_JPRB,-0.16369E+02_JPRB, 0.16533E+02_JPRB /)  
+RLILIA( 9, :) = (/-0.20398E+00_JPRB, 0.34708E-02_JPRB, 0.52858E+01_JPRB,-0.16603E+02_JPRB, 0.15392E+02_JPRB /)        
+RLILIA(10, :) = (/-0.18318E+00_JPRB, 0.33080E-02_JPRB, 0.46120E+01_JPRB,-0.11550E+02_JPRB, 0.87086E+01_JPRB /)  
+RLILIA(11, :) = (/-0.20420E+00_JPRB, 0.37167E-02_JPRB, 0.48566E+01_JPRB,-0.11972E+02_JPRB, 0.86344E+01_JPRB /)        
+RLILIA(12, :) = (/-0.14037E+00_JPRB, 0.28058E-02_JPRB, 0.34969E+01_JPRB,-0.33770E+01_JPRB,-0.23541E+01_JPRB /)  
+RLILIA(13, :) = (/-0.14037E+00_JPRB, 0.28058E-02_JPRB, 0.34969E+01_JPRB,-0.33770E+01_JPRB,-0.23541E+01_JPRB /)  
+RLILIA(14, :) = (/-0.14037E+00_JPRB, 0.28058E-02_JPRB, 0.34969E+01_JPRB,-0.33770E+01_JPRB,-0.23541E+01_JPRB /)  
+RLILIA(15, :) = (/-0.14037E+00_JPRB, 0.28058E-02_JPRB, 0.34969E+01_JPRB,-0.33770E+01_JPRB,-0.23541E+01_JPRB /)  
+RLILIA(16, :) = (/-0.14037E+00_JPRB, 0.28058E-02_JPRB, 0.34969E+01_JPRB,-0.33770E+01_JPRB,-0.23541E+01_JPRB /)  
+
+RLILIB( 1, :) = (/ 0.76110E+00_JPRB, 0.57048E+00_JPRB,-0.16721E-01_JPRB, 0.27886E-03_JPRB /)
+RLILIB( 2, :) = (/ 0.51897E+00_JPRB, 0.86352E+00_JPRB,-0.29099E-02_JPRB, 0.63126E-04_JPRB /)
+RLILIB( 3, :) = (/ 0.50964E+00_JPRB, 0.76057E+00_JPRB,-0.15630E-02_JPRB, 0.26245E-04_JPRB /)
+RLILIB( 4, :) = (/ 0.55180E+00_JPRB, 0.65812E+00_JPRB,-0.41768E-02_JPRB, 0.64243E-04_JPRB /)
+RLILIB( 5, :) = (/ 0.60890E+00_JPRB, 0.59525E+00_JPRB,-0.74557E-02_JPRB, 0.11757E-03_JPRB /)
+RLILIB( 6, :) = (/ 0.49787E+00_JPRB, 0.74581E+00_JPRB,-0.37379E-02_JPRB, 0.90555E-04_JPRB /)
+RLILIB( 7, :) = (/ 0.46323E-01_JPRB, 0.10131E+01_JPRB, 0.18692E-01_JPRB,-0.21898E-03_JPRB /)
+RLILIB( 8, :) = (/-0.43354E-01_JPRB, 0.78454E+00_JPRB, 0.26449E-01_JPRB,-0.36385E-03_JPRB /) 
+RLILIB( 9, :) = (/-0.27033E-01_JPRB, 0.54717E+00_JPRB, 0.27903E-01_JPRB,-0.41074E-03_JPRB /)
+RLILIB(10, :) = (/ 0.11595E+00_JPRB, 0.30559E+00_JPRB, 0.22727E-01_JPRB,-0.36032E-03_JPRB /)
+RLILIB(11, :) = (/-0.14764E-01_JPRB, 0.28331E+00_JPRB, 0.23515E-01_JPRB,-0.33662E-03_JPRB /)
+RLILIB(12, :) = (/ 0.68056E-02_JPRB, 0.59837E-01_JPRB, 0.21125E-01_JPRB,-0.29740E-03_JPRB /)
+RLILIB(13, :) = (/ 0.68056E-02_JPRB, 0.59837E-01_JPRB, 0.21125E-01_JPRB,-0.29740E-03_JPRB /)
+RLILIB(14, :) = (/ 0.68056E-02_JPRB, 0.59837E-01_JPRB, 0.21125E-01_JPRB,-0.29740E-03_JPRB /)
+RLILIB(15, :) = (/ 0.68056E-02_JPRB, 0.59837E-01_JPRB, 0.21125E-01_JPRB,-0.29740E-03_JPRB /)
+RLILIB(16, :) = (/ 0.68056E-02_JPRB, 0.59837E-01_JPRB, 0.21125E-01_JPRB,-0.29740E-03_JPRB /)
+
+! ice clouds from Fu & Liou (1993)
+
+RFULIO( 1, :) = (/ -7.752E-03_JPRB, 4.624_JPRB, -42.01_JPRB /)  
+RFULIO( 2, :) = (/ -1.741E-02_JPRB, 5.541_JPRB, -58.42_JPRB /)  
+RFULIO( 3, :) = (/ -1.704E-02_JPRB, 4.830_JPRB,  16.27_JPRB /)  
+RFULIO( 4, :) = (/ -1.151E-02_JPRB, 4.182_JPRB,  31.13_JPRB /)  
+RFULIO( 5, :) = (/ -1.026E-02_JPRB, 4.105_JPRB,  16.36_JPRB /)  
+RFULIO( 6, :) = (/ -8.294E-03_JPRB, 3.925_JPRB,  1.315_JPRB /)  
+RFULIO( 7, :) = (/ -1.153E-02_JPRB, 4.109_JPRB,  17.32_JPRB /)  
+RFULIO( 8, :) = (/ -9.609E-03_JPRB, 3.768_JPRB,  34.11_JPRB /)  
+RFULIO( 9, :) = (/ -9.061E-03_JPRB, 3.741_JPRB,  26.48_JPRB /)  
+RFULIO(10, :) = (/ -8.441E-03_JPRB, 3.715_JPRB,  19.48_JPRB /)  
+RFULIO(11, :) = (/ -8.088E-03_JPRB, 3.717_JPRB,  17.17_JPRB /)  
+RFULIO(12, :) = (/ -8.088E-03_JPRB, 3.717_JPRB,  17.17_JPRB /)  
+RFULIO(13, :) = (/ -7.770E-03_JPRB, 3.734_JPRB,  11.85_JPRB /)  
+RFULIO(14, :) = (/ -6.656E-03_JPRB, 3.686_JPRB,  0.0_JPRB   /)  
+RFULIO(15, :) = (/ -6.656E-03_JPRB, 3.686_JPRB,  0.0_JPRB   /)  
+RFULIO(16, :) = (/ -6.656E-03_JPRB, 3.686_JPRB,  0.0_JPRB   /)  
+ 
+! ice clouds from Fu et al. (1998) 
+
+!-- extinction coefficient
+RFUETA( 1, :) = (/  4.919685E-03_JPRB, 2.327741E+00_JPRB,-1.390858E+01_JPRB /)  
+RFUETA( 2, :) = (/  3.325756E-03_JPRB, 2.601360E+00_JPRB,-1.909602E+01_JPRB /)  
+RFUETA( 3, :) = (/ -1.334860E-02_JPRB, 4.043808E+00_JPRB,-2.171029E+01_JPRB /)  
+RFUETA( 4, :) = (/ -9.524174E-03_JPRB, 3.587742E+00_JPRB,-1.068895E+01_JPRB /)  
+RFUETA( 5, :) = (/ -4.159424E-03_JPRB, 3.047325E+00_JPRB,-5.061568E+00_JPRB /)  
+RFUETA( 6, :) = (/ -1.691632E-03_JPRB, 2.765756E+00_JPRB,-8.331033E+00_JPRB /)  
+RFUETA( 7, :) = (/ -8.372696E-03_JPRB, 3.455018E+00_JPRB,-1.516692E+01_JPRB /)  
+RFUETA( 8, :) = (/ -8.178608E-03_JPRB, 3.401245E+00_JPRB,-8.812820E+00_JPRB /)  
+RFUETA( 9, :) = (/ -4.936610E-03_JPRB, 3.087764E+00_JPRB,-3.884262E+00_JPRB /)  
+RFUETA(10, :) = (/ -3.034573E-03_JPRB, 2.900043E+00_JPRB,-1.849911E+00_JPRB /)  
+RFUETA(11, :) = (/ -3.034573E-03_JPRB, 2.900043E+00_JPRB,-1.849911E+00_JPRB /)  
+RFUETA(12, :) = (/ -2.465236E-03_JPRB, 2.833187E+00_JPRB,-4.227573E-01_JPRB /)  
+RFUETA(13, :) = (/ -2.308881E-03_JPRB, 2.814002E+00_JPRB, 1.072211E+00_JPRB /)  
+RFUETA(14, :) = (/ -2.308881E-03_JPRB, 2.814002E+00_JPRB, 1.072211E+00_JPRB /)  
+RFUETA(15, :) = (/ -2.308881E-03_JPRB, 2.814002E+00_JPRB, 1.072211E+00_JPRB /)  
+RFUETA(16, :) = (/ -2.308881E-03_JPRB, 2.814002E+00_JPRB, 1.072211E+00_JPRB /)  
+
+!-- absorption coefficient
+RFUETB( 1, :) = (/  8.869787E-01_JPRB, 2.118409E-02_JPRB,-2.781429E-04_JPRB, 1.094562E-06_JPRB /)
+RFUETB( 2, :) = (/  2.005578E-01_JPRB, 2.132614E-02_JPRB,-1.751052E-04_JPRB, 5.355885E-07_JPRB /)
+RFUETB( 3, :) = (/  3.003701E-01_JPRB, 2.051529E-02_JPRB,-1.931684E-04_JPRB, 6.583031E-07_JPRB /)
+RFUETB( 4, :) = (/  9.551440E-01_JPRB, 1.309792E-02_JPRB,-1.793694E-04_JPRB, 7.313392E-07_JPRB /)
+RFUETB( 5, :) = (/  1.466481E+00_JPRB,-2.129226E-03_JPRB,-1.361630E-05_JPRB, 1.193649E-07_JPRB /)
+RFUETB( 6, :) = (/  1.195515E+00_JPRB, 3.350616E-03_JPRB,-5.266996E-05_JPRB, 2.233377E-07_JPRB /)
+RFUETB( 7, :) = (/  5.409536E-01_JPRB, 1.949649E-02_JPRB,-2.050908E-04_JPRB, 7.364680E-07_JPRB /)
+RFUETB( 8, :) = (/  5.874323E-01_JPRB, 1.876628E-02_JPRB,-2.045834E-04_JPRB, 7.510080E-07_JPRB /)
+RFUETB( 9, :) = (/  7.152274E-01_JPRB, 1.621734E-02_JPRB,-1.868544E-04_JPRB, 7.078738E-07_JPRB /)
+RFUETB(10, :) = (/  8.862434E-01_JPRB, 1.226538E-02_JPRB,-1.523076E-04_JPRB, 6.000892E-07_JPRB /)
+RFUETB(11, :) = (/  8.862434E-01_JPRB, 1.226538E-02_JPRB,-1.523076E-04_JPRB, 6.000892E-07_JPRB /)
+RFUETB(12, :) = (/  7.428957E-01_JPRB, 1.279601E-02_JPRB,-1.391803E-04_JPRB, 5.180104E-07_JPRB /)
+RFUETB(13, :) = (/  4.346482E-01_JPRB, 1.721457E-02_JPRB,-1.623227E-04_JPRB, 5.561523E-07_JPRB /)
+RFUETB(14, :) = (/  4.346482E-01_JPRB, 1.721457E-02_JPRB,-1.623227E-04_JPRB, 5.561523E-07_JPRB /)
+RFUETB(15, :) = (/  4.346482E-01_JPRB, 1.721457E-02_JPRB,-1.623227E-04_JPRB, 5.561523E-07_JPRB /)
+RFUETB(16, :) = (/  4.346482E-01_JPRB, 1.721457E-02_JPRB,-1.623227E-04_JPRB, 5.561523E-07_JPRB /)
+
+!-- asymmetry factor
+RFUETC( 1, :) = (/  4.949276E-01_JPRB, 1.186174E-02_JPRB,-1.267629E-04_JPRB, 4.603574E-07_JPRB /) 
+RFUETC( 2, :) = (/  6.891414E-01_JPRB, 6.192281E-03_JPRB,-6.459514E-05_JPRB, 2.436963E-07_JPRB /)
+RFUETC( 3, :) = (/  7.260484E-01_JPRB, 2.664334E-03_JPRB,-1.251136E-05_JPRB, 2.243377E-08_JPRB /)
+RFUETC( 4, :) = (/  7.363466E-01_JPRB, 4.798266E-03_JPRB,-4.413293E-05_JPRB, 1.525774E-07_JPRB /)
+RFUETC( 5, :) = (/  7.984021E-01_JPRB, 3.977117E-03_JPRB,-4.471984E-05_JPRB, 1.694919E-07_JPRB /)
+RFUETC( 6, :) = (/  8.663385E-01_JPRB, 2.797934E-03_JPRB,-3.187011E-05_JPRB, 1.217209E-07_JPRB /)
+RFUETC( 7, :) = (/  8.906280E-01_JPRB, 1.903269E-03_JPRB,-1.733552E-05_JPRB, 5.855071E-08_JPRB /) 
+RFUETC( 8, :) = (/  8.609604E-01_JPRB, 2.200445E-03_JPRB,-1.748105E-05_JPRB, 5.176616E-08_JPRB /)
+RFUETC( 9, :) = (/  8.522816E-01_JPRB, 2.523627E-03_JPRB,-2.149196E-05_JPRB, 6.685067E-08_JPRB /)
+RFUETC(10, :) = (/  8.741665E-01_JPRB, 2.455409E-03_JPRB,-2.456935E-05_JPRB, 8.641223E-08_JPRB /)
+RFUETC(11, :) = (/  8.741665E-01_JPRB, 2.455409E-03_JPRB,-2.456935E-05_JPRB, 8.641223E-08_JPRB /)
+RFUETC(12, :) = (/  8.472918E-01_JPRB, 2.559953E-03_JPRB,-2.182660E-05_JPRB, 6.879977E-08_JPRB /)
+RFUETC(13, :) = (/  7.962716E-01_JPRB, 3.003488E-03_JPRB,-2.082376E-05_JPRB, 5.366545E-08_JPRB /)
+
+!     ----------------------------------------------------------------
+! Ebert-Curry
+
+! LW : spectrally defined for EC-OPE
+
+REBCUI = (/  1.136_JPRB,  1.338_JPRB,  1.166_JPRB,  1.166_JPRB,  1.118_JPRB,  &
+ & 0.600_JPRB /)  
+REBCUJ = (/ 0.0036_JPRB, 0.0003_JPRB, 0.0016_JPRB, 0.0016_JPRB, 0.0020_JPRB,  &
+ & 0.0068_JPRB /)  
+
+! LW : spectrally defined for RRTM
+! mass-absorption coefficients for vertical path: no diffusivity factor
+
+REBCUG = (/ 0.718_JPRB, 0.726_JPRB, 1.136_JPRB, 1.320_JPRB, 1.505_JPRB, &
+ & 1.290_JPRB, 0.911_JPRB, 0.949_JPRB, 1.021_JPRB, 1.193_JPRB, &
+ & 1.279_JPRB, 0.626_JPRB, 0.647_JPRB, 0.668_JPRB, 0.690_JPRB, &
+ & 0.690_JPRB /)  
+
+REBCUH = (/ 0.0069_JPRB, 0.0060_JPRB, 0.0024_JPRB, 0.0004_JPRB,-0.0016_JPRB, &
+ & 0.0003_JPRB, 0.0043_JPRB, 0.0038_JPRB, 0.0030_JPRB, 0.0013_JPRB, &
+ & 0.0005_JPRB, 0.0054_JPRB, 0.0052_JPRB, 0.0050_JPRB, 0.0048_JPRB, &
+ & 0.0048_JPRB /)  
+
+! Sun-Shine
+
+RSUSHFA = (/ 1.047_JPRB, -0.913E-04_JPRB, 0.203E-03_JPRB, -0.106E-04_JPRB  /)
+
+!     ------------------------------------------------------------------
+
+!*         2. 
+
+!* Liquid/Solid water transition
+
+RTIW= 263._JPRB
+RRIW= 20._JPRB
+
+! Ice particle Effective Radius as a function of LWC
+
+REFFIA= 40._JPRB
+REFFIB= 0._JPRB
+
+! Sun-Shine
+
+RSUSHC= 0.0306_JPRB
+RSUSHD= 0.2548_JPRB
+
+!     ------------------------------------------------------------------
+
+! SW : absorption coefficients
+
+IF (KSW == 2) THEN
+  DO JNU=1,KSW
+    RASWCA(JNU)=ZASWCA2(JNU)*1.E-02_JPRB
+    RASWCB(JNU)=ZASWCB2(JNU)
+    RASWCC(JNU)=ZASWCC2(JNU)
+    RASWCD(JNU)=ZASWCD2(JNU)
+    RASWCE(JNU)=ZASWCE2(JNU)
+    RASWCF(JNU)=ZASWCF2(JNU)*1.E-03_JPRB
+
+    REBCUA(JNU)=ZEBCUA2(JNU)
+    REBCUB(JNU)=ZEBCUB2(JNU)
+    REBCUC(JNU)=ZEBCUC2(JNU)
+    REBCUD(JNU)=ZEBCUD2(JNU)
+    REBCUE(JNU)=ZEBCUE2(JNU)
+    REBCUF(JNU)=ZEBCUF2(JNU)
+
+    RYFWCA(JNU)=ZYFWCA2(JNU)
+    RYFWCB(JNU)=ZYFWCB2(JNU)
+    RYFWCC(JNU)=ZYFWCC2(JNU)
+    RYFWCD(JNU)=ZYFWCD2(JNU)
+    RYFWCE(JNU)=ZYFWCE2(JNU)
+    RYFWCF(JNU)=ZYFWCF2(JNU)
+
+    RSUSHE(JNU)=ZSUSHE2(JNU)*1.E-02_JPRB
+    RSUSHF(JNU)=ZSUSHF2(JNU)*1.E-02_JPRB
+    RSUSHH(JNU)=ZSUSHH2(JNU)
+    RSUSHK(JNU)=ZSUSHK2(JNU)*1.E-01_JPRB
+    RSUSHA(JNU)=ZSUSHA2(JNU)*1.E-03_JPRB
+    RSUSHG(JNU)=ZSUSHG2(JNU)*1.E-01_JPRB
+    
+    RFLAA0(JNU)=ZFLAA02(JNU)
+    RFLAA1(JNU)=ZFLAA12(JNU)
+    RFLBB0(JNU)=ZFLBB02(JNU)
+    RFLBB1(JNU)=ZFLBB12(JNU)
+    RFLBB2(JNU)=ZFLBB22(JNU)
+    RFLBB3(JNU)=ZFLBB32(JNU)
+    RFLCC0(JNU)=ZFLCC02(JNU)
+    RFLCC1(JNU)=ZFLCC12(JNU)
+    RFLCC2(JNU)=ZFLCC22(JNU)
+    RFLCC3(JNU)=ZFLCC32(JNU)
+    RFLDD0(JNU)=ZFLDD02(JNU)
+    RFLDD1(JNU)=ZFLDD12(JNU)
+    RFLDD2(JNU)=ZFLDD22(JNU)
+    RFLDD3(JNU)=ZFLDD32(JNU)
+
+! Fu (1996)'s optical properties are not available for 2 spectral intervals
+!    RFUAA0(JNU)=ZFUAA02(JNU)
+!    RFUAA1(JNU)=ZFUAA12(JNU)
+!    RFUBB0(JNU)=ZFUBB02(JNU)
+!    RFUBB1(JNU)=ZFUBB12(JNU)
+!    RFUBB2(JNU)=ZFUBB22(JNU)
+!    RFUBB3(JNU)=ZFUBB32(JNU)
+!    RFUCC0(JNU)=ZFUCC02(JNU)
+!    RFUCC1(JNU)=ZFUCC12(JNU)
+!    RFUCC2(JNU)=ZFUCC22(JNU)
+!    RFUCC3(JNU)=ZFUCC32(JNU)
+    
+  ENDDO
+ELSEIF (KSW == 4) THEN
+  DO JNU=1,KSW
+    RASWCA(JNU)=ZASWCA4(JNU)*1.E-02_JPRB
+    RASWCB(JNU)=ZASWCB4(JNU)
+    RASWCC(JNU)=ZASWCC4(JNU)
+    RASWCD(JNU)=ZASWCD4(JNU)
+    RASWCE(JNU)=ZASWCE4(JNU)
+    RASWCF(JNU)=ZASWCF4(JNU)*1.E-03_JPRB
+
+    REBCUA(JNU)=ZEBCUA4(JNU)
+    REBCUB(JNU)=ZEBCUB4(JNU)
+    REBCUC(JNU)=ZEBCUC4(JNU)
+    REBCUD(JNU)=ZEBCUD4(JNU)
+    REBCUE(JNU)=ZEBCUE4(JNU)
+    REBCUF(JNU)=ZEBCUF4(JNU)
+
+    RYFWCA(JNU)=ZYFWCA4(JNU)
+    RYFWCB(JNU)=ZYFWCB4(JNU)
+    RYFWCC(JNU)=ZYFWCC4(JNU)
+    RYFWCD(JNU)=ZYFWCD4(JNU)
+    RYFWCE(JNU)=ZYFWCE4(JNU)
+    RYFWCF(JNU)=ZYFWCF4(JNU)
+
+    RSUSHE(JNU)=ZSUSHE4(JNU)*1.E-02_JPRB
+    RSUSHF(JNU)=ZSUSHF4(JNU)*1.E-02_JPRB
+    RSUSHH(JNU)=ZSUSHH4(JNU)
+    RSUSHK(JNU)=ZSUSHK4(JNU)*1.E-01_JPRB
+    RSUSHA(JNU)=ZSUSHA4(JNU)*1.E-03_JPRB
+    RSUSHG(JNU)=ZSUSHG4(JNU)*1.E-01_JPRB
+    
+    RFLAA0(JNU)=ZFLAA04(JNU)
+    RFLAA1(JNU)=ZFLAA14(JNU)
+    RFLBB0(JNU)=ZFLBB04(JNU)
+    RFLBB1(JNU)=ZFLBB14(JNU)
+    RFLBB2(JNU)=ZFLBB24(JNU)
+    RFLBB3(JNU)=ZFLBB34(JNU)
+    RFLCC0(JNU)=ZFLCC04(JNU)
+    RFLCC1(JNU)=ZFLCC14(JNU)
+    RFLCC2(JNU)=ZFLCC24(JNU)
+    RFLCC3(JNU)=ZFLCC34(JNU)
+    RFLDD0(JNU)=ZFLDD04(JNU)
+    RFLDD1(JNU)=ZFLDD14(JNU)
+    RFLDD2(JNU)=ZFLDD24(JNU)
+    RFLDD3(JNU)=ZFLDD34(JNU)
+    
+    RFUAA0(JNU)=ZFUAA04(JNU)
+    RFUAA1(JNU)=ZFUAA14(JNU)
+    RFUBB0(JNU)=ZFUBB04(JNU)
+    RFUBB1(JNU)=ZFUBB14(JNU)
+    RFUBB2(JNU)=ZFUBB24(JNU)
+    RFUBB3(JNU)=ZFUBB34(JNU)
+    RFUCC0(JNU)=ZFUCC04(JNU)
+    RFUCC1(JNU)=ZFUCC14(JNU)
+    RFUCC2(JNU)=ZFUCC24(JNU)
+    RFUCC3(JNU)=ZFUCC34(JNU)
+    
+  ENDDO
+ELSEIF (KSW == 6) THEN
+  DO JNU=1,KSW
+    RASWCA(JNU)=ZASWCA6(JNU)*1.E-02_JPRB
+    RASWCB(JNU)=ZASWCB6(JNU)
+    RASWCC(JNU)=ZASWCC6(JNU)
+    RASWCD(JNU)=ZASWCD6(JNU)
+    RASWCE(JNU)=ZASWCE6(JNU)
+    RASWCF(JNU)=ZASWCF6(JNU)*1.E-03_JPRB
+
+    REBCUA(JNU)=ZEBCUA6(JNU)
+    REBCUB(JNU)=ZEBCUB6(JNU)
+    REBCUC(JNU)=ZEBCUC6(JNU)
+    REBCUD(JNU)=ZEBCUD6(JNU)
+    REBCUE(JNU)=ZEBCUE6(JNU)
+    REBCUF(JNU)=ZEBCUF6(JNU)
+
+    RYFWCA(JNU)=ZYFWCA6(JNU)
+    RYFWCB(JNU)=ZYFWCB6(JNU)
+    RYFWCC(JNU)=ZYFWCC6(JNU)
+    RYFWCD(JNU)=ZYFWCD6(JNU)
+    RYFWCE(JNU)=ZYFWCE6(JNU)
+    RYFWCF(JNU)=ZYFWCF6(JNU)
+
+    RSUSHE(JNU)=ZSUSHE6(JNU)*1.E-02_JPRB
+    RSUSHF(JNU)=ZSUSHF6(JNU)*1.E-02_JPRB
+    RSUSHH(JNU)=ZSUSHH6(JNU)
+    RSUSHK(JNU)=ZSUSHK6(JNU)*1.E-01_JPRB
+    RSUSHA(JNU)=ZSUSHA6(JNU)*1.E-03_JPRB
+    RSUSHG(JNU)=ZSUSHG6(JNU)*1.E-01_JPRB
+    
+    RFLAA0(JNU)=ZFLAA06(JNU)
+    RFLAA1(JNU)=ZFLAA16(JNU)
+    RFLBB0(JNU)=ZFLBB06(JNU)
+    RFLBB1(JNU)=ZFLBB16(JNU)
+    RFLBB2(JNU)=ZFLBB26(JNU)
+    RFLBB3(JNU)=ZFLBB36(JNU)
+    RFLCC0(JNU)=ZFLCC06(JNU)
+    RFLCC1(JNU)=ZFLCC16(JNU)
+    RFLCC2(JNU)=ZFLCC26(JNU)
+    RFLCC3(JNU)=ZFLCC36(JNU)
+    RFLDD0(JNU)=ZFLDD06(JNU)
+    RFLDD1(JNU)=ZFLDD16(JNU)
+    RFLDD2(JNU)=ZFLDD26(JNU)
+    RFLDD3(JNU)=ZFLDD36(JNU)
+    
+    RFUAA0(JNU)=ZFUAA06(JNU)
+    RFUAA1(JNU)=ZFUAA16(JNU)
+    RFUBB0(JNU)=ZFUBB06(JNU)
+    RFUBB1(JNU)=ZFUBB16(JNU)
+    RFUBB2(JNU)=ZFUBB26(JNU)
+    RFUBB3(JNU)=ZFUBB36(JNU)
+    RFUCC0(JNU)=ZFUCC06(JNU)
+    RFUCC1(JNU)=ZFUCC16(JNU)
+    RFUCC2(JNU)=ZFUCC26(JNU)
+    RFUCC3(JNU)=ZFUCC36(JNU)
+    
+  ENDDO
+ELSEIF (KTSW == 14 .AND. LSRTM) THEN
+    PRINT *,'SUCLOPN: 14-SPECTRAL INTERVALS --> RRTM_SW'
+!  DO JNU=1,KSW
+!    RASWCA(JNU)=ZASWCA14(JNU)*1.E-02_JPRB
+!    RASWCB(JNU)=ZASWCB14(JNU)
+!    RASWCC(JNU)=ZASWCC14(JNU)
+!    RASWCD(JNU)=ZASWCD14(JNU)
+!    RASWCE(JNU)=ZASWCE14(JNU)
+!    RASWCF(JNU)=ZASWCF14(JNU)*1.E-03_JPRB
+!
+!    REBCUA(JNU)=ZEBCUA14(JNU)
+!    REBCUB(JNU)=ZEBCUB14(JNU)
+!    REBCUC(JNU)=ZEBCUC14(JNU)
+!    REBCUD(JNU)=ZEBCUD14(JNU)
+!    REBCUE(JNU)=ZEBCUE14(JNU)
+!    REBCUF(JNU)=ZEBCUF14(JNU)
+!
+!    RYFWCA(JNU)=ZYFWCA14(JNU)
+!    RYFWCB(JNU)=ZYFWCB14(JNU)
+!    RYFWCC(JNU)=ZYFWCC14(JNU)
+!    RYFWCD(JNU)=ZYFWCD14(JNU)
+!    RYFWCE(JNU)=ZYFWCE14(JNU)
+!    RYFWCF(JNU)=ZYFWCF14(JNU)
+!
+!    RSUSHE(JNU)=ZSUSHE14(JNU)*1.E-02_JPRB
+!    RSUSHF(JNU)=ZSUSHF14(JNU)*1.E-02_JPRB
+!    RSUSHH(JNU)=ZSUSHH14(JNU)
+!    RSUSHK(JNU)=ZSUSHK14(JNU)*1.E-01_JPRB
+!    RSUSHA(JNU)=ZSUSHA14(JNU)*1.E-03_JPRB
+!    RSUSHG(JNU)=ZSUSHG14(JNU)*1.E-01_JPRB
+!    
+!    RFLAA0(JNU)=ZFLAA014(JNU)
+!    RFLAA1(JNU)=ZFLAA114(JNU)
+!    RFLBB0(JNU)=ZFLBB014(JNU)
+!    RFLBB1(JNU)=ZFLBB114(JNU)
+!    RFLBB2(JNU)=ZFLBB214(JNU)
+!    RFLBB3(JNU)=ZFLBB314(JNU)
+!    RFLCC0(JNU)=ZFLCC014(JNU)
+!    RFLCC1(JNU)=ZFLCC114(JNU)
+!    RFLCC2(JNU)=ZFLCC214(JNU)
+!    RFLCC3(JNU)=ZFLCC314(JNU)
+!    RFLDD0(JNU)=ZFLDD014(JNU)
+!    RFLDD1(JNU)=ZFLDD114(JNU)
+!    RFLDD2(JNU)=ZFLDD214(JNU)
+!    RFLDD3(JNU)=ZFLDD314(JNU)
+!    
+!    RFUAA0(JNU)=ZFUAA014(JNU)
+!    RFUAA1(JNU)=ZFUAA114(JNU)
+!    RFUBB0(JNU)=ZFUBB014(JNU)
+!    RFUBB1(JNU)=ZFUBB114(JNU)
+!    RFUBB2(JNU)=ZFUBB214(JNU)
+!    RFUBB3(JNU)=ZFUBB314(JNU)
+!    RFUCC0(JNU)=ZFUCC014(JNU)
+!    RFUCC1(JNU)=ZFUCC114(JNU)
+!    RFUCC2(JNU)=ZFUCC214(JNU)
+!    RFUCC3(JNU)=ZFUCC314(JNU)
+!!    RFUDD0(JNU)=ZFUDD014(JNU)
+!!    RFUDD1(JNU)=ZFUDD114(JNU)
+!!    RFUDD2(JNU)=ZFUDD214(JNU)
+!!    RFUDD3(JNU)=ZFUDD314(JNU)
+!
+!    PRINT *,'SUCLOPN: 14-SPECTRAL INTERVALS --> RRTM_SW'     
+!  ENDDO
+ELSE
+  CALL ABOR1('SUCLOPN: WRONG SW SPECTRAL RESOLUTION')
+ENDIF
+!     ------------------------------------------------------------------
+
+!*          2.    CLOUD OVERLAP PARAMETERS
+!                 ------------------------
+
+ZAOVLP = (/ -2.250E-05_JPRB,-7.316E-06_JPRB,-1.966E-05_JPRB /) 
+ZBOVLP = (/  0.7865_JPRB   , 0.8186_JPRB   , 0.8900_JPRB    /)
+
+IF (KLEV == 19) THEN
+  RAOVLP=ZAOVLP(1)
+  RBOVLP=ZBOVLP(1)
+ELSEIF (KLEV == 31) THEN
+  RAOVLP=ZAOVLP(2)
+  RBOVLP=ZBOVLP(2)
+ELSEIF (KLEV == 60) THEN
+  RAOVLP=ZAOVLP(3)
+  RBOVLP=ZBOVLP(3)
+ELSE  
+  RAOVLP=ZAOVLP(3)
+  RBOVLP=ZBOVLP(3)
+ENDIF  
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUCLOPN',1,ZHOOK_HANDLE)
+END SUBROUTINE SUCLOPN
Index: LMDZ5/trunk/libf/phylmd/rrtm/suclopn.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/suclopn.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/suclopn.intfb.h	(revision 1989)
@@ -0,0 +1,8 @@
+INTERFACE
+SUBROUTINE SUCLOPN (KTSW, KSW, KLEV)
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KTSW
+INTEGER(KIND=JPIM),INTENT(IN) :: KSW
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+END SUBROUTINE SUCLOPN
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/sucond.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/sucond.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/sucond.intfb.h	(revision 1989)
@@ -0,0 +1,8 @@
+INTERFACE
+SUBROUTINE SUCOND ( KULOUT , KLEV , PETA )
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+INTEGER(KIND=JPIM),INTENT(IN) :: KULOUT
+REAL(KIND=JPRB) ,INTENT(IN) :: PETA(KLEV)
+END SUBROUTINE SUCOND
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/sucst.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/sucst.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/sucst.F90	(revision 1989)
@@ -0,0 +1,306 @@
+SUBROUTINE SUCST(KULOUT,KDAT,KSSS,KPRINTLEV)
+
+!**** *SUCST * - Routine to initialize the constants of the model.
+
+!     Purpose.
+!     --------
+!           Initialize and print the common YOMCST + initialize
+!         date and time of YOMRIP.
+
+!**   Interface.
+!     ----------
+!        *CALL* *SUCST (..)
+
+!        Explicit arguments :
+!        --------------------
+
+!        KULOUT  - logical unit for the output
+!        KDAT    - date in the form AAAAMMDD
+!        KSSS    - number of seconds in the day
+!        KPRINTLEV - printing level
+
+!        Implicit arguments :
+!        --------------------
+!        COMMON YOMCST
+!        COMMON YOMRIP
+
+!     Method.
+!     -------
+!        See documentation
+
+!     Externals.
+!     ----------
+
+!     Reference.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+
+!     Author.
+!     -------
+!        Mats Hamrud and Philippe Courtier  *ECMWF*
+
+!     Modifications.
+!     --------------
+!        Original : 87-10-15
+!        Additions : 90-07-30 (J.-F. Geleyn)
+!                    91-11-15 (M. Deque)
+!                    96-08-12 M.Hamrud - Reduce printing
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOMCST   , ONLY : RPI      ,RCLUM    ,RHPLA    ,RKBOL    ,&
+ & RNAVO    ,RDAY     ,REA      ,REPSM    ,RSIYEA   ,&
+ & RSIDAY   ,ROMEGA   ,RA       ,RG       ,R1SA     ,&
+ & RSIGMA   ,RI0      ,R        ,RMD      ,RMV      ,&
+ & RMO3     ,RD       ,RV       ,RCPD     ,RCPV     ,&
+ & RMCO2    ,RMCH4    ,RMN2O    ,RMCO     ,RMHCHO   ,&
+ & RMSO2    ,RMNO2    ,RMSF6    ,RMRA     ,&
+ & RCVD     ,RCVV     ,RKAPPA   ,RETV     ,RCW      ,&
+ & RCS      ,RLVTT    ,RLSTT    ,RLVZER   ,RLSZER   ,&
+ & RLMLT    ,RTT      ,RATM     ,RDT      ,RESTT    ,&
+ & RALPW    ,RBETW    ,RGAMW    ,RALPS    ,RBETS    ,&
+ & RGAMS    ,RALPD    ,RBETD    ,RGAMD  
+USE YOMRIP   , ONLY : RTIMST   ,RTIMTR
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KULOUT 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KDAT 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KSSS 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KPRINTLEV 
+INTEGER(KIND=JPIM) :: IA, ID, IDAT, IM, ISSS, J
+
+REAL(KIND=JPRB) :: ZDE, ZET, ZJU, ZRS, ZRSREL, ZTETA, ZTI
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+#include "fctast.h"
+#include "fcttrm.h"
+#include "fcttim.h"
+!      -----------------------------------------------------------------
+
+!*       1.    DEFINE FUNDAMENTAL CONSTANTS.
+!              -----------------------------
+
+print*,'DANS SUCST CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC'
+IF (LHOOK) CALL DR_HOOK('SUCST',0,ZHOOK_HANDLE)
+RPI=2.0_JPRB*ASIN(1.0_JPRB)
+RCLUM=299792458._JPRB
+RHPLA=6.6260755E-34_JPRB
+RKBOL=1.380658E-23_JPRB
+RNAVO=6.0221367E+23_JPRB
+
+!     ------------------------------------------------------------------
+
+!*       2.    DEFINE ASTRONOMICAL CONSTANTS.
+!              ------------------------------
+
+RDAY=86400._JPRB
+REA=149597870000._JPRB
+REPSM=0.409093_JPRB
+
+RSIYEA=365.25_JPRB*RDAY*2.0_JPRB*RPI/6.283076_JPRB
+RSIDAY=RDAY/(1.0_JPRB+RDAY/RSIYEA)
+ROMEGA=2.0_JPRB*RPI/RSIDAY
+
+IDAT=KDAT
+ISSS=KSSS
+ID=NDD(IDAT)
+IM=NMM(IDAT)
+IA=NCCAA(IDAT)
+ZJU=RJUDAT(IA,IM,ID)
+ZTI=RTIME(IA,IM,ID,ISSS)
+RTIMST=ZTI
+RTIMTR=ZTI
+ZTETA=RTETA(ZTI)
+ZRS=RRS(ZTETA)
+ZDE=RDS(ZTETA)
+ZET=RET(ZTETA)
+ZRSREL=ZRS/REA
+
+!     ------------------------------------------------------------------
+
+!*       3.    DEFINE GEOIDE.
+!              --------------
+
+RG=9.80665_JPRB
+RA=6371229._JPRB
+R1SA=REAL(1.0_JPRB/REAL(RA,KIND(1.0_JPRB)),KIND(R1SA))
+
+!     ------------------------------------------------------------------
+
+!*       4.    DEFINE RADIATION CONSTANTS.
+!              ---------------------------
+
+RSIGMA=2.0_JPRB * RPI**5 * RKBOL**4 /(15._JPRB* RCLUM**2 * RHPLA**3)
+RI0=1370._JPRB
+
+!     ------------------------------------------------------------------
+
+!*       5.    DEFINE THERMODYNAMIC CONSTANTS, GAS PHASE.
+!              ------------------------------------------
+
+R=RNAVO*RKBOL
+RMD=28.9644_JPRB
+RMV=18.0153_JPRB
+RMO3=47.9942_JPRB
+RD=1000._JPRB*R/RMD
+RV=1000._JPRB*R/RMV
+RCPD=3.5_JPRB*RD
+RCVD=RCPD-RD
+RCPV=4._JPRB *RV
+RCVV=RCPV-RV
+RKAPPA=RD/RCPD
+RETV=RV/RD-1.0_JPRB
+RMCO2=44.0095_JPRB
+RMCH4=16.04_JPRB
+RMN2O=44.013_JPRB
+RMSF6=146.05_JPRB
+RMRA=222._JPRB
+RMCO=28.01_JPRB
+RMHCHO=30.03_JPRB
+RMNO2=46.01_JPRB
+RMSO2=64.07_JPRB
+
+!     ------------------------------------------------------------------
+
+!*       6.    DEFINE THERMODYNAMIC CONSTANTS, LIQUID PHASE.
+!              ---------------------------------------------
+
+RCW=4218._JPRB
+
+!     ------------------------------------------------------------------
+
+!*       7.    DEFINE THERMODYNAMIC CONSTANTS, SOLID PHASE.
+!              --------------------------------------------
+
+RCS=2106._JPRB
+
+!     ------------------------------------------------------------------
+
+!*       8.    DEFINE THERMODYNAMIC CONSTANTS, TRANSITION OF PHASE.
+!              ----------------------------------------------------
+
+RTT=273.16_JPRB
+RDT=11.82_JPRB
+RLVTT=2.5008E+6_JPRB
+RLSTT=2.8345E+6_JPRB
+RLVZER=RLVTT+RTT*(RCW-RCPV)
+RLSZER=RLSTT+RTT*(RCS-RCPV)
+RLMLT=RLSTT-RLVTT
+RATM=100000._JPRB
+
+!     ------------------------------------------------------------------
+
+!*       9.    SATURATED VAPOUR PRESSURE.
+!              --------------------------
+
+RESTT=611.14_JPRB
+RGAMW=(RCW-RCPV)/RV
+RBETW=RLVTT/RV+RGAMW*RTT
+RALPW=LOG(RESTT)+RBETW/RTT+RGAMW*LOG(RTT)
+print *,'SUCST: RESTT,RBETW,RTT,RGAMW',RESTT,RBETW,RTT,RGAMW
+print *,'SUCST: RALPW',RALPW
+RGAMS=(RCS-RCPV)/RV
+RBETS=RLSTT/RV+RGAMS*RTT
+RALPS=LOG(RESTT)+RBETS/RTT+RGAMS*LOG(RTT)
+print *,'SUCST: RESTT,RBETS,RTT,RGAMS',RESTT,RBETS,RTT,RGAMS
+print *,'SUCST: RALPS',RALPS
+RGAMS=(RCS-RCPV)/RV
+RGAMD=RGAMS-RGAMW
+RBETD=RBETS-RBETW
+RALPD=RALPS-RALPW
+
+!     ------------------------------------------------------------------
+
+!*      10.    PRINTS
+
+print*,'KPRINTLEV ',KPRINTLEV
+print*,'KULOUT ',KULOUT
+
+IF (KPRINTLEV >= 1) THEN
+  WRITE(KULOUT,'(''0*** Constants of the ICM   ***'')')
+  WRITE(KULOUT,'('' *** Fundamental constants ***'')')
+  WRITE(KULOUT,'(''           PI = '',E13.7,'' -'')')RPI
+  WRITE(KULOUT,'(''            c = '',E13.7,''m s-1'')')RCLUM
+  WRITE(KULOUT,'(''            h = '',E13.7,''J s'')')RHPLA
+  WRITE(KULOUT,'(''            K = '',E13.7,''J K-1'')')RKBOL
+  WRITE(KULOUT,'(''            N = '',E13.7,''mol-1'')')RNAVO
+  WRITE(KULOUT,'('' *** Astronomical constants ***'')')
+  WRITE(KULOUT,'(''          day = '',E13.7,'' s'')')RDAY
+  WRITE(KULOUT,'('' half g. axis = '',E13.7,'' m'')')REA
+  WRITE(KULOUT,'('' mean anomaly = '',E13.7,'' -'')')REPSM
+  WRITE(KULOUT,'('' sideral year = '',E13.7,'' s'')')RSIYEA
+  WRITE(KULOUT,'(''  sideral day = '',E13.7,'' s'')')RSIDAY
+  WRITE(KULOUT,'(''        omega = '',E13.7,'' s-1'')')ROMEGA
+
+  WRITE(KULOUT,'('' The initial date of the run is :'')')
+  WRITE(KULOUT,'(1X,I8,1X,I5,5X,I4,1X,I2,1X,I2)')IDAT,ISSS,IA,IM,ID
+  WRITE(KULOUT,'('' The Julian date is : '',F11.2)') ZJU
+  WRITE(KULOUT,'('' Time of the model  : '',F15.2,'' s'')')ZTI
+  WRITE(KULOUT,'('' Distance Earth-Sun : '',E13.7,'' m'')')ZRS
+  WRITE(KULOUT,'('' Relative Dist. E-S : '',E13.7,'' m'')')ZRSREL
+  WRITE(KULOUT,'('' Declination        : '',F12.5)') ZDE
+  WRITE(KULOUT,'('' Eq. of time        : '',F12.5,'' s'')')ZET
+  WRITE(KULOUT,'('' ***         Geoide         ***'')')
+  WRITE(KULOUT,'(''      Gravity = '',E13.7,'' m s-2'')')RG
+  WRITE(KULOUT,'('' Earth radius = '',E13.7,'' m'')')RA
+  WRITE(KULOUT,'('' Inverse E.R. = '',E13.7,'' m'')')R1SA
+  WRITE(KULOUT,'('' ***        Radiation       ***'')')
+  WRITE(KULOUT,'('' Stefan-Bol.  = '',E13.7,'' W m-2 K-4'')')  RSIGMA
+  WRITE(KULOUT,'('' Solar const. = '',E13.7,'' W m-2'')')RI0
+  WRITE(KULOUT,'('' *** Thermodynamic, gas     ***'')')
+  WRITE(KULOUT,'('' Perfect gas  = '',e13.7)') R
+  WRITE(KULOUT,'('' Dry air mass = '',e13.7)') RMD
+  WRITE(KULOUT,'('' Vapour  mass = '',e13.7)') RMV
+  WRITE(KULOUT,'('' Ozone   mass = '',e13.7)') RMO3
+  WRITE(KULOUT,'('' Dry air cst. = '',e13.7)') RD
+  WRITE(KULOUT,'('' Vapour  cst. = '',e13.7)') RV
+  WRITE(KULOUT,'(''         Cpd  = '',e13.7)') RCPD
+  WRITE(KULOUT,'(''         Cvd  = '',e13.7)') RCVD
+  WRITE(KULOUT,'(''         Cpv  = '',e13.7)') RCPV
+  WRITE(KULOUT,'(''         Cvv  = '',e13.7)') RCVV
+  WRITE(KULOUT,'(''      Rd/Cpd  = '',e13.7)') RKAPPA
+  WRITE(KULOUT,'(''     Rv/Rd-1  = '',e13.7)') RETV
+  WRITE(KULOUT,'('' *** Thermodynamic, liquid  ***'')')
+  WRITE(KULOUT,'(''         Cw   = '',E13.7)') RCW
+  WRITE(KULOUT,'('' *** thermodynamic, solid   ***'')')
+  WRITE(KULOUT,'(''         Cs   = '',E13.7)') RCS
+  WRITE(KULOUT,'('' *** Thermodynamic, trans.  ***'')')
+  WRITE(KULOUT,'('' Fusion point  = '',E13.7)') RTT
+  WRITE(KULOUT,'('' RTT-Tx(ew-ei) = '',E13.7)') RDT
+  WRITE(KULOUT,'(''        RLvTt  = '',E13.7)') RLVTT
+  WRITE(KULOUT,'(''        RLsTt  = '',E13.7)') RLSTT
+  WRITE(KULOUT,'(''        RLv0   = '',E13.7)') RLVZER
+  WRITE(KULOUT,'(''        RLs0   = '',E13.7)') RLSZER
+  WRITE(KULOUT,'(''        RLMlt  = '',E13.7)') RLMLT
+  WRITE(KULOUT,'('' Normal press. = '',E13.7)') RATM
+  WRITE(KULOUT,'('' Latent heat :  '')')
+  WRITE(KULOUT,'(10(1X,E10.4))') (10._JPRB*J,J=-4,4)
+  WRITE(KULOUT,'(10(1X,E10.4))') (RLV(RTT+10._JPRB*J),J=-4,4)
+  WRITE(KULOUT,'(10(1X,E10.4))') (RLS(RTT+10._JPRB*J),J=-4,4)
+  WRITE(KULOUT,'('' *** Thermodynamic, satur.  ***'')')
+  WRITE(KULOUT,'('' Fusion point = '',E13.7)') RTT
+  WRITE(KULOUT,'(''      es(Tt)  = '',e13.7)') RESTT
+  WRITE(KULOUT,'('' es(T) :  '')')
+  WRITE(KULOUT,'(10(1X,E10.4))') (10._JPRB*J,J=-4,4)
+  WRITE(KULOUT,'(10(1X,E10.4))') (ESW(RTT+10._JPRB*J),J=-4,4)
+  WRITE(KULOUT,'(10(1X,E10.4))') (ESS(RTT+10._JPRB*J),J=-4,4)
+  call flush()       !!!!! A REVOIR (MPL) les 7 lignes qui suivent
+   do j=1,9
+     print*,'TEST J',j
+     print*,'RTT...',RTT+10._JPRB*(J-5)
+     print*,'ES(RTT...',ES(RTT+10._JPRB*(J-5))
+   enddo
+  call flush()
+
+  WRITE(KULOUT,'(10(1X,E10.4))') (ES (RTT+10._JPRB*J),J=-4,4)
+ENDIF
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUCST',1,ZHOOK_HANDLE)
+END SUBROUTINE SUCST
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/sucumf.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/sucumf.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/sucumf.intfb.h	(revision 1989)
@@ -0,0 +1,6 @@
+INTERFACE
+SUBROUTINE SUCUMF(KSMAX)
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KSMAX
+END SUBROUTINE SUCUMF
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/sucumf2.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/sucumf2.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/sucumf2.intfb.h	(revision 1989)
@@ -0,0 +1,6 @@
+INTERFACE
+SUBROUTINE SUCUMF2(KSMAX)
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KSMAX
+END SUBROUTINE SUCUMF2
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/suecrad.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/suecrad.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/suecrad.F90	(revision 1989)
@@ -0,0 +1,1523 @@
+SUBROUTINE SUECRAD (KULOUT, KLEV, PETAH )
+
+!**** *SUECRAD*   - INITIALIZE COMMONS YOERxx CONTROLLING RADIATION
+
+!     PURPOSE.
+!     --------
+!           INITIALIZE YOERAD, THE COMMON THAT CONTROLS THE
+!           RADIATION OF THE MODEL, AND YOERDU THAT INCLUDES
+!           ADJUSTABLE PARAMETERS FOR RADIATION COMPUTATIONS
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECRAD* FROM *SUPHEC*
+!              -------        ------
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!        NONE
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+!        COMMONS YOERAD, YOERDU
+
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+
+!     EXTERNALS.
+!     ----------
+!        SUAER, SUAERH, SUAERV, SULW, SUSW, SUOCST, SUSAT
+!        SUAERL, SUAERSN, SUSRTAER, SRTM_INIT, SUSRTCOP
+
+!     REFERENCE.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 88-12-15
+!        P.COURTIER AND M.HAMRUD NAME SURAD ALREADY USED
+!        Modified 93-11-15 by Ph. Dandin : FMR scheme with MF
+!        Modified 95-12 by PhD : Cloud overlapping hypothesis for FMR
+!        980317 JJMorcrette clean-up (NRAD, NFLUX)
+!        000118 JJMorcrette variable concentr. uniformly mixed gases
+!        990525 JJMorcrette GISS volcanic and new tropospheric aerosols
+!        990831 JJMorcrette RRTM
+!        R. El Khatib 01-02-02 proper initialization of NFRRC moved in SUCFU
+!        010129 JJMorcrette clean-up LERAD1H, NLNGR1H
+!        011105 GMozdzynski support new radiation grid
+!        011005 JJMorcrette CCN --> Re Water clouds
+!        R. El Khatib 01-02-02 LRRTM=lecmwf by default
+!        020909 GMozdzynski support NRADRES to specify radiation grid
+!        021001 GMozdzynski support on-demand radiation communications
+!        030422 GMozdzynski automatic min-halo
+!        030501 JJMorcrette new radiation grid on, new aerosols on (default)
+!        030513 JJMorcrette progn. O3 / radiation interactions off (default)
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        050315 JJMorcrette prog.aerosols v1
+!        041214 JJMorcrette SRTM
+!        050111 JJMorcrette new cloud optical properties
+!        050415 GMozdzynski Reduced halo support for radiation interpolation
+!        051004 JJMorcrette UV surface radiation processor
+!        051220 JJMorcrette SRTM112g+LWSCAT+UVprocessor+(bgfx:swclr, radaca)
+!        060510 JJMorcrette MODIS albedo (UVis, NIR)x(parallel+diffuse)
+!        060510 JJMorcrette MODIS albedo (UVis, NIR)x(parallel+diffuse)
+!        JJMorcrette 20060721 PP of clear-sky PAR and TOA incident solar radiation
+!        060625 JJMorcrette MODIS albedo (UVis, NIR)x(parallel+diffuse)
+!        060726 JJMorcrette McICA default operational configuration
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARDIM   , ONLY : JPMXGL
+USE PARRRTM  , ONLY : JPLAY
+USE PARSRTM  , ONLY : JPGPT
+USE YOMCT0   , ONLY : LOUTPUT  ,NPRINTLEV,LALLOPR,&
+ & NPROC    ,N_REGIONS_NS  ,N_REGIONS_EW
+USE YOMDIM   , ONLY : NDLON    ,NSMAX    ,NDGENL    ,&
+ & NDGSAL   ,NDGLG    ,NDGSAG   ,NDGENG   ,NDSUR1    ,&
+ & NDLSUR   ,NDGSUR   ,NGPBLKS  ,NFLEVG   ,NPROMA  
+USE YOMCT0B  , ONLY : LECMWF
+USE YOMDYN   , ONLY : TSTEP
+! Ce qui concerne NULRAD commente par MPL le 15.04.09
+!USE YOMLUN   , ONLY : NULNAM   ,NULRAD   ,NULOUT
+USE YOMLUN   , ONLY : NULRAD   ,NULOUT
+USE YOMCST   , ONLY : RDAY     ,RG       ,RCPD     ,RPI     ,RI0
+USE YOMPHY   , ONLY : LMPHYS, LRAYFM   ,LRAYFM15
+USE YOEPHY   , ONLY : LEPHYS   ,LERADI, LE4ALB
+USE YOERDI   , ONLY : RCCO2, RCCH4, RCN2O, RCCFC11, RCCFC12, RSOLINC
+USE YOERAD   , ONLY : NAER     , NOZOCL   ,&
+ & NRADFR   ,NRADPFR  ,NRADPLA  ,NRINT    ,&
+ & NRADNFR  ,NRADSFR  ,NOVLP    ,NRPROMA  ,&
+!& NLW      ,NSW      ,NTSW     ,NCSRADF  ,&
+! NSW mis dans .def MPL 20140211
+ & NLW      ,NTSW     ,NCSRADF  ,&
+ & NMODE    ,NLNGR1H  ,NSWNL    ,NSWTL    ,NUV     ,&
+ & LERAD1H  ,LERADHS  ,LEPO3RA  ,LRADLB   ,LONEWSW ,&
+ & LCCNL    ,LCCNO    ,&
+ & LECSRAD  ,LHVOLCA  ,LNEWAER  ,LRRTM    ,LSRTM   ,LDIFFC  ,&
+ & NRADINT  ,NRADRES  ,CRTABLEDIR,CRTABLEFIL       ,&
+ & NICEOPT  ,NLIQOPT  ,NRADIP   ,NRADLP   ,NINHOM  ,NLAYINH ,&
+ & LRAYL    ,LOPTRPROMA,&
+ & RCCNLND  ,RCCNSEA  ,RLWINHF  ,RSWINHF  ,RRe2De  ,&
+ & RPERTOZ  ,NPERTOZ  ,NMCICA   ,&
+ & LNOTROAER,NPERTAER ,LECO2VAR ,LHGHG    ,NHINCSOL,NSCEN ,&
+ & LEDBUG
+USE YOERDU   , ONLY : NUAER    ,NTRAER   ,RCDAY    ,R10E     ,&
+ & REPLOG   ,REPSC    ,REPSCO   ,REPSCQ   ,REPSCT   ,&
+ & REPSCW   ,DIFF  
+USE YOEAERD  , ONLY : CVDAES   ,CVDAEL   ,CVDAEU   ,CVDAED   ,&
+ & RCAEOPS  ,RCAEOPL  ,RCAEOPU  ,RCAEOPD  ,RCTRBGA  ,&
+ & RCVOBGA  ,RCSTBGA  ,RCTRPT   ,RCAEADM  ,RCAEROS  ,            &
+ & RCAEADK  
+USE YOE_UVRAD, ONLY : JUVLAM, LUVPROC, LUVTDEP, LUVDBG, NRADUV, NUVTIM, RUVLAM, RMUZUV
+
+USE YOMMP    , ONLY : MYPROC   ,NPRCIDS  ,LSPLIT   ,NAPSETS  ,&
+ & NPTRFLOFF,NFRSTLOFF,MYFRSTACTLAT,MYLSTACTLAT,&
+ & NSTA,NONL,NPTRFRSTLAT,NFRSTLAT,NLSTLAT ,&
+ & MY_REGION_NS  ,MY_REGION_EW   ,NGLOBALINDEX ,&
+ & NRISTA  ,NRIONL   ,NRIOFF    ,NRIEXT   ,NRICORE ,&
+ & NRISENDPOS ,NRIRECVPOS ,NRISENDPTR ,NRIRECVPTR ,&
+ & NARIB1  ,NRIPROCS ,NRIMPBUFSZ,NRISPT   ,NRIRPT ,&
+ & NRICOMM ,&
+ & NROSTA  ,NROONL   ,NROOFF    ,NROEXT   ,NROCORE ,&
+ & NROSENDPOS ,NRORECVPOS ,NROSENDPTR ,NRORECVPTR ,&
+ & NAROB1  ,NROPROCS ,NROMPBUFSZ,NROSPT   ,NRORPT ,&
+ & NROCOMM
+USE YOMGC    , ONLY : GELAT    ,GELAM
+USE YOMLEG   , ONLY : RMU      ,RSQM2
+USE YOMSC2   , ONLY : &
+ & NRIWIDEN  ,NRIWIDES  ,NRIWIDEW  ,NRIWIDEE,&
+ & NROWIDEN  ,NROWIDES  ,NROWIDEW  ,NROWIDEE
+USE YOMGEM   , ONLY : NGPTOT   ,NGPTOTG   ,NGPTOTMX ,NLOENG
+USE YOMTAG   , ONLY : MTAGRAD
+USE YOMPRAD  , ONLY : LODBGRADI,LODBGRADL ,RADGRID  ,&
+ & LRADONDEM  
+USE YOMRADF  , ONLY : EMTD     ,TRSW     ,EMTC      ,TRSC    ,&
+ & SRSWD    ,SRLWD    ,SRSWDCS  ,SRLWDCS   ,SRSWDV  ,&
+ & SRSWDUV  ,EDRO     ,SRSWPAR  ,SRSWUVB   ,SRSWPARC,  SRSWTINC,&
+ & EMTU, RMOON
+! Commente par MPL 26.11.08 
+!USE YOPHNC   , ONLY :  LERADN2
+! MPLefebvre 6-11-08 commente tout ce qui concerne MPL_MODULE
+!USE MPL_MODULE  , ONLY :  MPL_BROADCAST, MPL_SEND, MPL_RECV
+USE YOM_YGFL , ONLY : YO3
+!!!!! A REVOIR (MPL) NDLNPR devrait etre initialise dans sudyn.F90
+USE YOMDYN   , ONLY : NDLNPR
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KULOUT 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PETAH(KLEV+1) 
+!     LOCAL ARRAYS FOR THE PURPOSE OF READING NAMRGRI (RADIATION GRID)
+INTEGER(KIND=JPIM) :: NRGRI(JPMXGL)
+
+INTEGER(KIND=JPIM) :: IDGL,INBLW,IRADFR,IST1HR,ISTNHR,IDIR,IFIL
+INTEGER(KIND=JPIM) :: IRIRPTSUR,IRISPTSUR,IRIMAPLEN
+INTEGER(KIND=JPIM) :: JLON,JGLAT,JGL,JGLSUR,IDLSUR,IOFF,ILAT,ISTLON,IENDLON
+INTEGER(KIND=JPIM) :: IRORPTSUR,IROSPTSUR,IROMAPLEN
+INTEGER(KIND=JPIM) :: ILBRLATI,IUBRLATI,IGLGLO,IDUM,IU
+INTEGER(KIND=JPIM) :: J,JROC,IGPTOT
+INTEGER(KIND=JPIM) :: IROWIDEMAXN,IROWIDEMAXS,IROWIDEMAXW,IROWIDEMAXE
+INTEGER(KIND=JPIM) :: IRIWIDEMAXN,IRIWIDEMAXS,IRIWIDEMAXW,IRIWIDEMAXE
+INTEGER(KIND=JPIM) :: IARIB1MAX,IAROB1MAX
+INTEGER(KIND=JPIM) :: IWIDE(10)
+INTEGER(KIND=JPIM) :: ILATS_DIFF_F,ILATS_DIFF_C
+INTEGER(KIND=JPIM), PARAMETER :: JP_MIN_HALO=5
+INTEGER(KIND=JPIM) :: ISW,JUV,IDAYUV
+
+LOGICAL :: LLINEAR_GRID
+LOGICAL :: LLDEBUG,LLP
+
+REAL(KIND=JPRB) :: ZSTPHR, ZTSTEP, ZGEMU, ZLON, ZD1, ZD2, ZD3, ZD4, ZD5, ZD6
+REAL(KIND=JPRB) :: ZMINRADLAT,ZMAXRADLAT,ZMINRADLON,ZMAXRADLON
+REAL(KIND=JPRB) :: ZMINMDLLAT,ZMAXMDLLAT,ZMINMDLLON,ZMAXMDLLON
+REAL(KIND=JPRB) :: ZLAT
+!REAL(KIND=JPRB) :: RLATVOL, RLONVOL
+
+CHARACTER (LEN = 300) ::  CLFN
+INTEGER(KIND=JPIM), PARAMETER :: JPIOMASTER=1
+
+INTEGER(KIND=JPIM), ALLOCATABLE :: IRISENDPOS(:)
+INTEGER(KIND=JPIM), ALLOCATABLE :: IRIRECVPOS(:)
+INTEGER(KIND=JPIM), ALLOCATABLE :: IRISENDPTR(:)
+INTEGER(KIND=JPIM), ALLOCATABLE :: IRIRECVPTR(:)
+INTEGER(KIND=JPIM), ALLOCATABLE :: IRICOMM(:)
+INTEGER(KIND=JPIM), ALLOCATABLE :: IRIMAP(:,:)
+INTEGER(KIND=JPIM), ALLOCATABLE :: IROSENDPOS(:)
+INTEGER(KIND=JPIM), ALLOCATABLE :: IRORECVPOS(:)
+INTEGER(KIND=JPIM), ALLOCATABLE :: IROSENDPTR(:)
+INTEGER(KIND=JPIM), ALLOCATABLE :: IRORECVPTR(:)
+INTEGER(KIND=JPIM), ALLOCATABLE :: IROCOMM(:)
+INTEGER(KIND=JPIM), ALLOCATABLE :: IROMAP(:,:)
+INTEGER(KIND=JPIM), ALLOCATABLE :: IGLOBALINDEX(:)
+
+REAL(KIND=JPRB),ALLOCATABLE :: ZLATX(:)
+REAL(KIND=JPRB),ALLOCATABLE :: ZLONX(:)
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+INTERFACE
+#include "setup_trans.h"
+#include "trans_inq.h"
+END INTERFACE
+
+#include "abor1.intfb.h"
+#include "posnam.intfb.h"
+#include "rrtm_init_140gp.intfb.h"
+
+#include "rdcset.intfb.h"
+#include "suaerh.intfb.h"
+#include "suaerl.intfb.h"
+#include "suaersn.intfb.h"
+#include "suaerv.intfb.h"
+#include "suclopn.intfb.h"
+#include "suecradi.intfb.h"
+#include "suecradl.intfb.h"
+#include "sulwn.intfb.h"
+#include "sulwneur.intfb.h"
+#include "suovlp.intfb.h"
+#include "surdi.intfb.h"
+#include "surrtab.intfb.h"
+#include "surrtftr.intfb.h"
+#include "surrtpk.intfb.h"
+#include "surrtrf.intfb.h"
+#include "susat.intfb.h"
+#include "suswn.intfb.h"
+#include "susrtaer.intfb.h"
+#include "srtm_init.intfb.h"
+#include "susrtcop.intfb.h"
+#include "su_aerw.intfb.h"
+#include "su_uvrad.intfb.h"
+#include "su_mcica.intfb.h"
+
+!      ----------------------------------------------------------------
+
+#include "naerad.h"
+#include "namrgri.h"
+#include "clesphys.h"
+
+!*         1.       INITIALIZE NEUROFLUX LONGWAVE RADIATION
+!                   ---------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUECRAD',0,ZHOOK_HANDLE)
+!CALL GSTATS(1818,0)     MPL 2.12.08
+!IF (LERADN2) THEN
+!  CALL SULWNEUR(KLEV)
+!ENDIF
+
+!*         2.       SET DEFAULT VALUES.
+!                   -------------------
+
+!*         2.1      PRESET INDICES IN *YOERAD*
+!                   --------------------------
+
+LERAD1H=.FALSE.
+NLNGR1H=6
+
+LERADHS=.TRUE.
+LONEWSW=.TRUE.
+LECSRAD=.FALSE.
+
+!LE4ALB=.FALSE.
+!This is read from SU0PHY in NAEPHY and put in YOEPHY
+
+!- default setting of cloud optical properties
+!  liquid water cloud 0: Fouquart    (SW), Smith-Shi   (LW)
+!                     1: Slingo      (SW), Savijarvi   (LW)
+!                     2: Slingo      (SW), Lindner-Li  (LW)
+!  ice water cloud    0: Ebert-Curry (SW), Smith-Shi   (LW)
+!                     1: Ebert-Curry (SW), Ebert-Curry (LW)
+!                     2: Fu-Liou'93  (SW), Fu-Liou'93  (LW)
+!                     3: Fu'96       (SW), Fu et al'98 (LW)
+NLIQOPT=2           ! before 3?R1 default=0    2
+NICEOPT=3           ! before 3?R1 default=1    3
+
+!- default setting of cloud effective radius/diameter
+!  liquid water cloud 0: f(P) 10 to 45
+!                     1: 13: ocean; 10: land
+!                     2: Martin et al. CCN 50 over ocean, 900 over land
+!  ice water cloud    0: 40 microns
+!                     1: f(T) 40 to 130 microns
+!                     2: f(T) 30 to 60
+!                     3: f(T,IWC) Sun'01: 22.5 to 175 microns
+!  conversion factor between effective radius and particle size for ice
+NRADIP=3            ! before 3?R1 default=2 	3
+NRADLP=2            ! before 3?R1 default=2	2
+print *,'SUECRAD: NRADLP, NRADIP=',NRADLP,NRADIP
+RRe2De=0.64952_JPRB ! before 3?R1 default=0.5_JPRB
+
+!- RRTM as LW scheme
+LRRTM  = .FALSE.
+LECMWF = .FALSE.
+IF (iflag_rrtm.EQ.1) THEN
+        LRRTM  = .TRUE.
+        LECMWF = .TRUE.
+!       LRRTM  = .FALSE.  ! Utiliser pour faire tourner le "vieux" rayonnement
+!       LECMWF = .FALSE. 
+ENDIF
+!- SRTM as SW scheme
+!!!!! A REVOIR (MPL) verifier signification de LSRTM
+LSRTM = .FALSE.     ! before 3?R1 default was .FALSE.    true
+
+! -- McICA treatment of cloud-radiation interactions 
+! - 1 is maximum-random, 2 is generalized cloud overlap (before 31R1 default=0 no McICA)
+NMcICA = 2          !  2 for generalized overlap
+
+!- Inhomogeneity factors in LW and SW (0=F, 1=0.7 in both, 2=Barker's, 3=Cairns)
+NINHOM = 0          ! before 3?R1 default=1
+NLAYINH= 0
+RLWINHF = 1.0_JPRB  ! before 3?R1 default=0.7
+RSWINHF = 1.0_JPRB  ! before 3?R1 default=0.7  
+!- Diffusivity correction a la Savijarvi
+LDIFFC = .FALSE.    ! before 31R1 default=.FALSE. 
+
+!- history of volcanic aerosols
+LHVOLCA=.FALSE.
+!- monthly climatol. of tropospheric aerosols from Tegen et al. (1997)
+LNEWAER=.TRUE.
+!!! cpl LNOTROAER=.FALSE.
+LNOTROAER=.TRUE.
+NPERTAER=0
+
+!- New Rayleigh formulation
+LRAYL=.TRUE.
+
+!- Number concentration of aerosols if specified
+LCCNL=.TRUE.        ! before 3?R1 default=.FALSE.     true
+LCCNO=.TRUE.        ! before 3?R1 default=.FALSE.     true
+RCCNLND=900._JPRB   ! before 3?R1 default=900. now irrelevant
+RCCNSEA=50._JPRB    ! before 3?R1 default=50.  now irrelevant
+
+!- interaction radiation / prognostic O3 off by default
+LEPO3RA=.FALSE.
+print *,'SUECRAD-0'
+IF (.NOT.YO3%LGP) THEN
+  LEPO3RA=.FALSE.
+ENDIF
+RPERTOZ=0._JPRB
+NPERTOZ=0
+
+!NAER: CONFIGURATION INDEX FOR AEROSOLS
+!!!!! A REVOIR (MPL) a mettre dans un fichier .def
+NAER   =1
+NMODE  =0
+NOZOCL =1
+NRADFR =-3
+IF (NSMAX >= 511) NRADFR =-1
+NRADPFR=0
+NRADPLA=15
+
+! -- UV diagnostic of surface fluxes over the 280-400 nm interval 
+!    with up-to 24 values (5 nm wide spectral intervals)
+LUVPROC=.FALSE.
+LUVTDEP=.TRUE.
+LUVDBG =.FALSE.
+NRADUV =-3
+NUVTIM = 0
+NUV    = 24
+RMUZUV = 1.E-01_JPRB
+DO JUV=1,NUV
+  RUVLAM(JUV)=280._JPRB+(JUV-1)*5._JPRB
+ENDDO
+
+!- radiation interpolation (George M's grid on by default)
+LLDEBUG=.TRUE.
+LEDBUG=.FALSE.
+NRADINT=3
+NRADRES=0
+
+NRINT  =4
+
+LRADLB=.TRUE.
+CRTABLEDIR='./'
+CRTABLEFIL='not set'
+LRADONDEM=.TRUE.
+!GM Temporary as per trans/external/setup_trans.F90
+LLINEAR_GRID=NSMAX > (NDLON+3)/3
+IF( LLDEBUG )THEN
+  WRITE(NULOUT,'("SUECRAD: NSMAX=",I6)')NSMAX
+  WRITE(NULOUT,'("SUECRAD: NDLON=",I6)')NDLON
+  WRITE(NULOUT,'("SUECRAD: LLINEAR_GRID=",L5)')LLINEAR_GRID
+ENDIF
+
+NUAER  = 24
+NTRAER = 15
+! 1: max-random, 2: max, 3: random (5,6,7,8 pour meso-NH)
+! le CASE qui suit car les conventions sont differentes dans ARP et LMDZ (MPL 20100415)
+SELECT CASE (overlap)
+  CASE (:1)
+   NOVLP = 2    
+  CASE (2)
+   NOVLP = 3    
+  CASE (3:)
+   NOVLP = 1    
+  END SELECT
+print *,'SUECRAD: NOVLP=',NOVLP
+NLW    = 6
+NTSW   = 14
+!NSW    = 6    !!!!! Maintenant dans config.def (MPL 20140213)
+NSWNL  = 6
+NSWTL  = 2
+NCSRADF= 1
+IF(NSMAX >= 106) THEN
+  NRPROMA = 80
+ELSEIF(NSMAX == 63) THEN
+  NRPROMA=48
+ELSE
+  NRPROMA=64
+ENDIF
+
+!*         2.3      SET SECURITY PARAMETERS
+!                   -----------------------
+
+REPSC  = 1.E-04_JPRB
+REPSCO = 1.E-12_JPRB
+REPSCQ = 1.E-12_JPRB
+REPSCT = 1.E-12_JPRB
+REPSCW = 1.E-12_JPRB
+REPLOG = 1.E-12_JPRB
+
+
+!*          2.4     BACKGROUND GAS CONCENTRATIONS (IPCC/SACC, 1990)
+!                   -----------------------------------------------
+
+LECO2VAR=.FALSE.
+LHGHG   =.FALSE.
+NHINCSOL= 0
+NSCEN   = 1
+RSOLINC = RI0
+
+! Valeurs d origine MPL 18052010
+!RCCO2   = 353.E-06_JPRB
+!RCCH4   = 1.72E-06_JPRB
+!RCN2O   = 310.E-09_JPRB
+!RCCFC11 = 280.E-12_JPRB
+!RCCFC12 = 484.E-12_JPRB
+
+! Valeurs LMDZ (physiq.def) MPL 18052010
+RCCO2   = 348.E-06_JPRB
+RCCH4   = 1.65E-06_JPRB
+RCN2O   = 306.E-09_JPRB
+RCCFC11 = 280.E-12_JPRB
+RCCFC12 = 484.E-12_JPRB
+print *,'SUECRAD-1'
+
+!     ------------------------------------------------------------------
+
+!*         3.       READ VALUES OF RADIATION CONFIGURATION
+!                   --------------------------------------
+
+!CALL POSNAM(NULNAM,'NAERAD')
+!READ (NULNAM,NAERAD)
+print *,'SUECRAD-2'
+
+!CALL POSNAM(NULNAM,'NAEAER')
+!READ (NULNAM,NAEAER)
+
+!IF (NTYPAER(9) /= 0) THEN
+!  RGEMUV=(RLATVOL+90._JPRB)*RPI/180._JPRB
+!  RGELAV=RLONVOL*RPI/180._JPRB
+!  RCLONV=COS(RGELAV)
+!  RSLONV=SIN(RGELAV)
+!  DO J=1,NGPTOT-1
+!    IF (RGELAV > GELAM(J) .AND. RGELAV <= GELAM(J+1) .AND. &
+!      & RGEMUV < RMU(JL) .AND. RGEMUV >= RMU(JL+1) ) THEN
+!      RDGMUV=ABS( RMU(J+1) - RMU(J))
+!      RDGLAV=ABS( GELAM(J+1)-GELAM(J) )
+!      RDSLONV=ABS( SIN(GELAM(JL+1))-SIN(GELAM(JL)) )
+!      RDCLONV=ABS( COS(GELAM(JL+1))-COS(GELAM(JL)) )
+!    END IF
+!  END DO
+!END IF  
+
+!- reset some parameters if SW6 is used (revert to pre-CY3?R1 operational configuration)
+IF (.NOT.LSRTM) THEN
+  NMcICA = 0
+  LCCNL  = .FALSE. 
+  LCCNO  = .FALSE.
+  LDIFFC = .FALSE.
+  NICEOPT= 1
+  NLIQOPT= 0
+  NRADIP = 4
+  NRADLP = 3
+  RRe2De = 0.5_JPRB
+  NINHOM = 1
+  RLWINHF= 0.7_JPRB
+  RSWINHF= 0.7_JPRB
+ENDIF
+print *,'SUECRAD-3'
+
+!- for McICA computations, make sure these parameters are as follows ...
+IF (NMCICA /= 0) THEN
+  NINHOM = 0
+  RLWINHF= 1.0_JPRB
+  RSWINHF= 1.0_JPRB
+!-- read the XCW values for Raisanen-Cole-Barker cloud generator
+  CALL SU_McICA
+ENDIF
+print *,'SUECRAD-4'
+
+
+
+IF( LLDEBUG )THEN
+  WRITE(NULOUT,'("SUECRAD: NRADINT=",I2)')NRADINT
+  WRITE(NULOUT,'("SUECRAD: NRADRES=",I4)')NRADRES
+ENDIF
+
+!     DETERMINE WHETHER NRPROMA IS NEGATIVE AND SET LOPTRPROMA
+
+LOPTRPROMA=NRPROMA > 0
+NRPROMA=ABS(NRPROMA)
+
+IF( NRADINT > 0 .AND. NRADRES == NSMAX )THEN
+  WRITE(NULOUT,'("SUECRAD: NRADINT > 0 .AND. NRADRES = NSMAX, NRADINT RESET TO 0")')
+  NRADINT=0
+ENDIF
+
+IF( NRADINT > 0 .AND. LRAYFM .AND. NAER /= 0 .AND. .NOT.LHVOLCA )THEN
+!   This combination is not supported as aerosol data would be
+!   required to be interpolated (see radintg)
+  WRITE(NULOUT,'("SUECRAD: NRADINT>0, LRAYFM=T NAER /= 0 .AND. LHVOLCA=F,",&
+   & " NRADRES RESET TO NSMAX (NO INTERPOLATION)")')  
+  NRADRES=NSMAX
+ENDIF
+!CALL GSTATS(1818,1)      MPL 2.12.08
+
+100 CONTINUE
+
+IF( LERADI )THEN   ! START OF LERADI BLOCK
+
+  IF( NRADINT == -1 )THEN
+
+  !     INITIALISE DATA STRUCTURES REQUIRED FOR RADIATION INTERPOLATION
+
+    LODBGRADI=.FALSE.
+    CALL SUECRADI
+
+  !     INITIALISE DATA STRUCTURES REQUIRED FOR RADIATION COURSE GRID
+  !     LOAD BALANCING
+
+    LODBGRADL=.FALSE.
+!   CALL SUECRADL    ! MPL 1.12.08
+    CALL ABOR1('JUSTE APRES CALL SUECRADL COMMENTE')
+
+  ELSEIF( NRADINT == 0 )THEN
+
+    IF( NRADRES /= NSMAX )THEN
+      WRITE(NULOUT,'("SUECRAD: NRADINT=0 REQUESTED, NRADRES RESET TO NSMAX")')
+      NRADRES=NSMAX
+    ENDIF
+    RADGRID%NGPTOT=NGPTOT
+
+    NARIB1=0
+    NAROB1=0
+
+  ELSEIF( NRADINT >=1 .AND. NRADINT <= 3 )THEN
+
+    NARIB1=0
+    NAROB1=0
+
+! set the default radiation grid resolution for the current model resolution
+! if not already specified
+    IF( NRADRES == 0 )THEN
+      IF( LLINEAR_GRID )THEN                ! RATIO OF GRID-POINTS (MODEL/RAD)
+        IF( NSMAX == 63 )THEN               
+          NRADRES=21                        ! 3.62
+          LLINEAR_GRID=.FALSE.
+        ENDIF
+        IF( NSMAX ==   95 ) NRADRES=   95   ! 1.00
+        IF( NSMAX ==  159 ) NRADRES=   63   ! 5.84
+        IF( NSMAX ==  255 ) NRADRES=   95   ! 6.69
+        IF( NSMAX ==  319 ) NRADRES=  159   ! 3.87
+        IF( NSMAX ==  399 ) NRADRES=  159   ! 5.99
+        IF( NSMAX ==  511 ) NRADRES=  255   ! 3.92
+        IF( NSMAX ==  639 ) NRADRES=  319   ! 3.92
+        IF( NSMAX ==  799 ) NRADRES=  399   ! 3.94
+        IF( NSMAX == 1023 ) NRADRES=  511   ! 3.94
+        IF( NSMAX == 1279 ) NRADRES=  639       ! 
+        IF( NSMAX == 2047 ) NRADRES= 1023       ! 
+      ELSE ! NOT LINEAR GRID                
+        IF( NSMAX ==   21 ) NRADRES=   21   ! 1.00
+        IF( NSMAX ==   42 ) NRADRES=   21   ! 3.62
+        IF( NSMAX ==   63 ) NRADRES=   42   ! 2.17
+        IF( NSMAX ==  106 ) NRADRES=   63   ! 2.69
+        IF( NSMAX ==  170 ) NRADRES=   63   ! 6.69
+        IF( NSMAX ==  213 ) NRADRES=  106   ! 3.87
+        IF( NSMAX ==  266 ) NRADRES=  106   ! 5.99
+        IF( NSMAX ==  341 ) NRADRES=  170   ! 3.92
+        IF( NSMAX ==  426 ) NRADRES=  213   ! 3.92
+        IF( NSMAX ==  533 ) NRADRES=  266   ! 3.94
+        IF( NSMAX ==  682 ) NRADRES=  341   ! 3.94
+      ENDIF
+    ENDIF
+print *,'SUECRAD-5'
+
+! test if radiation grid resolution has been set
+    IF( NRADRES == 0 )THEN
+      WRITE(NULOUT,'("SUECRAD: NRADRES NOT SET OR DEFAULT FOUND,NSMAX=",I4)')NSMAX
+      CALL ABOR1('SUECRAD: NRADRES NOT SET OR DEFAULT FOUND')
+    ENDIF
+
+! test if no interpolation is required
+    IF( NRADINT > 0 .AND. NRADRES == NSMAX )THEN
+      WRITE(NULOUT,'("SUECRAD: NRADINT > 0 .AND. NRADRES = NSMAX, NRADINT RESET TO 0")')
+      NRADINT=0
+      GOTO 100
+    ENDIF
+
+!    CALL GSTATS(1818,0)       MPL 2.12.08
+    IF( CRTABLEFIL == 'not set' )THEN
+      IF( LLINEAR_GRID )THEN
+        IF( NRADRES < 1000 )THEN
+          WRITE(CRTABLEFIL,'("rtablel_2",I3.3)')NRADRES
+        ELSE
+          WRITE(CRTABLEFIL,'("rtablel_2",I4.4)')NRADRES
+        ENDIF
+      ELSE
+        IF( NRADRES < 1000 )THEN
+          WRITE(CRTABLEFIL,'("rtable_2" ,I3.3)')NRADRES
+        ELSE
+          WRITE(CRTABLEFIL,'("rtable_2" ,I4.4)')NRADRES
+        ENDIF
+      ENDIF
+    ENDIF
+!    CALL GSTATS(1818,1)       MPL 2.12.08
+
+    RADGRID%NSMAX=NRADRES
+
+    IF( MYPROC == JPIOMASTER )THEN
+      IDIR=LEN_TRIM(CRTABLEDIR)
+      IFIL=LEN_TRIM(CRTABLEFIL)
+      CLFN=CRTABLEDIR(1:IDIR)//CRTABLEFIL(1:IFIL)
+! Ce qui concerne NULRAD commente par MPL le 15.04.09
+!     OPEN(NULRAD,FILE=CLFN,ACTION="READ",ERR=999)
+!     GOTO 1000
+!     999 CONTINUE
+!     WRITE(NULOUT,'("SUECRAD: UNABLE TO OPEN FILE ",A)')CLFN
+!     CALL ABOR1('SUECRAD: UNABLE TO OPEN RADIATION GRID RTABLE FILE')
+!     1000 CONTINUE
+      NRGRI(:)=0
+! Ce qui concerne NAMRGRI commente par MPL le 15.04.09
+!     CALL POSNAM(NULRAD,'NAMRGRI')
+!     READ (NULRAD,NAMRGRI)
+      IDGL=1
+      DO WHILE( NRGRI(IDGL)>0 )
+        IF( LLDEBUG )THEN
+          WRITE(NULOUT,'("SUECRAD: NRGRI(",I4,")=",I4)')IDGL,NRGRI(IDGL)
+        ENDIF
+        IDGL=IDGL+1
+      ENDDO
+      IDGL=IDGL-1
+      RADGRID%NDGLG=IDGL
+      IF( LLDEBUG )THEN
+        WRITE(NULOUT,'("SUECRAD: RADGRID%NDGLG=",I4)')RADGRID%NDGLG
+      ENDIF
+!     CLOSE(NULRAD)
+    ENDIF
+!    CALL GSTATS(667,0)     MPL 2.12.08
+    IF( NPROC > 1 )THEN
+      stop'Pas pret pour proc > 1'
+!     CALL MPL_BROADCAST (RADGRID%NDGLG,MTAGRAD,JPIOMASTER,CDSTRING='SUECRAD:')
+    ENDIF
+    ALLOCATE(RADGRID%NRGRI(RADGRID%NDGLG))
+    IF( MYPROC == JPIOMASTER )THEN
+      RADGRID%NRGRI(1:RADGRID%NDGLG)=NRGRI(1:RADGRID%NDGLG)
+    ENDIF
+    IF( NPROC > 1 )THEN
+      stop'Pas pret pour proc > 1'
+!     CALL MPL_BROADCAST (RADGRID%NRGRI(1:RADGRID%NDGLG),MTAGRAD,JPIOMASTER,CDSTRING='SUECRAD:')
+    ENDIF
+!    CALL GSTATS(667,1)      MPL 2.12.08
+
+!    CALL GSTATS(1818,0)     MPL 2.12.08
+    IF    ( NRADINT == 1 )THEN
+      WRITE(NULOUT,'("SUECRAD: INTERPOLATION METHOD - SPECTRAL TRANSFORM")')
+      RADGRID%NDGSUR=0
+      NRIWIDEN=0
+      NRIWIDES=0
+      NRIWIDEW=0
+      NRIWIDEE=0
+      NROWIDEN=0
+      NROWIDES=0
+      NROWIDEW=0
+      NROWIDEE=0
+    ELSEIF( NRADINT == 2 )THEN
+      WRITE(NULOUT,'("SUECRAD: INTERPOLATION METHOD - 4 POINT")')
+      RADGRID%NDGSUR=2
+    ELSEIF( NRADINT == 3 )THEN
+      WRITE(NULOUT,'("SUECRAD: INTERPOLATION METHOD - 12 POINT")')
+      RADGRID%NDGSUR=2
+    ENDIF
+    WRITE(NULOUT,'("SUECRAD: RADGRID%NDGSUR       =",I8)')RADGRID%NDGSUR
+
+    RADGRID%NDGSAG=1-RADGRID%NDGSUR
+    RADGRID%NDGENG=RADGRID%NDGLG+RADGRID%NDGSUR
+    RADGRID%NDLON=RADGRID%NRGRI(RADGRID%NDGLG/2)
+    WRITE(NULOUT,'("SUECRAD: RADGRID%NDGSAG       =",I8)')RADGRID%NDGSAG
+    WRITE(NULOUT,'("SUECRAD: RADGRID%NDGENG       =",I8)')RADGRID%NDGENG
+    WRITE(NULOUT,'("SUECRAD: RADGRID%NDGLG        =",I8)')RADGRID%NDGLG
+    WRITE(NULOUT,'("SUECRAD: RADGRID%NDLON        =",I8)')RADGRID%NDLON
+    CALL FLUSH(NULOUT)
+
+    ALLOCATE(RADGRID%NLOENG(RADGRID%NDGSAG:RADGRID%NDGENG))
+    RADGRID%NLOENG(1:RADGRID%NDGLG)=RADGRID%NRGRI(1:RADGRID%NDGLG)
+    IF(RADGRID%NDGSUR >= 1)THEN
+      DO JGLSUR=1,RADGRID%NDGSUR
+        RADGRID%NLOENG(1-JGLSUR)=RADGRID%NLOENG(JGLSUR)
+      ENDDO
+      DO JGLSUR=1,RADGRID%NDGSUR
+        RADGRID%NLOENG(RADGRID%NDGLG+JGLSUR)=RADGRID%NLOENG(RADGRID%NDGLG+1-JGLSUR)
+      ENDDO
+    ENDIF
+!     CALL GSTATS(1818,1)     MPL 2.12.08
+
+! Setup the transform package for the radiation grid
+    CALL SETUP_TRANS (KSMAX=RADGRID%NSMAX, &
+     & KDGL=RADGRID%NDGLG, &
+     & KLOEN=RADGRID%NLOENG(1:RADGRID%NDGLG), &
+     & LDLINEAR_GRID=LLINEAR_GRID, &
+     & LDSPLIT=LSPLIT, &
+     & KAPSETS=NAPSETS, &
+     & KRESOL=RADGRID%NRESOL_ID)
+
+    ALLOCATE(RADGRID%NSTA(RADGRID%NDGSAG:RADGRID%NDGENG+N_REGIONS_NS-1,N_REGIONS_EW))
+    ALLOCATE(RADGRID%NONL(RADGRID%NDGSAG:RADGRID%NDGENG+N_REGIONS_NS-1,N_REGIONS_EW))
+    ALLOCATE(RADGRID%NPTRFRSTLAT(N_REGIONS_NS))
+    ALLOCATE(RADGRID%NFRSTLAT(N_REGIONS_NS))
+    ALLOCATE(RADGRID%NLSTLAT(N_REGIONS_NS))
+    ALLOCATE(RADGRID%RMU(RADGRID%NDGSAG:RADGRID%NDGENG))
+    ALLOCATE(RADGRID%RSQM2(RADGRID%NDGSAG:RADGRID%NDGENG))
+    ALLOCATE(RADGRID%RLATIG(RADGRID%NDGSAG:RADGRID%NDGENG))
+
+! Interrogate the transform package for the radiation grid
+!    CALL GSTATS(1818,0)    MPL 2.12.08
+    CALL TRANS_INQ (KRESOL     =RADGRID%NRESOL_ID, &
+     & KSPEC2     =RADGRID%NSPEC2, &
+     & KNUMP      =RADGRID%NUMP, &
+     & KGPTOT     =RADGRID%NGPTOT, &
+     & KGPTOTG    =RADGRID%NGPTOTG, &
+     & KGPTOTMX   =RADGRID%NGPTOTMX, &
+     & KPTRFRSTLAT=RADGRID%NPTRFRSTLAT, &
+     & KFRSTLAT   =RADGRID%NFRSTLAT, &
+     & KLSTLAT    =RADGRID%NLSTLAT, &
+     & KFRSTLOFF  =RADGRID%NFRSTLOFF, &
+     & KSTA       =RADGRID%NSTA(1:RADGRID%NDGLG+N_REGIONS_NS-1,:), &
+     & KONL       =RADGRID%NONL(1:RADGRID%NDGLG+N_REGIONS_NS-1,:), &
+     & KPTRFLOFF  =RADGRID%NPTRFLOFF, &
+     & PMU        =RADGRID%RMU(1:) )  
+
+    IF( NRADINT == 2 .OR. NRADINT == 3 )THEN
+      DO JGL=1,RADGRID%NDGLG
+        RADGRID%RSQM2(JGL) = SQRT(1.0_JPRB - RADGRID%RMU(JGL)*RADGRID%RMU(JGL))
+        RADGRID%RLATIG(JGL) = ASIN(RADGRID%RMU(JGL))
+!       WRITE(NULOUT,'("SUECRAD: JGL=",I6," RADGRID%RLATIG=",F10.3)')&
+!        & JGL,RADGRID%RLATIG(JGL)
+      ENDDO
+      IF(RADGRID%NDGSUR >= 1)THEN
+        DO JGLSUR=1,RADGRID%NDGSUR
+          RADGRID%RMU(1-JGLSUR)=RADGRID%RMU(JGLSUR)
+          RADGRID%RSQM2(1-JGLSUR)=RADGRID%RSQM2(JGLSUR)
+          RADGRID%RLATIG(1-JGLSUR)=RPI-RADGRID%RLATIG(JGLSUR)
+        ENDDO
+        DO JGLSUR=1,RADGRID%NDGSUR
+          RADGRID%RMU(RADGRID%NDGLG+JGLSUR)=RADGRID%RMU(RADGRID%NDGLG+1-JGLSUR)
+          RADGRID%RSQM2(RADGRID%NDGLG+JGLSUR)=RADGRID%RSQM2(RADGRID%NDGLG+1-JGLSUR)
+          RADGRID%RLATIG(RADGRID%NDGLG+JGLSUR)=-RPI-RADGRID%RLATIG(RADGRID%NDGLG+1-JGLSUR)
+        ENDDO
+      ENDIF
+    ENDIF
+
+    RADGRID%NDGSAL=1
+    RADGRID%NDGENL=RADGRID%NLSTLAT(MY_REGION_NS)-RADGRID%NFRSTLOFF
+    RADGRID%NDSUR1=3-MOD(RADGRID%NDLON,2)
+    IDLSUR=MAX(RADGRID%NDLON,2*RADGRID%NSMAX+1)
+    RADGRID%NDLSUR=IDLSUR+RADGRID%NDSUR1
+    RADGRID%MYFRSTACTLAT=RADGRID%NFRSTLAT(MY_REGION_NS)
+    RADGRID%MYLSTACTLAT=RADGRID%NLSTLAT(MY_REGION_NS)
+
+    WRITE(NULOUT,'("SUECRAD: RADGRID%NRESOL_ID    =",I8)')RADGRID%NRESOL_ID
+    WRITE(NULOUT,'("SUECRAD: RADGRID%NSMAX        =",I8)')RADGRID%NSMAX
+    WRITE(NULOUT,'("SUECRAD: RADGRID%NSPEC2       =",I8)')RADGRID%NSPEC2
+    WRITE(NULOUT,'("SUECRAD: RADGRID%NGPTOT       =",I8)')RADGRID%NGPTOT
+    WRITE(NULOUT,'("SUECRAD: RADGRID%NGPTOTG      =",I8)')RADGRID%NGPTOTG
+    WRITE(NULOUT,'("SUECRAD: RADGRID%NDGSAL       =",I8)')RADGRID%NDGSAL
+    WRITE(NULOUT,'("SUECRAD: RADGRID%NDGENL       =",I8)')RADGRID%NDGENL
+    WRITE(NULOUT,'("SUECRAD: RADGRID%NDSUR1       =",I8)')RADGRID%NDSUR1
+    WRITE(NULOUT,'("SUECRAD: RADGRID%NDLSUR       =",I8)')RADGRID%NDLSUR
+    WRITE(NULOUT,'("SUECRAD: RADGRID%MYFRSTACTLAT =",I8)')RADGRID%MYFRSTACTLAT
+    WRITE(NULOUT,'("SUECRAD: RADGRID%MYLSTACTLAT  =",I8)')RADGRID%MYLSTACTLAT
+    CALL FLUSH(NULOUT)
+
+    ALLOCATE(RADGRID%NASM0(0:RADGRID%NSPEC2))
+    ALLOCATE(RADGRID%MYMS(RADGRID%NUMP))
+    CALL TRANS_INQ (KRESOL     =RADGRID%NRESOL_ID, &
+     & KASM0      =RADGRID%NASM0, &
+     & KMYMS      =RADGRID%MYMS )  
+
+    ALLOCATE(RADGRID%GELAM(RADGRID%NGPTOT))
+    ALLOCATE(RADGRID%GELAT(RADGRID%NGPTOT))
+    ALLOCATE(RADGRID%GESLO(RADGRID%NGPTOT))
+    ALLOCATE(RADGRID%GECLO(RADGRID%NGPTOT))
+    ALLOCATE(RADGRID%GEMU (RADGRID%NGPTOT))
+
+    IOFF=0
+    ILAT=RADGRID%NPTRFLOFF
+    DO JGLAT=RADGRID%NFRSTLAT(MY_REGION_NS), &
+       & RADGRID%NLSTLAT(MY_REGION_NS)  
+      ZGEMU=RADGRID%RMU(JGLAT)
+      ILAT=ILAT+1
+      ISTLON  = RADGRID%NSTA(ILAT,MY_REGION_EW)
+      IENDLON = ISTLON-1 + RADGRID%NONL(ILAT,MY_REGION_EW)
+
+      DO JLON=ISTLON,IENDLON
+        ZLON=  REAL(JLON-1,JPRB)*2.0_JPRB*RPI &
+         & /REAL(RADGRID%NLOENG(JGLAT),JPRB)  
+        IOFF=IOFF+1
+        RADGRID%GELAM(IOFF) = ZLON
+        RADGRID%GELAT(IOFF) = ASIN(ZGEMU)
+        RADGRID%GESLO(IOFF) = SIN(ZLON)
+        RADGRID%GECLO(IOFF) = COS(ZLON)
+        RADGRID%GEMU (IOFF) = ZGEMU
+      ENDDO
+    ENDDO
+
+    IF( NRADINT == 2 .OR. NRADINT == 3 )THEN
+
+!   For grid point interpolations we need to calculate the halo size
+!   required by each processor
+
+      ALLOCATE(ZLATX(RADGRID%NGPTOTMX))
+      ALLOCATE(ZLONX(RADGRID%NGPTOTMX))
+      DO J=1,RADGRID%NGPTOT
+        ZLATX(J)=RADGRID%GELAT(J)/RPI*2.0_JPRB*90.0
+        ZLONX(J)=(RADGRID%GELAM(J)-RPI)/RPI*180.0
+      ENDDO
+      ZMINRADLAT=MINVAL(ZLATX(1:RADGRID%NGPTOT))
+      ZMAXRADLAT=MAXVAL(ZLATX(1:RADGRID%NGPTOT))
+      ZMINRADLON=MINVAL(ZLONX(1:RADGRID%NGPTOT))
+      ZMAXRADLON=MAXVAL(ZLONX(1:RADGRID%NGPTOT))
+      IF( LLDEBUG )THEN
+        WRITE(NULOUT,'("RADGRID,BEGIN")')
+        IF( MYPROC /= 1 )THEN
+          stop'Pas pret pour proc > 1'
+!         CALL MPL_SEND(RADGRID%NGPTOT,KDEST=NPRCIDS(1),KTAG=1,CDSTRING='SUECRAD.R')
+!         CALL MPL_SEND(ZLATX(1:RADGRID%NGPTOT),KDEST=NPRCIDS(1),KTAG=2,CDSTRING='SUECRAD.R')
+!         CALL MPL_SEND(ZLONX(1:RADGRID%NGPTOT),KDEST=NPRCIDS(1),KTAG=3,CDSTRING='SUECRAD.R')
+        ENDIF
+        IF( MYPROC == 1 )THEN
+          DO JROC=1,NPROC
+            IF( JROC == MYPROC )THEN
+              DO J=1,RADGRID%NGPTOT
+                WRITE(NULOUT,'(F7.2,2X,F7.2,2X,I6)')ZLATX(J),ZLONX(J),MYPROC
+              ENDDO
+            ELSE
+              stop'Pas pret pour proc > 1'
+!             CALL MPL_RECV(IGPTOT,KSOURCE=NPRCIDS(JROC),KTAG=1,CDSTRING='SUECRAD.M')
+!             CALL MPL_RECV(ZLATX(1:IGPTOT),KSOURCE=NPRCIDS(JROC),KTAG=2,CDSTRING='SUECRAD.M')
+!             CALL MPL_RECV(ZLONX(1:IGPTOT),KSOURCE=NPRCIDS(JROC),KTAG=3,CDSTRING='SUECRAD.M')
+              DO J=1,IGPTOT
+                WRITE(NULOUT,'(F7.2,2X,F7.2,2X,I6)')ZLATX(J),ZLONX(J),JROC
+              ENDDO
+            ENDIF
+          ENDDO
+        ENDIF
+        WRITE(NULOUT,'("RADGRID,END")')
+      ENDIF
+      DEALLOCATE(ZLATX)
+      DEALLOCATE(ZLONX)
+  
+      ALLOCATE(ZLATX(NGPTOTMX))
+      ALLOCATE(ZLONX(NGPTOTMX))
+      DO J=1,NGPTOT
+        ZLATX(J)=GELAT(J)/RPI*2.0_JPRB*90.0
+        ZLONX(J)=(GELAM(J)-RPI)/RPI*180.0
+      ENDDO
+      ZMINMDLLAT=MINVAL(ZLATX(1:NGPTOT))
+      ZMAXMDLLAT=MAXVAL(ZLATX(1:NGPTOT))
+      ZMINMDLLON=MINVAL(ZLONX(1:NGPTOT))
+      ZMAXMDLLON=MAXVAL(ZLONX(1:NGPTOT))
+      IF( LLDEBUG )THEN
+        WRITE(NULOUT,'("MODELGRID,BEGIN")')
+        IF( MYPROC /= 1 )THEN
+          stop'Pas pret pour proc > 1'
+!         CALL MPL_SEND(NGPTOT,KDEST=NPRCIDS(1),KTAG=1,CDSTRING='SUECRAD')
+!         CALL MPL_SEND(ZLATX(1:NGPTOT),KDEST=NPRCIDS(1),KTAG=2,CDSTRING='SUECRAD')
+!         CALL MPL_SEND(ZLONX(1:NGPTOT),KDEST=NPRCIDS(1),KTAG=3,CDSTRING='SUECRAD')
+!         CALL MPL_SEND(NGLOBALINDEX(1:NGPTOT),KDEST=NPRCIDS(1),KTAG=4,CDSTRING='SUECRAD')
+        ENDIF
+        IF( MYPROC == 1 )THEN
+          DO JROC=1,NPROC
+            IF( JROC == MYPROC )THEN
+              DO J=1,NGPTOT
+                WRITE(NULOUT,'(F7.2,2X,F7.2,2X,I6,2X,I12)')ZLATX(J),ZLONX(J),MYPROC,NGLOBALINDEX(J)
+              ENDDO
+            ELSE
+              stop'Pas pret pour proc > 1'
+!             CALL MPL_RECV(IGPTOT,KSOURCE=NPRCIDS(JROC),KTAG=1,CDSTRING='SUECRAD')
+!             CALL MPL_RECV(ZLATX(1:IGPTOT),KSOURCE=NPRCIDS(JROC),KTAG=2,CDSTRING='SUECRAD')
+!             CALL MPL_RECV(ZLONX(1:IGPTOT),KSOURCE=NPRCIDS(JROC),KTAG=3,CDSTRING='SUECRAD')
+              ALLOCATE(IGLOBALINDEX(1:IGPTOT))
+!             CALL MPL_RECV(IGLOBALINDEX(1:IGPTOT),KSOURCE=NPRCIDS(JROC),KTAG=4,CDSTRING='SUECRAD')
+              DO J=1,IGPTOT
+                WRITE(NULOUT,'(F7.2,2X,F7.2,2X,I6,2X,I12)')ZLATX(J),ZLONX(J),JROC,IGLOBALINDEX(J)
+              ENDDO
+              DEALLOCATE(IGLOBALINDEX)
+            ENDIF
+          ENDDO
+        ENDIF
+        WRITE(NULOUT,'("MODELGRID,END")')
+      ENDIF
+      DEALLOCATE(ZLATX)
+      DEALLOCATE(ZLONX)
+  
+      IF( LLDEBUG )THEN
+        WRITE(NULOUT,'("ZMINRADLAT=",F10.2)')ZMINRADLAT
+        WRITE(NULOUT,'("ZMINMDLLAT=",F10.2)')ZMINMDLLAT
+        WRITE(NULOUT,'("ZMAXRADLAT=",F10.2)')ZMAXRADLAT
+        WRITE(NULOUT,'("ZMAXMDLLAT=",F10.2)')ZMAXMDLLAT
+        WRITE(NULOUT,'("ZMINRADLON=",F10.2)')ZMINRADLON
+        WRITE(NULOUT,'("ZMINMDLLON=",F10.2)')ZMINMDLLON
+        WRITE(NULOUT,'("ZMAXRADLON=",F10.2)')ZMAXRADLON
+        WRITE(NULOUT,'("ZMAXMDLLON=",F10.2)')ZMAXMDLLON
+      ENDIF
+
+      ZLAT=NDGLG/180.
+      ILATS_DIFF_C=CEILING(ABS(ZMINRADLAT-ZMINMDLLAT)*ZLAT)
+      ILATS_DIFF_F=FLOOR  (ABS(ZMINRADLAT-ZMINMDLLAT)*ZLAT)
+      IF( ZMINRADLAT < ZMINMDLLAT )THEN
+        NRIWIDES=JP_MIN_HALO+ILATS_DIFF_C
+      ELSE
+        NRIWIDES=MAX(0,JP_MIN_HALO-ILATS_DIFF_F)
+      ENDIF
+      ILATS_DIFF_C=CEILING(ABS(ZMAXRADLAT-ZMAXMDLLAT)*ZLAT)
+      ILATS_DIFF_F=FLOOR  (ABS(ZMAXRADLAT-ZMAXMDLLAT)*ZLAT)
+      IF( ZMAXRADLAT < ZMAXMDLLAT )THEN
+        NRIWIDEN=MAX(0,JP_MIN_HALO-ILATS_DIFF_F)
+      ELSE
+        NRIWIDEN=JP_MIN_HALO+ILATS_DIFF_C
+      ENDIF
+      ILATS_DIFF_C=CEILING(ABS(ZMINRADLON-ZMINMDLLON)*ZLAT)
+      ILATS_DIFF_F=FLOOR  (ABS(ZMINRADLON-ZMINMDLLON)*ZLAT)
+      IF( ZMINRADLON < ZMINMDLLON )THEN
+        NRIWIDEW=JP_MIN_HALO+ILATS_DIFF_C
+      ELSE
+        NRIWIDEW=MAX(0,JP_MIN_HALO-ILATS_DIFF_F)
+      ENDIF
+      ILATS_DIFF_C=CEILING(ABS(ZMAXRADLON-ZMAXMDLLON)*ZLAT)
+      ILATS_DIFF_F=FLOOR  (ABS(ZMAXRADLON-ZMAXMDLLON)*ZLAT)
+      IF( ZMAXRADLON < ZMAXMDLLON )THEN
+        NRIWIDEE=MAX(0,JP_MIN_HALO-ILATS_DIFF_F)
+      ELSE
+        NRIWIDEE=JP_MIN_HALO+ILATS_DIFF_C
+      ENDIF
+
+      ZLAT=RADGRID%NDGLG/180.
+      ILATS_DIFF_C=CEILING(ABS(ZMINRADLAT-ZMINMDLLAT)*ZLAT)
+      ILATS_DIFF_F=FLOOR  (ABS(ZMINRADLAT-ZMINMDLLAT)*ZLAT)
+      IF( ZMINMDLLAT < ZMINRADLAT )THEN
+        NROWIDES=JP_MIN_HALO+ILATS_DIFF_C
+      ELSE
+        NROWIDES=MAX(0,JP_MIN_HALO-ILATS_DIFF_F)
+      ENDIF
+      ILATS_DIFF_C=CEILING(ABS(ZMAXRADLAT-ZMAXMDLLAT)*ZLAT)
+      ILATS_DIFF_F=FLOOR  (ABS(ZMAXRADLAT-ZMAXMDLLAT)*ZLAT)
+      IF( ZMAXMDLLAT < ZMAXRADLAT )THEN
+        NROWIDEN=MAX(0,JP_MIN_HALO-ILATS_DIFF_F)
+      ELSE
+        NROWIDEN=JP_MIN_HALO+ILATS_DIFF_C
+      ENDIF
+      ILATS_DIFF_C=CEILING(ABS(ZMINRADLON-ZMINMDLLON)*ZLAT)
+      ILATS_DIFF_F=FLOOR  (ABS(ZMINRADLON-ZMINMDLLON)*ZLAT)
+      IF( ZMINMDLLON < ZMINRADLON )THEN
+        NROWIDEW=JP_MIN_HALO+ILATS_DIFF_C
+      ELSE
+        NROWIDEW=MAX(0,JP_MIN_HALO-ILATS_DIFF_F)
+      ENDIF
+      ILATS_DIFF_C=CEILING(ABS(ZMAXRADLON-ZMAXMDLLON)*ZLAT)
+      ILATS_DIFF_F=FLOOR  (ABS(ZMAXRADLON-ZMAXMDLLON)*ZLAT)
+      IF( ZMAXMDLLON < ZMAXRADLON )THEN
+        NROWIDEE=MAX(0,JP_MIN_HALO-ILATS_DIFF_F)
+      ELSE
+        NROWIDEE=JP_MIN_HALO+ILATS_DIFF_C
+      ENDIF
+
+    ENDIF
+
+    RADGRID%NDGSAH=MAX(RADGRID%NDGSAG,&
+     & RADGRID%NDGSAL+RADGRID%NFRSTLOFF-NROWIDEN)-RADGRID%NFRSTLOFF  
+    RADGRID%NDGENH=MIN(RADGRID%NDGENG,&
+     & RADGRID%NDGENL+RADGRID%NFRSTLOFF+NROWIDES)-RADGRID%NFRSTLOFF  
+    WRITE(NULOUT,'("SUECRAD: RADGRID%NDGSAH       =",I8)')RADGRID%NDGSAH
+    WRITE(NULOUT,'("SUECRAD: RADGRID%NDGENH       =",I8)')RADGRID%NDGENH
+
+    IF( NRADINT == 2 .OR. NRADINT == 3 )THEN
+
+      ILBRLATI = MAX(RADGRID%NDGSAG,&
+       & RADGRID%NDGSAL+RADGRID%NFRSTLOFF-NROWIDEN)-RADGRID%NFRSTLOFF  
+      IUBRLATI = MIN(RADGRID%NDGENG,&
+       & RADGRID%NDGENL+RADGRID%NFRSTLOFF+NROWIDES)-RADGRID%NFRSTLOFF  
+      ALLOCATE(RADGRID%RLATI(ILBRLATI:IUBRLATI))
+      ALLOCATE(RADGRID%RIPI0(ILBRLATI:IUBRLATI))
+      ALLOCATE(RADGRID%RIPI1(ILBRLATI:IUBRLATI))
+      ALLOCATE(RADGRID%RIPI2(ILBRLATI:IUBRLATI))
+  
+      DO JGL= ILBRLATI,IUBRLATI
+        IGLGLO=JGL+RADGRID%NFRSTLOFF
+        IF(IGLGLO >= 0.AND.IGLGLO <= RADGRID%NDGLG) THEN
+          ZD1=RADGRID%RLATIG(IGLGLO-1)-RADGRID%RLATIG(IGLGLO)
+          ZD2=RADGRID%RLATIG(IGLGLO-1)-RADGRID%RLATIG(IGLGLO+1)
+          ZD3=RADGRID%RLATIG(IGLGLO-1)-RADGRID%RLATIG(IGLGLO+2)
+          ZD4=RADGRID%RLATIG(IGLGLO  )-RADGRID%RLATIG(IGLGLO+1)
+          ZD5=RADGRID%RLATIG(IGLGLO  )-RADGRID%RLATIG(IGLGLO+2)
+          ZD6=RADGRID%RLATIG(IGLGLO+1)-RADGRID%RLATIG(IGLGLO+2)
+          RADGRID%RIPI0(JGL)=-1.0_JPRB/(ZD1*ZD4*ZD5)
+          RADGRID%RIPI1(JGL)= 1.0_JPRB/(ZD2*ZD4*ZD6)
+          RADGRID%RIPI2(JGL)=-1.0_JPRB/(ZD3*ZD5*ZD6)
+        ENDIF
+        RADGRID%RLATI(JGL)=RADGRID%RLATIG(IGLGLO)
+      ENDDO
+
+      IF( NPROC > 1 )THEN
+        IRIRPTSUR=NGPTOTG
+        IRISPTSUR=2*NGPTOTG
+      ELSE
+        IRIRPTSUR=0
+        IRISPTSUR=0
+      ENDIF
+
+      ALLOCATE(NRISTA(NDGSAL-NRIWIDEN:NDGENL+NRIWIDES))
+      ALLOCATE(NRIONL(NDGSAL-NRIWIDEN:NDGENL+NRIWIDES))
+      ALLOCATE(NRIOFF(NDGSAL-NRIWIDEN:NDGENL+NRIWIDES))
+      ALLOCATE(NRIEXT(1-NDLON:NDLON+NDLON,1-NRIWIDEN:NDGENL+NRIWIDES))
+      ALLOCATE(NRICORE(NGPTOT))
+      ALLOCATE(IRISENDPOS(IRISPTSUR))
+      ALLOCATE(IRIRECVPOS(IRIRPTSUR))
+      ALLOCATE(IRISENDPTR(NPROC+1))
+      ALLOCATE(IRIRECVPTR(NPROC+1))
+      ALLOCATE(IRICOMM(NPROC))
+      ALLOCATE(IRIMAP(4,NDGLG))
+! MPL 1.12.08      
+!     CALL RDCSET('RI',NRIWIDEN,NRIWIDES,NRIWIDEW,NRIWIDEE,&
+!      & IRIRPTSUR,IRISPTSUR,&
+!      & NDGLG,NDLON,NDGSAG,NDGENG,IDUM,IDUM,NDGSAL,NDGENL,&
+!      & NDSUR1,NDLSUR,NDGSUR,NGPTOT,IDUM,&
+!      & NPTRFLOFF,NFRSTLOFF,MYFRSTACTLAT,MYLSTACTLAT,&
+!      & NSTA,NONL,NLOENG,NPTRFRSTLAT,NFRSTLAT,NLSTLAT,&
+!      & RMU,RSQM2,&
+!      & NRISTA,NRIONL,NRIOFF,NRIEXT,NRICORE,NARIB1,&
+!      & NRIPROCS,NRIMPBUFSZ,NRIRPT,NRISPT,&
+!      & IRISENDPOS,IRIRECVPOS,IRISENDPTR,IRIRECVPTR,IRICOMM,IRIMAP,IRIMAPLEN)  
+      CALL ABOR1('JUSTE APRES CALL RDCSET COMMENTE')
+      WRITE(NULOUT,'("SUECRAD: NARIB1=",I12)')NARIB1
+      ALLOCATE(NRISENDPOS(NRISPT))
+      ALLOCATE(NRIRECVPOS(NRIRPT))
+      ALLOCATE(NRISENDPTR(NRIPROCS+1))
+      ALLOCATE(NRIRECVPTR(NRIPROCS+1))
+      ALLOCATE(NRICOMM(NRIPROCS))
+      NRISENDPOS(1:NRISPT)=IRISENDPOS(1:NRISPT)
+      NRIRECVPOS(1:NRIRPT)=IRIRECVPOS(1:NRIRPT)
+      NRISENDPTR(1:NRIPROCS+1)=IRISENDPTR(1:NRIPROCS+1)
+      NRIRECVPTR(1:NRIPROCS+1)=IRIRECVPTR(1:NRIPROCS+1)
+      NRICOMM(1:NRIPROCS)=IRICOMM(1:NRIPROCS)
+      DEALLOCATE(IRISENDPOS)
+      DEALLOCATE(IRIRECVPOS)
+      DEALLOCATE(IRISENDPTR)
+      DEALLOCATE(IRIRECVPTR)
+      DEALLOCATE(IRICOMM)
+      DEALLOCATE(IRIMAP)
+
+      IF( NPROC > 1 )THEN
+        IRORPTSUR=RADGRID%NGPTOTG
+        IROSPTSUR=2*RADGRID%NGPTOTG
+      ELSE
+        IRORPTSUR=0
+        IROSPTSUR=0
+      ENDIF
+
+      ALLOCATE(NROSTA(RADGRID%NDGSAL-NROWIDEN:RADGRID%NDGENL+NROWIDES))
+      ALLOCATE(NROONL(RADGRID%NDGSAL-NROWIDEN:RADGRID%NDGENL+NROWIDES))
+      ALLOCATE(NROOFF(RADGRID%NDGSAL-NROWIDEN:RADGRID%NDGENL+NROWIDES))
+      ALLOCATE(NROEXT(1-RADGRID%NDLON:RADGRID%NDLON+RADGRID%NDLON,&
+       & 1-NROWIDEN:RADGRID%NDGENL+NROWIDES))  
+      ALLOCATE(NROCORE(RADGRID%NGPTOT))
+      ALLOCATE(IROSENDPOS(IROSPTSUR))
+      ALLOCATE(IRORECVPOS(IRORPTSUR))
+      ALLOCATE(IROSENDPTR(NPROC+1))
+      ALLOCATE(IRORECVPTR(NPROC+1))
+      ALLOCATE(IROCOMM(NPROC))
+      ALLOCATE(IROMAP(4,RADGRID%NDGLG))
+! MPL 1.12.08      
+!     CALL RDCSET('RO',NROWIDEN,NROWIDES,NROWIDEW,NROWIDEE,&
+!      & IRORPTSUR,IROSPTSUR,&
+!      & RADGRID%NDGLG,RADGRID%NDLON,RADGRID%NDGSAG,&
+!      & RADGRID%NDGENG,IDUM,IDUM,RADGRID%NDGSAL,RADGRID%NDGENL,&
+!      & RADGRID%NDSUR1,RADGRID%NDLSUR,RADGRID%NDGSUR,RADGRID%NGPTOT,IDUM,&
+!      & RADGRID%NPTRFLOFF,RADGRID%NFRSTLOFF,RADGRID%MYFRSTACTLAT,RADGRID%MYLSTACTLAT,&
+!      & RADGRID%NSTA,RADGRID%NONL,RADGRID%NLOENG,RADGRID%NPTRFRSTLAT,&
+!      & RADGRID%NFRSTLAT,RADGRID%NLSTLAT,&
+!      & RADGRID%RMU,RADGRID%RSQM2,&
+!      & NROSTA,NROONL,NROOFF,NROEXT,NROCORE,NAROB1,&
+!      & NROPROCS,NROMPBUFSZ,NRORPT,NROSPT,&
+!      & IROSENDPOS,IRORECVPOS,IROSENDPTR,IRORECVPTR,IROCOMM,IROMAP,IROMAPLEN)  
+      CALL ABOR1('JUSTE APRES CALL RDCSET COMMENTE')
+      WRITE(NULOUT,'("SUECRAD: NAROB1=",I12)')NAROB1
+      ALLOCATE(NROSENDPOS(NROSPT))
+      ALLOCATE(NRORECVPOS(NRORPT))
+      ALLOCATE(NROSENDPTR(NROPROCS+1))
+      ALLOCATE(NRORECVPTR(NROPROCS+1))
+      ALLOCATE(NROCOMM(NROPROCS))
+      NROSENDPOS(1:NROSPT)=IROSENDPOS(1:NROSPT)
+      NRORECVPOS(1:NRORPT)=IRORECVPOS(1:NRORPT)
+      NROSENDPTR(1:NROPROCS+1)=IROSENDPTR(1:NROPROCS+1)
+      NRORECVPTR(1:NROPROCS+1)=IRORECVPTR(1:NROPROCS+1)
+      NROCOMM(1:NROPROCS)=IROCOMM(1:NROPROCS)
+      DEALLOCATE(IROSENDPOS)
+      DEALLOCATE(IRORECVPOS)
+      DEALLOCATE(IROSENDPTR)
+      DEALLOCATE(IRORECVPTR)
+      DEALLOCATE(IROCOMM)
+      DEALLOCATE(IROMAP)
+
+      IF( LLDEBUG )THEN
+        WRITE(NULOUT,'("")')
+        IRIWIDEMAXN=0
+        IRIWIDEMAXS=0
+        IRIWIDEMAXW=0
+        IRIWIDEMAXE=0
+        IROWIDEMAXN=0
+        IROWIDEMAXS=0
+        IROWIDEMAXW=0
+        IROWIDEMAXE=0
+        IARIB1MAX=0
+        IAROB1MAX=0
+        IWIDE(1)=NRIWIDEN
+        IWIDE(2)=NRIWIDES
+        IWIDE(3)=NRIWIDEW
+        IWIDE(4)=NRIWIDEE
+        IWIDE(5)=NROWIDEN
+        IWIDE(6)=NROWIDES
+        IWIDE(7)=NROWIDEW
+        IWIDE(8)=NROWIDEE
+        IWIDE(9)=NARIB1
+        IWIDE(10)=NAROB1
+        IF( MYPROC /= 1 )THEN
+          stop'Pas pret pour proc > 1'
+!         CALL MPL_SEND(IWIDE(1:10),KDEST=NPRCIDS(1),KTAG=1,CDSTRING='SUECRAD.W')
+        ENDIF
+        IF( MYPROC == 1 )THEN
+          DO JROC=1,NPROC
+            IF( JROC /= MYPROC )THEN
+              stop'Pas pret pour proc > 1'
+!             CALL MPL_RECV(IWIDE(1:10),KSOURCE=NPRCIDS(JROC),KTAG=1,CDSTRING='SUECRAD.W')
+            ENDIF
+            WRITE(NULOUT,'("SUECRAD: PROC=",I5,2X,"NRIWIDEN=",I3,2X,"NROWIDEN=",I3 )')&
+             & JROC,IWIDE(1),IWIDE(5)  
+            WRITE(NULOUT,'("SUECRAD: PROC=",I5,2X,"NRIWIDES=",I3,2X,"NROWIDES=",I3 )')&
+             & JROC,IWIDE(2),IWIDE(6)  
+            WRITE(NULOUT,'("SUECRAD: PROC=",I5,2X,"NRIWIDEW=",I3,2X,"NROWIDEW=",I3 )')&
+             & JROC,IWIDE(3),IWIDE(7)  
+            WRITE(NULOUT,'("SUECRAD: PROC=",I5,2X,"NRIWIDEE=",I3,2X,"NROWIDEE=",I3 )')&
+             & JROC,IWIDE(4),IWIDE(8)  
+            WRITE(NULOUT,'("SUECRAD: PROC=",I5,2X,"NARIB1=",I10,2X,"NAROB1=",I10 )')&
+             & JROC,IWIDE(9),IWIDE(10)
+            WRITE(NULOUT,'("")')
+            IF( IWIDE(1) > IRIWIDEMAXN ) IRIWIDEMAXN=IWIDE(1)
+            IF( IWIDE(2) > IRIWIDEMAXS ) IRIWIDEMAXS=IWIDE(2)
+            IF( IWIDE(3) > IRIWIDEMAXW ) IRIWIDEMAXW=IWIDE(3)
+            IF( IWIDE(4) > IRIWIDEMAXE ) IRIWIDEMAXE=IWIDE(4)
+            IF( IWIDE(5) > IROWIDEMAXN ) IROWIDEMAXN=IWIDE(5)
+            IF( IWIDE(6) > IROWIDEMAXS ) IROWIDEMAXS=IWIDE(6)
+            IF( IWIDE(7) > IROWIDEMAXW ) IROWIDEMAXW=IWIDE(7)
+            IF( IWIDE(8) > IROWIDEMAXE ) IROWIDEMAXE=IWIDE(8)
+            IF( IWIDE(9)  > IARIB1MAX  ) IARIB1MAX  =IWIDE(9)
+            IF( IWIDE(10) > IAROB1MAX  ) IAROB1MAX  =IWIDE(10)
+          ENDDO
+          WRITE(NULOUT,'("")')
+          WRITE(NULOUT,'("SUECRAD: NRIWIDEN(MAX)  =",I8)')IRIWIDEMAXN
+          WRITE(NULOUT,'("SUECRAD: NRIWIDES(MAX)  =",I8)')IRIWIDEMAXS
+          WRITE(NULOUT,'("SUECRAD: NRIWIDEW(MAX)  =",I8)')IRIWIDEMAXW
+          WRITE(NULOUT,'("SUECRAD: NRIWIDEE(MAX)  =",I8)')IRIWIDEMAXE
+          WRITE(NULOUT,'("SUECRAD: NROWIDEN(MAX)  =",I8)')IROWIDEMAXN
+          WRITE(NULOUT,'("SUECRAD: NROWIDES(MAX)  =",I8)')IROWIDEMAXS
+          WRITE(NULOUT,'("SUECRAD: NROWIDEW(MAX)  =",I8)')IROWIDEMAXW
+          WRITE(NULOUT,'("SUECRAD: NROWIDEE(MAX)  =",I8)')IROWIDEMAXE
+          WRITE(NULOUT,'("SUECRAD: NARIB1(MAX)    =",I10)')IARIB1MAX
+          WRITE(NULOUT,'("SUECRAD: NAROB1(MAX)    =",I10)')IAROB1MAX
+          WRITE(NULOUT,'("")')
+        ENDIF
+        CALL FLUSH(NULOUT)
+      ENDIF
+
+    ENDIF
+!    CALL GSTATS(1818,1)      MPL 2.12.08
+
+  ELSE
+
+    WRITE(NULOUT,'("SUECRAD: INVALID VALUE FOR NRADINT=",I6)')NRADINT
+    CALL ABOR1('SUECRAD: NRADINT INVALID')
+
+  ENDIF
+
+ENDIF              ! END OF LERADI BLOCK
+
+!      ----------------------------------------------------------------
+
+!*       4.    INITIALIZE RADIATION COEFFICIENTS.
+!              ----------------------------------
+
+RCDAY   = RDAY * RG / RCPD
+DIFF   = 1.66_JPRB
+R10E   = 0.4342945_JPRB
+
+! CALL GSTATS(1818,0)    MPL 2.12.08
+CALL SURDI
+
+IF (NINHOM == 0) THEN
+  RLWINHF=1._JPRB
+  RSWINHF=1._JPRB
+ENDIF
+
+!      ----------------------------------------------------------------
+
+!*       5.    INITIALIZE RADIATION ABSORPTION COEFFICIENTS
+!              --------------------------------------------
+
+!*       5.1.  Initialization routine for RRTM
+!              -------------------------------
+
+CALL SURRTAB
+CALL SURRTPK
+CALL SURRTRF
+CALL SURRTFTR
+
+IF (LRRTM) THEN
+  IF (KLEV > JPLAY) THEN
+    WRITE(UNIT=KULOUT,&
+     & FMT='('' RRTM MAXIMUM NUMBER OF LAYERS IS REACHED'',&
+     & '' CALL ABORT'')')  
+    CALL ABOR1(' ABOR1 CALLED SUECRAD')
+  ENDIF
+    
+! Read the absorption coefficient data and reduce from 256 to 140 g-points
+
+  CALL RRTM_INIT_140GP
+
+  INBLW=16
+
+ELSE
+  INBLW=6
+
+ENDIF
+
+CALL SULWN
+CALL SUSWN   (NTSW, NSW)
+CALL SUCLOPN (NTSW, NSW, KLEV)
+
+!-- routines specific to SRTM
+IF (LSRTM) THEN
+  NTSW=14
+  ISW =14
+  CALL SRTM_INIT
+  CALL SUSRTAER
+  CALL SUSRTCOP
+  WRITE(UNIT=KULOUT,FMT='(''SRTM Configuration'',L8,3I4)')LSRTM,NTSW,ISW,JPGPT
+
+ELSE
+  IF (.NOT.LONEWSW .OR. ((NSW /= 2).AND.(NSW /= 4).AND.(NSW /= 6)) ) THEN
+    WRITE(UNIT=KULOUT,FMT='(''Wrong SW Configuration'',L8,I3)')LONEWSW,NSW
+  ENDIF
+
+  CALL SUSWN   (NTSW,NSW)
+  CALL SUAERSN (NTSW,NSW)
+ENDIF
+WRITE(UNIT=KULOUT,FMT='('' NLW,NTSW,NSW SET EQUAL TO:'',3I3)') INBLW,NTSW,NSW
+
+
+!-- routine specific to the UV processor
+IF (LUVPROC) THEN
+  NUVTIM = NUVTIM * 86400
+  CALL SU_UVRAD ( NUV )
+ENDIF
+
+!      ----------------------------------------------------------------
+
+!*       6.    INITIALIZE AEROSOL OPTICAL PARAMETERS AND DISTRIBUTION
+!              ------------------------------------------------------
+
+!- LW optical properties
+CALL SUAERL
+!- SW optical properties moved above
+!CALL SUAERSN (NTSW,NSW)
+
+!- horizontal distribution      
+CALL SUAERH
+
+!- vertical distribution
+CALL SUAERV ( KLEV  , PETAH,&
+ & CVDAES , CVDAEL , CVDAEU , CVDAED,&
+ & RCTRBGA, RCVOBGA, RCSTBGA, RCAEOPS, RCAEOPL, RCAEOPU,&
+ & RCAEOPD, RCTRPT , RCAEADK, RCAEADM, RCAEROS &
+ & )  
+
+!-- Overlap function (only used if NOVLP=4)
+! Appel supprime par MPL (30042010) car NOVLP=4 pas utilise
+! sinon il faudrait calculer le geopotentiel STZ
+!CALL SUOVLP ( KLEV )
+
+!-- parameters for prognostic aerosols
+CALL SU_AERW
+
+!      ----------------------------------------------------------------
+
+!*       7.    INITIALIZE SATELLITE GEOMETRICAL/RADIOMETRIC PARAMETERS
+!              -------------------------------------------------------
+
+IF (LEPHYS .AND. NMODE > 1) THEN
+  CALL SUSAT
+ENDIF
+!CALL GSTATS(1818,1)   MPL 2.12.08
+
+!      ----------------------------------------------------------------
+
+!*       8.    INITIALIZE CLIMATOLOGICAL OZONE DISTRIBUTION
+!              --------------------------------------------
+!                  (not done here!!!  called from APLPAR as it depends
+!                     on model pressure levels!)
+
+!      ----------------------------------------------------------------
+
+!*       9.    SET UP MODEL CONFIGURATION FOR TIME-SPACE INTERPOLATION
+!              -------------------------------------------------------
+
+ZTSTEP=MAX(TSTEP,1.0_JPRB)
+ZSTPHR=3600._JPRB/ZTSTEP
+IRADFR=NRADFR
+IF(NRADFR < 0) THEN
+  NRADFR=-NRADFR*ZSTPHR+0.5_JPRB
+ENDIF
+NRADPFR=NRADPFR*NRADFR
+IF (MOD(NRADPLA,2) == 0.AND. NRADPLA /= 0) THEN
+  NRADPLA=NRADPLA+1
+ENDIF
+
+IF(NRADUV < 0) THEN
+  NRADUV=-NRADUV*ZSTPHR+0.5_JPRB
+ENDIF
+
+IST1HR=ZSTPHR+0.05_JPRB
+ISTNHR=  NLNGR1H *ZSTPHR+0.05_JPRB
+IF (MOD(3600._JPRB,ZTSTEP) > 0.1_JPRB) THEN
+  801 CONTINUE
+  IST1HR=IST1HR+1
+  IF (MOD(ISTNHR,IST1HR) /= 0) GO TO 801
+ENDIF
+IF (NRADFR == 1) THEN
+  NRADSFR=NRADFR
+ELSE
+  NRADSFR=IST1HR
+ENDIF
+NRADNFR=NRADFR
+
+IF(LRAYFM) THEN
+  NRPROMA=NDLON+6+(1-MOD(NDLON,2))
+ENDIF
+
+!      ----------------------------------------------------------------
+
+!*       10.    ALLOCATE WORK ARRAYS
+!               --------------------
+
+IU = NULOUT
+LLP = NPRINTLEV >= 1.OR. LALLOPR
+
+IF (LEPHYS) THEN
+  ALLOCATE(EMTD(NPROMA,NFLEVG+1,NGPBLKS))
+  IF(LLP)WRITE(IU,9) 'EMTD     ',SIZE(EMTD     ),SHAPE(EMTD     )
+  ALLOCATE(TRSW(NPROMA,NFLEVG+1,NGPBLKS))
+  IF(LLP)WRITE(IU,9) 'TRSW     ',SIZE(TRSW     ),SHAPE(TRSW     )
+  ALLOCATE(EMTC(NPROMA,NFLEVG+1,NGPBLKS))
+  IF(LLP)WRITE(IU,9) 'EMTC     ',SIZE(EMTC     ),SHAPE(EMTC     )
+  ALLOCATE(TRSC(NPROMA,NFLEVG+1,NGPBLKS))
+  IF(LLP)WRITE(IU,9) 'TRSC     ',SIZE(TRSC     ),SHAPE(TRSC     )
+  ALLOCATE(SRSWD(NPROMA,NGPBLKS))
+  IF(LLP)WRITE(IU,9) 'SRSWD    ',SIZE(SRSWD    ),SHAPE(SRSWD    )
+  ALLOCATE(SRLWD(NPROMA,NGPBLKS))
+  IF(LLP)WRITE(IU,9) 'SRLWD    ',SIZE(SRLWD    ),SHAPE(SRLWD    )
+  ALLOCATE(SRSWDCS(NPROMA,NGPBLKS))
+  IF(LLP)WRITE(IU,9) 'SRSWDCS  ',SIZE(SRSWDCS  ),SHAPE(SRSWDCS  )
+  ALLOCATE(SRLWDCS(NPROMA,NGPBLKS))
+  IF(LLP)WRITE(IU,9) 'SRLWDCS  ',SIZE(SRLWDCS  ),SHAPE(SRLWDCS  )
+  ALLOCATE(SRSWDV(NPROMA,NGPBLKS))
+  IF(LLP)WRITE(IU,9) 'SRSWDV   ',SIZE(SRSWDV   ),SHAPE(SRSWDV   )
+  ALLOCATE(SRSWDUV(NPROMA,NGPBLKS))
+  IF(LLP)WRITE(IU,9) 'SRSWDUV  ',SIZE(SRSWDUV  ),SHAPE(SRSWDUV  )
+  ALLOCATE(EDRO(NPROMA,NGPBLKS))
+  IF(LLP)WRITE(IU,9) 'EDRO     ',SIZE(EDRO     ),SHAPE(EDRO     )
+  ALLOCATE(SRSWPAR(NPROMA,NGPBLKS))
+  IF(LLP)WRITE(IU,9) 'SRSWPAR  ',SIZE(SRSWPAR  ),SHAPE(SRSWPAR  )
+  ALLOCATE(SRSWUVB(NPROMA,NGPBLKS))
+  IF(LLP)WRITE(IU,9) 'SRSWUVB  ',SIZE(SRSWUVB  ),SHAPE(SRSWUVB  )
+
+ELSEIF(LMPHYS .AND. (LRAYFM.OR.LRAYFM15)) THEN
+  ALLOCATE(EMTD(NPROMA,NFLEVG+1,NGPBLKS))
+  IF(LLP)WRITE(IU,9) 'EMTD     ',SIZE(EMTD     ),SHAPE(EMTD     )
+  ALLOCATE(TRSW(NPROMA,NFLEVG+1,NGPBLKS))
+  IF(LLP)WRITE(IU,9) 'TRSW     ',SIZE(TRSW     ),SHAPE(TRSW     )
+  ALLOCATE(EMTU(NPROMA,NFLEVG+1,NGPBLKS))
+  IF(LLP)WRITE(IU,9) 'EMTC     ',SIZE(EMTU     ),SHAPE(EMTU     )
+  ALLOCATE(RMOON(NPROMA,NGPBLKS))
+  IF(LLP)WRITE(IU,9) 'RMOON    ',SIZE(RMOON    ),SHAPE(RMOON    )
+ENDIF
+ALLOCATE(SRSWPARC(NPROMA,NGPBLKS))
+IF(LLP)WRITE(IU,9) 'SRSWPARC ',SIZE(SRSWPARC ),SHAPE(SRSWPARC )
+ALLOCATE(SRSWTINC(NPROMA,NGPBLKS))
+IF(LLP)WRITE(IU,9) 'SRSWTINC ',SIZE(SRSWTINC ),SHAPE(SRSWTINC )
+
+9 FORMAT(1X,'ARRAY ',A10,' ALLOCATED ',8I8)
+
+!      ----------------------------------------------------------------
+
+!*       10.    PRINT FINAL VALUES.
+!               -------------------
+
+IF (LOUTPUT) THEN
+  WRITE(UNIT=KULOUT,FMT='('' COMMON YOERAD '')')
+  WRITE(UNIT=KULOUT,FMT='('' LERADI  = '',L5 &
+   & ,'' LERAD1H = '',L5,'' LECO2VAR= '',L5,'' LHGHG = '',L5 &
+   & ,'' NLNGR1H = '',I2,'' NRADSFR = '',I2)')&
+   & LERADI,LERAD1H,LECO2VAR,LHGHG,NLNGR1H,NRADSFR  
+  WRITE(UNIT=KULOUT,FMT='('' LEPO3RA  = '',L5,'' YO3%LGP = '',L5 )') LEPO3RA,YO3%LGP
+  WRITE(UNIT=KULOUT,FMT='('' NRADFR  = '',I2 &
+   & ,'' NRADPFR = '',I3 &
+   & ,'' NRADPLA = '',I2 &
+   & ,'' NRINT   = '',I1 &
+   & ,'' NRPROMA = '',I5 &
+   & )')&
+   & NRADFR,NRADPFR,NRADPLA,NRINT, NRPROMA
+  WRITE(UNIT=KULOUT,FMT='('' LERADHS= '',L5 &
+   & ,'' LRRTM = '',L5 &
+   & ,'' LSRTM = '',L5 &
+   & ,'' NMODE = '',I1 &
+   & ,'' NOZOCL= '',I1 &
+   & ,'' NAER  = '',I1 &
+   & ,'' NHINCSOL='',I2 &
+   & )')&
+   & LERADHS,LRRTM,LSRTM,NMODE,NOZOCL,NAER,NHINCSOL
+  IF (.NOT.LHGHG .AND. .NOT.LECO2VAR) WRITE(UNIT=KULOUT,FMT='('' RCCO2= '',E10.3 &
+    &,'' RCCH4= '',E10.3,'' RCN2O= '',E10.3,'' RCCFC11= '',E10.3,'' RCFC12= '',E10.3 &
+    &)')&
+    & RCCO2,RCCH4,RCN2O,RCCFC11,RCCFC12
+  WRITE(UNIT=KULOUT,FMT='('' NINHOM = '',I1 &
+   & ,'' NLAYINH='',I1   &
+   & ,'' RLWINHF='',F4.2 &
+   & ,'' RSWINHF='',F4.2 &
+   & )')&
+   & NINHOM,NLAYINH,RLWINHF,RSWINHF  
+  IF (NPERTAER /= 0 .OR. NPERTOZ /= 0) THEN
+    WRITE(UNIT=KULOUT,FMT='('' NPERTAER= '',I2 &
+   & ,'' LNOTROAER='',L5 &
+   & ,'' NPERTOZ = '',I1 &
+   & ,'' RPERTOZ = '',F5.0 &
+   & )')&
+   & NPERTAER,LNOTROAER,NPERTOZ,RPERTOZ
+  ENDIF
+  WRITE(UNIT=KULOUT,FMT='('' NRADINT = '',I2)')NRADINT
+  WRITE(UNIT=KULOUT,FMT='('' NRADRES = '',I4)')NRADRES
+  WRITE(UNIT=KULOUT,FMT='('' LRADONDEM = '',L5)')LRADONDEM
+  IF( NRADINT > 0 )THEN
+    IDIR=LEN_TRIM(CRTABLEDIR)
+    IFIL=LEN_TRIM(CRTABLEFIL)
+    WRITE(UNIT=KULOUT,FMT='('' CRTABLEDIR = '',A,'' CRTABLEFIL = '',A)')&
+     & CRTABLEDIR(1:IDIR),CRTABLEFIL(1:IFIL)  
+  ENDIF
+  WRITE(UNIT=KULOUT,FMT='('' LCCNL = '',L5 &
+   & ,'' LCCNO = '',L5 &
+   & ,'' RCCNLND= '',F5.0 &
+   & ,'' RCCNSEA= '',F5.0 &
+   & ,'' LE4ALB = '',L5 &
+   &)')&
+   & LCCNL,LCCNO,RCCNLND,RCCNSEA,LE4ALB 
+  IF (LHVOLCA) THEN
+    WRITE(UNIT=KULOUT,FMT='('' HISTORY OF VOLCANIC AEROSOLS= '',L5)')LHVOLCA
+  ENDIF
+  WRITE(UNIT=KULOUT,FMT='('' LONEWSW= '',L5 &
+   & ,'' NRADIP = '',I1 &
+   & ,'' NRADLP = '',I1 &
+   & ,'' NICEOPT= '',I1 &
+   & ,'' NLIQOPT= '',I1 &
+   & ,'' LDIFFC = '',L5 &
+   & )')&
+   & LONEWSW,NRADIP,NRADLP,NICEOPT,NLIQOPT,LDIFFC
+  WRITE(UNIT=KULOUT,FMT='('' WARNING! CLOUD OVERLAP ASSUMPT. IS''&
+   & ,'' NOVLP   = '',I2 &
+   & )')&
+   & NOVLP  
+  IF (LUVPROC) THEN
+    IDAYUV=NUVTIM/86400
+    WRITE(UNIT=KULOUT,FMT='('' LUVPROC = '',L5 &
+   & ,'' LUVTDEP= '',L5 &
+   & ,'' NRADUV = '',I2 &
+   & ,'' NUV = '',I2 &
+   & ,'' NDAYUV = '',I5 &
+   & ,'' RMUZUV = '',E9.3 &
+   & )')&
+   & LUVPROC,LUVTDEP,NRADUV,NUV,IDAYUV,RMUZUV
+    WRITE(UNIT=KULOUT,FMT='('' RUVLAM = '',24F6.1)') (RUVLAM(JUV),JUV=1,NUV) 
+    WRITE(UNIT=KULOUT,FMT='('' JUVLAM = '',24(3X,I1,2X))') (JUVLAM(JUV),JUV=1,NUV) 
+  ENDIF
+  WRITE(UNIT=KULOUT,FMT='('' NMCICA= '',I2 &
+   & )')&
+   & NMCICA
+ENDIF
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUECRAD',1,ZHOOK_HANDLE)
+END SUBROUTINE SUECRAD
Index: LMDZ5/trunk/libf/phylmd/rrtm/suecrad.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/suecrad.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/suecrad.intfb.h	(revision 1989)
@@ -0,0 +1,10 @@
+INTERFACE
+SUBROUTINE SUECRAD (KULOUT, KLEV, PETAH )
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+INTEGER(KIND=JPIM),INTENT(IN) :: KULOUT
+REAL(KIND=JPRB) ,INTENT(IN) :: PETAH(KLEV+1)
+INTEGER(KIND=JPIM), PARAMETER :: JP_MIN_HALO=5
+INTEGER(KIND=JPIM), PARAMETER :: JPIOMASTER=1
+END SUBROUTINE SUECRAD
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/suecrad15.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/suecrad15.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/suecrad15.F90	(revision 1989)
@@ -0,0 +1,331 @@
+!OPTIONS XOPT(NOEVAL)
+SUBROUTINE SUECRAD15 (KULOUT, KLEV, PETAH )
+
+!**** *SUECRAD15*   - INITIALIZE COMMONS YOMRxx15 CONTROLLING RADIATION
+!****                 FROZEN VERSION (CYCLE 15) OF SUECRAD
+
+!     PURPOSE.
+!     --------
+!           INITIALIZE YOMRAD15, THE COMMON THAT CONTROLS THE
+!           RADIATION OF THE MODEL, AND YOMRDU15 THAT INCLUDES
+!           ADJUSTABLE PARAMETERS FOR RADIATION COMPUTATIONS
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECRAD15* FROM *SUPHEC*
+!              ---------        ------
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!        NONE
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+!        COMMONS YOMRAD15, YOMRDU15
+
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+
+!     EXTERNALS.
+!     ----------
+!        SUAER, SUAERH, SUAERV, SULW, SUSW, SUCLD, SUOCST, SUSAT
+
+!     REFERENCE.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+
+!     AUTHOR.
+!     -------
+!        96-11: Ph. Dandin. Meteo-France
+!        ORIGINAL : 88-12-15 BY JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        R. El Khatib 01-02-02 proper initialization of NFRRC moved in SUCFU
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        F. Bouyssel 27-09-04 initialisation of NSW
+!        A. Alias    29-09-05 Sulfate aerosols (Hu Rong Ming)
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOMCT0   , ONLY : NPRINTLEV
+USE YOMDIM   , ONLY : NDLON    ,NSMAX   ,NGPBLKS  ,NFLEVG   ,NPROMA
+USE YOMDYN   , ONLY : TSTEP
+! Ce qui concerne NULNAM commente par MPL le 15.04.09
+!USE YOMLUN   , ONLY : NULNAM
+USE YOMCST   , ONLY : RDAY     ,RG       ,RCPD
+USE YOMPHY   , ONLY : LRAYFM15
+USE YOEPHY   , ONLY : LEPHYS   ,LERADI
+USE YOMRAD15 , ONLY : NAER15   ,NFLUX15  ,NMODE15  ,NRAD15   ,&
+ & NRADFR15 ,NRADPFR15,NRADPLA15,NRINT15  ,NRADNFR15,&
+ & NRADSFR15,NOVLP15  ,NRPROMA15,NRADF2C15,NRADC2F15,&
+ & LERAD6H15,LERADHS15,LRADAER15,LNEWAER15
+USE YOERAD   , ONLY : NAER     ,NTSW
+!USE YOERAD   , ONLY : NAER     ,NSW      ,NTSW
+! NSW mis dans .def MPL 20140211
+USE YOMRDU15 , ONLY : NUAER15  ,NTRAER15 ,RCDAY15  ,R10E15   ,&
+ & REELOG15 ,REPSC15  ,REPSCO15 ,REPSCQ15 ,REPSCT15 ,&
+ & REPSCW15 ,DIFF15  
+USE YOMAERD15, ONLY : CVDAES15 ,CVDAEL15 ,CVDAEU15 ,CVDAED15 ,&
+ & CVDAEF15 ,&
+ & RCAEOPS15,RCAEOPL15,RCAEOPU15,RCAEOPD15,RCTRBGA15,&
+ & RCAEOPF15,&
+ & RCVOBGA15,RCSTBGA15,RCTRPT15 ,RCAEADM15,RCAEROS15,&
+ & RCAEADK15  
+USE YOMPRAD  , ONLY : LODBGRADI,LODBGRADL
+USE YOMRADF  , ONLY : EMTD     ,EMTU      ,TRSW    ,RMOON
+
+IMPLICIT NONE
+
+include "clesphys.h"
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV
+INTEGER(KIND=JPIM),INTENT(IN)    :: KULOUT 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PETAH(KLEV+1)
+LOGICAL :: LLP
+
+#include "namrad15.h"
+!      ----------------------------------------------------------------
+
+LOGICAL :: LLMESS
+
+INTEGER(KIND=JPIM) :: IRADFR, IST1HR, IST6HR
+
+
+REAL(KIND=JPRB) :: ZSTPHR, ZTSTEP
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+#include "posnam.intfb.h"
+#include "suaer15.intfb.h"
+#include "suaerv15.intfb.h"
+#include "suecradi15.intfb.h"
+#include "suecradl.intfb.h"
+#include "sulw15.intfb.h"
+#include "surdi15.intfb.h"
+#include "susat.intfb.h"
+#include "susw15.intfb.h"
+
+!      ----------------------------------------------------------------
+
+!*         1.       SET DEFAULT VALUES.
+!                   -------------------
+
+!*         1.1      PRESET INDICES IN *YOMRAD15*
+!                   --------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUECRAD15',0,ZHOOK_HANDLE)
+LLMESS=.FALSE.
+LERAD6H15=.TRUE.
+LERADHS15=.TRUE.
+LRADAER15=.TRUE.
+LNEWAER15=.FALSE.
+NAER15   =1
+NAER=0
+NFLUX15  =6
+NMODE15  =0
+NRAD15   =1
+NRADFR15 =-3
+NRADPFR15=36
+NRADPLA15=15
+NRINT15  =4
+NRADF2C15=1
+NRADC2F15=1
+NUAER15  = 24
+NTRAER15 = 15
+NOVLP15 = 1
+NSW=2
+NTSW=2
+IF(NSMAX >= 106) THEN
+  NRPROMA15 = 80
+ELSEIF(NSMAX == 63) THEN
+  NRPROMA15=48
+ELSE
+  NRPROMA15=20
+ENDIF
+
+!*         1.3      SET SECURITY PARAMETERS
+!                   -----------------------
+
+REPSC15  = 1.E-12_JPRB
+REPSCO15 = 1.E-12_JPRB
+REPSCQ15 = 1.E-12_JPRB
+REPSCT15 = 1.E-12_JPRB
+REPSCW15 = 1.E-12_JPRB
+REELOG15 = 1.E-12_JPRB
+
+!     ------------------------------------------------------------------
+
+!*         2.       READ VALUES OF RADIATION CONFIGURATION
+!                   --------------------------------------
+
+! Ce qui concerne NAMRAD15 commente par MPL le 15.04.09
+!CALL POSNAM(NULNAM,'NAMRAD15')
+!READ (NULNAM,NAMRAD15)
+
+!     INITIALISE DATA STRUCTURES REQUIRED FOR RADIATION INTERPOLATION
+
+LODBGRADI=.FALSE.
+CALL SUECRADI15
+
+IF( LLMESS )THEN
+
+!     INITIALISE DATA STRUCTURES REQUIRED FOR RADIATION COURSE GRID
+!     LOAD BALANCING
+
+  LODBGRADL=.FALSE.
+! CALL SUECRADL   ! MPL 1.12.08
+  CALL ABOR1('JUSTE APRES CALL SUECRADL COMMENTE')
+ENDIF
+
+!      ----------------------------------------------------------------
+
+!*       3.    INITIALIZE RADIATION COEFFICIENTS.
+!              ----------------------------------
+
+RCDAY15  = RDAY * RG / RCPD
+DIFF15   = 1.66_JPRB
+R10E15   = 0.4342945_JPRB
+
+CALL SURDI15
+
+!      ----------------------------------------------------------------
+
+!*       4.    INITIALIZE RADIATION ABSORPTION COEFFICIENTS
+!              --------------------------------------------
+
+CALL SULW15
+CALL SUSW15
+
+!      ----------------------------------------------------------------
+
+!*       5.    INITIALIZE AEROSOL OPTICAL PARAMETERS AND DISTRIBUTION
+!              ------------------------------------------------------
+
+!     INITIALIZATION DONE IN BLOCK DATA SUAERHBD
+
+!- optical properties
+CALL SUAER15
+
+!     CALL SUAERH
+
+CALL SUAERV15 ( KLEV  , PETAH,&
+ & CVDAES15, CVDAEL15, CVDAEU15, CVDAED15, CVDAEF15,&
+ & RCTRBGA15, RCVOBGA15, RCSTBGA15, RCAEOPS15, RCAEOPL15, RCAEOPU15,&
+ & RCAEOPF15,&
+ & RCAEOPD15, RCTRPT15 , RCAEADK15, RCAEADM15, RCAEROS15        )  
+
+!      ----------------------------------------------------------------
+
+!*       6.    INITIALIZE SATELLITE GEOMETRICAL/RADIOMETRIC PARAMETERS
+!              -------------------------------------------------------
+
+IF (LEPHYS) THEN
+  IF (NMODE15 > 1) THEN
+    CALL SUSAT
+  ENDIF
+ENDIF
+
+!      ----------------------------------------------------------------
+
+!*       7.    INITIALIZE CLIMATOLOGICAL OZONE DISTRIBUTION
+!              --------------------------------------------
+!                  (not done here!!!  called from APLPAR as it depends
+!                     on model pressure levels!)
+
+!      ----------------------------------------------------------------
+
+!*       8.    SET UP MODEL CONFIGURATION FOR TIME-SPACE INTERPOLATION
+!              -------------------------------------------------------
+
+ZTSTEP=MAX(TSTEP,1.0_JPRB)
+ZSTPHR=3600._JPRB/ZTSTEP
+IRADFR=NRADFR15
+IF(NRADFR15 < 0) THEN
+  NRADFR15=-NRADFR15*ZSTPHR+0.5_JPRB
+ENDIF
+NRADPFR15=NRADPFR15*NRADFR15
+IF (MOD(NRADPLA15,2) == 0.AND. NRADPLA15 /= 0) THEN
+  NRADPLA15=NRADPLA15+1
+ENDIF
+
+IST1HR=ZSTPHR+0.05_JPRB
+IST6HR=6._JPRB*ZSTPHR+0.05_JPRB
+IF (MOD(3600._JPRB,ZTSTEP) > 0.1_JPRB) THEN
+  IST1HR=IST1HR+1
+  DO WHILE (MOD(IST6HR,IST1HR) /= 0)
+    IST1HR=IST1HR+1
+  ENDDO
+ENDIF
+NRADSFR15=IST1HR
+NRADNFR15=NRADFR15
+
+IF(LRAYFM15) THEN
+  NRPROMA15=NDLON+6+(1-MOD(NDLON,2))
+ENDIF
+
+
+
+!*       9.    ALLOCATE WORK ARRAYS
+!               --------------------
+
+LLP = NPRINTLEV >= 1
+
+  ALLOCATE(EMTD(NPROMA,NFLEVG+1,NGPBLKS))
+  IF(LLP)WRITE(UNIT=KULOUT,FMT=9) 'EMTD     ',SIZE(EMTD     ),SHAPE(EMTD     )
+  ALLOCATE(TRSW(NPROMA,NFLEVG+1,NGPBLKS))
+  IF(LLP)WRITE(UNIT=KULOUT,FMT=9) 'TRSW     ',SIZE(TRSW     ),SHAPE(TRSW     )
+  ALLOCATE(EMTU(NPROMA,NFLEVG+1,NGPBLKS))
+  IF(LLP)WRITE(UNIT=KULOUT,FMT=9) 'EMTU     ',SIZE(EMTU     ),SHAPE(EMTU     )
+  ALLOCATE(RMOON(NPROMA,NGPBLKS))
+  IF(LLP)WRITE(UNIT=KULOUT,FMT=9) 'RMOON    ',SIZE(RMOON    ),SHAPE(RMOON    )
+
+9 FORMAT(1X,'ARRAY ',A10,' ALLOCATED ',8I8)
+
+!      ----------------------------------------------------------------
+
+!*       9.    PRINT FINAL VALUES.
+!              -------------------
+
+
+
+
+IF (LLP) THEN
+  WRITE(UNIT=KULOUT,FMT='('' COMMON YOMRAD15 '')')
+  WRITE(UNIT=KULOUT,FMT='('' LERADI  = '',L5 &
+   & ,'' LERAD6H15 = '',L5)')&
+   & LERADI,LERAD6H15  
+  WRITE(UNIT=KULOUT,FMT='('' NRADFR15  = '',I2 &
+   & ,'' NRADPFR15 = '',I3 &
+   & ,'' NRADPLA15 = '',I2 &
+   & ,'' NRINT15   = '',I1 &
+   & ,'' NRPROMA15 = '',I5 &
+   & ,'' NRADF2C15 = '',I1 &
+   & ,'' NRADC2F15 = '',I1 &
+   & )')&
+   & NRADFR15,NRADPFR15,NRADPLA15,NRINT15,&
+   & NRPROMA15,NRADF2C15,NRADC2F15  
+   
+  WRITE(UNIT=KULOUT,FMT='('' LERADHS15= '',L5,'' LRADAER15= '',L5 &
+   & ,'' LNEWAER15= '',L5 &
+   & ,'' NMODE15 = '',I1 &
+   & ,'' NAER15  = '',I1 &
+   & ,'' NFLUX15 = '',I2 &
+   & ,'' NRAD15  = '',I2 &
+   & )')&
+   & LERADHS15,LRADAER15,LNEWAER15,NMODE15,NAER15,NFLUX15,NRAD15  
+  WRITE(KULOUT,FMT='('' WARNING! CLOUD OVERLAP ASSUMPTION IS''&
+   & ,'' NOVLP15   = '',I2 &
+   & )')&
+   & NOVLP15  
+
+  WRITE(UNIT=KULOUT,FMT='('' MODULE YOERAD '')')
+  WRITE(UNIT=KULOUT,FMT='('' NSW = '',I2, '' NTSW = '',I2)') NSW,NTSW
+ENDIF
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUECRAD15',1,ZHOOK_HANDLE)
+END SUBROUTINE SUECRAD15
Index: LMDZ5/trunk/libf/phylmd/rrtm/suecrad15.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/suecrad15.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/suecrad15.intfb.h	(revision 1989)
@@ -0,0 +1,8 @@
+INTERFACE
+SUBROUTINE SUECRAD15 (KULOUT, KLEV, PETAH )
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+INTEGER(KIND=JPIM),INTENT(IN) :: KULOUT
+REAL(KIND=JPRB) ,INTENT(IN) :: PETAH(KLEV+1)
+END SUBROUTINE SUECRAD15
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/suecradi.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/suecradi.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/suecradi.F90	(revision 1989)
@@ -0,0 +1,627 @@
+SUBROUTINE SUECRADI
+
+!**** *SUECRADI*   - INITIALIZE DATA STRUCTURES FOR RADIATION INTERPOLATION
+
+!     PURPOSE.
+!     --------
+!           INITIALIZE DATA STRUCTURES FOR RADIATION INTERPOLATION
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECRADI* FROM *SUECRAD*
+!              --------        -------
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!        NONE
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+
+!     EXTERNALS.
+!     ----------
+!        NONE
+
+!     REFERENCE.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+
+!     AUTHOR.
+!     -------
+!        GEORGE MOZDZYNSKI 95-03-13
+
+!     MODIFICATIONS.
+!     --------------
+!        980317: JJMorcrette clean-up (NRAD, NFLUX)
+!        990907: JJMorcrette clean-up RRTM
+!        010129: JJMorcrette clean-up LERAD1H, NLNGR1H
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARRINT  , ONLY : JPRADCW  ,JPRADCE
+USE YOMDIM   , ONLY : NDGSAG   ,NDGSAL   ,NDGENG   ,NDGENL   ,NDLON
+USE YOMCT0   , ONLY :   NPRGPEW  ,NPRINTLEV,LALLOPR
+USE YOMLUN   , ONLY : NULOUT
+USE YOMGEM   , ONLY : NLOENG
+USE YOERAD   , ONLY :      &
+ & NRINT      
+USE YOMMP    , ONLY :    MY_REGION_NS   ,MY_REGION_EW   ,NSTA     ,&
+ & NONL     ,NPTRFRSTLAT,NPTRLSTLAT,NFRSTLAT ,NLSTLAT  ,&
+ & LSPLITLAT  
+USE YOMPRAD  , ONLY : LODBGRADI,LODBGRADL,NRIRINT  ,NRFRSTOFF,&
+ & NRLASTOFF,NRIMAX   ,NRIMAXT  ,NRCNEEDW ,NRCNEEDE ,&
+ & NRCSNDW  ,NRCSNDE  ,NRCRCVW  ,NRCRCVE  ,NRCSNDT  ,&
+ & NRCRCVT  ,NRCRCVWO ,NRCRCVEO  
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM) :: ILWA (2*NPRGPEW)
+INTEGER(KIND=JPIM) :: ILWB (2*NPRGPEW)
+INTEGER(KIND=JPIM) :: ILWBI(2*NPRGPEW)
+INTEGER(KIND=JPIM) :: ILEA (2*NPRGPEW)
+INTEGER(KIND=JPIM) :: ILEB (2*NPRGPEW)
+INTEGER(KIND=JPIM) :: ILEBI(2*NPRGPEW)
+INTEGER(KIND=JPIM) :: ISTA(NDGENL,2*NPRGPEW)
+INTEGER(KIND=JPIM) :: IONL(NDGENL,2*NPRGPEW)
+CHARACTER (LEN = 14) ::  CLDBG
+
+INTEGER(KIND=JPIM) :: IAO, IAOFF, IB, IB1, IB2, IB3, IB4, IB5,&
+ & IB6, ICNEED, ICTAKE, IGL, IJBXBOFF, &
+ & IJBXSETA, ILE, ILONS, ILW, IMAX, IMAXC, &
+ & IMAXT, IOTHBOFF, IOTHSETA, IPROCB, IRINT, &
+ & IU, IUNIT, JA, JB, JBE, JBW, JBX, JF, JGL, &
+ & JGLGLO, JL  
+
+LOGICAL :: LLMYSETAISWEST, LLP
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+#include "abor1.intfb.h"
+
+!      ----------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUECRADI',0,ZHOOK_HANDLE)
+LLP = NPRINTLEV >= 1.OR. LALLOPR
+IU = NULOUT
+ALLOCATE(NRIRINT  (NDGSAG:NDGENG))
+IF(LLP)WRITE(IU,9) 'NRIRINT   ',SIZE(NRIRINT),SHAPE(NRIRINT)
+ALLOCATE(NRIMAX   (NDGSAG:NDGENG,2*NPRGPEW))
+IF(LLP)WRITE(IU,9) 'NRIMAX    ',SIZE(NRIMAX),SHAPE(NRIMAX)
+ALLOCATE(NRFRSTOFF(NDGSAG:NDGENG,2*NPRGPEW))
+IF(LLP)WRITE(IU,9) 'NRFRSTOFF ',SIZE(NRFRSTOFF),SHAPE(NRFRSTOFF)
+ALLOCATE(NRLASTOFF(NDGSAG:NDGENG,2*NPRGPEW))
+IF(LLP)WRITE(IU,9) 'NRLASTOFF ',SIZE(NRLASTOFF),SHAPE(NRLASTOFF)
+ALLOCATE(NRCNEEDW (NDGSAG:NDGENG,2*NPRGPEW))
+IF(LLP)WRITE(IU,9) 'NRCNEEDW  ',SIZE(NRCNEEDW),SHAPE(NRCNEEDW)
+ALLOCATE(NRCNEEDE (NDGSAG:NDGENG,2*NPRGPEW))
+IF(LLP)WRITE(IU,9) 'NRCNEEDE  ',SIZE(NRCNEEDE),SHAPE(NRCNEEDE)
+ALLOCATE(NRCSNDW  (NDGSAG:NDGENG,NPRGPEW,-1:1))
+IF(LLP)WRITE(IU,9) 'NRCSNDW   ',SIZE(NRCSNDW),SHAPE(NRCSNDW)
+ALLOCATE(NRCSNDE  (NDGSAG:NDGENG,NPRGPEW,-1:1))
+IF(LLP)WRITE(IU,9) 'NRCSNDE   ',SIZE(NRCSNDE),SHAPE(NRCSNDE)
+ALLOCATE(NRCRCVW  (NDGSAG:NDGENG,NPRGPEW,-1:1))
+IF(LLP)WRITE(IU,9) 'NRCRCVW   ',SIZE(NRCRCVW),SHAPE(NRCRCVW)
+ALLOCATE(NRCRCVE  (NDGSAG:NDGENG,NPRGPEW,-1:1))
+IF(LLP)WRITE(IU,9) 'NRCRCVE   ',SIZE(NRCRCVE),SHAPE(NRCRCVE)
+ALLOCATE(NRCSNDT  (NPRGPEW,-1:1))
+IF(LLP)WRITE(IU,9) 'NRCSNDT   ',SIZE(NRCSNDT),SHAPE(NRCSNDT)
+ALLOCATE(NRCRCVT  (NPRGPEW,-1:1))
+IF(LLP)WRITE(IU,9) 'NRCRCVT   ',SIZE(NRCRCVT),SHAPE(NRCRCVT)
+ALLOCATE(NRCRCVWO (NDGSAG:NDGENG,NPRGPEW,-1:1))
+IF(LLP)WRITE(IU,9) 'NRCRCVWO  ',SIZE(NRCRCVWO),SHAPE(NRCRCVWO)
+ALLOCATE(NRCRCVEO (NDGSAG:NDGENG,NPRGPEW,-1:1))
+IF(LLP)WRITE(IU,9) 'NRCRCVEO  ',SIZE(NRCRCVEO),SHAPE(NRCRCVEO)
+
+9 FORMAT(1X,'ARRAY ',A10,' ALLOCATED ',8I8)
+
+! INITIALISE GENERAL DATA STRUCTURES REQUIRED FOR RADIATION INTERPOLATION
+
+DO JGL=NDGSAG,NDGENG
+  NRIRINT(JGL)=0
+ENDDO
+DO JB=1,2*NPRGPEW
+  DO JGL=NDGSAG,NDGENG
+    NRFRSTOFF(JGL,JB)=0
+    NRLASTOFF(JGL,JB)=0
+    NRIMAX   (JGL,JB)=0
+    NRCNEEDW (JGL,JB)=0
+    NRCNEEDE (JGL,JB)=0
+  ENDDO
+ENDDO
+NRIMAXT=0
+DO JA=-1,1
+  DO JB=1,NPRGPEW
+    DO JGL=NDGSAG,NDGENG
+      NRCSNDW(JGL,JB,JA)=0
+      NRCSNDE(JGL,JB,JA)=0
+      NRCRCVW(JGL,JB,JA)=0
+      NRCRCVE(JGL,JB,JA)=0
+      NRCRCVWO(JGL,JB,JA)=0
+      NRCRCVEO(JGL,JB,JA)=0
+    ENDDO
+  ENDDO
+ENDDO
+DO JA=-1,1
+  DO JB=1,NPRGPEW
+    NRCSNDT(JB,JA)=0
+    NRCRCVT(JB,JA)=0
+  ENDDO
+ENDDO
+
+DO JB=1,2*NPRGPEW
+  DO JGL=1,NDGENL
+    ISTA(JGL,JB)=0
+    IONL(JGL,JB)=0
+  ENDDO
+ENDDO
+DO JB=1,NPRGPEW
+  DO JGL=1,NDGENL
+    IGL=NPTRFRSTLAT(MY_REGION_NS)-1+JGL
+    ISTA(JGL,JB)=NSTA(IGL,JB)
+    IONL(JGL,JB)=NONL(IGL,JB)
+  ENDDO
+ENDDO
+IF( LSPLITLAT(NFRSTLAT(MY_REGION_NS)) )THEN
+  LLMYSETAISWEST=.FALSE.
+  DO JB=1,NPRGPEW
+    IF( NSTA(NPTRFRSTLAT(MY_REGION_NS),JB) == 1 )THEN
+      LLMYSETAISWEST=.TRUE.
+    ENDIF
+  ENDDO
+  IF( LLMYSETAISWEST )THEN
+    DO JB=1,NPRGPEW
+      IGL=NPTRFRSTLAT(MY_REGION_NS+1)
+      ISTA(1,JB+NPRGPEW)=NSTA(IGL,JB)
+      IONL(1,JB+NPRGPEW)=NONL(IGL,JB)
+    ENDDO
+  ELSE
+    DO JB=1,NPRGPEW
+      IGL=NPTRFRSTLAT(MY_REGION_NS)-1
+      ISTA(1,JB+NPRGPEW)=NSTA(IGL,JB)
+      IONL(1,JB+NPRGPEW)=NONL(IGL,JB)
+    ENDDO
+  ENDIF
+ENDIF
+IF( LSPLITLAT(NLSTLAT(MY_REGION_NS)) )THEN
+  LLMYSETAISWEST=.FALSE.
+  DO JB=1,NPRGPEW
+    IF( NSTA(NPTRLSTLAT(MY_REGION_NS),JB) == 1 )THEN
+      LLMYSETAISWEST=.TRUE.
+    ENDIF
+  ENDDO
+  IF( LLMYSETAISWEST )THEN
+    DO JB=1,NPRGPEW
+      IGL=NPTRFRSTLAT(MY_REGION_NS+1)
+      ISTA(NDGENL,JB+NPRGPEW)=NSTA(IGL,JB)
+      IONL(NDGENL,JB+NPRGPEW)=NONL(IGL,JB)
+    ENDDO
+  ELSE
+    DO JB=1,NPRGPEW
+      IGL=NPTRFRSTLAT(MY_REGION_NS)-1
+      ISTA(NDGENL,JB+NPRGPEW)=NSTA(IGL,JB)
+      IONL(NDGENL,JB+NPRGPEW)=NONL(IGL,JB)
+    ENDDO
+  ENDIF
+ENDIF
+
+IMAXC=NDLON/NRINT+6
+IMAXC=IMAXC+(1-MOD(IMAXC,2))
+
+IF( LODBGRADI )THEN
+  IUNIT=10
+  WRITE(CLDBG,'("debug_a",I3.3,"b",I3.3)')MY_REGION_NS,MY_REGION_EW
+  OPEN(UNIT=IUNIT,FILE=CLDBG)
+  WRITE(IUNIT,'("SUECRADI: MY_REGION_NS=",I4," MY_REGION_EW=",I4)')MY_REGION_NS,MY_REGION_EW
+  WRITE(IUNIT,'("SUECRADI: NDGSAL=",I4," NDGENL=",I4)') NDGSAL,NDGENL
+  WRITE(IUNIT,'("SUECRADI: ")')
+ENDIF
+
+! LOOP OVER OUR PARTITION LATITUDES, TO INITIALISE SIMPLE ITEMS
+
+IMAXT=0
+
+DO JGL=1,NDGENL
+
+  JGLGLO=NFRSTLAT(MY_REGION_NS)+JGL-1
+  ILONS=NLOENG(JGLGLO)
+
+  IRINT=1
+  DO JF=1,NRINT
+    IF( MOD(ILONS,JF) == 0.AND.ILONS/JF <= IMAXC )THEN
+      IRINT=JF
+      EXIT
+    ENDIF
+  ENDDO
+  NRIRINT  (JGL)=IRINT
+  
+  IF( LODBGRADI )THEN
+    WRITE(IUNIT,'("SUECRADI: JGLGLO=",I4," JGL=",I4,&
+     & " NLOENG=",I4," NRIRINT=",I1," LSPLITLAT=",L2)')&
+     & JGLGLO,JGL,NLOENG(JGLGLO),NRIRINT(JGL),LSPLITLAT(JGLGLO)  
+  ENDIF
+
+  IF( LSPLITLAT(JGLGLO) )THEN
+    IPROCB=2*NPRGPEW
+  ELSE
+    IPROCB=NPRGPEW
+  ENDIF
+
+  DO JB=1,IPROCB
+    IF( IONL(JGL,JB) == 0 ) CYCLE
+    NRFRSTOFF(JGL,JB)=MOD(IRINT-MOD(ISTA(JGL,JB)-1,IRINT),IRINT)
+    NRLASTOFF(JGL,JB)=&
+     & MOD(IRINT-MOD(ISTA(JGL,JB)+IONL(JGL,JB)-2,IRINT),&
+     & IRINT)  
+    IMAX=0
+    DO JL=1+NRFRSTOFF(JGL,JB),IONL(JGL,JB),IRINT
+      IMAX=IMAX+1
+    ENDDO
+    NRIMAX(JGL,JB)=IMAX
+    IF( NRFRSTOFF(JGL,JB) == 0 )THEN
+      NRCNEEDW (JGL,JB)=JPRADCW-1
+    ELSE
+      NRCNEEDW (JGL,JB)=JPRADCW
+    ENDIF
+    IF( NRLASTOFF(JGL,JB) == 0 )THEN
+      NRCNEEDE (JGL,JB)=JPRADCE-1
+    ELSE
+      NRCNEEDE (JGL,JB)=JPRADCE
+    ENDIF
+    IF( LODBGRADI )THEN
+      WRITE(IUNIT,'("SUECRADI: JB=",I4," ISTA=",I4,&
+       & " IONL=",I4," NRFRSTOFF=",I1," NRIMAX=",I3,&
+       & " NRLASTOFF=",I1," CNEEDW=",I1," CNEEDE=",I1)')&
+       & JB,ISTA(JGL,JB),IONL(JGL,JB),NRFRSTOFF(JGL,JB),&
+       & NRIMAX(JGL,JB),NRLASTOFF(JGL,JB),&
+       & NRCNEEDW(JGL,JB),NRCNEEDE(JGL,JB)  
+    ENDIF
+  ENDDO
+
+  IF( LODBGRADI )THEN
+    WRITE(IUNIT,'("SUECRADI: ")')
+  ENDIF
+  
+  IMAXT=IMAXT+NRIMAX(JGL,MY_REGION_EW)
+  
+ENDDO
+
+NRIMAXT=IMAXT
+IF( LODBGRADI )THEN
+  WRITE(IUNIT,'("SUECRADI: NRIMAXT=",I6)') NRIMAXT
+ENDIF
+
+! NOW LOOP OVER OUR PARTITION LATITUDES, TO DETERMINE SEND AND RECEIVE
+! INFORMATION
+
+DO JGL=1,NDGENL
+
+! TEST IF WE HAVE ANY FINE POINTS
+! IF WE HAVEN'T, THEN WE DON'T HAVE TO SEND OR RECEIVE ANYTHING
+
+  IF( IONL(JGL,MY_REGION_EW) == 0 ) CYCLE
+  JGLGLO=NFRSTLAT(MY_REGION_NS)+JGL-1
+
+! TEST IF CURRENT LATITUDE IS SPLIT ACROSS SET A's
+! TO SET IPROCB TO THE MAXIMUM NUMBER OF SETB's WE MUST CONSIDER IN
+! THE FOLLOWING CODE FOR THIS LATITUDE
+
+  IF( LSPLITLAT(JGLGLO) )THEN
+    IPROCB=2*NPRGPEW
+  ELSE
+    IPROCB=NPRGPEW
+  ENDIF
+
+! NOW CONSIDER EACH PARTITION (ON THIS LATITUDE) IN TURN TO SEE WHO
+! WILL BE SENDING TO AND RECEIVING FROM IT, AND OBVIOUSLY NOTING
+! PERTINENT INFO IF OUR PARTITION IS SENDING OR RECEIVING
+
+  DO JBX=1,IPROCB
+
+! LET'S START BY BUILDING UP A LIST OF WESTERLY AND EASTERLY PARTITIONS
+! CONTAINING ONE OR MORE FINE POINTS, SO THAT WE CAN SUBSEQUENTLY IGNORE
+! ISSUES ABOUT WHETHER THIS IS A SPLIT LATITUDE AND THAT THE EARTH IS
+! ROUND. ALSO THE PARTITION BEING CONSIDERED (JBX) ALWAYS APPEARS AT THE
+! END OF EACH OF THESE LISTS, BECAUSE JBX MAY NEED TO 'LOGICALLY' SEND/RECEIVE
+! COURSE POINTS TO/FROM ITS OWN PARTITION FOR THIS LATITUDE.
+
+    ILW=0
+    ILE=0
+    IF( LSPLITLAT(JGLGLO) )THEN
+
+! DETERMINE WHETHER THE SET A SHARING THIS LATITUDE IS (ABOVE,LEFT) OR
+! (BELOW,RIGHT). WE DETERMINE THIS BY TESTING IF ANY SETB ON THIS LATITUDE
+! STARTS AT 1.
+
+      IAOFF=-1
+      DO JB=1,NPRGPEW
+        IF( ISTA(JGL,JB) == 1 )THEN
+          IAOFF=1
+          EXIT
+        ENDIF
+      ENDDO
+
+      IF( JBX <= NPRGPEW )THEN
+        IJBXSETA=MY_REGION_NS
+        IOTHSETA=MY_REGION_NS+IAOFF
+        IJBXBOFF=0
+        IOTHBOFF=NPRGPEW
+      ELSE
+        IJBXSETA=MY_REGION_NS+IAOFF
+        IOTHSETA=MY_REGION_NS
+        IJBXBOFF=NPRGPEW
+        IOTHBOFF=0
+      ENDIF
+! INITIALISE WEST LIST, SPLIT LAT
+      IF( JBX <= NPRGPEW )THEN
+        IB1=JBX-1
+        IB2=1
+        IB3=2*NPRGPEW
+        IB4=NPRGPEW+1
+        IB5=NPRGPEW
+        IB6=JBX
+      ELSE
+        IB1=JBX-1
+        IB2=NPRGPEW+1
+        IB3=NPRGPEW
+        IB4=1
+        IB5=2*NPRGPEW
+        IB6=JBX
+      ENDIF
+      DO JB=IB1,IB2,-1
+        IF( IONL(JGL,JB) > 0 )THEN
+          ILW=ILW+1
+          ILWA (ILW)=IJBXSETA
+          ILWB (ILW)=JB-IJBXBOFF
+          ILWBI(ILW)=JB
+        ENDIF
+      ENDDO
+      DO JB=IB3,IB4,-1
+        IF( IONL(JGL,JB) > 0 )THEN
+          ILW=ILW+1
+          ILWA (ILW)=IOTHSETA
+          ILWB (ILW)=JB-IOTHBOFF
+          ILWBI(ILW)=JB
+        ENDIF
+      ENDDO
+      DO JB=IB5,IB6,-1
+        IF( IONL(JGL,JB) > 0 )THEN
+          ILW=ILW+1
+          ILWA (ILW)=IJBXSETA
+          ILWB (ILW)=JB-IJBXBOFF
+          ILWBI(ILW)=JB
+        ENDIF
+      ENDDO
+! INITIALISE EAST LIST, SPLIT LAT
+      IF( JBX <= NPRGPEW )THEN
+        IB1=JBX+1
+        IB2=NPRGPEW
+        IB3=NPRGPEW+1
+        IB4=2*NPRGPEW
+        IB5=1
+        IB6=JBX
+      ELSE
+        IB1=JBX+1
+        IB2=2*NPRGPEW
+        IB3=1
+        IB4=NPRGPEW
+        IB5=NPRGPEW+1
+        IB6=JBX
+      ENDIF
+      DO JB=IB1,IB2
+        IF( IONL(JGL,JB) > 0 )THEN
+          ILE=ILE+1
+          ILEA (ILE)=IJBXSETA
+          ILEB (ILE)=JB-IJBXBOFF
+          ILEBI(ILE)=JB
+        ENDIF
+      ENDDO
+      DO JB=IB3,IB4
+        IF( IONL(JGL,JB) > 0 )THEN
+          ILE=ILE+1
+          ILEA (ILE)=IOTHSETA
+          ILEB (ILE)=JB-IOTHBOFF
+          ILEBI(ILE)=JB
+        ENDIF
+      ENDDO
+      DO JB=IB5,IB6
+        IF( IONL(JGL,JB) > 0 )THEN
+          ILE=ILE+1
+          ILEA (ILE)=IJBXSETA
+          ILEB (ILE)=JB-IJBXBOFF
+          ILEBI(ILE)=JB
+        ENDIF
+      ENDDO
+    ELSE
+      IAOFF=0
+! INITIALISE WEST LIST, NOT SPLIT LAT
+      DO JB=JBX-1,1,-1
+        IF( IONL(JGL,JB) > 0 )THEN
+          ILW=ILW+1
+          ILWA (ILW)=MY_REGION_NS
+          ILWB (ILW)=JB
+          ILWBI(ILW)=JB
+        ENDIF
+      ENDDO
+      DO JB=NPRGPEW,JBX,-1
+        IF( IONL(JGL,JB) > 0 )THEN
+          ILW=ILW+1
+          ILWA (ILW)=MY_REGION_NS
+          ILWB (ILW)=JB
+          ILWBI(ILW)=JB
+        ENDIF
+      ENDDO
+! INITIALISE EAST LIST, NOT SPLIT LAT
+      DO JB=JBX+1,NPRGPEW
+        IF( IONL(JGL,JB) > 0 )THEN
+          ILE=ILE+1
+          ILEA (ILE)=MY_REGION_NS
+          ILEB (ILE)=JB
+          ILEBI(ILE)=JB
+        ENDIF
+      ENDDO
+      DO JB=1,JBX
+        IF( IONL(JGL,JB) > 0 )THEN
+          ILE=ILE+1
+          ILEA (ILE)=MY_REGION_NS
+          ILEB (ILE)=JB
+          ILEBI(ILE)=JB
+        ENDIF
+      ENDDO
+    ENDIF
+    IF( ILW > 2*NPRGPEW .OR. ILE > 2*NPRGPEW )THEN
+      WRITE(NULOUT,'("SUECRAD: ILW > 2*NPRGPEW .OR. ",&
+       & "ILE > 2*NPRGPEW, ILW=",I6," ILE=",I6)') ILW,ILE  
+      CALL ABOR1('SUECRADI:ILW/E > 2*NPRGPEW')
+    ENDIF
+
+! DETERMINE FOR PARTITION JBX THOSE PARTITIONS THAT IT HAS TO RECEIVE
+! COURSE POINTS FROM.
+! DO THIS BY SEARCHING DOWN THE WESTERN LIST OF PARTITIONS FIRST AND THEN
+! FOR THE EASTERN LIST OF PARTITIONS.
+! THE SEND AND RECEIVE INFO FOR THIS (MY_REGION_NS,MY_REGION_EW) IS DETERMINED BY
+! SIMPLY NOTING WHETHER (MY_REGION_NS,MY_REGION_EW) IS A SENDER OR RECEIVER IN THE
+! ABOVE LIST SEARCH PROCESS.
+
+    ICNEED=NRCNEEDW(JGL,JBX)
+
+    DO JBW=1,ILW
+      IF( ICNEED == 0 ) EXIT
+
+! DOES THIS PARTITION HAVE ANY COURSE POINTS
+
+      IF( NRIMAX(JGL,ILWBI(JBW)) > 0 )THEN
+
+! YES, IT DOES
+! THEN TEST IF IT HAS ENOUGH TO SATISFY OUR NEED
+
+        IF( NRIMAX(JGL,ILWBI(JBW)) >= ICNEED )THEN
+          ICTAKE=ICNEED
+        ELSE
+          ICTAKE=NRIMAX(JGL,ILWBI(JBW))
+        ENDIF
+        IF( MY_REGION_NS == ILWA(JBW).AND.MY_REGION_EW == ILWB(JBW) )THEN
+! WE (MY_REGION_NS,MY_REGION_EW) ARE THE SENDER (SENDING EAST COURSE POINTS)
+          IF( JBX <= NPRGPEW )THEN
+            IB =JBX
+            IAO=0
+          ELSE
+            IB =JBX-NPRGPEW
+            IAO=IAOFF
+          ENDIF
+          NRCSNDE(JGL,IB,IAO)=ICTAKE
+          NRCSNDT(IB,IAO)=NRCSNDT(IB,IAO)+ICTAKE
+        ENDIF
+        IF( JBX == MY_REGION_EW )THEN
+! WE (MY_REGION_NS,MY_REGION_EW) ARE THE RECEIVER
+          IB =ILWB(JBW)
+          IAO=ILWA(JBW)-MY_REGION_NS
+          NRCRCVW (JGL,IB,IAO)=ICTAKE
+          NRCRCVWO(JGL,IB,IAO)=ICNEED-ICTAKE
+          NRCRCVT (IB,IAO)=NRCRCVT(IB,IAO)+ICTAKE
+        ENDIF
+        ICNEED=ICNEED-ICTAKE
+      ENDIF
+    ENDDO
+
+    ICNEED=NRCNEEDE(JGL,JBX)
+    
+    DO JBE=1,ILE
+      IF( ICNEED == 0 ) EXIT
+
+! DOES THIS PARTITION HAVE ANY COURSE POINTS
+
+      IF( NRIMAX(JGL,ILEBI(JBE)) > 0 )THEN
+
+! YES, IT DOES
+! THEN TEST IF IT HAS ENOUGH TO SATISFY OUR NEED
+
+        IF( NRIMAX(JGL,ILEBI(JBE)) >= ICNEED )THEN
+          ICTAKE=ICNEED
+        ELSE
+          ICTAKE=NRIMAX(JGL,ILEBI(JBE))
+        ENDIF
+        IF( MY_REGION_NS == ILEA(JBE).AND.MY_REGION_EW == ILEB(JBE) )THEN
+! WE (MY_REGION_NS,MY_REGION_EW) ARE THE SENDER (SENDING WEST COURSE POINTS)
+          IF( JBX <= NPRGPEW )THEN
+            IB =JBX
+            IAO=0
+          ELSE
+            IB =JBX-NPRGPEW
+            IAO=IAOFF
+          ENDIF
+          NRCSNDW(JGL,IB,IAO)=ICTAKE
+          NRCSNDT(IB,IAO)=NRCSNDT(IB,IAO)+ICTAKE
+        ENDIF
+        IF( JBX == MY_REGION_EW )THEN
+! WE (MY_REGION_NS,MY_REGION_EW) ARE THE RECEIVER
+          IB =ILEB(JBE)
+          IAO=ILEA(JBE)-MY_REGION_NS
+          NRCRCVE (JGL,IB,IAO)=ICTAKE
+          NRCRCVEO(JGL,IB,IAO)=NRCNEEDW(JGL,JBX)+NRCNEEDE(JGL,JBX)-ICNEED
+          NRCRCVT (IB,IAO)=NRCRCVT(IB,IAO)+ICTAKE
+        ENDIF
+        ICNEED=ICNEED-ICTAKE
+      ENDIF
+    ENDDO
+
+  ENDDO
+
+! END OF JBX LOOP OVER PARTITIONS
+
+ENDDO
+
+! END OF JGL LOOP OVER LATITUDES
+
+! WRITE OUT SEND/RECEIVE TABLES IF DEBUGGING
+
+IF( LODBGRADI )THEN
+  DO JA=-1,1
+    WRITE(IUNIT,'("SUECRADI: ")')
+    DO JB=1,NPRGPEW
+      IF( NRCSNDT(JB,JA) > 0.OR. NRCRCVT(JB,JA) > 0 )THEN
+        WRITE(IUNIT,'("SUECRADI: SETA=",I4," SETB=",I4,&
+         & " NRCSNDT=",I6," NRCRCVT=",I6)')&
+         & JA+MY_REGION_NS,JB,NRCSNDT(JB,JA),NRCRCVT(JB,JA)  
+      ENDIF
+    ENDDO
+  ENDDO
+  
+  WRITE(IUNIT,'("SUECRADI: ")')
+  
+  DO JA=-1,1
+    WRITE(IUNIT,'("SUECRADI: ")')
+    DO JB=1,NPRGPEW
+      DO JGL=1,NDGENL
+        JGLGLO=NFRSTLAT(MY_REGION_NS)+JGL-1
+        IF( NRCSNDW(JGL,JB,JA) > 0.OR.&
+           & NRCSNDE(JGL,JB,JA) > 0.OR.&
+           & NRCRCVW(JGL,JB,JA) > 0.OR.&
+           & NRCRCVE(JGL,JB,JA) > 0 )THEN  
+          WRITE(IUNIT,'("SUECRADI: JGLGLO=",I4," JGL=",I4,&
+           & " SETA=",I4," SETB=",I4,&
+           & " CSNDW=",I6," CSNDE=",I6,&
+           & " CRCVW=",I6," CRCVE=",I6,&
+           & " CRCVWO=",I1," CRCVEO=",I1)')&
+           & JGLGLO,JGL,JA+MY_REGION_NS,JB,&
+           & NRCSNDW(JGL,JB,JA),NRCSNDE(JGL,JB,JA),&
+           & NRCRCVW(JGL,JB,JA),NRCRCVE(JGL,JB,JA),&
+           & NRCRCVWO(JGL,JB,JA),NRCRCVEO(JGL,JB,JA)  
+        ENDIF
+      ENDDO
+    ENDDO
+  ENDDO
+  IF( .NOT.LODBGRADL )THEN
+    CLOSE(UNIT=IUNIT)
+  ENDIF
+ENDIF
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUECRADI',1,ZHOOK_HANDLE)
+END SUBROUTINE SUECRADI
Index: LMDZ5/trunk/libf/phylmd/rrtm/suecradi.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/suecradi.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/suecradi.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SUECRADI
+END SUBROUTINE SUECRADI
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/suecradi15.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/suecradi15.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/suecradi15.F90	(revision 1989)
@@ -0,0 +1,697 @@
+!OPTIONS XOPT(NOEVAL)
+SUBROUTINE SUECRADI15
+
+!**** *SUECRADI15* - INITIALIZE DATA STRUCTURES FOR RADIATION INTERPOL.
+!****                FROZEN VERSION (CYCLE 15) OF SUECRADI
+
+!     PURPOSE.
+!     --------
+!           INITIALIZE DATA STRUCTURES FOR RADIATION INTERPOLATION
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUECRADI15* FROM *SUECRAD15*
+!              ----------        ---------
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!        NONE
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+
+!     EXTERNALS.
+!     ----------
+!        NONE
+
+!     REFERENCE.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+
+!     AUTHOR.
+!     -------
+!        96-11: Ph. Dandin. Meteo-France
+!        ORIGINAL BY GEORGE MOZDZYNSKI 95-03-13
+
+!     MODIFICATIONS.
+!     --------------
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE PARRINT  , ONLY : JPRADCW  ,JPRADCE
+USE YOMDIM   , ONLY : NDGSAG   ,NDGSAL   ,NDGENG   ,NDGENL   ,NDLON
+USE YOMCT0   , ONLY : N_REGIONS_NS    ,N_REGIONS_EW
+USE YOMLUN   , ONLY : NULOUT
+USE YOMGEM   , ONLY : NLOEN    ,NLOENG
+USE YOMRAD15 , ONLY : NAER15   ,NFLUX15  ,NMODE15  ,NRAD15   ,&
+ & NRADFR15 ,NRADPFR15,NRADPLA15,NRINT15  ,NOVLP15  ,&
+ & NRPROMA15,NRADF2C15,NRADC2F15,LERAD6H15,LERADHS15 ,&
+ & LRADAER15,LNEWAER15
+USE YOMMP    , ONLY : LSPLIT   ,MY_REGION_NS   ,MY_REGION_EW   ,NSTA     ,&
+ & NONL     ,NPTRFRSTLAT,NPTRLSTLAT,NFRSTLAT ,NLSTLAT  ,&
+ & LSPLITLAT  
+USE YOMPRAD  , ONLY : LODBGRADI,LODBGRADL,NRIRINT  ,NRFRSTOFF,&
+ & NRLASTOFF,NRIMAX   ,NRIMAXT  ,NRCNEEDW ,NRCNEEDE ,&
+ & NRCSNDW  ,NRCSNDE  ,NRCRCVW  ,NRCRCVE  ,NRCSNDT  ,&
+ & NRCRCVT  ,NRCRCVWO ,NRCRCVEO  
+
+IMPLICIT NONE
+
+#include "namrad15.h"
+
+INTEGER(KIND=JPIM) :: ILWA (2*N_REGIONS_EW)
+INTEGER(KIND=JPIM) :: ILWB (2*N_REGIONS_EW)
+INTEGER(KIND=JPIM) :: ILWBI(2*N_REGIONS_EW)
+INTEGER(KIND=JPIM) :: ILEA (2*N_REGIONS_EW)
+INTEGER(KIND=JPIM) :: ILEB (2*N_REGIONS_EW)
+INTEGER(KIND=JPIM) :: ILEBI(2*N_REGIONS_EW)
+INTEGER(KIND=JPIM) :: ISTA(NDGENL,2*N_REGIONS_EW)
+INTEGER(KIND=JPIM) :: IONL(NDGENL,2*N_REGIONS_EW)
+CHARACTER (LEN = 14) ::  CLDBG
+
+INTEGER(KIND=JPIM) :: IAO, IAOFF, IB, IB1, IB2, IB3, IB4, IB5,&
+ & IB6, ICNEED, ICTAKE, IGL, IJBXBOFF, IJBXSETA, &
+ & ILE, ILEN, ILONS, ILW, IMAX, IMAXC, IMAXT, &
+ & IOTHBOFF, IOTHSETA, IPROCB, IRINT, IUNIT, &
+ & JA, JB, JBE, JBW, JBX, JF, JGL, JGLGLO, JL  
+
+LOGICAL :: LLMESS, LLMYSETAISWEST
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+#include "abor1.intfb.h"
+
+!      ----------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUECRADI15',0,ZHOOK_HANDLE)
+LLMESS=.FALSE.
+IUNIT=0
+ALLOCATE(NRIRINT  (NDGSAG:NDGENG))
+WRITE(NULOUT,9990) 'NRIRINT  ',SIZE(NRIRINT),SHAPE(NRIRINT)
+ALLOCATE(NRIMAX   (NDGSAG:NDGENG,2*N_REGIONS_EW))
+WRITE(NULOUT,9990) 'NRIMAX',SIZE(NRIMAX),SHAPE(NRIMAX)
+IF( LLMESS )THEN
+  ALLOCATE(NRFRSTOFF(NDGSAG:NDGENG,2*N_REGIONS_EW))
+  WRITE(NULOUT,9990) 'NRFRSTOFF',SIZE(NRFRSTOFF),SHAPE(NRFRSTOFF)
+  ALLOCATE(NRLASTOFF(NDGSAG:NDGENG,2*N_REGIONS_EW))
+  WRITE(NULOUT,9990) 'NRLASTOFF',SIZE(NRLASTOFF),SHAPE(NRLASTOFF)
+  ALLOCATE(NRIMAX   (NDGSAG:NDGENG,2*N_REGIONS_EW))
+  WRITE(NULOUT,9990) 'NRIMAX',SIZE(NRIMAX),SHAPE(NRIMAX)
+  ALLOCATE(NRCNEEDW (NDGSAG:NDGENG,2*N_REGIONS_EW))
+  WRITE(NULOUT,9990) 'NRCNEEDW',SIZE(NRCNEEDW),SHAPE(NRCNEEDW)
+  ALLOCATE(NRCNEEDE (NDGSAG:NDGENG,2*N_REGIONS_EW))
+  WRITE(NULOUT,9990) 'NRCNEEDE',SIZE(NRCNEEDE),SHAPE(NRCNEEDE)
+  ALLOCATE(NRCSNDW  (NDGSAG:NDGENG,N_REGIONS_EW,-1:1))
+  WRITE(NULOUT,9990) 'NRCSNDW',SIZE(NRCSNDW),SHAPE(NRCSNDW)
+  ALLOCATE(NRCSNDE  (NDGSAG:NDGENG,N_REGIONS_EW,-1:1))
+  WRITE(NULOUT,9990) 'NRCSNDE',SIZE(NRCSNDE),SHAPE(NRCSNDE)
+  ALLOCATE(NRCRCVW  (NDGSAG:NDGENG,N_REGIONS_EW,-1:1))
+  WRITE(NULOUT,9990) 'NRCRCVW',SIZE(NRCRCVW),SHAPE(NRCRCVW)
+  ALLOCATE(NRCRCVE  (NDGSAG:NDGENG,N_REGIONS_EW,-1:1))
+  WRITE(NULOUT,9990) 'NRCRCVE',SIZE(NRCRCVE),SHAPE(NRCRCVE)
+  ALLOCATE(NRCSNDT  (N_REGIONS_EW,-1:1))
+  WRITE(NULOUT,9990) 'NRCSNDT',SIZE(NRCSNDT),SHAPE(NRCSNDT)
+  ALLOCATE(NRCRCVT  (N_REGIONS_EW,-1:1))
+  WRITE(NULOUT,9990) 'NRCRCVT',SIZE(NRCRCVT),SHAPE(NRCRCVT)
+  ALLOCATE(NRCRCVWO (NDGSAG:NDGENG,N_REGIONS_EW,-1:1))
+  WRITE(NULOUT,9990) 'NRCRCVWO',SIZE(NRCRCVWO),SHAPE(NRCRCVWO)
+  ALLOCATE(NRCRCVEO (NDGSAG:NDGENG,N_REGIONS_EW,-1:1))
+  WRITE(NULOUT,9990) 'NRCRCVEO',SIZE(NRCRCVEO),SHAPE(NRCRCVEO)
+ENDIF
+9990 FORMAT(1X,'ARRAY ',A10,' ALLOCATED ',8I8)
+
+IF( LLMESS )THEN
+
+  IF( NRINT15 > 1.AND. (NRADF2C15 == 1.OR. NRADC2F15 == 1))THEN
+    IF( LSPLIT .AND. N_REGIONS_NS > 1 )THEN
+      WRITE(NULOUT,'("SUECRAD: FFT INTERPOLATION UNSUPPORTED",&
+       & " WITH LSPLIT")')  
+      CALL ABOR1('FFT INTERPOLATION UNSUPPORTED WITH LSPLIT')
+    ENDIF
+    IF( N_REGIONS_EW > 1 )THEN
+      WRITE(NULOUT,'("SUECRAD: FFT INTERPOLATION UNSUPPORTED",&
+       & " WITH N_REGIONS_EW > 1")')  
+      CALL ABOR1('FFT INTERPOLATION UNSUPPORTED WITH N_REGIONS_EW > 1')
+    ENDIF
+  ENDIF
+
+! INITIALISE GENERAL DATA STRUCTURES REQUIRED FOR RAD. INTERPOLATION
+
+  DO JGL=NDGSAG,NDGENG
+    NRIRINT(JGL)=0
+  ENDDO
+  DO JB=1,2*N_REGIONS_EW
+    DO JGL=NDGSAG,NDGENG
+      NRFRSTOFF(JGL,JB)=0
+      NRLASTOFF(JGL,JB)=0
+      NRIMAX   (JGL,JB)=0
+      NRCNEEDW (JGL,JB)=0
+      NRCNEEDE (JGL,JB)=0
+    ENDDO
+  ENDDO
+  NRIMAXT=0
+  DO JA=-1,1
+    DO JB=1,N_REGIONS_EW
+      DO JGL=NDGSAG,NDGENG
+        NRCSNDW(JGL,JB,JA)=0
+        NRCSNDE(JGL,JB,JA)=0
+        NRCRCVW(JGL,JB,JA)=0
+        NRCRCVE(JGL,JB,JA)=0
+        NRCRCVWO(JGL,JB,JA)=0
+        NRCRCVEO(JGL,JB,JA)=0
+      ENDDO
+    ENDDO
+  ENDDO
+  DO JA=-1,1
+    DO JB=1,N_REGIONS_EW
+      NRCSNDT(JB,JA)=0
+      NRCRCVT(JB,JA)=0
+    ENDDO
+  ENDDO
+
+  DO JB=1,2*N_REGIONS_EW
+    DO JGL=1,NDGENL
+      ISTA(JGL,JB)=0
+      IONL(JGL,JB)=0
+    ENDDO
+  ENDDO
+  DO JB=1,N_REGIONS_EW
+    DO JGL=1,NDGENL
+      IGL=NPTRFRSTLAT(MY_REGION_NS)-1+JGL
+      ISTA(JGL,JB)=NSTA(IGL,JB)
+      IONL(JGL,JB)=NONL(IGL,JB)
+    ENDDO
+  ENDDO
+  IF( LSPLITLAT(NFRSTLAT(MY_REGION_NS)) )THEN
+    LLMYSETAISWEST=.FALSE.
+    DO JB=1,N_REGIONS_EW
+      IF( NSTA(NPTRFRSTLAT(MY_REGION_NS),JB) == 1 )THEN
+        LLMYSETAISWEST=.TRUE.
+      ENDIF
+    ENDDO
+    IF( LLMYSETAISWEST )THEN
+      DO JB=1,N_REGIONS_EW
+        IGL=NPTRFRSTLAT(MY_REGION_NS+1)
+        ISTA(1,JB+N_REGIONS_EW)=NSTA(IGL,JB)
+        IONL(1,JB+N_REGIONS_EW)=NONL(IGL,JB)
+      ENDDO
+    ELSE
+      DO JB=1,N_REGIONS_EW
+        IGL=NPTRFRSTLAT(MY_REGION_NS)-1
+        ISTA(1,JB+N_REGIONS_EW)=NSTA(IGL,JB)
+        IONL(1,JB+N_REGIONS_EW)=NONL(IGL,JB)
+      ENDDO
+    ENDIF
+  ENDIF
+  IF( LSPLITLAT(NLSTLAT(MY_REGION_NS)) )THEN
+    LLMYSETAISWEST=.FALSE.
+    DO JB=1,N_REGIONS_EW
+      IF( NSTA(NPTRLSTLAT(MY_REGION_NS),JB) == 1 )THEN
+        LLMYSETAISWEST=.TRUE.
+      ENDIF
+    ENDDO
+    IF( LLMYSETAISWEST )THEN
+      DO JB=1,N_REGIONS_EW
+        IGL=NPTRFRSTLAT(MY_REGION_NS+1)
+        ISTA(NDGENL,JB+N_REGIONS_EW)=NSTA(IGL,JB)
+        IONL(NDGENL,JB+N_REGIONS_EW)=NONL(IGL,JB)
+      ENDDO
+    ELSE
+      DO JB=1,N_REGIONS_EW
+        IGL=NPTRFRSTLAT(MY_REGION_NS)-1
+        ISTA(NDGENL,JB+N_REGIONS_EW)=NSTA(IGL,JB)
+        IONL(NDGENL,JB+N_REGIONS_EW)=NONL(IGL,JB)
+      ENDDO
+    ENDIF
+  ENDIF
+
+ELSE
+
+  ILEN=NDGENG-NDGSAG+1
+  DO JGL=NDGSAG,NDGENG
+    NRIRINT(JGL)=0
+    NRIMAX (JGL,1)=0
+  ENDDO
+
+ENDIF
+
+IMAXC=NDLON/NRINT15+6
+IMAXC=IMAXC+(1-MOD(IMAXC,2))
+
+IF( LLMESS )THEN
+  IF( LODBGRADI )THEN
+    IUNIT=10
+    WRITE(CLDBG,'("debug_a",I3.3,"b",I3.3)')MY_REGION_NS,MY_REGION_EW
+    OPEN(UNIT=IUNIT,FILE=CLDBG)
+    WRITE(IUNIT,'("SUECRADI: MY_REGION_NS=",I4," MY_REGION_EW=",I4)')MY_REGION_NS,MY_REGION_EW
+    WRITE(IUNIT,'("SUECRADI: NDGSAL=",I4," NDGENL=",I4)') NDGSAL,NDGENL
+    WRITE(IUNIT,'("SUECRADI: ")')
+  ENDIF
+ENDIF
+
+! LOOP OVER OUR PARTITION LATITUDES, TO INITIALISE SIMPLE ITEMS
+
+IF( LLMESS )THEN
+
+  IMAXT=0
+
+  DO JGL=1,NDGENL
+
+    JGLGLO=NFRSTLAT(MY_REGION_NS)+JGL-1
+    ILONS=NLOENG(JGLGLO)
+
+    IRINT=1
+    DO JF=1,NRINT15
+      IF( MOD(ILONS,JF) == 0.AND.ILONS/JF <= IMAXC )THEN
+        IRINT=JF
+        GO TO 220
+      ENDIF
+    ENDDO
+    220 CONTINUE
+    NRIRINT  (JGL)=IRINT
+
+    IF( LODBGRADI )THEN
+      WRITE(IUNIT,'("SUECRADI: JGLGLO=",I4," JGL=",I4,&
+       & " NLOENG=",I4," NRIRINT=",I1," LSPLITLAT=",L2)')&
+       & JGLGLO,JGL,NLOENG(JGLGLO),NRIRINT(JGL),LSPLITLAT(JGLGLO)  
+    ENDIF
+
+    IF( LSPLITLAT(JGLGLO) )THEN
+      IPROCB=2*N_REGIONS_EW
+    ELSE
+      IPROCB=N_REGIONS_EW
+    ENDIF
+
+    DO JB=1,IPROCB
+      IF( IONL(JGL,JB) == 0 ) GOTO 250
+      NRFRSTOFF(JGL,JB)=MOD(IRINT-MOD(ISTA(JGL,JB)-1,IRINT),IRINT)
+      NRLASTOFF(JGL,JB)=&
+       & MOD(IRINT-MOD(ISTA(JGL,JB)+IONL(JGL,JB)-2,IRINT),&
+       & IRINT)  
+      IMAX=0
+      DO JL=1+NRFRSTOFF(JGL,JB),IONL(JGL,JB),IRINT
+        IMAX=IMAX+1
+      ENDDO
+      NRIMAX(JGL,JB)=IMAX
+      IF( NRFRSTOFF(JGL,JB) == 0 )THEN
+        NRCNEEDW (JGL,JB)=JPRADCW-1
+      ELSE
+        NRCNEEDW (JGL,JB)=JPRADCW
+      ENDIF
+      IF( NRLASTOFF(JGL,JB) == 0 )THEN
+        NRCNEEDE (JGL,JB)=JPRADCE-1
+      ELSE
+        NRCNEEDE (JGL,JB)=JPRADCE
+      ENDIF
+      IF( LODBGRADI )THEN
+        WRITE(IUNIT,'("SUECRADI: JB=",I4," ISTA=",I4,&
+         & " IONL=",I4," NRFRSTOFF=",I1," NRIMAX=",I3,&
+         & " NRLASTOFF=",I1," CNEEDW=",I1," CNEEDE=",I1)')&
+         & JB,ISTA(JGL,JB),IONL(JGL,JB),NRFRSTOFF(JGL,JB),&
+         & NRIMAX(JGL,JB),NRLASTOFF(JGL,JB),&
+         & NRCNEEDW(JGL,JB),NRCNEEDE(JGL,JB)  
+      ENDIF
+      250 continue
+    ENDDO
+
+    IF( LODBGRADI )THEN
+      WRITE(IUNIT,'("SUECRADI: ")')
+    ENDIF
+
+    IMAXT=IMAXT+NRIMAX(JGL,MY_REGION_EW)
+
+  ENDDO
+
+  NRIMAXT=IMAXT
+  IF( LODBGRADI )THEN
+    WRITE(IUNIT,'("SUECRADI: NRIMAXT=",I6)') NRIMAXT
+  ENDIF
+
+ELSE
+
+  DO JGL=NDGSAG,NDGENG
+
+    ILONS=NLOEN(JGL)
+
+    IRINT=1
+    DO JF=1,NRINT15
+      IF( MOD(ILONS,JF) == 0.AND.ILONS/JF <= IMAXC )THEN
+        IRINT=JF
+        GO TO 221
+      ENDIF
+    ENDDO
+    221 CONTINUE
+
+    NRIRINT(JGL)=IRINT
+    NRIMAX (JGL,1)=ILONS/IRINT
+
+  ENDDO
+
+ENDIF
+
+IF( LLMESS )THEN
+
+! NOW LOOP OVER OUR PARTITION LATITUDES, TO DETERMINE SEND AND RECEIVE
+! INFORMATION
+
+  DO JGL=1,NDGENL
+
+! TEST IF WE HAVE ANY FINE POINTS
+! IF WE HAVEN'T, THEN WE DON'T HAVE TO SEND OR RECEIVE ANYTHING
+
+    IF( IONL(JGL,MY_REGION_EW) == 0 ) GOTO 700
+    JGLGLO=NFRSTLAT(MY_REGION_NS)+JGL-1
+
+! TEST IF CURRENT LATITUDE IS SPLIT ACROSS SET A's
+! TO SET IPROCB TO THE MAXIMUM NUMBER OF SETB's WE MUST CONSIDER IN
+! THE FOLLOWING CODE FOR THIS LATITUDE
+
+    IF( LSPLITLAT(JGLGLO) )THEN
+      IPROCB=2*N_REGIONS_EW
+    ELSE
+      IPROCB=N_REGIONS_EW
+    ENDIF
+
+! NOW CONSIDER EACH PARTITION (ON THIS LATITUDE) IN TURN TO SEE WHO
+! WILL BE SENDING TO AND RECEIVING FROM IT, AND OBVIOUSLY NOTING
+! PERTINENT INFO IF OUR PARTITION IS SENDING OR RECEIVING
+
+    DO JBX=1,IPROCB
+
+! LET'S START BY BUILDING UP A LIST OF WESTERLY AND EASTERLY PARTITIONS
+! CONTAINING ONE OR MORE FINE POINTS, SO THAT WE CAN SUBSEQUENTLY IGNORE
+! ISSUES ABOUT WHETHER THIS IS A SPLIT LATITUDE AND THAT THE EARTH IS
+! ROUND. ALSO THE PARTITION BEING CONSIDERED (JBX) ALWAYS APPEARS AT THE
+! END OF EACH OF THESE LISTS, BECAUSE JBX MAY NEED TO 'LOGICALLY'
+! SEND/RECEIVE COURSE POINTS TO/FROM ITS OWN PARTITION FOR THIS LATITUDE
+
+      ILW=0
+      ILE=0
+      IF( LSPLITLAT(JGLGLO) )THEN
+
+! DETERMINE WHETHER THE SET A SHARING THIS LATITUDE IS (ABOVE,LEFT) OR
+! (BELOW,RIGHT). WE DETERMINE THIS BY TESTING IF ANY SETB ON THIS
+! LATITUDE
+! STARTS AT 1.
+
+        IAOFF=-1
+        DO JB=1,N_REGIONS_EW
+          IF( ISTA(JGL,JB) == 1 )THEN
+            IAOFF=1
+            GOTO 411
+          ENDIF
+        ENDDO
+        411 CONTINUE
+        IF( JBX <= N_REGIONS_EW )THEN
+          IJBXSETA=MY_REGION_NS
+          IOTHSETA=MY_REGION_NS+IAOFF
+          IJBXBOFF=0
+          IOTHBOFF=N_REGIONS_EW
+        ELSE
+          IJBXSETA=MY_REGION_NS+IAOFF
+          IOTHSETA=MY_REGION_NS
+          IJBXBOFF=N_REGIONS_EW
+          IOTHBOFF=0
+        ENDIF
+! INITIALISE WEST LIST, SPLIT LAT
+        IF( JBX <= N_REGIONS_EW )THEN
+          IB1=JBX-1
+          IB2=1
+          IB3=2*N_REGIONS_EW
+          IB4=N_REGIONS_EW+1
+          IB5=N_REGIONS_EW
+          IB6=JBX
+        ELSE
+          IB1=JBX-1
+          IB2=N_REGIONS_EW+1
+          IB3=N_REGIONS_EW
+          IB4=1
+          IB5=2*N_REGIONS_EW
+          IB6=JBX
+        ENDIF
+        DO JB=IB1,IB2,-1
+          IF( IONL(JGL,JB) > 0 )THEN
+            ILW=ILW+1
+            ILWA (ILW)=IJBXSETA
+            ILWB (ILW)=JB-IJBXBOFF
+            ILWBI(ILW)=JB
+          ENDIF
+        ENDDO
+        DO JB=IB3,IB4,-1
+          IF( IONL(JGL,JB) > 0 )THEN
+            ILW=ILW+1
+            ILWA (ILW)=IOTHSETA
+            ILWB (ILW)=JB-IOTHBOFF
+            ILWBI(ILW)=JB
+          ENDIF
+        ENDDO
+        DO JB=IB5,IB6,-1
+          IF( IONL(JGL,JB) > 0 )THEN
+            ILW=ILW+1
+            ILWA (ILW)=IJBXSETA
+            ILWB (ILW)=JB-IJBXBOFF
+            ILWBI(ILW)=JB
+          ENDIF
+        ENDDO
+! INITIALISE EAST LIST, SPLIT LAT
+        IF( JBX <= N_REGIONS_EW )THEN
+          IB1=JBX+1
+          IB2=N_REGIONS_EW
+          IB3=N_REGIONS_EW+1
+          IB4=2*N_REGIONS_EW
+          IB5=1
+          IB6=JBX
+        ELSE
+          IB1=JBX+1
+          IB2=2*N_REGIONS_EW
+          IB3=1
+          IB4=N_REGIONS_EW
+          IB5=N_REGIONS_EW+1
+          IB6=JBX
+        ENDIF
+        DO JB=IB1,IB2
+          IF( IONL(JGL,JB) > 0 )THEN
+            ILE=ILE+1
+            ILEA (ILE)=IJBXSETA
+            ILEB (ILE)=JB-IJBXBOFF
+            ILEBI(ILE)=JB
+          ENDIF
+        ENDDO
+        DO JB=IB3,IB4
+          IF( IONL(JGL,JB) > 0 )THEN
+            ILE=ILE+1
+            ILEA (ILE)=IOTHSETA
+            ILEB (ILE)=JB-IOTHBOFF
+            ILEBI(ILE)=JB
+          ENDIF
+        ENDDO
+        DO JB=IB5,IB6
+          IF( IONL(JGL,JB) > 0 )THEN
+            ILE=ILE+1
+            ILEA (ILE)=IJBXSETA
+            ILEB (ILE)=JB-IJBXBOFF
+            ILEBI(ILE)=JB
+          ENDIF
+        ENDDO
+      ELSE
+        IAOFF=0
+! INITIALISE WEST LIST, NOT SPLIT LAT
+        DO JB=JBX-1,1,-1
+          IF( IONL(JGL,JB) > 0 )THEN
+            ILW=ILW+1
+            ILWA (ILW)=MY_REGION_NS
+            ILWB (ILW)=JB
+            ILWBI(ILW)=JB
+          ENDIF
+        ENDDO
+        DO JB=N_REGIONS_EW,JBX,-1
+          IF( IONL(JGL,JB) > 0 )THEN
+            ILW=ILW+1
+            ILWA (ILW)=MY_REGION_NS
+            ILWB (ILW)=JB
+            ILWBI(ILW)=JB
+          ENDIF
+        ENDDO
+! INITIALISE EAST LIST, NOT SPLIT LAT
+        DO JB=JBX+1,N_REGIONS_EW
+          IF( IONL(JGL,JB) > 0 )THEN
+            ILE=ILE+1
+            ILEA (ILE)=MY_REGION_NS
+            ILEB (ILE)=JB
+            ILEBI(ILE)=JB
+          ENDIF
+        ENDDO
+        DO JB=1,JBX
+          IF( IONL(JGL,JB) > 0 )THEN
+            ILE=ILE+1
+            ILEA (ILE)=MY_REGION_NS
+            ILEB (ILE)=JB
+            ILEBI(ILE)=JB
+          ENDIF
+        ENDDO
+      ENDIF
+      IF( ILW > 2*N_REGIONS_EW .OR. ILE > 2*N_REGIONS_EW )THEN
+        WRITE(NULOUT,'("SUECRAD: ILW > 2*N_REGIONS_EW .OR. ",&
+         & "ILE > 2*N_REGIONS_EW, ILW=",I6," ILE=",I6)') ILW,ILE  
+        CALL ABOR1('SUECRADI:ILW/E > 2*N_REGIONS_EW')
+      ENDIF
+
+! DETERMINE FOR PARTITION JBX THOSE PARTITIONS THAT IT HAS TO RECEIVE
+! COURSE POINTS FROM.
+! DO THIS BY SEARCHING DOWN THE WESTERN LIST OF PARTITIONS FIRST AND
+! THEN FOR THE EASTERN LIST OF PARTITIONS.
+! THE SEND AND RECEIVE INFO FOR THIS (MY_REGION_NS,MY_REGION_EW) IS DETERMINED BY
+! SIMPLY NOTING WHETHER (MY_REGION_NS,MY_REGION_EW) IS A SENDER OR RECEIVER IN THE
+! ABOVE LIST SEARCH PROCESS.
+
+      ICNEED=NRCNEEDW(JGL,JBX)
+
+      DO JBW=1,ILW
+        IF( ICNEED == 0 ) GOTO 541
+
+! DOES THIS PARTITION HAVE ANY COURSE POINTS
+
+        IF( NRIMAX(JGL,ILWBI(JBW)) > 0 )THEN
+
+! YES, IT DOES
+! THEN TEST IF IT HAS ENOUGH TO SATISFY OUR NEED
+
+          IF( NRIMAX(JGL,ILWBI(JBW)) >= ICNEED )THEN
+            ICTAKE=ICNEED
+          ELSE
+            ICTAKE=NRIMAX(JGL,ILWBI(JBW))
+          ENDIF
+          IF( MY_REGION_NS == ILWA(JBW).AND.MY_REGION_EW == ILWB(JBW) )THEN
+! WE (MY_REGION_NS,MY_REGION_EW) ARE THE SENDER (SENDING EAST COURSE POINTS)
+            IF( JBX <= N_REGIONS_EW )THEN
+              IB =JBX
+              IAO=0
+            ELSE
+              IB =JBX-N_REGIONS_EW
+              IAO=IAOFF
+            ENDIF
+            NRCSNDE(JGL,IB,IAO)=ICTAKE
+            NRCSNDT(IB,IAO)=NRCSNDT(IB,IAO)+ICTAKE
+          ENDIF
+          IF( JBX == MY_REGION_EW )THEN
+! WE (MY_REGION_NS,MY_REGION_EW) ARE THE RECEIVER
+            IB =ILWB(JBW)
+            IAO=ILWA(JBW)-MY_REGION_NS
+            NRCRCVW (JGL,IB,IAO)=ICTAKE
+            NRCRCVWO(JGL,IB,IAO)=ICNEED-ICTAKE
+            NRCRCVT (IB,IAO)=NRCRCVT(IB,IAO)+ICTAKE
+          ENDIF
+          ICNEED=ICNEED-ICTAKE
+        ENDIF
+      ENDDO
+
+      541 CONTINUE
+
+      ICNEED=NRCNEEDE(JGL,JBX)
+
+      DO JBE=1,ILE
+        IF( ICNEED == 0 ) GOTO 551
+
+! DOES THIS PARTITION HAVE ANY COURSE POINTS
+
+        IF( NRIMAX(JGL,ILEBI(JBE)) > 0 )THEN
+
+! YES, IT DOES
+! THEN TEST IF IT HAS ENOUGH TO SATISFY OUR NEED
+
+          IF( NRIMAX(JGL,ILEBI(JBE)) >= ICNEED )THEN
+            ICTAKE=ICNEED
+          ELSE
+            ICTAKE=NRIMAX(JGL,ILEBI(JBE))
+          ENDIF
+          IF( MY_REGION_NS == ILEA(JBE).AND.MY_REGION_EW == ILEB(JBE) )THEN
+! WE (MY_REGION_NS,MY_REGION_EW) ARE THE SENDER (SENDING WEST COURSE POINTS)
+            IF( JBX <= N_REGIONS_EW )THEN
+              IB =JBX
+              IAO=0
+            ELSE
+              IB =JBX-N_REGIONS_EW
+              IAO=IAOFF
+            ENDIF
+            NRCSNDW(JGL,IB,IAO)=ICTAKE
+            NRCSNDT(IB,IAO)=NRCSNDT(IB,IAO)+ICTAKE
+          ENDIF
+          IF( JBX == MY_REGION_EW )THEN
+! WE (MY_REGION_NS,MY_REGION_EW) ARE THE RECEIVER
+            IB =ILEB(JBE)
+            IAO=ILEA(JBE)-MY_REGION_NS
+            NRCRCVE (JGL,IB,IAO)=ICTAKE
+            NRCRCVEO(JGL,IB,IAO)=NRCNEEDW(JGL,JBX)+NRCNEEDE(JGL,JBX)-ICNEED
+            NRCRCVT (IB,IAO)=NRCRCVT(IB,IAO)+ICTAKE
+          ENDIF
+          ICNEED=ICNEED-ICTAKE
+        ENDIF
+      ENDDO
+
+      551 CONTINUE
+
+    ENDDO
+
+! END OF JBX LOOP OVER PARTITIONS
+
+    700 continue
+  ENDDO
+
+! END OF JGL LOOP OVER LATITUDES
+
+! WRITE OUT SEND/RECEIVE TABLES IF DEBUGGING
+
+  IF( LODBGRADI )THEN
+    DO JA=-1,1
+      WRITE(IUNIT,'("SUECRADI: ")')
+      DO JB=1,N_REGIONS_EW
+        IF( NRCSNDT(JB,JA) > 0.OR. NRCRCVT(JB,JA) > 0 )THEN
+          WRITE(IUNIT,'("SUECRADI: SETA=",I4," SETB=",I4,&
+           & " NRCSNDT=",I6," NRCRCVT=",I6)')&
+           & JA+MY_REGION_NS,JB,NRCSNDT(JB,JA),NRCRCVT(JB,JA)  
+        ENDIF
+      ENDDO
+    ENDDO
+
+    WRITE(IUNIT,'("SUECRADI: ")')
+
+    DO JA=-1,1
+      WRITE(IUNIT,'("SUECRADI: ")')
+      DO JB=1,N_REGIONS_EW
+        DO JGL=1,NDGENL
+          JGLGLO=NFRSTLAT(MY_REGION_NS)+JGL-1
+          IF( NRCSNDW(JGL,JB,JA) > 0.OR.&
+             & NRCSNDE(JGL,JB,JA) > 0.OR.&
+             & NRCRCVW(JGL,JB,JA) > 0.OR.&
+             & NRCRCVE(JGL,JB,JA) > 0 )THEN  
+            WRITE(IUNIT,'("SUECRADI: JGLGLO=",I4," JGL=",I4,&
+             & " SETA=",I4," SETB=",I4,&
+             & " CSNDW=",I6," CSNDE=",I6,&
+             & " CRCVW=",I6," CRCVE=",I6,&
+             & " CRCVWO=",I1," CRCVEO=",I1)')&
+             & JGLGLO,JGL,JA+MY_REGION_NS,JB,&
+             & NRCSNDW(JGL,JB,JA),NRCSNDE(JGL,JB,JA),&
+             & NRCRCVW(JGL,JB,JA),NRCRCVE(JGL,JB,JA),&
+             & NRCRCVWO(JGL,JB,JA),NRCRCVEO(JGL,JB,JA)  
+          ENDIF
+        ENDDO
+      ENDDO
+    ENDDO
+    IF( .NOT.LODBGRADL )THEN
+      CLOSE(UNIT=IUNIT)
+    ENDIF
+  ENDIF
+
+ENDIF
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUECRADI15',1,ZHOOK_HANDLE)
+END SUBROUTINE SUECRADI15
Index: LMDZ5/trunk/libf/phylmd/rrtm/suecradi15.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/suecradi15.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/suecradi15.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SUECRADI15
+END SUBROUTINE SUECRADI15
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/suecradl.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/suecradl.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/suecradl.intfb.h	(revision 1989)
@@ -0,0 +1,5 @@
+INTERFACE
+SUBROUTINE SUECRADL
+!USE MPL_MODULE
+END SUBROUTINE SUECRADL
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/sufft_mod.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/sufft_mod.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/sufft_mod.F90	(revision 1989)
@@ -0,0 +1,39 @@
+MODULE SUFFT_MOD
+CONTAINS
+SUBROUTINE SUFFT
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+USE TPM_DIM
+USE TPM_GEN
+USE TPM_DISTR
+USE TPM_GEOMETRY
+USE TPM_FFT
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM) :: JGL,IGLG
+LOGICAL :: LLP1,LLP2
+
+!     ------------------------------------------------------------------
+
+LLP1 = NPRINTLEV>0
+LLP2 = NPRINTLEV>1
+IF(LLP1) WRITE(NOUT,*) '=== ENTER ROUTINE SUFFT ==='
+
+ALLOCATE(T%TRIGS(R%NDLON,D%NDGL_FS))
+IF(LLP2)WRITE(NOUT,9) 'T%TRIGS    ',SIZE(T%TRIGS),SHAPE(T%TRIGS)
+ALLOCATE(T%NFAX(19,D%NDGL_FS))
+IF(LLP2)WRITE(NOUT,9) 'T%NFAX     ',SIZE(T%NFAX),SHAPE(T%NFAX)
+
+DO JGL=1,D%NDGL_FS
+  IGLG = D%NPTRLS(MYSETW)+JGL-1
+  CALL SET99(T%TRIGS(1,JGL),T%NFAX(1,JGL),G%NLOEN(IGLG))
+ENDDO
+
+!     ------------------------------------------------------------------
+
+9 FORMAT(1X,'ARRAY ',A10,' ALLOCATED ',8I8)
+
+END SUBROUTINE SUFFT
+END MODULE SUFFT_MOD
Index: LMDZ5/trunk/libf/phylmd/rrtm/sugfl.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/sugfl.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/sugfl.F90	(revision 1989)
@@ -0,0 +1,798 @@
+SUBROUTINE SUGFL
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOMLUN , ONLY :  NULOUT
+USE YOM_YGFL , ONLY : YGFL,YGFLC,YL, YI, YA, YS, YR, YG, YTKE,&
+ & YO3, YSRC, YEXT, YQ, YCVGQ, JPGFL,YQVA, &
+ & YL_NL, YI_NL, YA_NL, YO3_NL, YSRC_NL, YEXT_NL, YQ_NL,YQVA_NL, &
+ & YS_NL, YR_NL, YG_NL, YTKE_NL,YCVGQ_NL,NGFL_EXT,&
+ & YCPF , YSPF ,YCPF_NL, YSPF_NL, YAERO, YAERO_NL, NAERO, YGRG, YGRG_NL, NGRG,&
+ & YSDSAT, YCVV, YSDSAT_NL, YCVV_NL, YFORC, YFORC_NL, NGFL_FORC,&
+ & YEZDIAG, YEZDIAG_NL, NGFL_EZDIAG, &
+ & YGHG, YGHG_NL, NGHG, YTRAC, YTRAC_NL, NTRAC, &
+ & YUOM     ,YUAL     ,YDOM     ,YDAL     ,YUEN     ,YUNEBH, &
+ & YUOM_NL  ,YUAL_NL  ,YDOM_NL  ,YDAL_NL  ,YUEN_NL  ,YUNEBH_NL
+USE GFL_SUBS ,ONLY : DEFINE_GFL_COMP 
+USE YOMDIM , ONLY : LADER
+USE YOMCST   , ONLY : RV       ,RCPV     ,RCW      ,RCS
+USE YOMGRB , ONLY : NGRBQ, NGRBO3, NGRBCLWC, NGRBCIWC,&
+ & NGRBCC, NGRB149
+USE YOMCT0   , ONLY : LFPART2,NCONF
+USE YOMFA  , ONLY : YFAQ     ,YFAL     ,YFAI     ,YFAO3    ,&
+ & YFAS     ,YFAR     ,YFAG     ,YFATKE   ,&
+ & YFACPF, YFASPF, YFACLF,YFASRC, YFACVGQ, YFASDSAT, YFACVV ,&
+ & YFAQVA, &
+ & YFAUOM, YFAUAL, YFADOM, YFADAL, YFAUEN, YFAUNEBH
+
+!**** *SUGFL*  - Initialize definition of unified_treatment grid_point fields
+
+!     Purpose.
+!     --------
+!           Initialize definition of unified_treatment fields (GFL)
+!           The GFL ordering in this routine is the ordering for "t" and
+!           "t+dt" values of the GFL in grid-point arrays (GFL and GFLT1),
+!           and also the ordering in the spectral array SPGFL.
+
+!**   Interface.
+!     ----------
+!        *CALL* *SUGFL
+
+!        Explicit arguments :
+!        --------------------
+
+!        Implicit arguments :
+!        --------------------
+!        MODULE YOM_YGFL
+
+!     Method.
+!     -------
+!        See documentation
+
+!     Externals.
+!     ----------
+!        None
+
+!     Reference.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+
+!     Author.
+!     -------
+!        Mats Hamrud  *ECMWF*
+
+!     Modifications.
+!     --------------
+!        Original : 2002-03-11
+!        M.Hamrud : 2002-08-01 Extensive mods
+!        R. El Khatib : 2003-08-19 ARPEGE field names
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        M. Tudor : 2003-10-17 introduce YCPF and YSPF in GFL
+!        A. Untch : 2005-03-11 introduce aerosols
+!        J. Flemming : 2005-04-11 replace aerosols with GRG
+!        Y. Seity  : 2004-11-16 AROME GFL fields
+!        C. Fischer: 23-May-2005 No Ozone in the Meteo-France control variable
+!        Y. Bouteloup: 13-Oct-2005 introduce YCVGQ (Moisture convergence for French physics)
+!        J. Haseler : 2005-10-11 introduce LTRAJIO
+!        JJMorcrette  20060512 GEMS variables in cy31
+!        S. Serrar    20060907 tracers used for diagnostics only (in GFL between GHG and GRG)
+!        A. Alias : 2006-10-13 introduction of YSDSAT and YCVV
+!        B. Sass :  HIRLAM pseudo-prognostic field YQVA
+!        M. Bellus : 27-Sep-2006 introduce YUOM, YUAL, YDOM, YDAL, YUEN and
+!                    YUNEBH (ALARO-0 prognostic convection) + spotted/corrected bug
+!                    in index incrementation after YO3
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM) :: JGFL,IGFLPTR,INCR
+LOGICAL   :: LLDERS,LLT1,LL5
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!-------------------------------------------------------------------------
+
+#include "abor1.intfb.h"
+
+!-------------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUGFL',0,ZHOOK_HANDLE)
+
+!-------------------------------------------------------------------------
+
+IF( .NOT.LFPART2) THEN
+
+!      1.   CASE LFPART2=F
+!
+!      1.1  Initial settings.
+
+  YGFL%NUMFLDS=0
+
+  LL5=NCONF/100 == 1.OR.NCONF == 801.OR.NCONF == 601.OR. &
+   & NCONF == 401.OR.NCONF == 501  
+  LLT1=.TRUE.
+  ! All gridpoint fields have to be set up before the spectral ones
+  !  (i.e. part 1.2 SHOULD be done before part 1.3)
+  LLDERS=.FALSE.
+  ! * Simple GFL variables:
+  !   (order should be the same in parts 1.1, 1.2 and 1.3).
+  INCR=0 
+  YQ    => YGFLC(JPGFL-INCR)
+  INCR=INCR+1
+  YL    => YGFLC(JPGFL-INCR)
+  INCR=INCR+1
+  YI    => YGFLC(JPGFL-INCR)
+  INCR=INCR+1
+  YS    => YGFLC(JPGFL-INCR)
+  INCR=INCR+1
+  YR    => YGFLC(JPGFL-INCR)
+  INCR=INCR+1
+  YG    => YGFLC(JPGFL-INCR)
+  INCR=INCR+1
+  YTKE  => YGFLC(JPGFL-INCR)
+  INCR=INCR+1
+  YA    => YGFLC(JPGFL-INCR)
+  INCR=INCR+1
+  YO3   => YGFLC(JPGFL-INCR)
+  INCR=INCR+1
+  YCPF  => YGFLC(JPGFL-INCR)
+  INCR=INCR+1
+  YSPF  => YGFLC(JPGFL-INCR)
+  INCR=INCR+1
+  YSRC  => YGFLC(JPGFL-INCR)
+  INCR=INCR+1
+  YCVGQ => YGFLC(JPGFL-INCR)
+  INCR=INCR+1
+  YSDSAT => YGFLC(JPGFL-INCR)
+  INCR=INCR+1
+  YCVV  => YGFLC(JPGFL-INCR)
+  INCR=INCR+1
+  YQVA  => YGFLC(JPGFL-INCR)
+  INCR=INCR+1
+  YUOM => YGFLC(JPGFL-INCR)
+  INCR=INCR+1
+  YUAL => YGFLC(JPGFL-INCR)
+  INCR=INCR+1
+  YDOM => YGFLC(JPGFL-INCR)
+  INCR=INCR+1
+  YDAL => YGFLC(JPGFL-INCR)
+  INCR=INCR+1
+  YUEN => YGFLC(JPGFL-INCR)
+  INCR=INCR+1
+  YUNEBH => YGFLC(JPGFL-INCR)
+  INCR=INCR+1
+  ! * Groups of multiple GFL variables:
+  !   (order should be the same in parts 1.1, 1.2 and 1.3).
+  IF (NGFL_EXT == 0) THEN
+    YEXT => YGFLC(JPGFL-INCR:JPGFL-INCR)
+    INCR=INCR+1
+  ENDIF
+  IF (NGFL_FORC == 0) THEN
+    YFORC => YGFLC(JPGFL-INCR:JPGFL-INCR)
+    INCR=INCR+1
+  ENDIF
+  IF (NGFL_EZDIAG == 0) THEN
+    YEZDIAG => YGFLC(JPGFL-INCR:JPGFL-INCR)
+    INCR=INCR+1
+  ENDIF
+  IF (NGHG == 0) THEN
+    YGHG => YGFLC(JPGFL-INCR:JPGFL-INCR)
+    INCR=INCR+1
+  ENDIF
+  IF (NTRAC == 0) THEN
+    YTRAC => YGFLC(JPGFL-INCR:JPGFL-INCR)
+    INCR=INCR+1
+  ENDIF
+  IF (NGRG == 0) THEN
+    YGRG => YGFLC(JPGFL-INCR:JPGFL-INCR)
+    INCR=INCR+1
+  ENDIF
+  IF (NAERO == 0) THEN
+    YAERO => YGFLC(JPGFL-INCR:JPGFL-INCR)
+    INCR=INCR+1
+  ENDIF
+
+!      1.2  Grid-point GFL.
+
+  IF(YQ_NL%LGP) THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YQ=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YQ ,CDNAME=YFAQ%CLNAME,KGRIB=NGRBQ,LDGP=.TRUE.,&
+     & KREQIN=YQ_NL%NREQIN, &
+     & PREFVALI=YQ_NL%REFVALI,LDREQOUT=YQ_NL%LREQOUT,LDERS=LLDERS,LD5=LL5,&
+     & LDT1=LLT1,LDGPINGP=YQ_NL%LGPINGP, &
+     & LDTRAJIO=YQ_NL%LTRAJIO,LDTHERMACT=.TRUE.,PR=RV,PRCP=RCPV)
+  ENDIF
+  IF(YL_NL%LGP) THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YL=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YL ,CDNAME=YFAL%CLNAME,KGRIB=NGRBCLWC, &
+     & LDGP=.TRUE.,KREQIN=YL_NL%NREQIN, &
+     & PREFVALI=YL_NL%REFVALI,LDREQOUT=YL_NL%LREQOUT,LDERS=LLDERS,LD5=LL5, &
+     & LDT1=LLT1,LDTHERMACT=.TRUE.,PR=0.0_JPRB,PRCP=RCW)
+  ENDIF
+  IF(YI_NL%LGP) THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YI=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YI ,CDNAME=YFAI%CLNAME,KGRIB=NGRBCIWC,&
+     & LDGP=.TRUE.,KREQIN=YI_NL%NREQIN, &
+     & PREFVALI=YI_NL%REFVALI,LDREQOUT=YI_NL%LREQOUT,LDERS=LLDERS,LD5=LL5, &
+     & LDT1=LLT1,LDTHERMACT=.TRUE.,PR=0.0_JPRB,PRCP=RCS)
+  ENDIF
+  IF(YS_NL%LGP) THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YS=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YS ,CDNAME=YFAS%CLNAME,KGRIB=NGRB149, &
+     & LDGP=.TRUE.,KREQIN=YS_NL%NREQIN, &
+     & PREFVALI=YS_NL%REFVALI,LDREQOUT=YS_NL%LREQOUT,LDERS=LLDERS,LD5=LL5, &
+     & LDT1=LLT1,LDTHERMACT=.TRUE.,PR=0.0_JPRB,PRCP=RCS)
+  ENDIF
+  IF(YR_NL%LGP) THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YR=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YR ,CDNAME=YFAR%CLNAME,KGRIB=NGRB149,&
+     & LDGP=.TRUE.,KREQIN=YR_NL%NREQIN, &
+     & PREFVALI=YR_NL%REFVALI,LDREQOUT=YR_NL%LREQOUT,LDERS=LLDERS,LD5=LL5, &
+     & LDT1=LLT1,LDTHERMACT=.TRUE.,PR=0.0_JPRB,PRCP=RCW)
+  ENDIF
+  IF(YG_NL%LGP) THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YG=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YG ,CDNAME=YFAG%CLNAME,KGRIB=NGRB149,&
+     & LDGP=.TRUE.,KREQIN=YG_NL%NREQIN, &
+     & PREFVALI=YG_NL%REFVALI,LDREQOUT=YG_NL%LREQOUT,LDERS=LLDERS,LD5=LL5, &
+     & LDT1=LLT1,LDTHERMACT=.TRUE.,PR=0.0_JPRB,PRCP=RCS)
+  ENDIF
+  IF(YTKE_NL%LGP) THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YTKE=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YTKE ,CDNAME=YFATKE%CLNAME,KGRIB=NGRB149,&
+     & LDGP=.TRUE.,KREQIN=YTKE_NL%NREQIN, &
+     & PREFVALI=YTKE_NL%REFVALI,LDREQOUT=YTKE_NL%LREQOUT,LDERS=LLDERS,LD5=LL5,&
+     & LDT1=LLT1)
+  ENDIF
+  IF(YA_NL%LGP)THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YA=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YA ,CDNAME=YFACLF%CLNAME,KGRIB=NGRBCC,&
+     & LDGP=.TRUE.,KREQIN=YA_NL%NREQIN, &
+     & PREFVALI=YA_NL%REFVALI,LDREQOUT=YA_NL%LREQOUT,LDERS=LLDERS,LD5=LL5,&
+     & LDT1=LLT1)
+  ENDIF
+  IF(YO3_NL%LGP)THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YO3=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YO3,CDNAME=YFAO3%CLNAME,KGRIB=NGRBO3,&
+     & LDGP=.TRUE.,KREQIN=YO3_NL%NREQIN, &
+     & PREFVALI=YO3_NL%REFVALI,LDREQOUT=YO3_NL%LREQOUT,LDERS=LLDERS,LD5=LL5,&
+     & LDT1=LLT1,LDGPINGP=YO3_NL%LGPINGP, &
+     & LDTRAJIO=YO3_NL%LTRAJIO)
+  ENDIF
+  IF(YCPF_NL%LGP)THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YCPF=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YCPF,CDNAME=YFACPF%CLNAME,&
+     & KGRIB=YCPF_NL%IGRBCODE,LDGP=.TRUE., &
+     & KREQIN=YCPF_NL%NREQIN,PREFVALI= YCPF_NL%REFVALI,&
+     & LDREQOUT=YCPF_NL%LREQOUT,LDERS=.FALSE.,LD5=LL5, &
+     & LDT1=LLT1,LDGPINGP=.TRUE.)
+  ENDIF
+  IF(YSPF_NL%LGP)THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YSPF=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YSPF,CDNAME=YFASPF%CLNAME,&
+     & KGRIB=YSPF_NL%IGRBCODE,LDGP=.TRUE., &
+     & KREQIN=YSPF_NL%NREQIN, PREFVALI=YSPF_NL%REFVALI,&
+     & LDREQOUT=YSPF_NL%LREQOUT,LDERS=.FALSE.,LD5=LL5, &
+     & LDT1=LLT1,LDGPINGP=.TRUE.)
+  ENDIF
+  IF(YSRC_NL%LGP) THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YSRC=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YSRC ,CDNAME=YFASRC%CLNAME,KGRIB=NGRB149,&
+     & LDGP=.TRUE.,KREQIN=YSRC_NL%NREQIN, &
+     & PREFVALI=YSRC_NL%REFVALI,LDREQOUT=YSRC_NL%LREQOUT,LDERS=LLDERS,&
+     & LD5=LL5,LDT1=LLT1)
+  ENDIF
+  IF(YCVGQ_NL%LGP) THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YCVGQ=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YCVGQ ,CDNAME=YFACVGQ%CLNAME,KGRIB=NGRB149,&
+     & LDGP=.TRUE.,KREQIN=YCVGQ_NL%NREQIN, &
+     & PREFVALI=YCVGQ_NL%REFVALI, LDREQOUT=YCVGQ_NL%LREQOUT,LDERS=LLDERS,&
+     & LD5=LL5,LDT1=LLT1)
+  ENDIF
+  IF(YSDSAT_NL%LGP) THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YSDSAT=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YSDSAT,CDNAME=YFASDSAT%CLNAME,KGRIB=NGRB149,&
+     & LDGP=.TRUE.,KREQIN=YSDSAT_NL%NREQIN, &
+     & PREFVALI=YSDSAT_NL%REFVALI, LDREQOUT=YSDSAT_NL%LREQOUT,LDERS=LLDERS,&
+     & LD5=LL5,LDT1=LLT1)
+  ENDIF
+  IF(YCVV_NL%LGP) THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YCVV=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YCVV,CDNAME=YFACVV%CLNAME,KGRIB=NGRB149,&
+     & LDGP=.TRUE.,KREQIN=YCVV_NL%NREQIN, &
+     & PREFVALI=YCVV_NL%REFVALI, LDREQOUT=YCVV_NL%LREQOUT,LDERS=LLDERS,&
+     & LD5=LL5,LDT1=LLT1)
+  ENDIF
+  IF(YQVA_NL%LGP) THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YQVA=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YQVA,CDNAME=YFAQVA%CLNAME,&
+     & KGRIB=YQVA_NL%IGRBCODE,LDGP=.TRUE., &
+     & KREQIN=YQVA_NL%NREQIN, PREFVALI=YQVA_NL%REFVALI,&
+     & LDREQOUT=YQVA_NL%LREQOUT,LDERS=.FALSE.,LD5=LL5, &
+     & LDT1=LLT1,LDGPINGP=.TRUE.)
+  ENDIF
+  IF(YUOM_NL%LGP)THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YUOM=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YUOM,CDNAME=YFAUOM%CLNAME,&
+     & KGRIB=YUOM_NL%IGRBCODE,LDGP=.TRUE., &
+     & KREQIN=YUOM_NL%NREQIN,&
+     & PREFVALI=YUOM_NL%REFVALI,LDREQOUT=YUOM_NL%LREQOUT,&
+     & LDERS=.FALSE.,LD5=LL5,LDT1=LLT1,LDGPINGP=.TRUE.)
+  ENDIF
+  IF(YUAL_NL%LGP)THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YUAL=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YUAL,CDNAME=YFAUAL%CLNAME,&
+     & KGRIB=YUAL_NL%IGRBCODE,LDGP=.TRUE., &
+     & KREQIN=YUAL_NL%NREQIN,&
+     & PREFVALI=YUAL_NL%REFVALI,LDREQOUT=YUAL_NL%LREQOUT,&
+     & LDERS=.FALSE.,LD5=LL5,LDT1=LLT1,LDGPINGP=.TRUE.)
+  ENDIF
+  IF(YDOM_NL%LGP)THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YDOM=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YDOM,CDNAME=YFADOM%CLNAME,&
+     & KGRIB=YDOM_NL%IGRBCODE,LDGP=.TRUE., &
+     & KREQIN=YDOM_NL%NREQIN,&
+     & PREFVALI=YDOM_NL%REFVALI,LDREQOUT=YDOM_NL%LREQOUT,&
+     & LDERS=.FALSE.,LD5=LL5,LDT1=LLT1,LDGPINGP=.TRUE.)
+  ENDIF
+  IF(YDAL_NL%LGP)THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YDAL=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YDAL,CDNAME=YFADAL%CLNAME,&
+     & KGRIB=YDAL_NL%IGRBCODE,LDGP=.TRUE., &
+     & KREQIN=YDAL_NL%NREQIN,&
+     & PREFVALI=YDAL_NL%REFVALI,LDREQOUT=YDAL_NL%LREQOUT,&
+     & LDERS=.FALSE.,LD5=LL5,LDT1=LLT1,LDGPINGP=.TRUE.)
+  ENDIF
+  IF(YUEN_NL%LGP)THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YUEN=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YUEN,CDNAME=YFAUEN%CLNAME,&
+     & KGRIB=YUEN_NL%IGRBCODE,LDGP=.TRUE., & 
+     & KREQIN=YUEN_NL%NREQIN,&
+     & PREFVALI=YUEN_NL%REFVALI,LDREQOUT=YUEN_NL%LREQOUT,&
+     & LDERS=.FALSE.,LD5=LL5,LDT1=LLT1,LDGPINGP=.TRUE.)
+  ENDIF
+  IF(YUNEBH_NL%LGP)THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YUNEBH=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YUNEBH,CDNAME=YFAUNEBH%CLNAME,&
+     & KGRIB=YUNEBH_NL%IGRBCODE,LDGP=.TRUE., &
+     & KREQIN=YUNEBH_NL%NREQIN,&
+     & PREFVALI=YUNEBH_NL%REFVALI,LDREQOUT=YUNEBH_NL%LREQOUT,&
+     & LDERS=.FALSE.,LD5=LL5,LDT1=LLT1,LDGPINGP=.TRUE.)
+  ENDIF
+
+  ! Extra GFL variables
+  ! - do a preliminary test to see if, when there are extra-GFL and when at
+  !   least one of them is a grid-point one, there is no extra-GFL which is
+  !   a spectral one (not allowed):
+  !   in this case all the extra-GFL must be grid-point ones.
+  IF (NGFL_EXT > 1) THEN
+   IF(ANY(YEXT_NL(1:NGFL_EXT)%LGP)) THEN
+    DO JGFL=1,NGFL_EXT
+      IF (YEXT_NL(JGFL)%LSP) CALL ABOR1&
+       & ('SUGFL:EXTRA GFL FIELDS HAVE TO BE ALL EITHER SPECTRAL OR GRIDPOINT')
+    ENDDO
+   ENDIF
+  ENDIF
+  ! - define the GFL components (all the extra-GFL are grid-point ones).
+  DO JGFL=1,NGFL_EXT
+    IF(YEXT_NL(JGFL)%LGP) THEN
+      IF(JGFL == 1) THEN
+        IGFLPTR=YGFL%NUMFLDS+1
+        YEXT=>YGFLC(IGFLPTR:IGFLPTR+NGFL_EXT-1)
+      ENDIF
+      CALL DEFINE_GFL_COMP(YDGFLC=YEXT(JGFL),CDNAME=YEXT_NL(JGFL)%CNAME ,&
+       & KGRIB=YEXT_NL(JGFL)%IGRBCODE,LDGP=.TRUE.,KREQIN=YEXT_NL(JGFL)%NREQIN,&
+       & PREFVALI=YEXT_NL(JGFL)%REFVALI, LDREQOUT=YEXT_NL(JGFL)%LREQOUT ,&
+       & LDERS=LLDERS, LD5=LL5, LDT1=LLT1,LDGPINGP=YEXT_NL(JGFL)%LGPINGP, &
+       & LDTRAJIO=YEXT_NL(JGFL)%LTRAJIO)
+    ENDIF
+  ENDDO
+
+  ! Forcings
+  DO JGFL=1,NGFL_FORC
+    IF(YFORC_NL(JGFL)%LGP) THEN
+      IF(JGFL == 1) THEN
+        IGFLPTR=YGFL%NUMFLDS+1
+        YFORC=>YGFLC(IGFLPTR:IGFLPTR+NGFL_FORC-1)
+      ENDIF
+      CALL DEFINE_GFL_COMP(YDGFLC=YFORC(JGFL),CDNAME=YFORC_NL(JGFL)%CNAME ,&
+       & KGRIB=YFORC_NL(JGFL)%IGRBCODE,LDGP=.TRUE.,KREQIN=YFORC_NL(JGFL)%NREQIN,&
+       & PREFVALI=YFORC_NL(JGFL)%REFVALI, LDREQOUT=YFORC_NL(JGFL)%LREQOUT ,&
+       & LDERS=LLDERS, LD5=LL5, LDT1=LLT1,LDGPINGP=YFORC_NL(JGFL)%LGPINGP, &
+       & LDTRAJIO=YFORC_NL(JGFL)%LTRAJIO)
+    ENDIF
+  ENDDO
+
+  ! Easy diagnostics
+  DO JGFL=1,NGFL_EZDIAG
+    IF(YEZDIAG_NL(JGFL)%LGP) THEN
+      IF(JGFL == 1) THEN
+        IGFLPTR=YGFL%NUMFLDS+1
+        YEZDIAG=>YGFLC(IGFLPTR:IGFLPTR+NGFL_EZDIAG-1)
+      ENDIF
+      CALL DEFINE_GFL_COMP(YDGFLC=YEZDIAG(JGFL),CDNAME=YEZDIAG_NL(JGFL)%CNAME ,&
+       & KGRIB=YEZDIAG_NL(JGFL)%IGRBCODE,LDGP=.TRUE.,KREQIN=YEZDIAG_NL(JGFL)%NREQIN,&
+       & PREFVALI=YEZDIAG_NL(JGFL)%REFVALI, LDREQOUT=YEZDIAG_NL(JGFL)%LREQOUT ,&
+       & LDERS=LLDERS, LD5=LL5, LDT1=LLT1,LDGPINGP=YEZDIAG_NL(JGFL)%LGPINGP, &
+       & LDTRAJIO=YEZDIAG_NL(JGFL)%LTRAJIO)
+    ENDIF
+  ENDDO
+
+!-- Greenhouse Gases
+  DO JGFL=1,NGHG
+    IF(YGHG_NL(JGFL)%LGP) THEN
+      IF(JGFL == 1) THEN
+        IGFLPTR=YGFL%NUMFLDS+1
+        YGHG=>YGFLC(IGFLPTR:IGFLPTR+NGHG-1)
+      ENDIF
+      CALL DEFINE_GFL_COMP(YDGFLC=YGHG(JGFL),CDNAME=YGHG_NL(JGFL)%CNAME ,&
+       & KGRIB=YGHG_NL(JGFL)%IGRBCODE, LDGP=.TRUE.,  KREQIN=YGHG_NL(JGFL)%NREQIN ,&
+       & PREFVALI=YGHG_NL(JGFL)%REFVALI, LDREQOUT=YGHG_NL(JGFL)%LREQOUT ,&
+       & LDERS=LLDERS, LD5=LL5, LDT1=LLT1,LDGPINGP=YGHG_NL(JGFL)%LGPINGP, &
+       & LDTRAJIO=YGHG_NL(JGFL)%LTRAJIO)
+    ENDIF
+  ENDDO
+
+!--  Diagnostic tracers
+  DO JGFL=1,NTRAC
+    IF(YTRAC_NL(JGFL)%LGP) THEN
+      IF(JGFL == 1) THEN
+        IGFLPTR=YGFL%NUMFLDS+1
+        YTRAC=>YGFLC(IGFLPTR:IGFLPTR+NTRAC-1)
+      ENDIF
+      CALL DEFINE_GFL_COMP(YDGFLC=YTRAC(JGFL),CDNAME=YTRAC_NL(JGFL)%CNAME ,&
+       & KGRIB=YTRAC_NL(JGFL)%IGRBCODE, LDGP=.TRUE.,  KREQIN=YTRAC_NL(JGFL)%NREQIN ,&
+       & PREFVALI=YTRAC_NL(JGFL)%REFVALI, LDREQOUT=YTRAC_NL(JGFL)%LREQOUT ,&
+       & LDERS=LLDERS, LD5=LL5, LDT1=LLT1,LDGPINGP=YTRAC_NL(JGFL)%LGPINGP, &
+       & LDTRAJIO=YTRAC_NL(JGFL)%LTRAJIO)
+    ENDIF
+  ENDDO
+
+!-- Reactive Gases
+  DO JGFL=1,NGRG
+    IF(YGRG_NL(JGFL)%LGP) THEN
+      IF(JGFL == 1) THEN
+        IGFLPTR=YGFL%NUMFLDS+1
+        YGRG=>YGFLC(IGFLPTR:IGFLPTR+NGRG-1)
+      ENDIF
+      CALL DEFINE_GFL_COMP(YDGFLC=YGRG(JGFL),CDNAME=YGRG_NL(JGFL)%CNAME ,&
+       & KGRIB=YGRG_NL(JGFL)%IGRBCODE, LDGP=.TRUE.,  KREQIN=YGRG_NL(JGFL)%NREQIN ,&
+       & PREFVALI=YGRG_NL(JGFL)%REFVALI, LDREQOUT=YGRG_NL(JGFL)%LREQOUT ,&
+       & LDERS=LLDERS, LD5=LL5, LDT1=LLT1,LDGPINGP=YGRG_NL(JGFL)%LGPINGP, &
+       & LDTRAJIO=YGRG_NL(JGFL)%LTRAJIO)
+    ENDIF
+  ENDDO
+    
+!-- Aerosols
+  DO JGFL=1,NAERO
+    IF(YAERO_NL(JGFL)%LGP) THEN
+      IF(JGFL == 1) THEN
+        IGFLPTR=YGFL%NUMFLDS+1
+        YAERO=>YGFLC(IGFLPTR:IGFLPTR+NAERO-1)
+      ENDIF
+      CALL DEFINE_GFL_COMP(YDGFLC=YAERO(JGFL),CDNAME=YAERO_NL(JGFL)%CNAME ,&
+       & KGRIB=YAERO_NL(JGFL)%IGRBCODE, LDGP=.TRUE.,  KREQIN=YAERO_NL(JGFL)%NREQIN ,&
+       & PREFVALI=YAERO_NL(JGFL)%REFVALI, LDREQOUT=YAERO_NL(JGFL)%LREQOUT ,&
+       & LDERS=LLDERS, LD5=LL5, LDT1=LLT1,LDGPINGP=YAERO_NL(JGFL)%LGPINGP, &
+       & LDTRAJIO=YAERO_NL(JGFL)%LTRAJIO)
+    ENDIF
+  ENDDO
+
+!      1.3  Spectral GFL.
+  
+  IF(YQ_NL%LSP) THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YQ=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YQ ,CDNAME=YFAQ%CLNAME,KGRIB=NGRBQ,&
+     & LDGP=.FALSE.,KREQIN=YQ_NL%NREQIN, & 
+     & PREFVALI=YQ_NL%REFVALI, LDREQOUT=YQ_NL%LREQOUT, LDERS=LADER,LD5=LL5, &
+     & LDT1=LLT1,LDTHERMACT=.TRUE.,PR=RV,PRCP=RCPV)
+  ENDIF
+  IF(YL_NL%LSP) THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YL=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YL ,CDNAME=YFAL%CLNAME,KGRIB=NGRBCLWC,&
+     & LDGP=.FALSE.,KREQIN=YL_NL%NREQIN, &
+     & PREFVALI=YL_NL%REFVALI, LDREQOUT=YL_NL%LREQOUT, LDERS=LADER,LD5=LL5, &
+     & LDT1=LLT1,LDTHERMACT=.TRUE.,PR=0.0_JPRB,PRCP=RCW)
+  ENDIF
+  IF(YI_NL%LSP)THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YI=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YI ,CDNAME=YFAI%CLNAME,KGRIB=NGRBCIWC,&
+     & LDGP=.FALSE.,KREQIN=YI_NL%NREQIN, &
+     & PREFVALI=YI_NL%REFVALI, LDREQOUT=YI_NL%LREQOUT, LDERS=LADER,LD5=LL5, &
+     & LDT1=LLT1,LDTHERMACT=.TRUE.,PR=0.0_JPRB,PRCP=RCS)
+  ENDIF
+  IF(YS_NL%LSP)THEN
+    CALL ABOR1('SUGFL: spectral snow not coded ')
+  ENDIF
+  IF(YR_NL%LSP)THEN
+    CALL ABOR1('SUGFL: spectral rain not coded ')
+  ENDIF
+  IF(YG_NL%LSP)THEN
+    CALL ABOR1('SUGFL: spectral graupels not coded ')
+  ENDIF
+  IF(YTKE_NL%LSP)THEN
+    CALL ABOR1('SUGFL: spectral TKE not coded ')
+  ENDIF
+  IF(YA_NL%LSP)THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YA=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YA ,CDNAME=YFACLF%CLNAME,KGRIB=NGRBCC,&
+     & LDGP=.FALSE.,KREQIN=YA_NL%NREQIN, &
+     & PREFVALI=YA_NL%REFVALI, LDREQOUT=YA_NL%LREQOUT, LDERS=LADER,LD5=LL5,&
+     & LDT1=LLT1)
+  ENDIF
+  IF(YO3_NL%LSP)THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YO3=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YO3,CDNAME=YFAO3%CLNAME,KGRIB=NGRBO3,&
+     & LDGP=.FALSE.,KREQIN=YO3_NL%NREQIN, & 
+     & PREFVALI=YO3_NL%REFVALI, LDREQOUT=YO3_NL%LREQOUT, LDERS=LADER,LD5=LL5,&
+     & LDT1=LLT1)
+  ENDIF
+  IF(YCPF_NL%LSP)THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YCPF=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YCPF,CDNAME=YFACPF%CLNAME,&
+     & KGRIB=YCPF_NL%IGRBCODE, LDGP=.FALSE., &
+     & KREQIN=YCPF_NL%NREQIN,PREFVALI=YCPF_NL%REFVALI,LDREQOUT=YCPF_NL%LREQOUT,&
+     & LDERS=.FALSE.,LD5=.FALSE., &
+     & LDT1=LLT1)
+  ENDIF
+  IF(YSPF_NL%LSP)THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YSPF=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YSPF,CDNAME=YFASPF%CLNAME,&
+     & KGRIB=YSPF_NL%IGRBCODE,LDGP= .FALSE., &
+     & KREQIN=YSPF_NL%NREQIN,PREFVALI=YSPF_NL%REFVALI,LDREQOUT=YSPF_NL%LREQOUT,&
+     & LDERS=.FALSE.,LD5=.FALSE., &
+     & LDT1=LLT1)
+  ENDIF
+  IF(YSRC_NL%LSP)THEN
+    CALL ABOR1('SUGFL: spectral SRC not coded ')
+  ENDIF
+  IF(YCVGQ_NL%LSP)THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YCVGQ=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YCVGQ,CDNAME=YFACVGQ%CLNAME,&
+     & KGRIB=YCVGQ_NL%IGRBCODE,LDGP= .FALSE., &
+     & KREQIN=YCVGQ_NL%NREQIN,PREFVALI=YCVGQ_NL%REFVALI,&
+     & LDREQOUT=YCVGQ_NL%LREQOUT,LDERS= .TRUE.,LD5=.FALSE., & 
+     & LDT1=LLT1)
+  ENDIF
+  IF(YSDSAT_NL%LSP)THEN
+    CALL ABOR1('SUGFL: spectral SDSAT not coded ')
+  ENDIF
+  IF(YCVV_NL%LSP)THEN
+    CALL ABOR1('SUGFL: spectral CVV not coded ')
+  ENDIF
+  IF(YQVA_NL%LSP) THEN
+    IGFLPTR=YGFL%NUMFLDS+1
+    YQVA=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YQVA,CDNAME=YFAQVA%CLNAME,&
+     & KGRIB=YQVA_NL%IGRBCODE, LDGP=.FALSE., &
+     & KREQIN=YQVA_NL%NREQIN,PREFVALI=YQVA_NL%REFVALI,LDREQOUT=YQVA_NL%LREQOUT,&
+     & LDERS=.FALSE.,LD5=.FALSE., &
+     & LDT1=LLT1)
+  ENDIF
+  IF(YUOM_NL%LSP)THEN
+    CALL ABOR1('SUGFL: spectral UOM not coded ')
+    ! ----------------------------------------------------------------------
+    ! what is below must be checked when UOM will be coded!
+    IGFLPTR=YGFL%NUMFLDS+1
+    YUOM=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YUOM,CDNAME=YFAUOM%CLNAME,&
+     & KGRIB=YUOM_NL%IGRBCODE,LDGP=.FALSE., &
+     & KREQIN=YUOM_NL%NREQIN,&
+     & PREFVALI=YUOM_NL%REFVALI,LDREQOUT=YUOM_NL%LREQOUT,&
+     & LDERS=.FALSE.,LD5=.FALSE.,LDT1=LLT1)
+    ! ----------------------------------------------------------------------
+  ENDIF
+  IF(YUAL_NL%LSP)THEN
+    CALL ABOR1('SUGFL: spectral UAL not coded ')
+    ! ----------------------------------------------------------------------
+    ! what is below must be checked when UAL will be coded!
+    IGFLPTR=YGFL%NUMFLDS+1
+    YUAL=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YUAL,CDNAME=YFAUAL%CLNAME,&
+     & KGRIB=YUAL_NL%IGRBCODE,LDGP=.FALSE., &
+     & KREQIN=YUAL_NL%NREQIN,&
+     & PREFVALI=YUAL_NL%REFVALI,LDREQOUT=YUAL_NL%LREQOUT,&
+     & LDERS=.FALSE.,LD5=.FALSE.,LDT1=LLT1)
+    ! ----------------------------------------------------------------------
+  ENDIF
+  IF(YDOM_NL%LSP)THEN
+    CALL ABOR1('SUGFL: spectral DOM not coded ')
+    ! ----------------------------------------------------------------------
+    ! what is below must be checked when DOM will be coded!
+    IGFLPTR=YGFL%NUMFLDS+1
+    YDOM=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YDOM,CDNAME=YFADOM%CLNAME,&
+     & KGRIB=YDOM_NL%IGRBCODE,LDGP=.FALSE., &
+     & KREQIN=YDOM_NL%NREQIN,&
+     & PREFVALI=YDOM_NL%REFVALI,LDREQOUT=YDOM_NL%LREQOUT,&
+     & LDERS=.FALSE.,LD5=.FALSE.,LDT1=LLT1)
+    ! ----------------------------------------------------------------------
+  ENDIF
+  IF(YDAL_NL%LSP)THEN
+    CALL ABOR1('SUGFL: spectral DAL not coded ')
+    ! ----------------------------------------------------------------------
+    ! what is below must be checked when DAL will be coded!
+    IGFLPTR=YGFL%NUMFLDS+1
+    YDAL=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YDAL,CDNAME=YFADAL%CLNAME,&
+     & KGRIB=YDAL_NL%IGRBCODE,LDGP=.FALSE., & 
+     & KREQIN=YDAL_NL%NREQIN,&
+     & PREFVALI=YDAL_NL%REFVALI,LDREQOUT=YDOM_NL%LREQOUT,&
+     & LDERS=.FALSE.,LD5=.FALSE.,LDT1=LLT1)
+    ! ----------------------------------------------------------------------
+  ENDIF
+  IF(YUEN_NL%LSP)THEN
+    CALL ABOR1('SUGFL: spectral UEN not coded ')
+    ! ----------------------------------------------------------------------
+    ! what is below must be checked when UEN will be coded!
+    IGFLPTR=YGFL%NUMFLDS+1
+    YUEN=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YUEN,CDNAME=YFAUEN%CLNAME,&
+     & KGRIB=YUEN_NL%IGRBCODE,LDGP=.FALSE., &
+     & KREQIN=YUEN_NL%NREQIN,&
+     & PREFVALI=YUEN_NL%REFVALI,LDREQOUT=YUEN_NL%LREQOUT,&
+     & LDERS=.FALSE.,LD5=.FALSE.,LDT1=LLT1)
+    ! ----------------------------------------------------------------------
+  ENDIF
+  IF(YUNEBH_NL%LSP)THEN
+    CALL ABOR1('SUGFL: spectral UNEBH not coded ')
+    ! ----------------------------------------------------------------------
+    ! what is below must be checked when UNEBH will be coded!
+    IGFLPTR=YGFL%NUMFLDS+1
+    YUNEBH=>YGFLC(IGFLPTR)
+    CALL DEFINE_GFL_COMP(YDGFLC=YUNEBH,CDNAME=YFAUNEBH%CLNAME,&
+     & KGRIB=YUNEBH_NL%IGRBCODE,LDGP=.FALSE., &
+     & KREQIN=YUNEBH_NL%NREQIN,&
+     & PREFVALI=YUNEBH_NL%REFVALI,LDREQOUT=YUNEBH_NL%LREQOUT,&
+     & LDERS=.FALSE.,LD5=.FALSE.,LDT1=LLT1)
+    ! ----------------------------------------------------------------------
+  ENDIF
+
+  ! Extra GFL variables (assumed to be all spectral in this piece of code)
+  DO JGFL=1,NGFL_EXT
+    IF(YEXT_NL(JGFL)%LSP) THEN
+      IF(JGFL == 1) THEN
+        IGFLPTR=YGFL%NUMFLDS+1
+        YEXT=>YGFLC(IGFLPTR:IGFLPTR+NGFL_EXT-1)
+      ENDIF
+      CALL DEFINE_GFL_COMP(YDGFLC=YEXT(JGFL),CDNAME=YEXT_NL(JGFL)%CNAME ,&
+       & KGRIB=YEXT_NL(JGFL)%IGRBCODE,LDGP=.FALSE.,KREQIN=YEXT_NL(JGFL)%NREQIN,&
+       & PREFVALI=YEXT_NL(JGFL)%REFVALI, LDREQOUT=YEXT_NL(JGFL)%LREQOUT ,&
+       & LDERS=LADER, LD5=LL5, LDT1=LLT1)
+    ENDIF
+  ENDDO
+
+  ! Forcings
+  DO JGFL=1,NGFL_FORC
+    IF(YFORC_NL(JGFL)%LSP) THEN
+      CALL ABOR1('SUGFL: FORCINGS HAVE TO BE GRIDPOINT FIELDS')
+      ! ----------------------------------------------------------------------
+      ! what is below must be checked when spectral forcings will be coded!
+      IF(JGFL == 1) THEN
+        IGFLPTR=YGFL%NUMFLDS+1
+        YFORC=>YGFLC(IGFLPTR:IGFLPTR+NGFL_FORC-1)
+      ENDIF
+      CALL DEFINE_GFL_COMP(YDGFLC=YFORC(JGFL),CDNAME=YFORC_NL(JGFL)%CNAME,&
+       & KGRIB=YFORC_NL(JGFL)%IGRBCODE,LDGP=.FALSE.,KREQIN=YFORC_NL(JGFL)%NREQIN,&
+       & PREFVALI=YFORC_NL(JGFL)%REFVALI, LDREQOUT=YFORC_NL(JGFL)%LREQOUT, &
+       & LDERS=.FALSE.,LD5=.FALSE.,LDT1=.FALSE.)
+      ! ----------------------------------------------------------------------
+    ENDIF
+  ENDDO
+
+  ! Easy diagnostics
+  DO JGFL=1,NGFL_EZDIAG
+    IF(YEZDIAG_NL(JGFL)%LSP) THEN
+      CALL ABOR1('SUGFL: EZDIAG HAVE TO BE GRIDPOINT FIELDS')
+      ! ----------------------------------------------------------------------
+      ! what is below must be checked when spectral easy diag. will be coded!
+      IF(JGFL == 1) THEN
+        IGFLPTR=YGFL%NUMFLDS+1
+        YEZDIAG=>YGFLC(IGFLPTR:IGFLPTR+NGFL_EZDIAG-1)
+      ENDIF
+      CALL DEFINE_GFL_COMP(YDGFLC=YEZDIAG(JGFL),CDNAME=YEZDIAG_NL(JGFL)%CNAME,&
+       & KGRIB=YEZDIAG_NL(JGFL)%IGRBCODE,LDGP=.FALSE.,&
+       & KREQIN=YEZDIAG_NL(JGFL)%NREQIN,&
+       & PREFVALI=YEZDIAG_NL(JGFL)%REFVALI, LDREQOUT=YEZDIAG_NL(JGFL)%LREQOUT, &
+       & LDERS=.FALSE.,LD5=.FALSE.,LDT1=.FALSE.)
+      ! ----------------------------------------------------------------------
+    ENDIF
+  ENDDO
+
+!Greenhouse Gases
+  DO JGFL=1,NGHG
+    IF(YGHG_NL(JGFL)%LSP) THEN
+      IF(JGFL == 1) THEN
+        IGFLPTR=YGFL%NUMFLDS+1
+        YGHG=>YGFLC(IGFLPTR:IGFLPTR+NGHG-1)
+      ENDIF
+      CALL DEFINE_GFL_COMP(YDGFLC=YGHG(JGFL),CDNAME=YGHG_NL(JGFL)%CNAME ,&
+       & KGRIB=YGHG_NL(JGFL)%IGRBCODE, LDGP=.FALSE.,  KREQIN=YGHG_NL(JGFL)%NREQIN ,&
+       & PREFVALI=YGHG_NL(JGFL)%REFVALI, LDREQOUT=YGHG_NL(JGFL)%LREQOUT ,&
+       & LDERS=LADER, LD5=LL5, LDT1=LLT1)
+    ENDIF
+  ENDDO
+
+!Diagnostic tracers
+  DO JGFL=1,NTRAC
+    IF(YTRAC_NL(JGFL)%LSP) THEN
+      IF(JGFL == 1) THEN
+        IGFLPTR=YGFL%NUMFLDS+1
+        YTRAC=>YGFLC(IGFLPTR:IGFLPTR+NTRAC-1)
+      ENDIF
+      CALL DEFINE_GFL_COMP(YDGFLC=YTRAC(JGFL),CDNAME=YTRAC_NL(JGFL)%CNAME ,&
+       & KGRIB=YTRAC_NL(JGFL)%IGRBCODE, LDGP=.FALSE.,  KREQIN=YTRAC_NL(JGFL)%NREQIN ,&
+       & PREFVALI=YTRAC_NL(JGFL)%REFVALI, LDREQOUT=YTRAC_NL(JGFL)%LREQOUT ,&
+       & LDERS=LADER, LD5=LL5, LDT1=LLT1)
+    ENDIF
+  ENDDO
+
+!Reactive Gases
+  DO JGFL=1,NGRG
+    IF(YGRG_NL(JGFL)%LSP) THEN
+      IF(JGFL == 1) THEN
+        IGFLPTR=YGFL%NUMFLDS+1
+        YGRG=>YGFLC(IGFLPTR:IGFLPTR+NGRG-1)
+      ENDIF
+      CALL DEFINE_GFL_COMP(YDGFLC=YGRG(JGFL),CDNAME=YGRG_NL(JGFL)%CNAME ,&
+       & KGRIB=YGRG_NL(JGFL)%IGRBCODE, LDGP=.FALSE.,  KREQIN=YGRG_NL(JGFL)%NREQIN ,&
+       & PREFVALI=YGRG_NL(JGFL)%REFVALI, LDREQOUT=YGRG_NL(JGFL)%LREQOUT ,&
+       & LDERS=LADER, LD5=LL5, LDT1=LLT1)
+    ENDIF
+  ENDDO
+
+!Aerosols
+  DO JGFL=1,NAERO
+    IF(YAERO_NL(JGFL)%LSP) THEN
+      IF(JGFL == 1) THEN
+        IGFLPTR=YGFL%NUMFLDS+1
+        YAERO=>YGFLC(IGFLPTR:IGFLPTR+NAERO-1)
+      ENDIF
+      CALL DEFINE_GFL_COMP(YDGFLC=YAERO(JGFL),CDNAME=YAERO_NL(JGFL)%CNAME ,&
+       & KGRIB=YAERO_NL(JGFL)%IGRBCODE, LDGP=.FALSE.,  KREQIN=YAERO_NL(JGFL)%NREQIN ,&
+       & PREFVALI=YAERO_NL(JGFL)%REFVALI, LDREQOUT=YAERO_NL(JGFL)%LREQOUT ,&
+       & LDERS=LADER, LD5=LL5, LDT1=LLT1)
+    ENDIF
+  ENDDO
+
+ELSE
+
+!      2.   CASE LFPART2=T
+
+  WRITE(NULOUT,*) ' SUGFL, LFPART2, YGFL%NUMFLDS=',YGFL%NUMFLDS
+ENDIF
+
+!-------------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUGFL',1,ZHOOK_HANDLE)
+END SUBROUTINE SUGFL
Index: LMDZ5/trunk/libf/phylmd/rrtm/sugwd.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/sugwd.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/sugwd.intfb.h	(revision 1989)
@@ -0,0 +1,9 @@
+INTERFACE
+SUBROUTINE SUGWD(KULOUT,KLEV,PVAH,PVBH)
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+INTEGER(KIND=JPIM),INTENT(IN) :: KULOUT
+REAL(KIND=JPRB) ,INTENT(IN) :: PVAH(KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PVBH(KLEV+1)
+END SUBROUTINE SUGWD
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/suhlph.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/suhlph.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/suhlph.intfb.h	(revision 1989)
@@ -0,0 +1,6 @@
+INTERFACE
+subroutine suhlph(kulout)
+use parkind1 ,only : jpim ,jprb
+integer (kind=jpim),intent(in) :: kulout
+end subroutine suhlph
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/suinit.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/suinit.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/suinit.F90	(revision 1989)
@@ -0,0 +1,164 @@
+SUBROUTINE SUINIT(klon,klev)
+#ifdef DOC
+
+!     **** *SUINIT* - SCM initialization.
+
+!     Purpose.
+!     --------
+
+!     **   Interface.
+!     ----------
+
+!     Explicit arguments :    None.
+!     --------------------
+
+!     Implicit arguments :    None.
+!     --------------------
+
+!     Method.
+!     -------
+
+!     Externals.   None.
+!     ----------
+
+!     Reference.
+!     ----------
+
+!     Author.
+!     -------
+!     Eric Bazile, Francois Bouyssel et Jean-Marcel Piriou
+
+!     Modifications.
+!     --------------
+!     Original :97-02-01
+!               Jozef Vivoda, SHMI: calling sequence as in 3D model
+!                                   and ECMWF setup
+!     2001-11-27 P. Marquet : several printout on listing (NULOUT=15)
+
+!     ------------------------------------------------------------------
+#endif
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+!#include "tsmbkind.h"
+
+USE PARDIM, ONLY : JPMXLE
+USE YOMCT0B  , ONLY : LECMWF
+USE YOMRIP   , ONLY : NINDAT   ,NSSSSS
+USE YOMDIM  
+USE YOMDPHY  
+! MPL 29042010: NDLNPR,RHYDR0 non initialises et pour ne pas mettre tout sudyn.F90
+USE YOMDYN  , ONLY : TSTEP , NDLNPR , RHYDR0        ! MPL 29042010
+!USE YOMEVOL  , ONLY : TECH     ,FREQFS   ,FREQFE   , FREQDDH
+!USE YOMCT0   , ONLY : LFROG
+! quelques ajouts qui viennent de suallo
+USE YOMGEM   , ONLY : VDELA    , VDELB   ,VC       ,NLOEN    ,NLOENG  ,NGPTOT
+USE YOMSTA   , ONLY : STZ      ,STPREH   ,STPRE    ,STPHI    ,STTEM   ,STDEN
+USE YOEAERD  , ONLY : CVDAES   ,CVDAEL   ,CVDAEU   ,CVDAED
+USE YOEOVLP  , ONLY : RA1OVLP
+USE YOECLD   , ONLY : CETA
+USE YOECND   , ONLY : CEVAPCU
+USE YOMTOPH  , ONLY : RMESOU   ,RMESOT   ,RMESOQ
+USE YOMGC    , ONLY : GEMU     ,GELAM    ,GELAT    ,GECLO    ,GESLO    ,GM       ,GAW
+
+
+IMPLICIT NONE
+LOGICAL LLTRACE, LLDEBUG
+integer klon,klev
+CHARACTER*200 CFICP
+CHARACTER*200 CFLUX
+CHARACTER*200 CLIST
+CHARACTER*200 CFDDH
+CHARACTER*80 CNMEXP
+
+
+LLTRACE=.TRUE.
+LLDEBUG=.TRUE.
+
+!     ------------------------
+!     *    READ NAMELISTS.
+!     ------------------------
+
+!----------------------------------------------------------------
+! Elements indispensables de SUNAM pour faire tourner RRTM dans LMDZ
+!-------------------------------------------------------------------
+CFICP='Profile'
+CFLUX='Output'
+CLIST='Listing'
+CFDDH='DHFDL'
+CNMEXP='SCM'
+TSTEP=450
+! MPL 29042010 - RHYDR0 - upper boundary contition for hydrostatic
+RHYDR0=1._JPRB
+! MPL 29042010
+! NDLNPR : NDLNPR=0: conventional formulation of delta, i.e. ln(P(l)/P(l-1)).
+!          NDLNPR=1: formulation of delta used in non hydrostatic model,
+NDLNPR=0
+print *,'SUINIT: RHYDR0 NDLNPR',RHYDR0,NDLNPR
+
+!----------------------------------------------------------------
+! Elements indispensables de SUDIM pour faire tourner RRTM dans LMDZ
+!-------------------------------------------------------------------
+NDLON=klon
+NFLEVG=klev
+NPROMA=klon
+
+!-------------------------------------------------------------------
+!JV    Initialize constants
+!     ---------------------
+!JV
+IF (LLTRACE)  WRITE(*,*) " coucou SUINIT : avant SUCST"
+WRITE(*,FMT='('' ---------------- '')')
+WRITE(*,FMT='(''     SUCST : '')')
+WRITE(*,FMT='('' ---------------- '')')
+NINDAT=20090408      !!!!! A REVOIR (MPL)
+NSSSSS=0  ! LMDZ demarre tjrs a 00h -- MPL 15.04.09
+CALL SUCST(6,NINDAT,NSSSSS,1)
+print *,'SUINIT: NINDAT, NSSSSS',NINDAT, NSSSSS
+
+IF (LLDEBUG) THEN
+WRITE(*,FMT='(''  SUINIT / apres : SUCST '')')
+ENDIF
+
+
+!     ------------------------
+!     *    ALLOCATES RECUPERES DE SUALLO
+!     ------------------------
+ALLOCATE(VDELA  (MAX(JPMXLE,NFLEVG)))
+ALLOCATE(VDELB  (MAX(JPMXLE,NFLEVG)))
+ALLOCATE( VC      (NFLEVG) )
+ALLOCATE( NLOEN   (NPROMA) )
+ALLOCATE( NLOENG   (NPROMA) )
+ALLOCATE( STZ     (NFLEVG) )
+ALLOCATE( CVDAES  (NFLEVG+1))
+ALLOCATE( CVDAEL  (NFLEVG+1))
+ALLOCATE( CVDAEU  (NFLEVG+1))
+ALLOCATE( CVDAED  (NFLEVG+1))
+ALLOCATE(RA1OVLP(NFLEVG))
+
+ALLOCATE(STPREH(0:NFLEVG)) ! Nouvel ajout MPL 22062010
+ALLOCATE(STPRE(NFLEVG))
+ALLOCATE(STPHI(NFLEVG))
+ALLOCATE(STTEM(NFLEVG))
+ALLOCATE(STDEN(NFLEVG))
+
+ALLOCATE(CETA(NFLEVG))    ! Nouvel ajout MPL 28062010
+ALLOCATE(CEVAPCU(NFLEVG))
+ALLOCATE(RMESOU(NFLEVG))
+ALLOCATE(RMESOT(NFLEVG))
+ALLOCATE(RMESOQ(NFLEVG))
+
+!     ------------------------
+!     *    ALLOCATES RECUPERES DE SUGEM2
+!     ------------------------
+
+ALLOCATE(GEMU   (NGPTOT)) ! Nouvel ajout MPL 28062010
+ALLOCATE(GELAM  (NGPTOT))
+ALLOCATE(GELAT  (NGPTOT))
+ALLOCATE(GECLO  (NGPTOT))
+ALLOCATE(GESLO  (NGPTOT))
+ALLOCATE(GM     (NGPTOT))
+ALLOCATE(GAW    (NGPTOT))
+!  
+!     ------------------------------------------------------------------
+
+END SUBROUTINE SUINIT
Index: LMDZ5/trunk/libf/phylmd/rrtm/sujfh.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/sujfh.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/sujfh.F90	(revision 1989)
@@ -0,0 +1,66 @@
+SUBROUTINE SUJFH
+
+! Purpose :
+! -------
+!   *SUJFH* Read namelist NAMJFH & Initialize module YOMJFH
+
+! Interface :
+! ---------
+
+! Externals :
+! ---------
+!   POSNAM
+
+! Method :
+! ------
+
+! Reference :
+! ---------
+
+! Author :
+! ------
+!   15-Mar-2005 R. El Khatib  *METEO-FRANCE*
+
+! Modifications :
+! -------------
+
+! End Modifications
+!-----------------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+! Ce qui concerne NULNAM commente par MPL le 15.04.09
+!USE YOMLUN   , ONLY : NULOUT   ,NULNAM
+USE YOMLUN   , ONLY : NULOUT   
+USE YOMPLDSW , ONLY : LOPT_RS6K
+USE YOMJFH   , ONLY : N_VMASS
+
+IMPLICIT NONE
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+#include "posnam.intfb.h"
+
+#include "namjfh.h"
+
+!-----------------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUJFH',0,ZHOOK_HANDLE)
+
+IF (LOPT_RS6K) THEN
+  N_VMASS=8
+! Ce qui concerne NAMJFH commente par MPL le 15.04.09
+! CALL POSNAM(NULNAM,'NAMJFH')
+! READ(NULNAM,NAMJFH)
+ELSE
+  N_VMASS=0
+ENDIF
+
+WRITE(UNIT=NULOUT,FMT='('' MODULE YOMJFH'')')
+WRITE(UNIT=NULOUT,FMT='(''   N_VMASS ='',I2)') N_VMASS 
+
+
+IF (LHOOK) CALL DR_HOOK('SUJFH',1,ZHOOK_HANDLE)
+
+END SUBROUTINE SUJFH
Index: LMDZ5/trunk/libf/phylmd/rrtm/suleg_mod.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/suleg_mod.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/suleg_mod.F90	(revision 1989)
@@ -0,0 +1,260 @@
+MODULE SULEG_MOD
+CONTAINS
+SUBROUTINE SULEG
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE PARKIND2  ,ONLY : JPRH
+
+USE TPM_GEN
+USE TPM_DIM
+USE TPM_CONSTANTS
+USE TPM_DISTR
+USE TPM_FIELDS
+
+!USE SUGAW_MOD
+USE SUPOL_MOD
+USE SUTRLE_MOD
+
+#ifdef DOC
+
+!**** *SULEG * - initialize the Legendre polynomials
+
+!     Purpose.
+!     --------
+!           Initialize COMMON YOMLEG
+
+!**   Interface.
+!     ----------
+!        *CALL* *SULEG*
+
+!        Explicit arguments :
+!        --------------------
+
+!        Implicit arguments :
+!        --------------------
+!              COMMON YOMLEG
+
+!     Method.
+!     -------
+!        See documentation
+
+!     Externals.
+!     ----------
+!        SUGAW  (Gaussian latitudes)
+!        SUPOLM (polynomials)
+!        LFI routines for external IO's
+!        Called by SUGEM.
+
+!     Reference.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+
+!     Author.
+!     -------
+!        Mats Hamrud and Philippe Courtier  *ECMWF*
+
+!     Modifications.
+!     --------------
+!        Original : 87-10-15
+!        MODIFICATION : 91-04  J.M. Piriou:
+!                       - Read gaussian latitudes and PNM on LFI
+!                       - If file missing, computes
+!                       91-04 M.Hamrud:
+!                       - IO Scheme introduced
+!        MODIFICATION : 91-07-03 P.Courtier suppress derivatives
+!        MODIFICATION : 91-07-03 P.Courtier computes RATATH and RACTHE
+!        MODIFICATION : 91-07-03 P.Courtier change upper limit (NSMAX+1)
+!        MODIFICATION : 91-07-03 P.Courtier change ordering
+!     Order of the PNM in the file, as in the model :
+!         - increasing wave numbers m
+!         - for a given m, from n=NSMAX+1 to m
+!        MODIFICATION : 92-07-02 R. Bubnova: shift RATATH calculation
+!                                            to SUGEM1
+!        MODIFICATION : 92-12-17 P.Courtier multitask computations
+!        Modified by R. EL Khatib : 93-04-02 Set-up defaults controled by LECMWF
+!        MODIFICATION : 93-03-19 D.Giard : n <= NTMAX
+!        K. YESSAD    : 93-05-11 : DLMU --> global array DRMU(NDGSA:NDGEN).
+!                       (not stored currently on LFI files).
+!        MODIFICATION : 94-02-03 R. El Khatib : subroutine SULEG2 to write out
+!                       the Leg. polynomials on workfile or LFI file
+!        Modification : 94-08-31 M. Tolstykh: Setup for CUD interpolation
+!        Modified by K. YESSAD (MARCH 1995): Extra-latitudes computations
+!                 according to value of NDGSUR and LRPOLE only.
+!                 + change fancy loop numbering.
+!        Modified 98-08-10 by K. YESSAD: removal of LRPOLE option.
+!          - removal of LRPOLE in YOMCT0.
+!          - removal of code under LRPOLE.
+!     ------------------------------------------------------------------
+
+#endif
+
+
+IMPLICIT NONE
+
+
+!     ------------------------------------------------------------------
+REAL(KIND=JPRB),ALLOCATABLE :: ZPNMG(:,:)
+
+REAL(KIND=JPRH) :: DLRMU(R%NDGL)
+REAL(KIND=JPRH) :: DLC(0:R%NTMAX+1,0:R%NTMAX+1)
+REAL(KIND=JPRH) :: DLD(0:R%NTMAX+1,0:R%NTMAX+1)
+REAL(KIND=JPRH) :: DLE(0:R%NTMAX+1,0:R%NTMAX+1)
+REAL(KIND=JPRH) :: DLA(0:R%NTMAX+1),DLB(0:R%NTMAX+1),DLF(0:R%NTMAX+1)
+REAL(KIND=JPRH) :: DLG(0:R%NTMAX+1),DLH(0:R%NTMAX+1),DLI(0:R%NTMAX+1)
+REAL(KIND=JPRH) :: DLPOL(0:R%NTMAX+1,0:R%NTMAX+1)
+!     ------------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: JPKS=KIND(ZPNMG)
+INTEGER(KIND=JPIM), PARAMETER :: JPKD=KIND(DLG)
+
+!     ------------------------------------------------------------------
+REAL(KIND=JPRH) :: DA,DC,DD,DE
+INTEGER(KIND=JPIM) :: KKN, KKM
+
+!     LOCAL 
+INTEGER(KIND=JPIM) :: IGLLOC, INM, IM , ICOUNT,&
+             &JGL,  JM, JMLOC, JN, JNM
+
+
+LOGICAL :: LLP1,LLP2
+
+
+DC(KKN,KKM)=SQRT( (REAL(2*KKN+1,JPKD)*REAL(KKN+KKM-1,JPKD)&
+                   &*REAL(KKN+KKM-3,JPKD))&
+                &/ (REAL(2*KKN-3,JPKD)*REAL(KKN+KKM,JPKD)&
+                   &*REAL(KKN+KKM-2,JPKD)) )
+DD(KKN,KKM)=SQRT( (REAL(2*KKN+1,JPKD)*REAL(KKN+KKM-1,JPKD)&
+                   &*REAL(KKN-KKM+1,JPKD))&
+                &/ (REAL(2*KKN-1,JPKD)*REAL(KKN+KKM,JPKD)&
+                  &*REAL(KKN+KKM-2,JPKD)) )
+DE(KKN,KKM)=SQRT( (REAL(2*KKN+1,JPKD)*REAL(KKN-KKM,JPKD))&
+                &/ (REAL(2*KKN-1,JPKD)*REAL(KKN+KKM,JPKD)) )
+DA(KKN,KKM)=SQRT( (REAL(2*KKN+1,JPKD)*REAL(KKN-KKM,JPKD)&
+                   &*REAL(KKN+KKM,JPKD))&
+                &/  REAL(2*KKN-1,JPKD) )
+
+!     ------------------------------------------------------------------
+ALLOCATE(ZPNMG(R%NSPOLEG,D%NLEI3D))
+
+!*       0.    Some initializations.
+!              ---------------------
+
+LLP1 = NPRINTLEV>0
+LLP2 = NPRINTLEV>1
+IF(LLP1) WRITE(NOUT,*) '=== ENTER ROUTINE SULEG ==='
+
+!CALL GSTATS(140,0)  !MPL 4.12.08
+ALLOCATE(F%RPNM(R%NLEI3,D%NSPOLEGL))
+IF (LLP2) WRITE(NOUT,9) 'F%RPNM    ',SIZE(F%RPNM),SHAPE(F%RPNM) 
+ALLOCATE(F%RMU(R%NDGL))
+IF (LLP2) WRITE(NOUT,9) 'F%RMU     ',SIZE(F%RMU ),SHAPE(F%RMU ) 
+ALLOCATE(F%RW(R%NDGL))
+IF (LLP2) WRITE(NOUT,9) 'F%RW      ',SIZE(F%RW  ),SHAPE(F%RW  ) 
+ALLOCATE(F%R1MU2(R%NDGL))
+IF (LLP2) WRITE(NOUT,9) 'F%R1MU2   ',SIZE(F%R1MU2),SHAPE(F%R1MU2 ) 
+ALLOCATE(F%RACTHE(R%NDGL))
+IF (LLP2) WRITE(NOUT,9) 'F%RACTHE  ',SIZE(F%RACTHE),SHAPE(F%RACTHE ) 
+
+!CALL GSTATS(1801,0) ! MPL 4.12.08
+DO JNM=1,D%NSPOLEGL
+  F%RPNM(R%NLEI3,JNM) = 0.0_JPRB
+ENDDO
+!CALL GSTATS(1801,1)     ! MPL 4.12.08
+
+!     ------------------------------------------------------------------
+
+!*       3.1   Gaussian latitudes and weights
+!CALL SUGAW(R%NDGL,F%RMU,DLRMU,F%RW)
+
+!*       3.2   Computes related arrays
+
+DO JGL=1,R%NDGL
+  F%R1MU2(JGL) = REAL(1.0_JPRB-DLRMU(JGL)*DLRMU(JGL),JPKS)
+  F%RACTHE(JGL) = REAL(1.0_JPRB/SQRT(1.0_JPRB-DLRMU(JGL)*DLRMU(JGL))/&
+   &REAL(RA,JPKD),JPKS)
+ENDDO
+
+!*       3.3   Working arrays
+DO JN=3,R%NTMAX+1
+  DO JM=2,JN-1
+    DLC(JM,JN) = DC(JN,JM)
+    DLD(JM,JN) = DD(JN,JM)
+    DLE(JM,JN) = DE(JN,JM)
+  ENDDO
+ENDDO
+
+DO JN=1,R%NTMAX+1
+  DLA(JN) = SQRT(REAL(2*JN+1,JPKD))
+  DLB(JN) = SQRT(REAL(2*JN+1,JPKD)/REAL(JN*(JN+1),JPKD))
+  DLF(JN) = REAL(2*JN-1,JPKD)/REAL(JN,JPKD)
+  DLG(JN) = REAL(JN-1,JPKD)/REAL(JN,JPKD)
+  DLH(JN) = SQRT(REAL(2*JN+1,JPKD)/REAL(2*JN,JPKD))
+  DLI(JN) = REAL(JN,JPKD)
+ENDDO
+
+!CALL GSTATS(1801,0)  ! MPL 4.12.08
+DO JGL=D%NLATLS(MYSETW),D%NLATLE(MYSETW)
+  DLPOL(:,:) = 0.0_JPRB
+  CALL SUPOL(R%NTMAX+1,DLRMU(JGL),DLPOL,DLA,DLB,DLC,DLD,DLE,DLF,DLG,DLH,DLI)
+  INM = 0
+  IGLLOC = JGL - D%NLATLS(MYSETW) + 1
+  DO JM=0,R%NSMAX
+    DO JN=R%NTMAX+1,JM,-1
+      INM = INM+1
+      ZPNMG(INM,IGLLOC) = REAL(DLPOL(JM,JN),JPKS)
+    ENDDO
+  ENDDO
+ENDDO
+!CALL GSTATS(1801,1) !  MPL 4.12.08
+!CALL GSTATS(140,1)  ! MPL 4.12.08
+
+!CALL GSTATS(190,0)  ! MPL 4.12.08
+CALL SUTRLE(ZPNMG)
+!CALL GSTATS(190,1)  ! MPL 4.12.08
+
+ICOUNT = 0
+DO JMLOC=1,D%NUMP
+  IM = D%MYMS(JMLOC)
+  DO JN=IM,R%NTMAX+2
+    ICOUNT = ICOUNT+1
+  ENDDO
+ENDDO
+
+ALLOCATE(F%REPSNM(ICOUNT))
+IF (LLP2) WRITE(NOUT,9) 'F%REPSNM  ',SIZE(F%REPSNM ),SHAPE(F%REPSNM ) 
+
+ICOUNT = 0
+DO JMLOC=1,D%NUMP
+  IM = D%MYMS(JMLOC)
+  DO JN=IM,R%NTMAX+2
+    ICOUNT = ICOUNT+1
+    F%REPSNM(ICOUNT) = REAL(SQRT(REAL(JN*JN-IM*IM,JPKD)/&
+     &REAL(4*JN*JN-1,JPKD)),JPKS)
+  ENDDO
+ENDDO
+
+ALLOCATE(F%RN(-1:R%NTMAX+3))
+IF (LLP2) WRITE(NOUT,9) 'F%RN      ',SIZE(F%RN     ),SHAPE(F%RN     ) 
+ALLOCATE(F%RLAPIN(-1:R%NSMAX+2))
+IF (LLP2) WRITE(NOUT,9) 'F%RLAPIN  ',SIZE(F%RLAPIN ),SHAPE(F%RLAPIN ) 
+ALLOCATE(F%NLTN(-1:R%NTMAX+3))
+IF (LLP2) WRITE(NOUT,9) 'F%NLTN    ',SIZE(F%NLTN ),SHAPE(F%NLTN ) 
+
+DO JN=-1,R%NTMAX+3
+  F%RN(JN) = REAL(JN,JPRB)
+  F%NLTN(JN) = R%NTMAX+2-JN
+ENDDO
+F%RLAPIN(:) = 0.0_JPRB
+F%RLAPIN(0) = 0._JPRB
+F%RLAPIN(-1) = 0.0_JPRB
+DO JN=1,R%NSMAX+2
+  F%RLAPIN(JN)=REAL(-(REAL(RA,JPKD)*REAL(RA,JPKD))/REAL(JN*(JN+1),JPKD),JPKS)
+ENDDO
+
+DEALLOCATE(ZPNMG)
+
+!     ------------------------------------------------------------------
+9 FORMAT(1X,'ARRAY ',A10,' ALLOCATED ',8I8)
+
+END SUBROUTINE SULEG
+END MODULE SULEG_MOD
Index: LMDZ5/trunk/libf/phylmd/rrtm/sulw15.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/sulw15.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/sulw15.F90	(revision 1989)
@@ -0,0 +1,1243 @@
+!OPTIONS XOPT(NOEVAL)
+SUBROUTINE SULW15
+
+!**** *SULW15*   - INITIALIZE COMMON YOMLW15
+!****              FROZEN VERSION (CYCLE 15) OF SULW
+
+!     PURPOSE.
+!     --------
+!           INITIALIZE YOMLW15, THE COMMON THAT CONTAINS COEFFICIENTS
+!           NEEDED TO RUN THE ECMWF LONGWAVE RADIATION ROUTINES
+
+!**   INTERFACE.
+!     ----------
+!        *CALL* *SULW15
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!        NONE
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+!        COMMON YOMLW15
+
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+
+!     EXTERNALS.
+!     ----------
+
+!     REFERENCE.
+!     ----------
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+
+!     AUTHOR.
+!     -------
+!        96-11: Ph. Dandin. Meteo-France
+!        ORIGINAL : 88-12-15 BY JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOMLW15  , ONLY : MXIXT15  ,NINT15   ,NIPD15   ,NIPD215  ,&
+ & NTR15    ,NTRA15   ,NUA15    ,NG115    ,NG1P115  ,&
+ & AT15     ,BT15     ,RNTNU15  ,GA15     ,GB15     ,&
+ & OCT15    ,O1H15    ,O2H15    ,RPIALF015,RT115    ,&
+ & TINTP15  ,TREF15   ,TSTAND15 ,TSTP15   ,WG115    ,&
+ & XP15     ,RVGCO215 ,RVGH2O15 ,RVGO315  
+
+IMPLICIT NONE
+
+!      ----------------------------------------------------------------
+
+!*       1.    SET VALUES.
+!              -----------
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SULW15',0,ZHOOK_HANDLE)
+NG115=2
+NG1P115=NG115+1
+NINT15=6
+NIPD15=8
+NIPD215=2*NIPD15
+NTR15=11
+NTRA15=15
+NUA15=24
+
+!--  COEFFICIENTS FOR THE PSEUDO-VOIGT LINE PROFILE (PA)
+
+RVGCO215= 60._JPRB
+RVGH2O15= 30._JPRB
+RVGO315 =400._JPRB
+
+!-- REFERENCE TEMPERATURES FOR THE PLANCK FUNCTIONS ----- TSTAND15
+!          TEMPERATURE DEPENDENCE OF THE ABSORPTION ----- TREF15
+TSTAND15 = 250.0_JPRB
+TREF15   = 250.0_JPRB
+
+!-- ROOTS AND WEIGHTS FOR THE 2-POINT GAUSSIAN QUADRATURE
+RT115 = (/ -0.577350269_JPRB, +0.577350269_JPRB /)
+WG115 = (/  1.0_JPRB        ,  1.0_JPRB         /)
+
+!-- TEMPERATURE STEP AND MAXIMUM INDEX FOR THE TRANSMISSIVITIES
+TSTP15 = 12.5_JPRB
+MXIXT15= 10
+
+!-- REFERENCE TEMPERATURE FOR THE TRANSMISSIVITIES
+TINTP15 = (/ 187.5_JPRB, 200._JPRB, 212.5_JPRB, 225._JPRB, 237.5_JPRB,  &
+ & 250._JPRB,&
+ & 262.5_JPRB, 275._JPRB, 287.5_JPRB, 300._JPRB, 312.5_JPRB /)  
+
+!-- COEFFICIENTS OF THE POLYNOMIALS GIVING THE PLANCK FUNCTIONS
+
+XP15 = RESHAPE((/&
+ & 0.46430621E+02_JPRB, 0.12928299E+03_JPRB, 0.20732648E+03_JPRB,&
+ & 0.31398411E+03_JPRB, 0.18373177E+03_JPRB,-0.11412303E+03_JPRB,&
+ & 0.73604774E+02_JPRB, 0.27887914E+03_JPRB, 0.27076947E+03_JPRB,&
+ & -0.57322111E+02_JPRB,-0.64742459E+02_JPRB, 0.87238280E+02_JPRB,&
+ & 0.37050866E+02_JPRB, 0.20498759E+03_JPRB, 0.37558029E+03_JPRB,&
+ & 0.17401171E+03_JPRB,-0.13350302E+03_JPRB,-0.37651795E+02_JPRB,&
+ & 0.14930141E+02_JPRB, 0.89161160E+02_JPRB, 0.17793062E+03_JPRB,&
+ & 0.93433860E+02_JPRB,-0.70646020E+02_JPRB,-0.26373150E+02_JPRB,&
+ & 0.40386780E+02_JPRB, 0.10855270E+03_JPRB, 0.50755010E+02_JPRB,&
+ & -0.31496190E+02_JPRB, 0.12791300E+00_JPRB, 0.18017770E+01_JPRB,&
+ & 0.90811926E+01_JPRB, 0.75073923E+02_JPRB, 0.24654438E+03_JPRB,&
+ & 0.39332612E+03_JPRB, 0.29385281E+03_JPRB, 0.89107921E+02_JPRB /)&
+ & ,SHAPE=(/6,6/))  
+
+!-- COEFFICIENTS OF THE POLYNOMIALS GIVING THE TEMPERATURE DEPENDENCE OF
+!     THE ABSORPTION
+AT15(1,:) = (/0.298199E-02_JPRB,-.394023E-03_JPRB,0.319566E-04_JPRB /)
+BT15(1,:) = (/-0.106432E-04_JPRB,0.660324E-06_JPRB,0.174356E-06_JPRB /)
+AT15(2,:) = (/0.143676E-01_JPRB,0.366501E-02_JPRB,-.160822E-02_JPRB /)
+BT15(2,:) = (/-0.553979E-04_JPRB,-.101701E-04_JPRB,0.920868E-05_JPRB /)
+AT15(3,:) = (/0.197861E-01_JPRB,0.315541E-02_JPRB,-.174547E-02_JPRB /)
+BT15(3,:) = (/-0.877012E-04_JPRB,0.513302E-04_JPRB,0.523138E-06_JPRB /)
+AT15(4,:) = (/0.289560E-01_JPRB,-.208807E-02_JPRB,-.121943E-02_JPRB /)
+BT15(4,:) = (/-0.165960E-03_JPRB,0.157704E-03_JPRB,-.146427E-04_JPRB /)
+AT15(5,:) = (/0.103800E-01_JPRB,0.436296E-02_JPRB,-.161431E-02_JPRB /)
+BT15(5,:) = (/-.276744E-04_JPRB,-.327381E-04_JPRB,0.127646E-04_JPRB /)
+AT15(6,:) = (/0.868859E-02_JPRB,-.972752E-03_JPRB,0.000000E-00_JPRB /)
+BT15(6,:) = (/-.278412E-04_JPRB,-.713940E-06_JPRB,0.117469E-05_JPRB /)
+AT15(7,:) = (/0.250073E-03_JPRB,0.455875E-03_JPRB,0.109242E-03_JPRB /)
+BT15(7,:) = (/0.199846E-05_JPRB,-.216313E-05_JPRB,0.175991E-06_JPRB /)
+AT15(8,:) = (/0.307423E-01_JPRB,0.110879E-02_JPRB,-.322172E-03_JPRB /)
+BT15(8,:) = (/-0.108482E-03_JPRB,0.258096E-05_JPRB,-.814575E-06_JPRB /)
+
+!--  COEFFICIENTS FOR OZONE ABSORPTION
+
+O1H15 = 2230._JPRB
+O2H15 = 100._JPRB
+RPIALF015 = 2._JPRB
+OCT15(:) = (/-.326E-03_JPRB, -.102E-05_JPRB, .137E-02_JPRB, -.535E-05_JPRB /)
+
+!--  COEFFICIENTS FOR H2O E-TYPE CONTINUUM ABSORPTION
+
+RNTNU15(:) = (/   70.0_JPRB, 26.77_JPRB, 8.45_JPRB, 5.78_JPRB  /)
+
+!-----------------------------------------------------------------------
+!  PADE APPROXIMANTS FOR THE TRANSMISSIVITIES
+!  ==========================================
+!-----------------------------------------------------------------------
+!-- WATER VAPOR -- INT.1 -- 0- 500 CM-1 -- FROM ABS225 ----------------
+
+!-- R.D. -- G = - 0.2 SLA
+
+!----- INTERVAL = 1 ----- T =  187.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+GA15( 1, 1,:) = (/&
+ & 0.63499072E-02_JPRB,-0.99506586E-03_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 1, 1,:) = (/&
+ & 0.63499072E-02_JPRB, 0.97222852E-01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 1, 2,:) = (/&
+ & 0.77266491E-02_JPRB,-0.11661515E-02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 1, 2,:) = (/&
+ & 0.77266491E-02_JPRB, 0.10681591E+00_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 1 ----- T =  200.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+GA15( 2, 1,:) = (/&
+ & 0.65566348E-02_JPRB,-0.10184169E-02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 2, 1,:) = (/&
+ & 0.65566348E-02_JPRB, 0.98862238E-01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 2, 2,:) = (/&
+ & 0.81323287E-02_JPRB,-0.11886130E-02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 2, 2,:) = (/&
+ & 0.81323287E-02_JPRB, 0.10921298E+00_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 1 ----- T =  212.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+GA15( 3, 1,:) = (/&
+ & 0.67849730E-02_JPRB,-0.10404730E-02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 3, 1,:) = (/&
+ & 0.67849730E-02_JPRB, 0.10061504E+00_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 3, 2,:) = (/&
+ & 0.86507620E-02_JPRB,-0.12139929E-02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 3, 2,:) = (/&
+ & 0.86507620E-02_JPRB, 0.11198225E+00_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 1 ----- T =  225.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+GA15( 4, 1,:) = (/&
+ & 0.70481947E-02_JPRB,-0.10621792E-02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 4, 1,:) = (/&
+ & 0.70481947E-02_JPRB, 0.10256222E+00_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 4, 2,:) = (/&
+ & 0.92776391E-02_JPRB,-0.12445811E-02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 4, 2,:) = (/&
+ & 0.92776391E-02_JPRB, 0.11487826E+00_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 1 ----- T =  237.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+GA15( 5, 1,:) = (/&
+ & 0.73585943E-02_JPRB,-0.10847662E-02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 5, 1,:) = (/&
+ & 0.73585943E-02_JPRB, 0.10475952E+00_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 5, 2,:) = (/&
+ & 0.99806312E-02_JPRB,-0.12807672E-02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 5, 2,:) = (/&
+ & 0.99806312E-02_JPRB, 0.11751113E+00_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 1 ----- T =  250.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+GA15( 6, 1,:) = (/&
+ & 0.77242818E-02_JPRB,-0.11094726E-02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 6, 1,:) = (/&
+ & 0.77242818E-02_JPRB, 0.10720986E+00_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 6, 2,:) = (/&
+ & 0.10709803E-01_JPRB,-0.13208251E-02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 6, 2,:) = (/&
+ & 0.10709803E-01_JPRB, 0.11951535E+00_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 1 ----- T =  262.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+GA15( 7, 1,:) = (/&
+ & 0.81472693E-02_JPRB,-0.11372949E-02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 7, 1,:) = (/&
+ & 0.81472693E-02_JPRB, 0.10985370E+00_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 7, 2,:) = (/&
+ & 0.11414739E-01_JPRB,-0.13619034E-02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 7, 2,:) = (/&
+ & 0.11414739E-01_JPRB, 0.12069945E+00_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 1 ----- T =  275.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+GA15( 8, 1,:) = (/&
+ & 0.86227527E-02_JPRB,-0.11687683E-02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 8, 1,:) = (/&
+ & 0.86227527E-02_JPRB, 0.11257633E+00_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 8, 2,:) = (/&
+ & 0.12058772E-01_JPRB,-0.14014165E-02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 8, 2,:) = (/&
+ & 0.12058772E-01_JPRB, 0.12108524E+00_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 1 ----- T =  287.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+GA15( 9, 1,:) = (/&
+ & 0.91396814E-02_JPRB,-0.12038314E-02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 9, 1,:) = (/&
+ & 0.91396814E-02_JPRB, 0.11522980E+00_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 9, 2,:) = (/&
+ & 0.12623992E-01_JPRB,-0.14378639E-02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 9, 2,:) = (/&
+ & 0.12623992E-01_JPRB, 0.12084229E+00_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 1 ----- T =  300.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+GA15(10, 1,:) = (/&
+ & 0.96825438E-02_JPRB,-0.12418367E-02_JPRB, 0.00000000E+00_JPRB/)  
+GB15(10, 1,:) = (/&
+ & 0.96825438E-02_JPRB, 0.11766343E+00_JPRB, 0.10000000E+01_JPRB/)  
+GA15(10, 2,:) = (/&
+ & 0.13108146E-01_JPRB,-0.14708488E-02_JPRB, 0.00000000E+00_JPRB/)  
+GB15(10, 2,:) = (/&
+ & 0.13108146E-01_JPRB, 0.12019005E+00_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 1 ----- T =  312.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+GA15(11, 1,:) = (/&
+ & 0.10233955E-01_JPRB,-0.12817135E-02_JPRB, 0.00000000E+00_JPRB/)  
+GB15(11, 1,:) = (/&
+ & 0.10233955E-01_JPRB, 0.11975320E+00_JPRB, 0.10000000E+01_JPRB/)  
+GA15(11, 2,:) = (/&
+ & 0.13518390E-01_JPRB,-0.15006791E-02_JPRB, 0.00000000E+00_JPRB/)  
+GB15(11, 2,:) = (/&
+ & 0.13518390E-01_JPRB, 0.11932684E+00_JPRB, 0.10000000E+01_JPRB/)  
+
+!--- WATER VAPOR --- INTERVAL 2 -- 500-800 CM-1--- FROM ABS225 ---------
+
+!--- R.D.  ---  G = 0.02 + 0.50 / ( 1 + 4.5 U )
+
+!----- INTERVAL = 2 ----- T =  187.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA15( 1, 3,:) = (/&
+ & 0.11644593E+01_JPRB, 0.41243390E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 1, 3,:) = (/&
+ & 0.11644593E+01_JPRB, 0.10346097E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 1, 4,:) = (/&
+ & 0.12006968E+01_JPRB, 0.48318936E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 1, 4,:) = (/&
+ & 0.12006968E+01_JPRB, 0.10626130E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 2 ----- T =  200.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA15( 2, 3,:) = (/&
+ & 0.11747203E+01_JPRB, 0.43407282E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 2, 3,:) = (/&
+ & 0.11747203E+01_JPRB, 0.10433655E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 2, 4,:) = (/&
+ & 0.12108196E+01_JPRB, 0.50501827E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 2, 4,:) = (/&
+ & 0.12108196E+01_JPRB, 0.10716026E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 2 ----- T =  212.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA15( 3, 3,:) = (/&
+ & 0.11837872E+01_JPRB, 0.45331413E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 3, 3,:) = (/&
+ & 0.11837872E+01_JPRB, 0.10511933E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 3, 4,:) = (/&
+ & 0.12196717E+01_JPRB, 0.52409502E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 3, 4,:) = (/&
+ & 0.12196717E+01_JPRB, 0.10795108E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 2 ----- T =  225.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA15( 4, 3,:) = (/&
+ & 0.11918561E+01_JPRB, 0.47048604E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 4, 3,:) = (/&
+ & 0.11918561E+01_JPRB, 0.10582150E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 4, 4,:) = (/&
+ & 0.12274493E+01_JPRB, 0.54085277E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 4, 4,:) = (/&
+ & 0.12274493E+01_JPRB, 0.10865006E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 2 ----- T =  237.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA15( 5, 3,:) = (/&
+ & 0.11990757E+01_JPRB, 0.48586286E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 5, 3,:) = (/&
+ & 0.11990757E+01_JPRB, 0.10645317E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 5, 4,:) = (/&
+ & 0.12343189E+01_JPRB, 0.55565422E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 5, 4,:) = (/&
+ & 0.12343189E+01_JPRB, 0.10927103E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 2 ----- T =  250.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA15( 6, 3,:) = (/&
+ & 0.12055643E+01_JPRB, 0.49968044E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 6, 3,:) = (/&
+ & 0.12055643E+01_JPRB, 0.10702313E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 6, 4,:) = (/&
+ & 0.12404147E+01_JPRB, 0.56878618E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 6, 4,:) = (/&
+ & 0.12404147E+01_JPRB, 0.10982489E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 2 ----- T =  262.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA15( 7, 3,:) = (/&
+ & 0.12114186E+01_JPRB, 0.51214132E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 7, 3,:) = (/&
+ & 0.12114186E+01_JPRB, 0.10753907E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 7, 4,:) = (/&
+ & 0.12458431E+01_JPRB, 0.58047395E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 7, 4,:) = (/&
+ & 0.12458431E+01_JPRB, 0.11032019E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 2 ----- T =  275.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA15( 8, 3,:) = (/&
+ & 0.12167192E+01_JPRB, 0.52341830E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 8, 3,:) = (/&
+ & 0.12167192E+01_JPRB, 0.10800762E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 8, 4,:) = (/&
+ & 0.12506907E+01_JPRB, 0.59089894E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 8, 4,:) = (/&
+ & 0.12506907E+01_JPRB, 0.11076379E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 2 ----- T =  287.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA15( 9, 3,:) = (/&
+ & 0.12215344E+01_JPRB, 0.53365803E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 9, 3,:) = (/&
+ & 0.12215344E+01_JPRB, 0.10843446E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 9, 4,:) = (/&
+ & 0.12550299E+01_JPRB, 0.60021475E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 9, 4,:) = (/&
+ & 0.12550299E+01_JPRB, 0.11116160E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 2 ----- T =  300.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA15(10, 3,:) = (/&
+ & 0.12259226E+01_JPRB, 0.54298448E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15(10, 3,:) = (/&
+ & 0.12259226E+01_JPRB, 0.10882439E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15(10, 4,:) = (/&
+ & 0.12589256E+01_JPRB, 0.60856112E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15(10, 4,:) = (/&
+ & 0.12589256E+01_JPRB, 0.11151910E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 2 ----- T =  312.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA15(11, 3,:) = (/&
+ & 0.12299344E+01_JPRB, 0.55150227E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15(11, 3,:) = (/&
+ & 0.12299344E+01_JPRB, 0.10918144E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15(11, 4,:) = (/&
+ & 0.12624402E+01_JPRB, 0.61607594E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15(11, 4,:) = (/&
+ & 0.12624402E+01_JPRB, 0.11184188E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!- WATER VAPOR - INT. 3 -- 800-970 + 1110-1250 CM-1 -- FIT FROM 215 IS -
+
+!-- WATER VAPOR LINES IN THE WINDOW REGION (800-1250 CM-1)
+
+!--- G = 3.875E-03 ---------------
+
+!----- INTERVAL = 3 ----- T =  187.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA15( 1, 7,:) = (/&
+ & 0.10192131E+02_JPRB, 0.80737799E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 1, 7,:) = (/&
+ & 0.10192131E+02_JPRB, 0.82623280E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 1, 8,:) = (/&
+ & 0.92439050E+01_JPRB, 0.77425778E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 1, 8,:) = (/&
+ & 0.92439050E+01_JPRB, 0.79342219E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 3 ----- T =  200.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA15( 2, 7,:) = (/&
+ & 0.97258602E+01_JPRB, 0.79171158E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 2, 7,:) = (/&
+ & 0.97258602E+01_JPRB, 0.81072291E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 2, 8,:) = (/&
+ & 0.87567422E+01_JPRB, 0.75443460E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 2, 8,:) = (/&
+ & 0.87567422E+01_JPRB, 0.77373458E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 3 ----- T =  212.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA15( 3, 7,:) = (/&
+ & 0.92992890E+01_JPRB, 0.77609605E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 3, 7,:) = (/&
+ & 0.92992890E+01_JPRB, 0.79523834E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 3, 8,:) = (/&
+ & 0.83270144E+01_JPRB, 0.73526151E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 3, 8,:) = (/&
+ & 0.83270144E+01_JPRB, 0.75467334E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 3 ----- T =  225.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA15( 4, 7,:) = (/&
+ & 0.89154021E+01_JPRB, 0.76087371E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 4, 7,:) = (/&
+ & 0.89154021E+01_JPRB, 0.78012527E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 4, 8,:) = (/&
+ & 0.79528337E+01_JPRB, 0.71711188E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 4, 8,:) = (/&
+ & 0.79528337E+01_JPRB, 0.73661786E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 3 ----- T =  237.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA15( 5, 7,:) = (/&
+ & 0.85730084E+01_JPRB, 0.74627112E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 5, 7,:) = (/&
+ & 0.85730084E+01_JPRB, 0.76561458E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 5, 8,:) = (/&
+ & 0.76286839E+01_JPRB, 0.70015571E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 5, 8,:) = (/&
+ & 0.76286839E+01_JPRB, 0.71974319E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 3 ----- T =  250.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA15( 6, 7,:) = (/&
+ & 0.82685838E+01_JPRB, 0.73239981E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 6, 7,:) = (/&
+ & 0.82685838E+01_JPRB, 0.75182174E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 6, 8,:) = (/&
+ & 0.73477879E+01_JPRB, 0.68442532E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 6, 8,:) = (/&
+ & 0.73477879E+01_JPRB, 0.70408543E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 3 ----- T =  262.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA15( 7, 7,:) = (/&
+ & 0.79978921E+01_JPRB, 0.71929934E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 7, 7,:) = (/&
+ & 0.79978921E+01_JPRB, 0.73878952E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 7, 8,:) = (/&
+ & 0.71035818E+01_JPRB, 0.66987996E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 7, 8,:) = (/&
+ & 0.71035818E+01_JPRB, 0.68960649E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 3 ----- T =  275.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA15( 8, 7,:) = (/&
+ & 0.77568055E+01_JPRB, 0.70697065E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 8, 7,:) = (/&
+ & 0.77568055E+01_JPRB, 0.72652133E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 8, 8,:) = (/&
+ & 0.68903312E+01_JPRB, 0.65644820E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 8, 8,:) = (/&
+ & 0.68903312E+01_JPRB, 0.67623672E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 3 ----- T =  287.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA15( 9, 7,:) = (/&
+ & 0.75416266E+01_JPRB, 0.69539626E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 9, 7,:) = (/&
+ & 0.75416266E+01_JPRB, 0.71500151E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 9, 8,:) = (/&
+ & 0.67032875E+01_JPRB, 0.64405267E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 9, 8,:) = (/&
+ & 0.67032875E+01_JPRB, 0.66389989E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 3 ----- T =  300.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA15(10, 7,:) = (/&
+ & 0.73491694E+01_JPRB, 0.68455144E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15(10, 7,:) = (/&
+ & 0.73491694E+01_JPRB, 0.70420667E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15(10, 8,:) = (/&
+ & 0.65386461E+01_JPRB, 0.63262376E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15(10, 8,:) = (/&
+ & 0.65386461E+01_JPRB, 0.65252707E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 3 ----- T =  312.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA15(11, 7,:) = (/&
+ & 0.71767400E+01_JPRB, 0.67441020E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15(11, 7,:) = (/&
+ & 0.71767400E+01_JPRB, 0.69411177E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15(11, 8,:) = (/&
+ & 0.63934377E+01_JPRB, 0.62210701E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15(11, 8,:) = (/&
+ & 0.63934377E+01_JPRB, 0.64206412E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!-- WATER VAPOR -- 970-1110 CM-1 ----------------------------------------
+
+!-- G = 3.6E-03
+
+!----- INTERVAL = 4 ----- T =  187.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA15( 1, 9,:) = (/&
+ & 0.24870635E+02_JPRB, 0.10542131E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 1, 9,:) = (/&
+ & 0.24870635E+02_JPRB, 0.10656640E+02_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 1,10,:) = (/&
+ & 0.24586283E+02_JPRB, 0.10490353E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 1,10,:) = (/&
+ & 0.24586283E+02_JPRB, 0.10605856E+02_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 4 ----- T =  200.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA15( 2, 9,:) = (/&
+ & 0.24725591E+02_JPRB, 0.10515895E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 2, 9,:) = (/&
+ & 0.24725591E+02_JPRB, 0.10630910E+02_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 2,10,:) = (/&
+ & 0.24441465E+02_JPRB, 0.10463512E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 2,10,:) = (/&
+ & 0.24441465E+02_JPRB, 0.10579514E+02_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 4 ----- T =  212.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA15( 3, 9,:) = (/&
+ & 0.24600320E+02_JPRB, 0.10492949E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 3, 9,:) = (/&
+ & 0.24600320E+02_JPRB, 0.10608399E+02_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 3,10,:) = (/&
+ & 0.24311657E+02_JPRB, 0.10439183E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 3,10,:) = (/&
+ & 0.24311657E+02_JPRB, 0.10555632E+02_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 4 ----- T =  225.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA15( 4, 9,:) = (/&
+ & 0.24487300E+02_JPRB, 0.10472049E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 4, 9,:) = (/&
+ & 0.24487300E+02_JPRB, 0.10587891E+02_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 4,10,:) = (/&
+ & 0.24196167E+02_JPRB, 0.10417324E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 4,10,:) = (/&
+ & 0.24196167E+02_JPRB, 0.10534169E+02_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 4 ----- T =  237.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA15( 5, 9,:) = (/&
+ & 0.24384935E+02_JPRB, 0.10452961E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 5, 9,:) = (/&
+ & 0.24384935E+02_JPRB, 0.10569156E+02_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 5,10,:) = (/&
+ & 0.24093406E+02_JPRB, 0.10397704E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 5,10,:) = (/&
+ & 0.24093406E+02_JPRB, 0.10514900E+02_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 4 ----- T =  250.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA15( 6, 9,:) = (/&
+ & 0.24292341E+02_JPRB, 0.10435562E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 6, 9,:) = (/&
+ & 0.24292341E+02_JPRB, 0.10552075E+02_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 6,10,:) = (/&
+ & 0.24001597E+02_JPRB, 0.10380038E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 6,10,:) = (/&
+ & 0.24001597E+02_JPRB, 0.10497547E+02_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 4 ----- T =  262.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA15( 7, 9,:) = (/&
+ & 0.24208572E+02_JPRB, 0.10419710E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 7, 9,:) = (/&
+ & 0.24208572E+02_JPRB, 0.10536510E+02_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 7,10,:) = (/&
+ & 0.23919098E+02_JPRB, 0.10364052E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 7,10,:) = (/&
+ & 0.23919098E+02_JPRB, 0.10481842E+02_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 4 ----- T =  275.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA15( 8, 9,:) = (/&
+ & 0.24132642E+02_JPRB, 0.10405247E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 8, 9,:) = (/&
+ & 0.24132642E+02_JPRB, 0.10522307E+02_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 8,10,:) = (/&
+ & 0.23844511E+02_JPRB, 0.10349509E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 8,10,:) = (/&
+ & 0.23844511E+02_JPRB, 0.10467553E+02_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 4 ----- T =  287.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA15( 9, 9,:) = (/&
+ & 0.24063614E+02_JPRB, 0.10392022E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 9, 9,:) = (/&
+ & 0.24063614E+02_JPRB, 0.10509317E+02_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 9,10,:) = (/&
+ & 0.23776708E+02_JPRB, 0.10336215E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 9,10,:) = (/&
+ & 0.23776708E+02_JPRB, 0.10454488E+02_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 4 ----- T =  300.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA15(10, 9,:) = (/&
+ & 0.24000649E+02_JPRB, 0.10379892E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15(10, 9,:) = (/&
+ & 0.24000649E+02_JPRB, 0.10497402E+02_JPRB, 0.10000000E+01_JPRB/)  
+GA15(10,10,:) = (/&
+ & 0.23714816E+02_JPRB, 0.10324018E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15(10,10,:) = (/&
+ & 0.23714816E+02_JPRB, 0.10442501E+02_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 4 ----- T =  312.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   28   37   45
+GA15(11, 9,:) = (/&
+ & 0.23943021E+02_JPRB, 0.10368736E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15(11, 9,:) = (/&
+ & 0.23943021E+02_JPRB, 0.10486443E+02_JPRB, 0.10000000E+01_JPRB/)  
+GA15(11,10,:) = (/&
+ & 0.23658197E+02_JPRB, 0.10312808E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15(11,10,:) = (/&
+ & 0.23658197E+02_JPRB, 0.10431483E+02_JPRB, 0.10000000E+01_JPRB/)  
+
+!-- H2O -- WEAKER PARTS OF THE STRONG BANDS  -- FROM ABS225 ----
+
+!-- WATER VAPOR --- 350 - 500 CM-1
+
+!-- G = - 0.2*SLA, 0.0 +0.5/(1+0.5U)
+
+!----- INTERVAL = 5 ----- T =  187.5
+
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+GA15( 1, 5,:) = (/&
+ & 0.15750172E+00_JPRB,-0.22159303E-01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 1, 5,:) = (/&
+ & 0.15750172E+00_JPRB, 0.38103212E+00_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 1, 6,:) = (/&
+ & 0.17770551E+00_JPRB,-0.24972399E-01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 1, 6,:) = (/&
+ & 0.17770551E+00_JPRB, 0.41646579E+00_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 5 ----- T =  200.0
+
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+GA15( 2, 5,:) = (/&
+ & 0.16174076E+00_JPRB,-0.22748917E-01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 2, 5,:) = (/&
+ & 0.16174076E+00_JPRB, 0.38913800E+00_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 2, 6,:) = (/&
+ & 0.18176757E+00_JPRB,-0.25537247E-01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 2, 6,:) = (/&
+ & 0.18176757E+00_JPRB, 0.42345095E+00_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 5 ----- T =  212.5
+
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+GA15( 3, 5,:) = (/&
+ & 0.16548628E+00_JPRB,-0.23269898E-01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 3, 5,:) = (/&
+ & 0.16548628E+00_JPRB, 0.39613651E+00_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 3, 6,:) = (/&
+ & 0.18527967E+00_JPRB,-0.26025624E-01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 3, 6,:) = (/&
+ & 0.18527967E+00_JPRB, 0.42937476E+00_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 5 ----- T =  225.0
+
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+GA15( 4, 5,:) = (/&
+ & 0.16881124E+00_JPRB,-0.23732392E-01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 4, 5,:) = (/&
+ & 0.16881124E+00_JPRB, 0.40222421E+00_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 4, 6,:) = (/&
+ & 0.18833348E+00_JPRB,-0.26450280E-01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 4, 6,:) = (/&
+ & 0.18833348E+00_JPRB, 0.43444062E+00_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 5 ----- T =  237.5
+
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+GA15( 5, 5,:) = (/&
+ & 0.17177839E+00_JPRB,-0.24145123E-01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 5, 5,:) = (/&
+ & 0.17177839E+00_JPRB, 0.40756010E+00_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 5, 6,:) = (/&
+ & 0.19100108E+00_JPRB,-0.26821236E-01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 5, 6,:) = (/&
+ & 0.19100108E+00_JPRB, 0.43880316E+00_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 5 ----- T =  250.0
+
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+GA15( 6, 5,:) = (/&
+ & 0.17443933E+00_JPRB,-0.24515269E-01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 6, 5,:) = (/&
+ & 0.17443933E+00_JPRB, 0.41226954E+00_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 6, 6,:) = (/&
+ & 0.19334122E+00_JPRB,-0.27146657E-01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 6, 6,:) = (/&
+ & 0.19334122E+00_JPRB, 0.44258354E+00_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 5 ----- T =  262.5
+
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+GA15( 7, 5,:) = (/&
+ & 0.17683622E+00_JPRB,-0.24848690E-01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 7, 5,:) = (/&
+ & 0.17683622E+00_JPRB, 0.41645142E+00_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 7, 6,:) = (/&
+ & 0.19540288E+00_JPRB,-0.27433354E-01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 7, 6,:) = (/&
+ & 0.19540288E+00_JPRB, 0.44587882E+00_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 5 ----- T =  275.0
+
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+GA15( 8, 5,:) = (/&
+ & 0.17900375E+00_JPRB,-0.25150210E-01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 8, 5,:) = (/&
+ & 0.17900375E+00_JPRB, 0.42018474E+00_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 8, 6,:) = (/&
+ & 0.19722732E+00_JPRB,-0.27687065E-01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 8, 6,:) = (/&
+ & 0.19722732E+00_JPRB, 0.44876776E+00_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 5 ----- T =  287.5
+
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+GA15( 9, 5,:) = (/&
+ & 0.18097099E+00_JPRB,-0.25423873E-01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 9, 5,:) = (/&
+ & 0.18097099E+00_JPRB, 0.42353379E+00_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 9, 6,:) = (/&
+ & 0.19884918E+00_JPRB,-0.27912608E-01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 9, 6,:) = (/&
+ & 0.19884918E+00_JPRB, 0.45131451E+00_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 5 ----- T =  300.0
+
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+GA15(10, 5,:) = (/&
+ & 0.18276283E+00_JPRB,-0.25673139E-01_JPRB, 0.00000000E+00_JPRB/)  
+GB15(10, 5,:) = (/&
+ & 0.18276283E+00_JPRB, 0.42655211E+00_JPRB, 0.10000000E+01_JPRB/)  
+GA15(10, 6,:) = (/&
+ & 0.20029696E+00_JPRB,-0.28113944E-01_JPRB, 0.00000000E+00_JPRB/)  
+GB15(10, 6,:) = (/&
+ & 0.20029696E+00_JPRB, 0.45357095E+00_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 5 ----- T =  312.5
+
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+GA15(11, 5,:) = (/&
+ & 0.18440117E+00_JPRB,-0.25901055E-01_JPRB, 0.00000000E+00_JPRB/)  
+GB15(11, 5,:) = (/&
+ & 0.18440117E+00_JPRB, 0.42928533E+00_JPRB, 0.10000000E+01_JPRB/)  
+GA15(11, 6,:) = (/&
+ & 0.20159300E+00_JPRB,-0.28294180E-01_JPRB, 0.00000000E+00_JPRB/)  
+GB15(11, 6,:) = (/&
+ & 0.20159300E+00_JPRB, 0.45557797E+00_JPRB, 0.10000000E+01_JPRB/)  
+
+!- WATER VAPOR - WINGS OF VIBRATION-ROTATION BAND - 1250-1450+1880-2820 -
+!--- G = 0.0
+
+!----- INTERVAL = 6 ----- T =  187.5
+
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+GA15( 1,11,:) = (/&
+ & 0.11990218E+02_JPRB,-0.12823142E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 1,11,:) = (/&
+ & 0.11990218E+02_JPRB, 0.26681588E+02_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 1,12,:) = (/&
+ & 0.79709806E+01_JPRB,-0.74805226E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 1,12,:) = (/&
+ & 0.79709806E+01_JPRB, 0.18377807E+02_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 6 ----- T =  200.0
+
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+GA15( 2,11,:) = (/&
+ & 0.10904073E+02_JPRB,-0.10571588E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 2,11,:) = (/&
+ & 0.10904073E+02_JPRB, 0.24728346E+02_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 2,12,:) = (/&
+ & 0.75400737E+01_JPRB,-0.56252739E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 2,12,:) = (/&
+ & 0.75400737E+01_JPRB, 0.17643148E+02_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 6 ----- T =  212.5
+
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+GA15( 3,11,:) = (/&
+ & 0.89126838E+01_JPRB,-0.74864953E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 3,11,:) = (/&
+ & 0.89126838E+01_JPRB, 0.20551342E+02_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 3,12,:) = (/&
+ & 0.81804377E+01_JPRB,-0.46188072E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 3,12,:) = (/&
+ & 0.81804377E+01_JPRB, 0.19296161E+02_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 6 ----- T =  225.0
+
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+GA15( 4,11,:) = (/&
+ & 0.85622405E+01_JPRB,-0.58705980E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 4,11,:) = (/&
+ & 0.85622405E+01_JPRB, 0.19955244E+02_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 4,12,:) = (/&
+ & 0.10564339E+02_JPRB,-0.40712065E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 4,12,:) = (/&
+ & 0.10564339E+02_JPRB, 0.24951120E+02_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 6 ----- T =  237.5
+
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+GA15( 5,11,:) = (/&
+ & 0.94892164E+01_JPRB,-0.49305772E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 5,11,:) = (/&
+ & 0.94892164E+01_JPRB, 0.22227100E+02_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 5,12,:) = (/&
+ & 0.46896789E+02_JPRB,-0.15295996E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 5,12,:) = (/&
+ & 0.46896789E+02_JPRB, 0.10957372E+03_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 6 ----- T =  250.0
+
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+GA15( 6,11,:) = (/&
+ & 0.13580937E+02_JPRB,-0.51461431E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 6,11,:) = (/&
+ & 0.13580937E+02_JPRB, 0.31770288E+02_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 6,12,:) = (/&
+ & -0.30926524E+01_JPRB, 0.43555255E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 6,12,:) = (/&
+ & -0.30926524E+01_JPRB,-0.67432659E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 6 ----- T =  262.5
+
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+GA15( 7,11,:) = (/&
+ & -0.32050918E+03_JPRB, 0.12373350E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 7,11,:) = (/&
+ & -0.32050918E+03_JPRB,-0.74061287E+03_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 7,12,:) = (/&
+ & 0.85742941E+00_JPRB, 0.50380874E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 7,12,:) = (/&
+ & 0.85742941E+00_JPRB, 0.24550746E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 6 ----- T =  275.0
+
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+GA15( 8,11,:) = (/&
+ & -0.37133165E+01_JPRB, 0.44809588E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 8,11,:) = (/&
+ & -0.37133165E+01_JPRB,-0.81329826E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 8,12,:) = (/&
+ & 0.19164038E+01_JPRB, 0.68537352E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 8,12,:) = (/&
+ & 0.19164038E+01_JPRB, 0.49089917E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 6 ----- T =  287.5
+
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+GA15( 9,11,:) = (/&
+ & 0.18890836E+00_JPRB, 0.46548918E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 9,11,:) = (/&
+ & 0.18890836E+00_JPRB, 0.90279822E+00_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 9,12,:) = (/&
+ & 0.23513199E+01_JPRB, 0.89437630E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 9,12,:) = (/&
+ & 0.23513199E+01_JPRB, 0.59008712E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 6 ----- T =  300.0
+
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+GA15(10,11,:) = (/&
+ & 0.14209226E+01_JPRB, 0.59121475E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15(10,11,:) = (/&
+ & 0.14209226E+01_JPRB, 0.37532746E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15(10,12,:) = (/&
+ & 0.25566644E+01_JPRB, 0.11127003E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15(10,12,:) = (/&
+ & 0.25566644E+01_JPRB, 0.63532616E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 6 ----- T =  312.5
+
+!-- INDICES FOR PADE APPROXIMATION   1 35 40 45
+GA15(11,11,:) = (/&
+ & 0.19817679E+01_JPRB, 0.74676119E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15(11,11,:) = (/&
+ & 0.19817679E+01_JPRB, 0.50437916E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15(11,12,:) = (/&
+ & 0.26555181E+01_JPRB, 0.13329782E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15(11,12,:) = (/&
+ & 0.26555181E+01_JPRB, 0.65558627E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!-- END WATER VAPOR
+
+!-- CO2 -- INT.2 -- 500-800 CM-1 --- FROM ABS225 ----------------------
+
+!-- FIU = 0.8 + MAX(0.35,(7-IU)*0.9)  , X/T,  9
+
+!----- INTERVAL = 2 ----- T =  187.5
+
+!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
+GA15( 1,13,:) = (/&
+ & 0.87668459E-01_JPRB, 0.13845511E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 1,13,:) = (/&
+ & 0.87668459E-01_JPRB, 0.23203798E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 1,14,:) = (/&
+ & 0.74878820E-01_JPRB, 0.11718758E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 1,14,:) = (/&
+ & 0.74878820E-01_JPRB, 0.20206726E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 2 ----- T =  200.0
+
+!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
+GA15( 2,13,:) = (/&
+ & 0.83754276E-01_JPRB, 0.13187042E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 2,13,:) = (/&
+ & 0.83754276E-01_JPRB, 0.22288925E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 2,14,:) = (/&
+ & 0.71650966E-01_JPRB, 0.11216131E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 2,14,:) = (/&
+ & 0.71650966E-01_JPRB, 0.19441824E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 2 ----- T =  212.5
+
+!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
+GA15( 3,13,:) = (/&
+ & 0.80460283E-01_JPRB, 0.12644396E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 3,13,:) = (/&
+ & 0.80460283E-01_JPRB, 0.21515593E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 3,14,:) = (/&
+ & 0.68979615E-01_JPRB, 0.10809473E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 3,14,:) = (/&
+ & 0.68979615E-01_JPRB, 0.18807257E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 2 ----- T =  225.0
+
+!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
+GA15( 4,13,:) = (/&
+ & 0.77659686E-01_JPRB, 0.12191543E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 4,13,:) = (/&
+ & 0.77659686E-01_JPRB, 0.20855896E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 4,14,:) = (/&
+ & 0.66745345E-01_JPRB, 0.10476396E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 4,14,:) = (/&
+ & 0.66745345E-01_JPRB, 0.18275618E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 2 ----- T =  237.5
+
+!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
+GA15( 5,13,:) = (/&
+ & 0.75257056E-01_JPRB, 0.11809511E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 5,13,:) = (/&
+ & 0.75257056E-01_JPRB, 0.20288489E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 5,14,:) = (/&
+ & 0.64857571E-01_JPRB, 0.10200373E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 5,14,:) = (/&
+ & 0.64857571E-01_JPRB, 0.17825910E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 2 ----- T =  250.0
+
+!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
+GA15( 6,13,:) = (/&
+ & 0.73179175E-01_JPRB, 0.11484154E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 6,13,:) = (/&
+ & 0.73179175E-01_JPRB, 0.19796791E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 6,14,:) = (/&
+ & 0.63248495E-01_JPRB, 0.99692726E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 6,14,:) = (/&
+ & 0.63248495E-01_JPRB, 0.17442308E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 2 ----- T =  262.5
+
+!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
+GA15( 7,13,:) = (/&
+ & 0.71369063E-01_JPRB, 0.11204723E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 7,13,:) = (/&
+ & 0.71369063E-01_JPRB, 0.19367778E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 7,14,:) = (/&
+ & 0.61866970E-01_JPRB, 0.97740923E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 7,14,:) = (/&
+ & 0.61866970E-01_JPRB, 0.17112809E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 2 ----- T =  275.0
+
+!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
+GA15( 8,13,:) = (/&
+ & 0.69781812E-01_JPRB, 0.10962918E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 8,13,:) = (/&
+ & 0.69781812E-01_JPRB, 0.18991112E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 8,14,:) = (/&
+ & 0.60673632E-01_JPRB, 0.96080188E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 8,14,:) = (/&
+ & 0.60673632E-01_JPRB, 0.16828137E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 2 ----- T =  287.5
+
+!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
+GA15( 9,13,:) = (/&
+ & 0.68381606E-01_JPRB, 0.10752229E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 9,13,:) = (/&
+ & 0.68381606E-01_JPRB, 0.18658501E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 9,14,:) = (/&
+ & 0.59637277E-01_JPRB, 0.94657562E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 9,14,:) = (/&
+ & 0.59637277E-01_JPRB, 0.16580908E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 2 ----- T =  300.0
+
+!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
+GA15(10,13,:) = (/&
+ & 0.67139539E-01_JPRB, 0.10567474E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15(10,13,:) = (/&
+ & 0.67139539E-01_JPRB, 0.18363226E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15(10,14,:) = (/&
+ & 0.58732178E-01_JPRB, 0.93430511E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15(10,14,:) = (/&
+ & 0.58732178E-01_JPRB, 0.16365014E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 2 ----- T =  312.5
+
+!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
+GA15(11,13,:) = (/&
+ & 0.66032012E-01_JPRB, 0.10404465E+01_JPRB, 0.00000000E+00_JPRB/)  
+GB15(11,13,:) = (/&
+ & 0.66032012E-01_JPRB, 0.18099779E+01_JPRB, 0.10000000E+01_JPRB/)  
+GA15(11,14,:) = (/&
+ & 0.57936092E-01_JPRB, 0.92363528E+00_JPRB, 0.00000000E+00_JPRB/)  
+GB15(11,14,:) = (/&
+ & 0.57936092E-01_JPRB, 0.16175164E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!-- CARBON DIOXIDE LINES IN THE WINDOW REGION (800-1250 CM-1)
+
+!-- G = 0.0
+
+!----- INTERVAL = 4 ----- T =  187.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+GA15( 1,15,:) = (/&
+ & 0.13230067E+02_JPRB, 0.22042132E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 1,15,:) = (/&
+ & 0.13230067E+02_JPRB, 0.22051750E+02_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 1,16,:) = (/&
+ & 0.13183816E+02_JPRB, 0.22169501E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 1,16,:) = (/&
+ & 0.13183816E+02_JPRB, 0.22178972E+02_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 4 ----- T =  200.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+GA15( 2,15,:) = (/&
+ & 0.13213564E+02_JPRB, 0.22107298E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 2,15,:) = (/&
+ & 0.13213564E+02_JPRB, 0.22116850E+02_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 2,16,:) = (/&
+ & 0.13189991E+02_JPRB, 0.22270075E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 2,16,:) = (/&
+ & 0.13189991E+02_JPRB, 0.22279484E+02_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 4 ----- T =  212.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+GA15( 3,15,:) = (/&
+ & 0.13209140E+02_JPRB, 0.22180915E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 3,15,:) = (/&
+ & 0.13209140E+02_JPRB, 0.22190410E+02_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 3,16,:) = (/&
+ & 0.13209485E+02_JPRB, 0.22379193E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 3,16,:) = (/&
+ & 0.13209485E+02_JPRB, 0.22388551E+02_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 4 ----- T =  225.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+GA15( 4,15,:) = (/&
+ & 0.13213894E+02_JPRB, 0.22259478E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 4,15,:) = (/&
+ & 0.13213894E+02_JPRB, 0.22268925E+02_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 4,16,:) = (/&
+ & 0.13238789E+02_JPRB, 0.22492992E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 4,16,:) = (/&
+ & 0.13238789E+02_JPRB, 0.22502309E+02_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 4 ----- T =  237.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+GA15( 5,15,:) = (/&
+ & 0.13225963E+02_JPRB, 0.22341039E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 5,15,:) = (/&
+ & 0.13225963E+02_JPRB, 0.22350445E+02_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 5,16,:) = (/&
+ & 0.13275017E+02_JPRB, 0.22608508E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 5,16,:) = (/&
+ & 0.13275017E+02_JPRB, 0.22617792E+02_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 4 ----- T =  250.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+GA15( 6,15,:) = (/&
+ & 0.13243806E+02_JPRB, 0.22424247E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 6,15,:) = (/&
+ & 0.13243806E+02_JPRB, 0.22433617E+02_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 6,16,:) = (/&
+ & 0.13316096E+02_JPRB, 0.22723843E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 6,16,:) = (/&
+ & 0.13316096E+02_JPRB, 0.22733099E+02_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 4 ----- T =  262.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+GA15( 7,15,:) = (/&
+ & 0.13266104E+02_JPRB, 0.22508089E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 7,15,:) = (/&
+ & 0.13266104E+02_JPRB, 0.22517429E+02_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 7,16,:) = (/&
+ & 0.13360555E+02_JPRB, 0.22837837E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 7,16,:) = (/&
+ & 0.13360555E+02_JPRB, 0.22847071E+02_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 4 ----- T =  275.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+GA15( 8,15,:) = (/&
+ & 0.13291782E+02_JPRB, 0.22591771E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 8,15,:) = (/&
+ & 0.13291782E+02_JPRB, 0.22601086E+02_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 8,16,:) = (/&
+ & 0.13407324E+02_JPRB, 0.22949751E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 8,16,:) = (/&
+ & 0.13407324E+02_JPRB, 0.22958967E+02_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 4 ----- T =  287.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+GA15( 9,15,:) = (/&
+ & 0.13319961E+02_JPRB, 0.22674661E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 9,15,:) = (/&
+ & 0.13319961E+02_JPRB, 0.22683956E+02_JPRB, 0.10000000E+01_JPRB/)  
+GA15( 9,16,:) = (/&
+ & 0.13455544E+02_JPRB, 0.23059032E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15( 9,16,:) = (/&
+ & 0.13455544E+02_JPRB, 0.23068234E+02_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 4 ----- T =  300.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+GA15(10,15,:) = (/&
+ & 0.13349927E+02_JPRB, 0.22756246E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15(10,15,:) = (/&
+ & 0.13349927E+02_JPRB, 0.22765522E+02_JPRB, 0.10000000E+01_JPRB/)  
+GA15(10,16,:) = (/&
+ & 0.13504450E+02_JPRB, 0.23165146E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15(10,16,:) = (/&
+ & 0.13504450E+02_JPRB, 0.23174336E+02_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 4 ----- T =  312.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+GA15(11,15,:) = (/&
+ & 0.13381108E+02_JPRB, 0.22836093E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15(11,15,:) = (/&
+ & 0.13381108E+02_JPRB, 0.22845354E+02_JPRB, 0.10000000E+01_JPRB/)  
+GA15(11,16,:) = (/&
+ & 0.13553282E+02_JPRB, 0.23267456E+02_JPRB, 0.00000000E+00_JPRB/)  
+GB15(11,16,:) = (/&
+ & 0.13553282E+02_JPRB, 0.23276638E+02_JPRB, 0.10000000E+01_JPRB/)  
+
+IF (LHOOK) CALL DR_HOOK('SULW15',1,ZHOOK_HANDLE)
+END SUBROUTINE SULW15
Index: LMDZ5/trunk/libf/phylmd/rrtm/sulw15.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/sulw15.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/sulw15.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SULW15
+END SUBROUTINE SULW15
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/sulwn.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/sulwn.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/sulwn.F90	(revision 1989)
@@ -0,0 +1,1215 @@
+SUBROUTINE SULWN
+
+!**** *SULWN*   - INITIALIZE COMMON YOELW
+
+!     PURPOSE.
+!     --------
+!           INITIALIZE YOELW, THE COMMON THAT CONTAINS COEFFICIENTS
+!           NEEDED TO RUN THE LONGWAVE RADIATION ROUTINES
+
+!**   INTERFACE.
+!     ----------
+!        *CALL* *SULWN
+
+!        EXPLICIT ARGUMENTS
+!        --------------------
+!        NONE
+
+!        IMPLICIT ARGUMENTS
+!        --------------------
+!        COMMON YOELW
+
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+
+!     EXTERNALS.
+!     ----------
+
+!     REFERENCE.
+!     ----------
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 88-12-15
+!        J.-J. Morcrette ECMWF 951215: Pseudo-Voigt Line Profiles
+!        97-04-25 J.J. Morcrette Revised Continuum coefficients
+!        97-10-30 J.J. Morcrette cy18
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOELW    , ONLY : MXIXT    ,NSIL     ,NIPD     ,NIPD2    ,&
+ & NTR      ,NTRA     ,NUA      ,NG1      ,NG1P1    ,&
+ & ALWT     ,BLWT     ,PDGA     ,PDGB     ,RPTYPE   ,&
+ & RETYPE   ,RO1H     ,RO2H     ,RO3T     ,RPIALF0  ,&
+ & RT1      ,TINTP    ,TREF     ,TSTAND   ,TSTP     ,&
+ & WG1      ,XP       ,RVGCO2   ,RVGH2O   ,RVGO3  
+
+IMPLICIT NONE
+
+!     ------------------------------------------------------------------ 
+
+!*       1.    FILL BLOCK DATA
+!              ---------------
+
+!-- REFERENCE TEMPERATURE FOR THE TRANSMISSIVITIES
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SULWN',0,ZHOOK_HANDLE)
+TINTP = (/ 187.5_JPRB, 200._JPRB, 212.5_JPRB, 225._JPRB, 237.5_JPRB,  &
+ & 250._JPRB,&
+ & 262.5_JPRB, 275._JPRB, 287.5_JPRB, 300._JPRB, 312.5_JPRB /)  
+
+!-- COEFFICIENTS OF THE POLYNOMIALS GIVING THE PLANCK FUNCTIONS
+
+XP( :, 1) = (/&
+ & 0.46430621E+02_JPRB, 0.12928299E+03_JPRB, 0.20732648E+03_JPRB,&
+ & 0.31398411E+03_JPRB, 0.18373177E+03_JPRB,-0.11412303E+03_JPRB/)  
+XP( :, 2) = (/&
+ & 0.73604774E+02_JPRB, 0.27887914E+03_JPRB, 0.27076947E+03_JPRB,&
+ & -.57322111E+02_JPRB,-0.64742459E+02_JPRB, 0.87238280E+02_JPRB/)  
+XP( :, 3) = (/&
+ & 0.37050866E+02_JPRB, 0.20498759E+03_JPRB, 0.37558029E+03_JPRB,&
+ & 0.17401171E+03_JPRB,-0.13350302E+03_JPRB,-0.37651795E+02_JPRB/)  
+XP( :, 4) = (/&
+ & 0.14930141E+02_JPRB, 0.89161160E+02_JPRB, 0.17793062E+03_JPRB,&
+ & 0.93433860E+02_JPRB,-0.70646020E+02_JPRB,-0.26373150E+02_JPRB/)  
+XP( :, 5) = (/&
+ & 0.40386780E+02_JPRB, 0.10855270E+03_JPRB, 0.50755010E+02_JPRB,&
+ & -0.31496190E+02_JPRB, 0.12791300E+00_JPRB, 0.18017770E+01_JPRB/)  
+XP( :, 6) = (/&
+ & 0.90811926E+01_JPRB, 0.75073923E+02_JPRB, 0.24654438E+03_JPRB,&
+ & 0.39332612E+03_JPRB, 0.29385281E+03_JPRB, 0.89107921E+02_JPRB/)  
+
+!-----------------------------------------------------------------------
+!  PADE APPROXIMANTS FOR THE TRANSMISSIVITIES
+
+!--- WATER VAPOUR FROM ZHONG & HAIGH  (revision3 96-11-15)
+
+!- H2O  0-350 cm-1
+
+!----- INTERVAL = 1 ----- T =    187.50
+
+PDGA( 1, 1,:) = (/&
+ & 0.25000224E-02_JPRB, 0.18701843E-02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 1, 1,:) = (/&
+ & 0.25000224E-02_JPRB, 0.61593968E-01_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 1, 2,:) = (/&
+ & 0.34131105E-02_JPRB, 0.55153039E-03_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 1, 2,:) = (/&
+ & 0.34131105E-02_JPRB, 0.73127832E-01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 1 ----- T =    200.00
+
+PDGA( 2, 1,:) = (/&
+ & 0.26344616E-02_JPRB, 0.16894582E-02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 2, 1,:) = (/&
+ & 0.26344616E-02_JPRB, 0.63633167E-01_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 2, 2,:) = (/&
+ & 0.36120928E-02_JPRB, 0.44720171E-03_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 2, 2,:) = (/&
+ & 0.36120928E-02_JPRB, 0.75062171E-01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 1 ----- T =    212.50
+
+PDGA( 3, 1,:) = (/&
+ & 0.27743234E-02_JPRB, 0.15245487E-02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 3, 1,:) = (/&
+ & 0.27743234E-02_JPRB, 0.65651733E-01_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 3, 2,:) = (/&
+ & 0.38453121E-02_JPRB, 0.42382776E-03_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 3, 2,:) = (/&
+ & 0.38453121E-02_JPRB, 0.77088315E-01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 1 ----- T =    225.00
+
+PDGA( 4, 1,:) = (/&
+ & 0.29265376E-02_JPRB, 0.13719090E-02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 4, 1,:) = (/&
+ & 0.29265376E-02_JPRB, 0.67739270E-01_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 4, 2,:) = (/&
+ & 0.41211460E-02_JPRB, 0.42401401E-03_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 4, 2,:) = (/&
+ & 0.41211460E-02_JPRB, 0.79241307E-01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 1 ----- T =    237.50
+
+PDGA( 5, 1,:) = (/&
+ & 0.30979053E-02_JPRB, 0.12223308E-02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 5, 1,:) = (/&
+ & 0.30979053E-02_JPRB, 0.69968340E-01_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 5, 2,:) = (/&
+ & 0.43966504E-02_JPRB, 0.67198946E-03_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 5, 2,:) = (/&
+ & 0.43966504E-02_JPRB, 0.80947310E-01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 1 ----- T =    250.00
+
+PDGA( 6, 1,:) = (/&
+ & 0.32813184E-02_JPRB, 0.11573810E-02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 6, 1,:) = (/&
+ & 0.32813184E-02_JPRB, 0.72183750E-01_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 6, 2,:) = (/&
+ & 0.46792452E-02_JPRB, 0.99691013E-03_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 6, 2,:) = (/&
+ & 0.46792452E-02_JPRB, 0.82404099E-01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 1 ----- T =    262.50
+
+PDGA( 7, 1,:) = (/&
+ & 0.34869261E-02_JPRB, 0.11110812E-02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 7, 1,:) = (/&
+ & 0.34869261E-02_JPRB, 0.74507149E-01_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 7, 2,:) = (/&
+ & 0.49313571E-02_JPRB, 0.15144806E-02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 7, 2,:) = (/&
+ & 0.49313571E-02_JPRB, 0.83301687E-01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 1 ----- T =    275.00
+
+PDGA( 8, 1,:) = (/&
+ & 0.37169013E-02_JPRB, 0.10586459E-02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 8, 1,:) = (/&
+ & 0.37169013E-02_JPRB, 0.76930655E-01_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 8, 2,:) = (/&
+ & 0.51606177E-02_JPRB, 0.20799953E-02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 8, 2,:) = (/&
+ & 0.51606177E-02_JPRB, 0.83904484E-01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 1 ----- T =    287.50
+
+PDGA( 9, 1,:) = (/&
+ & 0.39482491E-02_JPRB, 0.11280761E-02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 9, 1,:) = (/&
+ & 0.39482491E-02_JPRB, 0.79096624E-01_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 9, 2,:) = (/&
+ & 0.53608496E-02_JPRB, 0.26755638E-02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 9, 2,:) = (/&
+ & 0.53608496E-02_JPRB, 0.84271466E-01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 1 ----- T =    300.00
+
+PDGA(10, 1,:) = (/&
+ & 0.41849825E-02_JPRB, 0.12500965E-02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB(10, 1,:) = (/&
+ & 0.41849825E-02_JPRB, 0.81087000E-01_JPRB, 0.10000000E+01_JPRB/)  
+PDGA(10, 2,:) = (/&
+ & 0.55372909E-02_JPRB, 0.32512851E-02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB(10, 2,:) = (/&
+ & 0.55372909E-02_JPRB, 0.84546756E-01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 1 ----- T =    312.50
+
+PDGA(11, 1,:) = (/&
+ & 0.44204714E-02_JPRB, 0.14195697E-02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB(11, 1,:) = (/&
+ & 0.44204714E-02_JPRB, 0.82840020E-01_JPRB, 0.10000000E+01_JPRB/)  
+PDGA(11, 2,:) = (/&
+ & 0.56935299E-02_JPRB, 0.38054592E-02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB(11, 2,:) = (/&
+ & 0.56935299E-02_JPRB, 0.84847060E-01_JPRB, 0.10000000E+01_JPRB/)  
+
+!- H2O  500-800 cm-1
+
+!----- INTERVAL = 2 ----- T =    187.50
+
+PDGA( 1, 3,:) = (/&
+ & 0.15053751E+01_JPRB, 0.45361026E+00_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 1, 3,:) = (/&
+ & 0.15053751E+01_JPRB, 0.15789584E+01_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 1, 4,:) = (/&
+ & 0.18920793E+01_JPRB, 0.53457554E+00_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 1, 4,:) = (/&
+ & 0.18920793E+01_JPRB, 0.18418304E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 2 ----- T =    200.00
+
+PDGA( 2, 3,:) = (/&
+ & 0.15977537E+01_JPRB, 0.48084314E+00_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 2, 3,:) = (/&
+ & 0.15977537E+01_JPRB, 0.16476468E+01_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 2, 4,:) = (/&
+ & 0.20435568E+01_JPRB, 0.55893717E+00_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 2, 4,:) = (/&
+ & 0.20435568E+01_JPRB, 0.19386656E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 2 ----- T =    212.50
+
+PDGA( 3, 3,:) = (/&
+ & 0.16913237E+01_JPRB, 0.50454053E+00_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 3, 3,:) = (/&
+ & 0.16913237E+01_JPRB, 0.17144170E+01_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 3, 4,:) = (/&
+ & 0.21978186E+01_JPRB, 0.57905459E+00_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 3, 4,:) = (/&
+ & 0.21978186E+01_JPRB, 0.20334044E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 2 ----- T =    225.00
+
+PDGA( 4, 3,:) = (/&
+ & 0.17856476E+01_JPRB, 0.52514194E+00_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 4, 3,:) = (/&
+ & 0.17856476E+01_JPRB, 0.17792823E+01_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 4, 4,:) = (/&
+ & 0.23533355E+01_JPRB, 0.59558005E+00_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 4, 4,:) = (/&
+ & 0.23533355E+01_JPRB, 0.21256517E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 2 ----- T =    237.50
+
+PDGA( 5, 3,:) = (/&
+ & 0.18802811E+01_JPRB, 0.54304459E+00_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 5, 3,:) = (/&
+ & 0.18802811E+01_JPRB, 0.18422412E+01_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 5, 4,:) = (/&
+ & 0.25086500E+01_JPRB, 0.60908958E+00_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 5, 4,:) = (/&
+ & 0.25086500E+01_JPRB, 0.22150389E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 2 ----- T =    250.00
+
+PDGA( 6, 3,:) = (/&
+ & 0.19747954E+01_JPRB, 0.55860186E+00_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 6, 3,:) = (/&
+ & 0.19747954E+01_JPRB, 0.19032856E+01_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 6, 4,:) = (/&
+ & 0.26624407E+01_JPRB, 0.62008317E+00_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 6, 4,:) = (/&
+ & 0.26624407E+01_JPRB, 0.23012482E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 2 ----- T =    262.50
+
+PDGA( 7, 3,:) = (/&
+ & 0.20687911E+01_JPRB, 0.57212480E+00_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 7, 3,:) = (/&
+ & 0.20687911E+01_JPRB, 0.19624068E+01_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 7, 4,:) = (/&
+ & 0.28135635E+01_JPRB, 0.62898892E+00_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 7, 4,:) = (/&
+ & 0.28135635E+01_JPRB, 0.23840281E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 2 ----- T =    275.00
+
+PDGA( 8, 3,:) = (/&
+ & 0.21619083E+01_JPRB, 0.58388519E+00_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 8, 3,:) = (/&
+ & 0.21619083E+01_JPRB, 0.20195993E+01_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 8, 4,:) = (/&
+ & 0.29610693E+01_JPRB, 0.63616954E+00_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 8, 4,:) = (/&
+ & 0.29610693E+01_JPRB, 0.24631984E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 2 ----- T =    287.50
+
+PDGA( 9, 3,:) = (/&
+ & 0.22538305E+01_JPRB, 0.59411934E+00_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 9, 3,:) = (/&
+ & 0.22538305E+01_JPRB, 0.20748638E+01_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 9, 4,:) = (/&
+ & 0.31042087E+01_JPRB, 0.64192944E+00_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 9, 4,:) = (/&
+ & 0.31042087E+01_JPRB, 0.25386513E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 2 ----- T =    300.00
+
+PDGA(10, 3,:) = (/&
+ & 0.23442867E+01_JPRB, 0.60303198E+00_JPRB, 0.00000000E+00_JPRB/)  
+PDGB(10, 3,:) = (/&
+ & 0.23442867E+01_JPRB, 0.21282086E+01_JPRB, 0.10000000E+01_JPRB/)  
+PDGA(10, 4,:) = (/&
+ & 0.32424163E+01_JPRB, 0.64652280E+00_JPRB, 0.00000000E+00_JPRB/)  
+PDGB(10, 4,:) = (/&
+ & 0.32424163E+01_JPRB, 0.26103424E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 2 ----- T =    312.50
+
+PDGA(11, 3,:) = (/&
+ & 0.24330507E+01_JPRB, 0.61080006E+00_JPRB, 0.00000000E+00_JPRB/)  
+PDGB(11, 3,:) = (/&
+ & 0.24330507E+01_JPRB, 0.21796505E+01_JPRB, 0.10000000E+01_JPRB/)  
+PDGA(11, 4,:) = (/&
+ & 0.33752974E+01_JPRB, 0.65016031E+00_JPRB, 0.00000000E+00_JPRB/)  
+PDGB(11, 4,:) = (/&
+ & 0.33752974E+01_JPRB, 0.26782849E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!- WATER VAPOR - INT. 3 -- 800-970 + 1110-1250 CM-1 
+
+!----- INTERVAL = 3 ----- T =    187.50
+
+PDGA( 1, 7,:) = (/&
+ & 0.14334746E+02_JPRB, 0.11649992E+02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 1, 7,:) = (/&
+ & 0.14334746E+02_JPRB, 0.12059903E+02_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 1, 8,:) = (/&
+ & 0.11596027E+02_JPRB, 0.11051587E+02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 1, 8,:) = (/&
+ & 0.11596027E+02_JPRB, 0.11390898E+02_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 3 ----- T =    200.00
+
+PDGA( 2, 7,:) = (/&
+ & 0.12924521E+02_JPRB, 0.11365906E+02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 2, 7,:) = (/&
+ & 0.12924521E+02_JPRB, 0.11739611E+02_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 2, 8,:) = (/&
+ & 0.10445365E+02_JPRB, 0.10682810E+02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 2, 8,:) = (/&
+ & 0.10445365E+02_JPRB, 0.10993927E+02_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 3 ----- T =    212.50
+
+PDGA( 3, 7,:) = (/&
+ & 0.11774060E+02_JPRB, 0.11080218E+02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 3, 7,:) = (/&
+ & 0.11774060E+02_JPRB, 0.11424740E+02_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 3, 8,:) = (/&
+ & 0.95571840E+01_JPRB, 0.10328058E+02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 3, 8,:) = (/&
+ & 0.95571840E+01_JPRB, 0.10618404E+02_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 3 ----- T =    225.00
+
+PDGA( 4, 7,:) = (/&
+ & 0.10839967E+02_JPRB, 0.10800025E+02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 4, 7,:) = (/&
+ & 0.10839967E+02_JPRB, 0.11121318E+02_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 4, 8,:) = (/&
+ & 0.88719975E+01_JPRB, 0.99930444E+01_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 4, 8,:) = (/&
+ & 0.88719975E+01_JPRB, 0.10268470E+02_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 3 ----- T =    237.50
+
+PDGA( 5, 7,:) = (/&
+ & 0.10082160E+02_JPRB, 0.10529965E+02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 5, 7,:) = (/&
+ & 0.10082160E+02_JPRB, 0.10832955E+02_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 5, 8,:) = (/&
+ & 0.83425443E+01_JPRB, 0.96805504E+01_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 5, 8,:) = (/&
+ & 0.83425443E+01_JPRB, 0.99456138E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 3 ----- T =    250.00
+
+PDGA( 6, 7,:) = (/&
+ & 0.94663507E+01_JPRB, 0.10272823E+02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 6, 7,:) = (/&
+ & 0.94663507E+01_JPRB, 0.10561525E+02_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 6, 8,:) = (/&
+ & 0.79324712E+01_JPRB, 0.93914198E+01_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 6, 8,:) = (/&
+ & 0.79324712E+01_JPRB, 0.96496576E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 3 ----- T =    262.50
+
+PDGA( 7, 7,:) = (/&
+ & 0.89643981E+01_JPRB, 0.10030051E+02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 7, 7,:) = (/&
+ & 0.89643981E+01_JPRB, 0.10307714E+02_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 7, 8,:) = (/&
+ & 0.76141974E+01_JPRB, 0.91252916E+01_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 7, 8,:) = (/&
+ & 0.76141974E+01_JPRB, 0.93794463E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 3 ----- T =    275.00
+
+PDGA( 8, 7,:) = (/&
+ & 0.85537123E+01_JPRB, 0.98021793E+01_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 8, 7,:) = (/&
+ & 0.85537123E+01_JPRB, 0.10071426E+02_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 8, 8,:) = (/&
+ & 0.73668729E+01_JPRB, 0.88811055E+01_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 8, 8,:) = (/&
+ & 0.73668729E+01_JPRB, 0.91333042E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 3 ----- T =    287.50
+
+PDGA( 9, 7,:) = (/&
+ & 0.82163567E+01_JPRB, 0.95891296E+01_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 9, 7,:) = (/&
+ & 0.82163567E+01_JPRB, 0.98520772E+01_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 9, 8,:) = (/&
+ & 0.71747025E+01_JPRB, 0.86574340E+01_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 9, 8,:) = (/&
+ & 0.71747025E+01_JPRB, 0.89093260E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 3 ----- T =    300.00
+
+PDGA(10, 7,:) = (/&
+ & 0.79381525E+01_JPRB, 0.93904375E+01_JPRB, 0.00000000E+00_JPRB/)  
+PDGB(10, 7,:) = (/&
+ & 0.79381525E+01_JPRB, 0.96487960E+01_JPRB, 0.10000000E+01_JPRB/)  
+PDGA(10, 8,:) = (/&
+ & 0.70256573E+01_JPRB, 0.84526940E+01_JPRB, 0.00000000E+00_JPRB/)  
+PDGB(10, 8,:) = (/&
+ & 0.70256573E+01_JPRB, 0.87055560E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 3 ----- T =    312.50
+
+PDGA(11, 7,:) = (/&
+ & 0.77078849E+01_JPRB, 0.92054098E+01_JPRB, 0.00000000E+00_JPRB/)  
+PDGB(11, 7,:) = (/&
+ & 0.77078849E+01_JPRB, 0.94605633E+01_JPRB, 0.10000000E+01_JPRB/)  
+PDGA(11, 8,:) = (/&
+ & 0.69105145E+01_JPRB, 0.82652769E+01_JPRB, 0.00000000E+00_JPRB/)  
+PDGB(11, 8,:) = (/&
+ & 0.69105145E+01_JPRB, 0.85200926E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!-- WATER VAPOR --- 970 -1110 CM-1
+
+!----- INTERVAL = 4 ----- T =    187.500
+
+PDGA( 1, 9,:) = (/&
+ & 0.94868790E+02_JPRB, 0.17437229E+02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 1, 9,:) = (/&
+ & 0.94868790E+02_JPRB, 0.18796329E+02_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 1,10,:) = (/&
+ & 0.95419113E+02_JPRB, 0.17234291E+02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 1,10,:) = (/&
+ & 0.95419113E+02_JPRB, 0.18632164E+02_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 4 ----- T =    200.000
+
+PDGA( 2, 9,:) = (/&
+ & 0.95143959E+02_JPRB, 0.17335575E+02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 2, 9,:) = (/&
+ & 0.95143959E+02_JPRB, 0.18714111E+02_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 2,10,:) = (/&
+ & 0.95675995E+02_JPRB, 0.17129913E+02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 2,10,:) = (/&
+ & 0.95675995E+02_JPRB, 0.18547161E+02_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 4 ----- T =    212.500
+
+PDGA( 3, 9,:) = (/&
+ & 0.95363609E+02_JPRB, 0.17245064E+02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 3, 9,:) = (/&
+ & 0.95363609E+02_JPRB, 0.18640270E+02_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 3,10,:) = (/&
+ & 0.95911537E+02_JPRB, 0.17036016E+02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 3,10,:) = (/&
+ & 0.95911537E+02_JPRB, 0.18470697E+02_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 4 ----- T =    225.000
+
+PDGA( 4, 9,:) = (/&
+ & 0.95551239E+02_JPRB, 0.17163479E+02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 4, 9,:) = (/&
+ & 0.95551239E+02_JPRB, 0.18573282E+02_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 4,10,:) = (/&
+ & 0.96128136E+02_JPRB, 0.16952074E+02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 4,10,:) = (/&
+ & 0.96128136E+02_JPRB, 0.18402708E+02_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 4 ----- T =    237.500
+
+PDGA( 5, 9,:) = (/&
+ & 0.95763680E+02_JPRB, 0.17089018E+02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 5, 9,:) = (/&
+ & 0.95763680E+02_JPRB, 0.18513403E+02_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 5,10,:) = (/&
+ & 0.96294296E+02_JPRB, 0.16877150E+02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 5,10,:) = (/&
+ & 0.96294296E+02_JPRB, 0.18341324E+02_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 4 ----- T =    250.000
+
+PDGA( 6, 9,:) = (/&
+ & 0.95913246E+02_JPRB, 0.17022213E+02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 6, 9,:) = (/&
+ & 0.95913246E+02_JPRB, 0.18458538E+02_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 6,10,:) = (/&
+ & 0.96462036E+02_JPRB, 0.16808561E+02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 6,10,:) = (/&
+ & 0.96462036E+02_JPRB, 0.18285398E+02_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 4 ----- T =    262.500
+
+PDGA( 7, 9,:) = (/&
+ & 0.96069473E+02_JPRB, 0.16961018E+02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 7, 9,:) = (/&
+ & 0.96069473E+02_JPRB, 0.18408932E+02_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 7,10,:) = (/&
+ & 0.96610298E+02_JPRB, 0.16746571E+02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 7,10,:) = (/&
+ & 0.96610298E+02_JPRB, 0.18234850E+02_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 4 ----- T =    275.000
+
+PDGA( 8, 9,:) = (/&
+ & 0.96201309E+02_JPRB, 0.16905493E+02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 8, 9,:) = (/&
+ & 0.96201309E+02_JPRB, 0.18363655E+02_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 8,10,:) = (/&
+ & 0.96754684E+02_JPRB, 0.16690109E+02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 8,10,:) = (/&
+ & 0.96754684E+02_JPRB, 0.18189079E+02_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 4 ----- T =    287.500
+
+PDGA( 9, 9,:) = (/&
+ & 0.96342339E+02_JPRB, 0.16853893E+02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 9, 9,:) = (/&
+ & 0.96342339E+02_JPRB, 0.18321957E+02_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 9,10,:) = (/&
+ & 0.96883301E+02_JPRB, 0.16638573E+02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 9,10,:) = (/&
+ & 0.96883301E+02_JPRB, 0.18147303E+02_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 4 ----- T =    300.000
+
+PDGA(10, 9,:) = (/&
+ & 0.96457764E+02_JPRB, 0.16806755E+02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB(10, 9,:) = (/&
+ & 0.96457764E+02_JPRB, 0.18283590E+02_JPRB, 0.10000000E+01_JPRB/)  
+PDGA(10,10,:) = (/&
+ & 0.96989792E+02_JPRB, 0.16591677E+02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB(10,10,:) = (/&
+ & 0.96989792E+02_JPRB, 0.18108814E+02_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 4 ----- T =    312.500
+
+PDGA(11, 9,:) = (/&
+ & 0.96549957E+02_JPRB, 0.16763689E+02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB(11, 9,:) = (/&
+ & 0.96549957E+02_JPRB, 0.18248074E+02_JPRB, 0.10000000E+01_JPRB/)  
+PDGA(11,10,:) = (/&
+ & 0.97097275E+02_JPRB, 0.16548479E+02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB(11,10,:) = (/&
+ & 0.97097275E+02_JPRB, 0.18073788E+02_JPRB, 0.10000000E+01_JPRB/)  
+
+!-- WATER VAPOR -- INT.5 --  350- 500 CM-1 
+
+!----- INTERVAL = 5 ----- T =    187.500
+
+PDGA( 1, 5,:) = (/&
+ & 0.13134047E+00_JPRB,-0.23649048E-01_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 1, 5,:) = (/&
+ & 0.13134047E+00_JPRB, 0.54008597E+00_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 1, 6,:) = (/&
+ & 0.14049581E+00_JPRB,-0.26231026E-01_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 1, 6,:) = (/&
+ & 0.14049581E+00_JPRB, 0.54143775E+00_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 5 ----- T =    200.000
+
+PDGA( 2, 5,:) = (/&
+ & 0.13330981E+00_JPRB,-0.24178915E-01_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 2, 5,:) = (/&
+ & 0.13330981E+00_JPRB, 0.54094988E+00_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 2, 6,:) = (/&
+ & 0.14229582E+00_JPRB,-0.26725627E-01_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 2, 6,:) = (/&
+ & 0.14229582E+00_JPRB, 0.54189402E+00_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 5 ----- T =    212.500
+
+PDGA( 3, 5,:) = (/&
+ & 0.13504511E+00_JPRB,-0.24650861E-01_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 3, 5,:) = (/&
+ & 0.13504511E+00_JPRB, 0.54169583E+00_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 3, 6,:) = (/&
+ & 0.14384151E+00_JPRB,-0.27153090E-01_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 3, 6,:) = (/&
+ & 0.14384151E+00_JPRB, 0.54222512E+00_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 5 ----- T =    225.000
+
+PDGA( 4, 5,:) = (/&
+ & 0.13651314E+00_JPRB,-0.25044570E-01_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 4, 5,:) = (/&
+ & 0.13651314E+00_JPRB, 0.54191625E+00_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 4, 6,:) = (/&
+ & 0.14517485E+00_JPRB,-0.27523417E-01_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 4, 6,:) = (/&
+ & 0.14517485E+00_JPRB, 0.54246801E+00_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 5 ----- T =    237.500
+
+PDGA( 5, 5,:) = (/&
+ & 0.13790466E+00_JPRB,-0.25431205E-01_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 5, 5,:) = (/&
+ & 0.13790466E+00_JPRB, 0.54262739E+00_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 5, 6,:) = (/&
+ & 0.14633319E+00_JPRB,-0.27845515E-01_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 5, 6,:) = (/&
+ & 0.14633319E+00_JPRB, 0.54265642E+00_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 5 ----- T =    250.000
+
+PDGA( 6, 5,:) = (/&
+ & 0.13909847E+00_JPRB,-0.25759069E-01_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 6, 5,:) = (/&
+ & 0.13909847E+00_JPRB, 0.54293746E+00_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 6, 6,:) = (/&
+ & 0.14734478E+00_JPRB,-0.28128289E-01_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 6, 6,:) = (/&
+ & 0.14734478E+00_JPRB, 0.54279846E+00_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 5 ----- T =    262.500
+
+PDGA( 7, 5,:) = (/&
+ & 0.14014673E+00_JPRB,-0.26045626E-01_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 7, 5,:) = (/&
+ & 0.14014673E+00_JPRB, 0.54306209E+00_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 7, 6,:) = (/&
+ & 0.14823231E+00_JPRB,-0.28376250E-01_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 7, 6,:) = (/&
+ & 0.14823231E+00_JPRB, 0.54290944E+00_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 5 ----- T =    275.000
+
+PDGA( 8, 5,:) = (/&
+ & 0.14110570E+00_JPRB,-0.26310772E-01_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 8, 5,:) = (/&
+ & 0.14110570E+00_JPRB, 0.54324186E+00_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 8, 6,:) = (/&
+ & 0.14901793E+00_JPRB,-0.28597040E-01_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 8, 6,:) = (/&
+ & 0.14901793E+00_JPRB, 0.54300690E+00_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 5 ----- T =    287.500
+
+PDGA( 9, 5,:) = (/&
+ & 0.14198618E+00_JPRB,-0.26556855E-01_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 9, 5,:) = (/&
+ & 0.14198618E+00_JPRB, 0.54346353E+00_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 9, 6,:) = (/&
+ & 0.14971229E+00_JPRB,-0.28792191E-01_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 9, 6,:) = (/&
+ & 0.14971229E+00_JPRB, 0.54307669E+00_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 5 ----- T =    300.000
+
+PDGA(10, 5,:) = (/&
+ & 0.14277160E+00_JPRB,-0.26774861E-01_JPRB, 0.00000000E+00_JPRB/)  
+PDGB(10, 5,:) = (/&
+ & 0.14277160E+00_JPRB, 0.54357564E+00_JPRB, 0.10000000E+01_JPRB/)  
+PDGA(10, 6,:) = (/&
+ & 0.15033126E+00_JPRB,-0.28966904E-01_JPRB, 0.00000000E+00_JPRB/)  
+PDGB(10, 6,:) = (/&
+ & 0.15033126E+00_JPRB, 0.54313493E+00_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 5 ----- T =    312.500
+
+PDGA(11, 5,:) = (/&
+ & 0.14349319E+00_JPRB,-0.26976623E-01_JPRB, 0.00000000E+00_JPRB/)  
+PDGB(11, 5,:) = (/&
+ & 0.14349319E+00_JPRB, 0.54369903E+00_JPRB, 0.10000000E+01_JPRB/)  
+PDGA(11, 6,:) = (/&
+ & 0.15088280E+00_JPRB,-0.29121898E-01_JPRB, 0.00000000E+00_JPRB/)  
+PDGB(11, 6,:) = (/&
+ & 0.15088280E+00_JPRB, 0.54318237E+00_JPRB, 0.10000000E+01_JPRB/)  
+
+!- WATER VAPOR - WINGS OF VIBRATION-ROTATION BAND - 1250-1450+1880-2820 -
+
+!----- INTERVAL = 6 ----- T =    187.50
+
+PDGA( 1,11,:) = (/&
+ & 0.59891051E+00_JPRB, 0.12874948E-01_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 1,11,:) = (/&
+ & 0.59891051E+00_JPRB, 0.15230591E+01_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 1,12,:) = (/&
+ & 0.55131795E+00_JPRB, 0.32252772E-01_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 1,12,:) = (/&
+ & 0.55131795E+00_JPRB, 0.14332603E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 6 ----- T =    200.00
+
+PDGA( 2,11,:) = (/&
+ & 0.59891051E+00_JPRB, 0.12874948E-01_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 2,11,:) = (/&
+ & 0.59891051E+00_JPRB, 0.15230591E+01_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 2,12,:) = (/&
+ & 0.55131795E+00_JPRB, 0.32252772E-01_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 2,12,:) = (/&
+ & 0.55131795E+00_JPRB, 0.14332603E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 6 ----- T =    212.50
+
+PDGA( 3,11,:) = (/&
+ & 0.59891051E+00_JPRB, 0.12874948E-01_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 3,11,:) = (/&
+ & 0.59891051E+00_JPRB, 0.15230591E+01_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 3,12,:) = (/&
+ & 0.44063067E+00_JPRB, 0.91024989E-01_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 3,12,:) = (/&
+ & 0.44063067E+00_JPRB, 0.12039660E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 6 ----- T =    225.00
+
+PDGA( 4,11,:) = (/&
+ & 0.51061614E+00_JPRB, 0.59883548E-01_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 4,11,:) = (/&
+ & 0.51061614E+00_JPRB, 0.13461757E+01_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 4,12,:) = (/&
+ & 0.30439727E+00_JPRB, 0.15980470E+00_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 4,12,:) = (/&
+ & 0.30439727E+00_JPRB, 0.91241774E+00_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 6 ----- T =    237.50
+
+PDGA( 5,11,:) = (/&
+ & 0.40673842E+00_JPRB, 0.11398935E+00_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 5,11,:) = (/&
+ & 0.40673842E+00_JPRB, 0.11289965E+01_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 5,12,:) = (/&
+ & 0.15005620E+00_JPRB, 0.23446409E+00_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 5,12,:) = (/&
+ & 0.15005620E+00_JPRB, 0.58547602E+00_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 6 ----- T =    250.00
+
+PDGA( 6,11,:) = (/&
+ & 0.28375203E+00_JPRB, 0.17444874E+00_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 6,11,:) = (/&
+ & 0.28375203E+00_JPRB, 0.86693115E+00_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 6,12,:) = (/&
+ & 0.51658133E-01_JPRB, 0.29464628E+00_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 6,12,:) = (/&
+ & 0.51658133E-01_JPRB, 0.40170363E+00_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 6 ----- T =    262.50
+
+PDGA( 7,11,:) = (/&
+ & 0.15136005E+00_JPRB, 0.23761536E+00_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 7,11,:) = (/&
+ & 0.15136005E+00_JPRB, 0.58911683E+00_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 7,12,:) = (/&
+ & 0.18932679E-01_JPRB, 0.33516250E+00_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 7,12,:) = (/&
+ & 0.18932679E-01_JPRB, 0.36796152E+00_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 6 ----- T =    275.00
+
+PDGA( 8,11,:) = (/&
+ & 0.61752765E-01_JPRB, 0.28965454E+00_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 8,11,:) = (/&
+ & 0.61752765E-01_JPRB, 0.41975793E+00_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 8,12,:) = (/&
+ & 0.79619427E-02_JPRB, 0.36873141E+00_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 8,12,:) = (/&
+ & 0.79619427E-02_JPRB, 0.37964009E+00_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 6 ----- T =    287.50
+
+PDGA( 9,11,:) = (/&
+ & 0.26192233E-01_JPRB, 0.32568668E+00_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 9,11,:) = (/&
+ & 0.26192233E-01_JPRB, 0.37385106E+00_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 9,12,:) = (/&
+ & 0.40764469E-02_JPRB, 0.40137572E+00_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 9,12,:) = (/&
+ & 0.40764469E-02_JPRB, 0.40608889E+00_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 6 ----- T =    300.00
+
+PDGA(10,11,:) = (/&
+ & 0.12168738E-01_JPRB, 0.35455148E+00_JPRB, 0.00000000E+00_JPRB/)  
+PDGB(10,11,:) = (/&
+ & 0.12168738E-01_JPRB, 0.37329084E+00_JPRB, 0.10000000E+01_JPRB/)  
+PDGA(10,12,:) = (/&
+ & 0.23914061E-02_JPRB, 0.43615987E+00_JPRB, 0.00000000E+00_JPRB/)  
+PDGB(10,12,:) = (/&
+ & 0.23914061E-02_JPRB, 0.43919208E+00_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 6 ----- T =    312.50
+
+PDGA(11,11,:) = (/&
+ & 0.64195381E-02_JPRB, 0.38088067E+00_JPRB, 0.00000000E+00_JPRB/)  
+PDGB(11,11,:) = (/&
+ & 0.64195381E-02_JPRB, 0.38906156E+00_JPRB, 0.10000000E+01_JPRB/)  
+PDGA(11,12,:) = (/&
+ & 0.23914061E-02_JPRB, 0.43615987E+00_JPRB, 0.00000000E+00_JPRB/)  
+PDGB(11,12,:) = (/&
+ & 0.23914061E-02_JPRB, 0.43919208E+00_JPRB, 0.10000000E+01_JPRB/)  
+
+!=======================================================================
+
+!-- CARBON DIOXIDE       
+!   ==============
+
+!-- CO2 -- INT.2 -- 500-800 CM-1 --- FROM ABS225 ------------
+
+!-- FIU = 0.8 + DMAX1(0.35,(7-IU)*0.9)  , X/T,  9
+
+!----- INTERVAL = 2 ----- T =  187.5
+
+!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
+PDGA( 1,13,:) = (/&
+ & 0.87668459E-01_JPRB, 0.13845511E+01_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 1,13,:) = (/&
+ & 0.87668459E-01_JPRB, 0.23203798E+01_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 1,14,:) = (/&
+ & 0.74878820E-01_JPRB, 0.11718758E+01_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 1,14,:) = (/&
+ & 0.74878820E-01_JPRB, 0.20206726E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 2 ----- T =  200.0
+
+!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
+PDGA( 2,13,:) = (/&
+ & 0.83754276E-01_JPRB, 0.13187042E+01_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 2,13,:) = (/&
+ & 0.83754276E-01_JPRB, 0.22288925E+01_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 2,14,:) = (/&
+ & 0.71650966E-01_JPRB, 0.11216131E+01_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 2,14,:) = (/&
+ & 0.71650966E-01_JPRB, 0.19441824E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 2 ----- T =  212.5
+
+!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
+PDGA( 3,13,:) = (/&
+ & 0.80460283E-01_JPRB, 0.12644396E+01_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 3,13,:) = (/&
+ & 0.80460283E-01_JPRB, 0.21515593E+01_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 3,14,:) = (/&
+ & 0.68979615E-01_JPRB, 0.10809473E+01_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 3,14,:) = (/&
+ & 0.68979615E-01_JPRB, 0.18807257E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 2 ----- T =  225.0
+
+!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
+PDGA( 4,13,:) = (/&
+ & 0.77659686E-01_JPRB, 0.12191543E+01_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 4,13,:) = (/&
+ & 0.77659686E-01_JPRB, 0.20855896E+01_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 4,14,:) = (/&
+ & 0.66745345E-01_JPRB, 0.10476396E+01_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 4,14,:) = (/&
+ & 0.66745345E-01_JPRB, 0.18275618E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 2 ----- T =  237.5
+
+!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
+PDGA( 5,13,:) = (/&
+ & 0.75257056E-01_JPRB, 0.11809511E+01_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 5,13,:) = (/&
+ & 0.75257056E-01_JPRB, 0.20288489E+01_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 5,14,:) = (/&
+ & 0.64857571E-01_JPRB, 0.10200373E+01_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 5,14,:) = (/&
+ & 0.64857571E-01_JPRB, 0.17825910E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 2 ----- T =  250.0
+
+!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
+PDGA( 6,13,:) = (/&
+ & 0.73179175E-01_JPRB, 0.11484154E+01_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 6,13,:) = (/&
+ & 0.73179175E-01_JPRB, 0.19796791E+01_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 6,14,:) = (/&
+ & 0.63248495E-01_JPRB, 0.99692726E+00_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 6,14,:) = (/&
+ & 0.63248495E-01_JPRB, 0.17442308E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 2 ----- T =  262.5
+
+!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
+PDGA( 7,13,:) = (/&
+ & 0.71369063E-01_JPRB, 0.11204723E+01_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 7,13,:) = (/&
+ & 0.71369063E-01_JPRB, 0.19367778E+01_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 7,14,:) = (/&
+ & 0.61866970E-01_JPRB, 0.97740923E+00_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 7,14,:) = (/&
+ & 0.61866970E-01_JPRB, 0.17112809E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 2 ----- T =  275.0
+
+!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
+PDGA( 8,13,:) = (/&
+ & 0.69781812E-01_JPRB, 0.10962918E+01_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 8,13,:) = (/&
+ & 0.69781812E-01_JPRB, 0.18991112E+01_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 8,14,:) = (/&
+ & 0.60673632E-01_JPRB, 0.96080188E+00_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 8,14,:) = (/&
+ & 0.60673632E-01_JPRB, 0.16828137E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 2 ----- T =  287.5
+
+!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
+PDGA( 9,13,:) = (/&
+ & 0.68381606E-01_JPRB, 0.10752229E+01_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 9,13,:) = (/&
+ & 0.68381606E-01_JPRB, 0.18658501E+01_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 9,14,:) = (/&
+ & 0.59637277E-01_JPRB, 0.94657562E+00_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 9,14,:) = (/&
+ & 0.59637277E-01_JPRB, 0.16580908E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 2 ----- T =  300.0
+
+!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
+PDGA(10,13,:) = (/&
+ & 0.67139539E-01_JPRB, 0.10567474E+01_JPRB, 0.00000000E+00_JPRB/)  
+PDGB(10,13,:) = (/&
+ & 0.67139539E-01_JPRB, 0.18363226E+01_JPRB, 0.10000000E+01_JPRB/)  
+PDGA(10,14,:) = (/&
+ & 0.58732178E-01_JPRB, 0.93430511E+00_JPRB, 0.00000000E+00_JPRB/)  
+PDGB(10,14,:) = (/&
+ & 0.58732178E-01_JPRB, 0.16365014E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 2 ----- T =  312.5
+
+!-- INDICES FOR PADE APPROXIMATION   1 30 38 45
+PDGA(11,13,:) = (/&
+ & 0.66032012E-01_JPRB, 0.10404465E+01_JPRB, 0.00000000E+00_JPRB/)  
+PDGB(11,13,:) = (/&
+ & 0.66032012E-01_JPRB, 0.18099779E+01_JPRB, 0.10000000E+01_JPRB/)  
+PDGA(11,14,:) = (/&
+ & 0.57936092E-01_JPRB, 0.92363528E+00_JPRB, 0.00000000E+00_JPRB/)  
+PDGB(11,14,:) = (/&
+ & 0.57936092E-01_JPRB, 0.16175164E+01_JPRB, 0.10000000E+01_JPRB/)  
+
+!-- CARBON DIOXIDE LINES IN THE WINDOW REGION (800-1250 CM-1)
+
+!----- INTERVAL = 4 ----- T =  187.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+PDGA( 1,15,:) = (/&
+ & 0.13230067E+02_JPRB, 0.22042132E+02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 1,15,:) = (/&
+ & 0.13230067E+02_JPRB, 0.22051750E+02_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 1,16,:) = (/&
+ & 0.13183816E+02_JPRB, 0.22169501E+02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 1,16,:) = (/&
+ & 0.13183816E+02_JPRB, 0.22178972E+02_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 4 ----- T =  200.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+PDGA( 2,15,:) = (/&
+ & 0.13213564E+02_JPRB, 0.22107298E+02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 2,15,:) = (/&
+ & 0.13213564E+02_JPRB, 0.22116850E+02_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 2,16,:) = (/&
+ & 0.13189991E+02_JPRB, 0.22270075E+02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 2,16,:) = (/&
+ & 0.13189991E+02_JPRB, 0.22279484E+02_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 4 ----- T =  212.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+PDGA( 3,15,:) = (/&
+ & 0.13209140E+02_JPRB, 0.22180915E+02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 3,15,:) = (/&
+ & 0.13209140E+02_JPRB, 0.22190410E+02_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 3,16,:) = (/&
+ & 0.13209485E+02_JPRB, 0.22379193E+02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 3,16,:) = (/&
+ & 0.13209485E+02_JPRB, 0.22388551E+02_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 4 ----- T =  225.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+PDGA( 4,15,:) = (/&
+ & 0.13213894E+02_JPRB, 0.22259478E+02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 4,15,:) = (/&
+ & 0.13213894E+02_JPRB, 0.22268925E+02_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 4,16,:) = (/&
+ & 0.13238789E+02_JPRB, 0.22492992E+02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 4,16,:) = (/&
+ & 0.13238789E+02_JPRB, 0.22502309E+02_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 4 ----- T =  237.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+PDGA( 5,15,:) = (/&
+ & 0.13225963E+02_JPRB, 0.22341039E+02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 5,15,:) = (/&
+ & 0.13225963E+02_JPRB, 0.22350445E+02_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 5,16,:) = (/&
+ & 0.13275017E+02_JPRB, 0.22608508E+02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 5,16,:) = (/&
+ & 0.13275017E+02_JPRB, 0.22617792E+02_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 4 ----- T =  250.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+PDGA( 6,15,:) = (/&
+ & 0.13243806E+02_JPRB, 0.22424247E+02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 6,15,:) = (/&
+ & 0.13243806E+02_JPRB, 0.22433617E+02_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 6,16,:) = (/&
+ & 0.13316096E+02_JPRB, 0.22723843E+02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 6,16,:) = (/&
+ & 0.13316096E+02_JPRB, 0.22733099E+02_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 4 ----- T =  262.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+PDGA( 7,15,:) = (/&
+ & 0.13266104E+02_JPRB, 0.22508089E+02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 7,15,:) = (/&
+ & 0.13266104E+02_JPRB, 0.22517429E+02_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 7,16,:) = (/&
+ & 0.13360555E+02_JPRB, 0.22837837E+02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 7,16,:) = (/&
+ & 0.13360555E+02_JPRB, 0.22847071E+02_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 4 ----- T =  275.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+PDGA( 8,15,:) = (/&
+ & 0.13291782E+02_JPRB, 0.22591771E+02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 8,15,:) = (/&
+ & 0.13291782E+02_JPRB, 0.22601086E+02_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 8,16,:) = (/&
+ & 0.13407324E+02_JPRB, 0.22949751E+02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 8,16,:) = (/&
+ & 0.13407324E+02_JPRB, 0.22958967E+02_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 4 ----- T =  287.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+PDGA( 9,15,:) = (/&
+ & 0.13319961E+02_JPRB, 0.22674661E+02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 9,15,:) = (/&
+ & 0.13319961E+02_JPRB, 0.22683956E+02_JPRB, 0.10000000E+01_JPRB/)  
+PDGA( 9,16,:) = (/&
+ & 0.13455544E+02_JPRB, 0.23059032E+02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB( 9,16,:) = (/&
+ & 0.13455544E+02_JPRB, 0.23068234E+02_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 4 ----- T =  300.0
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+PDGA(10,15,:) = (/&
+ & 0.13349927E+02_JPRB, 0.22756246E+02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB(10,15,:) = (/&
+ & 0.13349927E+02_JPRB, 0.22765522E+02_JPRB, 0.10000000E+01_JPRB/)  
+PDGA(10,16,:) = (/&
+ & 0.13504450E+02_JPRB, 0.23165146E+02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB(10,16,:) = (/&
+ & 0.13504450E+02_JPRB, 0.23174336E+02_JPRB, 0.10000000E+01_JPRB/)  
+
+!----- INTERVAL = 4 ----- T =  312.5
+
+!-- INDICES FOR PADE APPROXIMATION     1   15   29   45
+PDGA(11,15,:) = (/&
+ & 0.13381108E+02_JPRB, 0.22836093E+02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB(11,15,:) = (/&
+ & 0.13381108E+02_JPRB, 0.22845354E+02_JPRB, 0.10000000E+01_JPRB/)  
+PDGA(11,16,:) = (/&
+ & 0.13553282E+02_JPRB, 0.23267456E+02_JPRB, 0.00000000E+00_JPRB/)  
+PDGB(11,16,:) = (/&
+ & 0.13553282E+02_JPRB, 0.23276638E+02_JPRB, 0.10000000E+01_JPRB/)  
+
+!     ------------------------------------------------------------------
+
+!-----  (CONTINUUM ABSORPTION)
+
+!-----  (CONTINUUM ABSORPTION: e-type COMPONENT)
+
+RETYPE(1:4)= (/  12._JPRB,   5.5_JPRB,   4.25_JPRB,  45._JPRB /)
+
+!-----  (CONTINUUM ABSORPTION: p-type COMPONENT)
+
+RPTYPE(1:4)= (/ 0.22_JPRB, 0.012_JPRB, 0.0071_JPRB, 3.96_JPRB /)
+
+!     ------------------------------------------------------------------
+
+!-- COEFFICIENTS OF THE POLYNOMIALS GIVING THE TEMPERATURE DEPENDENCE OF
+!     THE ABSORPTION
+
+!--------H2O
+
+!    revised in Zhong 961108
+ALWT(1,:)= (/&
+ & 2.34995778846E-03_JPRB, -2.76713384294E-04_JPRB,  1.16480338097E-06_JPRB/)  
+BLWT(1,:)= (/&
+ & -1.58165952771E-05_JPRB, -2.39167473702E-05_JPRB,  1.80148335147E-07_JPRB/)  
+ALWT(2,:)= (/&
+ & 2.52595953359E-02_JPRB, -6.72079319635E-04_JPRB,  5.74103783815E-06_JPRB/)  
+BLWT(2,:)= (/&
+ & -8.26196996910E-05_JPRB, -1.05514645370E-05_JPRB,  7.02984234993E-08_JPRB/)  
+ALWT(3,:)= (/&
+ & 3.55525229363E-02_JPRB, -7.94992134865E-04_JPRB,  6.64848193374E-06_JPRB/)  
+BLWT(3,:)= (/&
+ & -9.71124908025E-05_JPRB, -2.95218285256E-06_JPRB,  2.23374952695E-08_JPRB/)  
+ALWT(4,:)= (/&
+ & 5.47044522259E-02_JPRB, -1.19105877667E-03_JPRB,  9.74676865100E-06_JPRB/)  
+BLWT(4,:)= (/&
+ & -2.10153035427E-04_JPRB, -6.93815560155E-06_JPRB,  5.50381928956E-08_JPRB/)  
+ALWT(5,:)= (/&
+ & 1.88063066950E-02_JPRB, -1.11250846983E-04_JPRB,  1.66977895508E-06_JPRB/)  
+BLWT(5,:)= (/&
+ & -5.72683436311E-05_JPRB, -2.48448308453E-05_JPRB,  1.88450887138E-07_JPRB/)  
+ALWT(6,:)= (/&
+ & 1.29526952131E-02_JPRB, -3.81424455035E-04_JPRB,  3.07118138204E-06_JPRB/)  
+BLWT(6,:)= (/&
+ & -4.20789327775E-05_JPRB, -1.25055291318E-05_JPRB,  8.58839668934E-08_JPRB/)  
+
+!-------CO2
+
+ALWT(7,:)= (/0.250073E-03_JPRB,0.455875E-03_JPRB,0.109242E-03_JPRB /)
+BLWT(7,:)= (/0.199846E-05_JPRB,-.216313E-05_JPRB,0.175991E-06_JPRB /)
+ALWT(8,:)= (/0.307423E-01_JPRB,0.110879E-02_JPRB,-.322172E-03_JPRB /)
+BLWT(8,:)= (/-0.108482E-03_JPRB,0.258096E-05_JPRB,-.814575E-06_JPRB /)
+
+!     ------------------------------------------------------------------ 
+
+!*       2.    SET VALUES.
+!              -----------
+
+!-number of spectral intervals
+NSIL  = 6
+!-number of intervals with Pade approximants transmission functions
+NIPD  = 8
+NIPD2 = 2*NIPD
+!-number of reference temperatures      
+NTR   = 11
+!-number of absorber amounts
+NUA   = 24
+!-number of transmission functions      
+NTRA  = 15
+!-number of Gauss angles      
+NG1   = 2
+NG1P1 = NG1+1
+
+!-- REFERENCE TEMPERATURES FOR THE PLANCK FUNCTIONS ----- TSTAND
+!          TEMPERATURE DEPENDENCE OF THE ABSORPTION ----- TREF
+TSTAND = 250.0_JPRB
+TREF   = 250.0_JPRB
+
+!-- ROOTS AND WEIGHTS FOR THE 2-POINT GAUSSIAN QUADRATURE
+RT1 = (/ -0.577350269_JPRB, +0.577350269_JPRB /)
+WG1 = (/  1.0_JPRB        ,  1.0_JPRB         /)
+
+!-- TEMPERATURE STEP AND MAXIMUM INDEX FOR THE TRANSMISSIVITIES
+TSTP  = 12.5_JPRB
+MXIXT = 10
+
+!--  COEFFICIENTS FOR OZONE ABSORPTION
+
+RO1H = 2230._JPRB
+RO2H =  100._JPRB
+RPIALF0 = 2._JPRB
+RO3T(1) = -.326E-03_JPRB
+RO3T(2) = -.102E-05_JPRB
+RO3T(3) = 0.137E-02_JPRB
+RO3T(4) = -.535E-05_JPRB
+
+!--  COEFFICIENTS FOR THE PSEUDO-VOIGT LINE PROFILE (PA)
+
+RVGCO2= 60._JPRB
+RVGH2O= 30._JPRB
+RVGO3 =400._JPRB
+
+!     ------------------------------------------------------------------ 
+
+IF (LHOOK) CALL DR_HOOK('SULWN',1,ZHOOK_HANDLE)
+END SUBROUTINE SULWN
Index: LMDZ5/trunk/libf/phylmd/rrtm/sulwn.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/sulwn.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/sulwn.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SULWN
+END SUBROUTINE SULWN
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/sulwneur.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/sulwneur.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/sulwneur.intfb.h	(revision 1989)
@@ -0,0 +1,6 @@
+INTERFACE
+SUBROUTINE SULWNEUR(KLEV)
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+END SUBROUTINE SULWNEUR
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/sumethox.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/sumethox.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/sumethox.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SUMETHOX
+END SUBROUTINE SUMETHOX
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/sump_trans_mod.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/sump_trans_mod.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/sump_trans_mod.F90	(revision 1989)
@@ -0,0 +1,236 @@
+MODULE SUMP_TRANS_MOD
+CONTAINS
+SUBROUTINE SUMP_TRANS
+
+! Set up distributed environment for the transform package (part 2)
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+USE TPM_GEN
+USE TPM_DIM
+USE TPM_GEOMETRY
+USE TPM_DISTR
+
+USE SUWAVEDI_MOD
+USE PE2SET_MOD
+USE SUMPLATF_MOD
+USE SUMPLAT_MOD
+USE SUSTAONL_MOD
+USE MYSENDSET_MOD
+USE MYRECVSET_MOD
+USE EQ_REGIONS_MOD
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM) :: JM,JMLOC
+INTEGER(KIND=JPIM) :: JGL,IGL,IPLAT,ISENDSET,IRECVSET,JML,IPOS,IM
+INTEGER(KIND=JPIM) :: I1,I2,I3,IAUX0,IAUX1,JA1
+INTEGER(KIND=JPIM) :: IGPTOT,IMEDIAP,IRESTM,JA,JB,IOFF
+INTEGER(KIND=JPIM),ALLOCATABLE :: IGPTOTL(:,:)
+
+LOGICAL    :: LLP1,LLP2
+
+!     ------------------------------------------------------------------
+
+
+LLP1 = NPRINTLEV>0
+LLP2 = NPRINTLEV>1
+IF(LLP1) WRITE(NOUT,*) '=== ENTER ROUTINE SUMP_TRANS ==='
+
+ALLOCATE(D%NULTPP(NPRTRNS))
+IF(LLP2)WRITE(NOUT,9) 'D%NULTPP   ',SIZE(D%NULTPP   ),SHAPE(D%NULTPP   )
+ALLOCATE(D%NPTRLS(NPRTRNS))
+IF(LLP2)WRITE(NOUT,9) 'D%NPTRLS   ',SIZE(D%NPTRLS   ),SHAPE(D%NPTRLS   )
+ALLOCATE(D%NPROCL(R%NDGL))
+IF(LLP2)WRITE(NOUT,9) 'D%NPROCL   ',SIZE(D%NPROCL   ),SHAPE(D%NPROCL   )
+
+CALL SUMPLATF(R%NDGL,NPRTRNS,MYSETW,D%NULTPP,D%NPROCL,D%NPTRLS)
+D%NDGL_FS = D%NULTPP(MYSETW)
+
+! Help arrays for spectral to fourier space transposition
+ALLOCATE(D%NLTSGTB (NPRTRNS+1))
+IF(LLP2)WRITE(NOUT,9) 'D%NLTSGTB ',SIZE(D%NLTSGTB),SHAPE(D%NLTSGTB)
+ALLOCATE(D%NLTSFTB (NPRTRNS+1))
+IF(LLP2)WRITE(NOUT,9) 'D%NLTSFTB ',SIZE(D%NLTSFTB),SHAPE(D%NLTSFTB)
+ALLOCATE(D%NSTAGT0B(NPRTRNS+1))
+IF(LLP2)WRITE(NOUT,9) 'D%NSTAGT0B ',SIZE(D%NSTAGT0B),SHAPE(D%NSTAGT0B)
+ALLOCATE(D%NSTAGT1B(NPRTRNS+1))
+IF(LLP2)WRITE(NOUT,9) 'D%NSTAGT1B ',SIZE(D%NSTAGT1B),SHAPE(D%NSTAGT1B)
+ALLOCATE(D%MSTABF  (NPRTRNS+1))
+IF(LLP2)WRITE(NOUT,9) 'D%MSTABF ',SIZE(D%MSTABF),SHAPE(D%MSTABF)
+
+D%NLTSGTB(:) = 0
+DO JGL=1,D%NDGL_FS
+  IGL = D%NPTRLS(MYSETW)+JGL-1
+  DO JM=0,G%NMEN(IGL)
+    D%NLTSGTB(D%NPROCM(JM)) = D%NLTSGTB(D%NPROCM(JM))+1
+  ENDDO
+ENDDO
+DO JA=1,NPRTRW
+  IPLAT = 0
+  DO JGL=1,D%NULTPP(JA)
+    IGL = D%NPTRLS(JA)+JGL-1
+    DO JM=1,D%NUMP
+      IF(IGL > R%NDGNH-G%NDGLU(D%MYMS(JM)) .AND. IGL <= R%NDGNH+G%NDGLU(D%MYMS(JM))) THEN
+        IPLAT = IPLAT + 1
+      ENDIF
+    ENDDO
+  ENDDO
+  D%NLTSFTB(JA) = IPLAT
+ENDDO
+
+DO JA=1,NPRTRW-1
+  ISENDSET = MYSENDSET(NPRTRW,MYSETW,JA)
+  IRECVSET = MYRECVSET(NPRTRW,MYSETW,JA)
+  D%MSTABF(IRECVSET) = ISENDSET
+ENDDO
+D%MSTABF(MYSETW) = MYSETW
+
+ALLOCATE(D%NPNTGTB0(0:R%NSMAX,D%NDGL_FS))
+IF(LLP2)WRITE(NOUT,9) 'D%NPNTGTB0 ',SIZE(D%NPNTGTB0 ),SHAPE(D%NPNTGTB0 )
+ALLOCATE(D%NPNTGTB1(D%NUMP,R%NDGL))
+IF(LLP2)WRITE(NOUT,9) 'D%NPNTGTB1 ',SIZE(D%NPNTGTB1 ),SHAPE(D%NPNTGTB1 )
+
+DO JA=1,NPRTRW
+  IPOS = 0
+  DO JGL=1,D%NULTPP(MYSETW)
+    IGL = D%NPTRLS(MYSETW) + JGL - 1
+    DO JML=D%NPTRMS(JA),D%NPTRMS(JA)+D%NUMPP(JA)-1
+      IM = D%NALLMS(JML)
+      IF (IM  <=  G%NMEN(IGL)) THEN
+        D%NPNTGTB0(IM,JGL) = IPOS
+        IPOS = IPOS+1
+      ELSE
+        D%NPNTGTB0(IM,JGL) = -99
+      ENDIF
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JA=1,NPRTRW
+  IPOS = 0
+  DO JGL=1,D%NULTPP(JA)
+    IGL = D%NPTRLS(JA) + JGL - 1
+    DO JM=1,D%NUMP
+      IM = D%MYMS(JM)
+      IF (IM  <=  G%NMEN(IGL)) THEN
+        D%NPNTGTB1(JM,IGL) = IPOS
+        IPOS = IPOS+1
+      ELSE
+        D%NPNTGTB1(JM,IGL) = -99
+      ENDIF
+    ENDDO
+  ENDDO
+ENDDO
+
+IAUX0 = 0
+IAUX1 = 0
+DO JA=1,NPRTRNS-1
+  I1 = MYSENDSET(NPRTRNS,MYSETW,JA)
+  I2 = MYRECVSET(NPRTRNS,MYSETW,JA)
+  DO JA1=1,NPRTRNS-1
+    IF(MYSENDSET(NPRTRNS,MYSETW,JA1) == I2) I3 =MYRECVSET(NPRTRNS,MYSETW,JA1)
+  ENDDO
+  IAUX0 = MAX(D%NLTSFTB(I1),D%NLTSGTB(I2),IAUX0)
+  IAUX1 = MAX(D%NLTSGTB(I2),D%NLTSFTB(I3),IAUX1)
+ENDDO
+IAUX0 = MAX(D%NLTSGTB(MYSETW),IAUX0)
+IAUX1 = MAX(D%NLTSGTB(MYSETW),IAUX1)
+DO JA=1,NPRTRNS+1
+  D%NSTAGT0B(JA) = (JA-1)*IAUX0
+  D%NSTAGT1B(JA) = (JA-1)*IAUX1
+ENDDO
+D%NLENGT0B = IAUX0*NPRTRNS
+D%NLENGT1B = IAUX1*NPRTRNS
+
+! GRIDPOINT SPACE
+
+ALLOCATE(D%NFRSTLAT(N_REGIONS_NS))
+IF(LLP2)WRITE(NOUT,9) 'D%NFRSTLAT ',SIZE(D%NFRSTLAT ),SHAPE(D%NFRSTLAT )
+ALLOCATE(D%NLSTLAT(N_REGIONS_NS))
+IF(LLP2)WRITE(NOUT,9) 'D%NLSTLAT  ',SIZE(D%NLSTLAT  ),SHAPE(D%NLSTLAT  )
+ALLOCATE(D%NPTRLAT(R%NDGL))
+IF(LLP2)WRITE(NOUT,9) 'D%NPTRLAT  ',SIZE(D%NPTRLAT  ),SHAPE(D%NPTRLAT  )
+ALLOCATE(D%NPTRFRSTLAT(N_REGIONS_NS))
+IF(LLP2)WRITE(NOUT,9) 'D%NPTRFRSTLAT',SIZE(D%NPTRFRSTLAT),SHAPE(D%NPTRFRSTLAT)
+ALLOCATE(D%NPTRLSTLAT(N_REGIONS_NS))
+IF(LLP2)WRITE(NOUT,9)'D%NPTRLSTLAT',SIZE(D%NPTRLSTLAT),SHAPE(D%NPTRLSTLAT)
+ALLOCATE(D%LSPLITLAT(R%NDGL))
+IF(LLP2)WRITE(NOUT,9) 'D%LSPLITLAT',SIZE(D%LSPLITLAT),SHAPE(D%LSPLITLAT)
+
+
+CALL SUMPLAT(R%NDGL,NPROC,N_REGIONS_NS,MY_REGION_NS,D%LSPLIT,LEQ_REGIONS,&
+             &D%NFRSTLAT,D%NLSTLAT,D%NFRSTLOFF,D%NPTRLAT,&
+             &D%NPTRFRSTLAT,D%NPTRLSTLAT,D%NPTRFLOFF,&
+             &IMEDIAP,IRESTM,D%LSPLITLAT)
+
+D%NDGL_GP = D%NLSTLAT(MY_REGION_NS)-D%NFRSTLOFF
+
+IF (LLP1) THEN
+  WRITE(NOUT,FMT='(/'' OUTPUT FROM ROUTINE SUMPLAT: ''/)')
+  WRITE(NOUT,FMT='('' D%NULTPP '')')
+  WRITE(NOUT,FMT='(20(1X,I4))') D%NULTPP(1:NPRTRNS)
+  WRITE(NOUT,FMT='('' D%NPROCL '')')
+  WRITE(NOUT,FMT='(20(1X,I4))') D%NPROCL(1:R%NDGL)
+  WRITE(NOUT,FMT='('' D%NFRSTLAT '')')
+  WRITE(NOUT,FMT='(20(1X,I4))') D%NFRSTLAT(1:N_REGIONS_NS)
+  WRITE(NOUT,FMT='('' D%NLSTLAT '')')
+  WRITE(NOUT,FMT='(20(1X,I4))') D%NLSTLAT(1:N_REGIONS_NS)
+  WRITE(NOUT,FMT='('' D%NFRSTLOFF  D%NPTRFLOFF '')')
+  WRITE(NOUT,FMT='(2(1X,I6))') D%NFRSTLOFF, D%NPTRFLOFF
+  WRITE(NOUT,FMT='('' D%NPTRLAT '')')
+  WRITE(NOUT,FMT='(20(1X,I4))') D%NPTRLAT(1:R%NDGL)
+  WRITE(NOUT,FMT='('' D%LSPLITLAT '')')
+  WRITE(NOUT,FMT='(50(1X,L1))') D%LSPLITLAT(1:R%NDGL)
+  WRITE(NOUT,FMT='('' D%NPTRFRSTLAT '')')
+  WRITE(NOUT,FMT='(20(1X,I4))') D%NPTRFRSTLAT(1:N_REGIONS_NS)
+  WRITE(NOUT,FMT='('' D%NPTRLSTLAT '')')
+  WRITE(NOUT,FMT='(20(1X,I4))') D%NPTRLSTLAT(1:N_REGIONS_NS)
+  WRITE(NOUT,FMT='(/)')
+ENDIF
+ALLOCATE(D%NSTA(R%NDGL+N_REGIONS_NS-1,N_REGIONS_EW))
+IF(LLP2)WRITE(NOUT,9) 'D%NSTA     ',SIZE(D%NSTA     ),SHAPE(D%NSTA     )
+ALLOCATE(D%NONL(R%NDGL+N_REGIONS_NS-1,N_REGIONS_EW))
+IF(LLP2)WRITE(NOUT,9) 'D%NONL     ',SIZE(D%NONL     ),SHAPE(D%NONL     )
+
+CALL SUSTAONL(IMEDIAP,IRESTM)
+
+!  IGPTOTL is the number of grid points in each individual processor
+ALLOCATE(IGPTOTL(N_REGIONS_NS,N_REGIONS_EW))
+IGPTOTL(:,:)=0
+
+DO JA=1,N_REGIONS_NS
+  DO JB=1,N_REGIONS(JA)
+    IGPTOT = 0
+    DO JGL=D%NPTRFRSTLAT(JA),D%NPTRLSTLAT(JA)
+      IGPTOT = IGPTOT+D%NONL(JGL,JB)
+    ENDDO
+    IGPTOTL(JA,JB) = IGPTOT
+  ENDDO
+ENDDO
+D%NGPTOT = IGPTOTL(MY_REGION_NS,MY_REGION_EW)
+D%NGPTOTMX = MAXVAL(IGPTOTL)
+D%NGPTOTG = SUM(IGPTOTL)
+ALLOCATE(D%NGPTOTL(N_REGIONS_NS,N_REGIONS_EW))
+IF(LLP2)WRITE(NOUT,9) 'D%NGPTOTL     ',SIZE(D%NGPTOTL ),SHAPE(D%NGPTOTL  )
+D%NGPTOTL(:,:) = IGPTOTL(:,:)
+
+ALLOCATE(D%NSTAGTF(D%NDGL_FS))
+IF(LLP2)WRITE(NOUT,9) 'D%NSTAGTF     ',SIZE(D%NSTAGTF ),SHAPE(D%NSTAGTF  )
+IOFF = 0
+DO JGL=1,D%NDGL_FS
+  D%NSTAGTF(JGL) = IOFF
+  IGL = D%NPTRLS(MYSETW) + JGL - 1
+  IOFF = IOFF + G%NLOEN(IGL)+3
+ENDDO
+D%NLENGTF = IOFF
+
+DEALLOCATE(IGPTOTL)
+
+!     ------------------------------------------------------------------
+9 FORMAT(1X,'ARRAY ',A10,' ALLOCATED ',8I8)
+
+END SUBROUTINE SUMP_TRANS
+END MODULE SUMP_TRANS_MOD
+
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/sump_trans_preleg_mod.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/sump_trans_preleg_mod.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/sump_trans_preleg_mod.F90	(revision 1989)
@@ -0,0 +1,125 @@
+MODULE SUMP_TRANS_PRELEG_MOD
+CONTAINS
+SUBROUTINE SUMP_TRANS_PRELEG
+
+! Set up distributed environment for the transform package (part 1)
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+USE TPM_GEN
+USE TPM_DIM 
+USE TPM_DISTR
+
+USE SUWAVEDI_MOD
+USE ABORT_TRANS_MOD
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM) :: JA,JJ,JM,JMLOC,ILATPP,IRESTL,IMLOC,IDT,INM
+
+INTEGER(KIND=JPIM) :: IMYMS(R%NSMAX+1),INUMTPP(NPRTRW)
+INTEGER(KIND=JPIM) :: IDUMI1,IDUMI2,IDUMI3
+INTEGER(KIND=JPIM) :: IDUM2(0:R%NSMAX), IDUM3(NPRTRW+1), IDUM4(R%NSMAX+1)
+
+LOGICAL :: LLP1,LLP2
+
+!     ------------------------------------------------------------------
+
+LLP1 = NPRINTLEV>0
+LLP2 = NPRINTLEV>1
+IF(LLP1) WRITE(NOUT,*) '=== ENTER ROUTINE SUMP_TRANS_PRELEG ==='
+
+!*       1.    Initialize partitioning of wave numbers to PEs ! 
+!             ----------------------------------------------
+
+ALLOCATE(D%NASM0(0:R%NSMAX))
+IF(LLP2)WRITE(NOUT,9) 'D%NASM0 ',SIZE(D%NASM0   ),SHAPE(D%NASM0   )
+ALLOCATE(D%NATM0(0:R%NTMAX))
+IF(LLP2)WRITE(NOUT,9) 'D%NATM0 ',SIZE(D%NATM0   ),SHAPE(D%NATM0   )
+ALLOCATE(D%NUMPP(NPRTRW))
+IF(LLP2)WRITE(NOUT,9) 'D%NUMPP ',SIZE(D%NUMPP   ),SHAPE(D%NUMPP   )
+ALLOCATE(D%NPOSSP(NPRTRW+1))
+IF(LLP2)WRITE(NOUT,9) 'D%NPOSSP',SIZE(D%NPOSSP  ),SHAPE(D%NPOSSP  )
+ALLOCATE(D%NPROCM(0:R%NSMAX))
+IF(LLP2)WRITE(NOUT,9) 'D%NPROCM',SIZE(D%NPROCM  ),SHAPE(D%NPROCM  )
+ALLOCATE(D%NPTRMS(NPRTRW))
+IF(LLP2)WRITE(NOUT,9) 'D%NPTRMS   ',SIZE(D%NPTRMS   ),SHAPE(D%NPTRMS   )
+ALLOCATE(D%NALLMS(R%NSMAX+1))
+IF(LLP2)WRITE(NOUT,9) 'D%NALLMS   ',SIZE(D%NALLMS   ),SHAPE(D%NALLMS   )
+ALLOCATE(D%NDIM0G(0:R%NSMAX))
+IF(LLP2)WRITE(NOUT,9) 'D%NDIM0G   ',SIZE(D%NDIM0G   ),SHAPE(D%NDIM0G   )
+
+CALL SUWAVEDI(R%NSMAX,R%NTMAX,NPRTRW,MYSETW,&
+    &D%NASM0,D%NSPOLEGL,D%NPROCM,D%NUMPP,&
+    &D%NSPEC,D%NSPEC2,D%NSPEC2MX,D%NPOSSP,IMYMS,&
+    &D%NPTRMS,D%NALLMS,D%NDIM0G)
+CALL SUWAVEDI(R%NTMAX,R%NTMAX,NPRTRW,MYSETW,&
+    &KASM0=D%NATM0,KUMPP=INUMTPP,KSPEC2=D%NTPEC2)
+
+D%NUMP  = D%NUMPP (MYSETW)
+ALLOCATE(D%MYMS(D%NUMP))
+IF(LLP2)WRITE(NOUT,9) 'D%MYMS    ',SIZE(D%MYMS   ),SHAPE(D%MYMS   )
+D%MYMS(:) = IMYMS(1:D%NUMP)
+D%NUMTP = INUMTPP(MYSETW)
+
+IF (D%NUMP == 0) THEN
+  WRITE(NERR,'("SUMP: NPRTRW TOO LARGE FOR SPECTRAL RESOLUTION",/,&
+  &"NOTE MAX VALUE FOR Tnnn CASE IS nnn+1",/,&
+  &"MORE PROCESSORS CAN BE USED BY INCREASING NPRTRV")')
+  CALL ABORT_TRANS('NPRTRW TOO LARGE FOR SPECTRAL RESOLUTION')
+ENDIF
+
+ALLOCATE(D%NLATLS(NPRTRW))
+IF(LLP2)WRITE(NOUT,9) 'D%NLATLS',SIZE(D%NLATLS   ),SHAPE(D%NLATLS )
+ALLOCATE(D%NLATLE(NPRTRW))
+IF(LLP2)WRITE(NOUT,9) 'D%NLATLE',SIZE(D%NLATLE   ),SHAPE(D%NLATLE )
+
+D%NLATLS(:) = 9999
+D%NLATLE(:) = -1
+
+ILATPP = R%NDGNH/NPRTRW
+IRESTL  = R%NDGNH-NPRTRW*ILATPP
+DO JA=1,NPRTRW
+  IF (JA > IRESTL) THEN
+    D%NLATLS(JA) = IRESTL*(ILATPP+1)+(JA-IRESTL-1)*ILATPP+1
+    D%NLATLE(JA) = D%NLATLS(JA)+ILATPP-1
+  ELSE
+    D%NLATLS(JA) = (JA-1)*(ILATPP+1)+1
+    D%NLATLE(JA) = D%NLATLS(JA)+ILATPP
+  ENDIF
+ENDDO
+
+IF (LLP1) THEN
+  WRITE(NOUT,'('' D%NLATLS '')')
+  WRITE(NOUT,'(20(1X,I4))')(D%NLATLS(JJ),JJ=1,NPRTRW)
+  WRITE(NOUT,'('' D%NLATLE '')')
+  WRITE(NOUT,'(20(1X,I4))')(D%NLATLE(JJ),JJ=1,NPRTRW)
+ENDIF
+
+ALLOCATE(D%NPMT(0:R%NSMAX))
+IF(LLP2)WRITE(NOUT,9) 'D%NPMT   ',SIZE(D%NPMT   ),SHAPE(D%NPMT   )
+ALLOCATE(D%NPMS(0:R%NSMAX))
+IF(LLP2)WRITE(NOUT,9) 'D%NPMS   ',SIZE(D%NPMS   ),SHAPE(D%NPMS   )
+ALLOCATE(D%NPMG(0:R%NSMAX))
+IF(LLP2)WRITE(NOUT,9) 'D%NPMG   ',SIZE(D%NPMG   ),SHAPE(D%NPMG   )
+IDT = R%NTMAX-R%NSMAX
+INM = 0
+DO JMLOC=1,D%NUMP
+  IMLOC = D%MYMS(JMLOC)
+  D%NPMT(IMLOC) = INM
+  D%NPMS(IMLOC) = INM+IDT
+  INM = INM+R%NTMAX+2-IMLOC
+ENDDO
+INM = 0
+DO JM=0,R%NSMAX
+  D%NPMG(JM) = INM
+  INM = INM+R%NTMAX+2-JM
+ENDDO
+
+D%NLEI3D = (R%NLEI3-1)/NPRTRW+1
+
+!     ------------------------------------------------------------------
+9 FORMAT(1X,'ARRAY ',A10,' ALLOCATED ',8I8)
+
+END SUBROUTINE SUMP_TRANS_PRELEG
+END MODULE SUMP_TRANS_PRELEG_MOD
Index: LMDZ5/trunk/libf/phylmd/rrtm/sumplat_mod.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/sumplat_mod.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/sumplat_mod.F90	(revision 1989)
@@ -0,0 +1,204 @@
+MODULE SUMPLAT_MOD
+CONTAINS
+SUBROUTINE SUMPLAT(KDGL,KPROC,KPROCA,KMYSETA,LDSPLIT,LDEQ_REGIONS,&
+                   &KFRSTLAT,KLSTLAT,KFRSTLOFF,KPTRLAT,&
+                   &KPTRFRSTLAT,KPTRLSTLAT,KPTRFLOFF,&
+                   &KMEDIAP,KRESTM,LDSPLITLAT)
+
+!**** *SUMPLAT * - Initialize gridpoint distrbution in N-S direction
+
+!     Purpose.
+!     --------
+
+
+!**   Interface.
+!     ----------
+!        *CALL* *SUMPLAT *
+
+!     Explicit arguments - input :
+!     -------------------- 
+!                          KDGL       -last  latitude
+!                          KPROC      -total number of processors
+!                          KPROCA     -number of processors in A direction
+!                          KMYSETA    -process number in A direction
+!                          LDSPLIT    -true for latitudes shared between sets
+!                          LDEQ_REGIONS -true if eq_regions partitioning
+
+!     Explicit arguments - output:
+!     -------------------- 
+!                          KMEDIAP    -mean number of grid points per PE
+!                          KRESTM     -number of PEs with one extra point
+!                          KFRSTLAT   -first latitude row on processor
+!                          KLSTLAT    -last  latitude row on processor
+!                          KFRSTLOFF  -offset for first latitude in set
+!                          KPTRLAT    -pointer to start of latitude    
+!                          KPTRFRSTLAT-pointer to first latitude
+!                          KPTRLSTLAT -pointer to last  latitude
+!                          KPTRFLOFF  -offset for pointer to first latitude
+!                          LDSPLITLAT -true for latitudes which are split
+
+!        Implicit arguments :
+!        --------------------
+
+
+!     Method.
+!     -------
+!        See documentation
+
+!     Externals.   SUMPLATB and SUEMPLATB.
+!     ----------
+
+!     Reference.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+
+!     Author.
+!     -------
+!        MPP Group *ECMWF*
+
+!     Modifications.
+!     --------------
+!        Original : 95-10-01
+!        David Dent:97-06-02 parameters KFRSTLAT etc added
+!        JF. Estrade:97-11-13 Adaptation to ALADIN case
+!        J.Boutahar: 98-07-06  phasing with CY19
+!        Modified 98-08-10 by K. YESSAD: removal of LRPOLE option + cleanings
+!         (correct computation of extrapolar latitudes for KPROCL).
+!        Modified 98-12-07 by K. YESSAD and C. FISCHER: cleaning.
+!         - merge old sumplat.F and suemplat.F
+!         - gather 'lelam' code and 'not lelam' code.
+!         - clean (useless duplication of variables, non doctor features).
+!         - remodularise according to lelam/not lelam
+!           -> lelam features in new routine suemplatb.F,
+!              not lelam features in new routine sumplatb.F
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+USE TPM_GEOMETRY
+USE TPM_DISTR
+
+USE SUMPLATB_MOD
+USE SUMPLATBEQ_MOD
+
+IMPLICIT NONE
+
+
+!     * DUMMY:
+INTEGER(KIND=JPIM),INTENT(OUT) :: KMEDIAP
+INTEGER(KIND=JPIM),INTENT(OUT) :: KRESTM
+INTEGER(KIND=JPIM),INTENT(IN)  :: KDGL
+INTEGER(KIND=JPIM),INTENT(IN)  :: KPROC
+INTEGER(KIND=JPIM),INTENT(IN)  :: KPROCA
+INTEGER(KIND=JPIM),INTENT(IN)  :: KMYSETA
+INTEGER(KIND=JPIM),INTENT(OUT) :: KFRSTLAT(:)
+INTEGER(KIND=JPIM),INTENT(OUT) :: KLSTLAT(:)
+INTEGER(KIND=JPIM),INTENT(OUT) :: KFRSTLOFF
+INTEGER(KIND=JPIM),INTENT(OUT) :: KPTRLAT(:)
+INTEGER(KIND=JPIM),INTENT(OUT) :: KPTRFRSTLAT(:)
+INTEGER(KIND=JPIM),INTENT(OUT) :: KPTRLSTLAT(:)
+INTEGER(KIND=JPIM),INTENT(OUT) :: KPTRFLOFF
+LOGICAL,INTENT(IN)  :: LDSPLIT
+LOGICAL,INTENT(IN)  :: LDEQ_REGIONS
+LOGICAL,INTENT(OUT) :: LDSPLITLAT(:)
+
+!     * LOCAL:
+! === END OF INTERFACE BLOCK ===
+INTEGER(KIND=JPIM) :: INDIC(KPROCA),ILAST(KPROCA)
+
+!     LOCAL INTEGER SCALARS
+INTEGER(KIND=JPIM) :: IPTRLATITUDE,  JA, JGL
+
+
+!      -----------------------------------------------------------------
+
+!*       1.    CODE DEPENDING ON 'LELAM': COMPUTATION OF
+!              KMEDIAP, KRESTM, INDIC, ILAST.
+!              -----------------------------------------
+
+
+IF( LDEQ_REGIONS )THEN
+  CALL SUMPLATBEQ(1,KDGL,KPROC,KPROCA,G%NLOEN,LDSPLIT,LDEQ_REGIONS,&
+   &KMEDIAP,KRESTM,INDIC,ILAST)
+ELSE
+  CALL SUMPLATB(1,KDGL,KPROCA,G%NLOEN,LDSPLIT,&
+   &KMEDIAP,KRESTM,INDIC,ILAST)
+ENDIF
+
+!      -----------------------------------------------------------------
+
+!*       2.    CODE NOT DEPENDING ON 'LELAM': COMPUTATION OF
+!              KFRSTLAT TO LDSPLITLAT.
+!              ---------------------------------------------
+
+
+!     * Computation of first and last latitude of processor sets
+!       -----------  in grid-point-space -----------------------
+
+KFRSTLAT(1) = 1
+KLSTLAT(KPROCA) = KDGL
+DO JA=1,KPROCA-1
+!!$  IF(MYPROC==1)THEN
+!!$    WRITE(0,'("SUMPLAT_MOD: JA=",I3," ILAST=",I3," INDIC=",I3)')&
+!!$    &JA,ILAST(JA),INDIC(JA)
+!!$  ENDIF
+  IF ((.NOT. LDSPLIT) .OR. INDIC(JA) == 0) THEN
+    KFRSTLAT(JA+1) = ILAST(JA) + 1
+    KLSTLAT(JA) = ILAST(JA)
+  ELSE
+    KFRSTLAT(JA+1) = INDIC(JA)
+    KLSTLAT(JA) = INDIC(JA)
+  ENDIF
+ENDDO
+KFRSTLOFF=KFRSTLAT(KMYSETA)-1
+
+!     * Initialise following data structures:-
+!       NPTRLAT     (pointer to the start of each latitude)
+!       LSPLITLAT   (TRUE if latitude is split over two A sets)
+!       NPTRFRSTLAT (pointer to the first latitude of each A set)
+!       NPTRLSTLAT  (pointer to the last  latitude of each A set)
+
+DO JGL=1,KDGL
+  KPTRLAT  (JGL)=-999
+  LDSPLITLAT(JGL)=.FALSE.
+ENDDO
+IPTRLATITUDE=0
+DO JA=1,KPROCA
+  DO JGL=KFRSTLAT(JA),KLSTLAT(JA)
+    IPTRLATITUDE=IPTRLATITUDE+1
+    LDSPLITLAT(JGL)=.TRUE.
+    IF( KPTRLAT(JGL) == -999 )THEN
+      KPTRLAT(JGL)=IPTRLATITUDE
+      LDSPLITLAT(JGL)=.FALSE.
+    ENDIF
+  ENDDO
+ENDDO
+DO JA=1,KPROCA
+  IF( LDSPLITLAT(KFRSTLAT(JA)) .AND. JA /= 1)THEN
+    KPTRFRSTLAT(JA)=KPTRLAT(KFRSTLAT(JA))+1
+  ELSE
+    KPTRFRSTLAT(JA)=KPTRLAT(KFRSTLAT(JA))
+  ENDIF
+  IF( LDSPLITLAT(KLSTLAT(JA)) .AND. JA == KPROCA)THEN
+    KPTRLSTLAT(JA)=KPTRLAT(KLSTLAT(JA))+1
+  ELSE
+    KPTRLSTLAT(JA)=KPTRLAT(KLSTLAT(JA))
+  ENDIF
+ENDDO
+KPTRFLOFF=KPTRFRSTLAT(KMYSETA)-1
+!!$IF(MYPROC==1)THEN
+!!$  DO JGL=1,KDGL
+!!$    WRITE(0,'("SUMPLAT_MOD: JGL=",I3," KPTRLAT=",I3," LDSPLITLAT=",L4)')&
+!!$    & JGL,KPTRLAT(JGL),LDSPLITLAT(JGL)
+!!$  ENDDO
+!!$  DO JA=1,KPROCA
+!!$    WRITE(0,'("SUMPLAT_MOD: JA=",I3," KFRSTLAT=",I3," KLSTLAT=",I3,&
+!!$    & " KPTRFRSTLAT=",I3," KPTRLSTLAT=",I3)')&
+!!$    & JA,KFRSTLAT(JA),KLSTLAT(JA),KPTRFRSTLAT(JA),KPTRLSTLAT(JA)
+!!$  ENDDO
+!!$ENDIF
+
+!     ------------------------------------------------------------------
+
+END SUBROUTINE SUMPLAT
+END MODULE SUMPLAT_MOD
Index: LMDZ5/trunk/libf/phylmd/rrtm/sumplatb_mod.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/sumplatb_mod.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/sumplatb_mod.F90	(revision 1989)
@@ -0,0 +1,216 @@
+MODULE SUMPLATB_MOD
+CONTAINS
+SUBROUTINE SUMPLATB(KDGSA,KDGL,KPROCA,KLOENG,LDSPLIT,&
+                    &KMEDIAP,KRESTM,KINDIC,KLAST)
+
+!**** *SUMPLATB * - Routine to initialize parallel environment
+
+!     Purpose.
+!     --------
+
+
+!**   Interface.
+!     ----------
+!        *CALL* *SUMPLATB *
+
+!     Explicit arguments - input :
+!     -------------------- 
+!                          KDGSA      -first latitude (grid-space)
+!                                      (may be different from NDGSAG)
+!                          KDGL       -last  latitude
+!                          KPROCA     -number of processors in A direction
+!                          KLOENG     -actual number of longitudes per latitude.
+!                          LDSPLIT    -true for latitudes shared between sets
+
+!     Explicit arguments - output:
+!     -------------------- 
+!                          KMEDIAP    -mean number of grid points per PE
+!                          KRESTM     -number of PEs with one extra point
+!                          KINDIC     -intermediate quantity for 'sumplat'
+!                          KLAST      -intermediate quantity for 'sumplat'
+
+!        Implicit arguments :
+!        --------------------
+
+
+!     Method.
+!     -------
+!        See documentation
+
+!     Externals.   NONE.
+!     ----------
+
+!     Reference.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+
+!     Author.
+!     -------
+!        K. YESSAD (after old version of sumplat.F).
+
+!     Modifications.
+!     --------------
+!        Original : 98-12-07
+!     ------------------------------------------------------------------
+
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+USE ABORT_TRANS_MOD
+
+IMPLICIT NONE
+
+
+!     * DUMMY:
+INTEGER(KIND=JPIM),INTENT(IN)  :: KDGSA
+INTEGER(KIND=JPIM),INTENT(IN)  :: KDGL
+INTEGER(KIND=JPIM),INTENT(IN)  :: KPROCA
+INTEGER(KIND=JPIM),INTENT(IN)  :: KLOENG(KDGSA:KDGL)
+LOGICAL,INTENT(IN)  :: LDSPLIT
+INTEGER(KIND=JPIM),INTENT(OUT)  :: KMEDIAP
+INTEGER(KIND=JPIM),INTENT(OUT)  :: KRESTM
+INTEGER(KIND=JPIM),INTENT(OUT)  :: KINDIC(KPROCA)
+INTEGER(KIND=JPIM),INTENT(OUT)  :: KLAST(KPROCA)
+
+!     * LOCAL:
+INTEGER(KIND=JPIM) :: IPP1(KPROCA),ILAST1(KPROCA)
+INTEGER(KIND=JPIM) :: IPP(KPROCA)
+INTEGER(KIND=JPIM) :: IFIRST(KPROCA)
+
+!     LOCAL INTEGER SCALARS
+INTEGER(KIND=JPIM) :: ICOMP, IGL, IMAXI, IMAXIOL, IMEDIA, ITOT, JA, JGL,&
+            &ILAST,IREST,ILIMIT,IFRST
+LOGICAL   :: LLDONE
+
+!      -----------------------------------------------------------------
+
+!*       1.    COMPUTATION OF KMEDIAP, KRESTM, KINDIC, KLAST.
+!              ----------------------------------------------
+
+!     * Computation of KMEDIAP and KRESTM.
+
+IMEDIA = SUM(KLOENG(KDGSA:KDGL))
+KMEDIAP = IMEDIA / KPROCA
+IF (KMEDIAP  <  KLOENG(KDGL/2)) THEN
+  CALL ABORT_TRANS ('SUMPLATB: KPROCA TOO BIG FOR THIS RESOLUTION')
+ENDIF
+KRESTM = IMEDIA - KMEDIAP * KPROCA
+IF (KRESTM  >  0) KMEDIAP = KMEDIAP + 1
+
+!     * Computation of intermediate quantities KINDIC and KLAST
+
+IF (LDSPLIT) THEN
+
+  IREST = 0
+  ILAST =0
+  DO JA=1,KPROCA
+    IF (JA  <=  KRESTM .OR. KRESTM  ==  0) THEN
+      ICOMP = KMEDIAP
+    ELSE
+      ICOMP = KMEDIAP - 1
+    ENDIF
+    ITOT = IREST
+    IGL = ILAST+1
+    DO JGL=IGL,KDGL
+      ILAST = JGL
+      IF(ITOT+KLOENG(JGL) < ICOMP) THEN
+        ITOT = ITOT+KLOENG(JGL)
+      ELSEIF(ITOT+KLOENG(JGL) == ICOMP) THEN
+        IREST = 0
+        KLAST(JA) = JGL 
+        KINDIC(JA) = 0
+        EXIT
+      ELSE
+        IREST =  KLOENG(JGL) -(ICOMP-ITOT)
+        KLAST(JA) = JGL 
+        KINDIC(JA) = JGL
+        EXIT
+      ENDIF
+    ENDDO
+  ENDDO
+
+ELSE
+
+  KINDIC(:) = 0
+
+  IMAXI = KMEDIAP-1
+  IMAXIOL = HUGE(IMAXIOL)
+  DO
+    ILIMIT = IMAXI
+    IMAXI = 0
+    IFRST = KDGL
+    ILAST1(:) = 0
+    IPP1(:) = 0
+    DO JA=KPROCA,1,-1
+      IGL = IFRST
+      LATS:DO JGL=IGL,1,-1
+        IF (IPP1(JA) < ILIMIT .OR. JA == 1) THEN
+          IFRST = JGL-1
+          IPP1(JA) = IPP1(JA) + KLOENG(JGL)
+          IF(ILAST1(JA)  ==  0) ILAST1(JA) = JGL
+        ELSE
+          EXIT LATS
+        ENDIF
+      ENDDO LATS
+      IMAXI = MAX (IMAXI,IPP1(JA))
+    ENDDO
+    IF(IMAXI >= IMAXIOL) EXIT
+    KLAST(:) = ILAST1(:)
+    IPP(:) = IPP1(:)
+    IMAXIOL = IMAXI
+  ENDDO
+
+!       make the distribution more uniform
+!       ----------------------------------
+
+  IFIRST(1) = 0
+  IF (KLAST(1) > 0) IFIRST(1) = 1
+  DO JA=2,KPROCA
+    IF (IPP(JA) > 0) THEN
+      IFIRST(JA) = KLAST(JA-1)+1
+    ELSE
+      IFIRST(JA) = 0
+    ENDIF
+  ENDDO
+
+  LLDONE = .FALSE.
+  DO WHILE( .NOT.LLDONE )
+    LLDONE = .TRUE.
+
+    DO JA=1,KPROCA-1
+      IF (IPP(JA) > IPP(JA+1)) THEN
+        IF (IPP(JA)-IPP(JA+1)  >  IPP(JA+1) + 2 *&
+         &KLOENG(KLAST(JA)) -IPP(JA) ) THEN
+          IPP(JA) = IPP(JA) - KLOENG(KLAST(JA))
+          IPP(JA+1) = IPP(JA+1) + KLOENG(KLAST(JA))
+          IF (KLAST(JA+1)  ==  0) KLAST(JA+1) = KLAST(JA)
+          IFIRST(JA+1) = KLAST(JA)
+          KLAST(JA) = KLAST(JA) - 1
+          IF (KLAST(JA) == 0) IFIRST(JA) = 0
+          LLDONE = .FALSE.
+        ENDIF
+      ELSE
+        IF( IFIRST(JA+1) > 0 )THEN
+          IF (IPP(JA+1)-IPP(JA)  >=  IPP(JA) + 2 *&
+           &KLOENG(IFIRST(JA+1)) -IPP(JA+1) ) THEN
+            IPP(JA) = IPP(JA) + KLOENG(IFIRST(JA+1))
+            IPP(JA+1) = IPP(JA+1) - KLOENG(IFIRST(JA+1))
+            KLAST(JA) = IFIRST(JA+1)
+            IF (IFIRST(JA) == 0) IFIRST(JA) = KLAST(JA)
+            IF (KLAST(JA+1)  ==  KLAST(JA)) THEN
+              KLAST(JA+1) = 0
+              IFIRST(JA+1) = 0
+            ELSE
+              IFIRST(JA+1) = IFIRST(JA+1) + 1
+            ENDIF
+           LLDONE = .FALSE.
+          ENDIF
+        ENDIF
+      ENDIF
+    ENDDO
+  ENDDO
+
+ENDIF
+
+END SUBROUTINE SUMPLATB
+END MODULE SUMPLATB_MOD
Index: LMDZ5/trunk/libf/phylmd/rrtm/sumplatbeq_mod.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/sumplatbeq_mod.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/sumplatbeq_mod.F90	(revision 1989)
@@ -0,0 +1,222 @@
+MODULE SUMPLATBEQ_MOD
+CONTAINS
+SUBROUTINE SUMPLATBEQ(KDGSA,KDGL,KPROC,KPROCA,KLOENG,LDSPLIT,LDEQ_REGIONS,&
+                    &KMEDIAP,KRESTM,KINDIC,KLAST)
+
+!**** *SUMPLATBEQ * - Routine to initialize parallel environment
+!                     (latitude partitioning for LEQ_REGIONS=T)
+
+!     Purpose.
+!     --------
+
+
+!**   Interface.
+!     ----------
+!        *CALL* *SUMPLATBEQ *
+
+!     Explicit arguments - input :
+!     -------------------- 
+!                          KDGSA      -first latitude (grid-space)
+!                                      (may be different from NDGSAG)
+!                          KDGL       -last  latitude
+!                          KPROC      -total number of processors
+!                          KPROCA     -number of processors in A direction
+!                          KLOENG     -actual number of longitudes per latitude.
+!                          LDSPLIT    -true for latitudes shared between sets
+!                          LDEQ_REGIONS -true if eq_regions partitioning
+
+!     Explicit arguments - output:
+!     -------------------- 
+!                          KMEDIAP    -mean number of grid points per PE
+!                          KRESTM     -number of PEs with one extra point
+!                          KINDIC     -intermediate quantity for 'sumplat'
+!                          KLAST      -intermediate quantity for 'sumplat'
+
+!        Implicit arguments :
+!        --------------------
+
+
+!     Method.
+!     -------
+!        See documentation
+
+!     Externals.   NONE.
+!     ----------
+
+!     Reference.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+
+!     Author.
+!     -------
+!        G. Mozdzynski
+
+!     Modifications.
+!     --------------
+!        Original : April 2006
+!     ------------------------------------------------------------------
+
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+USE TPM_DISTR
+USE EQ_REGIONS_MOD
+USE ABORT_TRANS_MOD
+
+IMPLICIT NONE
+
+
+!     * DUMMY:
+INTEGER(KIND=JPIM),INTENT(IN)  :: KDGSA
+INTEGER(KIND=JPIM),INTENT(IN)  :: KDGL
+INTEGER(KIND=JPIM),INTENT(IN)  :: KPROC
+INTEGER(KIND=JPIM),INTENT(IN)  :: KPROCA
+INTEGER(KIND=JPIM),INTENT(IN)  :: KLOENG(KDGSA:KDGL)
+LOGICAL,INTENT(IN)  :: LDSPLIT
+LOGICAL,INTENT(IN)  :: LDEQ_REGIONS
+INTEGER(KIND=JPIM),INTENT(OUT)  :: KMEDIAP
+INTEGER(KIND=JPIM),INTENT(OUT)  :: KRESTM
+INTEGER(KIND=JPIM),INTENT(OUT)  :: KINDIC(KPROCA)
+INTEGER(KIND=JPIM),INTENT(OUT)  :: KLAST(KPROCA)
+
+!     * LOCAL:
+
+!     LOCAL INTEGER SCALARS
+INTEGER(KIND=JPIM) :: ICOMP, IGL, IMAXI, IMEDIA, IMEDIAP, ITOT, JA, JB, IA, JGL,&
+            &ILAST,IREST,IPE,I2REGIONS
+LOGICAL   :: LLDONE
+
+!      -----------------------------------------------------------------
+
+!*       1.    COMPUTATION OF KMEDIAP, KRESTM, KINDIC, KLAST.
+!              ----------------------------------------------
+
+!     * Computation of KMEDIAP and KRESTM.
+
+IMEDIA = SUM(KLOENG(KDGSA:KDGL))
+KMEDIAP = IMEDIA / KPROC
+
+IF( KPROC > 1 )THEN
+! test if KMEDIAP is too small and no more than 2 asets would be required 
+! for the first latitude
+  IF( LDSPLIT )THEN
+    I2REGIONS=N_REGIONS(1)+N_REGIONS(2)
+    IF( KMEDIAP < (KLOENG(KDGSA)-1)/I2REGIONS+1 )THEN
+      WRITE(0,'("SUMPLATBEQ: KMEDIAP=",I6," I2REGIONS=",I3," KLOENG(KDGSA)=",I3)')&
+      &KMEDIAP,I2REGIONS,KLOENG(KDGSA)
+      CALL ABORT_TRANS ('SUMPLATBEQ: NPROC TOO BIG FOR THIS RESOLUTION, LDSPLIT=T')
+    ENDIF
+  ELSE
+! test for number asets too large for the number of latitudes
+    IF( KPROCA > KDGL )THEN
+      WRITE(0,'("SUMPLATBEQ: KMEDIAP=",I6," KPROCA=",I4," KDGL=",I4)')&
+      &KMEDIAP,KPROCA,KDGL
+      CALL ABORT_TRANS ('SUMPLATBEQ: NPROC TOO BIG FOR THIS RESOLUTION, LDSPLIT=F')
+    ENDIF
+  ENDIF
+ENDIF
+
+KRESTM = IMEDIA - KMEDIAP * KPROC
+IF (KRESTM  >  0) KMEDIAP = KMEDIAP + 1
+
+!     * Computation of intermediate quantities KINDIC and KLAST
+
+IF (LDSPLIT) THEN
+
+  IREST = 0
+  ILAST =0
+  IPE=0
+  DO JA=1,KPROCA
+    ICOMP=0
+    DO JB=1,N_REGIONS(JA)
+      IPE=IPE+1
+      IF (IPE  <=  KRESTM .OR. KRESTM  ==  0) THEN
+        ICOMP = ICOMP + KMEDIAP
+      ELSE
+        ICOMP = ICOMP + (KMEDIAP-1)
+      ENDIF
+    ENDDO
+    ITOT = IREST
+    IGL = ILAST+1
+    DO JGL=IGL,KDGL
+      ILAST = JGL
+      IF(ITOT+KLOENG(JGL) < ICOMP) THEN
+        ITOT = ITOT+KLOENG(JGL)
+      ELSEIF(ITOT+KLOENG(JGL) == ICOMP) THEN
+        IREST = 0
+        KLAST(JA) = JGL 
+        KINDIC(JA) = 0
+        EXIT
+      ELSE
+        IREST =  KLOENG(JGL) -(ICOMP-ITOT)
+        KLAST(JA) = JGL 
+        KINDIC(JA) = JGL
+        EXIT
+      ENDIF
+    ENDDO
+  ENDDO
+
+ELSE
+
+  KINDIC(:) = 0
+  LLDONE=.FALSE.
+  IMEDIAP=KMEDIAP
+  IF( MYPROC == 1 )THEN
+    WRITE(0,'("SUMPLATBEQ: IMEDIAP=",I6)')IMEDIAP
+  ENDIF
+  DO WHILE(.NOT.LLDONE)
+!   loop until a satisfactory distribution can be found
+    IA=1
+    IMAXI=IMEDIAP*N_REGIONS(IA)
+    DO JGL=1,KDGL
+      KLAST(IA)=JGL
+      IMAXI=IMAXI-KLOENG(JGL)
+      IF( IA == KPROCA .AND. JGL == KDGL )THEN
+        IF( MYPROC == 1 )THEN
+          WRITE(0,'("SUMPLATBEQ: EXIT 1")')
+        ENDIF
+        EXIT
+      ENDIF
+      IF( IA == KPROCA .AND. JGL < KDGL )THEN
+        IF( MYPROC == 1 )THEN
+          WRITE(0,'("SUMPLATBEQ: EXIT 2")')
+        ENDIF
+        KLAST(KPROCA)=KDGL
+        EXIT
+      ENDIF
+      IF( IA < KPROCA .AND. JGL == KDGL )THEN
+        DO JA=KPROCA,IA+1,-1
+          KLAST(JA)=KDGL+JA-KPROCA
+        ENDDO
+        DO JA=KPROCA,2,-1
+          IF( KLAST(JA) <= KLAST(JA-1) )THEN
+            KLAST(JA-1)=KLAST(JA)-1
+          ENDIF
+        ENDDO
+        IF( MYPROC == 1 )THEN
+          WRITE(0,'("SUMPLATBEQ: EXIT 3")')
+        ENDIF
+        EXIT
+      ENDIF
+      IF( IMAXI <= 0 )THEN
+        IA=IA+1
+        IMAXI=IMAXI+IMEDIAP*N_REGIONS(IA)
+      ENDIF
+    ENDDO
+    IF( KPROCA > 1 .AND. KLAST(KPROCA) == KLAST(KPROCA-1) )THEN
+      IMEDIAP=IMEDIAP-1
+      IF( MYPROC == 1 )THEN
+        WRITE(0,'("SUMPLATBEQ: REDUCING IMEDIAP=",I6)')IMEDIAP
+      ENDIF
+      IF( IMEDIAP <= 0 )THEN
+        CALL ABORT_TRANS ('SUMPLATBEQ: PROBLEM PARTITIONING WITH LSPLIT=F, IMEDIAP <= 0')
+      ENDIF
+    ELSE
+      LLDONE=.TRUE.
+    ENDIF
+  ENDDO
+    
+ENDIF
+
+END SUBROUTINE SUMPLATBEQ
+END MODULE SUMPLATBEQ_MOD
Index: LMDZ5/trunk/libf/phylmd/rrtm/sumplatf_mod.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/sumplatf_mod.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/sumplatf_mod.F90	(revision 1989)
@@ -0,0 +1,139 @@
+MODULE SUMPLATF_MOD
+CONTAINS
+SUBROUTINE SUMPLATF(KDGL,KPROCA,KMYSETA,&
+                   &KULTPP,KPROCL,KPTRLS)
+
+!**** *SUMPLATF * - Initialize fourier space distibution in N-S direction
+
+!     Purpose.
+!     --------
+
+
+!**   Interface.
+!     ----------
+!        *CALL* *SUMPLATF *
+
+!     Explicit arguments - input :
+!     -------------------- 
+!                          KDGL       -last  latitude
+!                          KPROCA     -number of processors in A direction
+!                          KMYSETA    -process number in A direction
+
+!     Explicit arguments - output:
+!     -------------------- 
+
+!                          KULTPP     -number of latitudes in process
+!                                      (in Fourier space)
+!                          KPROCL     -process responsible for latitude
+!                                      (in Fourier space)
+!                          KPTRLS     -pointer to first global latitude
+!                                      of process (in Fourier space)
+
+!        Implicit arguments :
+!        --------------------
+
+
+!     Method.
+!     -------
+!        See documentation
+
+!     Externals.   SUMPLATB and SUEMPLATB.
+!     ----------
+
+!     Reference.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+
+!     Author.
+!     -------
+!        MPP Group *ECMWF*
+
+!     Modifications.
+!     --------------
+!        Original : 95-10-01
+!        David Dent:97-06-02 parameters KFRSTLAT etc added
+!        JF. Estrade:97-11-13 Adaptation to ALADIN case
+!        J.Boutahar: 98-07-06  phasing with CY19
+!        Modified 98-08-10 by K. YESSAD: removal of LRPOLE option + cleanings
+!         (correct computation of extrapolar latitudes for KPROCL).
+!        Modified 98-12-07 by K. YESSAD and C. FISCHER: cleaning.
+!         - merge old sumplat.F and suemplat.F
+!         - gather 'lelam' code and 'not lelam' code.
+!         - clean (useless duplication of variables, non doctor features).
+!         - remodularise according to lelam/not lelam
+!           -> lelam features in new routine suemplatb.F,
+!              not lelam features in new routine sumplatb.F
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+use tpm_geometry
+
+use sumplatb_mod
+
+
+IMPLICIT NONE
+
+
+!     * DUMMY:
+INTEGER(KIND=JPIM),INTENT(IN)  :: KDGL
+INTEGER(KIND=JPIM),INTENT(IN)  :: KPROCA
+INTEGER(KIND=JPIM),INTENT(IN)  :: KMYSETA
+INTEGER(KIND=JPIM),INTENT(OUT) :: KULTPP(:)
+INTEGER(KIND=JPIM),INTENT(OUT) :: KPROCL(:)
+INTEGER(KIND=JPIM),INTENT(OUT) :: KPTRLS(:)
+
+!     * LOCAL:
+INTEGER(KIND=JPIM) :: INDIC(KPROCA),ILAST(KPROCA)
+
+!     LOCAL INTEGER SCALARS
+INTEGER(KIND=JPIM) :: IA, ILAT, ISTART, IMEDIAP,IRESTM, JA,  JLTLOC
+LOGICAL :: LLSPLIT
+
+!      -----------------------------------------------------------------
+
+!*       1.    CODE DEPENDING ON 'LELAM': COMPUTATION OF
+!              KMEDIAP, KRESTM, INDIC, ILAST.
+!              -----------------------------------------
+
+LLSPLIT = .FALSE.
+
+CALL SUMPLATB(1,KDGL,KPROCA,G%NLOEN,LLSPLIT,&
+ &IMEDIAP,IRESTM,INDIC,ILAST)
+
+!      -----------------------------------------------------------------
+
+!*       2.    CODE NOT DEPENDING ON 'LELAM': 
+!              ------------------------------
+
+
+
+!     * Definitions related to distribution of latitudes along sets
+!       ------------ in fourier-space -----------------------------
+ISTART = 0
+KULTPP(1) = ILAST(1)
+DO JA=1,KPROCA
+  IF(JA > 1) THEN
+    IF(ILAST(JA) /= 0) THEN
+      KULTPP(JA) = ILAST(JA)-ILAST(JA-1)
+    ELSE
+      KULTPP(JA) = 0
+    ENDIF
+  ENDIF
+  DO JLTLOC=1,KULTPP(JA)
+    ILAT = ISTART + JLTLOC
+    KPROCL(ILAT) = JA
+  ENDDO
+  ISTART = ISTART + KULTPP(JA)
+ENDDO
+
+!     * Computes KPTRLS.
+
+IA = KPROCL(1)
+KPTRLS(IA) = 1
+DO JA=IA+1,KPROCA
+  KPTRLS(JA) = KPTRLS(JA-1) + KULTPP(JA-1)
+ENDDO
+
+END SUBROUTINE SUMPLATF
+END MODULE SUMPLATF_MOD
Index: LMDZ5/trunk/libf/phylmd/rrtm/sumts.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/sumts.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/sumts.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SUMTS
+END SUBROUTINE SUMTS
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/suovlp.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/suovlp.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/suovlp.F90	(revision 1989)
@@ -0,0 +1,50 @@
+SUBROUTINE SUOVLP ( KLEV )
+  
+!***** *SUOVLP*   -INITIALIZE PROFILE OF ALPHA1
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SUOVLP* FROM *SUECRAD*
+!              ------        -------
+
+!     REFERENCE.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 01-02-16
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERAD   , ONLY : RAOVLP, RBOVLP
+USE YOEOVLP  , ONLY : RA1OVLP
+USE YOMSTA   , ONLY : STZ
+
+IMPLICIT NONE
+
+!     ------------------------------------------------------------------
+
+!     DUMMY PARAMETERS
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+
+INTEGER(KIND=JPIM) :: JK
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SUOVLP',0,ZHOOK_HANDLE)
+DO JK=1,KLEV
+  RA1OVLP(JK)=RAOVLP*STZ(JK)+RBOVLP
+  print *,'SU_OVLP: JK RAOVLP STZ RBOVLP:',JK,RAOVLP,STZ(JK),RBOVLP
+ENDDO  
+
+!     ------------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SUOVLP',1,ZHOOK_HANDLE)
+END SUBROUTINE SUOVLP
Index: LMDZ5/trunk/libf/phylmd/rrtm/suovlp.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/suovlp.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/suovlp.intfb.h	(revision 1989)
@@ -0,0 +1,6 @@
+INTERFACE
+SUBROUTINE SUOVLP ( KLEV )
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+END SUBROUTINE SUOVLP
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/suphec.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/suphec.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/suphec.F90	(revision 1989)
@@ -0,0 +1,341 @@
+SUBROUTINE SUPHEC(KULOUT)
+
+!**** *SUPHEC - INITIALISES PHYSICAL CONSTANTS OF UNCERTAIN VALUE.
+!               WITHIN THE E.C.M.W.F. PHYSICS PACKAGE
+
+!     PURPOSE.
+!     --------
+
+!          THIS ROUTINE SETS THE VALUES FOR THE PHYSICAL CONSTANTS USED
+!     IN THE PARAMETERIZATION ROUTINES WHENEVER THESE VALUES ARE NOT
+!     KNOWN WELL ENOUGH TO FORBID ANY TUNING OR WHENEVER THEY ARE
+!     SUBJECT TO AN ARBITRARY CHOICE OF THE MODELLER. THESE CONSTANTS
+!     ARE DISTRIBUTED IN COMMON DECKS *YOEXXXX* WHERE XXXX CORRESPONDS
+!     TO THE INDIVIDUAL PHYSICAL PARAMETRIZATION
+
+!**   INTERFACE.
+!     ----------
+
+!          *SUPHEC* IS CALLED FROM *SUPHY*
+
+!     METHOD.
+!     -------
+
+!          NONE.
+
+!     EXTERNALS.
+!     ----------
+
+!          *SUECRAD*, *SUCUMF*, *SUCUMF2*,*SUVDFS*, *SUSURF*
+!          *SUECRAD15*, *SUCLOP15*
+!          *SUGWD*, *SUCLD*, *SUCOND*, *SUPHLI*, *SUMETHOX*
+
+!     REFERENCE.
+!     ----------
+
+!          SEE PHYSICAL ROUTINES FOR AN EXACT DEFINITION OF THE
+!     CONSTANTS.
+
+!     AUTHOR.
+!     -------
+!          J.-J. MORCRETTE  E.C.M.W.F.    91/06/15  ADAPTATION TO I.F.S.
+
+!     MODIFICATIONS
+!     -------------
+!          MAY 1997 : M. Deque  - Frozen FMR
+!          APRIL 1998: C. JAKOB - ADD METHANE OXIDATION
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        P.Viterbo     24-May-2004 surf library
+!        P.Viterbo     03-Dec-2004 Include user-defined RTHRFRTI
+!        M.Ko"hler     03-Dec-2004 cp,moist=cp,dry
+!        P.Viterbo     10-Jun-2005 Externalise surf
+!        R. El Khatib & J-F Estrade  20-Jan-2005 Default PRSUN for FMR15
+!        D.Salmond     22-Nov-2005 Mods for coarser/finer physics
+!        P. Lopez      21-Aug-2006 Added call to SUCUMF2 
+!                                 (new linearized convec)
+!        JJMorcrette   20060525    MODIS albedo
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOMDPHY  , ONLY : NTILES 
+USE SURFACE_FIELDS, ONLY : YSP_SBD
+USE YOELW    , ONLY : NSIL     ,TSTAND   ,XP
+USE YOESW    , ONLY : RSUN
+USE YOMSW15  , ONLY : RSUN15
+USE YOMDIM   , ONLY : NFLEVG   ,NSMAX, NGPBLKS, NPROMA
+USE YOMGEM   , ONLY : VBH      ,VAH      ,VP00, VAF   , VBF
+USE YOMCST   , ONLY : RD       ,RV       ,RCPD     ,&
+ & RLVTT    ,RLSTT    ,RLMLT    ,RTT      ,RATM 
+USE YOETHF   , ONLY : R2ES     ,R3LES    ,R3IES    ,R4LES    ,&
+ & R4IES    ,R5LES    ,R5IES    ,RVTMP2   ,RHOH2O   ,&
+ & R5ALVCP  ,R5ALSCP  ,RALVDCP  ,RALSDCP  ,RALFDCP  ,&
+ & RTWAT    ,RTBER    ,RTBERCU  ,RTICE    ,RTICECU  ,&
+ & RTWAT_RTICE_R      ,RTWAT_RTICECU_R    ,&
+ & RKOOP1   ,RKOOP2 
+USE YOMPHY   , ONLY : LRAYFM15
+!USE YOERAD   , ONLY : NSW      ,NTSW     ,&
+! NSW mis dans .def MPL 20140211
+USE YOERAD   , ONLY : NTSW     ,&
+ & LCCNL    ,LCCNO    ,&
+ & RCCNSEA  ,RCCNLND
+USE YOE_TILE_PROP, ONLY : RUSTRTI, RVSTRTI, RAHFSTI, REVAPTI, RTSKTI
+USE YOEPHY   , ONLY : RTHRFRTI ,LEOCWA   ,LEOCCO   ,LEOCSA, LE4ALB
+USE YOEVDF   , ONLY : NVTYPES
+USE YOMCOAPHY   , ONLY : NPHYINT
+USE YOM_PHYS_GRID ,ONLY : PHYS_GRID
+USE YOMCT0  , ONLY  : LSCMEC   ,LROUGH   ,REXTZ0M  ,REXTZ0H
+
+IMPLICIT NONE
+
+include "clesphys.h"
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KULOUT 
+INTERFACE
+#include "susurf.h"
+#include "surf_inq.h"
+END INTERFACE
+
+#include "gppre.intfb.h"
+#include "sucld.intfb.h"
+#include "sucldp.intfb.h"
+#include "suclop.intfb.h"
+#include "suclop15.intfb.h"
+#include "sucond.intfb.h"
+#include "sucumf.intfb.h"
+#include "sucumf2.intfb.h"
+#include "suecrad.intfb.h"
+#include "suecrad15.intfb.h"
+#include "sugwd.intfb.h"
+#include "sumethox.intfb.h"
+#include "suphli.intfb.h"
+#include "suvdf.intfb.h"
+#include "suvdfs.intfb.h"
+#include "suwcou.intfb.h"
+#include "dimensions.h"
+#include "comvert.h"
+
+!     ------------------------------------------------------------------
+
+REAL(KIND=JPRB) :: ZPRES(0:NFLEVG),ZPRESF(NFLEVG), ZETA(NFLEVG),ZETAH(0:NFLEVG)
+
+INTEGER(KIND=JPIM) :: JK,ISMAX,JLEV
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!     ------------------------------------------------------------------
+
+!*         0.2    DEFINING DERIVED CONSTANTS FROM UNIVERSAL CONSTANTS
+!                 ---------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUPHEC',0,ZHOOK_HANDLE)
+!CALL GSTATS(1811,0) ! MPL 28.11.08
+!RVTMP2=RCPV/RCPD-1.0_JPRB   !use cp,moist
+RVTMP2=0.0_JPRB              !neglect cp,moist
+RHOH2O=RATM/100._JPRB
+R2ES=611.21_JPRB*RD/RV
+R3LES=17.502_JPRB
+R3IES=22.587_JPRB
+R4LES=32.19_JPRB
+R4IES=-0.7_JPRB
+R5LES=R3LES*(RTT-R4LES)
+R5IES=R3IES*(RTT-R4IES)
+R5ALVCP=R5LES*RLVTT/RCPD
+R5ALSCP=R5IES*RLSTT/RCPD
+RALVDCP=RLVTT/RCPD
+RALSDCP=RLSTT/RCPD
+RALFDCP=RLMLT/RCPD
+RTWAT=RTT
+RTBER=RTT-5._JPRB
+RTBERCU=RTT-5.0_JPRB
+RTICE=RTT-23._JPRB
+RTICECU=RTT-23._JPRB
+
+RTWAT_RTICE_R=1.0_JPRB/(RTWAT-RTICE)
+RTWAT_RTICECU_R=1.0_JPRB/(RTWAT-RTICECU)
+IF(NPHYINT == 0) THEN
+  ISMAX=NSMAX
+ELSE
+  ISMAX=PHYS_GRID%NSMAX
+ENDIF
+
+RKOOP1=2.583_JPRB
+RKOOP2=0.48116E-2_JPRB
+
+!     ------------------------------------------------------------------
+!*         0.5    DEFINE STANDARD ATMOSPHERE VERTICAL CONFIGURATION
+!                 -------------------------------------------------
+!ALLOCATE(VBH    (0:MAX(JPMXLE,NFLEVG)))  from suallo.F90
+!! 
+!! ATTENTION, il faut que ~dyn3d/comvert.h soit conforme au Fortran 90 !!
+!! 
+ALLOCATE(VAH    (0:NFLEVG))  ! Ajout ALLOCATE MPL 200509
+ALLOCATE(VBH    (0:NFLEVG))
+ALLOCATE(VAF    (NFLEVG))
+ALLOCATE(VBF    (NFLEVG))
+! Commente par MPL 28.11.08, puis decommente le 19.05.09
+VP00=101325.     !!!!! A REVOIR (MPL)
+ZPRES(NFLEVG)=VP00
+! on recupere ap et bp de dyn3d (comvert.h) MPL 19.05.09
+! Attention, VAH et VBH sont inverses, comme les niveaux
+! plev(l)=PAPRS(klon,nlayer+1-l) de 1 a nlayer (apllmd.F)
+DO JLEV = 0, NFLEVG  
+!  VAH(JLEV)=ap(JLEV+1)ap(JLEV+1)
+!  VBH(JLEV)=bp(JLEV+1)
+!  print *,'SUPHEC: jlev ap bp',JLEV,ap(JLEV+1),bp(JLEV+1)
+   VAH(JLEV)=ap(NFLEVG+1-JLEV)
+   VBH(JLEV)=bp(NFLEVG+1-JLEV)
+ENDDO
+! Calcul de VAF et VBF, analogues de VAH et VBH mais aux niveaux pleins
+DO JLEV = 1, NFLEVG   
+   VAF(JLEV)=(VAH(JLEV)+VAH(JLEV-1))/2.
+   VBF(JLEV)=(VBH(JLEV)+VBH(JLEV-1))/2.
+ENDDO
+
+! Appel a GPPRE commente par MPL 28.11.08, puis decommente le 19.05.09
+CALL GPPRE ( 1 ,1, 1, NFLEVG, VAH, VBH, ZPRES, ZPRESF )
+
+DO JK=0,NFLEVG
+  ZETAH(JK)= ZPRES(JK)/ZPRES(NFLEVG)
+ENDDO
+DO JK=1,NFLEVG
+  ZETA(JK)= ZPRESF(JK)/ZPRES(NFLEVG)
+ENDDO
+
+!     ------------------------------------------------------------------
+!*         1.     SETTING CONSTANTS FOR DIAGNOSTIC CLOUD SCHEME
+!                 ---------------------------------------------
+
+!CALL SUCLD ( NFLEVG , ZETA ) ! MPL 28.11.08
+
+!     ------------------------------------------------------------------
+
+!*         2.     SETTING CONSTANTS FOR LARGE-SCALE CONDENSATION SCHEME
+!                 -----------------------------------------------------
+
+!CALL SUCOND ( KULOUT , NFLEVG , ZETA ) ! MPL 28.11.08
+
+!     ------------------------------------------------------------------
+
+!*         3.     SETTING CONSTANTS FOR CONVECTION SCHEME
+!                 ---------------------------------------
+
+!CALL SUCUMF(ISMAX)     ! MPL 28.11.08
+
+!     ------------------------------------------------------------------
+
+!*         3.     SETTING CONSTANTS FOR NEW LINEARIZED CONVECTION SCHEME
+!                 ------------------------------------------------------
+
+!CALL SUCUMF2(ISMAX)  ! MPL 28.11.08
+
+!     ------------------------------------------------------------------
+!*         4.     SETTING CONSTANTS FOR GRAVITY WAVE DRAG SCHEME
+!                 ----------------------------------------------
+
+!CALL SUGWD (KULOUT, NFLEVG, VAH, VBH )   ! MPL 28.11.08
+
+!     ------------------------------------------------------------------
+
+!*         5.     SETTING CONSTANTS FOR VERTICAL DIFFUSION
+!                 ----------------------------------------
+
+!CALL SUVDFS     ! MPL 28.11.08
+
+!CALL SUVDF      ! MPL 28.11.08
+
+!cccc CALL SUVDFD ( NABLPFR, ABLPLL ) cccccccccccccccccccccccccccccccccc
+
+!     ------------------------------------------------------------------
+
+!*         6.     SETTING CONSTANTS FOR RADIATION SCHEME
+!                 --------------------------------------
+
+IF (LRAYFM15) THEN
+  CALL SUECRAD15 (KULOUT, NFLEVG, ZETAH )
+ELSE
+  CALL SUECRAD (KULOUT, NFLEVG, ZETAH )
+ENDIF
+
+!     ------------------------------------------------------------------
+!*         7.     SETTING CONSTANTS FOR SURFACE SCHEME
+!                 ------------------------------------
+
+!IF (LRAYFM15) THEN
+!   CALL SUSURF(KSW=NSW,KCSS=YSP_SBD%NLEVS,KSIL=NSIL,KTILES=NTILES,KTSW=NTSW,&
+!    & LD_LLCCNL=LCCNL,LD_LLCCNO=LCCNO,&
+!    & LD_LEOCWA=LEOCWA,LD_LEOCCO=LEOCCO,LD_LEOCSA=LEOCSA,LD_LLE4ALB=LE4ALB,&
+!    & LD_LSCMEC=LSCMEC,LD_LROUGH=LROUGH,PEXTZ0M=REXTZ0M,PEXTZ0H=REXTZ0H,&
+!    & PTHRFRTI=RTHRFRTI,PTSTAND=TSTAND,PXP=XP,PRCCNSEA=RCCNSEA,PRCCNLND=RCCNLND,&
+!    & PRSUN=RSUN15)
+!ELSE
+!   CALL SUSURF(KSW=NSW,KCSS=YSP_SBD%NLEVS,KSIL=NSIL,KTILES=NTILES,KTSW=NTSW,&
+!    & LD_LLCCNL=LCCNL,LD_LLCCNO=LCCNO,&
+!    & LD_LEOCWA=LEOCWA,LD_LEOCCO=LEOCCO,LD_LEOCSA=LEOCSA,LD_LLE4ALB=LE4ALB,&
+!    & LD_LSCMEC=LSCMEC,LD_LROUGH=LROUGH,PEXTZ0M=REXTZ0M,PEXTZ0H=REXTZ0H,&
+!    & PTHRFRTI=RTHRFRTI,PTSTAND=TSTAND,PXP=XP,PRCCNSEA=RCCNSEA,PRCCNLND=RCCNLND,&
+!    & PRSUN=RSUN)
+!ENDIF
+
+
+!CALL SURF_INQ(KNVTYPES=NVTYPES)
+
+
+!          7.1    Allocate working arrays
+!ALLOCATE(RUSTRTI(NPROMA,NTILES,NGPBLKS))
+!ALLOCATE(RVSTRTI(NPROMA,NTILES,NGPBLKS))
+!ALLOCATE(RAHFSTI(NPROMA,NTILES,NGPBLKS))
+!ALLOCATE(REVAPTI(NPROMA,NTILES,NGPBLKS))
+!ALLOCATE(RTSKTI (NPROMA,NTILES,NGPBLKS))
+!RUSTRTI(:,:,:) = 0.0_JPRB
+!RVSTRTI(:,:,:) = 0.0_JPRB
+!RAHFSTI(:,:,:) = 0.0_JPRB
+!REVAPTI(:,:,:) = 0.0_JPRB
+!RTSKTI (:,:,:) = 0.0_JPRB
+!CALL GSTATS(1811,1)
+
+!     ------------------------------------------------------------------
+
+!*         8.     SETTING CONSTANTS FOR CLOUD OPTICAL PROPERTIES
+!                 ----------------------------------------------
+
+IF (LRAYFM15) THEN
+  CALL SUCLOP15
+ELSE
+  CALL SUCLOP
+ENDIF
+
+!     ------------------------------------------------------------------
+
+!*         9.     SETTING CONSTANTS FOR PROGNOSTIC CLOUD SCHEME
+!                 ----------------------------------------------
+
+!CALL SUCLDP
+
+!     ------------------------------------------------------------------
+
+!*        10.     SETTING CONSTANTS FOR WAVE COUPLING
+!                 -----------------------------------
+
+!CALL SUWCOU
+
+!     ------------------------------------------------------------------
+!*         11.   SETTING CONSTANTS FOR LINEARIZED PHYSICS
+!                ----------------------------------------
+
+!CALL SUPHLI
+
+!     ------------------------------------------------------------------
+!*         12.   SETTING CONSTANTS FOR METHANE OXIDATION
+!                ---------------------------------------
+
+!CALL SUMETHOX
+
+!     ------------------------------------------------------------------
+
+WRITE(UNIT=KULOUT,FMT='('' SUPHEC IS OVER '')')
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUPHEC',1,ZHOOK_HANDLE)
+END SUBROUTINE SUPHEC
Index: LMDZ5/trunk/libf/phylmd/rrtm/suphec.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/suphec.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/suphec.intfb.h	(revision 1989)
@@ -0,0 +1,6 @@
+INTERFACE
+SUBROUTINE SUPHEC(KULOUT)
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KULOUT
+END SUBROUTINE SUPHEC
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/suphli.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/suphli.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/suphli.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SUPHLI
+END SUBROUTINE SUPHLI
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/suphmf.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/suphmf.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/suphmf.F90	(revision 1989)
@@ -0,0 +1,126 @@
+!OPTIONS XOPT(NOEVAL)
+SUBROUTINE SUPHMF(KULOUT)
+
+!**** *SUPHMF*   - Calls initialization of commons controlling physics
+!                  in the Meteo-France version.
+
+!     Purpose.
+!     --------
+!           Organise the setup of physical constants for Meteo-France
+!           physics package.
+
+!**   Interface.
+!     ----------
+!        *CALL* *SUPHMF(KULOUT)
+
+!        Explicit arguments :
+!        --------------------
+!        KULOUT : Logical unit for the output
+
+!        Implicit arguments :
+!        --------------------
+!        None.
+
+!     Method.
+!     -------
+!        Irrelevant.
+
+!     Externals.
+!     ----------
+
+!     SUPHY0
+!     SUPHY1
+!     SUPHY2
+!     SUPHY3
+!     SUTOPH
+
+!     Reference.
+!     ----------
+
+!     Author.
+!     -------
+!        J.-F. Geleyn.
+
+!     Modifications.
+!     --------------
+!        Original : 91-06-15
+!        Modified 91-06-10 by A. Lasserre-Bigorry (call to SUTOPH)
+!        Modified 99-03-01 by D. Giard (call to VAL923 for 923 and 927)
+!        Modified 01-04-02 R. El Khatib setup for CAPE diagnostic
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        Modified 04-11-16 Y. Seity : call suphmnh for AROME physics
+!        R. Zaaboul 28-Feb-2006: call suparar, suphmpa and suphmse (ex suphmnh)
+!        Y. Seity 06-07-10: nfpsurfex and lfpart2 in call suphmse (prepsurfex)  
+!     ------------------------------------------------------------------
+
+!*       1.    Call routines for specific physics' commons setup.
+!              --------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOMPHY   , ONLY : LSOLV
+USE YOMARPHY , ONLY : LMPA, LMSE
+USE YOMCT0   , ONLY : LSFORC, LFPART2
+USE YOMFPC   , ONLY : NFPSURFEX
+
+! Ce qui concerne NULNAM et JPNULNAM commente par MPL le 15.04.09
+!USE PARDIM   , ONLY : JPNULNAM
+!USE YOMLUN   , ONLY : NULNAM
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KULOUT 
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+#include "sucape.intfb.h"
+#include "su0phy.intfb.h"
+#include "suphy0.intfb.h"
+#include "suphy1.intfb.h"
+#include "suphy2.intfb.h"
+#include "suphy3.intfb.h"
+#include "sutoph.intfb.h"
+#include "val923.intfb.h"
+! commente par MPL 20.11.08
+!#include "suparar.intfb.h"
+!#include "suphmpa.intfb.h"
+!#include "suphmse.intfb.h"
+
+! Ce qui concerne MNAM commente par MPL le 15.04.09
+!NULNAM = JPNULNAM
+!OPEN(NULNAM,ACTION="READ")
+!OPEN(NULNAM,FILE='MNAM',ACTION="READ")
+
+IF (LHOOK) CALL DR_HOOK('SUPHMF',0,ZHOOK_HANDLE)
+print *,'SUPHMF: avant SU0PHY'
+CALL SU0PHY(KULOUT)
+print *,'SUPHMF: avant SUPHY0'
+CALL SUPHY0(KULOUT)
+print *,'SUPHMF: avant SUPHY1'
+CALL SUPHY1(KULOUT)
+print *,'SUPHMF: avant SUPHY2'
+CALL SUPHY2(KULOUT)
+print *,'SUPHMF: avant SUPHY3'
+CALL SUPHY3(KULOUT)
+print *,'SUPHMF: avant SUTOPH'
+CALL SUTOPH(KULOUT)
+print *,'SUPHMF: avant VAL923'
+
+CALL VAL923(LSOLV)
+
+print *,'SUPHMF: avant SUCAPE'
+CALL SUCAPE(KULOUT)
+
+! setup for AROME physics and SURFEX
+! commente par MPL 20.11.08
+!CALL SUPARAR(KULOUT)
+!IF (LMPA) CALL SUPHMPA(KULOUT)
+!IF (LMSE.AND.NFPSURFEX==0.AND.(.NOT.LFPART2)) CALL SUPHMSE(KULOUT)
+
+!     ------------------------------------------------------------------
+
+
+! Ce qui concerne NULNAM commente par MPL le 15.04.09
+!CLOSE(NULNAM)
+IF (LHOOK) CALL DR_HOOK('SUPHMF',1,ZHOOK_HANDLE)
+END SUBROUTINE SUPHMF
Index: LMDZ5/trunk/libf/phylmd/rrtm/suphmf.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/suphmf.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/suphmf.intfb.h	(revision 1989)
@@ -0,0 +1,6 @@
+INTERFACE
+SUBROUTINE SUPHMF(KULOUT)
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KULOUT
+END SUBROUTINE SUPHMF
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/suphy.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/suphy.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/suphy.F90	(revision 1989)
@@ -0,0 +1,139 @@
+SUBROUTINE SUPHY(KULOUT)
+
+USE YOMCT0   , ONLY : NCONF
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+!**** *SUPHY*   - Calls physic specific set-up routines
+
+!     Purpose.
+!     --------
+!           Calls set-up routines specific to the different physics
+!           packages that can be used in the IFS/ARPEGE model
+
+!**   Interface.
+!     ----------
+!        *CALL* *SUPHY(KULOUT)
+
+!        Explicit arguments :
+!        --------------------
+!        KULOUT : Logical unit for the output
+
+!        Implicit arguments :
+!        --------------------
+!        COMMON YOMPHY, YOEPHY
+
+!     Method.
+!     -------
+!        See documentation
+
+!     Externals.
+!     ----------
+
+!     SUPHEC
+!     SUPHMF
+!     SUPHYFL
+!     SUHLPH
+!
+!     Reference.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+
+!        or
+
+!        Documentation ARPEGE (depending on which physics will be used)
+
+!     Author.
+!     -------
+!        Mats Hamrud and Philippe Courtier  *ECMWF*
+!        J.-F. Geleyn for the ARPEGE rewriting.
+
+!     Modifications.
+!     --------------
+!        Original : 87-10-15
+!        ARPEGE extension 90-9-1
+!        ARPEGE modification 90-11-24
+!        Modified by M. Deque 91-02-28 (key for Ozone)
+!        Modified by M. Deque 91-03-18 (key for Negative humidity)
+!        Modified by M. Deque 91-04-01 (keys for cloudiness and wavedrag)
+!        Modified by J.-F. Geleyn 91-06-15 (call to SUPHMF and SUPHEC)
+!        Modified by J.-J. Morcrette 91-11-12
+!        Modified by K. YESSAD (MAY 2000): remove call to EC physics setup
+!         in a 2D model because some dimensionings are inconsistent and
+!         generate aborts, and because 2D models are purely adiabatic ones.
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        B.Sass        01-June-2006 (call setup for HIRLAM physics)
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KULOUT 
+LOGICAL :: LLSHW, LLVEQ, LL2D
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+#include "suphec.intfb.h"
+#include "suphmf.intfb.h"
+#include "suhlph.intfb.h"
+#include "suphyfl.intfb.h"
+#include "sumts.intfb.h"
+
+!     ------------------------------------------------------------------
+
+!*       0.    Set-up LL2D (2D model switch).
+!              ------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUPHY',0,ZHOOK_HANDLE)
+LLSHW=NCONF == 201.OR.NCONF == 421.OR.NCONF == 521
+LLVEQ=NCONF == 202.OR.NCONF == 422.OR.NCONF == 522
+LL2D=LLSHW.OR.LLVEQ
+
+!     ------------------------------------------------------------------
+
+!*       1.    Call initialization of specific physics' commons.
+!              -------------------------------------------------
+
+!*       1.1   Meteo-France Physics
+!              --------------------
+
+print *,'---- SUPHY: avant SUPHMF'
+CALL SUPHMF(KULOUT)
+!
+print *,'---- SUPHY: avant SUGFL'
+!SUGFL: Set up unified_treatment grid-point fields
+CALL SUGFL
+
+
+!*       1.2   ECMWF Physics
+!              -------------
+
+! IF Commente par MPL 20.11.08
+!IF (.NOT.LL2D) THEN
+   CALL SUPHEC(KULOUT)
+!ENDIF
+
+!        1.3   Initialize HIRLAM physics
+!              -------------------------
+! Commente par MPL 20.11.08
+!CALL SUHLPH(KULOUT)    
+!
+!     ------------------------------------------------------------------
+
+!*       2.    Initialize physics' flags commons.
+!              ----------------------------------
+
+! Commente par MPL 20.11.08
+!CALL SUPHYFL
+
+!     ------------------------------------------------------------------
+
+!*       3.    Initialize "model to satellite" RTTOV parameters.
+!              ------------------------------------------------
+
+! Commente par MPL 20.11.08
+!CALL SUMTS
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUPHY',1,ZHOOK_HANDLE)
+END SUBROUTINE SUPHY
Index: LMDZ5/trunk/libf/phylmd/rrtm/suphy0.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/suphy0.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/suphy0.F90	(revision 1989)
@@ -0,0 +1,723 @@
+
+!OPTIONS XOPT(NOEVAL)
+SUBROUTINE SUPHY0(KULOUT)
+
+!**** *SUPHY0*   - Initialize common YOMPHY0 physics atmospheric
+!                  constants
+
+!     Purpose.
+!     --------
+!           Initialize YOMPHY0, the common that contains the parameters
+!           for the atmospheric part of the physics of the model.
+
+!**   Interface.
+!     ----------
+!        *CALL* *SUPHY0(KULOUT)
+
+!        Explicit arguments :
+!        --------------------
+!        KULOUT : Logical unit for the output
+
+!        Implicit arguments :
+!        --------------------
+!        COMMON YOMPHY0
+
+!     Method.
+!     -------
+!        See documentation
+
+!     Externals.
+!     ----------
+
+!     Reference.
+!     ----------
+!        Documentation ARPEGE
+
+!     Author.
+!     -------
+!        J.-F. Geleyn .
+
+!     Modifications.
+!     --------------
+!        Original : 90-9-1
+!        Ajout de GWDAMP (J.-F. Geleyn) : 91-2-2
+!        Modified by Michel Deque 91-04-01 (param. for convect. clouds)
+!        Ajout de HOBST, NPCLO1/2, XNBMAX et REVGSL, remplacement de
+!           GWDCOE par GWDSE (J.-F. Geleyn, M. Deque, L. Labbe) : 92-4-8
+!        Ajout de VZ0CM (E. Bazile) : 92-3-27
+!        Modified by C. Castejon and E. Gerard 92-02-28 (stat. clouds)
+!        Modified by R. EL Khatib : 93-04-02 Set-up defaults controled by LECMWF
+!        Modified by M. Deque : 95-03-20 (USURIC and USUPRC)
+!        Modified by J.F. Geleyn C. Bossuet : 95-12-20 (GWDBC)
+!        Modified by Luc Gerard: 97-02-26 (entrainement de la qte de mvt horizontale).
+!        Modified by J.M. Piriou: 97-02-28 (schema de nebulosite ACNEBN).
+!        Modified by J.M. Piriou: 97-04-17 (valeurs par defaut).
+!        Modified by J.L. Ricard : seuil (SCO) sur les precip. conv.
+!                                  modif de la turbulence residuelle
+!        Modified by J.M. Piriou: 97-08-21 (introduce Xu-Randall cloudiness).
+!        Modified by M. Deque   : 97-10-21 (introduce GWD lift).
+!        Modified by M. Deque   : 98-02-21 (new mixing length profile).
+!        Modified by V. Lorant  : 98-08-05 (new mixing length profile).
+!        Modified by J.M. Piriou: 98-02-11 (introduce downdrafts tuning parameters).
+!        Modified by J.M. Piriou: 98-03-10 (introduce GRCVPP)
+!        Modified by L. Gerard  : 98-11-30 (TUDGP, TDDGP, GCOMOD)
+!        Modified by R. EL Khatib :98-12-14 Remove LRDSPIL
+!        Modified by J.M. Piriou: 99-01-04 (introduce GCVADS, GCVBETA)
+!        Modified by J.M. Piriou: 99-06-18 (introduce GCVPSI, GCVALFA, USURICL AND USURICE.
+!                                 Change default value for GDDEVA).
+!        Modified by J.M. Piriou: 2000-08-23 (new use of the Richardson critical number (USURID)).
+!        Modified by J.M. Piriou: 2000-08-23 (cloud core buoyancy as a fraction of an undilute plume (GCVNU)).
+!        Modified by J.M. Piriou: 2000-10-06 (exponent USURIDE).
+!        Modified by E. Bazile  : 2000-12-12 CYCORA's default value.
+!        Modified by J.M. Piriou: 2001-04-05 (introduce GCVMLT).
+!        Modified by Y. Bouteloup:2002-06-14 (introduce RCVEVAP).
+!        Modified by F. Bouyssel: 2002-06-25 (introduce UTILGUST, RRGAMMA, RRSCALE).
+!        Modified by J.M. Piriou: 2002-08-19 (introduce GPBLH*).
+!        Modified by D. Banciu:   2002-12-09 (introduce GCVPSIE).
+!        R. El Khatib : 2001-08-07 Pruning options
+!        J.M. Piriou  : 2002-01-10 set default values to operational ones.
+!        03-06, move rnlcurv rnegat into yomphy0 (F. Bouyssel, C. Fischer)
+!        E. Bazile : 2004-02-24 (introduce EDK).
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        E. Bazile : 2004-06-30 (inroduces XKLM).
+!        R. Brozkova : 2004-11 modifs for Xue-Randall cloud. scheme
+!        P. Marquet & F.Bouyssel : 2004-08-18 (Lopez)
+!        F.Bouyssel : 2005-07-18 (new defaults and new parameters for Lopez)
+!        F.Bouyssel : 2006-01-25 (new defaults for Lopez!)
+!        F. Vana    : 2006-01-30 tunables for pTKE.
+!        R.Brozkova : 2006-03-03 : tuning constants for mixing lengths and Charnock formulae
+!        A.Alias    : 2006-03-10 renaming KDN in RKDN
+!        Modified by GMGEC/EAC  : 2006-05 list of modif.
+!                    V. Lorant  : 99-01-05 (new mixing length profile).
+!                    M. Deque   : 00-03-21 (new entrainment rate VL  ).
+!                    P. Marquet : 2002-11-05 TRENTRVL=0. if not ACPBLH
+!                    P. Marquet : 2004-05-27 TFVR and TFVS for ADVPRC.
+!                    P. Marquet : 2004-10-13 RAUTEFR for snow (ACMICRO).
+!                    P. Marquet : 2004-10-14 RAUTSBET for snow (ACMICRO).
+!                    A. Alias   : 2005-06-23 (param. for ACCVIMPGDY)
+!        E. Bazile & P. Marquet : 2006-04-11 AGRE1,AGRERICR,AJBUMIN,RCOFLM 
+!                                  for LPBLE.
+!        F.Bouyssel : 2006-10-30 RQLCV,RQICVMAX,RQICVMIN,RHEVAP
+!        M. Bellus  : 03-Oct-2006 : ALARO-0 phasing (defaults for prognostic
+!                                   convection, pTKE and PIL microphysics)
+!        A.Alias     : 2006-07   FEVAPC added for ACCVIMPGY (JF Gueremy)
+! ------------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+! Ce qui concerne NULNAM commente par MPL le 15.04.09
+!USE YOMLUN   , ONLY : NULNAM
+USE YOMCT0B  , ONLY : LECMWF
+USE YOMSIMPHL, ONLY : LSIMPH   ,LSMOOTHD ,LSMOOTHA
+USE YOMPHY   , ONLY : LCVCAS   ,LCVLIS   ,LCVRA    ,LMPHYS   ,LCONDWT  ,&
+ & LPROCLD  ,LNEBCO   ,LNEBR    ,LECT     ,LNEBGR   ,LCVRAV3 ,LPIL
+USE YOMPHY0  , ONLY : TYM      ,NPCLO1   ,NPCLO2   ,AERCS1   ,AERCS3   ,&
+ & AERCS5   ,ALMAV    ,BEDIFV   ,ECMNP    ,EDB      ,EDC      ,&
+ & EDD      ,EVAP     ,FONT     ,GALP     ,GCCSV    ,GCOMOD   ,&
+ & GCVADS   ,GCVALFA  ,GCVBETA  ,GCVPSI   ,GDDEVA   ,GDDSDE   ,&
+ & GRCVPP   ,GWDAMP   ,GWDBC    ,GWDCCO   ,GWDCD    ,GWDLT    ,&
+ & AHCLPV   ,GWDSE    ,HOBST    ,HUCOE    ,HUCOE2   ,HUTIL    ,&
+ & HUTIL1   ,HUTIL2   ,&
+ & QSSC     ,QSMIN    ,QSNEBC   ,QSNEBS   ,QSSUSC   ,QSSUSS   ,&
+ & QXRAL    ,QXRDEL   ,QXRR     ,REVGSL   ,RTCAPE   ,SCO      ,&
+ & SENSL    ,SNNBCO   ,SPNBCO   ,SXNBCO   ,TCA      ,TCT      ,&
+ & TCW      ,TENTR    ,TENTRX   ,TDDGP    ,TUDGP    ,TURB     ,&
+ & TVF      ,UHDIFV   ,USDMLT   ,USUPRC   ,USURIC   ,USURID   ,&
+ & USURIDE  ,USURICE  ,USURICL  ,VCHRNK   ,VKARMN   ,VZ0CM    ,&
+ & XNBMAX   ,RICRLM   ,XBLM     ,XMINLM   ,XMAXLM   ,XWSALM   ,&
+ & XWSBLM   ,GCVNU    ,GCVMLT   ,RCVEVAP  ,GPBLHK0  ,GPBLHRA  ,&
+ & UTILGUST ,RRGAMMA  ,RRSCALE  ,GCVPSIE  ,QSUSXC   ,QSUSXS   ,&
+ & ETACUT   ,RNEGAT   ,RNLCURV  ,QSSUSV   ,QXRHX    ,GCISMIN  ,&
+ & GWDPROF  ,GWDVALI  ,RCIN     ,EDK      ,XKLM     ,RPHI0    ,&
+ & RPHIR    ,QXRTGH   ,ADISE    ,ADISI    ,AECLS3   ,AECLS4   ,&
+ & AKN      ,ALD      ,ALPHAE   ,ALPHAT   ,ECTMIN   ,UCWSTAR  ,&
+ & UDECT    ,USHEARM  ,UPRETMIN ,UPRETMAX ,ARSCH    ,ARSCQ    ,&
+ & ARSC1    ,ARSB2    ,ACBRPHIM ,ALMAVE   ,RICRET   ,STTBMIN  ,&
+ & AGREKE   ,RDTFAC   ,RAUTEFS  ,RNINTR   ,RNINTS   ,RQLCR    ,&
+ & RQICRMAX ,RQICRMIN ,RACCEF   ,RRIMEF   ,RHCRIT1  ,RHCRIT2  ,&
+ & RETAMIN  ,TFVR     ,TFVS     ,RAUTEFR  ,RAUTSBET ,GRHCMOD  ,&
+ & RQICRT1  ,RQICRT2  ,RQICRSN  ,RQCRNS   ,RFACNSM  ,RAGGEF   ,&
+ & RQLCV    ,RQICVMAX ,RQICVMIN ,RHEVAP   ,&
+ & AGRE1    ,AGRERICR ,AJBUMIN  ,RCOFLM   ,&
+ & A0ML_AU  ,A0ML_AT  ,A0ML_BU  ,A0ML_BT  ,VZIUSTAR0,&
+ & TENTRVL  ,TRENTRV  ,UETEPS   ,UPRECLP  ,&
+ & ARSC2    ,ARSCT    ,AGRE2    ,AGREF    ,&
+ & AJ1PEPS  ,AJ1MEPS  ,NAJITER  ,&
+ & ALFX     ,TCTC     ,TVFC     ,GAMAP1   ,RKDN      ,&
+ & VVN      ,VVX      ,FENTRT   ,HCMIN    ,FQLIC    ,FNEBC    ,&
+ & NUPTKE   ,GAMTKE   ,RCOLL    ,RFALLL   ,TDDBU    ,&
+ & TDDFR    ,TUDBU    ,TUDFR    ,GCVACHI  ,GCVALMX  ,GCVADMW  ,&
+ & GCVBEE   ,GCVEEX   ,ECMNPI   ,GFRIC    ,GCVSQDN  ,GCVSQDR  ,&
+ & GCVSQDCX ,GRRINTE  ,GRRMINA  ,GDDBETA  ,GDDEVF   ,GDDWPF   ,&
+ & TENTRD   ,RDPHIC   ,GWBFAUT  ,RWBF1    ,RWBF2    ,RAUITN   ,&
+ & RAUITX   ,RAUIUSTE ,RSMDNEBX ,RSMDTX   ,NSMTPA   ,NSMTPB   ,&
+ & FEVAPC
+
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KULOUT 
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+#include "abor1.intfb.h"
+#include "posnam.intfb.h"
+#include "surhcri.intfb.h"
+
+#include "namphy0.h"
+
+!     ------------------------------------------------------------------
+
+!*       1.    Set default values.
+!              -------------------
+
+!        1.1 Set implicit default values
+
+IF (LHOOK) CALL DR_HOOK('SUPHY0',0,ZHOOK_HANDLE)
+A0ML_AU=4.5_JPRB
+A0ML_AT=5.0_JPRB
+A0ML_BU=3.0_JPRB
+A0ML_BT=0.8_JPRB
+AERCS1=0.2726_JPRB
+AERCS3=-0.4239_JPRB
+AERCS5=0.3595_JPRB
+ALMAV=300._JPRB
+BEDIFV=0.05_JPRB
+ECMNP=3000._JPRB
+EDB=5._JPRB
+EDC=5._JPRB
+EDD=5._JPRB
+EDK=1.0_JPRB
+ETACUT=1.0_JPRB
+EVAP=4.8E+06_JPRB
+FONT=2.4E+04_JPRB
+GALP=0.53_JPRB
+GCISMIN=6.7E-05_JPRB
+GCCSV=0._JPRB
+GCOMOD=1._JPRB
+GCVADS=0.8_JPRB
+GCVALFA=4.5E-05_JPRB
+GCVBETA=0.2_JPRB
+GCVMLT=0.00016_JPRB
+GCVNU=2.5E-05_JPRB
+GCVPSI=0.5_JPRB
+GCVPSIE=0.0_JPRB
+GDDEVA=0.25_JPRB
+GDDSDE=0.5_JPRB
+GPBLHK0=0.25_JPRB
+GPBLHRA=4._JPRB
+GRCVPP=1._JPRB
+GWDAMP=0.6_JPRB
+GWDBC=2._JPRB
+GWDCCO=1._JPRB
+GWDCD=6._JPRB
+GWDLT=0._JPRB
+GWDSE=3.5E-03_JPRB
+GWDPROF=1._JPRB
+GWDVALI=0._JPRB
+HOBST=3._JPRB
+HUCOE=2._JPRB
+HUCOE2=0.4_JPRB
+HUTIL=1.8_JPRB
+HUTIL1=-0.6_JPRB
+HUTIL2=1.1_JPRB
+NPCLO1=1
+NPCLO2=1
+QSSC=1600._JPRB
+QSMIN=1.E-4_JPRB
+QSNEBC=26000._JPRB
+QSNEBS=0.7_JPRB
+QSSUSC=1._JPRB
+QSSUSS=0.25_JPRB
+QSSUSV=0._JPRB
+QSUSXC=3.3E-05_JPRB
+QSUSXS=3.3E-05_JPRB
+RPHI0=0._JPRB
+RPHIR=1750._JPRB
+QXRAL=10000._JPRB
+QXRDEL=0._JPRB
+QXRHX=1._JPRB
+QXRR=0.5_JPRB
+QXRTGH=3.5_JPRB
+RCIN=0._JPRB
+RCVEVAP=0._JPRB
+REVGSL=80._JPRB
+RTCAPE=10800._JPRB
+SCO=-20._JPRB
+SENSL=1._JPRB
+SNNBCO=0._JPRB
+SPNBCO=3000._JPRB
+SXNBCO=0.5_JPRB
+TCA=1._JPRB
+TCT=1.E-4_JPRB
+TCW=8.E-4_JPRB
+TENTR=2.5E-06_JPRB
+TENTRX=8.E-05_JPRB
+TDDGP=0.8_JPRB
+TUDGP=0.8_JPRB
+TURB=1._JPRB
+TVF=1._JPRB
+TYM(1)=0.92_JPRB
+TYM(2)=0.74_JPRB
+TYM(3)=16.6_JPRB
+TYM(4)=10.1_JPRB
+TYM(5)=0.08_JPRB
+UHDIFV=8.E-04_JPRB
+USDMLT=1.25E+04_JPRB
+USUPRC=0.0_JPRB
+USURIC=1.0_JPRB
+USURID=0.035_JPRB
+USURIDE=1.0_JPRB
+USURICE=0.5_JPRB
+USURICL=4._JPRB
+UTILGUST=0.125_JPRB
+VCHRNK=0.021_JPRB
+VKARMN=0.4_JPRB
+VZ0CM=1.5E-04_JPRB
+VZIUSTAR0=0._JPRB
+XNBMAX=1._JPRB
+AHCLPV=1000._JPRB
+RICRLM=0.5_JPRB
+RRGAMMA=0.8_JPRB
+RRSCALE=1.15E-4_JPRB
+XBLM=6.5_JPRB
+XKLM=1.0_JPRB
+XMAXLM=3000._JPRB
+XMINLM=500._JPRB
+XWSALM=0.1_JPRB
+XWSBLM=7.0_JPRB
+RNEGAT = -7.E-05_JPRB
+RNLCURV = 7.E+04_JPRB
+
+!     - - - - - - - - - - - - - -
+!     The old Convective scheme :
+!     - - - - - - - - - - - - - -
+TRENTRV=1._JPRB
+TENTRVL=-1.0_JPRB
+
+IF ( LCONDWT.AND.LPROCLD ) THEN
+  RDTFAC=0.5_JPRB
+ELSE
+  RDTFAC=1.0_JPRB
+ENDIF
+
+!        - - - - - - - - - -
+!        Lopez Microphysics :
+!        - - - - - - - - - -
+RAUTEFR=1.E-03_JPRB
+RAUTEFS=1.E-03_JPRB
+RAUTSBET=0.025_JPRB
+RNINTR=8.E+06_JPRB
+RNINTS=2.E+06_JPRB
+RQLCR=2.E-04_JPRB
+RQICRMAX=0.3E-04_JPRB
+RQICRMIN=0.2E-06_JPRB
+RQLCV=2.E-04_JPRB
+RQICVMAX=0.3E-04_JPRB
+RQICVMIN=0.2E-06_JPRB
+RQICRT1=-80._JPRB
+RQICRT2=30._JPRB
+RQICRSN=0.5_JPRB
+RQCRNS=0.03_JPRB
+RACCEF=1._JPRB
+RAGGEF=0.2_JPRB
+RRIMEF=1._JPRB
+RHEVAP=0.0_JPRB
+RHCRIT1=0.5_JPRB
+RHCRIT2=0.91_JPRB
+RETAMIN=0.4_JPRB
+RFACNSM=1.4_JPRB
+TFVR=5.0_JPRB
+TFVS=0.6_JPRB
+GRHCMOD=0.3_JPRB
+
+
+!--------------------------
+! PIL MICROPHYSICS
+!--------------------------
+RDPHIC=10000._JPRB
+GWBFAUT=15._JPRB
+! two constants for ACPLUIE_PROG:
+RWBF1=300._JPRB
+RWBF2=4._JPRB
+!
+RAUITN=233.15_JPRB
+RAUITX=263.15_JPRB
+RAUIUSTE=0.025_JPRB
+RSMDNEBX=0.2_JPRB
+RSMDTX=1.0_JPRB
+NSMTPA=2
+NSMTPB=3
+RCOLL=6.9E-03_JPRB
+RFALLL=1.0_JPRB
+!--------------------------
+! Prognostic convection physical parameters
+!--------------------------
+TUDBU=0.5_JPRB
+TDDBU=0.5_JPRB
+TUDFR=0.0012_JPRB
+TDDFR=0.0006_JPRB
+GCVALMX=0.95_JPRB
+! Pas d'activite historique: defaut tres haut,
+! pour que KUO joue tout seul:
+GCVACHI=1.E9_JPRB
+GCVADMW =0
+! Explicit entrainment:
+GCVBEE=0._JPRB ! 0.2_JPRB
+GCVEEX=1._JPRB
+ECMNPI=3000._JPRB
+GFRIC=-1.0_JPRB !1.E-3_JPRB
+! Sqeezing:
+GCVSQDN=0.01_JPRB
+GCVSQDR=0.8_JPRB
+GCVSQDCX=1.0_JPRB ! No squeezing
+! PRECIPITATING AREA PARAMETERS (aplpar):
+GRRINTE=2._JPRB
+GRRMINA=1.E-5_JPRB
+! DD explicit detrainment:
+GDDBETA=0.2_JPRB
+! ACMODO DD PARAMETERS:
+GDDEVF=0.5_JPRB
+GDDWPF=0._JPRB
+! DD ENTRAINMENT RATE:
+TENTRD=1.E-4_JPRB
+
+!     - - - - - - - -
+!     For TKE scheme :
+!     - - - - - - - -
+ADISE=-0.5_JPRB
+ADISI=1.5_JPRB
+AECLS3=3.75_JPRB
+AECLS4=0.3_JPRB
+AKN=0.2_JPRB
+ALD=1.4_JPRB
+ALPHAE=1.0_JPRB
+ALPHAT=1.0_JPRB
+ECTMIN=1.E-10_JPRB
+
+UCWSTAR=1.0_JPRB/3._JPRB
+UDECT=5._JPRB
+USHEARM=1.E-04_JPRB
+UPRETMIN=60000._JPRB
+UPRETMAX=97500._JPRB
+ARSCH=4._JPRB
+ARSCQ=1.2_JPRB
+ARSC1=2.0_JPRB/(3._JPRB*ARSCH*ARSCQ)
+ARSB2=3._JPRB*ARSCH*ARSC1/2.0_JPRB
+ACBRPHIM=2.2_JPRB
+ALMAVE=0._JPRB
+RICRET=0.195_JPRB
+
+STTBMIN=SQRT(3._JPRB)
+! A minimum value for the adimentional jump in boyancy : d(Theta)/Theta
+AJBUMIN=0.005_JPRB
+! The "Master Length" is equal to "RCOFLM*Z_PBL"
+RCOFLM=0.085_JPRB
+
+
+! TKE (P.Marquet)
+UETEPS=1.0_JPRB 
+
+!     - - - - - - - - - - - - - - - -
+!     For dry conv. adjustment scheme :
+!     - - - - - - - - - - - - - - - -
+AJ1MEPS=0.99_JPRB
+AJ1PEPS=10.0_JPRB
+NAJITER=30
+
+!     - - - - - - - - - - - - - - - - - - - - - - -
+!     For Grenier (2000) top-PBL entrainment scheme :
+!     - - - - - - - - - - - - - - - - - - - - - - -
+AGRE1=0.16_JPRB
+AGRE2=15._JPRB
+AGREF=0.8_JPRB
+AGREKE=5.0_JPRB
+AGRERICR=50._JPRB
+
+! Pseudo prognostic TKE scheme
+NUPTKE=0.52_JPRB
+GAMTKE=0.5_JPRB
+
+
+
+!     - - - - - - -
+!     For ACCVIMPGY :
+!     - - - - - - -
+ALFX=10.E-02_JPRB
+TCTC=1.60E-04_JPRB
+TVFC=1._JPRB
+GAMAP1=1.5_JPRB
+RKDN=30.E-06_JPRB
+VVN=0.0_JPRB
+VVX=-45._JPRB
+FENTRT=2.5_JPRB
+HCMIN=0.0_JPRB
+FQLIC=2.5_JPRB
+FNEBC=25.0_JPRB
+FEVAPC=3.5_JPRB
+
+!        1.2 Modify default values according to LECMWF
+
+IF (LECMWF) THEN
+ELSE
+ENDIF
+
+!     ------------------------------------------------------------------
+
+!*       2.    Modify default values.
+!              ----------------------
+
+! Ce qui concerne NAMPHY0 commente par MPL le 15.04.09
+!CALL POSNAM(NULNAM,'NAMPHY0')
+!READ(NULNAM,NAMPHY0)
+
+IF(.NOT.(LNEBCO.AND.(LNEBR.OR.LNEBGR.OR.LECT)) .AND.LCVRAV3) THEN
+  WRITE(UNIT=KULOUT,FMT='(A)') ' '
+  WRITE(UNIT=KULOUT,FMT='(A)') ' !'
+  WRITE(UNIT=KULOUT,FMT='(A)') ' ! TENTRVL is set to 0. in SUPHY0  !!'
+  WRITE(UNIT=KULOUT,FMT='(A)') ' !'
+  WRITE(UNIT=KULOUT,FMT='(A)') ' '
+  TENTRVL = 0.0_JPRB
+ENDIF
+!     ------------------------------------------------------------------
+
+!*       3.    Print final values.
+!              -------------------
+
+WRITE(UNIT=KULOUT,FMT='('' COMMON YOMPHY0 '')')
+WRITE(UNIT=KULOUT,FMT='('' AERCS1 = '',E11.4,'' AERCS3 = '',E11.4 &
+ & ,'' AERCS5 = '',E11.4,'' ALMAV = '',E11.4,'' ECMNP = '',E11.4 &
+ & ,'' EDB = '',E11.4,/,'' EDC = '',E11.4,'' EDD = '',E11.4 &
+ & ,'' EDK = '',E11.4,'' ETACUT = '',E11.4 &
+ & ,'' EVAP = '',E11.4,'' FONT = '',E11.4,'' GWDAMP = '',E11.4 &
+ & ,'' GWDSE = '',E11.4,'' GWDBC = '',E11.4,/&
+ & ,'' GWDCD = '',E11.4,/&
+ & ,'' GWDPROF = '',E11.4,'' GWDVALI = '',E11.4,/&
+ & ,'' HUCOE = '',E11.4,'' HUTIL = '',E11.4 ,'' HUTIL1 = '',E11.4 ,'' HUTIL2 = '',E11.4 &
+ & ,'' VCHRNK = '',E11.4,'' VKARMN = '',E11.4 &
+ & ,'' SNNBCO = '',E11.4,/,'' SPNBCO = '',E11.4 &
+ & ,'' SXNBCO = '',E11.4,'' HOBST = '',E11.4,'' NPCLO1 = '',I4 &
+ & ,'' NPCLO2 = '',I4,'' RCIN = '',E11.4,'' RCVEVAP = '',E11.4 &
+ & ,'' REVGSL = '',E11.4,/&
+ & ,'' RTCAPE= '',E11.4,'' GCOMOD= '',E11.4,/&
+ & ,'' UHDIFV = '',E11.4,'' VZ0CM = '',E11.4,'' VZIUSTAR0 = '',E11.4 &
+ & ,'' XNBMAX = '',E11.4,'' GALP = '',E11.4,'' SENSL = '',E11.4 &
+ & ,'' TCA = '',E11.4,/,'' TCT = '',E11.4,'' TCW = '',E11.4 &
+ & ,'' TURB = '',E11.4,'' TVF = '',E11.4,/&
+ & ,'' TYM = '',5E11.4,'' QSMIN = '',E11.4,/&
+ & ,'' QSSC = '',E11.4,'' RPHI0 = '',E11.4,'' RPHIR = '',E11.4 &
+ & ,'' BEDIFV = '',E11.4,'' SCO = '',E11.4 &
+ & ,'' USDMLT = '',E11.4,/&
+ & ,'' GDDEVA = '',E11.4,'' GDDSDE = '',E11.4,/&
+ & ,'' GWDCCO = '',E11.4 &
+ & ,'' HUCOE2 = '',E11.4,/&
+ & ,'' TENTR = '',E11.4,'' TENTRX = '',E11.4 &
+ & ,'' TUDGP = '',E11.4,'' TDDGP = '',E11.4 &
+ & ,'' GRCVPP = '',E11.4 &
+ & )')&
+ & AERCS1,AERCS3,AERCS5,ALMAV,ECMNP,EDB,EDC,EDD,EDK,ETACUT,EVAP,FONT,&
+ & GWDAMP,GWDSE,GWDBC,GWDCD,GWDPROF,GWDVALI,&
+ & HUCOE,HUTIL,HUTIL1,HUTIL2,VCHRNK,VKARMN,SNNBCO,SPNBCO,SXNBCO,HOBST,&
+ & NPCLO1,NPCLO2,RCIN,RCVEVAP,REVGSL,RTCAPE,GCOMOD,&
+ & UHDIFV,VZ0CM,VZIUSTAR0,XNBMAX,GALP,SENSL,TCA,TCT,TCW,&
+ & TURB,TVF,TYM,QSMIN,QSSC,RPHI0,RPHIR,BEDIFV,SCO,USDMLT,&
+ & GDDEVA,GDDSDE,GWDCCO,&
+ & HUCOE2,&
+ & TENTR,TENTRX,TUDGP,TDDGP,GRCVPP  
+WRITE(UNIT=KULOUT,FMT='('' USUPRC = '',E11.4,'' USURIC = '',E11.4 &
+ & ,'' QSNEBC = '',E11.4,'' QSNEBS = '',E11.4 &
+ & ,'' QSSUSC = '',E11.4,'' QSSUSS = '',E11.4,'' QSSUSV = '',E11.4 &
+ & ,'' QSUSXC = '',E11.4,'' QSUSXS = '',E11.4 &
+ & ,'' GCCSV  = '',E11.4,/&
+ & ,'' QXRAL  = '',E11.4,'' QXRDEL = '',E11.4 &
+ & ,'' QXRHX  = '',E11.4,'' QXRR   = '',E11.4,'' QXRTGH = '',E11.4,/&
+ & ,'' GWDLT  = '',E11.4,'' AHCLPV = '',E11.4,/&
+ & ,'' GCVADS = '',E11.4,'' GCVBETA= '',E11.4 &
+ & ,'' RICRLM = '',E11.4,'' XBLM   = '',E11.4,'' XKLM = '',E11.4 &
+ & ,'' XMINLM = '',E11.4,'' XMAXLM = '',E11.4 &
+ & )')&
+ & USUPRC,USURIC,QSNEBC,QSNEBS,QSSUSC,QSSUSS,QSSUSV,QSUSXC,QSUSXS,GCCSV,QXRAL &
+ & ,QXRDEL,QXRHX,QXRR,QXRTGH,GWDLT,AHCLPV,GCVADS,GCVBETA,RICRLM,XBLM,XKLM,XMINLM &
+ & ,XMAXLM  
+WRITE(UNIT=KULOUT,FMT='('' XWSALM = '',E11.4,'' XWSBLM = '',E11.4 &
+ & ,'' GCVALFA= '',E11.4,'' GCVPSI = '',E11.4,'' GCVPSIE = '',E11.4 &
+ & ,'' USURICL= '',E11.4,'' USURICE= '',E11.4,/ &
+ & ,'' USURID= '',E11.4,'' USURIDE= '',E11.4,'' GCVNU= '',E11.4 &
+ & ,'' GCVMLT= '',E11.4,'' GPBLHK0= '',E11.4,'' GPBLHRA = '',E11.4 &
+ & ,'' UTILGUST= '',E11.4,'' RRGAMMA= '',E11.4,'' RRSCALE = '',E11.4 &
+ & )')&
+ & XWSALM,XWSBLM,GCVALFA,GCVPSI,GCVPSIE,USURICL,USURICE,USURID,USURIDE,GCVNU,GCVMLT,GPBLHK0 &
+ & ,GPBLHRA,UTILGUST,RRGAMMA,RRSCALE  
+WRITE(UNIT=KULOUT,FMT='('' RNEGAT == '',E11.4,'' RNLCURV = '',E11.4 &
+ & )') RNEGAT,RNLCURV  
+WRITE(UNIT=KULOUT,FMT='('' RDTFAC == '',E11.4 )') RDTFAC
+WRITE(UNIT=KULOUT,FMT='(9(5(A,E11.4),/))') 'GCISMIN=',GCISMIN
+WRITE(UNIT=KULOUT,FMT='('' A0ML_AU == '',E11.4,'' A0ML_AT == '',E11.4 &
+ &,'' A0ML_BU == '',E11.4,'' A0ML_BT == '',E11.4 )') A0ML_AU,A0ML_AT&
+ &,A0ML_BU,A0ML_BT
+
+!     - - - - - - - -
+!     For TKE scheme :
+!     - - - - - - - -
+! WRITE(UNIT=KULOUT,FMT='( '' ADISE   = '',E11.4,'' ADISI   = '',E11.4,/ &
+!  &,'' AECLS3  = '',E11.4,'' AECLS4  = '',E11.4,'' AKN     = '',E11.4,/ &
+!  &,'' ALD     = '',E11.4,'' ALPHAE  = '',E11.4,'' ALPHAT  = '',E11.4,/ &
+!  &,'' ECTMIN  = '',E11.4,'' UCWSTAR = '',E11.4,'' UDECT   = '',E11.4,/ &
+!  &,'' USHEARM = '',E11.4,/ &
+!  &,'' UPRETMIN= '',E11.4,'' UPRETMAX= '',E11.4,'' ARSCH   = '',E11.4,/ &
+!  &,'' ARSCQ   = '',E11.4,'' ARSC1   = '',E11.4,/ &
+!  &,'' ARSB2   = '',E11.4,'' STTBMIN = '',E11.4,/ &
+!  &,'' ACBRPHIM= '',E11.4,'' ALMAVE  = '',E11.4,'' RICRET  = '',E11.4,/ &
+!  &,'' UETEPS  = '',E11.4,/ &
+!  &,'' ABJUMIN = '',E11.4,'' RCOFLM  = '',E11.4,&
+!      &)')&
+   WRITE(UNIT=KULOUT,FMT=*) &
+  &ADISE,ADISI,AECLS3,AECLS4,AKN,ALD,ALPHAE,ALPHAT,ECTMIN,UCWSTAR,UDECT,&
+  &USHEARM,UPRETMIN,UPRETMAX,ARSCH,ARSCQ,ARSC1,ARSB2,STTBMIN,&
+  &ACBRPHIM,ALMAVE,RICRET,UETEPS,AJBUMIN,RCOFLM
+
+
+!       - - - - - - - - - -
+!       Lopez Microphysics :
+!       - - - - - - - - - -
+WRITE(UNIT=KULOUT,FMT='('' - - - - - - - - - - - '')')
+WRITE(UNIT=KULOUT,FMT='(''  Microphysics scheme  '')')
+WRITE(UNIT=KULOUT,FMT='('' - - - - - - - - - - - '')')
+WRITE(UNIT=KULOUT,FMT='( '' RAUTEFR = '',E11.4   &
+ &,'' RAUTEFS = '',E11.4,'' RAUTSBET= '',E11.4,/ &
+ &,'' RNINTR  = '',E11.4,'' RNINTS  = '',E11.4,/ &
+ &,'' RQLCR   = '',E11.4,'' RQCRNS  = '',E11.4,/ &
+ &,'' RQICRMIN= '',E11.4,'' RQICRMAX= '',E11.4,/ &
+ &,'' RQLCV   = '',E11.4 &
+ &,'' RQICVMIN= '',E11.4,'' RQICVMAX= '',E11.4,/ &
+ &,'' RQICRT1 = '',E11.4,'' RQICRT2 = '',E11.4,/ &
+ &,'' RQICRSN = '',E11.4,'' RACCEF  = '',F11.4,/ &
+ &,'' RAGGEF  = '',F11.4,'' RRIMEF  = '',F11.4,/ &
+ &,'' RHCRIT1 = '',F11.6,'' RHCRIT2 = '',F11.6,/ &
+ &,'' RETAMIN = '',F11.6,'' RFACNSM = '',F11.6,/ &
+ &,'' TFVR    = '',F11.6,'' TFVS    = '',F11.6,/ &
+ &,'' GRHCMOD = '',F11.6,'' RHEVAP  = '',F11.6,/ &
+ &    )') &
+ &RAUTEFR,RAUTEFS,RAUTSBET,RNINTR,RNINTS,RQLCR,RQCRNS,RQICRMIN,RQICRMAX, &
+ &RQLCV,RQICVMIN,RQICVMAX,RQICRT1,RQICRT2,RQICRSN,RACCEF,RAGGEF,RRIMEF, &
+ &RHCRIT1,RHCRIT2,RETAMIN,RFACNSM,TFVR,TFVS,GRHCMOD,RHEVAP
+
+!     - - - - - - - - - - -
+!     For Grenier scheme :
+!     - - - - - - - - - - -
+!WRITE(UNIT=KULOUT,FMT='('' AGRE1   = '',E11.4,'' AGRE2   = '',E11.4,'' AGREF   = '',E11.4,/ &
+! & ,'' AGRERICR= '',E11.4,'' AGREKE  = '',E11.4, &
+! & )')&
+WRITE(UNIT=KULOUT,FMT=*) &
+ & AGRE1,    AGRE2,   AGREF,      AGRERICR, AGREKE
+
+!     - - - - - - - - - - - - - - - -
+!     For dry conv. adjustment scheme :                                -
+!     - - - - - - - - - - - - - - - -
+WRITE(UNIT=KULOUT,FMT='(&
+ & '' AJ1PEPS = '',E11.4,'' AJ1MEPS = '',E11.4,'' NAJITER = '',I3,8X &
+ & )')&
+ & AJ1PEPS, AJ1MEPS, NAJITER
+
+!     - - - - - - -
+!     For ACCVIMPGY :
+!     - - - - - - -
+WRITE(UNIT=KULOUT,FMT='( '' ALFX    = '',E11.4  &
+ &,'' TCTC    = '',E11.4,'' TVFC    = '',F11.6,/ &
+ &,'' GAMAP1  = '',F11.6,'' RKDN    = '',E11.4,/ &
+ &,'' VVN     = '',F11.6,'' VVX     = '',F11.6,/ &
+ &,'' FENTRT  = '',F11.6,'' HCMIN   = '',F11.6  &
+ &,'' FQLIC   = '',F11.6,'' FNEBC   = '',F11.6,/ &
+ &,'' FEVAPC  = '',F11.6)')&
+ & ALFX, TCTC, TVFC, GAMAP1, RKDN, VVN, VVX, FENTRT, &
+ & HCMIN, FQLIC, FNEBC, FEVAPC
+
+
+WRITE(UNIT=KULOUT,FMT='(''  Pseudo prognostic TKE scheme  '')')
+WRITE(UNIT=KULOUT,FMT='( '' NUPTKE = '',E11.4  &
+ &'' GAMTKE = '',E11.4)') NUPTKE,GAMTKE
+
+WRITE(KULOUT,'(/'' PIL MICROPHYSICS : '')')
+WRITE(UNIT=KULOUT,FMT='('' RAUIUSTE = '',E10.4  &
+ &,'' RAUITN = '',F8.3,'' RAUITX = '',F8.3  &
+ &,'' RDPHIC = '',F8.2   &
+ &,'' GWBFAUT = '',F5.2 &
+ &,'' RWBF1 = '',F6.2,'' RWBF2 = '',F5.2 &
+ &,'' RSMDNEBX = '',F5.2 &
+ &,'' RSMDTX = '',F5.2 &
+ &,'' NSMTPA = '',I2 &
+ &,'' NSMTPB = '',I2 &
+ &,'' RCOLL = '',E11.4 &
+ &,'' RFALLL = '',E11.4 &
+ &    )') &
+ &RAUIUSTE,RAUITN,RAUITX,RDPHIC,GWBFAUT,RWBF1,RWBF2,&
+ &RSMDNEBX, RSMDTX, NSMTPA, NSMTPB, RCOLL, RFALLL
+!----------------------------------------
+WRITE(KULOUT,'(/'' PROGNOSTIC CONVECTION '')')
+if (1==0) then     !!!!! A REVOIR (MPL)
+WRITE(KULOUT,&
+ &'('' TUDBU='',E16.6,'' TUDFR='',E16.6,'' TDDBU='',E16.6,'' TDDFR='', &
+ & E16.6,&
+ & '' GCVALMX='',G10.4,'' GCVACHI='',E16.6,&
+ & '' GCVADMW='',G10.4,&
+ & '' GCVEEX ='',G10.4,&
+ & '' GCVBEE ='',G10.4,&
+ & '' GCVSQDN ='',G10.4,&
+ & '' GCVSQDR ='',G10.4,&
+ & '' GCVSQDCX ='',G10.4,&
+ & '' ECMNPI ='',G10.4,&
+ & '' GFRIC ='',G10.4&
+ & )')TUDBU,TUDFR,TDDBU,TDDFR,GCVALMX,GCVACHI,&
+ &    GCVADMW,GCVEEX,GCVBEE, &
+ &    GCVSQDN, GCVSQDR, GCVSQDCX, ECMNPI,GFRIC
+else
+  print*,'>>>>> TOTO1 ', TUDBU,TUDFR,TDDBU,TDDFR,GCVALMX,GCVACHI,&
+ &    GCVADMW,GCVEEX,GCVBEE, &
+ &    GCVSQDN, GCVSQDR, GCVSQDCX, ECMNPI,GFRIC
+endif
+WRITE(KULOUT,&
+ &'('' GDDEVF='',G10.4,'' GDDWPF='',G10.4,'' GDDBETA='',G10.4)')&
+ & GDDEVF, GDDWPF, GDDBETA
+WRITE(KULOUT,&
+ & '('' GRRINTE ='',G10.4,'' GRRMINA ='',G10.4&
+ & )') GRRINTE, GRRMINA
+!     ------------------------------------------------------------------
+
+!*       4.    Check consistency between logical and real namelist inputs.
+!              -------------------
+
+IF (LMPHYS) THEN
+
+  IF(LCVRA.AND.((TUDGP /= 0.0_JPRB.OR.TDDGP /= 0.0_JPRB).AND..NOT.LCVCAS)) THEN
+    WRITE(UNIT=KULOUT,FMT='(A)') &
+     & 'INCONSISTENCY BETWEEN TUDGP, TDDGP AND LCVCAS!...'  
+    CALL ABOR1('TUDP<>0. OR TDDGP<>0. IMPLIES LCVCAS=T!...')
+  ENDIF
+
+  IF(.NOT.LCVLIS.AND.GCVPSI /= 0.0_JPRB) THEN
+    WRITE(UNIT=KULOUT,FMT='(A)') 'INCONSISTENCY BETWEEN LCVLIS AND GCVPSI!...'
+    CALL ABOR1('LCVLIS=F IMPLIES GCVPSI=0.!...')
+  ENDIF
+
+ENDIF
+
+!*  Consistency check for simplified physics keys
+
+IF ((LMPHYS.OR.LSIMPH).AND.(LSMOOTHD.OR.LSMOOTHA)) THEN
+
+  IF(RNLCURV == 0.0_JPRB) THEN
+    WRITE(UNIT=KULOUT,FMT='(A)') 'SMOOTHING IN SIM. PH. BUT RNLCURV = ZERO'
+    CALL ABOR1('PHYSICS AND SMOOTHING IMPLY RNLCURV /= ZERO')
+  ENDIF
+
+ENDIF
+IF (LPIL) THEN
+! Setup RHCRI profile(s)
+! (for LAM case... GAW set up by suecuv, called before suphy)
+! (For Not LAM, SULEG called by sugem called before suphy)
+  CALL SURHCRI(KULOUT)
+! CALL SULOCST(KULOUT)
+ENDIF
+
+IF (LHOOK) CALL DR_HOOK('SUPHY0',1,ZHOOK_HANDLE)
+END SUBROUTINE SUPHY0
Index: LMDZ5/trunk/libf/phylmd/rrtm/suphy0.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/suphy0.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/suphy0.intfb.h	(revision 1989)
@@ -0,0 +1,6 @@
+INTERFACE
+SUBROUTINE SUPHY0(KULOUT)
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KULOUT
+END SUBROUTINE SUPHY0
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/suphy1.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/suphy1.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/suphy1.F90	(revision 1989)
@@ -0,0 +1,449 @@
+!OPTIONS XOPT(NOEVAL)
+SUBROUTINE SUPHY1(KULOUT)
+
+!**** *SUPHY1*   - Initialize common YOMPHY1 physics land surface
+!                  constants
+
+!     Purpose.
+!     --------
+!           Initialize YOMPHY1, the common that contains the parameters
+!           for the land surface part of the physics of the model.
+
+!**   Interface.
+!     ----------
+!        *CALL* *SUPHY1(KULOUT)
+
+!        Explicit arguments :
+!        --------------------
+!        KULOUT : Logical unit for the output
+
+!        Implicit arguments :
+!        --------------------
+!        COMMON YOMPHY1
+
+!     Method.
+!     -------
+!        See documentation
+
+!     Externals.
+!     ----------
+
+!     Reference.
+!     ----------
+!        Documentation ARPEGE
+
+!     Author.
+!     -------
+!        J.-F. Geleyn .
+
+!     Modifications.
+!     --------------
+!        Original : 90-9-1
+!        Modified 91-02-28 by Michel Deque (Relaxation of deep soil values)
+!        Modified by R. EL Khatib : 93-04-02 Set-up defaults controled by LECMWF
+!        Modified by M. Deque     : 94-10-19 4-layer soil temperature
+!        Modified by D. Giard     : 94-10-07 Constants for ACSOL
+!                                            Control keys : LIMC, LIMW
+!        Modified by H. Douville : 95-01-13 Snow parameterization
+!        Modified by D. Giard     : 95-03-09 Loop for SODELX modified
+!                                   95-09-08 Constants for LSNV
+!        Modified by P. Mercier   : 97-03-24 Ozone difusion + deposition
+!        Modified by E. Bazile    : 97-05-05 C1 option vapour phase
+!        Modified by J.M. Piriou : 97-02-26 soil inertia.
+!        Modified by M. Deque     : 97-04-10 Sea-ice parameters
+!        Modified by J.M. Piriou : 97-04-17 soil inertia default values.
+!        Modified by D. Giard    : 97-11-13 defaults for veget. features
+!        Modified by E. Bazile   : 97-12-08 Soil freezing.
+!        Modified by E. Bazile   : 00-12-12 Default value for soil freezing.
+!        Modified by E. Bazile   : 02-10-29 Defaults for the snow scheme LVGSN.
+!        Modified by E. Bazile   : 04-02-24 Introduce NCHSP.
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+! Ce qui concerne NULNAM commente par MPL le 15.04.09
+!USE YOMLUN   , ONLY : NULNAM
+USE YOMCST   , ONLY : RPI      ,RDAY     ,RG       ,RCS
+USE SURFACE_FIELDS   , ONLY : YSD_VVD, YSP_SBD
+USE YOMCT0B  , ONLY : LECMWF
+USE YOMPHY1  , ONLY : GF3      ,GF4      ,TREF4    ,RCTVEG   ,&
+ & RGL      ,SODELX   ,GCZ0H    ,ALBGLA   ,ALBMAX   ,&
+ & ALBMER   ,ALBMED   ,ALBMIN   ,ALCRIN   ,ALRCN1   ,ALRCN2   ,&
+ & EA       ,EC2REF   ,EMCRIN   ,EMMGLA   ,EMMMER   ,&
+ & EWFC     ,EWWILT   ,GA       ,GC1      ,GC1S1    ,&
+ & GC1S2    ,GC1S3    ,GC1S4    ,GC1Y1    ,GTSVAP   ,&
+ & GVEGMX   ,GLAIMX   ,GNEIMX   ,GWPIMX   ,GCGEL    ,&
+ & GC2      ,GC2REF   ,GC3      ,GC31     ,GC32     ,&
+ & GCONV    ,GF1      ,GWFC     ,GWLEX    ,GWLMX    ,&
+ & GWWILT   ,G1B      ,G1CGSAT  ,G1C1SAT  ,G1P      ,&
+ & G1WSAT   ,G2B      ,G2CGSAT  ,G2C1SAT  ,G2P      ,&
+ & G2WSAT   ,G3CGSAT  ,GSNC1    ,GSNC2    ,HSOL     ,&
+ & HSOLIWR  ,HSOLIT0  ,OMTPRO   ,OMWPRO   ,RC1MAX   ,&
+ & RCTGLA   ,RCGMAX   ,RD1      ,RD2GLA   ,RD2MER   ,&
+ & RHOMAX   ,RHOMIN   ,RSMAX    ,RTINER   ,RZ0GLA   ,&
+ & RZ0MER   ,RZHZ0G   ,RZHZ0M   ,RZHGLA   ,RZHMER   ,&
+ & TMERGL   ,TOEXP    ,&
+ & TOLIN    ,WCRIN    ,WCRINC   ,WCRING   ,WNEW     ,&
+ & WPMX     ,WSMX     ,XCRINR   ,XCRINV   ,LIMC     ,&
+ & LIMW     ,LC1VAP   ,NTVGLA   ,NTVMER   ,GCGELS   ,&
+ & GVEGMXS  ,GLAIMXS  ,GNEIMXS  ,ALB1     ,ALB2     ,&
+ & RLAIMX   ,RLAI     ,NCHSP  
+USE YOMVDOZ  , ONLY : VDHJS    ,VDHJH    ,VDHNS    ,VDHNH    ,&
+ & VDPJS    ,VDPJH    ,VDPNS    ,VDPNH    ,VDEJS    ,&
+ & VDEJH    ,VDENS    ,VDENH    ,VDAJS    ,VDAJH    ,&
+ & VDANS    ,VDANH    ,VDNJS    ,VDNJH    ,VDNNS    ,&
+ & VDNNH    ,VOZNJ    ,VOZHS    ,LRDIFOZ  ,LRDEPOZ  
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KULOUT 
+INTEGER(KIND=JPIM) :: IVEG, J
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+#include "abor1.intfb.h"
+#include "posnam.intfb.h"
+
+#include "namphy1.h"
+#include "namvdoz.h"
+!     ------------------------------------------------------------------
+
+!*       1.    Set default values.
+!              -------------------
+
+!        1.1 Set implicit default values
+
+!  Snow , Sea-Ice
+IF (LHOOK) CALL DR_HOOK('SUPHY1',0,ZHOOK_HANDLE)
+ALCRIN=0.7_JPRB
+ALRCN1=1.E-03_JPRB
+ALRCN2=2.5E-03_JPRB
+EMCRIN=0.98_JPRB
+WCRIN=10._JPRB
+TMERGL=271.23_JPRB
+NCHSP=0
+!  Characteristics of ice and sea
+NTVGLA=2
+NTVMER=1
+RD2GLA=8._JPRB
+RD2MER=8._JPRB
+ALBGLA=.65_JPRB
+ALBMER=.07_JPRB
+ALBMED=.06_JPRB
+EMMGLA=.97_JPRB
+EMMMER=.96_JPRB
+RZ0GLA=.001_JPRB
+RZ0MER=.001_JPRB
+RZHGLA=.001_JPRB
+RZHMER=.001_JPRB
+RZHZ0G=1.0_JPRB
+RZHZ0M=1.0_JPRB
+!  Usual - soil
+HSOL=1.0E-05_JPRB
+HSOLIT0=0.35_JPRB
+HSOLIWR=6._JPRB
+RTINER=5._JPRB
+WPMX=100._JPRB
+WSMX=20._JPRB
+SODELX(0)=1.0_JPRB/SQRT(1.0_JPRB+2.0_JPRB*RPI)
+DO J=1,9
+  SODELX(J)=SODELX(J-1)*2.0_JPRB*RPI
+ENDDO
+!  Relaxation
+OMTPRO=0._JPRB
+OMWPRO=0._JPRB
+!  ISBA - soil
+EA=-0.54_JPRB
+GA=732.42E-3_JPRB
+G1B=0.137_JPRB
+G2B=3.5_JPRB
+G1P=0.134_JPRB
+G2P=3.4_JPRB
+GC1=0.5_JPRB
+GC2=10._JPRB
+GC3=8._JPRB
+GCONV=1.E3_JPRB
+
+G1WSAT=-1.08E-3_JPRB
+G2WSAT=494.31E-3_JPRB
+EWFC=0.35_JPRB
+GWFC=89.0467E-3_JPRB
+EWWILT=0.5_JPRB
+GWWILT=37.1342E-3_JPRB
+EC2REF=-0.95_JPRB
+GC2REF=13.82_JPRB
+G1CGSAT=-1.5571E-8_JPRB
+G2CGSAT=-1.441E-8_JPRB
+G3CGSAT=4.70217E-6_JPRB
+G1C1SAT=5.58E-3_JPRB
+G2C1SAT=84.88E-3_JPRB
+GC31=5.3275_JPRB
+GC32=-1.043_JPRB
+
+RD1=1.E-2_JPRB
+RC1MAX=500._JPRB
+RCTGLA=5.5E-6_JPRB
+RCGMAX=0.8E-5_JPRB
+LIMC=.TRUE.
+LIMW=.TRUE.
+!  ISBA - vegetation
+GF1=0.55_JPRB
+GWLEX=2.0_JPRB/3._JPRB
+GWLMX=0.2_JPRB
+RSMAX=5000._JPRB
+DO J=1,18
+  GF3(J)=0.0_JPRB
+  GF4(J)=0.0016_JPRB
+  RCTVEG(J)=0.8E-5_JPRB
+  RGL(J)=100._JPRB
+  TREF4(J)=298._JPRB
+ENDDO
+GF3(4)=40._JPRB
+RGL(4)=30._JPRB
+!  ISBA - roughness length
+GCZ0H(0,1)=7.5_JPRB
+GCZ0H(1,1)=2.39037_JPRB
+GCZ0H(2,1)=-.28583_JPRB
+GCZ0H(3,1)=.01074_JPRB
+GCZ0H(0,2)=0.5_JPRB
+GCZ0H(1,2)=-.07028_JPRB
+GCZ0H(2,2)=.01023_JPRB
+GCZ0H(3,2)=-.00067_JPRB
+GCZ0H(0,3)=5.0_JPRB
+GCZ0H(1,3)=4.51268_JPRB
+GCZ0H(2,3)=.34012_JPRB
+GCZ0H(3,3)=-.05330_JPRB
+GCZ0H(0,4)=0.5_JPRB
+GCZ0H(1,4)=-.09421_JPRB
+GCZ0H(2,4)=.01463_JPRB
+GCZ0H(3,4)=-.00099_JPRB
+!  ISBA - snow
+ALBMAX=0.85_JPRB
+ALBMIN=0.50_JPRB
+RHOMAX=0.3_JPRB
+RHOMIN=0.1_JPRB
+TOEXP=0.24_JPRB/86400._JPRB
+TOLIN=0.008_JPRB/86400._JPRB
+WCRINC=70._JPRB
+WCRING=10._JPRB
+WNEW=10._JPRB
+XCRINR=1.0_JPRB/RG
+XCRINV=10000._JPRB
+GSNC1=RPI/(2.22_JPRB*RCS*RDAY*1000._JPRB)
+GSNC2=2.885_JPRB
+!   ISBA - C1 vapour phase
+LC1VAP=.TRUE.
+GTSVAP=0._JPRB
+GC1S1= 1.19_JPRB
+GC1S2=-5.09_JPRB
+GC1S3=-1.464E+2_JPRB
+GC1S4= 17.86E+2_JPRB
+GC1Y1=10._JPRB
+! Deep Soil freezing
+GVEGMX=5._JPRB
+GLAIMX=30._JPRB
+GNEIMX=1.8_JPRB
+GWPIMX=150._JPRB
+GCGEL=3.E-5_JPRB
+! Surface soil freezing
+GCGELS=5.E-5_JPRB
+GVEGMXS=5._JPRB
+GLAIMXS=30._JPRB
+GNEIMXS=1.8_JPRB
+!  OZONE DIFFUSION AND DEPOSITION
+LRDIFOZ=.FALSE.
+LRDEPOZ=.FALSE.
+VOZNJ=1._JPRB
+VOZHS=1.0_JPRB/86400._JPRB
+DO J=1,99
+  VDHJS(J)=-999._JPRB
+  VDHJH(J)=-999._JPRB
+  VDHNS(J)=-999._JPRB
+  VDHNH(J)=-999._JPRB
+  VDPJS(J)=-999._JPRB
+  VDPJH(J)=-999._JPRB
+  VDPNS(J)=-999._JPRB
+  VDPNH(J)=-999._JPRB
+  VDEJS(J)=-999._JPRB
+  VDEJH(J)=-999._JPRB
+  VDENS(J)=-999._JPRB
+  VDENH(J)=-999._JPRB
+  VDAJS(J)=-999._JPRB
+  VDAJH(J)=-999._JPRB
+  VDANS(J)=-999._JPRB
+  VDANH(J)=-999._JPRB
+  VDNJS(J)=-999._JPRB
+  VDNJH(J)=-999._JPRB
+  VDNNS(J)=-999._JPRB
+  VDNNH(J)=-999._JPRB
+ENDDO
+! New snow scheme (LVGSN)
+ALB1=0.87_JPRB
+ALB2=0.84_JPRB
+RLAIMX=7._JPRB
+RLAI=3._JPRB
+
+!        1.2 Modify default values according to LECMWF
+
+IF (LECMWF) THEN
+ELSE
+ENDIF
+
+!     ------------------------------------------------------------------
+
+!*       2.    Modify default values.
+!              ----------------------
+
+! Ce qui concerne NAMPHY1 et NAMVDOZ commente par MPL le 15.04.09
+!CALL POSNAM(NULNAM,'NAMPHY1')
+!READ(NULNAM,NAMPHY1)
+!CALL POSNAM(NULNAM,'NAMVDOZ')
+!READ(NULNAM,NAMVDOZ)
+
+!        2.5   Check consistency
+!              -----------------
+IF (GC1Y1 > 60._JPRB) THEN
+  CALL ABOR1 ('GC1Y1 FOR C1-VAPOUR PHASE IS BIGGER THAN 60.')
+ENDIF
+
+IF ((YSD_VVD%NUMFLDS < 8).AND.(RZHZ0M /= 1.0_JPRB)) THEN
+  CALL ABOR1('YSD_VVD%NUMFLDS<8 IMPLIES RZHZ0M=1.0_JPRB !...')
+ENDIF
+
+!     ------------------------------------------------------------------
+
+!*       3.    Print final values.
+!              -------------------
+
+WRITE(UNIT=KULOUT,FMT='('' COMMON YOMPHY1 '')')
+
+WRITE(UNIT=KULOUT,FMT='(&
+ & '' ALCRIN ='',E10.4,'' ALRCN1 ='',E10.4,'' ALRCN2 ='',E10.4 &
+ & ,'' EMCRIN ='',E10.4,'' WCRIN ='',E10.4,'' TMERGL ='',E10.4)')&
+ & ALCRIN,ALRCN1,ALRCN2,EMCRIN,WCRIN,TMERGL  
+
+WRITE(UNIT=KULOUT,FMT='(&
+ & '' NCHSP ='',I3,&
+ & '' NTVMER ='',I3,'' NTVGLA ='',I3 &
+ & ,'' RD2MER ='',E10.4,'' ALBMER='',E10.4,'' EMMMER ='',E10.4,/&
+ & ,'' RD2GLA ='',E10.4,'' ALBGLA='',E10.4,'' EMMGLA ='',E10.4,/&
+ & ,'' RZ0MER ='',E10.4,'' RZHMER='',E10.4 &
+ & ,'' RZ0GLA ='',E10.4,'' RZHGLA='',E10.4)')&
+ & NCHSP,NTVMER,NTVGLA,RD2MER,ALBMER,EMMMER &
+ & ,RD2GLA,ALBGLA,EMMGLA,RZ0MER,RZHMER,RZ0GLA,RZHGLA  
+WRITE(UNIT=KULOUT,FMT='(&
+ & '' RTINER ='',E10.4,'' HSOL ='',E10.4,'' HSOLIT0 ='',E10.4 &
+ & ,'' HSOLIWR ='',E10.4,'' WPMX ='',E10.4 &
+ & ,'' WSMX ='',E10.4,'' OMTPRO ='',E10.4,'' OMWPRO ='',E10.4)')&
+ & RTINER,HSOL,HSOLIT0,HSOLIWR,WPMX,WSMX,OMTPRO,OMWPRO  
+
+WRITE(UNIT=KULOUT,FMT='(&
+ & '' EA ='',E10.4,'' GA ='',E10.4,'' G1B ='',E10.4 &
+ & ,'' G2B ='',E10.4,'' G1P ='',E10.4,'' G2P = '',E10.4,/&
+ & ,'' GC1 ='',E10.4,'' GC2 ='',E10.4,'' GC3 ='',E10.4 &
+ & ,'' GCONV ='',E10.4)')&
+ & EA,GA,G1B,G2B,G1P,G2P,GC1,GC2,GC3,GCONV  
+
+WRITE(UNIT=KULOUT,FMT='(&
+ & '' G1WSAT ='',E10.4,'' G2WSAT ='',E10.4,'' EWFC ='',E10.4 &
+ & ,'' GWFC ='',E10.4,/,'' EWWILT ='',E10.4,'' GWWILT ='',E10.4 &
+ & ,'' EC2REF ='',E10.4,'' GC2REF ='',E10.4,/&
+ & ,'' G1CGSAT ='',E10.4,'' G2CGSAT ='',E10.4,'' G3CGSAT =''&
+ & ,E10.4,'' G1C1SAT ='',E10.4,'' G2C1SAT ='',E10.4)')&
+ & G1WSAT,G2WSAT,EWFC,GWFC,EWWILT,GWWILT,EC2REF,GC2REF,&
+ & G1CGSAT,G2CGSAT,G3CGSAT,G1C1SAT,G2C1SAT  
+
+WRITE(UNIT=KULOUT,FMT='(&
+ & '' RD1 ='',E10.4,'' RC1MAX ='',E10.4,'' RCTGLA ='',E10.4 &
+ & ,'' RCGMAX ='',E10.4,''  LIMC ='',L2,'' LIMW ='',L2)')&
+ & RD1,RC1MAX,RCTGLA,RCGMAX,LIMC,LIMW  
+
+WRITE(UNIT=KULOUT,FMT='(&
+ & '' GC1S1 ='',E10.4,'' GC1S2 ='',E10.4,'' GC1S3 ='',E10.4 &
+ & ,'' GC1S4 ='',E10.4,''  GC1Y1 ='',E10.4,'' LC1VAP ='',L2 &
+ & ,'' GTSVAP ='',E10.4)')&
+ & GC1S1,GC1S2,GC1S3,GC1S4,GC1Y1,LC1VAP,GTSVAP  
+
+WRITE(UNIT=KULOUT,FMT='(&
+ & '' GCGEL ='',E10.4,'' GVEGMX ='',E10.4,'' GLAIMX ='',E10.4 &
+ & ,'' GWPIMX ='',E10.4,'' GNEIMX  ='',E10.4)')&
+ & GCGEL,GVEGMX,GLAIMX,GWPIMX,GNEIMX  
+
+WRITE(UNIT=KULOUT,FMT='(&
+ & '' GCGELS  ='',E10.4,'' GVEGMXS ='',E10.4 &
+ & ,'' GLAIMXS ='',E10.4,'' GNEIMXS ='',E10.4)')&
+ & GCGELS,GVEGMXS,GLAIMXS,GNEIMXS  
+
+WRITE(UNIT=KULOUT,FMT='(&
+ & '' ALB1  ='',E10.4,'' ALB2 ='',E10.4 &
+ & ,'' RLAIMX ='',E10.4,'' RLAI ='',E10.4)')&
+ & ALB1,ALB2,RLAIMX,RLAI  
+
+WRITE(UNIT=KULOUT,FMT='('' GCZ0H ='',/,4(1X,4E11.4,/))')GCZ0H
+
+WRITE(UNIT=KULOUT,FMT='(&
+ & '' GF1 ='',E10.4,'' GWLEX ='',E10.4,'' GWLMX ='',E10.4 &
+ & ,'' RSMAX ='',E10.4,/&
+ & ,'' GF3 ='',/,2(1X,9E11.4,/),'' GF4 ='',/,2(1X,9E11.4,/)&
+ & ,'' RCTVEG ='',/,2(1X,9E11.4,/),'' RGL ='',/,2(1X,9E11.4,/)&
+ & ,'' TREF4 ='',/,2(1X,9E11.4,/))')&
+ & GF1,GWLEX,GWLMX,RSMAX,GF3,GF4,RCTVEG,RGL,TREF4  
+
+WRITE(UNIT=KULOUT,FMT='(&
+ & '' ALBMAX = '',E10.4,'' ALBMIN = '',E10.4 &
+ & ,'' RHOMAX = '',E10.4,'' RHOMIN = '',E10.4,/&
+ & ,'' TOEXP = '',E10.4,'' TOLIN = '',E10.4 &
+ & ,'' WCRINC = '',E10.4,'' WCRING = '',E10.4,/&
+ & ,'' WNEW = '',E10.4 &
+ & ,'' XCRINR = '',E10.4,'' XCRINV = '',E10.4)')&
+ & ALBMAX,ALBMIN,RHOMAX,RHOMIN,TOEXP,TOLIN,WCRINC,WCRING,WNEW,&
+ & XCRINR,XCRINV  
+
+WRITE(UNIT=KULOUT,FMT='('' SODELX = ''/5E11.4/5E11.4)') SODELX
+IF(YSP_SBD%NLEVS > 9)  CALL ABOR1(' TOO MANY SOIL LAYERS !')
+
+WRITE(UNIT=KULOUT,FMT='('' COMMON YOMVDOZ '')')
+
+WRITE(UNIT=KULOUT,FMT='('' LRDIFOZ ='',L2,'' LRDEPOZ ='',L2)')LRDIFOZ,LRDEPOZ
+
+IF (LRDIFOZ.AND.LRDEPOZ) THEN
+  WRITE(UNIT=KULOUT,FMT='('' VOZNJ ='',F10.5,'' VOZHS ='',F10.5)')VOZNJ,VOZHS
+  DO IVEG=1,99
+    IF((VDHJS(IVEG) /= -999._JPRB).OR.(VDHJH(IVEG) /= -999._JPRB).OR.&
+       & (VDHNS(IVEG) /= -999._JPRB).OR.(VDHNH(IVEG) /= -999._JPRB).OR.&
+       & (VDPJS(IVEG) /= -999._JPRB).OR.(VDPJH(IVEG) /= -999._JPRB).OR.&
+       & (VDPNS(IVEG) /= -999._JPRB).OR.(VDPNH(IVEG) /= -999._JPRB).OR.&
+       & (VDEJS(IVEG) /= -999._JPRB).OR.(VDEJH(IVEG) /= -999._JPRB).OR.&
+       & (VDENS(IVEG) /= -999._JPRB).OR.(VDENH(IVEG) /= -999._JPRB).OR.&
+       & (VDAJS(IVEG) /= -999._JPRB).OR.(VDAJH(IVEG) /= -999._JPRB).OR.&
+       & (VDANS(IVEG) /= -999._JPRB).OR.(VDANH(IVEG) /= -999._JPRB).OR.&
+       & (VDNJS(IVEG) /= -999._JPRB).OR.(VDNJH(IVEG) /= -999._JPRB).OR.&
+       & (VDNNS(IVEG) /= -999._JPRB).OR.(VDNNH(IVEG) /= -999._JPRB))THEN  
+      WRITE(UNIT=KULOUT,FMT='('' IVEJ ='',I2 &
+       & ,'' VDHJS ='',E9.3,'' VDHJH ='',E9.3,'' VDHNS ='',E9.3 &
+       & ,'' VDHNH ='',E9.3)')&
+       & IVEG,VDHJS(IVEG),VDHJH(IVEG),VDHNS(IVEG),VDHNH(IVEG)  
+      WRITE(UNIT=KULOUT,FMT='('' IVEJ ='',I2 &
+       & ,'' VDPJS ='',E9.3,'' VDPJH ='',E9.3,'' VDPNS ='',E9.3 &
+       & ,'' VDPNH ='',E9.3)')&
+       & IVEG,VDPJS(IVEG),VDPJH(IVEG),VDPNS(IVEG),VDPNH(IVEG)  
+      WRITE(UNIT=KULOUT,FMT='('' IVEJ ='',I2 &
+       & ,'' VDEJS ='',E9.3,'' VDEJH ='',E9.3,'' VDENS ='',E9.3 &
+       & ,'' VDENH ='',E9.3)')&
+       & IVEG,VDEJS(IVEG),VDEJH(IVEG),VDENS(IVEG),VDENH(IVEG)  
+      WRITE(UNIT=KULOUT,FMT='('' IVEJ ='',I2 &
+       & ,'' VDAJS ='',E9.3,'' VDAJH ='',E9.3,'' VDANS ='',E9.3 &
+       & ,'' VDANH ='',E9.3)')&
+       & IVEG,VDAJS(IVEG),VDAJH(IVEG),VDANS(IVEG),VDANH(IVEG)  
+      WRITE(UNIT=KULOUT,FMT='('' IVEJ ='',I2 &
+       & ,'' VDNJS ='',E9.3,'' VDNJH ='',E9.3,'' VDNNS ='',E9.3 &
+       & ,'' VDNNH ='',E9.3)')&
+       & IVEG,VDNJS(IVEG),VDNJH(IVEG),VDNNS(IVEG),VDNNH(IVEG)  
+    ENDIF
+  ENDDO
+ENDIF
+!*
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUPHY1',1,ZHOOK_HANDLE)
+END SUBROUTINE SUPHY1
Index: LMDZ5/trunk/libf/phylmd/rrtm/suphy1.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/suphy1.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/suphy1.intfb.h	(revision 1989)
@@ -0,0 +1,6 @@
+INTERFACE
+SUBROUTINE SUPHY1(KULOUT)
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KULOUT
+END SUBROUTINE SUPHY1
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/suphy2.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/suphy2.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/suphy2.F90	(revision 1989)
@@ -0,0 +1,180 @@
+!OPTIONS XOPT(NOEVAL)
+SUBROUTINE SUPHY2(KULOUT)
+
+!**** *SUPHY2*   - Initialize common YOMPHY2 physics controlling
+!                  constants
+
+!     Purpose.
+!     --------
+!           Initialize YOMPHY2, the common that contains the parameters
+!           for the control part of the physics of the model.
+
+!**   Interface.
+!     ----------
+!        *CALL* *SUPHY2(KULOUT)
+
+!        Explicit arguments :
+!        --------------------
+!        KULOUT : Logical unit for the output
+
+!        Implicit arguments :
+!        --------------------
+!        COMMON YOMPHY2
+
+!     Method.
+!     -------
+!        See documentation
+
+!     Externals.
+!     ----------
+
+!     Reference.
+!     ----------
+!        Documentation ARPEGE
+
+!     Author.
+!     -------
+!        J.-F. Geleyn .
+!        Original : 90-9-1
+
+!     Modifications.
+!     --------------
+!        R. EL Khatib : 93-04-02 Set-up defaults controled by LECMWF
+!        J.-F. Geleyn : 93-08-19 New cloudiness diagnostics.
+!        J.-F. Geleyn : 95-04-10 Anti-fibril. Girard-Delage.
+!        P. Marquet   : 97-02-18 Value of VETAF=VAH/VP00+VBH.
+!        J.M. Piriou  : 97-04-17 XMULAF default value.
+!        E. Bazile    : 98-03-10 Introduce XMUCVPP.
+!        W. Owcarz    : 2000-03-27 Set a default value for TSPHY
+!        R. EL Khatib : 2000-06-13 RIPBLC
+!        R. EL Khatib : 2000-08-21 Turbulent gusts setup
+!        J.M. Piriou  : 2002-01-10 set default values to operational ones.
+!        Modified by R. EL Khatib : 02-03-29 Control XMULAF<0 ; add LMULAF
+!        Modified by D. Banciu    : 02-12-09 Introduction of XDAMP
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+! Ce qui concerne NULNAM commente par MPL le 15.04.09
+!USE YOMLUN   , ONLY : NULNAM
+USE YOMCT0B  , ONLY : LECMWF
+! commente par MPL 25.11.08
+!USE YOMGEM   , ONLY : VALH     ,VBH
+USE YOMDIM   , ONLY : NFLEVG
+USE YOMPHY2  , ONLY : NTSHM    ,NTSML    ,XMUCVPP  ,LMULAF   ,&
+ & XMULAF   ,XDAMP    ,HCLP     ,HTCLS    ,&
+ & RIPBLC   ,&
+ & LRAFTUR  ,GZ0RAF   ,FACRAF   ,&
+ & HVCLS    ,HTSHM    ,HTSML    ,&
+ & TSPHY  
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KULOUT 
+INTEGER(KIND=JPIM) :: JLEV
+
+REAL(KIND=JPRB) :: ZVETAF
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+#include "abor1.intfb.h"
+#include "posnam.intfb.h"
+
+#include "namphy2.h"
+!     ------------------------------------------------------------------
+
+!*       1.    Set default values.
+!              -------------------
+
+!        1.1 Set implicit default values
+
+IF (LHOOK) CALL DR_HOOK('SUPHY2',0,ZHOOK_HANDLE)
+XMULAF=-1.75_JPRB
+XMUCVPP=0._JPRB
+XDAMP=0._JPRB
+HCLP=1500._JPRB
+HTCLS=2._JPRB
+HVCLS=10._JPRB
+HTSHM=0.450_JPRB
+HTSML=0.785_JPRB
+TSPHY=1._JPRB
+RIPBLC=0.5_JPRB
+LRAFTUR=.FALSE.
+GZ0RAF=10.0_JPRB
+FACRAF=15.0_JPRB
+LMULAF=.FALSE.
+
+!        1.2 Modify default values according to LECMWF
+
+IF (LECMWF) THEN
+ELSE
+  LRAFTUR=.TRUE.
+ENDIF
+
+!     Remark : values for TSPHY, NTSHM/ML are calculated and not set up.
+
+!     ------------------------------------------------------------------
+
+!*       2.    Modify default values.
+!              ----------------------
+
+! Ce qui concerne NAMPHY2 commente par MPL le 15.04.09
+!CALL POSNAM(NULNAM,'NAMPHY2')
+!READ(NULNAM,NAMPHY2)
+!     ------------------------------------------------------------------
+
+!*       3.    Compute cloud transition indexes.
+!              ---------------------------------
+
+NTSHM=0
+NTSML=0
+! commente par MPL 25.11.08
+!DO JLEV=1,NFLEVG
+!  ZVETAF=(VALH(JLEV)+VBH(JLEV)+VALH(JLEV-1)+VBH(JLEV-1))*0.5_JPRB
+!  IF (ZVETAF <= HTSHM) THEN
+!    NTSHM=JLEV
+!  ENDIF
+!  IF (ZVETAF <= HTSML) THEN
+!    NTSML=JLEV
+!  ENDIF
+!ENDDO
+
+!     ------------------------------------------------------------------
+
+!*       4.    Print final values.
+!              -------------------
+
+WRITE(UNIT=KULOUT,FMT='('' COMMON YOMPHY2 '')')
+WRITE(UNIT=KULOUT,FMT='('' XMUCVPP = '',E10.4,'' XMULAF = '',E10.4 &
+ & ,'' XDAMP = '',E10.4 &
+ & ,'' LMULAF = '',L2,/,'' HTCLS = '',E10.4 &
+ & ,'' HVCLS = '',E10.4,'' HCLP = '',E10.4,/&
+ & ,'' RIPBLC  = '',F8.4 &
+ & ,'' LRAFTUR = '',L2,'' GZ0RAF = '',E10.4,'' FACRAF = '',E10.4 &
+ & ,'' HTSHM = '',F8.4,'' NTSHM = '',I3,'' HTSML = '',F8.4 &
+ & ,'' NTSML = '',I3 &
+ & )')&
+ & XMUCVPP,XMULAF,XDAMP,LMULAF,&
+ & HTCLS,HVCLS,HCLP,&
+ & RIPBLC,&
+ & LRAFTUR,GZ0RAF,FACRAF,&
+ & HTSHM,NTSHM,HTSML,NTSML  
+
+!*       5.    Control
+!              -------
+
+IF (XMULAF > 0.0_JPRB) THEN
+  WRITE(KULOUT,*) 'XMULAF SHOULD BE NEGATIVE'
+  CALL ABOR1('SUPHY2 : ABOR1 CALLED')
+ENDIF
+
+IF ((XDAMP /= 0.0_JPRB).AND.(XMUCVPP /= 0.0_JPRB)) THEN
+  WRITE(UNIT=KULOUT,FMT='(A)') 'INCONSISTENCY BETWEEN XDAMP AND XMUCVPP !'
+  CALL ABOR1('XDAMP/=0. IMPLIES XMUCVPP=0.!...')
+ENDIF
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUPHY2',1,ZHOOK_HANDLE)
+END SUBROUTINE SUPHY2
Index: LMDZ5/trunk/libf/phylmd/rrtm/suphy2.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/suphy2.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/suphy2.intfb.h	(revision 1989)
@@ -0,0 +1,6 @@
+INTERFACE
+SUBROUTINE SUPHY2(KULOUT)
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KULOUT
+END SUBROUTINE SUPHY2
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/suphy3.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/suphy3.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/suphy3.F90	(revision 1989)
@@ -0,0 +1,404 @@
+!OPTIONS XOPT(NOEVAL)
+SUBROUTINE SUPHY3(KULOUT)
+
+!**** *SUPHY3*   - Initialize common YOMPHY3 physics radiative
+!                  constants
+
+!     Purpose.
+!     --------
+!           Initialize YOMPHY3, the common that contains the parameters
+!           for the radiation part of the physics of the model.
+
+!**   Interface.
+!     ----------
+!        *CALL* *SUPHY3(KULOUT)
+
+!        Explicit arguments :
+!        --------------------
+!        KULOUT : Logical unit for the output
+
+!        Implicit arguments :
+!        --------------------
+!        COMMON YOMPHY3
+
+!     Method.
+!     -------
+!        See documentation
+
+!     Externals.
+!     ----------
+
+!     Reference.
+!     ----------
+!        Documentation ARPEGE
+
+!     Author.
+!     -------
+!        J.-F. Geleyn .
+
+!     Modifications.
+!     --------------
+!        Original : 90-9-1
+!        Ajout de GCE4 et
+!         modification de toutes les constantes optiques : 91-2-1
+!        Ajout des nuages de glace : 92-04, L. Labbe.
+!        Modified by R. EL Khatib : 93-04-02 Set-up defaults controled by LECMWF
+!        Modified 97-04-17 J.M. Piriou: radiative coefficients default values, and new QSUSX default.
+!        Modified 2000-08 R. Randriamampianina, J.F. Geleyn et J.M. Piriou: change infra-red interaction between layers (GIREC*).
+!        Modified 2000-12-12 by E. Bazile: CYCORA's default value.
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        R.Brozkova    24-Sep-2006 ALARO-0 (new cloud model)
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+! Ce qui concerne NULNAM commente par MPL le 15.04.09
+!USE YOMLUN   , ONLY : NULNAM
+USE YOMCT0B  , ONLY : LECMWF
+USE YOMPHY   , ONLY : LCLSATUR
+USE YOMPHY3  , ONLY : GCA      ,GCB      ,GCC      ,VDP      ,&
+ & VNP      ,BSFSA    ,BSFSI    ,BSFSN    ,BSFTA    ,&
+ & BSFTI    ,BSFTN    ,EARRT    ,EOASA    ,EOASI    ,&
+ & EOASN    ,EOATA    ,EOATI    ,EOATN    ,EODSA    ,&
+ & EODSI    ,EODSN    ,EODTA    ,EODTI    ,EODTN    ,&
+ & EORAY    ,GCD4     ,GCE4     ,QCO2     ,QLIMI    ,&
+ & QLIP0    ,RII0     ,USAA     ,USAI     ,&
+ & USAN     ,USBA     ,USBI     ,USBN     ,&
+ & GIREC1   ,GIREC2   ,GIREC3   ,GIREC4   ,&  
+ & FCM_DEL_A,FCM_DEL_D,FCM_MU_A ,FCM_MU_D ,FCM_N_I  ,&
+ & FCM_N_L  ,FCM_P_AI ,FCM_P_AL ,FCM_P_DI ,FCM_P_DL ,&
+ & FCM_P_GI ,FCM_P_GL ,FCM_Q_AI ,FCM_Q_AL ,FCM_Q_DI ,&
+ & FCM_Q_DL ,FCM_Q_GI ,FCM_Q_GL ,N_SPBAND ,REXP_NEB
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KULOUT 
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+#include "posnam.intfb.h"
+
+#include "namphy3.h"
+!     ------------------------------------------------------------------
+
+!*       1.    Set default values.
+!              -------------------
+
+!        1.1 Set implicit default values
+
+IF (LHOOK) CALL DR_HOOK('SUPHY3',0,ZHOOK_HANDLE)
+BSFSA=.3490_JPRB
+BSFSI=.3238_JPRB
+BSFSN=.3300_JPRB
+BSFTA=.3471_JPRB
+BSFTI=.3231_JPRB
+BSFTN=.3584_JPRB
+EARRT=0.001324_JPRB
+EOASA=.6727E-01_JPRB
+EOASI=.1692E-01_JPRB
+EOASN=.3353E-01_JPRB
+EOATA=.5037E-01_JPRB
+EOATI=.3455E+01_JPRB
+EOATN=.9077E+01_JPRB
+EODSA=.3665E+00_JPRB
+EODSI=.1406E+01_JPRB
+EODSN=.6558E+01_JPRB
+EODTA=.1766E-01_JPRB
+EODTI=.8435E+00_JPRB
+EODTN=.4319E+01_JPRB
+EORAY=.8606E-06_JPRB
+GCA(1)=.8041E-01_JPRB
+GCA(2)=.1456E+00_JPRB
+GCA(3)=.4787E+01_JPRB
+GCA(4)=.2102E+04_JPRB
+GCA(5)=.1334E+01_JPRB
+GCA(6)=.1551E-04_JPRB
+GCB(1)=.8968E+07_JPRB
+GCB(2)=.2413E+10_JPRB
+GCB(3)=.3548E+05_JPRB
+GCB(4)=.6370E+10_JPRB
+GCB(5)=.8499E+11_JPRB
+GCB(6)=.1012E+06_JPRB
+GCC(1)=.5925E-10_JPRB
+GCC(2)=.1842E-10_JPRB
+GCC(3)=.2532E-07_JPRB
+GCC(4)=.1953E+07_JPRB
+GCC(5)=.1734E-11_JPRB
+GCC(6)=.1225E-16_JPRB
+GCD4=.3608E-69_JPRB
+GCE4=.7563E+04_JPRB
+GIREC1=0.0_JPRB
+GIREC2=0.0_JPRB
+GIREC3=0.0_JPRB
+GIREC4=0.0_JPRB
+QCO2=.5366E-03_JPRB
+QLIMI=15000._JPRB
+QLIP0=8.E+06_JPRB
+USAA=-.3020_JPRB
+USAI=-.3524_JPRB
+USAN=-.3400_JPRB
+USBA=0._JPRB
+USBI=0._JPRB
+USBN=0._JPRB
+VDP(1,1)=.21868E+02_JPRB
+VDP(2,1)=.17453E+02_JPRB
+VDP(3,1)=.68918E+00_JPRB
+VDP(4,1)=.23456E-03_JPRB
+VDP(5,1)=.22317E-09_JPRB
+VDP(1,2)=.48401E+02_JPRB
+VDP(2,2)=.18648E+02_JPRB
+VDP(3,2)=.35199E-01_JPRB
+VDP(4,2)=.63691E-06_JPRB
+VDP(5,2)=.86395E-13_JPRB
+VDP(1,3)=.76948E+02_JPRB
+VDP(2,3)=.41056E+01_JPRB
+VDP(3,3)=.42667E-03_JPRB
+VDP(4,3)=0._JPRB
+VDP(5,3)=0._JPRB
+VDP(1,4)=.27241E+03_JPRB
+VDP(2,4)=.57091E+04_JPRB
+VDP(3,4)=.14393E+05_JPRB
+VDP(4,4)=.29879E+04_JPRB
+VDP(5,4)=.25382E+02_JPRB
+VDP(1,5)=.86942E+02_JPRB
+VDP(2,5)=.32186E+03_JPRB
+VDP(3,5)=.10775E+03_JPRB
+VDP(4,5)=.21261E+01_JPRB
+VDP(5,5)=.40003E-02_JPRB
+VDP(1,6)=.24408E+02_JPRB
+VDP(2,6)=.81919E+01_JPRB
+VDP(3,6)=.72193E+01_JPRB
+VDP(4,6)=.56230E+00_JPRB
+VDP(5,6)=.25384E-02_JPRB
+VNP(1,1)=.69926E+01_JPRB
+VNP(2,1)=.63915E+00_JPRB
+VNP(3,1)=.28896E-03_JPRB
+VNP(4,1)=.10050E-08_JPRB
+VNP(5,1)=.99037E-16_JPRB
+VNP(1,2)=.31105E+01_JPRB
+VNP(2,2)=.14225E-01_JPRB
+VNP(3,2)=.69355E-06_JPRB
+VNP(4,2)=.36087E-12_JPRB
+VNP(5,2)=.44113E-20_JPRB
+VNP(1,3)=.23659E+01_JPRB
+VNP(2,3)=.11139E-02_JPRB
+VNP(3,3)=.10618E-05_JPRB
+VNP(4,3)=0._JPRB
+VNP(5,3)=0._JPRB
+VNP(1,4)=.19810E+03_JPRB
+VNP(2,4)=.46954E+04_JPRB
+VNP(3,4)=.22512E+04_JPRB
+VNP(4,4)=.52461E+02_JPRB
+VNP(5,4)=.11645E+00_JPRB
+VNP(1,5)=.46348E+02_JPRB
+VNP(2,5)=.35630E+02_JPRB
+VNP(3,5)=.33005E+01_JPRB
+VNP(4,5)=.18045E-01_JPRB
+VNP(5,5)=.88667E-05_JPRB
+VNP(1,6)=.47413E+01_JPRB
+VNP(2,6)=.16334E+01_JPRB
+VNP(3,6)=.48164E+00_JPRB
+VNP(4,6)=.56140E-02_JPRB
+VNP(5,6)=.67790E-04_JPRB
+
+! Default values for cloud model - first index denotes spectral band:
+!   1 - solar
+!   2 - thermal
+FCM_DEL_A(1)  =  9.55496e-01_JPRB
+FCM_DEL_A(2)  =  1.79152e+02_JPRB
+FCM_DEL_D(1)  =  5.72959e+01_JPRB
+FCM_DEL_D(2)  =  2.00159e+02_JPRB
+FCM_MU_A(1)   =  8.66200e-01_JPRB
+FCM_MU_A(2)   =  6.65532e-01_JPRB
+FCM_MU_D(1)   =  1.00000e+00_JPRB
+FCM_MU_D(2)   =  6.70517e-01_JPRB
+FCM_N_I       =  1.00000e-01_JPRB
+FCM_N_L       =  1.00000e-01_JPRB
+FCM_P_AI(1,0) =  1.48920e+01_JPRB
+FCM_P_AI(1,1) = -3.71379e+01_JPRB
+FCM_P_AI(1,2) =  0.00000e+00_JPRB
+FCM_P_AI(1,3) =  0.00000e+00_JPRB
+FCM_P_AI(2,0) =  9.76920e+00_JPRB
+FCM_P_AI(2,1) = -7.54840e+00_JPRB
+FCM_P_AI(2,2) =  0.00000e+00_JPRB
+FCM_P_AI(2,3) =  0.00000e+00_JPRB
+FCM_P_AL(1,0) =  1.42062e+00_JPRB
+FCM_P_AL(1,1) = -3.54037e+00_JPRB
+FCM_P_AL(1,2) =  1.73535e+00_JPRB
+FCM_P_AL(1,3) =  0.00000e+00_JPRB
+FCM_P_AL(2,0) =  5.08522e+00_JPRB
+FCM_P_AL(2,1) = -1.08144e+01_JPRB
+FCM_P_AL(2,2) =  5.16331e+00_JPRB
+FCM_P_AL(2,3) =  0.00000e+00_JPRB
+FCM_P_DI(1,0) =  1.30487e+01_JPRB
+FCM_P_DI(1,1) =  1.98670e+01_JPRB
+FCM_P_DI(1,2) = -5.08578e+01_JPRB
+FCM_P_DI(1,3) =  0.00000e+00_JPRB
+FCM_P_DI(2,0) =  1.23173e+01_JPRB
+FCM_P_DI(2,1) = -3.32808e+01_JPRB
+FCM_P_DI(2,2) =  5.77295e+01_JPRB
+FCM_P_DI(2,3) = -7.35728e+01_JPRB
+FCM_P_DL(1,0) =  4.68646e+00_JPRB
+FCM_P_DL(1,1) = -8.77652e+00_JPRB
+FCM_P_DL(1,2) =  2.12789e+00_JPRB
+FCM_P_DL(1,3) =  0.00000e+00_JPRB
+FCM_P_DL(2,0) =  4.52292e+00_JPRB
+FCM_P_DL(2,1) = -1.43327e+01_JPRB
+FCM_P_DL(2,2) =  1.16650e+01_JPRB
+FCM_P_DL(2,3) =  0.00000e+00_JPRB
+FCM_P_GI(1,0) = -2.01472e+00_JPRB
+FCM_P_GI(1,1) =  9.16284e+01_JPRB
+FCM_P_GI(1,2) =  7.82275e+01_JPRB
+FCM_P_GI(1,3) =  0.00000e+00_JPRB
+FCM_P_GI(2,0) = -7.55124e-01_JPRB
+FCM_P_GI(2,1) = -4.68837e+00_JPRB
+FCM_P_GI(2,2) =  6.72877e+01_JPRB
+FCM_P_GI(2,3) =  0.00000e+00_JPRB
+FCM_P_GL(1,0) =  8.82686e-01_JPRB
+FCM_P_GL(1,1) = -2.02445e+00_JPRB
+FCM_P_GL(1,2) =  1.45259e+00_JPRB
+FCM_P_GL(1,3) =  0.00000e+00_JPRB
+FCM_P_GL(2,0) =  1.93784e-01_JPRB
+FCM_P_GL(2,1) = -6.07676e-01_JPRB
+FCM_P_GL(2,2) =  5.37734e-01_JPRB
+FCM_P_GL(2,3) =  0.00000e+00_JPRB
+FCM_Q_AI(1,1) =  1.86588e+01_JPRB
+FCM_Q_AI(1,2) =  0.00000e+00_JPRB
+FCM_Q_AI(1,3) =  0.00000e+00_JPRB
+FCM_Q_AI(2,1) =  2.78063e+00_JPRB
+FCM_Q_AI(2,2) =  0.00000e+00_JPRB
+FCM_Q_AI(2,3) =  0.00000e+00_JPRB
+FCM_Q_AL(1,1) = -2.81210e+00_JPRB
+FCM_Q_AL(1,2) =  2.35758e+00_JPRB
+FCM_Q_AL(1,3) =  0.00000e+00_JPRB
+FCM_Q_AL(2,1) = -2.31252e+00_JPRB
+FCM_Q_AL(2,2) =  1.56848e+00_JPRB
+FCM_Q_AL(2,3) =  0.00000e+00_JPRB
+FCM_Q_DI(1,1) =  1.04582e+01_JPRB
+FCM_Q_DI(1,2) =  6.15641e+00_JPRB
+FCM_Q_DI(1,3) =  0.00000e+00_JPRB
+FCM_Q_DI(2,1) =  1.18370e+00_JPRB
+FCM_Q_DI(2,2) =  2.23187e+00_JPRB
+FCM_Q_DI(2,3) =  7.00424e+00_JPRB
+FCM_Q_DL(1,1) = -2.18205e+00_JPRB
+FCM_Q_DL(1,2) =  1.34831e+00_JPRB
+FCM_Q_DL(1,3) =  0.00000e+00_JPRB
+FCM_Q_DL(2,1) = -3.12310e+00_JPRB
+FCM_Q_DL(2,2) =  2.57959e+00_JPRB
+FCM_Q_DL(2,3) =  0.00000e+00_JPRB
+FCM_Q_GI(1,1) =  7.89999e+01_JPRB
+FCM_Q_GI(1,2) =  5.24929e+01_JPRB
+FCM_Q_GI(1,3) =  0.00000e+00_JPRB
+FCM_Q_GI(2,1) =  4.93801e+00_JPRB
+FCM_Q_GI(2,2) =  2.38096e+01_JPRB
+FCM_Q_GI(2,3) =  0.00000e+00_JPRB
+FCM_Q_GL(1,1) = -2.20830e+00_JPRB
+FCM_Q_GL(1,2) =  1.39832e+00_JPRB
+FCM_Q_GL(1,3) =  0.00000e+00_JPRB
+FCM_Q_GL(2,1) = -3.27770e+00_JPRB
+FCM_Q_GL(2,2) =  2.78446e+00_JPRB
+FCM_Q_GL(2,3) =  0.00000e+00_JPRB
+REXP_NEB      = 8.0_JPRB
+
+!        1.2 Modify default values according to LECMWF
+
+IF (LECMWF) THEN
+ELSE
+ENDIF
+
+!     Remark : the values or RII0 is calculated and not set up
+
+!     ------------------------------------------------------------------
+
+!*       2.    Modify default values.
+!              ----------------------
+
+! Ce qui concerne NAMPHY3 commente par MPL le 15.04.09
+!CALL POSNAM(NULNAM,'NAMPHY3')
+!READ(NULNAM,NAMPHY3)
+!     ------------------------------------------------------------------
+
+!*       3.    Print final values.
+!              -------------------
+
+WRITE(UNIT=KULOUT,FMT='('' COMMON YOMPHY3 '')')
+WRITE(UNIT=KULOUT,FMT='('' BSFSA = '',E10.4,'' BSFSI = '',E10.4 &
+ & ,'' BSFSN = '',E10.4,'' BSFTA = '',E10.4,'' BSFTI = '',E10.4,/&
+ & ,'' BSFTN = '',E10.4,'' EARRT = '',E10.4,'' EOASA = ''&
+ & ,E10.4,'' EOASI = '',E10.4,'' EOASN = '',E10.4 &
+ & ,'' EOATA = '',E10.4,/,'' EOATI = '',E10.4,'' EOATN = '',E10.4 &
+ & ,'' EODSA = '',E10.4,'' EODSI = '',E10.4,'' EODSN = '',E10.4 &
+ & ,'' EODTA = '',E10.4,/,'' EODTI = '',E10.4 &
+ & ,'' EODTN = '',E10.4,'' EORAY = '',E10.4,/&
+ & ,'' GCA(6) = '',6E11.4,/,'' GCB(6) = '',6E11.4,/,'' GCC(6) = ''&
+ & ,6E11.4,/,'' GCD4 = '',E11.4,'' GCE4 = '',E11.4,/&
+ & ,'' QCO2 = '',E10.4,'' QLIP0 = '',E10.4 &
+ & ,'' USAA = '',E10.4,'' USAI = '',E10.4,'' USAN = '',E10.4 &
+ & ,'' USBA = '',E10.4,/,'' USBI = '',E10.4,'' USBN = '',E10.4,/&
+ & ,'' VDP(5,6) = '',5E12.5,/,5(12X,5E12.5,/)&
+ & ,'' VNP(5,6) = '',5E12.5,/,5(12X,5E12.5,/)&
+ & ,'' QLIMI = '',E10.4 &
+ & ,'' GIREC1 = '',E10.4,'' GIREC2 = '',E10.4,'' GIREC3 = '',E10.4 &
+ & ,'' GIREC4 = '',E10.4 &
+ & )')&
+ & BSFSA,BSFSI,BSFSN,BSFTA,BSFTI,BSFTN,EARRT,EOASA,EOASI,EOASN,&
+ & EOATA,EOATI,EOATN,EODSA,EODSI,EODSN,EODTA,EODTI,EODTN,EORAY,&
+ & GCA,GCB,GCC,GCD4,GCE4,QCO2,QLIP0,USAA,USAI,USAN,USBA,USBI,USBN,&
+ & VDP,VNP,QLIMI,GIREC1,GIREC2,GIREC3,GIREC4  
+
+IF (LCLSATUR) THEN
+  WRITE(KULOUT,'('' N_SPBAND = '',I2,'' REXP_NEB = '',F5.2)') &
+   & N_SPBAND,REXP_NEB
+  WRITE(KULOUT,'('' FCM_DEL_A(:)   ='',2(1X,ES12.5))') FCM_DEL_A(:)
+  WRITE(KULOUT,'('' FCM_DEL_D(:)   ='',2(1X,ES12.5))') FCM_DEL_D(:)
+  WRITE(KULOUT,'('' FCM_MU_A (:)   ='',2(1X,ES12.5))') FCM_MU_A (:)
+  WRITE(KULOUT,'('' FCM_MU_D (:)   ='',2(1X,ES12.5))') FCM_MU_D (:)
+  WRITE(KULOUT,'('' FCM_N_I        ='',1X,ES12.5)')    FCM_N_I
+  WRITE(KULOUT,'('' FCM_N_L        ='',1X,ES12.5)')    FCM_N_L
+  WRITE(KULOUT,'('' FCM_P_AI (:,0) ='',2(1X,ES12.5))') FCM_P_AI (:,0)
+  WRITE(KULOUT,'('' FCM_P_AI (:,1) ='',2(1X,ES12.5))') FCM_P_AI (:,1)
+  WRITE(KULOUT,'('' FCM_P_AI (:,2) ='',2(1X,ES12.5))') FCM_P_AI (:,2)
+  WRITE(KULOUT,'('' FCM_P_AI (:,3) ='',2(1X,ES12.5))') FCM_P_AI (:,3)
+  WRITE(KULOUT,'('' FCM_P_AL (:,0) ='',2(1X,ES12.5))') FCM_P_AL (:,0)
+  WRITE(KULOUT,'('' FCM_P_AL (:,1) ='',2(1X,ES12.5))') FCM_P_AL (:,1)
+  WRITE(KULOUT,'('' FCM_P_AL (:,2) ='',2(1X,ES12.5))') FCM_P_AL (:,2)
+  WRITE(KULOUT,'('' FCM_P_AL (:,3) ='',2(1X,ES12.5))') FCM_P_AL (:,3)
+  WRITE(KULOUT,'('' FCM_P_DI (:,0) ='',2(1X,ES12.5))') FCM_P_DI (:,0)
+  WRITE(KULOUT,'('' FCM_P_DI (:,1) ='',2(1X,ES12.5))') FCM_P_DI (:,1)
+  WRITE(KULOUT,'('' FCM_P_DI (:,2) ='',2(1X,ES12.5))') FCM_P_DI (:,2)
+  WRITE(KULOUT,'('' FCM_P_DI (:,3) ='',2(1X,ES12.5))') FCM_P_DI (:,3)
+  WRITE(KULOUT,'('' FCM_P_DL (:,0) ='',2(1X,ES12.5))') FCM_P_DL (:,0)
+  WRITE(KULOUT,'('' FCM_P_DL (:,1) ='',2(1X,ES12.5))') FCM_P_DL (:,1)
+  WRITE(KULOUT,'('' FCM_P_DL (:,2) ='',2(1X,ES12.5))') FCM_P_DL (:,2)
+  WRITE(KULOUT,'('' FCM_P_DL (:,3) ='',2(1X,ES12.5))') FCM_P_DL (:,3)
+  WRITE(KULOUT,'('' FCM_P_GI (:,0) ='',2(1X,ES12.5))') FCM_P_GI (:,0)
+  WRITE(KULOUT,'('' FCM_P_GI (:,1) ='',2(1X,ES12.5))') FCM_P_GI (:,1)
+  WRITE(KULOUT,'('' FCM_P_GI (:,2) ='',2(1X,ES12.5))') FCM_P_GI (:,2)
+  WRITE(KULOUT,'('' FCM_P_GI (:,3) ='',2(1X,ES12.5))') FCM_P_GI (:,3)
+  WRITE(KULOUT,'('' FCM_P_GL (:,0) ='',2(1X,ES12.5))') FCM_P_GL (:,0)
+  WRITE(KULOUT,'('' FCM_P_GL (:,1) ='',2(1X,ES12.5))') FCM_P_GL (:,1)
+  WRITE(KULOUT,'('' FCM_P_GL (:,2) ='',2(1X,ES12.5))') FCM_P_GL (:,2)
+  WRITE(KULOUT,'('' FCM_P_GL (:,3) ='',2(1X,ES12.5))') FCM_P_GL (:,3)
+  WRITE(KULOUT,'('' FCM_Q_AI (:,1) ='',2(1X,ES12.5))') FCM_Q_AI (:,1)
+  WRITE(KULOUT,'('' FCM_Q_AI (:,2) ='',2(1X,ES12.5))') FCM_Q_AI (:,2)
+  WRITE(KULOUT,'('' FCM_Q_AI (:,3) ='',2(1X,ES12.5))') FCM_Q_AI (:,3)
+  WRITE(KULOUT,'('' FCM_Q_AL (:,1) ='',2(1X,ES12.5))') FCM_Q_AL (:,1)
+  WRITE(KULOUT,'('' FCM_Q_AL (:,2) ='',2(1X,ES12.5))') FCM_Q_AL (:,2)
+  WRITE(KULOUT,'('' FCM_Q_AL (:,3) ='',2(1X,ES12.5))') FCM_Q_AL (:,3)
+  WRITE(KULOUT,'('' FCM_Q_DI (:,1) ='',2(1X,ES12.5))') FCM_Q_DI (:,1)
+  WRITE(KULOUT,'('' FCM_Q_DI (:,2) ='',2(1X,ES12.5))') FCM_Q_DI (:,2)
+  WRITE(KULOUT,'('' FCM_Q_DI (:,3) ='',2(1X,ES12.5))') FCM_Q_DI (:,3)
+  WRITE(KULOUT,'('' FCM_Q_DL (:,1) ='',2(1X,ES12.5))') FCM_Q_DL (:,1)
+  WRITE(KULOUT,'('' FCM_Q_DL (:,2) ='',2(1X,ES12.5))') FCM_Q_DL (:,2)
+  WRITE(KULOUT,'('' FCM_Q_DL (:,3) ='',2(1X,ES12.5))') FCM_Q_DL (:,3)
+  WRITE(KULOUT,'('' FCM_Q_GI (:,1) ='',2(1X,ES12.5))') FCM_Q_GI (:,1)
+  WRITE(KULOUT,'('' FCM_Q_GI (:,2) ='',2(1X,ES12.5))') FCM_Q_GI (:,2)
+  WRITE(KULOUT,'('' FCM_Q_GI (:,3) ='',2(1X,ES12.5))') FCM_Q_GI (:,3)
+  WRITE(KULOUT,'('' FCM_Q_GL (:,1) ='',2(1X,ES12.5))') FCM_Q_GL (:,1)
+  WRITE(KULOUT,'('' FCM_Q_GL (:,2) ='',2(1X,ES12.5))') FCM_Q_GL (:,2)
+  WRITE(KULOUT,'('' FCM_Q_GL (:,3) ='',2(1X,ES12.5))') FCM_Q_GL (:,3)
+ENDIF
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUPHY3',1,ZHOOK_HANDLE)
+END SUBROUTINE SUPHY3
Index: LMDZ5/trunk/libf/phylmd/rrtm/suphy3.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/suphy3.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/suphy3.intfb.h	(revision 1989)
@@ -0,0 +1,6 @@
+INTERFACE
+SUBROUTINE SUPHY3(KULOUT)
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KULOUT
+END SUBROUTINE SUPHY3
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/suphyfl.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/suphyfl.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/suphyfl.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SUPHYFL
+END SUBROUTINE SUPHYFL
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/supol_mod.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/supol_mod.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/supol_mod.F90	(revision 1989)
@@ -0,0 +1,130 @@
+MODULE SUPOL_MOD
+CONTAINS
+SUBROUTINE SUPOL(KNSMAX,DDMU,DDPOL,DDA,DDB,DDC,DDD,DDE,DDF,DDG,DDH,DDI)
+
+!**** *SUPOL * - Routine to compute the Legendre polynomials
+
+!     Purpose.
+!     --------
+!           For a given value of mu, computes the Legendre
+!           polynomials.
+
+!**   Interface.
+!     ----------
+!        *CALL* *SUPOL(KNSMAX,DDMU,DDPOL,DDA,DDB,DDC,DDD,DDE
+!        ,DDF,DDG,DDH,DDI)
+
+!        Explicit arguments :
+!        --------------------
+!              KNSMAX   :  Truncation  (triangular)
+!              DDMU     :  Abscissa at which the polynomials are computed (mu)
+!              DDPOL    :  Polynomials (the first index is m and the second n)
+
+
+!        Implicit arguments :   None
+!        --------------------
+
+!     Method.
+!     -------
+!        See documentation
+
+!     Externals.
+!     ----------
+
+!     Reference.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+
+!     Author.
+!     -------
+!        Mats Hamrud and Philippe Courtier  *ECMWF*
+
+!     Modifications.
+!     --------------
+!        Original : 87-10-15
+!        K. YESSAD (MAY 1998): modification to avoid underflow.
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE PARKIND2  ,ONLY : JPRH
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)  :: KNSMAX
+REAL(KIND=JPRH)   ,INTENT(IN)  :: DDMU
+REAL(KIND=JPRH)   ,INTENT(IN)  :: DDC(0:KNSMAX,0:KNSMAX)
+REAL(KIND=JPRH)   ,INTENT(IN)  :: DDD(0:KNSMAX,0:KNSMAX)
+REAL(KIND=JPRH)   ,INTENT(IN)  :: DDE(0:KNSMAX,0:KNSMAX)
+REAL(KIND=JPRH)   ,INTENT(IN)  :: DDA(0:KNSMAX),DDB(0:KNSMAX),DDF(0:KNSMAX)
+REAL(KIND=JPRH)   ,INTENT(IN)  :: DDG(0:KNSMAX),DDH(0:KNSMAX),DDI(0:KNSMAX)
+REAL(KIND=JPRH)   ,INTENT(OUT) :: DDPOL(0:KNSMAX,0:KNSMAX)
+
+REAL(KIND=JPRH) :: DLX,DLSITA,DL1SITA,DLKM2,DLKM1,DLK,DL1,DLS
+
+INTEGER(KIND=JPIM) :: JM, JN
+REAL(KIND=JPRB) :: Z
+
+!     ------------------------------------------------------------------
+
+!*       1. First two columns.
+!           ------------------
+
+DLX=DDMU
+DLSITA=SQRT(1.0_JPRB-DLX*DLX)
+
+! IF WE ARE LESS THAN 1Meter FROM THE POLE,
+IF(ABS(REAL(DLSITA,KIND(Z))) <= SQRT(EPSILON(Z)))THEN
+  DLX=1._JPRB
+  DLSITA=0._JPRB
+  DL1SITA=0._JPRB
+ELSE
+  DL1SITA=1.0_JPRB/DLSITA
+ENDIF
+DLKM2=1._JPRB
+DLKM1=DLX
+DDPOL(0,0)=DLKM2
+DDPOL(0,1)=DLKM1*DDA(1)
+DDPOL(1,1)=DLSITA*DDB(1)
+DO JN=2,KNSMAX
+  DLK=DDF(JN)*DLX*DLKM1-DDG(JN)*DLKM2
+  DL1=DDI(JN)*(DLKM1-DLX*DLK)*DL1SITA
+  DDPOL(0,JN)=DLK*DDA(JN)
+  DDPOL(1,JN)=DL1*DDB(JN)
+  DLKM2=DLKM1
+  DLKM1=DLK
+ENDDO
+
+!     ------------------------------------------------------------------
+
+!*       2. Diagonal (the terms 0,0 and 1,1 have already been computed)
+!           -----------------------------------------------------------
+
+DLS=DL1SITA*TINY(DLS)
+
+!OCL SCALAR
+DO JN=2,KNSMAX
+  DDPOL(JN,JN)=DDPOL(JN-1,JN-1)*DLSITA*DDH(JN)
+  IF ( ABS(DDPOL(JN,JN))  <  DLS ) DDPOL(JN,JN)=0.0_JPRB
+ENDDO
+
+!     ------------------------------------------------------------------
+
+!*       3. General recurrence.
+!           -------------------
+
+DO JN=3,KNSMAX
+!DIR$ IVDEP
+!OCL NOVREC
+  DO JM=2,JN-1
+    DDPOL(JM,JN)=DDC(JM,JN)*DDPOL(JM-2,JN-2)&
+     &-DDD(JM,JN)*DDPOL(JM-2,JN-1)*DLX &
+     &+DDE(JM,JN)*DDPOL(JM  ,JN-1)*DLX
+  ENDDO
+ENDDO
+
+!     ------------------------------------------------------------------
+
+END SUBROUTINE SUPOL
+END MODULE SUPOL_MOD
+
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/surayolmd.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/surayolmd.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/surayolmd.F90	(revision 1989)
@@ -0,0 +1,74 @@
+SUBROUTINE SURAYOLMD(PPRES)
+#ifdef DOC
+
+!     **** *SURAYOLMD - initialization rayonnement LMD
+
+!     Purpose.
+!     --------
+
+!     **   Interface.
+!     ----------
+
+!     Explicit arguments :    None.
+!     --------------------
+
+!     Implicit arguments :    None.
+!     --------------------
+
+!     Method.
+!     -------
+
+!     Externals.   None.
+!     ----------
+
+!     Reference.
+!     ----------
+
+!     Author.
+!     -------
+
+!     Modifications.
+!     --------------
+!     Original :08-04-03
+!     MP Lefebvre modified suinit.F90 program.
+!     ------------------------------------------------------------------
+#endif
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+!#include "tsmbkind.h"
+
+!USE YOMFORC  , ONLY : CFORC
+USE YOMCT0B  , ONLY : LECMWF
+!USE YOMLUN   , ONLY : NULOUT
+!USE YOMRIP   , ONLY : NINDAT   ,NSSSSS
+USE YOMDIM   , ONLY : NFLEVG
+!USE YOMINI   , ONLY : NEINI
+!USE YOMVRTL  , ONLY : L131TL
+!USE YOMMCC   , ONLY : LMCC01, LMCC02, LMCC03, LMCCEC
+!USE YOMNMIA  , ONLY : LACUMTND
+!USE YOMSC2   , ONLY : NSTABUF
+!USE YOMCFU   , ONLY : NFRRC
+
+
+IMPLICIT NONE
+LOGICAL LLTRACE, LLDEBUG
+REAL PPRES(NFLEVG)
+
+LLTRACE=.TRUE.
+LLDEBUG=.TRUE.
+
+!     ------------------------
+!     *    Initialize Physics
+!     ------------------------
+
+!IF(NFLEVG >= 1) THEN
+IF (LLTRACE)  WRITE(*,*) " coucou SURAYOLMD : avant SUPHY"
+WRITE(*,FMT='('' ---------------- '')')
+WRITE(*,FMT='(''     SUPHY: '')')
+WRITE(*,FMT='('' ---------------- '')')
+!  CALL SUPHY(PPRES)
+  CALL SUPHY(6)    !!!!! A REVOIR (MPL) argument KULOUT=6 "en dur"
+
+!     ------------------------------------------------------------------
+
+END SUBROUTINE SURAYOLMD
Index: LMDZ5/trunk/libf/phylmd/rrtm/surdi.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/surdi.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/surdi.F90	(revision 1989)
@@ -0,0 +1,110 @@
+SUBROUTINE SURDI
+
+!**** *SURDI*   - INITIALIZE COMMON YOERDI CONTROLLING RADINT
+
+!     PURPOSE.
+!     --------
+!           INITIALIZE YOERDI, THE COMMON THAT CONTROLS THE
+!           RADIATION INTERFACE
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SURDI* FROM *SURAD*
+!              -----        -----
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!        NONE
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+!        COMMON YOERDI
+
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+
+!     EXTERNALS.
+!     ----------
+!        NONE
+
+!     REFERENCE.
+!     ----------
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS MODEL
+
+!     AUTHOR.
+!     -------
+!        Original  JEAN-JACQUES MORCRETTE  *ECMWF*
+!        Modified   P. Viterbo   99-03-26    Tiling of the land surface
+!        Modified   P. Viterbo   24-05-2004  surf library
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 88-12-15
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        JJMorcrette   2004-10-07 Gas concentrations
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERDI   , ONLY : RRAE     ,&
+ & RCARDI   ,RCH4     ,RN2O     ,RO3      ,RCFC11   ,&
+ & RCFC12   ,REPCLC   ,REPH2O   ,RSUNDUR  ,&
+ & RCCO2    ,RCCH4    ,RCN2O    ,RCCFC11  ,RCCFC12
+
+IMPLICIT NONE
+
+REAL(KIND=JPRB) :: ZAIRMWG, ZC11MWG, ZC12MWG, ZCH4MWG, ZCO2MWG, ZN2OMWG, ZO3MWG
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!      ----------------------------------------------------------------
+
+!*       1.    SET DEFAULT VALUES.
+!              -------------------
+
+IF (LHOOK) CALL DR_HOOK('SURDI',0,ZHOOK_HANDLE)
+RRAE = 0.1277E-02_JPRB
+
+!* Threshold for computing sunshine duration (W/m2)
+RSUNDUR=120._JPRB
+
+!*  For sea ice, monthly values are based on Ebert and Curry, 1993, Table 2.
+!   We take dry snow albedo as the representative value for non-summer
+!   months, and bare sea-ice as the representative value for summer
+!   months. The values for Antarctic are shifted six-months.
+! All computations brought back to *SUSWN*
+
+!*  Concentration of the various trace gases (IPCC/SACC values for 1990)
+!        CO2         CH4        N2O        CFC11       CFC12
+!      353ppmv     1.72ppmv   310ppbv     280pptv     484pptv
+
+ZAIRMWG = 28.970_JPRB
+ZCO2MWG = 44.011_JPRB
+ZCH4MWG = 16.043_JPRB
+ZN2OMWG = 44.013_JPRB
+ZO3MWG  = 47.9982_JPRB
+ZC11MWG = 137.3686_JPRB
+ZC12MWG = 120.9140_JPRB
+
+!RCARDI  = 353.E-06_JPRB*ZCO2MWG/ZAIRMWG
+!RCH4    = 1.72E-06_JPRB*ZCH4MWG/ZAIRMWG
+!RN2O    = 310.E-09_JPRB*ZN2OMWG/ZAIRMWG
+!RO3     =   1.E-06_JPRB*ZO3MWG /ZAIRMWG
+!RCFC11  = 280.E-12_JPRB*ZC11MWG/ZAIRMWG
+!RCFC12  = 484.E-12_JPRB*ZC12MWG/ZAIRMWG
+
+RCARDI  = RCCO2   * ZCO2MWG/ZAIRMWG
+RCH4    = RCCH4   * ZCH4MWG/ZAIRMWG
+RN2O    = RCN2O   * ZN2OMWG/ZAIRMWG
+RO3     = 1.E-06_JPRB*ZO3MWG /ZAIRMWG
+RCFC11  = RCCFC11 * ZC11MWG/ZAIRMWG
+RCFC12  = RCCFC12 * ZC12MWG/ZAIRMWG
+
+REPCLC=1.E-12_JPRB
+REPH2O=1.E-12_JPRB
+
+!     -----------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SURDI',1,ZHOOK_HANDLE)
+END SUBROUTINE SURDI
Index: LMDZ5/trunk/libf/phylmd/rrtm/surdi.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/surdi.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/surdi.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SURDI
+END SUBROUTINE SURDI
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/surdi15.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/surdi15.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/surdi15.F90	(revision 1989)
@@ -0,0 +1,132 @@
+!OPTIONS XOPT(NOEVAL)
+SUBROUTINE SURDI15
+
+!**** *SURDI15*   - INITIALIZE COMMON YOMRDI15 CONTROLLING RADINT
+!****               FROZEN VERSION (CYCLE 15) OF SURDI
+
+!     PURPOSE.
+!     --------
+!           INITIALIZE YOMRDI15, THE COMMON THAT CONTROLS THE
+!           RADIATION INTERFACE
+
+!**   INTERFACE.
+!     ----------
+!        CALL *SURDI15* FROM *SUECRAD*
+!              -------        -------
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!        NONE
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+!        COMMON YOMRDI15
+
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+
+!     EXTERNALS.
+!     ----------
+!        NONE
+
+!     REFERENCE.
+!     ----------
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE
+!     "IN CORE MODEL"
+
+!     AUTHOR.
+!     -------
+!        96-11: Ph. Dandin. Meteo-France
+!        ORIGINAL : 88-12-15 BY JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        A.Alias       05-12-2005 greenhouse gases variables (M.Deque)
+!        A.Alias       13-06-2006 RI0 value can be changed via namscen.h
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1        ,ONLY : JPIM     ,JPRB
+USE YOMHOOK         ,ONLY : LHOOK,   DR_HOOK
+! Ce qui concerne NULNAM commente par MPL le 15.04.09
+!USE YOMLUN          , ONLY : NULNAM
+USE YOMLUN_IFSAUX   , ONLY : NULOUT
+
+USE YOMCST          , ONLY : RI0
+USE YOMRDI15        , ONLY : RSDTSN15 ,RRAE15   ,RMU0015  ,RALBICE15,&
+ & RALBSEA15,RALBSNM15,RALBSNO15,RCARDI15 ,REMISS15 ,&
+ & RSNOWAL15,RVLBDC15 ,RCH415   ,RN2O15   ,RCFC1115 ,&
+ & RCFC1215 ,REPALB15 ,REPCLC15 ,REPH2O15  
+USE YOMRDU15        , ONLY : REPSEC15
+
+IMPLICIT NONE
+
+REAL(KIND=JPRB) :: XCARDI, XCFC11, XCFC12, XCH4, XN2O
+REAL(KIND=JPRB) :: ZAIRMWG, ZC11MWG, ZC12MWG, ZCH4MWG, ZCO2MWG, ZN2OMWG, ZSUPSAT
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+#include "namscen.h"
+#include "posnam.intfb.h"
+!      ----------------------------------------------------------------
+
+!*       1.    SET DEFAULT VALUES.
+!              -------------------
+
+IF (LHOOK) CALL DR_HOOK('SURDI15',0,ZHOOK_HANDLE)
+RSDTSN15  = 5.0_JPRB
+
+RRAE15 = 0.1277E-02_JPRB
+RMU0015 = RRAE15/SQRT(RRAE15*(RRAE15+2.0_JPRB))
+
+RALBICE15 = 0.55_JPRB
+RALBSEA15 = 0.07_JPRB
+RALBSNO15 = 0.80_JPRB
+RALBSNM15 = 0.40_JPRB
+RSNOWAL15 = 0.01_JPRB
+!*  Concentration of the various trace gases (IPCC/SACC values for 1990)
+!        CO2         CH4        N2O        CFC11       CFC12
+!      353ppmv     1.72ppmv   310ppbv     280pptv     484pptv
+
+XCARDI  = 353.E-06_JPRB
+XCH4    = 1.72E-06_JPRB
+XN2O    = 310.E-09_JPRB
+XCFC11  = 280.E-12_JPRB
+XCFC12  = 484.E-12_JPRB
+
+ZAIRMWG = 28.970_JPRB
+ZCO2MWG = 44.011_JPRB
+ZCH4MWG = 16.043_JPRB
+ZN2OMWG = 44.013_JPRB
+ZC11MWG = 137.3686_JPRB
+ZC12MWG = 120.9140_JPRB
+
+! Ce qui concerne NAMSCEN commente par MPL le 15.04.09
+!CALL POSNAM(NULNAM,'NAMSCEN')
+!READ       (NULNAM, NAMSCEN)
+
+WRITE(NULOUT,'( &
+ & '' CO2   = '',E14.7,'' CH4   = '',E14.7 &
+ & ,'' N2O   = '',E14.7,'' CFC11 = '',E14.7 &
+ & ,'' CFC12 = '',E14.7,'' RI0 = '',E14.7 &
+ & )') XCARDI,XCH4,XN2O,XCFC11,XCFC12,RI0  
+
+RCARDI15  = XCARDI*ZCO2MWG/ZAIRMWG
+RCH415    = XCH4*ZCH4MWG/ZAIRMWG
+RN2O15    = XN2O*ZN2OMWG/ZAIRMWG
+RCFC1115  = XCFC11*ZC11MWG/ZAIRMWG
+RCFC1215  = XCFC12*ZC12MWG/ZAIRMWG
+REMISS15  = 0.996_JPRB
+!ZSUPSAT = 0.01_JPRB
+RVLBDC15  = 0.5_JPRB
+
+REPSEC15=1.E-12_JPRB
+REPCLC15=1.E-12_JPRB
+REPH2O15=1.E-12_JPRB
+REPALB15=1.E-12_JPRB
+
+!     -----------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SURDI15',1,ZHOOK_HANDLE)
+END SUBROUTINE SURDI15
Index: LMDZ5/trunk/libf/phylmd/rrtm/surdi15.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/surdi15.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/surdi15.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SURDI15
+END SUBROUTINE SURDI15
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/surf_inq.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/surf_inq.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/surf_inq.h	(revision 1989)
@@ -0,0 +1,78 @@
+SUBROUTINE SURF_INQ(KNVTYPES,PRRCSOIL,PRWSAT,PRWCAP,PRWPWP,PRQWEVAP,PRQWSBCR,&
+                  & PRQSNCR,PRWLMAX,PRTF1,PRTF2,PRTF3,PRTF4,&
+                  & PRTFREEZSICE,PRTMELTSICE,PRCIMIN,PRALFMINSN,&
+                  & PRALFMAXSN,PRHOMINSN,PRHOMAXSN,PRDAT,&
+                  & PRDAW,PRRCSICE,PRALBSEAD,PREPALB,PRVCOV,PRVLAI,&
+                  & PRVROOTSA,PRVLAMSK,PRVLAMSKS,PRVTRSR,PRCHAR,PREPUST)
+
+!**   *SURF_INQ*  Extract information from the surface package
+
+!     Purpose.
+!     --------
+!     Interface routine for extracting information from the surf pack.
+
+!**   Interface.
+!     ----------
+!     CALL SURFINQ(...)
+!     Explicit arguments : All arguments are optional.
+!     --------------------
+
+!     Method.
+!     -------
+
+!     Externals: none
+
+!     Author.
+!     -------
+!        JF Estrade *ECMWF*
+
+!     Modifications.
+!     --------------
+!        Original : 03-10-01
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+
+IMPLICIT NONE
+
+! Declaration of arguments
+
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KNVTYPES
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRRCSOIL
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRWSAT
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRQWSBCR
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRWCAP
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRWPWP
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRQWEVAP
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRQSNCR
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRWLMAX
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRTFREEZSICE
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRTMELTSICE
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRCIMIN
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRALFMINSN
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRALFMAXSN
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRHOMINSN
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRHOMAXSN
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRDAT(:)
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRDAW(:)
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRALBSEAD
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PREPALB
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRVCOV(:) 
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRVLAI(:) 
+REAL(KIND=JPRB)    ,OPTIONAL,INTENT(OUT)  :: PRCHAR
+REAL(KIND=JPRB)    ,OPTIONAL,INTENT(OUT)  :: PREPUST
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRTF1
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRTF2
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRTF3
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRTF4
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRRCSICE
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRVROOTSA(:,:)
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRVLAMSK(:)
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRVLAMSKS(:)
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRVTRSR(:)
+
+
+!     ------------------------------------------------------------------
+
+END SUBROUTINE SURF_INQ
Index: LMDZ5/trunk/libf/phylmd/rrtm/surface_fields.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/surface_fields.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/surface_fields.F90	(revision 1989)
@@ -0,0 +1,1444 @@
+MODULE SURFACE_FIELDS
+
+!     Purpose.
+!     --------
+
+!      SURFACE_FIELDS contains data structures and manipulation routines
+!      for the surface (physics) fields in the IFS            
+
+!      This module is a mix of declarations, type definitions and 
+!       subroutines linked with surface fields. There are four parts:
+!       1/ Declaration of dimensions (including some parameter variables).
+!       2/ Definition of types.
+!       3/ Declarations:
+!          Declaration of variables SP_[group], YSP_[group]D, YSP_[group]
+!           (prognostic surface fields).
+!          Declaration of variables SD_[group], YSD_[group]D, YSD_[group]
+!           (diagnostic surface fields).
+!       4/ Some routines linked to the surface data flow:
+!          * INI_SFLP3: Initialize 3-D surface field group
+!          * SETUP_SFLP3: Setup 3-D surface field
+!          * INI_SFLP2: Initialize 2-D surface field group
+!          * SETUP_SFLP2: Setup 2-D surface field
+!          * GPPOPER: Operations on prognostic surface fields
+!          * GPOPER: Operations on ALL surface groups
+!          * GPOPER_2: Operations on 2-D surface groups
+!          * GPOPER_3: Operations on 3-D surface groups
+!          * SURF_STORE: Store all surface fields
+!          * SURF_RESTORE: Restore all surface fields
+!          * ALLO_SURF: Allocate surface field arrays
+!          * DEALLO_SURF: Deallocate surface field arrays
+
+!     Author.
+!     -------
+!     Mats Hamrud(ECMWF)
+
+!     Modifications.
+!     --------------
+!        Original : 2006-07-01
+!        Modifications:
+!        K. Yessad (25 Oct 2006): rephase ALARO0 contribution.
+!        K. Yessad (26 Oct 2006): add missing comments.
+
+!-------------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMDIM    ,ONLY : NPROMA, NGPBLKS, NUNDEFLD
+USE YOMLUN    ,ONLY : NULOUT, NULERR
+USE YOMCT0    ,ONLY : LTWOTL
+USE YOMDYN   , ONLY : REPSP1
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+IMPLICIT NONE
+SAVE
+
+!#include "abor1.intfb.h"
+!     -------------------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: JPMAXSFLDS=100 ! Max number of fields in individual group
+INTEGER(KIND=JPIM), PARAMETER :: JPMAXSTRAJ=100 ! Dimension of NSTRAJGRIB
+INTEGER(KIND=JPIM) :: NSURF=0              ! Number of surf var.
+INTEGER(KIND=JPIM) :: NSURFL=0             ! Number of surf flds (fields*levels)
+INTEGER(KIND=JPIM) :: NDIMSURF=0           ! Total of surf var (includes timelevels etc)
+INTEGER(KIND=JPIM) :: NDIMSURFL=0          ! Total dimension of all surface variables
+INTEGER(KIND=JPIM) :: NPROGSURF=0          ! Number of prognostic surf var.
+INTEGER(KIND=JPIM) :: NPROGSURFL=0         ! Number of prognostic surf flds (fields*levels)
+INTEGER(KIND=JPIM) :: NOFFTRAJ             ! Offset in surf trajectory
+INTEGER(KIND=JPIM) :: NOFFTRAJ_CST         ! Offset in "constant" surf trajectory
+INTEGER(KIND=JPIM) :: NPTRSURF             ! Used by routine GPOPER
+INTEGER(KIND=JPIM) :: NSTRAJGRIB(JPMAXSTRAJ) ! Used in trajectory setup
+
+REAL(KIND=JPRB),ALLOCATABLE   :: SURF_STORE_ARRAY(:,:,:) ! Backup array for surf (see routineSURF_STORE )
+! General type defintions
+
+! 2D surface field structure
+TYPE TYPE_SURF_MTL_2D
+INTEGER(KIND=JPIM) :: MP                   ! Basic field pointer
+INTEGER(KIND=JPIM) :: MP0                  ! Field pointer timelevel  0 (prognostic fields)
+INTEGER(KIND=JPIM) :: MP9                  ! Field pointer timelevel -1 (prognostic fields)
+INTEGER(KIND=JPIM) :: MP1                  ! Field pointer timelevel +1 (prognostic fields)
+INTEGER(KIND=JPIM) :: MP5                  ! Field pointer trajectory
+INTEGER(KIND=JPIM) :: IGRBCODE             ! GRIB parameter code (default: -999)
+CHARACTER(LEN=16)  :: CNAME                ! ARPEGE field name   (default: all spaces)
+REAL(KIND=JPRB)    :: REFVALI              ! Default value       (default: 0.0)
+INTEGER(KIND=JPIM) :: NREQIN               ! -1 - initial value from default (default)
+                                           ! +1 - initial value from reading file
+                                           !  0 - no initial value
+INTEGER(KIND=JPIM) :: ITRAJ                !  0 not in trajectory (default)
+                                           !  1 in trajectory
+                                           !  2 in "constant" trajectory
+END TYPE TYPE_SURF_MTL_2D
+
+! 3D surface field structure
+TYPE TYPE_SURF_MTL_3D
+INTEGER(KIND=JPIM) :: MP   ! Basic field pointer
+INTEGER(KIND=JPIM) :: MP0  ! Field pointer timelevel  0 (prognostic fields)
+INTEGER(KIND=JPIM) :: MP9  ! Field pointer timelevel -1 (prognostic fields)
+INTEGER(KIND=JPIM) :: MP1  ! Field pointer timelevel +1 (prognostic fields)
+INTEGER(KIND=JPIM) :: MP5  ! Field pointer trajectory
+INTEGER(KIND=JPIM),POINTER :: IGRBCODE(:)  ! GRIB parameter code (default: -999)
+CHARACTER(LEN=16) ,POINTER :: CNAME(:)     ! ARPEGE field name   (default: all spaces)
+REAL(KIND=JPRB)   ,POINTER :: REFVALI(:)   ! Default value       (default: 0.0)
+INTEGER(KIND=JPIM),POINTER :: NREQIN(:)    ! -1 - initial value from default (default)
+                                           ! +1 - initial value from reading file
+                                           !  0 - no initial value
+INTEGER(KIND=JPIM) :: ITRAJ                !  0 not in trajectory (default)
+                                           !  1 in trajectory
+                                           !  2 in "constant" trajectory
+END TYPE TYPE_SURF_MTL_3D
+
+! Descriptor pertaining to group
+TYPE TYPE_SURF_GEN
+INTEGER(KIND=JPIM) :: NUMFLDS         ! Number of field in group
+INTEGER(KIND=JPIM) :: NDIM            ! Field dimenion
+INTEGER(KIND=JPIM) :: NLEVS           ! Number of levels (for multi level groups)
+INTEGER(KIND=JPIM) :: IPTR            ! Internal use
+INTEGER(KIND=JPIM) :: IPTR5           ! Internal use
+INTEGER(KIND=JPIM) :: NDIM5           ! Dimension of trajectory array
+INTEGER(KIND=JPIM) :: NOFFTRAJ        ! Internal use
+INTEGER(KIND=JPIM) :: NOFFTRAJ_CST    ! Internal use
+CHARACTER(LEN=16)  :: CGRPNAME        ! Name of group (for prints)
+LOGICAL            :: L3D             ! TRUE if multi-level field (3-D)
+LOGICAL            :: LMTL            ! TRUE if prognostic field (multi time level)
+END TYPE TYPE_SURF_GEN
+
+! Type descriptor for derived type for communicating with GPOPER (see below)
+TYPE TYPE_SFL_COMM
+INTEGER(KIND=JPIM) :: IGRBCODE
+LOGICAL            :: L_OK 
+CHARACTER(LEN=16)  :: CNAME
+INTEGER(KIND=JPIM) :: IFLDNUM
+REAL(KIND=JPRB)    :: VALUE
+INTEGER(KIND=JPIM) :: IPTRSURF
+INTEGER(KIND=JPIM) :: ICODES(JPMAXSFLDS)
+INTEGER(KIND=JPIM) :: ICOUNT
+END TYPE TYPE_SFL_COMM
+
+! Group specific type definitions
+
+! * Group SB=SOILB: soil prognostic quantities for the different reservoirs
+!    (four reservoirs at ECMWF, deep reservoir at METEO-FRANCE):
+TYPE TYPE_SFL_SOILB
+TYPE(TYPE_SURF_MTL_3D),POINTER :: YT    ! temperature
+TYPE(TYPE_SURF_MTL_3D),POINTER :: YQ    ! liquid water content
+TYPE(TYPE_SURF_MTL_3D),POINTER :: YTL   ! ice water content (for MF)
+TYPE(TYPE_SURF_MTL_3D),POINTER :: YSB(:)
+END TYPE TYPE_SFL_SOILB
+
+! * Group SG=SNOWG: surface snow prognostic quantities:
+TYPE TYPE_SFL_SNOWG
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YF    ! content of surface snow
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YA    ! snow albedo
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YR    ! snow density
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YT    ! total albedo (diagnostic for MF for LVGSN)
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSG(:)
+END TYPE TYPE_SFL_SNOWG
+
+! * Group RR=RESVR: surface prognostic quantities (ECMWF) or
+!   surface + superficial reservoir prognostic quantities (MF):
+!   Remark:
+!    at ECMWF there are 4 soil reservoirs and there is a
+!    clear distinction between the soil reservoirs (group SOILB)
+!    and the surface (group RESVR);
+!    at METEO-FRANCE there is a deep reservoir (group SOILB) and a
+!    superficial reservoir (group RESVR):
+!    - there is a skin surface temperature (Ts) which is the temperature at the
+!      interface surface/superficial reservoir (and not two separate quantities
+!      for superficial reservoir and surface)
+!    - there is a skin surface water content (denoted by Wl) and a superficial
+!      reservoir water content (denoted by Ws).
+!    - there is a superficial reservoir ice content but no surface ice content.
+!    (remark k.y.: it would have been more logical to use group name
+!    RESVR for internal reservoirs and group name SOILB for surface!).
+TYPE TYPE_SFL_RESVR
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YT    ! skin temperature (Ts)
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YW    ! skin water content (Wskin) at ECMWF
+                                        ! superficial reservoir water content (Ws) at MF
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YFC   ! skin water content (Wl) at MF
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YIC   ! superficial reservoir ice
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YFP1  ! interpolated Ts for 2nd part of 927-FULLPOS
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YRR(:)
+END TYPE TYPE_SFL_RESVR
+
+! * Group WS=WAVES: surface prognostic quantities over sea:
+TYPE TYPE_SFL_WAVES
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YWS(:)
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YCHAR ! Charnock constant
+END TYPE TYPE_SFL_WAVES
+
+! * Group EP=EXTRP: extra 3-d prognostic fields:
+TYPE TYPE_SFL_EXTRP
+TYPE(TYPE_SURF_MTL_3D),POINTER :: YEP(:)
+END TYPE TYPE_SFL_EXTRP
+
+! * Group X2=XTRP2: extra 2-d prognostic fields:
+!   (is used for precipitation fields in CANARI)
+TYPE TYPE_SFL_XTRP2
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YX2(:)
+END TYPE TYPE_SFL_XTRP2
+
+! * Group CI=CANRI: 2-d prognostic fields for CANARI:
+TYPE TYPE_SFL_CANRI
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YCI(:)
+END TYPE TYPE_SFL_CANRI
+
+! * Group VF=VARSF: climatological/geographical diagnostic fields:
+TYPE TYPE_SFL_VARSF
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YZ0F    ! gravity * surface roughness length
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YALBF   ! surface shortwave albedo
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YEMISF  ! surface longwave emissivity
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YGETRL  ! standard deviation of orography
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YITM    ! land-sea mask
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YVEG    ! vegetation cover
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YVRLAN  ! anisotropy of the sub-grid scale orography
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YVRLDI  ! angle of the direction of orography with the x axis
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSIG    ! characteristic orographic slope
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YALBSF  ! soil shortwave albedo
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YCONT   ! fraction of land
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSST    ! (open) sea surface temperature
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YLZ0H   ! logarithm of roughness length for heat
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YCVL    ! low vegetation cover
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YCVH    ! high vegetation cover
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YTVL    ! low vegetation type
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YTVH    ! high vegetation type
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YCI     ! sea ice fraction
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YUCUR   ! U-component of the ocean current
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YVCUR   ! V-component of the ocean current
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YZ0RLF  ! gravity * vegetation roughness length
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YCO2O   ! oceanic CO2 flux
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YCO2B   ! biosphere CO2 flux
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YCO2A   ! anthropogenic CO2 flux
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSDFOR  ! SD filtered orography
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YALUVP  ! MODIS-derived parallel albedo for shortwave radiation
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YALUVD  ! MODIS-derived diffuse albedo for shortwave radiation
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YALNIP  ! MODIS-derived parallel albedo for longwave radiation
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YALNID  ! MODIS-derived diffuse albedo for longwave radiation
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSF6    ! anthropogenic SF6 flux
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YFP1    ! surface orography in the 2nd part of FULLPOS-927
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YVF(:)
+END TYPE TYPE_SFL_VARSF
+
+! * Group VP=VCLIP: deep soil diagnostic fields:
+TYPE TYPE_SFL_VCLIP
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YTPC    ! climatological deep layer temperature
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YWPC    ! climatological deep layer moisture
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YVP(:)
+END TYPE TYPE_SFL_VCLIP
+
+! * Group VV=VCLIV: vegetation diagnostic fields:
+TYPE TYPE_SFL_VCLIV
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YARG    ! silt percentage within soil
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSAB    ! percentage of sand within the soil
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YD2     ! soil depth
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YIVEG   ! type of vegetation
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YRSMIN  ! stomatal minimum resistance
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YLAI    ! leaf area index
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YHV     ! resistance to evapotranspiration
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YZ0H    ! gravity * roughness length for heat
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YALS    ! albedo of bare ground
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YALV    ! albedo of vegetation
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YVV(:)
+END TYPE TYPE_SFL_VCLIV
+
+! * Group VN=VCLIN: cloudiness diagnostic predictors:
+TYPE TYPE_SFL_VCLIN
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YTOP    ! index of convective cloud top
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YBAS    ! index of convective cloud base
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YACPR   ! averaged convective precipitaion rate
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YVN(:)
+END TYPE TYPE_SFL_VCLIN
+
+! * Group VH=VCLIH: convective cloud diagnostic fields:
+TYPE TYPE_SFL_VCLIH
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YTCCH   ! total convective cloudiness
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSCCH   ! convective cloud summit
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YBCCH   ! convective cloud base
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YPBLH   ! PBL height
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSPSH   ! variable for prognostic convection scheme (ALARO)
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YVH(:)
+END TYPE TYPE_SFL_VCLIH
+
+! * Group VA=VCLIA: aerosol diagnostic fields:
+TYPE TYPE_SFL_VCLIA
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSEA    ! aerosol: sea
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YLAN    ! aerosol: land
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSOO    ! aerosol: soot
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YDES    ! aerosol: desert
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSUL    ! aerosol: sulfate
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YVOL    ! aerosol: volcano
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YNUD    ! aerosol: nudging
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YVA(:)
+END TYPE TYPE_SFL_VCLIA
+
+! * Group VG=VCLIG: ice-coupler diagnostic fields:
+TYPE TYPE_SFL_VCLIG
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YICFR   ! sea-ice fraction
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSOUP   ! upward solar flux over sea-ice
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YIRUP   ! upward IR flux over sea-ice
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YCHSS   ! sensible heat over sea-ice
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YEVAP   ! evaporation over sea-ice
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YTAUX   ! U-component of stress over sea-ice
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YTAUY   ! V-component of stress over sea-ice
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YVG(:)
+END TYPE TYPE_SFL_VCLIG
+
+! * Group VC=VO3ABC: A,B and C (Climatological ozone profiles) diagnostic fields:
+TYPE TYPE_SFL_VO3ABC
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YA      ! A climatological ozone profile
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YB      ! B climatological ozone profile
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YC      ! C climatological ozone profile
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YVC(:)
+END TYPE TYPE_SFL_VO3ABC
+
+! * Group VD=VDIAG: (ECMWF) diagnostic fields:
+TYPE TYPE_SFL_VDIAG
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YLSP   !Large scale precipitation
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YCP    !Convective precipitation
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSF    !Snowfall
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YBLD   !Boundary layer dissipation
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSSHF  !Surface sensible heat flux
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSLHF  !Surface latent heat flux
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YMSL   !Mean sea level pressure
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YTCC   !Total cloud cover
+TYPE(TYPE_SURF_MTL_2D),POINTER :: Y10U   !U-wind at 10 m
+TYPE(TYPE_SURF_MTL_2D),POINTER :: Y10V   !V-wind at 10 m
+TYPE(TYPE_SURF_MTL_2D),POINTER :: Y2T    !Temperature at 2 m
+TYPE(TYPE_SURF_MTL_2D),POINTER :: Y2D    !Dewpoint temperature at 2 m
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSSR   !Surface solar radiation
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSTR   !Surface thermal radiation
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YTSR   !Top solar radiation
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YTTR   !Top thermal radiation
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YEWSS  !Instantaneous surface U-wind stress
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YNSSS  !Instantaneous surface V-wind stress
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YE     !Water evaporation
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YCCC   !Convective cloud cover
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YLCC   !Low cloud cover
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YMCC   !Medium cloud cover
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YHCC   !High cloud cover
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YLGWS  !Zonal gravity wave stress
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YMGWS  !Meridian gravity wave stress
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YGWD   !Gravity wave dissipation
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YMX2T  !Maximum temperature at 2 m
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YMN2T  !Minimum temperature at 2 m
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YRO    !Runoff
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YALB   !(surface shortwave) albedo
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YIEWSS !Instantaneous surface zonal component of stress
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YINSSS !Instantaneous surface meridian component of stress
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YISSHF !Instantaneous surface heat flux
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YIE    !Instantaneous surface moisture flux
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YCSF   !Convective snow fall
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YLSSF  !Large scale snowfall
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YZ0F   !Gravity * surface roughness length
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YLZ0H  !Logarithm of z0 times heat flux
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YTCW   !Total water content in a vertical column
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YTCWV  !Total water vapor content in a vertical column
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YTCLW  !Total liquid water content in a vertical column
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YTCIW  !Total ice water content in a vertical column
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSSRD  !Downward surface solar radiation
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSTRD  !Downward surface thermic radiation
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YBLH   !Height of boundary layer
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSUND  !Sunshine duration
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSPAR  !Surface downward PARadiation
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSUVB  !Surface downward UV-B radiation
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YCAPE  !Conv.avail.potential energy (CAPE)
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YTSRC  !Top solar radiation clear sky
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YTTRC  !Top thermal radiation clear sky
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSSRC  !Surface solar radiation clear sky
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSTRC  !Surface thermal radiation clear sky
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YES    !Evaporation of snow
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSMLT  !Snow melt
+TYPE(TYPE_SURF_MTL_2D),POINTER :: Y10FG  !Wind gust at 10 m (max since previous pp)
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YLSPF  !Large scale precipitation fraction
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YTCO3  !Total ozone content in a vertical column
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YVIMD  !Vertically integrated mass divergence
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSPARC !Surface clear-sky parallel radiation
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSTINC !TOA (top of atmosph?) incident solar radiation
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YTCGHG(:)  !Total column greenhouse gases
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YTCGRG(:)  !Total column reactive gases
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YTCTRAC(:) !Total column tracers
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YVD(:)
+END TYPE TYPE_SFL_VDIAG
+
+! * Group VX=VCLIX: auxilary climatological diagnostic fields:
+TYPE TYPE_SFL_VCLIX
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YORO    ! climatological surface geopotential
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YTSC    ! climatological surface temperature
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YPWS    ! climatological surface max. prop. moisture
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YPWP    ! climatological deep soil max. prop. moisture
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSNO    ! climatological snow cover
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YTPC    ! climatological deep soil temperature
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YSAB    ! climatologic percentage of sand within the soil
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YXD2    ! climatologic soil depth
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YLSM    ! climatologic land sea mask
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YIVEG   ! climatologic type of vegetation
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YVX(:)
+END TYPE TYPE_SFL_VCLIX
+
+! * Group XA=VEXTRA: extra 3-d diagnostic fields:
+TYPE TYPE_SFL_VEXTRA
+TYPE(TYPE_SURF_MTL_3D),POINTER :: YXA(:)
+END TYPE TYPE_SFL_VEXTRA
+
+! * Group X2=VEXTR2: extra 2-d diagnostic fields:
+TYPE TYPE_SFL_VEXTR2
+TYPE(TYPE_SURF_MTL_2D),POINTER :: YX2(:)
+END TYPE TYPE_SFL_VEXTR2
+
+! End of type definitions
+
+! Data structures
+
+! Prognostic (multi time level) fields
+
+! Soilb
+REAL(KIND=JPRB),ALLOCATABLE :: SP_SB (:,:,:,:)
+TYPE(TYPE_SURF_GEN)    :: YSP_SBD
+TYPE(TYPE_SFL_SOILB)   :: YSP_SB
+
+! Snowg
+REAL(KIND=JPRB),ALLOCATABLE :: SP_SG (:,:,:)
+TYPE(TYPE_SURF_GEN)    :: YSP_SGD
+TYPE(TYPE_SFL_SNOWG)   :: YSP_SG
+
+! Resvr
+REAL(KIND=JPRB),ALLOCATABLE :: SP_RR (:,:,:)
+TYPE(TYPE_SURF_GEN)    :: YSP_RRD
+TYPE(TYPE_SFL_RESVR)   :: YSP_RR
+
+
+! Extrp
+REAL(KIND=JPRB),ALLOCATABLE :: SP_EP (:,:,:,:)
+TYPE(TYPE_SURF_GEN)    :: YSP_EPD
+TYPE(TYPE_SFL_EXTRP)   :: YSP_EP 
+
+! Xtrp2
+REAL(KIND=JPRB),ALLOCATABLE :: SP_X2 (:,:,:)
+TYPE(TYPE_SURF_GEN)    :: YSP_X2D
+TYPE(TYPE_SFL_XTRP2)   :: YSP_X2
+
+! Canri
+REAL(KIND=JPRB),ALLOCATABLE :: SP_CI (:,:,:)
+TYPE(TYPE_SURF_GEN)    :: YSP_CID
+TYPE(TYPE_SFL_CANRI)   :: YSP_CI
+
+! One time level fields
+
+! Varsf
+REAL(KIND=JPRB),ALLOCATABLE :: SD_VF (:,:,:)
+TYPE(TYPE_SURF_GEN)    :: YSD_VFD
+TYPE(TYPE_SFL_VARSF)   :: YSD_VF
+
+! Vclip
+REAL(KIND=JPRB),ALLOCATABLE :: SD_VP (:,:,:)
+TYPE(TYPE_SURF_GEN)    :: YSD_VPD
+TYPE(TYPE_SFL_VCLIP)   :: YSD_VP
+
+! Vcliv
+REAL(KIND=JPRB),ALLOCATABLE :: SD_VV (:,:,:)
+TYPE(TYPE_SURF_GEN)    :: YSD_VVD
+TYPE(TYPE_SFL_VCLIV)   :: YSD_VV
+
+! Vclin
+REAL(KIND=JPRB),ALLOCATABLE :: SD_VN (:,:,:)
+TYPE(TYPE_SURF_GEN)    :: YSD_VND
+TYPE(TYPE_SFL_VCLIN)   :: YSD_VN
+
+! Vclih
+REAL(KIND=JPRB),ALLOCATABLE :: SD_VH (:,:,:)
+TYPE(TYPE_SURF_GEN)    :: YSD_VHD
+TYPE(TYPE_SFL_VCLIH)   :: YSD_VH
+
+! Vclia
+REAL(KIND=JPRB),ALLOCATABLE :: SD_VA (:,:,:)
+TYPE(TYPE_SURF_GEN)    :: YSD_VAD
+TYPE(TYPE_SFL_VCLIA)   :: YSD_VA
+
+! Vo3abc
+REAL(KIND=JPRB),ALLOCATABLE :: SD_VC (:,:,:)
+TYPE(TYPE_SURF_GEN)    :: YSD_VCD
+TYPE(TYPE_SFL_VO3ABC)  :: YSD_VC
+
+! Vdiag
+REAL(KIND=JPRB),ALLOCATABLE :: SD_VD (:,:,:)
+TYPE(TYPE_SURF_GEN)    :: YSD_VDD
+TYPE(TYPE_SFL_VDIAG)   :: YSD_VD
+
+! Waves
+REAL(KIND=JPRB),ALLOCATABLE :: SD_WS (:,:,:)
+TYPE(TYPE_SURF_GEN)    :: YSD_WSD
+TYPE(TYPE_SFL_WAVES)   :: YSD_WS
+
+! Vclix
+REAL(KIND=JPRB),ALLOCATABLE :: SD_VX (:,:,:)
+TYPE(TYPE_SURF_GEN)    :: YSD_VXD
+TYPE(TYPE_SFL_VCLIX)   :: YSD_VX
+
+! Vextra
+
+REAL(KIND=JPRB),ALLOCATABLE :: SD_XA (:,:,:,:)
+TYPE(TYPE_SURF_GEN)    :: YSD_XAD
+TYPE(TYPE_SFL_VEXTRA)  :: YSD_XA
+
+! Vextr2
+
+REAL(KIND=JPRB),ALLOCATABLE :: SD_X2 (:,:,:)
+TYPE(TYPE_SURF_GEN)    :: YSD_X2D
+TYPE(TYPE_SFL_VEXTR2)  :: YSD_X2
+
+!-------------------------------------------------------------------------
+
+CONTAINS
+
+!=========================================================================
+
+SUBROUTINE INI_SFLP3(YDSC,YD,KFLDS,KLEVS,LDMTL,CDGRPNAME)
+! Initialize 3-D surface field group
+TYPE(TYPE_SURF_GEN),INTENT(INOUT)    :: YDSC
+TYPE(TYPE_SURF_MTL_3D),INTENT(INOUT) :: YD(:)
+INTEGER(KIND=JPIM),INTENT(IN)        :: KFLDS
+INTEGER(KIND=JPIM),INTENT(IN)        :: KLEVS
+LOGICAL,INTENT(IN)                   :: LDMTL
+CHARACTER(LEN=*),INTENT(IN)          :: CDGRPNAME
+
+INTEGER(KIND=JPIM) :: JFLD, IMAXF
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!-------------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SURFACE_FIELDS:INI_SFLP3',0,ZHOOK_HANDLE)
+
+IMAXF = SIZE(YD)
+YDSC%NUMFLDS = KFLDS
+YDSC%NLEVS = KLEVS
+YDSC%IPTR  = 1
+YDSC%LMTL  = LDMTL
+YDSC%CGRPNAME = CDGRPNAME
+YDSC%NDIM5 = 0
+YDSC%NOFFTRAJ = NOFFTRAJ
+YDSC%NOFFTRAJ_CST = NOFFTRAJ_CST
+
+NSURF = NSURF+YDSC%NUMFLDS
+NSURFL = NSURFL+YDSC%NUMFLDS*YDSC%NLEVS
+IF(LDMTL) THEN
+  NPROGSURF = NPROGSURF+YDSC%NUMFLDS
+  NPROGSURFL = NPROGSURFL+YDSC%NUMFLDS*YDSC%NLEVS
+ENDIF
+
+IF(LDMTL) THEN
+  IF (LTWOTL) THEN
+    YDSC%NDIM = 2*YDSC%NUMFLDS
+  ELSE
+    YDSC%NDIM = 3*YDSC%NUMFLDS
+  ENDIF
+ELSE
+  YDSC%NDIM = YDSC%NUMFLDS
+ENDIF  
+NDIMSURF = NDIMSURF + YDSC%NDIM    
+NDIMSURFL = NDIMSURFL + YDSC%NDIM*YDSC%NLEVS
+    
+DO JFLD=1,KFLDS
+  ALLOCATE(YD(JFLD)%IGRBCODE(KLEVS))
+  ALLOCATE(YD(JFLD)%CNAME(KLEVS))
+  ALLOCATE(YD(JFLD)%REFVALI(KLEVS))
+  ALLOCATE(YD(JFLD)%NREQIN(KLEVS))
+  YD(JFLD)%IGRBCODE(:) = -999
+  YD(JFLD)%CNAME(:) = ''
+  YD(JFLD)%REFVALI(:) = 0.0_JPRB
+  YD(JFLD)%NREQIN(:) = -1
+  YD(JFLD)%MP = JFLD
+  IF (YDSC%LMTL) THEN
+    YD(JFLD)%MP0 = YD(JFLD)%MP
+    IF(LTWOTL) THEN
+      YD(JFLD)%MP9 = YD(JFLD)%MP0
+      YD(JFLD)%MP1 = YD(JFLD)%MP0+YDSC%NUMFLDS
+    ELSE
+      YD(JFLD)%MP9 = YD(JFLD)%MP0+YDSC%NUMFLDS
+      YD(JFLD)%MP1 = YD(JFLD)%MP0+2*YDSC%NUMFLDS
+    ENDIF
+  ELSE
+    YD(JFLD)%MP0 = NUNDEFLD
+    YD(JFLD)%MP9 = NUNDEFLD
+    YD(JFLD)%MP1 = NUNDEFLD
+  ENDIF
+  YD(JFLD)%MP5 = NUNDEFLD
+  YD(JFLD)%ITRAJ = 0
+ENDDO
+
+DO JFLD=KFLDS+1,IMAXF
+  YD(JFLD)%MP  = NUNDEFLD
+  YD(JFLD)%MP0 = NUNDEFLD
+  YD(JFLD)%MP9 = NUNDEFLD
+  YD(JFLD)%MP1 = NUNDEFLD
+  YD(JFLD)%MP5 = NUNDEFLD
+  YD(JFLD)%ITRAJ = 0
+ENDDO
+
+WRITE(NULOUT,*) 'INITIALIZING 3-D SURFACE FIELD GROUP ', YDSC%CGRPNAME
+WRITE(NULOUT,*) 'NUMFLDS=',YDSC%NUMFLDS,' NLEVS=',YDSC%NLEVS,' LMTL=',YDSC%LMTL 
+
+IF (LHOOK) CALL DR_HOOK('SURFACE_FIELDS:INI_SFLP3',1,ZHOOK_HANDLE)
+END SUBROUTINE INI_SFLP3
+
+!=========================================================================
+
+SUBROUTINE SETUP_SFLP3(YDSC,YD,KGRIB,CDNAME,PDEFAULT,KTRAJ,KREQIN)
+! Setup 3-D surface field 
+TYPE(TYPE_SURF_GEN),INTENT(INOUT)      :: YDSC
+TYPE(TYPE_SURF_MTL_3D),INTENT(INOUT)   :: YD
+INTEGER(KIND=JPIM),OPTIONAL,INTENT(IN) :: KGRIB(:)
+CHARACTER(LEN=16) ,OPTIONAL,INTENT(IN) :: CDNAME(:)
+REAL(KIND=JPRB)   ,OPTIONAL,INTENT(IN) :: PDEFAULT(:)
+INTEGER(KIND=JPIM),OPTIONAL,INTENT(IN) :: KTRAJ
+INTEGER(KIND=JPIM),OPTIONAL,INTENT(IN) :: KREQIN(:)
+
+INTEGER(KIND=JPIM) :: IPTR,JLEV
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!-------------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SURFACE_FIELDS:SETUP_SFLP3',0,ZHOOK_HANDLE)
+IPTR = YDSC%IPTR
+IF(IPTR > YDSC%NUMFLDS) THEN
+  WRITE(NULERR,*) 'SURFACE FIELDS UNDER-DIMENSINED - GROUP ',&
+   & YDSC%CGRPNAME,YDSC%NUMFLDS,KGRIB(1),CDNAME(1)
+  CALL ABOR1('IPTR > YDSC%NUMFLDS')
+ENDIF
+IF(PRESENT(KGRIB)) THEN
+  YD%IGRBCODE(:) = KGRIB(:)
+ENDIF
+IF(PRESENT(KREQIN)) THEN
+  YD%NREQIN(:) = KREQIN(:)
+ENDIF
+IF(PRESENT(CDNAME)) THEN
+  YD%CNAME(:)    = CDNAME(:)
+ENDIF
+IF(PRESENT(PDEFAULT)) THEN
+  YD%REFVALI(:) = PDEFAULT
+ENDIF
+IF(PRESENT(KTRAJ)) THEN
+  IF(KTRAJ == 1) THEN
+    DO JLEV=1,YDSC%NLEVS
+      NSTRAJGRIB(NOFFTRAJ+JLEV) = YD%IGRBCODE(JLEV)
+    ENDDO
+    NOFFTRAJ = NOFFTRAJ+YDSC%NLEVS
+  ELSEIF(KTRAJ == 2) THEN
+    NOFFTRAJ_CST = NOFFTRAJ_CST+YDSC%NLEVS
+  ELSEIF(KTRAJ /= 0) THEN
+    CALL ABOR1('SURFACE_FIELDS:SETUP_SFLP3 - UNKNOWN KTRAJ')
+  ENDIF
+  YD%ITRAJ = KTRAJ
+  YDSC%NDIM5 = YDSC%NDIM5+1
+  YD%MP5 = YDSC%NDIM5
+ENDIF
+DO JLEV=1,YDSC%NLEVS
+  IF(YDSC%LMTL) THEN
+    WRITE(NULOUT,'(1X,A,2I4,1X,A,6I4)') &
+     & YDSC%CGRPNAME(1:6),YDSC%IPTR,JLEV,YD%CNAME(JLEV),YD%IGRBCODE(JLEV),&
+     & YD%MP0,YD%MP9,YD%MP1,YD%ITRAJ,YD%NREQIN(JLEV)
+  ELSE
+    WRITE(NULOUT,'(1X,A,2I4,1X,A,4I4)') &
+     & YDSC%CGRPNAME(1:6),YDSC%IPTR,JLEV,YD%CNAME(JLEV),YD%IGRBCODE(JLEV),&
+     & YD%MP,YD%ITRAJ,YD%NREQIN(JLEV)
+  ENDIF
+ENDDO
+YDSC%IPTR = YDSC%IPTR+1
+  
+IF (LHOOK) CALL DR_HOOK('SURFACE_FIELDS:SETUP_SFLP3',1,ZHOOK_HANDLE)
+END SUBROUTINE SETUP_SFLP3
+
+!=========================================================================
+
+SUBROUTINE INI_SFLP2(YDSC,YD,KFLDS,LDMTL,CDGRPNAME)
+! Initialize 2-D surface field group
+TYPE(TYPE_SURF_GEN),INTENT(INOUT)    :: YDSC
+TYPE(TYPE_SURF_MTL_2D),INTENT(INOUT) :: YD(:)
+INTEGER(KIND=JPIM),INTENT(IN)        :: KFLDS
+LOGICAL,INTENT(IN)                   :: LDMTL
+CHARACTER(LEN=*),INTENT(IN)          :: CDGRPNAME
+
+INTEGER(KIND=JPIM) :: JFLD, IMAXF
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!-------------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SURFACE_FIELDS:INI_SFLP2',0,ZHOOK_HANDLE)
+
+IMAXF = SIZE(YD)
+YDSC%NUMFLDS = KFLDS
+YDSC%NLEVS = -1
+YDSC%IPTR  = 1
+YDSC%LMTL  = LDMTL
+YDSC%CGRPNAME = CDGRPNAME
+YDSC%NDIM5 = 0
+YDSC%NOFFTRAJ = NOFFTRAJ 
+YDSC%NOFFTRAJ_CST = NOFFTRAJ_CST 
+
+NSURF = NSURF+YDSC%NUMFLDS
+NSURFL = NSURFL+YDSC%NUMFLDS
+IF(LDMTL) THEN
+  NPROGSURF = NPROGSURF+YDSC%NUMFLDS
+  NPROGSURFL = NPROGSURFL+YDSC%NUMFLDS
+ENDIF
+
+IF(LDMTL) THEN
+  IF (LTWOTL) THEN
+    YDSC%NDIM = 2*YDSC%NUMFLDS
+  ELSE
+    YDSC%NDIM = 3*YDSC%NUMFLDS
+  ENDIF
+ELSE
+  YDSC%NDIM = YDSC%NUMFLDS
+ENDIF  
+NDIMSURF = NDIMSURF + YDSC%NDIM    
+NDIMSURFL = NDIMSURFL + YDSC%NDIM    
+DO JFLD=1,KFLDS
+  YD(JFLD)%IGRBCODE = -999
+  YD(JFLD)%CNAME = ''
+  YD(JFLD)%REFVALI = 0.0_JPRB
+  YD(JFLD)%NREQIN = -1
+  YD(JFLD)%MP = JFLD
+  IF (YDSC%LMTL) THEN
+    YD(JFLD)%MP0 = YD(JFLD)%MP
+    IF(LTWOTL) THEN
+      YD(JFLD)%MP9 = YD(JFLD)%MP0
+      YD(JFLD)%MP1 = YD(JFLD)%MP0+YDSC%NUMFLDS
+    ELSE
+      YD(JFLD)%MP9 = YD(JFLD)%MP0+YDSC%NUMFLDS
+      YD(JFLD)%MP1 = YD(JFLD)%MP0+2*YDSC%NUMFLDS
+    ENDIF
+  ELSE
+    YD(JFLD)%MP0 = NUNDEFLD
+    YD(JFLD)%MP9 = NUNDEFLD
+    YD(JFLD)%MP1 = NUNDEFLD
+  ENDIF
+  YD(JFLD)%MP5 = NUNDEFLD
+  YD(JFLD)%ITRAJ = 0
+ENDDO
+  
+DO JFLD=KFLDS+1,IMAXF
+  YD(JFLD)%MP  = NUNDEFLD
+  YD(JFLD)%MP0 = NUNDEFLD
+  YD(JFLD)%MP9 = NUNDEFLD
+  YD(JFLD)%MP1 = NUNDEFLD
+  YD(JFLD)%MP5 = NUNDEFLD
+  YD(JFLD)%ITRAJ = 0
+ENDDO
+
+WRITE(NULOUT,*) 'INITIALIZING 2-D SURFACE FIELD GROUP ', YDSC%CGRPNAME
+WRITE(NULOUT,*) 'NUMFLDS=',YDSC%NUMFLDS,' LMTL=',YDSC%LMTL 
+
+IF (LHOOK) CALL DR_HOOK('SURFACE_FIELDS:INI_SFLP2',1,ZHOOK_HANDLE)
+END SUBROUTINE INI_SFLP2
+
+!=========================================================================
+
+SUBROUTINE SETUP_SFLP2(YDSC,YD,KGRIB,CDNAME,PDEFAULT,KTRAJ,KREQIN)
+! Setup 2-D surface field
+TYPE(TYPE_SURF_GEN),INTENT(INOUT)      :: YDSC
+TYPE(TYPE_SURF_MTL_2D),INTENT(INOUT)   :: YD
+INTEGER(KIND=JPIM),OPTIONAL,INTENT(IN) :: KGRIB
+CHARACTER(LEN=16) ,OPTIONAL,INTENT(IN) :: CDNAME
+REAL(KIND=JPRB)   ,OPTIONAL,INTENT(IN) :: PDEFAULT
+INTEGER(KIND=JPIM),OPTIONAL,INTENT(IN) :: KTRAJ
+INTEGER(KIND=JPIM),OPTIONAL,INTENT(IN) :: KREQIN
+
+INTEGER(KIND=JPIM) :: IPTR
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!-------------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SURFACE_FIELDS:SETUP_SFLP2',0,ZHOOK_HANDLE)
+IPTR = YDSC%IPTR
+IF(IPTR > YDSC%NUMFLDS) THEN
+  WRITE(NULERR,*) 'SURFACE FIELDS UNDER-DIMENSINED - GROUP ',YDSC%CGRPNAME,YDSC%NUMFLDS,KGRIB,CDNAME
+  CALL ABOR1('IPTR > YDSC%NUMFLDS')
+ENDIF
+IF(PRESENT(KGRIB)) THEN
+  YD%IGRBCODE = KGRIB
+ENDIF
+IF(PRESENT(KREQIN)) THEN
+  YD%NREQIN = KREQIN
+ENDIF
+IF(PRESENT(CDNAME)) THEN
+  YD%CNAME    = CDNAME
+ENDIF
+IF(PRESENT(PDEFAULT)) THEN
+  YD%REFVALI = PDEFAULT
+ENDIF
+IF(PRESENT(KTRAJ)) THEN
+  IF(KTRAJ == 1) THEN
+    NSTRAJGRIB(NOFFTRAJ+1) = YD%IGRBCODE
+    NOFFTRAJ = NOFFTRAJ+1
+  ELSEIF(KTRAJ == 2) THEN
+    NOFFTRAJ_CST = NOFFTRAJ_CST+1
+  ELSEIF(KTRAJ /= 0) THEN
+    CALL ABOR1('SURFACE_FIELDS:SETUP_SFLP2 - UNKNOWN KTRAJ')
+  ENDIF
+  YD%ITRAJ = KTRAJ
+  YDSC%NDIM5 = YDSC%NDIM5+1
+  YD%MP5 = YDSC%NDIM5
+ENDIF
+IF(YDSC%LMTL) THEN
+  WRITE(NULOUT,'(1X,A,I4,1X,A,6I4)') &
+   & YDSC%CGRPNAME(1:6),YDSC%IPTR,YD%CNAME,YD%IGRBCODE,&
+   & YD%MP0,YD%MP9,YD%MP1,YD%ITRAJ,YD%NREQIN
+ELSE
+  WRITE(NULOUT,'(1X,A,I4,1X,A,4I4)') &
+   & YDSC%CGRPNAME(1:6),YDSC%IPTR,YD%CNAME,YD%IGRBCODE,YD%MP,YD%ITRAJ,YD%NREQIN
+ENDIF
+  
+YDSC%IPTR = YDSC%IPTR+1
+IF (LHOOK) CALL DR_HOOK('SURFACE_FIELDS:SETUP_SFLP2',1,ZHOOK_HANDLE)
+END SUBROUTINE SETUP_SFLP2
+
+!=========================================================================
+
+SUBROUTINE GPPOPER(CDACT,KBL,PSP_SB,PSP_SG,PSP_RR,PSP_EP,PSP_X2,YDCOM)
+! Operations on prognostic surface fields
+CHARACTER(LEN=*),INTENT(IN)            :: CDACT
+INTEGER(KIND=JPIM),OPTIONAL,INTENT(IN) :: KBL
+REAL(KIND=JPRB),OPTIONAL,INTENT(INOUT) :: PSP_SB(:,:,:)
+REAL(KIND=JPRB),OPTIONAL,INTENT(INOUT) :: PSP_SG(:,:)
+REAL(KIND=JPRB),OPTIONAL,INTENT(INOUT) :: PSP_RR(:,:)
+REAL(KIND=JPRB),OPTIONAL,INTENT(INOUT) :: PSP_EP(:,:,:)
+REAL(KIND=JPRB),OPTIONAL,INTENT(INOUT) :: PSP_X2(:,:)
+TYPE(TYPE_SFL_COMM),OPTIONAL,INTENT(INOUT)   :: YDCOM
+
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!-------------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SURFACE_FIELDS:GPPOPER',0,ZHOOK_HANDLE)
+IF(PRESENT(KBL)) THEN
+  CALL GPOPER_3(CDACT,SP_SB(:,:,:,KBL),YSP_SBD,YSP_SB%YSB,YDCOM)
+  CALL GPOPER_2(CDACT,SP_SG(:,:,KBL)  ,YSP_SGD,YSP_SG%YSG,YDCOM)
+  CALL GPOPER_2(CDACT,SP_RR(:,:,KBL)  ,YSP_RRD,YSP_RR%YRR,YDCOM)
+  CALL GPOPER_3(CDACT,SP_EP(:,:,:,KBL),YSP_EPD,YSP_EP%YEP,YDCOM)
+  CALL GPOPER_2(CDACT,SP_X2(:,:,KBL)  ,YSP_X2D,YSP_X2%YX2,YDCOM)
+ELSE
+  IF(PRESENT(PSP_SB)) CALL GPOPER_3(CDACT,PSP_SB(:,:,:),YSP_SBD,YSP_SB%YSB,YDCOM)
+  IF(PRESENT(PSP_SG)) CALL GPOPER_2(CDACT,PSP_SG(:,:)  ,YSP_SGD,YSP_SG%YSG,YDCOM)
+  IF(PRESENT(PSP_RR)) CALL GPOPER_2(CDACT,PSP_RR(:,:)  ,YSP_RRD,YSP_RR%YRR,YDCOM)
+  IF(PRESENT(PSP_EP)) CALL GPOPER_3(CDACT,PSP_EP(:,:,:),YSP_EPD,YSP_EP%YEP,YDCOM)
+  IF(PRESENT(PSP_X2)) CALL GPOPER_2(CDACT,PSP_X2(:,:)  ,YSP_X2D,YSP_X2%YX2,YDCOM)
+ENDIF
+IF (LHOOK) CALL DR_HOOK('SURFACE_FIELDS:GPPOPER',1,ZHOOK_HANDLE)
+END SUBROUTINE GPPOPER
+
+!=========================================================================
+
+SUBROUTINE GPOPER(CDACT,KBL,PSP_SB,PSP_SG,PSP_RR,PSD_VF,PSD_VV,YDCOM,PFIELD,PFIELD2)
+!Operations on ALL surface groups
+CHARACTER(LEN=*),INTENT(IN)            :: CDACT
+INTEGER(KIND=JPIM),OPTIONAL,INTENT(IN) :: KBL
+REAL(KIND=JPRB),OPTIONAL,INTENT(INOUT) :: PSP_SB(:,:,:)
+REAL(KIND=JPRB),OPTIONAL,INTENT(INOUT) :: PSP_SG(:,:)
+REAL(KIND=JPRB),OPTIONAL,INTENT(INOUT) :: PSP_RR(:,:)
+REAL(KIND=JPRB),OPTIONAL,INTENT(INOUT) :: PSD_VF(:,:)
+REAL(KIND=JPRB),OPTIONAL,INTENT(INOUT) :: PSD_VV(:,:)
+TYPE(TYPE_SFL_COMM),OPTIONAL,INTENT(INOUT)   :: YDCOM
+REAL(KIND=JPRB),OPTIONAL,INTENT(INOUT) :: PFIELD(:,:)
+REAL(KIND=JPRB),OPTIONAL,INTENT(INOUT) :: PFIELD2(:,:)
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!-------------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SURFACE_FIELDS:GPOPER',0,ZHOOK_HANDLE)
+IF(CDACT == 'PUTALLFLDS' .OR. CDACT == 'GETALLFLDS'   .OR.&
+ & CDACT == 'TRAJSTORE'  .OR. CDACT == 'TRAJSTORECST' .OR. &
+ & CDACT == 'SET0TOTRAJ' .OR. CDACT == 'GETTRAJ'          ) THEN
+  IF(.NOT.PRESENT(PFIELD)) CALL ABOR1('SURFACE_FIELDS:GPOPER - PFIELD MISSING')
+  IF(SIZE(PFIELD,1) < NPROMA)  CALL ABOR1('SURFACE_FIELDS:GPOPER - SIZE(PFIELD,1) < NPROMA)')
+ENDIF
+IF(CDACT == 'PUTALLFLDS' .OR. CDACT == 'GETALLFLDS') THEN
+  IF(SIZE(PFIELD,2) < NPROGSURFL) CALL ABOR1('SURFACE_FIELDS:GPOPER - SIZE(PFIELD,2) < NPROGSURFL)')
+ENDIF
+IF(CDACT == 'GETTRAJ') THEN
+  IF(.NOT.PRESENT(PFIELD2)) CALL ABOR1('SURFACE_FIELDS:GPOPER - PFIELD2 MISSING')
+  IF(SIZE(PFIELD2,1) < NPROMA)  CALL ABOR1('SURFACE_FIELDS:GPOPER - SIZE(PFIELD2,1) < NPROMA)')
+ENDIF
+IF(PRESENT(YDCOM)) THEN
+  YDCOM%L_OK = .FALSE.
+  YDCOM%IPTRSURF = 0
+  YDCOM%ICOUNT = 0
+ENDIF
+
+NPTRSURF = 0
+IF(PRESENT(KBL)) THEN
+  IF(YSP_SBD%NDIM > 0) THEN
+    CALL GPOPER_3(CDACT,SP_SB(:,:,:,KBL),YSP_SBD,YSP_SB%YSB,YDCOM,PFIELD,PFIELD2)
+  ENDIF
+  IF(YSP_SGD%NDIM > 0) THEN
+    CALL GPOPER_2(CDACT,SP_SG(:,:,KBL)  ,YSP_SGD,YSP_SG%YSG,YDCOM,PFIELD,PFIELD2)
+  ENDIF
+  IF(YSP_RRD%NDIM > 0) THEN
+    CALL GPOPER_2(CDACT,SP_RR(:,:,KBL)  ,YSP_RRD,YSP_RR%YRR,YDCOM,PFIELD,PFIELD2)
+  ENDIF
+  IF(YSP_EPD%NDIM > 0) THEN
+    CALL GPOPER_3(CDACT,SP_EP(:,:,:,KBL),YSP_EPD,YSP_EP%YEP,YDCOM,PFIELD,PFIELD2)
+  ENDIF
+  IF(YSP_X2D%NDIM > 0) THEN
+    CALL GPOPER_2(CDACT,SP_X2(:,:,KBL)  ,YSP_X2D,YSP_X2%YX2,YDCOM,PFIELD,PFIELD2)
+  ENDIF
+  IF(YSD_VFD%NDIM > 0) THEN
+    CALL GPOPER_2(CDACT,SD_VF(:,:,KBL)  ,YSD_VFD,YSD_VF%YVF,YDCOM,PFIELD,PFIELD2)
+  ENDIF
+  IF(YSD_VPD%NDIM > 0) THEN
+    CALL GPOPER_2(CDACT,SD_VP(:,:,KBL)  ,YSD_VPD,YSD_VP%YVP,YDCOM,PFIELD,PFIELD2)
+  ENDIF
+  IF(YSD_VVD%NDIM > 0) THEN
+    CALL GPOPER_2(CDACT,SD_VV(:,:,KBL)  ,YSD_VVD,YSD_VV%YVV,YDCOM,PFIELD,PFIELD2)
+  ENDIF
+  IF(YSD_VND%NDIM > 0) THEN
+    CALL GPOPER_2(CDACT,SD_VN(:,:,KBL)  ,YSD_VND,YSD_VN%YVN,YDCOM,PFIELD,PFIELD2)
+  ENDIF
+  IF(YSD_VHD%NDIM > 0) THEN
+    CALL GPOPER_2(CDACT,SD_VH(:,:,KBL)  ,YSD_VHD,YSD_VH%YVH,YDCOM,PFIELD,PFIELD2)
+  ENDIF
+  IF(YSD_VAD%NDIM > 0) THEN
+    CALL GPOPER_2(CDACT,SD_VA(:,:,KBL)  ,YSD_VAD,YSD_VA%YVA,YDCOM,PFIELD,PFIELD2)
+  ENDIF
+  IF(YSD_VCD%NDIM > 0) THEN
+    CALL GPOPER_2(CDACT,SD_VC(:,:,KBL)  ,YSD_VCD,YSD_VC%YVC,YDCOM,PFIELD,PFIELD2)
+  ENDIF
+  IF(YSD_VDD%NDIM > 0) THEN
+    CALL GPOPER_2(CDACT,SD_VD(:,:,KBL)  ,YSD_VDD,YSD_VD%YVD,YDCOM,PFIELD,PFIELD2)
+  ENDIF
+  IF(YSD_WSD%NDIM > 0) THEN
+    CALL GPOPER_2(CDACT,SD_WS(:,:,KBL)  ,YSD_WSD,YSD_WS%YWS,YDCOM,PFIELD,PFIELD2)
+  ENDIF
+  IF(YSD_XAD%NDIM > 0) THEN
+    CALL GPOPER_3(CDACT,SD_XA(:,:,:,KBL),YSD_XAD,YSD_XA%YXA,YDCOM,PFIELD,PFIELD2)
+  ENDIF
+  IF(YSD_X2D%NDIM > 0) THEN
+    CALL GPOPER_2(CDACT,SD_X2(:,:,KBL)  ,YSD_X2D,YSD_X2%YX2,YDCOM,PFIELD,PFIELD2)
+  ENDIF
+  IF(YSD_VXD%NDIM > 0) THEN
+    CALL GPOPER_2(CDACT,SD_VX(:,:,KBL)  ,YSD_VXD,YSD_VX%YVX,YDCOM,PFIELD,PFIELD2)
+  ENDIF
+ELSE
+  IF(YSP_SBD%NDIM > 0) THEN
+    IF(PRESENT(PSP_SB)) &
+     & CALL GPOPER_3(CDACT,PSP_SB,YSP_SBD,YSP_SB%YSB,YDCOM,PFIELD,PFIELD2)
+  ENDIF
+  IF(YSP_SGD%NDIM > 0) THEN
+    IF(PRESENT(PSP_SG)) &
+     & CALL GPOPER_2(CDACT,PSP_SG,YSP_SGD,YSP_SG%YSG,YDCOM,PFIELD,PFIELD2)
+  ENDIF
+  IF(YSP_RRD%NDIM > 0) THEN
+    IF(PRESENT(PSP_RR)) &
+     & CALL GPOPER_2(CDACT,PSP_RR,YSP_RRD,YSP_RR%YRR,YDCOM,PFIELD,PFIELD2)
+  ENDIF
+  IF(YSD_VFD%NDIM > 0) THEN
+    IF(PRESENT(PSD_VF)) &
+     & CALL GPOPER_2(CDACT,PSD_VF,YSD_VFD,YSD_VF%YVF,YDCOM,PFIELD,PFIELD2)
+  ENDIF
+  IF(YSD_VVD%NDIM > 0) THEN
+    IF(PRESENT(PSD_VV)) &
+     & CALL GPOPER_2(CDACT,PSD_VV,YSD_VVD,YSD_VV%YVV,YDCOM,PFIELD,PFIELD2)
+  ENDIF
+ENDIF
+IF (LHOOK) CALL DR_HOOK('SURFACE_FIELDS:GPOPER',1,ZHOOK_HANDLE)
+END SUBROUTINE GPOPER
+
+!=========================================================================
+
+SUBROUTINE GPOPER_2(CDACT,PFLD,YDSC,YD,YDCOM,PFIELD,PFIELD2)
+! Operations on 2-D surface groups
+CHARACTER(LEN=*),INTENT(IN)                :: CDACT
+REAL(KIND=JPRB),INTENT(INOUT)              :: PFLD(:,:)
+TYPE(TYPE_SURF_GEN),INTENT(IN)             :: YDSC
+TYPE(TYPE_SURF_MTL_2D),INTENT(IN)          :: YD(:)
+TYPE(TYPE_SFL_COMM),OPTIONAL,INTENT(INOUT) :: YDCOM
+REAL(KIND=JPRB),OPTIONAL,INTENT(INOUT)     :: PFIELD(:,:)
+REAL(KIND=JPRB),OPTIONAL,INTENT(INOUT)     :: PFIELD2(:,:)
+
+INTEGER(KIND=JPIM) :: J,IPTR,IPTR2
+REAL(KIND=JPRB) :: ZZPHY
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!-------------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SURFACE_FIELDS:GPOPER_2',0,ZHOOK_HANDLE)
+IF(CDACT == 'SET9TO0') THEN
+  IF( .NOT. YDSC%LMTL) CALL ABOR1('SURFACE_FIELDS:GPOPER_2 : FIELD NOT MULTI-TIME LEVEL')
+  DO J=1,YDSC%NUMFLDS
+    PFLD(:,YD(J)%MP9) = PFLD(:,YD(J)%MP0)
+  ENDDO
+ELSEIF(CDACT == 'SET1TO0') THEN
+  IF( .NOT. YDSC%LMTL) CALL ABOR1('SURFACE_FIELDS:GPOPER_2 : FIELD NOT MULTI-TIME LEVEL')
+  DO J=1,YDSC%NUMFLDS
+    PFLD(:,YD(J)%MP1) = PFLD(:,YD(J)%MP0)
+  ENDDO
+ELSEIF(CDACT == 'SET1TO9') THEN
+  IF( .NOT. YDSC%LMTL) CALL ABOR1('SURFACE_FIELDS:GPOPER_2 : FIELD NOT MULTI-TIME LEVEL')
+  DO J=1,YDSC%NUMFLDS
+    PFLD(:,YD(J)%MP1) = PFLD(:,YD(J)%MP9)
+  ENDDO
+ELSEIF(CDACT == 'SET1TO9AD') THEN
+  IF( .NOT. YDSC%LMTL) CALL ABOR1('SURFACE_FIELDS:GPOPER_2 : FIELD NOT MULTI-TIME LEVEL')
+  DO J=1,YDSC%NUMFLDS
+    PFLD(:,YD(J)%MP0) = PFLD(:,YD(J)%MP9)+PFLD(:,YD(J)%MP1)
+    PFLD(:,YD(J)%MP1) = 0.0_JPRB
+  ENDDO
+ELSEIF(CDACT == 'SET0TO1') THEN
+  IF( .NOT. YDSC%LMTL) CALL ABOR1('SURFACE_FIELDS:GPOPER_2 : FIELD NOT MULTI-TIME LEVEL')
+  DO J=1,YDSC%NUMFLDS
+    PFLD(:,YD(J)%MP0) = PFLD(:,YD(J)%MP1)
+  ENDDO
+ELSEIF(CDACT == 'SET0TO1AD') THEN
+  IF( .NOT. YDSC%LMTL) CALL ABOR1('SURFACE_FIELDS:GPOPER_2 : FIELD NOT MULTI-TIME LEVEL')
+  DO J=1,YDSC%NUMFLDS
+    PFLD(:,YD(J)%MP1) = PFLD(:,YD(J)%MP1)+PFLD(:,YD(J)%MP0)
+    PFLD(:,YD(J)%MP0) = 0.0_JPRB
+  ENDDO
+ELSEIF(CDACT == 'SET9TO1') THEN
+  IF( .NOT. YDSC%LMTL) CALL ABOR1('SURFACE_FIELDS:GPOPER_2 : FIELD NOT MULTI-TIME LEVEL')
+  DO J=1,YDSC%NUMFLDS
+    PFLD(:,YD(J)%MP9) = PFLD(:,YD(J)%MP1)
+  ENDDO
+ELSEIF(CDACT == 'PHTFILT') THEN
+  IF( .NOT. YDSC%LMTL) CALL ABOR1('SURFACE_FIELDS:GPOPER_2 : FIELD NOT MULTI-TIME LEVEL')
+  ZZPHY=1.0_JPRB-REPSP1
+  DO J=1,YDSC%NUMFLDS
+    PFLD(:,YD(J)%MP9) = REPSP1*PFLD(:,YD(J)%MP1)+ZZPHY*PFLD(:,YD(J)%MP0)
+    PFLD(:,YD(J)%MP0) = PFLD(:,YD(J)%MP1)
+  ENDDO
+ELSEIF(CDACT == 'PHTFILTAD') THEN
+  IF( .NOT. YDSC%LMTL) CALL ABOR1('SURFACE_FIELDS:GPOPER_2 : FIELD NOT MULTI-TIME LEVEL')
+  ZZPHY=1.0_JPRB-REPSP1
+  DO J=1,YDSC%NUMFLDS
+    PFLD(:,YD(J)%MP1) = PFLD(:,YD(J)%MP1)+PFLD(:,YD(J)%MP0)
+    PFLD(:,YD(J)%MP0) = 0.0_JPRB
+    PFLD(:,YD(J)%MP1) = PFLD(:,YD(J)%MP1)+REPSP1*PFLD(:,YD(J)%MP9)
+    PFLD(:,YD(J)%MP0) = PFLD(:,YD(J)%MP0)+ZZPHY *PFLD(:,YD(J)%MP9)
+    PFLD(:,YD(J)%MP9) = 0.0_JPRB
+  ENDDO
+ELSEIF(CDACT == 'SET0TOVAL') THEN
+  IF( .NOT. YDSC%LMTL) CALL ABOR1('SURFACE_FIELDS:GPOPER_2 : FIELD NOT MULTI-TIME LEVEL')
+  DO J=1,YDSC%NUMFLDS
+    PFLD(:,YD(J)%MP0) = YDCOM%VALUE
+  ENDDO
+ELSEIF(CDACT == 'SET9TOVAL') THEN
+  IF( .NOT. YDSC%LMTL) CALL ABOR1('SURFACE_FIELDS:GPOPER_2 : FIELD NOT MULTI-TIME LEVEL')
+  DO J=1,YDSC%NUMFLDS
+    PFLD(:,YD(J)%MP9) = YDCOM%VALUE
+  ENDDO
+ELSEIF(CDACT == 'SET1TOVAL') THEN
+  IF( .NOT. YDSC%LMTL) CALL ABOR1('SURFACE_FIELDS:GPOPER_2 : FIELD NOT MULTI-TIME LEVEL')
+  DO J=1,YDSC%NUMFLDS
+    PFLD(:,YD(J)%MP1) = YDCOM%VALUE
+  ENDDO
+ELSEIF(CDACT == 'SETALLTOVAL') THEN
+  DO J=1,YDSC%NDIM
+    PFLD(:,J) = YDCOM%VALUE
+  ENDDO
+ELSEIF(CDACT == 'SETDEFAULT') THEN
+  DO J=1,YDSC%NUMFLDS
+    IF(YD(J)%NREQIN == -1) THEN
+      PFLD(:,YD(J)%MP) = YD(J)%REFVALI
+    ENDIF
+  ENDDO
+ELSEIF(CDACT == 'TRAJSTORE') THEN
+  IF(YDSC%NDIM5 > 0 ) THEN
+    IPTR = YDSC%NOFFTRAJ
+    DO J=1,YDSC%NUMFLDS
+      IF(YD(J)%ITRAJ == 1) THEN
+        IPTR = IPTR+1
+        PFIELD(:,IPTR) = PFLD(:,YD(J)%MP)
+      ENDIF
+    ENDDO
+  ENDIF
+ELSEIF(CDACT == 'TRAJSTORECST') THEN
+  IF(YDSC%NDIM5 > 0 ) THEN
+    IPTR2 = YDSC%NOFFTRAJ_CST
+    DO J=1,YDSC%NUMFLDS
+      IF(YD(J)%ITRAJ == 2) THEN
+        IPTR2 = IPTR2+1
+        PFIELD(:,IPTR2) = PFLD(:,YD(J)%MP)
+      ENDIF
+    ENDDO
+  ENDIF
+ELSEIF(CDACT == 'SET0TOTRAJ') THEN
+  IF(YDSC%NDIM5 > 0 ) THEN
+    IPTR = YDSC%NOFFTRAJ
+    DO J=1,YDSC%NUMFLDS
+      IF(YD(J)%ITRAJ == 1) THEN
+        IPTR = IPTR+1
+        PFLD(:,YD(J)%MP) = PFIELD(:,IPTR)
+      ENDIF
+    ENDDO
+  ENDIF
+ELSEIF(CDACT == 'GETTRAJ') THEN
+  IF(YDSC%NDIM5 > 0 ) THEN
+    IPTR = YDSC%NOFFTRAJ
+    IPTR2 = YDSC%NOFFTRAJ_CST
+    DO J=1,YDSC%NUMFLDS
+      IF(YD(J)%ITRAJ == 1) THEN
+        IPTR = IPTR+1
+        PFLD(:,YD(J)%MP5) = PFIELD(:,IPTR)
+      ELSEIF(YD(J)%ITRAJ == 2) THEN
+        IPTR2 = IPTR2+1
+        PFLD(:,YD(J)%MP5) = PFIELD2(:,IPTR2)
+      ENDIF
+    ENDDO
+  ENDIF
+ELSEIF(CDACT == 'GETALLFLDS') THEN
+  DO J=1,YDSC%NDIM
+    NPTRSURF = NPTRSURF+1
+    PFIELD(:,NPTRSURF) = PFLD(:,J)
+  ENDDO
+ELSEIF(CDACT == 'PUTALLFLDS') THEN
+  DO J=1,YDSC%NDIM
+    NPTRSURF = NPTRSURF+1
+    PFLD(:,J) = PFIELD(:,NPTRSURF)
+  ENDDO
+ELSEIF(CDACT == 'GETGRIBPOS') THEN
+  DO J=1,YDSC%NUMFLDS  
+    YDCOM%IPTRSURF = YDCOM%IPTRSURF+1
+    IF(YD(J)%IGRBCODE == YDCOM%IGRBCODE) THEN
+      YDCOM%IFLDNUM  = YDCOM%IPTRSURF
+      YDCOM%L_OK = .TRUE.
+    ENDIF
+  ENDDO
+ELSEIF(CDACT == 'GETFIELD') THEN
+  DO J=1,YDSC%NUMFLDS  
+    YDCOM%IPTRSURF = YDCOM%IPTRSURF+1
+    IF(YDCOM%IPTRSURF == YDCOM%IFLDNUM) THEN
+      PFIELD(:,1) = PFLD(:,J)
+      YDCOM%L_OK = .TRUE.
+    ENDIF
+  ENDDO
+ELSEIF(CDACT == 'GRIBIN') THEN
+  DO J=1,YDSC%NUMFLDS  
+    YDCOM%IPTRSURF = YDCOM%IPTRSURF+1
+    IF(YD(J)%NREQIN == 1) THEN
+      YDCOM%ICOUNT = YDCOM%ICOUNT+1
+      YDCOM%ICODES(YDCOM%ICOUNT) = YD(J)%IGRBCODE
+    ENDIF
+  ENDDO
+ELSE
+  WRITE(NULOUT,*) 'SURFACE_FIELD:GPPOPER UNKNOWN ACTION - ',CDACT
+  CALL ABOR1('SURFACE_FIELD:GPPOPER - UNKNOWN ACTION')
+ENDIF
+IF (LHOOK) CALL DR_HOOK('SURFACE_FIELDS:GPOPER_2',1,ZHOOK_HANDLE)
+END SUBROUTINE GPOPER_2
+
+!=========================================================================
+
+SUBROUTINE GPOPER_3(CDACT,PFLD,YDSC,YD,YDCOM,PFIELD,PFIELD2)
+! Operations on 3-D surface groups
+CHARACTER(LEN=*),INTENT(IN)                :: CDACT
+REAL(KIND=JPRB),INTENT(INOUT)              :: PFLD(:,:,:)
+TYPE(TYPE_SURF_GEN),INTENT(IN)             :: YDSC
+TYPE(TYPE_SURF_MTL_3D),INTENT(IN)          :: YD(:)
+TYPE(TYPE_SFL_COMM),OPTIONAL,INTENT(INOUT) :: YDCOM
+REAL(KIND=JPRB),OPTIONAL,INTENT(INOUT)     :: PFIELD(:,:)
+REAL(KIND=JPRB),OPTIONAL,INTENT(INOUT)     :: PFIELD2(:,:)
+
+INTEGER(KIND=JPIM) :: J,JLEV,IPTR,IPTR2
+REAL(KIND=JPRB) :: ZZPHY
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!-------------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SURFACE_FIELDS:GPOPER_3',0,ZHOOK_HANDLE)
+IF(CDACT == 'SET9TO0') THEN
+  IF( .NOT. YDSC%LMTL) CALL ABOR1('SURFACE_FIELDS:GPOPER_3 : FIELD NOT MULTI-TIME LEVEL')
+  DO J=1,YDSC%NUMFLDS
+    PFLD(:,:,YD(J)%MP9) = PFLD(:,:,YD(J)%MP0)
+  ENDDO
+ELSEIF(CDACT == 'SET1TO0') THEN
+  IF( .NOT. YDSC%LMTL) CALL ABOR1('SURFACE_FIELDS:GPOPER_3 : FIELD NOT MULTI-TIME LEVEL')
+  DO J=1,YDSC%NUMFLDS
+    PFLD(:,:,YD(J)%MP1) = PFLD(:,:,YD(J)%MP0)
+  ENDDO
+ELSEIF(CDACT == 'SET1TO9') THEN
+  IF( .NOT. YDSC%LMTL) CALL ABOR1('SURFACE_FIELDS:GPOPER_3 : FIELD NOT MULTI-TIME LEVEL')
+  DO J=1,YDSC%NUMFLDS
+    PFLD(:,:,YD(J)%MP1) = PFLD(:,:,YD(J)%MP9)
+  ENDDO
+ELSEIF(CDACT == 'SET1TO9AD') THEN
+  IF( .NOT. YDSC%LMTL) CALL ABOR1('SURFACE_FIELDS:GPOPER_3 : FIELD NOT MULTI-TIME LEVEL')
+  DO J=1,YDSC%NUMFLDS
+    PFLD(:,:,YD(J)%MP9) = PFLD(:,:,YD(J)%MP9)+PFLD(:,:,YD(J)%MP1)
+    PFLD(:,:,YD(J)%MP1) = 0.0_JPRB
+  ENDDO
+ELSEIF(CDACT == 'SET0TO1') THEN
+  IF( .NOT. YDSC%LMTL) CALL ABOR1('SURFACE_FIELDS:GPOPER_3 : FIELD NOT MULTI-TIME LEVEL')
+  DO J=1,YDSC%NUMFLDS
+    PFLD(:,:,YD(J)%MP0) = PFLD(:,:,YD(J)%MP1)
+  ENDDO
+ELSEIF(CDACT == 'SET0TO1AD') THEN
+  IF( .NOT. YDSC%LMTL) CALL ABOR1('SURFACE_FIELDS:GPOPER_3 : FIELD NOT MULTI-TIME LEVEL')
+  DO J=1,YDSC%NUMFLDS
+    PFLD(:,:,YD(J)%MP1) = PFLD(:,:,YD(J)%MP1)+PFLD(:,:,YD(J)%MP0)
+    PFLD(:,:,YD(J)%MP0) = 0.0_JPRB
+  ENDDO
+ELSEIF(CDACT == 'SET9TO1') THEN
+  IF( .NOT. YDSC%LMTL) CALL ABOR1('SURFACE_FIELDS:GPOPER_3 : FIELD NOT MULTI-TIME LEVEL')
+  DO J=1,YDSC%NUMFLDS
+    PFLD(:,:,YD(J)%MP9) = PFLD(:,:,YD(J)%MP1)
+  ENDDO
+ELSEIF(CDACT == 'PHTFILT') THEN
+  IF( .NOT. YDSC%LMTL) CALL ABOR1('SURFACE_FIELDS:GPOPER_3 : FIELD NOT MULTI-TIME LEVEL')
+  ZZPHY=1.0_JPRB-REPSP1
+  DO J=1,YDSC%NUMFLDS
+    PFLD(:,:,YD(J)%MP9) = REPSP1*PFLD(:,:,YD(J)%MP1)+ZZPHY*PFLD(:,:,YD(J)%MP0)
+    PFLD(:,:,YD(J)%MP0) = PFLD(:,:,YD(J)%MP1)
+  ENDDO
+ELSEIF(CDACT == 'PHTFILTAD') THEN
+  IF( .NOT. YDSC%LMTL) CALL ABOR1('SURFACE_FIELDS:GPOPER_3 : FIELD NOT MULTI-TIME LEVEL')
+  ZZPHY=1.0_JPRB-REPSP1
+  DO J=1,YDSC%NUMFLDS
+    PFLD(:,:,YD(J)%MP1) = PFLD(:,:,YD(J)%MP1)+PFLD(:,:,YD(J)%MP0)
+    PFLD(:,:,YD(J)%MP0) = 0.0_JPRB
+    PFLD(:,:,YD(J)%MP1) = PFLD(:,:,YD(J)%MP1)+REPSP1*PFLD(:,:,YD(J)%MP9)
+    PFLD(:,:,YD(J)%MP0) = PFLD(:,:,YD(J)%MP0)+ZZPHY *PFLD(:,:,YD(J)%MP9)
+    PFLD(:,:,YD(J)%MP9) = 0.0_JPRB
+  ENDDO
+ELSEIF(CDACT == 'SET0TOVAL') THEN
+  IF( .NOT. YDSC%LMTL) CALL ABOR1('SURFACE_FIELDS:GPOPER_3 : FIELD NOT MULTI-TIME LEVEL')
+  DO J=1,YDSC%NUMFLDS
+    PFLD(:,:,YD(J)%MP0) = YDCOM%VALUE
+  ENDDO
+ELSEIF(CDACT == 'SET9TOVAL') THEN
+  IF( .NOT. YDSC%LMTL) CALL ABOR1('SURFACE_FIELDS:GPOPER_3 : FIELD NOT MULTI-TIME LEVEL')
+  DO J=1,YDSC%NUMFLDS
+    PFLD(:,:,YD(J)%MP9) = YDCOM%VALUE
+  ENDDO
+ELSEIF(CDACT == 'SET1TOVAL') THEN
+  IF( .NOT. YDSC%LMTL) CALL ABOR1('SURFACE_FIELDS:GPOPER_3 : FIELD NOT MULTI-TIME LEVEL')
+  DO J=1,YDSC%NUMFLDS
+    PFLD(:,:,YD(J)%MP1) = YDCOM%VALUE
+  ENDDO
+ELSEIF(CDACT == 'SETALLTOVAL') THEN
+  DO J=1,YDSC%NDIM
+    PFLD(:,:,J) = YDCOM%VALUE
+  ENDDO
+ELSEIF(CDACT == 'SETDEFAULT') THEN
+  DO J=1,YDSC%NUMFLDS
+    DO JLEV=1,YDSC%NLEVS
+      IF(YD(J)%NREQIN(JLEV) == -1) THEN
+        PFLD(:,JLEV,YD(J)%MP) = YD(J)%REFVALI(JLEV)
+      ENDIF
+    ENDDO
+  ENDDO
+ELSEIF(CDACT == 'TRAJSTORE') THEN
+  IF(YDSC%NDIM5 > 0 ) THEN
+    IPTR = YDSC%NOFFTRAJ
+    DO J=1,YDSC%NUMFLDS
+      IF(YD(J)%ITRAJ == 1) THEN
+        DO JLEV=1,YDSC%NLEVS
+          IPTR = IPTR+1
+          PFIELD(:,IPTR) = PFLD(:,JLEV,YD(J)%MP)
+        ENDDO
+      ENDIF
+    ENDDO
+  ENDIF
+ELSEIF(CDACT == 'TRAJSTORECST') THEN
+  IF(YDSC%NDIM5 > 0 ) THEN
+    IPTR2 = YDSC%NOFFTRAJ_CST
+    DO J=1,YDSC%NUMFLDS
+      IF(YD(J)%ITRAJ == 2) THEN
+        DO JLEV=1,YDSC%NLEVS
+          IPTR2 = IPTR2+1
+          PFIELD(:,IPTR2) = PFLD(:,JLEV,YD(J)%MP)
+        ENDDO
+      ENDIF
+    ENDDO
+  ENDIF
+ELSEIF(CDACT == 'SET0TOTRAJ') THEN
+  IF(YDSC%NDIM5 > 0 ) THEN
+    IPTR = YDSC%NOFFTRAJ
+    DO J=1,YDSC%NUMFLDS
+      IF(YD(J)%ITRAJ == 1) THEN
+        DO JLEV=1,YDSC%NLEVS
+          IPTR = IPTR+1
+          PFLD(:,JLEV,YD(J)%MP) = PFIELD(:,IPTR)
+        ENDDO
+      ENDIF
+    ENDDO
+  ENDIF
+ELSEIF(CDACT == 'GETTRAJ') THEN
+  IF(YDSC%NDIM5 > 0 ) THEN
+    IPTR = YDSC%NOFFTRAJ
+    IPTR2 = YDSC%NOFFTRAJ_CST
+    DO J=1,YDSC%NUMFLDS
+      IF(YD(J)%ITRAJ == 1) THEN
+        DO JLEV=1,YDSC%NLEVS
+          IPTR = IPTR+1
+          PFLD(:,JLEV,YD(J)%MP5) = PFIELD(:,IPTR)
+        ENDDO
+      ELSEIF(YD(J)%ITRAJ == 2) THEN
+        DO JLEV=1,YDSC%NLEVS
+          IPTR2 = IPTR2+1
+          PFLD(:,JLEV,YD(J)%MP5) = PFIELD2(:,IPTR2)
+        ENDDO
+      ENDIF
+    ENDDO
+  ENDIF
+ELSEIF(CDACT == 'GETALLFLDS') THEN
+  DO J=1,YDSC%NDIM
+    DO JLEV=1,YDSC%NLEVS
+      NPTRSURF = NPTRSURF+1
+      PFIELD(:,NPTRSURF) = PFLD(:,JLEV,J)
+    ENDDO
+  ENDDO
+ELSEIF(CDACT == 'PUTALLFLDS') THEN
+  DO J=1,YDSC%NDIM
+    DO JLEV=1,YDSC%NLEVS
+      NPTRSURF = NPTRSURF+1
+      PFLD(:,JLEV,J) = PFIELD(:,NPTRSURF)
+    ENDDO
+  ENDDO
+ELSEIF(CDACT == 'GETGRIBPOS') THEN
+  DO J=1,YDSC%NUMFLDS  
+    DO JLEV=1,YDSC%NLEVS
+      YDCOM%IPTRSURF = YDCOM%IPTRSURF+1
+      IF(YD(J)%IGRBCODE(JLEV) == YDCOM%IGRBCODE) THEN
+        YDCOM%IFLDNUM  = YDCOM%IPTRSURF
+        YDCOM%L_OK = .TRUE.
+      ENDIF
+    ENDDO
+  ENDDO
+ELSEIF(CDACT == 'GETFIELD') THEN
+  DO J=1,YDSC%NUMFLDS  
+    DO JLEV=1,YDSC%NLEVS
+      YDCOM%IPTRSURF = YDCOM%IPTRSURF+1
+      IF(YDCOM%IPTRSURF == YDCOM%IFLDNUM) THEN
+        PFIELD(:,1) = PFLD(:,JLEV,J)
+        YDCOM%L_OK = .TRUE.
+      ENDIF
+    ENDDO
+  ENDDO
+ELSEIF(CDACT == 'GRIBIN') THEN
+  DO J=1,YDSC%NUMFLDS  
+    DO JLEV=1,YDSC%NLEVS
+      YDCOM%IPTRSURF = YDCOM%IPTRSURF+1
+      IF(YD(J)%NREQIN(JLEV) == 1) THEN
+        YDCOM%ICOUNT = YDCOM%ICOUNT+1
+        YDCOM%ICODES(YDCOM%ICOUNT) = YD(J)%IGRBCODE(JLEV)
+      ENDIF
+    ENDDO
+  ENDDO
+ELSE
+  WRITE(NULOUT,*) 'SURFACE_FIELD:GPPOPER UNKNOWN ACTION - ',CDACT
+  CALL ABOR1('SURFACE_FIELD:GPPOPER - UNKNOWN ACTION')
+ENDIF
+IF (LHOOK) CALL DR_HOOK('SURFACE_FIELDS:GPOPER_3',1,ZHOOK_HANDLE)
+END SUBROUTINE GPOPER_3
+
+!=========================================================================
+
+SUBROUTINE SURF_STORE
+! Store all surface fields
+INTEGER(KIND=JPIM) :: JBL
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SURFACE_FIELDS:SURF_STORE',0,ZHOOK_HANDLE)
+ALLOCATE(SURF_STORE_ARRAY(NPROMA,NDIMSURFL,NGPBLKS))
+DO JBL=1,NGPBLKS
+  CALL GPOPER('GETALLFLDS',KBL=JBL,PFIELD=SURF_STORE_ARRAY(:,:,JBL))
+ENDDO
+IF (LHOOK) CALL DR_HOOK('SURFACE_FIELDS:SURF_STORE',1,ZHOOK_HANDLE)
+END SUBROUTINE SURF_STORE
+
+!=========================================================================
+
+SUBROUTINE SURF_RESTORE
+! Restore all surface fields
+INTEGER(KIND=JPIM) :: JBL
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SURFACE_FIELDS:SURF_RESTORE',0,ZHOOK_HANDLE)
+IF(.NOT. ALLOCATED(SURF_STORE_ARRAY)) &
+ & CALL ABOR1('SURFACE_FIELDS:SURF_RESTORE - SURF_STORE NOT ALLOCATED')
+DO JBL=1,NGPBLKS
+  CALL GPOPER('PUTALLFLDS',KBL=JBL,PFIELD=SURF_STORE_ARRAY(:,:,JBL))
+ENDDO
+DEALLOCATE(SURF_STORE_ARRAY)
+IF (LHOOK) CALL DR_HOOK('SURFACE_FIELDS:SURF_RESTORE',1,ZHOOK_HANDLE)
+
+END SUBROUTINE SURF_RESTORE
+
+!=========================================================================
+
+SUBROUTINE ALLO_SURF
+! Allocate surface field arrays
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SURFACE_FIELDS:ALLO_SURF',0,ZHOOK_HANDLE)
+ALLOCATE(SP_SB(NPROMA,YSP_SBD%NLEVS,YSP_SBD%NDIM,NGPBLKS))
+ALLOCATE(SP_SG(NPROMA,YSP_SGD%NDIM,NGPBLKS))
+ALLOCATE(SP_RR(NPROMA,YSP_RRD%NDIM,NGPBLKS))
+ALLOCATE(SP_EP(NPROMA,YSP_EPD%NLEVS,YSP_EPD%NDIM,NGPBLKS))
+ALLOCATE(SP_X2(NPROMA,YSP_X2D%NDIM,NGPBLKS))
+ALLOCATE(SP_CI(NPROMA,YSP_CID%NDIM,NGPBLKS))
+ALLOCATE(SD_VF(NPROMA,YSD_VFD%NDIM,NGPBLKS))
+ALLOCATE(SD_VP(NPROMA,YSD_VPD%NDIM,NGPBLKS))
+ALLOCATE(SD_VV(NPROMA,YSD_VVD%NDIM,NGPBLKS))
+ALLOCATE(SD_VN(NPROMA,YSD_VND%NDIM,NGPBLKS))
+ALLOCATE(SD_VH(NPROMA,YSD_VHD%NDIM,NGPBLKS))
+ALLOCATE(SD_VA(NPROMA,YSD_VAD%NDIM,NGPBLKS))
+ALLOCATE(SD_VC(NPROMA,YSD_VCD%NDIM,NGPBLKS))
+ALLOCATE(SD_VD(NPROMA,YSD_VDD%NDIM,NGPBLKS))
+ALLOCATE(SD_WS(NPROMA,YSD_WSD%NDIM,NGPBLKS))
+ALLOCATE(SD_XA(NPROMA,YSD_XAD%NLEVS,YSD_XAD%NDIM,NGPBLKS))
+ALLOCATE(SD_X2(NPROMA,YSD_X2D%NDIM,NGPBLKS))
+ALLOCATE(SD_VX(NPROMA,YSD_VXD%NDIM,NGPBLKS))
+
+IF (LHOOK) CALL DR_HOOK('SURFACE_FIELDS:ALLO_SURF',1,ZHOOK_HANDLE)
+END SUBROUTINE ALLO_SURF
+
+!=========================================================================
+
+SUBROUTINE DEALLO_SURF
+! Deallocate surface field arrays
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SURFACE_FIELDS:DEALLO_SURF',0,ZHOOK_HANDLE)
+IF(ALLOCATED(SP_SB)) DEALLOCATE(SP_SB)
+IF(ALLOCATED(SP_SG)) DEALLOCATE(SP_SG)
+IF(ALLOCATED(SP_RR)) DEALLOCATE(SP_RR)
+IF(ALLOCATED(SP_EP)) DEALLOCATE(SP_EP)
+IF(ALLOCATED(SP_X2)) DEALLOCATE(SP_X2)
+IF(ALLOCATED(SP_CI)) DEALLOCATE(SP_CI)
+IF(ALLOCATED(SD_VF)) DEALLOCATE(SD_VF)
+IF(ALLOCATED(SD_VP)) DEALLOCATE(SD_VP)
+IF(ALLOCATED(SD_VV)) DEALLOCATE(SD_VV)
+IF(ALLOCATED(SD_VN)) DEALLOCATE(SD_VN)
+IF(ALLOCATED(SD_VH)) DEALLOCATE(SD_VH)
+IF(ALLOCATED(SD_VA)) DEALLOCATE(SD_VA)
+IF(ALLOCATED(SD_VC)) DEALLOCATE(SD_VC)
+IF(ALLOCATED(SD_VD)) DEALLOCATE(SD_VD)
+IF(ALLOCATED(SD_WS)) DEALLOCATE(SD_WS)
+IF(ALLOCATED(SD_XA)) DEALLOCATE(SD_XA)
+IF(ALLOCATED(SD_X2)) DEALLOCATE(SD_X2)
+IF(ALLOCATED(SD_VX)) DEALLOCATE(SD_VX)
+IF (LHOOK) CALL DR_HOOK('SURFACE_FIELDS:DEALLO_SURF',1,ZHOOK_HANDLE)
+END SUBROUTINE DEALLO_SURF
+
+!=========================================================================
+
+END MODULE SURFACE_FIELDS
Index: LMDZ5/trunk/libf/phylmd/rrtm/surhcri.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/surhcri.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/surhcri.F90	(revision 1989)
@@ -0,0 +1,100 @@
+!-----------------------------------------------------------------------
+      SUBROUTINE SURHCRI(KULOUT)
+!-----------------------------------------------------------------------
+!
+!**** *SURHCRI * - COMPUTATION OF THE CRTITICAL RELATIVE HUMIDITY
+!                  PROFILE FOR SMITH'S CONDENSATION SCHEME.
+!
+!**   Interface.
+!     ----------
+!        *CALL* *SURHCRI*
+!
+!-----------------------------------------------------------------------
+!
+! -   ARGUMENTS D'ENTREE./INPUT ARGUMENTS.
+!     ------------------------------------
+!
+!-----------------------------------------------------------------------
+!
+! -   ARGUMENTS IMPLICITES.
+!     ---------------------
+!
+! COMMON /YOMPHY/
+! COMMON /YOMPHY0/
+!
+!*
+!-----------------------------------------------------------------------
+!
+!     Auteur.
+!     -------
+!         05-03, Luc Gerard (from Ph. Lopez acrhcri)
+!
+!     Modifications.
+!     --------------
+!         06-10, nettoyage - R. Brozkova
+!-----------------------------------------------------------------------
+!
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+!
+USE YOMPHY0   , ONLY : RHCRIT1, RHCRIT2, RETAMIN, GRHCMOD, RHCRI ,NRHCRI 
+USE YOMDIM    , ONLY : NFLEVG
+USE YOMGC     , ONLY : GAW, GM
+USE YOMGEM    , ONLY : VP00, TEQH
+USE YOMPHY    , ONLY : LGWRHCRI
+USE YOMSTA    , ONLY : STPRE 
+ 
+IMPLICIT NONE
+ 
+INTEGER (KIND=JPIM),INTENT(IN) :: KULOUT
+ 
+! LOCAL
+ 
+REAL(KIND=JPRB) :: ZVETAF
+REAL(KIND=JPRB) :: ZGAW0,ZEGAW,ZFACT,ZFACT0,ZFACTA,ZFACTB,ZFACTC, &
+        & ZA,ZB,ZC
+INTEGER (KIND=JPIM) :: JLEV
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SURHCRI',0,ZHOOK_HANDLE)
+ 
+!     ------------------------------------------------------------------
+ 
+IF(NRHCRI == NFLEVG) THEN
+ 
+!     ------------------------------------------------------------------
+ 
+! CRITICAL RELATIVE HUMIDITY PROFILE
+! DEPENDENT ON THE LOCAL RESOLUTION.
+! ----------------------------------
+ 
+   ZFACT0=(RETAMIN*(RETAMIN-1._JPRB))**2
+   ZFACTA=(2._JPRB*RETAMIN-1._JPRB)
+   ZFACTB=(1._JPRB-3._JPRB*RETAMIN**2)
+   ZFACTC=(3._JPRB*RETAMIN-2._JPRB)*RETAMIN
+   IF (LGWRHCRI) THEN
+     ZGAW0=2.42E-05_JPRB
+     ZEGAW=(1.0_JPRB-EXP(-GAW(1)/ZGAW0))/ZFACT0
+   ELSE
+     ZEGAW=(1.0_JPRB-GRHCMOD*EXP(-1.0_JPRB/(TEQH*GM(1))))/ZFACT0
+   ENDIF
+ 
+   ZFACT=(RHCRIT2-RHCRIT1)*ZEGAW
+   ZA=ZFACTA*ZFACT
+   ZB=ZFACTB*ZFACT
+   ZC=ZFACTC*ZFACT
+ 
+   DO JLEV=1,NFLEVG
+     ZVETAF=STPRE (JLEV)/VP00
+     RHCRI(JLEV) = ZA * ZVETAF**3 &
+                     & + ZB * ZVETAF**2 &
+                     & + ZC * ZVETAF &
+                     & + RHCRIT2
+   ENDDO   
+ 
+   WRITE(KULOUT,'(A)') 'RHCRI: SMITH SCHEME CRITICAL RH PROFILE:'
+   WRITE(KULOUT,'((10(G9.3)))') (RHCRI(JLEV),JLEV=1,NFLEVG)
+ELSE
+   WRITE(KULOUT,*) 'NRHCRI=',NRHCRI,': GLOBAL MODEL, NO RHCRI INITIALISATION IN SETUP'
+ENDIF
+IF (LHOOK) CALL DR_HOOK('SURHCRI',1,ZHOOK_HANDLE)
+END SUBROUTINE SURHCRI
Index: LMDZ5/trunk/libf/phylmd/rrtm/surhcri.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/surhcri.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/surhcri.intfb.h	(revision 1989)
@@ -0,0 +1,6 @@
+INTERFACE
+ SUBROUTINE SURHCRI(KULOUT)
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER (KIND=JPIM),INTENT(IN) :: KULOUT
+END SUBROUTINE SURHCRI
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/surrtab.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/surrtab.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/surrtab.F90	(revision 1989)
@@ -0,0 +1,35 @@
+SUBROUTINE SURRTAB
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** AER'S RRTM LW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!     -----------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTAB , ONLY : TRANS, BPADE
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM) :: ITR
+
+REAL(KIND=JPRB) :: ZTAU, ZTFN
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SURRTAB',0,ZHOOK_HANDLE)
+BPADE=1.0_JPRB/0.278_JPRB
+TRANS(0)   =1.0_JPRB
+TRANS(5000)=0.0_JPRB
+DO ITR=1,4999
+  ZTFN=REAL(ITR)/5000._JPRB
+  ZTAU=BPADE*ZTFN/(1.0_JPRB-ZTFN)
+  TRANS(ITR)=EXP(-ZTAU)
+ENDDO
+
+!     -----------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SURRTAB',1,ZHOOK_HANDLE)
+END SUBROUTINE SURRTAB
Index: LMDZ5/trunk/libf/phylmd/rrtm/surrtab.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/surrtab.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/surrtab.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SURRTAB
+END SUBROUTINE SURRTAB
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/surrtftr.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/surrtftr.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/surrtftr.F90	(revision 1989)
@@ -0,0 +1,84 @@
+SUBROUTINE SURRTFTR
+
+!     Adapted from Eli J. Mlawer, Atmospheric & Environmental Research.
+!     by JJMorcrette, ECMWF
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTFTR, ONLY : NGC      ,NGS      ,NGN      ,NGB       ,NGM     , WT
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SURRTFTR',0,ZHOOK_HANDLE)
+NGC( :) = (/8, 14, 16, 14, 16, 8, 12, 8, 12, 6, 8, 8, 4, 2, 2, 2 /)
+
+NGS( :) = (/&
+ & 8,  22,  38,  52,  68,  76,  88,  96, &
+ & 108, 114, 122, 130, 134, 136, 138, 140/)  
+NGM( :) = (/&
+ & 1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8,             &! Band 1
+ & 1,2,3,4,5,6,7,8,9,10,11,12,13,13,14,14,      &! Band 2
+ & 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,      &! Band 3
+ & 1,2,3,4,5,6,7,8,9,10,11,12,13,14,14,14,      &! Band 4
+ & 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,      &! Band 5
+ & 1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8,             &! Band 6
+ & 1,1,2,2,3,4,5,6,7,8,9,10,11,11,12,12,        &! Band 7
+ & 1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8,             &! Band 8
+ & 1,2,3,4,5,6,7,8,9,9,10,10,11,11,12,12,       &! Band 9
+ & 1,1,2,2,3,3,4,4,5,5,5,5,6,6,6,6,             &! Band 10
+ & 1,2,3,3,4,4,5,5,6,6,7,7,7,8,8,8,             &! Band 11
+ & 1,2,3,4,5,5,6,6,7,7,7,7,8,8,8,8,             &! Band 12
+ & 1,1,1,2,2,2,3,3,3,3,4,4,4,4,4,4,             &! Band 13
+ & 1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,             &! Band 14
+ & 1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,             &! Band 15
+ & 1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2/)             ! Band 16  
+
+NGN( :) = (/&
+ & 2,2,2,2,2,2,2,2,                             &! Band 1
+ & 1,1,1,1,1,1,1,1,1,1,1,1,2,2,                 &! Band 2
+ & 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,             &! Band 3
+ & 1,1,1,1,1,1,1,1,1,1,1,1,1,3,                 &! Band 4
+ & 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,             &! Band 5
+ & 2,2,2,2,2,2,2,2,                             &! Band 6
+ & 2,2,1,1,1,1,1,1,1,1,2,2,                     &! Band 7
+ & 2,2,2,2,2,2,2,2,                             &! Band 8
+ & 1,1,1,1,1,1,1,1,2,2,2,2,                     &! Band 9
+ & 2,2,2,2,4,4,                                 &! Band 10
+ & 1,1,2,2,2,2,3,3,                             &! Band 11
+ & 1,1,1,1,2,2,4,4,                             &! Band 12
+ & 3,3,4,6,                                     &! Band 13
+ & 8,8,                                         &! Band 14
+ & 8,8,                                         &! Band 15
+ & 8,8/)                                         ! Band 16  
+
+NGB( :) = (/&
+ & 1,1,1,1,1,1,1,1,                            &! Band 1
+ & 2,2,2,2,2,2,2,2,2,2,2,2,2,2,                &! Band 2
+ & 3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,            &! Band 3
+ & 4,4,4,4,4,4,4,4,4,4,4,4,4,4,                &! Band 4
+ & 5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,            &! Band 5
+ & 6,6,6,6,6,6,6,6,                            &! Band 6
+ & 7,7,7,7,7,7,7,7,7,7,7,7,                    &! Band 7
+ & 8,8,8,8,8,8,8,8,                            &! Band 8
+ & 9,9,9,9,9,9,9,9,9,9,9,9,                    &! Band 9
+ & 10,10,10,10,10,10,                           &! Band 10
+ & 11,11,11,11,11,11,11,11,                     &! Band 11
+ & 12,12,12,12,12,12,12,12,                     &! Band 12
+ & 13,13,13,13,                                 &! Band 13
+ & 14,14,                                       &! Band 14
+ & 15,15,                                       &! Band 15
+ & 16,16/)                                     ! Band 16  
+
+WT( :) = (/&
+ & 0.1527534276_JPRB,0.1491729617_JPRB,0.1420961469_JPRB,0.1316886544_JPRB,&
+ & 0.1181945205_JPRB,0.1019300893_JPRB,0.0832767040_JPRB,0.0626720116_JPRB,&
+ & 0.0424925_JPRB   ,0.0046269894_JPRB,0.0038279891_JPRB,0.0030260086_JPRB,&
+ & 0.0022199750_JPRB,0.0014140010_JPRB,0.000533_JPRB    ,0.000075_JPRB    /)  
+
+!     -----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SURRTFTR',1,ZHOOK_HANDLE)
+END SUBROUTINE SURRTFTR
Index: LMDZ5/trunk/libf/phylmd/rrtm/surrtftr.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/surrtftr.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/surrtftr.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SURRTFTR
+END SUBROUTINE SURRTFTR
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/surrtpk.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/surrtpk.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/surrtpk.F90	(revision 1989)
@@ -0,0 +1,695 @@
+SUBROUTINE SURRTPK
+
+!     Adapted from Eli J. Mlawer, Atmospheric & Environmental Research.
+!     by JJMorcrette, ECMWF
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTWN , ONLY : NG        ,NSPA      ,NSPB      ,WAVENUM1  ,&
+ & WAVENUM2  ,DELWAVE   ,TOTPLNK   ,TOTPLK16  
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SURRTPK',0,ZHOOK_HANDLE)
+NG( :) = (/16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16/)
+NSPA( :) = (/1, 1,10, 9, 9, 1, 9, 1,11, 1, 1, 9, 9, 1, 9, 9/)
+NSPB( :) = (/1, 1, 5, 6, 5, 0, 1, 1, 1, 1, 1, 0, 0, 1, 0, 0/)
+WAVENUM1( :) = (/&
+ & 10._JPRB, 250._JPRB, 500._JPRB, 630._JPRB, 700._JPRB, 820._JPRB, 980._JPRB,1080._JPRB &
+ & ,1180._JPRB,1390._JPRB,1480._JPRB,1800._JPRB,2080._JPRB,2250._JPRB,2380._JPRB,2600._JPRB/)  
+WAVENUM2( :) = (/&
+ & 250._JPRB, 500._JPRB, 630._JPRB, 700._JPRB, 820._JPRB, 980._JPRB,1080._JPRB,1180._JPRB &
+ & ,1390._JPRB,1480._JPRB,1800._JPRB,2080._JPRB,2250._JPRB,2380._JPRB,2600._JPRB,3000._JPRB/)  
+DELWAVE( :) = (/&
+ & 240._JPRB, 250._JPRB, 130._JPRB,  70._JPRB, 120._JPRB, 160._JPRB, 100._JPRB, 100._JPRB &
+ & , 210._JPRB,  90._JPRB, 320._JPRB, 280._JPRB, 170._JPRB, 130._JPRB, 220._JPRB, 400._JPRB/)  
+
+TOTPLNK( :, 1) = (/&
+ & 1.13735E-06_JPRB,1.15150E-06_JPRB,1.16569E-06_JPRB,1.17992E-06_JPRB,1.19419E-06_JPRB,&
+ & 1.20850E-06_JPRB,1.22285E-06_JPRB,1.23723E-06_JPRB,1.25164E-06_JPRB,1.26610E-06_JPRB,&
+ & 1.28059E-06_JPRB,1.29511E-06_JPRB,1.30967E-06_JPRB,1.32426E-06_JPRB,1.33889E-06_JPRB,&
+ & 1.35355E-06_JPRB,1.36824E-06_JPRB,1.38296E-06_JPRB,1.39772E-06_JPRB,1.41250E-06_JPRB,&
+ & 1.42732E-06_JPRB,1.44217E-06_JPRB,1.45704E-06_JPRB,1.47195E-06_JPRB,1.48689E-06_JPRB,&
+ & 1.50185E-06_JPRB,1.51684E-06_JPRB,1.53186E-06_JPRB,1.54691E-06_JPRB,1.56198E-06_JPRB,&
+ & 1.57709E-06_JPRB,1.59222E-06_JPRB,1.60737E-06_JPRB,1.62255E-06_JPRB,1.63776E-06_JPRB,&
+ & 1.65299E-06_JPRB,1.66825E-06_JPRB,1.68352E-06_JPRB,1.69883E-06_JPRB,1.71416E-06_JPRB,&
+ & 1.72951E-06_JPRB,1.74488E-06_JPRB,1.76028E-06_JPRB,1.77570E-06_JPRB,1.79114E-06_JPRB,&
+ & 1.80661E-06_JPRB,1.82210E-06_JPRB,1.83760E-06_JPRB,1.85313E-06_JPRB,1.86868E-06_JPRB,&
+ & 1.88425E-06_JPRB,1.89985E-06_JPRB,1.91546E-06_JPRB,1.93109E-06_JPRB,1.94674E-06_JPRB,&
+ & 1.96241E-06_JPRB,1.97811E-06_JPRB,1.99381E-06_JPRB,2.00954E-06_JPRB,2.02529E-06_JPRB,&
+ & 2.04105E-06_JPRB,2.05684E-06_JPRB,2.07264E-06_JPRB,2.08846E-06_JPRB,2.10429E-06_JPRB,&
+ & 2.12015E-06_JPRB,2.13602E-06_JPRB,2.15190E-06_JPRB,2.16781E-06_JPRB,2.18373E-06_JPRB,&
+ & 2.19966E-06_JPRB,2.21562E-06_JPRB,2.23159E-06_JPRB,2.24758E-06_JPRB,2.26358E-06_JPRB,&
+ & 2.27959E-06_JPRB,2.29562E-06_JPRB,2.31167E-06_JPRB,2.32773E-06_JPRB,2.34381E-06_JPRB,&
+ & 2.35990E-06_JPRB,2.37601E-06_JPRB,2.39212E-06_JPRB,2.40825E-06_JPRB,2.42440E-06_JPRB,&
+ & 2.44056E-06_JPRB,2.45673E-06_JPRB,2.47292E-06_JPRB,2.48912E-06_JPRB,2.50533E-06_JPRB,&
+ & 2.52157E-06_JPRB,2.53781E-06_JPRB,2.55406E-06_JPRB,2.57032E-06_JPRB,2.58660E-06_JPRB,&
+ & 2.60289E-06_JPRB,2.61919E-06_JPRB,2.63550E-06_JPRB,2.65183E-06_JPRB,2.66817E-06_JPRB,&
+ & 2.68452E-06_JPRB,2.70088E-06_JPRB,2.71726E-06_JPRB,2.73364E-06_JPRB,2.75003E-06_JPRB,&
+ & 2.76644E-06_JPRB,2.78286E-06_JPRB,2.79929E-06_JPRB,2.81572E-06_JPRB,2.83218E-06_JPRB,&
+ & 2.84864E-06_JPRB,2.86510E-06_JPRB,2.88159E-06_JPRB,2.89807E-06_JPRB,2.91458E-06_JPRB,&
+ & 2.93109E-06_JPRB,2.94762E-06_JPRB,2.96415E-06_JPRB,2.98068E-06_JPRB,2.99724E-06_JPRB,&
+ & 3.01379E-06_JPRB,3.03036E-06_JPRB,3.04693E-06_JPRB,3.06353E-06_JPRB,3.08013E-06_JPRB,&
+ & 3.09674E-06_JPRB,3.11335E-06_JPRB,3.12998E-06_JPRB,3.14661E-06_JPRB,3.16324E-06_JPRB,&
+ & 3.17989E-06_JPRB,3.19656E-06_JPRB,3.21323E-06_JPRB,3.22991E-06_JPRB,3.24658E-06_JPRB,&
+ & 3.26328E-06_JPRB,3.27998E-06_JPRB,3.29669E-06_JPRB,3.31341E-06_JPRB,3.33013E-06_JPRB,&
+ & 3.34686E-06_JPRB,3.36360E-06_JPRB,3.38034E-06_JPRB,3.39709E-06_JPRB,3.41387E-06_JPRB,&
+ & 3.43063E-06_JPRB,3.44742E-06_JPRB,3.46420E-06_JPRB,3.48099E-06_JPRB,3.49779E-06_JPRB,&
+ & 3.51461E-06_JPRB,3.53141E-06_JPRB,3.54824E-06_JPRB,3.56506E-06_JPRB,3.58191E-06_JPRB,&
+ & 3.59875E-06_JPRB,3.61559E-06_JPRB,3.63244E-06_JPRB,3.64931E-06_JPRB,3.66617E-06_JPRB,&
+ & 3.68305E-06_JPRB,3.69992E-06_JPRB,3.71682E-06_JPRB,3.73372E-06_JPRB,3.75061E-06_JPRB,&
+ & 3.76753E-06_JPRB,3.78443E-06_JPRB,3.80136E-06_JPRB,3.81829E-06_JPRB,3.83522E-06_JPRB,&
+ & 3.85215E-06_JPRB,3.86910E-06_JPRB,3.88605E-06_JPRB,3.90301E-06_JPRB,3.91997E-06_JPRB,&
+ & 3.93694E-06_JPRB,3.95390E-06_JPRB,3.97087E-06_JPRB,3.98788E-06_JPRB,4.00485E-06_JPRB,&
+ & 4.02187E-06_JPRB/)  
+
+TOTPLNK( :, 2) = (/&
+ & 2.13441E-06_JPRB,2.18076E-06_JPRB,2.22758E-06_JPRB,2.27489E-06_JPRB,2.32268E-06_JPRB,&
+ & 2.37093E-06_JPRB,2.41966E-06_JPRB,2.46886E-06_JPRB,2.51852E-06_JPRB,2.56864E-06_JPRB,&
+ & 2.61922E-06_JPRB,2.67026E-06_JPRB,2.72175E-06_JPRB,2.77370E-06_JPRB,2.82609E-06_JPRB,&
+ & 2.87893E-06_JPRB,2.93221E-06_JPRB,2.98593E-06_JPRB,3.04008E-06_JPRB,3.09468E-06_JPRB,&
+ & 3.14970E-06_JPRB,3.20515E-06_JPRB,3.26103E-06_JPRB,3.31732E-06_JPRB,3.37404E-06_JPRB,&
+ & 3.43118E-06_JPRB,3.48873E-06_JPRB,3.54669E-06_JPRB,3.60506E-06_JPRB,3.66383E-06_JPRB,&
+ & 3.72301E-06_JPRB,3.78259E-06_JPRB,3.84256E-06_JPRB,3.90293E-06_JPRB,3.96368E-06_JPRB,&
+ & 4.02483E-06_JPRB,4.08636E-06_JPRB,4.14828E-06_JPRB,4.21057E-06_JPRB,4.27324E-06_JPRB,&
+ & 4.33629E-06_JPRB,4.39971E-06_JPRB,4.46350E-06_JPRB,4.52765E-06_JPRB,4.59217E-06_JPRB,&
+ & 4.65705E-06_JPRB,4.72228E-06_JPRB,4.78787E-06_JPRB,4.85382E-06_JPRB,4.92011E-06_JPRB,&
+ & 4.98675E-06_JPRB,5.05374E-06_JPRB,5.12106E-06_JPRB,5.18873E-06_JPRB,5.25674E-06_JPRB,&
+ & 5.32507E-06_JPRB,5.39374E-06_JPRB,5.46274E-06_JPRB,5.53207E-06_JPRB,5.60172E-06_JPRB,&
+ & 5.67169E-06_JPRB,5.74198E-06_JPRB,5.81259E-06_JPRB,5.88352E-06_JPRB,5.95475E-06_JPRB,&
+ & 6.02629E-06_JPRB,6.09815E-06_JPRB,6.17030E-06_JPRB,6.24276E-06_JPRB,6.31552E-06_JPRB,&
+ & 6.38858E-06_JPRB,6.46192E-06_JPRB,6.53557E-06_JPRB,6.60950E-06_JPRB,6.68373E-06_JPRB,&
+ & 6.75824E-06_JPRB,6.83303E-06_JPRB,6.90810E-06_JPRB,6.98346E-06_JPRB,7.05909E-06_JPRB,&
+ & 7.13500E-06_JPRB,7.21117E-06_JPRB,7.28763E-06_JPRB,7.36435E-06_JPRB,7.44134E-06_JPRB,&
+ & 7.51859E-06_JPRB,7.59611E-06_JPRB,7.67388E-06_JPRB,7.75192E-06_JPRB,7.83021E-06_JPRB,&
+ & 7.90875E-06_JPRB,7.98755E-06_JPRB,8.06660E-06_JPRB,8.14589E-06_JPRB,8.22544E-06_JPRB,&
+ & 8.30522E-06_JPRB,8.38526E-06_JPRB,8.46553E-06_JPRB,8.54604E-06_JPRB,8.62679E-06_JPRB,&
+ & 8.70777E-06_JPRB,8.78899E-06_JPRB,8.87043E-06_JPRB,8.95211E-06_JPRB,9.03402E-06_JPRB,&
+ & 9.11616E-06_JPRB,9.19852E-06_JPRB,9.28109E-06_JPRB,9.36390E-06_JPRB,9.44692E-06_JPRB,&
+ & 9.53015E-06_JPRB,9.61361E-06_JPRB,9.69729E-06_JPRB,9.78117E-06_JPRB,9.86526E-06_JPRB,&
+ & 9.94957E-06_JPRB,1.00341E-05_JPRB,1.01188E-05_JPRB,1.02037E-05_JPRB,1.02888E-05_JPRB,&
+ & 1.03742E-05_JPRB,1.04597E-05_JPRB,1.05454E-05_JPRB,1.06313E-05_JPRB,1.07175E-05_JPRB,&
+ & 1.08038E-05_JPRB,1.08903E-05_JPRB,1.09770E-05_JPRB,1.10639E-05_JPRB,1.11509E-05_JPRB,&
+ & 1.12382E-05_JPRB,1.13257E-05_JPRB,1.14133E-05_JPRB,1.15011E-05_JPRB,1.15891E-05_JPRB,&
+ & 1.16773E-05_JPRB,1.17656E-05_JPRB,1.18542E-05_JPRB,1.19429E-05_JPRB,1.20317E-05_JPRB,&
+ & 1.21208E-05_JPRB,1.22100E-05_JPRB,1.22994E-05_JPRB,1.23890E-05_JPRB,1.24787E-05_JPRB,&
+ & 1.25686E-05_JPRB,1.26587E-05_JPRB,1.27489E-05_JPRB,1.28393E-05_JPRB,1.29299E-05_JPRB,&
+ & 1.30206E-05_JPRB,1.31115E-05_JPRB,1.32025E-05_JPRB,1.32937E-05_JPRB,1.33850E-05_JPRB,&
+ & 1.34765E-05_JPRB,1.35682E-05_JPRB,1.36600E-05_JPRB,1.37520E-05_JPRB,1.38441E-05_JPRB,&
+ & 1.39364E-05_JPRB,1.40288E-05_JPRB,1.41213E-05_JPRB,1.42140E-05_JPRB,1.43069E-05_JPRB,&
+ & 1.43999E-05_JPRB,1.44930E-05_JPRB,1.45863E-05_JPRB,1.46797E-05_JPRB,1.47733E-05_JPRB,&
+ & 1.48670E-05_JPRB,1.49608E-05_JPRB,1.50548E-05_JPRB,1.51489E-05_JPRB,1.52431E-05_JPRB,&
+ & 1.53375E-05_JPRB,1.54320E-05_JPRB,1.55267E-05_JPRB,1.56214E-05_JPRB,1.57164E-05_JPRB,&
+ & 1.58114E-05_JPRB/)  
+
+TOTPLNK( :, 3) = (/&
+ & 1.34822E-06_JPRB,1.39134E-06_JPRB,1.43530E-06_JPRB,1.48010E-06_JPRB,1.52574E-06_JPRB,&
+ & 1.57222E-06_JPRB,1.61956E-06_JPRB,1.66774E-06_JPRB,1.71678E-06_JPRB,1.76666E-06_JPRB,&
+ & 1.81741E-06_JPRB,1.86901E-06_JPRB,1.92147E-06_JPRB,1.97479E-06_JPRB,2.02898E-06_JPRB,&
+ & 2.08402E-06_JPRB,2.13993E-06_JPRB,2.19671E-06_JPRB,2.25435E-06_JPRB,2.31285E-06_JPRB,&
+ & 2.37222E-06_JPRB,2.43246E-06_JPRB,2.49356E-06_JPRB,2.55553E-06_JPRB,2.61837E-06_JPRB,&
+ & 2.68207E-06_JPRB,2.74664E-06_JPRB,2.81207E-06_JPRB,2.87837E-06_JPRB,2.94554E-06_JPRB,&
+ & 3.01356E-06_JPRB,3.08245E-06_JPRB,3.15221E-06_JPRB,3.22282E-06_JPRB,3.29429E-06_JPRB,&
+ & 3.36662E-06_JPRB,3.43982E-06_JPRB,3.51386E-06_JPRB,3.58876E-06_JPRB,3.66451E-06_JPRB,&
+ & 3.74112E-06_JPRB,3.81857E-06_JPRB,3.89688E-06_JPRB,3.97602E-06_JPRB,4.05601E-06_JPRB,&
+ & 4.13685E-06_JPRB,4.21852E-06_JPRB,4.30104E-06_JPRB,4.38438E-06_JPRB,4.46857E-06_JPRB,&
+ & 4.55358E-06_JPRB,4.63943E-06_JPRB,4.72610E-06_JPRB,4.81359E-06_JPRB,4.90191E-06_JPRB,&
+ & 4.99105E-06_JPRB,5.08100E-06_JPRB,5.17176E-06_JPRB,5.26335E-06_JPRB,5.35573E-06_JPRB,&
+ & 5.44892E-06_JPRB,5.54292E-06_JPRB,5.63772E-06_JPRB,5.73331E-06_JPRB,5.82970E-06_JPRB,&
+ & 5.92688E-06_JPRB,6.02485E-06_JPRB,6.12360E-06_JPRB,6.22314E-06_JPRB,6.32346E-06_JPRB,&
+ & 6.42455E-06_JPRB,6.52641E-06_JPRB,6.62906E-06_JPRB,6.73247E-06_JPRB,6.83664E-06_JPRB,&
+ & 6.94156E-06_JPRB,7.04725E-06_JPRB,7.15370E-06_JPRB,7.26089E-06_JPRB,7.36883E-06_JPRB,&
+ & 7.47752E-06_JPRB,7.58695E-06_JPRB,7.69712E-06_JPRB,7.80801E-06_JPRB,7.91965E-06_JPRB,&
+ & 8.03201E-06_JPRB,8.14510E-06_JPRB,8.25891E-06_JPRB,8.37343E-06_JPRB,8.48867E-06_JPRB,&
+ & 8.60463E-06_JPRB,8.72128E-06_JPRB,8.83865E-06_JPRB,8.95672E-06_JPRB,9.07548E-06_JPRB,&
+ & 9.19495E-06_JPRB,9.31510E-06_JPRB,9.43594E-06_JPRB,9.55745E-06_JPRB,9.67966E-06_JPRB,&
+ & 9.80254E-06_JPRB,9.92609E-06_JPRB,1.00503E-05_JPRB,1.01752E-05_JPRB,1.03008E-05_JPRB,&
+ & 1.04270E-05_JPRB,1.05539E-05_JPRB,1.06814E-05_JPRB,1.08096E-05_JPRB,1.09384E-05_JPRB,&
+ & 1.10679E-05_JPRB,1.11980E-05_JPRB,1.13288E-05_JPRB,1.14601E-05_JPRB,1.15922E-05_JPRB,&
+ & 1.17248E-05_JPRB,1.18581E-05_JPRB,1.19920E-05_JPRB,1.21265E-05_JPRB,1.22616E-05_JPRB,&
+ & 1.23973E-05_JPRB,1.25337E-05_JPRB,1.26706E-05_JPRB,1.28081E-05_JPRB,1.29463E-05_JPRB,&
+ & 1.30850E-05_JPRB,1.32243E-05_JPRB,1.33642E-05_JPRB,1.35047E-05_JPRB,1.36458E-05_JPRB,&
+ & 1.37875E-05_JPRB,1.39297E-05_JPRB,1.40725E-05_JPRB,1.42159E-05_JPRB,1.43598E-05_JPRB,&
+ & 1.45044E-05_JPRB,1.46494E-05_JPRB,1.47950E-05_JPRB,1.49412E-05_JPRB,1.50879E-05_JPRB,&
+ & 1.52352E-05_JPRB,1.53830E-05_JPRB,1.55314E-05_JPRB,1.56803E-05_JPRB,1.58297E-05_JPRB,&
+ & 1.59797E-05_JPRB,1.61302E-05_JPRB,1.62812E-05_JPRB,1.64327E-05_JPRB,1.65848E-05_JPRB,&
+ & 1.67374E-05_JPRB,1.68904E-05_JPRB,1.70441E-05_JPRB,1.71982E-05_JPRB,1.73528E-05_JPRB,&
+ & 1.75079E-05_JPRB,1.76635E-05_JPRB,1.78197E-05_JPRB,1.79763E-05_JPRB,1.81334E-05_JPRB,&
+ & 1.82910E-05_JPRB,1.84491E-05_JPRB,1.86076E-05_JPRB,1.87667E-05_JPRB,1.89262E-05_JPRB,&
+ & 1.90862E-05_JPRB,1.92467E-05_JPRB,1.94076E-05_JPRB,1.95690E-05_JPRB,1.97309E-05_JPRB,&
+ & 1.98932E-05_JPRB,2.00560E-05_JPRB,2.02193E-05_JPRB,2.03830E-05_JPRB,2.05472E-05_JPRB,&
+ & 2.07118E-05_JPRB,2.08768E-05_JPRB,2.10423E-05_JPRB,2.12083E-05_JPRB,2.13747E-05_JPRB,&
+ & 2.15414E-05_JPRB/)  
+
+TOTPLNK( :, 4) = (/&
+ & 8.90528E-07_JPRB,9.24222E-07_JPRB,9.58757E-07_JPRB,9.94141E-07_JPRB,1.03038E-06_JPRB,&
+ & 1.06748E-06_JPRB,1.10545E-06_JPRB,1.14430E-06_JPRB,1.18403E-06_JPRB,1.22465E-06_JPRB,&
+ & 1.26618E-06_JPRB,1.30860E-06_JPRB,1.35193E-06_JPRB,1.39619E-06_JPRB,1.44136E-06_JPRB,&
+ & 1.48746E-06_JPRB,1.53449E-06_JPRB,1.58246E-06_JPRB,1.63138E-06_JPRB,1.68124E-06_JPRB,&
+ & 1.73206E-06_JPRB,1.78383E-06_JPRB,1.83657E-06_JPRB,1.89028E-06_JPRB,1.94495E-06_JPRB,&
+ & 2.00060E-06_JPRB,2.05724E-06_JPRB,2.11485E-06_JPRB,2.17344E-06_JPRB,2.23303E-06_JPRB,&
+ & 2.29361E-06_JPRB,2.35519E-06_JPRB,2.41777E-06_JPRB,2.48134E-06_JPRB,2.54592E-06_JPRB,&
+ & 2.61151E-06_JPRB,2.67810E-06_JPRB,2.74571E-06_JPRB,2.81433E-06_JPRB,2.88396E-06_JPRB,&
+ & 2.95461E-06_JPRB,3.02628E-06_JPRB,3.09896E-06_JPRB,3.17267E-06_JPRB,3.24741E-06_JPRB,&
+ & 3.32316E-06_JPRB,3.39994E-06_JPRB,3.47774E-06_JPRB,3.55657E-06_JPRB,3.63642E-06_JPRB,&
+ & 3.71731E-06_JPRB,3.79922E-06_JPRB,3.88216E-06_JPRB,3.96612E-06_JPRB,4.05112E-06_JPRB,&
+ & 4.13714E-06_JPRB,4.22419E-06_JPRB,4.31227E-06_JPRB,4.40137E-06_JPRB,4.49151E-06_JPRB,&
+ & 4.58266E-06_JPRB,4.67485E-06_JPRB,4.76806E-06_JPRB,4.86229E-06_JPRB,4.95754E-06_JPRB,&
+ & 5.05383E-06_JPRB,5.15113E-06_JPRB,5.24946E-06_JPRB,5.34879E-06_JPRB,5.44916E-06_JPRB,&
+ & 5.55053E-06_JPRB,5.65292E-06_JPRB,5.75632E-06_JPRB,5.86073E-06_JPRB,5.96616E-06_JPRB,&
+ & 6.07260E-06_JPRB,6.18003E-06_JPRB,6.28848E-06_JPRB,6.39794E-06_JPRB,6.50838E-06_JPRB,&
+ & 6.61983E-06_JPRB,6.73229E-06_JPRB,6.84573E-06_JPRB,6.96016E-06_JPRB,7.07559E-06_JPRB,&
+ & 7.19200E-06_JPRB,7.30940E-06_JPRB,7.42779E-06_JPRB,7.54715E-06_JPRB,7.66749E-06_JPRB,&
+ & 7.78882E-06_JPRB,7.91110E-06_JPRB,8.03436E-06_JPRB,8.15859E-06_JPRB,8.28379E-06_JPRB,&
+ & 8.40994E-06_JPRB,8.53706E-06_JPRB,8.66515E-06_JPRB,8.79418E-06_JPRB,8.92416E-06_JPRB,&
+ & 9.05510E-06_JPRB,9.18697E-06_JPRB,9.31979E-06_JPRB,9.45356E-06_JPRB,9.58826E-06_JPRB,&
+ & 9.72389E-06_JPRB,9.86046E-06_JPRB,9.99793E-06_JPRB,1.01364E-05_JPRB,1.02757E-05_JPRB,&
+ & 1.04159E-05_JPRB,1.05571E-05_JPRB,1.06992E-05_JPRB,1.08422E-05_JPRB,1.09861E-05_JPRB,&
+ & 1.11309E-05_JPRB,1.12766E-05_JPRB,1.14232E-05_JPRB,1.15707E-05_JPRB,1.17190E-05_JPRB,&
+ & 1.18683E-05_JPRB,1.20184E-05_JPRB,1.21695E-05_JPRB,1.23214E-05_JPRB,1.24741E-05_JPRB,&
+ & 1.26277E-05_JPRB,1.27822E-05_JPRB,1.29376E-05_JPRB,1.30939E-05_JPRB,1.32509E-05_JPRB,&
+ & 1.34088E-05_JPRB,1.35676E-05_JPRB,1.37273E-05_JPRB,1.38877E-05_JPRB,1.40490E-05_JPRB,&
+ & 1.42112E-05_JPRB,1.43742E-05_JPRB,1.45380E-05_JPRB,1.47026E-05_JPRB,1.48680E-05_JPRB,&
+ & 1.50343E-05_JPRB,1.52014E-05_JPRB,1.53692E-05_JPRB,1.55379E-05_JPRB,1.57074E-05_JPRB,&
+ & 1.58778E-05_JPRB,1.60488E-05_JPRB,1.62207E-05_JPRB,1.63934E-05_JPRB,1.65669E-05_JPRB,&
+ & 1.67411E-05_JPRB,1.69162E-05_JPRB,1.70920E-05_JPRB,1.72685E-05_JPRB,1.74459E-05_JPRB,&
+ & 1.76240E-05_JPRB,1.78029E-05_JPRB,1.79825E-05_JPRB,1.81629E-05_JPRB,1.83440E-05_JPRB,&
+ & 1.85259E-05_JPRB,1.87086E-05_JPRB,1.88919E-05_JPRB,1.90760E-05_JPRB,1.92609E-05_JPRB,&
+ & 1.94465E-05_JPRB,1.96327E-05_JPRB,1.98199E-05_JPRB,2.00076E-05_JPRB,2.01961E-05_JPRB,&
+ & 2.03853E-05_JPRB,2.05752E-05_JPRB,2.07658E-05_JPRB,2.09571E-05_JPRB,2.11491E-05_JPRB,&
+ & 2.13418E-05_JPRB,2.15352E-05_JPRB,2.17294E-05_JPRB,2.19241E-05_JPRB,2.21196E-05_JPRB,&
+ & 2.23158E-05_JPRB/)  
+
+TOTPLNK( :, 5) = (/&
+ & 5.70230E-07_JPRB,5.94788E-07_JPRB,6.20085E-07_JPRB,6.46130E-07_JPRB,6.72936E-07_JPRB,&
+ & 7.00512E-07_JPRB,7.28869E-07_JPRB,7.58019E-07_JPRB,7.87971E-07_JPRB,8.18734E-07_JPRB,&
+ & 8.50320E-07_JPRB,8.82738E-07_JPRB,9.15999E-07_JPRB,9.50110E-07_JPRB,9.85084E-07_JPRB,&
+ & 1.02093E-06_JPRB,1.05765E-06_JPRB,1.09527E-06_JPRB,1.13378E-06_JPRB,1.17320E-06_JPRB,&
+ & 1.21353E-06_JPRB,1.25479E-06_JPRB,1.29698E-06_JPRB,1.34011E-06_JPRB,1.38419E-06_JPRB,&
+ & 1.42923E-06_JPRB,1.47523E-06_JPRB,1.52221E-06_JPRB,1.57016E-06_JPRB,1.61910E-06_JPRB,&
+ & 1.66904E-06_JPRB,1.71997E-06_JPRB,1.77192E-06_JPRB,1.82488E-06_JPRB,1.87886E-06_JPRB,&
+ & 1.93387E-06_JPRB,1.98991E-06_JPRB,2.04699E-06_JPRB,2.10512E-06_JPRB,2.16430E-06_JPRB,&
+ & 2.22454E-06_JPRB,2.28584E-06_JPRB,2.34821E-06_JPRB,2.41166E-06_JPRB,2.47618E-06_JPRB,&
+ & 2.54178E-06_JPRB,2.60847E-06_JPRB,2.67626E-06_JPRB,2.74514E-06_JPRB,2.81512E-06_JPRB,&
+ & 2.88621E-06_JPRB,2.95841E-06_JPRB,3.03172E-06_JPRB,3.10615E-06_JPRB,3.18170E-06_JPRB,&
+ & 3.25838E-06_JPRB,3.33618E-06_JPRB,3.41511E-06_JPRB,3.49518E-06_JPRB,3.57639E-06_JPRB,&
+ & 3.65873E-06_JPRB,3.74221E-06_JPRB,3.82684E-06_JPRB,3.91262E-06_JPRB,3.99955E-06_JPRB,&
+ & 4.08763E-06_JPRB,4.17686E-06_JPRB,4.26725E-06_JPRB,4.35880E-06_JPRB,4.45150E-06_JPRB,&
+ & 4.54537E-06_JPRB,4.64039E-06_JPRB,4.73659E-06_JPRB,4.83394E-06_JPRB,4.93246E-06_JPRB,&
+ & 5.03215E-06_JPRB,5.13301E-06_JPRB,5.23504E-06_JPRB,5.33823E-06_JPRB,5.44260E-06_JPRB,&
+ & 5.54814E-06_JPRB,5.65484E-06_JPRB,5.76272E-06_JPRB,5.87177E-06_JPRB,5.98199E-06_JPRB,&
+ & 6.09339E-06_JPRB,6.20596E-06_JPRB,6.31969E-06_JPRB,6.43460E-06_JPRB,6.55068E-06_JPRB,&
+ & 6.66793E-06_JPRB,6.78636E-06_JPRB,6.90595E-06_JPRB,7.02670E-06_JPRB,7.14863E-06_JPRB,&
+ & 7.27173E-06_JPRB,7.39599E-06_JPRB,7.52142E-06_JPRB,7.64802E-06_JPRB,7.77577E-06_JPRB,&
+ & 7.90469E-06_JPRB,8.03477E-06_JPRB,8.16601E-06_JPRB,8.29841E-06_JPRB,8.43198E-06_JPRB,&
+ & 8.56669E-06_JPRB,8.70256E-06_JPRB,8.83957E-06_JPRB,8.97775E-06_JPRB,9.11706E-06_JPRB,&
+ & 9.25753E-06_JPRB,9.39915E-06_JPRB,9.54190E-06_JPRB,9.68580E-06_JPRB,9.83085E-06_JPRB,&
+ & 9.97704E-06_JPRB,1.01243E-05_JPRB,1.02728E-05_JPRB,1.04224E-05_JPRB,1.05731E-05_JPRB,&
+ & 1.07249E-05_JPRB,1.08779E-05_JPRB,1.10320E-05_JPRB,1.11872E-05_JPRB,1.13435E-05_JPRB,&
+ & 1.15009E-05_JPRB,1.16595E-05_JPRB,1.18191E-05_JPRB,1.19799E-05_JPRB,1.21418E-05_JPRB,&
+ & 1.23048E-05_JPRB,1.24688E-05_JPRB,1.26340E-05_JPRB,1.28003E-05_JPRB,1.29676E-05_JPRB,&
+ & 1.31361E-05_JPRB,1.33056E-05_JPRB,1.34762E-05_JPRB,1.36479E-05_JPRB,1.38207E-05_JPRB,&
+ & 1.39945E-05_JPRB,1.41694E-05_JPRB,1.43454E-05_JPRB,1.45225E-05_JPRB,1.47006E-05_JPRB,&
+ & 1.48797E-05_JPRB,1.50600E-05_JPRB,1.52413E-05_JPRB,1.54236E-05_JPRB,1.56070E-05_JPRB,&
+ & 1.57914E-05_JPRB,1.59768E-05_JPRB,1.61633E-05_JPRB,1.63509E-05_JPRB,1.65394E-05_JPRB,&
+ & 1.67290E-05_JPRB,1.69197E-05_JPRB,1.71113E-05_JPRB,1.73040E-05_JPRB,1.74976E-05_JPRB,&
+ & 1.76923E-05_JPRB,1.78880E-05_JPRB,1.80847E-05_JPRB,1.82824E-05_JPRB,1.84811E-05_JPRB,&
+ & 1.86808E-05_JPRB,1.88814E-05_JPRB,1.90831E-05_JPRB,1.92857E-05_JPRB,1.94894E-05_JPRB,&
+ & 1.96940E-05_JPRB,1.98996E-05_JPRB,2.01061E-05_JPRB,2.03136E-05_JPRB,2.05221E-05_JPRB,&
+ & 2.07316E-05_JPRB,2.09420E-05_JPRB,2.11533E-05_JPRB,2.13657E-05_JPRB,2.15789E-05_JPRB,&
+ & 2.17931E-05_JPRB/)  
+
+TOTPLNK( :, 6) = (/&
+ & 2.73493E-07_JPRB,2.87408E-07_JPRB,3.01848E-07_JPRB,3.16825E-07_JPRB,3.32352E-07_JPRB,&
+ & 3.48439E-07_JPRB,3.65100E-07_JPRB,3.82346E-07_JPRB,4.00189E-07_JPRB,4.18641E-07_JPRB,&
+ & 4.37715E-07_JPRB,4.57422E-07_JPRB,4.77774E-07_JPRB,4.98784E-07_JPRB,5.20464E-07_JPRB,&
+ & 5.42824E-07_JPRB,5.65879E-07_JPRB,5.89638E-07_JPRB,6.14115E-07_JPRB,6.39320E-07_JPRB,&
+ & 6.65266E-07_JPRB,6.91965E-07_JPRB,7.19427E-07_JPRB,7.47666E-07_JPRB,7.76691E-07_JPRB,&
+ & 8.06516E-07_JPRB,8.37151E-07_JPRB,8.68607E-07_JPRB,9.00896E-07_JPRB,9.34029E-07_JPRB,&
+ & 9.68018E-07_JPRB,1.00287E-06_JPRB,1.03860E-06_JPRB,1.07522E-06_JPRB,1.11274E-06_JPRB,&
+ & 1.15117E-06_JPRB,1.19052E-06_JPRB,1.23079E-06_JPRB,1.27201E-06_JPRB,1.31418E-06_JPRB,&
+ & 1.35731E-06_JPRB,1.40141E-06_JPRB,1.44650E-06_JPRB,1.49257E-06_JPRB,1.53965E-06_JPRB,&
+ & 1.58773E-06_JPRB,1.63684E-06_JPRB,1.68697E-06_JPRB,1.73815E-06_JPRB,1.79037E-06_JPRB,&
+ & 1.84365E-06_JPRB,1.89799E-06_JPRB,1.95341E-06_JPRB,2.00991E-06_JPRB,2.06750E-06_JPRB,&
+ & 2.12619E-06_JPRB,2.18599E-06_JPRB,2.24691E-06_JPRB,2.30895E-06_JPRB,2.37212E-06_JPRB,&
+ & 2.43643E-06_JPRB,2.50189E-06_JPRB,2.56851E-06_JPRB,2.63628E-06_JPRB,2.70523E-06_JPRB,&
+ & 2.77536E-06_JPRB,2.84666E-06_JPRB,2.91916E-06_JPRB,2.99286E-06_JPRB,3.06776E-06_JPRB,&
+ & 3.14387E-06_JPRB,3.22120E-06_JPRB,3.29975E-06_JPRB,3.37953E-06_JPRB,3.46054E-06_JPRB,&
+ & 3.54280E-06_JPRB,3.62630E-06_JPRB,3.71105E-06_JPRB,3.79707E-06_JPRB,3.88434E-06_JPRB,&
+ & 3.97288E-06_JPRB,4.06270E-06_JPRB,4.15380E-06_JPRB,4.24617E-06_JPRB,4.33984E-06_JPRB,&
+ & 4.43479E-06_JPRB,4.53104E-06_JPRB,4.62860E-06_JPRB,4.72746E-06_JPRB,4.82763E-06_JPRB,&
+ & 4.92911E-06_JPRB,5.03191E-06_JPRB,5.13603E-06_JPRB,5.24147E-06_JPRB,5.34824E-06_JPRB,&
+ & 5.45634E-06_JPRB,5.56578E-06_JPRB,5.67656E-06_JPRB,5.78867E-06_JPRB,5.90213E-06_JPRB,&
+ & 6.01694E-06_JPRB,6.13309E-06_JPRB,6.25060E-06_JPRB,6.36947E-06_JPRB,6.48968E-06_JPRB,&
+ & 6.61126E-06_JPRB,6.73420E-06_JPRB,6.85850E-06_JPRB,6.98417E-06_JPRB,7.11120E-06_JPRB,&
+ & 7.23961E-06_JPRB,7.36938E-06_JPRB,7.50053E-06_JPRB,7.63305E-06_JPRB,7.76694E-06_JPRB,&
+ & 7.90221E-06_JPRB,8.03887E-06_JPRB,8.17690E-06_JPRB,8.31632E-06_JPRB,8.45710E-06_JPRB,&
+ & 8.59928E-06_JPRB,8.74282E-06_JPRB,8.88776E-06_JPRB,9.03409E-06_JPRB,9.18179E-06_JPRB,&
+ & 9.33088E-06_JPRB,9.48136E-06_JPRB,9.63323E-06_JPRB,9.78648E-06_JPRB,9.94111E-06_JPRB,&
+ & 1.00971E-05_JPRB,1.02545E-05_JPRB,1.04133E-05_JPRB,1.05735E-05_JPRB,1.07351E-05_JPRB,&
+ & 1.08980E-05_JPRB,1.10624E-05_JPRB,1.12281E-05_JPRB,1.13952E-05_JPRB,1.15637E-05_JPRB,&
+ & 1.17335E-05_JPRB,1.19048E-05_JPRB,1.20774E-05_JPRB,1.22514E-05_JPRB,1.24268E-05_JPRB,&
+ & 1.26036E-05_JPRB,1.27817E-05_JPRB,1.29612E-05_JPRB,1.31421E-05_JPRB,1.33244E-05_JPRB,&
+ & 1.35080E-05_JPRB,1.36930E-05_JPRB,1.38794E-05_JPRB,1.40672E-05_JPRB,1.42563E-05_JPRB,&
+ & 1.44468E-05_JPRB,1.46386E-05_JPRB,1.48318E-05_JPRB,1.50264E-05_JPRB,1.52223E-05_JPRB,&
+ & 1.54196E-05_JPRB,1.56182E-05_JPRB,1.58182E-05_JPRB,1.60196E-05_JPRB,1.62223E-05_JPRB,&
+ & 1.64263E-05_JPRB,1.66317E-05_JPRB,1.68384E-05_JPRB,1.70465E-05_JPRB,1.72559E-05_JPRB,&
+ & 1.74666E-05_JPRB,1.76787E-05_JPRB,1.78921E-05_JPRB,1.81069E-05_JPRB,1.83230E-05_JPRB,&
+ & 1.85404E-05_JPRB,1.87591E-05_JPRB,1.89791E-05_JPRB,1.92005E-05_JPRB,1.94232E-05_JPRB,&
+ & 1.96471E-05_JPRB/)  
+
+TOTPLNK( :, 7) = (/&
+ & 1.25349E-07_JPRB,1.32735E-07_JPRB,1.40458E-07_JPRB,1.48527E-07_JPRB,1.56954E-07_JPRB,&
+ & 1.65748E-07_JPRB,1.74920E-07_JPRB,1.84481E-07_JPRB,1.94443E-07_JPRB,2.04814E-07_JPRB,&
+ & 2.15608E-07_JPRB,2.26835E-07_JPRB,2.38507E-07_JPRB,2.50634E-07_JPRB,2.63229E-07_JPRB,&
+ & 2.76301E-07_JPRB,2.89864E-07_JPRB,3.03930E-07_JPRB,3.18508E-07_JPRB,3.33612E-07_JPRB,&
+ & 3.49253E-07_JPRB,3.65443E-07_JPRB,3.82195E-07_JPRB,3.99519E-07_JPRB,4.17428E-07_JPRB,&
+ & 4.35934E-07_JPRB,4.55050E-07_JPRB,4.74785E-07_JPRB,4.95155E-07_JPRB,5.16170E-07_JPRB,&
+ & 5.37844E-07_JPRB,5.60186E-07_JPRB,5.83211E-07_JPRB,6.06929E-07_JPRB,6.31355E-07_JPRB,&
+ & 6.56498E-07_JPRB,6.82373E-07_JPRB,7.08990E-07_JPRB,7.36362E-07_JPRB,7.64501E-07_JPRB,&
+ & 7.93420E-07_JPRB,8.23130E-07_JPRB,8.53643E-07_JPRB,8.84971E-07_JPRB,9.17128E-07_JPRB,&
+ & 9.50123E-07_JPRB,9.83969E-07_JPRB,1.01868E-06_JPRB,1.05426E-06_JPRB,1.09073E-06_JPRB,&
+ & 1.12810E-06_JPRB,1.16638E-06_JPRB,1.20558E-06_JPRB,1.24572E-06_JPRB,1.28680E-06_JPRB,&
+ & 1.32883E-06_JPRB,1.37183E-06_JPRB,1.41581E-06_JPRB,1.46078E-06_JPRB,1.50675E-06_JPRB,&
+ & 1.55374E-06_JPRB,1.60174E-06_JPRB,1.65078E-06_JPRB,1.70087E-06_JPRB,1.75200E-06_JPRB,&
+ & 1.80421E-06_JPRB,1.85749E-06_JPRB,1.91186E-06_JPRB,1.96732E-06_JPRB,2.02389E-06_JPRB,&
+ & 2.08159E-06_JPRB,2.14040E-06_JPRB,2.20035E-06_JPRB,2.26146E-06_JPRB,2.32372E-06_JPRB,&
+ & 2.38714E-06_JPRB,2.45174E-06_JPRB,2.51753E-06_JPRB,2.58451E-06_JPRB,2.65270E-06_JPRB,&
+ & 2.72210E-06_JPRB,2.79272E-06_JPRB,2.86457E-06_JPRB,2.93767E-06_JPRB,3.01201E-06_JPRB,&
+ & 3.08761E-06_JPRB,3.16448E-06_JPRB,3.24261E-06_JPRB,3.32204E-06_JPRB,3.40275E-06_JPRB,&
+ & 3.48476E-06_JPRB,3.56808E-06_JPRB,3.65271E-06_JPRB,3.73866E-06_JPRB,3.82595E-06_JPRB,&
+ & 3.91456E-06_JPRB,4.00453E-06_JPRB,4.09584E-06_JPRB,4.18851E-06_JPRB,4.28254E-06_JPRB,&
+ & 4.37796E-06_JPRB,4.47475E-06_JPRB,4.57293E-06_JPRB,4.67249E-06_JPRB,4.77346E-06_JPRB,&
+ & 4.87583E-06_JPRB,4.97961E-06_JPRB,5.08481E-06_JPRB,5.19143E-06_JPRB,5.29948E-06_JPRB,&
+ & 5.40896E-06_JPRB,5.51989E-06_JPRB,5.63226E-06_JPRB,5.74608E-06_JPRB,5.86136E-06_JPRB,&
+ & 5.97810E-06_JPRB,6.09631E-06_JPRB,6.21597E-06_JPRB,6.33713E-06_JPRB,6.45976E-06_JPRB,&
+ & 6.58388E-06_JPRB,6.70950E-06_JPRB,6.83661E-06_JPRB,6.96521E-06_JPRB,7.09531E-06_JPRB,&
+ & 7.22692E-06_JPRB,7.36005E-06_JPRB,7.49468E-06_JPRB,7.63084E-06_JPRB,7.76851E-06_JPRB,&
+ & 7.90773E-06_JPRB,8.04846E-06_JPRB,8.19072E-06_JPRB,8.33452E-06_JPRB,8.47985E-06_JPRB,&
+ & 8.62674E-06_JPRB,8.77517E-06_JPRB,8.92514E-06_JPRB,9.07666E-06_JPRB,9.22975E-06_JPRB,&
+ & 9.38437E-06_JPRB,9.54057E-06_JPRB,9.69832E-06_JPRB,9.85762E-06_JPRB,1.00185E-05_JPRB,&
+ & 1.01810E-05_JPRB,1.03450E-05_JPRB,1.05106E-05_JPRB,1.06777E-05_JPRB,1.08465E-05_JPRB,&
+ & 1.10168E-05_JPRB,1.11887E-05_JPRB,1.13621E-05_JPRB,1.15372E-05_JPRB,1.17138E-05_JPRB,&
+ & 1.18920E-05_JPRB,1.20718E-05_JPRB,1.22532E-05_JPRB,1.24362E-05_JPRB,1.26207E-05_JPRB,&
+ & 1.28069E-05_JPRB,1.29946E-05_JPRB,1.31839E-05_JPRB,1.33749E-05_JPRB,1.35674E-05_JPRB,&
+ & 1.37615E-05_JPRB,1.39572E-05_JPRB,1.41544E-05_JPRB,1.43533E-05_JPRB,1.45538E-05_JPRB,&
+ & 1.47558E-05_JPRB,1.49595E-05_JPRB,1.51647E-05_JPRB,1.53716E-05_JPRB,1.55800E-05_JPRB,&
+ & 1.57900E-05_JPRB,1.60017E-05_JPRB,1.62149E-05_JPRB,1.64296E-05_JPRB,1.66460E-05_JPRB,&
+ & 1.68640E-05_JPRB/)  
+
+TOTPLNK( :, 8) = (/&
+ & 6.74445E-08_JPRB,7.18176E-08_JPRB,7.64153E-08_JPRB,8.12456E-08_JPRB,8.63170E-08_JPRB,&
+ & 9.16378E-08_JPRB,9.72168E-08_JPRB,1.03063E-07_JPRB,1.09184E-07_JPRB,1.15591E-07_JPRB,&
+ & 1.22292E-07_JPRB,1.29296E-07_JPRB,1.36613E-07_JPRB,1.44253E-07_JPRB,1.52226E-07_JPRB,&
+ & 1.60540E-07_JPRB,1.69207E-07_JPRB,1.78236E-07_JPRB,1.87637E-07_JPRB,1.97421E-07_JPRB,&
+ & 2.07599E-07_JPRB,2.18181E-07_JPRB,2.29177E-07_JPRB,2.40598E-07_JPRB,2.52456E-07_JPRB,&
+ & 2.64761E-07_JPRB,2.77523E-07_JPRB,2.90755E-07_JPRB,3.04468E-07_JPRB,3.18673E-07_JPRB,&
+ & 3.33381E-07_JPRB,3.48603E-07_JPRB,3.64352E-07_JPRB,3.80638E-07_JPRB,3.97474E-07_JPRB,&
+ & 4.14871E-07_JPRB,4.32841E-07_JPRB,4.51395E-07_JPRB,4.70547E-07_JPRB,4.90306E-07_JPRB,&
+ & 5.10687E-07_JPRB,5.31699E-07_JPRB,5.53357E-07_JPRB,5.75670E-07_JPRB,5.98652E-07_JPRB,&
+ & 6.22315E-07_JPRB,6.46672E-07_JPRB,6.71731E-07_JPRB,6.97511E-07_JPRB,7.24018E-07_JPRB,&
+ & 7.51266E-07_JPRB,7.79269E-07_JPRB,8.08038E-07_JPRB,8.37584E-07_JPRB,8.67922E-07_JPRB,&
+ & 8.99061E-07_JPRB,9.31016E-07_JPRB,9.63797E-07_JPRB,9.97417E-07_JPRB,1.03189E-06_JPRB,&
+ & 1.06722E-06_JPRB,1.10343E-06_JPRB,1.14053E-06_JPRB,1.17853E-06_JPRB,1.21743E-06_JPRB,&
+ & 1.25726E-06_JPRB,1.29803E-06_JPRB,1.33974E-06_JPRB,1.38241E-06_JPRB,1.42606E-06_JPRB,&
+ & 1.47068E-06_JPRB,1.51630E-06_JPRB,1.56293E-06_JPRB,1.61056E-06_JPRB,1.65924E-06_JPRB,&
+ & 1.70894E-06_JPRB,1.75971E-06_JPRB,1.81153E-06_JPRB,1.86443E-06_JPRB,1.91841E-06_JPRB,&
+ & 1.97350E-06_JPRB,2.02968E-06_JPRB,2.08699E-06_JPRB,2.14543E-06_JPRB,2.20500E-06_JPRB,&
+ & 2.26573E-06_JPRB,2.32762E-06_JPRB,2.39068E-06_JPRB,2.45492E-06_JPRB,2.52036E-06_JPRB,&
+ & 2.58700E-06_JPRB,2.65485E-06_JPRB,2.72393E-06_JPRB,2.79424E-06_JPRB,2.86580E-06_JPRB,&
+ & 2.93861E-06_JPRB,3.01269E-06_JPRB,3.08803E-06_JPRB,3.16467E-06_JPRB,3.24259E-06_JPRB,&
+ & 3.32181E-06_JPRB,3.40235E-06_JPRB,3.48420E-06_JPRB,3.56739E-06_JPRB,3.65192E-06_JPRB,&
+ & 3.73779E-06_JPRB,3.82502E-06_JPRB,3.91362E-06_JPRB,4.00359E-06_JPRB,4.09494E-06_JPRB,&
+ & 4.18768E-06_JPRB,4.28182E-06_JPRB,4.37737E-06_JPRB,4.47434E-06_JPRB,4.57273E-06_JPRB,&
+ & 4.67254E-06_JPRB,4.77380E-06_JPRB,4.87651E-06_JPRB,4.98067E-06_JPRB,5.08630E-06_JPRB,&
+ & 5.19339E-06_JPRB,5.30196E-06_JPRB,5.41201E-06_JPRB,5.52356E-06_JPRB,5.63660E-06_JPRB,&
+ & 5.75116E-06_JPRB,5.86722E-06_JPRB,5.98479E-06_JPRB,6.10390E-06_JPRB,6.22453E-06_JPRB,&
+ & 6.34669E-06_JPRB,6.47042E-06_JPRB,6.59569E-06_JPRB,6.72252E-06_JPRB,6.85090E-06_JPRB,&
+ & 6.98085E-06_JPRB,7.11238E-06_JPRB,7.24549E-06_JPRB,7.38019E-06_JPRB,7.51646E-06_JPRB,&
+ & 7.65434E-06_JPRB,7.79382E-06_JPRB,7.93490E-06_JPRB,8.07760E-06_JPRB,8.22192E-06_JPRB,&
+ & 8.36784E-06_JPRB,8.51540E-06_JPRB,8.66459E-06_JPRB,8.81542E-06_JPRB,8.96786E-06_JPRB,&
+ & 9.12197E-06_JPRB,9.27772E-06_JPRB,9.43513E-06_JPRB,9.59419E-06_JPRB,9.75490E-06_JPRB,&
+ & 9.91728E-06_JPRB,1.00813E-05_JPRB,1.02471E-05_JPRB,1.04144E-05_JPRB,1.05835E-05_JPRB,&
+ & 1.07543E-05_JPRB,1.09267E-05_JPRB,1.11008E-05_JPRB,1.12766E-05_JPRB,1.14541E-05_JPRB,&
+ & 1.16333E-05_JPRB,1.18142E-05_JPRB,1.19969E-05_JPRB,1.21812E-05_JPRB,1.23672E-05_JPRB,&
+ & 1.25549E-05_JPRB,1.27443E-05_JPRB,1.29355E-05_JPRB,1.31284E-05_JPRB,1.33229E-05_JPRB,&
+ & 1.35193E-05_JPRB,1.37173E-05_JPRB,1.39170E-05_JPRB,1.41185E-05_JPRB,1.43217E-05_JPRB,&
+ & 1.45267E-05_JPRB/)  
+
+TOTPLNK( :, 9) = (/&
+ & 2.61522E-08_JPRB,2.80613E-08_JPRB,3.00838E-08_JPRB,3.22250E-08_JPRB,3.44899E-08_JPRB,&
+ & 3.68841E-08_JPRB,3.94129E-08_JPRB,4.20820E-08_JPRB,4.48973E-08_JPRB,4.78646E-08_JPRB,&
+ & 5.09901E-08_JPRB,5.42799E-08_JPRB,5.77405E-08_JPRB,6.13784E-08_JPRB,6.52001E-08_JPRB,&
+ & 6.92126E-08_JPRB,7.34227E-08_JPRB,7.78375E-08_JPRB,8.24643E-08_JPRB,8.73103E-08_JPRB,&
+ & 9.23832E-08_JPRB,9.76905E-08_JPRB,1.03240E-07_JPRB,1.09039E-07_JPRB,1.15097E-07_JPRB,&
+ & 1.21421E-07_JPRB,1.28020E-07_JPRB,1.34902E-07_JPRB,1.42075E-07_JPRB,1.49548E-07_JPRB,&
+ & 1.57331E-07_JPRB,1.65432E-07_JPRB,1.73860E-07_JPRB,1.82624E-07_JPRB,1.91734E-07_JPRB,&
+ & 2.01198E-07_JPRB,2.11028E-07_JPRB,2.21231E-07_JPRB,2.31818E-07_JPRB,2.42799E-07_JPRB,&
+ & 2.54184E-07_JPRB,2.65983E-07_JPRB,2.78205E-07_JPRB,2.90862E-07_JPRB,3.03963E-07_JPRB,&
+ & 3.17519E-07_JPRB,3.31541E-07_JPRB,3.46039E-07_JPRB,3.61024E-07_JPRB,3.76507E-07_JPRB,&
+ & 3.92498E-07_JPRB,4.09008E-07_JPRB,4.26050E-07_JPRB,4.43633E-07_JPRB,4.61769E-07_JPRB,&
+ & 4.80469E-07_JPRB,4.99744E-07_JPRB,5.19606E-07_JPRB,5.40067E-07_JPRB,5.61136E-07_JPRB,&
+ & 5.82828E-07_JPRB,6.05152E-07_JPRB,6.28120E-07_JPRB,6.51745E-07_JPRB,6.76038E-07_JPRB,&
+ & 7.01010E-07_JPRB,7.26674E-07_JPRB,7.53041E-07_JPRB,7.80124E-07_JPRB,8.07933E-07_JPRB,&
+ & 8.36482E-07_JPRB,8.65781E-07_JPRB,8.95845E-07_JPRB,9.26683E-07_JPRB,9.58308E-07_JPRB,&
+ & 9.90732E-07_JPRB,1.02397E-06_JPRB,1.05803E-06_JPRB,1.09292E-06_JPRB,1.12866E-06_JPRB,&
+ & 1.16526E-06_JPRB,1.20274E-06_JPRB,1.24109E-06_JPRB,1.28034E-06_JPRB,1.32050E-06_JPRB,&
+ & 1.36158E-06_JPRB,1.40359E-06_JPRB,1.44655E-06_JPRB,1.49046E-06_JPRB,1.53534E-06_JPRB,&
+ & 1.58120E-06_JPRB,1.62805E-06_JPRB,1.67591E-06_JPRB,1.72478E-06_JPRB,1.77468E-06_JPRB,&
+ & 1.82561E-06_JPRB,1.87760E-06_JPRB,1.93066E-06_JPRB,1.98479E-06_JPRB,2.04000E-06_JPRB,&
+ & 2.09631E-06_JPRB,2.15373E-06_JPRB,2.21228E-06_JPRB,2.27196E-06_JPRB,2.33278E-06_JPRB,&
+ & 2.39475E-06_JPRB,2.45790E-06_JPRB,2.52222E-06_JPRB,2.58773E-06_JPRB,2.65445E-06_JPRB,&
+ & 2.72238E-06_JPRB,2.79152E-06_JPRB,2.86191E-06_JPRB,2.93354E-06_JPRB,3.00643E-06_JPRB,&
+ & 3.08058E-06_JPRB,3.15601E-06_JPRB,3.23273E-06_JPRB,3.31075E-06_JPRB,3.39009E-06_JPRB,&
+ & 3.47074E-06_JPRB,3.55272E-06_JPRB,3.63605E-06_JPRB,3.72072E-06_JPRB,3.80676E-06_JPRB,&
+ & 3.89417E-06_JPRB,3.98297E-06_JPRB,4.07315E-06_JPRB,4.16474E-06_JPRB,4.25774E-06_JPRB,&
+ & 4.35217E-06_JPRB,4.44802E-06_JPRB,4.54532E-06_JPRB,4.64406E-06_JPRB,4.74428E-06_JPRB,&
+ & 4.84595E-06_JPRB,4.94911E-06_JPRB,5.05376E-06_JPRB,5.15990E-06_JPRB,5.26755E-06_JPRB,&
+ & 5.37671E-06_JPRB,5.48741E-06_JPRB,5.59963E-06_JPRB,5.71340E-06_JPRB,5.82871E-06_JPRB,&
+ & 5.94559E-06_JPRB,6.06403E-06_JPRB,6.18404E-06_JPRB,6.30565E-06_JPRB,6.42885E-06_JPRB,&
+ & 6.55364E-06_JPRB,6.68004E-06_JPRB,6.80806E-06_JPRB,6.93771E-06_JPRB,7.06898E-06_JPRB,&
+ & 7.20190E-06_JPRB,7.33646E-06_JPRB,7.47267E-06_JPRB,7.61056E-06_JPRB,7.75010E-06_JPRB,&
+ & 7.89133E-06_JPRB,8.03423E-06_JPRB,8.17884E-06_JPRB,8.32514E-06_JPRB,8.47314E-06_JPRB,&
+ & 8.62284E-06_JPRB,8.77427E-06_JPRB,8.92743E-06_JPRB,9.08231E-06_JPRB,9.23893E-06_JPRB,&
+ & 9.39729E-06_JPRB,9.55741E-06_JPRB,9.71927E-06_JPRB,9.88291E-06_JPRB,1.00483E-05_JPRB,&
+ & 1.02155E-05_JPRB,1.03844E-05_JPRB,1.05552E-05_JPRB,1.07277E-05_JPRB,1.09020E-05_JPRB,&
+ & 1.10781E-05_JPRB/)  
+
+TOTPLNK( :,10) = (/&
+ & 8.89300E-09_JPRB,9.63263E-09_JPRB,1.04235E-08_JPRB,1.12685E-08_JPRB,1.21703E-08_JPRB,&
+ & 1.31321E-08_JPRB,1.41570E-08_JPRB,1.52482E-08_JPRB,1.64090E-08_JPRB,1.76428E-08_JPRB,&
+ & 1.89533E-08_JPRB,2.03441E-08_JPRB,2.18190E-08_JPRB,2.33820E-08_JPRB,2.50370E-08_JPRB,&
+ & 2.67884E-08_JPRB,2.86402E-08_JPRB,3.05969E-08_JPRB,3.26632E-08_JPRB,3.48436E-08_JPRB,&
+ & 3.71429E-08_JPRB,3.95660E-08_JPRB,4.21179E-08_JPRB,4.48040E-08_JPRB,4.76294E-08_JPRB,&
+ & 5.05996E-08_JPRB,5.37201E-08_JPRB,5.69966E-08_JPRB,6.04349E-08_JPRB,6.40411E-08_JPRB,&
+ & 6.78211E-08_JPRB,7.17812E-08_JPRB,7.59276E-08_JPRB,8.02670E-08_JPRB,8.48059E-08_JPRB,&
+ & 8.95508E-08_JPRB,9.45090E-08_JPRB,9.96873E-08_JPRB,1.05093E-07_JPRB,1.10733E-07_JPRB,&
+ & 1.16614E-07_JPRB,1.22745E-07_JPRB,1.29133E-07_JPRB,1.35786E-07_JPRB,1.42711E-07_JPRB,&
+ & 1.49916E-07_JPRB,1.57410E-07_JPRB,1.65202E-07_JPRB,1.73298E-07_JPRB,1.81709E-07_JPRB,&
+ & 1.90441E-07_JPRB,1.99505E-07_JPRB,2.08908E-07_JPRB,2.18660E-07_JPRB,2.28770E-07_JPRB,&
+ & 2.39247E-07_JPRB,2.50101E-07_JPRB,2.61340E-07_JPRB,2.72974E-07_JPRB,2.85013E-07_JPRB,&
+ & 2.97467E-07_JPRB,3.10345E-07_JPRB,3.23657E-07_JPRB,3.37413E-07_JPRB,3.51623E-07_JPRB,&
+ & 3.66298E-07_JPRB,3.81448E-07_JPRB,3.97082E-07_JPRB,4.13212E-07_JPRB,4.29848E-07_JPRB,&
+ & 4.47000E-07_JPRB,4.64680E-07_JPRB,4.82898E-07_JPRB,5.01664E-07_JPRB,5.20991E-07_JPRB,&
+ & 5.40888E-07_JPRB,5.61369E-07_JPRB,5.82440E-07_JPRB,6.04118E-07_JPRB,6.26410E-07_JPRB,&
+ & 6.49329E-07_JPRB,6.72887E-07_JPRB,6.97095E-07_JPRB,7.21964E-07_JPRB,7.47506E-07_JPRB,&
+ & 7.73732E-07_JPRB,8.00655E-07_JPRB,8.28287E-07_JPRB,8.56635E-07_JPRB,8.85717E-07_JPRB,&
+ & 9.15542E-07_JPRB,9.46122E-07_JPRB,9.77469E-07_JPRB,1.00960E-06_JPRB,1.04251E-06_JPRB,&
+ & 1.07623E-06_JPRB,1.11077E-06_JPRB,1.14613E-06_JPRB,1.18233E-06_JPRB,1.21939E-06_JPRB,&
+ & 1.25730E-06_JPRB,1.29610E-06_JPRB,1.33578E-06_JPRB,1.37636E-06_JPRB,1.41785E-06_JPRB,&
+ & 1.46027E-06_JPRB,1.50362E-06_JPRB,1.54792E-06_JPRB,1.59319E-06_JPRB,1.63942E-06_JPRB,&
+ & 1.68665E-06_JPRB,1.73487E-06_JPRB,1.78410E-06_JPRB,1.83435E-06_JPRB,1.88564E-06_JPRB,&
+ & 1.93797E-06_JPRB,1.99136E-06_JPRB,2.04582E-06_JPRB,2.10137E-06_JPRB,2.15801E-06_JPRB,&
+ & 2.21576E-06_JPRB,2.27463E-06_JPRB,2.33462E-06_JPRB,2.39577E-06_JPRB,2.45806E-06_JPRB,&
+ & 2.52153E-06_JPRB,2.58617E-06_JPRB,2.65201E-06_JPRB,2.71905E-06_JPRB,2.78730E-06_JPRB,&
+ & 2.85678E-06_JPRB,2.92749E-06_JPRB,2.99946E-06_JPRB,3.07269E-06_JPRB,3.14720E-06_JPRB,&
+ & 3.22299E-06_JPRB,3.30007E-06_JPRB,3.37847E-06_JPRB,3.45818E-06_JPRB,3.53923E-06_JPRB,&
+ & 3.62161E-06_JPRB,3.70535E-06_JPRB,3.79046E-06_JPRB,3.87695E-06_JPRB,3.96481E-06_JPRB,&
+ & 4.05409E-06_JPRB,4.14477E-06_JPRB,4.23687E-06_JPRB,4.33040E-06_JPRB,4.42538E-06_JPRB,&
+ & 4.52180E-06_JPRB,4.61969E-06_JPRB,4.71905E-06_JPRB,4.81991E-06_JPRB,4.92226E-06_JPRB,&
+ & 5.02611E-06_JPRB,5.13148E-06_JPRB,5.23839E-06_JPRB,5.34681E-06_JPRB,5.45681E-06_JPRB,&
+ & 5.56835E-06_JPRB,5.68146E-06_JPRB,5.79614E-06_JPRB,5.91242E-06_JPRB,6.03030E-06_JPRB,&
+ & 6.14978E-06_JPRB,6.27088E-06_JPRB,6.39360E-06_JPRB,6.51798E-06_JPRB,6.64398E-06_JPRB,&
+ & 6.77165E-06_JPRB,6.90099E-06_JPRB,7.03198E-06_JPRB,7.16468E-06_JPRB,7.29906E-06_JPRB,&
+ & 7.43514E-06_JPRB,7.57294E-06_JPRB,7.71244E-06_JPRB,7.85369E-06_JPRB,7.99666E-06_JPRB,&
+ & 8.14138E-06_JPRB/)  
+
+TOTPLNK( :,11) = (/&
+ & 2.53767E-09_JPRB,2.77242E-09_JPRB,3.02564E-09_JPRB,3.29851E-09_JPRB,3.59228E-09_JPRB,&
+ & 3.90825E-09_JPRB,4.24777E-09_JPRB,4.61227E-09_JPRB,5.00322E-09_JPRB,5.42219E-09_JPRB,&
+ & 5.87080E-09_JPRB,6.35072E-09_JPRB,6.86370E-09_JPRB,7.41159E-09_JPRB,7.99628E-09_JPRB,&
+ & 8.61974E-09_JPRB,9.28404E-09_JPRB,9.99130E-09_JPRB,1.07437E-08_JPRB,1.15436E-08_JPRB,&
+ & 1.23933E-08_JPRB,1.32953E-08_JPRB,1.42522E-08_JPRB,1.52665E-08_JPRB,1.63410E-08_JPRB,&
+ & 1.74786E-08_JPRB,1.86820E-08_JPRB,1.99542E-08_JPRB,2.12985E-08_JPRB,2.27179E-08_JPRB,&
+ & 2.42158E-08_JPRB,2.57954E-08_JPRB,2.74604E-08_JPRB,2.92141E-08_JPRB,3.10604E-08_JPRB,&
+ & 3.30029E-08_JPRB,3.50457E-08_JPRB,3.71925E-08_JPRB,3.94476E-08_JPRB,4.18149E-08_JPRB,&
+ & 4.42991E-08_JPRB,4.69043E-08_JPRB,4.96352E-08_JPRB,5.24961E-08_JPRB,5.54921E-08_JPRB,&
+ & 5.86277E-08_JPRB,6.19081E-08_JPRB,6.53381E-08_JPRB,6.89231E-08_JPRB,7.26681E-08_JPRB,&
+ & 7.65788E-08_JPRB,8.06604E-08_JPRB,8.49187E-08_JPRB,8.93591E-08_JPRB,9.39879E-08_JPRB,&
+ & 9.88106E-08_JPRB,1.03834E-07_JPRB,1.09063E-07_JPRB,1.14504E-07_JPRB,1.20165E-07_JPRB,&
+ & 1.26051E-07_JPRB,1.32169E-07_JPRB,1.38525E-07_JPRB,1.45128E-07_JPRB,1.51982E-07_JPRB,&
+ & 1.59096E-07_JPRB,1.66477E-07_JPRB,1.74132E-07_JPRB,1.82068E-07_JPRB,1.90292E-07_JPRB,&
+ & 1.98813E-07_JPRB,2.07638E-07_JPRB,2.16775E-07_JPRB,2.26231E-07_JPRB,2.36015E-07_JPRB,&
+ & 2.46135E-07_JPRB,2.56599E-07_JPRB,2.67415E-07_JPRB,2.78592E-07_JPRB,2.90137E-07_JPRB,&
+ & 3.02061E-07_JPRB,3.14371E-07_JPRB,3.27077E-07_JPRB,3.40186E-07_JPRB,3.53710E-07_JPRB,&
+ & 3.67655E-07_JPRB,3.82031E-07_JPRB,3.96848E-07_JPRB,4.12116E-07_JPRB,4.27842E-07_JPRB,&
+ & 4.44039E-07_JPRB,4.60713E-07_JPRB,4.77876E-07_JPRB,4.95537E-07_JPRB,5.13706E-07_JPRB,&
+ & 5.32392E-07_JPRB,5.51608E-07_JPRB,5.71360E-07_JPRB,5.91662E-07_JPRB,6.12521E-07_JPRB,&
+ & 6.33950E-07_JPRB,6.55958E-07_JPRB,6.78556E-07_JPRB,7.01753E-07_JPRB,7.25562E-07_JPRB,&
+ & 7.49992E-07_JPRB,7.75055E-07_JPRB,8.00760E-07_JPRB,8.27120E-07_JPRB,8.54145E-07_JPRB,&
+ & 8.81845E-07_JPRB,9.10233E-07_JPRB,9.39318E-07_JPRB,9.69113E-07_JPRB,9.99627E-07_JPRB,&
+ & 1.03087E-06_JPRB,1.06286E-06_JPRB,1.09561E-06_JPRB,1.12912E-06_JPRB,1.16340E-06_JPRB,&
+ & 1.19848E-06_JPRB,1.23435E-06_JPRB,1.27104E-06_JPRB,1.30855E-06_JPRB,1.34690E-06_JPRB,&
+ & 1.38609E-06_JPRB,1.42614E-06_JPRB,1.46706E-06_JPRB,1.50886E-06_JPRB,1.55155E-06_JPRB,&
+ & 1.59515E-06_JPRB,1.63967E-06_JPRB,1.68512E-06_JPRB,1.73150E-06_JPRB,1.77884E-06_JPRB,&
+ & 1.82715E-06_JPRB,1.87643E-06_JPRB,1.92670E-06_JPRB,1.97797E-06_JPRB,2.03026E-06_JPRB,&
+ & 2.08356E-06_JPRB,2.13791E-06_JPRB,2.19330E-06_JPRB,2.24975E-06_JPRB,2.30728E-06_JPRB,&
+ & 2.36589E-06_JPRB,2.42560E-06_JPRB,2.48641E-06_JPRB,2.54835E-06_JPRB,2.61142E-06_JPRB,&
+ & 2.67563E-06_JPRB,2.74100E-06_JPRB,2.80754E-06_JPRB,2.87526E-06_JPRB,2.94417E-06_JPRB,&
+ & 3.01429E-06_JPRB,3.08562E-06_JPRB,3.15819E-06_JPRB,3.23199E-06_JPRB,3.30704E-06_JPRB,&
+ & 3.38336E-06_JPRB,3.46096E-06_JPRB,3.53984E-06_JPRB,3.62002E-06_JPRB,3.70151E-06_JPRB,&
+ & 3.78433E-06_JPRB,3.86848E-06_JPRB,3.95399E-06_JPRB,4.04084E-06_JPRB,4.12907E-06_JPRB,&
+ & 4.21868E-06_JPRB,4.30968E-06_JPRB,4.40209E-06_JPRB,4.49592E-06_JPRB,4.59117E-06_JPRB,&
+ & 4.68786E-06_JPRB,4.78600E-06_JPRB,4.88561E-06_JPRB,4.98669E-06_JPRB,5.08926E-06_JPRB,&
+ & 5.19332E-06_JPRB/)  
+
+TOTPLNK( :,12) = (/&
+ & 2.73921E-10_JPRB,3.04500E-10_JPRB,3.38056E-10_JPRB,3.74835E-10_JPRB,4.15099E-10_JPRB,&
+ & 4.59126E-10_JPRB,5.07214E-10_JPRB,5.59679E-10_JPRB,6.16857E-10_JPRB,6.79103E-10_JPRB,&
+ & 7.46796E-10_JPRB,8.20335E-10_JPRB,9.00144E-10_JPRB,9.86671E-10_JPRB,1.08039E-09_JPRB,&
+ & 1.18180E-09_JPRB,1.29142E-09_JPRB,1.40982E-09_JPRB,1.53757E-09_JPRB,1.67529E-09_JPRB,&
+ & 1.82363E-09_JPRB,1.98327E-09_JPRB,2.15492E-09_JPRB,2.33932E-09_JPRB,2.53726E-09_JPRB,&
+ & 2.74957E-09_JPRB,2.97710E-09_JPRB,3.22075E-09_JPRB,3.48145E-09_JPRB,3.76020E-09_JPRB,&
+ & 4.05801E-09_JPRB,4.37595E-09_JPRB,4.71513E-09_JPRB,5.07672E-09_JPRB,5.46193E-09_JPRB,&
+ & 5.87201E-09_JPRB,6.30827E-09_JPRB,6.77205E-09_JPRB,7.26480E-09_JPRB,7.78794E-09_JPRB,&
+ & 8.34304E-09_JPRB,8.93163E-09_JPRB,9.55537E-09_JPRB,1.02159E-08_JPRB,1.09151E-08_JPRB,&
+ & 1.16547E-08_JPRB,1.24365E-08_JPRB,1.32625E-08_JPRB,1.41348E-08_JPRB,1.50554E-08_JPRB,&
+ & 1.60264E-08_JPRB,1.70500E-08_JPRB,1.81285E-08_JPRB,1.92642E-08_JPRB,2.04596E-08_JPRB,&
+ & 2.17171E-08_JPRB,2.30394E-08_JPRB,2.44289E-08_JPRB,2.58885E-08_JPRB,2.74209E-08_JPRB,&
+ & 2.90290E-08_JPRB,3.07157E-08_JPRB,3.24841E-08_JPRB,3.43371E-08_JPRB,3.62782E-08_JPRB,&
+ & 3.83103E-08_JPRB,4.04371E-08_JPRB,4.26617E-08_JPRB,4.49878E-08_JPRB,4.74190E-08_JPRB,&
+ & 4.99589E-08_JPRB,5.26113E-08_JPRB,5.53801E-08_JPRB,5.82692E-08_JPRB,6.12826E-08_JPRB,&
+ & 6.44245E-08_JPRB,6.76991E-08_JPRB,7.11105E-08_JPRB,7.46634E-08_JPRB,7.83621E-08_JPRB,&
+ & 8.22112E-08_JPRB,8.62154E-08_JPRB,9.03795E-08_JPRB,9.47081E-08_JPRB,9.92066E-08_JPRB,&
+ & 1.03879E-07_JPRB,1.08732E-07_JPRB,1.13770E-07_JPRB,1.18998E-07_JPRB,1.24422E-07_JPRB,&
+ & 1.30048E-07_JPRB,1.35880E-07_JPRB,1.41924E-07_JPRB,1.48187E-07_JPRB,1.54675E-07_JPRB,&
+ & 1.61392E-07_JPRB,1.68346E-07_JPRB,1.75543E-07_JPRB,1.82988E-07_JPRB,1.90688E-07_JPRB,&
+ & 1.98650E-07_JPRB,2.06880E-07_JPRB,2.15385E-07_JPRB,2.24172E-07_JPRB,2.33247E-07_JPRB,&
+ & 2.42617E-07_JPRB,2.52289E-07_JPRB,2.62272E-07_JPRB,2.72571E-07_JPRB,2.83193E-07_JPRB,&
+ & 2.94147E-07_JPRB,3.05440E-07_JPRB,3.17080E-07_JPRB,3.29074E-07_JPRB,3.41430E-07_JPRB,&
+ & 3.54155E-07_JPRB,3.67259E-07_JPRB,3.80747E-07_JPRB,3.94631E-07_JPRB,4.08916E-07_JPRB,&
+ & 4.23611E-07_JPRB,4.38725E-07_JPRB,4.54267E-07_JPRB,4.70245E-07_JPRB,4.86666E-07_JPRB,&
+ & 5.03541E-07_JPRB,5.20879E-07_JPRB,5.38687E-07_JPRB,5.56975E-07_JPRB,5.75751E-07_JPRB,&
+ & 5.95026E-07_JPRB,6.14808E-07_JPRB,6.35107E-07_JPRB,6.55932E-07_JPRB,6.77293E-07_JPRB,&
+ & 6.99197E-07_JPRB,7.21656E-07_JPRB,7.44681E-07_JPRB,7.68278E-07_JPRB,7.92460E-07_JPRB,&
+ & 8.17235E-07_JPRB,8.42614E-07_JPRB,8.68606E-07_JPRB,8.95223E-07_JPRB,9.22473E-07_JPRB,&
+ & 9.50366E-07_JPRB,9.78915E-07_JPRB,1.00813E-06_JPRB,1.03802E-06_JPRB,1.06859E-06_JPRB,&
+ & 1.09986E-06_JPRB,1.13184E-06_JPRB,1.16453E-06_JPRB,1.19796E-06_JPRB,1.23212E-06_JPRB,&
+ & 1.26703E-06_JPRB,1.30270E-06_JPRB,1.33915E-06_JPRB,1.37637E-06_JPRB,1.41440E-06_JPRB,&
+ & 1.45322E-06_JPRB,1.49286E-06_JPRB,1.53333E-06_JPRB,1.57464E-06_JPRB,1.61679E-06_JPRB,&
+ & 1.65981E-06_JPRB,1.70370E-06_JPRB,1.74847E-06_JPRB,1.79414E-06_JPRB,1.84071E-06_JPRB,&
+ & 1.88821E-06_JPRB,1.93663E-06_JPRB,1.98599E-06_JPRB,2.03631E-06_JPRB,2.08759E-06_JPRB,&
+ & 2.13985E-06_JPRB,2.19310E-06_JPRB,2.24734E-06_JPRB,2.30260E-06_JPRB,2.35888E-06_JPRB,&
+ & 2.41619E-06_JPRB/)  
+
+TOTPLNK( :,13) = (/&
+ & 4.53634E-11_JPRB,5.11435E-11_JPRB,5.75754E-11_JPRB,6.47222E-11_JPRB,7.26531E-11_JPRB,&
+ & 8.14420E-11_JPRB,9.11690E-11_JPRB,1.01921E-10_JPRB,1.13790E-10_JPRB,1.26877E-10_JPRB,&
+ & 1.41288E-10_JPRB,1.57140E-10_JPRB,1.74555E-10_JPRB,1.93665E-10_JPRB,2.14613E-10_JPRB,&
+ & 2.37548E-10_JPRB,2.62633E-10_JPRB,2.90039E-10_JPRB,3.19948E-10_JPRB,3.52558E-10_JPRB,&
+ & 3.88073E-10_JPRB,4.26716E-10_JPRB,4.68719E-10_JPRB,5.14331E-10_JPRB,5.63815E-10_JPRB,&
+ & 6.17448E-10_JPRB,6.75526E-10_JPRB,7.38358E-10_JPRB,8.06277E-10_JPRB,8.79625E-10_JPRB,&
+ & 9.58770E-10_JPRB,1.04410E-09_JPRB,1.13602E-09_JPRB,1.23495E-09_JPRB,1.34135E-09_JPRB,&
+ & 1.45568E-09_JPRB,1.57845E-09_JPRB,1.71017E-09_JPRB,1.85139E-09_JPRB,2.00268E-09_JPRB,&
+ & 2.16464E-09_JPRB,2.33789E-09_JPRB,2.52309E-09_JPRB,2.72093E-09_JPRB,2.93212E-09_JPRB,&
+ & 3.15740E-09_JPRB,3.39757E-09_JPRB,3.65341E-09_JPRB,3.92579E-09_JPRB,4.21559E-09_JPRB,&
+ & 4.52372E-09_JPRB,4.85115E-09_JPRB,5.19886E-09_JPRB,5.56788E-09_JPRB,5.95928E-09_JPRB,&
+ & 6.37419E-09_JPRB,6.81375E-09_JPRB,7.27917E-09_JPRB,7.77168E-09_JPRB,8.29256E-09_JPRB,&
+ & 8.84317E-09_JPRB,9.42487E-09_JPRB,1.00391E-08_JPRB,1.06873E-08_JPRB,1.13710E-08_JPRB,&
+ & 1.20919E-08_JPRB,1.28515E-08_JPRB,1.36514E-08_JPRB,1.44935E-08_JPRB,1.53796E-08_JPRB,&
+ & 1.63114E-08_JPRB,1.72909E-08_JPRB,1.83201E-08_JPRB,1.94008E-08_JPRB,2.05354E-08_JPRB,&
+ & 2.17258E-08_JPRB,2.29742E-08_JPRB,2.42830E-08_JPRB,2.56545E-08_JPRB,2.70910E-08_JPRB,&
+ & 2.85950E-08_JPRB,3.01689E-08_JPRB,3.18155E-08_JPRB,3.35373E-08_JPRB,3.53372E-08_JPRB,&
+ & 3.72177E-08_JPRB,3.91818E-08_JPRB,4.12325E-08_JPRB,4.33727E-08_JPRB,4.56056E-08_JPRB,&
+ & 4.79342E-08_JPRB,5.03617E-08_JPRB,5.28915E-08_JPRB,5.55270E-08_JPRB,5.82715E-08_JPRB,&
+ & 6.11286E-08_JPRB,6.41019E-08_JPRB,6.71951E-08_JPRB,7.04119E-08_JPRB,7.37560E-08_JPRB,&
+ & 7.72315E-08_JPRB,8.08424E-08_JPRB,8.45927E-08_JPRB,8.84866E-08_JPRB,9.25281E-08_JPRB,&
+ & 9.67218E-08_JPRB,1.01072E-07_JPRB,1.05583E-07_JPRB,1.10260E-07_JPRB,1.15107E-07_JPRB,&
+ & 1.20128E-07_JPRB,1.25330E-07_JPRB,1.30716E-07_JPRB,1.36291E-07_JPRB,1.42061E-07_JPRB,&
+ & 1.48031E-07_JPRB,1.54206E-07_JPRB,1.60592E-07_JPRB,1.67192E-07_JPRB,1.74015E-07_JPRB,&
+ & 1.81064E-07_JPRB,1.88345E-07_JPRB,1.95865E-07_JPRB,2.03628E-07_JPRB,2.11643E-07_JPRB,&
+ & 2.19912E-07_JPRB,2.28443E-07_JPRB,2.37244E-07_JPRB,2.46318E-07_JPRB,2.55673E-07_JPRB,&
+ & 2.65316E-07_JPRB,2.75252E-07_JPRB,2.85489E-07_JPRB,2.96033E-07_JPRB,3.06891E-07_JPRB,&
+ & 3.18070E-07_JPRB,3.29576E-07_JPRB,3.41417E-07_JPRB,3.53600E-07_JPRB,3.66133E-07_JPRB,&
+ & 3.79021E-07_JPRB,3.92274E-07_JPRB,4.05897E-07_JPRB,4.19899E-07_JPRB,4.34288E-07_JPRB,&
+ & 4.49071E-07_JPRB,4.64255E-07_JPRB,4.79850E-07_JPRB,4.95863E-07_JPRB,5.12300E-07_JPRB,&
+ & 5.29172E-07_JPRB,5.46486E-07_JPRB,5.64250E-07_JPRB,5.82473E-07_JPRB,6.01164E-07_JPRB,&
+ & 6.20329E-07_JPRB,6.39979E-07_JPRB,6.60122E-07_JPRB,6.80767E-07_JPRB,7.01922E-07_JPRB,&
+ & 7.23596E-07_JPRB,7.45800E-07_JPRB,7.68539E-07_JPRB,7.91826E-07_JPRB,8.15669E-07_JPRB,&
+ & 8.40076E-07_JPRB,8.65058E-07_JPRB,8.90623E-07_JPRB,9.16783E-07_JPRB,9.43544E-07_JPRB,&
+ & 9.70917E-07_JPRB,9.98912E-07_JPRB,1.02754E-06_JPRB,1.05681E-06_JPRB,1.08673E-06_JPRB,&
+ & 1.11731E-06_JPRB,1.14856E-06_JPRB,1.18050E-06_JPRB,1.21312E-06_JPRB,1.24645E-06_JPRB,&
+ & 1.28049E-06_JPRB/)  
+
+TOTPLNK( :,14) = (/&
+ & 1.40113E-11_JPRB,1.59358E-11_JPRB,1.80960E-11_JPRB,2.05171E-11_JPRB,2.32266E-11_JPRB,&
+ & 2.62546E-11_JPRB,2.96335E-11_JPRB,3.33990E-11_JPRB,3.75896E-11_JPRB,4.22469E-11_JPRB,&
+ & 4.74164E-11_JPRB,5.31466E-11_JPRB,5.94905E-11_JPRB,6.65054E-11_JPRB,7.42522E-11_JPRB,&
+ & 8.27975E-11_JPRB,9.22122E-11_JPRB,1.02573E-10_JPRB,1.13961E-10_JPRB,1.26466E-10_JPRB,&
+ & 1.40181E-10_JPRB,1.55206E-10_JPRB,1.71651E-10_JPRB,1.89630E-10_JPRB,2.09265E-10_JPRB,&
+ & 2.30689E-10_JPRB,2.54040E-10_JPRB,2.79467E-10_JPRB,3.07128E-10_JPRB,3.37190E-10_JPRB,&
+ & 3.69833E-10_JPRB,4.05243E-10_JPRB,4.43623E-10_JPRB,4.85183E-10_JPRB,5.30149E-10_JPRB,&
+ & 5.78755E-10_JPRB,6.31255E-10_JPRB,6.87910E-10_JPRB,7.49002E-10_JPRB,8.14824E-10_JPRB,&
+ & 8.85687E-10_JPRB,9.61914E-10_JPRB,1.04385E-09_JPRB,1.13186E-09_JPRB,1.22631E-09_JPRB,&
+ & 1.32761E-09_JPRB,1.43617E-09_JPRB,1.55243E-09_JPRB,1.67686E-09_JPRB,1.80992E-09_JPRB,&
+ & 1.95212E-09_JPRB,2.10399E-09_JPRB,2.26607E-09_JPRB,2.43895E-09_JPRB,2.62321E-09_JPRB,&
+ & 2.81949E-09_JPRB,3.02844E-09_JPRB,3.25073E-09_JPRB,3.48707E-09_JPRB,3.73820E-09_JPRB,&
+ & 4.00490E-09_JPRB,4.28794E-09_JPRB,4.58819E-09_JPRB,4.90647E-09_JPRB,5.24371E-09_JPRB,&
+ & 5.60081E-09_JPRB,5.97875E-09_JPRB,6.37854E-09_JPRB,6.80120E-09_JPRB,7.24782E-09_JPRB,&
+ & 7.71950E-09_JPRB,8.21740E-09_JPRB,8.74271E-09_JPRB,9.29666E-09_JPRB,9.88054E-09_JPRB,&
+ & 1.04956E-08_JPRB,1.11434E-08_JPRB,1.18251E-08_JPRB,1.25422E-08_JPRB,1.32964E-08_JPRB,&
+ & 1.40890E-08_JPRB,1.49217E-08_JPRB,1.57961E-08_JPRB,1.67140E-08_JPRB,1.76771E-08_JPRB,&
+ & 1.86870E-08_JPRB,1.97458E-08_JPRB,2.08553E-08_JPRB,2.20175E-08_JPRB,2.32342E-08_JPRB,&
+ & 2.45077E-08_JPRB,2.58401E-08_JPRB,2.72334E-08_JPRB,2.86900E-08_JPRB,3.02122E-08_JPRB,&
+ & 3.18021E-08_JPRB,3.34624E-08_JPRB,3.51954E-08_JPRB,3.70037E-08_JPRB,3.88899E-08_JPRB,&
+ & 4.08568E-08_JPRB,4.29068E-08_JPRB,4.50429E-08_JPRB,4.72678E-08_JPRB,4.95847E-08_JPRB,&
+ & 5.19963E-08_JPRB,5.45058E-08_JPRB,5.71161E-08_JPRB,5.98309E-08_JPRB,6.26529E-08_JPRB,&
+ & 6.55857E-08_JPRB,6.86327E-08_JPRB,7.17971E-08_JPRB,7.50829E-08_JPRB,7.84933E-08_JPRB,&
+ & 8.20323E-08_JPRB,8.57035E-08_JPRB,8.95105E-08_JPRB,9.34579E-08_JPRB,9.75488E-08_JPRB,&
+ & 1.01788E-07_JPRB,1.06179E-07_JPRB,1.10727E-07_JPRB,1.15434E-07_JPRB,1.20307E-07_JPRB,&
+ & 1.25350E-07_JPRB,1.30566E-07_JPRB,1.35961E-07_JPRB,1.41539E-07_JPRB,1.47304E-07_JPRB,&
+ & 1.53263E-07_JPRB,1.59419E-07_JPRB,1.65778E-07_JPRB,1.72345E-07_JPRB,1.79124E-07_JPRB,&
+ & 1.86122E-07_JPRB,1.93343E-07_JPRB,2.00792E-07_JPRB,2.08476E-07_JPRB,2.16400E-07_JPRB,&
+ & 2.24568E-07_JPRB,2.32988E-07_JPRB,2.41666E-07_JPRB,2.50605E-07_JPRB,2.59813E-07_JPRB,&
+ & 2.69297E-07_JPRB,2.79060E-07_JPRB,2.89111E-07_JPRB,2.99455E-07_JPRB,3.10099E-07_JPRB,&
+ & 3.21049E-07_JPRB,3.32311E-07_JPRB,3.43893E-07_JPRB,3.55801E-07_JPRB,3.68041E-07_JPRB,&
+ & 3.80621E-07_JPRB,3.93547E-07_JPRB,4.06826E-07_JPRB,4.20465E-07_JPRB,4.34473E-07_JPRB,&
+ & 4.48856E-07_JPRB,4.63620E-07_JPRB,4.78774E-07_JPRB,4.94325E-07_JPRB,5.10280E-07_JPRB,&
+ & 5.26648E-07_JPRB,5.43436E-07_JPRB,5.60652E-07_JPRB,5.78302E-07_JPRB,5.96397E-07_JPRB,&
+ & 6.14943E-07_JPRB,6.33949E-07_JPRB,6.53421E-07_JPRB,6.73370E-07_JPRB,6.93803E-07_JPRB,&
+ & 7.14731E-07_JPRB,7.36157E-07_JPRB,7.58095E-07_JPRB,7.80549E-07_JPRB,8.03533E-07_JPRB,&
+ & 8.27050E-07_JPRB/)  
+
+TOTPLNK( :,15) = (/&
+ & 3.90483E-12_JPRB,4.47999E-12_JPRB,5.13122E-12_JPRB,5.86739E-12_JPRB,6.69829E-12_JPRB,&
+ & 7.63467E-12_JPRB,8.68833E-12_JPRB,9.87221E-12_JPRB,1.12005E-11_JPRB,1.26885E-11_JPRB,&
+ & 1.43534E-11_JPRB,1.62134E-11_JPRB,1.82888E-11_JPRB,2.06012E-11_JPRB,2.31745E-11_JPRB,&
+ & 2.60343E-11_JPRB,2.92087E-11_JPRB,3.27277E-11_JPRB,3.66242E-11_JPRB,4.09334E-11_JPRB,&
+ & 4.56935E-11_JPRB,5.09455E-11_JPRB,5.67338E-11_JPRB,6.31057E-11_JPRB,7.01127E-11_JPRB,&
+ & 7.78096E-11_JPRB,8.62554E-11_JPRB,9.55130E-11_JPRB,1.05651E-10_JPRB,1.16740E-10_JPRB,&
+ & 1.28858E-10_JPRB,1.42089E-10_JPRB,1.56519E-10_JPRB,1.72243E-10_JPRB,1.89361E-10_JPRB,&
+ & 2.07978E-10_JPRB,2.28209E-10_JPRB,2.50173E-10_JPRB,2.73999E-10_JPRB,2.99820E-10_JPRB,&
+ & 3.27782E-10_JPRB,3.58034E-10_JPRB,3.90739E-10_JPRB,4.26067E-10_JPRB,4.64196E-10_JPRB,&
+ & 5.05317E-10_JPRB,5.49631E-10_JPRB,5.97347E-10_JPRB,6.48689E-10_JPRB,7.03891E-10_JPRB,&
+ & 7.63201E-10_JPRB,8.26876E-10_JPRB,8.95192E-10_JPRB,9.68430E-10_JPRB,1.04690E-09_JPRB,&
+ & 1.13091E-09_JPRB,1.22079E-09_JPRB,1.31689E-09_JPRB,1.41957E-09_JPRB,1.52922E-09_JPRB,&
+ & 1.64623E-09_JPRB,1.77101E-09_JPRB,1.90401E-09_JPRB,2.04567E-09_JPRB,2.19647E-09_JPRB,&
+ & 2.35690E-09_JPRB,2.52749E-09_JPRB,2.70875E-09_JPRB,2.90127E-09_JPRB,3.10560E-09_JPRB,&
+ & 3.32238E-09_JPRB,3.55222E-09_JPRB,3.79578E-09_JPRB,4.05375E-09_JPRB,4.32682E-09_JPRB,&
+ & 4.61574E-09_JPRB,4.92128E-09_JPRB,5.24420E-09_JPRB,5.58536E-09_JPRB,5.94558E-09_JPRB,&
+ & 6.32575E-09_JPRB,6.72678E-09_JPRB,7.14964E-09_JPRB,7.59526E-09_JPRB,8.06470E-09_JPRB,&
+ & 8.55897E-09_JPRB,9.07916E-09_JPRB,9.62638E-09_JPRB,1.02018E-08_JPRB,1.08066E-08_JPRB,&
+ & 1.14420E-08_JPRB,1.21092E-08_JPRB,1.28097E-08_JPRB,1.35446E-08_JPRB,1.43155E-08_JPRB,&
+ & 1.51237E-08_JPRB,1.59708E-08_JPRB,1.68581E-08_JPRB,1.77873E-08_JPRB,1.87599E-08_JPRB,&
+ & 1.97777E-08_JPRB,2.08423E-08_JPRB,2.19555E-08_JPRB,2.31190E-08_JPRB,2.43348E-08_JPRB,&
+ & 2.56045E-08_JPRB,2.69302E-08_JPRB,2.83140E-08_JPRB,2.97578E-08_JPRB,3.12636E-08_JPRB,&
+ & 3.28337E-08_JPRB,3.44702E-08_JPRB,3.61755E-08_JPRB,3.79516E-08_JPRB,3.98012E-08_JPRB,&
+ & 4.17265E-08_JPRB,4.37300E-08_JPRB,4.58143E-08_JPRB,4.79819E-08_JPRB,5.02355E-08_JPRB,&
+ & 5.25777E-08_JPRB,5.50114E-08_JPRB,5.75393E-08_JPRB,6.01644E-08_JPRB,6.28896E-08_JPRB,&
+ & 6.57177E-08_JPRB,6.86521E-08_JPRB,7.16959E-08_JPRB,7.48520E-08_JPRB,7.81239E-08_JPRB,&
+ & 8.15148E-08_JPRB,8.50282E-08_JPRB,8.86675E-08_JPRB,9.24362E-08_JPRB,9.63380E-08_JPRB,&
+ & 1.00376E-07_JPRB,1.04555E-07_JPRB,1.08878E-07_JPRB,1.13349E-07_JPRB,1.17972E-07_JPRB,&
+ & 1.22751E-07_JPRB,1.27690E-07_JPRB,1.32793E-07_JPRB,1.38064E-07_JPRB,1.43508E-07_JPRB,&
+ & 1.49129E-07_JPRB,1.54931E-07_JPRB,1.60920E-07_JPRB,1.67099E-07_JPRB,1.73473E-07_JPRB,&
+ & 1.80046E-07_JPRB,1.86825E-07_JPRB,1.93812E-07_JPRB,2.01014E-07_JPRB,2.08436E-07_JPRB,&
+ & 2.16082E-07_JPRB,2.23957E-07_JPRB,2.32067E-07_JPRB,2.40418E-07_JPRB,2.49013E-07_JPRB,&
+ & 2.57860E-07_JPRB,2.66963E-07_JPRB,2.76328E-07_JPRB,2.85961E-07_JPRB,2.95868E-07_JPRB,&
+ & 3.06053E-07_JPRB,3.16524E-07_JPRB,3.27286E-07_JPRB,3.38345E-07_JPRB,3.49707E-07_JPRB,&
+ & 3.61379E-07_JPRB,3.73367E-07_JPRB,3.85676E-07_JPRB,3.98315E-07_JPRB,4.11287E-07_JPRB,&
+ & 4.24602E-07_JPRB,4.38265E-07_JPRB,4.52283E-07_JPRB,4.66662E-07_JPRB,4.81410E-07_JPRB,&
+ & 4.96535E-07_JPRB/)  
+
+TOTPLNK( :,16) = (/&
+ & 4.65378E-13_JPRB,5.41927E-13_JPRB,6.29913E-13_JPRB,7.30869E-13_JPRB,8.46510E-13_JPRB,&
+ & 9.78750E-13_JPRB,1.12972E-12_JPRB,1.30181E-12_JPRB,1.49764E-12_JPRB,1.72016E-12_JPRB,&
+ & 1.97260E-12_JPRB,2.25858E-12_JPRB,2.58206E-12_JPRB,2.94744E-12_JPRB,3.35955E-12_JPRB,&
+ & 3.82372E-12_JPRB,4.34581E-12_JPRB,4.93225E-12_JPRB,5.59010E-12_JPRB,6.32711E-12_JPRB,&
+ & 7.15171E-12_JPRB,8.07317E-12_JPRB,9.10159E-12_JPRB,1.02480E-11_JPRB,1.15244E-11_JPRB,&
+ & 1.29438E-11_JPRB,1.45204E-11_JPRB,1.62697E-11_JPRB,1.82084E-11_JPRB,2.03545E-11_JPRB,&
+ & 2.27278E-11_JPRB,2.53494E-11_JPRB,2.82424E-11_JPRB,3.14313E-11_JPRB,3.49431E-11_JPRB,&
+ & 3.88064E-11_JPRB,4.30522E-11_JPRB,4.77139E-11_JPRB,5.28273E-11_JPRB,5.84308E-11_JPRB,&
+ & 6.45658E-11_JPRB,7.12764E-11_JPRB,7.86103E-11_JPRB,8.66176E-11_JPRB,9.53534E-11_JPRB,&
+ & 1.04875E-10_JPRB,1.15245E-10_JPRB,1.26528E-10_JPRB,1.38796E-10_JPRB,1.52123E-10_JPRB,&
+ & 1.66590E-10_JPRB,1.82281E-10_JPRB,1.99287E-10_JPRB,2.17704E-10_JPRB,2.37632E-10_JPRB,&
+ & 2.59182E-10_JPRB,2.82468E-10_JPRB,3.07610E-10_JPRB,3.34738E-10_JPRB,3.63988E-10_JPRB,&
+ & 3.95504E-10_JPRB,4.29438E-10_JPRB,4.65951E-10_JPRB,5.05212E-10_JPRB,5.47402E-10_JPRB,&
+ & 5.92707E-10_JPRB,6.41329E-10_JPRB,6.93477E-10_JPRB,7.49371E-10_JPRB,8.09242E-10_JPRB,&
+ & 8.73338E-10_JPRB,9.41911E-10_JPRB,1.01524E-09_JPRB,1.09359E-09_JPRB,1.17728E-09_JPRB,&
+ & 1.26660E-09_JPRB,1.36190E-09_JPRB,1.46350E-09_JPRB,1.57177E-09_JPRB,1.68709E-09_JPRB,&
+ & 1.80984E-09_JPRB,1.94044E-09_JPRB,2.07932E-09_JPRB,2.22693E-09_JPRB,2.38373E-09_JPRB,&
+ & 2.55021E-09_JPRB,2.72689E-09_JPRB,2.91429E-09_JPRB,3.11298E-09_JPRB,3.32353E-09_JPRB,&
+ & 3.54655E-09_JPRB,3.78265E-09_JPRB,4.03251E-09_JPRB,4.29679E-09_JPRB,4.57620E-09_JPRB,&
+ & 4.87148E-09_JPRB,5.18341E-09_JPRB,5.51276E-09_JPRB,5.86037E-09_JPRB,6.22708E-09_JPRB,&
+ & 6.61381E-09_JPRB,7.02145E-09_JPRB,7.45097E-09_JPRB,7.90336E-09_JPRB,8.37967E-09_JPRB,&
+ & 8.88092E-09_JPRB,9.40827E-09_JPRB,9.96280E-09_JPRB,1.05457E-08_JPRB,1.11583E-08_JPRB,&
+ & 1.18017E-08_JPRB,1.24773E-08_JPRB,1.31865E-08_JPRB,1.39306E-08_JPRB,1.47111E-08_JPRB,&
+ & 1.55295E-08_JPRB,1.63872E-08_JPRB,1.72860E-08_JPRB,1.82274E-08_JPRB,1.92132E-08_JPRB,&
+ & 2.02450E-08_JPRB,2.13247E-08_JPRB,2.24541E-08_JPRB,2.36352E-08_JPRB,2.48699E-08_JPRB,&
+ & 2.61602E-08_JPRB,2.75082E-08_JPRB,2.89161E-08_JPRB,3.03860E-08_JPRB,3.19203E-08_JPRB,&
+ & 3.35213E-08_JPRB,3.51913E-08_JPRB,3.69330E-08_JPRB,3.87486E-08_JPRB,4.06411E-08_JPRB,&
+ & 4.26129E-08_JPRB,4.46668E-08_JPRB,4.68058E-08_JPRB,4.90325E-08_JPRB,5.13502E-08_JPRB,&
+ & 5.37617E-08_JPRB,5.62703E-08_JPRB,5.88791E-08_JPRB,6.15915E-08_JPRB,6.44107E-08_JPRB,&
+ & 6.73404E-08_JPRB,7.03841E-08_JPRB,7.35453E-08_JPRB,7.68278E-08_JPRB,8.02355E-08_JPRB,&
+ & 8.37721E-08_JPRB,8.74419E-08_JPRB,9.12486E-08_JPRB,9.51968E-08_JPRB,9.92905E-08_JPRB,&
+ & 1.03534E-07_JPRB,1.07932E-07_JPRB,1.12490E-07_JPRB,1.17211E-07_JPRB,1.22100E-07_JPRB,&
+ & 1.27163E-07_JPRB,1.32404E-07_JPRB,1.37829E-07_JPRB,1.43443E-07_JPRB,1.49250E-07_JPRB,&
+ & 1.55257E-07_JPRB,1.61470E-07_JPRB,1.67893E-07_JPRB,1.74532E-07_JPRB,1.81394E-07_JPRB,&
+ & 1.88485E-07_JPRB,1.95810E-07_JPRB,2.03375E-07_JPRB,2.11189E-07_JPRB,2.19256E-07_JPRB,&
+ & 2.27583E-07_JPRB,2.36177E-07_JPRB,2.45046E-07_JPRB,2.54196E-07_JPRB,2.63634E-07_JPRB,&
+ & 2.73367E-07_JPRB/)  
+
+TOTPLK16( :) = (/&
+ & 4.46128E-13_JPRB,5.19008E-13_JPRB,6.02681E-13_JPRB,6.98580E-13_JPRB,8.08302E-13_JPRB,&
+ & 9.33629E-13_JPRB,1.07654E-12_JPRB,1.23925E-12_JPRB,1.42419E-12_JPRB,1.63407E-12_JPRB,&
+ & 1.87190E-12_JPRB,2.14099E-12_JPRB,2.44498E-12_JPRB,2.78793E-12_JPRB,3.17424E-12_JPRB,&
+ & 3.60881E-12_JPRB,4.09698E-12_JPRB,4.64461E-12_JPRB,5.25813E-12_JPRB,5.94456E-12_JPRB,&
+ & 6.71156E-12_JPRB,7.56752E-12_JPRB,8.52154E-12_JPRB,9.58357E-12_JPRB,1.07644E-11_JPRB,&
+ & 1.20758E-11_JPRB,1.35304E-11_JPRB,1.51420E-11_JPRB,1.69256E-11_JPRB,1.88973E-11_JPRB,&
+ & 2.10746E-11_JPRB,2.34762E-11_JPRB,2.61227E-11_JPRB,2.90356E-11_JPRB,3.22388E-11_JPRB,&
+ & 3.57574E-11_JPRB,3.96187E-11_JPRB,4.38519E-11_JPRB,4.84883E-11_JPRB,5.35616E-11_JPRB,&
+ & 5.91075E-11_JPRB,6.51647E-11_JPRB,7.17743E-11_JPRB,7.89797E-11_JPRB,8.68284E-11_JPRB,&
+ & 9.53697E-11_JPRB,1.04658E-10_JPRB,1.14748E-10_JPRB,1.25701E-10_JPRB,1.37582E-10_JPRB,&
+ & 1.50457E-10_JPRB,1.64400E-10_JPRB,1.79487E-10_JPRB,1.95799E-10_JPRB,2.13422E-10_JPRB,&
+ & 2.32446E-10_JPRB,2.52970E-10_JPRB,2.75094E-10_JPRB,2.98925E-10_JPRB,3.24578E-10_JPRB,&
+ & 3.52172E-10_JPRB,3.81833E-10_JPRB,4.13695E-10_JPRB,4.47897E-10_JPRB,4.84588E-10_JPRB,&
+ & 5.23922E-10_JPRB,5.66063E-10_JPRB,6.11182E-10_JPRB,6.59459E-10_JPRB,7.11081E-10_JPRB,&
+ & 7.66251E-10_JPRB,8.25172E-10_JPRB,8.88065E-10_JPRB,9.55155E-10_JPRB,1.02668E-09_JPRB,&
+ & 1.10290E-09_JPRB,1.18406E-09_JPRB,1.27044E-09_JPRB,1.36233E-09_JPRB,1.46002E-09_JPRB,&
+ & 1.56382E-09_JPRB,1.67406E-09_JPRB,1.79108E-09_JPRB,1.91522E-09_JPRB,2.04686E-09_JPRB,&
+ & 2.18637E-09_JPRB,2.33416E-09_JPRB,2.49063E-09_JPRB,2.65622E-09_JPRB,2.83136E-09_JPRB,&
+ & 3.01653E-09_JPRB,3.21221E-09_JPRB,3.41890E-09_JPRB,3.63712E-09_JPRB,3.86740E-09_JPRB,&
+ & 4.11030E-09_JPRB,4.36641E-09_JPRB,4.63631E-09_JPRB,4.92064E-09_JPRB,5.22003E-09_JPRB,&
+ & 5.53516E-09_JPRB,5.86670E-09_JPRB,6.21538E-09_JPRB,6.58191E-09_JPRB,6.96708E-09_JPRB,&
+ & 7.37165E-09_JPRB,7.79645E-09_JPRB,8.24229E-09_JPRB,8.71007E-09_JPRB,9.20066E-09_JPRB,&
+ & 9.71498E-09_JPRB,1.02540E-08_JPRB,1.08186E-08_JPRB,1.14100E-08_JPRB,1.20290E-08_JPRB,&
+ & 1.26767E-08_JPRB,1.33544E-08_JPRB,1.40630E-08_JPRB,1.48038E-08_JPRB,1.55780E-08_JPRB,&
+ & 1.63867E-08_JPRB,1.72313E-08_JPRB,1.81130E-08_JPRB,1.90332E-08_JPRB,1.99932E-08_JPRB,&
+ & 2.09945E-08_JPRB,2.20385E-08_JPRB,2.31267E-08_JPRB,2.42605E-08_JPRB,2.54416E-08_JPRB,&
+ & 2.66716E-08_JPRB,2.79520E-08_JPRB,2.92846E-08_JPRB,3.06711E-08_JPRB,3.21133E-08_JPRB,&
+ & 3.36128E-08_JPRB,3.51717E-08_JPRB,3.67918E-08_JPRB,3.84749E-08_JPRB,4.02232E-08_JPRB,&
+ & 4.20386E-08_JPRB,4.39231E-08_JPRB,4.58790E-08_JPRB,4.79083E-08_JPRB,5.00132E-08_JPRB,&
+ & 5.21961E-08_JPRB,5.44592E-08_JPRB,5.68049E-08_JPRB,5.92356E-08_JPRB,6.17537E-08_JPRB,&
+ & 6.43617E-08_JPRB,6.70622E-08_JPRB,6.98578E-08_JPRB,7.27511E-08_JPRB,7.57449E-08_JPRB,&
+ & 7.88419E-08_JPRB,8.20449E-08_JPRB,8.53568E-08_JPRB,8.87805E-08_JPRB,9.23190E-08_JPRB,&
+ & 9.59753E-08_JPRB,9.97526E-08_JPRB,1.03654E-07_JPRB,1.07682E-07_JPRB,1.11841E-07_JPRB,&
+ & 1.16134E-07_JPRB,1.20564E-07_JPRB,1.25135E-07_JPRB,1.29850E-07_JPRB,1.34712E-07_JPRB,&
+ & 1.39726E-07_JPRB,1.44894E-07_JPRB,1.50221E-07_JPRB,1.55711E-07_JPRB,1.61367E-07_JPRB,&
+ & 1.67193E-07_JPRB,1.73193E-07_JPRB,1.79371E-07_JPRB,1.85732E-07_JPRB,1.92279E-07_JPRB,&
+ & 1.99016E-07_JPRB/)  
+!     -----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SURRTPK',1,ZHOOK_HANDLE)
+END SUBROUTINE SURRTPK
Index: LMDZ5/trunk/libf/phylmd/rrtm/surrtpk.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/surrtpk.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/surrtpk.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SURRTPK
+END SUBROUTINE SURRTPK
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/surrtrf.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/surrtrf.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/surrtrf.F90	(revision 1989)
@@ -0,0 +1,67 @@
+SUBROUTINE SURRTRF
+
+!     Adapted from Eli J. Mlawer, Atmospheric & Environmental Research.
+!     by JJMorcrette, ECMWF
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERRTRF , ONLY : PREF      ,PREFLOG   ,TREF
+
+!     ------------------------------------------------------------------
+
+!     These pressures are chosen such that the ln of the first pressure
+!     has only a few non-zero digits (i.e. ln(PREF(1)) = 6.96000) and
+!     each subsequent ln(pressure) differs from the previous one by 0.2.
+
+IMPLICIT NONE
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SURRTRF',0,ZHOOK_HANDLE)
+PREF( :) = (/&
+ & 1.05363E+03_JPRB,8.62642E+02_JPRB,7.06272E+02_JPRB,5.78246E+02_JPRB,4.73428E+02_JPRB,&
+ & 3.87610E+02_JPRB,3.17348E+02_JPRB,2.59823E+02_JPRB,2.12725E+02_JPRB,1.74164E+02_JPRB,&
+ & 1.42594E+02_JPRB,1.16746E+02_JPRB,9.55835E+01_JPRB,7.82571E+01_JPRB,6.40715E+01_JPRB,&
+ & 5.24573E+01_JPRB,4.29484E+01_JPRB,3.51632E+01_JPRB,2.87892E+01_JPRB,2.35706E+01_JPRB,&
+ & 1.92980E+01_JPRB,1.57998E+01_JPRB,1.29358E+01_JPRB,1.05910E+01_JPRB,8.67114E+00_JPRB,&
+ & 7.09933E+00_JPRB,5.81244E+00_JPRB,4.75882E+00_JPRB,3.89619E+00_JPRB,3.18993E+00_JPRB,&
+ & 2.61170E+00_JPRB,2.13828E+00_JPRB,1.75067E+00_JPRB,1.43333E+00_JPRB,1.17351E+00_JPRB,&
+ & 9.60789E-01_JPRB,7.86628E-01_JPRB,6.44036E-01_JPRB,5.27292E-01_JPRB,4.31710E-01_JPRB,&
+ & 3.53455E-01_JPRB,2.89384E-01_JPRB,2.36928E-01_JPRB,1.93980E-01_JPRB,1.58817E-01_JPRB,&
+ & 1.30029E-01_JPRB,1.06458E-01_JPRB,8.71608E-02_JPRB,7.13612E-02_JPRB,5.84256E-02_JPRB,&
+ & 4.78349E-02_JPRB,3.91639E-02_JPRB,3.20647E-02_JPRB,2.62523E-02_JPRB,2.14936E-02_JPRB,&
+ & 1.75975E-02_JPRB,1.44076E-02_JPRB,1.17959E-02_JPRB,9.65769E-03_JPRB/)  
+
+PREFLOG( :) = (/&
+ & 6.9600E+00_JPRB, 6.7600E+00_JPRB, 6.5600E+00_JPRB, 6.3600E+00_JPRB, 6.1600E+00_JPRB,&
+ & 5.9600E+00_JPRB, 5.7600E+00_JPRB, 5.5600E+00_JPRB, 5.3600E+00_JPRB, 5.1600E+00_JPRB,&
+ & 4.9600E+00_JPRB, 4.7600E+00_JPRB, 4.5600E+00_JPRB, 4.3600E+00_JPRB, 4.1600E+00_JPRB,&
+ & 3.9600E+00_JPRB, 3.7600E+00_JPRB, 3.5600E+00_JPRB, 3.3600E+00_JPRB, 3.1600E+00_JPRB,&
+ & 2.9600E+00_JPRB, 2.7600E+00_JPRB, 2.5600E+00_JPRB, 2.3600E+00_JPRB, 2.1600E+00_JPRB,&
+ & 1.9600E+00_JPRB, 1.7600E+00_JPRB, 1.5600E+00_JPRB, 1.3600E+00_JPRB, 1.1600E+00_JPRB,&
+ & 9.6000E-01_JPRB, 7.6000E-01_JPRB, 5.6000E-01_JPRB, 3.6000E-01_JPRB, 1.6000E-01_JPRB,&
+ & -4.0000E-02_JPRB,-2.4000E-01_JPRB,-4.4000E-01_JPRB,-6.4000E-01_JPRB,-8.4000E-01_JPRB,&
+ & -1.0400E+00_JPRB,-1.2400E+00_JPRB,-1.4400E+00_JPRB,-1.6400E+00_JPRB,-1.8400E+00_JPRB,&
+ & -2.0400E+00_JPRB,-2.2400E+00_JPRB,-2.4400E+00_JPRB,-2.6400E+00_JPRB,-2.8400E+00_JPRB,&
+ & -3.0400E+00_JPRB,-3.2400E+00_JPRB,-3.4400E+00_JPRB,-3.6400E+00_JPRB,-3.8400E+00_JPRB,&
+ & -4.0400E+00_JPRB,-4.2400E+00_JPRB,-4.4400E+00_JPRB,-4.6400E+00_JPRB/)  
+
+!     These are the temperatures associated with the respective 
+!     pressures for the MLS standard atmosphere. 
+TREF( :) = (/&
+ & 2.9420E+02_JPRB, 2.8799E+02_JPRB, 2.7894E+02_JPRB, 2.6925E+02_JPRB, 2.5983E+02_JPRB,&
+ & 2.5017E+02_JPRB, 2.4077E+02_JPRB, 2.3179E+02_JPRB, 2.2306E+02_JPRB, 2.1578E+02_JPRB,&
+ & 2.1570E+02_JPRB, 2.1570E+02_JPRB, 2.1570E+02_JPRB, 2.1706E+02_JPRB, 2.1858E+02_JPRB,&
+ & 2.2018E+02_JPRB, 2.2174E+02_JPRB, 2.2328E+02_JPRB, 2.2479E+02_JPRB, 2.2655E+02_JPRB,&
+ & 2.2834E+02_JPRB, 2.3113E+02_JPRB, 2.3401E+02_JPRB, 2.3703E+02_JPRB, 2.4022E+02_JPRB,&
+ & 2.4371E+02_JPRB, 2.4726E+02_JPRB, 2.5085E+02_JPRB, 2.5457E+02_JPRB, 2.5832E+02_JPRB,&
+ & 2.6216E+02_JPRB, 2.6606E+02_JPRB, 2.6999E+02_JPRB, 2.7340E+02_JPRB, 2.7536E+02_JPRB,&
+ & 2.7568E+02_JPRB, 2.7372E+02_JPRB, 2.7163E+02_JPRB, 2.6955E+02_JPRB, 2.6593E+02_JPRB,&
+ & 2.6211E+02_JPRB, 2.5828E+02_JPRB, 2.5360E+02_JPRB, 2.4854E+02_JPRB, 2.4348E+02_JPRB,&
+ & 2.3809E+02_JPRB, 2.3206E+02_JPRB, 2.2603E+02_JPRB, 2.2000E+02_JPRB, 2.1435E+02_JPRB,&
+ & 2.0887E+02_JPRB, 2.0340E+02_JPRB, 1.9792E+02_JPRB, 1.9290E+02_JPRB, 1.8809E+02_JPRB,&
+ & 1.8329E+02_JPRB, 1.7849E+02_JPRB, 1.7394E+02_JPRB, 1.7212E+02_JPRB/)  
+
+!     -----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SURRTRF',1,ZHOOK_HANDLE)
+END SUBROUTINE SURRTRF
Index: LMDZ5/trunk/libf/phylmd/rrtm/surrtrf.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/surrtrf.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/surrtrf.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SURRTRF
+END SUBROUTINE SURRTRF
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/susat.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/susat.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/susat.F90	(revision 1989)
@@ -0,0 +1,225 @@
+SUBROUTINE SUSAT
+
+!**** *SUSAT*   - INITIALIZE COMMON YOESAT
+
+!     PURPOSE.
+!     --------
+!           INITIALIZE YOESAT, THE COMMON THAT CONTROLS THE
+!           SIMULATION OF SATELLITE RADIANCES
+
+!**   INTERFACE.
+!     ----------
+!        *CALL* *SUSAT
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!            NONE
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+!        COMMON YOESAT
+
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+
+!     EXTERNALS.
+!     ----------
+!        NONE
+
+!     REFERENCE.
+!     ----------
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE
+!     "IN CORE MODEL"
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 88-12-15
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!     ------------------------------------------------------------------
+
+USE PARKIND1        ,ONLY : JPIM     ,JPRB
+USE YOMHOOK         ,ONLY : LHOOK,   DR_HOOK
+
+USE YOMLUN_IFSAUX   , ONLY : NULOUT
+USE YOMCST          , ONLY : RPI
+USE YOESAT          , ONLY : NGEO     ,RGALT    ,RGNAD    ,RGNOR    ,&
+ & RGSOU    ,RGWST    ,RGEAS    ,LGEOSE   ,LGEOSW   ,&
+ & LGMS     ,LINDSA   ,LMTO  
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM) :: ISATEL, JSATEL
+
+REAL(KIND=JPRB) :: ZDEGRAD
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!*CALL COMDOC
+!----------------------------------------------------------------------
+
+!*       1.    SET DEFAULT VALUES.
+!              -------------------
+
+IF (LHOOK) CALL DR_HOOK('SUSAT',0,ZHOOK_HANDLE)
+ISATEL=5
+DO JSATEL = 1 , ISATEL
+  RGALT(JSATEL) = 0.0_JPRB
+  RGNAD(JSATEL) = 0.0_JPRB
+  RGNOR(JSATEL) = 0.0_JPRB
+  RGSOU(JSATEL) = 0.0_JPRB
+  RGWST(JSATEL) = 0.0_JPRB
+  RGEAS(JSATEL) = 0.0_JPRB
+ENDDO
+
+IF (NGEO /= 0) THEN
+
+!      ----------------------------------------------------------------
+
+!*       2.    MODIFY DEFAULT VALUES FOR THE VARIOUS GEO.SATELLITES
+!              ----------------------------------------------------
+
+  ISATEL = 0
+  ZDEGRAD = RPI / 180._JPRB
+
+  WRITE(UNIT=NULOUT,FMT='('' COMMON YOESAT '')')
+  WRITE(UNIT=NULOUT,FMT='('' NGEO  = '',I1 )') NGEO
+!      ----------------------------------------------------------------
+
+!*       2.1   GOES EAST SATELLITE
+!              -------------------
+
+  IF (LGEOSE) THEN
+    ISATEL = ISATEL + 1
+    RGALT(ISATEL) = 0.0_JPRB
+    RGALT(ISATEL) = 35793000._JPRB
+    RGNAD(ISATEL) = 285._JPRB * ZDEGRAD
+    RGNOR(ISATEL) = +70._JPRB * ZDEGRAD
+    RGSOU(ISATEL) = -70._JPRB * ZDEGRAD
+    RGWST(ISATEL) = RGNAD(ISATEL) -70._JPRB * ZDEGRAD
+    RGEAS(ISATEL) = RGNAD(ISATEL) +70._JPRB * ZDEGRAD
+    WRITE(UNIT=NULOUT,FMT='('' LGOESE = '',L5 &
+     & ,'' ALTITUDE  ='',F10.0 &
+     & ,'' LONG.NADIR='',F9.6 &
+     & ,'' LIMFOV N. ='',F9.6 &
+     & ,'' S. ='',F9.6 &
+     & ,'' W. ='',F9.6 &
+     & ,'' E. ='',F9.6 &
+     & )')&
+     & LGEOSE,RGALT(ISATEL),RGNAD(ISATEL)&
+     & ,RGNOR(ISATEL),RGSOU(ISATEL),RGWST(ISATEL),RGEAS(ISATEL)  
+  ENDIF
+
+!      ----------------------------------------------------------------
+
+!*       2.2   GOES WEST SATELLITE
+!              -------------------
+
+  IF (LGEOSW) THEN
+    ISATEL = ISATEL + 1
+    RGALT(ISATEL) = 0.0_JPRB
+    RGALT(ISATEL) = 35793000._JPRB
+    RGNAD(ISATEL) = 225._JPRB * ZDEGRAD
+    RGNOR(ISATEL) = +70._JPRB * ZDEGRAD
+    RGSOU(ISATEL) = -70._JPRB * ZDEGRAD
+    RGWST(ISATEL) = RGNAD(ISATEL) -70._JPRB * ZDEGRAD
+    RGEAS(ISATEL) = RGNAD(ISATEL) +70._JPRB * ZDEGRAD
+    WRITE(UNIT=NULOUT,FMT='('' LGEOSW = '',L5 &
+     & ,'' ALTITUDE  ='',F10.0 &
+     & ,'' LONG.NADIR='',F9.6 &
+     & ,'' LIMFOV N. ='',F9.6 &
+     & ,'' S. ='',F9.6 &
+     & ,'' W. ='',F9.6 &
+     & ,'' E. ='',F9.6 &
+     & )')&
+     & LGEOSW,RGALT(ISATEL),RGNAD(ISATEL)&
+     & ,RGNOR(ISATEL),RGSOU(ISATEL),RGWST(ISATEL),RGEAS(ISATEL)  
+  ENDIF
+
+!      ----------------------------------------------------------------
+
+!*       2.3   G.M.S. SATELLITE
+!              ----------------
+
+  IF (LGMS) THEN
+    ISATEL = ISATEL + 1
+    RGALT(ISATEL) = 0.0_JPRB
+    RGALT(ISATEL) = 35793000._JPRB
+    RGNAD(ISATEL) = 140._JPRB * ZDEGRAD
+    RGNOR(ISATEL) = +70._JPRB * ZDEGRAD
+    RGSOU(ISATEL) = -70._JPRB * ZDEGRAD
+    RGWST(ISATEL) = RGNAD(ISATEL) -70._JPRB * ZDEGRAD
+    RGEAS(ISATEL) = RGNAD(ISATEL) +70._JPRB * ZDEGRAD
+    WRITE(UNIT=NULOUT,FMT='('' LGMS   = '',L5 &
+     & ,'' ALTITUDE  ='',F10.0 &
+     & ,'' LONG.NADIR='',F9.6 &
+     & ,'' LIMFOV N. ='',F9.6 &
+     & ,'' S. ='',F9.6 &
+     & ,'' W. ='',F9.6 &
+     & ,'' E. ='',F9.6 &
+     & )')&
+     & LGMS,RGALT(ISATEL),RGNAD(ISATEL)&
+     & ,RGNOR(ISATEL),RGSOU(ISATEL),RGWST(ISATEL),RGEAS(ISATEL)  
+  ENDIF
+
+!      ----------------------------------------------------------------
+
+!*       2.4   INDSAT SATELLITE
+!              ----------------
+
+  IF (LINDSA) THEN
+    ISATEL = ISATEL + 1
+    RGALT(ISATEL) = 0.0_JPRB
+    RGALT(ISATEL) = 35793000._JPRB
+! ????      RGNAD(ISATEL) = 70. * ZDEGRAD
+    RGNAD(ISATEL) = 0.0_JPRB
+    RGNOR(ISATEL) = +70._JPRB * ZDEGRAD
+    RGSOU(ISATEL) = -70._JPRB * ZDEGRAD
+    RGWST(ISATEL) = 0.0_JPRB
+    RGEAS(ISATEL) = 0.0_JPRB
+    WRITE(UNIT=NULOUT,FMT='('' LINDSA = '',L5 &
+     & ,'' ALTITUDE  ='',F10.0 &
+     & ,'' LONG.NADIR='',F9.6 &
+     & ,'' LIMFOV N. ='',F9.6 &
+     & ,'' S. ='',F9.6 &
+     & ,'' W. ='',F9.6 &
+     & ,'' E. ='',F9.6 &
+     & )')&
+     & LINDSA,RGALT(ISATEL),RGNAD(ISATEL)&
+     & ,RGNOR(ISATEL),RGSOU(ISATEL),RGWST(ISATEL),RGEAS(ISATEL)  
+  ENDIF
+
+!      ----------------------------------------------------------------
+
+!*       2.5   METEOSAT SATELLITE
+!              ------------------
+
+  IF (LMTO) THEN
+    ISATEL = ISATEL + 1
+    RGALT(ISATEL) = 35793000._JPRB
+    RGNAD(ISATEL) = 0.0_JPRB * ZDEGRAD
+    RGNOR(ISATEL) = +70._JPRB * ZDEGRAD
+    RGSOU(ISATEL) = -70._JPRB * ZDEGRAD
+    RGWST(ISATEL) = 2.0_JPRB * RPI - 70._JPRB * ZDEGRAD
+    RGEAS(ISATEL) = +70._JPRB * ZDEGRAD
+    WRITE(UNIT=NULOUT,FMT='('' LMTO   = '',L5 &
+     & ,'' ALTITUDE  ='',F10.0 &
+     & ,'' LONG.NADIR='',F9.6 &
+     & ,'' LIMFOV N. ='',F9.6 &
+     & ,'' S. ='',F9.6 &
+     & ,'' W. ='',F9.6 &
+     & ,'' E. ='',F9.6 &
+     & )')&
+     & LMTO,RGALT(ISATEL),RGNAD(ISATEL)&
+     & ,RGNOR(ISATEL),RGSOU(ISATEL),RGWST(ISATEL),RGEAS(ISATEL)  
+  ENDIF
+
+ENDIF
+
+!     -----------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUSAT',1,ZHOOK_HANDLE)
+END SUBROUTINE SUSAT
Index: LMDZ5/trunk/libf/phylmd/rrtm/susat.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/susat.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/susat.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SUSAT
+END SUBROUTINE SUSAT
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/suscm.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/suscm.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/suscm.F90	(revision 1989)
@@ -0,0 +1,106 @@
+SUBROUTINE SUSCM(KULOUT)
+
+#ifdef DOC
+
+!**** *SUSCM*   - Initialize MODULE YOMSCM controlling extraction of Single-Column profiles.
+
+!     Purpose.
+!     --------
+
+!**   Interface.
+!     ----------
+!        *CALL* *SUSCM(KULOUT)
+
+!        Explicit arguments :
+!        --------------------
+!        KULOUT : Logical unit for the output
+
+!        Implicit arguments :
+!        --------------------
+!        MODULE YOMSCM
+
+!     Method.
+!     -------
+!        See documentation
+
+!     Externals.
+!     ----------
+
+!     Reference.
+!     ----------
+
+!     Author.
+!     -------
+!        J.M. Piriou.
+
+!     Modifications.
+!     --------------
+!        Original : 2002-03-17
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        M.Hamrud      01-Dec-2003 CY28R1 Cleaning
+!     ------------------------------------------------------------------
+#endif
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+! Ce qui concerne NULNAM commente par MPL le 15.04.09
+!USE YOMLUN   , ONLY : NULNAM
+USE YOMSCM  , ONLY : &
+ & LGSCM, NFRSCM, NSCMTS, NSCM_SPACE_S &
+ & , GSCM_LON1, GSCM_LON2, GSCM_LAT1, GSCM_LAT2 &
+ & , GSCM_RADIUS, NSCM_ADD_SAMPL  
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KULOUT 
+INTEGER(KIND=JPIM) ::J
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+#include "posnam.intfb.h"
+
+#include "namscm.h"
+
+!-------------------------------------------------
+! 1. Default values.
+!-------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUSCM',0,ZHOOK_HANDLE)
+LGSCM=.FALSE.
+NFRSCM=1
+NSCMTS=0
+NSCM_SPACE_S=0
+NSCM_ADD_SAMPL=1
+GSCM_LON1=0.0_JPRB
+GSCM_LON2=0.0_JPRB
+GSCM_LAT1=0.0_JPRB
+GSCM_LAT2=0.0_JPRB
+GSCM_RADIUS=2.E-04_JPRB
+!     ------------------------------------------------------------------
+
+!*       2.    Modify default values.
+!              ----------------------
+
+! Ce qui concerne NAMSCEN commente par MPL le 15.04.09
+!CALL POSNAM(NULNAM,'NAMSCM')
+!READ(NULNAM,NAMSCM)
+!     ------------------------------------------------------------------
+
+!*       3.    Print final values.
+!              -------------------
+
+WRITE(UNIT=KULOUT,FMT='(A)') ' MODULE YOMSCM'
+WRITE(UNIT=KULOUT,FMT='(A,L5)') '   LGSCM = ',LGSCM
+IF(LGSCM) THEN
+  WRITE(UNIT=KULOUT,FMT='(3(A,I5),5(A,G12.6))') &
+   & '   NFRSCM = ',NFRSCM &
+   & ,'NSCM_SPACE_S = ',NSCM_SPACE_S &
+   & ,'NSCM_ADD_SAMPL = ',NSCM_ADD_SAMPL &
+   & ,'GSCM_LON1 = ',GSCM_LON1 &
+   & ,'GSCM_LON2 = ',GSCM_LON2 &
+   & ,'GSCM_LAT1 = ',GSCM_LAT1 &
+   & ,'GSCM_LAT2 = ',GSCM_LAT2 &
+   & ,'GSCM_RADIUS = ',GSCM_RADIUS  
+  WRITE(KULOUT,*) '   NSCMTS =  ',NSCMTS(0),(NSCMTS(J),J=1,ABS(NSCMTS(0)))
+ENDIF
+IF (LHOOK) CALL DR_HOOK('SUSCM',1,ZHOOK_HANDLE)
+END SUBROUTINE SUSCM
Index: LMDZ5/trunk/libf/phylmd/rrtm/suscm.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/suscm.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/suscm.intfb.h	(revision 1989)
@@ -0,0 +1,6 @@
+INTERFACE
+SUBROUTINE SUSCM(KULOUT)
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KULOUT
+END SUBROUTINE SUSCM
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/susrtaer.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/susrtaer.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/susrtaer.F90	(revision 1989)
@@ -0,0 +1,212 @@
+SUBROUTINE SUSRTAER 
+
+!**** *SUSRTAER*   - INITIALIZE COMMON YOESRTAER
+
+!     PURPOSE.
+!     --------
+!           INITIALIZE YOESRTAER, THE COMMON THAT CONTAINS THE
+!           RADIATIVE CHARACTERISTICS OF THE AEROSOLS
+
+!**   INTERFACE.
+!     ----------
+!              -----        -----
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!        NONE
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+!        COMMON YOESRTAER
+
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+
+!     EXTERNALS.
+!     ----------
+
+!     REFERENCE.
+!     ----------
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE "IFS MODEL"
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 03-03-06
+!        03-03-06  JJMorcrette   14 spectral intervals for RRTM_SW
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOESRTAER   , ONLY : RSRTAUA     ,RSRPIZA    ,RSRASYA
+
+!      ----------------------------------------------------------------
+
+IMPLICIT NONE
+
+!     DUMMY INTEGER REAL
+REAL(KIND=JPRB) :: ZTAUA14(14,6),ZPIZA14(14,6),ZCGA14(14,6)
+
+INTEGER(KIND=JPIM) :: JAER, JNU
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!      ----------------------------------------------------------------
+
+!*       1.    SHORTWAVE COEFFICIENTS
+!              ----------------------
+!=======================================================================
+!-- The (old) five aerosol types were respectively:
+
+!  1/ continental average (+desert)       2/ maritime
+!  3/ urban                               4/ volcanic active
+!  5/ stratospheric background
+
+!-- old values were not spectrally defined:
+! ZTAU2  = .730719, .912819, .725059, .745405, .682188
+! ZPIZA2 = .872212, .982545, .623143, .944887, .997975
+! ZCGA2  = .647596, .739002, .580845, .662657, .624246
+!=======================================================================
+
+!-- The six aerosol types are respectively:
+
+!  1/ continental average                 2/ maritime
+!  3/ desert                              4/ urban
+!  5/ volcanic active                     6/ stratospheric background
+
+! The quantities given are:
+! TAU : ratio of average optical thickness in interval to that at 0.55 
+!       micron
+! PIZA: average single scattering albedo
+! CGA : average asymmetry factor
+
+! computed from Hess and Koepke (con, mar, des, urb)
+!          from Bonnel et al.   (vol, str)
+
+!       1.1    FOURTEEN SPECTRAL INTERVALS FOR RRTM_SW
+
+! SW : 14 spectral intervals 
+!  3.846 -  3.077
+!  3.077 -  2.500
+!  2.500 -  2.150
+!  2.150 -  1.942
+!  1.942 -  1.626
+!  1.626 -  1.299
+!  1.299 -  1.242
+!  1.242 -  0.7782
+!  0.7782-  0.6250
+!  0.6250-  0.4415
+!  0.4415-  0.3448
+!  0.3448-  0.2632
+!  0.2632-  0.2000
+! 12.195 -  3.846
+
+IF (LHOOK) CALL DR_HOOK('SUSRTAER',0,ZHOOK_HANDLE)
+ZTAUA14( 1, :)= (/&
+ & 0.10849_JPRB , 0.66699_JPRB , 0.65255_JPRB , 0.11600_JPRB , 0.06529_JPRB , 0.04468_JPRB /)  
+ZTAUA14( 2, :)= (/&
+ & 0.10849_JPRB , 0.66699_JPRB , 0.65255_JPRB , 0.11600_JPRB , 0.06529_JPRB , 0.04468_JPRB /)  
+ZTAUA14( 3, :)= (/&
+ & 0.20543_JPRB , 0.84642_JPRB , 0.84958_JPRB , 0.21673_JPRB , 0.28270_JPRB , 0.10915_JPRB /)  
+ZTAUA14( 4, :)= (/&
+ & 0.20543_JPRB , 0.84642_JPRB , 0.84958_JPRB , 0.21673_JPRB , 0.28270_JPRB , 0.10915_JPRB /)  
+ZTAUA14( 5, :)= (/&
+ & 0.20543_JPRB , 0.84642_JPRB , 0.84958_JPRB , 0.21673_JPRB , 0.28270_JPRB , 0.10915_JPRB /)  
+ZTAUA14( 6, :)= (/&
+ & 0.20543_JPRB , 0.84642_JPRB , 0.84958_JPRB , 0.21673_JPRB , 0.28270_JPRB , 0.10915_JPRB /)  
+ZTAUA14( 7, :)= (/&
+ & 0.20543_JPRB , 0.84642_JPRB , 0.84958_JPRB , 0.21673_JPRB , 0.28270_JPRB , 0.10915_JPRB /)  
+ZTAUA14( 8, :)= (/&
+ & 0.52838_JPRB , 0.93285_JPRB , 0.93449_JPRB , 0.53078_JPRB , 0.67148_JPRB , 0.46608_JPRB /)  
+ZTAUA14( 9, :)= (/&
+ & 0.52838_JPRB , 0.93285_JPRB , 0.93449_JPRB , 0.53078_JPRB , 0.67148_JPRB , 0.46608_JPRB /)  
+ZTAUA14(10, :)= (/&
+ & 1.69446_JPRB , 1.11855_JPRB , 1.09212_JPRB , 1.72145_JPRB , 1.03858_JPRB , 1.12044_JPRB /)  
+ZTAUA14(11, :)= (/&
+ & 1.69446_JPRB , 1.11855_JPRB , 1.09212_JPRB , 1.72145_JPRB , 1.03858_JPRB , 1.12044_JPRB /)  
+ZTAUA14(12, :)= (/&
+ & 1.69446_JPRB , 1.11855_JPRB , 1.09212_JPRB , 1.72145_JPRB , 1.03858_JPRB , 1.12044_JPRB /)  
+ZTAUA14(13, :)= (/&
+ & 1.69446_JPRB , 1.11855_JPRB , 1.09212_JPRB , 1.72145_JPRB , 1.03858_JPRB , 1.12044_JPRB /)  
+ZTAUA14(14, :)= (/&
+ & 0.10849_JPRB , 0.66699_JPRB , 0.65255_JPRB , 0.11600_JPRB , 0.06529_JPRB , 0.04468_JPRB /)  
+ 
+ZPIZA14( 1, :)= (/&
+ & .5230504_JPRB, .7868518_JPRB, .8531531_JPRB, .4048149_JPRB, .8748231_JPRB, .2355667_JPRB/)  
+ZPIZA14( 2, :)= (/&
+ & .5230504_JPRB, .7868518_JPRB, .8531531_JPRB, .4048149_JPRB, .8748231_JPRB, .2355667_JPRB/)  
+ZPIZA14( 3, :)= (/&
+ & .8287144_JPRB, .9949396_JPRB, .9279543_JPRB, .6765051_JPRB, .9467578_JPRB, .9955938_JPRB/)  
+ZPIZA14( 4, :)= (/&
+ & .8287144_JPRB, .9949396_JPRB, .9279543_JPRB, .6765051_JPRB, .9467578_JPRB, .9955938_JPRB/)  
+ZPIZA14( 5, :)= (/&
+ & .8287144_JPRB, .9949396_JPRB, .9279543_JPRB, .6765051_JPRB, .9467578_JPRB, .9955938_JPRB/)  
+ZPIZA14( 6, :)= (/&
+ & .8287144_JPRB, .9949396_JPRB, .9279543_JPRB, .6765051_JPRB, .9467578_JPRB, .9955938_JPRB/)  
+ZPIZA14( 7, :)= (/&
+ & .8287144_JPRB, .9949396_JPRB, .9279543_JPRB, .6765051_JPRB, .9467578_JPRB, .9955938_JPRB/)  
+ZPIZA14( 8, :)= (/&
+ & .8970131_JPRB, .9984940_JPRB, .9245594_JPRB, .7768385_JPRB, .9532763_JPRB, .9999999_JPRB/)  
+ZPIZA14( 9, :)= (/&
+ & .8970131_JPRB, .9984940_JPRB, .9245594_JPRB, .7768385_JPRB, .9532763_JPRB, .9999999_JPRB/)  
+ZPIZA14(10, :)= (/&
+ & .9148907_JPRB, .9956173_JPRB, .7504584_JPRB, .8131335_JPRB, .9401905_JPRB, .9999999_JPRB/)  
+ZPIZA14(11, :)= (/&
+ & .9148907_JPRB, .9956173_JPRB, .7504584_JPRB, .8131335_JPRB, .9401905_JPRB, .9999999_JPRB/)  
+ZPIZA14(12, :)= (/&
+ & .9148907_JPRB, .9956173_JPRB, .7504584_JPRB, .8131335_JPRB, .9401905_JPRB, .9999999_JPRB/)  
+ZPIZA14(13, :)= (/&
+ & .9148907_JPRB, .9956173_JPRB, .7504584_JPRB, .8131335_JPRB, .9401905_JPRB, .9999999_JPRB/)  
+ZPIZA14(14, :)= (/&
+ & .5230504_JPRB, .7868518_JPRB, .8531531_JPRB, .4048149_JPRB, .8748231_JPRB, .2355667_JPRB/)  
+
+ZCGA14( 1, :)= (/&
+ & 0.700610_JPRB, 0.818871_JPRB, 0.702399_JPRB, 0.689886_JPRB, .4629866_JPRB, .1907639_JPRB/)  
+ZCGA14( 2, :)= (/&
+ & 0.700610_JPRB, 0.818871_JPRB, 0.702399_JPRB, 0.689886_JPRB, .4629866_JPRB, .1907639_JPRB/)  
+ZCGA14( 3, :)= (/&
+ & 0.636342_JPRB, 0.802467_JPRB, 0.691305_JPRB, 0.627497_JPRB, .6105750_JPRB, .4760794_JPRB/)  
+ZCGA14( 4, :)= (/&
+ & 0.636342_JPRB, 0.802467_JPRB, 0.691305_JPRB, 0.627497_JPRB, .6105750_JPRB, .4760794_JPRB/)  
+ZCGA14( 5, :)= (/&
+ & 0.636342_JPRB, 0.802467_JPRB, 0.691305_JPRB, 0.627497_JPRB, .6105750_JPRB, .4760794_JPRB/)  
+ZCGA14( 6, :)= (/&
+ & 0.636342_JPRB, 0.802467_JPRB, 0.691305_JPRB, 0.627497_JPRB, .6105750_JPRB, .4760794_JPRB/)  
+ZCGA14( 7, :)= (/&
+ & 0.636342_JPRB, 0.802467_JPRB, 0.691305_JPRB, 0.627497_JPRB, .6105750_JPRB, .4760794_JPRB/)  
+ZCGA14( 8, :)= (/&
+ & 0.668431_JPRB, 0.788530_JPRB, 0.698682_JPRB, 0.657422_JPRB, .6735182_JPRB, .6519706_JPRB/)  
+ZCGA14( 9, :)= (/&
+ & 0.668431_JPRB, 0.788530_JPRB, 0.698682_JPRB, 0.657422_JPRB, .6735182_JPRB, .6519706_JPRB/)  
+ZCGA14(10, :)= (/&
+ & 0.729019_JPRB, 0.803129_JPRB, 0.784592_JPRB, 0.712208_JPRB, .7008249_JPRB, .7270548_JPRB/)  
+ZCGA14(11, :)= (/&
+ & 0.729019_JPRB, 0.803129_JPRB, 0.784592_JPRB, 0.712208_JPRB, .7008249_JPRB, .7270548_JPRB/)  
+ZCGA14(12, :)= (/&
+ & 0.729019_JPRB, 0.803129_JPRB, 0.784592_JPRB, 0.712208_JPRB, .7008249_JPRB, .7270548_JPRB/)  
+ZCGA14(13, :)= (/&
+ & 0.729019_JPRB, 0.803129_JPRB, 0.784592_JPRB, 0.712208_JPRB, .7008249_JPRB, .7270548_JPRB/)  
+ZCGA14(14, :)= (/&
+ & 0.700610_JPRB, 0.818871_JPRB, 0.702399_JPRB, 0.689886_JPRB, .4629866_JPRB, .1907639_JPRB/)  
+
+!      ----------------------------------------------------------------
+
+DO JNU=1,14
+  DO JAER=1,6
+    RSRTAUA(JNU,JAER)=ZTAUA14(JNU,JAER)
+    RSRPIZA(JNU,JAER)=ZPIZA14(JNU,JAER)
+    RSRASYA(JNU,JAER)=ZCGA14 (JNU,JAER)
+  ENDDO
+ENDDO
+
+!      ----------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUSRTAER',1,ZHOOK_HANDLE)
+END SUBROUTINE SUSRTAER
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/susrtaer.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/susrtaer.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/susrtaer.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SUSRTAER
+END SUBROUTINE SUSRTAER
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/susrtcop.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/susrtcop.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/susrtcop.F90	(revision 1989)
@@ -0,0 +1,415 @@
+SUBROUTINE SUSRTCOP
+
+!**** *SUSRTCOP*  - INITIALIZE COMMON YOESRTCOP
+
+!     PURPOSE.
+!     --------
+!           INITIALIZE YOESRTCOP, WITH CLOUD OPTICAL PARAMETERS
+
+!**   INTERFACE.
+!     ----------
+!        *CALL*  SUSRTCOP
+!        FROM *SUECRAD*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!        NONE
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+!        COMMON YOESRTCOP
+
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+
+!     EXTERNALS.
+!     ----------
+!        NONE
+
+!     REFERENCE.
+!     ----------
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE
+!     "INTEGRATED FORECASTING SYSTEM"
+
+!     Fouquart, 1987: NATO ASI,  223-284
+!     A. Slingo, 1989: J. Atmos. Sci., 46, 1419-1427
+!     Ebert and Curry, 1992: J. Geophys. Res., 97D, 3831-3836
+!     Sun and Shine, 1994: Quart. J. Roy. Meteor. Soc., 120, 111-138
+!     Fu and Liou, 1993: J. Atmos. Sci., 50, 2008-2025
+!     Fu, 1996: J. Climate, 9, 2058-2082
+!     Fu et al., 1998: J. Climate, 11, 2223-2237
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 03-03-06
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOESRTCOP , ONLY : &
+ & RSYFWA   ,RSYFWB   ,RSYFWC   ,RSYFWD   ,RSYFWE   ,RSYFWF  &
+ & , RSECIA   ,RSECIB   ,RSECIC   ,RSECID   ,RSECIE   ,RSECIF &
+ & , RSASWA   ,RSASWB   ,RSASWC   ,RSASWD   ,RSASWE   ,RSASWF &
+ & , RSSSIE   ,RSSSIF   ,RSSSIH   ,RSSSIK   ,RSSSIA   ,RSSSIG &
+ & , RSFUA0   ,RSFUA1   ,RSFUB0   ,RSFUB1   ,RSFUB2   ,RSFUB3 &
+ & , RSFUC0   ,RSFUC1   ,RSFUC2   ,RSFUC3   &
+ & , RSFLA0   ,RSFLA1   ,RSFLB0   ,RSFLB1   ,RSFLB2   ,RSFLB3 &
+ & , RSFLC0   ,RSFLC1   ,RSFLC2   ,RSFLC3   ,RSFLD0   ,RSFLD1 &
+ & , RSFLD2   ,RSFLD3  
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM) ::  JNU
+
+!     -----------------------------------------------------------------
+
+REAL(KIND=JPRB) :: ZEBCUA14(14)  ,ZEBCUB14(14)  ,ZEBCUC14(14)  ,ZEBCUD14(14)&
+ & ,  ZEBCUE14(14)  ,ZEBCUF14(14)  ,ZYFWCA14(14)  ,ZYFWCB14(14)&
+ & ,  ZYFWCC14(14)  ,ZYFWCD14(14)  ,ZYFWCE14(14)  ,ZYFWCF14(14)&
+ & ,  ZASWCA14(14)  ,ZASWCB14(14)  ,ZASWCC14(14)  ,ZASWCD14(14)&
+ & ,  ZASWCE14(14)  ,ZASWCF14(14)  ,ZSUSHE14(14)  ,ZSUSHF14(14)&
+ & ,  ZSUSHH14(14)  ,ZSUSHK14(14)  ,ZSUSHA14(14)  ,ZSUSHG14(14)&
+ & ,  ZFLAA014(14)  ,ZFLAA114(14)  ,ZFLBB014(14)  ,ZFLBB114(14)&
+ & ,  ZFLBB214(14)  ,ZFLBB314(14)  ,ZFLCC014(14)  ,ZFLCC114(14)&
+ & ,  ZFLCC214(14)  ,ZFLCC314(14)  ,ZFLDD014(14)  ,ZFLDD114(14)&
+ & ,  ZFLDD214(14)  ,ZFLDD314(14)&
+ & ,  ZFUAA014(14)  ,ZFUAA114(14)  ,ZFUBB014(14)  ,ZFUBB114(14)&
+ & ,  ZFUBB214(14)  ,ZFUBB314(14)  ,ZFUCC014(14)  ,ZFUCC114(14)&
+ & ,  ZFUCC214(14)  ,ZFUCC314(14)  
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+!     -----------------------------------------------------------------
+
+!*          1.    SHORTWAVE CLOUD OPTICAL PROPERTIES
+!                 ----------------------------------
+
+!     ------------------------------------------------------------------
+
+!*          1.1    FOURTEEN SPECTRAL INTERVALS FOR RRTM_SW
+!                  ---------------------------------------
+
+! SW : 14 spectral intervals 
+!  3.846 -  3.077
+!  3.077 -  2.500
+!  2.500 -  2.150
+!  2.150 -  1.942
+!  1.942 -  1.626
+!  1.626 -  1.299
+!  1.299 -  1.242
+!  1.242 -  0.7782
+!  0.7782-  0.6250
+!  0.6250-  0.4415
+!  0.4415-  0.3448
+!  0.3448-  0.2632
+!  0.2632-  0.2000
+! 12.195 -  3.846
+
+!* Ice cloud properties - crystal: remapped from Ebert and Curry, 1992
+
+IF (LHOOK) CALL DR_HOOK('SUSRTCOP',0,ZHOOK_HANDLE)
+ZEBCUA14 = (/ &
+ & 3.448E-03_JPRB , 3.448E-03_JPRB , 3.448E-03_JPRB , 3.448E-03_JPRB , 3.448E-03_JPRB , 3.448E-03_JPRB &
+ & , 3.448E-03_JPRB , 3.448E-03_JPRB , 3.448E-03_JPRB , 3.448E-03_JPRB , 3.448E-03_JPRB , 3.448E-03_JPRB &
+ & , 3.448E-03_JPRB , 3.448E-03_JPRB /)  
+
+ZEBCUB14 = (/ &
+ & 2.431_JPRB     , 2.431_JPRB     , 2.431_JPRB     , 2.431_JPRB     , 2.431_JPRB     , 2.431_JPRB     &
+ & , 2.431_JPRB     , 2.431_JPRB     , 2.431_JPRB     , 2.431_JPRB     , 2.431_JPRB     , 2.431_JPRB     &
+ & , 2.431_JPRB     , 2.431_JPRB     /)  
+
+ZEBCUC14 = (/ &
+ & 0.46658_JPRB   , 0.46658_JPRB   , 0.03779_JPRB   , 0.03779_JPRB   , 0.01240_JPRB   , 0.01240_JPRB   &
+ & , 0.00011_JPRB   , 0.00011_JPRB   , 0.00001_JPRB   , 0.00001_JPRB   , 0.00001_JPRB   , 0.00001_JPRB   &
+ & , 0.00001_JPRB   , 0.46658_JPRB   /)  
+
+ZEBCUD14 = (/ &
+ & 2.050E-05_JPRB , 2.050E-05_JPRB , 1.284E-03_JPRB , 1.284E-03_JPRB , 6.867E-04_JPRB , 6.867E-04_JPRB &
+ & , 1.405E-05_JPRB , 1.405E-05_JPRB , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB          &
+ & , 0.0_JPRB         , 2.050E-05_JPRB /)  
+
+ZEBCUE14 = (/ &
+ & 0.9595_JPRB    , 0.9595_JPRB    , 0.8172_JPRB    , 0.8172_JPRB    , 0.7865_JPRB    , 0.7865_JPRB    &
+ & , 0.7730_JPRB    , 0.7730_JPRB    , 0.7661_JPRB    , 0.7661_JPRB    , 0.7661_JPRB    , 0.7661_JPRB    &
+ & , 0.7661_JPRB    , 0.9595_JPRB    /)  
+
+ZEBCUF14 = (/ &
+ & 1.076E-04_JPRB , 1.076E-04_JPRB , 7.463E-04_JPRB , 7.463E-04_JPRB , 7.204E-04_JPRB , 7.204E-04_JPRB &
+ & , 5.665E-04_JPRB , 5.665E-04_JPRB , 5.851E-04_JPRB , 5.851E-04_JPRB , 5.851E-04_JPRB , 5.851E-04_JPRB &
+ & , 5.851E-04_JPRB , 1.076E-04_JPRB /)  
+
+!* Water cloud properties - from Fouquart (1987)
+
+ZYFWCA14 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ 
+ZYFWCB14 = (/ &
+ & 1.5_JPRB       , 1.5_JPRB       , 1.5_JPRB       , 1.5_JPRB       , 1.5_JPRB      , 1.5_JPRB        &
+ & , 1.5_JPRB       , 1.5_JPRB       , 1.5_JPRB       , 1.5_JPRB       , 1.5_JPRB      , 1.5_JPRB        &
+ & , 1.5_JPRB       , 1.5_JPRB       /)  
+ 
+ZYFWCC14 = (/ &
+ & 0.9988_JPRB    , 0.9988_JPRB    , 0.9988_JPRB    , 0.9988_JPRB    , 0.9988_JPRB    , 0.9988_JPRB    &
+ & , 0.9988_JPRB    , 0.9988_JPRB    , 0.9999_JPRB    , 0.9999_JPRB    , 0.9999_JPRB    , 0.9999_JPRB    &
+ & , 0.9999_JPRB    , 0.9988_JPRB    /)  
+
+ZYFWCD14 = (/ &
+ & 2.500E-03_JPRB , 2.500E-03_JPRB , 2.500E-03_JPRB , 2.500E-03_JPRB , 2.500E-03_JPRB , 2.500E-03_JPRB &
+ & , 2.500E-03_JPRB , 2.500E-03_JPRB , 5.000E-04_JPRB , 5.000E-04_JPRB , 5.000E-04_JPRB , 5.000E-04_JPRB &
+ & , 5.000E-04_JPRB , 2.500E-03_JPRB /)  
+
+ZYFWCE14 = (/ &
+ & 0.05_JPRB      , 0.05_JPRB      , 0.05_JPRB      , 0.05_JPRB      , 0.05_JPRB      , 0.05_JPRB      &
+ & , 0.05_JPRB      , 0.05_JPRB      , 0.5_JPRB         , 0.5_JPRB         , 0.5_JPRB         , 0.5_JPRB               &
+ & , 0.5_JPRB         , 0.05_JPRB      /)  
+
+ZYFWCF14 = (/ &
+ & 0.910_JPRB     , 0.910_JPRB     , 0.910_JPRB     , 0.910_JPRB     , 0.910_JPRB     , 0.910_JPRB     &
+ & , 0.910_JPRB     , 0.910_JPRB     , 0.865_JPRB     , 0.865_JPRB     , 0.865_JPRB     , 0.865_JPRB      &
+ & , 0.865_JPRB     , 0.910_JPRB     /)  
+
+!* Water cloud properties - from Slingo (1989)
+
+ZASWCA14 = (/ &
+ & -1.023_JPRB     , 1.950_JPRB     , 1.850_JPRB     , 1.970_JPRB     , 1.970_JPRB     , 2.463_JPRB     &
+ & , 2.551_JPRB     , 2.622_JPRB     , 2.895_JPRB     , 2.672_JPRB     , 2.801_JPRB    , 2.944_JPRB     &
+ & , 3.094_JPRB     ,-1.023_JPRB     /)  
+
+ZASWCB14 = (/ &
+ & 1.933_JPRB     , 1.540_JPRB     , 1.556_JPRB     , 1.501_JPRB     , 1.501_JPRB     , 1.420_JPRB     &
+ & , 1.401_JPRB     , 1.362_JPRB     , 1.315_JPRB     , 1.320_JPRB     , 1.293_JPRB     , 1.270_JPRB     &
+ & , 1.252_JPRB     , 1.933_JPRB     /)  
+   
+ZASWCC14 = (/ &
+ & 2.50E-02_JPRB  , 4.49E-01_JPRB  , 1.90E-04_JPRB  , 1.20E-03_JPRB  , 1.20E-03_JPRB  , 2.40E-04_JPRB  &
+ & , 6.20E-05_JPRB  , 3.30E-06_JPRB  ,-1.20E-07_JPRB  , 0.0_JPRB         , 1.00E-06_JPRB  ,-6.50E-07_JPRB  &
+ & , 7.90E-07_JPRB  , 2.50E-02_JPRB  /)  
+    
+ZASWCD14 = (/ &
+ & 1.22E-02_JPRB  , 1.54E-03_JPRB  , 2.54E-03_JPRB  , 2.16E-03_JPRB  , 2.16E-03_JPRB  , 8.56E-04_JPRB  &
+ & , 2.60E-04_JPRB  , 2.80E-06_JPRB  , 4.40E-07_JPRB  , 0.0_JPRB         , 0.0_JPRB         , 4.33E-07_JPRB  &
+ & , 3.69E-07_JPRB  , 1.22E-02_JPRB  /)  
+
+ZASWCE14 = (/ &
+ & 0.726_JPRB     , 0.831_JPRB     , 0.769_JPRB     , 0.740_JPRB     , 0.740_JPRB     , 0.754_JPRB     &
+ & , 0.773_JPRB     , 0.806_JPRB     , 0.818_JPRB     , 0.828_JPRB     , 0.836_JPRB     , 0.841_JPRB     &
+ & , 0.844_JPRB     , 0.726_JPRB     /)  
+
+ZASWCF14 = (/ &
+ & 6.652_JPRB     , 6.102_JPRB     , 5.171_JPRB     , 7.469_JPRB     , 7.469_JPRB     , 6.555_JPRB     &
+ & , 5.405_JPRB     , 3.355_JPRB     , 2.989_JPRB     , 2.467_JPRB     , 2.153_JPRB     , 1.680_JPRB     &
+ & , 1.558_JPRB     , 6.652_JPRB     /)  
+
+!* Ice cloud properties - from Sun and Shine (1995)
+
+ZSUSHE14 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZSUSHF14 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZSUSHH14 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZSUSHK14 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZSUSHA14 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZSUSHG14 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+
+!* Ice cloud properties - from Fu and Liou (1993)
+
+ZFLAA014 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZFLAA114 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZFLBB014 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZFLBB114 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZFLBB214 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZFLBB314 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZFLCC014 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZFLCC114 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZFLCC214 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZFLCC314 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZFLDD014 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZFLDD114 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZFLDD214 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+ZFLDD314 = (/ &
+ & 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB         , 0.0_JPRB        , 0.0_JPRB          &
+ & , 0.0_JPRB         , 0.0_JPRB         /)  
+
+!* Ice cloud properties - from Fu (1996) 
+
+ZFUAA014 = (/ &
+ & 1.87598E-04_JPRB, 2.97295E-04_JPRB, 4.89477E-04_JPRB,-8.37325E-06_JPRB,-8.37325E-06_JPRB,-8.05155E-04_JPRB  &
+ & , 6.51659E-05_JPRB, 8.10443E-05_JPRB, 1.61983E-04_JPRB,-9.45458E-05_JPRB,-2.58858E-04_JPRB,-2.66955E-04_JPRB &
+ & ,-2.36447E-04_JPRB,-2.54823E-04_JPRB /)  
+
+ZFUAA114 = (/ &
+ & 2.51396E+00_JPRB, 2.48895E+00_JPRB, 2.48776E+00_JPRB, 2.52504E+00_JPRB, 2.52504E+00_JPRB, 2.57600E+00_JPRB &
+ & , 2.51660E+00_JPRB, 2.51619E+00_JPRB, 2.50746E+00_JPRB, 2.52061E+00_JPRB, 2.53815E+00_JPRB, 2.54179E+00_JPRB &
+ & , 2.53817E+00_JPRB, 2.52909E+00_JPRB /)  
+
+ZFUBB014 = (/ &
+ & 1.96793E-01_JPRB, 4.64416E-01_JPRB, 5.83469E-04_JPRB, 2.53234E-03_JPRB, 2.53234E-03_JPRB,-2.85518E-05_JPRB &
+ & ,-1.48012E-07_JPRB,-1.57963E-07_JPRB,-7.78001E-08_JPRB, 5.08447E-07_JPRB,-1.98529E-07_JPRB,-1.00570E-07_JPRB &
+ & ,-2.69916E-07_JPRB, 2.60155E-01_JPRB /)   
+
+ZFUBB114 = (/ &
+ & 5.75235E-03_JPRB, 2.04716E-05_JPRB, 1.18127E-03_JPRB, 1.75078E-03_JPRB, 1.75078E-03_JPRB, 1.71993E-03_JPRB &
+ & , 9.02355E-05_JPRB, 1.72475E-06_JPRB, 2.53360E-07_JPRB, 2.73206E-08_JPRB, 9.39480E-08_JPRB, 1.60441E-07_JPRB &
+ & , 2.12909E-07_JPRB, 5.45547E-03_JPRB /)  
+
+ZFUBB214 = (/ &
+ & -5.29220E-05_JPRB,-4.60375E-07_JPRB,-3.40011E-06_JPRB,-8.00994E-06_JPRB,-8.00994E-06_JPRB,-7.43697E-06_JPRB &
+ & ,-1.98190E-08_JPRB, 9.02156E-11_JPRB,-1.15489E-10_JPRB, 4.96553E-11_JPRB,-2.54540E-10_JPRB,-2.05663E-10_JPRB &
+ & ,-2.65397E-10_JPRB,-5.58760E-05_JPRB /)  
+
+ZFUBB314 = (/ &
+ & 1.76618E-07_JPRB, 2.03198E-09_JPRB, 8.78549E-09_JPRB, 2.31309E-08_JPRB, 2.31309E-08_JPRB, 2.09647E-08_JPRB &
+ & , 4.01914E-11_JPRB,-3.79423E-13_JPRB, 4.65084E-13_JPRB,-1.86001E-13_JPRB, 1.10876E-12_JPRB, 8.88595E-13_JPRB &
+ & , 1.12983E-12_JPRB, 1.97086E-07_JPRB /)  
+
+ZFUCC014 = (/ &
+ & 0.759183_JPRB   , 0.919599_JPRB   , 0.775916_JPRB   , 0.758748_JPRB   , 0.758748_JPRB   , 0.752528_JPRB    &
+ & , 0.751277_JPRB   , 0.752318_JPRB   , 0.749693_JPRB   , 0.749856_JPRB   , 0.743546_JPRB   , 0.737809_JPRB    &
+ & , 0.733260_JPRB   , 0.799084_JPRB   /)  
+   
+ZFUCC114 = (/ &
+ & 4.93765E-03_JPRB, 5.03025E-04_JPRB, 1.74517E-03_JPRB, 2.02709E-03_JPRB, 2.02709E-03_JPRB, 1.95748E-03_JPRB &
+ & , 1.29824E-03_JPRB, 1.04224E-03_JPRB, 1.05446E-03_JPRB, 8.89161E-04_JPRB, 9.08674E-04_JPRB, 8.97515E-04_JPRB &
+ & , 9.18317E-04_JPRB, 4.81706E-03_JPRB /)  
+
+ZFUCC214 = (/ &
+ & -4.84059E-05_JPRB,-5.74771E-06_JPRB,-9.21314E-06_JPRB,-1.17029E-05_JPRB,-1.17029E-05_JPRB,-1.02495E-05_JPRB &
+ & ,-4.99075E-06_JPRB,-2.26618E-06_JPRB,-2.32576E-06_JPRB,-3.49578E-07_JPRB,-4.65326E-07_JPRB,-2.17099E-07_JPRB &
+ & ,-4.22974E-07_JPRB,-5.13220E-05_JPRB /)  
+
+ZFUCC314 = (/ &
+ & 1.65801E-07_JPRB, 2.01731E-08_JPRB, 2.15003E-08_JPRB, 2.95195E-08_JPRB, 2.95195E-08_JPRB, 2.35479E-08_JPRB &
+ & , 6.33757E-09_JPRB,-3.68283E-09_JPRB,-3.58307E-09_JPRB, 1.09913E-08_JPRB,-1.05786E-08_JPRB,-1.16090E-08_JPRB &
+ & ,-1.07976E-08_JPRB, 1.84420E-07_JPRB /)  
+
+!     ------------------------------------------------------------------
+!     ------------------------------------------------------------------
+
+! SW : absorption coefficients
+
+DO JNU=1,14
+  RSASWA(JNU)=ZASWCA14(JNU)*1.E-02_JPRB
+  RSASWB(JNU)=ZASWCB14(JNU)
+  RSASWC(JNU)=ZASWCC14(JNU)
+  RSASWD(JNU)=ZASWCD14(JNU)
+  RSASWE(JNU)=ZASWCE14(JNU)
+  RSASWF(JNU)=ZASWCF14(JNU)*1.E-03_JPRB
+
+  RSECIA(JNU)=ZEBCUA14(JNU)
+  RSECIB(JNU)=ZEBCUB14(JNU)
+  RSECIC(JNU)=ZEBCUC14(JNU)
+  RSECID(JNU)=ZEBCUD14(JNU)
+  RSECIE(JNU)=ZEBCUE14(JNU)
+  RSECIF(JNU)=ZEBCUF14(JNU)
+
+  RSYFWA(JNU)=ZYFWCA14(JNU)
+  RSYFWB(JNU)=ZYFWCB14(JNU)
+  RSYFWC(JNU)=ZYFWCC14(JNU)
+  RSYFWD(JNU)=ZYFWCD14(JNU)
+  RSYFWE(JNU)=ZYFWCE14(JNU)
+  RSYFWF(JNU)=ZYFWCF14(JNU)
+
+  RSSSIE(JNU)=ZSUSHE14(JNU)*1.E-02_JPRB
+  RSSSIF(JNU)=ZSUSHF14(JNU)*1.E-02_JPRB
+  RSSSIH(JNU)=ZSUSHH14(JNU)
+  RSSSIK(JNU)=ZSUSHK14(JNU)*1.E-01_JPRB
+  RSSSIA(JNU)=ZSUSHA14(JNU)*1.E-03_JPRB
+  RSSSIG(JNU)=ZSUSHG14(JNU)*1.E-01_JPRB
+    
+  RSFLA0(JNU)=ZFLAA014(JNU)
+  RSFLA1(JNU)=ZFLAA114(JNU)
+  RSFLB0(JNU)=ZFLBB014(JNU)
+  RSFLB1(JNU)=ZFLBB114(JNU)
+  RSFLB2(JNU)=ZFLBB214(JNU)
+  RSFLB3(JNU)=ZFLBB314(JNU)
+  RSFLC0(JNU)=ZFLCC014(JNU)
+  RSFLC1(JNU)=ZFLCC114(JNU)
+  RSFLC2(JNU)=ZFLCC214(JNU)
+  RSFLC3(JNU)=ZFLCC314(JNU)
+  RSFLD0(JNU)=ZFLDD014(JNU)
+  RSFLD1(JNU)=ZFLDD114(JNU)
+  RSFLD2(JNU)=ZFLDD214(JNU)
+  RSFLD3(JNU)=ZFLDD314(JNU)
+    
+  RSFUA0(JNU)=ZFUAA014(JNU)
+  RSFUA1(JNU)=ZFUAA114(JNU)
+  RSFUB0(JNU)=ZFUBB014(JNU)
+  RSFUB1(JNU)=ZFUBB114(JNU)
+  RSFUB2(JNU)=ZFUBB214(JNU)
+  RSFUB3(JNU)=ZFUBB314(JNU)
+  RSFUC0(JNU)=ZFUCC014(JNU)
+  RSFUC1(JNU)=ZFUCC114(JNU)
+  RSFUC2(JNU)=ZFUCC214(JNU)
+  RSFUC3(JNU)=ZFUCC314(JNU)
+    
+ENDDO
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUSRTCOP',1,ZHOOK_HANDLE)
+END SUBROUTINE SUSRTCOP
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/susrtcop.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/susrtcop.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/susrtcop.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SUSRTCOP
+END SUBROUTINE SUSRTCOP
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/susrtm.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/susrtm.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/susrtm.F90	(revision 1989)
@@ -0,0 +1,203 @@
+SUBROUTINE SUSRTM
+
+!     Adapted from E.J. Mlawer, J. Delamere, Atmospheric & Environmental Research.
+!     by JJMorcrette, ECMWF
+!     Modified to add arrays relevant to mapping for g-point reduction,
+!     M.J. Iacono, Atmospheric & Environmental Research, Inc. 
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOESRTWN , ONLY : NG      , NSPA, NSPB   , NMPSRTM, &
+ & WAVENUM1, WAVENUM2, DELWAVE, PREF, PREFLOG, TREF   , &
+ & NGM     , WT      , NGC    , NGS , NGN    , NGBSW
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+IF (LHOOK) CALL DR_HOOK('SUSRTM',0,ZHOOK_HANDLE)
+NG(:)     =(/ 16,16,16,16,16,16,16,16,16,16,16,16,16,16 /)
+NSPA(:)   =(/  9, 9, 9, 9, 1, 9, 9, 1, 9, 1, 0, 1, 9, 1 /)
+NSPB(:)   =(/  1, 5, 1, 1, 1, 5, 1, 0, 1, 0, 0, 1, 5, 1 /)
+NMPSRTM(:)=(/  6, 6, 5, 5, 5, 5, 5, 4, 4, 3, 2, 2, 1, 6 /)
+
+WAVENUM1( :) = (/&
+ & 2600._JPRB, 3250._JPRB, 4000._JPRB, 4650._JPRB, 5150._JPRB, 6150._JPRB, 7700._JPRB &
+ & , 8050._JPRB,12850._JPRB,16000._JPRB,22650._JPRB,29000._JPRB,38000._JPRB,  820._JPRB /)  
+WAVENUM2( :) = (/&
+ & 3250._JPRB, 4000._JPRB, 4650._JPRB, 5150._JPRB, 6150._JPRB, 7700._JPRB, 8050._JPRB &
+ & ,12850._JPRB,16000._JPRB,22650._JPRB,29000._JPRB,38000._JPRB,50000._JPRB, 2600._JPRB /)  
+DELWAVE( :) = (/&
+ & 650._JPRB,  750._JPRB,  650._JPRB,  500._JPRB, 1000._JPRB, 1550._JPRB,  350._JPRB &
+ & , 4800._JPRB, 3150._JPRB, 6650._JPRB, 6350._JPRB, 9000._JPRB,12000._JPRB, 1780._JPRB /)  
+
+!=====================================================================
+! Set arrays needed for the g-point reduction from 224 to 112 for the 
+! 14 SW bands:
+! This mapping from 224 to 112 points has been carefully selected to
+! minimize the effect on the resulting fluxes and cooling rates, and
+! caution should be used if the mapping is modified.
+!
+! JPGPT   The total number of new g-points (NGPT)
+! NGC     The number of new g-points in each band
+! NGS     The cumulative sum of new g-points for each band
+! NGM     The index of each new g-point relative to the original
+!         16 g-points for each band.
+! NGN     The number of original g-points that are combined to make
+!         each new g-point in each band.
+! NGB     The band index for each new g-point.
+! WT      RRTM weights for 16 g-points.
+! Use this NGC, NGS, NGM, and NGN for reduced (112) g-point set
+! (A related code change is required in modules parsrtm.F90 and yoesrtwn.F90)
+NGC(:) = (/ 6,12, 8, 8,10,10, 2,10, 8, 6, 6, 8, 6,12 /)
+NGS(:) = (/ 6,18,26,34,44,54,56,66,74,80,86,94,100,112 /)
+NGM(:) = (/ 1,1,2,2,3,3,4,4,5,5,5,5,6,6,6,6, &           ! Band 16
+          & 1,2,3,4,5,6,6,7,8,8,9,10,10,11,12,12, &      ! Band 17
+          & 1,2,3,4,5,5,6,6,7,7,7,7,8,8,8,8, &           ! Band 18
+          & 1,2,3,4,5,5,6,6,7,7,7,7,8,8,8,8, &           ! Band 19
+          & 1,2,3,4,5,6,7,8,9,9,10,10,10,10,10,10, &     ! Band 20
+          & 1,2,3,4,5,6,7,8,9,9,10,10,10,10,10,10, &     ! Band 21
+          & 1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2, &           ! Band 22
+          & 1,1,2,2,3,4,5,6,7,8,9,9,10,10,10,10, &       ! Band 23
+          & 1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8, &           ! Band 24
+          & 1,2,3,3,4,4,5,5,5,5,6,6,6,6,6,6, &           ! Band 25
+          & 1,2,3,3,4,4,5,5,5,5,6,6,6,6,6,6, &           ! Band 26
+          & 1,2,3,4,5,6,7,7,7,7,8,8,8,8,8,8, &           ! Band 27
+          & 1,2,3,3,4,4,5,5,5,5,6,6,6,6,6,6, &           ! Band 28
+          & 1,2,3,4,5,5,6,6,7,7,8,8,9,10,11,12 /)        ! Band 29
+NGN(:) = (/ 2,2,2,2,4,4, &                               ! Band 16
+          & 1,1,1,1,1,2,1,2,1,2,1,2, &                   ! Band 17
+          & 1,1,1,1,2,2,4,4, &                           ! Band 18
+          & 1,1,1,1,2,2,4,4, &                           ! Band 19
+          & 1,1,1,1,1,1,1,1,2,6, &                       ! Band 20
+          & 1,1,1,1,1,1,1,1,2,6, &                       ! Band 21
+          & 8,8, &                                       ! Band 22
+          & 2,2,1,1,1,1,1,1,2,4, &                       ! Band 23
+          & 2,2,2,2,2,2,2,2, &                           ! Band 24
+          & 1,1,2,2,4,6, &                               ! Band 25
+          & 1,1,2,2,4,6, &                               ! Band 26
+          & 1,1,1,1,1,1,4,6, &                           ! Band 27
+          & 1,1,2,2,4,6, &                               ! Band 28
+          & 1,1,1,1,2,2,2,2,1,1,1,1 /)                   ! Band 29
+NGBSW(:)=(/ 16,16,16,16,16,16, &                         ! Band 16
+          & 17,17,17,17,17,17,17,17,17,17,17,17, &       ! Band 17
+          & 18,18,18,18,18,18,18,18, &                   ! Band 18
+          & 19,19,19,19,19,19,19,19, &                   ! Band 19
+          & 20,20,20,20,20,20,20,20,20,20, &             ! Band 20
+          & 21,21,21,21,21,21,21,21,21,21, &             ! Band 21
+          & 22,22, &                                     ! Band 22
+          & 23,23,23,23,23,23,23,23,23,23, &             ! Band 23
+          & 24,24,24,24,24,24,24,24, &                   ! Band 24
+          & 25,25,25,25,25,25, &                         ! Band 25
+          & 26,26,26,26,26,26, &                         ! Band 26
+          & 27,27,27,27,27,27,27,27, &                   ! Band 27
+          & 28,28,28,28,28,28, &                         ! Band 28
+          & 29,29,29,29,29,29,29,29,29,29,29,29 /)       ! Band 29
+
+! Use this NGC, NGS, NGM, and NGN for full (224) g-point set
+! (A related code change is required in modules parsrtm.F90 and yoesrtwn.F90)
+!NGC(:) = (/ 16,16,16,16,16,16,16,16,16,16,16,16,16,16 /)
+!NGS(:) = (/ 16,32,48,64,80,96,112,128,144,160,176,192,208,224 /)
+!NGM(:) = (/ 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! Band 16
+!          & 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! Band 17
+!          & 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! Band 18
+!          & 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! Band 19
+!          & 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! Band 20
+!          & 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! Band 21
+!          & 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! Band 22
+!          & 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! Band 23
+!          & 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! Band 24
+!          & 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! Band 25
+!          & 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! Band 26
+!          & 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! Band 27
+!          & 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16, &    ! Band 28
+!          & 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16 /)    ! Band 29
+!NGN(:) = (/ 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! Band 16
+!          & 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! Band 17
+!          & 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! Band 18
+!          & 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! Band 19
+!          & 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! Band 20
+!          & 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! Band 21
+!          & 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! Band 22
+!          & 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! Band 23
+!          & 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! Band 24
+!          & 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! Band 25
+!          & 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! Band 26
+!          & 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! Band 27
+!          & 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, &           ! Band 28
+!          & 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 /)           ! Band 29
+!NGBSW(:)=(/ 16,16,16,16,16,16,16,16,16,16,16,16,16,16,16,16, &   ! Band 16
+!          & 17,17,17,17,17,17,17,17,17,17,17,17,17,17,17,17, &   ! Band 17
+!          & 18,18,18,18,18,18,18,18,18,18,18,18,18,18,18,18, &   ! Band 18
+!          & 19,19,19,19,19,19,19,19,19,19,19,19,19,19,19,19, &   ! Band 19
+!          & 20,20,20,20,20,20,20,20,20,20,20,20,20,20,20,20, &   ! Band 20
+!          & 21,21,21,21,21,21,21,21,21,21,21,21,21,21,21,21, &   ! Band 21
+!          & 22,22,22,22,22,22,22,22,22,22,22,22,22,22,22,22, &   ! Band 22
+!          & 23,23,23,23,23,23,23,23,23,23,23,23,23,23,23,23, &   ! Band 23
+!          & 24,24,24,24,24,24,24,24,24,24,24,24,24,24,24,24, &   ! Band 24
+!          & 25,25,25,25,25,25,25,25,25,25,25,25,25,25,25,25, &   ! Band 25
+!          & 26,26,26,26,26,26,26,26,26,26,26,26,26,26,26,26, &   ! Band 26
+!          & 27,27,27,27,27,27,27,27,27,27,27,27,27,27,27,27, &   ! Band 27
+!          & 28,28,28,28,28,28,28,28,28,28,28,28,28,28,28,28, &   ! Band 28
+!          & 29,29,29,29,29,29,29,29,29,29,29,29,29,29,29,28 /)   ! Band 29
+
+WT(:) =  (/ 0.1527534276_JPRB, 0.1491729617_JPRB, 0.1420961469_JPRB, &
+          & 0.1316886544_JPRB, 0.1181945205_JPRB, 0.1019300893_JPRB, &
+          & 0.0832767040_JPRB, 0.0626720116_JPRB, 0.0424925000_JPRB, &
+          & 0.0046269894_JPRB, 0.0038279891_JPRB, 0.0030260086_JPRB, &
+          & 0.0022199750_JPRB, 0.0014140010_JPRB, 0.0005330000_JPRB, &
+          & 0.0000750000_JPRB /)
+
+!=============================================================================
+
+! These pressures are chosen such that the ln of the first pressure
+! has only a few non-zero digits (i.e. ln(PREF(1)) = 6.96000) and
+!  each subsequent ln(pressure) differs from the previous one by 0.2.
+PREF = (/ &
+ & 1.05363E+03_JPRB,8.62642E+02_JPRB,7.06272E+02_JPRB,5.78246E+02_JPRB,4.73428E+02_JPRB, &
+ & 3.87610E+02_JPRB,3.17348E+02_JPRB,2.59823E+02_JPRB,2.12725E+02_JPRB,1.74164E+02_JPRB, &
+ & 1.42594E+02_JPRB,1.16746E+02_JPRB,9.55835E+01_JPRB,7.82571E+01_JPRB,6.40715E+01_JPRB, &
+ & 5.24573E+01_JPRB,4.29484E+01_JPRB,3.51632E+01_JPRB,2.87892E+01_JPRB,2.35706E+01_JPRB, &
+ & 1.92980E+01_JPRB,1.57998E+01_JPRB,1.29358E+01_JPRB,1.05910E+01_JPRB,8.67114E+00_JPRB, &
+ & 7.09933E+00_JPRB,5.81244E+00_JPRB,4.75882E+00_JPRB,3.89619E+00_JPRB,3.18993E+00_JPRB, &
+ & 2.61170E+00_JPRB,2.13828E+00_JPRB,1.75067E+00_JPRB,1.43333E+00_JPRB,1.17351E+00_JPRB, &
+ & 9.60789E-01_JPRB,7.86628E-01_JPRB,6.44036E-01_JPRB,5.27292E-01_JPRB,4.31710E-01_JPRB, &
+ & 3.53455E-01_JPRB,2.89384E-01_JPRB,2.36928E-01_JPRB,1.93980E-01_JPRB,1.58817E-01_JPRB, &
+ & 1.30029E-01_JPRB,1.06458E-01_JPRB,8.71608E-02_JPRB,7.13612E-02_JPRB,5.84256E-02_JPRB, &
+ & 4.78349E-02_JPRB,3.91639E-02_JPRB,3.20647E-02_JPRB,2.62523E-02_JPRB,2.14936E-02_JPRB, &
+ & 1.75975E-02_JPRB,1.44076E-02_JPRB,1.17959E-02_JPRB,9.65769E-03_JPRB /)  
+PREFLOG = (/ &
+ & 6.9600E+00_JPRB, 6.7600E+00_JPRB, 6.5600E+00_JPRB, 6.3600E+00_JPRB, 6.1600E+00_JPRB, &
+ & 5.9600E+00_JPRB, 5.7600E+00_JPRB, 5.5600E+00_JPRB, 5.3600E+00_JPRB, 5.1600E+00_JPRB, &
+ & 4.9600E+00_JPRB, 4.7600E+00_JPRB, 4.5600E+00_JPRB, 4.3600E+00_JPRB, 4.1600E+00_JPRB, &
+ & 3.9600E+00_JPRB, 3.7600E+00_JPRB, 3.5600E+00_JPRB, 3.3600E+00_JPRB, 3.1600E+00_JPRB, &
+ & 2.9600E+00_JPRB, 2.7600E+00_JPRB, 2.5600E+00_JPRB, 2.3600E+00_JPRB, 2.1600E+00_JPRB, &
+ & 1.9600E+00_JPRB, 1.7600E+00_JPRB, 1.5600E+00_JPRB, 1.3600E+00_JPRB, 1.1600E+00_JPRB, &
+ & 9.6000E-01_JPRB, 7.6000E-01_JPRB, 5.6000E-01_JPRB, 3.6000E-01_JPRB, 1.6000E-01_JPRB, &
+ & -4.0000E-02_JPRB,-2.4000E-01_JPRB,-4.4000E-01_JPRB,-6.4000E-01_JPRB,-8.4000E-01_JPRB, &
+ & -1.0400E+00_JPRB,-1.2400E+00_JPRB,-1.4400E+00_JPRB,-1.6400E+00_JPRB,-1.8400E+00_JPRB, &
+ & -2.0400E+00_JPRB,-2.2400E+00_JPRB,-2.4400E+00_JPRB,-2.6400E+00_JPRB,-2.8400E+00_JPRB, &
+ & -3.0400E+00_JPRB,-3.2400E+00_JPRB,-3.4400E+00_JPRB,-3.6400E+00_JPRB,-3.8400E+00_JPRB, &
+ & -4.0400E+00_JPRB,-4.2400E+00_JPRB,-4.4400E+00_JPRB,-4.6400E+00_JPRB /)  
+! These are the temperatures associated with the respective 
+! pressures for the MLS standard atmosphere. 
+TREF = (/ &
+ & 2.9420E+02_JPRB, 2.8799E+02_JPRB, 2.7894E+02_JPRB, 2.6925E+02_JPRB, 2.5983E+02_JPRB, &
+ & 2.5017E+02_JPRB, 2.4077E+02_JPRB, 2.3179E+02_JPRB, 2.2306E+02_JPRB, 2.1578E+02_JPRB, &
+ & 2.1570E+02_JPRB, 2.1570E+02_JPRB, 2.1570E+02_JPRB, 2.1706E+02_JPRB, 2.1858E+02_JPRB, &
+ & 2.2018E+02_JPRB, 2.2174E+02_JPRB, 2.2328E+02_JPRB, 2.2479E+02_JPRB, 2.2655E+02_JPRB, &
+ & 2.2834E+02_JPRB, 2.3113E+02_JPRB, 2.3401E+02_JPRB, 2.3703E+02_JPRB, 2.4022E+02_JPRB, &
+ & 2.4371E+02_JPRB, 2.4726E+02_JPRB, 2.5085E+02_JPRB, 2.5457E+02_JPRB, 2.5832E+02_JPRB, &
+ & 2.6216E+02_JPRB, 2.6606E+02_JPRB, 2.6999E+02_JPRB, 2.7340E+02_JPRB, 2.7536E+02_JPRB, &
+ & 2.7568E+02_JPRB, 2.7372E+02_JPRB, 2.7163E+02_JPRB, 2.6955E+02_JPRB, 2.6593E+02_JPRB, &
+ & 2.6211E+02_JPRB, 2.5828E+02_JPRB, 2.5360E+02_JPRB, 2.4854E+02_JPRB, 2.4348E+02_JPRB,  &
+ & 2.3809E+02_JPRB, 2.3206E+02_JPRB, 2.2603E+02_JPRB, 2.2000E+02_JPRB, 2.1435E+02_JPRB, &
+ & 2.0887E+02_JPRB, 2.0340E+02_JPRB, 1.9792E+02_JPRB, 1.9290E+02_JPRB, 1.8809E+02_JPRB, &
+ & 1.8329E+02_JPRB, 1.7849E+02_JPRB, 1.7394E+02_JPRB, 1.7212E+02_JPRB /)  
+
+!     -----------------------------------------------------------------
+IF (LHOOK) CALL DR_HOOK('SUSRTM',1,ZHOOK_HANDLE)
+END SUBROUTINE SUSRTM
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/susrtm.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/susrtm.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/susrtm.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SUSRTM
+END SUBROUTINE SUSRTM
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/sustaonl_mod.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/sustaonl_mod.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/sustaonl_mod.F90	(revision 1989)
@@ -0,0 +1,411 @@
+MODULE SUSTAONL_MOD
+CONTAINS
+SUBROUTINE SUSTAONL(KMEDIAP,KRESTM)
+
+!**** *SUSTAONL * - Routine to initialize parallel environment
+
+!     Purpose.
+!     --------
+!           Initialize D%NSTA and D%NONL.
+!           Calculation of distribution of grid points to processors :
+!           Splitting of grid in B direction
+
+!**   Interface.
+!     ----------
+!        *CALL* *SUSTAONL *
+
+!        Explicit arguments : KMEDIAP - mean number of grid points per PE
+!        -------------------- KRESTM  - number of PEs with one extra point
+
+!        Implicit arguments :
+!        --------------------
+
+
+!     Method.
+!     -------
+!        See documentation
+
+!     Externals.   NONE.
+!     ----------
+
+!     Reference.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+
+!     Author.
+!     -------
+!        MPP Group *ECMWF*
+
+!     Modifications.
+!     --------------
+!        Original : 95-10-01
+!        Modified 98-08-10 by K. YESSAD: removal of LRPOLE option.
+!          - removal of LRPOLE in YOMCT0.
+!          - removal of code under LRPOLE.
+!        Modified 98-12-04 C. Fischer: merge with SUESTAONL (Aladin)
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+!USE MPL_MODULE      ! MPL 4.12.08
+
+USE TPM_GEN
+USE TPM_DIM
+USE TPM_GEOMETRY
+USE TPM_DISTR
+
+USE SET2PE_MOD
+USE ABORT_TRANS_MOD
+USE EQ_REGIONS_MOD
+
+IMPLICIT NONE
+
+
+!     DUMMY 
+INTEGER(KIND=JPIM),INTENT(IN) :: KMEDIAP
+INTEGER(KIND=JPIM),INTENT(IN) :: KRESTM
+
+!     LOCAL
+
+INTEGER(KIND=JPIM) :: IXPTLAT(R%NDGL), ILSTPTLAT(R%NDGL)
+INTEGER(KIND=JPIM) :: ICHK(R%NDLON,R%NDGL), ICOMBUF(R%NDGL*N_REGIONS_EW*2)
+INTEGER(KIND=JPIM) :: I1, I2, IBUFLEN, IDGLG, IDWIDE,&
+             &IGL, IGL1, IGL2, IGLOFF, IGPTA, IGPTOT, &
+             &IGPTPRSETS, IGPTS, IGPTSP, ILEN, ILRECV, &
+             &ILSEND, INPLAT, INXLAT, IPART,  IPOS, &
+             &IPROCB, IPTSRE, IRECV, IPE, &
+             &IREST, ISEND, ITAG, JA, JB, JGL, JL, JNPTSRE
+
+LOGICAL :: LLABORT, LLALLAT
+LOGICAL :: LLP1,LLP2
+
+REAL(KIND=JPRB) ::  ZLAT, ZLAT1
+REAL(KIND=JPRB) :: ZDIVID(R%NDGL),ZXPTLAT(R%NDGL)
+
+!      -----------------------------------------------------------------
+
+LLP1 = NPRINTLEV>0
+LLP2 = NPRINTLEV>1
+
+IDWIDE  = R%NDGL/2
+IBUFLEN = R%NDGL*N_REGIONS_EW*2
+IDGLG   = R%NDGL
+
+I1 = MAX(   1,D%NFRSTLAT(MY_REGION_NS)-D%NFRSTLOFF)
+I2 = MIN(IDGLG,D%NLSTLAT (MY_REGION_NS)-D%NFRSTLOFF)
+
+ILEN = D%NLSTLAT(MY_REGION_NS) - D%NFRSTLAT(MY_REGION_NS)+1
+
+IGPTPRSETS = SUM(G%NLOEN(1:D%NFRSTLAT(MY_REGION_NS)-1))
+
+IGPTOT = SUM(G%NLOEN(1:R%NDGL))
+
+IF (D%LSPLIT) THEN
+  IF( LEQ_REGIONS )THEN
+    IPE=0
+    IGPTA=0
+    DO JA=1,MY_REGION_NS-1
+      DO JB=1,N_REGIONS(JA)
+        IPE=IPE+1
+        IF( IPE <= KRESTM .OR. KRESTM  ==  0)THEN
+          IGPTA  = IGPTA + KMEDIAP
+        ELSE
+          IGPTA  = IGPTA + (KMEDIAP-1)
+        ENDIF
+      ENDDO
+    ENDDO
+    IGPTS=0
+    DO JB=1,N_REGIONS(MY_REGION_NS)
+      IPE=IPE+1
+      IF( IPE <= KRESTM .OR. KRESTM  ==  0 )THEN
+        IGPTS = IGPTS + KMEDIAP
+      ELSE
+        IGPTS = IGPTS + (KMEDIAP-1)
+      ENDIF
+    ENDDO
+  ELSE
+    IF (MY_REGION_NS <= KRESTM.OR.KRESTM == 0) THEN
+      IGPTS = KMEDIAP
+      IGPTA = KMEDIAP*(MY_REGION_NS-1)
+    ELSE
+      IGPTS = KMEDIAP-1
+      IGPTA = KMEDIAP*KRESTM+IGPTS*(MY_REGION_NS-1-KRESTM)
+    ENDIF
+  ENDIF
+ELSE
+  IGPTA = IGPTPRSETS
+  IGPTS = SUM(G%NLOEN(D%NFRSTLAT(MY_REGION_NS):D%NLSTLAT(MY_REGION_NS)))
+ENDIF
+
+IGPTSP = IGPTS/N_REGIONS(MY_REGION_NS)
+IREST = IGPTS-N_REGIONS(MY_REGION_NS)*IGPTSP
+IXPTLAT(1) = IGPTA-IGPTPRSETS+1
+ZXPTLAT(1) = REAL(IXPTLAT(1))
+ILSTPTLAT(1) = G%NLOEN(D%NFRSTLAT(MY_REGION_NS))
+INPLAT = G%NLOEN(D%NFRSTLAT(MY_REGION_NS))-IXPTLAT(1)+1
+DO JGL=2,ILEN
+  IXPTLAT(JGL) = 1
+  ZXPTLAT(JGL) = 1.0_JPRB
+  ILSTPTLAT(JGL) =  G%NLOEN(D%NFRSTLAT(MY_REGION_NS)+JGL-1)
+  INPLAT = INPLAT+G%NLOEN(D%NFRSTLAT(MY_REGION_NS)+JGL-1)
+ENDDO
+ILSTPTLAT(ILEN) = G%NLOEN(D%NLSTLAT(MY_REGION_NS))-INPLAT+IGPTS
+
+DO JB=1,N_REGIONS_EW
+  DO JGL=1,R%NDGL+N_REGIONS_NS-1
+    D%NSTA(JGL,JB) = 0
+    D%NONL(JGL,JB) = 0
+  ENDDO
+ENDDO
+
+
+!  grid point decomposition
+!  ---------------------------------------
+LLALLAT = (N_REGIONS_NS == 1)
+DO JGL=1,ILEN
+  ZDIVID(JGL)=REAL(G%NLOEN(D%NFRSTLAT(MY_REGION_NS)+JGL-1),JPRB)
+ENDDO
+DO JB=1,N_REGIONS(MY_REGION_NS)
+
+  IF (JB <= IREST) THEN
+    IPTSRE = IGPTSP+1
+  ELSE
+    IPTSRE = IGPTSP
+  ENDIF
+
+  IPART=0
+  DO JNPTSRE=1,IPTSRE
+    ZLAT  = 1._JPRB
+    ZLAT1 = 1._JPRB
+    IF (MY_REGION_NS <= D%NAPSETS .AND.(IPART /= 2.OR.LLALLAT)) THEN
+!cdir novector
+      DO JGL=1,ILEN
+        IF (IXPTLAT(JGL)  <=  ILSTPTLAT(JGL)) THEN
+          ZLAT1  = (ZXPTLAT(JGL)-1.0_JPRB)/ZDIVID(JGL)
+          ZLAT   = MIN(ZLAT1,ZLAT)
+          INXLAT = JGL
+          IPART  = 1
+          EXIT
+        ENDIF
+      ENDDO
+    ELSEIF (MY_REGION_NS > N_REGIONS_NS-D%NAPSETS.AND.(IPART /= 1.OR.LLALLAT)) THEN
+!cdir novector
+      DO JGL=1,ILEN
+        IF (IXPTLAT(JGL)  <=  ILSTPTLAT(JGL)) THEN
+          ZLAT1  = (ZXPTLAT(JGL)-1.0_JPRB)/ZDIVID(JGL)
+          ZLAT   = MIN(ZLAT1,ZLAT)
+          INXLAT = JGL
+          IPART  = 2
+          EXIT
+        ENDIF
+      ENDDO
+    ELSE
+!cdir novector
+      DO JGL=1,ILEN
+        IF (IXPTLAT(JGL)  <=  ILSTPTLAT(JGL)) THEN
+          ZLAT1 = (ZXPTLAT(JGL)-1.0_JPRB)/ZDIVID(JGL)
+          IF (ZLAT1 < ZLAT) THEN
+            ZLAT   = ZLAT1
+            INXLAT = JGL
+          ENDIF
+        ENDIF
+      ENDDO
+    ENDIF
+
+    IF (INXLAT >= I1 .AND. INXLAT <= I2) THEN
+      IF (D%NSTA(D%NPTRFLOFF+INXLAT,JB) == 0) THEN
+        D%NSTA(D%NPTRFLOFF+INXLAT,JB) = IXPTLAT(INXLAT)
+      ENDIF
+      D%NONL(D%NPTRFLOFF+INXLAT,JB) = D%NONL(D%NPTRFLOFF+INXLAT,JB)+1
+    ENDIF
+    IXPTLAT(INXLAT) = IXPTLAT(INXLAT)+1
+    ZXPTLAT(INXLAT) = REAL(IXPTLAT(INXLAT),JPRB)
+  ENDDO
+ENDDO
+
+
+! Exchange local partitioning info to produce global view
+!
+
+IF( NPROC > 1 )THEN
+
+  IF( LEQ_REGIONS )THEN
+
+    ITAG = MTAGPART
+    IPOS = 0
+    DO JGL=1,D%NLSTLAT(MY_REGION_NS)-D%NFRSTLAT(MY_REGION_NS)+1
+      IPOS = IPOS+1
+      ICOMBUF(IPOS) = D%NSTA(D%NPTRFLOFF+JGL,MY_REGION_EW)
+      IPOS = IPOS+1
+      ICOMBUF(IPOS) = D%NONL(D%NPTRFLOFF+JGL,MY_REGION_EW)
+    ENDDO
+    IF( IPOS > IBUFLEN )THEN
+      CALL ABORT_TRANS(' SUSTAONL: SEND BUFFER TOO SMALL FOR GLOBAL INFO')
+    ENDIF
+    ILSEND = IPOS
+
+    DO JA=1,N_REGIONS_NS
+      DO JB=1,N_REGIONS(JA)
+        CALL SET2PE(ISEND,JA,JB,0,0)
+        IF(ISEND /= MYPROC) THEN
+!         CALL MPL_SEND(ICOMBUF(1:ILSEND),KDEST=NPRCIDS(ISEND),KTAG=ITAG, &
+!          &   CDSTRING='SUSTAONL:')
+!         MPL 4.12.08
+          CALL ABOR1(' SUSTAONL: JUSTE APRES MPL_SEND')
+        ENDIF
+      ENDDO
+    ENDDO
+
+    DO JA=1,N_REGIONS_NS
+      IGL1 = D%NFRSTLAT(JA)
+      IGL2 = D%NLSTLAT(JA)
+      DO JB=1,N_REGIONS(JA)
+        CALL SET2PE(IRECV,JA,JB,0,0)
+        IF(IRECV /= MYPROC) THEN
+          ILEN = (D%NLSTLAT(JA)-D%NFRSTLAT(JA)+1)*2
+!         CALL MPL_RECV(ICOMBUF(1:ILEN),KSOURCE=NPRCIDS(IRECV),KTAG=ITAG, &
+!          & KOUNT=ILRECV,CDSTRING='SUSTAONL:')
+!         MPL 4.12.08
+          CALL ABOR1(' SUSTAONL: JUSTE APRES MPL_RCV')
+          IPOS = 0
+          DO JGL=IGL1,IGL2
+            IGL = D%NPTRFRSTLAT(JA)+JGL-IGL1
+            IPOS = IPOS+1
+            D%NSTA(IGL,JB) = ICOMBUF(IPOS)
+            IPOS = IPOS+1
+            D%NONL(IGL,JB) = ICOMBUF(IPOS)
+          ENDDO
+        ENDIF
+      ENDDO
+    ENDDO
+
+  ELSE
+
+    ITAG = MTAGPART
+    IPOS = 0
+    DO JB=1,N_REGIONS(MY_REGION_NS)
+      DO JGL=1,D%NLSTLAT(MY_REGION_NS)-D%NFRSTLAT(MY_REGION_NS)+1
+        IPOS = IPOS+1
+        ICOMBUF(IPOS) = D%NSTA(D%NPTRFLOFF+JGL,JB)
+        IPOS = IPOS+1
+        ICOMBUF(IPOS) = D%NONL(D%NPTRFLOFF+JGL,JB)
+      ENDDO
+    ENDDO
+    IF( IPOS > IBUFLEN )THEN
+      CALL ABORT_TRANS(' SUSTAONL: SEND BUFFER TOO SMALL FOR GLOBAL INFO')
+    ENDIF
+    ILSEND = IPOS
+    DO JA=1,N_REGIONS_NS
+      CALL SET2PE(ISEND,JA,MY_REGION_EW,0,0)
+      IF(ISEND /= MYPROC) THEN
+!       CALL MPL_SEND(ICOMBUF(1:ILSEND),KDEST=NPRCIDS(ISEND),KTAG=ITAG, &
+!        &   CDSTRING='SUSTAONL:')
+!         MPL 4.12.08
+          CALL ABOR1(' SUSTAONL: JUSTE APRES MPL_SEND')
+      ENDIF
+    ENDDO
+
+    DO JA=1,N_REGIONS_NS
+      CALL SET2PE(IRECV,JA,MY_REGION_EW,0,0)
+      IF(IRECV /= MYPROC) THEN
+        ILEN = (D%NLSTLAT(JA)-D%NFRSTLAT(JA)+1)*N_REGIONS(JA)*2
+!       CALL MPL_RECV(ICOMBUF(1:ILEN),KSOURCE=NPRCIDS(IRECV),KTAG=ITAG, &
+!        & KOUNT=ILRECV,CDSTRING='SUSTAONL:')
+!         MPL 4.12.08
+          CALL ABOR1(' SUSTAONL: JUSTE APRES MPL_RCV')
+        IGL1 = D%NFRSTLAT(JA)
+        IGL2 = D%NLSTLAT(JA)
+        IPOS = 0
+        DO JB=1,N_REGIONS(JA)
+          DO JGL=IGL1,IGL2
+            IGL = D%NPTRFRSTLAT(JA)+JGL-IGL1
+            IPOS = IPOS+1
+            D%NSTA(IGL,JB) = ICOMBUF(IPOS)
+            IPOS = IPOS+1
+            D%NONL(IGL,JB) = ICOMBUF(IPOS)
+          ENDDO
+        ENDDO
+      ENDIF
+    ENDDO
+
+  ENDIF
+
+ENDIF
+
+! Confirm consistency of global partitioning, specifically testing for
+! multiple assignments of same grid point and unassigned grid points
+
+LLABORT = .FALSE.
+DO JGL=1,R%NDGL
+  DO JL=1,G%NLOEN(JGL)
+    ICHK(JL,JGL) = 1
+  ENDDO
+ENDDO
+DO JA=1,N_REGIONS_NS
+  IGLOFF = D%NPTRFRSTLAT(JA)
+  DO JB=1,N_REGIONS(JA)
+    IGL1 = D%NFRSTLAT(JA)
+    IGL2 = D%NLSTLAT(JA)
+    DO JGL=IGL1,IGL2
+      IGL = IGLOFF+JGL-IGL1
+      DO JL=D%NSTA(IGL,JB),D%NSTA(IGL,JB)+D%NONL(IGL,JB)-1
+        IF( ICHK(JL,JGL) /= 1 )THEN
+          WRITE(NOUT,'(" SUSTAONL : seta=",i4," setb=",i4,&
+           &" row=",I4," sta=",I4," INVALID GRID POINT")')&
+           &JA,JB,JGL,JL
+          WRITE(0,'(" SUSTAONL : seta=",i4," setb=",i4,&
+           &" ROW=",I4," sta=",I4," INVALID GRID POINT")')&
+           &JA,JB,JGL,JL
+          LLABORT = .TRUE.
+        ENDIF
+        ICHK(JL,JGL) = 2
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+DO JGL=1,R%NDGL
+  DO JL=1,G%NLOEN(JGL)
+    IF( ICHK(JL,JGL) /= 2 )THEN
+      WRITE(NOUT,'(" SUSTAONL : row=",i4," sta=",i4,&
+       &" GRID POINT NOT ASSIGNED")') JGL,JL
+      LLABORT = .TRUE.
+    ENDIF
+  ENDDO
+ENDDO
+IF( LLABORT )THEN
+  WRITE(NOUT,'(" SUSTAONL : inconsistent partitioning")')
+  CALL ABORT_TRANS(' SUSTAONL: inconsistent partitioning')
+ENDIF
+
+
+IF (LLP1) THEN
+  WRITE(UNIT=NOUT,FMT='('' OUTPUT FROM ROUTINE SUSTAONL '')')
+  WRITE(UNIT=NOUT,FMT='('' '')')
+  WRITE(UNIT=NOUT,FMT='('' PARTITIONING INFORMATION '')')
+  WRITE(UNIT=NOUT,FMT='('' '')')
+  IPROCB = MIN(32,N_REGIONS_EW)
+  WRITE(UNIT=NOUT,FMT='(17X," SETB=",32(1X,I3))') (JB,JB=1,IPROCB)
+  DO JA=1,N_REGIONS_NS
+    IPROCB = MIN(32,N_REGIONS(JA))
+    WRITE(UNIT=NOUT,FMT='('' '')')
+    IGLOFF = D%NPTRFRSTLAT(JA)
+    IGL1 = D%NFRSTLAT(JA)
+    IGL2 = D%NLSTLAT(JA)
+    DO JGL=IGL1,IGL2
+      IGL=IGLOFF+JGL-IGL1
+      WRITE(UNIT=NOUT,FMT='(" SETA=",I3," LAT=",I3," NSTA=",&
+       &32(1X,I3))') JA,JGL,(D%NSTA(IGL,JB),JB=1,IPROCB)
+      WRITE(UNIT=NOUT,FMT='(" SETA=",I3," LAT=",I3," D%NONL=",&
+       &32(1X,I3))') JA,JGL,(D%NONL(IGL,JB),JB=1,IPROCB)
+      WRITE(UNIT=NOUT,FMT='('' '')')
+    ENDDO
+    WRITE(UNIT=NOUT,FMT='('' '')')
+  ENDDO
+  WRITE(UNIT=NOUT,FMT='('' '')')
+  WRITE(UNIT=NOUT,FMT='('' '')')
+ENDIF
+
+!     ------------------------------------------------------------------
+
+END SUBROUTINE SUSTAONL
+END MODULE SUSTAONL_MOD
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/susurf.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/susurf.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/susurf.h	(revision 1989)
@@ -0,0 +1,98 @@
+SUBROUTINE SUSURF(KSW,KCSS,KSIL,KTILES,KTSW,&
+ & LD_LLCCNL,LD_LLCCNO,LD_LEOCWA,LD_LEOCCO,LD_LEOCSA,LD_LLE4ALB,&
+ & LD_LSCMEC,LD_LROUGH,PEXTZ0M,PEXTZ0H,&
+ & PTHRFRTI,PTSTAND,PXP,PRCCNSEA,PRCCNLND,&
+ & PRSUN)
+
+!**   *SUSURF* IS THE SET-UP ROUTINE FOR surface modules containing constants
+
+!     PURPOSE
+!     -------
+!          THIS ROUTINE INITIALIZES THE CONSTANTS IN COMMON BLOCK
+!     *YOESOIL*
+
+!     INTERFACE.
+!     ----------
+!     CALL *SUSURF* FROM *SUPHEC*
+
+!     METHOD.
+!     -------
+
+!     EXTERNALS.
+!     ----------
+
+!     REFERENCE.
+!     ----------
+
+!     Original    A.C.M. BELJAARS         E.C.M.W.F.      89/11/02
+!     MODIFICATIONS
+!     -------------
+!     J.-J. MORCRETTE         E.C.M.W.F.      91/07/14
+!     P. VITERBO              E.C.M.W.F.       8/10/93
+!     P. Viterbo     99-03-26    Tiling of the land surface
+!     C. Fischer 00-12-20 Meteo-France recode initialization of rdat to avoid
+!                         memory overflow on SUN workstation
+!     J.F. Estrade *ECMWF* 03-10-01 move in surf vob
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!     P. Viterbo   ECMWF   03-12-2004  Include user-defined RTHRFRTI
+!     P. Viterbo   ECMWF   May 2005    Externalise surf
+!        JJMorcrette 20060511 MODIS albedo
+
+!  INTERFACE: 
+
+!    Integers (In):
+
+!      KSW       : NUMBER OF SHORTWAVE SPECTRAL INTERVALS
+!      KCSS      : Number of soil levels
+!      KSIL      : NUMBER OF (infrared) SPECTRAL INTERVALS
+!      KTILES    : Number of surface tiles
+!      KTSW      : Maximum possible number of sw spectral intervals
+
+!    Logicals (In):
+
+!      LD_LLCCNL : .T. IF CCN CONCENTRATION OVER LAND IS DIAGNOSED
+!      LD_LLCCNO : .T. IF CCN CONCENTRATION OVER OCEAN IS DIAGNOSED
+!      LD_LLE4ALB: .T. IF MODIS ALBEDO IS USED
+
+!    Reals (In):
+
+!      PTHRFRTI  : ! MINIMUM THRESHOLD FOR TILE FRACTION
+!      PTSTAND   : ! REFERENCE TEMPERATURE FOR TEMPERATURE DEPENDENCE
+!      PXP       : ! POLYNOMIAL COEFFICIENTS OF PLANCK FUNCTION
+!      PRCCNSEA  : ! NUMBER CONCENTRATION (CM-3) OF CCNs OVER SEA
+!      PRCCNLND  : ! NUMBER CONCENTRATION (CM-3) OF CCNs OVER LAND
+!      PRSUN     : ! SOLAR FRACTION IN SPECTRAL INTERVALS
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+! Declaration of arguments
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KSW 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTHRFRTI
+INTEGER(KIND=JPIM),INTENT(IN)    :: KCSS  
+INTEGER(KIND=JPIM),INTENT(IN)    :: KSIL 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KTILES 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KTSW 
+LOGICAL           ,INTENT(IN)    :: LD_LLCCNL 
+LOGICAL           ,INTENT(IN)    :: LD_LLCCNO  
+LOGICAL           ,INTENT(IN)    :: LD_LEOCWA
+LOGICAL           ,INTENT(IN)    :: LD_LEOCCO
+LOGICAL           ,INTENT(IN)    :: LD_LEOCSA
+LOGICAL           ,INTENT(IN)    :: LD_LLE4ALB
+LOGICAL           ,INTENT(IN)    :: LD_LSCMEC
+LOGICAL           ,INTENT(IN)    :: LD_LROUGH
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PEXTZ0M
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PEXTZ0H
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTSTAND 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PXP(6,6) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PRCCNSEA 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PRCCNLND 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PRSUN(:) 
+
+!     ------------------------------------------------------------------
+
+END SUBROUTINE SUSURF
Index: LMDZ5/trunk/libf/phylmd/rrtm/susw15.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/susw15.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/susw15.F90	(revision 1989)
@@ -0,0 +1,149 @@
+!OPTIONS XOPT(NOEVAL)
+SUBROUTINE SUSW15
+
+!**** *SUSW15*   - INITIALIZE COMMON YOMSW15
+!****              FROZEN VERSION (CYCLE 15) OF SUSW
+
+!     PURPOSE.
+!     --------
+!           INITIALIZE YOMSW15, THE COMMON THAT CONTAINS COEFFICIENTS
+!           NEEDED TO RUN THE SHORTWAVE RADIATION SUBROUTINES
+
+!**   INTERFACE.
+!     ----------
+!        *CALL* *SUSW15
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!        NONE
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+!        COMMON YOMSW15
+
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+
+!     EXTERNALS.
+!     ----------
+
+!     REFERENCE.
+!     ----------
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+
+!     AUTHOR.
+!     -------
+!        96-11: Ph. Dandin. Meteo-France
+!        ORIGINAL : 88-12-15 BY JEAN-JACQUES MORCRETTE *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOMCST   , ONLY : RG
+USE YOMSW15  , ONLY : APAD15   ,BPAD15   ,RRAY15   ,RSUN15   ,&
+ & RPDH115  ,RPDU115  ,RPNH15   ,RPNU15   ,RSWCE15  ,&
+ & RSWCP15  ,RTDH2O15 ,RTDUMG15 ,RTH2O15  ,RTUMG15  ,D15  
+
+!      ----------------------------------------------------------------
+
+!*       1.    SET VALUES.
+!              -----------
+
+IMPLICIT NONE
+REAL(KIND=JPRB)   :: ZPDH2O=0.8_JPRB
+REAL(KIND=JPRB)   :: ZPDUMG=0.75_JPRB
+REAL(KIND=JPRB)   :: ZPRH2O=30000._JPRB
+REAL(KIND=JPRB)   :: ZPRUMG=30000._JPRB
+
+REAL(KIND=JPRB) :: ZH2O, ZUMG
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('SUSW15',0,ZHOOK_HANDLE)
+RPDH115=ZPDH2O+1.0_JPRB
+RPDU115=ZPDUMG+1.0_JPRB
+ZH2O=1.0_JPRB/( 10._JPRB* RG * RPDH115 )
+ZUMG=1.0_JPRB/( 10._JPRB* RG * RPDU115 )
+RPNU15 = ZUMG/(ZPRUMG**ZPDUMG)
+RPNH15 = ZH2O/(ZPRH2O**ZPDH2O)
+
+RSWCP15=0.002_JPRB*RSWCE15
+
+RTDH2O15 = 0.40_JPRB
+RTDUMG15 = 0.375_JPRB
+RTH2O15 = 240._JPRB
+RTUMG15 = 240._JPRB
+RSWCE15 = 0._JPRB
+RSWCP15 = 0._JPRB
+
+RSUN15(1) = 0.441676_JPRB
+D15(1,:) = (/ 0.00_JPRB, 0.00_JPRB, 0.00_JPRB /)
+!* DERIVED FROM HITRAN APRIL 1991
+!       H2O:  Pref=300 hPa, Tref=240K, Pdep=0.8
+!       O3 :  unchanged
+
+APAD15(1,1:3,1:7) = RESHAPE((/&
+ & 0.912418292E+05_JPRB, 0.000000000E-00_JPRB, 0.925887084E-04_JPRB,&
+ & 0.723613782E+05_JPRB, 0.000000000E-00_JPRB, 0.129353723E-01_JPRB,&
+ & 0.596037057E+04_JPRB, 0.000000000E-00_JPRB, 0.800821928E+00_JPRB,&
+ & 0.000000000E-00_JPRB, 0.000000000E-00_JPRB, 0.242715973E+02_JPRB,&
+ & 0.000000000E-00_JPRB, 0.000000000E-00_JPRB, 0.878331486E+02_JPRB,&
+ & 0.000000000E-00_JPRB, 0.000000000E-00_JPRB, 0.191559725E+02_JPRB,&
+ & 0.000000000E-00_JPRB, 0.000000000E-00_JPRB, 0.000000000E+00_JPRB /)&
+ & ,(/3,7/))  
+
+BPAD15(1,1:3,1:7) = RESHAPE((/&
+ & 0.912418292E+05_JPRB, 0.000000000E-00_JPRB, 0.925887084E-04_JPRB,&
+ & 0.724555318E+05_JPRB, 0.000000000E-00_JPRB, 0.131812683E-01_JPRB,&
+ & 0.602593328E+04_JPRB, 0.000000000E-00_JPRB, 0.812706117E+00_JPRB,&
+ & 0.100000000E+01_JPRB, 0.000000000E-00_JPRB, 0.249863591E+02_JPRB,&
+ & 0.000000000E-00_JPRB, 0.000000000E-00_JPRB, 0.931071925E+02_JPRB,&
+ & 0.000000000E-00_JPRB, 0.000000000E-00_JPRB, 0.252233437E+02_JPRB,&
+ & 0.000000000E-00_JPRB, 0.000000000E-00_JPRB, 0.100000000E+01_JPRB /)&
+ & ,(/3,7/))  
+
+RRAY15(1,1:6) = (/&
+ & .428937E-01_JPRB, .890743E+00_JPRB,-.288555E+01_JPRB,&
+ & .522744E+01_JPRB,-.469173E+01_JPRB, .161645E+01_JPRB/)  
+
+RSUN15(2) = 0.558324_JPRB
+
+D15(2,1:3) = (/ 0.000000000_JPRB, 0.000000000_JPRB, 0.800000000_JPRB /)
+
+!* INTERVAL 2:  0.68 - 4.00 MICRONS
+!* DERIVED FROM HITRAN APRIL 1991
+!       H2O:  Pref=300 hPa, Tref=240K, Pdep=0.80
+!       UMG:  Pref=300 hPa, Tref=240K, Pdep=0.75 (CO2+O2+CH4+N2O+CO)
+!       O3 :  unchanged
+
+APAD15(2,1:3,1:7) = RESHAPE((/&
+ & 0.376655383E-08_JPRB, 0.739646016E-08_JPRB, 0.410177786E+03_JPRB,&
+ & 0.978576773E-04_JPRB, 0.131849595E-03_JPRB, 0.672595424E+02_JPRB,&
+ & 0.387714006E+00_JPRB, 0.437772681E+00_JPRB, 0.000000000E-00_JPRB,&
+ & 0.118461660E+03_JPRB, 0.151345118E+03_JPRB, 0.000000000E-00_JPRB,&
+ & 0.119079797E+04_JPRB, 0.233628890E+04_JPRB, 0.000000000E-00_JPRB,&
+ & 0.293353397E+03_JPRB, 0.797219934E+03_JPRB, 0.000000000E-00_JPRB,&
+ & 0.000000000E+00_JPRB, 0.000000000E+00_JPRB, 0.000000000E+00_JPRB /)&
+ & ,(/3,7/))  
+
+BPAD15(2,1:3,1:7) = RESHAPE((/&
+ & 0.376655383E-08_JPRB, 0.739646016E-08_JPRB, 0.410177786E+03_JPRB,&
+ & 0.979023421E-04_JPRB, 0.131861712E-03_JPRB, 0.731185438E+02_JPRB,&
+ & 0.388611139E+00_JPRB, 0.437949001E+00_JPRB, 0.100000000E+01_JPRB,&
+ & 0.120291383E+03_JPRB, 0.151692730E+03_JPRB, 0.000000000E+00_JPRB,&
+ & 0.130531005E+04_JPRB, 0.237071130E+04_JPRB, 0.000000000E+00_JPRB,&
+ & 0.415049409E+03_JPRB, 0.867914360E+03_JPRB, 0.000000000E+00_JPRB,&
+ & 0.100000000E+01_JPRB, 0.100000000E+01_JPRB, 0.000000000E+00_JPRB /)&
+ & ,(/3,7/))  
+
+RRAY15(2,1:6) = (/&
+ & .697200E-02_JPRB, .173297E-01_JPRB,-.850903E-01_JPRB,&
+ & .248261E+00_JPRB,-.302031E+00_JPRB, .129662E+00_JPRB/)  
+IF (LHOOK) CALL DR_HOOK('SUSW15',1,ZHOOK_HANDLE)
+END SUBROUTINE SUSW15
Index: LMDZ5/trunk/libf/phylmd/rrtm/susw15.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/susw15.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/susw15.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SUSW15
+END SUBROUTINE SUSW15
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/suswn.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/suswn.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/suswn.F90	(revision 1989)
@@ -0,0 +1,1693 @@
+SUBROUTINE SUSWN (KTSW, KSW)
+
+!**** *SUSW*   - INITIALIZE COMMON YOESW
+
+!     PURPOSE.
+!     --------
+!           INITIALIZE YOESW, THE COMMON THAT CONTAINS COEFFICIENTS
+!           NEEDED TO RUN THE SHORTWAVE RADIATION SUBROUTINES
+
+!**   INTERFACE.
+!     ----------
+!        *CALL* *SUSW
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+!        NONE
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+!        COMMON YOESW
+
+!     METHOD.
+!     -------
+!        SEE DOCUMENTATION
+
+!     EXTERNALS.
+!     ----------
+
+!     REFERENCE.
+!     ----------
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 88-12-15
+!        97-04-16 JJ Morcrette  2 and 4 interval spectral resolution
+!        00-10-24 JJ Morcrette  sea-ice albedo revisited
+!        00-12-14 JJ Morcrette 
+!               and Ph.Dubuisson B.Bonnel 6 spectral interval resolution
+!        01-04-17 Ph.Dubuisson, B.Bonnel, JJ.Morcrette 6 sp.int.resolu'n
+!        01-06-28 B.Bonnel, JJ.Morcrette, Ph.Dubuisson  Rayleigh (2/4/6)
+!        01-11-05 Ph.Dubuisson, JJMorcrette (new 2 intervals for TL/AD)
+!        03-04-24 JJ Morcrette  SRTM with 14 spectral intervals
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOMCST   , ONLY : RG
+USE YOERAD   , ONLY : NTSW     ,LONEWSW  ,LRAYL    
+USE YOESW    , ONLY : APAD     ,BPAD     ,RRAY     ,RSUN     ,&
+ & RPDH1    ,RPDU1    ,RPNH     ,RPNU     ,RSWCE    ,&
+ & RSWCP    ,RTDH2O   ,RTDUMG   ,RTH2O    ,RTUMG    ,&
+ & D        ,RROMA    ,RROMB    ,RRASY    ,RHSRA    ,&
+ & RHSRB    ,RHSRC    ,RHSRD    ,RHSRE    ,RHSRF    ,&
+ & RHSRTA   ,RHSRTB   ,REXPO3   ,&
+ & RADJUST  ,NEXPO3  
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KTSW 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KSW 
+INTEGER(KIND=JPIM) :: IMPSRTM(14)
+
+!     ----------------------------------------------------------------
+REAL(KIND=JPRB) :: ZAPAD2(2,3,7)  , ZBPAD2(2,3,7)  , ZD2(2,3)&
+ & ,  ZRAY2(2,6)     , ZSUN2(2)       , ZSWCE2(2)  , ZSWCP2(2)&
+ & ,  ZROMA2(2)      , ZROMB2(2)  , ZRASY2(2)&
+ & ,  ZRA2(2)        , ZRB2(2)        , ZRC2(2)&
+ & ,  ZRD2(2)        , ZRE2(2)        , ZRF2(2)  
+
+REAL(KIND=JPRB) :: ZAPAD4(4,3,7)  , ZBPAD4(4,3,7)  , ZD4(4,3)&
+ & ,  ZRAY4(4,6)     , ZSUN4(4)       , ZSWCE4(4)  , ZSWCP4(4)&
+ & ,  ZROMA4(4)      , ZROMB4(4)  , ZRASY4(4)&
+ & ,  ZRA4(4)        , ZRB4(4)        , ZRC4(4)&
+ & ,  ZRD4(4)        , ZRE4(4)        , ZRF4(4)  
+  
+REAL(KIND=JPRB) :: ZAPAD6(6,3,7)  , ZBPAD6(6,3,7)  , ZD6(6,3)&
+ & ,  ZRAY6(6,6)     , ZSUN6(6)       , ZSWCE6(6)  , ZSWCP6(6)&
+ & ,  ZROMA6(6)      , ZROMB6(6)  , ZRASY6(6)&
+ & ,  ZRA6(6)        , ZRB6(6)        , ZRC6(6)&
+ & ,  ZRD6(6)        , ZRE6(6)        , ZRF6(6)&
+ & ,  ZRBY6(6,6)  
+  
+
+INTEGER(KIND=JPIM) :: JC3, JC6, JI, JJ, JW, I_K, ISW6
+
+REAL(KIND=JPRB) :: ZH2O, ZPDHNIS, ZPDH2O, ZPDUNIS,&
+ & ZPDUMG, ZPRHNIS, ZPRH2O, &
+ & ZPRUNIS, ZPRUMG, ZRTO1, ZRTO2, ZTDHNIS, &
+ & ZTDUNIS, ZTHNIS, &
+ & ZTUNIS, ZUMG, ZADJUS2, ZADJUS4, ZADJUS6  
+
+REAL(KIND=JPRB) :: ZTDH2IS, ZTDU2IS, ZTH2IS, ZTU2IS, ZPDH2IS, ZPDU2IS, ZPRH2IS, ZPRU2IS
+REAL(KIND=JPRB) :: ZTDH4IS, ZTDU4IS, ZTH4IS, ZTU4IS, ZPDH4IS, ZPDU4IS, ZPRH4IS, ZPRU4IS
+REAL(KIND=JPRB) :: ZTDH6IS, ZTDU6IS, ZTH6IS, ZTU6IS, ZPDH6IS, ZPDU6IS, ZPRH6IS, ZPRU6IS
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+#include "abor1.intfb.h"
+
+!     ----------------------------------------------------------------
+
+!*        1.  CLEAR-SKY ABSORPTION COEFFICIENTS FOR N SPECTRAL INTERVALS
+!             --------------------------------------------------------
+
+!* spectrally independent
+
+!-- New coefficients
+
+IF (LHOOK) CALL DR_HOOK('SUSWN',0,ZHOOK_HANDLE)
+ZTDHNIS = 0.450_JPRB
+ZTDUNIS = 0.375_JPRB
+ZTHNIS  = 273._JPRB
+ZTUNIS  = 273._JPRB
+ZPDHNIS = 0.90_JPRB
+ZPDUNIS = 0.75_JPRB
+ZPRHNIS = 101300._JPRB
+ZPRUNIS = 101300._JPRB
+ISW6=6
+
+!     ----------------------------------------------------------------
+
+!*        1.1  COEFFICIENTS FOR TWO SPECTRAL INTERVALS
+!              ---------------------------------------
+
+!* DERIVED FROM HITRAN APRIL 1992 with LOWTRAN P AND T SCALING
+!       H2O:  Pref=1000hPa, Tref=296K, Pdep=0.9
+!       UMG:  Pref=1000hPa, Tref=296K, Pdep=0.75 (CO2+N2O+CO+CH4+O2)
+!       O3 :  unchanged in interval 1, from HITRAN 92 in interval 4
+
+ZADJUS2 = 1.0_JPRB
+ZTDH2IS = 0.450_JPRB
+ZTDU2IS = 0.375_JPRB
+ZTH2IS  = 273._JPRB
+ZTU2IS  = 273._JPRB
+ZPDH2IS = 0.90_JPRB
+ZPDU2IS = 0.75_JPRB
+ZPRH2IS = 101300._JPRB
+ZPRU2IS = 101300._JPRB
+
+!* 1st spectral interval: U.V. and Visible (0.25 - 0.69 Micron)
+
+ZSUN2(1) = 0.459760_JPRB
+
+!-- New coefficients 
+ZD2(1,:)= (/ 0.800000000_JPRB, 0.900000000_JPRB, 0.000000000_JPRB /)
+
+ZAPAD2(1, 1, :) = (/&
+ & 0.1095121E+03_JPRB,&
+ & 0.8906647E+03_JPRB,&
+ & 0.1030601E+03_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB/)  
+ZAPAD2(1, 2, :) = (/&
+ & 0.5124541E+03_JPRB,&
+ & 0.3478800E+04_JPRB,&
+ & 0.1244272E+04_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB/)  
+ZAPAD2(1, 3, :) = (/&
+ & 0.4766857E-04_JPRB,&
+ & 0.4019806E-02_JPRB,&
+ & 0.1936247E+00_JPRB,&
+ & 0.1886522E+02_JPRB,&
+ & 0.6498215E+02_JPRB,&
+ & 0.1799387E+02_JPRB,&
+ & 0.000000000E+00_JPRB/)  
+
+ZBPAD2(1, 1, :) = (/&
+ & 0.1095121E+03_JPRB,&
+ & 0.8919103E+03_JPRB,&
+ & 0.1142218E+03_JPRB,&
+ & 0.100000000E+01_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB/)  
+ZBPAD2(1, 2, :) = (/&
+ & 0.5124541E+03_JPRB,&
+ & 0.3499516E+04_JPRB,&
+ & 0.1278186E+04_JPRB,&
+ & 0.100000000E+01_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB/)  
+ZBPAD2(1, 3, :) = (/&
+ & 0.4766857E-04_JPRB,&
+ & 0.4153343E-02_JPRB,&
+ & 0.1925810E+00_JPRB,&
+ & 0.1938938E+02_JPRB,&
+ & 0.6918191E+02_JPRB,&
+ & 0.2278795E+02_JPRB,&
+ & 0.100000000E+01_JPRB/)  
+
+ZRAY2(1,:)= (/&
+ & .389107E-01_JPRB, .101608E+01_JPRB,-.354921E+01_JPRB,&
+ & .659510E+01_JPRB,-.592423E+01_JPRB, .202348E+01_JPRB/)  
+
+!-- Original coefficients of ECMWF model (before 27 June 2000)
+
+!ZTDH2IS = 0.450_JPRB
+!ZTDU2IS = 0.375_JPRB
+!ZTH2IS  = 296._JPRB
+!ZTU2IS  = 296._JPRB
+!ZPDH2IS = 0.90_JPRB
+!ZPDU2IS = 0.75_JPRB
+!ZPRH2IS = 100000._JPRB
+!ZPRU2IS = 100000._JPRB
+
+!ZD2(1,:)= (/ 0.000000000_JPRB, 0.000000000_JPRB, 0.000000000_JPRB /)
+
+!ZAPAD2(1, 1, :) = (/&
+! &0.184678379E+06_JPRB,&
+! &0.553080884E+05_JPRB,&
+! &0.248143712E+04_JPRB,&
+! &0.000000000E-00_JPRB,&
+! &0.000000000E-00_JPRB,&
+! &0.000000000E-00_JPRB,&
+! &0.000000000E-00_JPRB/)
+!ZAPAD2(1, 2, :) = (/&
+! &0.715303869E+01_JPRB,&
+! &0.219386847E+03_JPRB,&
+! &0.830001089E+03_JPRB,&
+! &0.000000000E-00_JPRB,&
+! &0.000000000E-00_JPRB,&
+! &0.000000000E-00_JPRB,&
+! &0.000000000E-00_JPRB/)
+!ZAPAD2(1, 3, :) = (/&
+! &0.925887084E-04_JPRB,&
+! &0.129353723E-01_JPRB,&
+! &0.800821928E+00_JPRB,&
+! &0.242715973E+02_JPRB,&
+! &0.878331486E+02_JPRB,&
+! &0.191559725E+02_JPRB,&
+! &0.000000000E+00_JPRB/)
+
+!ZBPAD2(1, 1, :) = (/&
+! &0.184678379E+06_JPRB,&
+! &0.555188347E+05_JPRB,&
+! &0.253257443E+04_JPRB,&
+! &0.100000000E+01_JPRB,&
+! &0.000000000E-00_JPRB,&
+! &0.000000000E-00_JPRB,&
+! &0.000000000E-00_JPRB/)
+!ZBPAD2(1, 2, :) = (/&
+! &0.715303869E+01_JPRB,&
+! &0.219441875E+03_JPRB,&
+! &0.831119997E+03_JPRB,&
+! &0.100000000E+01_JPRB,&
+! &0.000000000E-00_JPRB,&
+! &0.000000000E-00_JPRB,&
+! &0.000000000E-00_JPRB/)
+!ZBPAD2(1, 3, :) = (/&
+! &0.925887084E-04_JPRB,&
+! &0.131812683E-01_JPRB,&
+! &0.812706117E+00_JPRB,&
+! &0.249863591E+02_JPRB,&
+! &0.931071925E+02_JPRB,&
+! &0.252233437E+02_JPRB,&
+! &0.100000000E+01_JPRB/)
+
+ZRAY2(1,:)= (/&
+ & .428937E-01_JPRB, .890743E+00_JPRB,-.288555E+01_JPRB,&
+ & .522744E+01_JPRB,-.469173E+01_JPRB, .161645E+01_JPRB/)  
+
+ZSWCE2(1) = 0.0_JPRB
+ZSWCP2(1) = 0.0_JPRB
+
+!     ----------------------------------------------------------------
+
+!* Near-Infrared (0.69 - 4.0 Microns) is not sub-divided
+
+!     ----------------------------------------------------------------
+
+!* 0.68 - 4.00 Micron
+
+ZSUN2(2) = 0.540240_JPRB
+
+!-- New coefficients
+
+ZD2(2,:)= (/ 0.000000000_JPRB, 0.900000000_JPRB, 0.000000000_JPRB/)
+
+ZAPAD2(2, 1, :) = (/&
+ & 0.1345066E-03_JPRB,&
+ & 0.9276888E+00_JPRB,&
+ & 0.3449105E+03_JPRB,&
+ & 0.7143025E+04_JPRB,&
+ & 0.6531248E+04_JPRB,&
+ & 0.2210815E+03_JPRB,&
+ & 0.0000000E+00_JPRB/)  
+ZAPAD2(2, 2, :) = (/&
+ & 0.7776703E-05_JPRB,&
+ & 0.6851592E-02_JPRB,&
+ & 0.5533947E+00_JPRB,&
+ & 0.2538585E+01_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB/)  
+ZAPAD2(2, 3, :) = (/&
+ & 0.932012720E+02_JPRB,&
+ & 0.437866983E+03_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E+00_JPRB/)  
+
+ZBPAD2(2, 1, :) = (/&
+ & 0.1345066E-03_JPRB,&
+ & 0.9297728E+00_JPRB,&
+ & 0.3523821E+03_JPRB,&
+ & 0.7931590E+04_JPRB,&
+ & 0.8979086E+04_JPRB,&
+ & 0.5050864E+03_JPRB,&
+ & 0.1000000E+01_JPRB/)  
+ZBPAD2(2, 2, :) = (/&
+ & 0.7776703E-05_JPRB,&
+ & 0.6976301E-02_JPRB,&
+ & 0.6074521E+00_JPRB,&
+ & 0.3517521E+01_JPRB,&
+ & 0.100000000E+01_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB/)  
+ZBPAD2(2, 3, :) = (/&
+ & 0.932012720E+02_JPRB,&
+ & 0.439078599E+03_JPRB,&
+ & 0.100000000E+01_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB/)  
+
+ZRAY2(2,:)= (/&
+ & .104635E-01_JPRB, .102535E+00_JPRB,-.536771E+00_JPRB,&
+ & .123640E+01_JPRB,-.128930E+01_JPRB, .502426E+00_JPRB/)  
+
+!-- Original coefficients of ECMWF model (before 27 June 2000)
+
+!ZD2(2,:)= (/ 0.000000000_JPRB, 0.000000000_JPRB, 0.000000000_JPRB/)
+
+!ZAPAD2(2, 1, :) = (/&
+! &0.577160808E-06_JPRB,&
+! &0.681760991E-02_JPRB,&
+! &0.502416370E+01_JPRB,&
+! &0.209771270E+03_JPRB,&
+! &0.644493139E+03_JPRB,&
+! &0.120654163E+03_JPRB,&
+! &0.000000000E+00_JPRB/)
+!ZAPAD2(2, 2, :) = (/&
+! &0.422874202E-09_JPRB,&
+! &0.257499477E-05_JPRB,&
+! &0.349570458E-02_JPRB,&
+! &0.917758876E+00_JPRB,&
+! &0.327669989E+02_JPRB,&
+! &0.874155115E+02_JPRB,&
+! &0.000000000E+00_JPRB/)
+!ZAPAD2(2, 3, :) = (/&
+! &0.932012720E+02_JPRB,&
+! &0.437866983E+03_JPRB,&
+! &0.000000000E-00_JPRB,&
+! &0.000000000E-00_JPRB,&
+! &0.000000000E-00_JPRB,&
+! &0.000000000E-00_JPRB,&
+! &0.000000000E+00_JPRB/)
+
+!ZBPAD2(2, 1, :) = (/&
+! &0.577160808E-06_JPRB,&
+! &0.682595589E-02_JPRB,&
+! &0.508797283E+01_JPRB,&
+! &0.223901000E+03_JPRB,&
+! &0.770640908E+03_JPRB,&
+! &0.186812480E+03_JPRB,&
+! &0.100000000E+01_JPRB/)
+!ZBPAD2(2, 2, :) = (/&
+! &0.422874202E-09_JPRB,&
+! &0.257567242E-05_JPRB,&
+! &0.349912408E-02_JPRB,&
+! &0.920770481E+00_JPRB,&
+! &0.330990960E+02_JPRB,&
+! &0.903249595E+02_JPRB,&
+! &0.100000000E+01_JPRB/)
+!ZBPAD2(2, 3, :) = (/&
+! &0.932012720E+02_JPRB,&
+! &0.439078599E+03_JPRB,&
+! &0.100000000E+01_JPRB,&
+! &0.000000000E+00_JPRB,&
+! &0.000000000E+00_JPRB,&
+! &0.000000000E+00_JPRB,&
+! &0.000000000E+00_JPRB/)
+
+!ZRAY2(2,:)= (/&
+! &.697200E-02_JPRB, .173297E-01_JPRB,-.850903E-01_JPRB,&
+! &.248261E+00_JPRB,-.302031E+00_JPRB, .129662E+00_JPRB/)
+
+ZSWCE2(2) = 0.0_JPRB
+ZSWCP2(2) = 0.0_JPRB
+
+!=====================================================================
+
+!*        1.2  COEFFICIENTS FOR FOUR SPECTRAL INTERVALS
+!              ----------------------------------------
+
+!* DERIVED FROM HITRAN APRIL 1992 with LOWTRAN P AND T SCALING
+!       H2O:  Pref=1000hPa, Tref=296K, Pdep=0.9
+!       UMG:  Pref=1000hPa, Tref=296K, Pdep=0.75 (CO2+N2O+CO+CH4+O2)
+!       O3 :  unchanged in interval 1, from HITRAN 92 in interval 4
+
+ZADJUS4 = 1.0_JPRB
+
+!* 1st spectral interval: U.V. and Visible (0.25 - 0.69 Micron)
+
+ZSUN4(1) = 0.459760_JPRB
+
+!-- New coefficients
+
+!ZD4(1,:)= (/ 0.800000000_JPRB, 0.900000000_JPRB, 0.000000000_JPRB /)
+
+!ZAPAD4(1, 1, :) = (/&
+! &0.1095121E+03_JPRB,&
+! &0.8906647E+03_JPRB,&
+! &0.1030601E+03_JPRB,&
+! &0.0000000E-00_JPRB,&
+! &0.0000000E-00_JPRB,&
+! &0.0000000E-00_JPRB,&
+! &0.0000000E-00_JPRB/)
+!ZAPAD4(1, 2, :) = (/&
+! &0.5124541E+03_JPRB,&
+! &0.3478800E+04_JPRB,&
+! &0.1244272E+04_JPRB,&
+! &0.0000000E-00_JPRB,&
+! &0.0000000E-00_JPRB,&
+! &0.0000000E-00_JPRB,&
+! &0.0000000E-00_JPRB/)
+!ZAPAD4(1, 3, :) = (/&
+! &0.4766857E-04_JPRB,&
+! &0.4019806E-02_JPRB,&
+! &0.1936247E+00_JPRB,&
+! &0.1886522E+02_JPRB,&
+! &0.6498215E+02_JPRB,&
+! &0.1799387E+02_JPRB,&
+! &0.0000000E+00_JPRB/)
+
+!ZBPAD4(1, 1, :) = (/&
+! &0.1095121E+03_JPRB,&
+! &0.8919103E+03_JPRB,&
+! &0.1142218E+03_JPRB,&
+! &0.1000000E+01_JPRB,&
+! &0.0000000E-00_JPRB,&
+! &0.0000000E-00_JPRB,&
+! &0.0000000E-00_JPRB/)
+!ZBPAD4(1, 2, :) = (/&
+! &0.5124541E+03_JPRB,&
+! &0.3499516E+04_JPRB,&
+! &0.1278186E+04_JPRB,&
+! &0.1000000E+01_JPRB,&
+! &0.0000000E-00_JPRB,&
+! &0.0000000E-00_JPRB,&
+! &0.0000000E-00_JPRB/)
+!ZBPAD4(1, 3, :) = (/&
+! &0.4766857E-04_JPRB,&
+! &0.4153343E-02_JPRB,&
+! &0.1925810E+00_JPRB,&
+! &0.1938938E+02_JPRB,&
+! &0.6918191E+02_JPRB,&
+! &0.2278795E+02_JPRB,&
+! &0.1000000E+01_JPRB/)
+
+!ZRAY4(1,:)= (/&
+! &.389107E-01_JPRB, .101608E+01_JPRB,-.354921E+01_JPRB,&
+! &.659510E+01_JPRB,-.592423E+01_JPRB, .202348E+01_JPRB/)
+
+!-- Original coefficients in ECMWF scheme
+
+ZTDH4IS = 0.450_JPRB
+ZTDU4IS = 0.375_JPRB
+ZTH4IS  = 296._JPRB
+ZTU4IS  = 296._JPRB
+ZPDH4IS = 0.90_JPRB
+ZPDU4IS = 0.75_JPRB
+ZPRH4IS = 100000._JPRB
+ZPRU4IS = 100000._JPRB
+
+ZD4(1,:)= (/ 0.000000000_JPRB, 0.000000000_JPRB, 0.000000000_JPRB /)
+
+ZAPAD4(1, 1, :) = (/&
+ & 0.184678379E+06_JPRB,&
+ & 0.553080884E+05_JPRB,&
+ & 0.248143712E+04_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB/)  
+ZAPAD4(1, 2, :) = (/&
+ & 0.715303869E+01_JPRB,&
+ & 0.219386847E+03_JPRB,&
+ & 0.830001089E+03_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB/)  
+ZAPAD4(1, 3, :) = (/&
+ & 0.925887084E-04_JPRB,&
+ & 0.129353723E-01_JPRB,&
+ & 0.800821928E+00_JPRB,&
+ & 0.242715973E+02_JPRB,&
+ & 0.878331486E+02_JPRB,&
+ & 0.191559725E+02_JPRB,&
+ & 0.000000000E+00_JPRB/)  
+
+ZBPAD4(1, 1, :) = (/&
+ & 0.184678379E+06_JPRB,&
+ & 0.555188347E+05_JPRB,&
+ & 0.253257443E+04_JPRB,&
+ & 0.100000000E+01_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB/)  
+ZBPAD4(1, 2, :) = (/&
+ & 0.715303869E+01_JPRB,&
+ & 0.219441875E+03_JPRB,&
+ & 0.831119997E+03_JPRB,&
+ & 0.100000000E+01_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB/)  
+ZBPAD4(1, 3, :) = (/&
+ & 0.925887084E-04_JPRB,&
+ & 0.131812683E-01_JPRB,&
+ & 0.812706117E+00_JPRB,&
+ & 0.249863591E+02_JPRB,&
+ & 0.931071925E+02_JPRB,&
+ & 0.252233437E+02_JPRB,&
+ & 0.100000000E+01_JPRB/)  
+
+ZRAY4(1,:)= (/&
+ & .428937E-01_JPRB, .890743E+00_JPRB,-.288555E+01_JPRB,&
+ & .522744E+01_JPRB,-.469173E+01_JPRB, .161645E+01_JPRB/)  
+
+ZSWCE4(1) = 0.0_JPRB
+ZSWCP4(1) = 0.0_JPRB
+
+!     ----------------------------------------------------------------
+
+!* Near-Infrared (0.69 - 4.0 Microns) is sub-divided into:
+
+!     ----------------------------------------------------------------
+
+!* 0.69 - 1.19 Micron
+
+ZSUN4(2) = 0.326158_JPRB
+
+!-- New coefficients
+
+!ZD4(2,:)= (/ 0.000000000_JPRB, 0.900000000_JPRB, 1.000000000_JPRB /)
+
+!ZAPAD4(2, 1, :) = (/&
+! &0.1335726E+02_JPRB,&
+! &0.2939136E+04_JPRB,&
+! &0.4010585E+05_JPRB,&
+! &0.7195030E+05_JPRB,&
+! &0.1648338E+05_JPRB,&
+! &0.3373738E+03_JPRB,&
+! &0.0000000E+00_JPRB/)
+!ZAPAD4(2, 2, :) = (/&
+! &0.2001271E-01_JPRB,&
+! &0.2480831E+01_JPRB,&
+! &0.3444162E+02_JPRB,&
+! &0.4788946E+02_JPRB,&
+! &0.0000000E+00_JPRB,&
+! &0.0000000E+00_JPRB,&
+! &0.0000000E+00_JPRB/)
+!ZAPAD4(2, 3, :) = (/&
+! &0.000000000E+00_JPRB,&
+! &0.000000000E+00_JPRB,&
+! &0.000000000E+00_JPRB,&
+! &0.000000000E+00_JPRB,&
+! &0.000000000E+00_JPRB,&
+! &0.000000000E+00_JPRB,&
+! &0.000000000E+00_JPRB/)
+
+!ZBPAD4(2, 1, :) = (/&
+! &0.1335726E+02_JPRB,&
+! &0.2942327E+04_JPRB,&
+! &0.4077237E+05_JPRB,&
+! &0.7749017E+05_JPRB,&
+! &0.2123132E+05_JPRB,&
+! &0.6659687E+03_JPRB,&
+! &0.1000000E+01_JPRB/)
+!ZBPAD4(2, 2, :) = (/&
+! &0.2001271E-01_JPRB,&
+! &0.2549067E+01_JPRB,&
+! &0.3752433E+02_JPRB,&
+! &0.6276637E+02_JPRB,&
+! &0.1000000E+01_JPRB,&
+! &0.0000000E+00_JPRB,&
+! &0.0000000E+00_JPRB/)
+!ZBPAD4(2, 3, :) = (/&
+! &1.000000000E+00_JPRB,&
+! &0.000000000E+00_JPRB,&
+! &0.000000000E+00_JPRB,&
+! &0.000000000E+00_JPRB,&
+! &0.000000000E+00_JPRB,&
+! &0.000000000E+00_JPRB,&
+! &0.000000000E+00_JPRB/)
+
+!DATA (ZRAY4(2,K),K=1,6) /&
+! & .519710E-01_JPRB,-.150667E+00_JPRB, .154170E+01_JPRB,&
+! &-.518901E+01_JPRB, .668011E+01_JPRB,-.294843E+01_JPRB/
+
+!-- Original coefficients in the ECMWF model
+
+ZD4(2,:)= (/ 0.000000000_JPRB, 0.000000000_JPRB, 1.000000000_JPRB /)
+
+ZAPAD4(2, 1, :) = (/&
+ & 0.690730834E-02_JPRB,&
+ & 0.151704275E+01_JPRB,&
+ & 0.751477543E+02_JPRB,&
+ & 0.759770236E+03_JPRB,&
+ & 0.109800326E+04_JPRB,&
+ & 0.148407574E+03_JPRB,&
+ & 0.000000000E+00_JPRB/)  
+ZAPAD4(2, 2, :) = (/&
+ & 0.863790752E-03_JPRB,&
+ & 0.448762291E+00_JPRB,&
+ & 0.332530367E+02_JPRB,&
+ & 0.190914146E+03_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB/)  
+ZAPAD4(2, 3, :) = (/&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB/)  
+
+ZBPAD4(2, 1, :) = (/&
+ & 0.690730834E-02_JPRB,&
+ & 0.151954406E+01_JPRB,&
+ & 0.756512527E+02_JPRB,&
+ & 0.779384997E+03_JPRB,&
+ & 0.121113108E+04_JPRB,&
+ & 0.207678436E+03_JPRB,&
+ & 0.100000000E+01_JPRB/)  
+ZBPAD4(2, 2, :) = (/&
+ & 0.863790752E-03_JPRB,&
+ & 0.448948107E+00_JPRB,&
+ & 0.333186750E+02_JPRB,&
+ & 0.192727216E+03_JPRB,&
+ & 0.100000000E+01_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB/)  
+ZBPAD4(2, 3, :) = (/&
+ & 1.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB/)  
+ 
+DATA (ZRAY4(2,I_K),I_K=1,6) /&
+ & .164261E-01_JPRB, .000000E+00_JPRB, .000000E+00_JPRB,&
+ & .000000E+00_JPRB, .000000E+00_JPRB, .000000E+00_JPRB/  
+
+ZSWCE4(2) = 0.0_JPRB
+ZSWCP4(2) = 0.0_JPRB
+
+!     ----------------------------------------------------------------
+
+!* 1.19 - 2.38 Microns
+
+ZSUN4(3) = 0.180608_JPRB
+
+!-- New coefficients
+
+!ZD4(3,:)= (/ 0.000000000_JPRB, 0.800000000_JPRB, 1.000000000_JPRB /)
+
+!ZAPAD4(3, 1, :) = (/&
+! &0.3325841E-03_JPRB,&
+! &0.6194496E+00_JPRB,&
+! &0.1497138E+03_JPRB,&
+! &0.2314864E+04_JPRB,&
+! &0.2380109E+04_JPRB,&
+! &0.9553823E+02_JPRB,&
+! &0.0000000E+00_JPRB/)
+!ZAPAD4(3, 2, :) = (/&
+! &0.4552471E-03_JPRB,&
+! &0.4084154E+00_JPRB,&
+! &0.6114905E+01_JPRB,&
+! &0.7102540E+01_JPRB,&
+! &0.0000000E+00_JPRB,&
+! &0.0000000E+00_JPRB,&
+! &0.0000000E+00_JPRB/)
+!ZAPAD4(3, 3, :) = (/&
+! &0.000000000E+00_JPRB,&
+! &0.000000000E+00_JPRB,&
+! &0.000000000E+00_JPRB,&
+! &0.000000000E+00_JPRB,&
+! &0.000000000E+00_JPRB,&
+! &0.000000000E+00_JPRB,&
+! &0.000000000E+00_JPRB/)
+
+!ZBPAD4(3, 1, :) = (/&
+! &0.3325841E-03_JPRB,&
+! &0.6231947E+00_JPRB,&
+! &0.1553098E+03_JPRB,&
+! &0.2822458E+04_JPRB,&
+! &0.3885194E+04_JPRB,&
+! &0.2700235E+03_JPRB,&
+! &0.1000000E+01_JPRB/)
+!ZBPAD4(3, 2, :) = (/&
+! &0.4552471E-03_JPRB,&
+! &0.4088242E+00_JPRB,&
+! &0.6411905E+01_JPRB,&
+! &0.9444439E+01_JPRB,&
+! &0.1000000E+01_JPRB,&
+! &0.0000000E+00_JPRB,&
+! &0.0000000E+00_JPRB/)
+!ZBPAD4(3, 3, :) = (/&
+! &1.000000000E+00_JPRB,&
+! &0.000000000E+00_JPRB,&
+! &0.000000000E+00_JPRB,&
+! &0.000000000E+00_JPRB,&
+! &0.000000000E+00_JPRB,&
+! &0.000000000E+00_JPRB,&
+! &0.000000000E+00_JPRB/)
+
+!ZRAY4(3,:)= (/&
+! &.288474E-02_JPRB, .133984E-02_JPRB,-.152812E-01_JPRB,&
+! &.540845E-01_JPRB,-.747444E-01_JPRB, .364285E-01_JPRB/)
+
+ZD4(3,:)= (/ 0.000000000_JPRB, 0.000000000_JPRB, 1.000000000_JPRB /)
+
+ZAPAD4(3, 1, :) = (/&
+ & 0.837531303E-05_JPRB,&
+ & 0.173886341E-01_JPRB,&
+ & 0.518852799E+01_JPRB,&
+ & 0.159078416E+03_JPRB,&
+ & 0.493273523E+03_JPRB,&
+ & 0.102567293E+03_JPRB,&
+ & 0.000000000E+00_JPRB/)  
+ZAPAD4(3, 2, :) = (/&
+ & 0.657978575E-02_JPRB,&
+ & 0.752617872E+00_JPRB,&
+ & 0.158209734E+02_JPRB,&
+ & 0.410274915E+02_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB/)  
+ZAPAD4(3, 3, :) = (/&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB/)  
+
+ZBPAD4(3, 1, :) = (/&
+ & 0.837531303E-05_JPRB,&
+ & 0.174882536E-01_JPRB,&
+ & 0.534536580E+01_JPRB,&
+ & 0.180351767E+03_JPRB,&
+ & 0.673126838E+03_JPRB,&
+ & 0.182718543E+03_JPRB,&
+ & 0.100000000E+01_JPRB/)  
+ZBPAD4(3, 2, :) = (/&
+ & 0.657978575E-02_JPRB,&
+ & 0.753752065E+00_JPRB,&
+ & 0.159286262E+02_JPRB,&
+ & 0.424278450E+02_JPRB,&
+ & 0.100000000E+01_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB/)  
+ZBPAD4(3, 3, :) = (/&
+ & 1.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB/)  
+
+ZRAY4(3,:)= (/&
+ & .180438E-02_JPRB, .000000E+00_JPRB, .000000E+00_JPRB,&
+ & .000000E+00_JPRB, .000000E+00_JPRB, .000000E+00_JPRB/)  
+
+ZSWCE4(3) = 0.0_JPRB
+ZSWCP4(3) = 0.0_JPRB
+
+!     ----------------------------------------------------------------
+
+!* 2.38 - 4.00 Microns
+
+ZSUN4(4) = 0.033474_JPRB
+
+!-- New coefficients
+
+!ZD4(4,:)= (/ 0.000000000_JPRB, 0.000000000_JPRB, 0.000000000_JPRB /)
+
+!ZAPAD4(4, 1, :) = (/&
+! &0.2122889E-06_JPRB,&
+! &0.9030576E-03_JPRB,&
+! &0.2431282E+00_JPRB,&
+! &0.4901345E+01_JPRB,&
+! &0.3996347E+01_JPRB,&
+! &0.3910227E+01_JPRB,&
+! &0.0000000E+00_JPRB/)
+!ZAPAD4(4, 2, :) = (/&
+! &0.1215163E-03_JPRB,&
+! &0.1222574E+00_JPRB,&
+! &0.9382420E+01_JPRB,&
+! &0.6875727E+02_JPRB,&
+! &0.2746421E+02_JPRB,&
+! &0.0000000E+00_JPRB,&
+! &0.0000000E+00_JPRB/)
+!ZAPAD4(4, 3, :) = (/&
+! &0.263068898E+02_JPRB,&
+! &0.146425875E+03_JPRB,&
+! &0.860137809E+02_JPRB,&
+! &0.000000000E+00_JPRB,&
+! &0.000000000E+00_JPRB,&
+! &0.000000000E+00_JPRB,&
+! &0.000000000E+00_JPRB/)
+
+!ZBPAD4(4, 1, :) = (/&
+! &0.2122889E-06_JPRB,&
+! &0.9379083E-03_JPRB,&
+! &0.2957335E+00_JPRB,&
+! &0.8747190E+01_JPRB,&
+! &0.1015794E+02_JPRB,&
+! &0.1361277E+02_JPRB,&
+! &0.1000000E+01_JPRB/)
+!ZBPAD4(4, 2, :) = (/&
+! &0.1215163E-03_JPRB,&
+! &0.1255648E+00_JPRB,&
+! &0.1060119E+02_JPRB,&
+! &0.8414439E+02_JPRB,&
+! &0.4299438E+02_JPRB,&
+! &0.1000000E+01_JPRB,&
+! &0.0000000E+00_JPRB/)
+!ZBPAD4(4, 3, :) = (/&
+! &0.263068898E+02_JPRB,&
+! &0.152569217E+03_JPRB,&
+! &0.976791971E+02_JPRB,&
+! &0.100000000E+01_JPRB,&
+! &0.000000000E+00_JPRB,&
+! &0.000000000E+00_JPRB,&
+! &0.000000000E+00_JPRB/)
+
+!ZRAY4(4,:)= (/&
+! &.493545E-03_JPRB, .355696E-03_JPRB,-.284543E-02_JPRB,&
+! &.741248E-02_JPRB,-.773691E-02_JPRB, .370679E-02_JPRB/)
+
+ZD4(4,:)= (/ 0.000000000_JPRB, 0.000000000_JPRB, 0.000000000_JPRB /)
+
+ZAPAD4(4, 1, :) = (/&
+ & 0.122118185E-06_JPRB,&
+ & 0.154042531E-02_JPRB,&
+ & 0.141152193E+01_JPRB,&
+ & 0.685368761E+02_JPRB,&
+ & 0.216522281E+03_JPRB,&
+ & 0.421228746E+02_JPRB,&
+ & 0.000000000E+00_JPRB/)  
+ZAPAD4(4, 2, :) = (/&
+ & 0.364233560E-10_JPRB,&
+ & 0.217340835E-06_JPRB,&
+ & 0.292623386E-03_JPRB,&
+ & 0.797100631E-01_JPRB,&
+ & 0.319103672E+01_JPRB,&
+ & 0.110530283E+02_JPRB,&
+ & 0.000000000E+00_JPRB/)  
+ZAPAD4(4, 3, :) = (/&
+ & 0.263068898E+02_JPRB,&
+ & 0.146425875E+03_JPRB,&
+ & 0.860137809E+02_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB/)  
+
+ZBPAD4(4, 1, :) = (/&
+ & 0.122118185E-06_JPRB,&
+ & 0.156287582E-02_JPRB,&
+ & 0.156994562E+01_JPRB,&
+ & 0.102304103E+03_JPRB,&
+ & 0.475479878E+03_JPRB,&
+ & 0.188714799E+03_JPRB,&
+ & 0.100000000E+01_JPRB/)  
+ZBPAD4(4, 2, :) = (/&
+ & 0.364233560E-10_JPRB,&
+ & 0.218265806E-06_JPRB,&
+ & 0.297085917E-03_JPRB,&
+ & 0.834253403E-01_JPRB,&
+ & 0.358290002E+01_JPRB,&
+ & 0.139206164E+02_JPRB,&
+ & 0.100000000E+01_JPRB/)  
+ZBPAD4(4, 3, :) = (/&
+ & 0.263068898E+02_JPRB,&
+ & 0.152569217E+03_JPRB,&
+ & 0.976791971E+02_JPRB,&
+ & 0.100000000E+01_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB/)  
+
+ZRAY4(4,:)= (/&
+ & .136020E-03_JPRB, .000000E+00_JPRB, .000000E+00_JPRB,&
+ & .000000E+00_JPRB, .000000E+00_JPRB, .000000E+00_JPRB/)  
+
+ZSWCE4(4) = 0.0_JPRB
+ZSWCP4(4) = 0.0_JPRB
+
+!=====================================================================
+
+!*        1.3  COEFFICIENTS FOR SIX SPECTRAL INTERVALS
+!              ---------------------------------------
+
+!* DERIVED FROM HITRAN APRIL 1992 with LOWTRAN P AND T SCALING
+!       H2O:  Pref=1000hPa, Tref=296K, Pdep=0.9
+!       UMG:  Pref=1000hPa, Tref=296K, Pdep=0.75 (CO2+N2O+CO+CH4+O2)
+!       O3 :  unchanged in interval 1, from HITRAN 92 in interval 4
+
+ZADJUS6 = 0.9905709_JPRB
+ZADJUS6 = 1.0_JPRB
+
+ZTDH6IS = 0.450_JPRB
+ZTDU6IS = 0.375_JPRB
+ZTH6IS  = 273._JPRB
+ZTU6IS  = 273._JPRB
+ZPDH6IS = 0.90_JPRB
+ZPDU6IS = 0.75_JPRB
+ZPRH6IS = 101300._JPRB
+ZPRU6IS = 101300._JPRB
+
+!* 1st spectral interval: U.V.  (0.18 - 0.25 Micron)
+
+ZSUN6(1) = 0.001917_JPRB
+
+ZD6(1,:)= (/ 1.000000000_JPRB, 1.000000000_JPRB, 0.000000000_JPRB /)
+
+ZAPAD6(1, 1, :) = (/&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB/)  
+ZAPAD6(1, 2, :) = (/&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB/)  
+ZAPAD6(1, 3, :) = (/&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB/)  
+ 
+ZBPAD6(1, 1, :) = (/&
+ & 0.100000000E+01_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB/)  
+ZBPAD6(1, 2, :) = (/&
+ & 0.100000000E+01_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB/)  
+ZBPAD6(1, 3, :) = (/&
+ & 0.100000000E+01_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB/)  
+
+ZRAY6(1,:)= (/&
+ & .334018E+00_JPRB,-.298776E+01_JPRB, .613911E+02_JPRB,&
+ & -.164331E+03_JPRB, .197946E+03_JPRB,-.652206E+02_JPRB/)  
+ZRBY6(1,:)= (/&
+ & .43959002E+01_JPRB, .000000E+00_JPRB, .000000E+00_JPRB,&
+ & .000000E+00_JPRB, .000000E+00_JPRB, .000000E+00_JPRB/)  
+
+ZSWCE6(1) = 0.0_JPRB
+ZSWCP6(1) = 0.0_JPRB
+
+NEXPO3(1) = 7
+REXPO3(1, 1, :) =(/&
+ & 0.051395E+00_JPRB, 0.048250E+00_JPRB, 0.112339E+00_JPRB,&
+ & 0.101426E+00_JPRB, 0.007700E+00_JPRB, 0.441320E+00_JPRB,&
+ & 0.237571E+00_JPRB /)  
+REXPO3(1, 2, :) =(/&
+ & 0.100022E+02_JPRB, 0.851159E+02_JPRB, 0.346737E+03_JPRB,&
+ & 0.158501E+02_JPRB, 0.724223E+01_JPRB, 0.177828E+03_JPRB,&
+ & 0.467708E+02_JPRB /)  
+  
+!* 2nd spectral interval: U.V.  (0.25 - 0.44 Micron)
+
+ZSUN6(2) = 0.135708_JPRB
+
+ZD6(2,:)= (/ 1.000000000_JPRB, 1.000000000_JPRB, 0.000000000_JPRB /)
+
+ZAPAD6(2, 1, :) = (/&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB/)  
+ZAPAD6(2, 2, :) = (/&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB/)  
+ZAPAD6(2, 3, :) = (/&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB/)  
+ 
+ZBPAD6(2, 1, :) = (/&
+ & 0.100000000E+01_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB/)  
+ZBPAD6(2, 2, :) = (/&
+ & 0.100000000E+01_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB/)  
+ZBPAD6(2, 3, :) = (/&
+ & 0.100000000E+01_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB/)  
+ 
+ZRAY6(2,:)= (/&
+ & -.895408E-03_JPRB, .283130E+01_JPRB,-.867917E+01_JPRB,&
+ & .148672E+02_JPRB,-.127282E+02_JPRB, .422212E+01_JPRB/)  
+ZRBY6(2,:)= (/&
+ & .55503070E+00_JPRB, .000000E+00_JPRB, .000000E+00_JPRB,&
+ & .000000E+00_JPRB, .000000E+00_JPRB, .000000E+00_JPRB/)  
+
+ZSWCE6(2) = 0.0_JPRB
+ZSWCP6(2) = 0.0_JPRB
+
+NEXPO3(2) = 7
+REXPO3(2, 1, :) =(/&
+ & 0.043801E+00_JPRB, 0.078893E+00_JPRB, 0.036839E+00_JPRB,&
+ & 0.022503E+00_JPRB, 0.042333E+00_JPRB, 0.037870E+00_JPRB,&
+ & 0.737762E+00_JPRB /)  
+REXPO3(2, 2, :) =(/&
+ & 0.234249E+01_JPRB, 0.125170E+00_JPRB, 0.549527E+02_JPRB,&
+ & 0.257041E+03_JPRB, 0.476838E+00_JPRB, 0.911993E+01_JPRB,&
+ & 0.000000E+00_JPRB /)  
+
+!* 3rd spectral interval: Visible  (0.44 - 0.69 Micron)
+
+ZSUN6(3) = 0.322135_JPRB
+
+ZD6(3,:)= (/ 0.800000000_JPRB, 0.900000000_JPRB, 0.000000000_JPRB /)
+
+ZAPAD6(3, 1, :) = (/&
+ & 0.1762097E+03_JPRB,&
+ & 0.1641762E+03_JPRB,&
+ & 0.8687919E+02_JPRB,&
+ & 0.0000000E-00_JPRB,&
+ & 0.0000000E-00_JPRB,&
+ & 0.0000000E-00_JPRB,&
+ & 0.0000000E-00_JPRB/)  
+ZAPAD6(3, 2, :) = (/&
+ & 0.5581224E+00_JPRB,&
+ & 0.1748430E+03_JPRB,&
+ & 0.1134123E+04_JPRB,&
+ & 0.3490429E+03_JPRB,&
+ & 0.0000000E-00_JPRB,&
+ & 0.0000000E-00_JPRB,&
+ & 0.0000000E-00_JPRB/)  
+ZAPAD6(3, 3, :) = (/&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB/)  
+ 
+ZBPAD6(3, 1, :) = (/&
+ & 0.1762097E+03_JPRB,&
+ & 0.1663950E+03_JPRB,&
+ & 0.8939724E+02_JPRB,&
+ & 0.1000000E+01_JPRB,&
+ & 0.0000000E-00_JPRB,&
+ & 0.0000000E-00_JPRB,&
+ & 0.0000000E-00_JPRB/)  
+ZBPAD6(3, 2, :) = (/&
+ & 0.5581224E+00_JPRB,&
+ & 0.1749251E+03_JPRB,&
+ & 0.1159910E+04_JPRB,&
+ & 0.3893268E+03_JPRB,&
+ & 0.1000000E+01_JPRB,&
+ & 0.0000000E-00_JPRB,&
+ & 0.0000000E-00_JPRB/)  
+ZBPAD6(3, 3, :) = (/&
+ & 0.100000000E+01_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB,&
+ & 0.000000000E-00_JPRB/)  
+ 
+ZRAY6(3,:)= (/&
+ & .474852E-01_JPRB, .605110E+00_JPRB,-.248070E+01_JPRB,&
+ & .485580E+01_JPRB,-.444043E+01_JPRB, .152369E+01_JPRB/)  
+ZRBY6(3,:)= (/&
+ & .10528199E+00_JPRB, .000000E+00_JPRB, .000000E+00_JPRB,&
+ & .000000E+00_JPRB, .000000E+00_JPRB, .000000E+00_JPRB/)  
+
+ZSWCE6(3) = 0.0_JPRB
+ZSWCP6(3) = 0.0_JPRB
+
+NEXPO3(3) = 6
+REXPO3(3, 1, :) =(/&
+ & 0.063442E+00_JPRB, 0.058550E+00_JPRB, 0.237534E+00_JPRB,&
+ & 0.412292E+00_JPRB, 0.126141E+00_JPRB, 0.102041E+00_JPRB,&
+ & 0.000000E+00_JPRB /)  
+REXPO3(3, 2, :) =(/&
+ & 0.125170E+00_JPRB, 0.119209E-01_JPRB, 0.119209E+00_JPRB,&
+ & 0.417233E-01_JPRB, 0.894070E-01_JPRB, 0.000000E+00_JPRB,&
+ & 0.000000E+00_JPRB /)  
+
+!     ----------------------------------------------------------------
+
+!* Near-Infrared (0.69 - 4.0 Microns) is sub-divided into:
+
+!     ----------------------------------------------------------------
+
+!* 0.69 - 1.19 Micron
+
+!* UMG is O2 only
+
+ZSUN6(4) = 0.326158_JPRB
+
+ZD6(4,:)= (/ 0.000000000_JPRB, 0.900000000_JPRB, 1.000000000_JPRB /)
+
+ZAPAD6(4, 1, :) = (/&
+ & 0.1335726E+02_JPRB,&
+ & 0.2939136E+04_JPRB,&
+ & 0.4010585E+05_JPRB,&
+ & 0.7195030E+05_JPRB,&
+ & 0.1648338E+05_JPRB,&
+ & 0.3373738E+03_JPRB,&
+ & 0.0000000E+00_JPRB/)  
+ZAPAD6(4, 2, :) = (/&
+ & 0.2001271E-01_JPRB,&
+ & 0.2480831E+01_JPRB,&
+ & 0.3444162E+02_JPRB,&
+ & 0.4788946E+02_JPRB,&
+ & 0.0000000E+00_JPRB,&
+ & 0.0000000E+00_JPRB,&
+ & 0.0000000E+00_JPRB/)  
+ZAPAD6(4, 3, :) = (/&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB/)  
+
+ZBPAD6(4, 1, :) = (/&
+ & 0.1335726E+02_JPRB,&
+ & 0.2942327E+04_JPRB,&
+ & 0.4077237E+05_JPRB,&
+ & 0.7749017E+05_JPRB,&
+ & 0.2123132E+05_JPRB,&
+ & 0.6659687E+03_JPRB,&
+ & 0.1000000E+01_JPRB/)  
+ZBPAD6(4, 2, :) = (/&
+ & 0.2001271E-01_JPRB,&
+ & 0.2549067E+01_JPRB,&
+ & 0.3752433E+02_JPRB,&
+ & 0.6276637E+02_JPRB,&
+ & 0.1000000E+01_JPRB,&
+ & 0.0000000E+00_JPRB,&
+ & 0.0000000E+00_JPRB/)  
+ZBPAD6(4, 3, :) = (/&
+ & 1.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB/)  
+ 
+ZRAY6(4,:)= (/&
+ & .519710E-01_JPRB,-.150667E+00_JPRB, .154170E+01_JPRB,&
+ & -.518901E+01_JPRB, .668011E+01_JPRB,-.294843E+01_JPRB/)  
+ZRBY6(4,:)= (/&
+ & .16436996E-01_JPRB, .000000E+00_JPRB, .000000E+00_JPRB,&
+ & .000000E+00_JPRB, .000000E+00_JPRB, .000000E+00_JPRB/)  
+
+ZSWCE6(4) = 0.0_JPRB
+ZSWCP6(4) = 0.0_JPRB
+
+NEXPO3(4) = 4
+REXPO3(4, 1, :) =(/&
+ & 0.000074E+00_JPRB, 0.320194E+00_JPRB, 0.082915E+00_JPRB,&
+ & 0.596816E+00_JPRB, 0.000000E+00_JPRB, 0.000000E+00_JPRB,&
+ & 0.000000E+00_JPRB /)  
+REXPO3(4, 2, :) =(/&
+ & 0.232458E+00_JPRB, 0.119209E-01_JPRB, 0.178814E-01_JPRB,&
+ & 0.000000E+00_JPRB, 0.000000E+00_JPRB, 0.000000E+00_JPRB,&
+ & 0.000000E+00_JPRB /)  
+
+!     ----------------------------------------------------------------
+
+!* 1.19 - 2.38 Microns
+
+!* UMG is CO2 only
+
+ZSUN6(5) = 0.180608_JPRB
+
+ZD6(5,:)= (/ 0.000000000_JPRB, 0.800000000_JPRB, 1.000000000_JPRB /)
+
+ZAPAD6(5, 1, :) = (/&
+ & 0.3325841E-03_JPRB,&
+ & 0.6194496E+00_JPRB,&
+ & 0.1497138E+03_JPRB,&
+ & 0.2314864E+04_JPRB,&
+ & 0.2380109E+04_JPRB,&
+ & 0.9553823E+02_JPRB,&
+ & 0.0000000E+00_JPRB/)  
+ZAPAD6(5, 2, :) = (/&
+ & 0.4552471E-03_JPRB,&
+ & 0.4084154E+00_JPRB,&
+ & 0.6114905E+01_JPRB,&
+ & 0.7102540E+01_JPRB,&
+ & 0.0000000E+00_JPRB,&
+ & 0.0000000E+00_JPRB,&
+ & 0.0000000E+00_JPRB/)  
+ZAPAD6(5, 3, :) = (/&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB/)  
+
+ZBPAD6(5, 1, :) = (/&
+ & 0.3325841E-03_JPRB,&
+ & 0.6231947E+00_JPRB,&
+ & 0.1553098E+03_JPRB,&
+ & 0.2822458E+04_JPRB,&
+ & 0.3885194E+04_JPRB,&
+ & 0.2700235E+03_JPRB,&
+ & 0.1000000E+01_JPRB/)  
+ZBPAD6(5, 2, :) = (/&
+ & 0.4552471E-03_JPRB,&
+ & 0.4088242E+00_JPRB,&
+ & 0.6411905E+01_JPRB,&
+ & 0.9444439E+01_JPRB,&
+ & 0.1000000E+01_JPRB,&
+ & 0.0000000E+00_JPRB,&
+ & 0.0000000E+00_JPRB/)  
+ZBPAD6(5, 3, :) = (/&
+ & 1.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB/)  
+
+ZRAY6(5,:)= (/&
+ & .288474E-02_JPRB, .133984E-02_JPRB,-.152812E-01_JPRB,&
+ & .540845E-01_JPRB,-.747444E-01_JPRB, .364285E-01_JPRB/)  
+ZRBY6(5,:)= (/&
+ & .18073079E-02_JPRB, .000000E+00_JPRB, .000000E+00_JPRB,&
+ & .000000E+00_JPRB, .000000E+00_JPRB, .000000E+00_JPRB/)  
+
+ZSWCE6(5) = 0.0_JPRB
+ZSWCP6(5) = 0.0_JPRB
+
+NEXPO3(5) = 0
+REXPO3(5, 1, :) =(/&
+ & 0.000000E+00_JPRB, 0.000000E+00_JPRB, 0.000000E+00_JPRB,&
+ & 0.000000E+00_JPRB, 0.000000E+00_JPRB, 0.000000E+00_JPRB,&
+ & 0.000000E+00_JPRB /)  
+REXPO3(5, 2, :) =(/&
+ & 0.000000E+00_JPRB, 0.000000E+00_JPRB, 0.000000E+00_JPRB,&
+ & 0.000000E+00_JPRB, 0.000000E+00_JPRB, 0.000000E+00_JPRB,&
+ & 0.000000E+00_JPRB /)  
+
+!     ----------------------------------------------------------------
+
+!* 2.38 - 4.00 Microns
+
+ZSUN6(6) = 0.033474_JPRB
+
+ZD6(6,:)= (/ 0.000000000_JPRB, 0.000000000_JPRB, 0.000000000_JPRB /)
+
+ZAPAD6(6, 1, :) = (/&
+ & 0.2122889E-06_JPRB,&
+ & 0.9030576E-03_JPRB,&
+ & 0.2431282E+00_JPRB,&
+ & 0.4901345E+01_JPRB,&
+ & 0.3996347E+01_JPRB,&
+ & 0.3910227E+01_JPRB,&
+ & 0.0000000E+00_JPRB/)  
+ZAPAD6(6, 2, :) = (/&
+ & 0.1215163E-03_JPRB,&
+ & 0.1222574E+00_JPRB,&
+ & 0.9382420E+01_JPRB,&
+ & 0.6875727E+02_JPRB,&
+ & 0.2746421E+02_JPRB,&
+ & 0.0000000E+00_JPRB,&
+ & 0.0000000E+00_JPRB/)  
+ZAPAD6(6, 3, :) = (/&
+ & 0.263068898E+02_JPRB,&
+ & 0.146425875E+03_JPRB,&
+ & 0.860137809E+02_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB/)  
+
+ZBPAD6(6, 1, :) = (/&
+ & 0.2122889E-06_JPRB,&
+ & 0.9379083E-03_JPRB,&
+ & 0.2957335E+00_JPRB,&
+ & 0.8747190E+01_JPRB,&
+ & 0.1015794E+02_JPRB,&
+ & 0.1361277E+02_JPRB,&
+ & 0.1000000E+01_JPRB/)  
+ZBPAD6(6, 2, :) = (/&
+ & 0.1215163E-03_JPRB,&
+ & 0.1255648E+00_JPRB,&
+ & 0.1060119E+02_JPRB,&
+ & 0.8414439E+02_JPRB,&
+ & 0.4299438E+02_JPRB,&
+ & 0.1000000E+01_JPRB,&
+ & 0.0000000E+00_JPRB/)  
+ZBPAD6(6, 3, :) = (/&
+ & 0.263068898E+02_JPRB,&
+ & 0.152569217E+03_JPRB,&
+ & 0.976791971E+02_JPRB,&
+ & 0.100000000E+01_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB,&
+ & 0.000000000E+00_JPRB/)  
+
+ZRAY6(6,:)= (/&
+ & .493545E-03_JPRB, .355696E-03_JPRB,-.284543E-02_JPRB,&
+ & .741248E-02_JPRB,-.773691E-02_JPRB, .370679E-02_JPRB/)  
+ZRBY6(6,:)= (/&
+ & .13618247E-03_JPRB, .000000E+00_JPRB, .000000E+00_JPRB,&
+ & .000000E+00_JPRB, .000000E+00_JPRB, .000000E+00_JPRB/)  
+
+ZSWCE6(6) = 0.0_JPRB
+ZSWCP6(6) = 0.0_JPRB
+
+NEXPO3(6) = 0
+REXPO3(6, 1, :) =(/&
+ & 0.000000E+00_JPRB, 0.000000E+00_JPRB, 0.000000E+00_JPRB,&
+ & 0.000000E+00_JPRB, 0.000000E+00_JPRB, 0.000000E+00_JPRB,&
+ & 0.000000E+00_JPRB /)  
+REXPO3(6, 2, :) =(/&
+ & 0.000000E+00_JPRB, 0.000000E+00_JPRB, 0.000000E+00_JPRB,&
+ & 0.000000E+00_JPRB, 0.000000E+00_JPRB, 0.000000E+00_JPRB,&
+ & 0.000000E+00_JPRB /)  
+
+!=====================================================================
+!*    2.4   OPTICAL PARAMETERS FOR RAIN DROPS
+!           Savijarvi et al. (1996)
+
+ZRTO1 =  0.003_JPRB
+ZRTO2 = -0.22_JPRB
+! CAUTION JUST TEMPORARY PARAMETERS      
+ZROMA2(1:2)= (/ 0.00008_JPRB , 0.264_JPRB  /)
+ZROMB2(1:2)= (/ 0.23_JPRB    , 0.09_JPRB   /)
+ZRASY2(1:2)= (/ 0.88_JPRB    , 0.94_JPRB   /)
+
+ZRA2(1:2)= (/ 1.5_JPRB     , 1.5_JPRB    /)
+ZRB2(1:2)= (/ 0.50_JPRB    , 1.13_JPRB   /)
+ZRC2(1:2)= (/ 5.58E-7_JPRB , 8.55E-4_JPRB/)
+ZRD2(1:2)= (/ 1.25E-7_JPRB , 1.28E-3_JPRB/)
+ZRE2(1:2)= (/ 0.841_JPRB   , 0.786_JPRB  /)
+ZRF2(1:2)= (/ 2.08E-3_JPRB , 5.32E-3_JPRB/)
+
+ZROMA4(1:4)= (/ 0.00008_JPRB , 0.0105_JPRB , 0.264_JPRB  , 0.465_JPRB   /)
+ZROMB4(1:4)= (/ 0.23_JPRB    , 0.22_JPRB   , 0.09_JPRB   , 0.001_JPRB   /)
+ZRASY4(1:4)= (/ 0.88_JPRB    , 0.89_JPRB   , 0.94_JPRB   , 0.97_JPRB    /)
+
+ZRA4(1:4)= (/ 1.5_JPRB     , 1.5_JPRB    , 1.5_JPRB    , 1.5_JPRB     /)
+ZRB4(1:4)= (/ 0.50_JPRB    , 0.78_JPRB   , 1.13_JPRB   , 2.00_JPRB    /)
+ZRC4(1:4)= (/ 5.58E-7_JPRB , 2.18E-5_JPRB, 8.55E-4_JPRB, 1.94E-1_JPRB /)
+ZRD4(1:4)= (/ 1.25E-7_JPRB , 2.25E-5_JPRB, 1.28E-3_JPRB, 8.04E-3_JPRB /)
+ZRE4(1:4)= (/ 0.841_JPRB   , 0.821_JPRB  , 0.786_JPRB  , 0.820_JPRB   /)
+ZRF4(1:4)= (/ 2.08E-3_JPRB , 3.06E-3_JPRB, 5.32E-3_JPRB, 5.59E-3_JPRB /)
+
+ZROMA6(1:6)= (/ 0.00008_JPRB , 0.00008_JPRB , 0.00008_JPRB , 0.0105_JPRB , 0.264_JPRB  , 0.465_JPRB   /)
+ZROMB6(1:6)= (/ 0.23_JPRB    , 0.23_JPRB    , 0.23_JPRB    , 0.22_JPRB   , 0.09_JPRB   , 0.001_JPRB   /)
+ZRASY6(1:6)= (/ 0.88_JPRB    , 0.88_JPRB    , 0.88_JPRB    , 0.89_JPRB   , 0.94_JPRB   , 0.97_JPRB    /)
+
+ZRA6(1:6)= (/ 1.5_JPRB     , 1.5_JPRB     , 1.5_JPRB     , 1.5_JPRB    , 1.5_JPRB    , 1.5_JPRB     /)
+ZRB6(1:6)= (/ 0.50_JPRB    , 0.50_JPRB    , 0.50_JPRB    , 0.78_JPRB   , 1.13_JPRB   , 2.00_JPRB    /)
+ZRC6(1:6)= (/ 5.58E-7_JPRB , 5.58E-7_JPRB , 5.58E-7_JPRB , 2.18E-5_JPRB, 8.55E-4_JPRB, 1.94E-1_JPRB /)
+ZRD6(1:6)= (/ 1.25E-7_JPRB , 1.25E-7_JPRB , 1.25E-7_JPRB , 2.25E-5_JPRB, 1.28E-3_JPRB, 8.04E-3_JPRB /)
+ZRE6(1:6)= (/ 0.841_JPRB   , 0.841_JPRB   , 0.841_JPRB   , 0.821_JPRB  , 0.786_JPRB  , 0.820_JPRB   /)
+ZRF6(1:6)= (/ 2.08E-3_JPRB , 2.08E-3_JPRB , 2.08E-3_JPRB , 3.06E-3_JPRB, 5.32E-3_JPRB, 5.59E-3_JPRB /)
+
+!=====================================================================
+!       3.    FOURTEEN SPECTRAL INTERVALS FOR RRTM_SW
+
+! SW : 14 spectral intervals : mapping to SW6 spectral intervals
+!                                  0.185-0.25-0.44-0.69-1.19-2.38-4.00
+!  3.846 -  3.077                  6
+!  3.077 -  2.500                  6
+!  2.500 -  2.150                  5  
+!  2.150 -  1.942                  5
+!  1.942 -  1.626                  5
+!  1.626 -  1.299                  5
+!  1.299 -  1.242                  5
+!  1.242 -  0.7782                 4
+!  0.7782-  0.6250                 4
+!  0.6250-  0.4415                 3
+!  0.4415-  0.3448                 2  
+!  0.3448-  0.2632                 2 
+!  0.2632-  0.2000                 1
+! 12.195 -  3.846                  6
+
+IMPSRTM(1:14)= (/ 6,6,5,5,5,5,5,4,4,3,2,2,1,6 /)
+!=====================================================================
+
+!*       4.    SET VALUES.
+!              -----------
+
+IF (LONEWSW) THEN
+  ZPDH2O = ZPDHNIS
+  ZPDUMG = ZPDUNIS
+  ZPRH2O = ZPRHNIS
+  ZPRUMG = ZPRUNIS
+  RTDH2O = ZTDHNIS
+  RTDUMG = ZTDUNIS
+  RTH2O  = ZTHNIS
+  RTUMG  = ZTUNIS
+ENDIF
+
+RPDH1=ZPDH2O+1.0_JPRB
+RPDU1=ZPDUMG+1.0_JPRB
+ZH2O=1.0_JPRB/( 10._JPRB* RG * RPDH1 )
+ZUMG=1.0_JPRB/( 10._JPRB* RG * RPDU1 )
+RPNU = ZUMG/(ZPRUMG**ZPDUMG)
+RPNH = ZH2O/(ZPRH2O**ZPDH2O)
+
+IF(.NOT.ALLOCATED(RSUN)) ALLOCATE (RSUN(NTSW))
+
+DO JW=1,ISW6
+  RSUN(JW)=0.0_JPRB
+  RSWCE(JW)=0.0_JPRB
+  RSWCP(JW)=0.0_JPRB
+  
+  DO JC3=1,3
+    D(JW,JC3)=0.0_JPRB
+  ENDDO
+  DO JC6=1,6
+    RRAY(JW,JC6)=0.0_JPRB
+  ENDDO
+  DO JI=1,3
+    DO JJ=1,7
+      APAD(JW,JI,JJ)=0.0_JPRB
+      BPAD(JW,JI,JJ)=0.0_JPRB
+    ENDDO
+  ENDDO
+ENDDO
+
+IF (KSW == 2) THEN
+  ZPDH2O = ZPDH2IS
+  ZPDUMG = ZPDU2IS
+  ZPRH2O = ZPRH2IS
+  ZPRUMG = ZPRU2IS
+  RTDH2O = ZTDH2IS
+  RTDUMG = ZTDU2IS
+  RTH2O  = ZTH2IS
+  RTUMG  = ZTU2IS
+  
+  RADJUST=ZADJUS2
+  RHSRTA=ZRTO1
+  RHSRTB=ZRTO2
+  DO JW=1,KSW
+    RSUN (JW)=ZSUN2(JW)
+
+    RSWCE(JW)=ZSWCE2(JW)
+    RSWCP(JW)=ZSWCP2(JW)
+
+    RROMA(JW)=ZROMA2(JW)
+    RROMB(JW)=ZROMB2(JW)
+    RRASY(JW)=ZRASY2(JW)
+    RHSRA(JW)=ZRA2(JW)
+    RHSRB(JW)=ZRB2(JW)
+    RHSRC(JW)=ZRC2(JW)
+    RHSRD(JW)=ZRD2(JW)
+    RHSRE(JW)=ZRE2(JW)
+    RHSRF(JW)=ZRF2(JW)
+
+    DO JC3=1,3
+      D(JW,JC3)=ZD2(JW,JC3)
+    ENDDO
+    DO JC6=1,6
+      RRAY(JW,JC6)=ZRAY2(JW,JC6)
+    ENDDO
+    DO JI=1,3
+      DO JJ=1,7
+        APAD(JW,JI,JJ)=ZAPAD2(JW,JI,JJ)
+        BPAD(JW,JI,JJ)=ZBPAD2(JW,JI,JJ)
+      ENDDO
+    ENDDO
+  ENDDO
+  
+ELSEIF (KSW == 4) THEN
+  ZPDH2O = ZPDH4IS
+  ZPDUMG = ZPDU4IS
+  ZPRH2O = ZPRH4IS
+  ZPRUMG = ZPRU4IS
+  RTDH2O = ZTDH4IS
+  RTDUMG = ZTDU4IS
+  RTH2O  = ZTH4IS
+  RTUMG  = ZTU4IS
+  
+  RADJUST=ZADJUS4
+  RHSRTA=ZRTO1
+  RHSRTB=ZRTO2
+  DO JW=1,KSW
+    RSUN (JW)=ZSUN4(JW)
+
+    RSWCE(JW)=ZSWCE4(JW)
+    RSWCP(JW)=ZSWCP4(JW)
+
+    RROMA(JW)=ZROMA4(JW)
+    RROMB(JW)=ZROMB4(JW)
+    RRASY(JW)=ZRASY4(JW)
+    RHSRA(JW)=ZRA4(JW)
+    RHSRB(JW)=ZRB4(JW)
+    RHSRC(JW)=ZRC4(JW)
+    RHSRD(JW)=ZRD4(JW)
+    RHSRE(JW)=ZRE4(JW)
+    RHSRF(JW)=ZRF4(JW)
+
+    DO JC3=1,3
+      D(JW,JC3)=ZD4(JW,JC3)
+    ENDDO
+    DO JC6=1,6
+      RRAY(JW,JC6)=ZRAY4(JW,JC6)
+    ENDDO
+    DO JI=1,3
+      DO JJ=1,7
+        APAD(JW,JI,JJ)=ZAPAD4(JW,JI,JJ)
+        BPAD(JW,JI,JJ)=ZBPAD4(JW,JI,JJ)
+      ENDDO
+    ENDDO
+  ENDDO
+  
+ELSEIF (KSW == 6) THEN
+  ZPDH2O = ZPDH6IS
+  ZPDUMG = ZPDU6IS
+  ZPRH2O = ZPRH6IS
+  ZPRUMG = ZPRU6IS
+  RTDH2O = ZTDH6IS
+  RTDUMG = ZTDU6IS
+  RTH2O  = ZTH6IS
+  RTUMG  = ZTU6IS
+  
+  RADJUST=ZADJUS6
+  RHSRTA=ZRTO1
+  RHSRTB=ZRTO2
+  DO JW=1,KSW
+    RSUN (JW)=ZSUN6(JW)
+
+    RSWCE(JW)=ZSWCE6(JW)
+    RSWCP(JW)=ZSWCP6(JW)
+
+    RROMA(JW)=ZROMA6(JW)
+    RROMB(JW)=ZROMB6(JW)
+    RRASY(JW)=ZRASY6(JW)
+    RHSRA(JW)=ZRA6(JW)
+    RHSRB(JW)=ZRB6(JW)
+    RHSRC(JW)=ZRC6(JW)
+    RHSRD(JW)=ZRD6(JW)
+    RHSRE(JW)=ZRE6(JW)
+    RHSRF(JW)=ZRF6(JW)
+
+    DO JC3=1,3
+      D(JW,JC3)=ZD6(JW,JC3)
+    ENDDO
+    IF (LRAYL) THEN
+      DO JC6=1,6
+        RRAY(JW,JC6)=ZRAY6(JW,JC6)
+      ENDDO
+    ELSE  
+      DO JC6=1,6
+        RRAY(JW,JC6)=ZRBY6(JW,JC6)
+      ENDDO
+    ENDIF  
+    DO JI=1,3
+      DO JJ=1,7
+        APAD(JW,JI,JJ)=ZAPAD6(JW,JI,JJ)
+        BPAD(JW,JI,JJ)=ZBPAD6(JW,JI,JJ)
+      ENDDO
+    ENDDO
+  ENDDO
+  
+ELSEIF (KTSW == 14 .AND. KSW == 14) THEN
+  PRINT *,'SUSWN: 14-SPECTRAL INTERVALS --> RRTM_SW'
+  
+ELSE
+  PRINT *,'SUSWN: NTSW, NSW: ',KTSW,KSW
+  CALL ABOR1('SUSWN: WRONG NUMBER OF SW INTERVALS')
+ENDIF
+
+!     ----------------------------------------------------------------
+
+!*       5.    PRINT VALUES.
+!              ------------
+
+!     PRINT 9700,RPDH1,RPDU1,RPNU,RPNH
+!9700 FORMAT(1X,'RPDH1,RPDU1,RPNU,RPNH ',4F10.5)      
+!     DO JW=1,KSW      
+!       PRINT *,' SW INTERVAL ',JW
+!       PRINT 9701,JW,RSUN(JW),RSWCE(JW),RSWCP(JW)
+!9701   FORMAT(1X,I3,F10.7,2F10.5)
+!       PRINT 9702,JW,(D(JW,JC3),JC3=1,3)
+!9702   FORMAT(1X,I3,3F10.5)
+!       PRINT 9703,JW,(RRAY(JW,JC6),JC6=1,6)
+!9703   FORMAT(1X,I3,6E15.8)
+!       PRINT 9704,JW,(JABS,(APAD(JW,JABS,JJ),JJ=1,7),JABS=1,3)
+!9704   FORMAT(1X,I3,(I3,7E15.8))
+!       PRINT 9706,JW,RROMA(JW),RROMB(JW),RRASY(JW),RHSRTA,RHSRTB
+!9706   FORMAT(1X,I3,' Rain Optics from Rain Rate: ',F8.5,F6.3,3F6.3)
+!       PRINT 9707,JW,RHSRA(JW),RHSRB(JW),RHSRC(JW),RHSRD(JW)
+!    &   ,RHSRE(JW),RHSRF(JW)  
+!9707   FORMAT(1X,I3,' Rain Optics as function of Reff: ',6E11.4)
+!     ENDDO
+
+!     ----------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUSWN',1,ZHOOK_HANDLE)
+END SUBROUTINE SUSWN
Index: LMDZ5/trunk/libf/phylmd/rrtm/suswn.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/suswn.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/suswn.intfb.h	(revision 1989)
@@ -0,0 +1,7 @@
+INTERFACE
+SUBROUTINE SUSWN (KTSW, KSW)
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KTSW
+INTEGER(KIND=JPIM),INTENT(IN) :: KSW
+END SUBROUTINE SUSWN
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/sutoph.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/sutoph.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/sutoph.F90	(revision 1989)
@@ -0,0 +1,272 @@
+!OPTIONS XOPT(NOEVAL)
+SUBROUTINE SUTOPH(KULOUT)
+
+!**** *SUTOPH*   - Initialize common YOMTOPH top parameterization
+
+!     Purpose.
+!     --------
+!           Initialize YOMTOPH, the common that contains the top pressure
+!           and the first level of parameterization
+!           it also contains mesospheric drag vertical profil
+
+!**   Interface.
+!     ----------
+!        *CALL* *SUTOPH(KULOUT)
+
+!        Explicit arguments :
+!        --------------------
+!        KULOUT : Logical unit for the output
+
+!        Implicit arguments :
+!        --------------------
+!        COMMON YOMTOPH, YOMSTA
+
+!     Method.
+!     -------
+!        See documentation
+
+!     Externals.
+!     ----------
+
+!     Reference.
+!     ----------
+!        Documentation ARPEGE
+
+!     Author.
+!     -------
+!        A. Lasserre-Bigorry
+
+!     Modifications.
+!     --------------
+!        Original : 91-06-10
+!        Modified 92-02-22 by M. Deque (test of consistency between phys. para.)
+!        Modified by R. EL Khatib : 93-04-02 Set-up defaults controled by LECMWF
+!        Modified 93-11-17 by Ph. Dandin : FMR scheme with MF physics
+!        Modified 97-05-17 by M. Deque   : frozen FMR                 
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        F.Bouyssel 04-11-22 : NTCOET,ETCOET
+!        P. Marquet 05-09-12 : NTAJUC
+!        M. Deque   05-09-12 : default RCLX
+!        M. Deque   05-09-12 : default TPSCLIM
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOMDIM   , ONLY : NFLEVG
+! Ce qui concerne NULNAM commente par MPL le 15.04.09
+!USE YOMLUN   , ONLY : NULNAM
+USE YOMCT0B  , ONLY : LECMWF
+USE YOMSTA   , ONLY : STPRE
+USE YOMTOPH  , ONLY : RMESOU   ,RMESOT   ,NTQSAT   ,NTDIFU   ,&
+ & NTCOEF   ,NTDRAG   ,NTCVIM   ,NTPLUI   ,NTRADI   ,&
+ & NTNEBU   ,NTOZON   ,NTDRME   ,ETQSAT   ,ETDIFU   ,&
+ & ETCOEF   ,ETDRAG   ,ETCVIM   ,ETPLUI   ,ETRADI   ,&
+ & ETNEBU   ,ETOZON   ,ETDRME   ,XDRMUK   ,XDRMUX   ,XDRMUP   ,&
+ & XDRMTK   ,XDRMTX   ,XDRMTP   ,NTCOET   ,ETCOET   ,&
+ & RMESOQ   ,XDRMQK   ,XDRMQP   ,RFMESOQ  ,RCLX     ,&
+ & NTAJUC   ,ETAJUC   ,TPSCLIM
+USE YOMPHY   , ONLY : LRAY     ,LRAYFM   ,LRAYFM15 ,LRRMES
+USE YOEPHY   , ONLY : LAGPHY
+
+!     ------------------------------------------------------------------
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KULOUT 
+
+!     ------------------------------------------------------------------
+
+INTEGER(KIND=JPIM) :: JLEV
+
+REAL(KIND=JPRB) :: PAP, PAPX, ZMEST, ZMESU, ZMESQ
+
+REAL(KIND=JPRB) :: PMESQF
+REAL(KIND=JPRB) :: PMESTF
+REAL(KIND=JPRB) :: PMESUF
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!     ------------------------------------------------------------------
+
+#include "namtoph.h"
+
+!     ------------------------------------------------------------------
+
+!*    Mesospheric drag shape function
+
+!     PMESUF(PAP,PAPX) = MAX( (PAPX-PAP)/MAX(PAP**1.5,1.E-10),0. )
+PMESUF(PAP,PAPX) = MAX( (PAPX-PAP)/MAX(PAP,1.E-10_JPRB),0.0_JPRB )
+PMESTF(PAP,PAPX) = MAX( (PAPX-PAP)/MAX(PAP,1.E-10_JPRB),0.0_JPRB )
+PMESQF(PAP,PAPX) = MAX( (PAPX-PAP)/MAX(PAP,1.E-10_JPRB),0.0_JPRB )
+
+!     ------------------------------------------------------------------
+
+#include "abor1.intfb.h"
+#include "posnam.intfb.h"
+#include "seapre.intfb.h"
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUTOPH',0,ZHOOK_HANDLE)
+
+!     ------------------------------------------------------------------
+
+!*       1.    Set default values.
+!              -------------------
+
+!        1.1 Set implicit default values
+
+ETQSAT=0._JPRB
+ETDIFU=0._JPRB
+ETCOEF=0._JPRB
+ETDRAG=0._JPRB
+ETCVIM=0._JPRB
+ETPLUI=0._JPRB
+ETRADI=0._JPRB
+ETNEBU=0._JPRB
+ETOZON=0._JPRB
+ETDRME=0._JPRB
+ETCOET=0._JPRB
+ETAJUC=0._JPRB
+NTQSAT=1
+NTDIFU=1
+NTCOEF=1
+NTDRAG=1
+NTCVIM=1
+NTPLUI=1
+NTRADI=1
+NTNEBU=1
+NTOZON=1
+NTDRME=1
+NTCOET=1
+NTAJUC=1
+
+XDRMUK=0._JPRB
+XDRMUX=0._JPRB
+XDRMUP=0._JPRB
+XDRMTK=0._JPRB
+XDRMTX=0._JPRB
+XDRMTP=0._JPRB
+XDRMQK=0._JPRB
+XDRMQP=0._JPRB
+
+RFMESOQ=3.725E-06_JPRB
+RCLX=0.0_JPRB
+TPSCLIM=197._JPRB
+
+!        1.2 Modify default values according to LECMWF
+
+IF (LECMWF) THEN
+ELSE
+ENDIF
+
+!     ------------------------------------------------------------------
+
+!*       2.    Modify default values.
+!              ----------------------
+
+! Ce qui concerne NAMTOPH commente par MPL le 15.04.09
+!CALL POSNAM(NULNAM,'NAMTOPH')
+!READ(NULNAM,NAMTOPH)
+
+!*       2.1  Search corresponding level, to pressure in NAMTOPH
+!             for each parameterization
+
+IF(ETQSAT /= 0.0_JPRB) CALL SEAPRE (ETQSAT,NTQSAT,STPRE,NFLEVG)
+IF(ETDIFU /= 0.0_JPRB) CALL SEAPRE (ETDIFU,NTDIFU,STPRE,NFLEVG)
+IF(ETCOEF /= 0.0_JPRB) CALL SEAPRE (ETCOEF,NTCOEF,STPRE,NFLEVG)
+IF(ETDRAG /= 0.0_JPRB) CALL SEAPRE (ETDRAG,NTDRAG,STPRE,NFLEVG)
+IF(ETCVIM /= 0.0_JPRB) CALL SEAPRE (ETCVIM,NTCVIM,STPRE,NFLEVG)
+IF(ETPLUI /= 0.0_JPRB) CALL SEAPRE (ETPLUI,NTPLUI,STPRE,NFLEVG)
+IF(ETRADI /= 0.0_JPRB) THEN
+  IF (LRAY) THEN
+    CALL SEAPRE (ETRADI,NTRADI,STPRE,NFLEVG)
+  ENDIF
+  IF (LRAYFM.OR.LRAYFM15) THEN
+    ETRADI=0._JPRB
+    NTRADI=1
+  ENDIF
+ENDIF
+IF(ETNEBU /= 0.0_JPRB) CALL SEAPRE (ETNEBU,NTNEBU,STPRE,NFLEVG)
+IF(ETOZON /= 0.0_JPRB) CALL SEAPRE (ETOZON,NTOZON,STPRE,NFLEVG)
+IF(ETDRME /= 0.0_JPRB) CALL SEAPRE (ETDRME,NTDRME,STPRE,NFLEVG)
+IF(ETCOET /= 0.0_JPRB) CALL SEAPRE (ETCOET,NTCOET,STPRE,NFLEVG)
+IF(ETAJUC /= 0.0_JPRB) CALL SEAPRE (ETAJUC,NTAJUC,STPRE,NFLEVG)
+!     ------------------------------------------------------------------
+
+!*       3.    Print final values.
+!              -------------------
+
+WRITE(UNIT=KULOUT,FMT='('' COMMON YOMTOPH '')')
+WRITE(UNIT=KULOUT,FMT='('' ETQSAT = '',E10.4,'' NTQSAT = '',I10 &
+ & ,'' ETDIFU = '',E10.4,'' NTDIFU = '',I10 &
+ & ,/,'' ETCOEF = '',E10.4,'' NTCOEF = '',I10 &
+ & ,'' ETDRAG = '',E10.4,'' NTDRAG = '',I10 &
+ & ,/,'' ETCVIM = '',E10.4,'' NTCVIM = '',I10 &
+ & ,'' ETPLUI = '',E10.4,'' NTPLUI = '',I10 &
+ & ,/,'' ETRADI = '',E10.4,'' NTRADI = '',I10 &
+ & ,'' ETNEBU = '',E10.4,'' NTNEBU = '',I10 &
+ & ,/,'' ETOZON = '',E10.4,'' NTOZON = '',I10 &
+ & ,'' ETDRME = '',E10.4,'' NTDRME = '',I10 &
+ & ,/,'' ETCOET = '',E10.4,'' NTCOET = '',I10 &
+ & ,/,'' ETAJUC = '',E10.4,'' NTAJUC = '',I10 &
+ & ,/,'' XDRMUK = '',E10.4,'' XDRMUP = '',E10.4 &
+ & ,'' XDRMUX = '',E10.4,'' XDRMTK = '',E10.4 &
+ & ,'' XDRMTP = '',E10.4,'' XDRMTX = '',E10.4 &
+ & ,'' XDRMQK = '',E11.4,'' XDRMQP = '',E11.4 &
+ & ,/,'' RFMESOQ= '',E11.4,'' RCLX   = '',E11.4 &
+ & )')&
+ & ETQSAT,NTQSAT,ETDIFU,NTDIFU &
+ & ,ETCOEF,NTCOEF,ETDRAG,NTDRAG &
+ & ,ETCVIM,NTCVIM,ETPLUI,NTPLUI &
+ & ,ETRADI,NTRADI,ETNEBU,NTNEBU &
+ & ,ETOZON,NTOZON,ETDRME,NTDRME &
+ & ,ETCOET,NTCOET &
+ & ,ETAJUC,NTAJUC &
+ & ,XDRMUK,XDRMUP,XDRMUX,XDRMTK,XDRMTP,XDRMTX &
+ & ,XDRMQK,XDRMQP,RFMESOQ,RCLX
+
+!     VERIFICATION OF CONSISTENCY BETWEEN PHYSICAL PARAMETERIZATION
+
+IF (ETCOEF > ETDIFU.OR.ETCOEF > ETDRAG)THEN
+  WRITE(UNIT=KULOUT,FMT='('' ETCOEF TOO LOW '')')
+  CALL ABOR1('SUTOPH')
+ENDIF
+IF (ETQSAT > ETNEBU.OR.ETQSAT > ETPLUI.OR.ETQSAT > ETCVIM)THEN
+  WRITE(UNIT=KULOUT,FMT='('' ETQSAT TOO LOW '')')
+  CALL ABOR1('SUTOPH')
+ENDIF
+IF (ETCVIM > ETNEBU)THEN
+  WRITE(UNIT=KULOUT,FMT='('' ETCVIM TOO LOW '')')
+  CALL ABOR1('SUTOPH')
+ENDIF
+
+!     ------------------------------------------------------------------
+
+!*       4.    INITIALIZE MESOSPHERIC DRAG FOR U,V AND T
+!              -----------------------------------------
+
+IF (LRRMES.AND..NOT.LAGPHY) THEN
+  WRITE (UNIT=KULOUT,FMT='('' PROFIL VERTICAL DE DRAG MESO'',/&
+   & ,'' LEV'',T15,''VITESSE'',T45,''TEMPERATURE'' &
+   & , T65, ''HUMIDITE'' )')  
+  DO JLEV=1,NFLEVG
+    RMESOU(JLEV)=XDRMUK*PMESUF(STPRE(JLEV),XDRMUP)
+    RMESOT(JLEV)=XDRMTK*PMESTF(STPRE(JLEV),XDRMTP)
+    RMESOQ(JLEV)=XDRMQK*PMESQF(STPRE(JLEV),XDRMQP)
+    IF (XDRMUX /= 0.0_JPRB) RMESOU(JLEV)=MIN(RMESOU(JLEV),XDRMUX)
+    IF (XDRMTX /= 0.0_JPRB) RMESOT(JLEV)=MIN(RMESOT(JLEV),XDRMTX)
+    ZMESU=1.0_JPRB/MAX(1.E-8_JPRB,RMESOU(JLEV)*3600._JPRB*24._JPRB)
+    ZMEST=1.0_JPRB/MAX(1.E-8_JPRB,RMESOT(JLEV)*3600._JPRB*24._JPRB)
+    ZMESQ=1.0_JPRB/MAX(1.E-8_JPRB,RMESOQ(JLEV)*3600._JPRB*24._JPRB)
+    WRITE (UNIT=KULOUT,FMT='(I3,T10,E9.3,T20,G9.3,T40,E9.3,T50 &
+     & ,G9.3, T70,E9.3, T80,G9.3)') JLEV,RMESOU(JLEV),ZMESU, &
+     & RMESOT(JLEV),ZMEST, &
+     & RMESOQ(JLEV),ZMESQ 
+  ENDDO
+ENDIF
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SUTOPH',1,ZHOOK_HANDLE)
+END SUBROUTINE SUTOPH
Index: LMDZ5/trunk/libf/phylmd/rrtm/sutoph.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/sutoph.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/sutoph.intfb.h	(revision 1989)
@@ -0,0 +1,6 @@
+INTERFACE
+SUBROUTINE SUTOPH(KULOUT)
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KULOUT
+END SUBROUTINE SUTOPH
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/sutrle_mod.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/sutrle_mod.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/sutrle_mod.F90	(revision 1989)
@@ -0,0 +1,229 @@
+MODULE SUTRLE_MOD
+CONTAINS
+SUBROUTINE SUTRLE(PNM)
+
+!**** *sutrle * - transposition of Legendre polynomials during set-up
+
+!     Purpose.
+!     --------
+!           transposition of Legendre polynomials during set-up
+
+!**   Interface.
+!     ----------
+!        *call* *sutrle(pnm)
+
+!        Explicit arguments :
+!        --------------------
+
+!        Implicit arguments :
+!        --------------------
+
+!     Method.
+!     -------
+!        See documentation
+
+!     Externals.
+!     ----------
+
+!     Reference.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+
+!     Author.
+!     -------
+!        MPP Group *ECMWF*
+
+!     Modifications.
+!     --------------
+!        Original : 95-10-01
+!     ------------------------------------------------------------------
+
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+!USE MPL_MODULE
+
+USE TPM_GEN
+USE TPM_DIM
+USE TPM_DISTR
+USE TPM_FIELDS
+USE SET2PE_MOD
+USE ABORT_TRANS_MOD
+
+IMPLICIT NONE
+
+REAL(KIND=JPRB),INTENT(IN) :: PNM(R%NSPOLEG,D%NLEI3D)
+
+!     LOCAL 
+
+REAL(KIND=JPRB), ALLOCATABLE :: ZCOMBUF(:)
+REAL(KIND=JPRB), POINTER     :: ZPNM(:,:)
+INTEGER(KIND=JPIM) :: IGLLOC, ILREC, IM, INENTR, IPOS, &
+             &IRECSET, IRECV, ISEND, ISENDSET, ITAG, &
+             &JGL, JGLLOC, JM, JMLOC, JN, JROC ,IOFFT, IOFFG
+
+LOGICAL :: LLADMSG, LLEXACT
+
+!     ------------------------------------------------------------------
+
+!*       0.    Some initializations.
+!              ---------------------
+!! Workaround for obscure unwillingness to vectorize on VPP
+ZPNM => F%RPNM
+
+! Perform barrier synchronisation to guarantee all processors have
+! completed all previous communication
+
+IF( NPROC > 1 )THEN
+! CALL GSTATS(783,0)     ! MPL 3.12.08
+! CALL MPL_BARRIER(CDSTRING='SUTRLE:')
+! CALL GSTATS(783,1)
+  CALL ABOR1(' SUTRLE:A LA PLACE DE MPL_BARRIER')
+ENDIF
+
+ALLOCATE (ZCOMBUF(NCOMBFLEN))
+
+DO JROC=1,NPRTRW-1
+
+  LLADMSG = .FALSE.
+  ITAG = MTAGLETR
+
+!*     Define PE to which data have to be sent and PE from which
+!*     data have to be received
+
+! CALL GSTATS(801,0)  ! MPL 4.12.08
+  ISEND = MYSETW-JROC
+  IRECV = MYSETW+JROC
+  IF (ISEND <= 0)     ISEND = ISEND+NPRTRW
+  IF (IRECV > NPRTRW) IRECV = IRECV-NPRTRW
+  IRECSET = IRECV
+  ISENDSET = ISEND
+  CALL SET2PE(ISEND,0,0,ISEND,MYSETV)
+  CALL SET2PE(IRECV,0,0,IRECV,MYSETV)
+
+!*   copy data to be sent into zcombuf
+
+  IPOS = 0
+  DO JM=0,R%NSMAX
+    IF (ISENDSET == D%NPROCM(JM)) THEN
+      INENTR = (D%NLATLE(MYSETW)-D%NLATLS(MYSETW)+1)*(R%NTMAX-JM+2)
+      IF (IPOS + INENTR < NCOMBFLEN) THEN
+        DO JGL=D%NLATLS(MYSETW),D%NLATLE(MYSETW)
+          JGLLOC = JGL - D%NLATLS(MYSETW) + 1
+          DO JN=1,R%NTMAX-JM+2
+            IPOS = IPOS + 1
+            ZCOMBUF(IPOS) = PNM(D%NPMG(JM)+JN,JGLLOC)
+          ENDDO
+        ENDDO
+      ELSE
+        DO JGL=D%NLATLS(MYSETW),D%NLATLE(MYSETW)
+          JGLLOC = JGL - D%NLATLS(MYSETW) + 1
+          DO JN=1,R%NTMAX-JM+2
+            IPOS = IPOS + 1
+            ZCOMBUF(IPOS) = PNM(D%NPMG(JM)+JN,JGLLOC)
+            IF (IPOS == NCOMBFLEN) THEN
+!             CALL MPL_SEND(zcombuf(1:ipos),KDEST=NPRCIDS(ISEND), &
+!              & KTAG=ITAG,CDSTRING='SUTRLE:')     ! MPL 3.12.08
+              CALL ABOR1(' SUTRLE:A LA PLACE DE MPL_SEND')
+              IPOS = 0
+              ITAG = ITAG + 1
+              LLEXACT = (JGL == D%NLATLE(MYSETW) .AND. JN == R%NTMAX-JM+2)
+              IF (.NOT.LLEXACT) LLADMSG = .TRUE.
+            ENDIF
+          ENDDO
+        ENDDO
+      ENDIF
+    ENDIF
+  ENDDO
+
+!*   send message (if not empty or if message has been split)
+
+  IF (IPOS > 0 .OR. LLADMSG) THEN
+!   CALL MPL_SEND(ZCOMBUF(1:IPOS),KDEST=NPRCIDS(ISEND), &
+!    & KTAG=ITAG,CDSTRING='SUTRLE:')    ! MPL 3.12.08
+     CALL ABOR1(' SUTRLE:A LA PLACE DE MPL_SEND')
+  ENDIF
+! CALL GSTATS(801,1) ! MPL 4.12.08
+
+  ILREC = 0
+  ITAG = MTAGLETR
+  IF (D%NUMP > 0.AND. D%NLATLE(IRECSET) >= D%NLATLS(IRECSET)) THEN
+
+!*   receive message (if not empty)
+
+!   CALL GSTATS(801,0)
+!   CALL MPL_RECV(ZCOMBUF(1:NCOMBFLEN),KSOURCE=NPRCIDS(IRECV), &
+!    & KTAG=ITAG,KOUNT=ILREC,CDSTRING='SUTRLE:')  ! MPL 3.12.08
+    CALL ABOR1(' SUTRLE:A LA PLACE DE MPL_RECV')
+
+!*   copy data from buffer to f%rpnm
+
+    IPOS = 0
+    DO JMLOC=1,D%NUMP
+      JM = D%MYMS(JMLOC)
+      INENTR = (D%NLATLE(IRECSET)-D%NLATLS(IRECSET)+1)*(R%NTMAX-JM+2)
+      IOFFT = D%NPMT(JM) 
+      IF (IPOS + INENTR < NCOMBFLEN) THEN
+        DO JGL=D%NLATLS(IRECSET),D%NLATLE(IRECSET)
+          DO JN=1,R%NTMAX-JM+2
+            IPOS = IPOS + 1
+            ZPNM(JGL,IOFFT+JN) = ZCOMBUF(IPOS)
+          ENDDO
+        ENDDO
+      ELSE
+        DO JGL=D%NLATLS(IRECSET),D%NLATLE(IRECSET)
+          DO JN=1,R%NTMAX-JM+2
+            IPOS = IPOS + 1
+            ZPNM(JGL,IOFFT+JN) = ZCOMBUF(IPOS)
+            IF (IPOS == NCOMBFLEN) THEN
+              ITAG = ITAG + 1
+!             CALL MPL_RECV(ZCOMBUF(1:NCOMBFLEN), &
+!              & KSOURCE=NPRCIDS(IRECV),KTAG=ITAG, &
+!              & KOUNT=ILREC,CDSTRING='SUTRLE:')    ! MPL 3.12.08
+              CALL ABOR1(' SUTRLE:A LA PLACE DE MPL_RECV')
+              IPOS = 0
+            ENDIF
+          ENDDO
+        ENDDO
+      ENDIF
+    ENDDO
+!   CALL GSTATS(801,1)  ! MPL 4.12.08
+
+!*    check received message length
+
+    IF (ILREC /= IPOS) THEN
+      WRITE(NOUT,*)' SUTRLE: ILREC,IPOS,NCOMBLEN ',ILREC,IPOS,NCOMBFLEN
+      CALL ABORT_TRANS(' SUTRLE:RECEIVED MESSAGE LENGTH DOES NOT MATCH')
+    ENDIF
+  ENDIF
+
+! Perform barrier synchronisation to guarantee all processors have
+! completed communication for this jroc loop iteration
+
+! CALL MPL_BARRIER(CDSTRING='SUTRLE:')      ! MPL 3.12.08
+  CALL ABOR1(' SUTRLE:A LA PLACE DE MPL_BARRIER')
+
+ENDDO
+
+!*    copy data from pnm to rpnm
+
+!CALL GSTATS(1803,0)   ! MPL 4.12.08
+!cjfe OMP not efficient in that case
+!cjfe!$OMP PARALLEL DO SCHEDULE(STATIC) PRIVATE(jmloc,im,iofft,ioffg,jgl,iglloc,jn)
+DO JMLOC=1,D%NUMP
+  IM = D%MYMS(JMLOC)
+  IOFFT = D%NPMT(IM)
+  IOFFG = D%NPMG(IM)
+  DO JGL=D%NLATLS(MYSETW),D%NLATLE(MYSETW)
+    IGLLOC = JGL-D%NLATLS(MYSETW)+1
+    DO JN=1,R%NTMAX-IM+2
+      ZPNM(JGL,IOFFT+JN) = PNM(IOFFG+JN,IGLLOC)
+    ENDDO
+  ENDDO
+ENDDO
+!cjfe!$OMP END PARALLEL DO
+!CALL GSTATS(1803,1) ! MPL 4.12.08
+
+DEALLOCATE (ZCOMBUF)
+
+END SUBROUTINE SUTRLE
+END MODULE SUTRLE_MOD
Index: LMDZ5/trunk/libf/phylmd/rrtm/suvdf.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/suvdf.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/suvdf.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SUVDF
+END SUBROUTINE SUVDF
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/suvdfs.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/suvdfs.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/suvdfs.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SUVDFS
+END SUBROUTINE SUVDFS
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/suwavedi_mod.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/suwavedi_mod.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/suwavedi_mod.F90	(revision 1989)
@@ -0,0 +1,173 @@
+MODULE SUWAVEDI_MOD
+CONTAINS
+SUBROUTINE SUWAVEDI(KSMAX,KTMAX,KPRTRW,KMYSETW,KASM0,KSPOLEGL,KPROCM,&
+                    &KUMPP,KSPEC,KSPEC2,KSPEC2MX,KPOSSP,KMYMS,&
+                    &KPTRMS,KALLMS,KDIM0G)
+
+!**** *SUWAVEDI * - Routine to initialize spectral wave distribution
+
+!     Purpose.
+!     --------
+!           Initialize arrays controlling spectral wave distribution
+
+!**   Interface.
+!     ----------
+!        *CALL* *SUWAVEDI *
+
+!        Explicit arguments : 
+!        --------------------
+!           KSMAX    - Spectral truncation limit (input)
+!           KTMAX    - Overtruncation for KSMAX (input)
+!           KPRTRW   - Number of processors in A-direction (input)
+!           KMYSETW  - A-set for present processor (input)
+!           KASM0    - Offsets for spectral waves (output)
+!           KSPOLEGL - Local version of NSPOLEG (output)
+!           KPROCM   - Where a certain spectral wave belongs  (output)
+!           KUMPP    - Number of spectral waves on this PE (output)
+!           KSPEC    - Local version on NSPEC (output)
+!           KSPEC2   - Local version on NSPEC2 (output)
+!           KSPEC2MX - Maximum KSPEC2 across PEs (output)
+!           KPOSSP   - Global spectral fields partitioning (output)
+!           KMYMS    - This PEs spectral zonal wavenumbers (output)
+
+!        Implicit arguments : NONE
+!        --------------------
+
+!     Method.
+!     -------
+!        See documentation
+
+!     Externals.   NONE.
+!     ----------
+
+!     Reference.
+!     ----------
+!        ECMWF Research Department documentation of the IFS
+
+!     Author.
+!     -------
+!        MPP Group *ECMWF*
+
+!     Modifications.
+!     --------------
+!        Original : 96-01-10
+!        L.Isaksen: 96-02-02 - Calculation of KSPEC2MX added
+!        K.YESSAD : 97-02-18 - Add KTMAX, bug correction for KSPOLEGL.
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+
+!     DUMMY 
+INTEGER(KIND=JPIM),INTENT(IN)  :: KSMAX
+INTEGER(KIND=JPIM),INTENT(IN)  :: KTMAX
+INTEGER(KIND=JPIM),INTENT(IN)  :: KPRTRW
+INTEGER(KIND=JPIM),INTENT(IN)  :: KMYSETW
+INTEGER(KIND=JPIM),OPTIONAL,INTENT(OUT) :: KSPEC
+INTEGER(KIND=JPIM),OPTIONAL,INTENT(OUT) :: KSPEC2
+INTEGER(KIND=JPIM),OPTIONAL,INTENT(OUT) :: KSPEC2MX
+INTEGER(KIND=JPIM),OPTIONAL,INTENT(OUT) :: KSPOLEGL
+
+INTEGER(KIND=JPIM),OPTIONAL,INTENT(OUT) :: KASM0(0:KSMAX)
+INTEGER(KIND=JPIM),OPTIONAL,INTENT(OUT) :: KPROCM(0:KSMAX)
+INTEGER(KIND=JPIM),OPTIONAL,INTENT(OUT) :: KUMPP(KPRTRW)
+INTEGER(KIND=JPIM),OPTIONAL,INTENT(OUT) :: KMYMS(KSMAX+1)
+INTEGER(KIND=JPIM),OPTIONAL,INTENT(OUT) :: KPOSSP(KPRTRW+1)
+INTEGER(KIND=JPIM),OPTIONAL,INTENT(OUT) :: KPTRMS(KPRTRW)
+INTEGER(KIND=JPIM),OPTIONAL,INTENT(OUT) :: KALLMS(KSMAX+1)
+INTEGER(KIND=JPIM),OPTIONAL,INTENT(OUT) :: KDIM0G(0:KSMAX)
+
+!     LOCAL 
+INTEGER(KIND=JPIM) :: IK, IL, IND, IPOS, ISPEC2P, JA, JM,JMLOC,IM
+INTEGER(KIND=JPIM) :: ISPOLEGL,ISPEC2MX,IASM0(0:KSMAX),IPROCM(0:KSMAX)
+INTEGER(KIND=JPIM) :: IUMPP(KPRTRW),IMYMS(KSMAX+1),IPOSSP(KPRTRW+1)
+INTEGER(KIND=JPIM) :: IPTRMS(KPRTRW),IALLMS(KSMAX+1),IDIM0G(0:KSMAX)
+INTEGER(KIND=JPIM) :: ISPEC(KPRTRW),IC(KPRTRW)
+
+
+!      -----------------------------------------------------------------
+
+!*       1.    Initialize partitioning of wave numbers to PEs
+!              ----------------------------------------------
+
+ISPEC(:) = 0
+
+IUMPP(:) = 0
+IASM0(:) = -99
+ISPOLEGL = 0
+
+IL  = 1
+IND = 1
+IK  = 0
+IPOS = 1
+DO JM=0,KSMAX
+  IK = IK + IND
+  IF (IK > KPRTRW) THEN
+    IK = KPRTRW
+    IND = -1
+  ELSEIF (IK < 1) THEN
+    IK = 1
+    IND = 1
+  ENDIF
+  IPROCM(JM) = IK
+  ISPEC(IK) = ISPEC(IK)+KSMAX-JM+1
+  IUMPP(IK) = IUMPP(IK)+1
+  IF (IK == KMYSETW) THEN
+    ISPOLEGL = ISPOLEGL +KTMAX+1-JM+1
+    IMYMS(IL) = JM
+    IASM0(JM) = IPOS
+    IPOS = IPOS+(KSMAX-JM+1)*2
+    IL = IL+1
+  ENDIF
+ENDDO
+
+IPOSSP(1) = 1
+ISPEC2P = 2*ISPEC(1)
+ISPEC2MX = ISPEC2P
+IPTRMS(1) = 1
+DO JA=2,KPRTRW
+  IPOSSP(JA) = IPOSSP(JA-1)+ISPEC2P
+  ISPEC2P = 2*ISPEC(JA)
+  ISPEC2MX = MAX(ISPEC2MX,ISPEC2P)
+! pointer to the first wave number of a given wave-set in NALLMS array
+  IPTRMS(JA) = IPTRMS(JA-1)+IUMPP(JA-1)
+ENDDO
+IPOSSP(KPRTRW+1) = IPOSSP(KPRTRW)+ISPEC2P
+
+!  IALLMS :  wave numbers for all wave-set concatenated together to give all
+!            wave numbers in wave-set order.
+IC(:) = 0
+DO JM=0,KSMAX
+  IALLMS(IC(IPROCM(JM))+IPTRMS(IPROCM(JM))) = JM
+  IC(IPROCM(JM)) = IC(IPROCM(JM))+1
+ENDDO
+
+IPOS = 1
+DO JA=1,KPRTRW
+  DO JMLOC=1,IUMPP(JA)
+    IM = IALLMS(IPTRMS(JA)+JMLOC-1)
+    IDIM0G(IM) = IPOS
+    IPOS = IPOS+(KSMAX+1-IM)*2
+  ENDDO
+ENDDO
+
+IF(PRESENT(KSPEC))    KSPEC  = ISPEC(KMYSETW)
+IF(PRESENT(KSPEC2))   KSPEC2 = 2*ISPEC(KMYSETW)
+IF(PRESENT(KSPEC2MX)) KSPEC2MX = ISPEC2MX
+IF(PRESENT(KSPOLEGL)) KSPOLEGL = ISPOLEGL
+
+IF(PRESENT(KASM0))  KASM0(:)  = IASM0(:)
+IF(PRESENT(KPROCM)) KPROCM(:) = IPROCM(:)
+IF(PRESENT(KUMPP))  KUMPP(:)  = IUMPP(:)
+IF(PRESENT(KMYMS))  KMYMS(:)  = IMYMS(:)
+IF(PRESENT(KPOSSP)) KPOSSP(:) = IPOSSP(:)
+IF(PRESENT(KPTRMS)) KPTRMS(:) = IPTRMS(:)
+IF(PRESENT(KALLMS)) KALLMS(:) = IALLMS(:)
+IF(PRESENT(KDIM0G)) KDIM0G(:) = IDIM0G(:)
+
+END SUBROUTINE SUWAVEDI
+END MODULE SUWAVEDI_MOD
+
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/suwcou.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/suwcou.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/suwcou.intfb.h	(revision 1989)
@@ -0,0 +1,4 @@
+INTERFACE
+SUBROUTINE SUWCOU
+END SUBROUTINE SUWCOU
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/sw.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/sw.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/sw.F90	(revision 1989)
@@ -0,0 +1,352 @@
+SUBROUTINE SW &
+ & ( KIDIA, KFDIA , KLON  , KLEV , KAER,&
+ & PSCT , PCARDI, PPSOL , PALBD, PALBP , PWV, PQS,&
+ & PRMU0, PCG   , PCLDSW, PDP  , POMEGA, POZ, PPMB,&
+ & PTAU , PTAVE , PAER,&
+ & PFDOWN, PFUP,&
+ & PCDOWN, PCUP,&
+ & PFDNN, PFDNV , PFUPN, PFUPV,&
+ & PCDNN, PCDNV , PCUPN, PCUPV,&
+ & PSUDU, PUVDF , PPARF, PPARCF, PDIFFS , PDIRFS, &
+ & LRDUST, PPIZA_DST,PCGA_DST,PTAUREL_DST &
+ & )
+
+
+!**** *SW* - COMPUTES THE SHORTWAVE RADIATION FLUXES.
+
+!     PURPOSE.
+!     --------
+
+!          THIS ROUTINE COMPUTES THE SHORTWAVE RADIATION FLUXES IN TWO
+!     SPECTRAL INTERVALS FOLLOWING FOUQUART AND BONNEL (1980).
+
+!**   INTERFACE.
+!     ----------
+
+!          *SW* IS CALLED FROM *RADLSW*
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!     METHOD.
+!     -------
+
+!          1. COMPUTES ABSORBER AMOUNTS                 (SWU)
+!          2. COMPUTES FLUXES IN U.V./VISIBLE  SPECTRAL INTERVAL (SW1S)
+!          3. COMPUTES FLUXES IN NEAR-INFRARED SPECTRAL INTERVAL (SWNI)
+
+!     EXTERNALS.
+!     ----------
+
+!          *SWU*, *SW1S*, *SWNI*
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE ECMWF RESEARCH DEPARTMENT
+!        DOCUMENTATION, AND FOUQUART AND BONNEL (1980)
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 89-07-14
+!        95-01-01   J.-J. MORCRETTE  Direct/Diffuse Albedo
+!        95-12-07   J.-J. MORCRETTE  Near-Infrared in nsw-1 Intervals
+!        990128     JJMorcrette      sunshine duration
+!        99-05-25   JJMorcrette      Revised aerosols
+!        00-12-18   JJMorcrette      6 spectral intervals
+!        02-09-01   JJMorcrette      UV and PAR
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        Y.Seity  04-11-18 : add two arguments for AROME extern. surface
+!        Y.Seity  05-10-10 : add add 3 optional arg. for dust SW properties
+!        JJMorcrette 20060721 PP of clear-sky PAR
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+!USE YOERAD   , ONLY : NSW
+! NSW mis dans .def MPL 20140211
+USE write_field_phy
+
+IMPLICIT NONE
+
+include "clesphys.h"
+
+integer, save :: icount=0
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLON 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KIDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KAER 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PSCT 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCARDI 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PPSOL(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PALBD(KLON,NSW) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PALBP(KLON,NSW) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PWV(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PQS(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PRMU0(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCG(KLON,NSW,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCLDSW(KLON,KLEV) 
+REAL(KIND=JPRB)                  :: PDP(KLON,KLEV) ! Argument NOT used
+REAL(KIND=JPRB)   ,INTENT(IN)    :: POMEGA(KLON,NSW,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: POZ(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PPMB(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAU(KLON,NSW,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAVE(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PAER(KLON,6,KLEV) 
+!++MODIFCODE
+LOGICAL           ,INTENT(IN)    :: LRDUST
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PPIZA_DST(KLON,KLEV,NSW)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCGA_DST(KLON,KLEV,NSW)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAUREL_DST(KLON,KLEV,NSW)
+!--MODIFCODE
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFDOWN(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFUP(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PCDOWN(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PCUP(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFDNN(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFDNV(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFUPN(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFUPV(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PCDNN(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PCDNV(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PCUPN(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PCUPV(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PSUDU(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PUVDF(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PPARF(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PPARCF(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PDIFFS(KLON,NSW) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PDIRFS(KLON,NSW) 
+!     ------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+!     ------------------------------------------------------------------
+
+!              ------------
+
+REAL(KIND=JPRB) :: ZAKI(KLON,2,NSW)&
+ & ,  ZCLD(KLON,KLEV)    , ZCLEAR(KLON) &
+ & ,  ZDSIG(KLON,KLEV)   , ZFACT(KLON)&
+ & ,  ZFD(KLON,KLEV+1)   , ZCD(KLON,KLEV+1)&
+ & ,  ZCDOWN(KLON,KLEV+1), ZCDNIR(KLON,KLEV+1), ZCDUVS(KLON,KLEV+1)&
+ & ,  ZFDOWN(KLON,KLEV+1), ZFDNIR(KLON,KLEV+1), ZFDUVS(KLON,KLEV+1)&
+ & ,  ZFU(KLON,KLEV+1)   , ZCU(KLON,KLEV+1)&
+ & ,  ZCUP(KLON,KLEV+1)  , ZCUNIR(KLON,KLEV+1), ZCUUVS(KLON,KLEV+1)&
+ & ,  ZFUP(KLON,KLEV+1)  , ZFUNIR(KLON,KLEV+1), ZFUUVS(KLON,KLEV+1)&
+ & ,  ZRMU(KLON)         , ZSEC(KLON)         &
+ & ,  ZSUDU1(KLON)       , ZSUDU2(KLON)       &
+ & ,  ZSUDU1T(KLON)      , ZSUDU2T(KLON)      &
+ & ,  ZUD(KLON,5,KLEV+1) ,ZDIFF(KLON,KLEV)   ,ZDIRF(KLON,KLEV)    &
+ & ,  ZDIFF2(KLON,KLEV)  , ZDIRF2(KLON,KLEV)
+
+INTEGER(KIND=JPIM) ::  JK, JL, JNU, INUVS, INUIR
+
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+LOGICAL         :: LLDEBUG
+character*1 str1
+
+#include "sw1s.intfb.h"
+#include "swni.intfb.h"
+#include "swu.intfb.h"
+
+!     ------------------------------------------------------------------
+
+!*         1.     ABSORBER AMOUNTS AND OTHER USEFUL QUANTITIES
+!                 --------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SW',0,ZHOOK_HANDLE)
+LLDEBUG=.FALSE.
+CALL SWU ( KIDIA,KFDIA ,KLON  ,KLEV,&
+ & PSCT ,PCARDI,PCLDSW,PPMB ,PPSOL,&
+ & PRMU0,PTAVE ,PWV,&
+ & ZAKI ,ZCLD  ,ZCLEAR,ZDSIG,ZFACT,ZRMU,ZSEC,ZUD )  
+
+!     ------------------------------------------------------------------
+!*         2.     INTERVAL (0.185/0.25-0.68 MICRON): U.V. AND VISIBLE
+!                 ---------------------------------------------------
+IF (NSW <= 4) THEN
+  INUVS=1
+  INUIR=2
+ELSEIF (NSW == 6) THEN
+  INUVS=1
+  INUIR=4
+ENDIF     
+
+DO JK = 1 , KLEV+1
+  DO JL = KIDIA,KFDIA
+    ZFD(JL,JK) =0.0_JPRB
+    ZFU(JL,JK) =0.0_JPRB
+    ZCD(JL,JK) =0.0_JPRB
+    ZCU(JL,JK) =0.0_JPRB
+  ENDDO
+ENDDO
+DO JL = KIDIA,KFDIA
+  ZSUDU1T(JL)=0.0_JPRB
+  PUVDF(JL)  =0.0_JPRB
+  PPARF(JL)  =0.0_JPRB
+  PPARCF(JL) =0.0_JPRB
+ENDDO
+
+IF(LLDEBUG) THEN
+call writefield_phy('sw_zsec',ZSEC,1)
+call writefield_phy('sw_zrmu',ZRMU,1)
+call writefield_phy('sw_prmu0',PRMU0,1)
+call writefield_phy('sw_zfact',ZFACT,1)
+ENDIF
+
+icount=icount+1
+DO JNU = INUVS , INUIR-1
+   !++MODIFCODE
+     CALL SW1S &
+           &( KIDIA , KFDIA, KLON , KLEV , KAER  , JNU &
+           &,  PAER , PALBD , PALBP, PCG  , ZCLD , ZCLEAR &
+           &,  ZDSIG, POMEGA, POZ  , ZRMU , ZSEC , PTAU  , ZUD  &
+           &,  ZFDUVS,ZFUUVS, ZCDUVS,ZCUUVS, ZSUDU1, ZDIFF,ZDIRF &
+           &,  LRDUST,PPIZA_DST(:,:,JNU) &       ! SSA for this wavelength
+           &,  PCGA_DST(:,:,JNU)   &            ! GCA for this wavelengt
+           &,  PTAUREL_DST(:,:,JNU) )           ! TAUREL for this wavelength
+  !--MODIFCODE
+IF(LLDEBUG) THEN
+! Ecriture des champs avec un indicage du fichier par l'intervalle spectral
+  write(str1,'(i1)') jnu
+  call writefield_phy("sw_zcduvs"//str1,zcduvs,klev+1)
+ENDIF
+
+
+  DO JL=KIDIA,KFDIA
+  PDIFFS(JL,JNU)=ZDIFF(JL,1)*ZFACT(JL)
+  PDIRFS(JL,JNU)=ZDIRF(JL,1)*ZFACT(JL)
+  ENDDO
+  DO JK = 1 , KLEV+1
+    DO JL = KIDIA,KFDIA
+      ZFD(JL,JK)=ZFD(JL,JK)+ZFDUVS(JL,JK)
+      ZFU(JL,JK)=ZFU(JL,JK)+ZFUUVS(JL,JK)
+      ZCD(JL,JK)=ZCD(JL,JK)+ZCDUVS(JL,JK)
+      ZCU(JL,JK)=ZCU(JL,JK)+ZCUUVS(JL,JK)
+    ENDDO
+  ENDDO
+  DO JL = KIDIA,KFDIA
+    ZSUDU1T(JL)=ZSUDU1T(JL)+ZSUDU1(JL)
+  ENDDO
+
+  IF (NSW == 6) THEN
+    IF (JNU <= 2) THEN
+      DO JL = KIDIA,KFDIA
+        PUVDF(JL)=PUVDF(JL)+ZFDUVS(JL,1)
+      ENDDO
+    ELSEIF (JNU == 3) THEN
+      DO JL=KIDIA,KFDIA
+        PPARF(JL)=PPARF(JL)+ZFDUVS(JL,1)
+        PPARCF(JL)=PPARCF(JL)+ZCDUVS(JL,1)
+      ENDDO
+    ENDIF    
+  ENDIF  
+ENDDO
+
+!if (icount==5) stop'on arrete dans sw.F90 au bout de 5 appels'
+!     ------------------------------------------------------------------
+
+!*         3.     INTERVAL (0.68-4.00 MICRON): NEAR-INFRARED
+!                 ------------------------------------------
+
+DO JK = 1 , KLEV+1
+  DO JL = KIDIA,KFDIA
+    ZFDOWN(JL,JK)=0.0_JPRB
+    ZFUP  (JL,JK)=0.0_JPRB
+    ZCDOWN(JL,JK)=0.0_JPRB
+    ZCUP  (JL,JK)=0.0_JPRB
+    ZSUDU2T(JL)  =0.0_JPRB
+  ENDDO
+ENDDO
+
+DO JNU = INUIR , NSW
+   !++MODIFCODE
+      CALL SWNI &
+           &(  KIDIA ,KFDIA , KLON , KLEV , KAER , JNU &
+           &,  PAER  ,ZAKI  , PALBD, PALBP, PCG  , ZCLD, ZCLEAR &
+           &,  ZDSIG ,POMEGA, POZ  , ZRMU , ZSEC , PTAU, ZUD      &
+           &,  PWV   ,PQS &
+           &,  ZFDNIR,ZFUNIR,ZCDNIR,ZCUNIR,ZSUDU2,ZDIFF2,ZDIRF2 &
+           &,  LRDUST,PPIZA_DST(:,:,JNU)  &
+           &,  PCGA_DST(:,:,JNU)    &
+           &,  PTAUREL_DST(:,:,JNU) &
+           &)
+    !--MODIFCODE
+
+IF(LLDEBUG) THEN
+! Ecriture des champs avec un indicage du fichier par l'intervalle spectral
+  write(str1,'(i1)') jnu
+  call writefield_phy("sw_zcdnir"//str1,zcdnir,klev+1)
+ENDIF
+
+  DO JL=KIDIA,KFDIA
+    PDIFFS(JL,JNU)=ZDIFF2(JL,1)*ZFACT(JL)
+    PDIRFS(JL,JNU)=ZDIRF2(JL,1)*ZFACT(JL)
+  ENDDO
+  DO JK = 1 , KLEV+1
+    DO JL = KIDIA,KFDIA
+      ZFDOWN(JL,JK)=ZFDOWN(JL,JK)+ZFDNIR(JL,JK)
+      ZFUP  (JL,JK)=ZFUP  (JL,JK)+ZFUNIR(JL,JK)
+      ZCDOWN(JL,JK)=ZCDOWN(JL,JK)+ZCDNIR(JL,JK)
+      ZCUP  (JL,JK)=ZCUP  (JL,JK)+ZCUNIR(JL,JK)
+    ENDDO
+  ENDDO
+  DO JL = KIDIA,KFDIA
+    ZSUDU2T(JL)=ZSUDU2T(JL)+ZSUDU2(JL)
+  ENDDO
+ENDDO
+
+!     ------------------------------------------------------------------
+
+!*         4.     FILL THE DIAGNOSTIC ARRAYS
+!                 --------------------------
+
+DO JL = KIDIA,KFDIA
+  PFDNN(JL)=ZFDOWN(JL,1)*ZFACT(JL)
+  PFDNV(JL)=ZFD(JL,1)*ZFACT(JL)
+  PFUPN(JL)=ZFUP(JL,KLEV+1)*ZFACT(JL)
+  PFUPV(JL)=ZFU(JL,KLEV+1)*ZFACT(JL)
+
+  PCDNN(JL)=ZCDOWN(JL,1)*ZFACT(JL)
+  PCDNV(JL)=ZCD(JL,1)*ZFACT(JL)
+  PCUPN(JL)=ZCUP(JL,KLEV+1)*ZFACT(JL)
+  PCUPV(JL)=ZCU(JL,KLEV+1)*ZFACT(JL)
+
+  PSUDU(JL)=(ZSUDU1T(JL)+ZSUDU2T(JL))*ZFACT(JL)
+  PUVDF(JL)=PUVDF(JL)*ZFACT(JL)
+  PPARF(JL)=PPARF(JL)*ZFACT(JL)
+  PPARCF(JL)=PPARCF(JL)*ZFACT(JL)
+ENDDO
+
+!WRITE(*,'("---> Dans SW:")')
+!WRITE(*,'("ZFUP  ",10E12.5)') (ZFUP(1,JK),JK=1,KLEV+1)
+!WRITE(*,'("ZFU   ",10E12.5)') (ZFU(1,JK),JK=1,KLEV+1)
+!WRITE(*,'("ZFUNIR",10E12.5)') (ZFUNIR(1,JK),JK=1,KLEV+1)
+!WRITE(*,'("ZFACT ",E12.5)') ZFACT(1)
+
+DO JK = 1 , KLEV+1
+  DO JL = KIDIA,KFDIA
+    PFUP(JL,JK)   = (ZFUP(JL,JK)   + ZFU(JL,JK)) * ZFACT(JL)
+    PFDOWN(JL,JK) = (ZFDOWN(JL,JK) + ZFD(JL,JK)) * ZFACT(JL)
+    PCUP(JL,JK)   = (ZCUP(JL,JK)   + ZCU(JL,JK)) * ZFACT(JL)
+    PCDOWN(JL,JK) = (ZCDOWN(JL,JK) + ZCD(JL,JK)) * ZFACT(JL)
+  ENDDO
+ENDDO
+IF(LLDEBUG) THEN
+call writefield_phy('sw_pcdown',PCDOWN,KLEV+1)
+ENDIF
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SW',1,ZHOOK_HANDLE)
+END SUBROUTINE SW
Index: LMDZ5/trunk/libf/phylmd/rrtm/sw.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/sw.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/sw.intfb.h	(revision 1989)
@@ -0,0 +1,61 @@
+INTERFACE
+SUBROUTINE SW&
+ & ( KIDIA, KFDIA , KLON , KLEV , KAER,&
+ & PSCT , PCARDI, PPSOL , PALBD, PALBP , PWV, PQS,&
+ & PRMU0, PCG , PCLDSW, PDP , POMEGA, POZ, PPMB,&
+ & PTAU , PTAVE , PAER,&
+ & PFDOWN, PFUP,&
+ & PCDOWN, PCUP,&
+ & PFDNN, PFDNV , PFUPN, PFUPV,&
+ & PCDNN, PCDNV , PCUPN, PCUPV,&
+ & PSUDU, PUVDF , PPARF, PPARCF, PDIFFS , PDIRFS,&
+ & LRDUST, PPIZA_DST,PCGA_DST,PTAUREL_DST&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+include "clesphys.h"    
+INTEGER(KIND=JPIM),INTENT(IN) :: KLON
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KAER
+REAL(KIND=JPRB) ,INTENT(IN) :: PSCT
+REAL(KIND=JPRB) ,INTENT(IN) :: PCARDI
+REAL(KIND=JPRB) ,INTENT(IN) :: PPSOL(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PALBD(KLON,NSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: PALBP(KLON,NSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: PWV(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PQS(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PRMU0(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCG(KLON,NSW,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCLDSW(KLON,KLEV)
+REAL(KIND=JPRB) :: PDP(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: POMEGA(KLON,NSW,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: POZ(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PPMB(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTAU(KLON,NSW,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTAVE(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PAER(KLON,6,KLEV)
+LOGICAL ,INTENT(IN) :: LRDUST
+REAL(KIND=JPRB) ,INTENT(IN) :: PPIZA_DST(KLON,KLEV,NSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCGA_DST(KLON,KLEV,NSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTAUREL_DST(KLON,KLEV,NSW)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFDOWN(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFUP(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PCDOWN(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PCUP(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFDNN(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFDNV(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFUPN(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFUPV(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PCDNN(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PCDNV(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PCUPN(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PCUPV(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PSUDU(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PUVDF(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PPARF(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PPARCF(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PDIFFS(KLON,NSW)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PDIRFS(KLON,NSW)
+END SUBROUTINE SW
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/sw1s.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/sw1s.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/sw1s.F90	(revision 1989)
@@ -0,0 +1,450 @@
+SUBROUTINE SW1S &
+ & ( KIDIA , KFDIA , KLON , KLEV , KAER , KNU,&
+ & PAER  , PALBD , PALBP, PCG  , PCLD , PCLEAR,&
+ & PDSIG , POMEGA, POZ  , PRMU , PSEC , PTAU  , PUD,&
+ & PFD   , PFU   , PCD  , PCU  , PSUDU1,PDIFF , PDIRF, &
+!++MODIFCODE
+ & LRDUST,PPIZA_DST,PCGA_DST,PTAUREL_DST  &
+!--MODIFCODE
+ &)
+
+!**** *SW1S* - SHORTWAVE RADIATION, FIRST SPECTRAL INTERVAL
+
+!     PURPOSE.
+!     --------
+
+!          THIS ROUTINE COMPUTES THE SHORTWAVE RADIATION FLUXES IN TWO
+!     SPECTRAL INTERVALS FOLLOWING FOUQUART AND BONNEL (1980).
+
+!**   INTERFACE.
+!     ----------
+
+!          *SW1S* IS CALLED FROM *SW*.
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!     METHOD.
+!     -------
+
+!          1. COMPUTES QUANTITIES FOR THE CLEAR-SKY FRACTION OF THE
+!     COLUMN
+!          2. COMPUTES UPWARD AND DOWNWARD FLUXES CORRESPONDING TO
+!     CONTINUUM SCATTERING
+!          3. MULTIPLY BY OZONE TRANSMISSION FUNCTION
+
+!     EXTERNALS.
+!     ----------
+
+!          *SWCLR*, *SWR*, *SWTT*, *SWUVO3*
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE ECMWF RESEARCH DEPARTMENT
+!        DOCUMENTATION, AND FOUQUART AND BONNEL (1980)
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 89-07-14
+!        94-11-15   J.-J. MORCRETTE    DIRECT/DIFFUSE ALBEDO
+!        96-01-15   J.-J. MORCRETTE    SW in nsw SPECTRAL INTERVALS 
+!        990128     JJMorcrette        sunshine duration
+!        99-05-25   JJMorcrette        Revised aerosols
+!        00-12-18   JJMorcrette        6 spectral intervals
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        Y.Seity  04-11-19 : add two arguments for AROME externalized surface
+!        Y.Seity  05-10-10 : add 3 optional arg. for dust SW properties
+!        Y.Seity 06-09-09 : add modset from O.Thouron (MesoNH) under NOVLP tests
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOESW    , ONLY : RRAY     ,RSUN
+!USE YOERAD   , ONLY : NSW
+! NSW mis dans .def MPL 20140211
+USE write_field_phy
+
+IMPLICIT NONE
+
+include "clesphys.h"
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLON 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KIDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KAER 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KNU 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PAER(KLON,6,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PALBD(KLON,NSW) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PALBP(KLON,NSW) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCG(KLON,NSW,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCLD(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCLEAR(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PDSIG(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: POMEGA(KLON,NSW,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: POZ(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PRMU(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PSEC(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAU(KLON,NSW,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PUD(KLON,5,KLEV+1) 
+!++MODIFCODE
+LOGICAL           ,INTENT(IN)    :: LRDUST          ! flag for DUST
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PPIZA_DST(KLON,KLEV)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCGA_DST(KLON,KLEV)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAUREL_DST(KLON,KLEV)
+!--MODIFCODE
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFD(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFU(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PCD(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PCU(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PSUDU1(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PDIFF(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PDIRF(KLON,KLEV) 
+!     ------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+!     ------------------------------------------------------------------
+
+!              ------------
+
+INTEGER(KIND=JPIM) :: IIND(6)
+
+REAL(KIND=JPRB) :: ZCGAZ(KLON,KLEV)&
+ & ,  ZDIFF(KLON)        , ZDIRF(KLON)        &
+ & ,  ZDIFT(KLON)        , ZDIRT(KLON)        &
+ & ,  ZPIZAZ(KLON,KLEV)&
+ & ,  ZRAYL(KLON), ZRAY1(KLON,KLEV+1), ZRAY2(KLON,KLEV+1)&
+ & ,  ZREFZ(KLON,2,KLEV+1)&
+ & ,  ZRJ(KLON,6,KLEV+1), ZRJ0(KLON,6,KLEV+1)&
+ & ,  ZRK(KLON,6,KLEV+1), ZRK0(KLON,6,KLEV+1)&
+ & ,  ZRMUE(KLON,KLEV+1), ZRMU0(KLON,KLEV+1)&
+ & ,  ZR(KLON,6)&
+ & ,  ZTAUAZ(KLON,KLEV)&
+ & ,  ZTRA1(KLON,KLEV+1), ZTRA2(KLON,KLEV+1)&
+ & ,  ZTRCLD(KLON)      , ZTRCLR(KLON)&
+ & ,  ZW(KLON,6)        , ZO(KLON,2) ,ZT(KLON,2)   
+
+INTEGER(KIND=JPIM) :: IKL, IKM1, JAJ, JK, JL , JJ
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+LOGICAL         :: LLDEBUG
+
+#include "swclr.intfb.h"
+#include "swr.intfb.h"
+#include "swtt1.intfb.h"
+#include "swuvo3.intfb.h"
+
+!     ------------------------------------------------------------------
+
+!*         1.     FIRST SPECTRAL INTERVAL (0.25-0.68 MICRON)
+!                 ----------------------- ------------------
+
+!*         1.1    OPTICAL THICKNESS FOR RAYLEIGH SCATTERING
+!                 -----------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SW1S',0,ZHOOK_HANDLE)
+LLDEBUG=.FALSE.
+DO JL = KIDIA,KFDIA
+  ZRAYL(JL) =  RRAY(KNU,1) + PRMU(JL) * (RRAY(KNU,2) + PRMU(JL)&
+   & * (RRAY(KNU,3) + PRMU(JL) * (RRAY(KNU,4) + PRMU(JL)&
+   & * (RRAY(KNU,5) + PRMU(JL) *  RRAY(KNU,6)       ))))  
+ENDDO
+!     ------------------------------------------------------------------
+
+!*         2.    CONTINUUM SCATTERING CALCULATIONS
+!                ---------------------------------
+
+!*         2.1   CLEAR-SKY FRACTION OF THE COLUMN
+!                --------------------------------
+
+!++MODIFCODE
+CALL SWCLR &
+   &( KIDIA  , KFDIA , KLON  , KLEV , KAER , KNU &
+   &, PAER   , PALBP , PDSIG , ZRAYL, PSEC &
+   &, ZCGAZ  , ZPIZAZ, ZRAY1 , ZRAY2, ZREFZ, ZRJ0 &
+   &, ZRK0   , ZRMU0 , ZTAUAZ, ZTRA1, ZTRA2, ZTRCLR &
+   &, LRDUST , PPIZA_DST,PCGA_DST  &
+   &, PTAUREL_DST )
+
+!--MODIFCODE
+
+!*         2.2   CLOUDY FRACTION OF THE COLUMN
+!                -----------------------------
+
+CALL SWR &
+ & ( KIDIA ,KFDIA ,KLON  ,KLEV  , KNU,&
+ & PALBD ,PCG   ,PCLD  ,POMEGA, PSEC , PTAU,&
+ & ZCGAZ ,ZPIZAZ,ZRAY1 ,ZRAY2 , ZREFZ, ZRJ  ,ZRK , ZRMUE,&
+ & ZTAUAZ,ZTRA1 ,ZTRA2 ,ZTRCLD &
+ & )  
+
+! DO JK = 1 , KLEV
+!   IKL = KLEV+1-JK
+!   DO JL = KIDIA,KFDIA
+!   print *,'Apres SWCLR,SWR RMU0 RMUE ',ZRMU0(JL,IKL),ZRMUE(JL,IKL)
+!   ENDDO
+! ENDDO
+!     ------------------------------------------------------------------
+
+!*         3.    OZONE ABSORPTION
+!                ----------------
+
+IF (NSW <= 4) THEN
+
+!*         3.1   TWO OR FOUR SPECTRAL INTERVALS
+!                ------------------------------
+
+  IIND(1)=1
+  IIND(2)=2
+  IIND(3)=3
+  IIND(4)=1
+  IIND(5)=2
+  IIND(6)=3
+
+!*         3.1.1  DOWNWARD FLUXES
+!                 ---------------
+
+  JAJ = 2
+
+  DO JL = KIDIA,KFDIA
+    ZW(JL,1)=0.0_JPRB
+    ZW(JL,2)=0.0_JPRB
+    ZW(JL,3)=0.0_JPRB
+    ZW(JL,4)=0.0_JPRB
+    ZW(JL,5)=0.0_JPRB
+    ZW(JL,6)=0.0_JPRB
+    PFD(JL,KLEV+1)=((1.0_JPRB-PCLEAR(JL))*ZRJ(JL,JAJ,KLEV+1)&
+     & + PCLEAR(JL) *ZRJ0(JL,JAJ,KLEV+1)) * RSUN(KNU)  
+    PCD(JL,KLEV+1)= ZRJ0(JL,JAJ,KLEV+1) * RSUN(KNU)
+  ENDDO
+  DO JK = 1 , KLEV
+    IKL = KLEV+1-JK
+    DO JL = KIDIA,KFDIA
+      ZW(JL,1)=ZW(JL,1)+PUD(JL,1,IKL)/ZRMUE(JL,IKL)
+      ZW(JL,2)=ZW(JL,2)+PUD(JL,2,IKL)/ZRMUE(JL,IKL)
+      ZW(JL,3)=ZW(JL,3)+POZ(JL,  IKL)/ZRMUE(JL,IKL)
+      ZW(JL,4)=ZW(JL,4)+PUD(JL,1,IKL)/ZRMU0(JL,IKL)
+      ZW(JL,5)=ZW(JL,5)+PUD(JL,2,IKL)/ZRMU0(JL,IKL)
+      ZW(JL,6)=ZW(JL,6)+POZ(JL,  IKL)/ZRMU0(JL,IKL)
+    ENDDO
+    
+    CALL SWTT1 ( KIDIA, KFDIA, KLON, KNU, 6,&
+     & IIND,&
+     & ZW,&
+     & ZR                          )  
+
+    DO JL = KIDIA,KFDIA
+      ZDIFF(JL) = ZR(JL,1)*ZR(JL,2)*ZR(JL,3)*ZRJ(JL,JAJ,IKL)
+      ZDIRF(JL) = ZR(JL,4)*ZR(JL,5)*ZR(JL,6)*ZRJ0(JL,JAJ,IKL)
+      PDIFF(JL,IKL) = ZDIFF(JL) * RSUN(KNU)*(1.0_JPRB-PCLEAR(JL))
+      PDIRF(JL,IKL) = ZDIRF(JL) * RSUN(KNU)*PCLEAR(JL)
+      PFD(JL,IKL) = ((1.0_JPRB-PCLEAR(JL)) * ZDIFF(JL)&
+       & +PCLEAR(JL)  * ZDIRF(JL)) * RSUN(KNU)  
+      PCD(JL,IKL) = ZDIRF(JL) * RSUN(KNU)
+    ENDDO
+  ENDDO
+
+  DO JL=KIDIA,KFDIA
+    ZDIFT(JL) = ZR(JL,1)*ZR(JL,2)*ZR(JL,3)*ZTRCLD(JL)
+    ZDIRT(JL) = ZR(JL,4)*ZR(JL,5)*ZR(JL,6)*ZTRCLR(JL)
+    PSUDU1(JL) = ((1.0_JPRB-PCLEAR(JL)) * ZDIFT(JL)&
+     & +PCLEAR(JL) * ZDIRT(JL)) * RSUN(KNU)  
+  ENDDO
+
+!*         3.1.2  UPWARD FLUXES
+!                 -------------
+
+  DO JL = KIDIA,KFDIA
+    PFU(JL,1) = ((1.0_JPRB-PCLEAR(JL))*ZDIFF(JL)*PALBD(JL,KNU)&
+     & + PCLEAR(JL) *ZDIRF(JL)*PALBP(JL,KNU))&
+     & * RSUN(KNU)  
+    PCU(JL,1) = ZDIRF(JL) * PALBP(JL,KNU) * RSUN(KNU)
+  ENDDO
+
+  DO JK = 2 , KLEV+1
+    IKM1=JK-1
+    DO JL = KIDIA,KFDIA
+      ZW(JL,1)=ZW(JL,1)+PUD(JL,1,IKM1)*1.66_JPRB
+      ZW(JL,2)=ZW(JL,2)+PUD(JL,2,IKM1)*1.66_JPRB
+      ZW(JL,3)=ZW(JL,3)+POZ(JL,  IKM1)*1.66_JPRB
+      ZW(JL,4)=ZW(JL,4)+PUD(JL,1,IKM1)*1.66_JPRB
+      ZW(JL,5)=ZW(JL,5)+PUD(JL,2,IKM1)*1.66_JPRB
+      ZW(JL,6)=ZW(JL,6)+POZ(JL,  IKM1)*1.66_JPRB
+    ENDDO
+    
+    CALL SWTT1 ( KIDIA, KFDIA, KLON, KNU, 6,&
+     & IIND,&
+     & ZW,&
+     & ZR                          )  
+  
+    DO JL = KIDIA,KFDIA
+      ZDIFF(JL) = ZR(JL,1)*ZR(JL,2)*ZR(JL,3)*ZRK(JL,JAJ,JK)
+      ZDIRF(JL) = ZR(JL,4)*ZR(JL,5)*ZR(JL,6)*ZRK0(JL,JAJ,JK)
+      PFU(JL,JK) = ((1.0_JPRB-PCLEAR(JL)) * ZDIFF(JL)&
+       & +PCLEAR(JL)  * ZDIRF(JL)) * RSUN(KNU)  
+      PCU(JL,JK) = ZDIRF(JL) * RSUN(KNU)
+    ENDDO
+!WRITE(*,'("---> Dans SW1S:")')
+!WRITE(*,'("PFU",10E12.5)') (PFU(1,JJ),JJ=1,KLEV+1)
+!WRITE(*,'("PCLEAR",10E12.5)') (PCLEAR(1))
+!WRITE(*,'("ZDIFF",10E12.5)') (ZDIFF(1))
+!WRITE(*,'("ZDIRF",10E12.5)') (ZDIRF(1))
+!WRITE(*,'("RSUN",10E12.5)') (RSUN(KNU))
+  ENDDO
+
+ELSEIF (NSW == 6) THEN
+print *,'... dans SW1S: NSW=',NSW
+
+!*         3.2   SIX SPECTRAL INTERVALS
+!                ----------------------
+
+  IIND(1)=1
+  IIND(2)=2
+  IIND(3)=1
+  IIND(4)=2
+
+!*         3.2,1  DOWNWARD FLUXES
+!                 ---------------
+
+  JAJ = 2
+
+  DO JL = KIDIA,KFDIA
+    ZW(JL,1)=0.0_JPRB
+    ZW(JL,2)=0.0_JPRB
+    ZW(JL,3)=0.0_JPRB
+    ZW(JL,4)=0.0_JPRB
+  
+    ZO(JL,1)=0.0_JPRB
+    ZO(JL,2)=0.0_JPRB
+    PFD(JL,KLEV+1)=((1.0_JPRB-PCLEAR(JL))*ZRJ(JL,JAJ,KLEV+1)&
+     & + PCLEAR(JL) *ZRJ0(JL,JAJ,KLEV+1)) * RSUN(KNU)  
+    PCD(JL,KLEV+1)= ZRJ0(JL,JAJ,KLEV+1) * RSUN(KNU)
+  ENDDO
+  DO JK = 1 , KLEV
+    IKL = KLEV+1-JK
+    DO JL = KIDIA,KFDIA
+      ZW(JL,1)=ZW(JL,1)+PUD(JL,1,IKL)/ZRMUE(JL,IKL)
+      ZW(JL,2)=ZW(JL,2)+PUD(JL,2,IKL)/ZRMUE(JL,IKL)
+      ZW(JL,3)=ZW(JL,3)+PUD(JL,1,IKL)/ZRMU0(JL,IKL)
+      ZW(JL,4)=ZW(JL,4)+PUD(JL,2,IKL)/ZRMU0(JL,IKL)
+    
+      ZO(JL,1)=ZO(JL,1)+POZ(JL,  IKL)/ZRMUE(JL,IKL)
+      ZO(JL,2)=ZO(JL,2)+POZ(JL,  IKL)/ZRMU0(JL,IKL)
+    ENDDO
+ 
+!   WRITE(*,'("---> Dans SW1S avant SWTT1:")')
+    CALL SWTT1 ( KIDIA, KFDIA, KLON, KNU, 4,&
+     & IIND,&
+     & ZW,&
+     & ZR  &
+     & )  
+
+!   WRITE(*,'("---> Dans SW1S avant SWUVO3 flux dwn:")')
+    CALL SWUVO3 ( KIDIA, KFDIA, KLON, KNU, 2,&
+     & ZO,&
+     & ZT  &
+     & )  
+
+    DO JL = KIDIA,KFDIA
+      ZDIFF(JL) = ZR(JL,1)*ZR(JL,2)*ZT(JL,1)*ZRJ(JL,JAJ,IKL)
+      ZDIRF(JL) = ZR(JL,3)*ZR(JL,4)*ZT(JL,2)*ZRJ0(JL,JAJ,IKL)
+      PDIFF(JL,IKL) = ZDIFF(JL) * RSUN(KNU)*(1.0_JPRB-PCLEAR(JL)) 
+      PDIRF(JL,IKL) = ZDIRF(JL) * RSUN(KNU)*PCLEAR(JL)
+      PFD(JL,IKL) = ((1.0_JPRB-PCLEAR(JL)) * ZDIFF(JL)&
+       & +PCLEAR(JL)  * ZDIRF(JL)) * RSUN(KNU)  
+      PCD(JL,IKL) = ZDIRF(JL) * RSUN(KNU)
+    ENDDO
+  ENDDO
+
+  IF(LLDEBUG) THEN
+  call writefield_phy('sw1s_pud1',PUD(:,1,:),klev)
+  call writefield_phy('sw1s_pud2',PUD(:,2,:),klev)
+  call writefield_phy('sw1s_psec',PSEC,1)
+  call writefield_phy('sw1s_zrmue',ZRMUE,klev+1)
+  call writefield_phy('sw1s_zrmu0',ZRMU0,klev+1)
+  call writefield_phy('sw1s_pdirf',PDIRF,klev)
+  call writefield_phy('sw1s_pdiff',PDIFF,klev)
+  call writefield_phy('sw1s_pfd',PFD,klev)
+  ENDIF
+  DO JL=KIDIA,KFDIA
+    ZDIFT(JL) = ZR(JL,1)*ZR(JL,2)*ZT(JL,1)*ZTRCLD(JL)
+    ZDIRT(JL) = ZR(JL,3)*ZR(JL,4)*ZT(JL,2)*ZTRCLR(JL)
+    PSUDU1(JL) = ((1.0_JPRB-PCLEAR(JL)) * ZDIFT(JL)&
+     & +PCLEAR(JL) * ZDIRT(JL)) * RSUN(KNU)  
+  ENDDO
+
+!*         3.2.2  UPWARD FLUXES
+!                 -------------
+
+  DO JL = KIDIA,KFDIA
+    PFU(JL,1) = ((1.0_JPRB-PCLEAR(JL))*ZDIFF(JL)*PALBD(JL,KNU)&
+     & + PCLEAR(JL) *ZDIRF(JL)*PALBP(JL,KNU))&
+     & * RSUN(KNU)  
+    PCU(JL,1) = ZDIRF(JL) * PALBP(JL,KNU) * RSUN(KNU)
+  ENDDO
+
+  DO JK = 2 , KLEV+1
+    IKM1=JK-1
+    DO JL = KIDIA,KFDIA
+      ZW(JL,1)=ZW(JL,1)+PUD(JL,1,IKM1)*1.66_JPRB
+      ZW(JL,2)=ZW(JL,2)+PUD(JL,2,IKM1)*1.66_JPRB
+      ZW(JL,3)=ZW(JL,3)+PUD(JL,1,IKM1)*1.66_JPRB
+      ZW(JL,4)=ZW(JL,4)+PUD(JL,2,IKM1)*1.66_JPRB
+      
+      ZO(JL,1)=ZO(JL,1)+POZ(JL,  IKM1)*1.66_JPRB
+      ZO(JL,2)=ZO(JL,2)+POZ(JL,  IKM1)*1.66_JPRB
+    ENDDO
+
+!   WRITE(*,'("---> Dans SW1S avant SWTT1:")')
+    CALL SWTT1 ( KIDIA, KFDIA, KLON, KNU, 4,&
+     & IIND,&
+     & ZW,&
+     & ZR  &
+     & )  
+
+!   WRITE(*,'("---> Dans SW1S avant SWUVO3 flux up:")')
+    CALL SWUVO3 ( KIDIA, KFDIA, KLON, KNU, 2,&
+     & ZO,&
+     & ZT  &
+     & )  
+
+    DO JL = KIDIA,KFDIA
+      ZDIFF(JL) = ZR(JL,1)*ZR(JL,2)*ZT(JL,1)*ZRK(JL,JAJ,JK)
+      ZDIRF(JL) = ZR(JL,3)*ZR(JL,4)*ZT(JL,2)*ZRK0(JL,JAJ,JK)
+      PFU(JL,JK) = ((1.0_JPRB-PCLEAR(JL)) * ZDIFF(JL)&
+       & +PCLEAR(JL)  * ZDIRF(JL)) * RSUN(KNU)  
+      PCU(JL,JK) = ZDIRF(JL) * RSUN(KNU)
+!WRITE(*,'("---> Dans SW1S:")')
+!print *,'===JL= ',jl
+!WRITE(*,'("ZR1",10E12.5)') (ZR(JL,1))
+!WRITE(*,'("ZR2",10E12.5)') (ZR(JL,2))
+!WRITE(*,'("ZR3",10E12.5)') (ZR(JL,3))
+!WRITE(*,'("ZR4",10E12.5)') (ZR(JL,4))
+!WRITE(*,'("ZT1",10E12.5)') (ZT(JL,1))
+!WRITE(*,'("ZT2",10E12.5)') (ZT(JL,2))
+    ENDDO
+  ENDDO
+  
+!WRITE(*,'("---> Dans SW1S:")')
+!WRITE(*,'("PFU",10E12.5)') (PFU(1,JJ),JJ=1,KLEV+1)
+!WRITE(*,'("ZR",10E12.5)') (ZR(1,JJ),JJ=1,4)
+!WRITE(*,'("PCLEAR",10E12.5)') (PCLEAR(1))
+!WRITE(*,'("ZDIFF",10E12.5)') (ZDIFF(1))
+!WRITE(*,'("ZDIRF",10E12.5)') (ZDIRF(1))
+!WRITE(*,'("RSUN",10E12.5)') (RSUN(KNU))
+ENDIF  
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SW1S',1,ZHOOK_HANDLE)
+END SUBROUTINE SW1S
Index: LMDZ5/trunk/libf/phylmd/rrtm/sw1s.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/sw1s.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/sw1s.intfb.h	(revision 1989)
@@ -0,0 +1,42 @@
+INTERFACE
+SUBROUTINE SW1S&
+ & ( KIDIA , KFDIA , KLON , KLEV , KAER , KNU,&
+ & PAER , PALBD , PALBP, PCG , PCLD , PCLEAR,&
+ & PDSIG , POMEGA, POZ , PRMU , PSEC , PTAU , PUD,&
+ & PFD , PFU , PCD , PCU , PSUDU1,PDIFF , PDIRF,&
+ & LRDUST,PPIZA_DST,PCGA_DST,PTAUREL_DST&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+include "clesphys.h"
+INTEGER(KIND=JPIM),INTENT(IN) :: KLON
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KAER
+INTEGER(KIND=JPIM),INTENT(IN) :: KNU
+REAL(KIND=JPRB) ,INTENT(IN) :: PAER(KLON,6,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PALBD(KLON,NSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: PALBP(KLON,NSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCG(KLON,NSW,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCLD(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCLEAR(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PDSIG(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: POMEGA(KLON,NSW,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: POZ(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PRMU(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PSEC(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTAU(KLON,NSW,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PUD(KLON,5,KLEV+1)
+LOGICAL ,INTENT(IN) :: LRDUST
+REAL(KIND=JPRB) ,INTENT(IN) :: PPIZA_DST(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCGA_DST(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTAUREL_DST(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFD(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFU(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PCD(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PCU(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PSUDU1(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PDIFF(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PDIRF(KLON,KLEV)
+END SUBROUTINE SW1S
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/swclr.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/swclr.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/swclr.F90	(revision 1989)
@@ -0,0 +1,484 @@
+SUBROUTINE SWCLR &
+ & ( KIDIA , KFDIA , KLON  , KLEV  , KAER  , KNU,&
+ & PAER  , PALBP , PDSIG , PRAYL , PSEC,&
+ & PCGAZ , PPIZAZ, PRAY1 , PRAY2 , PREFZ , PRJ,&
+ & PRK   , PRMU0 , PTAUAZ, PTRA1 , PTRA2 , PTRCLR, &
+!++MODIFCODE
+  & LRDUST,PPIZA_DST, PCGA_DST, PTAUREL_DST )
+!--MODIFCODE
+
+!**** *SWCLR* - CLEAR-SKY COLUMN COMPUTATIONS
+
+!     PURPOSE.
+!     --------
+!           COMPUTES THE REFLECTIVITY AND TRANSMISSIVITY IN CASE OF
+!     CLEAR-SKY COLUMN
+
+!**   INTERFACE.
+!     ----------
+
+!          *SWCLR* IS CALLED EITHER FROM *SW1S*
+!                                OR FROM *SWNI*
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!     METHOD.
+!     -------
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE ECMWF RESEARCH DEPARTMENT
+!        DOCUMENTATION, AND FOUQUART AND BONNEL (1980)
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 94-11-15
+!        Modified : 96-03-19 JJM-PhD (loop 107 in absence of aerosols)
+!        JJMorcrette 990128 : sunshine duration
+!        JJMorcrette 990128 : sunshine duration
+!        99-05-25   JJMorcrette    Revised aerosols
+!        JJMorcrette 001218 : 6 spectral intervals
+!        03-10-10 Deborah Salmond and Marta Janiskova Optimisation
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        A.Grini (Meteo-France: 2005-11-10) 
+!        Y.Seity 05-10-10 : add add 3 optional arg. for dust SW properties
+!        Y.Seity 06-09-09 : add modset from O.Thouron (MesoNH) under NOVLP tests
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOESW    , ONLY : RTAUA    ,RPIZA    ,RCGA
+!USE YOERAD   , ONLY : NOVLP    ,NSW
+! NSW mis dans .def MPL 20140211
+USE YOERAD   , ONLY : NOVLP    
+USE YOERDI   , ONLY : REPCLC
+USE YOERDU   , ONLY : REPSCT
+
+IMPLICIT NONE
+
+include "clesphys.h"
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLON 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KIDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KAER 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KNU 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PAER(KLON,6,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PALBP(KLON,NSW) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PDSIG(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PRAYL(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PSEC(KLON) 
+!++MODIFCODE
+LOGICAL           ,INTENT(IN)    :: LRDUST                   ! flag for DUST
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PPIZA_DST(KLON,KLEV)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCGA_DST(KLON,KLEV)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAUREL_DST(KLON,KLEV)
+!--MODIFCODE
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PCGAZ(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PPIZAZ(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PRAY1(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PRAY2(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PREFZ(KLON,2,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PRJ(KLON,6,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PRK(KLON,6,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PRMU0(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTAUAZ(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTRA1(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTRA2(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTRCLR(KLON) 
+!     ------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+!     ------------------------------------------------------------------
+
+!              ------------
+
+REAL(KIND=JPRB) :: ZC0I(KLON,KLEV+1)&
+ & ,  ZCLE0(KLON,KLEV), ZCLEAR(KLON) &
+ & ,  ZR21(KLON)&
+ & ,  ZR23(KLON) , ZSS0(KLON) , ZSCAT(KLON)&
+ & ,  ZTR(KLON,2,KLEV+1)  
+
+INTEGER(KIND=JPIM) :: IKL, JA, JAE, JAJ, JK, JKL, JKLP1, JKM1, JL, INU1
+
+REAL(KIND=JPRB) :: ZBMU0, ZBMU1, ZCORAE, ZDEN, ZDEN1, ZFACOA,&
+ & ZFF, ZGAP, ZGAR, ZMU1, ZMUE, ZRATIO, ZRE11, &
+ & ZTO, ZTRAY, ZWW, ZDENB   
+REAL(KIND=JPRB) :: ZRR,ZMU0,ZI2MU1,ZIMU1,ZIDEN,ZIDEN1
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+!++MODIFCODE
+REAL(KIND=JPRB) ::ZFACOA_NEW(KLON,KLEV)
+!--MODIFCODE
+
+
+!     ------------------------------------------------------------------
+
+!*         1.    OPTICAL PARAMETERS FOR AEROSOLS AND RAYLEIGH
+!                --------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SWCLR',0,ZHOOK_HANDLE)
+DO JK = 1 , KLEV+1
+  DO JA = 1 , 6
+    DO JL = KIDIA,KFDIA
+      PRJ(JL,JA,JK) = 0.0_JPRB
+      PRK(JL,JA,JK) = 0.0_JPRB
+    ENDDO
+  ENDDO
+ENDDO
+
+! ------   NB: 'PAER' AEROSOLS ARE ENTERED FROM TOP TO BOTTOM
+
+DO JK = 1 , KLEV
+  IKL=KLEV+1-JK
+  DO JL = KIDIA,KFDIA
+    PCGAZ(JL,JK) = 0.0_JPRB
+    PPIZAZ(JL,JK) =  0.0_JPRB
+    PTAUAZ(JL,JK) = 0.0_JPRB
+    ZFACOA_NEW(JL,JK) = 0.0_JPRB
+  ENDDO
+
+!++MODIFCODE  
+  IF(NOVLP < 5)THEN !ECMWF VERSION
+  DO JAE=1,6
+      DO JL = KIDIA,KFDIA
+        PTAUAZ(JL,JK)=PTAUAZ(JL,JK)+PAER(JL,JAE,IKL)*RTAUA(KNU,JAE)
+        PPIZAZ(JL,JK)=PPIZAZ(JL,JK)+PAER(JL,JAE,IKL)&
+         & * RTAUA(KNU,JAE)*RPIZA(KNU,JAE)  
+        PCGAZ(JL,JK) =  PCGAZ(JL,JK) +PAER(JL,JAE,IKL)&
+         & * RTAUA(KNU,JAE)*RPIZA(KNU,JAE)*RCGA(KNU,JAE)  
+      ENDDO
+    ENDDO
+  ELSE ! MESONH VERSION
+     DO JAE=1,6
+        DO JL = KIDIA,KFDIA
+           !Special optical properties for dust
+           IF (LRDUST.AND.(JAE==3)) THEN
+           !Ponderation of aerosol optical properties:first step 
+           !ti
+            PTAUAZ(JL,JK)=PTAUAZ(JL,JK) + PAER(JL,JAE,IKL) * PTAUREL_DST(JL,IKL)
+           !wi*ti
+             PPIZAZ(JL,JK)=PPIZAZ(JL,JK) + PAER(JL,JAE,IKL)  &
+                   & *PTAUREL_DST(JL,IKL)*PPIZA_DST(JL,IKL)
+           !wi*ti*gi
+             PCGAZ(JL,JK) = PCGAZ(JL,JK) + PAER(JL,JAE,IKL) &
+                &  *PTAUREL_DST(JL,IKL)*PPIZA_DST(JL,IKL)*PCGA_DST(JL,IKL)
+           !wi*ti*(gi**2)
+             ZFACOA_NEW(JL,JK)= ZFACOA_NEW(JL,JK)+PAER(JL, JAE, IKL)&
+                & *PTAUREL_DST(JL,IKL) *PPIZA_DST(JL,IKL)*PCGA_DST(JL,IKL)*&
+                & PCGA_DST(JL,IKL)
+           ELSE
+           !Ponderation of aerosol optical properties:first step 
+           !ti
+             PTAUAZ(JL,JK)=PTAUAZ(JL,JK)+PAER(JL, JAE, IKL)*RTAUA(KNU,JAE)
+           !wi*ti
+             PPIZAZ(JL,JK)=PPIZAZ(JL,JK)+PAER(JL, JAE, IKL)&
+                &* RTAUA(KNU,JAE)*RPIZA(KNU,JAE)
+           !wi*ti*gi
+             PCGAZ(JL,JK) =  PCGAZ(JL,JK) +PAER(JL, JAE, IKL)&
+                &* RTAUA(KNU,JAE)*RPIZA(KNU,JAE)*RCGA(KNU,JAE)
+           !wi*ti*(gi**2)
+             ZFACOA_NEW(JL,JK)= ZFACOA_NEW(JL,JK)+PAER(JL, JAE, IKL)&
+                &* RTAUA(KNU,JAE)*RPIZA(KNU,JAE)*RCGA(KNU,JAE)*RCGA(KNU,JAE)
+           ENDIF
+        ENDDO
+     ENDDO
+  ENDIF
+!--MODIFCODE  
+
+!++MODIFCODE  
+  IF (NOVLP < 5) then !ECMWF VERSION
+   DO JL = KIDIA,KFDIA
+    IF (KAER /= 0) THEN
+      PCGAZ(JL,JK)=PCGAZ(JL,JK)/PPIZAZ(JL,JK)
+      PPIZAZ(JL,JK)=PPIZAZ(JL,JK)/PTAUAZ(JL,JK)
+!!!! wrong  ZRATIO = ZTRAY / (ZTRAY + PTAUAZ(JL,JK))
+!--     
+      ZGAR = PCGAZ(JL,JK)
+      ZFF = ZGAR * ZGAR
+
+!-- bug-fix: ZRATIO must be defined from the transformed value of optical thickness
+! MPLFH : ZTRAY N'EST PAS INITIALISE !!!!! A REVOIR (MPL)
+      ZTRAY=0.
+!     print *,'>>>>>>> swclr: ZTRAY ',ZTRAY
+      ZDENB = ZTRAY + PTAUAZ(JL,JK)*(1.0_JPRB-PPIZAZ(JL,JK)*ZFF)
+      ZRATIO=ZTRAY/ZDENB
+ !--     
+      PTAUAZ(JL,JK)=ZTRAY+PTAUAZ(JL,JK)*(1.0_JPRB-PPIZAZ(JL,JK)*ZFF)
+      PCGAZ(JL,JK) = ZGAR * (1.0_JPRB - ZRATIO) / (1.0_JPRB + ZGAR)
+      PPIZAZ(JL,JK) =ZRATIO+(1.0_JPRB-ZRATIO)*PPIZAZ(JL,JK)*(1.0_JPRB-ZFF)&
+       & / (1.0_JPRB - PPIZAZ(JL,JK) * ZFF)  
+    ELSE
+      ZTRAY = PRAYL(JL) * PDSIG(JL,JK)
+      PTAUAZ(JL,JK) = ZTRAY
+      PCGAZ(JL,JK) = 0.0_JPRB
+      PPIZAZ(JL,JK) = 1.0_JPRB-REPSCT
+    ENDIF
+  ENDDO
+  ELSE !MESONH VERSION
+   DO JL = KIDIA,KFDIA
+    IF (KAER /= 0) THEN
+      ZTRAY = PRAYL(JL) * PDSIG(JL,JK)
+      ZRATIO =PPIZAZ(JL,JK)+ZTRAY
+      !Ponderation G**2
+      ZFACOA_NEW(JL,JK)= ZFACOA_NEW(JL,JK)/ZRATIO
+      !Ponderation w
+      PPIZAZ(JL,JK)=ZRATIO/(PTAUAZ(JL,JK)+ZTRAY)
+      !Ponderation g
+      PCGAZ(JL,JK)=PCGAZ(JL,JK)/ZRATIO
+      !Ponderation+delta-modified parameters tau
+      PTAUAZ(JL,JK)=(ZTRAY+PTAUAZ(JL,JK))*&
+       &  (1.0_JPRB-PPIZAZ(JL,JK)*ZFACOA_NEW(JL,JK))
+      !delta-modified parameters w
+      PPIZAZ(JL,JK)=PPIZAZ(JL,JK)*(1.0_JPRB-ZFACOA_NEW(JL,JK))/&
+          & (1.0_JPRB-ZFACOA_NEW(JL,JK)*PPIZAZ(JL,JK))     
+      !delta-modified parameters g
+      PCGAZ(JL,JK)=PCGAZ(JL,JK)/(1.0_JPRB+PCGAZ(JL,JK))
+      
+    ELSE
+      ZTRAY = PRAYL(JL) * PDSIG(JL,JK)
+      ZFACOA_NEW(JL,JK)= 0.0_JPRB
+      PTAUAZ(JL,JK) = ZTRAY
+      PCGAZ(JL,JK) = 0.0_JPRB
+      PPIZAZ(JL,JK) = 1.0_JPRB-REPSCT
+    ENDIF
+   ENDDO    
+  ENDIF
+!--MODIFCODE  
+  
+ENDDO
+
+!     ------------------------------------------------------------------
+
+!*         2.    TOTAL EFFECTIVE CLOUDINESS ABOVE A GIVEN LEVEL
+!                ----------------------------------------------
+
+DO JL = KIDIA,KFDIA
+  ZR23(JL) = 0.0_JPRB
+  ZC0I(JL,KLEV+1) = 0.0_JPRB
+  ZCLEAR(JL) = 1.0_JPRB
+  ZSCAT(JL) = 0.0_JPRB
+ENDDO
+
+JK = 1
+JKL = KLEV+1 - JK
+JKLP1 = JKL + 1
+DO JL = KIDIA,KFDIA
+!++MODIFCODE
+  IF (NOVLP >= 5) THEN
+   ZFACOA = PTAUAZ(JL,JK)
+   ZCORAE = ZFACOA *  PSEC(JL)
+  ELSE
+   ZFACOA = 1.0_JPRB - PPIZAZ(JL,JKL)*PCGAZ(JL,JKL)*PCGAZ(JL,JKL)
+   ZCORAE = ZFACOA * PTAUAZ(JL,JKL) * PSEC(JL)
+  ENDIF
+!--MODIFCODE
+  ZR21(JL) = EXP(-ZCORAE   )
+  ZSS0(JL) = 1.0_JPRB-ZR21(JL)
+  ZCLE0(JL,JKL) = ZSS0(JL)
+
+  IF (NOVLP == 1 .OR. NOVLP == 4) THEN
+!* maximum-random      
+    ZCLEAR(JL) = ZCLEAR(JL)&
+     & *(1.0_JPRB-MAX(ZSS0(JL),ZSCAT(JL)))&
+     & /(1.0_JPRB-MIN(ZSCAT(JL),1.0_JPRB-REPCLC))  
+    ZC0I(JL,JKL) = 1.0_JPRB - ZCLEAR(JL)
+    ZSCAT(JL) = ZSS0(JL)
+  ELSEIF (NOVLP == 2) THEN
+!* maximum
+    ZSCAT(JL) = MAX( ZSS0(JL) , ZSCAT(JL) )
+    ZC0I(JL,JKL) = ZSCAT(JL)
+!++MODIFCODE
+  ELSEIF ((NOVLP == 3).OR.(NOVLP  >=  5)) THEN
+!--MODIFCODE
+!* random
+    ZCLEAR(JL)=ZCLEAR(JL)*(1.0_JPRB-ZSS0(JL))
+    ZSCAT(JL) = 1.0_JPRB - ZCLEAR(JL)
+    ZC0I(JL,JKL) = ZSCAT(JL)
+  ENDIF
+ENDDO
+
+DO JK = 2 , KLEV
+  JKL = KLEV+1 - JK
+  JKLP1 = JKL + 1
+  DO JL = KIDIA,KFDIA
+!++MODIFCODE
+    IF (NOVLP >= 5) THEN
+     ZFACOA = PTAUAZ(JL,JK)
+     ZCORAE = ZFACOA *  PSEC(JL)
+    ELSE
+    ZFACOA = 1.0_JPRB - PPIZAZ(JL,JKL)*PCGAZ(JL,JKL)*PCGAZ(JL,JKL)
+    ZCORAE = ZFACOA * PTAUAZ(JL,JKL) * PSEC(JL)
+    ENDIF
+!--MODIFCODE
+    ZR21(JL) = EXP(-ZCORAE   )
+    ZSS0(JL) = 1.0_JPRB-ZR21(JL)
+    ZCLE0(JL,JKL) = ZSS0(JL)
+
+    IF (NOVLP == 1 .OR. NOVLP == 4) THEN
+!* maximum-random      
+      ZCLEAR(JL) = ZCLEAR(JL)&
+       & *(1.0_JPRB-MAX(ZSS0(JL),ZSCAT(JL)))&
+       & /(1.0_JPRB-MIN(ZSCAT(JL),1.0_JPRB-REPCLC))  
+      ZC0I(JL,JKL) = 1.0_JPRB - ZCLEAR(JL)
+      ZSCAT(JL) = ZSS0(JL)
+    ELSEIF (NOVLP == 2) THEN
+!* maximum
+      ZSCAT(JL) = MAX( ZSS0(JL) , ZSCAT(JL) )
+      ZC0I(JL,JKL) = ZSCAT(JL)
+!++MODIFCODE
+    ELSEIF ((NOVLP == 3).OR.(NOVLP >= 5)) THEN
+!--MODIFCODE
+!* random
+      ZCLEAR(JL)=ZCLEAR(JL)*(1.0_JPRB-ZSS0(JL))
+      ZSCAT(JL) = 1.0_JPRB - ZCLEAR(JL)
+      ZC0I(JL,JKL) = ZSCAT(JL)
+    ENDIF
+  ENDDO
+ENDDO
+
+!     ------------------------------------------------------------------
+
+!*         3.    REFLECTIVITY/TRANSMISSIVITY FOR PURE SCATTERING
+!                -----------------------------------------------
+
+DO JL = KIDIA,KFDIA
+  PRAY1(JL,KLEV+1) = 0.0_JPRB
+  PRAY2(JL,KLEV+1) = 0.0_JPRB
+  PREFZ(JL,2,1) = PALBP(JL,KNU)
+  PREFZ(JL,1,1) = PALBP(JL,KNU)
+  PTRA1(JL,KLEV+1) = 1.0_JPRB
+  PTRA2(JL,KLEV+1) = 1.0_JPRB
+ENDDO
+
+DO JK = 2 , KLEV+1
+  JKM1 = JK-1
+  DO JL = KIDIA,KFDIA
+
+!     ------------------------------------------------------------------
+
+!*         3.1  EQUIVALENT ZENITH ANGLE
+!               -----------------------
+
+    ZMUE = (1.0_JPRB-ZC0I(JL,JK)) * PSEC(JL)+ ZC0I(JL,JK) * 1.66_JPRB
+    PRMU0(JL,JK) = 1.0_JPRB/ZMUE
+    ZMU0=PRMU0(JL,JK)
+
+!     ------------------------------------------------------------------
+
+!*         3.2  REFLECT./TRANSMISSIVITY DUE TO RAYLEIGH AND AEROSOLS
+!               ----------------------------------------------------
+
+    ZGAP = PCGAZ(JL,JKM1)
+    ZBMU0 = 0.5_JPRB - 0.75_JPRB * ZGAP *ZMU0
+    ZWW = PPIZAZ(JL,JKM1)
+    ZTO = PTAUAZ(JL,JKM1)
+    ZDEN = 1.0_JPRB + (1.0_JPRB - ZWW + ZBMU0 * ZWW) * ZTO * ZMUE &
+     & + (1-ZWW) * (1.0_JPRB - ZWW +2.0_JPRB*ZBMU0*ZWW)*ZTO*ZTO*ZMUE*ZMUE  
+    ZIDEN=1.0_JPRB / ZDEN
+    PRAY1(JL,JKM1) = ZBMU0 * ZWW * ZTO * ZMUE * ZIDEN
+    PTRA1(JL,JKM1) = ZIDEN
+
+    ZMU1 = 0.5_JPRB
+    ZIMU1=2.0_JPRB
+    ZI2MU1=4.0_JPRB
+    ZBMU1 = 0.5_JPRB - 0.75_JPRB * ZGAP * ZMU1
+    ZDEN1= 1.0_JPRB + (1.0_JPRB - ZWW + ZBMU1 * ZWW) * ZTO * ZIMU1 &
+     & + (1-ZWW) * (1.0_JPRB - ZWW +2.0_JPRB*ZBMU1*ZWW)*ZTO*ZTO*ZI2MU1  
+    ZIDEN1=1.0_JPRB / ZDEN1
+    PRAY2(JL,JKM1) = ZBMU1 * ZWW * ZTO * ZIMU1 *ZIDEN1
+    PTRA2(JL,JKM1) = ZIDEN1
+
+    ZRR=1.0_JPRB/(1.0_JPRB-PRAY2(JL,JKM1)*PREFZ(JL,1,JKM1))
+    PREFZ(JL,1,JK) = PRAY1(JL,JKM1)&
+     & + PREFZ(JL,1,JKM1) * PTRA1(JL,JKM1)&
+     & * PTRA2(JL,JKM1)&
+     & *ZRR  
+
+    ZTR(JL,1,JKM1) = PTRA1(JL,JKM1)&
+     & *ZRR  
+
+    PREFZ(JL,2,JK) = PRAY1(JL,JKM1)&
+     & + PREFZ(JL,2,JKM1) * PTRA1(JL,JKM1)&
+     & * PTRA2(JL,JKM1)   
+
+    ZTR(JL,2,JKM1) = PTRA1(JL,JKM1)
+
+  ENDDO
+ENDDO
+DO JL = KIDIA,KFDIA
+  ZMUE = (1.0_JPRB-ZC0I(JL,1))*PSEC(JL)+ZC0I(JL,1)*1.66_JPRB
+  PRMU0(JL,1)=1.0_JPRB/ZMUE
+  PTRCLR(JL)=1.0_JPRB-ZC0I(JL,1)
+ENDDO
+
+!     ------------------------------------------------------------------
+
+!*         3.5    REFLECT./TRANSMISSIVITY BETWEEN SURFACE AND LEVEL
+!                 -------------------------------------------------
+
+IF (NSW <= 4) THEN
+  INU1=1
+ELSEIF (NSW == 6) THEN
+  INU1=3
+ENDIF    
+
+IF (KNU <= INU1) THEN
+  JAJ = 2
+  DO JL = KIDIA,KFDIA
+    PRJ(JL,JAJ,KLEV+1) = 1.0_JPRB
+    PRK(JL,JAJ,KLEV+1) = PREFZ(JL, 1,KLEV+1)
+  ENDDO
+
+  DO JK = 1 , KLEV
+    JKL = KLEV+1 - JK
+    JKLP1 = JKL + 1
+    DO JL = KIDIA,KFDIA
+      ZRE11= PRJ(JL,JAJ,JKLP1) * ZTR(JL,  1,JKL)
+      PRJ(JL,JAJ,JKL) = ZRE11
+      PRK(JL,JAJ,JKL) = ZRE11 * PREFZ(JL,  1,JKL)
+    ENDDO
+  ENDDO
+
+ELSE
+
+  DO JAJ = 1 , 2
+    DO JL = KIDIA,KFDIA
+      PRJ(JL,JAJ,KLEV+1) = 1.0_JPRB
+      PRK(JL,JAJ,KLEV+1) = PREFZ(JL,JAJ,KLEV+1)
+    ENDDO
+
+    DO JK = 1 , KLEV
+      JKL = KLEV+1 - JK
+      JKLP1 = JKL + 1
+      DO JL = KIDIA,KFDIA
+        ZRE11= PRJ(JL,JAJ,JKLP1) * ZTR(JL,JAJ,JKL)
+        PRJ(JL,JAJ,JKL) = ZRE11
+        PRK(JL,JAJ,JKL) = ZRE11 * PREFZ(JL,JAJ,JKL)
+      ENDDO
+    ENDDO
+  ENDDO
+
+ENDIF
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SWCLR',1,ZHOOK_HANDLE)
+END SUBROUTINE SWCLR
Index: LMDZ5/trunk/libf/phylmd/rrtm/swclr.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/swclr.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/swclr.intfb.h	(revision 1989)
@@ -0,0 +1,39 @@
+INTERFACE
+SUBROUTINE SWCLR&
+ & ( KIDIA , KFDIA , KLON , KLEV , KAER , KNU,&
+ & PAER , PALBP , PDSIG , PRAYL , PSEC,&
+ & PCGAZ , PPIZAZ, PRAY1 , PRAY2 , PREFZ , PRJ,&
+ & PRK , PRMU0 , PTAUAZ, PTRA1 , PTRA2 , PTRCLR,&
+ & LRDUST,PPIZA_DST, PCGA_DST, PTAUREL_DST ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE YOERAD , ONLY : NOVLP 
+include "clesphys.h"
+INTEGER(KIND=JPIM),INTENT(IN) :: KLON
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KAER
+INTEGER(KIND=JPIM),INTENT(IN) :: KNU
+REAL(KIND=JPRB) ,INTENT(IN) :: PAER(KLON,6,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PALBP(KLON,NSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: PDSIG(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PRAYL(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PSEC(KLON)
+LOGICAL ,INTENT(IN) :: LRDUST
+REAL(KIND=JPRB) ,INTENT(IN) :: PPIZA_DST(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCGA_DST(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTAUREL_DST(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PCGAZ(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PPIZAZ(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PRAY1(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PRAY2(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PREFZ(KLON,2,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PRJ(KLON,6,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PRK(KLON,6,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PRMU0(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PTAUAZ(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PTRA1(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PTRA2(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PTRCLR(KLON)
+END SUBROUTINE SWCLR
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/swde.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/swde.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/swde.F90	(revision 1989)
@@ -0,0 +1,230 @@
+!OPTIONS XOPT(HSFUN)
+SUBROUTINE SWDE &
+ & ( KIDIA, KFDIA, KLON,&
+ & PGG  , PREF , PRMUZ, PTO1, PW,&
+ & PRE1 , PRE2 , PTR1 , PTR2 &
+ & )  
+
+!**** *SWDE* - DELTA-EDDINGTON IN A CLOUDY LAYER
+
+!     PURPOSE.
+!     --------
+!           COMPUTES THE REFLECTIVITY AND TRANSMISSIVITY OF A CLOUDY
+!     LAYER USING THE DELTA-EDDINGTON'S APPROXIMATION.
+
+!**   INTERFACE.
+!     ----------
+!          *SWDE* IS CALLED BY *SWR*, *SWNI*
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+! PGG    : (KLON)             ; ASSYMETRY FACTOR
+! PREF   : (KLON)             ; REFLECTIVITY OF THE UNDERLYING LAYER
+! PRMUZ  : (KLON)             ; COSINE OF SOLAR ZENITH ANGLE
+! PTO1   : (KLON)             ; OPTICAL THICKNESS
+! PW     : (KLON)             ; SINGLE SCATTERING ALBEDO
+!     ==== OUTPUTS ===
+! PRE1   : (KLON)             ; LAYER REFLECTIVITY ASSUMING NO
+!                             ; REFLECTION FROM UNDERLYING LAYER
+! PTR1   : (KLON)             ; LAYER TRANSMISSIVITY ASSUMING NO
+!                             ; REFLECTION FROM UNDERLYING LAYER
+! PRE2   : (KLON)             ; LAYER REFLECTIVITY ASSUMING
+!                             ; REFLECTION FROM UNDERLYING LAYER
+! PTR2   : (KLON)             ; LAYER TRANSMISSIVITY ASSUMING
+!                             ; REFLECTION FROM UNDERLYING LAYER
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+!          STANDARD DELTA-EDDINGTON LAYER CALCULATIONS.
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL: 88-12-15
+!                   96-05-30 Michel Deque (security in EXP())
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        Modified: 03-10-10 Deborah Salmond and Marta Janiskova Optimisation
+!        Modified: 03-12-13 John Hague - MASS Vector Fns
+!        Y.Seity 06-09-09 : add modset from O.Thouron (MesoNH) under NOVLP tests
+!     ------------------------------------------------------------------
+
+!     ------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOERDU   , ONLY : REPLOG
+USE YOMJFH   , ONLY : N_VMASS
+!++MODIFCODE
+USE YOERAD   , ONLY : NOVLP 
+!--MODIFCODE
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLON 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KIDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFDIA 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PGG(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PREF(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PRMUZ(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTO1(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PW(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PRE1(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PRE2(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTR1(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTR2(KLON) 
+REAL(KIND=JPRB) :: ZTMP   (4,KFDIA-KIDIA+1)
+REAL(KIND=JPRB) :: ZTMP2  (KFDIA-KIDIA+1+N_VMASS)
+REAL(KIND=JPRB) :: ZTMP3  (KFDIA-KIDIA+1+N_VMASS)
+REAL(KIND=JPRB) :: ZZARG  (KFDIA-KIDIA+1+N_VMASS)
+REAL(KIND=JPRB) :: ZZARG2 (KFDIA-KIDIA+1+N_VMASS)
+
+INTEGER(KIND=JPIM) :: JL, JLL, JLEN
+
+REAL(KIND=JPRB) :: ZA11, ZA12, ZA13, ZA21, ZA22, ZA23, ZALPHA,&
+ & ZAM2B, ZAP2B,  ZB21, ZB22, ZB23, &
+ & ZBETA, ZC1A, ZC1B, ZC2A, ZC2B, ZDENA, ZDENB, &
+ & ZDT, ZEXKM, ZEXKP, ZEXMU0, ZFF, ZGP, ZRI0A, &
+ & ZRI0B, ZRI0C, ZRI0D, ZRI1A, ZRI1B, ZRI1C, &
+ & ZRI1D, ZRK, ZRM2, ZRP, ZTOP, ZWCP, ZWM, ZX1, &
+ & ZX2, ZXM2P, ZXP2P  
+
+
+REAL(KIND=JPRB) :: MINJ, MAXJ, X, Y
+REAL(KIND=JPRB) :: ZPRMUZ,ZIDENA,ZIDENB,ZRR
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!     STATEMENT DUNCTIONS
+MINJ(X,Y) = Y - 0.5_JPRB*(ABS(X-Y)-(X-Y))
+MAXJ(X,Y) = Y + 0.5_JPRB*(ABS(X-Y)+(X-Y))
+
+!     ------------------------------------------------------------------
+
+!*         1.      DELTA-EDDINGTON CALCULATIONS
+
+IF (LHOOK) CALL DR_HOOK('SWDE',0,ZHOOK_HANDLE)
+
+ZDT = 2.0_JPRB/3._JPRB
+
+  DO JL   =   KIDIA,KFDIA
+    JLL=JL-KIDIA+1
+    ZPRMUZ=1.0_JPRB/PRMUZ(JL)
+!++MODIFCODE
+  IF (NOVLP >= 5) THEN !MESONH_VERSION
+   ZGP = PGG(JL)
+   ZTOP = PTO1(JL)
+   ZWCP = PW(JL)  
+  ELSE !ECMWF VERSION
+    ZFF = PGG(JL)*PGG(JL)
+    ZGP = PGG(JL)/(1.0_JPRB+PGG(JL))
+    ZTOP = (1.0_JPRB- PW(JL) * ZFF) * PTO1(JL)
+    ZWCP = (1-ZFF)* PW(JL) /(1.0_JPRB- PW(JL) * ZFF)
+  ENDIF
+!--MODIFCODE
+    ZX1 = 1.0_JPRB-ZWCP*ZGP
+    ZWM = 1.0_JPRB-ZWCP
+    ZRM2 =  PRMUZ(JL) * PRMUZ(JL)
+    ZRK = SQRT(MAXJ(REPLOG,3._JPRB*ZWM*ZX1))
+    ZX2 = (1.0_JPRB-ZRK*ZRK*ZRM2)*(4._JPRB/3._JPRB)
+    ZRR = 1.0_JPRB/ZX2
+    ZRP=ZRK/ZX1
+    ZALPHA = ZWCP*ZRM2*(1.0_JPRB+ZGP*ZWM)*ZRR 
+    ZBETA = ZWCP* PRMUZ(JL) *(1.0_JPRB+3._JPRB*ZGP*ZRM2*ZWM)*ZRR 
+    ZZARG(JLL)   = -MAXJ( -200._JPRB, MINJ( ZTOP*ZPRMUZ, 200._JPRB) )
+    ZZARG2(JLL)  = MINJ( ZRK*ZTOP, 200._JPRB)
+    ZTMP(1,JLL) = ZPRMUZ
+    ZTMP(2,JLL) = ZALPHA
+    ZTMP(3,JLL) = ZBETA
+    ZTMP(4,JLL) = ZRP
+  ENDDO
+
+  IF(N_VMASS /= 0 ) THEN  !USING VECTOR MASS
+    JLEN=KFDIA-KIDIA+N_VMASS-MOD(KFDIA-KIDIA,N_VMASS)
+    IF(KFDIA-KIDIA+1 /= JLEN) THEN
+      ZZARG  (KFDIA-KIDIA+2:JLEN)=1.0_JPRB
+      ZZARG2 (KFDIA-KIDIA+2:JLEN)=1.0_JPRB
+    ENDIF
+! Commente par MPL le 21.11.08
+!   CALL VEXP(ZTMP2,ZZARG, JLEN)
+!   CALL VEXP(ZTMP3,ZZARG2,JLEN)
+  ELSE
+    DO JL   =   KIDIA,KFDIA
+      JLL=JL-KIDIA+1
+      ZTMP2(JLL) = EXP(ZZARG(JLL))
+      ZTMP3(JLL) = EXP(ZZARG2(JLL))
+    ENDDO
+  ENDIF
+
+  DO JL   =   KIDIA,KFDIA
+    JLL=JL-KIDIA+1
+    ZEXMU0 = ZTMP2(JLL)
+    ZEXKP  = ZTMP3(JLL)
+    ZPRMUZ = ZTMP(1,JLL)
+    ZALPHA = ZTMP(2,JLL)
+    ZBETA  = ZTMP(3,JLL)
+    ZRP    = ZTMP(4,JLL)
+    ZEXKM = 1.0_JPRB/ZEXKP
+    ZXP2P = 1.0_JPRB+ZDT*ZRP
+    ZXM2P = 1.0_JPRB-ZDT*ZRP
+    ZAP2B = ZALPHA+ZDT*ZBETA
+    ZAM2B = ZALPHA-ZDT*ZBETA
+
+!*         1.2     WITHOUT REFLECTION FROM THE UNDERLYING LAYER
+
+    ZA11 = ZXP2P
+    ZA12 = ZXM2P
+    ZA13 = ZAP2B
+    ZA22 = ZXP2P*ZEXKP
+    ZA21 = ZXM2P*ZEXKM
+    ZA23 = ZAM2B*ZEXMU0
+    ZDENA = ZA11 * ZA22 - ZA21 * ZA12
+    ZIDENA=1.0_JPRB/ZDENA
+    ZC1A = (ZA22*ZA13-ZA12*ZA23)*ZIDENA
+    ZC2A = (ZA11*ZA23-ZA21*ZA13)*ZIDENA
+    ZRI0A = ZC1A+ZC2A-ZALPHA
+    ZRI1A = ZRP*(ZC1A-ZC2A)-ZBETA
+    PRE1(JL) = (ZRI0A-ZDT*ZRI1A)*ZPRMUZ
+    ZRI0B = ZC1A*ZEXKM+ZC2A*ZEXKP-ZALPHA*ZEXMU0
+    ZRI1B = ZRP*(ZC1A*ZEXKM-ZC2A*ZEXKP)-ZBETA*ZEXMU0
+    PTR1(JL) = ZEXMU0+(ZRI0B+ZDT*ZRI1B)*ZPRMUZ
+
+!*         1.3     WITH REFLECTION FROM THE UNDERLYING LAYER
+
+    ZB21 = ZA21- PREF(JL) *ZXP2P*ZEXKM
+    ZB22 = ZA22- PREF(JL) *ZXM2P*ZEXKP
+    ZB23 = ZA23- PREF(JL) *ZEXMU0*(ZAP2B - PRMUZ(JL) )
+    ZDENB = ZA11 * ZB22 - ZB21 * ZA12
+    ZIDENB= 1.0_JPRB/ZDENB
+    ZC1B = (ZB22*ZA13-ZA12*ZB23)*ZIDENB
+    ZC2B = (ZA11*ZB23-ZB21*ZA13)*ZIDENB
+    ZRI0C = ZC1B+ZC2B-ZALPHA
+    ZRI1C = ZRP*(ZC1B-ZC2B)-ZBETA
+    PRE2(JL) = (ZRI0C-ZDT*ZRI1C) * ZPRMUZ
+    ZRI0D = ZC1B*ZEXKM + ZC2B*ZEXKP - ZALPHA*ZEXMU0
+    ZRI1D = ZRP * (ZC1B*ZEXKM - ZC2B*ZEXKP) - ZBETA*ZEXMU0
+    PTR2(JL) = ZEXMU0 + (ZRI0D + ZDT*ZRI1D) * ZPRMUZ
+  ENDDO
+
+IF (LHOOK) CALL DR_HOOK('SWDE',1,ZHOOK_HANDLE)
+END SUBROUTINE SWDE
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/swde.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/swde.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/swde.intfb.h	(revision 1989)
@@ -0,0 +1,22 @@
+INTERFACE
+SUBROUTINE SWDE&
+ & ( KIDIA, KFDIA, KLON,&
+ & PGG , PREF , PRMUZ, PTO1, PW,&
+ & PRE1 , PRE2 , PTR1 , PTR2&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE YOMJFH , ONLY : N_VMASS
+INTEGER(KIND=JPIM),INTENT(IN) :: KLON
+INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
+REAL(KIND=JPRB) ,INTENT(IN) :: PGG(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PREF(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PRMUZ(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTO1(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PW(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PRE1(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PRE2(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PTR1(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PTR2(KLON)
+END SUBROUTINE SWDE
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/swni.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/swni.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/swni.F90	(revision 1989)
@@ -0,0 +1,631 @@
+SUBROUTINE SWNI &
+ & ( KIDIA , KFDIA , KLON  , KLEV , KAER  , KNU,&
+ & PAER  , PAKI  , PALBD , PALBP, PCG   , PCLD, PCLEAR,&
+ & PDSIG , POMEGA, POZ   , PRMU , PSEC  , PTAU,&
+ & PUD   , PWV   , PQS,&
+ & PFDOWN, PFUP  , PCDOWN, PCUP , PSUDU2, PDIFF , PDIRF, &
+!++MODIFCODE
+& LRDUST,PPIZA_DST,PCGA_DST,PTAUREL_DST )
+!--MODIFCODE
+
+!**** *SWNI* - SHORTWAVE RADIATION, NEAR-INFRARED SPECTRAL INTERVALS
+
+!     PURPOSE.
+!     --------
+
+!          COMPUTES THE SHORTWAVE RADIATION FLUXES IN THE NEAR-INFRARED 
+!     SPECTRAL INTERVALS FOLLOWING FOUQUART AND BONNEL (1980).
+
+!**   INTERFACE.
+!     ----------
+
+!          *SWNI* IS CALLED FROM *SW*.
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!     METHOD.
+!     -------
+
+!          1. COMPUTES REFLECTIVITY/TRANSMISSIVITY CORRESPONDING TO
+!     CONTINUUM SCATTERING
+!          2. COMPUTES REFLECTIVITY/TRANSMISSIVITY CORRESPONDING FOR
+!     A GREY MOLECULAR ABSORPTION
+!          3. LAPLACE TRANSFORM ON THE PREVIOUS TO GET EFFECTIVE AMOUNTS
+!     OF ABSORBERS
+!          4. APPLY H2O AND U.M.G. TRANSMISSION FUNCTIONS
+!          5. MULTIPLY BY OZONE TRANSMISSION FUNCTION
+
+!     EXTERNALS.
+!     ----------
+
+!          *SWCLR*, *SWR*, *SWDE*, *SWTT*
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE ECMWF RESEARCH DEPARTMENT
+!        DOCUMENTATION, AND FOUQUART AND BONNEL (1980)
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 89-07-14
+!        94-11-15   J.-J. MORCRETTE    DIRECT/DIFFUSE ALBEDO
+!        95-12-07   J.-J. MORCRETTE    NEAR-INFRARED SW
+!        990128     JJMorcrette        Sunshine duration
+!        99-05-25   JJMorcrette        Revised aerosols
+!        03-03-17   JJMorcrette        Sunshine duration (correction)
+!        03-10-10 Deborah Salmond and Marta Janiskova Optimisation
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        04-11-18   Y.Seity : add 2 arguments for AROME extern. surface
+!        Y.Seity  05-10-10 : add add 3 optional arg. for dust SW properties
+!        Y.Seity 06-09-09 : add modset from O.Thouron (MesoNH) under NOVLP tests
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOESW    , ONLY : RRAY     ,RSUN     ,RSWCE    ,RSWCP
+!++MODIFCODE
+!USE YOERAD   , ONLY : NSW      ,NOVLP
+! NSW mis dans .def MPL 20140211
+USE YOERAD   , ONLY : NOVLP
+!--MODIFCODE
+USE YOERDU   , ONLY : REPLOG   ,REPSCQ   ,REPSC
+USE write_field_phy
+
+IMPLICIT NONE
+
+include "clesphys.h"
+
+character*1 str1
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLON 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KIDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KAER 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KNU 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PAER(KLON,6,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PAKI(KLON,2,NSW) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PALBD(KLON,NSW) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PALBP(KLON,NSW) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCG(KLON,NSW,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCLD(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCLEAR(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PDSIG(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: POMEGA(KLON,NSW,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: POZ(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PRMU(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PSEC(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAU(KLON,NSW,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PUD(KLON,5,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PWV(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PQS(KLON,KLEV) 
+!++MODIFCODE
+LOGICAL           ,INTENT(IN)    :: LRDUST
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PPIZA_DST(KLON,KLEV)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCGA_DST(KLON,KLEV)
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAUREL_DST(KLON,KLEV)
+!--MODIFCODE
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFDOWN(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFUP(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PCDOWN(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PCUP(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PSUDU2(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PDIFF(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PDIRF(KLON,KLEV) 
+!#include "yoeaer.h"
+!     ------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+!     ------------------------------------------------------------------
+
+!              ------------
+
+INTEGER(KIND=JPIM) :: IIND2(2), IIND3(6)
+REAL(KIND=JPRB) :: ZCGAZ(KLON,KLEV)  , ZDIFF(KLON)         , ZDIRF(KLON)&
+ & ,  ZFD(KLON,KLEV+1)  , ZFU(KLON,KLEV+1) &
+ & ,  ZG(KLON)          , ZGG(KLON)  
+REAL(KIND=JPRB) :: ZPIZAZ(KLON,KLEV)&
+ & ,  ZRAYL(KLON)       , ZRAY1(KLON,KLEV+1)  , ZRAY2(KLON,KLEV+1)&
+ & ,  ZREF(KLON)        , ZREFZ(KLON,2,KLEV+1)&
+ & ,  ZRE1(KLON)        , ZRE2(KLON)&
+ & ,  ZRJ(KLON,6,KLEV+1), ZRJ0(KLON,6,KLEV+1)&
+ & ,  ZRK(KLON,6,KLEV+1), ZRK0(KLON,6,KLEV+1)&
+ & ,  ZRL(KLON,8)&
+ & ,  ZRMUE(KLON,KLEV+1), ZRMU0(KLON,KLEV+1)  , ZRMUZ(KLON)&
+ & ,  ZRNEB(KLON)       , ZRUEF(KLON,8)       , ZR1(KLON) &
+ & ,  ZR2(KLON,2)       , ZR3(KLON,6)         , ZR4(KLON,2)&
+ & ,  ZR21(KLON)        , ZR22(KLON)  
+REAL(KIND=JPRB) :: ZS(KLON)&
+ & ,  ZTAUAZ(KLON,KLEV) , ZTO1(KLON)          , ZTR(KLON,2,KLEV+1)&
+ & ,  ZTRA1(KLON,KLEV+1), ZTRA2(KLON,KLEV+1)&
+ & ,  ZTRCLD(KLON)      , ZTRCLR(KLON)&
+ & ,  ZTR1(KLON)        , ZTR2(KLON)&
+ & ,  ZW(KLON)          , ZW1(KLON)           , ZW2(KLON,2)&
+ & ,  ZW3(KLON,6)       , ZW4(KLON,2)         , ZW5(KLON,2)  
+
+INTEGER(KIND=JPIM) :: IABS, IKL, IKM1, JABS, JAJ, JAJP, JK, JKKI,&
+ & JKKP4, JKL, JKLP1, JKM1, JL, JN, JN2J, JREF  
+
+REAL(KIND=JPRB) :: ZAA, ZBB, ZCNEB, ZRE11, ZRKI, ZRMUM1, ZWH2O, ZCHKG, ZCHKS
+REAL(KIND=JPRB) :: ZRR,ZRRJ,ZRRK
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+!++MODIF_CODE
+REAL(KIND=JPRB) :: ZB_ODI(KLON)
+!--MODIF_CODE
+LOGICAL         :: LLDEBUG
+
+#include "swclr.intfb.h"
+#include "swde.intfb.h"
+#include "swr.intfb.h"
+#include "swtt.intfb.h"
+#include "swtt1.intfb.h"
+
+LLDEBUG=.FALSE.
+
+IF(LLDEBUG) THEN
+  write(str1,'(i1)') knu
+! call writefield_phy("sw_zcduvs"//str1,zcduvs,klev+1)
+ENDIF
+
+!     ------------------------------------------------------------------
+
+!*         1.     NEAR-INFRARED SPECTRAL INTERVAL (0.68-4.00 MICRON)
+!                 --------------------------------------------------
+
+!*         1.1    OPTICAL THICKNESS FOR RAYLEIGH SCATTERING
+!                 -----------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SWNI',0,ZHOOK_HANDLE)
+DO JL = KIDIA,KFDIA
+  ZRMUM1 = 1.0_JPRB - PRMU(JL)
+  ZRAYL(JL) =  RRAY(KNU,1) + ZRMUM1   * (RRAY(KNU,2) + ZRMUM1 &
+   & * (RRAY(KNU,3) + ZRMUM1   * (RRAY(KNU,4) + ZRMUM1 &
+   & * (RRAY(KNU,5) + ZRMUM1   *  RRAY(KNU,6)     ))))  
+  ZRAYL(JL) = MAX (ZRAYL(JL), 0.0_JPRB) 
+ENDDO
+
+!     ------------------------------------------------------------------
+
+!*         2.    CONTINUUM SCATTERING CALCULATIONS
+!                ---------------------------------
+
+!*         2.1   CLEAR-SKY FRACTION OF THE COLUMN
+!                --------------------------------
+
+
+!++MODIFCODE
+   CALL SWCLR &
+        &( KIDIA , KFDIA , KLON ,  KLEV , KAER , KNU &
+        &, PAER  , PALBP , PDSIG , ZRAYL, PSEC &
+        &, ZCGAZ , ZPIZAZ, ZRAY1 , ZRAY2, ZREFZ, ZRJ0 &
+        &, ZRK0  , ZRMU0 , ZTAUAZ, ZTRA1, ZTRA2, ZTRCLR &
+        &, LRDUST,PPIZA_DST,PCGA_DST,PTAUREL_DST &
+        &)
+!--MODIFCODE
+
+!*         2.2   CLOUDY FRACTION OF THE COLUMN
+!                -----------------------------
+
+CALL SWR &
+ & ( KIDIA , KFDIA , KLON , KLEV  , KNU,&
+ & PALBD , PCG   , PCLD , POMEGA, PSEC , PTAU,&
+ & ZCGAZ , ZPIZAZ, ZRAY1, ZRAY2 , ZREFZ, ZRJ  , ZRK, ZRMUE,&
+ & ZTAUAZ, ZTRA1 , ZTRA2, ZTRCLD &
+ & )  
+
+!     ------------------------------------------------------------------
+
+!*         3.    SCATTERING CALCULATIONS WITH GREY MOLECULAR ABSORPTION
+!                ------------------------------------------------------
+
+JN = 2
+
+DO JABS=1,2
+
+!*         3.1  SURFACE CONDITIONS
+!               ------------------
+
+  DO JL = KIDIA,KFDIA
+    ZREFZ(JL,2,1) = PALBD(JL,KNU)
+    ZREFZ(JL,1,1) = PALBD(JL,KNU)
+  ENDDO
+
+!*         3.2  INTRODUCING CLOUD EFFECTS
+!               -------------------------
+
+  DO JK = 2 , KLEV+1
+    JKM1 = JK - 1
+    IKL=KLEV+1-JKM1
+    DO JL = KIDIA,KFDIA
+      ZRNEB(JL) = PCLD(JL,JKM1)
+      IF (JABS == 1.AND. ZRNEB(JL) > REPSC ) THEN
+        ZWH2O=MAX(PWV(JL,IKL),REPSCQ)
+        ZCNEB=MAX(REPSC ,MIN(ZRNEB(JL),1.0_JPRB-REPSC ))
+        ZBB=PUD(JL,JABS,JKM1)*PQS(JL,IKL)/ZWH2O
+        ZAA=MAX((PUD(JL,JABS,JKM1)-ZCNEB*ZBB)/(1.0_JPRB-ZCNEB),REPSCQ)
+      ELSE
+        ZAA=PUD(JL,JABS,JKM1)
+        ZBB=ZAA
+        ZCNEB=0.0_JPRB
+        ZWH2O=MAX(PWV(JL,IKL),REPSCQ)
+      ENDIF
+      
+!      ZEXP1=-ZRKI * ZAA * 1.66_JPRB
+!      ZEXP2=-ZRKI * ZAA / ZRMUE(JL,JK)
+!      IF ( ZEXP1 > _ZERO_ .OR. ZEXP2 > _ZERO_ &
+!        & .OR. ZEXP1 < -700._JPRB .OR. ZEXP2 < -700._JPRB ) THEN
+!        WRITE (NULOUT,'(" SWNI 3.2 : JK=",I4," JL=",I4," JABS=",I4,,8E13.6)') &
+!         & JK,JL,JABS,ZAA,ZBB,ZRKI,ZCNEB,ZWH2O,ZRMUE(JL,JK),ZEXP1,ZEXP2
+!      END IF        
+      
+      ZRKI = PAKI(JL,JABS,KNU)
+!      ZS(JL) = EXP(-ZRKI * ZAA * 1.66_JPRB)
+!      ZG(JL) = EXP(-ZRKI * ZAA / ZRMUE(JL,JK) )
+      
+      ZCHKS = MIN( 200._JPRB, ZRKI * ZAA * 1.66_JPRB )
+      ZCHKG = MIN( 200._JPRB, ZRKI * ZAA / ZRMUE(JL,JK))
+      ZS(JL) = EXP( - ZCHKS )
+      ZG(JL) = EXP( - ZCHKG )
+      
+      ZTR1(JL) = 0.0_JPRB
+      ZRE1(JL) = 0.0_JPRB
+      ZTR2(JL) = 0.0_JPRB
+      ZRE2(JL) = 0.0_JPRB
+
+!++MODIFCODE
+    IF (NOVLP >= 5)THEN !MESONH VERSION
+       ZW(JL) =PCG(JL,KNU,JKM1)*PCG(JL,KNU,JKM1)
+       ZTO1(JL) = PTAU(JL,KNU,JKM1)*(1-(POMEGA(JL,KNU,JKM1)*ZW(JL)))
+       ZW(JL) =POMEGA(JL,KNU,JKM1)*(1-ZW(JL))/(1-(POMEGA(JL,KNU,JKM1)*ZW(JL)))
+       ZGG(JL) =PCG(JL,KNU,JKM1)/(1+PCG(JL,KNU,JKM1))
+       ZGG(JL)=ZTO1(JL)*ZW(JL)*ZGG(JL)+ZTAUAZ(JL,JKM1)*ZPIZAZ(JL,JKM1)*ZCGAZ(JL,JKM1)
+       ZGG(JL)=ZGG(JL)/(ZTO1(JL)*ZW(JL)+ZTAUAZ(JL,JKM1)*ZPIZAZ(JL,JKM1))
+       ZB_ODI(JL)=ZTO1(JL) / ZW(JL)&
+         &+ ZTAUAZ(JL,JKM1) / ZPIZAZ(JL,JKM1)&
+     !if g=0 tau/w=tau'/w'
+         &+ ZBB * ZRKI
+       ZB_ODI(JL)=(1/( (ZTO1(JL) / ZW(JL))&
+         &+ (ZTAUAZ(JL,JKM1) / ZPIZAZ(JL,JKM1)) ))-(1/ZB_ODI(JL))
+       ZB_ODI(JL)=((ZTO1(JL) +  ZTAUAZ(JL,JKM1))**2)*ZB_ODI(JL)
+       ZW(JL)=ZTO1(JL)*ZW(JL)+ZTAUAZ(JL,JKM1)*ZPIZAZ(JL,JKM1)-ZB_ODI(JL)
+       ZTO1(JL) = ZTO1(JL) +  ZTAUAZ(JL,JKM1)
+       ZW(JL)=ZW(JL)/ZTO1(JL)
+     ELSE !ECMWF VERSION
+    ZW(JL)= POMEGA(JL,KNU,JKM1)
+      ZTO1(JL) = PTAU(JL,KNU,JKM1) / ZW(JL)&
+       & + ZTAUAZ(JL,JKM1) / ZPIZAZ(JL,JKM1)&
+       & + ZBB * ZRKI  
+      ZR21(JL) = PTAU(JL,KNU,JKM1) + ZTAUAZ(JL,JKM1)
+      ZR22(JL) = PTAU(JL,KNU,JKM1) / ZR21(JL)
+      ZGG(JL) = ZR22(JL) * PCG(JL,KNU,JKM1)&
+       & + (1.0_JPRB - ZR22(JL)) * ZCGAZ(JL,JKM1)  
+      ZW(JL) = ZR21(JL) / ZTO1(JL)
+    ENDIF
+!--MODIFCODE
+      ZREF(JL) = ZREFZ(JL,1,JKM1)
+      ZRMUZ(JL) = ZRMUE(JL,JK)
+    ENDDO
+
+    CALL SWDE ( KIDIA, KFDIA, KLON,&
+     & ZGG  , ZREF , ZRMUZ, ZTO1, ZW,&
+     & ZRE1 , ZRE2 , ZTR1 , ZTR2     )  
+
+     DO JL = KIDIA,KFDIA
+
+      ZRR=1.0_JPRB/(1.0_JPRB-ZRAY2(JL,JKM1)*ZREFZ(JL,1,JKM1))
+      ZREFZ(JL,2,JK) = (1.0_JPRB-ZRNEB(JL)) * (ZRAY1(JL,JKM1)&
+       & + ZREFZ(JL,2,JKM1) * ZTRA1(JL,JKM1)&
+       & * ZTRA2(JL,JKM1) ) * ZG(JL) * ZS(JL)&
+       & + ZRNEB(JL) * ZRE1(JL)  
+
+      ZTR(JL,2,JKM1)=ZRNEB(JL)*ZTR1(JL)&
+       & + (ZTRA1(JL,JKM1)) * ZG(JL) * (1.0_JPRB-ZRNEB(JL))  
+
+      ZREFZ(JL,1,JK)=(1.0_JPRB-ZRNEB(JL))*(ZRAY1(JL,JKM1)&
+       & +ZREFZ(JL,1,JKM1)*ZTRA1(JL,JKM1)*ZTRA2(JL,JKM1)&
+       & *ZRR ) &
+       & *ZG(JL)*ZS(JL)&
+       & + ZRNEB(JL) * ZRE2(JL)  
+
+      ZTR(JL,1,JKM1)= ZRNEB(JL) * ZTR2(JL)&
+       & + (ZTRA1(JL,JKM1) &
+       & *ZRR ) &
+       & * ZG(JL) * (1.0_JPRB -ZRNEB(JL))  
+
+    ENDDO
+  ENDDO
+
+!*         3.3  REFLECT./TRANSMISSIVITY BETWEEN SURFACE AND LEVEL
+!               -------------------------------------------------
+
+  DO JREF=1,2
+
+    JN = JN + 1
+
+    DO JL = KIDIA,KFDIA
+      ZRJ(JL,JN,KLEV+1) = 1.0_JPRB
+      ZRK(JL,JN,KLEV+1) = ZREFZ(JL,JREF,KLEV+1)
+    ENDDO
+
+    DO JK = 1 , KLEV
+      JKL = KLEV+1 - JK
+      JKLP1 = JKL + 1
+      DO JL = KIDIA,KFDIA
+        ZRE11 = ZRJ(JL,JN,JKLP1) * ZTR(JL,JREF,JKL)
+        ZRJ(JL,JN,JKL) = ZRE11
+        ZRK(JL,JN,JKL) = ZRE11 * ZREFZ(JL,JREF,JKL)
+      ENDDO
+    ENDDO
+  ENDDO
+ENDDO
+
+!     ------------------------------------------------------------------
+
+!*         4.    INVERT GREY AND CONTINUUM FLUXES
+!                --------------------------------
+
+!*         4.1   UPWARD (ZRK) AND DOWNWARD (ZRJ) PSEUDO-FLUXES
+!                ---------------------------------------------
+
+DO JK = 1 , KLEV+1
+  DO JAJ = 1 , 5 , 2
+    JAJP = JAJ + 1
+    DO JL = KIDIA,KFDIA
+      ZRJ(JL,JAJ,JK)=        ZRJ(JL,JAJ,JK) - ZRJ(JL,JAJP,JK)
+      ZRK(JL,JAJ,JK)=        ZRK(JL,JAJ,JK) - ZRK(JL,JAJP,JK)
+      ZRJ(JL,JAJ,JK)= MAX( ZRJ(JL,JAJ,JK) , REPLOG )
+      ZRK(JL,JAJ,JK)= MAX( ZRK(JL,JAJ,JK) , REPLOG )
+    ENDDO
+  ENDDO
+ENDDO
+
+DO JK = 1 , KLEV+1
+  DO JAJ = 2 , 6 , 2
+    DO JL = KIDIA,KFDIA
+      ZRJ(JL,JAJ,JK)= MAX( ZRJ(JL,JAJ,JK) , REPLOG )
+      ZRK(JL,JAJ,JK)= MAX( ZRK(JL,JAJ,JK) , REPLOG )
+    ENDDO
+  ENDDO
+ENDDO
+
+!*         4.2    EFFECTIVE ABSORBER AMOUNTS BY INVERSE LAPLACE
+!                 ---------------------------------------------
+
+DO JK = 1 , KLEV+1
+  JKKI = 1
+  DO JAJ = 1 , 2
+    IIND2(1)=JAJ
+    IIND2(2)=JAJ
+    DO JN = 1 , 2
+      JN2J = JN + 2 * JAJ
+      JKKP4 = JKKI + 4
+
+!*         4.2.1  EFFECTIVE ABSORBER AMOUNTS
+!                 --------------------------
+
+      DO JL = KIDIA,KFDIA
+        ZRR=1.0_JPRB/PAKI(JL,JAJ,KNU)
+        ZRRJ=ZRJ(JL,JN,JK) / ZRJ(JL,JN2J,JK)
+        ZRRK=ZRK(JL,JN,JK) / ZRK(JL,JN2J,JK)
+        ZW2(JL,1) = LOG( ZRRJ ) * ZRR
+        ZW2(JL,2) = LOG( ZRRK ) * ZRR
+      ENDDO
+
+!*         4.2.2  TRANSMISSION FUNCTION
+!                 ---------------------
+
+      CALL SWTT1 ( KIDIA,KFDIA,KLON, KNU, 2, IIND2,&
+       & ZW2,&
+       & ZR2                              )  
+
+      DO JL = KIDIA,KFDIA
+        ZRL(JL,JKKI) = ZR2(JL,1)
+        ZRUEF(JL,JKKI) = ZW2(JL,1)
+        ZRL(JL,JKKP4) = ZR2(JL,2)
+        ZRUEF(JL,JKKP4) = ZW2(JL,2)
+      ENDDO
+
+      JKKI=JKKI+1
+    ENDDO
+  ENDDO
+
+!*         4.3    UPWARD AND DOWNWARD FLUXES WITH H2O AND UMG ABSORPTION
+!                 ------------------------------------------------------
+
+  DO JL = KIDIA,KFDIA
+    PFDOWN(JL,JK) = ZRJ(JL,1,JK) * ZRL(JL,1) * ZRL(JL,3)&
+     & + ZRJ(JL,2,JK) * ZRL(JL,2) * ZRL(JL,4)  
+    PFUP(JL,JK)   = ZRK(JL,1,JK) * ZRL(JL,5) * ZRL(JL,7)&
+     & + ZRK(JL,2,JK) * ZRL(JL,6) * ZRL(JL,8)  
+  ENDDO
+!   WRITE(*,'("---> Dans SWNI: ZRK1 ZRK2  ",2E12.5)') ZRK(1,1,JK),ZRK(1,2,JK)
+!   WRITE(*,'("ZRK1 ZRL5 ZRL7  ",3E12.5)') ZRK(1,1,JK),ZRL(1,5),ZRL(1,7)
+!   WRITE(*,'("ZRK2 ZRL6 ZRL8  ",3E12.5)') ZRK(1,2,JK),ZRL(1,6),ZRL(1,8)
+ENDDO
+
+!     ------------------------------------------------------------------
+
+!*         5.    MOLECULAR ABSORPTION ON CLEAR-SKY FLUXES
+!                ----------------------------------------
+
+!*         5.1   DOWNWARD FLUXES
+!                ---------------
+
+JAJ = 2
+IIND3(1)=1
+IIND3(2)=2
+IIND3(3)=3
+IIND3(4)=1
+IIND3(5)=2
+IIND3(6)=3
+
+DO JL = KIDIA,KFDIA
+  ZW3(JL,1)=0.0_JPRB
+  ZW3(JL,2)=0.0_JPRB
+  ZW3(JL,3)=0.0_JPRB
+  ZW3(JL,4)=0.0_JPRB
+  ZW3(JL,5)=0.0_JPRB
+  ZW3(JL,6)=0.0_JPRB
+
+  ZW4(JL,1)=0.0_JPRB
+  ZW5(JL,1)=0.0_JPRB
+  ZR4(JL,1)=1.0_JPRB
+  ZW4(JL,2)=0.0_JPRB
+  ZW5(JL,2)=0.0_JPRB
+  ZR4(JL,2)=1.0_JPRB
+  ZFD(JL,KLEV+1)= ZRJ0(JL,JAJ,KLEV+1)
+ENDDO
+DO JK = 1 , KLEV
+  IKL = KLEV+1-JK
+  DO JL = KIDIA,KFDIA
+    ZRR=1.0_JPRB/ZRMU0(JL,IKL)
+    ZW3(JL,1)=ZW3(JL,1)+PUD(JL,1,IKL)*ZRR
+    ZW3(JL,2)=ZW3(JL,2)+PUD(JL,2,IKL)*ZRR
+    ZW3(JL,3)=ZW3(JL,3)+POZ(JL,  IKL)*ZRR
+    ZW4(JL,1)=ZW4(JL,1)+PUD(JL,4,IKL)*ZRR
+    ZW5(JL,1)=ZW5(JL,1)+PUD(JL,5,IKL)*ZRR
+
+    ZRR=1.0_JPRB/ZRMUE(JL,IKL)
+    ZW3(JL,4)=ZW3(JL,4)+PUD(JL,1,IKL)*ZRR
+    ZW3(JL,5)=ZW3(JL,5)+PUD(JL,2,IKL)*ZRR
+    ZW3(JL,6)=ZW3(JL,6)+POZ(JL,  IKL)*ZRR
+    ZW4(JL,2)=ZW4(JL,2)+PUD(JL,4,IKL)*ZRR
+    ZW5(JL,2)=ZW5(JL,2)+PUD(JL,5,IKL)*ZRR
+  ENDDO
+
+  CALL SWTT1 ( KIDIA,KFDIA,KLON, KNU, 6, IIND3,&
+   & ZW3,&
+   & ZR3                              )  
+
+  DO JL = KIDIA,KFDIA
+    ZR4(JL,1) = EXP(-RSWCE(KNU)*ZW4(JL,1)-RSWCP(KNU)*ZW5(JL,1))
+    ZR4(JL,2) = EXP(-RSWCE(KNU)*ZW4(JL,2)-RSWCP(KNU)*ZW5(JL,2))
+    ZFD(JL,IKL) = ZR3(JL,1)*ZR3(JL,2)*ZR3(JL,3)*ZR4(JL,1)* ZRJ0(JL,JAJ,IKL)
+  ENDDO
+ENDDO
+IF(LLDEBUG) THEN
+  call writefield_phy('swni_zfd'//str1,ZFD,KLEV+1)
+  call writefield_phy('swni_zrj0'//str1,ZRJ0(:,jaj,:),KLEV+1)
+ENDIF
+
+DO JL=KIDIA,KFDIA
+  ZDIFF(JL) = ZR3(JL,4)*ZR3(JL,5)*ZR3(JL,6)*ZR4(JL,2)*ZTRCLD(JL)
+  ZDIRF(JL) = ZR3(JL,1)*ZR3(JL,2)*ZR3(JL,3)*ZR4(JL,1)*ZTRCLR(JL)
+  PSUDU2(JL) = ((1.0_JPRB-PCLEAR(JL)) * ZDIFF(JL)&
+   & +PCLEAR(JL) * ZDIRF(JL)) * RSUN(KNU)  
+ENDDO
+
+!*         5.2   UPWARD FLUXES
+!                -------------
+
+DO JL = KIDIA,KFDIA
+  ZFU(JL,1) = ZFD(JL,1)*PALBP(JL,KNU)
+ENDDO
+
+DO JK = 2 , KLEV+1
+  IKM1=JK-1
+  DO JL = KIDIA,KFDIA
+    ZW3(JL,1)=ZW3(JL,1)+PUD(JL,1,IKM1)*1.66_JPRB
+    ZW3(JL,2)=ZW3(JL,2)+PUD(JL,2,IKM1)*1.66_JPRB
+    ZW3(JL,3)=ZW3(JL,3)+POZ(JL,  IKM1)*1.66_JPRB
+    ZW4(JL,1)=ZW4(JL,1)+PUD(JL,4,IKM1)*1.66_JPRB
+    ZW5(JL,1)=ZW5(JL,1)+PUD(JL,5,IKM1)*1.66_JPRB
+  ENDDO
+
+  CALL SWTT1 ( KIDIA,KFDIA,KLON, KNU, 3, IIND3,&
+   & ZW3,&
+   & ZR3                              )  
+
+  DO JL = KIDIA,KFDIA
+    ZR4(JL,1) = EXP(-RSWCE(KNU)*ZW4(JL,1)-RSWCP(KNU)*ZW5(JL,1))
+    ZFU(JL,JK) = ZR3(JL,1)*ZR3(JL,2)*ZR3(JL,3)*ZR4(JL,1)* ZRK0(JL,JAJ,JK)
+  ENDDO
+ENDDO
+
+!     ------------------------------------------------------------------
+
+!*         6.     INTRODUCTION OF OZONE AND H2O CONTINUUM ABSORPTION
+!                 --------------------------------------------------
+
+IABS=3
+
+!*         6.1    DOWNWARD FLUXES
+!                 ---------------
+
+DO JL = KIDIA,KFDIA
+  ZW1(JL)=0.0_JPRB
+  ZW4(JL,1)=0.0_JPRB
+  ZW5(JL,1)=0.0_JPRB
+  ZR1(JL)=0.0_JPRB
+  PFDOWN(JL,KLEV+1) = ((1.0_JPRB-PCLEAR(JL))*PFDOWN(JL,KLEV+1)&
+   & + PCLEAR(JL) * ZFD(JL,KLEV+1)) * RSUN(KNU)  
+  PCDOWN(JL,KLEV+1) = ZFD(JL,KLEV+1) * RSUN(KNU)
+ENDDO
+
+DO JK = 1 , KLEV
+  IKL=KLEV+1-JK
+  DO JL = KIDIA,KFDIA
+    ZRR=1.0_JPRB/ZRMUE(JL,IKL)
+    ZW1(JL) = ZW1(JL)+POZ(JL,  IKL) * ZRR
+    ZW4(JL,1) = ZW4(JL,1)+PUD(JL,4,IKL) * ZRR
+    ZW5(JL,1) = ZW5(JL,1)+PUD(JL,5,IKL) * ZRR
+    ZR4(JL,1) = EXP(-RSWCE(KNU)*ZW4(JL,1)-RSWCP(KNU)*ZW5(JL,1))
+  ENDDO
+
+  CALL SWTT ( KIDIA,KFDIA,KLON, KNU, IABS, ZW1, ZR1 )
+
+  DO JL = KIDIA,KFDIA
+    PDIFF(JL,IKL)=ZR1(JL)*ZR4(JL,1)*PFDOWN(JL,IKL)*RSUN(KNU)*(1.0_JPRB-PCLEAR(JL))
+    PDIRF(JL,IKL)=ZFD(JL,IKL)*RSUN(KNU)* PCLEAR(JL)
+    PFDOWN(JL,IKL) = ((1.0_JPRB-PCLEAR(JL))*ZR1(JL)*ZR4(JL,1)*PFDOWN(JL,IKL)&
+     & +PCLEAR(JL)*ZFD(JL,IKL)) * RSUN(KNU)  
+    PCDOWN(JL,IKL) = ZFD(JL,IKL) * RSUN(KNU)
+  ENDDO
+ENDDO
+
+!*         6.2    UPWARD FLUXES
+!                 -------------
+
+DO JL = KIDIA,KFDIA
+  PFUP(JL,1) = ((1.0_JPRB-PCLEAR(JL))*ZR1(JL)*ZR4(JL,1) * PFUP(JL,1)&
+   & +PCLEAR(JL)*ZFU(JL,1)) * RSUN(KNU)  
+  PCUP(JL,1) = ZFU(JL,1) * RSUN(KNU)
+ENDDO
+
+DO JK = 2 , KLEV+1
+  IKM1=JK-1
+  DO JL = KIDIA,KFDIA
+    ZW1(JL) = ZW1(JL)+POZ(JL  ,IKM1)*1.66_JPRB
+    ZW4(JL,1) = ZW4(JL,1)+PUD(JL,4,IKM1)*1.66_JPRB
+    ZW5(JL,1) = ZW5(JL,1)+PUD(JL,5,IKM1)*1.66_JPRB
+    ZR4(JL,1) = EXP(-RSWCE(KNU)*ZW4(JL,1)-RSWCP(KNU)*ZW5(JL,1))
+  ENDDO
+
+  CALL SWTT ( KIDIA,KFDIA,KLON, KNU, IABS, ZW1, ZR1 )
+
+  DO JL = KIDIA,KFDIA
+    PFUP(JL,JK) = ((1.0_JPRB-PCLEAR(JL))*ZR1(JL)*ZR4(JL,1) * PFUP(JL,JK)&
+     & +PCLEAR(JL)*ZFU(JL,JK)) * RSUN(KNU)  
+    PCUP(JL,JK) = ZFU(JL,JK) * RSUN(KNU)
+  ENDDO
+ENDDO
+
+IF(LLDEBUG) THEN
+  call writefield_phy('swni_zfd_fin'//str1,ZFD,KLEV+1)
+  call writefield_phy('swni_pcdown'//str1,PCDOWN,KLEV+1)
+ENDIF
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SWNI',1,ZHOOK_HANDLE)
+END SUBROUTINE SWNI
Index: LMDZ5/trunk/libf/phylmd/rrtm/swni.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/swni.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/swni.intfb.h	(revision 1989)
@@ -0,0 +1,46 @@
+INTERFACE
+SUBROUTINE SWNI&
+ & ( KIDIA , KFDIA , KLON , KLEV , KAER , KNU,&
+ & PAER , PAKI , PALBD , PALBP, PCG , PCLD, PCLEAR,&
+ & PDSIG , POMEGA, POZ , PRMU , PSEC , PTAU,&
+ & PUD , PWV , PQS,&
+ & PFDOWN, PFUP , PCDOWN, PCUP , PSUDU2, PDIFF , PDIRF,&
+ & LRDUST,PPIZA_DST,PCGA_DST,PTAUREL_DST ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE YOERAD , ONLY : NOVLP
+include "clesphys.h"
+INTEGER(KIND=JPIM),INTENT(IN) :: KLON
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KAER
+INTEGER(KIND=JPIM),INTENT(IN) :: KNU
+REAL(KIND=JPRB) ,INTENT(IN) :: PAER(KLON,6,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PAKI(KLON,2,NSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: PALBD(KLON,NSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: PALBP(KLON,NSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCG(KLON,NSW,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCLD(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCLEAR(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PDSIG(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: POMEGA(KLON,NSW,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: POZ(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PRMU(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PSEC(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTAU(KLON,NSW,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PUD(KLON,5,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PWV(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PQS(KLON,KLEV)
+LOGICAL ,INTENT(IN) :: LRDUST
+REAL(KIND=JPRB) ,INTENT(IN) :: PPIZA_DST(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCGA_DST(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTAUREL_DST(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFDOWN(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFUP(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PCDOWN(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PCUP(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PSUDU2(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PDIFF(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PDIRF(KLON,KLEV)
+END SUBROUTINE SWNI
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/swr.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/swr.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/swr.F90	(revision 1989)
@@ -0,0 +1,469 @@
+SUBROUTINE SWR &
+ & ( KIDIA , KFDIA , KLON , KLEV  , KNU,&
+ & PALBD , PCG   , PCLD , POMEGA, PSEC , PTAU,&
+ & PCGAZ , PPIZAZ, PRAY1, PRAY2 , PREFZ, PRJ  , PRK , PRMUE,&
+ & PTAUAZ, PTRA1 , PTRA2, PTRCLD &
+ & )  
+
+!**** *SWR* - CONTINUUM SCATTERING COMPUTATIONS
+
+!     PURPOSE.
+!     --------
+!           COMPUTES THE REFLECTIVITY AND TRANSMISSIVITY IN CASE OF
+!     CONTINUUM SCATTERING
+
+!**   INTERFACE.
+!     ----------
+
+!          *SWR* IS CALLED EITHER FROM *SW1S*
+!                              OR FROM *SWNI*
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!     METHOD.
+!     -------
+
+!          1. COMPUTES CONTINUUM FLUXES CORRESPONDING TO AEROSOL
+!     OR/AND RAYLEIGH SCATTERING (NO MOLECULAR GAS ABSORPTION)
+
+!     EXTERNALS.
+!     ----------
+
+!          *SWDE*
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE ECMWF RESEARCH DEPARTMENT
+!        DOCUMENTATION, AND FOUQUART AND BONNEL (1980)
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 89-07-14
+!        Ph. DANDIN Meteo-France 05-96 : Effect of cloud layer
+!        JJMorcrette 990128 : sunshine duration
+!        JJMorcrette 001218 : 6 spectral intervals
+!        03-10-10 Deborah Salmond and Marta Janiskova Optimisation
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        Y.Seity 06-09-09 : add modset from O.Thouron (MesoNH) under NOVLP tests
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+!USE YOERAD   , ONLY : NOVLP    ,NSW
+! NSW mis dans ;def MPL 20140211
+USE YOERAD   , ONLY : NOVLP    
+USE YOECLD   , ONLY : REPSEC
+USE YOEOVLP  , ONLY : RA1OVLP
+USE write_field_phy
+
+IMPLICIT NONE
+
+include "clesphys.h" 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLON 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KIDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KNU 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PALBD(KLON,NSW) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCG(KLON,NSW,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCLD(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: POMEGA(KLON,NSW,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PSEC(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAU(KLON,NSW,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCGAZ(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PPIZAZ(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PRAY1(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PRAY2(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PREFZ(KLON,2,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PRJ(KLON,6,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PRK(KLON,6,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PRMUE(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAUAZ(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTRA1(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTRA2(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTRCLD(KLON) 
+!     ------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+!     ------------------------------------------------------------------
+
+!              ------------
+
+REAL(KIND=JPRB) :: ZC1I(KLON,KLEV+1)    , ZCLEQ(KLON,KLEV)&
+ & ,  ZCLEAR(KLON)         , ZCLOUD(KLON) &
+ & ,  ZGG(KLON)            , ZREF(KLON)&
+ & ,  ZRE1(KLON)           , ZRE2(KLON)&
+ & ,  ZRMUZ(KLON)          , ZRNEB(KLON)&
+ & ,  ZR21(KLON)           , ZR22(KLON)&
+ & ,  ZR23(KLON)           , ZSS1(KLON)&
+ & ,  ZTO1(KLON)           , ZTR(KLON,2,KLEV+1)&
+ & ,  ZTR1(KLON)           , ZTR2(KLON)&
+ & ,  ZW(KLON)  
+
+INTEGER(KIND=JPIM) :: IKL, IKLP1, JA, JAJ, JK, JKM1, JL, INU1
+
+REAL(KIND=JPRB) :: ZBMU0, ZBMU1, ZCORAE, ZCORCD, ZDEN, ZDEN1,&
+ & ZFACOA, ZFACOC, ZGAP, ZMU1, ZMUE, ZRE11, &
+ & ZTO, ZWW, ZALPHA1, ZCHKAE, ZCHKCD  
+REAL(KIND=JPRB) :: ZRR,ZIMU1,ZI2MU1,ZIDEN,ZIDEN1
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+LOGICAL         :: LLDEBUG
+
+#include "swde.intfb.h"
+
+!     ------------------------------------------------------------------
+
+!*         1.    INITIALIZATION
+!                --------------
+
+IF (LHOOK) CALL DR_HOOK('SWR',0,ZHOOK_HANDLE)
+LLDEBUG=.FALSE.
+DO JK = 1 , KLEV+1
+  DO JA = 1 , 6
+    DO JL = KIDIA,KFDIA
+      PRJ(JL,JA,JK) = 0.0_JPRB
+      PRK(JL,JA,JK) = 0.0_JPRB
+    ENDDO
+  ENDDO
+ENDDO
+
+REPSEC=1.E-12_JPRB    !!!!! A REVOIR (MPL) 220109
+
+!     ------------------------------------------------------------------
+
+!*         2.    TOTAL EFFECTIVE CLOUDINESS ABOVE A GIVEN LEVEL
+!                ----------------------------------------------
+
+DO JL = KIDIA,KFDIA
+  ZR23(JL) = 0.0_JPRB
+  ZC1I(JL,KLEV+1) = 0.0_JPRB
+  ZCLEAR(JL) = 1.0_JPRB
+  ZCLOUD(JL) = 0.0_JPRB
+ENDDO
+
+JK = 1
+IKL = KLEV+1 - JK
+IKLP1 = IKL + 1
+ZALPHA1=RA1OVLP( IKL )
+DO JL = KIDIA,KFDIA
+!++MODIFCODE
+  IF (NOVLP >= 5) THEN !MESONH VERSION
+   stop'provisoire pour verifier option novlp=1'
+   ZFACOA =PTAUAZ(JL,IKL) 
+   ZFACOC = 1.0_JPRB - POMEGA(JL,KNU,IKL) * PCG(JL,KNU,IKL)* PCG(JL,KNU,IKL)
+   ZCORAE = ZFACOA * PSEC(JL)
+   ZCORCD = ZFACOC * PTAU(JL,KNU,IKL) * PSEC(JL)
+  ELSE !ECMWF VERSION
+ZFACOA = 1.0_JPRB - PPIZAZ(JL,IKL)*PCGAZ(JL,IKL)*PCGAZ(JL,IKL)
+  ZFACOC = 1.0_JPRB - POMEGA(JL,KNU,IKL) * PCG(JL,KNU,IKL)* PCG(JL,KNU,IKL)
+  ZCORAE = ZFACOA * PTAUAZ(JL,IKL) * PSEC(JL)
+  ZCORCD = ZFACOC * PTAU(JL,KNU,IKL) * PSEC(JL)
+  ENDIF
+!--MODIFCODE
+  ZCHKAE = MIN( 200._JPRB, ZCORAE )
+  ZCHKCD = MIN( 200._JPRB, ZCORCD )
+  ZR21(JL) = EXP( - ZCHKAE )
+  ZR22(JL) = EXP( - ZCHKCD )
+  
+  ZSS1(JL) = PCLD(JL,IKL)*(1.0_JPRB-ZR21(JL)*ZR22(JL))&
+   & + (1.0_JPRB-PCLD(JL,IKL))*(1.0_JPRB-ZR21(JL))  
+  ZCLEQ(JL,IKL) = ZSS1(JL)
+
+!++MODIFCODE
+  IF ((NOVLP == 1).OR.(NOVLP == 8)) THEN
+!--MODIFCODE
+!* maximum-random      
+    ZCLEAR(JL) = ZCLEAR(JL)&
+     & *(1.0_JPRB-MAX(ZSS1(JL),ZCLOUD(JL)))&
+     & /(1.0_JPRB-MIN(ZCLOUD(JL),1.0_JPRB-REPSEC))  
+    ZC1I(JL,IKL) = 1.0_JPRB - ZCLEAR(JL)
+    ZCLOUD(JL) = ZSS1(JL)
+  ELSEIF (NOVLP == 2) THEN
+   stop'provisoire pour verifier option novlp=1b'
+!* maximum
+    ZCLOUD(JL) = MAX( ZSS1(JL) , ZCLOUD(JL) )
+    ZC1I(JL,IKL) = ZCLOUD(JL)
+!++MODIFCODE
+  ELSEIF ((NOVLP == 3).OR.((NOVLP  >=  5).AND.(NOVLP /= 8))) THEN
+   stop'provisoire pour verifier option novlp=1c'
+!--MODIFCODE
+!* random
+    ZCLEAR(JL) = ZCLEAR(JL)*(1.0_JPRB - ZSS1(JL))
+    ZCLOUD(JL) = 1.0_JPRB - ZCLEAR(JL)
+    ZC1I(JL,IKL) = ZCLOUD(JL)
+  ELSEIF (NOVLP == 4) THEN
+   stop'provisoire pour verifier option novlp=1d'
+!* Hogan & Illingworth, 2001  
+    ZCLEAR(JL)=ZCLEAR(JL)*( &
+     & ZALPHA1*(1.0_JPRB-MAX(ZSS1(JL),ZCLOUD(JL))) &
+     & /(1.0_JPRB-MIN(ZCLOUD(JL),1.0_JPRB-REPSEC)) &
+     & +(1.0_JPRB-ZALPHA1)*(1.0_JPRB-ZSS1(JL)) )  
+    ZC1I(JL,IKL) = 1.0_JPRB - ZCLEAR(JL) 
+    ZCLOUD(JL) = ZSS1(JL)
+  ENDIF
+ENDDO
+
+DO JK = 2 , KLEV
+  IKL = KLEV+1 - JK
+  IKLP1 = IKL + 1
+  ZALPHA1=RA1OVLP( IKL )
+  DO JL = KIDIA,KFDIA
+!++MODIFCODE
+    IF (NOVLP >= 5) THEN !MESONH VERSION
+     ZFACOA =PTAUAZ(JL,IKL) 
+     ZFACOC = 1.0_JPRB - POMEGA(JL,KNU,IKL) * PCG(JL,KNU,IKL)* PCG(JL,KNU,IKL)
+     ZCORAE = ZFACOA * PSEC(JL)
+     ZCORCD = ZFACOC * PTAU(JL,KNU,IKL) * PSEC(JL)
+    ELSE !ECMWF VERSION
+    ZFACOA = 1.0_JPRB - PPIZAZ(JL,IKL)*PCGAZ(JL,IKL)*PCGAZ(JL,IKL)
+    ZFACOC = 1.0_JPRB - POMEGA(JL,KNU,IKL) * PCG(JL,KNU,IKL)* PCG(JL,KNU,IKL)
+    ZCORAE = ZFACOA * PTAUAZ(JL,IKL) * PSEC(JL)
+    ZCORCD = ZFACOC * PTAU(JL,KNU,IKL) * PSEC(JL)
+    ENDIF
+!--MODIFCODE
+!    ZR21(JL) = EXP(-ZCORAE   )
+!    ZR22(JL) = EXP(-ZCORCD   )
+
+    ZCHKAE = MIN( 200._JPRB, ZCORAE )
+    ZCHKCD = MIN( 200._JPRB, ZCORCD )
+    ZR21(JL) = EXP( - ZCHKAE )
+    ZR22(JL) = EXP( - ZCHKCD )
+
+    ZSS1(JL) = PCLD(JL,IKL)*(1.0_JPRB-ZR21(JL)*ZR22(JL))&
+     & + (1.0_JPRB-PCLD(JL,IKL))*(1.0_JPRB-ZR21(JL))  
+    ZCLEQ(JL,IKL) = ZSS1(JL)
+
+!++MODIFCODE
+    IF ((NOVLP == 1).OR.(NOVLP == 8)) THEN
+!--MODIFCODE
+!* maximum-random      
+      ZCLEAR(JL) = ZCLEAR(JL)&
+       & *(1.0_JPRB-MAX(ZSS1(JL),ZCLOUD(JL)))&
+       & /(1.0_JPRB-MIN(ZCLOUD(JL),1.0_JPRB-REPSEC))  
+      ZC1I(JL,IKL) = 1.0_JPRB - ZCLEAR(JL)
+      ZCLOUD(JL) = ZSS1(JL)
+    ELSEIF (NOVLP == 2) THEN
+!* maximum
+      ZCLOUD(JL) = MAX( ZSS1(JL) , ZCLOUD(JL) )
+      ZC1I(JL,IKL) = ZCLOUD(JL)
+!++MODIFCODE
+  ELSEIF ((NOVLP == 3).OR.((NOVLP  >=  5).AND.(NOVLP /= 8))) THEN
+!--MODIFCODE
+!* random
+      ZCLEAR(JL) = ZCLEAR(JL)*(1.0_JPRB - ZSS1(JL))
+      ZCLOUD(JL) = 1.0_JPRB - ZCLEAR(JL)
+      ZC1I(JL,IKL) = ZCLOUD(JL)
+    ELSEIF (NOVLP == 4) THEN
+!* Hogan & Illingworth, 2001  
+      ZCLEAR(JL)=ZCLEAR(JL)*( &
+       & ZALPHA1*(1.0_JPRB-MAX(ZSS1(JL),ZCLOUD(JL))) &
+       & /(1.0_JPRB-MIN(ZCLOUD(JL),1.0_JPRB-REPSEC)) &
+       & +(1.0_JPRB-ZALPHA1)*(1.0_JPRB-ZSS1(JL)) )  
+      ZC1I(JL,IKL) = 1.0_JPRB - ZCLEAR(JL) 
+      ZCLOUD(JL) = ZSS1(JL)
+    ENDIF
+  ENDDO
+ENDDO
+
+!     ------------------------------------------------------------------
+
+!*         3.    REFLECTIVITY/TRANSMISSIVITY FOR PURE SCATTERING
+!                -----------------------------------------------
+
+DO JL = KIDIA,KFDIA
+  PRAY1(JL,KLEV+1) = 0.0_JPRB
+  PRAY2(JL,KLEV+1) = 0.0_JPRB
+  PREFZ(JL,2,1) = PALBD(JL,KNU)
+  PREFZ(JL,1,1) = PALBD(JL,KNU)
+  PTRA1(JL,KLEV+1) = 1.0_JPRB
+  PTRA2(JL,KLEV+1) = 1.0_JPRB
+ENDDO
+
+DO JK = 2 , KLEV+1
+  JKM1 = JK-1
+  DO JL = KIDIA,KFDIA
+    ZRNEB(JL)= PCLD(JL,JKM1)
+    ZRE1(JL)=0.0_JPRB
+    ZTR1(JL)=0.0_JPRB
+    ZRE2(JL)=0.0_JPRB
+    ZTR2(JL)=0.0_JPRB
+
+!     ------------------------------------------------------------------
+
+!*         3.1  EQUIVALENT ZENITH ANGLE
+!               -----------------------
+
+    ZMUE = (1.0_JPRB-ZC1I(JL,JK)) * PSEC(JL)+ ZC1I(JL,JK) * 1.66_JPRB
+    PRMUE(JL,JK) = 1.0_JPRB/ZMUE
+
+!     ------------------------------------------------------------------
+
+!*         3.2  REFLECT./TRANSMISSIVITY DUE TO RAYLEIGH AND AEROSOLS
+!               ----------------------------------------------------
+
+    ZGAP = PCGAZ(JL,JKM1)
+    ZBMU0 = 0.5_JPRB - 0.75_JPRB * ZGAP / ZMUE
+    ZWW = PPIZAZ(JL,JKM1)
+    ZTO = PTAUAZ(JL,JKM1)
+    ZDEN = 1.0_JPRB + (1.0_JPRB - ZWW + ZBMU0 * ZWW) * ZTO * ZMUE &
+     & + (1-ZWW) * (1.0_JPRB - ZWW +2.0_JPRB*ZBMU0*ZWW)*ZTO*ZTO*ZMUE*ZMUE  
+    ZIDEN=1.0_JPRB/ZDEN
+    PRAY1(JL,JKM1) = ZBMU0 * ZWW * ZTO * ZMUE * ZIDEN
+    PTRA1(JL,JKM1) = ZIDEN
+
+    ZMU1 = 0.5_JPRB
+    ZIMU1=2.0_JPRB
+    ZI2MU1=4.0_JPRB
+    ZBMU1 = 0.5_JPRB - 0.75_JPRB * ZGAP * ZMU1
+    ZDEN1= 1.0_JPRB + (1.0_JPRB - ZWW + ZBMU1 * ZWW) * ZTO * ZIMU1 &
+     & + (1-ZWW) * (1.0_JPRB - ZWW +2.0_JPRB*ZBMU1*ZWW)*ZTO*ZTO*ZI2MU1  
+    ZIDEN1=1.0_JPRB/ZDEN1
+    PRAY2(JL,JKM1) = ZBMU1 * ZWW * ZTO * ZIMU1 * ZIDEN1
+    PTRA2(JL,JKM1) = ZIDEN1
+
+!     ------------------------------------------------------------------
+
+!*         3.3  EFFECT OF CLOUD LAYER
+!               ---------------------
+
+
+!++MODIFCODE
+    IF (NOVLP >= 5)THEN !MESONH VERSION
+     ZW(JL) =PCG(JL,KNU,JKM1)*PCG(JL,KNU,JKM1)
+     ZTO1(JL) = PTAU(JL,KNU,JKM1)*(1-(POMEGA(JL,KNU,JKM1)*ZW(JL)))
+     ZW(JL) =POMEGA(JL,KNU,JKM1)*(1-ZW(JL))/(1-(POMEGA(JL,KNU,JKM1)*ZW(JL)))
+     ZGG(JL) = PCG(JL,KNU,JKM1)/(1+PCG(JL,KNU,JKM1))
+     ZGG(JL)=ZTO1(JL)*ZW(JL)*ZGG(JL)+PTAUAZ(JL,JKM1)*PPIZAZ(JL,JKM1)*PCGAZ(JL,JKM1)
+     ZW(JL) =ZTO1(JL)*ZW(JL)+PTAUAZ(JL,JKM1)*PPIZAZ(JL,JKM1)
+     ZTO1(JL) = ZTO1(JL) +  PTAUAZ(JL,JKM1)
+     ZGG(JL)=ZGG(JL)/ZW(JL)
+     ZW(JL) =ZW(JL)/ZTO1(JL)
+    ELSE !ECMWF VERSION
+    ZW(JL) = POMEGA(JL,KNU,JKM1)
+    ZTO1(JL) = PTAU(JL,KNU,JKM1)/ZW(JL)+ PTAUAZ(JL,JKM1)/PPIZAZ(JL,JKM1)
+    ZR21(JL) = PTAU(JL,KNU,JKM1) + PTAUAZ(JL,JKM1)
+    ZR22(JL) = PTAU(JL,KNU,JKM1) / ZR21(JL)
+    ZGG(JL) = ZR22(JL) * PCG(JL,KNU,JKM1)&
+     & + (1.0_JPRB - ZR22(JL)) * PCGAZ(JL,JKM1)  
+    IF (ZW(JL) == 1.0_JPRB .AND. PPIZAZ(JL,JKM1) == 1.0_JPRB) THEN
+      ZW(JL)=1.0_JPRB
+    ELSE
+      ZW(JL) = ZR21(JL) / ZTO1(JL)
+     ENDIF
+    ENDIF
+!--MODIFCODE
+    ZREF(JL) = PREFZ(JL,1,JKM1)
+    ZRMUZ(JL) = PRMUE(JL,JK)
+    ENDDO
+
+  CALL SWDE ( KIDIA, KFDIA , KLON,&
+   & ZGG  , ZREF  , ZRMUZ , ZTO1 , ZW,&
+   & ZRE1 , ZRE2  , ZTR1  , ZTR2      )  
+
+   DO JL = KIDIA,KFDIA
+
+    ZRR=1.0_JPRB/(1.0_JPRB-PRAY2(JL,JKM1)*PREFZ(JL,1,JKM1))
+
+    PREFZ(JL,1,JK) = (1.0_JPRB-ZRNEB(JL)) * (PRAY1(JL,JKM1)&
+     & + PREFZ(JL,1,JKM1) * PTRA1(JL,JKM1)&
+     & * PTRA2(JL,JKM1)&
+     & * ZRR ) &
+     & + ZRNEB(JL) * ZRE2(JL)  
+
+    ZTR(JL,1,JKM1) = ZRNEB(JL) * ZTR2(JL) + (PTRA1(JL,JKM1)&
+     & * ZRR ) &
+     & * (1.0_JPRB-ZRNEB(JL))  
+
+    PREFZ(JL,2,JK) = (1.0_JPRB-ZRNEB(JL)) * (PRAY1(JL,JKM1)&
+     & + PREFZ(JL,2,JKM1) * PTRA1(JL,JKM1)&
+     & * PTRA2(JL,JKM1) )&
+     & + ZRNEB(JL) * ZRE1(JL)  
+
+    ZTR(JL,2,JKM1) = ZRNEB(JL) * ZTR1(JL)+ PTRA1(JL,JKM1) * (1.0_JPRB-ZRNEB(JL))
+
+  ENDDO
+ENDDO
+DO JL = KIDIA,KFDIA
+  ZMUE = (1.0_JPRB-ZC1I(JL,1))*PSEC(JL)+ZC1I(JL,1)*1.66_JPRB
+  PRMUE(JL,1)=1.0_JPRB/ZMUE
+  PTRCLD(JL)=1.0_JPRB-ZC1I(JL,1)
+ENDDO
+
+!     ------------------------------------------------------------------
+
+!*         3.5    REFLECT./TRANSMISSIVITY BETWEEN SURFACE AND LEVEL
+!                 -------------------------------------------------
+
+IF (NSW <= 4) THEN
+  INU1=1
+ELSEIF (NSW == 6) THEN
+  INU1=3
+ENDIF    
+
+IF (KNU <= INU1) THEN
+  JAJ = 2
+  DO JL = KIDIA,KFDIA
+    PRJ(JL,JAJ,KLEV+1) = 1.0_JPRB
+    PRK(JL,JAJ,KLEV+1) = PREFZ(JL, 1,KLEV+1)
+  ENDDO
+
+  DO JK = 1 , KLEV
+    IKL = KLEV+1 - JK
+    IKLP1 = IKL + 1
+    DO JL = KIDIA,KFDIA
+      ZRE11= PRJ(JL,JAJ,IKLP1) * ZTR(JL,  1,IKL)
+      PRJ(JL,JAJ,IKL) = ZRE11
+      PRK(JL,JAJ,IKL) = ZRE11 * PREFZ(JL,  1,IKL)
+    ENDDO
+  ENDDO
+
+ELSE
+
+  DO JAJ = 1 , 2
+    DO JL = KIDIA,KFDIA
+      PRJ(JL,JAJ,KLEV+1) = 1.0_JPRB
+      PRK(JL,JAJ,KLEV+1) = PREFZ(JL,JAJ,KLEV+1)
+    ENDDO
+
+    DO JK = 1 , KLEV
+      IKL = KLEV+1 - JK
+      IKLP1 = IKL + 1
+      DO JL = KIDIA,KFDIA
+        ZRE11= PRJ(JL,JAJ,IKLP1) * ZTR(JL,JAJ,IKL)
+        PRJ(JL,JAJ,IKL) = ZRE11
+        PRK(JL,JAJ,IKL) = ZRE11 * PREFZ(JL,JAJ,IKL)
+      ENDDO
+    ENDDO
+  ENDDO
+
+ENDIF
+IF(LLDEBUG) THEN
+ call writefield_phy ('swr_zc1i',ZC1I,KLEV+1)
+ call writefield_phy ('swr_zss1',ZSS1,1)
+ call writefield_phy ('swr_zclear',ZCLEAR,1)
+ call writefield_phy ('swr_prmue',PRMUE,KLEV+1)
+ call writefield_phy ('swr_psec',PSEC,1)
+ call writefield_phy ('swr_prmue',PRMUE,KLEV+1)
+ call writefield_phy ('swr_ppizaz',PPIZAZ,KLEV)
+ call writefield_phy ('swr_pcgaz',PCGAZ,KLEV)
+ call writefield_phy ('swr_pcg',PCG,KLEV)
+ call writefield_phy ('swr_ptau',PTAU(:,1,:),KLEV)
+ call writefield_phy ('swr_ptauaz',PTAUAZ,KLEV)
+ call writefield_phy ('swr_pcld',PCLD,KLEV)
+ENDIF
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SWR',1,ZHOOK_HANDLE)
+END SUBROUTINE SWR
Index: LMDZ5/trunk/libf/phylmd/rrtm/swr.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/swr.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/swr.intfb.h	(revision 1989)
@@ -0,0 +1,35 @@
+INTERFACE
+SUBROUTINE SWR&
+ & ( KIDIA , KFDIA , KLON , KLEV , KNU,&
+ & PALBD , PCG , PCLD , POMEGA, PSEC , PTAU,&
+ & PCGAZ , PPIZAZ, PRAY1, PRAY2 , PREFZ, PRJ , PRK , PRMUE,&
+ & PTAUAZ, PTRA1 , PTRA2, PTRCLD&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE YOERAD , ONLY : NOVLP 
+include "clesphys.h"
+INTEGER(KIND=JPIM),INTENT(IN) :: KLON
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KNU
+REAL(KIND=JPRB) ,INTENT(IN) :: PALBD(KLON,NSW)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCG(KLON,NSW,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCLD(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: POMEGA(KLON,NSW,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PSEC(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTAU(KLON,NSW,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCGAZ(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PPIZAZ(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PRAY1(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PRAY2(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PREFZ(KLON,2,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PRJ(KLON,6,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PRK(KLON,6,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PRMUE(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTAUAZ(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PTRA1(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PTRA2(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PTRCLD(KLON)
+END SUBROUTINE SWR
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/swtt.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/swtt.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/swtt.F90	(revision 1989)
@@ -0,0 +1,104 @@
+SUBROUTINE SWTT ( KIDIA, KFDIA, KLON, KNU, KA , PU, PTR)
+
+!**** *SWTT* - COMPUTES THE SHORTWAVE TRANSMISSION FUNCTIONS
+
+!     PURPOSE.
+!     --------
+!           THIS ROUTINE COMPUTES THE TRANSMISSION FUNCTIONS FOR ALL THE
+!     ABSORBERS (H2O, UNIFORMLY MIXED GASES, AND O3) IN THE TWO SPECTRAL
+!     INTERVALS.
+
+!**   INTERFACE.
+!     ----------
+!          *SWTT* IS CALLED FROM *SW1S*, *SWNI*.
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+! KNU    :                     ; INDEX OF THE SPECTRAL INTERVAL
+! KA     :                     ; INDEX OF THE ABSORBER
+! PU     : (KLON)             ; ABSORBER AMOUNT
+!     ==== OUTPUTS ===
+! PTR    : (KLON)             ; TRANSMISSION FUNCTION
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+!          TRANSMISSION FUNCTION ARE COMPUTED USING PADE APPROXIMANTS
+!     AND HORNER'S ALGORITHM.
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 88-12-15
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+   
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOESW    , ONLY : APAD     ,BPAD     ,D
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLON 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KIDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KNU 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KA 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PU(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTR(KLON) 
+!-----------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+!-----------------------------------------------------------------------
+
+!              ------------
+
+REAL(KIND=JPRB) :: ZR1(KLON), ZR2(KLON)
+
+INTEGER(KIND=JPIM) :: JL
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!-----------------------------------------------------------------------
+
+!*         1.      HORNER'S ALGORITHM TO COMPUTE TRANSMISSION FUNCTION
+
+IF (LHOOK) CALL DR_HOOK('SWTT',0,ZHOOK_HANDLE)
+DO JL = KIDIA,KFDIA
+  ZR1(JL) = APAD(KNU,KA,1) + PU(JL) * (APAD(KNU,KA,2) + PU(JL)&
+   & * ( APAD(KNU,KA,3) + PU(JL) * (APAD(KNU,KA,4) + PU(JL)&
+   & * ( APAD(KNU,KA,5) + PU(JL) * (APAD(KNU,KA,6) + PU(JL)&
+   & * ( APAD(KNU,KA,7) ))))))  
+
+  ZR2(JL) = BPAD(KNU,KA,1) + PU(JL) * (BPAD(KNU,KA,2) + PU(JL)&
+   & * ( BPAD(KNU,KA,3) + PU(JL) * (BPAD(KNU,KA,4) + PU(JL)&
+   & * ( BPAD(KNU,KA,5) + PU(JL) * (BPAD(KNU,KA,6) + PU(JL)&
+   & * ( BPAD(KNU,KA,7) ))))))  
+
+!*         2.      ADD THE BACKGROUND TRANSMISSION
+
+  PTR(JL) = (ZR1(JL) / ZR2(JL)) * (1.0_JPRB - D(KNU,KA)) + D(KNU,KA)
+ENDDO
+
+IF (LHOOK) CALL DR_HOOK('SWTT',1,ZHOOK_HANDLE)
+END SUBROUTINE SWTT
Index: LMDZ5/trunk/libf/phylmd/rrtm/swtt.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/swtt.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/swtt.intfb.h	(revision 1989)
@@ -0,0 +1,12 @@
+INTERFACE
+SUBROUTINE SWTT ( KIDIA, KFDIA, KLON, KNU, KA , PU, PTR)
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KLON
+INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KNU
+INTEGER(KIND=JPIM),INTENT(IN) :: KA
+REAL(KIND=JPRB) ,INTENT(IN) :: PU(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PTR(KLON)
+END SUBROUTINE SWTT
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/swtt1.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/swtt1.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/swtt1.F90	(revision 1989)
@@ -0,0 +1,117 @@
+SUBROUTINE SWTT1 ( KIDIA,KFDIA,KLON,KNU,KABS,KIND, PU, PTR )
+
+!**** *SWTT1* - COMPUTES THE SHORTWAVE TRANSMISSION FUNCTIONS
+
+!     PURPOSE.
+!     --------
+!           THIS ROUTINE COMPUTES THE TRANSMISSION FUNCTIONS FOR ALL THE
+!     ABSORBERS (H2O, UNIFORMLY MIXED GASES, AND O3) IN THE TWO SPECTRAL
+!     INTERVALS.
+
+!**   INTERFACE.
+!     ----------
+!          *SWTT1* IS CALLED FROM *SW1S*.
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+! KNU    :                     ; INDEX OF THE SPECTRAL INTERVAL
+! KABS   :                     ; NUMBER OF ABSORBERS
+! KIND   : (KABS)              ; INDICES OF THE ABSORBERS
+! PU     : (KLON,KABS)         ; ABSORBER AMOUNT
+!     ==== OUTPUTS ===
+! PTR    : (KLON,KABS)         ; TRANSMISSION FUNCTION
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+!          TRANSMISSION FUNCTION ARE COMPUTED USING PADE APPROXIMANTS
+!     AND HORNER'S ALGORITHM.
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 95-01-20
+!        03-10-10 Deborah Salmond and Marta Janiskova Optimisation
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+   
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOESW    , ONLY : APAD     ,BPAD     ,D
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLON 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KABS 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KIDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KNU 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KIND(KABS) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PU(KLON,KABS) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTR(KLON,KABS) 
+!-----------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+!-----------------------------------------------------------------------
+
+!              ------------
+
+REAL(KIND=JPRB) :: ZR1(KLON), ZR2(KLON), ZU(KLON)
+REAL(KIND=JPRB) :: ZRR
+
+INTEGER(KIND=JPIM) :: IA, JA, JL
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!-----------------------------------------------------------------------
+
+!*         1.      HORNER'S ALGORITHM TO COMPUTE TRANSMISSION FUNCTION
+
+IF (LHOOK) CALL DR_HOOK('SWTT1',0,ZHOOK_HANDLE)
+DO JA = 1,KABS
+  IA=KIND(JA)
+! print *,'SWTT1: KNU', KNU
+  DO JL = KIDIA,KFDIA
+    ZU(JL) = PU(JL,JA)
+    ZR1(JL) = APAD(KNU,IA,1) + ZU(JL) * (APAD(KNU,IA,2) + ZU(JL)&
+     & * ( APAD(KNU,IA,3) + ZU(JL) * (APAD(KNU,IA,4) + ZU(JL)&
+     & * ( APAD(KNU,IA,5) + ZU(JL) * (APAD(KNU,IA,6) + ZU(JL)&
+     & * ( APAD(KNU,IA,7) ))))))  
+!    print *,'SWTT1 ZU APAD',IA,ZU(JL),APAD(KNU,IA,1),APAD(KNU,IA,2),&
+!    &APAD(KNU,IA,3),APAD(KNU,IA,4),APAD(KNU,IA,5),APAD(KNU,IA,6),APAD(KNU,IA,7)
+
+    ZR2(JL) = BPAD(KNU,IA,1) + ZU(JL) * (BPAD(KNU,IA,2) + ZU(JL)&
+     & * ( BPAD(KNU,IA,3) + ZU(JL) * (BPAD(KNU,IA,4) + ZU(JL)&
+     & * ( BPAD(KNU,IA,5) + ZU(JL) * (BPAD(KNU,IA,6) + ZU(JL)&
+     & * ( BPAD(KNU,IA,7) ))))))  
+    ZRR=1.0_JPRB/ZR2(JL)
+
+!*         2.      ADD THE BACKGROUND TRANSMISSION
+
+    PTR(JL,JA) = (ZR1(JL)*ZRR) * (1.0_JPRB-D(KNU,IA)) + D(KNU,IA)
+  ENDDO
+ENDDO
+!WRITE(*,'("---> Dans SWTT1, PTR : "10E12.5)') (PTR(1,JA),JA=1,KABS)
+
+IF (LHOOK) CALL DR_HOOK('SWTT1',1,ZHOOK_HANDLE)
+END SUBROUTINE SWTT1
Index: LMDZ5/trunk/libf/phylmd/rrtm/swtt1.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/swtt1.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/swtt1.intfb.h	(revision 1989)
@@ -0,0 +1,13 @@
+INTERFACE
+SUBROUTINE SWTT1 ( KIDIA,KFDIA,KLON,KNU,KABS,KIND, PU, PTR )
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+INTEGER(KIND=JPIM),INTENT(IN) :: KLON
+INTEGER(KIND=JPIM),INTENT(IN) :: KABS
+INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KNU
+INTEGER(KIND=JPIM),INTENT(IN) :: KIND(KABS)
+REAL(KIND=JPRB) ,INTENT(IN) :: PU(KLON,KABS)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PTR(KLON,KABS)
+END SUBROUTINE SWTT1
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/swu.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/swu.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/swu.F90	(revision 1989)
@@ -0,0 +1,259 @@
+!OPTIONS XOPT(HSFUN)
+SUBROUTINE SWU &
+ & ( KIDIA, KFDIA , KLON  , KLEV,&
+ & PSCT , PCARDI, PCLDSW, PPMB , PPSOL, PRMU0, PTAVE, PWV,&
+ & PAKI , PCLD  , PCLEAR, PDSIG, PFACT, PRMU , PSEC , PUD &
+ & )  
+
+!**** *SWU* - SHORTWAVE RADIATION, ABSORBER AMOUNTS
+
+!     PURPOSE.
+!     --------
+!           COMPUTES THE ABSORBER AMOUNTS USED IN SHORTWAVE RADIATION
+!     CALCULATIONS
+
+!**   INTERFACE.
+!     ----------
+!          *SWU* IS CALLED BY *SW*
+
+!        IMPLICIT ARGUMENTS :
+!        --------------------
+
+!     ==== INPUTS ===
+!     ==== OUTPUTS ===
+
+!     METHOD.
+!     -------
+
+!          1. COMPUTES ABSORBER AMOUNTS WITH TEMPERATURE AND PRESSURE
+!     SCALING.
+
+!     EXTERNALS.
+!     ----------
+
+!          *SWTT*
+
+!     REFERENCE.
+!     ----------
+
+!        SEE RADIATION'S PART OF THE ECMWF RESEARCH DEPARTMENT
+!        DOCUMENTATION, AND FOUQUART AND BONNEL (1980)
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 89-07-14
+!        03-03-18   JJMorcrette  security on normalized cloud cover
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        Y.Seity 06-09-09 : add modset from O.Thouron (MesoNH) under NOVLP tests
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOECLD   , ONLY : REPSEC
+!USE YOERAD   , ONLY :   NOVLP    ,NSW
+! NSW mis dans .def MPL 20140211
+USE YOERAD   , ONLY :   NOVLP    
+USE YOERDU   , ONLY : REPSCQ
+USE YOESW    , ONLY : RPDH1    ,RPDU1    ,RPNH     ,RPNU     ,&
+ & RTDH2O   ,RTDUMG   ,RTH2O    ,RTUMG  
+USE YOEOVLP  , ONLY : RA1OVLP
+
+IMPLICIT NONE
+
+include "clesphys.h"
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLON 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KIDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFDIA 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PSCT 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCARDI 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PCLDSW(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PPMB(KLON,KLEV+1) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PPSOL(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PRMU0(KLON) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAVE(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PWV(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PAKI(KLON,2,NSW) 
+REAL(KIND=JPRB)   ,INTENT(INOUT) :: PCLD(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PCLEAR(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PDSIG(KLON,KLEV) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFACT(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PRMU(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PSEC(KLON) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PUD(KLON,5,KLEV+1) 
+!     ------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+INTEGER(KIND=JPIM) :: INUIR  
+
+!     ------------------------------------------------------------------
+
+!              ------------
+
+INTEGER(KIND=JPIM) :: IIND(2)
+REAL(KIND=JPRB) :: ZC1J(KLON,KLEV+1),ZCLEAR(KLON),ZCLOUD(KLON)&
+ & ,  ZN175(KLON), ZN190(KLON), ZO175(KLON)&
+ & ,  ZO190(KLON), ZSIGN(KLON)&
+ & ,  ZR(KLON,2) , ZSIGO(KLON), ZUD(KLON,2)  
+
+INTEGER(KIND=JPIM) :: JA, JK, JKL, JKLP1, JKP1, JL, JNU
+
+REAL(KIND=JPRB) :: ZDSCO2, ZDSH2O, ZFPPW, ZRTH, ZRTU, ZWH2O, ZALPHA1
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+#include "swtt1.intfb.h"
+
+!     ------------------------------------------------------------------
+
+!*         1.     COMPUTES AMOUNTS OF ABSORBERS
+!                 -----------------------------
+
+REPSEC=1.E-12_JPRB   !!!!! A REVOIR (MPL)
+IF (LHOOK) CALL DR_HOOK('SWU',0,ZHOOK_HANDLE)
+IIND(1)=1
+IIND(2)=2
+
+!*         1.1    INITIALIZES QUANTITIES
+!                 ----------------------
+
+DO JL = KIDIA,KFDIA
+  PUD(JL,1,KLEV+1)=0.0_JPRB
+  PUD(JL,2,KLEV+1)=0.0_JPRB
+  PUD(JL,3,KLEV+1)=0.0_JPRB
+  PUD(JL,4,KLEV+1)=0.0_JPRB
+  PUD(JL,5,KLEV+1)=0.0_JPRB
+  PFACT(JL)= PRMU0(JL) * PSCT
+!- already accounted for in RADINT      
+!      PRMU(JL)=SQRT(1224.* PRMU0(JL) * PRMU0(JL) + 1.) / 35.
+  PRMU(JL)=PRMU0(JL)
+  PSEC(JL)=1.0_JPRB/PRMU(JL)
+  ZC1J(JL,KLEV+1)=0.0_JPRB
+ENDDO
+
+!*          1.3    AMOUNTS OF ABSORBERS
+!                  --------------------
+
+DO JL= KIDIA,KFDIA
+  ZUD(JL,1) = 0.0_JPRB
+  ZUD(JL,2) = 0.0_JPRB
+  ZO175(JL) = PPSOL(JL)** RPDU1
+  ZO190(JL) = PPSOL(JL)** RPDH1
+  ZSIGO(JL) = PPSOL(JL)
+  ZCLEAR(JL)=1.0_JPRB
+  ZCLOUD(JL)=0.0_JPRB
+ENDDO
+
+DO JK = 1 , KLEV
+  JKP1 = JK + 1
+  JKL = KLEV+1 - JK
+  JKLP1 = JKL+1
+  ZALPHA1=RA1OVLP(KLEV+1-JK)
+  
+  DO JL = KIDIA,KFDIA
+    ZRTH=(RTH2O/PTAVE(JL,JK))**RTDH2O
+    ZRTU=(RTUMG/PTAVE(JL,JK))**RTDUMG
+    ZWH2O = MAX (PWV(JL,JKL) , REPSCQ )
+
+    ZSIGN(JL) = 100._JPRB * PPMB(JL,JKP1)
+    PDSIG(JL,JK) = (ZSIGO(JL) - ZSIGN(JL))/PPSOL(JL)
+    ZN175(JL) = ZSIGN(JL) ** RPDU1
+    ZN190(JL) = ZSIGN(JL) ** RPDH1
+    ZDSCO2 = ZO175(JL) - ZN175(JL)
+    ZDSH2O = ZO190(JL) - ZN190(JL)
+    PUD(JL,1,JK) = RPNH * ZDSH2O * ZWH2O  * ZRTH
+    PUD(JL,2,JK) = RPNU * ZDSCO2 * PCARDI * ZRTU
+    
+    ZFPPW=1.6078_JPRB*ZWH2O/(1.0_JPRB+0.608_JPRB*ZWH2O)
+    PUD(JL,4,JK)=PUD(JL,1,JK)*ZFPPW
+    PUD(JL,5,JK)=PUD(JL,1,JK)*(1.0_JPRB-ZFPPW)
+    ZUD(JL,1) = ZUD(JL,1) + PUD(JL,1,JK)
+    ZUD(JL,2) = ZUD(JL,2) + PUD(JL,2,JK)
+    ZSIGO(JL) = ZSIGN(JL)
+    ZO175(JL) = ZN175(JL)
+    ZO190(JL) = ZN190(JL)
+!print *,'SWU: RTH2O RTDH2O RTUMG RTDUMG',RTH2O,RTDH2O,RTUMG,RTDUMG
+!print *,'SWU: RPNH ZDSH2O ZWH2O ZRTH',RPNH,ZDSH2O,ZWH2O,ZRTH
+!print *,'SWU: RPNU ZDSCO2 PCARDI ZRTU',RPNU,ZDSCO2,PCARDI,ZRTU
+
+!++MODIFCODE
+    IF ((NOVLP == 1).OR.(NOVLP==6).OR.(NOVLP==8)) THEN
+      ZCLEAR(JL)=ZCLEAR(JL)&
+       & *(1.0_JPRB-MAX(PCLDSW(JL,JKL),ZCLOUD(JL)))&
+       & /(1.0_JPRB-MIN(ZCLOUD(JL),1.0_JPRB-REPSEC))  
+      ZC1J(JL,JKL)= 1.0_JPRB - ZCLEAR(JL)
+      ZCLOUD(JL) = PCLDSW(JL,JKL)
+    ELSEIF ((NOVLP == 2).OR.(NOVLP==7)) THEN
+      ZCLOUD(JL) = MAX(PCLDSW(JL,JKL),ZCLOUD(JL))
+      ZC1J(JL,JKL) = ZCLOUD(JL)
+    ELSEIF ((NOVLP == 3).OR.(NOVLP==5)) THEN
+      ZCLEAR(JL) = ZCLEAR(JL)*(1.0_JPRB-PCLDSW(JL,JKL))
+      ZCLOUD(JL) = 1.0_JPRB - ZCLEAR(JL)
+      ZC1J(JL,JKL) = ZCLOUD(JL)
+    ELSEIF (NOVLP == 4) THEN
+!** Hogan & Illingworth (2001)      
+      ZCLEAR(JL)=ZCLEAR(JL)*( &
+       & ZALPHA1*(1.0_JPRB-MAX(PCLDSW(JL,JKL),ZCLOUD(JL))) &
+       & /(1.0_JPRB-MIN(ZCLOUD(JL),1.0_JPRB-REPSEC)) &
+       & +(1.0_JPRB-ZALPHA1)*(1.0_JPRB-PCLDSW(JL,JKL)) )  
+      ZC1J(JL,JKL) = 1.0_JPRB - ZCLEAR(JL) 
+      ZCLOUD(JL) = PCLDSW(JL,JKL)
+    ENDIF
+!--MODIFCODE
+  ENDDO
+ENDDO
+
+DO JL=KIDIA,KFDIA
+  PCLEAR(JL)=1.0_JPRB-ZC1J(JL,1)
+ENDDO
+DO JK=1,KLEV
+  DO JL=KIDIA,KFDIA
+    IF (PCLEAR(JL) < 1.0_JPRB) THEN
+      PCLD(JL,JK)=PCLDSW(JL,JK)/(1.0_JPRB-PCLEAR(JL))
+    ELSE
+      PCLD(JL,JK)=0.0_JPRB
+    ENDIF
+    PCLD(JL,JK)=MAX(0.0_JPRB,MIN(1.0_JPRB,PCLD(JL,JK)))
+  ENDDO
+ENDDO
+
+!*         1.4    COMPUTES CLEAR-SKY GREY ABSORPTION COEFFICIENTS
+!                 -----------------------------------------------
+
+DO JA = 1,2
+  DO JL = KIDIA,KFDIA
+    ZUD(JL,JA) = ZUD(JL,JA) * PSEC(JL)
+  ENDDO
+ENDDO
+
+IF (NSW <= 4) THEN
+  INUIR=2
+ELSEIF (NSW == 6) THEN
+  INUIR=4
+ENDIF     
+
+DO JNU= INUIR,NSW
+
+  CALL SWTT1 ( KIDIA,KFDIA,KLON, JNU, 2, IIND,&
+   & ZUD,&
+   & ZR                            )  
+
+  DO JA = 1,2
+    DO JL = KIDIA,KFDIA
+      PAKI(JL,JA,JNU) = -LOG( ZR(JL,JA) ) / ZUD(JL,JA)
+    ENDDO
+  ENDDO
+ENDDO
+
+!     ------------------------------------------------------------------
+
+IF (LHOOK) CALL DR_HOOK('SWU',1,ZHOOK_HANDLE)
+END SUBROUTINE SWU
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/swu.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/swu.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/swu.intfb.h	(revision 1989)
@@ -0,0 +1,31 @@
+INTERFACE
+SUBROUTINE SWU&
+ & ( KIDIA, KFDIA , KLON , KLEV,&
+ & PSCT , PCARDI, PCLDSW, PPMB , PPSOL, PRMU0, PTAVE, PWV,&
+ & PAKI , PCLD , PCLEAR, PDSIG, PFACT, PRMU , PSEC , PUD&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE YOERAD , ONLY : NOVLP
+include "clesphys.h"
+INTEGER(KIND=JPIM),INTENT(IN) :: KLON
+INTEGER(KIND=JPIM),INTENT(IN) :: KLEV
+INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
+REAL(KIND=JPRB) ,INTENT(IN) :: PSCT
+REAL(KIND=JPRB) ,INTENT(IN) :: PCARDI
+REAL(KIND=JPRB) ,INTENT(IN) :: PCLDSW(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PPMB(KLON,KLEV+1)
+REAL(KIND=JPRB) ,INTENT(IN) :: PPSOL(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PRMU0(KLON)
+REAL(KIND=JPRB) ,INTENT(IN) :: PTAVE(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PWV(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PAKI(KLON,2,NSW)
+REAL(KIND=JPRB) ,INTENT(INOUT) :: PCLD(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PCLEAR(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PDSIG(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PFACT(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PRMU(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PSEC(KLON)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PUD(KLON,5,KLEV+1)
+END SUBROUTINE SWU
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/swuvo3.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/swuvo3.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/swuvo3.F90	(revision 1989)
@@ -0,0 +1,146 @@
+SUBROUTINE SWUVO3 &
+ & ( KIDIA,KFDIA,KLON,KNU,KABS,&
+ & PU, PTR &
+ & )  
+  
+!**** *SWUVO3* - COMPUTES THE SHORTWAVE TRANSMISSION FUNCTIONS
+
+!     PURPOSE.
+!     --------
+!           THIS ROUTINE COMPUTES THE TRANSMISSION FUNCTIONS FOR OZONE
+!     IN THE UV and VISIBLE SPECTRAL INTERVALS.
+
+!**   INTERFACE.
+!     ----------
+!          *SWUVO3* IS CALLED FROM *SW1S*.
+
+!        EXPLICIT ARGUMENTS :
+!        --------------------
+! KNU    :                     ; INDEX OF THE SPECTRAL INTERVAL
+! KABS   :                     ; NUMBER OF ABSORBERS
+! PU     : (KLON,KABS)         ; ABSORBER AMOUNT
+!     ==== OUTPUTS ===
+! PTR    : (KLON,KABS)         ; TRANSMISSION FUNCTION
+
+!        IMPLICIT ARGUMENTS :   NONE
+!        --------------------
+
+!     METHOD.
+!     -------
+
+!          TRANSMISSION FUNCTION ARE COMPUTED USING SUMS OF EXPONENTIALS
+
+!     EXTERNALS.
+!     ----------
+
+!          NONE
+
+!     REFERENCE.
+!     ----------
+!        SEE RADIATION'S PART OF THE MODEL'S DOCUMENTATION AND
+!        ECMWF RESEARCH DEPARTMENT DOCUMENTATION OF THE IFS
+
+!     AUTHOR.
+!     -------
+!        JEAN-JACQUES MORCRETTE  *ECMWF*
+
+!     MODIFICATIONS.
+!     --------------
+!        ORIGINAL : 00-12-18
+!        Modified J. HAGUE          03-01-03 MASS Vector Functions       
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+   
+!-----------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOESW    , ONLY : NEXPO3, REXPO3
+USE YOMJFH   , ONLY : N_VMASS
+USE write_field_phy
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM),INTENT(IN)    :: KLON 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KABS 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KIDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KFDIA 
+INTEGER(KIND=JPIM),INTENT(IN)    :: KNU 
+REAL(KIND=JPRB)   ,INTENT(IN)    :: PU(KLON,KABS) 
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTR(KLON,KABS) 
+!-----------------------------------------------------------------------
+
+!*       0.1   ARGUMENTS
+!              ---------
+
+!-----------------------------------------------------------------------
+
+!              ------------
+
+REAL(KIND=JPRB) :: ZU(KLON)
+REAL(KIND=JPRB) :: ZTMP1(KFDIA-KIDIA+1+N_VMASS)
+REAL(KIND=JPRB) :: ZTMP2(KFDIA-KIDIA+1+N_VMASS)
+
+INTEGER(KIND=JPIM) ::  JA, JL, IEXP, JX, JLEN
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+LOGICAL LLDEBUG
+
+IF (LHOOK) CALL DR_HOOK('SWUVO3',0,ZHOOK_HANDLE)
+IEXP=NEXPO3(KNU)
+LLDEBUG=.FALSE.
+
+!print *,'Dans SWUVO3, N_VMASS= ',N_VMASS
+IF(N_VMASS > 0) THEN
+  JLEN=KFDIA-KIDIA+N_VMASS-MOD(KFDIA-KIDIA,N_VMASS)
+  IF(KFDIA-KIDIA+1 /= JLEN) THEN
+    ZTMP1(KFDIA-KIDIA+2:JLEN) = 0.0_JPRB
+  ENDIF
+ENDIF
+
+DO JA = 1,KABS
+  DO JL=KIDIA,KFDIA
+    PTR(JL,JA)=0.0_JPRB
+  ENDDO
+  
+! Ce qui concerne N_VMASS commente par MPL 20.11.08
+! IF(N_VMASS <= 0) THEN ! Do not use Vector Mass
+
+!       WRITE(*,'("---> Dans SWUVO3 ")')
+    DO JX=1,IEXP
+      DO JL = KIDIA,KFDIA
+        ZU(JL) = PU(JL,JA)
+        PTR(JL,JA) = PTR(JL,JA)+REXPO3(KNU,1,JX)*EXP(-REXPO3(KNU,2,JX)*ZU(JL))
+!       WRITE(*,'("                 PTR ",E12.5)') (PTR(JL,JA))
+!       WRITE(*,'("REXPO3-1 ",E12.5)') (REXPO3(KNU,1,JX))
+!       WRITE(*,'("REXPO3-2 ",E12.5)') (REXPO3(KNU,2,JX))
+!       WRITE(*,'("ZU ",E12.5)') (ZU(JL))
+!       WRITE(*,'("KNU KABS IEXP ",3I6)') KNU,KABS,IEXP
+      ENDDO
+    ENDDO
+
+
+! ELSE  ! Use Vector MASS
+
+!   DO JX=1,IEXP
+!     DO JL = KIDIA,KFDIA
+!       ZTMP1(JL-KIDIA+1)=-REXPO3(KNU,2,JX)*PU(JL,JA)
+!     ENDDO
+  
+!     CALL VEXP(ZTMP2,ZTMP1,JLEN)
+  
+!     DO JL = KIDIA,KFDIA
+!       PTR(JL,JA) = PTR(JL,JA)+REXPO3(KNU,1,JX)*ZTMP2(JL-KIDIA+1)
+!     ENDDO
+!   ENDDO    
+
+! ENDIF
+
+ENDDO
+
+IF(LLDEBUG) THEN
+    call writefield_phy("swuvo3_pu",pu,kabs)
+    call writefield_phy("swuvo3_ptr",ptr,kabs)
+ENDIF
+
+IF (LHOOK) CALL DR_HOOK('SWUVO3',1,ZHOOK_HANDLE)
+END SUBROUTINE SWUVO3
Index: LMDZ5/trunk/libf/phylmd/rrtm/swuvo3.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/swuvo3.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/swuvo3.intfb.h	(revision 1989)
@@ -0,0 +1,16 @@
+INTERFACE
+SUBROUTINE SWUVO3&
+ & ( KIDIA,KFDIA,KLON,KNU,KABS,&
+ & PU, PTR&
+ & ) 
+USE PARKIND1 ,ONLY : JPIM ,JPRB
+USE YOMJFH , ONLY : N_VMASS
+INTEGER(KIND=JPIM),INTENT(IN) :: KLON
+INTEGER(KIND=JPIM),INTENT(IN) :: KABS
+INTEGER(KIND=JPIM),INTENT(IN) :: KIDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KFDIA
+INTEGER(KIND=JPIM),INTENT(IN) :: KNU
+REAL(KIND=JPRB) ,INTENT(IN) :: PU(KLON,KABS)
+REAL(KIND=JPRB) ,INTENT(OUT) :: PTR(KLON,KABS)
+END SUBROUTINE SWUVO3
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/tpm_constants.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/tpm_constants.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/tpm_constants.F90	(revision 1989)
@@ -0,0 +1,10 @@
+MODULE TPM_CONSTANTS
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+REAL(KIND=JPRB) :: RA=6371229._JPRB   ! Radius of Earth
+
+END MODULE TPM_CONSTANTS
Index: LMDZ5/trunk/libf/phylmd/rrtm/tpm_dim.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/tpm_dim.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/tpm_dim.F90	(revision 1989)
@@ -0,0 +1,34 @@
+MODULE TPM_DIM
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+TYPE DIM_TYPE
+! SPECTRAL SPACE DIMENSIONS
+
+  INTEGER(KIND=JPIM) :: NSMAX      ! Truncation order
+  INTEGER(KIND=JPIM) :: NTMAX
+  INTEGER(KIND=JPIM) :: NSPOLEG    ! Number of Legandre polynomials
+  INTEGER(KIND=JPIM) :: NSPEC_G    ! Number of complex spectral coefficients (global)
+  INTEGER(KIND=JPIM) :: NSPEC2_G   ! 2*NSPEC_G
+
+! COLLOCATION GRID DIMENSIONS
+  
+  INTEGER(KIND=JPIM) :: NDGL       ! Number of rows of latitudes
+  INTEGER(KIND=JPIM) :: NDLON      ! Maximum number of longitude points (near equator)
+  INTEGER(KIND=JPIM) :: NDGNH      ! Number of rows in northern hemisphere
+
+! Legendre transform dimensions
+  INTEGER(KIND=JPIM) :: NLEI1      ! R%NSMAX+4+MOD(R%NSMAX+4+1,2)
+  INTEGER(KIND=JPIM) :: NLEI3      ! R%NDGNH+MOD(R%NDGNH+2,2)
+  INTEGER(KIND=JPIM) :: NLED3      ! R%NTMAX+2+MOD(R%NTMAX+3,2)
+  INTEGER(KIND=JPIM) :: NLED4      ! R%NTMAX+3+MOD(R%NTMAX+4,2)
+END TYPE DIM_TYPE
+
+TYPE(DIM_TYPE),ALLOCATABLE,TARGET :: DIM_RESOL(:)
+TYPE(DIM_TYPE),POINTER     :: R
+
+END MODULE TPM_DIM
Index: LMDZ5/trunk/libf/phylmd/rrtm/tpm_distr.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/tpm_distr.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/tpm_distr.F90	(revision 1989)
@@ -0,0 +1,161 @@
+MODULE TPM_DISTR
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!*    Variables describing distributed memory parallelization
+
+INTEGER(KIND=JPIM) :: NPROC     ! Number of processors (NPRGPNS*NPRGPEW) 
+INTEGER(KIND=JPIM) :: NPRGPNS   ! No. of sets in N-S direction (grid-point space)
+INTEGER(KIND=JPIM) :: NPRGPEW   ! No. of sets in E-W direction (grid-point space)
+INTEGER(KIND=JPIM) :: NPRTRW    ! No. of sets in wave direction (spectral space)
+INTEGER(KIND=JPIM) :: NPRTRV    ! NPROC/NPRTRW
+INTEGER(KIND=JPIM) :: NPRTRNS   ! No. of sets in N-S direction (Fourier space)
+                                ! (always equal to NPRTRW)
+LOGICAL            :: LEQ_REGIONS ! TRUE - Use new eq_regions partitioning
+                                  ! FALSE- Use old NPRGPNS x NPRGPEW partitioning
+INTEGER(KIND=JPIM) :: MYPROC    ! My processor number
+INTEGER(KIND=JPIM) :: MYSETW    ! My set number in wave direction (spectral space) 
+INTEGER(KIND=JPIM) :: MYSETV    ! My set number in field direction(S.S and F.S)
+INTEGER(KIND=JPIM) :: NCOMBFLEN ! Size of communication buffer
+
+INTEGER(KIND=JPIM) :: MTAGLETR   ! Tag
+INTEGER(KIND=JPIM) :: MTAGML     ! Tag
+INTEGER(KIND=JPIM) :: MTAGLG     ! Tag
+INTEGER(KIND=JPIM) :: MTAGGL     ! Tag
+INTEGER(KIND=JPIM) :: MTAGPART   ! Tag
+INTEGER(KIND=JPIM) :: MTAGDISTSP ! Tag
+INTEGER(KIND=JPIM) :: MTAGLM     ! Tag
+INTEGER(KIND=JPIM) :: MTAGDISTGP ! Tag
+ 
+INTEGER(KIND=JPIM) ,ALLOCATABLE :: NPRCIDS(:) ! Array containing the process ids
+
+TYPE DISTR_TYPE
+LOGICAL   :: LSPLIT             ! TRUE - latitudes are shared between a-sets
+INTEGER(KIND=JPIM) :: NAPSETS   ! Number of apple sets at the poles. Default is zero.
+
+! SPECTRAL SPACE
+
+INTEGER(KIND=JPIM) :: NUMP      ! No. of spectral waves handled by this processor
+INTEGER(KIND=JPIM) :: NSPEC     ! No. of complex spectral coefficients (on this PE)
+INTEGER(KIND=JPIM) :: NSPEC2    ! 2*NSPEC
+INTEGER(KIND=JPIM) :: NSPEC2MX  ! maximun NSPEC2 among all PEs
+INTEGER(KIND=JPIM) :: NTPEC2
+INTEGER(KIND=JPIM) :: NUMTP
+
+
+
+INTEGER(KIND=JPIM) :: NSPOLEGL  ! No. of legendre polynomials on this PE
+INTEGER(KIND=JPIM) :: NLEI3D    ! (NLEI3-1)/NPRTRW+1
+
+INTEGER(KIND=JPIM) ,POINTER :: MYMS(:)    ! Wave numbers handled by this PE
+INTEGER(KIND=JPIM) ,POINTER :: NUMPP(:)   ! No. of wave numbers each wave set is
+                                 ! responsible for
+INTEGER(KIND=JPIM) ,POINTER :: NPOSSP(:)  ! Not needed in transform?
+INTEGER(KIND=JPIM) ,POINTER :: NPROCM(:)  ! Process that does the calc. for certain 
+                                 ! wavenumber M
+INTEGER(KIND=JPIM) ,POINTER :: NDIM0G(:)  ! Defines partitioning of global spectral
+                                 ! fields among PEs
+
+INTEGER(KIND=JPIM) ,POINTER :: NASM0(:)  ! Address in a spectral array of (m, n=m)
+INTEGER(KIND=JPIM) ,POINTER :: NATM0(:)  ! Same as NASM0 but for NTMAX
+INTEGER(KIND=JPIM) ,POINTER :: NALLMS(:) ! Wave numbers for all a-set concatenated
+                                ! together to give all wave numbers in a-set
+                                ! order. Used when global spectral norms 
+                                ! have to be gathered.
+INTEGER(KIND=JPIM) ,POINTER :: NPTRMS(:) ! Pointer to the first wave number of a given
+                                ! a-set in nallms array.
+
+
+! Legendre polynomials
+
+INTEGER(KIND=JPIM) ,POINTER :: NLATLS(:) ! First latitude for which each a-set calcul.
+INTEGER(KIND=JPIM) ,POINTER :: NLATLE(:) ! Last latitude for which each a-set calcul.
+
+INTEGER(KIND=JPIM) ,POINTER :: NPMT(:) ! Adress for legendre polynomial for
+                              ! given M (NTMAX)
+INTEGER(KIND=JPIM) ,POINTER :: NPMS(:) ! Adress for legendre polynomial for
+                              ! given M (NSMAX)
+INTEGER(KIND=JPIM) ,POINTER :: NPMG(:) ! Global version of NPMS
+
+! FOURIER SPACE
+
+INTEGER(KIND=JPIM) :: NDGL_FS ! Number of rows of latitudes for which this process is
+                     ! performing Fourier Space calculations
+
+INTEGER(KIND=JPIM) ,POINTER  :: NSTAGTF(:) ! Offset for specific latitude in 
+                                  ! Fourier/gridpoint buffer
+INTEGER(KIND=JPIM) :: NLENGTF ! Second dimension of Fourier/gridpoint buffer 
+                     ! (sum of (NLOEN+3) over local latitudes)
+
+INTEGER(KIND=JPIM) ,POINTER :: NULTPP(:) ! No of lats. for each wave_set  (F.S)
+INTEGER(KIND=JPIM) ,POINTER :: NPROCL(:) ! Process responsible for each lat. (F.S)
+INTEGER(KIND=JPIM) ,POINTER :: NPTRLS(:) ! Pointer to first lat. (F.S)
+
+INTEGER(KIND=JPIM) ,POINTER :: NSTAGT0B(:) ! Start adresses for segments within buffer
+                                  ! (according to processors to whom data 
+                                  ! is going to be sent) 
+INTEGER(KIND=JPIM) ,POINTER :: NSTAGT1B(:) 
+INTEGER(KIND=JPIM) ,POINTER :: NPNTGTB0(:,:)
+INTEGER(KIND=JPIM) ,POINTER :: NPNTGTB1(:,:)
+INTEGER(KIND=JPIM) ,POINTER :: NLTSFTB(:)  
+
+INTEGER(KIND=JPIM) ,POINTER :: NLTSGTB(:)
+INTEGER(KIND=JPIM) ,POINTER :: MSTABF(:)
+
+INTEGER(KIND=JPIM) :: NLENGT0B
+INTEGER(KIND=JPIM) :: NLENGT1B
+
+! GRIDPOINT SPACE
+
+INTEGER(KIND=JPIM) :: NDGL_GP ! D%NLSTLAT(MY_REGION_NS)-D%NFRSTLOFF
+INTEGER(KIND=JPIM) ,POINTER :: NFRSTLAT(:) ! First lat of each a-set 
+INTEGER(KIND=JPIM) ,POINTER :: NLSTLAT(:)  ! Last lat of each a-set 
+INTEGER(KIND=JPIM) :: NFRSTLOFF ! Offset for first lat of own a-set 
+                       ! i.e. NFRSTLOFF=NFRSTLAT(MYSETA)-1
+INTEGER(KIND=JPIM) ,POINTER :: NPTRLAT(:) ! Pointer to start of latitude 
+INTEGER(KIND=JPIM) ,POINTER :: NPTRFRSTLAT(:) ! Pointer to the first latitude of each 
+                                     ! a-set in NSTA and NONL arrays
+INTEGER(KIND=JPIM) ,POINTER :: NPTRLSTLAT(:) ! Pointer to the last latitude of each
+                                    ! a-set in NSTA and NONL arrays
+INTEGER(KIND=JPIM) :: NPTRFLOFF ! Offset for pointer to the first latitude of own a-set
+                       ! NSTA and NONL arrays, i.e. NPTRFRSTLAT(MYSETA)-1
+LOGICAL   ,POINTER :: LSPLITLAT(:) ! True if latitude is split over 2 a-sets
+
+!  NSTA(R%NDGL+NPRGPNS-1,NPRGPEW) :  Position of first grid column
+!             for the latitudes on a processor. The information is
+!             available for all processors. The b-sets are distinguished
+!             by the last dimension of NSTA(). The latitude band for
+!             each a-set is addressed by NPTRFRSTLAT(JASET),
+!             NPTRLSTLAT(JASET), and NPTRFLOFF=NPTRFRSTLAT(MYSETA) on
+!             this processors a-set. Each split latitude has two entries
+!             in NSTA(,:) which necessitates the rather complex
+!             addressing of NSTA(,:) and the overdimensioning of NSTA by
+!             NPRGPNS.
+!  NONL(R%NDGL+NPRGPNS-1,NPRGPEW)  :  Number of grid columns for
+!             the latitudes on a processor. Similar to NSTA() in data
+!             structure.
+INTEGER(KIND=JPIM) ,POINTER :: NSTA(:,:)
+INTEGER(KIND=JPIM) ,POINTER :: NONL(:,:)
+
+INTEGER(KIND=JPIM) :: NGPTOT   ! Total number of grid columns on this PE
+INTEGER(KIND=JPIM) :: NGPTOTG  ! Total number of grid columns on the Globe
+INTEGER(KIND=JPIM) :: NGPTOTMX ! Maximum number of grid columns on any of the PEs
+INTEGER(KIND=JPIM) ,POINTER :: NGPTOTL(:,:) ! Number of grid columns on each PE.
+
+END TYPE DISTR_TYPE
+
+TYPE(DISTR_TYPE),ALLOCATABLE,TARGET :: DISTR_RESOL(:)
+TYPE(DISTR_TYPE),POINTER     :: D
+
+END MODULE TPM_DISTR
+
+
+
+
+
+
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/tpm_fft.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/tpm_fft.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/tpm_fft.F90	(revision 1989)
@@ -0,0 +1,16 @@
+MODULE TPM_FFT
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+TYPE FFT_TYPE
+  REAL(KIND=JPRB)   ,POINTER :: TRIGS(:,:)
+  INTEGER(KIND=JPIM),POINTER :: NFAX(:,:)
+END TYPE FFT_TYPE
+
+TYPE(FFT_TYPE),ALLOCATABLE,TARGET :: FFT_RESOL(:)
+TYPE(FFT_TYPE),POINTER     :: T
+
+END MODULE TPM_FFT
Index: LMDZ5/trunk/libf/phylmd/rrtm/tpm_fields.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/tpm_fields.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/tpm_fields.F90	(revision 1989)
@@ -0,0 +1,25 @@
+MODULE TPM_FIELDS
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+TYPE FIELDS_TYPE
+REAL(KIND=JPRB) ,POINTER :: RPNM(:,:) ! Legendre polynomials
+REAL(KIND=JPRB) ,POINTER :: RMU(:)    ! sin(theta) for Gaussian latitudes
+REAL(KIND=JPRB) ,POINTER :: RW(:)     ! Weights of the Gaussian quadrature
+REAL(KIND=JPRB) ,POINTER :: R1MU2(:)  ! 1.-MU*MU, cos(theta)**2
+REAL(KIND=JPRB) ,POINTER :: RACTHE(:) ! 1./SQRT(R1MU2), 1/(cos(theta))
+
+REAL(KIND=JPRB) ,POINTER :: REPSNM(:) ! eps(n,m) used in the Legendre transforms
+REAL(KIND=JPRB) ,POINTER :: RN(:)     ! n (to avoid integer to real conversion)
+REAL(KIND=JPRB) ,POINTER :: RLAPIN(:) ! eigen-values of the inverse Laplace operator
+INTEGER(KIND=JPIM) ,POINTER :: NLTN(:) ! R%NTMAX+2-JN
+END TYPE FIELDS_TYPE
+
+TYPE(FIELDS_TYPE),ALLOCATABLE,TARGET :: FIELDS_RESOL(:)
+TYPE(FIELDS_TYPE),POINTER     :: F
+
+END MODULE TPM_FIELDS
Index: LMDZ5/trunk/libf/phylmd/rrtm/tpm_gen.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/tpm_gen.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/tpm_gen.F90	(revision 1989)
@@ -0,0 +1,25 @@
+MODULE TPM_GEN
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+INTEGER(KIND=JPIM) :: NOUT            ! Unit number for "standard" output
+INTEGER(KIND=JPIM) :: NERR            ! Unit number for error messages
+INTEGER(KIND=JPIM) :: NPRINTLEV       ! Printing level, 0=no print, 1=standard,2=debug
+
+INTEGER(KIND=JPIM) :: MSETUP0 = 0     ! Control of setup calls
+INTEGER(KIND=JPIM) :: NMAX_RESOL = 0  ! Maximum allowed number of resolutions
+INTEGER(KIND=JPIM) :: NCUR_RESOL = 0  ! Current resolution
+INTEGER(KIND=JPIM) :: NDEF_RESOL = 0  ! Number of defined resolutions
+INTEGER(KIND=JPIM) :: NPROMATR        ! Packet size for transform (in no of fields)
+                             ! NPROMATR=0 means do all fields together (dflt)
+
+LOGICAL   :: LALLOPERM       ! Allocate some shared data structures permanently
+LOGICAL   :: LIMP            ! true: use immediate message passing 
+LOGICAL   :: LIMP_NOOLAP     ! true: use immediate message passing 
+LOGICAL   :: LMPOFF          ! true: switch off message passing
+
+END MODULE TPM_GEN
Index: LMDZ5/trunk/libf/phylmd/rrtm/tpm_geometry.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/tpm_geometry.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/tpm_geometry.F90	(revision 1989)
@@ -0,0 +1,21 @@
+MODULE TPM_GEOMETRY
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+TYPE GEOM_TYPE
+INTEGER(KIND=JPIM),POINTER :: NLOEN(:) ! NUMBER OF POINTS ON A PARALLEL
+INTEGER(KIND=JPIM),POINTER :: NMEN(:)  ! ASSOCIATED CUT-OFF WAVE NUMBER
+INTEGER(KIND=JPIM),POINTER :: NDGLU(:) ! NUMBER OF HEMISPERIC LATITUDES
+!                                   FOR A GIVEN WAVE NUMBER M 
+
+LOGICAL :: LREDUCED_GRID
+LOGICAL :: LINEAR_GRID
+END TYPE GEOM_TYPE
+
+TYPE(GEOM_TYPE),ALLOCATABLE,TARGET :: GEOM_RESOL(:)
+TYPE(GEOM_TYPE),POINTER     :: G
+
+END MODULE TPM_GEOMETRY
Index: LMDZ5/trunk/libf/phylmd/rrtm/tpm_trans.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/tpm_trans.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/tpm_trans.F90	(revision 1989)
@@ -0,0 +1,44 @@
+MODULE TPM_TRANS
+
+! Module to contain variables "local" to a specific call to a transform
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!INTEGER_M :: NF_UV      ! Number of u-v fields (spectral/fourier space)
+!INTEGER_M :: NF_SCALARS ! Number of scalar fields (spectral/fourier space)
+!INTEGER_M :: NF_SCDERS  ! Number of fields for derivatives of scalars
+                        ! (inverse transform, spectral/fourier space)
+!INTEGER_M :: NF_OUT_LT  ! Number of fields that comes out of Inverse 
+                        ! Legendre transform
+INTEGER(KIND=JPIM) :: NF_SC2
+INTEGER(KIND=JPIM) :: NF_SC3A
+INTEGER(KIND=JPIM) :: NF_SC3B
+
+!LOGICAL   :: LUV        ! uv fields requested
+!LOGICAL   :: LSCALAR    ! scalar fields requested
+LOGICAL   :: LVORGP     ! vorticity requested
+LOGICAL   :: LDIVGP     ! divergence requested
+LOGICAL   :: LUVDER     ! E-W derivatives of U and V requested
+LOGICAL   :: LSCDERS    ! derivatives of scalar variables are req.
+
+!INTEGER_M :: NLEI2 ! 8*NF_UV + 2*NF_SCALARS + 2*NF_SCDERS (dimension in 
+                   ! inverse  Legendre transform)
+!INTEGER_M :: NLED2 ! 2*NF_FS (dimension in direct Legendre transform)
+
+!INTEGER_M :: NF_FS    ! Total number of fields in Fourier space
+
+!INTEGER_M :: NF_GP        ! Total number of field in grid-point space
+!INTEGER_M :: NF_UV_G      ! Global version of NF_UV (grid-point space)
+!INTEGER_M :: NF_SCALARS_G ! Global version of NF_SCALARS (grid-point space)
+
+REAL(KIND=JPRB), ALLOCATABLE :: FOUBUF_IN(:)  ! Fourier buffer 
+REAL(KIND=JPRB), ALLOCATABLE :: FOUBUF(:)     ! Fourier buffer
+
+INTEGER(KIND=JPIM) :: NPROMA  ! Blocking factor for gridpoint input/output
+INTEGER(KIND=JPIM) :: NGPBLKS ! Number of NPROMA blocks
+
+END MODULE TPM_TRANS
Index: LMDZ5/trunk/libf/phylmd/rrtm/trans_inq.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/trans_inq.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/trans_inq.F90	(revision 1989)
@@ -0,0 +1,377 @@
+SUBROUTINE TRANS_INQ(KRESOL,KSPEC,KSPEC2,KSPEC2G,KSPEC2MX,KNUMP,&
+                    &KGPTOT,KGPTOTG,KGPTOTMX,KGPTOTL,&
+                    &KMYMS,KASM0,KUMPP,KPOSSP,KPTRMS,KALLMS,KDIM0G,&
+                    &KFRSTLAT,KLSTLAT,KFRSTLOFF,KPTRLAT,&
+                    &KPTRFRSTLAT,KPTRLSTLAT,KPTRFLOFF,KSTA,KONL,&
+                    &KULTPP,KPTRLS,&
+                    &LDSPLITLAT,&
+                    &PMU,PGW,PRPNM,KLEI3,KSPOLEGL,KPMS)
+
+!**** *TRANS_INQ* - Extract information from the transform package
+
+!     Purpose.
+!     --------
+!     Interface routine for extracting information from the T.P.
+
+!**   Interface.
+!     ----------
+!     CALL TRANS_INQ(...)
+!     Explicit arguments : All arguments are optional.
+!     -------------------- 
+!     KRESOL   - resolution tag for which info is required ,default is the
+!                first defined resulution (input)
+
+!                   SPECTRAL SPACE
+!     KSPEC    - number of complex spectral coefficients on this PE
+!     KSPEC2   - 2*KSPEC 
+!     KSPEC2G  - global KSPEC2
+!     KSPEC2MX - maximun KSPEC2 among all PEs
+!     KNUMP    - Number of spectral waves handled by this PE
+!     KGPTOT   - Total number of grid columns on this PE
+!     KGPTOTG  - Total number of grid columns on the Globe
+!     KGPTOTMX - Maximum number of grid columns on any of the PEs
+!     KGPTOTL  - Number of grid columns one each PE (dimension N_REGIONS_NS:N_REGIONS_EW)
+!     KMYMS    - This PEs spectral zonal wavenumbers
+!     KASM0    - Address in a spectral array of (m, n=m)
+!     KUMPP    - No. of wave numbers each wave set is responsible for
+!     KPOSSP   - Defines partitioning of global spectral fields among PEs
+!     KPTRMS   - Pointer to the first wave number of a given a-set
+!     KALLMS   - Wave numbers for all wave-set concatenated together 
+!                to give all wave numbers in wave-set order
+!     KDIM0G   - Defines partitioning of global spectral fields among PEs
+
+!                 GRIDPOINT SPACE                  
+!     KFRSTLAT    - First latitude of each a-set in grid-point space
+!     KLSTTLAT    - Last latitude of each a-set in grid-point space
+!     KFRSTLOFF   - Offset for first lat of own a-set in grid-point space
+!     KPTRLAT     - Pointer to the start of each latitude
+!     KPTRFRSTLAT - Pointer to the first latitude of each a-set in 
+!                   NSTA and NONL arrays
+!     KPTRLSTLAT  - Pointer to the last latitude of each a-set in
+!                   NSTA and NONL arrays
+!     KPTRFLOFF   - Offset for pointer to the first latitude of own a-set
+!                   NSTA and NONL arrays, i.e. nptrfrstlat(myseta)-1
+!     KSTA        - Position of first grid column for the latitudes on a 
+!                   processor. The information is available for all processors.
+!                   The b-sets are distinguished by the last dimension of 
+!                   nsta().The latitude band for each a-set is addressed by 
+!                   nptrfrstlat(jaset),nptrlstlat(jaset), and 
+!                   nptrfloff=nptrfrstlat(myseta) on this processors a-set.
+!                   Each split latitude has two entries in nsta(,:) which 
+!                   necessitates the rather complex addressing of nsta(,:)
+!                   and the overdimensioning of nsta by N_REGIONS_NS.
+!     KONL        - Number of grid columns for the latitudes on a processor.
+!                   Similar to nsta() in data structure.
+!     LDSPLITLAT  - TRUE if latitude is split in grid point space over 
+!                   two a-sets
+
+!                FOURIER SPACE
+!     KULTPP   - number of latitudes for which each a-set is calculating 
+!                the FFT's.
+!     KPTRLS   - pointer to first global latitude of each a-set for which
+!                it performs the Fourier calculations
+
+!                 LEGENDRE
+!     PMU      - sin(Gaussian latitudes)
+!     PGW      - Gaussian weights
+!     PRPNM    - Legendre polynomials
+!     KLEI3    - First dimension of Legendre polynomials
+!     KSPOLEGL - Second dimension of Legendre polynomials
+!     KPMS     - Adress for legendre polynomial for given M (NSMAX)
+
+!     Method.
+!     -------
+
+!     Externals.  SET_RESOL - set resolution
+!     ----------  
+
+!     Author.
+!     -------
+!        Mats Hamrud *ECMWF*
+
+!     Modifications.
+!     --------------
+!        Original : 00-03-03
+!        M. Hortal : 2001-03-05 Dimensions of the Legendre polynomials
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+!ifndef INTERFACE
+
+USE TPM_GEN
+USE TPM_DIM
+USE TPM_DISTR
+USE TPM_GEOMETRY
+USE TPM_FIELDS
+
+USE SET_RESOL_MOD
+USE ABORT_TRANS_MOD
+USE EQ_REGIONS_MOD
+
+!endif INTERFACE
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN)  :: KRESOL
+
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KSPEC
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KSPEC2
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KSPEC2G
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KSPEC2MX
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KNUMP
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KGPTOT
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KGPTOTG
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KGPTOTMX
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KGPTOTL(:,:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KFRSTLOFF
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KPTRFLOFF
+
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KMYMS(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KASM0(0:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KUMPP(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KPOSSP(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KPTRMS(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KALLMS(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KDIM0G(0:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KFRSTLAT(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KLSTLAT(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KPTRLAT(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KPTRFRSTLAT(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KPTRLSTLAT(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KSTA(:,:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KONL(:,:)
+LOGICAL   ,OPTIONAL, INTENT(OUT) :: LDSPLITLAT(:)
+
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KULTPP(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KPTRLS(:)
+
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PMU(:)
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PGW(:)
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRPNM(:,:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KLEI3
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KSPOLEGL
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KPMS(0:)
+
+!ifndef INTERFACE
+
+INTEGER(KIND=JPIM) :: IU1,IU2
+!     ------------------------------------------------------------------
+
+
+! Set current resolution
+CALL SET_RESOL(KRESOL)
+
+IF(PRESENT(KSPEC))     KSPEC     = D%NSPEC
+IF(PRESENT(KSPEC2))    KSPEC2    = D%NSPEC2
+IF(PRESENT(KSPEC2G))   KSPEC2G   = R%NSPEC2_G
+IF(PRESENT(KSPEC2MX))  KSPEC2MX  = D%NSPEC2MX
+IF(PRESENT(KNUMP))     KNUMP     = D%NUMP
+IF(PRESENT(KGPTOT))    KGPTOT    = D%NGPTOT
+IF(PRESENT(KGPTOTG))   KGPTOTG   = D%NGPTOTG
+IF(PRESENT(KGPTOTMX))  KGPTOTMX  = D%NGPTOTMX
+IF(PRESENT(KFRSTLOFF)) KFRSTLOFF = D%NFRSTLOFF
+IF(PRESENT(KPTRFLOFF)) KPTRFLOFF = D%NPTRFLOFF
+
+IF(PRESENT(KGPTOTL)) THEN
+  IF(UBOUND(KGPTOTL,1) < N_REGIONS_NS) THEN
+    CALL ABORT_TRANS('TRANS_INQ: KGPTOTL DIM 1 TOO SMALL')
+  ELSEIF(UBOUND(KGPTOTL,2) <  N_REGIONS_EW) THEN
+    CALL ABORT_TRANS('TRANS_INQ: KGPTOTL DIM 2 TOO SMALL')
+  ELSE
+    KGPTOTL(1:N_REGIONS_NS,1:N_REGIONS_EW) = D%NGPTOTL(:,:)
+  ENDIF
+ENDIF
+
+IF(PRESENT(KMYMS)) THEN
+  IF(UBOUND(KMYMS,1) < D%NUMP) THEN
+    CALL ABORT_TRANS('TRANS_INQ: KMYMS TOO SMALL')
+  ELSE
+    KMYMS(1:D%NUMP) = D%MYMS(:)
+  ENDIF
+ENDIF
+
+IF(PRESENT(KASM0)) THEN
+  IF(UBOUND(KASM0,1) < R%NSMAX) THEN
+    CALL ABORT_TRANS('TRANS_INQ: KASM0 TOO SMALL')
+  ELSE
+    KASM0(0:R%NSMAX) = D%NASM0(:)
+  ENDIF
+ENDIF
+
+IF(PRESENT(KUMPP)) THEN
+  IF(UBOUND(KUMPP,1) < NPRTRW) THEN
+    CALL ABORT_TRANS('TRANS_INQ: KUMPP TOO SMALL')
+  ELSE
+    KUMPP(1:NPRTRW) = D%NUMPP(:)
+  ENDIF
+ENDIF
+
+IF(PRESENT(KPOSSP)) THEN
+  IF(UBOUND(KPOSSP,1) < NPRTRW+1) THEN
+    CALL ABORT_TRANS('TRANS_INQ: KPOSSP TOO SMALL')
+  ELSE
+    KPOSSP(1:NPRTRW+1) = D%NPOSSP(:)
+  ENDIF
+ENDIF
+
+IF(PRESENT(KPTRMS)) THEN
+  IF(UBOUND(KPTRMS,1) < NPRTRW) THEN
+    CALL ABORT_TRANS('TRANS_INQ: KPTRMS TOO SMALL')
+  ELSE
+    KPTRMS(1:NPRTRW) = D%NPTRMS(:)
+  ENDIF
+ENDIF
+
+IF(PRESENT(KALLMS)) THEN
+  IF(UBOUND(KALLMS,1) < R%NSMAX+1) THEN
+    CALL ABORT_TRANS('TRANS_INQ: KALLMS TOO SMALL')
+  ELSE
+    KALLMS(1:R%NSMAX+1) = D%NALLMS(:)
+  ENDIF
+ENDIF
+
+IF(PRESENT(KDIM0G)) THEN
+  IF(UBOUND(KDIM0G,1) < R%NSMAX) THEN
+    CALL ABORT_TRANS('TRANS_INQ: KDIM0G TOO SMALL')
+  ELSE
+    KDIM0G(0:R%NSMAX) = D%NDIM0G(0:R%NSMAX)
+  ENDIF
+ENDIF
+
+IF(PRESENT(KFRSTLAT)) THEN
+  IF(UBOUND(KFRSTLAT,1) < N_REGIONS_NS) THEN
+    CALL ABORT_TRANS('TRANS_INQ: KFRSTLAT TOO SMALL')
+  ELSE
+    KFRSTLAT(1:N_REGIONS_NS) = D%NFRSTLAT(:)
+  ENDIF
+ENDIF
+
+IF(PRESENT(KLSTLAT)) THEN
+  IF(UBOUND(KLSTLAT,1) < N_REGIONS_NS) THEN
+    CALL ABORT_TRANS('TRANS_INQ: KLSTLAT TOO SMALL')
+  ELSE
+    KLSTLAT(1:N_REGIONS_NS) = D%NLSTLAT(:)
+  ENDIF
+ENDIF
+
+IF(PRESENT(KPTRLAT)) THEN
+  IF(UBOUND(KPTRLAT,1) < R%NDGL) THEN
+    CALL ABORT_TRANS('TRANS_INQ: KPTRLAT TOO SMALL')
+  ELSE
+    KPTRLAT(1:R%NDGL) = D%NPTRLAT(:)
+  ENDIF
+ENDIF
+
+IF(PRESENT(KPTRFRSTLAT)) THEN
+  IF(UBOUND(KPTRFRSTLAT,1) < N_REGIONS_NS) THEN
+    CALL ABORT_TRANS('TRANS_INQ: KPTRFRSTLAT TOO SMALL')
+  ELSE
+    KPTRFRSTLAT(1:N_REGIONS_NS) = D%NPTRFRSTLAT(:)
+  ENDIF
+ENDIF
+
+IF(PRESENT(KPTRLSTLAT)) THEN
+  IF(UBOUND(KPTRLSTLAT,1) < N_REGIONS_NS) THEN
+    CALL ABORT_TRANS('TRANS_INQ: KPTRLSTLAT TOO SMALL')
+  ELSE
+    KPTRLSTLAT(1:N_REGIONS_NS) = D%NPTRLSTLAT(:)
+  ENDIF
+ENDIF
+
+IF(PRESENT(KSTA)) THEN
+  IF(UBOUND(KSTA,1) < R%NDGL+N_REGIONS_NS-1) THEN
+    CALL ABORT_TRANS('TRANS_INQ: KSTA DIM 1 TOO SMALL')
+  ELSEIF(UBOUND(KSTA,2) < N_REGIONS_EW) THEN
+    CALL ABORT_TRANS('TRANS_INQ: KSTA DIM 2 TOO SMALL')
+  ELSE
+    KSTA(1:R%NDGL+N_REGIONS_NS-1,1:N_REGIONS_EW) = D%NSTA(:,:)
+  ENDIF
+ENDIF
+
+IF(PRESENT(KONL)) THEN
+  IF(UBOUND(KONL,1) < R%NDGL+N_REGIONS_NS-1) THEN
+    CALL ABORT_TRANS('TRANS_INQ: KONL DIM 1 TOO SMALL')
+  ELSEIF(UBOUND(KONL,2) < N_REGIONS_EW) THEN
+    CALL ABORT_TRANS('TRANS_INQ: KONL DIM 2 TOO SMALL')
+  ELSE
+    KONL(1:R%NDGL+N_REGIONS_NS-1,1:N_REGIONS_EW) = D%NONL(:,:)
+  ENDIF
+ENDIF
+
+IF(PRESENT(LDSPLITLAT)) THEN
+  IF(UBOUND(LDSPLITLAT,1) < R%NDGL) THEN
+    CALL ABORT_TRANS('TRANS_INQ: LDSPLITLAT TOO SMALL')
+  ELSE
+    LDSPLITLAT(1:R%NDGL) = D%LSPLITLAT(:)
+  ENDIF
+ENDIF
+
+IF(PRESENT(KULTPP)) THEN
+  IF(UBOUND(KULTPP,1) < NPRTRNS) THEN
+    CALL ABORT_TRANS('TRANS_INQ: KULTPP TOO SMALL')
+  ELSE
+    KULTPP(1:NPRTRNS) = D%NULTPP(:)
+  ENDIF
+ENDIF
+
+IF(PRESENT(KPTRLS)) THEN
+  IF(UBOUND(KPTRLS,1) < NPRTRNS) THEN
+    CALL ABORT_TRANS('TRANS_INQ: KPTRLS TOO SMALL')
+  ELSE
+    KPTRLS(1:NPRTRNS) = D%NPTRLS(:)
+  ENDIF
+ENDIF
+
+IF(PRESENT(PMU)) THEN
+  IF(UBOUND(PMU,1) < R%NDGL) THEN
+    CALL ABORT_TRANS('TRANS_INQ: PMU TOO SMALL')
+  ELSE
+    PMU(1:R%NDGL) = F%RMU
+  ENDIF
+ENDIF
+
+IF(PRESENT(PGW)) THEN
+  IF(UBOUND(PGW,1) < R%NDGL) THEN
+    CALL ABORT_TRANS('TRANS_INQ: PGW TOO SMALL')
+  ELSE
+    PGW(1:R%NDGL) = F%RW
+  ENDIF
+ENDIF
+
+IF(PRESENT(PRPNM)) THEN
+  IU1 = UBOUND(PRPNM,1)
+  IU2 = UBOUND(PRPNM,2)
+  IF(IU1 < R%NDGNH) THEN
+    CALL ABORT_TRANS('TRANS_INQ:FIRST DIM. OF PRNM TOO SMALL')
+  ELSE
+    IU1 = MIN(IU1,R%NLEI3)
+    IU2 = MIN(IU2,D%NSPOLEGL)
+    PRPNM(1:IU1,1:IU2) = F%RPNM(1:IU1,1:IU2)
+  ENDIF
+ENDIF
+IF(PRESENT(KLEI3)) THEN
+  KLEI3=R%NLEI3
+ENDIF
+IF(PRESENT(KSPOLEGL)) THEN
+  KSPOLEGL=D%NSPOLEGL
+ENDIF
+IF(PRESENT(KPMS)) THEN
+  IF(UBOUND(KPMS,1) < R%NSMAX) THEN
+    CALL ABORT_TRANS('TRANS_INQ: KPMS TOO SMALL')
+  ELSE
+    KPMS(0:R%NSMAX) = D%NPMS(0:R%NSMAX)
+  ENDIF
+ENDIF
+!     ------------------------------------------------------------------
+
+!endif INTERFACE
+
+END SUBROUTINE TRANS_INQ
+
+
+
+
+
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/trans_inq.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/trans_inq.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/trans_inq.h	(revision 1989)
@@ -0,0 +1,151 @@
+SUBROUTINE TRANS_INQ(KRESOL,KSPEC,KSPEC2,KSPEC2G,KSPEC2MX,KNUMP,&
+                    &KGPTOT,KGPTOTG,KGPTOTMX,KGPTOTL,&
+                    &KMYMS,KASM0,KUMPP,KPOSSP,KPTRMS,KALLMS,KDIM0G,&
+                    &KFRSTLAT,KLSTLAT,KFRSTLOFF,KPTRLAT,&
+                    &KPTRFRSTLAT,KPTRLSTLAT,KPTRFLOFF,KSTA,KONL,&
+                    &KULTPP,KPTRLS,&
+                    &LDSPLITLAT,&
+                    &PMU,PGW,PRPNM,KLEI3,KSPOLEGL,KPMS)
+
+!**** *TRANS_INQ* - Extract information from the transform package
+
+!     Purpose.
+!     --------
+!     Interface routine for extracting information from the T.P.
+
+!**   Interface.
+!     ----------
+!     CALL TRANS_INQ(...)
+!     Explicit arguments : All arguments are optional.
+!     -------------------- 
+!     KRESOL   - resolution tag for which info is required ,default is the
+!                first defined resulution (input)
+
+!                   SPECTRAL SPACE
+!     KSPEC    - number of complex spectral coefficients on this PE
+!     KSPEC2   - 2*KSPEC 
+!     KSPEC2G  - global KSPEC2
+!     KSPEC2MX - maximun KSPEC2 among all PEs
+!     KNUMP    - Number of spectral waves handled by this PE
+!     KGPTOT   - Total number of grid columns on this PE
+!     KGPTOTG  - Total number of grid columns on the Globe
+!     KGPTOTMX - Maximum number of grid columns on any of the PEs
+!     KGPTOTL  - Number of grid columns one each PE (dimension NPRGPNS:NPRGPEW)
+!     KMYMS    - This PEs spectral zonal wavenumbers
+!     KASM0    - Address in a spectral array of (m, n=m)
+!     KUMPP    - No. of wave numbers each wave set is responsible for
+!     KPOSSP   - Defines partitioning of global spectral fields among PEs
+!     KPTRMS   - Pointer to the first wave number of a given a-set
+!     KALLMS   - Wave numbers for all wave-set concatenated together 
+!                to give all wave numbers in wave-set order
+!     KDIM0G   - Defines partitioning of global spectral fields among PEs
+
+!                 GRIDPOINT SPACE                  
+!     KFRSTLAT    - First latitude of each a-set in grid-point space
+!     KLSTTLAT    - Last latitude of each a-set in grid-point space
+!     KFRSTLOFF   - Offset for first lat of own a-set in grid-point space
+!     KPTRLAT     - Pointer to the start of each latitude
+!     KPTRFRSTLAT - Pointer to the first latitude of each a-set in 
+!                   NSTA and NONL arrays
+!     KPTRLSTLAT  - Pointer to the last latitude of each a-set in
+!                   NSTA and NONL arrays
+!     KPTRFLOFF   - Offset for pointer to the first latitude of own a-set
+!                   NSTA and NONL arrays, i.e. nptrfrstlat(myseta)-1
+!     KSTA        - Position of first grid column for the latitudes on a 
+!                   processor. The information is available for all processors.
+!                   The b-sets are distinguished by the last dimension of 
+!                   nsta().The latitude band for each a-set is addressed by 
+!                   nptrfrstlat(jaset),nptrlstlat(jaset), and 
+!                   nptrfloff=nptrfrstlat(myseta) on this processors a-set.
+!                   Each split latitude has two entries in nsta(,:) which 
+!                   necessitates the rather complex addressing of nsta(,:)
+!                   and the overdimensioning of nsta by nprgpns.
+!     KONL        - Number of grid columns for the latitudes on a processor.
+!                   Similar to nsta() in data structure.
+!     LDSPLITLAT  - TRUE if latitude is split in grid point space over 
+!                   two a-sets
+
+!                FOURIER SPACE
+!     KULTPP   - number of latitudes for which each a-set is calculating 
+!                the FFT's.
+!     KPTRLS   - pointer to first global latitude of each a-set for which
+!                it performs the Fourier calculations
+
+!                 LEGENDRE
+!     PMU      - sin(Gaussian latitudes)
+!     PGW      - Gaussian weights
+!     PRPNM    - Legendre polynomials
+!     KLEI3    - First dimension of Legendre polynomials
+!     KSPOLEGL - Second dimension of Legendre polynomials
+!     KPMS     - Adress for legendre polynomial for given M (NSMAX)
+
+!     Method.
+!     -------
+
+!     Externals.  SET_RESOL - set resolution
+!     ----------  
+
+!     Author.
+!     -------
+!        Mats Hamrud *ECMWF*
+
+!     Modifications.
+!     --------------
+!        Original : 00-03-03
+!        M. Hortal : 2001-03-05 Dimensions of the Legendre polynomials
+
+!     ------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+
+IMPLICIT NONE
+
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(IN)  :: KRESOL
+
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KSPEC
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KSPEC2
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KSPEC2G
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KSPEC2MX
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KNUMP
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KGPTOT
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KGPTOTG
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KGPTOTMX
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KGPTOTL(:,:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KFRSTLOFF
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KPTRFLOFF
+
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KMYMS(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KASM0(0:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KUMPP(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KPOSSP(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KPTRMS(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KALLMS(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KDIM0G(0:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KFRSTLAT(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KLSTLAT(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KPTRLAT(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KPTRFRSTLAT(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KPTRLSTLAT(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KSTA(:,:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KONL(:,:)
+LOGICAL   ,OPTIONAL, INTENT(OUT) :: LDSPLITLAT(:)
+
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KULTPP(:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KPTRLS(:)
+
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PMU(:)
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PGW(:)
+REAL(KIND=JPRB)    ,OPTIONAL, INTENT(OUT) :: PRPNM(:,:)
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KLEI3
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KSPOLEGL
+INTEGER(KIND=JPIM) ,OPTIONAL, INTENT(OUT) :: KPMS(0:)
+
+
+END SUBROUTINE TRANS_INQ
+
+
+
+
+
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/type_fads.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/type_fads.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/type_fads.F90	(revision 1989)
@@ -0,0 +1,70 @@
+MODULE TYPE_FADS
+
+! Purpose :
+! -------
+!    To define the Field Arpege Descriptors :
+!     - %CLNAME : ARPEGE field name
+!     - %NBITS  : number of bits to code in Arpege/Aladin file
+!                 (-1 : default, 0 : no packing, >0 : nb of bits)
+         
+! Interface :
+! ---------
+!    Empty.
+
+! External :
+! --------
+!    None.
+
+! Method :
+! ------
+
+! Reference :
+! ---------
+!    Arpege Aladin Files package
+
+! Author :
+! ------
+!    Ryad El Khatib *METEO-FRANCE*
+
+! Modifications :
+! -------------
+! Original : 2003-08-19
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+!        F.Bouyssel    10-Nov-2005 Change in second descriptor of FAD
+!-----------------------------------------------------------------------------
+
+USE PARKIND1  ,ONLY : JPIM ,   JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+IMPLICIT NONE
+SAVE
+
+PRIVATE
+PUBLIC FAD, YSUFAD
+
+TYPE FAD
+CHARACTER(LEN=16) :: CLNAME
+INTEGER(KIND=JPIM):: NBITS
+END TYPE FAD
+
+CONTAINS
+
+!-----------------------------------------------------------------------------
+
+TYPE(FAD) FUNCTION YSUFAD(CDNAME,KBITS)
+
+! Purpose :
+! -------
+!    To set default values to the type
+
+CHARACTER(LEN=*)  , INTENT(IN) :: CDNAME
+INTEGER(KIND=JPIM), INTENT(IN) :: KBITS
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+IF (LHOOK) CALL DR_HOOK('TYPE_FADS:YSUFAD',0,ZHOOK_HANDLE)
+YSUFAD%NBITS =KBITS
+YSUFAD%CLNAME=CDNAME
+IF (LHOOK) CALL DR_HOOK('TYPE_FADS:YSUFAD',1,ZHOOK_HANDLE)
+
+END FUNCTION YSUFAD
+
+END MODULE TYPE_FADS
Index: LMDZ5/trunk/libf/phylmd/rrtm/type_gfls.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/type_gfls.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/type_gfls.F90	(revision 1989)
@@ -0,0 +1,137 @@
+MODULE TYPE_GFLS
+
+USE PARKIND1  ,ONLY : JPIM ,JPRB   
+
+IMPLICIT NONE
+SAVE
+
+!-------------------------------------------------------------------------
+! Derived types for describing the GFL structure. The descriptors themselves
+! (YGFL and YGFLC) can be found in module yom_ygfl.F90.
+!-------------------------------------------------------------------------
+! Modifications:
+! 03/07/09 C. Fischer - add Arome/Aladin attributes
+! 03/10/01 C. Moussy  - add Arome/Aladin attributes coupling
+! 03/10/31 M. Tudor   - add physics tendencies for predictor-corrector
+! 05/10/10 J. Haseler - switch for I/O to trajectory structure
+! 2004-Nov F. Vana    - update of CSLINT attribute
+! 20-Feb-2005 Vivoda  - 3TL Eul PC scheme (GFLPC)
+ 
+TYPE TYPE_GFLD
+! Overall descriptor,dimensioning etc.
+INTEGER(KIND=JPIM) :: NUMFLDS          ! Number of GFL fields
+INTEGER(KIND=JPIM) :: NDERS            ! Number of horizontal derivatives fields
+INTEGER(KIND=JPIM) :: NUMSPFLDS        ! Number of spectrally represented GFL fields
+INTEGER(KIND=JPIM) :: NUMGPFLDS        ! Number of grid-point GFL fields
+INTEGER(KIND=JPIM) :: NUMFLDS9         ! Number of GFL fields in (t-dt) part
+INTEGER(KIND=JPIM) :: NUMFLDS1         ! Number of GFL fields in (t+dt) array
+INTEGER(KIND=JPIM) :: NUMSPFLDS1       ! Number of spectrally represented GFL fields (t+dt)
+INTEGER(KIND=JPIM) :: NUMFLDS5         ! Number of GFL fields (trajectory)
+INTEGER(KIND=JPIM) :: NUMFLDSPHY       ! Number of GFL fields (phys.)
+INTEGER(KIND=JPIM) :: NUMFLDS_SPL      ! Number of GFL fields (S.L. spline interpolation)
+INTEGER(KIND=JPIM) :: NUMFLDS_SL1      ! Number of GFL fields in S.L. buffer 1
+INTEGER(KIND=JPIM) :: NUMFLDSPC        ! Number of GFL fields (predictor/corrector)
+INTEGER(KIND=JPIM) :: NDIM             ! Dimension of main array holding GFL fields(GFL)
+INTEGER(KIND=JPIM) :: NUMFLDSPT        ! Number of GFL fields (phy. tend.)
+INTEGER(KIND=JPIM) :: NDIM0            ! Dimension of t0 part of GFL
+INTEGER(KIND=JPIM) :: NDIM9            ! Dimension of t-dt part of GFL
+INTEGER(KIND=JPIM) :: NDIM1            ! Dimension of t+dt array (GFLT1)
+INTEGER(KIND=JPIM) :: NDIM5            ! Dimension of traj. GFL array (GFL5)
+INTEGER(KIND=JPIM) :: NDIMSLP          ! Diminsion of S.L. phys. GFL array (GFLSLP)
+INTEGER(KIND=JPIM) :: NDIM_SPL         ! Dim. of arrays holding GFL fields (S.L.spline int.)
+INTEGER(KIND=JPIM) :: NDIMPT           ! Dimension of phy. tend. GFL array (GFLPT)
+INTEGER(KIND=JPIM) :: NDIMPC           ! Dimension of iterative scheme auxiliary array (GFLPC)
+
+END TYPE TYPE_GFLD
+
+TYPE TYPE_GFL_COMP ! Individual field descriptor
+
+CHARACTER(LEN=16) :: CNAME      ! ARPEGE field name 
+INTEGER(KIND=JPIM) :: IGRBCODE           ! GRIB code
+LOGICAL :: LADV                 ! Field advected or not
+INTEGER(KIND=JPIM) :: NREQIN    ! 1 if field requiered in input, 0 if not, -1 if initialised
+                                ! with a reference value REFVALI
+LOGICAL :: LREQOUT              ! T if field requiered in output
+LOGICAL :: LGPINGP              ! GP field input as GP
+LOGICAL :: LGP                  ! Field exists and of grid-point type
+LOGICAL :: LSP                  ! Field exists and of spectral type
+LOGICAL :: LCDERS               ! Derivatives required (spectral only)
+LOGICAL :: LACTIVE              ! Field in use
+LOGICAL :: LTHERMACT            ! Field thermodynamically active
+REAL(KIND=JPRB) :: R
+REAL(KIND=JPRB) :: RCP
+LOGICAL :: LT9                  ! Field in t-dt GFL
+LOGICAL :: LT1                  ! Field in t+dt GFL
+LOGICAL :: LT5                  ! Field in trajectory GFL
+LOGICAL :: LPHY                 ! Field in physics GFL
+LOGICAL :: LPT                  ! Field in PC phy. tend. GFL (GFLPT)
+LOGICAL :: LTRAJIO              ! Field written to and from trajectory structure
+LOGICAL :: LPC                  ! Field in predictor/corrector time stepping (GFLPC)
+REAL(KIND=JPRB) :: REFVALI      ! Reference value for init, used in case NREQIN==-1
+! LAM specific attributes (Arome/Aladin)
+LOGICAL :: LADJUST0             ! True if field is thermodynamically adjusted at t
+                                  ! (immediatly after inverse spectral transforms)
+LOGICAL :: LADJUST1             ! True if field is thermodynamically adjusted at t+dt
+                                  ! (after SL interpolations and NL residuals)
+INTEGER(KIND=JPIM) :: NCOUPLING ! 1 if field is coupled by Davies relaxation, 0 if not,
+                                  ! -1 if coupled with reference value for coupling REFVALC
+REAL(KIND=JPRB) :: REFVALC      ! Reference value for coupling, used in case NCOUPLING==-1
+LOGICAL :: LBIPER               ! True if field must be biperiodised inside the transforms
+! End LAM specific attributes (Arome/Aladin)
+CHARACTER(LEN=12) :: CSLINT     ! S.L interpolaion "type"
+INTEGER(KIND=JPIM) :: MP        ! Basic field "pointer"
+INTEGER(KIND=JPIM) :: MPL       ! zonal derivative "pointer"
+INTEGER(KIND=JPIM) :: MPM       ! Meridional derivative "pointer"
+INTEGER(KIND=JPIM) :: MP9       ! Basic field "pointer" t-dt
+INTEGER(KIND=JPIM) :: MP9_PH    ! Basic field "pointer" for Physics
+INTEGER(KIND=JPIM) :: MP1       ! Basic field "pointer" t+dt
+INTEGER(KIND=JPIM) :: MP5       ! Basic field "pointer" trajectory
+INTEGER(KIND=JPIM) :: MP5L      ! zonal derivative "pointer" trajectory
+INTEGER(KIND=JPIM) :: MP5M      ! Meridional derivative "pointer" trajectory
+INTEGER(KIND=JPIM) :: MPSLP     ! Basic field "pointer" physics
+INTEGER(KIND=JPIM) :: MPSP      ! Basic field "pointer" spectral space
+INTEGER(KIND=JPIM) :: MP_SPL    ! Basic field "pointer" spline interpolation
+INTEGER(KIND=JPIM) :: MP_SL1    ! Basic field "pointer" in SLBUF1
+INTEGER(KIND=JPIM) :: MP_SLX    ! Basic field "pointer" in SLBUF1 for CPG_PT
+INTEGER(KIND=JPIM) :: MPPT      ! Physics tendency "pointer"
+INTEGER(KIND=JPIM) :: MPPC      ! Predictor/corrector auxiliary array "pointer"
+
+TYPE(TYPE_GFL_COMP),POINTER :: PREVIOUS ! Pointer to previously def. field
+
+END TYPE TYPE_GFL_COMP
+
+TYPE TYPE_GFL_NAML ! Individual field descriptor for namelist input
+
+CHARACTER(LEN=16) :: CNAME      ! ARPEGE field name 
+INTEGER(KIND=JPIM) :: IGRBCODE  ! GRIB code
+INTEGER(KIND=JPIM) :: NREQIN    ! 1 if field required in input, 0 if not, -1 if initialised
+                                ! with a reference value REFVALI
+REAL(KIND=JPRB) :: REFVALI      ! Reference value for initialisation, used in case NREQIN==-1
+LOGICAL :: LREQOUT              ! T if field requiered in output
+LOGICAL :: LGPINGP              ! GP field input as GP
+LOGICAL :: LGP                  ! Field exists and of grid-point type
+LOGICAL :: LSP                  ! Field exists and of spectral type
+LOGICAL :: LCDERS               ! Derivatives required (spectral only)
+LOGICAL :: LT9                  ! Field in t-dt GFL
+LOGICAL :: LT1                  ! Field in t+dt GFL
+LOGICAL :: LT5                  ! Field in trajectory GFL
+LOGICAL :: LPHY                 ! Field with physics tendencies GFL
+LOGICAL :: LPT                  ! Field in PC physics tendency GFLPT
+LOGICAL :: LTRAJIO              ! Field written to and from trajectory structure
+LOGICAL :: LPC                  ! Field in predictor/corrector time stepping GFLPC
+LOGICAL :: LADV                 ! Field advected or not
+
+LOGICAL :: LQM                  ! quasi-monotonous interpolation for field
+LOGICAL :: LQMH                 ! quasi-monotonous interpolation in horizontal for field
+LOGICAL :: LSLHD                ! Semi-lagrangian horizontal diffusion used for fiels
+LOGICAL :: LRSPLINE             ! 12 points spline interpolation used for field
+LOGICAL :: LHV                  ! Hermite vertical interpolation used for field (only ozone sofar)
+LOGICAL :: LVSPLIP              ! vertical spline interpolation used for field (only ozone sofar)
+INTEGER(KIND=JPIM) :: NCOUPLING ! 1 if field is coupled by Davies relaxation, 0 if not,
+                                ! -1 if coupled with reference value for coupling REFVALC
+REAL(KIND=JPRB) :: REFVALC      ! Reference value for coupling, used in case 
+                                  ! NCOUPLING==-1
+END TYPE TYPE_GFL_NAML
+
+!-------------------------------------------------------------------------
+END MODULE TYPE_GFLS
Index: LMDZ5/trunk/libf/phylmd/rrtm/user_clock.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/user_clock.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/user_clock.F90	(revision 1989)
@@ -0,0 +1,76 @@
+SUBROUTINE USER_CLOCK(PELAPSED_TIME,PELAPSED_TIME_SINCE,PVECTOR_CP,PTOTAL_CP)
+
+!**** *USER_CLOCK* - interface to system dependent timer routines
+
+!     Purpose.
+!     --------
+!        Returns elapsed and CP from the start of execution.
+!        Elapsed time is made relative to the first call to USER_CLOCK.
+
+!**   Interface.
+!     ----------
+!        ZTIME=USER_CLOCK(PELAPSED_TIME,PELAPSED_TIME_SINCE,
+!                         PVECTOR_CP,PTOTAL_CP)
+
+!        Explicit arguments: (All are optional arguments)
+!                           PELAPSED_TIME=wall clock time (seconds)
+!                           PELAPSED_TIME_SINCE=wall clock time (seconds)
+!                             change from input value of this parameter
+!                           PVECTOR_CP=CP vector time  (seconds)
+!                           PTOTAL_CP=total CP time   (seconds)
+
+!     Author.
+!     -------
+!        D.Dent      *ECMWF*
+
+!     External References:
+!     -------------------
+
+!        TIMEF,CPTIME
+
+!     Modifications.
+!     --------------
+!        Original  : 97-09-25
+!     ----------------------------------------------------------
+
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+REAL(KIND=JPRB),INTENT(OUT) :: PELAPSED_TIME,PVECTOR_CP,PTOTAL_CP
+REAL(KIND=JPRB),INTENT(INOUT) :: PELAPSED_TIME_SINCE
+OPTIONAL            PELAPSED_TIME,PELAPSED_TIME_SINCE
+OPTIONAL            PVECTOR_CP,PTOTAL_CP
+REAL(KIND=JPRB)      :: ZVECTOR_CP,ZTOTAL_CP,ZWALL
+REAL(KIND=JPRB),EXTERNAL :: TIMEF
+
+
+! === END OF INTERFACE BLOCK ===
+IF(PRESENT(PELAPSED_TIME).OR. PRESENT(PELAPSED_TIME_SINCE)) THEN
+
+  ZWALL=TIMEF()
+!             TIMEF returns milliseconds since first call to TIMEF
+  IF(PRESENT(PELAPSED_TIME)) THEN
+    PELAPSED_TIME=ZWALL*1.0E-3_JPRB
+  ENDIF
+  IF(PRESENT(PELAPSED_TIME_SINCE)) THEN
+    PELAPSED_TIME_SINCE=ZWALL*1.0E-3_JPRB - PELAPSED_TIME_SINCE
+  ENDIF
+ENDIF
+
+IF( PRESENT(PVECTOR_CP) .OR. PRESENT(PTOTAL_CP) ) THEN
+  CALL CPTIME(ZVECTOR_CP,ZTOTAL_CP)
+ENDIF
+IF( PRESENT(PVECTOR_CP) ) THEN
+  PVECTOR_CP=ZVECTOR_CP
+ENDIF
+IF( PRESENT(PTOTAL_CP) ) THEN
+  PTOTAL_CP=ZTOTAL_CP
+ENDIF
+
+RETURN
+END SUBROUTINE USER_CLOCK
+
+
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/user_clock.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/user_clock.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/user_clock.h	(revision 1989)
@@ -0,0 +1,49 @@
+SUBROUTINE USER_CLOCK(PELAPSED_TIME,PELAPSED_TIME_SINCE,PVECTOR_CP,PTOTAL_CP)
+
+!**** *USER_CLOCK* - interface to system dependent timer routines
+
+!     Purpose.
+!     --------
+!        Returns elapsed and CP from the start of execution.
+!        Elapsed time is made relative to the first call to USER_CLOCK.
+
+!**   Interface.
+!     ----------
+!        ZTIME=USER_CLOCK(PELAPSED_TIME,PELAPSED_TIME_SINCE,
+!                         PVECTOR_CP,PTOTAL_CP)
+
+!        Explicit arguments: (All are optional arguments)
+!                           PELAPSED_TIME=wall clock time (seconds)
+!                           PELAPSED_TIME_SINCE=wall clock time (seconds)
+!                             change from input value of this parameter
+!                           PVECTOR_CP=CP vector time  (seconds)
+!                           PTOTAL_CP=total CP time   (seconds)
+
+!     Author.
+!     -------
+!        D.Dent      *ECMWF*
+
+!     External References:
+!     -------------------
+
+!        TIMEF,CPTIME
+
+!     Modifications.
+!     --------------
+!        Original  : 97-09-25
+!     ----------------------------------------------------------
+
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+REAL(KIND=JPRB),INTENT(OUT) :: PELAPSED_TIME,PVECTOR_CP,PTOTAL_CP
+REAL(KIND=JPRB),INTENT(INOUT) :: PELAPSED_TIME_SINCE
+OPTIONAL            PELAPSED_TIME,PELAPSED_TIME_SINCE
+OPTIONAL            PVECTOR_CP,PTOTAL_CP
+REAL(KIND=JPRB)      :: ZVECTOR_CP,ZTOTAL_CP,ZWALL
+REAL(KIND=JPRB),EXTERNAL :: TIMEF
+
+
+END SUBROUTINE USER_CLOCK
Index: LMDZ5/trunk/libf/phylmd/rrtm/val923.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/val923.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/val923.F90	(revision 1989)
@@ -0,0 +1,121 @@
+SUBROUTINE VAL923(LDNEW)
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
+
+USE YOMCLI   , ONLY : NTPMER   ,NTPGLA   ,NTPDES   ,NTPLAC   ,&
+ & SMASK    ,SMANQ    ,STHER    ,SALBN    ,SALBX    ,&
+ & SALBM    ,SALBG    ,SALBB    ,SALBD    ,SEMIN    ,&
+ & SEMIX    ,SEMIM    ,SEMIG    ,SEMIB    ,SEMID    ,&
+ & SDEPN    ,SDEPX    ,SDEPD    ,SARGN    ,SARGX    ,&
+ & SARGD    ,SSABN    ,SSABX    ,SSABD    ,SRSMN    ,&
+ & SRSMX    ,SRSMD    ,SZZ0N    ,SZZ0M    ,SZZ0B    ,&
+ & SZZ0U    ,SZZ0D  
+USE YOMLUN   , ONLY : NULOUT
+
+#ifdef DOC
+!**** *GEO923*
+
+!     PURPOSE.
+!     --------
+!      Compute the constants (YOMCLI) which are used by configuration 923.
+
+!     INTERFACE.
+!     ----------
+!      CALL VAL923(LDNEW)
+!        LDNEW = .FALSE. if old fields required
+!        Results in YOMCLI.
+
+!     AUTHORS.
+!     --------
+!      D. Giard 97-05-06
+
+!     MODIFICATIONS.
+!     --------------
+!      D. Giard   99-07-02 add values for desert and prints
+!      S. Kertesz 99-12-16 new type for lakes
+!        M.Hamrud      01-Oct-2003 CY28 Cleaning
+
+#endif
+
+IMPLICIT NONE
+
+LOGICAL           ,INTENT(IN)    :: LDNEW 
+REAL(KIND=JPRB) :: ZHOOK_HANDLE
+
+!  Threshold defining the mask
+IF (LHOOK) CALL DR_HOOK('VAL923',0,ZHOOK_HANDLE)
+SMASK= 0.5_JPRB
+!  Value for missing data + 1
+SMANQ=-9998._JPRB
+!  Land-use types for sea, ice-cap, desert, lakes
+NTPMER= 1
+NTPGLA= 2
+NTPDES= 3
+NTPLAC= 5
+!  Roughness length : minimum, sea, sea-ice, urban areas, desert
+SZZ0N= 0.001_JPRB
+SZZ0M= 0.001_JPRB
+SZZ0B= 0.001_JPRB
+SZZ0U= 2.500_JPRB
+SZZ0D= 0.001_JPRB
+!  Ration of thermal to kinetic roughness length
+STHER= 0.10_JPRB
+!  Albedo : minimum, maximum, sea, ice-cap, sea-ice, desert
+IF (LDNEW) THEN
+  SALBN= 0.05_JPRB
+  SALBX= 0.80_JPRB
+ELSE
+  SALBN= 0.07_JPRB
+  SALBX= 0.70_JPRB
+ENDIF
+SALBM= 0.07_JPRB
+SALBG= 0.75_JPRB
+SALBB= 0.65_JPRB
+SALBD= 0.10_JPRB
+!  Emissivity : minimum, maximum, sea, ice-cap, sea-ice, desert
+SEMIN= 0.90_JPRB
+SEMIX= 1.00_JPRB
+SEMIM= 0.96_JPRB
+SEMIG= 0.98_JPRB
+SEMIB= 0.97_JPRB
+SEMID= 0.943_JPRB
+!  Soil depth : minimum, maximum, desert
+SDEPN= 0.10_JPRB
+SDEPX= 8.00_JPRB
+SDEPD= 0.10_JPRB
+!  Percentage of clay : minimum, maximum, desert
+SARGN=  3._JPRB
+SARGX= 58._JPRB
+SARGD=  3._JPRB
+!  Percentage of sand : minimum, maximum, desert
+SSABN=  6._JPRB
+SSABX= 92._JPRB
+SSABD= 92._JPRB
+!  Minimum surface resistance : minimum, maximum, desert
+SRSMX=5000._JPRB
+SRSMN=   1.0_JPRB
+SRSMD=5000._JPRB
+
+WRITE(UNIT=NULOUT,FMT=111) SMASK,SMANQ,STHER,&
+ & NTPMER,NTPGLA,NTPDES,NTPLAC  
+WRITE(UNIT=NULOUT,FMT=112) SZZ0N,SZZ0M,SZZ0B,SZZ0U,SZZ0D
+WRITE(UNIT=NULOUT,FMT=113) SALBN,SALBX,SALBM,SALBG,SALBB,SALBD,&
+ & SEMIN,SEMIX,SEMIM,SEMIG,SEMIB,SEMID  
+WRITE(UNIT=NULOUT,FMT=114) SDEPN,SDEPX,SDEPD,SARGN,SARGX,SARGD,&
+ & SSABN,SSABX,SSABD,SRSMN,SRSMX,SRSMD  
+111 FORMAT(' COMMON YOMCLI',/,&
+ & ' SMASK=',F4.2,' SMANQ=',F6.0,' STHER=',F4.2,/&
+ & ' NTPMER=',I2,' NTPGLA=',I2,' NTPDES=',I2,' NTPLAC=',I2)  
+112 FORMAT(' LONGUEUR DE RUGOSITE :',/,&
+ & ' minimum    mer    banquise  villes   desert ',&
+ & /,5F9.3)  
+113 FORMAT(' ALBEDO ET EMISSIVITE :',/,&
+ & ' minimum  maximum    mer    glacier  banquise  desert ',&
+ & 2(/,6F9.3))  
+114 FORMAT(' PROFONDEUR, % ARGILE, % SABLE, RESIS. MIN. :',/,&
+ & ' minimum  maximum   desert ',&
+ & 4(/,3F9.3))  
+
+IF (LHOOK) CALL DR_HOOK('VAL923',1,ZHOOK_HANDLE)
+END SUBROUTINE VAL923
Index: LMDZ5/trunk/libf/phylmd/rrtm/val923.intfb.h
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/val923.intfb.h	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/val923.intfb.h	(revision 1989)
@@ -0,0 +1,5 @@
+INTERFACE
+SUBROUTINE VAL923(LDNEW)
+LOGICAL ,INTENT(IN) :: LDNEW
+END SUBROUTINE VAL923
+END INTERFACE
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoe_mcica.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoe_mcica.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoe_mcica.F90	(revision 1989)
@@ -0,0 +1,14 @@
+MODULE YOE_McICA
+
+USE PARKIND1  ,ONLY : JPIM, JPRB
+
+IMPLICIT NONE
+
+SAVE
+!------------------------------------------------------------------------------
+
+REAL(KIND=JPRB) :: XCW(1000,140)
+INTEGER(KIND=JPIM) :: NMcI1, NMcI2
+
+!------------------------------------------------------------------------------
+END MODULE YOE_McICA
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoe_tile_prop.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoe_tile_prop.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoe_tile_prop.F90	(revision 1989)
@@ -0,0 +1,21 @@
+MODULE YOE_TILE_PROP
+
+USE PARKIND1  ,ONLY : JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!       ----------------------------------------------------------------
+!PSEUDO HISTORICAL TESSEL QUANTITIES (INSTANTANEOUS) FOR EACH TILE
+
+!     M.Hamrud      E.C.M.W.F.    20 Apr 2005
+!     Moved out these arrays from GPPBUF     
+!       ----------------------------------------------------------------
+REAL(KIND=JPRB),ALLOCATABLE :: RUSTRTI(:,:,:) ! E-W  SURFACE STRESS 
+REAL(KIND=JPRB),ALLOCATABLE :: RVSTRTI(:,:,:) ! N-S  SURFACE STRESS 
+REAL(KIND=JPRB),ALLOCATABLE :: RAHFSTI(:,:,:) ! SURFACE SENSIBLE HEAT FLUX
+REAL(KIND=JPRB),ALLOCATABLE :: REVAPTI(:,:,:) ! EVAPORATION 
+REAL(KIND=JPRB),ALLOCATABLE :: RTSKTI (:,:,:) ! SKIN TEMPERATURE 
+
+END MODULE YOE_TILE_PROP
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoe_uvrad.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoe_uvrad.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoe_uvrad.F90	(revision 1989)
@@ -0,0 +1,25 @@
+MODULE YOE_UVRAD
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*    ** *YOE_UVRAD* - COEFFICIENTS FOR ULTRAVIOLET RADIATION PROCESSOR
+!     ------------------------------------------------------------------
+INTEGER(KIND=JPIM) :: NUV, NRADUV, NUVTIM
+INTEGER(KIND=JPIM) :: IPUV(3000), JCOP(3000), JUVLAM(3000)
+LOGICAL :: LUVPROC, LUVTDEP, LUVDBG
+
+REAL(KIND=JPRB) :: RK250(3000), RTUV1(3000), RTUV2(3000), RSUVB0(3000), RAYUVB(3000)
+REAL(KIND=JPRB) :: RASA(4), RASB(4), RASC(4), RASD(4), RASE(4), RASF(4)
+REAL(KIND=JPRB) :: RFA0(4), RFA1(4), RFB0(4), RFB1(4), RFB2(4), RFB3(4), &
+ & RFC0(4), RFC1(4), RFC2(4), RFC3(4), RFD0(4), RFD1(4), RFD2(4), RFD3(4)
+REAL(KIND=JPRB) :: RTAUVA(4,6), RPIUVA(4,6), RCGUVA(4,6)
+REAL(KIND=JPRB) :: RXPO(3), RXPL(3), RCIEAS(3000), RSUVB(3000), RUVLAM(3000)
+REAL(KIND=JPRB) :: RFCAER, RFCOZO, RMUZUV
+!     -----------------------------------------------------------------
+END MODULE YOE_UVRAD
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoeaeratm.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoeaeratm.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoeaeratm.F90	(revision 1989)
@@ -0,0 +1,48 @@
+MODULE YOEAERATM
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*    ** *YOEAERATM* - CONTROL PARAMETERS FOR AEROSOLS IN THE ATMOSPHERE
+!     ------------------------------------------------------------------
+
+INTEGER(KIND=JPIM) :: INDBG
+INTEGER(KIND=JPIM) :: NDD1, NSS1
+
+REAL(KIND=JPRB) :: RMFMIN
+REAL(KIND=JPRB) :: RMASSE(15)
+
+REAL(KIND=JPRB) :: REPSCAER
+
+LOGICAL :: LAERCLIMG, LAERCLIMZ, LAERCLIST, LAERDRYDP, LAERGBUD 
+LOGICAL :: LAERNGAT , LAERPRNT , LAERSCAV , LAERSEDIM, LAERSURF, LAER6SDIA
+
+!     ------------------------------------------------------------------
+! NDD1       : location of first bin for desert dust
+! NSS1       : location of first bin for sea-salt
+! RMFMIN     : minimum mass flux for convective aerosol transport
+! RMASSE     : Molar mass: N.B.: either g/mol or Avogadro number
+!
+! REPSCAER   : security on aerosol concentration: always >= 1.E-15
+!
+! LAERCLIMG  : .T. to start prognostic aerosols with geographical monthly 
+!                  mean climatology
+! LAERCLIMZ  : .T. to start prognostic aerosols with zonal annual mean 
+!                  climatology
+! LAERCLIST  : .T. to start prognostic aerosols with geographical monthly 
+!                  mean climatology for background stratospheric only
+! LAERDRYDP  : .T. dry deposition is active
+! LAERGBUD   : .T. "clean" global budget for aerosols
+! LAERNGAT   : .T. prevents negative aerosol concentrations
+! LAERPRNT   : .T. for on-line prints of aerosol physical processes (NSTEP<=1)
+! LAERSCAV   : .T. in-cloud and below cloud scavenging is active
+! LAERSEDIM  : .T. sedimentation is active
+! LAERSURF   : .T. if surface emissions
+! LAER6SDIA  : .T. if radiance diagnostics with 6S
+!     ------------------------------------------------------------------
+END MODULE YOEAERATM
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoeaerd.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoeaerd.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoeaerd.F90	(revision 1989)
@@ -0,0 +1,67 @@
+MODULE YOEAERD
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*     *YOEAERD* SPECTRAL DISTRIBUTION OF AEROSOLS
+!     ------------------------------------------------------------------
+
+REAL(KIND=JPRB),ALLOCATABLE:: CVDAES(:)
+REAL(KIND=JPRB),ALLOCATABLE:: CVDAEL(:)
+REAL(KIND=JPRB),ALLOCATABLE:: CVDAEU(:)
+REAL(KIND=JPRB),ALLOCATABLE:: CVDAED(:)
+
+REAL(KIND=JPRB) :: RAESC(66)
+REAL(KIND=JPRB) :: RAESS(55)
+REAL(KIND=JPRB) :: RAELC(66)
+REAL(KIND=JPRB) :: RAELS(55)
+REAL(KIND=JPRB) :: RAEUC(66)
+REAL(KIND=JPRB) :: RAEUS(55)
+REAL(KIND=JPRB) :: RAEDC(66)
+REAL(KIND=JPRB) :: RAEDS(55)
+
+REAL(KIND=JPRB) :: RCAEOPS
+REAL(KIND=JPRB) :: RCAEOPL
+REAL(KIND=JPRB) :: RCAEOPU
+REAL(KIND=JPRB) :: RCAEOPD
+REAL(KIND=JPRB) :: RCTRBGA
+REAL(KIND=JPRB) :: RCVOBGA
+REAL(KIND=JPRB) :: RCSTBGA
+REAL(KIND=JPRB) :: RCTRPT
+REAL(KIND=JPRB) :: RCAEADK(3)
+REAL(KIND=JPRB) :: RCAEADM
+REAL(KIND=JPRB) :: RCAEROS
+
+!*     *YOEAERD* SPECTRAL DISTRIBUTION OF AEROSOLS.
+!                     (TRIANGULAR *T10* TRUNCATION FOR AEROSOLS).
+
+!     R.G AND M.J        E.C.M.W.F.     29/11/82.
+!     J.-J. MORCRETTE    E.C.M.W.F.     92/09/24  Adaptation to IFS
+
+!      NAME     TYPE      PURPOSE
+!      ----     ----      -------
+
+!     *CAES_*   REAL      *REFERS TO *SEA AEROSOLS.
+!     *CAEL_*   REAL      *REFERS TO *LAND AEROSOLS.
+!     *CAEU_*   REAL      *REFERS TO *URBAN AEROSOLS.
+!     *CAED_*   REAL      *REFERS TO *DESERT AEROSOLS.
+!     *C___C*   REAL      *REFERS TO *COS COMPONENT.
+!     *C___S*   REAL      *REFERS TO *SIN COMPONENT.
+!     *CAEOP_*  REAL      *CONSTANTS USED FOR AEROSOL COMPUTATIONS.
+!     *C___S*   REAL      *REFERS TO *SEA AEROSOLS.
+!     *C___L*   REAL      *REFERS TO *LAND AEROSOLS.
+!     *C___U*   REAL      *REFERS TO *URBAN AEROSOLS.
+!     *C___D*   REAL      *REFERS TO *DESERT AEROSOLS.
+!     *C__BGA*  REAL      *CONSTANTS USED FOR AEROSOL COMPUTATIONS.
+!     *CVDAE_*  REAL      *CONSTANTS USED FOR AEROSOL COMPUTATIONS.(NFLEVG+1)
+!     *RCTRPT*   REAL      *CONSTANTS USED FOR AEROSOL COMPUTATIONS.
+!     *RCAEADK*  REAL      *CONSTANTS USED FOR AEROSOL COMPUTATIONS.
+!     *RCAEADM*  REAL      *CONSTANTS USED FOR AEROSOL COMPUTATIONS.
+!     *RCAEROS*  REAL      *BACKGROUND VALUE IN ABSENCE OF AEROSOLS.
+
+!     ------------------------------------------------------------------
+END MODULE YOEAERD
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoeaerop.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoeaerop.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoeaerop.F90	(revision 1989)
@@ -0,0 +1,34 @@
+MODULE YOEAEROP
+
+USE PARKIND1  ,ONLY : JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*    ** *YOEAEROP* - OPTICAL PROPERTIES FOR PROGNOSTIC AEROSOLS
+!     ------------------------------------------------------------------
+
+REAL(KIND=JPRB) :: ALF_BC(16)     , ASY_BC(16)     , OMG_BC(16)
+REAL(KIND=JPRB) :: ALF_DD(3,16)   , ASY_DD(3,16)   , OMG_DD(3,16)
+REAL(KIND=JPRB) :: ALF_FA(16)     , ASY_FA(16)     , OMG_FA(16)
+REAL(KIND=JPRB) :: ALF_OM(12,16)  , ASY_OM(12,16)  , OMG_OM(12,16)
+REAL(KIND=JPRB) :: ALF_SS(12,16,3), ASY_SS(12,16,3), OMG_SS(12,16,3)
+REAL(KIND=JPRB) :: ALF_SU(12,16)  , ASY_SU(12,16)  , OMG_SU(12,16)
+
+!     ------------------------------------------------------------------
+! 3 refers to 3 bins, 16 to 16 SW channel radiances, 12 to 12 reference RH
+! BC is for black carbon
+! DD is for desert dust
+! FA is fort flying ash
+! OM is for organic matter
+! SS is for sea-salt
+! SU is for sulfate
+
+! ALF is alpha , the mass extinction coefficient   in m2/g
+! ASY is g     , the assymetry factor		     ND
+! OMG is pizero, the single scattering albedo	     ND
+!     ------------------------------------------------------------------
+END MODULE YOEAEROP
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoeaersnk.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoeaersnk.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoeaersnk.F90	(revision 1989)
@@ -0,0 +1,61 @@
+MODULE YOEAERSNK
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*    ** *YOEAERSNK* - CONTROL OPTIONS FOR AEROSOLS' SINKS
+!     ------------------------------------------------------------------
+REAL(KIND=JPRB) :: R_R, R_S
+REAL(KIND=JPRB) :: RALPHAR(15), RALPHAS(15)
+REAL(KIND=JPRB) :: RFRBC(2)
+REAL(KIND=JPRB) :: RFRIF 
+REAL(KIND=JPRB) :: RFRDD(3), RFRSS(3) 
+REAL(KIND=JPRB) :: RFROM(2) 
+REAL(KIND=JPRB) :: RFRSO4
+REAL(KIND=JPRB) :: RFRAER, RFRGAS 
+
+INTEGER(KIND=JPIM) :: NBRH
+REAL(KIND=JPRB) :: RRHMAX, RRHTAB(12), RRHO_SS(12), RSSGROW(12)
+REAL(KIND=JPRB) :: RMMD_SS(3)
+REAL(KIND=JPRB) :: RMMD_DD(3), RRHO_DD(3)
+REAL(KIND=JPRB) :: RHO_WAT, RHO_ICE
+
+REAL(KIND=JPRB) :: RVDPOCE(15), RVDPSIC(15), RVDPLND(15), RVDPLIC(15)
+REAL(KIND=JPRB) :: RVSEDOCE(15),RVSEDSIC(15),RVSEDLND(15),RVSEDLIC(15)
+!     ------------------------------------------------------------------
+! R_R        : mean radius for rain drops (m)
+! R_S        : mean radius for snow crystals (m)
+! RALPHAR    : impaction coefficients for rain
+! RALPHAS    : IMPACTION coefficients for snow
+! dissolution constants
+! RFRBCn     : for black carbon (BC1: hydrophobic, BC2: hydrophylic)
+! RFRDDn     : for dust     (3 bins: 0.03 - 0.55 - 0.9 - 20 um)
+! RFRIF      : for inorganic fraction (i.e., fly-ash)
+! RFROMn     : for organic matter (OM1: hydrophobic, OM2: hydrophylic)
+! RFRSSn     : for sea-salt (3 bins: 0.03 - 0.5 - 5 - 20 um)
+
+! re-evaporation constants
+! RFRAER     : for aerosols
+! RFRGAS     : for gases
+
+! RRHMAX     : 
+! RRHTAB     : 
+
+! dry deposition velocity
+! RVDPOCE    :
+! RVDPSIC    :
+! RVDPLND    :
+! RVDPLIC    :
+
+! sedimentation (gravitational settling) velocity
+! RVSEDOCE   : for ocean
+! RVSEDSIC   :
+! RVSEDLND   :
+! RVSEDLIC   :
+!     -----------------------------------------------------------------
+END MODULE YOEAERSNK
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoeaersrc.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoeaersrc.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoeaersrc.F90	(revision 1989)
@@ -0,0 +1,47 @@
+MODULE YOEAERSRC
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*    ** *YOEAERSRC* - CONTROL OPTIONS FOR AEROSOLS' SOURCE
+!     ------------------------------------------------------------------
+INTEGER(KIND=JPIM) :: NMAXTAER
+INTEGER(KIND=JPIM) :: NTAER
+INTEGER(KIND=JPIM) :: NBINAER(9)
+INTEGER(KIND=JPIM) :: NINDAER(15), JKTYP(15), JKBIN(15)
+INTEGER(KIND=JPIM) :: NTYPAER(9)
+INTEGER(KIND=JPIM) :: NDDUST
+
+LOGICAL :: LEPAERO, LAEREXTR
+
+REAL(KIND=JPRB) :: RGELAV, RGEMUV, RDGLAV, RDGMUV
+REAL(KIND=JPRB) :: RCLONV, RSLONV, RDCLONV, RDSLONV
+REAL(KIND=JPRB) :: RLATVOL,RLONVOL
+
+REAL(KIND=JPRB) :: RSSFLX(3)
+
+!     ------------------------------------------------------------------
+! MMAXTAER   : MAXIMUM TOTAL NUMBER OF AEROSOLS
+! NTAER      : TOTAL NUMBER OF AEROSOLS
+! NTYPAER( ) : NBINAER( )
+!        (1) :         3 FOR SEA-SALT 
+!        (2) :         3 FOR DESERT DUST
+!        (3) :         2 FOR ORGANIC MATTERS
+!        (4) :         2 FOR BLACK CARBON
+!        (5) :         1 FOR SULFATE
+!        (6) :         1 FOR FLY ASH
+!        (7) :         1 FOR PSEUDO-PROGNOSTIC STRATOSPHERIC AEROSOLS
+!        (8) :         1 FOR PROGNOSTIC STRATOSPHERIC AEROSOLS
+!        (9) :         1 FOR VOLCANIC AEROSOLS
+
+! RSSFLX     : sea salt flux for 3-size bins (in mg m-2 s-1) for a 1 m s-1
+!              wind speed, at 10 m height and 80% RH 
+! Rlat/lonVOL: LAT/LON of a possible volcanic eruption
+! JDDUST     : 1 =LSCE, 2 =based on MODIS
+!     ------------------------------------------------------------------
+END MODULE YOEAERSRC
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoecld.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoecld.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoecld.F90	(revision 1989)
@@ -0,0 +1,72 @@
+MODULE YOECLD
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOECLD* - CONTROL PARAMETERS FOR DIAGNOSTIC CLOUDS
+!     -----------------------------------------------------------------
+
+REAL(KIND=JPRB),ALLOCATABLE:: CETA(:)
+
+REAL(KIND=JPRB) :: RANVA
+REAL(KIND=JPRB) :: RANVB
+REAL(KIND=JPRB) :: RANVH
+REAL(KIND=JPRB) :: RCCA
+REAL(KIND=JPRB) :: RCCB
+REAL(KIND=JPRB) :: RCCC
+REAL(KIND=JPRB) :: RCFCT
+REAL(KIND=JPRB) :: RCLWMR
+REAL(KIND=JPRB) :: RCSCAL
+REAL(KIND=JPRB) :: RETAHB
+REAL(KIND=JPRB) :: RETAMB
+REAL(KIND=JPRB) :: RLOIA
+REAL(KIND=JPRB) :: RLOIB
+REAL(KIND=JPRB) :: RLOIC
+REAL(KIND=JPRB) :: RLOID
+REAL(KIND=JPRB) :: RLONIA
+REAL(KIND=JPRB) :: RLONIB
+REAL(KIND=JPRB) :: RRHH
+REAL(KIND=JPRB) :: RRHL
+REAL(KIND=JPRB) :: RRHM
+REAL(KIND=JPRB) :: RGAMMAS
+REAL(KIND=JPRB) :: REPSCR
+REAL(KIND=JPRB) :: REPSEC
+LOGICAL :: LOMEGA
+
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----  :  ----   : ---------------------------------------------------
+!  RANVA :  REAL     COEFFICIENT FOR ANVIL CLOUDS
+!  RANVB :  REAL     COEFFICIENT FOR ANVIL CLOUDS
+!  RANVH :  REAL     MINIMUM HIGH CLOUD COVER FOR ANVIL CLOUDS
+!  RCCA  :  REAL     COEFFICIENT FOR DIAGNOSTIC OF CONVECTIVE CLOUD
+!  RCCB  :  REAL     COEFFICIENT FOR DIAGNOSTIC OF CONVECTIVE CLOUD
+!  RCCC  :  REAL     MAXIMUM COVER BY CONVECTIVE CLOUD
+!  RCFCT :  REAL     WEIGHTING FACTOR FOR CONVECTIVE CLOUD TOWER
+!  RCLWMR:  REAL     LIQUID WATER MIXING RATIO FOR CONVECTIVE CLOUD
+!  RCSCAL:  REAL     SCALING FACTOR FOR CONVECTIVE RAIN
+!  CETA(NFLEVG) REAL  MODEL REFERENCE ETA-LEVEL
+!  RETAHB:  REAL     ETA-LEVEL LIMIT FOR HIGH CLOUDS
+!  RETAMB:  REAL     ETA-LEVEL LIMIT FOR MEDIUM CLOUDS
+!  RLOIA :  REAL     COEFFICIENT FOR LOW CLOUD WHEN NO INVERSION
+!  RLOIB :  REAL     COEFFICIENT FOR LOW CLOUD WHEN INVERSION
+!  RLOIC :  REAL     COEFFICIENT FOR LOW CLOUD WHEN INVERSION
+!  RLOID :  REAL     COEFFICIENT FOR LOW CLOUD WHEN INVERSION
+!  RLONIA:  REAL     COEFFICIENT FOR LOW CLOUD WHEN INVERSION
+!  RLONIB:  REAL     COEFFICIENT FOR LOW CLOUD WHEN NO INVERSION
+!  RRHH  :  REAL     CRITICAL RELATIVE HUMIDITY FOR HIGH CLOUDS
+!  RRHL  :  REAL     CRITICAL RELATIVE HUMIDITY FOR LOW CLOUDS
+!  RRHM  :  REAL     CRITICAL RELATIVE HUMIDITY FOR MEDIUM CLOUDS
+!  GAMMAS:  REAL     PROPORTIONALITY FACTOR FOR LIQUID WATER CONTENT
+!  REPSCR:  REAL     MINIMUM CONVECTIVE PRECIPITATION (SECURITY FACTOR)
+!  REPSEC:  REAL     MINIMUM HORIZONTAL CLOUD COVER (SECURITY FACTOR)
+!  LOMEGA:  LOGICAL  SWITCH FOR OMEGA-FILTER ON MIDDLE CLOUD
+!     ------------------------------------------------------------------
+END MODULE YOECLD
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoeclop.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoeclop.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoeclop.F90	(revision 1989)
@@ -0,0 +1,85 @@
+MODULE YOECLOP
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!     * YOECLOP* PARAMETERS FOR CLOUD OPTICAL PROPERTIES
+!     ------------------------------------------------------------------
+
+REAL(KIND=JPRB) :: RYFWCA(4)
+REAL(KIND=JPRB) :: RYFWCB(4)
+REAL(KIND=JPRB) :: RYFWCC(4)
+REAL(KIND=JPRB) :: RYFWCD(4)
+REAL(KIND=JPRB) :: RYFWCE(4)
+REAL(KIND=JPRB) :: RYFWCF(4)
+REAL(KIND=JPRB) :: REBCUA(4)
+REAL(KIND=JPRB) :: REBCUB(4)
+REAL(KIND=JPRB) :: REBCUC(4)
+REAL(KIND=JPRB) :: REBCUD(4)
+REAL(KIND=JPRB) :: REBCUE(4)
+REAL(KIND=JPRB) :: REBCUF(4)
+REAL(KIND=JPRB) :: RASWCA(4)
+REAL(KIND=JPRB) :: RASWCB(4)
+REAL(KIND=JPRB) :: RASWCC(4)
+REAL(KIND=JPRB) :: RASWCD(4)
+REAL(KIND=JPRB) :: RASWCE(4)
+REAL(KIND=JPRB) :: RASWCF(4)
+REAL(KIND=JPRB) :: REBCUG
+REAL(KIND=JPRB) :: REBCUH
+REAL(KIND=JPRB) :: REBCUI(6)
+REAL(KIND=JPRB) :: REBCUJ(6)
+REAL(KIND=JPRB) :: REFFIA
+REAL(KIND=JPRB) :: REFFIB
+REAL(KIND=JPRB) :: RTIW
+REAL(KIND=JPRB) :: RRIW
+
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----  :  ----   : ---------------------------------------------------
+!*    FOUQUART (1987) WATER CLOUD OPTICAL PROPERTIES
+
+! RYFWCA :  REAL   : C1 IN OPTICAL THICKNESS FORMULA
+! RYFWCB :  REAL   : C2 IN OPTICAL THICKNESS FORMULA
+! RYFWCC :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
+! RYFWCD :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
+! RYFWCE :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
+! RYFWCF :  REAL   : ASSYMETRY FACTOR
+
+!*    SLINGO (1989) WATER CLOUD OPTICAL PROPERTIES
+
+! RASWCA :  REAL   : C1 IN OPTICAL THICKNESS FORMULA
+! RASWCB :  REAL   : C2 IN OPTICAL THICKNESS FORMULA
+! RASWCC :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
+! RASWCD :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
+! RASWCE :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
+! RASWCF :  REAL   : ASSYMETRY FACTOR
+
+!*    ICE CLOUD OPTICAL PROPERTIES DERIVED FROM EBERT-CURRY (1992)
+
+! REBCUA :  REAL   : C1 IN OPTICAL THICKNESS FORMULA
+! REBCUB :  REAL   : C2 IN OPTICAL THICKNESS FORMULA
+! REBCUC :  REAL   : 1-C3  IN SINGLE SCATTERING ALBEDO FORMULA
+! REBCUD :  REAL   : C4 IN SINGLE SCATTERING ALBEDO FORMULA
+! REBCUE :  REAL   : C5 IN ASSYMETRY FACTOR FORMULA
+! REBCUF :  REAL   : C6 IN ASSYMETRY FACTOR FORMULA
+! REBCUG :  REAL   : C7 IN MASS ABSORPTION COEFFICIENT FORMULA
+! REBCUH :  REAL   : C8 IN MASS ABSORPTION COEFFICIENT FORMULA
+! REBCUI :  REAL   : C7 IN LW MASS ABSORPTION COEFFICIENT FORMULA
+! REBCUJ :  REAL   : C8 IN LW MASS ABSORPTION COEFFICIENT FORMULA
+
+! REFFIA :  REAL   : C9  IN EFFECTIVE RADIUS FORMULA
+! REFFIB :  REAL   : C10 IN EFFECTIVE RADIUS FORMULA
+
+!*    TRANSITION BETWEEN LIQUID AND SOLID WATER
+
+! RTIW   :  REAL   : TEMPERATURE THRESHOLD
+! RRIW   :  REAL   : TRANSITION RANGE
+!     -----------------------------------------------------------------
+END MODULE YOECLOP
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoecnd.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoecnd.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoecnd.F90	(revision 1989)
@@ -0,0 +1,25 @@
+MODULE YOECND
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+REAL(KIND=JPRB),ALLOCATABLE:: CEVAPCU(:)
+
+REAL(KIND=JPRB) :: REPFLM
+REAL(KIND=JPRB) :: REPFLS
+REAL(KIND=JPRB) :: REPQMI
+
+!     -----------------------------------------------------------------
+!*    CONTROL PARAMETERS FOR MOIST PROCESSES
+
+! CEVAPCU(NFLEVG):
+! REPFLM :  Minimum flux to avoid zero division in ice proportion
+!           computations
+! REPFLS :  Square-root of previous flux
+! REPQMI :  Minimum specific humidity (security within QNEGAT)
+!     -----------------------------------------------------------------
+END MODULE YOECND
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoedbug.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoedbug.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoedbug.F90	(revision 1989)
@@ -0,0 +1,15 @@
+MODULE YOEDBUG
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -------------------------------------------------
+!*    ** *YOEDBUG* - CONTROL OPTIONS FOR DEBUGGING HELP
+!     -------------------------------------------------
+INTEGER(KIND=JPIM) :: KSTPDBG(3)
+!     ------------------------------------------------------------------
+END MODULE YOEDBUG
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoelw.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoelw.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoelw.F90	(revision 1989)
@@ -0,0 +1,81 @@
+MODULE YOELW
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*    ** *YOELW* - COEFFICIENTS OF THE LONGWAVE RADIATION TRANSFER
+!     ------------------------------------------------------------------
+
+INTEGER(KIND=JPIM) :: MXIXT
+INTEGER(KIND=JPIM) :: NSIL
+INTEGER(KIND=JPIM) :: NIPD
+INTEGER(KIND=JPIM) :: NIPD2
+INTEGER(KIND=JPIM) :: NTR
+INTEGER(KIND=JPIM) :: NTRA
+INTEGER(KIND=JPIM) :: NUA
+INTEGER(KIND=JPIM) :: NG1
+INTEGER(KIND=JPIM) :: NG1P1
+REAL(KIND=JPRB) :: ALWT(8,3)
+REAL(KIND=JPRB) :: BLWT(8,3)
+REAL(KIND=JPRB) :: PDGA(11,16,3)
+REAL(KIND=JPRB) :: PDGB(11,16,3)
+REAL(KIND=JPRB) :: RPTYPE(4)
+REAL(KIND=JPRB) :: RETYPE(4)
+REAL(KIND=JPRB) :: RNTNU(4)
+REAL(KIND=JPRB) :: RO1H
+REAL(KIND=JPRB) :: RO2H
+REAL(KIND=JPRB) :: RO3T(4)
+REAL(KIND=JPRB) :: RPIALF0
+REAL(KIND=JPRB) :: RT1(2)
+REAL(KIND=JPRB) :: TINTP(11)
+REAL(KIND=JPRB) :: TREF
+REAL(KIND=JPRB) :: TSTAND
+REAL(KIND=JPRB) :: TSTP
+REAL(KIND=JPRB) :: WG1(2)
+REAL(KIND=JPRB) :: XP(6,6)
+REAL(KIND=JPRB) :: RVGCO2
+REAL(KIND=JPRB) :: RVGH2O
+REAL(KIND=JPRB) :: RVGO3
+
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----  :  ----   : ---------------------------------------------------
+!  MXIXT :  INTEGER  MAXIMUM TEMPERATURE INDEX FOR TRANSMISSIVITIES
+!  NSIL  :  INTEGER  NUMBER OF SPECTRAL INTERVALS
+!  NIPD  :  INTEGER  NUMBER OF BANDS DESCRIBED BY PADE APPROXIMANTS
+!  NIPD2 :  INTEGER  NIPD*2
+!  NTR   :  INTEGER  NUMBER OF REFERENCE TEMPERATURES
+!  NTRA  :  INTEGER  NUMBER OF TRANSMISSION FUNCTIONS
+!  NUA   :  INTEGER  NUMBER OF ABSORBER AMOUNTS
+!  NG1   :  INTEGER  ORDER OF THE GAUSSIAN QUADRATURE
+!  NG1P1 :  INTEGER  NG1+1
+!  ALWT  :  REAL     A-TYPE COEFF. FOR TEMPERATURE DEPENDENCE
+!  BLWT  :  REAL     B-TYPE COEFF. FOR TEMPERATURE DEPENDENCE
+!  RNTNU :  REAL     ABSORPTION COEFFICIENT E-TYPE
+!  PDGA  :  REAL     PADE APPROXIMANTS - NUMERATOR
+!  PDGB  :  REAL     PADE APPROXIMANTS - DENOMINATOR
+!  RPTYPE:  REAL     P-TYPE COEFFICIENTS
+!  RETYPE:  REAL     E-TYPE COEFFICIENTS
+!  RO1H  :  REAL     K/DELTA 1ST OZONE SUB-INTERVAL
+!  RO2H  :  REAL     K/DELTA 2ND OZONE SUB-INTERVAL
+!  RO3T  :  REAL     TEMPERATURE DEPENDENCE COEFFICIENTS FOR OZONE
+!  RPIALF0: REAL     PI*ALFA0/DELTA OZONE SUB-INTERVALS
+!  RT1   :  REAL     ROOTS FOR GAUSSIAN QUADRATURE
+!  TINTP :  REAL     TEMPERATURE INTERVALS FOR TRANSMISSIVITIES
+!  TREF  :  REAL     REFERENCE TEMPERATURE IN PLANCK FUNCTION POLYNOMIAL
+!  TSTAND:  REAL     REFERENCE TEMPERATURE FOR TEMPERATURE DEPENDENCE
+!  TSTP  :  REAL     TEMEPERATURE STEP BETWEEN TRANSMISSIVITIES
+!  WG1   :  REAL     WEIGHTS FOR GAUSSIAN QUADRATURE
+!  XP    :  REAL     POLYNOMIAL COEFFICIENTS OF PLANCK FUNCTION
+!  RVGCO2:  REAL     RESIDUAL PRESSURE FOR CO2 VOIGT LINE HALF-WIDTH
+!  RVGH2O:  REAL     RESIDUAL PRESSURE FOR H2O VOIGT LINE HALF-WIDTH
+!  RVGO3 :  REAL     RESIDUAL PRESSURE FOR O3  VOIGT LINE HALF-WIDTH
+!     ------------------------------------------------------------------
+END MODULE YOELW
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoeovlp.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoeovlp.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoeovlp.F90	(revision 1989)
@@ -0,0 +1,23 @@
+MODULE YOEOVLP
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*     *YOEOVLP* VERTICAL DISTRIBUTION OF CLOUD OVERLAP PARAMETER
+!     ------------------------------------------------------------------
+
+REAL(KIND=JPRB),ALLOCATABLE:: RA1OVLP(:)
+
+!     J.-J. MORCRETTE    E.C.M.W.F.     01/02/16
+
+!      NAME     TYPE      PURPOSE
+!      ----     ----      -------
+
+!     *RA1OVLP* REAL      Alpha1 (Hogan, Illingworth, 2001)
+
+!     ------------------------------------------------------------------
+END MODULE YOEOVLP
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoephli.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoephli.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoephli.F90	(revision 1989)
@@ -0,0 +1,58 @@
+MODULE YOEPHLI
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*    ** *YOEPHLI* CONTAINS CONSTANTS FOR THE LINEARIZED PHYSICS
+!     ------------------------------------------------------------------
+
+LOGICAL :: LPHYLIN
+LOGICAL :: LENOPERT
+LOGICAL :: LEPPCFLS
+LOGICAL :: LRAISANEN
+
+REAL(KIND=JPRB) :: RLPTRC
+REAL(KIND=JPRB) :: RLPAL1
+REAL(KIND=JPRB) :: RLPAL2
+REAL(KIND=JPRB) :: RLPBB
+REAL(KIND=JPRB) :: RLPCC
+REAL(KIND=JPRB) :: RLPDD
+REAL(KIND=JPRB) :: RLPMIXL
+REAL(KIND=JPRB) :: RLPBETA
+REAL(KIND=JPRB) :: RLPDRAG
+REAL(KIND=JPRB) :: RLPEVAP
+REAL(KIND=JPRB) :: RLPP00
+
+!*     *YOEPHLI* CONTAINS CONSTANTS NEEDED BY 
+!     THE LINEARIZED PHYSICS
+
+!     J.F. MAHFOUF        E.C.M.W.F.    23/06/96
+
+!     NAME        TYPE     DESCRIPTION
+!     ----        ----     -----------
+
+!     *RLPTRC*    REAL     CRITICAL TEMPERATURE FOR MIXED PHASE PROPERTIES
+!                          OF WATER 
+!     *RLPAL1*    REAL     SMOOTHING COEFFICIENT
+!     *RLPAL2*    REAL     SMOOTHING COEFFICIENT
+!     *RLPBB*     REAL     CONSTANT FROM THE LOUIS ET AL. FORMULATION
+!     *RLPCC*     REAL     CONSTANT FROM THE LOUIS ET AL. FORMULATION
+!     *RLPDD*     REAL     CONSTANT FROM THE LOUIS ET AL. FORMULATION
+!     *RLPMIXL*   REAL     PSEUDO DEPTH OF THE PLANETARY BOUNDARY LAYER
+!     *RLPBETA*   REAL     REDUCTION FACTOR OF THE ASYMPTOTIC MIXING LENGTH
+!     *RLPDRAG*   REAL     COEFFICIENT FOR THE ESTIMATION OF SURFACE DRAG
+!     *RLPEVAP*   REAL     FRACTION OF POSSIBLE RAINFALL EVAPORATION
+!     *RLPP00*    REAL     PRESSURE ABOVE WHICH RADIATION IS NOT APPLIED
+!     *LPHYLIN*   LOGICAL  TRUE WHEN LINEARIZED PHYSICS IS ACTIVATED 
+!     *LENOPERT   LOGICAL  TRUE WHEN NO PERTURBATION IS REQUIRED
+!                          FOR SURFACE ARRAYS
+!     *LEPPCFLS   LOGICAL  TRUE WHEN POST-PROCESSING OF SURFACE FIELDS 
+!                          REQUIRED
+!     *LRAISANEN  LOGICAL  TRUE WHEN RAISANEN OVERLAP SCHEME IS
+!                          ACTIVATED
+!     ------------------------------------------------------------------
+END MODULE YOEPHLI
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoephy.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoephy.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoephy.F90	(revision 1989)
@@ -0,0 +1,95 @@
+MODULE YOEPHY
+
+USE PARKIND1  ,ONLY : JPRB, JPIM
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOEPHY* - SWITCHES RELATED TO DIABATIC PROCESSES
+!     -----------------------------------------------------------------
+
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+LOGICAL :: LEPHYS
+LOGICAL :: LECOND
+LOGICAL :: LECUMF
+LOGICAL :: LEDCLD
+LOGICAL :: LEEVAP
+LOGICAL :: LEGWDG
+LOGICAL :: LEOZOC
+LOGICAL :: LEQNGT
+LOGICAL :: LERADI
+LOGICAL :: LERADS
+LOGICAL :: LESHCV
+LOGICAL :: LESICE
+LOGICAL :: LESURF
+LOGICAL :: LEVDIF
+LOGICAL :: LAGPHY
+LOGICAL :: LEPCLD
+LOGICAL :: LEO3CH
+LOGICAL :: LECO2DIU
+LOGICAL :: LBUD23
+LOGICAL :: LEMETHOX
+LOGICAL :: LERA40
+LOGICAL :: LECURR
+LOGICAL :: LVDFTRAC
+LOGICAL :: LMFTRAC
+LOGICAL :: LERAIN
+LOGICAL :: LE4ALB
+LOGICAL :: LEMWAVE
+LOGICAL :: LEOCWA
+LOGICAL :: LEOCCO
+LOGICAL :: LEOCSA
+REAL(KIND=JPRB) :: RTHRFRTI
+INTEGER(KIND=JPIM) :: NPHYINT
+INTEGER(KIND=JPIM) :: NPHPROMA
+INTEGER (KIND=JPIM) :: NEPHYS_PCFULL
+
+!     REFERENCE.
+!     ----------
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      91/07/14
+
+!     MODIFICATIONS
+!     -------------
+
+!     P. Viterbo   ECMWF   03-12-2004  Include user-defined RTHRFRTI
+!     ------------------------------------------------------------------
+
+!  NAME     TYPE     PURPOSE
+!  ----  :  ----   : ---------------------------------------------------
+! LEPHYS : LOGICAL : SWITCH THE FULL E.C.M.W.F. PHYSICS PACKAGE ON
+! LAGPHY : LOGICAL : IF TRUE, PHYSICS PACKAGE CALLED IN LAGGED MODE
+! LECOND : LOGICAL : TURN THE LARGE-SCALE CONDENSATION ON
+! LECUMF : LOGICAL : TURN THE MASS-FLUX CUMULUS CONVECTION SCHEME ON
+! LEDCLD : LOGICAL : TURN THE DIAGNOSTIC CLOUD SCHEME ON
+! LEPCLD : LOGICAL : TURN THE PROGNOSTIC CLOUD SCHEME ON
+! LEEVAP : LOGICAL : TURN THE EVAPORATION OF PRECIPITATION ON
+! LEGWDG : LOGICAL : TURN THE GRAVITY WAVE DRAG ON
+! LEOZOC : LOGICAL : TURN THE CLIMATOLOGICAL OZONE ON
+! LEQNGT : LOGICAL : TURN THE NEGATIVE HUMIDITY FIXER ON
+! LERADI : LOGICAL : TURN THE RADIATION SCHEME ON
+! LERADS : LOGICAL : TURN THE INTERACTIVE SURFACE RADIATIVE PROPERTIESON
+! LESHCV : LOGICAL : TURN THE SHALLOW CONV. IN THE MASS-FLUX SCHEME ON
+! LESICE : LOGICAL : TURN THE INTERACTIVE SEA ICE PROCESSES ON
+! LESURF : LOGICAL : TURN THE INTERACTIVE SURFACE PROCESSES ON
+! LEVDIF : LOGICAL : TURN THE VERTICAL DIFFUSION ON
+! LEO3CH : LOGICAL : TURN THE O3 CHEMISTRY ON (for EC prog. ozone)
+! LECO2DIU: LOGICAL: UPDATE THE NBF CO2 FLUXES CLIMATOLOGY DURING THE RUN OF THE MODEL (introduce a diurnal cycle)
+! LBUD23 : LOGICAL : SWITCH FOR 3 AND 2 DIMENSIONAL BUDGETS 
+! LEMETHOX: LOGICAL: TURN THE METHANE OXIDATION ON
+! LERA40 : LOGICAL : EXTRA PHYSICS DIAGNOSTICS FOR ERA40
+! LECURR : LOGICAL : IF TRUE, OCEAN CURRENT BOUNDARY CONDITION IS USED
+! LVDFTRAC: LOGICAL: TURN TRACER TRANSPORT BY VERTICAL DIFFUSION ON 
+! LMFTRAC: LOGICAL : TURN TRACER TRANSPORT BY MASS FLUX CONVECTION ON
+! LERAIN : LOGICAL : RAIN ASSIMILATION
+! LE4ALB : LOGICAL : MODIS ALBEDO ON (DIRECT+DIFFUSE)*(UVIS+NIR) 
+! LEOCWA : LOGICAL : WARM OCEAN LAYER PARAMETRIZATION
+! LEOCCO : LOGICAL : COOL OCEAN SKIN PARAMETRIZATION
+! LEOCSA : LOGICAL : SALINTY EFFECT ON SATURATION AT OCEAN SURFACE
+! RTHRFRTI : INTEGER : MINIMUM FRACTION FOR ALL SURFACE TILES
+! LE4ALB : LOGICAL  : MODIS ALBEDO (UV-Vis+NIR)x(direct+diffuse) 
+!     -----------------------------------------------------------------
+END MODULE YOEPHY
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoerad.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoerad.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoerad.F90	(revision 1989)
@@ -0,0 +1,172 @@
+MODULE YOERAD
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*    ** *YOERAD* - CONTROL OPTIONS FOR RADIATION CONFIGURATION
+!     ------------------------------------------------------------------
+
+INTEGER(KIND=JPIM) :: NAER
+INTEGER(KIND=JPIM) :: NMODE
+INTEGER(KIND=JPIM) :: NOZOCL
+INTEGER(KIND=JPIM) :: NRADFR
+INTEGER(KIND=JPIM) :: NRADPFR
+INTEGER(KIND=JPIM) :: NRADPLA
+INTEGER(KIND=JPIM) :: NRINT
+INTEGER(KIND=JPIM) :: NRADINT
+INTEGER(KIND=JPIM) :: NRADRES
+INTEGER(KIND=JPIM) :: NRADNFR
+INTEGER(KIND=JPIM) :: NRADSFR
+INTEGER(KIND=JPIM) :: NOVLP
+INTEGER(KIND=JPIM) :: NRPROMA
+INTEGER(KIND=JPIM) :: NLW
+!INTEGER(KIND=JPIM) :: NSW  mis dans .def MPL 20140211
+INTEGER(KIND=JPIM) :: NSWNL
+INTEGER(KIND=JPIM) :: NSWTL
+INTEGER(KIND=JPIM) :: NTSW
+INTEGER(KIND=JPIM) :: NUV
+INTEGER(KIND=JPIM) :: NCSRADF
+INTEGER(KIND=JPIM) :: NICEOPT
+INTEGER(KIND=JPIM) :: NLIQOPT
+INTEGER(KIND=JPIM) :: NRADIP
+INTEGER(KIND=JPIM) :: NRADLP
+INTEGER(KIND=JPIM) :: NINHOM
+INTEGER(KIND=JPIM) :: NLAYINH
+INTEGER(KIND=JPIM) :: NLNGR1H
+INTEGER(KIND=JPIM) :: NPERTAER
+INTEGER(KIND=JPIM) :: NPERTOZ
+INTEGER(KIND=JPIM) :: NSCEN
+INTEGER(KIND=JPIM) :: NHINCSOL
+INTEGER(KIND=JPIM) :: NMCICA
+
+LOGICAL :: LERAD1H
+LOGICAL :: LERADHS
+LOGICAL :: LEPO3RA
+LOGICAL :: LRADLB
+LOGICAL :: LONEWSW
+LOGICAL :: LECSRAD
+LOGICAL :: LRRTM
+LOGICAL :: LSRTM
+LOGICAL :: LDIFFC
+LOGICAL :: LHVOLCA
+LOGICAL :: LNEWAER
+LOGICAL :: LNOTROAER
+LOGICAL :: LRAYL
+LOGICAL :: LOPTRPROMA
+LOGICAL :: LECO2VAR
+LOGICAL :: LHGHG
+
+CHARACTER (LEN = 256) ::  CRTABLEDIR
+CHARACTER (LEN = 32) ::   CRTABLEFIL
+LOGICAL :: LCCNL
+LOGICAL :: LCCNO
+
+REAL(KIND=JPRB) :: RAOVLP , RBOVLP
+REAL(KIND=JPRB) :: RCCNLND, RCCNSEA
+LOGICAL :: LEDBUG
+REAL(KIND=JPRB) :: RPERTOZ, RRe2De
+REAL(KIND=JPRB) :: RLWINHF, RSWINHF
+
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----  :  ----   : ---------------------------------------------------
+! LERAD1H: LOGICAL : .T. TO ALLOW MORE FREQUENT RADIATION CALCULATIONS
+!                  : DURING FIRST N HOURS OF FORECAST
+! NLNGR1H: INTEGER : NUMBER FORECAST HOURS DURING WHICH MORE FREQUENT
+!                    RADIATION CALCULATIONS ARE REQUIRED
+! LERADHS: LOGICAL : .T. IF RAD.COMPUTED ON A COARSER SAMPLED GRID
+! LEPO3RA: LOGICAL : .T. IF PROGNOSTIC OZONE (EC) IS PASSED TO RADIATION
+! NAER   : INTEGER : CONFIGURATION INDEX FOR AEROSOLS
+! NMODE  : INTEGER : CONFIGURATION FOR RADIATION CODE: FLUX VS. RADIANCE
+! NOZOCL : INTEGER : CHOICE OF OZONE CLIMATOLOGY (0 old, 1 new)
+! NRADFR : INTEGER : FREQUENCY OF FULL RADIATION COMPUTATIONS
+!                    IF(NRADFR.GT.0): RAD EVERY 'NRADFR' TIME-STEPS
+!                    IF(NRADFR.LT.0): RAD EVERY '-NRADFR' HOURS
+! NRADPFR: INTEGER : PRINT FREQUENCY FOR RAD.STATISTICS (in RAD.T.STEPS)
+! NRADPLA: INTEGER : PRINT RAD.STATISTICS EVERY 'NRADPLA' ROWS
+! NRINT  : INTEGER : INTERPOLATION DISTANCE (in points)
+! NRADINT: INTEGER : RADIATION INTERPOLATION METHOD
+!                  : 0 = CURRENT RADIATION INTERPOLATION (CONTROLLED BY NRINT)
+!                  : 1 = SPECTRAL TRANSFORM INTERPOLATION
+!                  : 2 =  4 POINT HORIZONTAL INTERPOLATION
+!                  : 3 = 12 POINT HORIZONTAL INTERPOLATION
+! NRADRES: INTEGER : RADIATION GRID SPECTRAL RESOLUTION
+! NRADNFR: INTEGER : NORMAL   FREQUENCY OF RADIATION STEPS
+! NRADSFR: INTEGER : START-UP FREQUENCY OF RADIATION STEPS
+! NOVLP  : INTEGER : CLOUD OVERLAP CONFIGURATION
+! NRPROMA: INTEGER : VECTOR LENGTH FOR RADIATION CALCULATIONS
+! NLW    : INTEGER : NUMBER OF LONGWAVE SPECTRAL INTERVALS    
+! NSW    : INTEGER : NUMBER OF SHORTWAVE SPECTRAL INTERVALS
+! NSWNL  : INTEGER : NUMBER OF SHORTWAVE SPECTRAL INTERVALS IN NL MODEL
+! NSWTL  : INTEGER : NUMBER OF SHORTWAVE SPECTRAL INTERVALS IN TL MODEL
+! NTSW   : INTEGER : MAXIMUM POSSIBLE NUMBER OF SW SPECTRAL INTERVALS 
+! NUV    : INTEGER : NUMBER OF UV SPECTRAL INTERVALS FOR THE UV PROCESSOR   
+! LRADLB : LOGICAL : .T. IF RADIATION COURSER GRID IS TO BE LOAD BALANCED
+!                  : OVER PROCESSORS (I.E. WHEN NRINT>1)
+! LOPTRPROMA:LOGICAL: .T. NRPROMA will be optimised
+!                   : .F. NRPROMA will not be optimised (forced
+!                   :         by negative NRPROMA in namelist)
+
+! NRADIP : INTEGER : INDEX FOR DIAGNOSIS OF ICE CLOUD EFFECTIVE RADIUS
+!          0=EbCu/SmSh  1=EbCu/EbCu  2=FuLi/FuLi  3=Fu/Fu&al
+! NRADLP : INTEGER : INDEX FOR DIAGNOSIS OF LIQ. CLOUD EFFECTIVE RADIUS
+!          0=YF/SmSh    1=ASl/HSa    2=ASl/LiLi
+! NICEOPT: INTEGER : INDEX FOR ICE CLOUD OPTICAL PROPERTIES
+!          0=40u        1=40-130     2=30-60      3=Sun'01
+! NLIQOPT: INTEGER : INDEX FOR LIQUID WATER CLOUD OPTICAL PROPERTIES
+!          0=f(P)       1=10/13      2=Martin_et_al
+
+! LONEWSW: LOGICAL : .T. IF NEW SW CODE IS ACTIVE
+! LECSRAD: LOGICAL : .T. IF CLEAR-SKY RADIATION IS ARCHIVED AS PEXTR2
+! NCSRADF: INTEGER : 1 IF ACCUMULATED, 2 IF INSTANTANEOUS
+! LRRTM  : LOGICAL : .T. IF RRTM140MR IS USED FOR LW RADIATION TRANSFER
+
+! LHVOLCA: LOGICAL : .T. IF GISS HISTORY OF VOLCANIC AEROSOLS IS ON
+! LNEWAER: LOGICAL : .T. IF AEROSOL MONTHLY DISTRIBUTIONS ARE USED
+! LNOTROAER:LOGICAL: .T. IF NO TROPOSPHERIC AEROSOLS
+! CRTABLEDIR: CHAR : IF NRADINT > 0 SPECIFIES DIRECTORY PATH FOR RADIATION
+!                  : GRID RTABLE NAMELIST
+! CRTABLEFIL: CHAR : IF NRADINT > 0 SPECIFIES FILE NAME OF RADIATION 
+!                  : GRID RTABLE NAMELIST
+! LRAYL  : LOGICAL : .T. NEW RAYLEIGH FOR SW-6 VERSION
+
+! RAOVLP : REAL    : COEFFICIENTS FOR ALPHA1 FACTOR IN HOGAN & 
+! RBOVLP : REAL    : ILLINGWORTH's PARAMETRIZATION
+
+! LCCNL  : LOGICAL : .T. IF CCN CONCENTRATION OVER LAND IS DIAGNOSED
+! LCCNO  : LOGICAL : .T. IF CCN CONCENTRATION OVER OCEAN IS DIAGNOSED
+! RCCNLND: REAL    : NUMBER CONCENTRATION (CM-3) OF CCNs OVER LAND
+! RCCNSEA: REAL    : NUMBER CONCENTRATION (CM-3) OF CCNs OVER SEA
+
+! LDIFFC : LOGICAL : .T. IF SAVIJARVI'S DIFFUSIVITY CORRECTION IS ON
+
+! NINHOM : INTEGER : 0 IF NO INHOMOGENEITY SCALING EFFECT 
+!                    1 IF SIMPLE 0.7 SCALING
+!                    2 IF BARKER, 3 IF CAIRNS ET AL.
+! RLWINHF: REAL    : INHOMOG. SCALING FACTOR FOR CLOUD LW OPTICAL THICKNESS
+! RSWINHF: REAL    : INHOMOG. SCALING FACTOR FOR CLOUD SW OPTICAL THICKNESS
+
+! NPERTAER : INTERGER : PERCENTAGE OF PERTURBATION FOR AEROSOL   
+! NPERTOZONE : INTEGER : PERCENTAGE OF PERTURBATION FOR OZONE 
+! NHINCSOL:INTEGER :
+!        = 0 NO VARIABILITY OF SOLAR CONSTANT IS ACCOUNTED FOR 
+!        = 1 IF YEAR-TO-YEAR VARIABILITY OF SOLAR CONSTANT IS ACCOUNTED FOR 
+!        = 2 IF MONTH-TO-MONTH VARIABILITY OF SOLAR CONSTANT IS ACCOUNTED FOR 
+! LECO2VAR: LOGICAL: .T. IF ERA-40/AMIP2 VARIABILITY OF GHG IS ON
+! LHGHG  : LOGICAL : .T. IF VARIABILITY OF GREENHOUSE GASES (INCLUDING CO2) IS ON
+! N.B.: LHGHG supercedes LECO2VAR and allows using better specification of trace gases
+! NSCEN  : INTEGER : 21st CENTURY SCENARIO FOR GHG (1=A1B, 2=A2, 3=B1)
+! RRe2De : REAL    : CONVERSION FACTOR BETWWEN EFFECTIVE RADIUS AND PARTICLE SIZE
+!                    FOR ICE
+! NMCICA : INTEGER :  0: NO McICA
+!                     1: McICA w maximum-random in cloud generator
+!                     2: McICA w generalized overlap in cloud generator
+!     ------------------------------------------------------------------
+END MODULE YOERAD
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoerdi.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoerdi.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoerdi.F90	(revision 1989)
@@ -0,0 +1,42 @@
+MODULE YOERDI
+
+USE PARKIND1  ,ONLY : JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERDI* - COEFFICIENTS WITHIN RADIATION INTERFACE
+!     -----------------------------------------------------------------
+
+REAL(KIND=JPRB) :: RRAE
+REAL(KIND=JPRB) :: RSUNDUR
+REAL(KIND=JPRB) :: RCARDI
+REAL(KIND=JPRB) :: RCH4
+REAL(KIND=JPRB) :: RN2O
+REAL(KIND=JPRB) :: RO3
+REAL(KIND=JPRB) :: RCFC11
+REAL(KIND=JPRB) :: RCFC12
+REAL(KIND=JPRB) :: REPCLC
+REAL(KIND=JPRB) :: REPH2O
+REAL(KIND=JPRB) :: RCCO2, RCCH4, RCN2O, RCCFC11, RCCFC12
+REAL(KIND=JPRB) :: RHVAR(151,5), RFVAR(101,3,5), RINCSOL(154), RSOLINC
+
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     Original  J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
+!     Modified  P. Viterbo    99/03/26    Surface tiling
+!     Modified  P. Viterbo    24/05/2004  surf library
+!     Modified JJMorcrette    2005/01/19  GHG and Solar constant variability
+
+!  NAME     TYPE     PURPOSE
+!  ----  :  ----   : ---------------------------------------------------
+! RRAE   : EFFECT OF EARTH'S CURVATURE ON COSINE SOLAR ZENITH ANGLE
+! RSUNDUR: MINIMUM DIRECT SOLAR FOR COMPUTING SOLAR DURATION
+! RCARDI : SPECIFIC ATMOSPHERIC CONTENT IN CO2
+! REPCLC : SECURITY TO AVOID ZERO OR ONE CLOUD COVERS
+! REPH2O : SECURITY TO AVOID WATER VAPOUR CONTENT IN A LAYER
+!          TO BE MORE THAN THE RESPECTIVE VALUE AT SATURATION.
+!     -----------------------------------------------------------------
+END MODULE YOERDI
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoerdu.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoerdu.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoerdu.F90	(revision 1989)
@@ -0,0 +1,51 @@
+MODULE YOERDU
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*    ** *YOERDU* - CONTROL, PARAMETERS AND SECURITY IN RADIATION
+!     ------------------------------------------------------------------
+
+INTEGER(KIND=JPIM) :: NUAER
+INTEGER(KIND=JPIM) :: NTRAER
+INTEGER(KIND=JPIM) :: NIMP
+INTEGER(KIND=JPIM) :: NOUT
+REAL(KIND=JPRB) :: RCDAY
+REAL(KIND=JPRB) :: R10E
+REAL(KIND=JPRB) :: REPLOG
+REAL(KIND=JPRB) :: REPSC
+REAL(KIND=JPRB) :: REPSCO
+REAL(KIND=JPRB) :: REPSCQ
+REAL(KIND=JPRB) :: REPSCT
+REAL(KIND=JPRB) :: REPSCW
+REAL(KIND=JPRB) :: DIFF
+
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----  :  ----   : ---------------------------------------------------
+! NUAER  : INTEGER   NUMBER OF ABSORBER AMOUNTS        W OR W/O AEROSOLS
+! NTRAER : INTEGER   NUMBER OF TRANSMISSION FUNCTIONS  W OR W/O AEROSOLS
+! NIMP   : INTEGER   INDEX FOR EXTRA PRINTS WITHIN RADIATION CODE
+! NOUT   : INTEGER   UNIT NUMBER FOR THE EXTRA PRINTS
+! RCDAY  : REAL
+! CCO2   : REAL      CONVERSION COEFFICIENT FOR CO2 IN S.W. CODE
+! CH2O   : REAL      CONVERSION COEFFICIENT FOR H2O IN S.W. CODE
+! R10E   : REAL      DECIMAL/NATURAL LOG.FACTOR
+! DIFF   : REAL      DIFFUSIVITY FACTOR
+!-SECURITY THRESHOLDS
+! REPLOG : REAL      SEC. EPSILON FOR ABS.AMOUNT IN LAPLACE TRANSFORM
+! REPSC  : REAL      SEC. EPSILON FOR CLOUD COVER
+! REPSCO : REAL      SEC. EPSILON FOR OZONE AMOUNT
+! REPSCQ : REAL      SEC. EPSILON FOR WATER VAPOR
+! REPSCT : REAL      SEC. EPSILON FOR SHORTWAVE OPTICAL THICKNESS
+! REPSCW : REAL      SEC. EPSILON FOR CLOUD LIQUID WATER PATH
+
+!     -----------------------------------------------------------------
+END MODULE YOERDU
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoerrta1.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoerrta1.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoerrta1.F90	(revision 1989)
@@ -0,0 +1,39 @@
+MODULE YOERRTA1
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTA1* - RRTM COEFFICIENTS FOR INTERVAL 1
+!     BAND 1:  10-250 cm-1 (low - H2O; high - H2O)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NG1  = 8
+
+REAL(KIND=JPRB) :: FRACREFA(NG1)  , FRACREFB(NG1)
+REAL(KIND=JPRB) :: KA(5,13,NG1)   , ABSA(65,NG1)
+REAL(KIND=JPRB) :: KB(5,13:59,NG1), ABSB(235,NG1)
+REAL(KIND=JPRB) :: SELFREF(10,NG1), FORREF(NG1)
+
+EQUIVALENCE (KA(1,1,1),ABSA(1,1)), (KB(1,13,1),ABSB(1,1))
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! ABSA    : REAL
+! ABSB    : REAL
+! FRACREFA: REAL    
+! FRACREFB: REAL
+! FORREF  : REAL
+! KA      : REAL     
+! KB      : REAL     
+! SELFREF : REAL     
+!     -----------------------------------------------------------------
+END MODULE YOERRTA1
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoerrta10.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoerrta10.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoerrta10.F90	(revision 1989)
@@ -0,0 +1,38 @@
+MODULE YOERRTA10
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTA14* - RRTM COEFFICIENTS FOR INTERVAL 10
+!     BAND 10:  1390-1480 cm-1 (low - H2O; high - H2O)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NG10 = 6
+
+REAL(KIND=JPRB) , DIMENSION(NG10) :: FRACREFA
+REAL(KIND=JPRB) , DIMENSION(NG10) :: FRACREFB
+
+REAL(KIND=JPRB) :: KA(5,13,NG10)   , ABSA(65,NG10)
+REAL(KIND=JPRB) :: KB(5,13:59,NG10), ABSB(235,NG10)
+
+EQUIVALENCE (KA(1,1,1),ABSA(1,1)),(KB(1,13,1),ABSB(1,1))
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! ABSA    : REAL
+! ABSB    : REAL
+! FRACREFA: REAL    
+! FRACREFB: REAL    
+! KA      : REAL     
+! KB      : REAL     
+!     -----------------------------------------------------------------
+END MODULE YOERRTA10
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoerrta11.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoerrta11.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoerrta11.F90	(revision 1989)
@@ -0,0 +1,40 @@
+MODULE YOERRTA11
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTA11* - RRTM COEFFICIENTS FOR INTERVAL 11
+!     BAND 11:  1480-1800 cm-1 (low - H2O; high - H2O)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NG11 = 8
+
+REAL(KIND=JPRB) , DIMENSION(NG11) :: FRACREFA
+REAL(KIND=JPRB) , DIMENSION(NG11) :: FRACREFB
+
+REAL(KIND=JPRB) :: KA(5,13,NG11)   , ABSA(65,NG11)
+REAL(KIND=JPRB) :: KB(5,13:59,NG11), ABSB(235,NG11)
+REAL(KIND=JPRB) :: SELFREF(10,NG11)
+
+EQUIVALENCE (KA(1,1,1),ABSA(1,1)),(KB(1,13,1),ABSB(1,1))
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! ABSA    : REAL
+! ABSB    : REAL
+! FRACREFA: REAL    
+! FRACREFB: REAL    
+! KA      : REAL     
+! KB      : REAL     
+! SELFREF : REAL     
+!     -----------------------------------------------------------------
+END MODULE YOERRTA11
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoerrta12.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoerrta12.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoerrta12.F90	(revision 1989)
@@ -0,0 +1,38 @@
+MODULE YOERRTA12
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTA12* - RRTM COEFFICIENTS FOR INTERVAL 12
+!     BAND 12:  1800-2080 cm-1 (low - H2O,CO2; high - nothing)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NG12 = 8
+
+REAL(KIND=JPRB) :: FRACREFA(NG12,9)
+REAL(KIND=JPRB) :: KA(9,5,13,NG12) ,ABSA(585,NG12)
+REAL(KIND=JPRB) :: SELFREF(10,NG12)
+
+REAL(KIND=JPRB) :: STRRAT
+
+EQUIVALENCE (KA(1,1,1,1),ABSA(1,1))
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! ABSA    : REAL
+! ABSB    : REAL
+! FRACREFA: REAL    
+! KA      : REAL     
+! SELFREF : REAL
+! STRRAT1 : REAL     
+!     -----------------------------------------------------------------
+END MODULE YOERRTA12
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoerrta13.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoerrta13.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoerrta13.F90	(revision 1989)
@@ -0,0 +1,36 @@
+MODULE YOERRTA13
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTA13* - RRTM COEFFICIENTS FOR INTERVAL 13
+!     BAND 13:  2080-2250 cm-1 (low - H2O,N2O; high - nothing)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NG13 = 4
+
+REAL(KIND=JPRB) :: FRACREFA(NG13,9)
+
+REAL(KIND=JPRB) :: KA(9,5,13,NG13) ,ABSA(585,NG13)
+REAL(KIND=JPRB) :: SELFREF(10,NG13)
+REAL(KIND=JPRB) :: STRRAT
+
+EQUIVALENCE (KA(1,1,1,1),ABSA(1,1))
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! FRACREFA: REAL    
+! KA      : REAL     
+! SELFREF : REAL
+! STRRAT1 : REAL     
+!     -----------------------------------------------------------------
+END MODULE YOERRTA13
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoerrta14.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoerrta14.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoerrta14.F90	(revision 1989)
@@ -0,0 +1,39 @@
+MODULE YOERRTA14
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTA14* - RRTM COEFFICIENTS FOR INTERVAL 14
+!     BAND 14:  2250-2380 cm-1 (low - CO2; high - CO2)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NG14 = 2
+
+REAL(KIND=JPRB) , DIMENSION(NG14) :: FRACREFA
+REAL(KIND=JPRB) , DIMENSION(NG14) :: FRACREFB
+
+REAL(KIND=JPRB) :: KA(5,13,NG14)   ,ABSA(65,NG14)
+REAL(KIND=JPRB) :: KB(5,13:59,NG14),ABSB(235,NG14)
+REAL(KIND=JPRB) :: SELFREF(10,NG14)
+
+EQUIVALENCE (KA(1,1,1),ABSA(1,1)), (KB(1,13,1),ABSB(1,1))
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/01/15
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! FRACREFA: REAL    
+! FRACREFB: REAL    
+! KA      : REAL     
+! KB      : REAL     
+! SELFREF : REAL     
+!     -----------------------------------------------------------------
+END MODULE YOERRTA14
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoerrta15.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoerrta15.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoerrta15.F90	(revision 1989)
@@ -0,0 +1,36 @@
+MODULE YOERRTA15
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTA15* - RRTM COEFFICIENTS FOR INTERVAL 15
+!     BAND 15:  2380-2600 cm-1 (low - N2O,CO2; high - nothing)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NG15 = 2
+
+REAL(KIND=JPRB) :: FRACREFA(NG15,9)
+
+REAL(KIND=JPRB) :: KA(9,5,13,NG15) ,ABSA(585,NG15)
+REAL(KIND=JPRB) :: SELFREF(10,NG15)
+REAL(KIND=JPRB) :: STRRAT
+
+EQUIVALENCE (KA(1,1,1,1),ABSA(1,1))
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! FRACREFA: REAL    
+! KA      : REAL     
+! SELFREF : REAL 
+! STRRAT  : REAL    
+!     -----------------------------------------------------------------
+END MODULE YOERRTA15
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoerrta16.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoerrta16.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoerrta16.F90	(revision 1989)
@@ -0,0 +1,36 @@
+MODULE YOERRTA16
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTA16* - RRTM COEFFICIENTS FOR INTERVAL 16
+!     BAND 16:  2600-3000 cm-1 (low - H2O,CH4; high - nothing)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NG16 = 2
+
+REAL(KIND=JPRB) :: FRACREFA(NG16,9)
+
+REAL(KIND=JPRB) :: KA(9,5,13,NG16) ,ABSA(585,NG16)
+REAL(KIND=JPRB) :: SELFREF(10,NG16)
+REAL(KIND=JPRB) :: STRRAT
+
+EQUIVALENCE (KA(1,1,1,1),ABSA(1,1))
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! FRACREFA: REAL    
+! KA      : REAL     
+! SELFREF : REAL     
+! STRRAT  : REAL
+!     -----------------------------------------------------------------
+END MODULE YOERRTA16
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoerrta2.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoerrta2.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoerrta2.F90	(revision 1989)
@@ -0,0 +1,43 @@
+MODULE YOERRTA2
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTA2* - RRTM COEFFICIENTS FOR INTERVAL 2
+!     BAND 2:  250-500 cm-1 (low - H2O; high - H2O)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NG2  = 14
+
+!     The ith set of reference fractions are from the ith reference
+!     pressure level.
+REAL(KIND=JPRB) :: FRACREFA(NG2,13), FRACREFB(NG2), REFPARAM(13)
+REAL(KIND=JPRB) :: KA(5,13,NG2)   , ABSA(65,NG2)
+REAL(KIND=JPRB) :: KB(5,13:59,NG2), ABSB(235,NG2)
+REAL(KIND=JPRB) :: SELFREF(10,NG2), FORREF(NG2)
+
+EQUIVALENCE (KA(1,1,1),ABSA(1,1)),(KB(1,13,1),ABSB(1,1))
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! ABSA    : REAL
+! ABSB    : REAL
+! FRACREFA: REAL    
+! FRACREFB: REAL
+! REFPARAM: REAL
+! KA      : REAL     
+! KB      : REAL     
+! SELFREF : REAL
+! FORREF  : REAL     
+!     -----------------------------------------------------------------
+END MODULE YOERRTA2
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoerrta3.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoerrta3.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoerrta3.F90	(revision 1989)
@@ -0,0 +1,55 @@
+MODULE YOERRTA3
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTA3* - RRTM COEFFICIENTS FOR INTERVAL 3
+!     BAND 3:  500-630 cm-1 (low - H2O,CO2; high - H2O,CO2)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NG3  = 16
+
+REAL(KIND=JPRB) :: FRACREFA(NG3,10) ,FRACREFB(NG3,5)
+
+REAL(KIND=JPRB) , DIMENSION(16) :: FORREF
+REAL(KIND=JPRB) , DIMENSION(16) :: ABSN2OA
+REAL(KIND=JPRB) , DIMENSION(16) :: ABSN2OB
+REAL(KIND=JPRB) , DIMENSION(10) :: ETAREF
+REAL(KIND=JPRB) , DIMENSION(59) :: H2OREF
+REAL(KIND=JPRB) , DIMENSION(59) :: N2OREF
+REAL(KIND=JPRB) , DIMENSION(59) :: CO2REF
+
+REAL(KIND=JPRB) :: KA(10,5,13,NG3)  ,ABSA(650,NG3)
+REAL(KIND=JPRB) :: KB(5,5,13:59,NG3),ABSB(1175,NG3)
+REAL(KIND=JPRB) :: SELFREF(10,NG3)
+REAL(KIND=JPRB) :: STRRAT
+
+EQUIVALENCE (KA(1,1,1,1),ABSA(1,1)),(KB(1,1,13,1),ABSB(1,1))
+
+!     ------------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! ABSA    : REAL
+! ABSB    : REAL
+! ABSN2OA : REAL
+! ABSN2OB : REAL
+! CO2REF  : REAL
+! ETAREF  : REAL
+! FRACREFA: REAL    
+! FRACREFB: REAL
+! H2OREF  : REAL
+! KA      : REAL     
+! KB      : REAL     
+! N2OREF  : REAL
+! SELFREF : REAL     
+! STRRAT  : REAL
+!     -----------------------------------------------------------------
+END MODULE YOERRTA3
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoerrta4.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoerrta4.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoerrta4.F90	(revision 1989)
@@ -0,0 +1,40 @@
+MODULE YOERRTA4
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTA4* - RRTM COEFFICIENTS FOR INTERVAL 5
+!     BAND 4:  630-700 cm-1 (low - H2O,CO2; high - O3,CO2)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NG4  = 14
+
+REAL(KIND=JPRB) :: FRACREFA(NG4,9)  ,FRACREFB(NG4,6)
+REAL(KIND=JPRB) :: KA(9,5,13,NG4)   ,ABSA(585,NG4)
+REAL(KIND=JPRB) :: KB(6,5,13:59,NG4),ABSB(1410,NG4)
+REAL(KIND=JPRB) :: SELFREF(10,NG4)
+REAL(KIND=JPRB) :: STRRAT1
+REAL(KIND=JPRB) :: STRRAT2
+
+EQUIVALENCE (KA(1,1,1,1),ABSA(1,1)),(KB(1,1,13,1),ABSB(1,1))
+
+!     ------------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! ABSA    : REAL
+! ABSB    : REAL
+! FRACREFA: REAL    
+! FRACREFB: REAL
+! KA      : REAL     
+! KB      : REAL     
+! SELFREF : REAL     
+!     -----------------------------------------------------------------
+END MODULE YOERRTA4
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoerrta5.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoerrta5.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoerrta5.F90	(revision 1989)
@@ -0,0 +1,46 @@
+MODULE YOERRTA5
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTA5* - RRTM COEFFICIENTS FOR INTERVAL 5
+!     BAND 5:  700-820 cm-1 (low - H2O,CO2; high - O3,CO2)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NG5  = 16
+
+REAL(KIND=JPRB) :: FRACREFA(NG5,9) ,FRACREFB(NG5,5)
+
+REAL(KIND=JPRB) , DIMENSION(NG5) :: CCL4
+
+REAL(KIND=JPRB) :: KA(9,5,13,NG5)   ,ABSA(585,NG5)
+REAL(KIND=JPRB) :: KB(5,5,13:59,NG5),ABSB(1175,NG5)
+REAL(KIND=JPRB) :: SELFREF(10,NG5)
+REAL(KIND=JPRB) :: STRRAT1
+REAL(KIND=JPRB) :: STRRAT2
+
+EQUIVALENCE (KA(1,1,1,1),ABSA(1,1)),(KB(1,1,13,1),ABSB(1,1))
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! ABSA    : REAL
+! ABSB    : REAL
+! CCL4    : REAL
+! FRACREFA: REAL    
+! FRACREFB: REAL
+! KA      : REAL     
+! KB      : REAL     
+! SELFREF : REAL     
+! STRRAT1 : REAL
+! STRRAT2 : REAL    
+!     -----------------------------------------------------------------
+END MODULE YOERRTA5
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoerrta6.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoerrta6.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoerrta6.F90	(revision 1989)
@@ -0,0 +1,43 @@
+MODULE YOERRTA6
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTA6* - RRTM COEFFICIENTS FOR INTERVAL 6
+!     BAND 6:  820-980 cm-1 (low - H2O; high - nothing)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NG6  = 8
+
+REAL(KIND=JPRB) , DIMENSION(NG6) :: FRACREFA
+
+REAL(KIND=JPRB) , DIMENSION(NG6) :: CFC11ADJ
+REAL(KIND=JPRB) , DIMENSION(NG6) :: CFC12
+REAL(KIND=JPRB) , DIMENSION(NG6) :: ABSCO2
+
+REAL(KIND=JPRB) :: KA(5,13,NG6),ABSA(65,NG6)
+REAL(KIND=JPRB) :: SELFREF(10,NG6)
+
+EQUIVALENCE (KA(1,1,1),ABSA(1,1))
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! ABSCO2  : REAL 
+! ABSA    : REAL
+! ABSB    : REAL
+! FRACREFA: REAL    
+! CFC11ADJ: REAL
+! CFC12   : REAL
+! KA      : REAL     
+! SELFREF : REAL     
+!     -----------------------------------------------------------------
+END MODULE YOERRTA6
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoerrta7.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoerrta7.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoerrta7.F90	(revision 1989)
@@ -0,0 +1,45 @@
+MODULE YOERRTA7
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTA7* - RRTM COEFFICIENTS FOR INTERVAL 7
+!     BAND 7:  980-1080 cm-1 (low - H2O,O3; high - O3)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NG7  = 12
+
+REAL(KIND=JPRB) :: FRACREFA(NG7,9)
+
+REAL(KIND=JPRB) , DIMENSION(NG7) :: FRACREFB
+REAL(KIND=JPRB) , DIMENSION(NG7) :: ABSCO2
+REAL(KIND=JPRB) :: KA(9,5,13,NG7) ,ABSA(585,NG7)
+REAL(KIND=JPRB) :: KB(5,13:59,NG7),ABSB(235,NG7)
+REAL(KIND=JPRB) :: SELFREF(10,NG7)
+
+REAL(KIND=JPRB) :: STRRAT
+
+EQUIVALENCE (KA(1,1,1,1),ABSA(1,1)),(KB(1,13,1),ABSB(1,1))
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! ABSA    : REAL
+! ABSB    : REAL 
+! ABSCO2  : REAL
+! FRACREFA: REAL    
+! FRACREFB: REAL    
+! KA      : REAL     
+! KB      : REAL     
+! SELFREF : REAL  
+! STRRAT  : REAL   
+!     -----------------------------------------------------------------
+END MODULE YOERRTA7
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoerrta8.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoerrta8.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoerrta8.F90	(revision 1989)
@@ -0,0 +1,58 @@
+MODULE YOERRTA8
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTA8* - RRTM COEFFICIENTS FOR INTERVAL 8
+!     BAND 8:  1080-1180 cm-1 (low (i.e.>~300mb) - H2O; high - O3)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NG8  = 8
+
+REAL(KIND=JPRB) , DIMENSION(NG8) :: FRACREFA
+REAL(KIND=JPRB) , DIMENSION(NG8) :: FRACREFB
+REAL(KIND=JPRB) , DIMENSION(NG8) :: CFC12
+REAL(KIND=JPRB) , DIMENSION(NG8) :: CFC22ADJ
+REAL(KIND=JPRB) , DIMENSION(NG8) :: ABSCO2A
+REAL(KIND=JPRB) , DIMENSION(NG8) :: ABSCO2B
+REAL(KIND=JPRB) , DIMENSION(NG8) :: ABSN2OA
+REAL(KIND=JPRB) , DIMENSION(NG8) :: ABSN2OB
+REAL(KIND=JPRB) , DIMENSION(59)  :: H2OREF
+REAL(KIND=JPRB) , DIMENSION(59)  :: N2OREF
+REAL(KIND=JPRB) , DIMENSION(59)  :: O3REF
+
+REAL(KIND=JPRB) :: KA(5,7,NG8)    ,ABSA(35,NG8)
+REAL(KIND=JPRB) :: KB(5,7:59,NG8) ,ABSB(265,NG8)
+REAL(KIND=JPRB) :: SELFREF(10,NG8)
+
+EQUIVALENCE (KA(1,1,1),ABSA(1,1)),(KB(1,7,1),ABSB(1,1))
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! ABSA    : REAL
+! ABSB    : REAL
+! ABSCO2A : REAL     
+! ABSCO2B : REAL     
+! ABSN2OA : REAL     
+! ABSN2OB : REAL 
+! CFC12   : REAL     
+! CFC22ADJ: REAL     
+! FRACREFA: REAL    
+! FRACREFB: REAL    
+! H2OREF  : REAL    
+! KA      : REAL     
+! KB      : REAL     
+! N2OREF  : REAL    
+! O3REF   : REAL    
+! SELFREF : REAL     
+!     -----------------------------------------------------------------
+END MODULE YOERRTA8
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoerrta9.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoerrta9.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoerrta9.F90	(revision 1989)
@@ -0,0 +1,54 @@
+MODULE YOERRTA9
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTA9* - RRTM COEFFICIENTS FOR INTERVAL 9
+!     BAND 9:  1180-1390 cm-1 (low - H2O,CH4; high - CH4)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NG9  = 12
+
+REAL(KIND=JPRB) :: FRACREFA(NG9,9)
+
+REAL(KIND=JPRB) , DIMENSION(NG9) :: FRACREFB
+REAL(KIND=JPRB) , DIMENSION(13) :: N2OREF
+REAL(KIND=JPRB) , DIMENSION(13) :: H2OREF
+REAL(KIND=JPRB) , DIMENSION(13) :: CH4REF
+REAL(KIND=JPRB) , DIMENSION(11) :: ETAREF
+! 36 = 3*NG9      
+REAL(KIND=JPRB) , DIMENSION(36) :: ABSN2O
+
+REAL(KIND=JPRB) :: KA(11,5,13,NG9) ,ABSA(715,NG9)
+REAL(KIND=JPRB) :: KB(5,13:59,NG9) ,ABSB(235,NG9)
+REAL(KIND=JPRB) :: SELFREF(10,NG9)
+REAL(KIND=JPRB) :: STRRAT
+
+EQUIVALENCE (KA(1,1,1,1),ABSA(1,1)),(KB(1,13,1),ABSB(1,1))
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! ABSA    : REAL
+! ABSB    : REAL
+! ABSN2O  : REAL    
+! CH4REF  : REAL
+! ETAREF  : REAL
+! FRACREFA: REAL    
+! FRACREFB: REAL
+! H2OREF  : REAL
+! N2OREF  : REAL
+! KA      : REAL     
+! KB      : REAL     
+! SELFREF : REAL     
+! STRRAT  : REAL
+!     -----------------------------------------------------------------
+END MODULE YOERRTA9
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoerrtab.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoerrtab.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoerrtab.F90	(revision 1989)
@@ -0,0 +1,27 @@
+MODULE YOERRTAB
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!    -------------------------------------------------------------------
+
+!    -------------------------------------------------------------------
+
+REAL(KIND=JPRB) , DIMENSION(0:5000) :: TRANS
+REAL(KIND=JPRB) :: BPADE
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----  :  ----   : ---------------------------------------------------
+! TRANS  :  REAL    
+! BPADE  :  REAL     
+!     -----------------------------------------------------------------
+END MODULE YOERRTAB
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoerrtbg2.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoerrtbg2.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoerrtbg2.F90	(revision 1989)
@@ -0,0 +1,29 @@
+MODULE YOERRTBG2
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+USE PARRRTM
+
+IMPLICIT NONE
+
+SAVE
+
+!    -------------------------------------------------------------------
+
+!    -------------------------------------------------------------------
+
+REAL(KIND=JPRB) :: CORR1(0:200)
+REAL(KIND=JPRB) :: CORR2(0:200)
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----  :  ----   : ---------------------------------------------------
+! CORR1  :  REAL   : 
+! CORR2  :  REAL   :
+!    -------------------------------------------------------------------
+END MODULE YOERRTBG2
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoerrtftr.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoerrtftr.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoerrtftr.F90	(revision 1989)
@@ -0,0 +1,38 @@
+MODULE YOERRTFTR
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+USE PARRRTM
+
+IMPLICIT NONE
+
+SAVE
+
+!    -------------------------------------------------------------------
+
+!    -------------------------------------------------------------------
+
+INTEGER(KIND=JPIM) :: NGC(JPBAND)
+INTEGER(KIND=JPIM) :: NGS(JPBAND)
+INTEGER(KIND=JPIM) :: NGN(JPGPT)
+INTEGER(KIND=JPIM) :: NGB(JPGPT)
+
+INTEGER(KIND=JPIM) :: NGM(JPG*JPBAND)
+REAL(KIND=JPRB) ::    WT(JPG)
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----  :  ----   : ---------------------------------------------------
+!  NGC   : INTEGER :
+!  NGS   : INTEGER :
+!  NGN   : INTEGER :
+!  NGB   : INTEGER :
+!  NGM   : INTEGER :
+!  WT    : REAL    :
+!    -------------------------------------------------------------------
+END MODULE YOERRTFTR
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoerrto1.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoerrto1.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoerrto1.F90	(revision 1989)
@@ -0,0 +1,35 @@
+MODULE YOERRTO1
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTO1* - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 1
+!     BAND 1:  10-250 cm-1 (low - H2O; high - H2O)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NO1  = 16
+
+REAL(KIND=JPRB) :: FRACREFAO(NO1)  , FRACREFBO(NO1)
+REAL(KIND=JPRB) :: KAO(5,13,NO1)
+REAL(KIND=JPRB) :: KBO(5,13:59,NO1)
+REAL(KIND=JPRB) :: SELFREFO(10,NO1), FORREFO(NO1)
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+!FRACREFAO: REAL    
+!FRACREFBO: REAL
+! FORREFO : REAL
+! KAO     : REAL     
+! KBO     : REAL     
+! SELFREFO: REAL     
+!     -----------------------------------------------------------------
+END MODULE YOERRTO1
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoerrto10.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoerrto10.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoerrto10.F90	(revision 1989)
@@ -0,0 +1,34 @@
+MODULE YOERRTO10
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTO14* - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 10
+!     BAND 10:  1390-1480 cm-1 (low - H2O; high - H2O)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NO10 = 16
+
+REAL(KIND=JPRB) , DIMENSION(NO10) :: FRACREFAO
+REAL(KIND=JPRB) , DIMENSION(NO10) :: FRACREFBO
+
+REAL(KIND=JPRB) :: KAO(5,13,NO10)
+REAL(KIND=JPRB) :: KBO(5,13:59,NO10)
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! FRACREFA: REAL    
+! FRACREFB: REAL    
+! KA      : REAL     
+! KB      : REAL     
+!     -----------------------------------------------------------------
+END MODULE YOERRTO10
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoerrto11.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoerrto11.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoerrto11.F90	(revision 1989)
@@ -0,0 +1,36 @@
+MODULE YOERRTO11
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTO11* - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 11
+!     BAND 11:  1480-1800 cm-1 (low - H2O; high - H2O)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NO11 = 16
+
+REAL(KIND=JPRB) , DIMENSION(NO11) :: FRACREFAO
+REAL(KIND=JPRB) , DIMENSION(NO11) :: FRACREFBO
+
+REAL(KIND=JPRB) :: KAO(5,13,NO11)
+REAL(KIND=JPRB) :: KBO(5,13:59,NO11)
+REAL(KIND=JPRB) :: SELFREFO(10,NO11)
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! FRACREFA: REAL    
+! FRACREFB: REAL    
+! KA      : REAL     
+! KB      : REAL     
+! SELFREF : REAL     
+!     -----------------------------------------------------------------
+END MODULE YOERRTO11
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoerrto12.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoerrto12.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoerrto12.F90	(revision 1989)
@@ -0,0 +1,31 @@
+MODULE YOERRTO12
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTO12* - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 12
+!     BAND 12:  1800-2080 cm-1 (low - H2O,CO2; high - nothing)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NO12 = 16
+
+REAL(KIND=JPRB) :: FRACREFAO(NO12,9)
+REAL(KIND=JPRB) :: KAO(9,5,13,NO12)
+REAL(KIND=JPRB) :: SELFREFO(10,NO12)
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! FRACREFA: REAL    
+! KA      : REAL     
+! SELFREF : REAL
+!     -----------------------------------------------------------------
+END MODULE YOERRTO12
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoerrto13.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoerrto13.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoerrto13.F90	(revision 1989)
@@ -0,0 +1,32 @@
+MODULE YOERRTO13
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTO13* - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 13
+!     BAND 13:  2080-2250 cm-1 (low - H2O,N2O; high - nothing)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NO13 = 16
+
+REAL(KIND=JPRB) :: FRACREFAO(NO13,9)
+
+REAL(KIND=JPRB) :: KAO(9,5,13,NO13)
+REAL(KIND=JPRB) :: SELFREFO(10,NO13)
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! FRACREFA: REAL    
+! KA      : REAL     
+! SELFREF : REAL
+!     -----------------------------------------------------------------
+END MODULE YOERRTO13
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoerrto14.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoerrto14.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoerrto14.F90	(revision 1989)
@@ -0,0 +1,36 @@
+MODULE YOERRTO14
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTO14* - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 14
+!     BAND 14:  2250-2380 cm-1 (low - CO2; high - CO2)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NO14 = 16
+
+REAL(KIND=JPRB) , DIMENSION(NO14) :: FRACREFAO
+REAL(KIND=JPRB) , DIMENSION(NO14) :: FRACREFBO
+
+REAL(KIND=JPRB) :: KAO(5,13,NO14)
+REAL(KIND=JPRB) :: KBO(5,13:59,NO14)
+REAL(KIND=JPRB) :: SELFREFO(10,NO14)
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/01/15
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! FRACREFA: REAL    
+! FRACREFB: REAL    
+! KA      : REAL     
+! KB      : REAL     
+! SELFREF : REAL     
+!     -----------------------------------------------------------------
+END MODULE YOERRTO14
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoerrto15.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoerrto15.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoerrto15.F90	(revision 1989)
@@ -0,0 +1,32 @@
+MODULE YOERRTO15
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTO15* - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 15
+!     BAND 15:  2380-2600 cm-1 (low - N2O,CO2; high - nothing)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NO15 = 16
+
+REAL(KIND=JPRB) :: FRACREFAO(NO15,9)
+
+REAL(KIND=JPRB) :: KAO(9,5,13,NO15)
+REAL(KIND=JPRB) :: SELFREFO(10,NO15)
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! FRACREFA: REAL    
+! KA      : REAL     
+! SELFREF : REAL 
+!     -----------------------------------------------------------------
+END MODULE YOERRTO15
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoerrto16.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoerrto16.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoerrto16.F90	(revision 1989)
@@ -0,0 +1,32 @@
+MODULE YOERRTO16
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTO16* - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 16
+!     BAND 16:  2600-3000 cm-1 (low - H2O,CH4; high - nothing)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NO16 = 16
+
+REAL(KIND=JPRB) :: FRACREFAO(NO16,9)
+
+REAL(KIND=JPRB) :: KAO(9,5,13,NO16)
+REAL(KIND=JPRB) :: SELFREFO(10,NO16)
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! FRACREFA: REAL    
+! KA      : REAL     
+! SELFREF : REAL     
+!     -----------------------------------------------------------------
+END MODULE YOERRTO16
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoerrto2.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoerrto2.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoerrto2.F90	(revision 1989)
@@ -0,0 +1,37 @@
+MODULE YOERRTO2
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTO2* - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 2
+!     BAND 2:  250-500 cm-1 (low - H2O; high - H2O)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NO2  = 16
+
+!     The ith set of reference fractions are from the ith reference
+!     pressure level.
+REAL(KIND=JPRB) :: FRACREFAO(NO2,13), FRACREFBO(NO2)
+REAL(KIND=JPRB) :: KAO(5,13,NO2)
+REAL(KIND=JPRB) :: KBO(5,13:59,NO2)
+REAL(KIND=JPRB) :: SELFREFO(10,NO2) , FORREFO(NO2)
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+!FRACREFAO: REAL    
+!FRACREFBO: REAL
+! KAO     : REAL     
+! KBO     : REAL     
+! SELFREFO: REAL
+! FORREFO : REAL  
+!     -----------------------------------------------------------------
+END MODULE YOERRTO2
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoerrto3.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoerrto3.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoerrto3.F90	(revision 1989)
@@ -0,0 +1,41 @@
+MODULE YOERRTO3
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTO3* - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 3
+!     BAND 3:  500-630 cm-1 (low - H2O,CO2; high - H2O,CO2)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NO3  = 16
+
+REAL(KIND=JPRB) :: FRACREFAO(NO3,10) ,FRACREFBO(NO3,5)
+
+REAL(KIND=JPRB) , DIMENSION(NO3) :: FORREFO
+REAL(KIND=JPRB) , DIMENSION(NO3) :: ABSN2OAO
+REAL(KIND=JPRB) , DIMENSION(NO3) :: ABSN2OBO
+
+REAL(KIND=JPRB) :: KAO(10,5,13,NO3)
+REAL(KIND=JPRB) :: KBO(5,5,13:59,NO3)
+REAL(KIND=JPRB) :: SELFREFO(10,NO3)
+
+!     ------------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! ABSN2OAO: REAL
+! ABSN2OBO: REAL
+!FRACREFAO: REAL    
+!FRACREFBO: REAL
+! KAO     : REAL     
+! KBO     : REAL     
+! SELFREFO: REAL     
+!     -----------------------------------------------------------------
+END MODULE YOERRTO3
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoerrto4.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoerrto4.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoerrto4.F90	(revision 1989)
@@ -0,0 +1,34 @@
+MODULE YOERRTO4
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTO4* - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 4
+!     BAND 4:  630-700 cm-1 (low - H2O,CO2; high - O3,CO2)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NO4  = 16
+
+REAL(KIND=JPRB) :: FRACREFAO(NO4,9)  ,FRACREFBO(NO4,6)
+REAL(KIND=JPRB) :: KAO(9,5,13,NO4)
+REAL(KIND=JPRB) :: KBO(6,5,13:59,NO4)
+REAL(KIND=JPRB) :: SELFREFO(10,NO4)
+
+!     ------------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! FRACREFA: REAL    
+! FRACREFB: REAL
+! KA      : REAL     
+! KB      : REAL     
+! SELFREF : REAL     
+!     -----------------------------------------------------------------
+END MODULE YOERRTO4
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoerrto5.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoerrto5.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoerrto5.F90	(revision 1989)
@@ -0,0 +1,37 @@
+MODULE YOERRTO5
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTO5* - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 5
+!     BAND 5:  700-820 cm-1 (low - H2O,CO2; high - O3,CO2)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NO5  = 16
+
+REAL(KIND=JPRB) :: FRACREFAO(NO5,9) ,FRACREFBO(NO5,5)
+
+REAL(KIND=JPRB) , DIMENSION(NO5) :: CCL4O
+
+REAL(KIND=JPRB) :: KAO(9,5,13,NO5)
+REAL(KIND=JPRB) :: KBO(5,5,13:59,NO5)
+REAL(KIND=JPRB) :: SELFREFO(10,NO5)
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! FRACREFA: REAL    
+! FRACREFB: REAL
+! KA      : REAL     
+! KB      : REAL     
+! SELFREF : REAL     
+!     -----------------------------------------------------------------
+END MODULE YOERRTO5
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoerrto6.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoerrto6.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoerrto6.F90	(revision 1989)
@@ -0,0 +1,36 @@
+MODULE YOERRTO6
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTO6* - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 6
+!     BAND 6:  820-980 cm-1 (low - H2O; high - nothing)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NO6  = 16
+
+REAL(KIND=JPRB) , DIMENSION(NO6) :: FRACREFAO
+
+REAL(KIND=JPRB) , DIMENSION(NO6) :: CFC11ADJO
+REAL(KIND=JPRB) , DIMENSION(NO6) :: CFC12O
+REAL(KIND=JPRB) , DIMENSION(NO6) :: ABSCO2O
+
+REAL(KIND=JPRB) :: KAO(5,13,NO6)
+REAL(KIND=JPRB) :: SELFREFO(10,NO6)
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! FRACREFA: REAL    
+! KA      : REAL     
+! SELFREF : REAL     
+!     -----------------------------------------------------------------
+END MODULE YOERRTO6
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoerrto7.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoerrto7.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoerrto7.F90	(revision 1989)
@@ -0,0 +1,37 @@
+MODULE YOERRTO7
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTO7* - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 7
+!     BAND 7:  980-1080 cm-1 (low - H2O,O3; high - O3)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NO7  = 16
+
+REAL(KIND=JPRB) :: FRACREFAO(NO7,9)
+
+REAL(KIND=JPRB) , DIMENSION(NO7) :: FRACREFBO
+REAL(KIND=JPRB) , DIMENSION(NO7) :: ABSCO2O
+REAL(KIND=JPRB) :: KAO(9,5,13,NO7)
+REAL(KIND=JPRB) :: KBO(5,13:59,NO7)
+REAL(KIND=JPRB) :: SELFREFO(10,NO7)
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! FRACREFA: REAL    
+! FRACREFB: REAL    
+! KA      : REAL     
+! KB      : REAL     
+! SELFREF : REAL  
+!     -----------------------------------------------------------------
+END MODULE YOERRTO7
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoerrto8.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoerrto8.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoerrto8.F90	(revision 1989)
@@ -0,0 +1,48 @@
+MODULE YOERRTO8
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTO8* - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 8
+!     BAND 8:  1080-1180 cm-1 (low (i.e.>~300mb) - H2O; high - O3)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NO8  = 16
+
+REAL(KIND=JPRB) , DIMENSION(NO8) :: FRACREFAO
+REAL(KIND=JPRB) , DIMENSION(NO8) :: FRACREFBO
+REAL(KIND=JPRB) , DIMENSION(NO8) :: CFC12O
+REAL(KIND=JPRB) , DIMENSION(NO8) :: CFC22ADJO
+REAL(KIND=JPRB) , DIMENSION(NO8) :: ABSCO2AO
+REAL(KIND=JPRB) , DIMENSION(NO8) :: ABSCO2BO
+REAL(KIND=JPRB) , DIMENSION(NO8) :: ABSN2OAO
+REAL(KIND=JPRB) , DIMENSION(NO8) :: ABSN2OBO
+
+REAL(KIND=JPRB) :: KAO(5,7,NO8)
+REAL(KIND=JPRB) :: KBO(5,7:59,NO8)
+REAL(KIND=JPRB) :: SELFREFO(10,NO8)
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! ABSCO2A : REAL     
+! ABSCO2B : REAL     
+! ABSN2OA : REAL     
+! ABSN2OB : REAL 
+! CFC12   : REAL     
+! CFC22ADJ: REAL     
+! FRACREFA: REAL    
+! FRACREFB: REAL    
+! KA      : REAL     
+! KB      : REAL     
+! SELFREF : REAL     
+!     -----------------------------------------------------------------
+END MODULE YOERRTO8
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoerrto9.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoerrto9.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoerrto9.F90	(revision 1989)
@@ -0,0 +1,44 @@
+MODULE YOERRTO9
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTO9* - RRTM ORIGINAL COEFFICIENTS FOR INTERVAL 9
+!     BAND 9:  1180-1390 cm-1 (low - H2O,CH4; high - CH4)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: NO9  = 16
+
+REAL(KIND=JPRB) :: FRACREFAO(NO9,9)
+
+REAL(KIND=JPRB) , DIMENSION(NO9) :: FRACREFBO
+! 48 = 3*NO9      
+REAL(KIND=JPRB) , DIMENSION(48) :: ABSN2OO
+
+REAL(KIND=JPRB) :: KAO(11,5,13,NO9)
+REAL(KIND=JPRB) :: KBO(5,13:59,NO9)
+REAL(KIND=JPRB) :: SELFREFO(10,NO9)
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! ABSN2O  : REAL    
+! CH4REF  : REAL
+! ETAREF  : REAL
+! FRACREFA: REAL    
+! FRACREFB: REAL
+! H2OREF  : REAL
+! N2OREF  : REAL
+! KA      : REAL     
+! KB      : REAL     
+! SELFREF : REAL     
+!     -----------------------------------------------------------------
+END MODULE YOERRTO9
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoerrtrf.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoerrtrf.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoerrtrf.F90	(revision 1989)
@@ -0,0 +1,28 @@
+MODULE YOERRTRF
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOERRTRF* - RRTM REFERENCE ATMOSPHERE
+!     -----------------------------------------------------------------
+
+REAL(KIND=JPRB) , DIMENSION(59) :: PREF
+REAL(KIND=JPRB) , DIMENSION(59) :: PREFLOG
+REAL(KIND=JPRB) , DIMENSION(59) :: TREF
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/01/15
+
+!  NAME     TYPE     PURPOSE
+!  ----  :  ----   : ---------------------------------------------------
+! PREF   :  REAL    
+! PREFLOG: REAL
+! TREF   : REAL
+!     -----------------------------------------------------------------
+END MODULE YOERRTRF
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoerrtrwt.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoerrtrwt.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoerrtrwt.F90	(revision 1989)
@@ -0,0 +1,34 @@
+MODULE YOERRTRWT
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+USE PARRRTM
+
+IMPLICIT NONE
+
+SAVE
+
+!    -------------------------------------------------------------------
+
+!    -------------------------------------------------------------------
+
+REAL(KIND=JPRB) :: FREFA  (JPGPT,13)
+REAL(KIND=JPRB) :: FREFB  (JPGPT,6)
+REAL(KIND=JPRB) :: FREFADF(JPGPT,13)
+REAL(KIND=JPRB) :: FREFBDF(JPGPT,6)
+REAL(KIND=JPRB) :: RWGT   (JPG*JPBAND)
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----  :  ----   : ---------------------------------------------------
+! FREFA  :  REAL   :
+! FREFB  :  REAL   :
+! FREFADF:  REAL   :
+! FREFBDF:  REAL   :
+! RWT    :  REAL   : 
+!    -------------------------------------------------------------------
+END MODULE YOERRTRWT
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoerrtwn.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoerrtwn.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoerrtwn.F90	(revision 1989)
@@ -0,0 +1,38 @@
+MODULE YOERRTWN
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!    -------------------------------------------------------------------
+
+INTEGER(KIND=JPIM) , DIMENSION(16) :: NG
+INTEGER(KIND=JPIM) , DIMENSION(16) :: NSPA
+INTEGER(KIND=JPIM) , DIMENSION(16) :: NSPB
+
+REAL(KIND=JPRB) , DIMENSION(16) :: WAVENUM1
+REAL(KIND=JPRB) , DIMENSION(16) :: WAVENUM2
+REAL(KIND=JPRB) , DIMENSION(16) :: DELWAVE
+
+REAL(KIND=JPRB) , DIMENSION(181,16) :: TOTPLNK
+REAL(KIND=JPRB) , DIMENSION(181)    :: TOTPLK16
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM LW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      98/01/15
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----    : -------
+!  NG     : INTEGER : Number of k-coefficients in spectral intervals
+!  NSPA   : INTEGER :
+!  NSPB   : INTEGER :
+! WAVENUM1: REAL    : Lower wavenumber spectral limit
+! WAVENUM2: REAL    : Higher wavenumber spectral limit
+! DELWAVE : REAL    : Spectral interval width
+! TOTPLNK : REAL    :
+! TOTPLK16: REAL    :
+!     -----------------------------------------------------------------
+END MODULE YOERRTWN
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoesat.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoesat.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoesat.F90	(revision 1989)
@@ -0,0 +1,55 @@
+MODULE YOESAT
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOESAT* - CONTROL OF SIMULATION OF SATELLITE RADIANCES
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM) :: NGEO
+INTEGER(KIND=JPIM) :: NPOLO
+REAL(KIND=JPRB) :: RGALT(5)
+REAL(KIND=JPRB) :: RGNAD(5)
+REAL(KIND=JPRB) :: RGNOR(5)
+REAL(KIND=JPRB) :: RGSOU(5)
+REAL(KIND=JPRB) :: RGWST(5)
+REAL(KIND=JPRB) :: RGEAS(5)
+LOGICAL :: LGEOSE
+LOGICAL :: LGEOSW
+LOGICAL :: LGMS
+LOGICAL :: LINDSA
+LOGICAL :: LMTO
+LOGICAL :: LNOAA
+LOGICAL :: LNOAB
+LOGICAL :: LNOAC
+LOGICAL :: LNOAD
+
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
+
+!  NAME    TYPE     PURPOSE
+!  ---- :  ----   : ---------------------------------------------------
+! NGEO  : INTEGER : NUMBER OF GEOSTATIONARY SATELLITES
+! NPOLO : INTEGER : NUMBER OF POLAR-ORBITER SATELLITES
+! LGEOSE: LOGICAL : SWITCH FOR GEOS-EAST
+! LGEOSW: LOGICAL : SWITCH FOR GEOS-WEST
+! LGMS  : LOGICAL : SWITCH FOR GMS
+! LINDSA: LOGICAL : SWITCH FOR INDSAT
+! LMTO  : LOGICAL : SWITCH FOR METEOSAT
+! LNOAA : LOGICAL : SWITCH FOR NOAA-A
+! LNOAB : LOGICAL : SWITCH FOR NOAA-B
+! LNOAC : LOGICAL : SWITCH FOR NOAA-C
+! LNOAD : LOGICAL : SWITCH FOR NOAA-D
+! RGALT : REAL    : ALTITUDE ABOVE EARTH'S SURFACE OF GEOSTAT. SATELLITE
+! RGNAD : REAL    : LONGITUDE OF NADIR OF GEOSTATIONARY SATELLITE
+! RGNOR : REAL    : LATITUDE OF NORTH LIMIT OF FIELD OF VIEW
+! RGSOU : REAL    : LATITUDE OF SOUTH LIMIT OF FIELD OF VIEW
+! RGWST : REAL    : LATITUDE OF WEST  LIMIT OF FIELD OF VIEW
+! RGEAS : REAL    : LATITUDE OF EAST  LIMIT OF FIELD OF VIEW
+!     -----------------------------------------------------------------
+END MODULE YOESAT
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoesrta16.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoesrta16.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoesrta16.F90	(revision 1989)
@@ -0,0 +1,54 @@
+MODULE YOESRTA16
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOESRTA16* - SRTM COEFFICIENTS FOR INTERVAL 16
+!     BAND 16:  2600-3250 cm-1 (low - H2O,CH4; high - CH4)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: JPG=16, NG16 = 16, NGS15 = 0
+
+REAL(KIND=JPRB) :: KA(9,5,13,JPG) 
+REAL(KIND=JPRB) :: KB(5,13:59,JPG)
+REAL(KIND=JPRB) :: SELFREF(10,JPG),FORREF(3,JPG)
+REAL(KIND=JPRB) :: SFLUXREF(JPG)
+REAL(KIND=JPRB) :: RAYL            ,STRRAT1
+INTEGER(KIND=JPIM) :: LAYREFFR
+
+REAL(KIND=JPRB) :: KAC(9,5,13,NG16),ABSA(585,NG16)
+REAL(KIND=JPRB) :: KBC(5,13:59,NG16),ABSB(235,NG16)
+REAL(KIND=JPRB) :: SELFREFC(10,NG16),FORREFC(3,NG16)
+REAL(KIND=JPRB) :: SFLUXREFC(NG16)
+
+!EQUIVALENCE (KA(1,1,1,1),ABSA(1,1)), (KB(1,13,1),ABSB(1,1))
+EQUIVALENCE (KAC(1,1,1,1),ABSA(1,1)), (KBC(1,13,1),ABSB(1,1))
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM SW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      02/10/29
+!     M. J. IACONO          AER             12/09/03
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! KA      : REAL 
+! KB      : REAL    
+! SELFREF : REAL 
+! FORREF  : REAL   
+! SFLUXREF: REAL
+! RAYL    : REAL 
+! STRRAT1 : REAL
+! LAYREFFR: INTEGER
+! KAC     : REAL     Reduced g-point array for KA
+! KBC     : REAL     Reduced g-point array for KB
+! SELFREFC: REAL     Reduced g-point array for SELFREF
+! FORREFC : REAL     Reduced g-point array for FORREF
+!SFLUXREFC: REAL     Reduced g-point array for SFLUXREF
+!     -----------------------------------------------------------------
+END MODULE YOESRTA16
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoesrta17.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoesrta17.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoesrta17.F90	(revision 1989)
@@ -0,0 +1,53 @@
+MODULE YOESRTA17
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOESRTA17* - SRTM COEFFICIENTS FOR INTERVAL 17
+!     BAND 17:  3250-4000 cm-1 (low - H2O,CO2; high - H2O,CO2)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER ::  JPG = 16, NG17 = 16, NGS16=16
+
+REAL(KIND=JPRB) :: KA(9,5,13,JPG)  
+REAL(KIND=JPRB) :: KB(5,5,13:59,JPG)
+REAL(KIND=JPRB) :: SELFREF(10,JPG)  ,FORREF(4,JPG)
+REAL(KIND=JPRB) :: SFLUXREF(JPG,5)
+REAL(KIND=JPRB) :: RAYL              ,STRRAT
+INTEGER(KIND=JPIM) :: LAYREFFR
+
+REAL(KIND=JPRB) :: KAC(9,5,13,NG17),ABSA(585,NG17)
+REAL(KIND=JPRB) :: KBC(5,5,13:59,NG17),ABSB(1175,NG17)
+REAL(KIND=JPRB) :: SELFREFC(10,NG17),FORREFC(4,NG17)
+REAL(KIND=JPRB) :: SFLUXREFC(NG17,5)
+
+!EQUIVALENCE (KA(1,1,1,1),ABSA(1,1)), (KB(1,1,13,1),ABSB(1,1))
+EQUIVALENCE (KAC(1,1,1,1),ABSA(1,1)), (KBC(1,1,13,1),ABSB(1,1))
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM SW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      02/10/29
+!     M. J. IACONO          AER             12/09/03
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! KA      : REAL 
+! KB      : REAL    
+! SELFREF : REAL 
+! FORREF  : REAL  
+! SFLUXREF: REAL  
+! RAYL    : REAL
+! STRRAT  : REAL
+! LAYREFFR: INTEGER 
+! KAC     : REAL     Reduced g-point array for KA
+! KBC     : REAL     Reduced g-point array for KB
+! SELFREFC: REAL     Reduced g-point array for SELFREF
+! FORREFC : REAL     Reduced g-point array for FORREF
+!SFLUXREFC: REAL     Reduced g-point array for SFLUXREF
+!     -----------------------------------------------------------------
+END MODULE YOESRTA17
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoesrta18.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoesrta18.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoesrta18.F90	(revision 1989)
@@ -0,0 +1,55 @@
+MODULE YOESRTA18
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOESRTA18* - SRTM COEFFICIENTS FOR INTERVAL 16
+!     BAND 18:  4000-4650 cm-1 (low - H2O,CH4; high - CH4)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: JPG = 16, NG18 = 16, NGS17=32
+
+REAL(KIND=JPRB) :: KA(9,5,13,JPG) 
+REAL(KIND=JPRB) :: KB(5,13:59,JPG)
+REAL(KIND=JPRB) :: SELFREF(10,JPG),FORREF(3,JPG)
+REAL(KIND=JPRB) :: SFLUXREF(JPG,9)
+REAL(KIND=JPRB) :: RAYL            ,STRRAT
+
+INTEGER(KIND=JPIM) :: LAYREFFR
+
+REAL(KIND=JPRB) :: KAC(9,5,13,NG18) ,ABSA(585,NG18)
+REAL(KIND=JPRB) :: KBC(5,13:59,NG18),ABSB(235,NG18)
+REAL(KIND=JPRB) :: SELFREFC(10,NG18),FORREFC(3,NG18)
+REAL(KIND=JPRB) :: SFLUXREFC(NG18,9)
+
+!EQUIVALENCE (KA(1,1,1,1),ABSA(1,1)), (KB(1,13,1),ABSB(1,1))
+EQUIVALENCE (KAC(1,1,1,1),ABSA(1,1)), (KBC(1,13,1),ABSB(1,1))
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM SW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      02/10/29
+!     M. J. IACONO          AER             12/09/03
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! KA      : REAL 
+! KB      : REAL    
+! SELFREF : REAL 
+! FORREF  : REAL   
+! SFLUXREF: REAL 
+! RAYL    : REAL
+! STRRAT  : REAL
+! LAYREFFR: INTEGER
+! KAC     : REAL     Reduced g-point array for KA
+! KBC     : REAL     Reduced g-point array for KB
+! SELFREFC: REAL     Reduced g-point array for SELFREF
+! FORREFC : REAL     Reduced g-point array for FORREF
+!SFLUXREFC: REAL     Reduced g-point array for SFLUXREF
+!     -----------------------------------------------------------------
+END MODULE YOESRTA18
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoesrta19.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoesrta19.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoesrta19.F90	(revision 1989)
@@ -0,0 +1,53 @@
+MODULE YOESRTA19
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOESRTA19* - SRTM COEFFICIENTS FOR INTERVAL 19
+!     BAND 19:  4650-5150 cm-1 (low - H2O,CO2; high - CO2)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: JPG = 16, NG19 = 16
+
+REAL(KIND=JPRB) :: KA(9,5,13,JPG) 
+REAL(KIND=JPRB) :: KB(5,13:59,JPG)
+REAL(KIND=JPRB) :: SELFREF(10,JPG),FORREF(3,JPG)
+REAL(KIND=JPRB) :: SFLUXREF(JPG,9)
+REAL(KIND=JPRB) :: RAYL            ,STRRAT
+INTEGER(KIND=JPIM) :: LAYREFFR
+
+REAL(KIND=JPRB) :: KAC(9,5,13,NG19) ,ABSA(585,NG19)
+REAL(KIND=JPRB) :: KBC(5,13:59,NG19),ABSB(235,NG19)
+REAL(KIND=JPRB) :: SELFREFC(10,NG19),FORREFC(3,NG19)
+REAL(KIND=JPRB) :: SFLUXREFC(NG19,9)
+
+!EQUIVALENCE (KA(1,1,1,1),ABSA(1,1)), (KB(1,13,1),ABSB(1,1))
+EQUIVALENCE (KAC(1,1,1,1),ABSA(1,1)), (KBC(1,13,1),ABSB(1,1))
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM SW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      02/10/29
+!     M. J. IACONO          AER             12/09/03
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! KA      : REAL 
+! KB      : REAL    
+! SELFREF : REAL 
+! FORREF  : REAL
+! SFLUXREF: REAL  
+! RAYL    : REAL  
+! STRRAT  : REAL
+! LAYREFFR: INTEGER
+! KAC     : REAL     Reduced g-point array for KA
+! KBC     : REAL     Reduced g-point array for KB
+! SELFREFC: REAL     Reduced g-point array for SELFREF
+! FORREFC : REAL     Reduced g-point array for FORREF
+!SFLUXREFC: REAL     Reduced g-point array for SFLUXREF
+!     -----------------------------------------------------------------
+END MODULE YOESRTA19
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoesrta20.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoesrta20.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoesrta20.F90	(revision 1989)
@@ -0,0 +1,55 @@
+MODULE YOESRTA20
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOESRTA20* - SRTM COEFFICIENTS FOR INTERVAL 20
+!     BAND 20:  5150-6150 cm-1 (low - H2O; high - H2O)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: JPG = 16, NG20 = 16
+
+REAL(KIND=JPRB) :: KA(5,13,JPG)   
+REAL(KIND=JPRB) :: KB(5,13:59,JPG)
+REAL(KIND=JPRB) :: SELFREF(10,JPG),FORREF(4,JPG)
+REAL(KIND=JPRB) :: SFLUXREF(JPG)  ,ABSCH4(JPG)
+REAL(KIND=JPRB) :: RAYL
+INTEGER(KIND=JPIM) :: LAYREFFR
+
+REAL(KIND=JPRB) :: KAC(5,13,NG20)   ,ABSA(65,NG20)
+REAL(KIND=JPRB) :: KBC(5,13:59,NG20),ABSB(235,NG20)
+REAL(KIND=JPRB) :: SELFREFC(10,NG20),FORREFC(4,NG20)
+REAL(KIND=JPRB) :: SFLUXREFC(NG20)  ,ABSCH4C(NG20)
+
+!EQUIVALENCE (KA(1,1,1),ABSA(1,1)), (KB(1,13,1),ABSB(1,1))
+EQUIVALENCE (KAC(1,1,1),ABSA(1,1)), (KBC(1,13,1),ABSB(1,1))
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM SW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      02/10/29
+!     M. J. IACONO          AER             12/09/03
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! KA      : REAL 
+! KB      : REAL    
+! SELFREF : REAL 
+! FORREF  : REAL  
+! SFLUXREF: REAL
+! ABSCH4  : REAL  
+! RAYL    : REAL
+! LAYREFFR: INTEGER
+! KAC     : REAL     Reduced g-point array for KA
+! KBC     : REAL     Reduced g-point array for KB
+! SELFREFC: REAL     Reduced g-point array for SELFREF
+! FORREFC : REAL     Reduced g-point array for FORREF
+!SFLUXREFC: REAL     Reduced g-point array for SFLUXREF
+! ABSCH4C : REAL     Reduced g-point array for ABSCH4
+!     -----------------------------------------------------------------
+END MODULE YOESRTA20
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoesrta21.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoesrta21.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoesrta21.F90	(revision 1989)
@@ -0,0 +1,54 @@
+MODULE YOESRTA21
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOESRTA21* - SRTM COEFFICIENTS FOR INTERVAL 21
+!     BAND 21:  6150-7700 cm-1 (low - H2O,CO2; high - H2O,CO2)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: JPG = 16, NG21 = 16
+
+REAL(KIND=JPRB) :: KA(9,5,13,JPG)   
+REAL(KIND=JPRB) :: KB(5,5,13:59,JPG)
+REAL(KIND=JPRB) :: SELFREF(10,JPG)  ,FORREF(4,JPG)
+REAL(KIND=JPRB) :: SFLUXREF(JPG,9)
+REAL(KIND=JPRB) :: RAYL              ,STRRAT
+INTEGER(KIND=JPIM) :: LAYREFFR
+
+REAL(KIND=JPRB) :: KAC(9,5,13,NG21)   ,ABSA(585,NG21)
+REAL(KIND=JPRB) :: KBC(5,5,13:59,NG21),ABSB(1175,NG21)
+REAL(KIND=JPRB) :: SELFREFC(10,NG21)  ,FORREFC(4,NG21)
+REAL(KIND=JPRB) :: SFLUXREFC(NG21,9)
+
+EQUIVALENCE (KA(1,1,1,1),ABSA(1,1)), (KB(1,1,13,1),ABSB(1,1))
+!EQUIVALENCE (KAC(1,1,1,1),ABSA(1,1)), (KBC(1,1,13,1),ABSB(1,1))
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM SW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      02/10/29
+!     M. J. IACONO          AER             12/09/03
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! KA      : REAL 
+! KB      : REAL    
+! SELFREF : REAL 
+! FORREF  : REAL    
+! SFLUXREF: REAL
+! RAYL    : REAL
+! STRRAT  : REAL
+! LAYREFFR: INTEGER
+! KAC     : REAL     Reduced g-point array for KA
+! KBC     : REAL     Reduced g-point array for KB
+! SELFREFC: REAL     Reduced g-point array for SELFREF
+! FORREFC : REAL     Reduced g-point array for FORREF
+!SFLUXREFC: REAL     Reduced g-point array for SFLUXREF
+!     -----------------------------------------------------------------
+END MODULE YOESRTA21
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoesrta22.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoesrta22.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoesrta22.F90	(revision 1989)
@@ -0,0 +1,54 @@
+MODULE YOESRTA22
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOESRTA22* - SRTM COEFFICIENTS FOR INTERVAL 22
+!     BAND 22:  7700-8050 cm-1 (low - H2O,O2; high - O2)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: JPG = 16, NG22 = 16
+
+REAL(KIND=JPRB) :: KA(9,5,13,JPG) 
+REAL(KIND=JPRB) :: KB(5,13:59,JPG)
+REAL(KIND=JPRB) :: SELFREF(10,JPG),FORREF(3,JPG)
+REAL(KIND=JPRB) :: SFLUXREF(JPG,9)
+REAL(KIND=JPRB) :: RAYL            ,STRRAT
+INTEGER(KIND=JPIM) :: LAYREFFR
+
+REAL(KIND=JPRB) :: KAC(9,5,13,NG22) ,ABSA(585,NG22)
+REAL(KIND=JPRB) :: KBC(5,13:59,NG22),ABSB(235,NG22)
+REAL(KIND=JPRB) :: SELFREFC(10,NG22),FORREFC(3,NG22)
+REAL(KIND=JPRB) :: SFLUXREFC(NG22,9)
+
+!EQUIVALENCE (KA(1,1,1,1),ABSA(1,1)), (KB(1,13,1),ABSB(1,1))
+EQUIVALENCE (KAC(1,1,1,1),ABSA(1,1)), (KBC(1,13,1),ABSB(1,1))
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM SW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      02/10/29
+!     M. J. IACONO          AER             12/09/03
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! KA      : REAL 
+! KB      : REAL    
+! SELFREF : REAL 
+! FORREF  : REAL    
+! SFLUXREF: REAL
+! RAYL    : REAL
+! STRRAT  : REAL
+! LAYREFFR: INTEGER
+! KAC     : REAL     Reduced g-point array for KA
+! KBC     : REAL     Reduced g-point array for KB
+! SELFREFC: REAL     Reduced g-point array for SELFREF
+! FORREFC : REAL     Reduced g-point array for FORREF
+!SFLUXREFC: REAL     Reduced g-point array for SFLUXREF
+!     -----------------------------------------------------------------
+END MODULE YOESRTA22
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoesrta23.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoesrta23.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoesrta23.F90	(revision 1989)
@@ -0,0 +1,51 @@
+MODULE YOESRTA23
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOESRTA23* - SRTM COEFFICIENTS FOR INTERVAL 23
+!     BAND 23:  8050-12850 cm-1 (low - H2O; high - nothing)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: JPG = 16, NG23 = 16
+
+REAL(KIND=JPRB) :: KA(5,13,JPG)   
+REAL(KIND=JPRB) :: SELFREF(10,JPG),FORREF(3,JPG)
+REAL(KIND=JPRB) :: SFLUXREF(JPG)  ,RAYL(JPG)
+REAL(KIND=JPRB) :: GIVFAC
+INTEGER(KIND=JPIM) :: LAYREFFR
+
+REAL(KIND=JPRB) :: KAC(5,13,NG23)   ,ABSA(65,NG23)
+REAL(KIND=JPRB) :: SELFREFC(10,NG23),FORREFC(3,NG23)
+REAL(KIND=JPRB) :: SFLUXREFC(NG23)  ,RAYLC(NG23)
+
+!EQUIVALENCE (KA(1,1,1),ABSA(1,1))
+EQUIVALENCE (KAC(1,1,1),ABSA(1,1))
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM SW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      02/10/29
+!     M. J. IACONO          AER             12/09/03
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! KA      : REAL 
+! SELFREF : REAL 
+! FORREF  : REAL    
+! SFLUXREF: REAL
+! RAYL    : REAL
+! GIVFAC  : REAL
+! LAYREFFR: INTEGER
+! KAC     : REAL     Reduced g-point array for KA
+! SELFREFC: REAL     Reduced g-point array for SELFREF
+! FORREFC : REAL     Reduced g-point array for FORREF
+!SFLUXREFC: REAL     Reduced g-point array for SFLUXREF
+! RAYLC   : REAL     Reduced g-point array for RAYL
+!     -----------------------------------------------------------------
+END MODULE YOESRTA23
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoesrta24.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoesrta24.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoesrta24.F90	(revision 1989)
@@ -0,0 +1,63 @@
+MODULE YOESRTA24
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOESRTA24* - SRTM COEFFICIENTS FOR INTERVAL 24
+!     BAND 24: 12850-16000 cm-1 (low - H2O,O2; high - O2)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: JPG = 16, NG24 = 16
+
+REAL(KIND=JPRB) :: KA(9,5,13,JPG) 
+REAL(KIND=JPRB) :: KB(5,13:59,JPG)
+REAL(KIND=JPRB) :: SELFREF(10,JPG),FORREF(3,JPG)
+REAL(KIND=JPRB) :: SFLUXREF(JPG,9)
+REAL(KIND=JPRB) :: ABSO3A(JPG), ABSO3B(JPG), RAYLA(JPG,9), RAYLB(JPG)
+REAL(KIND=JPRB) :: STRRAT
+INTEGER(KIND=JPIM) :: LAYREFFR
+
+REAL(KIND=JPRB) :: KAC(9,5,13,NG24) ,ABSA(585,NG24)
+REAL(KIND=JPRB) :: KBC(5,13:59,NG24),ABSB(235,NG24)
+REAL(KIND=JPRB) :: SELFREFC(10,NG24),FORREFC(3,NG24)
+REAL(KIND=JPRB) :: SFLUXREFC(NG24,9)
+REAL(KIND=JPRB) :: ABSO3AC(NG24), ABSO3BC(NG24), RAYLAC(NG24,9), RAYLBC(NG24)
+
+!EQUIVALENCE (KA(1,1,1,1),ABSA(1,1)), (KB(1,13,1),ABSB(1,1))
+EQUIVALENCE (KAC(1,1,1,1),ABSA(1,1)), (KBC(1,13,1),ABSB(1,1))
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM SW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      02/10/29
+!     M. J. IACONO          AER             12/09/03
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! KA      : REAL 
+! KB      : REAL    
+! SELFREF : REAL 
+! FORREF  : REAL 
+! SFLUXREF: REAL
+! ABSO3A  : REAL
+! ABSO3B  : REAL
+! RAYLA   : REAL
+! RAYLB   : REAL   
+! STRRAT  : REAL
+! LAYREFFR: INTEGER
+! KAC     : REAL     Reduced g-point array for KA
+! KBC     : REAL     Reduced g-point array for KB
+! SELFREFC: REAL     Reduced g-point array for SELFREF
+! FORREFC : REAL     Reduced g-point array for FORREF
+!SFLUXREFC: REAL     Reduced g-point array for SFLUXREF
+! ABSO3AC : REAL     Reduced g-point array for ABSO3A
+! ABSO3BC : REAL     Reduced g-point array for ABSO3B
+! RAYLAC  : REAL     Reduced g-point array for RAYLA
+! RAYLBC  : REAL     Reduced g-point array for RAYLB
+!     -----------------------------------------------------------------
+END MODULE YOESRTA24
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoesrta25.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoesrta25.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoesrta25.F90	(revision 1989)
@@ -0,0 +1,49 @@
+MODULE YOESRTA25
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOESRTA25* - SRTM COEFFICIENTS FOR INTERVAL 25
+!     BAND 25: 16000-22650 cm-1 (low - H2O; high - nothing)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: JPG = 16, NG25 = 16
+
+REAL(KIND=JPRB) :: KA(5,13,JPG) 
+REAL(KIND=JPRB) :: SFLUXREF(JPG)
+REAL(KIND=JPRB) :: RAYL(JPG), ABSO3A(JPG), ABSO3B(JPG)
+INTEGER(KIND=JPIM) :: LAYREFFR
+
+REAL(KIND=JPRB) :: KAC(5,13,NG25) ,ABSA(65,NG25)
+REAL(KIND=JPRB) :: SFLUXREFC(NG25)
+REAL(KIND=JPRB) :: RAYLC(NG25), ABSO3AC(NG25), ABSO3BC(NG25)
+
+!EQUIVALENCE (KA(1,1,1),ABSA(1,1))
+EQUIVALENCE (KAC(1,1,1),ABSA(1,1))
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM SW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      02/10/29
+!     M. J. IACONO          AER             12/09/03
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! KA      : REAL 
+! SFLUXREF: REAL
+! RAYL    : REAL
+! ABSO3A  : REAL
+! ABSO3B  : REAL
+! LAYREFFR: INTEGER
+! KAC     : REAL     Reduced g-point array for KA
+!SFLUXREFC: REAL     Reduced g-point array for SFLUXREF
+! RAYLC   : REAL     Reduced g-point array for RAYL
+! ABSO3AC : REAL     Reduced g-point array for ABSO3A
+! ABSO3BC : REAL     Reduced g-point array for ABSO3B
+!     -----------------------------------------------------------------
+END MODULE YOESRTA25
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoesrta26.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoesrta26.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoesrta26.F90	(revision 1989)
@@ -0,0 +1,34 @@
+MODULE YOESRTA26
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOESRTA26* - SRTM COEFFICIENTS FOR INTERVAL 26
+!     BAND 26: 22650-29000 cm-1 (low - nothing; high - nothing)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: JPG = 16, NG26 = 16
+
+REAL(KIND=JPRB) :: SFLUXREF(JPG), RAYL(JPG)
+
+REAL(KIND=JPRB) :: SFLUXREFC(NG26), RAYLC(NG26)
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM SW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      02/10/29
+!     M. J. IACONO          AER             12/09/03
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! SFLUXREF: REAL    
+! RAYL    : REAL 
+!SFLUXREFC: REAL     Reduced g-point array for SFLUXREF
+! RAYLC   : REAL     Reduced g-point array for RAYL
+!     -----------------------------------------------------------------
+END MODULE YOESRTA26
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoesrta27.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoesrta27.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoesrta27.F90	(revision 1989)
@@ -0,0 +1,50 @@
+MODULE YOESRTA27
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOESRTA27* - SRTM COEFFICIENTS FOR INTERVAL 27
+!     BAND 27: 29000-38000 cm-1 (low - O3; high - O3)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: JPG = 16, NG27 = 16
+
+REAL(KIND=JPRB) :: KA(5,13,JPG)   
+REAL(KIND=JPRB) :: KB(5,13:59,JPG)
+REAL(KIND=JPRB) :: SFLUXREF(JPG)  ,RAYL(JPG)
+REAL(KIND=JPRB) :: SCALEKUR
+INTEGER(KIND=JPIM) :: LAYREFFR
+
+REAL(KIND=JPRB) :: KAC(5,13,NG27)   ,ABSA(65,NG27)
+REAL(KIND=JPRB) :: KBC(5,13:59,NG27),ABSB(235,NG27)
+REAL(KIND=JPRB) :: SFLUXREFC(NG27)  ,RAYLC(NG27)
+
+!EQUIVALENCE (KA(1,1,1),ABSA(1,1)), (KB(1,13,1),ABSB(1,1))
+EQUIVALENCE (KAC(1,1,1),ABSA(1,1)), (KBC(1,13,1),ABSB(1,1))
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM SW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      02/10/29
+!     M. J. IACONO          AER             12/09/03
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! FRACREFA: REAL    
+! KA      : REAL 
+! KB      : REAL    
+! SFLUXREF: REAL 
+! RAYL    : REAL    
+! SCALEKUR: REAL
+! LAYREFFR:INTEGER
+! KAC     : REAL     Reduced g-point array for KA
+! KBC     : REAL     Reduced g-point array for KB
+!SFLUXREFC: REAL     Reduced g-point array for SFLUXREF
+! RAYLC   : REAL     Reduced g-point array for RAYL
+!     -----------------------------------------------------------------
+END MODULE YOESRTA27
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoesrta28.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoesrta28.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoesrta28.F90	(revision 1989)
@@ -0,0 +1,48 @@
+MODULE YOESRTA28
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOESRTA28* - SRTM COEFFICIENTS FOR INTERVAL 28
+!     BAND 28: 38000-50000 cm-1 (low - O3, O2; high - O3, O2)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: JPG = 16, NG28 = 16
+
+REAL(KIND=JPRB) :: KA(9,5,13,JPG)   
+REAL(KIND=JPRB) :: KB(5,5,13:59,JPG)
+REAL(KIND=JPRB) :: SFLUXREF(JPG,5)
+REAL(KIND=JPRB) :: RAYL              ,STRRAT
+INTEGER(KIND=JPIM) :: LAYREFFR
+
+REAL(KIND=JPRB) :: KAC(9,5,13,NG28)   ,ABSA(585,NG28)
+REAL(KIND=JPRB) :: KBC(5,5,13:59,NG28),ABSB(1175,NG28)
+REAL(KIND=JPRB) :: SFLUXREFC(NG28,5)
+
+!EQUIVALENCE (KA(1,1,1,1),ABSA(1,1)), (KB(1,1,13,1),ABSB(1,1))
+EQUIVALENCE (KAC(1,1,1,1),ABSA(1,1)), (KBC(1,1,13,1),ABSB(1,1))
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM SW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      02/10/29
+!     M. J. IACONO          AER             12/09/03
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! KA      : REAL 
+! KB      : REAL    
+! SFLUXREF: REAL 
+! RAYL    : REAL    
+! STRRAT  : REAL
+! LAYREFFR: INTEGER
+! KAC     : REAL     Reduced g-point array for KA
+! KBC     : REAL     Reduced g-point array for KB
+!SFLUXREFC: REAL     Reduced g-point array for SFLUXREF
+!     -----------------------------------------------------------------
+END MODULE YOESRTA28
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoesrta29.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoesrta29.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoesrta29.F90	(revision 1989)
@@ -0,0 +1,57 @@
+MODULE YOESRTA29
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOESRTA29* - SRTM COEFFICIENTS FOR INTERVAL 29
+!     BAND 29:  820-2600 cm-1 (low - H2O; high - CO2)
+!     -----------------------------------------------------------------
+
+INTEGER(KIND=JPIM), PARAMETER :: JPG = 16, NG29 = 16
+
+REAL(KIND=JPRB) :: KA(5,13,JPG)   
+REAL(KIND=JPRB) :: KB(5,13:59,JPG)
+REAL(KIND=JPRB) :: SELFREF(10,JPG),FORREF(4,JPG)
+REAL(KIND=JPRB) :: SFLUXREF(JPG)  ,ABSH2O(JPG)  , ABSCO2(JPG)
+REAL(KIND=JPRB) :: RAYL
+INTEGER(KIND=JPIM) :: LAYREFFR
+
+REAL(KIND=JPRB) :: KAC(5,13,NG29)   ,ABSA(65,NG29)
+REAL(KIND=JPRB) :: KBC(5,13:59,NG29),ABSB(235,NG29)
+REAL(KIND=JPRB) :: SELFREFC(10,NG29),FORREFC(4,NG29)
+REAL(KIND=JPRB) :: SFLUXREFC(NG29)  ,ABSH2OC(NG29)  , ABSCO2C(NG29)
+
+!EQUIVALENCE (KA(1,1,1),ABSA(1,1)), (KB(1,13,1),ABSB(1,1))
+EQUIVALENCE (KAC(1,1,1),ABSA(1,1)), (KBC(1,13,1),ABSB(1,1))
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM SW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      02/10/29
+!     M. J. IACONO          AER             12/09/03
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! KA      : REAL 
+! KB      : REAL    
+! SELFREF : REAL 
+! FORREF  : REAL 
+! SFLUXREF: REAL
+! ABSH2O  : REAL
+! ABSCO2  : REAL   
+! RAYL    : REAL
+! LAYREFFR: INTEGER
+! KAC     : REAL     Reduced g-point array for KA
+! KBC     : REAL     Reduced g-point array for KB
+! SELFREFC: REAL     Reduced g-point array for SELFREF
+! FORREFC : REAL     Reduced g-point array for FORREF
+!SFLUXREFC: REAL     Reduced g-point array for SFLUXREF
+! ABSH2OC : REAL     Reduced g-point array for ABSH2O
+! ABSCO2C : REAL     Reduced g-point array for ABSCO2
+!     -----------------------------------------------------------------
+END MODULE YOESRTA29
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoesrtaer.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoesrtaer.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoesrtaer.F90	(revision 1989)
@@ -0,0 +1,35 @@
+MODULE YOESRTAER
+
+USE PARKIND1  ,ONLY : JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*    ** *YOESRTAER* - AEROSOL OPTICAL PROPERTIES FOR SRTM 
+!     ------------------------------------------------------------------
+
+!-- AEROSOL OPTICAL PROPERTIES
+
+!-- coefficients and parameters related to SRTM_SW 16 sp.int.
+
+REAL(KIND=JPRB) :: RSRTAUA(14,6)
+REAL(KIND=JPRB) :: RSRPIZA(14,6)
+REAL(KIND=JPRB) :: RSRASYA(14,6)
+
+!     -----------------------------------------------------------------
+
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      03/03/07
+
+!  NAME     TYPE     PURPOSE
+!  ----  :  ----   : -------
+!RSRTAUA :  REAL     S.W. NORMALIZED OPTICAL THICKNESS AT 0.55 MICRON
+!RSRPIZA :  REAL     S.W. SINGLE SCATTERING ALBEDO
+!RSRASYA :  REAL     S.W. ASSYMETRY FACTOR
+
+!     -----------------------------------------------------------------
+END MODULE YOESRTAER
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoesrtcop.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoesrtcop.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoesrtcop.F90	(revision 1989)
@@ -0,0 +1,130 @@
+MODULE YOESRTCOP
+
+USE PARKIND1  ,ONLY : JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*    ** *YOESRTCOP* - CLOUD OPTICAL PROPERTIES FOR SRTM 
+!     ------------------------------------------------------------------
+
+!-- CLOUD OPTICAL PROPERTIES
+
+!-- coefficients and parameters related to SRTM_SW 14 sp.int.
+
+REAL(KIND=JPRB) :: RSYFWA(14)
+REAL(KIND=JPRB) :: RSYFWB(14)
+REAL(KIND=JPRB) :: RSYFWC(14)
+REAL(KIND=JPRB) :: RSYFWD(14)
+REAL(KIND=JPRB) :: RSYFWE(14)
+REAL(KIND=JPRB) :: RSYFWF(14)
+
+REAL(KIND=JPRB) :: RSECIA(14)
+REAL(KIND=JPRB) :: RSECIB(14)
+REAL(KIND=JPRB) :: RSECIC(14)
+REAL(KIND=JPRB) :: RSECID(14)
+REAL(KIND=JPRB) :: RSECIE(14)
+REAL(KIND=JPRB) :: RSECIF(14)
+
+REAL(KIND=JPRB) :: RSASWA(14)
+REAL(KIND=JPRB) :: RSASWB(14)
+REAL(KIND=JPRB) :: RSASWC(14)
+REAL(KIND=JPRB) :: RSASWD(14)
+REAL(KIND=JPRB) :: RSASWE(14)
+REAL(KIND=JPRB) :: RSASWF(14)
+
+REAL(KIND=JPRB) :: RSFUA0(14)
+REAL(KIND=JPRB) :: RSFUA1(14)
+REAL(KIND=JPRB) :: RSFUB0(14)
+REAL(KIND=JPRB) :: RSFUB1(14)
+REAL(KIND=JPRB) :: RSFUB2(14)
+REAL(KIND=JPRB) :: RSFUB3(14)
+REAL(KIND=JPRB) :: RSFUC0(14)
+REAL(KIND=JPRB) :: RSFUC1(14)
+REAL(KIND=JPRB) :: RSFUC2(14)
+REAL(KIND=JPRB) :: RSFUC3(14)
+
+REAL(KIND=JPRB) :: RSFLA0(14)
+REAL(KIND=JPRB) :: RSFLA1(14)
+REAL(KIND=JPRB) :: RSFLB0(14)
+REAL(KIND=JPRB) :: RSFLB1(14)
+REAL(KIND=JPRB) :: RSFLB2(14)
+REAL(KIND=JPRB) :: RSFLB3(14)
+REAL(KIND=JPRB) :: RSFLC0(14)
+REAL(KIND=JPRB) :: RSFLC1(14)
+REAL(KIND=JPRB) :: RSFLC2(14)
+REAL(KIND=JPRB) :: RSFLC3(14)
+REAL(KIND=JPRB) :: RSFLD0(14)
+REAL(KIND=JPRB) :: RSFLD1(14)
+REAL(KIND=JPRB) :: RSFLD2(14)
+REAL(KIND=JPRB) :: RSFLD3(14)
+
+REAL(KIND=JPRB) :: RSSSIE(14)
+REAL(KIND=JPRB) :: RSSSIF(14)
+REAL(KIND=JPRB) :: RSSSIH(14)
+REAL(KIND=JPRB) :: RSSSIK(14)
+REAL(KIND=JPRB) :: RSSSIA(14)
+REAL(KIND=JPRB) :: RSSSIG(14)
+
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      03-03-07
+
+!  NAME     TYPE     PURPOSE
+!  ----  :  ----   : ---------------------------------------------------
+!*    FOUQUART (1987) WATER CLOUD OPTICAL PROPERTIES
+
+! RSYFWA :  REAL   : C1 IN OPTICAL THICKNESS FORMULA
+! RSYFWB :  REAL   : C2 IN OPTICAL THICKNESS FORMULA
+! RSYFWC :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
+! RSYFWD :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
+! RSYFWE :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
+! RSYFWF :  REAL   : ASSYMETRY FACTOR
+
+!*    SLINGO (1989) WATER CLOUD OPTICAL PROPERTIES
+
+! RSASWA :  REAL   : C1 IN OPTICAL THICKNESS FORMULA
+! RSASWB :  REAL   : C2 IN OPTICAL THICKNESS FORMULA
+! RSASWC :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
+! RSASWD :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
+! RSASWE :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
+! RSASWF :  REAL   : ASSYMETRY FACTOR
+
+!*    ICE CLOUD OPTICAL PROPERTIES DERIVED FROM EBERT-CURRY (1992)
+
+! RSECIA :  REAL   : C1 IN OPTICAL THICKNESS FORMULA
+! RSECIB :  REAL   : C2 IN OPTICAL THICKNESS FORMULA
+! RSECIC :  REAL   : 1-C3  IN SINGLE SCATTERING ALBEDO FORMULA
+! RSECID :  REAL   : C4 IN SINGLE SCATTERING ALBEDO FORMULA
+! RSECIE :  REAL   : C5 IN ASSYMETRY FACTOR FORMULA
+! RSECIF :  REAL   : C6 IN ASSYMETRY FACTOR FORMULA
+! RSECIG :  REAL   : C7 IN MASS ABSORPTION COEFFICIENT FORMULA
+! RSECIH :  REAL   : C8 IN MASS ABSORPTION COEFFICIENT FORMULA
+
+!*    ICE CLOUD OPTICAL PROPERTIES DERIVED FROM SUN-SHINE (1995)
+
+! RSSSIE :  REAL   : E IN SINGLE SCATTERING ALBEDO FORMULA
+! RSSSIF :  REAL   : F IN SINGLE SCATTERING ALBEDO FORMULA
+! RSSSIH :  REAL   : H IN ASSYMETRY FACTOR FORMULA
+! RSSSIK :  REAL   : K IN ASSYMETRY FACTOR FORMULA
+! RSSSIA :  REAL   : ALPHA IN SSA CORRECTION FACTOR FORMULA
+! RSSSIG :  REAL   : GAMMA IN ASSYMETRY CORRECTION FACTOR FORMULA
+
+!*    ICE CLOUD OPTICAL PROPERTIES DERIVED FROM FU-LIOU (1993)
+
+! RSFLA  :  REAL   : COEFFICIENTS IN EXPRESSION FOR SW EXTINCTION COEFF.
+! RSFLB  :  REAL   : COEFFICIENTS IN EXPRESSION FOR SW SINGLE SCATT.ALB.
+! RSFLC  :  REAL   : COEFFICIENTS IN EXPRESSION FOR SW ASSYMETRY FACTOR
+! RSFLD  :  REAL   : COEFFICIENTS IN EXPRESSION FOR SW ASSYMETRY FACTOR
+
+!*    ICE CLOUD OPTICAL PROPERTIES DERIVED FROM FU (1996) & FU ET AL. (1998)
+
+! RSFUA  :  REAL   : COEFFICIENTS IN EXPRESSION FOR SW EXTINCTION COEFF.
+! RSFUB  :  REAL   : COEFFICIENTS IN EXPRESSION FOR SW SINGLE SCATT.ALB.
+! RSFUC  :  REAL   : COEFFICIENTS IN EXPRESSION FOR SW ASSYMETRY FACTOR
+
+!     -----------------------------------------------------------------
+END MODULE YOESRTCOP
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoesrtop.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoesrtop.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoesrtop.F90	(revision 1989)
@@ -0,0 +1,43 @@
+MODULE YOESRTOP
+
+USE PARKIND1  ,ONLY : JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOESRTOP* - SRTM CLOUD OPTICAL PROPERTIES
+!     OVER BANDS 16 to 29:  2600-50000, then 800-2600 cm-1
+!     -----------------------------------------------------------------
+
+REAL(KIND=JPRB) :: EXTLIQ1(58,16:29), SSALIQ1(58,16:29), ASYLIQ1(58,16:29)
+REAL(KIND=JPRB) :: EXTICE2(43,16:29), SSAICE2(43,16:29), ASYICE2(43,16:29)
+REAL(KIND=JPRB) :: EXTICE3(46,16:29), SSAICE3(46,16:29), ASYICE3(46,16:29)
+REAL(KIND=JPRB) :: FDLICE3(46,16:29), FDELTA(16:29)
+REAL(KIND=JPRB) :: ABSCLD1
+
+REAL(KIND=JPRB) :: ABSCOICE(16:29), EXTCOICE(16:29), GICE(16:29), SSACOICE(16:29), FORWICE(16:29)
+REAL(KIND=JPRB) :: ABSCOLIQ(16:29), EXTCOLIQ(16:29), GLIQ(16:29), SSACOLIQ(16:29), FORWLIQ(16:29)
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM SW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      02/10/29
+!     J. DELAMERE/M. IACONO AER             08/01/2005
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----   : ---------------------------------------------------
+! xxxLIQ1 : REAL   : OPTICAL PROPERTIES (EXTINCTION COEFFICIENT, SINGLE 
+!                    SCATTERING ALBEDO, ASSYMETRY FACTOR) FROM
+!                    HU & STAMNES, 1993, J. CLIM., 6, 728-742  
+! xxxICE2 : REAL   : OPTICAL PROPERTIES (EXTINCTION COEFFICIENT, SINGLE 
+!                    SCATTERING ALBEDO, ASSYMETRY FACTOR) FROM STREAMER V3.0,
+!                    KEY, J., STREAMER USER'S GUIDE, COOPERATIVE INSTITUDE 
+!                    FOR METEOROLOGICAL STUDIES, 2001, 95 PP.
+! xxxICE3 : REAL   : OPTICAL PROPERTIES (EXTINCTION COEFFICIENT, SINGLE 
+!                    SCATTERING ALBEDO, ASSYMETRY FACTOR) FROM
+!                    FU, 1996, J. CLIM., 9, 
+!     -----------------------------------------------------------------
+END MODULE YOESRTOP
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoesrtwn.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoesrtwn.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoesrtwn.F90	(revision 1989)
@@ -0,0 +1,64 @@
+MODULE YOESRTWN
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!    -------------------------------------------------------------------
+
+INTEGER(KIND=JPIM) , DIMENSION(16:29) :: NG
+INTEGER(KIND=JPIM) , DIMENSION(16:29) :: NSPA
+INTEGER(KIND=JPIM) , DIMENSION(16:29) :: NSPB
+INTEGER(KIND=JPIM) , DIMENSION(14)    :: NMPSRTM
+
+REAL(KIND=JPRB) , DIMENSION(16:29) :: WAVENUM1
+REAL(KIND=JPRB) , DIMENSION(16:29) :: WAVENUM2
+REAL(KIND=JPRB) , DIMENSION(16:29) :: DELWAVE
+
+REAL(KIND=JPRB), DIMENSION(59) :: PREF
+REAL(KIND=JPRB), DIMENSION(59) :: PREFLOG
+REAL(KIND=JPRB), DIMENSION(59) :: TREF
+
+INTEGER(KIND=JPIM), DIMENSION(224) :: NGM
+INTEGER(KIND=JPIM), DIMENSION(14)  :: NGC, NGS
+! Use for 112 g-points
+INTEGER(KIND=JPIM), DIMENSION(112) :: NGBSW, NGN
+! Use for 224 g-points
+!INTEGER(KIND=JPIM), DIMENSION(224) :: NGBSW, NGN
+
+REAL(KIND=JPRB), DIMENSION(16)  :: WT, WTSM
+REAL(KIND=JPRB), DIMENSION(224) :: RWGT
+
+!     -----------------------------------------------------------------
+!        * E.C.M.W.F. PHYSICS PACKAGE ** RRTM SW RADIATION **
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      03-03-07
+!     M. J. IACONO          AER             12/09/03
+
+!  NAME     TYPE     PURPOSE
+!  ----   : ----    : -------
+!  NG     : INTEGER : Number of k-coefficients in spectral intervals
+!  NSPA   : INTEGER :
+!  NSPB   : INTEGER :
+! NMPSRTM : INTEGER : MAAPING INDICES FOR 6-SPECTRAL INT. SURFACE ALBEDO 
+! WAVENUM1: REAL    : Lower wavenumber spectral limit
+! WAVENUM2: REAL    : Higher wavenumber spectral limit
+! DELWAVE : REAL    : Spectral interval width
+! PREF    : REAL    : Reference pressure
+! PREFLOG : REAL    : Log reference pressure
+! TREF    : REAL    : Reference temperature
+!  NGC    : INTEGER : The number of new g-points in each band
+!  NGS    : INTEGER : The cumulative sum of new g-points for each band
+!  NGM    : INTEGER : The index of each new g-point relative to the
+!                     original 16 g-points for each band.
+!  NGN    : INTEGER : The number of original g-points that are combined 
+!                     to make each new g-point in each band.
+!  NGB    : INTEGER : The band index for each new g-point.
+!  WT     : REAL    : RRTM weights for 16 g-points.
+!  WTSUM  : REAL    : Sum of the weights
+!  RWGT   : REAL    : 
+!     -----------------------------------------------------------------
+END MODULE YOESRTWN
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoesw.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoesw.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoesw.F90	(revision 1989)
@@ -0,0 +1,266 @@
+MODULE YOESW
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*    ** *YOESW* - COEFFICIENTS FOR SHORTWAVE RADIATION TRANSFER
+!     ------------------------------------------------------------------
+
+REAL(KIND=JPRB) :: APAD(6,3,7)
+REAL(KIND=JPRB) :: BPAD(6,3,7)
+REAL(KIND=JPRB) :: RRAY(6,6)
+REAL(KIND=JPRB), ALLOCATABLE :: RSUN(:)
+REAL(KIND=JPRB) :: RPDH1
+REAL(KIND=JPRB) :: RPDU1
+REAL(KIND=JPRB) :: RPNH
+REAL(KIND=JPRB) :: RPNU
+REAL(KIND=JPRB) :: RSWCE(6)
+REAL(KIND=JPRB) :: RSWCP(6)
+REAL(KIND=JPRB) :: RTDH2O
+REAL(KIND=JPRB) :: RTDUMG
+REAL(KIND=JPRB) :: RTH2O
+REAL(KIND=JPRB) :: RTUMG
+REAL(KIND=JPRB) :: D(6,3)
+REAL(KIND=JPRB) :: REXPO3(6,2,7)
+INTEGER(KIND=JPIM) :: NEXPO3(6)
+
+REAL(KIND=JPRB) :: RYFWCA(6)
+REAL(KIND=JPRB) :: RYFWCB(6)
+REAL(KIND=JPRB) :: RYFWCC(6)
+REAL(KIND=JPRB) :: RYFWCD(6)
+REAL(KIND=JPRB) :: RYFWCE(6)
+REAL(KIND=JPRB) :: RYFWCF(6)
+
+REAL(KIND=JPRB) :: REBCUA(6)
+REAL(KIND=JPRB) :: REBCUB(6)
+REAL(KIND=JPRB) :: REBCUC(6)
+REAL(KIND=JPRB) :: REBCUD(6)
+REAL(KIND=JPRB) :: REBCUE(6)
+REAL(KIND=JPRB) :: REBCUF(6)
+REAL(KIND=JPRB) :: REBCUG(16)
+REAL(KIND=JPRB) :: REBCUH(16)
+REAL(KIND=JPRB) :: REBCUI(6)
+REAL(KIND=JPRB) :: REBCUJ(6)
+
+REAL(KIND=JPRB) :: RASWCA(6)
+REAL(KIND=JPRB) :: RASWCB(6)
+REAL(KIND=JPRB) :: RASWCC(6)
+REAL(KIND=JPRB) :: RASWCD(6)
+REAL(KIND=JPRB) :: RASWCE(6)
+REAL(KIND=JPRB) :: RASWCF(6)
+
+REAL(KIND=JPRB) :: RFUETA(16,3),RFUETB(16,4), RFUETC(16,4)
+REAL(KIND=JPRB) :: RFULIO(16,3)
+REAL(KIND=JPRB) :: RHSAVI(16,3)
+REAL(KIND=JPRB) :: RLILIA(16,5),RLILIB(16,4)
+
+REAL(KIND=JPRB) :: RFLAA0(6)
+REAL(KIND=JPRB) :: RFLAA1(6)
+REAL(KIND=JPRB) :: RFLBB0(6)
+REAL(KIND=JPRB) :: RFLBB1(6)
+REAL(KIND=JPRB) :: RFLBB2(6)
+REAL(KIND=JPRB) :: RFLBB3(6)
+REAL(KIND=JPRB) :: RFLCC0(6)
+REAL(KIND=JPRB) :: RFLCC1(6)
+REAL(KIND=JPRB) :: RFLCC2(6)
+REAL(KIND=JPRB) :: RFLCC3(6)
+
+REAL(KIND=JPRB) :: RFUAA0(6)
+REAL(KIND=JPRB) :: RFUAA1(6)
+REAL(KIND=JPRB) :: RFUBB0(6)
+REAL(KIND=JPRB) :: RFUBB1(6)
+REAL(KIND=JPRB) :: RFUBB2(6)
+REAL(KIND=JPRB) :: RFUBB3(6)
+REAL(KIND=JPRB) :: RFUCC0(6)
+REAL(KIND=JPRB) :: RFUCC1(6)
+REAL(KIND=JPRB) :: RFUCC2(6)
+REAL(KIND=JPRB) :: RFUCC3(6)
+REAL(KIND=JPRB) :: RFLDD0(6)
+REAL(KIND=JPRB) :: RFLDD1(6)
+REAL(KIND=JPRB) :: RFLDD2(6)
+REAL(KIND=JPRB) :: RFLDD3(6)
+
+REAL(KIND=JPRB) :: RSUSHE(6)
+REAL(KIND=JPRB) :: RSUSHF(6)
+REAL(KIND=JPRB) :: RSUSHH(6)
+REAL(KIND=JPRB) :: RSUSHK(6)
+REAL(KIND=JPRB) :: RSUSHA(6)
+REAL(KIND=JPRB) :: RSUSHG(6)
+REAL(KIND=JPRB) :: RSUSHFA(4)
+REAL(KIND=JPRB) :: RSUSHC
+REAL(KIND=JPRB) :: RSUSHD
+
+REAL(KIND=JPRB) :: REFFIA
+REAL(KIND=JPRB) :: REFFIB
+REAL(KIND=JPRB) :: RTIW
+REAL(KIND=JPRB) :: RRIW
+REAL(KIND=JPRB) :: RROMA(6)
+REAL(KIND=JPRB) :: RROMB(6)
+REAL(KIND=JPRB) :: RRASY(6)
+
+REAL(KIND=JPRB) :: RHSRA(6)
+REAL(KIND=JPRB) :: RHSRB(6)
+REAL(KIND=JPRB) :: RHSRC(6)
+REAL(KIND=JPRB) :: RHSRD(6)
+REAL(KIND=JPRB) :: RHSRE(6)
+REAL(KIND=JPRB) :: RHSRF(6)
+REAL(KIND=JPRB) :: RHSRTA
+REAL(KIND=JPRB) :: RHSRTB
+
+REAL(KIND=JPRB) :: RTAUA(6,6)
+REAL(KIND=JPRB) :: RPIZA(6,6)
+REAL(KIND=JPRB) :: RCGA(6,6)
+REAL(KIND=JPRB) :: RAER(6,6)
+
+REAL(KIND=JPRB) :: RTWEIGHT(8)
+REAL(KIND=JPRB) :: RWEIGS(6)
+REAL(KIND=JPRB) :: RWEIGV(6)
+
+REAL(KIND=JPRB) :: RWEIGHT(6,8)
+INTEGER(KIND=JPIM) :: NMPSRTM(14), NTYPS
+
+REAL(KIND=JPRB) :: RADJUST
+
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----  :  ----   : ---------------------------------------------------
+!  APAD  :  REAL     PADE APPROXIMANTS NUMERATOR
+!  BPAD  :  REAL     PADE APPROXIMANTS DENOMINATOR
+!  D     :  REAL     TRANSMISSION LIMIT FOR INFINITE ABSORBER AMOUNT
+!  RRAY  :  REAL     RAYLEIGH SCATTERING COEFFICIENTS
+!  RSUN  :  REAL     SOLAR FRACTION IN SPECTRAL INTERVALS
+!  RPDH1 :  1 + EXPONENT PRESSURE DEPENDENCE H2O
+!  RPDU1 :  1 + EXPONENT PRESSURE DEPENDENCE UNIFORMLY MIXED GASES
+!  RPNH  :  REFERENCE PRESSURE FACTOR FOR H2O
+!  RPNU  :  REFERENCE PRESSURE FACTOR FOR UNIFORMLY MIXED GASES
+!  RSWCE :  E-TYPE, H2O CONTINUUM ABSORPTION COEFFICIENT 
+!  RSWCP :  P-TYPE, H2O CONTINUUM ABSORPTION COEFFICIENT 
+!  RTDH2O:  EXPONENT TEMPERATURE DEPENDENCE H2O
+!  RTDUMG:  EXPONENT TEMPERATURE DEPENDENCE UNIFORMLY MIXED GASES
+!  RTH2O :  REFERENCE TEMPERATURE H2O
+!  RTUMG :  REFERENCE TEMPERATURE UNIFORMLY MIXED GASES
+!     -----------------------------------------------------------------
+
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----  :  ----   : ---------------------------------------------------
+!*    FOUQUART (1987) WATER CLOUD OPTICAL PROPERTIES
+
+! RYFWCA :  REAL   : C1 IN OPTICAL THICKNESS FORMULA
+! RYFWCB :  REAL   : C2 IN OPTICAL THICKNESS FORMULA
+! RYFWCC :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
+! RYFWCD :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
+! RYFWCE :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
+! RYFWCF :  REAL   : ASSYMETRY FACTOR
+
+!*    SLINGO (1989) WATER CLOUD OPTICAL PROPERTIES
+
+! RASWCA :  REAL   : C1 IN OPTICAL THICKNESS FORMULA
+! RASWCB :  REAL   : C2 IN OPTICAL THICKNESS FORMULA
+! RASWCC :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
+! RASWCD :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
+! RASWCE :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
+! RASWCF :  REAL   : ASSYMETRY FACTOR
+
+!*   SAVIJARVI (1998) WATER CLOUD OPTICAL PROPERTIES (RRTM)
+
+! RHSAVI : REAL    : MASS ABSORPTION COEFFICIENTS (POLYNOMIAL DEVELOPM)
+
+!*   LINDNER,LI (2000) WATER CLOUD OPTICAL PROPERTIES (RRTM)
+
+! RLILIA : REAL    : MASS ABSORPTION COEFFICIENTS (POLYNOMIAL DEVELOPM)
+! RLILIB : REAL    : 1-SSA COEFFICIENTS  (POLYNOMIAL DEVELOPM)
+
+!*    ICE CLOUD OPTICAL PROPERTIES DERIVED FROM EBERT-CURRY (1992)
+
+! REBCUA :  REAL   : C1 IN OPTICAL THICKNESS FORMULA
+! REBCUB :  REAL   : C2 IN OPTICAL THICKNESS FORMULA
+! REBCUC :  REAL   : 1-C3  IN SINGLE SCATTERING ALBEDO FORMULA
+! REBCUD :  REAL   : C4 IN SINGLE SCATTERING ALBEDO FORMULA
+! REBCUE :  REAL   : C5 IN ASSYMETRY FACTOR FORMULA
+! REBCUF :  REAL   : C6 IN ASSYMETRY FACTOR FORMULA
+! REBCUG :  REAL   : C7 IN MASS ABSORPTION COEFFICIENT FORMULA
+! REBCUH :  REAL   : C8 IN MASS ABSORPTION COEFFICIENT FORMULA
+! REBCUI :  REAL   : C7 IN MASS ABSORPTION COEFFICIENT SPECTRAL FORMULA
+! REBCUJ :  REAL   : C8 IN MASS ABSORPTION COEFFICIENT SPECTRAL FORMULA
+
+!*    ICE CLOUD OPTICAL PROPERTIES DERIVED FROM SUN-SHINE (1995)
+
+! RSHSUE :  REAL   : E IN SINGLE SCATTERING ALBEDO FORMULA
+! RSHSUF :  REAL   : F IN SINGLE SCATTERING ALBEDO FORMULA
+! RSHSUH :  REAL   : H IN ASSYMETRY FACTOR FORMULA
+! RSHSUK :  REAL   : K IN ASSYMETRY FACTOR FORMULA
+! RSHSUA :  REAL   : ALPHA IN SSA CORRECTION FACTOR FORMULA
+! RSHSUG :  REAL   : GAMMA IN ASSYMETRY CORRECTION FACTOR FORMULA
+! RSHSUFA:  REAL   : COEFFICIENTS IN TEMPERATURE CORRECTION FACTOR
+
+! REFFIA :  REAL   : C9  IN EFFECTIVE RADIUS FORMULA
+! REFFIB :  REAL   : C10 IN EFFECTIVE RADIUS FORMULA
+
+!*    ICE CLOUD OPTICAL PROPERTIES DERIVED FROM FU-LIOU (1993)
+
+! RFULIO :  REAL   : COEFFICIENTS IN EXPRESSION FOR LW EXTINCTION COEFF.
+! RFLAA  :  REAL   : COEFFICIENTS IN EXPRESSION FOR SW EXTINCTION COEFF.
+! RFLBB  :  REAL   : COEFFICIENTS IN EXPRESSION FOR SW SINGLE SCATT.ALB.
+! RFLCC  :  REAL   : COEFFICIENTS IN EXPRESSION FOR SW ASSYMETRY FACTOR
+! RFLDD  :  REAL   : COEFFICIENTS IN EXPRESSION FOR SW ASSYMETRY FACTOR
+
+!*    ICE CLOUD OPTICAL PROPERTIES DERIVED FROM FU (1996) & FU ET AL. (1998)
+
+! RFUETA :  REAL   : COEFFICIENTS IN EXPRESSION FOR LW EXTINCTION COEFF.
+! RFUAA  :  REAL   : COEFFICIENTS IN EXPRESSION FOR SW EXTINCTION COEFF.
+! RFUBB  :  REAL   : COEFFICIENTS IN EXPRESSION FOR SW SINGLE SCATT.ALB.
+! RFUCC  :  REAL   : COEFFICIENTS IN EXPRESSION FOR SW ASSYMETRY FACTOR
+
+!*    TRANSITION BETWEEN LIQUID AND SOLID WATER
+
+! RTIW   :  REAL   : TEMPERATURE THRESHOLD
+! RRIW   :  REAL   : TRANSITION RANGE
+
+!*    RAIN OPTICAL PROPERTIES FROM SAVIJARVI (1996)
+
+! RROMA  :  REAL   : COEFFICIENTS FOR SINGLE SCATTERING ALBEDO
+! RROMB  :  REAL   : COEFFICIENTS FOR SINGLE SCATTERING ALBEDO
+! RRASY  :  REAL   : COEFFICIENTS FOR ASSYMETRY FACTOR
+! RHSRA  :  REAL   : COEFFICIENTS FOR OPTICAL THICKNESS
+! RHSRB  :  REAL   : COEFFICIENTS FOR OPTICAL THICKNESS
+! RHSRC  :  REAL   : COEFFICIENTS FOR SINGLE SCATTERING ALBEDO
+! RHSRD  :  REAL   : COEFFICIENTS FOR SINGLE SCATTERING ALBEDO
+! RHSRE  :  REAL   : COEFFICIENTS FOR ASSYMETRY FACTOR 
+! RHSRF  :  REAL   : COEFFICIENTS FOR ASSYMETRY FACTOR
+! RHSRTA :  REAL   : COEFFICIENTS FOR OPTICAL THICKNESS
+! RHSRTB :  REAL   : COEFFICIENTS FOR OPTICAL THICKNESS
+!     -----------------------------------------------------------------
+
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----  :  ----   : -------
+!  RTAUA :  REAL     S.W. NORMALIZED OPTICAL THICKNESS AT 0.55 MICRON
+!  RPIZA :  REAL     S.W. SINGLE SCATTERING ALBEDO
+!  RCGA  :  REAL     S.W. ASSYMETRY FACTOR
+!  RAER  :  REAL     L.W. ABSORPTION COEFFICIENTS
+!     -----------------------------------------------------------------
+
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!     J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
+
+!  NAME     TYPE     PURPOSE
+!  ----  :  ----   : -------
+!RTWEIGHT:  REAL     S.W. INTEGRATED WEIGHT 
+! NMPSRTM: INTEGER  : Indices for mapping SW[1:6] albedo into SRTM[1:14]  
+!     -----------------------------------------------------------------
+END MODULE YOESW
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoethf.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoethf.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoethf.F90	(revision 1989)
@@ -0,0 +1,62 @@
+MODULE YOETHF
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*     *YOETHF* DERIVED CONSTANTS SPECIFIC TO ECMWF THERMODYNAMICS
+!     ------------------------------------------------------------------
+
+REAL(KIND=JPRB) :: R2ES
+REAL(KIND=JPRB) :: R3LES
+REAL(KIND=JPRB) :: R3IES
+REAL(KIND=JPRB) :: R4LES
+REAL(KIND=JPRB) :: R4IES
+REAL(KIND=JPRB) :: R5LES
+REAL(KIND=JPRB) :: R5IES
+REAL(KIND=JPRB) :: RVTMP2
+REAL(KIND=JPRB) :: RHOH2O
+REAL(KIND=JPRB) :: R5ALVCP
+REAL(KIND=JPRB) :: R5ALSCP
+REAL(KIND=JPRB) :: RALVDCP
+REAL(KIND=JPRB) :: RALSDCP
+REAL(KIND=JPRB) :: RALFDCP
+REAL(KIND=JPRB) :: RTWAT
+REAL(KIND=JPRB) :: RTBER
+REAL(KIND=JPRB) :: RTBERCU
+REAL(KIND=JPRB) :: RTICE
+REAL(KIND=JPRB) :: RTICECU
+REAL(KIND=JPRB) :: RTWAT_RTICE_R
+REAL(KIND=JPRB) :: RTWAT_RTICECU_R
+REAL(KIND=JPRB) :: RKOOP1
+REAL(KIND=JPRB) :: RKOOP2
+
+!     J.-J. MORCRETTE                   91/07/14  ADAPTED TO I.F.S.
+
+!      NAME     TYPE      PURPOSE
+!      ----     ----      -------
+
+!     *R__ES*   REAL      *CONSTANTS USED FOR COMPUTATION OF SATURATION
+!                         MIXING RATIO OVER LIQUID WATER(*R_LES*) OR
+!                         ICE(*R_IES*).
+!     *RVTMP2*  REAL      *RVTMP2=RCPV/RCPD-1.
+!     *RHOH2O*  REAL      *DENSITY OF LIQUID WATER.   (RATM/100.)
+!     *R5ALVCP* REAL      *R5LES*RLVTT/RCPD
+!     *R5ALSCP* REAL      *R5IES*RLSTT/RCPD
+!     *RALVDCP* REAL      *RLVTT/RCPD
+!     *RALSDCP* REAL      *RLSTT/RCPD
+!     *RALFDCP* REAL      *RLMLT/RCPD
+!     *RTWAT*   REAL      *RTWAT=RTT
+!     *RTBER*   REAL      *RTBER=RTT-0.05
+!     *RTBERCU  REAL      *RTBERCU=RTT-5.0
+!     *RTICE*   REAL      *RTICE=RTT-0.1
+!     *RTICECU* REAL      *RTICECU=RTT-23.0
+!     *RKOOP?   REAL      *CONSTANTS TO DESCRIBE KOOP FORM FOR NUCLEATION
+!     *RTWAT_RTICE_R*   REAL      *RTWAT_RTICE_R=1./(RTWAT-RTICE)
+!     *RTWAT_RTICECU_R* REAL      *RTWAT_RTICECU_R=1./(RTWAT-RTICECU)
+
+!       ----------------------------------------------------------------
+END MODULE YOETHF
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoevdf.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoevdf.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoevdf.F90	(revision 1989)
@@ -0,0 +1,44 @@
+MODULE YOEVDF
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*    ** *YOEVDF* CONTAINS CONSTANTS NEEDED BY *VDF....*
+!     ------------------------------------------------------------------
+
+INTEGER(KIND=JPIM) :: NVTYPES
+REAL(KIND=JPRB) :: RLAM
+REAL(KIND=JPRB) :: RKAP
+REAL(KIND=JPRB) :: RVDIFTS
+REAL(KIND=JPRB) :: REPDU2
+REAL(KIND=JPRB) :: RENTR
+REAL(KIND=JPRB) :: RPAR
+REAL(KIND=JPRB) :: RPAR1
+REAL(KIND=JPRB) :: RPARSRF
+
+!*     *YOEVDF* CONTAINS CONSTANTS NEEDED BY *VDF....*
+!     FOR THE COMPUTATION OF VERTICAL DIFFUSION
+
+!     A.C.M. BELJAARS      E.C.M.W.F.    14/12/89
+
+!     OBUKHOV-L UPDATE     ACMB          26/03/90.   
+
+!     NAME        TYPE     DESCRIPTION
+!     ----        ----     -----------
+
+!     *NVTYPES*   INTEGER  Number of vegetation (surface cover) types
+!     *RLAM*      REAL     *ASYMPTOTIC MIXING LENGTH FOR MOMENTUM
+!     *RKAP*      REAL     *VONKARMAN CONSTANT
+!     *RVDIFTS*   REAL     *FACTOR FOR TIME STEP WEIGHTING IN *VDF....*
+!     *REPDU2*    REAL     *MINIMUM VELOCITY DIFFERENCE IN RI-NUMBER
+!     *RENTR*     REAL     *ENTRAINMENT CONSTANT          
+!     *RPAR*      REAL     *PARAMETER FOR TEMPERATURE EXCESS IN THERMAL 
+!                           AT BOUNDARY LAYER TOP      
+!     *RPAR1*     REAL     *COEFFICIENT OF (W*)**3 IN WS         
+!     *RPARSRF*   REAL     *DEPTH OF SURFACE LAYER AS FRACTION OF PBL-H 
+!     ------------------------------------------------------------------
+END MODULE YOEVDF
Index: LMDZ5/trunk/libf/phylmd/rrtm/yoewcou.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yoewcou.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yoewcou.F90	(revision 1989)
@@ -0,0 +1,114 @@
+MODULE YOEWCOU
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!*    ** *YOEWCOU* - VARIABLES FOR COUPLING WITH THE WAVE MODEL
+
+!     P. VITERBO     E.C.M.W.F.       07/10/88
+!     P. VITERBO     E.C.M.W.F.       03/02/92
+!     J. DOYLE       E.C.M.W.F.       21/11/96 
+!     J. BIDLOT      E.C.M.W.F.       13/06/97 
+!     J. BIDLOT      E.C.M.W.F.       11/08/98 
+!     G. MOZDZYNSKI  E.C.M.W.F.       14/01/05
+
+!      NAME      TYPE       PURPOSE
+!      ----      ----       -------
+
+!     *NLONW*    INTEGER    NUMBER OF POINTS IN A LATITUDE LINE IN
+!                           THE WAVE MODEL
+!     *NLATW*    INTEGER    NUMBER OF LATITUDES IN THE WAVE MODEL.
+!     *NLON1W*   INTEGER    *NLONW*
+!     *NLAT1W*   INTEGER    TOTAL NUMBER OF LATITUDES WITH THE WAVE
+!                           MODEL RESOLUTION.
+!     *NNORXW*   INTEGER    NUMBER OF EXTRA POINTS NORTHWARDS OF THE
+!                           NORTHERN BOUNDARY OF THE WAVE MODEL.
+!     *CBEGDAT*  CHARACTER  INITIAL DATE OF FORECAST (YYYYMMDDHHmm)
+!     *NDURAT*   INTEGER    DURATION (IN MINUTES) OF TOTAL WAVE INTEGRATION
+!                              (OR FORECAST TIME IN MINUTES).
+!     *NSTPW*    INTEGER    FREQUENCY OF CALL TO THE WAVE MODEL.
+!     *NRESUM*   INTEGER    TIME STEP OF A RESTART EVENT
+!     *LWCOU*    LOGICAL    TRUE IF THE WAVE MODEL IS TO BE RUN.
+!     *LWCOU2W*  LOGICAL    TRUE IF TWO-WAY INTERACTION WITH THE WAVE MODEL.
+!                           FALSE IF ONE-WAY INTERACTION WITH THE WAVE MODEL
+!     *LWCOUNORMS* LOGICAL  TRUE IF NORMS OF COUPLED FIELDS ARE REQUIRED
+!     *RSOUTW*   REAL       SOUTH BOUNDARY OF THE WAVE MODEL.
+!     *RNORTW*   REAL       NORTH BOUNDARY OF THE WAVE MODEL.
+!     *RDEGREW*  REAL       RESOLUTION OF THE WAVE MODEL (DEGREES).
+!
+!     *MASK_WAVE_IN*  INTEGER  COMMS MASK FOR INPUT TO WAVE MODEL
+!     *MASK_WAVE_OUT* INTEGER  COMMS MASK FOR OUTPUT FROM WAVE MODEL
+!
+!     *LWVIN_MASK_NOT_SET* LOGICAL indicates whether mask_wave_in
+!                           has been updated on the first call to the 
+!                           wave model
+!     *LWVIN_UNINITIALISED* LOGICAL indicates whether the mwvin_* data
+!                           structures are initialised
+!     *MWVIN_SENDCNT* INTEGER nproc sized array describing how many grid 
+!                           points need to be sent (or copied) by the 
+!                           local task to remote tasks (or this task)
+!     *MWVIN_RECVCNT* INTEGER nproc sized array describing how many grid 
+!                           points need to be received by the local task 
+!                           from a remote task
+!     *MWVIN_SENDTOT* INTEGER total number of grid points to be sent to 
+!                           remote tasks
+!     *MWVIN_RECVTOT* INTEGER total number of grid points to be received 
+!                           from remote tasks
+!     *MWVIN_SENDOFF* INTEGER nproc sized array containing offsets into 
+!                           the MWVIN_SENDBUF and MWVIN_SENDIND arrays
+!     *MWVIN_SENDBUF* INTEGER local indexes of data on remote tasks that
+!                           the local task needs
+!     *MWVIN_SENDIND* INTEGER global indexes of data on remote tasks that
+!                           the local task needs
+!
+!     *MWVIN_RECVOFF* INTEGER nproc sized array containing offsets into 
+!                           the MWVIN_RECVBUF array
+!     *MWVIN_RECVBUF* INTEGER local indexes of data on the local task that
+!                           remote tasks need
+!
+
+
+INTEGER(KIND=JPIM) :: NLONW
+INTEGER(KIND=JPIM) :: NLATW
+INTEGER(KIND=JPIM) :: NLON1W
+INTEGER(KIND=JPIM) :: NLAT1W
+INTEGER(KIND=JPIM) :: NNORXW
+INTEGER(KIND=JPIM) :: NDURAT
+INTEGER(KIND=JPIM) :: NSTPW
+INTEGER(KIND=JPIM) :: NRESUM
+
+REAL(KIND=JPRB) :: RSOUTW
+REAL(KIND=JPRB) :: RNORTW
+REAL(KIND=JPRB) :: RDEGREW
+
+LOGICAL :: LWCOU
+LOGICAL :: LWCOU2W
+LOGICAL :: LWCOUNORMS
+CHARACTER :: CBEGDAT*12
+
+INTEGER(KIND=JPIM), ALLOCATABLE :: MASK_WAVE_IN(:)
+INTEGER(KIND=JPIM), ALLOCATABLE :: MASK_WAVE_OUT(:,:)
+
+LOGICAL :: LWVIN_MASK_NOT_SET
+LOGICAL :: LWVIN_UNINITIALISED
+
+INTEGER(KIND=JPIM) :: MWVIN_SENDTOT
+INTEGER(KIND=JPIM) :: MWVIN_RECVTOT
+
+INTEGER(KIND=JPIM),ALLOCATABLE :: MWVIN_SENDCNT(:)
+INTEGER(KIND=JPIM),ALLOCATABLE :: MWVIN_RECVCNT(:)
+
+INTEGER(KIND=JPIM),ALLOCATABLE :: MWVIN_SENDOFF(:)
+INTEGER(KIND=JPIM),ALLOCATABLE :: MWVIN_RECVOFF(:)
+
+INTEGER(KIND=JPIM),ALLOCATABLE :: MWVIN_SENDBUF(:)
+INTEGER(KIND=JPIM),ALLOCATABLE :: MWVIN_RECVBUF(:)
+
+INTEGER(KIND=JPIM),ALLOCATABLE :: MWVIN_SENDIND(:)
+
+
+!     ------------------------------------------------------------------
+END MODULE YOEWCOU
Index: LMDZ5/trunk/libf/phylmd/rrtm/yom_phys_grid.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yom_phys_grid.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yom_phys_grid.F90	(revision 1989)
@@ -0,0 +1,112 @@
+MODULE YOM_PHYS_GRID
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+SAVE
+
+PRIVATE
+PUBLIC TYPE_PHYS_POINT ,PHYS_GRID,DYN_GRID,DYN_SL,PHYS_SL, YPHYPOI, YDYNPOI, &
+        & JPMXNEI, PHYS_GRID_STRUCT, SL_STRUCT, TYPE_DYN_POINT
+
+!-------------------------------------------------------------------------
+! Derived types for describing the coarse physics grid structure. 
+!  The descriptors themselves
+! (YGFL and YGFLC) can be found in module yom_ygfl.F90.
+!-------------------------------------------------------------------------
+! Modifications:
+
+INTEGER(KIND=JPIM), PARAMETER :: JPMXNEI=36 ! maximum number of neighbouring
+                                            ! points for averaging or
+                                            ! interpolation
+                                              
+TYPE PHYS_GRID_STRUCT
+  INTEGER(KIND=JPIM) :: NGPTOT          ! number of physics points in the task
+  INTEGER(KIND=JPIM) :: NGPTOTG
+  INTEGER(KIND=JPIM) :: NDGSAL, NDGENL
+  INTEGER(KIND=JPIM) :: NDGSAG, NDGENG
+  INTEGER(KIND=JPIM), POINTER :: NLOENG(:)
+  REAL(KIND=JPRB), POINTER   :: RMU(:)
+  REAL(KIND=JPRB), POINTER   :: RW(:)
+
+  INTEGER(KIND=JPIM)   :: NRESOL_ID
+  INTEGER(KIND=JPIM)   :: NGPTOTMX, NSPEC2, NSMAX
+  INTEGER(KIND=JPIM)   :: NPTRFLOFF, NUMP, NDLON
+  INTEGER(KIND=JPIM)   ::  NDGSAH, NDGENH
+  INTEGER(KIND=JPIM)   ::  NDGLG, NDLSUR
+  INTEGER(KIND=JPIM)   ::  NFRSTLOFF, NDSUR1,NDGSUR
+  INTEGER(KIND=JPIM)   ::  MYFRSTACTLAT, MYLSTACTLAT
+  INTEGER(KIND=JPIM)   :: NGPBLKS
+  INTEGER(KIND=JPIM)   :: NPROMA
+
+  INTEGER(KIND=JPIM), POINTER, DIMENSION(:)     :: NRGRI, NPTRFRSTLAT, NFRSTLAT
+  INTEGER(KIND=JPIM), POINTER, DIMENSION(:)     :: NLSTLAT, MYMS, NASM0
+  INTEGER(KIND=JPIM), POINTER, DIMENSION(:,:)   :: NSTA, NONL
+  INTEGER(KIND=JPIM), POINTER, DIMENSION(:)     :: NSTAGP
+  REAL(KIND=JPRB), POINTER   :: RSQM2(:), RLATIG(:), RLATI(:)
+  REAL(KIND=JPRB), POINTER   :: RIPI0(:), RIPI1(:), RIPI2(:)
+  INTEGER(KIND=JPIM), POINTER, DIMENSION(:)     :: NPTRLSTLAT
+
+END TYPE PHYS_GRID_STRUCT
+
+TYPE(PHYS_GRID_STRUCT) :: PHYS_GRID, DYN_GRID 
+
+TYPE SL_STRUCT
+  INTEGER(KIND=JPIM),POINTER :: NSLSTA(:)
+  INTEGER(KIND=JPIM),POINTER :: NSLONL(:)
+  INTEGER(KIND=JPIM),POINTER :: NSLOFF(:)
+  INTEGER(KIND=JPIM),POINTER :: NSLEXT(:,:)
+  INTEGER(KIND=JPIM),POINTER :: NSLSENDPOS(:)
+  INTEGER(KIND=JPIM),POINTER :: NSLRECVPOS(:)
+  INTEGER(KIND=JPIM),POINTER :: NSLSENDPTR(:)
+  INTEGER(KIND=JPIM),POINTER :: NSLRECVPTR(:)
+  INTEGER(KIND=JPIM),POINTER :: NSLCORE(:)
+  INTEGER(KIND=JPIM),POINTER :: NSLCOMM(:)
+
+  INTEGER(KIND=JPIM) :: NASLB1
+  INTEGER(KIND=JPIM) :: NSLPROCS
+  INTEGER(KIND=JPIM) :: NSLMPBUFSZ
+  INTEGER(KIND=JPIM) :: NSLRPT
+  INTEGER(KIND=JPIM) :: NSLSPT
+  INTEGER(KIND=JPIM) :: NSLWIDEN
+  INTEGER(KIND=JPIM) :: NSLWIDES
+  INTEGER(KIND=JPIM) :: NSLWIDEE
+  INTEGER(KIND=JPIM) :: NSLWIDEW
+END TYPE SL_STRUCT
+
+TYPE(SL_STRUCT) :: DYN_SL
+TYPE(SL_STRUCT) :: PHYS_SL
+
+ 
+TYPE TYPE_PHYS_POINT    ! Individual physics point characteristics
+
+  REAL(KIND=JPRB) :: GELAM, GELAT, GEMU
+  REAL(KIND=JPRB) :: GECLO, GESLO, GM, GAW
+  REAL(KIND=JPRB) :: GNORDL, GNORDM, GSQM2
+  REAL(KIND=JPRB) :: RCOLON, RSILON 
+  REAL(KIND=JPRB) :: RINDX, RINDY 
+  REAL(KIND=JPRB) :: OROG
+  INTEGER(KIND=JPIM) :: NGPLAT       ! row number in the physics grid
+
+  INTEGER(KIND=JPIM) :: NEIGH       ! number of neighbours in the dynamics grid 
+                                    ! for going from the dynamics to the physics grid
+  INTEGER(KIND=JPIM), POINTER :: NL0(:)    ! indexes in the interpolation buffer of 
+                                           ! the dynamics neighbours
+  REAL(KIND=JPRB), POINTER   :: WGT(:)     ! weights for every neighbouring 
+                                           ! dynamics point 
+END TYPE TYPE_PHYS_POINT
+
+TYPE(TYPE_PHYS_POINT),ALLOCATABLE :: YPHYPOI(:)
+
+TYPE TYPE_DYN_POINT     ! Individual dynamics point characteristics
+  INTEGER(KIND=JPIM) :: NEIGH       ! number of neighbours in the physics grid 
+                                    ! for going from the physics to the dynamics grid
+  INTEGER(KIND=JPIM), POINTER :: NL0(:)    ! indexes in the interpolation buffer of 
+                                           ! the physics neighbours
+  REAL(KIND=JPRB), POINTER   :: WGT(:)     ! weights for every neighbouring 
+                                           ! physics point 
+END TYPE TYPE_DYN_POINT
+
+TYPE(TYPE_DYN_POINT),ALLOCATABLE :: YDYNPOI(:)
+ 
+END MODULE YOM_PHYS_GRID
Index: LMDZ5/trunk/libf/phylmd/rrtm/yom_ygfl.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yom_ygfl.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yom_ygfl.F90	(revision 1989)
@@ -0,0 +1,123 @@
+MODULE YOM_YGFL
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+USE TYPE_GFLS ,ONLY : TYPE_GFLD,TYPE_GFL_COMP,TYPE_GFL_NAML
+
+IMPLICIT NONE
+SAVE
+
+!-------------------------------------------------------------------------
+! Contains the descriptors of GFL arrays 
+
+! YGFL  : GFL general descriptor, for info about content see comments
+!         in type declaration module : type_gfls.F90
+
+! JPGFL : Max number of GFL fields
+! JPNAMED_GFL : Number of currently pre-defined components of GFL
+! JPGHG : Number of greenhouse gas fields
+! JPGRG : Number of reactive gas fields
+! JPAERO : Number of aerosol fields
+! JPTRAC : Number of tracers for diagnostics
+!-------------------------------------------------------------------------
+
+INTEGER(KIND=JPIM),PARAMETER :: JPGFL=211
+INTEGER(KIND=JPIM),PARAMETER :: JPNAMED_GFL=22
+INTEGER(KIND=JPIM),PARAMETER :: JPGHG=3
+INTEGER(KIND=JPIM),PARAMETER :: JPTRAC=2
+INTEGER(KIND=JPIM),PARAMETER :: JPGRG=5
+INTEGER(KIND=JPIM),PARAMETER :: JPAERO=7
+INTEGER(KIND=JPIM),PARAMETER :: JPFORC=25
+INTEGER(KIND=JPIM),PARAMETER :: JPEZDIAG=25
+INTEGER(KIND=JPIM) :: NGFL_EXT
+INTEGER(KIND=JPIM) :: NGFL_FORC
+INTEGER(KIND=JPIM) :: NGFL_EZDIAG
+INTEGER(KIND=JPIM) :: NGHG
+INTEGER(KIND=JPIM) :: NTRAC
+INTEGER(KIND=JPIM) :: NGRG
+INTEGER(KIND=JPIM) :: NAERO
+INTEGER(KIND=JPIM) :: NACTAERO
+LOGICAL ::            LGHGSFC, LAEROSFC , LSF6SFC
+TYPE(TYPE_GFLD) :: YGFL
+TYPE(TYPE_GFL_COMP),TARGET  :: YGFLC(JPGFL)  ! General descriptor of all components
+
+TYPE(TYPE_GFL_COMP),POINTER  :: YQ            ! Specific humidity
+TYPE(TYPE_GFL_COMP),POINTER  :: YI            ! Ice water
+TYPE(TYPE_GFL_COMP),POINTER  :: YL            ! Liquid water
+TYPE(TYPE_GFL_COMP),POINTER  :: YS            ! Snow
+TYPE(TYPE_GFL_COMP),POINTER  :: YR            ! Rain
+TYPE(TYPE_GFL_COMP),POINTER  :: YG            ! Graupels
+TYPE(TYPE_GFL_COMP),POINTER  :: YTKE          ! Turbulent Kinetic Energy
+TYPE(TYPE_GFL_COMP),POINTER  :: YA            ! Cloud fraction
+TYPE(TYPE_GFL_COMP),POINTER  :: YO3           ! Ozone
+TYPE(TYPE_GFL_COMP),POINTER  :: YSRC          ! Second-order flux for AROME
+                                              ! s'rc'/2Sigma_s2 
+                                              ! multiplied by Lambda_3
+TYPE(TYPE_GFL_COMP),POINTER  :: YCPF          ! Convective precipitation flux
+TYPE(TYPE_GFL_COMP),POINTER  :: YSPF          ! Stratiform precipitation flux
+TYPE(TYPE_GFL_COMP),POINTER  :: YCVGQ         ! Moisture Convergence for french physics
+TYPE(TYPE_GFL_COMP),POINTER  :: YQVA          ! total humidity variation
+TYPE(TYPE_GFL_COMP),POINTER  :: YGHG(:)       ! Greenhouse Gases
+TYPE(TYPE_GFL_COMP),POINTER  :: YGRG(:)       ! Reactive Gases
+TYPE(TYPE_GFL_COMP),POINTER  :: YAERO(:)      ! Aerosols
+TYPE(TYPE_GFL_COMP),POINTER  :: YTRAC(:)      ! tracers for diagnostics
+TYPE(TYPE_GFL_COMP),POINTER  :: YFORC(:)      ! large scale forcing
+TYPE(TYPE_GFL_COMP),POINTER  :: YEZDIAG(:)    ! easy diagnostics
+
+TYPE(TYPE_GFL_COMP),POINTER  :: YSDSAT        ! Standard Deviation of the
+                                              ! SATuration Depression (Sigma_s) 
+TYPE(TYPE_GFL_COMP),POINTER  :: YCVV          ! Convective Vertical Velocity 
+
+! Prognostic convection variables: add 6 named components
+TYPE(TYPE_GFL_COMP),POINTER  :: YUOM          ! Updraught vert velocity
+TYPE(TYPE_GFL_COMP),POINTER  :: YUAL          ! Updraught mesh fraction
+TYPE(TYPE_GFL_COMP),POINTER  :: YDOM          ! Downdraught vert velocity
+TYPE(TYPE_GFL_COMP),POINTER  :: YDAL          ! Downdraught mesh fraction
+TYPE(TYPE_GFL_COMP),POINTER  :: YUEN          ! Updraught entrainment
+TYPE(TYPE_GFL_COMP),POINTER  :: YUNEBH        ! pseudo-historic convective
+
+! Extra fields 
+
+TYPE(TYPE_GFL_COMP),POINTER  :: YEXT(:)       ! Extra fields
+
+TYPE(TYPE_GFL_NAML)  :: YQ_NL            ! Specific humidity
+TYPE(TYPE_GFL_NAML)  :: YI_NL            ! Ice water
+TYPE(TYPE_GFL_NAML)  :: YL_NL            ! Liquid water
+TYPE(TYPE_GFL_NAML)  :: YS_NL            ! Snow
+TYPE(TYPE_GFL_NAML)  :: YR_NL            ! Rain
+TYPE(TYPE_GFL_NAML)  :: YG_NL            ! Graupels
+TYPE(TYPE_GFL_NAML)  :: YTKE_NL          ! Turbulent Kinetic Energy
+TYPE(TYPE_GFL_NAML)  :: YA_NL            ! Cloud fraction
+TYPE(TYPE_GFL_NAML)  :: YO3_NL           ! Ozone
+TYPE(TYPE_GFL_NAML)  :: YSRC_NL          ! Second-order flux for AROME
+                                         ! s'rc'/2Sigma_s2
+                                         ! multiplied by Lambda_3
+TYPE(TYPE_GFL_NAML)  :: YCPF_NL          ! Convective precipitation flux
+TYPE(TYPE_GFL_NAML)  :: YSPF_NL          ! Stratiform precipitation flux
+TYPE(TYPE_GFL_NAML)  :: YCVGQ_NL         ! Moisture Convergence for french physics
+TYPE(TYPE_GFL_NAML)  :: YQVA_NL          ! Total humidity variation
+
+TYPE(TYPE_GFL_NAML)  :: YGHG_NL(JPGHG)   ! Greenhouse Gases
+TYPE(TYPE_GFL_NAML)  :: YGRG_NL(JPGRG)   ! Reactive Gases
+TYPE(TYPE_GFL_NAML)  :: YAERO_NL(JPAERO) ! Aerosol fields
+TYPE(TYPE_GFL_NAML)  :: YTRAC_NL(JPTRAC)   ! Tracers for diagnostics
+
+! Extra fields 
+
+TYPE(TYPE_GFL_NAML)  :: YSDSAT_NL        ! Standard Deviation of the
+                                         ! SATuration Depression (Sigma_s) 
+TYPE(TYPE_GFL_NAML)  :: YCVV_NL          ! Convective Vertical Velocity 
+TYPE(TYPE_GFL_NAML)  :: YFORC_NL(JPFORC) ! Forcing precursor
+TYPE(TYPE_GFL_NAML)  :: YEZDIAG_NL(JPEZDIAG) ! Easy diagnostics
+TYPE(TYPE_GFL_NAML)  :: YEXT_NL(JPGFL-JPNAMED_GFL-JPGHG-JPGRG-JPFORC-JPEZDIAG-JPAERO-JPTRAC) ! Extra fields
+
+! Prognostic convection variables: 6 more namelist components
+TYPE(TYPE_GFL_NAML)  :: YUOM_NL          ! Updraught vert velocity
+TYPE(TYPE_GFL_NAML)  :: YUAL_NL          ! Updraught mesh fraction
+TYPE(TYPE_GFL_NAML)  :: YDOM_NL          ! Downdraught vert velocity
+TYPE(TYPE_GFL_NAML)  :: YDAL_NL          ! Downdraught mesh fraction
+TYPE(TYPE_GFL_NAML)  :: YUEN_NL          ! Updraught entrainment
+TYPE(TYPE_GFL_NAML)  :: YUNEBH_NL        ! Pseudi Hist Conv cloud fraction
+
+!------------------------------------------------------------------
+END MODULE YOM_YGFL
Index: LMDZ5/trunk/libf/phylmd/rrtm/yomaer15.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yomaer15.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yomaer15.F90	(revision 1989)
@@ -0,0 +1,34 @@
+MODULE YOMAER15
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOMAER15* - RADIATIVE CHARACTERISTICS OF THE AEROSOLS
+!*                          FROZEN VERSION (CYCLE 15) OF YOEAER
+!     -----------------------------------------------------------------
+
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!        96-11: Ph. Dandin. Meteo-France
+!     J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
+!        04-06: F. Bouyssel. Initialisation done in suaer15
+!        05-09: A. Alias     Sulfate aerosol (Hu Ron Ming)
+
+!  NAME      TYPE     PURPOSE
+!  ----   :  ----   : -------
+!  TAUA15 :  REAL     S.W. NORMALIZED OPTICAL THICKNESS AT 0.55 MICRON
+!  RPIZA15:  REAL     S.W. SINGLE SCATTERING ALBEDO
+!  RCGA15 :  REAL     S.W. ASSYMETRY FACTOR
+!  RAER15 :  REAL     L.W. ABSORPTION COEFFICIENTS
+!     -----------------------------------------------------------------
+
+REAL(KIND=JPRB) :: TAUA15 (2,6)
+REAL(KIND=JPRB) :: RPIZA15(2,6)
+REAL(KIND=JPRB) :: RCGA15 (2,6)
+REAL(KIND=JPRB) :: RAER15 (5,6)
+
+END MODULE YOMAER15
Index: LMDZ5/trunk/libf/phylmd/rrtm/yomaerd15.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yomaerd15.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yomaerd15.F90	(revision 1989)
@@ -0,0 +1,72 @@
+MODULE YOMAERD15
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*     *YOMAERD15* SPECTRAL DISTRIBUTION OF AEROSOLS
+!*                       FROZEN VERSION (CYCLE 15) OF YOEAERD
+!     ------------------------------------------------------------------
+
+REAL(KIND=JPRB),ALLOCATABLE:: CVDAES15(:)
+REAL(KIND=JPRB),ALLOCATABLE:: CVDAEL15(:)
+REAL(KIND=JPRB),ALLOCATABLE:: CVDAEU15(:)
+REAL(KIND=JPRB),ALLOCATABLE:: CVDAED15(:)
+REAL(KIND=JPRB),ALLOCATABLE:: CVDAEF15(:)
+
+REAL(KIND=JPRB) :: RCAEOPS15
+REAL(KIND=JPRB) :: RCAEOPL15
+REAL(KIND=JPRB) :: RCAEOPU15
+REAL(KIND=JPRB) :: RCAEOPD15
+REAL(KIND=JPRB) :: RCAEOPF15
+REAL(KIND=JPRB) :: RCTRBGA15
+REAL(KIND=JPRB) :: RCVOBGA15
+REAL(KIND=JPRB) :: RCSTBGA15
+REAL(KIND=JPRB) :: RCTRPT15
+REAL(KIND=JPRB) :: RCAEADM15
+REAL(KIND=JPRB) :: RCAEROS15
+
+REAL(KIND=JPRB) :: RAESC15(66)
+REAL(KIND=JPRB) :: RAESS15(55)
+REAL(KIND=JPRB) :: RAELC15(66)
+REAL(KIND=JPRB) :: RAELS15(55)
+REAL(KIND=JPRB) :: RAEUC15(66)
+REAL(KIND=JPRB) :: RAEUS15(55)
+REAL(KIND=JPRB) :: RAEDC15(66)
+REAL(KIND=JPRB) :: RAEDS15(55)
+REAL(KIND=JPRB) :: RCAEADK15(3)
+
+!*     *YOMAERD15* SPECTRAL DISTRIBUTION OF AEROSOLS.
+!                     (TRIANGULAR *T10* TRUNCATION FOR AEROSOLS).
+
+!        96-11: Ph. Dandin. Meteo-France
+!     J.-J. MORCRETTE    E.C.M.W.F.     92/09/24  Adaptation to IFS
+!     R.G AND M.J        E.C.M.W.F.     29/11/82.
+!     A. Alias           29-09-05 Sulfate aerosols (Hu Ron Ming)
+
+!      NAME     TYPE      PURPOSE
+!      ----     ----      -------
+
+!     *CAES_*   REAL      *REFERS TO *SEA AEROSOLS.
+!     *CAEL_*   REAL      *REFERS TO *LAND AEROSOLS.
+!     *CAEU_*   REAL      *REFERS TO *URBAN AEROSOLS.
+!     *CAED_*   REAL      *REFERS TO *DESERT AEROSOLS.
+!     *CAEF_*   REAL      *REFERS TO *SULFATE AEROSOLS.
+!     *C___C*   REAL      *REFERS TO *COS COMPONENT.
+!     *C___S*   REAL      *REFERS TO *SIN COMPONENT.
+!     *CAEOP_*  REAL      *CONSTANTS USED FOR AEROSOL COMPUTATIONS.
+!     *C___S*   REAL      *REFERS TO *SEA AEROSOLS.
+!     *C___L*   REAL      *REFERS TO *LAND AEROSOLS.
+!     *C___U*   REAL      *REFERS TO *URBAN AEROSOLS.
+!     *C___D*   REAL      *REFERS TO *DESERT AEROSOLS.
+!     *C__BGA*  REAL      *CONSTANTS USED FOR AEROSOL COMPUTATIONS.
+!     *CVDAE_*  REAL      *CONSTANTS USED FOR AEROSOL COMPUT. (NFLEVG+1)
+!     *RCTRPT15*   REAL      *CONSTANTS USED FOR AEROSOL COMPUTATIONS.
+!     *RCAEADK15*  REAL      *CONSTANTS USED FOR AEROSOL COMPUTATIONS.
+!     *RCAEADM15*  REAL      *CONSTANTS USED FOR AEROSOL COMPUTATIONS.
+!     *RCAEROS15*  REAL      *BACKGROUND VALUE IN ABSENCE OF AEROSOLS.
+!     ------------------------------------------------------------------
+END MODULE YOMAERD15
Index: LMDZ5/trunk/libf/phylmd/rrtm/yomarar.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yomarar.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yomarar.F90	(revision 1989)
@@ -0,0 +1,100 @@
+MODULE YOMARAR
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!*
+!     ------------------------------------------------------------------
+
+!     VARIABLES pour utiliser la PHYSIQUE de meso_NH :
+!     VARIABLES to use the MESO-NH physics:
+
+!     KSPLITR :  Number of small time step
+!                integration for  rain
+!                sedimendation
+
+INTEGER(KIND=JPIM) :: NSPLITR     ! ??? (missing comment)
+INTEGER(KIND=JPIM) :: NRR, NRRL, NRRI   !number of microphysical species
+INTEGER(KIND=JPIM) :: NSV         !number of passiv variables in MesoNH,
+                                  ! always 0 in AROME
+INTEGER(KIND=JPIM) :: NSWB_MNH    !number of SW bands for surface
+                                  ! (must be equal to NSW !!)
+INTEGER(KIND=JPIM) :: NGPAR       !number of fields in the buffer containing
+                                  ! the 2D pseudo-historical variables.
+INTEGER(KIND=JPIM) :: MINPRR      !pointer on INPRR 
+INTEGER(KIND=JPIM) :: MACPRR      !pointer on ACPRR 
+INTEGER(KIND=JPIM) :: MINPRS      !pointer on INPRS
+INTEGER(KIND=JPIM) :: MACPRS      !pointer on ACPRS
+INTEGER(KIND=JPIM) :: MINPRG      !pointer on INPRG
+INTEGER(KIND=JPIM) :: MACPRG      !pointer on ACPRG
+INTEGER(KIND=JPIM) :: MALBDIR     !pointer on ALBDIR
+INTEGER(KIND=JPIM) :: MALBSCA     !pointer on ALBSCA
+INTEGER(KIND=JPIM) :: MRAIN       !pointer on surface rain
+INTEGER(KIND=JPIM) :: MSNOW       !pointer on surface snow
+INTEGER(KIND=JPIM) :: MGZ0        !pointer on GZ0 
+INTEGER(KIND=JPIM) :: MGZ0H       !pointer on GZ0H 
+INTEGER(KIND=JPIM) :: MVQS        !pointer on surface moisture
+INTEGER(KIND=JPIM) :: MVTS        !pointer on surface temperature 
+INTEGER(KIND=JPIM) :: MVEMIS      !pointer on surface emissivity
+INTEGER(KIND=JPIM) :: MSWDIR      !pointer on SW direct surface flux
+INTEGER(KIND=JPIM) :: MSWDIF      !pointer on SW surface diffuse flux
+INTEGER(KIND=JPIM) :: MSFU        !pointer on U surface flux 
+INTEGER(KIND=JPIM) :: MSFV        !pointer on V surface flux
+INTEGER(KIND=JPIM) :: MSFRV       !pointer on Qv  surface flux
+INTEGER(KIND=JPIM) :: MSFTH       !pointer on Theta surface flux
+INTEGER(KIND=JPIM) :: MFRTHDS     !pointer on IR downward surface flux
+INTEGER(KIND=JPIM) :: MUM         !pointer on U surface wind
+INTEGER(KIND=JPIM) :: MVM         !pointer on V surface wind
+INTEGER(KIND=JPIM) :: MTM         !pointer on T at first model layer
+INTEGER(KIND=JPIM) :: MQVM        !pointer on QV at first model layer
+INTEGER(KIND=JPIM) :: MPABSM      !pointer on Pressure at first model layer
+INTEGER(KIND=JPIM) :: MPSURF      !pointer on surface pressure
+INTEGER(KIND=JPIM) :: MZZ         !pointer on height of first model layer
+INTEGER(KIND=JPIM) :: MRHODREF    !pointer on RHODREF
+INTEGER(KIND=JPIM) :: MSFSV       !pointer on surf. fluxes of scalars
+
+REAL(KIND=JPRB), DIMENSION(:), ALLOCATABLE  :: XSW_BANDS  !SW spectral bands
+					      ! for ext. surface scheme
+LOGICAL :: LOSUBG_COND ! see OSUBG_COND in mesoNH
+LOGICAL :: LOSUBG_AUCV ! see OSUBG_AUCV in mesoNH
+LOGICAL :: LOWARM      ! see OWARM in mesoNH
+LOGICAL :: LOSIGMAS    ! see OSIGMAS in mesoNH
+
+! * for the squall line case:
+LOGICAL :: LSQUALL ! use for the squall line case
+INTEGER(KIND=JPIM) :: NREFROI1 !starting point for cooling 
+INTEGER(KIND=JPIM) :: NREFROI2 !end point for cooling
+REAL(KIND=JPRB) :: VSQUALL ! mean velocity displacement of the squall line.
+
+! * for the MESO-NH physics printings:
+INTEGER(KIND=JPIM) :: NPTP ! index in NPROMA paquet where the print will be done
+INTEGER(KIND=JPIM) :: NPRINTFR !frequency of physical prints in apl_arome
+                               ! (default 1/h) 
+
+! * for the surface diagnostics.
+INTEGER(KIND=JPIM) :: NDIAGFR  ! frequency of surface scheme diagnostics
+
+!* for other diagnostics
+!  wmax per vertical level 
+LOGICAL :: LDIAGWMAX !activate print of WMAX in apl_arome
+INTEGER(KIND=JPIM) :: NDIAGWMAX ! frequency of preceding prints (in time step)
+
+!* for chemical scheme
+! time step factor
+INTEGER(KIND=JPIM) :: NDTCHEM
+!* for MNH budget anlysis
+LOGICAL :: LAROBU_ENABLE
+
+! for budgets and DDH, number of processes in budget arrays 
+INTEGER(KIND=JPIM),ALLOCATABLE ::  NBUPROC(:)
+INTEGER(KIND=JPIM),ALLOCATABLE ::  NJBUDG1(:)
+INTEGER(KIND=JPIM),ALLOCATABLE ::  NJBUDG2(:)
+
+!* number of budgets used in AROME, without pasive scalars
+INTEGER(KIND=JPIM), PARAMETER ::  JPAROBUD = 11
+
+!     ------------------------------------------------------------------
+END MODULE YOMARAR
Index: LMDZ5/trunk/libf/phylmd/rrtm/yomarphy.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yomarphy.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yomarphy.F90	(revision 1989)
@@ -0,0 +1,44 @@
+MODULE YOMARPHY
+
+IMPLICIT NONE
+
+SAVE
+
+!*
+!    -----------------------------------------------------------------
+
+!    VARIABLES DE CONTROLE DE LA PHYSIQUE AROME :
+!    CONTROL VARIABLES FOR THE AROME PHYSICS:
+
+!    LMPA    : CLE GENERALE POUR LA PHYSIQUE AROME
+!            : GLOBAL SWITCH FOR AROME PHYSICS
+!    LMICRO  : CLE D'APPEL DU SCHEMA MICROPHYSIQUE ICE3
+!              SWITCH FOR THE "ICE3" MICROPHYSICS SCHEME
+!    LTURB   : CLE D'APPEL DU SCHEMA DE TURBULENCE
+!              SWITCH FOR THE TURBULENCE SCHEME
+!    LMSE    : CLE D'APPEL DU SHEMA DE SURFACE EXTERNALISE
+!              SWITCH FOR THE EXTERNALIZED SURFACE SCHEME
+!    LKFBCONV: Control key to KFB convection scheme (deep and/or shallow)
+!    LKFBD   : Control key to KFB deep convection 
+!    LKFBS   : Control key to KFB shallow convection 
+!    LUSECHEM: Contol key for calling the Gas Chemistry scheme
+!    LORILAM : Contol key for calling the Aerosol Chemistry scheme
+!    LRDUST   : Contol key for calling the desertic aerosols
+!    LBUFLUX  : If TRUE fluxes are calculated in AROEND_BUDGET,
+!               if FALSE, tendencies remain 
+!   CCOUPLING : Type of SURFEX coupling. E - explicit, I - implicit 
+
+LOGICAL :: LMPA
+LOGICAL :: LMICRO
+LOGICAL :: LTURB
+LOGICAL :: LMSE
+LOGICAL :: LKFBCONV
+LOGICAL :: LKFBD,LKFBS
+LOGICAL :: LUSECHEM
+LOGICAL :: LORILAM
+LOGICAL :: LRDUST
+LOGICAL :: LBUFLUX
+CHARACTER(LEN=1) :: CCOUPLING
+!    -------------------------------------------------------------------
+END MODULE YOMARPHY
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/yomcape.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yomcape.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yomcape.F90	(revision 1989)
@@ -0,0 +1,46 @@
+MODULE YOMCAPE
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!*
+!     ------------------------------------------------------------------
+
+!     VARIABLES TO CONTROL CAPE COMPUTATION IN FULLPOS:
+
+!        NCAPEITER : NUMBER OF ITERATIONS IN THE NEWTON LOOPS. Default
+!                    is the same as NBITER in YOMPHY.
+
+!        NETAPES : NUMBER OF INTERMEDIATE-LAYERS USED FOR CALCULATION OF
+!                  VERTICAL ASCENT BETWEEN TWO MODEL PRESSURE LEVELS.
+!                  Default value is 2.
+
+!        GCAPEPSD : DEPTH OF LAYER ABOVE THE GROUND IN WHICH MOST 
+!                   UNSTABLE PARCEL IS SEARCHED FOR (UNIT: Pa)
+!                   USED JUST FOR TYPE 2 OF CAPE. Default value is 30000.
+!                   (CAPE Pressure Search Depth)
+
+!        GCAPERET: FRACTION OF THE CONDENSATES WHICH IS RETAINED, 
+!                  I.E. WHICH DOES NOT PRECIPITATE.
+!            IF GCAPERET=1. ==> REVERSIBLE MOIST ASCENT.
+!                      IT IS ASSUMED THAT ALL THE PARCEL'S CONDENSED
+!                      WATER IS RETAINED, THUS CLOUD CONDENSATES 
+!                      REDUCE THE BUOYANCY.
+!            IF GCAPERET=0. ==> "IRREVERSIBLE" (PSEUDO-ADIABATIC) MOIST ASCENT.
+!                       CLOUD CONDENSATES PRECIPITATE  INSTANTANEOUSLY
+!                       AND THUS DO NOT AFFECT THE BUOYANCY.
+!            GCAPERET CAN BE USED WITH VALUES BETWEEN 0. AND 1..
+!            Default value is 0.
+!-------------------------------------------------
+
+INTEGER(KIND=JPIM) :: NCAPEITER
+INTEGER(KIND=JPIM) :: NETAPES
+
+REAL(KIND=JPRB) :: GCAPERET
+REAL(KIND=JPRB) :: GCAPEPSD
+
+!     ------------------------------------------------------------------
+END MODULE YOMCAPE
Index: LMDZ5/trunk/libf/phylmd/rrtm/yomcli.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yomcli.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yomcli.F90	(revision 1989)
@@ -0,0 +1,109 @@
+MODULE YOMCLI
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!  *YOMCLI* : constants for new configuration 923
+
+! Dataset description
+
+!  - namelist -
+!  NPINT  : size of the interpolation box 
+!  LIEEE  : if ieee format is used
+!  LGLOBE : if global dataset
+!  NDATX  : x-size of the dataset (longitude) 
+!  NDATY  : y-size of the dataset (longitude) 
+!  ELONSW , ELATSW , ELONNE , ELATNE : for local datasets (parts 5, 7 or LAM)
+!           latitudes and longitudes of the SW and NE corners (in degrees) 
+!  - local, set directly by INCLI0 from namelist -
+!  EDLON , EDLAT  : resolution of the dataset (in degrees)
+!  NGLOBX, NGLOBY : corresponding numbers of points on the globe
+!  - local, set by VAL923 according to LSOLV -
+!  SMASK  : thresholds defining the masked areas
+!  SMANQ  : value for missing data
+!  NTPMER : land-use type for sea (or lake)
+!  NTPGLA : land-use type for ice-cap
+!  NTPDES : land-use type for low vegetation, including deserts (land default)
+!  NTPLAC : land-use type for lakes if a distinction is required
+!  NSLICE : number of packet of latitudes which slice the domain
+
+! Fields characteristics
+!  - namelist -
+!  SVEG   : threshold for significant vegetation cover 
+!           (below, vegetation characteristics are not considered)
+!  SFCZ0  : scaling factor for the secondary part of z0 (urban., veget.)
+!  STR    : thresholds on T-RTT used to control snow cover in Part 6
+!           SST-RTT, constant, in Part 10 when no input dataset is available
+!  SWR    : thresholds on T-RTT and Wr used to control snow cover in Part 6
+!  - local, set by VAL923 according to LSOLV -
+!  STHER  : ration of thermal to kinetic roughness length (over land)
+!  SALBN,SALBX,SALBM,SALBG,SALBB,SALBD : albedo
+!  SEMIN,SEMIX,SEMIM,SEMIG,SEMIB,SEMID : emissivity
+!  (minimum,maximum,sea,ice,sea ice,desert)
+!  SDEPN,SDEPX,SDEPD : soil depth
+!  SARGN,SARGX,SARGD : clay percentage
+!  SSABN,SSABX,SSABD : sand percentage
+!  SRSMN,SRSMX,SRSMD : minimum surface resistance
+!  (minimum,maximum,desert)
+!  SZZ0N,SZZ0M,SZZ0B,SZZ0U,SZZ0D : roughness length
+!  (minimum,sea,sea-ice,urban areas,desert)
+
+LOGICAL :: LIEEE
+LOGICAL :: LGLOBE
+INTEGER(KIND=JPIM) :: NPINT
+INTEGER(KIND=JPIM) :: NDATX
+INTEGER(KIND=JPIM) :: NDATY
+INTEGER(KIND=JPIM) :: NGLOBX
+INTEGER(KIND=JPIM) :: NGLOBY
+INTEGER(KIND=JPIM) :: NTPMER
+INTEGER(KIND=JPIM) :: NTPGLA
+INTEGER(KIND=JPIM) :: NTPDES
+INTEGER(KIND=JPIM) :: NTPLAC
+INTEGER(KIND=JPIM) :: NSLICE
+REAL(KIND=JPRB) :: ELONSW
+REAL(KIND=JPRB) :: ELATSW
+REAL(KIND=JPRB) :: ELONNE
+REAL(KIND=JPRB) :: ELATNE
+REAL(KIND=JPRB) :: EDLON
+REAL(KIND=JPRB) :: EDLAT
+REAL(KIND=JPRB) :: SMASK
+REAL(KIND=JPRB) :: SMANQ
+REAL(KIND=JPRB) :: SVEG
+REAL(KIND=JPRB) :: SFCZ0
+REAL(KIND=JPRB) :: STR
+REAL(KIND=JPRB) :: SWR
+REAL(KIND=JPRB) :: STHER
+REAL(KIND=JPRB) :: SALBN
+REAL(KIND=JPRB) :: SALBX
+REAL(KIND=JPRB) :: SALBM
+REAL(KIND=JPRB) :: SALBG
+REAL(KIND=JPRB) :: SALBB
+REAL(KIND=JPRB) :: SALBD
+REAL(KIND=JPRB) :: SEMIN
+REAL(KIND=JPRB) :: SEMIX
+REAL(KIND=JPRB) :: SEMIM
+REAL(KIND=JPRB) :: SEMIG
+REAL(KIND=JPRB) :: SEMIB
+REAL(KIND=JPRB) :: SEMID
+REAL(KIND=JPRB) :: SDEPN
+REAL(KIND=JPRB) :: SDEPX
+REAL(KIND=JPRB) :: SDEPD
+REAL(KIND=JPRB) :: SARGN
+REAL(KIND=JPRB) :: SARGX
+REAL(KIND=JPRB) :: SARGD
+REAL(KIND=JPRB) :: SSABN
+REAL(KIND=JPRB) :: SSABX
+REAL(KIND=JPRB) :: SSABD
+REAL(KIND=JPRB) :: SRSMN
+REAL(KIND=JPRB) :: SRSMX
+REAL(KIND=JPRB) :: SRSMD
+REAL(KIND=JPRB) :: SZZ0N
+REAL(KIND=JPRB) :: SZZ0M
+REAL(KIND=JPRB) :: SZZ0B
+REAL(KIND=JPRB) :: SZZ0U
+REAL(KIND=JPRB) :: SZZ0D
+
+END MODULE YOMCLI
Index: LMDZ5/trunk/libf/phylmd/rrtm/yomclop15.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yomclop15.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yomclop15.F90	(revision 1989)
@@ -0,0 +1,69 @@
+MODULE YOMCLOP15
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!     * YOMCLOP15* PARAMETERS FOR CLOUD OPTICAL PROPERTIES
+!*                       FROZEN VERSION (CYCLE 15) OF YOECLOP
+!     ------------------------------------------------------------------
+
+REAL(KIND=JPRB) :: RYFWCA15(2)
+REAL(KIND=JPRB) :: RYFWCB15(2)
+REAL(KIND=JPRB) :: RYFWCC15(2)
+REAL(KIND=JPRB) :: RYFWCD15(2)
+REAL(KIND=JPRB) :: RYFWCE15(2)
+REAL(KIND=JPRB) :: RYFWCF15(2)
+REAL(KIND=JPRB) :: REBCUA15(2)
+REAL(KIND=JPRB) :: REBCUB15(2)
+REAL(KIND=JPRB) :: REBCUC15(2)
+REAL(KIND=JPRB) :: REBCUD15(2)
+REAL(KIND=JPRB) :: REBCUE15(2)
+REAL(KIND=JPRB) :: REBCUF15(2)
+REAL(KIND=JPRB) :: REBCUG15
+REAL(KIND=JPRB) :: REBCUH15
+REAL(KIND=JPRB) :: REFFIA15
+REAL(KIND=JPRB) :: REFFIB15
+REAL(KIND=JPRB) :: REFFWIA15
+REAL(KIND=JPRB) :: RTIW15
+REAL(KIND=JPRB) :: RRIW15
+
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!        96-11: Ph. Dandin. Meteo-France
+!     J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
+
+!  NAME       TYPE     PURPOSE
+!  ----    :  ----   : -------------------------------------------------
+!*    FOUQUART (1987) WATER CLOUD OPTICAL PROPERTIES
+
+! RYFWCA15 :  REAL   : C1 IN OPTICAL THICKNESS FORMULA
+! RYFWCB15 :  REAL   : C2 IN OPTICAL THICKNESS FORMULA
+! RYFWCC15 :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
+! RYFWCD15 :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
+! RYFWCE15 :  REAL   : SINGLE SCATTERING ALBEDO PARAMETER
+! RYFWCF15 :  REAL   : ASSYMETRY FACTOR
+
+!*    ICE CLOUD OPTICAL PROPERTIES DERIVED FROM EBERT-CURRY (1992)
+
+! REBCUA15 :  REAL   : C1 IN OPTICAL THICKNESS FORMULA
+! REBCUB15 :  REAL   : C2 IN OPTICAL THICKNESS FORMULA
+! REBCUC15 :  REAL   : 1-C3  IN SINGLE SCATTERING ALBEDO FORMULA
+! REBCUD15 :  REAL   : C4 IN SINGLE SCATTERING ALBEDO FORMULA
+! REBCUE15 :  REAL   : C5 IN ASSYMETRY FACTOR FORMULA
+! REBCUF15 :  REAL   : C6 IN ASSYMETRY FACTOR FORMULA
+! REBCUG15 :  REAL   : C7 IN MASS ABSORPTION COEFFICIENT FORMULA
+! REBCUH15 :  REAL   : C8 IN MASS ABSORPTION COEFFICIENT FORMULA
+
+! REFFIA15 :  REAL   : C9  IN EFFECTIVE RADIUS FORMULA
+! REFFIB15 :  REAL   : C10 IN EFFECTIVE RADIUS FORMULA
+
+!*    TRANSITION BETWEEN LIQUID AND SOLID WATER
+
+! RTIW15   :  REAL   : TEMPERATURE THRESHOLD
+! RRIW15   :  REAL   :  TRANSITION RANGE
+!     -----------------------------------------------------------------
+END MODULE YOMCLOP15
Index: LMDZ5/trunk/libf/phylmd/rrtm/yomcoaphy.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yomcoaphy.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yomcoaphy.F90	(revision 1989)
@@ -0,0 +1,23 @@
+MODULE YOMCOAPHY
+
+USE PARKIND1  ,ONLY : JPIM
+USE GRIDPOINT_BUFFERS , ONLY : gridpoint_buffer
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOEPHY* - SWITCHES RELATED TO DIABATIC PROCESSES
+!     -----------------------------------------------------------------
+
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+INTEGER(KIND=JPIM) :: NPHYINT      ! NPHYINT=0 -> Physics and dynamics at the same resolution
+                                   ! NPHYINT=1 -> Physics grid coarser than dynamics grid
+				   ! NPHYINT=2 -> Physics grid finer than dynamics grid
+TYPE(gridpoint_buffer) :: PHYS_GPPBUF
+CHARACTER (LEN = 32) ::   CPTABLEFIL
+CHARACTER (LEN = 256) ::   CPTABLEDIR
+
+END MODULE YOMCOAPHY
Index: LMDZ5/trunk/libf/phylmd/rrtm/yomcst.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yomcst.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yomcst.F90	(revision 1989)
@@ -0,0 +1,82 @@
+MODULE YOMCST
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+
+!*    Common of physical constants
+!     You will find the meanings in the annex 1 of the documentation
+
+! A1.0 Fundamental constants
+REAL(KIND=JPRB) :: RPI
+REAL(KIND=JPRB) :: RCLUM
+REAL(KIND=JPRB) :: RHPLA
+REAL(KIND=JPRB) :: RKBOL
+REAL(KIND=JPRB) :: RNAVO
+! A1.1 Astronomical constants
+REAL(KIND=JPRB) :: RDAY
+REAL(KIND=JPRB) :: REA
+REAL(KIND=JPRB) :: REPSM
+REAL(KIND=JPRB) :: RSIYEA
+REAL(KIND=JPRB) :: RSIDAY
+REAL(KIND=JPRB) :: ROMEGA
+! A1.2 Geoide
+REAL(KIND=JPRB) :: RA
+REAL(KIND=JPRB) :: RG
+REAL(KIND=JPRB) :: R1SA
+! A1.3 Radiation
+REAL(KIND=JPRB) :: RSIGMA
+REAL(KIND=JPRB) :: RI0
+! A1.4 Thermodynamic gas phase
+REAL(KIND=JPRB) :: R
+REAL(KIND=JPRB) :: RMD
+REAL(KIND=JPRB) :: RMV
+REAL(KIND=JPRB) :: RMO3
+REAL(KIND=JPRB) :: RD
+REAL(KIND=JPRB) :: RV
+REAL(KIND=JPRB) :: RCPD
+REAL(KIND=JPRB) :: RCPV
+REAL(KIND=JPRB) :: RCVD
+REAL(KIND=JPRB) :: RCVV
+REAL(KIND=JPRB) :: RKAPPA
+REAL(KIND=JPRB) :: RETV
+REAL(KIND=JPRB) :: RMCO2
+REAL(KIND=JPRB) :: RMCH4
+REAL(KIND=JPRB) :: RMN2O
+REAL(KIND=JPRB) :: RMSF6
+REAL(KIND=JPRB) :: RMRA
+REAL(KIND=JPRB) :: RMCO
+REAL(KIND=JPRB) :: RMHCHO
+REAL(KIND=JPRB) :: RMNO2
+REAL(KIND=JPRB) :: RMSO2
+! A1.5,6 Thermodynamic liquid,solid phases
+REAL(KIND=JPRB) :: RCW
+REAL(KIND=JPRB) :: RCS
+! A1.7 Thermodynamic transition of phase
+REAL(KIND=JPRB) :: RLVTT
+REAL(KIND=JPRB) :: RLSTT
+REAL(KIND=JPRB) :: RLVZER
+REAL(KIND=JPRB) :: RLSZER
+REAL(KIND=JPRB) :: RLMLT
+REAL(KIND=JPRB) :: RTT
+REAL(KIND=JPRB) :: RATM
+REAL(KIND=JPRB) :: RDT
+! A1.8 Curve of saturation
+REAL(KIND=JPRB) :: RESTT
+! Retire declarations de RALPW, RALPD et RALPS car deja dans YOMCST.h (MPL 20140212)
+!REAL(KIND=JPRB) :: RALPW
+REAL(KIND=JPRB) :: RBETW
+REAL(KIND=JPRB) :: RGAMW
+!REAL(KIND=JPRB) :: RALPS
+REAL(KIND=JPRB) :: RBETS
+REAL(KIND=JPRB) :: RGAMS
+!REAL(KIND=JPRB) :: RALPD
+REAL(KIND=JPRB) :: RBETD
+REAL(KIND=JPRB) :: RGAMD
+
+!    ------------------------------------------------------------------
+END MODULE YOMCST
Index: LMDZ5/trunk/libf/phylmd/rrtm/yomct0.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yomct0.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yomct0.F90	(revision 1989)
@@ -0,0 +1,469 @@
+MODULE YOMCT0
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+
+!*    Control variables for the job - constant within job
+
+!========== TECHNICAL SWITCHES ================================================
+
+! ----- configuration:
+! NCONF      : configuration of the job
+
+!                0- 99 : 3-D integration job
+!              100-199 : variational job
+!              200-299 : 2-D integration job
+!              300-349 : KALMAN filter                    (currently obsolete)
+!              350-399 : predictability model             (currently obsolete)
+!              400-499 : test of the adjoint
+!              500-599 : test of the tangent linear model
+!              600-699 : eigenvalue/vector solvers
+!              700-799 : optimal interpolation
+!              800-899 : sensitivity
+!              900-999 : miscellaneous other configurations.
+
+!                    1 : 3-D primitive equation model
+
+!                  131 : incremental 4-D VAR/3-D VAR
+
+!                  201 : shallow-water model
+!                  202 : vorticity equation model
+
+!                  401 : test of adjoint with 3-D P.E. model
+!                  421 : test of adjoint with shallow-water model
+!                  422 : test of adjoint with vorticity equation model
+
+!                  501 : test of tangent linear with 3-D P.E. model
+!                  521 : test of tangent linear with shallow-water model
+!                  522 : test of tangent linear with vorticity equation model
+
+!                  601 : eigenvalue/vector solver for 3-D P.E. model
+
+!                  701 : optimal interpolation with CANARI
+
+!                  801 : sensitivity with 3-D P.E. model
+
+!                  901 : set up initial conditions (CPREP1)
+!                  903 : set up initial conditions (CPREP5)
+!                  911 : computes dilatation matrices for spectral space
+!                  912 : computes rotation matrices for spectral space
+!                  923 : initialisation of climatologic files
+!                  931 : creation of an ARPEGE file containing the NESDIS SST (INCLITC).
+!                  932 : interpolates the sea-ice concentration field from
+!                        satellite data to the ARPEGE grid (CSEAICE).
+!                  940 : corrects the dry surface pressure in an ARPEGE file
+!                        to keep total mass constant compared to a reference
+!                        ARPEGE file (CORMASS)
+!                  951 : difference between 2 model states (CPREP2)
+
+! ----- ???:
+! NTASKS     : ??? (no comment provided, currently used in CANARI only).
+
+! ----- variables linked with diagnostics and outputs:
+! LALLOPR    : .T. = print information about all allocations/deallocations
+! NPRINTLEV  : 0 = "basic prints'; 1 = "more prints"; 2 = "debug prints"
+
+! ----- type of file used:
+! LFDBOP     : .T. = fields data base utilized
+! LGRBOP     : .T. = output in GRIB (not ARPEGE)
+! LFBDAP     : .T. = diagnostics written on trajectory files
+! LARPEGEF   : .T. = use ARPEGE files
+! LARPEGEF_TRAJHR   : .T. = use ARPEGE files for high resolution trajectory
+! LARPEGEF_TRAJBG   : .T. = use ARPEGE files for background
+! LARPEGEF_RDGP_INIT     : .T. = use grid-point ARPEGE files
+! LARPEGEF_RDGP_TRAJHR   : .T. = use grid-point ARPEGE files for HR trajectory
+! LARPEGEF_RDGP_TRAJBG   : .T. = use grid-point ARPEGE files for background
+! CNDISPP    : directory of display files
+
+! ----- variables linked to post-processing:
+! LFPOS      : .T. = use of Full-POS rather than POS
+! CFPNCF     : name of Full-POS control file (pseudo-configuration 927)
+! LFPART2    : .T. = second part of interpolations for changing geometry
+!              (pseudo-configuration 927)
+! CFDIRLST   : path of postprocessing listing file
+! CNPPATH    : directory of postprocessing namelist files
+
+! ----- use of transmission coefficients stored in Fourier or spectral space:
+! LRETCFOU   : .T. = reading Fourier transmission coefficients on file
+!              for simplified physics.
+! LWRTCFOU   : .T. = writing Fourier transmission coefficients on file.
+! LRFOUTCNORM: activates diagnostics on Fourier transmission coefficients.
+!              - LRFOUTCNORM(1)=.T.: global statistics.
+!              - LRFOUTCNORM(2)=.T.: statistics per latitude.
+!              - LRFOUTCNORM(3)=.T.: statistics per layer.
+!              - LRFOUTCNORM(4)=.T.: statistics per wavenumber.
+! LRGPTCNORM : activates diagnostics on grid-point transmission coefficients.
+!              - LRGPTCNORM(1)=.T.: global statistics.
+!              - LRGPTCNORM(2)=.T.: statistics per latitude.
+!              - LRGPTCNORM(3)=.T.: statistics per layer.
+
+! ----- other variables:
+! LNF        : .T. = start, .F. = restart
+! LSMSSIG    : .T. = send signals to SMS (ECMWF supervisor)
+! LOPDIS     : .T. = calls OPDIS
+! NCYCLE     : cycle identifier
+! CNMEXP     : name of the experiment
+!              An experiment is identified by its name (16 characters)
+!              and its cycle (typically same experiment but without a bug)
+! CFCLASS    : class for use by FDB
+! CTYPE      : type for use by FDB
+! LBACKG     : ???
+! LMINIM     : ???
+
+!========== MODEL SWITCHES ====================================================
+! Remark: this section containes some dynamical variables which cannot be
+!         put in NAMDYN because they are used in routines called before SUDYN
+!         and sometimes to allocate some arrays.
+
+! ----- advection scheme, semi-Lagrangian scheme:
+! LSLAG     : .TRUE. = semi-lagrangian on
+! LTWOTL    : .TRUE. if two-time-level semi-Lagrangian scheme will be used
+! LRFRIC    : .TRUE. = Rayleigh friction in zonal wind (for p < 9.9hPa)
+! LVERCOR   : .T./.F.: thin layer hypothesis relaxed/applied.
+
+! ----- vertical discretisation, vertical boundaries:
+! LAPRXPK   : way of computing full-levels pressures in primitive equation
+!             hydrostatic model.
+!             .T.: full levels are computed by PK=(PK+1/2 + PK-1/2)*0.5
+!             .F.: full levels are computed by a more complicated formula
+!                  consistent with "alpha" in geopotential formula.
+! LREGETA   : .T.: for the interlayer L, ETA(L)=L/NFLEVG
+!             .F.: for the interlayer L, ETA(L)=A(L)/P0+B(L)
+! LRUBC     : .T.: if radiational upper boundary condition
+
+! ----- numbering of timesteps:
+! NSTART    : first timestep of model
+! NSTOP     : last timestep of model
+
+! ----- quadrature:
+! NQUAD     : 1 ====> GAUSS
+
+! ----- type of equations:
+! LNHDYN    : .T. if 3-D non-hydrostatic dynamics is active
+
+! ----- way of computing initial state:
+! N2DINI    : 1 initialization for 2D with Haurwitz wave
+!           : 2 initialization for 2D with real fields
+! N3DINI    : 1 initialization for 3D with standard atmosphere
+!             (not available since cycle 12)
+!           : 0 initialization for 3D with real fields
+
+! ----- semi-implicit scheme:
+! LSITRIC   : .T.: if "tridiagonal" solver is used for the vertically
+!             coupled semi-implicit equations
+
+! ----- control of variables which are transformed in spectral space:
+! LSPRT     : .T.: if R*T/Rd "virtual temperature" as spectral variable
+
+! ----- diagnostics and frequencies:
+! NSPPR     : 0: no spectrum printed in spnorm; only global norms averaged
+!             on the vertical are printed
+!           : 1: no spectrum printed in spnorm; only global norms averaged
+!             on the vertical and global norms on each layer are printed
+!           : 2: both total wavenumber spectrum and zonal wavenumber spectrum
+!             are printed
+! NFRPOS    : frequency of post-processing events (time-steps)
+! NFRISP    : frequency of isp (animation !) events (time-steps)
+! NFRCO     : frequency of coupled fields (time-steps)
+! NFRCORM   : mass correction frequency (>0 time-steps, <0 hours, 0 no
+!             correction)
+! NFRHIS    : frequency of history write_ups (time-steps)
+! NFRMASSCON: frequency of mass conservation fixup (time-steps)
+! NFRGDI    : frequency of grid-point space diagnostics
+! NFRSDI    : frequency of spectral space diagnostics
+! NFRDHFG   : write-up frequency of global DDH
+! NFRDHFZ   : write-up frequency of zonal DDH
+! NFRDHFD   : write-up frequency of "limited domain" DDH
+! NFRDHP    : write-up frequency of DDH files
+! NPOSTS    : array containing postprocessing steps
+! NPISPS    : array containing isp (animation !) steps
+! NHISTS    : array containing history write-up steps
+! NMASSCONS : array containing mass conservation fixup steps
+! NGDITS    : array containing grid point diagnostics steps
+! NSDITS    : array containing spectral diagnostics steps
+! NDHFGTS   : array containing write out steps for global DDH
+! NDHFZTS   : array containing write out steps for zonal means DDH
+! NDHFDTS   : array containing write out steps for limited areas DDH
+! NDHPTS    : array containing write out steps for DDH
+! Explanation for N[XXX]TS:
+!             1) if N[XXX]TS(0)=0 action if MOD(JSTEP,NFR[XXX])=0
+!             2) if N[XXX]TS(0)>0 N[XXX]TS(0) significant numbers in 
+!                N[XXX]TS are then considered and:
+!                action for JSTEP=N[XXX]TS(.)*NFR[XXX]
+!             3) IF N[XXX]TS(0)<0
+!                action for JSTEP=(N[XXX]TS(.)/DELTAT)*NFR[XXX]
+
+!========== ASSIMILATION SWITCHES =============================================
+
+! LNOBGON : .F. if eq. .T. no stop if unsuccessful reading of CMA files
+! LCANARI : .T. = term to control French OI
+! LCASIG  : .T. = interpolation of the model errors (French OI)
+! LGUESS  : .T. = term of first guess included
+! LOBS    : .T. = term of observations included
+! LSIMOB  : .T. = if simulated observations
+! LOBSC1  : .T. = term of observations included in configuration 1
+! LSCREEN : .T. = observation screening for variational assimilation
+! LSCREEN_OPENMP : .T. = 4DVAR screening runs in OpenMP-parallel mode over timeslots
+! L_SPLIT_SCREEN .T. = to split screenng
+! L_SCREEN_CALL: .T. = call to screening routine SCREEN
+! LOBSREF : .T. = comparison to observation for the trajectory (NCONF=131)
+! LIFSMIN : .T. = if running minimisation
+! LIFSTRAJ: .T. = if running high resolution trajectory integration
+! NCNTVAR : Definition of the control variable of a variational job.
+!           = 1 ===> control variables are model variables
+!           = 2 ===> control variables are normalized departures of
+!                    model variables from the background field
+!           = 3 ===> ..........
+! LOLDPP  : .T. use "old" p.p. of T,Q,U and V
+! NSTEPINI: Initial step in hours for the initial conditions
+!           at the beginning of 4D-Var trajectory (usually 3 hours).
+!           It is used to update the step while saving the FCs along
+!           the first trajectory.
+! NINTERPTRAJ : Interpolation method applied to increments
+! NINTERPINCR : Interpolation method applied to increments
+!           = 1 ===> Bi-linear interpolation (default)
+!           = 2 ===> Bi-cubic Rinterpolation
+!           = 3 ===> Conserving interpolation
+! For Conserving interpolation the style is defined by:
+! NINTERPTRAJORDER : order of interpolation for trajectories
+! NINTERPINCRORDER : order of interpolation for increments
+! NINTERPTRAJLIMIT : 0 if limiter is NOT used (default), 1 if used for trajectory interpolation
+! NINTERPINCRLIMIT : 0 if limiter is NOT used (default), 1 if used for increment interpolation
+
+!========== ALADIN SWITCHES ===================================================
+
+! LELAM   : .T. = limited area model with coupling or fully biperiodic
+!                 model (torus)
+!           .F. = global model (sphere)
+! LRPLANE : .T. = plane cartesian geometry
+!           .F. = spherical geometry
+! LTENC   : TRUE if tendency coupling of surface pressure
+!           FALSE if no tend. coupling of surf. pressure
+! LALLTC  : used together with LTENC when LTENC=.T.
+!          - no meaning for quadratic tendency coupling, where just t1 coupling
+!          is applied at every NEFRCL time step
+!          - for lin. tendency coupling:
+!          TRUE if tendency coupling of surf. pres. at every step
+!          FALSE if tend. coupl., except at every NEFRCL time steps
+!          when just t1 coupling
+! RTENC : multiplier of EALFA in the tendency coupling scheme
+!  for stability reasons (RTENC<=1. close to 1)
+
+!========== AROME SWITCH ======================================================
+
+! LAROME  : .T. = AROME limited area model
+
+!========== ECMWF Single Column Model =========================================
+! LSCMEC  : .T. = ECMWF Single Column Model
+! LSFCFLX : .T. = forcing with surface fluxes (latent and sensible).
+! REXTSHF : externally supplied sensible heat flux [W/m^2]
+! REXTLHF : externally supplied latent   heat flux [W/m^2]
+! LROUGH  : .T. = surface roughness length is externally specified 
+! REXTZ0M : externally supplied roughness length for momentum [m]
+! REXTZ0H : externally supplied roughness length for heat [m]
+
+!========== DISTRIBUTED MEMORY SWITCHES =======================================
+
+! LMPOFF  : .T. = switch off the message passing library initialisation
+!                 requested for special cases LMESSP=.T. and NPROC=1
+!         : .F. = (default) full message passing features
+! NPROC   : Total number of processors requested for this run
+! N_REGIONS_NS : Number of regions (LEQ_REGIONS=T) or NPRGPNS (LEQ_REGIONS=F)
+! N_REGIONS_EW : Maximum number of partitions for all regions
+! N_REGIONS : Number of partitions in each region
+! NPRGPNS : Number of processors used during grid-point phase in North-South
+!           direction (previously known as NPROCA)
+! NPRGPEW : Number of processors used during grid-point phase in East-West
+!           direction (previously known as NPROCB)
+! NPRTRNS : Number of processors used during transform phase in North-South
+!           direction (previously the same as NPROCA and now implemented
+!           such that NPRTRNS=NPTRW)
+! NPRTRM  : Number of processors used during spectral computations in
+!           meridional wave direction (previously the same as NPROCA
+!           and now implemented such that NPRTRM=NPTRW)
+! NPRTRN  : Number of processors used during spectral computations in total
+!           wave direction (previously the same as NPROCA and now implemented
+!           such that NPRTRN=NPTRV)
+! NPRTRW  : Number of processors used during transform phase in wave space
+!           (previously the same as NPROCA)
+! NPRTRV  : Number of processors used during transform phase in vertical
+!           direction (previously known as NPROCB)
+! LOUTPUT : .T. = diagnostic output requested on this PE
+! NOUTPUT : 0 = No diagnostic output
+!           1 = Only diagnostic output from PE1 ( default )
+!           2 = Diagnostic output from all PEs into separate files
+! LREFOUT : .T. compare to reference run
+! LREFGEN : .T. to generate reference file
+! LMPDIAG : .T. = extensive message passing diagnostic output requested
+
+!========== PC SCHEMES ========================================================
+!----------------------------------------------
+! PC SCHEMES QUANTITIES CONSTANT DURING INTEGRATION
+!----------------------------------------------
+
+! LPC_FULL - full PC scheme switch (with reiterations of trajectories)
+
+! LPC_OLD - iterative scheme without trajectories recalculations
+!         - with iteration of D3 terms (Bubnova et all., 1995)
+
+! LPC_NESC - non-extrapolating two-time level SL SI scheme
+!          - X(t+dt/2) = X(t) during predictor
+
+!========== FORCING SWITCH ====================================================
+! LSFORC - switch to activate the large scale forcings in setup and cpg
+!==============================================================================
+
+! * Parameters:
+INTEGER(KIND=JPIM), PARAMETER :: JPNPST=240
+
+! * Technical switches:
+INTEGER(KIND=JPIM) :: NCONF
+INTEGER(KIND=JPIM) :: NTASKS ! ??????
+LOGICAL :: LALLOPR
+INTEGER(KIND=JPIM) :: NPRINTLEV
+LOGICAL :: LFDBOP
+LOGICAL :: LGRBOP
+LOGICAL :: LFBDAP
+LOGICAL :: LARPEGEF
+LOGICAL :: LARPEGEF_TRAJHR
+LOGICAL :: LARPEGEF_TRAJBG
+LOGICAL :: LARPEGEF_RDGP_INIT
+LOGICAL :: LARPEGEF_RDGP_TRAJHR
+LOGICAL :: LARPEGEF_RDGP_TRAJBG
+CHARACTER (LEN = 120) ::  CNDISPP
+LOGICAL :: LFPOS
+CHARACTER (LEN = 6) ::  CFPNCF
+LOGICAL :: LFPART2
+CHARACTER (LEN = 120) ::  CFDIRLST
+CHARACTER (LEN = 120) ::  CNPPATH
+LOGICAL :: LRETCFOU
+LOGICAL :: LWRTCFOU
+LOGICAL :: LRFOUTCNORM(4)
+LOGICAL :: LRGPTCNORM(3)
+LOGICAL :: LNF
+LOGICAL :: LSMSSIG
+LOGICAL :: LOPDIS
+INTEGER(KIND=JPIM) :: NCYCLE=128
+CHARACTER (LEN = 16) ::  CNMEXP
+CHARACTER (LEN = 2) ::  CFCLASS
+CHARACTER (LEN = 2) ::  CTYPE
+LOGICAL :: LBACKG
+LOGICAL :: LMINIM
+
+! * Model switches:
+LOGICAL :: LSLAG
+LOGICAL :: LTWOTL
+LOGICAL :: LRFRIC
+LOGICAL :: LVERCOR
+LOGICAL :: LAPRXPK
+LOGICAL :: LREGETA
+LOGICAL :: LRUBC
+INTEGER(KIND=JPIM) :: NSTART
+INTEGER(KIND=JPIM) :: NSTOP
+INTEGER(KIND=JPIM) :: NQUAD
+LOGICAL :: LNHDYN
+INTEGER(KIND=JPIM) :: N2DINI
+INTEGER(KIND=JPIM) :: N3DINI
+LOGICAL :: LSITRIC
+LOGICAL :: LSPRT
+INTEGER(KIND=JPIM) :: NSPPR
+INTEGER(KIND=JPIM) :: NFRPOS
+INTEGER(KIND=JPIM) :: NFRISP
+INTEGER(KIND=JPIM) :: NFRCORM
+INTEGER(KIND=JPIM) :: NFRCO
+INTEGER(KIND=JPIM) :: NFRHIS
+INTEGER(KIND=JPIM) :: NFRMASSCON
+INTEGER(KIND=JPIM) :: NFRGDI
+INTEGER(KIND=JPIM) :: NFRSDI
+INTEGER(KIND=JPIM) :: NFRDHFG
+INTEGER(KIND=JPIM) :: NFRDHFZ
+INTEGER(KIND=JPIM) :: NFRDHFD
+INTEGER(KIND=JPIM) :: NFRDHP
+INTEGER(KIND=JPIM) :: NPOSTS(0:JPNPST)
+INTEGER(KIND=JPIM) :: NPISPS(0:JPNPST)
+INTEGER(KIND=JPIM) :: NHISTS(0:JPNPST)
+INTEGER(KIND=JPIM) :: NMASSCONS(0:JPNPST)
+INTEGER(KIND=JPIM) :: NGDITS(0:JPNPST)
+INTEGER(KIND=JPIM) :: NSDITS(0:JPNPST)
+INTEGER(KIND=JPIM) :: NDHFGTS(0:JPNPST)
+INTEGER(KIND=JPIM) :: NDHFZTS(0:JPNPST)
+INTEGER(KIND=JPIM) :: NDHFDTS(0:JPNPST)
+INTEGER(KIND=JPIM) :: NDHPTS(0:JPNPST)
+
+! * Assimilation:
+LOGICAL :: LNOBGON
+LOGICAL :: LCANARI
+LOGICAL :: LCASIG
+LOGICAL :: LGUESS
+LOGICAL :: LOBS
+LOGICAL :: LSIMOB
+LOGICAL :: LOBSC1
+LOGICAL :: LSCREEN
+LOGICAL :: LSCREEN_OPENMP
+LOGICAL :: L_SPLIT_SCREEN
+LOGICAL :: L_SCREEN_CALL
+LOGICAL :: LOBSREF
+LOGICAL :: LIFSMIN
+LOGICAL :: LIFSTRAJ
+INTEGER(KIND=JPIM) :: NCNTVAR
+LOGICAL :: LOLDPP
+INTEGER(KIND=JPIM) :: NSTEPINI
+INTEGER(KIND=JPIM) :: NINTERPTRAJ
+INTEGER(KIND=JPIM) :: NINTERPINCR
+INTEGER(KIND=JPIM) :: NINTERPTRAJLIMIT
+INTEGER(KIND=JPIM) :: NINTERPINCRLIMIT
+INTEGER(KIND=JPIM) :: NINTERPTRAJORDER
+INTEGER(KIND=JPIM) :: NINTERPINCRORDER
+
+! * ALADIN:
+LOGICAL :: LELAM
+LOGICAL :: LRPLANE
+LOGICAL :: LTENC
+LOGICAL :: LALLTC
+REAL(KIND=JPRB) :: RTENC
+
+! * AROME:
+LOGICAL :: LAROME
+
+! * ECMWF Single Column Model:
+LOGICAL :: LSCMEC
+LOGICAL :: LSFCFLX
+REAL(KIND=JPRB) :: REXTSHF
+REAL(KIND=JPRB) :: REXTLHF
+LOGICAL :: LROUGH
+REAL(KIND=JPRB) :: REXTZ0M
+REAL(KIND=JPRB) :: REXTZ0H
+
+! * Distributed memory:
+LOGICAL :: LMPOFF
+INTEGER(KIND=JPIM) :: NPROC
+INTEGER(KIND=JPIM) :: N_REGIONS_NS
+INTEGER(KIND=JPIM) :: N_REGIONS_EW
+INTEGER(KIND=JPIM),ALLOCATABLE :: N_REGIONS(:)
+INTEGER(KIND=JPIM) :: NPRGPNS
+INTEGER(KIND=JPIM) :: NPRGPEW
+INTEGER(KIND=JPIM) :: NPRTRNS
+INTEGER(KIND=JPIM) :: NPRTRM
+INTEGER(KIND=JPIM) :: NPRTRN
+INTEGER(KIND=JPIM) :: NPRTRW
+INTEGER(KIND=JPIM) :: NPRTRV
+LOGICAL :: LOUTPUT
+INTEGER(KIND=JPIM) :: NOUTPUT
+LOGICAL :: LREFOUT
+LOGICAL :: LREFGEN
+LOGICAL :: LMPDIAG
+
+! * PC schemes.
+LOGICAL ::  LPC_FULL
+LOGICAL ::  LPC_OLD
+LOGICAL ::  LPC_NESC
+!
+! * FORCING
+LOGICAL ::  LSFORC
+!     ------------------------------------------------------------------
+END MODULE YOMCT0
Index: LMDZ5/trunk/libf/phylmd/rrtm/yomct0b.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yomct0b.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yomct0b.F90	(revision 1989)
@@ -0,0 +1,18 @@
+MODULE YOMCT0B
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+
+!*  Control variables for the default set-up DO NOT USE THEM OUT OF THE SET-UP !ub
+
+! LECMWF  : .T. = set-up default values used at ECMWF
+!           .F. = set-up default values used at METEO-FRANCE
+LOGICAL :: LECMWF
+
+!     ------------------------------------------------------------------
+END MODULE YOMCT0B
Index: LMDZ5/trunk/libf/phylmd/rrtm/yomct3.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yomct3.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yomct3.F90	(revision 1989)
@@ -0,0 +1,24 @@
+MODULE YOMCT3
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+
+!*    Control variables for the model  (changed at level 3)
+
+! NSTEP       : current timestep of model
+! LGPQINSP    : .TRUE. if grid-point Q initialized from spectral field
+! LSPC_FROM_DI: T (resp. F) if SPCH is called from STEPO (resp. STEPOTL).
+! LRECALL_SUHDF_IN_CNT4: T if SUHDF must be called again in CNT4.
+
+INTEGER(KIND=JPIM) :: NSTEP
+LOGICAL :: LGPQINSP
+LOGICAL :: LSPC_FROM_DI
+LOGICAL :: LRECALL_SUHDF_IN_CNT4
+
+!     ------------------------------------------------------------------
+END MODULE YOMCT3
Index: LMDZ5/trunk/libf/phylmd/rrtm/yomcver.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yomcver.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yomcver.F90	(revision 1989)
@@ -0,0 +1,48 @@
+MODULE YOMCVER
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+! -----------------------------------------------------------------------------
+
+! * Variables related to vertical discretisation in finite elements:
+! LVERTFE : .T./.F. Finite element/conventional vertical discretisation.
+! NVSCH   : type of basis if the finite element vertical discretisation is used.
+!           1: linear functions.
+!           3: Hermite cubic functions.
+! RINTE   : matricial operator for vertical integrations in the
+!           finite element vertical discretisation.
+! RDERI   : matricial operator for vertical derivatives in the
+!           finite element vertical discretisation.
+LOGICAL :: LVERTFE
+INTEGER(KIND=JPIM) :: NVSCH
+REAL(KIND=JPRB),ALLOCATABLE :: RINTE(:,:)
+REAL(KIND=JPRB),ALLOCATABLE :: RDERI(:,:)
+
+! -----------------------------------------------------------------------------
+
+! * Variables related to use of spline cubic vertical interpolations
+!   in the semi-Lagrangian scheme:
+! LVSPLIP            : .T. if vertical spline cubic SL interpolations for O3.
+! RVSPTRI,RVSPC      : are used to re-profile the field to be interpolated
+!                      in routine VSPLTRANS.
+! RFAA,RFBB,RFCC,RFDD: are used in the computation of the vertical weights.
+! VRDETAR            : ratio (eta(lbar)-eta(lbar-1))/(eta(lbar-1)-eta(lbar-2)),
+!                      is used in the interpolation routine LAITVSPCQM to
+!                      ensure monotonicity and conservation properties.
+LOGICAL :: LVSPLIP
+LOGICAL :: LSVTSM                ! Stratospheric vertical trajectory smoothed
+REAL(KIND=JPRB),ALLOCATABLE :: RVSPTRI(:,:)
+REAL(KIND=JPRB),ALLOCATABLE :: RVSPC(:)
+REAL(KIND=JPRB),ALLOCATABLE :: RFAA(:,:)
+REAL(KIND=JPRB),ALLOCATABLE :: RFBB(:,:)
+REAL(KIND=JPRB),ALLOCATABLE :: RFCC(:,:)
+REAL(KIND=JPRB),ALLOCATABLE :: RFDD(:,:)
+REAL(KIND=JPRB),ALLOCATABLE :: VRDETAR(:)
+
+! -----------------------------------------------------------------------------
+
+END MODULE YOMCVER
Index: LMDZ5/trunk/libf/phylmd/rrtm/yomdim.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yomdim.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yomdim.F90	(revision 1989)
@@ -0,0 +1,230 @@
+MODULE YOMDIM
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+
+!*    Dimensions of model working arrays
+
+! === COLLOCATION GRID OF THE DYNAMICS ========================================
+
+! NDGLG  : number of rows of latitudes
+! NDGLL  : number of rows of latitudes for which this process is
+!          performing Fourier Space calculations
+! NDGNH  : number of rows in the northern hemisphere
+! NDGSUR : number of additional rows at each pole for horizontal
+!          interpolations.
+! NDGSAG = -NDGSUR+1
+! NDGSAL = Local version of NDGSAG.
+! NDGSAH = 1-NSLWIDE in DM version.
+! NDGSAFPH=1-NFPWIDE in DM version.
+! NDGENG = NDGLG+NDGSUR
+! NDGENL = Number of latitude rows for which this process has grid
+!          point calculations to perform.
+! NDGENH = NDGENL+NSLWIDE in DM version.
+! NDGENFPH=NDGENL+NFPWIDE in DM version.
+! NDGUNG : first row of the area of interest in Aladin
+!        = NDGSAG in the global model
+! NDGUXG : last  row of the area of interest in Aladin
+!        = NDGENG in the global model
+! NDGUNL : local first row in C+I zone in distributed memory Aladin
+! NDGUXL : local last row in C+I zone in distributed memory Aladin
+! NDLON  : length of a row of latitude near equator
+! NDSUR1 : over dimensioning of NDLON for technical reasons (at least 2)
+! NDLSUR = NDLON+NDSUR1
+! NDLSM  = NDLSUR-1
+! NDLUNG : first meridian of the area of interest in Aladin
+!        = 1 in the global model
+! NDLUXG : last  meridian of the area of interest in Aladin
+!        = NDLON in the global model
+! NDLUNL : local first meridian in C+I zone in distributed memory Aladin
+! NDLUXL : local last meridian in C+I zone in distributed memory Aladin
+! NPROMA : working dimension for grid-point computations
+! NPROMB : working dimension for a 2nd call to DMN physics
+! NPROMC : working dimension for a 2nd call to DMN physics
+! NPROME : working dimension for ECMWF physics computations
+! NPROMM : working dimension for DMN   physics computations
+! NPROMNH: working dimension for non hydrostatic
+! NPROMNH_GWADV: working dimension for non hydrostatic (arrays used only
+!          when LGWADV=T)
+! NPROMP : working dimension for physics computations
+! NPROMV : working dimension for variational gridpoint fields
+! NPROMVC: working dimension for some additional grid-point arrays
+!          used only when "lvercor=.T.".
+! NGPBLKS: number of grid point NPROMA-blocks.
+! LOPTPROMA : .TRUE. NPROMA will be optimised
+!           : .FALSE. NPROMA will not be optimised (forced by
+!           : negative NPROMA in namelist)
+
+INTEGER(KIND=JPIM) :: NDGLG
+INTEGER(KIND=JPIM) :: NDGLL
+INTEGER(KIND=JPIM) :: NDGNH
+INTEGER(KIND=JPIM) :: NDGSUR
+INTEGER(KIND=JPIM) :: NDGSAG
+INTEGER(KIND=JPIM) :: NDGSAL
+INTEGER(KIND=JPIM) :: NDGSAH
+INTEGER(KIND=JPIM) :: NDGSAFPH
+INTEGER(KIND=JPIM) :: NDGENG
+INTEGER(KIND=JPIM) :: NDGENL
+INTEGER(KIND=JPIM) :: NDGENH
+INTEGER(KIND=JPIM) :: NDGENFPH
+INTEGER(KIND=JPIM) :: NDGUNG
+INTEGER(KIND=JPIM) :: NDGUXG
+INTEGER(KIND=JPIM) :: NDGUNL
+INTEGER(KIND=JPIM) :: NDGUXL
+INTEGER(KIND=JPIM) :: NDLON
+INTEGER(KIND=JPIM) :: NDSUR1
+INTEGER(KIND=JPIM) :: NDLSUR
+INTEGER(KIND=JPIM) :: NDLSM
+INTEGER(KIND=JPIM) :: NDLUNG
+INTEGER(KIND=JPIM) :: NDLUXG
+INTEGER(KIND=JPIM),ALLOCATABLE:: NDLUNL(:,:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NDLUXL(:,:)
+INTEGER(KIND=JPIM) :: NPROMA
+INTEGER(KIND=JPIM) :: NPROMB
+INTEGER(KIND=JPIM) :: NPROMC
+INTEGER(KIND=JPIM) :: NPROME
+INTEGER(KIND=JPIM) :: NPROMM
+INTEGER(KIND=JPIM) :: NPROMNH
+INTEGER(KIND=JPIM) :: NPROMNH_GWADV 
+INTEGER(KIND=JPIM) :: NPROMP
+INTEGER(KIND=JPIM) :: NPROMV
+INTEGER(KIND=JPIM) :: NPROMVC
+INTEGER(KIND=JPIM) :: NGPBLKS
+LOGICAL :: LOPTPROMA
+
+! === VERTICAL RESOLUTION =====================================================
+
+! NFLEVG : number of levels in grid point space
+! NFLEVL : number of levels in Fourier and Legendre space
+! NFLEVLMX : maximum NFLEVL among all PEs
+! NFLSUR : over dimensioning of NFLEVL for technical reasons, always odd
+! NFLSUL : number of additional levels for semi-lagrangian
+! NFLSA  = 1    -NFLSUL
+! NFLEN  = NFLEVG+NFLSUL
+
+INTEGER(KIND=JPIM) :: NFLEVL
+INTEGER(KIND=JPIM) :: NFLEVLMX
+INTEGER(KIND=JPIM) :: NFLEVG
+INTEGER(KIND=JPIM) :: NFLSUR
+INTEGER(KIND=JPIM) :: NFLSUL
+INTEGER(KIND=JPIM) :: NFLSA
+INTEGER(KIND=JPIM) :: NFLEN
+
+! === NUMBER OF FIELDS ========================================================
+
+! NFTHER : number of spectral thermodynamic variables
+! NFAUX  : number of auxillary variables in t+dt array
+! NF3D   = number of 3D fields in the state of the model
+! NFD2D  : number of 2D fields in the dynamics
+! NFC2D  : number of 2D fields in the boundaries
+! NPPM   : Number of interpolation methods in post-processing
+! NFPPYX : Maximum number of modern dyn.met. post-processed fields
+! NFPPYE : as long as SUPP is called after SUDIM/SUALLO,
+!            NFPPYE = 1, if LMDYPP = .FALSE. (after SUALLO)
+!            NFPPYE = NFPPYX if LMDYPP = .TRUE., but it could become more flex
+! NFGPNH : number of (3D) fields in non hydrostatic gridpoint
+! NS3D   : number of 3D fields in spectral space
+! NS2D   : number of 2D fields in spectral space
+! NS1D   : number of 1D fields in spectral space (for Aladin consistency -CF)
+! NSAUX  : dimension of auxillary array == NFAUX
+
+INTEGER(KIND=JPIM) :: NFTHER
+INTEGER(KIND=JPIM) :: NFAUX
+INTEGER(KIND=JPIM) :: NF3D
+INTEGER(KIND=JPIM) :: NFD2D
+INTEGER(KIND=JPIM) :: NFC2D
+INTEGER(KIND=JPIM) :: NPPM
+INTEGER(KIND=JPIM) :: NFPPYX
+INTEGER(KIND=JPIM) :: NFPPYE
+INTEGER(KIND=JPIM) :: NFGPNH
+INTEGER(KIND=JPIM) :: NS3D
+INTEGER(KIND=JPIM) :: NS2D
+INTEGER(KIND=JPIM) :: NS1D
+INTEGER(KIND=JPIM) :: NSAUX
+
+! === GRID POINT ARRAYS =======================================================
+
+! LVOR  : controls the allocation of vorticity
+! LADER : controls the allocation of vor div and derivatives
+! LUVDER: controls the allocation of derivatives for u and v
+! LSPT  : .TRUE. if temperature variable as spectral field
+
+LOGICAL :: LVOR
+LOGICAL :: LADER
+LOGICAL :: LUVDER
+LOGICAL :: LSPT
+
+! === SPECTRAL SPACE ==========================================================
+
+! NSMAX  : truncation order
+! NMSMAX  : truncation order in longitude
+! NVARMAX: truncation order in 3d-var distributed direction
+!          this is a priori longitude, so that nvarmax = nsmax in Arp/IFS
+!          and nvarmax = nmsmax in Aladin
+! NSEFRE : number of degrees of freedom in the spectral space
+! NSPECG : number of complex spectral coefficients (global)
+! NSPEC2G = 2*NSPECG
+! NSPEC  : number of complex spectral coefficients (local, i.e. on this PE)
+! NSPEC2 = 2*NSPEC
+! NSPEC2MX : maximun NSPEC2 among all PEs
+! NSMIN  : lower troncature for configurations 911 and 912.
+! NTCMAX : truncation order for transmission coefficients.
+! NMTCMAX: truncation order for transmission coefficients in longitude.
+! NCMAX  : upper trunc. order for dilatation matrices (used in TRAGEO, fullpos)
+! NCPEC  : number of complex spectral coefficients for truncation NCMAX (local)
+! NCPEC2 : 2*NCPEC, where NCPEC (local)
+! NXMAX  : truncation order for NMI
+! NXPECG : number of complex spectral coefficients for NMI (global)
+! NXPEC  : number of complex spectral coefficients for NMI (local)
+! NTMAX  : truncation order for tendencies (on n, m<= NSMAX)
+! NTPEC2 : 2*'number of complex spectral coefficients' for tendencies
+
+INTEGER(KIND=JPIM) :: NSMAX
+INTEGER(KIND=JPIM) :: NMSMAX
+INTEGER(KIND=JPIM) :: NVARMAX
+INTEGER(KIND=JPIM) :: NSEFRE
+INTEGER(KIND=JPIM) :: NSPECG
+INTEGER(KIND=JPIM) :: NSPEC2G
+INTEGER(KIND=JPIM) :: NSPEC
+INTEGER(KIND=JPIM) :: NSPEC2
+INTEGER(KIND=JPIM) :: NSPEC2MX
+INTEGER(KIND=JPIM) :: NSMIN
+INTEGER(KIND=JPIM) :: NTCMAX
+INTEGER(KIND=JPIM) :: NMTCMAX
+INTEGER(KIND=JPIM) :: NCMAX
+INTEGER(KIND=JPIM) :: NCPEC
+INTEGER(KIND=JPIM) :: NCPEC2
+INTEGER(KIND=JPIM) :: NXMAX
+INTEGER(KIND=JPIM) :: NXPECG
+INTEGER(KIND=JPIM) :: NXPEC
+INTEGER(KIND=JPIM) :: NTMAX
+INTEGER(KIND=JPIM) :: NTPEC2
+
+! === DISTRIBUTED MEMORY DIMENSIONS ===========================================
+
+! NUMP  :  Number of spectral waves handled by this processor
+! NUMXP :  Same as NUMP, but related to NXMAX
+! NUMCP :  Same as NUMP, but related to NCMAX
+! NUMTP :  Same as NUMP, but related to NTMAX
+
+INTEGER(KIND=JPIM) :: NUMP
+INTEGER(KIND=JPIM) :: NUMXP
+INTEGER(KIND=JPIM) :: NUMCP
+INTEGER(KIND=JPIM) :: NUMTP
+
+! === OTHER QUANTITIES ========================================================
+
+! NRLEVX: dimension of NVAUTF in YOMGEM.
+! NUNDEFLD: index value for unused/undefined fields (default=-9999)
+!         : should be set to 1 when using compiler subscript checking
+
+INTEGER(KIND=JPIM) :: NRLEVX
+INTEGER(KIND=JPIM) :: NUNDEFLD
+
+!     ------------------------------------------------------------------
+END MODULE YOMDIM
Index: LMDZ5/trunk/libf/phylmd/rrtm/yomdphy.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yomdphy.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yomdphy.F90	(revision 1989)
@@ -0,0 +1,70 @@
+MODULE YOMDPHY
+
+USE PARKIND1  ,ONLY : JPIM
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+
+!     DIMENSION DES TABLEAUX POINT DE GRILLE PHYSIQUE
+
+!     NVXP : number of variables in the generic EXTRP.
+!     NVXP2: number of variables in the generic XTRP2.
+
+!     NCXP : number of levels in EXTRP
+!     NCSI : number of sea-ice levels
+!     NCSNEC: number of snow levels in EC physics (specific for ECMWF) 
+!     NTILES: number of surface tiles
+
+!     NVEXTR : number of variables in the generic VEXTRA (extra-fields)
+!     NVEXTRDYN : number of extra-fields comming from the dynamics
+!     NVXTR2 : number of variables in the generic VEXTR2
+
+!     NCEXTR : number of levels in the generic VEXTRA
+
+!     NTSL : nombre de types de sols nus.
+!     NTSV : nombre de types de vegetations.
+!     NTOZ1D: 1 si representation 1D des NVCLIS variables , 0 sinon
+!     NTOZ2D: 1 si representation 2D des NVCLIS variables , 0 sinon
+!     NTOZ3D: 1 si representation 3D des NVCLIS variables , 0 sinon
+!     NLOA : nombre de longueurs d'ondes pour le spectre d'albedo.
+!     NLOE : nombre de longueurs d'ondes pour le spectre d'emissivite.
+!     NTSSG : number of surface temperatures for subgrid diagnostics
+
+!     NCHAC: nombre de champs a accumuler.
+!     NCHIN: nombre de champs instantanes.
+!     NSIRA: nombre d'intervales spectraux pour les diagnostiques de
+!            flux radiatif a p=0 et p=ps.
+
+!     NVTEND: number of tendencies used in 2.order scheme
+
+!     LTPROF: .T. if more than 1 vertical layer in deep soil
+
+INTEGER(KIND=JPIM) :: NVXP
+INTEGER(KIND=JPIM) :: NVXP2
+INTEGER(KIND=JPIM) :: NCXP
+INTEGER(KIND=JPIM) :: NCSI
+INTEGER(KIND=JPIM) :: NCSNEC
+INTEGER(KIND=JPIM) :: NTILES
+INTEGER(KIND=JPIM) :: NTSL
+INTEGER(KIND=JPIM) :: NVEXTR
+INTEGER(KIND=JPIM) :: NVEXTRDYN
+INTEGER(KIND=JPIM) :: NVXTR2
+INTEGER(KIND=JPIM) :: NCEXTR
+INTEGER(KIND=JPIM) :: NVCLIS
+INTEGER(KIND=JPIM) :: NTOZ1D
+INTEGER(KIND=JPIM) :: NTOZ2D
+INTEGER(KIND=JPIM) :: NTOZ3D
+INTEGER(KIND=JPIM) :: NTSSG
+INTEGER(KIND=JPIM) :: NTVG
+INTEGER(KIND=JPIM) :: NLOA
+INTEGER(KIND=JPIM) :: NLOE
+INTEGER(KIND=JPIM) :: NCHAC
+INTEGER(KIND=JPIM) :: NCHIN
+INTEGER(KIND=JPIM) :: NSIRA
+INTEGER(KIND=JPIM) :: NVTEND
+LOGICAL            :: LTPROF
+!     ------------------------------------------------------------------
+END MODULE YOMDPHY
Index: LMDZ5/trunk/libf/phylmd/rrtm/yomdyn.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yomdyn.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yomdyn.F90	(revision 1989)
@@ -0,0 +1,565 @@
+MODULE YOMDYN
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -------------------------------------------------------------------------
+
+!*    Control variables for the DYNAMICS
+
+!=========== TIME STEPPING ====================================================
+
+! TSTEP   : length of the timestep in seconds
+! TDT     : For leap-frog scheme:
+!            2*TSTEP except at the first time step where it is TSTEP
+!           For a two-time level scheme (semi-Lagrangian), TDT is always TSTEP.
+! REPS1   : timefiltering constant applied to t-1
+! REPS2   : timefiltering constant applied to t+1
+! REPSM1  : timefiltering constant applied to t-1 (moisture vars.)
+! REPSM2  : timefiltering constant applied to t+1 (moisture vars.)
+! REPSP1  : timefiltering constant applied to t-1 for all surface fields
+
+REAL(KIND=JPRB) :: TSTEP
+REAL(KIND=JPRB) :: TDT
+REAL(KIND=JPRB) :: REPS1
+REAL(KIND=JPRB) :: REPS2
+REAL(KIND=JPRB) :: REPSM1
+REAL(KIND=JPRB) :: REPSM2
+REAL(KIND=JPRB) :: REPSP1
+
+!====== MAIN HORIZONTAL DIFFUSION SCHEME ======================================
+
+! * CHARACTERISTIC TIMES:
+! HDIRVOR  : for diffusion of vorticity.
+! HDIRDIV  : for diffusion of divergence.
+! HDIRT    : for diffusion of temperature.
+! HDIRQ    : for diffusion of humidity.
+! HDIRO3   : for diffusion of ozone.
+! HDIRPD   : for diffusion of pressure departure (non hydrostatic).
+! HDIRVD   : for diffusion of vertical divergence (non hydrostatic).
+! HDIRSP   : for diffusion of surface pressure.
+
+! * REVERSE OF CHARACTERISTIC TIMES:
+! HRDIRVOR  : for diffusion of vorticity.
+! HRDIRDIV  : for diffusion of divergence.
+! HRDIRT    : for diffusion of temperature.
+! HRDIRQ    : for diffusion of humidity.
+! HRDIRO3   : for diffusion of ozone.
+! HRDIRPD   : for diffusion of pressure departure (non hydrostatic).
+! HRDIRVD   : for diffusion of vertical divergence (non hydrostatic).
+! HRDIRSP   : for diffusion of surface pressure.
+
+! RRDXTAU  : overall intensity of HD 
+! RDAMPVOR : local enhancing coefficient for diffusion of vorticity.
+! RDAMPDIV : local enhancing coefficient for diffusion of divergence.
+! RDAMPT   : local enhancing coefficient for diffusion of temperature.
+! RDAMPQ   : local enhancing coefficient for diffusion of humidity.
+! RDAMPO3  : local enhancing coefficient for diffusion of ozone.
+! RDAMPPD  : local enhancing coefficient for diffusion of pressure departure.
+! RDAMPVD  : local enhancing coefficient for diffusion of vertical divergence.
+! RDAMPSP  : local enhancing coefficient for diffusion of surface pressure.
+! LREPHD   : key to reproduce HD consistency:
+!            if TRUE the consistency of HDIR[x] is ensured, while namelist
+!                    values of RRDAMP[x] can be slightly modified;
+!            if FALSE the HD is driven exactly by RRDXTAU and RRDAMP[x]
+!                     but consistency of HDIR[x] is not guarranted
+! LNEWHD   : only for ECMWF: "new" or "historical" values of HD set-up
+
+! REXPDH   : order of the diffusion 
+!            (exponent for the wavenumber dependency).
+! FRANDH   : threshold for the wavenumber dependency.
+! SLEVDH   : first threshold for the pressure dependency scaled by VP00.
+! SLEVDH2  : second threshold for the pressure dependency scaled by VP00.
+! SLEVDH3  : third threshold for the pressure dependency scaled by VP00
+!            (used to bound the vertical increase of diffusion in the
+!            upper stratosphere).
+! NSREFDH  : threshold for the truncation dependency.
+
+! * LEVEL AND WAVENUMBER DEPENDENT INVERSE CHARACTERISTIC TIMES:
+! RDIVOR   : for diffusion of vorticity.
+! RDIDIV   : for diffusion of divergence.
+! RDITG    : for diffusion of temperature.
+! RDIGFL   : for diffusion of GFL vars.
+! RDIPD    : for diffusion of pressure departure (NH).
+! RDIVD    : for diffusion of vertical divergence (NH).
+! RDISP    : for diffusion of surface pressure.
+
+! GMR      : coefficients for spectral multiplication by GM.
+! RDHI     : main horizontal diffusion operator used for stretched ARPEGE.
+
+! LSTRHD   : .T.: main horizontal diffusion operator adapted to stretched ARP.
+! HDTIME_STRHD: TDT (if not, the main horizontal diffusion operator
+!            used for stretched ARPEGE is recomputed).
+
+REAL(KIND=JPRB) :: HDIRVOR
+REAL(KIND=JPRB) :: HDIRDIV
+REAL(KIND=JPRB) :: HDIRT
+REAL(KIND=JPRB) :: HDIRQ
+REAL(KIND=JPRB) :: HDIRO3
+REAL(KIND=JPRB) :: HDIRPD
+REAL(KIND=JPRB) :: HDIRVD
+REAL(KIND=JPRB) :: HDIRSP
+REAL(KIND=JPRB) :: HRDIRVOR
+REAL(KIND=JPRB) :: HRDIRDIV
+REAL(KIND=JPRB) :: HRDIRT
+REAL(KIND=JPRB) :: HRDIRQ
+REAL(KIND=JPRB) :: HRDIRO3
+REAL(KIND=JPRB) :: HRDIRPD
+REAL(KIND=JPRB) :: HRDIRVD
+REAL(KIND=JPRB) :: HRDIRSP
+REAL(KIND=JPRB) :: RRDXTAU
+REAL(KIND=JPRB) :: RDAMPVOR
+REAL(KIND=JPRB) :: RDAMPDIV
+REAL(KIND=JPRB) :: RDAMPT
+REAL(KIND=JPRB) :: RDAMPQ
+REAL(KIND=JPRB) :: RDAMPO3
+REAL(KIND=JPRB) :: RDAMPPD
+REAL(KIND=JPRB) :: RDAMPVD
+REAL(KIND=JPRB) :: RDAMPSP
+LOGICAL :: LREPHD
+LOGICAL :: LNEWHD
+REAL(KIND=JPRB) :: REXPDH
+REAL(KIND=JPRB) :: FRANDH
+REAL(KIND=JPRB) :: SLEVDH
+REAL(KIND=JPRB) :: SLEVDH2
+REAL(KIND=JPRB) :: SLEVDH3
+INTEGER(KIND=JPIM) :: NSREFDH
+REAL(KIND=JPRB),ALLOCATABLE:: RDIVOR(:,:)
+REAL(KIND=JPRB),ALLOCATABLE:: RDIDIV(:,:)
+REAL(KIND=JPRB),ALLOCATABLE:: RDITG(:,:)
+REAL(KIND=JPRB),ALLOCATABLE:: RDIGFL(:,:,:)
+REAL(KIND=JPRB),ALLOCATABLE:: RDIPD(:,:)
+REAL(KIND=JPRB),ALLOCATABLE:: RDIVD(:,:)
+REAL(KIND=JPRB),ALLOCATABLE:: RDISP(:)
+REAL(KIND=JPRB),ALLOCATABLE:: GMR(:,:)
+REAL(KIND=JPRB),ALLOCATABLE:: RDHI(:,:,:)
+LOGICAL :: LSTRHD
+REAL(KIND=JPRB) :: HDTIME_STRHD
+
+!====== SEMI-LAGRANGIAN HORIZONTAL DIFFUSION SCHEME (SLHD) ====================
+
+! * FOR SLHD INTERPOLATIONS:
+! SLHDA   :    Scaling factor of the deformation in f(d) function
+!              (including the model resolution correction)
+! SLHDA0  :    Namelist variable allowing to compute SLHDA
+!              (scaling factor of the deformation in f(d) function
+!              without the model resolution correction)
+! SLHDB   :    Exponent of the deformation in f(d) function
+! SLHDD0  :    Treshold for deformation tensor enhancement
+! ALPHINT :    Limit for the interval of enhancing linear
+!              S-L interpolation by smoother (should be
+!              within the interval <0,0.5>)
+! GAMMAX  :    Maximum value for the Gamma function (the weight
+!              of the smoother for the diffusive S-L interpolator),
+!              including the timestep correction.
+! GAMMAX0 :    Namelist variable allowing to compute GAMMAX
+!              (maximum value for the Gamma function,
+!              without the timestep correction).
+! SLHDKMAX:    Maximum value for the Kappa function
+
+! * THE "HDS" CHARACTERISTIC TIMES (obsolete):
+! HDSRVOR : for diffusion of vorticity.
+! HDSRDIV : for diffusion of divergence.
+! HDSRVD  : for diffusion of vertical divergence (NH).
+
+! * REVERSE OF THE "HDS" CHARACTERISTIC TIMES:
+! HRDSRVOR : for diffusion of vorticity.
+! HRDSRDIV : for diffusion of divergence.
+! HRDSRVD  : for diffusion of vertical divergence (NH).
+
+! RDAMPVORS: local enhancing coefficient for HDS diffusion of vorticity
+! RDAMPDIVS: local enhancing coefficient for HDS diffusion of divergence
+! RDAMPVDS : local enhancing coefficient for HDS diffusion of vert. divergence
+! RDAMPHDS : ratio HRDSRDIV/HRDIRDIV.
+
+! REXPDHS  : order of the diffusion 
+!            (exponent for the wavenumber dependency).
+! SLEVDHS  : first threshold for the pressure dependency scaled by VP00.
+! SLEVDHS2 : second threshold for the pressure dependency scaled by VP00.
+! SDRED    : variable modifying the vertical profile based on SLEVDH
+!            ( g(l) becomes g(l)-SDRED in the "main" diffusion).
+
+! * "HDS" LEVEL AND WAVENUMBER DEPENDENT INVERSE CHARACTERISTIC TIMES:
+! RDSVOR   : for diffusion of vorticity.
+! RDSDIV   : for diffusion of divergence.
+! RDSVD    : for diffusion of NH vertical divergence variable.
+! RDHS     : SLHD additional horizontal diffusion operator used for stretched ARPEGE.
+
+REAL(KIND=JPRB),ALLOCATABLE :: SLHDA(:)
+REAL(KIND=JPRB) :: SLHDA0
+REAL(KIND=JPRB) :: SLHDB
+REAL(KIND=JPRB),ALLOCATABLE :: SLHDD0(:)
+REAL(KIND=JPRB) :: ALPHINT
+REAL(KIND=JPRB) :: GAMMAX
+REAL(KIND=JPRB) :: GAMMAX0
+REAL(KIND=JPRB) :: SLHDKMAX
+REAL(KIND=JPRB) :: HDSRVOR
+REAL(KIND=JPRB) :: HDSRDIV
+REAL(KIND=JPRB) :: HDSRVD
+REAL(KIND=JPRB) :: HRDSRVOR
+REAL(KIND=JPRB) :: HRDSRDIV
+REAL(KIND=JPRB) :: HRDSRVD
+REAL(KIND=JPRB) :: RDAMPVORS
+REAL(KIND=JPRB) :: RDAMPDIVS
+REAL(KIND=JPRB) :: RDAMPVDS
+REAL(KIND=JPRB) :: RDAMPHDS
+REAL(KIND=JPRB) :: REXPDHS
+REAL(KIND=JPRB) :: SLEVDHS
+REAL(KIND=JPRB) :: SLEVDHS2
+REAL(KIND=JPRB) :: SDRED
+REAL(KIND=JPRB),ALLOCATABLE:: RDSVOR(:,:)
+REAL(KIND=JPRB),ALLOCATABLE:: RDSDIV(:,:)
+REAL(KIND=JPRB),ALLOCATABLE:: RDSVD(:,:)
+REAL(KIND=JPRB),ALLOCATABLE:: RDHS(:,:,:)
+
+!================== SPECTRAL ENHANCED DIFFUSION ===============================
+
+! LFREIN  : switch to use spectral "enhanced diffusion" (.TRUE. if active)
+! LFREINF : same as LFREIN but computed only at STEPO 0 of non-linear run
+! LCHDIF  : change diffusion coefficients if LFREINF
+! FLCCRI  : critical value of CFL criterion
+! RFREIN  : constant for spectral "enhanced diffusion".
+
+LOGICAL :: LFREIN
+LOGICAL :: LFREINF
+LOGICAL :: LCHDIF
+REAL(KIND=JPRB) :: FLCCRI
+REAL(KIND=JPRB) :: RFREIN
+
+!======  QUANTITIES TO CHANGE THE VARIABLE IN THE T-EQN =======================
+
+! RCORDIT(NFLEVG)    : correction term at full-levels for diffusion of T.
+! RCORDIH(0:NFLEVG)  : correction term at half-levels for SL T-eqn if RCMSMP0/=0
+! RCORDIF(NFLEVG)    : correction term at full-levels for SL T-eqn if RCMSMP0/=0
+
+REAL(KIND=JPRB),ALLOCATABLE:: RCORDIT(:)
+REAL(KIND=JPRB),ALLOCATABLE:: RCORDIH(:)
+REAL(KIND=JPRB),ALLOCATABLE:: RCORDIF(:)
+
+!==== MAXIMUM V-WINDS ALLOWED IN THE SEMI-LAGRANGIAN MODEL ====================
+
+! VMAX1   : if V>VMAX1 (SM) or SQRT(U**2+V**2)>VMAX1 (DM),
+!           warning in the SL scheme.
+! VMAX2   : if V>VMAX2 (SM) or SQRT(U**2+V**2)>VMAX2 (DM),
+!           abort in the SL scheme.
+
+REAL(KIND=JPRB) :: VMAX1
+REAL(KIND=JPRB) :: VMAX2
+
+!================== DELTA FORMULATION =========================================
+
+! NDLNPR : NDLNPR=0: conventional formulation of delta, i.e. ln(P(l)/P(l-1)).
+!          NDLNPR=1: formulation of delta used in non hydrostatic model,
+!                    i.e. (P(l)-P(l-1))/SQRT(P(l)*P(l-1)).
+
+INTEGER(KIND=JPIM) :: NDLNPR
+
+!==== RAYLEIGH FRICTION =======================================================
+
+! RKRF(NFLEVG) : coefficient of Rayleigh friction
+
+REAL(KIND=JPRB),ALLOCATABLE:: RKRF(:)
+ 
+!==== VERTICAL FILTER ========================================================
+
+! LVERFLT : switch to use filter in the vertical 
+! REPSVFVO: coefficient for 2-del-eta vertical filter on vorticity
+! REPSVFDI: coefficient for 2-del-eta vertical filter on divergence
+! NLEVVF  : vertical filter applied for levs 1 to NLEVVF
+! LVERAVE_HLUV: switch to filter (vertically) the half-level wind
+!               which is computed in routine GPHLUV.
+
+LOGICAL :: LVERFLT
+REAL(KIND=JPRB) :: REPSVFVO
+REAL(KIND=JPRB) :: REPSVFDI
+INTEGER(KIND=JPIM) :: NLEVVF
+LOGICAL :: LVERAVE_HLUV
+
+!==== UPPER RADIATIVE BOUNDARY CONDITION ======================================
+
+! RHYDR0 - upper boundary contition for hydrostatic
+! RTEMRB - tuning temperature for upper radiative b. c. (LRUBC)
+! NRUBC   : control of radiative upper boundary condition :
+!           =0 <=> non computation
+!           =1 <=> computation on the forecast field
+!           =2 <=> computation on the departure of the forecast from the coupling field
+
+REAL(KIND=JPRB) :: RHYDR0
+REAL(KIND=JPRB) :: RTEMRB
+INTEGER(KIND=JPIM) :: NRUBC
+
+!==== SEMI-IMPLICIT SCHEME, VERTICAL EIGENMODES, PC SCHEMES ===================
+
+! LSIDG   : .F.: Semi-implicit-scheme with reduced divergence.
+!           .T.: Semi-implicit scheme with not reduced divergence.
+
+! BETADT  : coefficient for the semi-implicit treatment of divergence,
+!           temperature, continuity (and NH if required) equations.
+! REFGEO  : reference geopotentiel for shallow-water model.
+! SIPR    : reference surface pressure.
+! SITR    : reference temperature.
+! SITRA   : acoustic reference temperature.
+! SITRUB : ref. temper. for SI corr. of temper.(for LRUBC=.T.)
+! SIPRUB : coef. for SI corr. of surf. press.  (for LRUBC=.T.)
+! SITIME  : =TDT (if not, Helmholtz matrices are recomputed in CNT4).
+! SIRPRG  : auxiliary variable for SIGAM,SIGAMA.
+! SIRPRN  : auxiliary variable for SITNU,SITNUA
+! NSITER  : number of iterations to treat the non linear semi-implicit terms
+!           in the non-hydrostatic scheme.
+! NCURRENT_ITER : for LNHDYN with PC scheme - current iteration: 
+!                   0                 - predictor
+!                   1, 2, ..., NSITER - correctors
+! LRHDI_LASTITERPC: T (resp. F): when a PC scheme is activated (for example
+!  LPC_FULL=.T.), the horizontal diffusion is done at the last iteration
+!  of the corrector step (resp. all iterations of the predictor-corrector
+!  scheme).
+
+! * PRESSURES LINKED TO A REFERENCE PRESSURE = SIPR
+! SIALPH(NFLEVG)  : coefficients "alpha" of hydrostatics.
+! SILNPR(NFLEVG)  : Log of ratio of pressures between levels.
+! SIDELP(NFLEVG)  : pressure differences across layers.
+! SIRDEL(NFLEVG)  : their inverse.
+! SITLAH(0:NFLEVG): half-level pressures.
+! SITLAF(NFLEVG)  : full-level pressures.
+! SIDPHI(NFLEVG)  : geopotential differences across layers.
+
+! SCGMAP((NSMAX+1)*(NSMAX+2)/2,3): coefficients for multiplication by (GM**2)
+!                                  in spectral space.
+! SIB(NFLEVG,NFLEVG)   : operator "B" of the SI scheme (DIV ===> DP/DT=B.DIV).
+! SIMO(NFLEVG,NFLEVG)  : eigenvectors of "B".
+! SIMI(NFLEVG,NFLEVG)  : SIMO**-1
+! SIVP(NFLEVG)         : eigenvalues of "B".
+! SIHEG(NFLEVG,(NSMAX+1)*(NSMAX+2)/2,3), SIHEG2(NFLEVG,NSMAX+1,2:3):
+!  Helmholtz operator in case of SI computations with not reduced divergence. 
+! SIHEGB(NFLEVG,(NSMAX+1)*(NSMAX+2)/2,3), SIHEGB2(NFLEVG,NSMAX+1,2:3):
+!  Additional operators in case of LSIDG=T SI computations in the NH model.
+! SITRICA(NSMAX,NFLEVG):   )  coefficients used in tridiagonal solver
+! SITRICB(NSMAX,NFLEVG):   )  for the vertically-coupled semi-implicit
+! SITRICC(NSMAX,NFLEVG):   )  equations (case LSITRIC=T).
+
+! SIRUB(0:NFLEVG)             :  Kernel of the operator
+!                  SIGAM    SITNU
+!           (T,ps) -----> P -----> (T,ps)
+!  0 is for surface pressure (or its log)
+!  1 to NFLEVG is for temperature
+!                               t
+! S2ETA(NFLEVG)              : S S SIRUB, where S is a Laplacian operator
+!    used to eliminate the 2 delta eta wave in the vertical temperature field
+
+! SIFAC : [ 1 - beta**2 (Delta t)**2 C**2 (SITR/SITRA) (LLstar/H**2) ]
+!         for NH model.
+! SIFACI: [ 1 - beta**2 (Delta t)**2 C**2 (SITR/SITRA) (LLstar/H**2) ]**(-1)
+!         for NH model.
+
+! VNORM : constant for new scaling.
+
+LOGICAL :: LSIDG
+REAL(KIND=JPRB) :: BETADT
+REAL(KIND=JPRB) :: REFGEO
+REAL(KIND=JPRB) :: SIPR
+REAL(KIND=JPRB) :: SITR
+REAL(KIND=JPRB) :: SITRA
+REAL(KIND=JPRB) :: SITRUB
+REAL(KIND=JPRB) :: SIPRUB
+REAL(KIND=JPRB) :: SITIME
+REAL(KIND=JPRB) :: SIRPRG
+REAL(KIND=JPRB) :: SIRPRN
+INTEGER(KIND=JPIM) :: NSITER
+INTEGER(KIND=JPIM) :: NCURRENT_ITER
+LOGICAL :: LRHDI_LASTITERPC
+
+REAL(KIND=JPRB),ALLOCATABLE:: SIALPH(:)
+REAL(KIND=JPRB),ALLOCATABLE:: SILNPR(:)
+REAL(KIND=JPRB),ALLOCATABLE:: SIDELP(:)
+REAL(KIND=JPRB),ALLOCATABLE:: SIRDEL(:)
+REAL(KIND=JPRB),ALLOCATABLE:: SITLAH(:)
+REAL(KIND=JPRB),ALLOCATABLE:: SITLAF(:)
+REAL(KIND=JPRB),ALLOCATABLE:: SIDPHI(:)
+REAL(KIND=JPRB),ALLOCATABLE:: SCGMAP(:,:)
+REAL(KIND=JPRB),ALLOCATABLE:: SIB(:,:)
+REAL(KIND=JPRB),ALLOCATABLE:: SIMO(:,:)
+REAL(KIND=JPRB),ALLOCATABLE:: SIMI(:,:)
+REAL(KIND=JPRB),ALLOCATABLE:: SIVP(:)
+REAL(KIND=JPRB),ALLOCATABLE:: SIHEG(:,:,:)
+REAL(KIND=JPRB),ALLOCATABLE:: SIHEG2(:,:,:)
+REAL(KIND=JPRB),ALLOCATABLE:: SIHEGB(:,:,:)
+REAL(KIND=JPRB),ALLOCATABLE:: SIHEGB2(:,:,:)
+REAL(KIND=JPRB),ALLOCATABLE:: SITRICA(:,:)
+REAL(KIND=JPRB),ALLOCATABLE:: SITRICB(:,:)
+REAL(KIND=JPRB),ALLOCATABLE:: SITRICC(:,:)
+REAL(KIND=JPRB),ALLOCATABLE:: SIRUB(:)
+REAL(KIND=JPRB),ALLOCATABLE:: S2ETA(:)
+REAL(KIND=JPRB),ALLOCATABLE:: SIFAC(:,:)
+REAL(KIND=JPRB),ALLOCATABLE:: SIFACI(:,:)
+REAL(KIND=JPRB) :: VNORM
+
+!=========== SEMI-LAGRANGIAN SWITCHES AND WEIGHTS =============================
+!=========== + ADDITIONAL "ADVECTION" SWITCHES ALSO USED IN EULERIAN ========== 
+
+! * Switches NxLAG:
+! NVLAG   :  switch for formulation or discretisation of continuity equation.
+! NWLAG   :  switch for formulation or discretisation of momentum equations.
+! NTLAG   :  switch for formulation or discretisation of temperature equation.
+! NSPDLAG :  switch for formulation or discretisation of P-hat equation.
+! NSVDLAG :  switch for formulation or discretisation of d-hat equation.
+! Remarks about NxLAG:
+! a) possible value for NxLAG:
+!    NxLAG=1 -> interpolation of R.H.S. of the corresponding eq.
+!               to the middle of the trajectory
+!    NxLAG=2 -> averaging of R.H.S. of the corresponding eq.
+!               along the trajectory with the part corresponding
+!               to the departure point added to the t-dt term
+!    NxLAG=3 -> averaging of R.H.S. of the corresponding eq.
+!               along the trajectory with the part corresponding
+!               to the departure point interpolated linearly
+! c) For NVLAG and 2D model: 
+!    NVLAG>0 stands for the conventional formulation of continuity equation.
+!    NVLAG<0 stands for the Lagrangian formulation of continuity equation:
+!     in this case the remark a) is valid for ABS(NVLAG).
+
+! * Research of semi-Lagrangian trajectory:
+! NITMP   : Number of iterations for computing the medium point of the
+!           semi-lagrangian trajectory.
+! VETAON  : VETAON*eta(layer nr 1)+(1.-VETAON)*eta(top) is the lower
+!           value allowed for ETA of the origin/anterior point in
+!           the 3D model.
+! VETAOX  : VETAOX*eta(bottom layer)+(1.-VETAOX)*eta(ground) is the
+!           upper value allowed for ETA of the origin/anterior point
+!           in the 3D model.
+! LSETTLS : type of extrapolations needed in the algorithm of trajectory
+!           research in the 2TL SL scheme.
+!           .F.: linear extrapolations (conventional algorithm).
+!           .T.: stable extrapolations combining spatio-temporal extrapolations.
+! LELTRA  : if TRUE then use "elegant" algorithm to find departure point
+!           (only applicable in 2TL scheme for the shallow-water equations)
+! RW2TLFF : when computing the refined position of the origin point for
+!           Coriolis term, the new wind used is:
+!           0.5*RW2TLFF*(V(F)+V(O)) + (1-RW2TLFF)*V(M)
+
+! * Uncentering factor in the semi-Lagrangian scheme:
+! VESL    : first order uncentering factor applied to non linear and linear
+!           terms.
+! XIDT    : pseudo-second order uncentering factor applied to linear terms,
+!           when an alternative second-order averaging is required in the 
+!           2TL SL scheme.
+! LPC_XIDT: pseudo second order decentering in LPC_FULL PC scheme
+!           key used to allocate special buffer for needed quantities
+!           to transfer informations from predictor to corrector.
+
+! * Switches for use of quasi-monotone interpolations:
+! LQMW    :  Use quasi-monotone three-dimensional interpolations for wind
+! LQMHW   :  Use quasi-monotone interpolations in the horizontal for wind
+! LQMT    :  Use quasi-monotone three-dimensional interpolations for temperature
+! LQMHT   :  Use quasi-monotone interpolations in the horizontal for temperature
+! LQMP    :  Use quasi-monotone three-dimensional interpolations for cont. eq
+! LQMHP   :  Use quasi-monotone interpolations in the horizontal for cont. eq
+! LQMPD   :  Use quasi-monotone three-dimensional interpolations for P-hat eqn.
+! LQMHPD  :  Use quasi-monotone interpolations in the horizontal for P-hat eqn.
+! LQMVD   :  Use quasi-monotone three-dimensional interpolations for d-hat eqn.
+! LQMHVD  :  Use quasi-monotone interpolations in the horizontal for d-hat eqn.
+
+! * Switches for use of spline interpolations:
+! LRSPLINE_W   : Use of spline for wind
+! LRSPLINE_T   : Use of spline for temperature
+! LRSPLINE_P   : Use of spline for continuity equation
+! LRSPLINE_SPD : Use of spline for pressure departure
+! LRSPLINE_SVD : Use of spline for vertical divergence
+
+
+! * Treatment of Coriolis term:
+! LADVF   : if TRUE then use "advective" treatment of Coriolis terms (SL);
+!           in this case 2*Omega*Vec*r is computed analytically.
+! LIMPF   : if TRUE then use implicit treatment of Coriolis terms (EUL and SL)
+! L2TLFF  : if TRUE then use refined treatment of Coriolis term in 2TLSL scheme
+!           (can be currently used also with the 3TL SL vertical interpolating
+!           scheme).
+
+! * Change variable with an Eulerian treatment of orography:
+! RCMSLP0 : Real for tuning of the Tanguay/Ritchie correction in SL continuity
+!           and temperature equations for 3D model.
+
+! * Treatment of MF simplified physics in the semi-Lagrangian TL and AD codes.
+
+! LSL_UNLPHY_F : if TRUE diabatic terms are evaluated at the final point F.
+!                if FALSE diabatic terms are evaluated at the orig point O.
+!                Remark: this variable is involved only in MF physics.
+
+! * Switch for computation of Moisture Convergence for French deep convection scheme
+
+! NCOMP_CVGQ   :  0 ==> Compute the CVGQ in an Eulerian manner, using spectral
+!                       moisture stored in the YQ GFL variable.
+!                       In this case YQ must be spectral and
+!                       horizontal derivatives are used.
+!                 1 ==> Compute the CVGQ in an Eulerian manner, using spectral
+!                       moisture stored in the YCVGQ GFL spectral variable and
+!                       its horizontal derivatives.
+!                       This case is well designed for the case where YQ is
+!                       a purely grid-point GFL.
+!                 2 ==> Compute the CVGQ in a semi-Lagrangian manner
+!                       (Lagrangian tendency - Eulerian tendency), using data
+!                       stored in the YCVGQ grid-point variable.
+!                       This case is well designed for the case where YQ is
+!                       a purely grid-point GFL, and where LSLAG=T.
+! remark ky: better to move this variable in SUDYNA/NAMDYNA/YOMDYNA in the
+!  future to make it available in SUDIM1 when reading NAMGFL.
+
+INTEGER(KIND=JPIM) :: NVLAG
+INTEGER(KIND=JPIM) :: NWLAG
+INTEGER(KIND=JPIM) :: NTLAG
+INTEGER(KIND=JPIM) :: NSPDLAG
+INTEGER(KIND=JPIM) :: NSVDLAG
+INTEGER(KIND=JPIM) :: NITMP
+REAL(KIND=JPRB) :: VETAON
+REAL(KIND=JPRB) :: VETAOX
+LOGICAL :: LSETTLS
+LOGICAL :: LELTRA
+REAL(KIND=JPRB) :: RW2TLFF
+REAL(KIND=JPRB) :: VESL
+REAL(KIND=JPRB) :: XIDT
+LOGICAL ::  LPC_XIDT
+LOGICAL :: LQMW
+LOGICAL :: LQMHW
+LOGICAL :: LQMT
+LOGICAL :: LQMHT
+LOGICAL :: LQMP
+LOGICAL :: LQMHP
+LOGICAL :: LQMPD
+LOGICAL :: LQMHPD
+LOGICAL :: LQMVD
+LOGICAL :: LQMHVD
+LOGICAL :: LADVF
+LOGICAL :: LRSPLINE_W
+LOGICAL :: LRSPLINE_T
+LOGICAL :: LRSPLINE_P
+LOGICAL :: LRSPLINE_SPD
+LOGICAL :: LRSPLINE_SVD
+LOGICAL :: LIMPF
+LOGICAL :: L2TLFF
+REAL(KIND=JPRB) :: RCMSLP0
+LOGICAL :: LSL_UNLPHY_F
+INTEGER(KIND=JPIM) :: NCOMP_CVGQ
+
+!=========== RELAXATION OF THIN LAYER HYPOTHESIS ==============================
+! (for more details about "rs", "Ts" see routines gpvcrs.F90 and gpvcts.F90)
+
+! VCPR    : reference pressure (the pressure layer where "rs=a")
+! VCTR    : reference temperature (VCTR=Ts(pressure=VCPR))
+! VCAK    : coefficient alpha_K used in tha analytic formula of "Ts".
+! LADVFW  : as LADVF but for term "-2 Omega vec W k".
+
+REAL(KIND=JPRB) :: VCPR
+REAL(KIND=JPRB) :: VCTR
+REAL(KIND=JPRB) :: VCAK
+LOGICAL :: LADVFW
+
+!     ------------------------------------------------------------------
+! LDRY_ECMWF     : .TRUE.  = COMPUTE Cp, R AND R/Cp WITHOUT Q REALTED TERMS
+! LDRY_ECMWF     : .FALSE. = COMPUTE Cp, R AND R/Cp WITH    Q REALTED TERMS
+
+LOGICAL :: LDRY_ECMWF
+
+!     ------------------------------------------------------------------
+END MODULE YOMDYN
Index: LMDZ5/trunk/libf/phylmd/rrtm/yomfa.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yomfa.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yomfa.F90	(revision 1989)
@@ -0,0 +1,71 @@
+MODULE YOMFA
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+USE TYPE_FADS, ONLY : FAD
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+
+!*    GRIB packing options / Options du compactage GRIB
+
+!     NVGRIB  :  Level of GRIB packing (0:no packing, 1:v0 GRIB, 2:v0mod GRIB)
+!                Niveau de codage GRIB (0:pas de cod., 1:v0 GRIB, 2:v0mod GRIB)
+!     NBITPG  :  Number of bits to code each grid point
+!                Nombre de bits pour coder les points de grille
+!     NBITCS  :  Number of bits to code each spectral coefficient
+!                Nombre de bits pour coder les coefficients spectraux
+!     NSTRON  :  Non-packed sub-truncation
+!                Niveau de sous-troncature non compactee
+!     NPULAP  :  Laplacian power
+!                Puissance de Laplacien
+
+INTEGER(KIND=JPIM) :: NVGRIB
+INTEGER(KIND=JPIM) :: NBITPG
+INTEGER(KIND=JPIM) :: NBITCS
+INTEGER(KIND=JPIM) :: NSTRON
+INTEGER(KIND=JPIM) :: NPULAP
+
+!     Fields descriptors
+
+TYPE(FAD) :: YFAOROG ! Surface geopotential
+TYPE(FAD) :: YFASP   ! Surface pressure
+TYPE(FAD) :: YFAPSI  ! Velocity potential
+TYPE(FAD) :: YFAKHI  ! Stream function
+TYPE(FAD) :: YFAUGEO ! U-Geographical wind
+TYPE(FAD) :: YFAVGEO ! V-Geographical wind
+TYPE(FAD) :: YFAT    ! Temperature
+TYPE(FAD) :: YFAPD   ! Pressure departure (NH)
+TYPE(FAD) :: YFAVD   ! Vertical divergence (NH)
+TYPE(FAD) :: YFAQ    ! Specific humidity
+TYPE(FAD) :: YFAL    ! Liquid water
+TYPE(FAD) :: YFAI    ! Ice
+TYPE(FAD) :: YFAS    ! Snow
+TYPE(FAD) :: YFAR    ! Rain
+TYPE(FAD) :: YFAG    ! Graupels
+TYPE(FAD) :: YFATKE  ! Turbulent Kinetic Energy
+TYPE(FAD) :: YFAO3   ! Ozone mixing ratio
+TYPE(FAD) :: YFACLF  ! Cloud fraction
+TYPE(FAD) :: YFACPF  ! Convective precipitation flux
+TYPE(FAD) :: YFASPF  ! Stratiform precipitation flux
+TYPE(FAD) :: YFACVGQ ! CVGQ for French physics
+TYPE(FAD) :: YFASDSAT ! Standard deviation of the Saturation Depression
+TYPE(FAD) :: YFACVV  ! Convective Vertical Velocity
+
+! Pronostic convection variables
+TYPE(FAD) :: YFAUOM  ! Updraught vertic velocity
+TYPE(FAD) :: YFAUAL  ! Updraught mesh fraction
+TYPE(FAD) :: YFADOM  ! Downdraught vertic velocity
+TYPE(FAD) :: YFADAL  ! Downdraught mesh fraction
+TYPE(FAD) :: YFAUEN  ! Updraught entrainment
+TYPE(FAD) :: YFAUNEBH! Pseudo Hist Conv cloud fraction
+
+! Filtered surface ln Ps for monitoring coupling updates:
+TYPE(FAD) :: YFAFSP1  ,YFAFSP2  ,YFAFSP3  ,YFAFSP4  ,YFAFSP5
+TYPE(FAD) :: YFASRC  ! Second order flux for Arome Turb. Scheme
+TYPE(FAD) :: YFAQVA  ! Total humidity amplitude variation of Q+L+I
+!     ------------------------------------------------------------------
+END MODULE YOMFA
Index: LMDZ5/trunk/libf/phylmd/rrtm/yomfpc.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yomfpc.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yomfpc.F90	(revision 1989)
@@ -0,0 +1,246 @@
+MODULE YOMFPC
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+USE PARFPOS, ONLY : JPOS2DF  ,JPOS3DF  ,JPOS3H   ,JPOS3P   ,JPOS3PV  , &
+ & JPOS3S   ,JPOS3TH  ,JPOSCFU  ,JPOSDIR  ,JPOSLEN  ,JPOSDOM  , &
+ & JPOSSGP  ,JPOSXFU  
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+
+!*    Scientific and technical variables
+
+! === TECHNICAL VARIABLES ===
+
+!     CFPDIR : prefix (path) for the output files
+!     CFPIDEN: identificator of the output files
+!     CFPFMT : format of the output files ('MODEL','GAUSS','LELAM' or 'LALON')
+!     CFPDOM, C1FPDOM : names of the subdomains
+!     CFP3DF, C1FP3DF : names 3D dynamics fields to compute
+!     CFP3DFS,C1FP3DFS: names 3D dynamics fields to compute on model levels
+!     CFP3DFP,C1FP3DFP: names 3D dynamics fields to compute on Pressure levels
+!     CFP3DFH,C1FP3DFH: names 3D dynamics fields to compute on H levels
+!     CFP3DFT,C1FP3DFT: names 3D dynamics fields to compute on THETA levels
+!     CFP3DFV,C1FP3DFV: names 3D dynamics fields to compute on PV levels
+!     CFP2DF, C1FP2DF : names 2D dynamics fields to compute
+!     CFPPHY, C1FPPHY : names of physical fields to be post-processed
+!     CFPCFU, C1FPCFU : names of cumulated fluxes fields to be post-processed
+!     CFPXFU, C1FPXFU : names of instantaneous fluxes fields to be post-proc
+!     Remark: C1FPXXX=CFPXXX(1)//CFPXXX(2)//...//CFPXXX(JPOSXXX)
+!      for XXX=DOM,3DF,2DF,PHY,CFU,XFU.
+
+!     Variables used for ECMWF 
+
+!     MFP3DFS: Gribcodes of  3D dynamics fields to compute on model levels
+!     MFP3DFH: Gribcodes of  3D dynamics fields to compute on H levels
+!     MFP3DFT: Gribcodes of  3D dynamics fields to compute on THETA levels
+!     MFP3DFV: Gribcodes of  3D dynamics fields to compute on PV levels
+!     MFP3DFP: Gribcodes of  3D dynamics fields to compute on P levels
+!     MFP2DF : Gribcodes of  2D dynamics fields to compute
+!     MFPPHY : Gribcodes of  physical fields to processed 
+
+!     RFP3P  : post-processing pressure levels
+!     RFP3H  : post-processing height (above orography) levels
+!     RFP3TH : post-processing potential temperature levels
+!     RFP3PV : post-processing potential vorticity levels
+!     NRFP3S : post-processing eta levels (CONF. 927 only)
+
+!     LFPCNT : control varying output variables according to time step
+!     LTRACEFP: trace for Full-POS
+!     NFPGRIB : level of GRIB coding in output file ARPEGE/ALADIN.
+!               0 : no packing at all
+!               1 : standart GRIB encoding
+!               2 : modified GRIB encoding 
+
+!     NFPDOM : useful dimension of CFPDOM
+!     NFP3DF : useful dimension of CFP3DF
+!     NFP3DFS: useful dimension of CFP3DFS
+!     NFP3DFH: useful dimension of CFP3DFH
+!     NFP3DFT: useful dimension of CFP3DFT
+!     NFP3DFV: useful dimension of CFP3DFV
+!     NFP3DFP: useful dimension of CFP3DFP
+!     NFP2DF : useful dimension of CFP2DF
+!     NFPPHY : useful dimension of CFPPHY
+!     NFPCFU : useful dimension of CFPCFU
+!     NFPXFU : useful dimension of CFPXFU
+!     NFP3P  : useful dimension of RFP3P
+!     NFP3H  : useful dimension of RFP3H
+!     NFP3TH : useful dimension of RFP3TH
+!     NFP3PV : useful dimension of RFP3PV
+!     NFP3S  : useful dimension of NRFP3S
+!     NFPXLEV: max. number of pp. levels
+!     MFP3DYN : max. number of 3D-dynamic fields neeeded for LFPART2
+!     MFP2DYN : max. number of 2D-dynamic fields neeeded for LFPART2
+!     NFPDPHY : maximum number of physical fields
+
+!     The next keys force variables to be primitive for the post-processing :
+!     LFPNHPD : .TRUE. if pp of NH pressure departure
+!     LFPNHVD : .TRUE. if pp of NH vertical divergence
+!     LFPNHVW : .TRUE. if pp of NH true vertical velocity
+
+!     LFPLOSP : .TRUE. = Fill Ps array with Log(Ps)
+!     LFPRH100 : .TRUE. to convert relative humidity in percent
+
+! === SCIENTIFIC VARIABLES ===
+
+!     LFPSPEC: =.T. if pp. dyn. fields are written out as spectral coefficients
+!              =.F. if pp. dyn. fields are written out as grid point values.
+!     LFITP  : =1 if pp. fields on P levels should be fited ; =0 otherwise
+!     LFITT  : =1 if pp. fields on THETA levels should be fited ; =0 otherwise
+!     LFITV  : =1 if pp. fields on PV levels should be fited ; =0 otherwise
+
+!     NFPCLI : usage level for climatology
+!              =0 no climatology
+!              =1 orography and land-sea mask of output only
+!              =2 all available climatological fields of the current month
+!              =3 shifting mean from the climatological fields of the current
+!                 month to the ones of the closest month
+
+!     NFPINDYN : type of interpolations for dynamical fields
+!     NFPINPHY : type of interpolations for  physical fields
+!                4 for bilinear, 12 for quadratic
+
+!     LFPQ   : =.TRUE. if specific humidity is interpolated
+!            : =.FALSE. if relative humidity is interpolated
+!     LASQ   : =.TRUE. if ASQ set to 80% saturation
+
+!     WSXI   : max. surface moisture in input
+!     WDXI   : max. deep soil moisture in input
+!     WSXO   : max. surface moisture in output
+!     WDXO   : max. deep soil moisture in output
+
+!     FPBL   : Critical Thickness of PBL
+!     RFPCORR: Critical orography difference for correcting surface
+!              temperature through standart profile.
+!     RFPCSAB: Critical sand percentage difference for computing relative 
+!              soil moisture in ISBA
+!     RFPCD2 : Critical soil depth difference for computing relative
+!              soil moisture in ISBA
+!     RFPVCAP: Minimum pressure of model level to provide an equatorial
+!              cap in the computation of variables on constant PV surfaces
+!     NFPLNPR : 0 => conventional formulation of (delta P) : ln(P(l)/P(l-1))
+!               1 => formulation of (delta P) used in non hydrostatic model,
+!                    i.e. (P(l)-P(l-1))/SQRT(P(l)*P(l-1))
+!     LFPMOIS: Month allowed for climatology usage : 
+!               .F. => month of the model (forecast)
+!               .T. => month of the file
+!     NFPINCR : Bogussing indicator ; =0 for no bogussing ; =1 for bogussing
+!     NFPLAKE : To overwrite created lakes or islands by specific data :
+!               0 => do not overwrite
+!              -1 => overwrite with rhoughly interpolated data
+!              +1 => overwrite with climatology
+!     NFPCAPE : Kind of computation for CAPE & CIN : 
+!               1 => from bottom model layer
+!               2 => from the most unstable layer
+!               3 => from mto standart height (2 meters) as recomputed values
+!               4 => from mto standart height (2 meters) out of fluxes
+!                    (used for analysis)
+!     NFPSURFEX : Subcontract surface fields to SURFEX
+!               0 => no subcontract
+!               1 => transform native arp/ald surface fields to surfex fields
+!                    and write out by surfex
+!     NFPMASK   : number of masks for the interpolation of surface fields
+!                 0 => no mask
+!                 1 => land-sea mask
+!                 2 => land mask, sea mask
+!     LMOCONVAR  : if true mocon is computed from N-1 level parameters (for varpack use)
+
+CHARACTER (LEN = JPOSDIR) ::  CFPDIR
+CHARACTER (LEN = 5) ::  CFPFMT
+CHARACTER (LEN = 8) ::  CFPIDEN
+CHARACTER (LEN = JPOSLEN) ::  CFPDOM(JPOSDOM)
+CHARACTER (LEN = 12) ::  CFP3DF(JPOS3DF)
+CHARACTER (LEN = 12) ::  CFP3DFS(JPOS3DF)
+CHARACTER (LEN = 12) ::  CFP3DFP(JPOS3DF)
+CHARACTER (LEN = 12) ::  CFP3DFH(JPOS3DF)
+CHARACTER (LEN = 12) ::  CFP3DFT(JPOS3DF)
+CHARACTER (LEN = 12) ::  CFP3DFV(JPOS3DF)
+CHARACTER (LEN = 16) ::  CFP2DF(JPOS2DF)
+CHARACTER (LEN = 16) ::  CFPPHY(JPOSSGP)
+CHARACTER (LEN = 16) ::  CFPCFU(JPOSCFU)
+CHARACTER (LEN = 16) ::  CFPXFU(JPOSXFU)
+CHARACTER (LEN = 12*JPOS3DF) :: C1FP3DF
+CHARACTER (LEN = 12*JPOS3DF) :: C1FP3DFS
+CHARACTER (LEN = 12*JPOS3DF) :: C1FP3DFP
+CHARACTER (LEN = 12*JPOS3DF) :: C1FP3DFH
+CHARACTER (LEN = 12*JPOS3DF) :: C1FP3DFT
+CHARACTER (LEN = 12*JPOS3DF) :: C1FP3DFV
+CHARACTER (LEN = 16*JPOS2DF) :: C1FP2DF
+CHARACTER (LEN = 16*JPOSSGP) :: C1FPPHY
+CHARACTER (LEN = 16*JPOSCFU) :: C1FPCFU
+CHARACTER (LEN = 16*JPOSXFU) :: C1FPXFU
+CHARACTER (LEN = JPOSLEN*JPOSDOM) :: C1FPDOM
+INTEGER(KIND=JPIM) :: MFP3DFS(JPOS3DF)
+INTEGER(KIND=JPIM) :: MFP3DFP(JPOS3DF)
+INTEGER(KIND=JPIM) :: MFP3DFH(JPOS3DF)
+INTEGER(KIND=JPIM) :: MFP3DFT(JPOS3DF)
+INTEGER(KIND=JPIM) :: MFP3DFV(JPOS3DF)
+INTEGER(KIND=JPIM) :: MFP2DF(JPOS2DF)
+INTEGER(KIND=JPIM) :: MFPPHY(JPOSSGP)
+
+REAL(KIND=JPRB) :: RFP3P(JPOS3P)
+REAL(KIND=JPRB) :: RFP3H(JPOS3H)
+REAL(KIND=JPRB) :: RFP3TH(JPOS3TH)
+REAL(KIND=JPRB) :: RFP3PV(JPOS3PV)
+INTEGER(KIND=JPIM) :: NRFP3S(JPOS3S)
+
+INTEGER(KIND=JPIM) :: NFPDOM
+INTEGER(KIND=JPIM) :: NFP3DF
+INTEGER(KIND=JPIM) :: NFP3DFS
+INTEGER(KIND=JPIM) :: NFP3DFP
+INTEGER(KIND=JPIM) :: NFP3DFH
+INTEGER(KIND=JPIM) :: NFP3DFT
+INTEGER(KIND=JPIM) :: NFP3DFV
+INTEGER(KIND=JPIM) :: NFP2DF
+INTEGER(KIND=JPIM) :: NFPPHY
+INTEGER(KIND=JPIM) :: NFPCFU
+INTEGER(KIND=JPIM) :: NFPXFU
+INTEGER(KIND=JPIM) :: NFP3P
+INTEGER(KIND=JPIM) :: NFP3H
+INTEGER(KIND=JPIM) :: NFP3TH
+INTEGER(KIND=JPIM) :: NFP3PV
+INTEGER(KIND=JPIM) :: NFP3S
+INTEGER(KIND=JPIM) :: NFPGRIB
+INTEGER(KIND=JPIM) :: NFPCLI
+INTEGER(KIND=JPIM) :: MFP3DYN
+INTEGER(KIND=JPIM) :: MFP2DYN
+INTEGER(KIND=JPIM) :: NFPLNPR
+INTEGER(KIND=JPIM) :: NFPINCR
+INTEGER(KIND=JPIM) :: NFPINDYN
+INTEGER(KIND=JPIM) :: NFPINPHY
+INTEGER(KIND=JPIM) :: NFPCAPE
+REAL(KIND=JPRB) :: WSXI
+REAL(KIND=JPRB) :: WDXI
+REAL(KIND=JPRB) :: WSXO
+REAL(KIND=JPRB) :: WDXO
+REAL(KIND=JPRB) :: FPBL
+REAL(KIND=JPRB) :: RFPCORR
+REAL(KIND=JPRB) :: RFPCSAB
+REAL(KIND=JPRB) :: RFPCD2
+REAL(KIND=JPRB) :: RFPVCAP
+LOGICAL :: LFPSPEC
+LOGICAL :: LFITP
+LOGICAL :: LFITT
+LOGICAL :: LFITV
+LOGICAL :: LFPQ
+LOGICAL :: LTRACEFP
+LOGICAL :: LFPCNT
+LOGICAL :: LASQ
+LOGICAL :: LFPNHPD
+LOGICAL :: LFPNHVD
+LOGICAL :: LFPNHVW
+LOGICAL :: LFPMOIS
+LOGICAL :: LFPLOSP
+LOGICAL :: LFPRH100
+LOGICAL :: LMOCONVAR
+INTEGER(KIND=JPIM) :: NFPLAKE
+INTEGER(KIND=JPIM) :: NFPXLEV
+INTEGER(KIND=JPIM) :: NFPDPHY
+INTEGER(KIND=JPIM) :: NFPSURFEX
+INTEGER(KIND=JPIM) :: NFPMASK
+!     ------------------------------------------------------------------
+END MODULE YOMFPC
Index: LMDZ5/trunk/libf/phylmd/rrtm/yomgc.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yomgc.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yomgc.F90	(revision 1989)
@@ -0,0 +1,65 @@
+MODULE YOMGC
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*    Grid point boundaries
+
+! RCORI      : Coriolis parameter "f = 2 Omega sin(theta)".
+! RCORIC     : 2 Omega cos(theta).
+! GEMU       : sine of geographic latitude "sin(theta)".
+! GSQM2      : cosine of geographic latitude "cos(theta)".
+! GELAM      : geographic longitude "lambda".
+! GELAT      : geographic latitude "theta".
+! GECLO      : cosine of geographic longitude "cos(lambda)".
+! GESLO      : sine of geographic longitude "sin(lambda)".
+! GM         : mapping factor "M".
+! GOMVRL     : zonal component of vector "2 vec(Omega) wedge a vec(k)".
+! GOMVRM     : meridian component of vector "2 vec(Omega) wedge a vec(k)".
+! GNORDL     : zonal component "gnordl" of unit vector directed towards
+!              the geographic Northern pole.
+! GNORDM     : meridian component "gnordm" of unit vector directed towards
+!              the geographic Northern pole.
+! GNORDLCL   : zonal component of vector "rssavnabla gnordl".
+! GNORDMCL   : zonal component of vector "rssavnabla gnordm".
+! GNORDMCM   : meridian component of vector "rssavnabla gnordm".
+! OROG       : grid-point surface orography "Phi_s".
+! OROGL      : zonal component of "vnabla' Phi_s".
+! OROGM      : zonal component of "vnabla' Phi_s".
+! OROGLL,OROGMM,OROGLM: second-order reduced derivatives of surface orography. 
+! GAW        : Gaussian weight.
+! NGPLAT     : DM-global number of the Gaussian grid latitude.
+! NUNIQUEGP  : pointer array (see computation in sugem2.F90).
+
+REAL(KIND=JPRB),ALLOCATABLE:: RCORI(:)
+REAL(KIND=JPRB),ALLOCATABLE:: RCORIC(:)
+REAL(KIND=JPRB),ALLOCATABLE:: GEMU(:)
+REAL(KIND=JPRB),ALLOCATABLE:: GSQM2(:)
+REAL(KIND=JPRB),ALLOCATABLE:: GELAM(:)
+REAL(KIND=JPRB),ALLOCATABLE:: GELAT(:)
+REAL(KIND=JPRB),ALLOCATABLE:: GECLO(:)
+REAL(KIND=JPRB),ALLOCATABLE:: GESLO(:)
+REAL(KIND=JPRB),ALLOCATABLE:: GM(:)
+REAL(KIND=JPRB),ALLOCATABLE:: GOMVRL(:)
+REAL(KIND=JPRB),ALLOCATABLE:: GOMVRM(:)
+REAL(KIND=JPRB),ALLOCATABLE:: GNORDL(:)
+REAL(KIND=JPRB),ALLOCATABLE:: GNORDM(:)
+REAL(KIND=JPRB),ALLOCATABLE:: GNORDLCL(:)
+REAL(KIND=JPRB),ALLOCATABLE:: GNORDMCL(:)
+REAL(KIND=JPRB),ALLOCATABLE:: GNORDMCM(:)
+REAL(KIND=JPRB),ALLOCATABLE:: OROG(:)
+REAL(KIND=JPRB),ALLOCATABLE:: OROGL(:)
+REAL(KIND=JPRB),ALLOCATABLE:: OROGM(:)
+REAL(KIND=JPRB),ALLOCATABLE:: OROGLL(:)
+REAL(KIND=JPRB),ALLOCATABLE:: OROGMM(:)
+REAL(KIND=JPRB),ALLOCATABLE:: OROGLM(:)
+REAL(KIND=JPRB),ALLOCATABLE:: GAW(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NGPLAT(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NUNIQUEGP(:)
+
+!      ----------------------------------------------------------------
+END MODULE YOMGC
Index: LMDZ5/trunk/libf/phylmd/rrtm/yomgem.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yomgem.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yomgem.F90	(revision 1989)
@@ -0,0 +1,189 @@
+MODULE YOMGEM
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+
+!*    * Number of grid points
+
+!     NGPTOT   : Total number of grid columns on a PE
+!     NGPTOT_CAP  : Size of grid points arrays for ALADIN
+!     NGPTOTMX : Maximum number of grid columns on any of the PEs
+!     NGPTOTG  : Total number of grid columns on the Globe
+!     NGPTOTL(NPRGPNS,NPRGPEW)  : Total number of grid columns on on eacch PE
+
+INTEGER(KIND=JPIM) :: NGPTOT
+INTEGER(KIND=JPIM) :: NGPTOT_CAP
+INTEGER(KIND=JPIM) :: NGPTOTMX
+INTEGER(KIND=JPIM) :: NGPTOTG
+INTEGER(KIND=JPIM),ALLOCATABLE, TARGET :: NGPTOTL(:,:)
+
+!     ------------------------------------------------------------------
+
+!*    * Defining the transformed sphere
+
+!     RMUCEN : MU OF THE POLE OF STRETCHING
+!     RLOCEN : LONGITUDE OF THE POLE OF STRETCHING
+!     RSTRET : STRETCHING FACTOR
+!     NSTTYP : 1 = POLE OF STRETCHING, POLE OF THE COLLOCATION GRID
+!                 AT THE NORTHERN POLE OF THE REAL EARTH.
+!              2 = THE POLE OF STRETCHING IS ANYWHERE ON THE REAL EARTH
+!             AND ON THE EQUATOR OF THE COLLOCATION GRID ON THE MERIDIAN PI.
+!                  THE EQUATOR OF THE COLLOCATION GRID IS TANGENT
+!             TO A PARALLEL OF THE EARTH.
+
+!     NHTYP  : 0 = regular grid
+!            : 1 = number of points proportional to sqrt(1-mu**2)
+!            : 2 = number of points read on namelist namrgri
+
+!     RNLGINC: increment to get non-linear grid
+
+!     R4JP    inverse de delta(teta) approche a l'ordre 1
+!     RC2P1   RSTRET*RSTRET+1.
+!     RC2M1   RSTRET*RSTRET-1.
+!     RCOR0   COMPONENT (0,0) OF CORIOLIS
+!     RCOR1   COMPONENT (0,1) OF CORIOLIS
+!     RCOR2   COMPONENT (1,1) OF CORIOLIS
+
+!     RCOLON(NGPTOT) cosine of longitude on transformed sphere
+!     RSILON(NGPTOT)   sine        "             "         "
+!     RINDX (NGPTOT) Longitude index
+!     RINDY (NGPTOT) Latitude index
+!     RATATH(NGPTOT) RA*TAN(THETA) on real sphere
+!     RATATX(NGPTOT) Curvature term for LAM (for u eq.)
+
+!     NLOEN(NDGSAG:NDGENG)  : number of active points on a parallel
+!     NLOENG(NDGSAG:NDGENG) : global version of NLOEN
+!     NMEN(NDGSAG:NDGENG)   : associated cut-off wave number
+!     NMENTC(NDGSAG:NDGENG) : same as NMEN but for truncation NTCMAX.
+!     NMENG(NDGSAG:NDGENG)   : global version of NMEN
+!     NDGLU(0:MAX(NSMAX,NMSMAX)) : number of active points in an hemisphere
+!                          for a given wave number m
+!     NSTAGP(NGPTOT)     : start position of latitude data for boundary fields
+!     NESTAGP(NGPTOT)    : start position of latitude data for boundary fields
+!                          in extension zone (ALADIN).
+!     NTSTAGP(NGPTOT)    : start position of latitude data for boundary fields
+!                          in C+I+E zone (ALADIN).
+
+
+!  REFLRHC :  reference length for critical relative humidity (cloud scheme)
+!  REFLKUO, REFLCAPE, REFLRHC are ONLY to be used in the SETUP 
+!  of TEQK and TEQC and TEQH
+
+!  TEQK : ratio between REFLKUO and the model equivalent mesh size
+!  TEQC : ratio between REFLCAPE and the model equivalent mesh size
+!  TEQH : ratio between REFLRHC and the model equivalent mesh size
+
+!  TEQK, TEQC, TEQH are to be used in the PHYSICS.
+
+REAL(KIND=JPRB) :: RMUCEN
+REAL(KIND=JPRB) :: RLOCEN
+REAL(KIND=JPRB) :: RSTRET
+INTEGER(KIND=JPIM) :: NSTTYP
+INTEGER(KIND=JPIM) :: NHTYP
+REAL(KIND=JPRB) :: RNLGINC
+REAL(KIND=JPRB) :: R4JP
+REAL(KIND=JPRB) :: RC2P1
+REAL(KIND=JPRB) :: RC2M1
+REAL(KIND=JPRB) :: RCOR0
+REAL(KIND=JPRB) :: RCOR1
+REAL(KIND=JPRB) :: RCOR2
+REAL(KIND=JPRB),ALLOCATABLE:: RCOLON(:)
+REAL(KIND=JPRB),ALLOCATABLE:: RSILON(:)
+REAL(KIND=JPRB),ALLOCATABLE:: RINDX(:)
+REAL(KIND=JPRB),ALLOCATABLE:: RINDY(:)
+REAL(KIND=JPRB),ALLOCATABLE:: RATATH(:)
+REAL(KIND=JPRB),ALLOCATABLE:: RATATX(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NLOEN(:)
+INTEGER(KIND=JPIM),ALLOCATABLE,TARGET :: NLOENG(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NMEN(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NMENTC(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NMENG(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NDGLU(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NSTAGP(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NESTAGP(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NTSTAGP(:)
+
+!     ------------------------------------------------------------------
+
+!*    * Defining the transformed sphere: physics input
+
+REAL(KIND=JPRB) :: REFLRHC
+REAL(KIND=JPRB) :: TEQH
+REAL(KIND=JPRB) :: REFLKUO
+REAL(KIND=JPRB) :: REFLCAPE
+REAL(KIND=JPRB) :: TEQK
+REAL(KIND=JPRB) :: TEQC
+
+!     ------------------------------------------------------------------
+
+!*    * DEFINING THE VERTICAL COORDINATE
+
+!     VP00  : REFERENCE PRESSURE FOR DEFINING VERTICAL COORDINATE
+!     VALH  : (0:NFLEVG)
+!     VBH   : (0:NFLEVG) : B of the vertical coordinate
+!     VETAH : (0:NFLEVG) ; VERTICAL COORDINATE = VALH+VBH
+!     VETAF : (0:NFLEVG+1) ; VERTICAL COORDINATE ON LAYERS.
+!     VCUICO: is used to compute denominators of weights
+!             for semi-Lagrangian vertical interpolations
+!             applied to full-level variables.
+!     VCUICOH:is used to compute denominators of weights 
+!             for semi-Lagrangian vertical interpolations
+!             applied to half-level variables.
+!     VRLEVX: REAL(NRLEVX)
+!     NVAUTF: NVAUTF(VRLEVX*eta) is the number of the layer (full level)
+!             immediately above "eta", and is bounded by 1 and nflevg-1.
+!     NVAUTH: NVAUTH(VRLEVX*eta) is the number of the interlayer (half level)
+!             immediately above "eta", and is bounded by 0 and nflevg-1.
+!     VAH   : (0:NFLEVG) ;  =VALH*VP00
+!     VC    : (NFLEVG)   ;  =VAH(J)*VBH(J-1)-VAH(J-1)*VBH(J)
+!     VDELB : (NFLEVG)   ;  =VBH(J)-VBH(J-1)
+!     VDELA : (NFLEVG)   ;  =VAH(J)-VAH(J-1)
+!     VAF   : like VAH but at full levels.
+!     VBF   : like VBH but at full levels.
+!     VRDETAH: 1/[Delta eta]
+!     TOPPRES: REFERENCE "EVANESCENT" PRESSURE
+!              TOPPRES allows to solve some calculations of singularities
+!              when the top pressure of the model is zero (for ex. in
+!              GPPREF, GPXYB, SUNHBMAT).
+
+!     WE HAVE THEN FOR THE HALF LEVEL PRESSURE : VAH + VBH*(SURFACE PRESSURE)
+
+!     NOTE THAT THE HALF LEVEL VALUE AT K+.5 IS VXXX(K)
+!     (THE FULL LEVEL VALUES ARE FROM 1 TO NFLEVG)
+
+REAL(KIND=JPRB) :: VP00
+REAL(KIND=JPRB),ALLOCATABLE:: VALH(:)
+REAL(KIND=JPRB),ALLOCATABLE:: VBH(:)
+REAL(KIND=JPRB),ALLOCATABLE:: VETAH(:)
+REAL(KIND=JPRB),ALLOCATABLE:: VETAF(:)
+REAL(KIND=JPRB),ALLOCATABLE:: VCUICO(:,:)
+REAL(KIND=JPRB),ALLOCATABLE:: VCUICOH(:,:)
+REAL(KIND=JPRB) :: VRLEVX
+INTEGER(KIND=JPIM),ALLOCATABLE:: NVAUTF(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NVAUTH(:)
+REAL(KIND=JPRB),ALLOCATABLE:: VAH(:)
+REAL(KIND=JPRB),ALLOCATABLE:: VC(:)
+REAL(KIND=JPRB),ALLOCATABLE:: VDELB(:)
+REAL(KIND=JPRB),ALLOCATABLE:: VDELA(:)
+REAL(KIND=JPRB),ALLOCATABLE:: VAF(:)
+REAL(KIND=JPRB),ALLOCATABLE:: VBF(:)
+REAL(KIND=JPRB),ALLOCATABLE:: VRDETAH(:)
+REAL(KIND=JPRB) :: TOPPRES
+
+!     ------------------------------------------------------------------
+
+!*    * Miscellaneous
+
+!     NBEEGP : ???
+!     NBNEGP : ???
+
+INTEGER(KIND=JPIM) :: NBEEGP
+INTEGER(KIND=JPIM) :: NBNEGP
+
+!     ------------------------------------------------------------------
+END MODULE YOMGEM
Index: LMDZ5/trunk/libf/phylmd/rrtm/yomgrb.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yomgrb.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yomgrb.F90	(revision 1989)
@@ -0,0 +1,672 @@
+MODULE YOMGRB
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+USE YOM_YGFL  , ONLY : JPGHG, JPGRG , JPTRAC
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*    GRIB CODING DESCRIPTORS
+
+! NLOCGRB - ECMWF LOCAL USAGE IDENTIFIER
+! NTOTENS - TOTAL NUMBER OF FORCASTS IN ENSEMBLE
+! NENSFNB - ENSAMBLE FORECAST NUMBER
+! NCALVAL - cal/val number
+! NSTREAM - EXPLICIT STREAM NUMBER (OR ZERO FOR DEFAULT STREAMS TO BE USED)
+! NSYSTEM - FOR USE IN SEASONAL STREAM (DIFFERENT OPERATIONAL SYSTEMS)
+! NMETHOD - FOR USE IN SEASONAL STREAM (DIFFERENT ENSEMBLES)
+! NREFERENCE - FOR USE IN HINDCAST STREAM 
+! NCONSENSUS - FOR MULTI_ANALYSIS STREAM (1 if consensus)
+! NDWD    - FOR MULTI_ANALYSIS STREAM (1 if DWD analysis used)
+! NMFR    - FOR MULTI_ANALYSIS STREAM
+! NNCEP   - FOR MULTI_ANALYSIS STREAM
+! NUKM   - FOR MULTI_ANALYSIS STREAM
+! NSTEPLPP(II) - STEP FOR PREVIOUS P.P. OF VARIABLE WITH GRIB CODE II
+! NSMAXNP - SUBTRUNCTATION FOR COMPLEX PACKING OF SPECTRAL COEFF
+! NBITSSH - NUMBER OF BITS FOR PACKING SPECTRAL COEFF.
+! NBITSGG - NUMBER OF BITS FOR PACKING GRID-POINT DATA
+! NJDIAG  - SENSITIVITY DIAGNOSTIC NUMBER (1=>J1, 2=>J2, 3=>J3, 4=>J4)
+! NJDOMAI - SENSITIVITY DIAGNOSTIC MASK REGION (0=>global, 1=>europe,
+!                                               2=>N.H., 3=>S.H.)
+! NLEG    - current VAREPS leg number (eg 1(2) for the T399(T255) part of a T399-T255 VAREPS)
+
+! NGRB...  - GRIB codes according to ECMWF local Code Table 2
+
+! NGRBTH   -   3 Potential Temperature
+! NGRBALUVP-  15 MODIS albedo UV-vis parallel radiation
+! NGRBALUVD-  16 MODIS albedo UV-vis diffuse radiation
+! NGRBALNIP-  17 MODIS albedo Near-IR parallel radiation
+! NGRBALNID-  18 MODIS albedo Near-IR diffuse radiation
+! NGRBSPARC-  20 surface clear-sky PARadiation
+
+! NGRBCVL  -  27 Low vegetation cover
+! NGRBCVH  -  28 High vegetation cover
+! NGRBTVL  -  29 Low vegetation type
+! NGRBTVH  -  30 High vegetation type
+! NGRBCI   -  31 Sea ice cover
+! NGRBASN  -  32 Snow albedo
+! NGRBRSN  -  33 Snow density
+! NGRBSST  -  34 Sea surface temperature
+! NGRBISTL1-  35 Ice surface temperature layer 1
+! NGRBISTL2-  36 Ice surface temperature layer 2
+! NGRBISTL3-  37 Ice surface temperature layer 3
+! NGRBISTL4-  38 Ice surface temperature layer 4
+! NGRBSWL1 -  39 Volumetric soil water content layer 1
+! NGRBSWL2 -  40 Volumetric soil water content layer 2
+! NGRBSWL3 -  41 Volumetric soil water content layer 3      
+! NGRBSWL4 -  42 Volumetric soil water content layer 4 
+! NGRBES   -  44 Evaporation of snow
+! NGRBSMLT -  45 Snow melt
+! NGRB10FG -  49 gust at 10 m level
+! NGRBLSPF -  50 large scale precipitation fraction 
+
+! NGRBMONT - 053 Montgomery Geopotential
+! NGRBPTHPV- 054 Pressure on Theta and PV surfaces
+
+! NGRBSPAR -  57 surface PARadiation
+! NGRBSUVB -  58 surface UV-B radiation
+! NGRBCAPE -  59 convect.avail.potential energy
+! NGRBPV   -  60 Potential Vorticity
+
+! NGRBSDFOR - 74 standard deviation of a filtered orography
+! NGRBSF6  -  210185 SF6 - anthropogenic emissions
+
+! NGRBTCLW -  78 Total column liquid water
+! NGRBTCIW -  79 Total column ice water
+! NGRBSPD  -  80 !! 80 and 81 extra grib code introduced to 
+! NGRBSVD  -  81 !! introduce extra fields for NH
+
+! NGRB082 to NGRB117 reserved for extra fields. Do not use for permanent post-processed fields
+
+! NGRBTCTRAC(JPTRAC)  - 210184 Total column TRAC2: Sulfure hexaFluoride
+!                     - 210183 Total column TRAC1: Radon
+
+! Codes for 2D and 3D extra fields
+! NGRBMINXTRA  to NGRBMAXXTRA
+
+! NGRBEMIS - 124 Surface Longwave emissivity # has replaced NGRB212
+
+! NGRBAT   - 127 Atmospheric tide
+! NGRBBV   - 128 Budget values
+! NGRBZ    - 129 Geopotential (at the surface orography)
+! NGRBT    - 130 Temperature
+! NGRBU    - 131 U-velocity
+! NGRBV    - 132 V-velocity
+! NGRBQ    - 133 Specific humidity
+! NGRBSP   - 134 Surface pressure
+! NGRBW    - 135 Vertical velocity
+! NGRBTCW  - 136 Total column water
+! NGRBTCWV - 137 Total column water vapour
+! NGRBVO   - 138 Vorticity (relative)
+! NGRBSTL1 - 139 Surface temperature level 1
+! NGRBSD   - 141 Snow depth
+! NGRBLSP  - 142 Large scale precipitation
+! NGRBCP   - 143 Convective precipitation
+! NGRBSF   - 144 Snow fall
+! NGRBBLD  - 145 Boundary layer dissipation
+! NGRBSSHF - 146 Surface sensible heat flux
+! NGRBSLHF - 147 Surface latent heat flux
+! NGRBCHAR - 148 Charnock parameter 
+! NGRB149  - 149 Not used
+! NGRB150  - 150 Not used
+! NGRBMSL  - 151 Mean sea level pressure
+! NGRBLNSP - 152 Log surface pressure
+! NGRB153  - 153 Not used
+! NGRB154  - 154 Not used
+! NGRBD    - 155 Divergence
+! NGRBGH   - 156 Height (geopotential)
+! NGRBR    - 157 Relative humidity
+! NGRBTSP  - 158 Tendency of surface pressure
+! NGRBBLH  - 159 Boundary layer height
+! NGRBSDOR - 160 Standard deviation of orography
+! NGRBISOR - 161 Anisotropy of subgrid scale orography
+! NGRBANOR - 162 Angle of subgrid scale orography
+! NGRBSLOR - 163 Slope of subgrid scale orography
+! NGRBTCC  - 164 Total cloud cover
+! NGRB10U  - 165 10 metre u wind
+! NGRB10V  - 166 10 metre v wind
+! NGRB2T   - 167 2 metre temperature
+! NGRB2D   - 168 2 metre dewpoint temperature
+! NGRBSSRD - 169 Surface solar radiation downwards
+! NGRBSTL2 - 170 Soil temperature level 2
+! NGRBLSM  - 172 Land/sea mask
+! NGRBSR   - 173 Surface roughness
+! NGRBAL   - 174 Albedo
+! NGRBSTRD - 175 Surface thermal radiation downwards
+! NGRBSSR  - 176 Surface solar radiation
+! NGRBSTR  - 177 Surface thermal radiation
+! NGRBTSR  - 178 Top solar radiation
+! NGRBTTR  - 179 Top thermal radiation
+! NGRBEWSS - 180 U-stress
+! NGRBNSSS - 181 V-stress
+! NGRBE    - 182 Evaporation
+! NGRBSTL3 - 183 Soil temperature level 3
+! NGRBCCC  - 185 Convective cloud cocer
+! NGRBLCC  - 186 Low cloud cover
+! NGRBMCC  - 187 Medium cloud cover
+! NGRBHCC  - 188 High cloud cover
+! NGRBSUND - 189 Sunshine duration
+! NGRBEWOV - 190 EW component of sub-grid scale orographic variance
+! NGRBNSOV - 191 NS component of sub-grid scale orographic variance
+! NGRBNWOV - 192 NWSE component of sub-grid scale orographic variance
+! NGRBNEOV - 193 NESW component of sub-grid scale orographic variance
+! NGRBTBT  - 194 Brightness temperature (K)
+! NGRBLGWS - 195 Latitudinal component of gravity wave stress
+! NGRBMGWS - 196 Meridional component of gravity wave stress
+! NGRBGWD  - 197 Gravity wave dissipation
+! NGRBSRC  - 198 Skin reservoir content
+! NGRBVEG  - 199 Percentage of vegetation
+! NGRBVSO  - 200 variance of sub-grid scale orogrophy
+! NGRBMX2T - 201 Maximum temperature at 2m since last post-processing
+! NGRBMN2T - 202 Minimum temperature at 2m since last post-processing
+! NGRBO3   - 203 Ozone mixing ratio (EC prognostic ozone)
+! NGRBPAW  - 204 Precipitation analysis weights
+! NGRBRO   - 205 Runoff
+! NGRBTCO3 - 206 Total column ozone 
+! NGRB207  - 207 Not used
+! NGRBTSRC - 208 Top solar radiation clear sky 
+! NGRBTTRC - 209 Top thermal radiation clear sky
+! NGRBSSRC - 210 Surface solar radiation clear sky
+! NGRBSTRC - 211 Surface thermal radiation clear sky
+
+! NGRBSTINC- 212 TOA incident solar radiation
+
+!-- bunch of codes, confusing in their use ...
+! NGRB214  - 214 PROFPROP.RMAX.EA
+! NGRB215  - 215 SURFPROP.RMAX.EA
+! NGRB216  - 216 RELAPROP.RMAX.EA
+! NGRB217  - 217 PROFRESERV.EAU
+! NGRB218  - 218 INTSURFTEMPERATU
+! NGRB219  - 219 PROFTEMPERATURE
+
+! NGRB221  - 221 Not used
+! NGRB222  - 222 Not used
+! NGRB223  - 223 Not used
+! NGRB224  - 224 used in suafn1
+! NGRB225  - 225 used in suafn1
+! NGRB226  - 226 Not used
+! NGRB227  - 227 used in suafn1
+! NGRBTP   - 228 Total precipitation
+! NGRBIEWS - 229 Intantaneous X-surface stress
+! NGRBINSS - 230 Intantaneous Y-surface stress
+! NGRBISHF - 231 Intantaneous surface heat flux
+! NGRBIE   - 232 Intantaneous moisture flux (evaporation)
+! NGRBLSRH - 234 Logarithm of surface roughness length for heat
+! NGRBSKT  - 235 Skin temperature
+! NGRBSTL4 - 236 Soil temperature level 4
+! NGRBTSN  - 238 Temperature of snow layer
+! NGRBCSF  - 239 Convective snow-fall
+! NGRBLSF  - 240 Large scale snow-fall
+! NGRB241  - 241 Not used
+! NGRB242  - 242 Not used
+! NGRBFAL  - 243 Forecast albedo
+! NGRBFSR  - 244 Forecast surface roughness
+! NGRBFLSR - 245 Forecast logarithm of surface roughness for heat
+! NGRBCLWC - 246 Cloud liquid water content
+! NGRBCIWC - 247 Cloud ice water content
+! NGRBCC   - 248 Cloud cover
+
+
+
+!-- aerosols in Table 210 -------------------------
+! NGRBAERMR01 - 001 aerosol mixing ratio 1
+! NGRBAERMR02 - 002 aerosol mixing ratio 2
+! NGRBAERMR03 - 003 aerosol mixing ratio 3
+! NGRBAERMR04 - 004 aerosol mixing ratio 4
+! NGRBAERMR05 - 005 aerosol mixing ratio 5
+! NGRBAERMR06 - 006 aerosol mixing ratio 6
+! NGRBAERMR07 - 007 aerosol mixing ratio 7
+! NGRBAERMR08 - 008 aerosol mixing ratio 8
+! NGRBAERMR09 - 009 aerosol mixing ratio 9
+! NGRBAERMR10 - 010 aerosol mixing ratio 10
+! NGRBAERMR11 - 011 aerosol mixing ratio 11
+! NGRBAERMR12 - 012 aerosol mixing ratio 12
+! NGRBAERMR13 - 013 aerosol mixing ratio 13
+! NGRBAERMR14 - 014 aerosol mixing ratio 14
+! NGRBAERMR15 - 015 aerosol mixing ratio 15
+! NGRBAERGN01 - 016 aerosol gain acc. 1		2D
+! NGRBAERGN02 - 017 aerosol gain acc. 2		2D
+! NGRBAERGN03 - 018 aerosol gain acc. 3		2D
+! NGRBAERGN04 - 019 aerosol gain acc. 4		2D
+! NGRBAERGN05 - 020 aerosol gain acc. 5		2D
+! NGRBAERGN06 - 021 aerosol gain acc. 6		2D
+! NGRBAERGN07 - 022 aerosol gain acc. 7		2D
+! NGRBAERGN08 - 023 aerosol gain acc. 8		2D
+! NGRBAERGN09 - 024 aerosol gain acc. 9		2D
+! NGRBAERGN10 - 025 aerosol gain acc. 10	2D
+! NGRBAERGN11 - 026 aerosol gain acc. 11	2D
+! NGRBAERGN12 - 027 aerosol gain acc. 12	2D
+! NGRBAERGN13 - 028 aerosol gain acc. 13	2D
+! NGRBAERGN14 - 029 aerosol gain acc. 14	2D
+! NGRBAERGN15 - 030 aerosol gain acc. 15	2D
+! NGRBAERLS01 - 031 aerosol loss acc. 1		2D
+! NGRBAERLS02 - 032 aerosol loss acc. 2		2D
+! NGRBAERLS03 - 033 aerosol loss acc. 3		2D
+! NGRBAERLS04 - 034 aerosol loss acc. 4		2D
+! NGRBAERLS05 - 035 aerosol loss acc. 5		2D
+! NGRBAERLS06 - 036 aerosol loss acc. 6		2D
+! NGRBAERLS07 - 037 aerosol loss acc. 7		2D
+! NGRBAERLS08 - 038 aerosol loss acc. 8		2D
+! NGRBAERLS09 - 039 aerosol loss acc. 9		2D
+! NGRBAERLS10 - 040 aerosol loss acc. 10	2D
+! NGRBAERLS11 - 041 aerosol loss acc. 11	2D
+! NGRBAERLS12 - 042 aerosol loss acc. 12	2D
+! NGRBAERLS13 - 043 aerosol loss acc. 13	2D
+! NGRBAERLS14 - 044 aerosol loss acc. 14	2D
+! NGRBAERLS15 - 045 aerosol loss acc. 15	2D
+! NGRBAERPR   - 046 aerosol precursor mixing ratio 
+! NGRBAERSM   - 047 small aerosols mixing ratio 
+! NGRBAERLG   - 048 large aerosols mixing ratio 
+! NGRBAODPR   - 049 aerosol precursor opt.depth 2D
+! NGRBAODSM   - 050 small aerosols opt. depth	2D
+! NGRBAODLG   - 051 large aerosols opt. depth	2D
+! NGRBAERDEP  - 052 dust emission potential clim2D 
+! NGRBAERLTS  - 053 lifting threshold speed clim2D
+! NGRBAERSCC  - 054 soli clay content       clim2D
+
+!---------------------------------------------------
+
+! NGRBGHG(JPGHG)   - 210061 GHG1: Carbon dioxide
+!                  - 210062 GHG2: Methane
+!                  - 210063 GHG3: Nitrous oxide
+! NGRBTCGHG(JPGHG) - 210064 Total column GHG1: Carbon Dioxide
+!                  - 210065 Total column GHG2: Methane
+!                  - 210066 Total column GHG3: Nitrous Oxide
+
+!---------------------------------------------------
+! NGRBCO2O         - 210067 CO2 - ocean flux
+! NGRBCO2B         - 210068 CO2 - biosphere flux
+! NGRBCO2A         - 210069 CO2 - anthropogenic emissions
+!
+!---------------------------------------------------
+! NGRBGRG(JPGRG)   - 210121 GRG1: Nitrogen dioxide
+!                  - 210122 GRG2: Sulphur dioxide
+!                  - 210123 GRG3: Carbon monoxide
+!                  - 210124 GRG4: Formaldehyde
+
+! NGRBTCGRG(JPGRG) - 210125 Total column GRG1: Nitrogen dioxide
+!                  - 210126 Total column GRG2: Sulphur dioxide
+!                  - 210127 Total column GRG3: Carbon monoxide
+!                  - 210128 Total column GRG4: Formaldehyde
+
+!                  - 210203 GRG5: Ozone
+!                  - 210206 Total column GRG5: GEMS Ozone
+
+! NGRBTRAC(JPTRAC)  - 210182 TRAC2: SF6
+!                   - 210181 TRAC1: Radon
+
+
+! NGRBSP2, NGRBSP3 - Grib codes for fields in SPA2 and SPA3
+! NGRBGP2, NGRBGP3 - Grib codes for grid point fields
+
+INTEGER(KIND=JPIM), PARAMETER :: JPN3SP=10
+INTEGER(KIND=JPIM), PARAMETER :: JPN2SP=4
+
+INTEGER(KIND=JPIM) :: NSEC0(2)
+INTEGER(KIND=JPIM) :: NSEC1(2048)
+INTEGER(KIND=JPIM) :: NSEC2SPP(22)
+INTEGER(KIND=JPIM) :: NSEC2SPM(22)
+INTEGER(KIND=JPIM) :: NSEC3(2)
+INTEGER(KIND=JPIM) :: NSEC4(42)
+INTEGER(KIND=JPIM) :: NGRBS3(0:JPN3SP)
+INTEGER(KIND=JPIM) :: NGRBS2(0:JPN2SP)
+INTEGER(KIND=JPIM) :: NSTEPLPP(255)
+REAL(KIND=JPRB) :: RSEC3(2)
+
+INTEGER(KIND=JPIM),ALLOCATABLE:: NSEC2GG(:)
+REAL(KIND=JPRB),ALLOCATABLE:: RSEC2(:)
+
+INTEGER(KIND=JPIM) :: MSEC0(2)
+INTEGER(KIND=JPIM) :: MSEC1(2048)
+INTEGER(KIND=JPIM) :: MSEC2SPP(22)
+INTEGER(KIND=JPIM) :: MSEC2SPM(22)
+INTEGER(KIND=JPIM) :: MSEC3(2)
+INTEGER(KIND=JPIM) :: MSEC4(42)
+INTEGER(KIND=JPIM) :: MGRBS3(0:JPN3SP)
+INTEGER(KIND=JPIM) :: MGRBS2(0:JPN2SP)
+REAL(KIND=JPRB) :: SSEC3(2)
+
+INTEGER(KIND=JPIM),ALLOCATABLE:: MSEC2GG(:)
+REAL(KIND=JPRB),ALLOCATABLE:: SSEC2(:)
+
+INTEGER(KIND=JPIM), ALLOCATABLE :: NGRBSP2(:), NGRBSP3(:)
+INTEGER(KIND=JPIM), ALLOCATABLE :: NGRBGP2(:), NGRBGP3(:)
+
+INTEGER(KIND=JPIM) :: NLOCGRB
+INTEGER(KIND=JPIM) :: NTOTENS
+INTEGER(KIND=JPIM) :: NENSFNB
+INTEGER(KIND=JPIM) :: NCALVAL
+INTEGER(KIND=JPIM) :: NSTREAM
+INTEGER(KIND=JPIM) :: NSYSTEM
+INTEGER(KIND=JPIM) :: NMETHOD
+INTEGER(KIND=JPIM) :: NREFERENCE
+INTEGER(KIND=JPIM) :: NCONSENSUS
+INTEGER(KIND=JPIM) :: NDWD
+INTEGER(KIND=JPIM) :: NMFR
+INTEGER(KIND=JPIM) :: NNCEP
+INTEGER(KIND=JPIM) :: NUKM
+INTEGER(KIND=JPIM) :: NSMAXNP
+INTEGER(KIND=JPIM) :: NBITSSH
+INTEGER(KIND=JPIM) :: NBITSGG
+INTEGER(KIND=JPIM) :: NJDIAG
+INTEGER(KIND=JPIM) :: NJDOMAI
+INTEGER(KIND=JPIM) :: NJITER
+INTEGER(KIND=JPIM) :: MLOCGRB
+INTEGER(KIND=JPIM) :: MTOTENS
+INTEGER(KIND=JPIM) :: MENSFNB
+INTEGER(KIND=JPIM) :: MSMAXNP
+INTEGER(KIND=JPIM) :: MBITSSH
+INTEGER(KIND=JPIM) :: MBITSGG
+INTEGER(KIND=JPIM) :: MJDIAG
+INTEGER(KIND=JPIM) :: MJDOMAI
+INTEGER(KIND=JPIM) :: MJITER
+
+INTEGER(KIND=JPIM) :: NLEG
+
+INTEGER(KIND=JPIM) :: NGRBTH   =  3
+INTEGER(KIND=JPIM) :: NGRBALUVP= 15
+INTEGER(KIND=JPIM) :: NGRBALUVD= 16
+INTEGER(KIND=JPIM) :: NGRBALNIP= 17
+INTEGER(KIND=JPIM) :: NGRBALNID= 18
+INTEGER(KIND=JPIM) :: NGRBSPARC= 20
+INTEGER(KIND=JPIM) :: NGRB21   = 21
+INTEGER(KIND=JPIM) :: NGRB22   = 22
+INTEGER(KIND=JPIM) :: NGRB23   = 23
+INTEGER(KIND=JPIM) :: NGRBCVL  = 27
+INTEGER(KIND=JPIM) :: NGRBCVH  = 28
+INTEGER(KIND=JPIM) :: NGRBTVL  = 29
+INTEGER(KIND=JPIM) :: NGRBTVH  = 30
+INTEGER(KIND=JPIM) :: NGRBCI   = 31
+INTEGER(KIND=JPIM) :: NGRBASN  = 32
+INTEGER(KIND=JPIM) :: NGRBRSN  = 33
+INTEGER(KIND=JPIM) :: NGRBSST  = 34
+INTEGER(KIND=JPIM) :: NGRBISTL1= 35
+INTEGER(KIND=JPIM) :: NGRBISTL2= 36
+INTEGER(KIND=JPIM) :: NGRBISTL3= 37
+INTEGER(KIND=JPIM) :: NGRBISTL4= 38
+INTEGER(KIND=JPIM) :: NGRBSWL1 = 39
+INTEGER(KIND=JPIM) :: NGRBSWL2 = 40
+INTEGER(KIND=JPIM) :: NGRBSWL3 = 41
+INTEGER(KIND=JPIM) :: NGRBSWL4 = 42
+INTEGER(KIND=JPIM) :: NGRBES   = 44
+INTEGER(KIND=JPIM) :: NGRBSMLT = 45
+INTEGER(KIND=JPIM) :: NGRB10FG = 49
+INTEGER(KIND=JPIM) :: NGRBLSPF = 50
+
+INTEGER(KIND=JPIM) :: NGRBMONT = 53
+INTEGER(KIND=JPIM) :: NGRBPTHPV= 54
+
+INTEGER(KIND=JPIM) :: NGRBSPAR = 57
+INTEGER(KIND=JPIM) :: NGRBSUVB = 58
+INTEGER(KIND=JPIM) :: NGRBCAPE = 59
+INTEGER(KIND=JPIM) :: NGRBPV   = 60
+
+INTEGER(KIND=JPIM) :: NGRBSDFOR= 74
+INTEGER(KIND=JPIM) :: NGRBTCLW = 78
+INTEGER(KIND=JPIM) :: NGRBTCIW = 79
+! LARPEGE
+INTEGER(KIND=JPIM) :: NGRBSPD = 80
+INTEGER(KIND=JPIM) :: NGRBSVD = 81
+! LECMWF
+INTEGER(KIND=JPIM) :: NGRB080 = 80
+INTEGER(KIND=JPIM) :: NGRB081 = 81
+
+INTEGER(KIND=JPIM) :: NGRBSF6  = 210185
+INTEGER(KIND=JPIM) :: NGRBMINXTRA  = 082
+INTEGER(KIND=JPIM) :: NGRBMAXXTRA  = 117
+
+INTEGER(KIND=JPIM) :: NGRB082  = 082
+INTEGER(KIND=JPIM) :: NGRB083  = 083
+INTEGER(KIND=JPIM) :: NGRB084  = 084
+INTEGER(KIND=JPIM) :: NGRB085  = 085
+INTEGER(KIND=JPIM) :: NGRB086  = 086
+INTEGER(KIND=JPIM) :: NGRB087  = 087
+INTEGER(KIND=JPIM) :: NGRB088  = 088
+INTEGER(KIND=JPIM) :: NGRB089  = 089
+INTEGER(KIND=JPIM) :: NGRB090  = 090
+INTEGER(KIND=JPIM) :: NGRB091  = 091
+INTEGER(KIND=JPIM) :: NGRB092  = 092
+INTEGER(KIND=JPIM) :: NGRB093  = 093
+INTEGER(KIND=JPIM) :: NGRB094  = 094
+INTEGER(KIND=JPIM) :: NGRB095  = 095
+INTEGER(KIND=JPIM) :: NGRB096  = 096
+INTEGER(KIND=JPIM) :: NGRB097  = 097
+INTEGER(KIND=JPIM) :: NGRB098  = 098
+INTEGER(KIND=JPIM) :: NGRB099  = 099
+INTEGER(KIND=JPIM) :: NGRB100  = 100
+INTEGER(KIND=JPIM) :: NGRB101  = 101
+INTEGER(KIND=JPIM) :: NGRB102  = 102
+INTEGER(KIND=JPIM) :: NGRB103  = 103
+INTEGER(KIND=JPIM) :: NGRB104  = 104
+INTEGER(KIND=JPIM) :: NGRB105  = 105
+INTEGER(KIND=JPIM) :: NGRB106  = 106
+INTEGER(KIND=JPIM) :: NGRB107  = 107
+INTEGER(KIND=JPIM) :: NGRB108  = 108
+INTEGER(KIND=JPIM) :: NGRB109  = 109
+INTEGER(KIND=JPIM) :: NGRB110  = 110
+INTEGER(KIND=JPIM) :: NGRB111  = 111
+INTEGER(KIND=JPIM) :: NGRB112  = 112
+INTEGER(KIND=JPIM) :: NGRB113  = 113
+INTEGER(KIND=JPIM) :: NGRB114  = 114
+INTEGER(KIND=JPIM) :: NGRB115  = 115
+INTEGER(KIND=JPIM) :: NGRB116  = 116
+INTEGER(KIND=JPIM) :: NGRB117  = 117
+
+INTEGER(KIND=JPIM) :: NGRB118  = 118
+INTEGER(KIND=JPIM) :: NGRB119  = 119
+INTEGER(KIND=JPIM) :: NGRB120  = 120
+
+INTEGER(KIND=JPIM) :: NGRBEMIS = 124
+
+INTEGER(KIND=JPIM) :: NGRBAT   = 127
+INTEGER(KIND=JPIM) :: NGRBBV   = 128
+INTEGER(KIND=JPIM) :: NGRBZ    = 129
+INTEGER(KIND=JPIM) :: NGRBT    = 130
+INTEGER(KIND=JPIM) :: NGRBU    = 131
+INTEGER(KIND=JPIM) :: NGRBV    = 132
+INTEGER(KIND=JPIM) :: NGRBQ    = 133
+INTEGER(KIND=JPIM) :: NGRBSP   = 134
+INTEGER(KIND=JPIM) :: NGRBW    = 135
+INTEGER(KIND=JPIM) :: NGRBTCW  = 136
+INTEGER(KIND=JPIM) :: NGRBTCWV = 137
+INTEGER(KIND=JPIM) :: NGRBVO   = 138
+INTEGER(KIND=JPIM) :: NGRBSTL1 = 139
+INTEGER(KIND=JPIM) :: NGRBSD   = 141
+INTEGER(KIND=JPIM) :: NGRBLSP  = 142
+INTEGER(KIND=JPIM) :: NGRBCP   = 143
+INTEGER(KIND=JPIM) :: NGRBSF   = 144
+INTEGER(KIND=JPIM) :: NGRBBLD  = 145
+INTEGER(KIND=JPIM) :: NGRBSSHF = 146
+INTEGER(KIND=JPIM) :: NGRBSLHF = 147
+INTEGER(KIND=JPIM) :: NGRBCHAR = 148
+INTEGER(KIND=JPIM) :: NGRB149  = 149
+INTEGER(KIND=JPIM) :: NGRB150  = 150
+INTEGER(KIND=JPIM) :: NGRBMSL  = 151
+INTEGER(KIND=JPIM) :: NGRBLNSP = 152
+INTEGER(KIND=JPIM) :: NGRB153  = 153
+INTEGER(KIND=JPIM) :: NGRB154  = 154
+INTEGER(KIND=JPIM) :: NGRBD    = 155
+INTEGER(KIND=JPIM) :: NGRBGH   = 156
+INTEGER(KIND=JPIM) :: NGRBR    = 157
+INTEGER(KIND=JPIM) :: NGRBTSP  = 158
+INTEGER(KIND=JPIM) :: NGRBBLH  = 159
+INTEGER(KIND=JPIM) :: NGRBSDOR = 160
+INTEGER(KIND=JPIM) :: NGRBISOR = 161
+INTEGER(KIND=JPIM) :: NGRBANOR = 162
+INTEGER(KIND=JPIM) :: NGRBSLOR = 163
+INTEGER(KIND=JPIM) :: NGRBTCC  = 164
+INTEGER(KIND=JPIM) :: NGRB10U  = 165
+INTEGER(KIND=JPIM) :: NGRB10V  = 166
+INTEGER(KIND=JPIM) :: NGRB2T   = 167
+INTEGER(KIND=JPIM) :: NGRB2D   = 168
+INTEGER(KIND=JPIM) :: NGRBSSRD = 169
+INTEGER(KIND=JPIM) :: NGRBSTL2 = 170
+INTEGER(KIND=JPIM) :: NGRBLSM  = 172
+INTEGER(KIND=JPIM) :: NGRBSR   = 173
+INTEGER(KIND=JPIM) :: NGRBAL   = 174
+INTEGER(KIND=JPIM) :: NGRBSTRD = 175
+INTEGER(KIND=JPIM) :: NGRBSSR  = 176
+INTEGER(KIND=JPIM) :: NGRBSTR  = 177
+INTEGER(KIND=JPIM) :: NGRBTSR  = 178
+INTEGER(KIND=JPIM) :: NGRBTTR  = 179
+INTEGER(KIND=JPIM) :: NGRBEWSS = 180
+INTEGER(KIND=JPIM) :: NGRBNSSS = 181
+INTEGER(KIND=JPIM) :: NGRBE    = 182
+INTEGER(KIND=JPIM) :: NGRBSTL3 = 183
+INTEGER(KIND=JPIM) :: NGRBCCC  = 185
+INTEGER(KIND=JPIM) :: NGRBLCC  = 186
+INTEGER(KIND=JPIM) :: NGRBMCC  = 187
+INTEGER(KIND=JPIM) :: NGRBHCC  = 188
+INTEGER(KIND=JPIM) :: NGRBSUND = 189
+INTEGER(KIND=JPIM) :: NGRBEWOV = 190
+INTEGER(KIND=JPIM) :: NGRBNSOV = 191
+INTEGER(KIND=JPIM) :: NGRBNWOV = 192
+INTEGER(KIND=JPIM) :: NGRBNEOV = 193
+INTEGER(KIND=JPIM) :: NGRBTBT  = 194
+INTEGER(KIND=JPIM) :: NGRBLGWS = 195
+INTEGER(KIND=JPIM) :: NGRBMGWS = 196
+INTEGER(KIND=JPIM) :: NGRBGWD  = 197
+INTEGER(KIND=JPIM) :: NGRBSRC  = 198
+INTEGER(KIND=JPIM) :: NGRBVEG  = 199
+INTEGER(KIND=JPIM) :: NGRBVSO  = 200
+INTEGER(KIND=JPIM) :: NGRBMX2T = 201
+INTEGER(KIND=JPIM) :: NGRBMN2T = 202
+INTEGER(KIND=JPIM) :: NGRBO3   = 203
+INTEGER(KIND=JPIM) :: NGRBPAW  = 204
+INTEGER(KIND=JPIM) :: NGRBRO   = 205
+INTEGER(KIND=JPIM) :: NGRBTCO3 = 206
+INTEGER(KIND=JPIM) :: NGRB207  = 207
+INTEGER(KIND=JPIM) :: NGRBTSRC = 208
+INTEGER(KIND=JPIM) :: NGRBTTRC = 209
+INTEGER(KIND=JPIM) :: NGRBSSRC = 210
+INTEGER(KIND=JPIM) :: NGRBSTRC = 211
+
+INTEGER(KIND=JPIM) :: NGRB214  = 214
+INTEGER(KIND=JPIM) :: NGRB215  = 215
+INTEGER(KIND=JPIM) :: NGRB216  = 216
+INTEGER(KIND=JPIM) :: NGRB217  = 217
+INTEGER(KIND=JPIM) :: NGRB218  = 218
+INTEGER(KIND=JPIM) :: NGRB219  = 219
+
+INTEGER(KIND=JPIM) :: NGRBSTINC= 212
+INTEGER(KIND=JPIM) :: NGRBVIMD = 213
+
+INTEGER(KIND=JPIM) :: NGRB222  = 222
+INTEGER(KIND=JPIM) :: NGRB223  = 223
+INTEGER(KIND=JPIM) :: NGRB224  = 224
+INTEGER(KIND=JPIM) :: NGRB225  = 225
+INTEGER(KIND=JPIM) :: NGRB226  = 226
+INTEGER(KIND=JPIM) :: NGRB227  = 227
+INTEGER(KIND=JPIM) :: NGRBTP   = 228
+INTEGER(KIND=JPIM) :: NGRBIEWS = 229
+INTEGER(KIND=JPIM) :: NGRBINSS = 230
+INTEGER(KIND=JPIM) :: NGRBISHF = 231
+INTEGER(KIND=JPIM) :: NGRBIE   = 232
+INTEGER(KIND=JPIM) :: NGRBLSRH = 234
+INTEGER(KIND=JPIM) :: NGRBSKT  = 235
+INTEGER(KIND=JPIM) :: NGRBSTL4 = 236
+INTEGER(KIND=JPIM) :: NGRBTSN  = 238
+INTEGER(KIND=JPIM) :: NGRBCSF  = 239
+INTEGER(KIND=JPIM) :: NGRBLSF  = 240
+INTEGER(KIND=JPIM) :: NGRB241  = 241
+INTEGER(KIND=JPIM) :: NGRB242  = 242
+INTEGER(KIND=JPIM) :: NGRBFAL  = 243
+INTEGER(KIND=JPIM) :: NGRBFSR  = 244
+INTEGER(KIND=JPIM) :: NGRBFLSR = 245
+INTEGER(KIND=JPIM) :: NGRBCLWC = 246
+INTEGER(KIND=JPIM) :: NGRBCIWC = 247
+INTEGER(KIND=JPIM) :: NGRBCC   = 248
+INTEGER(KIND=JPIM) :: NGRB249  = 249
+INTEGER(KIND=JPIM) :: NGRB250  = 250
+INTEGER(KIND=JPIM) :: NGRB251  = 251
+INTEGER(KIND=JPIM) :: NGRB252  = 252
+INTEGER(KIND=JPIM) :: NGRB253  = 253
+INTEGER(KIND=JPIM) :: NGRB254  = 254
+INTEGER(KIND=JPIM) :: NGRB255  = 255
+
+
+!-- aerosols -- Table 210 --------------------------
+INTEGER(KIND=JPIM) :: NGRBAERMR01=210001
+INTEGER(KIND=JPIM) :: NGRBAERMR02=210002
+INTEGER(KIND=JPIM) :: NGRBAERMR03=210003
+INTEGER(KIND=JPIM) :: NGRBAERMR04=210004
+INTEGER(KIND=JPIM) :: NGRBAERMR05=210005
+INTEGER(KIND=JPIM) :: NGRBAERMR06=210006
+INTEGER(KIND=JPIM) :: NGRBAERMR07=210007
+INTEGER(KIND=JPIM) :: NGRBAERMR08=210008
+INTEGER(KIND=JPIM) :: NGRBAERMR09=210009
+INTEGER(KIND=JPIM) :: NGRBAERMR10=210010
+INTEGER(KIND=JPIM) :: NGRBAERMR11=210011
+INTEGER(KIND=JPIM) :: NGRBAERMR12=210012
+INTEGER(KIND=JPIM) :: NGRBAERMR13=210013
+INTEGER(KIND=JPIM) :: NGRBAERMR14=210014
+INTEGER(KIND=JPIM) :: NGRBAERMR15=210015
+
+INTEGER(KIND=JPIM) :: NGRBAERGN01=210016
+INTEGER(KIND=JPIM) :: NGRBAERGN02=210017
+INTEGER(KIND=JPIM) :: NGRBAERGN03=210018
+INTEGER(KIND=JPIM) :: NGRBAERGN04=210019
+INTEGER(KIND=JPIM) :: NGRBAERGN05=210020
+INTEGER(KIND=JPIM) :: NGRBAERGN06=210021
+INTEGER(KIND=JPIM) :: NGRBAERGN07=210022
+INTEGER(KIND=JPIM) :: NGRBAERGN08=210023
+INTEGER(KIND=JPIM) :: NGRBAERGN09=210024
+INTEGER(KIND=JPIM) :: NGRBAERGN10=210025
+INTEGER(KIND=JPIM) :: NGRBAERGN11=210026
+INTEGER(KIND=JPIM) :: NGRBAERGN12=210027
+INTEGER(KIND=JPIM) :: NGRBAERGN13=210028
+INTEGER(KIND=JPIM) :: NGRBAERGN14=210029
+INTEGER(KIND=JPIM) :: NGRBAERGN15=210030
+
+INTEGER(KIND=JPIM) :: NGRBAERLS01=210031
+INTEGER(KIND=JPIM) :: NGRBAERLS02=210032
+INTEGER(KIND=JPIM) :: NGRBAERLS03=210033
+INTEGER(KIND=JPIM) :: NGRBAERLS04=210034
+INTEGER(KIND=JPIM) :: NGRBAERLS05=210035
+INTEGER(KIND=JPIM) :: NGRBAERLS06=210036
+INTEGER(KIND=JPIM) :: NGRBAERLS07=210037
+INTEGER(KIND=JPIM) :: NGRBAERLS08=210038
+INTEGER(KIND=JPIM) :: NGRBAERLS09=210039
+INTEGER(KIND=JPIM) :: NGRBAERLS10=210040
+INTEGER(KIND=JPIM) :: NGRBAERLS11=210041
+INTEGER(KIND=JPIM) :: NGRBAERLS12=210042
+INTEGER(KIND=JPIM) :: NGRBAERLS13=210043
+INTEGER(KIND=JPIM) :: NGRBAERLS14=210044
+INTEGER(KIND=JPIM) :: NGRBAERLS15=210045
+
+INTEGER(KIND=JPIM) :: NGRBAERPR  =210046
+INTEGER(KIND=JPIM) :: NGRBAERSM  =210047
+INTEGER(KIND=JPIM) :: NGRBAERLG  =210048
+INTEGER(KIND=JPIM) :: NGRBAODPR  =210049
+INTEGER(KIND=JPIM) :: NGRBAODSM  =210050
+INTEGER(KIND=JPIM) :: NGRBAODLG  =210051
+INTEGER(KIND=JPIM) :: NGRBAERDEP =210052
+INTEGER(KIND=JPIM) :: NGRBAERLTS =210053
+INTEGER(KIND=JPIM) :: NGRBAERSCC =210054
+!---------------------------------------------------
+INTEGER(KIND=JPIM) :: NGRBCO2O = 210067
+INTEGER(KIND=JPIM) :: NGRBCO2B = 210068
+INTEGER(KIND=JPIM) :: NGRBCO2A = 210069
+
+!---------------------------------------------------
+
+INTEGER(KIND=JPIM), DIMENSION(JPGHG) :: NGRBGHG = (/&
+ & 210061, 210062, 210063/)
+INTEGER(KIND=JPIM), DIMENSION(JPTRAC) :: NGRBTRAC = (/&
+ & 210181, 210182/)
+
+INTEGER(KIND=JPIM), DIMENSION(JPGHG) :: NGRBTCGHG = (/&
+ & 210064, 210065, 210066/)
+INTEGER(KIND=JPIM), DIMENSION(JPTRAC) :: NGRBTCTRAC = (/&
+ & 210183, 210184/)
+
+INTEGER(KIND=JPIM), DIMENSION(JPGRG) :: NGRBGRG = (/&
+ & 210121, 210122, 210123, 210124, 210203/)
+
+INTEGER(KIND=JPIM), DIMENSION(JPGRG) :: NGRBTCGRG = (/&
+ & 210125, 210126, 210127, 210128, 210206/)
+
+!     ------------------------------------------------------------------
+END MODULE YOMGRB
Index: LMDZ5/trunk/libf/phylmd/rrtm/yomgstats.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yomgstats.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yomgstats.F90	(revision 1989)
@@ -0,0 +1,104 @@
+MODULE YOMGSTATS
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+! Module for timing statistics. Module is internal to the GSTATS package -
+! routines GSTATS, SUSTATS and STATS_OUTPUT. The logical switches are
+! re-initialized in SUMPINI
+
+! LSTATS - TRUE for gathering timing statistics
+! LSTATSCPU - TRUE for gathering CPU timing  statistics
+! LSYNCSTATS - TRUE for syncronization (call to barrier) at the 
+!              start of timing event
+! LDETAILED_STATS - TRUE for more detail in output
+! LSTATS_OMP - TRUE for gathering timing statistics on OpenMP regions
+!                 1001-1999
+! LSTATS_COMMS - TRUE for gathering detailed timing of Message passing
+!                 501-1000
+! NTRACE_STATS    - max number of entries in trace
+! LTRACE_STATS    - True for trace of all calls to gstats
+! LGSTATS_LABEL   - True after GSTATS-labels have been set
+! JPMAXSTAT - max number of separate  timers in gstats
+! JPOBCOUNT_BASE - first counter for obs types
+! NCALLS - number of times a timer has been switched on
+! TIMESUM - total time spent with timer on
+! TIMESQSUM - sum of the squares of times
+! TIMEMAX - max time of all calls
+! TIMESUMB - sum of times between previous timer was invoked and this
+!            timer was switched on ( to be used for finding out which parts
+!            of the code that is not being timed)
+! TIMELCALL - time when event was switched on or resumed
+! TTCPUSUM - total cpu time
+! TVCPUSUM - total vector cpu time
+! THISTIME - total accumulated time for this call to timing event (necessary
+!            to be able to suspend and resume timer and still have it counted
+!            as one timing event)
+! THISTCPU - as THISTIME but for CPU time
+! THISVCPU - as THISTIME but for vector CPU time
+! TTCPULCALL - as TIMELCALL but for CPU time
+! TVCPULCALL - as TIMELCALL but for vector CPU time
+! TIME_LAST_CALL - last time GSTATS was called
+! TIME_START - used for recording parallel startup time
+
+
+LOGICAL :: LSTATS = .TRUE.
+LOGICAL :: LSTATS_OMP = .FALSE.
+LOGICAL :: LSTATS_COMMS = .FALSE.
+LOGICAL :: LSTATS_MEM = .FALSE.
+LOGICAL :: LSTATS_ALLOC = .FALSE.
+LOGICAL :: LSTATSCPU = .TRUE.
+LOGICAL :: LSYNCSTATS = .FALSE.
+LOGICAL :: LDETAILED_STATS = .TRUE.
+LOGICAL :: LBARRIER_STATS = .FALSE.
+LOGICAL :: LTRACE_STATS = .FALSE.
+LOGICAL :: LGSTATS_LABEL = .FALSE.
+
+INTEGER(KIND=JPIM),PARAMETER :: JPMAXSTAT=2500
+
+INTEGER(KIND=JPIM),PARAMETER :: JPOBCOUNT_BASE=201
+INTEGER(KIND=JPIM) :: NTRACE_STATS=0
+INTEGER(KIND=JPIM) :: NCALLS(0:JPMAXSTAT)
+INTEGER(KIND=JPIM) :: NCALLS_TOTAL=0
+INTEGER(KIND=JPIM),ALLOCATABLE :: NCALL_TRACE(:)
+
+REAL(KIND=JPRB) :: TIMESUM(0:JPMAXSTAT)
+REAL(KIND=JPRB) :: TIMESQSUM(0:JPMAXSTAT)
+REAL(KIND=JPRB) :: TIMEMAX(0:JPMAXSTAT)
+REAL(KIND=JPRB) :: TIMESUMB(0:JPMAXSTAT)
+REAL(KIND=JPRB) :: TIMELCALL(0:JPMAXSTAT)
+REAL(KIND=JPRB) :: TTCPUSUM(0:JPMAXSTAT)
+REAL(KIND=JPRB) :: TVCPUSUM(0:JPMAXSTAT)
+REAL(KIND=JPRB) :: THISTIME(0:JPMAXSTAT)
+REAL(KIND=JPRB) :: THISTCPU(0:JPMAXSTAT)
+REAL(KIND=JPRB) :: THISVCPU(0:JPMAXSTAT)
+REAL(KIND=JPRB) :: TTCPULCALL(0:JPMAXSTAT)
+REAL(KIND=JPRB) :: TVCPULCALL(0:JPMAXSTAT)
+REAL(KIND=JPRB) :: TIME_LAST_CALL
+
+REAL(KIND=JPRB),ALLOCATABLE :: TIME_START(:)
+REAL(KIND=JPRB),ALLOCATABLE :: TIME_TRACE(:)
+INTEGER(KIND=JPIM),PARAMETER :: JPERR=0
+INTEGER(KIND=JPIM),PARAMETER :: JPTAGSTAT=20555
+
+CHARACTER*50 :: CCDESC(0:JPMAXSTAT) = ""
+CHARACTER*3  :: CCTYPE(0:JPMAXSTAT) = ""
+
+INTEGER(KIND=JPIM) :: NPROC_STATS = 1
+INTEGER(KIND=JPIM) :: MYPROC_STATS = 1
+INTEGER(KIND=JPIM),ALLOCATABLE :: NPRCIDS_STATS(:)
+
+INTEGER(KIND=JPIM) :: NTMEM(0:JPMAXSTAT,5)
+INTEGER(KIND=JPIM) :: NSTATS_MEM=0
+
+INTEGER(KIND=JPIM) :: NPRNT_STATS=3
+
+END MODULE YOMGSTATS
+
+
+
+
Index: LMDZ5/trunk/libf/phylmd/rrtm/yomhook.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yomhook.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yomhook.F90	(revision 1989)
@@ -0,0 +1,38 @@
+MODULE YOMHOOK
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+! Used by "hook" function
+! LHOOK = true implies "hook" function will be called
+! Altough initialized to TRUE it will be reset by first call to 
+! DR_HOOK unless we really want to use the hook function
+
+LOGICAL :: LHOOK=.TRUE.
+
+CONTAINS 
+
+SUBROUTINE DR_HOOK(CDNAME,KSWITCH,PKEY)
+CHARACTER(LEN=*), INTENT(IN) :: CDNAME
+INTEGER(KIND=JPIM),        INTENT(IN) :: KSWITCH
+REAL(KIND=JPRB),        INTENT(INOUT) :: PKEY
+IF (KSWITCH.EQ.0) THEN
+!  PRINT *,'--> ON ENTRE DANS: ',CDNAME
+ELSE IF (KSWITCH.EQ.1) THEN
+!  PRINT *,'    ON SORT  DE  : ',CDNAME
+ENDIF
+END SUBROUTINE DR_HOOK
+
+SUBROUTINE C_DRHOOK_PRINT
+
+! subroutine vide MPL 4.12.08
+!INTEGER(KIND=JPIM) ITID, KTID, IPRINT_OPTION, ILEVEL
+!ITID = 0
+!KTID = 0
+!IPRINT_OPTION = 2
+!ILEVEL = 0
+PRINT *,'ON EST DANS C_DRHOOK_PRINT '
+
+END SUBROUTINE C_DRHOOK_PRINT
+END MODULE YOMHOOK
Index: LMDZ5/trunk/libf/phylmd/rrtm/yomjfh.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yomjfh.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yomjfh.F90	(revision 1989)
@@ -0,0 +1,15 @@
+MODULE YOMJFH
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------
+
+INTEGER(KIND=JPIM) :: N_VMASS=0
+
+!    -----------------------------------------------------------------
+
+END MODULE YOMJFH
Index: LMDZ5/trunk/libf/phylmd/rrtm/yomleg.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yomleg.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yomleg.F90	(revision 1989)
@@ -0,0 +1,40 @@
+MODULE YOMLEG
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*    Description of Legendre polynomials
+
+! RW          : weights of the gaussian quadrature
+! RMU         : mu              sin(theta)
+! R1MU2       : 1.-MU*MU        cos(theta)**2
+! R1MUI       : 1./R1MU2      1/cos(theta)**2
+! R1MUA       : 1./R1MU2/RA   1/(a*cos(theta)**2)
+! RSQM2       : SQRT(R1MU2)     cos(theta)
+! R1QM2       : 1./SQRT(R1MU2) 1/cos(theta)
+! RACTHE      : 1./SQRT(R1MU2) 1/(a*cos(theta))
+! RLATIG      : arcsin(mu)      theta  GLOBAL VIEW
+! RLATI       : arcsin(mu)      theta
+! RIPI0       : bi-cubic interpolation coefficients
+! RIPI1       : bi-cubic interpolation coefficients
+! RIPI2       : bi-cubic interpolation coefficients
+
+REAL(KIND=JPRB),ALLOCATABLE:: RW(:)
+REAL(KIND=JPRB),ALLOCATABLE:: RMU(:)
+REAL(KIND=JPRB),ALLOCATABLE:: R1MU2(:)
+REAL(KIND=JPRB),ALLOCATABLE:: R1MUI(:)
+REAL(KIND=JPRB),ALLOCATABLE:: R1MUA(:)
+REAL(KIND=JPRB),ALLOCATABLE:: RSQM2(:)
+REAL(KIND=JPRB),ALLOCATABLE:: R1QM2(:)
+REAL(KIND=JPRB),ALLOCATABLE:: RACTHE(:)
+REAL(KIND=JPRB),ALLOCATABLE:: RLATIG(:)
+REAL(KIND=JPRB),ALLOCATABLE:: RLATI(:)
+REAL(KIND=JPRB),ALLOCATABLE:: RIPI0(:)
+REAL(KIND=JPRB),ALLOCATABLE:: RIPI1(:)
+REAL(KIND=JPRB),ALLOCATABLE:: RIPI2(:)
+
+END MODULE YOMLEG
Index: LMDZ5/trunk/libf/phylmd/rrtm/yomlun.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yomlun.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yomlun.F90	(revision 1989)
@@ -0,0 +1,140 @@
+MODULE YOMLUN
+
+USE PARKIND1  ,ONLY : JPIM
+USE YOMLUN_IFSAUX, ONLY : NULOUT, NULERR
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+
+!*    Logical units used by code
+
+!     NULOUT :   output unit (now from YOMLUN_IFSAUX)
+!     NULNAM :   unit number for namelist
+!     NCMAFL :   UNIT NUMBERS FOR OCEAN COUPLER FILES
+!     NULCL1 :   unit number for climatological fields (month before)
+!     NULCL2 :   unit number for climatological fields (month after)
+!     NTRJSH :   unit number for trajectory spectral data          WRTRA
+!     NINMSH :   unit number for initial point of the minimization SUVAZX
+!     NINISH :   unit number for initial spectral data             SUSPEC
+!     NINIGG :   unit number for initial grid-point data           SUSPEC
+!     NFGISH :   unit number for first-guess spectral data
+!     NFGIGG :   unit number for first-guess grid-point data
+!     NPOSSH :   output unit number (spectral fields)              CPREP1
+!     NTIDE  :   unit number for the LFI file containing the total tendencies
+!     NPDIRL :   unit number for post-processing directory listing
+!     NPPPSH :   unit number for post-processed spherical harmonics WRPLPP
+
+!     NULDILA:   unit number for dilatation matrix (SUDIL,DILAT,SPDILA)
+!     NULCONT:   unit number for contraction matrix (SUDIL,DILAT,SPDILA)
+!     NULROTC:   unit number for upper troncature rotation matrix (SUROT,SPORTS)
+
+!     NULCO  :   unit number for coupled fields (ICMCO)
+!     NPODDH :   unit number for mask diagnostic files (DDH)
+!     NULRCF :   unit number for restart control file
+!     NULHWF :   unit number for history witness file
+!     NBIAS  :   unit number for bias (dig. filt. guess - guess)
+
+!     NEFLS  :   unit number for coupling ALADIN file
+!     NEFLSS :   unit number for coupling ALADIN file (initialisation)
+
+!     NULUSR1:   unit numbers for user defined files
+!     NULSTAT:   unit number for status  file
+
+!     NULASE :   unit number for CANARI statistics (forecast error s.d.)
+!     NULASS :   unit number for CANARI statistics (analysis error s.d.)
+
+!     NULUSR2
+!     NULUSR3
+!     NULUSR4
+!     NULUSR5
+!     NULTMP :   unit numbers for file opened and closed in the same routine
+
+!     NULFPxx    unit numbers for Full-POS output files
+!     NSCRTCH:   unit number for Full-POS scratch file (for in-line post-proc.)
+!     NULFPOS:   unit number for Full-POS control file (end of post-processing
+!                in conf. 001 ; auxilary namelist file in conf. 927)
+!     NULERR :   unit number for comparison with reference run (now from YOMLUN_IFSAUX)
+!     NULREF :   unit number for storing reference run
+!     NULRAD :   unit number for writing radiation diagnostics
+!     NULRTL :   unit number for reading RTLIMB coefficient files
+!     NUO3CH1:   unit number for reading ozone chemistry file 1
+!     NUO3CH2:   unit number for reading ozone chemistry file 2
+!     NTCSR  :   unit number for fields of radiation coefficients
+!     NSCATAB    SCAT. SIGMA0 TABLE
+!     NSCASIG    SCAT. SIGMA0 BIAS CORRECTION
+!     NSCASPE    SCAT. SPEED BIAS CORRECTION
+!     NEGASH     UNIT NUMBER FOR JK INPUT
+
+!     NULTRAJHR: unit number for high resolution trajectory (option LTRAJHR)
+!     NULTRAJBG: unit number for background (option LBACKGR)
+
+!!INTEGER(KIND=JPIM) :: NULOUT
+! Ce qui concerne NULNAM commente par MPL le 15.04.09
+!INTEGER(KIND=JPIM) :: NULNAM
+INTEGER(KIND=JPIM) :: NCMAFL(10)
+INTEGER(KIND=JPIM) :: NPOSSH
+INTEGER(KIND=JPIM) :: NTIDE
+INTEGER(KIND=JPIM) :: NTRJSH
+INTEGER(KIND=JPIM) :: NINMSH
+INTEGER(KIND=JPIM) :: NINISH
+INTEGER(KIND=JPIM) :: NINIGG
+INTEGER(KIND=JPIM) :: NFGISH
+INTEGER(KIND=JPIM) :: NFGIGG
+INTEGER(KIND=JPIM) :: NPPPSH
+INTEGER(KIND=JPIM) :: NULTMP
+INTEGER(KIND=JPIM) :: NPODDH
+INTEGER(KIND=JPIM) :: NULCL1
+INTEGER(KIND=JPIM) :: NULCL2
+INTEGER(KIND=JPIM) :: NULASE
+INTEGER(KIND=JPIM) :: NULASS
+INTEGER(KIND=JPIM) :: NULDILA
+INTEGER(KIND=JPIM) :: NULCONT
+INTEGER(KIND=JPIM) :: NULROTC
+INTEGER(KIND=JPIM) :: NULRCF
+INTEGER(KIND=JPIM) :: NULHWF
+INTEGER(KIND=JPIM) :: NULUSR1
+INTEGER(KIND=JPIM) :: NULUSR2
+INTEGER(KIND=JPIM) :: NULUSR3
+INTEGER(KIND=JPIM) :: NULUSR4
+INTEGER(KIND=JPIM) :: NULUSR5
+INTEGER(KIND=JPIM) :: NULCO
+INTEGER(KIND=JPIM) :: NEFLS
+INTEGER(KIND=JPIM) :: NEFLSS
+INTEGER(KIND=JPIM) :: NBIAS
+INTEGER(KIND=JPIM) :: NPDIRL
+INTEGER(KIND=JPIM) :: NULSTAT
+INTEGER(KIND=JPIM) :: NULFP01
+INTEGER(KIND=JPIM) :: NULFP02
+INTEGER(KIND=JPIM) :: NULFP03
+INTEGER(KIND=JPIM) :: NULFP04
+INTEGER(KIND=JPIM) :: NULFP05
+INTEGER(KIND=JPIM) :: NULFP06
+INTEGER(KIND=JPIM) :: NULFP07
+INTEGER(KIND=JPIM) :: NULFP08
+INTEGER(KIND=JPIM) :: NULFP09
+INTEGER(KIND=JPIM) :: NULFP10
+INTEGER(KIND=JPIM) :: NULFP11
+INTEGER(KIND=JPIM) :: NULFP12
+INTEGER(KIND=JPIM) :: NULFP13
+INTEGER(KIND=JPIM) :: NULFP14
+INTEGER(KIND=JPIM) :: NULFP15
+INTEGER(KIND=JPIM) :: NULFPOS
+INTEGER(KIND=JPIM) :: NSCRTCH
+!!INTEGER(KIND=JPIM) :: NULERR
+INTEGER(KIND=JPIM) :: NULREF
+INTEGER(KIND=JPIM) :: NULRAD
+INTEGER(KIND=JPIM) :: NULRTL
+INTEGER(KIND=JPIM) :: NUO3CH1
+INTEGER(KIND=JPIM) :: NUO3CH2
+INTEGER(KIND=JPIM) :: NTCSR
+INTEGER(KIND=JPIM) :: NSCATAB
+INTEGER(KIND=JPIM) :: NSCASIG
+INTEGER(KIND=JPIM) :: NSCASPE
+INTEGER(KIND=JPIM) :: NEGASH
+INTEGER(KIND=JPIM) :: NULTRAJHR
+INTEGER(KIND=JPIM) :: NULTRAJBG
+!     ------------------------------------------------------------------
+END MODULE YOMLUN
Index: LMDZ5/trunk/libf/phylmd/rrtm/yomlun_ifsaux.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yomlun_ifsaux.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yomlun_ifsaux.F90	(revision 1989)
@@ -0,0 +1,20 @@
+MODULE YOMLUN_IFSAUX
+
+USE PARKIND1  ,ONLY : JPIM
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+
+!*    Logical units used by code
+
+!     NULOUT :   output unit
+!     NULERR :   unit number for comparison with reference run
+
+INTEGER(KIND=JPIM) :: NULOUT = 6
+INTEGER(KIND=JPIM) :: NULERR = 0
+
+!     ------------------------------------------------------------------
+END MODULE YOMLUN_IFSAUX
Index: LMDZ5/trunk/libf/phylmd/rrtm/yomlw15.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yomlw15.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yomlw15.F90	(revision 1989)
@@ -0,0 +1,79 @@
+MODULE YOMLW15
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*    ** *YOMLW15* - COEFF. OF THE LONGWAVE RADIATION TRANSFER
+!*                         FROZEN VERSION (CYCLE 15) OF YOELW
+!     ------------------------------------------------------------------
+
+INTEGER(KIND=JPIM) :: MXIXT15
+INTEGER(KIND=JPIM) :: NINT15
+INTEGER(KIND=JPIM) :: NIPD15
+INTEGER(KIND=JPIM) :: NIPD215
+INTEGER(KIND=JPIM) :: NTR15
+INTEGER(KIND=JPIM) :: NTRA15
+INTEGER(KIND=JPIM) :: NUA15
+INTEGER(KIND=JPIM) :: NG115
+INTEGER(KIND=JPIM) :: NG1P115
+REAL(KIND=JPRB) :: AT15(8,3)
+REAL(KIND=JPRB) :: BT15(8,3)
+REAL(KIND=JPRB) :: RNTNU15(4)
+REAL(KIND=JPRB) :: GA15(11,16,3)
+REAL(KIND=JPRB) :: GB15(11,16,3)
+REAL(KIND=JPRB) :: OCT15(4)
+REAL(KIND=JPRB) :: O1H15
+REAL(KIND=JPRB) :: O2H15
+REAL(KIND=JPRB) :: RPIALF015
+REAL(KIND=JPRB) :: RT115(2)
+REAL(KIND=JPRB) :: TINTP15(11)
+REAL(KIND=JPRB) :: TREF15
+REAL(KIND=JPRB) :: TSTAND15
+REAL(KIND=JPRB) :: TSTP15
+REAL(KIND=JPRB) :: WG115(2)
+REAL(KIND=JPRB) :: XP15(6,6)
+REAL(KIND=JPRB) :: RVGCO215
+REAL(KIND=JPRB) :: RVGH2O15
+REAL(KIND=JPRB) :: RVGO315
+
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!        96-11: Ph. Dandin. Meteo-France
+!     J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
+
+!  NAME        TYPE     PURPOSE
+!  ----     :  ----   : ------------------------------------------------
+!  MXIXT15  :  INTEGER  MAXIMUM TEMPERATURE INDEX FOR TRANSMISSIVITIES
+!  NINT15   :  INTEGER  NUMBER OF SPECTRAL INTERVALS
+!  NIPD15   :  INTEGER  NUMBER OF BANDS DESCRIBED BY PADE APPROXIMANTS
+!  NIPD215  :  INTEGER  NIPD15*2
+!  NTR15    :  INTEGER  NUMBER OF REFERENCE TEMPERATURES
+!  NTRA15   :  INTEGER  NUMBER OF TRANSMISSION FUNCTIONS
+!  NUA15    :  INTEGER  NUMBER OF ABSORBER AMOUNTS
+!  NG115    :  INTEGER  ORDER OF THE GAUSSIAN QUADRATURE
+!  NG1P115  :  INTEGER  NG115+1
+!  AT15     :  REAL     A-TYPE COEFF. FOR TEMPERATURE DEPENDENCE
+!  BT15     :  REAL     B-TYPE COEFF. FOR TEMPERATURE DEPENDENCE
+!  RNTNU15  :  REAL     ABSORPTION COEFFICIENT E-TYPE
+!  GA15     :  REAL     PADE APPROXIMANTS - NUMERATOR
+!  GB15     :  REAL     PADE APPROXIMANTS - DENOMINATOR
+!  OCT15    :  REAL     TEMPERATURE DEPENDENCE COEFFICIENTS FOR OZONE
+!  O1H15    :  REAL     K/DELTA 1ST OZONE SUB-INTERVAL
+!  O2H15    :  REAL     K/DELTA 2ND OZONE SUB-INTERVAL
+!  RPIALF015:  REAL     PI*ALFA0/DELTA OZONE SUB-INTERVALS
+!  RT115    :  REAL     ROOTS FOR GAUSSIAN QUADRATURE
+!  TINTP15  :  REAL     TEMPERATURE INTERVALS FOR TRANSMISSIVITIES
+!  TREF15   :  REAL     REF. TEMPERATURE IN PLANCK FUNCTION POLYNOMIAL
+!  TSTAND15 :  REAL     REFERENCE TEMPERATURE FOR TEMPERATURE DEPENDENCE
+!  TSTP15   :  REAL     TEMEPERATURE STEP BETWEEN TRANSMISSIVITIES
+!  WG115    :  REAL     WEIGHTS FOR GAUSSIAN QUADRATURE
+!  XP15     :  REAL     POLYNOMIAL COEFFICIENTS OF PLANCK FUNCTION
+!  RVGCO215 :  REAL     RESIDUAL PRESSURE FOR CO2 VOIGT LINE HALF-WIDTH
+!  RVGH2O15 :  REAL     RESIDUAL PRESSURE FOR H2O VOIGT LINE HALF-WIDTH
+!  RVGO315  :  REAL     RESIDUAL PRESSURE FOR O3  VOIGT LINE HALF-WIDTH
+!     ------------------------------------------------------------------
+END MODULE YOMLW15
Index: LMDZ5/trunk/libf/phylmd/rrtm/yommddh.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yommddh.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yommddh.F90	(revision 1989)
@@ -0,0 +1,232 @@
+MODULE YOMMDDH
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!     DIAGNOSTIQUES DOMAINES HORIZONTAUX
+!     ----------------------------------
+
+!     DIMENSIONS DES DIAGNOSTIQUES DDH
+!     ---------------------------------
+! === basic dimensions for reading NAMDDH ===
+INTEGER(KIND=JPIM), PARAMETER :: JPDHNOX=200
+INTEGER(KIND=JPIM), PARAMETER :: JPDHXPU=5
+
+!     JPDHNOX: Maximum number of user area
+!     JPDHXPU: Maximum number of user or mask memory plans
+
+INTEGER(KIND=JPIM) :: NDHKD
+INTEGER(KIND=JPIM) :: NDHNPU
+INTEGER(KIND=JPIM) :: NDHBPU(JPDHXPU)
+INTEGER(KIND=JPIM) :: NDHBPX
+INTEGER(KIND=JPIM) :: NDHNOM
+INTEGER(KIND=JPIM) :: NDHDDX
+INTEGER(KIND=JPIM) :: NDHIDH
+INTEGER(KIND=JPIM) :: NDHCS
+INTEGER(KIND=JPIM) :: NDHCV
+INTEGER(KIND=JPIM) :: NDHCVSU
+INTEGER(KIND=JPIM) :: NDHCSSU
+INTEGER(KIND=JPIM) :: NDHCVSUN
+INTEGER(KIND=JPIM) :: NDHCVSUL
+!     NDHKD : NOMBRE DE BANDES DE LATITUDES
+!     NDHNPU : NOMBRE DE MASQUES UTILISES NDHNPU .LE. JPDHXPU
+!     NDHBPU(JPDHXPU) : NOMBRE DE DOMAINES CONTENU DANS CHAQUE MASQUE
+!     NDHBPX : NOMBRE DE DOMAINE MAXIMAL PAR MASQUE
+!                                         NDHBPX = MAX( NDHBPU )
+!     NDHNOM : NOMBRE TOTALE DE DOMAINES LIMITES EN NOMENCLATURE
+!                                         NDHNOM .LE. JPDHNOX
+!     NDHDDX : NOMBRE MAXIMAL DE DOMAINES INTERNES POSSIBLES
+!     NDHIDH : NOMBRE DE DOMAINES INTERNES ( OR DOMAINE 0 EVENTUEL )
+!              INITIALISE PAR CALCUL DANS SUMDDH
+!     NDHCS  : NOMBRE TOTAL DE CHAMPS AU SOL
+!     NDHCV  : NOMBRE TOTAL DE CHAMPS EN PROFILS VERTICAUX
+!     NDHCVSU: DIMENSION TABLEAUX LOCAUX DE CHAMPS VERTICAUX
+!              NDHCVSU EST IMPAIR ET VAUT 1 AU MOINS
+!     NDHCSSU: DIMENSION TABLEAUX LOCAUX DE CHAMPS AU SOL
+
+!     INDICATEURS D ORGANISATION DE LA REPARTITION DES CHAMPS
+!     ------------------------------------------------------------------
+INTEGER(KIND=JPIM) :: NDHVV
+INTEGER(KIND=JPIM) :: NDHFVD
+INTEGER(KIND=JPIM) :: NDHFVP
+INTEGER(KIND=JPIM) :: NDHVS
+INTEGER(KIND=JPIM) :: NDHFSD
+INTEGER(KIND=JPIM) :: NDHFSP
+INTEGER(KIND=JPIM) :: NDHFFS
+INTEGER(KIND=JPIM) :: NDHVFS
+
+INTEGER(KIND=JPIM) :: NDHVTLS
+INTEGER(KIND=JPIM) :: NDHFTLS
+INTEGER(KIND=JPIM) :: NDHVTSS
+INTEGER(KIND=JPIM) :: NDHFTSS
+INTEGER(KIND=JPIM) :: NDHVTTS
+INTEGER(KIND=JPIM) :: NDHFTTS
+INTEGER(KIND=JPIM) :: NDHVTIS
+INTEGER(KIND=JPIM) :: NDHFTIS
+INTEGER(KIND=JPIM) :: NDHVSSS
+INTEGER(KIND=JPIM) :: NDHFSSS
+INTEGER(KIND=JPIM) :: NDHVIIS
+INTEGER(KIND=JPIM) :: NDHFIIS
+INTEGER(KIND=JPIM) :: NDHVWLS
+INTEGER(KIND=JPIM) :: NDHFWLS
+
+INTEGER(KIND=JPIM) :: NDHTHK
+INTEGER(KIND=JPIM) :: NDHVHK
+INTEGER(KIND=JPIM) :: NDHFHKD
+INTEGER(KIND=JPIM) :: NDHFHKP
+INTEGER(KIND=JPIM) :: NDHTMC
+INTEGER(KIND=JPIM) :: NDHVMC
+INTEGER(KIND=JPIM) :: NDHFMCD
+INTEGER(KIND=JPIM) :: NDHFMCP
+INTEGER(KIND=JPIM) :: NDHTEN
+INTEGER(KIND=JPIM) :: NDHVEN
+INTEGER(KIND=JPIM) :: NDHFEND
+INTEGER(KIND=JPIM) :: NDHFENP
+INTEGER(KIND=JPIM) :: NDHAVD
+INTEGER(KIND=JPIM) :: NDHBVD
+INTEGER(KIND=JPIM) :: NDHAVP
+INTEGER(KIND=JPIM) :: NDHBVP
+INTEGER(KIND=JPIM) :: NDHAHKD
+INTEGER(KIND=JPIM) :: NDHBHKD
+INTEGER(KIND=JPIM) :: NDHAHKP
+INTEGER(KIND=JPIM) :: NDHBHKP
+INTEGER(KIND=JPIM) :: NDHAMCD
+INTEGER(KIND=JPIM) :: NDHBMCD
+INTEGER(KIND=JPIM) :: NDHAMCP
+INTEGER(KIND=JPIM) :: NDHBMCP
+INTEGER(KIND=JPIM) :: NDHAEND
+INTEGER(KIND=JPIM) :: NDHBEND
+INTEGER(KIND=JPIM) :: NDHAENP
+INTEGER(KIND=JPIM) :: NDHBENP
+
+!   * LES INDICATEURS PRECEDES DE * SONT DES NOMBRES ATTACHES
+!     AU CODE FORTRAN DE CALCUL SCIENTIFIQUE, ET NON DES
+!     PARAMETRES AJUSTABLES AUX CIRCONSTANCES
+
+!     NDHVV  : NOMBRE DE VARIABLES SUR LA VERTICALE
+!     NDHFVD : NOMBRE DE FLUX+TENDANCES DYNAMIQUES SUR LA VERTICALE
+!           DETAIL CI DESSOUS
+!     NDHFVP : NOMBRE DE FLUX+TENDANCES PHYSIQUES SUR LA VERTICALE
+!           DETAIL CI DESSOUS
+
+!   * NDHVS  : NOMBRE DE VARIABLES AU SOL
+!   * NDHFSD : NOMBRE DE FLUX DYNAMIQUES AU SOL
+!   * NDHFSP : NOMBRE DE FLUX PHYSIQUES AU SOL
+!   * NDHFFS : Number of free-style fluxes
+!   * NDHVFS : Number of free-style variables
+
+!   * NDHVTLS: Number of variables for individual tiles
+!   * NDHFTLS: Number of fluxes for individual tiles
+!   * NDHVTSS: Number of variables for snow energy budget
+!   * NDHFTSS: Number of fluxes for snow energy budget
+!   * NDHVTTS: Number of variables for soil energy budget
+!   * NDHFTTS: Number of fluxes for soil energy budget
+!   * NDHVTIS: Number of variables for sea ice energy budget
+!   * NDHFTIS: Number of fluxes for sea ice energy budget
+!   * NDHVSSS: Number of variables for snow water budget
+!   * NDHFSSS: Number of fluxes for snow water budget
+!   * NDHVIIS: Number of variables for interception layer water budget
+!   * NDHFIIS: Number of fluxes for interception layer water budget
+!   * NDHVWLS: Number of variables for soil water budget
+!   * NDHFWLS: Number of fluxes for soil water budget
+
+!     NDHTHK : NOMBRE TOTAL DE CHAMPS VERTICAUX SOUS LHDHKS
+!   * NDHVHK : NOMBRE DE VARIABLES SOUS LHDHKS
+!   * NDHFHKD: NOMBRE DE FLUX+TENDANCES DYNAMIQUES SOUS LHDHKS
+!   * NDHFHKP: NOMBRE DE FLUX+TENDANCES PHYSIQUES SOUS LHDHKS
+
+!     NDHTMC : NOMBRE TOTAL DE CHAMPS VERTICAUX SOUS LHDMCI
+!   * NDHVMC : NOMBRE DE VARIABLES SOUS LHDMCI
+!   * NDHFMCD: NOMBRE DE FLUX+TENDANCES DYNAMIQUES SOUS LHDMCI
+!   * NDHFMCP: NOMBRE DE FLUX+TENDANCES PHYSIQUES SOUS LHDMCI
+
+!     NDHTEN : NOMBRE TOTAL DE CHAMPS SOUS LHDENT
+!   * NDHVEN : NOMBRE DE VARIABLES SOUS LHDENT
+!   * NDHFEND: NOMBRE DE FLUX+TENDANCES DYNAMIQUES SOUS LHDENT
+!   * NDHFENP: NOMBRE DE FLUX+TENDANCES PHYSIQUES SOUS LHDENT
+
+!     NDHAVD : NOMBRE TOTAL DE TENDANCES DYNAMIQUES
+!     NDHBVD : NOMBRE TOTAL DE FLUX DYNAMIQUES
+!     NDHAVP : NOMBRE TOTAL DE FLUX PHYSIQUES
+!     NDHBVP : NOMBRE TOTAL DE TENDANCES PHYSIQUES
+!   * NDHAHKD : NOMBRE TOTAL DE TENDANCES DYNAMIQUES, OPTION LHDHKS
+!   * NDHBHKD : NOMBRE TOTAL DE FLUX DYNAMIQUES
+!   * NDHAHKP : NOMBRE TOTAL DE FLUX PHYSIQUES
+!   * NDHBHKP : NOMBRE TOTAL DE TENDANCES PHYSIQUES
+!   * NDHAMCD : NOMBRE TOTAL DE TENDANCES DYNAMIQUES, OPTION LHDMCI
+!   * NDHBMCD : NOMBRE TOTAL DE FLUX DYNAMIQUES
+!   * NDHAMCP : NOMBRE TOTAL DE FLUX PHYSIQUES
+!   * NDHBMCP : NOMBRE TOTAL DE TENDANCES PHYSIQUES
+!   * NDHAEND : NOMBRE TOTAL DE TENDANCES DYNAMIQUES, OPTION LHDENT
+!   * NDHBEND : NOMBRE TOTAL DE FLUX DYNAMIQUES
+!   * NDHAENP : NOMBRE TOTAL DE FLUX PHYSIQUES
+!   * NDHBENP : NOMBRE TOTAL DE TENDANCES PHYSIQUES
+
+!     IDENTIFICATION DES DOMAINES DE L UTILISATEUR
+!     ------------------------------------------------------------------
+
+INTEGER(KIND=JPIM) :: NDHZPR
+REAL(KIND=JPRB) :: FNODDH(11,JPDHNOX)
+REAL(KIND=JPRB) :: BDEDDH(10,JPDHNOX)
+REAL(KIND=JPRB) :: HDSFGL
+
+!     FNODDH : DESCRIPTEURS DES DOMAINES LIMITES UTILISATEUR ACCEPTES
+!           (1,-) : PLAN MEMOIRE (MASQUE)
+!           (2,-) : NUMERO D ORDRE DANS LE PLAN
+!          CES DEUX NOMBRES FORMENT LES COORDONNEES INTERNES DU DOMAINE
+!           (3,-) A (10,-) : COORDONNEES (EN GAL LON, SIN(LAT) EN RD)
+!                            SUIVANT LE TYPE (VOIR DOCUMENTATION)
+!           (11,-) : TYPE DE DOMAINE
+
+!     BDEDDH : DESCRIPTEUR BRUT LU SUR NAMELIST
+!              (CERTAINS DOMAINES PEUVENT AVOIR ETE REJETES)
+!           (1,-) : TYPE DE DOMAINE
+!           (2,-) : PLAN MEMOIRE
+!           (3,-) A (10,-) : COORDONNEES (EN GAL LON, LAT EN DEG)
+!                            SUIVANT LE TYPE (VOIR DOCUMENTATION)
+!     HDSFGL : VOIR CI DESSOUS
+!     NDHZPR : INDICE DE LA BANDE ZONALE EVENTUELLEMENT IMPRIMEE
+
+!     MASQUES DES DIAGNOSTIQUES DDH, POIDS POUR LES MOYENNES
+!     ------------------------------------------------------------------
+
+INTEGER(KIND=JPIM),ALLOCATABLE:: NDDHLA(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NDDHPU(:,:)
+
+INTEGER(KIND=JPIM),ALLOCATABLE:: NDDHI(:)
+!     -----
+INTEGER(KIND=JPIM),ALLOCATABLE:: NLRDDH(:,:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NURDDH(:,:,:)
+!     -----
+INTEGER(KIND=JPIM),ALLOCATABLE:: NLXDDH(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NUXDDH(:,:)
+!     -----
+REAL(KIND=JPRB),ALLOCATABLE:: HDSFLA(:)
+REAL(KIND=JPRB),ALLOCATABLE:: HDSFDU(:,:)
+REAL(KIND=JPRB),ALLOCATABLE:: HDSF(:)
+
+!     NDDHLA : MASQUE BANDES DE LATITUDES
+!     NDDHPU : MASQUES POUR LES DOMAINES LIMITES ET LES POINTS
+
+!     NDDHI : MASQUE DES DOMAINES INTERNES
+
+!     NLRDDH : DISTRIBUTION DE CHAQUE BANDE DE LATITUDE EN DOMAINES INTERNES
+!     NURDDH : DISTRIBUTION DE CHAQUE DOMAINE DE CHAQUE PLAN EN DOMAINES INTERNE
+
+!     NLXDDH : BORNE DE LECTURE DE NLRDDH POUR CHAQUE BANDE
+!     NUXDDH : BORNE DE LECTURE DE NURDDH POUR CHAQUE DOMAINE DE CHAQUE PLAN
+
+!     HDSFLA : POIDS DE CHAQUE BANDE DE LATITUDE
+!     HDSFDU : POIDS DE CHAQUE DOMAINE UTILISATEUR
+!     HDSFGL : POIDS POUR LES MOYENNES GLOBALES
+!     HDSF : POIDS DE CHAQUE POINT DE LA GRILLE PHYSIQUE
+
+!     POINTEURS
+
+! ---- DDH
+!     ------------------------------------------------------------------
+END MODULE YOMMDDH
Index: LMDZ5/trunk/libf/phylmd/rrtm/yommp.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yommp.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yommp.F90	(revision 1989)
@@ -0,0 +1,468 @@
+MODULE YOMMP
+
+USE PARKIND1  ,ONLY : JPIM
+
+IMPLICIT NONE
+
+SAVE
+
+! ----------------------------------------------------------------------
+!*    variables describing distributed memory parallelization
+
+! ---------------------------------------
+
+!  mp_type     :  1=blocked   (MPI_SEND/RECV)
+!              :  2=buffered  (MPI_BSEND/MPI_BRECV)
+!              :  3=immediate (MPI_ISEND/MPI_IRECV)
+!  mbx_size    :  user-provided mailbox size
+
+!  myproc      :  logical processor id (is in the range 1 to nproc)
+!  myseta      :  own processor set a (is in the range 1 to nprgpns)
+!  mysetb      :  own processor set b (is in the range 1 to nprgpew)
+!  my_region_ns:  own processor set a (is in the range 1 to n_regions_ns)
+!  my_region_ew:  own processor set b (is in the range 1 to n_regions_ew)
+!  mysetw      :  own processor set a in wave space (1..nprtrw)   
+!  mysetv      :  own processor set b in wave space (1..nprtrv)    
+!  mysetm      :  own processor set a in spectral space (1..nprtrm)    
+!  mysetn      :  own processor set b in spectral space (1..nprtrn)    
+!  mysetaf     :  own processor set a in Fourier space (is in the range
+!                   1 to nprocc)
+!  ngpset2pe   :  grid point space processor mapping array (n_regions_ns,n_regions_ew)
+!  nslpad      :  number of pad words initialised to a huge number at either
+!                 of side of the sl halo, used to trap halo problems.
+!                 The default is 0. 
+!  nintype     :  type in input processing to be performed
+!              :  1=pbio
+!              :  2=mpi-io (future)
+!  nouttype    :  type of output (post) processing to be performed
+!              :  1=pbio
+!              :  2=output to FDB
+!              :  3=shared blocking MPI-I/O
+!              :  4=shared blocking collective MPI-I/O
+!              :  5=shared non-blocking MPI_I/O
+!              :  6=shared non-blocking collective MPI_I/O
+!  nstrin      :  number of processors required to perform input processing
+!  nstrout     :  number of processors required to perform output processing
+!  ngathout    :  to be described
+!  nwrtout     :  to be described
+!  nblkout     :  to be described
+!  nfldin      :  number of input  fields to be buffered during distribution
+!  nfldout     :  number of output fields to be buffered during gathering
+!  nprcids(nproc) : array containing the process ids. It is the mapping
+!                 between the process numbering in the application
+!                 (from 1 to NPROC) and the numbering used by the
+!                 underlying communication library.
+
+!  lockio      :  io to be done in locked regions (.true.)
+
+!  lsplit      :  true - latitudes are shared between a-sets
+!                 false - a latitude belongs to only one a-set
+!  leq_regions :  true - use new eq_regions partitioning
+!                 false - use old NPRGPNS x NPRGPEW partitioning
+!  lsplitout   :  output data provided in sequential files (.true.) or
+!                 in directories (.false.)
+!  limp        :  true: immediate message passing in transposition routines
+!  limp_noolap :  true: isend/irecv with no overlap of message passing and 
+!                       packing of buffers
+
+INTEGER(KIND=JPIM),ALLOCATABLE:: NPRCIDS(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NGPSET2PE(:,:)
+LOGICAL :: LSPLIT
+LOGICAL :: LEQ_REGIONS
+LOGICAL :: LSPLITOUT
+LOGICAL :: LOCKIO
+LOGICAL :: LIMP
+LOGICAL :: LIMP_NOOLAP
+
+INTEGER(KIND=JPIM) :: MP_TYPE
+INTEGER(KIND=JPIM) :: MBX_SIZE
+INTEGER(KIND=JPIM) :: MYPROC
+INTEGER(KIND=JPIM) :: MYSETA
+INTEGER(KIND=JPIM) :: MYSETB
+INTEGER(KIND=JPIM) :: MYSETW
+INTEGER(KIND=JPIM) :: MYSETV
+INTEGER(KIND=JPIM) :: MYSETM
+INTEGER(KIND=JPIM) :: MYSETN
+INTEGER(KIND=JPIM) :: MY_REGION_NS
+INTEGER(KIND=JPIM) :: MY_REGION_EW
+INTEGER(KIND=JPIM) :: NSTRIN
+INTEGER(KIND=JPIM) :: NSTROUT
+INTEGER(KIND=JPIM) :: NFLDIN
+INTEGER(KIND=JPIM) :: NFLDOUT
+INTEGER(KIND=JPIM) :: NSLPAD
+INTEGER(KIND=JPIM) :: NINTYPE
+INTEGER(KIND=JPIM) :: NOUTTYPE
+INTEGER(KIND=JPIM) :: NGATHOUT
+INTEGER(KIND=JPIM) :: NWRTOUT
+INTEGER(KIND=JPIM) :: NBLKOUT
+
+! ----------------------------------------------------------------------
+
+!*    common block describing the partitioning of data
+
+! ----------------------------------------------------
+
+!  nprocm(0:ncmax) :  gives process which is responsible for Legendre
+!             transforms, nmi, and spectral space calculations for a
+!             certain wave number m
+!  numprocfp(nfprgpg) : gives process which is responsible for FULL-POS
+!             horizontal interpolation point. This is only used in
+!             FULL-POS.
+!  numpp(n_regions_ns) : the number of wave numbers each a-set is responsible
+!             for. As aspecial case NUMP = NUMPP(MYSETA).
+!  numxpp(n_regions_ns) : Similar to NUMPP() but for NXMAX.
+!  nallms(0:max(nsmax,nmsmax)) :  wave numbers for all a-set concate-
+!             nated together to give all wave numbers in a-set order.
+!             Used when global spectral norms have to be gathered.
+!  nptrms(n_regions_ns)  :  pointer to the first wave number of a given a-set
+!             in nallms array.
+!  mylats(1:ndgenl) if LMESSP else mylats(ndgsag:ndgeng) : mapping
+!             between physical latitude number and local latitude number
+!             in grid point space on this process. This is identical
+!             for all processes within an a-set
+!  nptrls(n_regions_ns) : pointer to first global latitude of each a-set
+!             for which it performs the Fourier calculations
+!  nptrlsf(n_regions_ns) : pointer to first global latitude of each a-set
+!             for which it performs the Fourier calculations
+!  nfrstlat(n_regions_ns) : first lat of each a-set in grid-point space
+!  nfrstloff: offset for first lat of own a-set in grid-point space,
+!             i.e. nfrstloff=nfrstlat(my_region_ns)-1
+!  nlstlat(n_regions_ns) : last lat of each a-set in grid-point space
+!  nptrfrstlat(n_regions_ns) : pointer to the first latitude of each a-set in
+!             NSTA and NONL arrays
+!  nptrlstlat(n_regions_ns) : pointer to the last latitude of each a-set in
+!             NSTA and NONL arrays
+!  nptrfloff    : offset for pointer to the first latitude of own a-set
+!               NSTA and NONL arrays, i.e. nptrfrstlatf(my_region_ns)-1
+!  nptrlat      : pointer to start of latitude in grid-point space
+!  lsplitlat(ndglg) : true if latitude is split in grid point space
+!              over two a-sets
+!  myfrstactlat : first actual lat on this PE in grid-point space,
+!                 it is nfrstlat(my_region_ns)
+!  mylstactlat  : last actual lat on this PE in grid-point space,
+!                 it is nlstlat(my_region_ns)
+! ------------------------------------------------------------------
+!  nptrsv(nprtrw+1) :  pointer to first spectral wave column to be
+!             handled by each b-set. Used for semi-implicit calculations
+!             and Jb vertical transforms, and only really if nprtrv>1.
+!  nptrcv(nprtrv+1) :  As nptrsv but for ncmax arrays
+!  nptrtv(nprtrv+1) :  As nptrsv but for ntmax arrays
+!  nptrsvf(nprtrv+1) :  As nptrsv but for the case where full m-columns
+!             have to be treated by one processor for the vertical
+!             spectral calculations. This is the case if implicit
+!             treatment of Coriolis terms is used and in other cases.
+!  nptrmf(nprtrv+1)  :  Distribution of m-columns among b-sets used for
+!             the full m-column cases where nptrsvf() is used.
+!  nspstaf(0:nsmax) : pointer to where each m-column starts (used for
+!             the full m-column cases where nptrsvf() is used.
+!  numll(nprtrv+1) :  distribution of levels among b-sets for Legendre
+!             transforms, FFT and horizontal diffusion.
+!             To simplify coding numll(nprtrv+1) is defined to zero.
+!  numvmo(nprtrv) :  number of vertical normal modes on each b-set
+!  numvmojb(nprtrv) : number of vertical normal modes on each b-set for
+!             Jb computations
+!  nptrll(nprtrv+1) :  defines the first level treated on each b-set
+!             To simplify coding nptrll(nprtrv+1)=nptrll(nprtrv)
+!  npsp    :  =1 if surface pressure is handled by this processor for
+!             the Legendre Trasforms and FFT calculations. npsp is
+!             the same for all processors within a b-set.
+!  npsurf(nprtrv)  :  contains the npsp-values for each b-set
+!  nbsetlev(nflevg) :  the b-set on which a level belongs. Please use
+!              global indexing.
+!  nbsetsp :  the b-set on which the surface pressure belongs.
+!  mylevs(nflevl) :  mapping between local and global numbering for the
+!             levels handled by this process.
+!  nvmodist(nvmodmxpp,nprtrv) : normal modes mapped to the different
+!             b-sets. The same distribution strategy is used for NMI and
+!             Jb calculations. The number of modes is usually larger
+!             for Jb caluclations.
+!  nspec2v :  number of spectral columns treated by this process for
+!             semi-implicit calculations and other vertical transforms
+!  ncpec2v :  like nspec2v for NCMAX arrays
+!  ntpec2v :  like nspec2v for NTMAX arrays
+!  nspec2vf:  number of spectral columns treated by this process for
+!             semi-implicit calculations for the full m-column cases.
+!             See nptrsvf().
+!  nsta(ndgsag:ndgeng+n_regions_ns-1,n_regions_ew) :  Position of first grid column
+!             for the latitudes on a processor. The information is
+!             available for all processors. The b-sets are distinguished
+!             by the last dimension of nsta(). The latitude band for
+!             each a-set is addressed by nptrfrstlat(jaset),
+!             nptrlstlat(jaset), and nptrfloff=nptrfrstlat(my_region_ns) on
+!             this processors a-set. Each split latitude has two entries
+!             in nsta(,:) which necessitates the rather complex
+!             addressing of nsta(,:) and the overdimensioning of nsta by
+!             n_regions_ns.
+!  nonl(ndgsag:ndgeng+n_regions_ns-1,n_regions_ew)  :  number of grid columns for
+!             the latitudes on a processor. Similar to nsta() in data
+!             structure.
+!             belong to it in fourier space. Available for all n_regions_ew
+!             processors within this processors a-set.
+!  napsets :  number of apple sets at the poles. Default is zero.
+!  nglobalindex : mapping of local grid points to global grid points
+!               : used for debugging
+!  nglobalproc  : global data structure containing proc distribution
+!                 an ngptotg array that maps owning proc
+!  nlocalindex  : global data structure containing local index
+!                 an ngptotg array that maps the local index into a
+!                 ngptot array for the owning proc
+
+!  -- SLCSET and SLRSET variables (based on NSLWIDE).
+!  naslb1  :  local inner dimension of semi-Lagrangian buffer. It is
+!             the number of columns in the core+halo region on this
+!             processor.
+!  nslprocs   : semi-Lagrangian communication :  number of processors
+!             this processor needs to communicate with.
+!  nslrpt     : the number of columns received from other PE's when
+!             computing the halo for interpolations.
+!  nslspt     : the number of columns sent to other PE's when
+!             computing the halo for interpolations.
+!  nslmpbufsz : size of semi-Lagrangian communication buffer in
+!             slcomm.F. It is sized so the total requirement is kept
+!             below ncombflen.
+!  nslsta(ndgsal-nslwide:ndgenl+nslwide)  :  Start position in semi-
+!             Lagrangian buffer ZSLBUF1 of grid columns for each local
+!             and halo latitude.
+!  nslonl(ndgsal-nslwide:ndgenl+nslwide)  :  number of grid columns on
+!             each local and halo latitude in the semi-Lagrangian
+!             buffer ZSLBUF1. Only used in dm version.
+!  nsloff(ndgsal-nslwide:ndgenl+nslwide)  :  offset to the start of each
+!             local and halo latitude in the semi-Lagrangian buffer
+!             ZSLBUF1. Only used in dm version.
+!  nslext(1-ndlon:ndlon+ndlon,1-nslwide:ndgenl+nslwide) in dm version
+!  and nslext(nslext(0:ndlon+2,ndgsag:ndgeng) in sm version : pointer
+!             that makes sure addressing of points in the east-west
+!             extension zone is correct. It also handles the half
+!             latitude shift of extension latitudes at the poles.
+!             In the sm version this array is just the identity, but
+!             used in order to keep sm and dm code in common.
+!  nslsendpos: the addresses within the semi-Lagrangian buffer of point sent 
+!            from this PE.
+!  nslrecvpos: the addresses within the semi-Lagrangian buffer of point 
+!            received on this PE.
+!  nsendptr  : pointer to the first point for each of the PE's that has to 
+!            receive semi-Lagrangian halo-data from this. 
+!            Used for addressing nslsendpos().
+!  nrecvptr  : pointer to the first point for each of the PE's that are sending
+!            semi-Lagrangian halo-data to this PE. 
+!            Used for addressing nslrecvpos().
+!  nsendnum(nproc+1) : Pointing at the first semi-Lagrangian
+!            halo data entry this processor is sending to each of the
+!            other processors. The number of columns sent is equal to
+!            nsendnum(irecver+1)-nsendnum(irecver), and might be zero.
+!  nrecvnum(nproc+1) : Pointing at the first semi-Lagrangian
+!            halo data entry this processor is receiving from each of
+!            the other processors. The number of columns received is
+!            equal to nrecvnum(isender+1)-nrecvnum(isender), it might
+!            be zero.
+!  nslcore(ngptot) :  Pointer to this processors core region points
+!            within the semi-Lagrangian buffer
+!  nslcomm(nslprocs)  : semi-Lagrangian communication : list of the
+!             processors this proceesor has to communicate with.
+
+!  -- SUFPCSET and SUFPRSET variables (based on NFPWIDE).
+!  nafpb1      : FULL-POS version of naslb1
+!  nfpprocs    : FULL-POS version of nslprocs
+!  nfpmpbufsz  : FULL-POS version of nslmpbufsz
+!  nfprpt      : FULL-POS version of nslrpt
+!  nfpspt      : FULL-POS version of nslspt
+!  nfpsta      : FULL-POS version of nslsta
+!  nfponl      : FULL-POS version of nslonl
+!  nfpoff      : FULL-POS version of nsloff
+!  nfpext      : FULL-POS version of nslext
+!  nfpsendpos  : FULL-POS version of nslsendpos
+!  nfprecvpos  : FULL-POS version of nslrecvpos
+!  nfpsendptr  : FULL-POS version of nsendptr
+!  nfprecvptr  : FULL-POS version of nrecvptr
+!  nfpcore     : FULL-POS version of nslcore
+!  nfpcomm     : FULL-POS version of nslcomm
+
+!   -- SLCSET variables (based on NOBWIDE)
+!  nobsta      : observation version of nslsta
+!  nobonl      : observation version of nslonl
+!  noboff      : observation version of nsloff
+ 
+!  -- SLCSET variables (based on NRIWIDE - model grid).
+!  narib1      : Radiation input version of naslb1
+!  nriprocs    : Radiation input version of nslprocs
+!  nrimpbufsz  : Radiation input version of nslmpbufsz
+!  nrirpt      : Radiation input version of nslrpt
+!  nrispt      : Radiation input version of nslspt
+!  nrista      : Radiation input version of nslsta
+!  nrionl      : Radiation input version of nslonl
+!  nrioff      : Radiation input version of nsloff
+!  nriext      : Radiation input version of nslext
+!  nrisendpos  : Radiation input version of nslsendpos
+!  nrirecvpos  : Radiation input version of nslrecvpos
+!  nrisendptr  : Radiation input version of nsendptr
+!  nrirecvptr  : Radiation input version of nrecvptr
+!  nricore     : Radiation input version of nslcore
+!  nricomm     : Radiation input version of nslcomm
+
+!  -- SLCSET variables (based on NROWIDE - radiation grid).
+!  narob1      : Radiation input version of naslb1
+!  nroprocs    : Radiation input version of nslprocs
+!  nrompbufsz  : Radiation input version of nslmpbufsz
+!  nrorpt      : Radiation input version of nslrpt
+!  nrospt      : Radiation input version of nslspt
+!  nrosta      : Radiation input version of nslsta
+!  nroonl      : Radiation input version of nslonl
+!  nrooff      : Radiation input version of nsloff
+!  nroext      : Radiation input version of nslext
+!  nrosendpos  : Radiation input version of nslsendpos
+!  nrorecvpos  : Radiation input version of nslrecvpos
+!  nrosendptr  : Radiation input version of nsendptr
+!  nrorecvptr  : Radiation input version of nrecvptr
+!  nrocore     : Radiation input version of nslcore
+!  nrocomm     : Radiation input version of nslcomm
+
+! ------------------------------------------------------------------
+
+!  ncombflen : Size of communication buffer. This is the maximum per
+!              processor buffer space (in words) that the IFS should use
+!              for one or more sends before receives are issued from
+!              destination processors.
+
+INTEGER(KIND=JPIM),ALLOCATABLE:: NUMPP(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NUMXPP(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NPROCM(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NUMPROCFP(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NPTRMS(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NALLMS(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NPTRLS(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NPTRSV(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NPTRCV(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NPTRTV(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NPTRSVF(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NPTRMF(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NSPSTAF(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NUMLL(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NPTRLL(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NUMVMO(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NUMVMOJB(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: MYLEVS(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NPSURF(:)
+INTEGER(KIND=JPIM),ALLOCATABLE,TARGET :: NSTA(:,:)
+INTEGER(KIND=JPIM),ALLOCATABLE,TARGET :: NONL(:,:)
+INTEGER(KIND=JPIM),ALLOCATABLE,TARGET :: NPTRFRSTLAT(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NPTRLSTLAT(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NPTRLAT(:)
+INTEGER(KIND=JPIM),ALLOCATABLE,TARGET :: NFRSTLAT(:)
+INTEGER(KIND=JPIM),ALLOCATABLE,TARGET :: NLSTLAT(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NBSETLEV(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NGLOBALINDEX(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NGLOBALPROC(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NLOCALINDEX(:)
+
+LOGICAL,ALLOCATABLE:: LSPLITLAT(:)
+
+INTEGER(KIND=JPIM),ALLOCATABLE:: MYLATS(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NVMODIST(:,:)
+
+!     -- SLCSET and SLRSET variables (based on NSLWIDE).
+
+INTEGER(KIND=JPIM),ALLOCATABLE:: NSLSTA(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NSLONL(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NSLOFF(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NSLEXT(:,:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NSLSENDPOS(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NSLRECVPOS(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NSENDPTR(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NRECVPTR(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NSLCORE(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NSLCOMM(:)
+
+!     -- SUFPCSET and SUFPRSET variables (based on NFPWIDE).
+
+INTEGER(KIND=JPIM),ALLOCATABLE:: NFPSTA(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NFPONL(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NFPOFF(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NFPEXT(:,:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NFPSENDPOS(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NFPRECVPOS(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NFPSENDPTR(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NFPRECVPTR(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NFPCORE(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NFPCOMM(:)
+
+!     -- SLCSET variables (based on NOBWIDE)
+
+INTEGER(KIND=JPIM),ALLOCATABLE:: NOBSTA(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NOBONL(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NOBOFF(:)
+
+!     -- SLCSET variables (based on NRIWIDE).
+
+INTEGER(KIND=JPIM),ALLOCATABLE:: NRISTA(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NRIONL(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NRIOFF(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NRIEXT(:,:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NRISENDPOS(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NRIRECVPOS(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NRISENDPTR(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NRIRECVPTR(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NRICORE(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NRICOMM(:)
+
+!     -- SLCSET variables (based on NROWIDE).
+
+INTEGER(KIND=JPIM),ALLOCATABLE:: NROSTA(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NROONL(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NROOFF(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NROEXT(:,:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NROSENDPOS(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NRORECVPOS(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NROSENDPTR(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NRORECVPTR(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NROCORE(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NROCOMM(:)
+
+INTEGER(KIND=JPIM) :: NUMXP
+INTEGER(KIND=JPIM) :: NPSP
+INTEGER(KIND=JPIM) :: NSPEC2V
+INTEGER(KIND=JPIM) :: NCPEC2V
+INTEGER(KIND=JPIM) :: NTPEC2V
+INTEGER(KIND=JPIM) :: NSPEC2VF
+INTEGER(KIND=JPIM) :: NBSETSP
+INTEGER(KIND=JPIM) :: NFRSTLOFF
+INTEGER(KIND=JPIM) :: MYFRSTACTLAT
+INTEGER(KIND=JPIM) :: MYLSTACTLAT
+INTEGER(KIND=JPIM) :: NAPSETS
+INTEGER(KIND=JPIM) :: NPTRFLOFF
+INTEGER(KIND=JPIM) :: NCOMBFLEN
+
+!     -- scalar integers depending on NSLWIDE.
+
+INTEGER(KIND=JPIM) :: NASLB1
+INTEGER(KIND=JPIM) :: NSLPROCS
+INTEGER(KIND=JPIM) :: NSLMPBUFSZ
+INTEGER(KIND=JPIM) :: NSLRPT
+INTEGER(KIND=JPIM) :: NSLSPT
+
+!     -- scalar integers depending on NFPWIDE.
+
+INTEGER(KIND=JPIM) :: NAFPB1
+INTEGER(KIND=JPIM) :: NFPPROCS
+INTEGER(KIND=JPIM) :: NFPMPBUFSZ
+INTEGER(KIND=JPIM) :: NFPRPT
+INTEGER(KIND=JPIM) :: NFPSPT
+
+!     -- scalar integers depending on NRIWIDE.
+
+INTEGER(KIND=JPIM) :: NARIB1
+INTEGER(KIND=JPIM) :: NRIPROCS
+INTEGER(KIND=JPIM) :: NRIMPBUFSZ
+INTEGER(KIND=JPIM) :: NRIRPT
+INTEGER(KIND=JPIM) :: NRISPT
+
+!     -- scalar integers depending on NROWIDE.
+
+INTEGER(KIND=JPIM) :: NAROB1
+INTEGER(KIND=JPIM) :: NROPROCS
+INTEGER(KIND=JPIM) :: NROMPBUFSZ
+INTEGER(KIND=JPIM) :: NRORPT
+INTEGER(KIND=JPIM) :: NROSPT
+
+! ----------------------------------------------------------------------
+
+END MODULE YOMMP
Index: LMDZ5/trunk/libf/phylmd/rrtm/yomoml.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yomoml.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yomoml.F90	(revision 1989)
@@ -0,0 +1,202 @@
+MODULE YOMOML
+
+!-- the following system specific omp_lib-module is not always available (e.g. pgf90)
+!! use omp_lib
+
+USE PARKIND1  ,ONLY : JPIM, JPIB
+
+!**SS/18-Feb-2005
+!--Dr.Hook references removed, because these locks may also be
+!  called from within drhook.c itself !! 
+!--Also, there could be considerable & unjustified overhead
+!  when using Dr.Hook in such a low level
+
+!**SS/15-Dec-2005
+!--The size of lock-variables are now OMP_LOCK_KIND as of in OMP_LIB,
+!  and OMP_LOCK_KIND is aliased to OML_LOCK_KIND
+!  OMP_LOCK_KIND is usually 4 in 32-bit addressing mode
+!                           8 in 64-bit addressing mode
+!--M_OML_LOCK changed to M_EVENT and kept as 32-bit int
+!--OML_FUNCT changed to OML_TEST_EVENT
+!--M_LOCK initialized to -1
+!--M_EVENT initialized to 0
+!--Added intent(s)
+!--Support for omp_lib (but not always available)
+!--Locks can now also be set/unset OUTSIDE the parallel regions
+!--Added routine OML_TEST_LOCK (attempts to set lock, but if *un*successful, does NOT  block)
+!--Buffer-zone for M_LOCK; now a vector of 2 elements in case problems/inconsistencies with OMP_LOCK_KIND 4/8
+
+!**SS/22-Feb-2006
+!--Locking routines are doing nothing unless OMP_GET_MAX_THREADS() > 1
+!  This is to avoid unacceptable deadlocks/timeouts with signal handlers when
+!  the only thread receives signal while inside locked region
+!--Affected routines: OML_TEST_LOCK()  --> always receives .TRUE.
+!                     OML_SET_LOCK()   --> sets nothing
+!                     OML_UNSET_LOCK() --> unsets nothing
+!                     OML_INIT_LOCK()  --> inits nothing
+
+!**SS/11-Sep-2006
+!--Added OML_DEBUG feature
+
+IMPLICIT NONE
+
+SAVE
+
+PRIVATE
+
+LOGICAL :: OML_DEBUG = .FALSE.
+
+PUBLIC OML_WAIT_EVENT, OML_SET_EVENT, OML_INCR_EVENT, &
+   &   OML_MY_THREAD,  OML_MAX_THREADS , OML_OMP, &
+   &   OML_IN_PARALLEL, OML_TEST_EVENT, &
+   &   OML_UNSET_LOCK, OML_INIT_LOCK, OML_SET_LOCK, OML_DESTROY_LOCK, &
+   &   OML_LOCK_KIND, OML_TEST_LOCK, OML_DEBUG
+
+!-- The following should normally be 4 in 32-bit addressing mode
+!                                    8 in 64-bit addressing mode
+! Since system specific omp_lib-module is not always available (e.g. pgf90)
+! we hardcode OML_LOCK_KIND to JPIB (usually 8) for now
+!!INTEGER(KIND=JPIM), PARAMETER :: OML_LOCK_KIND = OMP_LOCK_KIND
+INTEGER(KIND=JPIM), PARAMETER :: OML_LOCK_KIND = JPIB
+
+!-- Note: Still JPIM !!
+INTEGER(KIND=JPIM) :: M_EVENT = 0
+
+!-- Note: OML_LOCK_KIND, not JPIM !!
+INTEGER(KIND=OML_LOCK_KIND) :: M_LOCK(2) = (/-1, -1/)
+
+CONTAINS
+
+FUNCTION OML_OMP()
+LOGICAL :: OML_OMP
+OML_OMP=.FALSE.
+!$ OML_OMP=.TRUE.
+END FUNCTION OML_OMP
+
+FUNCTION OML_IN_PARALLEL()
+LOGICAL :: OML_IN_PARALLEL
+!$ LOGICAL :: OMP_IN_PARALLEL
+!$ INTEGER(KIND=JPIM) OMP_GET_MAX_THREADS
+OML_IN_PARALLEL=.FALSE.
+!$ OML_IN_PARALLEL=((OMP_GET_MAX_THREADS() > 1).AND.OMP_IN_PARALLEL())
+END FUNCTION OML_IN_PARALLEL
+
+FUNCTION OML_TEST_LOCK(MYLOCK)
+INTEGER(KIND=OML_LOCK_KIND),intent(inout),optional :: MYLOCK
+LOGICAL :: OML_TEST_LOCK
+!$ LOGICAL :: OMP_TEST_LOCK
+!$ INTEGER(KIND=JPIM) OMP_GET_MAX_THREADS
+OML_TEST_LOCK = .TRUE.
+!$ IF(OMP_GET_MAX_THREADS() > 1) THEN
+!$   IF(PRESENT(MYLOCK))THEN
+!$     OML_TEST_LOCK = OMP_TEST_LOCK(MYLOCK)
+!$   ELSE
+!$     OML_TEST_LOCK = OMP_TEST_LOCK(M_LOCK(1))
+!$   ENDIF
+!$ ENDIF
+END FUNCTION OML_TEST_LOCK
+
+SUBROUTINE OML_UNSET_LOCK(MYLOCK)
+INTEGER(KIND=OML_LOCK_KIND),intent(inout),optional :: MYLOCK
+!$ INTEGER(KIND=JPIM) OMP_GET_MAX_THREADS
+!$ IF(OMP_GET_MAX_THREADS() > 1) THEN
+!$   IF(PRESENT(MYLOCK))THEN
+!$     CALL OMP_UNSET_LOCK(MYLOCK)
+!$   ELSE
+!$     CALL OMP_UNSET_LOCK(M_LOCK(1))
+!$   ENDIF
+!$ ENDIF
+END SUBROUTINE OML_UNSET_LOCK
+
+SUBROUTINE OML_SET_LOCK(MYLOCK)
+INTEGER(KIND=OML_LOCK_KIND),intent(inout),optional :: MYLOCK
+!$ INTEGER(KIND=JPIM) OMP_GET_MAX_THREADS
+!$ IF(OMP_GET_MAX_THREADS() > 1) THEN
+!$   IF(PRESENT(MYLOCK))THEN
+!$     CALL OMP_SET_LOCK(MYLOCK)
+!$   ELSE
+!$     CALL OMP_SET_LOCK(M_LOCK(1))
+!$   ENDIF
+!$ ENDIF
+END SUBROUTINE OML_SET_LOCK
+
+SUBROUTINE OML_INIT_LOCK(MYLOCK)
+INTEGER(KIND=OML_LOCK_KIND),intent(inout),optional :: MYLOCK
+!$ INTEGER(KIND=JPIM) OMP_GET_MAX_THREADS
+!$ IF(OMP_GET_MAX_THREADS() > 1) THEN
+!$   IF(PRESENT(MYLOCK))THEN
+!$     CALL OMP_INIT_LOCK(MYLOCK)
+!$   ELSE
+!$     CALL OMP_INIT_LOCK(M_LOCK(1))
+!$   ENDIF
+!$ ENDIF
+END SUBROUTINE OML_INIT_LOCK
+
+SUBROUTINE OML_DESTROY_LOCK(MYLOCK)
+INTEGER(KIND=OML_LOCK_KIND),intent(inout),optional :: MYLOCK
+!$ IF(PRESENT(MYLOCK))THEN
+!$   CALL OMP_DESTROY_LOCK(MYLOCK)
+!$ ELSE
+!$   CALL OMP_DESTROY_LOCK(M_LOCK(1))
+!$ ENDIF
+END SUBROUTINE OML_DESTROY_LOCK
+
+FUNCTION OML_TEST_EVENT(K,MYEVENT)
+LOGICAL :: OML_TEST_EVENT
+INTEGER(KIND=JPIM),intent(in) :: K,MYEVENT
+IF(K.EQ.MYEVENT) THEN
+ OML_TEST_EVENT =.TRUE.
+ELSE
+ OML_TEST_EVENT=.FALSE.
+ENDIF
+END FUNCTION OML_TEST_EVENT
+
+SUBROUTINE OML_WAIT_EVENT(K,MYEVENT)
+INTEGER(KIND=JPIM),intent(in) :: K
+INTEGER(KIND=JPIM),intent(in),OPTIONAL :: MYEVENT
+IF(PRESENT(MYEVENT))THEN
+  DO
+    IF(OML_TEST_EVENT(K,MYEVENT)) EXIT
+  ENDDO
+ELSE
+  DO
+    IF(OML_TEST_EVENT(K,M_EVENT)) EXIT
+  ENDDO
+ENDIF
+END SUBROUTINE OML_WAIT_EVENT
+
+SUBROUTINE OML_SET_EVENT(K,MYEVENT)
+INTEGER(KIND=JPIM),intent(in) :: K
+INTEGER(KIND=JPIM),intent(out),OPTIONAL :: MYEVENT
+IF(PRESENT(MYEVENT))THEN
+  MYEVENT=K
+ELSE
+  M_EVENT=K
+ENDIF
+END SUBROUTINE OML_SET_EVENT
+
+SUBROUTINE OML_INCR_EVENT(K,MYEVENT)
+INTEGER(KIND=JPIM) :: K
+INTEGER(KIND=JPIM),intent(inout),OPTIONAL :: MYEVENT
+IF(PRESENT(MYEVENT))THEN
+  MYEVENT=MYEVENT+K
+ELSE
+  M_EVENT=M_EVENT+K
+ENDIF
+END SUBROUTINE OML_INCR_EVENT
+
+FUNCTION OML_MY_THREAD()
+INTEGER(KIND=JPIM) :: OML_MY_THREAD
+!$ INTEGER(KIND=JPIM) OMP_GET_THREAD_NUM
+OML_MY_THREAD = 1
+!$ OML_MY_THREAD = OMP_GET_THREAD_NUM() + 1
+END FUNCTION OML_MY_THREAD
+
+FUNCTION OML_MAX_THREADS()
+INTEGER(KIND=JPIM) :: OML_MAX_THREADS
+!$ INTEGER(KIND=JPIM) OMP_GET_MAX_THREADS
+OML_MAX_THREADS = 1
+!$ OML_MAX_THREADS = OMP_GET_MAX_THREADS()
+END FUNCTION OML_MAX_THREADS
+
+END MODULE YOMOML
Index: LMDZ5/trunk/libf/phylmd/rrtm/yomphy.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yomphy.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yomphy.F90	(revision 1989)
@@ -0,0 +1,414 @@
+MODULE YOMPHY
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!*
+!     ------------------------------------------------------------------
+
+!     VARIABLES DE CONTROLE DE LA PHYSIQUE :
+
+! * GROUPE DES CLES GENERALES.
+!        LMPHYS  : CLE GENERALE POUR LES PARAMETRISATIONS METEO-FRANCE.
+!                : GLOBAL SWITCH FOR METEO-FRANCE PACKAGE.
+!        LREASUR : TRUE, ON LIT LES CHAMPS DE SURFACE.
+!                : TRUE, SURFACE FIELDS ARE READ.
+
+! * GROUPE DES CLES NE COMMANDANT PAS L'APPEL AUX ROUTINES AM-----.
+!        LCAPE   : CLE ACTIVANT LA FERMETURE EN CAPE SI LCVRA.
+!                : KEY ACTIVATING THE CAPE CLOSURE IF LCVRA.
+!        LCONDWT : CLE ACTIVANT l'EAU LIQUIDE.
+!                : KEY ACTIVATING LIQUID WATER.
+!        LCVCAS  : CLE ACTIVANT LE CALCUL DES SEGMENTS CONVECTIFS ACTIFS.
+!                : KEY ACTIVATING CONVECTIVE ACTIVE SEGMENTS COMPUTATION.
+!        LSCMF   : CLE ACTIVANT LE CALCUL DE FRACTIONS MAILLE SIGNIFICATIVES  
+!                  KEY ACTIVATING SIGNIFICANT MESH FRACTIONS.
+!        LCVDD   : CLE ACTIVANT LE CALCUL DES DOWNDRAFTS.
+!                : KEY FOR DOWNDRAFT COMPUTATIONS.
+!        LCVLIS  : LORS DU TRAITEMENT PAR LA CONVECTION
+!                  DES FLUX DIFFUSIFS TURBULENTS SECS,
+!                  CLE ACTIVANT LE TRAITEMENT CONSISTANT DE S ET Q.
+!                : KEY TO COMPUTE CONSISTENTLY FOR S AND Q
+!                  CONVECTION AND DRY TURBULENT PROCESSES INTERACTION.
+!        LCVPGY  : CLE ACTIVANT LES CALCULS DE CONVECTION PROFONDE GY.
+!                : KEY ACTIVATING GY CONVECTION CALCULATIONS.
+!        LCVPP   : CLE ACTIVANT LES CALCULS DE CONVECTION PEU PROFONDE.
+!                : KEY ACTIVATING SHALLOW-CONVECTION CALCULATIONS.
+!        LCVPPKF : KEY ACTIVATING THE KFB SCHEME (SHALLOW-CONVECTION).
+!       LDIFCONS : CLE ACTIVANT LA DIFFUSION DES VARIABLES CONSERVATIVES.
+!                : KEY ACTIVATING VERTICAL DIFFUSION ON CONSERVATIVE VARIABLES.
+!        LECT    : CLE ACTIVANT LA DIFFUSION ECT.
+!                : KEY ACTIVATING TKE DIFFUSION.
+!        LPTKE   : CLE ACTIVANT LA DIFFUSION ECT PSEUDO PROGNOSTIQUE.
+!                : KEY ACTIVATING PSEUDO PROGNOSTIC TKE DIFFUSION.
+!        LPBLE   : CLE POUR ENTRAINEMENT AU SOMMET DE COUCHE LIMITE (IF LECT).
+!                  KEY ACTIVATING THE PBL TOP-ENTRAINMENT RATE.
+!        LFPCOR  : CLE POUR UTILISATION DU FLUX DE PRECIP. CONVECTIF LISSE POUR !                  LA NEBUL.
+!                : KEY FOR THE USE OF A SMOOTH FLUX OF CONVECTIVE RAIN FOR THE 
+!                  CLOUD COVER.
+!        LHUNEG  : CLE POUR LA CORRECTION DES HUMIDITES NEGATIVES.
+!                : KEY FOR CORRECTION OF NEGATIVE HUMIDITIES.
+!        LNEBNXR : CLE ACTIVANT LE CALCUL DE NEBULOSITE XU/RANDALL.
+!                : KEY FOR USING XU/RANDALL CLOUDINESS FORMULATION.
+!        LHUCN   : CLE ACTIVANT LE NOUVEAU CALCUL D'HUMIDITE CRITIQUE.
+!                : KEY FOR USING NEW FORMULATION OF CRITICAL HUMIDITY.
+!        LQXRTGH : CLE ACTIVANT LE CALCUL DE LA COURBE TANGENT HYPERBOLIQUE
+!                  DE RH DANS LE SCHEMA DE NEBULOSITE XU/RANDALL.
+!                : KEY FOR USING TANGENS HYPERBOLIC FUNCTION OF RH PROFILE
+!                  IN THE XU/RANDALL CLOUDINESS FORMULATION.
+!        LNEIGE  : CLE POUR LA PRISE EN COMPTE DU CYCLE CRYOSCOPIQUE.
+!                : KEY FOR THE CRYOSCOPIC CYCLE (PHYSICS AND THERMODS.).
+!        LRNUMX  : CLE ACTIVANT LE RECOUVREMENT NUAGEUX MAX. EN RAYONMT.
+!                : KEY FOR MAX. OVERLAP OF ADJACENT RADIATIVE CLOUDS.
+!        LCLSATUR: CLE ACTIVANT LA DEPENDANCE SUR LA SATURATION DE LA GLACE
+!                  ET L'EAU LIQUIDE DANS LE NUAGE.
+!                : KEY FOR DEPENDENCY ON IWC/LWC SATURATION.
+!        LVOIGT  : CLE ACTIVANT L'EFFET DE VOIGT DANS ACRANEB
+!                  KEY FOR VOIGT EFFECT IN ACRANEB.
+!        LVFULL  : CLE ACTIVANT LE CALCUL COMPLET D'EFFET VOIGT (PLUS CHER)
+!                  KEY FOR COMPREHENSIVE COMPUTATION OF VOIGT EFFECT
+!        LRRGUST : CLE ACTIVANT L'INFLUENCE DES "RAFALES HUMIDES" DANS LE
+!                : CALCUL DES COEFFICIENTS TURBULENTS.
+!                : KEY ACTIVATING "MOIST GUSTINESS" INFLUENCE IN TURBULENT 
+!                : COEFFICIENTS COMPUTATION.
+!        LSRCON  : CLE ACTIVANT LA SOUSTRACTION DES PRECIPITATIONS RESOLUES
+!                  DE LA CONVERGENCE D'HUMIDITE AVANT APPEL DE LA CONVECTION PROFONDE.
+!                : KEY TO SUBSTRACT GRID-SCALE PRECIPITATION FROM MOISTURE CONVERGENCE
+!                  BEFORE PASSING IT TO DEEP CONVECTION.
+!        LSRCONT : CLE ACTIVANT LA SOUSTRACTION DES PRECIPITATIONS RESOLUES
+!                  DE L'ENERGIE EN ENTREE DE LA CONVECTION PROFONDE.
+!                : KEY TO SUBSTRACT GRID-SCALE PRECIPITATION FROM THE ENERGY FLUXES
+!                  IN INPUT TO DEEP CONVECTION.
+!        LSLC    : CLE ACTIVANT LA CONVECTION EN PENTE
+!                : KEY FOR SLANTWISE CONVECTION
+!        LNOIAS  : CLE COUPANT LA CONVECTION POUR DE L INSTABILITE ABSOLUE SECHE.
+!                : STOP CONVECTION IN THE CASE OF DRY ABSOLUT INSTABILITY.
+!        L2PHYS  : CLE ACTIVANT LE DOUBLE APPEL A APLPAR.
+!                : KEY FOR 2 APLPAR CALLS.
+!        LRAYLU  : CLE D'APPEL DU RAYONNEMENT LUNAIRE.
+!                : KEY FOR CALLING THE MOON RADIATION.
+!                  (IN ACRANEB ).
+!        LREWS   : CLE D'APPEL DE L'OPTION ECHANGE AVEC LA SURFACE
+!                : KEY FOR CALLING THE ECHANGE WITH SURFACE OPTION 
+!                  (IN ACRANEB)
+!        LRPROX  : CLE D'APPEL DE L'OPTION D'ECHANGE INTER-NIVEAU APPROCHE
+
+!        LRMIX   : ACTIVATION DU CALCUL DE ZMIX (SEE JFG POUR PLUS DE PRECISION)
+!                  EPAISSEUR OPTIQUE QQ PART ENTRE MIN ET MAX (ZMIX=0 OU 1)
+!                  (POUR LES ECHANGES INTER-NIVEAUX)
+
+!        LRSTAB  :  STABILISATION
+
+!        LRAUTOEV: CALCUL EXACT DONC TRES COUTEUX DES ECHANGES INTER-NIVEAUX
+
+!        LRTPP   : SI .T. L'ECHANGE ENTRE COUCHES ADJACENTES TIENT COMPTE DU 
+!                  PROFIL CONTINU DE "T"
+!                  IF .T. EXCHANGE TERMS BETWEEN ADJACENT LAYERS USE A 
+!                  CONTINUOUS "T" PROFILE
+!        LRTDL   : SI .T. LES CALCULS D'ECHANGE ENTRE COUCHES ADJACENTES 
+!                  NE SONT PLUS LINEARISES
+!                  IF .T. EXCHANGE TERMS BETWEEN ADJACENT LAYERS ARE TREATED 
+!                  FULLY NONLINEARLY
+!        LRAYPL  : CLE DE RECHERCHE DES PLAGES JOUR/NUIT.
+!                : KEY TO LOOK FOR DAY/NIGHT AREAS.
+!                  (IN ACRANEB ).
+!        LO3ABC  : CLE D'ACTIVATION DES PROFILES D'OZONE CLIMATOLOGIQUES
+!                  KEY TO USE CLIMATOLOGICAL PROFILES FOR OZONE
+!        LGLT    : CLE ACTIVANT L'UTILISATION DU VENT GEOSTROPHIQUE PLUTOT
+!                  QUE LE VENT REEL DANS LE CALCUL DU LIFT
+!                : KEY FOR USING GEOSTROPHIC WIND IN PLACE OF REAL WIND
+!                  IN THE LIFT COMPUTATION
+!        LNEWD   : CLE D'APPEL DE MODIFICATIONS RECENTES DANS LE G.W.D.
+!                : KEY FOR CALLING NEW MODIFICATIONS IN THE G.W.D.
+!        LPROCLD : KEY FOR CALLING PROGNOSTIC CLOUD PARAMETRIZATION
+!        LEVAPP  : KEY FOR ACTIVATING PRECIPITATION EVAPORATION    
+!        LCOLLEC : KEY FOR ACTIVATING COLLECTION OF CLOUD CONDENSATE 
+!                  BY PRECIPITATION
+!        LNSMLIS : KEY FOR ACTIVATING SMOOTHING OF SMITH'S CLOUDINESS
+!        LADJCLD : KEY FOR CALLING SMITH'S ADUJSTMENT AFTER DIFFUSION.
+!        LAEROSEA: KEY TO USE SEA AEROSOLS
+!        LAEROLAN: KEY TO USE LAND AEROSOLS
+!        LAEROSOO: KEY TO USE SOOT (?) AEROSOLS
+!        LAERODES: KEY TO USE DESERT AEROSOLS
+!        LAEROVOL: KEY TO USE VOLCANOES AEROSOLS
+!        LAEROSUL: KEY TO USE SULFATES AEROSOLS
+!        LRELAXT : KEY TO USE TEMPERATURE RELAXATION
+!        LRELAXW : KEY TO USE WATER CONTENT RELAXATION
+
+!        LAUTONEB: KEY FOR DOING AUTOCONVERSION BEFORE RADIATION.
+!        LSSD    : KEY ACTIVATING STATISTICAL SEDIMENTATION
+!        LZ0HSREL: CLE ACTIVANT L'UTILISATION DE Z0 THERMIQUE SANS RELIEF
+!                  KEY TO USE THERMAL ROUGHNESS LENGTH WITHOUT OROGRAPHY
+!        L3MT    : CLE ACTIVANT LE SCHEMA 3MT
+!                : KEY FOR THE 3MT SCHEME
+
+! * GROUPE DES CLES COMMANDANT L'APPEL AUX ROUTINES AM-----.
+!       CGMIXLEN : MNEMONIQUE PERMETTANT DE CHOISIR LE TYPE DE CALCUL DE LONGUEUR DE MELANGE.
+!                : MNEMONIC DEFINING THE KIND OF TURBULENT MIXING LENGTH COMPUTATION.
+!        LPRGML  : CLE ACTIVANT LA LONGUEUR PRONOSTIQUE DE MELANGE.
+!                : KEY FOR PROGNOSTIC MIXING LENGTH.
+!        LCVRA   : CLE D'APPEL DE LA CONVECTION PROFONDE.
+!                : KEY FOR CALLING DEEP CONVECTION.
+!                  ( ACCVIMP ).
+!        LCVPRO  : CLE D'APPEL DE LA CONVECTION PRONOSTIQUE.
+!                  KEY FOR CALLING PROGNOSTIC CONVECTION.
+!                  ( ACCVUD  ).
+!        LCDDPRO : CLE D'APPEL DU DOWNDRAFT PRONOSTIQUE.
+!                  KEY FOR CALLING PROGNOSTIC DOWNDRAFT.
+!                  ( ACMODO  ).
+!        LGWD    : CLE D'APPEL DU "GRAVITY WAVE DRAG".
+!                : KEY FOR CALLING THE "GRAVITY WAVE DRAG".
+!                  ( ACDRAG ).
+!        LGWDC   : CLE D'APPEL DU "GRAVITY WAVE DRAG" CONVECTIF.
+!                : KEY FOR CALLING THE CONVECTIVE "GRAVITY WAVE DRAG".
+!                  ( ACDRAC ).
+!        LHMTO   : CLE D'APPEL DES CALCULS AUX HAUTEURS METEO.
+!                : KEY FOR INTERPOLATIONS AT SCREEN AND "WIND" HEIGHTS.
+!                  ( ACHMT ).
+!        LNEBCO  : CLE D'APPEL DE LA NEBULOSITE CONVECTIVE.
+!                : KEY FOR SWITCHING ON THE USE OF CONV. CLOUDINESS.
+!                  ( ACNEBC ).
+!        LNEBN   : CLE D'APPEL DE LA NEBULOSITE "STRA + PREC. CONVECTIVES"
+!                : KEY FOR CALLING THE "STRATIFORM + CONV. PRECIP" CLOUDINESS SCHEME.
+!                  ( ACNEBN ).
+!        LNEBR   : CLE D'APPEL DU SCHEMA STAT. DE GENERATION DES NUAGES.
+!                : KEY FOR CALLING THE STAT. SCHEME FOR CLOUDINESS.
+!                  ( ACNEBR ).
+!        LNEBT   : CLE D'APPEL DE LA NEBULOSITE "CLASSIQUE".
+!                : KEY FOR CALLING THE CLASSICAL CLOUDINESS SCHEME.
+!                  ( ANEBT ).
+!       LND2DIFF : CLE D'APPEL DE LA NEBULOSITE DIAGNOSTIQUE POUR LA DIFFUSION
+!                : KEY FOR CALLING DIAGNOSTIC CLOUDINESS FOR DIFFUSION
+!        LOZONE  : CLE D'APPEL A LA PHYSIQUE DE L'OZONE.
+!                : KEY FOR CALLING THE OZONE'S PHYSICS.
+!                  ( ACOZONE ).
+!        LRAY    : CLE D'APPEL DU RAYONNEMENT EMERAUDE/PERIDOT.
+!                : KEY FOR CALLING THE EMERAUDE/PERIDOT RAD. SCHEME.
+!                  ( ACRANEB ).
+!        LRAYFM  : CLE D'APPEL DU RAYONNEMENT FMR CEPMMT (PHYSIQUE M-F)
+!                : KEY FOR CALLING ECMWF FMR RAD. SCHEME IN M-F PHYSICS
+!                  ( RADINT ).
+!        LRAYFM15: CLE D'APPEL DU RAYONNEMENT FMR CEPMMT (PHYSIQUE M-F)
+!                : KEY FOR CALLING ECMWF FMR RAD. SCHEME IN M-F PHYSICS
+!                : VERSION GELEE - FROZEN VERSION - PhD 96/11 ~CYCLE 15
+!                  ( RADINT15 ).
+!        LRRMES  : CLE D'APPEL AU DRAG MESOSPHERIQUE "NEWTONIEN".
+!                  KEY FOR CALLING THE MESOSPHERIC NEWTONIAN DRAG.
+!                  ( ACDRME ).
+!        LSFHYD  : CLE D'APPEL DU BILAN HYDRIQUE DU SOL "HYPER-SIMPL.".
+!                : KEY FOR HYPER-SIMPLIFIED SOIL HYDROLOGY.
+!                  ( ACDRO ).
+!        LSNV    : CLE D'APPEL DU NOUVEAU SCHEMA DE NEIGE.
+!                : KEY FOR THE NEW SNOW SCHEME.
+!                  ( ACHMT,ACSOL,ACDROV,ACVEG ).
+!        LSOLV   : CLE D'APPEL DE LA NOUVELLE PHYS. DU SOL (VEGET.).
+!                : KEY FOR NOILHAN-PLANTON SOIL AND VEGETATION SCHEME.
+!                  ( ACSOL,ACDROV,ACVEG ).
+!        LFGEL   : CLE D'APPEL DU GEL DE L'EAU DU SOL AVEC ISBA (LSOLV)
+!                : KEY FOR SOIL FREEZING WITH ISBA (LSOLV)
+!                  ( ACSOL, ACDROV)
+!        LVGSN   : CLE POUR COMBINER VEGETATION ET NEIGE
+!                : KEY FOR COMBINING VEGETATION AND SNOW
+!                  ( ACHMT,ACSOL,ACDROV,ACVEG ).
+!        LSTRA   : CLE D'APPEL DES PLUIES STRATIFORMES "CLASSIQUES".
+!                  KEY FOR CLASSICAL STRATIFORM PRECIPITATIONS.
+!                  ( ACPLUIE ).
+!        LSTRAS  : CLE D'APPEL DU SCHEMA DE STAT. DE PRECIPITATION
+!                : KEY FOR CALLING THE STAT. SCHEME FOR PRECIPITATION.
+!                  ( ACPLUIS ).
+!       LSTRAPRO : KEY FOR CALLING ACPLUIE_PROG
+!        LTHERMO : CLE D'APPEL DES CALCULS THERMODYNAMIQUES.
+!                  KEY FOR CALLING MOIST THERMODYNAMIC CALCULATIONS.
+!                  ( ACTQSAT ).
+!        LVDIF   : CLE D'APPEL DE LA DIFFUSION VERTICALE "CLASSIQUE".
+!                  KEY FOR CALLING THE VERTICAL TURBULENT EXCHANGE.
+!                  ( ACHMT,ACCOEFK,ACDIFUS ).
+!        LBLVAR  : KEY FOR CALLING SPECIFIC 2M OBS OPERATOR FROM 
+!                  LAST LEVEL (USED FOR VARPACK)
+!        LPBLE   : Top PBL Entrainment
+!       LPHCDPI  : Common dynamisc physics interfase is used if it is TRUE
+!       LPIL     : SELECTION OF LUC's PIL INSTEAD OF ORIGINAL LOPEZ
+!       LPHSPSH  : KEY FOR PSEUDO HISTORIC SURFACE PRECIP SENSIBLE HEAT
+!       LSMNIMBT : NO ICE MELTING BELOW TRIPLE POINT TEMPERATURE (ACQMESM)
+!       LSMROT   : USE ROTSTAYN FOR ICE FRACTION IN ACSMI1/ACQMESM
+!       LSMTPS   : TRIPLE POINT SMOOTHING (ACSMI1)
+!       L1DRHCRI : COMPUTE A SINGLE RHCRIT PROFILE IN LAM
+!       LGWRHCRI : USE GAW IN THE RHCRI PROFILE
+
+
+
+! * GROUPE DES INDICES DE CALCUL.
+!        NBITER : NOMBRE D'ITERATIONS DANS LES BOUCLES DE NEWTON.
+!               : NUMBER OF ITERATIONS IN THE NEWTON LOOPS.
+!        NDPSFI : INDICATEUR BINAIRE : NDPSFI=1 SI LES VARIATIONS DE LA
+!                 MASSE DE L'ATMOSPHERE DUES AU CYCLE HYDROLOGIQUE SONT
+!                 MODELISEES, NDPSFI=0 SINON.
+!               : BINARY INDICATOR : NDPSFI=1 IF THE VARIATION OF THE
+!                 ATMOSPHERIC MASS DUE TO THE HYDROLOGICAL CYCLE HAVE TO
+!                 BE TAKEN INTO ACCOUNT, NDPSFI=0 OTHERWISE.
+!        NPHYREP: REPRODUCTIBILITE DES CALCULS PHYSIQUES EN MODE MULTI-PROCESSEURS:
+!                   1 REPRODUCTIBILITE ASSUREE DANS TOUTE LA PHYSIQUE.
+!                   0 REPRODUCTIBILITE NON ASSUREE.
+!                  -1 REPRODUCTIBILITE ASSUREE PARTOUT SAUF ACCVIMP ET ACCVIMPD.
+!                  -2 REPRODUCTIBILITE ASSUREE PARTOUT SAUF ACDRAG.
+!                  -3 REPRODUCTIBILITE ASSUREE PARTOUT SAUF ACPLUI.
+!                  -4 REPRODUCTIBILITE ASSUREE PARTOUT SAUF ACRANEB.
+!               : REPRODUCTIBILITY OF PHYSICAL COMPUTATIONS IN MULTI-PROCESSORS MODE:
+!                   1 REPRODUCTIBILITY ENSURED IN THE WHOLE PHYSICS.
+!                   0 REPRODUCTIBILITY NOT ENSURED.
+!                  -1 REPRODUCTIBILITY ENSURED EXCEPT IN ACCVIMP ET ACCVIMPD.
+!                  OTHER ITEMS: SEE ABOVE THE FRENCH PART OF THE DOC.!...
+!        NOIR   : ECLIPSE OU NON? (SOLEIL NOIR!)
+!                 NOIR=1 ECLIPSE DU 11.8.1999.
+!                 NOIR=0 PAS D'ECLIPSE.
+!                 NOIR=-999 ECLIPSE TOUS LES JOURS!... (POUR TESTS D'IMPACT).
+
+!   NPHY :  Number indicating the kind of physics, for DDH
+
+!       NSMTBOT : Temperature to use for qsat at the bottom (acsmi1)
+!                     0=interpolate Ts and T_L
+!                     1=use T_L
+!       NSMDNEB : Cloudiness gradient attenuation mode (acsmi1)
+!                     0= no action
+!                     1=smoothing
+!                     2=gradient limitation with RSMDNEBX
+!       NPRAG   : 1 to activate aggregation in ACPREC
+!       NPRAC   : 1 to activate accretion in ACPREC
+!       NPRRI   : 1 to activate riming in ACPREC
+
+! * GROUPE DES CLES COMMANDANT L'APPEL AUX ROUTINES AM-----.
+!       LAJUCV  : CLE D'APPEL DE L'AJUSTEMENT CONVECTIF SEC
+!                  KEY FOR CALLING THE DRY CONVECTIVE ADJUSTMENT.
+!                  ( ACAJUCV ).
+!       LNEBGR  : Schema de Turb/(N,RR)stra de Herve GRENIER  (ACNEBGR)
+!       LNEBGY  : Schema de Turb/(N,RR)stra de J.F. GUEREMY   (ACNEBGY)
+!       LCVRAV3 : Schema de convect. profonde Bougeault-V3 (ACCVIMP_V3)
+!       LBCCOND : Schema de condens. de Bechtold-Chaboureau    (ACCOND)
+
+! * GROUPE DES INDICES DE CALCUL.
+INTEGER(KIND=JPIM) :: NBITER
+INTEGER(KIND=JPIM) :: NDPSFI
+! * GROUPE DES CLES GENERALES.
+LOGICAL :: LMPHYS
+LOGICAL :: LREASUR
+! * GROUPE DES CLES NE COMMANDANT PAS L'APPEL AUX ROUTINES AM-----.
+LOGICAL :: LCAPE
+LOGICAL :: LCONDWT
+LOGICAL :: LCVDD
+LOGICAL :: LCVPGY
+LOGICAL :: LCVPP
+LOGICAL :: LDIFCONS
+LOGICAL :: LHUNEG
+LOGICAL :: LNEIGE
+LOGICAL :: LRNUMX
+LOGICAL :: LCLSATUR
+LOGICAL :: LVOIGT
+LOGICAL :: LVFULL
+LOGICAL :: LSRCON
+LOGICAL :: LSRCONT
+LOGICAL :: LSLC
+LOGICAL :: L2PHYS
+LOGICAL :: LRAYLU
+LOGICAL :: LREWS
+LOGICAL :: LRPROX
+LOGICAL :: LRMIX
+LOGICAL :: LRSTAB
+LOGICAL :: LRAUTOEV
+LOGICAL :: LRTPP
+LOGICAL :: LRTDL
+LOGICAL :: LRAYPL
+LOGICAL :: LRRGUST
+LOGICAL :: LO3ABC
+LOGICAL :: LNEBNXR
+LOGICAL :: LQXRTGH
+LOGICAL :: LHUCN
+LOGICAL :: LFPCOR
+LOGICAL :: LNOIAS
+LOGICAL :: LGLT
+LOGICAL :: LNEWD
+LOGICAL :: LPROCLD
+LOGICAL :: LEVAPP  
+LOGICAL :: LCOLLEC 
+LOGICAL :: LADJCLD
+LOGICAL :: L3MT 
+LOGICAL :: LAEROSEA
+LOGICAL :: LAEROLAN
+LOGICAL :: LAEROSOO
+LOGICAL :: LAERODES
+LOGICAL :: LAEROVOL
+LOGICAL :: LAEROSUL
+LOGICAL :: LRELAXT
+LOGICAL :: LRELAXW
+LOGICAL :: LAUTONEB
+LOGICAL :: LSSD
+LOGICAL :: LPBLE
+LOGICAL :: LNSMLIS
+LOGICAL :: LBLVAR
+LOGICAL :: LZ0HSREL
+
+! * GROUPE DES CLES COMMANDANT L'APPEL AUX ROUTINES AM-----.
+CHARACTER (LEN = 20) ::  CGMIXLEN
+LOGICAL :: LPRGML
+LOGICAL :: LCVRA
+LOGICAL :: LCVPRO
+LOGICAL :: LCDDPRO
+LOGICAL :: LECT
+LOGICAL :: LPTKE
+LOGICAL :: LGWD
+LOGICAL :: LGWDC
+LOGICAL :: LHMTO
+LOGICAL :: LNEBCO
+LOGICAL :: LNEBN
+LOGICAL :: LNEBR
+LOGICAL :: LNEBT
+LOGICAL :: LND2DIFF
+LOGICAL :: LOZONE
+LOGICAL :: LRAY
+LOGICAL :: LRAYFM
+LOGICAL :: LRAYFM15
+LOGICAL :: LRRMES
+LOGICAL :: LSFHYD
+LOGICAL :: LSNV
+LOGICAL :: LSOLV
+LOGICAL :: LFGEL
+LOGICAL :: LSTRA
+LOGICAL :: LSTRAS
+LOGICAL :: LSTRAPRO
+LOGICAL :: LNEWSTAT
+LOGICAL :: LTHERMO
+LOGICAL :: LVDIF
+LOGICAL :: LFGELS
+LOGICAL :: LCVLIS
+LOGICAL :: LCVCAS
+LOGICAL :: LSCMF 
+LOGICAL :: LVGSN
+LOGICAL :: LPHCDPI
+LOGICAL :: LAJUCV
+LOGICAL :: LNEBGR
+LOGICAL :: LNEBGY
+LOGICAL :: LCVRAV3
+LOGICAL :: LBCCOND
+LOGICAL :: LCVPPKF
+LOGICAL :: LECTFL 
+INTEGER(KIND=JPIM) :: NPHYREP
+INTEGER(KIND=JPIM) :: NOIR
+LOGICAL :: LPIL
+LOGICAL :: LPHSPSH
+LOGICAL :: LSMNIMBT
+LOGICAL :: LSMROT
+LOGICAL :: LSMTPS
+LOGICAL :: L1DRHCRI
+LOGICAL :: LGWRHCRI
+INTEGER (KIND=JPIM) :: NSMTBOT
+INTEGER (KIND=JPIM) :: NSMDNEB
+INTEGER (KIND=JPIM) :: NPRAG, NPRAC, NPRRI
+INTEGER(KIND=JPIM)  :: NPHY  
+! Values that NPHY can obtain: 
+INTEGER(KIND=JPIM), PARAMETER  ::   JPHYEC =   1  ! for ECMWF physics
+INTEGER(KIND=JPIM), PARAMETER  ::   JPHYMF =   2  ! for MF physics
+INTEGER(KIND=JPIM), PARAMETER  ::  JPHYARO =   3  ! for AROME physics
+!     ------------------------------------------------------------------
+END MODULE YOMPHY
Index: LMDZ5/trunk/libf/phylmd/rrtm/yomphy0.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yomphy0.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yomphy0.F90	(revision 1989)
@@ -0,0 +1,708 @@
+MODULE YOMPHY0
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!*
+!     ------------------------------------------------------------------
+!     CONSTANTES PHYSIQUES REGLABLES PROPRES A L'ATMOSPHERE :
+!     ------------------------------------------------------------------
+!       A0ML_AU : CONSTANTE POUR LE CALCUL DE LA LONGUEUR DE MELANGE.
+!               : PARAMETER FOR THE INTERACTIVE MIXING LENGTH.
+!       A0ML_AT : CONSTANTE POUR LE CALCUL DE LA LONGUEUR DE MELANGE.
+!               : PARAMETER FOR THE INTERACTIVE MIXING LENGTH.
+!       A0ML_BU : CONSTANTE POUR LE CALCUL DE LA LONGUEUR DE MELANGE.
+!               : PARAMETER FOR THE INTERACTIVE MIXING LENGTH.
+!       A0ML_BT : CONSTANTE POUR LE CALCUL DE LA LONGUEUR DE MELANGE.
+!               : PARAMETER FOR THE INTERACTIVE MIXING LENGTH.
+!       ACG     : CONSTANTE POUR LE CALCUL DU CONTRE-GRADIENT (ECT).
+!               : PARAMETER FOR THE CONTER-GRADIENT.
+!       ADISE   : CONSTANTE DE DISSIPATION PARTIE EXPLICITE (ECT).
+!               : DISSIPATIVE PARAMETER FOR EXPLICIT PART.
+!       ADISI   : CONSTANTE DE DISSIPATION PARTIE IMPLICITE (ECT).
+!               : DISSIPATIVE PARAMETER FOR IMPLICIT PART.
+!       AECLS3  : CONSTANTE POUR LE CALCUL DE ECT DANS LA CLS.
+!               : PARAMETER FOR THE TKE CALCULATION IN TH PBL.
+!       AECLS4  : CONSTANTE POUR LE CALCUL DE ECT DANS LA CLS.
+!               : PARAMETER FOR THE TKE CALCULATION IN TH PBL.
+!       AERCS1  : PREMIER COEFF. DE LA FONCTION DE LA COORD. SIGMA
+!                 DEFINISSANT PDAER(KLEV).
+!               : FIRST COEFFICIENT IN THE SIGMA COORD.'S FUNCTION
+!                 DEFINING PDAER(KLEV).
+!       AERCS3  : DEUXIEME COEFF. DE LA FONCTION DE LA COORD. SIGMA
+!                 DEFINISSANT PDAER(KLEV).
+!               : SECOND COEFFICIENT IN THE SIGMA COORD.'S FUNCTION
+!                 DEFINING PDAER(KLEV).
+!       AERCS5  : TROISIEME COEFF. DE LA FONCTION DE LA COORD. SIGMA
+!                 DEFINISSANT PDAER(KLEV).
+!               : THIRD COEFFICIENT IN THE SIGMA COORD.'S FUNCTION
+!                 DEFINING PDAER(KLEV).
+!       AHCLPV  : HAUTEUR DE LA COUCHE LIMITE POUR LONGUEUR DE MELANGE
+!                 PBL HEIGHT FOR MIXING LENGTH PROFILE COMPUTATION
+!       AKN     : CONSTANTE POUR LE CALCUL DES COEFF. D'ECHANGE (ECT)
+!               : PARAMETER FOR THE EXCHANGE COEFF. CALCULATION.
+!       ALD     : CONSTANTE POUR LE CALCUL DE LA LONGUEUR DE DISSIPATION (ECT)
+!               : PARAMETER FOR THE DISSIPATION LENGTH CALCULATION.
+!       ALMAV   : LONGUEUR DE MELANGE ASYMPTOTIQUE POUR LE VENT.
+!               : MOMENTUM EXCHANGE ASYMPTOTIC MIXING LENGTH.
+!       ALPHAE  : CONSTANTE POUR LE CALCUL DES COEFF. D'ECHANGE (ECT).
+!               : PARAMETER FOR THE EXCHANGE COEFF. CALCULATION.
+!       ALPHAT  : CONSTANTE POUR LE CALCUL DES COEFF. D'ECHANGE (ECT).
+!               : PARAMETER FOR THE EXCHANGE COEFF. CALCULATION.
+!       BEDIFV  : COEFFICIENT DE FORME POUR LE PROFIL DE DIF. VERTICALE.
+!               : FORM COEFFICIENT FOR THE VERTICAL DIFFUSION PROFILE.
+!       ECMNP   : EPAISSEUR CRITIQUE MINIMUM DU NUAGE PRECIPITANT.
+!               : MINIMUM CRITICAL THICKNESS FOR PRECIPITATING CLOUDS.
+!       ECTMIN  : PARAMETRE POUR ECT
+!               : PARAMETER FOR TKE
+!       EDB     : DETERMINE CD ET CH AU VOISINAGE DE LA NEUTRALITE.
+!               : DETERMINES CD AND CH NEAR THE NEUTRAL REGIME.
+!       EDC     : DETERMINE CD ET CH EN REGIME ASYMPTOTIQUE INSTABLE.
+!               : DETERMINES CD AND CH IN THE ASYMPTOTIC UNST. REGIME.
+!       EDD     : DETERMINE CD ET CH EN REGIME ASYMPTOTIQUE STABLE.
+!               : DETERMINES CD AND CH IN THE ASYMPTOTIC STABLE REGIME.
+!       EDK     : DETERMINE CD ET CH EN REGIME STABLE.
+!               : DETERMINES CD AND CH IN THE STABLE REGIME.
+!       EPS     : DISSIPATION PARTIE IMPLICITE PARTIE EXPLICITE (ECT).
+!               : DISSIPATIVE PARAMETER
+!       ETACUT  : PARAMETRE DU SCHEMA DE CONVECTION EN PENTE
+!               : LIMITATION OF VORTICITY IN SHEAR-LINKED CONVECTION SCHEME
+!       EVAP    : CONSTANTE D'EVAPORATION DES PRECIPITATIONS.
+!               : PARAMETER FOR THE EVAPORATION OF PRECIPITATIONS.
+!       FONT    : CONSTANTE DE FONTE DES PRECIPITATIONS.
+!               : PARAMETER FOR THE MELTING OF PRECIPITATIONS.
+!       GALP    : COEFFICIENT DE GALPERING (SCHEMA STAT. DE NUAGE).
+!               : GALPERING COEFFICIENT (STATISTICAL CLOUD SCHEME).
+!       GCISMIN : CISAILLEMENT MINIMAL UTILISE DANS LES CALCULS TURBULENTS.
+!               : MINIMUM VALUE OF SHEAR USED IN TURBULENT COMPUTATIONS.
+!       GCCSV   : CHOIX DU CRITERE DE STABILITE VERTICALE.
+!               : VERTICAL STABILITY CRITERIA CHOICE.
+!       GCOMOD  : EXPOSANT MODULATION DE LA CONVERGENCE D'HUMIDITE
+!                 ET DE LA CONSOMMATION CAPE (CONVECTION PROFONDE)
+!               : EXPONENT USED IN MODULATION OF MOISTURE CONVERGENCE
+!                 AND CAPE CONSUMPTION (DEEP CONVECTION)
+!       GCVALFA : COEFFICIENT RELIANT LA FLOTTABILITE NUAGEUSE
+!                 AU TAUX D'ENTRAINEMENT.
+!               : COEFFICIENT TO COMPUTE ENTRAINMENT RATE FROM CLOUD BUOYANCY.
+!       GCVADS  : COEFFICIENT PERMETTANT DE PASSER D'UN CALCUL D'ADIABATIQUE
+!                 SATUREE EN EQUIPRESSION A UN CALCUL EN EQUIGEOPOTENTIEL.
+!               : COEFFICIENT TO SWITCH FROM AN EQUIPRESSURE ADIABAT COMPUTATION
+!                 TO AN EQUIGEOPOTENTIAL ONE.
+!       GCVBETA : FRACTION DE LA DIVERGENCE DU FLUX DE MASSE CONVECTIF
+!                 ENTRANT DANS LE DETRAINEMENT.
+!               : FRACTION OF CONVECTIVE MASS FLUX DIVERGENCY
+!                 USED IN DETRAINMENT COMPUTATIONS.
+!       GCVMLT  : COEFFICIENT D'HYSTERESIS DE FONTE/GEL DES PRECIPITATIONS CONVECTIVES.
+!               : PARAMETER FOR THE HYSTERESIS OF CONVECTIVE PRECIPITATIONS MELTING/FREEZING.
+!       GCVNU   : ENTRAINEMENT UTILISE POUR LE CALCUL DE LA FRACTION DE FLOTTABILITE.
+!               : ENTRAINMENT RATE TO COMPUTE DILUTE PLUME BUOYANCY.
+!       GCVPSI  : COEFFICIENT ADIMENSIONNEL FAISANT
+!                 PASSER D'UNE PRISE EN COMPTE LOCALE DES FLUX TURBULENTS (SI 1)
+!                 A UNE PRISE EN COMPTE INTEGRALE (SI 0).
+!               : ADIMENSIONAL COEFFICIENT TO GO FROM
+!                 A LOCAL USE OF TURBULENT FLUXES (IF 1)
+!                 TO AN INTEGRAL ONE (IF 0).
+!       GCVPSIE : PRESSURE EXPONENT IN THE MULTIPLICATION FACTOR OF PQSAT IN
+!                 THE NORMALIZATION INTEGRAL OF TURBULENT FLUXES, UNDER LCVLIS
+!                 SWITCH (IF 0 => PQSAT IS USED, IF 1 => PQSAT*P**GCVPSIE)
+!       GDDEVA  : DOWNDRAFTS: FRACTION DES PRECIPITATIONS EVAPOREES.
+!               : DOWNDRAFTS: PRECIPITATIONS EVAPORATION FRACTION.
+!       GDDSDE  : DOWNDRAFTS: EXPOSANT CONTROLANT LES COURANTS DESCENDANTS EN SURFACE.
+!               : DOWNDRAFTS: SURFACE DESCENDING FLOW EXPONENT.
+!       GPBLHK0 : COEFFICIENT KHI0 UTILISE DANS LE CALCUL DE HAUTEUR DE CLA.
+!               : KHI0 COEFFICIENT FOR USE IN THE PBL HEIGHT COMPUTATION.
+!       GPBLHRA : RAPPORT KHI0/KHI1 UTILISE DANS LE CALCUL DE HAUTEUR DE CLA.
+!               : RATIO KHI0/KHI1 FOR USE IN THE PBL HEIGHT COMPUTATION.
+!       GRCVPP  : COEFFICIENT DE REDUCTION DE CVPP (ACCOEFK).
+!               : REDUCTION COEFFICIENT FOR SHALLOW-CONVECTION (ACCOEFK).
+!       GRCVPP  : COEFFICIENT DE REDUCTION DE CVPP (ACCOEFK).
+!               : REDUCTION COEFFICIENT FOR SHALLOW-CONVECTION (ACCOEFK).
+!       GWDAMP  : COEFFICIENT DE RESONANCE POUR LE G.W.D..
+!               : RESONNANCE COEFFICIENT FOR THE G.W.D..
+!       GWDBC   : INVERSE DE LA HAUTEUR CRITIQUE POUR LE G.W.D..
+!               : INVERSE CRITICAL HEIGHT FOR THE G.W.D..
+!       GWDCCO  : COEFFICIENT DU G.W.D CONVECTIF..
+!               : COEFFICIENT FOR THE CONVECTIVE G.W.D..
+!       GWDCD   : COEFFICIENT DE FROTTEMENT POUR LE G.W.D. DE SURFACE.
+!               : DRAG COEFFICIENT FOR FOR THE LOW LEVEL G.W.D..
+!       GWDLT   : COEFFICIENT DE SOULEVEMENT AU SOL POUR LE G.W.D..
+!               : SURFACE LIFT COEFF. FOR THE G.W.D..
+!       GWDSE   : COEFFICIENT DE FORME DU SOL POUR LE G.W.D..
+!               : ASPECT RATIO TYPE COEFF. AT THE SURF. FOR THE G.W.D..
+!       GWDPROF : COEFF DEFINISSANT LA FORME DE LA MONTAGNE POUR LE G.W.D..
+!               : MOUNTAIN SHAPE COEFF. FOR THE G.W.D..
+!       GWDVALI : COEFF DEFINISSANT L'ISOLEMENT DES VALLEES POUR LE G.W.D..
+!               : VALLEYS DECOUPLING COEFF. FOR THE G.W.D..
+!       HOBST   : MULTIPLICATEUR DE L'E. T. REL. POUR OBSTACLE G.W.D..
+!               : FACTOR FOR THE ST. DEV. OF OROG. FOR G.W.D. "WALL".
+!       HUCOE   : PREMIER COEFF. DE LA FONCTION DE LA COORD. SIGMA
+!                 DEFINISSANT PHUC(KLEV).
+!               : FIRST COEFFICIENT IN THE SIGMA COORD.'S FUNCTION
+!                 DEFINING PHUC(KLEV).
+!       HUCOE2  : COEFF. DE LA FONCTION DE LA COORD. SIGMA
+!                 DEFINISSANT PHUC2(KLEV).
+!               : COEFFICIENT IN THE SIGMA COORD.'S FUNCTION
+!                 DEFINING PHUC2(KLEV).
+!       HUTIL   : DEUXIEME COEFF. DE LA FONCTION DE LA COORD. SIGMA
+!                 DEFINISSANT PHUC(KLEV).
+!               : SECOND COEFFICIENT IN THE SIGMA COORD.'S FUNCTION
+!                 DEFINING PHUC(KLEV).
+!       HUTIL1  : DEUXIEME COEFF. DE LA FONCTION DE LA COORD. SIGMA
+!                 DEFINISSANT NOUVEAU PHUC(KLEV).
+!               : SECOND COEFFICIENT IN THE SIGMA COORD.'S FUNCTION
+!                 DEFINING NEW PHUC(KLEV).
+!       HUTIL2  : TROISIEME COEFF. DE LA FONCTION DE LA COORD. SIGMA
+!                 DEFINISSANT NOUVEAU PHUC(KLEV).
+!               : THIRD COEFFICIENT IN THE SIGMA COORD.'S FUNCTION
+!                 DEFINING NEW PHUC(KLEV).
+!       NPCLO1  : PREMIER EXPOST. DE LA FONCTION DE LA COORD. SIGMA
+!                 DEFINISSANT PHUC(KLEV).
+!               : FIRST EXPONENT IN THE SIGMA COORD.'S FUNCTION
+!                 DEFINING PHUC(KLEV).
+!       NPCLO2  : DEUXIEME EXPOST. DE LA FONCTION DE LA COORD. SIGMA
+!                 DEFINISSANT PHUC(KLEV).
+!               : SECOND EXPONENT IN THE SIGMA COORD.'S FUNCTION
+!                 DEFINING PHUC(KLEV).
+!       QSSC    : ECART D'ENERGIE STATIQUE SECHE AUTORISE LORS DU CALCUL
+!                 DE LA NEBULOSITE PEU PROFONDE.
+!                 DRY STATIC ENERGY THRESHOLD FOR SHALLOW CONVECTION COMPUTATIONS.
+!       QSMIN   : RAPPORT DE MELANGE MINIMUM POUR LE SCHEMA DE NEBULOSITE STAT.
+!               : MINIMUM MIXING RATIO FOR THE STATISTICAL CLOUD SCHEME
+!       QSNEBC  : FACTEUR RELIANT L'EAU CONDENSEE A LA NEBULOSITE CONVECTIVE.
+!               : DEFINING CONVECTIVE CLOUDINESS FROM CONDENSATED WATER.
+!       QSNEBS  : FACTEUR RELIANT L'EAU CONDENSEE A LA NEBULOSITE STRATIFORME.
+!               : DEFINING STRATIFORM CLOUDINESS FROM CONDENSATED WATER.
+!       QSSUSC  : FACTEUR RELIANT L'EAU CONDENSEE AUX PRECIPITATIONS CONVECTIVES.
+!               : DEFINING CONDENSATED WATER FROM CONVECTIVE PRECIPITATION.
+!       QSSUSS  : FACTEUR RELIANT L'EAU CONDENSEE A LA SURSATURATION.
+!               : DEFINING CONDENSATED WATER FROM SUPERSATURATION.
+!       QSSUSV  : FACTEUR RELIANT L'EAU CONDENSEE A LA SURSATURATION.
+!               : DEFINING CONDENSATED WATER FROM SUPERSATURATION.
+!       QSUSXC  : QL+QI MAXIMUM A L'ECHELLE DU POINT DE GRILLE MODELE,
+!                 PARTIE CONVECTION PROFONDE.
+!               : MAXIMUM QL+QI AT THE GRID-POINT SCALE,
+!                 DEEP CONVECTION PART.
+!       QSUSXS  : QL+QI MAXIMUM A L'ECHELLE DU POINT DE GRILLE MODELE,
+!                 PARTIES RESOLUE ET DE CONVECTION PEU PROFONDE.
+!               : MAXIMUM QL+QI AT THE GRID-POINT SCALE, 
+!                 RESOLVED AND SHALLOW CONVECTION PART.
+!       RPHI0   : REGLAGE DE REFROIDISSEMENT DANS L'INVERSION POUR LE
+!                 CALCUL DE STRATUS BAS
+!                 TUNING OF THE COOLING INSIDE AN INVERSION FOR COMPUTATION
+!                 OF LOW-LEVEL STRATUS CLOUDINESS
+!       RPHIR   : REGLAGE DE LA PROFONDEUR D'INVERSION THERMIQUE POUR LE
+!                 CALCUL DE STRATUS
+!                 TUNING OF THE INVERSION THICKNESS FOR COMPUTATION
+!                 OF LOW-LEVEL STRATUS CLOUDINESS
+!               : XU ET RANDALL CLOUDINESS COMPUTATION (ACNEBXR).
+!       QXRAL   : CALCUL DE LA NEBULOSITE XU ET RANDALL (ACNEBXR).
+!               : XU ET RANDALL CLOUDINESS COMPUTATION (ACNEBXR).
+!       QXRDEL  : CALCUL DE LA NEBULOSITE XU ET RANDALL (ACNEBXR).
+!               : XU ET RANDALL CLOUDINESS COMPUTATION (ACNEBXR).
+!       QXRHX   : CALCUL DE LA NEBULOSITE XU ET RANDALL (ACNEBXR).
+!               : XU ET RANDALL CLOUDINESS COMPUTATION (ACNEBXR).
+!       QXRR    : CALCUL DE LA NEBULOSITE XU ET RANDALL (ACNEBXR).
+!               : XU ET RANDALL CLOUDINESS COMPUTATION (ACNEBXR).
+!       QXRTGH  : CALCUL DE LA NEBULOSITE XU ET RANDALL (ACNEBXR).
+!               : XU ET RANDALL CLOUDINESS COMPUTATION (ACNEBXR).
+!       TENTRX  : TAUX D'ENTRAINEMENT MAXIMUM DU NUAGE CONVECTIF.
+!               : MAXIMUM CONVECTIVE UPDRAFT'S ENTRAINMENT RATE.
+!       RCIN    : MODULATION DANS LE CALCUL DU PROFIL NUAGEUX CONVECTIF
+!               : MODULATION IN THE CONVECTIVE CLOUD PROFILE COMPUTATION
+!       RCVEVAP : FACTEUR DE MODULATION DE L'EVAPORATION CONVECTIVE SOUS-NUAGEUSE
+!               : MODULATION FACTOR FOR CONVECTIVE EVAPORATION
+!       RDTFAC  : FACTEUR MULTIPLICATIF DE "RDT" DANS LA FONCTION "FONICE".
+!               : MODULATION FACTOR OF "RDT" IN "FONICE" FUNCTION.
+!       REVGSL  : RAPPORT DES VITESSES D'EVAP. DES PRECIP. "GLACE/LIQ.".
+!               : RATIO OF THE SPEED OF EVAP. OF PRECIP. "ICE/WATER".
+!       RICRLM  : NOMBRE DE RICHARDSON CRITIQUE POUR LONGUEUR DE MELANGE.
+!               : CRITICAL RICHARDSON NUMBER FOR MIXING LENGTH.
+!       RRGAMMA : EXPOSANT DANS LE CALCUL DE "RAFALE HUMIDE".
+!                 EXPONENT IN "MOIST GUSTINESS" COMPUTATION.
+!       RRSCALE : TAUX DE PRECIPITATION CARACTERISTIQUE DANS LE CALCUL DE "RAFALE HUMIDE".
+!                 SCALING RAINFALL RATE IN "MOIST GUSTINESS" COMPUTATION.
+!       RTCAPE  : TEMPS CARACTERISTIQUE POUR "CONSOMMER" LA CAPE.
+!                 CHARACTERISTICS TIME TO DECREASE THE CAPE CLOSURE.
+!       SCO     : SEUIL EN DESSOUS DUQUEL LES PRECIPITATIONS CONVECTIVES
+!                 NE SONT PAS PRISES EN COMPTE (SCHEMA STATISTIQUE DE NUAGES)
+!               : THRESHOLD FOR THE CONVECTIVE PRECIPITATION (STATISTICAL
+!                 CLOUD SCHEME)
+!       SENSL   : COEFFICIENT DE SENSIBILITE DE LA LONGUEUR DE MELANGE.
+!               : SENSITIVITY TO MIXING LENGTH (STAT. CLOUD SCHEME).
+!       SNNBCO  : VALEUR MINIMALE DE LA NEBULOSITE CONVECTIVE.
+!               : MINIMUM VALUE OF CONVECTIVE CLOUDINESS.
+!       SPNBCO  : PENTE "NEBULOSITE CONV./PRECIPITATION CONV.".
+!               : SLOPE "CONV. CLOUDINESS/CONV. PRECIPITATION".
+!       SXNBCO  : VALEUR MAXIMALE DE LA NEBULOSITE CONVECTIVE
+!               : MAXIMUM VALUE OF CONVECTIVE CLOUDINESS.
+!       TCA     : CONSTANTE D'ACCRETION.
+!               : ACCRETION CONSTANT (STAT. CLOUD SCHEME).
+!       TCT     : AUTOCONV. DES GOUTTELETTES NUAGEUSES EN PRECIP..
+!               : DROPLET SELFCONVERSION (STAT. CLOUD SCHEME).
+!       TCW     : CONSTANTE DE LIMITATION DE LA CONVERSION DE L'EAU
+!                 LIQUIDE NUAGEUSE EN PRECIPITATIONS.
+!               : LIMITATION OF LIQUID WATER CONVERSION (STAT. CLOUD
+!                 SCHEME).
+!       TENTR   : TAUX D'ENTRAINEMENT DU NUAGE CONVECTIF.
+!               : CONVECTIVE UPDRAFT'S ENTRAINMENT RATE.
+!       TENTRX  : TAUX D'ENTRAINEMENT MAXIMUM DU NUAGE CONVECTIF.
+!               : MAXIMUM CONVECTIVE UPDRAFT'S ENTRAINMENT RATE.
+!       TDDGP   : Parametrisation grad p horizontal dans le downdraught
+!                 (Kershaw & Gregory)
+!                 Downdraught Horizontal Grad p  effect coefficient
+!       TUDGP   : Parametrisation du grad p horizontal dans l'updraught
+!                 (Kershaw & Gregory)
+!                 Updraught Horizontal Grad p  effect coefficient
+!       TURB    : TURBULENCE RESIDUELLE.
+!               : RESIDUAL TURBULENCE (STAT. CLOUD SCHEME).
+!       TVF     : VITESSE DE PRECIPITATION DE L'EAU SOLIDE NUAGEUSE.
+!               : SOLID PRECIPITATION SPEED (STAT. CLOUD SCHEME).
+!       TYM(5)  : TABLEAU DES COEFFICIENTS DU MODELE DE NIVEAU 2.5
+!                 DE YAMADA ET MELLOR (SCHEMA STATISTIQUE DE NUAGES).
+!               : YAMADA AND MELLOR COEFFICIENTS FOR THE LEVEL 2.5
+!                 SCHEME (STAT. CLOUD SCHEME).
+!       UHDIFV  : INVERSE DE L'ECHELLE DE DECROISSANCE VERTIC. DE ALMAV.
+!               : INVERSE SCALE HEIGHT FOR THE DECREASE OF ALMAV.
+!       UNTIER  : CONSTANTE POUR LE CALCUL DE ECT DANS LA CLS.
+!               : PARAMETER FOR THE TKE CALCULATION IN TH PBL.
+!       USDMLT  : INVERSE DE L'ECHELLE DE FUSION DES PRECIP. CONVEC..
+!               : INVERSE SCALE OF THE MELTING DEPTH OF CONVEC. PRECIP..
+!       USUPRC  : INVERSE DES PRECIPITATIONS CRITIQUES POUR L'INTERCETION
+!               : INVERSE CRITICAL RAINFALL FOR VEGETATION INTERCEPTION
+!       USURIC  : INVERSE DU NOMBRE DE RICHARDSON CRITIQUE
+!               : INVERSE CRITICAL RICHARDSON NUMBER
+!       USURID  : INVERSE DU NOMBRE DE RICHARDSON DE TRANSITION POUR LE CALCUL DE L'ORDRE DE CONVERGENCE
+!                 DU NOMBRE DE RICHARDSON VERS LE NOMBRE DE RICHARDSON CRITIQUE.
+!               : INVERSE TRANSITION RICHARDSON NUMBER TO COMPUTE THE CONVERGENCE ORDER
+!                 OF THE RICHARDSON NUMBER TO THE CRITICAL RICHARDSON NUMBER.
+!       USURICE : EXPOSANT DE L'ALTITUDE INTERVENANT DANS LE CALCUL
+!                 DU NOMBRE DE RICHARDSON CRITIQUE.
+!               : HEIGHT EXPONENT IN RICHARDSON NUMBER COMPUTATION.
+!       USURICL : COEFFICIENT MULTIPLICATEUR INTERVENANT DANS LE CALCUL
+!                 DU NOMBRE DE RICHARDSON CRITIQUE EN FONCTION DE L'ALTITUDE.
+!               : COEFFICIENT RELATING RICHARDSON NUMBER COMPUTATION TO HEIGHT.
+!       USURID  : INVERSE DU NOMBRE DE RICHARDSON DE TRANSITION POUR LE CALCUL DE L'ORDRE DE CONVERGENCE
+!                 DU NOMBRE DE RICHARDSON VERS LE NOMBRE DE RICHARDSON CRITIQUE.
+!               : INVERSE TRANSITION RICHARDSON NUMBER TO COMPUTE THE CONVERGENCE ORDER
+!                 OF THE RICHARDSON NUMBER TO THE CRITICAL RICHARDSON NUMBER.
+!       USURIDE : EXPOSANT DANS LE CALCUL DU NOMBRE DE RICHARDSON CRITIQUE LOCAL.
+!                 EXPONENT IN THE COMPUTATION OF THE LOCAL CRITICAL RICHARDSON NUMBER.
+!       UTILGUST: VITESSE CARACTERISTIQUE DANS LE CALCUL DE "RAFALE HUMIDE".
+!                 CHARACTERISTIC SPEED IN "MOIST GUSTINESS" COMPUTATION.
+!       VCHRNK  : CONSTANTE DE CHARNOCK.
+!               : CHARNOCK'S CONSTANT.
+!       VKARMN  : CONSTANTE DE KARMAN.
+!               : KARMAN'S CONSTANT.
+!       VZ0CM   : LONGUEUR DE RUGOSITE (NEUTRE) MINIMALE SUR MER.
+!               : (NEUTRAL) MINIMUM ROUGHNESS LENGTH OVER THE OCEAN.
+!       VZIUSTAR0 : VITESSE DE RUGOSITE INVERSE DE NORMALISATION.
+!                 : SCALING INVERSE ROUGHNESS VELOCITY.
+!       XBLM    : COEFFICIENT POUR LONGUEUR DE MELANGE.
+!               : COEFFICIENT FOR MIXING LENGTH.
+!       XKLM    : COEFFICIENT POUR LONGUEUR DE MELANGE (0<XKLM<1).
+!               : COEFFICIENT FOR MIXING LENGTH (0<XKLM<1).
+!       XMAXLM  : HAUTEUR MAXI DE LA CLP (POUR LONGUEUR DE MELANGE).
+!               : MAX HEIGHT OF THE PBL (FOR MIXING LENGTH).
+!       XMINLM  : HAUTEUR MINI DE LA CLP (POUR LONGUEUR DE MELANGE).
+!               : MIN HEIGHT OF THE PBL (FOR MIXING LENGTH).
+!       XNBMAX  : NEBULOSITE MAXIMUM PAR COUCHE.
+!               : MAXIMUM CLOUDINESS IN A LAYER.
+!       XWSALM  : CONSTANTE 1 DU SCHEMA TROEN-MAHRT (POUR LONGUEUR DE MELANGE).
+!               : CONSTANT 1 FOR TROEN-MAHRT SCHEME (FOR MIXING LENGTH).
+!       XWSBLM  : CONSTANTE 2 DU SCHEMA TROEN-MAHRT (POUR LONGUEUR DE MELANGE).
+!               : CONSTANT 2 FOR TROEN-MAHRT SCHEME (FOR MIXING LENGTH).
+
+!*   Variables pour la microphysique dite de Lopez 
+! ------------------------------------------------------------------
+!    RAUTEFR  : EFFICIENCY FOR AUTOCONVERSION OF WATER->RAIN. 
+!    RAUTEFS  : EFFICIENCY FOR AUTOCONVERSION OF ICE->SNOW. 
+!    RAUTSBET : "BETA" EFFICIENCY PARAMETER FOR AUTOCONV ICE->SNOW.
+!    RHEVAP   : MODIFICATION OF RELATIVE HUMIDITY IN EVAPORATION 
+!               FORMULATION OF LOPEZ MICROPHYSICS.
+!    RNINTR   : INTERCEPT PARAMETER FOR RAIN.
+!    RNINTS   : INTERCEPT PARAMETER FOR ICE.
+!    RQLCR    : CRITICAL LIQUID WATER CONTENT FOR AUTOCONVERSION OF
+!               STRATIFORM CLOUD WATER.
+!    RQICRMAX : MAXIMUM CRITICAL ICE CONTENT FOR AUTOCONVERSION OF
+!               STRATIFORM ICE.
+!    RQICRMIN : MINIMUM CRITICAL ICE CONTENT FOR AUTOCONVERSION OF
+!               STRATIFORM ICE.
+!    RQLCV    : CRITICAL LIQUID WATER CONTENT FOR AUTOCONVERSION OF
+!               CONVECTIVE CLOUD WATER.
+!    RQICVMAX : MAXIMUM CRITICAL ICE CONTENT FOR AUTOCONVERSION OF
+!               CONVECTIVE CLOUD ICE.
+!    RQICVMIN : MINIMUM CRITICAL ICE CONTENT FOR AUTOCONVERSION OF
+!               CONVECTIVE CLOUD ICE.
+!    RQICRT1  : TUNING COEFF FOR AUTOCONVERSION OF STRATIFORM ICE.
+!    RQICRT2  : TUNING COEFF FOR AUTOCONVERSION OF STRATIFORM ICE.
+!    RQICRSN  : MULTIPLICATIVE FACTOR OF CRITICAL ICE CONTENT FOR
+!               AUTOCONVERSION OF STRATIFORM ICE OVER SNOW AND SEA ICE.
+!    RQCRNS   : TUNING COEFF FOR AUTOCONVERSION NEAR THE SURFACE.
+!    RACCEF   : ACCRETION EFFICIENCY.
+!    RAGGEF   : AGGREGATION EFFICIENCY.
+!    RRIMEF   : RIMING AND AGGREGATION EFFICIENCY.
+!    RHCRIT1  : CRITICAL RELATIVE HUMIDITY FOR SMITH SCHEME (UPPER LEVELS).
+!    RHCRIT2  : CRITICAL RELATIVE HUMIDITY FOR SMITH SCHEME (SURFACE).
+!    RETAMIN  : MODEL ETA LEVEL WHERE CRITICAL RELATIVE HUMIDITY IS MINIMUM.
+!    RFACNSM  : MULTIPLICATVE FACTOR OF SMITH CLOUDINESS COMPUTATION.
+!    TFVR     : VITESSE DE CHUTE DES PRECIPITATIONS LIQUIDES.
+!    TFVS     : VITESSE DE CHUTE DES PRECIPITATIONS SOLIDES.
+!    GRHCMOD  : MODULATION IN CRITICAL RELATIVE HUMIDITY COMPUTATION.
+!
+! Pseudo prognostic TKE scheme
+!    NUPTKE   : TUNABLE VALUE FOR PSEUDO TKE SCHEME FOLLOWING
+!               REDELSBERGER, MAHE & CARLOTTI (2001) EQUAL TO
+!               ( C_k * C_{epsilon} )^{1/4}
+!    GAMTKE   : GAMMA FUNCTION DEFINING THE PROPORTION BETWEEN
+!               K_n AND K_m TO COMPUTE K_E
+!     RCOLL   : COLLECTION PARAMETER
+!     RFALLL  : SPEED OF FALL (ACPLUIE_PROG)
+! Prognostic convection scheme
+!     TUDBU   : UPDRAUGHT VIRTUAL MASS PARAMETER
+!     TUDFR   : UPDRAUGHT DISSIPATION COEFFICIENT
+!     TDDBU   : DOWNDRAUGHT VIRTUAL MASS PARAMETER
+!     TDDFR   : DOWNDRAUGHT DISSIPATION COEFFICIENT
+!     GCVACHI : Activity History, absolute minimum draught advected
+!               velocity to declare continued activity whichever be ZKUO
+!     GCVBEE  : IMPACT OF ACCELERATION on ENTRAINMENT
+!     GCVEEX  : EXPONENT FOR impact of accel on entr
+!   GCVADMW 0 : Advect  ABSOLUTE UD VELOCITY*DT
+!           1 : ADVECT DEPARTURE FROM PVERVEL*DT
+
+!   GCVALMX   : MAXIMUM ACCEPTABLE VALUE FOR TOTAL MESH FRACTION
+!
+!              Ascent properties
+!      ECMNPI : ECMNP for ice, the original ECMNP being kept for liquid.
+!      GFRIC  : INVERSE OF CHARACTERISTIC TIME for ICE CONDENSATION in ud.
+!
+!              Squeezing:
+!   GCVSQDN   : threshold value of sigma_d*q_cd*dp
+!   GCVSQDR   : fraction of the max to consider for squeezing
+!   GCVSQDCX  : maximum acceptable compression (<1)
+!
+!              Downdraught:
+!   GDDWPF    : Influence of rain fall velocity on downdraught
+!   GDDEVF    : for acmodo, cfr GDDEVA in accvimp
+!   GDDBETA   : DOWNDRAUGHT EXPLICIT DETRAINMENT COEFFICIENT
+!   TENTRD    : DOWNDRAUGHT ENTRAINMENT RATE (S^2/M^2)
+!
+!              Intensive Precipitation:
+!   GRRMINA   : MINIMUM REALISTIC PRECIPITATING MESH FRACTION
+!   GRRINTE   : MAXIMUM VALUE OF THE PRECIPITATION INTENSIFICATION FACTOR
+! ------------------------------------------------------------------
+
+REAL(KIND=JPRB) :: TYM(5)
+INTEGER(KIND=JPIM) :: NPCLO1
+INTEGER(KIND=JPIM) :: NPCLO2
+REAL(KIND=JPRB) :: A0ML_AU
+REAL(KIND=JPRB) :: A0ML_AT
+REAL(KIND=JPRB) :: A0ML_BU
+REAL(KIND=JPRB) :: A0ML_BT
+REAL(KIND=JPRB) :: AERCS1
+REAL(KIND=JPRB) :: AERCS3
+REAL(KIND=JPRB) :: AERCS5
+REAL(KIND=JPRB) :: ALMAV
+REAL(KIND=JPRB) :: BEDIFV
+REAL(KIND=JPRB) :: ECMNP
+REAL(KIND=JPRB) :: EDB
+REAL(KIND=JPRB) :: EDC
+REAL(KIND=JPRB) :: EDD
+REAL(KIND=JPRB) :: EVAP
+REAL(KIND=JPRB) :: FONT
+REAL(KIND=JPRB) :: GALP
+REAL(KIND=JPRB) :: GCISMIN
+REAL(KIND=JPRB) :: GCCSV
+REAL(KIND=JPRB) :: GCOMOD
+REAL(KIND=JPRB) :: GCVADS
+REAL(KIND=JPRB) :: GCVBETA
+REAL(KIND=JPRB) :: GDDEVA
+REAL(KIND=JPRB) :: GDDSDE
+REAL(KIND=JPRB) :: GRCVPP
+REAL(KIND=JPRB) :: GWDAMP
+REAL(KIND=JPRB) :: GWDBC
+REAL(KIND=JPRB) :: GWDCCO
+REAL(KIND=JPRB) :: GWDCD
+REAL(KIND=JPRB) :: GWDLT
+REAL(KIND=JPRB) :: GWDSE
+REAL(KIND=JPRB) :: GWDPROF
+REAL(KIND=JPRB) :: GWDVALI
+REAL(KIND=JPRB) :: HOBST
+REAL(KIND=JPRB) :: HUCOE
+REAL(KIND=JPRB) :: HUCOE2
+REAL(KIND=JPRB) :: HUTIL
+REAL(KIND=JPRB) :: HUTIL1
+REAL(KIND=JPRB) :: HUTIL2
+REAL(KIND=JPRB) :: QSMIN
+REAL(KIND=JPRB) :: QSNEBC
+REAL(KIND=JPRB) :: QSNEBS
+REAL(KIND=JPRB) :: QSSUSC
+REAL(KIND=JPRB) :: QSSUSS
+REAL(KIND=JPRB) :: QSSUSV
+REAL(KIND=JPRB) :: QSUSXC
+REAL(KIND=JPRB) :: QSUSXS
+REAL(KIND=JPRB) :: RPHI0 
+REAL(KIND=JPRB) :: RPHIR 
+REAL(KIND=JPRB) :: QXRAL
+REAL(KIND=JPRB) :: QXRDEL
+REAL(KIND=JPRB) :: QXRHX
+REAL(KIND=JPRB) :: QXRR
+REAL(KIND=JPRB) :: QXRTGH
+REAL(KIND=JPRB) :: RCIN
+REAL(KIND=JPRB) :: RCVEVAP
+REAL(KIND=JPRB) :: RDTFAC
+REAL(KIND=JPRB) :: REVGSL
+REAL(KIND=JPRB) :: RTCAPE
+REAL(KIND=JPRB) :: SCO
+REAL(KIND=JPRB) :: SENSL
+REAL(KIND=JPRB) :: SNNBCO
+REAL(KIND=JPRB) :: SPNBCO
+REAL(KIND=JPRB) :: SXNBCO
+REAL(KIND=JPRB) :: TCA
+REAL(KIND=JPRB) :: TCT
+REAL(KIND=JPRB) :: TCW
+REAL(KIND=JPRB) :: TENTR
+REAL(KIND=JPRB) :: TENTRX
+REAL(KIND=JPRB) :: TUDGP
+REAL(KIND=JPRB) :: TDDGP
+REAL(KIND=JPRB) :: TURB
+REAL(KIND=JPRB) :: TVF
+REAL(KIND=JPRB) :: UHDIFV
+REAL(KIND=JPRB) :: USDMLT
+REAL(KIND=JPRB) :: USUPRC
+REAL(KIND=JPRB) :: USURIC
+REAL(KIND=JPRB) :: VCHRNK
+REAL(KIND=JPRB) :: VKARMN
+REAL(KIND=JPRB) :: VZ0CM
+REAL(KIND=JPRB) :: VZIUSTAR0
+REAL(KIND=JPRB) :: XNBMAX
+REAL(KIND=JPRB) :: AECLS3
+REAL(KIND=JPRB) :: AECLS4
+REAL(KIND=JPRB) :: ACG
+REAL(KIND=JPRB) :: ALD
+REAL(KIND=JPRB) :: AKN
+REAL(KIND=JPRB) :: ALPHAT
+REAL(KIND=JPRB) :: ALPHAE
+REAL(KIND=JPRB) :: EPS
+REAL(KIND=JPRB) :: ETACUT
+REAL(KIND=JPRB) :: ADISI
+REAL(KIND=JPRB) :: ADISE
+REAL(KIND=JPRB) :: ECTMIN
+REAL(KIND=JPRB) :: UNTIER
+REAL(KIND=JPRB) :: AHCLPV
+REAL(KIND=JPRB) :: RICRLM
+REAL(KIND=JPRB) :: XBLM
+REAL(KIND=JPRB) :: XMINLM
+REAL(KIND=JPRB) :: XMAXLM
+REAL(KIND=JPRB) :: XWSALM
+REAL(KIND=JPRB) :: XWSBLM
+REAL(KIND=JPRB) :: GCVALFA
+REAL(KIND=JPRB) :: GCVPSI
+REAL(KIND=JPRB) :: GCVPSIE
+REAL(KIND=JPRB) :: USURICE
+REAL(KIND=JPRB) :: USURICL
+REAL(KIND=JPRB) :: QSSC
+REAL(KIND=JPRB) :: USURID
+REAL(KIND=JPRB) :: GCVNU
+REAL(KIND=JPRB) :: USURIDE
+REAL(KIND=JPRB) :: GCVMLT
+REAL(KIND=JPRB) :: UTILGUST
+REAL(KIND=JPRB) :: RRGAMMA
+REAL(KIND=JPRB) :: RRSCALE
+REAL(KIND=JPRB) :: GPBLHK0
+REAL(KIND=JPRB) :: GPBLHRA
+
+REAL(KIND=JPRB) :: ACBRPHIM
+REAL(KIND=JPRB) :: AGREKE
+REAL(KIND=JPRB) :: ALMAVE
+REAL(KIND=JPRB) :: ARSCH
+REAL(KIND=JPRB) :: ARSCQ
+REAL(KIND=JPRB) :: ARSC1
+REAL(KIND=JPRB) :: ARSB2
+REAL(KIND=JPRB) :: RICRET
+REAL(KIND=JPRB) :: STTBMIN
+REAL(KIND=JPRB) :: UCWSTAR
+REAL(KIND=JPRB) :: UDECT
+REAL(KIND=JPRB) :: UPRETMIN
+REAL(KIND=JPRB) :: UPRETMAX
+REAL(KIND=JPRB) :: USHEARM
+
+!*   Variables pour la microphysique dite de Lopez 
+REAL(KIND=JPRB) :: RAUTEFR
+REAL(KIND=JPRB) :: RAUTEFS 
+REAL(KIND=JPRB) :: RAUTSBET 
+REAL(KIND=JPRB) :: RHEVAP
+REAL(KIND=JPRB) :: RNINTR  
+REAL(KIND=JPRB) :: RNINTS  
+REAL(KIND=JPRB) :: RQLCR
+REAL(KIND=JPRB) :: RQICRMAX
+REAL(KIND=JPRB) :: RQICRMIN
+REAL(KIND=JPRB) :: RQLCV
+REAL(KIND=JPRB) :: RQICVMAX
+REAL(KIND=JPRB) :: RQICVMIN
+REAL(KIND=JPRB) :: RQICRT1
+REAL(KIND=JPRB) :: RQICRT2
+REAL(KIND=JPRB) :: RQICRSN
+REAL(KIND=JPRB) :: RQCRNS
+REAL(KIND=JPRB) :: RACCEF  
+REAL(KIND=JPRB) :: RAGGEF
+REAL(KIND=JPRB) :: RRIMEF  
+REAL(KIND=JPRB) :: RHCRIT1 
+REAL(KIND=JPRB) :: RHCRIT2 
+REAL(KIND=JPRB) :: RETAMIN
+REAL(KIND=JPRB) :: RFACNSM
+REAL(KIND=JPRB) :: TFVR
+REAL(KIND=JPRB) :: TFVS
+REAL(KIND=JPRB) :: GRHCMOD
+REAL(KIND=JPRB) :: NUPTKE
+REAL(KIND=JPRB) :: GAMTKE
+REAL(KIND=JPRB) :: RCOLL
+REAL(KIND=JPRB) :: RFALLL
+!*   Variables pour la convection pronostique 
+REAL (KIND=JPRB) :: TUDBU, TDDBU
+REAL (KIND=JPRB) :: TUDFR, TDDFR
+REAL (KIND=JPRB) :: GCVALMX
+REAL (KIND=JPRB) :: GCVACHI
+REAL (KIND=JPRB) :: GCVADMW
+REAL (KIND=JPRB) :: GCVBEE,GCVEEX
+REAL (KIND=JPRB) :: ECMNPI
+REAL (KIND=JPRB) :: GFRIC
+REAL (KIND=JPRB) :: GCVSQDN, GCVSQDR, GCVSQDCX
+REAL (KIND=JPRB) :: GRRINTE, GRRMINA
+! Downdraught:
+REAL (KIND=JPRB) :: GDDBETA, GDDWPF,GDDEVF
+REAL (KIND=JPRB) :: TENTRD
+
+!*
+!     ------------------------------------------------------------------
+!     CONSTANTES PHYSIQUES REGLABLES PROPRES A L'ATMOSPHERE 
+!     DANS LA PHYSIQUE SIMPLIFIEE SEULEMENT:
+!     ------------------------------------------------------------------
+! RNEGAT    : first Pisvejc's constant in ACQWLSR and TL/AD
+! RNLCURV   : second Pisvejc's constant in ACQWLSR and TL/AD
+REAL(KIND=JPRB) :: RNEGAT
+REAL(KIND=JPRB) :: RNLCURV
+!     EDK : NOUVEAU PARAMETRE POUR LES FONCTIONS DE LOUIS EN CAS STABLE.
+!     XKLM : PARAMETRE POUR L UTILSATION DE HCLP POUR LE CALCUL DE L.
+REAL(KIND=JPRB) :: EDK
+REAL(KIND=JPRB) :: XKLM
+!     PARAMETRE POUR LE TKE AVEC LPBLE (Top-entrainment).
+REAL(KIND=JPRB) :: AGRE1
+REAL(KIND=JPRB) :: AGRERICR
+REAL(KIND=JPRB) :: AJBUMIN
+REAL(KIND=JPRB) :: RCOFLM
+
+
+!*
+!     ------------------------------------------------------------------
+!     PARAMETRES POUR LA PHYSIQUE
+!     ------------------------------------------------------------------
+
+! TRENTRV : Taux Relatif d'ENTRainement du Vent.
+! TRENTRV : RELATIVE WIND'S ENTRAINMENT RATE.
+
+! TENTRVL : TAUX D'ENTRAINEMENT V. Lorant
+! TENTRVL : V. Lorant ENTRAINMENT RATE.
+
+!*
+!     ------------------------------------------------------------------
+!     For old ACCVIMP :
+!     ------------------------------------------------------------------
+REAL(KIND=JPRB) :: TENTRVL
+REAL(KIND=JPRB) :: TRENTRV
+
+!*
+!     ------------------------------------------------------------------
+!     For TKE scheme :
+!     ------------------------------------------------------------------
+REAL(KIND=JPRB) :: UETEPS
+REAL(KIND=JPRB) :: UPRECLP
+REAL(KIND=JPRB) :: ARSC2
+REAL(KIND=JPRB) :: ARSCT
+
+!*
+!     ------------------------------------------------------------------
+!     For Grenier (2000) top-PBL entrainment scheme :
+!     ------------------------------------------------------------------
+REAL(KIND=JPRB) :: AGRE2
+REAL(KIND=JPRB) :: AGREF
+
+!*
+!     ------------------------------------------------------------------
+!     For dry conv. adjustment scheme :
+!     ------------------------------------------------------------------
+REAL(KIND=JPRB)    :: AJ1MEPS
+REAL(KIND=JPRB)    :: AJ1PEPS
+INTEGER(KIND=JPIM) :: NAJITER
+
+!*
+!     ------------------------------------------------------------------
+!     For ACCVIMPGY :
+!     ------------------------------------------------------------------
+! ALFX    : FRACTION D'ASCENDANCE CONVECTIVE MAXIMUM
+! TCTC    : PARAMETRE POUR LE SCHEMA DE PRECIPITATIONS CONVECTIVES
+! TVFC    : PARAMETRE POUR LE SCHEMA DE PRECIPITATIONS CONVECTIVES
+! GAMAP1  : PARAMETRE DE MASSE VIRTUELLE + 1.
+! RKDN    : COEFFICIENT DE RESISTANCE MINIMUM
+! VVN     : VITESSE VERTICALE MIN POUR L'ENTRAINEMENT TURBULENT.
+! VVX     : VITESSE VERTICALE MAX POUR L'ENTRAINEMENT TURBULENT.
+! FENTRT  : FACTEUR DE L'ENTRAINEMENT TURBULENT POUR NIVEAU DE DETRAINEMENT.
+! HCMIN   : HAUTEUR CONVECTIVE MINIMALE.
+! FQLIC   : FACTEUR DE L'EAU LIQUIDE CONVECTIVE
+! FNEBC   : FACTEUR DE LA NEBULOSITE CONVECTIVE
+! FEVAPC  : FACTEUR D'EVAPAPORATION DES PRECIPITATIONS
+REAL(KIND=JPRB)    :: ALFX
+REAL(KIND=JPRB)    :: TCTC
+REAL(KIND=JPRB)    :: TVFC
+REAL(KIND=JPRB)    :: GAMAP1
+REAL(KIND=JPRB)    :: RKDN
+REAL(KIND=JPRB)    :: VVN
+REAL(KIND=JPRB)    :: VVX
+REAL(KIND=JPRB)    :: FENTRT
+REAL(KIND=JPRB)    :: HCMIN
+REAL(KIND=JPRB)    :: FQLIC
+REAL(KIND=JPRB)    :: FNEBC
+REAL(KIND=JPRB)    :: FEVAPC
+
+!*
+!     ------------------------------------------------------------------
+!     For ALARO-0 :
+!     ------------------------------------------------------------------
+!
+! RDPHIC   : REFERENCE GEOPOTENTIAL FOR CLOUDINESS ADJUSTMENT.
+! GWBFAUT  : GAIN FOR THE WEGENER BERGERON FINDEISEN PROCESS IN ACAUTO
+! RWBF1    : FIRST TUNING CONSTANT FOR BERGERON FINDEISEN PROCESS
+! RWBF2    : SECOND TUNING CONSTANT FOR BERGERON FINDEISEN PROCESS
+!               IN ACPLUIE_PROG
+!
+! RAUITN   : TEMPERATURE LEVELS FOR RQICRMIN
+! RAUITX   : TEMPERATURE LEVELS FOR RQICRMAX
+! RAUIUSTE : INVERSE OF CHARACTERISTIC DTEMPER. FOR RAUTEFS
+! RSMDNEBX : MAX CLOUDINESS VERTICAL INCREMENT ALLOWED
+!            IF MSMDNEB=2 (ACSMI1)
+! RSMDTX   : MAX TEMPERATURE INCREMENT IN 1 TIME STEP
+!            ALLOWED FROM RESOLVED CONDENSATION (ACQMESM)
+! NSMTPA   : NUMBER OF LEVELS BELOW Tt LEVEL FOR LSMTPS SMOOTHING
+! NSMTPB   : NUMBER OF LEVELS ABOVE Tt LEVEL FOR LSMTPS SMOOTHING
+!
+! ------------------------------------------------------------------
+!
+REAL(KIND=JPRB) :: RDPHIC
+REAL(KIND=JPRB) :: GWBFAUT
+REAL(KIND=JPRB) :: RWBF1
+REAL(KIND=JPRB) :: RWBF2
+REAL(KIND=JPRB) :: RAUITN
+REAL(KIND=JPRB) :: RAUITX
+REAL(KIND=JPRB) :: RAUIUSTE
+REAL(KIND=JPRB) :: RSMDNEBX
+REAL(KIND=JPRB) :: RSMDTX
+INTEGER (KIND=JPIM) :: NSMTPA
+INTEGER (KIND=JPIM) :: NSMTPB
+
+REAL(KIND=JPRB),ALLOCATABLE :: RHCRI(:)
+INTEGER (KIND=JPIM) :: NRHCRI
+
+!     ------------------------------------------------------------------
+END MODULE YOMPHY0
Index: LMDZ5/trunk/libf/phylmd/rrtm/yomphy1.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yomphy1.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yomphy1.F90	(revision 1989)
@@ -0,0 +1,306 @@
+MODULE YOMPHY1
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!*
+!     ------------------------------------------------------------------
+!     CONSTANTES PHYSIQUES REGLABLES INTERVENANT DANS LA DEFINITION DU
+!     SOL, DE LA NEIGE OU DE LA VEGETATION :
+!       ALB1    : COEFF. POUR LE SCHEMA (LVGSN).
+!               : COEFF. FOR THE SNOW SCHEME (LVGSN).
+!       ALB2    : COEFF. POUR LE SCHEMA (LVGSN).
+!               : COEFF. FOR THE SNOW SCHEME (LVGSN).
+!       ALBGLA  : ALBEDO BANQUISE (SANS NEIGE).
+!               : SNOW FREE SEA-ICE ALBEDO.
+!       ALBMAX  : ALBEDO MAXIMUM DE LA NEIGE.
+!               : MAXIMUM SNOW ALBEDO.
+!       ALBMER  : ALBEDO MER.
+!               : OPEN SEA ALBEDO.
+!       ALBMED  : ALBEDO MER DIFFUS.
+!               : OPEN SEA DIFFUSE ALBEDO.
+!       ALBMIN  : ALBEDO MINIMUM DE LA NEIGE.
+!               : MINIMUM SNOW ALBEDO.
+!       ALCRIN  : ALBEDO DE LA NEIGE.
+!               : SNOW ALBEDO.
+!       ALRCN1  : PREMIERE CONSTANTE POUR L'INFLUENCE NEIGEUSE SUR Z0.
+!               : FIRST CONSTANT FOR THE SNOW'S INFLUENCE ON Z0.
+!       ALRCN2  : DEUXIEME CONSTANTE POUR L'INFLUENCE NEIGEUSE SUR Z0.
+!               : SECOND CONSTANT FOR THE SNOW'S INFLUENCE ON Z0.
+!       EA      : EXPOSANT DANS LE SCHEMA SOL-VEGETATION
+!               : EXPONENT IN THE SOIL-VEGETATION SCHEME
+!       EC2REF  : IDEM
+!       EMCRIN  : EMISSIVITE DE LA NEIGE.
+!               : SNOW EMISSIVITY.
+!       EMMGLA  : EMISSIVITE DE LA BANQUISE
+!               : SEA-ICE EMISSIVITY.
+!       EMMMER  : EMISSIVITE DE LA MER
+!               : OPEN SEA EMISSIVITY.
+!       EWFC    : EXPOSANT DANS LE SCHEMA SOL-VEGETATION
+!               : EXPONENT IN THE SOIL-VEGETATION SCHEME
+!       EWWILT  : IDEM
+!       GA      : COEFFICIENT DE REGRESSION DANS LE SCHEMA SOL-VEGETATION
+!               : REGRESSION COEFFICIENT IN THE SOIL-VEGETATION SCHEME
+!       GC1     : IDEM.
+!       GC1S1, GC1S2, GC1S3, GC1S4 : COEFFICIENT POUR LE C1 PHASE VAPEUR
+!                                  : COEFFICIENT FOR C1 VAPOUR PHASE
+!       GTSVAP  : =0 PTS VARIABLE POUR LE CALCUL DU MAX DE C1. SI < 0 -GTSVAP
+!                 REPRESENTE LA TEMPERATURE CONSTANTE EN DEGRE CELSIUS
+!                 =0 PTS VARIABLE FOR THE COMPUTATION OF THE MAX OF C1. IF
+!                 < 0 -GTSVAP IS CONSTANT TEMPERATURE IN DEGRE
+!       GC1Y1   : VALEUR DU C1 POUR WS=0 POUR LA PHASE VAPEUR DE C1
+!               : VALUE OF C1 FOR WS=0 FOR VAPOUR PHASE OF C1
+!       GVEGMX,GLAIMX,GNEIMX,GWPIMX,GCGEL: COEFF POUR EAU GELEE DU SOL PROFOND.
+!       GVEGMX,GLAIMX,GNEIMX,GWPIMX,GCGEL: COEFF FOR ICE IN DEEP SOIL.
+!       GVEGMXS,GLAIMXS,GNEIMXS,GCGELS: COEFF POUR EAU GELEE DE SURFACE.
+!       GVEGMXS,GLAIMXS,GNEIMXS,GCGELS: COEFF FOR ICE IN THE SUPERFICIAL
+!               RESERVOIR.
+!       GC2     : REGRESSION COEFFICIENT IN THE SOIL-VEGETATION SCHEME
+!       GC2REF  : IDEM.
+!       GC3     : IDEM.
+!       GCZ0H   : IDEM.
+!       GC31    : COEFFICIENT POUR LE DRAINAGE PROFOND (SOL-VEGETATION)
+!               : COEFFICIENT FOR THE DEEP SOIL DRAINAGE (SOIL-VEGETATION)
+!       GC32    : IDEM
+!       GCONV   : FACTEUR DE CHANGEMENT D'UNITE (MASSE VOL. DE L'EAU LIQUIDE)
+!       GF1     : COEFFICIENT DE LA FONCTION F1 (SOL-VEGETATION).
+!               : COEFFICIENT FOR THE FUNCTION F1 (SOIL-VEGETATION).
+!       GF3(18) : COEFFICIENT DE LA FONCTION F3 (SOL-VEGETATION)
+!               : COEFFICIENT FOR THE FUNCTION F3 (SOIL-VEGETATION)
+!       GF4(18) : COEFFICIENT DE LA FONCTION F4 (SOL-VEGETATION)
+!               : COEFFICIENT FOR THE FUNCTION F4 (SOIL-VEGETATION)
+!       GWFC    : COEFFICIENT DE REGRESSION DANS LE SCHEMA SOL-VEGETATION
+!               : REGRESSION COEFFICIENT IN THE SOIL-VEGETATION SCHEME
+!       GWWILT  : IDEM.
+!       G1B     : IDEM.
+!       G1CGSAT : IDEM.
+!       G1C1SAT : IDEM.
+!       G1P     : COEFFICIENT DE REGRESSION DANS LE SCHEMA SOL-VEGETATION
+!               : REGRESSION COEFFICIENT IN THE SOIL-VEGETATION SCHEME
+!       G1WSAT  : IDEM.
+!       G2B     : IDEM.
+!       G2CGSAT : IDEM.
+!       G2C1SAT : IDEM.
+!       G2P     : IDEM.
+!       G2WSAT  : IDEM.
+!       G3CGSAT : IDEM.
+!       GSNC1   : IDEM (LSNV).
+!       GSNC2   : IDEM (LSNV).
+!       GWLEX   : (WL/WLMX)**GWLEX POUR LE CALCUL DU COEF. D'HALSTEAD.
+!               : (WL/WLMX)**GWLEX FOR THE HALSTEAD COEF.
+!       GWLMX   : COEFFICIENT POUR LE RESERVOIR D'INTERCEPTION MAX.
+!               : COEFFICIENT FOR INTERCEPTION WATER CONTENT.
+!       HSOL    : INVERSE DE L'INERTIE DU SOL EN SURFACE.
+!               : INVERSE OF THE SURFACE SOIL INERTIA.
+!       HSOLIWR : INVERSE DE LA QUANTITE CRITIQUE EN EAU (CALCUL DE HSOL).
+!               : INVERSE OF CRITICAL SOIL WATER CONTENT (HSOL COMPUTATION).
+!       HSOLIT0 : INVERSE DE LA LARGEUR CRITIQUE EN TEMPERATURE (CALCUL DE HSOL).
+!               : INVERSE OF TEMPERATURE CRITICAL DEVIATION (HSOL COMPUTATION).
+!       NTVGLA  : INDICE DE VEGETATION SUR GLACE.
+!               : VEGETATION INDEX OVER ICE.
+!       NTVMER  : INDICE DE VEGETATION SUR MER.
+!               : VEGETATION INDEX OVER SEA.
+!       OMTPRO  : 2 PI SUR LA PER. DE RAPP. DE LA TEMPERATURE PROFONDE.
+!               : 2 PI DIVIDED BY THE TIME CONSTANT OF DEEP TEMPERATURE.
+!       OMWPRO  : 1.   SUR LA PER. DE RAPP. DU CONTENU EN EAU PROFOND.
+!               : 1.   DIVIDED BY THE TIME CONSTANT OF DEEP SOIL WATER.
+!       RC1MAX  : VALEUR MAXIMALE DU COEFFICIENT HYDRIQUE G1=C1/RD1
+!               : MAXIMUM VALUE FOR THE HYDRIC COEFFICIENT G1
+!       RCTGLA  : COEFFICIENT THERMIQUE DE LA GLACE
+!               : ICE THERMAL COEFFICIENT.
+!       RCGMAX  : COEFFICIENT THERMIQUE DU SOL NU MAXIMUM
+!               : MAXIMUM THERMAL BARE GROUND COEFFICIENT.
+!       RCTVEG  : COEFFICIENT THERMIQUE DE LA VEGETATION.
+!          (18) : VEGETATION THERMAL COEFFICIENT.
+!       RD1     : EPAISSEUR DU RESERVOIR SUPERFICIEL.
+!               : UPPER RESERVOIR DEPTH.
+!       RD2GLA  : EPAISSEUR DU RESERVOIR BANQUISE.
+!               : SEA-ICE RESERVOIR DEPTH.
+!       RD2MER  : EPAISSEUR DU RESERVOIR MER.
+!               : OPEN SEA RESERVOIR DEPTH.
+!       RGL(18) : VALEUR LIMITE DU RAYONNEMENT GLOBAL DEPENDANT DU TYPE
+!                 DE VEGETATION. RGL INTERVIENT DANS LE CALCUL DE RSTO.
+!               : VEGETATION RADIATIVE COEFFICIENT LIMITING GLOBAL
+!                 RADIATION. RGL IS USED IN THE COMPUTATION OF RSTO.
+!       RHOMAX  : DENSITE MAXIMUM DE LA NEIGE.
+!               : MAXIMUM SNOW DENSITY.
+!       RHOMIN  : DENSITE MINIMUM DE LA NEIGE.
+!               : MINIMUM SNOW DENSITY.
+!       RLAIMX  : LAI MAX POUR LE SCHEMA (LVGSN).
+!               : LAI MAX FOR THE SNOW SCHEME (LVGSN).
+!       RLAI    : LAI A PARTIR DUQUEL ON REDUIT LA FRACTION DE NEIGE (LVGSN).
+!               : LAI FROM WHICH THE SNOW FRACTION IS REDUCED (LVGSN).
+!       RSMAX   : RESISTANCE STOMATIQUE MAXIMALE.
+!               : MAXIMUM STOMATAL RESISTANCE
+!       RTINER  : RAPPORT DES INERTIES THERMIQUES PROFONDEUR/SURFACE.
+!               : RATIO OF THE DEEP/SURFACE THERMAL INERTIAS.
+!       RZ0GLA  : LONGUEUR RUGOSITE DYNAMIQUE DE LA BANQUISE
+!               : DYNAMICAL ROUGHNESS LENGTH OF SEA-ICE
+!       RZ0MER  : LONGUEUR RUGOSITE DYNAMIQUE DE LA MER
+!               : DYNAMICAL ROUGHNESS LENGTH OF SEA
+!       RZHZ0G  : RAPPORT LONGUEUR DE RUGOSITE THERMIQUE SUR LONGUEUR
+!                 RUGOSITE DYNAMIQUE DE LA BANQUISE
+!               : RATIO OF THERMAL ROUGHNESS LENGTH ON DYNAMICAL 
+!                 ROUGHNESS LENGTH OF SEA-ICE
+!       RZHZ0M  : RAPPORT LONGUEUR DE RUGOSITE THERMIQUE SUR LONGUEUR
+!                 RUGOSITE DYNAMIQUE DE LA MER
+!               : RATIO OF THERMAL ROUGHNESS LENGTH ON DYNAMICAL 
+!                 ROUGHNESS LENGTH OF SEA
+!       SODELX(0:9): DISCRETISATION VERTICALE DU SOL (MAXI 10 COUCHES)
+!                : SOIL VERTICAL DISCRETIZATION (MAX 10 LAYERS)
+!       TMERGL  : TEMPERATURE DE FONTE DE LA GLACE DE MER.
+!               : MELTING TEMPERATURE OF FLOATING ICE.
+!       TOEXP   : TAUX DE DECROISSANCE EXPONENTIELLE DE L'ALBEDO ET
+!                 ET DE LA DENSITE DE LA NEIGE EN PERIODE DE FONTE.
+!               : RATE OF EXPONENTIAL DECREASE IN SNOW ALBEDO AND DENSITY
+!                 DURING SNOW MELT.
+!       TOLIN   : TAUX DE DECROISSANCE LINEAIRE DE L'ALBEDO DE LA NEIGE
+!                 EN PERIODE D'ACCUMULATION.
+!               : RATE OF LINEAR DECREASE IN SNOW ALBEDO
+!                 DURING SNOW ACCUMULATION.
+!       TREF4(18): TEMPERATURE SEUIL DE LA FONCTION F4 (SOL-VEGETATION)
+!                : THRESHOLD TEMPERATURE IN F4 FUNCTION (SOIL-VEGETATION)
+!       WCRIN   : QUANTITE CRITIQUE POUR LA NEIGE MI-COUVRANTE.
+!               : CRITICAL TRANSITION VALUE FOR SNOW DEPTH (HALF-COVER).
+!       WCRINC  : QUANTITE CRITIQUE POUR LA NEIGE MI-COUVRANTE.
+!                 (CALCULS THERMIQUES)
+!               : CRITICAL TRANSITION VALUE FOR SNOW DEPTH (HALF-COVER).
+!                 (THERMIC CALCULATIONS)
+!       WCRING  : QUANTITE CRITIQUE POUR LA NEIGE MI-COUVRANTE.
+!                 (CALCULS RADIATIFS ET EVAPORATION)
+!               : CRITICAL TRANSITION VALUE FOR SNOW DEPTH (HALF-COVER).
+!                 (RADIATIVE CALCULATIONS AND EVAPORATION)
+!       WNEW    : PRECIPITIONS DE NEIGE MINIMUM (MM) POUR RENOUVELER
+!                 L'ALBEDO DE LA NEIGE.
+!               : MINIMUM SNOWFALL (MM) TO RENEW THE SNOW ALBEDO.
+!       WPMX    : VALEUR MAXIMUN POUR LE CONTENU EN EAU EN PROFONDEUR.
+!               : MAXIMUM VALUE FOR DEEP SOIL WATER CONTENT.
+!       WSMX    : VALEUR MAXIMUN POUR LE CONTENU EN EAU DE SURFACE.
+!               : MAXIMUM VALUE FOR SURFACE SOIL WATER CONTENT.
+!       XCRINR  : COEFFICIENT DANS LE FACTEUR ZNR DETERMINANT
+!                 L'INFLUENCE DU RELIEF SOUS-MAILLE
+!                 SUR LES FRACTIONS DE NEIGE
+!               : COEFFICIENT IN THE FACTOR ZNR DETERMINING
+!                 THE INFLUENCE OF SUBGRID OROGRAPHY
+!                 ON THE SNOW COVER FRACTIONS
+!       XCRINV  : COEFFICIENT DE LA FRACTION PNEIJV DE NEIGE RECOUVRANT
+!                 LA VEGETATION.
+!               : COEFFICIENT FOR THE FRACTION PNEIJV OF SNOW COVERING
+!                 THE CANOPY.
+!       LIMC    : BORNE SUPERIEURE POUR CT
+!               : UPPER BOUND FOR CT
+!       LIMW    : CONTROLE DE W/Wwilt POUR CG,C1,C2
+!               : CHECKING W/Wwilt
+!       LC1VAP  : PHASE VAPEUR POUR LE C1
+!               : VAPOUR PHASE FOR C1
+
+REAL(KIND=JPRB) :: GF3(18)
+REAL(KIND=JPRB) :: GF4(18)
+REAL(KIND=JPRB) :: TREF4(18)
+REAL(KIND=JPRB) :: RCTVEG(18)
+REAL(KIND=JPRB) :: RGL(18)
+REAL(KIND=JPRB) :: SODELX(0:9)
+REAL(KIND=JPRB) :: GCZ0H(0:3,4)
+REAL(KIND=JPRB) :: ALBGLA
+REAL(KIND=JPRB) :: ALBMAX
+REAL(KIND=JPRB) :: ALBMER
+REAL(KIND=JPRB) :: ALBMED
+REAL(KIND=JPRB) :: ALBMIN
+REAL(KIND=JPRB) :: ALCRIN
+REAL(KIND=JPRB) :: ALRCN1
+REAL(KIND=JPRB) :: ALRCN2
+REAL(KIND=JPRB) :: EA
+REAL(KIND=JPRB) :: EC2REF
+REAL(KIND=JPRB) :: EMCRIN
+REAL(KIND=JPRB) :: EMMGLA
+REAL(KIND=JPRB) :: EMMMER
+REAL(KIND=JPRB) :: EWFC
+REAL(KIND=JPRB) :: EWWILT
+REAL(KIND=JPRB) :: GA
+REAL(KIND=JPRB) :: GC1
+REAL(KIND=JPRB) :: GC1S1
+REAL(KIND=JPRB) :: GC1S2
+REAL(KIND=JPRB) :: GC1S3
+REAL(KIND=JPRB) :: GC1S4
+REAL(KIND=JPRB) :: GC1Y1
+REAL(KIND=JPRB) :: GTSVAP
+REAL(KIND=JPRB) :: GVEGMX
+REAL(KIND=JPRB) :: GLAIMX
+REAL(KIND=JPRB) :: GNEIMX
+REAL(KIND=JPRB) :: GWPIMX
+REAL(KIND=JPRB) :: GCGEL
+REAL(KIND=JPRB) :: GC2
+REAL(KIND=JPRB) :: GC2REF
+REAL(KIND=JPRB) :: GC3
+REAL(KIND=JPRB) :: GC31
+REAL(KIND=JPRB) :: GC32
+REAL(KIND=JPRB) :: GCONV
+REAL(KIND=JPRB) :: GF1
+REAL(KIND=JPRB) :: GWFC
+REAL(KIND=JPRB) :: GWLEX
+REAL(KIND=JPRB) :: GWLMX
+REAL(KIND=JPRB) :: GWWILT
+REAL(KIND=JPRB) :: G1B
+REAL(KIND=JPRB) :: G1CGSAT
+REAL(KIND=JPRB) :: G1C1SAT
+REAL(KIND=JPRB) :: G1P
+REAL(KIND=JPRB) :: G1WSAT
+REAL(KIND=JPRB) :: G2B
+REAL(KIND=JPRB) :: G2CGSAT
+REAL(KIND=JPRB) :: G2C1SAT
+REAL(KIND=JPRB) :: G2P
+REAL(KIND=JPRB) :: G2WSAT
+REAL(KIND=JPRB) :: G3CGSAT
+REAL(KIND=JPRB) :: GSNC1
+REAL(KIND=JPRB) :: GSNC2
+REAL(KIND=JPRB) :: HSOL
+REAL(KIND=JPRB) :: HSOLIWR
+REAL(KIND=JPRB) :: HSOLIT0
+REAL(KIND=JPRB) :: OMTPRO
+REAL(KIND=JPRB) :: OMWPRO
+REAL(KIND=JPRB) :: RC1MAX
+REAL(KIND=JPRB) :: RCTGLA
+REAL(KIND=JPRB) :: RCGMAX
+REAL(KIND=JPRB) :: RD1
+REAL(KIND=JPRB) :: RD2GLA
+REAL(KIND=JPRB) :: RD2MER
+REAL(KIND=JPRB) :: RHOMAX
+REAL(KIND=JPRB) :: RHOMIN
+REAL(KIND=JPRB) :: RSMAX
+REAL(KIND=JPRB) :: RTINER
+REAL(KIND=JPRB) :: RZ0GLA
+REAL(KIND=JPRB) :: RZ0MER
+REAL(KIND=JPRB) :: RZHZ0G
+REAL(KIND=JPRB) :: RZHZ0M
+REAL(KIND=JPRB) :: RZHGLA
+REAL(KIND=JPRB) :: RZHMER
+REAL(KIND=JPRB) :: TMERGL
+REAL(KIND=JPRB) :: TOEXP
+REAL(KIND=JPRB) :: TOLIN
+REAL(KIND=JPRB) :: WCRIN
+REAL(KIND=JPRB) :: WCRINC
+REAL(KIND=JPRB) :: WCRING
+REAL(KIND=JPRB) :: WNEW
+REAL(KIND=JPRB) :: WPMX
+REAL(KIND=JPRB) :: WSMX
+REAL(KIND=JPRB) :: XCRINR
+REAL(KIND=JPRB) :: XCRINV
+LOGICAL :: LIMC
+LOGICAL :: LIMW
+LOGICAL :: LC1VAP
+INTEGER(KIND=JPIM) :: NTVGLA
+INTEGER(KIND=JPIM) :: NTVMER
+REAL(KIND=JPRB) :: GCGELS
+REAL(KIND=JPRB) :: GVEGMXS
+REAL(KIND=JPRB) :: GLAIMXS
+REAL(KIND=JPRB) :: GNEIMXS
+REAL(KIND=JPRB) :: ALB1
+REAL(KIND=JPRB) :: ALB2
+REAL(KIND=JPRB) :: RLAIMX
+REAL(KIND=JPRB) :: RLAI
+INTEGER(KIND=JPIM) :: NCHSP
+!     ------------------------------------------------------------------
+END MODULE YOMPHY1
Index: LMDZ5/trunk/libf/phylmd/rrtm/yomphy2.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yomphy2.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yomphy2.F90	(revision 1989)
@@ -0,0 +1,67 @@
+MODULE YOMPHY2
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!*
+!     ------------------------------------------------------------------
+!     CONSTANTES DEFINISSANT LE CONTEXTE DE L'EXPERIENCE POUR LA
+!     PHYSIQUE : DISCRETISATION TEMPORELLE, STRUCTURE VERTICALE,
+!     SORTIES.
+!       TSPHY     : PAS DE TEMPS DE LA PHYSIQUE.
+!                 : PHYSICS TIME STEP.
+!       XMUCVPP   : FACTEUR DE CVPP POUR "ANTI-FIBRIL.". 
+!                 : "ANTI-FIBRIL." FACTOR FOR CVPP.
+!       XMULAF    : FACTEUR "ANTI-FIBRIL." (1. RECOMMANDE SI ACTIF).
+!                 : "ANTI-FIBRIL." FACTOR (1. RECOMMENDED IF ACTIVATED).
+!       XDAMP     : DAMPING FACTOR USED IN THE NEW TREATMENT OF
+!                   SHALLOW CONVECTION.
+!                   IF ZERO => OLD TREATMENT
+!                   IF /= 0 => XMUCVPP SHOULD BE ZERO
+!       LMULAF    : CONTROL DE l'ANTI-FIBRIL. SUR LA VERTICALE
+!                 : CONTROL "ANTI-FIBRIL." ON VERTICAL
+!       HCLP      : HAUTEUR MOYENNE DE LA CLP ( EN GENERAL 1500M ).
+!                 : MEAN PBL DEPTH ( IN GENERAL 1500M ).
+!       HTCLS     : HAUTEUR METEO POUR T ET Q ( EN GENERAL 2M ).
+!                 : SCREEN HEIGHT FOR T AND Q ( IN GENERAL 2M ).
+!       HVCLS     : HAUTEUR METEO POUR U ET V ( EN GENERAL 10M ).
+!                 : MEASURING HEIGHT FOR U AND V (IN GENERAL 10M ).
+
+!       HTSHM     : HAUTEUR DE TRANSITION EN "S" NUAGES HAUTS/MOYENS.
+!                 : TRANSITION HEIGHT IN "S" COORDINATE H/M CLOUDS.
+!       HTSML     : HAUTEUR DE TRANSITION EN "S" NUAGES MOYENS/BAS.
+!                 : TRANSITION HEIGHT IN "S" COORDINATE M/L CLOUDS.
+!       NTSHM     : INDICE DU NIVEAU DE TRANSITION NUAGES HAUTS/MOYENS.
+!                 : TRANSITION LEVEL BETWEEN HIGH/MEDIUM CLOUDS.
+!       NTSML     : INDICE DU NIVEAU DE TRANSITION NUAGES MOYENS/BAS.
+!                 : TRANSITION LEVEL BETWEEN MEDIUM/LOW CLOUDS.
+!       RIPBLC    : VALEUR CRITIQUE DU NOMBRE DE RICHARDSON POUR LE CALCUL DE LA HAUTEUR DE LA CLP
+!                 : CRITICAL VALUE OF RICHARDSON'S NUMBER TO COMPUTE THE HEIGHT OF PBL.
+!       LRAFTUR   : ACTIVATION DU DIAGNOSTIC DES RAFALES TURBULENTES
+!                   ACTIVATE DIAGNOSTIC OF TURBULENT GUSTS
+!       GZ0RAF    : Z0 FOIS G UTILISE POUR LE CALCUL DES RAFALES TURBULENTES
+!                   Z0 TIMES G USED TO COMPUTE TURBULENT GUSTS
+!       FACRAF    : COEFFICIENT DE CALCUL DES RAFALES TURBULENTES
+!                   COEFFICIENT FOR THE COMPUTATION OF TURBULENT GUSTS
+
+INTEGER(KIND=JPIM) :: NTSHM
+INTEGER(KIND=JPIM) :: NTSML
+REAL(KIND=JPRB) :: TSPHY
+REAL(KIND=JPRB) :: XMUCVPP
+REAL(KIND=JPRB) :: XMULAF
+REAL(KIND=JPRB) :: XDAMP
+REAL(KIND=JPRB) :: HCLP
+REAL(KIND=JPRB) :: HTCLS
+REAL(KIND=JPRB) :: HVCLS
+REAL(KIND=JPRB) :: HTSHM
+REAL(KIND=JPRB) :: HTSML
+REAL(KIND=JPRB) :: RIPBLC
+REAL(KIND=JPRB) :: GZ0RAF
+REAL(KIND=JPRB) :: FACRAF
+LOGICAL :: LRAFTUR
+LOGICAL :: LMULAF
+!     ------------------------------------------------------------------
+END MODULE YOMPHY2
Index: LMDZ5/trunk/libf/phylmd/rrtm/yomphy3.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yomphy3.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yomphy3.F90	(revision 1989)
@@ -0,0 +1,194 @@
+MODULE YOMPHY3
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!*
+!     ------------------------------------------------------------------
+!     CONSTANTES PHYSIQUES REGLABLES UTILISEES POUR LES CALCULS
+!     RADIATIFS :
+!       BSFSA   : "BACK-SCATTERED FRACTION" SOLAIRE POUR LES AEROSOLS.
+!               : SOLAR "BACK-SCATTERED FRACTION" FOR AEROSOLS.
+!       BSFSI   : "BACK-SCATTERED FRACTION" SOLAIRE POUR LA GLACE.
+!               : SOLAR "BACK-SCATTERED FRACTION" FOR ICE CLOUDS.
+!       BSFSN   : "BACK-SCATTERED FRACTION" SOLAIRE POUR LES NUAGES.
+!               : SOLAR "BACK-SCATTERED FRACTION" FOR CLOUDS.
+!       BSFTA   : "BACK-SCATTERED FRACTION" THERMIQUE POUR LES AEROSOLS.
+!               : THERMAL "BACK-SCATTERED FRACTION" FOR AEROSOLS.
+!       BSFTI   : "BACK-SCATTERED FRACTION" THERMIQUE POUR LA GLACE.
+!               : THERMAL "BACK-SCATTERED FRACTION" FOR ICE CLOUDS.
+!       BSFTN   : "BACK-SCATTERED FRACTION" THERMIQUE POUR LES NUAGES.
+!               : THERMAL "BACK-SCATTERED FRACTION" FOR CLOUDS.
+!       EARRT   : EPAISSEUR DE L'ATMOSPHERE  /  RAYON DE LA TERRE.
+!               : RATIO "DEPTH OF THE ATMOSPHERE / EARTH'S RADIUS".
+!       EOASA   : COEFFICIENT D'ABSORPTION SOLAIRE PAR LES AEROSOLS.
+!               : SOLAR ABSORPTION COEFFICIENT FOR AEROSOLS.
+!       EOASI   : COEFFICIENT D'ABSORPTION SOLAIRE PAR LA GLACE.
+!               : SOLAR ABSORPTION COEFFICIENT FOR ICE CLOUDS.
+!       EOASN   : COEFFICIENT D'ABSORPTION SOLAIRE PAR LES NUAGES.
+!               : SOLAR ABSORPTION COEFFICIENT FOR CLOUDS.
+!       EOATA   : COEFFICIENT D'ABSORPTION THERMIQUE PAR LES AEROSOLS.
+!               : THERMAL ABSORPTION COEFFICIENT FOR AEROSOLS.
+!       EOATI   : COEFFICIENT D'ABSORPTION THERMIQUE PAR LA GLACE.
+!               : THERMAL ABSORPTION COEFFICIENT FOR ICE CLOUDS.
+!       EOATN   : COEFFICIENT D'ABSORPTION THERMIQUE PAR LES NUAGES.
+!               : THERMAL ABSORPTION COEFFICIENT FOR CLOUDS.
+!       EODSA   : COEFFICIENT DE DIFFUSION SOLAIRE PAR LES AEROSOLS.
+!               : SOLAR SCATTERING COEFFICIENT FOR AEROSOLS.
+!       EODSI   : COEFFICIENT DE DIFFUSION SOLAIRE PAR LA GLACE.
+!               : SOLAR SCATTERING COEFFICIENT FOR ICE CLOUDS.
+!       EODSN   : COEFFICIENT DE DIFFUSION SOLAIRE PAR LES NUAGES.
+!               : SOLAR SCATTERING COEFFICIENT FOR CLOUDS.
+!       EODTA   : COEFFICIENT DE DIFFUSION THERMIQUE PAR LES AEROSOLS.
+!               : THERMAL SCATTERING COEFFICIENT FOR AEROSOLS.
+!       EODTI   : COEFFICIENT DE DIFFUSION THERMIQUE PAR LA GLACE.
+!               : THERMAL SCATTERING COEFFICIENT FOR ICE CLOUDS.
+!       EODTN   : COEFFICIENT DE DIFFUSION THERMIQUE PAR LES NUAGES.
+!               : THERMAL SCATTERING COEFFICIENT FOR CLOUDS.
+!       EORAY   : COEFFICIENT DE DIFFUSION RAYLEIGH.
+!               : RAYLEIGH SCATTERING COEFFICIENT.
+!       GCA(6)  : POUR LE CALCUL "WEAK LINE" DE LA LARGEUR EQUIVALENTE.
+!               : FOR THE "WEAK LINE" PART OF THE EQUIVALENT WIDTH.
+!       GCB(6)  : POUR LE CALCUL "STRONG LINE" DE LA LARGEUR EQUIVAL..
+!               : FOR THE "STRONG LINE" PART OF THE EQUIVALENT WIDTH.
+!       GCC(6)  : POUR LE CALCUL "CONTINUUM" DE LA LARGEUR EQUIVALENTE.
+!               : FOR THE "CONTINUUM" PART OF THE EQUIVALENT WIDTH.
+!       GCD4    : POUR LA CONTRIBUTION "E-TYPE" A GCC(4) (H2O THERM.).
+!               : FOR THE E-TYPE CONTRIBUTION TO GCC(4) (H2O THERM.).
+!       GCE4    : POUR LA DEPENDANCE EN TEMPERATURE DU "E-TYPE" (GCD4).
+!               : FOR THE TEMPERATURE DEPENDENCY OF THE E-TYPE (GCD4).
+!       GIREC*  : JEU DE COEFFICIENTS MODULANT L'INTERACTION INFRA-ROUGE ENTRE COUCHES.
+!               : COEFFICIENTS SET TO TUNE THE INFRA-RED EXCHANGE BETWEEN LAYERS.
+!       QCO2    : CONCENTRATION MASSIQUE DU CO2.
+!               : SPECIFIC RATIO OF CO2.
+!       QLIMI   : INVERSE DU QL+QI MAXIMUM POUR UNE NEBULOSITE DE UN.
+!               : INVERSE OF THE MAXIMUM QL+QI FOR CLOUD COVER ONE.
+!       QLIP0   : PRESSION DE REFERENCE POUR LE CALCUL DE PQLI ET PQICE.
+!               : SCALING PRESSURE FOR COMPUTING PQLI AND PQICE.
+!       RII0    : VALEUR INSTANTANNEE DE LA CONST. SOLAIRE (CYCLE ANN.).
+!               : INSTANTANEOUS VALUE OF THE SOLAR CONST. (ANN. CYCLE).
+!       USAA    : AU NUMERATEUR DE "L'UPSCATTERED FRACTION" CAS AEROS.
+!               : AT THE UPPER CASE OF THE UPSCATTERED FRACTION, AEROS.
+!       USAI    : AU NUMERATEUR DE "L'UPSCATTERED FRACTION" CAS GLACE.
+!               : AT THE UPPER CASE OF THE UPSCATTERED FRACTION, ICE.
+!       USAN    : AU NUMERATEUR DE "L'UPSCATTERED FRACTION" CAS NUAGES.
+!               : AT THE UPPER CASE OF THE UPSCATTERED FRACTION, CLOUDS.
+!       USBA    : AU DENOMINATEUR DE "L'UPSCATTERED FRACT." CAS AEROS.
+!               : AT THE LOWER CASE OF THE UPSCATTERED FRACTION, AEROS.
+!       USBI    : AU DENOMINATEUR DE "L'UPSCATTERED FRACT." CAS GLACE.
+!               : AT THE LOWER CASE OF THE UPSCATTERED FRACTION, ICE.
+!       USBN    : AU DENOMINATEUR DE "L'UPSCATTERED FRACT." CAS NUAGES.
+!               : AT THE LOWER CASE OF THE UPSCATTERED FRACTION, CLOUDS.
+!       VDP(5,6): AU DENOMINATEUR DES FONCTIONS DE PADE POUR LES GAZ.
+!               : AT THE LOWER CASE OF PADE FUNCTIONS FOR GASES.
+!       VNP(5,6): AU NUMERATEUR DES FONCTIONS DE PADE POUR LES GAZ.
+!               : AT THE UPPER CASE OF PADE FUNCTIONS FOR GASES.
+! Parameters for cloud model:
+!
+!   Notations:
+!     g      - asymmetry factor            (unscaled)
+!     k_abs  - mass absorption coefficient (delta-scaled)
+!     k_scat - mass scattering coefficient (delta-scaled)
+!     delta0 - unsaturated optical depth
+!     c_abs  - saturation factor for k_abs
+!     c_scat - saturation factor for k_scat
+!     iwc    - ice water content
+!     lwc    - liquid water content
+!
+!   First index of FCM arrays (FCM = Fitting parameters for Cloud Model)
+!   denotes spectral band:
+!     1      - solar
+!     2      - thermal
+!
+!   FCM_DEL_A(2)    : Critical value of delta0 for computation of c_abs.
+!   FCM_DEL_D(2)    : Critical value of delta0 for computation of c_scat.
+!   FCM_MU_A(2)     : Exponent mu for computation of c_abs.
+!   FCM_MU_D(2)     : Exponent mu for computation of c_scat.
+!   FCM_N_I         : Scaling exponent for iwc.
+!   FCM_N_L         : Scaling exponent for lwc.
+!   FCM_P_AI(2,0:3) : Pade coefficients in numerator for k_abs, ice.
+!   FCM_P_AL(2,0:3) : Pade coefficients in numerator for k_abs, liquid.
+!   FCM_P_DI(2,0:3) : Pade coefficients in numerator for k_scat, ice.
+!   FCM_P_DL(2,0:3) : Pade coefficients in numerator for k_scat, liquid.
+!   FCM_P_GI(2,0:3) : Pade coefficients in numerator for g, ice.
+!   FCM_P_GL(2,0:3) : Pade coefficients in numerator for g, liquid.
+!   FCM_Q_AI(2,1:3) : Pade coefficients in denominator for k_abs, ice.
+!   FCM_Q_AL(2,1:3) : Pade coefficients in denominator for k_abs, liquid.
+!   FCM_Q_DI(2,1:3) : Pade coefficients in denominator for k_scat, ice.
+!   FCM_Q_DL(2,1:3) : Pade coefficients in denominator for k_scat, liquid.
+!   FCM_Q_GI(2,1:3) : Pade coefficients in denominator for g, ice.
+!   FCM_Q_GL(2,1:3) : Pade coefficients in denominator for g, liquid.
+!   N_SPBAND        : Number of spectral bands.
+!   N_CLOUD_MODEL   : Version of cloud model:
+!                       0 - no dependency on iwc/lwc, mean saturation
+!                       1 - dependency on iwc/lwc, saturation based on
+!                           effective delta0 approach
+!   REXP_NEB        : Scaling exponent for cloud fraction in definition
+!                     of effective delta0.
+INTEGER(KIND=JPIM), PARAMETER :: N_SPBAND = 2
+
+REAL(KIND=JPRB) :: GCA(6)
+REAL(KIND=JPRB) :: GCB(6)
+REAL(KIND=JPRB) :: GCC(6)
+REAL(KIND=JPRB) :: VDP(5,6)
+REAL(KIND=JPRB) :: VNP(5,6)
+REAL(KIND=JPRB) :: BSFSA
+REAL(KIND=JPRB) :: BSFSI
+REAL(KIND=JPRB) :: BSFSN
+REAL(KIND=JPRB) :: BSFTA
+REAL(KIND=JPRB) :: BSFTI
+REAL(KIND=JPRB) :: BSFTN
+REAL(KIND=JPRB) :: EARRT
+REAL(KIND=JPRB) :: EOASA
+REAL(KIND=JPRB) :: EOASI
+REAL(KIND=JPRB) :: EOASN
+REAL(KIND=JPRB) :: EOATA
+REAL(KIND=JPRB) :: EOATI
+REAL(KIND=JPRB) :: EOATN
+REAL(KIND=JPRB) :: EODSA
+REAL(KIND=JPRB) :: EODSI
+REAL(KIND=JPRB) :: EODSN
+REAL(KIND=JPRB) :: EODTA
+REAL(KIND=JPRB) :: EODTI
+REAL(KIND=JPRB) :: EODTN
+REAL(KIND=JPRB) :: EORAY
+REAL(KIND=JPRB) :: GCD4
+REAL(KIND=JPRB) :: GCE4
+REAL(KIND=JPRB) :: QCO2
+REAL(KIND=JPRB) :: QLIMI
+REAL(KIND=JPRB) :: QLIP0
+REAL(KIND=JPRB) :: RII0
+REAL(KIND=JPRB) :: USAA
+REAL(KIND=JPRB) :: USAI
+REAL(KIND=JPRB) :: USAN
+REAL(KIND=JPRB) :: USBA
+REAL(KIND=JPRB) :: USBI
+REAL(KIND=JPRB) :: USBN
+REAL(KIND=JPRB) :: GIREC1
+REAL(KIND=JPRB) :: GIREC2
+REAL(KIND=JPRB) :: GIREC3
+REAL(KIND=JPRB) :: GIREC4
+REAL(KIND=JPRB) :: FCM_DEL_A(N_SPBAND)
+REAL(KIND=JPRB) :: FCM_DEL_D(N_SPBAND)
+REAL(KIND=JPRB) :: FCM_MU_A(N_SPBAND)
+REAL(KIND=JPRB) :: FCM_MU_D(N_SPBAND)
+REAL(KIND=JPRB) :: FCM_N_I
+REAL(KIND=JPRB) :: FCM_N_L
+REAL(KIND=JPRB) :: FCM_P_AI(N_SPBAND,0:3)
+REAL(KIND=JPRB) :: FCM_P_AL(N_SPBAND,0:3)
+REAL(KIND=JPRB) :: FCM_P_DI(N_SPBAND,0:3)
+REAL(KIND=JPRB) :: FCM_P_DL(N_SPBAND,0:3)
+REAL(KIND=JPRB) :: FCM_P_GI(N_SPBAND,0:3)
+REAL(KIND=JPRB) :: FCM_P_GL(N_SPBAND,0:3)
+REAL(KIND=JPRB) :: FCM_Q_AI(N_SPBAND,1:3)
+REAL(KIND=JPRB) :: FCM_Q_AL(N_SPBAND,1:3)
+REAL(KIND=JPRB) :: FCM_Q_DI(N_SPBAND,1:3)
+REAL(KIND=JPRB) :: FCM_Q_DL(N_SPBAND,1:3)
+REAL(KIND=JPRB) :: FCM_Q_GI(N_SPBAND,1:3)
+REAL(KIND=JPRB) :: FCM_Q_GL(N_SPBAND,1:3)
+REAL(KIND=JPRB) :: REXP_NEB
+!     ------------------------------------------------------------------
+END MODULE YOMPHY3
Index: LMDZ5/trunk/libf/phylmd/rrtm/yompldsw.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yompldsw.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yompldsw.F90	(revision 1989)
@@ -0,0 +1,12 @@
+MODULE YOMPLDSW
+
+! Platform dependent switches
+
+IMPLICIT NONE
+
+SAVE
+
+LOGICAL :: LOPT_SCALAR
+LOGICAL :: LOPT_RS6K
+!     ------------------------------------------------------------------
+END MODULE YOMPLDSW
Index: LMDZ5/trunk/libf/phylmd/rrtm/yomprad.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yomprad.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yomprad.F90	(revision 1989)
@@ -0,0 +1,147 @@
+MODULE YOMPRAD
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!----------------------------------------------------------------
+!*    new radiation grid data structures
+!----------------------------------------------------------------
+
+! NRESOL_ID : transformation package resolution identifier
+! NSMAX     : spectral truncation
+! NASM0     : address in a spectral array of (m, n=m)
+! MYMS      : actual wave numbers handled by this processor
+! NDGLG     : number of latitude rows
+! NDLON     : length of a row of latitude near equator
+! NDGSAL    : Local version of NDGSA , always 1
+! NDGENL    : Number of latitude rows for which this process has grid points
+! NDGSAH    : 1-NROWIDE
+! NDGENH    : NDGENL+NROWIDE
+! NDGSAG    : Global version of NDGSA
+! NDGENG    : Global version of NDGEN
+! NDSUR1    : over dimensioning of NDLON for technical reasons (at least 2)
+! NDLSUR    : NDLON+NDSUR1
+! NDGSUR    : number of additional rows at each pole for semi-lagrangian
+!           : interpolation
+! MYFRSTACTLAT : first actual lat on this PE in grid-point space,
+!              : it is nfrstlat(my_region_ns)
+! MYLSTACTLAT  : last actual lat on this PE in grid-point space,
+!              : it is nlstlat(my_region_ns)
+! NGPTOT    : number of local grid points
+! NGPTOTG   : total number of grid points
+! NRGRI     : number of grid points on a latitude row
+! NLOENG    : as above but extended at poles for SL interpolation
+! GELAM     : radiation grid geographic longitude "lambda"
+! GELAT     : radiation grid geographic latitude "theta"
+! GESLO     : sine of geographic longitude "sin(lambda)"
+! GECLO     : cosine of geographic longitude "cos(lambda)
+! GEMU      : sine of geographic latitude "sin(theta)"
+! RMU       : mu              sin(theta)
+! RSQM2     : SQRT(R1MU2)     cos(theta)
+! RLATIG    : arcsin(mu)      theta  GLOBAL VIEW
+! RLATI     : arcsin(mu)      theta
+! RIPI0     : bi-cubic interpolation coefficients
+! RIPI1     : bi-cubic interpolation coefficients
+! RIPI2     : bi-cubic interpolation coefficients
+
+TYPE RADIATION_GRID_STRUCT
+INTEGER(KIND=JPIM)                            :: NRESOL_ID, NGPTOT, NGPTOTG, &
+ & NGPTOTMX, NSPEC2, NSMAX, &
+ & NPTRFLOFF, NUMP, NDLON, &
+ & NDGSAL, NDGENL, NDGSAH, NDGENH, &
+ & NDGLG, NDGSAG, NDGENG, NDLSUR, &
+ & NFRSTLOFF, NDSUR1,NDGSUR, &
+ & MYFRSTACTLAT, MYLSTACTLAT  
+INTEGER(KIND=JPIM), POINTER, DIMENSION(:)     :: NRGRI, NLOENG, NPTRFRSTLAT, NFRSTLAT, &
+ & NLSTLAT, MYMS, NASM0  
+INTEGER(KIND=JPIM), POINTER, DIMENSION(:,:)   :: NSTA, NONL
+REAL(KIND=JPRB),    POINTER, DIMENSION(:)     :: GELAM, GELAT, GECLO, GESLO, GEMU, &
+ & RMU, RSQM2, RLATIG, RLATI, &
+ & RIPI0, RIPI1, RIPI2  
+END TYPE RADIATION_GRID_STRUCT
+
+TYPE(RADIATION_GRID_STRUCT) :: RADGRID
+
+!----------------------------------------------------------------
+!*    radiation on demand comms data structures
+!----------------------------------------------------------------
+
+LOGICAL :: LRADONDEM
+LOGICAL :: LRADONDEM_ACTIVE
+INTEGER(KIND=JPIM) :: NFIXRADFLD(2)
+INTEGER(KIND=JPIM),ALLOCATABLE :: MASK_RI1(:)
+INTEGER(KIND=JPIM),ALLOCATABLE :: MASK_RI2(:)
+INTEGER(KIND=JPIM),ALLOCATABLE :: MASK_RO1(:)
+INTEGER(KIND=JPIM),ALLOCATABLE :: MASK_RO2(:)
+
+!----------------------------------------------------------------
+!*    radiation interpolation/load balancing data structures
+!----------------------------------------------------------------
+
+! NRIRINT  : INTERPOLATION INTERVAL FOR LOCAL LATITUDES
+! NRFRSTOFF: OFFSET TO FIRST COURSE POINT FROM FIRST FINE POINT
+! NRLASTOFF: OFFSET TO FIRST COURSE POINT FROM LAST  FINE POINT
+! NRIMAX   : NUMBER OF COURSE POINTS FOR LOCAL LATITUDES
+! NRIMAXT  : TOTAL NUMBER OF COURSE POINTS IN THIS PROCESSOR
+! NRIMAXLT : TOTAL NUMBER OF COURSE POINTS TO BE PROCESSED BY THIS PROC
+! NRLPRCS  : NUMBER OF PROCESSORS REQUIRED FOR LOAD BALANCING
+! NRIMAXLA : LOAD BALANCING DATA - SETA OF PROCESSOR TO COMMUNICATE WITH
+! NRIMAXLB : LOAD BALANCING DATA - SETB OF PROCESSOR TO COMMUNICATE WITH
+! NRIMAXLN : LOAD BALANCING DATA - NUMBER OF COURSE POINTS TO SND/RCV
+! NRCNEEDW : NUMBER OF COURSE POINTS NEEDED ON WESTERN END OF LOCAL LATS
+! NRCNEEDE : NUMBER OF COURSE POINTS NEEDED ON EASTERN END OF LOCAL LATS
+! NRCSNDW  : NUMBER OF WESTERN COURSE POINTS TO SEND TO LOCAL PROCS
+! NRCSNDE  : NUMBER OF EASTERN COURSE POINTS TO SEND TO LOCAL PROCS
+! NRCRCVW  : NUMBER OF WESTERN COURSE POINTS TO RCV FROM LOCAL PROCS
+! NRCRCVE  : NUMBER OF WESTERN COURSE POINTS TO RCV FROM LOCAL PROCS
+! NRCSNDT  : TOTAL NUMBER OF COURSE POINTS TO SEND TO LOCAL PROCESSORS
+! NRCRCVT  : TOTAL NUMBER OF COURSE POINTS TO RCV FROM LOCAL PROCESSORS
+! NRCRCVWO : OFFSET OF WESTERN BOUNDARY COURSE POINTS IN BOUNDARY ARRAY
+! NRCRCVEO : OFFSET OF EASTERN BOUNDARY COURSE POINTS IN BOUNDARY ARRAY
+
+! LODBGRADI: DEBUGGING FLAG, EACH PROCESSOR WILL DUMP ABOVE INFO TO A
+!            PER PROCESSOR FILE CALLED 'debug_aaa_bbb' 
+!            where aaa=my_region_ns and bbb=my_region_ew
+! LODBGRADL: DEBUGGING FLAG, EACH PROCESSOR WILL DUMP LOAD BALANCING
+!            ARRAYS as above
+
+! NRLBCHUNKS: NUMBER OF BLOCKING LOOPS FOR LOAD-BALANCING COMMS
+! NRLRCHUNKS: NUMBER OF BLOCKING LOOPS FOR LOAD-BALANCING COMMS (RESTORING)
+! NRLBPOINTS: MAX NUMBER OF POINTS FOR LOAD-BALANCING COMMS
+! NRLRPOINTS: MAX NUMBER OF POINTS FOR LOAD-BALANCING COMMS (RESTORING)
+! NRLBDATA  : NUMBER OF DATA VALUES PER LOAD-BALANCING POINT 
+! NRLRDATA  : NUMBER OF DATA VALUES PER LOAD-BALANCING POINT (RESTORING)
+
+LOGICAL :: LODBGRADI
+LOGICAL :: LODBGRADL
+INTEGER(KIND=JPIM) :: NRLBCHUNKS
+INTEGER(KIND=JPIM) :: NRLRCHUNKS
+INTEGER(KIND=JPIM) :: NRLBPOINTS
+INTEGER(KIND=JPIM) :: NRLRPOINTS
+INTEGER(KIND=JPIM) :: NRLBDATA
+INTEGER(KIND=JPIM) :: NRLRDATA
+INTEGER(KIND=JPIM), PARAMETER :: JPMAXLOADP=32
+INTEGER(KIND=JPIM),ALLOCATABLE:: NRIRINT(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NRFRSTOFF(:,:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NRLASTOFF(:,:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NRIMAX(:,:)
+INTEGER(KIND=JPIM) :: NRIMAXT
+INTEGER(KIND=JPIM) :: NRIMAXLT
+INTEGER(KIND=JPIM) :: NRLPRCS
+INTEGER(KIND=JPIM) :: NRIMAXLA(JPMAXLOADP)
+INTEGER(KIND=JPIM) :: NRIMAXLB(JPMAXLOADP)
+INTEGER(KIND=JPIM) :: NRIMAXLN(JPMAXLOADP)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NRCNEEDW(:,:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NRCNEEDE(:,:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NRCSNDW(:,:,:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NRCSNDE(:,:,:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NRCRCVW(:,:,:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NRCRCVE(:,:,:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NRCSNDT(:,:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NRCRCVT(:,:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NRCRCVWO(:,:,:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NRCRCVEO(:,:,:)
+END MODULE YOMPRAD
Index: LMDZ5/trunk/libf/phylmd/rrtm/yomrad15.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yomrad15.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yomrad15.F90	(revision 1989)
@@ -0,0 +1,68 @@
+MODULE YOMRAD15
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*    ** *YOMRAD15* - CONTROL OPTIONS FOR RADIATION CONFIGURATION
+!*                          FROZEN VERSION (CYCLE 15) OF YOERAD
+!     ------------------------------------------------------------------
+
+INTEGER(KIND=JPIM) :: NAER15
+INTEGER(KIND=JPIM) :: NFLUX15
+INTEGER(KIND=JPIM) :: NMODE15
+INTEGER(KIND=JPIM) :: NRAD15
+INTEGER(KIND=JPIM) :: NRADFR15
+INTEGER(KIND=JPIM) :: NRADPFR15
+INTEGER(KIND=JPIM) :: NRADPLA15
+INTEGER(KIND=JPIM) :: NRINT15
+INTEGER(KIND=JPIM) :: NRADNFR15
+INTEGER(KIND=JPIM) :: NRADSFR15
+INTEGER(KIND=JPIM) :: NOVLP15
+INTEGER(KIND=JPIM) :: NRPROMA15
+INTEGER(KIND=JPIM) :: NRADF2C15
+INTEGER(KIND=JPIM) :: NRADC2F15
+LOGICAL :: LERAD6H15
+LOGICAL :: LERADHS15
+LOGICAL :: LRADLB15
+LOGICAL :: LRADAER15
+LOGICAL :: LNEWAER15
+
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!        96-11: Ph. Dandin. Meteo-France
+!     ORIGINAL BY J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
+
+!  NAME       TYPE     PURPOSE
+!  ----    :  ----   : -------------------------------------------------
+! LERAD6H15: LOGICAL : .T. TO ALLOW MORE FREQUENT RADIATION CALCULATIONS
+!                  : DURING FIRST 6 HOURS OF FORECAST
+! LERADHS15: LOGICAL : .T. IF RAD.COMPUTED ON A COARSER SAMPLED GRID
+! NAER15   : INTEGER : CONFIGURATION INDEX FOR AEROSOLS
+! NFLUX15  : INTEGER : NUMBER OF RADIATIVE FLUXES
+! NMODE15  : INTEGER : CONFIG. FOR RADIATION CODE: FLUX VS. RADIANCE
+! NRAD15   : INTEGER : NUMBER OF RADIANCES
+! NRADFR15 : INTEGER : FREQUENCY OF FULL RADIATION COMPUTATIONS
+!                      IF.GT.0: RAD EVERY 'NRADFR15' TIME-STEPS
+!                      IF.LT.0: RAD EVERY '-NRADFR15' HOURS
+! NRADPFR15: INTEGER : PRINT FREQ. FOR RAD. STATISTICS (in RAD.T.STEPS)
+! NRADPLA15: INTEGER : PRINT RAD.STATISTICS EVERY 'NRADPLA15' ROWS
+! NRINT15  : INTEGER : INTERPOLATION DISTANCE (in points)
+! NRADNFR15: INTEGER : NORMAL   FREQUENCY OF RADIATION STEPS
+! NRADSFR15: INTEGER : START-UP FREQUENCY OF RADIATION STEPS
+! NOVLP15  : INTEGER : CLOUD OVERLAP CONFIGURATION
+! NRPROMA15: INTEGER : VECTOR LENGTH FOR RADIATION CALCULATIONS
+! NRADF2C15: INTEGER : INTERPOLATION SCHEME FOR FINE TO COURSE GRID TO
+!                    : BE USED WHEN NRINT15 IS GREATER THAN 1
+! NRADC2F15: INTEGER : INTERPOLATION SCHEME FOR COURSE TO FINE GRID TO
+!                    : BE USED WHEN NRINT15 IS GREATER THAN 1
+! LRADLB15 : LOGICAL : .TRUE. IF RADIATION COURSER GRID IS TO BE LOAD
+!                    : BALANCED OVER PROCESSORS (I.E. WHEN NRINT15>1)
+! LRADAER15 :LOGICAL : .TRUE. IF CLIMATOLOGICAL VALUES FOR TROPOSPHERIC 
+!                    : AEROSOLS ARE INITIALIZED
+! LNEWAER15 :LOGICAL : .TRUE. IF TEGEN AEROSOLS ARE USED
+!     ------------------------------------------------------------------
+END MODULE YOMRAD15
Index: LMDZ5/trunk/libf/phylmd/rrtm/yomradf.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yomradf.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yomradf.F90	(revision 1989)
@@ -0,0 +1,44 @@
+MODULE YOMRADF
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+! EMTD    - longwave emissivity
+! TRSW    - shortwave absorptivity
+! EMTC    - clear-sky longwave emissivity
+! TRSC    - clear-sky shortwave absorptivity
+
+! SRSWD   - downward SW radiation at the surface 
+! SRLWD   - downward LW radiation at the surface
+! SRSWDCS - clear-sky downward SW radiation at the surface
+! SRLWDCS - clear-sky downward LW radiation at the surface 
+! SRSWDV  - downward SW visible radiation at the surface
+! SRSWDUV - downward SW ultraviolet/visible radiation at the surface
+! SRSWPAR - downward SW PAR radiation at the surface
+! SRSWUVB - downward UV-B radiation at the surface
+! SRSWPARC- downward clear-sky SW PAR radiation at the surface
+! SRSWTINC- TOA incident solar radiation 
+
+REAL(KIND=JPRB),ALLOCATABLE :: EMTD(:,:,:)
+REAL(KIND=JPRB),ALLOCATABLE :: TRSW(:,:,:)
+REAL(KIND=JPRB),ALLOCATABLE :: EMTC(:,:,:)
+REAL(KIND=JPRB),ALLOCATABLE :: TRSC(:,:,:)
+REAL(KIND=JPRB),ALLOCATABLE :: EMTU(:,:,:)
+
+REAL(KIND=JPRB),ALLOCATABLE :: SRSWD(:,:)
+REAL(KIND=JPRB),ALLOCATABLE :: SRLWD(:,:)
+REAL(KIND=JPRB),ALLOCATABLE :: SRSWDCS(:,:)
+REAL(KIND=JPRB),ALLOCATABLE :: SRLWDCS(:,:)
+REAL(KIND=JPRB),ALLOCATABLE :: SRSWDV(:,:)
+REAL(KIND=JPRB),ALLOCATABLE :: SRSWDUV(:,:)
+REAL(KIND=JPRB),ALLOCATABLE :: EDRO(:,:)
+REAL(KIND=JPRB),ALLOCATABLE :: SRSWPAR(:,:)
+REAL(KIND=JPRB),ALLOCATABLE :: SRSWUVB(:,:)
+REAL(KIND=JPRB),ALLOCATABLE :: SRSWPARC(:,:)
+REAL(KIND=JPRB),ALLOCATABLE :: SRSWTINC(:,:)
+REAL(KIND=JPRB),ALLOCATABLE :: RMOON(:,:)
+
+END MODULE YOMRADF
Index: LMDZ5/trunk/libf/phylmd/rrtm/yomrcoef.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yomrcoef.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yomrcoef.F90	(revision 1989)
@@ -0,0 +1,82 @@
+MODULE YOMRCOEF
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!   -----------------------------------------------------------------
+
+!*   Logical switches for writing and reading the radiation coefficients
+!    in file or in core
+
+!    LRCOEF                       : switch for write out and read
+!                                   the radiation coefficients in file
+
+!*   Logical switch connected with the simplified radiation
+
+!    LTLADDIA    : switch for using diabatic adjoint and then reading
+!                  rad.coef. at each time step when LRAYSP
+!    LGLOBRAD    : switch to compute the global mean for the thermal
+!                  radiation matrix
+
+!*   Number of arrays for radiation coefficients
+
+!    NG3SR                        : number of 3D fields (NFLEVG)
+!    NGMTR                        : number of matrices (0:NFLEVG,0:NFLEVG)
+!    NLATWR                       : number of latitude to be written
+!    NLATRD                       : number of latitude to be read
+
+!*   Packing factors and mio package files
+
+!    NPCKFSR                      : packing factor for 3D fields
+!    NPCKFTHR                     : packing factor for matrices
+!    NEXPBSR                      : number of bits used for exponent when
+!                                   packing
+!    NEXPBTHR                     : number of bits used for exponent when
+!                                   packing
+
+!*   Buffer for radiation coefficients
+
+!    NLENGSRB                       : length of buffer for 3D solar radiation
+!                                     coefficients and correction for thermal
+!                                     radiation
+!    NLENGTRB                       : length of buffer for matrix of thermal
+!                                     radiation coefficients
+!    SOLRAD(NLENGSRB)               : buffer for 3D fields
+!    THERRAD(NSLBR/NGPBLKS/1,NLENGTRB): buffer for matrix
+!                                     for 3D fields
+
+!*   Buffer for simplified thermal radiation
+
+!    TRWEIGHT(NFLEVG+1,NFLEVG+1) : buffer for sum of mean weights
+!                                  for the whole domain
+!    TRMATSUM(NFLEVG+1,NFLEVG+1) : buffer for sum of thermal radiation
+!                                  matrices for the whole domain
+
+LOGICAL :: LRCOEF
+LOGICAL :: LTLADDIA
+LOGICAL :: LGLOBRAD
+
+INTEGER(KIND=JPIM) :: NG3SR
+INTEGER(KIND=JPIM) :: NGMTR
+INTEGER(KIND=JPIM) :: NLATWR
+INTEGER(KIND=JPIM) :: NLATRD
+
+INTEGER(KIND=JPIM) :: NPCKFSR
+INTEGER(KIND=JPIM) :: NPCKFTHR
+INTEGER(KIND=JPIM) :: NEXPBSR
+INTEGER(KIND=JPIM) :: NEXPBTHR
+
+INTEGER(KIND=JPIM) :: NLENGSRB
+INTEGER(KIND=JPIM) :: NLENGTRB
+
+REAL(KIND=JPRB),ALLOCATABLE:: SOLRAD(:)
+REAL(KIND=JPRB),ALLOCATABLE:: THERRAD(:,:)
+
+REAL(KIND=JPRB),ALLOCATABLE:: TRWEIGHT(:,:)
+REAL(KIND=JPRB),ALLOCATABLE:: TRMATSUM(:,:)
+
+!   ----------------------------------------------------------------
+END MODULE YOMRCOEF
Index: LMDZ5/trunk/libf/phylmd/rrtm/yomrdi15.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yomrdi15.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yomrdi15.F90	(revision 1989)
@@ -0,0 +1,61 @@
+MODULE YOMRDI15
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOMRDI15* - COEFFICIENTS WITHIN RADIATION INTERFACE
+!*                          FROZEN VERSION (CYCLE 15) OF YOERDI
+!     -----------------------------------------------------------------
+
+REAL(KIND=JPRB) :: RSDTSN15
+REAL(KIND=JPRB) :: RRAE15
+REAL(KIND=JPRB) :: RMU0015
+REAL(KIND=JPRB) :: RALBICE15
+REAL(KIND=JPRB) :: RALBSEA15
+REAL(KIND=JPRB) :: RALBSNM15
+REAL(KIND=JPRB) :: RALBSNO15
+REAL(KIND=JPRB) :: RCARDI15
+REAL(KIND=JPRB) :: REMISS15
+REAL(KIND=JPRB) :: RSNOWAL15
+REAL(KIND=JPRB) :: RVLBDC15
+REAL(KIND=JPRB) :: RCH415
+REAL(KIND=JPRB) :: RN2O15
+REAL(KIND=JPRB) :: RCFC1115
+REAL(KIND=JPRB) :: RCFC1215
+REAL(KIND=JPRB) :: REPALB15
+REAL(KIND=JPRB) :: REPCLC15
+REAL(KIND=JPRB) :: REPH2O15
+
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!        96-11: Ph. Dandin. Meteo-France
+!     J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
+
+!  NAME       TYPE     PURPOSE
+!  ----    :  ----   : -------------------------------------------------
+! RSDTSN15 :
+! RRAE15   : EFFECT OF EARTH'S CURVATURE ON COSINE SOLAR ZENITH ANGLE
+! RMU0015  : MINIMUM COSINE OF SOLAR ZENITH ANGLE DUE TO EARTH'S
+!            CURVATURE
+! RALBICE15: FLOATING ICE ALBEDO (Unusefull for FMR in Arpege-climat)
+! RALBSEA15: OPEN SEA ALBEDO (Unusefull for FMR in Arpege-climat)
+! RALBSNM15:       SNOW ALBEDO (Unusefull for FMR in Arpege-climat)
+! RALBSNO15: THICK SNOW ALBEDO (Unusefull for FMR in Arpege-climat)
+
+! RCARDI15 : SPECIFIC ATMOSPHERIC CONTENT IN CO2
+! REMISS15 : SURFACE LONGWAVE EMISSIVITY
+
+! RSNOWAL15: SNOW DEPTH (IN EQUIVALENT WATER) FOR WHICH SNOW IS
+!            CONSIDERED AS THICK
+! RVLBDC15 : SPECIFIES THE REDUCTION OF THERMAL DIFFUSION UNDER
+!            VEGETATION
+! REPALB15 : SECURITY TO AVOID ZERO ALBEDOS.
+! REPCLC15 : SECURITY TO AVOID ZERO OR ONE CLOUD COVERS
+! REPH2O15 : SECURITY TO AVOID WATER VAPOUR CONTENT IN A LAYER
+!            TO BE MORE THAN THE RESPECTIVE VALUE AT SATURATION.
+!     -----------------------------------------------------------------
+END MODULE YOMRDI15
Index: LMDZ5/trunk/libf/phylmd/rrtm/yomrdu15.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yomrdu15.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yomrdu15.F90	(revision 1989)
@@ -0,0 +1,54 @@
+MODULE YOMRDU15
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*    ** *YOMRDU15* - CONTROL, PARAM. AND SECURITY IN RADIATION
+!*                          FROZEN VERSION (CYCLE 15) OF YOERDU
+!     ------------------------------------------------------------------
+
+INTEGER(KIND=JPIM) :: NUAER15
+INTEGER(KIND=JPIM) :: NTRAER15
+INTEGER(KIND=JPIM) :: NIMP15
+INTEGER(KIND=JPIM) :: NOUT15
+REAL(KIND=JPRB) :: RCDAY15
+REAL(KIND=JPRB) :: R10E15
+REAL(KIND=JPRB) :: REELOG15
+REAL(KIND=JPRB) :: REPSC15
+REAL(KIND=JPRB) :: REPSCO15
+REAL(KIND=JPRB) :: REPSCQ15
+REAL(KIND=JPRB) :: REPSCT15
+REAL(KIND=JPRB) :: REPSCW15
+REAL(KIND=JPRB) :: REPSEC15
+REAL(KIND=JPRB) :: DIFF15
+
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!        96-11: Ph. Dandin. Meteo-France
+!     J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
+
+!  NAME        TYPE     PURPOSE
+!  ----     :  ----   : ------------------------------------------------
+! NUAER15   : INTEGER   # OF ABSORBER AMOUNTS        W OR W/O AEROSOLS
+! NTRAER15  : INTEGER   # OF TRANSMISSION FUNCTIONS  W OR W/O AEROSOLS
+! NIMP15    : INTEGER   INDEX FOR EXTRA PRINTS WITHIN RADIATION CODE
+! NOUT15    : INTEGER   UNIT NUMBER FOR THE EXTRA PRINTS
+! RCDAY15   : REAL
+! CCO215    : REAL      CONVERSION COEFFICIENT FOR CO2 IN S.W. CODE
+! CH2O15    : REAL      CONVERSION COEFFICIENT FOR H2O IN S.W. CODE
+! R10E15    : REAL      DECIMAL/NATURAL LOG.FACTOR
+! DIFF15    : REAL      DIFFUSIVITY FACTOR
+!-SECURITY THRESHOLDS
+! REELOG15  : REAL      SEC. EPSILON FOR ABS.AMOUNT IN LAPLACE TRANSFORM
+! REPSC15   : REAL      SEC. EPSILON FOR CLOUD COVER
+! REPSEC15  : REAL      SEC. EPSILON FOR CLOUD COVER (was in YOECLD)
+! REPSCO15  : REAL      SEC. EPSILON FOR OZONE AMOUNT
+! REPSCQ15  : REAL      SEC. EPSILON FOR WATER VAPOR
+! REPSCT15  : REAL      SEC. EPSILON FOR SHORTWAVE OPTICAL THICKNESS
+! REPSCW15  : REAL      SEC. EPSILON FOR CLOUD LIQUID WATER PATH
+!     -----------------------------------------------------------------
+END MODULE YOMRDU15
Index: LMDZ5/trunk/libf/phylmd/rrtm/yomrip.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yomrip.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yomrip.F90	(revision 1989)
@@ -0,0 +1,101 @@
+MODULE YOMRIP
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+
+!*    Real time related variables (updated in UPDTIM)
+
+!     NINDAT : run initial date in the form AAAAMMDD
+!     NSSSSS : initial time in seconds (e.g. for 12h, 43200)
+!     RTIMST : ABSOLUTE TIME OF THE MODEL AT START
+
+!     NSTADD : NUMBER OF DAYS SINCE START OF THE MODEL
+!     NSTASS : NUMBER OF SECONDS since start of model modulo(86400)
+!     RSTATI : NUMBER OF SECONDS SINCE START OF THE MODEL
+!     RTIMTR : ABSOLUTE TIME OF THE MODEL
+
+!     RHGMT  : GMT TIME OF THE MODEL  (BETWEEN 0 AND 86400)
+!     REQTIM : EQUATION OF TIME
+
+!     ------------------------------------------------------------------
+
+!*    Sun related variables (updated in UPDTIM)
+!     RSOVR  : TRUE SOLAR TIME (GMT+EQUATION OF TIME)
+
+!     RDEASO : DISTANCE EARTH-SUN
+!     RDECLI : DECLINATION
+!     RWSOVR : IN RADIANS, TRUE SOLAR TIME (GMT+EQUATION OF TIME)
+!              THIS ANGLE IS ALSO PI - (LONGITUDE OF THE POINT
+!              WHERE THE SUN IS AT ZENITH)
+!     RIP0   : I0 WEIGHTED BY THE DISTANCE EARTH-SUN
+
+!     RCODEC : COSINE OF THE DECLINATION
+!     RSIDEC :   SINE OF THE DECLINATION
+
+!     RCOVSR : COSINE OF TRUE SOLAR TIME
+!     RSIVSR :   SINE OF TRUE SOLAR TIME
+
+!     ------------------------------------------------------------------
+
+!*    Moon related variables (updated in UPDTIM)
+
+!     RDECLU : LUNAR DECLINATION
+!     RTMOLT : IN RADIANS, TRUE LUNAR TIME (GMT+EQUATION OF TIME)
+!              THIS ANGLE IS ALSO PI - (LONGITUDE OF THE POINT
+!              WHERE THE MOON IS AT ZENITH)
+!     RIP0LU : LUNAR I0 (DOWNWARD TOA LUNAR FLUX)
+
+!     RCODECLU : COSINE OF THE LUNAR DECLINATION
+!     RSIDECLU :   SINE OF THE LUNAR DECLINATION
+
+!     RCOVSRLU : COSINE OF TRUE LUNAR TIME
+!     RSIVSRLU :   SINE OF TRUE LUNAR TIME
+
+!     ------------------------------------------------------------------
+
+!*    Time step related variables
+
+!     RDTSA  : TDT  /RA
+!     RDTSA2 : RDTSA**2
+!     RDTS62 : RDTSA**2/6
+!     RDTS22 : RDTSA**2/2
+
+!     RTDT   : TDT
+
+INTEGER(KIND=JPIM) :: NINDAT
+INTEGER(KIND=JPIM) :: NSSSSS
+INTEGER(KIND=JPIM) :: NSTADD
+INTEGER(KIND=JPIM) :: NSTASS
+REAL(KIND=JPRB) :: RTIMST
+REAL(KIND=JPRB) :: RSTATI
+REAL(KIND=JPRB) :: RTIMTR
+REAL(KIND=JPRB) :: RHGMT
+REAL(KIND=JPRB) :: REQTIM
+REAL(KIND=JPRB) :: RSOVR
+REAL(KIND=JPRB) :: RDEASO
+REAL(KIND=JPRB) :: RDECLI
+REAL(KIND=JPRB) :: RWSOVR
+REAL(KIND=JPRB) :: RIP0
+REAL(KIND=JPRB) :: RCODEC
+REAL(KIND=JPRB) :: RSIDEC
+REAL(KIND=JPRB) :: RCOVSR
+REAL(KIND=JPRB) :: RSIVSR
+REAL(KIND=JPRB) :: RDTSA
+REAL(KIND=JPRB) :: RDTSA2
+REAL(KIND=JPRB) :: RDTS62
+REAL(KIND=JPRB) :: RDTS22
+REAL(KIND=JPRB) :: RTDT
+REAL(KIND=JPRB) :: RDECLU
+REAL(KIND=JPRB) :: RTMOLT
+REAL(KIND=JPRB) :: RIP0LU
+REAL(KIND=JPRB) :: RCODECLU
+REAL(KIND=JPRB) :: RSIDECLU
+REAL(KIND=JPRB) :: RCOVSRLU
+REAL(KIND=JPRB) :: RSIVSRLU
+!     ------------------------------------------------------------------
+END MODULE YOMRIP
Index: LMDZ5/trunk/libf/phylmd/rrtm/yomsc2.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yomsc2.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yomsc2.F90	(revision 1989)
@@ -0,0 +1,51 @@
+MODULE YOMSC2
+
+USE PARKIND1  ,ONLY : JPIM
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+
+! NSLWIDE    : NUMBER OF "ROWS" THE MODEL LAGGED PART RUNS BEHIND
+! NOBWIDE    : NUMBER OF "ROWS" FOR OBSERVATION HALO
+! NRIWIDEN   : NUMBER OF "ROWS" FOR RADIATION INPUT NORTH (MODEL GRID)
+! NRIWIDES   : NUMBER OF "ROWS" FOR RADIATION INPUT SOUTH (MODEL GRID)
+! NRIWIDEW   : NUMBER OF "ROWS" FOR RADIATION INPUT WEST  (MODEL GRID)
+! NRIWIDEE   : NUMBER OF "ROWS" FOR RADIATION INPUT EAST  (MODEL GRID)
+! NROWIDEN   : NUMBER OF "ROWS" FOR RADIATION OUTPUT NORTH (RADIATION GRID)
+! NROWIDES   : NUMBER OF "ROWS" FOR RADIATION OUTPUT SOUTH (RADIATION GRID)
+! NROWIDEW   : NUMBER OF "ROWS" FOR RADIATION OUTPUT WEST  (RADIATION GRID)
+! NROWIDEE   : NUMBER OF "ROWS" FOR RADIATION OUTPUT EAST  (RADIATION GRID)
+! NFLDSLB1   : NUMBER OF FIELDS IN SEMI-LAGRANGIAN BUFFER 1
+! NFLDSLB2   : NUMBER OF FIELDS IN SEMI-LAGRANGIAN BUFFER 2
+! NFLDOBB1   : NUMBER OF FIELDS IN OBSERVATION BUFFER 1
+! NFLDSLB15  : NUMBER OF FIELDS IN SEMI-LAGRANGIAN BUFFER 15 (TL and adjoint)
+! NDIST      : START ADRESS FOR EACH ROW IN GRID-POINT CALCULATIONS
+! NDIEND     : END   ADRESS FOR EACH ROW IN GRID-POINT CALCULATIONS
+! NCIST      : START ADRESS FOR EACH ROW OF GRID-POINT FIELD IN BUFFER
+! NCIEND     : END   ADRESS FOR EACH ROW OF GRID-POINT FIELD IN BUFFER
+
+INTEGER(KIND=JPIM),ALLOCATABLE:: NDIST(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NDIEND(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NCIST(:)
+INTEGER(KIND=JPIM),ALLOCATABLE:: NCIEND(:)
+
+INTEGER(KIND=JPIM) :: NSLWIDE
+INTEGER(KIND=JPIM) :: NFLDSLB1
+INTEGER(KIND=JPIM) :: NFLDSLB2
+INTEGER(KIND=JPIM) :: NFLDOBB1
+INTEGER(KIND=JPIM) :: NFLDSLB15
+INTEGER(KIND=JPIM) :: NOBWIDE
+INTEGER(KIND=JPIM) :: NRIWIDEN
+INTEGER(KIND=JPIM) :: NRIWIDES
+INTEGER(KIND=JPIM) :: NRIWIDEW
+INTEGER(KIND=JPIM) :: NRIWIDEE
+INTEGER(KIND=JPIM) :: NROWIDEN
+INTEGER(KIND=JPIM) :: NROWIDES
+INTEGER(KIND=JPIM) :: NROWIDEW
+INTEGER(KIND=JPIM) :: NROWIDEE
+
+!-----------------------------------------------------------------------
+END MODULE YOMSC2
Index: LMDZ5/trunk/libf/phylmd/rrtm/yomscm.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yomscm.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yomscm.F90	(revision 1989)
@@ -0,0 +1,53 @@
+MODULE YOMSCM
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!-------------------------------------------------
+! SCM: extraction of Single Column Model profiles from 3D model.
+!-------------------------------------------------
+
+! NFRSCM
+! NSCMTS
+
+! NSCM_SPACE_S < 0: choose one profile over -NSCM_SPACE_S.
+! NSCM_SPACE_S = 0: choose profiles close to the location
+!                   given by (GSCM_LON1,GSCM_LAT1) (in rad).
+! NSCM_SPACE_S = 1: choose profiles inside a given box (in (lon, lat)).
+! NSCM_SPACE_S = 10: choose profiles depending on physical output,
+! for example precipitating profiles.
+!-------------------------------------------------
+
+! NSCM_SPACE_S: kind of space sampling.
+
+! NSCM_SPACE_S < 0: choose one profile over -NSCM_SPACE_S.
+! NSCM_SPACE_S = 0: choose profiles close to the location
+!                   given by (GSCM_LON1,GSCM_LAT1) (in rad).
+! NSCM_SPACE_S = 1: choose profiles inside a given box (in (lon, lat)).
+! NSCM_SPACE_S = 10: choose profiles depending on physical output,
+! for example precipitating profiles.
+!-------------------------------------------------
+! GSCM_LON1: longitude in rad [-pi,pi].
+! GSCM_LON2: longitude in rad [-pi,pi].
+! GSCM_LAT1: latitude  in rad [-pi/2,pi/2].
+! GSCM_LAT2: latitude  in rad [-pi/2,pi/2].
+!-------------------------------------------------
+! GSCM_RADIUS: search radius in meters (case NSCM_SPACE_S = 0).
+!-------------------------------------------------
+
+LOGICAL :: LGSCM
+INTEGER(KIND=JPIM) :: NFRSCM
+INTEGER(KIND=JPIM), PARAMETER :: JPNPST=240
+INTEGER(KIND=JPIM) :: NSCMTS(0:JPNPST)
+INTEGER(KIND=JPIM) :: NSCM_SPACE_S
+REAL(KIND=JPRB) :: GSCM_LON1
+REAL(KIND=JPRB) :: GSCM_LON2
+REAL(KIND=JPRB) :: GSCM_LAT1
+REAL(KIND=JPRB) :: GSCM_LAT2
+REAL(KIND=JPRB) :: GSCM_RADIUS
+INTEGER(KIND=JPIM) :: NSCM_ADD_SAMPL
+
+END MODULE YOMSCM
Index: LMDZ5/trunk/libf/phylmd/rrtm/yomsimphl.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yomsimphl.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yomsimphl.F90	(revision 1989)
@@ -0,0 +1,53 @@
+MODULE YOMSIMPHL
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!   -----------------------------------------------------------------
+
+!*    with logical switches for simplified physical 
+!           parametrization
+
+!    LSIMPH   : switch for simplified physical parametrization 
+!    LTRAJPS  : switch for write out and read the trajectory at 
+!               t-dt for simplified physical computations in file
+!    LTRAJPST : switch for write out and read the trajectory at 
+!               t-dt for fluxes and tendencies in file
+!    LSMOOTHD : smoothing some functions in direct computation
+!    LSMOOTHA : smoothing some functions in TL and AD computations
+!    LSMOOTHB : modifications in simplified physical parametrizations
+!               to stabilize the TL and AD codes
+
+!    LCVRASP  : key for calling deep convection of simplified
+!               phys. parametrization (ACCONV)
+!    LGWDSP   : key for calling the gravity wave drag of simpl.
+!               phys. parametrization (ACDRAGL)
+!    LRAYSP   : key for calling radiation scheme of simplified
+!               phys. parametrization (ACRADS)
+!    LSTRASP  : key for calling stratiform precipitation of simpl.
+!               phys. parametrization (ACQWLSR)
+!    LVDIFSP  : key for calling the vertical turbulent diffusion
+!               of simpl. phys. param. (ACTSEC,ACDIFSP)
+!    LRRMESSP : key for calling the mesospheric drag
+!               of simpl. phys. param. (ACDRME)
+!    LCLOUDS  : key for cloud parametrization
+
+LOGICAL :: LSIMPH
+LOGICAL :: LTRAJPS
+LOGICAL :: LTRAJPST
+LOGICAL :: LSMOOTHD
+LOGICAL :: LSMOOTHA
+LOGICAL :: LSMOOTHB
+LOGICAL :: LCVRASP
+LOGICAL :: LGWDSP
+LOGICAL :: LRAYSP
+LOGICAL :: LSTRASP
+LOGICAL :: LVDIFSP
+LOGICAL :: LRRMESSP
+LOGICAL :: LCLOUDS
+
+!   ----------------------------------------------------------------
+END MODULE YOMSIMPHL
Index: LMDZ5/trunk/libf/phylmd/rrtm/yomslphy.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yomslphy.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yomslphy.F90	(revision 1989)
@@ -0,0 +1,28 @@
+MODULE YOMSLPHY
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+
+! * Variables for split ECMWF physics.
+
+! LSLPHY  : for split physics (one part at t-Dt, one part at t+Dt);
+!           can be used only at ECMWF with the ECMWF package.
+! RSLWX   : level of implicitness of semi-Lagrangian/physics.
+! NVTEND  : third dimension of SAVTEND (number of 3D fields).
+! SAVTEND : buffer to store the physical tendencies.
+
+LOGICAL :: LSLPHY
+REAL(KIND=JPRB)   , PARAMETER :: RSLWX=0.5_JPRB
+INTEGER(KIND=JPIM) :: NVTEND
+REAL(KIND=JPRB),ALLOCATABLE :: SAVTEND(:,:,:,:)
+! Pointers for SAVTEND
+INTEGER(KIND=JPIM) :: MU_SAVTEND,MV_SAVTEND,MT_SAVTEND,MSAT_SAVTEND
+INTEGER(KIND=JPIM) :: MU_SAVTEND_S,MV_SAVTEND_S,MT_SAVTEND_S,MSAT_SAVTEND_S
+INTEGER(KIND=JPIM) :: MSAVTEND_S
+
+END MODULE YOMSLPHY
Index: LMDZ5/trunk/libf/phylmd/rrtm/yomsta.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yomsta.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yomsta.F90	(revision 1989)
@@ -0,0 +1,121 @@
+MODULE YOMSTA
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*    Description of standard atmosphere (prefix R)
+!*    and of reference atm. used in post-processing (prefix V)
+
+!    Suffixe    for RZ, RT and RP (VZ, VT AND VP)            |      RDTDZ
+!                                                            |
+!  1:(SUR)   Soil Surface                                    | 1: Troposphere
+!  2:(TROP)  Bottom of tropopause                            | 2: Tropopause
+!  3:(STRA)  Top of tropopause - Bottom of stratosphere      | 3: Stratosphere
+!  4:(STR2)  Modification of temperature gradient            | 4:      "
+!  5:(STPO)  Top of stratosphere - Bottom of stratopause     | 5: Stratopause
+!  6:(MESO)  Top of stratopause - Bottom of mesosphere       | 6: Mesosphere
+!  7:(MES2)  Modification of temperature gradient            | 7:      "
+!  8:(MEPO)  Top of mesosphere - Bottom of mesopause         | 8: Mesopause
+!  9:(ABOV)  Top of mesopause                                | 9: Above
+
+!  and we have for exemple :
+!     RDTDZ1: DT/DZ below tropopause (-6.5 K/KM)
+!     RZTROP: Top of troposphere (Height of tropopause : 11000 M)
+!     RTSUR : Surface temperature (288.15)
+
+!     STPREH(0:NFLEVG) : PRESSURE OF THE HALF LEVELS
+!     STPRE   (NFLEVG) : PRESSURE OF THE LEVELS
+!     STPHI   (NFLEVG) : GEOPOTENTIAL
+!     STTEM   (NFLEVG) : TEMPERATURE
+!     STDEN   (NFLEVG) : DENSITY
+!     STZ     (NFLEVG) : GEOPOTENTIAL
+
+! === OTHER QUANTITIES ===
+
+! NLEXTRAP: LEVEL (CLOSE TO THE SURFACE) 
+!          FROM WHERE THE TEMPERATURE IS EXTRAPOLATED 
+! HEXTRAP : height from where the temperature is extrapolated.
+
+REAL(KIND=JPRB),ALLOCATABLE:: STPREH(:)
+REAL(KIND=JPRB),ALLOCATABLE:: STPRE(:)
+REAL(KIND=JPRB),ALLOCATABLE:: STPHI(:)
+REAL(KIND=JPRB),ALLOCATABLE:: STTEM(:)
+REAL(KIND=JPRB),ALLOCATABLE:: STDEN(:)
+REAL(KIND=JPRB),ALLOCATABLE:: STZ(:)
+REAL(KIND=JPRB) :: RZTROP
+REAL(KIND=JPRB) :: RZSTRA
+REAL(KIND=JPRB) :: RZSTR2
+REAL(KIND=JPRB) :: RZSTPO
+REAL(KIND=JPRB) :: RZMESO
+REAL(KIND=JPRB) :: RZMES2
+REAL(KIND=JPRB) :: RZMEPO
+REAL(KIND=JPRB) :: RZABOV
+REAL(KIND=JPRB) :: RTSUR
+REAL(KIND=JPRB) :: RTTROP
+REAL(KIND=JPRB) :: RTSTRA
+REAL(KIND=JPRB) :: RTSTR2
+REAL(KIND=JPRB) :: RTSTPO
+REAL(KIND=JPRB) :: RTMESO
+REAL(KIND=JPRB) :: RTMES2
+REAL(KIND=JPRB) :: RTMEPO
+REAL(KIND=JPRB) :: RTABOV
+REAL(KIND=JPRB) :: RPTROP
+REAL(KIND=JPRB) :: RPSTRA
+REAL(KIND=JPRB) :: RPSTR2
+REAL(KIND=JPRB) :: RPSTPO
+REAL(KIND=JPRB) :: RPMESO
+REAL(KIND=JPRB) :: RPMES2
+REAL(KIND=JPRB) :: RPMEPO
+REAL(KIND=JPRB) :: RPABOV
+REAL(KIND=JPRB) :: RDTDZ1
+REAL(KIND=JPRB) :: RDTDZ2
+REAL(KIND=JPRB) :: RDTDZ3
+REAL(KIND=JPRB) :: RDTDZ4
+REAL(KIND=JPRB) :: RDTDZ5
+REAL(KIND=JPRB) :: RDTDZ6
+REAL(KIND=JPRB) :: RDTDZ7
+REAL(KIND=JPRB) :: RDTDZ8
+REAL(KIND=JPRB) :: RDTDZ9
+REAL(KIND=JPRB) :: VZTROP
+REAL(KIND=JPRB) :: VZSTRA
+REAL(KIND=JPRB) :: VZSTR2
+REAL(KIND=JPRB) :: VZSTPO
+REAL(KIND=JPRB) :: VZMESO
+REAL(KIND=JPRB) :: VZMES2
+REAL(KIND=JPRB) :: VZMEPO
+REAL(KIND=JPRB) :: VZABOV
+REAL(KIND=JPRB) :: VTSUR
+REAL(KIND=JPRB) :: VTTROP
+REAL(KIND=JPRB) :: VTSTRA
+REAL(KIND=JPRB) :: VTSTR2
+REAL(KIND=JPRB) :: VTSTPO
+REAL(KIND=JPRB) :: VTMESO
+REAL(KIND=JPRB) :: VTMES2
+REAL(KIND=JPRB) :: VTMEPO
+REAL(KIND=JPRB) :: VTABOV
+REAL(KIND=JPRB) :: VPTROP
+REAL(KIND=JPRB) :: VPSTRA
+REAL(KIND=JPRB) :: VPSTR2
+REAL(KIND=JPRB) :: VPSTPO
+REAL(KIND=JPRB) :: VPMESO
+REAL(KIND=JPRB) :: VPMES2
+REAL(KIND=JPRB) :: VPMEPO
+REAL(KIND=JPRB) :: VPABOV
+REAL(KIND=JPRB) :: VDTDZ1
+REAL(KIND=JPRB) :: VDTDZ2
+REAL(KIND=JPRB) :: VDTDZ3
+REAL(KIND=JPRB) :: VDTDZ4
+REAL(KIND=JPRB) :: VDTDZ5
+REAL(KIND=JPRB) :: VDTDZ6
+REAL(KIND=JPRB) :: VDTDZ7
+REAL(KIND=JPRB) :: VDTDZ8
+REAL(KIND=JPRB) :: VDTDZ9
+REAL(KIND=JPRB) :: HEXTRAP
+INTEGER(KIND=JPIM) :: NLEXTRAP
+
+!     ------------------------------------------------------------------
+END MODULE YOMSTA
Index: LMDZ5/trunk/libf/phylmd/rrtm/yomsw15.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yomsw15.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yomsw15.F90	(revision 1989)
@@ -0,0 +1,53 @@
+MODULE YOMSW15
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*    ** *YOMSW15* - COEFFICIENTS FOR SHORTWAVE RADIATION TRANSFER
+!*                         FROZEN VERSION (CYCLE 15) OF YOESW
+!     ------------------------------------------------------------------
+
+REAL(KIND=JPRB) :: APAD15(2,3,7)
+REAL(KIND=JPRB) :: BPAD15(2,3,7)
+REAL(KIND=JPRB) :: RRAY15(2,6)
+REAL(KIND=JPRB) :: RSUN15(2)
+REAL(KIND=JPRB) :: RPDH115
+REAL(KIND=JPRB) :: RPDU115
+REAL(KIND=JPRB) :: RPNH15
+REAL(KIND=JPRB) :: RPNU15
+REAL(KIND=JPRB) :: RSWCE15
+REAL(KIND=JPRB) :: RSWCP15
+REAL(KIND=JPRB) :: RTDH2O15
+REAL(KIND=JPRB) :: RTDUMG15
+REAL(KIND=JPRB) :: RTH2O15
+REAL(KIND=JPRB) :: RTUMG15
+REAL(KIND=JPRB) :: D15(2,3)
+
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+!        96-11: Ph. Dandin. Meteo-France
+!     ORIGINAL BY J.-J. MORCRETTE       E.C.M.W.F.      89/07/14
+
+!  NAME       TYPE     PURPOSE
+!  ----    :  ----   : -------------------------------------------------
+!  APAD15  :  REAL     PADE APPROXIMANTS NUMERATOR
+!  BPAD15  :  REAL     PADE APPROXIMANTS DENOMINATOR
+!  D15     :  REAL     TRANSMISSION LIMIT FOR INFINITE ABSORBER AMOUNT
+!  RRAY15  :  REAL     RAYLEIGH SCATTERING COEFFICIENTS
+!  RSUN15  :  REAL     SOLAR FRACTION IN SPECTRAL INTERVALS
+!  RPDH115 :  1 + EXPONENT PRESSURE DEPENDENCE H2O
+!  RPDU115 :  1 + EXPONENT PRESSURE DEPENDENCE UNIFORMLY MIXED GASES
+!  RPNH15  :  REFERENCE PRESSURE FACTOR FOR H2O
+!  RPNU15  :  REFERENCE PRESSURE FACTOR FOR UNIFORMLY MIXED GASES
+!  RSWCE15 :  E-TYPE, H2O CONTINUUM ABSORP. COEFFICIENT OVER 0.68-4 MU
+!  RSWCP15 :  P-TYPE, H2O CONTINUUM ABSORP. COEFFICIENT OVER 0.68-4 MU
+!  RTDH2O15:  EXPONENT TEMPERATURE DEPENDENCE H2O
+!  RTDUMG15:  EXPONENT TEMPERATURE DEPENDENCE UNIFORMLY MIXED GASES
+!  RTH2O15 :  REFERENCE TEMPERATURE H2O
+!  RTUMG15 :  REFERENCE TEMPERATURE UNIFORMLY MIXED GASES
+!     -----------------------------------------------------------------
+END MODULE YOMSW15
Index: LMDZ5/trunk/libf/phylmd/rrtm/yomtag.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yomtag.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yomtag.F90	(revision 1989)
@@ -0,0 +1,109 @@
+MODULE YOMTAG
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     ------------------------------------------------------------------
+!*    Tag identifiers used in message passing communication
+
+! MTAGLM: tag for transpositions done in TRLTOM.
+! MTAGMS: tag for transpositions done in TRMTOS.
+! MTAGSM: tag for transpositions done in TRSTOM.
+! MTAGMV: tag for transpositions done in TRMTOV.
+! MTAGVH: tag for transpositions done in TRVTOH.
+! MTAGMN: tag for transpositions done in TRMTON.
+! MTAGNM: tag for transpositions done in TRNTOM.
+! MTAGSPNO: tag for communications done in COMMSPNORM and COMMSPNORM1.
+! MTAGSLAG: tag for halo constitution (horizontal interpolations
+!  in the semi-Lagrangian scheme, the observation interpolator or FULLPOS).
+! MTAGTIDE: tag for communications done in COMMTIDE.
+! MTAGRAD : tag for communications done in SUECRAD (ECMWF physics)
+! MTAGRCBDY: tag for communications done in RADCBDY (ECMWF physics).
+! MTAGRCLB: tag for communications done in RADCLB (ECMWF physics).
+! MTAGRCLBI: tag for communications done in SUECRADL (ECMWF physics).
+! MTAGPART: tag for communications done in DICOMOUT and GATHFLNM.
+! MTAGDISTSP: tag for communications done in DISSPEC, DISSPEC0 and DIWRSPE.
+! MTAGDISTGP: tag for communications done in
+!  DISGRID, DISGRID_C, DISGRIDFP, DIWRGRFP, DIWRGRID, IRCVGPF, IRCVGPFFP,
+!  ISNDGPF, ISNDGPFFP, ORCVGPF, ORCVGPFFP, OSNDGPF, OSNDGPFFP.
+! MTAGCAIN: tag for communications done in GATHERSPA.
+! MTAGCOST: tag for communications done in
+!  GATHERCOST1, GATHERCOST2, GATHERCOSTO and GATHERJCVERT.
+! MTAGGSUM: tag for communications done in CASND1, CASNDR1 and GATHERSUM.
+! MTAGGLOBSI: tag for communications done in CAEXCO and CAUPDO.
+! MTAGGLOBSR: tag for communications done in CAEXCO and CAUPDO.
+! MTAGOBSEQ: tag for communications done in MPOBSEQ.
+! MTAGOBSEQAD: tag for communications done in MPOBSEQAD.
+! MTAGFCE: tag for communications done in
+!  COMMFCE1, COMMFCE2, COMMJBBAL and COMMJBDAT.
+! MTAGBDY: tag for communications done in GATHERBDY.
+! MTAGSIG: tag for communications done in SIGCHECK.
+! MTAGBRPR: tag for communications done in BRPTOB and GATHERT.
+! MTAGGPNORM: tag for communications done in GPNORM1.
+! MTAGDDHRES: tag for communications done in DDHRCV and DDHSND.
+! MTAGDDH1: tag for communications done in DISTDDH.
+! MTAGDDH2: tag for communications done in DLADDH.
+! MTAGDDH3: tag for communications done in DMADDH.
+! MTAGDDH4: tag for communications done in DRESDDH.
+! MTAGGETV: tag for communications done in SUHESS.
+! MTAGOZON: tag for communications done in UPDO3CH.
+! MTAGREADVEC: tag for communications done in READVEC.
+! MT_DISTRIBUTED_VECTOR: tag for communications done in SUMPINI.
+! MTAGLCZ: tag for communications done in COMMNSEC1.
+! MTAGGOM: tag for communications done in GATHERGOM.
+! MTAGFREQ: tag for communications done in GATHERFREQ.
+! MTAGEIGMD: tag for communications done in GATHEREIGMD.
+! MTAGKE: tag for communications done in VMODEENERGY.
+! MTAGDISTFO: tag for communications done in DISFOU and DIWRFOU.
+
+!      YOMTAG
+
+INTEGER(KIND=JPIM) :: MTAGLM
+INTEGER(KIND=JPIM) :: MTAGMS
+INTEGER(KIND=JPIM) :: MTAGSM
+INTEGER(KIND=JPIM) :: MTAGMV
+INTEGER(KIND=JPIM) :: MTAGVH
+INTEGER(KIND=JPIM) :: MTAGSPNO
+INTEGER(KIND=JPIM) :: MTAGSLAG
+INTEGER(KIND=JPIM) :: MTAGTIDE
+INTEGER(KIND=JPIM) :: MTAGRAD
+INTEGER(KIND=JPIM) :: MTAGRCBDY
+INTEGER(KIND=JPIM) :: MTAGRCLB
+INTEGER(KIND=JPIM) :: MTAGRCLBI
+INTEGER(KIND=JPIM) :: MTAGPART
+INTEGER(KIND=JPIM) :: MTAGDISTSP
+INTEGER(KIND=JPIM) :: MTAGDISTGP
+INTEGER(KIND=JPIM) :: MTAGMN
+INTEGER(KIND=JPIM) :: MTAGNM
+INTEGER(KIND=JPIM) :: MTAGCAIN
+INTEGER(KIND=JPIM) :: MTAGCOST
+INTEGER(KIND=JPIM) :: MTAGGSUM
+INTEGER(KIND=JPIM) :: MTAGGLOBSI
+INTEGER(KIND=JPIM) :: MTAGGLOBSR
+INTEGER(KIND=JPIM) :: MTAGOBSEQ
+INTEGER(KIND=JPIM) :: MTAGOBSEQAD
+INTEGER(KIND=JPIM) :: MTAGFCE
+INTEGER(KIND=JPIM) :: MTAGBDY
+INTEGER(KIND=JPIM) :: MTAGDDHRES
+INTEGER(KIND=JPIM) :: MTAGSIG
+INTEGER(KIND=JPIM) :: MTAGBRPR
+INTEGER(KIND=JPIM) :: MTAGGPNORM
+INTEGER(KIND=JPIM) :: MTAGDDH1
+INTEGER(KIND=JPIM) :: MTAGDDH2
+INTEGER(KIND=JPIM) :: MTAGDDH3
+INTEGER(KIND=JPIM) :: MTAGDDH4
+INTEGER(KIND=JPIM) :: MTAGGETV
+INTEGER(KIND=JPIM) :: MTAGOZON
+INTEGER(KIND=JPIM) :: MTAGREADVEC
+INTEGER(KIND=JPIM) :: MT_DISTRIBUTED_VECTOR
+INTEGER(KIND=JPIM) :: MTAGLCZ
+INTEGER(KIND=JPIM) :: MTAGGOM
+INTEGER(KIND=JPIM) :: MTAGFREQ
+INTEGER(KIND=JPIM) :: MTAGEIGMD
+INTEGER(KIND=JPIM) :: MTAGKE
+INTEGER(KIND=JPIM) :: MTAGDISTFO
+
+END MODULE YOMTAG
Index: LMDZ5/trunk/libf/phylmd/rrtm/yomtddh.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yomtddh.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yomtddh.F90	(revision 1989)
@@ -0,0 +1,313 @@
+MODULE YOMTDDH
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!    TABLEAUX DE CUMUL DES DIAGNOSTICS DDH
+
+!      REAL HDCVB0 (NDHCV*(NFLEVG+1),NDHIDH)
+!      REAL HDCVB1 (NDHCV*(NFLEVG+1),NDHIDH)
+!      REAL HDCS0 (NDHCS,NDHIDH)
+!      REAL HDCS1 (NDHCS,NDHIDH)
+
+REAL(KIND=JPRB),ALLOCATABLE:: HDCVB0(:,:,:)
+REAL(KIND=JPRB),ALLOCATABLE:: HDCVB1(:,:,:)
+REAL(KIND=JPRB),ALLOCATABLE:: HDCS0(:,:,:)
+REAL(KIND=JPRB),ALLOCATABLE:: HDCS1(:,:,:)
+
+! ARRAY TO SAVE INITIAL VALUES FOR FREE STYLE VARIABLES
+
+REAL(KIND=JPRB),ALLOCATABLE:: PDDHFSVI(:)
+
+!    POINTEURS
+
+!    TABLEAUX DE CUMUL DES DIAGNOSTICS DDH
+!    --------------------------------------
+
+!    DHCV. : TABLEAUX DE CUMULS DES VARIABLES/FLUX EN PROFILS VERTICAUX
+!    DHCVB.: TABLEAUX DE CUMULS PAR VARIABLES/FLUX NON DECOUPES EN NIVEAUX
+!    DHCS. : TABLEAUX DE CUMULS DES VARIABLES/FLUX AU SOL
+
+!    ORGANISATION DES TABLEAUX:
+!       CHAMPS ATMOSPHERIQUES
+!             TABLEAUX ---0 : VARIABLES INITIALES
+!             TABLEAUX ---1 : VARIABLES A NSTEP NON FILTREES
+!             TABLEAUX ---0 : CUMULS JUSQU A NSTEP-1
+!             TABLEAUX ---1 : CUMULS JUSQU A NSTEP
+!             1 A NDHVV:                                  VARIABLES DU MODELE
+!             NDHVV+1 A NDHVV+NDHAVD:                     TENDANCES DYNAMIQUES
+!             NDHVV+NDHAVD+1 A NDHVV+NDHFVD:              FLUX DYNAMIQUES
+!             NDHVV+NDHFVD+1 A NDHVV+NDHFVD+NDHAVP:       FLUX PHYSIQUES
+!             NDHVV+NDHFVD+NDHAVP+1 A NDHCV:              TENDANCES PHYSIQUES
+!       CHAMPS SOL
+!             TABLEAUX ---0 : VARIABLES INITIALES
+!             TABLEAUX ---1 : VARIABLES A NSTEP NON FILTREES
+!             TABLEAUX ---0 : CUMULS JUSQU A NSTEP-1
+!             TABLEAUX ---1 : CUMULS JUSQU A NSTEP
+!             1 A NDHVS:                                  VARIABLES DU MODELE
+!             NDHVS+1 A NDHVS+NDHVFS:                     FREE-STYLE VARIABLES
+!             NDHVS+NDHVFS+1 A NDHVS+NDHVFS+NDHFSD:       CUMULS DYNAMIQUES
+!             NDHVS+NDHVFS+NDHFSD+1 A
+!                NDHVS+NDHVFS+NDHFSD+NDHFSP:              CUMULS PHYSIQUES
+!             NDHVS+NDHVFS+NDHFSD+NDHFSP+1 A
+!                NDHVS+NDHVFS+NDHFSD+NDHFSP+NDHFFS=NDHCS: FREE-STYLE FLUXES
+
+!    LA VALEUR D UN CHAMP AU NIVEAU JLEV = 0 N A DE SENS QUE POUR LES
+!    FLUX. POUR LES TENDANCES ET VARIABLES, CETTE VALEUR EST NULLE
+
+!    CONTENU DES TABLEAUX
+!    --------------------
+
+!*      1. PROFILS VERTICAUX
+
+!*      1.1 VARIABLES
+
+!       SI LHDHKS (DEBUT A L'INDICE 1)
+!  1-VPP          - MASSE D'AIR
+!  2-VQV          - MASSE DE VAPEUR D'EAU QV
+!  3-VUU          - QUANTITE DE MOUVEMENT ZONALE UZ
+!  4-VVV          - QUANTITE DE MOUVEMENT MERIDIENNE VM
+!  5-VKK          - ENERGIE CINETIQUE KENE
+!  6-VCT          - ENTHALPIE CP*T
+!  7-VEP          - ENERGIE POTENTIELLE PHI
+!  8-VHR          - HUMIDITE RELATIVE
+!  9-VQL          - MASSE D'EAU LIQUIDE (SI LHDQLN=.TRUE.)
+! 10-VQN          - MASSE D'EAU NEIGEUSE (SI LHDQLN=.TRUE.)
+! 9+NHDQLNVA-V01  - VARIABLE PASSIVE NUMERO 01 (SI LHDPAS=.TRUE.)
+!    ...
+! 9+NHDQLNVA+NHDPASVA-1-Vxx - VARIABLE PASSIVE NUMERO xx=NHDPASVA (SI LHDPAS=.TRUE.)
+! 9+NHDQLNVA+NHDPASVA-VNT - NEBULOSITE TOTALE
+! 10+NHDQLNVA+NHDPASVA-VOM - VITESSE VERTICALE EN COORDONNEE PRESSION
+!       SI LHDMCI (DEBUT A L'INDICE NDHVHK+1)
+!  1-VA1          - MOMENT ANGULAIRE A1
+!  2-VA2          - MOMENT ANGULAIRE A2
+!  3-VA3          - MOMENT ANGULAIRE A3
+!       SI LHDENT (DEBUT A L'INDICE NDHVHK+NDHVMC+1)
+!  1-VSS          - ENTROPIE: S
+
+!*      1.2 TENDANCES DYNAMIQUES
+
+!       SI LHDHKS (DEBUT A L'INDICE NDHVV+1)
+!  1-TPPDIVFLUHOR - DIV. FLUX HORIZONTAL DE MASSE D'AIR
+!  2-TQVDIVFLUHOR - DIV. FLUX HORIZONTAL DE VAPEUR D'EAU
+!  3-TUUDIVFLUHOR - DIV. FLUX HORIZONTAL QTE DE MVT ZONALE (CALCUL PARTIEL)
+!  4-TVVDIVFLUHOR - DIV. FLUX HORIZONTAL QTE DE MVT MERIDIENNE (PARTIEL)
+!  5-TUUFFVGADPSG - QTE DE MVT AGEOSTROPHIQUE MERIDIENNE
+!  6-TVVFFVGADPSG - QTE DE MVT AGEOSTROPHIQUE ZONALE
+!  7-TKKDIVFLUHOR - DIV. FLUX HORIZONTAL ENERGIE CINETIQUE
+!  8-TKKCONVERSI1 - TRAVAIL DES FORCES DE PRESSION
+!  9-TCTDIVFLUHOR - DIV. FLUX HORIZONTAL ENTHALPIE
+! 10-TCTCONVERSI2 - CONVERSION D'ENERGIE INTERNE
+! 11-TCTCONVERSI3 - CONVERSION D'ENERGIE INTERNE INDUITE PAR LES PRECIPITATIONS
+! 12-TEPDIVFLUHOR - DIV. FLUX HORIZONTAL ENERGIE POTENTIELLE
+! 13-PPP          - MASSE D'AIR: CUMUL TEMPOREL
+! 14-TQLDIVFLUHOR - DIV. FLUX HORIZONTAL DE MASSE D'EAU LIQUIDE (SI LHDQLN=.TRUE.)
+! 15-TQNDIVFLUHOR - DIV. FLUX HORIZONTAL DE MASSE D'EAU NEIGEUSE (SI LHDQLN=.TRUE.)
+!       SI LHDMCI (DEBUT A L'INDICE NDHVV+NDHAHKD+1)
+!  1-TA1DIVFLUHOR - MOMENT ANGULAIRE A1: DIV. FLUX HORIZONTAL
+!  2-TA2DIVFLUHOR - MOMENT ANGULAIRE A2: DIV. FLUX HORIZONTAL
+!  3-TA3DIVFLUHOR - MOMENT ANGULAIRE A3: DIV. FLUX HORIZONTAL
+!  4-TA1ADJUST    - MOMENT ANGULAIRE A1: TERME D'AJUSTEMENT
+!  5-TA2ADJUST    - MOMENT ANGULAIRE A2: TERME D'AJUSTEMENT
+!  6-TA3ADJUST    - MOMENT ANGULAIRE A3: TERME D'AJUSTEMENT
+!  7-TA1NONAX     - MOMENT ANGULAIRE A1: MOMENT NON AXIAL
+!  8-TA2NONAX     - MOMENT ANGULAIRE A2: MOMENT NON AXIAL
+!       SI LHDENT (DEBUT A L'INDICE NDHVV+NDHAHKD+NDHAMCD+1)
+!  1-TSSDIVFLUHOR - ENTROPIE: DIV. FLUX HORIZONTAL
+!  2-TSSPRECICT   - ENTROPIE: EFFET PRECIPITATIONS SUR ENTHALPIE
+
+!*      1.3 FLUX DYNAMIQUES
+
+!       SI LHDHKS (DEBUT A L'INDICE NDHVV+NDHAVD+1)
+!  1-FPPFLUVERTDYN- VERTICAL DE MASSE D'AIR
+!  2-FQVFLUVERTDYN- VERTICAL DE VAPEUR D'EAU
+!  3-FUUFLUVERTDYN- VERTICAL DE QTE DE MVT ZONALE
+!  4-FVVFLUVERTDYN- VERTICAL DE QTE DE MVT MERIDIENNE
+!  5-FUUFLUDUAPLUI- QTE DE MVT ZONALE TRANSPORTEE PAR PRECIPITATIONS
+!  6-FVVFLUDUAPLUI- QTE DE MVT MERIDIENNE TRANSPORTEE PAR PRECIPITATIONS
+!  7-FKKFLUVERTDYN- VERTICAL D'ENERGIE CINETIQUE
+!  8-FKKFLUDUAPLUI- ENERGIE CINETIQUE TRANSPORTEE PAR PRECIPITATIONS
+!  9-FCTFLUVERTDYN- VERTICAL D'ENTHALPIE
+! 10-FEPCONVERSIFL- PSEUDO VERTICAL D'ENERGIE POTENTIELLE
+! 11-FQLFLUVERTDYN- VERTICAL DE MASSE D'EAU LIQUIDE (SI LHDQLN=.TRUE.)
+! 12-FQNFLUVERTDYN- VERTICAL DE MASSE D'EAU NEIGEUSE (SI LHDQLN=.TRUE.)
+!       SI LHDMCI (DEBUT A L'INDICE NDHVV+NDHAVD+NDHBHKD+1)
+!  1-FA1FLUVERTDYN- MOMENT ANGULAIRE A1: FLUX VERTICAL DYNAMIQUE
+!  2-FA2FLUVERTDYN- MOMENT ANGULAIRE A2: FLUX VERTICAL DYNAMIQUE
+!  3-FA3FLUVERTDYN- MOMENT ANGULAIRE A3: FLUX VERTICAL DYNAMIQUE
+!  4-FA1GRAV      - MOMENT ANGULAIRE A1: FORCE DE GRAVITE
+!  5-FA2GRAV      - MOMENT ANGULAIRE A2: FORCE DE GRAVITE
+!  6-FA3GRAV      - MOMENT ANGULAIRE A3: FORCE DE GRAVITE
+!  7-FA1FLUDUAPLUI- MOMENT ANGULAIRE A1: FLUX DU AUX PRECIPITATIONS (NDPSFI=1)
+!  8-FA2FLUDUAPLUI- MOMENT ANGULAIRE A2: FLUX DU AUX PRECIPITATIONS (NDPSFI=1)
+!  9-FA3FLUDUAPLUI- MOMENT ANGULAIRE A3: FLUX DU AUX PRECIPITATIONS (NDPSFI=1)
+!       SI LHDENT (DEBUT A L'INDICE NDHVV+NDHAVD+NDHBHKD+NDHBMCD+1)
+!  1-FSSFLUVERTDYN-  ENTROPIE: FLUX VERTICAL DYNAMIQUE
+!  2-FSSPRECISS   -  ENTROPIE: EFFET DIRECT DES PRECIPITATIONS
+
+!*      1.4 FLUX PHYSIQUES
+
+!       SI LHDHKS (DEBUT A L'INDICE NDHVV+NDHFVD+1)
+!  1-FPPSUMFPL    - TOTAL DE PRECIPITATION, PERTE DE MASSE D'AIR
+!  2-FQVTUR       - TURBULENT DE VAPEUR D'EAU
+!  3-FQVTURCONV   - TURBULENT DE VAPEUR D'EAU DU A LA CONVECTION
+!  4-FQVPRECISTL  - DE PRECIPITATION STRATIFORME LIQUIDE
+!  5-FQVPRECISTN  - DE PRECIPITATION STRATIFORME NEIGEUSE
+!  6-FQVPRECICOL  - DE PRECIPITATION CONVECTIVE LIQUIDE
+!  7-FQVPRECICON  - DE PRECIPITATION CONVECTIVE NEIGEUSE
+!  8-FQVTURQNEGAT - DE VAPEUR D'EAU COMPENSANT LES VALEURS < 0
+!  9-FUUTUR       - TURBULENT DE QTE DE MVT ZONALE
+! 10-FVVTUR       - TURBULENT DE QTE DE MVT MERIDIENNE
+! 11-FUUTURCONV   - TURBULENT DE QTE DE MVT ZONALE DU A LA CONVECTION
+! 12-FVVTURCONV   - TURBULENT DE QTE DE MVT ZONALE DU A LA CONVECTION
+! 13-FUUONDEGREL  - TURBULENT DE QTE DE MVT MERIDIENNE DU AUX ONDES OROGRAPHIQUES
+! 14-FUUONDEGREL  - TURBULENT DE QTE DE MVT MERIDIENNE DU AUX ONDES OROGRAPHIQUES
+! 15-FCTTUR       - TURBULENT SEC D'ENTHALPIE
+! 16-FCTTURCONV   - TURBULENT CONVECTIF D'ENTHALPIE
+! 17-FCTRAYSOL1   - DE RAYONNEMENT SOLAIRE
+! 18-FCTRAYTER1   - DE RAYONNEMENT THERMIQUE
+! 19-FCTPRECISTL  - D'ENTHALPIE DU AUX PRECIPITATIONS STRATIFORMES LIQUIDES
+! 20-FCTPRECISTN  - D'ENTHALPIE DU AUX PRECIPITATIONS STRATIFORMES NEIGEUSES
+! 21-FCTPRECICOL  - D'ENTHALPIE DU AUX PRECIPITATIONS CONVECTIVES LIQUIDES
+! 22-FCTPRECICON  - D'ENTHALPIE DU AUX PRECIPITATIONS CONVECTIVES NEIGEUSES
+! 23-FCTPRECCSCOL - DE CHAL. SENS. DU AUX PRECIPITATIONS CONVECTIVES LIQUIDES
+! 24-FCTPRECCSCON - DE CHAL. SENS. DU AUX PRECIPITATIONS CONVECTIVES NEIGEUSES
+! 25-FCTPRECCSSTL - DE CHAL. SENS. DU AUX PRECIPITATIONS STRATIFORMES LIQUIDES
+! 26-FCTPRECCSSTN - DE CHAL. SENS. DU AUX PRECIPITATIONS STRATIFORMES NEIGEUSES
+! 27-FQLTUR       - TURBULENT D'EAU LIQUIDE (SI LHDQLN=.TRUE.)
+! 28-FQNTUR       - TURBULENT D'EAU NEIGEUSE (SI LHDQLN=.TRUE.)
+! 29-FQLTURCONV   - TURBULENT D'EAU LIQUIDE DU A LA CONVECTION (SI LHDQLN=.TRUE.)
+! 30-FQNTURCONV   - TURBULENT D'EAU NEIGEUSE DU A LA CONVECTION (SI LHDQLN=.TRUE.)
+! 31-FQLTURQNEGAT - D'EAU LIQUIDE COMPENSANT LES VALEURS < 0 (SI LHDQLN=.TRUE.)
+! 32-FQNTURQNEGAT - D'EAU NEIGEUSE COMPENSANT LES VALEURS < 0 (SI LHDQLN=.TRUE.)
+! 33-FQTCONDECOL  - DE CONDENSATION CONVECTIVE LIQUIDE (SI LHDQLN=.TRUE.)
+! 34-FQTCONDECON  - DE CONDENSATION CONVECTIVE NEIGEUSE (SI LHDQLN=.TRUE.)
+! 35-FQTCONDESTL  - DE CONDENSATION STRATIFORME LIQUIDE (SI LHDQLN=.TRUE.)
+! 36-FQTCONDESTN  - DE CONDENSATION STRATIFORME NEIGEUSE (SI LHDQLN=.TRUE.)
+!       SI LHDMCI (DEBUT A L'INDICE NDHVV+NDHFVD+NDHAHKP+1)
+!  1-FA1TUR       - MOMENT ANGULAIRE A1: DIFFUSION VERTICALE
+!  2-FA2TUR       - MOMENT ANGULAIRE A2: DIFFUSION VERTICALE
+!  3-FA3TUR       - MOMENT ANGULAIRE A3: DIFFUSION VERTICALE
+!  4-FA1TURCONV   - MOMENT ANGULAIRE A1: PROCESSUS CONVECTIFS TURBULENTS
+!  5-FA2TURCONV   - MOMENT ANGULAIRE A2: PROCESSUS CONVECTIFS TURBULENTS
+!  6-FA3TURCONV   - MOMENT ANGULAIRE A3: PROCESSUS CONVECTIFS TURBULENTS
+!  7-FA1ONDEGREL  - MOMENT ANGULAIRE A1: ONDES DE GRAVITE OROGRAPHIQUES
+!  8-FA2ONDEGREL  - MOMENT ANGULAIRE A2: ONDES DE GRAVITE OROGRAPHIQUES
+!  9-FA3ONDEGREL  - MOMENT ANGULAIRE A3: ONDES DE GRAVITE OROGRAPHIQUES
+!       SI LHDENT (DEBUT A L'INDICE NDHVV+NDHFVD+NDHAHKP+NDHAMCP+1)
+
+!*      1.5 TENDANCES PHYSIQUES
+
+!       SI LHDHKS (DEBUT A L'INDICE NDHVV+NDHFVD+NDHAVP+1)
+!  1-TKKDISSIPTUR - DISSIPATION DUE A LA TURBULENCE SECHE
+!  2-TKKDISSIPCONV- DISSIPATION DUE A LA CONVECTION
+!  3-TKKDISSIPGREL- DISSIPATION DUE AUX ONDES DE GRAVITE INDUITES PAR LE RELIEF
+!  4-TQVFORMPSTL  - FORMATION DE PLUIE STRATIFORME (SI LHDADD=.TRUE.)
+!  5-TCTFORMPSTL  - VARIATION D'ENTHALPIE FORMATION PLUIE STRATIFORME (SI LHDADD=.TRUE.)
+!  6-TQVEVAPPSTL  - EVAPORATION PLUIE STRATIFORME (SI LHDADD=.TRUE.)
+!  7-TCTEVAPPSTL  - VARIATION D'ENTHALPIE EVAPORATION PLUIE STRATIFORME (SI LHDADD=.TRUE.)
+!  8-TQVFORMPSTN  - FORMATION DE NEIGE STRATIFORME (SI LHDADD=.TRUE.)
+!  9-TCTFORMPSTN  - VARIATION D'ENTHALPIE FORMATION NEIGE STRATIFORME (SI LHDADD=.TRUE.)
+! 10-TQVEVAPPSTN  - EVAPORATION NEIGE STRATIFORME (SI LHDADD=.TRUE.)
+! 11-TCTEVAPPSTN  - VARIATION D'ENTHALPIE EVAPORATION NEIGE STRATIFORME (SI LHDADD=.TRUE.)
+! 12-TQVFONTPST   - FONTE DE NEIGE EN PLUIE STRATIFORME (SI LHDADD=.TRUE.)
+! 13-TCTFONTPST   - VARIATION D'ENTHALPIE FONTE DE NEIGE STRATIFORME (SI LHDADD=.TRUE.)
+! 14-TQVFORMPCOL  - FORMATION DE PLUIE CONVECTIVE (SI LHDADD=.TRUE.)
+! 15-TCTFORMPCOL  - VARIATION D'ENTHALPIE FORMATION PLUIE CONVECTIVE (SI LHDADD=.TRUE.)
+! 16-TQVEVAPPCOL  - EVAPORATION DE PLUIE CONVECTIVE (SI LHDADD=.TRUE.)
+! 17-TCTEVAPPCOL  - VARIATION D'ENTHALPIE EVAPORATION PLUIE CONVECTIVE (SI LHDADD=.TRUE.)
+! 18-TQVFORMPCON  - FORMATION DE NEIGE CONVECTIVE (SI LHDADD=.TRUE.)
+! 19-TCTFORMPCON  - VARIATION D'ENTHALPIE FORMATION NEIGE CONVECTIVE (SI LHDADD=.TRUE.)
+! 20-TQVEVAPPCON  - EVAPORATION NEIGE CONVECTIVE (SI LHDADD=.TRUE.)
+! 21-TCTEVAPPCON  - VARIATION D'ENTHALPIE EVAPORATION NEIGE CONVECTIVE (SI LHDADD=.TRUE.)
+! 22-TQVFONTPCO   - FONTE DE NEIGE CONVECTIVE (SI LHDADD=.TRUE.)
+! 23-TCTFONTPCO   - VARIATION D'ENTHALPIE FONTE DE NEIGE CONVECTIVE (SI LHDADD=.TRUE.)
+!       SI LHDMCI (DEBUT A L'INDICE NDHVV+NDHFVD+NDHAVP+NDHBHKP+1)
+!       SI LHDENT (DEBUT A L'INDICE NDHVV+NDHFVD+NDHAVP+NDHBHKP+NDHBMCP+1)
+!  1-TSSDISSIPTUR - ENTROPIE: DISSIPATION DUE AUX PROCESSUS TURBULENTS SECS
+!                              TURBULENT DISSIPATION OF ENERGY
+!  2-TSSDISSIPCONV- ENTROPIE: DISSIPATION DUE AUX PROCESSUS TURBULENTS CONVECTIFS
+!                              CONVECTIVE DISSIPATION OF ENERGY
+!  3-TSSDISSIPGREL- ENTROPIE: DISSIPATION DUE AUX ONDES DE RELIEF
+!                              GRAVITY WAVE DRAG DISSIP. OF ENERGY
+!  4-TSSTURQVTOT  - ENTROPIE: PROCESSUS TURBULENTS SUR LA VAPEUR D'EAU
+!                              DIFFUSION OF HUMIDITY
+!  5-TSSRAY1      - ENTROPIE: EFFET DU RAYONNEMENT
+!                              RADIATION
+!  6-TSSTURCTTOT  - ENTROPIE: PROCESSUS TURBULENTS SUR L'ENTHALPIE
+!                              DIFFUSION OF ENTHALPY
+
+!*      2. VARIABLES AU SOL
+
+!*      2.1 VARIABLES
+!       SUR LES POINTS TERRE UNIQUEMENT
+
+!       SI LHDHKS
+!  1-S V          - SURFACE DE TERRE DU DOMAINE (MOYENNE PONDEREE DES PITM)
+!  2-S V          - ENERGIE COUCHE SURFACE
+!  3-S V          - ENERGIE COUCHE PROFONDE
+!  4-S V          - HAUTEUR D'EAU COUCHE SURFACE
+!  5-S V          - HAUTEUR D'EAU COUCHE PROFONDE
+!  6-S V          - HAUTEUR DE NEIGE COUCHE SURFACE
+!       SI LHDMCI
+!       SI LHDENT
+
+!*      2.1a FREE-STYLE VARIABLES
+!       (NOTE: VALID OVER LAND AND SEA)
+
+!       IF LHDHKS.AND.LECMWF
+!  1-SVGFS        - 2-METRE TEMPERATURE
+!  2-SVGFS        - 2-METRE DEWPOINT
+!  3-SVGFS        - 10-METRE U-COMPONENT
+!  4-SVGFS        - 10-METRE V-COMPONENT
+!  5-SVGFS        - SKIN TEMPERATURE
+!  6-SVGFS        - FORECAST SURFACE ROUGHNESS
+!  7-SVGFS        - FORECAST SURFACE ROUGHNESS FOR HEAT
+!  8-SVGFS        - FORECAST ALBEDO
+!       IF LHDMCI
+!       IF LHDENT
+
+!*      2.2 TENDANCES/FLUX DYNAMIQUES
+!       SUR LES POINTS TERRE UNIQUEMENT
+
+!       SI LHDHKS
+!       SI LHDMCI
+!       SI LHDENT
+
+!*      2.3 TENDANCES/FLUX PHYSIQUES
+!       SUR LES POINTS TERRE UNIQUEMENT
+
+!       IF LHDHKS
+!  1-S FVRAC      - FLUX DE RAYONNEMENT SOLAIRE NET (GAIN ALGEBRIQUE POUR LA COUCHE S)
+!  2-S FVRAC      - FLUX DE RAYONNEMENT THERMIQUE NET
+!  3-S FVRAC      - FLUX DE CHALEUR LATENTE, EVAPORATION DE LIQUIDE
+!  4-S FVRAC      - FLUX DE CHALEUR LATENTE, EVAPORATION DE NEIGE
+!  5-S FVRAC      - FLUX DE CHALEUR SENSIBLE
+!  6-S FVRAC      - FLUX DE CHALEUR VERS SOL PROFOND (GAIN ALGEBRIQUE POUR COUCHE P)
+!  7-S FVRAC      - FLUX DE CHALEUR RESULTANT DE LA FONTE DE NEIGE (COUCHE S)
+!  8-S FVRAC      - FLUX DE PRECIPITATIONS STRATIFORMES LIQUIDES (GAIN POUR LA COUCHE S)
+!  9-S FVRAC      - FLUX DE PRECIPITATIONS STRATIFORMES NEIGEUSES
+! 10-S FVRAC      - FLUX DE PRECIPITATIONS CONVECTIVES LIQUIDES
+! 11-S FVRAC      - FLUX DE PRECIPITATIONS CONVECTIVES NEIGEUSES
+! 12-S FVRAC      - FLUX D'EVAPORATION DE LIQUIDE
+! 13-S FVRAC      - FLUX D'EVAPORATION DE NEIGE
+! 14-S FVRAC      - FLUX D'EAU VERS LA COUCHE PROFONDE (GAIN POUR COUCHE P)
+! 15-S FVRAC      - FLUX NEIGE VERS LIQUIDE (FONTE EN SURFACE, COUCHE S)
+! 16-S FVRAC      - TROP-PLEIN EN SURFACE (RUISSELLEMENT, PERDU)
+! 17-S FVRAC      - TROP-PLEIN EN PROFONDEUR (PERDU)
+!       IF LHDMCI
+!       IF LHDENT
+
+!*      2.3a FREE-STYLE FLUXES
+!       (NOTE: VALID OVER LAND AND SEA)
+
+!       IF LHDHKS.AND.LECMWF
+!  1-SFGFS        - SURFACE SOLAR RADIATION DOWNWARDS
+!  2-SFGFS        - SURFACE THERMAL RADIATION DOWNWARDS
+!       IF LHDMCI
+!       IF LHDENT
+
+END MODULE YOMTDDH
Index: LMDZ5/trunk/libf/phylmd/rrtm/yomtoph.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yomtoph.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yomtoph.F90	(revision 1989)
@@ -0,0 +1,89 @@
+MODULE YOMTOPH
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!*
+!     ------------------------------------------------------------------
+!     Top limits of parametrization call
+!     we have one by parameterization,
+!              ETXXXX : Top pressure
+!              NTXXXX : Corresponding level in standard atmosphere
+
+!       ETQSAT,ETDIFU,ETCOEF,ETDRAG,ETCVIM,ETPLUI,ETRADI,ETNEBU
+!       ETOZON,ETDRME,ETCOEFE,ETCOET,ETAJUC,NTAJUC
+!       NTQSAT,NTDIFU,NTCOEF,NTDRAG,NTCVIM,NTPLUI,NTRADI,NTNEBU
+!       NTOZON,NTDRME,NTCOEFE,NTCOET
+
+!     Constants for Mesospheric drag parameterization
+
+!       XDRMUK  : Mesospheric drag coefficient for U and V
+!       XDRMUX  : Maximum mesospheric drag coefficient for U and V
+!       XDRMUP  : Bottom pressure for U and V
+!       XDRMTK  : Mesospheric drag coefficient for T
+!       XDRMTX  : Maximum mesospheric drag coefficient for T
+!       XDRMTP  : Bottom pressure for T
+!       XDRMQK  : Mesospheric drag coefficient for Q
+!       XDRMQP  : Bottom pressure for Q
+
+!       RMESOU(NFLEVG) : Vertical mesospheric drag profil for U and V
+!       RMESOT(NFLEVG) : Vertical mesospheric drag profil for T
+!       RMESOQ(NFLEV)  : Vertical mesospheric drag profil for Q
+
+!       RFMESOQ   : Mesospheric water reference
+
+!       RCLX      : Multiplicator for Cl term in ozone photochemistry
+
+!       TPSCLIM   : Temperature threshold for activation of heterogeneous
+!                   chemistry (polar stratospheric clouds temperature formation)
+
+REAL(KIND=JPRB),ALLOCATABLE:: RMESOU(:)
+REAL(KIND=JPRB),ALLOCATABLE:: RMESOT(:)
+REAL(KIND=JPRB),ALLOCATABLE:: RMESOQ(:)
+
+REAL(KIND=JPRB) :: RFMESOQ
+
+INTEGER(KIND=JPIM) :: NTQSAT
+INTEGER(KIND=JPIM) :: NTDIFU
+INTEGER(KIND=JPIM) :: NTCOEF
+INTEGER(KIND=JPIM) :: NTDRAG
+INTEGER(KIND=JPIM) :: NTCVIM
+INTEGER(KIND=JPIM) :: NTPLUI
+INTEGER(KIND=JPIM) :: NTRADI
+INTEGER(KIND=JPIM) :: NTNEBU
+INTEGER(KIND=JPIM) :: NTOZON
+INTEGER(KIND=JPIM) :: NTDRME
+INTEGER(KIND=JPIM) :: NTCOEFE
+INTEGER(KIND=JPIM) :: NTCOET
+INTEGER(KIND=JPIM) :: NTAJUC
+REAL(KIND=JPRB) :: ETQSAT
+REAL(KIND=JPRB) :: ETDIFU
+REAL(KIND=JPRB) :: ETCOEF
+REAL(KIND=JPRB) :: ETDRAG
+REAL(KIND=JPRB) :: ETCVIM
+REAL(KIND=JPRB) :: ETPLUI
+REAL(KIND=JPRB) :: ETRADI
+REAL(KIND=JPRB) :: ETNEBU
+REAL(KIND=JPRB) :: ETOZON
+REAL(KIND=JPRB) :: ETDRME
+REAL(KIND=JPRB) :: ETCOEFE
+REAL(KIND=JPRB) :: ETCOET
+REAL(KIND=JPRB) :: ETAJUC
+REAL(KIND=JPRB) :: XDRMUK
+REAL(KIND=JPRB) :: XDRMUX
+REAL(KIND=JPRB) :: XDRMUP
+REAL(KIND=JPRB) :: XDRMTK
+REAL(KIND=JPRB) :: XDRMTX
+REAL(KIND=JPRB) :: XDRMTP
+REAL(KIND=JPRB) :: XDRMQK
+REAL(KIND=JPRB) :: XDRMQP
+
+REAL(KIND=JPRB) :: RCLX
+
+REAL(KIND=JPRB) :: TPSCLIM
+
+!     ------------------------------------------------------------------
+END MODULE YOMTOPH
Index: LMDZ5/trunk/libf/phylmd/rrtm/yomvdoz.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yomvdoz.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yomvdoz.F90	(revision 1989)
@@ -0,0 +1,76 @@
+MODULE YOMVDOZ
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+! --------------------------------------------------------------------
+!            L'OBJET DE CE  EST DE FOURNIR
+!   LES VITESSES DE DEPOT DE L'OZONE.
+
+! ELLES SERONT UTILISEES DANS LA SUBROUTINE ACDIFOZ
+! CES VITESSES DE DEPOT DEPENDENT DES CLASSES DE VEGETATION,
+! DE L'OCCURENCE NUIT-JOUR, DE L'OCCURENCE SEC-HUMIDE
+! ET DE LA SAISON.
+
+!   ===== SIGNIFICATION DES NOMS DES VARIABLES ======
+
+! VDHJS : VITESSE DE DEPOT DE L'OZONE EN HIVER POUR UN JOUR SEC
+! VDHJH : VITESSE DE DEPOT DE L'OZONE EN HIVER POUR UN JOUR HUMIDE
+! VDHNS : VITESSE DE DEPOT DE L'OZONE EN HIVER POUR UNE NUIT SECHE
+! VDHNH : VITESSE DE DEPOT DE L'OZONE EN HIVER POUR UNE NUIT HUMIDE
+! VDPJS : VITESSE DE DEPOT DE L'OZONE AU PRINTEMPS POUR UN JOUR SEC
+! VDPJH : VITESSE DE DEPOT DE L'OZONE AU PRINTEMPS POUR UN JOUR HUMIDE
+! VDPNS : VITESSE DE DEPOT DE L'OZONE AU PRINTEMPS POUR UNE NUIT SECHE
+! VDPNH : VITESSE DE DEPOT DE L'OZONE AU PRINTEMPS POUR UNE NUIT HUMIDE
+! VDEJS : VITESSE DE DEPOT DE L'OZONE EN ETE POUR UN JOUR SEC
+! VDEJH : VITESSE DE DEPOT DE L'OZONE EN ETE POUR UN JOUR HUMIDE
+! VDENS : VITESSE DE DEPOT DE L'OZONE EN ETE POUR UNE NUIT SECHE
+! VDENH : VITESSE DE DEPOT DE L'OZONE EN ETE POUR UNE NUIT HUMIDE
+! VDAJS : VITESSE DE DEPOT DE L'OZONE EN AUTOMNE POUR UN JOUR SEC
+! VDAJH : VITESSE DE DEPOT DE L'OZONE EN AUTOMNE POUR UN JOUR HUMIDE
+! VDANS : VITESSE DE DEPOT DE L'OZONE EN AUTOMNE POUR UNE NUIT SECHE
+! VDANH : VITESSE DE DEPOT DE L'OZONE EN AUTOMNE POUR UNE NUIT HUMIDE
+! VDNJS : VITESSE DE DEPOT DE L'OZONE EN HIVER-NEIGE POUR UN JOUR SEC
+! VDNJH : VITESSE DE DEPOT DE L'OZONE EN HIVER-NEIGE POUR UN JOUR HUMIDE 
+! VDNNS : VITESSE DE DEPOT DE L'OZONE EN HIVER-NEIGE POUR UNE NUIT SECHE
+! VDNNH : VITESSE DE DEPOT DE L'OZONE EN HIVER-NEIGE POUR UNE NUIT HUMIDE
+
+! VOZNJ : SEUIL NUIT/JOUR  (EN W/M2 : SEUIL DU FLUX SOLAIRE A NFLEVG)
+! VOZHS : SEUIL HUMIDE/SEC (EN kg/m2/s : SEUIL DE LA PLUIE TOTALE) 
+
+! LRDIFOZ : POUR ACTIVER LE SCHEMA DE DIFUSION SEULE DE L'OZONE
+! LRDEPOZ : POUR ACTIVER LE SCHEMA DE DIFFUSION+DEPOSITION DE L'OZONE
+
+!  DECLARATION DE LA TAILLE DES TABLEAUX
+!  CETTE TAILLE A ETE ELARGIE, EN FAIT LA DIMENSION DES TABLEAUX
+!  EST LE NOMBRE DE CLASSES DE VEGETATION.
+
+REAL(KIND=JPRB) :: VDHJS(99)
+REAL(KIND=JPRB) :: VDHJH(99)
+REAL(KIND=JPRB) :: VDHNS(99)
+REAL(KIND=JPRB) :: VDHNH(99)
+REAL(KIND=JPRB) :: VDPJS(99)
+REAL(KIND=JPRB) :: VDPJH(99)
+REAL(KIND=JPRB) :: VDPNS(99)
+REAL(KIND=JPRB) :: VDPNH(99)
+REAL(KIND=JPRB) :: VDEJS(99)
+REAL(KIND=JPRB) :: VDEJH(99)
+REAL(KIND=JPRB) :: VDENS(99)
+REAL(KIND=JPRB) :: VDENH(99)
+REAL(KIND=JPRB) :: VDAJS(99)
+REAL(KIND=JPRB) :: VDAJH(99)
+REAL(KIND=JPRB) :: VDANS(99)
+REAL(KIND=JPRB) :: VDANH(99)
+REAL(KIND=JPRB) :: VDNJS(99)
+REAL(KIND=JPRB) :: VDNJH(99)
+REAL(KIND=JPRB) :: VDNNS(99)
+REAL(KIND=JPRB) :: VDNNH(99)
+REAL(KIND=JPRB) :: VOZNJ
+REAL(KIND=JPRB) :: VOZHS
+LOGICAL :: LRDIFOZ
+LOGICAL :: LRDEPOZ
+!   ---------------------------------------------------------------------
+END MODULE YOMVDOZ
Index: LMDZ5/trunk/libf/phylmd/rrtm/yophlc.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yophlc.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yophlc.F90	(revision 1989)
@@ -0,0 +1,55 @@
+MODULE YOPHLC
+
+USE PARKIND1  ,ONLY : JPIM     ,JPRB
+
+IMPLICIT NONE
+
+SAVE
+
+!     -----------------------------------------------------------------
+!*    ** *YOPHLC* - SWITCHES FOR SIMPLE PHYSICS
+!     -----------------------------------------------------------------
+
+!        * E.C.M.W.F. PHYSICS PACKAGE *
+
+REAL(KIND=JPRB) :: ALPHA
+REAL(KIND=JPRB) :: AH0
+REAL(KIND=JPRB) :: USTARL
+REAL(KIND=JPRB) :: USTARS
+REAL(KIND=JPRB) :: ALANDZ0
+REAL(KIND=JPRB) :: ASEAZ0
+LOGICAL :: LSPHLC
+LOGICAL :: LVDFLC
+LOGICAL :: LSDRLC
+LOGICAL :: LCZDEB
+LOGICAL :: LZMCON
+LOGICAL :: LKEXP
+LOGICAL :: LVDFDS
+LOGICAL :: LSDRDS
+!     ------------------------------------------------------------------
+!  NAME     TYPE     PURPOSE
+!  ----  :  ----   : ---------------------------------------------------
+! LSPHLC : LOGICAL : SWITCH TO TURN ON THE SIMPLE PHYSICS SCHEME
+! LVDFLC : LOGICAL : TO TURN ON THE VERTICAL DIFFUSION ON U,V
+! LVDFDS : LOGICAL : TO TURN ON THE VERT DIFF ALSO ON THE DRY STATIC ENERGY
+! LSDRLC : LOGICAL : TO TURN ON THE SURFACE DRAG ON U,V
+! LSDRDS : LOGICAL : TO TURN ON THE SURFACE DRAG ALSO ON THE DRY STATIC ENERGY
+! LCZDEB : LOGICAL : IF TRUE PRINT VALUES FOR DEBUGGING
+! LZMCON : LOGICAL : IF TRUE THE VERT DIFF COEFF K IS CONSTANT
+! LKEXP  : LOGICAL : EXPONENTIAL APPROXIMATION OF THE CONSTANT K
+! ALPHA  : REAL    : COEFFICIENT FOR THE IMPLICIT TIME STEP SCHEME
+! AH0    : REAL    : REFERENCE HEIGHT FOR CONSTANT VERT DIFF (M)
+! USTARL : REAL    : CONSTANT USTAR OVER LAND (M SEC-1)
+! USTARS : REAL    : CONSTANT USTAR OVER SEA (M SEC-1)
+! ALANDZ0: REAL    : CONSTANT Z0 OVER LAND (M)
+! ASEAZ0 : REAL    : CONSTANT Z0 OVER SEA (M)
+! NDIFLC : INTEGER : CONTROL DIFFERENT VERT DIFF SCHEMES
+!                   - 1: CALL VDIFLCZ (DIRECT+TL+ADJ):
+!                        X(T+1)-X(T-1)=K*X(T+1)
+!                        K=CONSTANT
+!                   - 2: CALL VDIFLCZ1 (DIRECT):
+!                        X(T*)-X(T)=K(X(T))*(ALPHA*X(T*)+(1-ALPHA)*X(T))
+!                        DX=X(T*)-X(T)
+!                        X(T+1)=X(T-1)+2*DX
+!     -----------------------------------------------------------------
+END MODULE YOPHLC
Index: LMDZ5/trunk/libf/phylmd/rrtm/yophnc.F90
===================================================================
--- LMDZ5/trunk/libf/phylmd/rrtm/yophnc.F90	(revision 1989)
+++ LMDZ5/trunk/libf/phylmd/rrtm/yophnc.F90	(revision 1989)
@@ -0,0 +1,52 @@
+MODULE YOPHNC
+
+IMPLICIT NONE
+
+SAVE
+
+! -------- SWITCHES FOR T-DT TRAJECTORY AND PHYSICS  -------------
+
+! LETRAJP  : TRUE IF STORAGE OF TRAJECTORY AT T-DT
+! LETRAJPT : TRUE IF STORAGE OF TRAJECTORY OF PHYS.TENDENCIES
+!            FOR ADJOINT
+
+! LERADI2   : TRUE IF RADIATION SCHEME ACTIVATED IN TL AND AD
+! LERADS2   : TRUE IF RADIATION AT THE SURFACE ACTIVATED IN TL AND AD
+! LERADSW2  : TRUE IF SHORTWAVE RADIATION SCHEME ACTIVATED IN TL AND AD
+! LERADN2   : TRUE IF LINEARIZED SW+LW RAD.SCHEMES ACTIVATED IN TL AND AD
+! LERADFL2  : TRUE IF FULL LINERAIZED LW = a dF + da F IN TL AND AD
+! LEDCLD2   : TRUE IF DIAGNOSTIC CLOUDS ACTIVATED IN TL AND AD
+! LENCLD2   : TRUE IF SIMPLE CLOUD SCHEME FOR LINEARIZED MODEL ACTIVATED
+! LEVAPLS2  : TRUE IF EVAPORATION OF LARGE SCALE CONDENSATION IN TL/AD
+! LEVDIF2   : TRUE IF VERTICAL DIFFUSION ACTIVATED IN TL AND AD
+! LEGWDG2   : TRUE IF S.S. OROGRAPHY SCHEME ACTIVATED IN TL AND AD
+! LECUMF2   : TRUE IF MASS-FLUX CONVECTION ACTIVATED IN TL AND AD
+! LECUBM2   : TRUE IF BETTS-MILLER CONVECTION ACTIVATED IN TL AND AD
+! LECOND2   : TRUE IF CONDENSATION SCHEME ACTIVATED IN TL AND AD
+! LEQNGT2   : TRUE IF Q<0 REMOVAL SCHEME ACTIVATED IN TL AND AD
+! LESURF2   : TRUE IF LAND SURFACE  SCHEME ACTIVATED IN TL AND AD
+! LEKPERT   : TRUE IF PERTURBATION OF EXCHANGE COEEFICIENTS
+! LTRACLNPH : TRUE IF TRACERS TO BE USED IN LINEARIZED PHYSICS
+
+LOGICAL :: LETRAJP
+LOGICAL :: LETRAJPT
+LOGICAL :: LERADI2
+LOGICAL :: LERADS2
+LOGICAL :: LERADSW2
+LOGICAL :: LERADN2
+LOGICAL :: LERADFL2
+LOGICAL :: LEDCLD2
+LOGICAL :: LENCLD2
+LOGICAL :: LEVAPLS2
+LOGICAL :: LEVDIF2
+LOGICAL :: LEGWDG2
+LOGICAL :: LECUMF2
+LOGICAL :: LECUBM2
+LOGICAL :: LECOND2
+LOGICAL :: LEQNGT2
+LOGICAL :: LESURF2
+LOGICAL :: LEKPERT
+LOGICAL :: LTRACLNPH
+
+!     ------------------------------------------------------------------
+END MODULE YOPHNC
